diff --git a/.gitignore b/.gitignore index 8e44344..fff6f47 100644 --- a/.gitignore +++ b/.gitignore @@ -22,10 +22,7 @@ bin.dp.grib2/wgrib* bin.rams/dprep.test/* # Ignore external libraries -misc/hdf5-1.* -misc/mpich2* -misc/extra/*.tar -misc/openmpi* +misc/* *.tar.gz *.tar *.tgz diff --git a/License b/License new file mode 100644 index 0000000..563095e --- /dev/null +++ b/License @@ -0,0 +1,247 @@ +GNU GENERAL PUBLIC LICENSE + +Version 2, June 1991 + +Copyright (C) 1989, 1991 Free Software Foundation, Inc. 59 Temple Place - Suite +330, Boston, MA 02111-1307, USA + +Everyone is permitted to copy and distribute verbatim copies of this license +document, but changing it is not allowed. + +Preamble + +The licenses for most software are designed to take away your freedom to share and +change it. By contrast, the GNU General Public License is intended to guarantee your +freedom to share and change free software--to make sure the software is free for all +its users. This General Public License applies to most of the Free Software +Foundation's software and to any other program whose authors commit to using it. +(Some other Free Software Foundation software is covered by the GNU Library General +Public License instead.) You can apply it to your programs, too. + +When we speak of free software, we are referring to freedom, not price. Our General +Public Licenses are designed to make sure that you have the freedom to distribute +copies of free software (and charge for this service if you wish), that you receive +source code or can get it if you want it, that you can change the software or use +pieces of it in new free programs; and that you know you can do these things. + +To protect your rights, we need to make restrictions that forbid anyone to deny you +these rights or to ask you to surrender the rights. These restrictions translate to +certain responsibilities for you if you distribute copies of the software, or if you +modify it. + +For example, if you distribute copies of such a program, whether gratis or for a +fee, you must give the recipients all the rights that you have. You must make sure +that they, too, receive or can get the source code. And you must show them these +terms so they know their rights. + +We protect your rights with two steps: (1) copyright the software, and (2) offer you +this license which gives you legal permission to copy, distribute and/or modify the +software. + +Also, for each author's protection and ours, we want to make certain that everyone +understands that there is no warranty for this free software. If the software is +modified by someone else and passed on, we want its recipients to know that what +they have is not the original, so that any problems introduced by others will not +reflect on the original authors' reputations. + +Finally, any free program is threatened constantly by software patents. We wish to +avoid the danger that redistributors of a free program will individually obtain +patent licenses, in effect making the program proprietary. To prevent this, we have +made it clear that any patent must be licensed for everyone's free use or not +licensed at all. + +The precise terms and conditions for copying, distribution and modification follow. +TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION + +0. This License applies to any program or other work which contains a notice placed +by the copyright holder saying it may be distributed under the terms of this General +Public License. The "Program", below, refers to any such program or work, and a +"work based on the Program" means either the Program or any derivative work under +copyright law: that is to say, a work containing the Program or a portion of it, +either verbatim or with modifications and/or translated into another language. +(Hereinafter, translation is included without limitation in the term +"modification".) Each licensee is addressed as "you". + +Activities other than copying, distribution and modification are not covered by this +License; they are outside its scope. The act of running the Program is not +restricted, and the output from the Program is covered only if its contents +constitute a work based on the Program (independent of having been made by running +the Program). Whether that is true depends on what the Program does. + +1. You may copy and distribute verbatim copies of the Program's source code as you +receive it, in any medium, provided that you conspicuously and appropriately publish +on each copy an appropriate copyright notice and disclaimer of warranty; keep intact +all the notices that refer to this License and to the absence of any warranty; and +give any other recipients of the Program a copy of this License along with the +Program. + +You may charge a fee for the physical act of transferring a copy, and you may at +your option offer warranty protection in exchange for a fee. + +2. You may modify your copy or copies of the Program or any portion of it, thus +forming a work based on the Program, and copy and distribute such modifications or +work under the terms of Section 1 above, provided that you also meet all of these +conditions: + + * a) You must cause the modified files to carry prominent notices stating that +you changed the files and the date of any change. + + * b) You must cause any work that you distribute or publish, that in whole or in +part contains or is derived from the Program or any part thereof, to be licensed as +a whole at no charge to all third parties under the terms of this License. + + * c) If the modified program normally reads commands interactively when run, you +must cause it, when started running for such interactive use in the most ordinary +way, to print or display an announcement including an appropriate copyright notice +and a notice that there is no warranty (or else, saying that you provide a warranty) +and that users may redistribute the program under these conditions, and telling the +user how to view a copy of this License. (Exception: if the Program itself is +interactive but does not normally print such an announcement, your work based on the +Program is not required to print an announcement.) + +These requirements apply to the modified work as a whole. If identifiable sections +of that work are not derived from the Program, and can be reasonably considered +independent and separate works in themselves, then this License, and its terms, do +not apply to those sections when you distribute them as separate works. But when you +distribute the same sections as part of a whole which is a work based on the +Program, the distribution of the whole must be on the terms of this License, whose +permissions for other licensees extend to the entire whole, and thus to each and +every part regardless of who wrote it. + +Thus, it is not the intent of this section to claim rights or contest your rights to +work written entirely by you; rather, the intent is to exercise the right to control +the distribution of derivative or collective works based on the Program. + +In addition, mere aggregation of another work not based on the Program with the +Program (or with a work based on the Program) on a volume of a storage or +distribution medium does not bring the other work under the scope of this License. + +3. You may copy and distribute the Program (or a work based on it, under Section 2) +in object code or executable form under the terms of Sections 1 and 2 above provided +that you also do one of the following: + + * a) Accompany it with the complete corresponding machine-readable source code, +which must be distributed under the terms of Sections 1 and 2 above on a medium +customarily used for software interchange; or, + + * b) Accompany it with a written offer, valid for at least three years, to give +any third party, for a charge no more than your cost of physically performing source +distribution, a complete machine-readable copy of the corresponding source code, to +be distributed under the terms of Sections 1 and 2 above on a medium customarily +used for software interchange; or, + + * c) Accompany it with the information you received as to the offer to +distribute corresponding source code. (This alternative is allowed only for +noncommercial distribution and only if you received the program in object code or +executable form with such an offer, in accord with Subsection b above.) + +The source code for a work means the preferred form of the work for making +modifications to it. For an executable work, complete source code means all the +source code for all modules it contains, plus any associated interface definition +files, plus the scripts used to control compilation and installation of the +executable. However, as a special exception, the source code distributed need not +include anything that is normally distributed (in either source or binary form) with +the major components (compiler, kernel, and so on) of the operating system on which +the executable runs, unless that component itself accompanies the executable. + +If distribution of executable or object code is made by offering access to copy from +a designated place, then offering equivalent access to copy the source code from the +same place counts as distribution of the source code, even though third parties are +not compelled to copy the source along with the object code. + +4. You may not copy, modify, sublicense, or distribute the Program except as +expressly provided under this License. Any attempt otherwise to copy, modify, +sublicense or distribute the Program is void, and will automatically terminate your +rights under this License. However, parties who have received copies, or rights, +from you under this License will not have their licenses terminated so long as such +parties remain in full compliance. + +5. You are not required to accept this License, since you have not signed it. +However, nothing else grants you permission to modify or distribute the Program or +its derivative works. These actions are prohibited by law if you do not accept this +License. Therefore, by modifying or distributing the Program (or any work based on +the Program), you indicate your acceptance of this License to do so, and all its +terms and conditions for copying, distributing or modifying the Program or works +based on it. + +6. Each time you redistribute the Program (or any work based on the Program), the +recipient automatically receives a license from the original licensor to copy, +distribute or modify the Program subject to these terms and conditions. You may not +impose any further restrictions on the recipients' exercise of the rights granted +herein. You are not responsible for enforcing compliance by third parties to this +License. + +7. If, as a consequence of a court judgment or allegation of patent infringement or +for any other reason (not limited to patent issues), conditions are imposed on you +(whether by court order, agreement or otherwise) that contradict the conditions of +this License, they do not excuse you from the conditions of this License. If you +cannot distribute so as to satisfy simultaneously your obligations under this +License and any other pertinent obligations, then as a consequence you may not +distribute the Program at all. For example, if a patent license would not permit +royalty-free redistribution of the Program by all those who receive copies directly +or indirectly through you, then the only way you could satisfy both it and this +License would be to refrain entirely from distribution of the Program. + +If any portion of this section is held invalid or unenforceable under any particular +circumstance, the balance of the section is intended to apply and the section as a +whole is intended to apply in other circumstances. + +It is not the purpose of this section to induce you to infringe any patents or other +property right claims or to contest validity of any such claims; this section has +the sole purpose of protecting the integrity of the free software distribution +system, which is implemented by public license practices. Many people have made +generous contributions to the wide range of software distributed through that system +in reliance on consistent application of that system; it is up to the author/donor +to decide if he or she is willing to distribute software through any other system +and a licensee cannot impose that choice. + +This section is intended to make thoroughly clear what is believed to be a +consequence of the rest of this License. + +8. If the distribution and/or use of the Program is restricted in certain countries +either by patents or by copyrighted interfaces, the original copyright holder who +places the Program under this License may add an explicit geographical distribution +limitation excluding those countries, so that distribution is permitted only in or +among countries not thus excluded. In such case, this License incorporates the +limitation as if written in the body of this License. + +9. The Free Software Foundation may publish revised and/or new versions of the +General Public License from time to time. Such new versions will be similar in +spirit to the present version, but may differ in detail to address new problems or +concerns. + +Each version is given a distinguishing version number. If the Program specifies a +version number of this License which applies to it and "any later version", you have +the option of following the terms and conditions either of that version or of any +later version published by the Free Software Foundation. If the Program does not +specify a version number of this License, you may choose any version ever published +by the Free Software Foundation. + +10. If you wish to incorporate parts of the Program into other free programs whose +distribution conditions are different, write to the author to ask for permission. +For software which is copyrighted by the Free Software Foundation, write to the Free +Software Foundation; we sometimes make exceptions for this. Our decision will be +guided by the two goals of preserving the free status of all derivatives of our free +software and of promoting the sharing and reuse of software generally. + +NO WARRANTY + +11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE +PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN +WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" +WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT +LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH +YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY +SERVICING, REPAIR OR CORRECTION. + +12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY +COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM +AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, +INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE +PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE +OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE +WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE +POSSIBILITY OF SUCH DAMAGES. + +END OF TERMS AND CONDITIONS diff --git a/README-FIRST-RAMS.pdf b/README-FIRST-RAMS.pdf new file mode 100644 index 0000000..3e8a559 Binary files /dev/null and b/README-FIRST-RAMS.pdf differ diff --git a/bin.dp.grib1/Makefile b/bin.dp.grib1/Makefile new file mode 100755 index 0000000..3a99ced --- /dev/null +++ b/bin.dp.grib1/Makefile @@ -0,0 +1,76 @@ +#Makefile +############################################################################### +# Include definitions +############################################################################### +include ../include.mk +############################################################################### +# Compiler commands +############################################################################### +INCLUDES = $(UTILS_INCS) $(PAR_INCS) $(HDF5_INCS) +F_CD1 = $(F_COMP) -c $(F_OPTS1) $(INCLUDES) +F_CD2 = $(F_COMP) -c $(F_OPTS2) $(INCLUDES) +C_CD = $(C_COMP) -c $(C_OPTS) $(INCLUDES) $(PAR_DEFS) $(HDF5_DEFS) + +C_CM =$(C_CD) -D$(CMACH) $< && $(ARCH) $@ $( +#include +#include +#include +#include +#include +/* + * version 1.2.1 of grib headers w. ebisuzaki + * 1.2.2 added access to spectral reference value l. kornblueh + */ + +#ifndef INT2 +#define INT2(a,b) ((1-(int) ((unsigned) (a & 0x80) >> 6)) * (int) (((a & 0x7f) << 8) + b)) +#endif + +#define BDS_LEN(bds) (ec_large_grib ? len_ec_bds : ((int) ((bds[0]<<16)+(bds[1]<<8)+bds[2])) ) + +#define BDS_Flag(bds) (bds[3]) + +#define BDS_Grid(bds) ((bds[3] & 128) == 0) +#define BDS_Harmonic(bds) (bds[3] & 128) + +#define BDS_Packing(bds) ((bds[3] & 64) != 0) +#define BDS_SimplePacking(bds) ((bds[3] & 64) == 0) +#define BDS_ComplexPacking(bds) ((bds[3] & 64) != 0) + +#define BDS_OriginalType(bds) ((bds[3] & 32) != 0) +#define BDS_OriginalFloat(bds) ((bds[3] & 32) == 0) +#define BDS_OriginalInt(bds) ((bds[3] & 32) != 0) + +#define BDS_MoreFlags(bds) ((bds[3] & 16) != 0) +#define BDS_UnusedBits(bds) ((int) (bds[3] & 15)) + +#define BDS_BinScale(bds) INT2(bds[4],bds[5]) + +#define BDS_RefValue(bds) (ibm2flt(bds+6)) +#define BDS_NumBits(bds) ((int) bds[10]) + +#define BDS_Harmonic_RefValue(bds) (ibm2flt(bds+11)) + +#define BDS_DataStart(bds) ((int) (11 + BDS_MoreFlags(bds)*3)) +#define BDS_P1(bds) (bds[16] * 256 + bds[17]) +#define BDS_P2(bds) (bds[18] * 256 + bds[19]) + +/* undefined value -- if bitmap */ +#define UNDEFINED 9.999e20 + +/* version 1.2 of grib headers w. ebisuzaki */ + +#define BMS_LEN(bms) ((bms) == NULL ? 0 : (bms[0]<<16)+(bms[1]<<8)+bms[2]) +#define BMS_UnusedBits(bms) ((bms) == NULL ? 0 : bms[3]) +#define BMS_StdMap(bms) ((bms) == NULL ? 0 : ((bms[4]<<8) + bms[5])) +#define BMS_bitmap(bms) ((bms) == NULL ? NULL : (bms)+6) +#define BMS_nxny(bms) ((((bms) == NULL) || BMS_StdMap(bms)) \ + ? 0 : (BMS_LEN(bms)*8 - 48 - BMS_UnusedBits(bms))) +/* cnames_file.c */ + +/* search order for parameter names + * + * #define P_TABLE_FIRST + * look at external parameter table first + * + * otherwise use builtin NCEP-2 or ECMWF-160 first + */ +/* #define P_TABLE_FIRST */ + +/* search order for external parameter table + * 1) environment variable GRIBTAB + * 2) environment variable gribtab + * 3) the file 'gribtab' in current directory + */ + + +/* cnames.c */ +/* then default values */ +char *k5toa(unsigned char *pds); +char *k5_comments(unsigned char *pds); +int setup_user_table(int center, int subcenter, int ptable); + + +struct ParmTable { + /* char *name, *comment; */ + char *name, *comment; +}; +/* version 1.4.5 of grib headers w. ebisuzaki */ +/* this version is incomplete */ +/* 5/00 - dx/dy or di/dj controlled by bit 1 of resolution byte */ +/* 8/00 - dx/dy or di/dj for polar and lambert not controlled by res. byte */ +/* Added headers for the triangular grid of the gme model of DWD + Helmut P. Frank, 13.09.2001 */ +/* Clean up of triangular grid properties access and added spectral information + Luis Kornblueh, 27.03.2002 */ +/* 8/08 - dx/dy (polar,lambert) controlled by bit 1 of resolution byte */ +/* 5/11 Paul Schou: fixed GDS_Lambert_LonSP(gds) */ +/* 6/11 Jeffery S. Smith Albers equal area projection */ + +#ifndef INT3 +#define INT3(a,b,c) ((1-(int) ((unsigned) (a & 0x80) >> 6)) * (int) (((a & 127) << 16)+(b<<8)+c)) +#endif +#ifndef INT2 +#define INT2(a,b) ((1-(int) ((unsigned) (a & 0x80) >> 6)) * (int) (((a & 127) << 8) + b)) +#endif + +#ifndef UINT4 +#define UINT4(a,b,c,d) ((int) ((a << 24) + (b << 16) + (c << 8) + (d))) +#endif + +#ifndef UINT3 +#define UINT3(a,b,c) ((int) ((a << 16) + (b << 8) + (c))) +#endif + +#ifndef UINT2 +#define UINT2(a,b) ((int) ((a << 8) + (b))) +#endif + + +#define GDS_Len1(gds) (gds[0]) +#define GDS_Len2(gds) (gds[1]) +#define GDS_Len3(gds) (gds[2]) +#define GDS_LEN(gds) ((int) ((gds[0]<<16)+(gds[1]<<8)+gds[2])) + +#define GDS_NV(gds) (gds[3]) +#define GDS_DataType(gds) (gds[5]) + +#define GDS_LatLon(gds) (gds[5] == 0) +#define GDS_Mercator(gds) (gds[5] == 1) +#define GDS_Gnomonic(gds) (gds[5] == 2) +#define GDS_Lambert(gds) (gds[5] == 3) +#define GDS_Gaussian(gds) (gds[5] == 4) +#define GDS_Polar(gds) (gds[5] == 5) +#define GDS_Albers(gds) (gds[5] == 8) +#define GDS_RotLL(gds) (gds[5] == 10) +#define GDS_Harmonic(gds) (gds[5] == 50) +#define GDS_Triangular(gds) (gds[5] == 192) +#define GDS_ssEgrid(gds) (gds[5] == 201) /* semi-staggered E grid */ +#define GDS_fEgrid(gds) (gds[5] == 202) /* filled E grid */ +#define GDS_ss2dEgrid(gds) (gds[5] == 203) /* semi-staggered E grid 2 d*/ +#define GDS_ss2dBgrid(gds) (gds[5] == 205) /* semi-staggered B grid 2 d*/ + +#define GDS_has_dy(mode) ((mode) & 128) +#define GDS_LatLon_nx(gds) ((int) ((gds[6] << 8) + gds[7])) +#define GDS_LatLon_ny(gds) ((int) ((gds[8] << 8) + gds[9])) +#define GDS_LatLon_La1(gds) INT3(gds[10],gds[11],gds[12]) +#define GDS_LatLon_Lo1(gds) INT3(gds[13],gds[14],gds[15]) +#define GDS_LatLon_mode(gds) (gds[16]) +#define GDS_LatLon_La2(gds) INT3(gds[17],gds[18],gds[19]) +#define GDS_LatLon_Lo2(gds) INT3(gds[20],gds[21],gds[22]) + +#define GDS_LatLon_dx(gds) (gds[16] & 128 ? INT2(gds[23],gds[24]) : 0) +#define GDS_LatLon_dy(gds) (gds[16] & 128 ? INT2(gds[25],gds[26]) : 0) +#define GDS_Gaussian_nlat(gds) ((gds[25]<<8)+gds[26]) + +#define GDS_LatLon_scan(gds) (gds[27]) + +#define GDS_Polar_nx(gds) (gds[16] & 128 ? ((gds[6] << 8) + gds[7]) : 0) +#define GDS_Polar_ny(gds) (gds[16] & 128 ? ((gds[8] << 8) + gds[9]) : 0) +#define GDS_Polar_La1(gds) INT3(gds[10],gds[11],gds[12]) +#define GDS_Polar_Lo1(gds) INT3(gds[13],gds[14],gds[15]) +#define GDS_Polar_mode(gds) (gds[16]) +#define GDS_Polar_Lov(gds) INT3(gds[17],gds[18],gds[19]) +#define GDS_Polar_scan(gds) (gds[27]) +#define GDS_Polar_Dx(gds) INT3(gds[20], gds[21], gds[22]) +#define GDS_Polar_Dy(gds) INT3(gds[23], gds[24], gds[25]) +#define GDS_Polar_pole(gds) ((gds[26] & 128) == 128) + +#define GDS_Lambert_nx(gds) ((gds[6] << 8) + gds[7]) +#define GDS_Lambert_ny(gds) ((gds[8] << 8) + gds[9]) +#define GDS_Lambert_La1(gds) INT3(gds[10],gds[11],gds[12]) +#define GDS_Lambert_Lo1(gds) INT3(gds[13],gds[14],gds[15]) +#define GDS_Lambert_mode(gds) (gds[16]) +#define GDS_Lambert_Lov(gds) INT3(gds[17],gds[18],gds[19]) +#define GDS_Lambert_dx(gds) INT3(gds[20],gds[21],gds[22]) +#define GDS_Lambert_dy(gds) INT3(gds[23],gds[24],gds[25]) +#define GDS_Lambert_NP(gds) ((gds[26] & 128) == 0) +#define GDS_Lambert_scan(gds) (gds[27]) +#define GDS_Lambert_Latin1(gds) INT3(gds[28],gds[29],gds[30]) +#define GDS_Lambert_Latin2(gds) INT3(gds[31],gds[32],gds[33]) +#define GDS_Lambert_LatSP(gds) INT3(gds[34],gds[35],gds[36]) + +/* bug found by Paul Schou 5/3/2011 + #define GDS_Lambert_LonSP(gds) INT3(gds[37],gds[37],gds[37]) +*/ +#define GDS_Lambert_LonSP(gds) INT3(gds[37],gds[38],gds[39]) + +#define GDS_ssEgrid_n(gds) UINT2(gds[6],gds[7]) +#define GDS_ssEgrid_n_dum(gds) UINT2(gds[8],gds[9]) +#define GDS_ssEgrid_La1(gds) INT3(gds[10],gds[11],gds[12]) +#define GDS_ssEgrid_Lo1(gds) INT3(gds[13],gds[14],gds[15]) +#define GDS_ssEgrid_mode(gds) (gds[16]) +#define GDS_ssEgrid_La2(gds) UINT3(gds[17],gds[18],gds[19]) +#define GDS_ssEgrid_Lo2(gds) UINT3(gds[20],gds[21],gds[22]) +#define GDS_ssEgrid_di(gds) (gds[16] & 128 ? INT2(gds[23],gds[24]) : 0) +#define GDS_ssEgrid_dj(gds) (gds[16] & 128 ? INT2(gds[25],gds[26]) : 0) +#define GDS_ssEgrid_scan(gds) (gds[27]) + +#define GDS_fEgrid_n(gds) UINT2(gds[6],gds[7]) +#define GDS_fEgrid_n_dum(gds) UINT2(gds[8],gds[9]) +#define GDS_fEgrid_La1(gds) INT3(gds[10],gds[11],gds[12]) +#define GDS_fEgrid_Lo1(gds) INT3(gds[13],gds[14],gds[15]) +#define GDS_fEgrid_mode(gds) (gds[16]) +#define GDS_fEgrid_La2(gds) UINT3(gds[17],gds[18],gds[19]) +#define GDS_fEgrid_Lo2(gds) UINT3(gds[20],gds[21],gds[22]) +#define GDS_fEgrid_di(gds) (gds[16] & 128 ? INT2(gds[23],gds[24]) : 0) +#define GDS_fEgrid_dj(gds) (gds[16] & 128 ? INT2(gds[25],gds[26]) : 0) +#define GDS_fEgrid_scan(gds) (gds[27]) + +#define GDS_ss2dEgrid_nx(gds) UINT2(gds[6],gds[7]) +#define GDS_ss2dEgrid_ny(gds) UINT2(gds[8],gds[9]) +#define GDS_ss2dEgrid_La1(gds) INT3(gds[10],gds[11],gds[12]) +#define GDS_ss2dEgrid_Lo1(gds) INT3(gds[13],gds[14],gds[15]) +#define GDS_ss2dEgrid_mode(gds) (gds[16]) +#define GDS_ss2dEgrid_La2(gds) INT3(gds[17],gds[18],gds[19]) +#define GDS_ss2dEgrid_Lo2(gds) INT3(gds[20],gds[21],gds[22]) +#define GDS_ss2dEgrid_di(gds) (gds[16] & 128 ? INT2(gds[23],gds[24]) : 0) +#define GDS_ss2dEgrid_dj(gds) (gds[16] & 128 ? INT2(gds[25],gds[26]) : 0) +#define GDS_ss2dEgrid_scan(gds) (gds[27]) + +#define GDS_ss2dBgrid_nx(gds) UINT2(gds[6],gds[7]) +#define GDS_ss2dBgrid_ny(gds) UINT2(gds[8],gds[9]) +#define GDS_ss2dBgrid_La1(gds) INT3(gds[10],gds[11],gds[12]) +#define GDS_ss2dBgrid_Lo1(gds) INT3(gds[13],gds[14],gds[15]) +#define GDS_ss2dBgrid_mode(gds) (gds[16]) +#define GDS_ss2dBgrid_La2(gds) INT3(gds[17],gds[18],gds[19]) +#define GDS_ss2dBgrid_Lo2(gds) INT3(gds[20],gds[21],gds[22]) +#define GDS_ss2dBgrid_di(gds) (gds[16] & 128 ? INT2(gds[23],gds[24]) : 0) +#define GDS_ss2dBgrid_dj(gds) (gds[16] & 128 ? INT2(gds[25],gds[26]) : 0) +#define GDS_ss2dBgrid_scan(gds) (gds[27]) + + +#define GDS_Merc_nx(gds) UINT2(gds[6],gds[7]) +#define GDS_Merc_ny(gds) UINT2(gds[8],gds[9]) +#define GDS_Merc_La1(gds) INT3(gds[10],gds[11],gds[12]) +#define GDS_Merc_Lo1(gds) INT3(gds[13],gds[14],gds[15]) +#define GDS_Merc_mode(gds) (gds[16]) +#define GDS_Merc_La2(gds) INT3(gds[17],gds[18],gds[19]) +#define GDS_Merc_Lo2(gds) INT3(gds[20],gds[21],gds[22]) +#define GDS_Merc_Latin(gds) INT3(gds[23],gds[24],gds[25]) +#define GDS_Merc_scan(gds) (gds[27]) +#define GDS_Merc_dx(gds) (gds[16] & 128 ? INT3(gds[28],gds[29],gds[30]) : 0) +#define GDS_Merc_dy(gds) (gds[16] & 128 ? INT3(gds[31],gds[32],gds[33]) : 0) + +/* rotated Lat-lon grid */ + +#define GDS_RotLL_nx(gds) UINT2(gds[6],gds[7]) +#define GDS_RotLL_ny(gds) UINT2(gds[8],gds[9]) +#define GDS_RotLL_La1(gds) INT3(gds[10],gds[11],gds[12]) +#define GDS_RotLL_Lo1(gds) INT3(gds[13],gds[14],gds[15]) +#define GDS_RotLL_mode(gds) (gds[16]) +#define GDS_RotLL_La2(gds) INT3(gds[17],gds[18],gds[19]) +#define GDS_RotLL_Lo2(gds) INT3(gds[20],gds[21],gds[22]) +#define GDS_RotLL_dx(gds) (gds[16] & 128 ? INT2(gds[23],gds[24]) : 0) +#define GDS_RotLL_dy(gds) (gds[16] & 128 ? INT2(gds[25],gds[26]) : 0) +#define GDS_RotLL_scan(gds) (gds[27]) +#define GDS_RotLL_LaSP(gds) INT3(gds[32],gds[33],gds[34]) +#define GDS_RotLL_LoSP(gds) INT3(gds[35],gds[36],gds[37]) +#define GDS_RotLL_RotAng(gds) ibm2flt(&(gds[38])) + +/* Triangular grid of DWD */ +#define GDS_Triangular_ni2(gds) INT2(gds[6],gds[7]) +#define GDS_Triangular_ni3(gds) INT2(gds[8],gds[9]) +#define GDS_Triangular_ni(gds) INT3(gds[13],gds[14],gds[15]) +#define GDS_Triangular_nd(gds) INT3(gds[10],gds[11],gds[12]) + +/* Harmonics data */ +#define GDS_Harmonic_nj(gds) ((int) ((gds[6] << 8) + gds[7])) +#define GDS_Harmonic_nk(gds) ((int) ((gds[8] << 8) + gds[9])) +#define GDS_Harmonic_nm(gds) ((int) ((gds[10] << 8) + gds[11])) +#define GDS_Harmonic_type(gds) (gds[12]) +#define GDS_Harmonic_mode(gds) (gds[13]) + +/* index of NV and PV */ +#define GDS_PV(gds) ((gds[3] == 0) ? -1 : (int) gds[4] - 1) +#define GDS_PL(gds) ((gds[4] == 255) ? -1 : (int) gds[3] * 4 + (int) gds[4] - 1) + +enum Def_NCEP_Table {rean, opn, rean_nowarn, opn_nowarn}; + +unsigned char *seek_grib(FILE *file, unsigned long *pos, long *len_grib, + unsigned char *buffer, unsigned int buf_len); + +int read_grib(FILE *file, long pos, long len_grib, unsigned char *buffer); + +long echack(FILE *file, long pos, long len_grib); + +double ibm2flt(unsigned char *ibm); + +void BDS_unpack(float *flt, unsigned char *bds, unsigned char *bitmap, + int n_bits, int n, double ref, double scale); + +int BDS_NValues(unsigned char *bds); + +double int_power(double x, int y); + +int flt2ieee(float x, unsigned char *ieee); + +int wrtieee(float *array, int n, int header, FILE *output); +int wrtieee_header(unsigned int n, FILE *output); + +void levels(int, int, int, int verbose); + +void PDStimes(int time_range, int p1, int p2, int time_unit); + +int missing_points(unsigned char *bitmap, int n); + +void EC_ext(unsigned char *pds, char *prefix, char *suffix, int verbose); + +int GDS_grid(unsigned char *gds, unsigned char *bds, int *nx, int *ny, + long int *nxny); + +void GDS_prt_thin_lon(unsigned char *gds); + +void GDS_winds(unsigned char *gds, int verbose); + +int PDS_date(unsigned char *pds, int option, int verf_time); + +int add_time(int *year, int *month, int *day, int *hour, int dtime, int unit); + +int verf_time(unsigned char *pds, int *year, int *month, int *day, int *hour); + +void print_pds(unsigned char *pds, int print_PDS, int print_PDS10, int verbose); +void print_gds(unsigned char *gds, int print_GDS, int print_GDS10, int verbose); + +void ensemble(unsigned char *pds, int mode); +/* version 3.4 of grib headers w. ebisuzaki */ +/* this version is incomplete */ +/* add center DWD Helmut P. Frank */ +/* 10/02 add center CPTEC */ +/* 29/04/2005 add center CHM Luiz Claudio M. Fonseca*/ +/* 11/2008 add center LAMI Davide Sacchetti */ + +#ifndef INT2 +#define INT2(a,b) ((1-(int) ((unsigned) (a & 0x80) >> 6)) * (int) (((a & 0x7f) << 8) + b)) +#endif +#ifndef UINT4 +#define UINT4(a,b,c,d) ((int) ((a << 24) + (b << 16) + (c << 8) + (d))) +#endif +#ifndef UINT2 +#define UINT2(a,b) ((int) ((a << 8) + (b))) +#endif +#define __LEN24(pds) ((pds) == NULL ? 0 : (int) ((pds[0]<<16)+(pds[1]<<8)+pds[2])) + +#define PDS_Len1(pds) (pds[0]) +#define PDS_Len2(pds) (pds[1]) +#define PDS_Len3(pds) (pds[2]) +#define PDS_LEN(pds) ((int) ((pds[0]<<16)+(pds[1]<<8)+pds[2])) +#define PDS_Vsn(pds) (pds[3]) +#define PDS_Center(pds) (pds[4]) +#define PDS_Model(pds) (pds[5]) +#define PDS_Grid(pds) (pds[6]) +#define PDS_HAS_GDS(pds) ((pds[7] & 128) != 0) +#define PDS_HAS_BMS(pds) ((pds[7] & 64) != 0) +#define PDS_PARAM(pds) (pds[8]) +#define PDS_L_TYPE(pds) (pds[9]) +#define PDS_LEVEL1(pds) (pds[10]) +#define PDS_LEVEL2(pds) (pds[11]) + +#define PDS_KPDS5(pds) (pds[8]) +#define PDS_KPDS6(pds) (pds[9]) +#define PDS_KPDS7(pds) ((int) ((pds[10]<<8) + pds[11])) + +/* this requires a 32-bit default integer machine */ +#define PDS_Field(pds) ((pds[8]<<24)+(pds[9]<<16)+(pds[10]<<8)+pds[11]) + +#define PDS_Year(pds) (pds[12]) +#define PDS_Month(pds) (pds[13]) +#define PDS_Day(pds) (pds[14]) +#define PDS_Hour(pds) (pds[15]) +#define PDS_Minute(pds) (pds[16]) +#define PDS_ForecastTimeUnit(pds) (pds[17]) +#define PDS_P1(pds) (pds[18]) +#define PDS_P2(pds) (pds[19]) +#define PDS_TimeRange(pds) (pds[20]) +#define PDS_NumAve(pds) ((int) ((pds[21]<<8)+pds[22])) +#define PDS_NumMissing(pds) (pds[23]) +#define PDS_Century(pds) (pds[24]) +#define PDS_Subcenter(pds) (pds[25]) +#define PDS_DecimalScale(pds) INT2(pds[26],pds[27]) +/* old #define PDS_Year4(pds) (pds[12] + 100*(pds[24] - (pds[12] != 0))) */ +#define PDS_Year4(pds) (pds[12] + 100*(pds[24] - 1)) + +/* various centers */ +#define NMC 7 +#define JMA 34 +#define ECMWF 98 +#define DWD 78 +#define CMC 54 +#define CPTEC 46 +#define CHM 146 +#define LAMI 200 + +/* ECMWF Extensions */ + +#define PDS_EcLocalId(pds) (PDS_LEN(pds) >= 41 ? (pds[40]) : 0) +#define PDS_EcClass(pds) (PDS_LEN(pds) >= 42 ? (pds[41]) : 0) +#define PDS_EcType(pds) (PDS_LEN(pds) >= 43 ? (pds[42]) : 0) +#define PDS_EcStream(pds) (PDS_LEN(pds) >= 45 ? (INT2(pds[43], pds[44])) : 0) + +#define PDS_EcENS(pds) (PDS_LEN(pds) >= 52 && pds[40] == 1 && \ + pds[43] * 256 + pds[44] == 1035 && pds[50] != 0) +#define PDS_EcFcstNo(pds) (pds[49]) + +#define PDS_Ec16Version(pds) (pds + 45) +#define PDS_Ec16Number(pds) (PDS_EcLocalId(pds) == 16 ? UINT2(pds[49],pds[50]) : 0) +#define PDS_Ec16SysNum(pds) (PDS_EcLocalId(pds) == 16 ? UINT2(pds[51],pds[52]) : 0) +#define PDS_Ec16MethodNum(pds) (PDS_EcLocalId(pds) == 16 ? UINT2(pds[53],pds[54]) : 0) +#define PDS_Ec16VerfMon(pds) (PDS_EcLocalId(pds) == 16 ? UINT4(pds[55],pds[56],pds[57],pds[58]) : 0) +#define PDS_Ec16AvePeriod(pds) (PDS_EcLocalId(pds) == 16 ? pds[59] : 0) +#define PDS_Ec16FcstMon(pds) (PDS_EcLocalId(pds) == 16 ? UINT2(pds[60],pds[61]) : 0) + +/* NCEP Extensions */ + +#define PDS_NcepENS(pds) (PDS_LEN(pds) >= 44 && pds[25] == 2 && pds[40] == 1) +#define PDS_NcepFcstType(pds) (pds[41]) +#define PDS_NcepFcstNo(pds) (pds[42]) +#define PDS_NcepFcstProd(pds) (pds[43]) + +/* time units */ + +#define MINUTE 0 +#define HOUR 1 +#define DAY 2 +#define MONTH 3 +#define YEAR 4 +#define DECADE 5 +#define NORMAL 6 +#define CENTURY 7 +#define HOURS3 10 +#define HOURS6 11 +#define HOURS12 12 +#define MINUTES15 13 +#define MINUTES30 14 +#define SECOND 254 + + + +#define VERSION "v1.8.2 (3-17) Wesley Ebisuzaki\n\t\tDWD-tables 2,201-205 (11-28-2005) Helmut P. Frank\n\t\tspectral: Luis Kornblueh (MPI)" + +#define CHECK_GRIB +/* #define DEBUG */ + +/* + * wgrib.c is placed into the public domain. While you could + * legally do anything you want with the code, telling the world + * that you wrote it would be uncool. Selling it would be really + * uncool. The code was originally written for NMC/NCAR Reanalysis + * and handles most GRIB files except for the ECMWF spectral files. + * (ECMWF's spectral->grid code are copyrighted and in FORTRAN.) + * The code, as usual, is not waranteed to be fit for any purpose + * what so ever. However, wgrib is operational NCEP code, so it + * better work for our files. + */ + +/* + * wgrib.c extract/inventory grib records + * + * Wesley Ebisuzaki + * + * See Changes for update information + * + */ + +/* + * MSEEK = I/O buffer size for seek_grib + */ + +#define MSEEK 1024 +#define BUFF_ALLOC0 40000 + + +#ifndef min +#define min(a,b) ((a) < (b) ? (a) : (b)) +#define max(a,b) ((a) < (b) ? (b) : (a)) +#endif + +#ifndef DEF_T62_NCEP_TABLE +#define DEF_T62_NCEP_TABLE rean +#endif +enum Def_NCEP_Table def_ncep_table = DEF_T62_NCEP_TABLE; +int minute = 0; +int ncep_ens = 0; +int cmc_eq_ncep = 0; +extern int ec_large_grib, len_ec_bds; + +int main(int argc, char **argv) { + + unsigned char *buffer; + float *array; + double temp, rmin, rmax; + int i, nx, ny, file_arg; + long int len_grib, nxny, buffer_size, n_dump, count = 1; + long unsigned pos = 0; + unsigned char *msg, *pds, *gds, *bms, *bds, *pointer, *end_msg; + FILE *input, *dump_file = NULL; + char line[2000]; + enum {BINARY, TEXT, IEEE, GRIB, NONE} output_type = NONE; + enum {DUMP_ALL, DUMP_RECORD, DUMP_POSITION, DUMP_LIST, INVENTORY} + mode = INVENTORY; + enum {none, dwd, simple} header = simple; + + long int dump = -1; + int verbose = 0, append = 0, v_time = 0, year_4 = 0, output_PDS_GDS = 0; + int print_GDS = 0, print_GDS10 = 0, print_PDS = 0, print_PDS10 = 0; + char *dump_file_name = "dump", open_parm[3]; + int return_code = 0; + + if (argc == 1) { + fprintf(stderr, "\nPortable Grib decoder for %s etc.\n", + (def_ncep_table == opn_nowarn || def_ncep_table == opn) ? + "NCEP Operations" : "NCEP/NCAR Reanalysis"); + fprintf(stderr, " it slices, dices %s\n", VERSION); + fprintf(stderr, " usage: %s [grib file] [options]\n\n", argv[0]); + + fprintf(stderr, "Inventory/diagnostic-output selections\n"); + fprintf(stderr, " -s/-v short/verbose inventory\n"); + fprintf(stderr, " -V diagnostic output (not inventory)\n"); + fprintf(stderr, " (none) regular inventory\n"); + + fprintf(stderr, " Options\n"); + fprintf(stderr, " -PDS/-PDS10 print PDS in hex/decimal\n"); + fprintf(stderr, " -GDS/-GDS10 print GDS in hex/decimal\n"); + fprintf(stderr, " -verf print forecast verification time\n"); + fprintf(stderr, " -ncep_opn/-ncep_rean default T62 NCEP grib table\n"); + fprintf(stderr, " -4yr print year using 4 digits\n"); + fprintf(stderr, " -min print minutes\n"); + fprintf(stderr, " -ncep_ens ensemble info encoded in ncep format\n"); + + fprintf(stderr, "Decoding GRIB selection\n"); + fprintf(stderr, " -d [record number|all] decode record number\n"); + fprintf(stderr, " -p [byte position] decode record at byte position\n"); + fprintf(stderr, " -i decode controlled by stdin (inventory list)\n"); + fprintf(stderr, " (none) no decoding\n"); + + fprintf(stderr, " Options\n"); + fprintf(stderr, " -text/-ieee/-grib/-bin convert to text/ieee/grib/bin (default)\n"); + fprintf(stderr, " -nh/-h output will have no headers/headers (default)\n"); + fprintf(stderr, " -dwdgrib output dwd headers, grib (do not append)\n"); + fprintf(stderr, " -H output will include PDS and GDS (-bin/-ieee only)\n"); + fprintf(stderr, " -append append to output file\n"); + fprintf(stderr, " -o [file] output file name, 'dump' is default\n"); + fprintf(stderr, " Misc\n"); + fprintf(stderr, " -cmc [file] use NCEP tables for CMC (dangerous)\n"); + exit(8); + } + file_arg = 0; + for (i = 1; i < argc; i++) { + if (strcmp(argv[i],"-PDS") == 0) { + print_PDS = 1; + continue; + } + if (strcmp(argv[i],"-PDS10") == 0) { + print_PDS10 = 1; + continue; + } + if (strcmp(argv[i],"-GDS") == 0) { + print_GDS = 1; + continue; + } + if (strcmp(argv[i],"-GDS10") == 0) { + print_GDS10 = 1; + continue; + } + if (strcmp(argv[i],"-v") == 0) { + verbose = 1; + continue; + } + if (strcmp(argv[i],"-V") == 0) { + verbose = 2; + continue; + } + if (strcmp(argv[i],"-s") == 0) { + verbose = -1; + continue; + } + if (strcmp(argv[i],"-text") == 0) { + output_type = TEXT; + continue; + } + if (strcmp(argv[i],"-bin") == 0) { + output_type = BINARY; + continue; + } + if (strcmp(argv[i],"-ieee") == 0) { + output_type = IEEE; + continue; + } + if (strcmp(argv[i],"-grib") == 0) { + output_type = GRIB; + continue; + } + if (strcmp(argv[i],"-nh") == 0) { + header = none; + continue; + } + if (strcmp(argv[i],"-h") == 0) { + header = simple; + continue; + } + if (strcmp(argv[i],"-dwdgrib") == 0) { + header = dwd; + output_type = GRIB; + continue; + } + if (strcmp(argv[i],"-append") == 0) { + append = 1; + continue; + } + if (strcmp(argv[i],"-verf") == 0) { + v_time = 1; + continue; + } + if (strcmp(argv[i],"-cmc") == 0) { + cmc_eq_ncep = 1; + continue; + } + if (strcmp(argv[i],"-d") == 0) { + if (strcmp(argv[i+1],"all") == 0) { + mode = DUMP_ALL; + } + else { + dump = atol(argv[i+1]); + mode = DUMP_RECORD; + } + i++; + if (output_type == NONE) output_type = BINARY; + continue; + } + if (strcmp(argv[i],"-p") == 0) { + pos = atol(argv[i+1]); + i++; + dump = 1; + if (output_type == NONE) output_type = BINARY; + mode = DUMP_POSITION; + continue; + } + if (strcmp(argv[i],"-i") == 0) { + if (output_type == NONE) output_type = BINARY; + mode = DUMP_LIST; + continue; + } + if (strcmp(argv[i],"-H") == 0) { + output_PDS_GDS = 1; + continue; + } + if (strcmp(argv[i],"-NH") == 0) { + output_PDS_GDS = 0; + continue; + } + if (strcmp(argv[i],"-4yr") == 0) { + year_4 = 1; + continue; + } + if (strcmp(argv[i],"-ncep_opn") == 0) { + def_ncep_table = opn_nowarn; + continue; + } + if (strcmp(argv[i],"-ncep_rean") == 0) { + def_ncep_table = rean_nowarn; + continue; + } + if (strcmp(argv[i],"-o") == 0) { + dump_file_name = argv[i+1]; + i++; + continue; + } + if (strcmp(argv[i],"--v") == 0) { + printf("wgrib: %s\n", VERSION); + exit(0); + } + if (strcmp(argv[i],"-min") == 0) { + minute = 1; + continue; + } + if (strcmp(argv[i],"-ncep_ens") == 0) { + ncep_ens = 1; + continue; + } + if (file_arg == 0) { + file_arg = i; + } + else { + fprintf(stderr,"argument: %s ????\n", argv[i]); + } + } + if (file_arg == 0) { + fprintf(stderr,"no GRIB file to process\n"); + exit(8); + } + if ((input = fopen(argv[file_arg],"rb")) == NULL) { + fprintf(stderr,"could not open file: %s\n", argv[file_arg]); + exit(7); + } + + if ((buffer = (unsigned char *) malloc(BUFF_ALLOC0)) == NULL) { + fprintf(stderr,"not enough memory\n"); + } + buffer_size = BUFF_ALLOC0; + + /* open output file */ + if (mode != INVENTORY) { + open_parm[0] = append ? 'a' : 'w'; open_parm[1] = 'b'; open_parm[2] = '\0'; + if (output_type == TEXT) open_parm[1] = '\0'; + + //Saleeby:adding this if statement instead of the 4 commented lines below + if (strcmp(dump_file_name,"-") != 0) { + if ((dump_file = fopen(dump_file_name,open_parm)) == NULL) { + fprintf(stderr,"could not open dump file\n"); + exit(8); + } + } else { + dump_file = stdout; + } + //Saleeby:commented these 4 lines + //if ((dump_file = fopen(dump_file_name,open_parm)) == NULL) { + // fprintf(stderr,"could not open dump file\n"); + // exit(8); + //} + if (header == dwd && output_type == GRIB) wrtieee_header(0, dump_file); + } + + /* skip dump - 1 records */ + for (i = 1; i < dump; i++) { + msg = seek_grib(input, &pos, &len_grib, buffer, MSEEK); + if (msg == NULL) { + fprintf(stderr, "ran out of data or bad file\n"); + exit(8); + } + pos += len_grib; + } + if (dump > 0) count += dump - 1; + n_dump = 0; + + for (;;) { + if (n_dump == 1 && (mode == DUMP_RECORD || mode == DUMP_POSITION)) break; + if (mode == DUMP_LIST) { + if (fgets(line,sizeof(line), stdin) == NULL) break; + line[sizeof(line) - 1] = 0; + if (sscanf(line,"%ld:%lu:", &count, &pos) != 2) { + fprintf(stderr,"bad input from stdin\n"); + fprintf(stderr," %s\n", line); + exit(8); + } + } + +fail: + msg = seek_grib(input, &pos, &len_grib, buffer, MSEEK); + if (msg == NULL) { + if (mode == INVENTORY || mode == DUMP_ALL) break; + fprintf(stderr,"missing GRIB record(s)\n"); + exit(8); + } + + /* read all whole grib record */ + if (len_grib + msg - buffer > buffer_size) { + buffer_size = len_grib + msg - buffer + 1000; + buffer = (unsigned char *) realloc((void *) buffer, buffer_size); + if (buffer == NULL) { + fprintf(stderr,"ran out of memory\n"); + exit(8); + } + } + if (read_grib(input, pos, len_grib, buffer) == 0) { + fprintf(stderr,"error, could not read to end of record %ld\n",count); + exit(8); + } + + /* parse grib message */ + + msg = buffer; + end_msg = msg + len_grib - 1; + + /* check if last 4 bytes are '7777' */ + +// simple check is for last 4 bytes == '7777' +// better check to see if pointers don't go past end_msg +// if (end_msg[0] != 0x37 || end_msg[-1] != 0x37 || end_msg[-2] != 0x37 || end_msg[-3] != 0x37) { +// fprintf(stderr,"Skipping illegal grib1 message: error expected ending 7777\n"); +// pos++; +// goto fail; +// } + + if (msg + 8 + 27 > end_msg) { + pos++; + goto fail; + } + + pds = (msg + 8); + pointer = pds + PDS_LEN(pds); + + if (pointer > end_msg) { + pos++; + goto fail; + } + + if (PDS_HAS_GDS(pds)) { + gds = pointer; + pointer += GDS_LEN(gds); + if (pointer > end_msg) { + pos++; + goto fail; + } + } + else { + gds = NULL; + } + + if (PDS_HAS_BMS(pds)) { + bms = pointer; + pointer += BMS_LEN(bms); + } + else { + bms = NULL; + } + + if (pointer+10 > end_msg) { + pos++; + goto fail; + } + + bds = pointer; + pointer += BDS_LEN(bds); + + if (pointer-msg+4 != len_grib) { + fprintf(stderr,"Len of grib message is inconsistent.\n"); + } + + /* end section - "7777" in ascii */ + if (pointer[0] != 0x37 || pointer[1] != 0x37 || + pointer[2] != 0x37 || pointer[3] != 0x37) { + fprintf(stderr,"\n\n missing end section\n"); + fprintf(stderr, "%2x %2x %2x %2x\n", pointer[0], pointer[1], + pointer[2], pointer[3]); +#ifdef DEBUG + printf("ignoring missing end section\n"); +#else + exit(8); +#endif + } + + /* figure out size of array */ + if (gds != NULL) { + GDS_grid(gds, bds, &nx, &ny, &nxny); + } + else if (bms != NULL) { + nxny = nx = BMS_nxny(bms); + ny = 1; + } + else { + if (BDS_NumBits(bds) == 0) { + nxny = nx = 1; + fprintf(stderr,"Missing GDS, constant record .. cannot " + "determine number of data points\n"); + } + else { + nxny = nx = BDS_NValues(bds); + } + ny = 1; + } +#ifdef CHECK_GRIB + if (gds && ! GDS_Harmonic(gds)) { + /* this grib check only works for simple packing */ + /* turn off if harmonic */ + if (BDS_NumBits(bds) != 0) { + i = BDS_NValues(bds); + if (bms != NULL) { + i += missing_points(BMS_bitmap(bms),nxny); + } + if (i != nxny) { + fprintf(stderr,"grib header at record %ld: two values of nxny %ld %d\n", + count,nxny,i); + fprintf(stderr," LEN %d DataStart %d UnusedBits %d #Bits %d nxny %ld\n", + BDS_LEN(bds), BDS_DataStart(bds),BDS_UnusedBits(bds), + BDS_NumBits(bds), nxny); + return_code = 15; + nxny = nx = i; + ny = 1; + } + } + + } +#endif + //Saleeby: adding this 1 line below + if (verbose <= 0 && dump_file != stdout) { + //Saleeby: commenting out 1 line below. Replace with 1 line above. + //if (verbose <= 0) { + printf("%ld:%lu:d=", count, pos); + PDS_date(pds,year_4,v_time); + printf(":%s:", k5toa(pds)); + + if (verbose == 0) printf("kpds5=%d:kpds6=%d:kpds7=%d:TR=%d:P1=%d:P2=%d:TimeU=%d:", + PDS_PARAM(pds),PDS_KPDS6(pds),PDS_KPDS7(pds), + PDS_TimeRange(pds),PDS_P1(pds),PDS_P2(pds), + PDS_ForecastTimeUnit(pds)); + levels(PDS_KPDS6(pds), PDS_KPDS7(pds),PDS_Center(pds),verbose); printf(":"); + PDStimes(PDS_TimeRange(pds),PDS_P1(pds),PDS_P2(pds), + PDS_ForecastTimeUnit(pds)); + if (PDS_Center(pds) == ECMWF) EC_ext(pds,"",":",verbose); + ensemble(pds, verbose); + printf("NAve=%d",PDS_NumAve(pds)); + if (print_PDS || print_PDS10) print_pds(pds, print_PDS, print_PDS10, verbose); + if (gds && (print_GDS || print_GDS10)) print_gds(gds, print_GDS, print_GDS10, verbose); + printf("\n"); + } + //Saleeby: add 1 line below + else if (verbose == 1 && dump_file != stdout) { + //Saleeby: commenting out 1 line below. Replace with 1 line above. + //else if (verbose == 1) { + printf("%ld:%lu:D=", count, pos); + PDS_date(pds, 1, v_time); + printf(":%s:", k5toa(pds)); + levels(PDS_KPDS6(pds), PDS_KPDS7(pds), PDS_Center(pds),verbose); printf(":"); + printf("kpds=%d,%d,%d:", + PDS_PARAM(pds),PDS_KPDS6(pds),PDS_KPDS7(pds)); + PDStimes(PDS_TimeRange(pds),PDS_P1(pds),PDS_P2(pds), + PDS_ForecastTimeUnit(pds)); + if (PDS_Center(pds) == ECMWF) EC_ext(pds,"",":",verbose); + ensemble(pds, verbose); + GDS_winds(gds, verbose); + printf("\"%s", k5_comments(pds)); + if (print_PDS || print_PDS10) print_pds(pds, print_PDS, print_PDS10, verbose); + if (gds && (print_GDS || print_GDS10)) print_gds(gds, print_GDS, print_GDS10, verbose); + printf("\n"); + } + //Saleeby: add 1 line below + else if (verbose == 2 && dump_file != stdout) { + //Saleeby: commenting out 1 line below. Replace with 1 line above. + //else if (verbose == 2) { + printf("rec %ld:%lu:date ", count, pos); + PDS_date(pds, 1, v_time); + printf(" %s kpds5=%d kpds6=%d kpds7=%d levels=(%d,%d) grid=%d ", + k5toa(pds), PDS_PARAM(pds), PDS_KPDS6(pds), PDS_KPDS7(pds), + PDS_LEVEL1(pds), PDS_LEVEL2(pds), PDS_Grid(pds)); + levels(PDS_KPDS6(pds),PDS_KPDS7(pds),PDS_Center(pds),verbose); + + printf(" "); + if (PDS_Center(pds) == ECMWF) EC_ext(pds,""," ",verbose); + ensemble(pds, verbose); + PDStimes(PDS_TimeRange(pds),PDS_P1(pds),PDS_P2(pds), + PDS_ForecastTimeUnit(pds)); + if (bms != NULL) + printf(" bitmap: %d undef", missing_points(BMS_bitmap(bms),nxny)); + printf("\n %s=%s\n", k5toa(pds), k5_comments(pds)); + + printf(" timerange %d P1 %d P2 %d TimeU %d nx %d ny %d GDS grid %d " + "num_in_ave %d missing %d\n", + PDS_TimeRange(pds),PDS_P1(pds),PDS_P2(pds), + PDS_ForecastTimeUnit(pds), nx, ny, + gds == NULL ? -1 : GDS_DataType(gds), + PDS_NumAve(pds), PDS_NumMissing(pds)); + + printf(" center %d subcenter %d process %d Table %d", + PDS_Center(pds),PDS_Subcenter(pds),PDS_Model(pds), + PDS_Vsn(pds)); + GDS_winds(gds, verbose); + printf("\n"); + + if (gds && GDS_LatLon(gds) && nx != -1) + printf(" latlon: lat %f to %f by %f nxny %ld\n" + " long %f to %f by %f, (%d x %d) scan %d " + "mode %d bdsgrid %d\n", + 0.001*GDS_LatLon_La1(gds), 0.001*GDS_LatLon_La2(gds), + 0.001*GDS_LatLon_dy(gds), nxny, 0.001*GDS_LatLon_Lo1(gds), + 0.001*GDS_LatLon_Lo2(gds), 0.001*GDS_LatLon_dx(gds), + nx, ny, GDS_LatLon_scan(gds), GDS_LatLon_mode(gds), + BDS_Grid(bds)); + else if (gds && GDS_LatLon(gds) && nx == -1) { + printf(" thinned latlon: lat %f to %f by %f nxny %ld\n" + " long %f to %f, %ld grid pts (%d x %d) scan %d" + " mode %d bdsgrid %d\n", + 0.001*GDS_LatLon_La1(gds), 0.001*GDS_LatLon_La2(gds), + 0.001*GDS_LatLon_dy(gds), nxny, 0.001*GDS_LatLon_Lo1(gds), + 0.001*GDS_LatLon_Lo2(gds), + nxny, nx, ny, GDS_LatLon_scan(gds), GDS_LatLon_mode(gds), + BDS_Grid(bds)); + GDS_prt_thin_lon(gds); + } + else if (gds && GDS_Gaussian(gds) && nx != -1) + printf(" gaussian: lat %f to %f\n" + " long %f to %f by %f, (%d x %d) scan %d" + " mode %d bdsgrid %d\n", + 0.001*GDS_LatLon_La1(gds), 0.001*GDS_LatLon_La2(gds), + 0.001*GDS_LatLon_Lo1(gds), 0.001*GDS_LatLon_Lo2(gds), + 0.001*GDS_LatLon_dx(gds), + nx, ny, GDS_LatLon_scan(gds), GDS_LatLon_mode(gds), + BDS_Grid(bds)); + else if (gds && GDS_Gaussian(gds) && nx == -1) { + printf(" thinned gaussian: lat %f to %f\n" + " long %f to %f, %ld grid pts (%d x %d) scan %d" + " mode %d bdsgrid %d\n", + 0.001*GDS_LatLon_La1(gds), 0.001*GDS_LatLon_La2(gds), + 0.001*GDS_LatLon_Lo1(gds), 0.001*GDS_LatLon_Lo2(gds), + nxny, nx, ny, GDS_LatLon_scan(gds), GDS_LatLon_mode(gds), + BDS_Grid(bds)); + GDS_prt_thin_lon(gds); + } + else if (gds && GDS_Polar(gds)) + printf(" polar stereo: Lat1 %f Long1 %f Orient %f\n" + " %s pole (%d x %d) Dx %d Dy %d scan %d mode %d\n", + 0.001*GDS_Polar_La1(gds),0.001*GDS_Polar_Lo1(gds), + 0.001*GDS_Polar_Lov(gds), + GDS_Polar_pole(gds) == 0 ? "north" : "south", nx,ny, + GDS_Polar_Dx(gds),GDS_Polar_Dy(gds), + GDS_Polar_scan(gds), GDS_Polar_mode(gds)); + else if (gds && GDS_Lambert(gds)) + printf(" Lambert Conf: Lat1 %f Lon1 %f Lov %f\n" + " Latin1 %f Latin2 %f LatSP %f LonSP %f\n" + " %s (%d x %d) Dx %f Dy %f scan %d mode %d\n", + 0.001*GDS_Lambert_La1(gds),0.001*GDS_Lambert_Lo1(gds), + 0.001*GDS_Lambert_Lov(gds), + 0.001*GDS_Lambert_Latin1(gds), 0.001*GDS_Lambert_Latin2(gds), + 0.001*GDS_Lambert_LatSP(gds), 0.001*GDS_Lambert_LonSP(gds), + GDS_Lambert_NP(gds) ? "North Pole": "South Pole", + GDS_Lambert_nx(gds), GDS_Lambert_ny(gds), + 0.001*GDS_Lambert_dx(gds), 0.001*GDS_Lambert_dy(gds), + GDS_Lambert_scan(gds), GDS_Lambert_mode(gds)); + else if (gds && GDS_Albers(gds)) + /* Albers equal area has same parameters as Lambert conformal */ + printf(" Albers Equal-Area: Lat1 %f Lon1 %f Lov %f\n" + " Latin1 %f Latin2 %f LatSP %f LonSP %f\n" + " %s (%d x %d) Dx %f Dy %f scan %d mode %d\n", + 0.001*GDS_Lambert_La1(gds),0.001*GDS_Lambert_Lo1(gds), + 0.001*GDS_Lambert_Lov(gds), + 0.001*GDS_Lambert_Latin1(gds), 0.001*GDS_Lambert_Latin2(gds), + 0.001*GDS_Lambert_LatSP(gds), 0.001*GDS_Lambert_LonSP(gds), + GDS_Lambert_NP(gds) ? "North Pole": "South Pole", + GDS_Lambert_nx(gds), GDS_Lambert_ny(gds), + 0.001*GDS_Lambert_dx(gds), 0.001*GDS_Lambert_dy(gds), + GDS_Lambert_scan(gds), GDS_Lambert_mode(gds)); + else if (gds && GDS_Mercator(gds)) + printf(" Mercator: lat %f to %f by %f km nxny %ld\n" + " long %f to %f by %f km, (%d x %d) scan %d" + " mode %d Latin %f bdsgrid %d\n", + 0.001*GDS_Merc_La1(gds), 0.001*GDS_Merc_La2(gds), + 0.001*GDS_Merc_dy(gds), nxny, 0.001*GDS_Merc_Lo1(gds), + 0.001*GDS_Merc_Lo2(gds), 0.001*GDS_Merc_dx(gds), + nx, ny, GDS_Merc_scan(gds), GDS_Merc_mode(gds), + 0.001*GDS_Merc_Latin(gds), BDS_Grid(bds)); + else if (gds && GDS_ssEgrid(gds)) + printf(" Semi-staggered Arakawa E-Grid: lat0 %f lon0 %f nxny %d\n" + " dLat %f dLon %f (%d x %d) scan %d mode %d\n", + 0.001*GDS_ssEgrid_La1(gds), 0.001*GDS_ssEgrid_Lo1(gds), + GDS_ssEgrid_n(gds)*GDS_ssEgrid_n_dum(gds), + 0.001*GDS_ssEgrid_dj(gds), 0.001*GDS_ssEgrid_di(gds), + GDS_ssEgrid_Lo2(gds), GDS_ssEgrid_La2(gds), + GDS_ssEgrid_scan(gds), GDS_ssEgrid_mode(gds)); + else if (gds && GDS_ss2dEgrid(gds)) + printf(" Semi-staggered Arakawa E-Grid (2D): lat0 %f lon0 %f nxny %d\n" + " dLat %f dLon %f (tlm0d %f tph0d %f) scan %d mode %d\n", + 0.001*GDS_ss2dEgrid_La1(gds), 0.001*GDS_ss2dEgrid_Lo1(gds), + GDS_ss2dEgrid_nx(gds)*GDS_ss2dEgrid_ny(gds), + 0.001*GDS_ss2dEgrid_dj(gds), 0.001*GDS_ss2dEgrid_di(gds), + 0.001*GDS_ss2dEgrid_Lo2(gds), 0.001*GDS_ss2dEgrid_La2(gds), + GDS_ss2dEgrid_scan(gds), GDS_ss2dEgrid_mode(gds)); + else if (gds && GDS_ss2dBgrid(gds)) + printf(" Semi-staggered Arakawa B-Grid (2D): lat0 %f lon0 %f nxny %d\n" + " dLat %f dLon %f (tlm0d %f tph0d %f) scan %d mode %d\n", + 0.001*GDS_ss2dBgrid_La1(gds), 0.001*GDS_ss2dBgrid_Lo1(gds), + GDS_ss2dBgrid_nx(gds)*GDS_ss2dBgrid_ny(gds), + 0.001*GDS_ss2dBgrid_dj(gds), 0.001*GDS_ss2dBgrid_di(gds), + 0.001*GDS_ss2dBgrid_Lo2(gds), 0.001*GDS_ss2dBgrid_La2(gds), + GDS_ss2dBgrid_scan(gds), GDS_ss2dBgrid_mode(gds)); + else if (gds && GDS_fEgrid(gds)) + printf(" filled Arakawa E-Grid: lat0 %f lon0 %f nxny %d\n" + " dLat %f dLon %f (%d x %d) scan %d mode %d\n", + 0.001*GDS_fEgrid_La1(gds), 0.001*GDS_fEgrid_Lo1(gds), + GDS_fEgrid_n(gds)*GDS_fEgrid_n_dum(gds), + 0.001*GDS_fEgrid_dj(gds), 0.001*GDS_fEgrid_di(gds), + GDS_fEgrid_Lo2(gds), GDS_fEgrid_La2(gds), + GDS_fEgrid_scan(gds), GDS_fEgrid_mode(gds)); + else if (gds && GDS_RotLL(gds)) + printf(" rotated LatLon grid lat %f to %f lon %f to %f\n" + " nxny %ld (%d x %d) dx %d dy %d scan %d mode %d\n" + " transform: south pole lat %f lon %f rot angle %f\n", + 0.001*GDS_RotLL_La1(gds), 0.001*GDS_RotLL_La2(gds), + 0.001*GDS_RotLL_Lo1(gds), 0.001*GDS_RotLL_Lo2(gds), + nxny, GDS_RotLL_nx(gds), GDS_RotLL_ny(gds), + GDS_RotLL_dx(gds), GDS_RotLL_dy(gds), + GDS_RotLL_scan(gds), GDS_RotLL_mode(gds), + 0.001*GDS_RotLL_LaSP(gds), 0.001*GDS_RotLL_LoSP(gds), + GDS_RotLL_RotAng(gds) ); + else if (gds && GDS_Gnomonic(gds)) + printf(" Gnomonic grid\n"); + else if (gds && GDS_Harmonic(gds)) + printf(" Harmonic (spectral): pentagonal spectral truncation: nj %d nk %d nm %d\n", + GDS_Harmonic_nj(gds), GDS_Harmonic_nk(gds), + GDS_Harmonic_nm(gds)); + if (gds && GDS_Harmonic_type(gds) == 1) + printf(" Associated Legendre polynomials\n"); + else if (gds && GDS_Triangular(gds)) + printf(" Triangular grid: nd %d ni %d (= 2^%d x 3^%d)\n", + GDS_Triangular_nd(gds), GDS_Triangular_ni(gds), + GDS_Triangular_ni2(gds), GDS_Triangular_ni3(gds) ); + if (print_PDS || print_PDS10) + print_pds(pds, print_PDS, print_PDS10, verbose); + if (gds && (print_GDS || print_GDS10)) + print_gds(gds, print_GDS, print_GDS10, verbose); + } + + if (mode != INVENTORY && output_type == GRIB) { + if (header == dwd) wrtieee_header((int) len_grib, dump_file); + fwrite((void *) msg, sizeof(char), len_grib, dump_file); + if (header == dwd) wrtieee_header((int) len_grib, dump_file); + n_dump++; + } + + if ((mode != INVENTORY && output_type != GRIB) || verbose > 1) { + /* decode numeric data */ + + if ((array = (float *) malloc(sizeof(float) * nxny)) == NULL) { + fprintf(stderr,"memory problems\n"); + exit(8); + } + + temp = int_power(10.0, - PDS_DecimalScale(pds)); + + BDS_unpack(array, bds, BMS_bitmap(bms), BDS_NumBits(bds), nxny, + temp*BDS_RefValue(bds),temp*int_power(2.0, BDS_BinScale(bds))); + + if (verbose > 1) { + rmin = FLT_MAX; + rmax = -FLT_MAX; + for (i = 0; i < nxny; i++) { + if (fabs(array[i]-UNDEFINED) > 0.0001*UNDEFINED) { + rmin = min(rmin,array[i]); + rmax = max(rmax,array[i]); + } + } + printf(" min/max data %g %g num bits %d " + " BDS_Ref %g DecScale %d BinScale %d\n", + rmin, rmax, BDS_NumBits(bds), BDS_RefValue(bds), + PDS_DecimalScale(pds), BDS_BinScale(bds)); + } + + if (mode != INVENTORY && output_type != GRIB) { + /* dump code */ + if (output_PDS_GDS == 1) { + /* insert code here */ + if (output_type == BINARY || output_type == IEEE) { + /* write PDS */ + i = PDS_LEN(pds) + 4; + if (header == simple && output_type == BINARY) + fwrite((void *) &i, sizeof(int), 1, dump_file); + if (header == simple && output_type == IEEE) wrtieee_header(i, dump_file); + fwrite((void *) "PDS ", 1, 4, dump_file); + fwrite((void *) pds, 1, i - 4, dump_file); + if (header == simple && output_type == BINARY) + fwrite((void *) &i, sizeof(int), 1, dump_file); + if (header == simple && output_type == IEEE) wrtieee_header(i, dump_file); + + /* write GDS */ + i = (gds) ? GDS_LEN(gds) + 4 : 4; + if (header == simple && output_type == BINARY) + fwrite((void *) &i, sizeof(int), 1, dump_file); + if (header == simple && output_type == IEEE) wrtieee_header(i, dump_file); + fwrite((void *) "GDS ", 1, 4, dump_file); + if (gds) fwrite((void *) gds, 1, i - 4, dump_file); + if (header == simple && output_type == BINARY) + fwrite((void *) &i, sizeof(int), 1, dump_file); + if (header == simple && output_type == IEEE) wrtieee_header(i, dump_file); + } + } + + if (output_type == BINARY) { + i = nxny * sizeof(float); + if (header == simple) fwrite((void *) &i, sizeof(int), 1, dump_file); + fwrite((void *) array, sizeof(float), nxny, dump_file); + if (header == simple) fwrite((void *) &i, sizeof(int), 1, dump_file); + } + else if (output_type == IEEE) { + wrtieee(array, nxny, header, dump_file); + } + else if (output_type == TEXT) { + /* number of points in grid */ + if (header == simple) { + if (nx <= 0 || ny <= 0 || nxny != nx*ny) { + fprintf(dump_file, "%ld %d\n", nxny, 1); + } + else { + fprintf(dump_file, "%d %d\n", nx, ny); + } + } + for (i = 0; i < nxny; i++) { + fprintf(dump_file,"%g\n", array[i]); + } + } + n_dump++; + } + free(array); + if (verbose > 0) printf("\n"); + } + + if (output_type != NONE) fflush(dump_file); + fflush(stdout); + + pos += len_grib; + count++; + } + + if (mode != INVENTORY) { + if (header == dwd && output_type == GRIB) wrtieee_header(0, dump_file); + if (ferror(dump_file)) { + fprintf(stderr,"error writing %s\n",dump_file_name); + exit(8); + } + } + fclose(input); + return (return_code); +} + +void print_pds(unsigned char *pds, int print_PDS, int print_PDS10, int verbose) { + int i, j; + + j = PDS_LEN(pds); + if (verbose < 2) { + if (print_PDS && verbose < 2) { + printf(":PDS="); + for (i = 0; i < j; i++) { + printf("%2.2x", (int) pds[i]); + } + } + if (print_PDS10 && verbose < 2) { + printf(":PDS10="); + for (i = 0; i < j; i++) { + printf(" %d", (int) pds[i]); + } + } + } + else { + if (print_PDS) { + printf(" PDS(1..%d)=",j); + for (i = 0; i < j; i++) { + if (i % 20 == 0) printf("\n %4d:",i+1); + printf(" %3.2x", (int) pds[i]); + } + printf("\n"); + } + if (print_PDS10) { + printf(" PDS10(1..%d)=",j); + for (i = 0; i < j; i++) { + if (i % 20 == 0) printf("\n %4d:",i+1); + printf(" %3d", (int) pds[i]); + } + printf("\n"); + } + } +} + +void print_gds(unsigned char *gds, int print_GDS, int print_GDS10, int verbose) { + int i, j; + + j = GDS_LEN(gds); + if (verbose < 2) { + if (print_GDS && verbose < 2) { + printf(":GDS="); + for (i = 0; i < j; i++) { + printf("%2.2x", (int) gds[i]); + } + } + if (print_GDS10 && verbose < 2) { + printf(":GDS10="); + for (i = 0; i < j; i++) { + printf(" %d", (int) gds[i]); + } + } + } + else { + if (print_GDS) { + printf(" GDS(1..%d)=",j); + for (i = 0; i < j; i++) { + if (i % 20 == 0) printf("\n %4d:",i+1); + printf(" %3.2x", (int) gds[i]); + } + printf("\n"); + } + if (print_GDS10) { + printf(" GDS10(1..%d)=",j); + for (i = 0; i < j; i++) { + if (i % 20 == 0) printf("\n %4d:",i+1); + printf(" %3d", (int) gds[i]); + } + printf("\n"); + } + } +} +/* + * find next grib header + * + * file = what do you think? + * pos = initial position to start looking at ( = 0 for 1st call) + * returns with position of next grib header (units=bytes) + * len_grib = length of the grib record (bytes) + * buffer[buf_len] = buffer for reading/writing + * + * returns (char *) to start of GRIB header+PDS + * NULL if not found + * + * adapted from SKGB (Mark Iredell) + * + * v1.1 9/94 Wesley Ebisuzaki + * v1.2 3/96 Wesley Ebisuzaki handles short records at end of file + * v1.3 8/96 Wesley Ebisuzaki increase NTRY from 3 to 100 for the folks + * at Automation decided a 21 byte WMO bulletin header wasn't long + * enough and decided to go to an 8K header. + * v1.4 11/10/2001 D. Haalman, looks at entire file, does not try + * to read past EOF + * 3/8/2010 echack added by Brian Doty + * v1.5 5/2011 changes for ECMWF who have grib1+grib2 files, scan entire file + */ + +#ifndef min + #define min(a,b) ((a) < (b) ? (a) : (b)) +#endif + +/* #define LEN_HEADER_PDS (28+42+100) */ +#define LEN_HEADER_PDS (28+8) + +int ec_large_grib = 0, len_ec_bds; + +unsigned char *seek_grib(FILE *file, unsigned long *pos, long *len_grib, + unsigned char *buffer, unsigned int buf_len) { + + int i, len; + long length_grib; + static int warn_grib2 = 0; + clearerr(file); + while ( !feof(file) ) { + + if (fseek(file, *pos, SEEK_SET) == -1) break; + i = fread(buffer, sizeof (unsigned char), buf_len, file); + if (ferror(file)) break; + len = i - LEN_HEADER_PDS; + + for (i = 0; i < len; i++) { + if (buffer[i] == 'G' && buffer[i+1] == 'R' && buffer[i+2] == 'I' + && buffer[i+3] == 'B') { + /* grib edition 1 */ + if (buffer[i+7] == 1) { + *pos = i + *pos; + *len_grib = length_grib = (buffer[i+4] << 16) + (buffer[i+5] << 8) + + buffer[i+6]; + + /* small records don't have ECMWF hack */ + if ((length_grib & 0x800000) == 0) { ec_large_grib = 0; return (buffer + i); } + + /* potential for ECMWF hack */ + ec_large_grib = 1; + *len_grib = echack(file, *pos, length_grib); + return (buffer+i); + } + + /* grib edition 2 */ + else if (buffer[i+7] == 2) { + if (warn_grib2++ == 0) fprintf(stderr,"grib2 message ignored (use wgrib2)\n"); + } + + } + } + *pos = *pos + (buf_len - LEN_HEADER_PDS); + } + + *len_grib = 0; + return (unsigned char *) NULL; +} + + +/* If the encoded grib record length is long enough, we may have an encoding + of an even longer record length using the ecmwf hack. To check for this + requires getting the length of the binary data section. To get this requires + getting the lengths of the various sections before the bds. To see if those + sections are there requires checking the flags in the pds. */ + +long echack(FILE *file, long pos, long len_grib) { + + int gdsflg, bmsflg, center; + unsigned int pdslen, gdslen, bmslen, bdslen; + unsigned char buf[8]; + long len; + + len = len_grib; + + /* Get pdslen */ + + if (fseek(file, pos+8, SEEK_SET) == -1) return 0; + if (fread(buf, sizeof (unsigned char), 8, file) != 8) return 0; + pdslen = __LEN24(buf); + + center = buf[4]; + + /* know that NCEP and CMC do not use echack */ + if (center == NMC || center == CMC) { + ec_large_grib = 0; + return len_grib; + } + + + gdsflg = buf[7] & 128; + bmsflg = buf[7] & 64; + + gdslen=0; + if (gdsflg) { + if (fseek(file, pos+8+pdslen, SEEK_SET) == -1) return 0; + if (fread(buf, sizeof (unsigned char), 3, file) != 3) return 0; + gdslen = __LEN24(buf); + } + + /* if there, get length of bms */ + + bmslen = 0; + if (bmsflg) { + if (fseek(file, pos+8+pdslen+gdslen, SEEK_SET) == -1) return 0; + if (fread(buf, sizeof (unsigned char), 3, file) != 3) return 0; + bmslen = __LEN24(buf); + } + + /* get bds length */ + + if (fseek(file, pos+8+pdslen+gdslen+bmslen, SEEK_SET) == -1) return 0; + if (fread(buf, sizeof (unsigned char), 3, file) != 3) return 0; + bdslen = __LEN24(buf); + + /* Now we can check if this record is hacked */ + + if (bdslen >= 120) { + /* normal record */ + ec_large_grib = 0; + } + else { + /* ECMWF hack */ + len_grib = (len & 0x7fffff) * 120 - bdslen + 4; + len_ec_bds = len_grib - (12 + pdslen + gdslen + bmslen); + ec_large_grib = 1; + } + return len_grib; +} + +/* ibm2flt wesley ebisuzaki + * + * v1.1 .. faster + * v1.1 .. if mant == 0 -> quick return + * + */ + + +double ibm2flt(unsigned char *ibm) { + + int positive, power; + unsigned int abspower; + long int mant; + double value, exp; + + mant = (ibm[1] << 16) + (ibm[2] << 8) + ibm[3]; + if (mant == 0) return 0.0; + + positive = (ibm[0] & 0x80) == 0; + power = (int) (ibm[0] & 0x7f) - 64; + abspower = power > 0 ? power : -power; + + + /* calc exp */ + exp = 16.0; + value = 1.0; + while (abspower) { + if (abspower & 1) { + value *= exp; + } + exp = exp * exp; + abspower >>= 1; + } + + if (power < 0) value = 1.0 / value; + value = value * mant / 16777216.0; + if (positive == 0) value = -value; + return value; +} + +/* + * read_grib.c + * + * reads grib message + * + * input: pos, byte position of grib message + * len_grib, length of grib message + * output: *buffer, grib message + * + * note: call seek_grib first + * + * v1.0 9/94 Wesley Ebisuzaki + * + */ + +int read_grib(FILE *file, long pos, long len_grib, unsigned char *buffer) { + + int i; + + + if (fseek(file, pos, SEEK_SET) == -1) { + return 0; + } + + i = fread(buffer, sizeof (unsigned char), len_grib, file); + return (i == len_grib); +} + +/* + * w. ebisuzaki + * + * return x**y + * + * + * input: double x + * int y + */ +double int_power(double x, int y) { + + double value; + + if (y < 0) { + y = -y; + x = 1.0 / x; + } + value = 1.0; + + while (y) { + if (y & 1) { + value *= x; + } + x = x * x; + y >>= 1; + } + return value; +} + +/* cnames.c Wesley Ebisuzaki + * + * returns strings with either variable name or comment field + * v1.4 4/98 + * reanalysis can use process 180 and subcenter 0 + * + * Add DWD tables 2, 201, 202, 203 Helmut P. Frank, DWD, FE13 + * Thu Aug 23 09:28:34 GMT 2001 + * add DWD tables 204, 205 H. Frank, 10-19-2005 + * LAMI => DWD 11/2008 Davide Sacchetti + * add JRA-55 table 200 + */ + + +extern const struct ParmTable parm_table_ncep_opn[256]; +extern const struct ParmTable parm_table_ncep_reanal[256]; +extern const struct ParmTable parm_table_nceptab_128[256]; +extern const struct ParmTable parm_table_nceptab_129[256]; +extern const struct ParmTable parm_table_nceptab_130[256]; +extern const struct ParmTable parm_table_nceptab_131[256]; +extern const struct ParmTable parm_table_nceptab_133[256]; +extern const struct ParmTable parm_table_nceptab_140[256]; +extern const struct ParmTable parm_table_nceptab_141[256]; +extern const struct ParmTable parm_table_mdl_nceptab[256]; + +extern const struct ParmTable parm_table_ecmwf_128[256]; +extern const struct ParmTable parm_table_ecmwf_129[256]; +extern const struct ParmTable parm_table_ecmwf_130[256]; +extern const struct ParmTable parm_table_ecmwf_131[256]; +extern const struct ParmTable parm_table_ecmwf_132[256]; +extern const struct ParmTable parm_table_ecmwf_133[256]; +extern const struct ParmTable parm_table_ecmwf_140[256]; +extern const struct ParmTable parm_table_ecmwf_150[256]; +extern const struct ParmTable parm_table_ecmwf_151[256]; +extern const struct ParmTable parm_table_ecmwf_160[256]; +extern const struct ParmTable parm_table_ecmwf_162[256]; +extern const struct ParmTable parm_table_ecmwf_170[256]; +extern const struct ParmTable parm_table_ecmwf_171[256]; +extern const struct ParmTable parm_table_ecmwf_172[256]; +extern const struct ParmTable parm_table_ecmwf_173[256]; +extern const struct ParmTable parm_table_ecmwf_174[256]; +extern const struct ParmTable parm_table_ecmwf_180[256]; +extern const struct ParmTable parm_table_ecmwf_190[256]; +extern const struct ParmTable parm_table_ecmwf_200[256]; +extern const struct ParmTable parm_table_ecmwf_210[256]; +extern const struct ParmTable parm_table_ecmwf_211[256]; +extern const struct ParmTable parm_table_ecmwf_228[256]; +extern struct ParmTable parm_table_user[256]; +extern const struct ParmTable parm_table_dwd_002[256]; +extern const struct ParmTable parm_table_dwd_201[256]; +extern const struct ParmTable parm_table_dwd_202[256]; +extern const struct ParmTable parm_table_dwd_203[256]; +extern const struct ParmTable parm_table_dwd_204[256]; +extern const struct ParmTable parm_table_dwd_205[256]; +extern const struct ParmTable parm_table_cptec_254[256]; +extern const struct ParmTable parm_table_jra55_200[256]; + +extern enum Def_NCEP_Table def_ncep_table; +extern int cmc_eq_ncep; + +/* + * returns pointer to the parameter table + */ + + + +static const struct ParmTable *Parm_Table(unsigned char *pds) { + + int i, center, subcenter, ptable, process; + static int missing_count = 0, reanal_opn_count = 0; + + center = PDS_Center(pds); + subcenter = PDS_Subcenter(pds); + ptable = PDS_Vsn(pds); + + /* CMC (54) tables look like NCEP tables */ + if (center == CMC && cmc_eq_ncep) center = NMC; + +#ifdef P_TABLE_FIRST + i = setup_user_table(center, subcenter, ptable); + if (i == 1) return &parm_table_user[0]; +#endif + /* figure out if NCEP opn or reanalysis */ + if (center == NMC && ptable <= 3) { + if (subcenter == 1) return &parm_table_ncep_reanal[0]; + if (subcenter == 14) return &parm_table_mdl_nceptab[0]; + process = PDS_Model(pds); + if (subcenter != 0 || (process != 80 && process != 180) || + (ptable != 1 && ptable != 2)) + return &parm_table_ncep_opn[0]; + + /* at this point could be either the opn or reanalysis table */ + if (def_ncep_table == opn_nowarn) return &parm_table_ncep_opn[0]; + if (def_ncep_table == rean_nowarn) return &parm_table_ncep_reanal[0]; + if (reanal_opn_count++ == 0) { + fprintf(stderr, "Using NCEP %s table, see -ncep_opn, -ncep_rean options\n", + (def_ncep_table == opn) ? "opn" : "reanalysis"); + } + return (def_ncep_table == opn) ? &parm_table_ncep_opn[0] + : &parm_table_ncep_reanal[0]; + } + + if (center == NMC) { + if (ptable == 128) return &parm_table_nceptab_128[0]; + if (ptable == 129) return &parm_table_nceptab_129[0]; + if (ptable == 130) return &parm_table_nceptab_130[0]; + if (ptable == 131) return &parm_table_nceptab_131[0]; + if (ptable == 132) return &parm_table_ncep_reanal[0]; + if (ptable == 133) return &parm_table_nceptab_133[0]; + if (ptable == 140) return &parm_table_nceptab_140[0]; + if (ptable == 141) return &parm_table_nceptab_141[0]; + } + if (center == ECMWF) { + if (ptable == 128) return &parm_table_ecmwf_128[0]; + if (ptable == 129) return &parm_table_ecmwf_129[0]; + if (ptable == 130) return &parm_table_ecmwf_130[0]; + if (ptable == 131) return &parm_table_ecmwf_131[0]; + if (ptable == 132) return &parm_table_ecmwf_132[0]; + if (ptable == 133) return &parm_table_ecmwf_133[0]; + if (ptable == 140) return &parm_table_ecmwf_140[0]; + if (ptable == 150) return &parm_table_ecmwf_150[0]; + if (ptable == 151) return &parm_table_ecmwf_151[0]; + if (ptable == 160) return &parm_table_ecmwf_160[0]; + if (ptable == 162) return &parm_table_ecmwf_162[0]; + if (ptable == 170) return &parm_table_ecmwf_170[0]; + if (ptable == 171) return &parm_table_ecmwf_171[0]; + if (ptable == 172) return &parm_table_ecmwf_172[0]; + if (ptable == 173) return &parm_table_ecmwf_173[0]; + if (ptable == 174) return &parm_table_ecmwf_174[0]; + if (ptable == 180) return &parm_table_ecmwf_180[0]; + if (ptable == 190) return &parm_table_ecmwf_190[0]; + if (ptable == 200) return &parm_table_ecmwf_200[0]; + if (ptable == 210) return &parm_table_ecmwf_210[0]; + if (ptable == 211) return &parm_table_ecmwf_211[0]; + if (ptable == 228) return &parm_table_ecmwf_228[0]; + } + /* if (center == DWD || center == CHM || center == LAMI) { */ + if (center == DWD || center == CHM) { + if (ptable == 2) return &parm_table_dwd_002[0]; + if (ptable == 201) return &parm_table_dwd_201[0]; + if (ptable == 202) return &parm_table_dwd_202[0]; + if (ptable == 203) return &parm_table_dwd_203[0]; + if (ptable == 204) return &parm_table_dwd_204[0]; + if (ptable == 205) return &parm_table_dwd_205[0]; + } + if (center == CPTEC) { + if (ptable == 254) return &parm_table_cptec_254[0]; + } + if (center == JMA) { + if (ptable == 200) return &parm_table_jra55_200[0]; + } + + +#ifndef P_TABLE_FIRST + i = setup_user_table(center, subcenter, ptable); + if (i == 1) return &parm_table_user[0]; +#endif + + if ((ptable > 3 || (PDS_PARAM(pds)) > 127) && missing_count++ == 0) { + //Saleeby: commenting out this print statement below + /*fprintf(stderr, + "\nUndefined parameter table (center %d-%d table %d), using NCEP-opn\n", + center, subcenter, ptable);*/ + } + return &parm_table_ncep_opn[0]; +} + +/* + * return name field of PDS_PARAM(pds) + */ + +char *k5toa(unsigned char *pds) { + + return (Parm_Table(pds) + PDS_PARAM(pds))->name; +} + +/* + * return comment field of the PDS_PARAM(pds) + */ + +char *k5_comments(unsigned char *pds) { + + return (Parm_Table(pds) + PDS_PARAM(pds))->comment; +} + +/* 1996 wesley ebisuzaki + * + * Unpack BDS section + * + * input: *bits, pointer to packed integer data + * *bitmap, pointer to bitmap (undefined data), NULL if none + * n_bits, number of bits per packed integer + * n, number of data points (includes undefined data) + * ref, scale: flt[] = ref + scale*packed_int + * output: *flt, pointer to output array + * undefined values filled with UNDEFINED + * + * note: code assumes an integer > 32 bits + * + * 7/98 v1.2.1 fix bug for bitmaps and nbit >= 25 found by Larry Brasfield + * 2/01 v1.2.2 changed jj from long int to double + * 3/02 v1.2.3 added unpacking extensions for spectral data + * Luis Kornblueh, MPIfM + * 7/06 v.1.2.4 fixed some bug complex packed data was not set to undefined + */ + +static unsigned int mask[] = {0,1,3,7,15,31,63,127,255}; +static unsigned int map_masks[8] = {128, 64, 32, 16, 8, 4, 2, 1}; +static double shift[9] = {1.0, 2.0, 4.0, 8.0, 16.0, 32.0, 64.0, 128.0, 256.0}; + +void BDS_unpack(float *flt, unsigned char *bds, unsigned char *bitmap, + int n_bits, int n, double ref, double scale) { + + unsigned char *bits; + + int i, mask_idx, t_bits, c_bits, j_bits; + unsigned int j, map_mask, tbits, jmask, bbits; + double jj; + + + if (BDS_ComplexPacking(bds)) { + fprintf(stderr,"*** Cannot decode complex packed fields n=%d***\n", n); + exit(8); + for (i = 0; i < n; i++) { + *flt++ = UNDEFINED; + } + return; + } + + if (BDS_Harmonic(bds)) { + bits = bds + 15; + /* fill in global mean */ + *flt++ = BDS_Harmonic_RefValue(bds); + n -= 1; + } + else { + bits = bds + 11; + } + + tbits = bbits = 0; + + /* assume integer has 32+ bits */ + if (n_bits <= 25) { + jmask = (1 << n_bits) - 1; + t_bits = 0; + + if (bitmap) { + for (i = 0; i < n; i++) { + /* check bitmap */ + mask_idx = i & 7; + if (mask_idx == 0) bbits = *bitmap++; + if ((bbits & map_masks[mask_idx]) == 0) { + *flt++ = UNDEFINED; + continue; + } + + while (t_bits < n_bits) { + tbits = (tbits * 256) + *bits++; + t_bits += 8; + } + t_bits -= n_bits; + j = (tbits >> t_bits) & jmask; + *flt++ = ref + scale*j; + } + } + else { + for (i = 0; i < n; i++) { + if (n_bits - t_bits > 8) { + tbits = (tbits << 16) | (bits[0] << 8) | (bits[1]); + bits += 2; + t_bits += 16; + } + while (t_bits < n_bits) { + tbits = (tbits * 256) + *bits++; + t_bits += 8; + } + t_bits -= n_bits; + flt[i] = (tbits >> t_bits) & jmask; + } + /* at least this vectorizes :) */ + for (i = 0; i < n; i++) { + flt[i] = ref + scale*flt[i]; + } + } + } + else { + /* older unoptimized code, not often used */ + c_bits = 8; + map_mask = 128; + while (n-- > 0) { + if (bitmap) { + j = (*bitmap & map_mask); + if ((map_mask >>= 1) == 0) { + map_mask = 128; + bitmap++; + } + if (j == 0) { + *flt++ = UNDEFINED; + continue; + } + } + + jj = 0.0; + j_bits = n_bits; + while (c_bits <= j_bits) { + if (c_bits == 8) { + jj = jj * 256.0 + (double) (*bits++); + j_bits -= 8; + } + else { + jj = (jj * shift[c_bits]) + (double) (*bits & mask[c_bits]); + bits++; + j_bits -= c_bits; + c_bits = 8; + } + } + if (j_bits) { + c_bits -= j_bits; + jj = (jj * shift[j_bits]) + (double) ((*bits >> c_bits) & mask[j_bits]); + } + *flt++ = ref + scale*jj; + } + } + return; +} + +/* + * convert a float to an ieee single precision number v1.1 + * (big endian) + * Wesley Ebisuzaki + * + * bugs: doesn't handle subnormal numbers + * bugs: assumes length of integer >= 25 bits + */ + +int flt2ieee(float x, unsigned char *ieee) { + + int sign, exp; + unsigned int umant; + double mant; + + if (x == 0.0) { + ieee[0] = ieee[1] = ieee[2] = ieee[3] = 0; + return 0; + } + + /* sign bit */ + if (x < 0.0) { + sign = 128; + x = -x; + } + else sign = 0; + mant = frexp((double) x, &exp); + + /* 2^24 = 16777216 */ + + umant = mant * 16777216 + 0.5; + if (umant >= 16777216) { + umant = umant / 2; + exp++; + } + /* bit 24 should be a 1 .. not used in ieee format */ + + exp = exp - 1 + 127; + + if (exp < 0) { + /* signed zero */ + ieee[0] = sign; + ieee[1] = ieee[2] = ieee[3] = 0; + return 0; + } + if (exp > 255) { + /* signed infinity */ + ieee[0] = sign + 127; + ieee[1] = 128; + ieee[2] = ieee[3] = 0; + return 0; + } + /* normal number */ + + ieee[0] = sign + (exp >> 1); + + ieee[3] = umant & 255; + ieee[2] = (umant >> 8) & 255; + ieee[1] = ((exp & 1) << 7) + ((umant >> 16) & 127); + return 0; +} + + +/* wesley ebisuzaki v1.3 + * + * write ieee file -- big endian format + * + * input float *array data to be written + * int n size of array + * int header 1 for f77 style header 0 for none + * (header is 4 byte header + * FILE *output output file + * + * v1.2 7/97 buffered, faster + * v1.3 2/99 fixed (typo) error in wrtieee_header found by + * Bob Farquhar + */ + +#define BSIZ 1024*4 + +int wrtieee(float *array, int n, int header, FILE *output) { + + unsigned long int l; + int i, nbuf; + unsigned char buff[BSIZ]; + unsigned char h4[4]; + + nbuf = 0; + h4[0] = h4[1] = h4[2] = h4[3] = 0; + if (header) { + l = n * 4; + for (i = 0; i < 4; i++) { + h4[i] = l & 255; + l >>= 8; + } + buff[nbuf++] = h4[3]; + buff[nbuf++] = h4[2]; + buff[nbuf++] = h4[1]; + buff[nbuf++] = h4[0]; + } + for (i = 0; i < n; i++) { + if (nbuf >= BSIZ) { + fwrite(buff, 1, BSIZ, output); + nbuf = 0; + } + flt2ieee(array[i], buff + nbuf); + nbuf += 4; + } + if (header) { + if (nbuf == BSIZ) { + fwrite(buff, 1, BSIZ, output); + nbuf = 0; + } + buff[nbuf++] = h4[3]; + buff[nbuf++] = h4[2]; + buff[nbuf++] = h4[1]; + buff[nbuf++] = h4[0]; + } + if (nbuf) fwrite(buff, 1, nbuf, output); + return 0; +} + +/* write a big-endian 4 byte integer .. f77 IEEE header */ + +int wrtieee_header(unsigned int n, FILE *output) { + unsigned h4[4]; + + h4[0] = n & 255; + h4[1] = (n >> 8) & 255; + h4[2] = (n >> 16) & 255; + h4[3] = (n >> 24) & 255; + + putc(h4[3],output); + putc(h4[2],output); + putc(h4[1],output); + putc(h4[0],output); + + return 0; +} + + +/* wesley ebisuzaki v1.0 + * + * levels.c + * + * prints out a simple description of kpds6, kpds7 + * (level/layer data) + * kpds6 = octet 10 of the PDS + * kpds7 = octet 11 and 12 of the PDS + * (kpds values are from NMC's grib routines) + * center = PDS_Center(pds) .. NMC, ECMWF, etc + * + * the description of the levels is + * (1) incomplete + * (2) include some NMC-only values (>= 200?) + * + * v1.1 wgrib v1.7.3.1 updated with new levels + * v1.2 added new level and new parameter + * v1.2.1 modified level 117 pv units + * v1.2.2 corrected level 141 + * v1.2.3 fixed layer 206 (was 205) + * v1.2.4 layer 210: new wmo defn > NCEP version + * v1.2.5 updated table 3/2007 to on388 + */ + +void levels(int kpds6, int kpds7, int center, int verbose) { + + int o11, o12; + + /* octets 11 and 12 */ + o11 = kpds7 / 256; + o12 = kpds7 % 256; + + + switch (kpds6) { + + case 1: printf("sfc"); + break; + case 2: printf("cld base"); + break; + case 3: printf("cld top"); + break; + case 4: printf("0C isotherm"); + break; + case 5: printf("cond lev"); + break; + case 6: printf("max wind lev"); + break; + case 7: printf("tropopause"); + break; + case 8: printf("nom. top"); + break; + case 9: printf("sea bottom"); + break; + case 200: + case 10: printf("atmos col"); + break; + + case 12: printf("low cld bot"); + break; + + case 13: printf("low cld top"); + break; + case 14: printf("low cld lay"); + break; + case 20: + if (verbose == 2) printf("temp=%fK", kpds7/100.0); + else printf("T=%fK", kpds7/100.0); + break; + case 22: + case 222: printf("mid cld bot"); + break; + case 23: + case 223: printf("mid cld top"); + break; + case 24: + case 224: printf("mid cld lay"); + break; + case 32: + case 232: printf("high cld bot"); + break; + case 33: + case 233: printf("high cld top"); + break; + case 34: + case 234: printf("high cld lay"); + break; + + case 201: printf("ocean column"); + break; + case 204: printf("high trop freezing lvl"); + break; + case 206: printf("grid-scale cld bot"); + break; + case 207: printf("grid-scale cld top"); + break; + case 209: printf("bndary-layer cld bot"); + break; + case 210: + if (center == NMC) printf("bndary-layer cld top"); + else printf("%.2f mb",kpds7*0.01); + break; + case 211: + if (center == JMA) printf("soil column"); + else printf("bndary-layer cld layer"); + break; + case 212: + if (center == JMA) printf("bot land sfc model"); + else printf("low cld bot"); + break; + case 213: + if (center == JMA) printf("soil layer %d",kpds7); + else printf("low cld top"); + break; + case 214: printf("low cld lay"); + break; + case 215: printf("cloud ceiling"); + break; + case 216: printf("Cb base"); + break; + case 217: printf("Cb top"); + break; + case 220: printf("planetary boundary layer (from Richardson no.)"); + break; + case 235: if (kpds7 % 10 == 0) + printf("%dC ocean isotherm level",kpds7/10); + else printf("%.1fC ocean isotherm level",kpds7/10.0); + break; + case 236: printf("%d-%dm ocean layer",o11*10,o12*10); + break; + case 237: printf("ocean mixed layer bot"); + break; + case 238: printf("ocean isothermal layer bot"); + break; + case 239: printf("sfc-26C ocean layer"); + break; + case 240: printf("ocean mixed layer"); + break; + case 241: printf("ordered sequence of data"); + break; + case 242: printf("convect-cld bot"); + break; + case 243: printf("convect-cld top"); + break; + case 244: printf("convect-cld layer"); + break; + case 245: printf("lowest level of wet bulb zero"); + break; + case 246: printf("max e-pot-temp lvl"); + break; + case 247: printf("equilibrium lvl"); + break; + case 248: printf("shallow convect-cld bot"); + break; + case 249: printf("shallow convect-cld top"); + break; + case 251: printf("deep convect-cld bot"); + break; + case 252: printf("deep convect-cld top"); + break; + case 253: printf("lowest bottom level of supercooled liequid water layer"); + break; + case 254: printf("highest top level of supercooled liquid water layer"); + break; + case 100: printf("%d mb",kpds7); + break; + case 101: printf("%d-%d mb",o11*10,o12*10); + break; + case 102: printf("MSL"); + break; + case 103: printf("%d m above MSL",kpds7); + break; + case 104: printf("%d-%d m above msl",o11*100,o12*100); + break; + case 105: printf("%d m above gnd",kpds7); + break; + case 106: printf("%d-%d m above gnd",o11*100,o12*100); + break; + case 107: printf("sigma=%.4f",kpds7/10000.0); + break; + case 108: printf("sigma %.2f-%.2f",o11/100.0,o12/100.0); + break; + case 109: printf("hybrid lev %d",kpds7); + break; + case 110: printf("hybrid %d-%d",o11,o12); + break; + case 111: printf("%d cm down",kpds7); + break; + case 112: printf("%d-%d cm down",o11,o12); + break; + case 113: + if (verbose == 2) printf("pot-temp=%dK",kpds7); + else printf("%dK",kpds7); + break; + case 114: printf("%d-%dK",475-o11,475-o12); + break; + case 115: printf("%d mb above gnd",kpds7); + break; + case 116: printf("%d-%d mb above gnd",o11,o12); + break; + case 117: printf("%d pv units",INT2(o11,o12)); /* units are suspect */ + break; + case 119: printf("%.5f (ETA level)",kpds7/10000.0); + break; + case 120: printf("%.2f-%.2f (ETA levels)",o11/100.0,o12/100.0); + break; + case 121: printf("%d-%d mb",1100-o11,1100-o12); + break; + case 125: printf("%d cm above gnd",kpds7); + break; + case 126: + if (center == NMC) printf("%.2f mb",kpds7*0.01); + break; + case 128: printf("%.3f-%.3f (sigma)",1.1-o11/1000.0, 1.1-o12/1000.0); + break; + case 141: printf("%d-%d mb",o11*10,1100-o12); + break; + case 160: printf("%d m below sea level",kpds7); + break; + default: + break; + } +} + +/* + * PDStimes.c v1.2 wesley ebisuzaki + * + * prints something readable for time code in grib file + * + * not all cases decoded + * for NCEP/NCAR Reanalysis + * + * v1.2.1 1/99 fixed forecast time unit table + * v1.2.2 10/01 add time_range = 11 (at DWD) Helmut P. Frank + * v1.2.3 10/05 add time units 13 = 15 min, 14 = 30 min, and + * time range 13 = nudging analysis, 14 = relabeled forecast + * (at DWD), Helmut P. Frank + */ + +static char *units[] = { + "min", "hr", "d", "mon", "yr", + "decade", "normal", "century", "??", "??", " x3 hours", " x6 hours", + " x12 hours", + "x15 min", "x30 min", "??", "??", "??", "??", "??", "??", "??", "??", + "??", "??", "??", "??", "??", "??", "??", "??", "??", "??", + "??", "??", "??", "??", "??", "??", "??", "??", "??", "??", + "??", "??", "??", "??", "??", "??", "??", "??", "??", "??", + "??", "??", "??", "??", "??", "??", "??", "??", "??", "??", + "??", "??", "??", "??", "??", "??", "??", "??", "??", "??", + "??", "??", "??", "??", "??", "??", "??", "??", "??", "??", + "??", "??", "??", "??", "??", "??", "??", "??", "??", "??", + "??", "??", "??", "??", "??", "??", "??", "??", "??", "??", + "??", "??", "??", "??", "??", "??", "??", "??", "??", "??", + "??", "??", "??", "??", "??", "??", "??", "??", "??", "??", + "??", "??", "??", "??", "??", "??", "??", "??", "??", "??", + "??", "??", "??", "??", "??", "??", "??", "??", "??", "??", + "??", "??", "??", "??", "??", "??", "??", "??", "??", "??", + "??", "??", "??", "??", "??", "??", "??", "??", "??", "??", + "??", "??", "??", "??", "??", "??", "??", "??", "??", "??", + "??", "??", "??", "??", "??", "??", "??", "??", "??", "??", + "??", "??", "??", "??", "??", "??", "??", "??", "??", "??", + "??", "??", "??", "??", "??", "??", "??", "??", "??", "??", + "??", "??", "??", "??", "??", "??", "??", "??", "??", "??", + "??", "??", "??", "??", "??", "??", "??", "??", "??", "??", + "??", "??", "??", "??", "??", "??", "??", "??", "??", "??", + "??", "??", "??", "??", "??", "??", "??", "??", "??", "??", + "??", "??", "??", "??", "??", "??", "??", "??", "??", "??", + "??", " sec"}; + +void PDStimes(int time_range, int p1, int p2, int time_unit) { + + char *unit; + enum {anal, fcst, unknown} type; + int fcst_len = 0; + + if (time_unit >= 0 && time_unit <= sizeof(units)/sizeof(char *)) + unit = units[time_unit]; + else unit = ""; + + /* change x3/x6/x12 to hours */ + + if (time_unit == HOURS3) { + p1 *= 3; p2 *= 3; + time_unit = HOUR; + } + else if (time_unit == HOURS6) { + p1 *= 6; p2 *= 6; + time_unit = HOUR; + } + else if (time_unit == HOURS12) { + p1 *= 12; p2 *= 12; + time_unit = HOUR; + } + else if (time_unit == MINUTES30) { + p1 *= 30; p2 *= 30; + time_unit = MINUTE; + } + else if (time_unit == MINUTES15) { + p1 *= 15; p2 *= 15; + time_unit = MINUTE; + } + /* turn off 5/13/2010 + if (time_unit == MINUTE && p1 % 60 == 0 && p2 % 60 == 0) { + p1 /= 60; p2 /= 60; + time_unit = HOUR; + } + */ + + if (time_unit >= 0 && time_unit <= sizeof(units)/sizeof(char *)) + unit = units[time_unit]; + else unit = ""; + + /* figure out if analysis or forecast */ + /* in GRIB, there is a difference between init and uninit analyses */ + /* not case at NMC .. no longer run initialization */ + /* ignore diff between init an uninit analyses */ + + switch (time_range) { + + case 0: + case 1: + case 113: + case 114: + case 118: + if (p1 == 0) type = anal; + else { + type = fcst; + fcst_len = p1; + } + break; + case 10: /* way NMC uses it, should be unknown? */ + type = fcst; + fcst_len = p1*256 + p2; + if (fcst_len == 0) type = anal; + break; + + case 51: + type = unknown; + break; + case 123: + case 124: + type = anal; + break; + + case 135: + type = anal; + break; + + default: type = unknown; + break; + } + + /* ----------------------------------------------- */ + + if (type == anal) printf("anl:"); + else if (type == fcst) printf("%d%s fcst:",fcst_len,unit); + + + if (time_range == 123 || time_range == 124) { + if (p1 != 0) printf("start@%d%s:",p1,unit); + } + + + /* print time range */ + + + switch (time_range) { + + case 0: + case 1: + case 10: + break; + case 2: printf("valid %d-%d%s:",p1,p2,unit); + break; + case 3: printf("%d-%d%s ave:",p1,p2,unit); + break; + case 4: printf("%d-%d%s acc:",p1,p2,unit); + break; + case 5: printf("%d-%d%s diff:",p1,p2,unit); + break; + case 6: printf("-%d to -%d %s ave:", p1,p2,unit); + break; + case 7: printf("-%d to %d %s ave:", p1,p2,unit); + break; + case 11: if (p1 > 0) { + printf("init fcst %d%s:",p1,unit); + } + else { + printf("time?:"); + } + break; + case 13: printf("nudge ana %d%s:",p1,unit); + break; + case 14: printf("rel. fcst %d%s:",p1,unit); + break; + case 51: if (p1 == 0) { + /* printf("clim %d%s:",p2,unit); */ + printf("0-%d%s product:ave@1yr:",p2,unit); + } + else if (p1 == 1) { + /* printf("clim (diurnal) %d%s:",p2,unit); */ + printf("0-%d%s product:same-hour,ave@1yr:",p2,unit); + } + else { + printf("clim? p1=%d? %d%s?:",p1,p2,unit); + } + break; + case 113: + case 123: + printf("ave@%d%s:",p2,unit); + break; + case 114: + case 124: + printf("acc@%d%s:",p2,unit); + break; + case 115: + printf("ave of fcst:%d to %d%s:",p1,p2,unit); + break; + case 116: + printf("acc of fcst:%d to %d%s:",p1,p2,unit); + break; + case 118: + printf("var@%d%s:",p2,unit); + break; + case 128: + printf("%d-%d%s fcst acc:ave@24hr:", p1, p2, unit); + break; + case 129: + printf("%d-%d%s fcst acc:ave@%d%s:", p1, p2, unit, p2-p1,unit); + break; + case 130: + printf("%d-%d%s fcst ave:ave@24hr:", p1, p2, unit); + break; + case 131: + printf("%d-%d%s fcst ave:ave@%d%s:", p1, p2, unit,p2-p1,unit); + break; + /* for CFS */ + case 132: + printf("%d-%d%s anl:ave@1yr:", p1, p2, unit); + break; + case 133: + printf("%d-%d%s fcst:ave@1yr:", p1, p2, unit); + break; + case 134: + printf("%d-%d%s fcst-anl:rms@1yr:", p1, p2, unit); + break; + case 135: + printf("%d-%d%s fcst-fcst_mean:rms@1yr:", p1, p2, unit); + break; + case 136: + printf("%d-%d%s anl-anl_mean:rms@1yr:", p1, p2, unit); + break; + case 137: + printf("%d-%d%s fcst acc:ave@6hr:", p1, p2, unit); + break; + case 138: + printf("%d-%d%s fcst ave:ave@6hr:", p1, p2, unit); + break; + case 139: + printf("%d-%d%s fcst acc:ave@12hr:", p1, p2, unit); + break; + case 140: + printf("%d-%d%s fcst ave:ave@12hr:", p1, p2, unit); + break; + + default: printf("time?:"); + } +} + +/* + * number of missing data points w. ebisuzaki + * + * v1.1: just faster my dear + * v1.2: just faster my dear + * + */ + +static int bitsum[256] = { + 8, 7, 7, 6, 7, 6, 6, 5, 7, 6, 6, 5, 6, 5, 5, 4, + 7, 6, 6, 5, 6, 5, 5, 4, 6, 5, 5, 4, 5, 4, 4, 3, + 7, 6, 6, 5, 6, 5, 5, 4, 6, 5, 5, 4, 5, 4, 4, 3, + 6, 5, 5, 4, 5, 4, 4, 3, 5, 4, 4, 3, 4, 3, 3, 2, + 7, 6, 6, 5, 6, 5, 5, 4, 6, 5, 5, 4, 5, 4, 4, 3, + 6, 5, 5, 4, 5, 4, 4, 3, 5, 4, 4, 3, 4, 3, 3, 2, + 6, 5, 5, 4, 5, 4, 4, 3, 5, 4, 4, 3, 4, 3, 3, 2, + 5, 4, 4, 3, 4, 3, 3, 2, 4, 3, 3, 2, 3, 2, 2, 1, + 7, 6, 6, 5, 6, 5, 5, 4, 6, 5, 5, 4, 5, 4, 4, 3, + 6, 5, 5, 4, 5, 4, 4, 3, 5, 4, 4, 3, 4, 3, 3, 2, + 6, 5, 5, 4, 5, 4, 4, 3, 5, 4, 4, 3, 4, 3, 3, 2, + 5, 4, 4, 3, 4, 3, 3, 2, 4, 3, 3, 2, 3, 2, 2, 1, + 6, 5, 5, 4, 5, 4, 4, 3, 5, 4, 4, 3, 4, 3, 3, 2, + 5, 4, 4, 3, 4, 3, 3, 2, 4, 3, 3, 2, 3, 2, 2, 1, + 5, 4, 4, 3, 4, 3, 3, 2, 4, 3, 3, 2, 3, 2, 2, 1, + 4, 3, 3, 2, 3, 2, 2, 1, 3, 2, 2, 1, 2, 1, 1, 0}; + + +int missing_points(unsigned char *bitmap, int n) { + + int count; + unsigned int tmp; + if (bitmap == NULL) return 0; + + count = 0; + while (n >= 8) { + tmp = *bitmap++; + n -= 8; + count += bitsum[tmp]; + } + tmp = *bitmap | ((1 << (8 - n)) - 1); + count += bitsum[tmp]; + + return count; +} + +/* + * parameter table for NCEP (operations) + * center = 7, subcenter != 2 parameter table = 1, 2, 3 etc + * note: see reanalysis parameter table for problems + * updated 3/2003 + */ + +const struct ParmTable parm_table_ncep_opn[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"PRES", "Pressure [Pa]"}, + /* 2 */ {"PRMSL", "Pressure reduced to MSL [Pa]"}, + /* 3 */ {"PTEND", "Pressure tendency [Pa/s]"}, + /* 4 */ {"PVORT", "Pot. vorticity [km^2/kg/s]"}, + /* 5 */ {"ICAHT", "ICAO Standard Atmosphere Reference Height [M]"}, + /* 6 */ {"GP", "Geopotential [m^2/s^2]"}, + /* 7 */ {"HGT", "Geopotential height [gpm]"}, + /* 8 */ {"DIST", "Geometric height [m]"}, + /* 9 */ {"HSTDV", "Std dev of height [m]"}, + /* 10 */ {"TOZNE", "Total ozone [Dobson]"}, + /* 11 */ {"TMP", "Temp. [K]"}, + /* 12 */ {"VTMP", "Virtual temp. [K]"}, + /* 13 */ {"POT", "Potential temp. [K]"}, + /* 14 */ {"EPOT", "Pseudo-adiabatic pot. temp. [K]"}, + /* 15 */ {"TMAX", "Max. temp. [K]"}, + /* 16 */ {"TMIN", "Min. temp. [K]"}, + /* 17 */ {"DPT", "Dew point temp. [K]"}, + /* 18 */ {"DEPR", "Dew point depression [K]"}, + /* 19 */ {"LAPR", "Lapse rate [K/m]"}, + /* 20 */ {"VIS", "Visibility [m]"}, + /* 21 */ {"RDSP1", "Radar spectra (1) [non-dim]"}, + /* 22 */ {"RDSP2", "Radar spectra (2) [non-dim]"}, + /* 23 */ {"RDSP3", "Radar spectra (3) [non-dim]"}, + /* 24 */ {"PLI", "Parcel lifted index (to 500 hPa) [K]"}, + /* 25 */ {"TMPA", "Temp. anomaly [K]"}, + /* 26 */ {"PRESA", "Pressure anomaly [Pa]"}, + /* 27 */ {"GPA", "Geopotential height anomaly [gpm]"}, + /* 28 */ {"WVSP1", "Wave spectra (1) [non-dim]"}, + /* 29 */ {"WVSP2", "Wave spectra (2) [non-dim]"}, + /* 30 */ {"WVSP3", "Wave spectra (3) [non-dim]"}, + /* 31 */ {"WDIR", "Wind direction [deg]"}, + /* 32 */ {"WIND", "Wind speed [m/s]"}, + /* 33 */ {"UGRD", "u wind [m/s]"}, + /* 34 */ {"VGRD", "v wind [m/s]"}, + /* 35 */ {"STRM", "Stream function [m^2/s]"}, + /* 36 */ {"VPOT", "Velocity potential [m^2/s]"}, + /* 37 */ {"MNTSF", "Montgomery stream function [m^2/s^2]"}, + /* 38 */ {"SGCVV", "Sigma coord. vertical velocity [/s]"}, + /* 39 */ {"VVEL", "Pressure vertical velocity [Pa/s]"}, + /* 40 */ {"DZDT", "Geometric vertical velocity [m/s]"}, + /* 41 */ {"ABSV", "Absolute vorticity [/s]"}, + /* 42 */ {"ABSD", "Absolute divergence [/s]"}, + /* 43 */ {"RELV", "Relative vorticity [/s]"}, + /* 44 */ {"RELD", "Relative divergence [/s]"}, + /* 45 */ {"VUCSH", "Vertical u shear [/s]"}, + /* 46 */ {"VVCSH", "Vertical v shear [/s]"}, + /* 47 */ {"DIRC", "Direction of current [deg]"}, + /* 48 */ {"SPC", "Speed of current [m/s]"}, + /* 49 */ {"UOGRD", "u of current [m/s]"}, + /* 50 */ {"VOGRD", "v of current [m/s]"}, + /* 51 */ {"SPFH", "Specific humidity [kg/kg]"}, + /* 52 */ {"RH", "Relative humidity [%]"}, + /* 53 */ {"MIXR", "Humidity mixing ratio [kg/kg]"}, + /* 54 */ {"PWAT", "Precipitable water [kg/m^2]"}, + /* 55 */ {"VAPP", "Vapor pressure [Pa]"}, + /* 56 */ {"SATD", "Saturation deficit [Pa]"}, + /* 57 */ {"EVP", "Evaporation [kg/m^2]"}, + /* 58 */ {"CICE", "Cloud Ice [kg/m^2]"}, + /* 59 */ {"PRATE", "Precipitation rate [kg/m^2/s]"}, + /* 60 */ {"TSTM", "Thunderstorm probability [%]"}, + /* 61 */ {"APCP", "Total precipitation [kg/m^2]"}, + /* 62 */ {"NCPCP", "Large scale precipitation [kg/m^2]"}, + /* 63 */ {"ACPCP", "Convective precipitation [kg/m^2]"}, + /* 64 */ {"SRWEQ", "Snowfall rate water equiv. [kg/m^2/s]"}, + /* 65 */ {"WEASD", "Accum. snow [kg/m^2]"}, + /* 66 */ {"SNOD", "Snow depth [m]"}, + /* 67 */ {"MIXHT", "Mixed layer depth [m]"}, + /* 68 */ {"TTHDP", "Transient thermocline depth [m]"}, + /* 69 */ {"MTHD", "Main thermocline depth [m]"}, + /* 70 */ {"MTHA", "Main thermocline anomaly [m]"}, + /* 71 */ {"TCDC", "Total cloud cover [%]"}, + /* 72 */ {"CDCON", "Convective cloud cover [%]"}, + /* 73 */ {"LCDC", "Low level cloud cover [%]"}, + /* 74 */ {"MCDC", "Mid level cloud cover [%]"}, + /* 75 */ {"HCDC", "High level cloud cover [%]"}, + /* 76 */ {"CWAT", "Cloud water [kg/m^2]"}, + /* 77 */ {"BLI", "Best lifted index (to 500 hPa) [K]"}, + /* 78 */ {"SNOC", "Convective snow [kg/m^2]"}, + /* 79 */ {"SNOL", "Large scale snow [kg/m^2]"}, + /* 80 */ {"WTMP", "Water temp. [K]"}, + /* 81 */ {"LAND", "Land cover (land=1;sea=0) [fraction]"}, + /* 82 */ {"DSLM", "Deviation of sea level from mean [m]"}, + /* 83 */ {"SFCR", "Surface roughness [m]"}, + /* 84 */ {"ALBDO", "Albedo [%]"}, + /* 85 */ {"TSOIL", "Soil temp. [K]"}, + /* 86 */ {"SOILM", "Soil moisture content [kg/m^2]"}, + /* 87 */ {"VEG", "Vegetation [%]"}, + /* 88 */ {"SALTY", "Salinity [kg/kg]"}, + /* 89 */ {"DEN", "Density [kg/m^3]"}, + /* 90 */ {"WATR", "Water runoff [kg/m^2]"}, + /* 91 */ {"ICEC", "Ice concentration (ice=1;no ice=0) [fraction]"}, + /* 92 */ {"ICETK", "Ice thickness [m]"}, + /* 93 */ {"DICED", "Direction of ice drift [deg]"}, + /* 94 */ {"SICED", "Speed of ice drift [m/s]"}, + /* 95 */ {"UICE", "u of ice drift [m/s]"}, + /* 96 */ {"VICE", "v of ice drift [m/s]"}, + /* 97 */ {"ICEG", "Ice growth rate [m/s]"}, + /* 98 */ {"ICED", "Ice divergence [/s]"}, + /* 99 */ {"SNOM", "Snow melt [kg/m^2]"}, + /* 100 */ {"HTSGW", "Sig height of wind waves and swell [m]"}, + /* 101 */ {"WVDIR", "Direction of wind waves [deg]"}, + /* 102 */ {"WVHGT", "Sig height of wind waves [m]"}, + /* 103 */ {"WVPER", "Mean period of wind waves [s]"}, + /* 104 */ {"SWDIR", "Direction of swell waves [deg]"}, + /* 105 */ {"SWELL", "Sig height of swell waves [m]"}, + /* 106 */ {"SWPER", "Mean period of swell waves [s]"}, + /* 107 */ {"DIRPW", "Primary wave direction [deg]"}, + /* 108 */ {"PERPW", "Primary wave mean period [s]"}, + /* 109 */ {"DIRSW", "Secondary wave direction [deg]"}, + /* 110 */ {"PERSW", "Secondary wave mean period [s]"}, + /* 111 */ {"NSWRS", "Net short wave (surface) [W/m^2]"}, + /* 112 */ {"NLWRS", "Net long wave (surface) [W/m^2]"}, + /* 113 */ {"NSWRT", "Net short wave (top) [W/m^2]"}, + /* 114 */ {"NLWRT", "Net long wave (top) [W/m^2]"}, + /* 115 */ {"LWAVR", "Long wave [W/m^2]"}, + /* 116 */ {"SWAVR", "Short wave [W/m^2]"}, + /* 117 */ {"GRAD", "Global radiation [W/m^2]"}, + /* 118 */ {"BRTMP", "Brightness temperature [K]"}, + /* 119 */ {"LWRAD", "Radiance with respect to wave no. [W/m/sr]"}, + /* 120 */ {"SWRAD", "Radiance with respect ot wave len. [W/m^3/sr]"}, + /* 121 */ {"LHTFL", "Latent heat flux [W/m^2]"}, + /* 122 */ {"SHTFL", "Sensible heat flux [W/m^2]"}, + /* 123 */ {"BLYDP", "Boundary layer dissipation [W/m^2]"}, + /* 124 */ {"UFLX", "Zonal momentum flux [N/m^2]"}, + /* 125 */ {"VFLX", "Meridional momentum flux [N/m^2]"}, + /* 126 */ {"WMIXE", "Wind mixing energy [J]"}, + /* 127 */ {"IMGD", "Image data []"}, + /* 128 */ {"MSLSA", "Mean sea level pressure (Std Atm) [Pa]"}, + /* 129 */ {"MSLMA", "Mean sea level pressure (MAPS) [Pa]"}, + /* 130 */ {"MSLET", "Mean sea level pressure (ETA model) [Pa]"}, + /* 131 */ {"LFTX", "Surface lifted index [K]"}, + /* 132 */ {"4LFTX", "Best (4-layer) lifted index [K]"}, + /* 133 */ {"KX", "K index [K]"}, + /* 134 */ {"SX", "Sweat index [K]"}, + /* 135 */ {"MCONV", "Horizontal moisture divergence [kg/kg/s]"}, + /* 136 */ {"VWSH", "Vertical speed shear [1/s]"}, + /* 137 */ {"TSLSA", "3-hr pressure tendency (Std Atmos Red) [Pa/s]"}, + /* 138 */ {"BVF2", "Brunt-Vaisala frequency^2 [1/s^2]"}, + /* 139 */ {"PVMW", "Potential vorticity (mass-weighted) [1/s/m]"}, + /* 140 */ {"CRAIN", "Categorical rain [yes=1;no=0]"}, + /* 141 */ {"CFRZR", "Categorical freezing rain [yes=1;no=0]"}, + /* 142 */ {"CICEP", "Categorical ice pellets [yes=1;no=0]"}, + /* 143 */ {"CSNOW", "Categorical snow [yes=1;no=0]"}, + /* 144 */ {"SOILW", "Volumetric soil moisture [fraction]"}, + /* 145 */ {"PEVPR", "Potential evaporation rate [W/m^2]"}, + /* 146 */ {"CWORK", "Cloud work function [J/kg]"}, + /* 147 */ {"U-GWD", "Zonal gravity wave stress [N/m^2]"}, + /* 148 */ {"V-GWD", "Meridional gravity wave stress [N/m^2]"}, + /* 149 */ {"PV", "Potential vorticity [m^2/s/kg]"}, + /* 150 */ {"COVMZ", "Covariance between u and v [m^2/s^2]"}, + /* 151 */ {"COVTZ", "Covariance between u and T [K*m/s]"}, + /* 152 */ {"COVTM", "Covariance between v and T [K*m/s]"}, + /* 153 */ {"CLWMR", "Cloud water [kg/kg]"}, + /* 154 */ {"O3MR", "Ozone mixing ratio [kg/kg]"}, + /* 155 */ {"GFLUX", "Ground heat flux [W/m^2]"}, + /* 156 */ {"CIN", "Convective inhibition [J/kg]"}, + /* 157 */ {"CAPE", "Convective Avail. Pot. Energy [J/kg]"}, + /* 158 */ {"TKE", "Turbulent kinetic energy [J/kg]"}, + /* 159 */ {"CONDP", "Lifted parcel condensation pressure [Pa]"}, + /* 160 */ {"CSUSF", "Clear sky upward solar flux [W/m^2]"}, + /* 161 */ {"CSDSF", "Clear sky downward solar flux [W/m^2]"}, + /* 162 */ {"CSULF", "Clear sky upward long wave flux [W/m^2]"}, + /* 163 */ {"CSDLF", "Clear sky downward long wave flux [W/m^2]"}, + /* 164 */ {"CFNSF", "Cloud forcing net solar flux [W/m^2]"}, + /* 165 */ {"CFNLF", "Cloud forcing net long wave flux [W/m^2]"}, + /* 166 */ {"VBDSF", "Visible beam downward solar flux [W/m^2]"}, + /* 167 */ {"VDDSF", "Visible diffuse downward solar flux [W/m^2]"}, + /* 168 */ {"NBDSF", "Near IR beam downward solar flux [W/m^2]"}, + /* 169 */ {"NDDSF", "Near IR diffuse downward solar flux [W/m^2]"}, + /* 170 */ {"RWMR", "Rain water mixing ratio [kg/kg]"}, + /* 171 */ {"SNMR", "Snow mixing ratio [kg/kg]"}, + /* 172 */ {"MFLX", "Momentum flux [N/m^2]"}, + /* 173 */ {"LMH", "Mass point model surface [non-dim]"}, + /* 174 */ {"LMV", "Velocity point model surface [non-dim]"}, + /* 175 */ {"MLYNO", "Model layer number (from bottom up) [non-dim]"}, + /* 176 */ {"NLAT", "Latitude (-90 to +90) [deg]"}, + /* 177 */ {"ELON", "East longitude (0-360) [deg]"}, + /* 178 */ {"ICMR", "Ice mixing ratio [kg/kg]"}, + /* 179 */ {"GRMR", "Graupel mixing ratio [kg/kg]"}, + /* 180 */ {"GUST", "Surface wind gust [m/s]"}, + /* 181 */ {"LPSX", "x-gradient of log pressure [1/m]"}, + /* 182 */ {"LPSY", "y-gradient of log pressure [1/m]"}, + /* 183 */ {"HGTX", "x-gradient of height [m/m]"}, + /* 184 */ {"HGTY", "y-gradient of height [m/m]"}, + /* 185 */ {"TURB", "Turbulence SIGMET/AIRMET [non-dim]"}, + /* 186 */ {"ICNG", "Icing SIGMET/AIRMET [non-dim]"}, + /* 187 */ {"LTNG", "Lightning [non-dim]"}, + /* 188 */ {"DRIP", "Rate of water dropping from canopy to gnd [kg/m^2]"}, + /* 189 */ {"VPTMP", "Virtual pot. temp. [K]"}, + /* 190 */ {"HLCY", "Storm relative helicity [m^2/s^2]"}, + /* 191 */ {"PROB", "Prob. from ensemble [non-dim]"}, + /* 192 */ {"PROBN", "Prob. from ensemble norm. to clim. expect. [non-dim]"}, + /* 193 */ {"POP", "Prob. of precipitation [%]"}, + /* 194 */ {"CPOFP", "Prob. of frozen precipitation [%]"}, + /* 195 */ {"CPOZP", "Prob. of freezing precipitation [%]"}, + /* 196 */ {"USTM", "u-component of storm motion [m/s]"}, + /* 197 */ {"VSTM", "v-component of storm motion [m/s]"}, + /* 198 */ {"NCIP", "No. concen. ice particles []"}, + /* 199 */ {"EVBS", "Direct evaporation from bare soil [W/m^2]"}, + /* 200 */ {"EVCW", "Canopy water evaporation [W/m^2]"}, + /* 201 */ {"ICWAT", "Ice-free water surface [%]"}, + /* 202 */ {"CWDI", "Convective weather detection index []"}, + /* 203 */ {"VAFTAD", "VAFTAD?? [??]"}, + /* 204 */ {"DSWRF", "Downward short wave flux [W/m^2]"}, + /* 205 */ {"DLWRF", "Downward long wave flux [W/m^2]"}, + /* 206 */ {"UVI", "Ultraviolet index [W/m^2]"}, + /* 207 */ {"MSTAV", "Moisture availability [%]"}, + /* 208 */ {"SFEXC", "Exchange coefficient [(kg/m^3)(m/s)]"}, + /* 209 */ {"MIXLY", "No. of mixed layers next to surface [integer]"}, + /* 210 */ {"TRANS", "Transpiration [W/m^2]"}, + /* 211 */ {"USWRF", "Upward short wave flux [W/m^2]"}, + /* 212 */ {"ULWRF", "Upward long wave flux [W/m^2]"}, + /* 213 */ {"CDLYR", "Non-convective cloud [%]"}, + /* 214 */ {"CPRAT", "Convective precip. rate [kg/m^2/s]"}, + /* 215 */ {"TTDIA", "Temp. tendency by all physics [K/s]"}, + /* 216 */ {"TTRAD", "Temp. tendency by all radiation [K/s]"}, + /* 217 */ {"TTPHY", "Temp. tendency by non-radiation physics [K/s]"}, + /* 218 */ {"PREIX", "Precip index (0.0-1.00) [fraction]"}, + /* 219 */ {"TSD1D", "Std. dev. of IR T over 1x1 deg area [K]"}, + /* 220 */ {"NLGSP", "Natural log of surface pressure [ln(kPa)]"}, + /* 221 */ {"HPBL", "Planetary boundary layer height [m]"}, + /* 222 */ {"5WAVH", "5-wave geopotential height [gpm]"}, + /* 223 */ {"CNWAT", "Plant canopy surface water [kg/m^2]"}, + /* 224 */ {"SOTYP", "Soil type (Zobler) [0..9]"}, + /* 225 */ {"VGTYP", "Vegetation type (as in SiB) [0..13]"}, + /* 226 */ {"BMIXL", "Blackadar's mixing length scale [m]"}, + /* 227 */ {"AMIXL", "Asymptotic mixing length scale [m]"}, + /* 228 */ {"PEVAP", "Pot. evaporation [kg/m^2]"}, + /* 229 */ {"SNOHF", "Snow phase-change heat flux [W/m^2]"}, + /* 230 */ {"5WAVA", "5-wave geopot. height anomaly [gpm]"}, + /* 231 */ {"MFLUX", "Convective cloud mass flux [Pa/s]"}, + /* 232 */ {"DTRF", "Downward total radiation flux [W/m^2]"}, + /* 233 */ {"UTRF", "Upward total radiation flux [W/m^2]"}, + /* 234 */ {"BGRUN", "Baseflow-groundwater runoff [kg/m^2]"}, + /* 235 */ {"SSRUN", "Storm surface runoff [kg/m^2]"}, + /* 236 */ {"SIPD", "Supercooled large droplet (SLD) icing pot. diagn. []"}, + /* 237 */ {"O3TOT", "Total ozone [kg/m^2]"}, + /* 238 */ {"SNOWC", "Snow cover [%]"}, + /* 239 */ {"SNOT", "Snow temp. [K]"}, + /* 240 */ {"COVTW", "Covariance T and w [K*m/s]"}, + /* 241 */ {"LRGHR", "Large scale condensation heating [K/s]"}, + /* 242 */ {"CNVHR", "Deep convective heating [K/s]"}, + /* 243 */ {"CNVMR", "Deep convective moistening [kg/kg/s]"}, + /* 244 */ {"SHAHR", "Shallow convective heating [K/s]"}, + /* 245 */ {"SHAMR", "Shallow convective moistening [kg/kg/s]"}, + /* 246 */ {"VDFHR", "Vertical diffusion heating [K/s]"}, + /* 247 */ {"VDFUA", "Vertical diffusion zonal accel [m/s^2]"}, + /* 248 */ {"VDFVA", "Vertical diffusion meridional accel [m/s^2]"}, + /* 249 */ {"VDFMR", "Vertical diffusion moistening [kg/kg/s]"}, + /* 250 */ {"SWHR", "Solar radiative heating [K/s]"}, + /* 251 */ {"LWHR", "Longwave radiative heating [K/s]"}, + /* 252 */ {"CD", "Drag coefficient [non-dim]"}, + /* 253 */ {"FRICV", "Friction velocity [m/s]"}, + /* 254 */ {"RI", "Richardson number [non-dim]"}, + /* 255 */ {"var255", "undefined"}, +}; + +/* + * parameter table for the NCEP/NCAR Reanalysis Project + * center = 7, subcenter = 0/2, parameter table = 1/2 + * in a SNAFU the operational and reanalysis tables diverged + * and both retained the same parameter table numbers (1,2) + * + * some of the Reanalysis files have subcenter=2 while others + * use subcenter=0 (subcenter field is not standard (7/97)) + * + * Some ways to tell Reanalysis files from OPN files + * Reanalysis: always generated by process 80 - T62 28 level model + * Original subcenter=0 Reanalysis files had + * 2.5x2.5 (144x73) lat-long grid or 192x94 Gaussian grid (PDS grid=255?) + */ + +const struct ParmTable parm_table_ncep_reanal[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"PRES", "Pressure [Pa]"}, + /* 2 */ {"PRMSL", "Pressure reduced to MSL [Pa]"}, + /* 3 */ {"PTEND", "Pressure tendency [Pa/s]"}, + /* 4 */ {"var4", "undefined"}, + /* 5 */ {"var5", "undefined"}, + /* 6 */ {"GP", "Geopotential [m^2/s^2]"}, + /* 7 */ {"HGT", "Geopotential height [gpm]"}, + /* 8 */ {"DIST", "Geometric height [m]"}, + /* 9 */ {"HSTDV", "Std dev of height [m]"}, + /* 10 */ {"HVAR", "Variance of height [m^2]"}, + /* 11 */ {"TMP", "Temp. [K]"}, + /* 12 */ {"VTMP", "Virtual temp. [K]"}, + /* 13 */ {"POT", "Potential temp. [K]"}, + /* 14 */ {"EPOT", "Pseudo-adiabatic pot. temp. [K]"}, + /* 15 */ {"TMAX", "Max. temp. [K]"}, + /* 16 */ {"TMIN", "Min. temp. [K]"}, + /* 17 */ {"DPT", "Dew point temp. [K]"}, + /* 18 */ {"DEPR", "Dew point depression [K]"}, + /* 19 */ {"LAPR", "Lapse rate [K/m]"}, + /* 20 */ {"VISIB", "Visibility [m]"}, + /* 21 */ {"RDSP1", "Radar spectra (1) [non-dim]"}, + /* 22 */ {"RDSP2", "Radar spectra (2) [non-dim]"}, + /* 23 */ {"RDSP3", "Radar spectra (3) [non-dim]"}, + /* 24 */ {"var24", "undefined"}, + /* 25 */ {"TMPA", "Temp. anomaly [K]"}, + /* 26 */ {"PRESA", "Pressure anomaly [Pa]"}, + /* 27 */ {"GPA", "Geopotential height anomaly [gpm]"}, + /* 28 */ {"WVSP1", "Wave spectra (1) [non-dim]"}, + /* 29 */ {"WVSP2", "Wave spectra (2) [non-dim]"}, + /* 30 */ {"WVSP3", "Wave spectra (3) [non-dim]"}, + /* 31 */ {"WDIR", "Wind direction [deg]"}, + /* 32 */ {"WIND", "Wind speed [m/s]"}, + /* 33 */ {"UGRD", "u wind [m/s]"}, + /* 34 */ {"VGRD", "v wind [m/s]"}, + /* 35 */ {"STRM", "Stream function [m^2/s]"}, + /* 36 */ {"VPOT", "Velocity potential [m^2/s]"}, + /* 37 */ {"MNTSF", "Montgomery stream function [m^2/s^2]"}, + /* 38 */ {"SGCVV", "Sigma coord. vertical velocity [/s]"}, + /* 39 */ {"VVEL", "Pressure vertical velocity [Pa/s]"}, + /* 40 */ {"DZDT", "Geometric vertical velocity [m/s]"}, + /* 41 */ {"ABSV", "Absolute vorticity [/s]"}, + /* 42 */ {"ABSD", "Absolute divergence [/s]"}, + /* 43 */ {"RELV", "Relative vorticity [/s]"}, + /* 44 */ {"RELD", "Relative divergence [/s]"}, + /* 45 */ {"VUCSH", "Vertical u shear [/s]"}, + /* 46 */ {"VVCSH", "Vertical v shear [/s]"}, + /* 47 */ {"DIRC", "Direction of current [deg]"}, + /* 48 */ {"SPC", "Speed of current [m/s]"}, + /* 49 */ {"UOGRD", "u of current [m/s]"}, + /* 50 */ {"VOGRD", "v of current [m/s]"}, + /* 51 */ {"SPFH", "Specific humidity [kg/kg]"}, + /* 52 */ {"RH", "Relative humidity [%]"}, + /* 53 */ {"MIXR", "Humidity mixing ratio [kg/kg]"}, + /* 54 */ {"PWAT", "Precipitable water [kg/m^2]"}, + /* 55 */ {"VAPP", "Vapor pressure [Pa]"}, + /* 56 */ {"SATD", "Saturation deficit [Pa]"}, + /* 57 */ {"EVP", "Evaporation [kg/m^2]"}, + /* 58 */ {"CICE", "Cloud Ice [kg/kg]"}, + /* 59 */ {"PRATE", "Precipitation rate [kg/m^2/s]"}, + /* 60 */ {"TSTM", "Thunderstorm probability [%]"}, + /* 61 */ {"APCP", "Total precipitation [kg/m^2]"}, + /* 62 */ {"NCPCP", "Large scale precipitation [kg/m^2]"}, + /* 63 */ {"ACPCP", "Convective precipitation [kg/m^2]"}, + /* 64 */ {"SRWEQ", "Snowfall rate water equiv. [kg/m^2/s]"}, + /* 65 */ {"WEASD", "Accum. snow [kg/m^2]"}, + /* 66 */ {"SNOD", "Snow depth [m]"}, + /* 67 */ {"MIXHT", "Mixed layer depth [m]"}, + /* 68 */ {"TTHDP", "Transient thermocline depth [m]"}, + /* 69 */ {"MTHD", "Main thermocline depth [m]"}, + /* 70 */ {"MTHA", "Main thermocline anomaly [m]"}, + /* 71 */ {"TCDC", "Total cloud cover [%]"}, + /* 72 */ {"CDCON", "Convective cloud cover [%]"}, + /* 73 */ {"LCDC", "Low level cloud cover [%]"}, + /* 74 */ {"MCDC", "Mid level cloud cover [%]"}, + /* 75 */ {"HCDC", "High level cloud cover [%]"}, + /* 76 */ {"CWAT", "Cloud water [kg/m^2]"}, + /* 77 */ {"var77", "undefined"}, + /* 78 */ {"SNOC", "Convective snow [kg/m^2]"}, + /* 79 */ {"SNOL", "Large scale snow [kg/m^2]"}, + /* 80 */ {"WTMP", "Water temp. [K]"}, + /* 81 */ {"LAND", "Land-sea mask [1=land; 0=sea]"}, + /* 82 */ {"DSLM", "Deviation of sea level from mean [m]"}, + /* 83 */ {"SFCR", "Surface roughness [m]"}, + /* 84 */ {"ALBDO", "Albedo [%]"}, + /* 85 */ {"TSOIL", "Soil temp. [K]"}, + /* 86 */ {"SOILM", "Soil moisture content [kg/m^2]"}, + /* 87 */ {"VEG", "Vegetation [%]"}, + /* 88 */ {"SALTY", "Salinity [kg/kg]"}, + /* 89 */ {"DEN", "Density [kg/m^3]"}, + /* 90 */ {"RUNOF", "Runoff [kg/m^2]"}, + /* 91 */ {"ICEC", "Ice concentration [ice=1;no ice=0]"}, + /* 92 */ {"ICETK", "Ice thickness [m]"}, + /* 93 */ {"DICED", "Direction of ice drift [deg]"}, + /* 94 */ {"SICED", "Speed of ice drift [m/s]"}, + /* 95 */ {"UICE", "u of ice drift [m/s]"}, + /* 96 */ {"VICE", "v of ice drift [m/s]"}, + /* 97 */ {"ICEG", "Ice growth rate [m/s]"}, + /* 98 */ {"ICED", "Ice divergence [/s]"}, + /* 99 */ {"SNOM", "Snow melt [kg/m^2]"}, + /* 100 */ {"HTSGW", "Sig height of wind waves and swell [m]"}, + /* 101 */ {"WVDIR", "Direction of wind waves [deg]"}, + /* 102 */ {"WVHGT", "Sig height of wind waves [m]"}, + /* 103 */ {"WVPER", "Mean period of wind waves [s]"}, + /* 104 */ {"SWDIR", "Direction of swell waves [deg]"}, + /* 105 */ {"SWELL", "Sig height of swell waves [m]"}, + /* 106 */ {"SWPER", "Mean period of swell waves [s]"}, + /* 107 */ {"DIRPW", "Primary wave direction [deg]"}, + /* 108 */ {"PERPW", "Primary wave mean period [s]"}, + /* 109 */ {"DIRSW", "Secondary wave direction [deg]"}, + /* 110 */ {"PERSW", "Secondary wave mean period [s]"}, + /* 111 */ {"NSWRS", "Net short wave (surface) [W/m^2]"}, + /* 112 */ {"NLWRS", "Net long wave (surface) [W/m^2]"}, + /* 113 */ {"NSWRT", "Net short wave (top) [W/m^2]"}, + /* 114 */ {"NLWRT", "Net long wave (top) [W/m^2]"}, + /* 115 */ {"LWAVR", "Long wave [W/m^2]"}, + /* 116 */ {"SWAVR", "Short wave [W/m^2]"}, + /* 117 */ {"GRAD", "Global radiation [W/m^2]"}, + /* 118 */ {"var118", "undefined"}, + /* 119 */ {"var119", "undefined"}, + /* 120 */ {"var120", "undefined"}, + /* 121 */ {"LHTFL", "Latent heat flux [W/m^2]"}, + /* 122 */ {"SHTFL", "Sensible heat flux [W/m^2]"}, + /* 123 */ {"BLYDP", "Boundary layer dissipation [W/m^2]"}, + /* 124 */ {"UFLX", "Zonal momentum flux [N/m^2]"}, + /* 125 */ {"VFLX", "Meridional momentum flux [N/m^2]"}, + /* 126 */ {"WMIXE", "Wind mixing energy [J]"}, + /* 127 */ {"IMGD", "Image data [integer]"}, + /* 128 */ {"MSLSA", "Mean sea level pressure (Std Atm) [Pa]"}, + /* 129 */ {"MSLMA", "Mean sea level pressure (MAPS) [Pa]"}, + /* 130 */ {"MSLET", "Mean sea level pressure (ETA model) [Pa]"}, + /* 131 */ {"LFTX", "Surface lifted index [K]"}, + /* 132 */ {"4LFTX", "Best (4-layer) lifted index [K]"}, + /* 133 */ {"KX", "K index [K]"}, + /* 134 */ {"SX", "Sweat index [K]"}, + /* 135 */ {"MCONV", "Horizontal moisture divergence [kg/kg/s]"}, + /* 136 */ {"VSSH", "Vertical speed shear [1/s]"}, + /* 137 */ {"TSLSA", "3-hr pressure tendency [Pa/s]"}, + /* 138 */ {"BVF2", "Brunt-Vaisala frequency^2 [1/s^2]"}, + /* 139 */ {"PVMW", "Potential vorticity (mass-weighted) [1/s/m]"}, + /* 140 */ {"CRAIN", "Categorical rain [yes=1;no=0]"}, + /* 141 */ {"CFRZR", "Categorical freezing rain [yes=1;no=0]"}, + /* 142 */ {"CICEP", "Categorical ice pellets [yes=1;no=0]"}, + /* 143 */ {"CSNOW", "Categorical snow [yes=1;no=0]"}, + /* 144 */ {"SOILW", "Volumetric soil moisture [fraction]"}, + /* 145 */ {"PEVPR", "Potential evaporation rate [W/m^2]"}, + /* 146 */ {"CWORK", "Cloud work function [J/kg]"}, + /* 147 */ {"U-GWD", "Zonal gravity wave stress [N/m^2]"}, + /* 148 */ {"V-GWD", "Meridional gravity wave stress [N/m^2]"}, + /* 149 */ {"PV___", "Potential vorticity [m^2/s/kg]"}, + /* 150 */ {"var150", "undefined"}, + /* 151 */ {"var151", "undefined"}, + /* 152 */ {"var152", "undefined"}, + /* 153 */ {"MFXDV", "Moisture flux divergence [gr/gr*m/s/m]"}, + /* 154 */ {"var154", "undefined"}, + /* 155 */ {"GFLUX", "Ground heat flux [W/m^2]"}, + /* 156 */ {"CIN", "Convective inhibition [J/kg]"}, + /* 157 */ {"CAPE", "Convective Avail. Pot. Energy [J/kg]"}, + /* 158 */ {"TKE", "Turbulent kinetic energy [J/kg]"}, + /* 159 */ {"CONDP", "Lifted parcel condensation pressure [Pa]"}, + /* 160 */ {"CSUSF", "Clear sky upward solar flux [W/m^2]"}, + /* 161 */ {"CSDSF", "Clear sky downward solar flux [W/m^2]"}, + /* 162 */ {"CSULF", "Clear sky upward long wave flux [W/m^2]"}, + /* 163 */ {"CSDLF", "Clear sky downward long wave flux [W/m^2]"}, + /* 164 */ {"CFNSF", "Cloud forcing net solar flux [W/m^2]"}, + /* 165 */ {"CFNLF", "Cloud forcing net long wave flux [W/m^2]"}, + /* 166 */ {"VBDSF", "Visible beam downward solar flux [W/m^2]"}, + /* 167 */ {"VDDSF", "Visible diffuse downward solar flux [W/m^2]"}, + /* 168 */ {"NBDSF", "Near IR beam downward solar flux [W/m^2]"}, + /* 169 */ {"NDDSF", "Near IR diffuse downward solar flux [W/m^2]"}, + /* 170 */ {"USTR", "U wind stress [N/m^2]"}, + /* 171 */ {"VSTR", "V wind stress [N/m^2]"}, + /* 172 */ {"MFLX", "Momentum flux [N/m^2]"}, + /* 173 */ {"LMH", "Mass point model surface [integer]"}, + /* 174 */ {"LMV", "Velocity point model surface [integer]"}, + /* 175 */ {"SGLYR", "Nearby model level [integer]"}, + /* 176 */ {"NLAT", "Latitude [deg]"}, + /* 177 */ {"ELON", "Longitude [deg]"}, + /* 178 */ {"UMAS", "Mass weighted u [gm/m*K*s]"}, + /* 179 */ {"VMAS", "Mass weighted v [gm/m*K*s]"}, + /* 180 */ {"XPRATE", "corrected precip [kg/m^2/s]"}, + /* 181 */ {"LPSX", "x-gradient of log pressure [1/m]"}, + /* 182 */ {"LPSY", "y-gradient of log pressure [1/m]"}, + /* 183 */ {"HGTX", "x-gradient of height [m/m]"}, + /* 184 */ {"HGTY", "y-gradient of height [m/m]"}, + /* 185 */ {"STDZ", "Std dev of Geop. hgt. [m]"}, + /* 186 */ {"STDU", "Std dev of zonal wind [m/s]"}, + /* 187 */ {"STDV", "Std dev of meridional wind [m/s]"}, + /* 188 */ {"STDQ", "Std dev of spec. hum. [gm/gm]"}, + /* 189 */ {"STDT", "Std dev of temp. [K]"}, + /* 190 */ {"CBUW", "Covar. u and omega [m/s*Pa/s]"}, + /* 191 */ {"CBVW", "Covar. v and omega [m/s*Pa/s]"}, + /* 192 */ {"CBUQ", "Covar. u and specific hum [m/s*gm/gm]"}, + /* 193 */ {"CBVQ", "Covar. v and specific hum [m/s*gm/gm]"}, + /* 194 */ {"CBTW", "Covar. T and omega [K*Pa/s]"}, + /* 195 */ {"CBQW", "Covar. spec. hum and omega [gm/gm*Pa/s]"}, + /* 196 */ {"CBMZW", "Covar. v and u [m^2/s^2]"}, + /* 197 */ {"CBTZW", "Covar. u and T [K*m/s]"}, + /* 198 */ {"CBTMW", "Covar. v and T [K*m/s]"}, + /* 199 */ {"STDRH", "Std dev of Rel. Hum. [%]"}, + /* 200 */ {"SDTZ", "Std dev of time tend of geop. hgt [m]"}, + /* 201 */ {"ICWAT", "Ice-free water surface [%]"}, + /* 202 */ {"SDTU", "Std dev of time tend of zonal wind [m/s]"}, + /* 203 */ {"SDTV", "Std dev of time tend of merid wind [m/s]"}, + /* 204 */ {"DSWRF", "Downward solar radiation flux [W/m^2]"}, + /* 205 */ {"DLWRF", "Downward long wave flux [W/m^2]"}, + /* 206 */ {"SDTQ", "Std dev of time tend of spec. hum [gm/gm]"}, + /* 207 */ {"MSTAV", "Moisture availability [%]"}, + /* 208 */ {"SFEXC", "Exchange coefficient [kg*m/m^3/s]"}, + /* 209 */ {"MIXLY", "No. of mixed layers next to sfc [integer]"}, + /* 210 */ {"SDTT", "Std dev of time tend of temp. [K]"}, + /* 211 */ {"USWRF", "Upward solar radiation flux [W/m^2]"}, + /* 212 */ {"ULWRF", "Upward long wave flux [W/m^2]"}, + /* 213 */ {"CDLYR", "Non-convective cloud [%]"}, + /* 214 */ {"CPRAT", "Convective precip. rate [kg/m^2/s]"}, + /* 215 */ {"TTDIA", "Temp. tendency by all physics [K/s]"}, + /* 216 */ {"TTRAD", "Temp. tendency by all radiation [K/s]"}, + /* 217 */ {"TTPHY", "Temp. tendency by nonrad physics [K/s]"}, + /* 218 */ {"PREIX", "Precipitation index [fraction]"}, + /* 219 */ {"TSD1D", "Std dev of IR T over 1x1 deg area [K]"}, + /* 220 */ {"NLSGP", "Natural log of surface pressure [ln(kPa)]"}, + /* 221 */ {"SDTRH", "Std dev of time tend of rel hum [%]"}, + /* 222 */ {"5WAVH", "5-wave geopotential height [gpm]"}, + /* 223 */ {"CNWAT", "Plant canopy surface water [kg/m^2]"}, + /* 224 */ {"PLTRS", "Max. stomato plant resistance [s/m]"}, + /* 225 */ {"RHCLD", "RH-type cloud cover [%]"}, + /* 226 */ {"BMIXL", "Blackadar's mixing length scale [m]"}, + /* 227 */ {"AMIXL", "Asymptotic mixing length scale [m]"}, + /* 228 */ {"PEVAP", "Pot. evaporation [kg/m^2]"}, + /* 229 */ {"SNOHF", "Snow melt heat flux [W/m^2]"}, + /* 230 */ {"SNOEV", "Snow sublimation heat flux [W/m^2]"}, + /* 231 */ {"MFLUX", "Convective cloud mass flux [Pa/s]"}, + /* 232 */ {"DTRF", "Downward total radiation flux [W/m^2]"}, + /* 233 */ {"UTRF", "Upward total radiation flux [W/m^2]"}, + /* 234 */ {"BGRUN", "Baseflow-groundwater runoff [kg/m^2]"}, + /* 235 */ {"SSRUN", "Storm surface runoff [kg/m^2]"}, + /* 236 */ {"var236", "undefined"}, + /* 237 */ {"OZONE", "Total column ozone [Dobson]"}, + /* 238 */ {"SNOWC", "Snow cover [%]"}, + /* 239 */ {"SNOT", "Snow temp. [K]"}, + /* 240 */ {"GLCR", "Permanent snow points [mask]"}, + /* 241 */ {"LRGHR", "Large scale condensation heating [K/s]"}, + /* 242 */ {"CNVHR", "Deep convective heating [K/s]"}, + /* 243 */ {"CNVMR", "Deep convective moistening [kg/kg/s]"}, + /* 244 */ {"SHAHR", "Shallow convective heating [K/s]"}, + /* 245 */ {"SHAMR", "Shallow convective moistening [kg/kg/s]"}, + /* 246 */ {"VDFHR", "Vertical diffusion heating [K/s]"}, + /* 247 */ {"VDFUA", "Vertical diffusion zonal accel [m/s^2]"}, + /* 248 */ {"VDFVA", "Vertical diffusion meridional accel [m/s^2]"}, + /* 249 */ {"VDFMR", "Vertical diffusion moistening [kg/kg/s]"}, + /* 250 */ {"SWHR", "Solar radiative heating [K/s]"}, + /* 251 */ {"LWHR", "Longwave radiative heating [K/s]"}, + /* 252 */ {"CD", "Drag coefficient [non-dim]"}, + /* 253 */ {"FRICV", "Friction velocity [m/s]"}, + /* 254 */ {"RI", "Richardson number [non-dim]"}, + /* 255 */ {"var255", "undefined"}, +}; + +const struct ParmTable parm_table_nceptab_131[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"PRES", "Pressure [Pa]"}, + /* 2 */ {"PRMSL", "Pressure reduced to MSL [Pa]"}, + /* 3 */ {"PTEND", "Pressure tendency [Pa/s]"}, + /* 4 */ {"PVORT", "Pot. vorticity [km^2/kg/s]"}, + /* 5 */ {"ICAHT", "ICAO Standard Atmosphere Reference Height [M]"}, + /* 6 */ {"GP", "Geopotential [m^2/s^2]"}, + /* 7 */ {"HGT", "Geopotential height [gpm]"}, + /* 8 */ {"DIST", "Geometric height [m]"}, + /* 9 */ {"HSTDV", "Std dev of height [m]"}, + /* 10 */ {"TOZNE", "Total ozone [Dobson]"}, + /* 11 */ {"TMP", "Temp. [K]"}, + /* 12 */ {"VTMP", "Virtual temp. [K]"}, + /* 13 */ {"POT", "Potential temp. [K]"}, + /* 14 */ {"EPOT", "Pseudo-adiabatic pot. temp. [K]"}, + /* 15 */ {"TMAX", "Max. temp. [K]"}, + /* 16 */ {"TMIN", "Min. temp. [K]"}, + /* 17 */ {"DPT", "Dew point temp. [K]"}, + /* 18 */ {"DEPR", "Dew point depression [K]"}, + /* 19 */ {"LAPR", "Lapse rate [K/m]"}, + /* 20 */ {"VIS", "Visibility [m]"}, + /* 21 */ {"RDSP1", "Radar spectra (1) [non-dim]"}, + /* 22 */ {"RDSP2", "Radar spectra (2) [non-dim]"}, + /* 23 */ {"RDSP3", "Radar spectra (3) [non-dim]"}, + /* 24 */ {"PLI", "Parcel lifted index (to 500 hPa) [K]"}, + /* 25 */ {"TMPA", "Temp. anomaly [K]"}, + /* 26 */ {"PRESA", "Pressure anomaly [Pa]"}, + /* 27 */ {"GPA", "Geopotential height anomaly [gpm]"}, + /* 28 */ {"WVSP1", "Wave spectra (1) [non-dim]"}, + /* 29 */ {"WVSP2", "Wave spectra (2) [non-dim]"}, + /* 30 */ {"WVSP3", "Wave spectra (3) [non-dim]"}, + /* 31 */ {"WDIR", "Wind direction [deg]"}, + /* 32 */ {"WIND", "Wind speed [m/s]"}, + /* 33 */ {"UGRD", "u wind [m/s]"}, + /* 34 */ {"VGRD", "v wind [m/s]"}, + /* 35 */ {"STRM", "Stream function [m^2/s]"}, + /* 36 */ {"VPOT", "Velocity potential [m^2/s]"}, + /* 37 */ {"MNTSF", "Montgomery stream function [m^2/s^2]"}, + /* 38 */ {"SGCVV", "Sigma coord. vertical velocity [/s]"}, + /* 39 */ {"VVEL", "Pressure vertical velocity [Pa/s]"}, + /* 40 */ {"DZDT", "Geometric vertical velocity [m/s]"}, + /* 41 */ {"ABSV", "Absolute vorticity [/s]"}, + /* 42 */ {"ABSD", "Absolute divergence [/s]"}, + /* 43 */ {"RELV", "Relative vorticity [/s]"}, + /* 44 */ {"RELD", "Relative divergence [/s]"}, + /* 45 */ {"VUCSH", "Vertical u shear [/s]"}, + /* 46 */ {"VVCSH", "Vertical v shear [/s]"}, + /* 47 */ {"DIRC", "Direction of current [deg]"}, + /* 48 */ {"SPC", "Speed of current [m/s]"}, + /* 49 */ {"UOGRD", "u of current [m/s]"}, + /* 50 */ {"VOGRD", "v of current [m/s]"}, + /* 51 */ {"SPFH", "Specific humidity [kg/kg]"}, + /* 52 */ {"RH", "Relative humidity [%]"}, + /* 53 */ {"MIXR", "Humidity mixing ratio [kg/kg]"}, + /* 54 */ {"PWAT", "Precipitable water [kg/m^2]"}, + /* 55 */ {"VAPP", "Vapor pressure [Pa]"}, + /* 56 */ {"SATD", "Saturation deficit [Pa]"}, + /* 57 */ {"EVP", "Evaporation [kg/m^2]"}, + /* 58 */ {"CICE", "Cloud Ice [kg/m^2]"}, + /* 59 */ {"PRATE", "Precipitation rate [kg/m^2/s]"}, + /* 60 */ {"TSTM", "Thunderstorm probability [%]"}, + /* 61 */ {"APCP", "Total precipitation [kg/m^2]"}, + /* 62 */ {"NCPCP", "Large scale precipitation [kg/m^2]"}, + /* 63 */ {"ACPCP", "Convective precipitation [kg/m^2]"}, + /* 64 */ {"SRWEQ", "Snowfall rate water equiv. [kg/m^2/s]"}, + /* 65 */ {"WEASD", "Accum. snow [kg/m^2]"}, + /* 66 */ {"SNOD", "Snow depth [m]"}, + /* 67 */ {"MIXHT", "Mixed layer depth [m]"}, + /* 68 */ {"TTHDP", "Transient thermocline depth [m]"}, + /* 69 */ {"MTHD", "Main thermocline depth [m]"}, + /* 70 */ {"MTHA", "Main thermocline anomaly [m]"}, + /* 71 */ {"TCDC", "Total cloud cover [%]"}, + /* 72 */ {"CDCON", "Convective cloud cover [%]"}, + /* 73 */ {"LCDC", "Low level cloud cover [%]"}, + /* 74 */ {"MCDC", "Mid level cloud cover [%]"}, + /* 75 */ {"HCDC", "High level cloud cover [%]"}, + /* 76 */ {"CWAT", "Cloud water [kg/m^2]"}, + /* 77 */ {"BLI", "Best lifted index (to 500 hPa) [K]"}, + /* 78 */ {"SNOC", "Convective snow [kg/m^2]"}, + /* 79 */ {"SNOL", "Large scale snow [kg/m^2]"}, + /* 80 */ {"WTMP", "Water temp. [K]"}, + /* 81 */ {"LAND", "Land-sea coverage (land=1;sea=0) [fraction]"}, + /* 82 */ {"DSLM", "Deviation of sea level from mean [m]"}, + /* 83 */ {"SFCR", "Surface roughness [m]"}, + /* 84 */ {"ALBDO", "Albedo [%]"}, + /* 85 */ {"TSOIL", "Soil temp. [K]"}, + /* 86 */ {"SOILM", "Soil moisture content [kg/m^2]"}, + /* 87 */ {"VEG", "Vegetation [%]"}, + /* 88 */ {"SALTY", "Salinity [kg/kg]"}, + /* 89 */ {"DEN", "Density [kg/m^3]"}, + /* 90 */ {"WATR", "Water runoff [kg/m^2]"}, + /* 91 */ {"ICEC", "Ice concentration (ice=1;no ice=0) [fraction]"}, + /* 92 */ {"ICETK", "Ice thickness [m]"}, + /* 93 */ {"DICED", "Direction of ice drift [deg]"}, + /* 94 */ {"SICED", "Speed of ice drift [m/s]"}, + /* 95 */ {"UICE", "u of ice drift [m/s]"}, + /* 96 */ {"VICE", "v of ice drift [m/s]"}, + /* 97 */ {"ICEG", "Ice growth rate [m/s]"}, + /* 98 */ {"ICED", "Ice divergence [/s]"}, + /* 99 */ {"SNOM", "Snow melt [kg/m^2]"}, + /* 100 */ {"HTSGW", "Sig height of wind waves and swell [m]"}, + /* 101 */ {"WVDIR", "Direction of wind waves [deg]"}, + /* 102 */ {"WVHGT", "Sig height of wind waves [m]"}, + /* 103 */ {"WVPER", "Mean period of wind waves [s]"}, + /* 104 */ {"SWDIR", "Direction of swell waves [deg]"}, + /* 105 */ {"SWELL", "Sig height of swell waves [m]"}, + /* 106 */ {"SWPER", "Mean period of swell waves [s]"}, + /* 107 */ {"DIRPW", "Primary wave direction [deg]"}, + /* 108 */ {"PERPW", "Primary wave mean period [s]"}, + /* 109 */ {"DIRSW", "Secondary wave direction [deg]"}, + /* 110 */ {"PERSW", "Secondary wave mean period [s]"}, + /* 111 */ {"NSWRS", "Net short wave (surface) [W/m^2]"}, + /* 112 */ {"NLWRS", "Net long wave (surface) [W/m^2]"}, + /* 113 */ {"NSWRT", "Net short wave (top) [W/m^2]"}, + /* 114 */ {"NLWRT", "Net long wave (top) [W/m^2]"}, + /* 115 */ {"LWAVR", "Long wave [W/m^2]"}, + /* 116 */ {"SWAVR", "Short wave [W/m^2]"}, + /* 117 */ {"GRAD", "Global radiation [W/m^2]"}, + /* 118 */ {"BRTMP", "Brightness temperature [K]"}, + /* 119 */ {"LWRAD", "Radiance with respect to wave no. [W/m/sr]"}, + /* 120 */ {"SWRAD", "Radiance with respect ot wave len. [W/m^3/sr]"}, + /* 121 */ {"LHTFL", "Latent heat flux [W/m^2]"}, + /* 122 */ {"SHTFL", "Sensible heat flux [W/m^2]"}, + /* 123 */ {"BLYDP", "Boundary layer dissipation [W/m^2]"}, + /* 124 */ {"UFLX", "Zonal momentum flux [N/m^2]"}, + /* 125 */ {"VFLX", "Meridional momentum flux [N/m^2]"}, + /* 126 */ {"WMIXE", "Wind mixing energy [J]"}, + /* 127 */ {"IMGD", "Image data []"}, + /* 128 */ {"MSLSA", "Mean sea level pressure (Std Atm) [Pa]"}, + /* 129 */ {"var129", "undefined"}, + /* 130 */ {"MSLET", "Mean sea level pressure (ETA model) [Pa]"}, + /* 131 */ {"LFTX", "Surface lifted index [K]"}, + /* 132 */ {"4LFTX", "Best (4-layer) lifted index [K]"}, + /* 133 */ {"var133", "undefined"}, + /* 134 */ {"PRESN", "Pressure (nearest grid point) [Pa]"}, + /* 135 */ {"MCONV", "Horizontal moisture divergence [kg/kg/s]"}, + /* 136 */ {"VWSH", "Vertical speed shear [1/s]"}, + /* 137 */ {"LTNGSD", "Lightning strike density [1/m^2/s]"}, + /* 138 */ {"var138", "undefined"}, + /* 139 */ {"PVMW", "Potential vorticity (mass-weighted) [1/s/m]"}, + /* 140 */ {"CRAIN", "Categorical rain [yes=1;no=0]"}, + /* 141 */ {"CFRZR", "Categorical freezing rain [yes=1;no=0]"}, + /* 142 */ {"CICEP", "Categorical ice pellets [yes=1;no=0]"}, + /* 143 */ {"CSNOW", "Categorical snow [yes=1;no=0]"}, + /* 144 */ {"SOILW", "Volumetric soil moisture (frozen + liquid) [fraction]"}, + /* 145 */ {"PEVPR", "Potential evaporation rate [W/m^2]"}, + /* 146 */ {"VEGT", "Vegetation canopy temperature [K]"}, + /* 147 */ {"BARET", "Bare soil surface skin temperature [K]"}, + /* 148 */ {"AVSFT", "Average surface skin temperature [K]"}, + /* 149 */ {"RADT", "Effective radiative skin temperature [K]"}, + /* 150 */ {"SSTOR", "Surface water storage [kg/m^2]"}, + /* 151 */ {"LSOIL", "Liquid soil moisture content (non-frozen) [kg/m^2]"}, + /* 152 */ {"EWATR", "Open water evaporation (standing water) [W/m^2]"}, + /* 153 */ {"CLWMR", "Cloud water [kg/kg]"}, + /* 154 */ {"var154", "undefined"}, + /* 155 */ {"GFLUX", "Ground Heat Flux [W/m^2]"}, + /* 156 */ {"CIN", "Convective inhibition [J/kg]"}, + /* 157 */ {"CAPE", "Convective available potential energy [J/kg]"}, + /* 158 */ {"TKE", "Turbulent Kinetic Energy [J/kg]"}, + /* 159 */ {"MXSALB", "Maximum snow albedo [%]"}, + /* 160 */ {"SOILL", "Liquid volumetric soil moisture (non-frozen) [fraction]"}, + /* 161 */ {"ASNOW", "Frozen precipitation (e.g. snowfall) [kg/m^2]"}, + /* 162 */ {"ARAIN", "Liquid precipitation (rainfall) [kg/m^2]"}, + /* 163 */ {"GWREC", "Groundwater recharge [kg/m^2]"}, + /* 164 */ {"QREC", "Flood plain recharge [kg/m^2]"}, + /* 165 */ {"SNOWT", "Snow temperature, depth-avg [K]"}, + /* 166 */ {"VBDSF", "Visible beam downward solar flux [W/m^2]"}, + /* 167 */ {"VDDSF", "Visible diffuse downward solar flux [W/m^2]"}, + /* 168 */ {"NBDSF", "Near IR beam downward solar flux [W/m^2]"}, + /* 169 */ {"NDDSF", "Near IR diffuse downward solar flux [W/m^2]"}, + /* 170 */ {"SNFALB", "Snow-free albedo [%]"}, + /* 171 */ {"RLYRS", "Number of soil layers in root zone [non-dim]"}, + /* 172 */ {"FLX", "Momentum flux N/m2 [M]"}, + /* 173 */ {"LMH", "Mass point model surface [non-dim]"}, + /* 174 */ {"LMV", "Velocity point model surface [non-dim]"}, + /* 175 */ {"MLYNO", "Model layer number (from bottom up) [non-dim]"}, + /* 176 */ {"NLAT", "Latitude (-90 to +90) [deg]"}, + /* 177 */ {"ELON", "East longitude (0-360) [deg]"}, + /* 178 */ {"ICMR", "Ice mixing ratio [kg/kg]"}, + /* 179 */ {"ACOND", "Aerodynamic conductance [m/s]"}, + /* 180 */ {"SNOAG", "Snow age [s]"}, + /* 181 */ {"CCOND", "Canopy conductance [m/s]"}, + /* 182 */ {"LAI", "Leaf area index (0-9) [non-dim]"}, + /* 183 */ {"SFCRH", "Roughness length for heat [m]"}, + /* 184 */ {"SALBD", "Snow albedo (over snow cover area only) [%]"}, + /* 185 */ {"var185", "undefined"}, + /* 186 */ {"var186", "undefined"}, + /* 187 */ {"NDVI", "Normalized Difference Vegetation Index []"}, + /* 188 */ {"DRIP", "Rate of water dropping from canopy to gnd [kg/m^2]"}, + /* 189 */ {"LANDN", "Land-sea coverage (nearest neighbor) [land=1,sea=0]"}, + /* 190 */ {"HLCY", "Storm relative helicity [m^2/s^2]"}, + /* 191 */ {"NLATN", "Latitude (nearest neigbhbor) (-90 to +90) [deg]"}, + /* 192 */ {"ELONN", "East longitude (nearest neigbhbor) (0-360) [deg]"}, + /* 193 */ {"APTMP", "Apparent temperature [K]"}, + /* 194 */ {"CPOFP", "Prob. of frozen precipitation [%]"}, + /* 195 */ {"var195", "undefined"}, + /* 196 */ {"USTM", "u-component of storm motion [m/s]"}, + /* 197 */ {"VSTM", "v-component of storm motion [m/s]"}, + /* 198 */ {"SBSNO", "Sublimation (evaporation from snow) [W/m^2]"}, + /* 199 */ {"EVBS", "Direct evaporation from bare soil [W/m^2]"}, + /* 200 */ {"EVCW", "Canopy water evaporation [W/m^2]"}, + /* 201 */ {"var201", "undefined"}, + /* 202 */ {"APCPN", "Total precipitation (nearest grid point) [kg/m^2]"}, + /* 203 */ {"RSMIN", "Minimal stomatal resistance [s/m]"}, + /* 204 */ {"DSWRF", "Downward shortwave radiation flux [W/m^2]"}, + /* 205 */ {"DLWRF", "Downward longwave radiation flux [W/m^2]"}, + /* 206 */ {"ACPCPN", "Convective precipitation (nearest grid point) [kg/m^2]"}, + /* 207 */ {"MSTAV", "Moisture availability [%]"}, + /* 208 */ {"SFEXC", "Exchange coefficient [(kg/m^3)(m/s)]"}, + /* 209 */ {"var209", "undefined"}, + /* 210 */ {"TRANS", "Transpiration [W/m^2]"}, + /* 211 */ {"USWRF", "Upward short wave radiation flux [W/m^2]"}, + /* 212 */ {"ULWRF", "Upward long wave radiation flux [W/m^2]"}, + /* 213 */ {"CDLYR", "Non-convective cloud [%]"}, + /* 214 */ {"CPRAT", "Convective precip. rate [kg/m^2/s]"}, + /* 215 */ {"var215", "undefined"}, + /* 216 */ {"TTRAD", "Temp. tendency by all radiation [K/s]"}, + /* 217 */ {"var217", "undefined"}, + /* 218 */ {"HGTN", "Geopotential Height (nearest grid point) [gpm]"}, + /* 219 */ {"WILT", "Wilting point [fraction]"}, + /* 220 */ {"FLDCP", "Field Capacity [fraction]"}, + /* 221 */ {"HPBL", "Planetary boundary layer height [m]"}, + /* 222 */ {"SLTYP", "Surface slope type [Index]"}, + /* 223 */ {"CNWAT", "Plant canopy surface water [kg/m^2]"}, + /* 224 */ {"SOTYP", "Soil type [Index]"}, + /* 225 */ {"VGTYP", "Vegetation type [Index]"}, + /* 226 */ {"BMIXL", "Blackadars mixing length scale [m]"}, + /* 227 */ {"AMIXL", "Asymptotic mixing length scale [m]"}, + /* 228 */ {"PEVAP", "Potential evaporation [kg/m^2]"}, + /* 229 */ {"SNOHF", "Snow phase-change heat flux [W/m^2]"}, + /* 230 */ {"SMREF", "Transpiration stress-onset (soil moisture) [fraction]"}, + /* 231 */ {"SMDRY", "Direct evaporation cease (soil moisture) [fraction]"}, + /* 232 */ {"WVINC", "water vapor added by precip assimilation [kg/m^2]"}, + /* 233 */ {"WCINC", "water condensate added by precip assimilaition [kg/m^2]"}, + /* 234 */ {"BGRUN", "Subsurface runoff (baseflow) [kg/m^2]"}, + /* 235 */ {"SSRUN", "Surface runoff (non-infiltrating) [kg/m^2]"}, + /* 236 */ {"var236", "undefined"}, + /* 237 */ {"WVCONV", "Water vapor flux convergence (vertical int) [kg/m^2]"}, + /* 238 */ {"SNOWC", "Snow cover [%]"}, + /* 239 */ {"SNOT", "Snow temperature [K]"}, + /* 240 */ {"POROS", "Soil porosity [fraction]"}, + /* 241 */ {"WCCONV", "Water condensate flux convergence (vertical int) [kg/m^2]"}, + /* 242 */ {"WVUFLX", "Water vapor zonal flux (vertical int)[kg/m]"}, + /* 243 */ {"WVVFLX", "Water vapor meridional flux (vertical int) [kg/m]"}, + /* 244 */ {"WCUFLX", "Water condensate zonal flux (vertical int) [kg/m]"}, + /* 245 */ {"WCVFLX", "Water condensate meridional flux (vertical int) [kg/m]"}, + /* 246 */ {"RCS", "Solar parameter in canopy conductance [fraction]"}, + /* 247 */ {"RCT", "Temperature parameter in canopy conductance [fraction]"}, + /* 248 */ {"RCQ", "Humidity parameter in canopy conductance [fraction]"}, + /* 249 */ {"RCSOL", "Soil moisture parameter in canopy conductance [fraction]"}, + /* 250 */ {"SWHR", "Solar radiative heating [K/s]"}, + /* 251 */ {"LWHR", "Longwave radiative heating [K/s]"}, + /* 252 */ {"CD", "Surface drag coefficient [non-dim]"}, + /* 253 */ {"FRICV", "Surface friction velocity [m/s]"}, + /* 254 */ {"RI", "Richardson number [non-dim]"}, + /* 255 */ {"var255", "undefined"}, +}; + +const struct ParmTable parm_table_nceptab_130[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"PRES", "Pressure [Pa]"}, + /* 2 */ {"PRMSL", "Pressure reduced to MSL [Pa]"}, + /* 3 */ {"PTEND", "Pressure tendency [Pa/s]"}, + /* 4 */ {"PVORT", "Pot. vorticity [km^2/kg/s]"}, + /* 5 */ {"ICAHT", "ICAO Standard Atmosphere Reference Height [M]"}, + /* 6 */ {"GP", "Geopotential [m^2/s^2]"}, + /* 7 */ {"HGT", "Geopotential height [gpm]"}, + /* 8 */ {"DIST", "Geometric height [m]"}, + /* 9 */ {"HSTDV", "Std dev of height [m]"}, + /* 10 */ {"TOZNE", "Total ozone [Dobson]"}, + /* 11 */ {"TMP", "Temp. [K]"}, + /* 12 */ {"VTMP", "Virtual temp. [K]"}, + /* 13 */ {"POT", "Potential temp. [K]"}, + /* 14 */ {"EPOT", "Pseudo-adiabatic pot. temp. [K]"}, + /* 15 */ {"TMAX", "Max. temp. [K]"}, + /* 16 */ {"TMIN", "Min. temp. [K]"}, + /* 17 */ {"DPT", "Dew point temp. [K]"}, + /* 18 */ {"DEPR", "Dew point depression [K]"}, + /* 19 */ {"LAPR", "Lapse rate [K/m]"}, + /* 20 */ {"VIS", "Visibility [m]"}, + /* 21 */ {"RDSP1", "Radar spectra (1) [non-dim]"}, + /* 22 */ {"RDSP2", "Radar spectra (2) [non-dim]"}, + /* 23 */ {"RDSP3", "Radar spectra (3) [non-dim]"}, + /* 24 */ {"PLI", "Parcel lifted index (to 500 hPa) [K]"}, + /* 25 */ {"TMPA", "Temp. anomaly [K]"}, + /* 26 */ {"PRESA", "Pressure anomaly [Pa]"}, + /* 27 */ {"GPA", "Geopotential height anomaly [gpm]"}, + /* 28 */ {"WVSP1", "Wave spectra (1) [non-dim]"}, + /* 29 */ {"WVSP2", "Wave spectra (2) [non-dim]"}, + /* 30 */ {"WVSP3", "Wave spectra (3) [non-dim]"}, + /* 31 */ {"WDIR", "Wind direction [deg]"}, + /* 32 */ {"WIND", "Wind speed [m/s]"}, + /* 33 */ {"UGRD", "u wind [m/s]"}, + /* 34 */ {"VGRD", "v wind [m/s]"}, + /* 35 */ {"STRM", "Stream function [m^2/s]"}, + /* 36 */ {"VPOT", "Velocity potential [m^2/s]"}, + /* 37 */ {"MNTSF", "Montgomery stream function [m^2/s^2]"}, + /* 38 */ {"SGCVV", "Sigma coord. vertical velocity [/s]"}, + /* 39 */ {"VVEL", "Pressure vertical velocity [Pa/s]"}, + /* 40 */ {"DZDT", "Geometric vertical velocity [m/s]"}, + /* 41 */ {"ABSV", "Absolute vorticity [/s]"}, + /* 42 */ {"ABSD", "Absolute divergence [/s]"}, + /* 43 */ {"RELV", "Relative vorticity [/s]"}, + /* 44 */ {"RELD", "Relative divergence [/s]"}, + /* 45 */ {"VUCSH", "Vertical u shear [/s]"}, + /* 46 */ {"VVCSH", "Vertical v shear [/s]"}, + /* 47 */ {"DIRC", "Direction of current [deg]"}, + /* 48 */ {"SPC", "Speed of current [m/s]"}, + /* 49 */ {"UOGRD", "u of current [m/s]"}, + /* 50 */ {"VOGRD", "v of current [m/s]"}, + /* 51 */ {"SPFH", "Specific humidity [kg/kg]"}, + /* 52 */ {"RH", "Relative humidity [%]"}, + /* 53 */ {"MIXR", "Humidity mixing ratio [kg/kg]"}, + /* 54 */ {"PWAT", "Precipitable water [kg/m^2]"}, + /* 55 */ {"VAPP", "Vapor pressure [Pa]"}, + /* 56 */ {"SATD", "Saturation deficit [Pa]"}, + /* 57 */ {"EVP", "Evaporation [kg/m^2]"}, + /* 58 */ {"CICE", "Cloud Ice [kg/m^2]"}, + /* 59 */ {"PRATE", "Precipitation rate [kg/m^2/s]"}, + /* 60 */ {"TSTM", "Thunderstorm probability [%]"}, + /* 61 */ {"APCP", "Total precipitation [kg/m^2]"}, + /* 62 */ {"NCPCP", "Large scale precipitation [kg/m^2]"}, + /* 63 */ {"ACPCP", "Convective precipitation [kg/m^2]"}, + /* 64 */ {"SRWEQ", "Snowfall rate water equiv. [kg/m^2/s]"}, + /* 65 */ {"WEASD", "Accum. snow [kg/m^2]"}, + /* 66 */ {"SNOD", "Snow depth [m]"}, + /* 67 */ {"MIXHT", "Mixed layer depth [m]"}, + /* 68 */ {"TTHDP", "Transient thermocline depth [m]"}, + /* 69 */ {"MTHD", "Main thermocline depth [m]"}, + /* 70 */ {"MTHA", "Main thermocline anomaly [m]"}, + /* 71 */ {"TCDC", "Total cloud cover [%]"}, + /* 72 */ {"CDCON", "Convective cloud cover [%]"}, + /* 73 */ {"LCDC", "Low level cloud cover [%]"}, + /* 74 */ {"MCDC", "Mid level cloud cover [%]"}, + /* 75 */ {"HCDC", "High level cloud cover [%]"}, + /* 76 */ {"CWAT", "Cloud water [kg/m^2]"}, + /* 77 */ {"BLI", "Best lifted index (to 500 hPa) [K]"}, + /* 78 */ {"SNOC", "Convective snow [kg/m^2]"}, + /* 79 */ {"SNOL", "Large scale snow [kg/m^2]"}, + /* 80 */ {"WTMP", "Water temp. [K]"}, + /* 81 */ {"LAND", "Land cover (land=1;sea=0) [fraction]"}, + /* 82 */ {"DSLM", "Deviation of sea level from mean [m]"}, + /* 83 */ {"SFCR", "Surface roughness [m]"}, + /* 84 */ {"ALBDO", "Albedo [%]"}, + /* 85 */ {"TSOIL", "Soil temp. [K]"}, + /* 86 */ {"SOILM", "Soil moisture content [kg/m^2]"}, + /* 87 */ {"VEG", "Vegetation [%]"}, + /* 88 */ {"SALTY", "Salinity [kg/kg]"}, + /* 89 */ {"DEN", "Density [kg/m^3]"}, + /* 90 */ {"WATR", "Water runoff [kg/m^2]"}, + /* 91 */ {"ICEC", "Ice concentration (ice=1;no ice=0) [fraction]"}, + /* 92 */ {"ICETK", "Ice thickness [m]"}, + /* 93 */ {"DICED", "Direction of ice drift [deg]"}, + /* 94 */ {"SICED", "Speed of ice drift [m/s]"}, + /* 95 */ {"UICE", "u of ice drift [m/s]"}, + /* 96 */ {"VICE", "v of ice drift [m/s]"}, + /* 97 */ {"ICEG", "Ice growth rate [m/s]"}, + /* 98 */ {"ICED", "Ice divergence [/s]"}, + /* 99 */ {"SNOM", "Snow melt [kg/m^2]"}, + /* 100 */ {"HTSGW", "Sig height of wind waves and swell [m]"}, + /* 101 */ {"WVDIR", "Direction of wind waves [deg]"}, + /* 102 */ {"WVHGT", "Sig height of wind waves [m]"}, + /* 103 */ {"WVPER", "Mean period of wind waves [s]"}, + /* 104 */ {"SWDIR", "Direction of swell waves [deg]"}, + /* 105 */ {"SWELL", "Sig height of swell waves [m]"}, + /* 106 */ {"SWPER", "Mean period of swell waves [s]"}, + /* 107 */ {"DIRPW", "Primary wave direction [deg]"}, + /* 108 */ {"PERPW", "Primary wave mean period [s]"}, + /* 109 */ {"DIRSW", "Secondary wave direction [deg]"}, + /* 110 */ {"PERSW", "Secondary wave mean period [s]"}, + /* 111 */ {"NSWRS", "Net short wave (surface) [W/m^2]"}, + /* 112 */ {"NLWRS", "Net long wave (surface) [W/m^2]"}, + /* 113 */ {"NSWRT", "Net short wave (top) [W/m^2]"}, + /* 114 */ {"NLWRT", "Net long wave (top) [W/m^2]"}, + /* 115 */ {"LWAVR", "Long wave [W/m^2]"}, + /* 116 */ {"SWAVR", "Short wave [W/m^2]"}, + /* 117 */ {"GRAD", "Global radiation [W/m^2]"}, + /* 118 */ {"BRTMP", "Brightness temperature [K]"}, + /* 119 */ {"LWRAD", "Radiance with respect to wave no. [W/m/sr]"}, + /* 120 */ {"SWRAD", "Radiance with respect ot wave len. [W/m^3/sr]"}, + /* 121 */ {"LHTFL", "Latent heat flux [W/m^2]"}, + /* 122 */ {"SHTFL", "Sensible heat flux [W/m^2]"}, + /* 123 */ {"BLYDP", "Boundary layer dissipation [W/m^2]"}, + /* 124 */ {"UFLX", "Zonal momentum flux [N/m^2]"}, + /* 125 */ {"VFLX", "Meridional momentum flux [N/m^2]"}, + /* 126 */ {"WMIXE", "Wind mixing energy [J]"}, + /* 127 */ {"IMGD", "Image data []"}, + /* 128 */ {"var128", "undefined"}, + /* 129 */ {"var129", "undefined"}, + /* 130 */ {"var130", "undefined"}, + /* 131 */ {"var131", "undefined"}, + /* 132 */ {"var132", "undefined"}, + /* 133 */ {"var133", "undefined"}, + /* 134 */ {"var134", "undefined"}, + /* 135 */ {"var135", "undefined"}, + /* 136 */ {"var136", "undefined"}, + /* 137 */ {"var137", "undefined"}, + /* 138 */ {"var138", "undefined"}, + /* 139 */ {"var139", "undefined"}, + /* 140 */ {"var140", "undefined"}, + /* 141 */ {"var141", "undefined"}, + /* 142 */ {"var142", "undefined"}, + /* 143 */ {"var143", "undefined"}, + /* 144 */ {"SOILW", "Volumetric soil moisture (frozen + liquid) [fraction]"}, + /* 145 */ {"PEVPR", "Potential evaporation rate [W/m^2]"}, + /* 146 */ {"VEGT", "Vegetation canopy temperature [K]"}, + /* 147 */ {"BARET", "Bare soil surface skin temperature [K]"}, + /* 148 */ {"AVSFT", "Average surface skin temperature [K]"}, + /* 149 */ {"RADT", "Effective radiative skin temperature [K]"}, + /* 150 */ {"SSTOR", "Surface water storage [Kg/m^2]"}, + /* 151 */ {"LSOIL", "Liquid soil moisture content (non-frozen) [Kg/m^2]"}, + /* 152 */ {"EWATR", "Open water evaporation (standing water) [W/m^2]"}, + /* 153 */ {"NCRAIN", "Number concentration for rain particles [-]"}, + /* 154 */ {"LSPA", "Land Surface Precipitation Accumulation [kg/m^2]"}, + /* 155 */ {"GFLUX", "Ground Heat Flux [W/m^2]"}, + /* 156 */ {"CIN", "Convective inhibition [J/Kg]"}, + /* 157 */ {"CAPE", "Convective available potential energy [J/Kg]"}, + /* 158 */ {"TKE", "Turbulent Kinetic Energy [J/Kg]"}, + /* 159 */ {"MXSALB", "Maximum snow albedo [%]"}, + /* 160 */ {"SOILL", "Liquid volumetric soil moisture (non-frozen) [fraction]"}, + /* 161 */ {"ASNOW", "Frozen precipitation (e.g. snowfall) [Kg/m^2]"}, + /* 162 */ {"ARAIN", "Liquid precipitation (rainfall) [Kg/m^2]"}, + /* 163 */ {"GWREC", "Groundwater recharge [Kg/m^2]"}, + /* 164 */ {"QREC", "Flood plain recharge [Kg/m^2]"}, + /* 165 */ {"SNOWT", "Snow temperature, depth-avg [K]"}, + /* 166 */ {"VBDSF", "Visible beam downward solar flux [W/m^2]"}, + /* 167 */ {"VDDSF", "Visible diffuse downward solar flux [W/m^2]"}, + /* 168 */ {"NBDSF", "Near IR beam downward solar flux [W/m^2]"}, + /* 169 */ {"NDDSF", "Near IR diffuse downward solar flux [W/m^2]"}, + /* 170 */ {"SNFALB", "Snow-free albedo [%]"}, + /* 171 */ {"RLYRS", "Number of soil layers in root zone [non-dim]"}, + /* 172 */ {"MFLX", "Momentum flux [N/m^2]"}, + /* 173 */ {"var173", "undefined"}, + /* 174 */ {"var174", "undefined"}, + /* 175 */ {"var175", "undefined"}, + /* 176 */ {"NLAT", "Latitude (-90 to +90) [deg]"}, + /* 177 */ {"ELON", "East longitude (0-360) [deg]"}, + /* 178 */ {"FLDCAP", "Field capacity [fraction]"}, + /* 179 */ {"ACOND", "Aerodynamic conductance [m/s]"}, + /* 180 */ {"SNOAG", "Snow age [s]"}, + /* 181 */ {"CCOND", "Canopy conductance [m/s]"}, + /* 182 */ {"LAI", "Leaf area index (0-9) [non-dim]"}, + /* 183 */ {"SFCRH", "Roughness length for heat [m]"}, + /* 184 */ {"SALBD", "Snow albedo (over snow cover area only) [%]"}, + /* 185 */ {"var185", "undefined"}, + /* 186 */ {"var186", "undefined"}, + /* 187 */ {"NDVI", "Normalized Difference Vegetation Index []"}, + /* 188 */ {"DRIP", "Canopy drip [Kg/m^2]"}, + /* 189 */ {"VBSALB", "Visible, black sky albedo [%]"}, + /* 190 */ {"VWSALB", "Visible, white sky albedo [%]"}, + /* 191 */ {"NBSALB", "Near IR, black sky albedo [%]"}, + /* 192 */ {"NWSALB", "Near IR, white sky albedo [%]"}, + /* 193 */ {"FRZR", "Freezing rain [kg/m^2]"}, + /* 194 */ {"FROZR", "Frozen rain [kg/m^2]"}, + /* 195 */ {"TSNOW", "Total snow [kg/m^2]"}, + /* 196 */ {"MTERH", "Model terrain height [m]"}, + /* 197 */ {"var197", "undefined"}, + /* 198 */ {"SBSNO", "Sublimation (evaporation from snow) [W/m^2]"}, + /* 199 */ {"EVBS", "Direct evaporation from bare soil [W/m^2]"}, + /* 200 */ {"EVCW", "Canopy water evaporation [W/m^2]"}, + /* 201 */ {"VTCIN", "Virtual temperature based convective inhibition [J/kg]"}, + /* 202 */ {"VTCAPE", "Virtual temperature based convective available pot. energy [J/Kg]"}, + /* 203 */ {"RSMIN", "Minimal stomatal resistance [s/m]"}, + /* 204 */ {"DSWRF", "Downward shortwave radiation flux [W/m^2]"}, + /* 205 */ {"DLWRF", "Downward longwave radiation flux [W/m^2]"}, + /* 206 */ {"VIL", "Vertically integrated liquid [Kg/m^2]"}, + /* 207 */ {"MSTAV", "Moisture availability [%]"}, + /* 208 */ {"SFEXC", "Exchange coefficient [(Kg/m^3)(m/s)]"}, + /* 209 */ {"var209", "undefined"}, + /* 210 */ {"TRANS", "Transpiration [W/m^2]"}, + /* 211 */ {"USWRF", "Upward short wave radiation flux [W/m^2]"}, + /* 212 */ {"ULWRF", "Upward long wave radiation flux [W/m^2]"}, + /* 213 */ {"var213", "undefined"}, + /* 214 */ {"var214", "undefined"}, + /* 215 */ {"var215", "undefined"}, + /* 216 */ {"var216", "undefined"}, + /* 217 */ {"var217", "undefined"}, + /* 218 */ {"var218", "undefined"}, + /* 219 */ {"WILT", "Wilting point [fraction]"}, + /* 220 */ {"FLDCP", "Field Capacity [fraction]"}, + /* 221 */ {"HPBL", "Planetary boundary layer height [m]"}, + /* 222 */ {"SLTYP", "Surface slope type [Index]"}, + /* 223 */ {"CNWAT", "Plant canopy surface water [Kg/m^2]"}, + /* 224 */ {"SOTYP", "Soil type [Index]"}, + /* 225 */ {"VGTYP", "Vegetation type [Index]"}, + /* 226 */ {"BMIXL", "Blackadars mixing length scale [m]"}, + /* 227 */ {"AMIXL", "Asymptotic mixing length scale [m]"}, + /* 228 */ {"PEVAP", "Potential evaporation [Kg/m^2]"}, + /* 229 */ {"SNOHF", "Snow phase-change heat flux [W/m^2]"}, + /* 230 */ {"SMREF", "Transpiration stress-onset (soil moisture) [fraction]"}, + /* 231 */ {"SMDRY", "Direct evaporation cease (soil moisture) [fraction]"}, + /* 232 */ {"var232", "undefined"}, + /* 233 */ {"var233", "undefined"}, + /* 234 */ {"BGRUN", "Subsurface runoff (baseflow) [Kg/m^2]"}, + /* 235 */ {"SSRUN", "Surface runoff (non-infiltrating) [Kg/m^2]"}, + /* 236 */ {"var236", "undefined"}, + /* 237 */ {"var237", "undefined"}, + /* 238 */ {"SNOWC", "Snow cover [%]"}, + /* 239 */ {"SNOT", "Snow temperature [K]"}, + /* 240 */ {"POROS", "Soil porosity [fraction]"}, + /* 241 */ {"SBT112", "Simulated brightness temp for GOES11, channel 2 [K]"}, + /* 242 */ {"SBT113", "Simulated brightness temp for GOES11, channel 3 [K]"}, + /* 243 */ {"SBT114", "Simulated brightness temp for GOES11, channel 4 [K]"}, + /* 244 */ {"SBT115", "Simulated brightness temp for GOES11, channel 5 [K]"}, + /* 245 */ {"var245", "undefined"}, + /* 246 */ {"RCS", "Solar parameter in canopy conductance [fraction]"}, + /* 247 */ {"RCT", "Temperature parameter in canopy conductance [fraction]"}, + /* 248 */ {"RCQ", "Humidity parameter in canopy conductance [fraction]"}, + /* 249 */ {"RCSOL", "Soil moisture parameter in canopy conductance [fraction]"}, + /* 250 */ {"var250", "undefined"}, + /* 251 */ {"var251", "undefined"}, + /* 252 */ {"CD", "Surface drag coefficient [non-dim]"}, + /* 253 */ {"FRICV", "Surface friction velocity [m/s]"}, + /* 254 */ {"RI", "Richardson number [non-dim]"}, + /* 255 */ {"var255", "undefined"}, +}; + +const struct ParmTable parm_table_nceptab_133[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"PRES", "Pressure [Pa]"}, + /* 2 */ {"PRMSL", "Pressure reduced to MSL [Pa]"}, + /* 3 */ {"PTEND", "Pressure tendency [Pa/s]"}, + /* 4 */ {"PVORT", "Pot. vorticity [km^2/kg/s]"}, + /* 5 */ {"ICAHT", "ICAO Standard Atmosphere Reference Height [M]"}, + /* 6 */ {"GP", "Geopotential [m^2/s^2]"}, + /* 7 */ {"HGT", "Geopotential height [gpm]"}, + /* 8 */ {"DIST", "Geometric height [m]"}, + /* 9 */ {"HSTDV", "Std dev of height [m]"}, + /* 10 */ {"TOZNE", "Total ozone [Dobson]"}, + /* 11 */ {"TMP", "Temp. [K]"}, + /* 12 */ {"VTMP", "Virtual temp. [K]"}, + /* 13 */ {"POT", "Potential temp. [K]"}, + /* 14 */ {"EPOT", "Pseudo-adiabatic pot. temp. [K]"}, + /* 15 */ {"TMAX", "Max. temp. [K]"}, + /* 16 */ {"TMIN", "Min. temp. [K]"}, + /* 17 */ {"DPT", "Dew point temp. [K]"}, + /* 18 */ {"DEPR", "Dew point depression [K]"}, + /* 19 */ {"LAPR", "Lapse rate [K/m]"}, + /* 20 */ {"VIS", "Visibility [m]"}, + /* 21 */ {"RDSP1", "Radar spectra (1) [non-dim]"}, + /* 22 */ {"RDSP2", "Radar spectra (2) [non-dim]"}, + /* 23 */ {"RDSP3", "Radar spectra (3) [non-dim]"}, + /* 24 */ {"PLI", "Parcel lifted index (to 500 hPa) [K]"}, + /* 25 */ {"TMPA", "Temp. anomaly [K]"}, + /* 26 */ {"PRESA", "Pressure anomaly [Pa]"}, + /* 27 */ {"GPA", "Geopotential height anomaly [gpm]"}, + /* 28 */ {"WVSP1", "Wave spectra (1) [non-dim]"}, + /* 29 */ {"WVSP2", "Wave spectra (2) [non-dim]"}, + /* 30 */ {"WVSP3", "Wave spectra (3) [non-dim]"}, + /* 31 */ {"WDIR", "Wind direction [deg]"}, + /* 32 */ {"WIND", "Wind speed [m/s]"}, + /* 33 */ {"UGRD", "u wind [m/s]"}, + /* 34 */ {"VGRD", "v wind [m/s]"}, + /* 35 */ {"STRM", "Stream function [m^2/s]"}, + /* 36 */ {"VPOT", "Velocity potential [m^2/s]"}, + /* 37 */ {"MNTSF", "Montgomery stream function [m^2/s^2]"}, + /* 38 */ {"SGCVV", "Sigma coord. vertical velocity [/s]"}, + /* 39 */ {"VVEL", "Pressure vertical velocity [Pa/s]"}, + /* 40 */ {"DZDT", "Geometric vertical velocity [m/s]"}, + /* 41 */ {"ABSV", "Absolute vorticity [/s]"}, + /* 42 */ {"ABSD", "Absolute divergence [/s]"}, + /* 43 */ {"RELV", "Relative vorticity [/s]"}, + /* 44 */ {"RELD", "Relative divergence [/s]"}, + /* 45 */ {"VUCSH", "Vertical u shear [/s]"}, + /* 46 */ {"VVCSH", "Vertical v shear [/s]"}, + /* 47 */ {"DIRC", "Direction of current [deg]"}, + /* 48 */ {"SPC", "Speed of current [m/s]"}, + /* 49 */ {"UOGRD", "u of current [m/s]"}, + /* 50 */ {"VOGRD", "v of current [m/s]"}, + /* 51 */ {"SPFH", "Specific humidity [kg/kg]"}, + /* 52 */ {"RH", "Relative humidity [%]"}, + /* 53 */ {"MIXR", "Humidity mixing ratio [kg/kg]"}, + /* 54 */ {"PWAT", "Precipitable water [kg/m^2]"}, + /* 55 */ {"VAPP", "Vapor pressure [Pa]"}, + /* 56 */ {"SATD", "Saturation deficit [Pa]"}, + /* 57 */ {"EVP", "Evaporation [kg/m^2]"}, + /* 58 */ {"CICE", "Cloud Ice [kg/m^2]"}, + /* 59 */ {"PRATE", "Precipitation rate [kg/m^2/s]"}, + /* 60 */ {"TSTM", "Thunderstorm probability [%]"}, + /* 61 */ {"APCP", "Total precipitation [kg/m^2]"}, + /* 62 */ {"NCPCP", "Large scale precipitation [kg/m^2]"}, + /* 63 */ {"ACPCP", "Convective precipitation [kg/m^2]"}, + /* 64 */ {"SRWEQ", "Snowfall rate water equiv. [kg/m^2/s]"}, + /* 65 */ {"WEASD", "Accum. snow [kg/m^2]"}, + /* 66 */ {"SNOD", "Snow depth [m]"}, + /* 67 */ {"MIXHT", "Mixed layer depth [m]"}, + /* 68 */ {"TTHDP", "Transient thermocline depth [m]"}, + /* 69 */ {"MTHD", "Main thermocline depth [m]"}, + /* 70 */ {"MTHA", "Main thermocline anomaly [m]"}, + /* 71 */ {"TCDC", "Total cloud cover [%]"}, + /* 72 */ {"CDCON", "Convective cloud cover [%]"}, + /* 73 */ {"LCDC", "Low level cloud cover [%]"}, + /* 74 */ {"MCDC", "Mid level cloud cover [%]"}, + /* 75 */ {"HCDC", "High level cloud cover [%]"}, + /* 76 */ {"CWAT", "Cloud water [kg/m^2]"}, + /* 77 */ {"BLI", "Best lifted index (to 500 hPa) [K]"}, + /* 78 */ {"SNOC", "Convective snow [kg/m^2]"}, + /* 79 */ {"SNOL", "Large scale snow [kg/m^2]"}, + /* 80 */ {"WTMP", "Water temp. [K]"}, + /* 81 */ {"LAND", "Land-sea coverage (land=1;sea=0) [fraction]"}, + /* 82 */ {"DSLM", "Deviation of sea level from mean [m]"}, + /* 83 */ {"SFCR", "Surface roughness [m]"}, + /* 84 */ {"ALBDO", "Albedo [%]"}, + /* 85 */ {"TSOIL", "Soil temp. [K]"}, + /* 86 */ {"SOILM", "Soil moisture content [kg/m^2]"}, + /* 87 */ {"VEG", "Vegetation [%]"}, + /* 88 */ {"SALTY", "Salinity [kg/kg]"}, + /* 89 */ {"DEN", "Density [kg/m^3]"}, + /* 90 */ {"WATR", "Water runoff [kg/m^2]"}, + /* 91 */ {"ICEC", "Ice concentration (ice=1;no ice=0) [fraction]"}, + /* 92 */ {"ICETK", "Ice thickness [m]"}, + /* 93 */ {"DICED", "Direction of ice drift [deg]"}, + /* 94 */ {"SICED", "Speed of ice drift [m/s]"}, + /* 95 */ {"UICE", "u of ice drift [m/s]"}, + /* 96 */ {"VICE", "v of ice drift [m/s]"}, + /* 97 */ {"ICEG", "Ice growth rate [m/s]"}, + /* 98 */ {"ICED", "Ice divergence [/s]"}, + /* 99 */ {"SNOM", "Snow melt [kg/m^2]"}, + /* 100 */ {"HTSGW", "Sig height of wind waves and swell [m]"}, + /* 101 */ {"WVDIR", "Direction of wind waves [deg]"}, + /* 102 */ {"WVHGT", "Sig height of wind waves [m]"}, + /* 103 */ {"WVPER", "Mean period of wind waves [s]"}, + /* 104 */ {"SWDIR", "Direction of swell waves [deg]"}, + /* 105 */ {"SWELL", "Sig height of swell waves [m]"}, + /* 106 */ {"SWPER", "Mean period of swell waves [s]"}, + /* 107 */ {"DIRPW", "Primary wave direction [deg]"}, + /* 108 */ {"PERPW", "Primary wave mean period [s]"}, + /* 109 */ {"DIRSW", "Secondary wave direction [deg]"}, + /* 110 */ {"PERSW", "Secondary wave mean period [s]"}, + /* 111 */ {"NSWRS", "Net short wave (surface) [W/m^2]"}, + /* 112 */ {"NLWRS", "Net long wave (surface) [W/m^2]"}, + /* 113 */ {"NSWRT", "Net short wave (top) [W/m^2]"}, + /* 114 */ {"NLWRT", "Net long wave (top) [W/m^2]"}, + /* 115 */ {"LWAVR", "Long wave [W/m^2]"}, + /* 116 */ {"SWAVR", "Short wave [W/m^2]"}, + /* 117 */ {"GRAD", "Global radiation [W/m^2]"}, + /* 118 */ {"BRTMP", "Brightness temperature [K]"}, + /* 119 */ {"LWRAD", "Radiance with respect to wave no. [W/m/sr]"}, + /* 120 */ {"SWRAD", "Radiance with respect ot wave len. [W/m^3/sr]"}, + /* 121 */ {"LHTFL", "Latent heat flux [W/m^2]"}, + /* 122 */ {"SHTFL", "Sensible heat flux [W/m^2]"}, + /* 123 */ {"BLYDP", "Boundary layer dissipation [W/m^2]"}, + /* 124 */ {"UFLX", "Zonal momentum flux [N/m^2]"}, + /* 125 */ {"VFLX", "Meridional momentum flux [N/m^2]"}, + /* 126 */ {"WMIXE", "Wind mixing energy [J]"}, + /* 127 */ {"IMGD", "Image data []"}, + /* 128 */ {"var128", "undefined"}, + /* 129 */ {"var129", "undefined"}, + /* 130 */ {"var130", "undefined"}, + /* 131 */ {"var131", "undefined"}, + /* 132 */ {"var132", "undefined"}, + /* 133 */ {"var133", "undefined"}, + /* 134 */ {"var134", "undefined"}, + /* 135 */ {"var135", "undefined"}, + /* 136 */ {"var136", "undefined"}, + /* 137 */ {"var137", "undefined"}, + /* 138 */ {"var138", "undefined"}, + /* 139 */ {"POZT", "Ozone production from T term"}, + /* 140 */ {"var140", "undefined"}, + /* 141 */ {"var141", "undefined"}, + /* 142 */ {"var142", "undefined"}, + /* 143 */ {"var143", "undefined"}, + /* 144 */ {"var144", "undefined"}, + /* 145 */ {"var145", "undefined"}, + /* 146 */ {"var146", "undefined"}, + /* 147 */ {"var147", "undefined"}, + /* 148 */ {"var148", "undefined"}, + /* 149 */ {"var149", "undefined"}, + /* 150 */ {"var150", "undefined"}, + /* 151 */ {"var151", "undefined"}, + /* 152 */ {"var152", "undefined"}, + /* 153 */ {"var153", "undefined"}, + /* 154 */ {"OMGALF", "omega divided by density"}, + /* 155 */ {"var155", "undefined"}, + /* 156 */ {"var156", "undefined"}, + /* 157 */ {"var157", "undefined"}, + /* 158 */ {"var158", "undefined"}, + /* 159 */ {"var159", "undefined"}, + /* 160 */ {"var160", "undefined"}, + /* 161 */ {"var161", "undefined"}, + /* 162 */ {"var162", "undefined"}, + /* 163 */ {"var163", "undefined"}, + /* 164 */ {"COVZZ", "Covariance between u and u"}, + /* 165 */ {"COVMM", "Covariance between v and v"}, + /* 166 */ {"COVQZ", "Covariance between q and u"}, + /* 167 */ {"COVQM", "Covariance between q and v"}, + /* 168 */ {"COVTVV", "Covariance between T and omega"}, + /* 169 */ {"COVQVV", "Covariance between q and omega"}, + /* 170 */ {"var170", "undefined"}, + /* 171 */ {"var171", "undefined"}, + /* 172 */ {"var172", "undefined"}, + /* 173 */ {"LRGMR", "Large scale moistening rate"}, + /* 174 */ {"VDFOZ", "Ozone vertical diffusion"}, + /* 175 */ {"POZ", "Ozone production"}, + /* 176 */ {"AMSRE9", "Sim brightness tmp for AMSRE on Aqua channel 9 [K]"}, + /* 177 */ {"AMSRE10", "Sim brightness tmp for AMSRE on Aqua channel 10 [K]"}, + /* 178 */ {"AMSRE11", "Sim brightness tmp for AMSRE on Aqua channel 11 [K]"}, + /* 179 */ {"AMSRE12", "Sim brightness tmp for AMSRE on Aqua channel 12 [K]"}, + /* 180 */ {"var180", "undefined"}, + /* 181 */ {"GWDU", "Gravity wave drag u acceleration"}, + /* 182 */ {"GWDV", "Gravity wave drag v acceleration"}, + /* 183 */ {"CNVU", "Convective u momentum mixing acceleration"}, + /* 184 */ {"CNVV", "Convective v momentum mixing acceleration"}, + /* 185 */ {"AKHS", "Sfc exchange coeff for T and Q divided by delta z"}, + /* 186 */ {"AKMS", "Sfc exchange coeff for U and V divided by delta z"}, + /* 187 */ {"var187", "undefined"}, + /* 188 */ {"TOZ", "Ozone tendency"}, + /* 189 */ {"var189", "undefined"}, + /* 190 */ {"var190", "undefined"}, + /* 191 */ {"SUNSD", "Sunshine duration [s]"}, + /* 192 */ {"MOSF", "Meridional overturning stream function [10^6m^3/s]"}, + /* 193 */ {"EPSR", "Radiative emiissivity"}, + /* 194 */ {"var194", "undefined"}, + /* 195 */ {"QZ0", "q at top of viscous sublayer"}, + /* 196 */ {"CNGWDU", "Convective gravity wave drag zonal acceleration"}, + /* 197 */ {"CNGWDV", "Convective gravity wave drag meridional acceleration"}, + /* 198 */ {"var198", "undefined"}, + /* 199 */ {"var199", "undefined"}, + /* 200 */ {"var200", "undefined"}, + /* 201 */ {"THZ0", "Theta at top of viscous sublayer"}, + /* 202 */ {"CNVUMF", "Convective updraft mass flux"}, + /* 203 */ {"COVPSPS", "Covariance between psfc and psfc"}, + /* 204 */ {"QMAX", "Maximum specific humidity at 2m"}, + /* 205 */ {"QMIN", "Minimum specific humidity at 2m"}, + /* 206 */ {"COVQQ", "Covariance between q and q"}, + /* 207 */ {"var207", "undefined"}, + /* 208 */ {"var208", "undefined"}, + /* 209 */ {"CNVDMF", "Convective downdraft mass flux"}, + /* 210 */ {"var210", "undefined"}, + /* 211 */ {"var211", "undefined"}, + /* 212 */ {"var212", "undefined"}, + /* 213 */ {"var213", "undefined"}, + /* 214 */ {"var214", "undefined"}, + /* 215 */ {"var215", "undefined"}, + /* 216 */ {"var216", "undefined"}, + /* 217 */ {"var217", "undefined"}, + /* 218 */ {"var218", "undefined"}, + /* 219 */ {"CNVDEMF", "Convective detrainment mass flux"}, + /* 220 */ {"COVVVVV", "Covariance between omega and omega"}, + /* 221 */ {"var221", "undefined"}, + /* 222 */ {"var222", "undefined"}, + /* 223 */ {"var223", "undefined"}, + /* 224 */ {"var224", "undefined"}, + /* 225 */ {"var225", "undefined"}, + /* 226 */ {"var226", "undefined"}, + /* 227 */ {"var227", "undefined"}, + /* 228 */ {"var228", "undefined"}, + /* 229 */ {"var229", "undefined"}, + /* 230 */ {"var230", "undefined"}, + /* 231 */ {"var231", "undefined"}, + /* 232 */ {"var232", "undefined"}, + /* 233 */ {"var233", "undefined"}, + /* 234 */ {"COVTT", "Covariance between T and T"}, + /* 235 */ {"var235", "undefined"}, + /* 236 */ {"WTEND", "Tendency of vertical velocity"}, + /* 237 */ {"var237", "undefined"}, + /* 238 */ {"var238", "undefined"}, + /* 239 */ {"POZO", "Ozone production from col ozone term"}, + /* 240 */ {"var240", "undefined"}, + /* 241 */ {"var241", "undefined"}, + /* 242 */ {"var242", "undefined"}, + /* 243 */ {"var243", "undefined"}, + /* 244 */ {"var244", "undefined"}, + /* 245 */ {"var245", "undefined"}, + /* 246 */ {"var246", "undefined"}, + /* 247 */ {"var247", "undefined"}, + /* 248 */ {"var248", "undefined"}, + /* 249 */ {"var249", "undefined"}, + /* 250 */ {"var250", "undefined"}, + /* 251 */ {"var251", "undefined"}, + /* 252 */ {"var252", "undefined"}, + /* 253 */ {"var253", "undefined"}, + /* 254 */ {"var254", "undefined"}, + /* 255 */ {"var255", "undefined"}, +}; + +const struct ParmTable parm_table_nceptab_128[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"PRES", "Pressure [Pa]"}, + /* 2 */ {"PRMSL", "Pressure reduced to MSL [Pa]"}, + /* 3 */ {"PTEND", "Pressure tendency [Pa/s]"}, + /* 4 */ {"PVORT", "Pot. vorticity [km^2/kg/s]"}, + /* 5 */ {"ICAHT", "ICAO Standard Atmosphere Reference Height [M]"}, + /* 6 */ {"GP", "Geopotential [m^2/s^2]"}, + /* 7 */ {"HGT", "Geopotential height [gpm]"}, + /* 8 */ {"DIST", "Geometric height [m]"}, + /* 9 */ {"HSTDV", "Std dev of height [m]"}, + /* 10 */ {"TOZNE", "Total ozone [Dobson]"}, + /* 11 */ {"TMP", "Temp. [K]"}, + /* 12 */ {"VTMP", "Virtual temp. [K]"}, + /* 13 */ {"POT", "Potential temp. [K]"}, + /* 14 */ {"EPOT", "Pseudo-adiabatic pot. temp. [K]"}, + /* 15 */ {"TMAX", "Max. temp. [K]"}, + /* 16 */ {"TMIN", "Min. temp. [K]"}, + /* 17 */ {"DPT", "Dew point temp. [K]"}, + /* 18 */ {"DEPR", "Dew point depression [K]"}, + /* 19 */ {"LAPR", "Lapse rate [K/m]"}, + /* 20 */ {"VIS", "Visibility [m]"}, + /* 21 */ {"RDSP1", "Radar spectra (1) [non-dim]"}, + /* 22 */ {"RDSP2", "Radar spectra (2) [non-dim]"}, + /* 23 */ {"RDSP3", "Radar spectra (3) [non-dim]"}, + /* 24 */ {"PLI", "Parcel lifted index (to 500 hPa) [K]"}, + /* 25 */ {"TMPA", "Temp. anomaly [K]"}, + /* 26 */ {"PRESA", "Pressure anomaly [Pa]"}, + /* 27 */ {"GPA", "Geopotential height anomaly [gpm]"}, + /* 28 */ {"WVSP1", "Wave spectra (1) [non-dim]"}, + /* 29 */ {"WVSP2", "Wave spectra (2) [non-dim]"}, + /* 30 */ {"WVSP3", "Wave spectra (3) [non-dim]"}, + /* 31 */ {"WDIR", "Wind direction [deg]"}, + /* 32 */ {"WIND", "Wind speed [m/s]"}, + /* 33 */ {"UGRD", "u wind [m/s]"}, + /* 34 */ {"VGRD", "v wind [m/s]"}, + /* 35 */ {"STRM", "Stream function [m^2/s]"}, + /* 36 */ {"VPOT", "Velocity potential [m^2/s]"}, + /* 37 */ {"MNTSF", "Montgomery stream function [m^2/s^2]"}, + /* 38 */ {"SGCVV", "Sigma coord. vertical velocity [/s]"}, + /* 39 */ {"VVEL", "Pressure vertical velocity [Pa/s]"}, + /* 40 */ {"DZDT", "Geometric vertical velocity [m/s]"}, + /* 41 */ {"ABSV", "Absolute vorticity [/s]"}, + /* 42 */ {"ABSD", "Absolute divergence [/s]"}, + /* 43 */ {"RELV", "Relative vorticity [/s]"}, + /* 44 */ {"RELD", "Relative divergence [/s]"}, + /* 45 */ {"VUCSH", "Vertical u shear [/s]"}, + /* 46 */ {"VVCSH", "Vertical v shear [/s]"}, + /* 47 */ {"DIRC", "Direction of current [deg]"}, + /* 48 */ {"SPC", "Speed of current [m/s]"}, + /* 49 */ {"UOGRD", "u of current [m/s]"}, + /* 50 */ {"VOGRD", "v of current [m/s]"}, + /* 51 */ {"SPFH", "Specific humidity [kg/kg]"}, + /* 52 */ {"RH", "Relative humidity [%]"}, + /* 53 */ {"MIXR", "Humidity mixing ratio [kg/kg]"}, + /* 54 */ {"PWAT", "Precipitable water [kg/m^2]"}, + /* 55 */ {"VAPP", "Vapor pressure [Pa]"}, + /* 56 */ {"SATD", "Saturation deficit [Pa]"}, + /* 57 */ {"EVP", "Evaporation [kg/m^2]"}, + /* 58 */ {"CICE", "Cloud Ice [kg/m^2]"}, + /* 59 */ {"PRATE", "Precipitation rate [kg/m^2/s]"}, + /* 60 */ {"TSTM", "Thunderstorm probability [%]"}, + /* 61 */ {"APCP", "Total precipitation [kg/m^2]"}, + /* 62 */ {"NCPCP", "Large scale precipitation [kg/m^2]"}, + /* 63 */ {"ACPCP", "Convective precipitation [kg/m^2]"}, + /* 64 */ {"SRWEQ", "Snowfall rate water equiv. [kg/m^2/s]"}, + /* 65 */ {"WEASD", "Accum. snow [kg/m^2]"}, + /* 66 */ {"SNOD", "Snow depth [m]"}, + /* 67 */ {"MIXHT", "Mixed layer depth [m]"}, + /* 68 */ {"TTHDP", "Transient thermocline depth [m]"}, + /* 69 */ {"MTHD", "Main thermocline depth [m]"}, + /* 70 */ {"MTHA", "Main thermocline anomaly [m]"}, + /* 71 */ {"TCDC", "Total cloud cover [%]"}, + /* 72 */ {"CDCON", "Convective cloud cover [%]"}, + /* 73 */ {"LCDC", "Low level cloud cover [%]"}, + /* 74 */ {"MCDC", "Mid level cloud cover [%]"}, + /* 75 */ {"HCDC", "High level cloud cover [%]"}, + /* 76 */ {"CWAT", "Cloud water [kg/m^2]"}, + /* 77 */ {"BLI", "Best lifted index (to 500 hPa) [K]"}, + /* 78 */ {"SNOC", "Convective snow [kg/m^2]"}, + /* 79 */ {"SNOL", "Large scale snow [kg/m^2]"}, + /* 80 */ {"WTMP", "Water temp. [K]"}, + /* 81 */ {"LAND", "Land cover (land=1;sea=0) [fraction]"}, + /* 82 */ {"DSLM", "Deviation of sea level from mean [m]"}, + /* 83 */ {"SFCR", "Surface roughness [m]"}, + /* 84 */ {"ALBDO", "Albedo [%]"}, + /* 85 */ {"TSOIL", "Soil temp. [K]"}, + /* 86 */ {"SOILM", "Soil moisture content [kg/m^2]"}, + /* 87 */ {"VEG", "Vegetation [%]"}, + /* 88 */ {"SALTY", "Salinity [kg/kg]"}, + /* 89 */ {"DEN", "Density [kg/m^3]"}, + /* 90 */ {"WATR", "Water runoff [kg/m^2]"}, + /* 91 */ {"ICEC", "Ice concentration (ice=1;no ice=0) [fraction]"}, + /* 92 */ {"ICETK", "Ice thickness [m]"}, + /* 93 */ {"DICED", "Direction of ice drift [deg]"}, + /* 94 */ {"SICED", "Speed of ice drift [m/s]"}, + /* 95 */ {"UICE", "u of ice drift [m/s]"}, + /* 96 */ {"VICE", "v of ice drift [m/s]"}, + /* 97 */ {"ICEG", "Ice growth rate [m/s]"}, + /* 98 */ {"ICED", "Ice divergence [/s]"}, + /* 99 */ {"SNOM", "Snow melt [kg/m^2]"}, + /* 100 */ {"HTSGW", "Sig height of wind waves and swell [m]"}, + /* 101 */ {"WVDIR", "Direction of wind waves [deg]"}, + /* 102 */ {"WVHGT", "Sig height of wind waves [m]"}, + /* 103 */ {"WVPER", "Mean period of wind waves [s]"}, + /* 104 */ {"SWDIR", "Direction of swell waves [deg]"}, + /* 105 */ {"SWELL", "Sig height of swell waves [m]"}, + /* 106 */ {"SWPER", "Mean period of swell waves [s]"}, + /* 107 */ {"DIRPW", "Primary wave direction [deg]"}, + /* 108 */ {"PERPW", "Primary wave mean period [s]"}, + /* 109 */ {"DIRSW", "Secondary wave direction [deg]"}, + /* 110 */ {"PERSW", "Secondary wave mean period [s]"}, + /* 111 */ {"NSWRS", "Net short wave (surface) [W/m^2]"}, + /* 112 */ {"NLWRS", "Net long wave (surface) [W/m^2]"}, + /* 113 */ {"NSWRT", "Net short wave (top) [W/m^2]"}, + /* 114 */ {"NLWRT", "Net long wave (top) [W/m^2]"}, + /* 115 */ {"LWAVR", "Long wave [W/m^2]"}, + /* 116 */ {"SWAVR", "Short wave [W/m^2]"}, + /* 117 */ {"GRAD", "Global radiation [W/m^2]"}, + /* 118 */ {"BRTMP", "Brightness temperature [K]"}, + /* 119 */ {"LWRAD", "Radiance with respect to wave no. [W/m/sr]"}, + /* 120 */ {"SWRAD", "Radiance with respect ot wave len. [W/m^3/sr]"}, + /* 121 */ {"LHTFL", "Latent heat flux [W/m^2]"}, + /* 122 */ {"SHTFL", "Sensible heat flux [W/m^2]"}, + /* 123 */ {"BLYDP", "Boundary layer dissipation [W/m^2]"}, + /* 124 */ {"UFLX", "Zonal momentum flux [N/m^2]"}, + /* 125 */ {"VFLX", "Meridional momentum flux [N/m^2]"}, + /* 126 */ {"WMIXE", "Wind mixing energy [J]"}, + /* 127 */ {"IMGD", "Image data []"}, + /* 128 */ {"AVDEPTH", "Ocean depth - mean [m]"}, + /* 129 */ {"DEPTH", "Ocean depth - instantaneous [m]"}, + /* 130 */ {"ELEV", "Ocean surface elevation relative to geoid [m]"}, + /* 131 */ {"MXEL24", "Max ocean surface elevation in last 24 hours [m]"}, + /* 132 */ {"MNEL24", "Min ocean surface elevation in last 24 hours [m]"}, + /* 133 */ {"var133", "undefined"}, + /* 134 */ {"var134", "undefined"}, + /* 135 */ {"O2", "Oxygen (O2 (aq)) []"}, + /* 136 */ {"PO4", "PO4 [Mol/kg]"}, + /* 137 */ {"NO3", "NO3 [Mol/kg]"}, + /* 138 */ {"SiO4", "SiO4 [Mol/kg]"}, + /* 139 */ {"CO2aq", "CO2 (aq) [Mol/kg]"}, + /* 140 */ {"HCO3", "HCO3 - [Mol/kg]"}, + /* 141 */ {"CO3", "CO3 -- [Mol/kg]"}, + /* 142 */ {"TCO2", "TCO2 [Mol/kg]"}, + /* 143 */ {"TALK", "TALK [Mol/kg]"}, + /* 144 */ {"var144", "undefined"}, + /* 145 */ {"var145", "undefined"}, + /* 146 */ {"S11", "S11 - 1,1 component of ice stress tensor []"}, + /* 147 */ {"S12", "S12 - 1,2 component of ice stress tensor []"}, + /* 148 */ {"S22", "S22 - 2,2 component of ice stress tensor []"}, + /* 149 */ {"INV1", "T1 - First invariant of stress tensor []"}, + /* 150 */ {"INV2", "T2 - Second invariant of stress tensor []"}, + /* 151 */ {"var151", "undefined"}, + /* 152 */ {"var152", "undefined"}, + /* 153 */ {"var153", "undefined"}, + /* 154 */ {"var154", "undefined"}, + /* 155 */ {"WVRGH", "Wave Roughness[ ]"}, + /* 156 */ {"WVSTRS", "Wave Stresses []"}, + /* 157 */ {"WHITE", "Whitecap coverage []"}, + /* 158 */ {"SWDIRWID", "Swell direction width []"}, + /* 159 */ {"SWFREWID", "Swell frequency width []"}, + /* 160 */ {"WVAGE", "Wave age []"}, + /* 161 */ {"PWVAGE", "Physical Wave age []"}, + /* 162 */ {"var162", "undefined"}, + /* 163 */ {"var163", "undefined"}, + /* 164 */ {"var164", "undefined"}, + /* 165 */ {"LTURB", "Master length scale (turbulence) [m]"}, + /* 166 */ {"var166", "undefined"}, + /* 167 */ {"var167", "undefined"}, + /* 168 */ {"var168", "undefined"}, + /* 169 */ {"var169", "undefined"}, + /* 170 */ {"AIHFLX", "Net Air-Ice heat flux [W/m^2]"}, + /* 171 */ {"AOHFLX", "Net Air-Ocean heat flux [W/m^2]"}, + /* 172 */ {"IOHFLX", "Net Ice-Ocean heat flux [W/m^2]"}, + /* 173 */ {"IOSFLX", "Net Ice-Ocean salt flux kg/s]"}, + /* 174 */ {"var174", "undefined"}, + /* 175 */ {"OMLT", "Ocean Mixed Layer Temperature [K]"}, + /* 176 */ {"OMLS", "Ocean Mixed Layer Salinity [kg/kg]"}, + /* 177 */ {"OMLPOTDEN", "Ocean Mixed Layer Potential density (Referenced to 2000m) [kg/m^3]"}, + /* 178 */ {"OMLU", "U Velocity in mixed layer [m/s]"}, + /* 179 */ {"OMLV", "V Velocity in mixed layer [m/s]"}, + /* 180 */ {"ASHFL", "Assimilative Heat Flux [W/m^2]"}, + /* 181 */ {"ASSFL", "Assimilative Salt Flux [mm/day]"}, + /* 182 */ {"BOTLD", "Bottom Layer Depth [m]"}, + /* 183 */ {"UBARO", "Barotropic U Velocity [m/s]"}, + /* 184 */ {"VBARO", "Barotropic V Velocity [m/s]"}, + /* 185 */ {"INTFD", "Interface Depth [m]"}, + /* 186 */ {"WTMPC", "Temperature [C]"}, + /* 187 */ {"SALIN", "Salinity [psu]"}, + /* 188 */ {"EMNP", "Evaporation - Precipitation [cm/day]"}, + /* 189 */ {"var189", "undefined"}, + /* 190 */ {"KENG", "Kinetic Energy [J/kg]"}, + /* 191 */ {"var191", "undefined"}, + /* 192 */ {"LAYTH", "Layer Thickness[m]"}, + /* 193 */ {"SSTT", "Surface Temperature Trend [K/day]"}, + /* 194 */ {"SSST", "Surface Salinity Trend [psu/day]"}, + /* 195 */ {"OVHD", "Ocean vertical heat diffusivity [m^2/s]"}, + /* 196 */ {"OVSD", "Ocean vertical salt diffusivity [m^2/s]"}, + /* 197 */ {"OVMD", "Ocean vertical momementum diffusivity [m^2/s]"}, + /* 198 */ {"var198", "undefined"}, + /* 199 */ {"var199", "undefined"}, + /* 200 */ {"var200", "undefined"}, + /* 201 */ {"var201", "undefined"}, + /* 202 */ {"var202", "undefined"}, + /* 203 */ {"var203", "undefined"}, + /* 204 */ {"var204", "undefined"}, + /* 205 */ {"var205", "undefined"}, + /* 206 */ {"var206", "undefined"}, + /* 207 */ {"var207", "undefined"}, + /* 208 */ {"var208", "undefined"}, + /* 209 */ {"var209", "undefined"}, + /* 210 */ {"var210", "undefined"}, + /* 211 */ {"var211", "undefined"}, + /* 212 */ {"var212", "undefined"}, + /* 213 */ {"var213", "undefined"}, + /* 214 */ {"var214", "undefined"}, + /* 215 */ {"var215", "undefined"}, + /* 216 */ {"var216", "undefined"}, + /* 217 */ {"var217", "undefined"}, + /* 218 */ {"var218", "undefined"}, + /* 219 */ {"var219", "undefined"}, + /* 220 */ {"var220", "undefined"}, + /* 221 */ {"var221", "undefined"}, + /* 222 */ {"var222", "undefined"}, + /* 223 */ {"var223", "undefined"}, + /* 224 */ {"var224", "undefined"}, + /* 225 */ {"var225", "undefined"}, + /* 226 */ {"var226", "undefined"}, + /* 227 */ {"var227", "undefined"}, + /* 228 */ {"var228", "undefined"}, + /* 229 */ {"var229", "undefined"}, + /* 230 */ {"var230", "undefined"}, + /* 231 */ {"var231", "undefined"}, + /* 232 */ {"var232", "undefined"}, + /* 233 */ {"var233", "undefined"}, + /* 234 */ {"var234", "undefined"}, + /* 235 */ {"var235", "undefined"}, + /* 236 */ {"var236", "undefined"}, + /* 237 */ {"var237", "undefined"}, + /* 238 */ {"var238", "undefined"}, + /* 239 */ {"var239", "undefined"}, + /* 240 */ {"var240", "undefined"}, + /* 241 */ {"var241", "undefined"}, + /* 242 */ {"var242", "undefined"}, + /* 243 */ {"var243", "undefined"}, + /* 244 */ {"var244", "undefined"}, + /* 245 */ {"var245", "undefined"}, + /* 246 */ {"var246", "undefined"}, + /* 247 */ {"var247", "undefined"}, + /* 248 */ {"var248", "undefined"}, + /* 249 */ {"var249", "undefined"}, + /* 250 */ {"var250", "undefined"}, + /* 251 */ {"var251", "undefined"}, + /* 252 */ {"var252", "undefined"}, + /* 253 */ {"var253", "undefined"}, + /* 254 */ {"RERRVAR", "Relative Error Variance [pure number]"}, + /* 255 */ {"var255", "undefined"}, +}; + +const struct ParmTable parm_table_ecmwf_128[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"STRF", "Stream function [m**2 s**-1]"}, + /* 2 */ {"VPOT", "Velocity potential [m**2 s**-1]"}, + /* 3 */ {"PT", "Potential temperature [K]"}, + /* 4 */ {"EQPT", "Equivalent potential temperature [K]"}, + /* 5 */ {"SEPT", "Saturated equivalent potential temperature [K]"}, + /* 6 */ {"SSFR", "Soil sand fraction [(0 - 1)]"}, + /* 7 */ {"SCFR", "Soil clay fraction [(0 - 1)]"}, + /* 8 */ {"SRO", "Surface runoff [m]"}, + /* 9 */ {"SSRO", "Sub-surface runoff [m]"}, + /* 10 */ {"WIND", "Wind speed [m s**-1]"}, + /* 11 */ {"UDVW", "U component of divergent wind [m s**-1]"}, + /* 12 */ {"VDVW", "V component of divergent wind [m s**-1]"}, + /* 13 */ {"URTW", "U component of rotational wind [m s**-1]"}, + /* 14 */ {"VRTW", "V component of rotational wind [m s**-1]"}, + /* 15 */ {"ALUVP", "UV visible albedo for direct radiation [(0 - 1)]"}, + /* 16 */ {"ALUVD", "UV visible albedo for diffuse radiation [(0 - 1)]"}, + /* 17 */ {"ALNIP", "Near IR albedo for direct radiation [(0 - 1)]"}, + /* 18 */ {"ALNID", "Near IR albedo for diffuse radiation [(0 - 1)]"}, + /* 19 */ {"UVCS", "Clear sky surface UV [W m**-2 s]"}, + /* 20 */ {"PARCS", "Clear sky surface PAR [W m**-2 s]"}, + /* 21 */ {"UCTP", "Unbalanced component of temperature [K]"}, + /* 22 */ {"UCLN", "Unbalanced component of logarithm of surface pressure []"}, + /* 23 */ {"UCDV", "Unbalanced component of divergence [s**-1]"}, + /* 24 */ {"var24", "Reserved for future unbalanced components []"}, + /* 25 */ {"var25", "Reserved for future unbalanced components []"}, + /* 26 */ {"CL", "Lake cover [(0 - 1)]"}, + /* 27 */ {"CVL", "Low vegetation cover [(0 - 1)]"}, + /* 28 */ {"CVH", "High vegetation cover [(0 - 1)]"}, + /* 29 */ {"TVL", "Type of low vegetation []"}, + /* 30 */ {"TVH", "Type of high vegetation []"}, + /* 31 */ {"CI", "Sea-ice cover [(0 - 1)]"}, + /* 32 */ {"ASN", "Snow albedo [(0 - 1)]"}, + /* 33 */ {"RSN", "Snow density [kg m**-3]"}, + /* 34 */ {"SSTK", "Sea surface temperature [K]"}, + /* 35 */ {"ISTL1", "Ice surface temperature layer 1 [K]"}, + /* 36 */ {"ISTL2", "Ice surface temperature layer 2 [K]"}, + /* 37 */ {"ISTL3", "Ice surface temperature layer 3 [K]"}, + /* 38 */ {"ISTL4", "Ice surface temperature layer 4 [K]"}, + /* 39 */ {"SWVL1", "Volumetric soil water layer 1 [m**3 m**-3]"}, + /* 40 */ {"SWVL2", "Volumetric soil water layer 2 [m**3 m**-3]"}, + /* 41 */ {"SWVL3", "Volumetric soil water layer 3 [m**3 m**-3]"}, + /* 42 */ {"SWVL4", "Volumetric soil water layer 4 [m**3 m**-3]"}, + /* 43 */ {"SLT", "Soil type []"}, + /* 44 */ {"ES", "Snow evaporation [m of water]"}, + /* 45 */ {"SMLT", "Snowmelt [m of water]"}, + /* 46 */ {"SDUR", "Solar duration [s]"}, + /* 47 */ {"DSRP", "Direct solar radiation [w m**-2]"}, + /* 48 */ {"MAGSS", "Magnitude of surface stress [N m**-2 s]"}, + /* 49 */ {"10FG", "10 metre wind gust [m s**-1]"}, + /* 50 */ {"LSPF", "Large-scale precipitation fraction [s]"}, + /* 51 */ {"MX2T24", "Maximum temperature at 2 metres since last 24 hours [K]"}, + /* 52 */ {"MN2T24", "Minimum temperature at 2 metres since last 24 hours [K]"}, + /* 53 */ {"MONT", "Montgomery potential [m**2 s**-2]"}, + /* 54 */ {"PRES", "Pressure [Pa]"}, + /* 55 */ {"MEAN2T24", "Mean temperature at 2 metres since last 24 hours [K]"}, + /* 56 */ {"MN2D24", "Mean 2 metre dewpoint temperature in past 24 hours [K]"}, + /* 57 */ {"UVB", "Downward UV radiation at the surface [w m**-2 s]"}, + /* 58 */ {"PAR", "Photosynthetically active radiation at the surface [w m**-2 s]"}, + /* 59 */ {"CAPE", "Convective available potential energy [J kg**-1]"}, + /* 60 */ {"PV", "Potential vorticity [K m**2 kg**-1 s**-1]"}, + /* 61 */ {"var61", "undefined"}, + /* 62 */ {"OBCT", "Observation count []"}, + /* 63 */ {"var63", "Start time for skin temperature difference [s]"}, + /* 64 */ {"var64", "Finish time for skin temperature difference [s]"}, + /* 65 */ {"var65", "Skin temperature difference [K]"}, + /* 66 */ {"var66", "Leaf area index, low vegetation [m**2 / m**2]"}, + /* 67 */ {"var67", "Leaf area index, high vegetation [m**2 / m**2]"}, + /* 68 */ {"var68", "Minimum stomatal resistance, low vegetation [s m**-1]"}, + /* 69 */ {"var69", "Minimum stomatal resistance, high vegetation [s m**-1]"}, + /* 70 */ {"var70", "Biome cover, low vegetation [(0 - 1)]"}, + /* 71 */ {"var71", "Biome cover, high vegetation [(0 - 1)]"}, + /* 72 */ {"ISSRD", "Instantaneous surface solar radiation downwards [w m**-2]"}, + /* 73 */ {"ISTRD", "Instantaneous surface thermal radiation downwards [w m**-2]"}, + /* 74 */ {"SDFOR", "Standard deviation of filtered subgrid orography [m]"}, + /* 75 */ {"CRWC", "Cloud rain water content [kg kg**-1]"}, + /* 76 */ {"CSWC", "Cloud snow water content [kg kg**-1]"}, + /* 77 */ {"ETADOT", "Eta-coordinate vertical velocity [s**-1]"}, + /* 78 */ {"TCLW", "Total column liquid water [kg m**-2]"}, + /* 79 */ {"TCIW", "Total column ice water [kg m**-2]"}, + /* 80 */ {"var80", "Experimental product []"}, + /* 81 */ {"var81", "Experimental product []"}, + /* 82 */ {"var82", "Experimental product []"}, + /* 83 */ {"var83", "Experimental product []"}, + /* 84 */ {"var84", "Experimental product []"}, + /* 85 */ {"var85", "Experimental product []"}, + /* 86 */ {"var86", "Experimental product []"}, + /* 87 */ {"var87", "Experimental product []"}, + /* 88 */ {"var88", "Experimental product []"}, + /* 89 */ {"var89", "Experimental product []"}, + /* 90 */ {"var90", "Experimental product []"}, + /* 91 */ {"var91", "Experimental product []"}, + /* 92 */ {"var92", "Experimental product []"}, + /* 93 */ {"var93", "Experimental product []"}, + /* 94 */ {"var94", "Experimental product []"}, + /* 95 */ {"var95", "Experimental product []"}, + /* 96 */ {"var96", "Experimental product []"}, + /* 97 */ {"var97", "Experimental product []"}, + /* 98 */ {"var98", "Experimental product []"}, + /* 99 */ {"var99", "Experimental product []"}, + /* 100 */ {"var100", "Experimental product []"}, + /* 101 */ {"var101", "Experimental product []"}, + /* 102 */ {"var102", "Experimental product []"}, + /* 103 */ {"var103", "Experimental product []"}, + /* 104 */ {"var104", "Experimental product []"}, + /* 105 */ {"var105", "Experimental product []"}, + /* 106 */ {"var106", "Experimental product []"}, + /* 107 */ {"var107", "Experimental product []"}, + /* 108 */ {"var108", "Experimental product []"}, + /* 109 */ {"var109", "Experimental product []"}, + /* 110 */ {"var110", "Experimental product []"}, + /* 111 */ {"var111", "Experimental product []"}, + /* 112 */ {"var112", "Experimental product []"}, + /* 113 */ {"var113", "Experimental product []"}, + /* 114 */ {"var114", "Experimental product []"}, + /* 115 */ {"var115", "Experimental product []"}, + /* 116 */ {"var116", "Experimental product []"}, + /* 117 */ {"var117", "Experimental product []"}, + /* 118 */ {"var118", "Experimental product []"}, + /* 119 */ {"var119", "Experimental product []"}, + /* 120 */ {"var120", "Experimental product []"}, + /* 121 */ {"MX2T6", "Maximum temperature at 2 metres since last 6 hours [K]"}, + /* 122 */ {"MN2T6", "Minimum temperature at 2 metres since last 6 hours [K]"}, + /* 123 */ {"10FG6", "10 metre wind gust in the past 6 hours [m s**-1]"}, + /* 124 */ {"EMIS", "Surface emissivity [dimensionless]"}, + /* 125 */ {"var125", "Vertically integrated total energy [J m**-2]"}, + /* 126 */ {"var126", "Generic parameter for sensitive area prediction [Various]"}, + /* 127 */ {"AT", "Atmospheric tide []"}, + /* 128 */ {"BV", "Budget values []"}, + /* 129 */ {"Z", "Geopotential [m**2 s**-2]"}, + /* 130 */ {"T", "Temperature [K]"}, + /* 131 */ {"U", "U velocity [m s**-1]"}, + /* 132 */ {"V", "V velocity [m s**-1]"}, + /* 133 */ {"Q", "Specific humidity [kg kg**-1]"}, + /* 134 */ {"SP", "Surface pressure [Pa]"}, + /* 135 */ {"W", "Vertical velocity [Pa s**-1]"}, + /* 136 */ {"TCW", "Total column water [kg m**-2]"}, + /* 137 */ {"TCWV", "Total column water vapour [kg m**-2]"}, + /* 138 */ {"VO", "Vorticity (relative) [s**-1]"}, + /* 139 */ {"STL1", "Soil temperature level 1 [K]"}, + /* 140 */ {"SWL1", "Soil wetness level 1 [m of water]"}, + /* 141 */ {"SD", "Snow depth [m of water equivalent]"}, + /* 142 */ {"LSP", "Stratiform precipitation (Large-scale precipitation) [m]"}, + /* 143 */ {"CP", "Convective precipitation [m]"}, + /* 144 */ {"SF", "Snowfall [m of water equivalent]"}, + /* 145 */ {"BLD", "Boundary layer dissipation [W m**-2 s]"}, + /* 146 */ {"SSHF", "Surface sensible heat flux [W m**-2 s]"}, + /* 147 */ {"SLHF", "Surface latent heat flux [W m**-2 s]"}, + /* 148 */ {"CHNK", "Charnock []"}, + /* 149 */ {"SNR", "Surface net radiation [W m**-2 s]"}, + /* 150 */ {"TNR", "Top net radiation []"}, + /* 151 */ {"MSL", "Mean sea level pressure [Pa]"}, + /* 152 */ {"LNSP", "Logarithm of surface pressure []"}, + /* 153 */ {"SWHR", "Short-wave heating rate [K]"}, + /* 154 */ {"LWHR", "Long-wave heating rate [K]"}, + /* 155 */ {"D", "Divergence [s**-1]"}, + /* 156 */ {"GH", "Height [gpm]"}, + /* 157 */ {"R", "Relative humidity [%]"}, + /* 158 */ {"TSP", "Tendency of surface pressure [Pa s**-1]"}, + /* 159 */ {"BLH", "Boundary layer height [m]"}, + /* 160 */ {"SDOR", "Standard deviation of orography []"}, + /* 161 */ {"ISOR", "Anisotropy of sub-gridscale orography []"}, + /* 162 */ {"ANOR", "Angle of sub-gridscale orography [rad]"}, + /* 163 */ {"SLOR", "Slope of sub-gridscale orography []"}, + /* 164 */ {"TCC", "Total cloud cover [(0 - 1)]"}, + /* 165 */ {"10U", "10 metre U wind component [m s**-1]"}, + /* 166 */ {"10V", "10 metre V wind component [m s**-1]"}, + /* 167 */ {"2T", "2 metre temperature [K]"}, + /* 168 */ {"2D", "2 metre dewpoint temperature [K]"}, + /* 169 */ {"SSRD", "Surface solar radiation downwards [W m**-2 s]"}, + /* 170 */ {"STL2", "Soil temperature level 2 [K]"}, + /* 171 */ {"SWL2", "Soil wetness level 2 [m of water]"}, + /* 172 */ {"LSM", "Land-sea mask [(0 - 1)]"}, + /* 173 */ {"SR", "Surface roughness [m]"}, + /* 174 */ {"AL", "Albedo [(0 - 1)]"}, + /* 175 */ {"STRD", "Surface thermal radiation downwards [W m**-2 s]"}, + /* 176 */ {"SSR", "Surface solar radiation [W m**-2 s]"}, + /* 177 */ {"STR", "Surface thermal radiation [W m**-2 s]"}, + /* 178 */ {"TSR", "Top solar radiation [W m**-2 s]"}, + /* 179 */ {"TTR", "Top thermal radiation [W m**-2 s]"}, + /* 180 */ {"EWSS", "East-West surface stress [N m**-2 s]"}, + /* 181 */ {"NSSS", "North-South surface stress [N m**-2 s]"}, + /* 182 */ {"E", "Evaporation [m of water]"}, + /* 183 */ {"STL3", "Soil temperature level 3 [K]"}, + /* 184 */ {"SWL3", "Soil wetness level 3 [m of water]"}, + /* 185 */ {"CCC", "Convective cloud cover [(0 - 1)]"}, + /* 186 */ {"LCC", "Low cloud cover [(0 - 1)]"}, + /* 187 */ {"MCC", "Medium cloud cover [(0 - 1)]"}, + /* 188 */ {"HCC", "High cloud cover [(0 - 1)]"}, + /* 189 */ {"SUND", "Sunshine duration [s]"}, + /* 190 */ {"EWOV", "East-West component of sub-gridscale orographic variance [m**2]"}, + /* 191 */ {"NSOV", "North-South component of sub-gridscale orographic variance [m**2]"}, + /* 192 */ {"NWOV", "North-West/South-East component of sub-gridscale orographic variance [m**2]"}, + /* 193 */ {"NEOV", "North-East/South-West component of sub-gridscale orographic variance [m**2]"}, + /* 194 */ {"BTMP", "Brightness temperature [K]"}, + /* 195 */ {"LGWS", "Latitudinal component of gravity wave stress [N m**-2 s]"}, + /* 196 */ {"MGWS", "Meridional component of gravity wave stress [N m**-2 s]"}, + /* 197 */ {"GWD", "Gravity wave dissipation [W m**-2 s]"}, + /* 198 */ {"SRC", "Skin reservoir content [m of water]"}, + /* 199 */ {"VEG", "Vegetation fraction [(0 - 1)]"}, + /* 200 */ {"VSO", "Variance of sub-gridscale orography [m**2]"}, + /* 201 */ {"MX2T", "Maximum temperature at 2 metres since previous post-processing [K]"}, + /* 202 */ {"MN2T", "Minimum temperature at 2 metres since previous post-processing [K]"}, + /* 203 */ {"O3", "Ozone mass mixing ratio [kg kg**-1]"}, + /* 204 */ {"PAW", "Precipitation analysis weights []"}, + /* 205 */ {"RO", "Runoff [m]"}, + /* 206 */ {"TCO3", "Total column ozone [kg m**-2]"}, + /* 207 */ {"10SI", "10 metre wind speed [m s**-1]"}, + /* 208 */ {"TSRC", "Top net solar radiation, clear sky [W m**-2 s]"}, + /* 209 */ {"TTRC", "Top net thermal radiation, clear sky [W m**-2 s]"}, + /* 210 */ {"SSRC", "Surface net solar radiation, clear sky [W m**-2 s]"}, + /* 211 */ {"STRC", "Surface net thermal radiation, clear sky [W m**-2 s]"}, + /* 212 */ {"TISR", "TOA incident solar radiation [W m**-2 s]"}, + /* 213 */ {"VIMD", "Vertically integrated moisture divergence [kg m**-2]"}, + /* 214 */ {"DHR", "Diabatic heating by radiation [K]"}, + /* 215 */ {"DHVD", "Diabatic heating by vertical diffusion [K]"}, + /* 216 */ {"DHCC", "Diabatic heating by cumulus convection [K]"}, + /* 217 */ {"DHLC", "Diabatic heating large-scale condensation [K]"}, + /* 218 */ {"VDZW", "Vertical diffusion of zonal wind [m s**-1]"}, + /* 219 */ {"VDMW", "Vertical diffusion of meridional wind [m s**-1]"}, + /* 220 */ {"EWGD", "East-West gravity wave drag tendency [m s**-1]"}, + /* 221 */ {"NSGD", "North-South gravity wave drag tendency [m s**-1]"}, + /* 222 */ {"CTZW", "Convective tendency of zonal wind [m s**-1]"}, + /* 223 */ {"CTMW", "Convective tendency of meridional wind [m s**-1]"}, + /* 224 */ {"VDH", "Vertical diffusion of humidity [kg kg**-1]"}, + /* 225 */ {"HTCC", "Humidity tendency by cumulus convection [kg kg**-1]"}, + /* 226 */ {"HTLC", "Humidity tendency by large-scale condensation [kg kg**-1]"}, + /* 227 */ {"CRNH", "Change from removal of negative humidity [kg kg**-1]"}, + /* 228 */ {"TP", "Total precipitation [m]"}, + /* 229 */ {"IEWS", "Instantaneous X surface stress [N m**-2]"}, + /* 230 */ {"INSS", "Instantaneous Y surface stress [N m**-2]"}, + /* 231 */ {"ISHF", "Instantaneous surface heat flux [W m**-2]"}, + /* 232 */ {"IE", "Instantaneous moisture flux [kg m**-2 s**-1]"}, + /* 233 */ {"ASQ", "Apparent surface humidity [kg kg**-1]"}, + /* 234 */ {"LSRH", "Logarithm of surface roughness length for heat []"}, + /* 235 */ {"SKT", "Skin temperature [K]"}, + /* 236 */ {"STL4", "Soil temperature level 4 [K]"}, + /* 237 */ {"SWL4", "Soil wetness level 4 [m]"}, + /* 238 */ {"TSN", "Temperature of snow layer [K]"}, + /* 239 */ {"CSF", "Convective snowfall [m of water equivalent]"}, + /* 240 */ {"LSF", "Large-scale snowfall [m of water equivalent]"}, + /* 241 */ {"ACF", "Accumulated cloud fraction tendency [(-1 to 1)]"}, + /* 242 */ {"ALW", "Accumulated liquid water tendency [(-1 to 1)]"}, + /* 243 */ {"FAL", "Forecast albedo [(0 - 1)]"}, + /* 244 */ {"FSR", "Forecast surface roughness [m]"}, + /* 245 */ {"FLSR", "Forecast logarithm of surface roughness for heat []"}, + /* 246 */ {"CLWC", "Cloud liquid water content [kg kg**-1]"}, + /* 247 */ {"CIWC", "Cloud ice water content [kg kg**-1]"}, + /* 248 */ {"CC", "Cloud cover [(0 - 1)]"}, + /* 249 */ {"AIW", "Accumulated ice water tendency [(-1 to 1)]"}, + /* 250 */ {"ICE", "Ice age [(0 - 1)]"}, + /* 251 */ {"ATTE", "Adiabatic tendency of temperature [K]"}, + /* 252 */ {"ATHE", "Adiabatic tendency of humidity [kg kg**-1]"}, + /* 253 */ {"ATZE", "Adiabatic tendency of zonal wind [m s**-1]"}, + /* 254 */ {"ATMW", "Adiabatic tendency of meridional wind [m s**-1]"}, + /* 255 */ {"var255", "Indicates a missing value []"}, +}; + +const struct ParmTable parm_table_ecmwf_129[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"STRF", "Stream function [m**2 s**-1]"}, + /* 2 */ {"VPOT", "Velocity potential [m**2 s**-1]"}, + /* 3 */ {"PT", "Potential temperature [K]"}, + /* 4 */ {"EQPT", "Equivalent potential temperature [K]"}, + /* 5 */ {"SEPT", "Saturated equivalent potential temperature [K]"}, + /* 6 */ {"var6", "undefined"}, + /* 7 */ {"var7", "undefined"}, + /* 8 */ {"var8", "undefined"}, + /* 9 */ {"var9", "undefined"}, + /* 10 */ {"var10", "undefined"}, + /* 11 */ {"UDVW", "U component of divergent wind [m s**-1]"}, + /* 12 */ {"VDVW", "V component of divergent wind [m s**-1]"}, + /* 13 */ {"URTW", "U component of rotational wind [m s**-1]"}, + /* 14 */ {"VRTW", "V component of rotational wind [m s**-1]"}, + /* 15 */ {"var15", "undefined"}, + /* 16 */ {"var16", "undefined"}, + /* 17 */ {"var17", "undefined"}, + /* 18 */ {"var18", "undefined"}, + /* 19 */ {"var19", "undefined"}, + /* 20 */ {"var20", "undefined"}, + /* 21 */ {"UCTP", "Unbalanced component of temperature [K]"}, + /* 22 */ {"UCLN", "Unbalanced component of logarithm of surface pressure []"}, + /* 23 */ {"UCDV", "Unbalanced component of divergence [s**-1]"}, + /* 24 */ {"var24", "Reserved for future unbalanced components []"}, + /* 25 */ {"var25", "Reserved for future unbalanced components []"}, + /* 26 */ {"CL", "Lake cover [(0 - 1)]"}, + /* 27 */ {"CVL", "Low vegetation cover [(0 - 1)]"}, + /* 28 */ {"CVH", "High vegetation cover [(0 - 1)]"}, + /* 29 */ {"TVL", "Type of low vegetation []"}, + /* 30 */ {"TVH", "Type of high vegetation []"}, + /* 31 */ {"CI", "Sea-ice cover [(0 - 1)]"}, + /* 32 */ {"ASN", "Snow albedo [(0 - 1)]"}, + /* 33 */ {"RSN", "Snow density [kg m**-3]"}, + /* 34 */ {"SSTK", "Sea surface temperature [K]"}, + /* 35 */ {"ISTL1", "Ice surface temperature layer 1 [K]"}, + /* 36 */ {"ISTL2", "Ice surface temperature layer 2 [K]"}, + /* 37 */ {"ISTL3", "Ice surface temperature layer 3 [K]"}, + /* 38 */ {"ISTL4", "Ice surface temperature layer 4 [K]"}, + /* 39 */ {"SWVL1", "Volumetric soil water layer 1 [m**3 m**-3]"}, + /* 40 */ {"SWVL2", "Volumetric soil water layer 2 [m**3 m**-3]"}, + /* 41 */ {"SWVL3", "Volumetric soil water layer 3 [m**3 m**-3]"}, + /* 42 */ {"SWVL4", "Volumetric soil water layer 4 [m**3 m**-3]"}, + /* 43 */ {"SLT", "Soil type []"}, + /* 44 */ {"ES", "Snow evaporation [m of water]"}, + /* 45 */ {"SMLT", "Snowmelt [m of water]"}, + /* 46 */ {"SDUR", "Solar duration [s]"}, + /* 47 */ {"DSRP", "Direct solar radiation [w m**-2]"}, + /* 48 */ {"MAGSS", "Magnitude of surface stress [N m**-2 s]"}, + /* 49 */ {"10FG", "10 metre wind gust [m s**-1]"}, + /* 50 */ {"LSPF", "Large-scale precipitation fraction [s]"}, + /* 51 */ {"MX2T24", "Maximum 2 metre temperature [K]"}, + /* 52 */ {"MN2T24", "Minimum 2 metre temperature [K]"}, + /* 53 */ {"MONT", "Montgomery potential [m**2 s**-2]"}, + /* 54 */ {"PRES", "Pressure [Pa]"}, + /* 55 */ {"MEAN2T24", "Mean 2 metre temperature in past 24 hours [K]"}, + /* 56 */ {"MN2D24", "Mean 2 metre dewpoint temperature in past 24 hours [K]"}, + /* 57 */ {"UVB", "Downward UV radiation at the surface [w m**-2 s]"}, + /* 58 */ {"PAR", "Photosynthetically active radiation at the surface [w m**-2 s]"}, + /* 59 */ {"CAPE", "Convective available potential energy [J kg**-1]"}, + /* 60 */ {"PV", "Potential vorticity [K m**2 kg**-1 s**-1]"}, + /* 61 */ {"TPO", "Total precipitation from observations [Millimetres*100 + number of stations]"}, + /* 62 */ {"OBCT", "Observation count []"}, + /* 63 */ {"var63", "Start time for skin temperature difference [s]"}, + /* 64 */ {"var64", "Finish time for skin temperature difference [s]"}, + /* 65 */ {"var65", "Skin temperature difference [K]"}, + /* 66 */ {"var66", "Leaf area index, low vegetation [m**2 / m**2]"}, + /* 67 */ {"var67", "Leaf area index, high vegetation [m**2 / m**2]"}, + /* 68 */ {"var68", "Minimum stomatal resistance, low vegetation [s m**-1]"}, + /* 69 */ {"var69", "Minimum stomatal resistance, high vegetation [s m**-1]"}, + /* 70 */ {"var70", "Biome cover, low vegetation [(0 - 1)]"}, + /* 71 */ {"var71", "Biome cover, high vegetation [(0 - 1)]"}, + /* 72 */ {"var72", "undefined"}, + /* 73 */ {"var73", "undefined"}, + /* 74 */ {"var74", "undefined"}, + /* 75 */ {"var75", "undefined"}, + /* 76 */ {"var76", "undefined"}, + /* 77 */ {"var77", "undefined"}, + /* 78 */ {"var78", "Total column liquid water [kg m**-2]"}, + /* 79 */ {"var79", "Total column ice water [kg m**-2]"}, + /* 80 */ {"var80", "Experimental product []"}, + /* 81 */ {"var81", "Experimental product []"}, + /* 82 */ {"var82", "Experimental product []"}, + /* 83 */ {"var83", "Experimental product []"}, + /* 84 */ {"var84", "Experimental product []"}, + /* 85 */ {"var85", "Experimental product []"}, + /* 86 */ {"var86", "Experimental product []"}, + /* 87 */ {"var87", "Experimental product []"}, + /* 88 */ {"var88", "Experimental product []"}, + /* 89 */ {"var89", "Experimental product []"}, + /* 90 */ {"var90", "Experimental product []"}, + /* 91 */ {"var91", "Experimental product []"}, + /* 92 */ {"var92", "Experimental product []"}, + /* 93 */ {"var93", "Experimental product []"}, + /* 94 */ {"var94", "Experimental product []"}, + /* 95 */ {"var95", "Experimental product []"}, + /* 96 */ {"var96", "Experimental product []"}, + /* 97 */ {"var97", "Experimental product []"}, + /* 98 */ {"var98", "Experimental product []"}, + /* 99 */ {"var99", "Experimental product []"}, + /* 100 */ {"var100", "Experimental product []"}, + /* 101 */ {"var101", "Experimental product []"}, + /* 102 */ {"var102", "Experimental product []"}, + /* 103 */ {"var103", "Experimental product []"}, + /* 104 */ {"var104", "Experimental product []"}, + /* 105 */ {"var105", "Experimental product []"}, + /* 106 */ {"var106", "Experimental product []"}, + /* 107 */ {"var107", "Experimental product []"}, + /* 108 */ {"var108", "Experimental product []"}, + /* 109 */ {"var109", "Experimental product []"}, + /* 110 */ {"var110", "Experimental product []"}, + /* 111 */ {"var111", "Experimental product []"}, + /* 112 */ {"var112", "Experimental product []"}, + /* 113 */ {"var113", "Experimental product []"}, + /* 114 */ {"var114", "Experimental product []"}, + /* 115 */ {"var115", "Experimental product []"}, + /* 116 */ {"var116", "Experimental product []"}, + /* 117 */ {"var117", "Experimental product []"}, + /* 118 */ {"var118", "Experimental product []"}, + /* 119 */ {"var119", "Experimental product []"}, + /* 120 */ {"var120", "Experimental product []"}, + /* 121 */ {"MX2T6", "Maximum temperature at 2 metres [K]"}, + /* 122 */ {"MN2T6", "Minimum temperature at 2 metres [K]"}, + /* 123 */ {"10FG6", "10 metre wind gust in the past 6 hours [m s**-1]"}, + /* 124 */ {"var124", "undefined"}, + /* 125 */ {"var125", "Vertically integrated total energy [J m**-2]"}, + /* 126 */ {"var126", "Generic parameter for sensitive area prediction [Various]"}, + /* 127 */ {"AT", "Atmospheric tide []"}, + /* 128 */ {"BV", "Budget values []"}, + /* 129 */ {"Z", "Geopotential [m**2 s**-2]"}, + /* 130 */ {"T", "Temperature [K]"}, + /* 131 */ {"U", "U velocity [m s**-1]"}, + /* 132 */ {"V", "V velocity [m s**-1]"}, + /* 133 */ {"Q", "Specific humidity [kg kg**-1]"}, + /* 134 */ {"SP", "Surface pressure [Pa]"}, + /* 135 */ {"W", "Vertical velocity [Pa s**-1]"}, + /* 136 */ {"TCW", "Total column water [kg m**-2]"}, + /* 137 */ {"TCWV", "Total column water vapour [kg m**-2]"}, + /* 138 */ {"VO", "Vorticity (relative) [s**-1]"}, + /* 139 */ {"STL1", "Soil temperature level 1 [K]"}, + /* 140 */ {"SWL1", "Soil wetness level 1 [m of water]"}, + /* 141 */ {"SD", "Snow depth [m of water equivalent]"}, + /* 142 */ {"LSP", "Stratiform precipitation (Large-scale precipitation) [m]"}, + /* 143 */ {"CP", "Convective precipitation [m]"}, + /* 144 */ {"SF", "Snowfall (convective + stratiform) [m of water equivalent]"}, + /* 145 */ {"BLD", "Boundary layer dissipation [W m**-2 s]"}, + /* 146 */ {"SSHF", "Surface sensible heat flux [W m**-2 s]"}, + /* 147 */ {"SLHF", "Surface latent heat flux [W m**-2 s]"}, + /* 148 */ {"CHNK", "Charnock []"}, + /* 149 */ {"SNR", "Surface net radiation [W m**-2 s]"}, + /* 150 */ {"TNR", "Top net radiation []"}, + /* 151 */ {"MSL", "Mean sea level pressure [Pa]"}, + /* 152 */ {"LNSP", "Logarithm of surface pressure []"}, + /* 153 */ {"SWHR", "Short-wave heating rate [K]"}, + /* 154 */ {"LWHR", "Long-wave heating rate [K]"}, + /* 155 */ {"D", "Divergence [s**-1]"}, + /* 156 */ {"GH", "Height [m]"}, + /* 157 */ {"R", "Relative humidity [%]"}, + /* 158 */ {"TSP", "Tendency of surface pressure [Pa s**-1]"}, + /* 159 */ {"BLH", "Boundary layer height [m]"}, + /* 160 */ {"SDOR", "Standard deviation of orography []"}, + /* 161 */ {"ISOR", "Anisotropy of sub-gridscale orography []"}, + /* 162 */ {"ANOR", "Angle of sub-gridscale orography [rad]"}, + /* 163 */ {"SLOR", "Slope of sub-gridscale orography []"}, + /* 164 */ {"TCC", "Total cloud cover [(0 - 1)]"}, + /* 165 */ {"10U", "10 metre U wind component [m s**-1]"}, + /* 166 */ {"10V", "10 metre V wind component [m s**-1]"}, + /* 167 */ {"2T", "2 metre temperature [K]"}, + /* 168 */ {"2D", "2 metre dewpoint temperature [K]"}, + /* 169 */ {"SSRD", "Surface solar radiation downwards [W m**-2 s]"}, + /* 170 */ {"STL2", "Soil temperature level 2 [K]"}, + /* 171 */ {"SWL2", "Soil wetness level 2 [m of water]"}, + /* 172 */ {"LSM", "Land-sea mask [(0 - 1)]"}, + /* 173 */ {"SR", "Surface roughness [m]"}, + /* 174 */ {"AL", "Albedo [(0 - 1)]"}, + /* 175 */ {"STRD", "Surface thermal radiation downwards [W m**-2 s]"}, + /* 176 */ {"SSR", "Surface solar radiation [W m**-2 s]"}, + /* 177 */ {"STR", "Surface thermal radiation [W m**-2 s]"}, + /* 178 */ {"TSR", "Top solar radiation [W m**-2 s]"}, + /* 179 */ {"TTR", "Top thermal radiation [W m**-2 s]"}, + /* 180 */ {"EWSS", "East-West surface stress [N m**-2 s]"}, + /* 181 */ {"NSSS", "North-South surface stress [N m**-2 s]"}, + /* 182 */ {"E", "Evaporation [m of water]"}, + /* 183 */ {"STL3", "Soil temperature level 3 [K]"}, + /* 184 */ {"SWL3", "Soil wetness level 3 [m of water]"}, + /* 185 */ {"CCC", "Convective cloud cover [(0 - 1)]"}, + /* 186 */ {"LCC", "Low cloud cover [(0 - 1)]"}, + /* 187 */ {"MCC", "Medium cloud cover [(0 - 1)]"}, + /* 188 */ {"HCC", "High cloud cover [(0 - 1)]"}, + /* 189 */ {"SUND", "Sunshine duration [s]"}, + /* 190 */ {"EWOV", "East-West component of sub-gridscale orographic variance [m**2]"}, + /* 191 */ {"NSOV", "North-South component of sub-gridscale orographic variance [m**2]"}, + /* 192 */ {"NWOV", "North-West/South-East component of sub-gridscale orographic variance [m**2]"}, + /* 193 */ {"NEOV", "North-East/South-West component of sub-gridscale orographic variance [m**2]"}, + /* 194 */ {"BTMP", "Brightness temperature [K]"}, + /* 195 */ {"LGWS", "Latitudinal component of gravity wave stress [N m**-2 s]"}, + /* 196 */ {"MGWS", "Meridional component of gravity wave stress [N m**-2 s]"}, + /* 197 */ {"GWD", "Gravity wave dissipation [W m**-2 s]"}, + /* 198 */ {"SRC", "Skin reservoir content [m of water]"}, + /* 199 */ {"VEG", "Vegetation fraction [(0 - 1)]"}, + /* 200 */ {"VSO", "Variance of sub-gridscale orography [m**2]"}, + /* 201 */ {"MX2T", "Maximum temperature at 2 metres since previous post-processing [K]"}, + /* 202 */ {"MN2T", "Minimum temperature at 2 metres since previous post-processing [K]"}, + /* 203 */ {"O3", "Ozone mass mixing ratio [kg kg**-1]"}, + /* 204 */ {"PAW", "Precipitation analysis weights []"}, + /* 205 */ {"RO", "Runoff [m]"}, + /* 206 */ {"TCO3", "Total column ozone [kg m**-2]"}, + /* 207 */ {"10SI", "10 metre wind speed [m s**-1]"}, + /* 208 */ {"TSRC", "Top net solar radiation, clear sky [W m**-2 s]"}, + /* 209 */ {"TTRC", "Top net thermal radiation, clear sky [W m**-2 s]"}, + /* 210 */ {"SSRC", "Surface net solar radiation, clear sky [W m**-2 s]"}, + /* 211 */ {"STRC", "Surface net thermal radiation, clear sky [W m**-2 s]"}, + /* 212 */ {"TISR", "TOA incident solar radiation [W m**-2 s]"}, + /* 213 */ {"var213", "undefined"}, + /* 214 */ {"DHR", "Diabatic heating by radiation [K]"}, + /* 215 */ {"DHVD", "Diabatic heating by vertical diffusion [K]"}, + /* 216 */ {"DHCC", "Diabatic heating by cumulus convection [K]"}, + /* 217 */ {"DHLC", "Diabatic heating large-scale condensation [K]"}, + /* 218 */ {"VDZW", "Vertical diffusion of zonal wind [m s**-1]"}, + /* 219 */ {"VDMW", "Vertical diffusion of meridional wind [m s**-1]"}, + /* 220 */ {"EWGD", "East-West gravity wave drag tendency [m s**-1]"}, + /* 221 */ {"NSGD", "North-South gravity wave drag tendency [m s**-1]"}, + /* 222 */ {"CTZW", "Convective tendency of zonal wind [m s**-1]"}, + /* 223 */ {"CTMW", "Convective tendency of meridional wind [m s**-1]"}, + /* 224 */ {"VDH", "Vertical diffusion of humidity [kg kg**-1]"}, + /* 225 */ {"HTCC", "Humidity tendency by cumulus convection [kg kg**-1]"}, + /* 226 */ {"HTLC", "Humidity tendency by large-scale condensation [kg kg**-1]"}, + /* 227 */ {"CRNH", "Change from removal of negative humidity [kg kg**-1]"}, + /* 228 */ {"TP", "Total precipitation [m]"}, + /* 229 */ {"IEWS", "Instantaneous X surface stress [N m**-2]"}, + /* 230 */ {"INSS", "Instantaneous Y surface stress [N m**-2]"}, + /* 231 */ {"ISHF", "Instantaneous surface heat flux [W m**-2]"}, + /* 232 */ {"IE", "Instantaneous moisture flux [kg m**-2 s]"}, + /* 233 */ {"ASQ", "Apparent surface humidity [kg kg**-1]"}, + /* 234 */ {"LSRH", "Logarithm of surface roughness length for heat []"}, + /* 235 */ {"SKT", "Skin temperature [K]"}, + /* 236 */ {"STL4", "Soil temperature level 4 [K]"}, + /* 237 */ {"SWL4", "Soil wetness level 4 [m]"}, + /* 238 */ {"TSN", "Temperature of snow layer [K]"}, + /* 239 */ {"CSF", "Convective snowfall [m of water equivalent]"}, + /* 240 */ {"LSF", "Large-scale snowfall [m of water equivalent]"}, + /* 241 */ {"ACF", "Accumulated cloud fraction tendency [(-1 to 1)]"}, + /* 242 */ {"ALW", "Accumulated liquid water tendency [(-1 to 1)]"}, + /* 243 */ {"FAL", "Forecast albedo [(0 - 1)]"}, + /* 244 */ {"FSR", "Forecast surface roughness [m]"}, + /* 245 */ {"FLSR", "Forecast logarithm of surface roughness for heat []"}, + /* 246 */ {"CLWC", "Cloud liquid water content [kg kg**-1]"}, + /* 247 */ {"CIWC", "Cloud ice water content [kg kg**-1]"}, + /* 248 */ {"CC", "Cloud cover [(0 - 1)]"}, + /* 249 */ {"AIW", "Accumulated ice water tendency [(-1 to 1)]"}, + /* 250 */ {"ICE", "Ice age [(0 - 1)]"}, + /* 251 */ {"ATTE", "Adiabatic tendency of temperature [K]"}, + /* 252 */ {"ATHE", "Adiabatic tendency of humidity [kg kg**-1]"}, + /* 253 */ {"ATZE", "Adiabatic tendency of zonal wind [m s**-1]"}, + /* 254 */ {"ATMW", "Adiabatic tendency of meridional wind [m s**-1]"}, + /* 255 */ {"var255", "Indicates a missing value []"}, +}; + +const struct ParmTable parm_table_ecmwf_130[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"var1", "undefined"}, + /* 2 */ {"var2", "undefined"}, + /* 3 */ {"var3", "undefined"}, + /* 4 */ {"var4", "undefined"}, + /* 5 */ {"var5", "undefined"}, + /* 6 */ {"var6", "undefined"}, + /* 7 */ {"var7", "undefined"}, + /* 8 */ {"var8", "undefined"}, + /* 9 */ {"var9", "undefined"}, + /* 10 */ {"var10", "undefined"}, + /* 11 */ {"var11", "undefined"}, + /* 12 */ {"var12", "undefined"}, + /* 13 */ {"var13", "undefined"}, + /* 14 */ {"var14", "undefined"}, + /* 15 */ {"var15", "undefined"}, + /* 16 */ {"var16", "undefined"}, + /* 17 */ {"var17", "undefined"}, + /* 18 */ {"var18", "undefined"}, + /* 19 */ {"var19", "undefined"}, + /* 20 */ {"var20", "undefined"}, + /* 21 */ {"var21", "undefined"}, + /* 22 */ {"var22", "undefined"}, + /* 23 */ {"var23", "undefined"}, + /* 24 */ {"var24", "undefined"}, + /* 25 */ {"var25", "undefined"}, + /* 26 */ {"var26", "undefined"}, + /* 27 */ {"var27", "undefined"}, + /* 28 */ {"var28", "undefined"}, + /* 29 */ {"var29", "undefined"}, + /* 30 */ {"var30", "undefined"}, + /* 31 */ {"var31", "undefined"}, + /* 32 */ {"var32", "undefined"}, + /* 33 */ {"var33", "undefined"}, + /* 34 */ {"var34", "undefined"}, + /* 35 */ {"var35", "undefined"}, + /* 36 */ {"var36", "undefined"}, + /* 37 */ {"var37", "undefined"}, + /* 38 */ {"var38", "undefined"}, + /* 39 */ {"var39", "undefined"}, + /* 40 */ {"var40", "undefined"}, + /* 41 */ {"var41", "undefined"}, + /* 42 */ {"var42", "undefined"}, + /* 43 */ {"var43", "undefined"}, + /* 44 */ {"var44", "undefined"}, + /* 45 */ {"var45", "undefined"}, + /* 46 */ {"var46", "undefined"}, + /* 47 */ {"var47", "undefined"}, + /* 48 */ {"var48", "undefined"}, + /* 49 */ {"var49", "undefined"}, + /* 50 */ {"var50", "undefined"}, + /* 51 */ {"var51", "undefined"}, + /* 52 */ {"var52", "undefined"}, + /* 53 */ {"var53", "undefined"}, + /* 54 */ {"var54", "undefined"}, + /* 55 */ {"var55", "undefined"}, + /* 56 */ {"var56", "undefined"}, + /* 57 */ {"var57", "undefined"}, + /* 58 */ {"var58", "undefined"}, + /* 59 */ {"var59", "undefined"}, + /* 60 */ {"var60", "undefined"}, + /* 61 */ {"var61", "undefined"}, + /* 62 */ {"var62", "undefined"}, + /* 63 */ {"var63", "undefined"}, + /* 64 */ {"var64", "undefined"}, + /* 65 */ {"var65", "undefined"}, + /* 66 */ {"var66", "undefined"}, + /* 67 */ {"var67", "undefined"}, + /* 68 */ {"var68", "undefined"}, + /* 69 */ {"var69", "undefined"}, + /* 70 */ {"var70", "undefined"}, + /* 71 */ {"var71", "undefined"}, + /* 72 */ {"var72", "undefined"}, + /* 73 */ {"var73", "undefined"}, + /* 74 */ {"var74", "undefined"}, + /* 75 */ {"var75", "undefined"}, + /* 76 */ {"var76", "undefined"}, + /* 77 */ {"var77", "undefined"}, + /* 78 */ {"var78", "undefined"}, + /* 79 */ {"var79", "undefined"}, + /* 80 */ {"var80", "undefined"}, + /* 81 */ {"var81", "undefined"}, + /* 82 */ {"var82", "undefined"}, + /* 83 */ {"var83", "undefined"}, + /* 84 */ {"var84", "undefined"}, + /* 85 */ {"var85", "undefined"}, + /* 86 */ {"var86", "undefined"}, + /* 87 */ {"var87", "undefined"}, + /* 88 */ {"var88", "undefined"}, + /* 89 */ {"var89", "undefined"}, + /* 90 */ {"var90", "undefined"}, + /* 91 */ {"var91", "undefined"}, + /* 92 */ {"var92", "undefined"}, + /* 93 */ {"var93", "undefined"}, + /* 94 */ {"var94", "undefined"}, + /* 95 */ {"var95", "undefined"}, + /* 96 */ {"var96", "undefined"}, + /* 97 */ {"var97", "undefined"}, + /* 98 */ {"var98", "undefined"}, + /* 99 */ {"var99", "undefined"}, + /* 100 */ {"var100", "undefined"}, + /* 101 */ {"var101", "undefined"}, + /* 102 */ {"var102", "undefined"}, + /* 103 */ {"var103", "undefined"}, + /* 104 */ {"var104", "undefined"}, + /* 105 */ {"var105", "undefined"}, + /* 106 */ {"var106", "undefined"}, + /* 107 */ {"var107", "undefined"}, + /* 108 */ {"var108", "undefined"}, + /* 109 */ {"var109", "undefined"}, + /* 110 */ {"var110", "undefined"}, + /* 111 */ {"var111", "undefined"}, + /* 112 */ {"var112", "undefined"}, + /* 113 */ {"var113", "undefined"}, + /* 114 */ {"var114", "undefined"}, + /* 115 */ {"var115", "undefined"}, + /* 116 */ {"var116", "undefined"}, + /* 117 */ {"var117", "undefined"}, + /* 118 */ {"var118", "undefined"}, + /* 119 */ {"var119", "undefined"}, + /* 120 */ {"var120", "undefined"}, + /* 121 */ {"var121", "undefined"}, + /* 122 */ {"var122", "undefined"}, + /* 123 */ {"var123", "undefined"}, + /* 124 */ {"var124", "undefined"}, + /* 125 */ {"var125", "undefined"}, + /* 126 */ {"var126", "undefined"}, + /* 127 */ {"var127", "undefined"}, + /* 128 */ {"var128", "undefined"}, + /* 129 */ {"var129", "undefined"}, + /* 130 */ {"var130", "undefined"}, + /* 131 */ {"var131", "undefined"}, + /* 132 */ {"var132", "undefined"}, + /* 133 */ {"var133", "undefined"}, + /* 134 */ {"var134", "undefined"}, + /* 135 */ {"var135", "undefined"}, + /* 136 */ {"var136", "undefined"}, + /* 137 */ {"var137", "undefined"}, + /* 138 */ {"var138", "undefined"}, + /* 139 */ {"var139", "undefined"}, + /* 140 */ {"var140", "undefined"}, + /* 141 */ {"var141", "undefined"}, + /* 142 */ {"var142", "undefined"}, + /* 143 */ {"var143", "undefined"}, + /* 144 */ {"var144", "undefined"}, + /* 145 */ {"var145", "undefined"}, + /* 146 */ {"var146", "undefined"}, + /* 147 */ {"var147", "undefined"}, + /* 148 */ {"var148", "undefined"}, + /* 149 */ {"var149", "undefined"}, + /* 150 */ {"var150", "undefined"}, + /* 151 */ {"var151", "undefined"}, + /* 152 */ {"var152", "undefined"}, + /* 153 */ {"var153", "undefined"}, + /* 154 */ {"var154", "undefined"}, + /* 155 */ {"var155", "undefined"}, + /* 156 */ {"var156", "undefined"}, + /* 157 */ {"var157", "undefined"}, + /* 158 */ {"var158", "undefined"}, + /* 159 */ {"var159", "undefined"}, + /* 160 */ {"var160", "undefined"}, + /* 161 */ {"var161", "undefined"}, + /* 162 */ {"var162", "undefined"}, + /* 163 */ {"var163", "undefined"}, + /* 164 */ {"var164", "undefined"}, + /* 165 */ {"var165", "undefined"}, + /* 166 */ {"var166", "undefined"}, + /* 167 */ {"var167", "undefined"}, + /* 168 */ {"var168", "undefined"}, + /* 169 */ {"var169", "undefined"}, + /* 170 */ {"var170", "undefined"}, + /* 171 */ {"var171", "undefined"}, + /* 172 */ {"var172", "undefined"}, + /* 173 */ {"var173", "undefined"}, + /* 174 */ {"var174", "undefined"}, + /* 175 */ {"var175", "undefined"}, + /* 176 */ {"var176", "undefined"}, + /* 177 */ {"var177", "undefined"}, + /* 178 */ {"var178", "undefined"}, + /* 179 */ {"var179", "undefined"}, + /* 180 */ {"var180", "undefined"}, + /* 181 */ {"var181", "undefined"}, + /* 182 */ {"var182", "undefined"}, + /* 183 */ {"var183", "undefined"}, + /* 184 */ {"var184", "undefined"}, + /* 185 */ {"var185", "undefined"}, + /* 186 */ {"var186", "undefined"}, + /* 187 */ {"var187", "undefined"}, + /* 188 */ {"var188", "undefined"}, + /* 189 */ {"var189", "undefined"}, + /* 190 */ {"var190", "undefined"}, + /* 191 */ {"var191", "undefined"}, + /* 192 */ {"var192", "undefined"}, + /* 193 */ {"var193", "undefined"}, + /* 194 */ {"var194", "undefined"}, + /* 195 */ {"var195", "undefined"}, + /* 196 */ {"var196", "undefined"}, + /* 197 */ {"var197", "undefined"}, + /* 198 */ {"var198", "undefined"}, + /* 199 */ {"var199", "undefined"}, + /* 200 */ {"var200", "undefined"}, + /* 201 */ {"var201", "undefined"}, + /* 202 */ {"var202", "undefined"}, + /* 203 */ {"var203", "undefined"}, + /* 204 */ {"var204", "undefined"}, + /* 205 */ {"var205", "undefined"}, + /* 206 */ {"var206", "undefined"}, + /* 207 */ {"var207", "undefined"}, + /* 208 */ {"TSRU", "Top solar radiation upward [W m**-2]"}, + /* 209 */ {"TTRU", "Top thermal radiation upward [W m**-2]"}, + /* 210 */ {"TSUC", "Top solar radiation upward, clear sky [W m**-2]"}, + /* 211 */ {"TTUC", "Top thermal radiation upward, clear sky [W m**-2]"}, + /* 212 */ {"CLW", "Cloud liquid water [kg kg**-1]"}, + /* 213 */ {"CF", "Cloud fraction [(0 - 1)]"}, + /* 214 */ {"DHR", "Diabatic heating by radiation [K s**-1]"}, + /* 215 */ {"DHVD", "Diabatic heating by vertical diffusion [K s**-1]"}, + /* 216 */ {"DHCC", "Diabatic heating by cumulus convection [K s**-1]"}, + /* 217 */ {"DHLC", "Diabatic heating by large-scale condensation [K s**-1]"}, + /* 218 */ {"VDZW", "Vertical diffusion of zonal wind [m**2 s**-3]"}, + /* 219 */ {"VDMW", "Vertical diffusion of meridional wind [m**2 s**-3]"}, + /* 220 */ {"EWGD", "East-West gravity wave drag [m**2 s**-3]"}, + /* 221 */ {"NSGD", "North-South gravity wave drag [m**2 s**-3]"}, + /* 222 */ {"CTZW", "Convective tendency of zonal wind [m**2 s**-3]"}, + /* 223 */ {"CTMW", "Convective tendency of meridional wind [m**2 s**-3]"}, + /* 224 */ {"VDH", "Vertical diffusion of humidity [kg kg**-1 s**-1]"}, + /* 225 */ {"HTCC", "Humidity tendency by cumulus convection [kg kg**-1 s**-1]"}, + /* 226 */ {"HTLC", "Humidity tendency by large-scale condensation [kg kg**-1 s**-1]"}, + /* 227 */ {"CRNH", "Change from removal of negative humidity [kg kg**-1 s**-1]"}, + /* 228 */ {"ATT", "Adiabatic tendency of temperature [K s**-1]"}, + /* 229 */ {"ATH", "Adiabatic tendency of humidity [kg kg**-1 s**-1]"}, + /* 230 */ {"ATZW", "Adiabatic tendency of zonal wind [m**2 s**-3]"}, + /* 231 */ {"ATMWAX", "Adiabatic tendency of meridional wind [m**2 s**-3]"}, + /* 232 */ {"MVV", "Mean vertical velocity [Pa s**-1]"}, + /* 233 */ {"var233", "undefined"}, + /* 234 */ {"var234", "undefined"}, + /* 235 */ {"var235", "undefined"}, + /* 236 */ {"var236", "undefined"}, + /* 237 */ {"var237", "undefined"}, + /* 238 */ {"var238", "undefined"}, + /* 239 */ {"var239", "undefined"}, + /* 240 */ {"var240", "undefined"}, + /* 241 */ {"var241", "undefined"}, + /* 242 */ {"var242", "undefined"}, + /* 243 */ {"var243", "undefined"}, + /* 244 */ {"var244", "undefined"}, + /* 245 */ {"var245", "undefined"}, + /* 246 */ {"var246", "undefined"}, + /* 247 */ {"var247", "undefined"}, + /* 248 */ {"var248", "undefined"}, + /* 249 */ {"var249", "undefined"}, + /* 250 */ {"var250", "undefined"}, + /* 251 */ {"var251", "undefined"}, + /* 252 */ {"var252", "undefined"}, + /* 253 */ {"var253", "undefined"}, + /* 254 */ {"var254", "undefined"}, + /* 255 */ {"var255", "Indicates a missing value []"}, +}; + +const struct ParmTable parm_table_ecmwf_131[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"2TAG2", "2m temperature anomaly of at least +2K [%]"}, + /* 2 */ {"2TAG1", "2m temperature anomaly of at least +1K [%]"}, + /* 3 */ {"2TAG0", "2m temperature anomaly of at least 0K [%]"}, + /* 4 */ {"2TALM1", "2m temperature anomaly of at most -1K [%]"}, + /* 5 */ {"2TALM2", "2m temperature anomaly of at most -2K [%]"}, + /* 6 */ {"TPAG20", "Total precipitation anomaly of at least 20 mm [%]"}, + /* 7 */ {"TPAG10", "Total precipitation anomaly of at least 10 mm [%]"}, + /* 8 */ {"TPAG0", "Total precipitation anomaly of at least 0 mm [%]"}, + /* 9 */ {"STAG0", "Surface temperature anomaly of at least 0K [%]"}, + /* 10 */ {"MSLAG0", "Mean sea level pressure anomaly of at least 0 Pa [%]"}, + /* 11 */ {"var11", "undefined"}, + /* 12 */ {"var12", "undefined"}, + /* 13 */ {"var13", "undefined"}, + /* 14 */ {"var14", "undefined"}, + /* 15 */ {"H0DIP", "Heigth of 0 degree isotherm probability [percentage]"}, + /* 16 */ {"HSLP", "Heigth of snowfall limit probability [percentage]"}, + /* 17 */ {"SAIP", "Showalter index probability [percentage]"}, + /* 18 */ {"WHIP", "Whiting index probability [percentage]"}, + /* 19 */ {"var19", "undefined"}, + /* 20 */ {"TALM2K", "Temperature anomaly less than -2 K [%]"}, + /* 21 */ {"TAG2K", "Temperature anomaly of at least +2 K [%]"}, + /* 22 */ {"TALM8K", "Temperature anomaly less than -8 K [%]"}, + /* 23 */ {"TALM4K", "Temperature anomaly less than -4 K [%]"}, + /* 24 */ {"TAG4K", "Temperature anomaly greater than +4 K [%]"}, + /* 25 */ {"TAG8K", "Temperature anomaly greater than +8 K [%]"}, + /* 26 */ {"var26", "undefined"}, + /* 27 */ {"var27", "undefined"}, + /* 28 */ {"var28", "undefined"}, + /* 29 */ {"var29", "undefined"}, + /* 30 */ {"var30", "undefined"}, + /* 31 */ {"var31", "undefined"}, + /* 32 */ {"var32", "undefined"}, + /* 33 */ {"var33", "undefined"}, + /* 34 */ {"var34", "undefined"}, + /* 35 */ {"var35", "undefined"}, + /* 36 */ {"var36", "undefined"}, + /* 37 */ {"var37", "undefined"}, + /* 38 */ {"var38", "undefined"}, + /* 39 */ {"var39", "undefined"}, + /* 40 */ {"var40", "undefined"}, + /* 41 */ {"var41", "undefined"}, + /* 42 */ {"var42", "undefined"}, + /* 43 */ {"var43", "undefined"}, + /* 44 */ {"var44", "undefined"}, + /* 45 */ {"var45", "undefined"}, + /* 46 */ {"var46", "undefined"}, + /* 47 */ {"var47", "undefined"}, + /* 48 */ {"var48", "undefined"}, + /* 49 */ {"10GP", "10 metre wind gust probability [percentage]"}, + /* 50 */ {"var50", "undefined"}, + /* 51 */ {"var51", "undefined"}, + /* 52 */ {"var52", "undefined"}, + /* 53 */ {"var53", "undefined"}, + /* 54 */ {"var54", "undefined"}, + /* 55 */ {"var55", "undefined"}, + /* 56 */ {"var56", "undefined"}, + /* 57 */ {"var57", "undefined"}, + /* 58 */ {"var58", "undefined"}, + /* 59 */ {"CAPEP", "Convective available potential energy probability [percentage]"}, + /* 60 */ {"TPG1", "Total precipitation of at least 1 mm [%]"}, + /* 61 */ {"TPG5", "Total precipitation of at least 5 mm [%]"}, + /* 62 */ {"TPG10", "Total precipitation of at least 10 mm [%]"}, + /* 63 */ {"TPG20", "Total precipitation of at least 20 mm [%]"}, + /* 64 */ {"TPL01", "Total precipitation less than 0.1 mm [%]"}, + /* 65 */ {"TPRL1", "Total precipitation rate less than 1 mm per day [%]"}, + /* 66 */ {"TPRG3", "Total precipitation rate of at least 3 mm per day [%]"}, + /* 67 */ {"TPRG5", "Total precipitation rate of at least 5 mm per day [%]"}, + /* 68 */ {"10SPG10", "10 metre Wind speed of at least 10 metre per second [%]"}, + /* 69 */ {"10SPG15", "10 metre Wind speed of at least 15 metre per second [%]"}, + /* 70 */ {"10FGG15", "10 metre Wind gust of at least 15 metre per second [%]"}, + /* 71 */ {"10FGG20", "10 metre Wind gust of at least 20 metre per second [%]"}, + /* 72 */ {"10FGG25", "10 metre Wind gust of at least 25 metre per second [%]"}, + /* 73 */ {"2TL273", "2 metre temperature less than 273.15 K [%]"}, + /* 74 */ {"SWHG2", "Significant wave height of at least 2 m [%]"}, + /* 75 */ {"SWHG4", "Significant wave height of at least 4 m [%]"}, + /* 76 */ {"SWHG6", "Significant wave height of at least 6 m [%]"}, + /* 77 */ {"SWHG8", "Significant wave height of at least 8 m [%]"}, + /* 78 */ {"MWPG8", "Mean wave period of at least 8 s [%]"}, + /* 79 */ {"MWPG10", "Mean wave period of at least 10 s [%]"}, + /* 80 */ {"MWPG12", "Mean wave period of at least 12 s [%]"}, + /* 81 */ {"MWPG15", "Mean wave period of at least 15 s [%]"}, + /* 82 */ {"TPG40", "Total precipitation of at least 40 mm [%]"}, + /* 83 */ {"TPG60", "Total precipitation of at least 60 mm [%]"}, + /* 84 */ {"TPG80", "Total precipitation of at least 80 mm [%]"}, + /* 85 */ {"TPG100", "Total precipitation of at least 100 mm [%]"}, + /* 86 */ {"TPG150", "Total precipitation of at least 150 mm [%]"}, + /* 87 */ {"TPG200", "Total precipitation of at least 200 mm [%]"}, + /* 88 */ {"TPG300", "Total precipitation of at least 300 mm [%]"}, + /* 89 */ {"var89", "undefined"}, + /* 90 */ {"var90", "undefined"}, + /* 91 */ {"var91", "undefined"}, + /* 92 */ {"var92", "undefined"}, + /* 93 */ {"var93", "undefined"}, + /* 94 */ {"var94", "undefined"}, + /* 95 */ {"var95", "undefined"}, + /* 96 */ {"var96", "undefined"}, + /* 97 */ {"var97", "undefined"}, + /* 98 */ {"var98", "undefined"}, + /* 99 */ {"var99", "undefined"}, + /* 100 */ {"var100", "undefined"}, + /* 101 */ {"var101", "undefined"}, + /* 102 */ {"var102", "undefined"}, + /* 103 */ {"var103", "undefined"}, + /* 104 */ {"var104", "undefined"}, + /* 105 */ {"var105", "undefined"}, + /* 106 */ {"var106", "undefined"}, + /* 107 */ {"var107", "undefined"}, + /* 108 */ {"var108", "undefined"}, + /* 109 */ {"var109", "undefined"}, + /* 110 */ {"var110", "undefined"}, + /* 111 */ {"var111", "undefined"}, + /* 112 */ {"var112", "undefined"}, + /* 113 */ {"var113", "undefined"}, + /* 114 */ {"var114", "undefined"}, + /* 115 */ {"var115", "undefined"}, + /* 116 */ {"var116", "undefined"}, + /* 117 */ {"var117", "undefined"}, + /* 118 */ {"var118", "undefined"}, + /* 119 */ {"var119", "undefined"}, + /* 120 */ {"var120", "undefined"}, + /* 121 */ {"var121", "undefined"}, + /* 122 */ {"var122", "undefined"}, + /* 123 */ {"var123", "undefined"}, + /* 124 */ {"var124", "undefined"}, + /* 125 */ {"var125", "undefined"}, + /* 126 */ {"var126", "undefined"}, + /* 127 */ {"var127", "undefined"}, + /* 128 */ {"var128", "undefined"}, + /* 129 */ {"ZP", "Geopotential probability [%]"}, + /* 130 */ {"TAP", "Temperature anomaly probability [percentage]"}, + /* 131 */ {"var131", "undefined"}, + /* 132 */ {"var132", "undefined"}, + /* 133 */ {"var133", "undefined"}, + /* 134 */ {"var134", "undefined"}, + /* 135 */ {"var135", "undefined"}, + /* 136 */ {"var136", "undefined"}, + /* 137 */ {"var137", "undefined"}, + /* 138 */ {"var138", "undefined"}, + /* 139 */ {"var139", "2 metre temperature probability [%]"}, + /* 140 */ {"var140", "undefined"}, + /* 141 */ {"var141", "undefined"}, + /* 142 */ {"var142", "undefined"}, + /* 143 */ {"var143", "undefined"}, + /* 144 */ {"SFP", "Snowfall probability [percentage]"}, + /* 145 */ {"var145", "undefined"}, + /* 146 */ {"var146", "undefined"}, + /* 147 */ {"var147", "undefined"}, + /* 148 */ {"var148", "undefined"}, + /* 149 */ {"var149", "undefined"}, + /* 150 */ {"var150", "undefined"}, + /* 151 */ {"var151", "Total precipitation probability [%]"}, + /* 152 */ {"var152", "undefined"}, + /* 153 */ {"var153", "undefined"}, + /* 154 */ {"var154", "undefined"}, + /* 155 */ {"var155", "undefined"}, + /* 156 */ {"var156", "undefined"}, + /* 157 */ {"var157", "undefined"}, + /* 158 */ {"var158", "undefined"}, + /* 159 */ {"var159", "undefined"}, + /* 160 */ {"var160", "undefined"}, + /* 161 */ {"var161", "undefined"}, + /* 162 */ {"var162", "undefined"}, + /* 163 */ {"var163", "undefined"}, + /* 164 */ {"TCCP", "Total cloud cover probability [percentage]"}, + /* 165 */ {"10SP", "10 metre speed probability [percentage]"}, + /* 166 */ {"var166", "undefined"}, + /* 167 */ {"2TP", "2 metre temperature probability [percentage]"}, + /* 168 */ {"var168", "undefined"}, + /* 169 */ {"var169", "undefined"}, + /* 170 */ {"var170", "undefined"}, + /* 171 */ {"var171", "undefined"}, + /* 172 */ {"var172", "undefined"}, + /* 173 */ {"var173", "undefined"}, + /* 174 */ {"var174", "undefined"}, + /* 175 */ {"var175", "undefined"}, + /* 176 */ {"var176", "undefined"}, + /* 177 */ {"var177", "undefined"}, + /* 178 */ {"var178", "undefined"}, + /* 179 */ {"var179", "undefined"}, + /* 180 */ {"var180", "undefined"}, + /* 181 */ {"var181", "undefined"}, + /* 182 */ {"var182", "undefined"}, + /* 183 */ {"var183", "undefined"}, + /* 184 */ {"var184", "undefined"}, + /* 185 */ {"var185", "undefined"}, + /* 186 */ {"var186", "undefined"}, + /* 187 */ {"var187", "undefined"}, + /* 188 */ {"var188", "undefined"}, + /* 189 */ {"var189", "undefined"}, + /* 190 */ {"var190", "undefined"}, + /* 191 */ {"var191", "undefined"}, + /* 192 */ {"var192", "undefined"}, + /* 193 */ {"var193", "undefined"}, + /* 194 */ {"var194", "undefined"}, + /* 195 */ {"var195", "undefined"}, + /* 196 */ {"var196", "undefined"}, + /* 197 */ {"var197", "undefined"}, + /* 198 */ {"var198", "undefined"}, + /* 199 */ {"var199", "undefined"}, + /* 200 */ {"var200", "undefined"}, + /* 201 */ {"MX2TP", "Maximum 2 metre temperature probability [percentage]"}, + /* 202 */ {"MN2TP", "Minimum 2 metre temperature probability [percentage]"}, + /* 203 */ {"var203", "undefined"}, + /* 204 */ {"var204", "undefined"}, + /* 205 */ {"var205", "undefined"}, + /* 206 */ {"var206", "undefined"}, + /* 207 */ {"var207", "undefined"}, + /* 208 */ {"var208", "undefined"}, + /* 209 */ {"var209", "undefined"}, + /* 210 */ {"var210", "undefined"}, + /* 211 */ {"var211", "undefined"}, + /* 212 */ {"var212", "undefined"}, + /* 213 */ {"var213", "undefined"}, + /* 214 */ {"var214", "undefined"}, + /* 215 */ {"var215", "undefined"}, + /* 216 */ {"var216", "undefined"}, + /* 217 */ {"var217", "undefined"}, + /* 218 */ {"var218", "undefined"}, + /* 219 */ {"var219", "undefined"}, + /* 220 */ {"var220", "undefined"}, + /* 221 */ {"var221", "undefined"}, + /* 222 */ {"var222", "undefined"}, + /* 223 */ {"var223", "undefined"}, + /* 224 */ {"var224", "undefined"}, + /* 225 */ {"var225", "undefined"}, + /* 226 */ {"var226", "undefined"}, + /* 227 */ {"var227", "undefined"}, + /* 228 */ {"TPP", "Total precipitation probability [percentage]"}, + /* 229 */ {"SWHP", "Significant wave height probability [percentage]"}, + /* 230 */ {"var230", "undefined"}, + /* 231 */ {"var231", "undefined"}, + /* 232 */ {"MWPP", "Mean wave period probability [percentage]"}, + /* 233 */ {"var233", "undefined"}, + /* 234 */ {"var234", "undefined"}, + /* 235 */ {"var235", "undefined"}, + /* 236 */ {"var236", "undefined"}, + /* 237 */ {"var237", "undefined"}, + /* 238 */ {"var238", "undefined"}, + /* 239 */ {"var239", "undefined"}, + /* 240 */ {"var240", "undefined"}, + /* 241 */ {"var241", "undefined"}, + /* 242 */ {"var242", "undefined"}, + /* 243 */ {"var243", "undefined"}, + /* 244 */ {"var244", "undefined"}, + /* 245 */ {"var245", "undefined"}, + /* 246 */ {"var246", "undefined"}, + /* 247 */ {"var247", "undefined"}, + /* 248 */ {"var248", "undefined"}, + /* 249 */ {"var249", "undefined"}, + /* 250 */ {"var250", "undefined"}, + /* 251 */ {"var251", "undefined"}, + /* 252 */ {"var252", "undefined"}, + /* 253 */ {"var253", "undefined"}, + /* 254 */ {"var254", "undefined"}, + /* 255 */ {"var255", "Indicates a missing value []"}, +}; + +const struct ParmTable parm_table_ecmwf_132[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"var1", "undefined"}, + /* 2 */ {"var2", "undefined"}, + /* 3 */ {"var3", "undefined"}, + /* 4 */ {"var4", "undefined"}, + /* 5 */ {"var5", "undefined"}, + /* 6 */ {"var6", "undefined"}, + /* 7 */ {"var7", "undefined"}, + /* 8 */ {"var8", "undefined"}, + /* 9 */ {"var9", "undefined"}, + /* 10 */ {"var10", "undefined"}, + /* 11 */ {"var11", "undefined"}, + /* 12 */ {"var12", "undefined"}, + /* 13 */ {"var13", "undefined"}, + /* 14 */ {"var14", "undefined"}, + /* 15 */ {"var15", "undefined"}, + /* 16 */ {"var16", "undefined"}, + /* 17 */ {"var17", "undefined"}, + /* 18 */ {"var18", "undefined"}, + /* 19 */ {"var19", "undefined"}, + /* 20 */ {"var20", "undefined"}, + /* 21 */ {"var21", "undefined"}, + /* 22 */ {"var22", "undefined"}, + /* 23 */ {"var23", "undefined"}, + /* 24 */ {"var24", "undefined"}, + /* 25 */ {"var25", "undefined"}, + /* 26 */ {"var26", "undefined"}, + /* 27 */ {"var27", "undefined"}, + /* 28 */ {"var28", "undefined"}, + /* 29 */ {"var29", "undefined"}, + /* 30 */ {"var30", "undefined"}, + /* 31 */ {"var31", "undefined"}, + /* 32 */ {"var32", "undefined"}, + /* 33 */ {"var33", "undefined"}, + /* 34 */ {"var34", "undefined"}, + /* 35 */ {"var35", "undefined"}, + /* 36 */ {"var36", "undefined"}, + /* 37 */ {"var37", "undefined"}, + /* 38 */ {"var38", "undefined"}, + /* 39 */ {"var39", "undefined"}, + /* 40 */ {"var40", "undefined"}, + /* 41 */ {"var41", "undefined"}, + /* 42 */ {"var42", "undefined"}, + /* 43 */ {"var43", "undefined"}, + /* 44 */ {"var44", "undefined"}, + /* 45 */ {"var45", "undefined"}, + /* 46 */ {"var46", "undefined"}, + /* 47 */ {"var47", "undefined"}, + /* 48 */ {"var48", "undefined"}, + /* 49 */ {"10FGI", "10 metre wind gust index [(-1 to 1)]"}, + /* 50 */ {"var50", "undefined"}, + /* 51 */ {"var51", "undefined"}, + /* 52 */ {"var52", "undefined"}, + /* 53 */ {"var53", "undefined"}, + /* 54 */ {"var54", "undefined"}, + /* 55 */ {"var55", "undefined"}, + /* 56 */ {"var56", "undefined"}, + /* 57 */ {"var57", "undefined"}, + /* 58 */ {"var58", "undefined"}, + /* 59 */ {"var59", "undefined"}, + /* 60 */ {"var60", "undefined"}, + /* 61 */ {"var61", "undefined"}, + /* 62 */ {"var62", "undefined"}, + /* 63 */ {"var63", "undefined"}, + /* 64 */ {"var64", "undefined"}, + /* 65 */ {"var65", "undefined"}, + /* 66 */ {"var66", "undefined"}, + /* 67 */ {"var67", "undefined"}, + /* 68 */ {"var68", "undefined"}, + /* 69 */ {"var69", "undefined"}, + /* 70 */ {"var70", "undefined"}, + /* 71 */ {"var71", "undefined"}, + /* 72 */ {"var72", "undefined"}, + /* 73 */ {"var73", "undefined"}, + /* 74 */ {"var74", "undefined"}, + /* 75 */ {"var75", "undefined"}, + /* 76 */ {"var76", "undefined"}, + /* 77 */ {"var77", "undefined"}, + /* 78 */ {"var78", "undefined"}, + /* 79 */ {"var79", "undefined"}, + /* 80 */ {"var80", "undefined"}, + /* 81 */ {"var81", "undefined"}, + /* 82 */ {"var82", "undefined"}, + /* 83 */ {"var83", "undefined"}, + /* 84 */ {"var84", "undefined"}, + /* 85 */ {"var85", "undefined"}, + /* 86 */ {"var86", "undefined"}, + /* 87 */ {"var87", "undefined"}, + /* 88 */ {"var88", "undefined"}, + /* 89 */ {"var89", "undefined"}, + /* 90 */ {"var90", "undefined"}, + /* 91 */ {"var91", "undefined"}, + /* 92 */ {"var92", "undefined"}, + /* 93 */ {"var93", "undefined"}, + /* 94 */ {"var94", "undefined"}, + /* 95 */ {"var95", "undefined"}, + /* 96 */ {"var96", "undefined"}, + /* 97 */ {"var97", "undefined"}, + /* 98 */ {"var98", "undefined"}, + /* 99 */ {"var99", "undefined"}, + /* 100 */ {"var100", "undefined"}, + /* 101 */ {"var101", "undefined"}, + /* 102 */ {"var102", "undefined"}, + /* 103 */ {"var103", "undefined"}, + /* 104 */ {"var104", "undefined"}, + /* 105 */ {"var105", "undefined"}, + /* 106 */ {"var106", "undefined"}, + /* 107 */ {"var107", "undefined"}, + /* 108 */ {"var108", "undefined"}, + /* 109 */ {"var109", "undefined"}, + /* 110 */ {"var110", "undefined"}, + /* 111 */ {"var111", "undefined"}, + /* 112 */ {"var112", "undefined"}, + /* 113 */ {"var113", "undefined"}, + /* 114 */ {"var114", "undefined"}, + /* 115 */ {"var115", "undefined"}, + /* 116 */ {"var116", "undefined"}, + /* 117 */ {"var117", "undefined"}, + /* 118 */ {"var118", "undefined"}, + /* 119 */ {"var119", "undefined"}, + /* 120 */ {"var120", "undefined"}, + /* 121 */ {"var121", "undefined"}, + /* 122 */ {"var122", "undefined"}, + /* 123 */ {"var123", "undefined"}, + /* 124 */ {"var124", "undefined"}, + /* 125 */ {"var125", "undefined"}, + /* 126 */ {"var126", "undefined"}, + /* 127 */ {"var127", "undefined"}, + /* 128 */ {"var128", "undefined"}, + /* 129 */ {"var129", "undefined"}, + /* 130 */ {"var130", "undefined"}, + /* 131 */ {"var131", "undefined"}, + /* 132 */ {"var132", "undefined"}, + /* 133 */ {"var133", "undefined"}, + /* 134 */ {"var134", "undefined"}, + /* 135 */ {"var135", "undefined"}, + /* 136 */ {"var136", "undefined"}, + /* 137 */ {"var137", "undefined"}, + /* 138 */ {"var138", "undefined"}, + /* 139 */ {"var139", "undefined"}, + /* 140 */ {"var140", "undefined"}, + /* 141 */ {"var141", "undefined"}, + /* 142 */ {"var142", "undefined"}, + /* 143 */ {"var143", "undefined"}, + /* 144 */ {"SFI", "Snowfall index [(-1 to 1)]"}, + /* 145 */ {"var145", "undefined"}, + /* 146 */ {"var146", "undefined"}, + /* 147 */ {"var147", "undefined"}, + /* 148 */ {"var148", "undefined"}, + /* 149 */ {"var149", "undefined"}, + /* 150 */ {"var150", "undefined"}, + /* 151 */ {"var151", "undefined"}, + /* 152 */ {"var152", "undefined"}, + /* 153 */ {"var153", "undefined"}, + /* 154 */ {"var154", "undefined"}, + /* 155 */ {"var155", "undefined"}, + /* 156 */ {"var156", "undefined"}, + /* 157 */ {"var157", "undefined"}, + /* 158 */ {"var158", "undefined"}, + /* 159 */ {"var159", "undefined"}, + /* 160 */ {"var160", "undefined"}, + /* 161 */ {"var161", "undefined"}, + /* 162 */ {"var162", "undefined"}, + /* 163 */ {"var163", "undefined"}, + /* 164 */ {"var164", "undefined"}, + /* 165 */ {"10WSI", "10 metre speed index [(-1 to 1)]"}, + /* 166 */ {"var166", "undefined"}, + /* 167 */ {"2TI", "2 metre temperature index [(-1 to 1)]"}, + /* 168 */ {"var168", "undefined"}, + /* 169 */ {"var169", "undefined"}, + /* 170 */ {"var170", "undefined"}, + /* 171 */ {"var171", "undefined"}, + /* 172 */ {"var172", "undefined"}, + /* 173 */ {"var173", "undefined"}, + /* 174 */ {"var174", "undefined"}, + /* 175 */ {"var175", "undefined"}, + /* 176 */ {"var176", "undefined"}, + /* 177 */ {"var177", "undefined"}, + /* 178 */ {"var178", "undefined"}, + /* 179 */ {"var179", "undefined"}, + /* 180 */ {"var180", "undefined"}, + /* 181 */ {"var181", "undefined"}, + /* 182 */ {"var182", "undefined"}, + /* 183 */ {"var183", "undefined"}, + /* 184 */ {"var184", "undefined"}, + /* 185 */ {"var185", "undefined"}, + /* 186 */ {"var186", "undefined"}, + /* 187 */ {"var187", "undefined"}, + /* 188 */ {"var188", "undefined"}, + /* 189 */ {"var189", "undefined"}, + /* 190 */ {"var190", "undefined"}, + /* 191 */ {"var191", "undefined"}, + /* 192 */ {"var192", "undefined"}, + /* 193 */ {"var193", "undefined"}, + /* 194 */ {"var194", "undefined"}, + /* 195 */ {"var195", "undefined"}, + /* 196 */ {"var196", "undefined"}, + /* 197 */ {"var197", "undefined"}, + /* 198 */ {"var198", "undefined"}, + /* 199 */ {"var199", "undefined"}, + /* 200 */ {"MAXSWHI", "Maximum of significant wave height index [(-1 to 1)]"}, + /* 201 */ {"MX2TI", "Maximum temperature at 2 metres index [(-1 to 1)]"}, + /* 202 */ {"MN2TI", "Minimum temperature at 2 metres index [(-1 to 1)]"}, + /* 203 */ {"var203", "undefined"}, + /* 204 */ {"var204", "undefined"}, + /* 205 */ {"var205", "undefined"}, + /* 206 */ {"var206", "undefined"}, + /* 207 */ {"var207", "undefined"}, + /* 208 */ {"var208", "undefined"}, + /* 209 */ {"var209", "undefined"}, + /* 210 */ {"var210", "undefined"}, + /* 211 */ {"var211", "undefined"}, + /* 212 */ {"var212", "undefined"}, + /* 213 */ {"var213", "undefined"}, + /* 214 */ {"var214", "undefined"}, + /* 215 */ {"var215", "undefined"}, + /* 216 */ {"var216", "undefined"}, + /* 217 */ {"var217", "undefined"}, + /* 218 */ {"var218", "undefined"}, + /* 219 */ {"var219", "undefined"}, + /* 220 */ {"var220", "undefined"}, + /* 221 */ {"var221", "undefined"}, + /* 222 */ {"var222", "undefined"}, + /* 223 */ {"var223", "undefined"}, + /* 224 */ {"var224", "undefined"}, + /* 225 */ {"var225", "undefined"}, + /* 226 */ {"var226", "undefined"}, + /* 227 */ {"var227", "undefined"}, + /* 228 */ {"TPI", "Total precipitation index [(-1 to 1)]"}, + /* 229 */ {"var229", "undefined"}, + /* 230 */ {"var230", "undefined"}, + /* 231 */ {"var231", "undefined"}, + /* 232 */ {"var232", "undefined"}, + /* 233 */ {"var233", "undefined"}, + /* 234 */ {"var234", "undefined"}, + /* 235 */ {"var235", "undefined"}, + /* 236 */ {"var236", "undefined"}, + /* 237 */ {"var237", "undefined"}, + /* 238 */ {"var238", "undefined"}, + /* 239 */ {"var239", "undefined"}, + /* 240 */ {"var240", "undefined"}, + /* 241 */ {"var241", "undefined"}, + /* 242 */ {"var242", "undefined"}, + /* 243 */ {"var243", "undefined"}, + /* 244 */ {"var244", "undefined"}, + /* 245 */ {"var245", "undefined"}, + /* 246 */ {"var246", "undefined"}, + /* 247 */ {"var247", "undefined"}, + /* 248 */ {"var248", "undefined"}, + /* 249 */ {"var249", "undefined"}, + /* 250 */ {"var250", "undefined"}, + /* 251 */ {"var251", "undefined"}, + /* 252 */ {"var252", "undefined"}, + /* 253 */ {"var253", "undefined"}, + /* 254 */ {"var254", "undefined"}, + /* 255 */ {"var255", "Indicates a missing value []"}, +}; + +const struct ParmTable parm_table_ecmwf_133[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"2TPLM10", "2m temperature probability less than -10 C [%]"}, + /* 2 */ {"2TPLM5", "2m temperature probability less than -5 C [%]"}, + /* 3 */ {"2TPL0", "2m temperature probability less than 0 C [%]"}, + /* 4 */ {"2TPL5", "2m temperature probability less than 5 C [%]"}, + /* 5 */ {"2TPL10", "2m temperature probability less than 10 C [%]"}, + /* 6 */ {"2TPG25", "2m temperature probability greater than 25 C [%]"}, + /* 7 */ {"2TPG30", "2m temperature probability greater than 30 C [%]"}, + /* 8 */ {"2TPG35", "2m temperature probability greater than 35 C [%]"}, + /* 9 */ {"2TPG40", "2m temperature probability greater than 40 C [%]"}, + /* 10 */ {"2TPG45", "2m temperature probability greater than 45 C [%]"}, + /* 11 */ {"MN2TPLM10", "Minimum 2 metre temperature probability less than -10 C [%]"}, + /* 12 */ {"MN2TPLM5", "Minimum 2 metre temperature probability less than -5 C [%]"}, + /* 13 */ {"MN2TPL0", "Minimum 2 metre temperature probability less than 0 C [%]"}, + /* 14 */ {"MN2TPL5", "Minimum 2 metre temperature probability less than 5 C [%]"}, + /* 15 */ {"MN2TPL10", "Minimum 2 metre temperature probability less than 10 C [%]"}, + /* 16 */ {"MX2TPG25", "Maximum 2 metre temperature probability greater than 25 C [%]"}, + /* 17 */ {"MX2TPG30", "Maximum 2 metre temperature probability greater than 30 C [%]"}, + /* 18 */ {"MX2TPG35", "Maximum 2 metre temperature probability greater than 35 C [%]"}, + /* 19 */ {"MX2TPG40", "Maximum 2 metre temperature probability greater than 40 C [%]"}, + /* 20 */ {"MX2TPG45", "Maximum 2 metre temperature probability greater than 45 C [%]"}, + /* 21 */ {"10SPG10", "10 metre wind speed probability of at least 10 m/s [%]"}, + /* 22 */ {"10SPG15", "10 metre wind speed probability of at least 15 m/s [%]"}, + /* 23 */ {"10SPG20", "10 metre wind speed probability of at least 20 m/s [%]"}, + /* 24 */ {"10SPG35", "10 metre wind speed probability of at least 35 m/s [%]"}, + /* 25 */ {"10SPG50", "10 metre wind speed probability of at least 50 m/s [%]"}, + /* 26 */ {"10GPG20", "10 metre wind gust probability of at least 20 m/s [%]"}, + /* 27 */ {"10GPG35", "10 metre wind gust probability of at least 35 m/s [%]"}, + /* 28 */ {"10GPG50", "10 metre wind gust probability of at least 50 m/s [%]"}, + /* 29 */ {"10GPG75", "10 metre wind gust probability of at least 75 m/s [%]"}, + /* 30 */ {"10GPG100", "10 metre wind gust probability of at least 100 m/s [%]"}, + /* 31 */ {"TPPG1", "Total precipitation probability of at least 1 mm [%]"}, + /* 32 */ {"TPPG5", "Total precipitation probability of at least 5 mm [%]"}, + /* 33 */ {"TPPG10", "Total precipitation probability of at least 10 mm [%]"}, + /* 34 */ {"TPPG20", "Total precipitation probability of at least 20 mm [%]"}, + /* 35 */ {"TPPG40", "Total precipitation probability of at least 40 mm [%]"}, + /* 36 */ {"TPPG60", "Total precipitation probability of at least 60 mm [%]"}, + /* 37 */ {"TPPG80", "Total precipitation probability of at least 80 mm [%]"}, + /* 38 */ {"TPPG100", "Total precipitation probability of at least 100 mm [%]"}, + /* 39 */ {"TPPG150", "Total precipitation probability of at least 150 mm [%]"}, + /* 40 */ {"TPPG200", "Total precipitation probability of at least 200 mm [%]"}, + /* 41 */ {"TPPG300", "Total precipitation probability of at least 300 mm [%]"}, + /* 42 */ {"SFPG1", "Snowfall probability of at least 1 mm [%]"}, + /* 43 */ {"SFPG5", "Snowfall probability of at least 5 mm [%]"}, + /* 44 */ {"SFPG10", "Snowfall probability of at least 10 mm [%]"}, + /* 45 */ {"SFPG20", "Snowfall probability of at least 20 mm [%]"}, + /* 46 */ {"SFPG40", "Snowfall probability of at least 40 mm [%]"}, + /* 47 */ {"SFPG60", "Snowfall probability of at least 60 mm [%]"}, + /* 48 */ {"SFPG80", "Snowfall probability of at least 80 mm [%]"}, + /* 49 */ {"SFPG100", "Snowfall probability of at least 100 mm [%]"}, + /* 50 */ {"SFPG150", "Snowfall probability of at least 150 mm [%]"}, + /* 51 */ {"SFPG200", "Snowfall probability of at least 200 mm [%]"}, + /* 52 */ {"SFPG300", "Snowfall probability of at least 300 mm [%]"}, + /* 53 */ {"TCCPG10", "Total Cloud Cover probability greater than 10% [%]"}, + /* 54 */ {"TCCPG20", "Total Cloud Cover probability greater than 20% [%]"}, + /* 55 */ {"TCCPG30", "Total Cloud Cover probability greater than 30% [%]"}, + /* 56 */ {"TCCPG40", "Total Cloud Cover probability greater than 40% [%]"}, + /* 57 */ {"TCCPG50", "Total Cloud Cover probability greater than 50% [%]"}, + /* 58 */ {"TCCPG60", "Total Cloud Cover probability greater than 60% [%]"}, + /* 59 */ {"TCCPG70", "Total Cloud Cover probability greater than 70% [%]"}, + /* 60 */ {"TCCPG80", "Total Cloud Cover probability greater than 80% [%]"}, + /* 61 */ {"TCCPG90", "Total Cloud Cover probability greater than 90% [%]"}, + /* 62 */ {"TCCPG99", "Total Cloud Cover probability greater than 99% [%]"}, + /* 63 */ {"HCCPG10", "High Cloud Cover probability greater than 10% [%]"}, + /* 64 */ {"HCCPG20", "High Cloud Cover probability greater than 20% [%]"}, + /* 65 */ {"HCCPG30", "High Cloud Cover probability greater than 30% [%]"}, + /* 66 */ {"HCCPG40", "High Cloud Cover probability greater than 40% [%]"}, + /* 67 */ {"HCCPG50", "High Cloud Cover probability greater than 50% [%]"}, + /* 68 */ {"HCCPG60", "High Cloud Cover probability greater than 60% [%]"}, + /* 69 */ {"HCCPG70", "High Cloud Cover probability greater than 70% [%]"}, + /* 70 */ {"HCCPG80", "High Cloud Cover probability greater than 80% [%]"}, + /* 71 */ {"HCCPG90", "High Cloud Cover probability greater than 90% [%]"}, + /* 72 */ {"HCCPG99", "High Cloud Cover probability greater than 99% [%]"}, + /* 73 */ {"MCCPG10", "Medium Cloud Cover probability greater than 10% [%]"}, + /* 74 */ {"MCCPG20", "Medium Cloud Cover probability greater than 20% [%]"}, + /* 75 */ {"MCCPG30", "Medium Cloud Cover probability greater than 30% [%]"}, + /* 76 */ {"MCCPG40", "Medium Cloud Cover probability greater than 40% [%]"}, + /* 77 */ {"MCCPG50", "Medium Cloud Cover probability greater than 50% [%]"}, + /* 78 */ {"MCCPG60", "Medium Cloud Cover probability greater than 60% [%]"}, + /* 79 */ {"MCCPG70", "Medium Cloud Cover probability greater than 70% [%]"}, + /* 80 */ {"MCCPG80", "Medium Cloud Cover probability greater than 80% [%]"}, + /* 81 */ {"MCCPG90", "Medium Cloud Cover probability greater than 90% [%]"}, + /* 82 */ {"MCCPG99", "Medium Cloud Cover probability greater than 99% [%]"}, + /* 83 */ {"LCCPG10", "Low Cloud Cover probability greater than 10% [%]"}, + /* 84 */ {"LCCPG20", "Low Cloud Cover probability greater than 20% [%]"}, + /* 85 */ {"LCCPG30", "Low Cloud Cover probability greater than 30% [%]"}, + /* 86 */ {"LCCPG40", "Low Cloud Cover probability greater than 40% [%]"}, + /* 87 */ {"LCCPG50", "Low Cloud Cover probability greater than 50% [%]"}, + /* 88 */ {"LCCPG60", "Low Cloud Cover probability greater than 60% [%]"}, + /* 89 */ {"LCCPG70", "Low Cloud Cover probability greater than 70% [%]"}, + /* 90 */ {"LCCPG80", "Low Cloud Cover probability greater than 80% [%]"}, + /* 91 */ {"LCCPG90", "Low Cloud Cover probability greater than 90% [%]"}, + /* 92 */ {"LCCPG99", "Low Cloud Cover probability greater than 99% [%]"}, + /* 93 */ {"var93", "undefined"}, + /* 94 */ {"var94", "undefined"}, + /* 95 */ {"var95", "undefined"}, + /* 96 */ {"var96", "undefined"}, + /* 97 */ {"var97", "undefined"}, + /* 98 */ {"var98", "undefined"}, + /* 99 */ {"var99", "undefined"}, + /* 100 */ {"var100", "undefined"}, + /* 101 */ {"var101", "undefined"}, + /* 102 */ {"var102", "undefined"}, + /* 103 */ {"var103", "undefined"}, + /* 104 */ {"var104", "undefined"}, + /* 105 */ {"var105", "undefined"}, + /* 106 */ {"var106", "undefined"}, + /* 107 */ {"var107", "undefined"}, + /* 108 */ {"var108", "undefined"}, + /* 109 */ {"var109", "undefined"}, + /* 110 */ {"var110", "undefined"}, + /* 111 */ {"var111", "undefined"}, + /* 112 */ {"var112", "undefined"}, + /* 113 */ {"var113", "undefined"}, + /* 114 */ {"var114", "undefined"}, + /* 115 */ {"var115", "undefined"}, + /* 116 */ {"var116", "undefined"}, + /* 117 */ {"var117", "undefined"}, + /* 118 */ {"var118", "undefined"}, + /* 119 */ {"var119", "undefined"}, + /* 120 */ {"var120", "undefined"}, + /* 121 */ {"var121", "undefined"}, + /* 122 */ {"var122", "undefined"}, + /* 123 */ {"var123", "undefined"}, + /* 124 */ {"var124", "undefined"}, + /* 125 */ {"var125", "undefined"}, + /* 126 */ {"var126", "undefined"}, + /* 127 */ {"var127", "undefined"}, + /* 128 */ {"var128", "undefined"}, + /* 129 */ {"var129", "undefined"}, + /* 130 */ {"var130", "undefined"}, + /* 131 */ {"var131", "undefined"}, + /* 132 */ {"var132", "undefined"}, + /* 133 */ {"var133", "undefined"}, + /* 134 */ {"var134", "undefined"}, + /* 135 */ {"var135", "undefined"}, + /* 136 */ {"var136", "undefined"}, + /* 137 */ {"var137", "undefined"}, + /* 138 */ {"var138", "undefined"}, + /* 139 */ {"var139", "undefined"}, + /* 140 */ {"var140", "undefined"}, + /* 141 */ {"var141", "undefined"}, + /* 142 */ {"var142", "undefined"}, + /* 143 */ {"var143", "undefined"}, + /* 144 */ {"var144", "undefined"}, + /* 145 */ {"var145", "undefined"}, + /* 146 */ {"var146", "undefined"}, + /* 147 */ {"var147", "undefined"}, + /* 148 */ {"var148", "undefined"}, + /* 149 */ {"var149", "undefined"}, + /* 150 */ {"var150", "undefined"}, + /* 151 */ {"var151", "undefined"}, + /* 152 */ {"var152", "undefined"}, + /* 153 */ {"var153", "undefined"}, + /* 154 */ {"var154", "undefined"}, + /* 155 */ {"var155", "undefined"}, + /* 156 */ {"var156", "undefined"}, + /* 157 */ {"var157", "undefined"}, + /* 158 */ {"var158", "undefined"}, + /* 159 */ {"var159", "undefined"}, + /* 160 */ {"var160", "undefined"}, + /* 161 */ {"var161", "undefined"}, + /* 162 */ {"var162", "undefined"}, + /* 163 */ {"var163", "undefined"}, + /* 164 */ {"var164", "undefined"}, + /* 165 */ {"var165", "undefined"}, + /* 166 */ {"var166", "undefined"}, + /* 167 */ {"var167", "undefined"}, + /* 168 */ {"var168", "undefined"}, + /* 169 */ {"var169", "undefined"}, + /* 170 */ {"var170", "undefined"}, + /* 171 */ {"var171", "undefined"}, + /* 172 */ {"var172", "undefined"}, + /* 173 */ {"var173", "undefined"}, + /* 174 */ {"var174", "undefined"}, + /* 175 */ {"var175", "undefined"}, + /* 176 */ {"var176", "undefined"}, + /* 177 */ {"var177", "undefined"}, + /* 178 */ {"var178", "undefined"}, + /* 179 */ {"var179", "undefined"}, + /* 180 */ {"var180", "undefined"}, + /* 181 */ {"var181", "undefined"}, + /* 182 */ {"var182", "undefined"}, + /* 183 */ {"var183", "undefined"}, + /* 184 */ {"var184", "undefined"}, + /* 185 */ {"var185", "undefined"}, + /* 186 */ {"var186", "undefined"}, + /* 187 */ {"var187", "undefined"}, + /* 188 */ {"var188", "undefined"}, + /* 189 */ {"var189", "undefined"}, + /* 190 */ {"var190", "undefined"}, + /* 191 */ {"var191", "undefined"}, + /* 192 */ {"var192", "undefined"}, + /* 193 */ {"var193", "undefined"}, + /* 194 */ {"var194", "undefined"}, + /* 195 */ {"var195", "undefined"}, + /* 196 */ {"var196", "undefined"}, + /* 197 */ {"var197", "undefined"}, + /* 198 */ {"var198", "undefined"}, + /* 199 */ {"var199", "undefined"}, + /* 200 */ {"var200", "undefined"}, + /* 201 */ {"var201", "undefined"}, + /* 202 */ {"var202", "undefined"}, + /* 203 */ {"var203", "undefined"}, + /* 204 */ {"var204", "undefined"}, + /* 205 */ {"var205", "undefined"}, + /* 206 */ {"var206", "undefined"}, + /* 207 */ {"var207", "undefined"}, + /* 208 */ {"var208", "undefined"}, + /* 209 */ {"var209", "undefined"}, + /* 210 */ {"var210", "undefined"}, + /* 211 */ {"var211", "undefined"}, + /* 212 */ {"var212", "undefined"}, + /* 213 */ {"var213", "undefined"}, + /* 214 */ {"var214", "undefined"}, + /* 215 */ {"var215", "undefined"}, + /* 216 */ {"var216", "undefined"}, + /* 217 */ {"var217", "undefined"}, + /* 218 */ {"var218", "undefined"}, + /* 219 */ {"var219", "undefined"}, + /* 220 */ {"var220", "undefined"}, + /* 221 */ {"var221", "undefined"}, + /* 222 */ {"var222", "undefined"}, + /* 223 */ {"var223", "undefined"}, + /* 224 */ {"var224", "undefined"}, + /* 225 */ {"var225", "undefined"}, + /* 226 */ {"var226", "undefined"}, + /* 227 */ {"var227", "undefined"}, + /* 228 */ {"var228", "undefined"}, + /* 229 */ {"var229", "undefined"}, + /* 230 */ {"var230", "undefined"}, + /* 231 */ {"var231", "undefined"}, + /* 232 */ {"var232", "undefined"}, + /* 233 */ {"var233", "undefined"}, + /* 234 */ {"var234", "undefined"}, + /* 235 */ {"var235", "undefined"}, + /* 236 */ {"var236", "undefined"}, + /* 237 */ {"var237", "undefined"}, + /* 238 */ {"var238", "undefined"}, + /* 239 */ {"var239", "undefined"}, + /* 240 */ {"var240", "undefined"}, + /* 241 */ {"var241", "undefined"}, + /* 242 */ {"var242", "undefined"}, + /* 243 */ {"var243", "undefined"}, + /* 244 */ {"var244", "undefined"}, + /* 245 */ {"var245", "undefined"}, + /* 246 */ {"var246", "undefined"}, + /* 247 */ {"var247", "undefined"}, + /* 248 */ {"var248", "undefined"}, + /* 249 */ {"var249", "undefined"}, + /* 250 */ {"var250", "undefined"}, + /* 251 */ {"var251", "undefined"}, + /* 252 */ {"var252", "undefined"}, + /* 253 */ {"var253", "undefined"}, + /* 254 */ {"var254", "undefined"}, + /* 255 */ {"var255", "undefined"}, +}; + +const struct ParmTable parm_table_ecmwf_140[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"var1", "undefined"}, + /* 2 */ {"var2", "undefined"}, + /* 3 */ {"var3", "undefined"}, + /* 4 */ {"var4", "undefined"}, + /* 5 */ {"var5", "undefined"}, + /* 6 */ {"var6", "undefined"}, + /* 7 */ {"var7", "undefined"}, + /* 8 */ {"var8", "undefined"}, + /* 9 */ {"var9", "undefined"}, + /* 10 */ {"var10", "undefined"}, + /* 11 */ {"var11", "undefined"}, + /* 12 */ {"var12", "undefined"}, + /* 13 */ {"var13", "undefined"}, + /* 14 */ {"var14", "undefined"}, + /* 15 */ {"var15", "undefined"}, + /* 16 */ {"var16", "undefined"}, + /* 17 */ {"var17", "undefined"}, + /* 18 */ {"var18", "undefined"}, + /* 19 */ {"var19", "undefined"}, + /* 20 */ {"var20", "undefined"}, + /* 21 */ {"var21", "undefined"}, + /* 22 */ {"var22", "undefined"}, + /* 23 */ {"var23", "undefined"}, + /* 24 */ {"var24", "undefined"}, + /* 25 */ {"var25", "undefined"}, + /* 26 */ {"var26", "undefined"}, + /* 27 */ {"var27", "undefined"}, + /* 28 */ {"var28", "undefined"}, + /* 29 */ {"var29", "undefined"}, + /* 30 */ {"var30", "undefined"}, + /* 31 */ {"var31", "undefined"}, + /* 32 */ {"var32", "undefined"}, + /* 33 */ {"var33", "undefined"}, + /* 34 */ {"var34", "undefined"}, + /* 35 */ {"var35", "undefined"}, + /* 36 */ {"var36", "undefined"}, + /* 37 */ {"var37", "undefined"}, + /* 38 */ {"var38", "undefined"}, + /* 39 */ {"var39", "undefined"}, + /* 40 */ {"var40", "undefined"}, + /* 41 */ {"var41", "undefined"}, + /* 42 */ {"var42", "undefined"}, + /* 43 */ {"var43", "undefined"}, + /* 44 */ {"var44", "undefined"}, + /* 45 */ {"var45", "undefined"}, + /* 46 */ {"var46", "undefined"}, + /* 47 */ {"var47", "undefined"}, + /* 48 */ {"var48", "undefined"}, + /* 49 */ {"var49", "undefined"}, + /* 50 */ {"var50", "undefined"}, + /* 51 */ {"var51", "undefined"}, + /* 52 */ {"var52", "undefined"}, + /* 53 */ {"var53", "undefined"}, + /* 54 */ {"var54", "undefined"}, + /* 55 */ {"var55", "undefined"}, + /* 56 */ {"var56", "undefined"}, + /* 57 */ {"var57", "undefined"}, + /* 58 */ {"var58", "undefined"}, + /* 59 */ {"var59", "undefined"}, + /* 60 */ {"var60", "undefined"}, + /* 61 */ {"var61", "undefined"}, + /* 62 */ {"var62", "undefined"}, + /* 63 */ {"var63", "undefined"}, + /* 64 */ {"var64", "undefined"}, + /* 65 */ {"var65", "undefined"}, + /* 66 */ {"var66", "undefined"}, + /* 67 */ {"var67", "undefined"}, + /* 68 */ {"var68", "undefined"}, + /* 69 */ {"var69", "undefined"}, + /* 70 */ {"var70", "undefined"}, + /* 71 */ {"var71", "undefined"}, + /* 72 */ {"var72", "undefined"}, + /* 73 */ {"var73", "undefined"}, + /* 74 */ {"var74", "undefined"}, + /* 75 */ {"var75", "undefined"}, + /* 76 */ {"var76", "undefined"}, + /* 77 */ {"var77", "undefined"}, + /* 78 */ {"var78", "undefined"}, + /* 79 */ {"var79", "undefined"}, + /* 80 */ {"var80", "undefined"}, + /* 81 */ {"var81", "undefined"}, + /* 82 */ {"var82", "undefined"}, + /* 83 */ {"var83", "undefined"}, + /* 84 */ {"var84", "undefined"}, + /* 85 */ {"var85", "undefined"}, + /* 86 */ {"var86", "undefined"}, + /* 87 */ {"var87", "undefined"}, + /* 88 */ {"var88", "undefined"}, + /* 89 */ {"var89", "undefined"}, + /* 90 */ {"var90", "undefined"}, + /* 91 */ {"var91", "undefined"}, + /* 92 */ {"var92", "undefined"}, + /* 93 */ {"var93", "undefined"}, + /* 94 */ {"var94", "undefined"}, + /* 95 */ {"var95", "undefined"}, + /* 96 */ {"var96", "undefined"}, + /* 97 */ {"var97", "undefined"}, + /* 98 */ {"var98", "undefined"}, + /* 99 */ {"var99", "undefined"}, + /* 100 */ {"var100", "undefined"}, + /* 101 */ {"var101", "undefined"}, + /* 102 */ {"var102", "undefined"}, + /* 103 */ {"var103", "undefined"}, + /* 104 */ {"var104", "undefined"}, + /* 105 */ {"var105", "undefined"}, + /* 106 */ {"var106", "undefined"}, + /* 107 */ {"var107", "undefined"}, + /* 108 */ {"var108", "undefined"}, + /* 109 */ {"var109", "undefined"}, + /* 110 */ {"var110", "undefined"}, + /* 111 */ {"var111", "undefined"}, + /* 112 */ {"var112", "undefined"}, + /* 113 */ {"var113", "undefined"}, + /* 114 */ {"var114", "undefined"}, + /* 115 */ {"var115", "undefined"}, + /* 116 */ {"var116", "undefined"}, + /* 117 */ {"var117", "undefined"}, + /* 118 */ {"var118", "undefined"}, + /* 119 */ {"var119", "undefined"}, + /* 120 */ {"var120", "undefined"}, + /* 121 */ {"var121", "undefined"}, + /* 122 */ {"var122", "undefined"}, + /* 123 */ {"var123", "undefined"}, + /* 124 */ {"var124", "undefined"}, + /* 125 */ {"var125", "undefined"}, + /* 126 */ {"var126", "undefined"}, + /* 127 */ {"var127", "undefined"}, + /* 128 */ {"var128", "undefined"}, + /* 129 */ {"var129", "undefined"}, + /* 130 */ {"var130", "undefined"}, + /* 131 */ {"var131", "undefined"}, + /* 132 */ {"var132", "undefined"}, + /* 133 */ {"var133", "undefined"}, + /* 134 */ {"var134", "undefined"}, + /* 135 */ {"var135", "undefined"}, + /* 136 */ {"var136", "undefined"}, + /* 137 */ {"var137", "undefined"}, + /* 138 */ {"var138", "undefined"}, + /* 139 */ {"var139", "undefined"}, + /* 140 */ {"var140", "undefined"}, + /* 141 */ {"var141", "undefined"}, + /* 142 */ {"var142", "undefined"}, + /* 143 */ {"var143", "undefined"}, + /* 144 */ {"var144", "undefined"}, + /* 145 */ {"var145", "undefined"}, + /* 146 */ {"var146", "undefined"}, + /* 147 */ {"var147", "undefined"}, + /* 148 */ {"var148", "undefined"}, + /* 149 */ {"var149", "undefined"}, + /* 150 */ {"var150", "undefined"}, + /* 151 */ {"var151", "undefined"}, + /* 152 */ {"var152", "undefined"}, + /* 153 */ {"var153", "undefined"}, + /* 154 */ {"var154", "undefined"}, + /* 155 */ {"var155", "undefined"}, + /* 156 */ {"var156", "undefined"}, + /* 157 */ {"var157", "undefined"}, + /* 158 */ {"var158", "undefined"}, + /* 159 */ {"var159", "undefined"}, + /* 160 */ {"var160", "undefined"}, + /* 161 */ {"var161", "undefined"}, + /* 162 */ {"var162", "undefined"}, + /* 163 */ {"var163", "undefined"}, + /* 164 */ {"var164", "undefined"}, + /* 165 */ {"var165", "undefined"}, + /* 166 */ {"var166", "undefined"}, + /* 167 */ {"var167", "undefined"}, + /* 168 */ {"var168", "undefined"}, + /* 169 */ {"var169", "undefined"}, + /* 170 */ {"var170", "undefined"}, + /* 171 */ {"var171", "undefined"}, + /* 172 */ {"var172", "undefined"}, + /* 173 */ {"var173", "undefined"}, + /* 174 */ {"var174", "undefined"}, + /* 175 */ {"var175", "undefined"}, + /* 176 */ {"var176", "undefined"}, + /* 177 */ {"var177", "undefined"}, + /* 178 */ {"var178", "undefined"}, + /* 179 */ {"var179", "undefined"}, + /* 180 */ {"var180", "undefined"}, + /* 181 */ {"var181", "undefined"}, + /* 182 */ {"var182", "undefined"}, + /* 183 */ {"var183", "undefined"}, + /* 184 */ {"var184", "undefined"}, + /* 185 */ {"var185", "undefined"}, + /* 186 */ {"var186", "undefined"}, + /* 187 */ {"var187", "undefined"}, + /* 188 */ {"var188", "undefined"}, + /* 189 */ {"var189", "undefined"}, + /* 190 */ {"var190", "undefined"}, + /* 191 */ {"var191", "undefined"}, + /* 192 */ {"var192", "undefined"}, + /* 193 */ {"var193", "undefined"}, + /* 194 */ {"var194", "undefined"}, + /* 195 */ {"var195", "undefined"}, + /* 196 */ {"var196", "undefined"}, + /* 197 */ {"var197", "undefined"}, + /* 198 */ {"var198", "undefined"}, + /* 199 */ {"var199", "undefined"}, + /* 200 */ {"MAXSWH", "Maximum of significant wave height [m]"}, + /* 201 */ {"var201", "undefined"}, + /* 202 */ {"var202", "undefined"}, + /* 203 */ {"var203", "undefined"}, + /* 204 */ {"var204", "undefined"}, + /* 205 */ {"var205", "undefined"}, + /* 206 */ {"var206", "undefined"}, + /* 207 */ {"var207", "undefined"}, + /* 208 */ {"var208", "undefined"}, + /* 209 */ {"var209", "undefined"}, + /* 210 */ {"var210", "undefined"}, + /* 211 */ {"var211", "undefined"}, + /* 212 */ {"var212", "undefined"}, + /* 213 */ {"var213", "undefined"}, + /* 214 */ {"var214", "undefined"}, + /* 215 */ {"UST", "U-component stokes drift [m s**-1]"}, + /* 216 */ {"VST", "V-component stokes drift [m s**-1]"}, + /* 217 */ {"TMAX", "Period corresponding to maximum individual wave height [s]"}, + /* 218 */ {"HMAX", "Maximum individual wave height [m]"}, + /* 219 */ {"WMB", "Model bathymetry [m]"}, + /* 220 */ {"MP1", "Mean wave period based on first moment [s]"}, + /* 221 */ {"MP2", "Mean wave period based on second moment [s]"}, + /* 222 */ {"WDW", "Wave spectral directional width []"}, + /* 223 */ {"P1WW", "Mean wave period based on first moment for wind waves [s]"}, + /* 224 */ {"P2WW", "Mean wave period based on second moment for wind waves [s]"}, + /* 225 */ {"DWWW", "Wave spectral directional width for wind waves []"}, + /* 226 */ {"P1PS", "Mean wave period based on first moment for swell [s]"}, + /* 227 */ {"P2PS", "Mean wave period based on second moment for swell [s]"}, + /* 228 */ {"DWPS", "Wave spectral directional width for swell []"}, + /* 229 */ {"SWH", "Significant wave height [m]"}, + /* 230 */ {"MWD", "Mean wave direction [degrees]"}, + /* 231 */ {"PP1D", "Peak period of 1D spectra [s]"}, + /* 232 */ {"MWP", "Mean wave period [s]"}, + /* 233 */ {"CDWW", "Coefficient of drag with waves []"}, + /* 234 */ {"SHWW", "Significant height of wind waves [m]"}, + /* 235 */ {"MDWW", "Mean direction of wind waves [degrees]"}, + /* 236 */ {"MPWW", "Mean period of wind waves [s]"}, + /* 237 */ {"SHTS", "Significant height of total swell [m]"}, + /* 238 */ {"MDTS", "Mean direction of total swell [degrees]"}, + /* 239 */ {"MPTS", "Mean period of total swell [s]"}, + /* 240 */ {"SDHS", "Standard deviation wave height [m]"}, + /* 241 */ {"MU10", "Mean of 10 metre wind speed [m s**-1]"}, + /* 242 */ {"MDWI", "Mean wind direction [degrees]"}, + /* 243 */ {"SDU", "Standard deviation of 10 metre wind speed [m s**-1]"}, + /* 244 */ {"MSQS", "Mean square slope of waves [dimensionless]"}, + /* 245 */ {"WIND", "10 metre wind speed [m s**-1]"}, + /* 246 */ {"AWH", "Altimeter wave height [m]"}, + /* 247 */ {"ACWH", "Altimeter corrected wave height [m]"}, + /* 248 */ {"ARRC", "Altimeter range relative correction []"}, + /* 249 */ {"DWI", "10 metre wind direction [degrees]"}, + /* 250 */ {"2DSP", "2D wave spectra (multiple) [m**2 s radian**-1]"}, + /* 251 */ {"2DFD", "2D wave spectra (single) [m**2 s radian**-1]"}, + /* 252 */ {"WSK", "Wave spectral kurtosis []"}, + /* 253 */ {"BFI", "Benjamin-Feir index []"}, + /* 254 */ {"WSP", "Wave spectral peakedness [s**-1]"}, + /* 255 */ {"var255", "Indicates a missing value []"}, +}; + +const struct ParmTable parm_table_ecmwf_150[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"var1", "undefined"}, + /* 2 */ {"var2", "undefined"}, + /* 3 */ {"var3", "undefined"}, + /* 4 */ {"var4", "undefined"}, + /* 5 */ {"var5", "undefined"}, + /* 6 */ {"var6", "undefined"}, + /* 7 */ {"var7", "undefined"}, + /* 8 */ {"var8", "undefined"}, + /* 9 */ {"var9", "undefined"}, + /* 10 */ {"var10", "undefined"}, + /* 11 */ {"var11", "undefined"}, + /* 12 */ {"var12", "undefined"}, + /* 13 */ {"var13", "undefined"}, + /* 14 */ {"var14", "undefined"}, + /* 15 */ {"var15", "undefined"}, + /* 16 */ {"var16", "undefined"}, + /* 17 */ {"var17", "undefined"}, + /* 18 */ {"var18", "undefined"}, + /* 19 */ {"var19", "undefined"}, + /* 20 */ {"var20", "undefined"}, + /* 21 */ {"var21", "undefined"}, + /* 22 */ {"var22", "undefined"}, + /* 23 */ {"var23", "undefined"}, + /* 24 */ {"var24", "undefined"}, + /* 25 */ {"var25", "undefined"}, + /* 26 */ {"var26", "undefined"}, + /* 27 */ {"var27", "undefined"}, + /* 28 */ {"var28", "undefined"}, + /* 29 */ {"var29", "undefined"}, + /* 30 */ {"var30", "undefined"}, + /* 31 */ {"var31", "undefined"}, + /* 32 */ {"var32", "undefined"}, + /* 33 */ {"var33", "undefined"}, + /* 34 */ {"var34", "undefined"}, + /* 35 */ {"var35", "undefined"}, + /* 36 */ {"var36", "undefined"}, + /* 37 */ {"var37", "undefined"}, + /* 38 */ {"var38", "undefined"}, + /* 39 */ {"var39", "undefined"}, + /* 40 */ {"var40", "undefined"}, + /* 41 */ {"var41", "undefined"}, + /* 42 */ {"var42", "undefined"}, + /* 43 */ {"var43", "undefined"}, + /* 44 */ {"var44", "undefined"}, + /* 45 */ {"var45", "undefined"}, + /* 46 */ {"var46", "undefined"}, + /* 47 */ {"var47", "undefined"}, + /* 48 */ {"var48", "undefined"}, + /* 49 */ {"var49", "undefined"}, + /* 50 */ {"var50", "undefined"}, + /* 51 */ {"var51", "undefined"}, + /* 52 */ {"var52", "undefined"}, + /* 53 */ {"var53", "undefined"}, + /* 54 */ {"var54", "undefined"}, + /* 55 */ {"var55", "undefined"}, + /* 56 */ {"var56", "undefined"}, + /* 57 */ {"var57", "undefined"}, + /* 58 */ {"var58", "undefined"}, + /* 59 */ {"var59", "undefined"}, + /* 60 */ {"var60", "undefined"}, + /* 61 */ {"var61", "undefined"}, + /* 62 */ {"var62", "undefined"}, + /* 63 */ {"var63", "undefined"}, + /* 64 */ {"var64", "undefined"}, + /* 65 */ {"var65", "undefined"}, + /* 66 */ {"var66", "undefined"}, + /* 67 */ {"var67", "undefined"}, + /* 68 */ {"var68", "undefined"}, + /* 69 */ {"var69", "undefined"}, + /* 70 */ {"var70", "undefined"}, + /* 71 */ {"var71", "undefined"}, + /* 72 */ {"var72", "undefined"}, + /* 73 */ {"var73", "undefined"}, + /* 74 */ {"var74", "undefined"}, + /* 75 */ {"var75", "undefined"}, + /* 76 */ {"var76", "undefined"}, + /* 77 */ {"var77", "undefined"}, + /* 78 */ {"var78", "undefined"}, + /* 79 */ {"var79", "undefined"}, + /* 80 */ {"var80", "undefined"}, + /* 81 */ {"var81", "undefined"}, + /* 82 */ {"var82", "undefined"}, + /* 83 */ {"var83", "undefined"}, + /* 84 */ {"var84", "undefined"}, + /* 85 */ {"var85", "undefined"}, + /* 86 */ {"var86", "undefined"}, + /* 87 */ {"var87", "undefined"}, + /* 88 */ {"var88", "undefined"}, + /* 89 */ {"var89", "undefined"}, + /* 90 */ {"var90", "undefined"}, + /* 91 */ {"var91", "undefined"}, + /* 92 */ {"var92", "undefined"}, + /* 93 */ {"var93", "undefined"}, + /* 94 */ {"var94", "undefined"}, + /* 95 */ {"var95", "undefined"}, + /* 96 */ {"var96", "undefined"}, + /* 97 */ {"var97", "undefined"}, + /* 98 */ {"var98", "undefined"}, + /* 99 */ {"var99", "undefined"}, + /* 100 */ {"var100", "undefined"}, + /* 101 */ {"var101", "undefined"}, + /* 102 */ {"var102", "undefined"}, + /* 103 */ {"var103", "undefined"}, + /* 104 */ {"var104", "undefined"}, + /* 105 */ {"var105", "undefined"}, + /* 106 */ {"var106", "undefined"}, + /* 107 */ {"var107", "undefined"}, + /* 108 */ {"var108", "undefined"}, + /* 109 */ {"var109", "undefined"}, + /* 110 */ {"var110", "undefined"}, + /* 111 */ {"var111", "undefined"}, + /* 112 */ {"var112", "undefined"}, + /* 113 */ {"var113", "undefined"}, + /* 114 */ {"var114", "undefined"}, + /* 115 */ {"var115", "undefined"}, + /* 116 */ {"var116", "undefined"}, + /* 117 */ {"var117", "undefined"}, + /* 118 */ {"var118", "undefined"}, + /* 119 */ {"var119", "undefined"}, + /* 120 */ {"var120", "undefined"}, + /* 121 */ {"var121", "undefined"}, + /* 122 */ {"var122", "undefined"}, + /* 123 */ {"var123", "undefined"}, + /* 124 */ {"var124", "undefined"}, + /* 125 */ {"var125", "undefined"}, + /* 126 */ {"var126", "undefined"}, + /* 127 */ {"var127", "undefined"}, + /* 128 */ {"var128", "undefined"}, + /* 129 */ {"var129", "Ocean potential temperature [deg C]"}, + /* 130 */ {"var130", "Ocean salinity [psu]"}, + /* 131 */ {"var131", "Ocean potential density [kg m**-3 -1000]"}, + /* 132 */ {"var132", "undefined"}, + /* 133 */ {"var133", "Ocean U velocity [m s**-1]"}, + /* 134 */ {"var134", "Ocean V velocity [m s**-1]"}, + /* 135 */ {"var135", "Ocean W velocity [m s**-1]"}, + /* 136 */ {"var136", "undefined"}, + /* 137 */ {"var137", "Richardson number []"}, + /* 138 */ {"var138", "undefined"}, + /* 139 */ {"var139", "U*V product [m s**-2]"}, + /* 140 */ {"var140", "U*T product [m s**-1 deg C]"}, + /* 141 */ {"var141", "V*T product [m s**-1 deg C]"}, + /* 142 */ {"var142", "U*U product [m s**-2]"}, + /* 143 */ {"var143", "V*V product [m s**-2]"}, + /* 144 */ {"var144", "UV - U~V~ [m s**-2]"}, + /* 145 */ {"var145", "UT - U~T~ [m s**-1 deg C]"}, + /* 146 */ {"var146", "VT - V~T~ [m s**-1 deg C]"}, + /* 147 */ {"var147", "UU - U~U~ [m s**-2]"}, + /* 148 */ {"var148", "VV - V~V~ [m s**-2]"}, + /* 149 */ {"var149", "undefined"}, + /* 150 */ {"var150", "undefined"}, + /* 151 */ {"var151", "undefined"}, + /* 152 */ {"var152", "Sea level [m]"}, + /* 153 */ {"var153", "Barotropic stream function []"}, + /* 154 */ {"var154", "Mixed layer depth [m]"}, + /* 155 */ {"var155", "Depth [m]"}, + /* 156 */ {"var156", "undefined"}, + /* 157 */ {"var157", "undefined"}, + /* 158 */ {"var158", "undefined"}, + /* 159 */ {"var159", "undefined"}, + /* 160 */ {"var160", "undefined"}, + /* 161 */ {"var161", "undefined"}, + /* 162 */ {"var162", "undefined"}, + /* 163 */ {"var163", "undefined"}, + /* 164 */ {"var164", "undefined"}, + /* 165 */ {"var165", "undefined"}, + /* 166 */ {"var166", "undefined"}, + /* 167 */ {"var167", "undefined"}, + /* 168 */ {"var168", "U stress [Pa]"}, + /* 169 */ {"var169", "V stress [Pa]"}, + /* 170 */ {"var170", "Turbulent kinetic energy input []"}, + /* 171 */ {"var171", "Net surface heat flux []"}, + /* 172 */ {"var172", "Surface solar radiation []"}, + /* 173 */ {"var173", "P-E []"}, + /* 174 */ {"var174", "undefined"}, + /* 175 */ {"var175", "undefined"}, + /* 176 */ {"var176", "undefined"}, + /* 177 */ {"var177", "undefined"}, + /* 178 */ {"var178", "undefined"}, + /* 179 */ {"var179", "undefined"}, + /* 180 */ {"var180", "Diagnosed sea surface temperature error [deg C]"}, + /* 181 */ {"var181", "Heat flux correction [W m**-2]"}, + /* 182 */ {"var182", "Observed sea surface temperature [deg C]"}, + /* 183 */ {"var183", "Observed heat flux [W m**-2]"}, + /* 184 */ {"var184", "undefined"}, + /* 185 */ {"var185", "undefined"}, + /* 186 */ {"var186", "undefined"}, + /* 187 */ {"var187", "undefined"}, + /* 188 */ {"var188", "undefined"}, + /* 189 */ {"var189", "undefined"}, + /* 190 */ {"var190", "undefined"}, + /* 191 */ {"var191", "undefined"}, + /* 192 */ {"var192", "undefined"}, + /* 193 */ {"var193", "undefined"}, + /* 194 */ {"var194", "undefined"}, + /* 195 */ {"var195", "undefined"}, + /* 196 */ {"var196", "undefined"}, + /* 197 */ {"var197", "undefined"}, + /* 198 */ {"var198", "undefined"}, + /* 199 */ {"var199", "undefined"}, + /* 200 */ {"var200", "undefined"}, + /* 201 */ {"var201", "undefined"}, + /* 202 */ {"var202", "undefined"}, + /* 203 */ {"var203", "undefined"}, + /* 204 */ {"var204", "undefined"}, + /* 205 */ {"var205", "undefined"}, + /* 206 */ {"var206", "undefined"}, + /* 207 */ {"var207", "undefined"}, + /* 208 */ {"var208", "undefined"}, + /* 209 */ {"var209", "undefined"}, + /* 210 */ {"var210", "undefined"}, + /* 211 */ {"var211", "undefined"}, + /* 212 */ {"var212", "undefined"}, + /* 213 */ {"var213", "undefined"}, + /* 214 */ {"var214", "undefined"}, + /* 215 */ {"var215", "undefined"}, + /* 216 */ {"var216", "undefined"}, + /* 217 */ {"var217", "undefined"}, + /* 218 */ {"var218", "undefined"}, + /* 219 */ {"var219", "undefined"}, + /* 220 */ {"var220", "undefined"}, + /* 221 */ {"var221", "undefined"}, + /* 222 */ {"var222", "undefined"}, + /* 223 */ {"var223", "undefined"}, + /* 224 */ {"var224", "undefined"}, + /* 225 */ {"var225", "undefined"}, + /* 226 */ {"var226", "undefined"}, + /* 227 */ {"var227", "undefined"}, + /* 228 */ {"var228", "undefined"}, + /* 229 */ {"var229", "undefined"}, + /* 230 */ {"var230", "undefined"}, + /* 231 */ {"var231", "undefined"}, + /* 232 */ {"var232", "undefined"}, + /* 233 */ {"var233", "undefined"}, + /* 234 */ {"var234", "undefined"}, + /* 235 */ {"var235", "undefined"}, + /* 236 */ {"var236", "undefined"}, + /* 237 */ {"var237", "undefined"}, + /* 238 */ {"var238", "undefined"}, + /* 239 */ {"var239", "undefined"}, + /* 240 */ {"var240", "undefined"}, + /* 241 */ {"var241", "undefined"}, + /* 242 */ {"var242", "undefined"}, + /* 243 */ {"var243", "undefined"}, + /* 244 */ {"var244", "undefined"}, + /* 245 */ {"var245", "undefined"}, + /* 246 */ {"var246", "undefined"}, + /* 247 */ {"var247", "undefined"}, + /* 248 */ {"var248", "undefined"}, + /* 249 */ {"var249", "undefined"}, + /* 250 */ {"var250", "undefined"}, + /* 251 */ {"var251", "undefined"}, + /* 252 */ {"var252", "undefined"}, + /* 253 */ {"var253", "undefined"}, + /* 254 */ {"var254", "undefined"}, + /* 255 */ {"var255", "Indicates a missing value []"}, +}; + +const struct ParmTable parm_table_ecmwf_151[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"var1", "undefined"}, + /* 2 */ {"var2", "undefined"}, + /* 3 */ {"var3", "undefined"}, + /* 4 */ {"var4", "undefined"}, + /* 5 */ {"var5", "undefined"}, + /* 6 */ {"var6", "undefined"}, + /* 7 */ {"var7", "undefined"}, + /* 8 */ {"var8", "undefined"}, + /* 9 */ {"var9", "undefined"}, + /* 10 */ {"var10", "undefined"}, + /* 11 */ {"var11", "undefined"}, + /* 12 */ {"var12", "undefined"}, + /* 13 */ {"var13", "undefined"}, + /* 14 */ {"var14", "undefined"}, + /* 15 */ {"var15", "undefined"}, + /* 16 */ {"var16", "undefined"}, + /* 17 */ {"var17", "undefined"}, + /* 18 */ {"var18", "undefined"}, + /* 19 */ {"var19", "undefined"}, + /* 20 */ {"var20", "undefined"}, + /* 21 */ {"var21", "undefined"}, + /* 22 */ {"var22", "undefined"}, + /* 23 */ {"var23", "undefined"}, + /* 24 */ {"var24", "undefined"}, + /* 25 */ {"var25", "undefined"}, + /* 26 */ {"var26", "undefined"}, + /* 27 */ {"var27", "undefined"}, + /* 28 */ {"var28", "undefined"}, + /* 29 */ {"var29", "undefined"}, + /* 30 */ {"var30", "undefined"}, + /* 31 */ {"var31", "undefined"}, + /* 32 */ {"var32", "undefined"}, + /* 33 */ {"var33", "undefined"}, + /* 34 */ {"var34", "undefined"}, + /* 35 */ {"var35", "undefined"}, + /* 36 */ {"var36", "undefined"}, + /* 37 */ {"var37", "undefined"}, + /* 38 */ {"var38", "undefined"}, + /* 39 */ {"var39", "undefined"}, + /* 40 */ {"var40", "undefined"}, + /* 41 */ {"var41", "undefined"}, + /* 42 */ {"var42", "undefined"}, + /* 43 */ {"var43", "undefined"}, + /* 44 */ {"var44", "undefined"}, + /* 45 */ {"var45", "undefined"}, + /* 46 */ {"var46", "undefined"}, + /* 47 */ {"var47", "undefined"}, + /* 48 */ {"var48", "undefined"}, + /* 49 */ {"var49", "undefined"}, + /* 50 */ {"var50", "undefined"}, + /* 51 */ {"var51", "undefined"}, + /* 52 */ {"var52", "undefined"}, + /* 53 */ {"var53", "undefined"}, + /* 54 */ {"var54", "undefined"}, + /* 55 */ {"var55", "undefined"}, + /* 56 */ {"var56", "undefined"}, + /* 57 */ {"var57", "undefined"}, + /* 58 */ {"var58", "undefined"}, + /* 59 */ {"var59", "undefined"}, + /* 60 */ {"var60", "undefined"}, + /* 61 */ {"var61", "undefined"}, + /* 62 */ {"var62", "undefined"}, + /* 63 */ {"var63", "undefined"}, + /* 64 */ {"var64", "undefined"}, + /* 65 */ {"var65", "undefined"}, + /* 66 */ {"var66", "undefined"}, + /* 67 */ {"var67", "undefined"}, + /* 68 */ {"var68", "undefined"}, + /* 69 */ {"var69", "undefined"}, + /* 70 */ {"var70", "undefined"}, + /* 71 */ {"var71", "undefined"}, + /* 72 */ {"var72", "undefined"}, + /* 73 */ {"var73", "undefined"}, + /* 74 */ {"var74", "undefined"}, + /* 75 */ {"var75", "undefined"}, + /* 76 */ {"var76", "undefined"}, + /* 77 */ {"var77", "undefined"}, + /* 78 */ {"var78", "undefined"}, + /* 79 */ {"var79", "undefined"}, + /* 80 */ {"var80", "undefined"}, + /* 81 */ {"var81", "undefined"}, + /* 82 */ {"var82", "undefined"}, + /* 83 */ {"var83", "undefined"}, + /* 84 */ {"var84", "undefined"}, + /* 85 */ {"var85", "undefined"}, + /* 86 */ {"var86", "undefined"}, + /* 87 */ {"var87", "undefined"}, + /* 88 */ {"var88", "undefined"}, + /* 89 */ {"var89", "undefined"}, + /* 90 */ {"var90", "undefined"}, + /* 91 */ {"var91", "undefined"}, + /* 92 */ {"var92", "undefined"}, + /* 93 */ {"var93", "undefined"}, + /* 94 */ {"var94", "undefined"}, + /* 95 */ {"var95", "undefined"}, + /* 96 */ {"var96", "undefined"}, + /* 97 */ {"var97", "undefined"}, + /* 98 */ {"var98", "undefined"}, + /* 99 */ {"var99", "undefined"}, + /* 100 */ {"var100", "undefined"}, + /* 101 */ {"var101", "undefined"}, + /* 102 */ {"var102", "undefined"}, + /* 103 */ {"var103", "undefined"}, + /* 104 */ {"var104", "undefined"}, + /* 105 */ {"var105", "undefined"}, + /* 106 */ {"var106", "undefined"}, + /* 107 */ {"var107", "undefined"}, + /* 108 */ {"var108", "undefined"}, + /* 109 */ {"var109", "undefined"}, + /* 110 */ {"var110", "undefined"}, + /* 111 */ {"var111", "undefined"}, + /* 112 */ {"var112", "undefined"}, + /* 113 */ {"var113", "undefined"}, + /* 114 */ {"var114", "undefined"}, + /* 115 */ {"var115", "undefined"}, + /* 116 */ {"var116", "undefined"}, + /* 117 */ {"var117", "undefined"}, + /* 118 */ {"var118", "undefined"}, + /* 119 */ {"var119", "undefined"}, + /* 120 */ {"var120", "undefined"}, + /* 121 */ {"var121", "undefined"}, + /* 122 */ {"var122", "undefined"}, + /* 123 */ {"var123", "undefined"}, + /* 124 */ {"var124", "undefined"}, + /* 125 */ {"var125", "undefined"}, + /* 126 */ {"var126", "undefined"}, + /* 127 */ {"var127", "undefined"}, + /* 128 */ {"var128", "In situ Temperature [deg C]"}, + /* 129 */ {"OCPT", "Ocean potential temperature [deg C]"}, + /* 130 */ {"S", "Salinity [psu]"}, + /* 131 */ {"OCU", "Ocean current zonal component [m s**-1]"}, + /* 132 */ {"OCV", "Ocean current meridional component [m s**-1]"}, + /* 133 */ {"OCW", "Ocean current vertical component [m s**-1]"}, + /* 134 */ {"MST", "Modulus of strain rate tensor [s**-1]"}, + /* 135 */ {"VVS", "Vertical viscosity [m**2 s**-1]"}, + /* 136 */ {"VDF", "Vertical diffusivity [m**2 s**-1]"}, + /* 137 */ {"DEP", "Bottom level Depth [m]"}, + /* 138 */ {"STH", "Sigma-theta [kg m**-3]"}, + /* 139 */ {"RN", "Richardson number []"}, + /* 140 */ {"UV", "UV product [m**2 s**-2]"}, + /* 141 */ {"UT", "UT product [m s**-1 degC]"}, + /* 142 */ {"VT", "VT product [m s**-1 deg C]"}, + /* 143 */ {"UU", "UU product [m**2 s**-2]"}, + /* 144 */ {"VV", "VV product [m**2 s**-2]"}, + /* 145 */ {"SL", "Sea level [m]"}, + /* 146 */ {"SL_1", "Sea level previous timestep [m]"}, + /* 147 */ {"BSF", "Barotropic stream function [m**3 s**-1]"}, + /* 148 */ {"MLD", "Mixed layer depth [m]"}, + /* 149 */ {"BTP", "Bottom Pressure (equivalent height) [m]"}, + /* 150 */ {"SH", "Steric height [m]"}, + /* 151 */ {"CRL", "Curl of Wind Stress [N m**-3]"}, + /* 152 */ {"var152", "Divergence of wind stress [Nm**-3]"}, + /* 153 */ {"TAX", "U stress [N m**-2]"}, + /* 154 */ {"TAY", "V stress [N m**-2]"}, + /* 155 */ {"TKI", "Turbulent kinetic energy input [W m**-2]"}, + /* 156 */ {"NSF", "Net surface heat flux [W m**-2]"}, + /* 157 */ {"ASR", "Absorbed solar radiation [W m**-2]"}, + /* 158 */ {"PME", "Precipitation - evaporation [m s**-1]"}, + /* 159 */ {"SST", "Specified sea surface temperature [deg C]"}, + /* 160 */ {"SHF", "Specified surface heat flux [W m**-2]"}, + /* 161 */ {"DTE", "Diagnosed sea surface temperature error [deg C]"}, + /* 162 */ {"HFC", "Heat flux correction [W m**-2]"}, + /* 163 */ {"20D", "20 degrees isotherm depth [m]"}, + /* 164 */ {"TAV300", "Average potential temperature in the upper 300m [degrees C]"}, + /* 165 */ {"UBA1", "Vertically integrated zonal velocity (previous time step) [m**2 s**-1]"}, + /* 166 */ {"VBA1", "Vertically Integrated meridional velocity (previous time step) [m**2 s**-1]"}, + /* 167 */ {"ZTR", "Vertically integrated zonal volume transport [m**2 s**-1]"}, + /* 168 */ {"MTR", "Vertically integrated meridional volume transport [m**2 s**-1]"}, + /* 169 */ {"ZHT", "Vertically integrated zonal heat transport [J m**-1 s**-1]"}, + /* 170 */ {"MHT", "Vertically integrated meridional heat transport [J m**-1 s**-1]"}, + /* 171 */ {"UMAX", "U velocity maximum [m s**-1]"}, + /* 172 */ {"DUMAX", "Depth of the velocity maximum [m]"}, + /* 173 */ {"SMAX", "Salinity maximum [psu]"}, + /* 174 */ {"DSMAX", "Depth of salinity maximum [m]"}, + /* 175 */ {"SAV300", "Average salinity in the upper 300m [psu]"}, + /* 176 */ {"LDP", "Layer Thickness at scalar points [m]"}, + /* 177 */ {"LDU", "Layer Thickness at vector points [m]"}, + /* 178 */ {"PTI", "Potential temperature increment [deg C]"}, + /* 179 */ {"PTAE", "Potential temperature analysis error [deg C]"}, + /* 180 */ {"BPT", "Background potential temperature [deg C]"}, + /* 181 */ {"APT", "Analysed potential temperature [deg C]"}, + /* 182 */ {"PTBE", "Potential temperature background error [deg C]"}, + /* 183 */ {"AS", "Analysed salinity [psu]"}, + /* 184 */ {"SALI", "Salinity increment [psu]"}, + /* 185 */ {"EBT", "Estimated Bias in Temperature [deg C]"}, + /* 186 */ {"EBS", "Estimated Bias in Salinity [psu]"}, + /* 187 */ {"UVI", "Zonal Velocity increment (from balance operator) [m/s per time step]"}, + /* 188 */ {"VVI", "Meridional Velocity increment (from balance operator) []"}, + /* 189 */ {"var189", "undefined"}, + /* 190 */ {"SUBI", "Salinity increment (from salinity data) [psu per time step]"}, + /* 191 */ {"SALE", "Salinity analysis error [psu]"}, + /* 192 */ {"BSAL", "Background Salinity [psu]"}, + /* 193 */ {"var193", "Reserved []"}, + /* 194 */ {"SALBE", "Salinity background error [psu]"}, + /* 195 */ {"var195", "undefined"}, + /* 196 */ {"var196", "undefined"}, + /* 197 */ {"var197", "undefined"}, + /* 198 */ {"var198", "undefined"}, + /* 199 */ {"EBTA", "Estimated temperature bias from assimilation [deg C]"}, + /* 200 */ {"EBSA", "Estimated salinity bias from assimilation [psu]"}, + /* 201 */ {"LTI", "Temperature increment from relaxation term [deg C per time step]"}, + /* 202 */ {"LSI", "Salinity increment from relaxation term []"}, + /* 203 */ {"BZPGA", "Bias in the zonal pressure gradient (applied) [Pa**m-1]"}, + /* 204 */ {"BMPGA", "Bias in the meridional pressure gradient (applied) [Pa**m-1]"}, + /* 205 */ {"EBTL", "Estimated temperature bias from relaxation [deg C]"}, + /* 206 */ {"EBSL", "Estimated salinity bias from relaxation [psu]"}, + /* 207 */ {"FGBT", "First guess bias in temperature [deg C]"}, + /* 208 */ {"FGBS", "First guess bias in salinity [psu]"}, + /* 209 */ {"BPA", "Applied bias in pressure [Pa]"}, + /* 210 */ {"FGBP", "FG bias in pressure [Pa]"}, + /* 211 */ {"PTA", "Bias in temperature(applied) [deg C]"}, + /* 212 */ {"PSA", "Bias in salinity (applied) [psu]"}, + /* 213 */ {"var213", "undefined"}, + /* 214 */ {"var214", "undefined"}, + /* 215 */ {"var215", "undefined"}, + /* 216 */ {"var216", "undefined"}, + /* 217 */ {"var217", "undefined"}, + /* 218 */ {"var218", "undefined"}, + /* 219 */ {"var219", "undefined"}, + /* 220 */ {"var220", "undefined"}, + /* 221 */ {"var221", "undefined"}, + /* 222 */ {"var222", "undefined"}, + /* 223 */ {"var223", "undefined"}, + /* 224 */ {"var224", "undefined"}, + /* 225 */ {"var225", "undefined"}, + /* 226 */ {"var226", "undefined"}, + /* 227 */ {"var227", "undefined"}, + /* 228 */ {"var228", "undefined"}, + /* 229 */ {"var229", "undefined"}, + /* 230 */ {"var230", "undefined"}, + /* 231 */ {"var231", "undefined"}, + /* 232 */ {"var232", "undefined"}, + /* 233 */ {"var233", "undefined"}, + /* 234 */ {"var234", "undefined"}, + /* 235 */ {"var235", "undefined"}, + /* 236 */ {"var236", "undefined"}, + /* 237 */ {"var237", "undefined"}, + /* 238 */ {"var238", "undefined"}, + /* 239 */ {"var239", "undefined"}, + /* 240 */ {"var240", "undefined"}, + /* 241 */ {"var241", "undefined"}, + /* 242 */ {"var242", "undefined"}, + /* 243 */ {"var243", "undefined"}, + /* 244 */ {"var244", "undefined"}, + /* 245 */ {"var245", "undefined"}, + /* 246 */ {"var246", "undefined"}, + /* 247 */ {"var247", "undefined"}, + /* 248 */ {"var248", "undefined"}, + /* 249 */ {"var249", "undefined"}, + /* 250 */ {"var250", "undefined"}, + /* 251 */ {"var251", "undefined"}, + /* 252 */ {"var252", "undefined"}, + /* 253 */ {"var253", "undefined"}, + /* 254 */ {"var254", "undefined"}, + /* 255 */ {"var255", " []"}, +}; + +const struct ParmTable parm_table_ecmwf_160[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"var1", "undefined"}, + /* 2 */ {"var2", "undefined"}, + /* 3 */ {"var3", "undefined"}, + /* 4 */ {"var4", "undefined"}, + /* 5 */ {"var5", "undefined"}, + /* 6 */ {"var6", "undefined"}, + /* 7 */ {"var7", "undefined"}, + /* 8 */ {"var8", "undefined"}, + /* 9 */ {"var9", "undefined"}, + /* 10 */ {"var10", "undefined"}, + /* 11 */ {"var11", "undefined"}, + /* 12 */ {"var12", "undefined"}, + /* 13 */ {"var13", "undefined"}, + /* 14 */ {"var14", "undefined"}, + /* 15 */ {"var15", "undefined"}, + /* 16 */ {"var16", "undefined"}, + /* 17 */ {"var17", "undefined"}, + /* 18 */ {"var18", "undefined"}, + /* 19 */ {"var19", "undefined"}, + /* 20 */ {"var20", "undefined"}, + /* 21 */ {"var21", "undefined"}, + /* 22 */ {"var22", "undefined"}, + /* 23 */ {"var23", "undefined"}, + /* 24 */ {"var24", "undefined"}, + /* 25 */ {"var25", "undefined"}, + /* 26 */ {"var26", "undefined"}, + /* 27 */ {"var27", "undefined"}, + /* 28 */ {"var28", "undefined"}, + /* 29 */ {"var29", "undefined"}, + /* 30 */ {"var30", "undefined"}, + /* 31 */ {"var31", "undefined"}, + /* 32 */ {"var32", "undefined"}, + /* 33 */ {"var33", "undefined"}, + /* 34 */ {"var34", "undefined"}, + /* 35 */ {"var35", "undefined"}, + /* 36 */ {"var36", "undefined"}, + /* 37 */ {"var37", "undefined"}, + /* 38 */ {"var38", "undefined"}, + /* 39 */ {"var39", "undefined"}, + /* 40 */ {"var40", "undefined"}, + /* 41 */ {"var41", "undefined"}, + /* 42 */ {"var42", "undefined"}, + /* 43 */ {"var43", "undefined"}, + /* 44 */ {"var44", "undefined"}, + /* 45 */ {"var45", "undefined"}, + /* 46 */ {"var46", "undefined"}, + /* 47 */ {"var47", "undefined"}, + /* 48 */ {"var48", "undefined"}, + /* 49 */ {"10FG", "10 metre wind gust during averaging time [m s**-1]"}, + /* 50 */ {"var50", "undefined"}, + /* 51 */ {"var51", "undefined"}, + /* 52 */ {"var52", "undefined"}, + /* 53 */ {"var53", "undefined"}, + /* 54 */ {"var54", "undefined"}, + /* 55 */ {"var55", "undefined"}, + /* 56 */ {"var56", "undefined"}, + /* 57 */ {"var57", "undefined"}, + /* 58 */ {"var58", "undefined"}, + /* 59 */ {"var59", "undefined"}, + /* 60 */ {"var60", "undefined"}, + /* 61 */ {"var61", "undefined"}, + /* 62 */ {"var62", "undefined"}, + /* 63 */ {"var63", "undefined"}, + /* 64 */ {"var64", "undefined"}, + /* 65 */ {"var65", "undefined"}, + /* 66 */ {"var66", "undefined"}, + /* 67 */ {"var67", "undefined"}, + /* 68 */ {"var68", "undefined"}, + /* 69 */ {"var69", "undefined"}, + /* 70 */ {"var70", "undefined"}, + /* 71 */ {"var71", "undefined"}, + /* 72 */ {"var72", "undefined"}, + /* 73 */ {"var73", "undefined"}, + /* 74 */ {"var74", "undefined"}, + /* 75 */ {"var75", "undefined"}, + /* 76 */ {"var76", "undefined"}, + /* 77 */ {"var77", "undefined"}, + /* 78 */ {"var78", "undefined"}, + /* 79 */ {"var79", "undefined"}, + /* 80 */ {"var80", "undefined"}, + /* 81 */ {"var81", "undefined"}, + /* 82 */ {"var82", "undefined"}, + /* 83 */ {"var83", "undefined"}, + /* 84 */ {"var84", "undefined"}, + /* 85 */ {"var85", "undefined"}, + /* 86 */ {"var86", "undefined"}, + /* 87 */ {"var87", "undefined"}, + /* 88 */ {"var88", "undefined"}, + /* 89 */ {"var89", "undefined"}, + /* 90 */ {"var90", "undefined"}, + /* 91 */ {"var91", "undefined"}, + /* 92 */ {"var92", "undefined"}, + /* 93 */ {"var93", "undefined"}, + /* 94 */ {"var94", "undefined"}, + /* 95 */ {"var95", "undefined"}, + /* 96 */ {"var96", "undefined"}, + /* 97 */ {"var97", "undefined"}, + /* 98 */ {"var98", "undefined"}, + /* 99 */ {"var99", "undefined"}, + /* 100 */ {"var100", "undefined"}, + /* 101 */ {"var101", "undefined"}, + /* 102 */ {"var102", "undefined"}, + /* 103 */ {"var103", "undefined"}, + /* 104 */ {"var104", "undefined"}, + /* 105 */ {"var105", "undefined"}, + /* 106 */ {"var106", "undefined"}, + /* 107 */ {"var107", "undefined"}, + /* 108 */ {"var108", "undefined"}, + /* 109 */ {"var109", "undefined"}, + /* 110 */ {"var110", "undefined"}, + /* 111 */ {"var111", "undefined"}, + /* 112 */ {"var112", "undefined"}, + /* 113 */ {"var113", "undefined"}, + /* 114 */ {"var114", "undefined"}, + /* 115 */ {"var115", "undefined"}, + /* 116 */ {"var116", "undefined"}, + /* 117 */ {"var117", "undefined"}, + /* 118 */ {"var118", "undefined"}, + /* 119 */ {"var119", "undefined"}, + /* 120 */ {"var120", "undefined"}, + /* 121 */ {"var121", "undefined"}, + /* 122 */ {"var122", "undefined"}, + /* 123 */ {"var123", "undefined"}, + /* 124 */ {"var124", "undefined"}, + /* 125 */ {"var125", "undefined"}, + /* 126 */ {"var126", "undefined"}, + /* 127 */ {"AT", "Atmospheric tide []"}, + /* 128 */ {"BV", "Budget values []"}, + /* 129 */ {"Z", "Geopotential [m**2 s**-2]"}, + /* 130 */ {"T", "Temperature [K]"}, + /* 131 */ {"U", "U velocity [m s**-1]"}, + /* 132 */ {"V", "V velocity [m s**-1]"}, + /* 133 */ {"Q", "Specific humidity [kg kg**-1]"}, + /* 134 */ {"SP", "Surface pressure [Pa]"}, + /* 135 */ {"W", "Vertical velocity [Pa s**-1]"}, + /* 136 */ {"TCW", "Total column water [kg m**-2]"}, + /* 137 */ {"PWC", "Precipitable water content [kg m**-2]"}, + /* 138 */ {"VO", "Vorticity (relative) [s**-1]"}, + /* 139 */ {"STL1", "Soil temperature level 1 [K]"}, + /* 140 */ {"SWL1", "Soil wetness level 1 [m]"}, + /* 141 */ {"SD", "Snow depth [m of water]"}, + /* 142 */ {"LSP", "Large-scale precipitation [kg m**-2 s**-1]"}, + /* 143 */ {"CP", "Convective precipitation [kg m**-2 s**-1]"}, + /* 144 */ {"SF", "Snowfall [kg m**-2 s**-1]"}, + /* 145 */ {"BLD", "Boundary layer dissipation [W m**-2]"}, + /* 146 */ {"SSHF", "Surface sensible heat flux [W m**-2]"}, + /* 147 */ {"SLHF", "Surface latent heat flux [W m**-2]"}, + /* 148 */ {"var148", "undefined"}, + /* 149 */ {"var149", "undefined"}, + /* 150 */ {"var150", "undefined"}, + /* 151 */ {"MSL", "Mean sea level pressure [Pa]"}, + /* 152 */ {"LNSP", "Logarithm of surface pressure []"}, + /* 153 */ {"var153", "undefined"}, + /* 154 */ {"var154", "undefined"}, + /* 155 */ {"D", "Divergence [s**-1]"}, + /* 156 */ {"GH", "Height [m]"}, + /* 157 */ {"R", "Relative humidity [(0 - 1)]"}, + /* 158 */ {"TSP", "Tendency of surface pressure [Pa s**-1]"}, + /* 159 */ {"var159", "undefined"}, + /* 160 */ {"var160", "undefined"}, + /* 161 */ {"var161", "undefined"}, + /* 162 */ {"var162", "undefined"}, + /* 163 */ {"var163", "undefined"}, + /* 164 */ {"TCC", "Total cloud cover [(0 - 1)]"}, + /* 165 */ {"10U", "10 metre U wind component [m s**-1]"}, + /* 166 */ {"10V", "10 metre V wind component [m s**-1]"}, + /* 167 */ {"2T", "2 metre temperature [K]"}, + /* 168 */ {"2D", "2 metre dewpoint temperature [K]"}, + /* 169 */ {"var169", "undefined"}, + /* 170 */ {"STL2", "Soil temperature level 2 [K]"}, + /* 171 */ {"SWL2", "Soil wetness level 2 [m]"}, + /* 172 */ {"LSM", "Land-sea mask [(0 - 1)]"}, + /* 173 */ {"SR", "Surface roughness [m]"}, + /* 174 */ {"AL", "Albedo [(0 - 1)]"}, + /* 175 */ {"var175", "undefined"}, + /* 176 */ {"SSR", "Surface solar radiation [W m**-2]"}, + /* 177 */ {"STR", "Surface thermal radiation [W m**-2]"}, + /* 178 */ {"TSR", "Top solar radiation [W m**-2]"}, + /* 179 */ {"TTR", "Top thermal radiation [W m**-2]"}, + /* 180 */ {"EWSS", "East-West surface stress [N m**-2 s**-1]"}, + /* 181 */ {"NSSS", "North-South surface stress [N m**-2 s**-1]"}, + /* 182 */ {"E", "Evaporation [kg m**-2 s**-1]"}, + /* 183 */ {"STL3", "Soil temperature level 3 [K]"}, + /* 184 */ {"SWL3", "Soil wetness level 3 [m]"}, + /* 185 */ {"CCC", "Convective cloud cover [(0 - 1)]"}, + /* 186 */ {"LCC", "Low cloud cover [(0 - 1)]"}, + /* 187 */ {"MCC", "Medium cloud cover [(0 - 1)]"}, + /* 188 */ {"HCC", "High cloud cover [(0 - 1)]"}, + /* 189 */ {"var189", "undefined"}, + /* 190 */ {"EWOV", "East-West component of sub-gridscale orographic variance [m**2]"}, + /* 191 */ {"NSOV", "North-South component of sub-gridscale orographic variance [m**2]"}, + /* 192 */ {"NWOV", "North-West/South-East component of sub-gridscale orographic variance [m**2]"}, + /* 193 */ {"NEOV", "North-East/South-West component of sub-gridscale orographic variance [m**2]"}, + /* 194 */ {"var194", "undefined"}, + /* 195 */ {"LGWS", "Latitudinal component of gravity wave stress [N m**-2 s]"}, + /* 196 */ {"MGWS", "Meridional component of gravity wave stress [N m**-2 s]"}, + /* 197 */ {"GWD", "Gravity wave dissipation [W m**-2 s]"}, + /* 198 */ {"SRC", "Skin reservoir content [m of water]"}, + /* 199 */ {"VEG", "Percentage of vegetation [%]"}, + /* 200 */ {"VSO", "Variance of sub-gridscale orography [m**2]"}, + /* 201 */ {"MX2T", "Maximum temperature at 2 metres during averaging time [K]"}, + /* 202 */ {"MN2T", "Minimium temperature at 2 metres during averaging time [K]"}, + /* 203 */ {"var203", "undefined"}, + /* 204 */ {"PAW", "Precipitation analysis weights []"}, + /* 205 */ {"RO", "Runoff [kg m**-2 s**-1]"}, + /* 206 */ {"ZZ", "Standard deviation of geopotential [m**2 s**-2]"}, + /* 207 */ {"TZ", "Covariance of temperature and geopotential [K m**2 s**-2]"}, + /* 208 */ {"TT", "Standard deviation of temperature [K]"}, + /* 209 */ {"QZ", "Covariance of specific humidity and geopotential [m**2 s**-2]"}, + /* 210 */ {"QT", "Covariance of specific humidity and temperature [K]"}, + /* 211 */ {"QQ", "Standard deviation of specific humidity [(0 - 1)]"}, + /* 212 */ {"UZ", "Covariance of U component and geopotential [m**3 s**-3]"}, + /* 213 */ {"UT", "Covariance of U component and temperature [K m s**-1]"}, + /* 214 */ {"UQ", "Covariance of U component and specific humidity [m s**-1]"}, + /* 215 */ {"UU", "Standard deviation of U velocity [m s**-1]"}, + /* 216 */ {"VZ", "Covariance of V component and geopotential [m**3 s**-3]"}, + /* 217 */ {"VT", "Covariance of V component and temperature [K m s**-1]"}, + /* 218 */ {"VQ", "Covariance of V component and specific humidity [m s**-1]"}, + /* 219 */ {"VU", "Covariance of V component and U component [m**2 s**-2]"}, + /* 220 */ {"VV", "Standard deviation of V component [m s**-1]"}, + /* 221 */ {"WZ", "Covariance of W component and geopotential [Pa m**2 s**-3]"}, + /* 222 */ {"WT", "Covariance of W component and temperature [K Pa s**-1]"}, + /* 223 */ {"WQ", "Covariance of W component and specific humidity [Pa s**-1]"}, + /* 224 */ {"WU", "Covariance of W component and U component [Pa m s**-2]"}, + /* 225 */ {"WV", "Covariance of W component and V component [Pa m s**-2]"}, + /* 226 */ {"WW", "Standard deviation of vertical velocity [Pa s**-1]"}, + /* 227 */ {"var227", "undefined"}, + /* 228 */ {"TP", "Total precipitation [m]"}, + /* 229 */ {"IEWS", "Instantaneous X surface stress [N m**-2]"}, + /* 230 */ {"INSS", "Instantaneous Y surface stress [N m**-2]"}, + /* 231 */ {"ISHF", "Instantaneous surface heat flux [W m**-2]"}, + /* 232 */ {"IE", "Instantaneous moisture flux [kg m**-2 s**-1]"}, + /* 233 */ {"ASQ", "Apparent surface humidity [kg kg**-1]"}, + /* 234 */ {"LSRH", "Logarithm of surface roughness length for heat []"}, + /* 235 */ {"SKT", "Skin temperature [K]"}, + /* 236 */ {"STL4", "Soil temperature level 4 [K]"}, + /* 237 */ {"SWL4", "Soil wetness level 4 [m]"}, + /* 238 */ {"TSN", "Temperature of snow layer [K]"}, + /* 239 */ {"CSF", "Convective snowfall [kg m**-2 s**-1]"}, + /* 240 */ {"LSF", "Large-scale snowfall [kg m**-2 s**-1]"}, + /* 241 */ {"CLWCER", "Cloud liquid water content [kg kg**-1]"}, + /* 242 */ {"CC", "Cloud cover [(0 - 1)]"}, + /* 243 */ {"FAL", "Forecast albedo []"}, + /* 244 */ {"FSR", "Forecast surface roughness [m]"}, + /* 245 */ {"FLSR", "Forecast logarithm of surface roughness for heat []"}, + /* 246 */ {"10WS", "10 metre wind speed [m s**-1]"}, + /* 247 */ {"MOFL", "Momentum flux [N m**-2]"}, + /* 248 */ {"var248", "undefined"}, + /* 249 */ {"var249", "Gravity wave dissipation flux [W m**-2]"}, + /* 250 */ {"var250", "undefined"}, + /* 251 */ {"var251", "undefined"}, + /* 252 */ {"var252", "undefined"}, + /* 253 */ {"var253", "undefined"}, + /* 254 */ {"HSD", "Heaviside beta function [(0 - 1)]"}, + /* 255 */ {"var255", "Indicates a missing value []"}, +}; + +const struct ParmTable parm_table_ecmwf_162[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"var1", "undefined"}, + /* 2 */ {"var2", "undefined"}, + /* 3 */ {"var3", "undefined"}, + /* 4 */ {"var4", "undefined"}, + /* 5 */ {"var5", "undefined"}, + /* 6 */ {"var6", "undefined"}, + /* 7 */ {"var7", "undefined"}, + /* 8 */ {"var8", "undefined"}, + /* 9 */ {"var9", "undefined"}, + /* 10 */ {"var10", "undefined"}, + /* 11 */ {"var11", "undefined"}, + /* 12 */ {"var12", "undefined"}, + /* 13 */ {"var13", "undefined"}, + /* 14 */ {"var14", "undefined"}, + /* 15 */ {"var15", "undefined"}, + /* 16 */ {"var16", "undefined"}, + /* 17 */ {"var17", "undefined"}, + /* 18 */ {"var18", "undefined"}, + /* 19 */ {"var19", "undefined"}, + /* 20 */ {"var20", "undefined"}, + /* 21 */ {"var21", "undefined"}, + /* 22 */ {"var22", "undefined"}, + /* 23 */ {"var23", "undefined"}, + /* 24 */ {"var24", "undefined"}, + /* 25 */ {"var25", "undefined"}, + /* 26 */ {"var26", "undefined"}, + /* 27 */ {"var27", "undefined"}, + /* 28 */ {"var28", "undefined"}, + /* 29 */ {"var29", "undefined"}, + /* 30 */ {"var30", "undefined"}, + /* 31 */ {"var31", "undefined"}, + /* 32 */ {"var32", "undefined"}, + /* 33 */ {"var33", "undefined"}, + /* 34 */ {"var34", "undefined"}, + /* 35 */ {"var35", "undefined"}, + /* 36 */ {"var36", "undefined"}, + /* 37 */ {"var37", "undefined"}, + /* 38 */ {"var38", "undefined"}, + /* 39 */ {"var39", "undefined"}, + /* 40 */ {"var40", "undefined"}, + /* 41 */ {"var41", "undefined"}, + /* 42 */ {"var42", "undefined"}, + /* 43 */ {"var43", "undefined"}, + /* 44 */ {"var44", "undefined"}, + /* 45 */ {"var45", "undefined"}, + /* 46 */ {"var46", "undefined"}, + /* 47 */ {"var47", "undefined"}, + /* 48 */ {"var48", "undefined"}, + /* 49 */ {"var49", "undefined"}, + /* 50 */ {"var50", "undefined"}, + /* 51 */ {"var51", "Surface geopotential [m**2 s**-2]"}, + /* 52 */ {"var52", "Surface pressure [Pa]"}, + /* 53 */ {"var53", "Vertical integral of mass of atmosphere [kg m**-2]"}, + /* 54 */ {"var54", "Vertical integral of temperature [K kg m**-2]"}, + /* 55 */ {"var55", "Vertical integral of total column water vapour [kg m**-2]"}, + /* 56 */ {"var56", "Vertical integral of total column liquid cloud water [kg m**-2]"}, + /* 57 */ {"var57", "Vertical integral of total column frozen cloud water [kg m**-2]"}, + /* 58 */ {"var58", "Vertical integral of total column ozone [kg m**-2]"}, + /* 59 */ {"var59", "Vertical integral of kinetic energy [J m**-2]"}, + /* 60 */ {"var60", "Vertical integral of thermal energy [J m**-2]"}, + /* 61 */ {"var61", "Vertical integral of dry static energy [J m**-2]"}, + /* 62 */ {"var62", "Vertical integral of moist static energy [J m**-2]"}, + /* 63 */ {"var63", "Vertical integral of total energy [J m**-2]"}, + /* 64 */ {"var64", "Vertical integral of energy conversion [W m**-2]"}, + /* 65 */ {"var65", "Vertical integral of eastward mass flux [kg m**-1 s**-1]"}, + /* 66 */ {"var66", "Vertical integral of northward mass flux [kg m**-1 s**-1]"}, + /* 67 */ {"var67", "Vertical integral of eastward kinetic energy flux [W m**-2]"}, + /* 68 */ {"var68", "Vertical integral of northward kinetic energy flux [W m**-2]"}, + /* 69 */ {"var69", "Vertical integral of eastward heat flux [W m**-2]"}, + /* 70 */ {"var70", "Vertical integral of northward heat flux [W m**-2]"}, + /* 71 */ {"var71", "Vertical integral of eastward water vapour flux [kg m**-1 s**-1]"}, + /* 72 */ {"var72", "Vertical integral of northward water vapour flux [kg m**-1 s**-1]"}, + /* 73 */ {"var73", "Vertical integral of eastward geopotential flux [W m**-2]"}, + /* 74 */ {"var74", "Vertical integral of northward geopotential flux [W m**-2]"}, + /* 75 */ {"var75", "Vertical integral of eastward total energy flux [W m**-2]"}, + /* 76 */ {"var76", "Vertical integral of northward total energy flux [W m**-2]"}, + /* 77 */ {"var77", "Vertical integral of eastward ozone flux [kg m**-1 s**-1]"}, + /* 78 */ {"var78", "Vertical integral of northward ozone flux [kg m**-1 s**-1]"}, + /* 79 */ {"var79", "undefined"}, + /* 80 */ {"var80", "undefined"}, + /* 81 */ {"var81", "Vertical integral of divergence of mass flux [kg m**-2 s**-1]"}, + /* 82 */ {"var82", "Vertical integral of divergence of kinetic energy flux [W m**-2]"}, + /* 83 */ {"var83", "Vertical integral of divergence of thermal energy flux [W m**-2]"}, + /* 84 */ {"var84", "Vertical integral of divergence of moisture flux [kg m**-2 s**-1]"}, + /* 85 */ {"var85", "Vertical integral of divergence of geopotential flux [W m**-2]"}, + /* 86 */ {"var86", "Vertical integral of divergence of total energy flux [W m**-2]"}, + /* 87 */ {"var87", "Vertical integral of divergence of ozone flux [kg m**-2 s**-1]"}, + /* 88 */ {"var88", "undefined"}, + /* 89 */ {"var89", "undefined"}, + /* 90 */ {"var90", "undefined"}, + /* 91 */ {"var91", "undefined"}, + /* 92 */ {"var92", "undefined"}, + /* 93 */ {"var93", "undefined"}, + /* 94 */ {"var94", "undefined"}, + /* 95 */ {"var95", "undefined"}, + /* 96 */ {"var96", "undefined"}, + /* 97 */ {"var97", "undefined"}, + /* 98 */ {"var98", "undefined"}, + /* 99 */ {"var99", "undefined"}, + /* 100 */ {"var100", "Tendency of short wave radiation [K]"}, + /* 101 */ {"var101", "Tendency of long wave radiation [K]"}, + /* 102 */ {"var102", "Tendency of clear sky short wave radiation [K]"}, + /* 103 */ {"var103", "Tendency of clear sky long wave radiation [K]"}, + /* 104 */ {"var104", "Updraught mass flux [kg m**-2]"}, + /* 105 */ {"var105", "Downdraught mass flux [kg m**-2]"}, + /* 106 */ {"var106", "Updraught detrainment rate [kg m**-3]"}, + /* 107 */ {"var107", "Downdraught detrainment rate [kg m**-3]"}, + /* 108 */ {"var108", "Total precipitation flux [kg m**-2]"}, + /* 109 */ {"var109", "Turbulent diffusion coefficient for heat [m**2]"}, + /* 110 */ {"var110", "Tendency of temperature due to physics [K]"}, + /* 111 */ {"var111", "Tendency of specific humidity due to physics [kg kg**-1]"}, + /* 112 */ {"var112", "Tendency of u component due to physics [m s**-1]"}, + /* 113 */ {"var113", "Tendency of v component due to physics [m s**-1]"}, + /* 114 */ {"var114", "undefined"}, + /* 115 */ {"var115", "undefined"}, + /* 116 */ {"var116", "undefined"}, + /* 117 */ {"var117", "undefined"}, + /* 118 */ {"var118", "undefined"}, + /* 119 */ {"var119", "undefined"}, + /* 120 */ {"var120", "undefined"}, + /* 121 */ {"var121", "undefined"}, + /* 122 */ {"var122", "undefined"}, + /* 123 */ {"var123", "undefined"}, + /* 124 */ {"var124", "undefined"}, + /* 125 */ {"var125", "undefined"}, + /* 126 */ {"var126", "undefined"}, + /* 127 */ {"var127", "undefined"}, + /* 128 */ {"var128", "undefined"}, + /* 129 */ {"var129", "undefined"}, + /* 130 */ {"var130", "undefined"}, + /* 131 */ {"var131", "undefined"}, + /* 132 */ {"var132", "undefined"}, + /* 133 */ {"var133", "undefined"}, + /* 134 */ {"var134", "undefined"}, + /* 135 */ {"var135", "undefined"}, + /* 136 */ {"var136", "undefined"}, + /* 137 */ {"var137", "undefined"}, + /* 138 */ {"var138", "undefined"}, + /* 139 */ {"var139", "undefined"}, + /* 140 */ {"var140", "undefined"}, + /* 141 */ {"var141", "undefined"}, + /* 142 */ {"var142", "undefined"}, + /* 143 */ {"var143", "undefined"}, + /* 144 */ {"var144", "undefined"}, + /* 145 */ {"var145", "undefined"}, + /* 146 */ {"var146", "undefined"}, + /* 147 */ {"var147", "undefined"}, + /* 148 */ {"var148", "undefined"}, + /* 149 */ {"var149", "undefined"}, + /* 150 */ {"var150", "undefined"}, + /* 151 */ {"var151", "undefined"}, + /* 152 */ {"var152", "undefined"}, + /* 153 */ {"var153", "undefined"}, + /* 154 */ {"var154", "undefined"}, + /* 155 */ {"var155", "undefined"}, + /* 156 */ {"var156", "undefined"}, + /* 157 */ {"var157", "undefined"}, + /* 158 */ {"var158", "undefined"}, + /* 159 */ {"var159", "undefined"}, + /* 160 */ {"var160", "undefined"}, + /* 161 */ {"var161", "undefined"}, + /* 162 */ {"var162", "undefined"}, + /* 163 */ {"var163", "undefined"}, + /* 164 */ {"var164", "undefined"}, + /* 165 */ {"var165", "undefined"}, + /* 166 */ {"var166", "undefined"}, + /* 167 */ {"var167", "undefined"}, + /* 168 */ {"var168", "undefined"}, + /* 169 */ {"var169", "undefined"}, + /* 170 */ {"var170", "undefined"}, + /* 171 */ {"var171", "undefined"}, + /* 172 */ {"var172", "undefined"}, + /* 173 */ {"var173", "undefined"}, + /* 174 */ {"var174", "undefined"}, + /* 175 */ {"var175", "undefined"}, + /* 176 */ {"var176", "undefined"}, + /* 177 */ {"var177", "undefined"}, + /* 178 */ {"var178", "undefined"}, + /* 179 */ {"var179", "undefined"}, + /* 180 */ {"var180", "undefined"}, + /* 181 */ {"var181", "undefined"}, + /* 182 */ {"var182", "undefined"}, + /* 183 */ {"var183", "undefined"}, + /* 184 */ {"var184", "undefined"}, + /* 185 */ {"var185", "undefined"}, + /* 186 */ {"var186", "undefined"}, + /* 187 */ {"var187", "undefined"}, + /* 188 */ {"var188", "undefined"}, + /* 189 */ {"var189", "undefined"}, + /* 190 */ {"var190", "undefined"}, + /* 191 */ {"var191", "undefined"}, + /* 192 */ {"var192", "undefined"}, + /* 193 */ {"var193", "undefined"}, + /* 194 */ {"var194", "undefined"}, + /* 195 */ {"var195", "undefined"}, + /* 196 */ {"var196", "undefined"}, + /* 197 */ {"var197", "undefined"}, + /* 198 */ {"var198", "undefined"}, + /* 199 */ {"var199", "undefined"}, + /* 200 */ {"var200", "undefined"}, + /* 201 */ {"var201", "undefined"}, + /* 202 */ {"var202", "undefined"}, + /* 203 */ {"var203", "undefined"}, + /* 204 */ {"var204", "undefined"}, + /* 205 */ {"var205", "undefined"}, + /* 206 */ {"var206", "Variance of geopotential [m**4 s**-4]"}, + /* 207 */ {"var207", "Covariance of geopotential/temperature [m**2 K s**-2]"}, + /* 208 */ {"var208", "Variance of temperature [K**2]"}, + /* 209 */ {"var209", "Covariance of geopotential/specific humidity [m**2 s**-2]"}, + /* 210 */ {"var210", "Covariance of temperature/specific humidity [K]"}, + /* 211 */ {"var211", "Variance of specific humidity []"}, + /* 212 */ {"var212", "Covariance of u component/geopotential [M**3 s**-3]"}, + /* 213 */ {"var213", "Covariance of u component/temperature [m s**-1 K]"}, + /* 214 */ {"var214", "Covariance of u component/specific humidity [m s**-1]"}, + /* 215 */ {"var215", "Variance of u component [m**2 s**-2]"}, + /* 216 */ {"var216", "Covariance of v component/geopotential [M**3 s**-3]"}, + /* 217 */ {"var217", "Covariance of v component/temperaure [m s**-1 K]"}, + /* 218 */ {"var218", "Covariance of v component/specific humidity [m s**-1]"}, + /* 219 */ {"var219", "Covariance of v component/u component [m**2 s**-2]"}, + /* 220 */ {"var220", "Variance of v component [m**2 s**-2]"}, + /* 221 */ {"var221", "Covariance of omega/geopotential [m**2 Pa s**-3]"}, + /* 222 */ {"var222", "Covariance of omega/temperature [Pa s**-1 K]"}, + /* 223 */ {"var223", "Covariance of omega/specific humidity [Pa s**-1]"}, + /* 224 */ {"var224", "Covariance of omega/u component [m Pa s**-2]"}, + /* 225 */ {"var225", "Covariance of omega/v component [m Pa s**-2]"}, + /* 226 */ {"var226", "Variance of omega [Pa**2 s**-2]"}, + /* 227 */ {"var227", "Variance of surface pressure [Pa**2]"}, + /* 228 */ {"var228", "undefined"}, + /* 229 */ {"var229", "Variance of relative humidity [dimensionless]"}, + /* 230 */ {"var230", "Covariance of u component/ozone [m s**-1]"}, + /* 231 */ {"var231", "Covariance of v component/ozone [m s**-1]"}, + /* 232 */ {"var232", "Covariance of omega/ozone [Pa s**-1]"}, + /* 233 */ {"var233", "Variance of ozone [dimensionless]"}, + /* 234 */ {"var234", "undefined"}, + /* 235 */ {"var235", "undefined"}, + /* 236 */ {"var236", "undefined"}, + /* 237 */ {"var237", "undefined"}, + /* 238 */ {"var238", "undefined"}, + /* 239 */ {"var239", "undefined"}, + /* 240 */ {"var240", "undefined"}, + /* 241 */ {"var241", "undefined"}, + /* 242 */ {"var242", "undefined"}, + /* 243 */ {"var243", "undefined"}, + /* 244 */ {"var244", "undefined"}, + /* 245 */ {"var245", "undefined"}, + /* 246 */ {"var246", "undefined"}, + /* 247 */ {"var247", "undefined"}, + /* 248 */ {"var248", "undefined"}, + /* 249 */ {"var249", "undefined"}, + /* 250 */ {"var250", "undefined"}, + /* 251 */ {"var251", "undefined"}, + /* 252 */ {"var252", "undefined"}, + /* 253 */ {"var253", "undefined"}, + /* 254 */ {"var254", "undefined"}, + /* 255 */ {"var255", "Indicates a missing value []"}, +}; + +const struct ParmTable parm_table_ecmwf_170[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"var1", "undefined"}, + /* 2 */ {"var2", "undefined"}, + /* 3 */ {"var3", "undefined"}, + /* 4 */ {"var4", "undefined"}, + /* 5 */ {"var5", "undefined"}, + /* 6 */ {"var6", "undefined"}, + /* 7 */ {"var7", "undefined"}, + /* 8 */ {"var8", "undefined"}, + /* 9 */ {"var9", "undefined"}, + /* 10 */ {"var10", "undefined"}, + /* 11 */ {"var11", "undefined"}, + /* 12 */ {"var12", "undefined"}, + /* 13 */ {"var13", "undefined"}, + /* 14 */ {"var14", "undefined"}, + /* 15 */ {"var15", "undefined"}, + /* 16 */ {"var16", "undefined"}, + /* 17 */ {"var17", "undefined"}, + /* 18 */ {"var18", "undefined"}, + /* 19 */ {"var19", "undefined"}, + /* 20 */ {"var20", "undefined"}, + /* 21 */ {"var21", "undefined"}, + /* 22 */ {"var22", "undefined"}, + /* 23 */ {"var23", "undefined"}, + /* 24 */ {"var24", "undefined"}, + /* 25 */ {"var25", "undefined"}, + /* 26 */ {"var26", "undefined"}, + /* 27 */ {"var27", "undefined"}, + /* 28 */ {"var28", "undefined"}, + /* 29 */ {"var29", "undefined"}, + /* 30 */ {"var30", "undefined"}, + /* 31 */ {"var31", "undefined"}, + /* 32 */ {"var32", "undefined"}, + /* 33 */ {"var33", "undefined"}, + /* 34 */ {"var34", "undefined"}, + /* 35 */ {"var35", "undefined"}, + /* 36 */ {"var36", "undefined"}, + /* 37 */ {"var37", "undefined"}, + /* 38 */ {"var38", "undefined"}, + /* 39 */ {"var39", "undefined"}, + /* 40 */ {"var40", "undefined"}, + /* 41 */ {"var41", "undefined"}, + /* 42 */ {"var42", "undefined"}, + /* 43 */ {"var43", "undefined"}, + /* 44 */ {"var44", "undefined"}, + /* 45 */ {"var45", "undefined"}, + /* 46 */ {"var46", "undefined"}, + /* 47 */ {"var47", "undefined"}, + /* 48 */ {"var48", "undefined"}, + /* 49 */ {"var49", "undefined"}, + /* 50 */ {"var50", "undefined"}, + /* 51 */ {"var51", "undefined"}, + /* 52 */ {"var52", "undefined"}, + /* 53 */ {"var53", "undefined"}, + /* 54 */ {"var54", "undefined"}, + /* 55 */ {"var55", "undefined"}, + /* 56 */ {"var56", "undefined"}, + /* 57 */ {"var57", "undefined"}, + /* 58 */ {"var58", "undefined"}, + /* 59 */ {"var59", "undefined"}, + /* 60 */ {"var60", "undefined"}, + /* 61 */ {"var61", "undefined"}, + /* 62 */ {"var62", "undefined"}, + /* 63 */ {"var63", "undefined"}, + /* 64 */ {"var64", "undefined"}, + /* 65 */ {"var65", "undefined"}, + /* 66 */ {"var66", "undefined"}, + /* 67 */ {"var67", "undefined"}, + /* 68 */ {"var68", "undefined"}, + /* 69 */ {"var69", "undefined"}, + /* 70 */ {"var70", "undefined"}, + /* 71 */ {"var71", "undefined"}, + /* 72 */ {"var72", "undefined"}, + /* 73 */ {"var73", "undefined"}, + /* 74 */ {"var74", "undefined"}, + /* 75 */ {"var75", "undefined"}, + /* 76 */ {"var76", "undefined"}, + /* 77 */ {"var77", "undefined"}, + /* 78 */ {"var78", "undefined"}, + /* 79 */ {"var79", "undefined"}, + /* 80 */ {"var80", "undefined"}, + /* 81 */ {"var81", "undefined"}, + /* 82 */ {"var82", "undefined"}, + /* 83 */ {"var83", "undefined"}, + /* 84 */ {"var84", "undefined"}, + /* 85 */ {"var85", "undefined"}, + /* 86 */ {"var86", "undefined"}, + /* 87 */ {"var87", "undefined"}, + /* 88 */ {"var88", "undefined"}, + /* 89 */ {"var89", "undefined"}, + /* 90 */ {"var90", "undefined"}, + /* 91 */ {"var91", "undefined"}, + /* 92 */ {"var92", "undefined"}, + /* 93 */ {"var93", "undefined"}, + /* 94 */ {"var94", "undefined"}, + /* 95 */ {"var95", "undefined"}, + /* 96 */ {"var96", "undefined"}, + /* 97 */ {"var97", "undefined"}, + /* 98 */ {"var98", "undefined"}, + /* 99 */ {"var99", "undefined"}, + /* 100 */ {"var100", "undefined"}, + /* 101 */ {"var101", "undefined"}, + /* 102 */ {"var102", "undefined"}, + /* 103 */ {"var103", "undefined"}, + /* 104 */ {"var104", "undefined"}, + /* 105 */ {"var105", "undefined"}, + /* 106 */ {"var106", "undefined"}, + /* 107 */ {"var107", "undefined"}, + /* 108 */ {"var108", "undefined"}, + /* 109 */ {"var109", "undefined"}, + /* 110 */ {"var110", "undefined"}, + /* 111 */ {"var111", "undefined"}, + /* 112 */ {"var112", "undefined"}, + /* 113 */ {"var113", "undefined"}, + /* 114 */ {"var114", "undefined"}, + /* 115 */ {"var115", "undefined"}, + /* 116 */ {"var116", "undefined"}, + /* 117 */ {"var117", "undefined"}, + /* 118 */ {"var118", "undefined"}, + /* 119 */ {"var119", "undefined"}, + /* 120 */ {"var120", "undefined"}, + /* 121 */ {"var121", "undefined"}, + /* 122 */ {"var122", "undefined"}, + /* 123 */ {"var123", "undefined"}, + /* 124 */ {"var124", "undefined"}, + /* 125 */ {"var125", "undefined"}, + /* 126 */ {"var126", "undefined"}, + /* 127 */ {"var127", "undefined"}, + /* 128 */ {"var128", "undefined"}, + /* 129 */ {"Z", "Geopotential [m**2 s**-2]"}, + /* 130 */ {"T", "Temperature [K]"}, + /* 131 */ {"U", "U velocity [m s**-1]"}, + /* 132 */ {"V", "V velocity [m s**-1]"}, + /* 133 */ {"var133", "undefined"}, + /* 134 */ {"var134", "undefined"}, + /* 135 */ {"var135", "undefined"}, + /* 136 */ {"var136", "undefined"}, + /* 137 */ {"var137", "undefined"}, + /* 138 */ {"VO", "Vorticity (relative) [s**-1]"}, + /* 139 */ {"var139", "undefined"}, + /* 140 */ {"SWL1", "Soil wetness level 1 [m]"}, + /* 141 */ {"SD", "Snow depth [m of water equivalent]"}, + /* 142 */ {"var142", "undefined"}, + /* 143 */ {"var143", "undefined"}, + /* 144 */ {"var144", "undefined"}, + /* 145 */ {"var145", "undefined"}, + /* 146 */ {"var146", "undefined"}, + /* 147 */ {"var147", "undefined"}, + /* 148 */ {"var148", "undefined"}, + /* 149 */ {"TSW", "Total soil moisture [m]"}, + /* 150 */ {"var150", "undefined"}, + /* 151 */ {"MSL", "Mean sea level pressure [Pa]"}, + /* 152 */ {"var152", "undefined"}, + /* 153 */ {"var153", "undefined"}, + /* 154 */ {"var154", "undefined"}, + /* 155 */ {"D", "Divergence [s**-1]"}, + /* 156 */ {"var156", "undefined"}, + /* 157 */ {"var157", "undefined"}, + /* 158 */ {"var158", "undefined"}, + /* 159 */ {"var159", "undefined"}, + /* 160 */ {"var160", "undefined"}, + /* 161 */ {"var161", "undefined"}, + /* 162 */ {"var162", "undefined"}, + /* 163 */ {"var163", "undefined"}, + /* 164 */ {"var164", "undefined"}, + /* 165 */ {"var165", "undefined"}, + /* 166 */ {"var166", "undefined"}, + /* 167 */ {"var167", "undefined"}, + /* 168 */ {"var168", "undefined"}, + /* 169 */ {"var169", "undefined"}, + /* 170 */ {"var170", "undefined"}, + /* 171 */ {"SWL2", "Soil wetness level 2 [m]"}, + /* 172 */ {"var172", "undefined"}, + /* 173 */ {"var173", "undefined"}, + /* 174 */ {"var174", "undefined"}, + /* 175 */ {"var175", "undefined"}, + /* 176 */ {"var176", "undefined"}, + /* 177 */ {"var177", "undefined"}, + /* 178 */ {"var178", "undefined"}, + /* 179 */ {"TTR", "Top thermal radiation [W m-2]"}, + /* 180 */ {"var180", "undefined"}, + /* 181 */ {"var181", "undefined"}, + /* 182 */ {"var182", "undefined"}, + /* 183 */ {"var183", "undefined"}, + /* 184 */ {"SWL3", "Soil wetness level 3 [m]"}, + /* 185 */ {"var185", "undefined"}, + /* 186 */ {"var186", "undefined"}, + /* 187 */ {"var187", "undefined"}, + /* 188 */ {"var188", "undefined"}, + /* 189 */ {"var189", "undefined"}, + /* 190 */ {"var190", "undefined"}, + /* 191 */ {"var191", "undefined"}, + /* 192 */ {"var192", "undefined"}, + /* 193 */ {"var193", "undefined"}, + /* 194 */ {"var194", "undefined"}, + /* 195 */ {"var195", "undefined"}, + /* 196 */ {"var196", "undefined"}, + /* 197 */ {"var197", "undefined"}, + /* 198 */ {"var198", "undefined"}, + /* 199 */ {"var199", "undefined"}, + /* 200 */ {"var200", "undefined"}, + /* 201 */ {"MX2T", "Maximum temperature at 2 metres [K]"}, + /* 202 */ {"MN2T", "Minimum temperature at 2 metres [K]"}, + /* 203 */ {"var203", "undefined"}, + /* 204 */ {"var204", "undefined"}, + /* 205 */ {"var205", "undefined"}, + /* 206 */ {"var206", "undefined"}, + /* 207 */ {"var207", "undefined"}, + /* 208 */ {"var208", "undefined"}, + /* 209 */ {"var209", "undefined"}, + /* 210 */ {"var210", "undefined"}, + /* 211 */ {"var211", "undefined"}, + /* 212 */ {"var212", "undefined"}, + /* 213 */ {"var213", "undefined"}, + /* 214 */ {"var214", "undefined"}, + /* 215 */ {"var215", "undefined"}, + /* 216 */ {"var216", "undefined"}, + /* 217 */ {"var217", "undefined"}, + /* 218 */ {"var218", "undefined"}, + /* 219 */ {"var219", "undefined"}, + /* 220 */ {"var220", "undefined"}, + /* 221 */ {"var221", "undefined"}, + /* 222 */ {"var222", "undefined"}, + /* 223 */ {"var223", "undefined"}, + /* 224 */ {"var224", "undefined"}, + /* 225 */ {"var225", "undefined"}, + /* 226 */ {"var226", "undefined"}, + /* 227 */ {"var227", "undefined"}, + /* 228 */ {"TP", "Total precipitation [m]"}, + /* 229 */ {"var229", "undefined"}, + /* 230 */ {"var230", "undefined"}, + /* 231 */ {"var231", "undefined"}, + /* 232 */ {"var232", "undefined"}, + /* 233 */ {"var233", "undefined"}, + /* 234 */ {"var234", "undefined"}, + /* 235 */ {"var235", "undefined"}, + /* 236 */ {"var236", "undefined"}, + /* 237 */ {"var237", "undefined"}, + /* 238 */ {"var238", "undefined"}, + /* 239 */ {"var239", "undefined"}, + /* 240 */ {"var240", "undefined"}, + /* 241 */ {"var241", "undefined"}, + /* 242 */ {"var242", "undefined"}, + /* 243 */ {"var243", "undefined"}, + /* 244 */ {"var244", "undefined"}, + /* 245 */ {"var245", "undefined"}, + /* 246 */ {"var246", "undefined"}, + /* 247 */ {"var247", "undefined"}, + /* 248 */ {"var248", "undefined"}, + /* 249 */ {"var249", "undefined"}, + /* 250 */ {"var250", "undefined"}, + /* 251 */ {"var251", "undefined"}, + /* 252 */ {"var252", "undefined"}, + /* 253 */ {"var253", "undefined"}, + /* 254 */ {"var254", "undefined"}, + /* 255 */ {"var255", "Indicates a missing value []"}, +}; + +const struct ParmTable parm_table_ecmwf_171[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"STRFA", "Stream function anomaly [m**2 s**-1]"}, + /* 2 */ {"VPOTA", "Velocity potential anomaly [m**2 s**-1]"}, + /* 3 */ {"var3", "Potential temperature [K]"}, + /* 4 */ {"var4", "Equivalent potential temperature [K]"}, + /* 5 */ {"var5", "Saturated equivalent potential temperature [K]"}, + /* 6 */ {"var6", "undefined"}, + /* 7 */ {"var7", "undefined"}, + /* 8 */ {"var8", "undefined"}, + /* 9 */ {"var9", "undefined"}, + /* 10 */ {"var10", "undefined"}, + /* 11 */ {"var11", "U component of divergent wind [m s**-1]"}, + /* 12 */ {"var12", "V component of divergent wind [m s**-1]"}, + /* 13 */ {"var13", "U component of rotational wind [m s**-1]"}, + /* 14 */ {"var14", "V component of rotational wind [m s**-1]"}, + /* 15 */ {"var15", "undefined"}, + /* 16 */ {"var16", "undefined"}, + /* 17 */ {"var17", "undefined"}, + /* 18 */ {"var18", "undefined"}, + /* 19 */ {"var19", "undefined"}, + /* 20 */ {"var20", "undefined"}, + /* 21 */ {"var21", "Unbalanced component of temperature [K]"}, + /* 22 */ {"var22", "Unbalanced component of logarithm of surface pressure []"}, + /* 23 */ {"var23", "Unbalanced component of divergence [s**-1]"}, + /* 24 */ {"var24", "undefined"}, + /* 25 */ {"var25", "undefined"}, + /* 26 */ {"var26", "Lake cover [(0 - 1)]"}, + /* 27 */ {"var27", "Low vegetation cover [(0 - 1)]"}, + /* 28 */ {"var28", "High vegetation cover [(0 - 1)]"}, + /* 29 */ {"var29", "Type of low vegetation []"}, + /* 30 */ {"var30", "Type of high vegetation []"}, + /* 31 */ {"var31", "Sea-ice cover [(0 - 1)]"}, + /* 32 */ {"var32", "Snow albedo [(0 - 1)]"}, + /* 33 */ {"var33", "Snow density [kg m**-3]"}, + /* 34 */ {"var34", "Sea surface temperature [K]"}, + /* 35 */ {"var35", "Ice surface temperature layer 1 [K]"}, + /* 36 */ {"var36", "Ice surface temperature layer 2 [K]"}, + /* 37 */ {"var37", "Ice surface temperature layer 3 [K]"}, + /* 38 */ {"var38", "Ice surface temperature layer 4 [K]"}, + /* 39 */ {"var39", "Volumetric soil water layer 1 [m**3 m**-3]"}, + /* 40 */ {"var40", "Volumetric soil water layer 2 [m**3 m**-3]"}, + /* 41 */ {"var41", "Volumetric soil water layer 3 [m**3 m**-3]"}, + /* 42 */ {"var42", "Volumetric soil water layer 4 [m**3 m**-3]"}, + /* 43 */ {"var43", "Soil type []"}, + /* 44 */ {"var44", "Snow evaporation [m of water]"}, + /* 45 */ {"var45", "Snowmelt [m of water]"}, + /* 46 */ {"var46", "Solar duration [s]"}, + /* 47 */ {"var47", "Direct solar radiation [w m**-2]"}, + /* 48 */ {"var48", "Magnitude of surface stress [N m**-2 s]"}, + /* 49 */ {"var49", "10 metre wind gust [m s**-1]"}, + /* 50 */ {"var50", "Large-scale precipitation fraction [s]"}, + /* 51 */ {"var51", "Maximum 2 metre temperature [K]"}, + /* 52 */ {"var52", "Minimum 2 metre temperature [K]"}, + /* 53 */ {"var53", "Montgomery potential [m**2 s**-2]"}, + /* 54 */ {"var54", "Pressure [Pa]"}, + /* 55 */ {"var55", "Mean 2 metre temperature in past 24 hours [K]"}, + /* 56 */ {"var56", "Mean 2 metre dewpoint temperature in past 24 hours [K]"}, + /* 57 */ {"var57", "Downward UV radiation at the surface [w m**-2]"}, + /* 58 */ {"var58", "Photosynthetically active radiation at the surface [w m**-2]"}, + /* 59 */ {"var59", "Convective available potential energy [J kg**-1]"}, + /* 60 */ {"var60", "Potential vorticity [K m**2 kg**-1 s**-1]"}, + /* 61 */ {"var61", "Total precipitation from observations [Millimetres*100 + number of stations]"}, + /* 62 */ {"var62", "Observation count []"}, + /* 63 */ {"var63", "Start time for skin temperature difference [s]"}, + /* 64 */ {"var64", "Finish time for skin temperature difference [s]"}, + /* 65 */ {"var65", "Skin temperature difference [K]"}, + /* 66 */ {"var66", "undefined"}, + /* 67 */ {"var67", "undefined"}, + /* 68 */ {"var68", "undefined"}, + /* 69 */ {"var69", "undefined"}, + /* 70 */ {"var70", "undefined"}, + /* 71 */ {"var71", "undefined"}, + /* 72 */ {"var72", "undefined"}, + /* 73 */ {"var73", "undefined"}, + /* 74 */ {"var74", "undefined"}, + /* 75 */ {"var75", "undefined"}, + /* 76 */ {"var76", "undefined"}, + /* 77 */ {"var77", "undefined"}, + /* 78 */ {"TCLWA", "Total column liquid water anomaly [kg m**-2]"}, + /* 79 */ {"TCIWA", "Total column ice water anomaly [kg m**-2]"}, + /* 80 */ {"var80", "undefined"}, + /* 81 */ {"var81", "undefined"}, + /* 82 */ {"var82", "undefined"}, + /* 83 */ {"var83", "undefined"}, + /* 84 */ {"var84", "undefined"}, + /* 85 */ {"var85", "undefined"}, + /* 86 */ {"var86", "undefined"}, + /* 87 */ {"var87", "undefined"}, + /* 88 */ {"var88", "undefined"}, + /* 89 */ {"var89", "undefined"}, + /* 90 */ {"var90", "undefined"}, + /* 91 */ {"var91", "undefined"}, + /* 92 */ {"var92", "undefined"}, + /* 93 */ {"var93", "undefined"}, + /* 94 */ {"var94", "undefined"}, + /* 95 */ {"var95", "undefined"}, + /* 96 */ {"var96", "undefined"}, + /* 97 */ {"var97", "undefined"}, + /* 98 */ {"var98", "undefined"}, + /* 99 */ {"var99", "undefined"}, + /* 100 */ {"var100", "undefined"}, + /* 101 */ {"var101", "undefined"}, + /* 102 */ {"var102", "undefined"}, + /* 103 */ {"var103", "undefined"}, + /* 104 */ {"var104", "undefined"}, + /* 105 */ {"var105", "undefined"}, + /* 106 */ {"var106", "undefined"}, + /* 107 */ {"var107", "undefined"}, + /* 108 */ {"var108", "undefined"}, + /* 109 */ {"var109", "undefined"}, + /* 110 */ {"var110", "undefined"}, + /* 111 */ {"var111", "undefined"}, + /* 112 */ {"var112", "undefined"}, + /* 113 */ {"var113", "undefined"}, + /* 114 */ {"var114", "undefined"}, + /* 115 */ {"var115", "undefined"}, + /* 116 */ {"var116", "undefined"}, + /* 117 */ {"var117", "undefined"}, + /* 118 */ {"var118", "undefined"}, + /* 119 */ {"var119", "undefined"}, + /* 120 */ {"var120", "undefined"}, + /* 121 */ {"var121", "undefined"}, + /* 122 */ {"var122", "undefined"}, + /* 123 */ {"var123", "undefined"}, + /* 124 */ {"var124", "undefined"}, + /* 125 */ {"var125", "Vertically integrated total energy [J m**-2]"}, + /* 126 */ {"var126", "Generic parameter for sensitive area prediction [Various]"}, + /* 127 */ {"var127", "Atmospheric tide []"}, + /* 128 */ {"var128", "Budget values []"}, + /* 129 */ {"ZA", "Geopotential anomaly [m**2 s**-2]"}, + /* 130 */ {"TA", "Temperature anomaly [K]"}, + /* 131 */ {"UA", "U velocity anomaly [m s**-1]"}, + /* 132 */ {"VA", "V velocity anomaly [m s**-1]"}, + /* 133 */ {"var133", "Specific humidity [kg kg**-1]"}, + /* 134 */ {"var134", "Surface pressure [Pa]"}, + /* 135 */ {"var135", "Vertical velocity [Pa s**-1]"}, + /* 136 */ {"TCWA", "Total column water [kg m**-2]"}, + /* 137 */ {"TCWVA", "Total column water vapour [kg m**-2]"}, + /* 138 */ {"var138", "Vorticity (relative) [s**-1]"}, + /* 139 */ {"STAL1", "Soil temperature level 1 [K]"}, + /* 140 */ {"var140", "Soil wetness level 1 [m of water]"}, + /* 141 */ {"var141", "Snow depth [m of water equivalent]"}, + /* 142 */ {"var142", "Stratiform precipitation (Large-scale precipitation) [m]"}, + /* 143 */ {"var143", "Convective precipitation [m]"}, + /* 144 */ {"var144", "Snowfall (convective + stratiform) [m of water equivalent]"}, + /* 145 */ {"var145", "Boundary layer dissipation [W m**-2 s]"}, + /* 146 */ {"var146", "Surface sensible heat flux [W m**-2 s]"}, + /* 147 */ {"var147", "Surface latent heat flux [W m**-2 s]"}, + /* 148 */ {"var148", "Charnock []"}, + /* 149 */ {"var149", "Surface net radiation [W m**-2 s]"}, + /* 150 */ {"var150", "Top net radiation []"}, + /* 151 */ {"MSLA", "Mean sea level pressure anomaly [Pa]"}, + /* 152 */ {"var152", "Logarithm of surface pressure []"}, + /* 153 */ {"var153", "Short-wave heating rate [K]"}, + /* 154 */ {"var154", "Long-wave heating rate [K]"}, + /* 155 */ {"var155", "Divergence [s**-1]"}, + /* 156 */ {"var156", "Height [m]"}, + /* 157 */ {"var157", "Relative humidity [%]"}, + /* 158 */ {"var158", "Tendency of surface pressure [Pa s**-1]"}, + /* 159 */ {"var159", "Boundary layer height [m]"}, + /* 160 */ {"var160", "Standard deviation of orography []"}, + /* 161 */ {"var161", "Anisotropy of sub-gridscale orography []"}, + /* 162 */ {"var162", "Angle of sub-gridscale orography [rad]"}, + /* 163 */ {"var163", "Slope of sub-gridscale orography []"}, + /* 164 */ {"TCCA", "Total cloud cover anomaly [(0 - 1)]"}, + /* 165 */ {"10UA", "10 metre U wind component anomaly [m s**-1]"}, + /* 166 */ {"10VA", "10 metre V wind component anomaly [m s**-1]"}, + /* 167 */ {"2TA", "2 metre temperature anomaly [K]"}, + /* 168 */ {"var168", "2 metre dewpoint temperature [K]"}, + /* 169 */ {"var169", "Surface solar radiation downwards [W m**-2 s]"}, + /* 170 */ {"var170", "Soil temperature level 2 [K]"}, + /* 171 */ {"var171", "Soil wetness level 2 [m of water]"}, + /* 172 */ {"var172", "Land-sea mask [(0 - 1)]"}, + /* 173 */ {"var173", "Surface roughness [m]"}, + /* 174 */ {"var174", "Albedo [(0 - 1)]"}, + /* 175 */ {"var175", "Surface thermal radiation downwards [W m**-2 s]"}, + /* 176 */ {"var176", "Surface solar radiation [W m**-2 s]"}, + /* 177 */ {"var177", "Surface thermal radiation [W m**-2 s]"}, + /* 178 */ {"var178", "Top solar radiation [W m**-2 s]"}, + /* 179 */ {"var179", "Top thermal radiation [W m**-2 s]"}, + /* 180 */ {"var180", "East-West surface stress [N m**-2 s]"}, + /* 181 */ {"var181", "North-South surface stress [N m**-2 s]"}, + /* 182 */ {"var182", "Evaporation [m of water]"}, + /* 183 */ {"var183", "Soil temperature level 3 [K]"}, + /* 184 */ {"var184", "Soil wetness level 3 [m of water]"}, + /* 185 */ {"var185", "Convective cloud cover [(0 - 1)]"}, + /* 186 */ {"var186", "Low cloud cover [(0 - 1)]"}, + /* 187 */ {"var187", "Medium cloud cover [(0 - 1)]"}, + /* 188 */ {"var188", "High cloud cover [(0 - 1)]"}, + /* 189 */ {"SUNDA", "Sunshine duration anomaly [s]"}, + /* 190 */ {"var190", "East-West component of sub-gridscale orographic variance [m**2]"}, + /* 191 */ {"var191", "North-South component of sub-gridscale orographic variance [m**2]"}, + /* 192 */ {"var192", "North-West/South-East component of sub-gridscale orographic variance [m**2]"}, + /* 193 */ {"var193", "North-East/South-West component of sub-gridscale orographic variance [m**2]"}, + /* 194 */ {"var194", "Brightness temperature [K]"}, + /* 195 */ {"var195", "Latitudinal component of gravity wave stress [N m**-2 s]"}, + /* 196 */ {"var196", "Meridional component of gravity wave stress [N m**-2 s]"}, + /* 197 */ {"var197", "Gravity wave dissipation [W m**-2 s]"}, + /* 198 */ {"var198", "Skin reservoir content [m of water]"}, + /* 199 */ {"var199", "Vegetation fraction [(0 - 1)]"}, + /* 200 */ {"var200", "Variance of sub-gridscale orography [m**2]"}, + /* 201 */ {"MX2TA", "Maximum temperature at 2 metres anomaly [K]"}, + /* 202 */ {"MN2TA", "Minimum temperature at 2 metres anomaly [K]"}, + /* 203 */ {"var203", "Ozone mass mixing ratio [kg kg**-1]"}, + /* 204 */ {"var204", "Precipitation analysis weights []"}, + /* 205 */ {"var205", "Runoff [m]"}, + /* 206 */ {"var206", "Total column ozone [kg m**-2]"}, + /* 207 */ {"var207", "10 metre wind speed [m s**-1]"}, + /* 208 */ {"var208", "Top net solar radiation, clear sky [W m**-2 s]"}, + /* 209 */ {"var209", "Top net thermal radiation, clear sky [W m**-2 s]"}, + /* 210 */ {"var210", "Surface net solar radiation, clear sky [W m**-2 s]"}, + /* 211 */ {"var211", "Surface net thermal radiation, clear sky [W m**-2 s]"}, + /* 212 */ {"var212", "Solar insolation [W m**-2]"}, + /* 213 */ {"var213", "undefined"}, + /* 214 */ {"var214", "Diabatic heating by radiation [K]"}, + /* 215 */ {"var215", "Diabatic heating by vertical diffusion [K]"}, + /* 216 */ {"var216", "Diabatic heating by cumulus convection [K]"}, + /* 217 */ {"var217", "Diabatic heating by large-scale condensation [K]"}, + /* 218 */ {"var218", "Vertical diffusion of zonal wind [m s**-1]"}, + /* 219 */ {"var219", "Vertical diffusion of meridional wind [m s**-1]"}, + /* 220 */ {"var220", "East-West gravity wave drag tendency [m s**-1]"}, + /* 221 */ {"var221", "North-South gravity wave drag tendency [m s**-1]"}, + /* 222 */ {"var222", "Convective tendency of zonal wind [m s**-1]"}, + /* 223 */ {"var223", "Convective tendency of meridional wind [m s**-1]"}, + /* 224 */ {"var224", "Vertical diffusion of humidity [kg kg**-1]"}, + /* 225 */ {"var225", "Humidity tendency by cumulus convection [kg kg**-1]"}, + /* 226 */ {"var226", "Humidity tendency by large-scale condensation [kg kg**-1]"}, + /* 227 */ {"var227", "Change from removal of negative humidity [kg kg**-1]"}, + /* 228 */ {"TPA", "Total precipitation anomaly [m]"}, + /* 229 */ {"var229", "Instantaneous X surface stress [N m**-2]"}, + /* 230 */ {"var230", "Instantaneous Y surface stress [N m**-2]"}, + /* 231 */ {"var231", "Instantaneous surface heat flux [W m**-2]"}, + /* 232 */ {"var232", "Instantaneous moisture flux [kg m**-2 s]"}, + /* 233 */ {"var233", "Apparent surface humidity [kg kg**-1]"}, + /* 234 */ {"var234", "Logarithm of surface roughness length for heat []"}, + /* 235 */ {"var235", "Skin temperature [K]"}, + /* 236 */ {"var236", "Soil temperature level 4 [K]"}, + /* 237 */ {"var237", "Soil wetness level 4 [m]"}, + /* 238 */ {"var238", "Temperature of snow layer [K]"}, + /* 239 */ {"var239", "Convective snowfall [m of water equivalent]"}, + /* 240 */ {"var240", "Large-scale snowfall [m of water equivalent]"}, + /* 241 */ {"var241", "Accumulated cloud fraction tendency [(-1 to 1)]"}, + /* 242 */ {"var242", "Accumulated liquid water tendency [(-1 to 1)]"}, + /* 243 */ {"var243", "Forecast albedo [(0 - 1)]"}, + /* 244 */ {"var244", "Forecast surface roughness [m]"}, + /* 245 */ {"var245", "Forecast logarithm of surface roughness for heat []"}, + /* 246 */ {"var246", "Cloud liquid water content [kg kg**-1]"}, + /* 247 */ {"var247", "Cloud ice water content [kg kg**-1]"}, + /* 248 */ {"var248", "Cloud cover [(0 - 1)]"}, + /* 249 */ {"var249", "Accumulated ice water tendency [(-1 to 1)]"}, + /* 250 */ {"var250", "Ice age [(0 - 1)]"}, + /* 251 */ {"var251", "Adiabatic tendency of temperature [K]"}, + /* 252 */ {"var252", "Adiabatic tendency of humidity [kg kg**-1]"}, + /* 253 */ {"var253", "Adiabatic tendency of zonal wind [m s**-1]"}, + /* 254 */ {"var254", "Adiabatic tendency of meridional wind [m s**-1]"}, + /* 255 */ {"var255", "Indicates a missing value []"}, +}; + +/* ectable 172 from Geert Jan van Oldenborgh */ + +const struct ParmTable parm_table_ecmwf_172[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"var1", "undefined"}, + /* 2 */ {"var2", "undefined"}, + /* 3 */ {"var3", "undefined"}, + /* 4 */ {"var4", "undefined"}, + /* 5 */ {"var5", "undefined"}, + /* 6 */ {"var6", "undefined"}, + /* 7 */ {"var7", "undefined"}, + /* 8 */ {"var8", "undefined"}, + /* 9 */ {"var9", "undefined"}, + /* 10 */ {"var10", "undefined"}, + /* 11 */ {"var11", "undefined"}, + /* 12 */ {"var12", "undefined"}, + /* 13 */ {"var13", "undefined"}, + /* 14 */ {"var14", "undefined"}, + /* 15 */ {"var15", "undefined"}, + /* 16 */ {"var16", "undefined"}, + /* 17 */ {"var17", "undefined"}, + /* 18 */ {"var18", "undefined"}, + /* 19 */ {"var19", "undefined"}, + /* 20 */ {"var20", "undefined"}, + /* 21 */ {"var21", "undefined"}, + /* 22 */ {"var22", "undefined"}, + /* 23 */ {"var23", "undefined"}, + /* 24 */ {"var24", "undefined"}, + /* 25 */ {"var25", "undefined"}, + /* 26 */ {"var26", "undefined"}, + /* 27 */ {"var27", "undefined"}, + /* 28 */ {"var28", "undefined"}, + /* 29 */ {"var29", "undefined"}, + /* 30 */ {"var30", "undefined"}, + /* 31 */ {"var31", "undefined"}, + /* 32 */ {"var32", "undefined"}, + /* 33 */ {"var33", "undefined"}, + /* 34 */ {"var34", "undefined"}, + /* 35 */ {"var35", "undefined"}, + /* 36 */ {"var36", "undefined"}, + /* 37 */ {"var37", "undefined"}, + /* 38 */ {"var38", "undefined"}, + /* 39 */ {"var39", "undefined"}, + /* 40 */ {"var40", "undefined"}, + /* 41 */ {"var41", "undefined"}, + /* 42 */ {"var42", "undefined"}, + /* 43 */ {"var43", "undefined"}, + /* 44 */ {"SNOE", "Snow evaporation m of water s**-1"}, + /* 45 */ {"SNOM", "Snow melt m of water s**-1"}, + /* 46 */ {"var46", "undefined"}, + /* 47 */ {"var47", "undefined"}, + /* 48 */ {"MSS", "magnitude of surface stress N m**-2"}, + /* 49 */ {"var49", "undefined"}, + /* 50 */ {"", "Large-scale precipitation fraction -"}, + /* 51 */ {"var51", "undefined"}, + /* 52 */ {"var52", "undefined"}, + /* 53 */ {"var53", "undefined"}, + /* 54 */ {"var54", "undefined"}, + /* 55 */ {"var55", "undefined"}, + /* 56 */ {"var56", "undefined"}, + /* 57 */ {"var57", "undefined"}, + /* 58 */ {"var58", "undefined"}, + /* 59 */ {"var59", "undefined"}, + /* 60 */ {"var60", "undefined"}, + /* 61 */ {"var61", "undefined"}, + /* 62 */ {"var62", "undefined"}, + /* 63 */ {"var63", "undefined"}, + /* 64 */ {"var64", "undefined"}, + /* 65 */ {"var65", "undefined"}, + /* 66 */ {"var66", "undefined"}, + /* 67 */ {"var67", "undefined"}, + /* 68 */ {"var68", "undefined"}, + /* 69 */ {"var69", "undefined"}, + /* 70 */ {"var70", "undefined"}, + /* 71 */ {"var71", "undefined"}, + /* 72 */ {"var72", "undefined"}, + /* 73 */ {"var73", "undefined"}, + /* 74 */ {"var74", "undefined"}, + /* 75 */ {"var75", "undefined"}, + /* 76 */ {"var76", "undefined"}, + /* 77 */ {"var77", "undefined"}, + /* 78 */ {"var78", "undefined"}, + /* 79 */ {"var79", "undefined"}, + /* 80 */ {"var80", "undefined"}, + /* 81 */ {"var81", "undefined"}, + /* 82 */ {"var82", "undefined"}, + /* 83 */ {"var83", "undefined"}, + /* 84 */ {"var84", "undefined"}, + /* 85 */ {"var85", "undefined"}, + /* 86 */ {"var86", "undefined"}, + /* 87 */ {"var87", "undefined"}, + /* 88 */ {"var88", "undefined"}, + /* 89 */ {"var89", "undefined"}, + /* 90 */ {"var90", "undefined"}, + /* 91 */ {"var91", "undefined"}, + /* 92 */ {"var92", "undefined"}, + /* 93 */ {"var93", "undefined"}, + /* 94 */ {"var94", "undefined"}, + /* 95 */ {"var95", "undefined"}, + /* 96 */ {"var96", "undefined"}, + /* 97 */ {"var97", "undefined"}, + /* 98 */ {"var98", "undefined"}, + /* 99 */ {"var99", "undefined"}, + /* 100 */ {"var100", "undefined"}, + /* 101 */ {"var101", "undefined"}, + /* 102 */ {"var102", "undefined"}, + /* 103 */ {"var103", "undefined"}, + /* 104 */ {"var104", "undefined"}, + /* 105 */ {"var105", "undefined"}, + /* 106 */ {"var106", "undefined"}, + /* 107 */ {"var107", "undefined"}, + /* 108 */ {"var108", "undefined"}, + /* 109 */ {"var109", "undefined"}, + /* 110 */ {"var110", "undefined"}, + /* 111 */ {"var111", "undefined"}, + /* 112 */ {"var112", "undefined"}, + /* 113 */ {"var113", "undefined"}, + /* 114 */ {"var114", "undefined"}, + /* 115 */ {"var115", "undefined"}, + /* 116 */ {"var116", "undefined"}, + /* 117 */ {"var117", "undefined"}, + /* 118 */ {"var118", "undefined"}, + /* 119 */ {"var119", "undefined"}, + /* 120 */ {"var120", "undefined"}, + /* 121 */ {"var121", "undefined"}, + /* 122 */ {"var122", "undefined"}, + /* 123 */ {"var123", "undefined"}, + /* 124 */ {"var124", "undefined"}, + /* 125 */ {"var125", "undefined"}, + /* 126 */ {"var126", "undefined"}, + /* 127 */ {"var127", "undefined"}, + /* 128 */ {"var128", "undefined"}, + /* 129 */ {"var129", "undefined"}, + /* 130 */ {"var130", "undefined"}, + /* 131 */ {"var131", "undefined"}, + /* 132 */ {"var132", "undefined"}, + /* 133 */ {"var133", "undefined"}, + /* 134 */ {"var134", "undefined"}, + /* 135 */ {"var135", "undefined"}, + /* 136 */ {"var136", "undefined"}, + /* 137 */ {"var137", "undefined"}, + /* 138 */ {"var138", "undefined"}, + /* 139 */ {"var139", "undefined"}, + /* 140 */ {"var140", "undefined"}, + /* 141 */ {"var141", "undefined"}, + /* 142 */ {"LSP", "Large scale precipitation m s**-1"}, + /* 143 */ {"CP", "Convective precipitation m s**-1"}, + /* 144 */ {"SF", "Snowfall (convective + stratiform) m of water equivalent s**-1"}, + /* 145 */ {"BLD", "Boundary layer dissipation W m**-2"}, + /* 146 */ {"SSHF", "Surface sensible heat flux W m**-2"}, + /* 147 */ {"SLHF", "Surface latent heat flux W m**-2"}, + /* 148 */ {"SNR", "Surface net radiation W m**-2"}, + /* 149 */ {"var149", "undefined"}, + /* 150 */ {"var150", "undefined"}, + /* 151 */ {"var151", "undefined"}, + /* 152 */ {"var152", "undefined"}, + /* 153 */ {"SWHR", "Short-wave heating rate K s**-1"}, + /* 154 */ {"LWHR", "Long-wave heating rate K s**-1"}, + /* 155 */ {"var155", "undefined"}, + /* 156 */ {"var156", "undefined"}, + /* 157 */ {"var157", "undefined"}, + /* 158 */ {"var158", "undefined"}, + /* 159 */ {"var159", "undefined"}, + /* 160 */ {"var160", "undefined"}, + /* 161 */ {"var161", "undefined"}, + /* 162 */ {"var162", "undefined"}, + /* 163 */ {"var163", "undefined"}, + /* 164 */ {"var164", "undefined"}, + /* 165 */ {"var165", "undefined"}, + /* 166 */ {"var166", "undefined"}, + /* 167 */ {"var167", "undefined"}, + /* 168 */ {"var168", "undefined"}, + /* 169 */ {"SSRD", "Surface solar radiation downwards W m**-2"}, + /* 170 */ {"var170", "undefined"}, + /* 171 */ {"var171", "undefined"}, + /* 172 */ {"var172", "undefined"}, + /* 173 */ {"var173", "undefined"}, + /* 174 */ {"var174", "undefined"}, + /* 175 */ {"STRD", "Surface thermal radiation downwards W m**-2"}, + /* 176 */ {"SSR", "Surface solar radiation W m**-2"}, + /* 177 */ {"STR", "Surface thermal radiation W m**-2"}, + /* 178 */ {"TSR", "Top solar radiation W m**-2"}, + /* 179 */ {"TTR", "Top thermal radiation W m-2"}, + /* 180 */ {"EWSS", "East-West surface stress N m**-2"}, + /* 181 */ {"NSSS", "North-South surface stress N m**-2"}, + /* 182 */ {"E", "Evaporation m of water s**-1"}, + /* 183 */ {"var183", "undefined"}, + /* 184 */ {"var184", "undefined"}, + /* 185 */ {"var185", "undefined"}, + /* 186 */ {"var186", "undefined"}, + /* 187 */ {"var187", "undefined"}, + /* 188 */ {"var188", "undefined"}, + /* 189 */ {"SUND", "Sunshine duration"}, + /* 190 */ {"var190", "undefined"}, + /* 191 */ {"var191", "undefined"}, + /* 192 */ {"var192", "undefined"}, + /* 193 */ {"var193", "undefined"}, + /* 194 */ {"var194", "undefined"}, + /* 195 */ {"LGWS", "Latitudinal component of gravity wave stress N m**-2"}, + /* 196 */ {"MGWS", "Meridional component of gravity wave stress N m**-2"}, + /* 197 */ {"GWD", "Gravity wave dissipation W m**-2"}, + /* 198 */ {"var198", "undefined"}, + /* 199 */ {"var199", "undefined"}, + /* 200 */ {"var200", "undefined"}, + /* 201 */ {"var201", "undefined"}, + /* 202 */ {"var202", "undefined"}, + /* 203 */ {"var203", "undefined"}, + /* 204 */ {"var204", "undefined"}, + /* 205 */ {"RO", "Runoff m s**-1"}, + /* 206 */ {"var206", "undefined"}, + /* 207 */ {"var207", "undefined"}, + /* 208 */ {"TSRC", "Top net solar radiation, clear sky W m**-2"}, + /* 209 */ {"TTRC", "Top net thermal radiation, clear sky W m**-2"}, + /* 210 */ {"SSRC", "Surface net solar radiation, clear sky W m**-2"}, + /* 211 */ {"STRC", "Surface net thermal radiation, clear sky W m**-2"}, + /* 212 */ {"SI", "Solar insolation W m**-2"}, + /* 213 */ {"var213", "undefined"}, + /* 214 */ {"var214", "undefined"}, + /* 215 */ {"var215", "undefined"}, + /* 216 */ {"var216", "undefined"}, + /* 217 */ {"var217", "undefined"}, + /* 218 */ {"var218", "undefined"}, + /* 219 */ {"var219", "undefined"}, + /* 220 */ {"var220", "undefined"}, + /* 221 */ {"var221", "undefined"}, + /* 222 */ {"var222", "undefined"}, + /* 223 */ {"var223", "undefined"}, + /* 224 */ {"var224", "undefined"}, + /* 225 */ {"var225", "undefined"}, + /* 226 */ {"var226", "undefined"}, + /* 227 */ {"var227", "undefined"}, + /* 228 */ {"TP", "Total precipitation m s**-1"}, + /* 229 */ {"var229", "undefined"}, + /* 230 */ {"var230", "undefined"}, + /* 231 */ {"var231", "undefined"}, + /* 232 */ {"var232", "undefined"}, + /* 233 */ {"var233", "undefined"}, + /* 234 */ {"var234", "undefined"}, + /* 235 */ {"var235", "undefined"}, + /* 236 */ {"var236", "undefined"}, + /* 237 */ {"var237", "undefined"}, + /* 238 */ {"var238", "undefined"}, + /* 239 */ {"CSF", "Convective snowfall m of water equivalent s**-1"}, + /* 240 */ {"LSF", "Large-scale snowfall m of water equivalent s**-1"}, + /* 241 */ {"var241", "undefined"}, + /* 242 */ {"var242", "undefined"}, + /* 243 */ {"var243", "undefined"}, + /* 244 */ {"var244", "undefined"}, + /* 245 */ {"var245", "undefined"}, + /* 246 */ {"var246", "undefined"}, + /* 247 */ {"var247", "undefined"}, + /* 248 */ {"var248", "undefined"}, + /* 249 */ {"var249", "undefined"}, + /* 250 */ {"var250", "undefined"}, + /* 251 */ {"var251", "undefined"}, + /* 252 */ {"var252", "undefined"}, + /* 253 */ {"var253", "undefined"}, + /* 254 */ {"var254", "undefined"}, + /* 255 */ {"var255", "undefined"}, +}; + + +const struct ParmTable parm_table_ecmwf_173[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"var1", "undefined"}, + /* 2 */ {"var2", "undefined"}, + /* 3 */ {"var3", "undefined"}, + /* 4 */ {"var4", "undefined"}, + /* 5 */ {"var5", "undefined"}, + /* 6 */ {"var6", "undefined"}, + /* 7 */ {"var7", "undefined"}, + /* 8 */ {"var8", "undefined"}, + /* 9 */ {"var9", "undefined"}, + /* 10 */ {"var10", "undefined"}, + /* 11 */ {"var11", "undefined"}, + /* 12 */ {"var12", "undefined"}, + /* 13 */ {"var13", "undefined"}, + /* 14 */ {"var14", "undefined"}, + /* 15 */ {"var15", "undefined"}, + /* 16 */ {"var16", "undefined"}, + /* 17 */ {"var17", "undefined"}, + /* 18 */ {"var18", "undefined"}, + /* 19 */ {"var19", "undefined"}, + /* 20 */ {"var20", "undefined"}, + /* 21 */ {"var21", "undefined"}, + /* 22 */ {"var22", "undefined"}, + /* 23 */ {"var23", "undefined"}, + /* 24 */ {"var24", "undefined"}, + /* 25 */ {"var25", "undefined"}, + /* 26 */ {"var26", "undefined"}, + /* 27 */ {"var27", "undefined"}, + /* 28 */ {"var28", "undefined"}, + /* 29 */ {"var29", "undefined"}, + /* 30 */ {"var30", "undefined"}, + /* 31 */ {"var31", "undefined"}, + /* 32 */ {"var32", "undefined"}, + /* 33 */ {"var33", "undefined"}, + /* 34 */ {"var34", "undefined"}, + /* 35 */ {"var35", "undefined"}, + /* 36 */ {"var36", "undefined"}, + /* 37 */ {"var37", "undefined"}, + /* 38 */ {"var38", "undefined"}, + /* 39 */ {"var39", "undefined"}, + /* 40 */ {"var40", "undefined"}, + /* 41 */ {"var41", "undefined"}, + /* 42 */ {"var42", "undefined"}, + /* 43 */ {"var43", "undefined"}, + /* 44 */ {"var44", "Snow evaporation anomaly [m of water s**-1]"}, + /* 45 */ {"var45", "Snowmelt anomaly [m of water s**-1]"}, + /* 46 */ {"var46", "undefined"}, + /* 47 */ {"var47", "undefined"}, + /* 48 */ {"var48", "Magnitude of surface stress anomaly [N m**-2]"}, + /* 49 */ {"var49", "undefined"}, + /* 50 */ {"var50", "Large-scale precipitation fraction anomaly []"}, + /* 51 */ {"var51", "undefined"}, + /* 52 */ {"var52", "undefined"}, + /* 53 */ {"var53", "undefined"}, + /* 54 */ {"var54", "undefined"}, + /* 55 */ {"var55", "undefined"}, + /* 56 */ {"var56", "undefined"}, + /* 57 */ {"var57", "undefined"}, + /* 58 */ {"var58", "undefined"}, + /* 59 */ {"var59", "undefined"}, + /* 60 */ {"var60", "undefined"}, + /* 61 */ {"var61", "undefined"}, + /* 62 */ {"var62", "undefined"}, + /* 63 */ {"var63", "undefined"}, + /* 64 */ {"var64", "undefined"}, + /* 65 */ {"var65", "undefined"}, + /* 66 */ {"var66", "undefined"}, + /* 67 */ {"var67", "undefined"}, + /* 68 */ {"var68", "undefined"}, + /* 69 */ {"var69", "undefined"}, + /* 70 */ {"var70", "undefined"}, + /* 71 */ {"var71", "undefined"}, + /* 72 */ {"var72", "undefined"}, + /* 73 */ {"var73", "undefined"}, + /* 74 */ {"var74", "undefined"}, + /* 75 */ {"var75", "undefined"}, + /* 76 */ {"var76", "undefined"}, + /* 77 */ {"var77", "undefined"}, + /* 78 */ {"var78", "undefined"}, + /* 79 */ {"var79", "undefined"}, + /* 80 */ {"var80", "undefined"}, + /* 81 */ {"var81", "undefined"}, + /* 82 */ {"var82", "undefined"}, + /* 83 */ {"var83", "undefined"}, + /* 84 */ {"var84", "undefined"}, + /* 85 */ {"var85", "undefined"}, + /* 86 */ {"var86", "undefined"}, + /* 87 */ {"var87", "undefined"}, + /* 88 */ {"var88", "undefined"}, + /* 89 */ {"var89", "undefined"}, + /* 90 */ {"var90", "undefined"}, + /* 91 */ {"var91", "undefined"}, + /* 92 */ {"var92", "undefined"}, + /* 93 */ {"var93", "undefined"}, + /* 94 */ {"var94", "undefined"}, + /* 95 */ {"var95", "undefined"}, + /* 96 */ {"var96", "undefined"}, + /* 97 */ {"var97", "undefined"}, + /* 98 */ {"var98", "undefined"}, + /* 99 */ {"var99", "undefined"}, + /* 100 */ {"var100", "undefined"}, + /* 101 */ {"var101", "undefined"}, + /* 102 */ {"var102", "undefined"}, + /* 103 */ {"var103", "undefined"}, + /* 104 */ {"var104", "undefined"}, + /* 105 */ {"var105", "undefined"}, + /* 106 */ {"var106", "undefined"}, + /* 107 */ {"var107", "undefined"}, + /* 108 */ {"var108", "undefined"}, + /* 109 */ {"var109", "undefined"}, + /* 110 */ {"var110", "undefined"}, + /* 111 */ {"var111", "undefined"}, + /* 112 */ {"var112", "undefined"}, + /* 113 */ {"var113", "undefined"}, + /* 114 */ {"var114", "undefined"}, + /* 115 */ {"var115", "undefined"}, + /* 116 */ {"var116", "undefined"}, + /* 117 */ {"var117", "undefined"}, + /* 118 */ {"var118", "undefined"}, + /* 119 */ {"var119", "undefined"}, + /* 120 */ {"var120", "undefined"}, + /* 121 */ {"var121", "undefined"}, + /* 122 */ {"var122", "undefined"}, + /* 123 */ {"var123", "undefined"}, + /* 124 */ {"var124", "undefined"}, + /* 125 */ {"var125", "undefined"}, + /* 126 */ {"var126", "undefined"}, + /* 127 */ {"var127", "undefined"}, + /* 128 */ {"var128", "undefined"}, + /* 129 */ {"var129", "undefined"}, + /* 130 */ {"var130", "undefined"}, + /* 131 */ {"var131", "undefined"}, + /* 132 */ {"var132", "undefined"}, + /* 133 */ {"var133", "undefined"}, + /* 134 */ {"var134", "undefined"}, + /* 135 */ {"var135", "undefined"}, + /* 136 */ {"var136", "undefined"}, + /* 137 */ {"var137", "undefined"}, + /* 138 */ {"var138", "undefined"}, + /* 139 */ {"var139", "undefined"}, + /* 140 */ {"var140", "undefined"}, + /* 141 */ {"var141", "undefined"}, + /* 142 */ {"var142", "Stratiform precipitation (Large-scale precipitation) anomaly [m s**-1]"}, + /* 143 */ {"var143", "Convective precipitation anomaly [m s**-1]"}, + /* 144 */ {"SFARA", "Snowfall (convective + stratiform) anomalous rate of accumulation [m of water equivalent s**-1]"}, + /* 145 */ {"var145", "Boundary layer dissipation anomaly [W m**-2]"}, + /* 146 */ {"var146", "Surface sensible heat flux anomaly [W m**-2]"}, + /* 147 */ {"var147", "Surface latent heat flux anomaly [W m**-2]"}, + /* 148 */ {"var148", "undefined"}, + /* 149 */ {"var149", "Surface net radiation anomaly [W m**-2]"}, + /* 150 */ {"var150", "undefined"}, + /* 151 */ {"var151", "undefined"}, + /* 152 */ {"var152", "undefined"}, + /* 153 */ {"var153", "Short-wave heating rate anomaly [K s**-1]"}, + /* 154 */ {"var154", "Long-wave heating rate anomaly [K s**-1]"}, + /* 155 */ {"var155", "undefined"}, + /* 156 */ {"var156", "undefined"}, + /* 157 */ {"var157", "undefined"}, + /* 158 */ {"var158", "undefined"}, + /* 159 */ {"var159", "undefined"}, + /* 160 */ {"var160", "undefined"}, + /* 161 */ {"var161", "undefined"}, + /* 162 */ {"var162", "undefined"}, + /* 163 */ {"var163", "undefined"}, + /* 164 */ {"var164", "undefined"}, + /* 165 */ {"var165", "undefined"}, + /* 166 */ {"var166", "undefined"}, + /* 167 */ {"var167", "undefined"}, + /* 168 */ {"var168", "undefined"}, + /* 169 */ {"var169", "Surface solar radiation downwards anomaly [W m**-2]"}, + /* 170 */ {"var170", "undefined"}, + /* 171 */ {"var171", "undefined"}, + /* 172 */ {"var172", "undefined"}, + /* 173 */ {"var173", "undefined"}, + /* 174 */ {"var174", "undefined"}, + /* 175 */ {"var175", "Surface thermal radiation downwards anomaly [W m**-2]"}, + /* 176 */ {"var176", "Surface solar radiation anomaly [W m**-2]"}, + /* 177 */ {"var177", "Surface thermal radiation anomaly [W m**-2]"}, + /* 178 */ {"var178", "Top solar radiation anomaly [W m**-2]"}, + /* 179 */ {"var179", "Top thermal radiation anomaly [W m**-2]"}, + /* 180 */ {"var180", "East-West surface stress anomaly [N m**-2]"}, + /* 181 */ {"var181", "North-South surface stress anomaly [N m**-2]"}, + /* 182 */ {"var182", "Evaporation anomaly [m of water s**-1]"}, + /* 183 */ {"var183", "undefined"}, + /* 184 */ {"var184", "undefined"}, + /* 185 */ {"var185", "undefined"}, + /* 186 */ {"var186", "undefined"}, + /* 187 */ {"var187", "undefined"}, + /* 188 */ {"var188", "undefined"}, + /* 189 */ {"SUNDARA", "Sunshine duration anomalous rate of accumulation [dimensionless]"}, + /* 190 */ {"var190", "undefined"}, + /* 191 */ {"var191", "undefined"}, + /* 192 */ {"var192", "undefined"}, + /* 193 */ {"var193", "undefined"}, + /* 194 */ {"var194", "undefined"}, + /* 195 */ {"var195", "Latitudinal component of gravity wave stress anomaly [N m**-2]"}, + /* 196 */ {"var196", "Meridional component of gravity wave stress anomaly [N m**-2]"}, + /* 197 */ {"var197", "Gravity wave dissipation anomaly [W m**-2]"}, + /* 198 */ {"var198", "undefined"}, + /* 199 */ {"var199", "undefined"}, + /* 200 */ {"var200", "undefined"}, + /* 201 */ {"var201", "undefined"}, + /* 202 */ {"var202", "undefined"}, + /* 203 */ {"var203", "undefined"}, + /* 204 */ {"var204", "undefined"}, + /* 205 */ {"var205", "Runoff anomaly [m s**-1]"}, + /* 206 */ {"var206", "undefined"}, + /* 207 */ {"var207", "undefined"}, + /* 208 */ {"var208", "Top net solar radiation, clear sky anomaly [W m**-2]"}, + /* 209 */ {"var209", "Top net thermal radiation, clear sky anomaly [W m**-2]"}, + /* 210 */ {"var210", "Surface net solar radiation, clear sky anomaly [W m**-2]"}, + /* 211 */ {"var211", "Surface net thermal radiation, clear sky anomaly [W m**-2]"}, + /* 212 */ {"var212", "Solar insolation anomaly [W m**-2 s**-1]"}, + /* 213 */ {"var213", "undefined"}, + /* 214 */ {"var214", "undefined"}, + /* 215 */ {"var215", "undefined"}, + /* 216 */ {"var216", "undefined"}, + /* 217 */ {"var217", "undefined"}, + /* 218 */ {"var218", "undefined"}, + /* 219 */ {"var219", "undefined"}, + /* 220 */ {"var220", "undefined"}, + /* 221 */ {"var221", "undefined"}, + /* 222 */ {"var222", "undefined"}, + /* 223 */ {"var223", "undefined"}, + /* 224 */ {"var224", "undefined"}, + /* 225 */ {"var225", "undefined"}, + /* 226 */ {"var226", "undefined"}, + /* 227 */ {"var227", "undefined"}, + /* 228 */ {"TPARA", "Total precipitation anomalous rate of accumulation [m s**-1]"}, + /* 229 */ {"var229", "undefined"}, + /* 230 */ {"var230", "undefined"}, + /* 231 */ {"var231", "undefined"}, + /* 232 */ {"var232", "undefined"}, + /* 233 */ {"var233", "undefined"}, + /* 234 */ {"var234", "undefined"}, + /* 235 */ {"var235", "undefined"}, + /* 236 */ {"var236", "undefined"}, + /* 237 */ {"var237", "undefined"}, + /* 238 */ {"var238", "undefined"}, + /* 239 */ {"var239", "Convective snowfall anomaly [m of water equivalent s**-1]"}, + /* 240 */ {"var240", "Large-scale snowfall anomaly [m of water equivalent s**-1]"}, + /* 241 */ {"var241", "undefined"}, + /* 242 */ {"var242", "undefined"}, + /* 243 */ {"var243", "undefined"}, + /* 244 */ {"var244", "undefined"}, + /* 245 */ {"var245", "undefined"}, + /* 246 */ {"var246", "undefined"}, + /* 247 */ {"var247", "undefined"}, + /* 248 */ {"var248", "undefined"}, + /* 249 */ {"var249", "undefined"}, + /* 250 */ {"var250", "undefined"}, + /* 251 */ {"var251", "undefined"}, + /* 252 */ {"var252", "undefined"}, + /* 253 */ {"var253", "undefined"}, + /* 254 */ {"var254", "undefined"}, + /* 255 */ {"var255", "Indicates a missing value []"}, +}; + +const struct ParmTable parm_table_ecmwf_174[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"var1", "undefined"}, + /* 2 */ {"var2", "undefined"}, + /* 3 */ {"var3", "undefined"}, + /* 4 */ {"var4", "undefined"}, + /* 5 */ {"var5", "undefined"}, + /* 6 */ {"var6", "Total soil moisture [m]"}, + /* 7 */ {"var7", "undefined"}, + /* 8 */ {"SRO", "Surface runoff [kg m**-2]"}, + /* 9 */ {"SSRO", "Sub-surface runoff [kg m**-2]"}, + /* 10 */ {"var10", "undefined"}, + /* 11 */ {"var11", "undefined"}, + /* 12 */ {"var12", "undefined"}, + /* 13 */ {"var13", "undefined"}, + /* 14 */ {"var14", "undefined"}, + /* 15 */ {"var15", "undefined"}, + /* 16 */ {"var16", "undefined"}, + /* 17 */ {"var17", "undefined"}, + /* 18 */ {"var18", "undefined"}, + /* 19 */ {"var19", "undefined"}, + /* 20 */ {"var20", "undefined"}, + /* 21 */ {"var21", "undefined"}, + /* 22 */ {"var22", "undefined"}, + /* 23 */ {"var23", "undefined"}, + /* 24 */ {"var24", "undefined"}, + /* 25 */ {"var25", "undefined"}, + /* 26 */ {"var26", "undefined"}, + /* 27 */ {"var27", "undefined"}, + /* 28 */ {"var28", "undefined"}, + /* 29 */ {"var29", "undefined"}, + /* 30 */ {"var30", "undefined"}, + /* 31 */ {"var31", "Fraction of sea-ice in sea [(0 - 1)]"}, + /* 32 */ {"var32", "undefined"}, + /* 33 */ {"var33", "undefined"}, + /* 34 */ {"var34", "Open-sea surface temperature [K]"}, + /* 35 */ {"var35", "undefined"}, + /* 36 */ {"var36", "undefined"}, + /* 37 */ {"var37", "undefined"}, + /* 38 */ {"var38", "undefined"}, + /* 39 */ {"var39", "Volumetric soil water layer 1 [m**3 m**-3]"}, + /* 40 */ {"var40", "Volumetric soil water layer 2 [m**3 m**-3]"}, + /* 41 */ {"var41", "Volumetric soil water layer 3 [m**3 m**-3]"}, + /* 42 */ {"var42", "Volumetric soil water layer 4 [m**3 m**-3]"}, + /* 43 */ {"var43", "undefined"}, + /* 44 */ {"var44", "undefined"}, + /* 45 */ {"var45", "undefined"}, + /* 46 */ {"var46", "undefined"}, + /* 47 */ {"var47", "undefined"}, + /* 48 */ {"var48", "undefined"}, + /* 49 */ {"var49", "10 metre wind gust over last 24 hours [m s**-1]"}, + /* 50 */ {"var50", "undefined"}, + /* 51 */ {"var51", "undefined"}, + /* 52 */ {"var52", "undefined"}, + /* 53 */ {"var53", "undefined"}, + /* 54 */ {"var54", "undefined"}, + /* 55 */ {"var55", "1.5m temperature - mean over last 24 hours [K]"}, + /* 56 */ {"var56", "undefined"}, + /* 57 */ {"var57", "undefined"}, + /* 58 */ {"var58", "undefined"}, + /* 59 */ {"var59", "undefined"}, + /* 60 */ {"var60", "undefined"}, + /* 61 */ {"var61", "undefined"}, + /* 62 */ {"var62", "undefined"}, + /* 63 */ {"var63", "undefined"}, + /* 64 */ {"var64", "undefined"}, + /* 65 */ {"var65", "undefined"}, + /* 66 */ {"var66", "undefined"}, + /* 67 */ {"var67", "undefined"}, + /* 68 */ {"var68", "undefined"}, + /* 69 */ {"var69", "undefined"}, + /* 70 */ {"var70", "undefined"}, + /* 71 */ {"var71", "undefined"}, + /* 72 */ {"var72", "undefined"}, + /* 73 */ {"var73", "undefined"}, + /* 74 */ {"var74", "undefined"}, + /* 75 */ {"var75", "undefined"}, + /* 76 */ {"var76", "undefined"}, + /* 77 */ {"var77", "undefined"}, + /* 78 */ {"var78", "undefined"}, + /* 79 */ {"var79", "undefined"}, + /* 80 */ {"var80", "undefined"}, + /* 81 */ {"var81", "undefined"}, + /* 82 */ {"var82", "undefined"}, + /* 83 */ {"var83", "Net primary productivity [kg C m**-2 s**-1]"}, + /* 84 */ {"var84", "undefined"}, + /* 85 */ {"var85", "10m U wind over land [m s**-1]"}, + /* 86 */ {"var86", "10m V wind over land [m s**-1]"}, + /* 87 */ {"var87", "1.5m temperature over land [K]"}, + /* 88 */ {"var88", "1.5m dewpoint temperature over land [K]"}, + /* 89 */ {"var89", "Top incoming solar radiation [W m**-2 s]"}, + /* 90 */ {"var90", "Top outgoing solar radiation [W m**-2 s]"}, + /* 91 */ {"var91", "undefined"}, + /* 92 */ {"var92", "undefined"}, + /* 93 */ {"var93", "undefined"}, + /* 94 */ {"var94", "Mean sea surface temperature [K]"}, + /* 95 */ {"var95", "1.5m specific humidity [kg kg**-1]"}, + /* 96 */ {"var96", "undefined"}, + /* 97 */ {"var97", "undefined"}, + /* 98 */ {"var98", "Sea-ice thickness [m]"}, + /* 99 */ {"var99", "Liquid water potential temperature [K]"}, + /* 100 */ {"var100", "undefined"}, + /* 101 */ {"var101", "undefined"}, + /* 102 */ {"var102", "undefined"}, + /* 103 */ {"var103", "undefined"}, + /* 104 */ {"var104", "undefined"}, + /* 105 */ {"var105", "undefined"}, + /* 106 */ {"var106", "undefined"}, + /* 107 */ {"var107", "undefined"}, + /* 108 */ {"var108", "undefined"}, + /* 109 */ {"var109", "undefined"}, + /* 110 */ {"var110", "Ocean ice concentration [(0 - 1)]"}, + /* 111 */ {"var111", "Ocean mean ice depth [m]"}, + /* 112 */ {"var112", "undefined"}, + /* 113 */ {"var113", "undefined"}, + /* 114 */ {"var114", "undefined"}, + /* 115 */ {"var115", "undefined"}, + /* 116 */ {"var116", "undefined"}, + /* 117 */ {"var117", "undefined"}, + /* 118 */ {"var118", "undefined"}, + /* 119 */ {"var119", "undefined"}, + /* 120 */ {"var120", "undefined"}, + /* 121 */ {"var121", "undefined"}, + /* 122 */ {"var122", "undefined"}, + /* 123 */ {"var123", "undefined"}, + /* 124 */ {"var124", "undefined"}, + /* 125 */ {"var125", "undefined"}, + /* 126 */ {"var126", "undefined"}, + /* 127 */ {"var127", "undefined"}, + /* 128 */ {"var128", "undefined"}, + /* 129 */ {"var129", "undefined"}, + /* 130 */ {"var130", "undefined"}, + /* 131 */ {"var131", "undefined"}, + /* 132 */ {"var132", "undefined"}, + /* 133 */ {"var133", "undefined"}, + /* 134 */ {"var134", "undefined"}, + /* 135 */ {"var135", "undefined"}, + /* 136 */ {"var136", "undefined"}, + /* 137 */ {"var137", "undefined"}, + /* 138 */ {"var138", "undefined"}, + /* 139 */ {"var139", "Soil temperature layer 1 [K]"}, + /* 140 */ {"var140", "undefined"}, + /* 141 */ {"var141", "undefined"}, + /* 142 */ {"var142", "undefined"}, + /* 143 */ {"var143", "undefined"}, + /* 144 */ {"var144", "undefined"}, + /* 145 */ {"var145", "undefined"}, + /* 146 */ {"var146", "undefined"}, + /* 147 */ {"var147", "undefined"}, + /* 148 */ {"var148", "undefined"}, + /* 149 */ {"var149", "undefined"}, + /* 150 */ {"var150", "undefined"}, + /* 151 */ {"var151", "undefined"}, + /* 152 */ {"var152", "undefined"}, + /* 153 */ {"var153", "undefined"}, + /* 154 */ {"var154", "undefined"}, + /* 155 */ {"var155", "undefined"}, + /* 156 */ {"var156", "undefined"}, + /* 157 */ {"var157", "undefined"}, + /* 158 */ {"var158", "undefined"}, + /* 159 */ {"var159", "undefined"}, + /* 160 */ {"var160", "undefined"}, + /* 161 */ {"var161", "undefined"}, + /* 162 */ {"var162", "undefined"}, + /* 163 */ {"var163", "undefined"}, + /* 164 */ {"var164", "Average potential temperature in upper 293.4m [degrees C]"}, + /* 165 */ {"var165", "undefined"}, + /* 166 */ {"var166", "undefined"}, + /* 167 */ {"var167", "1.5m temperature [K]"}, + /* 168 */ {"var168", "1.5m dewpoint temperature [K]"}, + /* 169 */ {"var169", "undefined"}, + /* 170 */ {"var170", "Soil temperature layer 2 [K]"}, + /* 171 */ {"var171", "undefined"}, + /* 172 */ {"var172", "Fractional land mask [(0 - 1)]"}, + /* 173 */ {"var173", "undefined"}, + /* 174 */ {"var174", "undefined"}, + /* 175 */ {"var175", "Average salinity in upper 293.4m [psu]"}, + /* 176 */ {"var176", "undefined"}, + /* 177 */ {"var177", "undefined"}, + /* 178 */ {"var178", "undefined"}, + /* 179 */ {"var179", "undefined"}, + /* 180 */ {"var180", "undefined"}, + /* 181 */ {"var181", "undefined"}, + /* 182 */ {"var182", "undefined"}, + /* 183 */ {"var183", "Soil temperature layer 3 [K]"}, + /* 184 */ {"var184", "undefined"}, + /* 185 */ {"var185", "undefined"}, + /* 186 */ {"var186", "undefined"}, + /* 187 */ {"var187", "undefined"}, + /* 188 */ {"var188", "undefined"}, + /* 189 */ {"var189", "undefined"}, + /* 190 */ {"var190", "undefined"}, + /* 191 */ {"var191", "undefined"}, + /* 192 */ {"var192", "undefined"}, + /* 193 */ {"var193", "undefined"}, + /* 194 */ {"var194", "undefined"}, + /* 195 */ {"var195", "undefined"}, + /* 196 */ {"var196", "undefined"}, + /* 197 */ {"var197", "undefined"}, + /* 198 */ {"var198", "undefined"}, + /* 199 */ {"var199", "undefined"}, + /* 200 */ {"var200", "undefined"}, + /* 201 */ {"var201", "1.5m temperature - maximum over last 24 hours [K]"}, + /* 202 */ {"var202", "1.5m temperature - minimum over last 24 hours [K]"}, + /* 203 */ {"var203", "undefined"}, + /* 204 */ {"var204", "undefined"}, + /* 205 */ {"var205", "undefined"}, + /* 206 */ {"var206", "undefined"}, + /* 207 */ {"var207", "undefined"}, + /* 208 */ {"var208", "undefined"}, + /* 209 */ {"var209", "undefined"}, + /* 210 */ {"var210", "undefined"}, + /* 211 */ {"var211", "undefined"}, + /* 212 */ {"var212", "undefined"}, + /* 213 */ {"var213", "undefined"}, + /* 214 */ {"var214", "undefined"}, + /* 215 */ {"var215", "undefined"}, + /* 216 */ {"var216", "undefined"}, + /* 217 */ {"var217", "undefined"}, + /* 218 */ {"var218", "undefined"}, + /* 219 */ {"var219", "undefined"}, + /* 220 */ {"var220", "undefined"}, + /* 221 */ {"var221", "undefined"}, + /* 222 */ {"var222", "undefined"}, + /* 223 */ {"var223", "undefined"}, + /* 224 */ {"var224", "undefined"}, + /* 225 */ {"var225", "undefined"}, + /* 226 */ {"var226", "undefined"}, + /* 227 */ {"var227", "undefined"}, + /* 228 */ {"var228", "undefined"}, + /* 229 */ {"var229", "undefined"}, + /* 230 */ {"var230", "undefined"}, + /* 231 */ {"var231", "undefined"}, + /* 232 */ {"var232", "undefined"}, + /* 233 */ {"var233", "undefined"}, + /* 234 */ {"var234", "undefined"}, + /* 235 */ {"var235", "undefined"}, + /* 236 */ {"var236", "Soil temperature layer 4 [K]"}, + /* 237 */ {"var237", "undefined"}, + /* 238 */ {"var238", "undefined"}, + /* 239 */ {"var239", "undefined"}, + /* 240 */ {"var240", "undefined"}, + /* 241 */ {"var241", "undefined"}, + /* 242 */ {"var242", "undefined"}, + /* 243 */ {"var243", "undefined"}, + /* 244 */ {"var244", "undefined"}, + /* 245 */ {"var245", "undefined"}, + /* 246 */ {"var246", "undefined"}, + /* 247 */ {"var247", "undefined"}, + /* 248 */ {"var248", "undefined"}, + /* 249 */ {"var249", "undefined"}, + /* 250 */ {"var250", "undefined"}, + /* 251 */ {"var251", "undefined"}, + /* 252 */ {"var252", "undefined"}, + /* 253 */ {"var253", "undefined"}, + /* 254 */ {"var254", "undefined"}, + /* 255 */ {"var255", "Indicates a missing value []"}, +}; + +const struct ParmTable parm_table_ecmwf_180[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"var1", "undefined"}, + /* 2 */ {"var2", "undefined"}, + /* 3 */ {"var3", "undefined"}, + /* 4 */ {"var4", "undefined"}, + /* 5 */ {"var5", "undefined"}, + /* 6 */ {"var6", "undefined"}, + /* 7 */ {"var7", "undefined"}, + /* 8 */ {"var8", "undefined"}, + /* 9 */ {"var9", "undefined"}, + /* 10 */ {"var10", "undefined"}, + /* 11 */ {"var11", "undefined"}, + /* 12 */ {"var12", "undefined"}, + /* 13 */ {"var13", "undefined"}, + /* 14 */ {"var14", "undefined"}, + /* 15 */ {"var15", "undefined"}, + /* 16 */ {"var16", "undefined"}, + /* 17 */ {"var17", "undefined"}, + /* 18 */ {"var18", "undefined"}, + /* 19 */ {"var19", "undefined"}, + /* 20 */ {"var20", "undefined"}, + /* 21 */ {"var21", "undefined"}, + /* 22 */ {"var22", "undefined"}, + /* 23 */ {"var23", "undefined"}, + /* 24 */ {"var24", "undefined"}, + /* 25 */ {"var25", "undefined"}, + /* 26 */ {"var26", "undefined"}, + /* 27 */ {"var27", "undefined"}, + /* 28 */ {"var28", "undefined"}, + /* 29 */ {"var29", "undefined"}, + /* 30 */ {"var30", "undefined"}, + /* 31 */ {"var31", "undefined"}, + /* 32 */ {"var32", "undefined"}, + /* 33 */ {"var33", "undefined"}, + /* 34 */ {"var34", "undefined"}, + /* 35 */ {"var35", "undefined"}, + /* 36 */ {"var36", "undefined"}, + /* 37 */ {"var37", "undefined"}, + /* 38 */ {"var38", "undefined"}, + /* 39 */ {"var39", "undefined"}, + /* 40 */ {"var40", "undefined"}, + /* 41 */ {"var41", "undefined"}, + /* 42 */ {"var42", "undefined"}, + /* 43 */ {"var43", "undefined"}, + /* 44 */ {"var44", "undefined"}, + /* 45 */ {"var45", "undefined"}, + /* 46 */ {"var46", "undefined"}, + /* 47 */ {"var47", "undefined"}, + /* 48 */ {"var48", "undefined"}, + /* 49 */ {"var49", "undefined"}, + /* 50 */ {"var50", "undefined"}, + /* 51 */ {"var51", "undefined"}, + /* 52 */ {"var52", "undefined"}, + /* 53 */ {"var53", "undefined"}, + /* 54 */ {"var54", "undefined"}, + /* 55 */ {"var55", "undefined"}, + /* 56 */ {"var56", "undefined"}, + /* 57 */ {"var57", "undefined"}, + /* 58 */ {"var58", "undefined"}, + /* 59 */ {"var59", "undefined"}, + /* 60 */ {"var60", "undefined"}, + /* 61 */ {"var61", "undefined"}, + /* 62 */ {"var62", "undefined"}, + /* 63 */ {"var63", "undefined"}, + /* 64 */ {"var64", "undefined"}, + /* 65 */ {"var65", "undefined"}, + /* 66 */ {"var66", "undefined"}, + /* 67 */ {"var67", "undefined"}, + /* 68 */ {"var68", "undefined"}, + /* 69 */ {"var69", "undefined"}, + /* 70 */ {"var70", "undefined"}, + /* 71 */ {"var71", "undefined"}, + /* 72 */ {"var72", "undefined"}, + /* 73 */ {"var73", "undefined"}, + /* 74 */ {"var74", "undefined"}, + /* 75 */ {"var75", "undefined"}, + /* 76 */ {"var76", "undefined"}, + /* 77 */ {"var77", "undefined"}, + /* 78 */ {"var78", "undefined"}, + /* 79 */ {"var79", "undefined"}, + /* 80 */ {"var80", "undefined"}, + /* 81 */ {"var81", "undefined"}, + /* 82 */ {"var82", "undefined"}, + /* 83 */ {"var83", "undefined"}, + /* 84 */ {"var84", "undefined"}, + /* 85 */ {"var85", "undefined"}, + /* 86 */ {"var86", "undefined"}, + /* 87 */ {"var87", "undefined"}, + /* 88 */ {"var88", "undefined"}, + /* 89 */ {"var89", "undefined"}, + /* 90 */ {"var90", "undefined"}, + /* 91 */ {"var91", "undefined"}, + /* 92 */ {"var92", "undefined"}, + /* 93 */ {"var93", "undefined"}, + /* 94 */ {"var94", "undefined"}, + /* 95 */ {"var95", "undefined"}, + /* 96 */ {"var96", "undefined"}, + /* 97 */ {"var97", "undefined"}, + /* 98 */ {"var98", "undefined"}, + /* 99 */ {"var99", "undefined"}, + /* 100 */ {"var100", "undefined"}, + /* 101 */ {"var101", "undefined"}, + /* 102 */ {"var102", "undefined"}, + /* 103 */ {"var103", "undefined"}, + /* 104 */ {"var104", "undefined"}, + /* 105 */ {"var105", "undefined"}, + /* 106 */ {"var106", "undefined"}, + /* 107 */ {"var107", "undefined"}, + /* 108 */ {"var108", "undefined"}, + /* 109 */ {"var109", "undefined"}, + /* 110 */ {"var110", "undefined"}, + /* 111 */ {"var111", "undefined"}, + /* 112 */ {"var112", "undefined"}, + /* 113 */ {"var113", "undefined"}, + /* 114 */ {"var114", "undefined"}, + /* 115 */ {"var115", "undefined"}, + /* 116 */ {"var116", "undefined"}, + /* 117 */ {"var117", "undefined"}, + /* 118 */ {"var118", "undefined"}, + /* 119 */ {"var119", "undefined"}, + /* 120 */ {"var120", "undefined"}, + /* 121 */ {"var121", "undefined"}, + /* 122 */ {"var122", "undefined"}, + /* 123 */ {"var123", "undefined"}, + /* 124 */ {"var124", "undefined"}, + /* 125 */ {"var125", "undefined"}, + /* 126 */ {"var126", "undefined"}, + /* 127 */ {"var127", "undefined"}, + /* 128 */ {"var128", "undefined"}, + /* 129 */ {"Z", "Geopotential [m**2 s**-2]"}, + /* 130 */ {"T", "Temperature [K]"}, + /* 131 */ {"U", "U velocity [m s**-1]"}, + /* 132 */ {"V", "V velocity [m s**-1]"}, + /* 133 */ {"Q", "Specific humidity [kg kg**-1]"}, + /* 134 */ {"SP", "Surface pressure [Pa]"}, + /* 135 */ {"var135", "undefined"}, + /* 136 */ {"var136", "undefined"}, + /* 137 */ {"TCWV", "Total column water vapour [kg m**-2]"}, + /* 138 */ {"VO", "Vorticity (relative) [s**-1]"}, + /* 139 */ {"var139", "undefined"}, + /* 140 */ {"var140", "undefined"}, + /* 141 */ {"SD", "Snow depth [m of water equivalent]"}, + /* 142 */ {"LSP", "Large-scale precipitation [m]"}, + /* 143 */ {"CP", "Convective precipitation [m]"}, + /* 144 */ {"SF", "Snowfall [m of water equivalent]"}, + /* 145 */ {"var145", "undefined"}, + /* 146 */ {"SSHF", "Surface sensible heat flux [W m**-2 s]"}, + /* 147 */ {"SLHF", "Surface latent heat flux [W m**-2 s]"}, + /* 148 */ {"var148", "undefined"}, + /* 149 */ {"TSW", "Total soil wetness [m]"}, + /* 150 */ {"var150", "undefined"}, + /* 151 */ {"MSL", "Mean sea level pressure [Pa]"}, + /* 152 */ {"var152", "undefined"}, + /* 153 */ {"var153", "undefined"}, + /* 154 */ {"var154", "undefined"}, + /* 155 */ {"D", "Divergence [s**-1]"}, + /* 156 */ {"var156", "undefined"}, + /* 157 */ {"var157", "undefined"}, + /* 158 */ {"var158", "undefined"}, + /* 159 */ {"var159", "undefined"}, + /* 160 */ {"var160", "undefined"}, + /* 161 */ {"var161", "undefined"}, + /* 162 */ {"var162", "undefined"}, + /* 163 */ {"var163", "undefined"}, + /* 164 */ {"TCC", "Total cloud cover [(0 - 1)]"}, + /* 165 */ {"10U", "10 metre U wind component [m s**-1]"}, + /* 166 */ {"10V", "10 metre V wind component [m s**-1]"}, + /* 167 */ {"2T", "2 metre temperature [K]"}, + /* 168 */ {"2D", "2 metre dewpoint temperature [K]"}, + /* 169 */ {"var169", "undefined"}, + /* 170 */ {"var170", "undefined"}, + /* 171 */ {"var171", "undefined"}, + /* 172 */ {"LSM", "Land-sea mask [(0 - 1)]"}, + /* 173 */ {"var173", "undefined"}, + /* 174 */ {"var174", "undefined"}, + /* 175 */ {"var175", "undefined"}, + /* 176 */ {"SSR", "Surface solar radiation [J m**-2 s]"}, + /* 177 */ {"STR", "Surface thermal radiation [J m**-2 s]"}, + /* 178 */ {"TSR", "Top solar radiation [J m**-2 s]"}, + /* 179 */ {"TTR", "Top thermal radiation [J m**-2 s]"}, + /* 180 */ {"EWSS", "East-West surface stress [N m**-2 s]"}, + /* 181 */ {"NSSS", "North-South surface stress [N m**-2 s]"}, + /* 182 */ {"E", "Evaporation [m of water]"}, + /* 183 */ {"var183", "undefined"}, + /* 184 */ {"var184", "undefined"}, + /* 185 */ {"var185", "undefined"}, + /* 186 */ {"var186", "undefined"}, + /* 187 */ {"var187", "undefined"}, + /* 188 */ {"var188", "undefined"}, + /* 189 */ {"var189", "undefined"}, + /* 190 */ {"var190", "undefined"}, + /* 191 */ {"var191", "undefined"}, + /* 192 */ {"var192", "undefined"}, + /* 193 */ {"var193", "undefined"}, + /* 194 */ {"var194", "undefined"}, + /* 195 */ {"var195", "undefined"}, + /* 196 */ {"var196", "undefined"}, + /* 197 */ {"var197", "undefined"}, + /* 198 */ {"var198", "undefined"}, + /* 199 */ {"var199", "undefined"}, + /* 200 */ {"var200", "undefined"}, + /* 201 */ {"var201", "undefined"}, + /* 202 */ {"var202", "undefined"}, + /* 203 */ {"var203", "undefined"}, + /* 204 */ {"var204", "undefined"}, + /* 205 */ {"RO", "Runoff [m]"}, + /* 206 */ {"var206", "undefined"}, + /* 207 */ {"var207", "undefined"}, + /* 208 */ {"var208", "undefined"}, + /* 209 */ {"var209", "undefined"}, + /* 210 */ {"var210", "undefined"}, + /* 211 */ {"var211", "undefined"}, + /* 212 */ {"var212", "undefined"}, + /* 213 */ {"var213", "undefined"}, + /* 214 */ {"var214", "undefined"}, + /* 215 */ {"var215", "undefined"}, + /* 216 */ {"var216", "undefined"}, + /* 217 */ {"var217", "undefined"}, + /* 218 */ {"var218", "undefined"}, + /* 219 */ {"var219", "undefined"}, + /* 220 */ {"var220", "undefined"}, + /* 221 */ {"var221", "undefined"}, + /* 222 */ {"var222", "undefined"}, + /* 223 */ {"var223", "undefined"}, + /* 224 */ {"var224", "undefined"}, + /* 225 */ {"var225", "undefined"}, + /* 226 */ {"var226", "undefined"}, + /* 227 */ {"var227", "undefined"}, + /* 228 */ {"var228", "undefined"}, + /* 229 */ {"var229", "undefined"}, + /* 230 */ {"var230", "undefined"}, + /* 231 */ {"var231", "undefined"}, + /* 232 */ {"var232", "undefined"}, + /* 233 */ {"var233", "undefined"}, + /* 234 */ {"var234", "undefined"}, + /* 235 */ {"var235", "undefined"}, + /* 236 */ {"var236", "undefined"}, + /* 237 */ {"var237", "undefined"}, + /* 238 */ {"var238", "undefined"}, + /* 239 */ {"var239", "undefined"}, + /* 240 */ {"var240", "undefined"}, + /* 241 */ {"var241", "undefined"}, + /* 242 */ {"var242", "undefined"}, + /* 243 */ {"var243", "undefined"}, + /* 244 */ {"var244", "undefined"}, + /* 245 */ {"var245", "undefined"}, + /* 246 */ {"var246", "undefined"}, + /* 247 */ {"var247", "undefined"}, + /* 248 */ {"var248", "undefined"}, + /* 249 */ {"var249", "undefined"}, + /* 250 */ {"var250", "undefined"}, + /* 251 */ {"var251", "undefined"}, + /* 252 */ {"var252", "undefined"}, + /* 253 */ {"var253", "undefined"}, + /* 254 */ {"var254", "undefined"}, + /* 255 */ {"var255", "Indicates a missing value []"}, +}; + +const struct ParmTable parm_table_ecmwf_190[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"var1", "undefined"}, + /* 2 */ {"var2", "undefined"}, + /* 3 */ {"var3", "undefined"}, + /* 4 */ {"var4", "undefined"}, + /* 5 */ {"var5", "undefined"}, + /* 6 */ {"var6", "undefined"}, + /* 7 */ {"var7", "undefined"}, + /* 8 */ {"var8", "undefined"}, + /* 9 */ {"var9", "undefined"}, + /* 10 */ {"var10", "undefined"}, + /* 11 */ {"var11", "undefined"}, + /* 12 */ {"var12", "undefined"}, + /* 13 */ {"var13", "undefined"}, + /* 14 */ {"var14", "undefined"}, + /* 15 */ {"var15", "undefined"}, + /* 16 */ {"var16", "undefined"}, + /* 17 */ {"var17", "undefined"}, + /* 18 */ {"var18", "undefined"}, + /* 19 */ {"var19", "undefined"}, + /* 20 */ {"var20", "undefined"}, + /* 21 */ {"var21", "undefined"}, + /* 22 */ {"var22", "undefined"}, + /* 23 */ {"var23", "undefined"}, + /* 24 */ {"var24", "undefined"}, + /* 25 */ {"var25", "undefined"}, + /* 26 */ {"var26", "undefined"}, + /* 27 */ {"var27", "undefined"}, + /* 28 */ {"var28", "undefined"}, + /* 29 */ {"var29", "undefined"}, + /* 30 */ {"var30", "undefined"}, + /* 31 */ {"var31", "undefined"}, + /* 32 */ {"var32", "undefined"}, + /* 33 */ {"var33", "undefined"}, + /* 34 */ {"var34", "undefined"}, + /* 35 */ {"var35", "undefined"}, + /* 36 */ {"var36", "undefined"}, + /* 37 */ {"var37", "undefined"}, + /* 38 */ {"var38", "undefined"}, + /* 39 */ {"var39", "undefined"}, + /* 40 */ {"var40", "undefined"}, + /* 41 */ {"var41", "undefined"}, + /* 42 */ {"var42", "undefined"}, + /* 43 */ {"var43", "undefined"}, + /* 44 */ {"var44", "undefined"}, + /* 45 */ {"var45", "undefined"}, + /* 46 */ {"var46", "undefined"}, + /* 47 */ {"var47", "undefined"}, + /* 48 */ {"var48", "undefined"}, + /* 49 */ {"var49", "undefined"}, + /* 50 */ {"var50", "undefined"}, + /* 51 */ {"var51", "undefined"}, + /* 52 */ {"var52", "undefined"}, + /* 53 */ {"var53", "undefined"}, + /* 54 */ {"var54", "undefined"}, + /* 55 */ {"var55", "undefined"}, + /* 56 */ {"var56", "undefined"}, + /* 57 */ {"var57", "undefined"}, + /* 58 */ {"var58", "undefined"}, + /* 59 */ {"var59", "undefined"}, + /* 60 */ {"var60", "undefined"}, + /* 61 */ {"var61", "undefined"}, + /* 62 */ {"var62", "undefined"}, + /* 63 */ {"var63", "undefined"}, + /* 64 */ {"var64", "undefined"}, + /* 65 */ {"var65", "undefined"}, + /* 66 */ {"var66", "undefined"}, + /* 67 */ {"var67", "undefined"}, + /* 68 */ {"var68", "undefined"}, + /* 69 */ {"var69", "undefined"}, + /* 70 */ {"var70", "undefined"}, + /* 71 */ {"var71", "undefined"}, + /* 72 */ {"var72", "undefined"}, + /* 73 */ {"var73", "undefined"}, + /* 74 */ {"var74", "undefined"}, + /* 75 */ {"var75", "undefined"}, + /* 76 */ {"var76", "undefined"}, + /* 77 */ {"var77", "undefined"}, + /* 78 */ {"var78", "undefined"}, + /* 79 */ {"var79", "undefined"}, + /* 80 */ {"var80", "undefined"}, + /* 81 */ {"var81", "undefined"}, + /* 82 */ {"var82", "undefined"}, + /* 83 */ {"var83", "undefined"}, + /* 84 */ {"var84", "undefined"}, + /* 85 */ {"var85", "undefined"}, + /* 86 */ {"var86", "undefined"}, + /* 87 */ {"var87", "undefined"}, + /* 88 */ {"var88", "undefined"}, + /* 89 */ {"var89", "undefined"}, + /* 90 */ {"var90", "undefined"}, + /* 91 */ {"var91", "undefined"}, + /* 92 */ {"var92", "undefined"}, + /* 93 */ {"var93", "undefined"}, + /* 94 */ {"var94", "undefined"}, + /* 95 */ {"var95", "undefined"}, + /* 96 */ {"var96", "undefined"}, + /* 97 */ {"var97", "undefined"}, + /* 98 */ {"var98", "undefined"}, + /* 99 */ {"var99", "undefined"}, + /* 100 */ {"var100", "undefined"}, + /* 101 */ {"var101", "undefined"}, + /* 102 */ {"var102", "undefined"}, + /* 103 */ {"var103", "undefined"}, + /* 104 */ {"var104", "undefined"}, + /* 105 */ {"var105", "undefined"}, + /* 106 */ {"var106", "undefined"}, + /* 107 */ {"var107", "undefined"}, + /* 108 */ {"var108", "undefined"}, + /* 109 */ {"var109", "undefined"}, + /* 110 */ {"var110", "undefined"}, + /* 111 */ {"var111", "undefined"}, + /* 112 */ {"var112", "undefined"}, + /* 113 */ {"var113", "undefined"}, + /* 114 */ {"var114", "undefined"}, + /* 115 */ {"var115", "undefined"}, + /* 116 */ {"var116", "undefined"}, + /* 117 */ {"var117", "undefined"}, + /* 118 */ {"var118", "undefined"}, + /* 119 */ {"var119", "undefined"}, + /* 120 */ {"var120", "undefined"}, + /* 121 */ {"var121", "undefined"}, + /* 122 */ {"var122", "undefined"}, + /* 123 */ {"var123", "undefined"}, + /* 124 */ {"var124", "undefined"}, + /* 125 */ {"var125", "undefined"}, + /* 126 */ {"var126", "undefined"}, + /* 127 */ {"var127", "undefined"}, + /* 128 */ {"var128", "undefined"}, + /* 129 */ {"Z", "Geopotential [m**2 s**-2]"}, + /* 130 */ {"T", "Temperature [K]"}, + /* 131 */ {"U", "U velocity [m s**-1]"}, + /* 132 */ {"V", "V velocity [m s**-1]"}, + /* 133 */ {"Q", "Specific humidity [kg kg**-1]"}, + /* 134 */ {"var134", "undefined"}, + /* 135 */ {"var135", "undefined"}, + /* 136 */ {"var136", "undefined"}, + /* 137 */ {"var137", "undefined"}, + /* 138 */ {"var138", "undefined"}, + /* 139 */ {"STL1", "Soil temperature level 1 [K]"}, + /* 140 */ {"var140", "undefined"}, + /* 141 */ {"SD", "Snow depth [m of water]"}, + /* 142 */ {"var142", "undefined"}, + /* 143 */ {"var143", "undefined"}, + /* 144 */ {"var144", "undefined"}, + /* 145 */ {"var145", "undefined"}, + /* 146 */ {"SSHF", "Surface sensible heat flux [W m**-2 s]"}, + /* 147 */ {"SLHF", "Surface latent heat flux [W m**-2 s]"}, + /* 148 */ {"var148", "undefined"}, + /* 149 */ {"var149", "undefined"}, + /* 150 */ {"var150", "undefined"}, + /* 151 */ {"MSL", "Mean sea level pressure [Pa]"}, + /* 152 */ {"var152", "undefined"}, + /* 153 */ {"var153", "undefined"}, + /* 154 */ {"var154", "undefined"}, + /* 155 */ {"var155", "undefined"}, + /* 156 */ {"var156", "undefined"}, + /* 157 */ {"var157", "undefined"}, + /* 158 */ {"var158", "undefined"}, + /* 159 */ {"var159", "undefined"}, + /* 160 */ {"var160", "undefined"}, + /* 161 */ {"var161", "undefined"}, + /* 162 */ {"var162", "undefined"}, + /* 163 */ {"var163", "undefined"}, + /* 164 */ {"TCC", "Total cloud cover [(0 - 1)]"}, + /* 165 */ {"10U", "10 metre U wind component [m s**-1]"}, + /* 166 */ {"10V", "10 metre V wind component [m s**-1]"}, + /* 167 */ {"2T", "2 metre temperature [K]"}, + /* 168 */ {"2D", "2 metre dewpoint temperature [K]"}, + /* 169 */ {"SSRD", "Downward surface solar radiation [W m**-2 s (W m**-2 for monthly means)]"}, + /* 170 */ {"CAP", "Field capacity [(0 - 1)]"}, + /* 171 */ {"WILT", "Wilting point [(0 - 1)]"}, + /* 172 */ {"LSM", "Land-sea mask [(0 - 1)]"}, + /* 173 */ {"SR", "Roughness length [(0 - 1)]"}, + /* 174 */ {"AL", "Albedo [(0 - 1)]"}, + /* 175 */ {"STRD", "Downward surface long wave radiation [W m**-2 s (W m**-2 for monthly means)]"}, + /* 176 */ {"SSR", "Surface net solar radiation [W m**-2 s (W m**-2 for monthly means)]"}, + /* 177 */ {"STR", "Surface net long wave radiation [W m**-2 s (W m**-2 for monthly means)]"}, + /* 178 */ {"TSR", "Top net solar radiation [W m**-2 s (W m**-2 for monthly means)]"}, + /* 179 */ {"TTR", "Top net long wave radiation [W m**-2 s (W m**-2 for monthly means)]"}, + /* 180 */ {"var180", "undefined"}, + /* 181 */ {"var181", "undefined"}, + /* 182 */ {"E", "Evaporation [m (m s**-1 for monthly means)]"}, + /* 183 */ {"var183", "undefined"}, + /* 184 */ {"var184", "undefined"}, + /* 185 */ {"var185", "undefined"}, + /* 186 */ {"var186", "undefined"}, + /* 187 */ {"var187", "undefined"}, + /* 188 */ {"var188", "undefined"}, + /* 189 */ {"var189", "undefined"}, + /* 190 */ {"var190", "undefined"}, + /* 191 */ {"var191", "undefined"}, + /* 192 */ {"var192", "undefined"}, + /* 193 */ {"var193", "undefined"}, + /* 194 */ {"var194", "undefined"}, + /* 195 */ {"var195", "undefined"}, + /* 196 */ {"var196", "undefined"}, + /* 197 */ {"var197", "undefined"}, + /* 198 */ {"var198", "undefined"}, + /* 199 */ {"var199", "undefined"}, + /* 200 */ {"var200", "undefined"}, + /* 201 */ {"MX2T", "Maximum 2 metre temperature [K]"}, + /* 202 */ {"MN2T", "Minimum 2 metre temperature [K]"}, + /* 203 */ {"var203", "undefined"}, + /* 204 */ {"var204", "undefined"}, + /* 205 */ {"var205", "undefined"}, + /* 206 */ {"var206", "undefined"}, + /* 207 */ {"var207", "undefined"}, + /* 208 */ {"var208", "undefined"}, + /* 209 */ {"var209", "undefined"}, + /* 210 */ {"var210", "undefined"}, + /* 211 */ {"var211", "undefined"}, + /* 212 */ {"var212", "undefined"}, + /* 213 */ {"var213", "undefined"}, + /* 214 */ {"var214", "undefined"}, + /* 215 */ {"var215", "undefined"}, + /* 216 */ {"var216", "undefined"}, + /* 217 */ {"var217", "undefined"}, + /* 218 */ {"var218", "undefined"}, + /* 219 */ {"var219", "undefined"}, + /* 220 */ {"var220", "undefined"}, + /* 221 */ {"var221", "undefined"}, + /* 222 */ {"var222", "undefined"}, + /* 223 */ {"var223", "undefined"}, + /* 224 */ {"var224", "undefined"}, + /* 225 */ {"var225", "undefined"}, + /* 226 */ {"var226", "undefined"}, + /* 227 */ {"var227", "undefined"}, + /* 228 */ {"TP", "Total precipitation [m (m s**-1 for monthly means)]"}, + /* 229 */ {"TSM", "Total soil moisture [m**3 m**-3]"}, + /* 230 */ {"var230", "undefined"}, + /* 231 */ {"var231", "undefined"}, + /* 232 */ {"var232", "undefined"}, + /* 233 */ {"var233", "undefined"}, + /* 234 */ {"var234", "undefined"}, + /* 235 */ {"var235", "undefined"}, + /* 236 */ {"var236", "undefined"}, + /* 237 */ {"var237", "undefined"}, + /* 238 */ {"var238", "undefined"}, + /* 239 */ {"var239", "undefined"}, + /* 240 */ {"var240", "undefined"}, + /* 241 */ {"var241", "undefined"}, + /* 242 */ {"var242", "undefined"}, + /* 243 */ {"var243", "undefined"}, + /* 244 */ {"var244", "undefined"}, + /* 245 */ {"var245", "undefined"}, + /* 246 */ {"var246", "undefined"}, + /* 247 */ {"var247", "undefined"}, + /* 248 */ {"var248", "undefined"}, + /* 249 */ {"var249", "undefined"}, + /* 250 */ {"var250", "undefined"}, + /* 251 */ {"var251", "undefined"}, + /* 252 */ {"var252", "undefined"}, + /* 253 */ {"var253", "undefined"}, + /* 254 */ {"var254", "undefined"}, + /* 255 */ {"var255", " []"}, +}; + +const struct ParmTable parm_table_ecmwf_200[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"STRF", "Stream function [m**2 s**-1]"}, + /* 2 */ {"VPOT", "Velocity potential [m**2 s**-1]"}, + /* 3 */ {"PT", "Potential temperature [K]"}, + /* 4 */ {"EQPT", "Equivalent potential temperature [K]"}, + /* 5 */ {"SEPT", "Saturated equivalent potential temperature [K]"}, + /* 6 */ {"var6", "undefined"}, + /* 7 */ {"var7", "undefined"}, + /* 8 */ {"var8", "undefined"}, + /* 9 */ {"var9", "undefined"}, + /* 10 */ {"var10", "undefined"}, + /* 11 */ {"UDVW", "U component of divergent wind [m s**-1]"}, + /* 12 */ {"VDVW", "V component of divergent wind [m s**-1]"}, + /* 13 */ {"URTW", "U component of rotational wind [m s**-1]"}, + /* 14 */ {"VRTW", "V component of rotational wind [m s**-1]"}, + /* 15 */ {"var15", "undefined"}, + /* 16 */ {"var16", "undefined"}, + /* 17 */ {"var17", "undefined"}, + /* 18 */ {"var18", "undefined"}, + /* 19 */ {"var19", "undefined"}, + /* 20 */ {"var20", "undefined"}, + /* 21 */ {"UCTP", "Unbalanced component of temperature [K]"}, + /* 22 */ {"UCLN", "Unbalanced component of logarithm of surface pressure []"}, + /* 23 */ {"UCDV", "Unbalanced component of divergence [s**-1]"}, + /* 24 */ {"var24", "Reserved for future unbalanced components []"}, + /* 25 */ {"var25", "Reserved for future unbalanced components []"}, + /* 26 */ {"CL", "Lake cover [(0 - 1)]"}, + /* 27 */ {"CVL", "Low vegetation cover [(0 - 1)]"}, + /* 28 */ {"CVH", "High vegetation cover [(0 - 1)]"}, + /* 29 */ {"TVL", "Type of low vegetation []"}, + /* 30 */ {"TVH", "Type of high vegetation []"}, + /* 31 */ {"CI", "Sea-ice cover [(0 - 1)]"}, + /* 32 */ {"ASN", "Snow albedo [(0 - 1)]"}, + /* 33 */ {"RSN", "Snow density [kg m**-3]"}, + /* 34 */ {"SSTK", "Sea surface temperature [K]"}, + /* 35 */ {"ISTL1", "Ice surface temperature layer 1 [K]"}, + /* 36 */ {"ISTL2", "Ice surface temperature layer 2 [K]"}, + /* 37 */ {"ISTL3", "Ice surface temperature layer 3 [K]"}, + /* 38 */ {"ISTL4", "Ice surface temperature layer 4 [K]"}, + /* 39 */ {"SWVL1", "Volumetric soil water layer 1 [m**3 m**-3]"}, + /* 40 */ {"SWVL2", "Volumetric soil water layer 2 [m**3 m**-3]"}, + /* 41 */ {"SWVL3", "Volumetric soil water layer 3 [m**3 m**-3]"}, + /* 42 */ {"SWVL4", "Volumetric soil water layer 4 [m**3 m**-3]"}, + /* 43 */ {"SLT", "Soil type []"}, + /* 44 */ {"ES", "Snow evaporation [m of water]"}, + /* 45 */ {"SMLT", "Snowmelt [m of water]"}, + /* 46 */ {"SDUR", "Solar duration [s]"}, + /* 47 */ {"DSRP", "Direct solar radiation [w m**-2]"}, + /* 48 */ {"MAGSS", "Magnitude of surface stress [N m**-2 s]"}, + /* 49 */ {"10FG", "10 metre wind gust [m s**-1]"}, + /* 50 */ {"LSPF", "Large-scale precipitation fraction [s]"}, + /* 51 */ {"MX2T24", "Maximum 2 metre temperature [K]"}, + /* 52 */ {"MN2T24", "Minimum 2 metre temperature [K]"}, + /* 53 */ {"MONT", "Montgomery potential [m**2 s**-2]"}, + /* 54 */ {"PRES", "Pressure [Pa]"}, + /* 55 */ {"MEAN2T24", "Mean 2 metre temperature in past 24 hours [K]"}, + /* 56 */ {"MN2D24", "Mean 2 metre dewpoint temperature in past 24 hours [K]"}, + /* 57 */ {"UVB", "Downward UV radiation at the surface [w m**-2 s]"}, + /* 58 */ {"PAR", "Photosynthetically active radiation at the surface [w m**-2 s]"}, + /* 59 */ {"CAPE", "Convective available potential energy [J kg**-1]"}, + /* 60 */ {"PV", "Potential vorticity [K m**2 kg**-1 s**-1]"}, + /* 61 */ {"TPO", "Total precipitation from observations [Millimetres*100 + number of stations]"}, + /* 62 */ {"OBCT", "Observation count []"}, + /* 63 */ {"var63", "Start time for skin temperature difference [s]"}, + /* 64 */ {"var64", "Finish time for skin temperature difference [s]"}, + /* 65 */ {"var65", "Skin temperature difference [K]"}, + /* 66 */ {"var66", "Leaf area index, low vegetation [m**2 / m**2]"}, + /* 67 */ {"var67", "Leaf area index, high vegetation [m**2 / m**2]"}, + /* 68 */ {"var68", "Minimum stomatal resistance, low vegetation [s m**-1]"}, + /* 69 */ {"var69", "Minimum stomatal resistance, high vegetation [s m**-1]"}, + /* 70 */ {"var70", "Biome cover, low vegetation [(0 - 1)]"}, + /* 71 */ {"var71", "Biome cover, high vegetation [(0 - 1)]"}, + /* 72 */ {"var72", "undefined"}, + /* 73 */ {"var73", "undefined"}, + /* 74 */ {"var74", "undefined"}, + /* 75 */ {"var75", "undefined"}, + /* 76 */ {"var76", "undefined"}, + /* 77 */ {"var77", "undefined"}, + /* 78 */ {"var78", "Total column liquid water [kg m**-2]"}, + /* 79 */ {"var79", "Total column ice water [kg m**-2]"}, + /* 80 */ {"var80", "Experimental product []"}, + /* 81 */ {"var81", "Experimental product []"}, + /* 82 */ {"var82", "Experimental product []"}, + /* 83 */ {"var83", "Experimental product []"}, + /* 84 */ {"var84", "Experimental product []"}, + /* 85 */ {"var85", "Experimental product []"}, + /* 86 */ {"var86", "Experimental product []"}, + /* 87 */ {"var87", "Experimental product []"}, + /* 88 */ {"var88", "Experimental product []"}, + /* 89 */ {"var89", "Experimental product []"}, + /* 90 */ {"var90", "Experimental product []"}, + /* 91 */ {"var91", "Experimental product []"}, + /* 92 */ {"var92", "Experimental product []"}, + /* 93 */ {"var93", "Experimental product []"}, + /* 94 */ {"var94", "Experimental product []"}, + /* 95 */ {"var95", "Experimental product []"}, + /* 96 */ {"var96", "Experimental product []"}, + /* 97 */ {"var97", "Experimental product []"}, + /* 98 */ {"var98", "Experimental product []"}, + /* 99 */ {"var99", "Experimental product []"}, + /* 100 */ {"var100", "Experimental product []"}, + /* 101 */ {"var101", "Experimental product []"}, + /* 102 */ {"var102", "Experimental product []"}, + /* 103 */ {"var103", "Experimental product []"}, + /* 104 */ {"var104", "Experimental product []"}, + /* 105 */ {"var105", "Experimental product []"}, + /* 106 */ {"var106", "Experimental product []"}, + /* 107 */ {"var107", "Experimental product []"}, + /* 108 */ {"var108", "Experimental product []"}, + /* 109 */ {"var109", "Experimental product []"}, + /* 110 */ {"var110", "Experimental product []"}, + /* 111 */ {"var111", "Experimental product []"}, + /* 112 */ {"var112", "Experimental product []"}, + /* 113 */ {"var113", "Experimental product []"}, + /* 114 */ {"var114", "Experimental product []"}, + /* 115 */ {"var115", "Experimental product []"}, + /* 116 */ {"var116", "Experimental product []"}, + /* 117 */ {"var117", "Experimental product []"}, + /* 118 */ {"var118", "Experimental product []"}, + /* 119 */ {"var119", "Experimental product []"}, + /* 120 */ {"var120", "Experimental product []"}, + /* 121 */ {"MX2T6", "Maximum temperature at 2 metres [K]"}, + /* 122 */ {"MN2T6", "Minimum temperature at 2 metres [K]"}, + /* 123 */ {"10FG6", "10 metre wind gust in the past 6 hours [m s**-1]"}, + /* 124 */ {"var124", "undefined"}, + /* 125 */ {"var125", "Vertically integrated total energy [J m**-2]"}, + /* 126 */ {"var126", "Generic parameter for sensitive area prediction [Various]"}, + /* 127 */ {"AT", "Atmospheric tide []"}, + /* 128 */ {"BV", "Budget values []"}, + /* 129 */ {"Z", "Geopotential [m**2 s**-2]"}, + /* 130 */ {"T", "Temperature [K]"}, + /* 131 */ {"U", "U velocity [m s**-1]"}, + /* 132 */ {"V", "V velocity [m s**-1]"}, + /* 133 */ {"Q", "Specific humidity [kg kg**-1]"}, + /* 134 */ {"SP", "Surface pressure [Pa]"}, + /* 135 */ {"W", "Vertical velocity [Pa s**-1]"}, + /* 136 */ {"TCW", "Total column water [kg m**-2]"}, + /* 137 */ {"TCWV", "Total column water vapour [kg m**-2]"}, + /* 138 */ {"VO", "Vorticity (relative) [s**-1]"}, + /* 139 */ {"STL1", "Soil temperature level 1 [K]"}, + /* 140 */ {"SWL1", "Soil wetness level 1 [m of water]"}, + /* 141 */ {"SD", "Snow depth [m of water equivalent]"}, + /* 142 */ {"LSP", "Stratiform precipitation (Large-scale precipitation) [m]"}, + /* 143 */ {"CP", "Convective precipitation [m]"}, + /* 144 */ {"SF", "Snowfall (convective + stratiform) [m of water equivalent]"}, + /* 145 */ {"BLD", "Boundary layer dissipation [W m**-2 s]"}, + /* 146 */ {"SSHF", "Surface sensible heat flux [W m**-2 s]"}, + /* 147 */ {"SLHF", "Surface latent heat flux [W m**-2 s]"}, + /* 148 */ {"CHNK", "Charnock []"}, + /* 149 */ {"SNR", "Surface net radiation [W m**-2 s]"}, + /* 150 */ {"TNR", "Top net radiation []"}, + /* 151 */ {"MSL", "Mean sea level pressure [Pa]"}, + /* 152 */ {"LNSP", "Logarithm of surface pressure []"}, + /* 153 */ {"SWHR", "Short-wave heating rate [K]"}, + /* 154 */ {"LWHR", "Long-wave heating rate [K]"}, + /* 155 */ {"D", "Divergence [s**-1]"}, + /* 156 */ {"GH", "Height [m]"}, + /* 157 */ {"R", "Relative humidity [%]"}, + /* 158 */ {"TSP", "Tendency of surface pressure [Pa s**-1]"}, + /* 159 */ {"BLH", "Boundary layer height [m]"}, + /* 160 */ {"SDOR", "Standard deviation of orography []"}, + /* 161 */ {"ISOR", "Anisotropy of sub-gridscale orography []"}, + /* 162 */ {"ANOR", "Angle of sub-gridscale orography [rad]"}, + /* 163 */ {"SLOR", "Slope of sub-gridscale orography []"}, + /* 164 */ {"TCC", "Total cloud cover [(0 - 1)]"}, + /* 165 */ {"10U", "10 metre U wind component [m s**-1]"}, + /* 166 */ {"10V", "10 metre V wind component [m s**-1]"}, + /* 167 */ {"2T", "2 metre temperature [K]"}, + /* 168 */ {"2D", "2 metre dewpoint temperature [K]"}, + /* 169 */ {"SSRD", "Surface solar radiation downwards [W m**-2 s]"}, + /* 170 */ {"STL2", "Soil temperature level 2 [K]"}, + /* 171 */ {"SWL2", "Soil wetness level 2 [m of water]"}, + /* 172 */ {"LSM", "Land-sea mask [(0 - 1)]"}, + /* 173 */ {"SR", "Surface roughness [m]"}, + /* 174 */ {"AL", "Albedo [(0 - 1)]"}, + /* 175 */ {"STRD", "Surface thermal radiation downwards [W m**-2 s]"}, + /* 176 */ {"SSR", "Surface solar radiation [W m**-2 s]"}, + /* 177 */ {"STR", "Surface thermal radiation [W m**-2 s]"}, + /* 178 */ {"TSR", "Top solar radiation [W m**-2 s]"}, + /* 179 */ {"TTR", "Top thermal radiation [W m**-2 s]"}, + /* 180 */ {"EWSS", "East-West surface stress [N m**-2 s]"}, + /* 181 */ {"NSSS", "North-South surface stress [N m**-2 s]"}, + /* 182 */ {"E", "Evaporation [m of water]"}, + /* 183 */ {"STL3", "Soil temperature level 3 [K]"}, + /* 184 */ {"SWL3", "Soil wetness level 3 [m of water]"}, + /* 185 */ {"CCC", "Convective cloud cover [(0 - 1)]"}, + /* 186 */ {"LCC", "Low cloud cover [(0 - 1)]"}, + /* 187 */ {"MCC", "Medium cloud cover [(0 - 1)]"}, + /* 188 */ {"HCC", "High cloud cover [(0 - 1)]"}, + /* 189 */ {"SUND", "Sunshine duration [s]"}, + /* 190 */ {"EWOV", "East-West component of sub-gridscale orographic variance [m**2]"}, + /* 191 */ {"NSOV", "North-South component of sub-gridscale orographic variance [m**2]"}, + /* 192 */ {"NWOV", "North-West/South-East component of sub-gridscale orographic variance [m**2]"}, + /* 193 */ {"NEOV", "North-East/South-West component of sub-gridscale orographic variance [m**2]"}, + /* 194 */ {"BTMP", "Brightness temperature [K]"}, + /* 195 */ {"LGWS", "Latitudinal component of gravity wave stress [N m**-2 s]"}, + /* 196 */ {"MGWS", "Meridional component of gravity wave stress [N m**-2 s]"}, + /* 197 */ {"GWD", "Gravity wave dissipation [W m**-2 s]"}, + /* 198 */ {"SRC", "Skin reservoir content [m of water]"}, + /* 199 */ {"VEG", "Vegetation fraction [(0 - 1)]"}, + /* 200 */ {"VSO", "Variance of sub-gridscale orography [m**2]"}, + /* 201 */ {"MX2T", "Maximum temperature at 2 metres since previous post-processing [K]"}, + /* 202 */ {"MN2T", "Minimum temperature at 2 metres since previous post-processing [K]"}, + /* 203 */ {"O3", "Ozone mass mixing ratio [kg kg**-1]"}, + /* 204 */ {"PAW", "Precipitation analysis weights []"}, + /* 205 */ {"RO", "Runoff [m]"}, + /* 206 */ {"TCO3", "Total column ozone [kg m**-2]"}, + /* 207 */ {"10SI", "10 metre wind speed [m s**-1]"}, + /* 208 */ {"TSRC", "Top net solar radiation, clear sky [W m**-2 s]"}, + /* 209 */ {"TTRC", "Top net thermal radiation, clear sky [W m**-2 s]"}, + /* 210 */ {"SSRC", "Surface net solar radiation, clear sky [W m**-2 s]"}, + /* 211 */ {"STRC", "Surface net thermal radiation, clear sky [W m**-2 s]"}, + /* 212 */ {"TISR", "TOA incident solar radiation [W m**-2 s]"}, + /* 213 */ {"var213", "undefined"}, + /* 214 */ {"DHR", "Diabatic heating by radiation [K]"}, + /* 215 */ {"DHVD", "Diabatic heating by vertical diffusion [K]"}, + /* 216 */ {"DHCC", "Diabatic heating by cumulus convection [K]"}, + /* 217 */ {"DHLC", "Diabatic heating large-scale condensation [K]"}, + /* 218 */ {"VDZW", "Vertical diffusion of zonal wind [m s**-1]"}, + /* 219 */ {"VDMW", "Vertical diffusion of meridional wind [m s**-1]"}, + /* 220 */ {"EWGD", "East-West gravity wave drag tendency [m s**-1]"}, + /* 221 */ {"NSGD", "North-South gravity wave drag tendency [m s**-1]"}, + /* 222 */ {"CTZW", "Convective tendency of zonal wind [m s**-1]"}, + /* 223 */ {"CTMW", "Convective tendency of meridional wind [m s**-1]"}, + /* 224 */ {"VDH", "Vertical diffusion of humidity [kg kg**-1]"}, + /* 225 */ {"HTCC", "Humidity tendency by cumulus convection [kg kg**-1]"}, + /* 226 */ {"HTLC", "Humidity tendency by large-scale condensation [kg kg**-1]"}, + /* 227 */ {"CRNH", "Change from removal of negative humidity [kg kg**-1]"}, + /* 228 */ {"TP", "Total precipitation [m]"}, + /* 229 */ {"IEWS", "Instantaneous X surface stress [N m**-2]"}, + /* 230 */ {"INSS", "Instantaneous Y surface stress [N m**-2]"}, + /* 231 */ {"ISHF", "Instantaneous surface heat flux [W m**-2]"}, + /* 232 */ {"IE", "Instantaneous moisture flux [kg m**-2 s]"}, + /* 233 */ {"ASQ", "Apparent surface humidity [kg kg**-1]"}, + /* 234 */ {"LSRH", "Logarithm of surface roughness length for heat []"}, + /* 235 */ {"SKT", "Skin temperature [K]"}, + /* 236 */ {"STL4", "Soil temperature level 4 [K]"}, + /* 237 */ {"SWL4", "Soil wetness level 4 [m]"}, + /* 238 */ {"TSN", "Temperature of snow layer [K]"}, + /* 239 */ {"CSF", "Convective snowfall [m of water equivalent]"}, + /* 240 */ {"LSF", "Large-scale snowfall [m of water equivalent]"}, + /* 241 */ {"ACF", "Accumulated cloud fraction tendency [(-1 to 1)]"}, + /* 242 */ {"ALW", "Accumulated liquid water tendency [(-1 to 1)]"}, + /* 243 */ {"FAL", "Forecast albedo [(0 - 1)]"}, + /* 244 */ {"FSR", "Forecast surface roughness [m]"}, + /* 245 */ {"FLSR", "Forecast logarithm of surface roughness for heat []"}, + /* 246 */ {"CLWC", "Cloud liquid water content [kg kg**-1]"}, + /* 247 */ {"CIWC", "Cloud ice water content [kg kg**-1]"}, + /* 248 */ {"CC", "Cloud cover [(0 - 1)]"}, + /* 249 */ {"AIW", "Accumulated ice water tendency [(-1 to 1)]"}, + /* 250 */ {"ICE", "Ice age [(0 - 1)]"}, + /* 251 */ {"ATTE", "Adiabatic tendency of temperature [K]"}, + /* 252 */ {"ATHE", "Adiabatic tendency of humidity [kg kg**-1]"}, + /* 253 */ {"ATZE", "Adiabatic tendency of zonal wind [m s**-1]"}, + /* 254 */ {"ATMW", "Adiabatic tendency of meridional wind [m s**-1]"}, + /* 255 */ {"var255", "Indicates a missing value []"}, +}; + +const struct ParmTable parm_table_ecmwf_210[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"AERMR01", "Sea Salt Aerosol (0.03 - 0.5 um) Mixing Ratio [kg kg**-1]"}, + /* 2 */ {"AERMR02", "Sea Salt Aerosol (0.5 - 5 um) Mixing Ratio [kg kg**-1]"}, + /* 3 */ {"AERMR03", "Sea Salt Aerosol (5 - 20 um) Mixing Ratio [kg kg**-1]"}, + /* 4 */ {"AERMR04", "Dust Aerosol (0.03 - 0.55 um) Mixing Ratio [kg kg**-1]"}, + /* 5 */ {"AERMR05", "Dust Aerosol (0.55 - 0.9 um) Mixing Ratio [kg kg**-1]"}, + /* 6 */ {"AERMR06", "Dust Aerosol (0.9 - 20 um) Mixing Ratio [kg kg**-1]"}, + /* 7 */ {"AERMR07", "Hydrophobic Organic Matter Aerosol Mixing Ratio [kg kg**-1]"}, + /* 8 */ {"AERMR08", "Hydrophilic Organic Matter Aerosol Mixing Ratio [kg kg**-1]"}, + /* 9 */ {"AERMR09", "Hydrophobic Black Carbon Aerosol Mixing Ratio [kg kg**-1]"}, + /* 10 */ {"AERMR10", "Hydrophilic Black Carbon Aerosol Mixing Ratio [kg kg**-1]"}, + /* 11 */ {"AERMR11", "Sulphate Aerosol Mixing Ratio [kg kg**-1]"}, + /* 12 */ {"AERMR12", "Aerosol type 12 mixing ratio [kg kg**-1]"}, + /* 13 */ {"var13", "undefined"}, + /* 14 */ {"var14", "undefined"}, + /* 15 */ {"var15", "undefined"}, + /* 16 */ {"AERGN01", "Aerosol type 1 source/gain accumulated [kg m**-2]"}, + /* 17 */ {"AERGN02", "Aerosol type 2 source/gain accumulated [kg m**-2]"}, + /* 18 */ {"AERGN03", "Aerosol type 3 source/gain accumulated [kg m**-2]"}, + /* 19 */ {"AERGN04", "Aerosol type 4 source/gain accumulated [kg m**-2]"}, + /* 20 */ {"AERGN05", "Aerosol type 5 source/gain accumulated [kg m**-2]"}, + /* 21 */ {"AERGN06", "Aerosol type 6 source/gain accumulated [kg m**-2]"}, + /* 22 */ {"AERGN07", "Aerosol type 7 source/gain accumulated [kg m**-2]"}, + /* 23 */ {"AERGN08", "Aerosol type 8 source/gain accumulated [kg m**-2]"}, + /* 24 */ {"AERGN09", "Aerosol type 9 source/gain accumulated [kg m**-2]"}, + /* 25 */ {"AERGN10", "Aerosol type 10 source/gain accumulated [kg m**-2]"}, + /* 26 */ {"AERGN11", "Aerosol type 11 source/gain accumulated [kg m**-2]"}, + /* 27 */ {"AERGN12", "Aerosol type 12 source/gain accumulated [kg m**-2]"}, + /* 28 */ {"var28", "undefined"}, + /* 29 */ {"var29", "undefined"}, + /* 30 */ {"var30", "undefined"}, + /* 31 */ {"AERLS01", "Aerosol type 1 sink/loss accumulated [kg m**-2]"}, + /* 32 */ {"AERLS02", "Aerosol type 2 sink/loss accumulated [kg m**-2]"}, + /* 33 */ {"AERLS03", "Aerosol type 3 sink/loss accumulated [kg m**-2]"}, + /* 34 */ {"AERLS04", "Aerosol type 4 sink/loss accumulated [kg m**-2]"}, + /* 35 */ {"AERLS05", "Aerosol type 5 sink/loss accumulated [kg m**-2]"}, + /* 36 */ {"AERLS06", "Aerosol type 6 sink/loss accumulated [kg m**-2]"}, + /* 37 */ {"AERLS07", "Aerosol type 7 sink/loss accumulated [kg m**-2]"}, + /* 38 */ {"AERLS08", "Aerosol type 8 sink/loss accumulated [kg m**-2]"}, + /* 39 */ {"AERLS09", "Aerosol type 9 sink/loss accumulated [kg m**-2]"}, + /* 40 */ {"AERLS10", "Aerosol type 10 sink/loss accumulated [kg m**-2]"}, + /* 41 */ {"AERLS11", "Aerosol type 11 sink/loss accumulated [kg m**-2]"}, + /* 42 */ {"AERLS12", "Aerosol type 12 sink/loss accumulated [kg m**-2]"}, + /* 43 */ {"var43", "undefined"}, + /* 44 */ {"var44", "undefined"}, + /* 45 */ {"var45", "undefined"}, + /* 46 */ {"AERPR", "Aerosol precursor mixing ratio [kg kg**-1]"}, + /* 47 */ {"AERSM", "Aerosol small mode mixing ratio [kg kg**-1]"}, + /* 48 */ {"AERLG", "Aerosol large mode mixing ratio [kg kg**-1]"}, + /* 49 */ {"AODPR", "Aerosol precursor optical depth [dimensionless]"}, + /* 50 */ {"AODSM", "Aerosol small mode optical depth [dimensionless]"}, + /* 51 */ {"AODLG", "Aerosol large mode optical depth [dimensionless]"}, + /* 52 */ {"AERDEP", "Dust emission potential [kg s**2 m**-5]"}, + /* 53 */ {"AERLTS", "Lifting threshold speed [m s**-1]"}, + /* 54 */ {"AERSCC", "Soil clay content [%]"}, + /* 55 */ {"var55", "undefined"}, + /* 56 */ {"var56", "undefined"}, + /* 57 */ {"var57", "undefined"}, + /* 58 */ {"var58", "undefined"}, + /* 59 */ {"var59", "undefined"}, + /* 60 */ {"var60", "undefined"}, + /* 61 */ {"CO2", "Carbon Dioxide [kg kg**-1]"}, + /* 62 */ {"CH4", "Methane [kg kg**-1]"}, + /* 63 */ {"N2O", "Nitrous oxide [kg kg**-1]"}, + /* 64 */ {"TCCO2", "Total column Carbon Dioxide [kg m**-2]"}, + /* 65 */ {"TCCH4", "Total column Methane [kg m**-2]"}, + /* 66 */ {"TCN2O", "Total column Nitrous oxide [kg m**-2]"}, + /* 67 */ {"CO2OF", "Ocean flux of Carbon Dioxide [kg m**-2 s**-1]"}, + /* 68 */ {"CO2NBF", "Natural biosphere flux of Carbon Dioxide [kg m**-2 s**-1]"}, + /* 69 */ {"CO2APF", "Anthropogenic emissions of Carbon Dioxide [kg m**-2 s**-1]"}, + /* 70 */ {"CH4F", "Methane Surface Fluxes [kg m**-2 s**-1]"}, + /* 71 */ {"kCH4", "Methane loss rate due to radical hydroxyl (OH) [s**-1]"}, + /* 72 */ {"var72", "undefined"}, + /* 73 */ {"var73", "undefined"}, + /* 74 */ {"var74", "undefined"}, + /* 75 */ {"var75", "undefined"}, + /* 76 */ {"var76", "undefined"}, + /* 77 */ {"var77", "undefined"}, + /* 78 */ {"var78", "undefined"}, + /* 79 */ {"var79", "undefined"}, + /* 80 */ {"CO2FIRE", "Wildfire flux of Carbon Dioxide [kg m**-2 s**-1]"}, + /* 81 */ {"COFIRE", "Wildfire flux of Carbon Monoxide [kg m**-2 s**-1]"}, + /* 82 */ {"CH4FIRE", "Wildfire flux of Methane [kg m**-2 s**-1]"}, + /* 83 */ {"NMHCFIRE", "Wildfire flux of Non-Methane Hydro-Carbons [kg m**-2 s**-1]"}, + /* 84 */ {"H2FIRE", "Wildfire flux of Hydrogen [kg m**-2 s**-1]"}, + /* 85 */ {"NOXFIRE", "Wildfire flux of Nitrogen Oxides NOx [kg m**-2 s**-1]"}, + /* 86 */ {"N2OFIRE", "Wildfire flux of Nitrous Oxide [kg m**-2 s**-1]"}, + /* 87 */ {"PM2P5FIRE", "Wildfire flux of Particulate Matter PM2.5 [kg m**-2 s**-1]"}, + /* 88 */ {"TPMFIRE", "Wildfire flux of Total Particulate Matter [kg m**-2 s**-1]"}, + /* 89 */ {"TCFIRE", "Wildfire flux of Total Carbon in Aerosols [kg m**-2 s**-1]"}, + /* 90 */ {"OCFIRE", "Wildfire flux of Organic Carbon [kg m**-2 s**-1]"}, + /* 91 */ {"BCFIRE", "Wildfire flux of Black Carbon [kg m**-2 s**-1]"}, + /* 92 */ {"CFIRE", "Wildfire overall flux of burnt Carbon [kg m**-2 s**-1]"}, + /* 93 */ {"C4FFIRE", "Wildfire fraction of C4 plants [dimensionless]"}, + /* 94 */ {"VEGFIRE", "Wildfire vegetation map index [dimensionless]"}, + /* 95 */ {"CCFIRE", "Wildfire Combustion Completeness [dimensionless]"}, + /* 96 */ {"FLFIRE", "Wildfire Fuel Load"}, + /* 97 */ {"BFFIRE", "Wildfire fraction of area burnt [dimensionless]"}, + /* 98 */ {"OAFIRE", "Wildfire observed area [m**2]"}, + /* 99 */ {"FRPFIRE", "Wildfire radiative power [W m**-2]"}, + /* 100 */ {"CRFIRE", "Wildfire combustion rate [kg m**-2 s**-1]"}, + /* 101 */ {"var101", "undefined"}, + /* 102 */ {"var102", "undefined"}, + /* 103 */ {"var103", "undefined"}, + /* 104 */ {"var104", "undefined"}, + /* 105 */ {"var105", "undefined"}, + /* 106 */ {"var106", "undefined"}, + /* 107 */ {"var107", "undefined"}, + /* 108 */ {"var108", "undefined"}, + /* 109 */ {"var109", "undefined"}, + /* 110 */ {"var110", "undefined"}, + /* 111 */ {"var111", "undefined"}, + /* 112 */ {"var112", "undefined"}, + /* 113 */ {"var113", "undefined"}, + /* 114 */ {"var114", "undefined"}, + /* 115 */ {"var115", "undefined"}, + /* 116 */ {"var116", "undefined"}, + /* 117 */ {"var117", "undefined"}, + /* 118 */ {"var118", "undefined"}, + /* 119 */ {"var119", "undefined"}, + /* 120 */ {"var120", "undefined"}, + /* 121 */ {"NO2", "Nitrogen dioxide [kg kg**-1]"}, + /* 122 */ {"SO2", "Sulphur dioxide [kg kg**-1]"}, + /* 123 */ {"CO", "Carbon monoxide [kg kg**-1]"}, + /* 124 */ {"HCHO", "Formaldehyde [kg kg**-1]"}, + /* 125 */ {"TCNO2", "Total column Nitrogen dioxide [kg m**-2]"}, + /* 126 */ {"TCSO2", "Total column Sulphur dioxide [kg m**-2]"}, + /* 127 */ {"TCCO", "Total column Carbon monoxide [kg m**-2]"}, + /* 128 */ {"TCHCHO", "Total column Formaldehyde [kg m**-2]"}, + /* 129 */ {"NOX", "Nitrogen Oxides [kg kg**-1]"}, + /* 130 */ {"TCNOX", "Total Column Nitrogen Oxides [kg m**-2]"}, + /* 131 */ {"GRG1", "Reactive tracer 1 mass mixing ratio [kg kg**-1]"}, + /* 132 */ {"TCGRG1", "Total column GRG tracer 1 [kg m**-2]"}, + /* 133 */ {"GRG2", "Reactive tracer 2 mass mixing ratio [kg kg**-1]"}, + /* 134 */ {"TCGRG2", "Total column GRG tracer 2 [kg m**-2]"}, + /* 135 */ {"GRG3", "Reactive tracer 3 mass mixing ratio [kg kg**-1]"}, + /* 136 */ {"TCGRG3", "Total column GRG tracer 3 [kg m**-2]"}, + /* 137 */ {"GRG4", "Reactive tracer 4 mass mixing ratio [kg kg**-1]"}, + /* 138 */ {"TCGRG4", "Total column GRG tracer 4 [kg m**-2]"}, + /* 139 */ {"GRG5", "Reactive tracer 5 mass mixing ratio [kg kg**-1]"}, + /* 140 */ {"TCGRG5", "Total column GRG tracer 5 [kg m**-2]"}, + /* 141 */ {"GRG6", "Reactive tracer 6 mass mixing ratio [kg kg**-1]"}, + /* 142 */ {"TCGRG6", "Total column GRG tracer 6 [kg m**-2]"}, + /* 143 */ {"GRG7", "Reactive tracer 7 mass mixing ratio [kg kg**-1]"}, + /* 144 */ {"TCGRG7", "Total column GRG tracer 7 [kg m**-2]"}, + /* 145 */ {"GRG8", "Reactive tracer 8 mass mixing ratio [kg kg**-1]"}, + /* 146 */ {"TCGRG8", "Total column GRG tracer 8 [kg m**-2]"}, + /* 147 */ {"GRG9", "Reactive tracer 9 mass mixing ratio [kg kg**-1]"}, + /* 148 */ {"TCGRG9", "Total column GRG tracer 9 [kg m**-2]"}, + /* 149 */ {"GRG10", "Reactive tracer 10 mass mixing ratio [kg kg**-1]"}, + /* 150 */ {"TCGRG10", "Total column GRG tracer 10 [kg m**-2]"}, + /* 151 */ {"SFNOX", "Surface flux Nitrogen oxides [kg m**-2 s**-1]"}, + /* 152 */ {"SFNO2", "Surface flux Nitrogen dioxide [kg m**-2 s**-1]"}, + /* 153 */ {"SFSO2", "Surface flux Sulphur dioxide [kg m**-2 s**-1]"}, + /* 154 */ {"SFCO2", "Surface flux Carbon monoxide [kg m**-2 s**-1]"}, + /* 155 */ {"SFHCHO", "Surface flux Formaldehyde [kg m**-2 s**-1]"}, + /* 156 */ {"SFGO3", "Surface flux GEMS Ozone [kg m**-2 s**-1]"}, + /* 157 */ {"SFGR1", "Surface flux reactive tracer 1 [kg m**-2 s**-1]"}, + /* 158 */ {"SFGR2", "Surface flux reactive tracer 2 [kg m**-2 s**-1]"}, + /* 159 */ {"SFGR3", "Surface flux reactive tracer 3 [kg m**-2 s**-1]"}, + /* 160 */ {"SFGR4", "Surface flux reactive tracer 4 [kg m**-2 s**-1]"}, + /* 161 */ {"SFGR5", "Surface flux reactive tracer 5 [kg m**-2 s**-1]"}, + /* 162 */ {"SFGR6", "Surface flux reactive tracer 6 [kg m**-2 s**-1]"}, + /* 163 */ {"SFGR7", "Surface flux reactive tracer 7 [kg m**-2 s**-1]"}, + /* 164 */ {"SFGR8", "Surface flux reactive tracer 8 [kg m**-2 s**-1]"}, + /* 165 */ {"SFGR9", "Surface flux reactive tracer 9 [kg m**-2 s**-1]"}, + /* 166 */ {"SFGR10", "Surface flux reactive tracer 10 [kg m**-2 s**-1]"}, + /* 167 */ {"var167", "undefined"}, + /* 168 */ {"var168", "undefined"}, + /* 169 */ {"var169", "undefined"}, + /* 170 */ {"var170", "undefined"}, + /* 171 */ {"var171", "undefined"}, + /* 172 */ {"var172", "undefined"}, + /* 173 */ {"var173", "undefined"}, + /* 174 */ {"var174", "undefined"}, + /* 175 */ {"var175", "undefined"}, + /* 176 */ {"var176", "undefined"}, + /* 177 */ {"var177", "undefined"}, + /* 178 */ {"var178", "undefined"}, + /* 179 */ {"var179", "undefined"}, + /* 180 */ {"var180", "undefined"}, + /* 181 */ {"Ra", "Radon [kg kg**-1]"}, + /* 182 */ {"SF6", "Sulphur Hexafluoride [kg kg**-1]"}, + /* 183 */ {"TCRa", "Total column Radon [kg m**-2]"}, + /* 184 */ {"TCSF6", "Total column Sulphur Hexafluoride [kg m**-2]"}, + /* 185 */ {"SF6APF", "Anthropogenic Emissions of Sulphur Hexafluoride [kg m**-2 s**-1]"}, + /* 186 */ {"var186", "undefined"}, + /* 187 */ {"var187", "undefined"}, + /* 188 */ {"var188", "undefined"}, + /* 189 */ {"var189", "undefined"}, + /* 190 */ {"var190", "undefined"}, + /* 191 */ {"var191", "undefined"}, + /* 192 */ {"var192", "undefined"}, + /* 193 */ {"var193", "undefined"}, + /* 194 */ {"var194", "undefined"}, + /* 195 */ {"var195", "undefined"}, + /* 196 */ {"var196", "undefined"}, + /* 197 */ {"var197", "undefined"}, + /* 198 */ {"var198", "undefined"}, + /* 199 */ {"var199", "undefined"}, + /* 200 */ {"var200", "undefined"}, + /* 201 */ {"var201", "undefined"}, + /* 202 */ {"var202", "undefined"}, + /* 203 */ {"GO3", "GEMS Ozone [kg kg**-1]"}, + /* 204 */ {"var204", "undefined"}, + /* 205 */ {"var205", "undefined"}, + /* 206 */ {"GTCO3", "GEMS Total column ozone [kg m**-2]"}, + /* 207 */ {"AOD550", "Total Aerosol Optical Depth at 550nm [-]"}, + /* 208 */ {"SSAOD550", "Sea Salt Aerosol Optical Depth at 550nm [-]"}, + /* 209 */ {"DUAOD550", "Dust Aerosol Optical Depth at 550nm [-]"}, + /* 210 */ {"OMAOD550", "Organic Matter Aerosol Optical Depth at 550nm [-]"}, + /* 211 */ {"BCAOD550", "Black Carbon Aerosol Optical Depth at 550nm [-]"}, + /* 212 */ {"SUAOD550", "Sulphate Aerosol Optical Depth at 550nm [-]"}, + /* 213 */ {"AOD469", "Total Aerosol Optical Depth at 469nm [-]"}, + /* 214 */ {"AOD670", "Total Aerosol Optical Depth at 670nm [-]"}, + /* 215 */ {"AOD865", "Total Aerosol Optical Depth at 865nm [-]"}, + /* 216 */ {"AOD1240", "Total Aerosol Optical Depth at 1240nm [-]"}, + /* 217 */ {"var217", "undefined"}, + /* 218 */ {"var218", "undefined"}, + /* 219 */ {"var219", "undefined"}, + /* 220 */ {"var220", "undefined"}, + /* 221 */ {"var221", "undefined"}, + /* 222 */ {"var222", "undefined"}, + /* 223 */ {"var223", "undefined"}, + /* 224 */ {"var224", "undefined"}, + /* 225 */ {"var225", "undefined"}, + /* 226 */ {"var226", "undefined"}, + /* 227 */ {"var227", "undefined"}, + /* 228 */ {"var228", "undefined"}, + /* 229 */ {"var229", "undefined"}, + /* 230 */ {"var230", "undefined"}, + /* 231 */ {"var231", "undefined"}, + /* 232 */ {"var232", "undefined"}, + /* 233 */ {"var233", "undefined"}, + /* 234 */ {"var234", "undefined"}, + /* 235 */ {"var235", "undefined"}, + /* 236 */ {"var236", "undefined"}, + /* 237 */ {"var237", "undefined"}, + /* 238 */ {"var238", "undefined"}, + /* 239 */ {"var239", "undefined"}, + /* 240 */ {"var240", "undefined"}, + /* 241 */ {"var241", "undefined"}, + /* 242 */ {"var242", "undefined"}, + /* 243 */ {"var243", "undefined"}, + /* 244 */ {"var244", "undefined"}, + /* 245 */ {"var245", "undefined"}, + /* 246 */ {"var246", "undefined"}, + /* 247 */ {"var247", "undefined"}, + /* 248 */ {"var248", "undefined"}, + /* 249 */ {"var249", "undefined"}, + /* 250 */ {"var250", "undefined"}, + /* 251 */ {"var251", "undefined"}, + /* 252 */ {"var252", "undefined"}, + /* 253 */ {"var253", "undefined"}, + /* 254 */ {"var254", "undefined"}, + /* 255 */ {"var255", "undefined"}, +}; + +const struct ParmTable parm_table_ecmwf_211[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"var1", "undefined"}, + /* 2 */ {"var2", "undefined"}, + /* 3 */ {"var3", "undefined"}, + /* 4 */ {"var4", "undefined"}, + /* 5 */ {"var5", "undefined"}, + /* 6 */ {"var6", "undefined"}, + /* 7 */ {"var7", "undefined"}, + /* 8 */ {"var8", "undefined"}, + /* 9 */ {"var9", "undefined"}, + /* 10 */ {"var10", "undefined"}, + /* 11 */ {"var11", "undefined"}, + /* 12 */ {"var12", "undefined"}, + /* 13 */ {"var13", "undefined"}, + /* 14 */ {"var14", "undefined"}, + /* 15 */ {"var15", "undefined"}, + /* 16 */ {"var16", "undefined"}, + /* 17 */ {"var17", "undefined"}, + /* 18 */ {"var18", "undefined"}, + /* 19 */ {"var19", "undefined"}, + /* 20 */ {"var20", "undefined"}, + /* 21 */ {"var21", "undefined"}, + /* 22 */ {"var22", "undefined"}, + /* 23 */ {"var23", "undefined"}, + /* 24 */ {"var24", "undefined"}, + /* 25 */ {"var25", "undefined"}, + /* 26 */ {"var26", "undefined"}, + /* 27 */ {"var27", "undefined"}, + /* 28 */ {"var28", "undefined"}, + /* 29 */ {"var29", "undefined"}, + /* 30 */ {"var30", "undefined"}, + /* 31 */ {"var31", "undefined"}, + /* 32 */ {"var32", "undefined"}, + /* 33 */ {"var33", "undefined"}, + /* 34 */ {"var34", "undefined"}, + /* 35 */ {"var35", "undefined"}, + /* 36 */ {"var36", "undefined"}, + /* 37 */ {"var37", "undefined"}, + /* 38 */ {"var38", "undefined"}, + /* 39 */ {"var39", "undefined"}, + /* 40 */ {"var40", "undefined"}, + /* 41 */ {"var41", "undefined"}, + /* 42 */ {"var42", "undefined"}, + /* 43 */ {"var43", "undefined"}, + /* 44 */ {"var44", "undefined"}, + /* 45 */ {"var45", "undefined"}, + /* 46 */ {"AERPR", "Aerosol precursor mixing ratio [kg kg**-1]"}, + /* 47 */ {"AERSM", "Aerosol small mode mixing ratio [kg kg**-1]"}, + /* 48 */ {"AERLG", "Aerosol large mode mixing ratio [kg kg**-1]"}, + /* 49 */ {"AODPR", "Aerosol precursor optical depth [dimensionless]"}, + /* 50 */ {"AODSM", "Aerosol small mode optical depth [dimensionless]"}, + /* 51 */ {"AODLG", "Aerosol large mode optical depth [dimensionless]"}, + /* 52 */ {"var52", "undefined"}, + /* 53 */ {"var53", "undefined"}, + /* 54 */ {"var54", "undefined"}, + /* 55 */ {"var55", "undefined"}, + /* 56 */ {"var56", "undefined"}, + /* 57 */ {"var57", "undefined"}, + /* 58 */ {"var58", "undefined"}, + /* 59 */ {"var59", "undefined"}, + /* 60 */ {"var60", "undefined"}, + /* 61 */ {"CO2", "Carbon Dioxide [kg kg**-1]"}, + /* 62 */ {"CH4", "Methane [kg kg**-1]"}, + /* 63 */ {"N2O", "Nitrous oxide [kg kg**-1]"}, + /* 64 */ {"var64", "undefined"}, + /* 65 */ {"var65", "undefined"}, + /* 66 */ {"var66", "undefined"}, + /* 67 */ {"var67", "undefined"}, + /* 68 */ {"var68", "undefined"}, + /* 69 */ {"var69", "undefined"}, + /* 70 */ {"var70", "undefined"}, + /* 71 */ {"var71", "undefined"}, + /* 72 */ {"var72", "undefined"}, + /* 73 */ {"var73", "undefined"}, + /* 74 */ {"var74", "undefined"}, + /* 75 */ {"var75", "undefined"}, + /* 76 */ {"var76", "undefined"}, + /* 77 */ {"var77", "undefined"}, + /* 78 */ {"var78", "undefined"}, + /* 79 */ {"var79", "undefined"}, + /* 80 */ {"var80", "undefined"}, + /* 81 */ {"var81", "undefined"}, + /* 82 */ {"var82", "undefined"}, + /* 83 */ {"var83", "undefined"}, + /* 84 */ {"var84", "undefined"}, + /* 85 */ {"var85", "undefined"}, + /* 86 */ {"var86", "undefined"}, + /* 87 */ {"var87", "undefined"}, + /* 88 */ {"var88", "undefined"}, + /* 89 */ {"var89", "undefined"}, + /* 90 */ {"var90", "undefined"}, + /* 91 */ {"var91", "undefined"}, + /* 92 */ {"var92", "undefined"}, + /* 93 */ {"var93", "undefined"}, + /* 94 */ {"var94", "undefined"}, + /* 95 */ {"var95", "undefined"}, + /* 96 */ {"var96", "undefined"}, + /* 97 */ {"var97", "undefined"}, + /* 98 */ {"var98", "undefined"}, + /* 99 */ {"var99", "undefined"}, + /* 100 */ {"var100", "undefined"}, + /* 101 */ {"var101", "undefined"}, + /* 102 */ {"var102", "undefined"}, + /* 103 */ {"var103", "undefined"}, + /* 104 */ {"var104", "undefined"}, + /* 105 */ {"var105", "undefined"}, + /* 106 */ {"var106", "undefined"}, + /* 107 */ {"var107", "undefined"}, + /* 108 */ {"var108", "undefined"}, + /* 109 */ {"var109", "undefined"}, + /* 110 */ {"var110", "undefined"}, + /* 111 */ {"var111", "undefined"}, + /* 112 */ {"var112", "undefined"}, + /* 113 */ {"var113", "undefined"}, + /* 114 */ {"var114", "undefined"}, + /* 115 */ {"var115", "undefined"}, + /* 116 */ {"var116", "undefined"}, + /* 117 */ {"var117", "undefined"}, + /* 118 */ {"var118", "undefined"}, + /* 119 */ {"var119", "undefined"}, + /* 120 */ {"var120", "undefined"}, + /* 121 */ {"NO2", "Nitrogen dioxide [kg kg**-1]"}, + /* 122 */ {"SO2", "Sulphur dioxide [kg kg**-1]"}, + /* 123 */ {"CO", "Carbon monoxide [kg kg**-1]"}, + /* 124 */ {"HCHO", "Formaldehyde [kg kg**-1]"}, + /* 125 */ {"var125", "undefined"}, + /* 126 */ {"var126", "undefined"}, + /* 127 */ {"var127", "undefined"}, + /* 128 */ {"var128", "undefined"}, + /* 129 */ {"var129", "undefined"}, + /* 130 */ {"var130", "undefined"}, + /* 131 */ {"var131", "undefined"}, + /* 132 */ {"var132", "undefined"}, + /* 133 */ {"var133", "undefined"}, + /* 134 */ {"var134", "undefined"}, + /* 135 */ {"var135", "undefined"}, + /* 136 */ {"var136", "undefined"}, + /* 137 */ {"var137", "undefined"}, + /* 138 */ {"var138", "undefined"}, + /* 139 */ {"var139", "undefined"}, + /* 140 */ {"var140", "undefined"}, + /* 141 */ {"var141", "undefined"}, + /* 142 */ {"var142", "undefined"}, + /* 143 */ {"var143", "undefined"}, + /* 144 */ {"var144", "undefined"}, + /* 145 */ {"var145", "undefined"}, + /* 146 */ {"var146", "undefined"}, + /* 147 */ {"var147", "undefined"}, + /* 148 */ {"var148", "undefined"}, + /* 149 */ {"var149", "undefined"}, + /* 150 */ {"var150", "undefined"}, + /* 151 */ {"var151", "undefined"}, + /* 152 */ {"var152", "undefined"}, + /* 153 */ {"var153", "undefined"}, + /* 154 */ {"var154", "undefined"}, + /* 155 */ {"var155", "undefined"}, + /* 156 */ {"var156", "undefined"}, + /* 157 */ {"var157", "undefined"}, + /* 158 */ {"var158", "undefined"}, + /* 159 */ {"var159", "undefined"}, + /* 160 */ {"var160", "undefined"}, + /* 161 */ {"var161", "undefined"}, + /* 162 */ {"var162", "undefined"}, + /* 163 */ {"var163", "undefined"}, + /* 164 */ {"var164", "undefined"}, + /* 165 */ {"var165", "undefined"}, + /* 166 */ {"var166", "undefined"}, + /* 167 */ {"var167", "undefined"}, + /* 168 */ {"var168", "undefined"}, + /* 169 */ {"var169", "undefined"}, + /* 170 */ {"var170", "undefined"}, + /* 171 */ {"var171", "undefined"}, + /* 172 */ {"var172", "undefined"}, + /* 173 */ {"var173", "undefined"}, + /* 174 */ {"var174", "undefined"}, + /* 175 */ {"var175", "undefined"}, + /* 176 */ {"var176", "undefined"}, + /* 177 */ {"var177", "undefined"}, + /* 178 */ {"var178", "undefined"}, + /* 179 */ {"var179", "undefined"}, + /* 180 */ {"var180", "undefined"}, + /* 181 */ {"var181", "undefined"}, + /* 182 */ {"var182", "undefined"}, + /* 183 */ {"var183", "undefined"}, + /* 184 */ {"var184", "undefined"}, + /* 185 */ {"var185", "undefined"}, + /* 186 */ {"var186", "undefined"}, + /* 187 */ {"var187", "undefined"}, + /* 188 */ {"var188", "undefined"}, + /* 189 */ {"var189", "undefined"}, + /* 190 */ {"var190", "undefined"}, + /* 191 */ {"var191", "undefined"}, + /* 192 */ {"var192", "undefined"}, + /* 193 */ {"var193", "undefined"}, + /* 194 */ {"var194", "undefined"}, + /* 195 */ {"var195", "undefined"}, + /* 196 */ {"var196", "undefined"}, + /* 197 */ {"var197", "undefined"}, + /* 198 */ {"var198", "undefined"}, + /* 199 */ {"var199", "undefined"}, + /* 200 */ {"var200", "undefined"}, + /* 201 */ {"var201", "undefined"}, + /* 202 */ {"var202", "undefined"}, + /* 203 */ {"GO3", "GEMS Ozone [kg kg**-1]"}, + /* 204 */ {"var204", "undefined"}, + /* 205 */ {"var205", "undefined"}, + /* 206 */ {"var206", "undefined"}, + /* 207 */ {"var207", "undefined"}, + /* 208 */ {"var208", "undefined"}, + /* 209 */ {"var209", "undefined"}, + /* 210 */ {"var210", "undefined"}, + /* 211 */ {"var211", "undefined"}, + /* 212 */ {"var212", "undefined"}, + /* 213 */ {"var213", "undefined"}, + /* 214 */ {"var214", "undefined"}, + /* 215 */ {"var215", "undefined"}, + /* 216 */ {"var216", "undefined"}, + /* 217 */ {"var217", "undefined"}, + /* 218 */ {"var218", "undefined"}, + /* 219 */ {"var219", "undefined"}, + /* 220 */ {"var220", "undefined"}, + /* 221 */ {"var221", "undefined"}, + /* 222 */ {"var222", "undefined"}, + /* 223 */ {"var223", "undefined"}, + /* 224 */ {"var224", "undefined"}, + /* 225 */ {"var225", "undefined"}, + /* 226 */ {"var226", "undefined"}, + /* 227 */ {"var227", "undefined"}, + /* 228 */ {"var228", "undefined"}, + /* 229 */ {"var229", "undefined"}, + /* 230 */ {"var230", "undefined"}, + /* 231 */ {"var231", "undefined"}, + /* 232 */ {"var232", "undefined"}, + /* 233 */ {"var233", "undefined"}, + /* 234 */ {"var234", "undefined"}, + /* 235 */ {"var235", "undefined"}, + /* 236 */ {"var236", "undefined"}, + /* 237 */ {"var237", "undefined"}, + /* 238 */ {"var238", "undefined"}, + /* 239 */ {"var239", "undefined"}, + /* 240 */ {"var240", "undefined"}, + /* 241 */ {"var241", "undefined"}, + /* 242 */ {"var242", "undefined"}, + /* 243 */ {"var243", "undefined"}, + /* 244 */ {"var244", "undefined"}, + /* 245 */ {"var245", "undefined"}, + /* 246 */ {"var246", "undefined"}, + /* 247 */ {"var247", "undefined"}, + /* 248 */ {"var248", "undefined"}, + /* 249 */ {"var249", "undefined"}, + /* 250 */ {"var250", "undefined"}, + /* 251 */ {"var251", "undefined"}, + /* 252 */ {"var252", "undefined"}, + /* 253 */ {"var253", "undefined"}, + /* 254 */ {"var254", "undefined"}, + /* 255 */ {"var255", "undefined"}, +}; + +const struct ParmTable parm_table_ecmwf_228[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"CIN", "Convective inhibition [J kg**-1]"}, + /* 2 */ {"OROG", "Orography [m]"}, + /* 3 */ {"ZUST", "Friction velocity [m s**-1]"}, + /* 4 */ {"MEAN2T", "Mean temperature at 2 metres [K]"}, + /* 5 */ {"MEAN10WS", "Mean of 10 metre wind speed [m s**-1]"}, + /* 6 */ {"MEANTCC", "Mean total cloud cover [(0 - 1)]"}, + /* 7 */ {"DL", "Lake depth [m]"}, + /* 8 */ {"LMLT", "Lake mix-layer temperature [K]"}, + /* 9 */ {"LMLD", "Lake mix-layer depth [m]"}, + /* 10 */ {"LBLT", "Lake bottom temperature [K]"}, + /* 11 */ {"LTLT", "Lake total layer temperature [K]"}, + /* 12 */ {"LSHF", "Lake shape factor [dimensionless]"}, + /* 13 */ {"LICT", "Lake ice temperature [K]"}, + /* 14 */ {"LICD", "Lake ice depth [m]"}, + /* 15 */ {"DNDZN", "Minimum vertical gradient of refractivity inside trapping layer [m**-1]"}, + /* 16 */ {"DNDZA", "Mean vertical gradient of refractivity inside trapping layer [m**-1]"}, + /* 17 */ {"DCTB", "Duct base height [m]"}, + /* 18 */ {"TPLB", "Trapping layer base height [m]"}, + /* 19 */ {"TPLT", "Trapping layer top height [m]"}, + /* 20 */ {"var20", "undefined"}, + /* 21 */ {"var21", "undefined"}, + /* 22 */ {"var22", "undefined"}, + /* 23 */ {"var23", "undefined"}, + /* 24 */ {"var24", "undefined"}, + /* 25 */ {"var25", "undefined"}, + /* 26 */ {"var26", "undefined"}, + /* 27 */ {"var27", "undefined"}, + /* 28 */ {"var28", "undefined"}, + /* 29 */ {"var29", "undefined"}, + /* 30 */ {"var30", "undefined"}, + /* 31 */ {"var31", "undefined"}, + /* 32 */ {"var32", "undefined"}, + /* 33 */ {"var33", "undefined"}, + /* 34 */ {"var34", "undefined"}, + /* 35 */ {"var35", "undefined"}, + /* 36 */ {"var36", "undefined"}, + /* 37 */ {"var37", "undefined"}, + /* 38 */ {"var38", "undefined"}, + /* 39 */ {"SM", "Soil Moisture [kg m**-3]"}, + /* 40 */ {"var40", "undefined"}, + /* 41 */ {"var41", "undefined"}, + /* 42 */ {"var42", "undefined"}, + /* 43 */ {"var43", "undefined"}, + /* 44 */ {"var44", "undefined"}, + /* 45 */ {"var45", "undefined"}, + /* 46 */ {"var46", "undefined"}, + /* 47 */ {"var47", "undefined"}, + /* 48 */ {"var48", "undefined"}, + /* 49 */ {"var49", "undefined"}, + /* 50 */ {"var50", "undefined"}, + /* 51 */ {"var51", "undefined"}, + /* 52 */ {"var52", "undefined"}, + /* 53 */ {"var53", "undefined"}, + /* 54 */ {"var54", "undefined"}, + /* 55 */ {"var55", "undefined"}, + /* 56 */ {"var56", "undefined"}, + /* 57 */ {"var57", "undefined"}, + /* 58 */ {"var58", "undefined"}, + /* 59 */ {"var59", "undefined"}, + /* 60 */ {"var60", "undefined"}, + /* 61 */ {"var61", "undefined"}, + /* 62 */ {"var62", "undefined"}, + /* 63 */ {"var63", "undefined"}, + /* 64 */ {"var64", "undefined"}, + /* 65 */ {"var65", "undefined"}, + /* 66 */ {"var66", "undefined"}, + /* 67 */ {"var67", "undefined"}, + /* 68 */ {"var68", "undefined"}, + /* 69 */ {"var69", "undefined"}, + /* 70 */ {"var70", "undefined"}, + /* 71 */ {"var71", "undefined"}, + /* 72 */ {"var72", "undefined"}, + /* 73 */ {"var73", "undefined"}, + /* 74 */ {"var74", "undefined"}, + /* 75 */ {"var75", "undefined"}, + /* 76 */ {"var76", "undefined"}, + /* 77 */ {"var77", "undefined"}, + /* 78 */ {"var78", "undefined"}, + /* 79 */ {"var79", "undefined"}, + /* 80 */ {"var80", "undefined"}, + /* 81 */ {"var81", "undefined"}, + /* 82 */ {"var82", "undefined"}, + /* 83 */ {"var83", "undefined"}, + /* 84 */ {"var84", "undefined"}, + /* 85 */ {"var85", "undefined"}, + /* 86 */ {"var86", "undefined"}, + /* 87 */ {"var87", "undefined"}, + /* 88 */ {"var88", "undefined"}, + /* 89 */ {"var89", "undefined"}, + /* 90 */ {"var90", "undefined"}, + /* 91 */ {"var91", "undefined"}, + /* 92 */ {"var92", "undefined"}, + /* 93 */ {"var93", "undefined"}, + /* 94 */ {"var94", "undefined"}, + /* 95 */ {"var95", "undefined"}, + /* 96 */ {"var96", "undefined"}, + /* 97 */ {"var97", "undefined"}, + /* 98 */ {"var98", "undefined"}, + /* 99 */ {"var99", "undefined"}, + /* 100 */ {"var100", "undefined"}, + /* 101 */ {"var101", "undefined"}, + /* 102 */ {"var102", "undefined"}, + /* 103 */ {"var103", "undefined"}, + /* 104 */ {"var104", "undefined"}, + /* 105 */ {"var105", "undefined"}, + /* 106 */ {"var106", "undefined"}, + /* 107 */ {"var107", "undefined"}, + /* 108 */ {"var108", "undefined"}, + /* 109 */ {"var109", "undefined"}, + /* 110 */ {"var110", "undefined"}, + /* 111 */ {"var111", "undefined"}, + /* 112 */ {"var112", "undefined"}, + /* 113 */ {"var113", "undefined"}, + /* 114 */ {"var114", "undefined"}, + /* 115 */ {"var115", "undefined"}, + /* 116 */ {"var116", "undefined"}, + /* 117 */ {"var117", "undefined"}, + /* 118 */ {"var118", "undefined"}, + /* 119 */ {"var119", "undefined"}, + /* 120 */ {"var120", "undefined"}, + /* 121 */ {"var121", "undefined"}, + /* 122 */ {"var122", "undefined"}, + /* 123 */ {"var123", "undefined"}, + /* 124 */ {"var124", "undefined"}, + /* 125 */ {"var125", "undefined"}, + /* 126 */ {"var126", "undefined"}, + /* 127 */ {"var127", "undefined"}, + /* 128 */ {"var128", "undefined"}, + /* 129 */ {"var129", "undefined"}, + /* 130 */ {"var130", "undefined"}, + /* 131 */ {"U10N", "Neutral wind at 10 m x-component [m s**-1]"}, + /* 132 */ {"V10N", "Neutral wind at 10 m y-component [m s**-1]"}, + /* 133 */ {"var133", "undefined"}, + /* 134 */ {"VTNOWD", "V-tendency from non-orographic wave drag [m s**-2]"}, + /* 135 */ {"var135", "undefined"}, + /* 136 */ {"UTNOWD", "U-tendency from non-orographic wave drag [m s**-2]"}, + /* 137 */ {"var137", "undefined"}, + /* 138 */ {"var138", "undefined"}, + /* 139 */ {"ST", "Soil Temperature [K]"}, + /* 140 */ {"var140", "undefined"}, + /* 141 */ {"SD", "Snow Depth water equivalent [m]"}, + /* 142 */ {"var142", "undefined"}, + /* 143 */ {"var143", "undefined"}, + /* 144 */ {"SF", "Snow Fall water equivalent [kg m**-2]"}, + /* 145 */ {"var145", "undefined"}, + /* 146 */ {"var146", "undefined"}, + /* 147 */ {"var147", "undefined"}, + /* 148 */ {"var148", "undefined"}, + /* 149 */ {"var149", "undefined"}, + /* 150 */ {"var150", "undefined"}, + /* 151 */ {"var151", "undefined"}, + /* 152 */ {"var152", "undefined"}, + /* 153 */ {"var153", "undefined"}, + /* 154 */ {"var154", "undefined"}, + /* 155 */ {"var155", "undefined"}, + /* 156 */ {"var156", "undefined"}, + /* 157 */ {"var157", "undefined"}, + /* 158 */ {"var158", "undefined"}, + /* 159 */ {"var159", "undefined"}, + /* 160 */ {"var160", "undefined"}, + /* 161 */ {"var161", "undefined"}, + /* 162 */ {"var162", "undefined"}, + /* 163 */ {"var163", "undefined"}, + /* 164 */ {"TCC", "Total Cloud Cover [%]"}, + /* 165 */ {"var165", "undefined"}, + /* 166 */ {"var166", "undefined"}, + /* 167 */ {"var167", "undefined"}, + /* 168 */ {"var168", "undefined"}, + /* 169 */ {"var169", "undefined"}, + /* 170 */ {"CAP", "Field capacity [kg m**-3]"}, + /* 171 */ {"WILT", "Wilting point [kg m**-3]"}, + /* 172 */ {"var172", "undefined"}, + /* 173 */ {"var173", "undefined"}, + /* 174 */ {"var174", "undefined"}, + /* 175 */ {"var175", "undefined"}, + /* 176 */ {"var176", "undefined"}, + /* 177 */ {"var177", "undefined"}, + /* 178 */ {"var178", "undefined"}, + /* 179 */ {"var179", "undefined"}, + /* 180 */ {"var180", "undefined"}, + /* 181 */ {"var181", "undefined"}, + /* 182 */ {"var182", "undefined"}, + /* 183 */ {"var183", "undefined"}, + /* 184 */ {"var184", "undefined"}, + /* 185 */ {"var185", "undefined"}, + /* 186 */ {"var186", "undefined"}, + /* 187 */ {"var187", "undefined"}, + /* 188 */ {"var188", "undefined"}, + /* 189 */ {"var189", "undefined"}, + /* 190 */ {"var190", "undefined"}, + /* 191 */ {"var191", "undefined"}, + /* 192 */ {"var192", "undefined"}, + /* 193 */ {"var193", "undefined"}, + /* 194 */ {"var194", "undefined"}, + /* 195 */ {"var195", "undefined"}, + /* 196 */ {"var196", "undefined"}, + /* 197 */ {"var197", "undefined"}, + /* 198 */ {"var198", "undefined"}, + /* 199 */ {"var199", "undefined"}, + /* 200 */ {"var200", "undefined"}, + /* 201 */ {"var201", "undefined"}, + /* 202 */ {"var202", "undefined"}, + /* 203 */ {"var203", "undefined"}, + /* 204 */ {"var204", "undefined"}, + /* 205 */ {"var205", "undefined"}, + /* 206 */ {"var206", "undefined"}, + /* 207 */ {"var207", "undefined"}, + /* 208 */ {"var208", "undefined"}, + /* 209 */ {"var209", "undefined"}, + /* 210 */ {"var210", "undefined"}, + /* 211 */ {"var211", "undefined"}, + /* 212 */ {"var212", "undefined"}, + /* 213 */ {"var213", "undefined"}, + /* 214 */ {"var214", "undefined"}, + /* 215 */ {"var215", "undefined"}, + /* 216 */ {"var216", "undefined"}, + /* 217 */ {"var217", "undefined"}, + /* 218 */ {"var218", "undefined"}, + /* 219 */ {"var219", "undefined"}, + /* 220 */ {"var220", "undefined"}, + /* 221 */ {"var221", "undefined"}, + /* 222 */ {"var222", "undefined"}, + /* 223 */ {"var223", "undefined"}, + /* 224 */ {"var224", "undefined"}, + /* 225 */ {"var225", "undefined"}, + /* 226 */ {"var226", "undefined"}, + /* 227 */ {"var227", "undefined"}, + /* 228 */ {"TP", "Total Precipitation [kg m**-2]"}, + /* 229 */ {"var229", "undefined"}, + /* 230 */ {"var230", "undefined"}, + /* 231 */ {"var231", "undefined"}, + /* 232 */ {"var232", "undefined"}, + /* 233 */ {"var233", "undefined"}, + /* 234 */ {"var234", "undefined"}, + /* 235 */ {"var235", "undefined"}, + /* 236 */ {"var236", "undefined"}, + /* 237 */ {"var237", "undefined"}, + /* 238 */ {"var238", "undefined"}, + /* 239 */ {"var239", "undefined"}, + /* 240 */ {"var240", "undefined"}, + /* 241 */ {"var241", "undefined"}, + /* 242 */ {"var242", "undefined"}, + /* 243 */ {"var243", "undefined"}, + /* 244 */ {"var244", "undefined"}, + /* 245 */ {"var245", "undefined"}, + /* 246 */ {"var246", "undefined"}, + /* 247 */ {"var247", "undefined"}, + /* 248 */ {"var248", "undefined"}, + /* 249 */ {"var249", "undefined"}, + /* 250 */ {"var250", "undefined"}, + /* 251 */ {"var251", "undefined"}, + /* 252 */ {"var252", "undefined"}, + /* 253 */ {"var253", "undefined"}, + /* 254 */ {"var254", "undefined"}, + /* 255 */ {"var255", "undefined"}, +}; + +const struct ParmTable parm_table_nceptab_129[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"PRES", "Pressure [Pa]"}, + /* 2 */ {"PRMSL", "Pressure reduced to MSL [Pa]"}, + /* 3 */ {"PTEND", "Pressure tendency [Pa/s]"}, + /* 4 */ {"PVORT", "Pot. vorticity [km^2/kg/s]"}, + /* 5 */ {"ICAHT", "ICAO Standard Atmosphere Reference Height [M]"}, + /* 6 */ {"GP", "Geopotential [m^2/s^2]"}, + /* 7 */ {"HGT", "Geopotential height [gpm]"}, + /* 8 */ {"DIST", "Geometric height [m]"}, + /* 9 */ {"HSTDV", "Std dev of height [m]"}, + /* 10 */ {"TOZNE", "Total ozone [Dobson]"}, + /* 11 */ {"TMP", "Temp. [K]"}, + /* 12 */ {"VTMP", "Virtual temp. [K]"}, + /* 13 */ {"POT", "Potential temp. [K]"}, + /* 14 */ {"EPOT", "Pseudo-adiabatic pot. temp. [K]"}, + /* 15 */ {"TMAX", "Max. temp. [K]"}, + /* 16 */ {"TMIN", "Min. temp. [K]"}, + /* 17 */ {"DPT", "Dew point temp. [K]"}, + /* 18 */ {"DEPR", "Dew point depression [K]"}, + /* 19 */ {"LAPR", "Lapse rate [K/m]"}, + /* 20 */ {"VIS", "Visibility [m]"}, + /* 21 */ {"RDSP1", "Radar spectra (1) [non-dim]"}, + /* 22 */ {"RDSP2", "Radar spectra (2) [non-dim]"}, + /* 23 */ {"RDSP3", "Radar spectra (3) [non-dim]"}, + /* 24 */ {"PLI", "Parcel lifted index (to 500 hPa) [K]"}, + /* 25 */ {"TMPA", "Temp. anomaly [K]"}, + /* 26 */ {"PRESA", "Pressure anomaly [Pa]"}, + /* 27 */ {"GPA", "Geopotential height anomaly [gpm]"}, + /* 28 */ {"WVSP1", "Wave spectra (1) [non-dim]"}, + /* 29 */ {"WVSP2", "Wave spectra (2) [non-dim]"}, + /* 30 */ {"WVSP3", "Wave spectra (3) [non-dim]"}, + /* 31 */ {"WDIR", "Wind direction [deg]"}, + /* 32 */ {"WIND", "Wind speed [m/s]"}, + /* 33 */ {"UGRD", "u wind [m/s]"}, + /* 34 */ {"VGRD", "v wind [m/s]"}, + /* 35 */ {"STRM", "Stream function [m^2/s]"}, + /* 36 */ {"VPOT", "Velocity potential [m^2/s]"}, + /* 37 */ {"MNTSF", "Montgomery stream function [m^2/s^2]"}, + /* 38 */ {"SGCVV", "Sigma coord. vertical velocity [/s]"}, + /* 39 */ {"VVEL", "Pressure vertical velocity [Pa/s]"}, + /* 40 */ {"DZDT", "Geometric vertical velocity [m/s]"}, + /* 41 */ {"ABSV", "Absolute vorticity [/s]"}, + /* 42 */ {"ABSD", "Absolute divergence [/s]"}, + /* 43 */ {"RELV", "Relative vorticity [/s]"}, + /* 44 */ {"RELD", "Relative divergence [/s]"}, + /* 45 */ {"VUCSH", "Vertical u shear [/s]"}, + /* 46 */ {"VVCSH", "Vertical v shear [/s]"}, + /* 47 */ {"DIRC", "Direction of current [deg]"}, + /* 48 */ {"SPC", "Speed of current [m/s]"}, + /* 49 */ {"UOGRD", "u of current [m/s]"}, + /* 50 */ {"VOGRD", "v of current [m/s]"}, + /* 51 */ {"SPFH", "Specific humidity [kg/kg]"}, + /* 52 */ {"RH", "Relative humidity [%]"}, + /* 53 */ {"MIXR", "Humidity mixing ratio [kg/kg]"}, + /* 54 */ {"PWAT", "Precipitable water [kg/m^2]"}, + /* 55 */ {"VAPP", "Vapor pressure [Pa]"}, + /* 56 */ {"SATD", "Saturation deficit [Pa]"}, + /* 57 */ {"EVP", "Evaporation [kg/m^2]"}, + /* 58 */ {"CICE", "Cloud Ice [kg/m^2]"}, + /* 59 */ {"PRATE", "Precipitation rate [kg/m^2/s]"}, + /* 60 */ {"TSTM", "Thunderstorm probability [%]"}, + /* 61 */ {"APCP", "Total precipitation [kg/m^2]"}, + /* 62 */ {"NCPCP", "Large scale precipitation [kg/m^2]"}, + /* 63 */ {"ACPCP", "Convective precipitation [kg/m^2]"}, + /* 64 */ {"SRWEQ", "Snowfall rate water equiv. [kg/m^2/s]"}, + /* 65 */ {"WEASD", "Accum. snow [kg/m^2]"}, + /* 66 */ {"SNOD", "Snow depth [m]"}, + /* 67 */ {"MIXHT", "Mixed layer depth [m]"}, + /* 68 */ {"TTHDP", "Transient thermocline depth [m]"}, + /* 69 */ {"MTHD", "Main thermocline depth [m]"}, + /* 70 */ {"MTHA", "Main thermocline anomaly [m]"}, + /* 71 */ {"TCDC", "Total cloud cover [%]"}, + /* 72 */ {"CDCON", "Convective cloud cover [%]"}, + /* 73 */ {"LCDC", "Low level cloud cover [%]"}, + /* 74 */ {"MCDC", "Mid level cloud cover [%]"}, + /* 75 */ {"HCDC", "High level cloud cover [%]"}, + /* 76 */ {"CWAT", "Cloud water [kg/m^2]"}, + /* 77 */ {"BLI", "Best lifted index (to 500 hPa) [K]"}, + /* 78 */ {"SNOC", "Convective snow [kg/m^2]"}, + /* 79 */ {"SNOL", "Large scale snow [kg/m^2]"}, + /* 80 */ {"WTMP", "Water temp. [K]"}, + /* 81 */ {"LAND", "Land cover (land=1;sea=0) [fraction]"}, + /* 82 */ {"DSLM", "Deviation of sea level from mean [m]"}, + /* 83 */ {"SFCR", "Surface roughness [m]"}, + /* 84 */ {"ALBDO", "Albedo [%]"}, + /* 85 */ {"TSOIL", "Soil temp. [K]"}, + /* 86 */ {"SOILM", "Soil moisture content [kg/m^2]"}, + /* 87 */ {"VEG", "Vegetation [%]"}, + /* 88 */ {"SALTY", "Salinity [kg/kg]"}, + /* 89 */ {"DEN", "Density [kg/m^3]"}, + /* 90 */ {"WATR", "Water runoff [kg/m^2]"}, + /* 91 */ {"ICEC", "Ice concentration (ice=1;no ice=0) [fraction]"}, + /* 92 */ {"ICETK", "Ice thickness [m]"}, + /* 93 */ {"DICED", "Direction of ice drift [deg]"}, + /* 94 */ {"SICED", "Speed of ice drift [m/s]"}, + /* 95 */ {"UICE", "u of ice drift [m/s]"}, + /* 96 */ {"VICE", "v of ice drift [m/s]"}, + /* 97 */ {"ICEG", "Ice growth rate [m/s]"}, + /* 98 */ {"ICED", "Ice divergence [/s]"}, + /* 99 */ {"SNOM", "Snow melt [kg/m^2]"}, + /* 100 */ {"HTSGW", "Sig height of wind waves and swell [m]"}, + /* 101 */ {"WVDIR", "Direction of wind waves [deg]"}, + /* 102 */ {"WVHGT", "Sig height of wind waves [m]"}, + /* 103 */ {"WVPER", "Mean period of wind waves [s]"}, + /* 104 */ {"SWDIR", "Direction of swell waves [deg]"}, + /* 105 */ {"SWELL", "Sig height of swell waves [m]"}, + /* 106 */ {"SWPER", "Mean period of swell waves [s]"}, + /* 107 */ {"DIRPW", "Primary wave direction [deg]"}, + /* 108 */ {"PERPW", "Primary wave mean period [s]"}, + /* 109 */ {"DIRSW", "Secondary wave direction [deg]"}, + /* 110 */ {"PERSW", "Secondary wave mean period [s]"}, + /* 111 */ {"NSWRS", "Net short wave (surface) [W/m^2]"}, + /* 112 */ {"NLWRS", "Net long wave (surface) [W/m^2]"}, + /* 113 */ {"NSWRT", "Net short wave (top) [W/m^2]"}, + /* 114 */ {"NLWRT", "Net long wave (top) [W/m^2]"}, + /* 115 */ {"LWAVR", "Long wave [W/m^2]"}, + /* 116 */ {"SWAVR", "Short wave [W/m^2]"}, + /* 117 */ {"GRAD", "Global radiation [W/m^2]"}, + /* 118 */ {"BRTMP", "Brightness temperature [K]"}, + /* 119 */ {"LWRAD", "Radiance with respect to wave no. [W/m/sr]"}, + /* 120 */ {"SWRAD", "Radiance with respect ot wave len. [W/m^3/sr]"}, + /* 121 */ {"LHTFL", "Latent heat flux [W/m^2]"}, + /* 122 */ {"SHTFL", "Sensible heat flux [W/m^2]"}, + /* 123 */ {"BLYDP", "Boundary layer dissipation [W/m^2]"}, + /* 124 */ {"UFLX", "Zonal momentum flux [N/m^2]"}, + /* 125 */ {"VFLX", "Meridional momentum flux [N/m^2]"}, + /* 126 */ {"WMIXE", "Wind mixing energy [J]"}, + /* 127 */ {"IMGD", "Image data []"}, + /* 128 */ {"PAOT", "Probability anomaly of temp [%]"}, + /* 129 */ {"PAOP", "Probability anomaly of precip [%]"}, + /* 130 */ {"CWR", "Probability of wetting rain > 0.1 in [%]"}, + /* 131 */ {"FRAIN", "Rain fraction of total liquid water []"}, + /* 132 */ {"FICE", "Ice fraction of total condensate []"}, + /* 133 */ {"FRIME", "Rime factor []"}, + /* 134 */ {"CUEFI", "Convective cloud efficiency []"}, + /* 135 */ {"TCOND", "Total condensate [kg/kg]"}, + /* 136 */ {"TCOLW", "Total column cloud water [kg/m/m]"}, + /* 137 */ {"TCOLI", "Total column cloud ice [kg/m/m]"}, + /* 138 */ {"TCOLR", "Total column rain [kg/m/m]"}, + /* 139 */ {"TCOLS", "Total column snow [kg/m/m]"}, + /* 140 */ {"TCOLC", "Total column condensate [kg/m/m]"}, + /* 141 */ {"PLPL", "Pressure of level from which parcel was lifted [Pa]"}, + /* 142 */ {"HLPL", "Height of level from which parcel was lifted [m]"}, + /* 143 */ {"CEMS", "Cloud Emissivity [fraction]"}, + /* 144 */ {"COPD", "Cloud Optical Depth [non-dim]"}, + /* 145 */ {"PSIZ", "Effective Particle size [microns]"}, + /* 146 */ {"TCWAT", "Total Water Cloud [%]"}, + /* 147 */ {"TCICE", "Total Ice Cloud [%]"}, + /* 148 */ {"WDIF", "Wind Difference [m/s]"}, + /* 149 */ {"WSTP", "Wave Steepness [non-dim]"}, + /* 150 */ {"PTAN", "Probability of Temp. above normal [%]"}, + /* 151 */ {"PTNN", "Probability of Temp. near normal [%]"}, + /* 152 */ {"PTBN", "Probability of Temp. below normal [%]"}, + /* 153 */ {"PPAN", "Probability of Precip. above normal [%]"}, + /* 154 */ {"PPNN", "Probability of Precip. near normal [%]"}, + /* 155 */ {"PPBN", "Probability of Precip. below normal [%]"}, + /* 156 */ {"PMTC", "Particulate matter (coarse) [ug/m^3]"}, + /* 157 */ {"PMTF", "Particulate matter (fine) [ug/m^3]"}, + /* 158 */ {"AETMP", "Analysis Error of Temperature [K]"}, + /* 159 */ {"AEDPT", "Analysis Error of Dew Point [K]"}, + /* 160 */ {"AESPH", "Analysis Error of Specific Humidity [kg/kg] wne"}, + /* 161 */ {"AEUWD", "Analysis Error of U-wind [m/s]"}, + /* 162 */ {"AEVWD", "Analysis Error of V-wind [m/s]"}, + /* 163 */ {"LPMTF", "Particulate matter (fine) [log10(ug/m^3)]"}, + /* 164 */ {"LIPMF", "Integrated Column Particulate matter (fine) [log10(ug/m^2)] wne"}, + /* 165 */ {"REFZR", "Derived radar reflectivity backscatter from rain [mm^6/m^3]"}, + /* 166 */ {"REFZI", "Derived radar reflectivity backscatter from ice [mm^6/m^3]"}, + /* 167 */ {"REFZC", "Derived radar reflectivity backscatter from parameterized convection [mm^6/m^3]"}, + /* 168 */ {"TCLSW", "Integrated supercooled liquid water [kg/m^2]"}, + /* 169 */ {"TCOLM", "Total Column Integrated Melting Ice [kg/m^2]"}, + /* 170 */ {"ELRDI", "Ellrod Index [non-dim]"}, + /* 171 */ {"TSEC", "Seconds prior to initial reference time [sec]"}, + /* 172 */ {"TSECA", "Seconds after initial reference time [sec]"}, + /* 173 */ {"NUM", "Number of samples/observations [non-dim]"}, + /* 174 */ {"AEPRS", "Analysis Error of Pressure [Pa]"}, + /* 175 */ {"ICSEV", "Icing Severity [non-dim]"}, + /* 176 */ {"ICPRB", "Icing Probability [non-dim]"}, + /* 177 */ {"LAVNI", "Low-level Aviation Interest [non-dim]"}, + /* 178 */ {"HAVNI", "High-level Aviation Interest [non-dim]"}, + /* 179 */ {"FLGHT", "Flight Category [non-dim]"}, + /* 180 */ {"OZCON", "Ozone concentration [ppb]"}, + /* 181 */ {"OZCAT", "Categorical ozone concentration [?]"}, + /* 182 */ {"VEDH", "vertical heat eddy diffusivity [m^2/s]"}, + /* 183 */ {"SIGV", "Sigma level value [non-dim]"}, + /* 184 */ {"EWGT", "Ensemble Weight [non-dim]"}, + /* 185 */ {"CICEL", "Confidence indicator - Ceiling [non-dim]"}, + /* 186 */ {"CIVIS", "Confidence indicator - Visibility [non-dim]"}, + /* 187 */ {"CIFLT", "Confidence indicator - Flight Category [non-dim]"}, + /* 188 */ {"LAVV", "Latitude of V wind component of velocity [deg]"}, + /* 189 */ {"LOVV", "Longitude of V wind component of velocity [deg]"}, + /* 190 */ {"USCT", "Scatterometer est. U wind component [m/s]"}, + /* 191 */ {"VSCT", "Scatterometer est. V wind component [m/s]"}, + /* 192 */ {"LAUV", "Latitude of U wind component of velocity [deg]"}, + /* 193 */ {"LOUV", "Longitude of U wind component of velocity [deg]"}, + /* 194 */ {"TCHP", "Tropical Cyclone Heat Potential [J/m^2]"}, + /* 195 */ {"DBSS", "Geometric Depth Below Sea Surface [m]"}, + /* 196 */ {"ODHA", "Ocean Dynamic Heat Anomaly [dynamic m]"}, + /* 197 */ {"OHC", "Ocean Heat Content [J/m^2]"}, + /* 198 */ {"SSHG", "Sea Surface Height Relative to Geoid [m]"}, + /* 199 */ {"SLTFL", "Salt flux [g/cm^2/s]"}, + /* 200 */ {"DUVB", "UV-B Downward Solar Flux [W/m^2]"}, + /* 201 */ {"CDUVB", "Clear Sky UV-B Downward Solar Flux [W/m^2]"}, + /* 202 */ {"THFLX", "Total downward heat flux at surface [W/m^2]"}, + /* 203 */ {"UVAR", "U velocity variance [m^2/s^2]"}, + /* 204 */ {"VVAR", "V velocity variance [m^2/s^2]"}, + /* 205 */ {"UVVCC", "UV Velocity Cross Correlation [m^2/s^2]"}, + /* 206 */ {"MCLS", "Meteorological Correlation Length Scale [m]"}, + /* 207 */ {"LAPP", "Latitude of pressure point [deg]"}, + /* 208 */ {"LOPP", "Longitude of pressure point [deg]"}, + /* 209 */ {"var209", "undefined"}, + /* 210 */ {"REFO", "Observed radar reflectivity [dbZ]"}, + /* 211 */ {"REFD", "Derived radar reflectivity [dbZ]"}, + /* 212 */ {"REFC", "Maximum/Composite radar reflectivity [dbZ]"}, + /* 213 */ {"SBT122", "Simulated Brightness Temperature for GOES12, Channel 2 [K]"}, + /* 214 */ {"SBT123", "Simulated Brightness Temperature for GOES12, Channel 3 [K]"}, + /* 215 */ {"SBT124", "Simulated Brightness Temperature for GOES12, Channel 4 [K]"}, + /* 216 */ {"SBT125", "Simulated Brightness Temperature for GOES12, Channel 5 [K]"}, + /* 217 */ {"MINRH", "Minimum Relative Humumidity [%]"}, + /* 218 */ {"MAXRH", "Maximum Relative Humumidity [%]"}, + /* 219 */ {"CEIL", "Ceiling [m]"}, + /* 220 */ {"PBLREG", "Planetary boundary layer regime []"}, + /* 221 */ {"SBC123", "Simulated brightness counts for GOES12, Channel 3 [byte]"}, + /* 222 */ {"SBC124", "Simulated brightness counts for GOES12, Channel 4 [byte]"}, + /* 223 */ {"RPRATE", "Rain precipitation rate [kg/m^2/s]"}, + /* 224 */ {"SPRATE", "Snow precipitation rate [kg/m^2/s]"}, + /* 225 */ {"FPRATE", "Freezing rain precipitation rate [kg/m^2/s]"}, + /* 226 */ {"IPRATE", "Ice pellets precipitation rate [kg/m^2/s]"}, + /* 227 */ {"UPHL", "Updraft Helicity [m^2/s^2]"}, + /* 228 */ {"SURGE", "Storm Surge [m]"}, + /* 229 */ {"ETSRG", "Extra-tropical storm Surge [m]"}, + /* 230 */ {"RHPW", "Relative humidity with respect to precip water [%]"}, + /* 231 */ {"OZMAX1", "Ozone daily max from 1-hour ave [ppbV]"}, + /* 232 */ {"OZMAX8", "Ozone daily max from 8-hour ave [ppbV]"}, + /* 233 */ {"PDMAX1", "PM 2.5 daily max from 1-hour ave [ug/m^3]"}, + /* 234 */ {"PDMAX24", "PM 2.5 daily max from 24-hour ave [ug/m^3]"}, + /* 235 */ {"MAXREF", "Hourly max of sim. reflect at 1km AGL [dbZ]"}, + /* 236 */ {"MXUPHL", "Hourly max updraft helicity 2-5km AGL [m^2/s^2]"}, + /* 237 */ {"MAXUVV", "Hourly max upward vert vel in lowest 400mb [m/s]"}, + /* 238 */ {"MAXDVV", "Hourly max downward vert fel in lowest 400mb [m/s]"}, + /* 239 */ {"MAXVIG", "Hourly max column graupel [kg/m^2]"}, + /* 240 */ {"RETOP", "Radar echo top (18.3 dbZ) [m]"}, + /* 241 */ {"VRATE", "Ventilation rate [m^2/s]"}, + /* 242 */ {"TCSRG20", "20% tropical cyclone storm exceedance [m]"}, + /* 243 */ {"TCSRG30", "30% tropical cyclone storm exceedance [m]"}, + /* 244 */ {"TCSRG40", "40% tropical cyclone storm exceedance [m]"}, + /* 245 */ {"TCSRG50", "50% tropical cyclone storm exceedance [m]"}, + /* 246 */ {"TCSRG60", "60% tropical cyclone storm exceedance [m]"}, + /* 247 */ {"TCSRG70", "70% tropical cyclone storm exceedance [m]"}, + /* 248 */ {"TCSRG80", "80% tropical cyclone storm exceedance [m]"}, + /* 249 */ {"TCSRG90", "90% tropical cyclone storm exceedance [m]"}, + /* 250 */ {"HINDEX", "Haines index []"}, + /* 251 */ {"DIFTEN", "Difference between 2 states in total energy norm [J/kg]"}, + /* 252 */ {"PSPCP", "Pseudo-precipitation [kg/m^2]"}, + /* 253 */ {"MAXUW", "U of hourly max 10m wind speed [m/s]"}, + /* 254 */ {"MAXVW", "V of hourly max 10m wind speed [m/s]"}, + /* 255 */ {"var255", "undefined"}, +}; + +const struct ParmTable parm_table_nceptab_140[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"PRES", "Pressure [Pa]"}, + /* 2 */ {"PRMSL", "Pressure reduced to MSL [Pa]"}, + /* 3 */ {"PTEND", "Pressure tendency [Pa/s]"}, + /* 4 */ {"PVORT", "Pot. vorticity [km^2/kg/s]"}, + /* 5 */ {"ICAHT", "ICAO Standard Atmosphere Reference Height [M]"}, + /* 6 */ {"GP", "Geopotential [m^2/s^2]"}, + /* 7 */ {"HGT", "Geopotential height [gpm]"}, + /* 8 */ {"DIST", "Geometric height [m]"}, + /* 9 */ {"HSTDV", "Std dev of height [m]"}, + /* 10 */ {"TOZNE", "Total ozone [Dobson]"}, + /* 11 */ {"TMP", "Temp. [K]"}, + /* 12 */ {"VTMP", "Virtual temp. [K]"}, + /* 13 */ {"POT", "Potential temp. [K]"}, + /* 14 */ {"EPOT", "Pseudo-adiabatic pot. temp. [K]"}, + /* 15 */ {"TMAX", "Max. temp. [K]"}, + /* 16 */ {"TMIN", "Min. temp. [K]"}, + /* 17 */ {"DPT", "Dew point temp. [K]"}, + /* 18 */ {"DEPR", "Dew point depression [K]"}, + /* 19 */ {"LAPR", "Lapse rate [K/m]"}, + /* 20 */ {"VIS", "Visibility [m]"}, + /* 21 */ {"RDSP1", "Radar spectra (1) [non-dim]"}, + /* 22 */ {"RDSP2", "Radar spectra (2) [non-dim]"}, + /* 23 */ {"RDSP3", "Radar spectra (3) [non-dim]"}, + /* 24 */ {"PLI", "Parcel lifted index (to 500 hPa) [K]"}, + /* 25 */ {"TMPA", "Temp. anomaly [K]"}, + /* 26 */ {"PRESA", "Pressure anomaly [Pa]"}, + /* 27 */ {"GPA", "Geopotential height anomaly [gpm]"}, + /* 28 */ {"WVSP1", "Wave spectra (1) [non-dim]"}, + /* 29 */ {"WVSP2", "Wave spectra (2) [non-dim]"}, + /* 30 */ {"WVSP3", "Wave spectra (3) [non-dim]"}, + /* 31 */ {"WDIR", "Wind direction [deg]"}, + /* 32 */ {"WIND", "Wind speed [m/s]"}, + /* 33 */ {"UGRD", "u wind [m/s]"}, + /* 34 */ {"VGRD", "v wind [m/s]"}, + /* 35 */ {"STRM", "Stream function [m^2/s]"}, + /* 36 */ {"VPOT", "Velocity potential [m^2/s]"}, + /* 37 */ {"MNTSF", "Montgomery stream function [m^2/s^2]"}, + /* 38 */ {"SGCVV", "Sigma coord. vertical velocity [/s]"}, + /* 39 */ {"VVEL", "Pressure vertical velocity [Pa/s]"}, + /* 40 */ {"DZDT", "Geometric vertical velocity [m/s]"}, + /* 41 */ {"ABSV", "Absolute vorticity [/s]"}, + /* 42 */ {"ABSD", "Absolute divergence [/s]"}, + /* 43 */ {"RELV", "Relative vorticity [/s]"}, + /* 44 */ {"RELD", "Relative divergence [/s]"}, + /* 45 */ {"VUCSH", "Vertical u shear [/s]"}, + /* 46 */ {"VVCSH", "Vertical v shear [/s]"}, + /* 47 */ {"DIRC", "Direction of current [deg]"}, + /* 48 */ {"SPC", "Speed of current [m/s]"}, + /* 49 */ {"UOGRD", "u of current [m/s]"}, + /* 50 */ {"VOGRD", "v of current [m/s]"}, + /* 51 */ {"SPFH", "Specific humidity [kg/kg]"}, + /* 52 */ {"RH", "Relative humidity [%]"}, + /* 53 */ {"MIXR", "Humidity mixing ratio [kg/kg]"}, + /* 54 */ {"PWAT", "Precipitable water [kg/m^2]"}, + /* 55 */ {"VAPP", "Vapor pressure [Pa]"}, + /* 56 */ {"SATD", "Saturation deficit [Pa]"}, + /* 57 */ {"EVP", "Evaporation [kg/m^2]"}, + /* 58 */ {"CICE", "Cloud Ice [kg/m^2]"}, + /* 59 */ {"PRATE", "Precipitation rate [kg/m^2/s]"}, + /* 60 */ {"TSTM", "Thunderstorm probability [%]"}, + /* 61 */ {"APCP", "Total precipitation [kg/m^2]"}, + /* 62 */ {"NCPCP", "Large scale precipitation [kg/m^2]"}, + /* 63 */ {"ACPCP", "Convective precipitation [kg/m^2]"}, + /* 64 */ {"SRWEQ", "Snowfall rate water equiv. [kg/m^2/s]"}, + /* 65 */ {"WEASD", "Accum. snow [kg/m^2]"}, + /* 66 */ {"SNOD", "Snow depth [m]"}, + /* 67 */ {"MIXHT", "Mixed layer depth [m]"}, + /* 68 */ {"TTHDP", "Transient thermocline depth [m]"}, + /* 69 */ {"MTHD", "Main thermocline depth [m]"}, + /* 70 */ {"MTHA", "Main thermocline anomaly [m]"}, + /* 71 */ {"TCDC", "Total cloud cover [%]"}, + /* 72 */ {"CDCON", "Convective cloud cover [%]"}, + /* 73 */ {"LCDC", "Low level cloud cover [%]"}, + /* 74 */ {"MCDC", "Mid level cloud cover [%]"}, + /* 75 */ {"HCDC", "High level cloud cover [%]"}, + /* 76 */ {"CWAT", "Cloud water [kg/m^2]"}, + /* 77 */ {"BLI", "Best lifted index (to 500 hPa) [K]"}, + /* 78 */ {"SNOC", "Convective snow [kg/m^2]"}, + /* 79 */ {"SNOL", "Large scale snow [kg/m^2]"}, + /* 80 */ {"WTMP", "Water temp. [K]"}, + /* 81 */ {"LAND", "Land cover (land=1;sea=0) [fraction]"}, + /* 82 */ {"DSLM", "Deviation of sea level from mean [m]"}, + /* 83 */ {"SFCR", "Surface roughness [m]"}, + /* 84 */ {"ALBDO", "Albedo [%]"}, + /* 85 */ {"TSOIL", "Soil temp. [K]"}, + /* 86 */ {"SOILM", "Soil moisture content [kg/m^2]"}, + /* 87 */ {"VEG", "Vegetation [%]"}, + /* 88 */ {"SALTY", "Salinity [kg/kg]"}, + /* 89 */ {"DEN", "Density [kg/m^3]"}, + /* 90 */ {"WATR", "Water runoff [kg/m^2]"}, + /* 91 */ {"ICEC", "Ice concentration (ice=1;no ice=0) [fraction]"}, + /* 92 */ {"ICETK", "Ice thickness [m]"}, + /* 93 */ {"DICED", "Direction of ice drift [deg]"}, + /* 94 */ {"SICED", "Speed of ice drift [m/s]"}, + /* 95 */ {"UICE", "u of ice drift [m/s]"}, + /* 96 */ {"VICE", "v of ice drift [m/s]"}, + /* 97 */ {"ICEG", "Ice growth rate [m/s]"}, + /* 98 */ {"ICED", "Ice divergence [/s]"}, + /* 99 */ {"SNOM", "Snow melt [kg/m^2]"}, + /* 100 */ {"HTSGW", "Sig height of wind waves and swell [m]"}, + /* 101 */ {"WVDIR", "Direction of wind waves [deg]"}, + /* 102 */ {"WVHGT", "Sig height of wind waves [m]"}, + /* 103 */ {"WVPER", "Mean period of wind waves [s]"}, + /* 104 */ {"SWDIR", "Direction of swell waves [deg]"}, + /* 105 */ {"SWELL", "Sig height of swell waves [m]"}, + /* 106 */ {"SWPER", "Mean period of swell waves [s]"}, + /* 107 */ {"DIRPW", "Primary wave direction [deg]"}, + /* 108 */ {"PERPW", "Primary wave mean period [s]"}, + /* 109 */ {"DIRSW", "Secondary wave direction [deg]"}, + /* 110 */ {"PERSW", "Secondary wave mean period [s]"}, + /* 111 */ {"NSWRS", "Net short wave (surface) [W/m^2]"}, + /* 112 */ {"NLWRS", "Net long wave (surface) [W/m^2]"}, + /* 113 */ {"NSWRT", "Net short wave (top) [W/m^2]"}, + /* 114 */ {"NLWRT", "Net long wave (top) [W/m^2]"}, + /* 115 */ {"LWAVR", "Long wave [W/m^2]"}, + /* 116 */ {"SWAVR", "Short wave [W/m^2]"}, + /* 117 */ {"GRAD", "Global radiation [W/m^2]"}, + /* 118 */ {"BRTMP", "Brightness temperature [K]"}, + /* 119 */ {"LWRAD", "Radiance with respect to wave no. [W/m/sr]"}, + /* 120 */ {"SWRAD", "Radiance with respect ot wave len. [W/m^3/sr]"}, + /* 121 */ {"LHTFL", "Latent heat flux [W/m^2]"}, + /* 122 */ {"SHTFL", "Sensible heat flux [W/m^2]"}, + /* 123 */ {"BLYDP", "Boundary layer dissipation [W/m^2]"}, + /* 124 */ {"UFLX", "Zonal momentum flux [N/m^2]"}, + /* 125 */ {"VFLX", "Meridional momentum flux [N/m^2]"}, + /* 126 */ {"WMIXE", "Wind mixing energy [J]"}, + /* 127 */ {"IMGD", "Image data []"}, + /* 128 */ {"var128", "undefined"}, + /* 129 */ {"var129", "undefined"}, + /* 130 */ {"var130", "undefined"}, + /* 131 */ {"var131", "undefined"}, + /* 132 */ {"var132", "undefined"}, + /* 133 */ {"var133", "undefined"}, + /* 134 */ {"var134", "undefined"}, + /* 135 */ {"var135", "undefined"}, + /* 136 */ {"var136", "undefined"}, + /* 137 */ {"var137", "undefined"}, + /* 138 */ {"var138", "undefined"}, + /* 139 */ {"var139", "undefined"}, + /* 140 */ {"var140", "undefined"}, + /* 141 */ {"var141", "undefined"}, + /* 142 */ {"var142", "undefined"}, + /* 143 */ {"var143", "undefined"}, + /* 144 */ {"var144", "undefined"}, + /* 145 */ {"var145", "undefined"}, + /* 146 */ {"var146", "undefined"}, + /* 147 */ {"var147", "undefined"}, + /* 148 */ {"var148", "undefined"}, + /* 149 */ {"var149", "undefined"}, + /* 150 */ {"var150", "undefined"}, + /* 151 */ {"var151", "undefined"}, + /* 152 */ {"var152", "undefined"}, + /* 153 */ {"var153", "undefined"}, + /* 154 */ {"var154", "undefined"}, + /* 155 */ {"var155", "undefined"}, + /* 156 */ {"var156", "undefined"}, + /* 157 */ {"var157", "undefined"}, + /* 158 */ {"var158", "undefined"}, + /* 159 */ {"var159", "undefined"}, + /* 160 */ {"var160", "undefined"}, + /* 161 */ {"var161", "undefined"}, + /* 162 */ {"var162", "undefined"}, + /* 163 */ {"var163", "undefined"}, + /* 164 */ {"var164", "undefined"}, + /* 165 */ {"var165", "undefined"}, + /* 166 */ {"var166", "undefined"}, + /* 167 */ {"var167", "undefined"}, + /* 168 */ {"MEIP", "Mean icing potential []"}, + /* 169 */ {"MAIP", "Maximum icing potential []"}, + /* 170 */ {"MECTP", "Mean in-cloud turbulence potential []"}, + /* 171 */ {"MACTP", "Maximum in-cloud turbulence potential []"}, + /* 172 */ {"MECAT", "Mean cloud air turbulence potential []"}, + /* 173 */ {"MACAT", "Maximum cloud air turbulence potential []"}, + /* 174 */ {"CBHE", "Cumulonimbus horizontal extent [%]"}, + /* 175 */ {"PCBB", "Pressure at cumblonimbus base [Pa]"}, + /* 176 */ {"PCBT", "Pressure at cumblonimbus top [Pa]"}, + /* 177 */ {"PECBB", "Pressure at embedded cumblonimbus base [Pa]"}, + /* 178 */ {"PECBT", "Pressure at embedded cumblonimbus top [Pa]"}, + /* 179 */ {"HCBB", "ICAO height at cumblonimbus base [m]"}, + /* 180 */ {"HCBT", "ICAO height at cumblonimbus top [m]"}, + /* 181 */ {"HECBB", "ICAO height at embedded cumblonimbus base [m]"}, + /* 182 */ {"HECBT", "ICAO height at embedded cumblonimbus top [m]"}, + /* 183 */ {"var183", "undefined"}, + /* 184 */ {"var184", "undefined"}, + /* 185 */ {"var185", "undefined"}, + /* 186 */ {"var186", "undefined"}, + /* 187 */ {"var187", "undefined"}, + /* 188 */ {"var188", "undefined"}, + /* 189 */ {"var189", "undefined"}, + /* 190 */ {"var190", "undefined"}, + /* 191 */ {"var191", "undefined"}, + /* 192 */ {"var192", "undefined"}, + /* 193 */ {"var193", "undefined"}, + /* 194 */ {"var194", "undefined"}, + /* 195 */ {"var195", "undefined"}, + /* 196 */ {"var196", "undefined"}, + /* 197 */ {"var197", "undefined"}, + /* 198 */ {"var198", "undefined"}, + /* 199 */ {"var199", "undefined"}, + /* 200 */ {"var200", "undefined"}, + /* 201 */ {"var201", "undefined"}, + /* 202 */ {"var202", "undefined"}, + /* 203 */ {"var203", "undefined"}, + /* 204 */ {"var204", "undefined"}, + /* 205 */ {"var205", "undefined"}, + /* 206 */ {"var206", "undefined"}, + /* 207 */ {"var207", "undefined"}, + /* 208 */ {"var208", "undefined"}, + /* 209 */ {"var209", "undefined"}, + /* 210 */ {"var210", "undefined"}, + /* 211 */ {"var211", "undefined"}, + /* 212 */ {"var212", "undefined"}, + /* 213 */ {"var213", "undefined"}, + /* 214 */ {"var214", "undefined"}, + /* 215 */ {"var215", "undefined"}, + /* 216 */ {"var216", "undefined"}, + /* 217 */ {"var217", "undefined"}, + /* 218 */ {"var218", "undefined"}, + /* 219 */ {"var219", "undefined"}, + /* 220 */ {"var220", "undefined"}, + /* 221 */ {"var221", "undefined"}, + /* 222 */ {"var222", "undefined"}, + /* 223 */ {"var223", "undefined"}, + /* 224 */ {"var224", "undefined"}, + /* 225 */ {"var225", "undefined"}, + /* 226 */ {"var226", "undefined"}, + /* 227 */ {"var227", "undefined"}, + /* 228 */ {"var228", "undefined"}, + /* 229 */ {"var229", "undefined"}, + /* 230 */ {"var230", "undefined"}, + /* 231 */ {"var231", "undefined"}, + /* 232 */ {"var232", "undefined"}, + /* 233 */ {"var233", "undefined"}, + /* 234 */ {"var234", "undefined"}, + /* 235 */ {"var235", "undefined"}, + /* 236 */ {"var236", "undefined"}, + /* 237 */ {"var237", "undefined"}, + /* 238 */ {"var238", "undefined"}, + /* 239 */ {"var239", "undefined"}, + /* 240 */ {"var240", "undefined"}, + /* 241 */ {"var241", "undefined"}, + /* 242 */ {"var242", "undefined"}, + /* 243 */ {"var243", "undefined"}, + /* 244 */ {"var244", "undefined"}, + /* 245 */ {"var245", "undefined"}, + /* 246 */ {"var246", "undefined"}, + /* 247 */ {"var247", "undefined"}, + /* 248 */ {"var248", "undefined"}, + /* 249 */ {"var249", "undefined"}, + /* 250 */ {"var250", "undefined"}, + /* 251 */ {"var251", "undefined"}, + /* 252 */ {"var252", "undefined"}, + /* 253 */ {"var253", "undefined"}, + /* 254 */ {"var254", "undefined"}, + /* 255 */ {"var255", "undefined"}, +}; + +const struct ParmTable parm_table_nceptab_141[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"PRES", "Pressure [Pa]"}, + /* 2 */ {"PRMSL", "Pressure reduced to MSL [Pa]"}, + /* 3 */ {"PTEND", "Pressure tendency [Pa/s]"}, + /* 4 */ {"PVORT", "Pot. vorticity [km^2/kg/s]"}, + /* 5 */ {"ICAHT", "ICAO Standard Atmosphere Reference Height [M]"}, + /* 6 */ {"GP", "Geopotential [m^2/s^2]"}, + /* 7 */ {"HGT", "Geopotential height [gpm]"}, + /* 8 */ {"DIST", "Geometric height [m]"}, + /* 9 */ {"HSTDV", "Std dev of height [m]"}, + /* 10 */ {"TOZNE", "Total ozone [Dobson]"}, + /* 11 */ {"TMP", "Temp. [K]"}, + /* 12 */ {"VTMP", "Virtual temp. [K]"}, + /* 13 */ {"POT", "Potential temp. [K]"}, + /* 14 */ {"EPOT", "Pseudo-adiabatic pot. temp. [K]"}, + /* 15 */ {"TMAX", "Max. temp. [K]"}, + /* 16 */ {"TMIN", "Min. temp. [K]"}, + /* 17 */ {"DPT", "Dew point temp. [K]"}, + /* 18 */ {"DEPR", "Dew point depression [K]"}, + /* 19 */ {"LAPR", "Lapse rate [K/m]"}, + /* 20 */ {"VIS", "Visibility [m]"}, + /* 21 */ {"RDSP1", "Radar spectra (1) [non-dim]"}, + /* 22 */ {"RDSP2", "Radar spectra (2) [non-dim]"}, + /* 23 */ {"RDSP3", "Radar spectra (3) [non-dim]"}, + /* 24 */ {"PLI", "Parcel lifted index (to 500 hPa) [K]"}, + /* 25 */ {"TMPA", "Temp. anomaly [K]"}, + /* 26 */ {"PRESA", "Pressure anomaly [Pa]"}, + /* 27 */ {"GPA", "Geopotential height anomaly [gpm]"}, + /* 28 */ {"WVSP1", "Wave spectra (1) [non-dim]"}, + /* 29 */ {"WVSP2", "Wave spectra (2) [non-dim]"}, + /* 30 */ {"WVSP3", "Wave spectra (3) [non-dim]"}, + /* 31 */ {"WDIR", "Wind direction [deg]"}, + /* 32 */ {"WIND", "Wind speed [m/s]"}, + /* 33 */ {"UGRD", "u wind [m/s]"}, + /* 34 */ {"VGRD", "v wind [m/s]"}, + /* 35 */ {"STRM", "Stream function [m^2/s]"}, + /* 36 */ {"VPOT", "Velocity potential [m^2/s]"}, + /* 37 */ {"MNTSF", "Montgomery stream function [m^2/s^2]"}, + /* 38 */ {"SGCVV", "Sigma coord. vertical velocity [/s]"}, + /* 39 */ {"VVEL", "Pressure vertical velocity [Pa/s]"}, + /* 40 */ {"DZDT", "Geometric vertical velocity [m/s]"}, + /* 41 */ {"ABSV", "Absolute vorticity [/s]"}, + /* 42 */ {"ABSD", "Absolute divergence [/s]"}, + /* 43 */ {"RELV", "Relative vorticity [/s]"}, + /* 44 */ {"RELD", "Relative divergence [/s]"}, + /* 45 */ {"VUCSH", "Vertical u shear [/s]"}, + /* 46 */ {"VVCSH", "Vertical v shear [/s]"}, + /* 47 */ {"DIRC", "Direction of current [deg]"}, + /* 48 */ {"SPC", "Speed of current [m/s]"}, + /* 49 */ {"UOGRD", "u of current [m/s]"}, + /* 50 */ {"VOGRD", "v of current [m/s]"}, + /* 51 */ {"SPFH", "Specific humidity [kg/kg]"}, + /* 52 */ {"RH", "Relative humidity [%]"}, + /* 53 */ {"MIXR", "Humidity mixing ratio [kg/kg]"}, + /* 54 */ {"PWAT", "Precipitable water [kg/m^2]"}, + /* 55 */ {"VAPP", "Vapor pressure [Pa]"}, + /* 56 */ {"SATD", "Saturation deficit [Pa]"}, + /* 57 */ {"EVP", "Evaporation [kg/m^2]"}, + /* 58 */ {"CICE", "Cloud Ice [kg/m^2]"}, + /* 59 */ {"PRATE", "Precipitation rate [kg/m^2/s]"}, + /* 60 */ {"TSTM", "Thunderstorm probability [%]"}, + /* 61 */ {"APCP", "Total precipitation [kg/m^2]"}, + /* 62 */ {"NCPCP", "Large scale precipitation [kg/m^2]"}, + /* 63 */ {"ACPCP", "Convective precipitation [kg/m^2]"}, + /* 64 */ {"SRWEQ", "Snowfall rate water equiv. [kg/m^2/s]"}, + /* 65 */ {"WEASD", "Accum. snow [kg/m^2]"}, + /* 66 */ {"SNOD", "Snow depth [m]"}, + /* 67 */ {"MIXHT", "Mixed layer depth [m]"}, + /* 68 */ {"TTHDP", "Transient thermocline depth [m]"}, + /* 69 */ {"MTHD", "Main thermocline depth [m]"}, + /* 70 */ {"MTHA", "Main thermocline anomaly [m]"}, + /* 71 */ {"TCDC", "Total cloud cover [%]"}, + /* 72 */ {"CDCON", "Convective cloud cover [%]"}, + /* 73 */ {"LCDC", "Low level cloud cover [%]"}, + /* 74 */ {"MCDC", "Mid level cloud cover [%]"}, + /* 75 */ {"HCDC", "High level cloud cover [%]"}, + /* 76 */ {"CWAT", "Cloud water [kg/m^2]"}, + /* 77 */ {"BLI", "Best lifted index (to 500 hPa) [K]"}, + /* 78 */ {"SNOC", "Convective snow [kg/m^2]"}, + /* 79 */ {"SNOL", "Large scale snow [kg/m^2]"}, + /* 80 */ {"WTMP", "Water temp. [K]"}, + /* 81 */ {"LAND", "Land cover (land=1;sea=0) [fraction]"}, + /* 82 */ {"DSLM", "Deviation of sea level from mean [m]"}, + /* 83 */ {"SFCR", "Surface roughness [m]"}, + /* 84 */ {"ALBDO", "Albedo [%]"}, + /* 85 */ {"TSOIL", "Soil temp. [K]"}, + /* 86 */ {"SOILM", "Soil moisture content [kg/m^2]"}, + /* 87 */ {"VEG", "Vegetation [%]"}, + /* 88 */ {"SALTY", "Salinity [kg/kg]"}, + /* 89 */ {"DEN", "Density [kg/m^3]"}, + /* 90 */ {"WATR", "Water runoff [kg/m^2]"}, + /* 91 */ {"ICEC", "Ice concentration (ice=1;no ice=0) [fraction]"}, + /* 92 */ {"ICETK", "Ice thickness [m]"}, + /* 93 */ {"DICED", "Direction of ice drift [deg]"}, + /* 94 */ {"SICED", "Speed of ice drift [m/s]"}, + /* 95 */ {"UICE", "u of ice drift [m/s]"}, + /* 96 */ {"VICE", "v of ice drift [m/s]"}, + /* 97 */ {"ICEG", "Ice growth rate [m/s]"}, + /* 98 */ {"ICED", "Ice divergence [/s]"}, + /* 99 */ {"SNOM", "Snow melt [kg/m^2]"}, + /* 100 */ {"HTSGW", "Sig height of wind waves and swell [m]"}, + /* 101 */ {"WVDIR", "Direction of wind waves [deg]"}, + /* 102 */ {"WVHGT", "Sig height of wind waves [m]"}, + /* 103 */ {"WVPER", "Mean period of wind waves [s]"}, + /* 104 */ {"SWDIR", "Direction of swell waves [deg]"}, + /* 105 */ {"SWELL", "Sig height of swell waves [m]"}, + /* 106 */ {"SWPER", "Mean period of swell waves [s]"}, + /* 107 */ {"DIRPW", "Primary wave direction [deg]"}, + /* 108 */ {"PERPW", "Primary wave mean period [s]"}, + /* 109 */ {"DIRSW", "Secondary wave direction [deg]"}, + /* 110 */ {"PERSW", "Secondary wave mean period [s]"}, + /* 111 */ {"NSWRS", "Net short wave (surface) [W/m^2]"}, + /* 112 */ {"NLWRS", "Net long wave (surface) [W/m^2]"}, + /* 113 */ {"NSWRT", "Net short wave (top) [W/m^2]"}, + /* 114 */ {"NLWRT", "Net long wave (top) [W/m^2]"}, + /* 115 */ {"LWAVR", "Long wave [W/m^2]"}, + /* 116 */ {"SWAVR", "Short wave [W/m^2]"}, + /* 117 */ {"GRAD", "Global radiation [W/m^2]"}, + /* 118 */ {"BRTMP", "Brightness temperature [K]"}, + /* 119 */ {"LWRAD", "Radiance with respect to wave no. [W/m/sr]"}, + /* 120 */ {"SWRAD", "Radiance with respect ot wave len. [W/m^3/sr]"}, + /* 121 */ {"LHTFL", "Latent heat flux [W/m^2]"}, + /* 122 */ {"SHTFL", "Sensible heat flux [W/m^2]"}, + /* 123 */ {"BLYDP", "Boundary layer dissipation [W/m^2]"}, + /* 124 */ {"UFLX", "Zonal momentum flux [N/m^2]"}, + /* 125 */ {"VFLX", "Meridional momentum flux [N/m^2]"}, + /* 126 */ {"WMIXE", "Wind mixing energy [J]"}, + /* 127 */ {"IMGD", "Image data []"}, + /* 128 */ {"EXTNC", "Aerosol Extinction Coefficient [1/km]"}, + /* 129 */ {"AOD", "Aerosol Optical Depth [-]"}, + /* 130 */ {"ASFTR", "Aerosol Asymmetry Factor [-]"}, + /* 131 */ {"SSALBD", "Aerosol Single Scatter Albedo [-]"}, + /* 132 */ {"BSCTRS", "Aerosol Back Scattering [1/km/sr]"}, + /* 133 */ {"var133", "undefined"}, + /* 134 */ {"var134", "undefined"}, + /* 135 */ {"var135", "undefined"}, + /* 136 */ {"var136", "undefined"}, + /* 137 */ {"var137", "undefined"}, + /* 138 */ {"var138", "undefined"}, + /* 139 */ {"var139", "undefined"}, + /* 140 */ {"NOy", "Total Inorganic and Organic Nitrates [ppbV]"}, + /* 141 */ {"NO", "Nitrogen Oxide [ppbV]"}, + /* 142 */ {"NO2", "Nitrogen Dioxide [ppbV]"}, + /* 143 */ {"N2O5", "Nitrogen Pentoxide [ppbV]"}, + /* 144 */ {"HNO3", "Nitric Acid [ppbV]"}, + /* 145 */ {"NO3", "Nitrogen Trioxide [ppbV]"}, + /* 146 */ {"PNA", "Peroxynitric Acid [ppbV]"}, + /* 147 */ {"HONO", "Nitrous Acid [ppbV]"}, + /* 148 */ {"CO", "Carbon Monoxide [ppbV]"}, + /* 149 */ {"NH3", "Ammonia [ppbV]"}, + /* 150 */ {"HCL", "Hydrogen Chloride [ppbV]"}, + /* 151 */ {"var151", "undefined"}, + /* 152 */ {"var152", "undefined"}, + /* 153 */ {"var153", "undefined"}, + /* 154 */ {"var154", "undefined"}, + /* 155 */ {"var155", "undefined"}, + /* 156 */ {"var156", "undefined"}, + /* 157 */ {"var157", "undefined"}, + /* 158 */ {"var158", "undefined"}, + /* 159 */ {"PAR", "Lumped Single-Bond Carbon Specie [ppbV]"}, + /* 160 */ {"ETHE", "Ethene [ppbV]"}, + /* 161 */ {"OLE", "Lumped Double-Bond Carbon Species Less Ethene [ppbV]"}, + /* 162 */ {"TOL", "Toluene [ppbV]"}, + /* 163 */ {"XYL", "Xylene [ppbV]"}, + /* 164 */ {"ISOP", "Isoprene [ppbV]"}, + /* 165 */ {"var165", "undefined"}, + /* 166 */ {"FORM", "Formaldehyde [ppbV]"}, + /* 167 */ {"ALD2", "Acetaldehyde & Higher Aldehydes [ppbV]"}, + /* 168 */ {"MGLY", "Methyl Glyoxal [ppbV]"}, + /* 169 */ {"CRES", "Cresol and Higher Molecular Weight Phenols [ppbV]"}, + /* 170 */ {"var170", "undefined"}, + /* 171 */ {"var171", "undefined"}, + /* 172 */ {"PAN", "Peroxyacyl Nitrate [ppbV]"}, + /* 173 */ {"NTR", "Lumped Gaseous Organic Nitrate [ppbV]"}, + /* 174 */ {"var174", "undefined"}, + /* 175 */ {"var175", "undefined"}, + /* 176 */ {"var176", "undefined"}, + /* 177 */ {"ROOH", "Esters [ppbV]"}, + /* 178 */ {"ETHOH", "Ethanol [ppbV]"}, + /* 179 */ {"METHOH", "Methanol [ppbV]"}, + /* 180 */ {"var180", "undefined"}, + /* 181 */ {"var181", "undefined"}, + /* 182 */ {"var182", "undefined"}, + /* 183 */ {"var183", "undefined"}, + /* 184 */ {"var184", "undefined"}, + /* 185 */ {"var185", "undefined"}, + /* 186 */ {"H2O2", "Hydrogen Peroxide [ppbV]"}, + /* 187 */ {"OH", "Hydroxyl Radical [ppbV]"}, + /* 188 */ {"HO2", "Hydroperoxyl Radical [ppbV]"}, + /* 189 */ {"var189", "undefined"}, + /* 190 */ {"var190", "undefined"}, + /* 191 */ {"var191", "undefined"}, + /* 192 */ {"var192", "undefined"}, + /* 193 */ {"var193", "undefined"}, + /* 194 */ {"var194", "undefined"}, + /* 195 */ {"var195", "undefined"}, + /* 196 */ {"var196", "undefined"}, + /* 197 */ {"var197", "undefined"}, + /* 198 */ {"var198", "undefined"}, + /* 199 */ {"var199", "undefined"}, + /* 200 */ {"ASO4", "Sulfate (SO4) Particulates ≤ 2.5 μm Diameter [μg/m^3]"}, + /* 201 */ {"ANH4", "Ammonia (NH4) Particulates ≤ 2.5 μm Diameter [μg/m^3]"}, + /* 202 */ {"ANO3", "Nitrate (NO3) Particulates ≤ 2.5 μm Diameter [μg/m^3]"}, + /* 203 */ {"AORGA", "Organic Particulates ≤ 2.5 μm Diameter [μg/m^3]"}, + /* 204 */ {"AORGPA", "Primarily Organic Particulates ≤ 2.5 μm Diameter [μg/m^3]"}, + /* 205 */ {"AORGB", "Biogenically Originated Particulates ≤ 2.5 μm Diameter [μg/m^3]"}, + /* 206 */ {"AEC", "Elemental Carbon Particulates ≤ 2.5 μm Diameter [μg/m^3]"}, + /* 207 */ {"A25", "Unspecified Anthropogenic Particulates ≤ 2.5 μm Diameter [μg/m^3]"}, + /* 208 */ {"AH2O", "Water Particulates ≤ 2.5 μm Diameter [μg/m^3]"}, + /* 209 */ {"ANA", "Sodium Particulates ≤ 2.5 μm Diameter [μg/m^3]"}, + /* 210 */ {"ACL", "Chloride Particulates ≤ 2.5 μm Diameter [μg/m^3]"}, + /* 211 */ {"var211", "undefined"}, + /* 212 */ {"var212", "undefined"}, + /* 213 */ {"var213", "undefined"}, + /* 214 */ {"var214", "undefined"}, + /* 215 */ {"var215", "undefined"}, + /* 216 */ {"ASO4K", "Sulfate (SO4) Particulates between 2.5 and 10 μm Diameter [μg/m^3]"}, + /* 217 */ {"ANAK", "Sodium (NA) Particulates between 2.5 and 10 μm Diameter [μg/m^3]"}, + /* 218 */ {"ACLK", "Chloride (CL) Particulates between 2.5 and 10 μm Diameter [μg/m^3]"}, + /* 219 */ {"ASEAS", "Sea Salt Originated Particulates between 2.5 and 10 μm Diameter [μg/m^3]"}, + /* 220 */ {"ASOIL", "Crustal Material Orginated Particulates between 2.5 and 10 μm Diameter [μg/m^3]"}, + /* 221 */ {"ACORS", "Particulates between 2.5 and 10 μm Diameter [μg/m^3]"}, + /* 222 */ {"NUMATKN", "Number Concentration Particulates between 2.5 and 0.1 μm Diameter [number/m^3]"}, + /* 223 */ {"NUMACC", "Number Concentration Particulates between 2.5 and 2.5 μm Diameter [number/m^3]"}, + /* 224 */ {"NUMCOR", "Number Concentration Particulates between 2.5 and 10 μm Diameter [number/m^3]"}, + /* 225 */ {"var225", "undefined"}, + /* 226 */ {"var226", "undefined"}, + /* 227 */ {"var227", "undefined"}, + /* 228 */ {"SRFATKN", "Surface Area Contributed by Particulates ≤ 0.1 μm Diameter [m2/m^3]"}, + /* 229 */ {"SRFACC", "Surface Area Contributed by Particulates between 0.1 and 2.5 μm Diameter [m2/m^3]"}, + /* 230 */ {"var230", "undefined"}, + /* 231 */ {"var231", "undefined"}, + /* 232 */ {"SO2", "Sulfur Dioxide [ppbV]"}, + /* 233 */ {"MSA", "Methanesulfonic Acid [Kg/Kg]"}, + /* 234 */ {"TSO4", "Total Sulfate Particulates (Fine ands Coarse) [μg/m^3]"}, + /* 235 */ {"DMS", "Dimethylsulfide [Kg/Kg]"}, + /* 236 */ {"var236", "undefined"}, + /* 237 */ {"var237", "undefined"}, + /* 238 */ {"var238", "undefined"}, + /* 239 */ {"var239", "undefined"}, + /* 240 */ {"DU1", "Dust Particulates between 0.2 - 2.0 μm Diameter [Kg/Kg]"}, + /* 241 */ {"DU2", "Dust Particulates between 2.0 - 3.6 μm Diameter [Kg/Kg]"}, + /* 242 */ {"DU3", "Dust Particulates between 3.6 - 6.0 μm Diameter [Kg/Kg]"}, + /* 243 */ {"DU4", "Dust Particulates between 6.0 - 12.0 μm Diameter [Kg/Kg]"}, + /* 244 */ {"DU5", "Dust Particulates between 12.0 - 20.0 μm Diameter [Kg/Kg]"}, + /* 245 */ {"SS1", "Sea Salt Particulates between 0.2 - 1.0 μm Diameter [Kg/Kg]"}, + /* 246 */ {"SS2", "Sea Salt Particulates between 1.0 - 3.0 μm Diameter [Kg/Kg]"}, + /* 247 */ {"SS3", "Sea Salt Particulates between 3.0 - 10.0 μm Diameter [Kg/Kg]"}, + /* 248 */ {"SS4", "Sea Salt Particulates between 10.0 - 20.0 μm Diameter [Kg/Kg]"}, + /* 249 */ {"OCDRY", "Hydrophobic Organic Carbon [Kg/Kg]"}, + /* 250 */ {"OCWET", "Hydrophilic Organic Carbon [Kg/Kg]"}, + /* 251 */ {"BCDRY", "Hydrophobic Black Carbon [Kg/Kg]"}, + /* 252 */ {"BCWET", "Hydrophilic Black Carbon [Kg/Kg]"}, + /* 253 */ {"var253", "undefined"}, + /* 254 */ {"var254", "undefined"}, + /* 255 */ {"var255", "undefined"}, +}; + +const struct ParmTable parm_table_mdl_nceptab[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"PRES", "Pressure [Pa]"}, + /* 2 */ {"PRMSL", "Pressure reduced to MSL [Pa]"}, + /* 3 */ {"PTEND", "Pressure tendency [Pa/s]"}, + /* 4 */ {"PVORT", "Pot. vorticity [km^2/kg/s]"}, + /* 5 */ {"ICAHT", "ICAO Standard Atmosphere Reference Height [M]"}, + /* 6 */ {"GP", "Geopotential [m^2/s^2]"}, + /* 7 */ {"HGT", "Geopotential height [gpm]"}, + /* 8 */ {"DIST", "Geometric height [m]"}, + /* 9 */ {"HSTDV", "Std dev of height [m]"}, + /* 10 */ {"TOZNE", "Total ozone [Dobson]"}, + /* 11 */ {"TMP", "Temp. [K]"}, + /* 12 */ {"VTMP", "Virtual temp. [K]"}, + /* 13 */ {"POT", "Potential temp. [K]"}, + /* 14 */ {"EPOT", "Pseudo-adiabatic pot. temp. [K]"}, + /* 15 */ {"TMAX", "Max. temp. [K]"}, + /* 16 */ {"TMIN", "Min. temp. [K]"}, + /* 17 */ {"DPT", "Dew point temp. [K]"}, + /* 18 */ {"DEPR", "Dew point depression [K]"}, + /* 19 */ {"LAPR", "Lapse rate [K/m]"}, + /* 20 */ {"VIS", "Visibility [m]"}, + /* 21 */ {"RDSP1", "Radar spectra (1) [non-dim]"}, + /* 22 */ {"RDSP2", "Radar spectra (2) [non-dim]"}, + /* 23 */ {"RDSP3", "Radar spectra (3) [non-dim]"}, + /* 24 */ {"PLI", "Parcel lifted index (to 500 hPa) [K]"}, + /* 25 */ {"TMPA", "Temp. anomaly [K]"}, + /* 26 */ {"PRESA", "Pressure anomaly [Pa]"}, + /* 27 */ {"GPA", "Geopotential height anomaly [gpm]"}, + /* 28 */ {"WVSP1", "Wave spectra (1) [non-dim]"}, + /* 29 */ {"WVSP2", "Wave spectra (2) [non-dim]"}, + /* 30 */ {"WVSP3", "Wave spectra (3) [non-dim]"}, + /* 31 */ {"WDIR", "Wind direction [deg]"}, + /* 32 */ {"WIND", "Wind speed [m/s]"}, + /* 33 */ {"UGRD", "u wind [m/s]"}, + /* 34 */ {"VGRD", "v wind [m/s]"}, + /* 35 */ {"STRM", "Stream function [m^2/s]"}, + /* 36 */ {"VPOT", "Velocity potential [m^2/s]"}, + /* 37 */ {"MNTSF", "Montgomery stream function [m^2/s^2]"}, + /* 38 */ {"SGCVV", "Sigma coord. vertical velocity [/s]"}, + /* 39 */ {"VVEL", "Pressure vertical velocity [Pa/s]"}, + /* 40 */ {"DZDT", "Geometric vertical velocity [m/s]"}, + /* 41 */ {"ABSV", "Absolute vorticity [/s]"}, + /* 42 */ {"ABSD", "Absolute divergence [/s]"}, + /* 43 */ {"RELV", "Relative vorticity [/s]"}, + /* 44 */ {"RELD", "Relative divergence [/s]"}, + /* 45 */ {"VUCSH", "Vertical u shear [/s]"}, + /* 46 */ {"VVCSH", "Vertical v shear [/s]"}, + /* 47 */ {"DIRC", "Direction of current [deg]"}, + /* 48 */ {"SPC", "Speed of current [m/s]"}, + /* 49 */ {"UOGRD", "u of current [m/s]"}, + /* 50 */ {"VOGRD", "v of current [m/s]"}, + /* 51 */ {"SPFH", "Specific humidity [kg/kg]"}, + /* 52 */ {"RH", "Relative humidity [%]"}, + /* 53 */ {"MIXR", "Humidity mixing ratio [kg/kg]"}, + /* 54 */ {"PWAT", "Precipitable water [kg/m^2]"}, + /* 55 */ {"VAPP", "Vapor pressure [Pa]"}, + /* 56 */ {"SATD", "Saturation deficit [Pa]"}, + /* 57 */ {"EVP", "Evaporation [kg/m^2]"}, + /* 58 */ {"CICE", "Cloud Ice [kg/m^2]"}, + /* 59 */ {"PRATE", "Precipitation rate [kg/m^2/s]"}, + /* 60 */ {"TSTM", "Thunderstorm probability [%]"}, + /* 61 */ {"APCP", "Total precipitation [kg/m^2]"}, + /* 62 */ {"NCPCP", "Large scale precipitation [kg/m^2]"}, + /* 63 */ {"ACPCP", "Convective precipitation [kg/m^2]"}, + /* 64 */ {"SRWEQ", "Snowfall rate water equiv. [kg/m^2/s]"}, + /* 65 */ {"WEASD", "Accum. snow [kg/m^2]"}, + /* 66 */ {"SNOD", "Snow depth [m]"}, + /* 67 */ {"MIXHT", "Mixed layer depth [m]"}, + /* 68 */ {"TTHDP", "Transient thermocline depth [m]"}, + /* 69 */ {"MTHD", "Main thermocline depth [m]"}, + /* 70 */ {"MTHA", "Main thermocline anomaly [m]"}, + /* 71 */ {"TCDC", "Total cloud cover [%]"}, + /* 72 */ {"CDCON", "Convective cloud cover [%]"}, + /* 73 */ {"LCDC", "Low level cloud cover [%]"}, + /* 74 */ {"MCDC", "Mid level cloud cover [%]"}, + /* 75 */ {"HCDC", "High level cloud cover [%]"}, + /* 76 */ {"CWAT", "Cloud water [kg/m^2]"}, + /* 77 */ {"BLI", "Best lifted index (to 500 hPa) [K]"}, + /* 78 */ {"SNOC", "Convective snow [kg/m^2]"}, + /* 79 */ {"SNOL", "Large scale snow [kg/m^2]"}, + /* 80 */ {"WTMP", "Water temp. [K]"}, + /* 81 */ {"LAND", "Land cover (land=1;sea=0) [fraction]"}, + /* 82 */ {"DSLM", "Deviation of sea level from mean [m]"}, + /* 83 */ {"SFCR", "Surface roughness [m]"}, + /* 84 */ {"ALBDO", "Albedo [%]"}, + /* 85 */ {"TSOIL", "Soil temp. [K]"}, + /* 86 */ {"SOILM", "Soil moisture content [kg/m^2]"}, + /* 87 */ {"VEG", "Vegetation [%]"}, + /* 88 */ {"SALTY", "Salinity [kg/kg]"}, + /* 89 */ {"DEN", "Density [kg/m^3]"}, + /* 90 */ {"WATR", "Water runoff [kg/m^2]"}, + /* 91 */ {"ICEC", "Ice concentration (ice=1;no ice=0) [fraction]"}, + /* 92 */ {"ICETK", "Ice thickness [m]"}, + /* 93 */ {"DICED", "Direction of ice drift [deg]"}, + /* 94 */ {"SICED", "Speed of ice drift [m/s]"}, + /* 95 */ {"UICE", "u of ice drift [m/s]"}, + /* 96 */ {"VICE", "v of ice drift [m/s]"}, + /* 97 */ {"ICEG", "Ice growth rate [m/s]"}, + /* 98 */ {"ICED", "Ice divergence [/s]"}, + /* 99 */ {"SNOM", "Snow melt [kg/m^2]"}, + /* 100 */ {"HTSGW", "Sig height of wind waves and swell [m]"}, + /* 101 */ {"WVDIR", "Direction of wind waves [deg]"}, + /* 102 */ {"WVHGT", "Sig height of wind waves [m]"}, + /* 103 */ {"WVPER", "Mean period of wind waves [s]"}, + /* 104 */ {"SWDIR", "Direction of swell waves [deg]"}, + /* 105 */ {"SWELL", "Sig height of swell waves [m]"}, + /* 106 */ {"SWPER", "Mean period of swell waves [s]"}, + /* 107 */ {"DIRPW", "Primary wave direction [deg]"}, + /* 108 */ {"PERPW", "Primary wave mean period [s]"}, + /* 109 */ {"DIRSW", "Secondary wave direction [deg]"}, + /* 110 */ {"PERSW", "Secondary wave mean period [s]"}, + /* 111 */ {"NSWRS", "Net short wave (surface) [W/m^2]"}, + /* 112 */ {"NLWRS", "Net long wave (surface) [W/m^2]"}, + /* 113 */ {"NSWRT", "Net short wave (top) [W/m^2]"}, + /* 114 */ {"NLWRT", "Net long wave (top) [W/m^2]"}, + /* 115 */ {"LWAVR", "Long wave [W/m^2]"}, + /* 116 */ {"SWAVR", "Short wave [W/m^2]"}, + /* 117 */ {"GRAD", "Global radiation [W/m^2]"}, + /* 118 */ {"BRTMP", "Brightness temperature [K]"}, + /* 119 */ {"LWRAD", "Radiance with respect to wave no. [W/m/sr]"}, + /* 120 */ {"SWRAD", "Radiance with respect ot wave len. [W/m^3/sr]"}, + /* 121 */ {"LHTFL", "Latent heat flux [W/m^2]"}, + /* 122 */ {"SHTFL", "Sensible heat flux [W/m^2]"}, + /* 123 */ {"BLYDP", "Boundary layer dissipation [W/m^2]"}, + /* 124 */ {"UFLX", "Zonal momentum flux [N/m^2]"}, + /* 125 */ {"VFLX", "Meridional momentum flux [N/m^2]"}, + /* 126 */ {"WMIXE", "Wind mixing energy [J]"}, + /* 127 */ {"IMGD", "Image data []"}, + /* 128 */ {"TMPF", "TEMPERATURE (Fahrenheit) [F]"}, + /* 129 */ {"MAXK", "DAYTIME MAX TEMP (MAX) (Kelvin) [K]"}, + /* 130 */ {"MAXF", "DAYTIME MAX TEMP (MAX) (deg F) [F]"}, + /* 131 */ {"NMAXK", "NORMAL MAX TEMPERATURE (Kelvin) [K]"}, + /* 132 */ {"NMAXF", "NORMAL MAX TEMPERATURE (deg F) [F]"}, + /* 133 */ {"DMAXK", "DEPARTURE FROM NORMAL MAX (K) [K]"}, + /* 134 */ {"DMAXF", "DEPARTURE FROM NORMAL MAX (deg F) [F]"}, + /* 135 */ {"MINK", "NIGHTTIME MIN TEMP (MIN) (Kelvin) [K]"}, + /* 136 */ {"MINF", "NIGHTTIME MIN TEMP (MIN) (deg F) [F]"}, + /* 137 */ {"NMINK", "NORMAL MIN TEMPERATURE (Kelvin) [K]"}, + /* 138 */ {"NMINF", "NORMAL NIGHTTIME MIN TEMP (deg F) [F]"}, + /* 139 */ {"DMINK", "DEPARTURE FROM NORMAL MIN (K) [K]"}, + /* 140 */ {"DMINF", "DEPARTURE FROM NORMAL MIN (deg F) [F]"}, + /* 141 */ {"DWPF", "DEW POINT TEMPERATURE (deg F) [F]"}, + /* 142 */ {"DPDF", "DEW POINT DEPRESSION (deg F) [F]"}, + /* 143 */ {"HTINF", "HEAT INDEX (deg F) [F]"}, + /* 144 */ {"WNCHF", "WIND CHILL (deg F) [F]"}, + /* 145 */ {"var145", "undefined"}, + /* 146 */ {"POP", "PROB OF 0.01 IN. OF PRECIP (PoP) [%]"}, + /* 147 */ {"PQPF2", "PROB OF QPF >= 0.10 INCHES [%]"}, + /* 148 */ {"PQPF3", "PROB OF QPF >= 0.25 INCHES [%]"}, + /* 149 */ {"PQPF4", "PROB OF QPF >= 0.50 INCHES [%]"}, + /* 150 */ {"PQPF5", "PROB OF QPF >= 1.00 INCHES [%]"}, + /* 151 */ {"PQPF6", "PROB OF QPF >= 2.00 INCHES [%]"}, + /* 152 */ {"PQPF7", "PROB OF QPF >= 3.00 INCHES FUTURE [%]"}, + /* 153 */ {"BQPF", "BEST CATEGORY OF QPF [num]"}, + /* 154 */ {"NPOP", "NML REL. FREQ. OF 0.01 IN OF PCP [%]"}, + /* 155 */ {"DPOP", "DEPARTURE FROM NML OF 0.01 POP [%]"}, + /* 156 */ {"PCPM", "EXPECTED VALUE OF PRECIPITATION [mm]"}, + /* 157 */ {"PCPI", "EXPECTED VALUE OF PRECIPITATION [in]"}, + /* 158 */ {"CPCPM", "CONDITIONAL EXPECTED PRECIP AMT [mm]"}, + /* 159 */ {"CPCPI", "CONDITIONAL EXPECTED PRECIP AMT [in]"}, + /* 160 */ {"PSNA1", "PROB OF SNOW AMOUNT >= 0.10 [%]"}, + /* 161 */ {"PSNA2", "PROB OF SNOW AMOUNT >= 2 INCHES [%]"}, + /* 162 */ {"PSNA3", "PROB OF SNOW AMOUNT >= 4 INCHES [%]"}, + /* 163 */ {"PSNA4", "PROB OF SNOW AMOUNT >= 6 INCHES [%]"}, + /* 164 */ {"PSNA5", "PROB OF SNOW AMOUNT >= 8 INCHES [%]"}, + /* 165 */ {"BSNA", "BEST CATEGORY FOR SNOW AMOUNT [num]"}, + /* 166 */ {"SNWM", "EXPECTED VALUE OF SNOW AMOUNT [mm]"}, + /* 167 */ {"SNWI", "EXPECTED VALUE OF SNOW AMOUNT [in]"}, + /* 168 */ {"MWSPK", "INFLATED MAX WIND SPEED (knots) [kts]"}, + /* 169 */ {"IWSPM", "INFLATED WIND SPEED (meter/sec) [m/s]"}, + /* 170 */ {"SKNT", "INFLATED WIND SPEED (knots) [kts]"}, + /* 171 */ {"PWSP1", "PROB OF MAX WIND SPEED 0-12 kts [%]"}, + /* 172 */ {"PWSP2", "PROB OF MAX WIND SPEED 13-21 kts [%]"}, + /* 173 */ {"PWSP3", "PROB OF MAX WIND SPEED 22-31 kts [%]"}, + /* 174 */ {"PWSP4", "PROB OF MAX WIND SPEED >=32 kts [%]"}, + /* 175 */ {"WSPDC", "CATEGORICAL MAX WIND SPEED [num]"}, + /* 176 */ {"XSPDM", "EXPECTED VALUE OF MAX WIND SPEED [m/s]"}, + /* 177 */ {"XSPDK", "EXPECTED VALUE OF MAX WIND SPEED [kts]"}, + /* 178 */ {"PWDRN", "PROB OF WIND DIRECTION NORTH [%]"}, + /* 179 */ {"PWDRNE", "PROB OF WIND DIRECTION NORTHEAST [%]"}, + /* 180 */ {"PWDRE", "PROB OF WIND DIRECTION EAST [%]"}, + /* 181 */ {"PWDRSE", "PROB OF WIND DIRECTION SOUTHEAST [%]"}, + /* 182 */ {"PWDRS", "PROB OF WIND DIRECTION SOUTH [%]"}, + /* 183 */ {"PWDRSW", "PROB OF WIND DIRECTION SOUTHWEST [%]"}, + /* 184 */ {"PWDRW", "PROB OF WIND DIRECTION WEST [%]"}, + /* 185 */ {"PWDRNW", "PROB OF WIND DIRECTION NORTHWEST [%]"}, + /* 186 */ {"WDIRC", "CATEGORICAL WIND DIRECTION [num]"}, + /* 187 */ {"var187", "undefined"}, + /* 188 */ {"PSKCL", "PROB OF TOTAL SKY"}, + /* 189 */ {"PSKFW", "PROB OF TOTAL SKY"}, + /* 190 */ {"PSKSC", "PROB OF TOTAL SKY"}, + /* 191 */ {"PSKBK", "PROB OF TOTAL SKY"}, + /* 192 */ {"PSKOV", "PROB OF TOTAL SKY"}, + /* 193 */ {"SKYC", "CATEGORICAL TOTAL SKY COVER [num]"}, + /* 194 */ {"MSKCL", "PROB MEAN SKY CVR"}, + /* 195 */ {"MSKOV", "PROB MEAN SKY CVR"}, + /* 196 */ {"MSKMC", "PROB MEAN SKY CVR"}, + /* 197 */ {"MSKPC", "PROB MEAN SKY CVR"}, + /* 198 */ {"MSKMO", "PROB MEAN SKY CVR"}, + /* 199 */ {"MSKYC", "CATEGORICAL MEAN SKY COVER [num]"}, + /* 200 */ {"PCIG1", "PROB OF CIG HGT < 200 FT [%]"}, + /* 201 */ {"PCIG2", "PROB OF CIG HGT 200-400 FT [%]"}, + /* 202 */ {"PCIG3", "PROB OF CIG HGT 500-900 FT [%]"}, + /* 203 */ {"PCIG4", "PROB OF CIG HGT 1000-3000 FT [%]"}, + /* 204 */ {"PCIG5", "PROB OF CIG HGT 3100-6500 FT [%]"}, + /* 205 */ {"PCIG6", "PROB OF CIG HGT 6600-12000 FT [%]"}, + /* 206 */ {"PCIG7", "PROB OF CIG HGT > 12000 FT [%]"}, + /* 207 */ {"BCIG", "BEST CATEGORY OF CEILING HEIGHT [num]"}, + /* 208 */ {"PVIS1", "PROB OF VIS <=1/4 MILE [%]"}, + /* 209 */ {"PVIS2", "PROB OF VIS <=1/2 MILE [%]"}, + /* 210 */ {"PVIS3", "PROB OF VIS <=7/8 MILE [%]"}, + /* 211 */ {"PVIS4", "PROB OF VIS <=2 3/4 MILES [%]"}, + /* 212 */ {"PVIS5", "PROB OF VIS <=5 MILES [%]"}, + /* 213 */ {"PVIS6", "PROB OF VIS <=6 MILES [%]"}, + /* 214 */ {"VISC", "CATEGORICAL VISIBILITY [num]"}, + /* 215 */ {"POBVN", "PROB OF OBSTRUCTION TO VIS"}, + /* 216 */ {"POBVH", "PROB OF OBSTRUCTION TO VIS"}, + /* 217 */ {"POBVM", "PROB OF OBSTRUCTION TO VIS"}, + /* 218 */ {"POBVF", "PROB OF OBSTRUCTION TO VIS"}, + /* 219 */ {"POVBL", "PROB OF BLOWING OBVIS [%]"}, + /* 220 */ {"OBVC", "BEST CATEGORY OF OBVIS [num]"}, + /* 221 */ {"var221", "undefined"}, + /* 222 */ {"NTSM", "NORMAL PROB OF THUNDERSTORMS [%]"}, + /* 223 */ {"CSVR", "COND PROB OF SEVERE WEATHER [%]"}, + /* 224 */ {"USVR", "UNCOND PROB OF SEVERE WX [%]"}, + /* 225 */ {"NSVR", "NORMAL PROB OF SEVERE WX [%]"}, + /* 226 */ {"UHAI", "UNCONDITIONAL PROB OF HAIL [%]"}, + /* 227 */ {"UTOR", "UNCONDITIONAL PROB OF TORNADO [%]"}, + /* 228 */ {"UTSW", "UNCOND PROB OF DAMAGING WIND [%]"}, + /* 229 */ {"CFZI", "COND PROB FRZING PRECIP (INSTANT) [%]"}, + /* 230 */ {"UFZI", "UNCND PROB FRZING PRECIP (INSTNT) [%]"}, + /* 231 */ {"CZNI", "COND PROB FROZEN PRECIP (INSTANT) [%]"}, + /* 232 */ {"UZNI", "UNCND PROB FROZEN PRECIP (INSTNT) [%]"}, + /* 233 */ {"CLQI", "COND PROB LIQUID PRECIP (INSTANT) [%]"}, + /* 234 */ {"ULQI", "UNCND PROB LIQUID PRECIP (INSTNT) [%]"}, + /* 235 */ {"PTYPI", "CATEGORICAL PRECIP TYPE (INSTANT) [num]"}, + /* 236 */ {"CPOZP", "COND PROB OF FRZING PRECIP [%]"}, + /* 237 */ {"UPOZP", "UNCOND PROB OF FRZING PRECIP [%]"}, + /* 238 */ {"CPOS", "COND PROB OF SNOW (CPoS) [%]"}, + /* 239 */ {"UPOS", "UNCOND PROB OF SNOW (CPoS) [%]"}, + /* 240 */ {"CPORS", "COND PROB OF RAIN/SNOW MIXED [%]"}, + /* 241 */ {"UPORS", "UNCOND PROB OF RAIN/SNOW MIXED [%]"}, + /* 242 */ {"CPORA", "COND PROB OF RAIN [%]"}, + /* 243 */ {"var243", "undefined"}, + /* 244 */ {"BPCPT", "BEST CATEGORY OF PRECIP TYPE [num]"}, + /* 245 */ {"POPOH", "POPO PRECIP OCCURRING AT AN HOUR [%]"}, + /* 246 */ {"POPOP", "POPO PRECIP DURING A PERIOD [%]"}, + /* 247 */ {"CPDRZ", "COND PROB OF DRIZZLE [%]"}, + /* 248 */ {"CPSTY", "COND PROB OF CONT (STEADY) PRECIP [%]"}, + /* 249 */ {"CPSHW", "COND PROB OF SHOWERS [%]"}, + /* 250 */ {"BPCHR", "BEST CAT PRECIP CHARACTERISTIC [num]"}, + /* 251 */ {"SUNSH", "PERCENT OF POSSIBLE SUNSHINE [%]"}, + /* 252 */ {"HRSUN", "HOURS OF SUNSHINE [hrs]"}, + /* 253 */ {"SCQP", "SCAN 0-3H CATEGORICAL QPF [num]"}, + /* 254 */ {"SCTS", "SCAN 0-3H C-G LIGHTNING PROB [%]"}, + /* 255 */ {"var255", "undefined"}, +}; + + +/* + * EC_ext v1.0 wesley ebisuzaki + * + * prints something readable from the EC stream parameter + * + * prefix and suffix are only printed if EC_ext has text + */ + +void EC_ext(unsigned char *pds, char *prefix, char *suffix, int verbose) { + + int local_id, ec_type, ec_class, ec_stream; + char string[200]; + + if (PDS_Center(pds) != ECMWF) return; + + local_id = PDS_EcLocalId(pds); + if (local_id == 0) return; + ec_class = PDS_EcClass(pds); + ec_type = PDS_EcType(pds); + ec_stream = PDS_EcStream(pds); + + if (verbose == 2) printf("%sECext=%d%s", prefix, local_id, suffix); + + if (verbose == 2) { + switch(ec_class) { + case 1: strcpy(string, "operations"); break; + case 2: strcpy(string, "research"); break; + case 3: strcpy(string, "ERA-15"); break; + case 4: strcpy(string, "Euro clim support network"); break; + case 5: strcpy(string, "ERA-40"); break; + case 6: strcpy(string, "DEMETER"); break; + case 7: strcpy(string, "PROVOST"); break; + case 8: strcpy(string, "ELDAS"); break; + default: sprintf(string, "%d", ec_class); break; + } + printf("%sclass=%s%s",prefix,string,suffix); + } + /* + 10/03/2000: R.Rudsar : subroutine changed. + Tests for EcType and extra test for EcStream 1035 + */ + + +/* if (verbose == 2) { */ + switch(ec_type) { + case 1: strcpy(string, "first guess"); break; + case 2: strcpy(string, "analysis"); break; + case 3: strcpy(string, "init analysis"); break; + case 4: strcpy(string, "OI analysis"); break; + /* case 10: strcpy(string, "Control forecast"); break; */ + case 10: sprintf(string, "Control forecast %d",PDS_EcFcstNo(pds)); + break; + case 11: + if (ec_stream == 1035 || ec_stream == 1033) + sprintf(string, "Perturbed forecast %d", + PDS_EcFcstNo(pds)); + else + strcpy(string, "Perturbed forecasts"); break; + break; + case 14: strcpy(string, "Cluster means"); break; + case 15: strcpy(string, "Cluster std. dev."); break; + case 16: strcpy(string, "Forecast probability"); break; + case 17: strcpy(string, "Ensemble means"); break; + case 18: strcpy(string, "Ensemble std. dev."); break; + case 20: strcpy(string, "Climatology"); break; + case 21: strcpy(string, "Climatology simulation"); break; + case 80: strcpy(string, "Fcst seasonal mean"); break; + default: sprintf(string, "%d", ec_type); break; + } + printf("%stype=%s%s",prefix,string,suffix); +/* } */ + if (verbose == 2) { + switch(ec_stream) { + case 1033: strcpy(string, "ensemble hindcasts"); break; + case 1035: strcpy(string, "ensemble forecasts"); break; + case 1043: strcpy(string, "mon mean"); break; + case 1070: strcpy(string, "mon (co)var"); break; + case 1071: strcpy(string, "mon mean from daily"); break; + case 1090: strcpy(string, "EC ensemble fcsts"); break; + case 1091: strcpy(string, "EC seasonal fcst mon means"); break; + default: sprintf(string, "%d", ec_stream); break; + } + printf("%sstream=%s%s",prefix,string,suffix); + } + if (verbose == 2) { + printf("%sVersion=%c%c%c%c%s", prefix, *(PDS_Ec16Version(pds)), *(PDS_Ec16Version(pds)+1), + *(PDS_Ec16Version(pds)+2), *(PDS_Ec16Version(pds)+3), suffix); + if (local_id == 16) { + printf("%sSysVersion=%d%s", prefix, PDS_Ec16SysNum(pds), suffix); + printf("%sAvgPeriod=%d%s", prefix, PDS_Ec16AvePeriod(pds), suffix); + printf("%sFcstMon=%d%s", prefix, PDS_Ec16FcstMon(pds), suffix); + + } + } + + if (local_id == 16) { + printf("%sEnsem_mem=%d%s", prefix, PDS_Ec16Number(pds), suffix); + printf("%sVerfDate=%d%s", prefix, PDS_Ec16VerfMon(pds), suffix); + } + +} + +/* + * get grid size from GDS + * + * added calculation of nxny of spectral data and clean up of triangular + * grid nnxny calculation l. kornblueh + * 7/25/03 wind fix Dusan Jovic + * 9/17/03 fix scan mode + */ +extern int ec_large_grib, len_ec_bds; + +int GDS_grid(unsigned char *gds, unsigned char *bds, int *nx, int *ny, + long int *nxny) { + + int i, d, ix, iy, pl; + long int isum; + + *nx = ix = GDS_LatLon_nx(gds); + *ny = iy = GDS_LatLon_ny(gds); + *nxny = ix * iy; + + /* thin grid */ + + if (GDS_Gaussian(gds) || GDS_LatLon(gds)) { + if (ix == 65535) { + *nx = -1; + /* reduced grid */ + isum = 0; + pl = GDS_PL(gds); + for (i = 0; i < iy; i++) { + isum += gds[pl+i*2]*256 + gds[pl+i*2+1]; + } + *nxny = isum; + } + return 0; + } + if (GDS_Triangular(gds)) { + i = GDS_Triangular_ni(gds); + d = GDS_Triangular_nd(gds); + *nx = *nxny = d * (i + 1) * (i + 1); + *ny = 1; + return 0; + } + if (GDS_Harmonic(gds)) { + if (BDS_ComplexPacking(bds)) { + *nx = BDS_NValues(bds); + *ny = -1; + } + else { + /* this code assumes j, k, m are consistent with bds */ + *nx = *nxny = (8*(BDS_LEN(bds)-15)-BDS_UnusedBits(bds))/ + BDS_NumBits(bds)+1; + if ((8*(BDS_LEN(bds)-15)-BDS_UnusedBits(bds)) % BDS_NumBits(bds)) { + fprintf(stderr,"inconsistent harmonic BDS\n"); + } + *ny = 1; + } + } + return 0; +} + +#define NCOL 15 +void GDS_prt_thin_lon(unsigned char *gds) { + int iy, i, col, pl; + + iy = GDS_LatLon_ny(gds); + iy = (iy + 1) / 2; + iy = GDS_LatLon_ny(gds); + + if ((pl = GDS_PL(gds)) == -1) { + fprintf(stderr,"\nprogram error: GDS_prt_thin\n"); + return; + } + for (col = i = 0; i < iy; i++) { + if (col == 0) printf(" "); + printf("%5d", (gds[pl+i*2] << 8) + gds[pl+i*2+1]); + col++; + if (col == NCOL) { + col = 0; + printf("\n"); + } + } + if (col != 0) printf("\n"); +} + +/* + * prints out wind rel to grid or earth + */ + +static char *scan_mode[8] = { + "WE:NS", + "NS:WE", + + "WE:SN", + "SN:WE", + + "EW:NS", + "NS:EW", + + "EW:SN", + "SN:EW" }; + + +void GDS_winds(unsigned char *gds, int verbose) { + int scan = -1, mode = -1; + + if (gds != NULL) { + if (GDS_LatLon(gds)) { + scan = GDS_LatLon_scan(gds); + mode = GDS_LatLon_mode(gds); + } + else if (GDS_Mercator(gds)) { + scan =GDS_Merc_scan(gds); + mode =GDS_Merc_mode(gds); + } + /* else if (GDS_Gnomonic(gds)) { */ + else if (GDS_Lambert(gds)) { + scan = GDS_Lambert_scan(gds); + mode = GDS_Lambert_mode(gds); + } + else if (GDS_Gaussian(gds)) { + scan = GDS_LatLon_scan(gds); + mode = GDS_LatLon_mode(gds); + } + else if (GDS_Polar(gds)) { + scan = GDS_Polar_scan(gds); + mode = GDS_Polar_mode(gds); + } + else if (GDS_RotLL(gds)) { + scan = GDS_RotLL_scan(gds); + mode = GDS_RotLL_mode(gds); + } + /* else if (GDS_Triangular(gds)) { */ + else if (GDS_ssEgrid(gds)) { + scan = GDS_ssEgrid_scan(gds); + mode = GDS_ssEgrid_mode(gds); + } + else if (GDS_fEgrid(gds)) { + scan = GDS_fEgrid_scan(gds); + mode = GDS_fEgrid_mode(gds); + } + else if (GDS_ss2dEgrid(gds)) { + scan = GDS_ss2dEgrid_scan(gds); + mode = GDS_ss2dEgrid_mode(gds); + } + else if (GDS_ss2dBgrid(gds)) { + scan = GDS_ss2dBgrid_scan(gds); + mode = GDS_ss2dBgrid_mode(gds); + } + } + if (verbose == 1) { + if (mode != -1) { + if (mode & 8) printf("winds in grid direction:"); + else printf("winds are N/S:"); + } + } + else if (verbose == 2) { + if (scan != -1) { + printf(" scan: %s", scan_mode[(scan >> 5) & 7]); + } + if (mode != -1) { + if (mode & 8) printf(" winds(grid) "); + else printf(" winds(N/S) "); + } + } +} + + + +#define START -1 + +static int user_center = 0, user_subcenter = 0, user_ptable = 0; +static enum {filled, not_found, not_checked, no_file, init} status = init; + +struct ParmTable parm_table_user[256]; + +/* + * sets up user parameter table + * v1.1 12/2005 w. ebisuzaki + * v1.2 3/2007 w. ebisuzaki add FAST_GRIBTAB option + */ + +int setup_user_table(int center, int subcenter, int ptable) { + + int i, j, c0, c1, c2; + static FILE *input; + static int file_open = 0; + char *filename, line[300]; + + if (status == init) { + for (i = 0; i < 256; i++) { + parm_table_user[i].name = parm_table_user[i].comment = NULL; + } + status = not_checked; + } + + if (status == no_file) return 0; + + if ((user_center == -1 || center == user_center) && + (user_subcenter == -1 || subcenter == user_subcenter) && + (user_ptable == -1 || ptable == user_ptable)) { + + if (status == filled) return 1; + if (status == not_found) return 0; + } + + /* open gribtab file if not open */ + + if (!file_open) { +#ifdef FAST_GRIBTAB + filename = getenv("GRIBTAB"); +#else + filename = getenv("GRIBTAB"); + if (filename == NULL) filename = getenv("gribtab"); + if (filename == NULL) filename = "gribtab"; +#endif + if (filename == NULL || (input = fopen(filename,"r")) == NULL) { + status = no_file; + return 0; + } + file_open = 1; + } + else { + rewind(input); + } + + user_center = center; + user_subcenter = subcenter; + user_ptable = ptable; + + /* scan for center & subcenter and ptable */ + for (;;) { + if (fgets(line, 299, input) == NULL) { + status = not_found; + return 0; + } + if (atoi(line) != START) continue; + i = sscanf(line,"%d:%d:%d:%d", &j, ¢er, &subcenter, &ptable); + if (i != 4) { + fprintf(stderr,"illegal gribtab center/subcenter/ptable line: %s\n", line); + continue; + } + if ((center == -1 || center == user_center) && + (subcenter == -1 || subcenter == user_subcenter) && + (ptable == -1 || ptable == user_ptable)) break; + } + + user_center = center; + user_subcenter = subcenter; + user_ptable = ptable; + + /* free any used memory */ + for (i = 0; i < 256; i++) { + if (parm_table_user[i].name != NULL) free(parm_table_user[i].name); + if (parm_table_user[i].comment != NULL) free(parm_table_user[i].comment); + parm_table_user[i].name = parm_table_user[i].comment = NULL; + } + + /* read definitions */ + + for (;;) { + if (fgets(line, 299, input) == NULL) break; + if ((i = atoi(line)) == START) break; + line[299] = 0; + + /* find the colons and end-of-line */ + for (c0 = 0; line[c0] != ':' && line[c0] != 0; c0++) ; + /* skip blank lines */ + if (line[c0] == 0) continue; + + for (c1 = c0 + 1; line[c1] != ':' && line[c1] != 0; c1++) ; + c2 = strlen(line); + if (line[c2-1] == '\n') line[--c2] = '\0'; + if (c2 <= c1) { + fprintf(stderr,"illegal gribtab line:%s\n", line); + continue; + } + line[c0] = 0; + line[c1] = 0; + + parm_table_user[i].name = (char *) malloc(c1 - c0); + parm_table_user[i].comment = (char *) malloc(c2 - c1); + strcpy(parm_table_user[i].name, line+c0+1); + strcpy(parm_table_user[i].comment, line+c1+1); + } + + /* now to fill in undefined blanks */ + for (i = 0; i < 255; i++) { + if (parm_table_user[i].name == NULL) { + parm_table_user[i].name = (char *) malloc(7); + sprintf(parm_table_user[i].name, "var%d", i); + parm_table_user[i].comment = (char *) malloc(strlen("undefined")+1); + strcpy(parm_table_user[i].comment, "undefined"); + } + } + status = filled; + return 1; +} + +/* + * PDS_date.c v1.2 wesley ebisuzaki + * + * prints a string with a date code + * + * PDS_date(pds,option, v_time) + * options=0 .. 2 digit year + * options=1 .. 4 digit year + * + * v_time=0 .. initial time + * v_time=1 .. verification time + * + * assumption: P1 and P2 are unsigned integers (not clear from doc) + * + * v1.2 years that are multiple of 400 are leap years, not 500 + * v1.2.1 make the change to the source code for v1.2 + * v1.2.2 add 3/6/12 hour forecast time units + * v1.2.3 Jan 31 + 1 month => Feb 31 .. change to Feb 28/29 + */ + +static int msg_count = 0; +extern int minute; + +int PDS_date(unsigned char *pds, int option, int v_time) { + + int year, month, day, hour, min; + + if (v_time == 0) { + year = PDS_Year4(pds); + month = PDS_Month(pds); + day = PDS_Day(pds); + hour = PDS_Hour(pds); + } + else { + if (verf_time(pds, &year, &month, &day, &hour) != 0) { + if (msg_count++ < 5) fprintf(stderr, "PDS_date: problem\n"); + } + } + min = PDS_Minute(pds); + + switch(option) { + case 0: + printf("%2.2d%2.2d%2.2d%2.2d", year % 100, month, day, hour); + if (minute) printf("-%2.2d", min); + break; + case 1: + printf("%4.4d%2.2d%2.2d%2.2d", year, month, day, hour); + if (minute) printf("-%2.2d", min); + break; + default: + fprintf(stderr,"missing code\n"); + exit(8); + } + return 0; +} + +#define FEB29 (31+29) +static int monthjday[13] = { + 0,31,59,90,120,151,181,212,243,273,304,334,365}; + +static int leap(int year) { + if (year % 4 != 0) return 0; + if (year % 100 != 0) return 1; + return (year % 400 == 0); +} + + +int add_time(int *year, int *month, int *day, int *hour, int dtime, int unit) { + int y, m, d, h, jday, i, days_in_month; + + y = *year; + m = *month; + d = *day; + h = *hour; + + if (unit == YEAR) { + *year = y + dtime; + return 0; + } + if (unit == DECADE) { + *year = y + (10 * dtime); + return 0; + } + if (unit == CENTURY) { + *year = y + (100 * dtime); + return 0; + } + if (unit == NORMAL) { + *year = y + (30 * dtime); + return 0; + } + if (unit == MONTH) { + if (dtime < 0) { + i = (-dtime) / 12 + 1; + y -= i; + dtime += (i * 12); + } + dtime += (m - 1); + *year = y = y + (dtime / 12); + *month = m = 1 + (dtime % 12); + + /* check if date code if valid */ + days_in_month = monthjday[m] - monthjday[m-1]; + if (m == 2 && leap(y)) { + days_in_month++; + } + if (days_in_month < d) *day = days_in_month; + + return 0; + } + + if (unit == SECOND) { + dtime /= 60; + unit = MINUTE; + } + if (unit == MINUTE) { + dtime /= 60; + unit = HOUR; + } + + if (unit == HOURS3) { + dtime *= 3; + unit = HOUR; + } + else if (unit == HOURS6) { + dtime *= 6; + unit = HOUR; + } + else if (unit == HOURS12) { + dtime *= 12; + unit = HOUR; + } + + if (unit == HOUR) { + dtime += h; + + *hour = dtime % 24; + dtime = dtime / 24; + if (*hour < 0) { + *hour += 24; + dtime--; + } + unit = DAY; + } + + /* this is the hard part */ + + if (unit == DAY) { + /* set m and day to Jan 0, and readjust dtime */ + jday = d + monthjday[m-1]; + if (leap(y) && m > 2) jday++; + dtime += jday; + + while (dtime < 1) { + y--; + dtime += 365 + leap(y); + } + + /* one year chunks */ + while (dtime > 365 + leap(y)) { + dtime -= (365 + leap(y)); + y++; + } + + /* calculate the month and day */ + + if (leap(y) && dtime == FEB29) { + m = 2; + d = 29; + } + else { + if (leap(y) && dtime > FEB29) dtime--; + for (i = 11; monthjday[i] >= dtime; --i); + m = i + 1; + d = dtime - monthjday[i]; + } + *year = y; + *month = m; + *day = d; + return 0; + } + fprintf(stderr,"add_time: undefined time unit %d\n", unit); + return 1; +} + + +/* + * verf_time: + * + * this routine returns the "verification" time + * should have behavior similar to gribmap + * + */ + +int verf_time(unsigned char *pds, int *year, int *month, int *day, int *hour) { + int tr, dtime, unit; + + *year = PDS_Year4(pds); + *month = PDS_Month(pds); + *day = PDS_Day(pds); + *hour = PDS_Hour(pds); + + /* find time increment */ + + dtime = PDS_P1(pds); + tr = PDS_TimeRange(pds); + unit = PDS_ForecastTimeUnit(pds); + + if (tr == 10) dtime = PDS_P1(pds) * 256 + PDS_P2(pds); + if (tr > 1 && tr < 6 ) dtime = PDS_P2(pds); + if (tr == 6 || tr == 7) dtime = - PDS_P1(pds); + + if (dtime == 0) return 0; + + return add_time(year, month, day, hour, dtime, unit); +} + + +/* + * ensemble.c v0.1 wesley ebisuzaki + * + * prints ensemble meta-data + * + * only for NCEP and ECMWF + * + * output format: + * + * ECMWF + * ens=n/N: n: 0=ctl, +/-ve + * N: total number of members + * + * NCEP + * ens=n/type: n: 0=ctl, +/-ve, CLUST, PROD/ + * type: Mn, WtdMn, SDev, NSDev + * + * updated 8/06 w. ebisuzaki + */ + +extern int ncep_ens; + +void ensemble(unsigned char *pds, int mode) { + + int pdslen; + unsigned char ctmp; + char char_end; + + pdslen = PDS_LEN(pds); + char_end = mode == 2 ? ' ' : ':'; + + if ((PDS_Center(pds) == NMC || ncep_ens) && pdslen >= 45 && pds[40] == 1) { + + /* control run */ + + if (pds[41] == 1) { + if (mode != 2) { + printf("ens%c0:%c", pds[42] == 1 ? '+' : '-', char_end); + } + else { + printf("%s-res_ens_control ", pds[42] == 1 ? "hi" : "low"); + } + } + + /* perturbation run */ + + else if (pds[41] == 2 || pds[41] == 3) { + if (mode != 2) { + printf("ens%c%d%c", pds[41] == 3 ? '+' : '-', pds[42],char_end); + } + else { + printf("ens_perturbation=%c%d ",pds[41] == 3 ? '+' : '-', + pds[42]); + } + } + + /* cluster mean */ + + else if (pds[41] == 4) { + if (mode != 2) printf("cluster%c", char_end); + else printf("cluster(%d members) ",pds[60]); + } + + + /* ensemble mean */ + + else if (pds[41] == 5) { + if (mode != 2) printf("ensemble%c", char_end); + else printf("ensemble(%d members) ",pds[60]); + } + + /* other case .. debug code */ + + else { + printf("ens %d/%d/%d/%d%c", pds[41],pds[42],pds[43],pds[44],char_end); + } + + + if (pdslen >= 44) { + if (pds[43] == 1 && pds[41] >= 4) printf("mean%c", char_end); + else if (pds[43] == 2) printf("weighted mean%c",char_end); + else if (pds[43] == 3) printf("no bias%c",char_end); + else if (pds[43] == 4) printf("weighted mean no bias%c",char_end); + else if (pds[43] == 5) printf("weight%c",char_end); + else if (pds[43] == 6) printf("climate percentile%c",char_end); + else if (pds[43] == 7) printf("daily climate mean%c",char_end); + else if (pds[43] == 8) printf("daily climate std dev%c",char_end); + else if (pds[43] == 11) printf("std dev%c",char_end); + else if (pds[43] == 12) printf("norm std dev%c",char_end); + else if (pds[43] == 21) printf("max val%c",char_end); + else if (pds[43] == 22) printf("min val%c",char_end); + } + + /* NCEP probability limits */ + + if ((PDS_PARAM(pds) == 191 || PDS_PARAM(pds) == 192) && pdslen >= 47) { + ctmp = PDS_PARAM(pds); + PDS_PARAM(pds) = pds[45]; + if (pds[46] == 1 && pdslen >= 51) { + printf("prob(%s<%f)%c", k5toa(pds), ibm2flt(pds+47),char_end); + } + else if (pds[46] == 2 && pdslen >= 54) { + printf("prob(%s>%f)%c", k5toa(pds), ibm2flt(pds+51), char_end); + } + else if (pds[46] == 3 && pdslen >= 54) { + printf("prob(%f<%s<%f)%c", ibm2flt(pds+47), k5toa(pds), + ibm2flt(pds+51), char_end); + } + PDS_PARAM(pds) = ctmp; + } + } +} + +/* + * GRIB table 2 at DWD + * Helmut P. Frank, 30.08.2001 + * updated 24.07.2003: PMSL, DD, FF, W, FR_ICE, H_ICE + * updated 28.11.2005: H_SNOW + */ + +const struct ParmTable parm_table_dwd_002[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"PS", "pressure [Pa]"}, + /* 2 */ {"PMSL", "pressure reduced to MSL [Pa]"}, + /* 3 */ {"DPSDT", "pressure tendency [Pa/s]"}, + /* 4 */ {"var4", "undefined"}, + /* 5 */ {"var5", "undefined"}, + /* 6 */ {"FI", "geopotential [(m**2)/(s**2)]"}, + /* 7 */ {"geopot h", "geopotential height [gpm]"}, + /* 8 */ {"HH", "geometrical height [m]"}, + /* 9 */ {"dev of h", "standard deviation of height [m]"}, + /* 10 */ {"TO3", "total ozone [Dobson Units]"}, + /* 11 */ {"T", "temperature [K]"}, + /* 12 */ {"virt.temp.", "virtual temperature [K]"}, + /* 13 */ {"pot. temp.", "potential temperature [K]"}, + /* 14 */ {"pseudo-pot", "pseudo-adiabatic potential temperature [K]"}, + /* 15 */ {"TMAX", "maximum temperature [K]"}, + /* 16 */ {"TMIN", "minimum temperature [K]"}, + /* 17 */ {"TD", "dew-point temperature [K]"}, + /* 18 */ {"dew-pnt de", "dew-point depression (or deficit) [K]"}, + /* 19 */ {"lapse rate", "laps rate [K/m]"}, + /* 20 */ {"visibility", "visibility [m]"}, + /* 21 */ {"radar sp 1", "radar spectra (1) [non-dim]"}, + /* 22 */ {"radar sp 2", "radar spectra (2) [non-dim]"}, + /* 23 */ {"radar sp 3", "radar spectra (3) [non-dim]"}, + /* 24 */ {"pli to 500", "parcel lifted index (to 500 hPa) [K]"}, + /* 25 */ {"temp anom", "temperature anomaly [K]"}, + /* 26 */ {"pres anom", "pressure anomaly [Pa]"}, + /* 27 */ {"geop anom", "geopotential height anomaly [gpm]"}, + /* 28 */ {"wave sp 1", "wave spaectra(1) [non-dim]"}, + /* 29 */ {"wave sp 2", "wave spaectra(2) [non-dim]"}, + /* 30 */ {"wave sp 3", "wave spaectra(3) [non-dim]"}, + /* 31 */ {"DD", "wind direction [degree true]"}, + /* 32 */ {"FF", "wind speed [m/s]"}, + /* 33 */ {"U", "u-component (zonal) of wind [m/s]"}, + /* 34 */ {"V", "v-component (merdional) of wind [m/s]"}, + /* 35 */ {"stream fun", "stream function [(m**2)/s]"}, + /* 36 */ {"vel potent", "velocity potential [(m**2)/s]"}, + /* 37 */ {"M.stream f", "Montgomery stream function [(m**2)/(s**2)]"}, + /* 38 */ {"sigma vert", "sigma co-ordinate vertical velocity [1/s]"}, + /* 39 */ {"OMEGA", "vertical velocity [Pa/s]"}, + /* 40 */ {"W", "vertical velocity [m/s]"}, + /* 41 */ {"abs vortic", "absolute vorticity [1/s]"}, + /* 42 */ {"abs diverg", "absolute divergence [1/s]"}, + /* 43 */ {"rel vortic", "relative vorticity [1/s]"}, + /* 44 */ {"rel diverg", "relative divergence [1/s]"}, + /* 45 */ {"vert.u-shr", "vertical u-component shear [1/s]"}, + /* 46 */ {"vert.v-shr", "vertical v-component shear [1/s]"}, + /* 47 */ {"dir of cur", "direction of current [degree true]"}, + /* 48 */ {"spd of cur", "speed of current [m/s]"}, + /* 49 */ {"currcomp U", "u-component of current [m/s]"}, + /* 50 */ {"currcomp V", "v-component of current [m/s]"}, + /* 51 */ {"QV", "specific humidity [kg/kg]"}, + /* 52 */ {"RELHUM", "relative humidity [%]"}, + /* 53 */ {"hum mixrat", "humidity mixing ratio [kg/kg]"}, + /* 54 */ {"TQV", "total precipitable water [kg/m**2]"}, + /* 55 */ {"vapor pres", "vapor pressure [Pa]"}, + /* 56 */ {"sat.defic.", "saturation deficit [Pa]"}, + /* 57 */ {"AEVAP_S", "evaporation [kg/(m**2)]"}, + /* 58 */ {"TQI", "total cloud ice content [kg/m**2]"}, + /* 59 */ {"prec. rate", "precipitation rate [kg/((m**2)*s)]"}, + /* 60 */ {"thunderst.", "thunderstorm probability [%]"}, + /* 61 */ {"TOT_PREC", "total precipitation [kg/(m**2)]"}, + /* 62 */ {"PREC_GSP", "large scale precipitation [kg/(m**2)]"}, + /* 63 */ {"PREC_CON", "convective precipitation [kg/(m**2)]"}, + /* 64 */ {"snowf.rate", "snowfall rate water equivalent [kg/((m**2)*s)]"}, + /* 65 */ {"W_SNOW", "water equivalent of accumulated snow depth [kg/(m**2)]"}, + /* 66 */ {"H_SNOW", "snow depth [m]"}, + /* 67 */ {"mix lay de", "mixed layer depth [m]"}, + /* 68 */ {"tr therm d", "transient thermocline depth [m]"}, + /* 69 */ {"ma therm d", "main thermocline depth [m]"}, + /* 70 */ {"m therm da", "main thermocline depth anomaly [m]"}, + /* 71 */ {"CLCT", "total cloud cover [%]"}, + /* 72 */ {"CLC_CON", "convective cloud cover [%]"}, + /* 73 */ {"CLCL", "low cloud cover [%]"}, + /* 74 */ {"CLCM", "medium cloud cover [%]"}, + /* 75 */ {"CLCH", "high cloud cover [%]"}, + /* 76 */ {"TQC", "total cloud water content [kg/m**2]"}, + /* 77 */ {"bli to 500", "best lifted index (to 500 hPa) [K]"}, + /* 78 */ {"SNOW_CON", "convective snow [kg/(m**2)]"}, + /* 79 */ {"SNOW_GSP", "large scale snow [kg/(m**2)]"}, + /* 80 */ {"water temp", "water temperature [K]"}, + /* 81 */ {"FR_LAND", "land cover (1=land, 0=sea) [1]"}, + /* 82 */ {"dev sea-le", "deviation of sea-level from mean [m]"}, + /* 83 */ {"Z0", "surface roughness [m]"}, + /* 84 */ {"ALB_RAD", "albedo [%]"}, + /* 85 */ {"T_soil", "soil temperature [K]"}, + /* 86 */ {"W_soil", "soil moisture content [kg/(m**2)]"}, + /* 87 */ {"PLCOV", "vegetation (plant cover) [%]"}, + /* 88 */ {"salinity", "salinity [kg/kg]"}, + /* 89 */ {"density", "density [kg/(m**3)]"}, + /* 90 */ {"RUNOFF", "water run-off [kg/(m**2)]"}, + /* 91 */ {"FR_ICE", "ice cover (1=ice, 0=no ice) [1]"}, + /* 92 */ {"H_ICE", "ice thickness [m]"}, + /* 93 */ {"dir ice dr", "direction of ice drift [degree true]"}, + /* 94 */ {"sp ice dr", "speed of ice drift [m/s]"}, + /* 95 */ {"ice dr u", "u-component of ice drift [m/s]"}, + /* 96 */ {"ice dr v", "v-component of ice drift [m/s]"}, + /* 97 */ {"ice growth", "ice growth rate [m/s]"}, + /* 98 */ {"ice diverg", "ice divergence [1/s]"}, + /* 99 */ {"snow melt", "snow melt [kg/(m**2)]"}, + /* 100 */ {"winwav/swe", "significant height of comb. wind waves and swell [m]"}, + /* 101 */ {"dir of wav", "direction of wind waves [degree true]"}, + /* 102 */ {"hei of wav", "significant height of wind waves [m]"}, + /* 103 */ {"MP of wiwa", "mean period of wind waves [s]"}, + /* 104 */ {"dir of swe", "direction of swell [degree true]"}, + /* 105 */ {"hei of swe", "significant height of swell [m]"}, + /* 106 */ {"MP of swel", "mean period of swell [s]"}, + /* 107 */ {"pr wave di", "primary wave direction [degree true]"}, + /* 108 */ {"pr wave pe", "primary wave period [s]"}, + /* 109 */ {"se wave di", "secondary wave direction [degree true]"}, + /* 110 */ {"se wave pe", "secondary wave period [s]"}, + /* 111 */ {"ASOB_S", "net short-wave radiation (surface) [W/(m**2)]"}, + /* 112 */ {"ATHB_S", "net long-wave radiation (surface) [W/(m**2)]"}, + /* 113 */ {"ASOB_T", "net short-wave radiation (top of atmosphere) [W/(m**2)]"}, + /* 114 */ {"ATHB_T", "net long-wave radiation (top of atmosphere) [W/(m**2)]"}, + /* 115 */ {"l-w rad.", "long-wave radiation [W/(m**2)]"}, + /* 116 */ {"s-w rad.", "short-wave radiation [W/(m**2)]"}, + /* 117 */ {"global rad", "global radiation [W/(m**2)]"}, + /* 118 */ {"var118", "undefined"}, + /* 119 */ {"var119", "undefined"}, + /* 120 */ {"var120", "undefined"}, + /* 121 */ {"ALHFL_S", "latent heat flux [W/(m**2)]"}, + /* 122 */ {"ASHFL_S", "sensible heat flux [W/(m**2)]"}, + /* 123 */ {"bound l di", "boundary layer dissipation [W/(m**2)]"}, + /* 124 */ {"AUMFL_S", "momentum flux, u component [N/(m**2)]"}, + /* 125 */ {"AVMFL_S", "momentum flux, v component [N/(m**2)]"}, + /* 126 */ {"wind mix e", "wind mixing energy [J]"}, + /* 127 */ {"image data", "image data []"}, + /* 128 */ {"var128", "undefined"}, + /* 129 */ {"geopot h", "geopotential height (ECMF) [gpm]"}, + /* 130 */ {"temperatur", "temperature (ECMF) [K]"}, + /* 131 */ {"wind compU", "u-component of wind (ECMF) [m/s]"}, + /* 132 */ {"wind compV", "v-component of wind (ECMF) [m/s]"}, + /* 133 */ {"var133", "undefined"}, + /* 134 */ {"var134", "undefined"}, + /* 135 */ {"var135", "undefined"}, + /* 136 */ {"var136", "undefined"}, + /* 137 */ {"var137", "undefined"}, + /* 138 */ {"var138", "undefined"}, + /* 139 */ {"soil temp.", "soil temperature (ECMF) [K]"}, + /* 140 */ {"var140", "undefined"}, + /* 141 */ {"var141", "undefined"}, + /* 142 */ {"ls precip.", "large scale precipitation (ECMF) [kg/(m**2)]"}, + /* 143 */ {"conv prec.", "convective precipitation (ECMF) [kg/(m**2)]"}, + /* 144 */ {"snowfall", "snowfall (ECMF) [m of water equivalent]"}, + /* 145 */ {"var145", "undefined"}, + /* 146 */ {"var146", "undefined"}, + /* 147 */ {"var147", "undefined"}, + /* 148 */ {"var148", "undefined"}, + /* 149 */ {"var149", "undefined"}, + /* 150 */ {"var150", "undefined"}, + /* 151 */ {"pressure", "pressure reduced to MSL (ECMF) [Pa]"}, + /* 152 */ {"var152", "undefined"}, + /* 153 */ {"var153", "undefined"}, + /* 154 */ {"var154", "undefined"}, + /* 155 */ {"var155", "undefined"}, + /* 156 */ {"geopot h", "geopotential height (ECMF) [gpm]"}, + /* 157 */ {"rel. humid", "relative humidity (ECMF) [%]"}, + /* 158 */ {"var158", "undefined"}, + /* 159 */ {"var159", "undefined"}, + /* 160 */ {"var160", "undefined"}, + /* 161 */ {"var161", "undefined"}, + /* 162 */ {"var162", "undefined"}, + /* 163 */ {"var163", "undefined"}, + /* 164 */ {"cloud cov.", "total cloud cover (ECMF) [%]"}, + /* 165 */ {"10m-wind U", "u-component of 10m-wind (ECMF) [m/s]"}, + /* 166 */ {"10m-wind V", "v-component of 10m-wind (ECMF) [m/s]"}, + /* 167 */ {"2m temper", "2m temperature (ECMF) [K]"}, + /* 168 */ {"2m due-p.", "2m due-point temperature (ECMF) [K]"}, + /* 169 */ {"var169", "undefined"}, + /* 170 */ {"var170", "undefined"}, + /* 171 */ {"var171", "undefined"}, + /* 172 */ {"var172", "undefined"}, + /* 173 */ {"var173", "undefined"}, + /* 174 */ {"var174", "undefined"}, + /* 175 */ {"var175", "undefined"}, + /* 176 */ {"var176", "undefined"}, + /* 177 */ {"var177", "undefined"}, + /* 178 */ {"var178", "undefined"}, + /* 179 */ {"var179", "undefined"}, + /* 180 */ {"var180", "undefined"}, + /* 181 */ {"var181", "undefined"}, + /* 182 */ {"var182", "undefined"}, + /* 183 */ {"var183", "undefined"}, + /* 184 */ {"var184", "undefined"}, + /* 185 */ {"var185", "undefined"}, + /* 186 */ {"var186", "undefined"}, + /* 187 */ {"var187", "undefined"}, + /* 188 */ {"var188", "undefined"}, + /* 189 */ {"var189", "undefined"}, + /* 190 */ {"var190", "undefined"}, + /* 191 */ {"var191", "undefined"}, + /* 192 */ {"var192", "undefined"}, + /* 193 */ {"var193", "undefined"}, + /* 194 */ {"var194", "undefined"}, + /* 195 */ {"var195", "undefined"}, + /* 196 */ {"var196", "undefined"}, + /* 197 */ {"var197", "undefined"}, + /* 198 */ {"var198", "undefined"}, + /* 199 */ {"var199", "undefined"}, + /* 200 */ {"var200", "undefined"}, + /* 201 */ {"var201", "undefined"}, + /* 202 */ {"var202", "undefined"}, + /* 203 */ {"var203", "undefined"}, + /* 204 */ {"var204", "undefined"}, + /* 205 */ {"var205", "undefined"}, + /* 206 */ {"var206", "undefined"}, + /* 207 */ {"var207", "undefined"}, + /* 208 */ {"var208", "undefined"}, + /* 209 */ {"var209", "undefined"}, + /* 210 */ {"var210", "undefined"}, + /* 211 */ {"var211", "undefined"}, + /* 212 */ {"var212", "undefined"}, + /* 213 */ {"var213", "undefined"}, + /* 214 */ {"var214", "undefined"}, + /* 215 */ {"var215", "undefined"}, + /* 216 */ {"var216", "undefined"}, + /* 217 */ {"var217", "undefined"}, + /* 218 */ {"var218", "undefined"}, + /* 219 */ {"var219", "undefined"}, + /* 220 */ {"var220", "undefined"}, + /* 221 */ {"var221", "undefined"}, + /* 222 */ {"var222", "undefined"}, + /* 223 */ {"var223", "undefined"}, + /* 224 */ {"var224", "undefined"}, + /* 225 */ {"var225", "undefined"}, + /* 226 */ {"var226", "undefined"}, + /* 227 */ {"var227", "undefined"}, + /* 228 */ {"total prec", "total precipitation (ECMF) [m]"}, + /* 229 */ {"seaway 01", "seaway 01 (ECMF) []"}, + /* 230 */ {"seaway 02", "seaway 02 (ECMF) []"}, + /* 231 */ {"seaway 03", "seaway 03 (ECMF) []"}, + /* 232 */ {"seaway 04", "seaway 04 (ECMF) []"}, + /* 233 */ {"seaway 05", "seaway 05 (ECMF) []"}, + /* 234 */ {"seaway 06", "seaway 06 (ECMF) []"}, + /* 235 */ {"seaway 07", "seaway 07 (ECMF) []"}, + /* 236 */ {"seaway 08", "seaway 08 (ECMF) []"}, + /* 237 */ {"seaway 09", "seaway 09 (ECMF) []"}, + /* 238 */ {"seaway 10", "seaway 10 (ECMF) []"}, + /* 239 */ {"seaway 11", "seaway 11 (ECMF) []"}, + /* 240 */ {"var240", "undefined"}, + /* 241 */ {"var241", "undefined"}, + /* 242 */ {"var242", "undefined"}, + /* 243 */ {"var243", "undefined"}, + /* 244 */ {"var244", "undefined"}, + /* 245 */ {"var245", "undefined"}, + /* 246 */ {"var246", "undefined"}, + /* 247 */ {"var247", "undefined"}, + /* 248 */ {"var248", "undefined"}, + /* 249 */ {"var249", "undefined"}, + /* 250 */ {"var250", "undefined"}, + /* 251 */ {"var251", "undefined"}, + /* 252 */ {"var252", "undefined"}, + /* 253 */ {"var253", "undefined"}, + /* 254 */ {"var254", "undefined"}, + /* 255 */ {"var255", "undefined"}, +}; + +/* + * GRIB table 201 at DWD + * Helmut P. Frank, 30.08.2001 + * updated 24.07.2003: DQC_GSP, DQI_GSP, T_SO, W_SO, W_SO_ICE, T_ICE + * 19.10.2005: SOTR_RA, QRS_GSP, RHO_SNOW to table 201, and others + */ + +const struct ParmTable parm_table_dwd_201[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"dw sw flux", "downward shortwave radiant flux density [W/m**2]"}, + /* 2 */ {"uw sw flux", "upward shortwave radiant flux density [W/m**2]"}, + /* 3 */ {"dw lw flux", "downward longwave radiant flux density [W/m**2]"}, + /* 4 */ {"uw lw flux", "upward longwave radiant flux density [W/m**2]"}, + /* 5 */ {"APAB_S", "downwd photosynthetic active radiant flux density [W/m**2]"}, + /* 6 */ {"net s flux", "net shortwave flux [W/m**2]"}, + /* 7 */ {"net l flux", "net longwave flux [W/m**2]"}, + /* 8 */ {"net flux", "total net radiative flux density [W/m**2]"}, + /* 9 */ {"dw sw clfr", "downw shortw radiant flux density, cloudfree part [W/m**2]"}, + /* 10 */ {"uw sw cldy", "upw shortw radiant flux density, cloudy part [W/m**2]"}, + /* 11 */ {"dw lw clfr", "downw longw radiant flux density, cloudfree part [W/m**2]"}, + /* 12 */ {"uw lw cldy", "upw longw radiant flux density, cloudy part [W/m**2]"}, + /* 13 */ {"SOHR_RAD", "shortwave radiative heating rate [K/s]"}, + /* 14 */ {"THHR_RAD", "longwave radiative heating rate [K/s]"}, + /* 15 */ {"rad heat", "total radiative heating rate [K/s]"}, + /* 16 */ {"soilheat S", "soil heat flux, surface [W/m**2]"}, + /* 17 */ {"soilheat L", "soil heat flux, bottom of layer [W/m**2]"}, + /* 18 */ {"var18", "undefined"}, + /* 19 */ {"var19", "undefined"}, + /* 20 */ {"var20", "undefined"}, + /* 21 */ {"var21", "undefined"}, + /* 22 */ {"var22", "undefined"}, + /* 23 */ {"var23", "undefined"}, + /* 24 */ {"var24", "undefined"}, + /* 25 */ {"var25", "undefined"}, + /* 26 */ {"var26", "undefined"}, + /* 27 */ {"var27", "undefined"}, + /* 28 */ {"var28", "undefined"}, + /* 29 */ {"CLC", "cloud cover, grid scale + convective [1]"}, + /* 30 */ {"clc gr sc", "cloud cover, grid scale (0...1) [1]"}, + /* 31 */ {"QC", "specific cloud water content, grid scale [kg/kg]"}, + /* 32 */ {"clw gs vi", "cloud water content, grid scale, vert integrated [kg/m**2]"}, + /* 33 */ {"QI", "specific cloud ice content, grid scale [kg/kg]"}, + /* 34 */ {"cli gs vi", "cloud ice content, grid scale, vert integrated [kg/m**2]"}, + /* 35 */ {"QR", "specific rainwater content, grid scale [kg/kg]"}, + /* 36 */ {"QS", "specific snow content, grid scale [kg/kg]"}, + /* 37 */ {"src gs vi", "specific rainwater content, gs, vert. integrated [kg/m**2]"}, + /* 38 */ {"ssc gs vi", "specific snow content, gs, vert. integrated [kg/m**2]"}, + /* 39 */ {"QG", "specific graupel content, grid scale [kg/kg]"}, + /* 40 */ {"var40", "undefined"}, + /* 41 */ {"TWATER", "vert. integral of humidity, cloud water (and ice) [kg/(m**2)]"}, + /* 42 */ {"TDIV_HUM", "vert. integral of divergence of tot. water content [kg/(m**2)]"}, + /* 43 */ {"var43", "undefined"}, + /* 44 */ {"var44", "undefined"}, + /* 45 */ {"var45", "undefined"}, + /* 46 */ {"var46", "undefined"}, + /* 47 */ {"var47", "undefined"}, + /* 48 */ {"var48", "undefined"}, + /* 49 */ {"var49", "undefined"}, + /* 50 */ {"CH_CM_CL", "cloud covers CH_CM_CL (000...888) [1]"}, + /* 51 */ {"cl cov. CH", "cloud cover CH (0..8) [1]"}, + /* 52 */ {"cl cov. CM", "cloud cover CM (0..8) [1]"}, + /* 53 */ {"cl cov. CL", "cloud cover CL (0..8) [1]"}, + /* 54 */ {"cloud cov.", "total cloud cover (0..8) [1]"}, + /* 55 */ {"fog", "fog (0..8) [1]"}, + /* 56 */ {"fog", "fog [1]"}, + /* 57 */ {"var57", "undefined"}, + /* 58 */ {"var58", "undefined"}, + /* 59 */ {"var59", "undefined"}, + /* 60 */ {"clc con ci", "cloud cover, convective cirrus (0...1) [1]"}, + /* 61 */ {"CLW_CON", "specific cloud water content, convective clouds [kg/kg]"}, + /* 62 */ {"clw con vi", "cloud water content, conv clouds, vert integrated [kg/m**2]"}, + /* 63 */ {"cli con", "specific cloud ice content, convective clouds [kg/kg]"}, + /* 64 */ {"cli con vi", "cloud ice content, conv clouds, vert integrated [kg/m**2]"}, + /* 65 */ {"mass fl co", "convective mass flux [kg/(s*m**2)]"}, + /* 66 */ {"upd vel co", "updraft velocity, convection [m/s]"}, + /* 67 */ {"entr p co", "entrainment parameter, convection [m**(-1)]"}, + /* 68 */ {"HBAS_CON", "cloud base, convective clouds (above msl) [m]"}, + /* 69 */ {"HTOP_CON", "cloud top, convective clouds (above msl) [m]"}, + /* 70 */ {"con layers", "convective layers (00...77) (BKE) [1]"}, + /* 71 */ {"KO-index", "KO-index [1]"}, + /* 72 */ {"BAS_CON", "convection base index [1]"}, + /* 73 */ {"TOP_CON", "convection top index [1]"}, + /* 74 */ {"DT_CON", "convective temperature tendency [K/s]"}, + /* 75 */ {"DQV_CON", "convective tendency of specific humidity [s**(-1)]"}, + /* 76 */ {"H ten co", "convective tendency of total heat [J/(kg*s)]"}, + /* 77 */ {"QDW ten co", "convective tendency of total water [s**(-1)]"}, + /* 78 */ {"DU_CON", "convective momentum tendency (X-component) [m/s**2]"}, + /* 79 */ {"DV_CON", "convective momentum tendency (Y-component) [m/s**2]"}, + /* 80 */ {"vor ten co", "convective vorticity tendency [s**(-2)]"}, + /* 81 */ {"div ten co", "convective divergence tendency [s**(-2)]"}, + /* 82 */ {"HTOP_DC", "top of dry convection (above msl) [m]"}, + /* 83 */ {"top ind dc", "dry convection top index [1]"}, + /* 84 */ {"HZEROCL", "height of 0 degree Celsius isotherm above msl [m]"}, + /* 85 */ {"SNOWLMT", "height of snowfall limit above msl [m]"}, + /* 86 */ {"var86", "undefined"}, + /* 87 */ {"var87", "undefined"}, + /* 88 */ {"var88", "undefined"}, + /* 89 */ {"var89", "undefined"}, + /* 90 */ {"var90", "undefined"}, + /* 91 */ {"var91", "undefined"}, + /* 92 */ {"var92", "undefined"}, + /* 93 */ {"var93", "undefined"}, + /* 94 */ {"var94", "undefined"}, + /* 95 */ {"var95", "undefined"}, + /* 96 */ {"var96", "undefined"}, + /* 97 */ {"var97", "undefined"}, + /* 98 */ {"var98", "undefined"}, + /* 99 */ {"QRS_GSP", "spec water cont of rain/snow needed for w loading [kg/kg]"}, + /* 100 */ {"PRR_GSP", "surface precipitation rate, rain, grid scale [kg/(s*m**2)]"}, + /* 101 */ {"PRS_GSP", "surface precipitation rate, snow, grid scale [kg/(s*m**2)]"}, + /* 102 */ {"RAIN_GSP", "surface precipitation amount, rain, grid scale [kg/m**2]"}, + /* 103 */ {"condens gs", "condensation rate, grid scale [kg/(kg*s)]"}, + /* 104 */ {"autocon gs", "autoconversion rate, grid scale (C+C --> R) [kg/(kg*s)]"}, + /* 105 */ {"accret gs", "accretion rate, grid scale (R+C --> R) [kg/(kg*s)]"}, + /* 106 */ {"nucleat gs", "nucleation rate, grid scale (C+C --> S) [kg/(kg*s)]"}, + /* 107 */ {"riming gs", "riming rate, grid scale (S+C --> S) [kg/(kg*s)]"}, + /* 108 */ {"deposit gs", "deposition rate, grid scale (S+V <--> S) [kg/(kg*s)]"}, + /* 109 */ {"melting gs", "melting rate, grid scale (S --> R) [kg/(kg*s)]"}, + /* 110 */ {"evapor gs", "evaporation rate, grid scale (R+V <-- R) [kg/(kg*s)]"}, + /* 111 */ {"PRR_CON", "surface precipitation rate, rain, convective [kg/(s*m**2)]"}, + /* 112 */ {"PRS_CON", "surface precipitation rate, snow, convective [kg/(s*m**2)]"}, + /* 113 */ {"RAIN_CON", "surface precipitation amount, rain, convective [kg/m**2]"}, + /* 114 */ {"condens co", "condensation rate, convective [kg/(kg*s)]"}, + /* 115 */ {"autocon co", "autoconversion rate, convective [kg/(kg*s)]"}, + /* 116 */ {"accret co", "accretion rate, convective [kg/(kg*s)]"}, + /* 117 */ {"nucleat co", "nucleation rate, convective [kg/(kg*s)]"}, + /* 118 */ {"riming co", "riming rate, convective [kg/(kg*s)]"}, + /* 119 */ {"sublim co", "sublimation rate, convective [kg/(kg*s)]"}, + /* 120 */ {"melting co", "melting rate, convective [kg/(kg*s)]"}, + /* 121 */ {"evapor co", "evaporation rate, convective [kg/(kg*s)]"}, + /* 122 */ {"rain am", "rain amount, grid-scale plus convective [kg/m**2]"}, + /* 123 */ {"snow am", "snow amount, grid-scale plus convective [kg/m**2]"}, + /* 124 */ {"DT_GSP", "temperature tendency, grid-scale condensation [K/s]"}, + /* 125 */ {"DQV_GSP", "tendency of specific humidity, grid-scale condens [s**(-1)]"}, + /* 126 */ {"H ten gs", "tendency of total heat, grid-scale condensation [J/(kg*s)]"}, + /* 127 */ {"DQC_GSP", "tendency of total water, grid-scale condensation [s**(-1)]"}, + /* 128 */ {"snowfall", "snowfall (dimension"}, + /* 129 */ {"FRESHSNW", "fresh snow factor [1]"}, + /* 130 */ {"DQI_GSP", "tend of the sp cl ice cont due to gs precipitation [kg/(kg*s)]"}, + /* 131 */ {"PRG_GSP", "surface precipitation rate, graupel, grid scale [kg/(s*m**2)]"}, + /* 132 */ {"GRAU_GSP", "surface precipitation amount, graupel, grid scale [kg/(m**2)]"}, + /* 133 */ {"RHO_SNOW", "snow density [kg/m**3"}, + /* 134 */ {"var134", "undefined"}, + /* 135 */ {"var135", "undefined"}, + /* 136 */ {"var136", "undefined"}, + /* 137 */ {"var137", "undefined"}, + /* 138 */ {"var138", "undefined"}, + /* 139 */ {"PP", "deviation of pressure from reference value [Pa]"}, + /* 140 */ {"var140", "undefined"}, + /* 141 */ {"var141", "undefined"}, + /* 142 */ {"var142", "undefined"}, + /* 143 */ {"var143", "undefined"}, + /* 144 */ {"var144", "undefined"}, + /* 145 */ {"var145", "undefined"}, + /* 146 */ {"var146", "undefined"}, + /* 147 */ {"var147", "undefined"}, + /* 148 */ {"var148", "undefined"}, + /* 149 */ {"KE", "kinetic energy ((u**2 + v**2) / 2) [(m**2/s**2)]"}, + /* 150 */ {"hdi coeff", "coefficient of horizontal diffusion [m**2/s]"}, + /* 151 */ {"dissp rate", "dissipation rate [W/(Pa*m**2)]"}, + /* 152 */ {"TKE", "turbulent kinetic energy [(m/s)**2]"}, + /* 153 */ {"TKVM", "coefficient of vertical diffusion, momentum [m**2/s]"}, + /* 154 */ {"TKVH", "coefficient of vertical diffusion, heat [m**2/s]"}, + /* 155 */ {"vdi coe cw", "coefficient of vertical diffusion, cloud water [m**2/s]"}, + /* 156 */ {"vdi coe ci", "coefficient of vertical diffusion, cloud ice [m**2/s]"}, + /* 157 */ {"vdi coe vp", "coefficient of vertical diffusion, water vapour [m**2/s]"}, + /* 158 */ {"dis len m", "turbulent dissipation length for momentum [m]"}, + /* 159 */ {"dis len h", "turbulent dissipation length for heat [m]"}, + /* 160 */ {"var u mom", "variance of u-component of momentum [(m/s)**2]"}, + /* 161 */ {"var v mom", "variance of v-component of momentum [(m/s)**2]"}, + /* 162 */ {"var w mom", "variance of w-component of momentum [(m/s)**2]"}, + /* 163 */ {"var temp", "variance of temperature [K**2]"}, + /* 164 */ {"var cl wat", "variance of specific cloud water content [(kg/kg)**2]"}, + /* 165 */ {"var cl ice", "variance of specific cloud ice content [(kg/kg)**2]"}, + /* 166 */ {"var vap mr", "variance of water vapour mixing ratio [(kg/kg)**2]"}, + /* 167 */ {"c wat flux", "turbulent vertical flux of spec cloud water [m/s]"}, + /* 168 */ {"c ice flux", "turbulent vertical flux of spec cloud ice [m/s]"}, + /* 169 */ {"w vap flux", "turbulent vertical flux of water vapour mix ratio [m/s]"}, + /* 170 */ {"TCM", "drag coefficient CD [1]"}, + /* 171 */ {"TCH", "transfer coefficient CH (sensible heat) [1]"}, + /* 172 */ {"tr coef CQ", "transfer coefficient CQ (latent heat) [1]"}, + /* 173 */ {"PBL-top h", "PBL-top h [m]"}, + /* 174 */ {"T-jump h", "temperature jump at PBL-top [K]"}, + /* 175 */ {"q-jump h", "specific humidity jump at PBL-top [kg/kg]"}, + /* 176 */ {"entr at h", "entrainment at PBL-top [kg/(s*m**2)]"}, + /* 177 */ {"mass fl h", "upward mass flux at PBL-top [kg/(s*m**2)]"}, + /* 178 */ {"cl cov PBL", "cloud cover of PBL-clouds (0...1) [1]"}, + /* 179 */ {"cl wat PBL", "specific cloud water content of PBL-clouds [kg/kg]"}, + /* 180 */ {"cl top PBL", "cloud top of PBL-clouds [m]"}, + /* 181 */ {"cl bas PBL", "cloud base of PBL-clouds [m]"}, + /* 182 */ {"moun wav X", "vertical mountain wave momentum flux (X component) [kg/(m*s**2)]"}, + /* 183 */ {"moun wav Y", "vertical mountain wave momentum flux (Y component) [kg/(m*s**2)]"}, + /* 184 */ {"wave Ri", "wave Richardson number [1]"}, + /* 185 */ {"wav div X", "mountain wave momentum flux divergence (X comp) [m/s**2]"}, + /* 186 */ {"wav div Y", "mountain wave momentum flux divergence (Y comp) [m/s**2]"}, + /* 187 */ {"VMAX_10M", "maximum wind velocity [m/s]"}, + /* 188 */ {"wav dis vi", "mountain wave dissipation, vert integrated [W/m**2]"}, + /* 189 */ {"wv en flux", "vertical wave energy flux [kg*m/s**4]"}, + /* 190 */ {"var190", "undefined"}, + /* 191 */ {"var191", "undefined"}, + /* 192 */ {"var192", "undefined"}, + /* 193 */ {"var193", "undefined"}, + /* 194 */ {"var194", "undefined"}, + /* 195 */ {"var195", "undefined"}, + /* 196 */ {"var196", "undefined"}, + /* 197 */ {"T_SO", "temperature of soil layers [K]"}, + /* 198 */ {"W_SO", "water + ice content of soil layers [kg/(m**2)]"}, + /* 199 */ {"W_SO_ICE", "ice content of soil layers [kg/(m**2)]"}, + /* 200 */ {"W_I", "water content of interception store [kg/(m**2)]"}, + /* 201 */ {"interc ice", "icebit for interception store [1]"}, + /* 202 */ {"snow fract", "snow fraction [1]"}, + /* 203 */ {"T_SNOW", "snow temperature [K]"}, + /* 204 */ {"foliag tem", "foliage temperature [K]"}, + /* 205 */ {"infiltrat", "infiltration [m/s]"}, + /* 206 */ {"runoff", "runoff [m/s]"}, + /* 207 */ {"soil evap", "bare soil evaporation [m/s]"}, + /* 208 */ {"plant tran", "plant transpiration [m/s]"}, + /* 209 */ {"inter evap", "interception store evaporation [m/s]"}, + /* 210 */ {"water evap", "evaporation from water surfaces [m/s]"}, + /* 211 */ {"aero resis", "aerodynamic resistance [s/m]"}, + /* 212 */ {"plant res", "plant resistance [s/m]"}, + /* 213 */ {"soil res", "soil resistance [s/m]"}, + /* 214 */ {"total evap", "total evaporation (water, soil, plants) [m/s]"}, + /* 215 */ {"T_ICE", "temperature of sea ice [K]"}, + /* 216 */ {"var216", "undefined"}, + /* 217 */ {"max wind m", "maximum wind velocity (modified) [m/s]"}, + /* 218 */ {"var218", "undefined"}, + /* 219 */ {"var219", "undefined"}, + /* 220 */ {"var220", "undefined"}, + /* 221 */ {"var221", "undefined"}, + /* 222 */ {"var222", "undefined"}, + /* 223 */ {"var223", "undefined"}, + /* 224 */ {"var224", "undefined"}, + /* 225 */ {"var225", "undefined"}, + /* 226 */ {"var226", "undefined"}, + /* 227 */ {"var227", "undefined"}, + /* 228 */ {"var228", "undefined"}, + /* 229 */ {"var229", "undefined"}, + /* 230 */ {"XYZ", "S1 [1]"}, + /* 231 */ {"RHS_SI", "S2 [1]"}, + /* 232 */ {"DTTDIV", "S3 [1]"}, + /* 233 */ {"SOTR_RAD", "effective transmissivity of solar rad. [1]"}, + /* 234 */ {"GEN_TEN1", "averaged tendencies [x/s]"}, + /* 235 */ {"GEN_TEN2", "averaged tendencies [x/s]"}, + /* 236 */ {"S7", "S7 [1]"}, + /* 237 */ {"S8", "S8 [1]"}, + /* 238 */ {"S9", "S9 [1]"}, + /* 239 */ {"S10", "S10 [1]"}, + /* 240 */ {"MFLX_CON", "cloud base mass flux kg/(s*m**2)"}, + /* 241 */ {"CAPE_CON", "convective available potential energy [J/kg]"}, + /* 242 */ {"QCVG_CON", "moisture convergence for Kuo-type closure [1/s]"}, + /* 243 */ {"TKE_CON", "convective turbulent energy [J/kg]"}, + /* 244 */ {"MOS pTS fq", "MOS Gewitter-Wahrscheinlichkeit (frequent) [1]"}, + /* 245 */ {"MOS TS cov", "MOS Gewitteranteil (occasional - frequent (1 - 2)) [1]"}, + /* 246 */ {"S17", "S17 [1]"}, + /* 247 */ {"S18", "S18 [1]"}, + /* 248 */ {"S19", "S19 [1]"}, + /* 249 */ {"S20", "S20 [1]"}, + /* 250 */ {"MOS TSISO1", "MOS Wahrscheinlichkeit mindestens ein Blitz [1]"}, + /* 251 */ {"MOS TSISO2", "MOS Wahrscheinlichkeit mindestens zehn Blitze [1]"}, + /* 252 */ {"MOS TSISO3", "MOS Wahrscheinlichkeit mindestens hundert Blitze [1]"}, + /* 253 */ {"MOS TS DEN", "MOS Vorhersage der Blitzanzahl [1]"}, + /* 254 */ {"MOS TS OCC", "MOS Gewitter-Wahrscheinlichkeit (occasional) [1]"}, + /* 255 */ {"MOS TS FRQ", "MOS Gewitter-Wahrscheinlichkeit (frequent) [1]"}, +}; + +/* + * GRIB table 202 at DWD + * Helmut P. Frank, 30.08.2001 + * updated 24.07.2003: UV_Ind_F_h, BasicUV_IF, UV_Ind_W_h, UV_IndmaxF, + * "gesamt O3", UV_IndmaxW, "h UV_IndMx" + * 19.10.2005: AER_SEA, AER_LAN, AER_URB, AER_DES, and others + * 2.11.2005: Use RLAT, RLON instead of PHI, RLA. + */ + +const struct ParmTable parm_table_dwd_202[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"Seeg_peak", "jonswap parameter fm [s**(-1)]"}, + /* 2 */ {"Seeg_alpha", "jonswap parameter alpha [1]"}, + /* 3 */ {"Seeg_gamma", "jonswap parameter gamma [1]"}, + /* 4 */ {"Seeg_dir", "Seegang direction [degree true]"}, + /* 5 */ {"Seeg_energ", "Seegang energy densitiy [(m**2)*(s**2)]"}, + /* 6 */ {"Seeg_icemk", "Seegang ice mask [1]"}, + /* 7 */ {"peak p sw", "peak period of swell [s]"}, + /* 8 */ {"peak p ww", "peak period of wind waves [s]"}, + /* 9 */ {"var9", "undefined"}, + /* 10 */ {"var10", "undefined"}, + /* 11 */ {"var11", "undefined"}, + /* 12 */ {"var12", "undefined"}, + /* 13 */ {"var13", "undefined"}, + /* 14 */ {"var14", "undefined"}, + /* 15 */ {"var15", "undefined"}, + /* 16 */ {"var16", "undefined"}, + /* 17 */ {"var17", "undefined"}, + /* 18 */ {"var18", "undefined"}, + /* 19 */ {"var19", "undefined"}, + /* 20 */ {"Var. Geop.", "Varianz Geopotential [(m/s)**4]"}, + /* 21 */ {"Var. T", "Varianz Temperatur [K**2]"}, + /* 22 */ {"Var. u", "Varianz Zonalwind [(m/s)**2]"}, + /* 23 */ {"Var. v", "Varianz Meridionalwind [(m/s)**2]"}, + /* 24 */ {"Var. q", "Varianz spezifische Feuchte [(kg/kg)**2]"}, + /* 25 */ {"Mer. Imptr", "Meridionaler Impulstransport [(m/s)**2]"}, + /* 26 */ {"Mer. TrEpt", "Meridionaler Transport potentieller Energie [(m/s)**3]"}, + /* 27 */ {"Mer. TrsW", "Meridionaler Transport sensibler Waerme [K*(m/s)]"}, + /* 28 */ {"Mer. TrlW", "Meridionaler Transport latenter Waerme [(kg/kg)*(m/s)]"}, + /* 29 */ {"Ver. TrEpt", "Vertikaler Transport potentieller Energie [(m/s)**2*(Pa/s)]"}, + /* 30 */ {"Ver. TrsW", "Vertikaler Transport sensibler Waerme [K*(Pa/s)]"}, + /* 31 */ {"Ver.TrlW", "Vertikaler Transport latenter Waerme [(kg/kg)*(Pa/s)]"}, + /* 32 */ {"var32", "undefined"}, + /* 33 */ {"var33", "undefined"}, + /* 34 */ {"var34", "undefined"}, + /* 35 */ {"var35", "undefined"}, + /* 36 */ {"var36", "undefined"}, + /* 37 */ {"var37", "undefined"}, + /* 38 */ {"var38", "undefined"}, + /* 39 */ {"var39", "undefined"}, + /* 40 */ {"VarAF Geop", "Varianz des Analyse-Fehlers Geopotential [(m/s)**4]"}, + /* 41 */ {"VarAF u", "Varianz des Analyse-Fehlers Zonalwind [(m/s)**2]"}, + /* 42 */ {"VarAF v", "Varianz des Analyse-Fehlers Meridionalwind [(m/s)**2]"}, + /* 43 */ {"var43", "undefined"}, + /* 44 */ {"DU_SSO", "undefined"}, + /* 45 */ {"DV_SSO", "undefined"}, + /* 46 */ {"SSO_STDH", "standard deviation of subgrid scale orogr. height [m]"}, + /* 47 */ {"SSO_GAMMA", "anisotropy of topography [1]"}, + /* 48 */ {"SSO_THETA", "angle betw. principal axis of orogr. and global E [1]"}, + /* 49 */ {"SSO_SIGMA", "mean slope of subgrid scale orography [1]"}, + /* 50 */ {"oro varian", "subgrid-scale variance of orography [m**2]"}, + /* 51 */ {"E-W oro va", "E-W component of subgrid-scale variance of orogr [m**2]"}, + /* 52 */ {"N-S oro va", "N-S component of subgrid-scale variance of orogr [m**2]"}, + /* 53 */ {"NW-SE o va", "NW-SE component of subgrid-scale variance of orogr [m**2]"}, + /* 54 */ {"NE-SW o va", "NE-SW component of subgrid-scale variance of orogr [m**2]"}, + /* 55 */ {"inl w frac", "fraction of inland water [1]"}, + /* 56 */ {"EMISS_RAD", "surface emissivity [1]"}, + /* 57 */ {"SOILTYP", "soil texture [1]"}, + /* 58 */ {"soil color", "soil color [1]"}, + /* 59 */ {"soil drain", "soil drainage [1]"}, + /* 60 */ {"ground wat", "ground water table [m]"}, + /* 61 */ {"LAI", "leaf area index [1]"}, + /* 62 */ {"ROOTDP", "root depth [m]"}, + /* 63 */ {"root dens", "root density [1]"}, + /* 64 */ {"HMO3", "height of maximum of ozone concentration [Pa]"}, + /* 65 */ {"VIO3", "total vertically integrated ozone content [Pa]"}, + /* 66 */ {"ld-sea msk", "land-sea mask [1]"}, + /* 67 */ {"PLCOV_MX", "ground fraction covered by plants (vegetation p.) [1]"}, + /* 68 */ {"PLCOV_MN", "ground fraction covered by plants (time of rest) [1]"}, + /* 69 */ {"LAI_MX", "leaf area index (vegetation period) [1]"}, + /* 70 */ {"LAI_MN", "leaf area index (time of rest) [1]"}, + /* 71 */ {"Orographie", "Orographie + Land-Meer-Verteilung [m]"}, + /* 72 */ {"r length m", "roughness length momentum [m]"}, + /* 73 */ {"r length h", "roughness length heat [m]"}, + /* 74 */ {"var smc", "variance of soil moisture content [kg**2/m**4]"}, + /* 75 */ {"FOR_E", "ground fraction covered by evergreen forest [1]"}, + /* 76 */ {"FOR_D", "ground fraction covered by deciduous forest [1]"}, + /* 77 */ {"NDVI", "normalized differential vegetation index [1]"}, + /* 78 */ {"NDVI_MAX", "annual max. of norm. differential vegetation index [1]"}, + /* 79 */ {"NDVIRATIO", "proportion of act.value/max. norm.diff.veg.index [1]"}, + /* 80 */ {"AER_SEA", "aerosol optical depth, type sea [1]"}, + /* 81 */ {"AER_LAN", "aerosol optical depth, type land [1]"}, + /* 82 */ {"AER_URB", "aerosol optical depth, type urban [1]"}, + /* 83 */ {"AER_DES", "aerosol optical depth, type desert [1]"}, + /* 84 */ {"var84", "undefined"}, + /* 85 */ {"var85", "undefined"}, + /* 86 */ {"var86", "undefined"}, + /* 87 */ {"var87", "undefined"}, + /* 88 */ {"var88", "undefined"}, + /* 89 */ {"var89", "undefined"}, + /* 90 */ {"var90", "undefined"}, + /* 91 */ {"var91", "undefined"}, + /* 92 */ {"var92", "undefined"}, + /* 93 */ {"var93", "undefined"}, + /* 94 */ {"var94", "undefined"}, + /* 95 */ {"var95", "undefined"}, + /* 96 */ {"var96", "undefined"}, + /* 97 */ {"var97", "undefined"}, + /* 98 */ {"var98", "undefined"}, + /* 99 */ {"var99", "undefined"}, + /* 100 */ {"var100", "undefined"}, + /* 101 */ {"tidal tend", "tidal tendencies [(m/s)**2]"}, + /* 102 */ {"diab heatg", "sum of diabatic heating terms [K/s]"}, + /* 103 */ {"adiab heat", "total adiabatic heating [K/s]"}, + /* 104 */ {"adv q tend", "advective tendency of specific humidity [s**(-1)]"}, + /* 105 */ {"nadv q ten", "non-advective tendency of specific humidity [s**(-1)]"}, + /* 106 */ {"adv m te X", "advective momentum tendency (X component) [m/s**2]"}, + /* 107 */ {"adv m te Y", "advective momentum tendency (Y component) [m/s**2]"}, + /* 108 */ {"nad m te X", "non-advective momentum tendency (X component) [m/s**2]"}, + /* 109 */ {"nad m te Y", "non-advective momentum tendency (Y component) [m/s**2]"}, + /* 110 */ {"torque", "sum of mountain and frictional torque [kg*(m/s)**2]"}, + /* 111 */ {"budget val", "budget values [1]"}, + /* 112 */ {"scale fact", "scale factor [1]"}, + /* 113 */ {"FC", "Coriolis parameter [s**(-1)]"}, + /* 114 */ {"RLAT", "latitude [degr N]"}, + /* 115 */ {"RLON", "longitude [degr E]"}, + /* 116 */ {"relax fact", "relaxation factor (lateral boundary, LAM) [1]"}, + /* 117 */ {"climsstint", "climatic sea surface temp interpolated in time [degr C]"}, + /* 118 */ {"pot vortic", "potential vorticity [K*m**2/(s*kg)]"}, + /* 119 */ {"ln ps", "log surface pressure [1]"}, + /* 120 */ {"var120", "undefined"}, + /* 121 */ {"ZTD", "delay of the GPS signal through the atmosphere [m]"}, + /* 122 */ {"ZWD", "delay of the GPS signal through a wet atmosphere [m]"}, + /* 123 */ {"ZHD", "delay of the GPS signal through a dry atmosphere [m]"}, + /* 124 */ {"var124", "undefined"}, + /* 125 */ {"var125", "undefined"}, + /* 126 */ {"var126", "undefined"}, + /* 127 */ {"var127", "undefined"}, + /* 128 */ {"var128", "undefined"}, + /* 129 */ {"var129", "undefined"}, + /* 130 */ {"var130", "undefined"}, + /* 131 */ {"var131", "undefined"}, + /* 132 */ {"var132", "undefined"}, + /* 133 */ {"var133", "undefined"}, + /* 134 */ {"var134", "undefined"}, + /* 135 */ {"var135", "undefined"}, + /* 136 */ {"var136", "undefined"}, + /* 137 */ {"var137", "undefined"}, + /* 138 */ {"var138", "undefined"}, + /* 139 */ {"var139", "undefined"}, + /* 140 */ {"var140", "undefined"}, + /* 141 */ {"var141", "undefined"}, + /* 142 */ {"var142", "undefined"}, + /* 143 */ {"var143", "undefined"}, + /* 144 */ {"var144", "undefined"}, + /* 145 */ {"var145", "undefined"}, + /* 146 */ {"var146", "undefined"}, + /* 147 */ {"var147", "undefined"}, + /* 148 */ {"var148", "undefined"}, + /* 149 */ {"var149", "undefined"}, + /* 150 */ {"SO2-conc", "SO2-concentration [10**(-6)*g/m**3]"}, + /* 151 */ {"SO2-dryd", "SO2-dry deposition [10**(-3)*g/m**2]"}, + /* 152 */ {"SO2-wetd", "SO2-wet deposition [10**(-3)*g/m**2]"}, + /* 153 */ {"SO4-conc", "SO4-concentration [10**(-6)*g/m**3]"}, + /* 154 */ {"SO4-dryd", "SO4-dry deposition [10**(-3)*g/m**2]"}, + /* 155 */ {"SO4-wetd", "SO4-wet deposition [10**(-3)*g/m**2]"}, + /* 156 */ {"NO-conc", "NO-concentration [10**(-6)*g/m**3]"}, + /* 157 */ {"NO-dryd", "NO-dry deposition [10**(-3)*g/m**2]"}, + /* 158 */ {"NO-wetd", "NO-wet deposition [10**(-3)*g/m**2]"}, + /* 159 */ {"NO2-conc", "NO2-concentration [10**(-6)*g/m**3]"}, + /* 160 */ {"NO2-dryd", "NO2-dry deposition [10**(-3)*g/m**2]"}, + /* 161 */ {"NO2-wetd", "NO2-wet deposition [10**(-3)*g/m**2]"}, + /* 162 */ {"NO3-conc", "NO3-concentration [10**(-6)*g/m**3]"}, + /* 163 */ {"NO3-dryd", "NO3-dry deposition [10**(-3)*g/m**2]"}, + /* 164 */ {"NO3-wetd", "NO3-wet deposition [10**(-3)*g/m**2]"}, + /* 165 */ {"HNO3-conc", "HNO3-concentration [10**(-6)*g/m**3]"}, + /* 166 */ {"HNO3-dryd", "HNO3-dry deposition [10**(-3)*g/m**2]"}, + /* 167 */ {"HNO3-wetd", "HNO3-wet deposition [10**(-3)*g/m**2]"}, + /* 168 */ {"NH3-conc", "NH3-concentration [10**(-6)*g/m**3]"}, + /* 169 */ {"NH3-dryd", "NH3-dry deposition [10**(-3)*g/m**2]"}, + /* 170 */ {"NH3-wetd", "NH3-wet deposition [10**(-3)*g/m**2]"}, + /* 171 */ {"NH4-conc", "NH4-concentration [10**(-6)*g/m**3]"}, + /* 172 */ {"NH4-dryd", "NH4-dry deposition [10**(-3)*g/m**2]"}, + /* 173 */ {"NH4-wetd", "NH4-wet deposition [10**(-3)*g/m**2]"}, + /* 174 */ {"O3-conc", "O3-concentration [10**(-6)*g/m**3]"}, + /* 175 */ {"PAN-conc", "PAN-concentration [10**(-6)*g/m**3]"}, + /* 176 */ {"PAN-dryd", "PAN-dry deposition [10**(-3)*g/m**2]"}, + /* 177 */ {"OH-conc", "OH-concentration [10**(-6)*g/m**3]"}, + /* 178 */ {"O3-dryd", "O3-dry deposition [10**(-3)*g/m**2]"}, + /* 179 */ {"O3-wetd", "O3-wet deposition [10**(-3)*g/m**2]"}, + /* 180 */ {"O3", "O3-mixing ratio [kg/kg]"}, + /* 181 */ {"var181", "undefined"}, + /* 182 */ {"var182", "undefined"}, + /* 183 */ {"var183", "undefined"}, + /* 184 */ {"var184", "undefined"}, + /* 185 */ {"var185", "undefined"}, + /* 186 */ {"var186", "undefined"}, + /* 187 */ {"var187", "undefined"}, + /* 188 */ {"var188", "undefined"}, + /* 189 */ {"var189", "undefined"}, + /* 190 */ {"var190", "undefined"}, + /* 191 */ {"var191", "undefined"}, + /* 192 */ {"var192", "undefined"}, + /* 193 */ {"var193", "undefined"}, + /* 194 */ {"var194", "undefined"}, + /* 195 */ {"var195", "undefined"}, + /* 196 */ {"var196", "undefined"}, + /* 197 */ {"var197", "undefined"}, + /* 198 */ {"var198", "undefined"}, + /* 199 */ {"var199", "undefined"}, + /* 200 */ {"I131-conc", "I131-concentration [Bq/m**3]"}, + /* 201 */ {"I131-dryd", "I131-dry deposition [Bq/m**2]"}, + /* 202 */ {"I131-wetd", "I131-wet deposition [Bq/m**2]"}, + /* 203 */ {"Cs137-conc", "Cs137-concentration [Bq/m**3]"}, + /* 204 */ {"Cs137-dryd", "Cs1370dry deposition [Bq/m**2]"}, + /* 205 */ {"Cs137-wetd", "Cs137-wet deposition [Bq/m**2]"}, + /* 206 */ {"Te132-conc", "Te132-concentration [Bq/m**3]"}, + /* 207 */ {"Te132-dryd", "Te132-dry deposition [Bq/m**2]"}, + /* 208 */ {"Te132-wetd", "Te132-wet deposition [Bq/m**2]"}, + /* 209 */ {"Zr95-conc", "Zr95-concentration [Bq/m**3]"}, + /* 210 */ {"Zr95-dryd", "Zr95-dry deposition [Bq/m**2]"}, + /* 211 */ {"Zr95-wetd", "Zr95-wet deposition [Bq/m**2]"}, + /* 212 */ {"var212", "undefined"}, + /* 213 */ {"var213", "undefined"}, + /* 214 */ {"var214", "undefined"}, + /* 215 */ {"var215", "undefined"}, + /* 216 */ {"var216", "undefined"}, + /* 217 */ {"var217", "undefined"}, + /* 218 */ {"var218", "undefined"}, + /* 219 */ {"var219", "undefined"}, + /* 220 */ {"var220", "undefined"}, + /* 221 */ {"var221", "undefined"}, + /* 222 */ {"var222", "undefined"}, + /* 223 */ {"var223", "undefined"}, + /* 224 */ {"var224", "undefined"}, + /* 225 */ {"var225", "undefined"}, + /* 226 */ {"var226", "undefined"}, + /* 227 */ {"var227", "undefined"}, + /* 228 */ {"var228", "undefined"}, + /* 229 */ {"var229", "undefined"}, + /* 230 */ {"var230", "undefined"}, + /* 231 */ {"USTR_SSO", "Mom. flux, u component, due to SSO-effects [(N/(m**2)]"}, + /* 232 */ {"VSTR_SSO", "Mom. flux, v component, due to SSO-effects [(N/(m**2)]"}, + /* 233 */ {"VDIS_SSO", "Dissipation of kinetic energy due to SSO-effects [(W/(m**2)]"}, + /* 234 */ {"var234", "undefined"}, + /* 235 */ {"var235", "undefined"}, + /* 236 */ {"var236", "undefined"}, + /* 237 */ {"var237", "undefined"}, + /* 238 */ {"var238", "undefined"}, + /* 239 */ {"var239", "undefined"}, + /* 240 */ {"UV_Ind_F_h", "UV_Index corr. for albedo+altitude,cloudless(F), h [1]"}, + /* 241 */ {"BasicUV_IF", "Basic UV_Index m.s.l.,fixed albedo,cloudless(F), h [1]"}, + /* 242 */ {"UV_Ind_W_h", "UV_Index corrected for albedo+altitude+clouds(W),h [1]"}, + /* 243 */ {"UV_IndmaxF", "UV_Index cloudless (F), daily maximum [1]"}, + /* 244 */ {"SB-Index", "Sonnenbrand-Index [(W*10**(-3))/m**2]"}, + /* 245 */ {"SB-Index W", "Sonnenbrand-Index bei mittl. Bewoelkung (08z-12z) [(W*10**(-3))/m**2]"}, + /* 246 */ {"Kan.UVB-WI", "Kanadischer UVB-Warnindex (bew|lkungsreduziert) [(W*10**(-3))/m**2]"}, + /* 247 */ {"gesamt O3", "total column ozone (Gesamtozon) [Dobson Unit, DU]"}, + /* 248 */ {"UV_IndmaxW", "UV_Index clouded (W), daily maximum [1]"}, + /* 249 */ {"h UV_IndMx", "time of UV_Index maximum [h UTC]"}, + /* 250 */ {"var250", "undefined"}, + /* 251 */ {"var251", "undefined"}, + /* 252 */ {"var252", "undefined"}, + /* 253 */ {"var253", "undefined"}, + /* 254 */ {"var254", "undefined"}, + /* 255 */ {"var255", "undefined"}, +}; + +/* + * GRIB table 203 at DWD + * Helmut P. Frank, 30.08.2001 + * updated: 19.10.2005 + */ + +const struct ParmTable parm_table_dwd_203[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"pressure", "pressure [hPa]"}, + /* 2 */ {"geopot h", "geopotential height [10 * gpm]"}, + /* 3 */ {"var3", "undefined"}, + /* 4 */ {"temperatur", "temperature [1*degree Celsius]"}, + /* 5 */ {"dew-pnt te", "dew-point temperature [1*degree Celsius]"}, + /* 6 */ {"windcompXY", "wind components X/Y (X*100000 + ((Y*10)+5000)) [m/s]"}, + /* 7 */ {"geomet h", "geometrical height [kft]"}, + /* 8 */ {"geomet h", "geometrical height [hft]"}, + /* 9 */ {"wind di/sp", "wind direction and speed (dd*1000 + ff) [1*degree, 1*kt]"}, + /* 10 */ {"3 h pr cha", "3 hour pressure change [Pa/(3*h)]"}, + /* 11 */ {"Schnee-Mge", "Schneemenge [mm]"}, + /* 12 */ {"var12", "undefined"}, + /* 13 */ {"Bod-Wass-G", "Bodenwassergehalt [mm]"}, + /* 14 */ {"var14", "undefined"}, + /* 15 */ {"stab. ind.", "stability index [K]"}, + /* 16 */ {"var16", "undefined"}, + /* 17 */ {"var17", "undefined"}, + /* 18 */ {"max wind", "maximum wind velocity [km/h]"}, + /* 19 */ {"max wind", "maximum wind velocity [kt]"}, + /* 20 */ {"wind di/sp", "wind direction and speed (dd*1000 + ff) [5*degrees, 1*(m/s)]"}, + /* 21 */ {"wind di/sp", "wind direction and speed (dd*1000 + ff) [5*degrees, 1*kt]"}, + /* 22 */ {"wave di/he", "direction and height of wind waves (dd*1000 + h) [1*degree, 1*cm]"}, + /* 23 */ {"swe. di/he", "direction and height of swell (dd*1000 + h) [1*degree, 1*cm]"}, + /* 24 */ {"wave m d/h", "mean direction and height of waves (dd*1000 + h) [1*degree, 1*cm]"}, + /* 25 */ {"wind speed", "wind speed [kt]"}, + /* 26 */ {"var26", "undefined"}, + /* 27 */ {"wind compX", "wind component X-direction [kt]"}, + /* 28 */ {"wind compY", "wind component Y-direction [kt]"}, + /* 29 */ {"var29", "undefined"}, + /* 30 */ {"var30", "undefined"}, + /* 31 */ {"var31", "undefined"}, + /* 32 */ {"var32", "undefined"}, + /* 33 */ {"abs voradv", "absolute vorticity advection [1/(s**2)]"}, + /* 34 */ {"var34", "undefined"}, + /* 35 */ {"var35", "undefined"}, + /* 36 */ {"var36", "undefined"}, + /* 37 */ {"var37", "undefined"}, + /* 38 */ {"var38", "undefined"}, + /* 39 */ {"var39", "undefined"}, + /* 40 */ {"var40", "undefined"}, + /* 41 */ {"var41", "undefined"}, + /* 42 */ {"vert. vel.", "vertical velocity [hPa/h]"}, + /* 43 */ {"var43", "undefined"}, + /* 44 */ {"var44", "undefined"}, + /* 45 */ {"var45", "undefined"}, + /* 46 */ {"var46", "undefined"}, + /* 47 */ {"var47", "undefined"}, + /* 48 */ {"var48", "undefined"}, + /* 49 */ {"var49", "undefined"}, + /* 50 */ {"var50", "undefined"}, + /* 51 */ {"var51", "undefined"}, + /* 52 */ {"var52", "undefined"}, + /* 53 */ {"var53", "undefined"}, + /* 54 */ {"var54", "undefined"}, + /* 55 */ {"max. temp.", "maximum temperature [1*degree Celsius]"}, + /* 56 */ {"min. temp.", "minimum temperature [1*degree Celsius]"}, + /* 57 */ {"sul_prob", "probability to perceive sultriness [1]"}, + /* 58 */ {"clo", "value of isolation of clothes [1]"}, + /* 59 */ {"pmva", "predected mean vote (angepasst) [1]"}, + /* 60 */ {"feeled t", "feeled temperature [1*degree Celsius]"}, + /* 61 */ {"sea temper", "sea temperature [1*degree Celsius]"}, + /* 62 */ {"var62", "undefined"}, + /* 63 */ {"var63", "undefined"}, + /* 64 */ {"var64", "undefined"}, + /* 65 */ {"var65", "undefined"}, + /* 66 */ {"var66", "undefined"}, + /* 67 */ {"var67", "undefined"}, + /* 68 */ {"var68", "undefined"}, + /* 69 */ {"var69", "undefined"}, + /* 70 */ {"var70", "undefined"}, + /* 71 */ {"var71", "undefined"}, + /* 72 */ {"var72", "undefined"}, + /* 73 */ {"var73", "undefined"}, + /* 74 */ {"var74", "undefined"}, + /* 75 */ {"var75", "undefined"}, + /* 76 */ {"var76", "undefined"}, + /* 77 */ {"var77", "undefined"}, + /* 78 */ {"var78", "undefined"}, + /* 79 */ {"var79", "undefined"}, + /* 80 */ {"var80", "undefined"}, + /* 81 */ {"var81", "undefined"}, + /* 82 */ {"var82", "undefined"}, + /* 83 */ {"var83", "undefined"}, + /* 84 */ {"var84", "undefined"}, + /* 85 */ {"var85", "undefined"}, + /* 86 */ {"Globalstr.", "Summe der Globalstrahlung ueber einen Zeitraum [kWh/m**2]"}, + /* 87 */ {"Nied-GW-GE", "Niederschlagsart+Gewitter+Glatteis (T23-i) (0..99) [1]"}, + /* 88 */ {"NiedGW-Art", "Niederschlagsart+Gewitter (T23-intern) (0..99) [1]"}, + /* 89 */ {"NiedGE-Art", "Niederschlagsart+Glatteis (T23-intern) (0..99) [1]"}, + /* 90 */ {"NiedBewArt", "Kombination Niederschl.-Bew.-Blautherm. (283..407) [1]"}, + /* 91 */ {"Konv.U-Gr.", "Hoehe der Konvektionsuntergrenze ueber Grund [m]"}, + /* 92 */ {"Nied.-Art", "Niederschlagsart -ww- (T23-intern) (0..99) [1]"}, + /* 93 */ {"Konv.-Art", "Konvektionsart (0..4) [1]"}, + /* 94 */ {"Konv.UG-nn", "Hoehe der Konvektionsuntergrenze ueber nn [m]"}, + /* 95 */ {"var95", "undefined"}, + /* 96 */ {"var96", "undefined"}, + /* 97 */ {"var97", "undefined"}, + /* 98 */ {"var98", "undefined"}, + /* 99 */ {"WW", "Wetter (verschluesselt nach ww-Tabelle"}, + /* 100 */ {"geostr Vor", "geostrophische Vorticity [1/s]"}, + /* 101 */ {"Geo VorAdv", "geostrophische Vorticityadvektion [1/s**2]"}, + /* 102 */ {"VerGraVoAd", "vert. Gradient der geostr. Vorticityadvektion [m/(kg*s)]"}, + /* 103 */ {"Geo TemAdv", "geostrophische Schichtdickenadvektion [m**3/(kg*s)]"}, + /* 104 */ {"Lap TemAdv", "Kruemmung der geostr. Schichtdickenadvektion [m/(kg*s)]"}, + /* 105 */ {"Omega Forc", "Forcing rechte Seite Omegagleichung [m/(kg*s)]"}, + /* 106 */ {"var106", "undefined"}, + /* 107 */ {"Schichtd.A", "Schichtdicken-Advektion [m**3/(kg*s)]"}, + /* 108 */ {"AdGeVoThWi", "Advektion von geostr. Vorticity mit dem therm Wind [m/(kg*s)]"}, + /* 109 */ {"Wind-Div.", "Winddivergenz [1/s]"}, + /* 110 */ {"Q", "Q-vector direction and speed (dd*1000 + fff*1E13) [5*deg,1E13*m**2/kg/s]"}, + /* 111 */ {"Qx", "Q-Vektor X-Komponente [m**2/(kg*s)]"}, + /* 112 */ {"Qy", "Q-Vektor Y-Komponente [m**2/(kg*s)]"}, + /* 113 */ {"Div Q", "Divergenz Q [m/(kg*s)]"}, + /* 114 */ {"FrontoGeQn", "Frontogenesefunktion, Q isother-senkrecht-Kompon. [m**2/(kg*s)]"}, + /* 115 */ {"Qs (geo)", "Qs (geo),Komp. Q-Vektor parallel zu den Isothermen [m**2/(kg*s)]"}, + /* 116 */ {"DivQn(geo)", "Divergenz Qn geostrophisch [m/(kg*s)]"}, + /* 117 */ {"DivQs(geo)", "Divergenz Qs geostrophisch [m/(kg*s)]"}, + /* 118 */ {"Fronto Gen", "Frontogenesefunktion [K**2/(m**2*s)]"}, + /* 119 */ {"var119", "undefined"}, + /* 120 */ {"var120", "undefined"}, + /* 121 */ {"var121", "undefined"}, + /* 122 */ {"var122", "undefined"}, + /* 123 */ {"var123", "undefined"}, + /* 124 */ {"FrontoGenP", "Frontogenese-Parameter [1]"}, + /* 125 */ {"Qs-Vektor", "Qs, Komp. Q-Vektor parallel zu den Isothermen [m**2/(kg*s)]"}, + /* 126 */ {"var126", "undefined"}, + /* 127 */ {"Div Qs", "Divergenz Qs [m/(kg*s)]"}, + /* 128 */ {"var128", "undefined"}, + /* 129 */ {"var129", "undefined"}, + /* 130 */ {"IPV", "Isentrope potentielle Vorticity [K*m**2/(s*kg)]"}, + /* 131 */ {"Wind KompX", "Wind X-Komponente auf isentropen Flaechen [m/s]"}, + /* 132 */ {"Wind KompY", "Wind Y-Komponente auf isentropen Flaechen [m/s]"}, + /* 133 */ {"Druck-Ise.", "Druck einer isentropen Flaeche [hPa]"}, + /* 134 */ {"var134", "undefined"}, + /* 135 */ {"var135", "undefined"}, + /* 136 */ {"var136", "undefined"}, + /* 137 */ {"var137", "undefined"}, + /* 138 */ {"var138", "undefined"}, + /* 139 */ {"var139", "undefined"}, + /* 140 */ {"KO-Index", "KO-Index [K]"}, + /* 141 */ {"TT-Index", "Totals-Totals-Index [K]"}, + /* 142 */ {"S-Index", "S-Index [K]"}, + /* 143 */ {"Stein-Ind", "Steinbeck-Index [1]"}, + /* 144 */ {"Baily-Ind", "Baily-Index [1]"}, + /* 145 */ {"Microburst", "Microburst-Index [1]"}, + /* 146 */ {"Cat-Index", "Clear Air Turbulence Index [1/s]"}, + /* 147 */ {"var147", "undefined"}, + /* 148 */ {"Lab-Energ", "Labilit{tsenergie [J/g]"}, + /* 149 */ {"var149", "undefined"}, + /* 150 */ {"Virt T", "Virtuelle Temperatur [K]"}, + /* 151 */ {"Pseudo T", "Pseudo-Temperatur [K]"}, + /* 152 */ {"Pseudo Pot", "Pseudopotentielle Temperatur [K]"}, + /* 153 */ {"Aequi T", "Aequivalent-Temperatur [K]"}, + /* 154 */ {"Aequi Pot", "Aequivalentpotentielle Temperatur [K]"}, + /* 155 */ {"var155", "undefined"}, + /* 156 */ {"var156", "undefined"}, + /* 157 */ {"var157", "undefined"}, + /* 158 */ {"var158", "undefined"}, + /* 159 */ {"var159", "undefined"}, + /* 160 */ {"Bas St Wol", "Untergrenze strat. Bew|lkung [hft]"}, + /* 161 */ {"Bas St Wol", "Untergrenze strat. Bew|lkung [hPa]"}, + /* 162 */ {"Bas Cu Wol", "Untergrenze cumul. Bew|lkung [hft]"}, + /* 163 */ {"Bas Cu Wol", "Untergrenze cumul. Bew|lkung [hPa]"}, + /* 164 */ {"Top St Wol", "Obergrenze strat. Bew|lkung [hft]"}, + /* 165 */ {"Top St Wol", "Obergrenze strat. Bew|lkung [hPa]"}, + /* 166 */ {"Top Cu Wol", "Obergrenze cumul. Bew|lkung [hft]"}, + /* 167 */ {"Top Cu Wol", "Obergrenze cumul. Bew|lkung [hPa]"}, + /* 168 */ {"var168", "undefined"}, + /* 169 */ {"var169", "undefined"}, + /* 170 */ {"Bas Tur Wo", "Untergrenze Wolkenturbulenz [hft]"}, + /* 171 */ {"Bas Tur Wo", "Untergrenze Wolkenturbulenz [hPa]"}, + /* 172 */ {"Top Tur Wo", "Obergrenze Wolkenturbulenz [hft]"}, + /* 173 */ {"Top Tur Wo", "Obergrenze Wolkenturbulenz [hPa]"}, + /* 174 */ {"Bas Eis Wo", "Untergrenze Vereisung in Wolken [hft]"}, + /* 175 */ {"Bas Eis Wo", "Untergrenze Vereisung in Wolken [hPa]"}, + /* 176 */ {"Top Eis Wo", "Obergrenze Vereisung in Wolken [hft]"}, + /* 177 */ {"Top Eis Wo", "Obergrenze Vereisung in Wolken [hPa]"}, + /* 178 */ {"Int Tur Wo", "Intensitaet der Turbulenz in Wolken (0..4) [1]"}, + /* 179 */ {"Int Eis Wo", "Intensitaet der Vereisung (0..4) [1]"}, + /* 180 */ {"var180", "undefined"}, + /* 181 */ {"var181", "undefined"}, + /* 182 */ {"var182", "undefined"}, + /* 183 */ {"var183", "undefined"}, + /* 184 */ {"var184", "undefined"}, + /* 185 */ {"var185", "undefined"}, + /* 186 */ {"var186", "undefined"}, + /* 187 */ {"var187", "undefined"}, + /* 188 */ {"var188", "undefined"}, + /* 189 */ {"var189", "undefined"}, + /* 190 */ {"Sichtweite", "Sichtweite [m]"}, + /* 191 */ {"PIP_degree", "Prognostic Icing"}, + /* 192 */ {"PIP_scenar", "Prog Icing"}, + /* 193 */ {"DIP_degree", "Diagnostic Icing"}, + /* 194 */ {"DIP_scenar", "Diag Icing"}, + /* 195 */ {"IcingGuess", "Icing Regime 1.Guess(1=gen,2=conv,3=strat,4=freez) [1]"}, + /* 196 */ {"IcingGrade", "Icing Grade (1=LGT,2=MOD,3=SEV) [1]"}, + /* 197 */ {"IcingRegim", "Icing Regime(1=general,2=convect,3=strat,4=freez) [1]"}, + /* 198 */ {"var198", "undefined"}, + /* 199 */ {"var199", "undefined"}, + /* 200 */ {"Gru Wetter", "Wetter - Grundzustand (ww"}, + /* 201 */ {"Lok Wetter", "Wetter - 1. lokale Abweichung (ww"}, + /* 202 */ {"Lok Wetter", "Wetter - 2. lokale Abweichung (ww"}, + /* 203 */ {"CLDEPTH", "cloud depth (grey scale"}, + /* 204 */ {"CLCT_MOD", "modified total cloud cover (0..1) [1]"}, + /* 205 */ {"curr weath", "current weather (symbol number"}, + /* 206 */ {"var206", "undefined"}, + /* 207 */ {"var207", "undefined"}, + /* 208 */ {"var208", "undefined"}, + /* 209 */ {"var209", "undefined"}, + /* 210 */ {"var210", "undefined"}, + /* 211 */ {"Cu", "Cumulus (0..1) [1]"}, + /* 212 */ {"Cb", "Cumulimbus (0..1) [1]"}, + /* 213 */ {"Sc", "Stratocumulus (0..1) [1]"}, + /* 214 */ {"Ac", "Altocumulus (0..1) [1]"}, + /* 215 */ {"Ci", "Cirrus (0..1) [1]"}, + /* 216 */ {"St", "Stratus (0..1) [1]"}, + /* 217 */ {"As", "Altostratus (0..1) [1]"}, + /* 218 */ {"var218", "undefined"}, + /* 219 */ {"var219", "undefined"}, + /* 220 */ {"var220", "undefined"}, + /* 221 */ {"Bedeckung", "Bedeckung in Stufen [1]"}, + /* 222 */ {"Konvektion", "Konvektion ja/nein [1]"}, + /* 223 */ {"MN >90%", "Gesamtbedeckung > 90% ja/nein [1]"}, + /* 224 */ {"RF700 >89%", "relative Feuchte 700 hPa >= 90% ja/nein [1]"}, + /* 225 */ {"RR12 zentr", "Niederschlag 12 std. zentriert [mm]"}, + /* 226 */ {"RR12 <=0.5", "Niederschlag 12 std. zentriert, Werte <= 0.5mm [mm]"}, + /* 227 */ {"RR12 SA>60", "RR12 zentriert, Schneeanteil > 60% ja/nein [1]"}, + /* 228 */ {"RR12 Kv>60", "RR12 zentriert, konvektiver Anteil > 60% ja/nein [1]"}, + /* 229 */ {"SRR12ff", "Starkniederschlag in Stufen (12 std. Folgezeitr) [1]"}, + /* 230 */ {"RRMAX/STD", "Maximaler Starkniederschlag / std [mm/h]"}, + /* 231 */ {"RRMAX/MIN", "Maximaler Starkniederschlag / min [mm/min]"}, + /* 232 */ {"SN12ff >15", "Schneefall (12std. Folgezeitraum) > 15 mm ja/nein [1]"}, + /* 233 */ {"RRgefr12ff", "gefrierender Regen (12std. Folgezeitraum) ja/nein [1]"}, + /* 234 */ {"FFboe", "Boeenstaerke in Stufen [1]"}, + /* 235 */ {"Gewitter", "Gewitter in Stufen [1]"}, + /* 236 */ {"Tx2m12h ze", "2m Maximumtemperatur 12h zentriert [Grad Celsius]"}, + /* 237 */ {"Tn2m12h ze", "2m Minimumtemperatur 12h zentriert [Grad Celsius]"}, + /* 238 */ {"var238", "undefined"}, + /* 239 */ {"var239", "undefined"}, + /* 240 */ {"var240", "undefined"}, + /* 241 */ {"var241", "undefined"}, + /* 242 */ {"var242", "undefined"}, + /* 243 */ {"var243", "undefined"}, + /* 244 */ {"var244", "undefined"}, + /* 245 */ {"var245", "undefined"}, + /* 246 */ {"var246", "undefined"}, + /* 247 */ {"var247", "undefined"}, + /* 248 */ {"var248", "undefined"}, + /* 249 */ {"var249", "undefined"}, + /* 250 */ {"var250", "undefined"}, + /* 251 */ {"SCHWUELIND", "Schwuele-Index [1]"}, + /* 252 */ {"SMOGSTUFEN", "Smog-Intensitaetsstufen [1]"}, + /* 253 */ {"var253", "undefined"}, + /* 254 */ {"SMOGHOEHE", "Obergrenze Smog ( Inversionshoehe ) [m]"}, + /* 255 */ {"var255", "undefined"}, +}; + +/* + * GRIB table 204 at DWD + * Helmut P. Frank, 27.10.2004 + */ + +const struct ParmTable parm_table_dwd_204[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"p RMS fg-a", "pressure RMS-error first guess - analysis [Pa]"}, + /* 2 */ {"p RMS ia-a", "pressure RMS-error initialised analysis - analysis [Pa]"}, + /* 3 */ {"u RMS fg-a", "u RMS-error first guess - analysis [m/s]"}, + /* 4 */ {"u RMS ia-a", "u RMS-error initialised analysis - analysis [m/s]"}, + /* 5 */ {"v RMS fg-a", "v RMS-error first guess - analysis [m/s]"}, + /* 6 */ {"v RMS ia-a", "v RMS-error initialised analysis - analysis [m/s]"}, + /* 7 */ {"fi E fg-a", "geopotential RMS-error first guess - analysis [(m**2)/(s**2)]"}, + /* 8 */ {"fi E ia-a", "geopotential RMS-error init. analysis - analysis [(m**2)/(s**2)]"}, + /* 9 */ {"rh E fg-a", "relative humidity RMS-error first guess - analysis [1]"}, + /* 10 */ {"rh E ia-a", "rel. hum. RMS-error init. analysis - analysis [1]"}, + /* 11 */ {"t RMS fg-a", "temperature RMS-error first guess - analysis [K]"}, + /* 12 */ {"t RMS ia-a", "temperature RMS-error init. analysis - analysis [K]"}, + /* 13 */ {"om E fg-a", "omega RMS-error first guess - analysis [m/s]"}, + /* 14 */ {"om E ia-a", "omega RMS-error initialised analysis - analysis [m/s]"}, + /* 15 */ {"E fg-a KE", "kinetic energy RMS-error first guess - analysis [(m**2)/(s**2)]"}, + /* 16 */ {"E ig-a KE", "kinetic energy RMS-error init. analysis [(m**2)/(s**2)]"}, + /* 17 */ {"var17", "undefined"}, + /* 18 */ {"var18", "undefined"}, + /* 19 */ {"var19", "undefined"}, + /* 20 */ {"var20", "undefined"}, + /* 21 */ {"var21", "undefined"}, + /* 22 */ {"var22", "undefined"}, + /* 23 */ {"var23", "undefined"}, + /* 24 */ {"var24", "undefined"}, + /* 25 */ {"var25", "undefined"}, + /* 26 */ {"var26", "undefined"}, + /* 27 */ {"var27", "undefined"}, + /* 28 */ {"var28", "undefined"}, + /* 29 */ {"var29", "undefined"}, + /* 30 */ {"var30", "undefined"}, + /* 31 */ {"var31", "undefined"}, + /* 32 */ {"var32", "undefined"}, + /* 33 */ {"var33", "undefined"}, + /* 34 */ {"var34", "undefined"}, + /* 35 */ {"var35", "undefined"}, + /* 36 */ {"var36", "undefined"}, + /* 37 */ {"var37", "undefined"}, + /* 38 */ {"var38", "undefined"}, + /* 39 */ {"var39", "undefined"}, + /* 40 */ {"var40", "undefined"}, + /* 41 */ {"var41", "undefined"}, + /* 42 */ {"var42", "undefined"}, + /* 43 */ {"var43", "undefined"}, + /* 44 */ {"var44", "undefined"}, + /* 45 */ {"var45", "undefined"}, + /* 46 */ {"var46", "undefined"}, + /* 47 */ {"var47", "undefined"}, + /* 48 */ {"var48", "undefined"}, + /* 49 */ {"var49", "undefined"}, + /* 50 */ {"var50", "undefined"}, + /* 51 */ {"var51", "undefined"}, + /* 52 */ {"var52", "undefined"}, + /* 53 */ {"var53", "undefined"}, + /* 54 */ {"var54", "undefined"}, + /* 55 */ {"var55", "undefined"}, + /* 56 */ {"var56", "undefined"}, + /* 57 */ {"var57", "undefined"}, + /* 58 */ {"var58", "undefined"}, + /* 59 */ {"var59", "undefined"}, + /* 60 */ {"var60", "undefined"}, + /* 61 */ {"var61", "undefined"}, + /* 62 */ {"var62", "undefined"}, + /* 63 */ {"var63", "undefined"}, + /* 64 */ {"var64", "undefined"}, + /* 65 */ {"var65", "undefined"}, + /* 66 */ {"var66", "undefined"}, + /* 67 */ {"var67", "undefined"}, + /* 68 */ {"var68", "undefined"}, + /* 69 */ {"var69", "undefined"}, + /* 70 */ {"var70", "undefined"}, + /* 71 */ {"var71", "undefined"}, + /* 72 */ {"var72", "undefined"}, + /* 73 */ {"var73", "undefined"}, + /* 74 */ {"var74", "undefined"}, + /* 75 */ {"var75", "undefined"}, + /* 76 */ {"var76", "undefined"}, + /* 77 */ {"var77", "undefined"}, + /* 78 */ {"var78", "undefined"}, + /* 79 */ {"var79", "undefined"}, + /* 80 */ {"var80", "undefined"}, + /* 81 */ {"var81", "undefined"}, + /* 82 */ {"var82", "undefined"}, + /* 83 */ {"var83", "undefined"}, + /* 84 */ {"var84", "undefined"}, + /* 85 */ {"var85", "undefined"}, + /* 86 */ {"var86", "undefined"}, + /* 87 */ {"var87", "undefined"}, + /* 88 */ {"var88", "undefined"}, + /* 89 */ {"var89", "undefined"}, + /* 90 */ {"var90", "undefined"}, + /* 91 */ {"var91", "undefined"}, + /* 92 */ {"var92", "undefined"}, + /* 93 */ {"var93", "undefined"}, + /* 94 */ {"var94", "undefined"}, + /* 95 */ {"var95", "undefined"}, + /* 96 */ {"var96", "undefined"}, + /* 97 */ {"var97", "undefined"}, + /* 98 */ {"var98", "undefined"}, + /* 99 */ {"var99", "undefined"}, + /* 100 */ {"var100", "undefined"}, + /* 101 */ {"var101", "undefined"}, + /* 102 */ {"var102", "undefined"}, + /* 103 */ {"var103", "undefined"}, + /* 104 */ {"var104", "undefined"}, + /* 105 */ {"var105", "undefined"}, + /* 106 */ {"var106", "undefined"}, + /* 107 */ {"var107", "undefined"}, + /* 108 */ {"var108", "undefined"}, + /* 109 */ {"var109", "undefined"}, + /* 110 */ {"var110", "undefined"}, + /* 111 */ {"var111", "undefined"}, + /* 112 */ {"var112", "undefined"}, + /* 113 */ {"var113", "undefined"}, + /* 114 */ {"var114", "undefined"}, + /* 115 */ {"var115", "undefined"}, + /* 116 */ {"var116", "undefined"}, + /* 117 */ {"var117", "undefined"}, + /* 118 */ {"var118", "undefined"}, + /* 119 */ {"var119", "undefined"}, + /* 120 */ {"var120", "undefined"}, + /* 121 */ {"var121", "undefined"}, + /* 122 */ {"var122", "undefined"}, + /* 123 */ {"var123", "undefined"}, + /* 124 */ {"var124", "undefined"}, + /* 125 */ {"var125", "undefined"}, + /* 126 */ {"var126", "undefined"}, + /* 127 */ {"var127", "undefined"}, + /* 128 */ {"var128", "undefined"}, + /* 129 */ {"var129", "undefined"}, + /* 130 */ {"var130", "undefined"}, + /* 131 */ {"RR20", "probability of total precipitation > 20mm [1]"}, + /* 132 */ {"RR50", "probability of total precipitation > 50mm [1]"}, + /* 133 */ {"RR100", "probability of total precipitation > 100mm [1]"}, + /* 134 */ {"var134", "undefined"}, + /* 135 */ {"var135", "undefined"}, + /* 136 */ {"var136", "undefined"}, + /* 137 */ {"var137", "undefined"}, + /* 138 */ {"var138", "undefined"}, + /* 139 */ {"var139", "undefined"}, + /* 140 */ {"var140", "undefined"}, + /* 141 */ {"FF10", "probability of maximum wind speed > 10m/s [1]"}, + /* 142 */ {"FF15", "probability of maximum wind speed > 15m/s [1]"}, + /* 143 */ {"FF20", "probability of maximum wind speed > 20m/s [1]"}, + /* 144 */ {"var144", "undefined"}, + /* 145 */ {"var145", "undefined"}, + /* 146 */ {"var146", "undefined"}, + /* 147 */ {"var147", "undefined"}, + /* 148 */ {"var148", "undefined"}, + /* 149 */ {"var149", "undefined"}, + /* 150 */ {"var150", "undefined"}, + /* 151 */ {"var151", "undefined"}, + /* 152 */ {"var152", "undefined"}, + /* 153 */ {"var153", "undefined"}, + /* 154 */ {"var154", "undefined"}, + /* 155 */ {"var155", "undefined"}, + /* 156 */ {"var156", "undefined"}, + /* 157 */ {"var157", "undefined"}, + /* 158 */ {"var158", "undefined"}, + /* 159 */ {"var159", "undefined"}, + /* 160 */ {"var160", "undefined"}, + /* 161 */ {"var161", "undefined"}, + /* 162 */ {"var162", "undefined"}, + /* 163 */ {"var163", "undefined"}, + /* 164 */ {"var164", "undefined"}, + /* 165 */ {"var165", "undefined"}, + /* 166 */ {"var166", "undefined"}, + /* 167 */ {"var167", "undefined"}, + /* 168 */ {"var168", "undefined"}, + /* 169 */ {"var169", "undefined"}, + /* 170 */ {"var170", "undefined"}, + /* 171 */ {"var171", "undefined"}, + /* 172 */ {"var172", "undefined"}, + /* 173 */ {"var173", "undefined"}, + /* 174 */ {"var174", "undefined"}, + /* 175 */ {"var175", "undefined"}, + /* 176 */ {"var176", "undefined"}, + /* 177 */ {"var177", "undefined"}, + /* 178 */ {"var178", "undefined"}, + /* 179 */ {"var179", "undefined"}, + /* 180 */ {"var180", "undefined"}, + /* 181 */ {"var181", "undefined"}, + /* 182 */ {"var182", "undefined"}, + /* 183 */ {"var183", "undefined"}, + /* 184 */ {"var184", "undefined"}, + /* 185 */ {"var185", "undefined"}, + /* 186 */ {"var186", "undefined"}, + /* 187 */ {"var187", "undefined"}, + /* 188 */ {"var188", "undefined"}, + /* 189 */ {"var189", "undefined"}, + /* 190 */ {"var190", "undefined"}, + /* 191 */ {"var191", "undefined"}, + /* 192 */ {"var192", "undefined"}, + /* 193 */ {"var193", "undefined"}, + /* 194 */ {"var194", "undefined"}, + /* 195 */ {"var195", "undefined"}, + /* 196 */ {"var196", "undefined"}, + /* 197 */ {"var197", "undefined"}, + /* 198 */ {"var198", "undefined"}, + /* 199 */ {"var199", "undefined"}, + /* 200 */ {"var200", "undefined"}, + /* 201 */ {"var201", "undefined"}, + /* 202 */ {"var202", "undefined"}, + /* 203 */ {"var203", "undefined"}, + /* 204 */ {"var204", "undefined"}, + /* 205 */ {"var205", "undefined"}, + /* 206 */ {"var206", "undefined"}, + /* 207 */ {"var207", "undefined"}, + /* 208 */ {"var208", "undefined"}, + /* 209 */ {"var209", "undefined"}, + /* 210 */ {"var210", "undefined"}, + /* 211 */ {"var211", "undefined"}, + /* 212 */ {"var212", "undefined"}, + /* 213 */ {"var213", "undefined"}, + /* 214 */ {"var214", "undefined"}, + /* 215 */ {"var215", "undefined"}, + /* 216 */ {"var216", "undefined"}, + /* 217 */ {"var217", "undefined"}, + /* 218 */ {"var218", "undefined"}, + /* 219 */ {"var219", "undefined"}, + /* 220 */ {"var220", "undefined"}, + /* 221 */ {"var221", "undefined"}, + /* 222 */ {"var222", "undefined"}, + /* 223 */ {"var223", "undefined"}, + /* 224 */ {"var224", "undefined"}, + /* 225 */ {"var225", "undefined"}, + /* 226 */ {"var226", "undefined"}, + /* 227 */ {"var227", "undefined"}, + /* 228 */ {"var228", "undefined"}, + /* 229 */ {"var229", "undefined"}, + /* 230 */ {"var230", "undefined"}, + /* 231 */ {"var231", "undefined"}, + /* 232 */ {"var232", "undefined"}, + /* 233 */ {"var233", "undefined"}, + /* 234 */ {"var234", "undefined"}, + /* 235 */ {"var235", "undefined"}, + /* 236 */ {"var236", "undefined"}, + /* 237 */ {"var237", "undefined"}, + /* 238 */ {"var238", "undefined"}, + /* 239 */ {"var239", "undefined"}, + /* 240 */ {"var240", "undefined"}, + /* 241 */ {"var241", "undefined"}, + /* 242 */ {"var242", "undefined"}, + /* 243 */ {"var243", "undefined"}, + /* 244 */ {"var244", "undefined"}, + /* 245 */ {"var245", "undefined"}, + /* 246 */ {"var246", "undefined"}, + /* 247 */ {"var247", "undefined"}, + /* 248 */ {"var248", "undefined"}, + /* 249 */ {"var249", "undefined"}, + /* 250 */ {"var250", "undefined"}, + /* 251 */ {"var251", "undefined"}, + /* 252 */ {"var252", "undefined"}, + /* 253 */ {"var253", "undefined"}, + /* 254 */ {"var254", "undefined"}, + /* 255 */ {"var255", "undefined"}, +}; + +/* + * GRIB table 205 at DWD + * Helmut P. Frank, 27.10.2004 + * updated 19.10.2005 + */ + +const struct ParmTable parm_table_dwd_205[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"SYNME5", "METEOSAT-5 mit Instrument MVIRI [1]"}, + /* 2 */ {"SYNME6", "METEOSAT-6 mit Instrument MVIRI [1]"}, + /* 3 */ {"SYNME7", "METEOSAT-7 mit Instrument MVIRI [1]"}, + /* 4 */ {"SYNMSG", "MSG mit Instrument SEVIRI [1]"}, + /* 5 */ {"var5", "undefined"}, + /* 6 */ {"var6", "undefined"}, + /* 7 */ {"var7", "undefined"}, + /* 8 */ {"var8", "undefined"}, + /* 9 */ {"var9", "undefined"}, + /* 10 */ {"var10", "undefined"}, + /* 11 */ {"var11", "undefined"}, + /* 12 */ {"var12", "undefined"}, + /* 13 */ {"var13", "undefined"}, + /* 14 */ {"var14", "undefined"}, + /* 15 */ {"var15", "undefined"}, + /* 16 */ {"var16", "undefined"}, + /* 17 */ {"var17", "undefined"}, + /* 18 */ {"var18", "undefined"}, + /* 19 */ {"var19", "undefined"}, + /* 20 */ {"var20", "undefined"}, + /* 21 */ {"var21", "undefined"}, + /* 22 */ {"var22", "undefined"}, + /* 23 */ {"var23", "undefined"}, + /* 24 */ {"var24", "undefined"}, + /* 25 */ {"var25", "undefined"}, + /* 26 */ {"var26", "undefined"}, + /* 27 */ {"var27", "undefined"}, + /* 28 */ {"var28", "undefined"}, + /* 29 */ {"var29", "undefined"}, + /* 30 */ {"var30", "undefined"}, + /* 31 */ {"var31", "undefined"}, + /* 32 */ {"var32", "undefined"}, + /* 33 */ {"var33", "undefined"}, + /* 34 */ {"var34", "undefined"}, + /* 35 */ {"var35", "undefined"}, + /* 36 */ {"var36", "undefined"}, + /* 37 */ {"var37", "undefined"}, + /* 38 */ {"var38", "undefined"}, + /* 39 */ {"var39", "undefined"}, + /* 40 */ {"var40", "undefined"}, + /* 41 */ {"var41", "undefined"}, + /* 42 */ {"var42", "undefined"}, + /* 43 */ {"var43", "undefined"}, + /* 44 */ {"var44", "undefined"}, + /* 45 */ {"var45", "undefined"}, + /* 46 */ {"var46", "undefined"}, + /* 47 */ {"var47", "undefined"}, + /* 48 */ {"var48", "undefined"}, + /* 49 */ {"var49", "undefined"}, + /* 50 */ {"var50", "undefined"}, + /* 51 */ {"var51", "undefined"}, + /* 52 */ {"var52", "undefined"}, + /* 53 */ {"var53", "undefined"}, + /* 54 */ {"var54", "undefined"}, + /* 55 */ {"var55", "undefined"}, + /* 56 */ {"var56", "undefined"}, + /* 57 */ {"var57", "undefined"}, + /* 58 */ {"var58", "undefined"}, + /* 59 */ {"var59", "undefined"}, + /* 60 */ {"var60", "undefined"}, + /* 61 */ {"var61", "undefined"}, + /* 62 */ {"var62", "undefined"}, + /* 63 */ {"var63", "undefined"}, + /* 64 */ {"var64", "undefined"}, + /* 65 */ {"var65", "undefined"}, + /* 66 */ {"var66", "undefined"}, + /* 67 */ {"var67", "undefined"}, + /* 68 */ {"var68", "undefined"}, + /* 69 */ {"var69", "undefined"}, + /* 70 */ {"var70", "undefined"}, + /* 71 */ {"var71", "undefined"}, + /* 72 */ {"var72", "undefined"}, + /* 73 */ {"var73", "undefined"}, + /* 74 */ {"var74", "undefined"}, + /* 75 */ {"var75", "undefined"}, + /* 76 */ {"var76", "undefined"}, + /* 77 */ {"var77", "undefined"}, + /* 78 */ {"var78", "undefined"}, + /* 79 */ {"var79", "undefined"}, + /* 80 */ {"var80", "undefined"}, + /* 81 */ {"var81", "undefined"}, + /* 82 */ {"var82", "undefined"}, + /* 83 */ {"var83", "undefined"}, + /* 84 */ {"var84", "undefined"}, + /* 85 */ {"var85", "undefined"}, + /* 86 */ {"var86", "undefined"}, + /* 87 */ {"var87", "undefined"}, + /* 88 */ {"var88", "undefined"}, + /* 89 */ {"var89", "undefined"}, + /* 90 */ {"var90", "undefined"}, + /* 91 */ {"var91", "undefined"}, + /* 92 */ {"var92", "undefined"}, + /* 93 */ {"var93", "undefined"}, + /* 94 */ {"var94", "undefined"}, + /* 95 */ {"var95", "undefined"}, + /* 96 */ {"var96", "undefined"}, + /* 97 */ {"var97", "undefined"}, + /* 98 */ {"var98", "undefined"}, + /* 99 */ {"var99", "undefined"}, + /* 100 */ {"var100", "undefined"}, + /* 101 */ {"var101", "undefined"}, + /* 102 */ {"var102", "undefined"}, + /* 103 */ {"var103", "undefined"}, + /* 104 */ {"var104", "undefined"}, + /* 105 */ {"var105", "undefined"}, + /* 106 */ {"var106", "undefined"}, + /* 107 */ {"var107", "undefined"}, + /* 108 */ {"var108", "undefined"}, + /* 109 */ {"var109", "undefined"}, + /* 110 */ {"var110", "undefined"}, + /* 111 */ {"var111", "undefined"}, + /* 112 */ {"var112", "undefined"}, + /* 113 */ {"var113", "undefined"}, + /* 114 */ {"var114", "undefined"}, + /* 115 */ {"var115", "undefined"}, + /* 116 */ {"var116", "undefined"}, + /* 117 */ {"var117", "undefined"}, + /* 118 */ {"var118", "undefined"}, + /* 119 */ {"var119", "undefined"}, + /* 120 */ {"var120", "undefined"}, + /* 121 */ {"var121", "undefined"}, + /* 122 */ {"var122", "undefined"}, + /* 123 */ {"var123", "undefined"}, + /* 124 */ {"var124", "undefined"}, + /* 125 */ {"var125", "undefined"}, + /* 126 */ {"var126", "undefined"}, + /* 127 */ {"var127", "undefined"}, + /* 128 */ {"var128", "undefined"}, + /* 129 */ {"var129", "undefined"}, + /* 130 */ {"var130", "undefined"}, + /* 131 */ {"var131", "undefined"}, + /* 132 */ {"var132", "undefined"}, + /* 133 */ {"var133", "undefined"}, + /* 134 */ {"var134", "undefined"}, + /* 135 */ {"var135", "undefined"}, + /* 136 */ {"var136", "undefined"}, + /* 137 */ {"var137", "undefined"}, + /* 138 */ {"var138", "undefined"}, + /* 139 */ {"var139", "undefined"}, + /* 140 */ {"var140", "undefined"}, + /* 141 */ {"var141", "undefined"}, + /* 142 */ {"var142", "undefined"}, + /* 143 */ {"var143", "undefined"}, + /* 144 */ {"var144", "undefined"}, + /* 145 */ {"var145", "undefined"}, + /* 146 */ {"var146", "undefined"}, + /* 147 */ {"var147", "undefined"}, + /* 148 */ {"var148", "undefined"}, + /* 149 */ {"var149", "undefined"}, + /* 150 */ {"var150", "undefined"}, + /* 151 */ {"var151", "undefined"}, + /* 152 */ {"var152", "undefined"}, + /* 153 */ {"var153", "undefined"}, + /* 154 */ {"var154", "undefined"}, + /* 155 */ {"var155", "undefined"}, + /* 156 */ {"var156", "undefined"}, + /* 157 */ {"var157", "undefined"}, + /* 158 */ {"var158", "undefined"}, + /* 159 */ {"var159", "undefined"}, + /* 160 */ {"var160", "undefined"}, + /* 161 */ {"var161", "undefined"}, + /* 162 */ {"var162", "undefined"}, + /* 163 */ {"var163", "undefined"}, + /* 164 */ {"var164", "undefined"}, + /* 165 */ {"var165", "undefined"}, + /* 166 */ {"var166", "undefined"}, + /* 167 */ {"var167", "undefined"}, + /* 168 */ {"var168", "undefined"}, + /* 169 */ {"var169", "undefined"}, + /* 170 */ {"var170", "undefined"}, + /* 171 */ {"var171", "undefined"}, + /* 172 */ {"var172", "undefined"}, + /* 173 */ {"var173", "undefined"}, + /* 174 */ {"var174", "undefined"}, + /* 175 */ {"var175", "undefined"}, + /* 176 */ {"var176", "undefined"}, + /* 177 */ {"var177", "undefined"}, + /* 178 */ {"var178", "undefined"}, + /* 179 */ {"var179", "undefined"}, + /* 180 */ {"var180", "undefined"}, + /* 181 */ {"var181", "undefined"}, + /* 182 */ {"var182", "undefined"}, + /* 183 */ {"var183", "undefined"}, + /* 184 */ {"var184", "undefined"}, + /* 185 */ {"var185", "undefined"}, + /* 186 */ {"var186", "undefined"}, + /* 187 */ {"var187", "undefined"}, + /* 188 */ {"var188", "undefined"}, + /* 189 */ {"var189", "undefined"}, + /* 190 */ {"var190", "undefined"}, + /* 191 */ {"var191", "undefined"}, + /* 192 */ {"var192", "undefined"}, + /* 193 */ {"var193", "undefined"}, + /* 194 */ {"var194", "undefined"}, + /* 195 */ {"var195", "undefined"}, + /* 196 */ {"var196", "undefined"}, + /* 197 */ {"var197", "undefined"}, + /* 198 */ {"var198", "undefined"}, + /* 199 */ {"var199", "undefined"}, + /* 200 */ {"var200", "undefined"}, + /* 201 */ {"var201", "undefined"}, + /* 202 */ {"var202", "undefined"}, + /* 203 */ {"var203", "undefined"}, + /* 204 */ {"var204", "undefined"}, + /* 205 */ {"var205", "undefined"}, + /* 206 */ {"var206", "undefined"}, + /* 207 */ {"var207", "undefined"}, + /* 208 */ {"var208", "undefined"}, + /* 209 */ {"var209", "undefined"}, + /* 210 */ {"var210", "undefined"}, + /* 211 */ {"var211", "undefined"}, + /* 212 */ {"var212", "undefined"}, + /* 213 */ {"var213", "undefined"}, + /* 214 */ {"var214", "undefined"}, + /* 215 */ {"var215", "undefined"}, + /* 216 */ {"var216", "undefined"}, + /* 217 */ {"var217", "undefined"}, + /* 218 */ {"var218", "undefined"}, + /* 219 */ {"var219", "undefined"}, + /* 220 */ {"var220", "undefined"}, + /* 221 */ {"var221", "undefined"}, + /* 222 */ {"var222", "undefined"}, + /* 223 */ {"var223", "undefined"}, + /* 224 */ {"var224", "undefined"}, + /* 225 */ {"var225", "undefined"}, + /* 226 */ {"var226", "undefined"}, + /* 227 */ {"var227", "undefined"}, + /* 228 */ {"var228", "undefined"}, + /* 229 */ {"var229", "undefined"}, + /* 230 */ {"var230", "undefined"}, + /* 231 */ {"var231", "undefined"}, + /* 232 */ {"var232", "undefined"}, + /* 233 */ {"var233", "undefined"}, + /* 234 */ {"var234", "undefined"}, + /* 235 */ {"var235", "undefined"}, + /* 236 */ {"var236", "undefined"}, + /* 237 */ {"var237", "undefined"}, + /* 238 */ {"var238", "undefined"}, + /* 239 */ {"var239", "undefined"}, + /* 240 */ {"var240", "undefined"}, + /* 241 */ {"var241", "undefined"}, + /* 242 */ {"var242", "undefined"}, + /* 243 */ {"var243", "undefined"}, + /* 244 */ {"var244", "undefined"}, + /* 245 */ {"var245", "undefined"}, + /* 246 */ {"var246", "undefined"}, + /* 247 */ {"var247", "undefined"}, + /* 248 */ {"var248", "undefined"}, + /* 249 */ {"var249", "undefined"}, + /* 250 */ {"var250", "undefined"}, + /* 251 */ {"var251", "undefined"}, + /* 252 */ {"var252", "undefined"}, + /* 253 */ {"var253", "undefined"}, + /* 254 */ {"var254", "undefined"}, + /* 255 */ {"var255", "undefined"}, +}; + +const struct ParmTable parm_table_cptec_254[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"PRES", "Pressure [hPa]"}, + /* 2 */ {"psnm", "Pressure reduced to MSL [hPa]"}, + /* 3 */ {"tsps", "Pressure tendency [Pa/s]"}, + /* 4 */ {"var4", "undefined"}, + /* 5 */ {"var5", "undefined"}, + /* 6 */ {"geop", "Geopotential [dam]"}, + /* 7 */ {"zgeo", "Geopotential height [gpm]"}, + /* 8 */ {"gzge", "Geometric height [m]"}, + /* 9 */ {"var9", "undefined"}, + /* 10 */ {"var10", "undefined"}, + /* 11 */ {"temp", "ABSOLUTE TEMPERATURE [K]"}, + /* 12 */ {"vtmp", "VIRTUAL TEMPERATURE [K]"}, + /* 13 */ {"ptmp", "POTENTIAL TEMPERATURE [K]"}, + /* 14 */ {"psat", "PSEUDO-ADIABATIC POTENTIAL TEMPERATURE [K]"}, + /* 15 */ {"mxtp", "MAXIMUM TEMPERATURE [K]"}, + /* 16 */ {"mntp", "MINIMUM TEMPERATURE [K]"}, + /* 17 */ {"tpor", "DEW POINT TEMPERATURE [K]"}, + /* 18 */ {"dptd", "DEW POINT DEPRESSION [K]"}, + /* 19 */ {"lpsr", "LAPSE RATE [K/m]"}, + /* 20 */ {"var20", "undefined"}, + /* 21 */ {"rds1", "RADAR SPECTRA(1) [non-dim]"}, + /* 22 */ {"rds2", "RADAR SPECTRA(2) [non-dim]"}, + /* 23 */ {"rds3", "RADAR SPECTRA(3) [non-dim]"}, + /* 24 */ {"var24", "undefined"}, + /* 25 */ {"tpan", "TEMPERATURE ANOMALY [K]"}, + /* 26 */ {"psan", "PRESSURE ANOMALY [Pa hPa]"}, + /* 27 */ {"zgan", "GEOPOT HEIGHT ANOMALY [m]"}, + /* 28 */ {"wvs1", "WAVE SPECTRA(1) [non-dim]"}, + /* 29 */ {"wvs2", "WAVE SPECTRA(2) [non-dim]"}, + /* 30 */ {"wvs3", "WAVE SPECTRA(3) [non-dim]"}, + /* 31 */ {"wind", "WIND DIRECTION [deg]"}, + /* 32 */ {"wins", "WIND SPEED [m/s]"}, + /* 33 */ {"uvel", "ZONAL WIND (U) [m/s]"}, + /* 34 */ {"vvel", "MERIDIONAL WIND (V) [m/s]"}, + /* 35 */ {"fcor", "STREAM FUNCTION [m2/s]"}, + /* 36 */ {"potv", "VELOCITY POTENTIAL [m2/s]"}, + /* 37 */ {"var37", "undefined"}, + /* 38 */ {"sgvv", "SIGMA COORD VERT VEL [sec/sec]"}, + /* 39 */ {"omeg", "OMEGA [Pa/s]"}, + /* 40 */ {"omg2", "VERTICAL VELOCITY [m/s]"}, + /* 41 */ {"abvo", "ABSOLUTE VORTICITY [10**5/sec]"}, + /* 42 */ {"abdv", "ABSOLUTE DIVERGENCE [10**5/sec]"}, + /* 43 */ {"vort", "VORTICITY [1/s]"}, + /* 44 */ {"divg", "DIVERGENCE [1/s]"}, + /* 45 */ {"vucs", "VERTICAL U-COMP SHEAR [1/sec]"}, + /* 46 */ {"vvcs", "VERT V-COMP SHEAR [1/sec]"}, + /* 47 */ {"dirc", "DIRECTION OF CURRENT [deg]"}, + /* 48 */ {"spdc", "SPEED OF CURRENT [m/s]"}, + /* 49 */ {"ucpc", "U-COMPONENT OF CURRENT [m/s]"}, + /* 50 */ {"vcpc", "V-COMPONENT OF CURRENT [m/s]"}, + /* 51 */ {"umes", "SPECIFIC HUMIDITY [kg/kg]"}, + /* 52 */ {"umrl", "RELATIVE HUMIDITY [no Dim]"}, + /* 53 */ {"hmxr", "HUMIDITY MIXING RATIO [kg/kg]"}, + /* 54 */ {"agpl", "INST. PRECIPITABLE WATER [Kg/m2]"}, + /* 55 */ {"vapp", "VAPOUR PRESSURE [Pa hpa]"}, + /* 56 */ {"sadf", "SATURATION DEFICIT [Pa hPa]"}, + /* 57 */ {"evap", "EVAPORATION [Kg/m2/day]"}, + /* 58 */ {"var58", "undefined"}, + /* 59 */ {"prcr", "PRECIPITATION RATE [kg/m2/day]"}, + /* 60 */ {"thpb", "THUNDER PROBABILITY [%]"}, + /* 61 */ {"prec", "TOTAL PRECIPITATION [Kg/m2/day]"}, + /* 62 */ {"prge", "LARGE SCALE PRECIPITATION [Kg/m2/day]"}, + /* 63 */ {"prcv", "CONVECTIVE PRECIPITATION [Kg/m2/day]"}, + /* 64 */ {"neve", "SNOWFALL [Kg/m2/day]"}, + /* 65 */ {"wenv", "WAT EQUIV ACC SNOW DEPTH [kg/m2]"}, + /* 66 */ {"nvde", "SNOW DEPTH [cm]"}, + /* 67 */ {"mxld", "MIXED LAYER DEPTH [m cm]"}, + /* 68 */ {"tthd", "TRANS THERMOCLINE DEPTH [m cm]"}, + /* 69 */ {"mthd", "MAIN THERMOCLINE DEPTH [m cm]"}, + /* 70 */ {"mtha", "MAIN THERMOCLINE ANOM [m cm]"}, + /* 71 */ {"cbnv", "CLOUD COVER [0-1]"}, + /* 72 */ {"cvnv", "CONVECTIVE CLOUD COVER [0-1]"}, + /* 73 */ {"lwnv", "LOW CLOUD COVER [0-1]"}, + /* 74 */ {"mdnv", "MEDIUM CLOUD COVER [0-1]"}, + /* 75 */ {"hinv", "HIGH CLOUD COVER [0-1]"}, + /* 76 */ {"wtnv", "CLOUD WATER [kg/m2]"}, + /* 77 */ {"bli", "BEST LIFTED INDEX (TO 500 HPA) [K]"}, + /* 78 */ {"var78", "undefined"}, + /* 79 */ {"var79", "undefined"}, + /* 80 */ {"var80", "undefined"}, + /* 81 */ {"lsmk", "LAND SEA MASK [0,1]"}, + /* 82 */ {"dslm", "DEV SEA_LEV FROM MEAN [m]"}, + /* 83 */ {"zorl", "ROUGHNESS LENGTH [m]"}, + /* 84 */ {"albe", "ALBEDO [%]"}, + /* 85 */ {"dstp", "DEEP SOIL TEMPERATURE [K]"}, + /* 86 */ {"soic", "SOIL MOISTURE CONTENT [Kg/m2]"}, + /* 87 */ {"vege", "VEGETATION [%]"}, + /* 88 */ {"var88", "undefined"}, + /* 89 */ {"dens", "DENSITY [kg/m3]"}, + /* 90 */ {"var90", "Undefined"}, + /* 91 */ {"icec", "ICE CONCENTRATION [fraction]"}, + /* 92 */ {"icet", "ICE THICKNESS [m]"}, + /* 93 */ {"iced", "DIRECTION OF ICE DRIFT [deg]"}, + /* 94 */ {"ices", "SPEED OF ICE DRIFT [m/s]"}, + /* 95 */ {"iceu", "U-COMP OF ICE DRIFT [m/s]"}, + /* 96 */ {"icev", "V-COMP OF ICE DRIFT [m/s]"}, + /* 97 */ {"iceg", "ICE GROWTH [m]"}, + /* 98 */ {"icdv", "ICE DIVERGENCE [sec/sec]"}, + /* 99 */ {"var99", "undefined"}, + /* 100 */ {"shcw", "SIG HGT COM WAVE/SWELL [m]"}, + /* 101 */ {"wwdi", "DIRECTION OF WIND WAVE [deg]"}, + /* 102 */ {"wwsh", "SIG HGHT OF WIND WAVES [m]"}, + /* 103 */ {"wwmp", "MEAN PERIOD WIND WAVES [sec]"}, + /* 104 */ {"swdi", "DIRECTION OF SWELL WAVE [deg]"}, + /* 105 */ {"swsh", "SIG HEIGHT SWELL WAVES [m]"}, + /* 106 */ {"swmp", "MEAN PERIOD SWELL WAVES [sec]"}, + /* 107 */ {"prwd", "PRIMARY WAVE DIRECTION [deg]"}, + /* 108 */ {"prmp", "PRIM WAVE MEAN PERIOD [s]"}, + /* 109 */ {"swdi", "SECOND WAVE DIRECTION [deg]"}, + /* 110 */ {"swmp", "SECOND WAVE MEAN PERIOD [s]"}, + /* 111 */ {"ocas", "SHORT WAVE ABSORBED AT GROUND [W/m2]"}, + /* 112 */ {"slds", "NET LONG WAVE AT BOTTOM [W/m2]"}, + /* 113 */ {"nswr", "NET SHORT-WAV RAD(TOP) [W/m2]"}, + /* 114 */ {"role", "OUTGOING LONG WAVE AT TOP [W/m2]"}, + /* 115 */ {"lwrd", "LONG-WAV RAD [W/m2]"}, + /* 116 */ {"swea", "SHORT WAVE ABSORBED BY EARTH/ATMOSPHERE [W/m2]"}, + /* 117 */ {"glbr", "GLOBAL RADIATION [W/m2 ]"}, + /* 118 */ {"var118", "undefined"}, + /* 119 */ {"var119", "undefined"}, + /* 120 */ {"var120", "undefined"}, + /* 121 */ {"clsf", "LATENT HEAT FLUX FROM SURFACE [W/m2]"}, + /* 122 */ {"cssf", "SENSIBLE HEAT FLUX FROM SURFACE [W/m2]"}, + /* 123 */ {"blds", "BOUND LAYER DISSIPATION [W/m2]"}, + /* 124 */ {"var124", "undefined"}, + /* 125 */ {"var125", "undefined"}, + /* 126 */ {"var126", "undefined"}, + /* 127 */ {"imag", "IMAGE [image^data]"}, + /* 128 */ {"tp2m", "2 METRE TEMPERATURE [K]"}, + /* 129 */ {"dp2m", "2 METRE DEWPOINT TEMPERATURE [K]"}, + /* 130 */ {"u10m", "10 METRE U-WIND COMPONENT [m/s]"}, + /* 131 */ {"v10m", "10 METRE V-WIND COMPONENT [m/s]"}, + /* 132 */ {"topo", "TOPOGRAPHY [m]"}, + /* 133 */ {"gsfp", "GEOMETRIC MEAN SURFACE PRESSURE [hPa]"}, + /* 134 */ {"lnsp", "LN SURFACE PRESSURE [hPa]"}, + /* 135 */ {"pslc", "SURFACE PRESSURE [hPa]"}, + /* 136 */ {"pslm", "M S L PRESSURE (MESINGER METHOD) [hPa]"}, + /* 137 */ {"mask", "MASK [-/+]"}, + /* 138 */ {"mxwu", "MAXIMUM U-WIND [m/s]"}, + /* 139 */ {"mxwv", "MAXIMUM V-WIND [m/s]"}, + /* 140 */ {"cape", "CONVECTIVE AVAIL. POT.ENERGY [m2/s2]"}, + /* 141 */ {"cine", "CONVECTIVE INHIB. ENERGY [m2/s2]"}, + /* 142 */ {"lhcv", "CONVECTIVE LATENT HEATING [K/s]"}, + /* 143 */ {"mscv", "CONVECTIVE MOISTURE SOURCE [1/s]"}, + /* 144 */ {"scvm", "SHALLOW CONV. MOISTURE SOURCE [1/s]"}, + /* 145 */ {"scvh", "SHALLOW CONVECTIVE HEATING [K/s]"}, + /* 146 */ {"mxwp", "MAXIMUM WIND PRESS. LVL [hPa]"}, + /* 147 */ {"ustr", "STORM MOTION U-COMPONENT [m/s]"}, + /* 148 */ {"vstr", "STORM MOTION V-COMPONENT [m/s]"}, + /* 149 */ {"cbnt", "MEAN CLOUD COVER [0-1]"}, + /* 150 */ {"pcbs", "PRESSURE AT CLOUD BASE [hPa]"}, + /* 151 */ {"pctp", "PRESSURE AT CLOUD TOP [hPa]"}, + /* 152 */ {"fzht", "FREEZING LEVEL HEIGHT [m]"}, + /* 153 */ {"fzrh", "FREEZING LEVEL RELATIVE HUMIDITY [%]"}, + /* 154 */ {"fdlt", "FLIGHT LEVELS TEMPERATURE [K]"}, + /* 155 */ {"fdlu", "FLIGHT LEVELS U-WIND [m/s]"}, + /* 156 */ {"fdlv", "FLIGHT LEVELS V-WIND [m/s]"}, + /* 157 */ {"tppp", "TROPOPAUSE PRESSURE [hPa]"}, + /* 158 */ {"tppt", "TROPOPAUSE TEMPERATURE [K]"}, + /* 159 */ {"tppu", "TROPOPAUSE U-WIND COMPONENT [m/s]"}, + /* 160 */ {"tppv", "TROPOPAUSE v-WIND COMPONENT [m/s]"}, + /* 161 */ {"var161", "undefined"}, + /* 162 */ {"gvdu", "GRAVITY WAVE DRAG DU/DT [m/s2]"}, + /* 163 */ {"gvdv", "GRAVITY WAVE DRAG DV/DT [m/s2]"}, + /* 164 */ {"gvus", "GRAVITY WAVE DRAG SFC ZONAL STRESS [Pa]"}, + /* 165 */ {"gvvs", "GRAVITY WAVE DRAG SFC MERIDIONAL STRESS [Pa]"}, + /* 166 */ {"var166", "undefined"}, + /* 167 */ {"dvsh", "DIVERGENCE OF SPECIFIC HUMIDITY [1/s]"}, + /* 168 */ {"hmfc", "HORIZ. MOISTURE FLUX CONV. [1/s]"}, + /* 169 */ {"vmfl", "VERT. INTEGRATED MOISTURE FLUX CONV. [kg/(m2*s)]"}, + /* 170 */ {"vadv", "VERTICAL MOISTURE ADVECTION [kg/(kg*s)]"}, + /* 171 */ {"nhcm", "NEG. HUM. CORR. MOISTURE SOURCE [kg/(kg*s)]"}, + /* 172 */ {"lglh", "LARGE SCALE LATENT HEATING [K/s]"}, + /* 173 */ {"lgms", "LARGE SCALE MOISTURE SOURCE [1/s]"}, + /* 174 */ {"smav", "SOIL MOISTURE AVAILABILITY [0-1]"}, + /* 175 */ {"tgrz", "SOIL TEMPERATURE OF ROOT ZONE [K]"}, + /* 176 */ {"bslh", "BARE SOIL LATENT HEAT [Ws/m2]"}, + /* 177 */ {"evpp", "POTENTIAL SFC EVAPORATION [m]"}, + /* 178 */ {"rnof", "RUNOFF [kg/m2/s)]"}, + /* 179 */ {"pitp", "INTERCEPTION LOSS [W/m2]"}, + /* 180 */ {"vpca", "VAPOR PRESSURE OF CANOPY AIR SPACE [mb]"}, + /* 181 */ {"qsfc", "SURFACE SPEC HUMIDITY [kg/kg]"}, + /* 182 */ {"ussl", "SOIL WETNESS OF SURFACE [0-1]"}, + /* 183 */ {"uzrs", "SOIL WETNESS OF ROOT ZONE [0-1]"}, + /* 184 */ {"uzds", "SOIL WETNESS OF DRAINAGE ZONE [0-1]"}, + /* 185 */ {"amdl", "STORAGE ON CANOPY [m]"}, + /* 186 */ {"amsl", "STORAGE ON GROUND [m]"}, + /* 187 */ {"tsfc", "SURFACE TEMPERATURE [K]"}, + /* 188 */ {"tems", "SURFACE ABSOLUTE TEMPERATURE [K]"}, + /* 189 */ {"tcas", "TEMPERATURE OF CANOPY AIR SPACE [K]"}, + /* 190 */ {"ctmp", "TEMPERATURE AT CANOPY [K]"}, + /* 191 */ {"tgsc", "GROUND/SURFACE COVER TEMPERATURE [K]"}, + /* 192 */ {"uves", "SURFACE ZONAL WIND (U) [m/s]"}, + /* 193 */ {"usst", "SURFACE ZONAL WIND STRESS [Pa]"}, + /* 194 */ {"vves", "SURFACE MERIDIONAL WIND (V) [m/s]"}, + /* 195 */ {"vsst", "SURFACE MERIDIONAL WIND STRESS [Pa]"}, + /* 196 */ {"suvf", "SURFACE MOMENTUM FLUX [W/m2]"}, + /* 197 */ {"iswf", "INCIDENT SHORT WAVE FLUX [W/m2]"}, + /* 198 */ {"ghfl", "TIME AVE GROUND HT FLX [W/m2]"}, + /* 199 */ {"var199", "undefined"}, + /* 200 */ {"lwbc", "NET LONG WAVE AT BOTTOM (CLEAR) [W/m2]"}, + /* 201 */ {"lwtc", "OUTGOING LONG WAVE AT TOP (CLEAR) [W/m2]"}, + /* 202 */ {"swec", "SHORT WV ABSRBD BY EARTH/ATMOS (CLEAR) [W/m2]"}, + /* 203 */ {"ocac", "SHORT WAVE ABSORBED AT GROUND (CLEAR) [W/m2]"}, + /* 204 */ {"var204", "undefined"}, + /* 205 */ {"lwrh", "LONG WAVE RADIATIVE HEATING [K/s]"}, + /* 206 */ {"swrh", "SHORT WAVE RADIATIVE HEATING [K/s]"}, + /* 207 */ {"olis", "DOWNWARD LONG WAVE AT BOTTOM [W/m2]"}, + /* 208 */ {"olic", "DOWNWARD LONG WAVE AT BOTTOM (CLEAR) [W/m2]"}, + /* 209 */ {"ocis", "DOWNWARD SHORT WAVE AT GROUND [W/m2]"}, + /* 210 */ {"ocic", "DOWNWARD SHORT WAVE AT GROUND (CLEAR) [W/m2]"}, + /* 211 */ {"oles", "UPWARD LONG WAVE AT BOTTOM [W/m2]"}, + /* 212 */ {"oces", "UPWARD SHORT WAVE AT GROUND [W/m2]"}, + /* 213 */ {"swgc", "UPWARD SHORT WAVE AT GROUND (CLEAR) [W/m2]"}, + /* 214 */ {"roce", "UPWARD SHORT WAVE AT TOP [W/m2]"}, + /* 215 */ {"swtc", "UPWARD SHORT WAVE AT TOP (CLEAR) [W/m2]"}, + /* 216 */ {"var216", "undefined"}, + /* 217 */ {"var217", "undefined"}, + /* 218 */ {"hhdf", "HORIZONTAL HEATING DIFFUSION [K/s]"}, + /* 219 */ {"hmdf", "HORIZONTAL MOISTURE DIFFUSION [1/s]"}, + /* 220 */ {"hddf", "HORIZONTAL DIVERGENCE DIFFUSION [1/s2]"}, + /* 221 */ {"hvdf", "HORIZONTAL VORTICITY DIFFUSION [1/s2]"}, + /* 222 */ {"vdms", "VERTICAL DIFF. MOISTURE SOURCE [1/s]"}, + /* 223 */ {"vdfu", "VERTICAL DIFFUSION DU/DT [m/s2]"}, + /* 224 */ {"vdfv", "VERTICAL DIFFUSION DV/DT [m/s2]"}, + /* 225 */ {"vdfh", "VERTICAL DIFFUSION HEATING [K/s]"}, + /* 226 */ {"umrs", "SURFACE RELATIVE HUMIDITY [no Dim]"}, + /* 227 */ {"vdcc", "VERTICAL DIST TOTAL CLOUD COVER [no Dim]"}, + /* 228 */ {"var228", "undefined"}, + /* 229 */ {"var229", "undefined"}, + /* 230 */ {"usmt", "TIME MEAN SURFACE ZONAL WIND (U) [m/s]"}, + /* 231 */ {"vsmt", "TIME MEAN SURFACE MERIDIONAL WIND (V) [m/s]"}, + /* 232 */ {"tsmt", "TIME MEAN SURFACE ABSOLUTE TEMPERATURE [K]"}, + /* 233 */ {"rsmt", "TIME MEAN SURFACE RELATIVE HUMIDITY [no Dim]"}, + /* 234 */ {"atmt", "TIME MEAN ABSOLUTE TEMPERATURE [K]"}, + /* 235 */ {"stmt", "TIME MEAN DEEP SOIL TEMPERATURE [K]"}, + /* 236 */ {"ommt", "TIME MEAN DERIVED OMEGA [Pa/s]"}, + /* 237 */ {"dvmt", "TIME MEAN DIVERGENCE [1/s]"}, + /* 238 */ {"zhmt", "TIME MEAN GEOPOTENTIAL HEIGHT [m]"}, + /* 239 */ {"lnmt", "TIME MEAN LOG SURFACE PRESSURE [ln(cbar)]"}, + /* 240 */ {"mkmt", "TIME MEAN MASK [-/+]"}, + /* 241 */ {"vvmt", "TIME MEAN MERIDIONAL WIND (V) [m/s]"}, + /* 242 */ {"omtm", "TIME MEAN OMEGA [cbar/s]"}, + /* 243 */ {"ptmt", "TIME MEAN POTENTIAL TEMPERATURE [K]"}, + /* 244 */ {"pcmt", "TIME MEAN PRECIP. WATER [kg/m2]"}, + /* 245 */ {"rhmt", "TIME MEAN RELATIVE HUMIDITY [%]"}, + /* 246 */ {"mpmt", "TIME MEAN SEA LEVEL PRESSURE [hPa]"}, + /* 247 */ {"simt", "TIME MEAN SIGMADOT [1/s]"}, + /* 248 */ {"uemt", "TIME MEAN SPECIFIC HUMIDITY [kg/kg]"}, + /* 249 */ {"fcmt", "TIME MEAN STREAM FUNCTION| m2/s]"}, + /* 250 */ {"psmt", "TIME MEAN SURFACE PRESSURE [hPa]"}, + /* 251 */ {"tmmt", "TIME MEAN SURFACE TEMPERATURE [K]"}, + /* 252 */ {"pvmt", "TIME MEAN VELOCITY POTENTIAL [m2/s]"}, + /* 253 */ {"tvmt", "TIME MEAN VIRTUAL TEMPERATURE [K]"}, + /* 254 */ {"vtmt", "TIME MEAN VORTICITY [1/s]"}, + /* 255 */ {"uvmt", "TIME MEAN ZONAL WIND (U) [m/s]"}, +}; + + +const struct ParmTable parm_table_jra55_200[256] = { + /* 0 */ {"var0", "undefined"}, + /* 1 */ {"PRES", "Pressure [Pa]"}, + /* 2 */ {"PRMSL", "Pressure reduced to MSL [Pa]"}, + /* 3 */ {"var3", "undefined"}, + /* 4 */ {"pVOR", "Potential vorticity [K*m^2/kg/s]"}, + /* 5 */ {"var5", "undefined"}, + /* 6 */ {"GP", "Geopotential [m^2/s^2]"}, + /* 7 */ {"HGT", "Geopotential height [gpm]"}, + /* 8 */ {"var8", "undefined"}, + /* 9 */ {"var9", "undefined"}, + /* 10 */ {"TOZNE", "Total ozone [Dobson]"}, + /* 11 */ {"TMP", "Temperature [K]"}, + /* 12 */ {"var12", "undefined"}, + /* 13 */ {"POT", "Potential temperature [K]"}, + /* 14 */ {"var14", "undefined"}, + /* 15 */ {"TMAX", "Maximum temperature [K]"}, + /* 16 */ {"TMIN", "Minimum temperature [K]"}, + /* 17 */ {"var17", "undefined"}, + /* 18 */ {"DEPR", "Dew-point depression [K]"}, + /* 19 */ {"var19", "undefined"}, + /* 20 */ {"var20", "undefined"}, + /* 21 */ {"var21", "undefined"}, + /* 22 */ {"var22", "undefined"}, + /* 23 */ {"var23", "undefined"}, + /* 24 */ {"var24", "undefined"}, + /* 25 */ {"var25", "undefined"}, + /* 26 */ {"var26", "undefined"}, + /* 27 */ {"var27", "undefined"}, + /* 28 */ {"var28", "undefined"}, + /* 29 */ {"var29", "undefined"}, + /* 30 */ {"var30", "undefined"}, + /* 31 */ {"var31", "undefined"}, + /* 32 */ {"var32", "undefined"}, + /* 33 */ {"UGRD", "u-component of wind [m/s]"}, + /* 34 */ {"VGRD", "v-component of wind [m/s]"}, + /* 35 */ {"STRM", "Stream function [m^2/s]"}, + /* 36 */ {"VPOT", "Velocity potential [m^2/s]"}, + /* 37 */ {"MNTSF", "Montgomery stream function [m^2/s^2]"}, + /* 38 */ {"var38", "undefined"}, + /* 39 */ {"VVEL", "Vertical velocity [Pa/s]"}, + /* 40 */ {"var40", "undefined"}, + /* 41 */ {"var41", "undefined"}, + /* 42 */ {"var42", "undefined"}, + /* 43 */ {"RELV", "Relative vorticity [1/s]"}, + /* 44 */ {"RELD", "Relative divergence [1/s]"}, + /* 45 */ {"var45", "undefined"}, + /* 46 */ {"var46", "undefined"}, + /* 47 */ {"var47", "undefined"}, + /* 48 */ {"var48", "undefined"}, + /* 49 */ {"var49", "undefined"}, + /* 50 */ {"var50", "undefined"}, + /* 51 */ {"SPFH", "Specific humidity [kg/kg]"}, + /* 52 */ {"RH", "Relative humidity [%]"}, + /* 53 */ {"var53", "undefined"}, + /* 54 */ {"PWAT", "Precipitable water [kg/m^2]"}, + /* 55 */ {"var55", "undefined"}, + /* 56 */ {"var56", "undefined"}, + /* 57 */ {"EVP", "Evaporation [mm/day]"}, + /* 58 */ {"CICE", "Cloud ice [kg/m^2]"}, + /* 59 */ {"var59", "undefined"}, + /* 60 */ {"var60", "undefined"}, + /* 61 */ {"TPRAT", "Total precipitation [mm/day]"}, + /* 62 */ {"LPRAT", "Large scale precipitation [mm/day]"}, + /* 63 */ {"CPRAT", "Convective precipitation [mm/day]"}, + /* 64 */ {"SRWEQ", "Snowfall rate water equivalent [mm/day]"}, + /* 65 */ {"SnWe", "Water equivalent of accumulated snow depth [kg/m^2]"}, + /* 66 */ {"SnowD", "Snow depth [m]"}, + /* 67 */ {"var67", "undefined"}, + /* 68 */ {"var68", "undefined"}, + /* 69 */ {"var69", "undefined"}, + /* 70 */ {"var70", "undefined"}, + /* 71 */ {"TCDC", "Total cloud cover [%]"}, + /* 72 */ {"var72", "undefined"}, + /* 73 */ {"LCDC", "Low cloud cover [%]"}, + /* 74 */ {"MCDC", "Medium cloud cover [%]"}, + /* 75 */ {"HCDC", "High cloud cover [%]"}, + /* 76 */ {"var76", "undefined"}, + /* 77 */ {"var77", "undefined"}, + /* 78 */ {"var78", "undefined"}, + /* 79 */ {"var79", "undefined"}, + /* 80 */ {"var80", "undefined"}, + /* 81 */ {"LAND", "Land cover (1 = land, 0 = sea) [Proportion]"}, + /* 82 */ {"var82", "undefined"}, + /* 83 */ {"SFCR", "Surface roughness [m]"}, + /* 84 */ {"var84", "undefined"}, + /* 85 */ {"SoilT", "Soil temperature [K]"}, + /* 86 */ {"var86", "undefined"}, + /* 87 */ {"var87", "undefined"}, + /* 88 */ {"var88", "undefined"}, + /* 89 */ {"var89", "undefined"}, + /* 90 */ {"ROF", "Water run-off [mm/day]"}, + /* 91 */ {"ICEC", "Ice cover (1 = ice, 0 = no ice) [Proportion]"}, + /* 92 */ {"var92", "undefined"}, + /* 93 */ {"var93", "undefined"}, + /* 94 */ {"var94", "undefined"}, + /* 95 */ {"var95", "undefined"}, + /* 96 */ {"var96", "undefined"}, + /* 97 */ {"var97", "undefined"}, + /* 98 */ {"var98", "undefined"}, + /* 99 */ {"var99", "undefined"}, + /* 100 */ {"var100", "undefined"}, + /* 101 */ {"var101", "undefined"}, + /* 102 */ {"var102", "undefined"}, + /* 103 */ {"var103", "undefined"}, + /* 104 */ {"var104", "undefined"}, + /* 105 */ {"var105", "undefined"}, + /* 106 */ {"var106", "undefined"}, + /* 107 */ {"var107", "undefined"}, + /* 108 */ {"var108", "undefined"}, + /* 109 */ {"var109", "undefined"}, + /* 110 */ {"var110", "undefined"}, + /* 111 */ {"var111", "undefined"}, + /* 112 */ {"var112", "undefined"}, + /* 113 */ {"var113", "undefined"}, + /* 114 */ {"var114", "undefined"}, + /* 115 */ {"var115", "undefined"}, + /* 116 */ {"var116", "undefined"}, + /* 117 */ {"var117", "undefined"}, + /* 118 */ {"BRTMP", "Brightness temperature [K]"}, + /* 119 */ {"var119", "undefined"}, + /* 120 */ {"var120", "undefined"}, + /* 121 */ {"LHTFL", "Latent heat flux [W/m^2]"}, + /* 122 */ {"SHTFL", "Sensible heat flux [W/m^2]"}, + /* 123 */ {"var123", "undefined"}, + /* 124 */ {"UFLX", "Momentum flux, u-component [N/m^2]"}, + /* 125 */ {"VFLX", "Momentum flux, v-component [N/m^2]"}, + /* 126 */ {"var126", "undefined"}, + /* 127 */ {"var127", "undefined"}, + /* 128 */ {"var128", "undefined"}, + /* 129 */ {"var129", "undefined"}, + /* 130 */ {"var130", "undefined"}, + /* 131 */ {"var131", "undefined"}, + /* 132 */ {"BVF2", "Square of Brunt-Vaisala frequency [1/s^2]"}, + /* 133 */ {"var133", "undefined"}, + /* 134 */ {"var134", "undefined"}, + /* 135 */ {"var135", "undefined"}, + /* 136 */ {"var136", "undefined"}, + /* 137 */ {"var137", "undefined"}, + /* 138 */ {"var138", "undefined"}, + /* 139 */ {"var139", "undefined"}, + /* 140 */ {"var140", "undefined"}, + /* 141 */ {"var141", "undefined"}, + /* 142 */ {"var142", "undefined"}, + /* 143 */ {"var143", "undefined"}, + /* 144 */ {"TSC", "Canopy temperature [K]"}, + /* 145 */ {"TSG", "Ground temperature [K]"}, + /* 146 */ {"CWORK", "Cloud work function [J/kg]"}, + /* 147 */ {"FGLU", "Zonal momentum flux by long gravity wave [N/m^2]"}, + /* 148 */ {"FGLV", "Meridional momentum flux by long gravity wave [N/m^2]"}, + /* 149 */ {"var149", "undefined"}, + /* 150 */ {"var150", "undefined"}, + /* 151 */ {"ADUA", "Adiabatic zonal acceleration [m/s/day]"}, + /* 152 */ {"VWV", "Meridional water vapour flux [Kg/m/s]"}, + /* 153 */ {"var153", "undefined"}, + /* 154 */ {"FGSV", "Meridional momentum flux by short gravity wave [N/m^2]"}, + /* 155 */ {"GFLX", "Ground heat flux [W/m^2]"}, + /* 156 */ {"var156", "undefined"}, + /* 157 */ {"UWV", "Zonal water vapour flux [kg/m/s]"}, + /* 158 */ {"var158", "undefined"}, + /* 159 */ {"FGSU", "Zonal momentum flux by short gravity wave [N/m^2]"}, + /* 160 */ {"CSUSF", "Clear sky upward solar radiation flux [W/m^2]"}, + /* 161 */ {"CSDSF", "Clear sky downward solar radiation flux [W/m^2]"}, + /* 162 */ {"CSULF", "Clear sky upward long wave radiation flux [W/m^2]"}, + /* 163 */ {"CSDLF", "Clear sky downward long wave radiation flux [W/m^2]"}, + /* 164 */ {"var164", "undefined"}, + /* 165 */ {"ADVA", "Adiabatic meridional acceleration [m/s/day]"}, + /* 166 */ {"var166", "undefined"}, + /* 167 */ {"var167", "undefined"}, + /* 168 */ {"var168", "undefined"}, + /* 169 */ {"var169", "undefined"}, + /* 170 */ {"FRCV", "Frequency of deep convection [%]"}, + /* 171 */ {"FRCVS", "Frequency of shallow convection [%]"}, + /* 172 */ {"FRSC", "Frequency of stratocumulus parameterisation [%]"}, + /* 173 */ {"GWDUA", "Gravity wave zonal acceleration [m/s/day]"}, + /* 174 */ {"GWDVA", "Gravity wave meridional acceleration [m/s/day]"}, + /* 175 */ {"var175", "undefined"}, + /* 176 */ {"var176", "undefined"}, + /* 177 */ {"var177", "undefined"}, + /* 178 */ {"var178", "undefined"}, + /* 179 */ {"var179", "undefined"}, + /* 180 */ {"var180", "undefined"}, + /* 181 */ {"var181", "undefined"}, + /* 182 */ {"var182", "undefined"}, + /* 183 */ {"var183", "undefined"}, + /* 184 */ {"var184", "undefined"}, + /* 185 */ {"var185", "undefined"}, + /* 186 */ {"var186", "undefined"}, + /* 187 */ {"var187", "undefined"}, + /* 188 */ {"var188", "undefined"}, + /* 189 */ {"var189", "undefined"}, + /* 190 */ {"UTHE", "Zonal thermal energy flux [W/m]"}, + /* 191 */ {"VTHE", "Meridional thermal energy flux [W/m]"}, + /* 192 */ {"var192", "undefined"}, + /* 193 */ {"var193", "undefined"}, + /* 194 */ {"var194", "undefined"}, + /* 195 */ {"var195", "undefined"}, + /* 196 */ {"var196", "undefined"}, + /* 197 */ {"var197", "undefined"}, + /* 198 */ {"var198", "undefined"}, + /* 199 */ {"var199", "undefined"}, + /* 200 */ {"var200", "undefined"}, + /* 201 */ {"var201", "undefined"}, + /* 202 */ {"LTRS", "Evapotranspiration [W/m^2]"}, + /* 203 */ {"LINT", "Interception loss [W/m^2]"}, + /* 204 */ {"DSWRF", "Downward solar radiation flux [W/m^2]"}, + /* 205 */ {"DLWRF", "Downward long wave radiation flux [W/m^2]"}, + /* 206 */ {"var206", "undefined"}, + /* 207 */ {"var207", "undefined"}, + /* 208 */ {"var208", "undefined"}, + /* 209 */ {"var209", "undefined"}, + /* 210 */ {"var210", "undefined"}, + /* 211 */ {"USWRF", "Upward solar radiation flux [W/m^2]"}, + /* 212 */ {"ULWRF", "Upward long wave radiation flux [W/m^2]"}, + /* 213 */ {"var213", "undefined"}, + /* 214 */ {"var214", "undefined"}, + /* 215 */ {"var215", "undefined"}, + /* 216 */ {"var216", "undefined"}, + /* 217 */ {"var217", "undefined"}, + /* 218 */ {"var218", "undefined"}, + /* 219 */ {"WSMX", "Maximum wind speed [m/s]"}, + /* 220 */ {"var220", "undefined"}, + /* 221 */ {"CWAT", "Cloud water [kg/kg]"}, + /* 222 */ {"ADHR", "Adiabatic heating rate [K/day]"}, + /* 223 */ {"MSC", "Moisture storage on canopy [m]"}, + /* 224 */ {"MSG", "Moisture storage on ground/cover [m]"}, + /* 225 */ {"SoilW", "Soil wetness [Proportion]"}, + /* 226 */ {"SMC", "Mass concentration of condensed water in soil [kg/m^3]"}, + /* 227 */ {"CW", "Cloud liquid water [kg/m^2]"}, + /* 228 */ {"CLWC", "Cloud liquid water [kg/kg]"}, + /* 229 */ {"CIWC", "Cloud ice [kg/kg]"}, + /* 230 */ {"MFLXB", "Upward mass flux at cloud base [kg/m^2/s]"}, + /* 231 */ {"MFLUX", "Upward mass flux [kg/m^2/s]"}, + /* 232 */ {"var232", "undefined"}, + /* 233 */ {"var233", "undefined"}, + /* 234 */ {"var234", "undefined"}, + /* 235 */ {"var235", "undefined"}, + /* 236 */ {"ADMR", "Adiabatic moistening rate [kg/kg/day]"}, + /* 237 */ {"OZONE", "Ozone mixing ratio [mg/kg]"}, + /* 238 */ {"var238", "undefined"}, + /* 239 */ {"CNVUA", "Convective zonal acceleration [m/s/day]"}, + /* 240 */ {"CNVVA", "Convective meridional acceleration [m/s/day]"}, + /* 241 */ {"LRGHR", "Large scale condensation heating rate [K/day]"}, + /* 242 */ {"CNVHR", "Convective heating rate [k/day]"}, + /* 243 */ {"CNVMR", "Convective moistening rate [kg/kg/day]"}, + /* 244 */ {"var244", "undefined"}, + /* 245 */ {"var245", "undefined"}, + /* 246 */ {"VDFHR", "Vertical diffusion heating rate [K/day]"}, + /* 247 */ {"VDFUA", "Vertical diffusion zonal acceleration [m/s/day]"}, + /* 248 */ {"VDFVA", "Vertical diffusion meridional acceleration [m/s/day]"}, + /* 249 */ {"VDFMR", "Vertical diffusion moistening rate [kg/kg/day]"}, + /* 250 */ {"SWHR", "Solar radiative heating rate [k/day]"}, + /* 251 */ {"LWHR", "Long wave radiative heating rate [K/day]"}, + /* 252 */ {"VTYPE", "Type of vegetation"}, + /* 253 */ {"LRGMR", "Large scale moistening rate [kg/kg/day]"}, + /* 254 */ {"var254", "undefined"}, + /* 255 */ {"var255", "undefined"}, +}; + +/* + * support for complex packing + * determine the number of data points in the BDS + * does not handle matrix values + */ + +extern int ec_large_grib, len_ec_bds; + + +int BDS_NValues(unsigned char *bds) { + + /* returns number of grid points as determined from the BDS */ + + int i = 0; + + if (BDS_SimplePacking(bds) && BDS_Grid(bds)) { + i = ((BDS_LEN(bds) - BDS_DataStart(bds))*8 - + BDS_UnusedBits(bds)) / (BDS_NumBits(bds)); + } + else if (BDS_ComplexPacking(bds) && BDS_Grid(bds)) { + i = BDS_P2(bds); + } + return i; +} diff --git a/bin.dp.grib2/Makefile b/bin.dp.grib2/Makefile new file mode 100755 index 0000000..c5bdc93 --- /dev/null +++ b/bin.dp.grib2/Makefile @@ -0,0 +1,77 @@ +#Makefile +############################################################################### +# Include definitions +############################################################################### +include ../include.mk +############################################################################### +# Compiler commands +############################################################################### +INCLUDES = $(UTILS_INCS) $(PAR_INCS) $(HDF5_INCS) +F_CD1 = $(F_COMP) -c $(F_OPTS1) $(INCLUDES) +F_CD2 = $(F_COMP) -c $(F_OPTS2) $(INCLUDES) +C_CD = $(C_COMP) -c $(C_OPTS) $(INCLUDES) $(PAR_DEFS) $(HDF5_DEFS) + +C_CM =$(C_CD) -D$(CMACH) $< && $(ARCH) $@ $( this limit, do not use to interpolate + ! + ! - Time extrapolate limit (TEL)- if past/future obs is greater than TIL, + ! but less than TEL, use the obs + + ODA_SFC_TIL=21600., + ODA_SFC_TEL=900., + ODA_UPA_TIL=43200., + ODA_UPA_TEL=21600., +!------------------------------------------------------------------------------ + +! History start (if RUNTYPE='HISTORY') + + HFILIN = './', + ! Input state file name + +! Analysis file input for assimilation: 1=yes, 0=no + + IPAST_SFC = 0, ! Initialize LEAF fields from history + + ICLOBBER = 1, ! 0=stop if files exist, 1=overwite files + +! Analysis file output + + IOUTPUT = 1, ! 0-no files, 1-write files + AFILEPREF = './test.orographic/a', + ! File prefix for all analysis files + ! state,mean,lite,both + +!------------------------------------------------------------------------------ + FRQSTATE = 21600.,7200.,21600.,900., + ! "state" file write frequency + ! can be different for each grid + ! works best if grids are multiples of each other + FRQST_KEEP = 0., ! If > 0., frequency at which "state" files will be + ! kept. Others will be written, but deleted on + ! the subsequent write. + ! Intended to be a mutiple of and >= FRQSTATE +!------------------------------------------------------------------------------ + FRQLITE = 0., ! Frequency for "lite" files + ! = 0 : no lite files + NLITE_VARS=0, + + LITE_VARS= 'GLAT','GLON','TOPT','PATCH_AREA', !Keep these always + 'UP','VP','WP', + +!------------------------------------------------------------------------------ + AVGTIM = 0., ! Averaging time for analysis variables + ! must be abs(AVGTIM) <= FRQANL + ! > 0 : averaging is centered at FRQANL + ! < 0 : averaging ends at FRQANL + ! = 0 : no averaged files + FRQMEAN = 0., ! Frequency for "averaged" files + FRQBOTH = 0., ! Frequency for Both ("averaged"/"lite") files + +! Input topography variables + + !Path and prefix for topo, surface, sst, ndvi files + TOPFILES = './test.orographic/toph', + SFCFILES = './test.orographic/sfch', + SSTFPFX = './test.orographic/ssth', + NDVIFPFX = './test.orographic/ndh', + + ITOPTFLG = 1,1,1,1, ! 2 - Fill data in "leaf3_init" + ISSTFLG = 1,1,1,1, ! 0 - Interpolate from coarser grid + IVEGTFLG = 1,1,1,1, ! 1 - Read from standard Lat/Lon data file + ISOILFLG = 1,1,1,1, ! + NDVIFLG = 1,1,1,1, ! + + IUPDNDVI = 0, ! 0 - No update of NDVI values during run + IUPDSST = 0, ! 0 - No update of SST values during run + ! 1 - Update values during run + + ! The following only apply for IxxxxFLG=1 + ITOPTFN = '../../sfctypehdf5/DEM30s-h5/EL', + '../../sfctypehdf5/DEM30s-h5/EL', + '../../sfctypehdf5/DEM30s-h5/EL', + '../../sfctypehdf5/DEM30s-h5/EL', + ISSTFN = '../../sfctypehdf5/sst-h5/S', + '../../sfctypehdf5/sst-h5/S', + '../../sfctypehdf5/sst-h5/S', + '../../sfctypehdf5/sst-h5/S', + IVEGTFN = '../../sfctypehdf5/ogedata-h5/GE', + '../../sfctypehdf5/ogedata-h5/GE', + '../../sfctypehdf5/ogedata-h5/GE', + '../../sfctypehdf5/ogedata-h5/GE', + ISOILFN = '../../sfctypehdf5/FAOdata-h5/FAO', + '../../sfctypehdf5/FAOdata-h5/FAO', + '../../sfctypehdf5/FAOdata-h5/FAO', + '../../sfctypehdf5/FAOdata-h5/FAO', + NDVIFN = '../../sfctypehdf5/ndvi-h5/', + '../../sfctypehdf5/ndvi-h5/', + '../../sfctypehdf5/ndvi-h5/', + '../../sfctypehdf5/ndvi-h5/', + +! Topography scheme + + ITOPSFLG = 3,3,3,3, ! 0 = Average Orography + ! 1 = Silhouette Orography + ! 2 = Envelope Orography + ! 3 = Reflected Envelope Orography + + TOPTENH = 1.,1.,1.,1., ! For ITOPSFLG=1, Weighting of topo + ! silhouette averaging + ! For ITOPSFLG=2 or 3, Reflected Envelope + ! and Envelope Orography enhancement factor + + TOPTWVL = 8.,8.,8.,8., ! Topo wavelength cutoff in filter + +! Surface Roughness scheme + + IZ0FLG = 0,0,0,0, ! 0 = Use veg, bare soil and water surface + ! 1 = Also use subgrid scale topography + Z0MAX = 5.,5.,5.,5., ! Max zo for IZ0FLG=1 + Z0FACT = 0.005, ! Subgrid scale orograhic roughness factor + + $END + + $MODEL_OPTIONS + +! Numerical schemes + + ICORFLG = 1, ! Coriolis flag/2D v-component - 0=off, 1=on + + IBND = 1, ! Lateral boundary condition flags + JBND = 1, ! 1-Klemp/Wilhelmson, 2-cyclic + + CPHAS = 20., ! Phase speed if IBND or JBND = 1 + LSFLG = 1, ! Large-scale gradient flag for variables other than + ! normal velocity: + ! 0 = zero gradient inflow and outflow + ! 1 = zero gradient inflow, radiative b.c. outflow + ! 2 = constant inflow, radiative b.c. outflow + ! 3 = constant inflow and outflow + + NFPT = 0, ! Rayleigh friction - number of points from the top + DISTIM = 400., ! - dissipation time scale + +! Radiation parameters + + ISWRTYP = 3, ! Shortwave radiation type + ILWRTYP = 3, ! Longwave radiation type + ! 0-none,2-Mahrer/Pielke,1-Chen,3-Harrington + RADFRQ = 1200., ! Freq. of radiation tendency update (s) + LONRAD = 1, ! Longitudinal variation of shortwave + ! (0-no, 1-yes) + +! Cumulus parameterization parameters + + NNQPARM = 0,0,0,0, ! Convective param (0-off, 1-Kuo, 2-Kain-Fritsch) + CONFRQ = 1200., ! Frequency of conv param. updates (s) + WCLDBS = .01, ! Vertical motion needed at cloud base for + ! to trigger convection (Kuo) + +! KPP mixed-layer single-column ocean model + + IKPP = 0, ! Ocean model (0-off, 1-on, 2-more diagnostics) + DMAXKPP = 1000., ! Maximum ocean depth (meters) + NKPPZ = 98, ! Number of ocean layers (levels = layers+1) + DSCALEKPP = 4., ! Set exponential for stretched grid + FRQKPP = 5., ! Timestep of ocean model (sec) + RELAX_SST = 0., ! Timescale (days) for SST nudging + RELAX_OCNT = 20., ! Timescale (days) for ocean column temp nudging + RELAX_SAL = 20., ! Timescale (days) for ocean column salinity nudging + KPPITERMAX = 20, ! Max number of iterations allowed + KPPRNT = 0, ! Sample output print to screen: 0=no, 1=yes + UBMN_KPP = 3., ! UBMIN for KPP wind stress and LEAF-3 if using KPP + +! Surface layer and soil parameterization + + NPATCH = 3, ! Number of patches per grid cell (min=2) + + NVEGPAT = 2, ! Number of patches per grid cell to be + ! filled from + ! vegetation files + ! (min of 1, max of NPATCH-1) + + ISFCL = 1, ! Surface layer/soil/veg model + ! 0-specified surface layer gradients + ! 1-LEAF3 model, 2-SiB model + + IFREESLIP = 0, ! Freeslip BC: 0=NO, 1=YES + + ! Data file for SIB surface characteristics + SIBFILE = '../etc/SiB-Veg-Morphology.txt', + + ! CO2 vertical profile for SiB submodel initialization. [ppm] + CO2_INIT = 360., 360., 360., 355., 355., 355., 350., 350., 340., + + ISOILDAT = 0, ! Soil moisture and temperature initialization + ! 0 = homogeneous default, 1 = varfile ingest + SNUDCENT = 0., ! Soil moisture interior nudging time scale (sec) + ISNOWDAT = 0, ! Snow depth and mass initialization + ! 0 = homogeneous zero default, 1 = varfile ingest + + NVGCON = 1, ! Vegetation type (see below) + + ! 0 Ocean ! 11 Tundra + ! 1 Lakes, rivers, streams ! 12 Evergreen shrub + ! 2 Ice cap/glacier ! 13 Deciduous shrub + ! 3 Desert, bare soil ! 14 Mixed woodland + ! 4 Evergreen needleleaf tree ! 15 Crop/mixed farming, C3 grassland + ! 5 Deciduous needleleaf tree ! 16 Irrigated crop + ! 6 Deciduous broadleaf tree ! 17 Bog or marsh + ! 7 Evergreen broadleaf tree ! 18 Wooded grassland + ! 8 Short grass ! 19 Urban and built up + ! 9 Tall grass ! 20 Wetland evergreen broadleaf tree + ! 10 Semi-desert ! 21 Very urban + + PCTLCON = 1., ! Constant land % if for all domain + NSLCON = 6, ! Constant soil type if for all domain + + ! 1 -- sand 2 -- loamy sand 3 -- sandy loam + ! 4 -- silt loam 5 -- loam 6 -- sandy clay loam + ! 7 -- silty clay loam 8 -- clay loam 9 -- sandy clay + ! 10 -- silty clay 11 -- clay 12 -- peat + + ZROUGH = .05, ! Constant roughness if for all domain + ALBEDO = .2, ! Constant albedo if not running soil model + SEATMP = 280., ! Constant water surface temperature + + DTHCON = -10., ! Constant sfc layer temp grad for no soil + DRTCON = 0., ! Constant sfc layer moist grad for no soil + + SLZ = -1.2,-.80,-.60,-.40,-.30,-.20,-.10,-.05, + ! Soil grid levels + + SLMSTR = 0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25, + ! Initial soil moisture + + STGOFF = 5.0, 5.0, 5.0, 5.0, 5.0, 3.5, -1.0, -2.0, + ! Initial soil temperature offset + ! from lowest atmospheric level +!------------------------------------------------------------------------------ + +!--------- Eddy diffusion coefficient parameters ------------------------------ + + IDIFFK = 2,2,2, ! K flag: + ! 1 - Horiz deform/Vert Mellor-Yamada + ! 2 - Anisotropic deformormation + ! (horiz & vert differ) + ! 3 - Isotropic deformation + ! (horiz and vert same) + ! 4 - Deardorff TKE (horiz and vert same) + + IDIFFPERTS = 0, ! 0 - Normal scalar diffusion + ! 1 - Diffuse perturbations from base state THP,RTP + ! 2 - Diffuse perturbations from mean state THP,RTP + ! 3 - Diffuse perturbations from varfile state THP,RTP + + IHORGRAD = 1, ! 1 - horiz grad frm decomposed sigma grad + ! 2 - true horizontal gradient. + ! Non-conserving, but allows small DZ + + CSX = .2,.2,.2, ! Deformation horiz. K's coefficient + CSZ = .2,.2,.2, ! Deformation vert. K's coefficient + XKHKM = 3.,3.,3., ! Ratio of horiz K_h to K_m for deformation + ZKHKM = 3.,3.,3., ! Ratio of vert K_h to K_m for deformation + AKMIN = 1.0,1.0,1.5, ! Ratio of minimum horizontal eddy + ! viscosity coefficientto typical value + ! from deformation K + + FRACSAT = 0.99, ! Minimum saturation fraction in the presence + ! of cloud water for applying saturation + ! moist BV equation to diffusion stability + ! criteria. Value of 0.0 uses original formula + ! and only cloud water is required. + +!------Bubble Simulation------------------------------------------------------- + IBUBBLE = 0, ! Bubble initialization: 0 = off + ! 1=square bubble, 2=gaussian bubble + ! 3=random perturbations (user adjust ruser.f90) + IBUBGRD = 1, ! Grid Number On Which To Initialize Bubble + IBDXIA = 45, ! DX start grid point + IBDXIZ = 55, ! DX end grid point + IBDYJA = 15, ! DY start grid point + IBDYJZ = 25, ! DY end grid point + IBDZK1 = 2, ! Lower k level + IBDZK2 = 16, ! Upper k level + BTHP = 2.0, ! Theta-il perturbation(K) (THP + BTHP) + BRTP = 0.2, ! Mixing ratio perturbation (RTP * (1 + BRTP) + +!------Convergence Forcing ---------------------------------------------------- + ICONV = 0, ! Convergence Zone initialization: 0 = off + ! 1=Gaussian in x and y, U and V + ! 2=Gaussian in x and y, U only + ! 3=Gaussian in x and y, V only + ! 4=Gaussian only in x, U only + ! 5=Gaussian only in y, V only + ICONGR = 1, ! Grid for convergence + ICICENT = 100, ! I center grid point + ICJCENT = 100, ! J center grid point + CXRAD = 7000., ! I radius width (meters) + CYRAD = 7000., ! J radius width (meters) + ICVERT = 1, ! Convergence vertical structure + ! 1=Linear decrease w/height and max at sfc + ! 2=Elevated 1/2 vertical wavelength + ICKMAX = 14, ! Max K for ICVERT=1 (ignored for ICVERT=2) + CZRAD = 2000., ! Vertical radius if ICVERT=2 (ignored for ICVERT=1) + ICKCENT = 17, ! K center for ICVERT=2 (ignored for ICVERT=1) + CDIVMAX = -6.1224e-6, ! Divergence amplitude (s^-1) (negative = converge) + CTAU = 1., ! timescale (s) over which conv. zone strength + ! increases to amplitude CDIVMAX + CTMAX = 3600., ! Max time in seconds for convergence zone + ! If ctmax < 0, abs(ctmax) vertical vel thresh past + ! which to terminate conv zone (m/s) + +!----- Non-standard lateral boundary forcing ---------------------------------- + + IAEROLBC = 0,0,0, ! Aerosol profile forcing: 0=no, 1=yes + ICO2LBC = 0,0,0, ! CO2 profile forcing: 0=no, 1=yes + BCTAU = 1.,1.,1., ! (seconds) Inverse time weight + +!----- RCE (Radiative convective equilibrium) simulations Controls ------------ + + IRCE = 0, ! NO RCE setup = 0, YES = 1 + RCE_SZEN = 50.5, ! Constant solar zenith angle (0.-90.degrees) + RCE_SOLC = 650.832, ! Solar constant + RCE_UBMN = 4.0, ! Constant ubmin value (0.1 to 7.0 m/s) + RCE_BUBL = 0.50, ! Factor for IBUBBLE=3 (random temperature pert) + +!----- Extra Tracers and Scalars ---------------------------------------------- + + ITRACER = 0, ! number of tracers. Initialize in init_tracer + ITRACHIST = 0, ! Initialize tracers on history start / restart + +!----- Microphysics ----------------------------------------------------------- + + LEVEL = 3, ! Moisture complexity level + ! (0=dry, 1=vapor only, 2=cloud only, + ! 3=full micro, 4=HUCM-SBM bin micro) + + ISCM = 0, ! Single-column output run (0=off,1=on) + ISCMX = 15, ! X grid point for SCM column output (Grid-1 only) + ISCMY = 21, ! Y grid point for SCM column output (Grid-1 only) + SCMTIME = 1860., ! Time for SCM output (seconds) + + ICHECKMIC = 1, ! Check Micro Negative & Nans: 0=Off,1=on + IMBUDGET = 1, ! Micro budgets: 0=Off,1=partial,2=all,3=all+dust + + IRIME = 1, ! Riming: 0-Bulk, 1-HybridBin + IPLAWS = 2, ! FallSpeed: 0-Original4.3 + ! 1-New (R.Carver,Mitchell96) + ! 2-Banded Plaws for sedimentation + ISEDIM = 1, ! Sedimentation: 0-RelDisp, 1-True Hybrid-Bin + + ICLOUD = 5, ! Microphysics flags + IDRIZ = 5, !------------------- + IRAIN = 5, ! 1 - diagnostic concen. + IPRIS = 5, ! 2 - specified mean diameter + ISNOW = 5, ! 3 - specified y-intercept + IAGGR = 5, ! 4 - specified concentration + IGRAUP = 5, ! 5 - prognostic concentration + IHAIL = 5, + +! Hydrometeor parameters ! Microphysics parameters + ! ----------------------- + CPARM = .3e9, ! Characteristic diameter, # concentration + DPARM = .1e6, ! or y-intercept + RPARM = 1e-3, ! + PPARM = 0., ! Specify values for the given + SPARM = 1e-3, ! microphysics flag where appropriate + APARM = 1e-3, ! + GPARM = 1e-3, ! Only used for "microphysics flags" 1-4 + HPARM = 3e-3, ! + +!Gamma shape pararmeters ! cld rain pris snow aggr graup hail driz + GNU = 4.,2.,2.,2.,2.,2.,2.,4., + +!HUCM parameters + !HUCM data file directory for LEVEL=4 microphys + HUCMFILE = '../etc/HUCM-SBM', + NDTCOLL = 3, !Collision-coalescence called once + !every NDTCOLL time steps + +! Aerosol parameters ! See mic_init.f90 for setting profiles + ! ------------------------------------------ + IAEROSOL = 1, ! CCN,GCCN: 0=off, 1=userset + ISALT = 0, ! Sea Salt: 0=off, 1=userset, 2=saltmodel + IDUST = 0, ! Dust: 0=off, 1=userset 2=dustmodel + + IDUSTLOFT = 0, ! 0 = idealized lofting + ! 1 = Ginoux(2001) erodible fraction data + + !Dust source file name (used if IDUST=2) + !For IDUSTLOFT=1,read DustErodeFrac-Ginoux2001.txt + DUSTFILE = '../etc/DustErodeFrac-Ginoux2001.txt', + + ICCNLEV = 0, ! Aerosol treatment level + ! 0 = no source or sink + ! 1 = nucleation + deposition sink + ! 2 = same as 1 + evaporation regeneration + + IIFN = 1, ! Ice Nuclei treatment level + ! 0 = no ice nuclei + ! 1 = Meyers formula (CIN_MAX) + ! 2 = DeMott(2010) (CIN_MAX) + ! 3 = DeMott(2010) (aerosols D>0.5 microns) + + IIFN_FORMULA = 1, ! DeMott IN Formulation if IIFN = 2 or 3 + ! 1 = DeMott(2010) (composite aerosol types) + ! 2 = DeMott(2014) (dust formula) + + IAERORAD = 0, ! Aerosol-Radiation Model: 0 = Off, 1 = On + + IAERODEP = 0, ! Aerosol wet and dry deposition + ! (track scavenged aerosols if iccnlev>=2) + ! 0 = Off, 1 = On + + ! Aerosol initial maximum concentrations + ! userset option. Default vertical profiles: + ! MAXNUMBER*exp(-zt(k)/7000.) + ! ------------------------------------------ + IAEROPRNT = 1, ! Print aerosol init profiles (0=no,1=yes) + IAEROHIST = 0, ! Re-initialize aerosols on hist restart:0,1 + CIN_MAX = 0.01, ! Ice Nuclei (#/mg) + CCN_MAX = 1500., ! CCN (#/mg) + GCCN_MAX = 1.e-6, ! Giant-CCN (#/mg) + DUST1_MAX = 100., ! Small Dust Mode (#/mg) + DUST2_MAX = 10., ! Large Dust Mode (#/mg) + SALTF_MAX = 100., ! Film Sea Salt (#/mg) + SALTJ_MAX = 1., ! Jet Sea Salt (#/mg) + SALTS_MAX = 1.e-3, ! Spume Sea Salt (#/mg) + + ! Aerosol 9 categories soluble chemistry type: 1=(NH4)2S04, 2=NaCl + IAERO_CHEM = 1,1,1,1,2,2,2,1,1, + + ! Aerosol 9 categories solubility fraction: (0->1) + AERO_EPSILON = 0.90,0.90,0.05,0.05,1.00,1.00,1.00,0.20,0.20, + + ! Aerosol 9 categories initial median radius (meters) + AERO_MEDRAD = 0.04e-6,3.00e-6, !CCN,GCCN + 0.05e-6,0.50e-6, !Dust1,Dust2 + 0.10e-6,1.00e-6,6.00e-6, !SeaSalt: film,jet,spume + 0.01e-6,1.00e-6, !Regenerated 1 & 2 default + + ! Aerosol tracking flags: 0=off, 1=on + ITRKEPSILON = 0, ! Tracking aerosol solubility for regeneration + ITRKDUST = 0, ! Tracking dust sub-species within hydrometeors + ITRKDUSTIFN = 0, ! Tracing dust that served as ice nuclei + + $END + + $MODEL_SOUND + +!----------------------------------- +! Sounding specification +!----------------------------------- + +! Flags for how sounding is specified + + IPSFLG = 1, ! Specifies what is in PS array + ! 0-pressure(mb) 1-heights(m) + ! PS(1)=sfc press(mb) + + ITSFLG = 2, ! Specifies what is in TS array + ! 0-temp(C) 1-temp(K) 2-pot. temp(K) + + IRTSFLG = 2, ! Specifies what is in RTS array + ! 0-dew pnt.(C) 1-dew pnt.(K) + ! 2-mix rat(g/kg) + ! 3-relative humidity in %, + ! 4-dew pnt depression(K) + + IUSFLG = 0, ! Specifies what is in US and VS arrays + ! 0-u,v component(m/s) + ! 1-umoms-direction, vmoms-speed + + HS = 0., + + PS= 990.00,100.00,210.00,331.00,464.10,610.51,771.56,948.72, + 1143.59,1357.95,1593.74,1853.12,2138.43,2452.27,2797.50,3177.25, + 3594.97,4054.47,4559.92,5115.91,5727.50,6400.25,7140.28, + 7954.30,8849.74,9834.71,10918.18,12100.00,13421.00,14863.09, + 16449.40,18194.34,20113.77,22113.77,24113.77, + +! origonal sounding temps + TS= 306.96,306.96,306.53,306.21,305.94,305.74,305.59,305.50,305.45, + 305.43,305.43,305.46,305.59,306.30,307.83,309.43,311.03,312.19, + 313.57,314.70,315.86,317.51,319.21,320.94,322.51,324.15,327.44, + 337.47,357.59,379.39,403.86,429.98,465.67,503.27,541.52, + + +! origonal sounding dewpoints + RTS= 15.75,15.55,15.36,15.14,14.88,14.58,14.23,13.85,13.43, + 12.93,12.35,11.34,8.69,5.47,3.30,2.51,1.96,1.43,1.17,1.02, + 0.79,0.56,0.36,0.19,0.08,0.02,0.01, + 0.001,0.001,0.001,0.001,0.001,0.001,0.001,0.001, + +! origonal sounding "u" + US=-2.71,-2.71,-3.54,-3.39,-2.78,-1.74,-0.36,1.25,2.94,4.58,6.07, + 7.30,8.53,9.67,10.90,12.09,12.84,15.13,16.70,17.36,17.44, + 17.04,16.83,17.06,18.38,20.39,23.31,28.18,24.82,21.15,17.51, + 9.66,2.01,0.50,-1.04, + + +! origonal sounding "v" + VS= 8.38,8.38,10.66,12.25,13.46,14.26,14.64,14.66,14.41,14.03, + 13.72,13.62,13.83,14.26,15.47,16.03,18.87,19.09,18.60,18.91, + 19.98,21.18,21.62,21.84,22.34,22.70,22.74,19.84,18.16,16.17, + 11.90,8.50,3.47,3.50,3.53, + + $END + + $ISAN_CONTROL + +!----------------------------------- +! Isentropic control +!----------------------------------- + + ISZSTAGE = 1, ! Main switches for isentropic-sigz + IVRSTAGE = 1, ! "varfile" processing + + ISAN_INC = 0600, ! ISAN processing increment (hhmm) + ! range controlled by TIMMAX, + ! IYEAR1,...,ITIME1 + + I1ST_FLG = 2, ! What to do if first guess file (IAPR) + ! should be used but does not exist. + ! 1=I know it may not be there, + ! skip this data time + ! 2=I screwed up, stop the run + + IUPA_FLG = 3, ! UPA-upper air, SFC-surface + ISFC_FLG = 3, ! What to do if other data files should be + ! uesed, but does not exist. + ! 1 = I know it may not be there, + ! skip this data time + ! 2 = I screwed up, stop the run + ! 3 = Try to continue processing anyway + +! Input data file prefixes + IDATAIN = 0, ! 1 = NARR, 0 = All Others + IAPR = './dprep.test/dp-p', ! Input press level dataset + IARAWI = ' ', ! Archived rawindsonde file name + IASRFCE = ' ', ! Archived surface obs file name + +! Header file name for history nudging files (only prefix is used) + VAR_HFILE = './a-A-', + +! File names and dispose flags + + VARPFX = './test.orographic/var', ! isan file names prefix + IOFLGISZ = 0, ! Isen-sigz file flag: 0 = no write, 1 = write + IOFLGVAR = 1, ! Var file flag: 0 = no write, 1 = write + + $END + + $ISAN_ISENTROPIC + +!----------------------------------- +! Isentropic and sigma-z processing +!----------------------------------- + +!----------------------------------- +! Specify isentropic levels +!----------------------------------- + + NISN = 43, ! Number of isentropic levels + LEVTH = 280,282,284,286,288,290,292,294,296,298,300,303,306,309,312, + 315,318,321,324,327,330,335,340,345,350,355,360,380,400,420, + 440,460,480,500,520,540,570,600,630,670,700,750,800, + +!----------------------------------- +! Analyzed grid information: +!----------------------------------- + + NIGRIDS = 1, ! Number of RAMS grids to analyze + + TOPSIGZ = 20000., ! Sigma-z coordinates to about this height + + HYBBOT = 4000., ! Bottom (m) of blended sigma-z/isentropic + ! layer in varfiles + HYBTOP = 6000., ! Top (m) of blended sigma-z/isentropic layr + + SFCINF = 1000., ! Vert influence of sfc observation analysis + + SIGZWT = 1., ! Weight for sigma-z data in varfile: + ! 0.= no sigz data, + ! 1.=full weight from surface to HYBBOT + + NFEEDVAR = 1, ! 1=feed back nested grid varfile, 0=don't + +!----------------------------------- +! Observation number limits: +!----------------------------------- + + MAXSTA = 150, ! maximum number of rawindsondes + ! (archived + special) + MAXSFC = 1000, ! maximum number of surface observations + + NOTSTA = 0, ! Number of stations to be excluded + NOTID = 'r76458', ! Station ID's to be excluded + ! Prefix with 'r' for rawindsonde, + ! 's' for surface + + USED_FILE = 'none', ! Filename prefix to output stations actually + ! used in the analysis + + IOBSWIN = 1800, ! Window (seconds) around analysis time. Obs + ! outside this window will not be used. + + STASEP = .1, ! Minimum sfc station separation in degrees. + ! Any surface obs within this distance + ! of another obs will be thrown out + ! unless it has less missing data, + ! in which case the other obs will be + ! thrown out. + + + IGRIDFL = 3, ! Grid flag=0 if no grid point, only obs + ! 1 if all grid point data and obs + ! 2 if partial grid point and obs + ! 3 if only grid data + ! 4 all data... fast + + + GRIDWT = .01,.01,.01,.01, + ! Relative weight for the gridded press data + ! compared to the observational data in + ! the objective analysis + + + GOBSEP = 5., ! Grid-observation separation (degrees) + GOBRAD = 5., ! Grid-obs proximity radius (degrees) + + WVLNTH = 900.,900.,900.,900., + ! Used in S. Barnes objective analysis. + ! Wavelength in km to be retained to the + ! RESPON % from the data to the upper air + ! grids. + + ! Wavelength for surface objective analysis + SWVLNTH = 300.,300.,300.,300., + + RESPON = .9,.9,.9,.9, ! Percentage of amplitude to be retained. + + $END + diff --git a/bin.rams/RAMSIN.orographic2 b/bin.rams/RAMSIN.orographic2 new file mode 100644 index 0000000..8b66779 --- /dev/null +++ b/bin.rams/RAMSIN.orographic2 @@ -0,0 +1,810 @@ +!namelist + + $MODEL_GRIDS + +! Simulation title (64 chars) + + EXPNME = 'RAMS Simulations', + +! Type of model run to perform + + RUNTYPE = 'INITIAL', +! RUNTYPE = 'MAKESFC', +! RUNTYPE = 'MAKEVFILE', +! RUNTYPE = 'MAKEHFILE', +! RUNTYPE = 'HISTORY', +! RUNTYPE = 'ERROR', + + TIMEUNIT = 's', ! 'h','m','s' - Time units of TIMMAX, TIMSTR + + TIMMAX = 1800., ! Final time of simulation + +! Start of simulation or ISAN processing + + IMONTH1 = 02, ! Month + IDATE1 = 11, ! Day + IYEAR1 = 2007, ! Year + ITIME1 = 1200, ! GMT of model TIME = 0. + +! Grid specifications + + NGRIDS = 2, ! Number of grids to run + + NNXP = 35,72,102,172, ! Number of x gridpoints + NNYP = 35,72,102,172, ! Number of y gridpoints + NNZP = 40,40,45,45, ! Number of z gridpoints + NZG = 8, ! Number of soil layers + NZS = 1, ! Maximum number of snow layers + + NXTNEST = 0,1,2,3, ! Grid number which is the next coarser grid + + IPRNTSTMT = 1, ! Output extra print statements: 0=no,1=yes + +! Coarse grid specifications + + IHTRAN = 1, ! 0-Cartesian, 1-Polar stereo + DELTAX = 15000., ! X-Y grid spacing (meters) + DELTAZ = 75., ! Z grid spacing (set to 0. to use ZZ) + DZRAT = 1.08, ! Vertical grid stretch ratio + DZMAX = 2000., ! Maximum delta Z for vertical stretch + + ZZ = 0.0, ! Vertical levels if DELTAZ = 0 + 20.0, 46.0, 80.0, 120.0, 165.0, + 220.0, 290.0, 380.0, 480.0, 590.0, + 720.0, 870.0, 1030.0, 1200.0, 1380.0, + 1595.0, 1850.0, 2120.0, 2410.0, 2715.0, + 3030.0, 3400.0, 3840.0, 4380.0, 5020.0, + 5800.0, 6730.0, 7700.0, 8700.0, 9700.0, + 10700., 11700., 12700., 13700., 14700., 15700., 16700., + 17700., 18700., 19700., + + DTLONG = 30., ! Coarse grid long timestep + NACOUST = 5, ! Small timestep ratio + + ! Nest ratios between this grid and the next coarser grid. + NSTRATX = 1,5,5,5, ! x-y-direction + NNDTRAT = 1,2,2,3, ! Time + + NESTZ = 0, ! Contort coarser grids if negative + NSTRATZ = 1,1,3,3,3,3,2,2,2,2,1, ! + + POLELAT = 42.65, ! If polar, latitude/longitude of pole point + POLELON = -108.73, + + ! Grid point on the next coarser nest where the lower southwest + ! corner of this nest will start. + ! If NINEST or NJNEST = 0, use CENTLAT/CENTLON + + NINEST = 1,0,0,0, ! i-point + NJNEST = 1,0,0,0, ! j-point + NKNEST = 1,1,1,1, ! k-point + + ! Center lat/lon of grids, may or may not be same as pole point + CENTLAT = 40.88,40.88,40.459, + CENTLON = -106.73,-106.73,-106.75, + + NNSTTOP = 1,1,1,1, ! Flag (0-no or 1-yes) if this + NNSTBOT = 1,1,1,1, ! Nest goes the top or bottom of the + ! coarsest nest. + + $END + + $MODEL_FILE_INFO + +! Variable initialization input + + INITIAL = 2, ! Initial fields - 1=horiz.homogeneous, + ! 2=init from varfile + ! 3=init from history + +! ------ Analysis nudging parameters ----------------------------------------- + NUD_TYPE = 1, ! =0 - no analysis nudging + ! =1 - nudge from varfiles + + VARFPFX = './test.orographic/var', ! Varfile prefix + VWAIT1 = 0., ! wait between each VFILE check (s) + VWAITTOT = 0., ! total wait before giving up on a VFILE (s) + + NUDLAT = 5, ! Number of points in lateral bnd region + TNUDLAT = 900., ! Nudging time scale(s) at lateral boundary + TNUDCENT = 0., ! Nudging time scale(s) in center of domain + TNUDTOP = 900., ! Nudging time scale (s) at top of domain + ZNUDTOP = 16500., ! Nudging at top of domain above height(m) + + WT_NUDGE_G = 1.,0.8,0.7,0.5, ! Relative nudging weights for active grids + ! =0., turns off nudging for that grid + + ! These weights will multiply the base timescales + ! to determine full nudging weight. + ! (Timescales)/(WT_NUDGE_*) + ! must be larger than DTLONG + WT_NUDGE_UV = 1., ! Analysis nudging weight for u and v + WT_NUDGE_TH = 1., ! Analysis nudging weight for theta + WT_NUDGE_PI = 1., ! Analysis nudging weight for pi + WT_NUDGE_RT = 1., ! Analysis nudging weight for r_tot + +!----------- Condensate nudging ----------------------------------------------- +! Only nudge total water where condensate exists. Even if turned on, this +! will not occur using traditional varfiles. Requires use of History-Varfiles +! made from a MAKEHFILE run where condensate is ingested from History files. + + NUD_COND = 0, + TCOND_BEG = 0., ! Model time start of cond nudging (sec) + TCOND_END = 21600., ! Model time end of cond nudging (sec) + T_NUDGE_RC = 3600., ! Cond nudging timescale for r_total + WT_NUDGEC = 1.,0.8,0.7,0.5, ! Relative nudging weights for active grids + ! =0., turns off nudging for that grid + +!--------- Observation Data Assimilation (ODA) -------------------------------- + IF_ODA = 0, ! Flag to turn on oda + ODA_UPAPREF = './zobs/dp-r', ! File prefix for upper air obs + ODA_SFCPREF = './zobs/dt-s', ! File prefix for surface obs + + FRQODA=300., ! Frequency of obs analysis + TODABEG=0., + TODAEND=99999999., ! Model time start and end of oda (sec) + + TNUDODA= 900., ! Nudging timescale for each grid + WT_ODA_GRID = 1.,0.8,0.7,0.5, ! Relative nudging weights for active grids + ! =0., turns off nudging for that grid + + WT_ODA_UV = 1., ! ODA nudging weight for u and v + WT_ODA_TH = 1., ! ODA nudging weight for theta + WT_ODA_PI = 1., ! ODA nudging weight for pi + WT_ODA_RT = 1., ! ODA nudging weight for r_tot + + ! Following are radii that affect the "smoothness" of the analyzed fields + ! The SFCE and UPAE are the radii where the affect falls off to e**(-2) + ! The SFC0 and UPA0 are the radii where the affect falls off to 0 + ! Values are grid dependent. + + RODA_SFCE = 50000.,100.,100.,100., + RODA_SFC0 = 100000.,100000.,100000.,100000., + RODA_UPAE = 100000.,200.,200.,200., + RODA_UPA0 = 200000.,2000.,2000.,2000., + + ! Height at which transition from SFC radii to UPA radii occurs + RODA_HGT = 3000.,3000.,3000.,3000., + + RODA_ZFAC = 100.,100.,100.,100., ! Vertical factor related to dx/dz + + ! - Time interpolate limit (TIL)- if the future-past obs time + ! is > this limit, do not use to interpolate + ! + ! - Time extrapolate limit (TEL)- if past/future obs is greater than TIL, + ! but less than TEL, use the obs + + ODA_SFC_TIL=21600., + ODA_SFC_TEL=900., + ODA_UPA_TIL=43200., + ODA_UPA_TEL=21600., +!------------------------------------------------------------------------------ + +! History start (if RUNTYPE='HISTORY') + + HFILIN = './', + ! Input state file name + +! Analysis file input for assimilation: 1=yes, 0=no + + IPAST_SFC = 0, ! Initialize LEAF fields from history + + ICLOBBER = 1, ! 0=stop if files exist, 1=overwite files + +! Analysis file output + + IOUTPUT = 1, ! 0-no files, 1-write files + AFILEPREF = './test.orographic/a', + ! File prefix for all analysis files + ! state,mean,lite,both + +!------------------------------------------------------------------------------ + FRQSTATE = 21600.,7200.,21600.,900., + ! "state" file write frequency + ! can be different for each grid + ! works best if grids are multiples of each other + FRQST_KEEP = 0., ! If > 0., frequency at which "state" files will be + ! kept. Others will be written, but deleted on + ! the subsequent write. + ! Intended to be a mutiple of and >= FRQSTATE +!------------------------------------------------------------------------------ + FRQLITE = 0., ! Frequency for "lite" files + ! = 0 : no lite files + NLITE_VARS=0, + + LITE_VARS= 'GLAT','GLON','TOPT','PATCH_AREA', !Keep these always + 'UP','VP','WP', + +!------------------------------------------------------------------------------ + AVGTIM = 0., ! Averaging time for analysis variables + ! must be abs(AVGTIM) <= FRQANL + ! > 0 : averaging is centered at FRQANL + ! < 0 : averaging ends at FRQANL + ! = 0 : no averaged files + FRQMEAN = 0., ! Frequency for "averaged" files + FRQBOTH = 0., ! Frequency for Both ("averaged"/"lite") files + +! Input topography variables + + !Path and prefix for topo, surface, sst, ndvi files + TOPFILES = './test.orographic/toph', + SFCFILES = './test.orographic/sfch', + SSTFPFX = './test.orographic/ssth', + NDVIFPFX = './test.orographic/ndh', + + ITOPTFLG = 1,1,1,1, ! 2 - Fill data in "leaf3_init" + ISSTFLG = 1,1,1,1, ! 0 - Interpolate from coarser grid + IVEGTFLG = 1,1,1,1, ! 1 - Read from standard Lat/Lon data file + ISOILFLG = 1,1,1,1, ! + NDVIFLG = 1,1,1,1, ! + + IUPDNDVI = 0, ! 0 - No update of NDVI values during run + IUPDSST = 0, ! 0 - No update of SST values during run + ! 1 - Update values during run + + ! The following only apply for IxxxxFLG=1 + ITOPTFN = '../../sfctypehdf5/DEM30s-h5/EL', + '../../sfctypehdf5/DEM30s-h5/EL', + '../../sfctypehdf5/DEM30s-h5/EL', + '../../sfctypehdf5/DEM30s-h5/EL', + ISSTFN = '../../sfctypehdf5/sst-h5/S', + '../../sfctypehdf5/sst-h5/S', + '../../sfctypehdf5/sst-h5/S', + '../../sfctypehdf5/sst-h5/S', + IVEGTFN = '../../sfctypehdf5/ogedata-h5/GE', + '../../sfctypehdf5/ogedata-h5/GE', + '../../sfctypehdf5/ogedata-h5/GE', + '../../sfctypehdf5/ogedata-h5/GE', + ISOILFN = '../../sfctypehdf5/FAOdata-h5/FAO', + '../../sfctypehdf5/FAOdata-h5/FAO', + '../../sfctypehdf5/FAOdata-h5/FAO', + '../../sfctypehdf5/FAOdata-h5/FAO', + NDVIFN = '../../sfctypehdf5/ndvi-h5/', + '../../sfctypehdf5/ndvi-h5/', + '../../sfctypehdf5/ndvi-h5/', + '../../sfctypehdf5/ndvi-h5/', + +! Topography scheme + + ITOPSFLG = 3,3,3,3, ! 0 = Average Orography + ! 1 = Silhouette Orography + ! 2 = Envelope Orography + ! 3 = Reflected Envelope Orography + + TOPTENH = 1.,1.,1.,1., ! For ITOPSFLG=1, Weighting of topo + ! silhouette averaging + ! For ITOPSFLG=2 or 3, Reflected Envelope + ! and Envelope Orography enhancement factor + + TOPTWVL = 8.,8.,8.,8., ! Topo wavelength cutoff in filter + +! Surface Roughness scheme + + IZ0FLG = 0,0,0,0, ! 0 = Use veg, bare soil and water surface + ! 1 = Also use subgrid scale topography + Z0MAX = 5.,5.,5.,5., ! Max zo for IZ0FLG=1 + Z0FACT = 0.005, ! Subgrid scale orograhic roughness factor + + $END + + $MODEL_OPTIONS + +! Numerical schemes + + ICORFLG = 1, ! Coriolis flag/2D v-component - 0=off, 1=on + + IBND = 1, ! Lateral boundary condition flags + JBND = 1, ! 1-Klemp/Wilhelmson, 2-cyclic + + CPHAS = 20., ! Phase speed if IBND or JBND = 1 + LSFLG = 1, ! Large-scale gradient flag for variables other than + ! normal velocity: + ! 0 = zero gradient inflow and outflow + ! 1 = zero gradient inflow, radiative b.c. outflow + ! 2 = constant inflow, radiative b.c. outflow + ! 3 = constant inflow and outflow + + NFPT = 0, ! Rayleigh friction - number of points from the top + DISTIM = 400., ! - dissipation time scale + +! Radiation parameters + + ISWRTYP = 3, ! Shortwave radiation type + ILWRTYP = 3, ! Longwave radiation type + ! 0-none,2-Mahrer/Pielke,1-Chen,3-Harrington + RADFRQ = 1200., ! Freq. of radiation tendency update (s) + LONRAD = 1, ! Longitudinal variation of shortwave + ! (0-no, 1-yes) + +! Cumulus parameterization parameters + + NNQPARM = 0,0,0,0, ! Convective param (0-off, 1-Kuo, 2-Kain-Fritsch) + CONFRQ = 1200., ! Frequency of conv param. updates (s) + WCLDBS = .01, ! Vertical motion needed at cloud base for + ! to trigger convection (Kuo) + +! KPP mixed-layer single-column ocean model + + IKPP = 0, ! Ocean model (0-off, 1-on, 2-more diagnostics) + DMAXKPP = 1000., ! Maximum ocean depth (meters) + NKPPZ = 98, ! Number of ocean layers (levels = layers+1) + DSCALEKPP = 4., ! Set exponential for stretched grid + FRQKPP = 5., ! Timestep of ocean model (sec) + RELAX_SST = 0., ! Timescale (days) for SST nudging + RELAX_OCNT = 20., ! Timescale (days) for ocean column temp nudging + RELAX_SAL = 20., ! Timescale (days) for ocean column salinity nudging + KPPITERMAX = 20, ! Max number of iterations allowed + KPPRNT = 0, ! Sample output print to screen: 0=no, 1=yes + UBMN_KPP = 3., ! UBMIN for KPP wind stress and LEAF-3 if using KPP + +! Surface layer and soil parameterization + + NPATCH = 3, ! Number of patches per grid cell (min=2) + + NVEGPAT = 2, ! Number of patches per grid cell to be + ! filled from + ! vegetation files + ! (min of 1, max of NPATCH-1) + + ISFCL = 1, ! Surface layer/soil/veg model + ! 0-specified surface layer gradients + ! 1-LEAF3 model, 2-SiB model + + IFREESLIP = 0, ! Freeslip BC: 0=NO, 1=YES + + ! Data file for SIB surface characteristics + SIBFILE = '../etc/SiB-Veg-Morphology.txt', + + ! CO2 vertical profile for SiB submodel initialization. [ppm] + CO2_INIT = 360., 360., 360., 355., 355., 355., 350., 350., 340., + + ISOILDAT = 0, ! Soil moisture and temperature initialization + ! 0 = homogeneous default, 1 = varfile ingest + SNUDCENT = 0., ! Soil moisture interior nudging time scale (sec) + ISNOWDAT = 0, ! Snow depth and mass initialization + ! 0 = homogeneous zero default, 1 = varfile ingest + + NVGCON = 1, ! Vegetation type (see below) + + ! 0 Ocean ! 11 Tundra + ! 1 Lakes, rivers, streams ! 12 Evergreen shrub + ! 2 Ice cap/glacier ! 13 Deciduous shrub + ! 3 Desert, bare soil ! 14 Mixed woodland + ! 4 Evergreen needleleaf tree ! 15 Crop/mixed farming, C3 grassland + ! 5 Deciduous needleleaf tree ! 16 Irrigated crop + ! 6 Deciduous broadleaf tree ! 17 Bog or marsh + ! 7 Evergreen broadleaf tree ! 18 Wooded grassland + ! 8 Short grass ! 19 Urban and built up + ! 9 Tall grass ! 20 Wetland evergreen broadleaf tree + ! 10 Semi-desert ! 21 Very urban + + PCTLCON = 1., ! Constant land % if for all domain + NSLCON = 6, ! Constant soil type if for all domain + + ! 1 -- sand 2 -- loamy sand 3 -- sandy loam + ! 4 -- silt loam 5 -- loam 6 -- sandy clay loam + ! 7 -- silty clay loam 8 -- clay loam 9 -- sandy clay + ! 10 -- silty clay 11 -- clay 12 -- peat + + ZROUGH = .05, ! Constant roughness if for all domain + ALBEDO = .2, ! Constant albedo if not running soil model + SEATMP = 280., ! Constant water surface temperature + + DTHCON = -10., ! Constant sfc layer temp grad for no soil + DRTCON = 0., ! Constant sfc layer moist grad for no soil + + SLZ = -1.2,-.80,-.60,-.40,-.30,-.20,-.10,-.05, + ! Soil grid levels + + SLMSTR = 0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25, + ! Initial soil moisture + + STGOFF = 5.0, 5.0, 5.0, 5.0, 5.0, 3.5, -1.0, -2.0, + ! Initial soil temperature offset + ! from lowest atmospheric level +!------------------------------------------------------------------------------ + +!--------- Eddy diffusion coefficient parameters ------------------------------ + + IDIFFK = 2,2,2, ! K flag: + ! 1 - Horiz deform/Vert Mellor-Yamada + ! 2 - Anisotropic deformormation + ! (horiz & vert differ) + ! 3 - Isotropic deformation + ! (horiz and vert same) + ! 4 - Deardorff TKE (horiz and vert same) + + IDIFFPERTS = 0, ! 0 - Normal scalar diffusion + ! 1 - Diffuse perturbations from base state THP,RTP + ! 2 - Diffuse perturbations from mean state THP,RTP + ! 3 - Diffuse perturbations from varfile state THP,RTP + + IHORGRAD = 1, ! 1 - horiz grad frm decomposed sigma grad + ! 2 - true horizontal gradient. + ! Non-conserving, but allows small DZ + + CSX = .2,.2,.2, ! Deformation horiz. K's coefficient + CSZ = .2,.2,.2, ! Deformation vert. K's coefficient + XKHKM = 3.,3.,3., ! Ratio of horiz K_h to K_m for deformation + ZKHKM = 3.,3.,3., ! Ratio of vert K_h to K_m for deformation + AKMIN = 1.0,1.0,1.5, ! Ratio of minimum horizontal eddy + ! viscosity coefficientto typical value + ! from deformation K + + FRACSAT = 0.99, ! Minimum saturation fraction in the presence + ! of cloud water for applying saturation + ! moist BV equation to diffusion stability + ! criteria. Value of 0.0 uses original formula + ! and only cloud water is required. + +!------Bubble Simulation------------------------------------------------------- + IBUBBLE = 0, ! Bubble initialization: 0 = off + ! 1=square bubble, 2=gaussian bubble + ! 3=random perturbations (user adjust ruser.f90) + IBUBGRD = 1, ! Grid Number On Which To Initialize Bubble + IBDXIA = 45, ! DX start grid point + IBDXIZ = 55, ! DX end grid point + IBDYJA = 15, ! DY start grid point + IBDYJZ = 25, ! DY end grid point + IBDZK1 = 2, ! Lower k level + IBDZK2 = 16, ! Upper k level + BTHP = 2.0, ! Theta-il perturbation(K) (THP + BTHP) + BRTP = 0.2, ! Mixing ratio perturbation (RTP * (1 + BRTP) + +!------Convergence Forcing ---------------------------------------------------- + ICONV = 0, ! Convergence Zone initialization: 0 = off + ! 1=Gaussian in x and y, U and V + ! 2=Gaussian in x and y, U only + ! 3=Gaussian in x and y, V only + ! 4=Gaussian only in x, U only + ! 5=Gaussian only in y, V only + ICONGR = 1, ! Grid for convergence + ICICENT = 100, ! I center grid point + ICJCENT = 100, ! J center grid point + CXRAD = 7000., ! I radius width (meters) + CYRAD = 7000., ! J radius width (meters) + ICVERT = 1, ! Convergence vertical structure + ! 1=Linear decrease w/height and max at sfc + ! 2=Elevated 1/2 vertical wavelength + ICKMAX = 14, ! Max K for ICVERT=1 (ignored for ICVERT=2) + CZRAD = 2000., ! Vertical radius if ICVERT=2 (ignored for ICVERT=1) + ICKCENT = 17, ! K center for ICVERT=2 (ignored for ICVERT=1) + CDIVMAX = -6.1224e-6, ! Divergence amplitude (s^-1) (negative = converge) + CTAU = 1., ! timescale (s) over which conv. zone strength + ! increases to amplitude CDIVMAX + CTMAX = 3600., ! Max time in seconds for convergence zone + ! If ctmax < 0, abs(ctmax) vertical vel thresh past + ! which to terminate conv zone (m/s) + +!----- Non-standard lateral boundary forcing ---------------------------------- + + IAEROLBC = 0,0,0, ! Aerosol profile forcing: 0=no, 1=yes + ICO2LBC = 0,0,0, ! CO2 profile forcing: 0=no, 1=yes + BCTAU = 1.,1.,1., ! (seconds) Inverse time weight + +!----- RCE (Radiative convective equilibrium) simulations Controls ------------ + + IRCE = 0, ! NO RCE setup = 0, YES = 1 + RCE_SZEN = 50.5, ! Constant solar zenith angle (0.-90.degrees) + RCE_SOLC = 650.832, ! Solar constant + RCE_UBMN = 4.0, ! Constant ubmin value (0.1 to 7.0 m/s) + RCE_BUBL = 0.50, ! Factor for IBUBBLE=3 (random temperature pert) + +!----- Extra Tracers and Scalars ---------------------------------------------- + + ITRACER = 0, ! number of tracers. Initialize in init_tracer + ITRACHIST = 0, ! Initialize tracers on history start / restart + +!----- Microphysics ----------------------------------------------------------- + + LEVEL = 3, ! Moisture complexity level + ! (0=dry, 1=vapor only, 2=cloud only, + ! 3=full micro, 4=HUCM-SBM bin micro) + + ISCM = 0, ! Single-column output run (0=off,1=on) + ISCMX = 15, ! X grid point for SCM column output (Grid-1 only) + ISCMY = 21, ! Y grid point for SCM column output (Grid-1 only) + SCMTIME = 1860., ! Time for SCM output (seconds) + + ICHECKMIC = 1, ! Check Micro Negative & Nans: 0=Off,1=on + IMBUDGET = 1, ! Micro budgets: 0=Off,1=partial,2=all,3=all+dust + + IRIME = 1, ! Riming: 0-Bulk, 1-HybridBin + IPLAWS = 2, ! FallSpeed: 0-Original4.3 + ! 1-New (R.Carver,Mitchell96) + ! 2-Banded Plaws for sedimentation + ISEDIM = 1, ! Sedimentation: 0-RelDisp, 1-True Hybrid-Bin + + ICLOUD = 5, ! Microphysics flags + IDRIZ = 5, !------------------- + IRAIN = 5, ! 1 - diagnostic concen. + IPRIS = 5, ! 2 - specified mean diameter + ISNOW = 5, ! 3 - specified y-intercept + IAGGR = 5, ! 4 - specified concentration + IGRAUP = 5, ! 5 - prognostic concentration + IHAIL = 5, + +! Hydrometeor parameters ! Microphysics parameters + ! ----------------------- + CPARM = .3e9, ! Characteristic diameter, # concentration + DPARM = .1e6, ! or y-intercept + RPARM = 1e-3, ! + PPARM = 0., ! Specify values for the given + SPARM = 1e-3, ! microphysics flag where appropriate + APARM = 1e-3, ! + GPARM = 1e-3, ! Only used for "microphysics flags" 1-4 + HPARM = 3e-3, ! + +!Gamma shape pararmeters ! cld rain pris snow aggr graup hail driz + GNU = 4.,2.,2.,2.,2.,2.,2.,4., + +!HUCM parameters + !HUCM data file directory for LEVEL=4 microphys + HUCMFILE = '../etc/HUCM-SBM', + NDTCOLL = 3, !Collision-coalescence called once + !every NDTCOLL time steps + +! Aerosol parameters ! See mic_init.f90 for setting profiles + ! ------------------------------------------ + IAEROSOL = 1, ! CCN,GCCN: 0=off, 1=userset + ISALT = 0, ! Sea Salt: 0=off, 1=userset, 2=saltmodel + IDUST = 0, ! Dust: 0=off, 1=userset 2=dustmodel + + IDUSTLOFT = 0, ! 0 = idealized lofting + ! 1 = Ginoux(2001) erodible fraction data + + !Dust source file name (used if IDUST=2) + !For IDUSTLOFT=1,read DustErodeFrac-Ginoux2001.txt + DUSTFILE = '../etc/DustErodeFrac-Ginoux2001.txt', + + ICCNLEV = 0, ! Aerosol treatment level + ! 0 = no source or sink + ! 1 = nucleation + deposition sink + ! 2 = same as 1 + evaporation regeneration + + IIFN = 1, ! Ice Nuclei treatment level + ! 0 = no ice nuclei + ! 1 = Meyers formula (CIN_MAX) + ! 2 = DeMott(2010) (CIN_MAX) + ! 3 = DeMott(2010) (aerosols D>0.5 microns) + + IIFN_FORMULA = 1, ! DeMott IN Formulation if IIFN = 2 or 3 + ! 1 = DeMott(2010) (composite aerosol types) + ! 2 = DeMott(2014) (dust formula) + + IAERORAD = 0, ! Aerosol-Radiation Model: 0 = Off, 1 = On + + IAERODEP = 0, ! Aerosol wet and dry deposition + ! (track scavenged aerosols if iccnlev>=2) + ! 0 = Off, 1 = On + + ! Aerosol initial maximum concentrations + ! userset option. Default vertical profiles: + ! MAXNUMBER*exp(-zt(k)/7000.) + ! ------------------------------------------ + IAEROPRNT = 1, ! Print aerosol init profiles (0=no,1=yes) + IAEROHIST = 0, ! Re-initialize aerosols on hist restart:0,1 + CIN_MAX = 0.01, ! Ice Nuclei (#/mg) + CCN_MAX = 1500., ! CCN (#/mg) + GCCN_MAX = 1.e-6, ! Giant-CCN (#/mg) + DUST1_MAX = 100., ! Small Dust Mode (#/mg) + DUST2_MAX = 10., ! Large Dust Mode (#/mg) + SALTF_MAX = 100., ! Film Sea Salt (#/mg) + SALTJ_MAX = 1., ! Jet Sea Salt (#/mg) + SALTS_MAX = 1.e-3, ! Spume Sea Salt (#/mg) + + ! Aerosol 9 categories soluble chemistry type: 1=(NH4)2S04, 2=NaCl + IAERO_CHEM = 1,1,1,1,2,2,2,1,1, + + ! Aerosol 9 categories solubility fraction: (0->1) + AERO_EPSILON = 0.90,0.90,0.05,0.05,1.00,1.00,1.00,0.20,0.20, + + ! Aerosol 9 categories initial median radius (meters) + AERO_MEDRAD = 0.04e-6,3.00e-6, !CCN,GCCN + 0.05e-6,0.50e-6, !Dust1,Dust2 + 0.10e-6,1.00e-6,6.00e-6, !SeaSalt: film,jet,spume + 0.01e-6,1.00e-6, !Regenerated 1 & 2 default + + ! Aerosol tracking flags: 0=off, 1=on + ITRKEPSILON = 0, ! Tracking aerosol solubility for regeneration + ITRKDUST = 0, ! Tracking dust sub-species within hydrometeors + ITRKDUSTIFN = 0, ! Tracing dust that served as ice nuclei + + $END + + $MODEL_SOUND + +!----------------------------------- +! Sounding specification +!----------------------------------- + +! Flags for how sounding is specified + + IPSFLG = 1, ! Specifies what is in PS array + ! 0-pressure(mb) 1-heights(m) + ! PS(1)=sfc press(mb) + + ITSFLG = 2, ! Specifies what is in TS array + ! 0-temp(C) 1-temp(K) 2-pot. temp(K) + + IRTSFLG = 2, ! Specifies what is in RTS array + ! 0-dew pnt.(C) 1-dew pnt.(K) + ! 2-mix rat(g/kg) + ! 3-relative humidity in %, + ! 4-dew pnt depression(K) + + IUSFLG = 0, ! Specifies what is in US and VS arrays + ! 0-u,v component(m/s) + ! 1-umoms-direction, vmoms-speed + + HS = 0., + + PS= 990.00,100.00,210.00,331.00,464.10,610.51,771.56,948.72, + 1143.59,1357.95,1593.74,1853.12,2138.43,2452.27,2797.50,3177.25, + 3594.97,4054.47,4559.92,5115.91,5727.50,6400.25,7140.28, + 7954.30,8849.74,9834.71,10918.18,12100.00,13421.00,14863.09, + 16449.40,18194.34,20113.77,22113.77,24113.77, + +! origonal sounding temps + TS= 306.96,306.96,306.53,306.21,305.94,305.74,305.59,305.50,305.45, + 305.43,305.43,305.46,305.59,306.30,307.83,309.43,311.03,312.19, + 313.57,314.70,315.86,317.51,319.21,320.94,322.51,324.15,327.44, + 337.47,357.59,379.39,403.86,429.98,465.67,503.27,541.52, + + +! origonal sounding dewpoints + RTS= 15.75,15.55,15.36,15.14,14.88,14.58,14.23,13.85,13.43, + 12.93,12.35,11.34,8.69,5.47,3.30,2.51,1.96,1.43,1.17,1.02, + 0.79,0.56,0.36,0.19,0.08,0.02,0.01, + 0.001,0.001,0.001,0.001,0.001,0.001,0.001,0.001, + +! origonal sounding "u" + US=-2.71,-2.71,-3.54,-3.39,-2.78,-1.74,-0.36,1.25,2.94,4.58,6.07, + 7.30,8.53,9.67,10.90,12.09,12.84,15.13,16.70,17.36,17.44, + 17.04,16.83,17.06,18.38,20.39,23.31,28.18,24.82,21.15,17.51, + 9.66,2.01,0.50,-1.04, + + +! origonal sounding "v" + VS= 8.38,8.38,10.66,12.25,13.46,14.26,14.64,14.66,14.41,14.03, + 13.72,13.62,13.83,14.26,15.47,16.03,18.87,19.09,18.60,18.91, + 19.98,21.18,21.62,21.84,22.34,22.70,22.74,19.84,18.16,16.17, + 11.90,8.50,3.47,3.50,3.53, + + $END + + $ISAN_CONTROL + +!----------------------------------- +! Isentropic control +!----------------------------------- + + ISZSTAGE = 1, ! Main switches for isentropic-sigz + IVRSTAGE = 1, ! "varfile" processing + + ISAN_INC = 0600, ! ISAN processing increment (hhmm) + ! range controlled by TIMMAX, + ! IYEAR1,...,ITIME1 + + I1ST_FLG = 2, ! What to do if first guess file (IAPR) + ! should be used but does not exist. + ! 1=I know it may not be there, + ! skip this data time + ! 2=I screwed up, stop the run + + IUPA_FLG = 3, ! UPA-upper air, SFC-surface + ISFC_FLG = 3, ! What to do if other data files should be + ! uesed, but does not exist. + ! 1 = I know it may not be there, + ! skip this data time + ! 2 = I screwed up, stop the run + ! 3 = Try to continue processing anyway + +! Input data file prefixes + IDATAIN = 0, ! 1 = NARR, 0 = All Others + IAPR = './dprep.test/dp-p', ! Input press level dataset + IARAWI = ' ', ! Archived rawindsonde file name + IASRFCE = ' ', ! Archived surface obs file name + +! Header file name for history nudging files (only prefix is used) + VAR_HFILE = './a-A-', + +! File names and dispose flags + + VARPFX = './test.orographic/var', ! isan file names prefix + IOFLGISZ = 0, ! Isen-sigz file flag: 0 = no write, 1 = write + IOFLGVAR = 1, ! Var file flag: 0 = no write, 1 = write + + $END + + $ISAN_ISENTROPIC + +!----------------------------------- +! Isentropic and sigma-z processing +!----------------------------------- + +!----------------------------------- +! Specify isentropic levels +!----------------------------------- + + NISN = 43, ! Number of isentropic levels + LEVTH = 280,282,284,286,288,290,292,294,296,298,300,303,306,309,312, + 315,318,321,324,327,330,335,340,345,350,355,360,380,400,420, + 440,460,480,500,520,540,570,600,630,670,700,750,800, + +!----------------------------------- +! Analyzed grid information: +!----------------------------------- + + NIGRIDS = 1, ! Number of RAMS grids to analyze + + TOPSIGZ = 20000., ! Sigma-z coordinates to about this height + + HYBBOT = 4000., ! Bottom (m) of blended sigma-z/isentropic + ! layer in varfiles + HYBTOP = 6000., ! Top (m) of blended sigma-z/isentropic layr + + SFCINF = 1000., ! Vert influence of sfc observation analysis + + SIGZWT = 1., ! Weight for sigma-z data in varfile: + ! 0.= no sigz data, + ! 1.=full weight from surface to HYBBOT + + NFEEDVAR = 1, ! 1=feed back nested grid varfile, 0=don't + +!----------------------------------- +! Observation number limits: +!----------------------------------- + + MAXSTA = 150, ! maximum number of rawindsondes + ! (archived + special) + MAXSFC = 1000, ! maximum number of surface observations + + NOTSTA = 0, ! Number of stations to be excluded + NOTID = 'r76458', ! Station ID's to be excluded + ! Prefix with 'r' for rawindsonde, + ! 's' for surface + + USED_FILE = 'none', ! Filename prefix to output stations actually + ! used in the analysis + + IOBSWIN = 1800, ! Window (seconds) around analysis time. Obs + ! outside this window will not be used. + + STASEP = .1, ! Minimum sfc station separation in degrees. + ! Any surface obs within this distance + ! of another obs will be thrown out + ! unless it has less missing data, + ! in which case the other obs will be + ! thrown out. + + + IGRIDFL = 3, ! Grid flag=0 if no grid point, only obs + ! 1 if all grid point data and obs + ! 2 if partial grid point and obs + ! 3 if only grid data + ! 4 all data... fast + + + GRIDWT = .01,.01,.01,.01, + ! Relative weight for the gridded press data + ! compared to the observational data in + ! the objective analysis + + + GOBSEP = 5., ! Grid-observation separation (degrees) + GOBRAD = 5., ! Grid-obs proximity radius (degrees) + + WVLNTH = 900.,900.,900.,900., + ! Used in S. Barnes objective analysis. + ! Wavelength in km to be retained to the + ! RESPON % from the data to the upper air + ! grids. + + ! Wavelength for surface objective analysis + SWVLNTH = 300.,300.,300.,300., + + RESPON = .9,.9,.9,.9, ! Percentage of amplitude to be retained. + + $END + diff --git a/bin.rams/RAMSIN.supercell b/bin.rams/RAMSIN.supercell new file mode 100644 index 0000000..f8ec88a --- /dev/null +++ b/bin.rams/RAMSIN.supercell @@ -0,0 +1,794 @@ +!namelist + + $MODEL_GRIDS + +! Simulation title (64 chars) + + EXPNME = 'RAMS Simulations', + +! Type of model run to perform + + RUNTYPE = 'INITIAL', +! RUNTYPE = 'MAKESFC', +! RUNTYPE = 'MAKEVFILE', +! RUNTYPE = 'MAKEHFILE', +! RUNTYPE = 'HISTORY', +! RUNTYPE = 'ERROR', + + TIMEUNIT = 's', ! 'h','m','s' - Time units of TIMMAX, TIMSTR + + TIMMAX = 2400., ! Final time of simulation + +! Start of simulation or ISAN processing + + IMONTH1 = 04, ! Month + IDATE1 = 26, ! Day + IYEAR1 = 1991, ! Year + ITIME1 = 2100, ! GMT of model TIME = 0. + +! Grid specifications + + NGRIDS = 1, ! Number of grids to run + + NNXP = 25,30, ! Number of x gridpoints + NNYP = 35,50, ! Number of y gridpoints + NNZP = 40,40, ! Number of z gridpoints + NZG = 11, ! Number of soil layers + NZS = 1, ! Maximum number of snow layers + + NXTNEST = 0,1, ! Grid number which is the next coarser grid + + IPRNTSTMT = 1, ! Output extra print statements: 0=no,1=yes + +! Coarse grid specifications + + IHTRAN = 0, ! 0-Cartesian, 1-Polar stereo + DELTAX = 2000., ! X-Y grid spacing (meters) + DELTAZ = 100., ! Z grid spacing (set to 0. to use ZZ) + DZRAT = 1.10, ! Vertical grid stretch ratio + DZMAX = 1000., ! Maximum delta Z for vertical stretch + + ZZ = 0.0, ! Vertical levels if DELTAZ = 0 + 20.0, 46.0, 80.0, 120.0, 165.0, + 220.0, 290.0, 380.0, 480.0, 590.0, + 720.0, 870.0, 1030.0, 1200.0, 1380.0, + 1595.0, 1850.0, 2120.0, 2410.0, 2715.0, + 3030.0, 3400.0, 3840.0, 4380.0, 5020.0, + 5800.0, 6730.0, 7700.0, 8700.0, 9700.0, + 10700., 11700., 12700., 13700., 14700., 15700., 16700., + 17700., 18700., 19700., + + DTLONG = 10., ! Coarse grid long timestep + NACOUST = 5, ! Small timestep ratio + + ! Nest ratios between this grid and the next coarser grid. + NSTRATX = 1,2,5,4, ! x-y-direction + NNDTRAT = 1,2,3,3, ! Time + + NESTZ = 0, ! Contort coarser grids if negative + NSTRATZ = 1,1,3,3,3,3,2,2,2,2,1, ! + + POLELAT = 37.0, ! If polar, latitude/longitude of pole point + POLELON = -97.5, + + ! Grid point on the next coarser nest where the lower southwest + ! corner of this nest will start. + ! If NINEST or NJNEST = 0, use CENTLAT/CENTLON + + NINEST = 1,0,0,0, ! i-point + NJNEST = 1,0,0,0, ! j-point + NKNEST = 1,1,1,1, ! k-point + + CENTLAT = 37.0,37.0, ! Center lat/lon of grids, may or + CENTLON = -97.5,-97.5, ! may not be same as pole point + + NNSTTOP = 1,1,1,1, ! Flag (0-no or 1-yes) if this + NNSTBOT = 1,1,1,1, ! Nest goes the top or bottom of the + ! coarsest nest. + + $END + + $MODEL_FILE_INFO + +! Variable initialization input + + INITIAL = 1, ! Initial fields - 1=horiz.homogeneous, + ! 2=init from varfile + ! 3=init from history + +! ------ Analysis nudging parameters ----------------------------------- + NUD_TYPE = 0, ! =0 - no analysis nudging + ! =1 - nudge from varfiles + + VARFPFX = './var', ! Varfile prefix + VWAIT1 = 0., ! wait between each VFILE check (s) + VWAITTOT = 0., ! total wait before giving up on a VFILE (s) + + NUDLAT = 5, ! Number of points in lateral bnd region + TNUDLAT = 900., ! Nudging time scale(s) at lateral boundary + TNUDCENT = 0., ! Nudging time scale(s) in center of domain + TNUDTOP = 00., ! Nudging time scale (s) at top of domain + ZNUDTOP = 15000., ! Nudging at top of domain above height(m) + + WT_NUDGE_G = 1., 0.8, 0.7, 0.5, ! Relative nudging weights for active grids + ! =0., turns off nudging for that grid + + ! These weights will multiply the base timescales + ! to determine full nudging weight. + ! (Timescales)/(WT_NUDGE_*) + ! must be larger than DTLONG + WT_NUDGE_UV = 1., ! Anal nudging weight for u and v + WT_NUDGE_TH = 1., ! Anal nudging weight for theta + WT_NUDGE_PI = 1., ! Anal nudging weight for pi + WT_NUDGE_RT = 1., ! Anal nudging weight for r_tot + +!------------------------------------------------------------------------- + +!----------- Condensate nudging ------------------------------------------ +! Only nudge total water where condensate exists. Even if turned on, this +! will not occur using traditional varfiles. Requires use of History-Varfiles +! made from a MAKEHFILE run where condensate is ingested from History files. + + NUD_COND = 0, + TCOND_BEG = 0., ! Model time start of cond nudging (sec) + TCOND_END = 21600., ! Model time end of cond nudging (sec) + T_NUDGE_RC = 3600., ! Cond nudging timescale for r_total + WT_NUDGEC = 1.,0.8,0.7,0.5, ! Relative nudging weights for active grids + ! =0., turns off nudging for that grid +!------------------------------------------------------------------------- + +!--------- Observation Data Assimilation (ODA) --------------------------------- + IF_ODA = 0, ! Flag to turn on oda + ODA_UPAPREF = './zobs/dp-r', ! File prefix for upper air obs + ODA_SFCPREF = './zobs/dt-s', ! File prefix for surface obs + + FRQODA=300., ! Frequency of obs analysis + TODABEG=0., + TODAEND=99999999., ! Model time start and end of oda (sec) + + TNUDODA= 900., ! Nudging timescale for each grid + WT_ODA_GRID = 1., 0.8, 0.7, 0.5, ! Relative nudging weights for active grids + ! =0., turns off nudging for that grid + + WT_ODA_UV = 1., ! ODA nudging weight for u and v + WT_ODA_TH = 1., ! ODA nudging weight for theta + WT_ODA_PI = 1., ! ODA nudging weight for pi + WT_ODA_RT = 1., ! ODA nudging weight for r_tot + + ! Following are radii that affect the "smoothness" of the analyzed fields + ! The SFCE and UPAE are the radii where the affect falls off to e**(-2) + ! The SFC0 and UPA0 are the radii where the affect falls off to 0 + ! Values are grid dependent. + + RODA_SFCE = 50000.,100.,100.,100., + RODA_SFC0 = 100000.,100000.,100000.,100000., + RODA_UPAE = 100000.,200.,200.,200., + RODA_UPA0 = 200000.,2000.,2000.,2000., + + RODA_HGT = 3000.,3000.,3000.,3000., ! Height at which transition from SFC radii + ! to UPA radii occurs + + RODA_ZFAC = 100.,100.,100.,100., ! Vertical factor related to dx/dz + + ! - Time interpolate limit (TIL)- if the future-past obs time + ! is > this limit, do not use to interpolate + ! + ! - Time extrapolate limit (TEL)- if past/future obs is greater than TIL, + ! but less than TEL, use the obs + + ODA_SFC_TIL=21600., + ODA_SFC_TEL=900., + ODA_UPA_TIL=43200., + ODA_UPA_TEL=21600., +!------------------------------------------------------------------------ + +! History start (if RUNTYPE='HISTORY') + + HFILIN = './test.supercell/a-A-1991-04-26-213000-head.txt', + ! Input state file name + +! Analysis file input for assimilation: 1=yes, 0=no + + IPAST_SFC = 0, ! Initialize LEAF fields from history + +!------------------------------------------------------------------------ + ICLOBBER = 1, ! 0=stop if files exist, 1=overwite files +!------------------------------------------------------------------------ + +! Analysis file output + + IOUTPUT = 1, ! 0-no files, 1-write files + AFILEPREF = './test.supercell/a', + ! File prefix for all analysis files + ! state,mean,lite,both + +!------------------------------------------------------------------------ + FRQSTATE = 600.,600.,3600.,1800., ! "state" file write frequency + ! can be different for each grid + ! works best if grids are multiples of each other + FRQST_KEEP = 0., ! If > 0., frequency at which "state" files will be + ! kept. Others will be written, but deleted on + ! the subsequent write. + ! Intended to be a mutiple of and >= FRQSTATE +!----------------------------------------------------------------------- + FRQLITE = 0., ! Frequency for "lite" files + ! = 0 : no lite files + NLITE_VARS=0, + + LITE_VARS= 'GLAT','GLON','TOPT','PATCH_AREA', !Keep these always + 'UP','VP','WP', !This would be useful for hi-frequency trajectories + +!----------------------------------------------------------------------- + AVGTIM = 0., ! Averaging time for analysis variables + ! must be abs(AVGTIM) <= FRQANL + ! > 0 : averaging is centered at FRQANL + ! < 0 : averaging ends at FRQANL + ! = 0 : no averaged files + FRQMEAN = 0., ! Frequency for "averaged" files + FRQBOTH = 0., ! Frequency for Both ("averaged"/"lite") files + +! Input topography variables + + TOPFILES = './test.supercell/toph', ! Path and prefix for topo files. + SFCFILES = './test.supercell/sfch', ! Path and prefix for surface files. + SSTFPFX = './test.supercell/ssth', ! Path and prefix for sst files + NDVIFPFX = './test.supercell/ndh', ! Path and prefix for ndni files + + ITOPTFLG = 2,0,0,0, ! 2 - Fill data in "leaf3_init" + ISSTFLG = 2,2,0,0, ! 0 - Interpolate from coarser grid + IVEGTFLG = 2,2,0,0, ! 1 - Read from standard Lat/Lon data file + ISOILFLG = 2,2,0,0, ! + NDVIFLG = 2,2,0,0, ! + + IUPDNDVI = 0, ! 0 - No update of NDVI values during run + IUPDSST = 0, ! 0 - No update of SST values during run + ! 1 - Update values during run + + ! The following only apply for IxxxxFLG=1 + ITOPTFN = '../../sfctypehdf5/DEM30s-h5/EL', + '../../sfctypehdf5/DEM30s-h5/EL', + ISSTFN = '../../sfctypehdf5/sst-h5/S', + '../../sfctypehdf5/sst-h5/S', + IVEGTFN = '../../sfctypehdf5/ogedata-h5/GE', + '../../sfctypehdf5/ogedata-h5/GE', + ISOILFN = '../../sfctypehdf5/FAOdata-h5/FAO', + '../../sfctypehdf5/FAOdata-h5/FAO', + NDVIFN = '../../sfctypehdf5/ndvi-h5/', + '../../sfctypehdf5/ndvi-h5/', + +! Topography scheme + + ITOPSFLG = 3,3,3,3, ! 0 = Average Orography + ! 1 = Silhouette Orography + ! 2 = Envelope Orography + ! 3 = Reflected Envelope Orography + + TOPTENH = 1.,1.,1.,1., ! For ITOPSFLG=1, Weighting of topo + ! silhouette averaging + ! For ITOPSFLG=2 or 3, Reflected Envelope + ! and Envelope Orography enhancement factor + + TOPTWVL = 4.,4.,4.,4., ! Topo wavelength cutoff in filter + +! Surface Roughness scheme + + IZ0FLG = 0,0,0,0, ! 0 = Use veg, bare soil and water surface + ! 1 = Also use subgrid scale topography + Z0MAX = 5.,5.,5.,5., ! Max zo for IZ0FLG=1 + Z0FACT = 0.005, ! Subgrid scale orograhic roughness factor + + $END + + $MODEL_OPTIONS + +! Numerical schemes + + ICORFLG = 1, ! Coriolis flag/2D v-component - 0=off, 1=on + + IBND = 1, ! Lateral boundary condition flags + JBND = 1, ! 1-Klemp/Wilhelmson, 2-cyclic + + CPHAS = 30., ! Phase speed if IBND or JBND = 1 + LSFLG = 1, ! Large-scale gradient flag for variables other than + ! normal velocity: + ! 0 = zero gradient inflow and outflow + ! 1 = zero gradient inflow, radiative b.c. outflow + ! 2 = constant inflow, radiative b.c. outflow + ! 3 = constant inflow and outflow + NFPT = 4, ! Rayleigh friction - number of points from the top + DISTIM = 60., ! - dissipation time scale + +! Radiation parameters + + ISWRTYP = 3, ! Shortwave radiation type + ILWRTYP = 3, ! Longwave radiation type + ! 0-none, 2-Mahrer/Pielke, 1-Chen, 3-Harrington + RADFRQ = 600., ! Freq. of radiation tendency update (s) + LONRAD = 1, ! Longitudinal variation of shortwave + ! (0-no, 1-yes) + +! Cumulus parameterization parameters + + NNQPARM = 0,0,0,0, ! Convective param (0-off,1-Kuo,2-Kain-Fritsch) + CONFRQ = 1200., ! Frequency of conv param. updates (s) + WCLDBS = .01, ! Vertical motion needed at cloud base for + ! to trigger convection (Kuo) + +! KPP mixed-layer single-column ocean model + + IKPP = 1, ! Ocean model (0-off, 1-on, 2-more diagnostics) + DMAXKPP = 500., ! Maximum ocean depth (meters) + NKPPZ = 48, ! Number of ocean layers (levels = layers+1) + DSCALEKPP = 3., ! Set exponential for stretched grid + FRQKPP = 120., ! Timestep of ocean model (sec) + RELAX_SST = 0., ! Timescale (days) for SST nudging + RELAX_OCNT = 20., ! Timescale (days) for ocean column temp nudging + RELAX_SAL = 20., ! Timescale (days) for ocean column salinity nudging + KPPITERMAX = 20, ! Max number of iterations allowed + KPPRNT = 0, ! Sample output print to screen: 0=no, 1=yes + UBMN_KPP = 3., ! UBMIN for KPP wind stress and LEAF-3 if using KPP + +! Surface layer and soil parameterization + + NPATCH = 2, ! Number of patches per grid cell (min=2) + + NVEGPAT = 1, ! Number of patches per grid cell to be + ! filled from + ! vegetation files + ! (min of 1, max of NPATCH-1) + + ISFCL = 1, ! Surface layer/soil/veg model + ! 0-specified surface layer gradients + ! 1-LEAF3 model, 2-SiB model + + IFREESLIP = 0, ! Freeslip BC: 0=NO, 1=YES + + ! Data file for SIB surface characteristics + SIBFILE = '../etc/SiB-Veg-Morphology.txt', + + ! CO2 vertical profile for SiB submodel initialization. [ppm] + CO2_INIT = 360., 360., 360., 355., 355., 355., 350., 350., 340., + + ISOILDAT = 0, ! Soil moisture and temperature initialization + ! 0 = homogeneous default, 1 = varfile ingest + SNUDCENT = 0., ! Soil moisture interior nudging time scale (sec) + ISNOWDAT = 0, ! Snow depth and mass initialization + ! 0 = homogeneous zero default, 1 = varfile ingest + + NVGCON = 3, ! Vegetation type (see below) + + ! 0 Ocean ! 11 Tundra + ! 1 Lakes, rivers, streams ! 12 Evergreen shrub + ! 2 Ice cap/glacier ! 13 Deciduous shrub + ! 3 Desert, bare soil ! 14 Mixed woodland + ! 4 Evergreen needleleaf tree ! 15 Crop/mixed farming, C3 grassland + ! 5 Deciduous needleleaf tree ! 16 Irrigated crop + ! 6 Deciduous broadleaf tree ! 17 Bog or marsh + ! 7 Evergreen broadleaf tree ! 18 Wooded grassland + ! 8 Short grass ! 19 Urban and built up + ! 9 Tall grass ! 20 Wetland evergreen broadleaf tree + ! 10 Semi-desert ! 21 Very urban + + PCTLCON = 0.7, ! Constant land % if for all domain + NSLCON = 6, ! Constant soil type if for all domain + + ! 1 -- sand 2 -- loamy sand 3 -- sandy loam + ! 4 -- silt loam 5 -- loam 6 -- sandy clay loam + ! 7 -- silty clay loam 8 -- clay loam 9 -- sandy clay + ! 10 -- silty clay 11 -- clay 12 -- peat + + ZROUGH = .05, ! Constant roughness if for all domain + ALBEDO = .2, ! Constant albedo if not running soil model + SEATMP = 300., ! Constant water surface temperature + + DTHCON = 0., ! Constant sfc layer temp grad for no soil + DRTCON = 0., ! Constant sfc layer moist grad for no soil + + SLZ = -.50,-.40,-.30,-.25,-.20,-.16,-.12,-.09,-.06,-.03,-.01, + ! Soil grid levels + + SLMSTR = 0.35,0.35,0.35,0.35,0.35,0.35,0.35,0.35,0.35,0.35,0.35, + ! Initial soil moisture + + STGOFF = 5.,5.,5.,5.,3.5,2.,.5,-1.,-1.5,-1.8,-2., + ! Initial soil temperature offset + ! from lowest atmospheric level +!-------------------------------------------------------------------------- + +!--------- Eddy diffusion coefficient parameters ----------------------- + + IDIFFK = 2,2,2,2, ! K flag: + ! 1 - Horiz deform/Vert Mellor-Yamada + ! 2 - Anisotropic deformormation + ! (horiz & vert differ) + ! 3 - Isotropic deformation + ! (horiz and vert same) + ! 4 - Deardorff TKE (horiz and vert same) + + IDIFFPERTS = 0, ! 0 - Normal scalar diffusion + ! 1 - Diffuse perturbations from base state THP,RTP + ! 2 - Diffuse perturbations from mean state THP,RTP + ! 3 - Diffuse perturbations from varfile state THP,RTP + + IHORGRAD = 2, ! 1 - horiz grad frm decomposed sigma grad + ! 2 - true horizontal gradient. + ! Non-conserving, but allows small DZ + + CSX = .2,.2,.2,.2, ! Deformation horiz. K's coefficient + CSZ = .2,.2,.2,.2, ! Deformation vert. K's coefficient + XKHKM = 3.,3.,3.,3., ! Ratio of horiz K_h to K_m for deformation + ZKHKM = 3.,3.,3.,3., ! Ratio of vert K_h to K_m for deformation + AKMIN = 2.,2.,1.5,1.5, ! Ratio of minimum horizontal eddy + ! viscosity coefficientto typical value + ! from deformation K + + FRACSAT = 0.99, ! Minimum saturation fraction in the presence + ! of cloud water for applying saturation + ! moist BV equation to diffusion stability + ! criteria. Value of 0.0 uses original formula + ! and only cloud water is required. +!------Bubble Simulation-------------------------------------------------- + IBUBBLE = 1, ! Bubble initialization: 0 = off + ! 1=square bubble, 2=gaussian bubble + ! 3=random perturbations (user adjust ruser.f90) + IBUBGRD = 1, ! Grid Number On Which To Initialize Bubble + IBDXIA = 5, ! DX start grid point + IBDXIZ = 13, ! DX end grid point + IBDYJA = 5, ! DY start grid point + IBDYJZ = 13, ! DY end grid point + IBDZK1 = 2, ! Lower k level + IBDZK2 = 16, ! Upper k level + BTHP = 3.0, ! Theta-il perturbation(K) (THP + BTHP) + BRTP = 0.2, ! Mixing ratio perturbation (RTP * (1 + BRTP) + +!------Convergence Forcing ----------------------------------------------- + ICONV = 0, ! Convergence Zone initialization: 0 = off + ! 1=Gaussian in x and y, U and V + ! 2=Gaussian in x and y, U only + ! 3=Gaussian in x and y, V only + ! 4=Gaussian only in x, U only + ! 5=Gaussian only in y, V only + ICONGR = 1, ! Grid for convergence + ICICENT = 100, ! I center grid point + ICJCENT = 100, ! J center grid point + CXRAD = 7000., ! I radius width (meters) + CYRAD = 7000., ! J radius width (meters) + ICVERT = 1, ! Convergence vertical structure + ! 1=Linear decrease w/height and max at sfc + ! 2=Elevated 1/2 vertical wavelength + ICKMAX = 14, ! Max K for ICVERT=1 (ignored for ICVERT=2) + CZRAD = 2000., ! Vertical radius for ICVERT=2 (ignored for ICVERT=1) + ICKCENT = 17, ! K center for ICVERT=2 (ignored for ICVERT=1) + CDIVMAX = -6.1224e-6, ! Divergence amplitude (s^-1) (negative = convergence) + CTAU = 1., ! timescale (s) over which conv. zone strength + ! increases to amplitude CDIVMAX + CTMAX = 3600., ! Max time in seconds for convergence zone + ! If ctmax < 0, abs(ctmax) vertical vel thresh past + ! which to terminate conv zone (m/s) + +!----- Non-standard lateral boundary forcing ----------------------------- + + IAEROLBC = 0,0,0, ! Aerosol profile forcing: 0=no, 1=yes + ICO2LBC = 0,0,0, ! CO2 profile forcing: 0=no, 1=yes + BCTAU = 1.,1.,1., ! (seconds) Inverse time weight + +!----- RCE (Radiative convective equilibrium) simulations Controls ------- + + IRCE = 0, ! NO RCE setup = 0, YES = 1 + RCE_SZEN = 50.5, ! Constant solar zenith angle (0.0 to 90.0 deg) + RCE_SOLC = 650.832, ! Solar constant + RCE_UBMN = 4.0, ! Constant ubmin value (0.1 to 7.0 m/s) + RCE_BUBL = 0.50, ! Max temperature perturbation (Kelvin) (IBUBBLE=3) + +!----- Extra Tracers and Scalars ----------------------------------------- + + ITRACER = 0, ! Number of tracers. Initialize in init_tracer + ITRACHIST = 0, ! Initialize tracers on history start / restart + +!----- Microphysics ------------------------------------------------------ + + LEVEL = 3, ! Moisture complexity level + ! (0=dry, 1=vapor only, 2=cloud only, + ! 3=full micro, 4=HUCM-SBM bin micro) + + ISCM = 0, ! Single-column output run (0=off,1=on) + ISCMX = 15, ! X grid point for SCM column output (Grid-1 only) + ISCMY = 21, ! Y grid point for SCM column output (Grid-1 only) + SCMTIME = 1800., ! Time for SCM output (seconds) + + ICHECKMIC = 1, ! Check Micro Negative & Nans: 0=Off,1=on + IMBUDGET = 3, ! Micro budgets: 0=Off,1=partial,2=all,3=all+dust + + IRIME = 1, ! Riming: 0-Bulk, 1-HybridBin + IPLAWS = 2, ! FallSpeed: 0-Original4.3 + ! 1-New (R.Carver,Mitchell96) + ! 2-New Banded Plaws for sedimentation + ISEDIM = 1, ! Sedimentation: 0-RelDisp, 1-True Hybrid-Bin + + ICLOUD = 5, ! Microphysics flags + IDRIZ = 5, !------------------- + IRAIN = 5, ! 1 - diagnostic concen. + IPRIS = 5, ! 2 - specified mean diameter + ISNOW = 5, ! 3 - specified y-intercept + IAGGR = 5, ! 4 - specified concentration + IGRAUP = 5, ! 5 - prognostic concentration + IHAIL = 5, + +! Hydrometeor parameters ! Microphysics parameters + ! ----------------------- + CPARM = .3e9, ! Characteristic diameter, # concentration + DPARM = .1e6, ! or y-intercept + RPARM = 1e-3, ! + PPARM = 0., ! Specify values for the given + SPARM = 1e-3, ! microphysics flag where appropriate + APARM = 1e-3, ! + GPARM = 1e-3, ! Only used for "microphysics flags" 1-4 + HPARM = 3e-3, ! + +!Gamma shape pararmeters ! cld rain pris snow aggr graup hail driz + GNU = 4.,2.,2.,2.,2.,2.,2.,4., + +!HUCM parameters + !HUCM data file directory for LEVEL=4 microphysics + HUCMFILE = '../etc/HUCM-SBM', + NDTCOLL = 3, !Collision-coalescence called once + !every NDTCOLL time steps + +! Aerosol parameters ! See mic_init.f90 for setting profiles + ! ------------------------------------------ + IAEROSOL = 1, ! CCN,GCCN: 0=off, 1=userset + ISALT = 1, ! Sea Salt: 0=off, 1=userset, 2=saltmodel + IDUST = 1, ! Dust: 0=off, 1=userset 2=dustmodel + + IDUSTLOFT = 0, ! 0 = idealized lofting + ! 1 = Ginoux(2001) erodible fraction data + + !Dust source file name (used if IDUST=2) + !For IDUSTLOFT=1,read DustErodeFrac-Ginoux2001.txt + DUSTFILE = '../etc/DustErodeFrac-Ginoux2001.txt', + + ICCNLEV = 2, ! Aerosol treatment level + ! 0 = no source or sink + ! 1 = nucleation + deposition sink + ! 2 = same as 1 + evaporation regeneration + + IIFN = 3, ! Ice Nuclei treatment level + ! 0 = no ice nuclei + ! 1 = Meyers formula (CIN_MAX) + ! 2 = DeMott(2010) (CIN_MAX) + ! 3 = DeMott(2010) (aerosols D>0.5 microns) + + IIFN_FORMULA = 2, ! DeMott IN Formulation if IIFN = 2 or 3 + ! 1 = DeMott(2010) (composite aerosol types) + ! 2 = DeMott(2014) (dust formula) + + IAERORAD = 1, ! Aerosol-Radiation Model: 0 = Off, 1 = On + + IAERODEP = 1, ! Aerosol wet and dry deposition + ! (track scavenged aerosols if iccnlev>=2) + ! 0 = Off, 1 = On + + ! Aerosol initial maximum concentrations + ! userset option. Default vertical profiles: + ! MAXNUMBER*exp(-zt(k)/7000.) + ! ------------------------------------------ + IAEROPRNT = 1, ! Print aerosol init profiles (0=no,1=yes) + IAEROHIST = 0, ! Re-initialize aerosols on hist restart:0,1 + CIN_MAX = 0.01, ! Ice Nuclei (#/mg) + CCN_MAX = 1000., ! CCN (#/mg) + GCCN_MAX = 0.01, ! Giant-CCN (#/mg) + DUST1_MAX = 100., ! Small Dust Mode (#/mg) + DUST2_MAX = 10., ! Large Dust Mode (#/mg) + SALTF_MAX = 100., ! Film Sea Salt (#/mg) + SALTJ_MAX = 0.1, ! Jet Sea Salt (#/mg) + SALTS_MAX = 1.e-3, ! Spume Sea Salt (#/mg) + + ! Aerosol 9 categories soluble chemistry type: 1=(NH4)2S04, 2=NaCl + IAERO_CHEM = 1,1,1,1,2,2,2,1,1, + + ! Aerosol 9 categories solubility fraction: (0->1) + AERO_EPSILON = 0.90,0.90,0.05,0.05,1.00,1.00,1.00,0.20,0.20, + + ! Aerosol 9 categories initial median radius (meters) + AERO_MEDRAD = 0.04e-6,3.00e-6, !CCN,GCCN + 0.05e-6,0.50e-6, !Dust1,Dust2 + 0.10e-6,1.00e-6,6.00e-6, !SeaSalt: film,jet,spume + 0.01e-6,1.00e-6, !Regenerated 1 & 2 default + + ! Aerosol tracking flags: 0=off, 1=on + ITRKEPSILON = 1, ! Tracking aerosol solubility for regeneration + ITRKDUST = 1, ! Tracking dust sub-species within hydrometeors + ITRKDUSTIFN = 1, ! Tracing dust that served as ice nuclei + + $END + + $MODEL_SOUND + +!----------------------------------- +! Sounding specification +!----------------------------------- + +! Flags for how sounding is specified + + IPSFLG = 1, ! Specifies what is in PS array + ! 0-pressure(mb) 1-heights(m) + ! PS(1)=sfc press(mb) + + ITSFLG = 2, ! Specifies what is in TS array + ! 0-temp(C) 1-temp(K) 2-pot. temp(K) + + IRTSFLG = 2, ! Specifies what is in RTS array + ! 0-dew pnt.(C) 1-dew pnt.(K) + ! 2-mix rat(g/kg) + ! 3-relative humidity in %, + ! 4-dew pnt depression(K) + + IUSFLG = 0, ! Specifies what is in US and VS arrays + ! 0-u,v component(m/s) + ! 1-umoms-direction, vmoms-speed + + HS = 0., + + PS= 990.00,100.00,210.00,331.00,464.10,610.51,771.56,948.72, + 1143.59,1357.95,1593.74,1853.12,2138.43,2452.27,2797.50,3177.25, + 3594.97,4054.47,4559.92,5115.91,5727.50,6400.25,7140.28, + 7954.30,8849.74,9834.71,10918.18,12100.00,13421.00,14863.09, + 16449.40,18194.34,20113.77,22113.77,24113.77, + +! original sounding temps + TS= 306.96,306.96,306.53,306.21,305.94,305.74,305.59,305.50,305.45, + 305.43,305.43,305.46,305.59,306.30,307.83,309.43,311.03,312.19, + 313.57,314.70,315.86,317.51,319.21,320.94,322.51,324.15,327.44, + 337.47,357.59,379.39,403.86,429.98,465.67,503.27,541.52, + +! original sounding dewpoints + RTS= 15.75,15.55,15.36,15.14,14.88,14.58,14.23,13.85,13.43, + 12.93,12.35,11.34,8.69,5.47,3.30,2.51,1.96,1.43,1.17,1.02, + 0.79,0.56,0.36,0.19,0.08,0.02,0.01, + 0.001,0.001,0.001,0.001,0.001,0.001,0.001,0.001, + +! original sounding "u" + US=-2.71,-2.71,-3.54,-3.39,-2.78,-1.74,-0.36,1.25,2.94,4.58,6.07, + 7.30,8.53,9.67,10.90,12.09,12.84,15.13,16.70,17.36,17.44, + 17.04,16.83,17.06,18.38,20.39,23.31,28.18,24.82,21.15,17.51, + 9.66,2.01,0.50,-1.04, + +! original sounding "v" + VS= 8.38,8.38,10.66,12.25,13.46,14.26,14.64,14.66,14.41,14.03, + 13.72,13.62,13.83,14.26,15.47,16.03,18.87,19.09,18.60,18.91, + 19.98,21.18,21.62,21.84,22.34,22.70,22.74,19.84,18.16,16.17, + 11.90,8.50,3.47,3.50,3.53, + + $END + + $ISAN_CONTROL + +!----------------------------------- +! Isentropic control +!----------------------------------- + + ISZSTAGE = 1, ! Main switches for isentropic-sigz + IVRSTAGE = 1, ! "varfile" processing + + ISAN_INC = 0600, ! ISAN processing increment (hhmm) + ! range controlled by TIMMAX, + ! IYEAR1,...,ITIME1 + + I1ST_FLG = 2, ! What to do if first guess file (IAPR) + ! should be used but does not exist. + ! 1=I know it may not be there, + ! skip this data time + ! 2=I screwed up, stop the run + + IUPA_FLG = 3, ! UPA-upper air, SFC-surface + ISFC_FLG = 3, ! What to do if other data files should be + ! uesed, but does not exist. + ! 1 = I know it may not be there, + ! skip this data time + ! 2 = I screwed up, stop the run + ! 3 = Try to continue processing anyway + +! Input data file prefixes + IDATAIN = 0, ! dp-p files have: 0=Relhum, 1=specific humidity + IAPR = './dp-p', ! Input press level dataset + IARAWI = ' ', ! Archived rawindsonde file name + IASRFCE = ' ', ! Archived surface obs file name + +! Header file name for history nudging files (only prefix is used) + VAR_HFILE = './a-A-', + +! File names and dispose flags + + VARPFX = './var', ! isan file names prefix + IOFLGISZ = 0, ! Isen-sigz file flag: 0 = no write, 1 = write + IOFLGVAR = 1, ! Var file flag: 0 = no write, 1 = write + + $END + + $ISAN_ISENTROPIC + +!----------------------------------- +! Isentropic and sigma-z processing +!----------------------------------- + +!----------------------------------- +! Specify isentropic levels +!----------------------------------- + + NISN = 43, ! Number of isentropic levels + LEVTH = 280,282,284,286,288,290,292,294,296,298,300,303,306,309,312, + 315,318,321,324,327,330,335,340,345,350,355,360,380,400,420, + 440,460,480,500,520,540,570,600,630,670,700,750,800, + +!----------------------------------- +! Analyzed grid information: +!----------------------------------- + + NIGRIDS = 4, ! Number of RAMS grids to analyze + + TOPSIGZ = 20000., ! Sigma-z coordinates to about this height + + HYBBOT = 4000., ! Bottom (m) of blended sigma-z/isentropic + ! layer in varfiles + HYBTOP = 6000., ! Top (m) of blended sigma-z/isentropic layr + + SFCINF = 1000., ! Vert influence of sfc observation analysis + + SIGZWT = 1., ! Weight for sigma-z data in varfile: + ! 0.= no sigz data, + ! 1.=full weight from surface to HYBBOT + + NFEEDVAR = 1, ! 1=feed back nested grid varfile, 0=don't + +!----------------------------------- +! Observation number limits: +!----------------------------------- + + MAXSTA = 150, ! maximum number of rawindsondes + ! (archived + special) + MAXSFC = 1000, ! maximum number of surface observations + + NOTSTA = 0, ! Number of stations to be excluded + NOTID = 'r76458', ! Station ID's to be excluded + ! Prefix with 'r' for rawindsonde, + ! 's' for surface + + USED_FILE = 'none', ! Filename prefix to output stations actually + ! used in the analysis + + IOBSWIN = 1800, ! Window (seconds) around analysis time. Obs + ! outside this window will not be used. + + STASEP = .1, ! Minimum sfc station separation in degrees. + ! Any surface obs within this distance + ! of another obs will be thrown out + ! unless it has less missing data, + ! in which case the other obs will be + ! thrown out. + + + IGRIDFL = 3, ! Grid flag=0 if no grid point, only obs + ! 1 if all grid point data and obs + ! 2 if partial grid point and obs + ! 3 if only grid data + ! 4 all data... fast + + + GRIDWT = .01,.01,.01,.01, ! Relative weight for the gridded press data + ! compared to the observational data in + ! the objective analysis + + + GOBSEP = 5., ! Grid-observation separation (degrees) + GOBRAD = 5., ! Grid-obs proximity radius (degrees) + + WVLNTH = 900.,900.,900.,900., ! Used in S. Barnes objective analysis. + ! Wavelength in km to be retained to the + ! RESPON % from the data to the upper air + ! grids. + SWVLNTH = 300.,300.,300.,300., ! Wavelength for surface objective analysis + + RESPON = .9,.9,.9,.9, ! Percentage of amplitude to be retained. + + $END + diff --git a/bin.rams/REVUIN.supercell b/bin.rams/REVUIN.supercell new file mode 100644 index 0000000..de9c9fe --- /dev/null +++ b/bin.rams/REVUIN.supercell @@ -0,0 +1,68 @@ +$CONTROL + +!Analysis file path/prefix +ANPREF = './test.supercell/a-A', + +!REVU output file path/prefix. Leave blank to output this directory. +REVPREF = ' ', + +ANATYPE = 'TEXT', !Output file type (HDF5 or TEXT) +IGRID = 1, !Grid to post process +IZTRAN = 1, !Vertical coord: 1=sigma, 2=cartesian, 3=pressure + ! 4=soil-levels/snow-levels/land-patches +TVAR ='/0:0:0/', !File times to run: /start:stop:interval/ (zeros = all) +ZVAR ='/0:0:0/', !Z-levels to run: /start:stop:interval/ (zeros = all) +YVAR ='/0:0:0/', !Y-pts to run: /start:stop:interval/ (zeros = all) +XVAR ='/0:0:0/', !X-pts to run: /start:stop:interval/ (zeros = all) + +!Variables to output. See REVU variable documentation in "docs". +REVUVAR(1) = '/u/', +REVUVAR(2) = '/v/', +REVUVAR(3) = '/vapor/', +REVUVAR(4) = '/theta/', +REVUVAR(5) = '/w/', +REVUVAR(6) = '/total_cond/', +REVUVAR(7) = '/ccn_concen_mg/', +REVUVAR(8) = '/aggregates/', +REVUVAR(9) = '/snow/', +REVUVAR(10) = '/graupel/', +REVUVAR(11) = '/hail/', +REVUVAR(12) = '/pristine/', +REVUVAR(13) = '/rain/', +REVUVAR(14) = '/cloud/', + +$END + +!If outputting pressure levels, these are the ones +!available from REVU start with k=1 -> 1000 mb +!and going up from there every 25 mb. +k=1 -> 1000 k=14 -> 675 k=27 -> 350 +k=2 -> 975 k=15 -> 650 k=28 -> 325 +k=3 -> 950 k=16 -> 625 k=29 -> 300 +k=4 -> 925 k=17 -> 600 k=30 -> 275 +k=5 -> 900 k=18 -> 575 k=31 -> 250 +k=6 -> 875 k=19 -> 550 k=32 -> 225 +k=7 -> 850 k=10 -> 525 k=33 -> 200 +k=8 -> 825 k=21 -> 500 k=34 -> 175 +k=9 -> 800 k=22 -> 475 k=35 -> 150 +k=10 -> 775 k=23 -> 450 k=36 -> 125 +k=11 -> 750 k=24 -> 425 k=37 -> 100 +k=12 -> 725 k=25 -> 400 +k=13 -> 700 k=26 -> 375 + +Note that for IZTRAN = 1,2,3 you can only access 2D and 3D +variables. Variables that output on soil levels, snow layers, +or land patches require IZTRAN = 4. When IZTRAN = 4, you cannot +output 2D or 3D variables. These will need to be contained in +separate output files for the HDF5 output option since a single +z-coordinate is assigned to a given HDF5 output file from REVU. +Thus we cannot mix and match both atmospheric levels and +soil-levels/snow-layers/land-patches. When IZTRAN = 4, the chosen +appropriate variables will output all available levels/layers/patches +and the z-coordinate in HDF5 output will be integer values. So, if +you have 10 soil levels, 8 snow layers, and 3 land patches, REVU will +tell HDF5 that there are 10 vertical coordinate levels with values of +1,2,3,4,5,6,7,8,9,10. No that the top soil layer in this case would +be level 10, top snow layer would be level 8, and first land-surface +patch is always water. + diff --git a/bin.rams/cleanup.sc b/bin.rams/cleanup.sc new file mode 100755 index 0000000..b07b6b6 --- /dev/null +++ b/bin.rams/cleanup.sc @@ -0,0 +1,4 @@ +#!/bin/bash + +rm -f a-* machs +rm -fr test.orographic test.supercell diff --git a/bin.rams/machs.master b/bin.rams/machs.master new file mode 100755 index 0000000..79e7de4 --- /dev/null +++ b/bin.rams/machs.master @@ -0,0 +1,57 @@ +# Sample executable statement for running RAMS in parallel on systems that do +# not use module loading and PBS and QSUB queuing software. +# ../misc/mpich2-1.4.1-64bit/bin/mpiexec -machinefile machs -np 12 \ +# ../bin.rams/rams-6.1.19 -f RAMSIN.full.mc3e3 +# Note: might have to add "-ifrace eth0" or something similar depending on how +# you compute nodes communicate. Use utility "ifconfig" to find out how your +# nodes communicate (ie. eth0 or eth1) + +#SINGLE MACHINE +#`hostname` + +#Using "ccn" cluster with MPICH +#node01:1 +#node02:8 +#node03:8 +#node04:8 +#node05:8 +#node06:8 +#node07:8 +#node08:8 + +#Using "ccn" cluster with openMPI +#node01 slots=1 +#node02 slots=8 +#node03 slots=8 +#node04 slots=8 +#node05 slots=8 +#node06 slots=8 +#node07 slots=8 +#node08 slots=8 + +#Using "frost" cluster with MPICH +#frost:1 +#frost1:16 +#frost2:16 +#frost3:16 +#frost4:16 +#frost5:16 +#frost6:16 +#frost7:16 +#frost8:16 + +#Using "ice" cluster (infiniband) MPICH +#icehome_ib:8 +#ice1_ib:12 +#ice2_ib:12 +#ice3_ib:12 +#ice4_ib:12 + +#Ciracluster (head node is cm00, but do not include that in list) +#cc00:12 +#cc01:12 +#cc02:12 +#cc03:12 +#cc04:12 +#cc05:12 + diff --git a/bin.rams/run_test_orographic.sc b/bin.rams/run_test_orographic.sc new file mode 100755 index 0000000..5e93a31 --- /dev/null +++ b/bin.rams/run_test_orographic.sc @@ -0,0 +1,119 @@ +#!/bin/bash +################################################################################ +# This script will run a single test serially (by default) (on any system) or in +# parallel (on a simple computer cluster that does not use a PBS/QSUB queuing +# system). Note that on many supercomputing systems (that use modules and PBS +# queuing systems) often have different methods for compiling code for serial +# or parallel processing. The correct compiling method is required for running +# this script in parallel or serial. +# +# A couple of important items here for this test simulation. +# 1. RAMSIN.orographic - This RAMSIN namelist settings produces a 3D, nested, +# two-grid mountain snowfall simulation with LEVEL=3 microphysics +# 2. You will need to access the RAMS static surface data h5 files (sfctypehdf5) +# from the RAMS code tarfile and point to these correctly in your RAMSIN +# namelist. These are files for topography, LAI, FAO soil class, SST etc. +# You RAMSIN namelists for this test may function correction as is. Test it +# and find out. Potential error message will inform you if there are problems. +# +# Here is a sample executable statement for running RAMS in parallel, +# but NOT on a supercomputer using a PBS QSUB queuing system. Consult their +# userguides for running parallel jobs on their systems. Each system is unique. +# ../misc/mpich2-1.4.1.precomp.binaries/bin/mpiexec -machinefile machs -np 4 \ +# ./bin.rams/rams-6.2.12 -f RAMSIN.supercell +# Note: might have to add (-ifrace eth0) to this executable statement or +# something similar depending on how you compute nodes communicate. Use +# utility (ifconfig) to find out how your nodes communicate (ie. eth0 or eth1). +# +# Do not blindly use this script for running every simulation. It is simply +# included here as a starting point and because I use this frequently on my +# desktop Linux workstation for RAMS tests and debugging. If using this script +# please become familiar with its flags, settings, and functionality. It cannot +# be used for every runtime situation. +############################################################################### +# Set you RAMS root path +rd=`pwd`/.. +# RAMS version (ie. 6.1.6) +vs=6.2.14 +# Set flag for type of test (0=sequential, 1=parallel) +runtype=0 +# Set number of nodes for parallel run. +n=14 +# Set delete flag (0 = do not delete, 1 = delete and start over) +del=1 + +# Flag for whether to create a machines file "machs" or not. (0=no, 1=yes) +# Set machsmake=0 if you have a custom file. Set machsmake=1 to create one +# based on Hostname of this local machine. +machsmake=1 + +# Set your parallel executable here +a1=$rd/misc/mpich2-1.4.1.binaries.post2020/bin/mpiexec +# Set you machines file path here +a2=$rd/bin.rams/machs +# Set RAMS executable path and name +a3=$rd/bin.rams/rams-$vs +if [ -f $a3.serial ]; then + a3=$a3.serial +fi +# Set REVU executable path and name +a4=$rd/bin.revu/revu-$vs +if [ -f $a4.serial ]; then + a4=$a4.serial +fi + +#Check to see all above exist +if [ ! -f $rd/bin.rams/RAMSIN.orographic1 ] || [ ! -f $a3 ]; then + echo "One of your input paths is incorrect. Stopping!" + echo "Check RAMSIN, RAMS executable, and REVU executable!" + exit +fi + +#If trying a parallel run, make sure machines file exists. +if [ $runtype -eq 1 ]; then + if [ $machsmake -eq 0 ]; then + if [ ! -f $a2 ]; then echo "You need a machines file 'machs'"; exit; fi; + elif [ $machsmake -eq 1 ]; then + echo $HOSTNAME > $a2 + else + echo "Need to set MACHSMAKE = 0 or 1" + exit + fi +fi + +#Check to see all above exist for a parallel test +if [ $runtype -eq 1 ]; then + if [ ! -f $a1 ] || [ ! -f $a2 ]; then + echo "One of your input paths is incorrect. Stopping!" + echo "MPI executable or machs file" + exit + fi +fi + +# DONE WITH NECESSARY USER CHANGES +############################################################################### + +for dirname in $rd/bin.rams/test.orographic +do + if [ -d $dirname -a $del -eq 1 ]; then + rm -f $dirname/*.h5 $dirname/*.txt $dirname/*.tag \ + $dirname/r.* $dirname/ct.* $dirname/out + else + if [ ! -d $dirname ]; then mkdir $dirname; fi; + fi +done + +rc="$a3 -f" + +#Check on runtype settings for sequential or parallel +if [ $runtype -eq 0 ]; then + rc1=$rc +elif [ $runtype -eq 1 ]; then + rc1="$a1 -machinefile $a2 -np $n $a3 -f" +else + echo "Need to set RUNTYPE = 0 or 1" + exit +fi + +$rc1 $rd/bin.rams/RAMSIN.orographic1 +$rc1 $rd/bin.rams/RAMSIN.orographic2 diff --git a/bin.rams/run_test_supercell.sc b/bin.rams/run_test_supercell.sc new file mode 100755 index 0000000..1fbce57 --- /dev/null +++ b/bin.rams/run_test_supercell.sc @@ -0,0 +1,126 @@ +#!/bin/bash +################################################################################ +# This script will run a single test serially (by default) (on any system) or in +# parallel (on a simple computer cluster that does not use a PBS/QSUB queuing +# system). Note that on many supercomputing systems (that use modules and PBS +# queuing systems) often have different methods for compiling code for serial +# or parallel processing. The correct compiling method is required for running +# this script in parallel or serial. +# +# A couple of important items here for this test simulation. +# 1. RAMSIN.supercell - produces a 3D 1-grid supercell simulation with +# LEVEL=3 microphysics +# 2. This idealized simulation does not require geographical data (sfctypehdf5) +# for running since geography does not matter. Also, we do not need gridded +# initialization data beyond the sounding input into the namelist. The sounding +# is applied horizontally homogeneous for an idealized run. +# +# Here is a sample executable statement for running RAMS in parallel, +# but NOT on a supercomputer using a PBS QSUB queuing system. Consult their +# userguides for running parallel jobs on their systems. Each system is unique. +# ../misc/mpich2-1.4.1.precomp.binaries/bin/mpiexec -machinefile machs -np 4 \ +# ./bin.rams/rams-6.2.12 -f RAMSIN.supercell +# Note: might have to add (-ifrace eth0) to this executable statement or +# something similar depending on how you compute nodes communicate. Use +# utility (ifconfig) to find out how your nodes communicate (ie. eth0 or eth1). +# +# Do not blindly use this script for running every simulation. It is simply +# included here as a starting point and because I use this frequently on my +# desktop Linux workstation for RAMS tests and debugging. If using this script +# please become familiar with its flags, settings, and functionality. It cannot +# be used for every runtime situation. +############################################################################### +# Set you RAMS root path +rd=`pwd`/.. +# RAMS version (ie. 6.1.6) +vs=6.2.16 +# Set flag for type of test (0=sequential, 1=parallel) +runtype=1 +# Set number of nodes for parallel run. +n=10 +# Set delete flag (0 = do not delete, 1 = delete and start over) +del=1 + +# Flag for whether to create a machines file "machs" or not. (0=no, 1=yes) +# Set machsmake=0 if you have a custom file. Set machsmake=1 to create one +# based on Hostname of this local machine. +machsmake=1 + +# Set your parallel executable here +###a1=$rd/misc/mpich2-1.4.1.binaries.post2020/bin/mpiexec +###a1=/home/smsaleeb/software/mpich-3.3.2/bin/mpiexec +a1=/home/smsaleeb/software/mpich-3.3.2/bin/mpiexec +# Set you machines file path here +a2=$rd/bin.rams/machs +# Set RAMS executable path and name +a3=$rd/bin.rams/rams-$vs +if [ -f $a3.serial ]; then + a3=$a3.serial +fi +if [ $runtype -eq 1 -a -f $a3.parallel ]; then + a3=$a3.parallel +fi +# Set REVU executable path and name +a4=$rd/bin.revu/revu-$vs +if [ -f $a4.serial ]; then + a4=$a4.serial +fi + +#Check to see all above exist +if [ ! -f $rd/bin.rams/RAMSIN.supercell ] || [ ! -f $a3 ] || [ ! -f $a4 ]; then + echo "One of your input paths is incorrect. Stopping!" + echo "Check RAMSIN, RAMS executable, and REVU executable!" + exit +fi + +#If trying a parallel run, make sure machines file exists. +if [ $runtype -eq 1 ]; then + if [ $machsmake -eq 0 ]; then + if [ ! -f $a2 ]; then echo "You need a machines file 'machs'"; exit; fi; + elif [ $machsmake -eq 1 ]; then + echo $HOSTNAME > $a2 + else + echo "Need to set MACHSMAKE = 0 or 1" + exit + fi +fi + +#Check to see all above exist for a parallel test +if [ $runtype -eq 1 ]; then + if [ ! -f $a1 ] || [ ! -f $a2 ]; then + echo "One of your input paths is incorrect. Stopping!" + echo "MPI executable or machs file" + exit + fi +fi + +# DONE WITH NECESSARY USER CHANGES +############################################################################### + +for dirname in $rd/bin.rams/test.supercell +do + if [ -d $dirname -a $del -eq 1 ]; then + rm -f $dirname/*.h5 $dirname/*.txt $dirname/*.tag \ + $dirname/r.* $dirname/ct.* $dirname/out + else + if [ ! -d $dirname ]; then mkdir $dirname; fi; + fi +done + +rc="$a3 -f" + +#Check on runtype settings for sequential or parallel +if [ $runtype -eq 0 ]; then + rc1=$rc +elif [ $runtype -eq 1 ]; then + rc1="$a1 -machinefile $a2 -np $n $a3 -f" +else + echo "Need to set RUNTYPE = 0 or 1" + exit +fi + +$rc1 $rd/bin.rams/RAMSIN.supercell + +#You can uncomment this executable if you want to test the REVU +#post-processor, but you must compile REVU in directory bin.revu. +$a4 -f $rd/bin.rams/REVUIN.supercell diff --git a/bin.revu/Makefile b/bin.revu/Makefile new file mode 100755 index 0000000..b979cc3 --- /dev/null +++ b/bin.revu/Makefile @@ -0,0 +1,121 @@ +#Makefile +############################################################################### +# Include definitions +############################################################################### +include ../include.mk +############################################################################### +# Compiler commands +############################################################################### +INCLUDES = $(UTILS_INCS) $(PAR_INCS) $(HDF5_INCS) +F_CD1 = $(F_COMP) -c $(F_OPTS1) $(INCLUDES) +F_CD2 = $(F_COMP) -c $(F_OPTS2) $(INCLUDES) +C_CD = $(C_COMP) -c $(C_OPTS) $(INCLUDES) $(PAR_DEFS) $(HDF5_DEFS) + +C_CM =$(C_CD) -D$(CMACH) $< && $(ARCH) $@ $( 1050 mb +!and going up from there every 25 mb to to 50mb. +k=1 -> 1050 k=16 -> 675 k=31 -> 300 +k=2 -> 1025 k=17 -> 650 k=32 -> 275 +k=3 -> 1000 k=18 -> 625 k=33 -> 250 +k=4 -> 975 k=19 -> 600 k=34 -> 225 +k=5 -> 950 k=20 -> 575 k=35 -> 200 +k=6 -> 925 k=21 -> 550 k=36 -> 175 +k=7 -> 900 k=22 -> 525 k=37 -> 150 +k=8 -> 875 k=23 -> 500 k=38 -> 125 +k=9 -> 850 k=24 -> 475 k=39 -> 100 +k=10 -> 825 k=25 -> 450 k=40 -> 75 +k=11 -> 800 k=26 -> 425 k=41 -> 50 +k=12 -> 775 k=27 -> 400 +k=13 -> 750 k=28 -> 375 +k=14 -> 725 k=29 -> 350 +k=15 -> 700 k=30 -> 325 + +Note that for IZTRAN = 1,2,3 you can only access 2D and 3D +variables. Variables that output on soil levels, snow layers, +or land patches require IZTRAN = 4. When IZTRAN = 4, you cannot +output 2D or 3D variables. These will need to be contained in +separate output files for the HDF5 output option since a single +z-coordinate is assigned to a given HDF5 output file from REVU. +Thus we cannot mix and match both atmospheric levels and +soil-levels/snow-layers/land-patches. When IZTRAN = 4, the chosen +appropriate variables will output all available levels/layers/patches +and the z-coordinate in HDF5 output will be integer values. So, if +you have 10 soil levels, 8 snow layers, and 3 land patches, REVU will +tell HDF5 that there are 10 vertical coordinate levels with values of +1,2,3,4,5,6,7,8,9,10. No that the top soil layer in this case would +be level 10, top snow layer would be level 8, and first land-surface +patch is always water. + diff --git a/docs/ComputerDocs-Cheyenne/README_compile_cheyenne.dms b/docs/ComputerDocs-Cheyenne/README_compile_cheyenne.dms new file mode 100644 index 0000000..3e0b30f --- /dev/null +++ b/docs/ComputerDocs-Cheyenne/README_compile_cheyenne.dms @@ -0,0 +1,44 @@ +I could not get the large channel sim to run on Cheyenne until I compiled our versions of the MPI +HDF5 libraries and linked to those (as opposed to the Cheyenne built-in libraries). + + + +In order to do compile our own HDF5 and MPI libriares, you need to clear paths to the +Cheyenne built-in libraries. Load/unload modules to get the following state: + + stephenh@cheyenne2:~/Rams/misc> module list + + Currently Loaded Modules: + 1) ncarenv/1.2 2) intel/17.0.1 3) ncarcompilers/0.4.1 4) slurm/17.02.4 + +Then save this state as your default: + + module save default + +Then log out and log back in again. You need to do all of the above steps in order to clear out a +bunch of variables that point to the built-in libraries (NCAR_LDFLAGS_*, specifically). + + + +Once the environment is set properly, untar the source code for the MPI libraries and run configure +(change --prefix path to where you want the libraries to be installed): + + ./configure --prefix=/glade/u/home/stephenh/Rams/misc/mpich2-1.4.1-install --disable-f77 -disable-fc --disable-cxx -enable-fast=O3 CPPFLAGS=-DNDEBUG --with-device=ch3:nemesis CC=icc FC=ifort F90= + +Then compile the MPI libraries: + + make + make install + +Compile the HDF5 libraries (set --prefix to where you want the libraries installed, and set the path +to mpicc accordingly): + + ./configure --prefix=/glade/u/home/stephenh/Rams/misc/hdf5-1.8.9-install --disable-fortran --disable-fortran2003 --enable-parallel CC=/glade/u/home/stephenh/Rams/misc/mpich2-1.4.1-install/bin/mpicc + make + make install + + +Then use the source code saved in rams_20171109_rce_6.2.08 to compile RAMS. Set the paths for +HDF5_ROOT and MPI_ROOT accordingly in the include.mk.cheyenne.mylibs file. + + diff --git a/docs/ComputerDocs-Cheyenne/Scripts_and_Files/README_compile_cheyenne b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/README_compile_cheyenne new file mode 100755 index 0000000..3e0b30f --- /dev/null +++ b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/README_compile_cheyenne @@ -0,0 +1,44 @@ +I could not get the large channel sim to run on Cheyenne until I compiled our versions of the MPI +HDF5 libraries and linked to those (as opposed to the Cheyenne built-in libraries). + + + +In order to do compile our own HDF5 and MPI libriares, you need to clear paths to the +Cheyenne built-in libraries. Load/unload modules to get the following state: + + stephenh@cheyenne2:~/Rams/misc> module list + + Currently Loaded Modules: + 1) ncarenv/1.2 2) intel/17.0.1 3) ncarcompilers/0.4.1 4) slurm/17.02.4 + +Then save this state as your default: + + module save default + +Then log out and log back in again. You need to do all of the above steps in order to clear out a +bunch of variables that point to the built-in libraries (NCAR_LDFLAGS_*, specifically). + + + +Once the environment is set properly, untar the source code for the MPI libraries and run configure +(change --prefix path to where you want the libraries to be installed): + + ./configure --prefix=/glade/u/home/stephenh/Rams/misc/mpich2-1.4.1-install --disable-f77 -disable-fc --disable-cxx -enable-fast=O3 CPPFLAGS=-DNDEBUG --with-device=ch3:nemesis CC=icc FC=ifort F90= + +Then compile the MPI libraries: + + make + make install + +Compile the HDF5 libraries (set --prefix to where you want the libraries installed, and set the path +to mpicc accordingly): + + ./configure --prefix=/glade/u/home/stephenh/Rams/misc/hdf5-1.8.9-install --disable-fortran --disable-fortran2003 --enable-parallel CC=/glade/u/home/stephenh/Rams/misc/mpich2-1.4.1-install/bin/mpicc + make + make install + + +Then use the source code saved in rams_20171109_rce_6.2.08 to compile RAMS. Set the paths for +HDF5_ROOT and MPI_ROOT accordingly in the include.mk.cheyenne.mylibs file. + + diff --git a/docs/ComputerDocs-Cheyenne/Scripts_and_Files/fix_file_timestamps b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/fix_file_timestamps new file mode 100755 index 0000000..284b61e --- /dev/null +++ b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/fix_file_timestamps @@ -0,0 +1,25 @@ +#! /bin/bash +# +# Script to fix timestamps on the RAMS analysis files. +# +# For some reason the HDF5 files are getting dated in the future +# which is subsequently causing the repack script to wait until +# that future date to compress the file. +# +# The header files are getting the correct timestamp. To fix +# this, use touch command to make the timestamp on each +# analysis file match that of its corresponding header +# file. + +RamsDir="$1" + +for Hfile in $(ls -1 $RamsDir/*-head.txt) +do + AfilePat=$(echo $Hfile | sed 's/-head.txt/-*.h5/') + Afiles=$(ls $AfilePat) + + echo "**********************************************************" + Cmd="touch -r $Hfile $Afiles" + echo "Running: $Cmd" + $Cmd +done diff --git a/docs/ComputerDocs-Cheyenne/Scripts_and_Files/include.mk.cheyenne b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/include.mk.cheyenne new file mode 100755 index 0000000..5d00dbb --- /dev/null +++ b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/include.mk.cheyenne @@ -0,0 +1,120 @@ +############################################################################# +# Define make (gnu make works best) +############################################################################# +MAKE=/usr/bin/make + +############################################################################# +# Set your RAMS root path and version number +############################################################################# +RAMS_ROOT=/glade/u/home/stephenh/Rams/rams_20171109_rce_6.2.08 +RAMS_VERSION=6.2.08 + +#HDF5_ROOT=/glade/u/home/stephenh/Rams/misc/hdf5-1.8.9-install +#MPI_ROOT=/glade/u/home/stephenh/Rams/misc/mpich2-1.4.1-install + +MODEL=$(RAMS_ROOT)/src/$(RAMS_VERSION) +UTILS_INCS=-I$(MODEL)/include + +############################################################################# +# HDF libraries +# Note that linking libraries below are in a particular order to work! +############################################################################# +#HDF5_LIBS=-L$(HDF5_ROOT)/lib -lhdf5_hl -lhdf5 -lsz -lz +#HDF5_INCS=-I$(HDF5_ROOT)/include +#HDF5_DEFS= + +############################################################################# +# TYPE OF COMPUTER SYSTEM (used for DEFINE statements for intrinsic calls) +############################################################################# +CMACH=PC_LINUX1 #Standard Linux (only option available now) + +############################################################################# +# UNCOMMENT 1 LINUX FORTRAN COMPILER SET OF FLAGS BELOW +############################################################################# +# Note that some Fortran optimizations greater than -O1 will not necessarily +# produce identical results when running same executable multiple times. +# This is perhaps due to order of operations or unrolling loop order that +# changes solutions slightly. This is not ideal for research applications +# involving sensitivity studies that require exact duplication. As such, +# the Makefile is setup to allow different optimizations for different source +# files. The F_OPTS1 and F_OPTS2 variables below can hold different compiler +# flags as needed. Further, for duplication of results you may need to force +# IEEE standard which is done in examples below. +# Please coordinate variables below with the commands in the Makefile. +# Mandatory fortran variables are (F_COMP, F_OPTS1, F_OPTS2, LOADER,OPTS). + +#Definitions of compiler flags below +# F_COMP = path to compiler executable +# F_OPTS1 = Uses of flags for lower optimization for some files +# F_OPTS2 = Uses of flags for higher optimization for some files +# LOADER_OPTS = Flags and optimaztion for LOADER +# LIBS = Extra system libraries for linking that some compilers need + +#***************************** +# FOR INTEL IFORT COMPILER +#***************************** +# (-g) for debugging, (-traceback) for more compiler error info +# (-check bounds) for array bounds checking, (-fp-model precise) for IEEE +# (-check uninit) for finding uninitialized variables, (-free) for free format +F_COMP=mpif90 +F_OPTS=-free -static-intel -fp-model precise -traceback -march=corei7 -axAVX +#F_OPTS=-free -fp-model precise -traceback -static-intel -march=corei7 -axAVX -check bounds -check uninit +F_OPTS1=-O1 $(F_OPTS) +F_OPTS2=-O2 $(F_OPTS) +LOADER=$(F_COMP) +LOADER_OPTS=$(F_OPTS2) +#LOADER=./run_ld +#LOADER_OPTS= +#LIBS=-L/usr/lib/x86_64-linux-gnu -lrt + +#***************************** +# FOR PGI PGF90 COMPILER +#***************************** +# (-g) for debugging, (-Kieee) for IEEE, (-Mfree) for free format +#F_COMP=/usr/local/pgi/linux86-64/15.10/bin/pgf90 +#F_OPTS1=-Mfree -O1 -Kieee +#F_OPTS2=-Mfree -O2 -Kieee +#LOADER_OPTS=-Mfree -O2 -Kieee +#LIBS= + +#***************************** +# FOR GFORTRAN COMPILER +#***************************** +# (-Wall) for warnings, (-ffree-form) for free format +# (-fno-sign-zero) for not making zeros negative values +# (-fcheck=bounds) check for array bounds issues +# (-fcheck=all) all runtime checking +#F_COMP=/usr/bin/gfortran +#F_OPTS1=-ffree-form -O1 +#F_OPTS2=-ffree-form -O2 +#LOADER_OPTS=-ffree-form -O2 +#LIBS=-L/usr/lib/x86_64-linux-gnu -lrt -lpthread + +############################################################################# +# LINUX C compiler choice and flags (gcc) +############################################################################# +C_COMP=mpicc +C_OPTS=-O3 -DUNDERSCORE -DLITTLE + +############################################################################# +# System archive command syntax +############################################################################# +ARCH=ar rs + +############################################################################# +# MPI - parallel processing choices +############################################################################# +PAR_LIBS= #leave blank (override below if using MPI) +PAR_DEFS= #leave blank (override below if using MPI) +#---------------------------------------------------------------------------- +# If using MPI libraries: +#---------------------------------------------------------------------------- +#---------------LINUX MPICH---------------------------------------------------- +#PAR_INCS=-I$(MPI_ROOT)/include +#PAR_LIBS=-L$(MPI_ROOT)/lib -lmpich -lmpl -llmpe +PAR_DEFS=-DRAMS_MPI + +#---------------LINUX OPENMPI------------------------------------------------ +#PAR_INCS=-I$(MPI_ROOT)/include +#PAR_LIBS=-L$(MPI_ROOT)/lib -lmpi +#PAR_DEFS=-DRAMS_MPI diff --git a/docs/ComputerDocs-Cheyenne/Scripts_and_Files/repack_files b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/repack_files new file mode 100755 index 0000000..2e00507 --- /dev/null +++ b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/repack_files @@ -0,0 +1,52 @@ +#!/usr/bin/env bash + +############################################################################################## +# Script to repack (compress) HDF5 simulation output files + +Usage="USAGE: $0 " + +if [ "$1" == "" ] +then + echo "ERROR: must supply one argument to script" + echo "" + echo $Usage + exit -1 +fi + +RamsinFile=$1 + +GzipLevel=6 + +# Get the analysis file prefix out of the ramsin file, and use +# this for a pattern match to find the rams output files for this +# simulation. +# +# The first sed filter is to get rid of comments (don't want to pick up a commented +# out value for AFILEPREF) +FilePref=$(sed 's/[!].*//g' $RamsinFile | grep AFILEPREF | sed -e 's/.*=//' -e "s/[', \t]//g") + +for RamsFile in ${FilePref}*.h5 +do + echo "***************** $RamsFile ****************************" + NumGzipDsets=$(h5stat --dset $RamsFile | grep GZIP | sed 's/GZIP filter: //') + if [ $NumGzipDsets -gt 0 ] + then + echo "File is already compressed" + else + echo "File needs to be compressed" + + TempFile="${RamsFile}.temp" + RepackCmd="h5repack -f SHUF -f GZIP=$GzipLevel $RamsFile $TempFile" + echo "$RepackCmd" + $RepackCmd + + # only replace the original file if the repack command succeeded + if [ $? -eq 0 ] + then + MvCmd="mv $TempFile $RamsFile" + echo "$MvCmd" + $MvCmd + fi + fi +done + diff --git a/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_job b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_job new file mode 100755 index 0000000..d925327 --- /dev/null +++ b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_job @@ -0,0 +1,132 @@ +#!/usr/bin/env bash + +############################################################################################## +# Script to automatically restart a RAMS simulation (HISTORY start). +# +# This is useful after starting the first run (RUNTYPE = 'INITIAL'), and you want +# to automatically fire off a new job via a history start (RUNTYPE = 'HISTORY'). + +Usage="USAGE: $0 " + +if [ $# != 3 ] +then + echo "ERROR: must supply exactly three arguments to script" + echo "" + echo $Usage + exit -1 +fi + +QsubScript=$1 +RamsFile=$2 +EndRamsFile=$3 + +echo "***************************************************************" +echo "Attempting to restart RAMS job" +echo " qsub script: $QsubScript" +echo " ramsin file: $RamsFile" +echo " end rams file: $EndRamsFile" +echo "" + +RamsFileTemplate="${RamsFile}.template" +if [ ! -f $RamsFileTemplate ] +then + echo "ERROR: cannot read RAMSIN template file: $RamsFileTemplate" + echo "" + echo $Usage + exit -2 +fi + +# Get the pbs job name from the qsub script file and see if the job is running. +# Unfortunately, the only way I know of getting the full job name is through +# the "qstat -f job_id" invocation of qstat. Doing less verbose options of qstat +# will truncate the name if longer than 11 or 15 characters. So, do an initial +# qstat to find the all of this users jobs that are in the queue, and check each +# one to see if it matches the full job name. +JobName=$(grep PBS $QsubScript | grep "\-N" | sed 's/.* //') +UserName=$(id -un) +NumJobsRunning=$( + for JobId in $(qstat -u $UserName | grep $UserName | sed 's/\..*//') + do + qstat -f $JobId | grep Job_Name | sed 's/.* //' + done | grep -c "^${JobName}$" + ) + +if [ $NumJobsRunning -gt 0 ] +then + echo "Job is still running, try again later" + exit 0 +fi + +# If we made it here, we are going to attempt a history start. +# +# Determine the file to use for the history start. Use either the last or next +# to last of the header files. The idea is that the RAMS analysis files are +# written before the header file so if a header file exists, the associated +# analysis files are intact. Ideally, you want to use the latest header file, +# but if the job died during the write of that header file, the restart won't +# work. If that's the case, the last header file will not match in size with +# the second to the last header file. In this case the second to last header +# file should be used for the restart. +# - If there are not at least two header files, then might as well do an +# initial run again. +# - If the sizes of the final two header files match, then use the final +# header file. +# - If the sizes don't match, use the second to last header file. + +# Get the analysis file prefix out of the RAMS file. +FilePref="$(sed 's/[!].*//g' $RamsFile | grep AFILEPREF | sed -e 's/.*=//' -e "s/[', \t]//g")-A-" + +# Set positional parameters to the final two header files. If there are < 2 files, +# then bail out. HeadFile1 will be the second to last file, HeadFile2 will be +# the last file. +set -- $(ls ${FilePref}*-head.txt | tail -n 2) +HeadFile1=$1 +HeadFile2=$2 +if [ "$HeadFile1" == "" ] || [ "$HeadFile2" == "" ] +then + echo "Not enough header files for a restart. Redo the INITIAL run." + exit 0 +fi + +# Get the sizes of the two header files. If sizes match, use header 2. +# If sizes don't match, use header 1. +SizeHF1=$(wc -c $HeadFile1 | sed 's/ .*//') +SizeHF2=$(wc -c $HeadFile2 | sed 's/ .*//') + +if [ $SizeHF1 -eq $SizeHF2 ] +then + RestartFile=$HeadFile2 +else + RestartFile=$HeadFile1 +fi + +# Check the restart file to see if it matches the end file. If so, then the +# job has completed in which case the restart is not necessary. +if [ "$RestartFile" == "$EndRamsFile" ] +then + echo "Job has completed, skipping restart." + exit 0 +fi + +# Change HFILIN to the new restart file in the RAMS file +# Use "@" for delimiter in the substitue command for sed below since +# RestartFile can contain slashes. +sed "s@@$RestartFile@g" $RamsFileTemplate > ${RamsFile}.temp +if [ $? -ne 0 ] +then + echo "Error occurred while attempting to change HFILIN in $RamsFile" + echo "Skipping the restart" + exit -3 +else + mv ${RamsFile}.temp $RamsFile +fi + +# Fire off the history restart +QsubCmd="qsub ./$QsubScript" + +echo "Restarting RAMS:" +echo " HFILIN: $RestartFile" +echo " Command: $QsubCmd" +echo "" + +$QsubCmd diff --git a/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_rce_sims b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_rce_sims new file mode 100755 index 0000000..9a45bfb --- /dev/null +++ b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_rce_sims @@ -0,0 +1,17 @@ +#!/usr/bin/env bash + +############################################################################################## +# Script to restart a list of RCE simulations + +#SimList="RCE_3km_1mom_db_udef RCE_3km_1mom_db_rlongup RCE_3km_2mom_db_udef RCE_3km_2mom_db_rlongup" +SimList="RCE_CHAN_S300" + +echo "Restarting RCE simulations: $SimList" +echo + +for Sim in $SimList +do + cd $HOME/Sims/${Sim} + restart_job run_rams RAMSIN ./RAMS/${Sim}-A-2012-04-30-000000-head.txt + echo +done diff --git a/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_tsd_1grid b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_tsd_1grid new file mode 100755 index 0000000..b4fbe9d --- /dev/null +++ b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_tsd_1grid @@ -0,0 +1,9 @@ +#!/usr/bin/env bash + +############################################################################################## +# Script to restart the 1 grid TS Debby simulation + +#cd $HOME/Sims/TSD_SPIN_UP_1G +#restart_job run_rams RAMSIN.spin_up ./RAMS/TSD_SPIN_UP_1G-A-2006-08-22-060000-head.txt +cd $HOME/Sims/TSD_SD_1G +restart_job run_rams RAMSIN ./RAMS/TSD_SD_1G-A-2006-08-24-180000-head.txt diff --git a/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_tsd_1km b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_tsd_1km new file mode 100755 index 0000000..adfe8b9 --- /dev/null +++ b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_tsd_1km @@ -0,0 +1,7 @@ +#!/usr/bin/env bash + +############################################################################################## +# Script to restart the 1 grid TS Debby simulation + +cd $HOME/Sims/TSD_SD_1KM +restart_job run_rams RAMSIN ./RAMS/TSD_SD_1G-A-2006-08-24-140000-head.txt diff --git a/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_tsd_3grids b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_tsd_3grids new file mode 100755 index 0000000..97a72fb --- /dev/null +++ b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_tsd_3grids @@ -0,0 +1,9 @@ +#!/usr/bin/env bash + +############################################################################################## +# Script to restart the 3 grid TS Debby simulation + +#cd $HOME/Sims/TSD_SPIN_UP +#restart_job run_rams RAMSIN.spin_up ./RAMS/TSD_SPIN_UP-A-2006-08-22-060000-head.txt +cd $HOME/Sims/TSD_SD +restart_job run_rams RAMSIN ./RAMS/TSD_SD-A-2006-08-24-180000-head.txt diff --git a/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_tsd_500m b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_tsd_500m new file mode 100755 index 0000000..2f7903b --- /dev/null +++ b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/restart_tsd_500m @@ -0,0 +1,7 @@ +#!/usr/bin/env bash + +############################################################################################## +# Script to restart the 1 grid TS Debby simulation + +cd $HOME/Sims/TSD_SD_500M +restart_job run_rams RAMSIN ./RAMS/TSD_SD_1G-A-2006-08-24-140000-head.txt diff --git a/docs/ComputerDocs-Cheyenne/Scripts_and_Files/run_rams b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/run_rams new file mode 100755 index 0000000..3022384 --- /dev/null +++ b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/run_rams @@ -0,0 +1,22 @@ +#!/bin/bash +### Job Name +#PBS -N RceChS300 +### Project code +#PBS -A UCSU0054 +#PBS -l walltime=12:00:00 +#PBS -q economy +### Output and error files +#PBS -e LOG_FILES +#PBS -o LOG_FILES +### Select 42 nodes with 36 CPUs each for a total of 1512 MPI processes +### This yields an average of 397 columns/core +#PBS -l select=42:ncpus=36:mpiprocs=36 +### Send email on abort, begin and end +#PBS -m abe +### Specify mail recipient +#PBS -M stephen.herbener@colostate.edu + +### Run the executable +export MPI_TYPE_DEPTH=20 +#mpiexec_mpt dplace -s 1 ./rams -f RAMSIN +/glade/u/home/stephenh/Rams/misc/mpich2-1.4.1-install/bin/mpirun -np 1512 ./rams -f RAMSIN diff --git a/docs/ComputerDocs-Cheyenne/Scripts_and_Files/x.repack.sh b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/x.repack.sh new file mode 100755 index 0000000..ef08f8a --- /dev/null +++ b/docs/ComputerDocs-Cheyenne/Scripts_and_Files/x.repack.sh @@ -0,0 +1,287 @@ +#! /bin/bash +############################################################## +# Program: x.repack.sh +# Programmer: Robert Seigel +# University of Miami +# rseigel@rsmas.miami.edu +# 16 March 2013 +# Execute: x.repack.sh [] [] +# : surface or analysis MANDATORY +# []: MANDATORY if = analysis +# If using LSF job execution, then +# = Job Name +# If NOT using LSF job execution, then +# = 6.0-opt, if the +# executable is rams-6.0-opt +# []: OPTIONAL 3rd argument if RAMS has already +# finished and the user wants to repack all +# files in the supplied directory +# *** dummy argument 2 still required *** +# Purpose: This script repacks the HDF5 files while a distributive +# memory RAMS run is occurring. Because Parallel HDF5 is +# not yet supporting online compression, this script +# takes its place to conserve disk space. +# Overview: This script runs while RAMS is running. It first looks +# in RAMSIN to find where the files are being written. +# Then, it iteratively checks to see if new files are +# created. If a new file is output, it waits until the +# file is created and then uses h5repack to repack +# the HDF5 file. Once the RAMS processes are finished, +# x.repack.sh will terminate. +# +#****************************************************************** +# It is suggested to run this process in the background, as +# simulations often take a long time. To do so, here is an example: +# nohup x.repack.sh analysis 6.0-opt > repack.txt & +# This will execute x.repack.sh to repack the HDF5 analysis files +# that are output from rams-6.0-opt. The script output is placed +# in repack.txt for reference. +############################################################## + + +############################################################## +# FUNCTION to find the new file and repack it according to +# specified gzip level +repack () +{ + echo "Start repack" + + # Initialize some variables if this is our first entry into this routine + if [ $lastmod -eq 0 ]; then + newmod=0 + oldfsize=0 + fi + + # Loop over .h5 files in requested directory + for f in $thisdir*'.h5' + do + + # get time since file was last modified + modsecs=$(date --utc --reference=$f +%s) + nowsecs=$(date +%s) + delta=$(($nowsecs-$modsecs)) + filesize=$(stat -c%s "$f") + + # Test if the following are true in order to repack the file + # (1) Current file AGE is LE user-defined age threshold (filter out old sims) + # (2) Current file is EITHER (1) newer than previous file OR + # (2) larger than previous file + # (3) Current file SIZE is GT user-defined size threshold (filter out already + # repacked files) + if [[ $delta -le $repacksecs ]] && \ + [[ ( $modsecs -gt $lastmod || $filesize -gt $prevfilesize ) ]] && \ + [[ $filesize -gt $unpackFsize ]]; then + + # Wait UNTIL header file exists to make sure HDF5 write is done + if [ $runtype == "analysis" ]; then + hfile=${f:0:$((${#f}-5))}'head.txt' + + until [ -e $hfile ]; do sleep 1; done + + # Case where file is being overwritten + until [ ! $hfile -ot $f ]; do sleep 2; done + + # In case the header file is big + sleep 3 + fi + + # Repack the file + echo "h5repack -f SHUF -f GZIP=$gziplevel $f $f.temp" #***UNCOMMENT + h5repack -f SHUF -f GZIP=$gziplevel $f $f.temp #***UNCOMMENT + mv $f.temp $f #***UNCOMMENT + echo "New file $f has been repacked because it was created $delta secs ago" + newmod=$(date --utc --reference=$f +%s) + + # Now copy the file to a remote computer. RSA keys have already been generated. + #scp $f ldgrant@frost.atmos.colostate.edu:$supcelldir + #scp $hfile ldgrant@frost.atmos.colostate.edu:$supcelldir +# scp $f $copydir +# scp $hfile $copydir + + fi + prevfilesize=$(stat -c%s "$f") + + done + lastmod=$newmod +} +###################################################################################### +###################################################################################### +# ONLYEDIT THESE + +#set -x + +# Define some parameters +exectype=1 # Type of job execution. + # 1 = LSF + # 2 = Standard way, using a direct call to MPI +runtype=$1 # this is either surface or analysis from command line +ramsname=$2 # second command line input *MANDATORY for analysis* + # This is not used if exectype=1 +#repacksecs=108000 # maximum age in seconds of a file that is to be repacked (30 h) +repacksecs=1080000 # maximum age in seconds of a file that is to be repacked (30 h) +unpackFsize=5000 # megabyte threshold for unpacked file size (~ 5G) +#unpackFsize=1 # megabyte threshold for unpacked file size (~ 1M) +gziplevel=6 # gzip level +checkint=120 # in seconds +#supcelldir='/tasman/ldgrant/LPsup_300/' # Directory for file transfers +#copydir='ldgrant@frost.atmos.colostate.edu:/tasman/ldgrant/LPsup_300/z.'$2'/' # Directory for file transfers +#echo "copydir: $copydir" + +# END ONLYEDIT +###################################################################################### +###################################################################################### +# Perform some checks + +# Did the user input the process name during an analysis repack? +if [ "$ramsname" == "rams-" -a "$runtype" == "analysis" ]; then + echo 'Please specify the RAMS executable name, excluding rams-' + exit +fi +# Is the user exercising the 3rd argument? If so, dont read RAMSIN +if [ -z "$3" ]; then + RAMSINread=1 +else + RAMSINread=0 +fi +# Convert file size to megabytes +unpackFsize=$((unpackFsize*1024*1024)) + +############################################################## +# First Read RAMSIN to grab file locations +# This method is based on the fact that each RAMSIN parameter +# is preceeded by THREE SPACES. +if [ $RAMSINread -eq 1 ]; then + # TOPFILES + # find the line + topdir=`egrep '^ TOPFILES' RAMSIN` + # remove suffix from 2nd single quote + topdir=${topdir%\'*} + # remove prefix from 1st single quote + topdir=${topdir#*\'} + + # SFCFILES + sfcdir=`egrep '^ SFCFILES' RAMSIN` + sfcdir=${sfcdir%\'*} + sfcdir=${sfcdir#*\'} + + # SSTFILES + sstdir=`egrep '^ SSTFPFX' RAMSIN` + sstdir=${sstdir%\'*} + sstdir=${sstdir#*\'} + + # NDVIFILES + ndvidir=`egrep '^ NDVIFPFX' RAMSIN` + ndvidir=${ndvidir%\'*} + ndvidir=${ndvidir#*\'} + + # ANALFILES + analdir=`egrep '^ AFILEPREF' RAMSIN` + analdir=${analdir%\'*} + analdir=${analdir#*\'} +fi + +############################################################## +# Execute repacking of HDF5 files + +if [ -z "$3" ]; then + if [ "$runtype" == "surface" ]; then + + # topo files + lastmod=0 + thisdir=$topdir + repack + + # sfc files + lastmod=0 + thisdir=$sfcdir + repack + + # sst files + lastmod=0 + thisdir=$sstdir + repack + + # ndvi files + lastmod=0 + thisdir=$ndvidir + repack + + elif [ "$runtype" == "analysis" ]; then + + # Copy RAMSIN to the directory on frost + #scp RAMSIN ldgrant@frost.atmos.colostate.edu:$supcelldir +# scp RAMSIN $copydir + + + # analysis files + thisdir=$analdir + + # Determine job string for repack execution + if [ $exectype -eq 1 ]; then # LSF + jobout=$(bjobs | grep $ramsname | grep RUN 2>&1 | sed "s/ .*//") + elif [ $exectype -eq 2 ]; then # Standard + jobout=$(pidof -s $ramsname) + fi + echo "jobout1: $jobout" + + # Initialize filecounts. + # The repacking process can take a long time. During the repacking, files + # may be generated and the loop in 'repack' does not see them. These vars + # will test if new files have been created. + prefilecount=`ls -1 $thisdir*'.h5' | wc -l` + postfilecount=0 + echo "prefilecount, postfilecount: $prefilecount $postfilecount" + + # Continue to execute repack if (1) the model is running OR + # (2) the number of files have changed since + # last repack, i.e. new files were generated + lastmod=0 + while [[ -n "$jobout" ]] || [[ $prefilecount -ne $postfilecount ]] + do + + # Reset prefilecount before repack call + prefilecount=`ls -1 $thisdir*'.h5' | wc -l` + + # Execute the repack function. + repack + + # Regrab file count. If this number is different than prefilecount, the + # repack function will execute again + postfilecount=`ls -1 $thisdir*'.h5' | wc -l` + echo "prefilecount, postfilecount: $prefilecount $postfilecount" + + # execute time controller + sleep $checkint + + # Check again for job name to see if it finished + # Determine job string for repack execution + if [ $exectype -eq 1 ]; then # LSF + jobout=$(bjobs | grep $ramsname | grep RUN 2>&1) + elif [ $exectype -eq 2 ]; then # Standard + jobout=$(pidof -s $ramsname) + fi + echo "jobout2: $jobout" + done + # One final check after while loop to catch the ending file + #repack + + # We are done + echo $ramsname" finished and x.repack.sh is terminating" + else + echo "Runtype not recognized!" + echo "Runtype must be either 'surface' or 'analysis'" + exit + fi +else + lastmod=0 + repacksecs=31556900 # seconds in a year. If files are older, change. + thisdir=$3 # set directory to third argumemnt + repack + exit +fi + +exit + +############################################################### + + diff --git a/docs/ComputerDocs-Cheyenne/include.mk.cheyenne.mylibs b/docs/ComputerDocs-Cheyenne/include.mk.cheyenne.mylibs new file mode 100644 index 0000000..4372cd1 --- /dev/null +++ b/docs/ComputerDocs-Cheyenne/include.mk.cheyenne.mylibs @@ -0,0 +1,117 @@ +############################################################################# +# Define make (gnu make works best) +############################################################################# +MAKE=/usr/bin/make + +############################################################################# +# Set your RAMS root path and version number +############################################################################# +RAMS_ROOT=/glade/u/home/stephenh/Rams/rams_20171109_rce_6.2.08 +RAMS_VERSION=6.2.08 + +HDF5_ROOT=/glade/u/home/stephenh/Rams/misc/hdf5-1.8.9-install +MPI_ROOT=/glade/u/home/stephenh/Rams/misc/mpich2-1.4.1-install + +MODEL=$(RAMS_ROOT)/src/$(RAMS_VERSION) +UTILS_INCS=-I$(MODEL)/include + +############################################################################# +# HDF libraries +# Note that linking libraries below are in a particular order to work! +############################################################################# +HDF5_LIBS=-L$(HDF5_ROOT)/lib -lhdf5_hl -lhdf5 -lz +HDF5_INCS=-I$(HDF5_ROOT)/include +HDF5_DEFS= + +############################################################################# +# TYPE OF COMPUTER SYSTEM (used for DEFINE statements for intrinsic calls) +############################################################################# +CMACH=PC_LINUX1 #Standard Linux (only option available now) + +############################################################################# +# UNCOMMENT 1 LINUX FORTRAN COMPILER SET OF FLAGS BELOW +############################################################################# +# Note that some Fortran optimizations greater than -O1 will not necessarily +# produce identical results when running same executable multiple times. +# This is perhaps due to order of operations or unrolling loop order that +# changes solutions slightly. This is not ideal for research applications +# involving sensitivity studies that require exact duplication. As such, +# the Makefile is setup to allow different optimizations for different source +# files. The F_OPTS1 and F_OPTS2 variables below can hold different compiler +# flags as needed. Further, for duplication of results you may need to force +# IEEE standard which is done in examples below. +# Please coordinate variables below with the commands in the Makefile. +# Mandatory fortran variables are (F_COMP, F_OPTS1, F_OPTS2, LOADER,OPTS). + +#Definitions of compiler flags below +# F_COMP = path to compiler executable +# F_OPTS1 = Uses of flags for lower optimization for some files +# F_OPTS2 = Uses of flags for higher optimization for some files +# LOADER_OPTS = Flags and optimaztion for LOADER +# LIBS = Extra system libraries for linking that some compilers need + +#***************************** +# FOR INTEL IFORT COMPILER +#***************************** +# (-g) for debugging, (-traceback) for more compiler error info +# (-check bounds) for array bounds checking, (-fp-model precise) for IEEE +# (-check uninit) for finding uninitialized variables, (-free) for free format +F_COMP=ifort +F_OPTS=-free -static-intel -fp-model precise -traceback -march=corei7 -axAVX +F_OPTS1=-O1 $(F_OPTS) +F_OPTS2=-O2 $(F_OPTS) + +LOADER=$(F_COMP) +LOADER_OPTS=$(F_OPTS2) + +#***************************** +# FOR PGI PGF90 COMPILER +#***************************** +# (-g) for debugging, (-Kieee) for IEEE, (-Mfree) for free format +#F_COMP=/usr/local/pgi/linux86-64/15.10/bin/pgf90 +#F_OPTS1=-Mfree -O1 -Kieee +#F_OPTS2=-Mfree -O2 -Kieee +#LOADER_OPTS=-Mfree -O2 -Kieee +#LIBS= + +#***************************** +# FOR GFORTRAN COMPILER +#***************************** +# (-Wall) for warnings, (-ffree-form) for free format +# (-fno-sign-zero) for not making zeros negative values +# (-fcheck=bounds) check for array bounds issues +# (-fcheck=all) all runtime checking +#F_COMP=/usr/bin/gfortran +#F_OPTS1=-ffree-form -O1 +#F_OPTS2=-ffree-form -O2 +#LOADER_OPTS=-ffree-form -O2 +#LIBS=-L/usr/lib/x86_64-linux-gnu -lrt -lpthread + +############################################################################# +# LINUX C compiler choice and flags (gcc) +############################################################################# +C_COMP=$(MPI_ROOT)/bin/mpicc +C_OPTS=-O3 -DUNDERSCORE -DLITTLE + +############################################################################# +# System archive command syntax +############################################################################# +ARCH=ar rs + +############################################################################# +# MPI - parallel processing choices +############################################################################# +#PAR_LIBS= #leave blank (override below if using MPI) +#PAR_DEFS= #leave blank (override below if using MPI) +#---------------------------------------------------------------------------- +# If using MPI libraries: +#---------------------------------------------------------------------------- +#---------------LINUX MPICH---------------------------------------------------- +PAR_INCS=-I$(MPI_ROOT)/include +PAR_LIBS=-L$(MPI_ROOT)/lib -lmpich -lmpl -llmpe -lrt +PAR_DEFS=-DRAMS_MPI + +#---------------LINUX OPENMPI------------------------------------------------ +#PAR_INCS=-I$(MPI_ROOT)/include +#PAR_LIBS=-L$(MPI_ROOT)/lib -lmpi +#PAR_DEFS=-DRAMS_MPI diff --git a/docs/Quickbeam-Userguide.pdf b/docs/Quickbeam-Userguide.pdf new file mode 100644 index 0000000..e990218 Binary files /dev/null and b/docs/Quickbeam-Userguide.pdf differ diff --git a/docs/RAMS-Customization.pdf b/docs/RAMS-Customization.pdf new file mode 100644 index 0000000..f1ec66c Binary files /dev/null and b/docs/RAMS-Customization.pdf differ diff --git a/docs/RAMS-DataPrep.pdf b/docs/RAMS-DataPrep.pdf new file mode 100644 index 0000000..3e5c18e Binary files /dev/null and b/docs/RAMS-DataPrep.pdf differ diff --git a/docs/RAMS-HUCM-Bin-Micro.pdf b/docs/RAMS-HUCM-Bin-Micro.pdf new file mode 100644 index 0000000..b8ab45e Binary files /dev/null and b/docs/RAMS-HUCM-Bin-Micro.pdf differ diff --git a/docs/RAMS-Introduction.pdf b/docs/RAMS-Introduction.pdf new file mode 100644 index 0000000..3e3bb17 Binary files /dev/null and b/docs/RAMS-Introduction.pdf differ diff --git a/docs/RAMS-Leaf2-to-Leaf3.pdf b/docs/RAMS-Leaf2-to-Leaf3.pdf new file mode 100644 index 0000000..8f97251 Binary files /dev/null and b/docs/RAMS-Leaf2-to-Leaf3.pdf differ diff --git a/docs/RAMS-Namelist.pdf b/docs/RAMS-Namelist.pdf new file mode 100644 index 0000000..62f9810 Binary files /dev/null and b/docs/RAMS-Namelist.pdf differ diff --git a/docs/RAMS-OutputVariablesREVU.pdf b/docs/RAMS-OutputVariablesREVU.pdf new file mode 100644 index 0000000..918c3d7 Binary files /dev/null and b/docs/RAMS-OutputVariablesREVU.pdf differ diff --git a/docs/RAMS-TechnicalManual.pdf b/docs/RAMS-TechnicalManual.pdf new file mode 100644 index 0000000..8b1a2ed Binary files /dev/null and b/docs/RAMS-TechnicalManual.pdf differ diff --git a/docs/RAMS-Updates.pdf b/docs/RAMS-Updates.pdf new file mode 100644 index 0000000..03c8999 Binary files /dev/null and b/docs/RAMS-Updates.pdf differ diff --git a/docs/RAMS-VariableList.pdf b/docs/RAMS-VariableList.pdf new file mode 100644 index 0000000..bdd8a85 Binary files /dev/null and b/docs/RAMS-VariableList.pdf differ diff --git a/etc/DustErodeFrac-Ginoux2001.txt b/etc/DustErodeFrac-Ginoux2001.txt new file mode 100755 index 0000000..9c1e375 --- /dev/null +++ b/etc/DustErodeFrac-Ginoux2001.txt @@ -0,0 +1,64800 @@ + -89.50000 -179.5000 0.0000000E+00 + -88.50000 -179.5000 0.0000000E+00 + -87.50000 -179.5000 0.0000000E+00 + -86.50000 -179.5000 0.0000000E+00 + -85.50000 -179.5000 0.0000000E+00 + -84.50000 -179.5000 0.0000000E+00 + -83.50000 -179.5000 0.0000000E+00 + -82.50000 -179.5000 0.0000000E+00 + -81.50000 -179.5000 0.0000000E+00 + -80.50000 -179.5000 0.0000000E+00 + -79.50000 -179.5000 0.0000000E+00 + -78.50000 -179.5000 0.0000000E+00 + -77.50000 -179.5000 0.0000000E+00 + -76.50000 -179.5000 0.0000000E+00 + -75.50000 -179.5000 0.0000000E+00 + -74.50000 -179.5000 0.0000000E+00 + -73.50000 -179.5000 0.0000000E+00 + -72.50000 -179.5000 0.0000000E+00 + -71.50000 -179.5000 0.0000000E+00 + -70.50000 -179.5000 0.0000000E+00 + -69.50000 -179.5000 0.0000000E+00 + -68.50000 -179.5000 0.0000000E+00 + -67.50000 -179.5000 0.0000000E+00 + -66.50000 -179.5000 0.0000000E+00 + -65.50000 -179.5000 0.0000000E+00 + -64.50000 -179.5000 0.0000000E+00 + -63.50000 -179.5000 0.0000000E+00 + -62.50000 -179.5000 0.0000000E+00 + -61.50000 -179.5000 0.0000000E+00 + -60.50000 -179.5000 0.0000000E+00 + -59.50000 -179.5000 0.0000000E+00 + -58.50000 -179.5000 0.0000000E+00 + -57.50000 -179.5000 0.0000000E+00 + -56.50000 -179.5000 0.0000000E+00 + -55.50000 -179.5000 0.0000000E+00 + -54.50000 -179.5000 0.0000000E+00 + -53.50000 -179.5000 0.0000000E+00 + -52.50000 -179.5000 0.0000000E+00 + -51.50000 -179.5000 0.0000000E+00 + -50.50000 -179.5000 0.0000000E+00 + -49.50000 -179.5000 0.0000000E+00 + -48.50000 -179.5000 0.0000000E+00 + -47.50000 -179.5000 0.0000000E+00 + -46.50000 -179.5000 0.0000000E+00 + -45.50000 -179.5000 0.0000000E+00 + -44.50000 -179.5000 0.0000000E+00 + -43.50000 -179.5000 0.0000000E+00 + -42.50000 -179.5000 0.0000000E+00 + -41.50000 -179.5000 0.0000000E+00 + -40.50000 -179.5000 0.0000000E+00 + -39.50000 -179.5000 0.0000000E+00 + -38.50000 -179.5000 0.0000000E+00 + -37.50000 -179.5000 0.0000000E+00 + -36.50000 -179.5000 0.0000000E+00 + -35.50000 -179.5000 0.0000000E+00 + -34.50000 -179.5000 0.0000000E+00 + -33.50000 -179.5000 0.0000000E+00 + -32.50000 -179.5000 0.0000000E+00 + -31.50000 -179.5000 0.0000000E+00 + -30.50000 -179.5000 0.0000000E+00 + -29.50000 -179.5000 0.0000000E+00 + -28.50000 -179.5000 0.0000000E+00 + -27.50000 -179.5000 0.0000000E+00 + -26.50000 -179.5000 0.0000000E+00 + -25.50000 -179.5000 0.0000000E+00 + -24.50000 -179.5000 0.0000000E+00 + -23.50000 -179.5000 0.0000000E+00 + -22.50000 -179.5000 0.0000000E+00 + -21.50000 -179.5000 0.0000000E+00 + -20.50000 -179.5000 0.0000000E+00 + -19.50000 -179.5000 0.0000000E+00 + -18.50000 -179.5000 0.0000000E+00 + -17.50000 -179.5000 0.0000000E+00 + -16.50000 -179.5000 0.0000000E+00 + -15.50000 -179.5000 0.0000000E+00 + -14.50000 -179.5000 0.0000000E+00 + -13.50000 -179.5000 0.0000000E+00 + -12.50000 -179.5000 0.0000000E+00 + -11.50000 -179.5000 0.0000000E+00 + -10.50000 -179.5000 0.0000000E+00 + -9.500000 -179.5000 0.0000000E+00 + -8.500000 -179.5000 0.0000000E+00 + -7.500000 -179.5000 0.0000000E+00 + -6.500000 -179.5000 0.0000000E+00 + -5.500000 -179.5000 0.0000000E+00 + -4.500000 -179.5000 0.0000000E+00 + -3.500000 -179.5000 0.0000000E+00 + -2.500000 -179.5000 0.0000000E+00 + -1.500000 -179.5000 0.0000000E+00 + -0.5000000 -179.5000 0.0000000E+00 + 0.5000000 -179.5000 0.0000000E+00 + 1.500000 -179.5000 0.0000000E+00 + 2.500000 -179.5000 0.0000000E+00 + 3.500000 -179.5000 0.0000000E+00 + 4.500000 -179.5000 0.0000000E+00 + 5.500000 -179.5000 0.0000000E+00 + 6.500000 -179.5000 0.0000000E+00 + 7.500000 -179.5000 0.0000000E+00 + 8.500000 -179.5000 0.0000000E+00 + 9.500000 -179.5000 0.0000000E+00 + 10.50000 -179.5000 0.0000000E+00 + 11.50000 -179.5000 0.0000000E+00 + 12.50000 -179.5000 0.0000000E+00 + 13.50000 -179.5000 0.0000000E+00 + 14.50000 -179.5000 0.0000000E+00 + 15.50000 -179.5000 0.0000000E+00 + 16.50000 -179.5000 0.0000000E+00 + 17.50000 -179.5000 0.0000000E+00 + 18.50000 -179.5000 0.0000000E+00 + 19.50000 -179.5000 0.0000000E+00 + 20.50000 -179.5000 0.0000000E+00 + 21.50000 -179.5000 0.0000000E+00 + 22.50000 -179.5000 0.0000000E+00 + 23.50000 -179.5000 0.0000000E+00 + 24.50000 -179.5000 0.0000000E+00 + 25.50000 -179.5000 0.0000000E+00 + 26.50000 -179.5000 0.0000000E+00 + 27.50000 -179.5000 0.0000000E+00 + 28.50000 -179.5000 0.0000000E+00 + 29.50000 -179.5000 0.0000000E+00 + 30.50000 -179.5000 0.0000000E+00 + 31.50000 -179.5000 0.0000000E+00 + 32.50000 -179.5000 0.0000000E+00 + 33.50000 -179.5000 0.0000000E+00 + 34.50000 -179.5000 0.0000000E+00 + 35.50000 -179.5000 0.0000000E+00 + 36.50000 -179.5000 0.0000000E+00 + 37.50000 -179.5000 0.0000000E+00 + 38.50000 -179.5000 0.0000000E+00 + 39.50000 -179.5000 0.0000000E+00 + 40.50000 -179.5000 0.0000000E+00 + 41.50000 -179.5000 0.0000000E+00 + 42.50000 -179.5000 0.0000000E+00 + 43.50000 -179.5000 0.0000000E+00 + 44.50000 -179.5000 0.0000000E+00 + 45.50000 -179.5000 0.0000000E+00 + 46.50000 -179.5000 0.0000000E+00 + 47.50000 -179.5000 0.0000000E+00 + 48.50000 -179.5000 0.0000000E+00 + 49.50000 -179.5000 0.0000000E+00 + 50.50000 -179.5000 0.0000000E+00 + 51.50000 -179.5000 0.0000000E+00 + 52.50000 -179.5000 0.0000000E+00 + 53.50000 -179.5000 0.0000000E+00 + 54.50000 -179.5000 0.0000000E+00 + 55.50000 -179.5000 0.0000000E+00 + 56.50000 -179.5000 0.0000000E+00 + 57.50000 -179.5000 0.0000000E+00 + 58.50000 -179.5000 0.0000000E+00 + 59.50000 -179.5000 0.0000000E+00 + 60.50000 -179.5000 0.0000000E+00 + 61.50000 -179.5000 0.0000000E+00 + 62.50000 -179.5000 0.0000000E+00 + 63.50000 -179.5000 0.0000000E+00 + 64.50000 -179.5000 0.0000000E+00 + 65.50000 -179.5000 0.0000000E+00 + 66.50000 -179.5000 0.0000000E+00 + 67.50000 -179.5000 0.0000000E+00 + 68.50000 -179.5000 0.0000000E+00 + 69.50000 -179.5000 0.0000000E+00 + 70.50000 -179.5000 0.0000000E+00 + 71.50000 -179.5000 0.0000000E+00 + 72.50000 -179.5000 0.0000000E+00 + 73.50000 -179.5000 0.0000000E+00 + 74.50000 -179.5000 0.0000000E+00 + 75.50000 -179.5000 0.0000000E+00 + 76.50000 -179.5000 0.0000000E+00 + 77.50000 -179.5000 0.0000000E+00 + 78.50000 -179.5000 0.0000000E+00 + 79.50000 -179.5000 0.0000000E+00 + 80.50000 -179.5000 0.0000000E+00 + 81.50000 -179.5000 0.0000000E+00 + 82.50000 -179.5000 0.0000000E+00 + 83.50000 -179.5000 0.0000000E+00 + 84.50000 -179.5000 0.0000000E+00 + 85.50000 -179.5000 0.0000000E+00 + 86.50000 -179.5000 0.0000000E+00 + 87.50000 -179.5000 0.0000000E+00 + 88.50000 -179.5000 0.0000000E+00 + 89.50000 -179.5000 0.0000000E+00 + -89.50000 -178.5000 0.0000000E+00 + -88.50000 -178.5000 0.0000000E+00 + -87.50000 -178.5000 0.0000000E+00 + -86.50000 -178.5000 0.0000000E+00 + -85.50000 -178.5000 0.0000000E+00 + -84.50000 -178.5000 0.0000000E+00 + -83.50000 -178.5000 0.0000000E+00 + -82.50000 -178.5000 0.0000000E+00 + -81.50000 -178.5000 0.0000000E+00 + -80.50000 -178.5000 0.0000000E+00 + -79.50000 -178.5000 0.0000000E+00 + -78.50000 -178.5000 0.0000000E+00 + -77.50000 -178.5000 0.0000000E+00 + -76.50000 -178.5000 0.0000000E+00 + -75.50000 -178.5000 0.0000000E+00 + -74.50000 -178.5000 0.0000000E+00 + -73.50000 -178.5000 0.0000000E+00 + -72.50000 -178.5000 0.0000000E+00 + -71.50000 -178.5000 0.0000000E+00 + -70.50000 -178.5000 0.0000000E+00 + -69.50000 -178.5000 0.0000000E+00 + -68.50000 -178.5000 0.0000000E+00 + -67.50000 -178.5000 0.0000000E+00 + -66.50000 -178.5000 0.0000000E+00 + -65.50000 -178.5000 0.0000000E+00 + -64.50000 -178.5000 0.0000000E+00 + -63.50000 -178.5000 0.0000000E+00 + -62.50000 -178.5000 0.0000000E+00 + -61.50000 -178.5000 0.0000000E+00 + -60.50000 -178.5000 0.0000000E+00 + -59.50000 -178.5000 0.0000000E+00 + -58.50000 -178.5000 0.0000000E+00 + -57.50000 -178.5000 0.0000000E+00 + -56.50000 -178.5000 0.0000000E+00 + -55.50000 -178.5000 0.0000000E+00 + -54.50000 -178.5000 0.0000000E+00 + -53.50000 -178.5000 0.0000000E+00 + -52.50000 -178.5000 0.0000000E+00 + -51.50000 -178.5000 0.0000000E+00 + -50.50000 -178.5000 0.0000000E+00 + -49.50000 -178.5000 0.0000000E+00 + -48.50000 -178.5000 0.0000000E+00 + -47.50000 -178.5000 0.0000000E+00 + -46.50000 -178.5000 0.0000000E+00 + -45.50000 -178.5000 0.0000000E+00 + -44.50000 -178.5000 0.0000000E+00 + -43.50000 -178.5000 0.0000000E+00 + -42.50000 -178.5000 0.0000000E+00 + -41.50000 -178.5000 0.0000000E+00 + -40.50000 -178.5000 0.0000000E+00 + -39.50000 -178.5000 0.0000000E+00 + -38.50000 -178.5000 0.0000000E+00 + -37.50000 -178.5000 0.0000000E+00 + -36.50000 -178.5000 0.0000000E+00 + -35.50000 -178.5000 0.0000000E+00 + -34.50000 -178.5000 0.0000000E+00 + -33.50000 -178.5000 0.0000000E+00 + -32.50000 -178.5000 0.0000000E+00 + -31.50000 -178.5000 0.0000000E+00 + -30.50000 -178.5000 0.0000000E+00 + -29.50000 -178.5000 0.0000000E+00 + -28.50000 -178.5000 0.0000000E+00 + -27.50000 -178.5000 0.0000000E+00 + -26.50000 -178.5000 0.0000000E+00 + -25.50000 -178.5000 0.0000000E+00 + -24.50000 -178.5000 0.0000000E+00 + -23.50000 -178.5000 0.0000000E+00 + -22.50000 -178.5000 0.0000000E+00 + -21.50000 -178.5000 0.0000000E+00 + -20.50000 -178.5000 0.0000000E+00 + -19.50000 -178.5000 0.0000000E+00 + -18.50000 -178.5000 0.0000000E+00 + -17.50000 -178.5000 0.0000000E+00 + -16.50000 -178.5000 0.0000000E+00 + -15.50000 -178.5000 0.0000000E+00 + -14.50000 -178.5000 0.0000000E+00 + -13.50000 -178.5000 0.0000000E+00 + -12.50000 -178.5000 0.0000000E+00 + -11.50000 -178.5000 0.0000000E+00 + -10.50000 -178.5000 0.0000000E+00 + -9.500000 -178.5000 0.0000000E+00 + -8.500000 -178.5000 0.0000000E+00 + -7.500000 -178.5000 0.0000000E+00 + -6.500000 -178.5000 0.0000000E+00 + -5.500000 -178.5000 0.0000000E+00 + -4.500000 -178.5000 0.0000000E+00 + -3.500000 -178.5000 0.0000000E+00 + -2.500000 -178.5000 0.0000000E+00 + -1.500000 -178.5000 0.0000000E+00 + -0.5000000 -178.5000 0.0000000E+00 + 0.5000000 -178.5000 0.0000000E+00 + 1.500000 -178.5000 0.0000000E+00 + 2.500000 -178.5000 0.0000000E+00 + 3.500000 -178.5000 0.0000000E+00 + 4.500000 -178.5000 0.0000000E+00 + 5.500000 -178.5000 0.0000000E+00 + 6.500000 -178.5000 0.0000000E+00 + 7.500000 -178.5000 0.0000000E+00 + 8.500000 -178.5000 0.0000000E+00 + 9.500000 -178.5000 0.0000000E+00 + 10.50000 -178.5000 0.0000000E+00 + 11.50000 -178.5000 0.0000000E+00 + 12.50000 -178.5000 0.0000000E+00 + 13.50000 -178.5000 0.0000000E+00 + 14.50000 -178.5000 0.0000000E+00 + 15.50000 -178.5000 0.0000000E+00 + 16.50000 -178.5000 0.0000000E+00 + 17.50000 -178.5000 0.0000000E+00 + 18.50000 -178.5000 0.0000000E+00 + 19.50000 -178.5000 0.0000000E+00 + 20.50000 -178.5000 0.0000000E+00 + 21.50000 -178.5000 0.0000000E+00 + 22.50000 -178.5000 0.0000000E+00 + 23.50000 -178.5000 0.0000000E+00 + 24.50000 -178.5000 0.0000000E+00 + 25.50000 -178.5000 0.0000000E+00 + 26.50000 -178.5000 0.0000000E+00 + 27.50000 -178.5000 0.0000000E+00 + 28.50000 -178.5000 0.0000000E+00 + 29.50000 -178.5000 0.0000000E+00 + 30.50000 -178.5000 0.0000000E+00 + 31.50000 -178.5000 0.0000000E+00 + 32.50000 -178.5000 0.0000000E+00 + 33.50000 -178.5000 0.0000000E+00 + 34.50000 -178.5000 0.0000000E+00 + 35.50000 -178.5000 0.0000000E+00 + 36.50000 -178.5000 0.0000000E+00 + 37.50000 -178.5000 0.0000000E+00 + 38.50000 -178.5000 0.0000000E+00 + 39.50000 -178.5000 0.0000000E+00 + 40.50000 -178.5000 0.0000000E+00 + 41.50000 -178.5000 0.0000000E+00 + 42.50000 -178.5000 0.0000000E+00 + 43.50000 -178.5000 0.0000000E+00 + 44.50000 -178.5000 0.0000000E+00 + 45.50000 -178.5000 0.0000000E+00 + 46.50000 -178.5000 0.0000000E+00 + 47.50000 -178.5000 0.0000000E+00 + 48.50000 -178.5000 0.0000000E+00 + 49.50000 -178.5000 0.0000000E+00 + 50.50000 -178.5000 0.0000000E+00 + 51.50000 -178.5000 0.0000000E+00 + 52.50000 -178.5000 0.0000000E+00 + 53.50000 -178.5000 0.0000000E+00 + 54.50000 -178.5000 0.0000000E+00 + 55.50000 -178.5000 0.0000000E+00 + 56.50000 -178.5000 0.0000000E+00 + 57.50000 -178.5000 0.0000000E+00 + 58.50000 -178.5000 0.0000000E+00 + 59.50000 -178.5000 0.0000000E+00 + 60.50000 -178.5000 0.0000000E+00 + 61.50000 -178.5000 0.0000000E+00 + 62.50000 -178.5000 0.0000000E+00 + 63.50000 -178.5000 0.0000000E+00 + 64.50000 -178.5000 0.0000000E+00 + 65.50000 -178.5000 0.0000000E+00 + 66.50000 -178.5000 0.0000000E+00 + 67.50000 -178.5000 0.0000000E+00 + 68.50000 -178.5000 0.0000000E+00 + 69.50000 -178.5000 0.0000000E+00 + 70.50000 -178.5000 0.0000000E+00 + 71.50000 -178.5000 0.0000000E+00 + 72.50000 -178.5000 0.0000000E+00 + 73.50000 -178.5000 0.0000000E+00 + 74.50000 -178.5000 0.0000000E+00 + 75.50000 -178.5000 0.0000000E+00 + 76.50000 -178.5000 0.0000000E+00 + 77.50000 -178.5000 0.0000000E+00 + 78.50000 -178.5000 0.0000000E+00 + 79.50000 -178.5000 0.0000000E+00 + 80.50000 -178.5000 0.0000000E+00 + 81.50000 -178.5000 0.0000000E+00 + 82.50000 -178.5000 0.0000000E+00 + 83.50000 -178.5000 0.0000000E+00 + 84.50000 -178.5000 0.0000000E+00 + 85.50000 -178.5000 0.0000000E+00 + 86.50000 -178.5000 0.0000000E+00 + 87.50000 -178.5000 0.0000000E+00 + 88.50000 -178.5000 0.0000000E+00 + 89.50000 -178.5000 0.0000000E+00 + -89.50000 -177.5000 0.0000000E+00 + -88.50000 -177.5000 0.0000000E+00 + -87.50000 -177.5000 0.0000000E+00 + -86.50000 -177.5000 0.0000000E+00 + -85.50000 -177.5000 0.0000000E+00 + -84.50000 -177.5000 0.0000000E+00 + -83.50000 -177.5000 0.0000000E+00 + -82.50000 -177.5000 0.0000000E+00 + -81.50000 -177.5000 0.0000000E+00 + -80.50000 -177.5000 0.0000000E+00 + -79.50000 -177.5000 0.0000000E+00 + -78.50000 -177.5000 0.0000000E+00 + -77.50000 -177.5000 0.0000000E+00 + -76.50000 -177.5000 0.0000000E+00 + -75.50000 -177.5000 0.0000000E+00 + -74.50000 -177.5000 0.0000000E+00 + -73.50000 -177.5000 0.0000000E+00 + -72.50000 -177.5000 0.0000000E+00 + -71.50000 -177.5000 0.0000000E+00 + -70.50000 -177.5000 0.0000000E+00 + -69.50000 -177.5000 0.0000000E+00 + -68.50000 -177.5000 0.0000000E+00 + -67.50000 -177.5000 0.0000000E+00 + -66.50000 -177.5000 0.0000000E+00 + -65.50000 -177.5000 0.0000000E+00 + -64.50000 -177.5000 0.0000000E+00 + -63.50000 -177.5000 0.0000000E+00 + -62.50000 -177.5000 0.0000000E+00 + -61.50000 -177.5000 0.0000000E+00 + -60.50000 -177.5000 0.0000000E+00 + -59.50000 -177.5000 0.0000000E+00 + -58.50000 -177.5000 0.0000000E+00 + -57.50000 -177.5000 0.0000000E+00 + -56.50000 -177.5000 0.0000000E+00 + -55.50000 -177.5000 0.0000000E+00 + -54.50000 -177.5000 0.0000000E+00 + -53.50000 -177.5000 0.0000000E+00 + -52.50000 -177.5000 0.0000000E+00 + -51.50000 -177.5000 0.0000000E+00 + -50.50000 -177.5000 0.0000000E+00 + -49.50000 -177.5000 0.0000000E+00 + -48.50000 -177.5000 0.0000000E+00 + -47.50000 -177.5000 0.0000000E+00 + -46.50000 -177.5000 0.0000000E+00 + -45.50000 -177.5000 0.0000000E+00 + -44.50000 -177.5000 0.0000000E+00 + -43.50000 -177.5000 0.0000000E+00 + -42.50000 -177.5000 0.0000000E+00 + -41.50000 -177.5000 0.0000000E+00 + -40.50000 -177.5000 0.0000000E+00 + -39.50000 -177.5000 0.0000000E+00 + -38.50000 -177.5000 0.0000000E+00 + -37.50000 -177.5000 0.0000000E+00 + -36.50000 -177.5000 0.0000000E+00 + -35.50000 -177.5000 0.0000000E+00 + -34.50000 -177.5000 0.0000000E+00 + -33.50000 -177.5000 0.0000000E+00 + -32.50000 -177.5000 0.0000000E+00 + -31.50000 -177.5000 0.0000000E+00 + -30.50000 -177.5000 0.0000000E+00 + -29.50000 -177.5000 0.0000000E+00 + -28.50000 -177.5000 0.0000000E+00 + -27.50000 -177.5000 0.0000000E+00 + -26.50000 -177.5000 0.0000000E+00 + -25.50000 -177.5000 0.0000000E+00 + -24.50000 -177.5000 0.0000000E+00 + -23.50000 -177.5000 0.0000000E+00 + -22.50000 -177.5000 0.0000000E+00 + -21.50000 -177.5000 0.0000000E+00 + -20.50000 -177.5000 0.0000000E+00 + -19.50000 -177.5000 0.0000000E+00 + -18.50000 -177.5000 0.0000000E+00 + -17.50000 -177.5000 0.0000000E+00 + -16.50000 -177.5000 0.0000000E+00 + -15.50000 -177.5000 0.0000000E+00 + -14.50000 -177.5000 0.0000000E+00 + -13.50000 -177.5000 0.0000000E+00 + -12.50000 -177.5000 0.0000000E+00 + -11.50000 -177.5000 0.0000000E+00 + -10.50000 -177.5000 0.0000000E+00 + -9.500000 -177.5000 0.0000000E+00 + -8.500000 -177.5000 0.0000000E+00 + -7.500000 -177.5000 0.0000000E+00 + -6.500000 -177.5000 0.0000000E+00 + -5.500000 -177.5000 0.0000000E+00 + -4.500000 -177.5000 0.0000000E+00 + -3.500000 -177.5000 0.0000000E+00 + -2.500000 -177.5000 0.0000000E+00 + -1.500000 -177.5000 0.0000000E+00 + -0.5000000 -177.5000 0.0000000E+00 + 0.5000000 -177.5000 0.0000000E+00 + 1.500000 -177.5000 0.0000000E+00 + 2.500000 -177.5000 0.0000000E+00 + 3.500000 -177.5000 0.0000000E+00 + 4.500000 -177.5000 0.0000000E+00 + 5.500000 -177.5000 0.0000000E+00 + 6.500000 -177.5000 0.0000000E+00 + 7.500000 -177.5000 0.0000000E+00 + 8.500000 -177.5000 0.0000000E+00 + 9.500000 -177.5000 0.0000000E+00 + 10.50000 -177.5000 0.0000000E+00 + 11.50000 -177.5000 0.0000000E+00 + 12.50000 -177.5000 0.0000000E+00 + 13.50000 -177.5000 0.0000000E+00 + 14.50000 -177.5000 0.0000000E+00 + 15.50000 -177.5000 0.0000000E+00 + 16.50000 -177.5000 0.0000000E+00 + 17.50000 -177.5000 0.0000000E+00 + 18.50000 -177.5000 0.0000000E+00 + 19.50000 -177.5000 0.0000000E+00 + 20.50000 -177.5000 0.0000000E+00 + 21.50000 -177.5000 0.0000000E+00 + 22.50000 -177.5000 0.0000000E+00 + 23.50000 -177.5000 0.0000000E+00 + 24.50000 -177.5000 0.0000000E+00 + 25.50000 -177.5000 0.0000000E+00 + 26.50000 -177.5000 0.0000000E+00 + 27.50000 -177.5000 0.0000000E+00 + 28.50000 -177.5000 0.0000000E+00 + 29.50000 -177.5000 0.0000000E+00 + 30.50000 -177.5000 0.0000000E+00 + 31.50000 -177.5000 0.0000000E+00 + 32.50000 -177.5000 0.0000000E+00 + 33.50000 -177.5000 0.0000000E+00 + 34.50000 -177.5000 0.0000000E+00 + 35.50000 -177.5000 0.0000000E+00 + 36.50000 -177.5000 0.0000000E+00 + 37.50000 -177.5000 0.0000000E+00 + 38.50000 -177.5000 0.0000000E+00 + 39.50000 -177.5000 0.0000000E+00 + 40.50000 -177.5000 0.0000000E+00 + 41.50000 -177.5000 0.0000000E+00 + 42.50000 -177.5000 0.0000000E+00 + 43.50000 -177.5000 0.0000000E+00 + 44.50000 -177.5000 0.0000000E+00 + 45.50000 -177.5000 0.0000000E+00 + 46.50000 -177.5000 0.0000000E+00 + 47.50000 -177.5000 0.0000000E+00 + 48.50000 -177.5000 0.0000000E+00 + 49.50000 -177.5000 0.0000000E+00 + 50.50000 -177.5000 0.0000000E+00 + 51.50000 -177.5000 0.0000000E+00 + 52.50000 -177.5000 0.0000000E+00 + 53.50000 -177.5000 0.0000000E+00 + 54.50000 -177.5000 0.0000000E+00 + 55.50000 -177.5000 0.0000000E+00 + 56.50000 -177.5000 0.0000000E+00 + 57.50000 -177.5000 0.0000000E+00 + 58.50000 -177.5000 0.0000000E+00 + 59.50000 -177.5000 0.0000000E+00 + 60.50000 -177.5000 0.0000000E+00 + 61.50000 -177.5000 0.0000000E+00 + 62.50000 -177.5000 0.0000000E+00 + 63.50000 -177.5000 0.0000000E+00 + 64.50000 -177.5000 0.0000000E+00 + 65.50000 -177.5000 0.0000000E+00 + 66.50000 -177.5000 0.0000000E+00 + 67.50000 -177.5000 0.0000000E+00 + 68.50000 -177.5000 0.0000000E+00 + 69.50000 -177.5000 0.0000000E+00 + 70.50000 -177.5000 0.0000000E+00 + 71.50000 -177.5000 0.0000000E+00 + 72.50000 -177.5000 0.0000000E+00 + 73.50000 -177.5000 0.0000000E+00 + 74.50000 -177.5000 0.0000000E+00 + 75.50000 -177.5000 0.0000000E+00 + 76.50000 -177.5000 0.0000000E+00 + 77.50000 -177.5000 0.0000000E+00 + 78.50000 -177.5000 0.0000000E+00 + 79.50000 -177.5000 0.0000000E+00 + 80.50000 -177.5000 0.0000000E+00 + 81.50000 -177.5000 0.0000000E+00 + 82.50000 -177.5000 0.0000000E+00 + 83.50000 -177.5000 0.0000000E+00 + 84.50000 -177.5000 0.0000000E+00 + 85.50000 -177.5000 0.0000000E+00 + 86.50000 -177.5000 0.0000000E+00 + 87.50000 -177.5000 0.0000000E+00 + 88.50000 -177.5000 0.0000000E+00 + 89.50000 -177.5000 0.0000000E+00 + -89.50000 -176.5000 0.0000000E+00 + -88.50000 -176.5000 0.0000000E+00 + -87.50000 -176.5000 0.0000000E+00 + -86.50000 -176.5000 0.0000000E+00 + -85.50000 -176.5000 0.0000000E+00 + -84.50000 -176.5000 0.0000000E+00 + -83.50000 -176.5000 0.0000000E+00 + -82.50000 -176.5000 0.0000000E+00 + -81.50000 -176.5000 0.0000000E+00 + -80.50000 -176.5000 0.0000000E+00 + -79.50000 -176.5000 0.0000000E+00 + -78.50000 -176.5000 0.0000000E+00 + -77.50000 -176.5000 0.0000000E+00 + -76.50000 -176.5000 0.0000000E+00 + -75.50000 -176.5000 0.0000000E+00 + -74.50000 -176.5000 0.0000000E+00 + -73.50000 -176.5000 0.0000000E+00 + -72.50000 -176.5000 0.0000000E+00 + -71.50000 -176.5000 0.0000000E+00 + -70.50000 -176.5000 0.0000000E+00 + -69.50000 -176.5000 0.0000000E+00 + -68.50000 -176.5000 0.0000000E+00 + -67.50000 -176.5000 0.0000000E+00 + -66.50000 -176.5000 0.0000000E+00 + -65.50000 -176.5000 0.0000000E+00 + -64.50000 -176.5000 0.0000000E+00 + -63.50000 -176.5000 0.0000000E+00 + -62.50000 -176.5000 0.0000000E+00 + -61.50000 -176.5000 0.0000000E+00 + -60.50000 -176.5000 0.0000000E+00 + -59.50000 -176.5000 0.0000000E+00 + -58.50000 -176.5000 0.0000000E+00 + -57.50000 -176.5000 0.0000000E+00 + -56.50000 -176.5000 0.0000000E+00 + -55.50000 -176.5000 0.0000000E+00 + -54.50000 -176.5000 0.0000000E+00 + -53.50000 -176.5000 0.0000000E+00 + -52.50000 -176.5000 0.0000000E+00 + -51.50000 -176.5000 0.0000000E+00 + -50.50000 -176.5000 0.0000000E+00 + -49.50000 -176.5000 0.0000000E+00 + -48.50000 -176.5000 0.0000000E+00 + -47.50000 -176.5000 0.0000000E+00 + -46.50000 -176.5000 0.0000000E+00 + -45.50000 -176.5000 0.0000000E+00 + -44.50000 -176.5000 0.0000000E+00 + -43.50000 -176.5000 0.0000000E+00 + -42.50000 -176.5000 0.0000000E+00 + -41.50000 -176.5000 0.0000000E+00 + -40.50000 -176.5000 0.0000000E+00 + -39.50000 -176.5000 0.0000000E+00 + -38.50000 -176.5000 0.0000000E+00 + -37.50000 -176.5000 0.0000000E+00 + -36.50000 -176.5000 0.0000000E+00 + -35.50000 -176.5000 0.0000000E+00 + -34.50000 -176.5000 0.0000000E+00 + -33.50000 -176.5000 0.0000000E+00 + -32.50000 -176.5000 0.0000000E+00 + -31.50000 -176.5000 0.0000000E+00 + -30.50000 -176.5000 0.0000000E+00 + -29.50000 -176.5000 0.0000000E+00 + -28.50000 -176.5000 0.0000000E+00 + -27.50000 -176.5000 0.0000000E+00 + -26.50000 -176.5000 0.0000000E+00 + -25.50000 -176.5000 0.0000000E+00 + -24.50000 -176.5000 0.0000000E+00 + -23.50000 -176.5000 0.0000000E+00 + -22.50000 -176.5000 0.0000000E+00 + -21.50000 -176.5000 0.0000000E+00 + -20.50000 -176.5000 0.0000000E+00 + -19.50000 -176.5000 0.0000000E+00 + -18.50000 -176.5000 0.0000000E+00 + -17.50000 -176.5000 0.0000000E+00 + -16.50000 -176.5000 0.0000000E+00 + -15.50000 -176.5000 0.0000000E+00 + -14.50000 -176.5000 0.0000000E+00 + -13.50000 -176.5000 0.0000000E+00 + -12.50000 -176.5000 0.0000000E+00 + -11.50000 -176.5000 0.0000000E+00 + -10.50000 -176.5000 0.0000000E+00 + -9.500000 -176.5000 0.0000000E+00 + -8.500000 -176.5000 0.0000000E+00 + -7.500000 -176.5000 0.0000000E+00 + -6.500000 -176.5000 0.0000000E+00 + -5.500000 -176.5000 0.0000000E+00 + -4.500000 -176.5000 0.0000000E+00 + -3.500000 -176.5000 0.0000000E+00 + -2.500000 -176.5000 0.0000000E+00 + -1.500000 -176.5000 0.0000000E+00 + -0.5000000 -176.5000 0.0000000E+00 + 0.5000000 -176.5000 0.0000000E+00 + 1.500000 -176.5000 0.0000000E+00 + 2.500000 -176.5000 0.0000000E+00 + 3.500000 -176.5000 0.0000000E+00 + 4.500000 -176.5000 0.0000000E+00 + 5.500000 -176.5000 0.0000000E+00 + 6.500000 -176.5000 0.0000000E+00 + 7.500000 -176.5000 0.0000000E+00 + 8.500000 -176.5000 0.0000000E+00 + 9.500000 -176.5000 0.0000000E+00 + 10.50000 -176.5000 0.0000000E+00 + 11.50000 -176.5000 0.0000000E+00 + 12.50000 -176.5000 0.0000000E+00 + 13.50000 -176.5000 0.0000000E+00 + 14.50000 -176.5000 0.0000000E+00 + 15.50000 -176.5000 0.0000000E+00 + 16.50000 -176.5000 0.0000000E+00 + 17.50000 -176.5000 0.0000000E+00 + 18.50000 -176.5000 0.0000000E+00 + 19.50000 -176.5000 0.0000000E+00 + 20.50000 -176.5000 0.0000000E+00 + 21.50000 -176.5000 0.0000000E+00 + 22.50000 -176.5000 0.0000000E+00 + 23.50000 -176.5000 0.0000000E+00 + 24.50000 -176.5000 0.0000000E+00 + 25.50000 -176.5000 0.0000000E+00 + 26.50000 -176.5000 0.0000000E+00 + 27.50000 -176.5000 0.0000000E+00 + 28.50000 -176.5000 0.0000000E+00 + 29.50000 -176.5000 0.0000000E+00 + 30.50000 -176.5000 0.0000000E+00 + 31.50000 -176.5000 0.0000000E+00 + 32.50000 -176.5000 0.0000000E+00 + 33.50000 -176.5000 0.0000000E+00 + 34.50000 -176.5000 0.0000000E+00 + 35.50000 -176.5000 0.0000000E+00 + 36.50000 -176.5000 0.0000000E+00 + 37.50000 -176.5000 0.0000000E+00 + 38.50000 -176.5000 0.0000000E+00 + 39.50000 -176.5000 0.0000000E+00 + 40.50000 -176.5000 0.0000000E+00 + 41.50000 -176.5000 0.0000000E+00 + 42.50000 -176.5000 0.0000000E+00 + 43.50000 -176.5000 0.0000000E+00 + 44.50000 -176.5000 0.0000000E+00 + 45.50000 -176.5000 0.0000000E+00 + 46.50000 -176.5000 0.0000000E+00 + 47.50000 -176.5000 0.0000000E+00 + 48.50000 -176.5000 0.0000000E+00 + 49.50000 -176.5000 0.0000000E+00 + 50.50000 -176.5000 0.0000000E+00 + 51.50000 -176.5000 0.0000000E+00 + 52.50000 -176.5000 0.0000000E+00 + 53.50000 -176.5000 0.0000000E+00 + 54.50000 -176.5000 0.0000000E+00 + 55.50000 -176.5000 0.0000000E+00 + 56.50000 -176.5000 0.0000000E+00 + 57.50000 -176.5000 0.0000000E+00 + 58.50000 -176.5000 0.0000000E+00 + 59.50000 -176.5000 0.0000000E+00 + 60.50000 -176.5000 0.0000000E+00 + 61.50000 -176.5000 0.0000000E+00 + 62.50000 -176.5000 0.0000000E+00 + 63.50000 -176.5000 0.0000000E+00 + 64.50000 -176.5000 0.0000000E+00 + 65.50000 -176.5000 0.0000000E+00 + 66.50000 -176.5000 0.0000000E+00 + 67.50000 -176.5000 0.0000000E+00 + 68.50000 -176.5000 0.0000000E+00 + 69.50000 -176.5000 0.0000000E+00 + 70.50000 -176.5000 0.0000000E+00 + 71.50000 -176.5000 0.0000000E+00 + 72.50000 -176.5000 0.0000000E+00 + 73.50000 -176.5000 0.0000000E+00 + 74.50000 -176.5000 0.0000000E+00 + 75.50000 -176.5000 0.0000000E+00 + 76.50000 -176.5000 0.0000000E+00 + 77.50000 -176.5000 0.0000000E+00 + 78.50000 -176.5000 0.0000000E+00 + 79.50000 -176.5000 0.0000000E+00 + 80.50000 -176.5000 0.0000000E+00 + 81.50000 -176.5000 0.0000000E+00 + 82.50000 -176.5000 0.0000000E+00 + 83.50000 -176.5000 0.0000000E+00 + 84.50000 -176.5000 0.0000000E+00 + 85.50000 -176.5000 0.0000000E+00 + 86.50000 -176.5000 0.0000000E+00 + 87.50000 -176.5000 0.0000000E+00 + 88.50000 -176.5000 0.0000000E+00 + 89.50000 -176.5000 0.0000000E+00 + -89.50000 -175.5000 0.0000000E+00 + -88.50000 -175.5000 0.0000000E+00 + -87.50000 -175.5000 0.0000000E+00 + -86.50000 -175.5000 0.0000000E+00 + -85.50000 -175.5000 0.0000000E+00 + -84.50000 -175.5000 0.0000000E+00 + -83.50000 -175.5000 0.0000000E+00 + -82.50000 -175.5000 0.0000000E+00 + -81.50000 -175.5000 0.0000000E+00 + -80.50000 -175.5000 0.0000000E+00 + -79.50000 -175.5000 0.0000000E+00 + -78.50000 -175.5000 0.0000000E+00 + -77.50000 -175.5000 0.0000000E+00 + -76.50000 -175.5000 0.0000000E+00 + -75.50000 -175.5000 0.0000000E+00 + -74.50000 -175.5000 0.0000000E+00 + -73.50000 -175.5000 0.0000000E+00 + -72.50000 -175.5000 0.0000000E+00 + -71.50000 -175.5000 0.0000000E+00 + -70.50000 -175.5000 0.0000000E+00 + -69.50000 -175.5000 0.0000000E+00 + -68.50000 -175.5000 0.0000000E+00 + -67.50000 -175.5000 0.0000000E+00 + -66.50000 -175.5000 0.0000000E+00 + -65.50000 -175.5000 0.0000000E+00 + -64.50000 -175.5000 0.0000000E+00 + -63.50000 -175.5000 0.0000000E+00 + -62.50000 -175.5000 0.0000000E+00 + -61.50000 -175.5000 0.0000000E+00 + -60.50000 -175.5000 0.0000000E+00 + -59.50000 -175.5000 0.0000000E+00 + -58.50000 -175.5000 0.0000000E+00 + -57.50000 -175.5000 0.0000000E+00 + -56.50000 -175.5000 0.0000000E+00 + -55.50000 -175.5000 0.0000000E+00 + -54.50000 -175.5000 0.0000000E+00 + -53.50000 -175.5000 0.0000000E+00 + -52.50000 -175.5000 0.0000000E+00 + -51.50000 -175.5000 0.0000000E+00 + -50.50000 -175.5000 0.0000000E+00 + -49.50000 -175.5000 0.0000000E+00 + -48.50000 -175.5000 0.0000000E+00 + -47.50000 -175.5000 0.0000000E+00 + -46.50000 -175.5000 0.0000000E+00 + -45.50000 -175.5000 0.0000000E+00 + -44.50000 -175.5000 0.0000000E+00 + -43.50000 -175.5000 0.0000000E+00 + -42.50000 -175.5000 0.0000000E+00 + -41.50000 -175.5000 0.0000000E+00 + -40.50000 -175.5000 0.0000000E+00 + -39.50000 -175.5000 0.0000000E+00 + -38.50000 -175.5000 0.0000000E+00 + -37.50000 -175.5000 0.0000000E+00 + -36.50000 -175.5000 0.0000000E+00 + -35.50000 -175.5000 0.0000000E+00 + -34.50000 -175.5000 0.0000000E+00 + -33.50000 -175.5000 0.0000000E+00 + -32.50000 -175.5000 0.0000000E+00 + -31.50000 -175.5000 0.0000000E+00 + -30.50000 -175.5000 0.0000000E+00 + -29.50000 -175.5000 0.0000000E+00 + -28.50000 -175.5000 0.0000000E+00 + -27.50000 -175.5000 0.0000000E+00 + -26.50000 -175.5000 0.0000000E+00 + -25.50000 -175.5000 0.0000000E+00 + -24.50000 -175.5000 0.0000000E+00 + -23.50000 -175.5000 0.0000000E+00 + -22.50000 -175.5000 0.0000000E+00 + -21.50000 -175.5000 0.0000000E+00 + -20.50000 -175.5000 0.0000000E+00 + -19.50000 -175.5000 0.0000000E+00 + -18.50000 -175.5000 0.0000000E+00 + -17.50000 -175.5000 0.0000000E+00 + -16.50000 -175.5000 0.0000000E+00 + -15.50000 -175.5000 0.0000000E+00 + -14.50000 -175.5000 0.0000000E+00 + -13.50000 -175.5000 0.0000000E+00 + -12.50000 -175.5000 0.0000000E+00 + -11.50000 -175.5000 0.0000000E+00 + -10.50000 -175.5000 0.0000000E+00 + -9.500000 -175.5000 0.0000000E+00 + -8.500000 -175.5000 0.0000000E+00 + -7.500000 -175.5000 0.0000000E+00 + -6.500000 -175.5000 0.0000000E+00 + -5.500000 -175.5000 0.0000000E+00 + -4.500000 -175.5000 0.0000000E+00 + -3.500000 -175.5000 0.0000000E+00 + -2.500000 -175.5000 0.0000000E+00 + -1.500000 -175.5000 0.0000000E+00 + -0.5000000 -175.5000 0.0000000E+00 + 0.5000000 -175.5000 0.0000000E+00 + 1.500000 -175.5000 0.0000000E+00 + 2.500000 -175.5000 0.0000000E+00 + 3.500000 -175.5000 0.0000000E+00 + 4.500000 -175.5000 0.0000000E+00 + 5.500000 -175.5000 0.0000000E+00 + 6.500000 -175.5000 0.0000000E+00 + 7.500000 -175.5000 0.0000000E+00 + 8.500000 -175.5000 0.0000000E+00 + 9.500000 -175.5000 0.0000000E+00 + 10.50000 -175.5000 0.0000000E+00 + 11.50000 -175.5000 0.0000000E+00 + 12.50000 -175.5000 0.0000000E+00 + 13.50000 -175.5000 0.0000000E+00 + 14.50000 -175.5000 0.0000000E+00 + 15.50000 -175.5000 0.0000000E+00 + 16.50000 -175.5000 0.0000000E+00 + 17.50000 -175.5000 0.0000000E+00 + 18.50000 -175.5000 0.0000000E+00 + 19.50000 -175.5000 0.0000000E+00 + 20.50000 -175.5000 0.0000000E+00 + 21.50000 -175.5000 0.0000000E+00 + 22.50000 -175.5000 0.0000000E+00 + 23.50000 -175.5000 0.0000000E+00 + 24.50000 -175.5000 0.0000000E+00 + 25.50000 -175.5000 0.0000000E+00 + 26.50000 -175.5000 0.0000000E+00 + 27.50000 -175.5000 0.0000000E+00 + 28.50000 -175.5000 0.0000000E+00 + 29.50000 -175.5000 0.0000000E+00 + 30.50000 -175.5000 0.0000000E+00 + 31.50000 -175.5000 0.0000000E+00 + 32.50000 -175.5000 0.0000000E+00 + 33.50000 -175.5000 0.0000000E+00 + 34.50000 -175.5000 0.0000000E+00 + 35.50000 -175.5000 0.0000000E+00 + 36.50000 -175.5000 0.0000000E+00 + 37.50000 -175.5000 0.0000000E+00 + 38.50000 -175.5000 0.0000000E+00 + 39.50000 -175.5000 0.0000000E+00 + 40.50000 -175.5000 0.0000000E+00 + 41.50000 -175.5000 0.0000000E+00 + 42.50000 -175.5000 0.0000000E+00 + 43.50000 -175.5000 0.0000000E+00 + 44.50000 -175.5000 0.0000000E+00 + 45.50000 -175.5000 0.0000000E+00 + 46.50000 -175.5000 0.0000000E+00 + 47.50000 -175.5000 0.0000000E+00 + 48.50000 -175.5000 0.0000000E+00 + 49.50000 -175.5000 0.0000000E+00 + 50.50000 -175.5000 0.0000000E+00 + 51.50000 -175.5000 0.0000000E+00 + 52.50000 -175.5000 0.0000000E+00 + 53.50000 -175.5000 0.0000000E+00 + 54.50000 -175.5000 0.0000000E+00 + 55.50000 -175.5000 0.0000000E+00 + 56.50000 -175.5000 0.0000000E+00 + 57.50000 -175.5000 0.0000000E+00 + 58.50000 -175.5000 0.0000000E+00 + 59.50000 -175.5000 0.0000000E+00 + 60.50000 -175.5000 0.0000000E+00 + 61.50000 -175.5000 0.0000000E+00 + 62.50000 -175.5000 0.0000000E+00 + 63.50000 -175.5000 0.0000000E+00 + 64.50000 -175.5000 0.0000000E+00 + 65.50000 -175.5000 0.0000000E+00 + 66.50000 -175.5000 0.0000000E+00 + 67.50000 -175.5000 0.0000000E+00 + 68.50000 -175.5000 0.0000000E+00 + 69.50000 -175.5000 0.0000000E+00 + 70.50000 -175.5000 0.0000000E+00 + 71.50000 -175.5000 0.0000000E+00 + 72.50000 -175.5000 0.0000000E+00 + 73.50000 -175.5000 0.0000000E+00 + 74.50000 -175.5000 0.0000000E+00 + 75.50000 -175.5000 0.0000000E+00 + 76.50000 -175.5000 0.0000000E+00 + 77.50000 -175.5000 0.0000000E+00 + 78.50000 -175.5000 0.0000000E+00 + 79.50000 -175.5000 0.0000000E+00 + 80.50000 -175.5000 0.0000000E+00 + 81.50000 -175.5000 0.0000000E+00 + 82.50000 -175.5000 0.0000000E+00 + 83.50000 -175.5000 0.0000000E+00 + 84.50000 -175.5000 0.0000000E+00 + 85.50000 -175.5000 0.0000000E+00 + 86.50000 -175.5000 0.0000000E+00 + 87.50000 -175.5000 0.0000000E+00 + 88.50000 -175.5000 0.0000000E+00 + 89.50000 -175.5000 0.0000000E+00 + -89.50000 -174.5000 0.0000000E+00 + -88.50000 -174.5000 0.0000000E+00 + -87.50000 -174.5000 0.0000000E+00 + -86.50000 -174.5000 0.0000000E+00 + -85.50000 -174.5000 0.0000000E+00 + -84.50000 -174.5000 0.0000000E+00 + -83.50000 -174.5000 0.0000000E+00 + -82.50000 -174.5000 0.0000000E+00 + -81.50000 -174.5000 0.0000000E+00 + -80.50000 -174.5000 0.0000000E+00 + -79.50000 -174.5000 0.0000000E+00 + -78.50000 -174.5000 0.0000000E+00 + -77.50000 -174.5000 0.0000000E+00 + -76.50000 -174.5000 0.0000000E+00 + -75.50000 -174.5000 0.0000000E+00 + -74.50000 -174.5000 0.0000000E+00 + -73.50000 -174.5000 0.0000000E+00 + -72.50000 -174.5000 0.0000000E+00 + -71.50000 -174.5000 0.0000000E+00 + -70.50000 -174.5000 0.0000000E+00 + -69.50000 -174.5000 0.0000000E+00 + -68.50000 -174.5000 0.0000000E+00 + -67.50000 -174.5000 0.0000000E+00 + -66.50000 -174.5000 0.0000000E+00 + -65.50000 -174.5000 0.0000000E+00 + -64.50000 -174.5000 0.0000000E+00 + -63.50000 -174.5000 0.0000000E+00 + -62.50000 -174.5000 0.0000000E+00 + -61.50000 -174.5000 0.0000000E+00 + -60.50000 -174.5000 0.0000000E+00 + -59.50000 -174.5000 0.0000000E+00 + -58.50000 -174.5000 0.0000000E+00 + -57.50000 -174.5000 0.0000000E+00 + -56.50000 -174.5000 0.0000000E+00 + -55.50000 -174.5000 0.0000000E+00 + -54.50000 -174.5000 0.0000000E+00 + -53.50000 -174.5000 0.0000000E+00 + -52.50000 -174.5000 0.0000000E+00 + -51.50000 -174.5000 0.0000000E+00 + -50.50000 -174.5000 0.0000000E+00 + -49.50000 -174.5000 0.0000000E+00 + -48.50000 -174.5000 0.0000000E+00 + -47.50000 -174.5000 0.0000000E+00 + -46.50000 -174.5000 0.0000000E+00 + -45.50000 -174.5000 0.0000000E+00 + -44.50000 -174.5000 0.0000000E+00 + -43.50000 -174.5000 0.0000000E+00 + -42.50000 -174.5000 0.0000000E+00 + -41.50000 -174.5000 0.0000000E+00 + -40.50000 -174.5000 0.0000000E+00 + -39.50000 -174.5000 0.0000000E+00 + -38.50000 -174.5000 0.0000000E+00 + -37.50000 -174.5000 0.0000000E+00 + -36.50000 -174.5000 0.0000000E+00 + -35.50000 -174.5000 0.0000000E+00 + -34.50000 -174.5000 0.0000000E+00 + -33.50000 -174.5000 0.0000000E+00 + -32.50000 -174.5000 0.0000000E+00 + -31.50000 -174.5000 0.0000000E+00 + -30.50000 -174.5000 0.0000000E+00 + -29.50000 -174.5000 0.0000000E+00 + -28.50000 -174.5000 0.0000000E+00 + -27.50000 -174.5000 0.0000000E+00 + -26.50000 -174.5000 0.0000000E+00 + -25.50000 -174.5000 0.0000000E+00 + -24.50000 -174.5000 0.0000000E+00 + -23.50000 -174.5000 0.0000000E+00 + -22.50000 -174.5000 0.0000000E+00 + -21.50000 -174.5000 0.0000000E+00 + -20.50000 -174.5000 0.0000000E+00 + -19.50000 -174.5000 0.0000000E+00 + -18.50000 -174.5000 0.0000000E+00 + -17.50000 -174.5000 0.0000000E+00 + -16.50000 -174.5000 0.0000000E+00 + -15.50000 -174.5000 0.0000000E+00 + -14.50000 -174.5000 0.0000000E+00 + -13.50000 -174.5000 0.0000000E+00 + -12.50000 -174.5000 0.0000000E+00 + -11.50000 -174.5000 0.0000000E+00 + -10.50000 -174.5000 0.0000000E+00 + -9.500000 -174.5000 0.0000000E+00 + -8.500000 -174.5000 0.0000000E+00 + -7.500000 -174.5000 0.0000000E+00 + -6.500000 -174.5000 0.0000000E+00 + -5.500000 -174.5000 0.0000000E+00 + -4.500000 -174.5000 0.0000000E+00 + -3.500000 -174.5000 0.0000000E+00 + -2.500000 -174.5000 0.0000000E+00 + -1.500000 -174.5000 0.0000000E+00 + -0.5000000 -174.5000 0.0000000E+00 + 0.5000000 -174.5000 0.0000000E+00 + 1.500000 -174.5000 0.0000000E+00 + 2.500000 -174.5000 0.0000000E+00 + 3.500000 -174.5000 0.0000000E+00 + 4.500000 -174.5000 0.0000000E+00 + 5.500000 -174.5000 0.0000000E+00 + 6.500000 -174.5000 0.0000000E+00 + 7.500000 -174.5000 0.0000000E+00 + 8.500000 -174.5000 0.0000000E+00 + 9.500000 -174.5000 0.0000000E+00 + 10.50000 -174.5000 0.0000000E+00 + 11.50000 -174.5000 0.0000000E+00 + 12.50000 -174.5000 0.0000000E+00 + 13.50000 -174.5000 0.0000000E+00 + 14.50000 -174.5000 0.0000000E+00 + 15.50000 -174.5000 0.0000000E+00 + 16.50000 -174.5000 0.0000000E+00 + 17.50000 -174.5000 0.0000000E+00 + 18.50000 -174.5000 0.0000000E+00 + 19.50000 -174.5000 0.0000000E+00 + 20.50000 -174.5000 0.0000000E+00 + 21.50000 -174.5000 0.0000000E+00 + 22.50000 -174.5000 0.0000000E+00 + 23.50000 -174.5000 0.0000000E+00 + 24.50000 -174.5000 0.0000000E+00 + 25.50000 -174.5000 0.0000000E+00 + 26.50000 -174.5000 0.0000000E+00 + 27.50000 -174.5000 0.0000000E+00 + 28.50000 -174.5000 0.0000000E+00 + 29.50000 -174.5000 0.0000000E+00 + 30.50000 -174.5000 0.0000000E+00 + 31.50000 -174.5000 0.0000000E+00 + 32.50000 -174.5000 0.0000000E+00 + 33.50000 -174.5000 0.0000000E+00 + 34.50000 -174.5000 0.0000000E+00 + 35.50000 -174.5000 0.0000000E+00 + 36.50000 -174.5000 0.0000000E+00 + 37.50000 -174.5000 0.0000000E+00 + 38.50000 -174.5000 0.0000000E+00 + 39.50000 -174.5000 0.0000000E+00 + 40.50000 -174.5000 0.0000000E+00 + 41.50000 -174.5000 0.0000000E+00 + 42.50000 -174.5000 0.0000000E+00 + 43.50000 -174.5000 0.0000000E+00 + 44.50000 -174.5000 0.0000000E+00 + 45.50000 -174.5000 0.0000000E+00 + 46.50000 -174.5000 0.0000000E+00 + 47.50000 -174.5000 0.0000000E+00 + 48.50000 -174.5000 0.0000000E+00 + 49.50000 -174.5000 0.0000000E+00 + 50.50000 -174.5000 0.0000000E+00 + 51.50000 -174.5000 0.0000000E+00 + 52.50000 -174.5000 0.0000000E+00 + 53.50000 -174.5000 0.0000000E+00 + 54.50000 -174.5000 0.0000000E+00 + 55.50000 -174.5000 0.0000000E+00 + 56.50000 -174.5000 0.0000000E+00 + 57.50000 -174.5000 0.0000000E+00 + 58.50000 -174.5000 0.0000000E+00 + 59.50000 -174.5000 0.0000000E+00 + 60.50000 -174.5000 0.0000000E+00 + 61.50000 -174.5000 0.0000000E+00 + 62.50000 -174.5000 0.0000000E+00 + 63.50000 -174.5000 0.0000000E+00 + 64.50000 -174.5000 0.0000000E+00 + 65.50000 -174.5000 0.0000000E+00 + 66.50000 -174.5000 0.0000000E+00 + 67.50000 -174.5000 0.0000000E+00 + 68.50000 -174.5000 0.0000000E+00 + 69.50000 -174.5000 0.0000000E+00 + 70.50000 -174.5000 0.0000000E+00 + 71.50000 -174.5000 0.0000000E+00 + 72.50000 -174.5000 0.0000000E+00 + 73.50000 -174.5000 0.0000000E+00 + 74.50000 -174.5000 0.0000000E+00 + 75.50000 -174.5000 0.0000000E+00 + 76.50000 -174.5000 0.0000000E+00 + 77.50000 -174.5000 0.0000000E+00 + 78.50000 -174.5000 0.0000000E+00 + 79.50000 -174.5000 0.0000000E+00 + 80.50000 -174.5000 0.0000000E+00 + 81.50000 -174.5000 0.0000000E+00 + 82.50000 -174.5000 0.0000000E+00 + 83.50000 -174.5000 0.0000000E+00 + 84.50000 -174.5000 0.0000000E+00 + 85.50000 -174.5000 0.0000000E+00 + 86.50000 -174.5000 0.0000000E+00 + 87.50000 -174.5000 0.0000000E+00 + 88.50000 -174.5000 0.0000000E+00 + 89.50000 -174.5000 0.0000000E+00 + -89.50000 -173.5000 0.0000000E+00 + -88.50000 -173.5000 0.0000000E+00 + -87.50000 -173.5000 0.0000000E+00 + -86.50000 -173.5000 0.0000000E+00 + -85.50000 -173.5000 0.0000000E+00 + -84.50000 -173.5000 0.0000000E+00 + -83.50000 -173.5000 0.0000000E+00 + -82.50000 -173.5000 0.0000000E+00 + -81.50000 -173.5000 0.0000000E+00 + -80.50000 -173.5000 0.0000000E+00 + -79.50000 -173.5000 0.0000000E+00 + -78.50000 -173.5000 0.0000000E+00 + -77.50000 -173.5000 0.0000000E+00 + -76.50000 -173.5000 0.0000000E+00 + -75.50000 -173.5000 0.0000000E+00 + -74.50000 -173.5000 0.0000000E+00 + -73.50000 -173.5000 0.0000000E+00 + -72.50000 -173.5000 0.0000000E+00 + -71.50000 -173.5000 0.0000000E+00 + -70.50000 -173.5000 0.0000000E+00 + -69.50000 -173.5000 0.0000000E+00 + -68.50000 -173.5000 0.0000000E+00 + -67.50000 -173.5000 0.0000000E+00 + -66.50000 -173.5000 0.0000000E+00 + -65.50000 -173.5000 0.0000000E+00 + -64.50000 -173.5000 0.0000000E+00 + -63.50000 -173.5000 0.0000000E+00 + -62.50000 -173.5000 0.0000000E+00 + -61.50000 -173.5000 0.0000000E+00 + -60.50000 -173.5000 0.0000000E+00 + -59.50000 -173.5000 0.0000000E+00 + -58.50000 -173.5000 0.0000000E+00 + -57.50000 -173.5000 0.0000000E+00 + -56.50000 -173.5000 0.0000000E+00 + -55.50000 -173.5000 0.0000000E+00 + -54.50000 -173.5000 0.0000000E+00 + -53.50000 -173.5000 0.0000000E+00 + -52.50000 -173.5000 0.0000000E+00 + -51.50000 -173.5000 0.0000000E+00 + -50.50000 -173.5000 0.0000000E+00 + -49.50000 -173.5000 0.0000000E+00 + -48.50000 -173.5000 0.0000000E+00 + -47.50000 -173.5000 0.0000000E+00 + -46.50000 -173.5000 0.0000000E+00 + -45.50000 -173.5000 0.0000000E+00 + -44.50000 -173.5000 0.0000000E+00 + -43.50000 -173.5000 0.0000000E+00 + -42.50000 -173.5000 0.0000000E+00 + -41.50000 -173.5000 0.0000000E+00 + -40.50000 -173.5000 0.0000000E+00 + -39.50000 -173.5000 0.0000000E+00 + -38.50000 -173.5000 0.0000000E+00 + -37.50000 -173.5000 0.0000000E+00 + -36.50000 -173.5000 0.0000000E+00 + -35.50000 -173.5000 0.0000000E+00 + -34.50000 -173.5000 0.0000000E+00 + -33.50000 -173.5000 0.0000000E+00 + -32.50000 -173.5000 0.0000000E+00 + -31.50000 -173.5000 0.0000000E+00 + -30.50000 -173.5000 0.0000000E+00 + -29.50000 -173.5000 0.0000000E+00 + -28.50000 -173.5000 0.0000000E+00 + -27.50000 -173.5000 0.0000000E+00 + -26.50000 -173.5000 0.0000000E+00 + -25.50000 -173.5000 0.0000000E+00 + -24.50000 -173.5000 0.0000000E+00 + -23.50000 -173.5000 0.0000000E+00 + -22.50000 -173.5000 0.0000000E+00 + -21.50000 -173.5000 0.0000000E+00 + -20.50000 -173.5000 0.0000000E+00 + -19.50000 -173.5000 0.0000000E+00 + -18.50000 -173.5000 0.0000000E+00 + -17.50000 -173.5000 0.0000000E+00 + -16.50000 -173.5000 0.0000000E+00 + -15.50000 -173.5000 0.0000000E+00 + -14.50000 -173.5000 0.0000000E+00 + -13.50000 -173.5000 0.0000000E+00 + -12.50000 -173.5000 0.0000000E+00 + -11.50000 -173.5000 0.0000000E+00 + -10.50000 -173.5000 0.0000000E+00 + -9.500000 -173.5000 0.0000000E+00 + -8.500000 -173.5000 0.0000000E+00 + -7.500000 -173.5000 0.0000000E+00 + -6.500000 -173.5000 0.0000000E+00 + -5.500000 -173.5000 0.0000000E+00 + -4.500000 -173.5000 0.0000000E+00 + -3.500000 -173.5000 0.0000000E+00 + -2.500000 -173.5000 0.0000000E+00 + -1.500000 -173.5000 0.0000000E+00 + -0.5000000 -173.5000 0.0000000E+00 + 0.5000000 -173.5000 0.0000000E+00 + 1.500000 -173.5000 0.0000000E+00 + 2.500000 -173.5000 0.0000000E+00 + 3.500000 -173.5000 0.0000000E+00 + 4.500000 -173.5000 0.0000000E+00 + 5.500000 -173.5000 0.0000000E+00 + 6.500000 -173.5000 0.0000000E+00 + 7.500000 -173.5000 0.0000000E+00 + 8.500000 -173.5000 0.0000000E+00 + 9.500000 -173.5000 0.0000000E+00 + 10.50000 -173.5000 0.0000000E+00 + 11.50000 -173.5000 0.0000000E+00 + 12.50000 -173.5000 0.0000000E+00 + 13.50000 -173.5000 0.0000000E+00 + 14.50000 -173.5000 0.0000000E+00 + 15.50000 -173.5000 0.0000000E+00 + 16.50000 -173.5000 0.0000000E+00 + 17.50000 -173.5000 0.0000000E+00 + 18.50000 -173.5000 0.0000000E+00 + 19.50000 -173.5000 0.0000000E+00 + 20.50000 -173.5000 0.0000000E+00 + 21.50000 -173.5000 0.0000000E+00 + 22.50000 -173.5000 0.0000000E+00 + 23.50000 -173.5000 0.0000000E+00 + 24.50000 -173.5000 0.0000000E+00 + 25.50000 -173.5000 0.0000000E+00 + 26.50000 -173.5000 0.0000000E+00 + 27.50000 -173.5000 0.0000000E+00 + 28.50000 -173.5000 0.0000000E+00 + 29.50000 -173.5000 0.0000000E+00 + 30.50000 -173.5000 0.0000000E+00 + 31.50000 -173.5000 0.0000000E+00 + 32.50000 -173.5000 0.0000000E+00 + 33.50000 -173.5000 0.0000000E+00 + 34.50000 -173.5000 0.0000000E+00 + 35.50000 -173.5000 0.0000000E+00 + 36.50000 -173.5000 0.0000000E+00 + 37.50000 -173.5000 0.0000000E+00 + 38.50000 -173.5000 0.0000000E+00 + 39.50000 -173.5000 0.0000000E+00 + 40.50000 -173.5000 0.0000000E+00 + 41.50000 -173.5000 0.0000000E+00 + 42.50000 -173.5000 0.0000000E+00 + 43.50000 -173.5000 0.0000000E+00 + 44.50000 -173.5000 0.0000000E+00 + 45.50000 -173.5000 0.0000000E+00 + 46.50000 -173.5000 0.0000000E+00 + 47.50000 -173.5000 0.0000000E+00 + 48.50000 -173.5000 0.0000000E+00 + 49.50000 -173.5000 0.0000000E+00 + 50.50000 -173.5000 0.0000000E+00 + 51.50000 -173.5000 0.0000000E+00 + 52.50000 -173.5000 0.0000000E+00 + 53.50000 -173.5000 0.0000000E+00 + 54.50000 -173.5000 0.0000000E+00 + 55.50000 -173.5000 0.0000000E+00 + 56.50000 -173.5000 0.0000000E+00 + 57.50000 -173.5000 0.0000000E+00 + 58.50000 -173.5000 0.0000000E+00 + 59.50000 -173.5000 0.0000000E+00 + 60.50000 -173.5000 0.0000000E+00 + 61.50000 -173.5000 0.0000000E+00 + 62.50000 -173.5000 0.0000000E+00 + 63.50000 -173.5000 0.0000000E+00 + 64.50000 -173.5000 0.0000000E+00 + 65.50000 -173.5000 0.0000000E+00 + 66.50000 -173.5000 0.0000000E+00 + 67.50000 -173.5000 0.0000000E+00 + 68.50000 -173.5000 0.0000000E+00 + 69.50000 -173.5000 0.0000000E+00 + 70.50000 -173.5000 0.0000000E+00 + 71.50000 -173.5000 0.0000000E+00 + 72.50000 -173.5000 0.0000000E+00 + 73.50000 -173.5000 0.0000000E+00 + 74.50000 -173.5000 0.0000000E+00 + 75.50000 -173.5000 0.0000000E+00 + 76.50000 -173.5000 0.0000000E+00 + 77.50000 -173.5000 0.0000000E+00 + 78.50000 -173.5000 0.0000000E+00 + 79.50000 -173.5000 0.0000000E+00 + 80.50000 -173.5000 0.0000000E+00 + 81.50000 -173.5000 0.0000000E+00 + 82.50000 -173.5000 0.0000000E+00 + 83.50000 -173.5000 0.0000000E+00 + 84.50000 -173.5000 0.0000000E+00 + 85.50000 -173.5000 0.0000000E+00 + 86.50000 -173.5000 0.0000000E+00 + 87.50000 -173.5000 0.0000000E+00 + 88.50000 -173.5000 0.0000000E+00 + 89.50000 -173.5000 0.0000000E+00 + -89.50000 -172.5000 0.0000000E+00 + -88.50000 -172.5000 0.0000000E+00 + -87.50000 -172.5000 0.0000000E+00 + -86.50000 -172.5000 0.0000000E+00 + -85.50000 -172.5000 0.0000000E+00 + -84.50000 -172.5000 0.0000000E+00 + -83.50000 -172.5000 0.0000000E+00 + -82.50000 -172.5000 0.0000000E+00 + -81.50000 -172.5000 0.0000000E+00 + -80.50000 -172.5000 0.0000000E+00 + -79.50000 -172.5000 0.0000000E+00 + -78.50000 -172.5000 0.0000000E+00 + -77.50000 -172.5000 0.0000000E+00 + -76.50000 -172.5000 0.0000000E+00 + -75.50000 -172.5000 0.0000000E+00 + -74.50000 -172.5000 0.0000000E+00 + -73.50000 -172.5000 0.0000000E+00 + -72.50000 -172.5000 0.0000000E+00 + -71.50000 -172.5000 0.0000000E+00 + -70.50000 -172.5000 0.0000000E+00 + -69.50000 -172.5000 0.0000000E+00 + -68.50000 -172.5000 0.0000000E+00 + -67.50000 -172.5000 0.0000000E+00 + -66.50000 -172.5000 0.0000000E+00 + -65.50000 -172.5000 0.0000000E+00 + -64.50000 -172.5000 0.0000000E+00 + -63.50000 -172.5000 0.0000000E+00 + -62.50000 -172.5000 0.0000000E+00 + -61.50000 -172.5000 0.0000000E+00 + -60.50000 -172.5000 0.0000000E+00 + -59.50000 -172.5000 0.0000000E+00 + -58.50000 -172.5000 0.0000000E+00 + -57.50000 -172.5000 0.0000000E+00 + -56.50000 -172.5000 0.0000000E+00 + -55.50000 -172.5000 0.0000000E+00 + -54.50000 -172.5000 0.0000000E+00 + -53.50000 -172.5000 0.0000000E+00 + -52.50000 -172.5000 0.0000000E+00 + -51.50000 -172.5000 0.0000000E+00 + -50.50000 -172.5000 0.0000000E+00 + -49.50000 -172.5000 0.0000000E+00 + -48.50000 -172.5000 0.0000000E+00 + -47.50000 -172.5000 0.0000000E+00 + -46.50000 -172.5000 0.0000000E+00 + -45.50000 -172.5000 0.0000000E+00 + -44.50000 -172.5000 0.0000000E+00 + -43.50000 -172.5000 0.0000000E+00 + -42.50000 -172.5000 0.0000000E+00 + -41.50000 -172.5000 0.0000000E+00 + -40.50000 -172.5000 0.0000000E+00 + -39.50000 -172.5000 0.0000000E+00 + -38.50000 -172.5000 0.0000000E+00 + -37.50000 -172.5000 0.0000000E+00 + -36.50000 -172.5000 0.0000000E+00 + -35.50000 -172.5000 0.0000000E+00 + -34.50000 -172.5000 0.0000000E+00 + -33.50000 -172.5000 0.0000000E+00 + -32.50000 -172.5000 0.0000000E+00 + -31.50000 -172.5000 0.0000000E+00 + -30.50000 -172.5000 0.0000000E+00 + -29.50000 -172.5000 0.0000000E+00 + -28.50000 -172.5000 0.0000000E+00 + -27.50000 -172.5000 0.0000000E+00 + -26.50000 -172.5000 0.0000000E+00 + -25.50000 -172.5000 0.0000000E+00 + -24.50000 -172.5000 0.0000000E+00 + -23.50000 -172.5000 0.0000000E+00 + -22.50000 -172.5000 0.0000000E+00 + -21.50000 -172.5000 0.0000000E+00 + -20.50000 -172.5000 0.0000000E+00 + -19.50000 -172.5000 0.0000000E+00 + -18.50000 -172.5000 0.0000000E+00 + -17.50000 -172.5000 0.0000000E+00 + -16.50000 -172.5000 0.0000000E+00 + -15.50000 -172.5000 0.0000000E+00 + -14.50000 -172.5000 0.0000000E+00 + -13.50000 -172.5000 0.0000000E+00 + -12.50000 -172.5000 0.0000000E+00 + -11.50000 -172.5000 0.0000000E+00 + -10.50000 -172.5000 0.0000000E+00 + -9.500000 -172.5000 0.0000000E+00 + -8.500000 -172.5000 0.0000000E+00 + -7.500000 -172.5000 0.0000000E+00 + -6.500000 -172.5000 0.0000000E+00 + -5.500000 -172.5000 0.0000000E+00 + -4.500000 -172.5000 0.0000000E+00 + -3.500000 -172.5000 0.0000000E+00 + -2.500000 -172.5000 0.0000000E+00 + -1.500000 -172.5000 0.0000000E+00 + -0.5000000 -172.5000 0.0000000E+00 + 0.5000000 -172.5000 0.0000000E+00 + 1.500000 -172.5000 0.0000000E+00 + 2.500000 -172.5000 0.0000000E+00 + 3.500000 -172.5000 0.0000000E+00 + 4.500000 -172.5000 0.0000000E+00 + 5.500000 -172.5000 0.0000000E+00 + 6.500000 -172.5000 0.0000000E+00 + 7.500000 -172.5000 0.0000000E+00 + 8.500000 -172.5000 0.0000000E+00 + 9.500000 -172.5000 0.0000000E+00 + 10.50000 -172.5000 0.0000000E+00 + 11.50000 -172.5000 0.0000000E+00 + 12.50000 -172.5000 0.0000000E+00 + 13.50000 -172.5000 0.0000000E+00 + 14.50000 -172.5000 0.0000000E+00 + 15.50000 -172.5000 0.0000000E+00 + 16.50000 -172.5000 0.0000000E+00 + 17.50000 -172.5000 0.0000000E+00 + 18.50000 -172.5000 0.0000000E+00 + 19.50000 -172.5000 0.0000000E+00 + 20.50000 -172.5000 0.0000000E+00 + 21.50000 -172.5000 0.0000000E+00 + 22.50000 -172.5000 0.0000000E+00 + 23.50000 -172.5000 0.0000000E+00 + 24.50000 -172.5000 0.0000000E+00 + 25.50000 -172.5000 0.0000000E+00 + 26.50000 -172.5000 0.0000000E+00 + 27.50000 -172.5000 0.0000000E+00 + 28.50000 -172.5000 0.0000000E+00 + 29.50000 -172.5000 0.0000000E+00 + 30.50000 -172.5000 0.0000000E+00 + 31.50000 -172.5000 0.0000000E+00 + 32.50000 -172.5000 0.0000000E+00 + 33.50000 -172.5000 0.0000000E+00 + 34.50000 -172.5000 0.0000000E+00 + 35.50000 -172.5000 0.0000000E+00 + 36.50000 -172.5000 0.0000000E+00 + 37.50000 -172.5000 0.0000000E+00 + 38.50000 -172.5000 0.0000000E+00 + 39.50000 -172.5000 0.0000000E+00 + 40.50000 -172.5000 0.0000000E+00 + 41.50000 -172.5000 0.0000000E+00 + 42.50000 -172.5000 0.0000000E+00 + 43.50000 -172.5000 0.0000000E+00 + 44.50000 -172.5000 0.0000000E+00 + 45.50000 -172.5000 0.0000000E+00 + 46.50000 -172.5000 0.0000000E+00 + 47.50000 -172.5000 0.0000000E+00 + 48.50000 -172.5000 0.0000000E+00 + 49.50000 -172.5000 0.0000000E+00 + 50.50000 -172.5000 0.0000000E+00 + 51.50000 -172.5000 0.0000000E+00 + 52.50000 -172.5000 0.0000000E+00 + 53.50000 -172.5000 0.0000000E+00 + 54.50000 -172.5000 0.0000000E+00 + 55.50000 -172.5000 0.0000000E+00 + 56.50000 -172.5000 0.0000000E+00 + 57.50000 -172.5000 0.0000000E+00 + 58.50000 -172.5000 0.0000000E+00 + 59.50000 -172.5000 0.0000000E+00 + 60.50000 -172.5000 0.0000000E+00 + 61.50000 -172.5000 0.0000000E+00 + 62.50000 -172.5000 0.0000000E+00 + 63.50000 -172.5000 0.0000000E+00 + 64.50000 -172.5000 0.0000000E+00 + 65.50000 -172.5000 0.0000000E+00 + 66.50000 -172.5000 0.0000000E+00 + 67.50000 -172.5000 0.0000000E+00 + 68.50000 -172.5000 0.0000000E+00 + 69.50000 -172.5000 0.0000000E+00 + 70.50000 -172.5000 0.0000000E+00 + 71.50000 -172.5000 0.0000000E+00 + 72.50000 -172.5000 0.0000000E+00 + 73.50000 -172.5000 0.0000000E+00 + 74.50000 -172.5000 0.0000000E+00 + 75.50000 -172.5000 0.0000000E+00 + 76.50000 -172.5000 0.0000000E+00 + 77.50000 -172.5000 0.0000000E+00 + 78.50000 -172.5000 0.0000000E+00 + 79.50000 -172.5000 0.0000000E+00 + 80.50000 -172.5000 0.0000000E+00 + 81.50000 -172.5000 0.0000000E+00 + 82.50000 -172.5000 0.0000000E+00 + 83.50000 -172.5000 0.0000000E+00 + 84.50000 -172.5000 0.0000000E+00 + 85.50000 -172.5000 0.0000000E+00 + 86.50000 -172.5000 0.0000000E+00 + 87.50000 -172.5000 0.0000000E+00 + 88.50000 -172.5000 0.0000000E+00 + 89.50000 -172.5000 0.0000000E+00 + -89.50000 -171.5000 0.0000000E+00 + -88.50000 -171.5000 0.0000000E+00 + -87.50000 -171.5000 0.0000000E+00 + -86.50000 -171.5000 0.0000000E+00 + -85.50000 -171.5000 0.0000000E+00 + -84.50000 -171.5000 0.0000000E+00 + -83.50000 -171.5000 0.0000000E+00 + -82.50000 -171.5000 0.0000000E+00 + -81.50000 -171.5000 0.0000000E+00 + -80.50000 -171.5000 0.0000000E+00 + -79.50000 -171.5000 0.0000000E+00 + -78.50000 -171.5000 0.0000000E+00 + -77.50000 -171.5000 0.0000000E+00 + -76.50000 -171.5000 0.0000000E+00 + -75.50000 -171.5000 0.0000000E+00 + -74.50000 -171.5000 0.0000000E+00 + -73.50000 -171.5000 0.0000000E+00 + -72.50000 -171.5000 0.0000000E+00 + -71.50000 -171.5000 0.0000000E+00 + -70.50000 -171.5000 0.0000000E+00 + -69.50000 -171.5000 0.0000000E+00 + -68.50000 -171.5000 0.0000000E+00 + -67.50000 -171.5000 0.0000000E+00 + -66.50000 -171.5000 0.0000000E+00 + -65.50000 -171.5000 0.0000000E+00 + -64.50000 -171.5000 0.0000000E+00 + -63.50000 -171.5000 0.0000000E+00 + -62.50000 -171.5000 0.0000000E+00 + -61.50000 -171.5000 0.0000000E+00 + -60.50000 -171.5000 0.0000000E+00 + -59.50000 -171.5000 0.0000000E+00 + -58.50000 -171.5000 0.0000000E+00 + -57.50000 -171.5000 0.0000000E+00 + -56.50000 -171.5000 0.0000000E+00 + -55.50000 -171.5000 0.0000000E+00 + -54.50000 -171.5000 0.0000000E+00 + -53.50000 -171.5000 0.0000000E+00 + -52.50000 -171.5000 0.0000000E+00 + -51.50000 -171.5000 0.0000000E+00 + -50.50000 -171.5000 0.0000000E+00 + -49.50000 -171.5000 0.0000000E+00 + -48.50000 -171.5000 0.0000000E+00 + -47.50000 -171.5000 0.0000000E+00 + -46.50000 -171.5000 0.0000000E+00 + -45.50000 -171.5000 0.0000000E+00 + -44.50000 -171.5000 0.0000000E+00 + -43.50000 -171.5000 0.0000000E+00 + -42.50000 -171.5000 0.0000000E+00 + -41.50000 -171.5000 0.0000000E+00 + -40.50000 -171.5000 0.0000000E+00 + -39.50000 -171.5000 0.0000000E+00 + -38.50000 -171.5000 0.0000000E+00 + -37.50000 -171.5000 0.0000000E+00 + -36.50000 -171.5000 0.0000000E+00 + -35.50000 -171.5000 0.0000000E+00 + -34.50000 -171.5000 0.0000000E+00 + -33.50000 -171.5000 0.0000000E+00 + -32.50000 -171.5000 0.0000000E+00 + -31.50000 -171.5000 0.0000000E+00 + -30.50000 -171.5000 0.0000000E+00 + -29.50000 -171.5000 0.0000000E+00 + -28.50000 -171.5000 0.0000000E+00 + -27.50000 -171.5000 0.0000000E+00 + -26.50000 -171.5000 0.0000000E+00 + -25.50000 -171.5000 0.0000000E+00 + -24.50000 -171.5000 0.0000000E+00 + -23.50000 -171.5000 0.0000000E+00 + -22.50000 -171.5000 0.0000000E+00 + -21.50000 -171.5000 0.0000000E+00 + -20.50000 -171.5000 0.0000000E+00 + -19.50000 -171.5000 0.0000000E+00 + -18.50000 -171.5000 0.0000000E+00 + -17.50000 -171.5000 0.0000000E+00 + -16.50000 -171.5000 0.0000000E+00 + -15.50000 -171.5000 0.0000000E+00 + -14.50000 -171.5000 0.0000000E+00 + -13.50000 -171.5000 0.0000000E+00 + -12.50000 -171.5000 0.0000000E+00 + -11.50000 -171.5000 0.0000000E+00 + -10.50000 -171.5000 0.0000000E+00 + -9.500000 -171.5000 0.0000000E+00 + -8.500000 -171.5000 0.0000000E+00 + -7.500000 -171.5000 0.0000000E+00 + -6.500000 -171.5000 0.0000000E+00 + -5.500000 -171.5000 0.0000000E+00 + -4.500000 -171.5000 0.0000000E+00 + -3.500000 -171.5000 0.0000000E+00 + -2.500000 -171.5000 0.0000000E+00 + -1.500000 -171.5000 0.0000000E+00 + -0.5000000 -171.5000 0.0000000E+00 + 0.5000000 -171.5000 0.0000000E+00 + 1.500000 -171.5000 0.0000000E+00 + 2.500000 -171.5000 0.0000000E+00 + 3.500000 -171.5000 0.0000000E+00 + 4.500000 -171.5000 0.0000000E+00 + 5.500000 -171.5000 0.0000000E+00 + 6.500000 -171.5000 0.0000000E+00 + 7.500000 -171.5000 0.0000000E+00 + 8.500000 -171.5000 0.0000000E+00 + 9.500000 -171.5000 0.0000000E+00 + 10.50000 -171.5000 0.0000000E+00 + 11.50000 -171.5000 0.0000000E+00 + 12.50000 -171.5000 0.0000000E+00 + 13.50000 -171.5000 0.0000000E+00 + 14.50000 -171.5000 0.0000000E+00 + 15.50000 -171.5000 0.0000000E+00 + 16.50000 -171.5000 0.0000000E+00 + 17.50000 -171.5000 0.0000000E+00 + 18.50000 -171.5000 0.0000000E+00 + 19.50000 -171.5000 0.0000000E+00 + 20.50000 -171.5000 0.0000000E+00 + 21.50000 -171.5000 0.0000000E+00 + 22.50000 -171.5000 0.0000000E+00 + 23.50000 -171.5000 0.0000000E+00 + 24.50000 -171.5000 0.0000000E+00 + 25.50000 -171.5000 0.0000000E+00 + 26.50000 -171.5000 0.0000000E+00 + 27.50000 -171.5000 0.0000000E+00 + 28.50000 -171.5000 0.0000000E+00 + 29.50000 -171.5000 0.0000000E+00 + 30.50000 -171.5000 0.0000000E+00 + 31.50000 -171.5000 0.0000000E+00 + 32.50000 -171.5000 0.0000000E+00 + 33.50000 -171.5000 0.0000000E+00 + 34.50000 -171.5000 0.0000000E+00 + 35.50000 -171.5000 0.0000000E+00 + 36.50000 -171.5000 0.0000000E+00 + 37.50000 -171.5000 0.0000000E+00 + 38.50000 -171.5000 0.0000000E+00 + 39.50000 -171.5000 0.0000000E+00 + 40.50000 -171.5000 0.0000000E+00 + 41.50000 -171.5000 0.0000000E+00 + 42.50000 -171.5000 0.0000000E+00 + 43.50000 -171.5000 0.0000000E+00 + 44.50000 -171.5000 0.0000000E+00 + 45.50000 -171.5000 0.0000000E+00 + 46.50000 -171.5000 0.0000000E+00 + 47.50000 -171.5000 0.0000000E+00 + 48.50000 -171.5000 0.0000000E+00 + 49.50000 -171.5000 0.0000000E+00 + 50.50000 -171.5000 0.0000000E+00 + 51.50000 -171.5000 0.0000000E+00 + 52.50000 -171.5000 0.0000000E+00 + 53.50000 -171.5000 0.0000000E+00 + 54.50000 -171.5000 0.0000000E+00 + 55.50000 -171.5000 0.0000000E+00 + 56.50000 -171.5000 0.0000000E+00 + 57.50000 -171.5000 0.0000000E+00 + 58.50000 -171.5000 0.0000000E+00 + 59.50000 -171.5000 0.0000000E+00 + 60.50000 -171.5000 0.0000000E+00 + 61.50000 -171.5000 0.0000000E+00 + 62.50000 -171.5000 0.0000000E+00 + 63.50000 -171.5000 0.0000000E+00 + 64.50000 -171.5000 0.0000000E+00 + 65.50000 -171.5000 0.0000000E+00 + 66.50000 -171.5000 0.0000000E+00 + 67.50000 -171.5000 0.0000000E+00 + 68.50000 -171.5000 0.0000000E+00 + 69.50000 -171.5000 0.0000000E+00 + 70.50000 -171.5000 0.0000000E+00 + 71.50000 -171.5000 0.0000000E+00 + 72.50000 -171.5000 0.0000000E+00 + 73.50000 -171.5000 0.0000000E+00 + 74.50000 -171.5000 0.0000000E+00 + 75.50000 -171.5000 0.0000000E+00 + 76.50000 -171.5000 0.0000000E+00 + 77.50000 -171.5000 0.0000000E+00 + 78.50000 -171.5000 0.0000000E+00 + 79.50000 -171.5000 0.0000000E+00 + 80.50000 -171.5000 0.0000000E+00 + 81.50000 -171.5000 0.0000000E+00 + 82.50000 -171.5000 0.0000000E+00 + 83.50000 -171.5000 0.0000000E+00 + 84.50000 -171.5000 0.0000000E+00 + 85.50000 -171.5000 0.0000000E+00 + 86.50000 -171.5000 0.0000000E+00 + 87.50000 -171.5000 0.0000000E+00 + 88.50000 -171.5000 0.0000000E+00 + 89.50000 -171.5000 0.0000000E+00 + -89.50000 -170.5000 0.0000000E+00 + -88.50000 -170.5000 0.0000000E+00 + -87.50000 -170.5000 0.0000000E+00 + -86.50000 -170.5000 0.0000000E+00 + -85.50000 -170.5000 0.0000000E+00 + -84.50000 -170.5000 0.0000000E+00 + -83.50000 -170.5000 0.0000000E+00 + -82.50000 -170.5000 0.0000000E+00 + -81.50000 -170.5000 0.0000000E+00 + -80.50000 -170.5000 0.0000000E+00 + -79.50000 -170.5000 0.0000000E+00 + -78.50000 -170.5000 0.0000000E+00 + -77.50000 -170.5000 0.0000000E+00 + -76.50000 -170.5000 0.0000000E+00 + -75.50000 -170.5000 0.0000000E+00 + -74.50000 -170.5000 0.0000000E+00 + -73.50000 -170.5000 0.0000000E+00 + -72.50000 -170.5000 0.0000000E+00 + -71.50000 -170.5000 0.0000000E+00 + -70.50000 -170.5000 0.0000000E+00 + -69.50000 -170.5000 0.0000000E+00 + -68.50000 -170.5000 0.0000000E+00 + -67.50000 -170.5000 0.0000000E+00 + -66.50000 -170.5000 0.0000000E+00 + -65.50000 -170.5000 0.0000000E+00 + -64.50000 -170.5000 0.0000000E+00 + -63.50000 -170.5000 0.0000000E+00 + -62.50000 -170.5000 0.0000000E+00 + -61.50000 -170.5000 0.0000000E+00 + -60.50000 -170.5000 0.0000000E+00 + -59.50000 -170.5000 0.0000000E+00 + -58.50000 -170.5000 0.0000000E+00 + -57.50000 -170.5000 0.0000000E+00 + -56.50000 -170.5000 0.0000000E+00 + -55.50000 -170.5000 0.0000000E+00 + -54.50000 -170.5000 0.0000000E+00 + -53.50000 -170.5000 0.0000000E+00 + -52.50000 -170.5000 0.0000000E+00 + -51.50000 -170.5000 0.0000000E+00 + -50.50000 -170.5000 0.0000000E+00 + -49.50000 -170.5000 0.0000000E+00 + -48.50000 -170.5000 0.0000000E+00 + -47.50000 -170.5000 0.0000000E+00 + -46.50000 -170.5000 0.0000000E+00 + -45.50000 -170.5000 0.0000000E+00 + -44.50000 -170.5000 0.0000000E+00 + -43.50000 -170.5000 0.0000000E+00 + -42.50000 -170.5000 0.0000000E+00 + -41.50000 -170.5000 0.0000000E+00 + -40.50000 -170.5000 0.0000000E+00 + -39.50000 -170.5000 0.0000000E+00 + -38.50000 -170.5000 0.0000000E+00 + -37.50000 -170.5000 0.0000000E+00 + -36.50000 -170.5000 0.0000000E+00 + -35.50000 -170.5000 0.0000000E+00 + -34.50000 -170.5000 0.0000000E+00 + -33.50000 -170.5000 0.0000000E+00 + -32.50000 -170.5000 0.0000000E+00 + -31.50000 -170.5000 0.0000000E+00 + -30.50000 -170.5000 0.0000000E+00 + -29.50000 -170.5000 0.0000000E+00 + -28.50000 -170.5000 0.0000000E+00 + -27.50000 -170.5000 0.0000000E+00 + -26.50000 -170.5000 0.0000000E+00 + -25.50000 -170.5000 0.0000000E+00 + -24.50000 -170.5000 0.0000000E+00 + -23.50000 -170.5000 0.0000000E+00 + -22.50000 -170.5000 0.0000000E+00 + -21.50000 -170.5000 0.0000000E+00 + -20.50000 -170.5000 0.0000000E+00 + -19.50000 -170.5000 0.0000000E+00 + -18.50000 -170.5000 0.0000000E+00 + -17.50000 -170.5000 0.0000000E+00 + -16.50000 -170.5000 0.0000000E+00 + -15.50000 -170.5000 0.0000000E+00 + -14.50000 -170.5000 0.0000000E+00 + -13.50000 -170.5000 0.0000000E+00 + -12.50000 -170.5000 0.0000000E+00 + -11.50000 -170.5000 0.0000000E+00 + -10.50000 -170.5000 0.0000000E+00 + -9.500000 -170.5000 0.0000000E+00 + -8.500000 -170.5000 0.0000000E+00 + -7.500000 -170.5000 0.0000000E+00 + -6.500000 -170.5000 0.0000000E+00 + -5.500000 -170.5000 0.0000000E+00 + -4.500000 -170.5000 0.0000000E+00 + -3.500000 -170.5000 0.0000000E+00 + -2.500000 -170.5000 0.0000000E+00 + -1.500000 -170.5000 0.0000000E+00 + -0.5000000 -170.5000 0.0000000E+00 + 0.5000000 -170.5000 0.0000000E+00 + 1.500000 -170.5000 0.0000000E+00 + 2.500000 -170.5000 0.0000000E+00 + 3.500000 -170.5000 0.0000000E+00 + 4.500000 -170.5000 0.0000000E+00 + 5.500000 -170.5000 0.0000000E+00 + 6.500000 -170.5000 0.0000000E+00 + 7.500000 -170.5000 0.0000000E+00 + 8.500000 -170.5000 0.0000000E+00 + 9.500000 -170.5000 0.0000000E+00 + 10.50000 -170.5000 0.0000000E+00 + 11.50000 -170.5000 0.0000000E+00 + 12.50000 -170.5000 0.0000000E+00 + 13.50000 -170.5000 0.0000000E+00 + 14.50000 -170.5000 0.0000000E+00 + 15.50000 -170.5000 0.0000000E+00 + 16.50000 -170.5000 0.0000000E+00 + 17.50000 -170.5000 0.0000000E+00 + 18.50000 -170.5000 0.0000000E+00 + 19.50000 -170.5000 0.0000000E+00 + 20.50000 -170.5000 0.0000000E+00 + 21.50000 -170.5000 0.0000000E+00 + 22.50000 -170.5000 0.0000000E+00 + 23.50000 -170.5000 0.0000000E+00 + 24.50000 -170.5000 0.0000000E+00 + 25.50000 -170.5000 0.0000000E+00 + 26.50000 -170.5000 0.0000000E+00 + 27.50000 -170.5000 0.0000000E+00 + 28.50000 -170.5000 0.0000000E+00 + 29.50000 -170.5000 0.0000000E+00 + 30.50000 -170.5000 0.0000000E+00 + 31.50000 -170.5000 0.0000000E+00 + 32.50000 -170.5000 0.0000000E+00 + 33.50000 -170.5000 0.0000000E+00 + 34.50000 -170.5000 0.0000000E+00 + 35.50000 -170.5000 0.0000000E+00 + 36.50000 -170.5000 0.0000000E+00 + 37.50000 -170.5000 0.0000000E+00 + 38.50000 -170.5000 0.0000000E+00 + 39.50000 -170.5000 0.0000000E+00 + 40.50000 -170.5000 0.0000000E+00 + 41.50000 -170.5000 0.0000000E+00 + 42.50000 -170.5000 0.0000000E+00 + 43.50000 -170.5000 0.0000000E+00 + 44.50000 -170.5000 0.0000000E+00 + 45.50000 -170.5000 0.0000000E+00 + 46.50000 -170.5000 0.0000000E+00 + 47.50000 -170.5000 0.0000000E+00 + 48.50000 -170.5000 0.0000000E+00 + 49.50000 -170.5000 0.0000000E+00 + 50.50000 -170.5000 0.0000000E+00 + 51.50000 -170.5000 0.0000000E+00 + 52.50000 -170.5000 0.0000000E+00 + 53.50000 -170.5000 0.0000000E+00 + 54.50000 -170.5000 0.0000000E+00 + 55.50000 -170.5000 0.0000000E+00 + 56.50000 -170.5000 0.0000000E+00 + 57.50000 -170.5000 0.0000000E+00 + 58.50000 -170.5000 0.0000000E+00 + 59.50000 -170.5000 0.0000000E+00 + 60.50000 -170.5000 0.0000000E+00 + 61.50000 -170.5000 0.0000000E+00 + 62.50000 -170.5000 0.0000000E+00 + 63.50000 -170.5000 0.0000000E+00 + 64.50000 -170.5000 0.0000000E+00 + 65.50000 -170.5000 0.0000000E+00 + 66.50000 -170.5000 0.0000000E+00 + 67.50000 -170.5000 0.0000000E+00 + 68.50000 -170.5000 0.0000000E+00 + 69.50000 -170.5000 0.0000000E+00 + 70.50000 -170.5000 0.0000000E+00 + 71.50000 -170.5000 0.0000000E+00 + 72.50000 -170.5000 0.0000000E+00 + 73.50000 -170.5000 0.0000000E+00 + 74.50000 -170.5000 0.0000000E+00 + 75.50000 -170.5000 0.0000000E+00 + 76.50000 -170.5000 0.0000000E+00 + 77.50000 -170.5000 0.0000000E+00 + 78.50000 -170.5000 0.0000000E+00 + 79.50000 -170.5000 0.0000000E+00 + 80.50000 -170.5000 0.0000000E+00 + 81.50000 -170.5000 0.0000000E+00 + 82.50000 -170.5000 0.0000000E+00 + 83.50000 -170.5000 0.0000000E+00 + 84.50000 -170.5000 0.0000000E+00 + 85.50000 -170.5000 0.0000000E+00 + 86.50000 -170.5000 0.0000000E+00 + 87.50000 -170.5000 0.0000000E+00 + 88.50000 -170.5000 0.0000000E+00 + 89.50000 -170.5000 0.0000000E+00 + -89.50000 -169.5000 0.0000000E+00 + -88.50000 -169.5000 0.0000000E+00 + -87.50000 -169.5000 0.0000000E+00 + -86.50000 -169.5000 0.0000000E+00 + -85.50000 -169.5000 0.0000000E+00 + -84.50000 -169.5000 0.0000000E+00 + -83.50000 -169.5000 0.0000000E+00 + -82.50000 -169.5000 0.0000000E+00 + -81.50000 -169.5000 0.0000000E+00 + -80.50000 -169.5000 0.0000000E+00 + -79.50000 -169.5000 0.0000000E+00 + -78.50000 -169.5000 0.0000000E+00 + -77.50000 -169.5000 0.0000000E+00 + -76.50000 -169.5000 0.0000000E+00 + -75.50000 -169.5000 0.0000000E+00 + -74.50000 -169.5000 0.0000000E+00 + -73.50000 -169.5000 0.0000000E+00 + -72.50000 -169.5000 0.0000000E+00 + -71.50000 -169.5000 0.0000000E+00 + -70.50000 -169.5000 0.0000000E+00 + -69.50000 -169.5000 0.0000000E+00 + -68.50000 -169.5000 0.0000000E+00 + -67.50000 -169.5000 0.0000000E+00 + -66.50000 -169.5000 0.0000000E+00 + -65.50000 -169.5000 0.0000000E+00 + -64.50000 -169.5000 0.0000000E+00 + -63.50000 -169.5000 0.0000000E+00 + -62.50000 -169.5000 0.0000000E+00 + -61.50000 -169.5000 0.0000000E+00 + -60.50000 -169.5000 0.0000000E+00 + -59.50000 -169.5000 0.0000000E+00 + -58.50000 -169.5000 0.0000000E+00 + -57.50000 -169.5000 0.0000000E+00 + -56.50000 -169.5000 0.0000000E+00 + -55.50000 -169.5000 0.0000000E+00 + -54.50000 -169.5000 0.0000000E+00 + -53.50000 -169.5000 0.0000000E+00 + -52.50000 -169.5000 0.0000000E+00 + -51.50000 -169.5000 0.0000000E+00 + -50.50000 -169.5000 0.0000000E+00 + -49.50000 -169.5000 0.0000000E+00 + -48.50000 -169.5000 0.0000000E+00 + -47.50000 -169.5000 0.0000000E+00 + -46.50000 -169.5000 0.0000000E+00 + -45.50000 -169.5000 0.0000000E+00 + -44.50000 -169.5000 0.0000000E+00 + -43.50000 -169.5000 0.0000000E+00 + -42.50000 -169.5000 0.0000000E+00 + -41.50000 -169.5000 0.0000000E+00 + -40.50000 -169.5000 0.0000000E+00 + -39.50000 -169.5000 0.0000000E+00 + -38.50000 -169.5000 0.0000000E+00 + -37.50000 -169.5000 0.0000000E+00 + -36.50000 -169.5000 0.0000000E+00 + -35.50000 -169.5000 0.0000000E+00 + -34.50000 -169.5000 0.0000000E+00 + -33.50000 -169.5000 0.0000000E+00 + -32.50000 -169.5000 0.0000000E+00 + -31.50000 -169.5000 0.0000000E+00 + -30.50000 -169.5000 0.0000000E+00 + -29.50000 -169.5000 0.0000000E+00 + -28.50000 -169.5000 0.0000000E+00 + -27.50000 -169.5000 0.0000000E+00 + -26.50000 -169.5000 0.0000000E+00 + -25.50000 -169.5000 0.0000000E+00 + -24.50000 -169.5000 0.0000000E+00 + -23.50000 -169.5000 0.0000000E+00 + -22.50000 -169.5000 0.0000000E+00 + -21.50000 -169.5000 0.0000000E+00 + -20.50000 -169.5000 0.0000000E+00 + -19.50000 -169.5000 0.0000000E+00 + -18.50000 -169.5000 0.0000000E+00 + -17.50000 -169.5000 0.0000000E+00 + -16.50000 -169.5000 0.0000000E+00 + -15.50000 -169.5000 0.0000000E+00 + -14.50000 -169.5000 0.0000000E+00 + -13.50000 -169.5000 0.0000000E+00 + -12.50000 -169.5000 0.0000000E+00 + -11.50000 -169.5000 0.0000000E+00 + -10.50000 -169.5000 0.0000000E+00 + -9.500000 -169.5000 0.0000000E+00 + -8.500000 -169.5000 0.0000000E+00 + -7.500000 -169.5000 0.0000000E+00 + -6.500000 -169.5000 0.0000000E+00 + -5.500000 -169.5000 0.0000000E+00 + -4.500000 -169.5000 0.0000000E+00 + -3.500000 -169.5000 0.0000000E+00 + -2.500000 -169.5000 0.0000000E+00 + -1.500000 -169.5000 0.0000000E+00 + -0.5000000 -169.5000 0.0000000E+00 + 0.5000000 -169.5000 0.0000000E+00 + 1.500000 -169.5000 0.0000000E+00 + 2.500000 -169.5000 0.0000000E+00 + 3.500000 -169.5000 0.0000000E+00 + 4.500000 -169.5000 0.0000000E+00 + 5.500000 -169.5000 0.0000000E+00 + 6.500000 -169.5000 0.0000000E+00 + 7.500000 -169.5000 0.0000000E+00 + 8.500000 -169.5000 0.0000000E+00 + 9.500000 -169.5000 0.0000000E+00 + 10.50000 -169.5000 0.0000000E+00 + 11.50000 -169.5000 0.0000000E+00 + 12.50000 -169.5000 0.0000000E+00 + 13.50000 -169.5000 0.0000000E+00 + 14.50000 -169.5000 0.0000000E+00 + 15.50000 -169.5000 0.0000000E+00 + 16.50000 -169.5000 0.0000000E+00 + 17.50000 -169.5000 0.0000000E+00 + 18.50000 -169.5000 0.0000000E+00 + 19.50000 -169.5000 0.0000000E+00 + 20.50000 -169.5000 0.0000000E+00 + 21.50000 -169.5000 0.0000000E+00 + 22.50000 -169.5000 0.0000000E+00 + 23.50000 -169.5000 0.0000000E+00 + 24.50000 -169.5000 0.0000000E+00 + 25.50000 -169.5000 0.0000000E+00 + 26.50000 -169.5000 0.0000000E+00 + 27.50000 -169.5000 0.0000000E+00 + 28.50000 -169.5000 0.0000000E+00 + 29.50000 -169.5000 0.0000000E+00 + 30.50000 -169.5000 0.0000000E+00 + 31.50000 -169.5000 0.0000000E+00 + 32.50000 -169.5000 0.0000000E+00 + 33.50000 -169.5000 0.0000000E+00 + 34.50000 -169.5000 0.0000000E+00 + 35.50000 -169.5000 0.0000000E+00 + 36.50000 -169.5000 0.0000000E+00 + 37.50000 -169.5000 0.0000000E+00 + 38.50000 -169.5000 0.0000000E+00 + 39.50000 -169.5000 0.0000000E+00 + 40.50000 -169.5000 0.0000000E+00 + 41.50000 -169.5000 0.0000000E+00 + 42.50000 -169.5000 0.0000000E+00 + 43.50000 -169.5000 0.0000000E+00 + 44.50000 -169.5000 0.0000000E+00 + 45.50000 -169.5000 0.0000000E+00 + 46.50000 -169.5000 0.0000000E+00 + 47.50000 -169.5000 0.0000000E+00 + 48.50000 -169.5000 0.0000000E+00 + 49.50000 -169.5000 0.0000000E+00 + 50.50000 -169.5000 0.0000000E+00 + 51.50000 -169.5000 0.0000000E+00 + 52.50000 -169.5000 0.0000000E+00 + 53.50000 -169.5000 0.0000000E+00 + 54.50000 -169.5000 0.0000000E+00 + 55.50000 -169.5000 0.0000000E+00 + 56.50000 -169.5000 0.0000000E+00 + 57.50000 -169.5000 0.0000000E+00 + 58.50000 -169.5000 0.0000000E+00 + 59.50000 -169.5000 0.0000000E+00 + 60.50000 -169.5000 0.0000000E+00 + 61.50000 -169.5000 0.0000000E+00 + 62.50000 -169.5000 0.0000000E+00 + 63.50000 -169.5000 0.0000000E+00 + 64.50000 -169.5000 0.0000000E+00 + 65.50000 -169.5000 0.0000000E+00 + 66.50000 -169.5000 0.0000000E+00 + 67.50000 -169.5000 0.0000000E+00 + 68.50000 -169.5000 0.0000000E+00 + 69.50000 -169.5000 0.0000000E+00 + 70.50000 -169.5000 0.0000000E+00 + 71.50000 -169.5000 0.0000000E+00 + 72.50000 -169.5000 0.0000000E+00 + 73.50000 -169.5000 0.0000000E+00 + 74.50000 -169.5000 0.0000000E+00 + 75.50000 -169.5000 0.0000000E+00 + 76.50000 -169.5000 0.0000000E+00 + 77.50000 -169.5000 0.0000000E+00 + 78.50000 -169.5000 0.0000000E+00 + 79.50000 -169.5000 0.0000000E+00 + 80.50000 -169.5000 0.0000000E+00 + 81.50000 -169.5000 0.0000000E+00 + 82.50000 -169.5000 0.0000000E+00 + 83.50000 -169.5000 0.0000000E+00 + 84.50000 -169.5000 0.0000000E+00 + 85.50000 -169.5000 0.0000000E+00 + 86.50000 -169.5000 0.0000000E+00 + 87.50000 -169.5000 0.0000000E+00 + 88.50000 -169.5000 0.0000000E+00 + 89.50000 -169.5000 0.0000000E+00 + -89.50000 -168.5000 0.0000000E+00 + -88.50000 -168.5000 0.0000000E+00 + -87.50000 -168.5000 0.0000000E+00 + -86.50000 -168.5000 0.0000000E+00 + -85.50000 -168.5000 0.0000000E+00 + -84.50000 -168.5000 0.0000000E+00 + -83.50000 -168.5000 0.0000000E+00 + -82.50000 -168.5000 0.0000000E+00 + -81.50000 -168.5000 0.0000000E+00 + -80.50000 -168.5000 0.0000000E+00 + -79.50000 -168.5000 0.0000000E+00 + -78.50000 -168.5000 0.0000000E+00 + -77.50000 -168.5000 0.0000000E+00 + -76.50000 -168.5000 0.0000000E+00 + -75.50000 -168.5000 0.0000000E+00 + -74.50000 -168.5000 0.0000000E+00 + -73.50000 -168.5000 0.0000000E+00 + -72.50000 -168.5000 0.0000000E+00 + -71.50000 -168.5000 0.0000000E+00 + -70.50000 -168.5000 0.0000000E+00 + -69.50000 -168.5000 0.0000000E+00 + -68.50000 -168.5000 0.0000000E+00 + -67.50000 -168.5000 0.0000000E+00 + -66.50000 -168.5000 0.0000000E+00 + -65.50000 -168.5000 0.0000000E+00 + -64.50000 -168.5000 0.0000000E+00 + -63.50000 -168.5000 0.0000000E+00 + -62.50000 -168.5000 0.0000000E+00 + -61.50000 -168.5000 0.0000000E+00 + -60.50000 -168.5000 0.0000000E+00 + -59.50000 -168.5000 0.0000000E+00 + -58.50000 -168.5000 0.0000000E+00 + -57.50000 -168.5000 0.0000000E+00 + -56.50000 -168.5000 0.0000000E+00 + -55.50000 -168.5000 0.0000000E+00 + -54.50000 -168.5000 0.0000000E+00 + -53.50000 -168.5000 0.0000000E+00 + -52.50000 -168.5000 0.0000000E+00 + -51.50000 -168.5000 0.0000000E+00 + -50.50000 -168.5000 0.0000000E+00 + -49.50000 -168.5000 0.0000000E+00 + -48.50000 -168.5000 0.0000000E+00 + -47.50000 -168.5000 0.0000000E+00 + -46.50000 -168.5000 0.0000000E+00 + -45.50000 -168.5000 0.0000000E+00 + -44.50000 -168.5000 0.0000000E+00 + -43.50000 -168.5000 0.0000000E+00 + -42.50000 -168.5000 0.0000000E+00 + -41.50000 -168.5000 0.0000000E+00 + -40.50000 -168.5000 0.0000000E+00 + -39.50000 -168.5000 0.0000000E+00 + -38.50000 -168.5000 0.0000000E+00 + -37.50000 -168.5000 0.0000000E+00 + -36.50000 -168.5000 0.0000000E+00 + -35.50000 -168.5000 0.0000000E+00 + -34.50000 -168.5000 0.0000000E+00 + -33.50000 -168.5000 0.0000000E+00 + -32.50000 -168.5000 0.0000000E+00 + -31.50000 -168.5000 0.0000000E+00 + -30.50000 -168.5000 0.0000000E+00 + -29.50000 -168.5000 0.0000000E+00 + -28.50000 -168.5000 0.0000000E+00 + -27.50000 -168.5000 0.0000000E+00 + -26.50000 -168.5000 0.0000000E+00 + -25.50000 -168.5000 0.0000000E+00 + -24.50000 -168.5000 0.0000000E+00 + -23.50000 -168.5000 0.0000000E+00 + -22.50000 -168.5000 0.0000000E+00 + -21.50000 -168.5000 0.0000000E+00 + -20.50000 -168.5000 0.0000000E+00 + -19.50000 -168.5000 0.0000000E+00 + -18.50000 -168.5000 0.0000000E+00 + -17.50000 -168.5000 0.0000000E+00 + -16.50000 -168.5000 0.0000000E+00 + -15.50000 -168.5000 0.0000000E+00 + -14.50000 -168.5000 0.0000000E+00 + -13.50000 -168.5000 0.0000000E+00 + -12.50000 -168.5000 0.0000000E+00 + -11.50000 -168.5000 0.0000000E+00 + -10.50000 -168.5000 0.0000000E+00 + -9.500000 -168.5000 0.0000000E+00 + -8.500000 -168.5000 0.0000000E+00 + -7.500000 -168.5000 0.0000000E+00 + -6.500000 -168.5000 0.0000000E+00 + -5.500000 -168.5000 0.0000000E+00 + -4.500000 -168.5000 0.0000000E+00 + -3.500000 -168.5000 0.0000000E+00 + -2.500000 -168.5000 0.0000000E+00 + -1.500000 -168.5000 0.0000000E+00 + -0.5000000 -168.5000 0.0000000E+00 + 0.5000000 -168.5000 0.0000000E+00 + 1.500000 -168.5000 0.0000000E+00 + 2.500000 -168.5000 0.0000000E+00 + 3.500000 -168.5000 0.0000000E+00 + 4.500000 -168.5000 0.0000000E+00 + 5.500000 -168.5000 0.0000000E+00 + 6.500000 -168.5000 0.0000000E+00 + 7.500000 -168.5000 0.0000000E+00 + 8.500000 -168.5000 0.0000000E+00 + 9.500000 -168.5000 0.0000000E+00 + 10.50000 -168.5000 0.0000000E+00 + 11.50000 -168.5000 0.0000000E+00 + 12.50000 -168.5000 0.0000000E+00 + 13.50000 -168.5000 0.0000000E+00 + 14.50000 -168.5000 0.0000000E+00 + 15.50000 -168.5000 0.0000000E+00 + 16.50000 -168.5000 0.0000000E+00 + 17.50000 -168.5000 0.0000000E+00 + 18.50000 -168.5000 0.0000000E+00 + 19.50000 -168.5000 0.0000000E+00 + 20.50000 -168.5000 0.0000000E+00 + 21.50000 -168.5000 0.0000000E+00 + 22.50000 -168.5000 0.0000000E+00 + 23.50000 -168.5000 0.0000000E+00 + 24.50000 -168.5000 0.0000000E+00 + 25.50000 -168.5000 0.0000000E+00 + 26.50000 -168.5000 0.0000000E+00 + 27.50000 -168.5000 0.0000000E+00 + 28.50000 -168.5000 0.0000000E+00 + 29.50000 -168.5000 0.0000000E+00 + 30.50000 -168.5000 0.0000000E+00 + 31.50000 -168.5000 0.0000000E+00 + 32.50000 -168.5000 0.0000000E+00 + 33.50000 -168.5000 0.0000000E+00 + 34.50000 -168.5000 0.0000000E+00 + 35.50000 -168.5000 0.0000000E+00 + 36.50000 -168.5000 0.0000000E+00 + 37.50000 -168.5000 0.0000000E+00 + 38.50000 -168.5000 0.0000000E+00 + 39.50000 -168.5000 0.0000000E+00 + 40.50000 -168.5000 0.0000000E+00 + 41.50000 -168.5000 0.0000000E+00 + 42.50000 -168.5000 0.0000000E+00 + 43.50000 -168.5000 0.0000000E+00 + 44.50000 -168.5000 0.0000000E+00 + 45.50000 -168.5000 0.0000000E+00 + 46.50000 -168.5000 0.0000000E+00 + 47.50000 -168.5000 0.0000000E+00 + 48.50000 -168.5000 0.0000000E+00 + 49.50000 -168.5000 0.0000000E+00 + 50.50000 -168.5000 0.0000000E+00 + 51.50000 -168.5000 0.0000000E+00 + 52.50000 -168.5000 0.0000000E+00 + 53.50000 -168.5000 0.0000000E+00 + 54.50000 -168.5000 0.0000000E+00 + 55.50000 -168.5000 0.0000000E+00 + 56.50000 -168.5000 0.0000000E+00 + 57.50000 -168.5000 0.0000000E+00 + 58.50000 -168.5000 0.0000000E+00 + 59.50000 -168.5000 0.0000000E+00 + 60.50000 -168.5000 0.0000000E+00 + 61.50000 -168.5000 0.0000000E+00 + 62.50000 -168.5000 0.0000000E+00 + 63.50000 -168.5000 0.0000000E+00 + 64.50000 -168.5000 0.0000000E+00 + 65.50000 -168.5000 0.0000000E+00 + 66.50000 -168.5000 0.0000000E+00 + 67.50000 -168.5000 0.0000000E+00 + 68.50000 -168.5000 0.0000000E+00 + 69.50000 -168.5000 0.0000000E+00 + 70.50000 -168.5000 0.0000000E+00 + 71.50000 -168.5000 0.0000000E+00 + 72.50000 -168.5000 0.0000000E+00 + 73.50000 -168.5000 0.0000000E+00 + 74.50000 -168.5000 0.0000000E+00 + 75.50000 -168.5000 0.0000000E+00 + 76.50000 -168.5000 0.0000000E+00 + 77.50000 -168.5000 0.0000000E+00 + 78.50000 -168.5000 0.0000000E+00 + 79.50000 -168.5000 0.0000000E+00 + 80.50000 -168.5000 0.0000000E+00 + 81.50000 -168.5000 0.0000000E+00 + 82.50000 -168.5000 0.0000000E+00 + 83.50000 -168.5000 0.0000000E+00 + 84.50000 -168.5000 0.0000000E+00 + 85.50000 -168.5000 0.0000000E+00 + 86.50000 -168.5000 0.0000000E+00 + 87.50000 -168.5000 0.0000000E+00 + 88.50000 -168.5000 0.0000000E+00 + 89.50000 -168.5000 0.0000000E+00 + -89.50000 -167.5000 0.0000000E+00 + -88.50000 -167.5000 0.0000000E+00 + -87.50000 -167.5000 0.0000000E+00 + -86.50000 -167.5000 0.0000000E+00 + -85.50000 -167.5000 0.0000000E+00 + -84.50000 -167.5000 0.0000000E+00 + -83.50000 -167.5000 0.0000000E+00 + -82.50000 -167.5000 0.0000000E+00 + -81.50000 -167.5000 0.0000000E+00 + -80.50000 -167.5000 0.0000000E+00 + -79.50000 -167.5000 0.0000000E+00 + -78.50000 -167.5000 0.0000000E+00 + -77.50000 -167.5000 0.0000000E+00 + -76.50000 -167.5000 0.0000000E+00 + -75.50000 -167.5000 0.0000000E+00 + -74.50000 -167.5000 0.0000000E+00 + -73.50000 -167.5000 0.0000000E+00 + -72.50000 -167.5000 0.0000000E+00 + -71.50000 -167.5000 0.0000000E+00 + -70.50000 -167.5000 0.0000000E+00 + -69.50000 -167.5000 0.0000000E+00 + -68.50000 -167.5000 0.0000000E+00 + -67.50000 -167.5000 0.0000000E+00 + -66.50000 -167.5000 0.0000000E+00 + -65.50000 -167.5000 0.0000000E+00 + -64.50000 -167.5000 0.0000000E+00 + -63.50000 -167.5000 0.0000000E+00 + -62.50000 -167.5000 0.0000000E+00 + -61.50000 -167.5000 0.0000000E+00 + -60.50000 -167.5000 0.0000000E+00 + -59.50000 -167.5000 0.0000000E+00 + -58.50000 -167.5000 0.0000000E+00 + -57.50000 -167.5000 0.0000000E+00 + -56.50000 -167.5000 0.0000000E+00 + -55.50000 -167.5000 0.0000000E+00 + -54.50000 -167.5000 0.0000000E+00 + -53.50000 -167.5000 0.0000000E+00 + -52.50000 -167.5000 0.0000000E+00 + -51.50000 -167.5000 0.0000000E+00 + -50.50000 -167.5000 0.0000000E+00 + -49.50000 -167.5000 0.0000000E+00 + -48.50000 -167.5000 0.0000000E+00 + -47.50000 -167.5000 0.0000000E+00 + -46.50000 -167.5000 0.0000000E+00 + -45.50000 -167.5000 0.0000000E+00 + -44.50000 -167.5000 0.0000000E+00 + -43.50000 -167.5000 0.0000000E+00 + -42.50000 -167.5000 0.0000000E+00 + -41.50000 -167.5000 0.0000000E+00 + -40.50000 -167.5000 0.0000000E+00 + -39.50000 -167.5000 0.0000000E+00 + -38.50000 -167.5000 0.0000000E+00 + -37.50000 -167.5000 0.0000000E+00 + -36.50000 -167.5000 0.0000000E+00 + -35.50000 -167.5000 0.0000000E+00 + -34.50000 -167.5000 0.0000000E+00 + -33.50000 -167.5000 0.0000000E+00 + -32.50000 -167.5000 0.0000000E+00 + -31.50000 -167.5000 0.0000000E+00 + -30.50000 -167.5000 0.0000000E+00 + -29.50000 -167.5000 0.0000000E+00 + -28.50000 -167.5000 0.0000000E+00 + -27.50000 -167.5000 0.0000000E+00 + -26.50000 -167.5000 0.0000000E+00 + -25.50000 -167.5000 0.0000000E+00 + -24.50000 -167.5000 0.0000000E+00 + -23.50000 -167.5000 0.0000000E+00 + -22.50000 -167.5000 0.0000000E+00 + -21.50000 -167.5000 0.0000000E+00 + -20.50000 -167.5000 0.0000000E+00 + -19.50000 -167.5000 0.0000000E+00 + -18.50000 -167.5000 0.0000000E+00 + -17.50000 -167.5000 0.0000000E+00 + -16.50000 -167.5000 0.0000000E+00 + -15.50000 -167.5000 0.0000000E+00 + -14.50000 -167.5000 0.0000000E+00 + -13.50000 -167.5000 0.0000000E+00 + -12.50000 -167.5000 0.0000000E+00 + -11.50000 -167.5000 0.0000000E+00 + -10.50000 -167.5000 0.0000000E+00 + -9.500000 -167.5000 0.0000000E+00 + -8.500000 -167.5000 0.0000000E+00 + -7.500000 -167.5000 0.0000000E+00 + -6.500000 -167.5000 0.0000000E+00 + -5.500000 -167.5000 0.0000000E+00 + -4.500000 -167.5000 0.0000000E+00 + -3.500000 -167.5000 0.0000000E+00 + -2.500000 -167.5000 0.0000000E+00 + -1.500000 -167.5000 0.0000000E+00 + -0.5000000 -167.5000 0.0000000E+00 + 0.5000000 -167.5000 0.0000000E+00 + 1.500000 -167.5000 0.0000000E+00 + 2.500000 -167.5000 0.0000000E+00 + 3.500000 -167.5000 0.0000000E+00 + 4.500000 -167.5000 0.0000000E+00 + 5.500000 -167.5000 0.0000000E+00 + 6.500000 -167.5000 0.0000000E+00 + 7.500000 -167.5000 0.0000000E+00 + 8.500000 -167.5000 0.0000000E+00 + 9.500000 -167.5000 0.0000000E+00 + 10.50000 -167.5000 0.0000000E+00 + 11.50000 -167.5000 0.0000000E+00 + 12.50000 -167.5000 0.0000000E+00 + 13.50000 -167.5000 0.0000000E+00 + 14.50000 -167.5000 0.0000000E+00 + 15.50000 -167.5000 0.0000000E+00 + 16.50000 -167.5000 0.0000000E+00 + 17.50000 -167.5000 0.0000000E+00 + 18.50000 -167.5000 0.0000000E+00 + 19.50000 -167.5000 0.0000000E+00 + 20.50000 -167.5000 0.0000000E+00 + 21.50000 -167.5000 0.0000000E+00 + 22.50000 -167.5000 0.0000000E+00 + 23.50000 -167.5000 0.0000000E+00 + 24.50000 -167.5000 0.0000000E+00 + 25.50000 -167.5000 0.0000000E+00 + 26.50000 -167.5000 0.0000000E+00 + 27.50000 -167.5000 0.0000000E+00 + 28.50000 -167.5000 0.0000000E+00 + 29.50000 -167.5000 0.0000000E+00 + 30.50000 -167.5000 0.0000000E+00 + 31.50000 -167.5000 0.0000000E+00 + 32.50000 -167.5000 0.0000000E+00 + 33.50000 -167.5000 0.0000000E+00 + 34.50000 -167.5000 0.0000000E+00 + 35.50000 -167.5000 0.0000000E+00 + 36.50000 -167.5000 0.0000000E+00 + 37.50000 -167.5000 0.0000000E+00 + 38.50000 -167.5000 0.0000000E+00 + 39.50000 -167.5000 0.0000000E+00 + 40.50000 -167.5000 0.0000000E+00 + 41.50000 -167.5000 0.0000000E+00 + 42.50000 -167.5000 0.0000000E+00 + 43.50000 -167.5000 0.0000000E+00 + 44.50000 -167.5000 0.0000000E+00 + 45.50000 -167.5000 0.0000000E+00 + 46.50000 -167.5000 0.0000000E+00 + 47.50000 -167.5000 0.0000000E+00 + 48.50000 -167.5000 0.0000000E+00 + 49.50000 -167.5000 0.0000000E+00 + 50.50000 -167.5000 0.0000000E+00 + 51.50000 -167.5000 0.0000000E+00 + 52.50000 -167.5000 0.0000000E+00 + 53.50000 -167.5000 0.0000000E+00 + 54.50000 -167.5000 0.0000000E+00 + 55.50000 -167.5000 0.0000000E+00 + 56.50000 -167.5000 0.0000000E+00 + 57.50000 -167.5000 0.0000000E+00 + 58.50000 -167.5000 0.0000000E+00 + 59.50000 -167.5000 0.0000000E+00 + 60.50000 -167.5000 0.0000000E+00 + 61.50000 -167.5000 0.0000000E+00 + 62.50000 -167.5000 0.0000000E+00 + 63.50000 -167.5000 0.0000000E+00 + 64.50000 -167.5000 0.0000000E+00 + 65.50000 -167.5000 0.0000000E+00 + 66.50000 -167.5000 0.0000000E+00 + 67.50000 -167.5000 0.0000000E+00 + 68.50000 -167.5000 0.0000000E+00 + 69.50000 -167.5000 0.0000000E+00 + 70.50000 -167.5000 0.0000000E+00 + 71.50000 -167.5000 0.0000000E+00 + 72.50000 -167.5000 0.0000000E+00 + 73.50000 -167.5000 0.0000000E+00 + 74.50000 -167.5000 0.0000000E+00 + 75.50000 -167.5000 0.0000000E+00 + 76.50000 -167.5000 0.0000000E+00 + 77.50000 -167.5000 0.0000000E+00 + 78.50000 -167.5000 0.0000000E+00 + 79.50000 -167.5000 0.0000000E+00 + 80.50000 -167.5000 0.0000000E+00 + 81.50000 -167.5000 0.0000000E+00 + 82.50000 -167.5000 0.0000000E+00 + 83.50000 -167.5000 0.0000000E+00 + 84.50000 -167.5000 0.0000000E+00 + 85.50000 -167.5000 0.0000000E+00 + 86.50000 -167.5000 0.0000000E+00 + 87.50000 -167.5000 0.0000000E+00 + 88.50000 -167.5000 0.0000000E+00 + 89.50000 -167.5000 0.0000000E+00 + -89.50000 -166.5000 0.0000000E+00 + -88.50000 -166.5000 0.0000000E+00 + -87.50000 -166.5000 0.0000000E+00 + -86.50000 -166.5000 0.0000000E+00 + -85.50000 -166.5000 0.0000000E+00 + -84.50000 -166.5000 0.0000000E+00 + -83.50000 -166.5000 0.0000000E+00 + -82.50000 -166.5000 0.0000000E+00 + -81.50000 -166.5000 0.0000000E+00 + -80.50000 -166.5000 0.0000000E+00 + -79.50000 -166.5000 0.0000000E+00 + -78.50000 -166.5000 0.0000000E+00 + -77.50000 -166.5000 0.0000000E+00 + -76.50000 -166.5000 0.0000000E+00 + -75.50000 -166.5000 0.0000000E+00 + -74.50000 -166.5000 0.0000000E+00 + -73.50000 -166.5000 0.0000000E+00 + -72.50000 -166.5000 0.0000000E+00 + -71.50000 -166.5000 0.0000000E+00 + -70.50000 -166.5000 0.0000000E+00 + -69.50000 -166.5000 0.0000000E+00 + -68.50000 -166.5000 0.0000000E+00 + -67.50000 -166.5000 0.0000000E+00 + -66.50000 -166.5000 0.0000000E+00 + -65.50000 -166.5000 0.0000000E+00 + -64.50000 -166.5000 0.0000000E+00 + -63.50000 -166.5000 0.0000000E+00 + -62.50000 -166.5000 0.0000000E+00 + -61.50000 -166.5000 0.0000000E+00 + -60.50000 -166.5000 0.0000000E+00 + -59.50000 -166.5000 0.0000000E+00 + -58.50000 -166.5000 0.0000000E+00 + -57.50000 -166.5000 0.0000000E+00 + -56.50000 -166.5000 0.0000000E+00 + -55.50000 -166.5000 0.0000000E+00 + -54.50000 -166.5000 0.0000000E+00 + -53.50000 -166.5000 0.0000000E+00 + -52.50000 -166.5000 0.0000000E+00 + -51.50000 -166.5000 0.0000000E+00 + -50.50000 -166.5000 0.0000000E+00 + -49.50000 -166.5000 0.0000000E+00 + -48.50000 -166.5000 0.0000000E+00 + -47.50000 -166.5000 0.0000000E+00 + -46.50000 -166.5000 0.0000000E+00 + -45.50000 -166.5000 0.0000000E+00 + -44.50000 -166.5000 0.0000000E+00 + -43.50000 -166.5000 0.0000000E+00 + -42.50000 -166.5000 0.0000000E+00 + -41.50000 -166.5000 0.0000000E+00 + -40.50000 -166.5000 0.0000000E+00 + -39.50000 -166.5000 0.0000000E+00 + -38.50000 -166.5000 0.0000000E+00 + -37.50000 -166.5000 0.0000000E+00 + -36.50000 -166.5000 0.0000000E+00 + -35.50000 -166.5000 0.0000000E+00 + -34.50000 -166.5000 0.0000000E+00 + -33.50000 -166.5000 0.0000000E+00 + -32.50000 -166.5000 0.0000000E+00 + -31.50000 -166.5000 0.0000000E+00 + -30.50000 -166.5000 0.0000000E+00 + -29.50000 -166.5000 0.0000000E+00 + -28.50000 -166.5000 0.0000000E+00 + -27.50000 -166.5000 0.0000000E+00 + -26.50000 -166.5000 0.0000000E+00 + -25.50000 -166.5000 0.0000000E+00 + -24.50000 -166.5000 0.0000000E+00 + -23.50000 -166.5000 0.0000000E+00 + -22.50000 -166.5000 0.0000000E+00 + -21.50000 -166.5000 0.0000000E+00 + -20.50000 -166.5000 0.0000000E+00 + -19.50000 -166.5000 0.0000000E+00 + -18.50000 -166.5000 0.0000000E+00 + -17.50000 -166.5000 0.0000000E+00 + -16.50000 -166.5000 0.0000000E+00 + -15.50000 -166.5000 0.0000000E+00 + -14.50000 -166.5000 0.0000000E+00 + -13.50000 -166.5000 0.0000000E+00 + -12.50000 -166.5000 0.0000000E+00 + -11.50000 -166.5000 0.0000000E+00 + -10.50000 -166.5000 0.0000000E+00 + -9.500000 -166.5000 0.0000000E+00 + -8.500000 -166.5000 0.0000000E+00 + -7.500000 -166.5000 0.0000000E+00 + -6.500000 -166.5000 0.0000000E+00 + -5.500000 -166.5000 0.0000000E+00 + -4.500000 -166.5000 0.0000000E+00 + -3.500000 -166.5000 0.0000000E+00 + -2.500000 -166.5000 0.0000000E+00 + -1.500000 -166.5000 0.0000000E+00 + -0.5000000 -166.5000 0.0000000E+00 + 0.5000000 -166.5000 0.0000000E+00 + 1.500000 -166.5000 0.0000000E+00 + 2.500000 -166.5000 0.0000000E+00 + 3.500000 -166.5000 0.0000000E+00 + 4.500000 -166.5000 0.0000000E+00 + 5.500000 -166.5000 0.0000000E+00 + 6.500000 -166.5000 0.0000000E+00 + 7.500000 -166.5000 0.0000000E+00 + 8.500000 -166.5000 0.0000000E+00 + 9.500000 -166.5000 0.0000000E+00 + 10.50000 -166.5000 0.0000000E+00 + 11.50000 -166.5000 0.0000000E+00 + 12.50000 -166.5000 0.0000000E+00 + 13.50000 -166.5000 0.0000000E+00 + 14.50000 -166.5000 0.0000000E+00 + 15.50000 -166.5000 0.0000000E+00 + 16.50000 -166.5000 0.0000000E+00 + 17.50000 -166.5000 0.0000000E+00 + 18.50000 -166.5000 0.0000000E+00 + 19.50000 -166.5000 0.0000000E+00 + 20.50000 -166.5000 0.0000000E+00 + 21.50000 -166.5000 0.0000000E+00 + 22.50000 -166.5000 0.0000000E+00 + 23.50000 -166.5000 0.0000000E+00 + 24.50000 -166.5000 0.0000000E+00 + 25.50000 -166.5000 0.0000000E+00 + 26.50000 -166.5000 0.0000000E+00 + 27.50000 -166.5000 0.0000000E+00 + 28.50000 -166.5000 0.0000000E+00 + 29.50000 -166.5000 0.0000000E+00 + 30.50000 -166.5000 0.0000000E+00 + 31.50000 -166.5000 0.0000000E+00 + 32.50000 -166.5000 0.0000000E+00 + 33.50000 -166.5000 0.0000000E+00 + 34.50000 -166.5000 0.0000000E+00 + 35.50000 -166.5000 0.0000000E+00 + 36.50000 -166.5000 0.0000000E+00 + 37.50000 -166.5000 0.0000000E+00 + 38.50000 -166.5000 0.0000000E+00 + 39.50000 -166.5000 0.0000000E+00 + 40.50000 -166.5000 0.0000000E+00 + 41.50000 -166.5000 0.0000000E+00 + 42.50000 -166.5000 0.0000000E+00 + 43.50000 -166.5000 0.0000000E+00 + 44.50000 -166.5000 0.0000000E+00 + 45.50000 -166.5000 0.0000000E+00 + 46.50000 -166.5000 0.0000000E+00 + 47.50000 -166.5000 0.0000000E+00 + 48.50000 -166.5000 0.0000000E+00 + 49.50000 -166.5000 0.0000000E+00 + 50.50000 -166.5000 0.0000000E+00 + 51.50000 -166.5000 0.0000000E+00 + 52.50000 -166.5000 0.0000000E+00 + 53.50000 -166.5000 0.0000000E+00 + 54.50000 -166.5000 0.0000000E+00 + 55.50000 -166.5000 0.0000000E+00 + 56.50000 -166.5000 0.0000000E+00 + 57.50000 -166.5000 0.0000000E+00 + 58.50000 -166.5000 0.0000000E+00 + 59.50000 -166.5000 0.0000000E+00 + 60.50000 -166.5000 0.0000000E+00 + 61.50000 -166.5000 0.0000000E+00 + 62.50000 -166.5000 0.0000000E+00 + 63.50000 -166.5000 0.0000000E+00 + 64.50000 -166.5000 0.0000000E+00 + 65.50000 -166.5000 0.0000000E+00 + 66.50000 -166.5000 0.0000000E+00 + 67.50000 -166.5000 0.0000000E+00 + 68.50000 -166.5000 0.0000000E+00 + 69.50000 -166.5000 0.0000000E+00 + 70.50000 -166.5000 0.0000000E+00 + 71.50000 -166.5000 0.0000000E+00 + 72.50000 -166.5000 0.0000000E+00 + 73.50000 -166.5000 0.0000000E+00 + 74.50000 -166.5000 0.0000000E+00 + 75.50000 -166.5000 0.0000000E+00 + 76.50000 -166.5000 0.0000000E+00 + 77.50000 -166.5000 0.0000000E+00 + 78.50000 -166.5000 0.0000000E+00 + 79.50000 -166.5000 0.0000000E+00 + 80.50000 -166.5000 0.0000000E+00 + 81.50000 -166.5000 0.0000000E+00 + 82.50000 -166.5000 0.0000000E+00 + 83.50000 -166.5000 0.0000000E+00 + 84.50000 -166.5000 0.0000000E+00 + 85.50000 -166.5000 0.0000000E+00 + 86.50000 -166.5000 0.0000000E+00 + 87.50000 -166.5000 0.0000000E+00 + 88.50000 -166.5000 0.0000000E+00 + 89.50000 -166.5000 0.0000000E+00 + -89.50000 -165.5000 0.0000000E+00 + -88.50000 -165.5000 0.0000000E+00 + -87.50000 -165.5000 0.0000000E+00 + -86.50000 -165.5000 0.0000000E+00 + -85.50000 -165.5000 0.0000000E+00 + -84.50000 -165.5000 0.0000000E+00 + -83.50000 -165.5000 0.0000000E+00 + -82.50000 -165.5000 0.0000000E+00 + -81.50000 -165.5000 0.0000000E+00 + -80.50000 -165.5000 0.0000000E+00 + -79.50000 -165.5000 0.0000000E+00 + -78.50000 -165.5000 0.0000000E+00 + -77.50000 -165.5000 0.0000000E+00 + -76.50000 -165.5000 0.0000000E+00 + -75.50000 -165.5000 0.0000000E+00 + -74.50000 -165.5000 0.0000000E+00 + -73.50000 -165.5000 0.0000000E+00 + -72.50000 -165.5000 0.0000000E+00 + -71.50000 -165.5000 0.0000000E+00 + -70.50000 -165.5000 0.0000000E+00 + -69.50000 -165.5000 0.0000000E+00 + -68.50000 -165.5000 0.0000000E+00 + -67.50000 -165.5000 0.0000000E+00 + -66.50000 -165.5000 0.0000000E+00 + -65.50000 -165.5000 0.0000000E+00 + -64.50000 -165.5000 0.0000000E+00 + -63.50000 -165.5000 0.0000000E+00 + -62.50000 -165.5000 0.0000000E+00 + -61.50000 -165.5000 0.0000000E+00 + -60.50000 -165.5000 0.0000000E+00 + -59.50000 -165.5000 0.0000000E+00 + -58.50000 -165.5000 0.0000000E+00 + -57.50000 -165.5000 0.0000000E+00 + -56.50000 -165.5000 0.0000000E+00 + -55.50000 -165.5000 0.0000000E+00 + -54.50000 -165.5000 0.0000000E+00 + -53.50000 -165.5000 0.0000000E+00 + -52.50000 -165.5000 0.0000000E+00 + -51.50000 -165.5000 0.0000000E+00 + -50.50000 -165.5000 0.0000000E+00 + -49.50000 -165.5000 0.0000000E+00 + -48.50000 -165.5000 0.0000000E+00 + -47.50000 -165.5000 0.0000000E+00 + -46.50000 -165.5000 0.0000000E+00 + -45.50000 -165.5000 0.0000000E+00 + -44.50000 -165.5000 0.0000000E+00 + -43.50000 -165.5000 0.0000000E+00 + -42.50000 -165.5000 0.0000000E+00 + -41.50000 -165.5000 0.0000000E+00 + -40.50000 -165.5000 0.0000000E+00 + -39.50000 -165.5000 0.0000000E+00 + -38.50000 -165.5000 0.0000000E+00 + -37.50000 -165.5000 0.0000000E+00 + -36.50000 -165.5000 0.0000000E+00 + -35.50000 -165.5000 0.0000000E+00 + -34.50000 -165.5000 0.0000000E+00 + -33.50000 -165.5000 0.0000000E+00 + -32.50000 -165.5000 0.0000000E+00 + -31.50000 -165.5000 0.0000000E+00 + -30.50000 -165.5000 0.0000000E+00 + -29.50000 -165.5000 0.0000000E+00 + -28.50000 -165.5000 0.0000000E+00 + -27.50000 -165.5000 0.0000000E+00 + -26.50000 -165.5000 0.0000000E+00 + -25.50000 -165.5000 0.0000000E+00 + -24.50000 -165.5000 0.0000000E+00 + -23.50000 -165.5000 0.0000000E+00 + -22.50000 -165.5000 0.0000000E+00 + -21.50000 -165.5000 0.0000000E+00 + -20.50000 -165.5000 0.0000000E+00 + -19.50000 -165.5000 0.0000000E+00 + -18.50000 -165.5000 0.0000000E+00 + -17.50000 -165.5000 0.0000000E+00 + -16.50000 -165.5000 0.0000000E+00 + -15.50000 -165.5000 0.0000000E+00 + -14.50000 -165.5000 0.0000000E+00 + -13.50000 -165.5000 0.0000000E+00 + -12.50000 -165.5000 0.0000000E+00 + -11.50000 -165.5000 0.0000000E+00 + -10.50000 -165.5000 0.0000000E+00 + -9.500000 -165.5000 0.0000000E+00 + -8.500000 -165.5000 0.0000000E+00 + -7.500000 -165.5000 0.0000000E+00 + -6.500000 -165.5000 0.0000000E+00 + -5.500000 -165.5000 0.0000000E+00 + -4.500000 -165.5000 0.0000000E+00 + -3.500000 -165.5000 0.0000000E+00 + -2.500000 -165.5000 0.0000000E+00 + -1.500000 -165.5000 0.0000000E+00 + -0.5000000 -165.5000 0.0000000E+00 + 0.5000000 -165.5000 0.0000000E+00 + 1.500000 -165.5000 0.0000000E+00 + 2.500000 -165.5000 0.0000000E+00 + 3.500000 -165.5000 0.0000000E+00 + 4.500000 -165.5000 0.0000000E+00 + 5.500000 -165.5000 0.0000000E+00 + 6.500000 -165.5000 0.0000000E+00 + 7.500000 -165.5000 0.0000000E+00 + 8.500000 -165.5000 0.0000000E+00 + 9.500000 -165.5000 0.0000000E+00 + 10.50000 -165.5000 0.0000000E+00 + 11.50000 -165.5000 0.0000000E+00 + 12.50000 -165.5000 0.0000000E+00 + 13.50000 -165.5000 0.0000000E+00 + 14.50000 -165.5000 0.0000000E+00 + 15.50000 -165.5000 0.0000000E+00 + 16.50000 -165.5000 0.0000000E+00 + 17.50000 -165.5000 0.0000000E+00 + 18.50000 -165.5000 0.0000000E+00 + 19.50000 -165.5000 0.0000000E+00 + 20.50000 -165.5000 0.0000000E+00 + 21.50000 -165.5000 0.0000000E+00 + 22.50000 -165.5000 0.0000000E+00 + 23.50000 -165.5000 0.0000000E+00 + 24.50000 -165.5000 0.0000000E+00 + 25.50000 -165.5000 0.0000000E+00 + 26.50000 -165.5000 0.0000000E+00 + 27.50000 -165.5000 0.0000000E+00 + 28.50000 -165.5000 0.0000000E+00 + 29.50000 -165.5000 0.0000000E+00 + 30.50000 -165.5000 0.0000000E+00 + 31.50000 -165.5000 0.0000000E+00 + 32.50000 -165.5000 0.0000000E+00 + 33.50000 -165.5000 0.0000000E+00 + 34.50000 -165.5000 0.0000000E+00 + 35.50000 -165.5000 0.0000000E+00 + 36.50000 -165.5000 0.0000000E+00 + 37.50000 -165.5000 0.0000000E+00 + 38.50000 -165.5000 0.0000000E+00 + 39.50000 -165.5000 0.0000000E+00 + 40.50000 -165.5000 0.0000000E+00 + 41.50000 -165.5000 0.0000000E+00 + 42.50000 -165.5000 0.0000000E+00 + 43.50000 -165.5000 0.0000000E+00 + 44.50000 -165.5000 0.0000000E+00 + 45.50000 -165.5000 0.0000000E+00 + 46.50000 -165.5000 0.0000000E+00 + 47.50000 -165.5000 0.0000000E+00 + 48.50000 -165.5000 0.0000000E+00 + 49.50000 -165.5000 0.0000000E+00 + 50.50000 -165.5000 0.0000000E+00 + 51.50000 -165.5000 0.0000000E+00 + 52.50000 -165.5000 0.0000000E+00 + 53.50000 -165.5000 0.0000000E+00 + 54.50000 -165.5000 0.0000000E+00 + 55.50000 -165.5000 0.0000000E+00 + 56.50000 -165.5000 0.0000000E+00 + 57.50000 -165.5000 0.0000000E+00 + 58.50000 -165.5000 0.0000000E+00 + 59.50000 -165.5000 0.0000000E+00 + 60.50000 -165.5000 0.0000000E+00 + 61.50000 -165.5000 0.0000000E+00 + 62.50000 -165.5000 0.0000000E+00 + 63.50000 -165.5000 0.0000000E+00 + 64.50000 -165.5000 0.0000000E+00 + 65.50000 -165.5000 0.0000000E+00 + 66.50000 -165.5000 0.0000000E+00 + 67.50000 -165.5000 0.0000000E+00 + 68.50000 -165.5000 0.0000000E+00 + 69.50000 -165.5000 0.0000000E+00 + 70.50000 -165.5000 0.0000000E+00 + 71.50000 -165.5000 0.0000000E+00 + 72.50000 -165.5000 0.0000000E+00 + 73.50000 -165.5000 0.0000000E+00 + 74.50000 -165.5000 0.0000000E+00 + 75.50000 -165.5000 0.0000000E+00 + 76.50000 -165.5000 0.0000000E+00 + 77.50000 -165.5000 0.0000000E+00 + 78.50000 -165.5000 0.0000000E+00 + 79.50000 -165.5000 0.0000000E+00 + 80.50000 -165.5000 0.0000000E+00 + 81.50000 -165.5000 0.0000000E+00 + 82.50000 -165.5000 0.0000000E+00 + 83.50000 -165.5000 0.0000000E+00 + 84.50000 -165.5000 0.0000000E+00 + 85.50000 -165.5000 0.0000000E+00 + 86.50000 -165.5000 0.0000000E+00 + 87.50000 -165.5000 0.0000000E+00 + 88.50000 -165.5000 0.0000000E+00 + 89.50000 -165.5000 0.0000000E+00 + -89.50000 -164.5000 0.0000000E+00 + -88.50000 -164.5000 0.0000000E+00 + -87.50000 -164.5000 0.0000000E+00 + -86.50000 -164.5000 0.0000000E+00 + -85.50000 -164.5000 0.0000000E+00 + -84.50000 -164.5000 0.0000000E+00 + -83.50000 -164.5000 0.0000000E+00 + -82.50000 -164.5000 0.0000000E+00 + -81.50000 -164.5000 0.0000000E+00 + -80.50000 -164.5000 0.0000000E+00 + -79.50000 -164.5000 0.0000000E+00 + -78.50000 -164.5000 0.0000000E+00 + -77.50000 -164.5000 0.0000000E+00 + -76.50000 -164.5000 0.0000000E+00 + -75.50000 -164.5000 0.0000000E+00 + -74.50000 -164.5000 0.0000000E+00 + -73.50000 -164.5000 0.0000000E+00 + -72.50000 -164.5000 0.0000000E+00 + -71.50000 -164.5000 0.0000000E+00 + -70.50000 -164.5000 0.0000000E+00 + -69.50000 -164.5000 0.0000000E+00 + -68.50000 -164.5000 0.0000000E+00 + -67.50000 -164.5000 0.0000000E+00 + -66.50000 -164.5000 0.0000000E+00 + -65.50000 -164.5000 0.0000000E+00 + -64.50000 -164.5000 0.0000000E+00 + -63.50000 -164.5000 0.0000000E+00 + -62.50000 -164.5000 0.0000000E+00 + -61.50000 -164.5000 0.0000000E+00 + -60.50000 -164.5000 0.0000000E+00 + -59.50000 -164.5000 0.0000000E+00 + -58.50000 -164.5000 0.0000000E+00 + -57.50000 -164.5000 0.0000000E+00 + -56.50000 -164.5000 0.0000000E+00 + -55.50000 -164.5000 0.0000000E+00 + -54.50000 -164.5000 0.0000000E+00 + -53.50000 -164.5000 0.0000000E+00 + -52.50000 -164.5000 0.0000000E+00 + -51.50000 -164.5000 0.0000000E+00 + -50.50000 -164.5000 0.0000000E+00 + -49.50000 -164.5000 0.0000000E+00 + -48.50000 -164.5000 0.0000000E+00 + -47.50000 -164.5000 0.0000000E+00 + -46.50000 -164.5000 0.0000000E+00 + -45.50000 -164.5000 0.0000000E+00 + -44.50000 -164.5000 0.0000000E+00 + -43.50000 -164.5000 0.0000000E+00 + -42.50000 -164.5000 0.0000000E+00 + -41.50000 -164.5000 0.0000000E+00 + -40.50000 -164.5000 0.0000000E+00 + -39.50000 -164.5000 0.0000000E+00 + -38.50000 -164.5000 0.0000000E+00 + -37.50000 -164.5000 0.0000000E+00 + -36.50000 -164.5000 0.0000000E+00 + -35.50000 -164.5000 0.0000000E+00 + -34.50000 -164.5000 0.0000000E+00 + -33.50000 -164.5000 0.0000000E+00 + -32.50000 -164.5000 0.0000000E+00 + -31.50000 -164.5000 0.0000000E+00 + -30.50000 -164.5000 0.0000000E+00 + -29.50000 -164.5000 0.0000000E+00 + -28.50000 -164.5000 0.0000000E+00 + -27.50000 -164.5000 0.0000000E+00 + -26.50000 -164.5000 0.0000000E+00 + -25.50000 -164.5000 0.0000000E+00 + -24.50000 -164.5000 0.0000000E+00 + -23.50000 -164.5000 0.0000000E+00 + -22.50000 -164.5000 0.0000000E+00 + -21.50000 -164.5000 0.0000000E+00 + -20.50000 -164.5000 0.0000000E+00 + -19.50000 -164.5000 0.0000000E+00 + -18.50000 -164.5000 0.0000000E+00 + -17.50000 -164.5000 0.0000000E+00 + -16.50000 -164.5000 0.0000000E+00 + -15.50000 -164.5000 0.0000000E+00 + -14.50000 -164.5000 0.0000000E+00 + -13.50000 -164.5000 0.0000000E+00 + -12.50000 -164.5000 0.0000000E+00 + -11.50000 -164.5000 0.0000000E+00 + -10.50000 -164.5000 0.0000000E+00 + -9.500000 -164.5000 0.0000000E+00 + -8.500000 -164.5000 0.0000000E+00 + -7.500000 -164.5000 0.0000000E+00 + -6.500000 -164.5000 0.0000000E+00 + -5.500000 -164.5000 0.0000000E+00 + -4.500000 -164.5000 0.0000000E+00 + -3.500000 -164.5000 0.0000000E+00 + -2.500000 -164.5000 0.0000000E+00 + -1.500000 -164.5000 0.0000000E+00 + -0.5000000 -164.5000 0.0000000E+00 + 0.5000000 -164.5000 0.0000000E+00 + 1.500000 -164.5000 0.0000000E+00 + 2.500000 -164.5000 0.0000000E+00 + 3.500000 -164.5000 0.0000000E+00 + 4.500000 -164.5000 0.0000000E+00 + 5.500000 -164.5000 0.0000000E+00 + 6.500000 -164.5000 0.0000000E+00 + 7.500000 -164.5000 0.0000000E+00 + 8.500000 -164.5000 0.0000000E+00 + 9.500000 -164.5000 0.0000000E+00 + 10.50000 -164.5000 0.0000000E+00 + 11.50000 -164.5000 0.0000000E+00 + 12.50000 -164.5000 0.0000000E+00 + 13.50000 -164.5000 0.0000000E+00 + 14.50000 -164.5000 0.0000000E+00 + 15.50000 -164.5000 0.0000000E+00 + 16.50000 -164.5000 0.0000000E+00 + 17.50000 -164.5000 0.0000000E+00 + 18.50000 -164.5000 0.0000000E+00 + 19.50000 -164.5000 0.0000000E+00 + 20.50000 -164.5000 0.0000000E+00 + 21.50000 -164.5000 0.0000000E+00 + 22.50000 -164.5000 0.0000000E+00 + 23.50000 -164.5000 0.0000000E+00 + 24.50000 -164.5000 0.0000000E+00 + 25.50000 -164.5000 0.0000000E+00 + 26.50000 -164.5000 0.0000000E+00 + 27.50000 -164.5000 0.0000000E+00 + 28.50000 -164.5000 0.0000000E+00 + 29.50000 -164.5000 0.0000000E+00 + 30.50000 -164.5000 0.0000000E+00 + 31.50000 -164.5000 0.0000000E+00 + 32.50000 -164.5000 0.0000000E+00 + 33.50000 -164.5000 0.0000000E+00 + 34.50000 -164.5000 0.0000000E+00 + 35.50000 -164.5000 0.0000000E+00 + 36.50000 -164.5000 0.0000000E+00 + 37.50000 -164.5000 0.0000000E+00 + 38.50000 -164.5000 0.0000000E+00 + 39.50000 -164.5000 0.0000000E+00 + 40.50000 -164.5000 0.0000000E+00 + 41.50000 -164.5000 0.0000000E+00 + 42.50000 -164.5000 0.0000000E+00 + 43.50000 -164.5000 0.0000000E+00 + 44.50000 -164.5000 0.0000000E+00 + 45.50000 -164.5000 0.0000000E+00 + 46.50000 -164.5000 0.0000000E+00 + 47.50000 -164.5000 0.0000000E+00 + 48.50000 -164.5000 0.0000000E+00 + 49.50000 -164.5000 0.0000000E+00 + 50.50000 -164.5000 0.0000000E+00 + 51.50000 -164.5000 0.0000000E+00 + 52.50000 -164.5000 0.0000000E+00 + 53.50000 -164.5000 0.0000000E+00 + 54.50000 -164.5000 0.0000000E+00 + 55.50000 -164.5000 0.0000000E+00 + 56.50000 -164.5000 0.0000000E+00 + 57.50000 -164.5000 0.0000000E+00 + 58.50000 -164.5000 0.0000000E+00 + 59.50000 -164.5000 0.0000000E+00 + 60.50000 -164.5000 0.0000000E+00 + 61.50000 -164.5000 0.0000000E+00 + 62.50000 -164.5000 0.0000000E+00 + 63.50000 -164.5000 0.0000000E+00 + 64.50000 -164.5000 0.0000000E+00 + 65.50000 -164.5000 0.0000000E+00 + 66.50000 -164.5000 0.0000000E+00 + 67.50000 -164.5000 0.0000000E+00 + 68.50000 -164.5000 0.0000000E+00 + 69.50000 -164.5000 0.0000000E+00 + 70.50000 -164.5000 0.0000000E+00 + 71.50000 -164.5000 0.0000000E+00 + 72.50000 -164.5000 0.0000000E+00 + 73.50000 -164.5000 0.0000000E+00 + 74.50000 -164.5000 0.0000000E+00 + 75.50000 -164.5000 0.0000000E+00 + 76.50000 -164.5000 0.0000000E+00 + 77.50000 -164.5000 0.0000000E+00 + 78.50000 -164.5000 0.0000000E+00 + 79.50000 -164.5000 0.0000000E+00 + 80.50000 -164.5000 0.0000000E+00 + 81.50000 -164.5000 0.0000000E+00 + 82.50000 -164.5000 0.0000000E+00 + 83.50000 -164.5000 0.0000000E+00 + 84.50000 -164.5000 0.0000000E+00 + 85.50000 -164.5000 0.0000000E+00 + 86.50000 -164.5000 0.0000000E+00 + 87.50000 -164.5000 0.0000000E+00 + 88.50000 -164.5000 0.0000000E+00 + 89.50000 -164.5000 0.0000000E+00 + -89.50000 -163.5000 0.0000000E+00 + -88.50000 -163.5000 0.0000000E+00 + -87.50000 -163.5000 0.0000000E+00 + -86.50000 -163.5000 0.0000000E+00 + -85.50000 -163.5000 0.0000000E+00 + -84.50000 -163.5000 0.0000000E+00 + -83.50000 -163.5000 0.0000000E+00 + -82.50000 -163.5000 0.0000000E+00 + -81.50000 -163.5000 0.0000000E+00 + -80.50000 -163.5000 0.0000000E+00 + -79.50000 -163.5000 0.0000000E+00 + -78.50000 -163.5000 0.0000000E+00 + -77.50000 -163.5000 0.0000000E+00 + -76.50000 -163.5000 0.0000000E+00 + -75.50000 -163.5000 0.0000000E+00 + -74.50000 -163.5000 0.0000000E+00 + -73.50000 -163.5000 0.0000000E+00 + -72.50000 -163.5000 0.0000000E+00 + -71.50000 -163.5000 0.0000000E+00 + -70.50000 -163.5000 0.0000000E+00 + -69.50000 -163.5000 0.0000000E+00 + -68.50000 -163.5000 0.0000000E+00 + -67.50000 -163.5000 0.0000000E+00 + -66.50000 -163.5000 0.0000000E+00 + -65.50000 -163.5000 0.0000000E+00 + -64.50000 -163.5000 0.0000000E+00 + -63.50000 -163.5000 0.0000000E+00 + -62.50000 -163.5000 0.0000000E+00 + -61.50000 -163.5000 0.0000000E+00 + -60.50000 -163.5000 0.0000000E+00 + -59.50000 -163.5000 0.0000000E+00 + -58.50000 -163.5000 0.0000000E+00 + -57.50000 -163.5000 0.0000000E+00 + -56.50000 -163.5000 0.0000000E+00 + -55.50000 -163.5000 0.0000000E+00 + -54.50000 -163.5000 0.0000000E+00 + -53.50000 -163.5000 0.0000000E+00 + -52.50000 -163.5000 0.0000000E+00 + -51.50000 -163.5000 0.0000000E+00 + -50.50000 -163.5000 0.0000000E+00 + -49.50000 -163.5000 0.0000000E+00 + -48.50000 -163.5000 0.0000000E+00 + -47.50000 -163.5000 0.0000000E+00 + -46.50000 -163.5000 0.0000000E+00 + -45.50000 -163.5000 0.0000000E+00 + -44.50000 -163.5000 0.0000000E+00 + -43.50000 -163.5000 0.0000000E+00 + -42.50000 -163.5000 0.0000000E+00 + -41.50000 -163.5000 0.0000000E+00 + -40.50000 -163.5000 0.0000000E+00 + -39.50000 -163.5000 0.0000000E+00 + -38.50000 -163.5000 0.0000000E+00 + -37.50000 -163.5000 0.0000000E+00 + -36.50000 -163.5000 0.0000000E+00 + -35.50000 -163.5000 0.0000000E+00 + -34.50000 -163.5000 0.0000000E+00 + -33.50000 -163.5000 0.0000000E+00 + -32.50000 -163.5000 0.0000000E+00 + -31.50000 -163.5000 0.0000000E+00 + -30.50000 -163.5000 0.0000000E+00 + -29.50000 -163.5000 0.0000000E+00 + -28.50000 -163.5000 0.0000000E+00 + -27.50000 -163.5000 0.0000000E+00 + -26.50000 -163.5000 0.0000000E+00 + -25.50000 -163.5000 0.0000000E+00 + -24.50000 -163.5000 0.0000000E+00 + -23.50000 -163.5000 0.0000000E+00 + -22.50000 -163.5000 0.0000000E+00 + -21.50000 -163.5000 0.0000000E+00 + -20.50000 -163.5000 0.0000000E+00 + -19.50000 -163.5000 0.0000000E+00 + -18.50000 -163.5000 0.0000000E+00 + -17.50000 -163.5000 0.0000000E+00 + -16.50000 -163.5000 0.0000000E+00 + -15.50000 -163.5000 0.0000000E+00 + -14.50000 -163.5000 0.0000000E+00 + -13.50000 -163.5000 0.0000000E+00 + -12.50000 -163.5000 0.0000000E+00 + -11.50000 -163.5000 0.0000000E+00 + -10.50000 -163.5000 0.0000000E+00 + -9.500000 -163.5000 0.0000000E+00 + -8.500000 -163.5000 0.0000000E+00 + -7.500000 -163.5000 0.0000000E+00 + -6.500000 -163.5000 0.0000000E+00 + -5.500000 -163.5000 0.0000000E+00 + -4.500000 -163.5000 0.0000000E+00 + -3.500000 -163.5000 0.0000000E+00 + -2.500000 -163.5000 0.0000000E+00 + -1.500000 -163.5000 0.0000000E+00 + -0.5000000 -163.5000 0.0000000E+00 + 0.5000000 -163.5000 0.0000000E+00 + 1.500000 -163.5000 0.0000000E+00 + 2.500000 -163.5000 0.0000000E+00 + 3.500000 -163.5000 0.0000000E+00 + 4.500000 -163.5000 0.0000000E+00 + 5.500000 -163.5000 0.0000000E+00 + 6.500000 -163.5000 0.0000000E+00 + 7.500000 -163.5000 0.0000000E+00 + 8.500000 -163.5000 0.0000000E+00 + 9.500000 -163.5000 0.0000000E+00 + 10.50000 -163.5000 0.0000000E+00 + 11.50000 -163.5000 0.0000000E+00 + 12.50000 -163.5000 0.0000000E+00 + 13.50000 -163.5000 0.0000000E+00 + 14.50000 -163.5000 0.0000000E+00 + 15.50000 -163.5000 0.0000000E+00 + 16.50000 -163.5000 0.0000000E+00 + 17.50000 -163.5000 0.0000000E+00 + 18.50000 -163.5000 0.0000000E+00 + 19.50000 -163.5000 0.0000000E+00 + 20.50000 -163.5000 0.0000000E+00 + 21.50000 -163.5000 0.0000000E+00 + 22.50000 -163.5000 0.0000000E+00 + 23.50000 -163.5000 0.0000000E+00 + 24.50000 -163.5000 0.0000000E+00 + 25.50000 -163.5000 0.0000000E+00 + 26.50000 -163.5000 0.0000000E+00 + 27.50000 -163.5000 0.0000000E+00 + 28.50000 -163.5000 0.0000000E+00 + 29.50000 -163.5000 0.0000000E+00 + 30.50000 -163.5000 0.0000000E+00 + 31.50000 -163.5000 0.0000000E+00 + 32.50000 -163.5000 0.0000000E+00 + 33.50000 -163.5000 0.0000000E+00 + 34.50000 -163.5000 0.0000000E+00 + 35.50000 -163.5000 0.0000000E+00 + 36.50000 -163.5000 0.0000000E+00 + 37.50000 -163.5000 0.0000000E+00 + 38.50000 -163.5000 0.0000000E+00 + 39.50000 -163.5000 0.0000000E+00 + 40.50000 -163.5000 0.0000000E+00 + 41.50000 -163.5000 0.0000000E+00 + 42.50000 -163.5000 0.0000000E+00 + 43.50000 -163.5000 0.0000000E+00 + 44.50000 -163.5000 0.0000000E+00 + 45.50000 -163.5000 0.0000000E+00 + 46.50000 -163.5000 0.0000000E+00 + 47.50000 -163.5000 0.0000000E+00 + 48.50000 -163.5000 0.0000000E+00 + 49.50000 -163.5000 0.0000000E+00 + 50.50000 -163.5000 0.0000000E+00 + 51.50000 -163.5000 0.0000000E+00 + 52.50000 -163.5000 0.0000000E+00 + 53.50000 -163.5000 0.0000000E+00 + 54.50000 -163.5000 0.0000000E+00 + 55.50000 -163.5000 0.0000000E+00 + 56.50000 -163.5000 0.0000000E+00 + 57.50000 -163.5000 0.0000000E+00 + 58.50000 -163.5000 0.0000000E+00 + 59.50000 -163.5000 0.0000000E+00 + 60.50000 -163.5000 0.0000000E+00 + 61.50000 -163.5000 0.0000000E+00 + 62.50000 -163.5000 0.0000000E+00 + 63.50000 -163.5000 0.0000000E+00 + 64.50000 -163.5000 0.0000000E+00 + 65.50000 -163.5000 0.0000000E+00 + 66.50000 -163.5000 0.0000000E+00 + 67.50000 -163.5000 0.0000000E+00 + 68.50000 -163.5000 0.0000000E+00 + 69.50000 -163.5000 0.0000000E+00 + 70.50000 -163.5000 0.0000000E+00 + 71.50000 -163.5000 0.0000000E+00 + 72.50000 -163.5000 0.0000000E+00 + 73.50000 -163.5000 0.0000000E+00 + 74.50000 -163.5000 0.0000000E+00 + 75.50000 -163.5000 0.0000000E+00 + 76.50000 -163.5000 0.0000000E+00 + 77.50000 -163.5000 0.0000000E+00 + 78.50000 -163.5000 0.0000000E+00 + 79.50000 -163.5000 0.0000000E+00 + 80.50000 -163.5000 0.0000000E+00 + 81.50000 -163.5000 0.0000000E+00 + 82.50000 -163.5000 0.0000000E+00 + 83.50000 -163.5000 0.0000000E+00 + 84.50000 -163.5000 0.0000000E+00 + 85.50000 -163.5000 0.0000000E+00 + 86.50000 -163.5000 0.0000000E+00 + 87.50000 -163.5000 0.0000000E+00 + 88.50000 -163.5000 0.0000000E+00 + 89.50000 -163.5000 0.0000000E+00 + -89.50000 -162.5000 0.0000000E+00 + -88.50000 -162.5000 0.0000000E+00 + -87.50000 -162.5000 0.0000000E+00 + -86.50000 -162.5000 0.0000000E+00 + -85.50000 -162.5000 0.0000000E+00 + -84.50000 -162.5000 0.0000000E+00 + -83.50000 -162.5000 0.0000000E+00 + -82.50000 -162.5000 0.0000000E+00 + -81.50000 -162.5000 0.0000000E+00 + -80.50000 -162.5000 0.0000000E+00 + -79.50000 -162.5000 0.0000000E+00 + -78.50000 -162.5000 0.0000000E+00 + -77.50000 -162.5000 0.0000000E+00 + -76.50000 -162.5000 0.0000000E+00 + -75.50000 -162.5000 0.0000000E+00 + -74.50000 -162.5000 0.0000000E+00 + -73.50000 -162.5000 0.0000000E+00 + -72.50000 -162.5000 0.0000000E+00 + -71.50000 -162.5000 0.0000000E+00 + -70.50000 -162.5000 0.0000000E+00 + -69.50000 -162.5000 0.0000000E+00 + -68.50000 -162.5000 0.0000000E+00 + -67.50000 -162.5000 0.0000000E+00 + -66.50000 -162.5000 0.0000000E+00 + -65.50000 -162.5000 0.0000000E+00 + -64.50000 -162.5000 0.0000000E+00 + -63.50000 -162.5000 0.0000000E+00 + -62.50000 -162.5000 0.0000000E+00 + -61.50000 -162.5000 0.0000000E+00 + -60.50000 -162.5000 0.0000000E+00 + -59.50000 -162.5000 0.0000000E+00 + -58.50000 -162.5000 0.0000000E+00 + -57.50000 -162.5000 0.0000000E+00 + -56.50000 -162.5000 0.0000000E+00 + -55.50000 -162.5000 0.0000000E+00 + -54.50000 -162.5000 0.0000000E+00 + -53.50000 -162.5000 0.0000000E+00 + -52.50000 -162.5000 0.0000000E+00 + -51.50000 -162.5000 0.0000000E+00 + -50.50000 -162.5000 0.0000000E+00 + -49.50000 -162.5000 0.0000000E+00 + -48.50000 -162.5000 0.0000000E+00 + -47.50000 -162.5000 0.0000000E+00 + -46.50000 -162.5000 0.0000000E+00 + -45.50000 -162.5000 0.0000000E+00 + -44.50000 -162.5000 0.0000000E+00 + -43.50000 -162.5000 0.0000000E+00 + -42.50000 -162.5000 0.0000000E+00 + -41.50000 -162.5000 0.0000000E+00 + -40.50000 -162.5000 0.0000000E+00 + -39.50000 -162.5000 0.0000000E+00 + -38.50000 -162.5000 0.0000000E+00 + -37.50000 -162.5000 0.0000000E+00 + -36.50000 -162.5000 0.0000000E+00 + -35.50000 -162.5000 0.0000000E+00 + -34.50000 -162.5000 0.0000000E+00 + -33.50000 -162.5000 0.0000000E+00 + -32.50000 -162.5000 0.0000000E+00 + -31.50000 -162.5000 0.0000000E+00 + -30.50000 -162.5000 0.0000000E+00 + -29.50000 -162.5000 0.0000000E+00 + -28.50000 -162.5000 0.0000000E+00 + -27.50000 -162.5000 0.0000000E+00 + -26.50000 -162.5000 0.0000000E+00 + -25.50000 -162.5000 0.0000000E+00 + -24.50000 -162.5000 0.0000000E+00 + -23.50000 -162.5000 0.0000000E+00 + -22.50000 -162.5000 0.0000000E+00 + -21.50000 -162.5000 0.0000000E+00 + -20.50000 -162.5000 0.0000000E+00 + -19.50000 -162.5000 0.0000000E+00 + -18.50000 -162.5000 0.0000000E+00 + -17.50000 -162.5000 0.0000000E+00 + -16.50000 -162.5000 0.0000000E+00 + -15.50000 -162.5000 0.0000000E+00 + -14.50000 -162.5000 0.0000000E+00 + -13.50000 -162.5000 0.0000000E+00 + -12.50000 -162.5000 0.0000000E+00 + -11.50000 -162.5000 0.0000000E+00 + -10.50000 -162.5000 0.0000000E+00 + -9.500000 -162.5000 0.0000000E+00 + -8.500000 -162.5000 0.0000000E+00 + -7.500000 -162.5000 0.0000000E+00 + -6.500000 -162.5000 0.0000000E+00 + -5.500000 -162.5000 0.0000000E+00 + -4.500000 -162.5000 0.0000000E+00 + -3.500000 -162.5000 0.0000000E+00 + -2.500000 -162.5000 0.0000000E+00 + -1.500000 -162.5000 0.0000000E+00 + -0.5000000 -162.5000 0.0000000E+00 + 0.5000000 -162.5000 0.0000000E+00 + 1.500000 -162.5000 0.0000000E+00 + 2.500000 -162.5000 0.0000000E+00 + 3.500000 -162.5000 0.0000000E+00 + 4.500000 -162.5000 0.0000000E+00 + 5.500000 -162.5000 0.0000000E+00 + 6.500000 -162.5000 0.0000000E+00 + 7.500000 -162.5000 0.0000000E+00 + 8.500000 -162.5000 0.0000000E+00 + 9.500000 -162.5000 0.0000000E+00 + 10.50000 -162.5000 0.0000000E+00 + 11.50000 -162.5000 0.0000000E+00 + 12.50000 -162.5000 0.0000000E+00 + 13.50000 -162.5000 0.0000000E+00 + 14.50000 -162.5000 0.0000000E+00 + 15.50000 -162.5000 0.0000000E+00 + 16.50000 -162.5000 0.0000000E+00 + 17.50000 -162.5000 0.0000000E+00 + 18.50000 -162.5000 0.0000000E+00 + 19.50000 -162.5000 0.0000000E+00 + 20.50000 -162.5000 0.0000000E+00 + 21.50000 -162.5000 0.0000000E+00 + 22.50000 -162.5000 0.0000000E+00 + 23.50000 -162.5000 0.0000000E+00 + 24.50000 -162.5000 0.0000000E+00 + 25.50000 -162.5000 0.0000000E+00 + 26.50000 -162.5000 0.0000000E+00 + 27.50000 -162.5000 0.0000000E+00 + 28.50000 -162.5000 0.0000000E+00 + 29.50000 -162.5000 0.0000000E+00 + 30.50000 -162.5000 0.0000000E+00 + 31.50000 -162.5000 0.0000000E+00 + 32.50000 -162.5000 0.0000000E+00 + 33.50000 -162.5000 0.0000000E+00 + 34.50000 -162.5000 0.0000000E+00 + 35.50000 -162.5000 0.0000000E+00 + 36.50000 -162.5000 0.0000000E+00 + 37.50000 -162.5000 0.0000000E+00 + 38.50000 -162.5000 0.0000000E+00 + 39.50000 -162.5000 0.0000000E+00 + 40.50000 -162.5000 0.0000000E+00 + 41.50000 -162.5000 0.0000000E+00 + 42.50000 -162.5000 0.0000000E+00 + 43.50000 -162.5000 0.0000000E+00 + 44.50000 -162.5000 0.0000000E+00 + 45.50000 -162.5000 0.0000000E+00 + 46.50000 -162.5000 0.0000000E+00 + 47.50000 -162.5000 0.0000000E+00 + 48.50000 -162.5000 0.0000000E+00 + 49.50000 -162.5000 0.0000000E+00 + 50.50000 -162.5000 0.0000000E+00 + 51.50000 -162.5000 0.0000000E+00 + 52.50000 -162.5000 0.0000000E+00 + 53.50000 -162.5000 0.0000000E+00 + 54.50000 -162.5000 0.0000000E+00 + 55.50000 -162.5000 0.0000000E+00 + 56.50000 -162.5000 0.0000000E+00 + 57.50000 -162.5000 0.0000000E+00 + 58.50000 -162.5000 0.0000000E+00 + 59.50000 -162.5000 0.0000000E+00 + 60.50000 -162.5000 0.0000000E+00 + 61.50000 -162.5000 0.0000000E+00 + 62.50000 -162.5000 0.0000000E+00 + 63.50000 -162.5000 0.0000000E+00 + 64.50000 -162.5000 0.0000000E+00 + 65.50000 -162.5000 0.0000000E+00 + 66.50000 -162.5000 0.0000000E+00 + 67.50000 -162.5000 0.0000000E+00 + 68.50000 -162.5000 0.0000000E+00 + 69.50000 -162.5000 0.0000000E+00 + 70.50000 -162.5000 0.0000000E+00 + 71.50000 -162.5000 0.0000000E+00 + 72.50000 -162.5000 0.0000000E+00 + 73.50000 -162.5000 0.0000000E+00 + 74.50000 -162.5000 0.0000000E+00 + 75.50000 -162.5000 0.0000000E+00 + 76.50000 -162.5000 0.0000000E+00 + 77.50000 -162.5000 0.0000000E+00 + 78.50000 -162.5000 0.0000000E+00 + 79.50000 -162.5000 0.0000000E+00 + 80.50000 -162.5000 0.0000000E+00 + 81.50000 -162.5000 0.0000000E+00 + 82.50000 -162.5000 0.0000000E+00 + 83.50000 -162.5000 0.0000000E+00 + 84.50000 -162.5000 0.0000000E+00 + 85.50000 -162.5000 0.0000000E+00 + 86.50000 -162.5000 0.0000000E+00 + 87.50000 -162.5000 0.0000000E+00 + 88.50000 -162.5000 0.0000000E+00 + 89.50000 -162.5000 0.0000000E+00 + -89.50000 -161.5000 0.0000000E+00 + -88.50000 -161.5000 0.0000000E+00 + -87.50000 -161.5000 0.0000000E+00 + -86.50000 -161.5000 0.0000000E+00 + -85.50000 -161.5000 0.0000000E+00 + -84.50000 -161.5000 0.0000000E+00 + -83.50000 -161.5000 0.0000000E+00 + -82.50000 -161.5000 0.0000000E+00 + -81.50000 -161.5000 0.0000000E+00 + -80.50000 -161.5000 0.0000000E+00 + -79.50000 -161.5000 0.0000000E+00 + -78.50000 -161.5000 0.0000000E+00 + -77.50000 -161.5000 0.0000000E+00 + -76.50000 -161.5000 0.0000000E+00 + -75.50000 -161.5000 0.0000000E+00 + -74.50000 -161.5000 0.0000000E+00 + -73.50000 -161.5000 0.0000000E+00 + -72.50000 -161.5000 0.0000000E+00 + -71.50000 -161.5000 0.0000000E+00 + -70.50000 -161.5000 0.0000000E+00 + -69.50000 -161.5000 0.0000000E+00 + -68.50000 -161.5000 0.0000000E+00 + -67.50000 -161.5000 0.0000000E+00 + -66.50000 -161.5000 0.0000000E+00 + -65.50000 -161.5000 0.0000000E+00 + -64.50000 -161.5000 0.0000000E+00 + -63.50000 -161.5000 0.0000000E+00 + -62.50000 -161.5000 0.0000000E+00 + -61.50000 -161.5000 0.0000000E+00 + -60.50000 -161.5000 0.0000000E+00 + -59.50000 -161.5000 0.0000000E+00 + -58.50000 -161.5000 0.0000000E+00 + -57.50000 -161.5000 0.0000000E+00 + -56.50000 -161.5000 0.0000000E+00 + -55.50000 -161.5000 0.0000000E+00 + -54.50000 -161.5000 0.0000000E+00 + -53.50000 -161.5000 0.0000000E+00 + -52.50000 -161.5000 0.0000000E+00 + -51.50000 -161.5000 0.0000000E+00 + -50.50000 -161.5000 0.0000000E+00 + -49.50000 -161.5000 0.0000000E+00 + -48.50000 -161.5000 0.0000000E+00 + -47.50000 -161.5000 0.0000000E+00 + -46.50000 -161.5000 0.0000000E+00 + -45.50000 -161.5000 0.0000000E+00 + -44.50000 -161.5000 0.0000000E+00 + -43.50000 -161.5000 0.0000000E+00 + -42.50000 -161.5000 0.0000000E+00 + -41.50000 -161.5000 0.0000000E+00 + -40.50000 -161.5000 0.0000000E+00 + -39.50000 -161.5000 0.0000000E+00 + -38.50000 -161.5000 0.0000000E+00 + -37.50000 -161.5000 0.0000000E+00 + -36.50000 -161.5000 0.0000000E+00 + -35.50000 -161.5000 0.0000000E+00 + -34.50000 -161.5000 0.0000000E+00 + -33.50000 -161.5000 0.0000000E+00 + -32.50000 -161.5000 0.0000000E+00 + -31.50000 -161.5000 0.0000000E+00 + -30.50000 -161.5000 0.0000000E+00 + -29.50000 -161.5000 0.0000000E+00 + -28.50000 -161.5000 0.0000000E+00 + -27.50000 -161.5000 0.0000000E+00 + -26.50000 -161.5000 0.0000000E+00 + -25.50000 -161.5000 0.0000000E+00 + -24.50000 -161.5000 0.0000000E+00 + -23.50000 -161.5000 0.0000000E+00 + -22.50000 -161.5000 0.0000000E+00 + -21.50000 -161.5000 0.0000000E+00 + -20.50000 -161.5000 0.0000000E+00 + -19.50000 -161.5000 0.0000000E+00 + -18.50000 -161.5000 0.0000000E+00 + -17.50000 -161.5000 0.0000000E+00 + -16.50000 -161.5000 0.0000000E+00 + -15.50000 -161.5000 0.0000000E+00 + -14.50000 -161.5000 0.0000000E+00 + -13.50000 -161.5000 0.0000000E+00 + -12.50000 -161.5000 0.0000000E+00 + -11.50000 -161.5000 0.0000000E+00 + -10.50000 -161.5000 0.0000000E+00 + -9.500000 -161.5000 0.0000000E+00 + -8.500000 -161.5000 0.0000000E+00 + -7.500000 -161.5000 0.0000000E+00 + -6.500000 -161.5000 0.0000000E+00 + -5.500000 -161.5000 0.0000000E+00 + -4.500000 -161.5000 0.0000000E+00 + -3.500000 -161.5000 0.0000000E+00 + -2.500000 -161.5000 0.0000000E+00 + -1.500000 -161.5000 0.0000000E+00 + -0.5000000 -161.5000 0.0000000E+00 + 0.5000000 -161.5000 0.0000000E+00 + 1.500000 -161.5000 0.0000000E+00 + 2.500000 -161.5000 0.0000000E+00 + 3.500000 -161.5000 0.0000000E+00 + 4.500000 -161.5000 0.0000000E+00 + 5.500000 -161.5000 0.0000000E+00 + 6.500000 -161.5000 0.0000000E+00 + 7.500000 -161.5000 0.0000000E+00 + 8.500000 -161.5000 0.0000000E+00 + 9.500000 -161.5000 0.0000000E+00 + 10.50000 -161.5000 0.0000000E+00 + 11.50000 -161.5000 0.0000000E+00 + 12.50000 -161.5000 0.0000000E+00 + 13.50000 -161.5000 0.0000000E+00 + 14.50000 -161.5000 0.0000000E+00 + 15.50000 -161.5000 0.0000000E+00 + 16.50000 -161.5000 0.0000000E+00 + 17.50000 -161.5000 0.0000000E+00 + 18.50000 -161.5000 0.0000000E+00 + 19.50000 -161.5000 0.0000000E+00 + 20.50000 -161.5000 0.0000000E+00 + 21.50000 -161.5000 0.0000000E+00 + 22.50000 -161.5000 0.0000000E+00 + 23.50000 -161.5000 0.0000000E+00 + 24.50000 -161.5000 0.0000000E+00 + 25.50000 -161.5000 0.0000000E+00 + 26.50000 -161.5000 0.0000000E+00 + 27.50000 -161.5000 0.0000000E+00 + 28.50000 -161.5000 0.0000000E+00 + 29.50000 -161.5000 0.0000000E+00 + 30.50000 -161.5000 0.0000000E+00 + 31.50000 -161.5000 0.0000000E+00 + 32.50000 -161.5000 0.0000000E+00 + 33.50000 -161.5000 0.0000000E+00 + 34.50000 -161.5000 0.0000000E+00 + 35.50000 -161.5000 0.0000000E+00 + 36.50000 -161.5000 0.0000000E+00 + 37.50000 -161.5000 0.0000000E+00 + 38.50000 -161.5000 0.0000000E+00 + 39.50000 -161.5000 0.0000000E+00 + 40.50000 -161.5000 0.0000000E+00 + 41.50000 -161.5000 0.0000000E+00 + 42.50000 -161.5000 0.0000000E+00 + 43.50000 -161.5000 0.0000000E+00 + 44.50000 -161.5000 0.0000000E+00 + 45.50000 -161.5000 0.0000000E+00 + 46.50000 -161.5000 0.0000000E+00 + 47.50000 -161.5000 0.0000000E+00 + 48.50000 -161.5000 0.0000000E+00 + 49.50000 -161.5000 0.0000000E+00 + 50.50000 -161.5000 0.0000000E+00 + 51.50000 -161.5000 0.0000000E+00 + 52.50000 -161.5000 0.0000000E+00 + 53.50000 -161.5000 0.0000000E+00 + 54.50000 -161.5000 0.0000000E+00 + 55.50000 -161.5000 0.0000000E+00 + 56.50000 -161.5000 0.0000000E+00 + 57.50000 -161.5000 0.0000000E+00 + 58.50000 -161.5000 0.0000000E+00 + 59.50000 -161.5000 0.0000000E+00 + 60.50000 -161.5000 0.0000000E+00 + 61.50000 -161.5000 0.0000000E+00 + 62.50000 -161.5000 0.0000000E+00 + 63.50000 -161.5000 0.0000000E+00 + 64.50000 -161.5000 0.0000000E+00 + 65.50000 -161.5000 0.0000000E+00 + 66.50000 -161.5000 0.0000000E+00 + 67.50000 -161.5000 0.0000000E+00 + 68.50000 -161.5000 0.0000000E+00 + 69.50000 -161.5000 0.0000000E+00 + 70.50000 -161.5000 0.0000000E+00 + 71.50000 -161.5000 0.0000000E+00 + 72.50000 -161.5000 0.0000000E+00 + 73.50000 -161.5000 0.0000000E+00 + 74.50000 -161.5000 0.0000000E+00 + 75.50000 -161.5000 0.0000000E+00 + 76.50000 -161.5000 0.0000000E+00 + 77.50000 -161.5000 0.0000000E+00 + 78.50000 -161.5000 0.0000000E+00 + 79.50000 -161.5000 0.0000000E+00 + 80.50000 -161.5000 0.0000000E+00 + 81.50000 -161.5000 0.0000000E+00 + 82.50000 -161.5000 0.0000000E+00 + 83.50000 -161.5000 0.0000000E+00 + 84.50000 -161.5000 0.0000000E+00 + 85.50000 -161.5000 0.0000000E+00 + 86.50000 -161.5000 0.0000000E+00 + 87.50000 -161.5000 0.0000000E+00 + 88.50000 -161.5000 0.0000000E+00 + 89.50000 -161.5000 0.0000000E+00 + -89.50000 -160.5000 0.0000000E+00 + -88.50000 -160.5000 0.0000000E+00 + -87.50000 -160.5000 0.0000000E+00 + -86.50000 -160.5000 0.0000000E+00 + -85.50000 -160.5000 0.0000000E+00 + -84.50000 -160.5000 0.0000000E+00 + -83.50000 -160.5000 0.0000000E+00 + -82.50000 -160.5000 0.0000000E+00 + -81.50000 -160.5000 0.0000000E+00 + -80.50000 -160.5000 0.0000000E+00 + -79.50000 -160.5000 0.0000000E+00 + -78.50000 -160.5000 0.0000000E+00 + -77.50000 -160.5000 0.0000000E+00 + -76.50000 -160.5000 0.0000000E+00 + -75.50000 -160.5000 0.0000000E+00 + -74.50000 -160.5000 0.0000000E+00 + -73.50000 -160.5000 0.0000000E+00 + -72.50000 -160.5000 0.0000000E+00 + -71.50000 -160.5000 0.0000000E+00 + -70.50000 -160.5000 0.0000000E+00 + -69.50000 -160.5000 0.0000000E+00 + -68.50000 -160.5000 0.0000000E+00 + -67.50000 -160.5000 0.0000000E+00 + -66.50000 -160.5000 0.0000000E+00 + -65.50000 -160.5000 0.0000000E+00 + -64.50000 -160.5000 0.0000000E+00 + -63.50000 -160.5000 0.0000000E+00 + -62.50000 -160.5000 0.0000000E+00 + -61.50000 -160.5000 0.0000000E+00 + -60.50000 -160.5000 0.0000000E+00 + -59.50000 -160.5000 0.0000000E+00 + -58.50000 -160.5000 0.0000000E+00 + -57.50000 -160.5000 0.0000000E+00 + -56.50000 -160.5000 0.0000000E+00 + -55.50000 -160.5000 0.0000000E+00 + -54.50000 -160.5000 0.0000000E+00 + -53.50000 -160.5000 0.0000000E+00 + -52.50000 -160.5000 0.0000000E+00 + -51.50000 -160.5000 0.0000000E+00 + -50.50000 -160.5000 0.0000000E+00 + -49.50000 -160.5000 0.0000000E+00 + -48.50000 -160.5000 0.0000000E+00 + -47.50000 -160.5000 0.0000000E+00 + -46.50000 -160.5000 0.0000000E+00 + -45.50000 -160.5000 0.0000000E+00 + -44.50000 -160.5000 0.0000000E+00 + -43.50000 -160.5000 0.0000000E+00 + -42.50000 -160.5000 0.0000000E+00 + -41.50000 -160.5000 0.0000000E+00 + -40.50000 -160.5000 0.0000000E+00 + -39.50000 -160.5000 0.0000000E+00 + -38.50000 -160.5000 0.0000000E+00 + -37.50000 -160.5000 0.0000000E+00 + -36.50000 -160.5000 0.0000000E+00 + -35.50000 -160.5000 0.0000000E+00 + -34.50000 -160.5000 0.0000000E+00 + -33.50000 -160.5000 0.0000000E+00 + -32.50000 -160.5000 0.0000000E+00 + -31.50000 -160.5000 0.0000000E+00 + -30.50000 -160.5000 0.0000000E+00 + -29.50000 -160.5000 0.0000000E+00 + -28.50000 -160.5000 0.0000000E+00 + -27.50000 -160.5000 0.0000000E+00 + -26.50000 -160.5000 0.0000000E+00 + -25.50000 -160.5000 0.0000000E+00 + -24.50000 -160.5000 0.0000000E+00 + -23.50000 -160.5000 0.0000000E+00 + -22.50000 -160.5000 0.0000000E+00 + -21.50000 -160.5000 0.0000000E+00 + -20.50000 -160.5000 0.0000000E+00 + -19.50000 -160.5000 0.0000000E+00 + -18.50000 -160.5000 0.0000000E+00 + -17.50000 -160.5000 0.0000000E+00 + -16.50000 -160.5000 0.0000000E+00 + -15.50000 -160.5000 0.0000000E+00 + -14.50000 -160.5000 0.0000000E+00 + -13.50000 -160.5000 0.0000000E+00 + -12.50000 -160.5000 0.0000000E+00 + -11.50000 -160.5000 0.0000000E+00 + -10.50000 -160.5000 0.0000000E+00 + -9.500000 -160.5000 0.0000000E+00 + -8.500000 -160.5000 0.0000000E+00 + -7.500000 -160.5000 0.0000000E+00 + -6.500000 -160.5000 0.0000000E+00 + -5.500000 -160.5000 0.0000000E+00 + -4.500000 -160.5000 0.0000000E+00 + -3.500000 -160.5000 0.0000000E+00 + -2.500000 -160.5000 0.0000000E+00 + -1.500000 -160.5000 0.0000000E+00 + -0.5000000 -160.5000 0.0000000E+00 + 0.5000000 -160.5000 0.0000000E+00 + 1.500000 -160.5000 0.0000000E+00 + 2.500000 -160.5000 0.0000000E+00 + 3.500000 -160.5000 0.0000000E+00 + 4.500000 -160.5000 0.0000000E+00 + 5.500000 -160.5000 0.0000000E+00 + 6.500000 -160.5000 0.0000000E+00 + 7.500000 -160.5000 0.0000000E+00 + 8.500000 -160.5000 0.0000000E+00 + 9.500000 -160.5000 0.0000000E+00 + 10.50000 -160.5000 0.0000000E+00 + 11.50000 -160.5000 0.0000000E+00 + 12.50000 -160.5000 0.0000000E+00 + 13.50000 -160.5000 0.0000000E+00 + 14.50000 -160.5000 0.0000000E+00 + 15.50000 -160.5000 0.0000000E+00 + 16.50000 -160.5000 0.0000000E+00 + 17.50000 -160.5000 0.0000000E+00 + 18.50000 -160.5000 0.0000000E+00 + 19.50000 -160.5000 0.0000000E+00 + 20.50000 -160.5000 0.0000000E+00 + 21.50000 -160.5000 0.0000000E+00 + 22.50000 -160.5000 0.0000000E+00 + 23.50000 -160.5000 0.0000000E+00 + 24.50000 -160.5000 0.0000000E+00 + 25.50000 -160.5000 0.0000000E+00 + 26.50000 -160.5000 0.0000000E+00 + 27.50000 -160.5000 0.0000000E+00 + 28.50000 -160.5000 0.0000000E+00 + 29.50000 -160.5000 0.0000000E+00 + 30.50000 -160.5000 0.0000000E+00 + 31.50000 -160.5000 0.0000000E+00 + 32.50000 -160.5000 0.0000000E+00 + 33.50000 -160.5000 0.0000000E+00 + 34.50000 -160.5000 0.0000000E+00 + 35.50000 -160.5000 0.0000000E+00 + 36.50000 -160.5000 0.0000000E+00 + 37.50000 -160.5000 0.0000000E+00 + 38.50000 -160.5000 0.0000000E+00 + 39.50000 -160.5000 0.0000000E+00 + 40.50000 -160.5000 0.0000000E+00 + 41.50000 -160.5000 0.0000000E+00 + 42.50000 -160.5000 0.0000000E+00 + 43.50000 -160.5000 0.0000000E+00 + 44.50000 -160.5000 0.0000000E+00 + 45.50000 -160.5000 0.0000000E+00 + 46.50000 -160.5000 0.0000000E+00 + 47.50000 -160.5000 0.0000000E+00 + 48.50000 -160.5000 0.0000000E+00 + 49.50000 -160.5000 0.0000000E+00 + 50.50000 -160.5000 0.0000000E+00 + 51.50000 -160.5000 0.0000000E+00 + 52.50000 -160.5000 0.0000000E+00 + 53.50000 -160.5000 0.0000000E+00 + 54.50000 -160.5000 0.0000000E+00 + 55.50000 -160.5000 0.0000000E+00 + 56.50000 -160.5000 0.0000000E+00 + 57.50000 -160.5000 0.0000000E+00 + 58.50000 -160.5000 0.0000000E+00 + 59.50000 -160.5000 0.0000000E+00 + 60.50000 -160.5000 0.0000000E+00 + 61.50000 -160.5000 0.0000000E+00 + 62.50000 -160.5000 0.0000000E+00 + 63.50000 -160.5000 0.0000000E+00 + 64.50000 -160.5000 0.0000000E+00 + 65.50000 -160.5000 0.0000000E+00 + 66.50000 -160.5000 0.0000000E+00 + 67.50000 -160.5000 0.0000000E+00 + 68.50000 -160.5000 0.0000000E+00 + 69.50000 -160.5000 0.0000000E+00 + 70.50000 -160.5000 0.0000000E+00 + 71.50000 -160.5000 0.0000000E+00 + 72.50000 -160.5000 0.0000000E+00 + 73.50000 -160.5000 0.0000000E+00 + 74.50000 -160.5000 0.0000000E+00 + 75.50000 -160.5000 0.0000000E+00 + 76.50000 -160.5000 0.0000000E+00 + 77.50000 -160.5000 0.0000000E+00 + 78.50000 -160.5000 0.0000000E+00 + 79.50000 -160.5000 0.0000000E+00 + 80.50000 -160.5000 0.0000000E+00 + 81.50000 -160.5000 0.0000000E+00 + 82.50000 -160.5000 0.0000000E+00 + 83.50000 -160.5000 0.0000000E+00 + 84.50000 -160.5000 0.0000000E+00 + 85.50000 -160.5000 0.0000000E+00 + 86.50000 -160.5000 0.0000000E+00 + 87.50000 -160.5000 0.0000000E+00 + 88.50000 -160.5000 0.0000000E+00 + 89.50000 -160.5000 0.0000000E+00 + -89.50000 -159.5000 0.0000000E+00 + -88.50000 -159.5000 0.0000000E+00 + -87.50000 -159.5000 0.0000000E+00 + -86.50000 -159.5000 0.0000000E+00 + -85.50000 -159.5000 0.0000000E+00 + -84.50000 -159.5000 0.0000000E+00 + -83.50000 -159.5000 0.0000000E+00 + -82.50000 -159.5000 0.0000000E+00 + -81.50000 -159.5000 0.0000000E+00 + -80.50000 -159.5000 0.0000000E+00 + -79.50000 -159.5000 0.0000000E+00 + -78.50000 -159.5000 0.0000000E+00 + -77.50000 -159.5000 0.0000000E+00 + -76.50000 -159.5000 0.0000000E+00 + -75.50000 -159.5000 0.0000000E+00 + -74.50000 -159.5000 0.0000000E+00 + -73.50000 -159.5000 0.0000000E+00 + -72.50000 -159.5000 0.0000000E+00 + -71.50000 -159.5000 0.0000000E+00 + -70.50000 -159.5000 0.0000000E+00 + -69.50000 -159.5000 0.0000000E+00 + -68.50000 -159.5000 0.0000000E+00 + -67.50000 -159.5000 0.0000000E+00 + -66.50000 -159.5000 0.0000000E+00 + -65.50000 -159.5000 0.0000000E+00 + -64.50000 -159.5000 0.0000000E+00 + -63.50000 -159.5000 0.0000000E+00 + -62.50000 -159.5000 0.0000000E+00 + -61.50000 -159.5000 0.0000000E+00 + -60.50000 -159.5000 0.0000000E+00 + -59.50000 -159.5000 0.0000000E+00 + -58.50000 -159.5000 0.0000000E+00 + -57.50000 -159.5000 0.0000000E+00 + -56.50000 -159.5000 0.0000000E+00 + -55.50000 -159.5000 0.0000000E+00 + -54.50000 -159.5000 0.0000000E+00 + -53.50000 -159.5000 0.0000000E+00 + -52.50000 -159.5000 0.0000000E+00 + -51.50000 -159.5000 0.0000000E+00 + -50.50000 -159.5000 0.0000000E+00 + -49.50000 -159.5000 0.0000000E+00 + -48.50000 -159.5000 0.0000000E+00 + -47.50000 -159.5000 0.0000000E+00 + -46.50000 -159.5000 0.0000000E+00 + -45.50000 -159.5000 0.0000000E+00 + -44.50000 -159.5000 0.0000000E+00 + -43.50000 -159.5000 0.0000000E+00 + -42.50000 -159.5000 0.0000000E+00 + -41.50000 -159.5000 0.0000000E+00 + -40.50000 -159.5000 0.0000000E+00 + -39.50000 -159.5000 0.0000000E+00 + -38.50000 -159.5000 0.0000000E+00 + -37.50000 -159.5000 0.0000000E+00 + -36.50000 -159.5000 0.0000000E+00 + -35.50000 -159.5000 0.0000000E+00 + -34.50000 -159.5000 0.0000000E+00 + -33.50000 -159.5000 0.0000000E+00 + -32.50000 -159.5000 0.0000000E+00 + -31.50000 -159.5000 0.0000000E+00 + -30.50000 -159.5000 0.0000000E+00 + -29.50000 -159.5000 0.0000000E+00 + -28.50000 -159.5000 0.0000000E+00 + -27.50000 -159.5000 0.0000000E+00 + -26.50000 -159.5000 0.0000000E+00 + -25.50000 -159.5000 0.0000000E+00 + -24.50000 -159.5000 0.0000000E+00 + -23.50000 -159.5000 0.0000000E+00 + -22.50000 -159.5000 0.0000000E+00 + -21.50000 -159.5000 0.0000000E+00 + -20.50000 -159.5000 0.0000000E+00 + -19.50000 -159.5000 0.0000000E+00 + -18.50000 -159.5000 0.0000000E+00 + -17.50000 -159.5000 0.0000000E+00 + -16.50000 -159.5000 0.0000000E+00 + -15.50000 -159.5000 0.0000000E+00 + -14.50000 -159.5000 0.0000000E+00 + -13.50000 -159.5000 0.0000000E+00 + -12.50000 -159.5000 0.0000000E+00 + -11.50000 -159.5000 0.0000000E+00 + -10.50000 -159.5000 0.0000000E+00 + -9.500000 -159.5000 0.0000000E+00 + -8.500000 -159.5000 0.0000000E+00 + -7.500000 -159.5000 0.0000000E+00 + -6.500000 -159.5000 0.0000000E+00 + -5.500000 -159.5000 0.0000000E+00 + -4.500000 -159.5000 0.0000000E+00 + -3.500000 -159.5000 0.0000000E+00 + -2.500000 -159.5000 0.0000000E+00 + -1.500000 -159.5000 0.0000000E+00 + -0.5000000 -159.5000 0.0000000E+00 + 0.5000000 -159.5000 0.0000000E+00 + 1.500000 -159.5000 0.0000000E+00 + 2.500000 -159.5000 0.0000000E+00 + 3.500000 -159.5000 0.0000000E+00 + 4.500000 -159.5000 0.0000000E+00 + 5.500000 -159.5000 0.0000000E+00 + 6.500000 -159.5000 0.0000000E+00 + 7.500000 -159.5000 0.0000000E+00 + 8.500000 -159.5000 0.0000000E+00 + 9.500000 -159.5000 0.0000000E+00 + 10.50000 -159.5000 0.0000000E+00 + 11.50000 -159.5000 0.0000000E+00 + 12.50000 -159.5000 0.0000000E+00 + 13.50000 -159.5000 0.0000000E+00 + 14.50000 -159.5000 0.0000000E+00 + 15.50000 -159.5000 0.0000000E+00 + 16.50000 -159.5000 0.0000000E+00 + 17.50000 -159.5000 0.0000000E+00 + 18.50000 -159.5000 0.0000000E+00 + 19.50000 -159.5000 0.0000000E+00 + 20.50000 -159.5000 0.0000000E+00 + 21.50000 -159.5000 0.0000000E+00 + 22.50000 -159.5000 0.0000000E+00 + 23.50000 -159.5000 0.0000000E+00 + 24.50000 -159.5000 0.0000000E+00 + 25.50000 -159.5000 0.0000000E+00 + 26.50000 -159.5000 0.0000000E+00 + 27.50000 -159.5000 0.0000000E+00 + 28.50000 -159.5000 0.0000000E+00 + 29.50000 -159.5000 0.0000000E+00 + 30.50000 -159.5000 0.0000000E+00 + 31.50000 -159.5000 0.0000000E+00 + 32.50000 -159.5000 0.0000000E+00 + 33.50000 -159.5000 0.0000000E+00 + 34.50000 -159.5000 0.0000000E+00 + 35.50000 -159.5000 0.0000000E+00 + 36.50000 -159.5000 0.0000000E+00 + 37.50000 -159.5000 0.0000000E+00 + 38.50000 -159.5000 0.0000000E+00 + 39.50000 -159.5000 0.0000000E+00 + 40.50000 -159.5000 0.0000000E+00 + 41.50000 -159.5000 0.0000000E+00 + 42.50000 -159.5000 0.0000000E+00 + 43.50000 -159.5000 0.0000000E+00 + 44.50000 -159.5000 0.0000000E+00 + 45.50000 -159.5000 0.0000000E+00 + 46.50000 -159.5000 0.0000000E+00 + 47.50000 -159.5000 0.0000000E+00 + 48.50000 -159.5000 0.0000000E+00 + 49.50000 -159.5000 0.0000000E+00 + 50.50000 -159.5000 0.0000000E+00 + 51.50000 -159.5000 0.0000000E+00 + 52.50000 -159.5000 0.0000000E+00 + 53.50000 -159.5000 0.0000000E+00 + 54.50000 -159.5000 0.0000000E+00 + 55.50000 -159.5000 0.0000000E+00 + 56.50000 -159.5000 0.0000000E+00 + 57.50000 -159.5000 0.0000000E+00 + 58.50000 -159.5000 0.0000000E+00 + 59.50000 -159.5000 0.0000000E+00 + 60.50000 -159.5000 0.0000000E+00 + 61.50000 -159.5000 0.0000000E+00 + 62.50000 -159.5000 0.0000000E+00 + 63.50000 -159.5000 0.0000000E+00 + 64.50000 -159.5000 0.0000000E+00 + 65.50000 -159.5000 0.0000000E+00 + 66.50000 -159.5000 0.0000000E+00 + 67.50000 -159.5000 0.0000000E+00 + 68.50000 -159.5000 0.0000000E+00 + 69.50000 -159.5000 0.0000000E+00 + 70.50000 -159.5000 0.0000000E+00 + 71.50000 -159.5000 0.0000000E+00 + 72.50000 -159.5000 0.0000000E+00 + 73.50000 -159.5000 0.0000000E+00 + 74.50000 -159.5000 0.0000000E+00 + 75.50000 -159.5000 0.0000000E+00 + 76.50000 -159.5000 0.0000000E+00 + 77.50000 -159.5000 0.0000000E+00 + 78.50000 -159.5000 0.0000000E+00 + 79.50000 -159.5000 0.0000000E+00 + 80.50000 -159.5000 0.0000000E+00 + 81.50000 -159.5000 0.0000000E+00 + 82.50000 -159.5000 0.0000000E+00 + 83.50000 -159.5000 0.0000000E+00 + 84.50000 -159.5000 0.0000000E+00 + 85.50000 -159.5000 0.0000000E+00 + 86.50000 -159.5000 0.0000000E+00 + 87.50000 -159.5000 0.0000000E+00 + 88.50000 -159.5000 0.0000000E+00 + 89.50000 -159.5000 0.0000000E+00 + -89.50000 -158.5000 0.0000000E+00 + -88.50000 -158.5000 0.0000000E+00 + -87.50000 -158.5000 0.0000000E+00 + -86.50000 -158.5000 0.0000000E+00 + -85.50000 -158.5000 0.0000000E+00 + -84.50000 -158.5000 0.0000000E+00 + -83.50000 -158.5000 0.0000000E+00 + -82.50000 -158.5000 0.0000000E+00 + -81.50000 -158.5000 0.0000000E+00 + -80.50000 -158.5000 0.0000000E+00 + -79.50000 -158.5000 0.0000000E+00 + -78.50000 -158.5000 0.0000000E+00 + -77.50000 -158.5000 0.0000000E+00 + -76.50000 -158.5000 0.0000000E+00 + -75.50000 -158.5000 0.0000000E+00 + -74.50000 -158.5000 0.0000000E+00 + -73.50000 -158.5000 0.0000000E+00 + -72.50000 -158.5000 0.0000000E+00 + -71.50000 -158.5000 0.0000000E+00 + -70.50000 -158.5000 0.0000000E+00 + -69.50000 -158.5000 0.0000000E+00 + -68.50000 -158.5000 0.0000000E+00 + -67.50000 -158.5000 0.0000000E+00 + -66.50000 -158.5000 0.0000000E+00 + -65.50000 -158.5000 0.0000000E+00 + -64.50000 -158.5000 0.0000000E+00 + -63.50000 -158.5000 0.0000000E+00 + -62.50000 -158.5000 0.0000000E+00 + -61.50000 -158.5000 0.0000000E+00 + -60.50000 -158.5000 0.0000000E+00 + -59.50000 -158.5000 0.0000000E+00 + -58.50000 -158.5000 0.0000000E+00 + -57.50000 -158.5000 0.0000000E+00 + -56.50000 -158.5000 0.0000000E+00 + -55.50000 -158.5000 0.0000000E+00 + -54.50000 -158.5000 0.0000000E+00 + -53.50000 -158.5000 0.0000000E+00 + -52.50000 -158.5000 0.0000000E+00 + -51.50000 -158.5000 0.0000000E+00 + -50.50000 -158.5000 0.0000000E+00 + -49.50000 -158.5000 0.0000000E+00 + -48.50000 -158.5000 0.0000000E+00 + -47.50000 -158.5000 0.0000000E+00 + -46.50000 -158.5000 0.0000000E+00 + -45.50000 -158.5000 0.0000000E+00 + -44.50000 -158.5000 0.0000000E+00 + -43.50000 -158.5000 0.0000000E+00 + -42.50000 -158.5000 0.0000000E+00 + -41.50000 -158.5000 0.0000000E+00 + -40.50000 -158.5000 0.0000000E+00 + -39.50000 -158.5000 0.0000000E+00 + -38.50000 -158.5000 0.0000000E+00 + -37.50000 -158.5000 0.0000000E+00 + -36.50000 -158.5000 0.0000000E+00 + -35.50000 -158.5000 0.0000000E+00 + -34.50000 -158.5000 0.0000000E+00 + -33.50000 -158.5000 0.0000000E+00 + -32.50000 -158.5000 0.0000000E+00 + -31.50000 -158.5000 0.0000000E+00 + -30.50000 -158.5000 0.0000000E+00 + -29.50000 -158.5000 0.0000000E+00 + -28.50000 -158.5000 0.0000000E+00 + -27.50000 -158.5000 0.0000000E+00 + -26.50000 -158.5000 0.0000000E+00 + -25.50000 -158.5000 0.0000000E+00 + -24.50000 -158.5000 0.0000000E+00 + -23.50000 -158.5000 0.0000000E+00 + -22.50000 -158.5000 0.0000000E+00 + -21.50000 -158.5000 0.0000000E+00 + -20.50000 -158.5000 0.0000000E+00 + -19.50000 -158.5000 0.0000000E+00 + -18.50000 -158.5000 0.0000000E+00 + -17.50000 -158.5000 0.0000000E+00 + -16.50000 -158.5000 0.0000000E+00 + -15.50000 -158.5000 0.0000000E+00 + -14.50000 -158.5000 0.0000000E+00 + -13.50000 -158.5000 0.0000000E+00 + -12.50000 -158.5000 0.0000000E+00 + -11.50000 -158.5000 0.0000000E+00 + -10.50000 -158.5000 0.0000000E+00 + -9.500000 -158.5000 0.0000000E+00 + -8.500000 -158.5000 0.0000000E+00 + -7.500000 -158.5000 0.0000000E+00 + -6.500000 -158.5000 0.0000000E+00 + -5.500000 -158.5000 0.0000000E+00 + -4.500000 -158.5000 0.0000000E+00 + -3.500000 -158.5000 0.0000000E+00 + -2.500000 -158.5000 0.0000000E+00 + -1.500000 -158.5000 0.0000000E+00 + -0.5000000 -158.5000 0.0000000E+00 + 0.5000000 -158.5000 0.0000000E+00 + 1.500000 -158.5000 0.0000000E+00 + 2.500000 -158.5000 0.0000000E+00 + 3.500000 -158.5000 0.0000000E+00 + 4.500000 -158.5000 0.0000000E+00 + 5.500000 -158.5000 0.0000000E+00 + 6.500000 -158.5000 0.0000000E+00 + 7.500000 -158.5000 0.0000000E+00 + 8.500000 -158.5000 0.0000000E+00 + 9.500000 -158.5000 0.0000000E+00 + 10.50000 -158.5000 0.0000000E+00 + 11.50000 -158.5000 0.0000000E+00 + 12.50000 -158.5000 0.0000000E+00 + 13.50000 -158.5000 0.0000000E+00 + 14.50000 -158.5000 0.0000000E+00 + 15.50000 -158.5000 0.0000000E+00 + 16.50000 -158.5000 0.0000000E+00 + 17.50000 -158.5000 0.0000000E+00 + 18.50000 -158.5000 0.0000000E+00 + 19.50000 -158.5000 0.0000000E+00 + 20.50000 -158.5000 0.0000000E+00 + 21.50000 -158.5000 0.0000000E+00 + 22.50000 -158.5000 0.0000000E+00 + 23.50000 -158.5000 0.0000000E+00 + 24.50000 -158.5000 0.0000000E+00 + 25.50000 -158.5000 0.0000000E+00 + 26.50000 -158.5000 0.0000000E+00 + 27.50000 -158.5000 0.0000000E+00 + 28.50000 -158.5000 0.0000000E+00 + 29.50000 -158.5000 0.0000000E+00 + 30.50000 -158.5000 0.0000000E+00 + 31.50000 -158.5000 0.0000000E+00 + 32.50000 -158.5000 0.0000000E+00 + 33.50000 -158.5000 0.0000000E+00 + 34.50000 -158.5000 0.0000000E+00 + 35.50000 -158.5000 0.0000000E+00 + 36.50000 -158.5000 0.0000000E+00 + 37.50000 -158.5000 0.0000000E+00 + 38.50000 -158.5000 0.0000000E+00 + 39.50000 -158.5000 0.0000000E+00 + 40.50000 -158.5000 0.0000000E+00 + 41.50000 -158.5000 0.0000000E+00 + 42.50000 -158.5000 0.0000000E+00 + 43.50000 -158.5000 0.0000000E+00 + 44.50000 -158.5000 0.0000000E+00 + 45.50000 -158.5000 0.0000000E+00 + 46.50000 -158.5000 0.0000000E+00 + 47.50000 -158.5000 0.0000000E+00 + 48.50000 -158.5000 0.0000000E+00 + 49.50000 -158.5000 0.0000000E+00 + 50.50000 -158.5000 0.0000000E+00 + 51.50000 -158.5000 0.0000000E+00 + 52.50000 -158.5000 0.0000000E+00 + 53.50000 -158.5000 0.0000000E+00 + 54.50000 -158.5000 0.0000000E+00 + 55.50000 -158.5000 0.0000000E+00 + 56.50000 -158.5000 0.0000000E+00 + 57.50000 -158.5000 0.0000000E+00 + 58.50000 -158.5000 0.0000000E+00 + 59.50000 -158.5000 0.0000000E+00 + 60.50000 -158.5000 0.0000000E+00 + 61.50000 -158.5000 0.0000000E+00 + 62.50000 -158.5000 0.0000000E+00 + 63.50000 -158.5000 0.0000000E+00 + 64.50000 -158.5000 0.0000000E+00 + 65.50000 -158.5000 0.0000000E+00 + 66.50000 -158.5000 0.0000000E+00 + 67.50000 -158.5000 0.0000000E+00 + 68.50000 -158.5000 0.0000000E+00 + 69.50000 -158.5000 0.0000000E+00 + 70.50000 -158.5000 0.0000000E+00 + 71.50000 -158.5000 0.0000000E+00 + 72.50000 -158.5000 0.0000000E+00 + 73.50000 -158.5000 0.0000000E+00 + 74.50000 -158.5000 0.0000000E+00 + 75.50000 -158.5000 0.0000000E+00 + 76.50000 -158.5000 0.0000000E+00 + 77.50000 -158.5000 0.0000000E+00 + 78.50000 -158.5000 0.0000000E+00 + 79.50000 -158.5000 0.0000000E+00 + 80.50000 -158.5000 0.0000000E+00 + 81.50000 -158.5000 0.0000000E+00 + 82.50000 -158.5000 0.0000000E+00 + 83.50000 -158.5000 0.0000000E+00 + 84.50000 -158.5000 0.0000000E+00 + 85.50000 -158.5000 0.0000000E+00 + 86.50000 -158.5000 0.0000000E+00 + 87.50000 -158.5000 0.0000000E+00 + 88.50000 -158.5000 0.0000000E+00 + 89.50000 -158.5000 0.0000000E+00 + -89.50000 -157.5000 0.0000000E+00 + -88.50000 -157.5000 0.0000000E+00 + -87.50000 -157.5000 0.0000000E+00 + -86.50000 -157.5000 0.0000000E+00 + -85.50000 -157.5000 0.0000000E+00 + -84.50000 -157.5000 0.0000000E+00 + -83.50000 -157.5000 0.0000000E+00 + -82.50000 -157.5000 0.0000000E+00 + -81.50000 -157.5000 0.0000000E+00 + -80.50000 -157.5000 0.0000000E+00 + -79.50000 -157.5000 0.0000000E+00 + -78.50000 -157.5000 0.0000000E+00 + -77.50000 -157.5000 0.0000000E+00 + -76.50000 -157.5000 0.0000000E+00 + -75.50000 -157.5000 0.0000000E+00 + -74.50000 -157.5000 0.0000000E+00 + -73.50000 -157.5000 0.0000000E+00 + -72.50000 -157.5000 0.0000000E+00 + -71.50000 -157.5000 0.0000000E+00 + -70.50000 -157.5000 0.0000000E+00 + -69.50000 -157.5000 0.0000000E+00 + -68.50000 -157.5000 0.0000000E+00 + -67.50000 -157.5000 0.0000000E+00 + -66.50000 -157.5000 0.0000000E+00 + -65.50000 -157.5000 0.0000000E+00 + -64.50000 -157.5000 0.0000000E+00 + -63.50000 -157.5000 0.0000000E+00 + -62.50000 -157.5000 0.0000000E+00 + -61.50000 -157.5000 0.0000000E+00 + -60.50000 -157.5000 0.0000000E+00 + -59.50000 -157.5000 0.0000000E+00 + -58.50000 -157.5000 0.0000000E+00 + -57.50000 -157.5000 0.0000000E+00 + -56.50000 -157.5000 0.0000000E+00 + -55.50000 -157.5000 0.0000000E+00 + -54.50000 -157.5000 0.0000000E+00 + -53.50000 -157.5000 0.0000000E+00 + -52.50000 -157.5000 0.0000000E+00 + -51.50000 -157.5000 0.0000000E+00 + -50.50000 -157.5000 0.0000000E+00 + -49.50000 -157.5000 0.0000000E+00 + -48.50000 -157.5000 0.0000000E+00 + -47.50000 -157.5000 0.0000000E+00 + -46.50000 -157.5000 0.0000000E+00 + -45.50000 -157.5000 0.0000000E+00 + -44.50000 -157.5000 0.0000000E+00 + -43.50000 -157.5000 0.0000000E+00 + -42.50000 -157.5000 0.0000000E+00 + -41.50000 -157.5000 0.0000000E+00 + -40.50000 -157.5000 0.0000000E+00 + -39.50000 -157.5000 0.0000000E+00 + -38.50000 -157.5000 0.0000000E+00 + -37.50000 -157.5000 0.0000000E+00 + -36.50000 -157.5000 0.0000000E+00 + -35.50000 -157.5000 0.0000000E+00 + -34.50000 -157.5000 0.0000000E+00 + -33.50000 -157.5000 0.0000000E+00 + -32.50000 -157.5000 0.0000000E+00 + -31.50000 -157.5000 0.0000000E+00 + -30.50000 -157.5000 0.0000000E+00 + -29.50000 -157.5000 0.0000000E+00 + -28.50000 -157.5000 0.0000000E+00 + -27.50000 -157.5000 0.0000000E+00 + -26.50000 -157.5000 0.0000000E+00 + -25.50000 -157.5000 0.0000000E+00 + -24.50000 -157.5000 0.0000000E+00 + -23.50000 -157.5000 0.0000000E+00 + -22.50000 -157.5000 0.0000000E+00 + -21.50000 -157.5000 0.0000000E+00 + -20.50000 -157.5000 0.0000000E+00 + -19.50000 -157.5000 0.0000000E+00 + -18.50000 -157.5000 0.0000000E+00 + -17.50000 -157.5000 0.0000000E+00 + -16.50000 -157.5000 0.0000000E+00 + -15.50000 -157.5000 0.0000000E+00 + -14.50000 -157.5000 0.0000000E+00 + -13.50000 -157.5000 0.0000000E+00 + -12.50000 -157.5000 0.0000000E+00 + -11.50000 -157.5000 0.0000000E+00 + -10.50000 -157.5000 0.0000000E+00 + -9.500000 -157.5000 0.0000000E+00 + -8.500000 -157.5000 0.0000000E+00 + -7.500000 -157.5000 0.0000000E+00 + -6.500000 -157.5000 0.0000000E+00 + -5.500000 -157.5000 0.0000000E+00 + -4.500000 -157.5000 0.0000000E+00 + -3.500000 -157.5000 0.0000000E+00 + -2.500000 -157.5000 0.0000000E+00 + -1.500000 -157.5000 0.0000000E+00 + -0.5000000 -157.5000 0.0000000E+00 + 0.5000000 -157.5000 0.0000000E+00 + 1.500000 -157.5000 0.0000000E+00 + 2.500000 -157.5000 0.0000000E+00 + 3.500000 -157.5000 0.0000000E+00 + 4.500000 -157.5000 0.0000000E+00 + 5.500000 -157.5000 0.0000000E+00 + 6.500000 -157.5000 0.0000000E+00 + 7.500000 -157.5000 0.0000000E+00 + 8.500000 -157.5000 0.0000000E+00 + 9.500000 -157.5000 0.0000000E+00 + 10.50000 -157.5000 0.0000000E+00 + 11.50000 -157.5000 0.0000000E+00 + 12.50000 -157.5000 0.0000000E+00 + 13.50000 -157.5000 0.0000000E+00 + 14.50000 -157.5000 0.0000000E+00 + 15.50000 -157.5000 0.0000000E+00 + 16.50000 -157.5000 0.0000000E+00 + 17.50000 -157.5000 0.0000000E+00 + 18.50000 -157.5000 0.0000000E+00 + 19.50000 -157.5000 0.0000000E+00 + 20.50000 -157.5000 0.0000000E+00 + 21.50000 -157.5000 0.0000000E+00 + 22.50000 -157.5000 0.0000000E+00 + 23.50000 -157.5000 0.0000000E+00 + 24.50000 -157.5000 0.0000000E+00 + 25.50000 -157.5000 0.0000000E+00 + 26.50000 -157.5000 0.0000000E+00 + 27.50000 -157.5000 0.0000000E+00 + 28.50000 -157.5000 0.0000000E+00 + 29.50000 -157.5000 0.0000000E+00 + 30.50000 -157.5000 0.0000000E+00 + 31.50000 -157.5000 0.0000000E+00 + 32.50000 -157.5000 0.0000000E+00 + 33.50000 -157.5000 0.0000000E+00 + 34.50000 -157.5000 0.0000000E+00 + 35.50000 -157.5000 0.0000000E+00 + 36.50000 -157.5000 0.0000000E+00 + 37.50000 -157.5000 0.0000000E+00 + 38.50000 -157.5000 0.0000000E+00 + 39.50000 -157.5000 0.0000000E+00 + 40.50000 -157.5000 0.0000000E+00 + 41.50000 -157.5000 0.0000000E+00 + 42.50000 -157.5000 0.0000000E+00 + 43.50000 -157.5000 0.0000000E+00 + 44.50000 -157.5000 0.0000000E+00 + 45.50000 -157.5000 0.0000000E+00 + 46.50000 -157.5000 0.0000000E+00 + 47.50000 -157.5000 0.0000000E+00 + 48.50000 -157.5000 0.0000000E+00 + 49.50000 -157.5000 0.0000000E+00 + 50.50000 -157.5000 0.0000000E+00 + 51.50000 -157.5000 0.0000000E+00 + 52.50000 -157.5000 0.0000000E+00 + 53.50000 -157.5000 0.0000000E+00 + 54.50000 -157.5000 0.0000000E+00 + 55.50000 -157.5000 0.0000000E+00 + 56.50000 -157.5000 0.0000000E+00 + 57.50000 -157.5000 0.0000000E+00 + 58.50000 -157.5000 0.0000000E+00 + 59.50000 -157.5000 0.0000000E+00 + 60.50000 -157.5000 0.0000000E+00 + 61.50000 -157.5000 0.0000000E+00 + 62.50000 -157.5000 0.0000000E+00 + 63.50000 -157.5000 0.0000000E+00 + 64.50000 -157.5000 0.0000000E+00 + 65.50000 -157.5000 0.0000000E+00 + 66.50000 -157.5000 0.0000000E+00 + 67.50000 -157.5000 0.0000000E+00 + 68.50000 -157.5000 0.0000000E+00 + 69.50000 -157.5000 0.0000000E+00 + 70.50000 -157.5000 0.0000000E+00 + 71.50000 -157.5000 0.0000000E+00 + 72.50000 -157.5000 0.0000000E+00 + 73.50000 -157.5000 0.0000000E+00 + 74.50000 -157.5000 0.0000000E+00 + 75.50000 -157.5000 0.0000000E+00 + 76.50000 -157.5000 0.0000000E+00 + 77.50000 -157.5000 0.0000000E+00 + 78.50000 -157.5000 0.0000000E+00 + 79.50000 -157.5000 0.0000000E+00 + 80.50000 -157.5000 0.0000000E+00 + 81.50000 -157.5000 0.0000000E+00 + 82.50000 -157.5000 0.0000000E+00 + 83.50000 -157.5000 0.0000000E+00 + 84.50000 -157.5000 0.0000000E+00 + 85.50000 -157.5000 0.0000000E+00 + 86.50000 -157.5000 0.0000000E+00 + 87.50000 -157.5000 0.0000000E+00 + 88.50000 -157.5000 0.0000000E+00 + 89.50000 -157.5000 0.0000000E+00 + -89.50000 -156.5000 0.0000000E+00 + -88.50000 -156.5000 0.0000000E+00 + -87.50000 -156.5000 0.0000000E+00 + -86.50000 -156.5000 0.0000000E+00 + -85.50000 -156.5000 0.0000000E+00 + -84.50000 -156.5000 0.0000000E+00 + -83.50000 -156.5000 0.0000000E+00 + -82.50000 -156.5000 0.0000000E+00 + -81.50000 -156.5000 0.0000000E+00 + -80.50000 -156.5000 0.0000000E+00 + -79.50000 -156.5000 0.0000000E+00 + -78.50000 -156.5000 0.0000000E+00 + -77.50000 -156.5000 0.0000000E+00 + -76.50000 -156.5000 0.0000000E+00 + -75.50000 -156.5000 0.0000000E+00 + -74.50000 -156.5000 0.0000000E+00 + -73.50000 -156.5000 0.0000000E+00 + -72.50000 -156.5000 0.0000000E+00 + -71.50000 -156.5000 0.0000000E+00 + -70.50000 -156.5000 0.0000000E+00 + -69.50000 -156.5000 0.0000000E+00 + -68.50000 -156.5000 0.0000000E+00 + -67.50000 -156.5000 0.0000000E+00 + -66.50000 -156.5000 0.0000000E+00 + -65.50000 -156.5000 0.0000000E+00 + -64.50000 -156.5000 0.0000000E+00 + -63.50000 -156.5000 0.0000000E+00 + -62.50000 -156.5000 0.0000000E+00 + -61.50000 -156.5000 0.0000000E+00 + -60.50000 -156.5000 0.0000000E+00 + -59.50000 -156.5000 0.0000000E+00 + -58.50000 -156.5000 0.0000000E+00 + -57.50000 -156.5000 0.0000000E+00 + -56.50000 -156.5000 0.0000000E+00 + -55.50000 -156.5000 0.0000000E+00 + -54.50000 -156.5000 0.0000000E+00 + -53.50000 -156.5000 0.0000000E+00 + -52.50000 -156.5000 0.0000000E+00 + -51.50000 -156.5000 0.0000000E+00 + -50.50000 -156.5000 0.0000000E+00 + -49.50000 -156.5000 0.0000000E+00 + -48.50000 -156.5000 0.0000000E+00 + -47.50000 -156.5000 0.0000000E+00 + -46.50000 -156.5000 0.0000000E+00 + -45.50000 -156.5000 0.0000000E+00 + -44.50000 -156.5000 0.0000000E+00 + -43.50000 -156.5000 0.0000000E+00 + -42.50000 -156.5000 0.0000000E+00 + -41.50000 -156.5000 0.0000000E+00 + -40.50000 -156.5000 0.0000000E+00 + -39.50000 -156.5000 0.0000000E+00 + -38.50000 -156.5000 0.0000000E+00 + -37.50000 -156.5000 0.0000000E+00 + -36.50000 -156.5000 0.0000000E+00 + -35.50000 -156.5000 0.0000000E+00 + -34.50000 -156.5000 0.0000000E+00 + -33.50000 -156.5000 0.0000000E+00 + -32.50000 -156.5000 0.0000000E+00 + -31.50000 -156.5000 0.0000000E+00 + -30.50000 -156.5000 0.0000000E+00 + -29.50000 -156.5000 0.0000000E+00 + -28.50000 -156.5000 0.0000000E+00 + -27.50000 -156.5000 0.0000000E+00 + -26.50000 -156.5000 0.0000000E+00 + -25.50000 -156.5000 0.0000000E+00 + -24.50000 -156.5000 0.0000000E+00 + -23.50000 -156.5000 0.0000000E+00 + -22.50000 -156.5000 0.0000000E+00 + -21.50000 -156.5000 0.0000000E+00 + -20.50000 -156.5000 0.0000000E+00 + -19.50000 -156.5000 0.0000000E+00 + -18.50000 -156.5000 0.0000000E+00 + -17.50000 -156.5000 0.0000000E+00 + -16.50000 -156.5000 0.0000000E+00 + -15.50000 -156.5000 0.0000000E+00 + -14.50000 -156.5000 0.0000000E+00 + -13.50000 -156.5000 0.0000000E+00 + -12.50000 -156.5000 0.0000000E+00 + -11.50000 -156.5000 0.0000000E+00 + -10.50000 -156.5000 0.0000000E+00 + -9.500000 -156.5000 0.0000000E+00 + -8.500000 -156.5000 0.0000000E+00 + -7.500000 -156.5000 0.0000000E+00 + -6.500000 -156.5000 0.0000000E+00 + -5.500000 -156.5000 0.0000000E+00 + -4.500000 -156.5000 0.0000000E+00 + -3.500000 -156.5000 0.0000000E+00 + -2.500000 -156.5000 0.0000000E+00 + -1.500000 -156.5000 0.0000000E+00 + -0.5000000 -156.5000 0.0000000E+00 + 0.5000000 -156.5000 0.0000000E+00 + 1.500000 -156.5000 0.0000000E+00 + 2.500000 -156.5000 0.0000000E+00 + 3.500000 -156.5000 0.0000000E+00 + 4.500000 -156.5000 0.0000000E+00 + 5.500000 -156.5000 0.0000000E+00 + 6.500000 -156.5000 0.0000000E+00 + 7.500000 -156.5000 0.0000000E+00 + 8.500000 -156.5000 0.0000000E+00 + 9.500000 -156.5000 0.0000000E+00 + 10.50000 -156.5000 0.0000000E+00 + 11.50000 -156.5000 0.0000000E+00 + 12.50000 -156.5000 0.0000000E+00 + 13.50000 -156.5000 0.0000000E+00 + 14.50000 -156.5000 0.0000000E+00 + 15.50000 -156.5000 0.0000000E+00 + 16.50000 -156.5000 0.0000000E+00 + 17.50000 -156.5000 0.0000000E+00 + 18.50000 -156.5000 0.0000000E+00 + 19.50000 -156.5000 0.0000000E+00 + 20.50000 -156.5000 0.0000000E+00 + 21.50000 -156.5000 0.0000000E+00 + 22.50000 -156.5000 0.0000000E+00 + 23.50000 -156.5000 0.0000000E+00 + 24.50000 -156.5000 0.0000000E+00 + 25.50000 -156.5000 0.0000000E+00 + 26.50000 -156.5000 0.0000000E+00 + 27.50000 -156.5000 0.0000000E+00 + 28.50000 -156.5000 0.0000000E+00 + 29.50000 -156.5000 0.0000000E+00 + 30.50000 -156.5000 0.0000000E+00 + 31.50000 -156.5000 0.0000000E+00 + 32.50000 -156.5000 0.0000000E+00 + 33.50000 -156.5000 0.0000000E+00 + 34.50000 -156.5000 0.0000000E+00 + 35.50000 -156.5000 0.0000000E+00 + 36.50000 -156.5000 0.0000000E+00 + 37.50000 -156.5000 0.0000000E+00 + 38.50000 -156.5000 0.0000000E+00 + 39.50000 -156.5000 0.0000000E+00 + 40.50000 -156.5000 0.0000000E+00 + 41.50000 -156.5000 0.0000000E+00 + 42.50000 -156.5000 0.0000000E+00 + 43.50000 -156.5000 0.0000000E+00 + 44.50000 -156.5000 0.0000000E+00 + 45.50000 -156.5000 0.0000000E+00 + 46.50000 -156.5000 0.0000000E+00 + 47.50000 -156.5000 0.0000000E+00 + 48.50000 -156.5000 0.0000000E+00 + 49.50000 -156.5000 0.0000000E+00 + 50.50000 -156.5000 0.0000000E+00 + 51.50000 -156.5000 0.0000000E+00 + 52.50000 -156.5000 0.0000000E+00 + 53.50000 -156.5000 0.0000000E+00 + 54.50000 -156.5000 0.0000000E+00 + 55.50000 -156.5000 0.0000000E+00 + 56.50000 -156.5000 0.0000000E+00 + 57.50000 -156.5000 0.0000000E+00 + 58.50000 -156.5000 0.0000000E+00 + 59.50000 -156.5000 0.0000000E+00 + 60.50000 -156.5000 0.0000000E+00 + 61.50000 -156.5000 0.0000000E+00 + 62.50000 -156.5000 0.0000000E+00 + 63.50000 -156.5000 0.0000000E+00 + 64.50000 -156.5000 0.0000000E+00 + 65.50000 -156.5000 0.0000000E+00 + 66.50000 -156.5000 0.0000000E+00 + 67.50000 -156.5000 0.0000000E+00 + 68.50000 -156.5000 0.0000000E+00 + 69.50000 -156.5000 0.0000000E+00 + 70.50000 -156.5000 0.0000000E+00 + 71.50000 -156.5000 0.0000000E+00 + 72.50000 -156.5000 0.0000000E+00 + 73.50000 -156.5000 0.0000000E+00 + 74.50000 -156.5000 0.0000000E+00 + 75.50000 -156.5000 0.0000000E+00 + 76.50000 -156.5000 0.0000000E+00 + 77.50000 -156.5000 0.0000000E+00 + 78.50000 -156.5000 0.0000000E+00 + 79.50000 -156.5000 0.0000000E+00 + 80.50000 -156.5000 0.0000000E+00 + 81.50000 -156.5000 0.0000000E+00 + 82.50000 -156.5000 0.0000000E+00 + 83.50000 -156.5000 0.0000000E+00 + 84.50000 -156.5000 0.0000000E+00 + 85.50000 -156.5000 0.0000000E+00 + 86.50000 -156.5000 0.0000000E+00 + 87.50000 -156.5000 0.0000000E+00 + 88.50000 -156.5000 0.0000000E+00 + 89.50000 -156.5000 0.0000000E+00 + -89.50000 -155.5000 0.0000000E+00 + -88.50000 -155.5000 0.0000000E+00 + -87.50000 -155.5000 0.0000000E+00 + -86.50000 -155.5000 0.0000000E+00 + -85.50000 -155.5000 0.0000000E+00 + -84.50000 -155.5000 0.0000000E+00 + -83.50000 -155.5000 0.0000000E+00 + -82.50000 -155.5000 0.0000000E+00 + -81.50000 -155.5000 0.0000000E+00 + -80.50000 -155.5000 0.0000000E+00 + -79.50000 -155.5000 0.0000000E+00 + -78.50000 -155.5000 0.0000000E+00 + -77.50000 -155.5000 0.0000000E+00 + -76.50000 -155.5000 0.0000000E+00 + -75.50000 -155.5000 0.0000000E+00 + -74.50000 -155.5000 0.0000000E+00 + -73.50000 -155.5000 0.0000000E+00 + -72.50000 -155.5000 0.0000000E+00 + -71.50000 -155.5000 0.0000000E+00 + -70.50000 -155.5000 0.0000000E+00 + -69.50000 -155.5000 0.0000000E+00 + -68.50000 -155.5000 0.0000000E+00 + -67.50000 -155.5000 0.0000000E+00 + -66.50000 -155.5000 0.0000000E+00 + -65.50000 -155.5000 0.0000000E+00 + -64.50000 -155.5000 0.0000000E+00 + -63.50000 -155.5000 0.0000000E+00 + -62.50000 -155.5000 0.0000000E+00 + -61.50000 -155.5000 0.0000000E+00 + -60.50000 -155.5000 0.0000000E+00 + -59.50000 -155.5000 0.0000000E+00 + -58.50000 -155.5000 0.0000000E+00 + -57.50000 -155.5000 0.0000000E+00 + -56.50000 -155.5000 0.0000000E+00 + -55.50000 -155.5000 0.0000000E+00 + -54.50000 -155.5000 0.0000000E+00 + -53.50000 -155.5000 0.0000000E+00 + -52.50000 -155.5000 0.0000000E+00 + -51.50000 -155.5000 0.0000000E+00 + -50.50000 -155.5000 0.0000000E+00 + -49.50000 -155.5000 0.0000000E+00 + -48.50000 -155.5000 0.0000000E+00 + -47.50000 -155.5000 0.0000000E+00 + -46.50000 -155.5000 0.0000000E+00 + -45.50000 -155.5000 0.0000000E+00 + -44.50000 -155.5000 0.0000000E+00 + -43.50000 -155.5000 0.0000000E+00 + -42.50000 -155.5000 0.0000000E+00 + -41.50000 -155.5000 0.0000000E+00 + -40.50000 -155.5000 0.0000000E+00 + -39.50000 -155.5000 0.0000000E+00 + -38.50000 -155.5000 0.0000000E+00 + -37.50000 -155.5000 0.0000000E+00 + -36.50000 -155.5000 0.0000000E+00 + -35.50000 -155.5000 0.0000000E+00 + -34.50000 -155.5000 0.0000000E+00 + -33.50000 -155.5000 0.0000000E+00 + -32.50000 -155.5000 0.0000000E+00 + -31.50000 -155.5000 0.0000000E+00 + -30.50000 -155.5000 0.0000000E+00 + -29.50000 -155.5000 0.0000000E+00 + -28.50000 -155.5000 0.0000000E+00 + -27.50000 -155.5000 0.0000000E+00 + -26.50000 -155.5000 0.0000000E+00 + -25.50000 -155.5000 0.0000000E+00 + -24.50000 -155.5000 0.0000000E+00 + -23.50000 -155.5000 0.0000000E+00 + -22.50000 -155.5000 0.0000000E+00 + -21.50000 -155.5000 0.0000000E+00 + -20.50000 -155.5000 0.0000000E+00 + -19.50000 -155.5000 0.0000000E+00 + -18.50000 -155.5000 0.0000000E+00 + -17.50000 -155.5000 0.0000000E+00 + -16.50000 -155.5000 0.0000000E+00 + -15.50000 -155.5000 0.0000000E+00 + -14.50000 -155.5000 0.0000000E+00 + -13.50000 -155.5000 0.0000000E+00 + -12.50000 -155.5000 0.0000000E+00 + -11.50000 -155.5000 0.0000000E+00 + -10.50000 -155.5000 0.0000000E+00 + -9.500000 -155.5000 0.0000000E+00 + -8.500000 -155.5000 0.0000000E+00 + -7.500000 -155.5000 0.0000000E+00 + -6.500000 -155.5000 0.0000000E+00 + -5.500000 -155.5000 0.0000000E+00 + -4.500000 -155.5000 0.0000000E+00 + -3.500000 -155.5000 0.0000000E+00 + -2.500000 -155.5000 0.0000000E+00 + -1.500000 -155.5000 0.0000000E+00 + -0.5000000 -155.5000 0.0000000E+00 + 0.5000000 -155.5000 0.0000000E+00 + 1.500000 -155.5000 0.0000000E+00 + 2.500000 -155.5000 0.0000000E+00 + 3.500000 -155.5000 0.0000000E+00 + 4.500000 -155.5000 0.0000000E+00 + 5.500000 -155.5000 0.0000000E+00 + 6.500000 -155.5000 0.0000000E+00 + 7.500000 -155.5000 0.0000000E+00 + 8.500000 -155.5000 0.0000000E+00 + 9.500000 -155.5000 0.0000000E+00 + 10.50000 -155.5000 0.0000000E+00 + 11.50000 -155.5000 0.0000000E+00 + 12.50000 -155.5000 0.0000000E+00 + 13.50000 -155.5000 0.0000000E+00 + 14.50000 -155.5000 0.0000000E+00 + 15.50000 -155.5000 0.0000000E+00 + 16.50000 -155.5000 0.0000000E+00 + 17.50000 -155.5000 0.0000000E+00 + 18.50000 -155.5000 0.0000000E+00 + 19.50000 -155.5000 0.0000000E+00 + 20.50000 -155.5000 0.0000000E+00 + 21.50000 -155.5000 0.0000000E+00 + 22.50000 -155.5000 0.0000000E+00 + 23.50000 -155.5000 0.0000000E+00 + 24.50000 -155.5000 0.0000000E+00 + 25.50000 -155.5000 0.0000000E+00 + 26.50000 -155.5000 0.0000000E+00 + 27.50000 -155.5000 0.0000000E+00 + 28.50000 -155.5000 0.0000000E+00 + 29.50000 -155.5000 0.0000000E+00 + 30.50000 -155.5000 0.0000000E+00 + 31.50000 -155.5000 0.0000000E+00 + 32.50000 -155.5000 0.0000000E+00 + 33.50000 -155.5000 0.0000000E+00 + 34.50000 -155.5000 0.0000000E+00 + 35.50000 -155.5000 0.0000000E+00 + 36.50000 -155.5000 0.0000000E+00 + 37.50000 -155.5000 0.0000000E+00 + 38.50000 -155.5000 0.0000000E+00 + 39.50000 -155.5000 0.0000000E+00 + 40.50000 -155.5000 0.0000000E+00 + 41.50000 -155.5000 0.0000000E+00 + 42.50000 -155.5000 0.0000000E+00 + 43.50000 -155.5000 0.0000000E+00 + 44.50000 -155.5000 0.0000000E+00 + 45.50000 -155.5000 0.0000000E+00 + 46.50000 -155.5000 0.0000000E+00 + 47.50000 -155.5000 0.0000000E+00 + 48.50000 -155.5000 0.0000000E+00 + 49.50000 -155.5000 0.0000000E+00 + 50.50000 -155.5000 0.0000000E+00 + 51.50000 -155.5000 0.0000000E+00 + 52.50000 -155.5000 0.0000000E+00 + 53.50000 -155.5000 0.0000000E+00 + 54.50000 -155.5000 0.0000000E+00 + 55.50000 -155.5000 0.0000000E+00 + 56.50000 -155.5000 0.0000000E+00 + 57.50000 -155.5000 0.0000000E+00 + 58.50000 -155.5000 0.0000000E+00 + 59.50000 -155.5000 0.0000000E+00 + 60.50000 -155.5000 0.0000000E+00 + 61.50000 -155.5000 0.0000000E+00 + 62.50000 -155.5000 0.0000000E+00 + 63.50000 -155.5000 0.0000000E+00 + 64.50000 -155.5000 0.0000000E+00 + 65.50000 -155.5000 0.0000000E+00 + 66.50000 -155.5000 0.0000000E+00 + 67.50000 -155.5000 0.0000000E+00 + 68.50000 -155.5000 0.0000000E+00 + 69.50000 -155.5000 0.0000000E+00 + 70.50000 -155.5000 0.0000000E+00 + 71.50000 -155.5000 0.0000000E+00 + 72.50000 -155.5000 0.0000000E+00 + 73.50000 -155.5000 0.0000000E+00 + 74.50000 -155.5000 0.0000000E+00 + 75.50000 -155.5000 0.0000000E+00 + 76.50000 -155.5000 0.0000000E+00 + 77.50000 -155.5000 0.0000000E+00 + 78.50000 -155.5000 0.0000000E+00 + 79.50000 -155.5000 0.0000000E+00 + 80.50000 -155.5000 0.0000000E+00 + 81.50000 -155.5000 0.0000000E+00 + 82.50000 -155.5000 0.0000000E+00 + 83.50000 -155.5000 0.0000000E+00 + 84.50000 -155.5000 0.0000000E+00 + 85.50000 -155.5000 0.0000000E+00 + 86.50000 -155.5000 0.0000000E+00 + 87.50000 -155.5000 0.0000000E+00 + 88.50000 -155.5000 0.0000000E+00 + 89.50000 -155.5000 0.0000000E+00 + -89.50000 -154.5000 0.0000000E+00 + -88.50000 -154.5000 0.0000000E+00 + -87.50000 -154.5000 0.0000000E+00 + -86.50000 -154.5000 0.0000000E+00 + -85.50000 -154.5000 0.0000000E+00 + -84.50000 -154.5000 0.0000000E+00 + -83.50000 -154.5000 0.0000000E+00 + -82.50000 -154.5000 0.0000000E+00 + -81.50000 -154.5000 0.0000000E+00 + -80.50000 -154.5000 0.0000000E+00 + -79.50000 -154.5000 0.0000000E+00 + -78.50000 -154.5000 0.0000000E+00 + -77.50000 -154.5000 0.0000000E+00 + -76.50000 -154.5000 0.0000000E+00 + -75.50000 -154.5000 0.0000000E+00 + -74.50000 -154.5000 0.0000000E+00 + -73.50000 -154.5000 0.0000000E+00 + -72.50000 -154.5000 0.0000000E+00 + -71.50000 -154.5000 0.0000000E+00 + -70.50000 -154.5000 0.0000000E+00 + -69.50000 -154.5000 0.0000000E+00 + -68.50000 -154.5000 0.0000000E+00 + -67.50000 -154.5000 0.0000000E+00 + -66.50000 -154.5000 0.0000000E+00 + -65.50000 -154.5000 0.0000000E+00 + -64.50000 -154.5000 0.0000000E+00 + -63.50000 -154.5000 0.0000000E+00 + -62.50000 -154.5000 0.0000000E+00 + -61.50000 -154.5000 0.0000000E+00 + -60.50000 -154.5000 0.0000000E+00 + -59.50000 -154.5000 0.0000000E+00 + -58.50000 -154.5000 0.0000000E+00 + -57.50000 -154.5000 0.0000000E+00 + -56.50000 -154.5000 0.0000000E+00 + -55.50000 -154.5000 0.0000000E+00 + -54.50000 -154.5000 0.0000000E+00 + -53.50000 -154.5000 0.0000000E+00 + -52.50000 -154.5000 0.0000000E+00 + -51.50000 -154.5000 0.0000000E+00 + -50.50000 -154.5000 0.0000000E+00 + -49.50000 -154.5000 0.0000000E+00 + -48.50000 -154.5000 0.0000000E+00 + -47.50000 -154.5000 0.0000000E+00 + -46.50000 -154.5000 0.0000000E+00 + -45.50000 -154.5000 0.0000000E+00 + -44.50000 -154.5000 0.0000000E+00 + -43.50000 -154.5000 0.0000000E+00 + -42.50000 -154.5000 0.0000000E+00 + -41.50000 -154.5000 0.0000000E+00 + -40.50000 -154.5000 0.0000000E+00 + -39.50000 -154.5000 0.0000000E+00 + -38.50000 -154.5000 0.0000000E+00 + -37.50000 -154.5000 0.0000000E+00 + -36.50000 -154.5000 0.0000000E+00 + -35.50000 -154.5000 0.0000000E+00 + -34.50000 -154.5000 0.0000000E+00 + -33.50000 -154.5000 0.0000000E+00 + -32.50000 -154.5000 0.0000000E+00 + -31.50000 -154.5000 0.0000000E+00 + -30.50000 -154.5000 0.0000000E+00 + -29.50000 -154.5000 0.0000000E+00 + -28.50000 -154.5000 0.0000000E+00 + -27.50000 -154.5000 0.0000000E+00 + -26.50000 -154.5000 0.0000000E+00 + -25.50000 -154.5000 0.0000000E+00 + -24.50000 -154.5000 0.0000000E+00 + -23.50000 -154.5000 0.0000000E+00 + -22.50000 -154.5000 0.0000000E+00 + -21.50000 -154.5000 0.0000000E+00 + -20.50000 -154.5000 0.0000000E+00 + -19.50000 -154.5000 0.0000000E+00 + -18.50000 -154.5000 0.0000000E+00 + -17.50000 -154.5000 0.0000000E+00 + -16.50000 -154.5000 0.0000000E+00 + -15.50000 -154.5000 0.0000000E+00 + -14.50000 -154.5000 0.0000000E+00 + -13.50000 -154.5000 0.0000000E+00 + -12.50000 -154.5000 0.0000000E+00 + -11.50000 -154.5000 0.0000000E+00 + -10.50000 -154.5000 0.0000000E+00 + -9.500000 -154.5000 0.0000000E+00 + -8.500000 -154.5000 0.0000000E+00 + -7.500000 -154.5000 0.0000000E+00 + -6.500000 -154.5000 0.0000000E+00 + -5.500000 -154.5000 0.0000000E+00 + -4.500000 -154.5000 0.0000000E+00 + -3.500000 -154.5000 0.0000000E+00 + -2.500000 -154.5000 0.0000000E+00 + -1.500000 -154.5000 0.0000000E+00 + -0.5000000 -154.5000 0.0000000E+00 + 0.5000000 -154.5000 0.0000000E+00 + 1.500000 -154.5000 0.0000000E+00 + 2.500000 -154.5000 0.0000000E+00 + 3.500000 -154.5000 0.0000000E+00 + 4.500000 -154.5000 0.0000000E+00 + 5.500000 -154.5000 0.0000000E+00 + 6.500000 -154.5000 0.0000000E+00 + 7.500000 -154.5000 0.0000000E+00 + 8.500000 -154.5000 0.0000000E+00 + 9.500000 -154.5000 0.0000000E+00 + 10.50000 -154.5000 0.0000000E+00 + 11.50000 -154.5000 0.0000000E+00 + 12.50000 -154.5000 0.0000000E+00 + 13.50000 -154.5000 0.0000000E+00 + 14.50000 -154.5000 0.0000000E+00 + 15.50000 -154.5000 0.0000000E+00 + 16.50000 -154.5000 0.0000000E+00 + 17.50000 -154.5000 0.0000000E+00 + 18.50000 -154.5000 0.0000000E+00 + 19.50000 -154.5000 0.0000000E+00 + 20.50000 -154.5000 0.0000000E+00 + 21.50000 -154.5000 0.0000000E+00 + 22.50000 -154.5000 0.0000000E+00 + 23.50000 -154.5000 0.0000000E+00 + 24.50000 -154.5000 0.0000000E+00 + 25.50000 -154.5000 0.0000000E+00 + 26.50000 -154.5000 0.0000000E+00 + 27.50000 -154.5000 0.0000000E+00 + 28.50000 -154.5000 0.0000000E+00 + 29.50000 -154.5000 0.0000000E+00 + 30.50000 -154.5000 0.0000000E+00 + 31.50000 -154.5000 0.0000000E+00 + 32.50000 -154.5000 0.0000000E+00 + 33.50000 -154.5000 0.0000000E+00 + 34.50000 -154.5000 0.0000000E+00 + 35.50000 -154.5000 0.0000000E+00 + 36.50000 -154.5000 0.0000000E+00 + 37.50000 -154.5000 0.0000000E+00 + 38.50000 -154.5000 0.0000000E+00 + 39.50000 -154.5000 0.0000000E+00 + 40.50000 -154.5000 0.0000000E+00 + 41.50000 -154.5000 0.0000000E+00 + 42.50000 -154.5000 0.0000000E+00 + 43.50000 -154.5000 0.0000000E+00 + 44.50000 -154.5000 0.0000000E+00 + 45.50000 -154.5000 0.0000000E+00 + 46.50000 -154.5000 0.0000000E+00 + 47.50000 -154.5000 0.0000000E+00 + 48.50000 -154.5000 0.0000000E+00 + 49.50000 -154.5000 0.0000000E+00 + 50.50000 -154.5000 0.0000000E+00 + 51.50000 -154.5000 0.0000000E+00 + 52.50000 -154.5000 0.0000000E+00 + 53.50000 -154.5000 0.0000000E+00 + 54.50000 -154.5000 0.0000000E+00 + 55.50000 -154.5000 0.0000000E+00 + 56.50000 -154.5000 0.0000000E+00 + 57.50000 -154.5000 0.0000000E+00 + 58.50000 -154.5000 0.0000000E+00 + 59.50000 -154.5000 0.0000000E+00 + 60.50000 -154.5000 0.0000000E+00 + 61.50000 -154.5000 0.0000000E+00 + 62.50000 -154.5000 0.0000000E+00 + 63.50000 -154.5000 0.0000000E+00 + 64.50000 -154.5000 0.0000000E+00 + 65.50000 -154.5000 0.0000000E+00 + 66.50000 -154.5000 0.0000000E+00 + 67.50000 -154.5000 0.0000000E+00 + 68.50000 -154.5000 0.0000000E+00 + 69.50000 -154.5000 0.0000000E+00 + 70.50000 -154.5000 0.0000000E+00 + 71.50000 -154.5000 0.0000000E+00 + 72.50000 -154.5000 0.0000000E+00 + 73.50000 -154.5000 0.0000000E+00 + 74.50000 -154.5000 0.0000000E+00 + 75.50000 -154.5000 0.0000000E+00 + 76.50000 -154.5000 0.0000000E+00 + 77.50000 -154.5000 0.0000000E+00 + 78.50000 -154.5000 0.0000000E+00 + 79.50000 -154.5000 0.0000000E+00 + 80.50000 -154.5000 0.0000000E+00 + 81.50000 -154.5000 0.0000000E+00 + 82.50000 -154.5000 0.0000000E+00 + 83.50000 -154.5000 0.0000000E+00 + 84.50000 -154.5000 0.0000000E+00 + 85.50000 -154.5000 0.0000000E+00 + 86.50000 -154.5000 0.0000000E+00 + 87.50000 -154.5000 0.0000000E+00 + 88.50000 -154.5000 0.0000000E+00 + 89.50000 -154.5000 0.0000000E+00 + -89.50000 -153.5000 0.0000000E+00 + -88.50000 -153.5000 0.0000000E+00 + -87.50000 -153.5000 0.0000000E+00 + -86.50000 -153.5000 0.0000000E+00 + -85.50000 -153.5000 0.0000000E+00 + -84.50000 -153.5000 0.0000000E+00 + -83.50000 -153.5000 0.0000000E+00 + -82.50000 -153.5000 0.0000000E+00 + -81.50000 -153.5000 0.0000000E+00 + -80.50000 -153.5000 0.0000000E+00 + -79.50000 -153.5000 0.0000000E+00 + -78.50000 -153.5000 0.0000000E+00 + -77.50000 -153.5000 0.0000000E+00 + -76.50000 -153.5000 0.0000000E+00 + -75.50000 -153.5000 0.0000000E+00 + -74.50000 -153.5000 0.0000000E+00 + -73.50000 -153.5000 0.0000000E+00 + -72.50000 -153.5000 0.0000000E+00 + -71.50000 -153.5000 0.0000000E+00 + -70.50000 -153.5000 0.0000000E+00 + -69.50000 -153.5000 0.0000000E+00 + -68.50000 -153.5000 0.0000000E+00 + -67.50000 -153.5000 0.0000000E+00 + -66.50000 -153.5000 0.0000000E+00 + -65.50000 -153.5000 0.0000000E+00 + -64.50000 -153.5000 0.0000000E+00 + -63.50000 -153.5000 0.0000000E+00 + -62.50000 -153.5000 0.0000000E+00 + -61.50000 -153.5000 0.0000000E+00 + -60.50000 -153.5000 0.0000000E+00 + -59.50000 -153.5000 0.0000000E+00 + -58.50000 -153.5000 0.0000000E+00 + -57.50000 -153.5000 0.0000000E+00 + -56.50000 -153.5000 0.0000000E+00 + -55.50000 -153.5000 0.0000000E+00 + -54.50000 -153.5000 0.0000000E+00 + -53.50000 -153.5000 0.0000000E+00 + -52.50000 -153.5000 0.0000000E+00 + -51.50000 -153.5000 0.0000000E+00 + -50.50000 -153.5000 0.0000000E+00 + -49.50000 -153.5000 0.0000000E+00 + -48.50000 -153.5000 0.0000000E+00 + -47.50000 -153.5000 0.0000000E+00 + -46.50000 -153.5000 0.0000000E+00 + -45.50000 -153.5000 0.0000000E+00 + -44.50000 -153.5000 0.0000000E+00 + -43.50000 -153.5000 0.0000000E+00 + -42.50000 -153.5000 0.0000000E+00 + -41.50000 -153.5000 0.0000000E+00 + -40.50000 -153.5000 0.0000000E+00 + -39.50000 -153.5000 0.0000000E+00 + -38.50000 -153.5000 0.0000000E+00 + -37.50000 -153.5000 0.0000000E+00 + -36.50000 -153.5000 0.0000000E+00 + -35.50000 -153.5000 0.0000000E+00 + -34.50000 -153.5000 0.0000000E+00 + -33.50000 -153.5000 0.0000000E+00 + -32.50000 -153.5000 0.0000000E+00 + -31.50000 -153.5000 0.0000000E+00 + -30.50000 -153.5000 0.0000000E+00 + -29.50000 -153.5000 0.0000000E+00 + -28.50000 -153.5000 0.0000000E+00 + -27.50000 -153.5000 0.0000000E+00 + -26.50000 -153.5000 0.0000000E+00 + -25.50000 -153.5000 0.0000000E+00 + -24.50000 -153.5000 0.0000000E+00 + -23.50000 -153.5000 0.0000000E+00 + -22.50000 -153.5000 0.0000000E+00 + -21.50000 -153.5000 0.0000000E+00 + -20.50000 -153.5000 0.0000000E+00 + -19.50000 -153.5000 0.0000000E+00 + -18.50000 -153.5000 0.0000000E+00 + -17.50000 -153.5000 0.0000000E+00 + -16.50000 -153.5000 0.0000000E+00 + -15.50000 -153.5000 0.0000000E+00 + -14.50000 -153.5000 0.0000000E+00 + -13.50000 -153.5000 0.0000000E+00 + -12.50000 -153.5000 0.0000000E+00 + -11.50000 -153.5000 0.0000000E+00 + -10.50000 -153.5000 0.0000000E+00 + -9.500000 -153.5000 0.0000000E+00 + -8.500000 -153.5000 0.0000000E+00 + -7.500000 -153.5000 0.0000000E+00 + -6.500000 -153.5000 0.0000000E+00 + -5.500000 -153.5000 0.0000000E+00 + -4.500000 -153.5000 0.0000000E+00 + -3.500000 -153.5000 0.0000000E+00 + -2.500000 -153.5000 0.0000000E+00 + -1.500000 -153.5000 0.0000000E+00 + -0.5000000 -153.5000 0.0000000E+00 + 0.5000000 -153.5000 0.0000000E+00 + 1.500000 -153.5000 0.0000000E+00 + 2.500000 -153.5000 0.0000000E+00 + 3.500000 -153.5000 0.0000000E+00 + 4.500000 -153.5000 0.0000000E+00 + 5.500000 -153.5000 0.0000000E+00 + 6.500000 -153.5000 0.0000000E+00 + 7.500000 -153.5000 0.0000000E+00 + 8.500000 -153.5000 0.0000000E+00 + 9.500000 -153.5000 0.0000000E+00 + 10.50000 -153.5000 0.0000000E+00 + 11.50000 -153.5000 0.0000000E+00 + 12.50000 -153.5000 0.0000000E+00 + 13.50000 -153.5000 0.0000000E+00 + 14.50000 -153.5000 0.0000000E+00 + 15.50000 -153.5000 0.0000000E+00 + 16.50000 -153.5000 0.0000000E+00 + 17.50000 -153.5000 0.0000000E+00 + 18.50000 -153.5000 0.0000000E+00 + 19.50000 -153.5000 0.0000000E+00 + 20.50000 -153.5000 0.0000000E+00 + 21.50000 -153.5000 0.0000000E+00 + 22.50000 -153.5000 0.0000000E+00 + 23.50000 -153.5000 0.0000000E+00 + 24.50000 -153.5000 0.0000000E+00 + 25.50000 -153.5000 0.0000000E+00 + 26.50000 -153.5000 0.0000000E+00 + 27.50000 -153.5000 0.0000000E+00 + 28.50000 -153.5000 0.0000000E+00 + 29.50000 -153.5000 0.0000000E+00 + 30.50000 -153.5000 0.0000000E+00 + 31.50000 -153.5000 0.0000000E+00 + 32.50000 -153.5000 0.0000000E+00 + 33.50000 -153.5000 0.0000000E+00 + 34.50000 -153.5000 0.0000000E+00 + 35.50000 -153.5000 0.0000000E+00 + 36.50000 -153.5000 0.0000000E+00 + 37.50000 -153.5000 0.0000000E+00 + 38.50000 -153.5000 0.0000000E+00 + 39.50000 -153.5000 0.0000000E+00 + 40.50000 -153.5000 0.0000000E+00 + 41.50000 -153.5000 0.0000000E+00 + 42.50000 -153.5000 0.0000000E+00 + 43.50000 -153.5000 0.0000000E+00 + 44.50000 -153.5000 0.0000000E+00 + 45.50000 -153.5000 0.0000000E+00 + 46.50000 -153.5000 0.0000000E+00 + 47.50000 -153.5000 0.0000000E+00 + 48.50000 -153.5000 0.0000000E+00 + 49.50000 -153.5000 0.0000000E+00 + 50.50000 -153.5000 0.0000000E+00 + 51.50000 -153.5000 0.0000000E+00 + 52.50000 -153.5000 0.0000000E+00 + 53.50000 -153.5000 0.0000000E+00 + 54.50000 -153.5000 0.0000000E+00 + 55.50000 -153.5000 0.0000000E+00 + 56.50000 -153.5000 0.0000000E+00 + 57.50000 -153.5000 0.0000000E+00 + 58.50000 -153.5000 0.0000000E+00 + 59.50000 -153.5000 0.0000000E+00 + 60.50000 -153.5000 0.0000000E+00 + 61.50000 -153.5000 0.0000000E+00 + 62.50000 -153.5000 0.0000000E+00 + 63.50000 -153.5000 0.0000000E+00 + 64.50000 -153.5000 0.0000000E+00 + 65.50000 -153.5000 0.0000000E+00 + 66.50000 -153.5000 0.0000000E+00 + 67.50000 -153.5000 0.0000000E+00 + 68.50000 -153.5000 0.0000000E+00 + 69.50000 -153.5000 0.0000000E+00 + 70.50000 -153.5000 0.0000000E+00 + 71.50000 -153.5000 0.0000000E+00 + 72.50000 -153.5000 0.0000000E+00 + 73.50000 -153.5000 0.0000000E+00 + 74.50000 -153.5000 0.0000000E+00 + 75.50000 -153.5000 0.0000000E+00 + 76.50000 -153.5000 0.0000000E+00 + 77.50000 -153.5000 0.0000000E+00 + 78.50000 -153.5000 0.0000000E+00 + 79.50000 -153.5000 0.0000000E+00 + 80.50000 -153.5000 0.0000000E+00 + 81.50000 -153.5000 0.0000000E+00 + 82.50000 -153.5000 0.0000000E+00 + 83.50000 -153.5000 0.0000000E+00 + 84.50000 -153.5000 0.0000000E+00 + 85.50000 -153.5000 0.0000000E+00 + 86.50000 -153.5000 0.0000000E+00 + 87.50000 -153.5000 0.0000000E+00 + 88.50000 -153.5000 0.0000000E+00 + 89.50000 -153.5000 0.0000000E+00 + -89.50000 -152.5000 0.0000000E+00 + -88.50000 -152.5000 0.0000000E+00 + -87.50000 -152.5000 0.0000000E+00 + -86.50000 -152.5000 0.0000000E+00 + -85.50000 -152.5000 0.0000000E+00 + -84.50000 -152.5000 0.0000000E+00 + -83.50000 -152.5000 0.0000000E+00 + -82.50000 -152.5000 0.0000000E+00 + -81.50000 -152.5000 0.0000000E+00 + -80.50000 -152.5000 0.0000000E+00 + -79.50000 -152.5000 0.0000000E+00 + -78.50000 -152.5000 0.0000000E+00 + -77.50000 -152.5000 0.0000000E+00 + -76.50000 -152.5000 0.0000000E+00 + -75.50000 -152.5000 0.0000000E+00 + -74.50000 -152.5000 0.0000000E+00 + -73.50000 -152.5000 0.0000000E+00 + -72.50000 -152.5000 0.0000000E+00 + -71.50000 -152.5000 0.0000000E+00 + -70.50000 -152.5000 0.0000000E+00 + -69.50000 -152.5000 0.0000000E+00 + -68.50000 -152.5000 0.0000000E+00 + -67.50000 -152.5000 0.0000000E+00 + -66.50000 -152.5000 0.0000000E+00 + -65.50000 -152.5000 0.0000000E+00 + -64.50000 -152.5000 0.0000000E+00 + -63.50000 -152.5000 0.0000000E+00 + -62.50000 -152.5000 0.0000000E+00 + -61.50000 -152.5000 0.0000000E+00 + -60.50000 -152.5000 0.0000000E+00 + -59.50000 -152.5000 0.0000000E+00 + -58.50000 -152.5000 0.0000000E+00 + -57.50000 -152.5000 0.0000000E+00 + -56.50000 -152.5000 0.0000000E+00 + -55.50000 -152.5000 0.0000000E+00 + -54.50000 -152.5000 0.0000000E+00 + -53.50000 -152.5000 0.0000000E+00 + -52.50000 -152.5000 0.0000000E+00 + -51.50000 -152.5000 0.0000000E+00 + -50.50000 -152.5000 0.0000000E+00 + -49.50000 -152.5000 0.0000000E+00 + -48.50000 -152.5000 0.0000000E+00 + -47.50000 -152.5000 0.0000000E+00 + -46.50000 -152.5000 0.0000000E+00 + -45.50000 -152.5000 0.0000000E+00 + -44.50000 -152.5000 0.0000000E+00 + -43.50000 -152.5000 0.0000000E+00 + -42.50000 -152.5000 0.0000000E+00 + -41.50000 -152.5000 0.0000000E+00 + -40.50000 -152.5000 0.0000000E+00 + -39.50000 -152.5000 0.0000000E+00 + -38.50000 -152.5000 0.0000000E+00 + -37.50000 -152.5000 0.0000000E+00 + -36.50000 -152.5000 0.0000000E+00 + -35.50000 -152.5000 0.0000000E+00 + -34.50000 -152.5000 0.0000000E+00 + -33.50000 -152.5000 0.0000000E+00 + -32.50000 -152.5000 0.0000000E+00 + -31.50000 -152.5000 0.0000000E+00 + -30.50000 -152.5000 0.0000000E+00 + -29.50000 -152.5000 0.0000000E+00 + -28.50000 -152.5000 0.0000000E+00 + -27.50000 -152.5000 0.0000000E+00 + -26.50000 -152.5000 0.0000000E+00 + -25.50000 -152.5000 0.0000000E+00 + -24.50000 -152.5000 0.0000000E+00 + -23.50000 -152.5000 0.0000000E+00 + -22.50000 -152.5000 0.0000000E+00 + -21.50000 -152.5000 0.0000000E+00 + -20.50000 -152.5000 0.0000000E+00 + -19.50000 -152.5000 0.0000000E+00 + -18.50000 -152.5000 0.0000000E+00 + -17.50000 -152.5000 0.0000000E+00 + -16.50000 -152.5000 0.0000000E+00 + -15.50000 -152.5000 0.0000000E+00 + -14.50000 -152.5000 0.0000000E+00 + -13.50000 -152.5000 0.0000000E+00 + -12.50000 -152.5000 0.0000000E+00 + -11.50000 -152.5000 0.0000000E+00 + -10.50000 -152.5000 0.0000000E+00 + -9.500000 -152.5000 0.0000000E+00 + -8.500000 -152.5000 0.0000000E+00 + -7.500000 -152.5000 0.0000000E+00 + -6.500000 -152.5000 0.0000000E+00 + -5.500000 -152.5000 0.0000000E+00 + -4.500000 -152.5000 0.0000000E+00 + -3.500000 -152.5000 0.0000000E+00 + -2.500000 -152.5000 0.0000000E+00 + -1.500000 -152.5000 0.0000000E+00 + -0.5000000 -152.5000 0.0000000E+00 + 0.5000000 -152.5000 0.0000000E+00 + 1.500000 -152.5000 0.0000000E+00 + 2.500000 -152.5000 0.0000000E+00 + 3.500000 -152.5000 0.0000000E+00 + 4.500000 -152.5000 0.0000000E+00 + 5.500000 -152.5000 0.0000000E+00 + 6.500000 -152.5000 0.0000000E+00 + 7.500000 -152.5000 0.0000000E+00 + 8.500000 -152.5000 0.0000000E+00 + 9.500000 -152.5000 0.0000000E+00 + 10.50000 -152.5000 0.0000000E+00 + 11.50000 -152.5000 0.0000000E+00 + 12.50000 -152.5000 0.0000000E+00 + 13.50000 -152.5000 0.0000000E+00 + 14.50000 -152.5000 0.0000000E+00 + 15.50000 -152.5000 0.0000000E+00 + 16.50000 -152.5000 0.0000000E+00 + 17.50000 -152.5000 0.0000000E+00 + 18.50000 -152.5000 0.0000000E+00 + 19.50000 -152.5000 0.0000000E+00 + 20.50000 -152.5000 0.0000000E+00 + 21.50000 -152.5000 0.0000000E+00 + 22.50000 -152.5000 0.0000000E+00 + 23.50000 -152.5000 0.0000000E+00 + 24.50000 -152.5000 0.0000000E+00 + 25.50000 -152.5000 0.0000000E+00 + 26.50000 -152.5000 0.0000000E+00 + 27.50000 -152.5000 0.0000000E+00 + 28.50000 -152.5000 0.0000000E+00 + 29.50000 -152.5000 0.0000000E+00 + 30.50000 -152.5000 0.0000000E+00 + 31.50000 -152.5000 0.0000000E+00 + 32.50000 -152.5000 0.0000000E+00 + 33.50000 -152.5000 0.0000000E+00 + 34.50000 -152.5000 0.0000000E+00 + 35.50000 -152.5000 0.0000000E+00 + 36.50000 -152.5000 0.0000000E+00 + 37.50000 -152.5000 0.0000000E+00 + 38.50000 -152.5000 0.0000000E+00 + 39.50000 -152.5000 0.0000000E+00 + 40.50000 -152.5000 0.0000000E+00 + 41.50000 -152.5000 0.0000000E+00 + 42.50000 -152.5000 0.0000000E+00 + 43.50000 -152.5000 0.0000000E+00 + 44.50000 -152.5000 0.0000000E+00 + 45.50000 -152.5000 0.0000000E+00 + 46.50000 -152.5000 0.0000000E+00 + 47.50000 -152.5000 0.0000000E+00 + 48.50000 -152.5000 0.0000000E+00 + 49.50000 -152.5000 0.0000000E+00 + 50.50000 -152.5000 0.0000000E+00 + 51.50000 -152.5000 0.0000000E+00 + 52.50000 -152.5000 0.0000000E+00 + 53.50000 -152.5000 0.0000000E+00 + 54.50000 -152.5000 0.0000000E+00 + 55.50000 -152.5000 0.0000000E+00 + 56.50000 -152.5000 0.0000000E+00 + 57.50000 -152.5000 0.0000000E+00 + 58.50000 -152.5000 0.0000000E+00 + 59.50000 -152.5000 0.0000000E+00 + 60.50000 -152.5000 0.0000000E+00 + 61.50000 -152.5000 0.0000000E+00 + 62.50000 -152.5000 0.0000000E+00 + 63.50000 -152.5000 0.0000000E+00 + 64.50000 -152.5000 0.0000000E+00 + 65.50000 -152.5000 0.0000000E+00 + 66.50000 -152.5000 0.0000000E+00 + 67.50000 -152.5000 0.0000000E+00 + 68.50000 -152.5000 0.0000000E+00 + 69.50000 -152.5000 0.0000000E+00 + 70.50000 -152.5000 0.0000000E+00 + 71.50000 -152.5000 0.0000000E+00 + 72.50000 -152.5000 0.0000000E+00 + 73.50000 -152.5000 0.0000000E+00 + 74.50000 -152.5000 0.0000000E+00 + 75.50000 -152.5000 0.0000000E+00 + 76.50000 -152.5000 0.0000000E+00 + 77.50000 -152.5000 0.0000000E+00 + 78.50000 -152.5000 0.0000000E+00 + 79.50000 -152.5000 0.0000000E+00 + 80.50000 -152.5000 0.0000000E+00 + 81.50000 -152.5000 0.0000000E+00 + 82.50000 -152.5000 0.0000000E+00 + 83.50000 -152.5000 0.0000000E+00 + 84.50000 -152.5000 0.0000000E+00 + 85.50000 -152.5000 0.0000000E+00 + 86.50000 -152.5000 0.0000000E+00 + 87.50000 -152.5000 0.0000000E+00 + 88.50000 -152.5000 0.0000000E+00 + 89.50000 -152.5000 0.0000000E+00 + -89.50000 -151.5000 0.0000000E+00 + -88.50000 -151.5000 0.0000000E+00 + -87.50000 -151.5000 0.0000000E+00 + -86.50000 -151.5000 0.0000000E+00 + -85.50000 -151.5000 0.0000000E+00 + -84.50000 -151.5000 0.0000000E+00 + -83.50000 -151.5000 0.0000000E+00 + -82.50000 -151.5000 0.0000000E+00 + -81.50000 -151.5000 0.0000000E+00 + -80.50000 -151.5000 0.0000000E+00 + -79.50000 -151.5000 0.0000000E+00 + -78.50000 -151.5000 0.0000000E+00 + -77.50000 -151.5000 0.0000000E+00 + -76.50000 -151.5000 0.0000000E+00 + -75.50000 -151.5000 0.0000000E+00 + -74.50000 -151.5000 0.0000000E+00 + -73.50000 -151.5000 0.0000000E+00 + -72.50000 -151.5000 0.0000000E+00 + -71.50000 -151.5000 0.0000000E+00 + -70.50000 -151.5000 0.0000000E+00 + -69.50000 -151.5000 0.0000000E+00 + -68.50000 -151.5000 0.0000000E+00 + -67.50000 -151.5000 0.0000000E+00 + -66.50000 -151.5000 0.0000000E+00 + -65.50000 -151.5000 0.0000000E+00 + -64.50000 -151.5000 0.0000000E+00 + -63.50000 -151.5000 0.0000000E+00 + -62.50000 -151.5000 0.0000000E+00 + -61.50000 -151.5000 0.0000000E+00 + -60.50000 -151.5000 0.0000000E+00 + -59.50000 -151.5000 0.0000000E+00 + -58.50000 -151.5000 0.0000000E+00 + -57.50000 -151.5000 0.0000000E+00 + -56.50000 -151.5000 0.0000000E+00 + -55.50000 -151.5000 0.0000000E+00 + -54.50000 -151.5000 0.0000000E+00 + -53.50000 -151.5000 0.0000000E+00 + -52.50000 -151.5000 0.0000000E+00 + -51.50000 -151.5000 0.0000000E+00 + -50.50000 -151.5000 0.0000000E+00 + -49.50000 -151.5000 0.0000000E+00 + -48.50000 -151.5000 0.0000000E+00 + -47.50000 -151.5000 0.0000000E+00 + -46.50000 -151.5000 0.0000000E+00 + -45.50000 -151.5000 0.0000000E+00 + -44.50000 -151.5000 0.0000000E+00 + -43.50000 -151.5000 0.0000000E+00 + -42.50000 -151.5000 0.0000000E+00 + -41.50000 -151.5000 0.0000000E+00 + -40.50000 -151.5000 0.0000000E+00 + -39.50000 -151.5000 0.0000000E+00 + -38.50000 -151.5000 0.0000000E+00 + -37.50000 -151.5000 0.0000000E+00 + -36.50000 -151.5000 0.0000000E+00 + -35.50000 -151.5000 0.0000000E+00 + -34.50000 -151.5000 0.0000000E+00 + -33.50000 -151.5000 0.0000000E+00 + -32.50000 -151.5000 0.0000000E+00 + -31.50000 -151.5000 0.0000000E+00 + -30.50000 -151.5000 0.0000000E+00 + -29.50000 -151.5000 0.0000000E+00 + -28.50000 -151.5000 0.0000000E+00 + -27.50000 -151.5000 0.0000000E+00 + -26.50000 -151.5000 0.0000000E+00 + -25.50000 -151.5000 0.0000000E+00 + -24.50000 -151.5000 0.0000000E+00 + -23.50000 -151.5000 0.0000000E+00 + -22.50000 -151.5000 0.0000000E+00 + -21.50000 -151.5000 0.0000000E+00 + -20.50000 -151.5000 0.0000000E+00 + -19.50000 -151.5000 0.0000000E+00 + -18.50000 -151.5000 0.0000000E+00 + -17.50000 -151.5000 0.0000000E+00 + -16.50000 -151.5000 0.0000000E+00 + -15.50000 -151.5000 0.0000000E+00 + -14.50000 -151.5000 0.0000000E+00 + -13.50000 -151.5000 0.0000000E+00 + -12.50000 -151.5000 0.0000000E+00 + -11.50000 -151.5000 0.0000000E+00 + -10.50000 -151.5000 0.0000000E+00 + -9.500000 -151.5000 0.0000000E+00 + -8.500000 -151.5000 0.0000000E+00 + -7.500000 -151.5000 0.0000000E+00 + -6.500000 -151.5000 0.0000000E+00 + -5.500000 -151.5000 0.0000000E+00 + -4.500000 -151.5000 0.0000000E+00 + -3.500000 -151.5000 0.0000000E+00 + -2.500000 -151.5000 0.0000000E+00 + -1.500000 -151.5000 0.0000000E+00 + -0.5000000 -151.5000 0.0000000E+00 + 0.5000000 -151.5000 0.0000000E+00 + 1.500000 -151.5000 0.0000000E+00 + 2.500000 -151.5000 0.0000000E+00 + 3.500000 -151.5000 0.0000000E+00 + 4.500000 -151.5000 0.0000000E+00 + 5.500000 -151.5000 0.0000000E+00 + 6.500000 -151.5000 0.0000000E+00 + 7.500000 -151.5000 0.0000000E+00 + 8.500000 -151.5000 0.0000000E+00 + 9.500000 -151.5000 0.0000000E+00 + 10.50000 -151.5000 0.0000000E+00 + 11.50000 -151.5000 0.0000000E+00 + 12.50000 -151.5000 0.0000000E+00 + 13.50000 -151.5000 0.0000000E+00 + 14.50000 -151.5000 0.0000000E+00 + 15.50000 -151.5000 0.0000000E+00 + 16.50000 -151.5000 0.0000000E+00 + 17.50000 -151.5000 0.0000000E+00 + 18.50000 -151.5000 0.0000000E+00 + 19.50000 -151.5000 0.0000000E+00 + 20.50000 -151.5000 0.0000000E+00 + 21.50000 -151.5000 0.0000000E+00 + 22.50000 -151.5000 0.0000000E+00 + 23.50000 -151.5000 0.0000000E+00 + 24.50000 -151.5000 0.0000000E+00 + 25.50000 -151.5000 0.0000000E+00 + 26.50000 -151.5000 0.0000000E+00 + 27.50000 -151.5000 0.0000000E+00 + 28.50000 -151.5000 0.0000000E+00 + 29.50000 -151.5000 0.0000000E+00 + 30.50000 -151.5000 0.0000000E+00 + 31.50000 -151.5000 0.0000000E+00 + 32.50000 -151.5000 0.0000000E+00 + 33.50000 -151.5000 0.0000000E+00 + 34.50000 -151.5000 0.0000000E+00 + 35.50000 -151.5000 0.0000000E+00 + 36.50000 -151.5000 0.0000000E+00 + 37.50000 -151.5000 0.0000000E+00 + 38.50000 -151.5000 0.0000000E+00 + 39.50000 -151.5000 0.0000000E+00 + 40.50000 -151.5000 0.0000000E+00 + 41.50000 -151.5000 0.0000000E+00 + 42.50000 -151.5000 0.0000000E+00 + 43.50000 -151.5000 0.0000000E+00 + 44.50000 -151.5000 0.0000000E+00 + 45.50000 -151.5000 0.0000000E+00 + 46.50000 -151.5000 0.0000000E+00 + 47.50000 -151.5000 0.0000000E+00 + 48.50000 -151.5000 0.0000000E+00 + 49.50000 -151.5000 0.0000000E+00 + 50.50000 -151.5000 0.0000000E+00 + 51.50000 -151.5000 0.0000000E+00 + 52.50000 -151.5000 0.0000000E+00 + 53.50000 -151.5000 0.0000000E+00 + 54.50000 -151.5000 0.0000000E+00 + 55.50000 -151.5000 0.0000000E+00 + 56.50000 -151.5000 0.0000000E+00 + 57.50000 -151.5000 0.0000000E+00 + 58.50000 -151.5000 0.0000000E+00 + 59.50000 -151.5000 0.0000000E+00 + 60.50000 -151.5000 0.0000000E+00 + 61.50000 -151.5000 0.0000000E+00 + 62.50000 -151.5000 0.0000000E+00 + 63.50000 -151.5000 0.0000000E+00 + 64.50000 -151.5000 0.0000000E+00 + 65.50000 -151.5000 0.0000000E+00 + 66.50000 -151.5000 0.0000000E+00 + 67.50000 -151.5000 0.0000000E+00 + 68.50000 -151.5000 0.0000000E+00 + 69.50000 -151.5000 0.0000000E+00 + 70.50000 -151.5000 0.0000000E+00 + 71.50000 -151.5000 0.0000000E+00 + 72.50000 -151.5000 0.0000000E+00 + 73.50000 -151.5000 0.0000000E+00 + 74.50000 -151.5000 0.0000000E+00 + 75.50000 -151.5000 0.0000000E+00 + 76.50000 -151.5000 0.0000000E+00 + 77.50000 -151.5000 0.0000000E+00 + 78.50000 -151.5000 0.0000000E+00 + 79.50000 -151.5000 0.0000000E+00 + 80.50000 -151.5000 0.0000000E+00 + 81.50000 -151.5000 0.0000000E+00 + 82.50000 -151.5000 0.0000000E+00 + 83.50000 -151.5000 0.0000000E+00 + 84.50000 -151.5000 0.0000000E+00 + 85.50000 -151.5000 0.0000000E+00 + 86.50000 -151.5000 0.0000000E+00 + 87.50000 -151.5000 0.0000000E+00 + 88.50000 -151.5000 0.0000000E+00 + 89.50000 -151.5000 0.0000000E+00 + -89.50000 -150.5000 0.0000000E+00 + -88.50000 -150.5000 0.0000000E+00 + -87.50000 -150.5000 0.0000000E+00 + -86.50000 -150.5000 0.0000000E+00 + -85.50000 -150.5000 0.0000000E+00 + -84.50000 -150.5000 0.0000000E+00 + -83.50000 -150.5000 0.0000000E+00 + -82.50000 -150.5000 0.0000000E+00 + -81.50000 -150.5000 0.0000000E+00 + -80.50000 -150.5000 0.0000000E+00 + -79.50000 -150.5000 0.0000000E+00 + -78.50000 -150.5000 0.0000000E+00 + -77.50000 -150.5000 0.0000000E+00 + -76.50000 -150.5000 0.0000000E+00 + -75.50000 -150.5000 0.0000000E+00 + -74.50000 -150.5000 0.0000000E+00 + -73.50000 -150.5000 0.0000000E+00 + -72.50000 -150.5000 0.0000000E+00 + -71.50000 -150.5000 0.0000000E+00 + -70.50000 -150.5000 0.0000000E+00 + -69.50000 -150.5000 0.0000000E+00 + -68.50000 -150.5000 0.0000000E+00 + -67.50000 -150.5000 0.0000000E+00 + -66.50000 -150.5000 0.0000000E+00 + -65.50000 -150.5000 0.0000000E+00 + -64.50000 -150.5000 0.0000000E+00 + -63.50000 -150.5000 0.0000000E+00 + -62.50000 -150.5000 0.0000000E+00 + -61.50000 -150.5000 0.0000000E+00 + -60.50000 -150.5000 0.0000000E+00 + -59.50000 -150.5000 0.0000000E+00 + -58.50000 -150.5000 0.0000000E+00 + -57.50000 -150.5000 0.0000000E+00 + -56.50000 -150.5000 0.0000000E+00 + -55.50000 -150.5000 0.0000000E+00 + -54.50000 -150.5000 0.0000000E+00 + -53.50000 -150.5000 0.0000000E+00 + -52.50000 -150.5000 0.0000000E+00 + -51.50000 -150.5000 0.0000000E+00 + -50.50000 -150.5000 0.0000000E+00 + -49.50000 -150.5000 0.0000000E+00 + -48.50000 -150.5000 0.0000000E+00 + -47.50000 -150.5000 0.0000000E+00 + -46.50000 -150.5000 0.0000000E+00 + -45.50000 -150.5000 0.0000000E+00 + -44.50000 -150.5000 0.0000000E+00 + -43.50000 -150.5000 0.0000000E+00 + -42.50000 -150.5000 0.0000000E+00 + -41.50000 -150.5000 0.0000000E+00 + -40.50000 -150.5000 0.0000000E+00 + -39.50000 -150.5000 0.0000000E+00 + -38.50000 -150.5000 0.0000000E+00 + -37.50000 -150.5000 0.0000000E+00 + -36.50000 -150.5000 0.0000000E+00 + -35.50000 -150.5000 0.0000000E+00 + -34.50000 -150.5000 0.0000000E+00 + -33.50000 -150.5000 0.0000000E+00 + -32.50000 -150.5000 0.0000000E+00 + -31.50000 -150.5000 0.0000000E+00 + -30.50000 -150.5000 0.0000000E+00 + -29.50000 -150.5000 0.0000000E+00 + -28.50000 -150.5000 0.0000000E+00 + -27.50000 -150.5000 0.0000000E+00 + -26.50000 -150.5000 0.0000000E+00 + -25.50000 -150.5000 0.0000000E+00 + -24.50000 -150.5000 0.0000000E+00 + -23.50000 -150.5000 0.0000000E+00 + -22.50000 -150.5000 0.0000000E+00 + -21.50000 -150.5000 0.0000000E+00 + -20.50000 -150.5000 0.0000000E+00 + -19.50000 -150.5000 0.0000000E+00 + -18.50000 -150.5000 0.0000000E+00 + -17.50000 -150.5000 0.0000000E+00 + -16.50000 -150.5000 0.0000000E+00 + -15.50000 -150.5000 0.0000000E+00 + -14.50000 -150.5000 0.0000000E+00 + -13.50000 -150.5000 0.0000000E+00 + -12.50000 -150.5000 0.0000000E+00 + -11.50000 -150.5000 0.0000000E+00 + -10.50000 -150.5000 0.0000000E+00 + -9.500000 -150.5000 0.0000000E+00 + -8.500000 -150.5000 0.0000000E+00 + -7.500000 -150.5000 0.0000000E+00 + -6.500000 -150.5000 0.0000000E+00 + -5.500000 -150.5000 0.0000000E+00 + -4.500000 -150.5000 0.0000000E+00 + -3.500000 -150.5000 0.0000000E+00 + -2.500000 -150.5000 0.0000000E+00 + -1.500000 -150.5000 0.0000000E+00 + -0.5000000 -150.5000 0.0000000E+00 + 0.5000000 -150.5000 0.0000000E+00 + 1.500000 -150.5000 0.0000000E+00 + 2.500000 -150.5000 0.0000000E+00 + 3.500000 -150.5000 0.0000000E+00 + 4.500000 -150.5000 0.0000000E+00 + 5.500000 -150.5000 0.0000000E+00 + 6.500000 -150.5000 0.0000000E+00 + 7.500000 -150.5000 0.0000000E+00 + 8.500000 -150.5000 0.0000000E+00 + 9.500000 -150.5000 0.0000000E+00 + 10.50000 -150.5000 0.0000000E+00 + 11.50000 -150.5000 0.0000000E+00 + 12.50000 -150.5000 0.0000000E+00 + 13.50000 -150.5000 0.0000000E+00 + 14.50000 -150.5000 0.0000000E+00 + 15.50000 -150.5000 0.0000000E+00 + 16.50000 -150.5000 0.0000000E+00 + 17.50000 -150.5000 0.0000000E+00 + 18.50000 -150.5000 0.0000000E+00 + 19.50000 -150.5000 0.0000000E+00 + 20.50000 -150.5000 0.0000000E+00 + 21.50000 -150.5000 0.0000000E+00 + 22.50000 -150.5000 0.0000000E+00 + 23.50000 -150.5000 0.0000000E+00 + 24.50000 -150.5000 0.0000000E+00 + 25.50000 -150.5000 0.0000000E+00 + 26.50000 -150.5000 0.0000000E+00 + 27.50000 -150.5000 0.0000000E+00 + 28.50000 -150.5000 0.0000000E+00 + 29.50000 -150.5000 0.0000000E+00 + 30.50000 -150.5000 0.0000000E+00 + 31.50000 -150.5000 0.0000000E+00 + 32.50000 -150.5000 0.0000000E+00 + 33.50000 -150.5000 0.0000000E+00 + 34.50000 -150.5000 0.0000000E+00 + 35.50000 -150.5000 0.0000000E+00 + 36.50000 -150.5000 0.0000000E+00 + 37.50000 -150.5000 0.0000000E+00 + 38.50000 -150.5000 0.0000000E+00 + 39.50000 -150.5000 0.0000000E+00 + 40.50000 -150.5000 0.0000000E+00 + 41.50000 -150.5000 0.0000000E+00 + 42.50000 -150.5000 0.0000000E+00 + 43.50000 -150.5000 0.0000000E+00 + 44.50000 -150.5000 0.0000000E+00 + 45.50000 -150.5000 0.0000000E+00 + 46.50000 -150.5000 0.0000000E+00 + 47.50000 -150.5000 0.0000000E+00 + 48.50000 -150.5000 0.0000000E+00 + 49.50000 -150.5000 0.0000000E+00 + 50.50000 -150.5000 0.0000000E+00 + 51.50000 -150.5000 0.0000000E+00 + 52.50000 -150.5000 0.0000000E+00 + 53.50000 -150.5000 0.0000000E+00 + 54.50000 -150.5000 0.0000000E+00 + 55.50000 -150.5000 0.0000000E+00 + 56.50000 -150.5000 0.0000000E+00 + 57.50000 -150.5000 0.0000000E+00 + 58.50000 -150.5000 0.0000000E+00 + 59.50000 -150.5000 0.0000000E+00 + 60.50000 -150.5000 0.0000000E+00 + 61.50000 -150.5000 0.0000000E+00 + 62.50000 -150.5000 0.0000000E+00 + 63.50000 -150.5000 0.0000000E+00 + 64.50000 -150.5000 0.0000000E+00 + 65.50000 -150.5000 0.0000000E+00 + 66.50000 -150.5000 0.0000000E+00 + 67.50000 -150.5000 0.0000000E+00 + 68.50000 -150.5000 0.0000000E+00 + 69.50000 -150.5000 0.0000000E+00 + 70.50000 -150.5000 0.0000000E+00 + 71.50000 -150.5000 0.0000000E+00 + 72.50000 -150.5000 0.0000000E+00 + 73.50000 -150.5000 0.0000000E+00 + 74.50000 -150.5000 0.0000000E+00 + 75.50000 -150.5000 0.0000000E+00 + 76.50000 -150.5000 0.0000000E+00 + 77.50000 -150.5000 0.0000000E+00 + 78.50000 -150.5000 0.0000000E+00 + 79.50000 -150.5000 0.0000000E+00 + 80.50000 -150.5000 0.0000000E+00 + 81.50000 -150.5000 0.0000000E+00 + 82.50000 -150.5000 0.0000000E+00 + 83.50000 -150.5000 0.0000000E+00 + 84.50000 -150.5000 0.0000000E+00 + 85.50000 -150.5000 0.0000000E+00 + 86.50000 -150.5000 0.0000000E+00 + 87.50000 -150.5000 0.0000000E+00 + 88.50000 -150.5000 0.0000000E+00 + 89.50000 -150.5000 0.0000000E+00 + -89.50000 -149.5000 0.0000000E+00 + -88.50000 -149.5000 0.0000000E+00 + -87.50000 -149.5000 0.0000000E+00 + -86.50000 -149.5000 0.0000000E+00 + -85.50000 -149.5000 0.0000000E+00 + -84.50000 -149.5000 0.0000000E+00 + -83.50000 -149.5000 0.0000000E+00 + -82.50000 -149.5000 0.0000000E+00 + -81.50000 -149.5000 0.0000000E+00 + -80.50000 -149.5000 0.0000000E+00 + -79.50000 -149.5000 0.0000000E+00 + -78.50000 -149.5000 0.0000000E+00 + -77.50000 -149.5000 0.0000000E+00 + -76.50000 -149.5000 0.0000000E+00 + -75.50000 -149.5000 0.0000000E+00 + -74.50000 -149.5000 0.0000000E+00 + -73.50000 -149.5000 0.0000000E+00 + -72.50000 -149.5000 0.0000000E+00 + -71.50000 -149.5000 0.0000000E+00 + -70.50000 -149.5000 0.0000000E+00 + -69.50000 -149.5000 0.0000000E+00 + -68.50000 -149.5000 0.0000000E+00 + -67.50000 -149.5000 0.0000000E+00 + -66.50000 -149.5000 0.0000000E+00 + -65.50000 -149.5000 0.0000000E+00 + -64.50000 -149.5000 0.0000000E+00 + -63.50000 -149.5000 0.0000000E+00 + -62.50000 -149.5000 0.0000000E+00 + -61.50000 -149.5000 0.0000000E+00 + -60.50000 -149.5000 0.0000000E+00 + -59.50000 -149.5000 0.0000000E+00 + -58.50000 -149.5000 0.0000000E+00 + -57.50000 -149.5000 0.0000000E+00 + -56.50000 -149.5000 0.0000000E+00 + -55.50000 -149.5000 0.0000000E+00 + -54.50000 -149.5000 0.0000000E+00 + -53.50000 -149.5000 0.0000000E+00 + -52.50000 -149.5000 0.0000000E+00 + -51.50000 -149.5000 0.0000000E+00 + -50.50000 -149.5000 0.0000000E+00 + -49.50000 -149.5000 0.0000000E+00 + -48.50000 -149.5000 0.0000000E+00 + -47.50000 -149.5000 0.0000000E+00 + -46.50000 -149.5000 0.0000000E+00 + -45.50000 -149.5000 0.0000000E+00 + -44.50000 -149.5000 0.0000000E+00 + -43.50000 -149.5000 0.0000000E+00 + -42.50000 -149.5000 0.0000000E+00 + -41.50000 -149.5000 0.0000000E+00 + -40.50000 -149.5000 0.0000000E+00 + -39.50000 -149.5000 0.0000000E+00 + -38.50000 -149.5000 0.0000000E+00 + -37.50000 -149.5000 0.0000000E+00 + -36.50000 -149.5000 0.0000000E+00 + -35.50000 -149.5000 0.0000000E+00 + -34.50000 -149.5000 0.0000000E+00 + -33.50000 -149.5000 0.0000000E+00 + -32.50000 -149.5000 0.0000000E+00 + -31.50000 -149.5000 0.0000000E+00 + -30.50000 -149.5000 0.0000000E+00 + -29.50000 -149.5000 0.0000000E+00 + -28.50000 -149.5000 0.0000000E+00 + -27.50000 -149.5000 0.0000000E+00 + -26.50000 -149.5000 0.0000000E+00 + -25.50000 -149.5000 0.0000000E+00 + -24.50000 -149.5000 0.0000000E+00 + -23.50000 -149.5000 0.0000000E+00 + -22.50000 -149.5000 0.0000000E+00 + -21.50000 -149.5000 0.0000000E+00 + -20.50000 -149.5000 0.0000000E+00 + -19.50000 -149.5000 0.0000000E+00 + -18.50000 -149.5000 0.0000000E+00 + -17.50000 -149.5000 0.0000000E+00 + -16.50000 -149.5000 0.0000000E+00 + -15.50000 -149.5000 0.0000000E+00 + -14.50000 -149.5000 0.0000000E+00 + -13.50000 -149.5000 0.0000000E+00 + -12.50000 -149.5000 0.0000000E+00 + -11.50000 -149.5000 0.0000000E+00 + -10.50000 -149.5000 0.0000000E+00 + -9.500000 -149.5000 0.0000000E+00 + -8.500000 -149.5000 0.0000000E+00 + -7.500000 -149.5000 0.0000000E+00 + -6.500000 -149.5000 0.0000000E+00 + -5.500000 -149.5000 0.0000000E+00 + -4.500000 -149.5000 0.0000000E+00 + -3.500000 -149.5000 0.0000000E+00 + -2.500000 -149.5000 0.0000000E+00 + -1.500000 -149.5000 0.0000000E+00 + -0.5000000 -149.5000 0.0000000E+00 + 0.5000000 -149.5000 0.0000000E+00 + 1.500000 -149.5000 0.0000000E+00 + 2.500000 -149.5000 0.0000000E+00 + 3.500000 -149.5000 0.0000000E+00 + 4.500000 -149.5000 0.0000000E+00 + 5.500000 -149.5000 0.0000000E+00 + 6.500000 -149.5000 0.0000000E+00 + 7.500000 -149.5000 0.0000000E+00 + 8.500000 -149.5000 0.0000000E+00 + 9.500000 -149.5000 0.0000000E+00 + 10.50000 -149.5000 0.0000000E+00 + 11.50000 -149.5000 0.0000000E+00 + 12.50000 -149.5000 0.0000000E+00 + 13.50000 -149.5000 0.0000000E+00 + 14.50000 -149.5000 0.0000000E+00 + 15.50000 -149.5000 0.0000000E+00 + 16.50000 -149.5000 0.0000000E+00 + 17.50000 -149.5000 0.0000000E+00 + 18.50000 -149.5000 0.0000000E+00 + 19.50000 -149.5000 0.0000000E+00 + 20.50000 -149.5000 0.0000000E+00 + 21.50000 -149.5000 0.0000000E+00 + 22.50000 -149.5000 0.0000000E+00 + 23.50000 -149.5000 0.0000000E+00 + 24.50000 -149.5000 0.0000000E+00 + 25.50000 -149.5000 0.0000000E+00 + 26.50000 -149.5000 0.0000000E+00 + 27.50000 -149.5000 0.0000000E+00 + 28.50000 -149.5000 0.0000000E+00 + 29.50000 -149.5000 0.0000000E+00 + 30.50000 -149.5000 0.0000000E+00 + 31.50000 -149.5000 0.0000000E+00 + 32.50000 -149.5000 0.0000000E+00 + 33.50000 -149.5000 0.0000000E+00 + 34.50000 -149.5000 0.0000000E+00 + 35.50000 -149.5000 0.0000000E+00 + 36.50000 -149.5000 0.0000000E+00 + 37.50000 -149.5000 0.0000000E+00 + 38.50000 -149.5000 0.0000000E+00 + 39.50000 -149.5000 0.0000000E+00 + 40.50000 -149.5000 0.0000000E+00 + 41.50000 -149.5000 0.0000000E+00 + 42.50000 -149.5000 0.0000000E+00 + 43.50000 -149.5000 0.0000000E+00 + 44.50000 -149.5000 0.0000000E+00 + 45.50000 -149.5000 0.0000000E+00 + 46.50000 -149.5000 0.0000000E+00 + 47.50000 -149.5000 0.0000000E+00 + 48.50000 -149.5000 0.0000000E+00 + 49.50000 -149.5000 0.0000000E+00 + 50.50000 -149.5000 0.0000000E+00 + 51.50000 -149.5000 0.0000000E+00 + 52.50000 -149.5000 0.0000000E+00 + 53.50000 -149.5000 0.0000000E+00 + 54.50000 -149.5000 0.0000000E+00 + 55.50000 -149.5000 0.0000000E+00 + 56.50000 -149.5000 0.0000000E+00 + 57.50000 -149.5000 0.0000000E+00 + 58.50000 -149.5000 0.0000000E+00 + 59.50000 -149.5000 0.0000000E+00 + 60.50000 -149.5000 0.0000000E+00 + 61.50000 -149.5000 0.0000000E+00 + 62.50000 -149.5000 0.0000000E+00 + 63.50000 -149.5000 0.0000000E+00 + 64.50000 -149.5000 0.0000000E+00 + 65.50000 -149.5000 0.0000000E+00 + 66.50000 -149.5000 0.0000000E+00 + 67.50000 -149.5000 0.0000000E+00 + 68.50000 -149.5000 0.0000000E+00 + 69.50000 -149.5000 0.0000000E+00 + 70.50000 -149.5000 0.0000000E+00 + 71.50000 -149.5000 0.0000000E+00 + 72.50000 -149.5000 0.0000000E+00 + 73.50000 -149.5000 0.0000000E+00 + 74.50000 -149.5000 0.0000000E+00 + 75.50000 -149.5000 0.0000000E+00 + 76.50000 -149.5000 0.0000000E+00 + 77.50000 -149.5000 0.0000000E+00 + 78.50000 -149.5000 0.0000000E+00 + 79.50000 -149.5000 0.0000000E+00 + 80.50000 -149.5000 0.0000000E+00 + 81.50000 -149.5000 0.0000000E+00 + 82.50000 -149.5000 0.0000000E+00 + 83.50000 -149.5000 0.0000000E+00 + 84.50000 -149.5000 0.0000000E+00 + 85.50000 -149.5000 0.0000000E+00 + 86.50000 -149.5000 0.0000000E+00 + 87.50000 -149.5000 0.0000000E+00 + 88.50000 -149.5000 0.0000000E+00 + 89.50000 -149.5000 0.0000000E+00 + -89.50000 -148.5000 0.0000000E+00 + -88.50000 -148.5000 0.0000000E+00 + -87.50000 -148.5000 0.0000000E+00 + -86.50000 -148.5000 0.0000000E+00 + -85.50000 -148.5000 0.0000000E+00 + -84.50000 -148.5000 0.0000000E+00 + -83.50000 -148.5000 0.0000000E+00 + -82.50000 -148.5000 0.0000000E+00 + -81.50000 -148.5000 0.0000000E+00 + -80.50000 -148.5000 0.0000000E+00 + -79.50000 -148.5000 0.0000000E+00 + -78.50000 -148.5000 0.0000000E+00 + -77.50000 -148.5000 0.0000000E+00 + -76.50000 -148.5000 0.0000000E+00 + -75.50000 -148.5000 0.0000000E+00 + -74.50000 -148.5000 0.0000000E+00 + -73.50000 -148.5000 0.0000000E+00 + -72.50000 -148.5000 0.0000000E+00 + -71.50000 -148.5000 0.0000000E+00 + -70.50000 -148.5000 0.0000000E+00 + -69.50000 -148.5000 0.0000000E+00 + -68.50000 -148.5000 0.0000000E+00 + -67.50000 -148.5000 0.0000000E+00 + -66.50000 -148.5000 0.0000000E+00 + -65.50000 -148.5000 0.0000000E+00 + -64.50000 -148.5000 0.0000000E+00 + -63.50000 -148.5000 0.0000000E+00 + -62.50000 -148.5000 0.0000000E+00 + -61.50000 -148.5000 0.0000000E+00 + -60.50000 -148.5000 0.0000000E+00 + -59.50000 -148.5000 0.0000000E+00 + -58.50000 -148.5000 0.0000000E+00 + -57.50000 -148.5000 0.0000000E+00 + -56.50000 -148.5000 0.0000000E+00 + -55.50000 -148.5000 0.0000000E+00 + -54.50000 -148.5000 0.0000000E+00 + -53.50000 -148.5000 0.0000000E+00 + -52.50000 -148.5000 0.0000000E+00 + -51.50000 -148.5000 0.0000000E+00 + -50.50000 -148.5000 0.0000000E+00 + -49.50000 -148.5000 0.0000000E+00 + -48.50000 -148.5000 0.0000000E+00 + -47.50000 -148.5000 0.0000000E+00 + -46.50000 -148.5000 0.0000000E+00 + -45.50000 -148.5000 0.0000000E+00 + -44.50000 -148.5000 0.0000000E+00 + -43.50000 -148.5000 0.0000000E+00 + -42.50000 -148.5000 0.0000000E+00 + -41.50000 -148.5000 0.0000000E+00 + -40.50000 -148.5000 0.0000000E+00 + -39.50000 -148.5000 0.0000000E+00 + -38.50000 -148.5000 0.0000000E+00 + -37.50000 -148.5000 0.0000000E+00 + -36.50000 -148.5000 0.0000000E+00 + -35.50000 -148.5000 0.0000000E+00 + -34.50000 -148.5000 0.0000000E+00 + -33.50000 -148.5000 0.0000000E+00 + -32.50000 -148.5000 0.0000000E+00 + -31.50000 -148.5000 0.0000000E+00 + -30.50000 -148.5000 0.0000000E+00 + -29.50000 -148.5000 0.0000000E+00 + -28.50000 -148.5000 0.0000000E+00 + -27.50000 -148.5000 0.0000000E+00 + -26.50000 -148.5000 0.0000000E+00 + -25.50000 -148.5000 0.0000000E+00 + -24.50000 -148.5000 0.0000000E+00 + -23.50000 -148.5000 0.0000000E+00 + -22.50000 -148.5000 0.0000000E+00 + -21.50000 -148.5000 0.0000000E+00 + -20.50000 -148.5000 0.0000000E+00 + -19.50000 -148.5000 0.0000000E+00 + -18.50000 -148.5000 0.0000000E+00 + -17.50000 -148.5000 0.0000000E+00 + -16.50000 -148.5000 0.0000000E+00 + -15.50000 -148.5000 0.0000000E+00 + -14.50000 -148.5000 0.0000000E+00 + -13.50000 -148.5000 0.0000000E+00 + -12.50000 -148.5000 0.0000000E+00 + -11.50000 -148.5000 0.0000000E+00 + -10.50000 -148.5000 0.0000000E+00 + -9.500000 -148.5000 0.0000000E+00 + -8.500000 -148.5000 0.0000000E+00 + -7.500000 -148.5000 0.0000000E+00 + -6.500000 -148.5000 0.0000000E+00 + -5.500000 -148.5000 0.0000000E+00 + -4.500000 -148.5000 0.0000000E+00 + -3.500000 -148.5000 0.0000000E+00 + -2.500000 -148.5000 0.0000000E+00 + -1.500000 -148.5000 0.0000000E+00 + -0.5000000 -148.5000 0.0000000E+00 + 0.5000000 -148.5000 0.0000000E+00 + 1.500000 -148.5000 0.0000000E+00 + 2.500000 -148.5000 0.0000000E+00 + 3.500000 -148.5000 0.0000000E+00 + 4.500000 -148.5000 0.0000000E+00 + 5.500000 -148.5000 0.0000000E+00 + 6.500000 -148.5000 0.0000000E+00 + 7.500000 -148.5000 0.0000000E+00 + 8.500000 -148.5000 0.0000000E+00 + 9.500000 -148.5000 0.0000000E+00 + 10.50000 -148.5000 0.0000000E+00 + 11.50000 -148.5000 0.0000000E+00 + 12.50000 -148.5000 0.0000000E+00 + 13.50000 -148.5000 0.0000000E+00 + 14.50000 -148.5000 0.0000000E+00 + 15.50000 -148.5000 0.0000000E+00 + 16.50000 -148.5000 0.0000000E+00 + 17.50000 -148.5000 0.0000000E+00 + 18.50000 -148.5000 0.0000000E+00 + 19.50000 -148.5000 0.0000000E+00 + 20.50000 -148.5000 0.0000000E+00 + 21.50000 -148.5000 0.0000000E+00 + 22.50000 -148.5000 0.0000000E+00 + 23.50000 -148.5000 0.0000000E+00 + 24.50000 -148.5000 0.0000000E+00 + 25.50000 -148.5000 0.0000000E+00 + 26.50000 -148.5000 0.0000000E+00 + 27.50000 -148.5000 0.0000000E+00 + 28.50000 -148.5000 0.0000000E+00 + 29.50000 -148.5000 0.0000000E+00 + 30.50000 -148.5000 0.0000000E+00 + 31.50000 -148.5000 0.0000000E+00 + 32.50000 -148.5000 0.0000000E+00 + 33.50000 -148.5000 0.0000000E+00 + 34.50000 -148.5000 0.0000000E+00 + 35.50000 -148.5000 0.0000000E+00 + 36.50000 -148.5000 0.0000000E+00 + 37.50000 -148.5000 0.0000000E+00 + 38.50000 -148.5000 0.0000000E+00 + 39.50000 -148.5000 0.0000000E+00 + 40.50000 -148.5000 0.0000000E+00 + 41.50000 -148.5000 0.0000000E+00 + 42.50000 -148.5000 0.0000000E+00 + 43.50000 -148.5000 0.0000000E+00 + 44.50000 -148.5000 0.0000000E+00 + 45.50000 -148.5000 0.0000000E+00 + 46.50000 -148.5000 0.0000000E+00 + 47.50000 -148.5000 0.0000000E+00 + 48.50000 -148.5000 0.0000000E+00 + 49.50000 -148.5000 0.0000000E+00 + 50.50000 -148.5000 0.0000000E+00 + 51.50000 -148.5000 0.0000000E+00 + 52.50000 -148.5000 0.0000000E+00 + 53.50000 -148.5000 0.0000000E+00 + 54.50000 -148.5000 0.0000000E+00 + 55.50000 -148.5000 0.0000000E+00 + 56.50000 -148.5000 0.0000000E+00 + 57.50000 -148.5000 0.0000000E+00 + 58.50000 -148.5000 0.0000000E+00 + 59.50000 -148.5000 0.0000000E+00 + 60.50000 -148.5000 0.0000000E+00 + 61.50000 -148.5000 0.0000000E+00 + 62.50000 -148.5000 0.0000000E+00 + 63.50000 -148.5000 0.0000000E+00 + 64.50000 -148.5000 0.0000000E+00 + 65.50000 -148.5000 0.0000000E+00 + 66.50000 -148.5000 0.0000000E+00 + 67.50000 -148.5000 0.0000000E+00 + 68.50000 -148.5000 0.0000000E+00 + 69.50000 -148.5000 0.0000000E+00 + 70.50000 -148.5000 0.0000000E+00 + 71.50000 -148.5000 0.0000000E+00 + 72.50000 -148.5000 0.0000000E+00 + 73.50000 -148.5000 0.0000000E+00 + 74.50000 -148.5000 0.0000000E+00 + 75.50000 -148.5000 0.0000000E+00 + 76.50000 -148.5000 0.0000000E+00 + 77.50000 -148.5000 0.0000000E+00 + 78.50000 -148.5000 0.0000000E+00 + 79.50000 -148.5000 0.0000000E+00 + 80.50000 -148.5000 0.0000000E+00 + 81.50000 -148.5000 0.0000000E+00 + 82.50000 -148.5000 0.0000000E+00 + 83.50000 -148.5000 0.0000000E+00 + 84.50000 -148.5000 0.0000000E+00 + 85.50000 -148.5000 0.0000000E+00 + 86.50000 -148.5000 0.0000000E+00 + 87.50000 -148.5000 0.0000000E+00 + 88.50000 -148.5000 0.0000000E+00 + 89.50000 -148.5000 0.0000000E+00 + -89.50000 -147.5000 0.0000000E+00 + -88.50000 -147.5000 0.0000000E+00 + -87.50000 -147.5000 0.0000000E+00 + -86.50000 -147.5000 0.0000000E+00 + -85.50000 -147.5000 0.0000000E+00 + -84.50000 -147.5000 0.0000000E+00 + -83.50000 -147.5000 0.0000000E+00 + -82.50000 -147.5000 0.0000000E+00 + -81.50000 -147.5000 0.0000000E+00 + -80.50000 -147.5000 0.0000000E+00 + -79.50000 -147.5000 0.0000000E+00 + -78.50000 -147.5000 0.0000000E+00 + -77.50000 -147.5000 0.0000000E+00 + -76.50000 -147.5000 0.0000000E+00 + -75.50000 -147.5000 0.0000000E+00 + -74.50000 -147.5000 0.0000000E+00 + -73.50000 -147.5000 0.0000000E+00 + -72.50000 -147.5000 0.0000000E+00 + -71.50000 -147.5000 0.0000000E+00 + -70.50000 -147.5000 0.0000000E+00 + -69.50000 -147.5000 0.0000000E+00 + -68.50000 -147.5000 0.0000000E+00 + -67.50000 -147.5000 0.0000000E+00 + -66.50000 -147.5000 0.0000000E+00 + -65.50000 -147.5000 0.0000000E+00 + -64.50000 -147.5000 0.0000000E+00 + -63.50000 -147.5000 0.0000000E+00 + -62.50000 -147.5000 0.0000000E+00 + -61.50000 -147.5000 0.0000000E+00 + -60.50000 -147.5000 0.0000000E+00 + -59.50000 -147.5000 0.0000000E+00 + -58.50000 -147.5000 0.0000000E+00 + -57.50000 -147.5000 0.0000000E+00 + -56.50000 -147.5000 0.0000000E+00 + -55.50000 -147.5000 0.0000000E+00 + -54.50000 -147.5000 0.0000000E+00 + -53.50000 -147.5000 0.0000000E+00 + -52.50000 -147.5000 0.0000000E+00 + -51.50000 -147.5000 0.0000000E+00 + -50.50000 -147.5000 0.0000000E+00 + -49.50000 -147.5000 0.0000000E+00 + -48.50000 -147.5000 0.0000000E+00 + -47.50000 -147.5000 0.0000000E+00 + -46.50000 -147.5000 0.0000000E+00 + -45.50000 -147.5000 0.0000000E+00 + -44.50000 -147.5000 0.0000000E+00 + -43.50000 -147.5000 0.0000000E+00 + -42.50000 -147.5000 0.0000000E+00 + -41.50000 -147.5000 0.0000000E+00 + -40.50000 -147.5000 0.0000000E+00 + -39.50000 -147.5000 0.0000000E+00 + -38.50000 -147.5000 0.0000000E+00 + -37.50000 -147.5000 0.0000000E+00 + -36.50000 -147.5000 0.0000000E+00 + -35.50000 -147.5000 0.0000000E+00 + -34.50000 -147.5000 0.0000000E+00 + -33.50000 -147.5000 0.0000000E+00 + -32.50000 -147.5000 0.0000000E+00 + -31.50000 -147.5000 0.0000000E+00 + -30.50000 -147.5000 0.0000000E+00 + -29.50000 -147.5000 0.0000000E+00 + -28.50000 -147.5000 0.0000000E+00 + -27.50000 -147.5000 0.0000000E+00 + -26.50000 -147.5000 0.0000000E+00 + -25.50000 -147.5000 0.0000000E+00 + -24.50000 -147.5000 0.0000000E+00 + -23.50000 -147.5000 0.0000000E+00 + -22.50000 -147.5000 0.0000000E+00 + -21.50000 -147.5000 0.0000000E+00 + -20.50000 -147.5000 0.0000000E+00 + -19.50000 -147.5000 0.0000000E+00 + -18.50000 -147.5000 0.0000000E+00 + -17.50000 -147.5000 0.0000000E+00 + -16.50000 -147.5000 0.0000000E+00 + -15.50000 -147.5000 0.0000000E+00 + -14.50000 -147.5000 0.0000000E+00 + -13.50000 -147.5000 0.0000000E+00 + -12.50000 -147.5000 0.0000000E+00 + -11.50000 -147.5000 0.0000000E+00 + -10.50000 -147.5000 0.0000000E+00 + -9.500000 -147.5000 0.0000000E+00 + -8.500000 -147.5000 0.0000000E+00 + -7.500000 -147.5000 0.0000000E+00 + -6.500000 -147.5000 0.0000000E+00 + -5.500000 -147.5000 0.0000000E+00 + -4.500000 -147.5000 0.0000000E+00 + -3.500000 -147.5000 0.0000000E+00 + -2.500000 -147.5000 0.0000000E+00 + -1.500000 -147.5000 0.0000000E+00 + -0.5000000 -147.5000 0.0000000E+00 + 0.5000000 -147.5000 0.0000000E+00 + 1.500000 -147.5000 0.0000000E+00 + 2.500000 -147.5000 0.0000000E+00 + 3.500000 -147.5000 0.0000000E+00 + 4.500000 -147.5000 0.0000000E+00 + 5.500000 -147.5000 0.0000000E+00 + 6.500000 -147.5000 0.0000000E+00 + 7.500000 -147.5000 0.0000000E+00 + 8.500000 -147.5000 0.0000000E+00 + 9.500000 -147.5000 0.0000000E+00 + 10.50000 -147.5000 0.0000000E+00 + 11.50000 -147.5000 0.0000000E+00 + 12.50000 -147.5000 0.0000000E+00 + 13.50000 -147.5000 0.0000000E+00 + 14.50000 -147.5000 0.0000000E+00 + 15.50000 -147.5000 0.0000000E+00 + 16.50000 -147.5000 0.0000000E+00 + 17.50000 -147.5000 0.0000000E+00 + 18.50000 -147.5000 0.0000000E+00 + 19.50000 -147.5000 0.0000000E+00 + 20.50000 -147.5000 0.0000000E+00 + 21.50000 -147.5000 0.0000000E+00 + 22.50000 -147.5000 0.0000000E+00 + 23.50000 -147.5000 0.0000000E+00 + 24.50000 -147.5000 0.0000000E+00 + 25.50000 -147.5000 0.0000000E+00 + 26.50000 -147.5000 0.0000000E+00 + 27.50000 -147.5000 0.0000000E+00 + 28.50000 -147.5000 0.0000000E+00 + 29.50000 -147.5000 0.0000000E+00 + 30.50000 -147.5000 0.0000000E+00 + 31.50000 -147.5000 0.0000000E+00 + 32.50000 -147.5000 0.0000000E+00 + 33.50000 -147.5000 0.0000000E+00 + 34.50000 -147.5000 0.0000000E+00 + 35.50000 -147.5000 0.0000000E+00 + 36.50000 -147.5000 0.0000000E+00 + 37.50000 -147.5000 0.0000000E+00 + 38.50000 -147.5000 0.0000000E+00 + 39.50000 -147.5000 0.0000000E+00 + 40.50000 -147.5000 0.0000000E+00 + 41.50000 -147.5000 0.0000000E+00 + 42.50000 -147.5000 0.0000000E+00 + 43.50000 -147.5000 0.0000000E+00 + 44.50000 -147.5000 0.0000000E+00 + 45.50000 -147.5000 0.0000000E+00 + 46.50000 -147.5000 0.0000000E+00 + 47.50000 -147.5000 0.0000000E+00 + 48.50000 -147.5000 0.0000000E+00 + 49.50000 -147.5000 0.0000000E+00 + 50.50000 -147.5000 0.0000000E+00 + 51.50000 -147.5000 0.0000000E+00 + 52.50000 -147.5000 0.0000000E+00 + 53.50000 -147.5000 0.0000000E+00 + 54.50000 -147.5000 0.0000000E+00 + 55.50000 -147.5000 0.0000000E+00 + 56.50000 -147.5000 0.0000000E+00 + 57.50000 -147.5000 0.0000000E+00 + 58.50000 -147.5000 0.0000000E+00 + 59.50000 -147.5000 0.0000000E+00 + 60.50000 -147.5000 0.0000000E+00 + 61.50000 -147.5000 0.0000000E+00 + 62.50000 -147.5000 0.0000000E+00 + 63.50000 -147.5000 0.0000000E+00 + 64.50000 -147.5000 0.0000000E+00 + 65.50000 -147.5000 0.0000000E+00 + 66.50000 -147.5000 0.0000000E+00 + 67.50000 -147.5000 0.0000000E+00 + 68.50000 -147.5000 0.0000000E+00 + 69.50000 -147.5000 0.0000000E+00 + 70.50000 -147.5000 0.0000000E+00 + 71.50000 -147.5000 0.0000000E+00 + 72.50000 -147.5000 0.0000000E+00 + 73.50000 -147.5000 0.0000000E+00 + 74.50000 -147.5000 0.0000000E+00 + 75.50000 -147.5000 0.0000000E+00 + 76.50000 -147.5000 0.0000000E+00 + 77.50000 -147.5000 0.0000000E+00 + 78.50000 -147.5000 0.0000000E+00 + 79.50000 -147.5000 0.0000000E+00 + 80.50000 -147.5000 0.0000000E+00 + 81.50000 -147.5000 0.0000000E+00 + 82.50000 -147.5000 0.0000000E+00 + 83.50000 -147.5000 0.0000000E+00 + 84.50000 -147.5000 0.0000000E+00 + 85.50000 -147.5000 0.0000000E+00 + 86.50000 -147.5000 0.0000000E+00 + 87.50000 -147.5000 0.0000000E+00 + 88.50000 -147.5000 0.0000000E+00 + 89.50000 -147.5000 0.0000000E+00 + -89.50000 -146.5000 0.0000000E+00 + -88.50000 -146.5000 0.0000000E+00 + -87.50000 -146.5000 0.0000000E+00 + -86.50000 -146.5000 0.0000000E+00 + -85.50000 -146.5000 0.0000000E+00 + -84.50000 -146.5000 0.0000000E+00 + -83.50000 -146.5000 0.0000000E+00 + -82.50000 -146.5000 0.0000000E+00 + -81.50000 -146.5000 0.0000000E+00 + -80.50000 -146.5000 0.0000000E+00 + -79.50000 -146.5000 0.0000000E+00 + -78.50000 -146.5000 0.0000000E+00 + -77.50000 -146.5000 0.0000000E+00 + -76.50000 -146.5000 0.0000000E+00 + -75.50000 -146.5000 0.0000000E+00 + -74.50000 -146.5000 0.0000000E+00 + -73.50000 -146.5000 0.0000000E+00 + -72.50000 -146.5000 0.0000000E+00 + -71.50000 -146.5000 0.0000000E+00 + -70.50000 -146.5000 0.0000000E+00 + -69.50000 -146.5000 0.0000000E+00 + -68.50000 -146.5000 0.0000000E+00 + -67.50000 -146.5000 0.0000000E+00 + -66.50000 -146.5000 0.0000000E+00 + -65.50000 -146.5000 0.0000000E+00 + -64.50000 -146.5000 0.0000000E+00 + -63.50000 -146.5000 0.0000000E+00 + -62.50000 -146.5000 0.0000000E+00 + -61.50000 -146.5000 0.0000000E+00 + -60.50000 -146.5000 0.0000000E+00 + -59.50000 -146.5000 0.0000000E+00 + -58.50000 -146.5000 0.0000000E+00 + -57.50000 -146.5000 0.0000000E+00 + -56.50000 -146.5000 0.0000000E+00 + -55.50000 -146.5000 0.0000000E+00 + -54.50000 -146.5000 0.0000000E+00 + -53.50000 -146.5000 0.0000000E+00 + -52.50000 -146.5000 0.0000000E+00 + -51.50000 -146.5000 0.0000000E+00 + -50.50000 -146.5000 0.0000000E+00 + -49.50000 -146.5000 0.0000000E+00 + -48.50000 -146.5000 0.0000000E+00 + -47.50000 -146.5000 0.0000000E+00 + -46.50000 -146.5000 0.0000000E+00 + -45.50000 -146.5000 0.0000000E+00 + -44.50000 -146.5000 0.0000000E+00 + -43.50000 -146.5000 0.0000000E+00 + -42.50000 -146.5000 0.0000000E+00 + -41.50000 -146.5000 0.0000000E+00 + -40.50000 -146.5000 0.0000000E+00 + -39.50000 -146.5000 0.0000000E+00 + -38.50000 -146.5000 0.0000000E+00 + -37.50000 -146.5000 0.0000000E+00 + -36.50000 -146.5000 0.0000000E+00 + -35.50000 -146.5000 0.0000000E+00 + -34.50000 -146.5000 0.0000000E+00 + -33.50000 -146.5000 0.0000000E+00 + -32.50000 -146.5000 0.0000000E+00 + -31.50000 -146.5000 0.0000000E+00 + -30.50000 -146.5000 0.0000000E+00 + -29.50000 -146.5000 0.0000000E+00 + -28.50000 -146.5000 0.0000000E+00 + -27.50000 -146.5000 0.0000000E+00 + -26.50000 -146.5000 0.0000000E+00 + -25.50000 -146.5000 0.0000000E+00 + -24.50000 -146.5000 0.0000000E+00 + -23.50000 -146.5000 0.0000000E+00 + -22.50000 -146.5000 0.0000000E+00 + -21.50000 -146.5000 0.0000000E+00 + -20.50000 -146.5000 0.0000000E+00 + -19.50000 -146.5000 0.0000000E+00 + -18.50000 -146.5000 0.0000000E+00 + -17.50000 -146.5000 0.0000000E+00 + -16.50000 -146.5000 0.0000000E+00 + -15.50000 -146.5000 0.0000000E+00 + -14.50000 -146.5000 0.0000000E+00 + -13.50000 -146.5000 0.0000000E+00 + -12.50000 -146.5000 0.0000000E+00 + -11.50000 -146.5000 0.0000000E+00 + -10.50000 -146.5000 0.0000000E+00 + -9.500000 -146.5000 0.0000000E+00 + -8.500000 -146.5000 0.0000000E+00 + -7.500000 -146.5000 0.0000000E+00 + -6.500000 -146.5000 0.0000000E+00 + -5.500000 -146.5000 0.0000000E+00 + -4.500000 -146.5000 0.0000000E+00 + -3.500000 -146.5000 0.0000000E+00 + -2.500000 -146.5000 0.0000000E+00 + -1.500000 -146.5000 0.0000000E+00 + -0.5000000 -146.5000 0.0000000E+00 + 0.5000000 -146.5000 0.0000000E+00 + 1.500000 -146.5000 0.0000000E+00 + 2.500000 -146.5000 0.0000000E+00 + 3.500000 -146.5000 0.0000000E+00 + 4.500000 -146.5000 0.0000000E+00 + 5.500000 -146.5000 0.0000000E+00 + 6.500000 -146.5000 0.0000000E+00 + 7.500000 -146.5000 0.0000000E+00 + 8.500000 -146.5000 0.0000000E+00 + 9.500000 -146.5000 0.0000000E+00 + 10.50000 -146.5000 0.0000000E+00 + 11.50000 -146.5000 0.0000000E+00 + 12.50000 -146.5000 0.0000000E+00 + 13.50000 -146.5000 0.0000000E+00 + 14.50000 -146.5000 0.0000000E+00 + 15.50000 -146.5000 0.0000000E+00 + 16.50000 -146.5000 0.0000000E+00 + 17.50000 -146.5000 0.0000000E+00 + 18.50000 -146.5000 0.0000000E+00 + 19.50000 -146.5000 0.0000000E+00 + 20.50000 -146.5000 0.0000000E+00 + 21.50000 -146.5000 0.0000000E+00 + 22.50000 -146.5000 0.0000000E+00 + 23.50000 -146.5000 0.0000000E+00 + 24.50000 -146.5000 0.0000000E+00 + 25.50000 -146.5000 0.0000000E+00 + 26.50000 -146.5000 0.0000000E+00 + 27.50000 -146.5000 0.0000000E+00 + 28.50000 -146.5000 0.0000000E+00 + 29.50000 -146.5000 0.0000000E+00 + 30.50000 -146.5000 0.0000000E+00 + 31.50000 -146.5000 0.0000000E+00 + 32.50000 -146.5000 0.0000000E+00 + 33.50000 -146.5000 0.0000000E+00 + 34.50000 -146.5000 0.0000000E+00 + 35.50000 -146.5000 0.0000000E+00 + 36.50000 -146.5000 0.0000000E+00 + 37.50000 -146.5000 0.0000000E+00 + 38.50000 -146.5000 0.0000000E+00 + 39.50000 -146.5000 0.0000000E+00 + 40.50000 -146.5000 0.0000000E+00 + 41.50000 -146.5000 0.0000000E+00 + 42.50000 -146.5000 0.0000000E+00 + 43.50000 -146.5000 0.0000000E+00 + 44.50000 -146.5000 0.0000000E+00 + 45.50000 -146.5000 0.0000000E+00 + 46.50000 -146.5000 0.0000000E+00 + 47.50000 -146.5000 0.0000000E+00 + 48.50000 -146.5000 0.0000000E+00 + 49.50000 -146.5000 0.0000000E+00 + 50.50000 -146.5000 0.0000000E+00 + 51.50000 -146.5000 0.0000000E+00 + 52.50000 -146.5000 0.0000000E+00 + 53.50000 -146.5000 0.0000000E+00 + 54.50000 -146.5000 0.0000000E+00 + 55.50000 -146.5000 0.0000000E+00 + 56.50000 -146.5000 0.0000000E+00 + 57.50000 -146.5000 0.0000000E+00 + 58.50000 -146.5000 0.0000000E+00 + 59.50000 -146.5000 0.0000000E+00 + 60.50000 -146.5000 0.0000000E+00 + 61.50000 -146.5000 0.0000000E+00 + 62.50000 -146.5000 0.0000000E+00 + 63.50000 -146.5000 0.0000000E+00 + 64.50000 -146.5000 0.0000000E+00 + 65.50000 -146.5000 0.0000000E+00 + 66.50000 -146.5000 0.0000000E+00 + 67.50000 -146.5000 0.0000000E+00 + 68.50000 -146.5000 0.0000000E+00 + 69.50000 -146.5000 0.0000000E+00 + 70.50000 -146.5000 0.0000000E+00 + 71.50000 -146.5000 0.0000000E+00 + 72.50000 -146.5000 0.0000000E+00 + 73.50000 -146.5000 0.0000000E+00 + 74.50000 -146.5000 0.0000000E+00 + 75.50000 -146.5000 0.0000000E+00 + 76.50000 -146.5000 0.0000000E+00 + 77.50000 -146.5000 0.0000000E+00 + 78.50000 -146.5000 0.0000000E+00 + 79.50000 -146.5000 0.0000000E+00 + 80.50000 -146.5000 0.0000000E+00 + 81.50000 -146.5000 0.0000000E+00 + 82.50000 -146.5000 0.0000000E+00 + 83.50000 -146.5000 0.0000000E+00 + 84.50000 -146.5000 0.0000000E+00 + 85.50000 -146.5000 0.0000000E+00 + 86.50000 -146.5000 0.0000000E+00 + 87.50000 -146.5000 0.0000000E+00 + 88.50000 -146.5000 0.0000000E+00 + 89.50000 -146.5000 0.0000000E+00 + -89.50000 -145.5000 0.0000000E+00 + -88.50000 -145.5000 0.0000000E+00 + -87.50000 -145.5000 0.0000000E+00 + -86.50000 -145.5000 0.0000000E+00 + -85.50000 -145.5000 0.0000000E+00 + -84.50000 -145.5000 0.0000000E+00 + -83.50000 -145.5000 0.0000000E+00 + -82.50000 -145.5000 0.0000000E+00 + -81.50000 -145.5000 0.0000000E+00 + -80.50000 -145.5000 0.0000000E+00 + -79.50000 -145.5000 0.0000000E+00 + -78.50000 -145.5000 0.0000000E+00 + -77.50000 -145.5000 0.0000000E+00 + -76.50000 -145.5000 0.0000000E+00 + -75.50000 -145.5000 0.0000000E+00 + -74.50000 -145.5000 0.0000000E+00 + -73.50000 -145.5000 0.0000000E+00 + -72.50000 -145.5000 0.0000000E+00 + -71.50000 -145.5000 0.0000000E+00 + -70.50000 -145.5000 0.0000000E+00 + -69.50000 -145.5000 0.0000000E+00 + -68.50000 -145.5000 0.0000000E+00 + -67.50000 -145.5000 0.0000000E+00 + -66.50000 -145.5000 0.0000000E+00 + -65.50000 -145.5000 0.0000000E+00 + -64.50000 -145.5000 0.0000000E+00 + -63.50000 -145.5000 0.0000000E+00 + -62.50000 -145.5000 0.0000000E+00 + -61.50000 -145.5000 0.0000000E+00 + -60.50000 -145.5000 0.0000000E+00 + -59.50000 -145.5000 0.0000000E+00 + -58.50000 -145.5000 0.0000000E+00 + -57.50000 -145.5000 0.0000000E+00 + -56.50000 -145.5000 0.0000000E+00 + -55.50000 -145.5000 0.0000000E+00 + -54.50000 -145.5000 0.0000000E+00 + -53.50000 -145.5000 0.0000000E+00 + -52.50000 -145.5000 0.0000000E+00 + -51.50000 -145.5000 0.0000000E+00 + -50.50000 -145.5000 0.0000000E+00 + -49.50000 -145.5000 0.0000000E+00 + -48.50000 -145.5000 0.0000000E+00 + -47.50000 -145.5000 0.0000000E+00 + -46.50000 -145.5000 0.0000000E+00 + -45.50000 -145.5000 0.0000000E+00 + -44.50000 -145.5000 0.0000000E+00 + -43.50000 -145.5000 0.0000000E+00 + -42.50000 -145.5000 0.0000000E+00 + -41.50000 -145.5000 0.0000000E+00 + -40.50000 -145.5000 0.0000000E+00 + -39.50000 -145.5000 0.0000000E+00 + -38.50000 -145.5000 0.0000000E+00 + -37.50000 -145.5000 0.0000000E+00 + -36.50000 -145.5000 0.0000000E+00 + -35.50000 -145.5000 0.0000000E+00 + -34.50000 -145.5000 0.0000000E+00 + -33.50000 -145.5000 0.0000000E+00 + -32.50000 -145.5000 0.0000000E+00 + -31.50000 -145.5000 0.0000000E+00 + -30.50000 -145.5000 0.0000000E+00 + -29.50000 -145.5000 0.0000000E+00 + -28.50000 -145.5000 0.0000000E+00 + -27.50000 -145.5000 0.0000000E+00 + -26.50000 -145.5000 0.0000000E+00 + -25.50000 -145.5000 0.0000000E+00 + -24.50000 -145.5000 0.0000000E+00 + -23.50000 -145.5000 0.0000000E+00 + -22.50000 -145.5000 0.0000000E+00 + -21.50000 -145.5000 0.0000000E+00 + -20.50000 -145.5000 0.0000000E+00 + -19.50000 -145.5000 0.0000000E+00 + -18.50000 -145.5000 0.0000000E+00 + -17.50000 -145.5000 0.0000000E+00 + -16.50000 -145.5000 0.0000000E+00 + -15.50000 -145.5000 0.0000000E+00 + -14.50000 -145.5000 0.0000000E+00 + -13.50000 -145.5000 0.0000000E+00 + -12.50000 -145.5000 0.0000000E+00 + -11.50000 -145.5000 0.0000000E+00 + -10.50000 -145.5000 0.0000000E+00 + -9.500000 -145.5000 0.0000000E+00 + -8.500000 -145.5000 0.0000000E+00 + -7.500000 -145.5000 0.0000000E+00 + -6.500000 -145.5000 0.0000000E+00 + -5.500000 -145.5000 0.0000000E+00 + -4.500000 -145.5000 0.0000000E+00 + -3.500000 -145.5000 0.0000000E+00 + -2.500000 -145.5000 0.0000000E+00 + -1.500000 -145.5000 0.0000000E+00 + -0.5000000 -145.5000 0.0000000E+00 + 0.5000000 -145.5000 0.0000000E+00 + 1.500000 -145.5000 0.0000000E+00 + 2.500000 -145.5000 0.0000000E+00 + 3.500000 -145.5000 0.0000000E+00 + 4.500000 -145.5000 0.0000000E+00 + 5.500000 -145.5000 0.0000000E+00 + 6.500000 -145.5000 0.0000000E+00 + 7.500000 -145.5000 0.0000000E+00 + 8.500000 -145.5000 0.0000000E+00 + 9.500000 -145.5000 0.0000000E+00 + 10.50000 -145.5000 0.0000000E+00 + 11.50000 -145.5000 0.0000000E+00 + 12.50000 -145.5000 0.0000000E+00 + 13.50000 -145.5000 0.0000000E+00 + 14.50000 -145.5000 0.0000000E+00 + 15.50000 -145.5000 0.0000000E+00 + 16.50000 -145.5000 0.0000000E+00 + 17.50000 -145.5000 0.0000000E+00 + 18.50000 -145.5000 0.0000000E+00 + 19.50000 -145.5000 0.0000000E+00 + 20.50000 -145.5000 0.0000000E+00 + 21.50000 -145.5000 0.0000000E+00 + 22.50000 -145.5000 0.0000000E+00 + 23.50000 -145.5000 0.0000000E+00 + 24.50000 -145.5000 0.0000000E+00 + 25.50000 -145.5000 0.0000000E+00 + 26.50000 -145.5000 0.0000000E+00 + 27.50000 -145.5000 0.0000000E+00 + 28.50000 -145.5000 0.0000000E+00 + 29.50000 -145.5000 0.0000000E+00 + 30.50000 -145.5000 0.0000000E+00 + 31.50000 -145.5000 0.0000000E+00 + 32.50000 -145.5000 0.0000000E+00 + 33.50000 -145.5000 0.0000000E+00 + 34.50000 -145.5000 0.0000000E+00 + 35.50000 -145.5000 0.0000000E+00 + 36.50000 -145.5000 0.0000000E+00 + 37.50000 -145.5000 0.0000000E+00 + 38.50000 -145.5000 0.0000000E+00 + 39.50000 -145.5000 0.0000000E+00 + 40.50000 -145.5000 0.0000000E+00 + 41.50000 -145.5000 0.0000000E+00 + 42.50000 -145.5000 0.0000000E+00 + 43.50000 -145.5000 0.0000000E+00 + 44.50000 -145.5000 0.0000000E+00 + 45.50000 -145.5000 0.0000000E+00 + 46.50000 -145.5000 0.0000000E+00 + 47.50000 -145.5000 0.0000000E+00 + 48.50000 -145.5000 0.0000000E+00 + 49.50000 -145.5000 0.0000000E+00 + 50.50000 -145.5000 0.0000000E+00 + 51.50000 -145.5000 0.0000000E+00 + 52.50000 -145.5000 0.0000000E+00 + 53.50000 -145.5000 0.0000000E+00 + 54.50000 -145.5000 0.0000000E+00 + 55.50000 -145.5000 0.0000000E+00 + 56.50000 -145.5000 0.0000000E+00 + 57.50000 -145.5000 0.0000000E+00 + 58.50000 -145.5000 0.0000000E+00 + 59.50000 -145.5000 0.0000000E+00 + 60.50000 -145.5000 0.0000000E+00 + 61.50000 -145.5000 0.0000000E+00 + 62.50000 -145.5000 0.0000000E+00 + 63.50000 -145.5000 0.0000000E+00 + 64.50000 -145.5000 0.0000000E+00 + 65.50000 -145.5000 0.0000000E+00 + 66.50000 -145.5000 0.0000000E+00 + 67.50000 -145.5000 0.0000000E+00 + 68.50000 -145.5000 0.0000000E+00 + 69.50000 -145.5000 0.0000000E+00 + 70.50000 -145.5000 0.0000000E+00 + 71.50000 -145.5000 0.0000000E+00 + 72.50000 -145.5000 0.0000000E+00 + 73.50000 -145.5000 0.0000000E+00 + 74.50000 -145.5000 0.0000000E+00 + 75.50000 -145.5000 0.0000000E+00 + 76.50000 -145.5000 0.0000000E+00 + 77.50000 -145.5000 0.0000000E+00 + 78.50000 -145.5000 0.0000000E+00 + 79.50000 -145.5000 0.0000000E+00 + 80.50000 -145.5000 0.0000000E+00 + 81.50000 -145.5000 0.0000000E+00 + 82.50000 -145.5000 0.0000000E+00 + 83.50000 -145.5000 0.0000000E+00 + 84.50000 -145.5000 0.0000000E+00 + 85.50000 -145.5000 0.0000000E+00 + 86.50000 -145.5000 0.0000000E+00 + 87.50000 -145.5000 0.0000000E+00 + 88.50000 -145.5000 0.0000000E+00 + 89.50000 -145.5000 0.0000000E+00 + -89.50000 -144.5000 0.0000000E+00 + -88.50000 -144.5000 0.0000000E+00 + -87.50000 -144.5000 0.0000000E+00 + -86.50000 -144.5000 0.0000000E+00 + -85.50000 -144.5000 0.0000000E+00 + -84.50000 -144.5000 0.0000000E+00 + -83.50000 -144.5000 0.0000000E+00 + -82.50000 -144.5000 0.0000000E+00 + -81.50000 -144.5000 0.0000000E+00 + -80.50000 -144.5000 0.0000000E+00 + -79.50000 -144.5000 0.0000000E+00 + -78.50000 -144.5000 0.0000000E+00 + -77.50000 -144.5000 0.0000000E+00 + -76.50000 -144.5000 0.0000000E+00 + -75.50000 -144.5000 0.0000000E+00 + -74.50000 -144.5000 0.0000000E+00 + -73.50000 -144.5000 0.0000000E+00 + -72.50000 -144.5000 0.0000000E+00 + -71.50000 -144.5000 0.0000000E+00 + -70.50000 -144.5000 0.0000000E+00 + -69.50000 -144.5000 0.0000000E+00 + -68.50000 -144.5000 0.0000000E+00 + -67.50000 -144.5000 0.0000000E+00 + -66.50000 -144.5000 0.0000000E+00 + -65.50000 -144.5000 0.0000000E+00 + -64.50000 -144.5000 0.0000000E+00 + -63.50000 -144.5000 0.0000000E+00 + -62.50000 -144.5000 0.0000000E+00 + -61.50000 -144.5000 0.0000000E+00 + -60.50000 -144.5000 0.0000000E+00 + -59.50000 -144.5000 0.0000000E+00 + -58.50000 -144.5000 0.0000000E+00 + -57.50000 -144.5000 0.0000000E+00 + -56.50000 -144.5000 0.0000000E+00 + -55.50000 -144.5000 0.0000000E+00 + -54.50000 -144.5000 0.0000000E+00 + -53.50000 -144.5000 0.0000000E+00 + -52.50000 -144.5000 0.0000000E+00 + -51.50000 -144.5000 0.0000000E+00 + -50.50000 -144.5000 0.0000000E+00 + -49.50000 -144.5000 0.0000000E+00 + -48.50000 -144.5000 0.0000000E+00 + -47.50000 -144.5000 0.0000000E+00 + -46.50000 -144.5000 0.0000000E+00 + -45.50000 -144.5000 0.0000000E+00 + -44.50000 -144.5000 0.0000000E+00 + -43.50000 -144.5000 0.0000000E+00 + -42.50000 -144.5000 0.0000000E+00 + -41.50000 -144.5000 0.0000000E+00 + -40.50000 -144.5000 0.0000000E+00 + -39.50000 -144.5000 0.0000000E+00 + -38.50000 -144.5000 0.0000000E+00 + -37.50000 -144.5000 0.0000000E+00 + -36.50000 -144.5000 0.0000000E+00 + -35.50000 -144.5000 0.0000000E+00 + -34.50000 -144.5000 0.0000000E+00 + -33.50000 -144.5000 0.0000000E+00 + -32.50000 -144.5000 0.0000000E+00 + -31.50000 -144.5000 0.0000000E+00 + -30.50000 -144.5000 0.0000000E+00 + -29.50000 -144.5000 0.0000000E+00 + -28.50000 -144.5000 0.0000000E+00 + -27.50000 -144.5000 0.0000000E+00 + -26.50000 -144.5000 0.0000000E+00 + -25.50000 -144.5000 0.0000000E+00 + -24.50000 -144.5000 0.0000000E+00 + -23.50000 -144.5000 0.0000000E+00 + -22.50000 -144.5000 0.0000000E+00 + -21.50000 -144.5000 0.0000000E+00 + -20.50000 -144.5000 0.0000000E+00 + -19.50000 -144.5000 0.0000000E+00 + -18.50000 -144.5000 0.0000000E+00 + -17.50000 -144.5000 0.0000000E+00 + -16.50000 -144.5000 0.0000000E+00 + -15.50000 -144.5000 0.0000000E+00 + -14.50000 -144.5000 0.0000000E+00 + -13.50000 -144.5000 0.0000000E+00 + -12.50000 -144.5000 0.0000000E+00 + -11.50000 -144.5000 0.0000000E+00 + -10.50000 -144.5000 0.0000000E+00 + -9.500000 -144.5000 0.0000000E+00 + -8.500000 -144.5000 0.0000000E+00 + -7.500000 -144.5000 0.0000000E+00 + -6.500000 -144.5000 0.0000000E+00 + -5.500000 -144.5000 0.0000000E+00 + -4.500000 -144.5000 0.0000000E+00 + -3.500000 -144.5000 0.0000000E+00 + -2.500000 -144.5000 0.0000000E+00 + -1.500000 -144.5000 0.0000000E+00 + -0.5000000 -144.5000 0.0000000E+00 + 0.5000000 -144.5000 0.0000000E+00 + 1.500000 -144.5000 0.0000000E+00 + 2.500000 -144.5000 0.0000000E+00 + 3.500000 -144.5000 0.0000000E+00 + 4.500000 -144.5000 0.0000000E+00 + 5.500000 -144.5000 0.0000000E+00 + 6.500000 -144.5000 0.0000000E+00 + 7.500000 -144.5000 0.0000000E+00 + 8.500000 -144.5000 0.0000000E+00 + 9.500000 -144.5000 0.0000000E+00 + 10.50000 -144.5000 0.0000000E+00 + 11.50000 -144.5000 0.0000000E+00 + 12.50000 -144.5000 0.0000000E+00 + 13.50000 -144.5000 0.0000000E+00 + 14.50000 -144.5000 0.0000000E+00 + 15.50000 -144.5000 0.0000000E+00 + 16.50000 -144.5000 0.0000000E+00 + 17.50000 -144.5000 0.0000000E+00 + 18.50000 -144.5000 0.0000000E+00 + 19.50000 -144.5000 0.0000000E+00 + 20.50000 -144.5000 0.0000000E+00 + 21.50000 -144.5000 0.0000000E+00 + 22.50000 -144.5000 0.0000000E+00 + 23.50000 -144.5000 0.0000000E+00 + 24.50000 -144.5000 0.0000000E+00 + 25.50000 -144.5000 0.0000000E+00 + 26.50000 -144.5000 0.0000000E+00 + 27.50000 -144.5000 0.0000000E+00 + 28.50000 -144.5000 0.0000000E+00 + 29.50000 -144.5000 0.0000000E+00 + 30.50000 -144.5000 0.0000000E+00 + 31.50000 -144.5000 0.0000000E+00 + 32.50000 -144.5000 0.0000000E+00 + 33.50000 -144.5000 0.0000000E+00 + 34.50000 -144.5000 0.0000000E+00 + 35.50000 -144.5000 0.0000000E+00 + 36.50000 -144.5000 0.0000000E+00 + 37.50000 -144.5000 0.0000000E+00 + 38.50000 -144.5000 0.0000000E+00 + 39.50000 -144.5000 0.0000000E+00 + 40.50000 -144.5000 0.0000000E+00 + 41.50000 -144.5000 0.0000000E+00 + 42.50000 -144.5000 0.0000000E+00 + 43.50000 -144.5000 0.0000000E+00 + 44.50000 -144.5000 0.0000000E+00 + 45.50000 -144.5000 0.0000000E+00 + 46.50000 -144.5000 0.0000000E+00 + 47.50000 -144.5000 0.0000000E+00 + 48.50000 -144.5000 0.0000000E+00 + 49.50000 -144.5000 0.0000000E+00 + 50.50000 -144.5000 0.0000000E+00 + 51.50000 -144.5000 0.0000000E+00 + 52.50000 -144.5000 0.0000000E+00 + 53.50000 -144.5000 0.0000000E+00 + 54.50000 -144.5000 0.0000000E+00 + 55.50000 -144.5000 0.0000000E+00 + 56.50000 -144.5000 0.0000000E+00 + 57.50000 -144.5000 0.0000000E+00 + 58.50000 -144.5000 0.0000000E+00 + 59.50000 -144.5000 0.0000000E+00 + 60.50000 -144.5000 0.0000000E+00 + 61.50000 -144.5000 0.0000000E+00 + 62.50000 -144.5000 0.0000000E+00 + 63.50000 -144.5000 0.0000000E+00 + 64.50000 -144.5000 0.0000000E+00 + 65.50000 -144.5000 0.0000000E+00 + 66.50000 -144.5000 0.0000000E+00 + 67.50000 -144.5000 0.0000000E+00 + 68.50000 -144.5000 0.0000000E+00 + 69.50000 -144.5000 0.0000000E+00 + 70.50000 -144.5000 0.0000000E+00 + 71.50000 -144.5000 0.0000000E+00 + 72.50000 -144.5000 0.0000000E+00 + 73.50000 -144.5000 0.0000000E+00 + 74.50000 -144.5000 0.0000000E+00 + 75.50000 -144.5000 0.0000000E+00 + 76.50000 -144.5000 0.0000000E+00 + 77.50000 -144.5000 0.0000000E+00 + 78.50000 -144.5000 0.0000000E+00 + 79.50000 -144.5000 0.0000000E+00 + 80.50000 -144.5000 0.0000000E+00 + 81.50000 -144.5000 0.0000000E+00 + 82.50000 -144.5000 0.0000000E+00 + 83.50000 -144.5000 0.0000000E+00 + 84.50000 -144.5000 0.0000000E+00 + 85.50000 -144.5000 0.0000000E+00 + 86.50000 -144.5000 0.0000000E+00 + 87.50000 -144.5000 0.0000000E+00 + 88.50000 -144.5000 0.0000000E+00 + 89.50000 -144.5000 0.0000000E+00 + -89.50000 -143.5000 0.0000000E+00 + -88.50000 -143.5000 0.0000000E+00 + -87.50000 -143.5000 0.0000000E+00 + -86.50000 -143.5000 0.0000000E+00 + -85.50000 -143.5000 0.0000000E+00 + -84.50000 -143.5000 0.0000000E+00 + -83.50000 -143.5000 0.0000000E+00 + -82.50000 -143.5000 0.0000000E+00 + -81.50000 -143.5000 0.0000000E+00 + -80.50000 -143.5000 0.0000000E+00 + -79.50000 -143.5000 0.0000000E+00 + -78.50000 -143.5000 0.0000000E+00 + -77.50000 -143.5000 0.0000000E+00 + -76.50000 -143.5000 0.0000000E+00 + -75.50000 -143.5000 0.0000000E+00 + -74.50000 -143.5000 0.0000000E+00 + -73.50000 -143.5000 0.0000000E+00 + -72.50000 -143.5000 0.0000000E+00 + -71.50000 -143.5000 0.0000000E+00 + -70.50000 -143.5000 0.0000000E+00 + -69.50000 -143.5000 0.0000000E+00 + -68.50000 -143.5000 0.0000000E+00 + -67.50000 -143.5000 0.0000000E+00 + -66.50000 -143.5000 0.0000000E+00 + -65.50000 -143.5000 0.0000000E+00 + -64.50000 -143.5000 0.0000000E+00 + -63.50000 -143.5000 0.0000000E+00 + -62.50000 -143.5000 0.0000000E+00 + -61.50000 -143.5000 0.0000000E+00 + -60.50000 -143.5000 0.0000000E+00 + -59.50000 -143.5000 0.0000000E+00 + -58.50000 -143.5000 0.0000000E+00 + -57.50000 -143.5000 0.0000000E+00 + -56.50000 -143.5000 0.0000000E+00 + -55.50000 -143.5000 0.0000000E+00 + -54.50000 -143.5000 0.0000000E+00 + -53.50000 -143.5000 0.0000000E+00 + -52.50000 -143.5000 0.0000000E+00 + -51.50000 -143.5000 0.0000000E+00 + -50.50000 -143.5000 0.0000000E+00 + -49.50000 -143.5000 0.0000000E+00 + -48.50000 -143.5000 0.0000000E+00 + -47.50000 -143.5000 0.0000000E+00 + -46.50000 -143.5000 0.0000000E+00 + -45.50000 -143.5000 0.0000000E+00 + -44.50000 -143.5000 0.0000000E+00 + -43.50000 -143.5000 0.0000000E+00 + -42.50000 -143.5000 0.0000000E+00 + -41.50000 -143.5000 0.0000000E+00 + -40.50000 -143.5000 0.0000000E+00 + -39.50000 -143.5000 0.0000000E+00 + -38.50000 -143.5000 0.0000000E+00 + -37.50000 -143.5000 0.0000000E+00 + -36.50000 -143.5000 0.0000000E+00 + -35.50000 -143.5000 0.0000000E+00 + -34.50000 -143.5000 0.0000000E+00 + -33.50000 -143.5000 0.0000000E+00 + -32.50000 -143.5000 0.0000000E+00 + -31.50000 -143.5000 0.0000000E+00 + -30.50000 -143.5000 0.0000000E+00 + -29.50000 -143.5000 0.0000000E+00 + -28.50000 -143.5000 0.0000000E+00 + -27.50000 -143.5000 0.0000000E+00 + -26.50000 -143.5000 0.0000000E+00 + -25.50000 -143.5000 0.0000000E+00 + -24.50000 -143.5000 0.0000000E+00 + -23.50000 -143.5000 0.0000000E+00 + -22.50000 -143.5000 0.0000000E+00 + -21.50000 -143.5000 0.0000000E+00 + -20.50000 -143.5000 0.0000000E+00 + -19.50000 -143.5000 0.0000000E+00 + -18.50000 -143.5000 0.0000000E+00 + -17.50000 -143.5000 0.0000000E+00 + -16.50000 -143.5000 0.0000000E+00 + -15.50000 -143.5000 0.0000000E+00 + -14.50000 -143.5000 0.0000000E+00 + -13.50000 -143.5000 0.0000000E+00 + -12.50000 -143.5000 0.0000000E+00 + -11.50000 -143.5000 0.0000000E+00 + -10.50000 -143.5000 0.0000000E+00 + -9.500000 -143.5000 0.0000000E+00 + -8.500000 -143.5000 0.0000000E+00 + -7.500000 -143.5000 0.0000000E+00 + -6.500000 -143.5000 0.0000000E+00 + -5.500000 -143.5000 0.0000000E+00 + -4.500000 -143.5000 0.0000000E+00 + -3.500000 -143.5000 0.0000000E+00 + -2.500000 -143.5000 0.0000000E+00 + -1.500000 -143.5000 0.0000000E+00 + -0.5000000 -143.5000 0.0000000E+00 + 0.5000000 -143.5000 0.0000000E+00 + 1.500000 -143.5000 0.0000000E+00 + 2.500000 -143.5000 0.0000000E+00 + 3.500000 -143.5000 0.0000000E+00 + 4.500000 -143.5000 0.0000000E+00 + 5.500000 -143.5000 0.0000000E+00 + 6.500000 -143.5000 0.0000000E+00 + 7.500000 -143.5000 0.0000000E+00 + 8.500000 -143.5000 0.0000000E+00 + 9.500000 -143.5000 0.0000000E+00 + 10.50000 -143.5000 0.0000000E+00 + 11.50000 -143.5000 0.0000000E+00 + 12.50000 -143.5000 0.0000000E+00 + 13.50000 -143.5000 0.0000000E+00 + 14.50000 -143.5000 0.0000000E+00 + 15.50000 -143.5000 0.0000000E+00 + 16.50000 -143.5000 0.0000000E+00 + 17.50000 -143.5000 0.0000000E+00 + 18.50000 -143.5000 0.0000000E+00 + 19.50000 -143.5000 0.0000000E+00 + 20.50000 -143.5000 0.0000000E+00 + 21.50000 -143.5000 0.0000000E+00 + 22.50000 -143.5000 0.0000000E+00 + 23.50000 -143.5000 0.0000000E+00 + 24.50000 -143.5000 0.0000000E+00 + 25.50000 -143.5000 0.0000000E+00 + 26.50000 -143.5000 0.0000000E+00 + 27.50000 -143.5000 0.0000000E+00 + 28.50000 -143.5000 0.0000000E+00 + 29.50000 -143.5000 0.0000000E+00 + 30.50000 -143.5000 0.0000000E+00 + 31.50000 -143.5000 0.0000000E+00 + 32.50000 -143.5000 0.0000000E+00 + 33.50000 -143.5000 0.0000000E+00 + 34.50000 -143.5000 0.0000000E+00 + 35.50000 -143.5000 0.0000000E+00 + 36.50000 -143.5000 0.0000000E+00 + 37.50000 -143.5000 0.0000000E+00 + 38.50000 -143.5000 0.0000000E+00 + 39.50000 -143.5000 0.0000000E+00 + 40.50000 -143.5000 0.0000000E+00 + 41.50000 -143.5000 0.0000000E+00 + 42.50000 -143.5000 0.0000000E+00 + 43.50000 -143.5000 0.0000000E+00 + 44.50000 -143.5000 0.0000000E+00 + 45.50000 -143.5000 0.0000000E+00 + 46.50000 -143.5000 0.0000000E+00 + 47.50000 -143.5000 0.0000000E+00 + 48.50000 -143.5000 0.0000000E+00 + 49.50000 -143.5000 0.0000000E+00 + 50.50000 -143.5000 0.0000000E+00 + 51.50000 -143.5000 0.0000000E+00 + 52.50000 -143.5000 0.0000000E+00 + 53.50000 -143.5000 0.0000000E+00 + 54.50000 -143.5000 0.0000000E+00 + 55.50000 -143.5000 0.0000000E+00 + 56.50000 -143.5000 0.0000000E+00 + 57.50000 -143.5000 0.0000000E+00 + 58.50000 -143.5000 0.0000000E+00 + 59.50000 -143.5000 0.0000000E+00 + 60.50000 -143.5000 0.0000000E+00 + 61.50000 -143.5000 0.0000000E+00 + 62.50000 -143.5000 0.0000000E+00 + 63.50000 -143.5000 0.0000000E+00 + 64.50000 -143.5000 0.0000000E+00 + 65.50000 -143.5000 0.0000000E+00 + 66.50000 -143.5000 0.0000000E+00 + 67.50000 -143.5000 0.0000000E+00 + 68.50000 -143.5000 0.0000000E+00 + 69.50000 -143.5000 0.0000000E+00 + 70.50000 -143.5000 0.0000000E+00 + 71.50000 -143.5000 0.0000000E+00 + 72.50000 -143.5000 0.0000000E+00 + 73.50000 -143.5000 0.0000000E+00 + 74.50000 -143.5000 0.0000000E+00 + 75.50000 -143.5000 0.0000000E+00 + 76.50000 -143.5000 0.0000000E+00 + 77.50000 -143.5000 0.0000000E+00 + 78.50000 -143.5000 0.0000000E+00 + 79.50000 -143.5000 0.0000000E+00 + 80.50000 -143.5000 0.0000000E+00 + 81.50000 -143.5000 0.0000000E+00 + 82.50000 -143.5000 0.0000000E+00 + 83.50000 -143.5000 0.0000000E+00 + 84.50000 -143.5000 0.0000000E+00 + 85.50000 -143.5000 0.0000000E+00 + 86.50000 -143.5000 0.0000000E+00 + 87.50000 -143.5000 0.0000000E+00 + 88.50000 -143.5000 0.0000000E+00 + 89.50000 -143.5000 0.0000000E+00 + -89.50000 -142.5000 0.0000000E+00 + -88.50000 -142.5000 0.0000000E+00 + -87.50000 -142.5000 0.0000000E+00 + -86.50000 -142.5000 0.0000000E+00 + -85.50000 -142.5000 0.0000000E+00 + -84.50000 -142.5000 0.0000000E+00 + -83.50000 -142.5000 0.0000000E+00 + -82.50000 -142.5000 0.0000000E+00 + -81.50000 -142.5000 0.0000000E+00 + -80.50000 -142.5000 0.0000000E+00 + -79.50000 -142.5000 0.0000000E+00 + -78.50000 -142.5000 0.0000000E+00 + -77.50000 -142.5000 0.0000000E+00 + -76.50000 -142.5000 0.0000000E+00 + -75.50000 -142.5000 0.0000000E+00 + -74.50000 -142.5000 0.0000000E+00 + -73.50000 -142.5000 0.0000000E+00 + -72.50000 -142.5000 0.0000000E+00 + -71.50000 -142.5000 0.0000000E+00 + -70.50000 -142.5000 0.0000000E+00 + -69.50000 -142.5000 0.0000000E+00 + -68.50000 -142.5000 0.0000000E+00 + -67.50000 -142.5000 0.0000000E+00 + -66.50000 -142.5000 0.0000000E+00 + -65.50000 -142.5000 0.0000000E+00 + -64.50000 -142.5000 0.0000000E+00 + -63.50000 -142.5000 0.0000000E+00 + -62.50000 -142.5000 0.0000000E+00 + -61.50000 -142.5000 0.0000000E+00 + -60.50000 -142.5000 0.0000000E+00 + -59.50000 -142.5000 0.0000000E+00 + -58.50000 -142.5000 0.0000000E+00 + -57.50000 -142.5000 0.0000000E+00 + -56.50000 -142.5000 0.0000000E+00 + -55.50000 -142.5000 0.0000000E+00 + -54.50000 -142.5000 0.0000000E+00 + -53.50000 -142.5000 0.0000000E+00 + -52.50000 -142.5000 0.0000000E+00 + -51.50000 -142.5000 0.0000000E+00 + -50.50000 -142.5000 0.0000000E+00 + -49.50000 -142.5000 0.0000000E+00 + -48.50000 -142.5000 0.0000000E+00 + -47.50000 -142.5000 0.0000000E+00 + -46.50000 -142.5000 0.0000000E+00 + -45.50000 -142.5000 0.0000000E+00 + -44.50000 -142.5000 0.0000000E+00 + -43.50000 -142.5000 0.0000000E+00 + -42.50000 -142.5000 0.0000000E+00 + -41.50000 -142.5000 0.0000000E+00 + -40.50000 -142.5000 0.0000000E+00 + -39.50000 -142.5000 0.0000000E+00 + -38.50000 -142.5000 0.0000000E+00 + -37.50000 -142.5000 0.0000000E+00 + -36.50000 -142.5000 0.0000000E+00 + -35.50000 -142.5000 0.0000000E+00 + -34.50000 -142.5000 0.0000000E+00 + -33.50000 -142.5000 0.0000000E+00 + -32.50000 -142.5000 0.0000000E+00 + -31.50000 -142.5000 0.0000000E+00 + -30.50000 -142.5000 0.0000000E+00 + -29.50000 -142.5000 0.0000000E+00 + -28.50000 -142.5000 0.0000000E+00 + -27.50000 -142.5000 0.0000000E+00 + -26.50000 -142.5000 0.0000000E+00 + -25.50000 -142.5000 0.0000000E+00 + -24.50000 -142.5000 0.0000000E+00 + -23.50000 -142.5000 0.0000000E+00 + -22.50000 -142.5000 0.0000000E+00 + -21.50000 -142.5000 0.0000000E+00 + -20.50000 -142.5000 0.0000000E+00 + -19.50000 -142.5000 0.0000000E+00 + -18.50000 -142.5000 0.0000000E+00 + -17.50000 -142.5000 0.0000000E+00 + -16.50000 -142.5000 0.0000000E+00 + -15.50000 -142.5000 0.0000000E+00 + -14.50000 -142.5000 0.0000000E+00 + -13.50000 -142.5000 0.0000000E+00 + -12.50000 -142.5000 0.0000000E+00 + -11.50000 -142.5000 0.0000000E+00 + -10.50000 -142.5000 0.0000000E+00 + -9.500000 -142.5000 0.0000000E+00 + -8.500000 -142.5000 0.0000000E+00 + -7.500000 -142.5000 0.0000000E+00 + -6.500000 -142.5000 0.0000000E+00 + -5.500000 -142.5000 0.0000000E+00 + -4.500000 -142.5000 0.0000000E+00 + -3.500000 -142.5000 0.0000000E+00 + -2.500000 -142.5000 0.0000000E+00 + -1.500000 -142.5000 0.0000000E+00 + -0.5000000 -142.5000 0.0000000E+00 + 0.5000000 -142.5000 0.0000000E+00 + 1.500000 -142.5000 0.0000000E+00 + 2.500000 -142.5000 0.0000000E+00 + 3.500000 -142.5000 0.0000000E+00 + 4.500000 -142.5000 0.0000000E+00 + 5.500000 -142.5000 0.0000000E+00 + 6.500000 -142.5000 0.0000000E+00 + 7.500000 -142.5000 0.0000000E+00 + 8.500000 -142.5000 0.0000000E+00 + 9.500000 -142.5000 0.0000000E+00 + 10.50000 -142.5000 0.0000000E+00 + 11.50000 -142.5000 0.0000000E+00 + 12.50000 -142.5000 0.0000000E+00 + 13.50000 -142.5000 0.0000000E+00 + 14.50000 -142.5000 0.0000000E+00 + 15.50000 -142.5000 0.0000000E+00 + 16.50000 -142.5000 0.0000000E+00 + 17.50000 -142.5000 0.0000000E+00 + 18.50000 -142.5000 0.0000000E+00 + 19.50000 -142.5000 0.0000000E+00 + 20.50000 -142.5000 0.0000000E+00 + 21.50000 -142.5000 0.0000000E+00 + 22.50000 -142.5000 0.0000000E+00 + 23.50000 -142.5000 0.0000000E+00 + 24.50000 -142.5000 0.0000000E+00 + 25.50000 -142.5000 0.0000000E+00 + 26.50000 -142.5000 0.0000000E+00 + 27.50000 -142.5000 0.0000000E+00 + 28.50000 -142.5000 0.0000000E+00 + 29.50000 -142.5000 0.0000000E+00 + 30.50000 -142.5000 0.0000000E+00 + 31.50000 -142.5000 0.0000000E+00 + 32.50000 -142.5000 0.0000000E+00 + 33.50000 -142.5000 0.0000000E+00 + 34.50000 -142.5000 0.0000000E+00 + 35.50000 -142.5000 0.0000000E+00 + 36.50000 -142.5000 0.0000000E+00 + 37.50000 -142.5000 0.0000000E+00 + 38.50000 -142.5000 0.0000000E+00 + 39.50000 -142.5000 0.0000000E+00 + 40.50000 -142.5000 0.0000000E+00 + 41.50000 -142.5000 0.0000000E+00 + 42.50000 -142.5000 0.0000000E+00 + 43.50000 -142.5000 0.0000000E+00 + 44.50000 -142.5000 0.0000000E+00 + 45.50000 -142.5000 0.0000000E+00 + 46.50000 -142.5000 0.0000000E+00 + 47.50000 -142.5000 0.0000000E+00 + 48.50000 -142.5000 0.0000000E+00 + 49.50000 -142.5000 0.0000000E+00 + 50.50000 -142.5000 0.0000000E+00 + 51.50000 -142.5000 0.0000000E+00 + 52.50000 -142.5000 0.0000000E+00 + 53.50000 -142.5000 0.0000000E+00 + 54.50000 -142.5000 0.0000000E+00 + 55.50000 -142.5000 0.0000000E+00 + 56.50000 -142.5000 0.0000000E+00 + 57.50000 -142.5000 0.0000000E+00 + 58.50000 -142.5000 0.0000000E+00 + 59.50000 -142.5000 0.0000000E+00 + 60.50000 -142.5000 0.0000000E+00 + 61.50000 -142.5000 0.0000000E+00 + 62.50000 -142.5000 0.0000000E+00 + 63.50000 -142.5000 0.0000000E+00 + 64.50000 -142.5000 0.0000000E+00 + 65.50000 -142.5000 0.0000000E+00 + 66.50000 -142.5000 0.0000000E+00 + 67.50000 -142.5000 0.0000000E+00 + 68.50000 -142.5000 0.0000000E+00 + 69.50000 -142.5000 0.0000000E+00 + 70.50000 -142.5000 0.0000000E+00 + 71.50000 -142.5000 0.0000000E+00 + 72.50000 -142.5000 0.0000000E+00 + 73.50000 -142.5000 0.0000000E+00 + 74.50000 -142.5000 0.0000000E+00 + 75.50000 -142.5000 0.0000000E+00 + 76.50000 -142.5000 0.0000000E+00 + 77.50000 -142.5000 0.0000000E+00 + 78.50000 -142.5000 0.0000000E+00 + 79.50000 -142.5000 0.0000000E+00 + 80.50000 -142.5000 0.0000000E+00 + 81.50000 -142.5000 0.0000000E+00 + 82.50000 -142.5000 0.0000000E+00 + 83.50000 -142.5000 0.0000000E+00 + 84.50000 -142.5000 0.0000000E+00 + 85.50000 -142.5000 0.0000000E+00 + 86.50000 -142.5000 0.0000000E+00 + 87.50000 -142.5000 0.0000000E+00 + 88.50000 -142.5000 0.0000000E+00 + 89.50000 -142.5000 0.0000000E+00 + -89.50000 -141.5000 0.0000000E+00 + -88.50000 -141.5000 0.0000000E+00 + -87.50000 -141.5000 0.0000000E+00 + -86.50000 -141.5000 0.0000000E+00 + -85.50000 -141.5000 0.0000000E+00 + -84.50000 -141.5000 0.0000000E+00 + -83.50000 -141.5000 0.0000000E+00 + -82.50000 -141.5000 0.0000000E+00 + -81.50000 -141.5000 0.0000000E+00 + -80.50000 -141.5000 0.0000000E+00 + -79.50000 -141.5000 0.0000000E+00 + -78.50000 -141.5000 0.0000000E+00 + -77.50000 -141.5000 0.0000000E+00 + -76.50000 -141.5000 0.0000000E+00 + -75.50000 -141.5000 0.0000000E+00 + -74.50000 -141.5000 0.0000000E+00 + -73.50000 -141.5000 0.0000000E+00 + -72.50000 -141.5000 0.0000000E+00 + -71.50000 -141.5000 0.0000000E+00 + -70.50000 -141.5000 0.0000000E+00 + -69.50000 -141.5000 0.0000000E+00 + -68.50000 -141.5000 0.0000000E+00 + -67.50000 -141.5000 0.0000000E+00 + -66.50000 -141.5000 0.0000000E+00 + -65.50000 -141.5000 0.0000000E+00 + -64.50000 -141.5000 0.0000000E+00 + -63.50000 -141.5000 0.0000000E+00 + -62.50000 -141.5000 0.0000000E+00 + -61.50000 -141.5000 0.0000000E+00 + -60.50000 -141.5000 0.0000000E+00 + -59.50000 -141.5000 0.0000000E+00 + -58.50000 -141.5000 0.0000000E+00 + -57.50000 -141.5000 0.0000000E+00 + -56.50000 -141.5000 0.0000000E+00 + -55.50000 -141.5000 0.0000000E+00 + -54.50000 -141.5000 0.0000000E+00 + -53.50000 -141.5000 0.0000000E+00 + -52.50000 -141.5000 0.0000000E+00 + -51.50000 -141.5000 0.0000000E+00 + -50.50000 -141.5000 0.0000000E+00 + -49.50000 -141.5000 0.0000000E+00 + -48.50000 -141.5000 0.0000000E+00 + -47.50000 -141.5000 0.0000000E+00 + -46.50000 -141.5000 0.0000000E+00 + -45.50000 -141.5000 0.0000000E+00 + -44.50000 -141.5000 0.0000000E+00 + -43.50000 -141.5000 0.0000000E+00 + -42.50000 -141.5000 0.0000000E+00 + -41.50000 -141.5000 0.0000000E+00 + -40.50000 -141.5000 0.0000000E+00 + -39.50000 -141.5000 0.0000000E+00 + -38.50000 -141.5000 0.0000000E+00 + -37.50000 -141.5000 0.0000000E+00 + -36.50000 -141.5000 0.0000000E+00 + -35.50000 -141.5000 0.0000000E+00 + -34.50000 -141.5000 0.0000000E+00 + -33.50000 -141.5000 0.0000000E+00 + -32.50000 -141.5000 0.0000000E+00 + -31.50000 -141.5000 0.0000000E+00 + -30.50000 -141.5000 0.0000000E+00 + -29.50000 -141.5000 0.0000000E+00 + -28.50000 -141.5000 0.0000000E+00 + -27.50000 -141.5000 0.0000000E+00 + -26.50000 -141.5000 0.0000000E+00 + -25.50000 -141.5000 0.0000000E+00 + -24.50000 -141.5000 0.0000000E+00 + -23.50000 -141.5000 0.0000000E+00 + -22.50000 -141.5000 0.0000000E+00 + -21.50000 -141.5000 0.0000000E+00 + -20.50000 -141.5000 0.0000000E+00 + -19.50000 -141.5000 0.0000000E+00 + -18.50000 -141.5000 0.0000000E+00 + -17.50000 -141.5000 0.0000000E+00 + -16.50000 -141.5000 0.0000000E+00 + -15.50000 -141.5000 0.0000000E+00 + -14.50000 -141.5000 0.0000000E+00 + -13.50000 -141.5000 0.0000000E+00 + -12.50000 -141.5000 0.0000000E+00 + -11.50000 -141.5000 0.0000000E+00 + -10.50000 -141.5000 0.0000000E+00 + -9.500000 -141.5000 0.0000000E+00 + -8.500000 -141.5000 0.0000000E+00 + -7.500000 -141.5000 0.0000000E+00 + -6.500000 -141.5000 0.0000000E+00 + -5.500000 -141.5000 0.0000000E+00 + -4.500000 -141.5000 0.0000000E+00 + -3.500000 -141.5000 0.0000000E+00 + -2.500000 -141.5000 0.0000000E+00 + -1.500000 -141.5000 0.0000000E+00 + -0.5000000 -141.5000 0.0000000E+00 + 0.5000000 -141.5000 0.0000000E+00 + 1.500000 -141.5000 0.0000000E+00 + 2.500000 -141.5000 0.0000000E+00 + 3.500000 -141.5000 0.0000000E+00 + 4.500000 -141.5000 0.0000000E+00 + 5.500000 -141.5000 0.0000000E+00 + 6.500000 -141.5000 0.0000000E+00 + 7.500000 -141.5000 0.0000000E+00 + 8.500000 -141.5000 0.0000000E+00 + 9.500000 -141.5000 0.0000000E+00 + 10.50000 -141.5000 0.0000000E+00 + 11.50000 -141.5000 0.0000000E+00 + 12.50000 -141.5000 0.0000000E+00 + 13.50000 -141.5000 0.0000000E+00 + 14.50000 -141.5000 0.0000000E+00 + 15.50000 -141.5000 0.0000000E+00 + 16.50000 -141.5000 0.0000000E+00 + 17.50000 -141.5000 0.0000000E+00 + 18.50000 -141.5000 0.0000000E+00 + 19.50000 -141.5000 0.0000000E+00 + 20.50000 -141.5000 0.0000000E+00 + 21.50000 -141.5000 0.0000000E+00 + 22.50000 -141.5000 0.0000000E+00 + 23.50000 -141.5000 0.0000000E+00 + 24.50000 -141.5000 0.0000000E+00 + 25.50000 -141.5000 0.0000000E+00 + 26.50000 -141.5000 0.0000000E+00 + 27.50000 -141.5000 0.0000000E+00 + 28.50000 -141.5000 0.0000000E+00 + 29.50000 -141.5000 0.0000000E+00 + 30.50000 -141.5000 0.0000000E+00 + 31.50000 -141.5000 0.0000000E+00 + 32.50000 -141.5000 0.0000000E+00 + 33.50000 -141.5000 0.0000000E+00 + 34.50000 -141.5000 0.0000000E+00 + 35.50000 -141.5000 0.0000000E+00 + 36.50000 -141.5000 0.0000000E+00 + 37.50000 -141.5000 0.0000000E+00 + 38.50000 -141.5000 0.0000000E+00 + 39.50000 -141.5000 0.0000000E+00 + 40.50000 -141.5000 0.0000000E+00 + 41.50000 -141.5000 0.0000000E+00 + 42.50000 -141.5000 0.0000000E+00 + 43.50000 -141.5000 0.0000000E+00 + 44.50000 -141.5000 0.0000000E+00 + 45.50000 -141.5000 0.0000000E+00 + 46.50000 -141.5000 0.0000000E+00 + 47.50000 -141.5000 0.0000000E+00 + 48.50000 -141.5000 0.0000000E+00 + 49.50000 -141.5000 0.0000000E+00 + 50.50000 -141.5000 0.0000000E+00 + 51.50000 -141.5000 0.0000000E+00 + 52.50000 -141.5000 0.0000000E+00 + 53.50000 -141.5000 0.0000000E+00 + 54.50000 -141.5000 0.0000000E+00 + 55.50000 -141.5000 0.0000000E+00 + 56.50000 -141.5000 0.0000000E+00 + 57.50000 -141.5000 0.0000000E+00 + 58.50000 -141.5000 0.0000000E+00 + 59.50000 -141.5000 0.0000000E+00 + 60.50000 -141.5000 0.0000000E+00 + 61.50000 -141.5000 0.0000000E+00 + 62.50000 -141.5000 0.0000000E+00 + 63.50000 -141.5000 0.0000000E+00 + 64.50000 -141.5000 0.0000000E+00 + 65.50000 -141.5000 0.0000000E+00 + 66.50000 -141.5000 0.0000000E+00 + 67.50000 -141.5000 0.0000000E+00 + 68.50000 -141.5000 0.0000000E+00 + 69.50000 -141.5000 0.0000000E+00 + 70.50000 -141.5000 0.0000000E+00 + 71.50000 -141.5000 0.0000000E+00 + 72.50000 -141.5000 0.0000000E+00 + 73.50000 -141.5000 0.0000000E+00 + 74.50000 -141.5000 0.0000000E+00 + 75.50000 -141.5000 0.0000000E+00 + 76.50000 -141.5000 0.0000000E+00 + 77.50000 -141.5000 0.0000000E+00 + 78.50000 -141.5000 0.0000000E+00 + 79.50000 -141.5000 0.0000000E+00 + 80.50000 -141.5000 0.0000000E+00 + 81.50000 -141.5000 0.0000000E+00 + 82.50000 -141.5000 0.0000000E+00 + 83.50000 -141.5000 0.0000000E+00 + 84.50000 -141.5000 0.0000000E+00 + 85.50000 -141.5000 0.0000000E+00 + 86.50000 -141.5000 0.0000000E+00 + 87.50000 -141.5000 0.0000000E+00 + 88.50000 -141.5000 0.0000000E+00 + 89.50000 -141.5000 0.0000000E+00 + -89.50000 -140.5000 0.0000000E+00 + -88.50000 -140.5000 0.0000000E+00 + -87.50000 -140.5000 0.0000000E+00 + -86.50000 -140.5000 0.0000000E+00 + -85.50000 -140.5000 0.0000000E+00 + -84.50000 -140.5000 0.0000000E+00 + -83.50000 -140.5000 0.0000000E+00 + -82.50000 -140.5000 0.0000000E+00 + -81.50000 -140.5000 0.0000000E+00 + -80.50000 -140.5000 0.0000000E+00 + -79.50000 -140.5000 0.0000000E+00 + -78.50000 -140.5000 0.0000000E+00 + -77.50000 -140.5000 0.0000000E+00 + -76.50000 -140.5000 0.0000000E+00 + -75.50000 -140.5000 0.0000000E+00 + -74.50000 -140.5000 0.0000000E+00 + -73.50000 -140.5000 0.0000000E+00 + -72.50000 -140.5000 0.0000000E+00 + -71.50000 -140.5000 0.0000000E+00 + -70.50000 -140.5000 0.0000000E+00 + -69.50000 -140.5000 0.0000000E+00 + -68.50000 -140.5000 0.0000000E+00 + -67.50000 -140.5000 0.0000000E+00 + -66.50000 -140.5000 0.0000000E+00 + -65.50000 -140.5000 0.0000000E+00 + -64.50000 -140.5000 0.0000000E+00 + -63.50000 -140.5000 0.0000000E+00 + -62.50000 -140.5000 0.0000000E+00 + -61.50000 -140.5000 0.0000000E+00 + -60.50000 -140.5000 0.0000000E+00 + -59.50000 -140.5000 0.0000000E+00 + -58.50000 -140.5000 0.0000000E+00 + -57.50000 -140.5000 0.0000000E+00 + -56.50000 -140.5000 0.0000000E+00 + -55.50000 -140.5000 0.0000000E+00 + -54.50000 -140.5000 0.0000000E+00 + -53.50000 -140.5000 0.0000000E+00 + -52.50000 -140.5000 0.0000000E+00 + -51.50000 -140.5000 0.0000000E+00 + -50.50000 -140.5000 0.0000000E+00 + -49.50000 -140.5000 0.0000000E+00 + -48.50000 -140.5000 0.0000000E+00 + -47.50000 -140.5000 0.0000000E+00 + -46.50000 -140.5000 0.0000000E+00 + -45.50000 -140.5000 0.0000000E+00 + -44.50000 -140.5000 0.0000000E+00 + -43.50000 -140.5000 0.0000000E+00 + -42.50000 -140.5000 0.0000000E+00 + -41.50000 -140.5000 0.0000000E+00 + -40.50000 -140.5000 0.0000000E+00 + -39.50000 -140.5000 0.0000000E+00 + -38.50000 -140.5000 0.0000000E+00 + -37.50000 -140.5000 0.0000000E+00 + -36.50000 -140.5000 0.0000000E+00 + -35.50000 -140.5000 0.0000000E+00 + -34.50000 -140.5000 0.0000000E+00 + -33.50000 -140.5000 0.0000000E+00 + -32.50000 -140.5000 0.0000000E+00 + -31.50000 -140.5000 0.0000000E+00 + -30.50000 -140.5000 0.0000000E+00 + -29.50000 -140.5000 0.0000000E+00 + -28.50000 -140.5000 0.0000000E+00 + -27.50000 -140.5000 0.0000000E+00 + -26.50000 -140.5000 0.0000000E+00 + -25.50000 -140.5000 0.0000000E+00 + -24.50000 -140.5000 0.0000000E+00 + -23.50000 -140.5000 0.0000000E+00 + -22.50000 -140.5000 0.0000000E+00 + -21.50000 -140.5000 0.0000000E+00 + -20.50000 -140.5000 0.0000000E+00 + -19.50000 -140.5000 0.0000000E+00 + -18.50000 -140.5000 0.0000000E+00 + -17.50000 -140.5000 0.0000000E+00 + -16.50000 -140.5000 0.0000000E+00 + -15.50000 -140.5000 0.0000000E+00 + -14.50000 -140.5000 0.0000000E+00 + -13.50000 -140.5000 0.0000000E+00 + -12.50000 -140.5000 0.0000000E+00 + -11.50000 -140.5000 0.0000000E+00 + -10.50000 -140.5000 0.0000000E+00 + -9.500000 -140.5000 0.0000000E+00 + -8.500000 -140.5000 0.0000000E+00 + -7.500000 -140.5000 0.0000000E+00 + -6.500000 -140.5000 0.0000000E+00 + -5.500000 -140.5000 0.0000000E+00 + -4.500000 -140.5000 0.0000000E+00 + -3.500000 -140.5000 0.0000000E+00 + -2.500000 -140.5000 0.0000000E+00 + -1.500000 -140.5000 0.0000000E+00 + -0.5000000 -140.5000 0.0000000E+00 + 0.5000000 -140.5000 0.0000000E+00 + 1.500000 -140.5000 0.0000000E+00 + 2.500000 -140.5000 0.0000000E+00 + 3.500000 -140.5000 0.0000000E+00 + 4.500000 -140.5000 0.0000000E+00 + 5.500000 -140.5000 0.0000000E+00 + 6.500000 -140.5000 0.0000000E+00 + 7.500000 -140.5000 0.0000000E+00 + 8.500000 -140.5000 0.0000000E+00 + 9.500000 -140.5000 0.0000000E+00 + 10.50000 -140.5000 0.0000000E+00 + 11.50000 -140.5000 0.0000000E+00 + 12.50000 -140.5000 0.0000000E+00 + 13.50000 -140.5000 0.0000000E+00 + 14.50000 -140.5000 0.0000000E+00 + 15.50000 -140.5000 0.0000000E+00 + 16.50000 -140.5000 0.0000000E+00 + 17.50000 -140.5000 0.0000000E+00 + 18.50000 -140.5000 0.0000000E+00 + 19.50000 -140.5000 0.0000000E+00 + 20.50000 -140.5000 0.0000000E+00 + 21.50000 -140.5000 0.0000000E+00 + 22.50000 -140.5000 0.0000000E+00 + 23.50000 -140.5000 0.0000000E+00 + 24.50000 -140.5000 0.0000000E+00 + 25.50000 -140.5000 0.0000000E+00 + 26.50000 -140.5000 0.0000000E+00 + 27.50000 -140.5000 0.0000000E+00 + 28.50000 -140.5000 0.0000000E+00 + 29.50000 -140.5000 0.0000000E+00 + 30.50000 -140.5000 0.0000000E+00 + 31.50000 -140.5000 0.0000000E+00 + 32.50000 -140.5000 0.0000000E+00 + 33.50000 -140.5000 0.0000000E+00 + 34.50000 -140.5000 0.0000000E+00 + 35.50000 -140.5000 0.0000000E+00 + 36.50000 -140.5000 0.0000000E+00 + 37.50000 -140.5000 0.0000000E+00 + 38.50000 -140.5000 0.0000000E+00 + 39.50000 -140.5000 0.0000000E+00 + 40.50000 -140.5000 0.0000000E+00 + 41.50000 -140.5000 0.0000000E+00 + 42.50000 -140.5000 0.0000000E+00 + 43.50000 -140.5000 0.0000000E+00 + 44.50000 -140.5000 0.0000000E+00 + 45.50000 -140.5000 0.0000000E+00 + 46.50000 -140.5000 0.0000000E+00 + 47.50000 -140.5000 0.0000000E+00 + 48.50000 -140.5000 0.0000000E+00 + 49.50000 -140.5000 0.0000000E+00 + 50.50000 -140.5000 0.0000000E+00 + 51.50000 -140.5000 0.0000000E+00 + 52.50000 -140.5000 0.0000000E+00 + 53.50000 -140.5000 0.0000000E+00 + 54.50000 -140.5000 0.0000000E+00 + 55.50000 -140.5000 0.0000000E+00 + 56.50000 -140.5000 0.0000000E+00 + 57.50000 -140.5000 0.0000000E+00 + 58.50000 -140.5000 0.0000000E+00 + 59.50000 -140.5000 0.0000000E+00 + 60.50000 -140.5000 0.0000000E+00 + 61.50000 -140.5000 0.0000000E+00 + 62.50000 -140.5000 0.0000000E+00 + 63.50000 -140.5000 0.0000000E+00 + 64.50000 -140.5000 0.0000000E+00 + 65.50000 -140.5000 0.0000000E+00 + 66.50000 -140.5000 0.0000000E+00 + 67.50000 -140.5000 0.0000000E+00 + 68.50000 -140.5000 0.0000000E+00 + 69.50000 -140.5000 0.0000000E+00 + 70.50000 -140.5000 0.0000000E+00 + 71.50000 -140.5000 0.0000000E+00 + 72.50000 -140.5000 0.0000000E+00 + 73.50000 -140.5000 0.0000000E+00 + 74.50000 -140.5000 0.0000000E+00 + 75.50000 -140.5000 0.0000000E+00 + 76.50000 -140.5000 0.0000000E+00 + 77.50000 -140.5000 0.0000000E+00 + 78.50000 -140.5000 0.0000000E+00 + 79.50000 -140.5000 0.0000000E+00 + 80.50000 -140.5000 0.0000000E+00 + 81.50000 -140.5000 0.0000000E+00 + 82.50000 -140.5000 0.0000000E+00 + 83.50000 -140.5000 0.0000000E+00 + 84.50000 -140.5000 0.0000000E+00 + 85.50000 -140.5000 0.0000000E+00 + 86.50000 -140.5000 0.0000000E+00 + 87.50000 -140.5000 0.0000000E+00 + 88.50000 -140.5000 0.0000000E+00 + 89.50000 -140.5000 0.0000000E+00 + -89.50000 -139.5000 0.0000000E+00 + -88.50000 -139.5000 0.0000000E+00 + -87.50000 -139.5000 0.0000000E+00 + -86.50000 -139.5000 0.0000000E+00 + -85.50000 -139.5000 0.0000000E+00 + -84.50000 -139.5000 0.0000000E+00 + -83.50000 -139.5000 0.0000000E+00 + -82.50000 -139.5000 0.0000000E+00 + -81.50000 -139.5000 0.0000000E+00 + -80.50000 -139.5000 0.0000000E+00 + -79.50000 -139.5000 0.0000000E+00 + -78.50000 -139.5000 0.0000000E+00 + -77.50000 -139.5000 0.0000000E+00 + -76.50000 -139.5000 0.0000000E+00 + -75.50000 -139.5000 0.0000000E+00 + -74.50000 -139.5000 0.0000000E+00 + -73.50000 -139.5000 0.0000000E+00 + -72.50000 -139.5000 0.0000000E+00 + -71.50000 -139.5000 0.0000000E+00 + -70.50000 -139.5000 0.0000000E+00 + -69.50000 -139.5000 0.0000000E+00 + -68.50000 -139.5000 0.0000000E+00 + -67.50000 -139.5000 0.0000000E+00 + -66.50000 -139.5000 0.0000000E+00 + -65.50000 -139.5000 0.0000000E+00 + -64.50000 -139.5000 0.0000000E+00 + -63.50000 -139.5000 0.0000000E+00 + -62.50000 -139.5000 0.0000000E+00 + -61.50000 -139.5000 0.0000000E+00 + -60.50000 -139.5000 0.0000000E+00 + -59.50000 -139.5000 0.0000000E+00 + -58.50000 -139.5000 0.0000000E+00 + -57.50000 -139.5000 0.0000000E+00 + -56.50000 -139.5000 0.0000000E+00 + -55.50000 -139.5000 0.0000000E+00 + -54.50000 -139.5000 0.0000000E+00 + -53.50000 -139.5000 0.0000000E+00 + -52.50000 -139.5000 0.0000000E+00 + -51.50000 -139.5000 0.0000000E+00 + -50.50000 -139.5000 0.0000000E+00 + -49.50000 -139.5000 0.0000000E+00 + -48.50000 -139.5000 0.0000000E+00 + -47.50000 -139.5000 0.0000000E+00 + -46.50000 -139.5000 0.0000000E+00 + -45.50000 -139.5000 0.0000000E+00 + -44.50000 -139.5000 0.0000000E+00 + -43.50000 -139.5000 0.0000000E+00 + -42.50000 -139.5000 0.0000000E+00 + -41.50000 -139.5000 0.0000000E+00 + -40.50000 -139.5000 0.0000000E+00 + -39.50000 -139.5000 0.0000000E+00 + -38.50000 -139.5000 0.0000000E+00 + -37.50000 -139.5000 0.0000000E+00 + -36.50000 -139.5000 0.0000000E+00 + -35.50000 -139.5000 0.0000000E+00 + -34.50000 -139.5000 0.0000000E+00 + -33.50000 -139.5000 0.0000000E+00 + -32.50000 -139.5000 0.0000000E+00 + -31.50000 -139.5000 0.0000000E+00 + -30.50000 -139.5000 0.0000000E+00 + -29.50000 -139.5000 0.0000000E+00 + -28.50000 -139.5000 0.0000000E+00 + -27.50000 -139.5000 0.0000000E+00 + -26.50000 -139.5000 0.0000000E+00 + -25.50000 -139.5000 0.0000000E+00 + -24.50000 -139.5000 0.0000000E+00 + -23.50000 -139.5000 0.0000000E+00 + -22.50000 -139.5000 0.0000000E+00 + -21.50000 -139.5000 0.0000000E+00 + -20.50000 -139.5000 0.0000000E+00 + -19.50000 -139.5000 0.0000000E+00 + -18.50000 -139.5000 0.0000000E+00 + -17.50000 -139.5000 0.0000000E+00 + -16.50000 -139.5000 0.0000000E+00 + -15.50000 -139.5000 0.0000000E+00 + -14.50000 -139.5000 0.0000000E+00 + -13.50000 -139.5000 0.0000000E+00 + -12.50000 -139.5000 0.0000000E+00 + -11.50000 -139.5000 0.0000000E+00 + -10.50000 -139.5000 0.0000000E+00 + -9.500000 -139.5000 0.0000000E+00 + -8.500000 -139.5000 0.0000000E+00 + -7.500000 -139.5000 0.0000000E+00 + -6.500000 -139.5000 0.0000000E+00 + -5.500000 -139.5000 0.0000000E+00 + -4.500000 -139.5000 0.0000000E+00 + -3.500000 -139.5000 0.0000000E+00 + -2.500000 -139.5000 0.0000000E+00 + -1.500000 -139.5000 0.0000000E+00 + -0.5000000 -139.5000 0.0000000E+00 + 0.5000000 -139.5000 0.0000000E+00 + 1.500000 -139.5000 0.0000000E+00 + 2.500000 -139.5000 0.0000000E+00 + 3.500000 -139.5000 0.0000000E+00 + 4.500000 -139.5000 0.0000000E+00 + 5.500000 -139.5000 0.0000000E+00 + 6.500000 -139.5000 0.0000000E+00 + 7.500000 -139.5000 0.0000000E+00 + 8.500000 -139.5000 0.0000000E+00 + 9.500000 -139.5000 0.0000000E+00 + 10.50000 -139.5000 0.0000000E+00 + 11.50000 -139.5000 0.0000000E+00 + 12.50000 -139.5000 0.0000000E+00 + 13.50000 -139.5000 0.0000000E+00 + 14.50000 -139.5000 0.0000000E+00 + 15.50000 -139.5000 0.0000000E+00 + 16.50000 -139.5000 0.0000000E+00 + 17.50000 -139.5000 0.0000000E+00 + 18.50000 -139.5000 0.0000000E+00 + 19.50000 -139.5000 0.0000000E+00 + 20.50000 -139.5000 0.0000000E+00 + 21.50000 -139.5000 0.0000000E+00 + 22.50000 -139.5000 0.0000000E+00 + 23.50000 -139.5000 0.0000000E+00 + 24.50000 -139.5000 0.0000000E+00 + 25.50000 -139.5000 0.0000000E+00 + 26.50000 -139.5000 0.0000000E+00 + 27.50000 -139.5000 0.0000000E+00 + 28.50000 -139.5000 0.0000000E+00 + 29.50000 -139.5000 0.0000000E+00 + 30.50000 -139.5000 0.0000000E+00 + 31.50000 -139.5000 0.0000000E+00 + 32.50000 -139.5000 0.0000000E+00 + 33.50000 -139.5000 0.0000000E+00 + 34.50000 -139.5000 0.0000000E+00 + 35.50000 -139.5000 0.0000000E+00 + 36.50000 -139.5000 0.0000000E+00 + 37.50000 -139.5000 0.0000000E+00 + 38.50000 -139.5000 0.0000000E+00 + 39.50000 -139.5000 0.0000000E+00 + 40.50000 -139.5000 0.0000000E+00 + 41.50000 -139.5000 0.0000000E+00 + 42.50000 -139.5000 0.0000000E+00 + 43.50000 -139.5000 0.0000000E+00 + 44.50000 -139.5000 0.0000000E+00 + 45.50000 -139.5000 0.0000000E+00 + 46.50000 -139.5000 0.0000000E+00 + 47.50000 -139.5000 0.0000000E+00 + 48.50000 -139.5000 0.0000000E+00 + 49.50000 -139.5000 0.0000000E+00 + 50.50000 -139.5000 0.0000000E+00 + 51.50000 -139.5000 0.0000000E+00 + 52.50000 -139.5000 0.0000000E+00 + 53.50000 -139.5000 0.0000000E+00 + 54.50000 -139.5000 0.0000000E+00 + 55.50000 -139.5000 0.0000000E+00 + 56.50000 -139.5000 0.0000000E+00 + 57.50000 -139.5000 0.0000000E+00 + 58.50000 -139.5000 0.0000000E+00 + 59.50000 -139.5000 0.0000000E+00 + 60.50000 -139.5000 0.0000000E+00 + 61.50000 -139.5000 0.0000000E+00 + 62.50000 -139.5000 0.0000000E+00 + 63.50000 -139.5000 0.0000000E+00 + 64.50000 -139.5000 0.0000000E+00 + 65.50000 -139.5000 0.0000000E+00 + 66.50000 -139.5000 0.0000000E+00 + 67.50000 -139.5000 0.0000000E+00 + 68.50000 -139.5000 0.0000000E+00 + 69.50000 -139.5000 0.0000000E+00 + 70.50000 -139.5000 0.0000000E+00 + 71.50000 -139.5000 0.0000000E+00 + 72.50000 -139.5000 0.0000000E+00 + 73.50000 -139.5000 0.0000000E+00 + 74.50000 -139.5000 0.0000000E+00 + 75.50000 -139.5000 0.0000000E+00 + 76.50000 -139.5000 0.0000000E+00 + 77.50000 -139.5000 0.0000000E+00 + 78.50000 -139.5000 0.0000000E+00 + 79.50000 -139.5000 0.0000000E+00 + 80.50000 -139.5000 0.0000000E+00 + 81.50000 -139.5000 0.0000000E+00 + 82.50000 -139.5000 0.0000000E+00 + 83.50000 -139.5000 0.0000000E+00 + 84.50000 -139.5000 0.0000000E+00 + 85.50000 -139.5000 0.0000000E+00 + 86.50000 -139.5000 0.0000000E+00 + 87.50000 -139.5000 0.0000000E+00 + 88.50000 -139.5000 0.0000000E+00 + 89.50000 -139.5000 0.0000000E+00 + -89.50000 -138.5000 0.0000000E+00 + -88.50000 -138.5000 0.0000000E+00 + -87.50000 -138.5000 0.0000000E+00 + -86.50000 -138.5000 0.0000000E+00 + -85.50000 -138.5000 0.0000000E+00 + -84.50000 -138.5000 0.0000000E+00 + -83.50000 -138.5000 0.0000000E+00 + -82.50000 -138.5000 0.0000000E+00 + -81.50000 -138.5000 0.0000000E+00 + -80.50000 -138.5000 0.0000000E+00 + -79.50000 -138.5000 0.0000000E+00 + -78.50000 -138.5000 0.0000000E+00 + -77.50000 -138.5000 0.0000000E+00 + -76.50000 -138.5000 0.0000000E+00 + -75.50000 -138.5000 0.0000000E+00 + -74.50000 -138.5000 0.0000000E+00 + -73.50000 -138.5000 0.0000000E+00 + -72.50000 -138.5000 0.0000000E+00 + -71.50000 -138.5000 0.0000000E+00 + -70.50000 -138.5000 0.0000000E+00 + -69.50000 -138.5000 0.0000000E+00 + -68.50000 -138.5000 0.0000000E+00 + -67.50000 -138.5000 0.0000000E+00 + -66.50000 -138.5000 0.0000000E+00 + -65.50000 -138.5000 0.0000000E+00 + -64.50000 -138.5000 0.0000000E+00 + -63.50000 -138.5000 0.0000000E+00 + -62.50000 -138.5000 0.0000000E+00 + -61.50000 -138.5000 0.0000000E+00 + -60.50000 -138.5000 0.0000000E+00 + -59.50000 -138.5000 0.0000000E+00 + -58.50000 -138.5000 0.0000000E+00 + -57.50000 -138.5000 0.0000000E+00 + -56.50000 -138.5000 0.0000000E+00 + -55.50000 -138.5000 0.0000000E+00 + -54.50000 -138.5000 0.0000000E+00 + -53.50000 -138.5000 0.0000000E+00 + -52.50000 -138.5000 0.0000000E+00 + -51.50000 -138.5000 0.0000000E+00 + -50.50000 -138.5000 0.0000000E+00 + -49.50000 -138.5000 0.0000000E+00 + -48.50000 -138.5000 0.0000000E+00 + -47.50000 -138.5000 0.0000000E+00 + -46.50000 -138.5000 0.0000000E+00 + -45.50000 -138.5000 0.0000000E+00 + -44.50000 -138.5000 0.0000000E+00 + -43.50000 -138.5000 0.0000000E+00 + -42.50000 -138.5000 0.0000000E+00 + -41.50000 -138.5000 0.0000000E+00 + -40.50000 -138.5000 0.0000000E+00 + -39.50000 -138.5000 0.0000000E+00 + -38.50000 -138.5000 0.0000000E+00 + -37.50000 -138.5000 0.0000000E+00 + -36.50000 -138.5000 0.0000000E+00 + -35.50000 -138.5000 0.0000000E+00 + -34.50000 -138.5000 0.0000000E+00 + -33.50000 -138.5000 0.0000000E+00 + -32.50000 -138.5000 0.0000000E+00 + -31.50000 -138.5000 0.0000000E+00 + -30.50000 -138.5000 0.0000000E+00 + -29.50000 -138.5000 0.0000000E+00 + -28.50000 -138.5000 0.0000000E+00 + -27.50000 -138.5000 0.0000000E+00 + -26.50000 -138.5000 0.0000000E+00 + -25.50000 -138.5000 0.0000000E+00 + -24.50000 -138.5000 0.0000000E+00 + -23.50000 -138.5000 0.0000000E+00 + -22.50000 -138.5000 0.0000000E+00 + -21.50000 -138.5000 0.0000000E+00 + -20.50000 -138.5000 0.0000000E+00 + -19.50000 -138.5000 0.0000000E+00 + -18.50000 -138.5000 0.0000000E+00 + -17.50000 -138.5000 0.0000000E+00 + -16.50000 -138.5000 0.0000000E+00 + -15.50000 -138.5000 0.0000000E+00 + -14.50000 -138.5000 0.0000000E+00 + -13.50000 -138.5000 0.0000000E+00 + -12.50000 -138.5000 0.0000000E+00 + -11.50000 -138.5000 0.0000000E+00 + -10.50000 -138.5000 0.0000000E+00 + -9.500000 -138.5000 0.0000000E+00 + -8.500000 -138.5000 0.0000000E+00 + -7.500000 -138.5000 0.0000000E+00 + -6.500000 -138.5000 0.0000000E+00 + -5.500000 -138.5000 0.0000000E+00 + -4.500000 -138.5000 0.0000000E+00 + -3.500000 -138.5000 0.0000000E+00 + -2.500000 -138.5000 0.0000000E+00 + -1.500000 -138.5000 0.0000000E+00 + -0.5000000 -138.5000 0.0000000E+00 + 0.5000000 -138.5000 0.0000000E+00 + 1.500000 -138.5000 0.0000000E+00 + 2.500000 -138.5000 0.0000000E+00 + 3.500000 -138.5000 0.0000000E+00 + 4.500000 -138.5000 0.0000000E+00 + 5.500000 -138.5000 0.0000000E+00 + 6.500000 -138.5000 0.0000000E+00 + 7.500000 -138.5000 0.0000000E+00 + 8.500000 -138.5000 0.0000000E+00 + 9.500000 -138.5000 0.0000000E+00 + 10.50000 -138.5000 0.0000000E+00 + 11.50000 -138.5000 0.0000000E+00 + 12.50000 -138.5000 0.0000000E+00 + 13.50000 -138.5000 0.0000000E+00 + 14.50000 -138.5000 0.0000000E+00 + 15.50000 -138.5000 0.0000000E+00 + 16.50000 -138.5000 0.0000000E+00 + 17.50000 -138.5000 0.0000000E+00 + 18.50000 -138.5000 0.0000000E+00 + 19.50000 -138.5000 0.0000000E+00 + 20.50000 -138.5000 0.0000000E+00 + 21.50000 -138.5000 0.0000000E+00 + 22.50000 -138.5000 0.0000000E+00 + 23.50000 -138.5000 0.0000000E+00 + 24.50000 -138.5000 0.0000000E+00 + 25.50000 -138.5000 0.0000000E+00 + 26.50000 -138.5000 0.0000000E+00 + 27.50000 -138.5000 0.0000000E+00 + 28.50000 -138.5000 0.0000000E+00 + 29.50000 -138.5000 0.0000000E+00 + 30.50000 -138.5000 0.0000000E+00 + 31.50000 -138.5000 0.0000000E+00 + 32.50000 -138.5000 0.0000000E+00 + 33.50000 -138.5000 0.0000000E+00 + 34.50000 -138.5000 0.0000000E+00 + 35.50000 -138.5000 0.0000000E+00 + 36.50000 -138.5000 0.0000000E+00 + 37.50000 -138.5000 0.0000000E+00 + 38.50000 -138.5000 0.0000000E+00 + 39.50000 -138.5000 0.0000000E+00 + 40.50000 -138.5000 0.0000000E+00 + 41.50000 -138.5000 0.0000000E+00 + 42.50000 -138.5000 0.0000000E+00 + 43.50000 -138.5000 0.0000000E+00 + 44.50000 -138.5000 0.0000000E+00 + 45.50000 -138.5000 0.0000000E+00 + 46.50000 -138.5000 0.0000000E+00 + 47.50000 -138.5000 0.0000000E+00 + 48.50000 -138.5000 0.0000000E+00 + 49.50000 -138.5000 0.0000000E+00 + 50.50000 -138.5000 0.0000000E+00 + 51.50000 -138.5000 0.0000000E+00 + 52.50000 -138.5000 0.0000000E+00 + 53.50000 -138.5000 0.0000000E+00 + 54.50000 -138.5000 0.0000000E+00 + 55.50000 -138.5000 0.0000000E+00 + 56.50000 -138.5000 0.0000000E+00 + 57.50000 -138.5000 0.0000000E+00 + 58.50000 -138.5000 0.0000000E+00 + 59.50000 -138.5000 0.0000000E+00 + 60.50000 -138.5000 0.0000000E+00 + 61.50000 -138.5000 0.0000000E+00 + 62.50000 -138.5000 0.0000000E+00 + 63.50000 -138.5000 0.0000000E+00 + 64.50000 -138.5000 0.0000000E+00 + 65.50000 -138.5000 0.0000000E+00 + 66.50000 -138.5000 0.0000000E+00 + 67.50000 -138.5000 0.0000000E+00 + 68.50000 -138.5000 0.0000000E+00 + 69.50000 -138.5000 0.0000000E+00 + 70.50000 -138.5000 0.0000000E+00 + 71.50000 -138.5000 0.0000000E+00 + 72.50000 -138.5000 0.0000000E+00 + 73.50000 -138.5000 0.0000000E+00 + 74.50000 -138.5000 0.0000000E+00 + 75.50000 -138.5000 0.0000000E+00 + 76.50000 -138.5000 0.0000000E+00 + 77.50000 -138.5000 0.0000000E+00 + 78.50000 -138.5000 0.0000000E+00 + 79.50000 -138.5000 0.0000000E+00 + 80.50000 -138.5000 0.0000000E+00 + 81.50000 -138.5000 0.0000000E+00 + 82.50000 -138.5000 0.0000000E+00 + 83.50000 -138.5000 0.0000000E+00 + 84.50000 -138.5000 0.0000000E+00 + 85.50000 -138.5000 0.0000000E+00 + 86.50000 -138.5000 0.0000000E+00 + 87.50000 -138.5000 0.0000000E+00 + 88.50000 -138.5000 0.0000000E+00 + 89.50000 -138.5000 0.0000000E+00 + -89.50000 -137.5000 0.0000000E+00 + -88.50000 -137.5000 0.0000000E+00 + -87.50000 -137.5000 0.0000000E+00 + -86.50000 -137.5000 0.0000000E+00 + -85.50000 -137.5000 0.0000000E+00 + -84.50000 -137.5000 0.0000000E+00 + -83.50000 -137.5000 0.0000000E+00 + -82.50000 -137.5000 0.0000000E+00 + -81.50000 -137.5000 0.0000000E+00 + -80.50000 -137.5000 0.0000000E+00 + -79.50000 -137.5000 0.0000000E+00 + -78.50000 -137.5000 0.0000000E+00 + -77.50000 -137.5000 0.0000000E+00 + -76.50000 -137.5000 0.0000000E+00 + -75.50000 -137.5000 0.0000000E+00 + -74.50000 -137.5000 0.0000000E+00 + -73.50000 -137.5000 0.0000000E+00 + -72.50000 -137.5000 0.0000000E+00 + -71.50000 -137.5000 0.0000000E+00 + -70.50000 -137.5000 0.0000000E+00 + -69.50000 -137.5000 0.0000000E+00 + -68.50000 -137.5000 0.0000000E+00 + -67.50000 -137.5000 0.0000000E+00 + -66.50000 -137.5000 0.0000000E+00 + -65.50000 -137.5000 0.0000000E+00 + -64.50000 -137.5000 0.0000000E+00 + -63.50000 -137.5000 0.0000000E+00 + -62.50000 -137.5000 0.0000000E+00 + -61.50000 -137.5000 0.0000000E+00 + -60.50000 -137.5000 0.0000000E+00 + -59.50000 -137.5000 0.0000000E+00 + -58.50000 -137.5000 0.0000000E+00 + -57.50000 -137.5000 0.0000000E+00 + -56.50000 -137.5000 0.0000000E+00 + -55.50000 -137.5000 0.0000000E+00 + -54.50000 -137.5000 0.0000000E+00 + -53.50000 -137.5000 0.0000000E+00 + -52.50000 -137.5000 0.0000000E+00 + -51.50000 -137.5000 0.0000000E+00 + -50.50000 -137.5000 0.0000000E+00 + -49.50000 -137.5000 0.0000000E+00 + -48.50000 -137.5000 0.0000000E+00 + -47.50000 -137.5000 0.0000000E+00 + -46.50000 -137.5000 0.0000000E+00 + -45.50000 -137.5000 0.0000000E+00 + -44.50000 -137.5000 0.0000000E+00 + -43.50000 -137.5000 0.0000000E+00 + -42.50000 -137.5000 0.0000000E+00 + -41.50000 -137.5000 0.0000000E+00 + -40.50000 -137.5000 0.0000000E+00 + -39.50000 -137.5000 0.0000000E+00 + -38.50000 -137.5000 0.0000000E+00 + -37.50000 -137.5000 0.0000000E+00 + -36.50000 -137.5000 0.0000000E+00 + -35.50000 -137.5000 0.0000000E+00 + -34.50000 -137.5000 0.0000000E+00 + -33.50000 -137.5000 0.0000000E+00 + -32.50000 -137.5000 0.0000000E+00 + -31.50000 -137.5000 0.0000000E+00 + -30.50000 -137.5000 0.0000000E+00 + -29.50000 -137.5000 0.0000000E+00 + -28.50000 -137.5000 0.0000000E+00 + -27.50000 -137.5000 0.0000000E+00 + -26.50000 -137.5000 0.0000000E+00 + -25.50000 -137.5000 0.0000000E+00 + -24.50000 -137.5000 0.0000000E+00 + -23.50000 -137.5000 0.0000000E+00 + -22.50000 -137.5000 0.0000000E+00 + -21.50000 -137.5000 0.0000000E+00 + -20.50000 -137.5000 0.0000000E+00 + -19.50000 -137.5000 0.0000000E+00 + -18.50000 -137.5000 0.0000000E+00 + -17.50000 -137.5000 0.0000000E+00 + -16.50000 -137.5000 0.0000000E+00 + -15.50000 -137.5000 0.0000000E+00 + -14.50000 -137.5000 0.0000000E+00 + -13.50000 -137.5000 0.0000000E+00 + -12.50000 -137.5000 0.0000000E+00 + -11.50000 -137.5000 0.0000000E+00 + -10.50000 -137.5000 0.0000000E+00 + -9.500000 -137.5000 0.0000000E+00 + -8.500000 -137.5000 0.0000000E+00 + -7.500000 -137.5000 0.0000000E+00 + -6.500000 -137.5000 0.0000000E+00 + -5.500000 -137.5000 0.0000000E+00 + -4.500000 -137.5000 0.0000000E+00 + -3.500000 -137.5000 0.0000000E+00 + -2.500000 -137.5000 0.0000000E+00 + -1.500000 -137.5000 0.0000000E+00 + -0.5000000 -137.5000 0.0000000E+00 + 0.5000000 -137.5000 0.0000000E+00 + 1.500000 -137.5000 0.0000000E+00 + 2.500000 -137.5000 0.0000000E+00 + 3.500000 -137.5000 0.0000000E+00 + 4.500000 -137.5000 0.0000000E+00 + 5.500000 -137.5000 0.0000000E+00 + 6.500000 -137.5000 0.0000000E+00 + 7.500000 -137.5000 0.0000000E+00 + 8.500000 -137.5000 0.0000000E+00 + 9.500000 -137.5000 0.0000000E+00 + 10.50000 -137.5000 0.0000000E+00 + 11.50000 -137.5000 0.0000000E+00 + 12.50000 -137.5000 0.0000000E+00 + 13.50000 -137.5000 0.0000000E+00 + 14.50000 -137.5000 0.0000000E+00 + 15.50000 -137.5000 0.0000000E+00 + 16.50000 -137.5000 0.0000000E+00 + 17.50000 -137.5000 0.0000000E+00 + 18.50000 -137.5000 0.0000000E+00 + 19.50000 -137.5000 0.0000000E+00 + 20.50000 -137.5000 0.0000000E+00 + 21.50000 -137.5000 0.0000000E+00 + 22.50000 -137.5000 0.0000000E+00 + 23.50000 -137.5000 0.0000000E+00 + 24.50000 -137.5000 0.0000000E+00 + 25.50000 -137.5000 0.0000000E+00 + 26.50000 -137.5000 0.0000000E+00 + 27.50000 -137.5000 0.0000000E+00 + 28.50000 -137.5000 0.0000000E+00 + 29.50000 -137.5000 0.0000000E+00 + 30.50000 -137.5000 0.0000000E+00 + 31.50000 -137.5000 0.0000000E+00 + 32.50000 -137.5000 0.0000000E+00 + 33.50000 -137.5000 0.0000000E+00 + 34.50000 -137.5000 0.0000000E+00 + 35.50000 -137.5000 0.0000000E+00 + 36.50000 -137.5000 0.0000000E+00 + 37.50000 -137.5000 0.0000000E+00 + 38.50000 -137.5000 0.0000000E+00 + 39.50000 -137.5000 0.0000000E+00 + 40.50000 -137.5000 0.0000000E+00 + 41.50000 -137.5000 0.0000000E+00 + 42.50000 -137.5000 0.0000000E+00 + 43.50000 -137.5000 0.0000000E+00 + 44.50000 -137.5000 0.0000000E+00 + 45.50000 -137.5000 0.0000000E+00 + 46.50000 -137.5000 0.0000000E+00 + 47.50000 -137.5000 0.0000000E+00 + 48.50000 -137.5000 0.0000000E+00 + 49.50000 -137.5000 0.0000000E+00 + 50.50000 -137.5000 0.0000000E+00 + 51.50000 -137.5000 0.0000000E+00 + 52.50000 -137.5000 0.0000000E+00 + 53.50000 -137.5000 0.0000000E+00 + 54.50000 -137.5000 0.0000000E+00 + 55.50000 -137.5000 0.0000000E+00 + 56.50000 -137.5000 0.0000000E+00 + 57.50000 -137.5000 0.0000000E+00 + 58.50000 -137.5000 0.0000000E+00 + 59.50000 -137.5000 0.0000000E+00 + 60.50000 -137.5000 0.0000000E+00 + 61.50000 -137.5000 0.0000000E+00 + 62.50000 -137.5000 0.0000000E+00 + 63.50000 -137.5000 0.0000000E+00 + 64.50000 -137.5000 0.0000000E+00 + 65.50000 -137.5000 0.0000000E+00 + 66.50000 -137.5000 0.0000000E+00 + 67.50000 -137.5000 0.0000000E+00 + 68.50000 -137.5000 0.0000000E+00 + 69.50000 -137.5000 0.0000000E+00 + 70.50000 -137.5000 0.0000000E+00 + 71.50000 -137.5000 0.0000000E+00 + 72.50000 -137.5000 0.0000000E+00 + 73.50000 -137.5000 0.0000000E+00 + 74.50000 -137.5000 0.0000000E+00 + 75.50000 -137.5000 0.0000000E+00 + 76.50000 -137.5000 0.0000000E+00 + 77.50000 -137.5000 0.0000000E+00 + 78.50000 -137.5000 0.0000000E+00 + 79.50000 -137.5000 0.0000000E+00 + 80.50000 -137.5000 0.0000000E+00 + 81.50000 -137.5000 0.0000000E+00 + 82.50000 -137.5000 0.0000000E+00 + 83.50000 -137.5000 0.0000000E+00 + 84.50000 -137.5000 0.0000000E+00 + 85.50000 -137.5000 0.0000000E+00 + 86.50000 -137.5000 0.0000000E+00 + 87.50000 -137.5000 0.0000000E+00 + 88.50000 -137.5000 0.0000000E+00 + 89.50000 -137.5000 0.0000000E+00 + -89.50000 -136.5000 0.0000000E+00 + -88.50000 -136.5000 0.0000000E+00 + -87.50000 -136.5000 0.0000000E+00 + -86.50000 -136.5000 0.0000000E+00 + -85.50000 -136.5000 0.0000000E+00 + -84.50000 -136.5000 0.0000000E+00 + -83.50000 -136.5000 0.0000000E+00 + -82.50000 -136.5000 0.0000000E+00 + -81.50000 -136.5000 0.0000000E+00 + -80.50000 -136.5000 0.0000000E+00 + -79.50000 -136.5000 0.0000000E+00 + -78.50000 -136.5000 0.0000000E+00 + -77.50000 -136.5000 0.0000000E+00 + -76.50000 -136.5000 0.0000000E+00 + -75.50000 -136.5000 0.0000000E+00 + -74.50000 -136.5000 0.0000000E+00 + -73.50000 -136.5000 0.0000000E+00 + -72.50000 -136.5000 0.0000000E+00 + -71.50000 -136.5000 0.0000000E+00 + -70.50000 -136.5000 0.0000000E+00 + -69.50000 -136.5000 0.0000000E+00 + -68.50000 -136.5000 0.0000000E+00 + -67.50000 -136.5000 0.0000000E+00 + -66.50000 -136.5000 0.0000000E+00 + -65.50000 -136.5000 0.0000000E+00 + -64.50000 -136.5000 0.0000000E+00 + -63.50000 -136.5000 0.0000000E+00 + -62.50000 -136.5000 0.0000000E+00 + -61.50000 -136.5000 0.0000000E+00 + -60.50000 -136.5000 0.0000000E+00 + -59.50000 -136.5000 0.0000000E+00 + -58.50000 -136.5000 0.0000000E+00 + -57.50000 -136.5000 0.0000000E+00 + -56.50000 -136.5000 0.0000000E+00 + -55.50000 -136.5000 0.0000000E+00 + -54.50000 -136.5000 0.0000000E+00 + -53.50000 -136.5000 0.0000000E+00 + -52.50000 -136.5000 0.0000000E+00 + -51.50000 -136.5000 0.0000000E+00 + -50.50000 -136.5000 0.0000000E+00 + -49.50000 -136.5000 0.0000000E+00 + -48.50000 -136.5000 0.0000000E+00 + -47.50000 -136.5000 0.0000000E+00 + -46.50000 -136.5000 0.0000000E+00 + -45.50000 -136.5000 0.0000000E+00 + -44.50000 -136.5000 0.0000000E+00 + -43.50000 -136.5000 0.0000000E+00 + -42.50000 -136.5000 0.0000000E+00 + -41.50000 -136.5000 0.0000000E+00 + -40.50000 -136.5000 0.0000000E+00 + -39.50000 -136.5000 0.0000000E+00 + -38.50000 -136.5000 0.0000000E+00 + -37.50000 -136.5000 0.0000000E+00 + -36.50000 -136.5000 0.0000000E+00 + -35.50000 -136.5000 0.0000000E+00 + -34.50000 -136.5000 0.0000000E+00 + -33.50000 -136.5000 0.0000000E+00 + -32.50000 -136.5000 0.0000000E+00 + -31.50000 -136.5000 0.0000000E+00 + -30.50000 -136.5000 0.0000000E+00 + -29.50000 -136.5000 0.0000000E+00 + -28.50000 -136.5000 0.0000000E+00 + -27.50000 -136.5000 0.0000000E+00 + -26.50000 -136.5000 0.0000000E+00 + -25.50000 -136.5000 0.0000000E+00 + -24.50000 -136.5000 0.0000000E+00 + -23.50000 -136.5000 0.0000000E+00 + -22.50000 -136.5000 0.0000000E+00 + -21.50000 -136.5000 0.0000000E+00 + -20.50000 -136.5000 0.0000000E+00 + -19.50000 -136.5000 0.0000000E+00 + -18.50000 -136.5000 0.0000000E+00 + -17.50000 -136.5000 0.0000000E+00 + -16.50000 -136.5000 0.0000000E+00 + -15.50000 -136.5000 0.0000000E+00 + -14.50000 -136.5000 0.0000000E+00 + -13.50000 -136.5000 0.0000000E+00 + -12.50000 -136.5000 0.0000000E+00 + -11.50000 -136.5000 0.0000000E+00 + -10.50000 -136.5000 0.0000000E+00 + -9.500000 -136.5000 0.0000000E+00 + -8.500000 -136.5000 0.0000000E+00 + -7.500000 -136.5000 0.0000000E+00 + -6.500000 -136.5000 0.0000000E+00 + -5.500000 -136.5000 0.0000000E+00 + -4.500000 -136.5000 0.0000000E+00 + -3.500000 -136.5000 0.0000000E+00 + -2.500000 -136.5000 0.0000000E+00 + -1.500000 -136.5000 0.0000000E+00 + -0.5000000 -136.5000 0.0000000E+00 + 0.5000000 -136.5000 0.0000000E+00 + 1.500000 -136.5000 0.0000000E+00 + 2.500000 -136.5000 0.0000000E+00 + 3.500000 -136.5000 0.0000000E+00 + 4.500000 -136.5000 0.0000000E+00 + 5.500000 -136.5000 0.0000000E+00 + 6.500000 -136.5000 0.0000000E+00 + 7.500000 -136.5000 0.0000000E+00 + 8.500000 -136.5000 0.0000000E+00 + 9.500000 -136.5000 0.0000000E+00 + 10.50000 -136.5000 0.0000000E+00 + 11.50000 -136.5000 0.0000000E+00 + 12.50000 -136.5000 0.0000000E+00 + 13.50000 -136.5000 0.0000000E+00 + 14.50000 -136.5000 0.0000000E+00 + 15.50000 -136.5000 0.0000000E+00 + 16.50000 -136.5000 0.0000000E+00 + 17.50000 -136.5000 0.0000000E+00 + 18.50000 -136.5000 0.0000000E+00 + 19.50000 -136.5000 0.0000000E+00 + 20.50000 -136.5000 0.0000000E+00 + 21.50000 -136.5000 0.0000000E+00 + 22.50000 -136.5000 0.0000000E+00 + 23.50000 -136.5000 0.0000000E+00 + 24.50000 -136.5000 0.0000000E+00 + 25.50000 -136.5000 0.0000000E+00 + 26.50000 -136.5000 0.0000000E+00 + 27.50000 -136.5000 0.0000000E+00 + 28.50000 -136.5000 0.0000000E+00 + 29.50000 -136.5000 0.0000000E+00 + 30.50000 -136.5000 0.0000000E+00 + 31.50000 -136.5000 0.0000000E+00 + 32.50000 -136.5000 0.0000000E+00 + 33.50000 -136.5000 0.0000000E+00 + 34.50000 -136.5000 0.0000000E+00 + 35.50000 -136.5000 0.0000000E+00 + 36.50000 -136.5000 0.0000000E+00 + 37.50000 -136.5000 0.0000000E+00 + 38.50000 -136.5000 0.0000000E+00 + 39.50000 -136.5000 0.0000000E+00 + 40.50000 -136.5000 0.0000000E+00 + 41.50000 -136.5000 0.0000000E+00 + 42.50000 -136.5000 0.0000000E+00 + 43.50000 -136.5000 0.0000000E+00 + 44.50000 -136.5000 0.0000000E+00 + 45.50000 -136.5000 0.0000000E+00 + 46.50000 -136.5000 0.0000000E+00 + 47.50000 -136.5000 0.0000000E+00 + 48.50000 -136.5000 0.0000000E+00 + 49.50000 -136.5000 0.0000000E+00 + 50.50000 -136.5000 0.0000000E+00 + 51.50000 -136.5000 0.0000000E+00 + 52.50000 -136.5000 0.0000000E+00 + 53.50000 -136.5000 0.0000000E+00 + 54.50000 -136.5000 0.0000000E+00 + 55.50000 -136.5000 0.0000000E+00 + 56.50000 -136.5000 0.0000000E+00 + 57.50000 -136.5000 0.0000000E+00 + 58.50000 -136.5000 0.0000000E+00 + 59.50000 -136.5000 0.0000000E+00 + 60.50000 -136.5000 0.0000000E+00 + 61.50000 -136.5000 0.0000000E+00 + 62.50000 -136.5000 0.0000000E+00 + 63.50000 -136.5000 0.0000000E+00 + 64.50000 -136.5000 0.0000000E+00 + 65.50000 -136.5000 0.0000000E+00 + 66.50000 -136.5000 0.0000000E+00 + 67.50000 -136.5000 0.0000000E+00 + 68.50000 -136.5000 0.0000000E+00 + 69.50000 -136.5000 0.0000000E+00 + 70.50000 -136.5000 0.0000000E+00 + 71.50000 -136.5000 0.0000000E+00 + 72.50000 -136.5000 0.0000000E+00 + 73.50000 -136.5000 0.0000000E+00 + 74.50000 -136.5000 0.0000000E+00 + 75.50000 -136.5000 0.0000000E+00 + 76.50000 -136.5000 0.0000000E+00 + 77.50000 -136.5000 0.0000000E+00 + 78.50000 -136.5000 0.0000000E+00 + 79.50000 -136.5000 0.0000000E+00 + 80.50000 -136.5000 0.0000000E+00 + 81.50000 -136.5000 0.0000000E+00 + 82.50000 -136.5000 0.0000000E+00 + 83.50000 -136.5000 0.0000000E+00 + 84.50000 -136.5000 0.0000000E+00 + 85.50000 -136.5000 0.0000000E+00 + 86.50000 -136.5000 0.0000000E+00 + 87.50000 -136.5000 0.0000000E+00 + 88.50000 -136.5000 0.0000000E+00 + 89.50000 -136.5000 0.0000000E+00 + -89.50000 -135.5000 0.0000000E+00 + -88.50000 -135.5000 0.0000000E+00 + -87.50000 -135.5000 0.0000000E+00 + -86.50000 -135.5000 0.0000000E+00 + -85.50000 -135.5000 0.0000000E+00 + -84.50000 -135.5000 0.0000000E+00 + -83.50000 -135.5000 0.0000000E+00 + -82.50000 -135.5000 0.0000000E+00 + -81.50000 -135.5000 0.0000000E+00 + -80.50000 -135.5000 0.0000000E+00 + -79.50000 -135.5000 0.0000000E+00 + -78.50000 -135.5000 0.0000000E+00 + -77.50000 -135.5000 0.0000000E+00 + -76.50000 -135.5000 0.0000000E+00 + -75.50000 -135.5000 0.0000000E+00 + -74.50000 -135.5000 0.0000000E+00 + -73.50000 -135.5000 0.0000000E+00 + -72.50000 -135.5000 0.0000000E+00 + -71.50000 -135.5000 0.0000000E+00 + -70.50000 -135.5000 0.0000000E+00 + -69.50000 -135.5000 0.0000000E+00 + -68.50000 -135.5000 0.0000000E+00 + -67.50000 -135.5000 0.0000000E+00 + -66.50000 -135.5000 0.0000000E+00 + -65.50000 -135.5000 0.0000000E+00 + -64.50000 -135.5000 0.0000000E+00 + -63.50000 -135.5000 0.0000000E+00 + -62.50000 -135.5000 0.0000000E+00 + -61.50000 -135.5000 0.0000000E+00 + -60.50000 -135.5000 0.0000000E+00 + -59.50000 -135.5000 0.0000000E+00 + -58.50000 -135.5000 0.0000000E+00 + -57.50000 -135.5000 0.0000000E+00 + -56.50000 -135.5000 0.0000000E+00 + -55.50000 -135.5000 0.0000000E+00 + -54.50000 -135.5000 0.0000000E+00 + -53.50000 -135.5000 0.0000000E+00 + -52.50000 -135.5000 0.0000000E+00 + -51.50000 -135.5000 0.0000000E+00 + -50.50000 -135.5000 0.0000000E+00 + -49.50000 -135.5000 0.0000000E+00 + -48.50000 -135.5000 0.0000000E+00 + -47.50000 -135.5000 0.0000000E+00 + -46.50000 -135.5000 0.0000000E+00 + -45.50000 -135.5000 0.0000000E+00 + -44.50000 -135.5000 0.0000000E+00 + -43.50000 -135.5000 0.0000000E+00 + -42.50000 -135.5000 0.0000000E+00 + -41.50000 -135.5000 0.0000000E+00 + -40.50000 -135.5000 0.0000000E+00 + -39.50000 -135.5000 0.0000000E+00 + -38.50000 -135.5000 0.0000000E+00 + -37.50000 -135.5000 0.0000000E+00 + -36.50000 -135.5000 0.0000000E+00 + -35.50000 -135.5000 0.0000000E+00 + -34.50000 -135.5000 0.0000000E+00 + -33.50000 -135.5000 0.0000000E+00 + -32.50000 -135.5000 0.0000000E+00 + -31.50000 -135.5000 0.0000000E+00 + -30.50000 -135.5000 0.0000000E+00 + -29.50000 -135.5000 0.0000000E+00 + -28.50000 -135.5000 0.0000000E+00 + -27.50000 -135.5000 0.0000000E+00 + -26.50000 -135.5000 0.0000000E+00 + -25.50000 -135.5000 0.0000000E+00 + -24.50000 -135.5000 0.0000000E+00 + -23.50000 -135.5000 0.0000000E+00 + -22.50000 -135.5000 0.0000000E+00 + -21.50000 -135.5000 0.0000000E+00 + -20.50000 -135.5000 0.0000000E+00 + -19.50000 -135.5000 0.0000000E+00 + -18.50000 -135.5000 0.0000000E+00 + -17.50000 -135.5000 0.0000000E+00 + -16.50000 -135.5000 0.0000000E+00 + -15.50000 -135.5000 0.0000000E+00 + -14.50000 -135.5000 0.0000000E+00 + -13.50000 -135.5000 0.0000000E+00 + -12.50000 -135.5000 0.0000000E+00 + -11.50000 -135.5000 0.0000000E+00 + -10.50000 -135.5000 0.0000000E+00 + -9.500000 -135.5000 0.0000000E+00 + -8.500000 -135.5000 0.0000000E+00 + -7.500000 -135.5000 0.0000000E+00 + -6.500000 -135.5000 0.0000000E+00 + -5.500000 -135.5000 0.0000000E+00 + -4.500000 -135.5000 0.0000000E+00 + -3.500000 -135.5000 0.0000000E+00 + -2.500000 -135.5000 0.0000000E+00 + -1.500000 -135.5000 0.0000000E+00 + -0.5000000 -135.5000 0.0000000E+00 + 0.5000000 -135.5000 0.0000000E+00 + 1.500000 -135.5000 0.0000000E+00 + 2.500000 -135.5000 0.0000000E+00 + 3.500000 -135.5000 0.0000000E+00 + 4.500000 -135.5000 0.0000000E+00 + 5.500000 -135.5000 0.0000000E+00 + 6.500000 -135.5000 0.0000000E+00 + 7.500000 -135.5000 0.0000000E+00 + 8.500000 -135.5000 0.0000000E+00 + 9.500000 -135.5000 0.0000000E+00 + 10.50000 -135.5000 0.0000000E+00 + 11.50000 -135.5000 0.0000000E+00 + 12.50000 -135.5000 0.0000000E+00 + 13.50000 -135.5000 0.0000000E+00 + 14.50000 -135.5000 0.0000000E+00 + 15.50000 -135.5000 0.0000000E+00 + 16.50000 -135.5000 0.0000000E+00 + 17.50000 -135.5000 0.0000000E+00 + 18.50000 -135.5000 0.0000000E+00 + 19.50000 -135.5000 0.0000000E+00 + 20.50000 -135.5000 0.0000000E+00 + 21.50000 -135.5000 0.0000000E+00 + 22.50000 -135.5000 0.0000000E+00 + 23.50000 -135.5000 0.0000000E+00 + 24.50000 -135.5000 0.0000000E+00 + 25.50000 -135.5000 0.0000000E+00 + 26.50000 -135.5000 0.0000000E+00 + 27.50000 -135.5000 0.0000000E+00 + 28.50000 -135.5000 0.0000000E+00 + 29.50000 -135.5000 0.0000000E+00 + 30.50000 -135.5000 0.0000000E+00 + 31.50000 -135.5000 0.0000000E+00 + 32.50000 -135.5000 0.0000000E+00 + 33.50000 -135.5000 0.0000000E+00 + 34.50000 -135.5000 0.0000000E+00 + 35.50000 -135.5000 0.0000000E+00 + 36.50000 -135.5000 0.0000000E+00 + 37.50000 -135.5000 0.0000000E+00 + 38.50000 -135.5000 0.0000000E+00 + 39.50000 -135.5000 0.0000000E+00 + 40.50000 -135.5000 0.0000000E+00 + 41.50000 -135.5000 0.0000000E+00 + 42.50000 -135.5000 0.0000000E+00 + 43.50000 -135.5000 0.0000000E+00 + 44.50000 -135.5000 0.0000000E+00 + 45.50000 -135.5000 0.0000000E+00 + 46.50000 -135.5000 0.0000000E+00 + 47.50000 -135.5000 0.0000000E+00 + 48.50000 -135.5000 0.0000000E+00 + 49.50000 -135.5000 0.0000000E+00 + 50.50000 -135.5000 0.0000000E+00 + 51.50000 -135.5000 0.0000000E+00 + 52.50000 -135.5000 0.0000000E+00 + 53.50000 -135.5000 0.0000000E+00 + 54.50000 -135.5000 0.0000000E+00 + 55.50000 -135.5000 0.0000000E+00 + 56.50000 -135.5000 0.0000000E+00 + 57.50000 -135.5000 0.0000000E+00 + 58.50000 -135.5000 0.0000000E+00 + 59.50000 -135.5000 0.0000000E+00 + 60.50000 -135.5000 0.0000000E+00 + 61.50000 -135.5000 0.0000000E+00 + 62.50000 -135.5000 0.0000000E+00 + 63.50000 -135.5000 0.0000000E+00 + 64.50000 -135.5000 0.0000000E+00 + 65.50000 -135.5000 0.0000000E+00 + 66.50000 -135.5000 0.0000000E+00 + 67.50000 -135.5000 0.0000000E+00 + 68.50000 -135.5000 0.0000000E+00 + 69.50000 -135.5000 0.0000000E+00 + 70.50000 -135.5000 0.0000000E+00 + 71.50000 -135.5000 0.0000000E+00 + 72.50000 -135.5000 0.0000000E+00 + 73.50000 -135.5000 0.0000000E+00 + 74.50000 -135.5000 0.0000000E+00 + 75.50000 -135.5000 0.0000000E+00 + 76.50000 -135.5000 0.0000000E+00 + 77.50000 -135.5000 0.0000000E+00 + 78.50000 -135.5000 0.0000000E+00 + 79.50000 -135.5000 0.0000000E+00 + 80.50000 -135.5000 0.0000000E+00 + 81.50000 -135.5000 0.0000000E+00 + 82.50000 -135.5000 0.0000000E+00 + 83.50000 -135.5000 0.0000000E+00 + 84.50000 -135.5000 0.0000000E+00 + 85.50000 -135.5000 0.0000000E+00 + 86.50000 -135.5000 0.0000000E+00 + 87.50000 -135.5000 0.0000000E+00 + 88.50000 -135.5000 0.0000000E+00 + 89.50000 -135.5000 0.0000000E+00 + -89.50000 -134.5000 0.0000000E+00 + -88.50000 -134.5000 0.0000000E+00 + -87.50000 -134.5000 0.0000000E+00 + -86.50000 -134.5000 0.0000000E+00 + -85.50000 -134.5000 0.0000000E+00 + -84.50000 -134.5000 0.0000000E+00 + -83.50000 -134.5000 0.0000000E+00 + -82.50000 -134.5000 0.0000000E+00 + -81.50000 -134.5000 0.0000000E+00 + -80.50000 -134.5000 0.0000000E+00 + -79.50000 -134.5000 0.0000000E+00 + -78.50000 -134.5000 0.0000000E+00 + -77.50000 -134.5000 0.0000000E+00 + -76.50000 -134.5000 0.0000000E+00 + -75.50000 -134.5000 0.0000000E+00 + -74.50000 -134.5000 0.0000000E+00 + -73.50000 -134.5000 0.0000000E+00 + -72.50000 -134.5000 0.0000000E+00 + -71.50000 -134.5000 0.0000000E+00 + -70.50000 -134.5000 0.0000000E+00 + -69.50000 -134.5000 0.0000000E+00 + -68.50000 -134.5000 0.0000000E+00 + -67.50000 -134.5000 0.0000000E+00 + -66.50000 -134.5000 0.0000000E+00 + -65.50000 -134.5000 0.0000000E+00 + -64.50000 -134.5000 0.0000000E+00 + -63.50000 -134.5000 0.0000000E+00 + -62.50000 -134.5000 0.0000000E+00 + -61.50000 -134.5000 0.0000000E+00 + -60.50000 -134.5000 0.0000000E+00 + -59.50000 -134.5000 0.0000000E+00 + -58.50000 -134.5000 0.0000000E+00 + -57.50000 -134.5000 0.0000000E+00 + -56.50000 -134.5000 0.0000000E+00 + -55.50000 -134.5000 0.0000000E+00 + -54.50000 -134.5000 0.0000000E+00 + -53.50000 -134.5000 0.0000000E+00 + -52.50000 -134.5000 0.0000000E+00 + -51.50000 -134.5000 0.0000000E+00 + -50.50000 -134.5000 0.0000000E+00 + -49.50000 -134.5000 0.0000000E+00 + -48.50000 -134.5000 0.0000000E+00 + -47.50000 -134.5000 0.0000000E+00 + -46.50000 -134.5000 0.0000000E+00 + -45.50000 -134.5000 0.0000000E+00 + -44.50000 -134.5000 0.0000000E+00 + -43.50000 -134.5000 0.0000000E+00 + -42.50000 -134.5000 0.0000000E+00 + -41.50000 -134.5000 0.0000000E+00 + -40.50000 -134.5000 0.0000000E+00 + -39.50000 -134.5000 0.0000000E+00 + -38.50000 -134.5000 0.0000000E+00 + -37.50000 -134.5000 0.0000000E+00 + -36.50000 -134.5000 0.0000000E+00 + -35.50000 -134.5000 0.0000000E+00 + -34.50000 -134.5000 0.0000000E+00 + -33.50000 -134.5000 0.0000000E+00 + -32.50000 -134.5000 0.0000000E+00 + -31.50000 -134.5000 0.0000000E+00 + -30.50000 -134.5000 0.0000000E+00 + -29.50000 -134.5000 0.0000000E+00 + -28.50000 -134.5000 0.0000000E+00 + -27.50000 -134.5000 0.0000000E+00 + -26.50000 -134.5000 0.0000000E+00 + -25.50000 -134.5000 0.0000000E+00 + -24.50000 -134.5000 0.0000000E+00 + -23.50000 -134.5000 0.0000000E+00 + -22.50000 -134.5000 0.0000000E+00 + -21.50000 -134.5000 0.0000000E+00 + -20.50000 -134.5000 0.0000000E+00 + -19.50000 -134.5000 0.0000000E+00 + -18.50000 -134.5000 0.0000000E+00 + -17.50000 -134.5000 0.0000000E+00 + -16.50000 -134.5000 0.0000000E+00 + -15.50000 -134.5000 0.0000000E+00 + -14.50000 -134.5000 0.0000000E+00 + -13.50000 -134.5000 0.0000000E+00 + -12.50000 -134.5000 0.0000000E+00 + -11.50000 -134.5000 0.0000000E+00 + -10.50000 -134.5000 0.0000000E+00 + -9.500000 -134.5000 0.0000000E+00 + -8.500000 -134.5000 0.0000000E+00 + -7.500000 -134.5000 0.0000000E+00 + -6.500000 -134.5000 0.0000000E+00 + -5.500000 -134.5000 0.0000000E+00 + -4.500000 -134.5000 0.0000000E+00 + -3.500000 -134.5000 0.0000000E+00 + -2.500000 -134.5000 0.0000000E+00 + -1.500000 -134.5000 0.0000000E+00 + -0.5000000 -134.5000 0.0000000E+00 + 0.5000000 -134.5000 0.0000000E+00 + 1.500000 -134.5000 0.0000000E+00 + 2.500000 -134.5000 0.0000000E+00 + 3.500000 -134.5000 0.0000000E+00 + 4.500000 -134.5000 0.0000000E+00 + 5.500000 -134.5000 0.0000000E+00 + 6.500000 -134.5000 0.0000000E+00 + 7.500000 -134.5000 0.0000000E+00 + 8.500000 -134.5000 0.0000000E+00 + 9.500000 -134.5000 0.0000000E+00 + 10.50000 -134.5000 0.0000000E+00 + 11.50000 -134.5000 0.0000000E+00 + 12.50000 -134.5000 0.0000000E+00 + 13.50000 -134.5000 0.0000000E+00 + 14.50000 -134.5000 0.0000000E+00 + 15.50000 -134.5000 0.0000000E+00 + 16.50000 -134.5000 0.0000000E+00 + 17.50000 -134.5000 0.0000000E+00 + 18.50000 -134.5000 0.0000000E+00 + 19.50000 -134.5000 0.0000000E+00 + 20.50000 -134.5000 0.0000000E+00 + 21.50000 -134.5000 0.0000000E+00 + 22.50000 -134.5000 0.0000000E+00 + 23.50000 -134.5000 0.0000000E+00 + 24.50000 -134.5000 0.0000000E+00 + 25.50000 -134.5000 0.0000000E+00 + 26.50000 -134.5000 0.0000000E+00 + 27.50000 -134.5000 0.0000000E+00 + 28.50000 -134.5000 0.0000000E+00 + 29.50000 -134.5000 0.0000000E+00 + 30.50000 -134.5000 0.0000000E+00 + 31.50000 -134.5000 0.0000000E+00 + 32.50000 -134.5000 0.0000000E+00 + 33.50000 -134.5000 0.0000000E+00 + 34.50000 -134.5000 0.0000000E+00 + 35.50000 -134.5000 0.0000000E+00 + 36.50000 -134.5000 0.0000000E+00 + 37.50000 -134.5000 0.0000000E+00 + 38.50000 -134.5000 0.0000000E+00 + 39.50000 -134.5000 0.0000000E+00 + 40.50000 -134.5000 0.0000000E+00 + 41.50000 -134.5000 0.0000000E+00 + 42.50000 -134.5000 0.0000000E+00 + 43.50000 -134.5000 0.0000000E+00 + 44.50000 -134.5000 0.0000000E+00 + 45.50000 -134.5000 0.0000000E+00 + 46.50000 -134.5000 0.0000000E+00 + 47.50000 -134.5000 0.0000000E+00 + 48.50000 -134.5000 0.0000000E+00 + 49.50000 -134.5000 0.0000000E+00 + 50.50000 -134.5000 0.0000000E+00 + 51.50000 -134.5000 0.0000000E+00 + 52.50000 -134.5000 0.0000000E+00 + 53.50000 -134.5000 0.0000000E+00 + 54.50000 -134.5000 0.0000000E+00 + 55.50000 -134.5000 0.0000000E+00 + 56.50000 -134.5000 0.0000000E+00 + 57.50000 -134.5000 0.0000000E+00 + 58.50000 -134.5000 0.0000000E+00 + 59.50000 -134.5000 0.0000000E+00 + 60.50000 -134.5000 0.0000000E+00 + 61.50000 -134.5000 0.0000000E+00 + 62.50000 -134.5000 0.0000000E+00 + 63.50000 -134.5000 0.0000000E+00 + 64.50000 -134.5000 0.0000000E+00 + 65.50000 -134.5000 0.0000000E+00 + 66.50000 -134.5000 0.0000000E+00 + 67.50000 -134.5000 0.0000000E+00 + 68.50000 -134.5000 0.0000000E+00 + 69.50000 -134.5000 0.0000000E+00 + 70.50000 -134.5000 0.0000000E+00 + 71.50000 -134.5000 0.0000000E+00 + 72.50000 -134.5000 0.0000000E+00 + 73.50000 -134.5000 0.0000000E+00 + 74.50000 -134.5000 0.0000000E+00 + 75.50000 -134.5000 0.0000000E+00 + 76.50000 -134.5000 0.0000000E+00 + 77.50000 -134.5000 0.0000000E+00 + 78.50000 -134.5000 0.0000000E+00 + 79.50000 -134.5000 0.0000000E+00 + 80.50000 -134.5000 0.0000000E+00 + 81.50000 -134.5000 0.0000000E+00 + 82.50000 -134.5000 0.0000000E+00 + 83.50000 -134.5000 0.0000000E+00 + 84.50000 -134.5000 0.0000000E+00 + 85.50000 -134.5000 0.0000000E+00 + 86.50000 -134.5000 0.0000000E+00 + 87.50000 -134.5000 0.0000000E+00 + 88.50000 -134.5000 0.0000000E+00 + 89.50000 -134.5000 0.0000000E+00 + -89.50000 -133.5000 0.0000000E+00 + -88.50000 -133.5000 0.0000000E+00 + -87.50000 -133.5000 0.0000000E+00 + -86.50000 -133.5000 0.0000000E+00 + -85.50000 -133.5000 0.0000000E+00 + -84.50000 -133.5000 0.0000000E+00 + -83.50000 -133.5000 0.0000000E+00 + -82.50000 -133.5000 0.0000000E+00 + -81.50000 -133.5000 0.0000000E+00 + -80.50000 -133.5000 0.0000000E+00 + -79.50000 -133.5000 0.0000000E+00 + -78.50000 -133.5000 0.0000000E+00 + -77.50000 -133.5000 0.0000000E+00 + -76.50000 -133.5000 0.0000000E+00 + -75.50000 -133.5000 0.0000000E+00 + -74.50000 -133.5000 0.0000000E+00 + -73.50000 -133.5000 0.0000000E+00 + -72.50000 -133.5000 0.0000000E+00 + -71.50000 -133.5000 0.0000000E+00 + -70.50000 -133.5000 0.0000000E+00 + -69.50000 -133.5000 0.0000000E+00 + -68.50000 -133.5000 0.0000000E+00 + -67.50000 -133.5000 0.0000000E+00 + -66.50000 -133.5000 0.0000000E+00 + -65.50000 -133.5000 0.0000000E+00 + -64.50000 -133.5000 0.0000000E+00 + -63.50000 -133.5000 0.0000000E+00 + -62.50000 -133.5000 0.0000000E+00 + -61.50000 -133.5000 0.0000000E+00 + -60.50000 -133.5000 0.0000000E+00 + -59.50000 -133.5000 0.0000000E+00 + -58.50000 -133.5000 0.0000000E+00 + -57.50000 -133.5000 0.0000000E+00 + -56.50000 -133.5000 0.0000000E+00 + -55.50000 -133.5000 0.0000000E+00 + -54.50000 -133.5000 0.0000000E+00 + -53.50000 -133.5000 0.0000000E+00 + -52.50000 -133.5000 0.0000000E+00 + -51.50000 -133.5000 0.0000000E+00 + -50.50000 -133.5000 0.0000000E+00 + -49.50000 -133.5000 0.0000000E+00 + -48.50000 -133.5000 0.0000000E+00 + -47.50000 -133.5000 0.0000000E+00 + -46.50000 -133.5000 0.0000000E+00 + -45.50000 -133.5000 0.0000000E+00 + -44.50000 -133.5000 0.0000000E+00 + -43.50000 -133.5000 0.0000000E+00 + -42.50000 -133.5000 0.0000000E+00 + -41.50000 -133.5000 0.0000000E+00 + -40.50000 -133.5000 0.0000000E+00 + -39.50000 -133.5000 0.0000000E+00 + -38.50000 -133.5000 0.0000000E+00 + -37.50000 -133.5000 0.0000000E+00 + -36.50000 -133.5000 0.0000000E+00 + -35.50000 -133.5000 0.0000000E+00 + -34.50000 -133.5000 0.0000000E+00 + -33.50000 -133.5000 0.0000000E+00 + -32.50000 -133.5000 0.0000000E+00 + -31.50000 -133.5000 0.0000000E+00 + -30.50000 -133.5000 0.0000000E+00 + -29.50000 -133.5000 0.0000000E+00 + -28.50000 -133.5000 0.0000000E+00 + -27.50000 -133.5000 0.0000000E+00 + -26.50000 -133.5000 0.0000000E+00 + -25.50000 -133.5000 0.0000000E+00 + -24.50000 -133.5000 0.0000000E+00 + -23.50000 -133.5000 0.0000000E+00 + -22.50000 -133.5000 0.0000000E+00 + -21.50000 -133.5000 0.0000000E+00 + -20.50000 -133.5000 0.0000000E+00 + -19.50000 -133.5000 0.0000000E+00 + -18.50000 -133.5000 0.0000000E+00 + -17.50000 -133.5000 0.0000000E+00 + -16.50000 -133.5000 0.0000000E+00 + -15.50000 -133.5000 0.0000000E+00 + -14.50000 -133.5000 0.0000000E+00 + -13.50000 -133.5000 0.0000000E+00 + -12.50000 -133.5000 0.0000000E+00 + -11.50000 -133.5000 0.0000000E+00 + -10.50000 -133.5000 0.0000000E+00 + -9.500000 -133.5000 0.0000000E+00 + -8.500000 -133.5000 0.0000000E+00 + -7.500000 -133.5000 0.0000000E+00 + -6.500000 -133.5000 0.0000000E+00 + -5.500000 -133.5000 0.0000000E+00 + -4.500000 -133.5000 0.0000000E+00 + -3.500000 -133.5000 0.0000000E+00 + -2.500000 -133.5000 0.0000000E+00 + -1.500000 -133.5000 0.0000000E+00 + -0.5000000 -133.5000 0.0000000E+00 + 0.5000000 -133.5000 0.0000000E+00 + 1.500000 -133.5000 0.0000000E+00 + 2.500000 -133.5000 0.0000000E+00 + 3.500000 -133.5000 0.0000000E+00 + 4.500000 -133.5000 0.0000000E+00 + 5.500000 -133.5000 0.0000000E+00 + 6.500000 -133.5000 0.0000000E+00 + 7.500000 -133.5000 0.0000000E+00 + 8.500000 -133.5000 0.0000000E+00 + 9.500000 -133.5000 0.0000000E+00 + 10.50000 -133.5000 0.0000000E+00 + 11.50000 -133.5000 0.0000000E+00 + 12.50000 -133.5000 0.0000000E+00 + 13.50000 -133.5000 0.0000000E+00 + 14.50000 -133.5000 0.0000000E+00 + 15.50000 -133.5000 0.0000000E+00 + 16.50000 -133.5000 0.0000000E+00 + 17.50000 -133.5000 0.0000000E+00 + 18.50000 -133.5000 0.0000000E+00 + 19.50000 -133.5000 0.0000000E+00 + 20.50000 -133.5000 0.0000000E+00 + 21.50000 -133.5000 0.0000000E+00 + 22.50000 -133.5000 0.0000000E+00 + 23.50000 -133.5000 0.0000000E+00 + 24.50000 -133.5000 0.0000000E+00 + 25.50000 -133.5000 0.0000000E+00 + 26.50000 -133.5000 0.0000000E+00 + 27.50000 -133.5000 0.0000000E+00 + 28.50000 -133.5000 0.0000000E+00 + 29.50000 -133.5000 0.0000000E+00 + 30.50000 -133.5000 0.0000000E+00 + 31.50000 -133.5000 0.0000000E+00 + 32.50000 -133.5000 0.0000000E+00 + 33.50000 -133.5000 0.0000000E+00 + 34.50000 -133.5000 0.0000000E+00 + 35.50000 -133.5000 0.0000000E+00 + 36.50000 -133.5000 0.0000000E+00 + 37.50000 -133.5000 0.0000000E+00 + 38.50000 -133.5000 0.0000000E+00 + 39.50000 -133.5000 0.0000000E+00 + 40.50000 -133.5000 0.0000000E+00 + 41.50000 -133.5000 0.0000000E+00 + 42.50000 -133.5000 0.0000000E+00 + 43.50000 -133.5000 0.0000000E+00 + 44.50000 -133.5000 0.0000000E+00 + 45.50000 -133.5000 0.0000000E+00 + 46.50000 -133.5000 0.0000000E+00 + 47.50000 -133.5000 0.0000000E+00 + 48.50000 -133.5000 0.0000000E+00 + 49.50000 -133.5000 0.0000000E+00 + 50.50000 -133.5000 0.0000000E+00 + 51.50000 -133.5000 0.0000000E+00 + 52.50000 -133.5000 0.0000000E+00 + 53.50000 -133.5000 0.0000000E+00 + 54.50000 -133.5000 0.0000000E+00 + 55.50000 -133.5000 0.0000000E+00 + 56.50000 -133.5000 0.0000000E+00 + 57.50000 -133.5000 0.0000000E+00 + 58.50000 -133.5000 0.0000000E+00 + 59.50000 -133.5000 0.0000000E+00 + 60.50000 -133.5000 0.0000000E+00 + 61.50000 -133.5000 0.0000000E+00 + 62.50000 -133.5000 0.0000000E+00 + 63.50000 -133.5000 0.0000000E+00 + 64.50000 -133.5000 0.0000000E+00 + 65.50000 -133.5000 0.0000000E+00 + 66.50000 -133.5000 0.0000000E+00 + 67.50000 -133.5000 0.0000000E+00 + 68.50000 -133.5000 0.0000000E+00 + 69.50000 -133.5000 0.0000000E+00 + 70.50000 -133.5000 0.0000000E+00 + 71.50000 -133.5000 0.0000000E+00 + 72.50000 -133.5000 0.0000000E+00 + 73.50000 -133.5000 0.0000000E+00 + 74.50000 -133.5000 0.0000000E+00 + 75.50000 -133.5000 0.0000000E+00 + 76.50000 -133.5000 0.0000000E+00 + 77.50000 -133.5000 0.0000000E+00 + 78.50000 -133.5000 0.0000000E+00 + 79.50000 -133.5000 0.0000000E+00 + 80.50000 -133.5000 0.0000000E+00 + 81.50000 -133.5000 0.0000000E+00 + 82.50000 -133.5000 0.0000000E+00 + 83.50000 -133.5000 0.0000000E+00 + 84.50000 -133.5000 0.0000000E+00 + 85.50000 -133.5000 0.0000000E+00 + 86.50000 -133.5000 0.0000000E+00 + 87.50000 -133.5000 0.0000000E+00 + 88.50000 -133.5000 0.0000000E+00 + 89.50000 -133.5000 0.0000000E+00 + -89.50000 -132.5000 0.0000000E+00 + -88.50000 -132.5000 0.0000000E+00 + -87.50000 -132.5000 0.0000000E+00 + -86.50000 -132.5000 0.0000000E+00 + -85.50000 -132.5000 0.0000000E+00 + -84.50000 -132.5000 0.0000000E+00 + -83.50000 -132.5000 0.0000000E+00 + -82.50000 -132.5000 0.0000000E+00 + -81.50000 -132.5000 0.0000000E+00 + -80.50000 -132.5000 0.0000000E+00 + -79.50000 -132.5000 0.0000000E+00 + -78.50000 -132.5000 0.0000000E+00 + -77.50000 -132.5000 0.0000000E+00 + -76.50000 -132.5000 0.0000000E+00 + -75.50000 -132.5000 0.0000000E+00 + -74.50000 -132.5000 0.0000000E+00 + -73.50000 -132.5000 0.0000000E+00 + -72.50000 -132.5000 0.0000000E+00 + -71.50000 -132.5000 0.0000000E+00 + -70.50000 -132.5000 0.0000000E+00 + -69.50000 -132.5000 0.0000000E+00 + -68.50000 -132.5000 0.0000000E+00 + -67.50000 -132.5000 0.0000000E+00 + -66.50000 -132.5000 0.0000000E+00 + -65.50000 -132.5000 0.0000000E+00 + -64.50000 -132.5000 0.0000000E+00 + -63.50000 -132.5000 0.0000000E+00 + -62.50000 -132.5000 0.0000000E+00 + -61.50000 -132.5000 0.0000000E+00 + -60.50000 -132.5000 0.0000000E+00 + -59.50000 -132.5000 0.0000000E+00 + -58.50000 -132.5000 0.0000000E+00 + -57.50000 -132.5000 0.0000000E+00 + -56.50000 -132.5000 0.0000000E+00 + -55.50000 -132.5000 0.0000000E+00 + -54.50000 -132.5000 0.0000000E+00 + -53.50000 -132.5000 0.0000000E+00 + -52.50000 -132.5000 0.0000000E+00 + -51.50000 -132.5000 0.0000000E+00 + -50.50000 -132.5000 0.0000000E+00 + -49.50000 -132.5000 0.0000000E+00 + -48.50000 -132.5000 0.0000000E+00 + -47.50000 -132.5000 0.0000000E+00 + -46.50000 -132.5000 0.0000000E+00 + -45.50000 -132.5000 0.0000000E+00 + -44.50000 -132.5000 0.0000000E+00 + -43.50000 -132.5000 0.0000000E+00 + -42.50000 -132.5000 0.0000000E+00 + -41.50000 -132.5000 0.0000000E+00 + -40.50000 -132.5000 0.0000000E+00 + -39.50000 -132.5000 0.0000000E+00 + -38.50000 -132.5000 0.0000000E+00 + -37.50000 -132.5000 0.0000000E+00 + -36.50000 -132.5000 0.0000000E+00 + -35.50000 -132.5000 0.0000000E+00 + -34.50000 -132.5000 0.0000000E+00 + -33.50000 -132.5000 0.0000000E+00 + -32.50000 -132.5000 0.0000000E+00 + -31.50000 -132.5000 0.0000000E+00 + -30.50000 -132.5000 0.0000000E+00 + -29.50000 -132.5000 0.0000000E+00 + -28.50000 -132.5000 0.0000000E+00 + -27.50000 -132.5000 0.0000000E+00 + -26.50000 -132.5000 0.0000000E+00 + -25.50000 -132.5000 0.0000000E+00 + -24.50000 -132.5000 0.0000000E+00 + -23.50000 -132.5000 0.0000000E+00 + -22.50000 -132.5000 0.0000000E+00 + -21.50000 -132.5000 0.0000000E+00 + -20.50000 -132.5000 0.0000000E+00 + -19.50000 -132.5000 0.0000000E+00 + -18.50000 -132.5000 0.0000000E+00 + -17.50000 -132.5000 0.0000000E+00 + -16.50000 -132.5000 0.0000000E+00 + -15.50000 -132.5000 0.0000000E+00 + -14.50000 -132.5000 0.0000000E+00 + -13.50000 -132.5000 0.0000000E+00 + -12.50000 -132.5000 0.0000000E+00 + -11.50000 -132.5000 0.0000000E+00 + -10.50000 -132.5000 0.0000000E+00 + -9.500000 -132.5000 0.0000000E+00 + -8.500000 -132.5000 0.0000000E+00 + -7.500000 -132.5000 0.0000000E+00 + -6.500000 -132.5000 0.0000000E+00 + -5.500000 -132.5000 0.0000000E+00 + -4.500000 -132.5000 0.0000000E+00 + -3.500000 -132.5000 0.0000000E+00 + -2.500000 -132.5000 0.0000000E+00 + -1.500000 -132.5000 0.0000000E+00 + -0.5000000 -132.5000 0.0000000E+00 + 0.5000000 -132.5000 0.0000000E+00 + 1.500000 -132.5000 0.0000000E+00 + 2.500000 -132.5000 0.0000000E+00 + 3.500000 -132.5000 0.0000000E+00 + 4.500000 -132.5000 0.0000000E+00 + 5.500000 -132.5000 0.0000000E+00 + 6.500000 -132.5000 0.0000000E+00 + 7.500000 -132.5000 0.0000000E+00 + 8.500000 -132.5000 0.0000000E+00 + 9.500000 -132.5000 0.0000000E+00 + 10.50000 -132.5000 0.0000000E+00 + 11.50000 -132.5000 0.0000000E+00 + 12.50000 -132.5000 0.0000000E+00 + 13.50000 -132.5000 0.0000000E+00 + 14.50000 -132.5000 0.0000000E+00 + 15.50000 -132.5000 0.0000000E+00 + 16.50000 -132.5000 0.0000000E+00 + 17.50000 -132.5000 0.0000000E+00 + 18.50000 -132.5000 0.0000000E+00 + 19.50000 -132.5000 0.0000000E+00 + 20.50000 -132.5000 0.0000000E+00 + 21.50000 -132.5000 0.0000000E+00 + 22.50000 -132.5000 0.0000000E+00 + 23.50000 -132.5000 0.0000000E+00 + 24.50000 -132.5000 0.0000000E+00 + 25.50000 -132.5000 0.0000000E+00 + 26.50000 -132.5000 0.0000000E+00 + 27.50000 -132.5000 0.0000000E+00 + 28.50000 -132.5000 0.0000000E+00 + 29.50000 -132.5000 0.0000000E+00 + 30.50000 -132.5000 0.0000000E+00 + 31.50000 -132.5000 0.0000000E+00 + 32.50000 -132.5000 0.0000000E+00 + 33.50000 -132.5000 0.0000000E+00 + 34.50000 -132.5000 0.0000000E+00 + 35.50000 -132.5000 0.0000000E+00 + 36.50000 -132.5000 0.0000000E+00 + 37.50000 -132.5000 0.0000000E+00 + 38.50000 -132.5000 0.0000000E+00 + 39.50000 -132.5000 0.0000000E+00 + 40.50000 -132.5000 0.0000000E+00 + 41.50000 -132.5000 0.0000000E+00 + 42.50000 -132.5000 0.0000000E+00 + 43.50000 -132.5000 0.0000000E+00 + 44.50000 -132.5000 0.0000000E+00 + 45.50000 -132.5000 0.0000000E+00 + 46.50000 -132.5000 0.0000000E+00 + 47.50000 -132.5000 0.0000000E+00 + 48.50000 -132.5000 0.0000000E+00 + 49.50000 -132.5000 0.0000000E+00 + 50.50000 -132.5000 0.0000000E+00 + 51.50000 -132.5000 0.0000000E+00 + 52.50000 -132.5000 0.0000000E+00 + 53.50000 -132.5000 0.0000000E+00 + 54.50000 -132.5000 0.0000000E+00 + 55.50000 -132.5000 0.0000000E+00 + 56.50000 -132.5000 0.0000000E+00 + 57.50000 -132.5000 0.0000000E+00 + 58.50000 -132.5000 0.0000000E+00 + 59.50000 -132.5000 0.0000000E+00 + 60.50000 -132.5000 0.0000000E+00 + 61.50000 -132.5000 0.0000000E+00 + 62.50000 -132.5000 0.0000000E+00 + 63.50000 -132.5000 0.0000000E+00 + 64.50000 -132.5000 0.0000000E+00 + 65.50000 -132.5000 0.0000000E+00 + 66.50000 -132.5000 0.0000000E+00 + 67.50000 -132.5000 0.0000000E+00 + 68.50000 -132.5000 0.0000000E+00 + 69.50000 -132.5000 0.0000000E+00 + 70.50000 -132.5000 0.0000000E+00 + 71.50000 -132.5000 0.0000000E+00 + 72.50000 -132.5000 0.0000000E+00 + 73.50000 -132.5000 0.0000000E+00 + 74.50000 -132.5000 0.0000000E+00 + 75.50000 -132.5000 0.0000000E+00 + 76.50000 -132.5000 0.0000000E+00 + 77.50000 -132.5000 0.0000000E+00 + 78.50000 -132.5000 0.0000000E+00 + 79.50000 -132.5000 0.0000000E+00 + 80.50000 -132.5000 0.0000000E+00 + 81.50000 -132.5000 0.0000000E+00 + 82.50000 -132.5000 0.0000000E+00 + 83.50000 -132.5000 0.0000000E+00 + 84.50000 -132.5000 0.0000000E+00 + 85.50000 -132.5000 0.0000000E+00 + 86.50000 -132.5000 0.0000000E+00 + 87.50000 -132.5000 0.0000000E+00 + 88.50000 -132.5000 0.0000000E+00 + 89.50000 -132.5000 0.0000000E+00 + -89.50000 -131.5000 0.0000000E+00 + -88.50000 -131.5000 0.0000000E+00 + -87.50000 -131.5000 0.0000000E+00 + -86.50000 -131.5000 0.0000000E+00 + -85.50000 -131.5000 0.0000000E+00 + -84.50000 -131.5000 0.0000000E+00 + -83.50000 -131.5000 0.0000000E+00 + -82.50000 -131.5000 0.0000000E+00 + -81.50000 -131.5000 0.0000000E+00 + -80.50000 -131.5000 0.0000000E+00 + -79.50000 -131.5000 0.0000000E+00 + -78.50000 -131.5000 0.0000000E+00 + -77.50000 -131.5000 0.0000000E+00 + -76.50000 -131.5000 0.0000000E+00 + -75.50000 -131.5000 0.0000000E+00 + -74.50000 -131.5000 0.0000000E+00 + -73.50000 -131.5000 0.0000000E+00 + -72.50000 -131.5000 0.0000000E+00 + -71.50000 -131.5000 0.0000000E+00 + -70.50000 -131.5000 0.0000000E+00 + -69.50000 -131.5000 0.0000000E+00 + -68.50000 -131.5000 0.0000000E+00 + -67.50000 -131.5000 0.0000000E+00 + -66.50000 -131.5000 0.0000000E+00 + -65.50000 -131.5000 0.0000000E+00 + -64.50000 -131.5000 0.0000000E+00 + -63.50000 -131.5000 0.0000000E+00 + -62.50000 -131.5000 0.0000000E+00 + -61.50000 -131.5000 0.0000000E+00 + -60.50000 -131.5000 0.0000000E+00 + -59.50000 -131.5000 0.0000000E+00 + -58.50000 -131.5000 0.0000000E+00 + -57.50000 -131.5000 0.0000000E+00 + -56.50000 -131.5000 0.0000000E+00 + -55.50000 -131.5000 0.0000000E+00 + -54.50000 -131.5000 0.0000000E+00 + -53.50000 -131.5000 0.0000000E+00 + -52.50000 -131.5000 0.0000000E+00 + -51.50000 -131.5000 0.0000000E+00 + -50.50000 -131.5000 0.0000000E+00 + -49.50000 -131.5000 0.0000000E+00 + -48.50000 -131.5000 0.0000000E+00 + -47.50000 -131.5000 0.0000000E+00 + -46.50000 -131.5000 0.0000000E+00 + -45.50000 -131.5000 0.0000000E+00 + -44.50000 -131.5000 0.0000000E+00 + -43.50000 -131.5000 0.0000000E+00 + -42.50000 -131.5000 0.0000000E+00 + -41.50000 -131.5000 0.0000000E+00 + -40.50000 -131.5000 0.0000000E+00 + -39.50000 -131.5000 0.0000000E+00 + -38.50000 -131.5000 0.0000000E+00 + -37.50000 -131.5000 0.0000000E+00 + -36.50000 -131.5000 0.0000000E+00 + -35.50000 -131.5000 0.0000000E+00 + -34.50000 -131.5000 0.0000000E+00 + -33.50000 -131.5000 0.0000000E+00 + -32.50000 -131.5000 0.0000000E+00 + -31.50000 -131.5000 0.0000000E+00 + -30.50000 -131.5000 0.0000000E+00 + -29.50000 -131.5000 0.0000000E+00 + -28.50000 -131.5000 0.0000000E+00 + -27.50000 -131.5000 0.0000000E+00 + -26.50000 -131.5000 0.0000000E+00 + -25.50000 -131.5000 0.0000000E+00 + -24.50000 -131.5000 0.0000000E+00 + -23.50000 -131.5000 0.0000000E+00 + -22.50000 -131.5000 0.0000000E+00 + -21.50000 -131.5000 0.0000000E+00 + -20.50000 -131.5000 0.0000000E+00 + -19.50000 -131.5000 0.0000000E+00 + -18.50000 -131.5000 0.0000000E+00 + -17.50000 -131.5000 0.0000000E+00 + -16.50000 -131.5000 0.0000000E+00 + -15.50000 -131.5000 0.0000000E+00 + -14.50000 -131.5000 0.0000000E+00 + -13.50000 -131.5000 0.0000000E+00 + -12.50000 -131.5000 0.0000000E+00 + -11.50000 -131.5000 0.0000000E+00 + -10.50000 -131.5000 0.0000000E+00 + -9.500000 -131.5000 0.0000000E+00 + -8.500000 -131.5000 0.0000000E+00 + -7.500000 -131.5000 0.0000000E+00 + -6.500000 -131.5000 0.0000000E+00 + -5.500000 -131.5000 0.0000000E+00 + -4.500000 -131.5000 0.0000000E+00 + -3.500000 -131.5000 0.0000000E+00 + -2.500000 -131.5000 0.0000000E+00 + -1.500000 -131.5000 0.0000000E+00 + -0.5000000 -131.5000 0.0000000E+00 + 0.5000000 -131.5000 0.0000000E+00 + 1.500000 -131.5000 0.0000000E+00 + 2.500000 -131.5000 0.0000000E+00 + 3.500000 -131.5000 0.0000000E+00 + 4.500000 -131.5000 0.0000000E+00 + 5.500000 -131.5000 0.0000000E+00 + 6.500000 -131.5000 0.0000000E+00 + 7.500000 -131.5000 0.0000000E+00 + 8.500000 -131.5000 0.0000000E+00 + 9.500000 -131.5000 0.0000000E+00 + 10.50000 -131.5000 0.0000000E+00 + 11.50000 -131.5000 0.0000000E+00 + 12.50000 -131.5000 0.0000000E+00 + 13.50000 -131.5000 0.0000000E+00 + 14.50000 -131.5000 0.0000000E+00 + 15.50000 -131.5000 0.0000000E+00 + 16.50000 -131.5000 0.0000000E+00 + 17.50000 -131.5000 0.0000000E+00 + 18.50000 -131.5000 0.0000000E+00 + 19.50000 -131.5000 0.0000000E+00 + 20.50000 -131.5000 0.0000000E+00 + 21.50000 -131.5000 0.0000000E+00 + 22.50000 -131.5000 0.0000000E+00 + 23.50000 -131.5000 0.0000000E+00 + 24.50000 -131.5000 0.0000000E+00 + 25.50000 -131.5000 0.0000000E+00 + 26.50000 -131.5000 0.0000000E+00 + 27.50000 -131.5000 0.0000000E+00 + 28.50000 -131.5000 0.0000000E+00 + 29.50000 -131.5000 0.0000000E+00 + 30.50000 -131.5000 0.0000000E+00 + 31.50000 -131.5000 0.0000000E+00 + 32.50000 -131.5000 0.0000000E+00 + 33.50000 -131.5000 0.0000000E+00 + 34.50000 -131.5000 0.0000000E+00 + 35.50000 -131.5000 0.0000000E+00 + 36.50000 -131.5000 0.0000000E+00 + 37.50000 -131.5000 0.0000000E+00 + 38.50000 -131.5000 0.0000000E+00 + 39.50000 -131.5000 0.0000000E+00 + 40.50000 -131.5000 0.0000000E+00 + 41.50000 -131.5000 0.0000000E+00 + 42.50000 -131.5000 0.0000000E+00 + 43.50000 -131.5000 0.0000000E+00 + 44.50000 -131.5000 0.0000000E+00 + 45.50000 -131.5000 0.0000000E+00 + 46.50000 -131.5000 0.0000000E+00 + 47.50000 -131.5000 0.0000000E+00 + 48.50000 -131.5000 0.0000000E+00 + 49.50000 -131.5000 0.0000000E+00 + 50.50000 -131.5000 0.0000000E+00 + 51.50000 -131.5000 0.0000000E+00 + 52.50000 -131.5000 0.0000000E+00 + 53.50000 -131.5000 0.0000000E+00 + 54.50000 -131.5000 0.0000000E+00 + 55.50000 -131.5000 0.0000000E+00 + 56.50000 -131.5000 0.0000000E+00 + 57.50000 -131.5000 0.0000000E+00 + 58.50000 -131.5000 0.0000000E+00 + 59.50000 -131.5000 0.0000000E+00 + 60.50000 -131.5000 0.0000000E+00 + 61.50000 -131.5000 0.0000000E+00 + 62.50000 -131.5000 0.0000000E+00 + 63.50000 -131.5000 0.0000000E+00 + 64.50000 -131.5000 0.0000000E+00 + 65.50000 -131.5000 0.0000000E+00 + 66.50000 -131.5000 0.0000000E+00 + 67.50000 -131.5000 0.0000000E+00 + 68.50000 -131.5000 0.0000000E+00 + 69.50000 -131.5000 0.0000000E+00 + 70.50000 -131.5000 0.0000000E+00 + 71.50000 -131.5000 0.0000000E+00 + 72.50000 -131.5000 0.0000000E+00 + 73.50000 -131.5000 0.0000000E+00 + 74.50000 -131.5000 0.0000000E+00 + 75.50000 -131.5000 0.0000000E+00 + 76.50000 -131.5000 0.0000000E+00 + 77.50000 -131.5000 0.0000000E+00 + 78.50000 -131.5000 0.0000000E+00 + 79.50000 -131.5000 0.0000000E+00 + 80.50000 -131.5000 0.0000000E+00 + 81.50000 -131.5000 0.0000000E+00 + 82.50000 -131.5000 0.0000000E+00 + 83.50000 -131.5000 0.0000000E+00 + 84.50000 -131.5000 0.0000000E+00 + 85.50000 -131.5000 0.0000000E+00 + 86.50000 -131.5000 0.0000000E+00 + 87.50000 -131.5000 0.0000000E+00 + 88.50000 -131.5000 0.0000000E+00 + 89.50000 -131.5000 0.0000000E+00 + -89.50000 -130.5000 0.0000000E+00 + -88.50000 -130.5000 0.0000000E+00 + -87.50000 -130.5000 0.0000000E+00 + -86.50000 -130.5000 0.0000000E+00 + -85.50000 -130.5000 0.0000000E+00 + -84.50000 -130.5000 0.0000000E+00 + -83.50000 -130.5000 0.0000000E+00 + -82.50000 -130.5000 0.0000000E+00 + -81.50000 -130.5000 0.0000000E+00 + -80.50000 -130.5000 0.0000000E+00 + -79.50000 -130.5000 0.0000000E+00 + -78.50000 -130.5000 0.0000000E+00 + -77.50000 -130.5000 0.0000000E+00 + -76.50000 -130.5000 0.0000000E+00 + -75.50000 -130.5000 0.0000000E+00 + -74.50000 -130.5000 0.0000000E+00 + -73.50000 -130.5000 0.0000000E+00 + -72.50000 -130.5000 0.0000000E+00 + -71.50000 -130.5000 0.0000000E+00 + -70.50000 -130.5000 0.0000000E+00 + -69.50000 -130.5000 0.0000000E+00 + -68.50000 -130.5000 0.0000000E+00 + -67.50000 -130.5000 0.0000000E+00 + -66.50000 -130.5000 0.0000000E+00 + -65.50000 -130.5000 0.0000000E+00 + -64.50000 -130.5000 0.0000000E+00 + -63.50000 -130.5000 0.0000000E+00 + -62.50000 -130.5000 0.0000000E+00 + -61.50000 -130.5000 0.0000000E+00 + -60.50000 -130.5000 0.0000000E+00 + -59.50000 -130.5000 0.0000000E+00 + -58.50000 -130.5000 0.0000000E+00 + -57.50000 -130.5000 0.0000000E+00 + -56.50000 -130.5000 0.0000000E+00 + -55.50000 -130.5000 0.0000000E+00 + -54.50000 -130.5000 0.0000000E+00 + -53.50000 -130.5000 0.0000000E+00 + -52.50000 -130.5000 0.0000000E+00 + -51.50000 -130.5000 0.0000000E+00 + -50.50000 -130.5000 0.0000000E+00 + -49.50000 -130.5000 0.0000000E+00 + -48.50000 -130.5000 0.0000000E+00 + -47.50000 -130.5000 0.0000000E+00 + -46.50000 -130.5000 0.0000000E+00 + -45.50000 -130.5000 0.0000000E+00 + -44.50000 -130.5000 0.0000000E+00 + -43.50000 -130.5000 0.0000000E+00 + -42.50000 -130.5000 0.0000000E+00 + -41.50000 -130.5000 0.0000000E+00 + -40.50000 -130.5000 0.0000000E+00 + -39.50000 -130.5000 0.0000000E+00 + -38.50000 -130.5000 0.0000000E+00 + -37.50000 -130.5000 0.0000000E+00 + -36.50000 -130.5000 0.0000000E+00 + -35.50000 -130.5000 0.0000000E+00 + -34.50000 -130.5000 0.0000000E+00 + -33.50000 -130.5000 0.0000000E+00 + -32.50000 -130.5000 0.0000000E+00 + -31.50000 -130.5000 0.0000000E+00 + -30.50000 -130.5000 0.0000000E+00 + -29.50000 -130.5000 0.0000000E+00 + -28.50000 -130.5000 0.0000000E+00 + -27.50000 -130.5000 0.0000000E+00 + -26.50000 -130.5000 0.0000000E+00 + -25.50000 -130.5000 0.0000000E+00 + -24.50000 -130.5000 0.0000000E+00 + -23.50000 -130.5000 0.0000000E+00 + -22.50000 -130.5000 0.0000000E+00 + -21.50000 -130.5000 0.0000000E+00 + -20.50000 -130.5000 0.0000000E+00 + -19.50000 -130.5000 0.0000000E+00 + -18.50000 -130.5000 0.0000000E+00 + -17.50000 -130.5000 0.0000000E+00 + -16.50000 -130.5000 0.0000000E+00 + -15.50000 -130.5000 0.0000000E+00 + -14.50000 -130.5000 0.0000000E+00 + -13.50000 -130.5000 0.0000000E+00 + -12.50000 -130.5000 0.0000000E+00 + -11.50000 -130.5000 0.0000000E+00 + -10.50000 -130.5000 0.0000000E+00 + -9.500000 -130.5000 0.0000000E+00 + -8.500000 -130.5000 0.0000000E+00 + -7.500000 -130.5000 0.0000000E+00 + -6.500000 -130.5000 0.0000000E+00 + -5.500000 -130.5000 0.0000000E+00 + -4.500000 -130.5000 0.0000000E+00 + -3.500000 -130.5000 0.0000000E+00 + -2.500000 -130.5000 0.0000000E+00 + -1.500000 -130.5000 0.0000000E+00 + -0.5000000 -130.5000 0.0000000E+00 + 0.5000000 -130.5000 0.0000000E+00 + 1.500000 -130.5000 0.0000000E+00 + 2.500000 -130.5000 0.0000000E+00 + 3.500000 -130.5000 0.0000000E+00 + 4.500000 -130.5000 0.0000000E+00 + 5.500000 -130.5000 0.0000000E+00 + 6.500000 -130.5000 0.0000000E+00 + 7.500000 -130.5000 0.0000000E+00 + 8.500000 -130.5000 0.0000000E+00 + 9.500000 -130.5000 0.0000000E+00 + 10.50000 -130.5000 0.0000000E+00 + 11.50000 -130.5000 0.0000000E+00 + 12.50000 -130.5000 0.0000000E+00 + 13.50000 -130.5000 0.0000000E+00 + 14.50000 -130.5000 0.0000000E+00 + 15.50000 -130.5000 0.0000000E+00 + 16.50000 -130.5000 0.0000000E+00 + 17.50000 -130.5000 0.0000000E+00 + 18.50000 -130.5000 0.0000000E+00 + 19.50000 -130.5000 0.0000000E+00 + 20.50000 -130.5000 0.0000000E+00 + 21.50000 -130.5000 0.0000000E+00 + 22.50000 -130.5000 0.0000000E+00 + 23.50000 -130.5000 0.0000000E+00 + 24.50000 -130.5000 0.0000000E+00 + 25.50000 -130.5000 0.0000000E+00 + 26.50000 -130.5000 0.0000000E+00 + 27.50000 -130.5000 0.0000000E+00 + 28.50000 -130.5000 0.0000000E+00 + 29.50000 -130.5000 0.0000000E+00 + 30.50000 -130.5000 0.0000000E+00 + 31.50000 -130.5000 0.0000000E+00 + 32.50000 -130.5000 0.0000000E+00 + 33.50000 -130.5000 0.0000000E+00 + 34.50000 -130.5000 0.0000000E+00 + 35.50000 -130.5000 0.0000000E+00 + 36.50000 -130.5000 0.0000000E+00 + 37.50000 -130.5000 0.0000000E+00 + 38.50000 -130.5000 0.0000000E+00 + 39.50000 -130.5000 0.0000000E+00 + 40.50000 -130.5000 0.0000000E+00 + 41.50000 -130.5000 0.0000000E+00 + 42.50000 -130.5000 0.0000000E+00 + 43.50000 -130.5000 0.0000000E+00 + 44.50000 -130.5000 0.0000000E+00 + 45.50000 -130.5000 0.0000000E+00 + 46.50000 -130.5000 0.0000000E+00 + 47.50000 -130.5000 0.0000000E+00 + 48.50000 -130.5000 0.0000000E+00 + 49.50000 -130.5000 0.0000000E+00 + 50.50000 -130.5000 0.0000000E+00 + 51.50000 -130.5000 0.0000000E+00 + 52.50000 -130.5000 0.0000000E+00 + 53.50000 -130.5000 0.0000000E+00 + 54.50000 -130.5000 0.0000000E+00 + 55.50000 -130.5000 0.0000000E+00 + 56.50000 -130.5000 0.0000000E+00 + 57.50000 -130.5000 0.0000000E+00 + 58.50000 -130.5000 0.0000000E+00 + 59.50000 -130.5000 0.0000000E+00 + 60.50000 -130.5000 0.0000000E+00 + 61.50000 -130.5000 0.0000000E+00 + 62.50000 -130.5000 0.0000000E+00 + 63.50000 -130.5000 0.0000000E+00 + 64.50000 -130.5000 0.0000000E+00 + 65.50000 -130.5000 0.0000000E+00 + 66.50000 -130.5000 0.0000000E+00 + 67.50000 -130.5000 0.0000000E+00 + 68.50000 -130.5000 0.0000000E+00 + 69.50000 -130.5000 0.0000000E+00 + 70.50000 -130.5000 0.0000000E+00 + 71.50000 -130.5000 0.0000000E+00 + 72.50000 -130.5000 0.0000000E+00 + 73.50000 -130.5000 0.0000000E+00 + 74.50000 -130.5000 0.0000000E+00 + 75.50000 -130.5000 0.0000000E+00 + 76.50000 -130.5000 0.0000000E+00 + 77.50000 -130.5000 0.0000000E+00 + 78.50000 -130.5000 0.0000000E+00 + 79.50000 -130.5000 0.0000000E+00 + 80.50000 -130.5000 0.0000000E+00 + 81.50000 -130.5000 0.0000000E+00 + 82.50000 -130.5000 0.0000000E+00 + 83.50000 -130.5000 0.0000000E+00 + 84.50000 -130.5000 0.0000000E+00 + 85.50000 -130.5000 0.0000000E+00 + 86.50000 -130.5000 0.0000000E+00 + 87.50000 -130.5000 0.0000000E+00 + 88.50000 -130.5000 0.0000000E+00 + 89.50000 -130.5000 0.0000000E+00 + -89.50000 -129.5000 0.0000000E+00 + -88.50000 -129.5000 0.0000000E+00 + -87.50000 -129.5000 0.0000000E+00 + -86.50000 -129.5000 0.0000000E+00 + -85.50000 -129.5000 0.0000000E+00 + -84.50000 -129.5000 0.0000000E+00 + -83.50000 -129.5000 0.0000000E+00 + -82.50000 -129.5000 0.0000000E+00 + -81.50000 -129.5000 0.0000000E+00 + -80.50000 -129.5000 0.0000000E+00 + -79.50000 -129.5000 0.0000000E+00 + -78.50000 -129.5000 0.0000000E+00 + -77.50000 -129.5000 0.0000000E+00 + -76.50000 -129.5000 0.0000000E+00 + -75.50000 -129.5000 0.0000000E+00 + -74.50000 -129.5000 0.0000000E+00 + -73.50000 -129.5000 0.0000000E+00 + -72.50000 -129.5000 0.0000000E+00 + -71.50000 -129.5000 0.0000000E+00 + -70.50000 -129.5000 0.0000000E+00 + -69.50000 -129.5000 0.0000000E+00 + -68.50000 -129.5000 0.0000000E+00 + -67.50000 -129.5000 0.0000000E+00 + -66.50000 -129.5000 0.0000000E+00 + -65.50000 -129.5000 0.0000000E+00 + -64.50000 -129.5000 0.0000000E+00 + -63.50000 -129.5000 0.0000000E+00 + -62.50000 -129.5000 0.0000000E+00 + -61.50000 -129.5000 0.0000000E+00 + -60.50000 -129.5000 0.0000000E+00 + -59.50000 -129.5000 0.0000000E+00 + -58.50000 -129.5000 0.0000000E+00 + -57.50000 -129.5000 0.0000000E+00 + -56.50000 -129.5000 0.0000000E+00 + -55.50000 -129.5000 0.0000000E+00 + -54.50000 -129.5000 0.0000000E+00 + -53.50000 -129.5000 0.0000000E+00 + -52.50000 -129.5000 0.0000000E+00 + -51.50000 -129.5000 0.0000000E+00 + -50.50000 -129.5000 0.0000000E+00 + -49.50000 -129.5000 0.0000000E+00 + -48.50000 -129.5000 0.0000000E+00 + -47.50000 -129.5000 0.0000000E+00 + -46.50000 -129.5000 0.0000000E+00 + -45.50000 -129.5000 0.0000000E+00 + -44.50000 -129.5000 0.0000000E+00 + -43.50000 -129.5000 0.0000000E+00 + -42.50000 -129.5000 0.0000000E+00 + -41.50000 -129.5000 0.0000000E+00 + -40.50000 -129.5000 0.0000000E+00 + -39.50000 -129.5000 0.0000000E+00 + -38.50000 -129.5000 0.0000000E+00 + -37.50000 -129.5000 0.0000000E+00 + -36.50000 -129.5000 0.0000000E+00 + -35.50000 -129.5000 0.0000000E+00 + -34.50000 -129.5000 0.0000000E+00 + -33.50000 -129.5000 0.0000000E+00 + -32.50000 -129.5000 0.0000000E+00 + -31.50000 -129.5000 0.0000000E+00 + -30.50000 -129.5000 0.0000000E+00 + -29.50000 -129.5000 0.0000000E+00 + -28.50000 -129.5000 0.0000000E+00 + -27.50000 -129.5000 0.0000000E+00 + -26.50000 -129.5000 0.0000000E+00 + -25.50000 -129.5000 0.0000000E+00 + -24.50000 -129.5000 0.0000000E+00 + -23.50000 -129.5000 0.0000000E+00 + -22.50000 -129.5000 0.0000000E+00 + -21.50000 -129.5000 0.0000000E+00 + -20.50000 -129.5000 0.0000000E+00 + -19.50000 -129.5000 0.0000000E+00 + -18.50000 -129.5000 0.0000000E+00 + -17.50000 -129.5000 0.0000000E+00 + -16.50000 -129.5000 0.0000000E+00 + -15.50000 -129.5000 0.0000000E+00 + -14.50000 -129.5000 0.0000000E+00 + -13.50000 -129.5000 0.0000000E+00 + -12.50000 -129.5000 0.0000000E+00 + -11.50000 -129.5000 0.0000000E+00 + -10.50000 -129.5000 0.0000000E+00 + -9.500000 -129.5000 0.0000000E+00 + -8.500000 -129.5000 0.0000000E+00 + -7.500000 -129.5000 0.0000000E+00 + -6.500000 -129.5000 0.0000000E+00 + -5.500000 -129.5000 0.0000000E+00 + -4.500000 -129.5000 0.0000000E+00 + -3.500000 -129.5000 0.0000000E+00 + -2.500000 -129.5000 0.0000000E+00 + -1.500000 -129.5000 0.0000000E+00 + -0.5000000 -129.5000 0.0000000E+00 + 0.5000000 -129.5000 0.0000000E+00 + 1.500000 -129.5000 0.0000000E+00 + 2.500000 -129.5000 0.0000000E+00 + 3.500000 -129.5000 0.0000000E+00 + 4.500000 -129.5000 0.0000000E+00 + 5.500000 -129.5000 0.0000000E+00 + 6.500000 -129.5000 0.0000000E+00 + 7.500000 -129.5000 0.0000000E+00 + 8.500000 -129.5000 0.0000000E+00 + 9.500000 -129.5000 0.0000000E+00 + 10.50000 -129.5000 0.0000000E+00 + 11.50000 -129.5000 0.0000000E+00 + 12.50000 -129.5000 0.0000000E+00 + 13.50000 -129.5000 0.0000000E+00 + 14.50000 -129.5000 0.0000000E+00 + 15.50000 -129.5000 0.0000000E+00 + 16.50000 -129.5000 0.0000000E+00 + 17.50000 -129.5000 0.0000000E+00 + 18.50000 -129.5000 0.0000000E+00 + 19.50000 -129.5000 0.0000000E+00 + 20.50000 -129.5000 0.0000000E+00 + 21.50000 -129.5000 0.0000000E+00 + 22.50000 -129.5000 0.0000000E+00 + 23.50000 -129.5000 0.0000000E+00 + 24.50000 -129.5000 0.0000000E+00 + 25.50000 -129.5000 0.0000000E+00 + 26.50000 -129.5000 0.0000000E+00 + 27.50000 -129.5000 0.0000000E+00 + 28.50000 -129.5000 0.0000000E+00 + 29.50000 -129.5000 0.0000000E+00 + 30.50000 -129.5000 0.0000000E+00 + 31.50000 -129.5000 0.0000000E+00 + 32.50000 -129.5000 0.0000000E+00 + 33.50000 -129.5000 0.0000000E+00 + 34.50000 -129.5000 0.0000000E+00 + 35.50000 -129.5000 0.0000000E+00 + 36.50000 -129.5000 0.0000000E+00 + 37.50000 -129.5000 0.0000000E+00 + 38.50000 -129.5000 0.0000000E+00 + 39.50000 -129.5000 0.0000000E+00 + 40.50000 -129.5000 0.0000000E+00 + 41.50000 -129.5000 0.0000000E+00 + 42.50000 -129.5000 0.0000000E+00 + 43.50000 -129.5000 0.0000000E+00 + 44.50000 -129.5000 0.0000000E+00 + 45.50000 -129.5000 0.0000000E+00 + 46.50000 -129.5000 0.0000000E+00 + 47.50000 -129.5000 0.0000000E+00 + 48.50000 -129.5000 0.0000000E+00 + 49.50000 -129.5000 0.0000000E+00 + 50.50000 -129.5000 0.0000000E+00 + 51.50000 -129.5000 0.0000000E+00 + 52.50000 -129.5000 0.0000000E+00 + 53.50000 -129.5000 0.0000000E+00 + 54.50000 -129.5000 0.0000000E+00 + 55.50000 -129.5000 0.0000000E+00 + 56.50000 -129.5000 0.0000000E+00 + 57.50000 -129.5000 0.0000000E+00 + 58.50000 -129.5000 0.0000000E+00 + 59.50000 -129.5000 0.0000000E+00 + 60.50000 -129.5000 0.0000000E+00 + 61.50000 -129.5000 0.0000000E+00 + 62.50000 -129.5000 0.0000000E+00 + 63.50000 -129.5000 0.0000000E+00 + 64.50000 -129.5000 0.0000000E+00 + 65.50000 -129.5000 0.0000000E+00 + 66.50000 -129.5000 0.0000000E+00 + 67.50000 -129.5000 0.0000000E+00 + 68.50000 -129.5000 0.0000000E+00 + 69.50000 -129.5000 0.0000000E+00 + 70.50000 -129.5000 0.0000000E+00 + 71.50000 -129.5000 0.0000000E+00 + 72.50000 -129.5000 0.0000000E+00 + 73.50000 -129.5000 0.0000000E+00 + 74.50000 -129.5000 0.0000000E+00 + 75.50000 -129.5000 0.0000000E+00 + 76.50000 -129.5000 0.0000000E+00 + 77.50000 -129.5000 0.0000000E+00 + 78.50000 -129.5000 0.0000000E+00 + 79.50000 -129.5000 0.0000000E+00 + 80.50000 -129.5000 0.0000000E+00 + 81.50000 -129.5000 0.0000000E+00 + 82.50000 -129.5000 0.0000000E+00 + 83.50000 -129.5000 0.0000000E+00 + 84.50000 -129.5000 0.0000000E+00 + 85.50000 -129.5000 0.0000000E+00 + 86.50000 -129.5000 0.0000000E+00 + 87.50000 -129.5000 0.0000000E+00 + 88.50000 -129.5000 0.0000000E+00 + 89.50000 -129.5000 0.0000000E+00 + -89.50000 -128.5000 0.0000000E+00 + -88.50000 -128.5000 0.0000000E+00 + -87.50000 -128.5000 0.0000000E+00 + -86.50000 -128.5000 0.0000000E+00 + -85.50000 -128.5000 0.0000000E+00 + -84.50000 -128.5000 0.0000000E+00 + -83.50000 -128.5000 0.0000000E+00 + -82.50000 -128.5000 0.0000000E+00 + -81.50000 -128.5000 0.0000000E+00 + -80.50000 -128.5000 0.0000000E+00 + -79.50000 -128.5000 0.0000000E+00 + -78.50000 -128.5000 0.0000000E+00 + -77.50000 -128.5000 0.0000000E+00 + -76.50000 -128.5000 0.0000000E+00 + -75.50000 -128.5000 0.0000000E+00 + -74.50000 -128.5000 0.0000000E+00 + -73.50000 -128.5000 0.0000000E+00 + -72.50000 -128.5000 0.0000000E+00 + -71.50000 -128.5000 0.0000000E+00 + -70.50000 -128.5000 0.0000000E+00 + -69.50000 -128.5000 0.0000000E+00 + -68.50000 -128.5000 0.0000000E+00 + -67.50000 -128.5000 0.0000000E+00 + -66.50000 -128.5000 0.0000000E+00 + -65.50000 -128.5000 0.0000000E+00 + -64.50000 -128.5000 0.0000000E+00 + -63.50000 -128.5000 0.0000000E+00 + -62.50000 -128.5000 0.0000000E+00 + -61.50000 -128.5000 0.0000000E+00 + -60.50000 -128.5000 0.0000000E+00 + -59.50000 -128.5000 0.0000000E+00 + -58.50000 -128.5000 0.0000000E+00 + -57.50000 -128.5000 0.0000000E+00 + -56.50000 -128.5000 0.0000000E+00 + -55.50000 -128.5000 0.0000000E+00 + -54.50000 -128.5000 0.0000000E+00 + -53.50000 -128.5000 0.0000000E+00 + -52.50000 -128.5000 0.0000000E+00 + -51.50000 -128.5000 0.0000000E+00 + -50.50000 -128.5000 0.0000000E+00 + -49.50000 -128.5000 0.0000000E+00 + -48.50000 -128.5000 0.0000000E+00 + -47.50000 -128.5000 0.0000000E+00 + -46.50000 -128.5000 0.0000000E+00 + -45.50000 -128.5000 0.0000000E+00 + -44.50000 -128.5000 0.0000000E+00 + -43.50000 -128.5000 0.0000000E+00 + -42.50000 -128.5000 0.0000000E+00 + -41.50000 -128.5000 0.0000000E+00 + -40.50000 -128.5000 0.0000000E+00 + -39.50000 -128.5000 0.0000000E+00 + -38.50000 -128.5000 0.0000000E+00 + -37.50000 -128.5000 0.0000000E+00 + -36.50000 -128.5000 0.0000000E+00 + -35.50000 -128.5000 0.0000000E+00 + -34.50000 -128.5000 0.0000000E+00 + -33.50000 -128.5000 0.0000000E+00 + -32.50000 -128.5000 0.0000000E+00 + -31.50000 -128.5000 0.0000000E+00 + -30.50000 -128.5000 0.0000000E+00 + -29.50000 -128.5000 0.0000000E+00 + -28.50000 -128.5000 0.0000000E+00 + -27.50000 -128.5000 0.0000000E+00 + -26.50000 -128.5000 0.0000000E+00 + -25.50000 -128.5000 0.0000000E+00 + -24.50000 -128.5000 0.0000000E+00 + -23.50000 -128.5000 0.0000000E+00 + -22.50000 -128.5000 0.0000000E+00 + -21.50000 -128.5000 0.0000000E+00 + -20.50000 -128.5000 0.0000000E+00 + -19.50000 -128.5000 0.0000000E+00 + -18.50000 -128.5000 0.0000000E+00 + -17.50000 -128.5000 0.0000000E+00 + -16.50000 -128.5000 0.0000000E+00 + -15.50000 -128.5000 0.0000000E+00 + -14.50000 -128.5000 0.0000000E+00 + -13.50000 -128.5000 0.0000000E+00 + -12.50000 -128.5000 0.0000000E+00 + -11.50000 -128.5000 0.0000000E+00 + -10.50000 -128.5000 0.0000000E+00 + -9.500000 -128.5000 0.0000000E+00 + -8.500000 -128.5000 0.0000000E+00 + -7.500000 -128.5000 0.0000000E+00 + -6.500000 -128.5000 0.0000000E+00 + -5.500000 -128.5000 0.0000000E+00 + -4.500000 -128.5000 0.0000000E+00 + -3.500000 -128.5000 0.0000000E+00 + -2.500000 -128.5000 0.0000000E+00 + -1.500000 -128.5000 0.0000000E+00 + -0.5000000 -128.5000 0.0000000E+00 + 0.5000000 -128.5000 0.0000000E+00 + 1.500000 -128.5000 0.0000000E+00 + 2.500000 -128.5000 0.0000000E+00 + 3.500000 -128.5000 0.0000000E+00 + 4.500000 -128.5000 0.0000000E+00 + 5.500000 -128.5000 0.0000000E+00 + 6.500000 -128.5000 0.0000000E+00 + 7.500000 -128.5000 0.0000000E+00 + 8.500000 -128.5000 0.0000000E+00 + 9.500000 -128.5000 0.0000000E+00 + 10.50000 -128.5000 0.0000000E+00 + 11.50000 -128.5000 0.0000000E+00 + 12.50000 -128.5000 0.0000000E+00 + 13.50000 -128.5000 0.0000000E+00 + 14.50000 -128.5000 0.0000000E+00 + 15.50000 -128.5000 0.0000000E+00 + 16.50000 -128.5000 0.0000000E+00 + 17.50000 -128.5000 0.0000000E+00 + 18.50000 -128.5000 0.0000000E+00 + 19.50000 -128.5000 0.0000000E+00 + 20.50000 -128.5000 0.0000000E+00 + 21.50000 -128.5000 0.0000000E+00 + 22.50000 -128.5000 0.0000000E+00 + 23.50000 -128.5000 0.0000000E+00 + 24.50000 -128.5000 0.0000000E+00 + 25.50000 -128.5000 0.0000000E+00 + 26.50000 -128.5000 0.0000000E+00 + 27.50000 -128.5000 0.0000000E+00 + 28.50000 -128.5000 0.0000000E+00 + 29.50000 -128.5000 0.0000000E+00 + 30.50000 -128.5000 0.0000000E+00 + 31.50000 -128.5000 0.0000000E+00 + 32.50000 -128.5000 0.0000000E+00 + 33.50000 -128.5000 0.0000000E+00 + 34.50000 -128.5000 0.0000000E+00 + 35.50000 -128.5000 0.0000000E+00 + 36.50000 -128.5000 0.0000000E+00 + 37.50000 -128.5000 0.0000000E+00 + 38.50000 -128.5000 0.0000000E+00 + 39.50000 -128.5000 0.0000000E+00 + 40.50000 -128.5000 0.0000000E+00 + 41.50000 -128.5000 0.0000000E+00 + 42.50000 -128.5000 0.0000000E+00 + 43.50000 -128.5000 0.0000000E+00 + 44.50000 -128.5000 0.0000000E+00 + 45.50000 -128.5000 0.0000000E+00 + 46.50000 -128.5000 0.0000000E+00 + 47.50000 -128.5000 0.0000000E+00 + 48.50000 -128.5000 0.0000000E+00 + 49.50000 -128.5000 0.0000000E+00 + 50.50000 -128.5000 0.0000000E+00 + 51.50000 -128.5000 0.0000000E+00 + 52.50000 -128.5000 0.0000000E+00 + 53.50000 -128.5000 0.0000000E+00 + 54.50000 -128.5000 0.0000000E+00 + 55.50000 -128.5000 0.0000000E+00 + 56.50000 -128.5000 0.0000000E+00 + 57.50000 -128.5000 0.0000000E+00 + 58.50000 -128.5000 0.0000000E+00 + 59.50000 -128.5000 0.0000000E+00 + 60.50000 -128.5000 0.0000000E+00 + 61.50000 -128.5000 0.0000000E+00 + 62.50000 -128.5000 0.0000000E+00 + 63.50000 -128.5000 0.0000000E+00 + 64.50000 -128.5000 0.0000000E+00 + 65.50000 -128.5000 0.0000000E+00 + 66.50000 -128.5000 0.0000000E+00 + 67.50000 -128.5000 0.0000000E+00 + 68.50000 -128.5000 0.0000000E+00 + 69.50000 -128.5000 0.0000000E+00 + 70.50000 -128.5000 0.0000000E+00 + 71.50000 -128.5000 0.0000000E+00 + 72.50000 -128.5000 0.0000000E+00 + 73.50000 -128.5000 0.0000000E+00 + 74.50000 -128.5000 0.0000000E+00 + 75.50000 -128.5000 0.0000000E+00 + 76.50000 -128.5000 0.0000000E+00 + 77.50000 -128.5000 0.0000000E+00 + 78.50000 -128.5000 0.0000000E+00 + 79.50000 -128.5000 0.0000000E+00 + 80.50000 -128.5000 0.0000000E+00 + 81.50000 -128.5000 0.0000000E+00 + 82.50000 -128.5000 0.0000000E+00 + 83.50000 -128.5000 0.0000000E+00 + 84.50000 -128.5000 0.0000000E+00 + 85.50000 -128.5000 0.0000000E+00 + 86.50000 -128.5000 0.0000000E+00 + 87.50000 -128.5000 0.0000000E+00 + 88.50000 -128.5000 0.0000000E+00 + 89.50000 -128.5000 0.0000000E+00 + -89.50000 -127.5000 0.0000000E+00 + -88.50000 -127.5000 0.0000000E+00 + -87.50000 -127.5000 0.0000000E+00 + -86.50000 -127.5000 0.0000000E+00 + -85.50000 -127.5000 0.0000000E+00 + -84.50000 -127.5000 0.0000000E+00 + -83.50000 -127.5000 0.0000000E+00 + -82.50000 -127.5000 0.0000000E+00 + -81.50000 -127.5000 0.0000000E+00 + -80.50000 -127.5000 0.0000000E+00 + -79.50000 -127.5000 0.0000000E+00 + -78.50000 -127.5000 0.0000000E+00 + -77.50000 -127.5000 0.0000000E+00 + -76.50000 -127.5000 0.0000000E+00 + -75.50000 -127.5000 0.0000000E+00 + -74.50000 -127.5000 0.0000000E+00 + -73.50000 -127.5000 0.0000000E+00 + -72.50000 -127.5000 0.0000000E+00 + -71.50000 -127.5000 0.0000000E+00 + -70.50000 -127.5000 0.0000000E+00 + -69.50000 -127.5000 0.0000000E+00 + -68.50000 -127.5000 0.0000000E+00 + -67.50000 -127.5000 0.0000000E+00 + -66.50000 -127.5000 0.0000000E+00 + -65.50000 -127.5000 0.0000000E+00 + -64.50000 -127.5000 0.0000000E+00 + -63.50000 -127.5000 0.0000000E+00 + -62.50000 -127.5000 0.0000000E+00 + -61.50000 -127.5000 0.0000000E+00 + -60.50000 -127.5000 0.0000000E+00 + -59.50000 -127.5000 0.0000000E+00 + -58.50000 -127.5000 0.0000000E+00 + -57.50000 -127.5000 0.0000000E+00 + -56.50000 -127.5000 0.0000000E+00 + -55.50000 -127.5000 0.0000000E+00 + -54.50000 -127.5000 0.0000000E+00 + -53.50000 -127.5000 0.0000000E+00 + -52.50000 -127.5000 0.0000000E+00 + -51.50000 -127.5000 0.0000000E+00 + -50.50000 -127.5000 0.0000000E+00 + -49.50000 -127.5000 0.0000000E+00 + -48.50000 -127.5000 0.0000000E+00 + -47.50000 -127.5000 0.0000000E+00 + -46.50000 -127.5000 0.0000000E+00 + -45.50000 -127.5000 0.0000000E+00 + -44.50000 -127.5000 0.0000000E+00 + -43.50000 -127.5000 0.0000000E+00 + -42.50000 -127.5000 0.0000000E+00 + -41.50000 -127.5000 0.0000000E+00 + -40.50000 -127.5000 0.0000000E+00 + -39.50000 -127.5000 0.0000000E+00 + -38.50000 -127.5000 0.0000000E+00 + -37.50000 -127.5000 0.0000000E+00 + -36.50000 -127.5000 0.0000000E+00 + -35.50000 -127.5000 0.0000000E+00 + -34.50000 -127.5000 0.0000000E+00 + -33.50000 -127.5000 0.0000000E+00 + -32.50000 -127.5000 0.0000000E+00 + -31.50000 -127.5000 0.0000000E+00 + -30.50000 -127.5000 0.0000000E+00 + -29.50000 -127.5000 0.0000000E+00 + -28.50000 -127.5000 0.0000000E+00 + -27.50000 -127.5000 0.0000000E+00 + -26.50000 -127.5000 0.0000000E+00 + -25.50000 -127.5000 0.0000000E+00 + -24.50000 -127.5000 0.0000000E+00 + -23.50000 -127.5000 0.0000000E+00 + -22.50000 -127.5000 0.0000000E+00 + -21.50000 -127.5000 0.0000000E+00 + -20.50000 -127.5000 0.0000000E+00 + -19.50000 -127.5000 0.0000000E+00 + -18.50000 -127.5000 0.0000000E+00 + -17.50000 -127.5000 0.0000000E+00 + -16.50000 -127.5000 0.0000000E+00 + -15.50000 -127.5000 0.0000000E+00 + -14.50000 -127.5000 0.0000000E+00 + -13.50000 -127.5000 0.0000000E+00 + -12.50000 -127.5000 0.0000000E+00 + -11.50000 -127.5000 0.0000000E+00 + -10.50000 -127.5000 0.0000000E+00 + -9.500000 -127.5000 0.0000000E+00 + -8.500000 -127.5000 0.0000000E+00 + -7.500000 -127.5000 0.0000000E+00 + -6.500000 -127.5000 0.0000000E+00 + -5.500000 -127.5000 0.0000000E+00 + -4.500000 -127.5000 0.0000000E+00 + -3.500000 -127.5000 0.0000000E+00 + -2.500000 -127.5000 0.0000000E+00 + -1.500000 -127.5000 0.0000000E+00 + -0.5000000 -127.5000 0.0000000E+00 + 0.5000000 -127.5000 0.0000000E+00 + 1.500000 -127.5000 0.0000000E+00 + 2.500000 -127.5000 0.0000000E+00 + 3.500000 -127.5000 0.0000000E+00 + 4.500000 -127.5000 0.0000000E+00 + 5.500000 -127.5000 0.0000000E+00 + 6.500000 -127.5000 0.0000000E+00 + 7.500000 -127.5000 0.0000000E+00 + 8.500000 -127.5000 0.0000000E+00 + 9.500000 -127.5000 0.0000000E+00 + 10.50000 -127.5000 0.0000000E+00 + 11.50000 -127.5000 0.0000000E+00 + 12.50000 -127.5000 0.0000000E+00 + 13.50000 -127.5000 0.0000000E+00 + 14.50000 -127.5000 0.0000000E+00 + 15.50000 -127.5000 0.0000000E+00 + 16.50000 -127.5000 0.0000000E+00 + 17.50000 -127.5000 0.0000000E+00 + 18.50000 -127.5000 0.0000000E+00 + 19.50000 -127.5000 0.0000000E+00 + 20.50000 -127.5000 0.0000000E+00 + 21.50000 -127.5000 0.0000000E+00 + 22.50000 -127.5000 0.0000000E+00 + 23.50000 -127.5000 0.0000000E+00 + 24.50000 -127.5000 0.0000000E+00 + 25.50000 -127.5000 0.0000000E+00 + 26.50000 -127.5000 0.0000000E+00 + 27.50000 -127.5000 0.0000000E+00 + 28.50000 -127.5000 0.0000000E+00 + 29.50000 -127.5000 0.0000000E+00 + 30.50000 -127.5000 0.0000000E+00 + 31.50000 -127.5000 0.0000000E+00 + 32.50000 -127.5000 0.0000000E+00 + 33.50000 -127.5000 0.0000000E+00 + 34.50000 -127.5000 0.0000000E+00 + 35.50000 -127.5000 0.0000000E+00 + 36.50000 -127.5000 0.0000000E+00 + 37.50000 -127.5000 0.0000000E+00 + 38.50000 -127.5000 0.0000000E+00 + 39.50000 -127.5000 0.0000000E+00 + 40.50000 -127.5000 0.0000000E+00 + 41.50000 -127.5000 0.0000000E+00 + 42.50000 -127.5000 0.0000000E+00 + 43.50000 -127.5000 0.0000000E+00 + 44.50000 -127.5000 0.0000000E+00 + 45.50000 -127.5000 0.0000000E+00 + 46.50000 -127.5000 0.0000000E+00 + 47.50000 -127.5000 0.0000000E+00 + 48.50000 -127.5000 0.0000000E+00 + 49.50000 -127.5000 0.0000000E+00 + 50.50000 -127.5000 0.0000000E+00 + 51.50000 -127.5000 0.0000000E+00 + 52.50000 -127.5000 0.0000000E+00 + 53.50000 -127.5000 0.0000000E+00 + 54.50000 -127.5000 0.0000000E+00 + 55.50000 -127.5000 0.0000000E+00 + 56.50000 -127.5000 0.0000000E+00 + 57.50000 -127.5000 0.0000000E+00 + 58.50000 -127.5000 0.0000000E+00 + 59.50000 -127.5000 0.0000000E+00 + 60.50000 -127.5000 0.0000000E+00 + 61.50000 -127.5000 0.0000000E+00 + 62.50000 -127.5000 0.0000000E+00 + 63.50000 -127.5000 0.0000000E+00 + 64.50000 -127.5000 0.0000000E+00 + 65.50000 -127.5000 0.0000000E+00 + 66.50000 -127.5000 0.0000000E+00 + 67.50000 -127.5000 0.0000000E+00 + 68.50000 -127.5000 0.0000000E+00 + 69.50000 -127.5000 0.0000000E+00 + 70.50000 -127.5000 0.0000000E+00 + 71.50000 -127.5000 0.0000000E+00 + 72.50000 -127.5000 0.0000000E+00 + 73.50000 -127.5000 0.0000000E+00 + 74.50000 -127.5000 0.0000000E+00 + 75.50000 -127.5000 0.0000000E+00 + 76.50000 -127.5000 0.0000000E+00 + 77.50000 -127.5000 0.0000000E+00 + 78.50000 -127.5000 0.0000000E+00 + 79.50000 -127.5000 0.0000000E+00 + 80.50000 -127.5000 0.0000000E+00 + 81.50000 -127.5000 0.0000000E+00 + 82.50000 -127.5000 0.0000000E+00 + 83.50000 -127.5000 0.0000000E+00 + 84.50000 -127.5000 0.0000000E+00 + 85.50000 -127.5000 0.0000000E+00 + 86.50000 -127.5000 0.0000000E+00 + 87.50000 -127.5000 0.0000000E+00 + 88.50000 -127.5000 0.0000000E+00 + 89.50000 -127.5000 0.0000000E+00 + -89.50000 -126.5000 0.0000000E+00 + -88.50000 -126.5000 0.0000000E+00 + -87.50000 -126.5000 0.0000000E+00 + -86.50000 -126.5000 0.0000000E+00 + -85.50000 -126.5000 0.0000000E+00 + -84.50000 -126.5000 0.0000000E+00 + -83.50000 -126.5000 0.0000000E+00 + -82.50000 -126.5000 0.0000000E+00 + -81.50000 -126.5000 0.0000000E+00 + -80.50000 -126.5000 0.0000000E+00 + -79.50000 -126.5000 0.0000000E+00 + -78.50000 -126.5000 0.0000000E+00 + -77.50000 -126.5000 0.0000000E+00 + -76.50000 -126.5000 0.0000000E+00 + -75.50000 -126.5000 0.0000000E+00 + -74.50000 -126.5000 0.0000000E+00 + -73.50000 -126.5000 0.0000000E+00 + -72.50000 -126.5000 0.0000000E+00 + -71.50000 -126.5000 0.0000000E+00 + -70.50000 -126.5000 0.0000000E+00 + -69.50000 -126.5000 0.0000000E+00 + -68.50000 -126.5000 0.0000000E+00 + -67.50000 -126.5000 0.0000000E+00 + -66.50000 -126.5000 0.0000000E+00 + -65.50000 -126.5000 0.0000000E+00 + -64.50000 -126.5000 0.0000000E+00 + -63.50000 -126.5000 0.0000000E+00 + -62.50000 -126.5000 0.0000000E+00 + -61.50000 -126.5000 0.0000000E+00 + -60.50000 -126.5000 0.0000000E+00 + -59.50000 -126.5000 0.0000000E+00 + -58.50000 -126.5000 0.0000000E+00 + -57.50000 -126.5000 0.0000000E+00 + -56.50000 -126.5000 0.0000000E+00 + -55.50000 -126.5000 0.0000000E+00 + -54.50000 -126.5000 0.0000000E+00 + -53.50000 -126.5000 0.0000000E+00 + -52.50000 -126.5000 0.0000000E+00 + -51.50000 -126.5000 0.0000000E+00 + -50.50000 -126.5000 0.0000000E+00 + -49.50000 -126.5000 0.0000000E+00 + -48.50000 -126.5000 0.0000000E+00 + -47.50000 -126.5000 0.0000000E+00 + -46.50000 -126.5000 0.0000000E+00 + -45.50000 -126.5000 0.0000000E+00 + -44.50000 -126.5000 0.0000000E+00 + -43.50000 -126.5000 0.0000000E+00 + -42.50000 -126.5000 0.0000000E+00 + -41.50000 -126.5000 0.0000000E+00 + -40.50000 -126.5000 0.0000000E+00 + -39.50000 -126.5000 0.0000000E+00 + -38.50000 -126.5000 0.0000000E+00 + -37.50000 -126.5000 0.0000000E+00 + -36.50000 -126.5000 0.0000000E+00 + -35.50000 -126.5000 0.0000000E+00 + -34.50000 -126.5000 0.0000000E+00 + -33.50000 -126.5000 0.0000000E+00 + -32.50000 -126.5000 0.0000000E+00 + -31.50000 -126.5000 0.0000000E+00 + -30.50000 -126.5000 0.0000000E+00 + -29.50000 -126.5000 0.0000000E+00 + -28.50000 -126.5000 0.0000000E+00 + -27.50000 -126.5000 0.0000000E+00 + -26.50000 -126.5000 0.0000000E+00 + -25.50000 -126.5000 0.0000000E+00 + -24.50000 -126.5000 0.0000000E+00 + -23.50000 -126.5000 0.0000000E+00 + -22.50000 -126.5000 0.0000000E+00 + -21.50000 -126.5000 0.0000000E+00 + -20.50000 -126.5000 0.0000000E+00 + -19.50000 -126.5000 0.0000000E+00 + -18.50000 -126.5000 0.0000000E+00 + -17.50000 -126.5000 0.0000000E+00 + -16.50000 -126.5000 0.0000000E+00 + -15.50000 -126.5000 0.0000000E+00 + -14.50000 -126.5000 0.0000000E+00 + -13.50000 -126.5000 0.0000000E+00 + -12.50000 -126.5000 0.0000000E+00 + -11.50000 -126.5000 0.0000000E+00 + -10.50000 -126.5000 0.0000000E+00 + -9.500000 -126.5000 0.0000000E+00 + -8.500000 -126.5000 0.0000000E+00 + -7.500000 -126.5000 0.0000000E+00 + -6.500000 -126.5000 0.0000000E+00 + -5.500000 -126.5000 0.0000000E+00 + -4.500000 -126.5000 0.0000000E+00 + -3.500000 -126.5000 0.0000000E+00 + -2.500000 -126.5000 0.0000000E+00 + -1.500000 -126.5000 0.0000000E+00 + -0.5000000 -126.5000 0.0000000E+00 + 0.5000000 -126.5000 0.0000000E+00 + 1.500000 -126.5000 0.0000000E+00 + 2.500000 -126.5000 0.0000000E+00 + 3.500000 -126.5000 0.0000000E+00 + 4.500000 -126.5000 0.0000000E+00 + 5.500000 -126.5000 0.0000000E+00 + 6.500000 -126.5000 0.0000000E+00 + 7.500000 -126.5000 0.0000000E+00 + 8.500000 -126.5000 0.0000000E+00 + 9.500000 -126.5000 0.0000000E+00 + 10.50000 -126.5000 0.0000000E+00 + 11.50000 -126.5000 0.0000000E+00 + 12.50000 -126.5000 0.0000000E+00 + 13.50000 -126.5000 0.0000000E+00 + 14.50000 -126.5000 0.0000000E+00 + 15.50000 -126.5000 0.0000000E+00 + 16.50000 -126.5000 0.0000000E+00 + 17.50000 -126.5000 0.0000000E+00 + 18.50000 -126.5000 0.0000000E+00 + 19.50000 -126.5000 0.0000000E+00 + 20.50000 -126.5000 0.0000000E+00 + 21.50000 -126.5000 0.0000000E+00 + 22.50000 -126.5000 0.0000000E+00 + 23.50000 -126.5000 0.0000000E+00 + 24.50000 -126.5000 0.0000000E+00 + 25.50000 -126.5000 0.0000000E+00 + 26.50000 -126.5000 0.0000000E+00 + 27.50000 -126.5000 0.0000000E+00 + 28.50000 -126.5000 0.0000000E+00 + 29.50000 -126.5000 0.0000000E+00 + 30.50000 -126.5000 0.0000000E+00 + 31.50000 -126.5000 0.0000000E+00 + 32.50000 -126.5000 0.0000000E+00 + 33.50000 -126.5000 0.0000000E+00 + 34.50000 -126.5000 0.0000000E+00 + 35.50000 -126.5000 0.0000000E+00 + 36.50000 -126.5000 0.0000000E+00 + 37.50000 -126.5000 0.0000000E+00 + 38.50000 -126.5000 0.0000000E+00 + 39.50000 -126.5000 0.0000000E+00 + 40.50000 -126.5000 0.0000000E+00 + 41.50000 -126.5000 0.0000000E+00 + 42.50000 -126.5000 0.0000000E+00 + 43.50000 -126.5000 0.0000000E+00 + 44.50000 -126.5000 0.0000000E+00 + 45.50000 -126.5000 0.0000000E+00 + 46.50000 -126.5000 0.0000000E+00 + 47.50000 -126.5000 0.0000000E+00 + 48.50000 -126.5000 0.0000000E+00 + 49.50000 -126.5000 0.0000000E+00 + 50.50000 -126.5000 0.0000000E+00 + 51.50000 -126.5000 0.0000000E+00 + 52.50000 -126.5000 0.0000000E+00 + 53.50000 -126.5000 0.0000000E+00 + 54.50000 -126.5000 0.0000000E+00 + 55.50000 -126.5000 0.0000000E+00 + 56.50000 -126.5000 0.0000000E+00 + 57.50000 -126.5000 0.0000000E+00 + 58.50000 -126.5000 0.0000000E+00 + 59.50000 -126.5000 0.0000000E+00 + 60.50000 -126.5000 0.0000000E+00 + 61.50000 -126.5000 0.0000000E+00 + 62.50000 -126.5000 0.0000000E+00 + 63.50000 -126.5000 0.0000000E+00 + 64.50000 -126.5000 0.0000000E+00 + 65.50000 -126.5000 0.0000000E+00 + 66.50000 -126.5000 0.0000000E+00 + 67.50000 -126.5000 0.0000000E+00 + 68.50000 -126.5000 0.0000000E+00 + 69.50000 -126.5000 0.0000000E+00 + 70.50000 -126.5000 0.0000000E+00 + 71.50000 -126.5000 0.0000000E+00 + 72.50000 -126.5000 0.0000000E+00 + 73.50000 -126.5000 0.0000000E+00 + 74.50000 -126.5000 0.0000000E+00 + 75.50000 -126.5000 0.0000000E+00 + 76.50000 -126.5000 0.0000000E+00 + 77.50000 -126.5000 0.0000000E+00 + 78.50000 -126.5000 0.0000000E+00 + 79.50000 -126.5000 0.0000000E+00 + 80.50000 -126.5000 0.0000000E+00 + 81.50000 -126.5000 0.0000000E+00 + 82.50000 -126.5000 0.0000000E+00 + 83.50000 -126.5000 0.0000000E+00 + 84.50000 -126.5000 0.0000000E+00 + 85.50000 -126.5000 0.0000000E+00 + 86.50000 -126.5000 0.0000000E+00 + 87.50000 -126.5000 0.0000000E+00 + 88.50000 -126.5000 0.0000000E+00 + 89.50000 -126.5000 0.0000000E+00 + -89.50000 -125.5000 0.0000000E+00 + -88.50000 -125.5000 0.0000000E+00 + -87.50000 -125.5000 0.0000000E+00 + -86.50000 -125.5000 0.0000000E+00 + -85.50000 -125.5000 0.0000000E+00 + -84.50000 -125.5000 0.0000000E+00 + -83.50000 -125.5000 0.0000000E+00 + -82.50000 -125.5000 0.0000000E+00 + -81.50000 -125.5000 0.0000000E+00 + -80.50000 -125.5000 0.0000000E+00 + -79.50000 -125.5000 0.0000000E+00 + -78.50000 -125.5000 0.0000000E+00 + -77.50000 -125.5000 0.0000000E+00 + -76.50000 -125.5000 0.0000000E+00 + -75.50000 -125.5000 0.0000000E+00 + -74.50000 -125.5000 0.0000000E+00 + -73.50000 -125.5000 0.0000000E+00 + -72.50000 -125.5000 0.0000000E+00 + -71.50000 -125.5000 0.0000000E+00 + -70.50000 -125.5000 0.0000000E+00 + -69.50000 -125.5000 0.0000000E+00 + -68.50000 -125.5000 0.0000000E+00 + -67.50000 -125.5000 0.0000000E+00 + -66.50000 -125.5000 0.0000000E+00 + -65.50000 -125.5000 0.0000000E+00 + -64.50000 -125.5000 0.0000000E+00 + -63.50000 -125.5000 0.0000000E+00 + -62.50000 -125.5000 0.0000000E+00 + -61.50000 -125.5000 0.0000000E+00 + -60.50000 -125.5000 0.0000000E+00 + -59.50000 -125.5000 0.0000000E+00 + -58.50000 -125.5000 0.0000000E+00 + -57.50000 -125.5000 0.0000000E+00 + -56.50000 -125.5000 0.0000000E+00 + -55.50000 -125.5000 0.0000000E+00 + -54.50000 -125.5000 0.0000000E+00 + -53.50000 -125.5000 0.0000000E+00 + -52.50000 -125.5000 0.0000000E+00 + -51.50000 -125.5000 0.0000000E+00 + -50.50000 -125.5000 0.0000000E+00 + -49.50000 -125.5000 0.0000000E+00 + -48.50000 -125.5000 0.0000000E+00 + -47.50000 -125.5000 0.0000000E+00 + -46.50000 -125.5000 0.0000000E+00 + -45.50000 -125.5000 0.0000000E+00 + -44.50000 -125.5000 0.0000000E+00 + -43.50000 -125.5000 0.0000000E+00 + -42.50000 -125.5000 0.0000000E+00 + -41.50000 -125.5000 0.0000000E+00 + -40.50000 -125.5000 0.0000000E+00 + -39.50000 -125.5000 0.0000000E+00 + -38.50000 -125.5000 0.0000000E+00 + -37.50000 -125.5000 0.0000000E+00 + -36.50000 -125.5000 0.0000000E+00 + -35.50000 -125.5000 0.0000000E+00 + -34.50000 -125.5000 0.0000000E+00 + -33.50000 -125.5000 0.0000000E+00 + -32.50000 -125.5000 0.0000000E+00 + -31.50000 -125.5000 0.0000000E+00 + -30.50000 -125.5000 0.0000000E+00 + -29.50000 -125.5000 0.0000000E+00 + -28.50000 -125.5000 0.0000000E+00 + -27.50000 -125.5000 0.0000000E+00 + -26.50000 -125.5000 0.0000000E+00 + -25.50000 -125.5000 0.0000000E+00 + -24.50000 -125.5000 0.0000000E+00 + -23.50000 -125.5000 0.0000000E+00 + -22.50000 -125.5000 0.0000000E+00 + -21.50000 -125.5000 0.0000000E+00 + -20.50000 -125.5000 0.0000000E+00 + -19.50000 -125.5000 0.0000000E+00 + -18.50000 -125.5000 0.0000000E+00 + -17.50000 -125.5000 0.0000000E+00 + -16.50000 -125.5000 0.0000000E+00 + -15.50000 -125.5000 0.0000000E+00 + -14.50000 -125.5000 0.0000000E+00 + -13.50000 -125.5000 0.0000000E+00 + -12.50000 -125.5000 0.0000000E+00 + -11.50000 -125.5000 0.0000000E+00 + -10.50000 -125.5000 0.0000000E+00 + -9.500000 -125.5000 0.0000000E+00 + -8.500000 -125.5000 0.0000000E+00 + -7.500000 -125.5000 0.0000000E+00 + -6.500000 -125.5000 0.0000000E+00 + -5.500000 -125.5000 0.0000000E+00 + -4.500000 -125.5000 0.0000000E+00 + -3.500000 -125.5000 0.0000000E+00 + -2.500000 -125.5000 0.0000000E+00 + -1.500000 -125.5000 0.0000000E+00 + -0.5000000 -125.5000 0.0000000E+00 + 0.5000000 -125.5000 0.0000000E+00 + 1.500000 -125.5000 0.0000000E+00 + 2.500000 -125.5000 0.0000000E+00 + 3.500000 -125.5000 0.0000000E+00 + 4.500000 -125.5000 0.0000000E+00 + 5.500000 -125.5000 0.0000000E+00 + 6.500000 -125.5000 0.0000000E+00 + 7.500000 -125.5000 0.0000000E+00 + 8.500000 -125.5000 0.0000000E+00 + 9.500000 -125.5000 0.0000000E+00 + 10.50000 -125.5000 0.0000000E+00 + 11.50000 -125.5000 0.0000000E+00 + 12.50000 -125.5000 0.0000000E+00 + 13.50000 -125.5000 0.0000000E+00 + 14.50000 -125.5000 0.0000000E+00 + 15.50000 -125.5000 0.0000000E+00 + 16.50000 -125.5000 0.0000000E+00 + 17.50000 -125.5000 0.0000000E+00 + 18.50000 -125.5000 0.0000000E+00 + 19.50000 -125.5000 0.0000000E+00 + 20.50000 -125.5000 0.0000000E+00 + 21.50000 -125.5000 0.0000000E+00 + 22.50000 -125.5000 0.0000000E+00 + 23.50000 -125.5000 0.0000000E+00 + 24.50000 -125.5000 0.0000000E+00 + 25.50000 -125.5000 0.0000000E+00 + 26.50000 -125.5000 0.0000000E+00 + 27.50000 -125.5000 0.0000000E+00 + 28.50000 -125.5000 0.0000000E+00 + 29.50000 -125.5000 0.0000000E+00 + 30.50000 -125.5000 0.0000000E+00 + 31.50000 -125.5000 0.0000000E+00 + 32.50000 -125.5000 0.0000000E+00 + 33.50000 -125.5000 0.0000000E+00 + 34.50000 -125.5000 0.0000000E+00 + 35.50000 -125.5000 0.0000000E+00 + 36.50000 -125.5000 0.0000000E+00 + 37.50000 -125.5000 0.0000000E+00 + 38.50000 -125.5000 0.0000000E+00 + 39.50000 -125.5000 0.0000000E+00 + 40.50000 -125.5000 0.0000000E+00 + 41.50000 -125.5000 0.0000000E+00 + 42.50000 -125.5000 0.0000000E+00 + 43.50000 -125.5000 0.0000000E+00 + 44.50000 -125.5000 0.0000000E+00 + 45.50000 -125.5000 0.0000000E+00 + 46.50000 -125.5000 0.0000000E+00 + 47.50000 -125.5000 0.0000000E+00 + 48.50000 -125.5000 0.0000000E+00 + 49.50000 -125.5000 0.0000000E+00 + 50.50000 -125.5000 0.0000000E+00 + 51.50000 -125.5000 0.0000000E+00 + 52.50000 -125.5000 0.0000000E+00 + 53.50000 -125.5000 0.0000000E+00 + 54.50000 -125.5000 0.0000000E+00 + 55.50000 -125.5000 0.0000000E+00 + 56.50000 -125.5000 0.0000000E+00 + 57.50000 -125.5000 0.0000000E+00 + 58.50000 -125.5000 0.0000000E+00 + 59.50000 -125.5000 0.0000000E+00 + 60.50000 -125.5000 0.0000000E+00 + 61.50000 -125.5000 0.0000000E+00 + 62.50000 -125.5000 0.0000000E+00 + 63.50000 -125.5000 0.0000000E+00 + 64.50000 -125.5000 0.0000000E+00 + 65.50000 -125.5000 0.0000000E+00 + 66.50000 -125.5000 0.0000000E+00 + 67.50000 -125.5000 0.0000000E+00 + 68.50000 -125.5000 0.0000000E+00 + 69.50000 -125.5000 0.0000000E+00 + 70.50000 -125.5000 0.0000000E+00 + 71.50000 -125.5000 0.0000000E+00 + 72.50000 -125.5000 0.0000000E+00 + 73.50000 -125.5000 0.0000000E+00 + 74.50000 -125.5000 0.0000000E+00 + 75.50000 -125.5000 0.0000000E+00 + 76.50000 -125.5000 0.0000000E+00 + 77.50000 -125.5000 0.0000000E+00 + 78.50000 -125.5000 0.0000000E+00 + 79.50000 -125.5000 0.0000000E+00 + 80.50000 -125.5000 0.0000000E+00 + 81.50000 -125.5000 0.0000000E+00 + 82.50000 -125.5000 0.0000000E+00 + 83.50000 -125.5000 0.0000000E+00 + 84.50000 -125.5000 0.0000000E+00 + 85.50000 -125.5000 0.0000000E+00 + 86.50000 -125.5000 0.0000000E+00 + 87.50000 -125.5000 0.0000000E+00 + 88.50000 -125.5000 0.0000000E+00 + 89.50000 -125.5000 0.0000000E+00 + -89.50000 -124.5000 0.0000000E+00 + -88.50000 -124.5000 0.0000000E+00 + -87.50000 -124.5000 0.0000000E+00 + -86.50000 -124.5000 0.0000000E+00 + -85.50000 -124.5000 0.0000000E+00 + -84.50000 -124.5000 0.0000000E+00 + -83.50000 -124.5000 0.0000000E+00 + -82.50000 -124.5000 0.0000000E+00 + -81.50000 -124.5000 0.0000000E+00 + -80.50000 -124.5000 0.0000000E+00 + -79.50000 -124.5000 0.0000000E+00 + -78.50000 -124.5000 0.0000000E+00 + -77.50000 -124.5000 0.0000000E+00 + -76.50000 -124.5000 0.0000000E+00 + -75.50000 -124.5000 0.0000000E+00 + -74.50000 -124.5000 0.0000000E+00 + -73.50000 -124.5000 0.0000000E+00 + -72.50000 -124.5000 0.0000000E+00 + -71.50000 -124.5000 0.0000000E+00 + -70.50000 -124.5000 0.0000000E+00 + -69.50000 -124.5000 0.0000000E+00 + -68.50000 -124.5000 0.0000000E+00 + -67.50000 -124.5000 0.0000000E+00 + -66.50000 -124.5000 0.0000000E+00 + -65.50000 -124.5000 0.0000000E+00 + -64.50000 -124.5000 0.0000000E+00 + -63.50000 -124.5000 0.0000000E+00 + -62.50000 -124.5000 0.0000000E+00 + -61.50000 -124.5000 0.0000000E+00 + -60.50000 -124.5000 0.0000000E+00 + -59.50000 -124.5000 0.0000000E+00 + -58.50000 -124.5000 0.0000000E+00 + -57.50000 -124.5000 0.0000000E+00 + -56.50000 -124.5000 0.0000000E+00 + -55.50000 -124.5000 0.0000000E+00 + -54.50000 -124.5000 0.0000000E+00 + -53.50000 -124.5000 0.0000000E+00 + -52.50000 -124.5000 0.0000000E+00 + -51.50000 -124.5000 0.0000000E+00 + -50.50000 -124.5000 0.0000000E+00 + -49.50000 -124.5000 0.0000000E+00 + -48.50000 -124.5000 0.0000000E+00 + -47.50000 -124.5000 0.0000000E+00 + -46.50000 -124.5000 0.0000000E+00 + -45.50000 -124.5000 0.0000000E+00 + -44.50000 -124.5000 0.0000000E+00 + -43.50000 -124.5000 0.0000000E+00 + -42.50000 -124.5000 0.0000000E+00 + -41.50000 -124.5000 0.0000000E+00 + -40.50000 -124.5000 0.0000000E+00 + -39.50000 -124.5000 0.0000000E+00 + -38.50000 -124.5000 0.0000000E+00 + -37.50000 -124.5000 0.0000000E+00 + -36.50000 -124.5000 0.0000000E+00 + -35.50000 -124.5000 0.0000000E+00 + -34.50000 -124.5000 0.0000000E+00 + -33.50000 -124.5000 0.0000000E+00 + -32.50000 -124.5000 0.0000000E+00 + -31.50000 -124.5000 0.0000000E+00 + -30.50000 -124.5000 0.0000000E+00 + -29.50000 -124.5000 0.0000000E+00 + -28.50000 -124.5000 0.0000000E+00 + -27.50000 -124.5000 0.0000000E+00 + -26.50000 -124.5000 0.0000000E+00 + -25.50000 -124.5000 0.0000000E+00 + -24.50000 -124.5000 0.0000000E+00 + -23.50000 -124.5000 0.0000000E+00 + -22.50000 -124.5000 0.0000000E+00 + -21.50000 -124.5000 0.0000000E+00 + -20.50000 -124.5000 0.0000000E+00 + -19.50000 -124.5000 0.0000000E+00 + -18.50000 -124.5000 0.0000000E+00 + -17.50000 -124.5000 0.0000000E+00 + -16.50000 -124.5000 0.0000000E+00 + -15.50000 -124.5000 0.0000000E+00 + -14.50000 -124.5000 0.0000000E+00 + -13.50000 -124.5000 0.0000000E+00 + -12.50000 -124.5000 0.0000000E+00 + -11.50000 -124.5000 0.0000000E+00 + -10.50000 -124.5000 0.0000000E+00 + -9.500000 -124.5000 0.0000000E+00 + -8.500000 -124.5000 0.0000000E+00 + -7.500000 -124.5000 0.0000000E+00 + -6.500000 -124.5000 0.0000000E+00 + -5.500000 -124.5000 0.0000000E+00 + -4.500000 -124.5000 0.0000000E+00 + -3.500000 -124.5000 0.0000000E+00 + -2.500000 -124.5000 0.0000000E+00 + -1.500000 -124.5000 0.0000000E+00 + -0.5000000 -124.5000 0.0000000E+00 + 0.5000000 -124.5000 0.0000000E+00 + 1.500000 -124.5000 0.0000000E+00 + 2.500000 -124.5000 0.0000000E+00 + 3.500000 -124.5000 0.0000000E+00 + 4.500000 -124.5000 0.0000000E+00 + 5.500000 -124.5000 0.0000000E+00 + 6.500000 -124.5000 0.0000000E+00 + 7.500000 -124.5000 0.0000000E+00 + 8.500000 -124.5000 0.0000000E+00 + 9.500000 -124.5000 0.0000000E+00 + 10.50000 -124.5000 0.0000000E+00 + 11.50000 -124.5000 0.0000000E+00 + 12.50000 -124.5000 0.0000000E+00 + 13.50000 -124.5000 0.0000000E+00 + 14.50000 -124.5000 0.0000000E+00 + 15.50000 -124.5000 0.0000000E+00 + 16.50000 -124.5000 0.0000000E+00 + 17.50000 -124.5000 0.0000000E+00 + 18.50000 -124.5000 0.0000000E+00 + 19.50000 -124.5000 0.0000000E+00 + 20.50000 -124.5000 0.0000000E+00 + 21.50000 -124.5000 0.0000000E+00 + 22.50000 -124.5000 0.0000000E+00 + 23.50000 -124.5000 0.0000000E+00 + 24.50000 -124.5000 0.0000000E+00 + 25.50000 -124.5000 0.0000000E+00 + 26.50000 -124.5000 0.0000000E+00 + 27.50000 -124.5000 0.0000000E+00 + 28.50000 -124.5000 0.0000000E+00 + 29.50000 -124.5000 0.0000000E+00 + 30.50000 -124.5000 0.0000000E+00 + 31.50000 -124.5000 0.0000000E+00 + 32.50000 -124.5000 0.0000000E+00 + 33.50000 -124.5000 0.0000000E+00 + 34.50000 -124.5000 0.0000000E+00 + 35.50000 -124.5000 0.0000000E+00 + 36.50000 -124.5000 0.0000000E+00 + 37.50000 -124.5000 0.0000000E+00 + 38.50000 -124.5000 0.0000000E+00 + 39.50000 -124.5000 0.0000000E+00 + 40.50000 -124.5000 0.0000000E+00 + 41.50000 -124.5000 0.0000000E+00 + 42.50000 -124.5000 0.0000000E+00 + 43.50000 -124.5000 0.0000000E+00 + 44.50000 -124.5000 0.0000000E+00 + 45.50000 -124.5000 0.0000000E+00 + 46.50000 -124.5000 0.0000000E+00 + 47.50000 -124.5000 0.0000000E+00 + 48.50000 -124.5000 0.0000000E+00 + 49.50000 -124.5000 0.0000000E+00 + 50.50000 -124.5000 0.0000000E+00 + 51.50000 -124.5000 0.0000000E+00 + 52.50000 -124.5000 0.0000000E+00 + 53.50000 -124.5000 0.0000000E+00 + 54.50000 -124.5000 0.0000000E+00 + 55.50000 -124.5000 0.0000000E+00 + 56.50000 -124.5000 0.0000000E+00 + 57.50000 -124.5000 0.0000000E+00 + 58.50000 -124.5000 0.0000000E+00 + 59.50000 -124.5000 0.0000000E+00 + 60.50000 -124.5000 0.0000000E+00 + 61.50000 -124.5000 0.0000000E+00 + 62.50000 -124.5000 0.0000000E+00 + 63.50000 -124.5000 0.0000000E+00 + 64.50000 -124.5000 0.0000000E+00 + 65.50000 -124.5000 0.0000000E+00 + 66.50000 -124.5000 0.0000000E+00 + 67.50000 -124.5000 0.0000000E+00 + 68.50000 -124.5000 0.0000000E+00 + 69.50000 -124.5000 0.0000000E+00 + 70.50000 -124.5000 0.0000000E+00 + 71.50000 -124.5000 0.0000000E+00 + 72.50000 -124.5000 0.0000000E+00 + 73.50000 -124.5000 0.0000000E+00 + 74.50000 -124.5000 0.0000000E+00 + 75.50000 -124.5000 0.0000000E+00 + 76.50000 -124.5000 0.0000000E+00 + 77.50000 -124.5000 0.0000000E+00 + 78.50000 -124.5000 0.0000000E+00 + 79.50000 -124.5000 0.0000000E+00 + 80.50000 -124.5000 0.0000000E+00 + 81.50000 -124.5000 0.0000000E+00 + 82.50000 -124.5000 0.0000000E+00 + 83.50000 -124.5000 0.0000000E+00 + 84.50000 -124.5000 0.0000000E+00 + 85.50000 -124.5000 0.0000000E+00 + 86.50000 -124.5000 0.0000000E+00 + 87.50000 -124.5000 0.0000000E+00 + 88.50000 -124.5000 0.0000000E+00 + 89.50000 -124.5000 0.0000000E+00 + -89.50000 -123.5000 0.0000000E+00 + -88.50000 -123.5000 0.0000000E+00 + -87.50000 -123.5000 0.0000000E+00 + -86.50000 -123.5000 0.0000000E+00 + -85.50000 -123.5000 0.0000000E+00 + -84.50000 -123.5000 0.0000000E+00 + -83.50000 -123.5000 0.0000000E+00 + -82.50000 -123.5000 0.0000000E+00 + -81.50000 -123.5000 0.0000000E+00 + -80.50000 -123.5000 0.0000000E+00 + -79.50000 -123.5000 0.0000000E+00 + -78.50000 -123.5000 0.0000000E+00 + -77.50000 -123.5000 0.0000000E+00 + -76.50000 -123.5000 0.0000000E+00 + -75.50000 -123.5000 0.0000000E+00 + -74.50000 -123.5000 0.0000000E+00 + -73.50000 -123.5000 0.0000000E+00 + -72.50000 -123.5000 0.0000000E+00 + -71.50000 -123.5000 0.0000000E+00 + -70.50000 -123.5000 0.0000000E+00 + -69.50000 -123.5000 0.0000000E+00 + -68.50000 -123.5000 0.0000000E+00 + -67.50000 -123.5000 0.0000000E+00 + -66.50000 -123.5000 0.0000000E+00 + -65.50000 -123.5000 0.0000000E+00 + -64.50000 -123.5000 0.0000000E+00 + -63.50000 -123.5000 0.0000000E+00 + -62.50000 -123.5000 0.0000000E+00 + -61.50000 -123.5000 0.0000000E+00 + -60.50000 -123.5000 0.0000000E+00 + -59.50000 -123.5000 0.0000000E+00 + -58.50000 -123.5000 0.0000000E+00 + -57.50000 -123.5000 0.0000000E+00 + -56.50000 -123.5000 0.0000000E+00 + -55.50000 -123.5000 0.0000000E+00 + -54.50000 -123.5000 0.0000000E+00 + -53.50000 -123.5000 0.0000000E+00 + -52.50000 -123.5000 0.0000000E+00 + -51.50000 -123.5000 0.0000000E+00 + -50.50000 -123.5000 0.0000000E+00 + -49.50000 -123.5000 0.0000000E+00 + -48.50000 -123.5000 0.0000000E+00 + -47.50000 -123.5000 0.0000000E+00 + -46.50000 -123.5000 0.0000000E+00 + -45.50000 -123.5000 0.0000000E+00 + -44.50000 -123.5000 0.0000000E+00 + -43.50000 -123.5000 0.0000000E+00 + -42.50000 -123.5000 0.0000000E+00 + -41.50000 -123.5000 0.0000000E+00 + -40.50000 -123.5000 0.0000000E+00 + -39.50000 -123.5000 0.0000000E+00 + -38.50000 -123.5000 0.0000000E+00 + -37.50000 -123.5000 0.0000000E+00 + -36.50000 -123.5000 0.0000000E+00 + -35.50000 -123.5000 0.0000000E+00 + -34.50000 -123.5000 0.0000000E+00 + -33.50000 -123.5000 0.0000000E+00 + -32.50000 -123.5000 0.0000000E+00 + -31.50000 -123.5000 0.0000000E+00 + -30.50000 -123.5000 0.0000000E+00 + -29.50000 -123.5000 0.0000000E+00 + -28.50000 -123.5000 0.0000000E+00 + -27.50000 -123.5000 0.0000000E+00 + -26.50000 -123.5000 0.0000000E+00 + -25.50000 -123.5000 0.0000000E+00 + -24.50000 -123.5000 0.0000000E+00 + -23.50000 -123.5000 0.0000000E+00 + -22.50000 -123.5000 0.0000000E+00 + -21.50000 -123.5000 0.0000000E+00 + -20.50000 -123.5000 0.0000000E+00 + -19.50000 -123.5000 0.0000000E+00 + -18.50000 -123.5000 0.0000000E+00 + -17.50000 -123.5000 0.0000000E+00 + -16.50000 -123.5000 0.0000000E+00 + -15.50000 -123.5000 0.0000000E+00 + -14.50000 -123.5000 0.0000000E+00 + -13.50000 -123.5000 0.0000000E+00 + -12.50000 -123.5000 0.0000000E+00 + -11.50000 -123.5000 0.0000000E+00 + -10.50000 -123.5000 0.0000000E+00 + -9.500000 -123.5000 0.0000000E+00 + -8.500000 -123.5000 0.0000000E+00 + -7.500000 -123.5000 0.0000000E+00 + -6.500000 -123.5000 0.0000000E+00 + -5.500000 -123.5000 0.0000000E+00 + -4.500000 -123.5000 0.0000000E+00 + -3.500000 -123.5000 0.0000000E+00 + -2.500000 -123.5000 0.0000000E+00 + -1.500000 -123.5000 0.0000000E+00 + -0.5000000 -123.5000 0.0000000E+00 + 0.5000000 -123.5000 0.0000000E+00 + 1.500000 -123.5000 0.0000000E+00 + 2.500000 -123.5000 0.0000000E+00 + 3.500000 -123.5000 0.0000000E+00 + 4.500000 -123.5000 0.0000000E+00 + 5.500000 -123.5000 0.0000000E+00 + 6.500000 -123.5000 0.0000000E+00 + 7.500000 -123.5000 0.0000000E+00 + 8.500000 -123.5000 0.0000000E+00 + 9.500000 -123.5000 0.0000000E+00 + 10.50000 -123.5000 0.0000000E+00 + 11.50000 -123.5000 0.0000000E+00 + 12.50000 -123.5000 0.0000000E+00 + 13.50000 -123.5000 0.0000000E+00 + 14.50000 -123.5000 0.0000000E+00 + 15.50000 -123.5000 0.0000000E+00 + 16.50000 -123.5000 0.0000000E+00 + 17.50000 -123.5000 0.0000000E+00 + 18.50000 -123.5000 0.0000000E+00 + 19.50000 -123.5000 0.0000000E+00 + 20.50000 -123.5000 0.0000000E+00 + 21.50000 -123.5000 0.0000000E+00 + 22.50000 -123.5000 0.0000000E+00 + 23.50000 -123.5000 0.0000000E+00 + 24.50000 -123.5000 0.0000000E+00 + 25.50000 -123.5000 0.0000000E+00 + 26.50000 -123.5000 0.0000000E+00 + 27.50000 -123.5000 0.0000000E+00 + 28.50000 -123.5000 0.0000000E+00 + 29.50000 -123.5000 0.0000000E+00 + 30.50000 -123.5000 0.0000000E+00 + 31.50000 -123.5000 0.0000000E+00 + 32.50000 -123.5000 0.0000000E+00 + 33.50000 -123.5000 0.0000000E+00 + 34.50000 -123.5000 0.0000000E+00 + 35.50000 -123.5000 0.0000000E+00 + 36.50000 -123.5000 0.0000000E+00 + 37.50000 -123.5000 0.0000000E+00 + 38.50000 -123.5000 0.0000000E+00 + 39.50000 -123.5000 0.0000000E+00 + 40.50000 -123.5000 0.0000000E+00 + 41.50000 -123.5000 0.0000000E+00 + 42.50000 -123.5000 0.0000000E+00 + 43.50000 -123.5000 0.0000000E+00 + 44.50000 -123.5000 0.0000000E+00 + 45.50000 -123.5000 0.0000000E+00 + 46.50000 -123.5000 0.0000000E+00 + 47.50000 -123.5000 0.0000000E+00 + 48.50000 -123.5000 0.0000000E+00 + 49.50000 -123.5000 0.0000000E+00 + 50.50000 -123.5000 0.0000000E+00 + 51.50000 -123.5000 0.0000000E+00 + 52.50000 -123.5000 0.0000000E+00 + 53.50000 -123.5000 0.0000000E+00 + 54.50000 -123.5000 0.0000000E+00 + 55.50000 -123.5000 0.0000000E+00 + 56.50000 -123.5000 0.0000000E+00 + 57.50000 -123.5000 0.0000000E+00 + 58.50000 -123.5000 0.0000000E+00 + 59.50000 -123.5000 0.0000000E+00 + 60.50000 -123.5000 0.0000000E+00 + 61.50000 -123.5000 0.0000000E+00 + 62.50000 -123.5000 0.0000000E+00 + 63.50000 -123.5000 0.0000000E+00 + 64.50000 -123.5000 0.0000000E+00 + 65.50000 -123.5000 0.0000000E+00 + 66.50000 -123.5000 0.0000000E+00 + 67.50000 -123.5000 0.0000000E+00 + 68.50000 -123.5000 0.0000000E+00 + 69.50000 -123.5000 0.0000000E+00 + 70.50000 -123.5000 0.0000000E+00 + 71.50000 -123.5000 0.0000000E+00 + 72.50000 -123.5000 0.0000000E+00 + 73.50000 -123.5000 0.0000000E+00 + 74.50000 -123.5000 0.0000000E+00 + 75.50000 -123.5000 0.0000000E+00 + 76.50000 -123.5000 0.0000000E+00 + 77.50000 -123.5000 0.0000000E+00 + 78.50000 -123.5000 0.0000000E+00 + 79.50000 -123.5000 0.0000000E+00 + 80.50000 -123.5000 0.0000000E+00 + 81.50000 -123.5000 0.0000000E+00 + 82.50000 -123.5000 0.0000000E+00 + 83.50000 -123.5000 0.0000000E+00 + 84.50000 -123.5000 0.0000000E+00 + 85.50000 -123.5000 0.0000000E+00 + 86.50000 -123.5000 0.0000000E+00 + 87.50000 -123.5000 0.0000000E+00 + 88.50000 -123.5000 0.0000000E+00 + 89.50000 -123.5000 0.0000000E+00 + -89.50000 -122.5000 0.0000000E+00 + -88.50000 -122.5000 0.0000000E+00 + -87.50000 -122.5000 0.0000000E+00 + -86.50000 -122.5000 0.0000000E+00 + -85.50000 -122.5000 0.0000000E+00 + -84.50000 -122.5000 0.0000000E+00 + -83.50000 -122.5000 0.0000000E+00 + -82.50000 -122.5000 0.0000000E+00 + -81.50000 -122.5000 0.0000000E+00 + -80.50000 -122.5000 0.0000000E+00 + -79.50000 -122.5000 0.0000000E+00 + -78.50000 -122.5000 0.0000000E+00 + -77.50000 -122.5000 0.0000000E+00 + -76.50000 -122.5000 0.0000000E+00 + -75.50000 -122.5000 0.0000000E+00 + -74.50000 -122.5000 0.0000000E+00 + -73.50000 -122.5000 0.0000000E+00 + -72.50000 -122.5000 0.0000000E+00 + -71.50000 -122.5000 0.0000000E+00 + -70.50000 -122.5000 0.0000000E+00 + -69.50000 -122.5000 0.0000000E+00 + -68.50000 -122.5000 0.0000000E+00 + -67.50000 -122.5000 0.0000000E+00 + -66.50000 -122.5000 0.0000000E+00 + -65.50000 -122.5000 0.0000000E+00 + -64.50000 -122.5000 0.0000000E+00 + -63.50000 -122.5000 0.0000000E+00 + -62.50000 -122.5000 0.0000000E+00 + -61.50000 -122.5000 0.0000000E+00 + -60.50000 -122.5000 0.0000000E+00 + -59.50000 -122.5000 0.0000000E+00 + -58.50000 -122.5000 0.0000000E+00 + -57.50000 -122.5000 0.0000000E+00 + -56.50000 -122.5000 0.0000000E+00 + -55.50000 -122.5000 0.0000000E+00 + -54.50000 -122.5000 0.0000000E+00 + -53.50000 -122.5000 0.0000000E+00 + -52.50000 -122.5000 0.0000000E+00 + -51.50000 -122.5000 0.0000000E+00 + -50.50000 -122.5000 0.0000000E+00 + -49.50000 -122.5000 0.0000000E+00 + -48.50000 -122.5000 0.0000000E+00 + -47.50000 -122.5000 0.0000000E+00 + -46.50000 -122.5000 0.0000000E+00 + -45.50000 -122.5000 0.0000000E+00 + -44.50000 -122.5000 0.0000000E+00 + -43.50000 -122.5000 0.0000000E+00 + -42.50000 -122.5000 0.0000000E+00 + -41.50000 -122.5000 0.0000000E+00 + -40.50000 -122.5000 0.0000000E+00 + -39.50000 -122.5000 0.0000000E+00 + -38.50000 -122.5000 0.0000000E+00 + -37.50000 -122.5000 0.0000000E+00 + -36.50000 -122.5000 0.0000000E+00 + -35.50000 -122.5000 0.0000000E+00 + -34.50000 -122.5000 0.0000000E+00 + -33.50000 -122.5000 0.0000000E+00 + -32.50000 -122.5000 0.0000000E+00 + -31.50000 -122.5000 0.0000000E+00 + -30.50000 -122.5000 0.0000000E+00 + -29.50000 -122.5000 0.0000000E+00 + -28.50000 -122.5000 0.0000000E+00 + -27.50000 -122.5000 0.0000000E+00 + -26.50000 -122.5000 0.0000000E+00 + -25.50000 -122.5000 0.0000000E+00 + -24.50000 -122.5000 0.0000000E+00 + -23.50000 -122.5000 0.0000000E+00 + -22.50000 -122.5000 0.0000000E+00 + -21.50000 -122.5000 0.0000000E+00 + -20.50000 -122.5000 0.0000000E+00 + -19.50000 -122.5000 0.0000000E+00 + -18.50000 -122.5000 0.0000000E+00 + -17.50000 -122.5000 0.0000000E+00 + -16.50000 -122.5000 0.0000000E+00 + -15.50000 -122.5000 0.0000000E+00 + -14.50000 -122.5000 0.0000000E+00 + -13.50000 -122.5000 0.0000000E+00 + -12.50000 -122.5000 0.0000000E+00 + -11.50000 -122.5000 0.0000000E+00 + -10.50000 -122.5000 0.0000000E+00 + -9.500000 -122.5000 0.0000000E+00 + -8.500000 -122.5000 0.0000000E+00 + -7.500000 -122.5000 0.0000000E+00 + -6.500000 -122.5000 0.0000000E+00 + -5.500000 -122.5000 0.0000000E+00 + -4.500000 -122.5000 0.0000000E+00 + -3.500000 -122.5000 0.0000000E+00 + -2.500000 -122.5000 0.0000000E+00 + -1.500000 -122.5000 0.0000000E+00 + -0.5000000 -122.5000 0.0000000E+00 + 0.5000000 -122.5000 0.0000000E+00 + 1.500000 -122.5000 0.0000000E+00 + 2.500000 -122.5000 0.0000000E+00 + 3.500000 -122.5000 0.0000000E+00 + 4.500000 -122.5000 0.0000000E+00 + 5.500000 -122.5000 0.0000000E+00 + 6.500000 -122.5000 0.0000000E+00 + 7.500000 -122.5000 0.0000000E+00 + 8.500000 -122.5000 0.0000000E+00 + 9.500000 -122.5000 0.0000000E+00 + 10.50000 -122.5000 0.0000000E+00 + 11.50000 -122.5000 0.0000000E+00 + 12.50000 -122.5000 0.0000000E+00 + 13.50000 -122.5000 0.0000000E+00 + 14.50000 -122.5000 0.0000000E+00 + 15.50000 -122.5000 0.0000000E+00 + 16.50000 -122.5000 0.0000000E+00 + 17.50000 -122.5000 0.0000000E+00 + 18.50000 -122.5000 0.0000000E+00 + 19.50000 -122.5000 0.0000000E+00 + 20.50000 -122.5000 0.0000000E+00 + 21.50000 -122.5000 0.0000000E+00 + 22.50000 -122.5000 0.0000000E+00 + 23.50000 -122.5000 0.0000000E+00 + 24.50000 -122.5000 0.0000000E+00 + 25.50000 -122.5000 0.0000000E+00 + 26.50000 -122.5000 0.0000000E+00 + 27.50000 -122.5000 0.0000000E+00 + 28.50000 -122.5000 0.0000000E+00 + 29.50000 -122.5000 0.0000000E+00 + 30.50000 -122.5000 0.0000000E+00 + 31.50000 -122.5000 0.0000000E+00 + 32.50000 -122.5000 0.0000000E+00 + 33.50000 -122.5000 0.0000000E+00 + 34.50000 -122.5000 0.0000000E+00 + 35.50000 -122.5000 0.0000000E+00 + 36.50000 -122.5000 0.0000000E+00 + 37.50000 -122.5000 0.0000000E+00 + 38.50000 -122.5000 0.0000000E+00 + 39.50000 -122.5000 0.0000000E+00 + 40.50000 -122.5000 0.0000000E+00 + 41.50000 -122.5000 0.0000000E+00 + 42.50000 -122.5000 0.0000000E+00 + 43.50000 -122.5000 0.0000000E+00 + 44.50000 -122.5000 0.0000000E+00 + 45.50000 -122.5000 0.0000000E+00 + 46.50000 -122.5000 0.0000000E+00 + 47.50000 -122.5000 0.0000000E+00 + 48.50000 -122.5000 0.0000000E+00 + 49.50000 -122.5000 0.0000000E+00 + 50.50000 -122.5000 0.0000000E+00 + 51.50000 -122.5000 0.0000000E+00 + 52.50000 -122.5000 0.0000000E+00 + 53.50000 -122.5000 0.0000000E+00 + 54.50000 -122.5000 0.0000000E+00 + 55.50000 -122.5000 0.0000000E+00 + 56.50000 -122.5000 0.0000000E+00 + 57.50000 -122.5000 0.0000000E+00 + 58.50000 -122.5000 0.0000000E+00 + 59.50000 -122.5000 0.0000000E+00 + 60.50000 -122.5000 0.0000000E+00 + 61.50000 -122.5000 0.0000000E+00 + 62.50000 -122.5000 0.0000000E+00 + 63.50000 -122.5000 0.0000000E+00 + 64.50000 -122.5000 0.0000000E+00 + 65.50000 -122.5000 0.0000000E+00 + 66.50000 -122.5000 0.0000000E+00 + 67.50000 -122.5000 0.0000000E+00 + 68.50000 -122.5000 0.0000000E+00 + 69.50000 -122.5000 0.0000000E+00 + 70.50000 -122.5000 0.0000000E+00 + 71.50000 -122.5000 0.0000000E+00 + 72.50000 -122.5000 0.0000000E+00 + 73.50000 -122.5000 0.0000000E+00 + 74.50000 -122.5000 0.0000000E+00 + 75.50000 -122.5000 0.0000000E+00 + 76.50000 -122.5000 0.0000000E+00 + 77.50000 -122.5000 0.0000000E+00 + 78.50000 -122.5000 0.0000000E+00 + 79.50000 -122.5000 0.0000000E+00 + 80.50000 -122.5000 0.0000000E+00 + 81.50000 -122.5000 0.0000000E+00 + 82.50000 -122.5000 0.0000000E+00 + 83.50000 -122.5000 0.0000000E+00 + 84.50000 -122.5000 0.0000000E+00 + 85.50000 -122.5000 0.0000000E+00 + 86.50000 -122.5000 0.0000000E+00 + 87.50000 -122.5000 0.0000000E+00 + 88.50000 -122.5000 0.0000000E+00 + 89.50000 -122.5000 0.0000000E+00 + -89.50000 -121.5000 0.0000000E+00 + -88.50000 -121.5000 0.0000000E+00 + -87.50000 -121.5000 0.0000000E+00 + -86.50000 -121.5000 0.0000000E+00 + -85.50000 -121.5000 0.0000000E+00 + -84.50000 -121.5000 0.0000000E+00 + -83.50000 -121.5000 0.0000000E+00 + -82.50000 -121.5000 0.0000000E+00 + -81.50000 -121.5000 0.0000000E+00 + -80.50000 -121.5000 0.0000000E+00 + -79.50000 -121.5000 0.0000000E+00 + -78.50000 -121.5000 0.0000000E+00 + -77.50000 -121.5000 0.0000000E+00 + -76.50000 -121.5000 0.0000000E+00 + -75.50000 -121.5000 0.0000000E+00 + -74.50000 -121.5000 0.0000000E+00 + -73.50000 -121.5000 0.0000000E+00 + -72.50000 -121.5000 0.0000000E+00 + -71.50000 -121.5000 0.0000000E+00 + -70.50000 -121.5000 0.0000000E+00 + -69.50000 -121.5000 0.0000000E+00 + -68.50000 -121.5000 0.0000000E+00 + -67.50000 -121.5000 0.0000000E+00 + -66.50000 -121.5000 0.0000000E+00 + -65.50000 -121.5000 0.0000000E+00 + -64.50000 -121.5000 0.0000000E+00 + -63.50000 -121.5000 0.0000000E+00 + -62.50000 -121.5000 0.0000000E+00 + -61.50000 -121.5000 0.0000000E+00 + -60.50000 -121.5000 0.0000000E+00 + -59.50000 -121.5000 0.0000000E+00 + -58.50000 -121.5000 0.0000000E+00 + -57.50000 -121.5000 0.0000000E+00 + -56.50000 -121.5000 0.0000000E+00 + -55.50000 -121.5000 0.0000000E+00 + -54.50000 -121.5000 0.0000000E+00 + -53.50000 -121.5000 0.0000000E+00 + -52.50000 -121.5000 0.0000000E+00 + -51.50000 -121.5000 0.0000000E+00 + -50.50000 -121.5000 0.0000000E+00 + -49.50000 -121.5000 0.0000000E+00 + -48.50000 -121.5000 0.0000000E+00 + -47.50000 -121.5000 0.0000000E+00 + -46.50000 -121.5000 0.0000000E+00 + -45.50000 -121.5000 0.0000000E+00 + -44.50000 -121.5000 0.0000000E+00 + -43.50000 -121.5000 0.0000000E+00 + -42.50000 -121.5000 0.0000000E+00 + -41.50000 -121.5000 0.0000000E+00 + -40.50000 -121.5000 0.0000000E+00 + -39.50000 -121.5000 0.0000000E+00 + -38.50000 -121.5000 0.0000000E+00 + -37.50000 -121.5000 0.0000000E+00 + -36.50000 -121.5000 0.0000000E+00 + -35.50000 -121.5000 0.0000000E+00 + -34.50000 -121.5000 0.0000000E+00 + -33.50000 -121.5000 0.0000000E+00 + -32.50000 -121.5000 0.0000000E+00 + -31.50000 -121.5000 0.0000000E+00 + -30.50000 -121.5000 0.0000000E+00 + -29.50000 -121.5000 0.0000000E+00 + -28.50000 -121.5000 0.0000000E+00 + -27.50000 -121.5000 0.0000000E+00 + -26.50000 -121.5000 0.0000000E+00 + -25.50000 -121.5000 0.0000000E+00 + -24.50000 -121.5000 0.0000000E+00 + -23.50000 -121.5000 0.0000000E+00 + -22.50000 -121.5000 0.0000000E+00 + -21.50000 -121.5000 0.0000000E+00 + -20.50000 -121.5000 0.0000000E+00 + -19.50000 -121.5000 0.0000000E+00 + -18.50000 -121.5000 0.0000000E+00 + -17.50000 -121.5000 0.0000000E+00 + -16.50000 -121.5000 0.0000000E+00 + -15.50000 -121.5000 0.0000000E+00 + -14.50000 -121.5000 0.0000000E+00 + -13.50000 -121.5000 0.0000000E+00 + -12.50000 -121.5000 0.0000000E+00 + -11.50000 -121.5000 0.0000000E+00 + -10.50000 -121.5000 0.0000000E+00 + -9.500000 -121.5000 0.0000000E+00 + -8.500000 -121.5000 0.0000000E+00 + -7.500000 -121.5000 0.0000000E+00 + -6.500000 -121.5000 0.0000000E+00 + -5.500000 -121.5000 0.0000000E+00 + -4.500000 -121.5000 0.0000000E+00 + -3.500000 -121.5000 0.0000000E+00 + -2.500000 -121.5000 0.0000000E+00 + -1.500000 -121.5000 0.0000000E+00 + -0.5000000 -121.5000 0.0000000E+00 + 0.5000000 -121.5000 0.0000000E+00 + 1.500000 -121.5000 0.0000000E+00 + 2.500000 -121.5000 0.0000000E+00 + 3.500000 -121.5000 0.0000000E+00 + 4.500000 -121.5000 0.0000000E+00 + 5.500000 -121.5000 0.0000000E+00 + 6.500000 -121.5000 0.0000000E+00 + 7.500000 -121.5000 0.0000000E+00 + 8.500000 -121.5000 0.0000000E+00 + 9.500000 -121.5000 0.0000000E+00 + 10.50000 -121.5000 0.0000000E+00 + 11.50000 -121.5000 0.0000000E+00 + 12.50000 -121.5000 0.0000000E+00 + 13.50000 -121.5000 0.0000000E+00 + 14.50000 -121.5000 0.0000000E+00 + 15.50000 -121.5000 0.0000000E+00 + 16.50000 -121.5000 0.0000000E+00 + 17.50000 -121.5000 0.0000000E+00 + 18.50000 -121.5000 0.0000000E+00 + 19.50000 -121.5000 0.0000000E+00 + 20.50000 -121.5000 0.0000000E+00 + 21.50000 -121.5000 0.0000000E+00 + 22.50000 -121.5000 0.0000000E+00 + 23.50000 -121.5000 0.0000000E+00 + 24.50000 -121.5000 0.0000000E+00 + 25.50000 -121.5000 0.0000000E+00 + 26.50000 -121.5000 0.0000000E+00 + 27.50000 -121.5000 0.0000000E+00 + 28.50000 -121.5000 0.0000000E+00 + 29.50000 -121.5000 0.0000000E+00 + 30.50000 -121.5000 0.0000000E+00 + 31.50000 -121.5000 0.0000000E+00 + 32.50000 -121.5000 0.0000000E+00 + 33.50000 -121.5000 0.0000000E+00 + 34.50000 -121.5000 0.0000000E+00 + 35.50000 -121.5000 0.0000000E+00 + 36.50000 -121.5000 0.0000000E+00 + 37.50000 -121.5000 0.0000000E+00 + 38.50000 -121.5000 0.0000000E+00 + 39.50000 -121.5000 0.0000000E+00 + 40.50000 -121.5000 0.0000000E+00 + 41.50000 -121.5000 0.0000000E+00 + 42.50000 -121.5000 0.0000000E+00 + 43.50000 -121.5000 3.6538534E-03 + 44.50000 -121.5000 0.0000000E+00 + 45.50000 -121.5000 0.0000000E+00 + 46.50000 -121.5000 0.0000000E+00 + 47.50000 -121.5000 0.0000000E+00 + 48.50000 -121.5000 0.0000000E+00 + 49.50000 -121.5000 0.0000000E+00 + 50.50000 -121.5000 0.0000000E+00 + 51.50000 -121.5000 0.0000000E+00 + 52.50000 -121.5000 0.0000000E+00 + 53.50000 -121.5000 0.0000000E+00 + 54.50000 -121.5000 0.0000000E+00 + 55.50000 -121.5000 0.0000000E+00 + 56.50000 -121.5000 0.0000000E+00 + 57.50000 -121.5000 0.0000000E+00 + 58.50000 -121.5000 0.0000000E+00 + 59.50000 -121.5000 0.0000000E+00 + 60.50000 -121.5000 0.0000000E+00 + 61.50000 -121.5000 0.0000000E+00 + 62.50000 -121.5000 0.0000000E+00 + 63.50000 -121.5000 0.0000000E+00 + 64.50000 -121.5000 0.0000000E+00 + 65.50000 -121.5000 0.0000000E+00 + 66.50000 -121.5000 0.0000000E+00 + 67.50000 -121.5000 0.0000000E+00 + 68.50000 -121.5000 0.0000000E+00 + 69.50000 -121.5000 0.0000000E+00 + 70.50000 -121.5000 0.0000000E+00 + 71.50000 -121.5000 0.0000000E+00 + 72.50000 -121.5000 0.0000000E+00 + 73.50000 -121.5000 0.0000000E+00 + 74.50000 -121.5000 0.0000000E+00 + 75.50000 -121.5000 0.0000000E+00 + 76.50000 -121.5000 0.0000000E+00 + 77.50000 -121.5000 0.0000000E+00 + 78.50000 -121.5000 0.0000000E+00 + 79.50000 -121.5000 0.0000000E+00 + 80.50000 -121.5000 0.0000000E+00 + 81.50000 -121.5000 0.0000000E+00 + 82.50000 -121.5000 0.0000000E+00 + 83.50000 -121.5000 0.0000000E+00 + 84.50000 -121.5000 0.0000000E+00 + 85.50000 -121.5000 0.0000000E+00 + 86.50000 -121.5000 0.0000000E+00 + 87.50000 -121.5000 0.0000000E+00 + 88.50000 -121.5000 0.0000000E+00 + 89.50000 -121.5000 0.0000000E+00 + -89.50000 -120.5000 0.0000000E+00 + -88.50000 -120.5000 0.0000000E+00 + -87.50000 -120.5000 0.0000000E+00 + -86.50000 -120.5000 0.0000000E+00 + -85.50000 -120.5000 0.0000000E+00 + -84.50000 -120.5000 0.0000000E+00 + -83.50000 -120.5000 0.0000000E+00 + -82.50000 -120.5000 0.0000000E+00 + -81.50000 -120.5000 0.0000000E+00 + -80.50000 -120.5000 0.0000000E+00 + -79.50000 -120.5000 0.0000000E+00 + -78.50000 -120.5000 0.0000000E+00 + -77.50000 -120.5000 0.0000000E+00 + -76.50000 -120.5000 0.0000000E+00 + -75.50000 -120.5000 0.0000000E+00 + -74.50000 -120.5000 0.0000000E+00 + -73.50000 -120.5000 0.0000000E+00 + -72.50000 -120.5000 0.0000000E+00 + -71.50000 -120.5000 0.0000000E+00 + -70.50000 -120.5000 0.0000000E+00 + -69.50000 -120.5000 0.0000000E+00 + -68.50000 -120.5000 0.0000000E+00 + -67.50000 -120.5000 0.0000000E+00 + -66.50000 -120.5000 0.0000000E+00 + -65.50000 -120.5000 0.0000000E+00 + -64.50000 -120.5000 0.0000000E+00 + -63.50000 -120.5000 0.0000000E+00 + -62.50000 -120.5000 0.0000000E+00 + -61.50000 -120.5000 0.0000000E+00 + -60.50000 -120.5000 0.0000000E+00 + -59.50000 -120.5000 0.0000000E+00 + -58.50000 -120.5000 0.0000000E+00 + -57.50000 -120.5000 0.0000000E+00 + -56.50000 -120.5000 0.0000000E+00 + -55.50000 -120.5000 0.0000000E+00 + -54.50000 -120.5000 0.0000000E+00 + -53.50000 -120.5000 0.0000000E+00 + -52.50000 -120.5000 0.0000000E+00 + -51.50000 -120.5000 0.0000000E+00 + -50.50000 -120.5000 0.0000000E+00 + -49.50000 -120.5000 0.0000000E+00 + -48.50000 -120.5000 0.0000000E+00 + -47.50000 -120.5000 0.0000000E+00 + -46.50000 -120.5000 0.0000000E+00 + -45.50000 -120.5000 0.0000000E+00 + -44.50000 -120.5000 0.0000000E+00 + -43.50000 -120.5000 0.0000000E+00 + -42.50000 -120.5000 0.0000000E+00 + -41.50000 -120.5000 0.0000000E+00 + -40.50000 -120.5000 0.0000000E+00 + -39.50000 -120.5000 0.0000000E+00 + -38.50000 -120.5000 0.0000000E+00 + -37.50000 -120.5000 0.0000000E+00 + -36.50000 -120.5000 0.0000000E+00 + -35.50000 -120.5000 0.0000000E+00 + -34.50000 -120.5000 0.0000000E+00 + -33.50000 -120.5000 0.0000000E+00 + -32.50000 -120.5000 0.0000000E+00 + -31.50000 -120.5000 0.0000000E+00 + -30.50000 -120.5000 0.0000000E+00 + -29.50000 -120.5000 0.0000000E+00 + -28.50000 -120.5000 0.0000000E+00 + -27.50000 -120.5000 0.0000000E+00 + -26.50000 -120.5000 0.0000000E+00 + -25.50000 -120.5000 0.0000000E+00 + -24.50000 -120.5000 0.0000000E+00 + -23.50000 -120.5000 0.0000000E+00 + -22.50000 -120.5000 0.0000000E+00 + -21.50000 -120.5000 0.0000000E+00 + -20.50000 -120.5000 0.0000000E+00 + -19.50000 -120.5000 0.0000000E+00 + -18.50000 -120.5000 0.0000000E+00 + -17.50000 -120.5000 0.0000000E+00 + -16.50000 -120.5000 0.0000000E+00 + -15.50000 -120.5000 0.0000000E+00 + -14.50000 -120.5000 0.0000000E+00 + -13.50000 -120.5000 0.0000000E+00 + -12.50000 -120.5000 0.0000000E+00 + -11.50000 -120.5000 0.0000000E+00 + -10.50000 -120.5000 0.0000000E+00 + -9.500000 -120.5000 0.0000000E+00 + -8.500000 -120.5000 0.0000000E+00 + -7.500000 -120.5000 0.0000000E+00 + -6.500000 -120.5000 0.0000000E+00 + -5.500000 -120.5000 0.0000000E+00 + -4.500000 -120.5000 0.0000000E+00 + -3.500000 -120.5000 0.0000000E+00 + -2.500000 -120.5000 0.0000000E+00 + -1.500000 -120.5000 0.0000000E+00 + -0.5000000 -120.5000 0.0000000E+00 + 0.5000000 -120.5000 0.0000000E+00 + 1.500000 -120.5000 0.0000000E+00 + 2.500000 -120.5000 0.0000000E+00 + 3.500000 -120.5000 0.0000000E+00 + 4.500000 -120.5000 0.0000000E+00 + 5.500000 -120.5000 0.0000000E+00 + 6.500000 -120.5000 0.0000000E+00 + 7.500000 -120.5000 0.0000000E+00 + 8.500000 -120.5000 0.0000000E+00 + 9.500000 -120.5000 0.0000000E+00 + 10.50000 -120.5000 0.0000000E+00 + 11.50000 -120.5000 0.0000000E+00 + 12.50000 -120.5000 0.0000000E+00 + 13.50000 -120.5000 0.0000000E+00 + 14.50000 -120.5000 0.0000000E+00 + 15.50000 -120.5000 0.0000000E+00 + 16.50000 -120.5000 0.0000000E+00 + 17.50000 -120.5000 0.0000000E+00 + 18.50000 -120.5000 0.0000000E+00 + 19.50000 -120.5000 0.0000000E+00 + 20.50000 -120.5000 0.0000000E+00 + 21.50000 -120.5000 0.0000000E+00 + 22.50000 -120.5000 0.0000000E+00 + 23.50000 -120.5000 0.0000000E+00 + 24.50000 -120.5000 0.0000000E+00 + 25.50000 -120.5000 0.0000000E+00 + 26.50000 -120.5000 0.0000000E+00 + 27.50000 -120.5000 0.0000000E+00 + 28.50000 -120.5000 0.0000000E+00 + 29.50000 -120.5000 0.0000000E+00 + 30.50000 -120.5000 0.0000000E+00 + 31.50000 -120.5000 0.0000000E+00 + 32.50000 -120.5000 0.0000000E+00 + 33.50000 -120.5000 0.0000000E+00 + 34.50000 -120.5000 0.0000000E+00 + 35.50000 -120.5000 0.0000000E+00 + 36.50000 -120.5000 0.0000000E+00 + 37.50000 -120.5000 0.0000000E+00 + 38.50000 -120.5000 0.0000000E+00 + 39.50000 -120.5000 0.0000000E+00 + 40.50000 -120.5000 0.0000000E+00 + 41.50000 -120.5000 0.0000000E+00 + 42.50000 -120.5000 0.0000000E+00 + 43.50000 -120.5000 3.6538534E-03 + 44.50000 -120.5000 0.0000000E+00 + 45.50000 -120.5000 0.0000000E+00 + 46.50000 -120.5000 0.0000000E+00 + 47.50000 -120.5000 0.0000000E+00 + 48.50000 -120.5000 0.0000000E+00 + 49.50000 -120.5000 0.0000000E+00 + 50.50000 -120.5000 0.0000000E+00 + 51.50000 -120.5000 0.0000000E+00 + 52.50000 -120.5000 0.0000000E+00 + 53.50000 -120.5000 0.0000000E+00 + 54.50000 -120.5000 0.0000000E+00 + 55.50000 -120.5000 0.0000000E+00 + 56.50000 -120.5000 0.0000000E+00 + 57.50000 -120.5000 0.0000000E+00 + 58.50000 -120.5000 0.0000000E+00 + 59.50000 -120.5000 0.0000000E+00 + 60.50000 -120.5000 0.0000000E+00 + 61.50000 -120.5000 0.0000000E+00 + 62.50000 -120.5000 0.0000000E+00 + 63.50000 -120.5000 0.0000000E+00 + 64.50000 -120.5000 0.0000000E+00 + 65.50000 -120.5000 0.0000000E+00 + 66.50000 -120.5000 0.0000000E+00 + 67.50000 -120.5000 0.0000000E+00 + 68.50000 -120.5000 0.0000000E+00 + 69.50000 -120.5000 0.0000000E+00 + 70.50000 -120.5000 0.0000000E+00 + 71.50000 -120.5000 0.0000000E+00 + 72.50000 -120.5000 0.0000000E+00 + 73.50000 -120.5000 0.0000000E+00 + 74.50000 -120.5000 0.0000000E+00 + 75.50000 -120.5000 0.0000000E+00 + 76.50000 -120.5000 0.0000000E+00 + 77.50000 -120.5000 0.0000000E+00 + 78.50000 -120.5000 0.0000000E+00 + 79.50000 -120.5000 0.0000000E+00 + 80.50000 -120.5000 0.0000000E+00 + 81.50000 -120.5000 0.0000000E+00 + 82.50000 -120.5000 0.0000000E+00 + 83.50000 -120.5000 0.0000000E+00 + 84.50000 -120.5000 0.0000000E+00 + 85.50000 -120.5000 0.0000000E+00 + 86.50000 -120.5000 0.0000000E+00 + 87.50000 -120.5000 0.0000000E+00 + 88.50000 -120.5000 0.0000000E+00 + 89.50000 -120.5000 0.0000000E+00 + -89.50000 -119.5000 0.0000000E+00 + -88.50000 -119.5000 0.0000000E+00 + -87.50000 -119.5000 0.0000000E+00 + -86.50000 -119.5000 0.0000000E+00 + -85.50000 -119.5000 0.0000000E+00 + -84.50000 -119.5000 0.0000000E+00 + -83.50000 -119.5000 0.0000000E+00 + -82.50000 -119.5000 0.0000000E+00 + -81.50000 -119.5000 0.0000000E+00 + -80.50000 -119.5000 0.0000000E+00 + -79.50000 -119.5000 0.0000000E+00 + -78.50000 -119.5000 0.0000000E+00 + -77.50000 -119.5000 0.0000000E+00 + -76.50000 -119.5000 0.0000000E+00 + -75.50000 -119.5000 0.0000000E+00 + -74.50000 -119.5000 0.0000000E+00 + -73.50000 -119.5000 0.0000000E+00 + -72.50000 -119.5000 0.0000000E+00 + -71.50000 -119.5000 0.0000000E+00 + -70.50000 -119.5000 0.0000000E+00 + -69.50000 -119.5000 0.0000000E+00 + -68.50000 -119.5000 0.0000000E+00 + -67.50000 -119.5000 0.0000000E+00 + -66.50000 -119.5000 0.0000000E+00 + -65.50000 -119.5000 0.0000000E+00 + -64.50000 -119.5000 0.0000000E+00 + -63.50000 -119.5000 0.0000000E+00 + -62.50000 -119.5000 0.0000000E+00 + -61.50000 -119.5000 0.0000000E+00 + -60.50000 -119.5000 0.0000000E+00 + -59.50000 -119.5000 0.0000000E+00 + -58.50000 -119.5000 0.0000000E+00 + -57.50000 -119.5000 0.0000000E+00 + -56.50000 -119.5000 0.0000000E+00 + -55.50000 -119.5000 0.0000000E+00 + -54.50000 -119.5000 0.0000000E+00 + -53.50000 -119.5000 0.0000000E+00 + -52.50000 -119.5000 0.0000000E+00 + -51.50000 -119.5000 0.0000000E+00 + -50.50000 -119.5000 0.0000000E+00 + -49.50000 -119.5000 0.0000000E+00 + -48.50000 -119.5000 0.0000000E+00 + -47.50000 -119.5000 0.0000000E+00 + -46.50000 -119.5000 0.0000000E+00 + -45.50000 -119.5000 0.0000000E+00 + -44.50000 -119.5000 0.0000000E+00 + -43.50000 -119.5000 0.0000000E+00 + -42.50000 -119.5000 0.0000000E+00 + -41.50000 -119.5000 0.0000000E+00 + -40.50000 -119.5000 0.0000000E+00 + -39.50000 -119.5000 0.0000000E+00 + -38.50000 -119.5000 0.0000000E+00 + -37.50000 -119.5000 0.0000000E+00 + -36.50000 -119.5000 0.0000000E+00 + -35.50000 -119.5000 0.0000000E+00 + -34.50000 -119.5000 0.0000000E+00 + -33.50000 -119.5000 0.0000000E+00 + -32.50000 -119.5000 0.0000000E+00 + -31.50000 -119.5000 0.0000000E+00 + -30.50000 -119.5000 0.0000000E+00 + -29.50000 -119.5000 0.0000000E+00 + -28.50000 -119.5000 0.0000000E+00 + -27.50000 -119.5000 0.0000000E+00 + -26.50000 -119.5000 0.0000000E+00 + -25.50000 -119.5000 0.0000000E+00 + -24.50000 -119.5000 0.0000000E+00 + -23.50000 -119.5000 0.0000000E+00 + -22.50000 -119.5000 0.0000000E+00 + -21.50000 -119.5000 0.0000000E+00 + -20.50000 -119.5000 0.0000000E+00 + -19.50000 -119.5000 0.0000000E+00 + -18.50000 -119.5000 0.0000000E+00 + -17.50000 -119.5000 0.0000000E+00 + -16.50000 -119.5000 0.0000000E+00 + -15.50000 -119.5000 0.0000000E+00 + -14.50000 -119.5000 0.0000000E+00 + -13.50000 -119.5000 0.0000000E+00 + -12.50000 -119.5000 0.0000000E+00 + -11.50000 -119.5000 0.0000000E+00 + -10.50000 -119.5000 0.0000000E+00 + -9.500000 -119.5000 0.0000000E+00 + -8.500000 -119.5000 0.0000000E+00 + -7.500000 -119.5000 0.0000000E+00 + -6.500000 -119.5000 0.0000000E+00 + -5.500000 -119.5000 0.0000000E+00 + -4.500000 -119.5000 0.0000000E+00 + -3.500000 -119.5000 0.0000000E+00 + -2.500000 -119.5000 0.0000000E+00 + -1.500000 -119.5000 0.0000000E+00 + -0.5000000 -119.5000 0.0000000E+00 + 0.5000000 -119.5000 0.0000000E+00 + 1.500000 -119.5000 0.0000000E+00 + 2.500000 -119.5000 0.0000000E+00 + 3.500000 -119.5000 0.0000000E+00 + 4.500000 -119.5000 0.0000000E+00 + 5.500000 -119.5000 0.0000000E+00 + 6.500000 -119.5000 0.0000000E+00 + 7.500000 -119.5000 0.0000000E+00 + 8.500000 -119.5000 0.0000000E+00 + 9.500000 -119.5000 0.0000000E+00 + 10.50000 -119.5000 0.0000000E+00 + 11.50000 -119.5000 0.0000000E+00 + 12.50000 -119.5000 0.0000000E+00 + 13.50000 -119.5000 0.0000000E+00 + 14.50000 -119.5000 0.0000000E+00 + 15.50000 -119.5000 0.0000000E+00 + 16.50000 -119.5000 0.0000000E+00 + 17.50000 -119.5000 0.0000000E+00 + 18.50000 -119.5000 0.0000000E+00 + 19.50000 -119.5000 0.0000000E+00 + 20.50000 -119.5000 0.0000000E+00 + 21.50000 -119.5000 0.0000000E+00 + 22.50000 -119.5000 0.0000000E+00 + 23.50000 -119.5000 0.0000000E+00 + 24.50000 -119.5000 0.0000000E+00 + 25.50000 -119.5000 0.0000000E+00 + 26.50000 -119.5000 0.0000000E+00 + 27.50000 -119.5000 0.0000000E+00 + 28.50000 -119.5000 0.0000000E+00 + 29.50000 -119.5000 0.0000000E+00 + 30.50000 -119.5000 0.0000000E+00 + 31.50000 -119.5000 0.0000000E+00 + 32.50000 -119.5000 0.0000000E+00 + 33.50000 -119.5000 0.0000000E+00 + 34.50000 -119.5000 0.0000000E+00 + 35.50000 -119.5000 0.0000000E+00 + 36.50000 -119.5000 0.0000000E+00 + 37.50000 -119.5000 0.0000000E+00 + 38.50000 -119.5000 0.0000000E+00 + 39.50000 -119.5000 3.4845853E-04 + 40.50000 -119.5000 2.6461079E-03 + 41.50000 -119.5000 1.1418292E-04 + 42.50000 -119.5000 1.2938025E-03 + 43.50000 -119.5000 0.0000000E+00 + 44.50000 -119.5000 0.0000000E+00 + 45.50000 -119.5000 0.0000000E+00 + 46.50000 -119.5000 0.0000000E+00 + 47.50000 -119.5000 0.0000000E+00 + 48.50000 -119.5000 0.0000000E+00 + 49.50000 -119.5000 0.0000000E+00 + 50.50000 -119.5000 0.0000000E+00 + 51.50000 -119.5000 0.0000000E+00 + 52.50000 -119.5000 0.0000000E+00 + 53.50000 -119.5000 0.0000000E+00 + 54.50000 -119.5000 0.0000000E+00 + 55.50000 -119.5000 0.0000000E+00 + 56.50000 -119.5000 0.0000000E+00 + 57.50000 -119.5000 0.0000000E+00 + 58.50000 -119.5000 0.0000000E+00 + 59.50000 -119.5000 0.0000000E+00 + 60.50000 -119.5000 0.0000000E+00 + 61.50000 -119.5000 0.0000000E+00 + 62.50000 -119.5000 0.0000000E+00 + 63.50000 -119.5000 0.0000000E+00 + 64.50000 -119.5000 0.0000000E+00 + 65.50000 -119.5000 0.0000000E+00 + 66.50000 -119.5000 0.0000000E+00 + 67.50000 -119.5000 0.0000000E+00 + 68.50000 -119.5000 0.0000000E+00 + 69.50000 -119.5000 0.0000000E+00 + 70.50000 -119.5000 0.0000000E+00 + 71.50000 -119.5000 0.0000000E+00 + 72.50000 -119.5000 0.0000000E+00 + 73.50000 -119.5000 0.0000000E+00 + 74.50000 -119.5000 0.0000000E+00 + 75.50000 -119.5000 0.0000000E+00 + 76.50000 -119.5000 0.0000000E+00 + 77.50000 -119.5000 0.0000000E+00 + 78.50000 -119.5000 0.0000000E+00 + 79.50000 -119.5000 0.0000000E+00 + 80.50000 -119.5000 0.0000000E+00 + 81.50000 -119.5000 0.0000000E+00 + 82.50000 -119.5000 0.0000000E+00 + 83.50000 -119.5000 0.0000000E+00 + 84.50000 -119.5000 0.0000000E+00 + 85.50000 -119.5000 0.0000000E+00 + 86.50000 -119.5000 0.0000000E+00 + 87.50000 -119.5000 0.0000000E+00 + 88.50000 -119.5000 0.0000000E+00 + 89.50000 -119.5000 0.0000000E+00 + -89.50000 -118.5000 0.0000000E+00 + -88.50000 -118.5000 0.0000000E+00 + -87.50000 -118.5000 0.0000000E+00 + -86.50000 -118.5000 0.0000000E+00 + -85.50000 -118.5000 0.0000000E+00 + -84.50000 -118.5000 0.0000000E+00 + -83.50000 -118.5000 0.0000000E+00 + -82.50000 -118.5000 0.0000000E+00 + -81.50000 -118.5000 0.0000000E+00 + -80.50000 -118.5000 0.0000000E+00 + -79.50000 -118.5000 0.0000000E+00 + -78.50000 -118.5000 0.0000000E+00 + -77.50000 -118.5000 0.0000000E+00 + -76.50000 -118.5000 0.0000000E+00 + -75.50000 -118.5000 0.0000000E+00 + -74.50000 -118.5000 0.0000000E+00 + -73.50000 -118.5000 0.0000000E+00 + -72.50000 -118.5000 0.0000000E+00 + -71.50000 -118.5000 0.0000000E+00 + -70.50000 -118.5000 0.0000000E+00 + -69.50000 -118.5000 0.0000000E+00 + -68.50000 -118.5000 0.0000000E+00 + -67.50000 -118.5000 0.0000000E+00 + -66.50000 -118.5000 0.0000000E+00 + -65.50000 -118.5000 0.0000000E+00 + -64.50000 -118.5000 0.0000000E+00 + -63.50000 -118.5000 0.0000000E+00 + -62.50000 -118.5000 0.0000000E+00 + -61.50000 -118.5000 0.0000000E+00 + -60.50000 -118.5000 0.0000000E+00 + -59.50000 -118.5000 0.0000000E+00 + -58.50000 -118.5000 0.0000000E+00 + -57.50000 -118.5000 0.0000000E+00 + -56.50000 -118.5000 0.0000000E+00 + -55.50000 -118.5000 0.0000000E+00 + -54.50000 -118.5000 0.0000000E+00 + -53.50000 -118.5000 0.0000000E+00 + -52.50000 -118.5000 0.0000000E+00 + -51.50000 -118.5000 0.0000000E+00 + -50.50000 -118.5000 0.0000000E+00 + -49.50000 -118.5000 0.0000000E+00 + -48.50000 -118.5000 0.0000000E+00 + -47.50000 -118.5000 0.0000000E+00 + -46.50000 -118.5000 0.0000000E+00 + -45.50000 -118.5000 0.0000000E+00 + -44.50000 -118.5000 0.0000000E+00 + -43.50000 -118.5000 0.0000000E+00 + -42.50000 -118.5000 0.0000000E+00 + -41.50000 -118.5000 0.0000000E+00 + -40.50000 -118.5000 0.0000000E+00 + -39.50000 -118.5000 0.0000000E+00 + -38.50000 -118.5000 0.0000000E+00 + -37.50000 -118.5000 0.0000000E+00 + -36.50000 -118.5000 0.0000000E+00 + -35.50000 -118.5000 0.0000000E+00 + -34.50000 -118.5000 0.0000000E+00 + -33.50000 -118.5000 0.0000000E+00 + -32.50000 -118.5000 0.0000000E+00 + -31.50000 -118.5000 0.0000000E+00 + -30.50000 -118.5000 0.0000000E+00 + -29.50000 -118.5000 0.0000000E+00 + -28.50000 -118.5000 0.0000000E+00 + -27.50000 -118.5000 0.0000000E+00 + -26.50000 -118.5000 0.0000000E+00 + -25.50000 -118.5000 0.0000000E+00 + -24.50000 -118.5000 0.0000000E+00 + -23.50000 -118.5000 0.0000000E+00 + -22.50000 -118.5000 0.0000000E+00 + -21.50000 -118.5000 0.0000000E+00 + -20.50000 -118.5000 0.0000000E+00 + -19.50000 -118.5000 0.0000000E+00 + -18.50000 -118.5000 0.0000000E+00 + -17.50000 -118.5000 0.0000000E+00 + -16.50000 -118.5000 0.0000000E+00 + -15.50000 -118.5000 0.0000000E+00 + -14.50000 -118.5000 0.0000000E+00 + -13.50000 -118.5000 0.0000000E+00 + -12.50000 -118.5000 0.0000000E+00 + -11.50000 -118.5000 0.0000000E+00 + -10.50000 -118.5000 0.0000000E+00 + -9.500000 -118.5000 0.0000000E+00 + -8.500000 -118.5000 0.0000000E+00 + -7.500000 -118.5000 0.0000000E+00 + -6.500000 -118.5000 0.0000000E+00 + -5.500000 -118.5000 0.0000000E+00 + -4.500000 -118.5000 0.0000000E+00 + -3.500000 -118.5000 0.0000000E+00 + -2.500000 -118.5000 0.0000000E+00 + -1.500000 -118.5000 0.0000000E+00 + -0.5000000 -118.5000 0.0000000E+00 + 0.5000000 -118.5000 0.0000000E+00 + 1.500000 -118.5000 0.0000000E+00 + 2.500000 -118.5000 0.0000000E+00 + 3.500000 -118.5000 0.0000000E+00 + 4.500000 -118.5000 0.0000000E+00 + 5.500000 -118.5000 0.0000000E+00 + 6.500000 -118.5000 0.0000000E+00 + 7.500000 -118.5000 0.0000000E+00 + 8.500000 -118.5000 0.0000000E+00 + 9.500000 -118.5000 0.0000000E+00 + 10.50000 -118.5000 0.0000000E+00 + 11.50000 -118.5000 0.0000000E+00 + 12.50000 -118.5000 0.0000000E+00 + 13.50000 -118.5000 0.0000000E+00 + 14.50000 -118.5000 0.0000000E+00 + 15.50000 -118.5000 0.0000000E+00 + 16.50000 -118.5000 0.0000000E+00 + 17.50000 -118.5000 0.0000000E+00 + 18.50000 -118.5000 0.0000000E+00 + 19.50000 -118.5000 0.0000000E+00 + 20.50000 -118.5000 0.0000000E+00 + 21.50000 -118.5000 0.0000000E+00 + 22.50000 -118.5000 0.0000000E+00 + 23.50000 -118.5000 0.0000000E+00 + 24.50000 -118.5000 0.0000000E+00 + 25.50000 -118.5000 0.0000000E+00 + 26.50000 -118.5000 0.0000000E+00 + 27.50000 -118.5000 0.0000000E+00 + 28.50000 -118.5000 0.0000000E+00 + 29.50000 -118.5000 0.0000000E+00 + 30.50000 -118.5000 0.0000000E+00 + 31.50000 -118.5000 0.0000000E+00 + 32.50000 -118.5000 0.0000000E+00 + 33.50000 -118.5000 0.0000000E+00 + 34.50000 -118.5000 0.0000000E+00 + 35.50000 -118.5000 0.0000000E+00 + 36.50000 -118.5000 0.0000000E+00 + 37.50000 -118.5000 0.0000000E+00 + 38.50000 -118.5000 3.0318430E-05 + 39.50000 -118.5000 8.6707663E-04 + 40.50000 -118.5000 3.4845853E-04 + 41.50000 -118.5000 5.6119601E-04 + 42.50000 -118.5000 0.0000000E+00 + 43.50000 -118.5000 0.0000000E+00 + 44.50000 -118.5000 0.0000000E+00 + 45.50000 -118.5000 0.0000000E+00 + 46.50000 -118.5000 0.0000000E+00 + 47.50000 -118.5000 0.0000000E+00 + 48.50000 -118.5000 0.0000000E+00 + 49.50000 -118.5000 0.0000000E+00 + 50.50000 -118.5000 0.0000000E+00 + 51.50000 -118.5000 0.0000000E+00 + 52.50000 -118.5000 0.0000000E+00 + 53.50000 -118.5000 0.0000000E+00 + 54.50000 -118.5000 0.0000000E+00 + 55.50000 -118.5000 0.0000000E+00 + 56.50000 -118.5000 0.0000000E+00 + 57.50000 -118.5000 0.0000000E+00 + 58.50000 -118.5000 0.0000000E+00 + 59.50000 -118.5000 0.0000000E+00 + 60.50000 -118.5000 0.0000000E+00 + 61.50000 -118.5000 0.0000000E+00 + 62.50000 -118.5000 0.0000000E+00 + 63.50000 -118.5000 0.0000000E+00 + 64.50000 -118.5000 0.0000000E+00 + 65.50000 -118.5000 0.0000000E+00 + 66.50000 -118.5000 0.0000000E+00 + 67.50000 -118.5000 0.0000000E+00 + 68.50000 -118.5000 0.0000000E+00 + 69.50000 -118.5000 0.0000000E+00 + 70.50000 -118.5000 0.0000000E+00 + 71.50000 -118.5000 0.0000000E+00 + 72.50000 -118.5000 0.0000000E+00 + 73.50000 -118.5000 0.0000000E+00 + 74.50000 -118.5000 0.0000000E+00 + 75.50000 -118.5000 0.0000000E+00 + 76.50000 -118.5000 0.0000000E+00 + 77.50000 -118.5000 0.0000000E+00 + 78.50000 -118.5000 0.0000000E+00 + 79.50000 -118.5000 0.0000000E+00 + 80.50000 -118.5000 0.0000000E+00 + 81.50000 -118.5000 0.0000000E+00 + 82.50000 -118.5000 0.0000000E+00 + 83.50000 -118.5000 0.0000000E+00 + 84.50000 -118.5000 0.0000000E+00 + 85.50000 -118.5000 0.0000000E+00 + 86.50000 -118.5000 0.0000000E+00 + 87.50000 -118.5000 0.0000000E+00 + 88.50000 -118.5000 0.0000000E+00 + 89.50000 -118.5000 0.0000000E+00 + -89.50000 -117.5000 0.0000000E+00 + -88.50000 -117.5000 0.0000000E+00 + -87.50000 -117.5000 0.0000000E+00 + -86.50000 -117.5000 0.0000000E+00 + -85.50000 -117.5000 0.0000000E+00 + -84.50000 -117.5000 0.0000000E+00 + -83.50000 -117.5000 0.0000000E+00 + -82.50000 -117.5000 0.0000000E+00 + -81.50000 -117.5000 0.0000000E+00 + -80.50000 -117.5000 0.0000000E+00 + -79.50000 -117.5000 0.0000000E+00 + -78.50000 -117.5000 0.0000000E+00 + -77.50000 -117.5000 0.0000000E+00 + -76.50000 -117.5000 0.0000000E+00 + -75.50000 -117.5000 0.0000000E+00 + -74.50000 -117.5000 0.0000000E+00 + -73.50000 -117.5000 0.0000000E+00 + -72.50000 -117.5000 0.0000000E+00 + -71.50000 -117.5000 0.0000000E+00 + -70.50000 -117.5000 0.0000000E+00 + -69.50000 -117.5000 0.0000000E+00 + -68.50000 -117.5000 0.0000000E+00 + -67.50000 -117.5000 0.0000000E+00 + -66.50000 -117.5000 0.0000000E+00 + -65.50000 -117.5000 0.0000000E+00 + -64.50000 -117.5000 0.0000000E+00 + -63.50000 -117.5000 0.0000000E+00 + -62.50000 -117.5000 0.0000000E+00 + -61.50000 -117.5000 0.0000000E+00 + -60.50000 -117.5000 0.0000000E+00 + -59.50000 -117.5000 0.0000000E+00 + -58.50000 -117.5000 0.0000000E+00 + -57.50000 -117.5000 0.0000000E+00 + -56.50000 -117.5000 0.0000000E+00 + -55.50000 -117.5000 0.0000000E+00 + -54.50000 -117.5000 0.0000000E+00 + -53.50000 -117.5000 0.0000000E+00 + -52.50000 -117.5000 0.0000000E+00 + -51.50000 -117.5000 0.0000000E+00 + -50.50000 -117.5000 0.0000000E+00 + -49.50000 -117.5000 0.0000000E+00 + -48.50000 -117.5000 0.0000000E+00 + -47.50000 -117.5000 0.0000000E+00 + -46.50000 -117.5000 0.0000000E+00 + -45.50000 -117.5000 0.0000000E+00 + -44.50000 -117.5000 0.0000000E+00 + -43.50000 -117.5000 0.0000000E+00 + -42.50000 -117.5000 0.0000000E+00 + -41.50000 -117.5000 0.0000000E+00 + -40.50000 -117.5000 0.0000000E+00 + -39.50000 -117.5000 0.0000000E+00 + -38.50000 -117.5000 0.0000000E+00 + -37.50000 -117.5000 0.0000000E+00 + -36.50000 -117.5000 0.0000000E+00 + -35.50000 -117.5000 0.0000000E+00 + -34.50000 -117.5000 0.0000000E+00 + -33.50000 -117.5000 0.0000000E+00 + -32.50000 -117.5000 0.0000000E+00 + -31.50000 -117.5000 0.0000000E+00 + -30.50000 -117.5000 0.0000000E+00 + -29.50000 -117.5000 0.0000000E+00 + -28.50000 -117.5000 0.0000000E+00 + -27.50000 -117.5000 0.0000000E+00 + -26.50000 -117.5000 0.0000000E+00 + -25.50000 -117.5000 0.0000000E+00 + -24.50000 -117.5000 0.0000000E+00 + -23.50000 -117.5000 0.0000000E+00 + -22.50000 -117.5000 0.0000000E+00 + -21.50000 -117.5000 0.0000000E+00 + -20.50000 -117.5000 0.0000000E+00 + -19.50000 -117.5000 0.0000000E+00 + -18.50000 -117.5000 0.0000000E+00 + -17.50000 -117.5000 0.0000000E+00 + -16.50000 -117.5000 0.0000000E+00 + -15.50000 -117.5000 0.0000000E+00 + -14.50000 -117.5000 0.0000000E+00 + -13.50000 -117.5000 0.0000000E+00 + -12.50000 -117.5000 0.0000000E+00 + -11.50000 -117.5000 0.0000000E+00 + -10.50000 -117.5000 0.0000000E+00 + -9.500000 -117.5000 0.0000000E+00 + -8.500000 -117.5000 0.0000000E+00 + -7.500000 -117.5000 0.0000000E+00 + -6.500000 -117.5000 0.0000000E+00 + -5.500000 -117.5000 0.0000000E+00 + -4.500000 -117.5000 0.0000000E+00 + -3.500000 -117.5000 0.0000000E+00 + -2.500000 -117.5000 0.0000000E+00 + -1.500000 -117.5000 0.0000000E+00 + -0.5000000 -117.5000 0.0000000E+00 + 0.5000000 -117.5000 0.0000000E+00 + 1.500000 -117.5000 0.0000000E+00 + 2.500000 -117.5000 0.0000000E+00 + 3.500000 -117.5000 0.0000000E+00 + 4.500000 -117.5000 0.0000000E+00 + 5.500000 -117.5000 0.0000000E+00 + 6.500000 -117.5000 0.0000000E+00 + 7.500000 -117.5000 0.0000000E+00 + 8.500000 -117.5000 0.0000000E+00 + 9.500000 -117.5000 0.0000000E+00 + 10.50000 -117.5000 0.0000000E+00 + 11.50000 -117.5000 0.0000000E+00 + 12.50000 -117.5000 0.0000000E+00 + 13.50000 -117.5000 0.0000000E+00 + 14.50000 -117.5000 0.0000000E+00 + 15.50000 -117.5000 0.0000000E+00 + 16.50000 -117.5000 0.0000000E+00 + 17.50000 -117.5000 0.0000000E+00 + 18.50000 -117.5000 0.0000000E+00 + 19.50000 -117.5000 0.0000000E+00 + 20.50000 -117.5000 0.0000000E+00 + 21.50000 -117.5000 0.0000000E+00 + 22.50000 -117.5000 0.0000000E+00 + 23.50000 -117.5000 0.0000000E+00 + 24.50000 -117.5000 0.0000000E+00 + 25.50000 -117.5000 0.0000000E+00 + 26.50000 -117.5000 0.0000000E+00 + 27.50000 -117.5000 0.0000000E+00 + 28.50000 -117.5000 0.0000000E+00 + 29.50000 -117.5000 0.0000000E+00 + 30.50000 -117.5000 0.0000000E+00 + 31.50000 -117.5000 0.0000000E+00 + 32.50000 -117.5000 0.0000000E+00 + 33.50000 -117.5000 0.0000000E+00 + 34.50000 -117.5000 0.0000000E+00 + 35.50000 -117.5000 9.2967218E-03 + 36.50000 -117.5000 4.1250051E-03 + 37.50000 -117.5000 5.3934488E-03 + 38.50000 -117.5000 1.7155065E-04 + 39.50000 -117.5000 9.5198448E-05 + 40.50000 -117.5000 1.0786898E-03 + 41.50000 -117.5000 0.0000000E+00 + 42.50000 -117.5000 0.0000000E+00 + 43.50000 -117.5000 0.0000000E+00 + 44.50000 -117.5000 0.0000000E+00 + 45.50000 -117.5000 0.0000000E+00 + 46.50000 -117.5000 0.0000000E+00 + 47.50000 -117.5000 0.0000000E+00 + 48.50000 -117.5000 0.0000000E+00 + 49.50000 -117.5000 0.0000000E+00 + 50.50000 -117.5000 0.0000000E+00 + 51.50000 -117.5000 0.0000000E+00 + 52.50000 -117.5000 0.0000000E+00 + 53.50000 -117.5000 0.0000000E+00 + 54.50000 -117.5000 0.0000000E+00 + 55.50000 -117.5000 0.0000000E+00 + 56.50000 -117.5000 0.0000000E+00 + 57.50000 -117.5000 0.0000000E+00 + 58.50000 -117.5000 0.0000000E+00 + 59.50000 -117.5000 0.0000000E+00 + 60.50000 -117.5000 0.0000000E+00 + 61.50000 -117.5000 0.0000000E+00 + 62.50000 -117.5000 0.0000000E+00 + 63.50000 -117.5000 0.0000000E+00 + 64.50000 -117.5000 0.0000000E+00 + 65.50000 -117.5000 0.0000000E+00 + 66.50000 -117.5000 0.0000000E+00 + 67.50000 -117.5000 0.0000000E+00 + 68.50000 -117.5000 0.0000000E+00 + 69.50000 -117.5000 0.0000000E+00 + 70.50000 -117.5000 0.0000000E+00 + 71.50000 -117.5000 0.0000000E+00 + 72.50000 -117.5000 0.0000000E+00 + 73.50000 -117.5000 0.0000000E+00 + 74.50000 -117.5000 0.0000000E+00 + 75.50000 -117.5000 0.0000000E+00 + 76.50000 -117.5000 0.0000000E+00 + 77.50000 -117.5000 0.0000000E+00 + 78.50000 -117.5000 0.0000000E+00 + 79.50000 -117.5000 0.0000000E+00 + 80.50000 -117.5000 0.0000000E+00 + 81.50000 -117.5000 0.0000000E+00 + 82.50000 -117.5000 0.0000000E+00 + 83.50000 -117.5000 0.0000000E+00 + 84.50000 -117.5000 0.0000000E+00 + 85.50000 -117.5000 0.0000000E+00 + 86.50000 -117.5000 0.0000000E+00 + 87.50000 -117.5000 0.0000000E+00 + 88.50000 -117.5000 0.0000000E+00 + 89.50000 -117.5000 0.0000000E+00 + -89.50000 -116.5000 0.0000000E+00 + -88.50000 -116.5000 0.0000000E+00 + -87.50000 -116.5000 0.0000000E+00 + -86.50000 -116.5000 0.0000000E+00 + -85.50000 -116.5000 0.0000000E+00 + -84.50000 -116.5000 0.0000000E+00 + -83.50000 -116.5000 0.0000000E+00 + -82.50000 -116.5000 0.0000000E+00 + -81.50000 -116.5000 0.0000000E+00 + -80.50000 -116.5000 0.0000000E+00 + -79.50000 -116.5000 0.0000000E+00 + -78.50000 -116.5000 0.0000000E+00 + -77.50000 -116.5000 0.0000000E+00 + -76.50000 -116.5000 0.0000000E+00 + -75.50000 -116.5000 0.0000000E+00 + -74.50000 -116.5000 0.0000000E+00 + -73.50000 -116.5000 0.0000000E+00 + -72.50000 -116.5000 0.0000000E+00 + -71.50000 -116.5000 0.0000000E+00 + -70.50000 -116.5000 0.0000000E+00 + -69.50000 -116.5000 0.0000000E+00 + -68.50000 -116.5000 0.0000000E+00 + -67.50000 -116.5000 0.0000000E+00 + -66.50000 -116.5000 0.0000000E+00 + -65.50000 -116.5000 0.0000000E+00 + -64.50000 -116.5000 0.0000000E+00 + -63.50000 -116.5000 0.0000000E+00 + -62.50000 -116.5000 0.0000000E+00 + -61.50000 -116.5000 0.0000000E+00 + -60.50000 -116.5000 0.0000000E+00 + -59.50000 -116.5000 0.0000000E+00 + -58.50000 -116.5000 0.0000000E+00 + -57.50000 -116.5000 0.0000000E+00 + -56.50000 -116.5000 0.0000000E+00 + -55.50000 -116.5000 0.0000000E+00 + -54.50000 -116.5000 0.0000000E+00 + -53.50000 -116.5000 0.0000000E+00 + -52.50000 -116.5000 0.0000000E+00 + -51.50000 -116.5000 0.0000000E+00 + -50.50000 -116.5000 0.0000000E+00 + -49.50000 -116.5000 0.0000000E+00 + -48.50000 -116.5000 0.0000000E+00 + -47.50000 -116.5000 0.0000000E+00 + -46.50000 -116.5000 0.0000000E+00 + -45.50000 -116.5000 0.0000000E+00 + -44.50000 -116.5000 0.0000000E+00 + -43.50000 -116.5000 0.0000000E+00 + -42.50000 -116.5000 0.0000000E+00 + -41.50000 -116.5000 0.0000000E+00 + -40.50000 -116.5000 0.0000000E+00 + -39.50000 -116.5000 0.0000000E+00 + -38.50000 -116.5000 0.0000000E+00 + -37.50000 -116.5000 0.0000000E+00 + -36.50000 -116.5000 0.0000000E+00 + -35.50000 -116.5000 0.0000000E+00 + -34.50000 -116.5000 0.0000000E+00 + -33.50000 -116.5000 0.0000000E+00 + -32.50000 -116.5000 0.0000000E+00 + -31.50000 -116.5000 0.0000000E+00 + -30.50000 -116.5000 0.0000000E+00 + -29.50000 -116.5000 0.0000000E+00 + -28.50000 -116.5000 0.0000000E+00 + -27.50000 -116.5000 0.0000000E+00 + -26.50000 -116.5000 0.0000000E+00 + -25.50000 -116.5000 0.0000000E+00 + -24.50000 -116.5000 0.0000000E+00 + -23.50000 -116.5000 0.0000000E+00 + -22.50000 -116.5000 0.0000000E+00 + -21.50000 -116.5000 0.0000000E+00 + -20.50000 -116.5000 0.0000000E+00 + -19.50000 -116.5000 0.0000000E+00 + -18.50000 -116.5000 0.0000000E+00 + -17.50000 -116.5000 0.0000000E+00 + -16.50000 -116.5000 0.0000000E+00 + -15.50000 -116.5000 0.0000000E+00 + -14.50000 -116.5000 0.0000000E+00 + -13.50000 -116.5000 0.0000000E+00 + -12.50000 -116.5000 0.0000000E+00 + -11.50000 -116.5000 0.0000000E+00 + -10.50000 -116.5000 0.0000000E+00 + -9.500000 -116.5000 0.0000000E+00 + -8.500000 -116.5000 0.0000000E+00 + -7.500000 -116.5000 0.0000000E+00 + -6.500000 -116.5000 0.0000000E+00 + -5.500000 -116.5000 0.0000000E+00 + -4.500000 -116.5000 0.0000000E+00 + -3.500000 -116.5000 0.0000000E+00 + -2.500000 -116.5000 0.0000000E+00 + -1.500000 -116.5000 0.0000000E+00 + -0.5000000 -116.5000 0.0000000E+00 + 0.5000000 -116.5000 0.0000000E+00 + 1.500000 -116.5000 0.0000000E+00 + 2.500000 -116.5000 0.0000000E+00 + 3.500000 -116.5000 0.0000000E+00 + 4.500000 -116.5000 0.0000000E+00 + 5.500000 -116.5000 0.0000000E+00 + 6.500000 -116.5000 0.0000000E+00 + 7.500000 -116.5000 0.0000000E+00 + 8.500000 -116.5000 0.0000000E+00 + 9.500000 -116.5000 0.0000000E+00 + 10.50000 -116.5000 0.0000000E+00 + 11.50000 -116.5000 0.0000000E+00 + 12.50000 -116.5000 0.0000000E+00 + 13.50000 -116.5000 0.0000000E+00 + 14.50000 -116.5000 0.0000000E+00 + 15.50000 -116.5000 0.0000000E+00 + 16.50000 -116.5000 0.0000000E+00 + 17.50000 -116.5000 0.0000000E+00 + 18.50000 -116.5000 0.0000000E+00 + 19.50000 -116.5000 0.0000000E+00 + 20.50000 -116.5000 0.0000000E+00 + 21.50000 -116.5000 0.0000000E+00 + 22.50000 -116.5000 0.0000000E+00 + 23.50000 -116.5000 0.0000000E+00 + 24.50000 -116.5000 0.0000000E+00 + 25.50000 -116.5000 0.0000000E+00 + 26.50000 -116.5000 0.0000000E+00 + 27.50000 -116.5000 0.0000000E+00 + 28.50000 -116.5000 0.0000000E+00 + 29.50000 -116.5000 0.0000000E+00 + 30.50000 -116.5000 0.0000000E+00 + 31.50000 -116.5000 0.0000000E+00 + 32.50000 -116.5000 0.0000000E+00 + 33.50000 -116.5000 0.0000000E+00 + 34.50000 -116.5000 7.1936245E-03 + 35.50000 -116.5000 1.1865235E-02 + 36.50000 -116.5000 3.6924671E-02 + 37.50000 -116.5000 7.2291313E-04 + 38.50000 -116.5000 9.5198448E-05 + 39.50000 -116.5000 9.5198448E-05 + 40.50000 -116.5000 4.6788939E-04 + 41.50000 -116.5000 0.0000000E+00 + 42.50000 -116.5000 0.0000000E+00 + 43.50000 -116.5000 0.0000000E+00 + 44.50000 -116.5000 0.0000000E+00 + 45.50000 -116.5000 0.0000000E+00 + 46.50000 -116.5000 0.0000000E+00 + 47.50000 -116.5000 0.0000000E+00 + 48.50000 -116.5000 0.0000000E+00 + 49.50000 -116.5000 0.0000000E+00 + 50.50000 -116.5000 0.0000000E+00 + 51.50000 -116.5000 0.0000000E+00 + 52.50000 -116.5000 0.0000000E+00 + 53.50000 -116.5000 0.0000000E+00 + 54.50000 -116.5000 0.0000000E+00 + 55.50000 -116.5000 0.0000000E+00 + 56.50000 -116.5000 0.0000000E+00 + 57.50000 -116.5000 0.0000000E+00 + 58.50000 -116.5000 0.0000000E+00 + 59.50000 -116.5000 0.0000000E+00 + 60.50000 -116.5000 0.0000000E+00 + 61.50000 -116.5000 0.0000000E+00 + 62.50000 -116.5000 0.0000000E+00 + 63.50000 -116.5000 0.0000000E+00 + 64.50000 -116.5000 0.0000000E+00 + 65.50000 -116.5000 0.0000000E+00 + 66.50000 -116.5000 0.0000000E+00 + 67.50000 -116.5000 0.0000000E+00 + 68.50000 -116.5000 0.0000000E+00 + 69.50000 -116.5000 0.0000000E+00 + 70.50000 -116.5000 0.0000000E+00 + 71.50000 -116.5000 0.0000000E+00 + 72.50000 -116.5000 0.0000000E+00 + 73.50000 -116.5000 0.0000000E+00 + 74.50000 -116.5000 0.0000000E+00 + 75.50000 -116.5000 0.0000000E+00 + 76.50000 -116.5000 0.0000000E+00 + 77.50000 -116.5000 0.0000000E+00 + 78.50000 -116.5000 0.0000000E+00 + 79.50000 -116.5000 0.0000000E+00 + 80.50000 -116.5000 0.0000000E+00 + 81.50000 -116.5000 0.0000000E+00 + 82.50000 -116.5000 0.0000000E+00 + 83.50000 -116.5000 0.0000000E+00 + 84.50000 -116.5000 0.0000000E+00 + 85.50000 -116.5000 0.0000000E+00 + 86.50000 -116.5000 0.0000000E+00 + 87.50000 -116.5000 0.0000000E+00 + 88.50000 -116.5000 0.0000000E+00 + 89.50000 -116.5000 0.0000000E+00 + -89.50000 -115.5000 0.0000000E+00 + -88.50000 -115.5000 0.0000000E+00 + -87.50000 -115.5000 0.0000000E+00 + -86.50000 -115.5000 0.0000000E+00 + -85.50000 -115.5000 0.0000000E+00 + -84.50000 -115.5000 0.0000000E+00 + -83.50000 -115.5000 0.0000000E+00 + -82.50000 -115.5000 0.0000000E+00 + -81.50000 -115.5000 0.0000000E+00 + -80.50000 -115.5000 0.0000000E+00 + -79.50000 -115.5000 0.0000000E+00 + -78.50000 -115.5000 0.0000000E+00 + -77.50000 -115.5000 0.0000000E+00 + -76.50000 -115.5000 0.0000000E+00 + -75.50000 -115.5000 0.0000000E+00 + -74.50000 -115.5000 0.0000000E+00 + -73.50000 -115.5000 0.0000000E+00 + -72.50000 -115.5000 0.0000000E+00 + -71.50000 -115.5000 0.0000000E+00 + -70.50000 -115.5000 0.0000000E+00 + -69.50000 -115.5000 0.0000000E+00 + -68.50000 -115.5000 0.0000000E+00 + -67.50000 -115.5000 0.0000000E+00 + -66.50000 -115.5000 0.0000000E+00 + -65.50000 -115.5000 0.0000000E+00 + -64.50000 -115.5000 0.0000000E+00 + -63.50000 -115.5000 0.0000000E+00 + -62.50000 -115.5000 0.0000000E+00 + -61.50000 -115.5000 0.0000000E+00 + -60.50000 -115.5000 0.0000000E+00 + -59.50000 -115.5000 0.0000000E+00 + -58.50000 -115.5000 0.0000000E+00 + -57.50000 -115.5000 0.0000000E+00 + -56.50000 -115.5000 0.0000000E+00 + -55.50000 -115.5000 0.0000000E+00 + -54.50000 -115.5000 0.0000000E+00 + -53.50000 -115.5000 0.0000000E+00 + -52.50000 -115.5000 0.0000000E+00 + -51.50000 -115.5000 0.0000000E+00 + -50.50000 -115.5000 0.0000000E+00 + -49.50000 -115.5000 0.0000000E+00 + -48.50000 -115.5000 0.0000000E+00 + -47.50000 -115.5000 0.0000000E+00 + -46.50000 -115.5000 0.0000000E+00 + -45.50000 -115.5000 0.0000000E+00 + -44.50000 -115.5000 0.0000000E+00 + -43.50000 -115.5000 0.0000000E+00 + -42.50000 -115.5000 0.0000000E+00 + -41.50000 -115.5000 0.0000000E+00 + -40.50000 -115.5000 0.0000000E+00 + -39.50000 -115.5000 0.0000000E+00 + -38.50000 -115.5000 0.0000000E+00 + -37.50000 -115.5000 0.0000000E+00 + -36.50000 -115.5000 0.0000000E+00 + -35.50000 -115.5000 0.0000000E+00 + -34.50000 -115.5000 0.0000000E+00 + -33.50000 -115.5000 0.0000000E+00 + -32.50000 -115.5000 0.0000000E+00 + -31.50000 -115.5000 0.0000000E+00 + -30.50000 -115.5000 0.0000000E+00 + -29.50000 -115.5000 0.0000000E+00 + -28.50000 -115.5000 0.0000000E+00 + -27.50000 -115.5000 0.0000000E+00 + -26.50000 -115.5000 0.0000000E+00 + -25.50000 -115.5000 0.0000000E+00 + -24.50000 -115.5000 0.0000000E+00 + -23.50000 -115.5000 0.0000000E+00 + -22.50000 -115.5000 0.0000000E+00 + -21.50000 -115.5000 0.0000000E+00 + -20.50000 -115.5000 0.0000000E+00 + -19.50000 -115.5000 0.0000000E+00 + -18.50000 -115.5000 0.0000000E+00 + -17.50000 -115.5000 0.0000000E+00 + -16.50000 -115.5000 0.0000000E+00 + -15.50000 -115.5000 0.0000000E+00 + -14.50000 -115.5000 0.0000000E+00 + -13.50000 -115.5000 0.0000000E+00 + -12.50000 -115.5000 0.0000000E+00 + -11.50000 -115.5000 0.0000000E+00 + -10.50000 -115.5000 0.0000000E+00 + -9.500000 -115.5000 0.0000000E+00 + -8.500000 -115.5000 0.0000000E+00 + -7.500000 -115.5000 0.0000000E+00 + -6.500000 -115.5000 0.0000000E+00 + -5.500000 -115.5000 0.0000000E+00 + -4.500000 -115.5000 0.0000000E+00 + -3.500000 -115.5000 0.0000000E+00 + -2.500000 -115.5000 0.0000000E+00 + -1.500000 -115.5000 0.0000000E+00 + -0.5000000 -115.5000 0.0000000E+00 + 0.5000000 -115.5000 0.0000000E+00 + 1.500000 -115.5000 0.0000000E+00 + 2.500000 -115.5000 0.0000000E+00 + 3.500000 -115.5000 0.0000000E+00 + 4.500000 -115.5000 0.0000000E+00 + 5.500000 -115.5000 0.0000000E+00 + 6.500000 -115.5000 0.0000000E+00 + 7.500000 -115.5000 0.0000000E+00 + 8.500000 -115.5000 0.0000000E+00 + 9.500000 -115.5000 0.0000000E+00 + 10.50000 -115.5000 0.0000000E+00 + 11.50000 -115.5000 0.0000000E+00 + 12.50000 -115.5000 0.0000000E+00 + 13.50000 -115.5000 0.0000000E+00 + 14.50000 -115.5000 0.0000000E+00 + 15.50000 -115.5000 0.0000000E+00 + 16.50000 -115.5000 0.0000000E+00 + 17.50000 -115.5000 0.0000000E+00 + 18.50000 -115.5000 0.0000000E+00 + 19.50000 -115.5000 0.0000000E+00 + 20.50000 -115.5000 0.0000000E+00 + 21.50000 -115.5000 0.0000000E+00 + 22.50000 -115.5000 0.0000000E+00 + 23.50000 -115.5000 0.0000000E+00 + 24.50000 -115.5000 0.0000000E+00 + 25.50000 -115.5000 0.0000000E+00 + 26.50000 -115.5000 0.0000000E+00 + 27.50000 -115.5000 0.0000000E+00 + 28.50000 -115.5000 0.0000000E+00 + 29.50000 -115.5000 0.0000000E+00 + 30.50000 -115.5000 7.7683857E-04 + 31.50000 -115.5000 6.0406968E-05 + 32.50000 -115.5000 0.0000000E+00 + 33.50000 -115.5000 2.5645448E-02 + 34.50000 -115.5000 1.6021535E-02 + 35.50000 -115.5000 7.1936245E-03 + 36.50000 -115.5000 4.1250051E-03 + 37.50000 -115.5000 4.6788939E-04 + 38.50000 -115.5000 1.7155065E-04 + 39.50000 -115.5000 9.5198448E-05 + 40.50000 -115.5000 0.0000000E+00 + 41.50000 -115.5000 0.0000000E+00 + 42.50000 -115.5000 3.0463503E-03 + 43.50000 -115.5000 0.0000000E+00 + 44.50000 -115.5000 0.0000000E+00 + 45.50000 -115.5000 0.0000000E+00 + 46.50000 -115.5000 0.0000000E+00 + 47.50000 -115.5000 0.0000000E+00 + 48.50000 -115.5000 0.0000000E+00 + 49.50000 -115.5000 0.0000000E+00 + 50.50000 -115.5000 0.0000000E+00 + 51.50000 -115.5000 0.0000000E+00 + 52.50000 -115.5000 0.0000000E+00 + 53.50000 -115.5000 0.0000000E+00 + 54.50000 -115.5000 0.0000000E+00 + 55.50000 -115.5000 0.0000000E+00 + 56.50000 -115.5000 0.0000000E+00 + 57.50000 -115.5000 0.0000000E+00 + 58.50000 -115.5000 0.0000000E+00 + 59.50000 -115.5000 0.0000000E+00 + 60.50000 -115.5000 0.0000000E+00 + 61.50000 -115.5000 0.0000000E+00 + 62.50000 -115.5000 0.0000000E+00 + 63.50000 -115.5000 0.0000000E+00 + 64.50000 -115.5000 0.0000000E+00 + 65.50000 -115.5000 0.0000000E+00 + 66.50000 -115.5000 0.0000000E+00 + 67.50000 -115.5000 0.0000000E+00 + 68.50000 -115.5000 0.0000000E+00 + 69.50000 -115.5000 0.0000000E+00 + 70.50000 -115.5000 0.0000000E+00 + 71.50000 -115.5000 0.0000000E+00 + 72.50000 -115.5000 0.0000000E+00 + 73.50000 -115.5000 0.0000000E+00 + 74.50000 -115.5000 0.0000000E+00 + 75.50000 -115.5000 0.0000000E+00 + 76.50000 -115.5000 0.0000000E+00 + 77.50000 -115.5000 0.0000000E+00 + 78.50000 -115.5000 0.0000000E+00 + 79.50000 -115.5000 0.0000000E+00 + 80.50000 -115.5000 0.0000000E+00 + 81.50000 -115.5000 0.0000000E+00 + 82.50000 -115.5000 0.0000000E+00 + 83.50000 -115.5000 0.0000000E+00 + 84.50000 -115.5000 0.0000000E+00 + 85.50000 -115.5000 0.0000000E+00 + 86.50000 -115.5000 0.0000000E+00 + 87.50000 -115.5000 0.0000000E+00 + 88.50000 -115.5000 0.0000000E+00 + 89.50000 -115.5000 0.0000000E+00 + -89.50000 -114.5000 0.0000000E+00 + -88.50000 -114.5000 0.0000000E+00 + -87.50000 -114.5000 0.0000000E+00 + -86.50000 -114.5000 0.0000000E+00 + -85.50000 -114.5000 0.0000000E+00 + -84.50000 -114.5000 0.0000000E+00 + -83.50000 -114.5000 0.0000000E+00 + -82.50000 -114.5000 0.0000000E+00 + -81.50000 -114.5000 0.0000000E+00 + -80.50000 -114.5000 0.0000000E+00 + -79.50000 -114.5000 0.0000000E+00 + -78.50000 -114.5000 0.0000000E+00 + -77.50000 -114.5000 0.0000000E+00 + -76.50000 -114.5000 0.0000000E+00 + -75.50000 -114.5000 0.0000000E+00 + -74.50000 -114.5000 0.0000000E+00 + -73.50000 -114.5000 0.0000000E+00 + -72.50000 -114.5000 0.0000000E+00 + -71.50000 -114.5000 0.0000000E+00 + -70.50000 -114.5000 0.0000000E+00 + -69.50000 -114.5000 0.0000000E+00 + -68.50000 -114.5000 0.0000000E+00 + -67.50000 -114.5000 0.0000000E+00 + -66.50000 -114.5000 0.0000000E+00 + -65.50000 -114.5000 0.0000000E+00 + -64.50000 -114.5000 0.0000000E+00 + -63.50000 -114.5000 0.0000000E+00 + -62.50000 -114.5000 0.0000000E+00 + -61.50000 -114.5000 0.0000000E+00 + -60.50000 -114.5000 0.0000000E+00 + -59.50000 -114.5000 0.0000000E+00 + -58.50000 -114.5000 0.0000000E+00 + -57.50000 -114.5000 0.0000000E+00 + -56.50000 -114.5000 0.0000000E+00 + -55.50000 -114.5000 0.0000000E+00 + -54.50000 -114.5000 0.0000000E+00 + -53.50000 -114.5000 0.0000000E+00 + -52.50000 -114.5000 0.0000000E+00 + -51.50000 -114.5000 0.0000000E+00 + -50.50000 -114.5000 0.0000000E+00 + -49.50000 -114.5000 0.0000000E+00 + -48.50000 -114.5000 0.0000000E+00 + -47.50000 -114.5000 0.0000000E+00 + -46.50000 -114.5000 0.0000000E+00 + -45.50000 -114.5000 0.0000000E+00 + -44.50000 -114.5000 0.0000000E+00 + -43.50000 -114.5000 0.0000000E+00 + -42.50000 -114.5000 0.0000000E+00 + -41.50000 -114.5000 0.0000000E+00 + -40.50000 -114.5000 0.0000000E+00 + -39.50000 -114.5000 0.0000000E+00 + -38.50000 -114.5000 0.0000000E+00 + -37.50000 -114.5000 0.0000000E+00 + -36.50000 -114.5000 0.0000000E+00 + -35.50000 -114.5000 0.0000000E+00 + -34.50000 -114.5000 0.0000000E+00 + -33.50000 -114.5000 0.0000000E+00 + -32.50000 -114.5000 0.0000000E+00 + -31.50000 -114.5000 0.0000000E+00 + -30.50000 -114.5000 0.0000000E+00 + -29.50000 -114.5000 0.0000000E+00 + -28.50000 -114.5000 0.0000000E+00 + -27.50000 -114.5000 0.0000000E+00 + -26.50000 -114.5000 0.0000000E+00 + -25.50000 -114.5000 0.0000000E+00 + -24.50000 -114.5000 0.0000000E+00 + -23.50000 -114.5000 0.0000000E+00 + -22.50000 -114.5000 0.0000000E+00 + -21.50000 -114.5000 0.0000000E+00 + -20.50000 -114.5000 0.0000000E+00 + -19.50000 -114.5000 0.0000000E+00 + -18.50000 -114.5000 0.0000000E+00 + -17.50000 -114.5000 0.0000000E+00 + -16.50000 -114.5000 0.0000000E+00 + -15.50000 -114.5000 0.0000000E+00 + -14.50000 -114.5000 0.0000000E+00 + -13.50000 -114.5000 0.0000000E+00 + -12.50000 -114.5000 0.0000000E+00 + -11.50000 -114.5000 0.0000000E+00 + -10.50000 -114.5000 0.0000000E+00 + -9.500000 -114.5000 0.0000000E+00 + -8.500000 -114.5000 0.0000000E+00 + -7.500000 -114.5000 0.0000000E+00 + -6.500000 -114.5000 0.0000000E+00 + -5.500000 -114.5000 0.0000000E+00 + -4.500000 -114.5000 0.0000000E+00 + -3.500000 -114.5000 0.0000000E+00 + -2.500000 -114.5000 0.0000000E+00 + -1.500000 -114.5000 0.0000000E+00 + -0.5000000 -114.5000 0.0000000E+00 + 0.5000000 -114.5000 0.0000000E+00 + 1.500000 -114.5000 0.0000000E+00 + 2.500000 -114.5000 0.0000000E+00 + 3.500000 -114.5000 0.0000000E+00 + 4.500000 -114.5000 0.0000000E+00 + 5.500000 -114.5000 0.0000000E+00 + 6.500000 -114.5000 0.0000000E+00 + 7.500000 -114.5000 0.0000000E+00 + 8.500000 -114.5000 0.0000000E+00 + 9.500000 -114.5000 0.0000000E+00 + 10.50000 -114.5000 0.0000000E+00 + 11.50000 -114.5000 0.0000000E+00 + 12.50000 -114.5000 0.0000000E+00 + 13.50000 -114.5000 0.0000000E+00 + 14.50000 -114.5000 0.0000000E+00 + 15.50000 -114.5000 0.0000000E+00 + 16.50000 -114.5000 0.0000000E+00 + 17.50000 -114.5000 0.0000000E+00 + 18.50000 -114.5000 0.0000000E+00 + 19.50000 -114.5000 0.0000000E+00 + 20.50000 -114.5000 0.0000000E+00 + 21.50000 -114.5000 0.0000000E+00 + 22.50000 -114.5000 0.0000000E+00 + 23.50000 -114.5000 0.0000000E+00 + 24.50000 -114.5000 0.0000000E+00 + 25.50000 -114.5000 0.0000000E+00 + 26.50000 -114.5000 0.0000000E+00 + 27.50000 -114.5000 0.1552304 + 28.50000 -114.5000 0.0000000E+00 + 29.50000 -114.5000 6.8876512E-02 + 30.50000 -114.5000 0.0000000E+00 + 31.50000 -114.5000 0.0000000E+00 + 32.50000 -114.5000 3.4029160E-02 + 33.50000 -114.5000 3.4518074E-02 + 34.50000 -114.5000 2.8371343E-02 + 35.50000 -114.5000 1.1865235E-02 + 36.50000 -114.5000 7.1936245E-03 + 37.50000 -114.5000 2.9052256E-04 + 38.50000 -114.5000 1.7155065E-04 + 39.50000 -114.5000 9.5198448E-05 + 40.50000 -114.5000 1.7155065E-04 + 41.50000 -114.5000 4.6788939E-04 + 42.50000 -114.5000 0.0000000E+00 + 43.50000 -114.5000 0.0000000E+00 + 44.50000 -114.5000 0.0000000E+00 + 45.50000 -114.5000 0.0000000E+00 + 46.50000 -114.5000 0.0000000E+00 + 47.50000 -114.5000 0.0000000E+00 + 48.50000 -114.5000 0.0000000E+00 + 49.50000 -114.5000 0.0000000E+00 + 50.50000 -114.5000 0.0000000E+00 + 51.50000 -114.5000 0.0000000E+00 + 52.50000 -114.5000 0.0000000E+00 + 53.50000 -114.5000 0.0000000E+00 + 54.50000 -114.5000 0.0000000E+00 + 55.50000 -114.5000 0.0000000E+00 + 56.50000 -114.5000 0.0000000E+00 + 57.50000 -114.5000 0.0000000E+00 + 58.50000 -114.5000 0.0000000E+00 + 59.50000 -114.5000 0.0000000E+00 + 60.50000 -114.5000 0.0000000E+00 + 61.50000 -114.5000 0.0000000E+00 + 62.50000 -114.5000 0.0000000E+00 + 63.50000 -114.5000 0.0000000E+00 + 64.50000 -114.5000 0.0000000E+00 + 65.50000 -114.5000 0.0000000E+00 + 66.50000 -114.5000 0.0000000E+00 + 67.50000 -114.5000 0.0000000E+00 + 68.50000 -114.5000 0.0000000E+00 + 69.50000 -114.5000 0.0000000E+00 + 70.50000 -114.5000 0.0000000E+00 + 71.50000 -114.5000 0.0000000E+00 + 72.50000 -114.5000 0.0000000E+00 + 73.50000 -114.5000 0.0000000E+00 + 74.50000 -114.5000 0.0000000E+00 + 75.50000 -114.5000 0.0000000E+00 + 76.50000 -114.5000 0.0000000E+00 + 77.50000 -114.5000 0.0000000E+00 + 78.50000 -114.5000 0.0000000E+00 + 79.50000 -114.5000 0.0000000E+00 + 80.50000 -114.5000 0.0000000E+00 + 81.50000 -114.5000 0.0000000E+00 + 82.50000 -114.5000 0.0000000E+00 + 83.50000 -114.5000 0.0000000E+00 + 84.50000 -114.5000 0.0000000E+00 + 85.50000 -114.5000 0.0000000E+00 + 86.50000 -114.5000 0.0000000E+00 + 87.50000 -114.5000 0.0000000E+00 + 88.50000 -114.5000 0.0000000E+00 + 89.50000 -114.5000 0.0000000E+00 + -89.50000 -113.5000 0.0000000E+00 + -88.50000 -113.5000 0.0000000E+00 + -87.50000 -113.5000 0.0000000E+00 + -86.50000 -113.5000 0.0000000E+00 + -85.50000 -113.5000 0.0000000E+00 + -84.50000 -113.5000 0.0000000E+00 + -83.50000 -113.5000 0.0000000E+00 + -82.50000 -113.5000 0.0000000E+00 + -81.50000 -113.5000 0.0000000E+00 + -80.50000 -113.5000 0.0000000E+00 + -79.50000 -113.5000 0.0000000E+00 + -78.50000 -113.5000 0.0000000E+00 + -77.50000 -113.5000 0.0000000E+00 + -76.50000 -113.5000 0.0000000E+00 + -75.50000 -113.5000 0.0000000E+00 + -74.50000 -113.5000 0.0000000E+00 + -73.50000 -113.5000 0.0000000E+00 + -72.50000 -113.5000 0.0000000E+00 + -71.50000 -113.5000 0.0000000E+00 + -70.50000 -113.5000 0.0000000E+00 + -69.50000 -113.5000 0.0000000E+00 + -68.50000 -113.5000 0.0000000E+00 + -67.50000 -113.5000 0.0000000E+00 + -66.50000 -113.5000 0.0000000E+00 + -65.50000 -113.5000 0.0000000E+00 + -64.50000 -113.5000 0.0000000E+00 + -63.50000 -113.5000 0.0000000E+00 + -62.50000 -113.5000 0.0000000E+00 + -61.50000 -113.5000 0.0000000E+00 + -60.50000 -113.5000 0.0000000E+00 + -59.50000 -113.5000 0.0000000E+00 + -58.50000 -113.5000 0.0000000E+00 + -57.50000 -113.5000 0.0000000E+00 + -56.50000 -113.5000 0.0000000E+00 + -55.50000 -113.5000 0.0000000E+00 + -54.50000 -113.5000 0.0000000E+00 + -53.50000 -113.5000 0.0000000E+00 + -52.50000 -113.5000 0.0000000E+00 + -51.50000 -113.5000 0.0000000E+00 + -50.50000 -113.5000 0.0000000E+00 + -49.50000 -113.5000 0.0000000E+00 + -48.50000 -113.5000 0.0000000E+00 + -47.50000 -113.5000 0.0000000E+00 + -46.50000 -113.5000 0.0000000E+00 + -45.50000 -113.5000 0.0000000E+00 + -44.50000 -113.5000 0.0000000E+00 + -43.50000 -113.5000 0.0000000E+00 + -42.50000 -113.5000 0.0000000E+00 + -41.50000 -113.5000 0.0000000E+00 + -40.50000 -113.5000 0.0000000E+00 + -39.50000 -113.5000 0.0000000E+00 + -38.50000 -113.5000 0.0000000E+00 + -37.50000 -113.5000 0.0000000E+00 + -36.50000 -113.5000 0.0000000E+00 + -35.50000 -113.5000 0.0000000E+00 + -34.50000 -113.5000 0.0000000E+00 + -33.50000 -113.5000 0.0000000E+00 + -32.50000 -113.5000 0.0000000E+00 + -31.50000 -113.5000 0.0000000E+00 + -30.50000 -113.5000 0.0000000E+00 + -29.50000 -113.5000 0.0000000E+00 + -28.50000 -113.5000 0.0000000E+00 + -27.50000 -113.5000 0.0000000E+00 + -26.50000 -113.5000 0.0000000E+00 + -25.50000 -113.5000 0.0000000E+00 + -24.50000 -113.5000 0.0000000E+00 + -23.50000 -113.5000 0.0000000E+00 + -22.50000 -113.5000 0.0000000E+00 + -21.50000 -113.5000 0.0000000E+00 + -20.50000 -113.5000 0.0000000E+00 + -19.50000 -113.5000 0.0000000E+00 + -18.50000 -113.5000 0.0000000E+00 + -17.50000 -113.5000 0.0000000E+00 + -16.50000 -113.5000 0.0000000E+00 + -15.50000 -113.5000 0.0000000E+00 + -14.50000 -113.5000 0.0000000E+00 + -13.50000 -113.5000 0.0000000E+00 + -12.50000 -113.5000 0.0000000E+00 + -11.50000 -113.5000 0.0000000E+00 + -10.50000 -113.5000 0.0000000E+00 + -9.500000 -113.5000 0.0000000E+00 + -8.500000 -113.5000 0.0000000E+00 + -7.500000 -113.5000 0.0000000E+00 + -6.500000 -113.5000 0.0000000E+00 + -5.500000 -113.5000 0.0000000E+00 + -4.500000 -113.5000 0.0000000E+00 + -3.500000 -113.5000 0.0000000E+00 + -2.500000 -113.5000 0.0000000E+00 + -1.500000 -113.5000 0.0000000E+00 + -0.5000000 -113.5000 0.0000000E+00 + 0.5000000 -113.5000 0.0000000E+00 + 1.500000 -113.5000 0.0000000E+00 + 2.500000 -113.5000 0.0000000E+00 + 3.500000 -113.5000 0.0000000E+00 + 4.500000 -113.5000 0.0000000E+00 + 5.500000 -113.5000 0.0000000E+00 + 6.500000 -113.5000 0.0000000E+00 + 7.500000 -113.5000 0.0000000E+00 + 8.500000 -113.5000 0.0000000E+00 + 9.500000 -113.5000 0.0000000E+00 + 10.50000 -113.5000 0.0000000E+00 + 11.50000 -113.5000 0.0000000E+00 + 12.50000 -113.5000 0.0000000E+00 + 13.50000 -113.5000 0.0000000E+00 + 14.50000 -113.5000 0.0000000E+00 + 15.50000 -113.5000 0.0000000E+00 + 16.50000 -113.5000 0.0000000E+00 + 17.50000 -113.5000 0.0000000E+00 + 18.50000 -113.5000 0.0000000E+00 + 19.50000 -113.5000 0.0000000E+00 + 20.50000 -113.5000 0.0000000E+00 + 21.50000 -113.5000 0.0000000E+00 + 22.50000 -113.5000 0.0000000E+00 + 23.50000 -113.5000 0.0000000E+00 + 24.50000 -113.5000 0.0000000E+00 + 25.50000 -113.5000 0.0000000E+00 + 26.50000 -113.5000 0.0000000E+00 + 27.50000 -113.5000 1.0173177E-02 + 28.50000 -113.5000 5.0865885E-02 + 29.50000 -113.5000 0.0000000E+00 + 30.50000 -113.5000 0.0000000E+00 + 31.50000 -113.5000 0.0000000E+00 + 32.50000 -113.5000 0.1502871 + 33.50000 -113.5000 1.3906494E-02 + 34.50000 -113.5000 1.1240891E-02 + 35.50000 -113.5000 7.1327672E-03 + 36.50000 -113.5000 5.5887080E-03 + 37.50000 -113.5000 0.0000000E+00 + 38.50000 -113.5000 6.4845261E-04 + 39.50000 -113.5000 4.6964712E-03 + 40.50000 -113.5000 6.6311336E-03 + 41.50000 -113.5000 1.3262267E-03 + 42.50000 -113.5000 0.0000000E+00 + 43.50000 -113.5000 0.0000000E+00 + 44.50000 -113.5000 0.0000000E+00 + 45.50000 -113.5000 0.0000000E+00 + 46.50000 -113.5000 0.0000000E+00 + 47.50000 -113.5000 0.0000000E+00 + 48.50000 -113.5000 0.0000000E+00 + 49.50000 -113.5000 0.0000000E+00 + 50.50000 -113.5000 0.0000000E+00 + 51.50000 -113.5000 0.0000000E+00 + 52.50000 -113.5000 0.0000000E+00 + 53.50000 -113.5000 0.0000000E+00 + 54.50000 -113.5000 0.0000000E+00 + 55.50000 -113.5000 0.0000000E+00 + 56.50000 -113.5000 0.0000000E+00 + 57.50000 -113.5000 0.0000000E+00 + 58.50000 -113.5000 0.0000000E+00 + 59.50000 -113.5000 0.0000000E+00 + 60.50000 -113.5000 0.0000000E+00 + 61.50000 -113.5000 0.0000000E+00 + 62.50000 -113.5000 0.0000000E+00 + 63.50000 -113.5000 0.0000000E+00 + 64.50000 -113.5000 0.0000000E+00 + 65.50000 -113.5000 0.0000000E+00 + 66.50000 -113.5000 0.0000000E+00 + 67.50000 -113.5000 0.0000000E+00 + 68.50000 -113.5000 0.0000000E+00 + 69.50000 -113.5000 0.0000000E+00 + 70.50000 -113.5000 0.0000000E+00 + 71.50000 -113.5000 0.0000000E+00 + 72.50000 -113.5000 0.0000000E+00 + 73.50000 -113.5000 0.0000000E+00 + 74.50000 -113.5000 0.0000000E+00 + 75.50000 -113.5000 0.0000000E+00 + 76.50000 -113.5000 0.0000000E+00 + 77.50000 -113.5000 0.0000000E+00 + 78.50000 -113.5000 0.0000000E+00 + 79.50000 -113.5000 0.0000000E+00 + 80.50000 -113.5000 0.0000000E+00 + 81.50000 -113.5000 0.0000000E+00 + 82.50000 -113.5000 0.0000000E+00 + 83.50000 -113.5000 0.0000000E+00 + 84.50000 -113.5000 0.0000000E+00 + 85.50000 -113.5000 0.0000000E+00 + 86.50000 -113.5000 0.0000000E+00 + 87.50000 -113.5000 0.0000000E+00 + 88.50000 -113.5000 0.0000000E+00 + 89.50000 -113.5000 0.0000000E+00 + -89.50000 -112.5000 0.0000000E+00 + -88.50000 -112.5000 0.0000000E+00 + -87.50000 -112.5000 0.0000000E+00 + -86.50000 -112.5000 0.0000000E+00 + -85.50000 -112.5000 0.0000000E+00 + -84.50000 -112.5000 0.0000000E+00 + -83.50000 -112.5000 0.0000000E+00 + -82.50000 -112.5000 0.0000000E+00 + -81.50000 -112.5000 0.0000000E+00 + -80.50000 -112.5000 0.0000000E+00 + -79.50000 -112.5000 0.0000000E+00 + -78.50000 -112.5000 0.0000000E+00 + -77.50000 -112.5000 0.0000000E+00 + -76.50000 -112.5000 0.0000000E+00 + -75.50000 -112.5000 0.0000000E+00 + -74.50000 -112.5000 0.0000000E+00 + -73.50000 -112.5000 0.0000000E+00 + -72.50000 -112.5000 0.0000000E+00 + -71.50000 -112.5000 0.0000000E+00 + -70.50000 -112.5000 0.0000000E+00 + -69.50000 -112.5000 0.0000000E+00 + -68.50000 -112.5000 0.0000000E+00 + -67.50000 -112.5000 0.0000000E+00 + -66.50000 -112.5000 0.0000000E+00 + -65.50000 -112.5000 0.0000000E+00 + -64.50000 -112.5000 0.0000000E+00 + -63.50000 -112.5000 0.0000000E+00 + -62.50000 -112.5000 0.0000000E+00 + -61.50000 -112.5000 0.0000000E+00 + -60.50000 -112.5000 0.0000000E+00 + -59.50000 -112.5000 0.0000000E+00 + -58.50000 -112.5000 0.0000000E+00 + -57.50000 -112.5000 0.0000000E+00 + -56.50000 -112.5000 0.0000000E+00 + -55.50000 -112.5000 0.0000000E+00 + -54.50000 -112.5000 0.0000000E+00 + -53.50000 -112.5000 0.0000000E+00 + -52.50000 -112.5000 0.0000000E+00 + -51.50000 -112.5000 0.0000000E+00 + -50.50000 -112.5000 0.0000000E+00 + -49.50000 -112.5000 0.0000000E+00 + -48.50000 -112.5000 0.0000000E+00 + -47.50000 -112.5000 0.0000000E+00 + -46.50000 -112.5000 0.0000000E+00 + -45.50000 -112.5000 0.0000000E+00 + -44.50000 -112.5000 0.0000000E+00 + -43.50000 -112.5000 0.0000000E+00 + -42.50000 -112.5000 0.0000000E+00 + -41.50000 -112.5000 0.0000000E+00 + -40.50000 -112.5000 0.0000000E+00 + -39.50000 -112.5000 0.0000000E+00 + -38.50000 -112.5000 0.0000000E+00 + -37.50000 -112.5000 0.0000000E+00 + -36.50000 -112.5000 0.0000000E+00 + -35.50000 -112.5000 0.0000000E+00 + -34.50000 -112.5000 0.0000000E+00 + -33.50000 -112.5000 0.0000000E+00 + -32.50000 -112.5000 0.0000000E+00 + -31.50000 -112.5000 0.0000000E+00 + -30.50000 -112.5000 0.0000000E+00 + -29.50000 -112.5000 0.0000000E+00 + -28.50000 -112.5000 0.0000000E+00 + -27.50000 -112.5000 0.0000000E+00 + -26.50000 -112.5000 0.0000000E+00 + -25.50000 -112.5000 0.0000000E+00 + -24.50000 -112.5000 0.0000000E+00 + -23.50000 -112.5000 0.0000000E+00 + -22.50000 -112.5000 0.0000000E+00 + -21.50000 -112.5000 0.0000000E+00 + -20.50000 -112.5000 0.0000000E+00 + -19.50000 -112.5000 0.0000000E+00 + -18.50000 -112.5000 0.0000000E+00 + -17.50000 -112.5000 0.0000000E+00 + -16.50000 -112.5000 0.0000000E+00 + -15.50000 -112.5000 0.0000000E+00 + -14.50000 -112.5000 0.0000000E+00 + -13.50000 -112.5000 0.0000000E+00 + -12.50000 -112.5000 0.0000000E+00 + -11.50000 -112.5000 0.0000000E+00 + -10.50000 -112.5000 0.0000000E+00 + -9.500000 -112.5000 0.0000000E+00 + -8.500000 -112.5000 0.0000000E+00 + -7.500000 -112.5000 0.0000000E+00 + -6.500000 -112.5000 0.0000000E+00 + -5.500000 -112.5000 0.0000000E+00 + -4.500000 -112.5000 0.0000000E+00 + -3.500000 -112.5000 0.0000000E+00 + -2.500000 -112.5000 0.0000000E+00 + -1.500000 -112.5000 0.0000000E+00 + -0.5000000 -112.5000 0.0000000E+00 + 0.5000000 -112.5000 0.0000000E+00 + 1.500000 -112.5000 0.0000000E+00 + 2.500000 -112.5000 0.0000000E+00 + 3.500000 -112.5000 0.0000000E+00 + 4.500000 -112.5000 0.0000000E+00 + 5.500000 -112.5000 0.0000000E+00 + 6.500000 -112.5000 0.0000000E+00 + 7.500000 -112.5000 0.0000000E+00 + 8.500000 -112.5000 0.0000000E+00 + 9.500000 -112.5000 0.0000000E+00 + 10.50000 -112.5000 0.0000000E+00 + 11.50000 -112.5000 0.0000000E+00 + 12.50000 -112.5000 0.0000000E+00 + 13.50000 -112.5000 0.0000000E+00 + 14.50000 -112.5000 0.0000000E+00 + 15.50000 -112.5000 0.0000000E+00 + 16.50000 -112.5000 0.0000000E+00 + 17.50000 -112.5000 0.0000000E+00 + 18.50000 -112.5000 0.0000000E+00 + 19.50000 -112.5000 0.0000000E+00 + 20.50000 -112.5000 0.0000000E+00 + 21.50000 -112.5000 0.0000000E+00 + 22.50000 -112.5000 0.0000000E+00 + 23.50000 -112.5000 0.0000000E+00 + 24.50000 -112.5000 0.0000000E+00 + 25.50000 -112.5000 0.0000000E+00 + 26.50000 -112.5000 1.7382737E-02 + 27.50000 -112.5000 0.0000000E+00 + 28.50000 -112.5000 0.0000000E+00 + 29.50000 -112.5000 0.0000000E+00 + 30.50000 -112.5000 2.2427995E-02 + 31.50000 -112.5000 9.2967218E-03 + 32.50000 -112.5000 1.7055390E-02 + 33.50000 -112.5000 2.3698337E-02 + 34.50000 -112.5000 0.0000000E+00 + 35.50000 -112.5000 0.0000000E+00 + 36.50000 -112.5000 0.0000000E+00 + 37.50000 -112.5000 0.0000000E+00 + 38.50000 -112.5000 0.0000000E+00 + 39.50000 -112.5000 6.4845261E-04 + 40.50000 -112.5000 0.0000000E+00 + 41.50000 -112.5000 0.0000000E+00 + 42.50000 -112.5000 0.0000000E+00 + 43.50000 -112.5000 0.0000000E+00 + 44.50000 -112.5000 0.0000000E+00 + 45.50000 -112.5000 0.0000000E+00 + 46.50000 -112.5000 0.0000000E+00 + 47.50000 -112.5000 0.0000000E+00 + 48.50000 -112.5000 0.0000000E+00 + 49.50000 -112.5000 0.0000000E+00 + 50.50000 -112.5000 0.0000000E+00 + 51.50000 -112.5000 0.0000000E+00 + 52.50000 -112.5000 0.0000000E+00 + 53.50000 -112.5000 0.0000000E+00 + 54.50000 -112.5000 0.0000000E+00 + 55.50000 -112.5000 0.0000000E+00 + 56.50000 -112.5000 0.0000000E+00 + 57.50000 -112.5000 0.0000000E+00 + 58.50000 -112.5000 0.0000000E+00 + 59.50000 -112.5000 0.0000000E+00 + 60.50000 -112.5000 0.0000000E+00 + 61.50000 -112.5000 0.0000000E+00 + 62.50000 -112.5000 0.0000000E+00 + 63.50000 -112.5000 0.0000000E+00 + 64.50000 -112.5000 0.0000000E+00 + 65.50000 -112.5000 0.0000000E+00 + 66.50000 -112.5000 0.0000000E+00 + 67.50000 -112.5000 0.0000000E+00 + 68.50000 -112.5000 0.0000000E+00 + 69.50000 -112.5000 0.0000000E+00 + 70.50000 -112.5000 0.0000000E+00 + 71.50000 -112.5000 0.0000000E+00 + 72.50000 -112.5000 0.0000000E+00 + 73.50000 -112.5000 0.0000000E+00 + 74.50000 -112.5000 0.0000000E+00 + 75.50000 -112.5000 0.0000000E+00 + 76.50000 -112.5000 0.0000000E+00 + 77.50000 -112.5000 0.0000000E+00 + 78.50000 -112.5000 0.0000000E+00 + 79.50000 -112.5000 0.0000000E+00 + 80.50000 -112.5000 0.0000000E+00 + 81.50000 -112.5000 0.0000000E+00 + 82.50000 -112.5000 0.0000000E+00 + 83.50000 -112.5000 0.0000000E+00 + 84.50000 -112.5000 0.0000000E+00 + 85.50000 -112.5000 0.0000000E+00 + 86.50000 -112.5000 0.0000000E+00 + 87.50000 -112.5000 0.0000000E+00 + 88.50000 -112.5000 0.0000000E+00 + 89.50000 -112.5000 0.0000000E+00 + -89.50000 -111.5000 0.0000000E+00 + -88.50000 -111.5000 0.0000000E+00 + -87.50000 -111.5000 0.0000000E+00 + -86.50000 -111.5000 0.0000000E+00 + -85.50000 -111.5000 0.0000000E+00 + -84.50000 -111.5000 0.0000000E+00 + -83.50000 -111.5000 0.0000000E+00 + -82.50000 -111.5000 0.0000000E+00 + -81.50000 -111.5000 0.0000000E+00 + -80.50000 -111.5000 0.0000000E+00 + -79.50000 -111.5000 0.0000000E+00 + -78.50000 -111.5000 0.0000000E+00 + -77.50000 -111.5000 0.0000000E+00 + -76.50000 -111.5000 0.0000000E+00 + -75.50000 -111.5000 0.0000000E+00 + -74.50000 -111.5000 0.0000000E+00 + -73.50000 -111.5000 0.0000000E+00 + -72.50000 -111.5000 0.0000000E+00 + -71.50000 -111.5000 0.0000000E+00 + -70.50000 -111.5000 0.0000000E+00 + -69.50000 -111.5000 0.0000000E+00 + -68.50000 -111.5000 0.0000000E+00 + -67.50000 -111.5000 0.0000000E+00 + -66.50000 -111.5000 0.0000000E+00 + -65.50000 -111.5000 0.0000000E+00 + -64.50000 -111.5000 0.0000000E+00 + -63.50000 -111.5000 0.0000000E+00 + -62.50000 -111.5000 0.0000000E+00 + -61.50000 -111.5000 0.0000000E+00 + -60.50000 -111.5000 0.0000000E+00 + -59.50000 -111.5000 0.0000000E+00 + -58.50000 -111.5000 0.0000000E+00 + -57.50000 -111.5000 0.0000000E+00 + -56.50000 -111.5000 0.0000000E+00 + -55.50000 -111.5000 0.0000000E+00 + -54.50000 -111.5000 0.0000000E+00 + -53.50000 -111.5000 0.0000000E+00 + -52.50000 -111.5000 0.0000000E+00 + -51.50000 -111.5000 0.0000000E+00 + -50.50000 -111.5000 0.0000000E+00 + -49.50000 -111.5000 0.0000000E+00 + -48.50000 -111.5000 0.0000000E+00 + -47.50000 -111.5000 0.0000000E+00 + -46.50000 -111.5000 0.0000000E+00 + -45.50000 -111.5000 0.0000000E+00 + -44.50000 -111.5000 0.0000000E+00 + -43.50000 -111.5000 0.0000000E+00 + -42.50000 -111.5000 0.0000000E+00 + -41.50000 -111.5000 0.0000000E+00 + -40.50000 -111.5000 0.0000000E+00 + -39.50000 -111.5000 0.0000000E+00 + -38.50000 -111.5000 0.0000000E+00 + -37.50000 -111.5000 0.0000000E+00 + -36.50000 -111.5000 0.0000000E+00 + -35.50000 -111.5000 0.0000000E+00 + -34.50000 -111.5000 0.0000000E+00 + -33.50000 -111.5000 0.0000000E+00 + -32.50000 -111.5000 0.0000000E+00 + -31.50000 -111.5000 0.0000000E+00 + -30.50000 -111.5000 0.0000000E+00 + -29.50000 -111.5000 0.0000000E+00 + -28.50000 -111.5000 0.0000000E+00 + -27.50000 -111.5000 0.0000000E+00 + -26.50000 -111.5000 0.0000000E+00 + -25.50000 -111.5000 0.0000000E+00 + -24.50000 -111.5000 0.0000000E+00 + -23.50000 -111.5000 0.0000000E+00 + -22.50000 -111.5000 0.0000000E+00 + -21.50000 -111.5000 0.0000000E+00 + -20.50000 -111.5000 0.0000000E+00 + -19.50000 -111.5000 0.0000000E+00 + -18.50000 -111.5000 0.0000000E+00 + -17.50000 -111.5000 0.0000000E+00 + -16.50000 -111.5000 0.0000000E+00 + -15.50000 -111.5000 0.0000000E+00 + -14.50000 -111.5000 0.0000000E+00 + -13.50000 -111.5000 0.0000000E+00 + -12.50000 -111.5000 0.0000000E+00 + -11.50000 -111.5000 0.0000000E+00 + -10.50000 -111.5000 0.0000000E+00 + -9.500000 -111.5000 0.0000000E+00 + -8.500000 -111.5000 0.0000000E+00 + -7.500000 -111.5000 0.0000000E+00 + -6.500000 -111.5000 0.0000000E+00 + -5.500000 -111.5000 0.0000000E+00 + -4.500000 -111.5000 0.0000000E+00 + -3.500000 -111.5000 0.0000000E+00 + -2.500000 -111.5000 0.0000000E+00 + -1.500000 -111.5000 0.0000000E+00 + -0.5000000 -111.5000 0.0000000E+00 + 0.5000000 -111.5000 0.0000000E+00 + 1.500000 -111.5000 0.0000000E+00 + 2.500000 -111.5000 0.0000000E+00 + 3.500000 -111.5000 0.0000000E+00 + 4.500000 -111.5000 0.0000000E+00 + 5.500000 -111.5000 0.0000000E+00 + 6.500000 -111.5000 0.0000000E+00 + 7.500000 -111.5000 0.0000000E+00 + 8.500000 -111.5000 0.0000000E+00 + 9.500000 -111.5000 0.0000000E+00 + 10.50000 -111.5000 0.0000000E+00 + 11.50000 -111.5000 0.0000000E+00 + 12.50000 -111.5000 0.0000000E+00 + 13.50000 -111.5000 0.0000000E+00 + 14.50000 -111.5000 0.0000000E+00 + 15.50000 -111.5000 0.0000000E+00 + 16.50000 -111.5000 0.0000000E+00 + 17.50000 -111.5000 0.0000000E+00 + 18.50000 -111.5000 0.0000000E+00 + 19.50000 -111.5000 0.0000000E+00 + 20.50000 -111.5000 0.0000000E+00 + 21.50000 -111.5000 0.0000000E+00 + 22.50000 -111.5000 0.0000000E+00 + 23.50000 -111.5000 0.0000000E+00 + 24.50000 -111.5000 0.0000000E+00 + 25.50000 -111.5000 1.2837294E-02 + 26.50000 -111.5000 0.0000000E+00 + 27.50000 -111.5000 0.0000000E+00 + 28.50000 -111.5000 3.1046072E-02 + 29.50000 -111.5000 0.0000000E+00 + 30.50000 -111.5000 0.0000000E+00 + 31.50000 -111.5000 0.0000000E+00 + 32.50000 -111.5000 1.2517015E-02 + 33.50000 -111.5000 0.0000000E+00 + 34.50000 -111.5000 0.0000000E+00 + 35.50000 -111.5000 0.0000000E+00 + 36.50000 -111.5000 1.3262267E-03 + 37.50000 -111.5000 6.4845261E-04 + 38.50000 -111.5000 0.0000000E+00 + 39.50000 -111.5000 0.0000000E+00 + 40.50000 -111.5000 0.0000000E+00 + 41.50000 -111.5000 0.0000000E+00 + 42.50000 -111.5000 0.0000000E+00 + 43.50000 -111.5000 0.0000000E+00 + 44.50000 -111.5000 0.0000000E+00 + 45.50000 -111.5000 0.0000000E+00 + 46.50000 -111.5000 0.0000000E+00 + 47.50000 -111.5000 0.0000000E+00 + 48.50000 -111.5000 0.0000000E+00 + 49.50000 -111.5000 0.0000000E+00 + 50.50000 -111.5000 0.0000000E+00 + 51.50000 -111.5000 0.0000000E+00 + 52.50000 -111.5000 0.0000000E+00 + 53.50000 -111.5000 0.0000000E+00 + 54.50000 -111.5000 0.0000000E+00 + 55.50000 -111.5000 0.0000000E+00 + 56.50000 -111.5000 0.0000000E+00 + 57.50000 -111.5000 0.0000000E+00 + 58.50000 -111.5000 0.0000000E+00 + 59.50000 -111.5000 0.0000000E+00 + 60.50000 -111.5000 0.0000000E+00 + 61.50000 -111.5000 0.0000000E+00 + 62.50000 -111.5000 0.0000000E+00 + 63.50000 -111.5000 0.0000000E+00 + 64.50000 -111.5000 0.0000000E+00 + 65.50000 -111.5000 0.0000000E+00 + 66.50000 -111.5000 0.0000000E+00 + 67.50000 -111.5000 0.0000000E+00 + 68.50000 -111.5000 0.0000000E+00 + 69.50000 -111.5000 0.0000000E+00 + 70.50000 -111.5000 0.0000000E+00 + 71.50000 -111.5000 0.0000000E+00 + 72.50000 -111.5000 0.0000000E+00 + 73.50000 -111.5000 0.0000000E+00 + 74.50000 -111.5000 0.0000000E+00 + 75.50000 -111.5000 0.0000000E+00 + 76.50000 -111.5000 0.0000000E+00 + 77.50000 -111.5000 0.0000000E+00 + 78.50000 -111.5000 0.0000000E+00 + 79.50000 -111.5000 0.0000000E+00 + 80.50000 -111.5000 0.0000000E+00 + 81.50000 -111.5000 0.0000000E+00 + 82.50000 -111.5000 0.0000000E+00 + 83.50000 -111.5000 0.0000000E+00 + 84.50000 -111.5000 0.0000000E+00 + 85.50000 -111.5000 0.0000000E+00 + 86.50000 -111.5000 0.0000000E+00 + 87.50000 -111.5000 0.0000000E+00 + 88.50000 -111.5000 0.0000000E+00 + 89.50000 -111.5000 0.0000000E+00 + -89.50000 -110.5000 0.0000000E+00 + -88.50000 -110.5000 0.0000000E+00 + -87.50000 -110.5000 0.0000000E+00 + -86.50000 -110.5000 0.0000000E+00 + -85.50000 -110.5000 0.0000000E+00 + -84.50000 -110.5000 0.0000000E+00 + -83.50000 -110.5000 0.0000000E+00 + -82.50000 -110.5000 0.0000000E+00 + -81.50000 -110.5000 0.0000000E+00 + -80.50000 -110.5000 0.0000000E+00 + -79.50000 -110.5000 0.0000000E+00 + -78.50000 -110.5000 0.0000000E+00 + -77.50000 -110.5000 0.0000000E+00 + -76.50000 -110.5000 0.0000000E+00 + -75.50000 -110.5000 0.0000000E+00 + -74.50000 -110.5000 0.0000000E+00 + -73.50000 -110.5000 0.0000000E+00 + -72.50000 -110.5000 0.0000000E+00 + -71.50000 -110.5000 0.0000000E+00 + -70.50000 -110.5000 0.0000000E+00 + -69.50000 -110.5000 0.0000000E+00 + -68.50000 -110.5000 0.0000000E+00 + -67.50000 -110.5000 0.0000000E+00 + -66.50000 -110.5000 0.0000000E+00 + -65.50000 -110.5000 0.0000000E+00 + -64.50000 -110.5000 0.0000000E+00 + -63.50000 -110.5000 0.0000000E+00 + -62.50000 -110.5000 0.0000000E+00 + -61.50000 -110.5000 0.0000000E+00 + -60.50000 -110.5000 0.0000000E+00 + -59.50000 -110.5000 0.0000000E+00 + -58.50000 -110.5000 0.0000000E+00 + -57.50000 -110.5000 0.0000000E+00 + -56.50000 -110.5000 0.0000000E+00 + -55.50000 -110.5000 0.0000000E+00 + -54.50000 -110.5000 0.0000000E+00 + -53.50000 -110.5000 0.0000000E+00 + -52.50000 -110.5000 0.0000000E+00 + -51.50000 -110.5000 0.0000000E+00 + -50.50000 -110.5000 0.0000000E+00 + -49.50000 -110.5000 0.0000000E+00 + -48.50000 -110.5000 0.0000000E+00 + -47.50000 -110.5000 0.0000000E+00 + -46.50000 -110.5000 0.0000000E+00 + -45.50000 -110.5000 0.0000000E+00 + -44.50000 -110.5000 0.0000000E+00 + -43.50000 -110.5000 0.0000000E+00 + -42.50000 -110.5000 0.0000000E+00 + -41.50000 -110.5000 0.0000000E+00 + -40.50000 -110.5000 0.0000000E+00 + -39.50000 -110.5000 0.0000000E+00 + -38.50000 -110.5000 0.0000000E+00 + -37.50000 -110.5000 0.0000000E+00 + -36.50000 -110.5000 0.0000000E+00 + -35.50000 -110.5000 0.0000000E+00 + -34.50000 -110.5000 0.0000000E+00 + -33.50000 -110.5000 0.0000000E+00 + -32.50000 -110.5000 0.0000000E+00 + -31.50000 -110.5000 0.0000000E+00 + -30.50000 -110.5000 0.0000000E+00 + -29.50000 -110.5000 0.0000000E+00 + -28.50000 -110.5000 0.0000000E+00 + -27.50000 -110.5000 0.0000000E+00 + -26.50000 -110.5000 0.0000000E+00 + -25.50000 -110.5000 0.0000000E+00 + -24.50000 -110.5000 0.0000000E+00 + -23.50000 -110.5000 0.0000000E+00 + -22.50000 -110.5000 0.0000000E+00 + -21.50000 -110.5000 0.0000000E+00 + -20.50000 -110.5000 0.0000000E+00 + -19.50000 -110.5000 0.0000000E+00 + -18.50000 -110.5000 0.0000000E+00 + -17.50000 -110.5000 0.0000000E+00 + -16.50000 -110.5000 0.0000000E+00 + -15.50000 -110.5000 0.0000000E+00 + -14.50000 -110.5000 0.0000000E+00 + -13.50000 -110.5000 0.0000000E+00 + -12.50000 -110.5000 0.0000000E+00 + -11.50000 -110.5000 0.0000000E+00 + -10.50000 -110.5000 0.0000000E+00 + -9.500000 -110.5000 0.0000000E+00 + -8.500000 -110.5000 0.0000000E+00 + -7.500000 -110.5000 0.0000000E+00 + -6.500000 -110.5000 0.0000000E+00 + -5.500000 -110.5000 0.0000000E+00 + -4.500000 -110.5000 0.0000000E+00 + -3.500000 -110.5000 0.0000000E+00 + -2.500000 -110.5000 0.0000000E+00 + -1.500000 -110.5000 0.0000000E+00 + -0.5000000 -110.5000 0.0000000E+00 + 0.5000000 -110.5000 0.0000000E+00 + 1.500000 -110.5000 0.0000000E+00 + 2.500000 -110.5000 0.0000000E+00 + 3.500000 -110.5000 0.0000000E+00 + 4.500000 -110.5000 0.0000000E+00 + 5.500000 -110.5000 0.0000000E+00 + 6.500000 -110.5000 0.0000000E+00 + 7.500000 -110.5000 0.0000000E+00 + 8.500000 -110.5000 0.0000000E+00 + 9.500000 -110.5000 0.0000000E+00 + 10.50000 -110.5000 0.0000000E+00 + 11.50000 -110.5000 0.0000000E+00 + 12.50000 -110.5000 0.0000000E+00 + 13.50000 -110.5000 0.0000000E+00 + 14.50000 -110.5000 0.0000000E+00 + 15.50000 -110.5000 0.0000000E+00 + 16.50000 -110.5000 0.0000000E+00 + 17.50000 -110.5000 0.0000000E+00 + 18.50000 -110.5000 0.0000000E+00 + 19.50000 -110.5000 0.0000000E+00 + 20.50000 -110.5000 0.0000000E+00 + 21.50000 -110.5000 0.0000000E+00 + 22.50000 -110.5000 0.0000000E+00 + 23.50000 -110.5000 0.0000000E+00 + 24.50000 -110.5000 0.0000000E+00 + 25.50000 -110.5000 0.0000000E+00 + 26.50000 -110.5000 0.0000000E+00 + 27.50000 -110.5000 0.0000000E+00 + 28.50000 -110.5000 0.0000000E+00 + 29.50000 -110.5000 0.0000000E+00 + 30.50000 -110.5000 0.0000000E+00 + 31.50000 -110.5000 0.0000000E+00 + 32.50000 -110.5000 0.0000000E+00 + 33.50000 -110.5000 0.0000000E+00 + 34.50000 -110.5000 0.0000000E+00 + 35.50000 -110.5000 6.4845261E-04 + 36.50000 -110.5000 4.3457793E-04 + 37.50000 -110.5000 9.3929423E-04 + 38.50000 -110.5000 9.3929423E-04 + 39.50000 -110.5000 0.0000000E+00 + 40.50000 -110.5000 0.0000000E+00 + 41.50000 -110.5000 0.0000000E+00 + 42.50000 -110.5000 0.0000000E+00 + 43.50000 -110.5000 0.0000000E+00 + 44.50000 -110.5000 0.0000000E+00 + 45.50000 -110.5000 0.0000000E+00 + 46.50000 -110.5000 0.0000000E+00 + 47.50000 -110.5000 0.0000000E+00 + 48.50000 -110.5000 0.0000000E+00 + 49.50000 -110.5000 0.0000000E+00 + 50.50000 -110.5000 0.0000000E+00 + 51.50000 -110.5000 0.0000000E+00 + 52.50000 -110.5000 0.0000000E+00 + 53.50000 -110.5000 0.0000000E+00 + 54.50000 -110.5000 0.0000000E+00 + 55.50000 -110.5000 0.0000000E+00 + 56.50000 -110.5000 0.0000000E+00 + 57.50000 -110.5000 0.0000000E+00 + 58.50000 -110.5000 0.0000000E+00 + 59.50000 -110.5000 0.0000000E+00 + 60.50000 -110.5000 0.0000000E+00 + 61.50000 -110.5000 0.0000000E+00 + 62.50000 -110.5000 0.0000000E+00 + 63.50000 -110.5000 0.0000000E+00 + 64.50000 -110.5000 0.0000000E+00 + 65.50000 -110.5000 0.0000000E+00 + 66.50000 -110.5000 0.0000000E+00 + 67.50000 -110.5000 0.0000000E+00 + 68.50000 -110.5000 0.0000000E+00 + 69.50000 -110.5000 0.0000000E+00 + 70.50000 -110.5000 0.0000000E+00 + 71.50000 -110.5000 0.0000000E+00 + 72.50000 -110.5000 0.0000000E+00 + 73.50000 -110.5000 0.0000000E+00 + 74.50000 -110.5000 0.0000000E+00 + 75.50000 -110.5000 0.0000000E+00 + 76.50000 -110.5000 0.0000000E+00 + 77.50000 -110.5000 0.0000000E+00 + 78.50000 -110.5000 0.0000000E+00 + 79.50000 -110.5000 0.0000000E+00 + 80.50000 -110.5000 0.0000000E+00 + 81.50000 -110.5000 0.0000000E+00 + 82.50000 -110.5000 0.0000000E+00 + 83.50000 -110.5000 0.0000000E+00 + 84.50000 -110.5000 0.0000000E+00 + 85.50000 -110.5000 0.0000000E+00 + 86.50000 -110.5000 0.0000000E+00 + 87.50000 -110.5000 0.0000000E+00 + 88.50000 -110.5000 0.0000000E+00 + 89.50000 -110.5000 0.0000000E+00 + -89.50000 -109.5000 0.0000000E+00 + -88.50000 -109.5000 0.0000000E+00 + -87.50000 -109.5000 0.0000000E+00 + -86.50000 -109.5000 0.0000000E+00 + -85.50000 -109.5000 0.0000000E+00 + -84.50000 -109.5000 0.0000000E+00 + -83.50000 -109.5000 0.0000000E+00 + -82.50000 -109.5000 0.0000000E+00 + -81.50000 -109.5000 0.0000000E+00 + -80.50000 -109.5000 0.0000000E+00 + -79.50000 -109.5000 0.0000000E+00 + -78.50000 -109.5000 0.0000000E+00 + -77.50000 -109.5000 0.0000000E+00 + -76.50000 -109.5000 0.0000000E+00 + -75.50000 -109.5000 0.0000000E+00 + -74.50000 -109.5000 0.0000000E+00 + -73.50000 -109.5000 0.0000000E+00 + -72.50000 -109.5000 0.0000000E+00 + -71.50000 -109.5000 0.0000000E+00 + -70.50000 -109.5000 0.0000000E+00 + -69.50000 -109.5000 0.0000000E+00 + -68.50000 -109.5000 0.0000000E+00 + -67.50000 -109.5000 0.0000000E+00 + -66.50000 -109.5000 0.0000000E+00 + -65.50000 -109.5000 0.0000000E+00 + -64.50000 -109.5000 0.0000000E+00 + -63.50000 -109.5000 0.0000000E+00 + -62.50000 -109.5000 0.0000000E+00 + -61.50000 -109.5000 0.0000000E+00 + -60.50000 -109.5000 0.0000000E+00 + -59.50000 -109.5000 0.0000000E+00 + -58.50000 -109.5000 0.0000000E+00 + -57.50000 -109.5000 0.0000000E+00 + -56.50000 -109.5000 0.0000000E+00 + -55.50000 -109.5000 0.0000000E+00 + -54.50000 -109.5000 0.0000000E+00 + -53.50000 -109.5000 0.0000000E+00 + -52.50000 -109.5000 0.0000000E+00 + -51.50000 -109.5000 0.0000000E+00 + -50.50000 -109.5000 0.0000000E+00 + -49.50000 -109.5000 0.0000000E+00 + -48.50000 -109.5000 0.0000000E+00 + -47.50000 -109.5000 0.0000000E+00 + -46.50000 -109.5000 0.0000000E+00 + -45.50000 -109.5000 0.0000000E+00 + -44.50000 -109.5000 0.0000000E+00 + -43.50000 -109.5000 0.0000000E+00 + -42.50000 -109.5000 0.0000000E+00 + -41.50000 -109.5000 0.0000000E+00 + -40.50000 -109.5000 0.0000000E+00 + -39.50000 -109.5000 0.0000000E+00 + -38.50000 -109.5000 0.0000000E+00 + -37.50000 -109.5000 0.0000000E+00 + -36.50000 -109.5000 0.0000000E+00 + -35.50000 -109.5000 0.0000000E+00 + -34.50000 -109.5000 0.0000000E+00 + -33.50000 -109.5000 0.0000000E+00 + -32.50000 -109.5000 0.0000000E+00 + -31.50000 -109.5000 0.0000000E+00 + -30.50000 -109.5000 0.0000000E+00 + -29.50000 -109.5000 0.0000000E+00 + -28.50000 -109.5000 0.0000000E+00 + -27.50000 -109.5000 0.0000000E+00 + -26.50000 -109.5000 0.0000000E+00 + -25.50000 -109.5000 0.0000000E+00 + -24.50000 -109.5000 0.0000000E+00 + -23.50000 -109.5000 0.0000000E+00 + -22.50000 -109.5000 0.0000000E+00 + -21.50000 -109.5000 0.0000000E+00 + -20.50000 -109.5000 0.0000000E+00 + -19.50000 -109.5000 0.0000000E+00 + -18.50000 -109.5000 0.0000000E+00 + -17.50000 -109.5000 0.0000000E+00 + -16.50000 -109.5000 0.0000000E+00 + -15.50000 -109.5000 0.0000000E+00 + -14.50000 -109.5000 0.0000000E+00 + -13.50000 -109.5000 0.0000000E+00 + -12.50000 -109.5000 0.0000000E+00 + -11.50000 -109.5000 0.0000000E+00 + -10.50000 -109.5000 0.0000000E+00 + -9.500000 -109.5000 0.0000000E+00 + -8.500000 -109.5000 0.0000000E+00 + -7.500000 -109.5000 0.0000000E+00 + -6.500000 -109.5000 0.0000000E+00 + -5.500000 -109.5000 0.0000000E+00 + -4.500000 -109.5000 0.0000000E+00 + -3.500000 -109.5000 0.0000000E+00 + -2.500000 -109.5000 0.0000000E+00 + -1.500000 -109.5000 0.0000000E+00 + -0.5000000 -109.5000 0.0000000E+00 + 0.5000000 -109.5000 0.0000000E+00 + 1.500000 -109.5000 0.0000000E+00 + 2.500000 -109.5000 0.0000000E+00 + 3.500000 -109.5000 0.0000000E+00 + 4.500000 -109.5000 0.0000000E+00 + 5.500000 -109.5000 0.0000000E+00 + 6.500000 -109.5000 0.0000000E+00 + 7.500000 -109.5000 0.0000000E+00 + 8.500000 -109.5000 0.0000000E+00 + 9.500000 -109.5000 0.0000000E+00 + 10.50000 -109.5000 0.0000000E+00 + 11.50000 -109.5000 0.0000000E+00 + 12.50000 -109.5000 0.0000000E+00 + 13.50000 -109.5000 0.0000000E+00 + 14.50000 -109.5000 0.0000000E+00 + 15.50000 -109.5000 0.0000000E+00 + 16.50000 -109.5000 0.0000000E+00 + 17.50000 -109.5000 0.0000000E+00 + 18.50000 -109.5000 0.0000000E+00 + 19.50000 -109.5000 0.0000000E+00 + 20.50000 -109.5000 0.0000000E+00 + 21.50000 -109.5000 0.0000000E+00 + 22.50000 -109.5000 0.0000000E+00 + 23.50000 -109.5000 0.0000000E+00 + 24.50000 -109.5000 0.0000000E+00 + 25.50000 -109.5000 0.0000000E+00 + 26.50000 -109.5000 0.0000000E+00 + 27.50000 -109.5000 0.0000000E+00 + 28.50000 -109.5000 0.0000000E+00 + 29.50000 -109.5000 0.0000000E+00 + 30.50000 -109.5000 0.0000000E+00 + 31.50000 -109.5000 0.0000000E+00 + 32.50000 -109.5000 0.0000000E+00 + 33.50000 -109.5000 0.0000000E+00 + 34.50000 -109.5000 0.0000000E+00 + 35.50000 -109.5000 6.4845261E-04 + 36.50000 -109.5000 0.0000000E+00 + 37.50000 -109.5000 0.0000000E+00 + 38.50000 -109.5000 0.0000000E+00 + 39.50000 -109.5000 0.0000000E+00 + 40.50000 -109.5000 0.0000000E+00 + 41.50000 -109.5000 0.0000000E+00 + 42.50000 -109.5000 0.0000000E+00 + 43.50000 -109.5000 0.0000000E+00 + 44.50000 -109.5000 0.0000000E+00 + 45.50000 -109.5000 0.0000000E+00 + 46.50000 -109.5000 0.0000000E+00 + 47.50000 -109.5000 0.0000000E+00 + 48.50000 -109.5000 0.0000000E+00 + 49.50000 -109.5000 0.0000000E+00 + 50.50000 -109.5000 0.0000000E+00 + 51.50000 -109.5000 0.0000000E+00 + 52.50000 -109.5000 0.0000000E+00 + 53.50000 -109.5000 0.0000000E+00 + 54.50000 -109.5000 0.0000000E+00 + 55.50000 -109.5000 0.0000000E+00 + 56.50000 -109.5000 0.0000000E+00 + 57.50000 -109.5000 0.0000000E+00 + 58.50000 -109.5000 0.0000000E+00 + 59.50000 -109.5000 0.0000000E+00 + 60.50000 -109.5000 0.0000000E+00 + 61.50000 -109.5000 0.0000000E+00 + 62.50000 -109.5000 0.0000000E+00 + 63.50000 -109.5000 0.0000000E+00 + 64.50000 -109.5000 0.0000000E+00 + 65.50000 -109.5000 0.0000000E+00 + 66.50000 -109.5000 0.0000000E+00 + 67.50000 -109.5000 0.0000000E+00 + 68.50000 -109.5000 0.0000000E+00 + 69.50000 -109.5000 0.0000000E+00 + 70.50000 -109.5000 0.0000000E+00 + 71.50000 -109.5000 0.0000000E+00 + 72.50000 -109.5000 0.0000000E+00 + 73.50000 -109.5000 0.0000000E+00 + 74.50000 -109.5000 0.0000000E+00 + 75.50000 -109.5000 0.0000000E+00 + 76.50000 -109.5000 0.0000000E+00 + 77.50000 -109.5000 0.0000000E+00 + 78.50000 -109.5000 0.0000000E+00 + 79.50000 -109.5000 0.0000000E+00 + 80.50000 -109.5000 0.0000000E+00 + 81.50000 -109.5000 0.0000000E+00 + 82.50000 -109.5000 0.0000000E+00 + 83.50000 -109.5000 0.0000000E+00 + 84.50000 -109.5000 0.0000000E+00 + 85.50000 -109.5000 0.0000000E+00 + 86.50000 -109.5000 0.0000000E+00 + 87.50000 -109.5000 0.0000000E+00 + 88.50000 -109.5000 0.0000000E+00 + 89.50000 -109.5000 0.0000000E+00 + -89.50000 -108.5000 0.0000000E+00 + -88.50000 -108.5000 0.0000000E+00 + -87.50000 -108.5000 0.0000000E+00 + -86.50000 -108.5000 0.0000000E+00 + -85.50000 -108.5000 0.0000000E+00 + -84.50000 -108.5000 0.0000000E+00 + -83.50000 -108.5000 0.0000000E+00 + -82.50000 -108.5000 0.0000000E+00 + -81.50000 -108.5000 0.0000000E+00 + -80.50000 -108.5000 0.0000000E+00 + -79.50000 -108.5000 0.0000000E+00 + -78.50000 -108.5000 0.0000000E+00 + -77.50000 -108.5000 0.0000000E+00 + -76.50000 -108.5000 0.0000000E+00 + -75.50000 -108.5000 0.0000000E+00 + -74.50000 -108.5000 0.0000000E+00 + -73.50000 -108.5000 0.0000000E+00 + -72.50000 -108.5000 0.0000000E+00 + -71.50000 -108.5000 0.0000000E+00 + -70.50000 -108.5000 0.0000000E+00 + -69.50000 -108.5000 0.0000000E+00 + -68.50000 -108.5000 0.0000000E+00 + -67.50000 -108.5000 0.0000000E+00 + -66.50000 -108.5000 0.0000000E+00 + -65.50000 -108.5000 0.0000000E+00 + -64.50000 -108.5000 0.0000000E+00 + -63.50000 -108.5000 0.0000000E+00 + -62.50000 -108.5000 0.0000000E+00 + -61.50000 -108.5000 0.0000000E+00 + -60.50000 -108.5000 0.0000000E+00 + -59.50000 -108.5000 0.0000000E+00 + -58.50000 -108.5000 0.0000000E+00 + -57.50000 -108.5000 0.0000000E+00 + -56.50000 -108.5000 0.0000000E+00 + -55.50000 -108.5000 0.0000000E+00 + -54.50000 -108.5000 0.0000000E+00 + -53.50000 -108.5000 0.0000000E+00 + -52.50000 -108.5000 0.0000000E+00 + -51.50000 -108.5000 0.0000000E+00 + -50.50000 -108.5000 0.0000000E+00 + -49.50000 -108.5000 0.0000000E+00 + -48.50000 -108.5000 0.0000000E+00 + -47.50000 -108.5000 0.0000000E+00 + -46.50000 -108.5000 0.0000000E+00 + -45.50000 -108.5000 0.0000000E+00 + -44.50000 -108.5000 0.0000000E+00 + -43.50000 -108.5000 0.0000000E+00 + -42.50000 -108.5000 0.0000000E+00 + -41.50000 -108.5000 0.0000000E+00 + -40.50000 -108.5000 0.0000000E+00 + -39.50000 -108.5000 0.0000000E+00 + -38.50000 -108.5000 0.0000000E+00 + -37.50000 -108.5000 0.0000000E+00 + -36.50000 -108.5000 0.0000000E+00 + -35.50000 -108.5000 0.0000000E+00 + -34.50000 -108.5000 0.0000000E+00 + -33.50000 -108.5000 0.0000000E+00 + -32.50000 -108.5000 0.0000000E+00 + -31.50000 -108.5000 0.0000000E+00 + -30.50000 -108.5000 0.0000000E+00 + -29.50000 -108.5000 0.0000000E+00 + -28.50000 -108.5000 0.0000000E+00 + -27.50000 -108.5000 0.0000000E+00 + -26.50000 -108.5000 0.0000000E+00 + -25.50000 -108.5000 0.0000000E+00 + -24.50000 -108.5000 0.0000000E+00 + -23.50000 -108.5000 0.0000000E+00 + -22.50000 -108.5000 0.0000000E+00 + -21.50000 -108.5000 0.0000000E+00 + -20.50000 -108.5000 0.0000000E+00 + -19.50000 -108.5000 0.0000000E+00 + -18.50000 -108.5000 0.0000000E+00 + -17.50000 -108.5000 0.0000000E+00 + -16.50000 -108.5000 0.0000000E+00 + -15.50000 -108.5000 0.0000000E+00 + -14.50000 -108.5000 0.0000000E+00 + -13.50000 -108.5000 0.0000000E+00 + -12.50000 -108.5000 0.0000000E+00 + -11.50000 -108.5000 0.0000000E+00 + -10.50000 -108.5000 0.0000000E+00 + -9.500000 -108.5000 0.0000000E+00 + -8.500000 -108.5000 0.0000000E+00 + -7.500000 -108.5000 0.0000000E+00 + -6.500000 -108.5000 0.0000000E+00 + -5.500000 -108.5000 0.0000000E+00 + -4.500000 -108.5000 0.0000000E+00 + -3.500000 -108.5000 0.0000000E+00 + -2.500000 -108.5000 0.0000000E+00 + -1.500000 -108.5000 0.0000000E+00 + -0.5000000 -108.5000 0.0000000E+00 + 0.5000000 -108.5000 0.0000000E+00 + 1.500000 -108.5000 0.0000000E+00 + 2.500000 -108.5000 0.0000000E+00 + 3.500000 -108.5000 0.0000000E+00 + 4.500000 -108.5000 0.0000000E+00 + 5.500000 -108.5000 0.0000000E+00 + 6.500000 -108.5000 0.0000000E+00 + 7.500000 -108.5000 0.0000000E+00 + 8.500000 -108.5000 0.0000000E+00 + 9.500000 -108.5000 0.0000000E+00 + 10.50000 -108.5000 0.0000000E+00 + 11.50000 -108.5000 0.0000000E+00 + 12.50000 -108.5000 0.0000000E+00 + 13.50000 -108.5000 0.0000000E+00 + 14.50000 -108.5000 0.0000000E+00 + 15.50000 -108.5000 0.0000000E+00 + 16.50000 -108.5000 0.0000000E+00 + 17.50000 -108.5000 0.0000000E+00 + 18.50000 -108.5000 0.0000000E+00 + 19.50000 -108.5000 0.0000000E+00 + 20.50000 -108.5000 0.0000000E+00 + 21.50000 -108.5000 0.0000000E+00 + 22.50000 -108.5000 0.0000000E+00 + 23.50000 -108.5000 0.0000000E+00 + 24.50000 -108.5000 0.0000000E+00 + 25.50000 -108.5000 0.0000000E+00 + 26.50000 -108.5000 0.0000000E+00 + 27.50000 -108.5000 0.0000000E+00 + 28.50000 -108.5000 0.0000000E+00 + 29.50000 -108.5000 0.0000000E+00 + 30.50000 -108.5000 0.0000000E+00 + 31.50000 -108.5000 0.0000000E+00 + 32.50000 -108.5000 0.0000000E+00 + 33.50000 -108.5000 0.0000000E+00 + 34.50000 -108.5000 0.0000000E+00 + 35.50000 -108.5000 0.0000000E+00 + 36.50000 -108.5000 6.4845261E-04 + 37.50000 -108.5000 0.0000000E+00 + 38.50000 -108.5000 0.0000000E+00 + 39.50000 -108.5000 0.0000000E+00 + 40.50000 -108.5000 0.0000000E+00 + 41.50000 -108.5000 0.0000000E+00 + 42.50000 -108.5000 0.0000000E+00 + 43.50000 -108.5000 0.0000000E+00 + 44.50000 -108.5000 0.0000000E+00 + 45.50000 -108.5000 0.0000000E+00 + 46.50000 -108.5000 0.0000000E+00 + 47.50000 -108.5000 0.0000000E+00 + 48.50000 -108.5000 0.0000000E+00 + 49.50000 -108.5000 0.0000000E+00 + 50.50000 -108.5000 0.0000000E+00 + 51.50000 -108.5000 0.0000000E+00 + 52.50000 -108.5000 0.0000000E+00 + 53.50000 -108.5000 0.0000000E+00 + 54.50000 -108.5000 0.0000000E+00 + 55.50000 -108.5000 0.0000000E+00 + 56.50000 -108.5000 0.0000000E+00 + 57.50000 -108.5000 0.0000000E+00 + 58.50000 -108.5000 0.0000000E+00 + 59.50000 -108.5000 0.0000000E+00 + 60.50000 -108.5000 0.0000000E+00 + 61.50000 -108.5000 0.0000000E+00 + 62.50000 -108.5000 0.0000000E+00 + 63.50000 -108.5000 0.0000000E+00 + 64.50000 -108.5000 0.0000000E+00 + 65.50000 -108.5000 0.0000000E+00 + 66.50000 -108.5000 0.0000000E+00 + 67.50000 -108.5000 0.0000000E+00 + 68.50000 -108.5000 0.0000000E+00 + 69.50000 -108.5000 0.0000000E+00 + 70.50000 -108.5000 0.0000000E+00 + 71.50000 -108.5000 0.0000000E+00 + 72.50000 -108.5000 0.0000000E+00 + 73.50000 -108.5000 0.0000000E+00 + 74.50000 -108.5000 0.0000000E+00 + 75.50000 -108.5000 0.0000000E+00 + 76.50000 -108.5000 0.0000000E+00 + 77.50000 -108.5000 0.0000000E+00 + 78.50000 -108.5000 0.0000000E+00 + 79.50000 -108.5000 0.0000000E+00 + 80.50000 -108.5000 0.0000000E+00 + 81.50000 -108.5000 0.0000000E+00 + 82.50000 -108.5000 0.0000000E+00 + 83.50000 -108.5000 0.0000000E+00 + 84.50000 -108.5000 0.0000000E+00 + 85.50000 -108.5000 0.0000000E+00 + 86.50000 -108.5000 0.0000000E+00 + 87.50000 -108.5000 0.0000000E+00 + 88.50000 -108.5000 0.0000000E+00 + 89.50000 -108.5000 0.0000000E+00 + -89.50000 -107.5000 0.0000000E+00 + -88.50000 -107.5000 0.0000000E+00 + -87.50000 -107.5000 0.0000000E+00 + -86.50000 -107.5000 0.0000000E+00 + -85.50000 -107.5000 0.0000000E+00 + -84.50000 -107.5000 0.0000000E+00 + -83.50000 -107.5000 0.0000000E+00 + -82.50000 -107.5000 0.0000000E+00 + -81.50000 -107.5000 0.0000000E+00 + -80.50000 -107.5000 0.0000000E+00 + -79.50000 -107.5000 0.0000000E+00 + -78.50000 -107.5000 0.0000000E+00 + -77.50000 -107.5000 0.0000000E+00 + -76.50000 -107.5000 0.0000000E+00 + -75.50000 -107.5000 0.0000000E+00 + -74.50000 -107.5000 0.0000000E+00 + -73.50000 -107.5000 0.0000000E+00 + -72.50000 -107.5000 0.0000000E+00 + -71.50000 -107.5000 0.0000000E+00 + -70.50000 -107.5000 0.0000000E+00 + -69.50000 -107.5000 0.0000000E+00 + -68.50000 -107.5000 0.0000000E+00 + -67.50000 -107.5000 0.0000000E+00 + -66.50000 -107.5000 0.0000000E+00 + -65.50000 -107.5000 0.0000000E+00 + -64.50000 -107.5000 0.0000000E+00 + -63.50000 -107.5000 0.0000000E+00 + -62.50000 -107.5000 0.0000000E+00 + -61.50000 -107.5000 0.0000000E+00 + -60.50000 -107.5000 0.0000000E+00 + -59.50000 -107.5000 0.0000000E+00 + -58.50000 -107.5000 0.0000000E+00 + -57.50000 -107.5000 0.0000000E+00 + -56.50000 -107.5000 0.0000000E+00 + -55.50000 -107.5000 0.0000000E+00 + -54.50000 -107.5000 0.0000000E+00 + -53.50000 -107.5000 0.0000000E+00 + -52.50000 -107.5000 0.0000000E+00 + -51.50000 -107.5000 0.0000000E+00 + -50.50000 -107.5000 0.0000000E+00 + -49.50000 -107.5000 0.0000000E+00 + -48.50000 -107.5000 0.0000000E+00 + -47.50000 -107.5000 0.0000000E+00 + -46.50000 -107.5000 0.0000000E+00 + -45.50000 -107.5000 0.0000000E+00 + -44.50000 -107.5000 0.0000000E+00 + -43.50000 -107.5000 0.0000000E+00 + -42.50000 -107.5000 0.0000000E+00 + -41.50000 -107.5000 0.0000000E+00 + -40.50000 -107.5000 0.0000000E+00 + -39.50000 -107.5000 0.0000000E+00 + -38.50000 -107.5000 0.0000000E+00 + -37.50000 -107.5000 0.0000000E+00 + -36.50000 -107.5000 0.0000000E+00 + -35.50000 -107.5000 0.0000000E+00 + -34.50000 -107.5000 0.0000000E+00 + -33.50000 -107.5000 0.0000000E+00 + -32.50000 -107.5000 0.0000000E+00 + -31.50000 -107.5000 0.0000000E+00 + -30.50000 -107.5000 0.0000000E+00 + -29.50000 -107.5000 0.0000000E+00 + -28.50000 -107.5000 0.0000000E+00 + -27.50000 -107.5000 0.0000000E+00 + -26.50000 -107.5000 0.0000000E+00 + -25.50000 -107.5000 0.0000000E+00 + -24.50000 -107.5000 0.0000000E+00 + -23.50000 -107.5000 0.0000000E+00 + -22.50000 -107.5000 0.0000000E+00 + -21.50000 -107.5000 0.0000000E+00 + -20.50000 -107.5000 0.0000000E+00 + -19.50000 -107.5000 0.0000000E+00 + -18.50000 -107.5000 0.0000000E+00 + -17.50000 -107.5000 0.0000000E+00 + -16.50000 -107.5000 0.0000000E+00 + -15.50000 -107.5000 0.0000000E+00 + -14.50000 -107.5000 0.0000000E+00 + -13.50000 -107.5000 0.0000000E+00 + -12.50000 -107.5000 0.0000000E+00 + -11.50000 -107.5000 0.0000000E+00 + -10.50000 -107.5000 0.0000000E+00 + -9.500000 -107.5000 0.0000000E+00 + -8.500000 -107.5000 0.0000000E+00 + -7.500000 -107.5000 0.0000000E+00 + -6.500000 -107.5000 0.0000000E+00 + -5.500000 -107.5000 0.0000000E+00 + -4.500000 -107.5000 0.0000000E+00 + -3.500000 -107.5000 0.0000000E+00 + -2.500000 -107.5000 0.0000000E+00 + -1.500000 -107.5000 0.0000000E+00 + -0.5000000 -107.5000 0.0000000E+00 + 0.5000000 -107.5000 0.0000000E+00 + 1.500000 -107.5000 0.0000000E+00 + 2.500000 -107.5000 0.0000000E+00 + 3.500000 -107.5000 0.0000000E+00 + 4.500000 -107.5000 0.0000000E+00 + 5.500000 -107.5000 0.0000000E+00 + 6.500000 -107.5000 0.0000000E+00 + 7.500000 -107.5000 0.0000000E+00 + 8.500000 -107.5000 0.0000000E+00 + 9.500000 -107.5000 0.0000000E+00 + 10.50000 -107.5000 0.0000000E+00 + 11.50000 -107.5000 0.0000000E+00 + 12.50000 -107.5000 0.0000000E+00 + 13.50000 -107.5000 0.0000000E+00 + 14.50000 -107.5000 0.0000000E+00 + 15.50000 -107.5000 0.0000000E+00 + 16.50000 -107.5000 0.0000000E+00 + 17.50000 -107.5000 0.0000000E+00 + 18.50000 -107.5000 0.0000000E+00 + 19.50000 -107.5000 0.0000000E+00 + 20.50000 -107.5000 0.0000000E+00 + 21.50000 -107.5000 0.0000000E+00 + 22.50000 -107.5000 0.0000000E+00 + 23.50000 -107.5000 0.0000000E+00 + 24.50000 -107.5000 0.0000000E+00 + 25.50000 -107.5000 0.0000000E+00 + 26.50000 -107.5000 0.0000000E+00 + 27.50000 -107.5000 0.0000000E+00 + 28.50000 -107.5000 0.0000000E+00 + 29.50000 -107.5000 0.0000000E+00 + 30.50000 -107.5000 0.0000000E+00 + 31.50000 -107.5000 0.0000000E+00 + 32.50000 -107.5000 0.0000000E+00 + 33.50000 -107.5000 0.0000000E+00 + 34.50000 -107.5000 0.0000000E+00 + 35.50000 -107.5000 0.0000000E+00 + 36.50000 -107.5000 1.0312739E-04 + 37.50000 -107.5000 0.0000000E+00 + 38.50000 -107.5000 0.0000000E+00 + 39.50000 -107.5000 0.0000000E+00 + 40.50000 -107.5000 0.0000000E+00 + 41.50000 -107.5000 0.0000000E+00 + 42.50000 -107.5000 0.0000000E+00 + 43.50000 -107.5000 0.0000000E+00 + 44.50000 -107.5000 0.0000000E+00 + 45.50000 -107.5000 0.0000000E+00 + 46.50000 -107.5000 0.0000000E+00 + 47.50000 -107.5000 0.0000000E+00 + 48.50000 -107.5000 0.0000000E+00 + 49.50000 -107.5000 0.0000000E+00 + 50.50000 -107.5000 0.0000000E+00 + 51.50000 -107.5000 0.0000000E+00 + 52.50000 -107.5000 0.0000000E+00 + 53.50000 -107.5000 0.0000000E+00 + 54.50000 -107.5000 0.0000000E+00 + 55.50000 -107.5000 0.0000000E+00 + 56.50000 -107.5000 0.0000000E+00 + 57.50000 -107.5000 0.0000000E+00 + 58.50000 -107.5000 0.0000000E+00 + 59.50000 -107.5000 0.0000000E+00 + 60.50000 -107.5000 0.0000000E+00 + 61.50000 -107.5000 0.0000000E+00 + 62.50000 -107.5000 0.0000000E+00 + 63.50000 -107.5000 0.0000000E+00 + 64.50000 -107.5000 0.0000000E+00 + 65.50000 -107.5000 0.0000000E+00 + 66.50000 -107.5000 0.0000000E+00 + 67.50000 -107.5000 0.0000000E+00 + 68.50000 -107.5000 0.0000000E+00 + 69.50000 -107.5000 0.0000000E+00 + 70.50000 -107.5000 0.0000000E+00 + 71.50000 -107.5000 0.0000000E+00 + 72.50000 -107.5000 0.0000000E+00 + 73.50000 -107.5000 0.0000000E+00 + 74.50000 -107.5000 0.0000000E+00 + 75.50000 -107.5000 0.0000000E+00 + 76.50000 -107.5000 0.0000000E+00 + 77.50000 -107.5000 0.0000000E+00 + 78.50000 -107.5000 0.0000000E+00 + 79.50000 -107.5000 0.0000000E+00 + 80.50000 -107.5000 0.0000000E+00 + 81.50000 -107.5000 0.0000000E+00 + 82.50000 -107.5000 0.0000000E+00 + 83.50000 -107.5000 0.0000000E+00 + 84.50000 -107.5000 0.0000000E+00 + 85.50000 -107.5000 0.0000000E+00 + 86.50000 -107.5000 0.0000000E+00 + 87.50000 -107.5000 0.0000000E+00 + 88.50000 -107.5000 0.0000000E+00 + 89.50000 -107.5000 0.0000000E+00 + -89.50000 -106.5000 0.0000000E+00 + -88.50000 -106.5000 0.0000000E+00 + -87.50000 -106.5000 0.0000000E+00 + -86.50000 -106.5000 0.0000000E+00 + -85.50000 -106.5000 0.0000000E+00 + -84.50000 -106.5000 0.0000000E+00 + -83.50000 -106.5000 0.0000000E+00 + -82.50000 -106.5000 0.0000000E+00 + -81.50000 -106.5000 0.0000000E+00 + -80.50000 -106.5000 0.0000000E+00 + -79.50000 -106.5000 0.0000000E+00 + -78.50000 -106.5000 0.0000000E+00 + -77.50000 -106.5000 0.0000000E+00 + -76.50000 -106.5000 0.0000000E+00 + -75.50000 -106.5000 0.0000000E+00 + -74.50000 -106.5000 0.0000000E+00 + -73.50000 -106.5000 0.0000000E+00 + -72.50000 -106.5000 0.0000000E+00 + -71.50000 -106.5000 0.0000000E+00 + -70.50000 -106.5000 0.0000000E+00 + -69.50000 -106.5000 0.0000000E+00 + -68.50000 -106.5000 0.0000000E+00 + -67.50000 -106.5000 0.0000000E+00 + -66.50000 -106.5000 0.0000000E+00 + -65.50000 -106.5000 0.0000000E+00 + -64.50000 -106.5000 0.0000000E+00 + -63.50000 -106.5000 0.0000000E+00 + -62.50000 -106.5000 0.0000000E+00 + -61.50000 -106.5000 0.0000000E+00 + -60.50000 -106.5000 0.0000000E+00 + -59.50000 -106.5000 0.0000000E+00 + -58.50000 -106.5000 0.0000000E+00 + -57.50000 -106.5000 0.0000000E+00 + -56.50000 -106.5000 0.0000000E+00 + -55.50000 -106.5000 0.0000000E+00 + -54.50000 -106.5000 0.0000000E+00 + -53.50000 -106.5000 0.0000000E+00 + -52.50000 -106.5000 0.0000000E+00 + -51.50000 -106.5000 0.0000000E+00 + -50.50000 -106.5000 0.0000000E+00 + -49.50000 -106.5000 0.0000000E+00 + -48.50000 -106.5000 0.0000000E+00 + -47.50000 -106.5000 0.0000000E+00 + -46.50000 -106.5000 0.0000000E+00 + -45.50000 -106.5000 0.0000000E+00 + -44.50000 -106.5000 0.0000000E+00 + -43.50000 -106.5000 0.0000000E+00 + -42.50000 -106.5000 0.0000000E+00 + -41.50000 -106.5000 0.0000000E+00 + -40.50000 -106.5000 0.0000000E+00 + -39.50000 -106.5000 0.0000000E+00 + -38.50000 -106.5000 0.0000000E+00 + -37.50000 -106.5000 0.0000000E+00 + -36.50000 -106.5000 0.0000000E+00 + -35.50000 -106.5000 0.0000000E+00 + -34.50000 -106.5000 0.0000000E+00 + -33.50000 -106.5000 0.0000000E+00 + -32.50000 -106.5000 0.0000000E+00 + -31.50000 -106.5000 0.0000000E+00 + -30.50000 -106.5000 0.0000000E+00 + -29.50000 -106.5000 0.0000000E+00 + -28.50000 -106.5000 0.0000000E+00 + -27.50000 -106.5000 0.0000000E+00 + -26.50000 -106.5000 0.0000000E+00 + -25.50000 -106.5000 0.0000000E+00 + -24.50000 -106.5000 0.0000000E+00 + -23.50000 -106.5000 0.0000000E+00 + -22.50000 -106.5000 0.0000000E+00 + -21.50000 -106.5000 0.0000000E+00 + -20.50000 -106.5000 0.0000000E+00 + -19.50000 -106.5000 0.0000000E+00 + -18.50000 -106.5000 0.0000000E+00 + -17.50000 -106.5000 0.0000000E+00 + -16.50000 -106.5000 0.0000000E+00 + -15.50000 -106.5000 0.0000000E+00 + -14.50000 -106.5000 0.0000000E+00 + -13.50000 -106.5000 0.0000000E+00 + -12.50000 -106.5000 0.0000000E+00 + -11.50000 -106.5000 0.0000000E+00 + -10.50000 -106.5000 0.0000000E+00 + -9.500000 -106.5000 0.0000000E+00 + -8.500000 -106.5000 0.0000000E+00 + -7.500000 -106.5000 0.0000000E+00 + -6.500000 -106.5000 0.0000000E+00 + -5.500000 -106.5000 0.0000000E+00 + -4.500000 -106.5000 0.0000000E+00 + -3.500000 -106.5000 0.0000000E+00 + -2.500000 -106.5000 0.0000000E+00 + -1.500000 -106.5000 0.0000000E+00 + -0.5000000 -106.5000 0.0000000E+00 + 0.5000000 -106.5000 0.0000000E+00 + 1.500000 -106.5000 0.0000000E+00 + 2.500000 -106.5000 0.0000000E+00 + 3.500000 -106.5000 0.0000000E+00 + 4.500000 -106.5000 0.0000000E+00 + 5.500000 -106.5000 0.0000000E+00 + 6.500000 -106.5000 0.0000000E+00 + 7.500000 -106.5000 0.0000000E+00 + 8.500000 -106.5000 0.0000000E+00 + 9.500000 -106.5000 0.0000000E+00 + 10.50000 -106.5000 0.0000000E+00 + 11.50000 -106.5000 0.0000000E+00 + 12.50000 -106.5000 0.0000000E+00 + 13.50000 -106.5000 0.0000000E+00 + 14.50000 -106.5000 0.0000000E+00 + 15.50000 -106.5000 0.0000000E+00 + 16.50000 -106.5000 0.0000000E+00 + 17.50000 -106.5000 0.0000000E+00 + 18.50000 -106.5000 0.0000000E+00 + 19.50000 -106.5000 0.0000000E+00 + 20.50000 -106.5000 0.0000000E+00 + 21.50000 -106.5000 0.0000000E+00 + 22.50000 -106.5000 0.0000000E+00 + 23.50000 -106.5000 0.0000000E+00 + 24.50000 -106.5000 0.0000000E+00 + 25.50000 -106.5000 0.0000000E+00 + 26.50000 -106.5000 0.0000000E+00 + 27.50000 -106.5000 0.0000000E+00 + 28.50000 -106.5000 0.0000000E+00 + 29.50000 -106.5000 0.0000000E+00 + 30.50000 -106.5000 0.0000000E+00 + 31.50000 -106.5000 0.0000000E+00 + 32.50000 -106.5000 0.0000000E+00 + 33.50000 -106.5000 0.0000000E+00 + 34.50000 -106.5000 0.0000000E+00 + 35.50000 -106.5000 0.0000000E+00 + 36.50000 -106.5000 0.0000000E+00 + 37.50000 -106.5000 0.0000000E+00 + 38.50000 -106.5000 0.0000000E+00 + 39.50000 -106.5000 0.0000000E+00 + 40.50000 -106.5000 0.0000000E+00 + 41.50000 -106.5000 0.0000000E+00 + 42.50000 -106.5000 0.0000000E+00 + 43.50000 -106.5000 0.0000000E+00 + 44.50000 -106.5000 0.0000000E+00 + 45.50000 -106.5000 0.0000000E+00 + 46.50000 -106.5000 0.0000000E+00 + 47.50000 -106.5000 0.0000000E+00 + 48.50000 -106.5000 0.0000000E+00 + 49.50000 -106.5000 0.0000000E+00 + 50.50000 -106.5000 0.0000000E+00 + 51.50000 -106.5000 0.0000000E+00 + 52.50000 -106.5000 0.0000000E+00 + 53.50000 -106.5000 0.0000000E+00 + 54.50000 -106.5000 0.0000000E+00 + 55.50000 -106.5000 0.0000000E+00 + 56.50000 -106.5000 0.0000000E+00 + 57.50000 -106.5000 0.0000000E+00 + 58.50000 -106.5000 0.0000000E+00 + 59.50000 -106.5000 0.0000000E+00 + 60.50000 -106.5000 0.0000000E+00 + 61.50000 -106.5000 0.0000000E+00 + 62.50000 -106.5000 0.0000000E+00 + 63.50000 -106.5000 0.0000000E+00 + 64.50000 -106.5000 0.0000000E+00 + 65.50000 -106.5000 0.0000000E+00 + 66.50000 -106.5000 0.0000000E+00 + 67.50000 -106.5000 0.0000000E+00 + 68.50000 -106.5000 0.0000000E+00 + 69.50000 -106.5000 0.0000000E+00 + 70.50000 -106.5000 0.0000000E+00 + 71.50000 -106.5000 0.0000000E+00 + 72.50000 -106.5000 0.0000000E+00 + 73.50000 -106.5000 0.0000000E+00 + 74.50000 -106.5000 0.0000000E+00 + 75.50000 -106.5000 0.0000000E+00 + 76.50000 -106.5000 0.0000000E+00 + 77.50000 -106.5000 0.0000000E+00 + 78.50000 -106.5000 0.0000000E+00 + 79.50000 -106.5000 0.0000000E+00 + 80.50000 -106.5000 0.0000000E+00 + 81.50000 -106.5000 0.0000000E+00 + 82.50000 -106.5000 0.0000000E+00 + 83.50000 -106.5000 0.0000000E+00 + 84.50000 -106.5000 0.0000000E+00 + 85.50000 -106.5000 0.0000000E+00 + 86.50000 -106.5000 0.0000000E+00 + 87.50000 -106.5000 0.0000000E+00 + 88.50000 -106.5000 0.0000000E+00 + 89.50000 -106.5000 0.0000000E+00 + -89.50000 -105.5000 0.0000000E+00 + -88.50000 -105.5000 0.0000000E+00 + -87.50000 -105.5000 0.0000000E+00 + -86.50000 -105.5000 0.0000000E+00 + -85.50000 -105.5000 0.0000000E+00 + -84.50000 -105.5000 0.0000000E+00 + -83.50000 -105.5000 0.0000000E+00 + -82.50000 -105.5000 0.0000000E+00 + -81.50000 -105.5000 0.0000000E+00 + -80.50000 -105.5000 0.0000000E+00 + -79.50000 -105.5000 0.0000000E+00 + -78.50000 -105.5000 0.0000000E+00 + -77.50000 -105.5000 0.0000000E+00 + -76.50000 -105.5000 0.0000000E+00 + -75.50000 -105.5000 0.0000000E+00 + -74.50000 -105.5000 0.0000000E+00 + -73.50000 -105.5000 0.0000000E+00 + -72.50000 -105.5000 0.0000000E+00 + -71.50000 -105.5000 0.0000000E+00 + -70.50000 -105.5000 0.0000000E+00 + -69.50000 -105.5000 0.0000000E+00 + -68.50000 -105.5000 0.0000000E+00 + -67.50000 -105.5000 0.0000000E+00 + -66.50000 -105.5000 0.0000000E+00 + -65.50000 -105.5000 0.0000000E+00 + -64.50000 -105.5000 0.0000000E+00 + -63.50000 -105.5000 0.0000000E+00 + -62.50000 -105.5000 0.0000000E+00 + -61.50000 -105.5000 0.0000000E+00 + -60.50000 -105.5000 0.0000000E+00 + -59.50000 -105.5000 0.0000000E+00 + -58.50000 -105.5000 0.0000000E+00 + -57.50000 -105.5000 0.0000000E+00 + -56.50000 -105.5000 0.0000000E+00 + -55.50000 -105.5000 0.0000000E+00 + -54.50000 -105.5000 0.0000000E+00 + -53.50000 -105.5000 0.0000000E+00 + -52.50000 -105.5000 0.0000000E+00 + -51.50000 -105.5000 0.0000000E+00 + -50.50000 -105.5000 0.0000000E+00 + -49.50000 -105.5000 0.0000000E+00 + -48.50000 -105.5000 0.0000000E+00 + -47.50000 -105.5000 0.0000000E+00 + -46.50000 -105.5000 0.0000000E+00 + -45.50000 -105.5000 0.0000000E+00 + -44.50000 -105.5000 0.0000000E+00 + -43.50000 -105.5000 0.0000000E+00 + -42.50000 -105.5000 0.0000000E+00 + -41.50000 -105.5000 0.0000000E+00 + -40.50000 -105.5000 0.0000000E+00 + -39.50000 -105.5000 0.0000000E+00 + -38.50000 -105.5000 0.0000000E+00 + -37.50000 -105.5000 0.0000000E+00 + -36.50000 -105.5000 0.0000000E+00 + -35.50000 -105.5000 0.0000000E+00 + -34.50000 -105.5000 0.0000000E+00 + -33.50000 -105.5000 0.0000000E+00 + -32.50000 -105.5000 0.0000000E+00 + -31.50000 -105.5000 0.0000000E+00 + -30.50000 -105.5000 0.0000000E+00 + -29.50000 -105.5000 0.0000000E+00 + -28.50000 -105.5000 0.0000000E+00 + -27.50000 -105.5000 0.0000000E+00 + -26.50000 -105.5000 0.0000000E+00 + -25.50000 -105.5000 0.0000000E+00 + -24.50000 -105.5000 0.0000000E+00 + -23.50000 -105.5000 0.0000000E+00 + -22.50000 -105.5000 0.0000000E+00 + -21.50000 -105.5000 0.0000000E+00 + -20.50000 -105.5000 0.0000000E+00 + -19.50000 -105.5000 0.0000000E+00 + -18.50000 -105.5000 0.0000000E+00 + -17.50000 -105.5000 0.0000000E+00 + -16.50000 -105.5000 0.0000000E+00 + -15.50000 -105.5000 0.0000000E+00 + -14.50000 -105.5000 0.0000000E+00 + -13.50000 -105.5000 0.0000000E+00 + -12.50000 -105.5000 0.0000000E+00 + -11.50000 -105.5000 0.0000000E+00 + -10.50000 -105.5000 0.0000000E+00 + -9.500000 -105.5000 0.0000000E+00 + -8.500000 -105.5000 0.0000000E+00 + -7.500000 -105.5000 0.0000000E+00 + -6.500000 -105.5000 0.0000000E+00 + -5.500000 -105.5000 0.0000000E+00 + -4.500000 -105.5000 0.0000000E+00 + -3.500000 -105.5000 0.0000000E+00 + -2.500000 -105.5000 0.0000000E+00 + -1.500000 -105.5000 0.0000000E+00 + -0.5000000 -105.5000 0.0000000E+00 + 0.5000000 -105.5000 0.0000000E+00 + 1.500000 -105.5000 0.0000000E+00 + 2.500000 -105.5000 0.0000000E+00 + 3.500000 -105.5000 0.0000000E+00 + 4.500000 -105.5000 0.0000000E+00 + 5.500000 -105.5000 0.0000000E+00 + 6.500000 -105.5000 0.0000000E+00 + 7.500000 -105.5000 0.0000000E+00 + 8.500000 -105.5000 0.0000000E+00 + 9.500000 -105.5000 0.0000000E+00 + 10.50000 -105.5000 0.0000000E+00 + 11.50000 -105.5000 0.0000000E+00 + 12.50000 -105.5000 0.0000000E+00 + 13.50000 -105.5000 0.0000000E+00 + 14.50000 -105.5000 0.0000000E+00 + 15.50000 -105.5000 0.0000000E+00 + 16.50000 -105.5000 0.0000000E+00 + 17.50000 -105.5000 0.0000000E+00 + 18.50000 -105.5000 0.0000000E+00 + 19.50000 -105.5000 0.0000000E+00 + 20.50000 -105.5000 0.0000000E+00 + 21.50000 -105.5000 0.0000000E+00 + 22.50000 -105.5000 0.0000000E+00 + 23.50000 -105.5000 0.0000000E+00 + 24.50000 -105.5000 0.0000000E+00 + 25.50000 -105.5000 0.0000000E+00 + 26.50000 -105.5000 0.0000000E+00 + 27.50000 -105.5000 0.0000000E+00 + 28.50000 -105.5000 0.0000000E+00 + 29.50000 -105.5000 0.0000000E+00 + 30.50000 -105.5000 3.6538534E-03 + 31.50000 -105.5000 3.0463503E-03 + 32.50000 -105.5000 0.0000000E+00 + 33.50000 -105.5000 0.0000000E+00 + 34.50000 -105.5000 0.0000000E+00 + 35.50000 -105.5000 0.0000000E+00 + 36.50000 -105.5000 0.0000000E+00 + 37.50000 -105.5000 0.0000000E+00 + 38.50000 -105.5000 0.0000000E+00 + 39.50000 -105.5000 0.0000000E+00 + 40.50000 -105.5000 0.0000000E+00 + 41.50000 -105.5000 0.0000000E+00 + 42.50000 -105.5000 0.0000000E+00 + 43.50000 -105.5000 0.0000000E+00 + 44.50000 -105.5000 0.0000000E+00 + 45.50000 -105.5000 0.0000000E+00 + 46.50000 -105.5000 0.0000000E+00 + 47.50000 -105.5000 0.0000000E+00 + 48.50000 -105.5000 0.0000000E+00 + 49.50000 -105.5000 0.0000000E+00 + 50.50000 -105.5000 0.0000000E+00 + 51.50000 -105.5000 0.0000000E+00 + 52.50000 -105.5000 0.0000000E+00 + 53.50000 -105.5000 0.0000000E+00 + 54.50000 -105.5000 0.0000000E+00 + 55.50000 -105.5000 0.0000000E+00 + 56.50000 -105.5000 0.0000000E+00 + 57.50000 -105.5000 0.0000000E+00 + 58.50000 -105.5000 0.0000000E+00 + 59.50000 -105.5000 0.0000000E+00 + 60.50000 -105.5000 0.0000000E+00 + 61.50000 -105.5000 0.0000000E+00 + 62.50000 -105.5000 0.0000000E+00 + 63.50000 -105.5000 0.0000000E+00 + 64.50000 -105.5000 0.0000000E+00 + 65.50000 -105.5000 0.0000000E+00 + 66.50000 -105.5000 0.0000000E+00 + 67.50000 -105.5000 0.0000000E+00 + 68.50000 -105.5000 0.0000000E+00 + 69.50000 -105.5000 0.0000000E+00 + 70.50000 -105.5000 0.0000000E+00 + 71.50000 -105.5000 0.0000000E+00 + 72.50000 -105.5000 0.0000000E+00 + 73.50000 -105.5000 0.0000000E+00 + 74.50000 -105.5000 0.0000000E+00 + 75.50000 -105.5000 0.0000000E+00 + 76.50000 -105.5000 0.0000000E+00 + 77.50000 -105.5000 0.0000000E+00 + 78.50000 -105.5000 0.0000000E+00 + 79.50000 -105.5000 0.0000000E+00 + 80.50000 -105.5000 0.0000000E+00 + 81.50000 -105.5000 0.0000000E+00 + 82.50000 -105.5000 0.0000000E+00 + 83.50000 -105.5000 0.0000000E+00 + 84.50000 -105.5000 0.0000000E+00 + 85.50000 -105.5000 0.0000000E+00 + 86.50000 -105.5000 0.0000000E+00 + 87.50000 -105.5000 0.0000000E+00 + 88.50000 -105.5000 0.0000000E+00 + 89.50000 -105.5000 0.0000000E+00 + -89.50000 -104.5000 0.0000000E+00 + -88.50000 -104.5000 0.0000000E+00 + -87.50000 -104.5000 0.0000000E+00 + -86.50000 -104.5000 0.0000000E+00 + -85.50000 -104.5000 0.0000000E+00 + -84.50000 -104.5000 0.0000000E+00 + -83.50000 -104.5000 0.0000000E+00 + -82.50000 -104.5000 0.0000000E+00 + -81.50000 -104.5000 0.0000000E+00 + -80.50000 -104.5000 0.0000000E+00 + -79.50000 -104.5000 0.0000000E+00 + -78.50000 -104.5000 0.0000000E+00 + -77.50000 -104.5000 0.0000000E+00 + -76.50000 -104.5000 0.0000000E+00 + -75.50000 -104.5000 0.0000000E+00 + -74.50000 -104.5000 0.0000000E+00 + -73.50000 -104.5000 0.0000000E+00 + -72.50000 -104.5000 0.0000000E+00 + -71.50000 -104.5000 0.0000000E+00 + -70.50000 -104.5000 0.0000000E+00 + -69.50000 -104.5000 0.0000000E+00 + -68.50000 -104.5000 0.0000000E+00 + -67.50000 -104.5000 0.0000000E+00 + -66.50000 -104.5000 0.0000000E+00 + -65.50000 -104.5000 0.0000000E+00 + -64.50000 -104.5000 0.0000000E+00 + -63.50000 -104.5000 0.0000000E+00 + -62.50000 -104.5000 0.0000000E+00 + -61.50000 -104.5000 0.0000000E+00 + -60.50000 -104.5000 0.0000000E+00 + -59.50000 -104.5000 0.0000000E+00 + -58.50000 -104.5000 0.0000000E+00 + -57.50000 -104.5000 0.0000000E+00 + -56.50000 -104.5000 0.0000000E+00 + -55.50000 -104.5000 0.0000000E+00 + -54.50000 -104.5000 0.0000000E+00 + -53.50000 -104.5000 0.0000000E+00 + -52.50000 -104.5000 0.0000000E+00 + -51.50000 -104.5000 0.0000000E+00 + -50.50000 -104.5000 0.0000000E+00 + -49.50000 -104.5000 0.0000000E+00 + -48.50000 -104.5000 0.0000000E+00 + -47.50000 -104.5000 0.0000000E+00 + -46.50000 -104.5000 0.0000000E+00 + -45.50000 -104.5000 0.0000000E+00 + -44.50000 -104.5000 0.0000000E+00 + -43.50000 -104.5000 0.0000000E+00 + -42.50000 -104.5000 0.0000000E+00 + -41.50000 -104.5000 0.0000000E+00 + -40.50000 -104.5000 0.0000000E+00 + -39.50000 -104.5000 0.0000000E+00 + -38.50000 -104.5000 0.0000000E+00 + -37.50000 -104.5000 0.0000000E+00 + -36.50000 -104.5000 0.0000000E+00 + -35.50000 -104.5000 0.0000000E+00 + -34.50000 -104.5000 0.0000000E+00 + -33.50000 -104.5000 0.0000000E+00 + -32.50000 -104.5000 0.0000000E+00 + -31.50000 -104.5000 0.0000000E+00 + -30.50000 -104.5000 0.0000000E+00 + -29.50000 -104.5000 0.0000000E+00 + -28.50000 -104.5000 0.0000000E+00 + -27.50000 -104.5000 0.0000000E+00 + -26.50000 -104.5000 0.0000000E+00 + -25.50000 -104.5000 0.0000000E+00 + -24.50000 -104.5000 0.0000000E+00 + -23.50000 -104.5000 0.0000000E+00 + -22.50000 -104.5000 0.0000000E+00 + -21.50000 -104.5000 0.0000000E+00 + -20.50000 -104.5000 0.0000000E+00 + -19.50000 -104.5000 0.0000000E+00 + -18.50000 -104.5000 0.0000000E+00 + -17.50000 -104.5000 0.0000000E+00 + -16.50000 -104.5000 0.0000000E+00 + -15.50000 -104.5000 0.0000000E+00 + -14.50000 -104.5000 0.0000000E+00 + -13.50000 -104.5000 0.0000000E+00 + -12.50000 -104.5000 0.0000000E+00 + -11.50000 -104.5000 0.0000000E+00 + -10.50000 -104.5000 0.0000000E+00 + -9.500000 -104.5000 0.0000000E+00 + -8.500000 -104.5000 0.0000000E+00 + -7.500000 -104.5000 0.0000000E+00 + -6.500000 -104.5000 0.0000000E+00 + -5.500000 -104.5000 0.0000000E+00 + -4.500000 -104.5000 0.0000000E+00 + -3.500000 -104.5000 0.0000000E+00 + -2.500000 -104.5000 0.0000000E+00 + -1.500000 -104.5000 0.0000000E+00 + -0.5000000 -104.5000 0.0000000E+00 + 0.5000000 -104.5000 0.0000000E+00 + 1.500000 -104.5000 0.0000000E+00 + 2.500000 -104.5000 0.0000000E+00 + 3.500000 -104.5000 0.0000000E+00 + 4.500000 -104.5000 0.0000000E+00 + 5.500000 -104.5000 0.0000000E+00 + 6.500000 -104.5000 0.0000000E+00 + 7.500000 -104.5000 0.0000000E+00 + 8.500000 -104.5000 0.0000000E+00 + 9.500000 -104.5000 0.0000000E+00 + 10.50000 -104.5000 0.0000000E+00 + 11.50000 -104.5000 0.0000000E+00 + 12.50000 -104.5000 0.0000000E+00 + 13.50000 -104.5000 0.0000000E+00 + 14.50000 -104.5000 0.0000000E+00 + 15.50000 -104.5000 0.0000000E+00 + 16.50000 -104.5000 0.0000000E+00 + 17.50000 -104.5000 0.0000000E+00 + 18.50000 -104.5000 0.0000000E+00 + 19.50000 -104.5000 0.0000000E+00 + 20.50000 -104.5000 0.0000000E+00 + 21.50000 -104.5000 0.0000000E+00 + 22.50000 -104.5000 0.0000000E+00 + 23.50000 -104.5000 0.0000000E+00 + 24.50000 -104.5000 0.0000000E+00 + 25.50000 -104.5000 0.0000000E+00 + 26.50000 -104.5000 0.0000000E+00 + 27.50000 -104.5000 0.0000000E+00 + 28.50000 -104.5000 0.0000000E+00 + 29.50000 -104.5000 3.8880003E-03 + 30.50000 -104.5000 3.6538534E-03 + 31.50000 -104.5000 5.4896208E-03 + 32.50000 -104.5000 0.0000000E+00 + 33.50000 -104.5000 0.0000000E+00 + 34.50000 -104.5000 0.0000000E+00 + 35.50000 -104.5000 0.0000000E+00 + 36.50000 -104.5000 0.0000000E+00 + 37.50000 -104.5000 0.0000000E+00 + 38.50000 -104.5000 0.0000000E+00 + 39.50000 -104.5000 0.0000000E+00 + 40.50000 -104.5000 0.0000000E+00 + 41.50000 -104.5000 0.0000000E+00 + 42.50000 -104.5000 0.0000000E+00 + 43.50000 -104.5000 0.0000000E+00 + 44.50000 -104.5000 0.0000000E+00 + 45.50000 -104.5000 0.0000000E+00 + 46.50000 -104.5000 0.0000000E+00 + 47.50000 -104.5000 0.0000000E+00 + 48.50000 -104.5000 0.0000000E+00 + 49.50000 -104.5000 0.0000000E+00 + 50.50000 -104.5000 0.0000000E+00 + 51.50000 -104.5000 0.0000000E+00 + 52.50000 -104.5000 0.0000000E+00 + 53.50000 -104.5000 0.0000000E+00 + 54.50000 -104.5000 0.0000000E+00 + 55.50000 -104.5000 0.0000000E+00 + 56.50000 -104.5000 0.0000000E+00 + 57.50000 -104.5000 0.0000000E+00 + 58.50000 -104.5000 0.0000000E+00 + 59.50000 -104.5000 0.0000000E+00 + 60.50000 -104.5000 0.0000000E+00 + 61.50000 -104.5000 0.0000000E+00 + 62.50000 -104.5000 0.0000000E+00 + 63.50000 -104.5000 0.0000000E+00 + 64.50000 -104.5000 0.0000000E+00 + 65.50000 -104.5000 0.0000000E+00 + 66.50000 -104.5000 0.0000000E+00 + 67.50000 -104.5000 0.0000000E+00 + 68.50000 -104.5000 0.0000000E+00 + 69.50000 -104.5000 0.0000000E+00 + 70.50000 -104.5000 0.0000000E+00 + 71.50000 -104.5000 0.0000000E+00 + 72.50000 -104.5000 0.0000000E+00 + 73.50000 -104.5000 0.0000000E+00 + 74.50000 -104.5000 0.0000000E+00 + 75.50000 -104.5000 0.0000000E+00 + 76.50000 -104.5000 0.0000000E+00 + 77.50000 -104.5000 0.0000000E+00 + 78.50000 -104.5000 0.0000000E+00 + 79.50000 -104.5000 0.0000000E+00 + 80.50000 -104.5000 0.0000000E+00 + 81.50000 -104.5000 0.0000000E+00 + 82.50000 -104.5000 0.0000000E+00 + 83.50000 -104.5000 0.0000000E+00 + 84.50000 -104.5000 0.0000000E+00 + 85.50000 -104.5000 0.0000000E+00 + 86.50000 -104.5000 0.0000000E+00 + 87.50000 -104.5000 0.0000000E+00 + 88.50000 -104.5000 0.0000000E+00 + 89.50000 -104.5000 0.0000000E+00 + -89.50000 -103.5000 0.0000000E+00 + -88.50000 -103.5000 0.0000000E+00 + -87.50000 -103.5000 0.0000000E+00 + -86.50000 -103.5000 0.0000000E+00 + -85.50000 -103.5000 0.0000000E+00 + -84.50000 -103.5000 0.0000000E+00 + -83.50000 -103.5000 0.0000000E+00 + -82.50000 -103.5000 0.0000000E+00 + -81.50000 -103.5000 0.0000000E+00 + -80.50000 -103.5000 0.0000000E+00 + -79.50000 -103.5000 0.0000000E+00 + -78.50000 -103.5000 0.0000000E+00 + -77.50000 -103.5000 0.0000000E+00 + -76.50000 -103.5000 0.0000000E+00 + -75.50000 -103.5000 0.0000000E+00 + -74.50000 -103.5000 0.0000000E+00 + -73.50000 -103.5000 0.0000000E+00 + -72.50000 -103.5000 0.0000000E+00 + -71.50000 -103.5000 0.0000000E+00 + -70.50000 -103.5000 0.0000000E+00 + -69.50000 -103.5000 0.0000000E+00 + -68.50000 -103.5000 0.0000000E+00 + -67.50000 -103.5000 0.0000000E+00 + -66.50000 -103.5000 0.0000000E+00 + -65.50000 -103.5000 0.0000000E+00 + -64.50000 -103.5000 0.0000000E+00 + -63.50000 -103.5000 0.0000000E+00 + -62.50000 -103.5000 0.0000000E+00 + -61.50000 -103.5000 0.0000000E+00 + -60.50000 -103.5000 0.0000000E+00 + -59.50000 -103.5000 0.0000000E+00 + -58.50000 -103.5000 0.0000000E+00 + -57.50000 -103.5000 0.0000000E+00 + -56.50000 -103.5000 0.0000000E+00 + -55.50000 -103.5000 0.0000000E+00 + -54.50000 -103.5000 0.0000000E+00 + -53.50000 -103.5000 0.0000000E+00 + -52.50000 -103.5000 0.0000000E+00 + -51.50000 -103.5000 0.0000000E+00 + -50.50000 -103.5000 0.0000000E+00 + -49.50000 -103.5000 0.0000000E+00 + -48.50000 -103.5000 0.0000000E+00 + -47.50000 -103.5000 0.0000000E+00 + -46.50000 -103.5000 0.0000000E+00 + -45.50000 -103.5000 0.0000000E+00 + -44.50000 -103.5000 0.0000000E+00 + -43.50000 -103.5000 0.0000000E+00 + -42.50000 -103.5000 0.0000000E+00 + -41.50000 -103.5000 0.0000000E+00 + -40.50000 -103.5000 0.0000000E+00 + -39.50000 -103.5000 0.0000000E+00 + -38.50000 -103.5000 0.0000000E+00 + -37.50000 -103.5000 0.0000000E+00 + -36.50000 -103.5000 0.0000000E+00 + -35.50000 -103.5000 0.0000000E+00 + -34.50000 -103.5000 0.0000000E+00 + -33.50000 -103.5000 0.0000000E+00 + -32.50000 -103.5000 0.0000000E+00 + -31.50000 -103.5000 0.0000000E+00 + -30.50000 -103.5000 0.0000000E+00 + -29.50000 -103.5000 0.0000000E+00 + -28.50000 -103.5000 0.0000000E+00 + -27.50000 -103.5000 0.0000000E+00 + -26.50000 -103.5000 0.0000000E+00 + -25.50000 -103.5000 0.0000000E+00 + -24.50000 -103.5000 0.0000000E+00 + -23.50000 -103.5000 0.0000000E+00 + -22.50000 -103.5000 0.0000000E+00 + -21.50000 -103.5000 0.0000000E+00 + -20.50000 -103.5000 0.0000000E+00 + -19.50000 -103.5000 0.0000000E+00 + -18.50000 -103.5000 0.0000000E+00 + -17.50000 -103.5000 0.0000000E+00 + -16.50000 -103.5000 0.0000000E+00 + -15.50000 -103.5000 0.0000000E+00 + -14.50000 -103.5000 0.0000000E+00 + -13.50000 -103.5000 0.0000000E+00 + -12.50000 -103.5000 0.0000000E+00 + -11.50000 -103.5000 0.0000000E+00 + -10.50000 -103.5000 0.0000000E+00 + -9.500000 -103.5000 0.0000000E+00 + -8.500000 -103.5000 0.0000000E+00 + -7.500000 -103.5000 0.0000000E+00 + -6.500000 -103.5000 0.0000000E+00 + -5.500000 -103.5000 0.0000000E+00 + -4.500000 -103.5000 0.0000000E+00 + -3.500000 -103.5000 0.0000000E+00 + -2.500000 -103.5000 0.0000000E+00 + -1.500000 -103.5000 0.0000000E+00 + -0.5000000 -103.5000 0.0000000E+00 + 0.5000000 -103.5000 0.0000000E+00 + 1.500000 -103.5000 0.0000000E+00 + 2.500000 -103.5000 0.0000000E+00 + 3.500000 -103.5000 0.0000000E+00 + 4.500000 -103.5000 0.0000000E+00 + 5.500000 -103.5000 0.0000000E+00 + 6.500000 -103.5000 0.0000000E+00 + 7.500000 -103.5000 0.0000000E+00 + 8.500000 -103.5000 0.0000000E+00 + 9.500000 -103.5000 0.0000000E+00 + 10.50000 -103.5000 0.0000000E+00 + 11.50000 -103.5000 0.0000000E+00 + 12.50000 -103.5000 0.0000000E+00 + 13.50000 -103.5000 0.0000000E+00 + 14.50000 -103.5000 0.0000000E+00 + 15.50000 -103.5000 0.0000000E+00 + 16.50000 -103.5000 0.0000000E+00 + 17.50000 -103.5000 0.0000000E+00 + 18.50000 -103.5000 0.0000000E+00 + 19.50000 -103.5000 0.0000000E+00 + 20.50000 -103.5000 0.0000000E+00 + 21.50000 -103.5000 0.0000000E+00 + 22.50000 -103.5000 0.0000000E+00 + 23.50000 -103.5000 0.0000000E+00 + 24.50000 -103.5000 0.0000000E+00 + 25.50000 -103.5000 0.0000000E+00 + 26.50000 -103.5000 2.9052256E-04 + 27.50000 -103.5000 1.3056325E-04 + 28.50000 -103.5000 1.9330230E-03 + 29.50000 -103.5000 0.0000000E+00 + 30.50000 -103.5000 0.0000000E+00 + 31.50000 -103.5000 9.2967218E-03 + 32.50000 -103.5000 0.0000000E+00 + 33.50000 -103.5000 0.0000000E+00 + 34.50000 -103.5000 0.0000000E+00 + 35.50000 -103.5000 0.0000000E+00 + 36.50000 -103.5000 0.0000000E+00 + 37.50000 -103.5000 0.0000000E+00 + 38.50000 -103.5000 0.0000000E+00 + 39.50000 -103.5000 0.0000000E+00 + 40.50000 -103.5000 0.0000000E+00 + 41.50000 -103.5000 0.0000000E+00 + 42.50000 -103.5000 0.0000000E+00 + 43.50000 -103.5000 0.0000000E+00 + 44.50000 -103.5000 0.0000000E+00 + 45.50000 -103.5000 0.0000000E+00 + 46.50000 -103.5000 0.0000000E+00 + 47.50000 -103.5000 0.0000000E+00 + 48.50000 -103.5000 0.0000000E+00 + 49.50000 -103.5000 0.0000000E+00 + 50.50000 -103.5000 0.0000000E+00 + 51.50000 -103.5000 0.0000000E+00 + 52.50000 -103.5000 0.0000000E+00 + 53.50000 -103.5000 0.0000000E+00 + 54.50000 -103.5000 0.0000000E+00 + 55.50000 -103.5000 0.0000000E+00 + 56.50000 -103.5000 0.0000000E+00 + 57.50000 -103.5000 0.0000000E+00 + 58.50000 -103.5000 0.0000000E+00 + 59.50000 -103.5000 0.0000000E+00 + 60.50000 -103.5000 0.0000000E+00 + 61.50000 -103.5000 0.0000000E+00 + 62.50000 -103.5000 0.0000000E+00 + 63.50000 -103.5000 0.0000000E+00 + 64.50000 -103.5000 0.0000000E+00 + 65.50000 -103.5000 0.0000000E+00 + 66.50000 -103.5000 0.0000000E+00 + 67.50000 -103.5000 0.0000000E+00 + 68.50000 -103.5000 0.0000000E+00 + 69.50000 -103.5000 0.0000000E+00 + 70.50000 -103.5000 0.0000000E+00 + 71.50000 -103.5000 0.0000000E+00 + 72.50000 -103.5000 0.0000000E+00 + 73.50000 -103.5000 0.0000000E+00 + 74.50000 -103.5000 0.0000000E+00 + 75.50000 -103.5000 0.0000000E+00 + 76.50000 -103.5000 0.0000000E+00 + 77.50000 -103.5000 0.0000000E+00 + 78.50000 -103.5000 0.0000000E+00 + 79.50000 -103.5000 0.0000000E+00 + 80.50000 -103.5000 0.0000000E+00 + 81.50000 -103.5000 0.0000000E+00 + 82.50000 -103.5000 0.0000000E+00 + 83.50000 -103.5000 0.0000000E+00 + 84.50000 -103.5000 0.0000000E+00 + 85.50000 -103.5000 0.0000000E+00 + 86.50000 -103.5000 0.0000000E+00 + 87.50000 -103.5000 0.0000000E+00 + 88.50000 -103.5000 0.0000000E+00 + 89.50000 -103.5000 0.0000000E+00 + -89.50000 -102.5000 0.0000000E+00 + -88.50000 -102.5000 0.0000000E+00 + -87.50000 -102.5000 0.0000000E+00 + -86.50000 -102.5000 0.0000000E+00 + -85.50000 -102.5000 0.0000000E+00 + -84.50000 -102.5000 0.0000000E+00 + -83.50000 -102.5000 0.0000000E+00 + -82.50000 -102.5000 0.0000000E+00 + -81.50000 -102.5000 0.0000000E+00 + -80.50000 -102.5000 0.0000000E+00 + -79.50000 -102.5000 0.0000000E+00 + -78.50000 -102.5000 0.0000000E+00 + -77.50000 -102.5000 0.0000000E+00 + -76.50000 -102.5000 0.0000000E+00 + -75.50000 -102.5000 0.0000000E+00 + -74.50000 -102.5000 0.0000000E+00 + -73.50000 -102.5000 0.0000000E+00 + -72.50000 -102.5000 0.0000000E+00 + -71.50000 -102.5000 0.0000000E+00 + -70.50000 -102.5000 0.0000000E+00 + -69.50000 -102.5000 0.0000000E+00 + -68.50000 -102.5000 0.0000000E+00 + -67.50000 -102.5000 0.0000000E+00 + -66.50000 -102.5000 0.0000000E+00 + -65.50000 -102.5000 0.0000000E+00 + -64.50000 -102.5000 0.0000000E+00 + -63.50000 -102.5000 0.0000000E+00 + -62.50000 -102.5000 0.0000000E+00 + -61.50000 -102.5000 0.0000000E+00 + -60.50000 -102.5000 0.0000000E+00 + -59.50000 -102.5000 0.0000000E+00 + -58.50000 -102.5000 0.0000000E+00 + -57.50000 -102.5000 0.0000000E+00 + -56.50000 -102.5000 0.0000000E+00 + -55.50000 -102.5000 0.0000000E+00 + -54.50000 -102.5000 0.0000000E+00 + -53.50000 -102.5000 0.0000000E+00 + -52.50000 -102.5000 0.0000000E+00 + -51.50000 -102.5000 0.0000000E+00 + -50.50000 -102.5000 0.0000000E+00 + -49.50000 -102.5000 0.0000000E+00 + -48.50000 -102.5000 0.0000000E+00 + -47.50000 -102.5000 0.0000000E+00 + -46.50000 -102.5000 0.0000000E+00 + -45.50000 -102.5000 0.0000000E+00 + -44.50000 -102.5000 0.0000000E+00 + -43.50000 -102.5000 0.0000000E+00 + -42.50000 -102.5000 0.0000000E+00 + -41.50000 -102.5000 0.0000000E+00 + -40.50000 -102.5000 0.0000000E+00 + -39.50000 -102.5000 0.0000000E+00 + -38.50000 -102.5000 0.0000000E+00 + -37.50000 -102.5000 0.0000000E+00 + -36.50000 -102.5000 0.0000000E+00 + -35.50000 -102.5000 0.0000000E+00 + -34.50000 -102.5000 0.0000000E+00 + -33.50000 -102.5000 0.0000000E+00 + -32.50000 -102.5000 0.0000000E+00 + -31.50000 -102.5000 0.0000000E+00 + -30.50000 -102.5000 0.0000000E+00 + -29.50000 -102.5000 0.0000000E+00 + -28.50000 -102.5000 0.0000000E+00 + -27.50000 -102.5000 0.0000000E+00 + -26.50000 -102.5000 0.0000000E+00 + -25.50000 -102.5000 0.0000000E+00 + -24.50000 -102.5000 0.0000000E+00 + -23.50000 -102.5000 0.0000000E+00 + -22.50000 -102.5000 0.0000000E+00 + -21.50000 -102.5000 0.0000000E+00 + -20.50000 -102.5000 0.0000000E+00 + -19.50000 -102.5000 0.0000000E+00 + -18.50000 -102.5000 0.0000000E+00 + -17.50000 -102.5000 0.0000000E+00 + -16.50000 -102.5000 0.0000000E+00 + -15.50000 -102.5000 0.0000000E+00 + -14.50000 -102.5000 0.0000000E+00 + -13.50000 -102.5000 0.0000000E+00 + -12.50000 -102.5000 0.0000000E+00 + -11.50000 -102.5000 0.0000000E+00 + -10.50000 -102.5000 0.0000000E+00 + -9.500000 -102.5000 0.0000000E+00 + -8.500000 -102.5000 0.0000000E+00 + -7.500000 -102.5000 0.0000000E+00 + -6.500000 -102.5000 0.0000000E+00 + -5.500000 -102.5000 0.0000000E+00 + -4.500000 -102.5000 0.0000000E+00 + -3.500000 -102.5000 0.0000000E+00 + -2.500000 -102.5000 0.0000000E+00 + -1.500000 -102.5000 0.0000000E+00 + -0.5000000 -102.5000 0.0000000E+00 + 0.5000000 -102.5000 0.0000000E+00 + 1.500000 -102.5000 0.0000000E+00 + 2.500000 -102.5000 0.0000000E+00 + 3.500000 -102.5000 0.0000000E+00 + 4.500000 -102.5000 0.0000000E+00 + 5.500000 -102.5000 0.0000000E+00 + 6.500000 -102.5000 0.0000000E+00 + 7.500000 -102.5000 0.0000000E+00 + 8.500000 -102.5000 0.0000000E+00 + 9.500000 -102.5000 0.0000000E+00 + 10.50000 -102.5000 0.0000000E+00 + 11.50000 -102.5000 0.0000000E+00 + 12.50000 -102.5000 0.0000000E+00 + 13.50000 -102.5000 0.0000000E+00 + 14.50000 -102.5000 0.0000000E+00 + 15.50000 -102.5000 0.0000000E+00 + 16.50000 -102.5000 0.0000000E+00 + 17.50000 -102.5000 0.0000000E+00 + 18.50000 -102.5000 0.0000000E+00 + 19.50000 -102.5000 0.0000000E+00 + 20.50000 -102.5000 0.0000000E+00 + 21.50000 -102.5000 0.0000000E+00 + 22.50000 -102.5000 0.0000000E+00 + 23.50000 -102.5000 0.0000000E+00 + 24.50000 -102.5000 0.0000000E+00 + 25.50000 -102.5000 4.6788939E-04 + 26.50000 -102.5000 7.2291313E-04 + 27.50000 -102.5000 0.0000000E+00 + 28.50000 -102.5000 0.0000000E+00 + 29.50000 -102.5000 0.0000000E+00 + 30.50000 -102.5000 0.0000000E+00 + 31.50000 -102.5000 0.0000000E+00 + 32.50000 -102.5000 0.0000000E+00 + 33.50000 -102.5000 0.0000000E+00 + 34.50000 -102.5000 0.0000000E+00 + 35.50000 -102.5000 0.0000000E+00 + 36.50000 -102.5000 0.0000000E+00 + 37.50000 -102.5000 0.0000000E+00 + 38.50000 -102.5000 0.0000000E+00 + 39.50000 -102.5000 0.0000000E+00 + 40.50000 -102.5000 0.0000000E+00 + 41.50000 -102.5000 0.0000000E+00 + 42.50000 -102.5000 0.0000000E+00 + 43.50000 -102.5000 0.0000000E+00 + 44.50000 -102.5000 0.0000000E+00 + 45.50000 -102.5000 0.0000000E+00 + 46.50000 -102.5000 0.0000000E+00 + 47.50000 -102.5000 0.0000000E+00 + 48.50000 -102.5000 0.0000000E+00 + 49.50000 -102.5000 0.0000000E+00 + 50.50000 -102.5000 0.0000000E+00 + 51.50000 -102.5000 0.0000000E+00 + 52.50000 -102.5000 0.0000000E+00 + 53.50000 -102.5000 0.0000000E+00 + 54.50000 -102.5000 0.0000000E+00 + 55.50000 -102.5000 0.0000000E+00 + 56.50000 -102.5000 0.0000000E+00 + 57.50000 -102.5000 0.0000000E+00 + 58.50000 -102.5000 0.0000000E+00 + 59.50000 -102.5000 0.0000000E+00 + 60.50000 -102.5000 0.0000000E+00 + 61.50000 -102.5000 0.0000000E+00 + 62.50000 -102.5000 0.0000000E+00 + 63.50000 -102.5000 0.0000000E+00 + 64.50000 -102.5000 0.0000000E+00 + 65.50000 -102.5000 0.0000000E+00 + 66.50000 -102.5000 0.0000000E+00 + 67.50000 -102.5000 0.0000000E+00 + 68.50000 -102.5000 0.0000000E+00 + 69.50000 -102.5000 0.0000000E+00 + 70.50000 -102.5000 0.0000000E+00 + 71.50000 -102.5000 0.0000000E+00 + 72.50000 -102.5000 0.0000000E+00 + 73.50000 -102.5000 0.0000000E+00 + 74.50000 -102.5000 0.0000000E+00 + 75.50000 -102.5000 0.0000000E+00 + 76.50000 -102.5000 0.0000000E+00 + 77.50000 -102.5000 0.0000000E+00 + 78.50000 -102.5000 0.0000000E+00 + 79.50000 -102.5000 0.0000000E+00 + 80.50000 -102.5000 0.0000000E+00 + 81.50000 -102.5000 0.0000000E+00 + 82.50000 -102.5000 0.0000000E+00 + 83.50000 -102.5000 0.0000000E+00 + 84.50000 -102.5000 0.0000000E+00 + 85.50000 -102.5000 0.0000000E+00 + 86.50000 -102.5000 0.0000000E+00 + 87.50000 -102.5000 0.0000000E+00 + 88.50000 -102.5000 0.0000000E+00 + 89.50000 -102.5000 0.0000000E+00 + -89.50000 -101.5000 0.0000000E+00 + -88.50000 -101.5000 0.0000000E+00 + -87.50000 -101.5000 0.0000000E+00 + -86.50000 -101.5000 0.0000000E+00 + -85.50000 -101.5000 0.0000000E+00 + -84.50000 -101.5000 0.0000000E+00 + -83.50000 -101.5000 0.0000000E+00 + -82.50000 -101.5000 0.0000000E+00 + -81.50000 -101.5000 0.0000000E+00 + -80.50000 -101.5000 0.0000000E+00 + -79.50000 -101.5000 0.0000000E+00 + -78.50000 -101.5000 0.0000000E+00 + -77.50000 -101.5000 0.0000000E+00 + -76.50000 -101.5000 0.0000000E+00 + -75.50000 -101.5000 0.0000000E+00 + -74.50000 -101.5000 0.0000000E+00 + -73.50000 -101.5000 0.0000000E+00 + -72.50000 -101.5000 0.0000000E+00 + -71.50000 -101.5000 0.0000000E+00 + -70.50000 -101.5000 0.0000000E+00 + -69.50000 -101.5000 0.0000000E+00 + -68.50000 -101.5000 0.0000000E+00 + -67.50000 -101.5000 0.0000000E+00 + -66.50000 -101.5000 0.0000000E+00 + -65.50000 -101.5000 0.0000000E+00 + -64.50000 -101.5000 0.0000000E+00 + -63.50000 -101.5000 0.0000000E+00 + -62.50000 -101.5000 0.0000000E+00 + -61.50000 -101.5000 0.0000000E+00 + -60.50000 -101.5000 0.0000000E+00 + -59.50000 -101.5000 0.0000000E+00 + -58.50000 -101.5000 0.0000000E+00 + -57.50000 -101.5000 0.0000000E+00 + -56.50000 -101.5000 0.0000000E+00 + -55.50000 -101.5000 0.0000000E+00 + -54.50000 -101.5000 0.0000000E+00 + -53.50000 -101.5000 0.0000000E+00 + -52.50000 -101.5000 0.0000000E+00 + -51.50000 -101.5000 0.0000000E+00 + -50.50000 -101.5000 0.0000000E+00 + -49.50000 -101.5000 0.0000000E+00 + -48.50000 -101.5000 0.0000000E+00 + -47.50000 -101.5000 0.0000000E+00 + -46.50000 -101.5000 0.0000000E+00 + -45.50000 -101.5000 0.0000000E+00 + -44.50000 -101.5000 0.0000000E+00 + -43.50000 -101.5000 0.0000000E+00 + -42.50000 -101.5000 0.0000000E+00 + -41.50000 -101.5000 0.0000000E+00 + -40.50000 -101.5000 0.0000000E+00 + -39.50000 -101.5000 0.0000000E+00 + -38.50000 -101.5000 0.0000000E+00 + -37.50000 -101.5000 0.0000000E+00 + -36.50000 -101.5000 0.0000000E+00 + -35.50000 -101.5000 0.0000000E+00 + -34.50000 -101.5000 0.0000000E+00 + -33.50000 -101.5000 0.0000000E+00 + -32.50000 -101.5000 0.0000000E+00 + -31.50000 -101.5000 0.0000000E+00 + -30.50000 -101.5000 0.0000000E+00 + -29.50000 -101.5000 0.0000000E+00 + -28.50000 -101.5000 0.0000000E+00 + -27.50000 -101.5000 0.0000000E+00 + -26.50000 -101.5000 0.0000000E+00 + -25.50000 -101.5000 0.0000000E+00 + -24.50000 -101.5000 0.0000000E+00 + -23.50000 -101.5000 0.0000000E+00 + -22.50000 -101.5000 0.0000000E+00 + -21.50000 -101.5000 0.0000000E+00 + -20.50000 -101.5000 0.0000000E+00 + -19.50000 -101.5000 0.0000000E+00 + -18.50000 -101.5000 0.0000000E+00 + -17.50000 -101.5000 0.0000000E+00 + -16.50000 -101.5000 0.0000000E+00 + -15.50000 -101.5000 0.0000000E+00 + -14.50000 -101.5000 0.0000000E+00 + -13.50000 -101.5000 0.0000000E+00 + -12.50000 -101.5000 0.0000000E+00 + -11.50000 -101.5000 0.0000000E+00 + -10.50000 -101.5000 0.0000000E+00 + -9.500000 -101.5000 0.0000000E+00 + -8.500000 -101.5000 0.0000000E+00 + -7.500000 -101.5000 0.0000000E+00 + -6.500000 -101.5000 0.0000000E+00 + -5.500000 -101.5000 0.0000000E+00 + -4.500000 -101.5000 0.0000000E+00 + -3.500000 -101.5000 0.0000000E+00 + -2.500000 -101.5000 0.0000000E+00 + -1.500000 -101.5000 0.0000000E+00 + -0.5000000 -101.5000 0.0000000E+00 + 0.5000000 -101.5000 0.0000000E+00 + 1.500000 -101.5000 0.0000000E+00 + 2.500000 -101.5000 0.0000000E+00 + 3.500000 -101.5000 0.0000000E+00 + 4.500000 -101.5000 0.0000000E+00 + 5.500000 -101.5000 0.0000000E+00 + 6.500000 -101.5000 0.0000000E+00 + 7.500000 -101.5000 0.0000000E+00 + 8.500000 -101.5000 0.0000000E+00 + 9.500000 -101.5000 0.0000000E+00 + 10.50000 -101.5000 0.0000000E+00 + 11.50000 -101.5000 0.0000000E+00 + 12.50000 -101.5000 0.0000000E+00 + 13.50000 -101.5000 0.0000000E+00 + 14.50000 -101.5000 0.0000000E+00 + 15.50000 -101.5000 0.0000000E+00 + 16.50000 -101.5000 0.0000000E+00 + 17.50000 -101.5000 0.0000000E+00 + 18.50000 -101.5000 0.0000000E+00 + 19.50000 -101.5000 0.0000000E+00 + 20.50000 -101.5000 0.0000000E+00 + 21.50000 -101.5000 0.0000000E+00 + 22.50000 -101.5000 0.0000000E+00 + 23.50000 -101.5000 1.7155065E-04 + 24.50000 -101.5000 1.7155065E-04 + 25.50000 -101.5000 0.0000000E+00 + 26.50000 -101.5000 0.0000000E+00 + 27.50000 -101.5000 0.0000000E+00 + 28.50000 -101.5000 0.0000000E+00 + 29.50000 -101.5000 0.0000000E+00 + 30.50000 -101.5000 0.0000000E+00 + 31.50000 -101.5000 0.0000000E+00 + 32.50000 -101.5000 0.0000000E+00 + 33.50000 -101.5000 0.0000000E+00 + 34.50000 -101.5000 0.0000000E+00 + 35.50000 -101.5000 0.0000000E+00 + 36.50000 -101.5000 0.0000000E+00 + 37.50000 -101.5000 0.0000000E+00 + 38.50000 -101.5000 0.0000000E+00 + 39.50000 -101.5000 0.0000000E+00 + 40.50000 -101.5000 0.0000000E+00 + 41.50000 -101.5000 0.0000000E+00 + 42.50000 -101.5000 0.0000000E+00 + 43.50000 -101.5000 0.0000000E+00 + 44.50000 -101.5000 0.0000000E+00 + 45.50000 -101.5000 0.0000000E+00 + 46.50000 -101.5000 0.0000000E+00 + 47.50000 -101.5000 0.0000000E+00 + 48.50000 -101.5000 0.0000000E+00 + 49.50000 -101.5000 0.0000000E+00 + 50.50000 -101.5000 0.0000000E+00 + 51.50000 -101.5000 0.0000000E+00 + 52.50000 -101.5000 0.0000000E+00 + 53.50000 -101.5000 0.0000000E+00 + 54.50000 -101.5000 0.0000000E+00 + 55.50000 -101.5000 0.0000000E+00 + 56.50000 -101.5000 0.0000000E+00 + 57.50000 -101.5000 0.0000000E+00 + 58.50000 -101.5000 0.0000000E+00 + 59.50000 -101.5000 0.0000000E+00 + 60.50000 -101.5000 0.0000000E+00 + 61.50000 -101.5000 0.0000000E+00 + 62.50000 -101.5000 0.0000000E+00 + 63.50000 -101.5000 0.0000000E+00 + 64.50000 -101.5000 0.0000000E+00 + 65.50000 -101.5000 0.0000000E+00 + 66.50000 -101.5000 0.0000000E+00 + 67.50000 -101.5000 0.0000000E+00 + 68.50000 -101.5000 0.0000000E+00 + 69.50000 -101.5000 0.0000000E+00 + 70.50000 -101.5000 0.0000000E+00 + 71.50000 -101.5000 0.0000000E+00 + 72.50000 -101.5000 0.0000000E+00 + 73.50000 -101.5000 0.0000000E+00 + 74.50000 -101.5000 0.0000000E+00 + 75.50000 -101.5000 0.0000000E+00 + 76.50000 -101.5000 0.0000000E+00 + 77.50000 -101.5000 0.0000000E+00 + 78.50000 -101.5000 0.0000000E+00 + 79.50000 -101.5000 0.0000000E+00 + 80.50000 -101.5000 0.0000000E+00 + 81.50000 -101.5000 0.0000000E+00 + 82.50000 -101.5000 0.0000000E+00 + 83.50000 -101.5000 0.0000000E+00 + 84.50000 -101.5000 0.0000000E+00 + 85.50000 -101.5000 0.0000000E+00 + 86.50000 -101.5000 0.0000000E+00 + 87.50000 -101.5000 0.0000000E+00 + 88.50000 -101.5000 0.0000000E+00 + 89.50000 -101.5000 0.0000000E+00 + -89.50000 -100.5000 0.0000000E+00 + -88.50000 -100.5000 0.0000000E+00 + -87.50000 -100.5000 0.0000000E+00 + -86.50000 -100.5000 0.0000000E+00 + -85.50000 -100.5000 0.0000000E+00 + -84.50000 -100.5000 0.0000000E+00 + -83.50000 -100.5000 0.0000000E+00 + -82.50000 -100.5000 0.0000000E+00 + -81.50000 -100.5000 0.0000000E+00 + -80.50000 -100.5000 0.0000000E+00 + -79.50000 -100.5000 0.0000000E+00 + -78.50000 -100.5000 0.0000000E+00 + -77.50000 -100.5000 0.0000000E+00 + -76.50000 -100.5000 0.0000000E+00 + -75.50000 -100.5000 0.0000000E+00 + -74.50000 -100.5000 0.0000000E+00 + -73.50000 -100.5000 0.0000000E+00 + -72.50000 -100.5000 0.0000000E+00 + -71.50000 -100.5000 0.0000000E+00 + -70.50000 -100.5000 0.0000000E+00 + -69.50000 -100.5000 0.0000000E+00 + -68.50000 -100.5000 0.0000000E+00 + -67.50000 -100.5000 0.0000000E+00 + -66.50000 -100.5000 0.0000000E+00 + -65.50000 -100.5000 0.0000000E+00 + -64.50000 -100.5000 0.0000000E+00 + -63.50000 -100.5000 0.0000000E+00 + -62.50000 -100.5000 0.0000000E+00 + -61.50000 -100.5000 0.0000000E+00 + -60.50000 -100.5000 0.0000000E+00 + -59.50000 -100.5000 0.0000000E+00 + -58.50000 -100.5000 0.0000000E+00 + -57.50000 -100.5000 0.0000000E+00 + -56.50000 -100.5000 0.0000000E+00 + -55.50000 -100.5000 0.0000000E+00 + -54.50000 -100.5000 0.0000000E+00 + -53.50000 -100.5000 0.0000000E+00 + -52.50000 -100.5000 0.0000000E+00 + -51.50000 -100.5000 0.0000000E+00 + -50.50000 -100.5000 0.0000000E+00 + -49.50000 -100.5000 0.0000000E+00 + -48.50000 -100.5000 0.0000000E+00 + -47.50000 -100.5000 0.0000000E+00 + -46.50000 -100.5000 0.0000000E+00 + -45.50000 -100.5000 0.0000000E+00 + -44.50000 -100.5000 0.0000000E+00 + -43.50000 -100.5000 0.0000000E+00 + -42.50000 -100.5000 0.0000000E+00 + -41.50000 -100.5000 0.0000000E+00 + -40.50000 -100.5000 0.0000000E+00 + -39.50000 -100.5000 0.0000000E+00 + -38.50000 -100.5000 0.0000000E+00 + -37.50000 -100.5000 0.0000000E+00 + -36.50000 -100.5000 0.0000000E+00 + -35.50000 -100.5000 0.0000000E+00 + -34.50000 -100.5000 0.0000000E+00 + -33.50000 -100.5000 0.0000000E+00 + -32.50000 -100.5000 0.0000000E+00 + -31.50000 -100.5000 0.0000000E+00 + -30.50000 -100.5000 0.0000000E+00 + -29.50000 -100.5000 0.0000000E+00 + -28.50000 -100.5000 0.0000000E+00 + -27.50000 -100.5000 0.0000000E+00 + -26.50000 -100.5000 0.0000000E+00 + -25.50000 -100.5000 0.0000000E+00 + -24.50000 -100.5000 0.0000000E+00 + -23.50000 -100.5000 0.0000000E+00 + -22.50000 -100.5000 0.0000000E+00 + -21.50000 -100.5000 0.0000000E+00 + -20.50000 -100.5000 0.0000000E+00 + -19.50000 -100.5000 0.0000000E+00 + -18.50000 -100.5000 0.0000000E+00 + -17.50000 -100.5000 0.0000000E+00 + -16.50000 -100.5000 0.0000000E+00 + -15.50000 -100.5000 0.0000000E+00 + -14.50000 -100.5000 0.0000000E+00 + -13.50000 -100.5000 0.0000000E+00 + -12.50000 -100.5000 0.0000000E+00 + -11.50000 -100.5000 0.0000000E+00 + -10.50000 -100.5000 0.0000000E+00 + -9.500000 -100.5000 0.0000000E+00 + -8.500000 -100.5000 0.0000000E+00 + -7.500000 -100.5000 0.0000000E+00 + -6.500000 -100.5000 0.0000000E+00 + -5.500000 -100.5000 0.0000000E+00 + -4.500000 -100.5000 0.0000000E+00 + -3.500000 -100.5000 0.0000000E+00 + -2.500000 -100.5000 0.0000000E+00 + -1.500000 -100.5000 0.0000000E+00 + -0.5000000 -100.5000 0.0000000E+00 + 0.5000000 -100.5000 0.0000000E+00 + 1.500000 -100.5000 0.0000000E+00 + 2.500000 -100.5000 0.0000000E+00 + 3.500000 -100.5000 0.0000000E+00 + 4.500000 -100.5000 0.0000000E+00 + 5.500000 -100.5000 0.0000000E+00 + 6.500000 -100.5000 0.0000000E+00 + 7.500000 -100.5000 0.0000000E+00 + 8.500000 -100.5000 0.0000000E+00 + 9.500000 -100.5000 0.0000000E+00 + 10.50000 -100.5000 0.0000000E+00 + 11.50000 -100.5000 0.0000000E+00 + 12.50000 -100.5000 0.0000000E+00 + 13.50000 -100.5000 0.0000000E+00 + 14.50000 -100.5000 0.0000000E+00 + 15.50000 -100.5000 0.0000000E+00 + 16.50000 -100.5000 0.0000000E+00 + 17.50000 -100.5000 0.0000000E+00 + 18.50000 -100.5000 0.0000000E+00 + 19.50000 -100.5000 0.0000000E+00 + 20.50000 -100.5000 0.0000000E+00 + 21.50000 -100.5000 0.0000000E+00 + 22.50000 -100.5000 0.0000000E+00 + 23.50000 -100.5000 0.0000000E+00 + 24.50000 -100.5000 0.0000000E+00 + 25.50000 -100.5000 0.0000000E+00 + 26.50000 -100.5000 0.0000000E+00 + 27.50000 -100.5000 0.0000000E+00 + 28.50000 -100.5000 0.0000000E+00 + 29.50000 -100.5000 0.0000000E+00 + 30.50000 -100.5000 0.0000000E+00 + 31.50000 -100.5000 0.0000000E+00 + 32.50000 -100.5000 0.0000000E+00 + 33.50000 -100.5000 0.0000000E+00 + 34.50000 -100.5000 0.0000000E+00 + 35.50000 -100.5000 0.0000000E+00 + 36.50000 -100.5000 0.0000000E+00 + 37.50000 -100.5000 0.0000000E+00 + 38.50000 -100.5000 0.0000000E+00 + 39.50000 -100.5000 0.0000000E+00 + 40.50000 -100.5000 0.0000000E+00 + 41.50000 -100.5000 0.0000000E+00 + 42.50000 -100.5000 0.0000000E+00 + 43.50000 -100.5000 0.0000000E+00 + 44.50000 -100.5000 0.0000000E+00 + 45.50000 -100.5000 0.0000000E+00 + 46.50000 -100.5000 0.0000000E+00 + 47.50000 -100.5000 0.0000000E+00 + 48.50000 -100.5000 0.0000000E+00 + 49.50000 -100.5000 0.0000000E+00 + 50.50000 -100.5000 0.0000000E+00 + 51.50000 -100.5000 0.0000000E+00 + 52.50000 -100.5000 0.0000000E+00 + 53.50000 -100.5000 0.0000000E+00 + 54.50000 -100.5000 0.0000000E+00 + 55.50000 -100.5000 0.0000000E+00 + 56.50000 -100.5000 0.0000000E+00 + 57.50000 -100.5000 0.0000000E+00 + 58.50000 -100.5000 0.0000000E+00 + 59.50000 -100.5000 0.0000000E+00 + 60.50000 -100.5000 0.0000000E+00 + 61.50000 -100.5000 0.0000000E+00 + 62.50000 -100.5000 0.0000000E+00 + 63.50000 -100.5000 0.0000000E+00 + 64.50000 -100.5000 0.0000000E+00 + 65.50000 -100.5000 0.0000000E+00 + 66.50000 -100.5000 0.0000000E+00 + 67.50000 -100.5000 0.0000000E+00 + 68.50000 -100.5000 0.0000000E+00 + 69.50000 -100.5000 0.0000000E+00 + 70.50000 -100.5000 0.0000000E+00 + 71.50000 -100.5000 0.0000000E+00 + 72.50000 -100.5000 0.0000000E+00 + 73.50000 -100.5000 0.0000000E+00 + 74.50000 -100.5000 0.0000000E+00 + 75.50000 -100.5000 0.0000000E+00 + 76.50000 -100.5000 0.0000000E+00 + 77.50000 -100.5000 0.0000000E+00 + 78.50000 -100.5000 0.0000000E+00 + 79.50000 -100.5000 0.0000000E+00 + 80.50000 -100.5000 0.0000000E+00 + 81.50000 -100.5000 0.0000000E+00 + 82.50000 -100.5000 0.0000000E+00 + 83.50000 -100.5000 0.0000000E+00 + 84.50000 -100.5000 0.0000000E+00 + 85.50000 -100.5000 0.0000000E+00 + 86.50000 -100.5000 0.0000000E+00 + 87.50000 -100.5000 0.0000000E+00 + 88.50000 -100.5000 0.0000000E+00 + 89.50000 -100.5000 0.0000000E+00 + -89.50000 -99.50000 0.0000000E+00 + -88.50000 -99.50000 0.0000000E+00 + -87.50000 -99.50000 0.0000000E+00 + -86.50000 -99.50000 0.0000000E+00 + -85.50000 -99.50000 0.0000000E+00 + -84.50000 -99.50000 0.0000000E+00 + -83.50000 -99.50000 0.0000000E+00 + -82.50000 -99.50000 0.0000000E+00 + -81.50000 -99.50000 0.0000000E+00 + -80.50000 -99.50000 0.0000000E+00 + -79.50000 -99.50000 0.0000000E+00 + -78.50000 -99.50000 0.0000000E+00 + -77.50000 -99.50000 0.0000000E+00 + -76.50000 -99.50000 0.0000000E+00 + -75.50000 -99.50000 0.0000000E+00 + -74.50000 -99.50000 0.0000000E+00 + -73.50000 -99.50000 0.0000000E+00 + -72.50000 -99.50000 0.0000000E+00 + -71.50000 -99.50000 0.0000000E+00 + -70.50000 -99.50000 0.0000000E+00 + -69.50000 -99.50000 0.0000000E+00 + -68.50000 -99.50000 0.0000000E+00 + -67.50000 -99.50000 0.0000000E+00 + -66.50000 -99.50000 0.0000000E+00 + -65.50000 -99.50000 0.0000000E+00 + -64.50000 -99.50000 0.0000000E+00 + -63.50000 -99.50000 0.0000000E+00 + -62.50000 -99.50000 0.0000000E+00 + -61.50000 -99.50000 0.0000000E+00 + -60.50000 -99.50000 0.0000000E+00 + -59.50000 -99.50000 0.0000000E+00 + -58.50000 -99.50000 0.0000000E+00 + -57.50000 -99.50000 0.0000000E+00 + -56.50000 -99.50000 0.0000000E+00 + -55.50000 -99.50000 0.0000000E+00 + -54.50000 -99.50000 0.0000000E+00 + -53.50000 -99.50000 0.0000000E+00 + -52.50000 -99.50000 0.0000000E+00 + -51.50000 -99.50000 0.0000000E+00 + -50.50000 -99.50000 0.0000000E+00 + -49.50000 -99.50000 0.0000000E+00 + -48.50000 -99.50000 0.0000000E+00 + -47.50000 -99.50000 0.0000000E+00 + -46.50000 -99.50000 0.0000000E+00 + -45.50000 -99.50000 0.0000000E+00 + -44.50000 -99.50000 0.0000000E+00 + -43.50000 -99.50000 0.0000000E+00 + -42.50000 -99.50000 0.0000000E+00 + -41.50000 -99.50000 0.0000000E+00 + -40.50000 -99.50000 0.0000000E+00 + -39.50000 -99.50000 0.0000000E+00 + -38.50000 -99.50000 0.0000000E+00 + -37.50000 -99.50000 0.0000000E+00 + -36.50000 -99.50000 0.0000000E+00 + -35.50000 -99.50000 0.0000000E+00 + -34.50000 -99.50000 0.0000000E+00 + -33.50000 -99.50000 0.0000000E+00 + -32.50000 -99.50000 0.0000000E+00 + -31.50000 -99.50000 0.0000000E+00 + -30.50000 -99.50000 0.0000000E+00 + -29.50000 -99.50000 0.0000000E+00 + -28.50000 -99.50000 0.0000000E+00 + -27.50000 -99.50000 0.0000000E+00 + -26.50000 -99.50000 0.0000000E+00 + -25.50000 -99.50000 0.0000000E+00 + -24.50000 -99.50000 0.0000000E+00 + -23.50000 -99.50000 0.0000000E+00 + -22.50000 -99.50000 0.0000000E+00 + -21.50000 -99.50000 0.0000000E+00 + -20.50000 -99.50000 0.0000000E+00 + -19.50000 -99.50000 0.0000000E+00 + -18.50000 -99.50000 0.0000000E+00 + -17.50000 -99.50000 0.0000000E+00 + -16.50000 -99.50000 0.0000000E+00 + -15.50000 -99.50000 0.0000000E+00 + -14.50000 -99.50000 0.0000000E+00 + -13.50000 -99.50000 0.0000000E+00 + -12.50000 -99.50000 0.0000000E+00 + -11.50000 -99.50000 0.0000000E+00 + -10.50000 -99.50000 0.0000000E+00 + -9.500000 -99.50000 0.0000000E+00 + -8.500000 -99.50000 0.0000000E+00 + -7.500000 -99.50000 0.0000000E+00 + -6.500000 -99.50000 0.0000000E+00 + -5.500000 -99.50000 0.0000000E+00 + -4.500000 -99.50000 0.0000000E+00 + -3.500000 -99.50000 0.0000000E+00 + -2.500000 -99.50000 0.0000000E+00 + -1.500000 -99.50000 0.0000000E+00 + -0.5000000 -99.50000 0.0000000E+00 + 0.5000000 -99.50000 0.0000000E+00 + 1.500000 -99.50000 0.0000000E+00 + 2.500000 -99.50000 0.0000000E+00 + 3.500000 -99.50000 0.0000000E+00 + 4.500000 -99.50000 0.0000000E+00 + 5.500000 -99.50000 0.0000000E+00 + 6.500000 -99.50000 0.0000000E+00 + 7.500000 -99.50000 0.0000000E+00 + 8.500000 -99.50000 0.0000000E+00 + 9.500000 -99.50000 0.0000000E+00 + 10.50000 -99.50000 0.0000000E+00 + 11.50000 -99.50000 0.0000000E+00 + 12.50000 -99.50000 0.0000000E+00 + 13.50000 -99.50000 0.0000000E+00 + 14.50000 -99.50000 0.0000000E+00 + 15.50000 -99.50000 0.0000000E+00 + 16.50000 -99.50000 0.0000000E+00 + 17.50000 -99.50000 0.0000000E+00 + 18.50000 -99.50000 0.0000000E+00 + 19.50000 -99.50000 0.0000000E+00 + 20.50000 -99.50000 0.0000000E+00 + 21.50000 -99.50000 0.0000000E+00 + 22.50000 -99.50000 0.0000000E+00 + 23.50000 -99.50000 0.0000000E+00 + 24.50000 -99.50000 0.0000000E+00 + 25.50000 -99.50000 0.0000000E+00 + 26.50000 -99.50000 0.0000000E+00 + 27.50000 -99.50000 0.0000000E+00 + 28.50000 -99.50000 0.0000000E+00 + 29.50000 -99.50000 0.0000000E+00 + 30.50000 -99.50000 0.0000000E+00 + 31.50000 -99.50000 0.0000000E+00 + 32.50000 -99.50000 0.0000000E+00 + 33.50000 -99.50000 0.0000000E+00 + 34.50000 -99.50000 0.0000000E+00 + 35.50000 -99.50000 0.0000000E+00 + 36.50000 -99.50000 0.0000000E+00 + 37.50000 -99.50000 0.0000000E+00 + 38.50000 -99.50000 0.0000000E+00 + 39.50000 -99.50000 0.0000000E+00 + 40.50000 -99.50000 0.0000000E+00 + 41.50000 -99.50000 0.0000000E+00 + 42.50000 -99.50000 0.0000000E+00 + 43.50000 -99.50000 0.0000000E+00 + 44.50000 -99.50000 0.0000000E+00 + 45.50000 -99.50000 0.0000000E+00 + 46.50000 -99.50000 0.0000000E+00 + 47.50000 -99.50000 0.0000000E+00 + 48.50000 -99.50000 0.0000000E+00 + 49.50000 -99.50000 0.0000000E+00 + 50.50000 -99.50000 0.0000000E+00 + 51.50000 -99.50000 0.0000000E+00 + 52.50000 -99.50000 0.0000000E+00 + 53.50000 -99.50000 0.0000000E+00 + 54.50000 -99.50000 0.0000000E+00 + 55.50000 -99.50000 0.0000000E+00 + 56.50000 -99.50000 0.0000000E+00 + 57.50000 -99.50000 0.0000000E+00 + 58.50000 -99.50000 0.0000000E+00 + 59.50000 -99.50000 0.0000000E+00 + 60.50000 -99.50000 0.0000000E+00 + 61.50000 -99.50000 0.0000000E+00 + 62.50000 -99.50000 0.0000000E+00 + 63.50000 -99.50000 0.0000000E+00 + 64.50000 -99.50000 0.0000000E+00 + 65.50000 -99.50000 0.0000000E+00 + 66.50000 -99.50000 0.0000000E+00 + 67.50000 -99.50000 0.0000000E+00 + 68.50000 -99.50000 0.0000000E+00 + 69.50000 -99.50000 0.0000000E+00 + 70.50000 -99.50000 0.0000000E+00 + 71.50000 -99.50000 0.0000000E+00 + 72.50000 -99.50000 0.0000000E+00 + 73.50000 -99.50000 0.0000000E+00 + 74.50000 -99.50000 0.0000000E+00 + 75.50000 -99.50000 0.0000000E+00 + 76.50000 -99.50000 0.0000000E+00 + 77.50000 -99.50000 0.0000000E+00 + 78.50000 -99.50000 0.0000000E+00 + 79.50000 -99.50000 0.0000000E+00 + 80.50000 -99.50000 0.0000000E+00 + 81.50000 -99.50000 0.0000000E+00 + 82.50000 -99.50000 0.0000000E+00 + 83.50000 -99.50000 0.0000000E+00 + 84.50000 -99.50000 0.0000000E+00 + 85.50000 -99.50000 0.0000000E+00 + 86.50000 -99.50000 0.0000000E+00 + 87.50000 -99.50000 0.0000000E+00 + 88.50000 -99.50000 0.0000000E+00 + 89.50000 -99.50000 0.0000000E+00 + -89.50000 -98.50000 0.0000000E+00 + -88.50000 -98.50000 0.0000000E+00 + -87.50000 -98.50000 0.0000000E+00 + -86.50000 -98.50000 0.0000000E+00 + -85.50000 -98.50000 0.0000000E+00 + -84.50000 -98.50000 0.0000000E+00 + -83.50000 -98.50000 0.0000000E+00 + -82.50000 -98.50000 0.0000000E+00 + -81.50000 -98.50000 0.0000000E+00 + -80.50000 -98.50000 0.0000000E+00 + -79.50000 -98.50000 0.0000000E+00 + -78.50000 -98.50000 0.0000000E+00 + -77.50000 -98.50000 0.0000000E+00 + -76.50000 -98.50000 0.0000000E+00 + -75.50000 -98.50000 0.0000000E+00 + -74.50000 -98.50000 0.0000000E+00 + -73.50000 -98.50000 0.0000000E+00 + -72.50000 -98.50000 0.0000000E+00 + -71.50000 -98.50000 0.0000000E+00 + -70.50000 -98.50000 0.0000000E+00 + -69.50000 -98.50000 0.0000000E+00 + -68.50000 -98.50000 0.0000000E+00 + -67.50000 -98.50000 0.0000000E+00 + -66.50000 -98.50000 0.0000000E+00 + -65.50000 -98.50000 0.0000000E+00 + -64.50000 -98.50000 0.0000000E+00 + -63.50000 -98.50000 0.0000000E+00 + -62.50000 -98.50000 0.0000000E+00 + -61.50000 -98.50000 0.0000000E+00 + -60.50000 -98.50000 0.0000000E+00 + -59.50000 -98.50000 0.0000000E+00 + -58.50000 -98.50000 0.0000000E+00 + -57.50000 -98.50000 0.0000000E+00 + -56.50000 -98.50000 0.0000000E+00 + -55.50000 -98.50000 0.0000000E+00 + -54.50000 -98.50000 0.0000000E+00 + -53.50000 -98.50000 0.0000000E+00 + -52.50000 -98.50000 0.0000000E+00 + -51.50000 -98.50000 0.0000000E+00 + -50.50000 -98.50000 0.0000000E+00 + -49.50000 -98.50000 0.0000000E+00 + -48.50000 -98.50000 0.0000000E+00 + -47.50000 -98.50000 0.0000000E+00 + -46.50000 -98.50000 0.0000000E+00 + -45.50000 -98.50000 0.0000000E+00 + -44.50000 -98.50000 0.0000000E+00 + -43.50000 -98.50000 0.0000000E+00 + -42.50000 -98.50000 0.0000000E+00 + -41.50000 -98.50000 0.0000000E+00 + -40.50000 -98.50000 0.0000000E+00 + -39.50000 -98.50000 0.0000000E+00 + -38.50000 -98.50000 0.0000000E+00 + -37.50000 -98.50000 0.0000000E+00 + -36.50000 -98.50000 0.0000000E+00 + -35.50000 -98.50000 0.0000000E+00 + -34.50000 -98.50000 0.0000000E+00 + -33.50000 -98.50000 0.0000000E+00 + -32.50000 -98.50000 0.0000000E+00 + -31.50000 -98.50000 0.0000000E+00 + -30.50000 -98.50000 0.0000000E+00 + -29.50000 -98.50000 0.0000000E+00 + -28.50000 -98.50000 0.0000000E+00 + -27.50000 -98.50000 0.0000000E+00 + -26.50000 -98.50000 0.0000000E+00 + -25.50000 -98.50000 0.0000000E+00 + -24.50000 -98.50000 0.0000000E+00 + -23.50000 -98.50000 0.0000000E+00 + -22.50000 -98.50000 0.0000000E+00 + -21.50000 -98.50000 0.0000000E+00 + -20.50000 -98.50000 0.0000000E+00 + -19.50000 -98.50000 0.0000000E+00 + -18.50000 -98.50000 0.0000000E+00 + -17.50000 -98.50000 0.0000000E+00 + -16.50000 -98.50000 0.0000000E+00 + -15.50000 -98.50000 0.0000000E+00 + -14.50000 -98.50000 0.0000000E+00 + -13.50000 -98.50000 0.0000000E+00 + -12.50000 -98.50000 0.0000000E+00 + -11.50000 -98.50000 0.0000000E+00 + -10.50000 -98.50000 0.0000000E+00 + -9.500000 -98.50000 0.0000000E+00 + -8.500000 -98.50000 0.0000000E+00 + -7.500000 -98.50000 0.0000000E+00 + -6.500000 -98.50000 0.0000000E+00 + -5.500000 -98.50000 0.0000000E+00 + -4.500000 -98.50000 0.0000000E+00 + -3.500000 -98.50000 0.0000000E+00 + -2.500000 -98.50000 0.0000000E+00 + -1.500000 -98.50000 0.0000000E+00 + -0.5000000 -98.50000 0.0000000E+00 + 0.5000000 -98.50000 0.0000000E+00 + 1.500000 -98.50000 0.0000000E+00 + 2.500000 -98.50000 0.0000000E+00 + 3.500000 -98.50000 0.0000000E+00 + 4.500000 -98.50000 0.0000000E+00 + 5.500000 -98.50000 0.0000000E+00 + 6.500000 -98.50000 0.0000000E+00 + 7.500000 -98.50000 0.0000000E+00 + 8.500000 -98.50000 0.0000000E+00 + 9.500000 -98.50000 0.0000000E+00 + 10.50000 -98.50000 0.0000000E+00 + 11.50000 -98.50000 0.0000000E+00 + 12.50000 -98.50000 0.0000000E+00 + 13.50000 -98.50000 0.0000000E+00 + 14.50000 -98.50000 0.0000000E+00 + 15.50000 -98.50000 0.0000000E+00 + 16.50000 -98.50000 0.0000000E+00 + 17.50000 -98.50000 0.0000000E+00 + 18.50000 -98.50000 0.0000000E+00 + 19.50000 -98.50000 0.0000000E+00 + 20.50000 -98.50000 0.0000000E+00 + 21.50000 -98.50000 0.0000000E+00 + 22.50000 -98.50000 0.0000000E+00 + 23.50000 -98.50000 0.0000000E+00 + 24.50000 -98.50000 0.0000000E+00 + 25.50000 -98.50000 0.0000000E+00 + 26.50000 -98.50000 0.0000000E+00 + 27.50000 -98.50000 0.0000000E+00 + 28.50000 -98.50000 0.0000000E+00 + 29.50000 -98.50000 0.0000000E+00 + 30.50000 -98.50000 0.0000000E+00 + 31.50000 -98.50000 0.0000000E+00 + 32.50000 -98.50000 0.0000000E+00 + 33.50000 -98.50000 0.0000000E+00 + 34.50000 -98.50000 0.0000000E+00 + 35.50000 -98.50000 0.0000000E+00 + 36.50000 -98.50000 0.0000000E+00 + 37.50000 -98.50000 0.0000000E+00 + 38.50000 -98.50000 0.0000000E+00 + 39.50000 -98.50000 0.0000000E+00 + 40.50000 -98.50000 0.0000000E+00 + 41.50000 -98.50000 0.0000000E+00 + 42.50000 -98.50000 0.0000000E+00 + 43.50000 -98.50000 0.0000000E+00 + 44.50000 -98.50000 0.0000000E+00 + 45.50000 -98.50000 0.0000000E+00 + 46.50000 -98.50000 0.0000000E+00 + 47.50000 -98.50000 0.0000000E+00 + 48.50000 -98.50000 0.0000000E+00 + 49.50000 -98.50000 0.0000000E+00 + 50.50000 -98.50000 0.0000000E+00 + 51.50000 -98.50000 0.0000000E+00 + 52.50000 -98.50000 0.0000000E+00 + 53.50000 -98.50000 0.0000000E+00 + 54.50000 -98.50000 0.0000000E+00 + 55.50000 -98.50000 0.0000000E+00 + 56.50000 -98.50000 0.0000000E+00 + 57.50000 -98.50000 0.0000000E+00 + 58.50000 -98.50000 0.0000000E+00 + 59.50000 -98.50000 0.0000000E+00 + 60.50000 -98.50000 0.0000000E+00 + 61.50000 -98.50000 0.0000000E+00 + 62.50000 -98.50000 0.0000000E+00 + 63.50000 -98.50000 0.0000000E+00 + 64.50000 -98.50000 0.0000000E+00 + 65.50000 -98.50000 0.0000000E+00 + 66.50000 -98.50000 0.0000000E+00 + 67.50000 -98.50000 0.0000000E+00 + 68.50000 -98.50000 0.0000000E+00 + 69.50000 -98.50000 0.0000000E+00 + 70.50000 -98.50000 0.0000000E+00 + 71.50000 -98.50000 0.0000000E+00 + 72.50000 -98.50000 0.0000000E+00 + 73.50000 -98.50000 0.0000000E+00 + 74.50000 -98.50000 0.0000000E+00 + 75.50000 -98.50000 0.0000000E+00 + 76.50000 -98.50000 0.0000000E+00 + 77.50000 -98.50000 0.0000000E+00 + 78.50000 -98.50000 0.0000000E+00 + 79.50000 -98.50000 0.0000000E+00 + 80.50000 -98.50000 0.0000000E+00 + 81.50000 -98.50000 0.0000000E+00 + 82.50000 -98.50000 0.0000000E+00 + 83.50000 -98.50000 0.0000000E+00 + 84.50000 -98.50000 0.0000000E+00 + 85.50000 -98.50000 0.0000000E+00 + 86.50000 -98.50000 0.0000000E+00 + 87.50000 -98.50000 0.0000000E+00 + 88.50000 -98.50000 0.0000000E+00 + 89.50000 -98.50000 0.0000000E+00 + -89.50000 -97.50000 0.0000000E+00 + -88.50000 -97.50000 0.0000000E+00 + -87.50000 -97.50000 0.0000000E+00 + -86.50000 -97.50000 0.0000000E+00 + -85.50000 -97.50000 0.0000000E+00 + -84.50000 -97.50000 0.0000000E+00 + -83.50000 -97.50000 0.0000000E+00 + -82.50000 -97.50000 0.0000000E+00 + -81.50000 -97.50000 0.0000000E+00 + -80.50000 -97.50000 0.0000000E+00 + -79.50000 -97.50000 0.0000000E+00 + -78.50000 -97.50000 0.0000000E+00 + -77.50000 -97.50000 0.0000000E+00 + -76.50000 -97.50000 0.0000000E+00 + -75.50000 -97.50000 0.0000000E+00 + -74.50000 -97.50000 0.0000000E+00 + -73.50000 -97.50000 0.0000000E+00 + -72.50000 -97.50000 0.0000000E+00 + -71.50000 -97.50000 0.0000000E+00 + -70.50000 -97.50000 0.0000000E+00 + -69.50000 -97.50000 0.0000000E+00 + -68.50000 -97.50000 0.0000000E+00 + -67.50000 -97.50000 0.0000000E+00 + -66.50000 -97.50000 0.0000000E+00 + -65.50000 -97.50000 0.0000000E+00 + -64.50000 -97.50000 0.0000000E+00 + -63.50000 -97.50000 0.0000000E+00 + -62.50000 -97.50000 0.0000000E+00 + -61.50000 -97.50000 0.0000000E+00 + -60.50000 -97.50000 0.0000000E+00 + -59.50000 -97.50000 0.0000000E+00 + -58.50000 -97.50000 0.0000000E+00 + -57.50000 -97.50000 0.0000000E+00 + -56.50000 -97.50000 0.0000000E+00 + -55.50000 -97.50000 0.0000000E+00 + -54.50000 -97.50000 0.0000000E+00 + -53.50000 -97.50000 0.0000000E+00 + -52.50000 -97.50000 0.0000000E+00 + -51.50000 -97.50000 0.0000000E+00 + -50.50000 -97.50000 0.0000000E+00 + -49.50000 -97.50000 0.0000000E+00 + -48.50000 -97.50000 0.0000000E+00 + -47.50000 -97.50000 0.0000000E+00 + -46.50000 -97.50000 0.0000000E+00 + -45.50000 -97.50000 0.0000000E+00 + -44.50000 -97.50000 0.0000000E+00 + -43.50000 -97.50000 0.0000000E+00 + -42.50000 -97.50000 0.0000000E+00 + -41.50000 -97.50000 0.0000000E+00 + -40.50000 -97.50000 0.0000000E+00 + -39.50000 -97.50000 0.0000000E+00 + -38.50000 -97.50000 0.0000000E+00 + -37.50000 -97.50000 0.0000000E+00 + -36.50000 -97.50000 0.0000000E+00 + -35.50000 -97.50000 0.0000000E+00 + -34.50000 -97.50000 0.0000000E+00 + -33.50000 -97.50000 0.0000000E+00 + -32.50000 -97.50000 0.0000000E+00 + -31.50000 -97.50000 0.0000000E+00 + -30.50000 -97.50000 0.0000000E+00 + -29.50000 -97.50000 0.0000000E+00 + -28.50000 -97.50000 0.0000000E+00 + -27.50000 -97.50000 0.0000000E+00 + -26.50000 -97.50000 0.0000000E+00 + -25.50000 -97.50000 0.0000000E+00 + -24.50000 -97.50000 0.0000000E+00 + -23.50000 -97.50000 0.0000000E+00 + -22.50000 -97.50000 0.0000000E+00 + -21.50000 -97.50000 0.0000000E+00 + -20.50000 -97.50000 0.0000000E+00 + -19.50000 -97.50000 0.0000000E+00 + -18.50000 -97.50000 0.0000000E+00 + -17.50000 -97.50000 0.0000000E+00 + -16.50000 -97.50000 0.0000000E+00 + -15.50000 -97.50000 0.0000000E+00 + -14.50000 -97.50000 0.0000000E+00 + -13.50000 -97.50000 0.0000000E+00 + -12.50000 -97.50000 0.0000000E+00 + -11.50000 -97.50000 0.0000000E+00 + -10.50000 -97.50000 0.0000000E+00 + -9.500000 -97.50000 0.0000000E+00 + -8.500000 -97.50000 0.0000000E+00 + -7.500000 -97.50000 0.0000000E+00 + -6.500000 -97.50000 0.0000000E+00 + -5.500000 -97.50000 0.0000000E+00 + -4.500000 -97.50000 0.0000000E+00 + -3.500000 -97.50000 0.0000000E+00 + -2.500000 -97.50000 0.0000000E+00 + -1.500000 -97.50000 0.0000000E+00 + -0.5000000 -97.50000 0.0000000E+00 + 0.5000000 -97.50000 0.0000000E+00 + 1.500000 -97.50000 0.0000000E+00 + 2.500000 -97.50000 0.0000000E+00 + 3.500000 -97.50000 0.0000000E+00 + 4.500000 -97.50000 0.0000000E+00 + 5.500000 -97.50000 0.0000000E+00 + 6.500000 -97.50000 0.0000000E+00 + 7.500000 -97.50000 0.0000000E+00 + 8.500000 -97.50000 0.0000000E+00 + 9.500000 -97.50000 0.0000000E+00 + 10.50000 -97.50000 0.0000000E+00 + 11.50000 -97.50000 0.0000000E+00 + 12.50000 -97.50000 0.0000000E+00 + 13.50000 -97.50000 0.0000000E+00 + 14.50000 -97.50000 0.0000000E+00 + 15.50000 -97.50000 0.0000000E+00 + 16.50000 -97.50000 0.0000000E+00 + 17.50000 -97.50000 0.0000000E+00 + 18.50000 -97.50000 0.0000000E+00 + 19.50000 -97.50000 0.0000000E+00 + 20.50000 -97.50000 0.0000000E+00 + 21.50000 -97.50000 0.0000000E+00 + 22.50000 -97.50000 0.0000000E+00 + 23.50000 -97.50000 0.0000000E+00 + 24.50000 -97.50000 0.0000000E+00 + 25.50000 -97.50000 0.0000000E+00 + 26.50000 -97.50000 0.0000000E+00 + 27.50000 -97.50000 0.0000000E+00 + 28.50000 -97.50000 0.0000000E+00 + 29.50000 -97.50000 0.0000000E+00 + 30.50000 -97.50000 0.0000000E+00 + 31.50000 -97.50000 0.0000000E+00 + 32.50000 -97.50000 0.0000000E+00 + 33.50000 -97.50000 0.0000000E+00 + 34.50000 -97.50000 0.0000000E+00 + 35.50000 -97.50000 0.0000000E+00 + 36.50000 -97.50000 0.0000000E+00 + 37.50000 -97.50000 0.0000000E+00 + 38.50000 -97.50000 0.0000000E+00 + 39.50000 -97.50000 0.0000000E+00 + 40.50000 -97.50000 0.0000000E+00 + 41.50000 -97.50000 0.0000000E+00 + 42.50000 -97.50000 0.0000000E+00 + 43.50000 -97.50000 0.0000000E+00 + 44.50000 -97.50000 0.0000000E+00 + 45.50000 -97.50000 0.0000000E+00 + 46.50000 -97.50000 0.0000000E+00 + 47.50000 -97.50000 0.0000000E+00 + 48.50000 -97.50000 0.0000000E+00 + 49.50000 -97.50000 0.0000000E+00 + 50.50000 -97.50000 0.0000000E+00 + 51.50000 -97.50000 0.0000000E+00 + 52.50000 -97.50000 0.0000000E+00 + 53.50000 -97.50000 0.0000000E+00 + 54.50000 -97.50000 0.0000000E+00 + 55.50000 -97.50000 0.0000000E+00 + 56.50000 -97.50000 0.0000000E+00 + 57.50000 -97.50000 0.0000000E+00 + 58.50000 -97.50000 0.0000000E+00 + 59.50000 -97.50000 0.0000000E+00 + 60.50000 -97.50000 0.0000000E+00 + 61.50000 -97.50000 0.0000000E+00 + 62.50000 -97.50000 0.0000000E+00 + 63.50000 -97.50000 0.0000000E+00 + 64.50000 -97.50000 0.0000000E+00 + 65.50000 -97.50000 0.0000000E+00 + 66.50000 -97.50000 0.0000000E+00 + 67.50000 -97.50000 0.0000000E+00 + 68.50000 -97.50000 0.0000000E+00 + 69.50000 -97.50000 0.0000000E+00 + 70.50000 -97.50000 0.0000000E+00 + 71.50000 -97.50000 0.0000000E+00 + 72.50000 -97.50000 0.0000000E+00 + 73.50000 -97.50000 0.0000000E+00 + 74.50000 -97.50000 0.0000000E+00 + 75.50000 -97.50000 0.0000000E+00 + 76.50000 -97.50000 0.0000000E+00 + 77.50000 -97.50000 0.0000000E+00 + 78.50000 -97.50000 0.0000000E+00 + 79.50000 -97.50000 0.0000000E+00 + 80.50000 -97.50000 0.0000000E+00 + 81.50000 -97.50000 0.0000000E+00 + 82.50000 -97.50000 0.0000000E+00 + 83.50000 -97.50000 0.0000000E+00 + 84.50000 -97.50000 0.0000000E+00 + 85.50000 -97.50000 0.0000000E+00 + 86.50000 -97.50000 0.0000000E+00 + 87.50000 -97.50000 0.0000000E+00 + 88.50000 -97.50000 0.0000000E+00 + 89.50000 -97.50000 0.0000000E+00 + -89.50000 -96.50000 0.0000000E+00 + -88.50000 -96.50000 0.0000000E+00 + -87.50000 -96.50000 0.0000000E+00 + -86.50000 -96.50000 0.0000000E+00 + -85.50000 -96.50000 0.0000000E+00 + -84.50000 -96.50000 0.0000000E+00 + -83.50000 -96.50000 0.0000000E+00 + -82.50000 -96.50000 0.0000000E+00 + -81.50000 -96.50000 0.0000000E+00 + -80.50000 -96.50000 0.0000000E+00 + -79.50000 -96.50000 0.0000000E+00 + -78.50000 -96.50000 0.0000000E+00 + -77.50000 -96.50000 0.0000000E+00 + -76.50000 -96.50000 0.0000000E+00 + -75.50000 -96.50000 0.0000000E+00 + -74.50000 -96.50000 0.0000000E+00 + -73.50000 -96.50000 0.0000000E+00 + -72.50000 -96.50000 0.0000000E+00 + -71.50000 -96.50000 0.0000000E+00 + -70.50000 -96.50000 0.0000000E+00 + -69.50000 -96.50000 0.0000000E+00 + -68.50000 -96.50000 0.0000000E+00 + -67.50000 -96.50000 0.0000000E+00 + -66.50000 -96.50000 0.0000000E+00 + -65.50000 -96.50000 0.0000000E+00 + -64.50000 -96.50000 0.0000000E+00 + -63.50000 -96.50000 0.0000000E+00 + -62.50000 -96.50000 0.0000000E+00 + -61.50000 -96.50000 0.0000000E+00 + -60.50000 -96.50000 0.0000000E+00 + -59.50000 -96.50000 0.0000000E+00 + -58.50000 -96.50000 0.0000000E+00 + -57.50000 -96.50000 0.0000000E+00 + -56.50000 -96.50000 0.0000000E+00 + -55.50000 -96.50000 0.0000000E+00 + -54.50000 -96.50000 0.0000000E+00 + -53.50000 -96.50000 0.0000000E+00 + -52.50000 -96.50000 0.0000000E+00 + -51.50000 -96.50000 0.0000000E+00 + -50.50000 -96.50000 0.0000000E+00 + -49.50000 -96.50000 0.0000000E+00 + -48.50000 -96.50000 0.0000000E+00 + -47.50000 -96.50000 0.0000000E+00 + -46.50000 -96.50000 0.0000000E+00 + -45.50000 -96.50000 0.0000000E+00 + -44.50000 -96.50000 0.0000000E+00 + -43.50000 -96.50000 0.0000000E+00 + -42.50000 -96.50000 0.0000000E+00 + -41.50000 -96.50000 0.0000000E+00 + -40.50000 -96.50000 0.0000000E+00 + -39.50000 -96.50000 0.0000000E+00 + -38.50000 -96.50000 0.0000000E+00 + -37.50000 -96.50000 0.0000000E+00 + -36.50000 -96.50000 0.0000000E+00 + -35.50000 -96.50000 0.0000000E+00 + -34.50000 -96.50000 0.0000000E+00 + -33.50000 -96.50000 0.0000000E+00 + -32.50000 -96.50000 0.0000000E+00 + -31.50000 -96.50000 0.0000000E+00 + -30.50000 -96.50000 0.0000000E+00 + -29.50000 -96.50000 0.0000000E+00 + -28.50000 -96.50000 0.0000000E+00 + -27.50000 -96.50000 0.0000000E+00 + -26.50000 -96.50000 0.0000000E+00 + -25.50000 -96.50000 0.0000000E+00 + -24.50000 -96.50000 0.0000000E+00 + -23.50000 -96.50000 0.0000000E+00 + -22.50000 -96.50000 0.0000000E+00 + -21.50000 -96.50000 0.0000000E+00 + -20.50000 -96.50000 0.0000000E+00 + -19.50000 -96.50000 0.0000000E+00 + -18.50000 -96.50000 0.0000000E+00 + -17.50000 -96.50000 0.0000000E+00 + -16.50000 -96.50000 0.0000000E+00 + -15.50000 -96.50000 0.0000000E+00 + -14.50000 -96.50000 0.0000000E+00 + -13.50000 -96.50000 0.0000000E+00 + -12.50000 -96.50000 0.0000000E+00 + -11.50000 -96.50000 0.0000000E+00 + -10.50000 -96.50000 0.0000000E+00 + -9.500000 -96.50000 0.0000000E+00 + -8.500000 -96.50000 0.0000000E+00 + -7.500000 -96.50000 0.0000000E+00 + -6.500000 -96.50000 0.0000000E+00 + -5.500000 -96.50000 0.0000000E+00 + -4.500000 -96.50000 0.0000000E+00 + -3.500000 -96.50000 0.0000000E+00 + -2.500000 -96.50000 0.0000000E+00 + -1.500000 -96.50000 0.0000000E+00 + -0.5000000 -96.50000 0.0000000E+00 + 0.5000000 -96.50000 0.0000000E+00 + 1.500000 -96.50000 0.0000000E+00 + 2.500000 -96.50000 0.0000000E+00 + 3.500000 -96.50000 0.0000000E+00 + 4.500000 -96.50000 0.0000000E+00 + 5.500000 -96.50000 0.0000000E+00 + 6.500000 -96.50000 0.0000000E+00 + 7.500000 -96.50000 0.0000000E+00 + 8.500000 -96.50000 0.0000000E+00 + 9.500000 -96.50000 0.0000000E+00 + 10.50000 -96.50000 0.0000000E+00 + 11.50000 -96.50000 0.0000000E+00 + 12.50000 -96.50000 0.0000000E+00 + 13.50000 -96.50000 0.0000000E+00 + 14.50000 -96.50000 0.0000000E+00 + 15.50000 -96.50000 0.0000000E+00 + 16.50000 -96.50000 0.0000000E+00 + 17.50000 -96.50000 0.0000000E+00 + 18.50000 -96.50000 0.0000000E+00 + 19.50000 -96.50000 0.0000000E+00 + 20.50000 -96.50000 0.0000000E+00 + 21.50000 -96.50000 0.0000000E+00 + 22.50000 -96.50000 0.0000000E+00 + 23.50000 -96.50000 0.0000000E+00 + 24.50000 -96.50000 0.0000000E+00 + 25.50000 -96.50000 0.0000000E+00 + 26.50000 -96.50000 0.0000000E+00 + 27.50000 -96.50000 0.0000000E+00 + 28.50000 -96.50000 0.0000000E+00 + 29.50000 -96.50000 0.0000000E+00 + 30.50000 -96.50000 0.0000000E+00 + 31.50000 -96.50000 0.0000000E+00 + 32.50000 -96.50000 0.0000000E+00 + 33.50000 -96.50000 0.0000000E+00 + 34.50000 -96.50000 0.0000000E+00 + 35.50000 -96.50000 0.0000000E+00 + 36.50000 -96.50000 0.0000000E+00 + 37.50000 -96.50000 0.0000000E+00 + 38.50000 -96.50000 0.0000000E+00 + 39.50000 -96.50000 0.0000000E+00 + 40.50000 -96.50000 0.0000000E+00 + 41.50000 -96.50000 0.0000000E+00 + 42.50000 -96.50000 0.0000000E+00 + 43.50000 -96.50000 0.0000000E+00 + 44.50000 -96.50000 0.0000000E+00 + 45.50000 -96.50000 0.0000000E+00 + 46.50000 -96.50000 0.0000000E+00 + 47.50000 -96.50000 0.0000000E+00 + 48.50000 -96.50000 0.0000000E+00 + 49.50000 -96.50000 0.0000000E+00 + 50.50000 -96.50000 0.0000000E+00 + 51.50000 -96.50000 0.0000000E+00 + 52.50000 -96.50000 0.0000000E+00 + 53.50000 -96.50000 0.0000000E+00 + 54.50000 -96.50000 0.0000000E+00 + 55.50000 -96.50000 0.0000000E+00 + 56.50000 -96.50000 0.0000000E+00 + 57.50000 -96.50000 0.0000000E+00 + 58.50000 -96.50000 0.0000000E+00 + 59.50000 -96.50000 0.0000000E+00 + 60.50000 -96.50000 0.0000000E+00 + 61.50000 -96.50000 0.0000000E+00 + 62.50000 -96.50000 0.0000000E+00 + 63.50000 -96.50000 0.0000000E+00 + 64.50000 -96.50000 0.0000000E+00 + 65.50000 -96.50000 0.0000000E+00 + 66.50000 -96.50000 0.0000000E+00 + 67.50000 -96.50000 0.0000000E+00 + 68.50000 -96.50000 0.0000000E+00 + 69.50000 -96.50000 0.0000000E+00 + 70.50000 -96.50000 0.0000000E+00 + 71.50000 -96.50000 0.0000000E+00 + 72.50000 -96.50000 0.0000000E+00 + 73.50000 -96.50000 0.0000000E+00 + 74.50000 -96.50000 0.0000000E+00 + 75.50000 -96.50000 0.0000000E+00 + 76.50000 -96.50000 0.0000000E+00 + 77.50000 -96.50000 0.0000000E+00 + 78.50000 -96.50000 0.0000000E+00 + 79.50000 -96.50000 0.0000000E+00 + 80.50000 -96.50000 0.0000000E+00 + 81.50000 -96.50000 0.0000000E+00 + 82.50000 -96.50000 0.0000000E+00 + 83.50000 -96.50000 0.0000000E+00 + 84.50000 -96.50000 0.0000000E+00 + 85.50000 -96.50000 0.0000000E+00 + 86.50000 -96.50000 0.0000000E+00 + 87.50000 -96.50000 0.0000000E+00 + 88.50000 -96.50000 0.0000000E+00 + 89.50000 -96.50000 0.0000000E+00 + -89.50000 -95.50000 0.0000000E+00 + -88.50000 -95.50000 0.0000000E+00 + -87.50000 -95.50000 0.0000000E+00 + -86.50000 -95.50000 0.0000000E+00 + -85.50000 -95.50000 0.0000000E+00 + -84.50000 -95.50000 0.0000000E+00 + -83.50000 -95.50000 0.0000000E+00 + -82.50000 -95.50000 0.0000000E+00 + -81.50000 -95.50000 0.0000000E+00 + -80.50000 -95.50000 0.0000000E+00 + -79.50000 -95.50000 0.0000000E+00 + -78.50000 -95.50000 0.0000000E+00 + -77.50000 -95.50000 0.0000000E+00 + -76.50000 -95.50000 0.0000000E+00 + -75.50000 -95.50000 0.0000000E+00 + -74.50000 -95.50000 0.0000000E+00 + -73.50000 -95.50000 0.0000000E+00 + -72.50000 -95.50000 0.0000000E+00 + -71.50000 -95.50000 0.0000000E+00 + -70.50000 -95.50000 0.0000000E+00 + -69.50000 -95.50000 0.0000000E+00 + -68.50000 -95.50000 0.0000000E+00 + -67.50000 -95.50000 0.0000000E+00 + -66.50000 -95.50000 0.0000000E+00 + -65.50000 -95.50000 0.0000000E+00 + -64.50000 -95.50000 0.0000000E+00 + -63.50000 -95.50000 0.0000000E+00 + -62.50000 -95.50000 0.0000000E+00 + -61.50000 -95.50000 0.0000000E+00 + -60.50000 -95.50000 0.0000000E+00 + -59.50000 -95.50000 0.0000000E+00 + -58.50000 -95.50000 0.0000000E+00 + -57.50000 -95.50000 0.0000000E+00 + -56.50000 -95.50000 0.0000000E+00 + -55.50000 -95.50000 0.0000000E+00 + -54.50000 -95.50000 0.0000000E+00 + -53.50000 -95.50000 0.0000000E+00 + -52.50000 -95.50000 0.0000000E+00 + -51.50000 -95.50000 0.0000000E+00 + -50.50000 -95.50000 0.0000000E+00 + -49.50000 -95.50000 0.0000000E+00 + -48.50000 -95.50000 0.0000000E+00 + -47.50000 -95.50000 0.0000000E+00 + -46.50000 -95.50000 0.0000000E+00 + -45.50000 -95.50000 0.0000000E+00 + -44.50000 -95.50000 0.0000000E+00 + -43.50000 -95.50000 0.0000000E+00 + -42.50000 -95.50000 0.0000000E+00 + -41.50000 -95.50000 0.0000000E+00 + -40.50000 -95.50000 0.0000000E+00 + -39.50000 -95.50000 0.0000000E+00 + -38.50000 -95.50000 0.0000000E+00 + -37.50000 -95.50000 0.0000000E+00 + -36.50000 -95.50000 0.0000000E+00 + -35.50000 -95.50000 0.0000000E+00 + -34.50000 -95.50000 0.0000000E+00 + -33.50000 -95.50000 0.0000000E+00 + -32.50000 -95.50000 0.0000000E+00 + -31.50000 -95.50000 0.0000000E+00 + -30.50000 -95.50000 0.0000000E+00 + -29.50000 -95.50000 0.0000000E+00 + -28.50000 -95.50000 0.0000000E+00 + -27.50000 -95.50000 0.0000000E+00 + -26.50000 -95.50000 0.0000000E+00 + -25.50000 -95.50000 0.0000000E+00 + -24.50000 -95.50000 0.0000000E+00 + -23.50000 -95.50000 0.0000000E+00 + -22.50000 -95.50000 0.0000000E+00 + -21.50000 -95.50000 0.0000000E+00 + -20.50000 -95.50000 0.0000000E+00 + -19.50000 -95.50000 0.0000000E+00 + -18.50000 -95.50000 0.0000000E+00 + -17.50000 -95.50000 0.0000000E+00 + -16.50000 -95.50000 0.0000000E+00 + -15.50000 -95.50000 0.0000000E+00 + -14.50000 -95.50000 0.0000000E+00 + -13.50000 -95.50000 0.0000000E+00 + -12.50000 -95.50000 0.0000000E+00 + -11.50000 -95.50000 0.0000000E+00 + -10.50000 -95.50000 0.0000000E+00 + -9.500000 -95.50000 0.0000000E+00 + -8.500000 -95.50000 0.0000000E+00 + -7.500000 -95.50000 0.0000000E+00 + -6.500000 -95.50000 0.0000000E+00 + -5.500000 -95.50000 0.0000000E+00 + -4.500000 -95.50000 0.0000000E+00 + -3.500000 -95.50000 0.0000000E+00 + -2.500000 -95.50000 0.0000000E+00 + -1.500000 -95.50000 0.0000000E+00 + -0.5000000 -95.50000 0.0000000E+00 + 0.5000000 -95.50000 0.0000000E+00 + 1.500000 -95.50000 0.0000000E+00 + 2.500000 -95.50000 0.0000000E+00 + 3.500000 -95.50000 0.0000000E+00 + 4.500000 -95.50000 0.0000000E+00 + 5.500000 -95.50000 0.0000000E+00 + 6.500000 -95.50000 0.0000000E+00 + 7.500000 -95.50000 0.0000000E+00 + 8.500000 -95.50000 0.0000000E+00 + 9.500000 -95.50000 0.0000000E+00 + 10.50000 -95.50000 0.0000000E+00 + 11.50000 -95.50000 0.0000000E+00 + 12.50000 -95.50000 0.0000000E+00 + 13.50000 -95.50000 0.0000000E+00 + 14.50000 -95.50000 0.0000000E+00 + 15.50000 -95.50000 0.0000000E+00 + 16.50000 -95.50000 0.0000000E+00 + 17.50000 -95.50000 0.0000000E+00 + 18.50000 -95.50000 0.0000000E+00 + 19.50000 -95.50000 0.0000000E+00 + 20.50000 -95.50000 0.0000000E+00 + 21.50000 -95.50000 0.0000000E+00 + 22.50000 -95.50000 0.0000000E+00 + 23.50000 -95.50000 0.0000000E+00 + 24.50000 -95.50000 0.0000000E+00 + 25.50000 -95.50000 0.0000000E+00 + 26.50000 -95.50000 0.0000000E+00 + 27.50000 -95.50000 0.0000000E+00 + 28.50000 -95.50000 0.0000000E+00 + 29.50000 -95.50000 0.0000000E+00 + 30.50000 -95.50000 0.0000000E+00 + 31.50000 -95.50000 0.0000000E+00 + 32.50000 -95.50000 0.0000000E+00 + 33.50000 -95.50000 0.0000000E+00 + 34.50000 -95.50000 0.0000000E+00 + 35.50000 -95.50000 0.0000000E+00 + 36.50000 -95.50000 0.0000000E+00 + 37.50000 -95.50000 0.0000000E+00 + 38.50000 -95.50000 0.0000000E+00 + 39.50000 -95.50000 0.0000000E+00 + 40.50000 -95.50000 0.0000000E+00 + 41.50000 -95.50000 0.0000000E+00 + 42.50000 -95.50000 0.0000000E+00 + 43.50000 -95.50000 0.0000000E+00 + 44.50000 -95.50000 0.0000000E+00 + 45.50000 -95.50000 0.0000000E+00 + 46.50000 -95.50000 0.0000000E+00 + 47.50000 -95.50000 0.0000000E+00 + 48.50000 -95.50000 0.0000000E+00 + 49.50000 -95.50000 0.0000000E+00 + 50.50000 -95.50000 0.0000000E+00 + 51.50000 -95.50000 0.0000000E+00 + 52.50000 -95.50000 0.0000000E+00 + 53.50000 -95.50000 0.0000000E+00 + 54.50000 -95.50000 0.0000000E+00 + 55.50000 -95.50000 0.0000000E+00 + 56.50000 -95.50000 0.0000000E+00 + 57.50000 -95.50000 0.0000000E+00 + 58.50000 -95.50000 0.0000000E+00 + 59.50000 -95.50000 0.0000000E+00 + 60.50000 -95.50000 0.0000000E+00 + 61.50000 -95.50000 0.0000000E+00 + 62.50000 -95.50000 0.0000000E+00 + 63.50000 -95.50000 0.0000000E+00 + 64.50000 -95.50000 0.0000000E+00 + 65.50000 -95.50000 0.0000000E+00 + 66.50000 -95.50000 0.0000000E+00 + 67.50000 -95.50000 0.0000000E+00 + 68.50000 -95.50000 0.0000000E+00 + 69.50000 -95.50000 0.0000000E+00 + 70.50000 -95.50000 0.0000000E+00 + 71.50000 -95.50000 0.0000000E+00 + 72.50000 -95.50000 0.0000000E+00 + 73.50000 -95.50000 0.0000000E+00 + 74.50000 -95.50000 0.0000000E+00 + 75.50000 -95.50000 0.0000000E+00 + 76.50000 -95.50000 0.0000000E+00 + 77.50000 -95.50000 0.0000000E+00 + 78.50000 -95.50000 0.0000000E+00 + 79.50000 -95.50000 0.0000000E+00 + 80.50000 -95.50000 0.0000000E+00 + 81.50000 -95.50000 0.0000000E+00 + 82.50000 -95.50000 0.0000000E+00 + 83.50000 -95.50000 0.0000000E+00 + 84.50000 -95.50000 0.0000000E+00 + 85.50000 -95.50000 0.0000000E+00 + 86.50000 -95.50000 0.0000000E+00 + 87.50000 -95.50000 0.0000000E+00 + 88.50000 -95.50000 0.0000000E+00 + 89.50000 -95.50000 0.0000000E+00 + -89.50000 -94.50000 0.0000000E+00 + -88.50000 -94.50000 0.0000000E+00 + -87.50000 -94.50000 0.0000000E+00 + -86.50000 -94.50000 0.0000000E+00 + -85.50000 -94.50000 0.0000000E+00 + -84.50000 -94.50000 0.0000000E+00 + -83.50000 -94.50000 0.0000000E+00 + -82.50000 -94.50000 0.0000000E+00 + -81.50000 -94.50000 0.0000000E+00 + -80.50000 -94.50000 0.0000000E+00 + -79.50000 -94.50000 0.0000000E+00 + -78.50000 -94.50000 0.0000000E+00 + -77.50000 -94.50000 0.0000000E+00 + -76.50000 -94.50000 0.0000000E+00 + -75.50000 -94.50000 0.0000000E+00 + -74.50000 -94.50000 0.0000000E+00 + -73.50000 -94.50000 0.0000000E+00 + -72.50000 -94.50000 0.0000000E+00 + -71.50000 -94.50000 0.0000000E+00 + -70.50000 -94.50000 0.0000000E+00 + -69.50000 -94.50000 0.0000000E+00 + -68.50000 -94.50000 0.0000000E+00 + -67.50000 -94.50000 0.0000000E+00 + -66.50000 -94.50000 0.0000000E+00 + -65.50000 -94.50000 0.0000000E+00 + -64.50000 -94.50000 0.0000000E+00 + -63.50000 -94.50000 0.0000000E+00 + -62.50000 -94.50000 0.0000000E+00 + -61.50000 -94.50000 0.0000000E+00 + -60.50000 -94.50000 0.0000000E+00 + -59.50000 -94.50000 0.0000000E+00 + -58.50000 -94.50000 0.0000000E+00 + -57.50000 -94.50000 0.0000000E+00 + -56.50000 -94.50000 0.0000000E+00 + -55.50000 -94.50000 0.0000000E+00 + -54.50000 -94.50000 0.0000000E+00 + -53.50000 -94.50000 0.0000000E+00 + -52.50000 -94.50000 0.0000000E+00 + -51.50000 -94.50000 0.0000000E+00 + -50.50000 -94.50000 0.0000000E+00 + -49.50000 -94.50000 0.0000000E+00 + -48.50000 -94.50000 0.0000000E+00 + -47.50000 -94.50000 0.0000000E+00 + -46.50000 -94.50000 0.0000000E+00 + -45.50000 -94.50000 0.0000000E+00 + -44.50000 -94.50000 0.0000000E+00 + -43.50000 -94.50000 0.0000000E+00 + -42.50000 -94.50000 0.0000000E+00 + -41.50000 -94.50000 0.0000000E+00 + -40.50000 -94.50000 0.0000000E+00 + -39.50000 -94.50000 0.0000000E+00 + -38.50000 -94.50000 0.0000000E+00 + -37.50000 -94.50000 0.0000000E+00 + -36.50000 -94.50000 0.0000000E+00 + -35.50000 -94.50000 0.0000000E+00 + -34.50000 -94.50000 0.0000000E+00 + -33.50000 -94.50000 0.0000000E+00 + -32.50000 -94.50000 0.0000000E+00 + -31.50000 -94.50000 0.0000000E+00 + -30.50000 -94.50000 0.0000000E+00 + -29.50000 -94.50000 0.0000000E+00 + -28.50000 -94.50000 0.0000000E+00 + -27.50000 -94.50000 0.0000000E+00 + -26.50000 -94.50000 0.0000000E+00 + -25.50000 -94.50000 0.0000000E+00 + -24.50000 -94.50000 0.0000000E+00 + -23.50000 -94.50000 0.0000000E+00 + -22.50000 -94.50000 0.0000000E+00 + -21.50000 -94.50000 0.0000000E+00 + -20.50000 -94.50000 0.0000000E+00 + -19.50000 -94.50000 0.0000000E+00 + -18.50000 -94.50000 0.0000000E+00 + -17.50000 -94.50000 0.0000000E+00 + -16.50000 -94.50000 0.0000000E+00 + -15.50000 -94.50000 0.0000000E+00 + -14.50000 -94.50000 0.0000000E+00 + -13.50000 -94.50000 0.0000000E+00 + -12.50000 -94.50000 0.0000000E+00 + -11.50000 -94.50000 0.0000000E+00 + -10.50000 -94.50000 0.0000000E+00 + -9.500000 -94.50000 0.0000000E+00 + -8.500000 -94.50000 0.0000000E+00 + -7.500000 -94.50000 0.0000000E+00 + -6.500000 -94.50000 0.0000000E+00 + -5.500000 -94.50000 0.0000000E+00 + -4.500000 -94.50000 0.0000000E+00 + -3.500000 -94.50000 0.0000000E+00 + -2.500000 -94.50000 0.0000000E+00 + -1.500000 -94.50000 0.0000000E+00 + -0.5000000 -94.50000 0.0000000E+00 + 0.5000000 -94.50000 0.0000000E+00 + 1.500000 -94.50000 0.0000000E+00 + 2.500000 -94.50000 0.0000000E+00 + 3.500000 -94.50000 0.0000000E+00 + 4.500000 -94.50000 0.0000000E+00 + 5.500000 -94.50000 0.0000000E+00 + 6.500000 -94.50000 0.0000000E+00 + 7.500000 -94.50000 0.0000000E+00 + 8.500000 -94.50000 0.0000000E+00 + 9.500000 -94.50000 0.0000000E+00 + 10.50000 -94.50000 0.0000000E+00 + 11.50000 -94.50000 0.0000000E+00 + 12.50000 -94.50000 0.0000000E+00 + 13.50000 -94.50000 0.0000000E+00 + 14.50000 -94.50000 0.0000000E+00 + 15.50000 -94.50000 0.0000000E+00 + 16.50000 -94.50000 0.0000000E+00 + 17.50000 -94.50000 0.0000000E+00 + 18.50000 -94.50000 0.0000000E+00 + 19.50000 -94.50000 0.0000000E+00 + 20.50000 -94.50000 0.0000000E+00 + 21.50000 -94.50000 0.0000000E+00 + 22.50000 -94.50000 0.0000000E+00 + 23.50000 -94.50000 0.0000000E+00 + 24.50000 -94.50000 0.0000000E+00 + 25.50000 -94.50000 0.0000000E+00 + 26.50000 -94.50000 0.0000000E+00 + 27.50000 -94.50000 0.0000000E+00 + 28.50000 -94.50000 0.0000000E+00 + 29.50000 -94.50000 0.0000000E+00 + 30.50000 -94.50000 0.0000000E+00 + 31.50000 -94.50000 0.0000000E+00 + 32.50000 -94.50000 0.0000000E+00 + 33.50000 -94.50000 0.0000000E+00 + 34.50000 -94.50000 0.0000000E+00 + 35.50000 -94.50000 0.0000000E+00 + 36.50000 -94.50000 0.0000000E+00 + 37.50000 -94.50000 0.0000000E+00 + 38.50000 -94.50000 0.0000000E+00 + 39.50000 -94.50000 0.0000000E+00 + 40.50000 -94.50000 0.0000000E+00 + 41.50000 -94.50000 0.0000000E+00 + 42.50000 -94.50000 0.0000000E+00 + 43.50000 -94.50000 0.0000000E+00 + 44.50000 -94.50000 0.0000000E+00 + 45.50000 -94.50000 0.0000000E+00 + 46.50000 -94.50000 0.0000000E+00 + 47.50000 -94.50000 0.0000000E+00 + 48.50000 -94.50000 0.0000000E+00 + 49.50000 -94.50000 0.0000000E+00 + 50.50000 -94.50000 0.0000000E+00 + 51.50000 -94.50000 0.0000000E+00 + 52.50000 -94.50000 0.0000000E+00 + 53.50000 -94.50000 0.0000000E+00 + 54.50000 -94.50000 0.0000000E+00 + 55.50000 -94.50000 0.0000000E+00 + 56.50000 -94.50000 0.0000000E+00 + 57.50000 -94.50000 0.0000000E+00 + 58.50000 -94.50000 0.0000000E+00 + 59.50000 -94.50000 0.0000000E+00 + 60.50000 -94.50000 0.0000000E+00 + 61.50000 -94.50000 0.0000000E+00 + 62.50000 -94.50000 0.0000000E+00 + 63.50000 -94.50000 0.0000000E+00 + 64.50000 -94.50000 0.0000000E+00 + 65.50000 -94.50000 0.0000000E+00 + 66.50000 -94.50000 0.0000000E+00 + 67.50000 -94.50000 0.0000000E+00 + 68.50000 -94.50000 0.0000000E+00 + 69.50000 -94.50000 0.0000000E+00 + 70.50000 -94.50000 0.0000000E+00 + 71.50000 -94.50000 0.0000000E+00 + 72.50000 -94.50000 0.0000000E+00 + 73.50000 -94.50000 0.0000000E+00 + 74.50000 -94.50000 0.0000000E+00 + 75.50000 -94.50000 0.0000000E+00 + 76.50000 -94.50000 0.0000000E+00 + 77.50000 -94.50000 0.0000000E+00 + 78.50000 -94.50000 0.0000000E+00 + 79.50000 -94.50000 0.0000000E+00 + 80.50000 -94.50000 0.0000000E+00 + 81.50000 -94.50000 0.0000000E+00 + 82.50000 -94.50000 0.0000000E+00 + 83.50000 -94.50000 0.0000000E+00 + 84.50000 -94.50000 0.0000000E+00 + 85.50000 -94.50000 0.0000000E+00 + 86.50000 -94.50000 0.0000000E+00 + 87.50000 -94.50000 0.0000000E+00 + 88.50000 -94.50000 0.0000000E+00 + 89.50000 -94.50000 0.0000000E+00 + -89.50000 -93.50000 0.0000000E+00 + -88.50000 -93.50000 0.0000000E+00 + -87.50000 -93.50000 0.0000000E+00 + -86.50000 -93.50000 0.0000000E+00 + -85.50000 -93.50000 0.0000000E+00 + -84.50000 -93.50000 0.0000000E+00 + -83.50000 -93.50000 0.0000000E+00 + -82.50000 -93.50000 0.0000000E+00 + -81.50000 -93.50000 0.0000000E+00 + -80.50000 -93.50000 0.0000000E+00 + -79.50000 -93.50000 0.0000000E+00 + -78.50000 -93.50000 0.0000000E+00 + -77.50000 -93.50000 0.0000000E+00 + -76.50000 -93.50000 0.0000000E+00 + -75.50000 -93.50000 0.0000000E+00 + -74.50000 -93.50000 0.0000000E+00 + -73.50000 -93.50000 0.0000000E+00 + -72.50000 -93.50000 0.0000000E+00 + -71.50000 -93.50000 0.0000000E+00 + -70.50000 -93.50000 0.0000000E+00 + -69.50000 -93.50000 0.0000000E+00 + -68.50000 -93.50000 0.0000000E+00 + -67.50000 -93.50000 0.0000000E+00 + -66.50000 -93.50000 0.0000000E+00 + -65.50000 -93.50000 0.0000000E+00 + -64.50000 -93.50000 0.0000000E+00 + -63.50000 -93.50000 0.0000000E+00 + -62.50000 -93.50000 0.0000000E+00 + -61.50000 -93.50000 0.0000000E+00 + -60.50000 -93.50000 0.0000000E+00 + -59.50000 -93.50000 0.0000000E+00 + -58.50000 -93.50000 0.0000000E+00 + -57.50000 -93.50000 0.0000000E+00 + -56.50000 -93.50000 0.0000000E+00 + -55.50000 -93.50000 0.0000000E+00 + -54.50000 -93.50000 0.0000000E+00 + -53.50000 -93.50000 0.0000000E+00 + -52.50000 -93.50000 0.0000000E+00 + -51.50000 -93.50000 0.0000000E+00 + -50.50000 -93.50000 0.0000000E+00 + -49.50000 -93.50000 0.0000000E+00 + -48.50000 -93.50000 0.0000000E+00 + -47.50000 -93.50000 0.0000000E+00 + -46.50000 -93.50000 0.0000000E+00 + -45.50000 -93.50000 0.0000000E+00 + -44.50000 -93.50000 0.0000000E+00 + -43.50000 -93.50000 0.0000000E+00 + -42.50000 -93.50000 0.0000000E+00 + -41.50000 -93.50000 0.0000000E+00 + -40.50000 -93.50000 0.0000000E+00 + -39.50000 -93.50000 0.0000000E+00 + -38.50000 -93.50000 0.0000000E+00 + -37.50000 -93.50000 0.0000000E+00 + -36.50000 -93.50000 0.0000000E+00 + -35.50000 -93.50000 0.0000000E+00 + -34.50000 -93.50000 0.0000000E+00 + -33.50000 -93.50000 0.0000000E+00 + -32.50000 -93.50000 0.0000000E+00 + -31.50000 -93.50000 0.0000000E+00 + -30.50000 -93.50000 0.0000000E+00 + -29.50000 -93.50000 0.0000000E+00 + -28.50000 -93.50000 0.0000000E+00 + -27.50000 -93.50000 0.0000000E+00 + -26.50000 -93.50000 0.0000000E+00 + -25.50000 -93.50000 0.0000000E+00 + -24.50000 -93.50000 0.0000000E+00 + -23.50000 -93.50000 0.0000000E+00 + -22.50000 -93.50000 0.0000000E+00 + -21.50000 -93.50000 0.0000000E+00 + -20.50000 -93.50000 0.0000000E+00 + -19.50000 -93.50000 0.0000000E+00 + -18.50000 -93.50000 0.0000000E+00 + -17.50000 -93.50000 0.0000000E+00 + -16.50000 -93.50000 0.0000000E+00 + -15.50000 -93.50000 0.0000000E+00 + -14.50000 -93.50000 0.0000000E+00 + -13.50000 -93.50000 0.0000000E+00 + -12.50000 -93.50000 0.0000000E+00 + -11.50000 -93.50000 0.0000000E+00 + -10.50000 -93.50000 0.0000000E+00 + -9.500000 -93.50000 0.0000000E+00 + -8.500000 -93.50000 0.0000000E+00 + -7.500000 -93.50000 0.0000000E+00 + -6.500000 -93.50000 0.0000000E+00 + -5.500000 -93.50000 0.0000000E+00 + -4.500000 -93.50000 0.0000000E+00 + -3.500000 -93.50000 0.0000000E+00 + -2.500000 -93.50000 0.0000000E+00 + -1.500000 -93.50000 0.0000000E+00 + -0.5000000 -93.50000 0.0000000E+00 + 0.5000000 -93.50000 0.0000000E+00 + 1.500000 -93.50000 0.0000000E+00 + 2.500000 -93.50000 0.0000000E+00 + 3.500000 -93.50000 0.0000000E+00 + 4.500000 -93.50000 0.0000000E+00 + 5.500000 -93.50000 0.0000000E+00 + 6.500000 -93.50000 0.0000000E+00 + 7.500000 -93.50000 0.0000000E+00 + 8.500000 -93.50000 0.0000000E+00 + 9.500000 -93.50000 0.0000000E+00 + 10.50000 -93.50000 0.0000000E+00 + 11.50000 -93.50000 0.0000000E+00 + 12.50000 -93.50000 0.0000000E+00 + 13.50000 -93.50000 0.0000000E+00 + 14.50000 -93.50000 0.0000000E+00 + 15.50000 -93.50000 0.0000000E+00 + 16.50000 -93.50000 0.0000000E+00 + 17.50000 -93.50000 0.0000000E+00 + 18.50000 -93.50000 0.0000000E+00 + 19.50000 -93.50000 0.0000000E+00 + 20.50000 -93.50000 0.0000000E+00 + 21.50000 -93.50000 0.0000000E+00 + 22.50000 -93.50000 0.0000000E+00 + 23.50000 -93.50000 0.0000000E+00 + 24.50000 -93.50000 0.0000000E+00 + 25.50000 -93.50000 0.0000000E+00 + 26.50000 -93.50000 0.0000000E+00 + 27.50000 -93.50000 0.0000000E+00 + 28.50000 -93.50000 0.0000000E+00 + 29.50000 -93.50000 0.0000000E+00 + 30.50000 -93.50000 0.0000000E+00 + 31.50000 -93.50000 0.0000000E+00 + 32.50000 -93.50000 0.0000000E+00 + 33.50000 -93.50000 0.0000000E+00 + 34.50000 -93.50000 0.0000000E+00 + 35.50000 -93.50000 0.0000000E+00 + 36.50000 -93.50000 0.0000000E+00 + 37.50000 -93.50000 0.0000000E+00 + 38.50000 -93.50000 0.0000000E+00 + 39.50000 -93.50000 0.0000000E+00 + 40.50000 -93.50000 0.0000000E+00 + 41.50000 -93.50000 0.0000000E+00 + 42.50000 -93.50000 0.0000000E+00 + 43.50000 -93.50000 0.0000000E+00 + 44.50000 -93.50000 0.0000000E+00 + 45.50000 -93.50000 0.0000000E+00 + 46.50000 -93.50000 0.0000000E+00 + 47.50000 -93.50000 0.0000000E+00 + 48.50000 -93.50000 0.0000000E+00 + 49.50000 -93.50000 0.0000000E+00 + 50.50000 -93.50000 0.0000000E+00 + 51.50000 -93.50000 0.0000000E+00 + 52.50000 -93.50000 0.0000000E+00 + 53.50000 -93.50000 0.0000000E+00 + 54.50000 -93.50000 0.0000000E+00 + 55.50000 -93.50000 0.0000000E+00 + 56.50000 -93.50000 0.0000000E+00 + 57.50000 -93.50000 0.0000000E+00 + 58.50000 -93.50000 0.0000000E+00 + 59.50000 -93.50000 0.0000000E+00 + 60.50000 -93.50000 0.0000000E+00 + 61.50000 -93.50000 0.0000000E+00 + 62.50000 -93.50000 0.0000000E+00 + 63.50000 -93.50000 0.0000000E+00 + 64.50000 -93.50000 0.0000000E+00 + 65.50000 -93.50000 0.0000000E+00 + 66.50000 -93.50000 0.0000000E+00 + 67.50000 -93.50000 0.0000000E+00 + 68.50000 -93.50000 0.0000000E+00 + 69.50000 -93.50000 0.0000000E+00 + 70.50000 -93.50000 0.0000000E+00 + 71.50000 -93.50000 0.0000000E+00 + 72.50000 -93.50000 0.0000000E+00 + 73.50000 -93.50000 0.0000000E+00 + 74.50000 -93.50000 0.0000000E+00 + 75.50000 -93.50000 0.0000000E+00 + 76.50000 -93.50000 0.0000000E+00 + 77.50000 -93.50000 0.0000000E+00 + 78.50000 -93.50000 0.0000000E+00 + 79.50000 -93.50000 0.0000000E+00 + 80.50000 -93.50000 0.0000000E+00 + 81.50000 -93.50000 0.0000000E+00 + 82.50000 -93.50000 0.0000000E+00 + 83.50000 -93.50000 0.0000000E+00 + 84.50000 -93.50000 0.0000000E+00 + 85.50000 -93.50000 0.0000000E+00 + 86.50000 -93.50000 0.0000000E+00 + 87.50000 -93.50000 0.0000000E+00 + 88.50000 -93.50000 0.0000000E+00 + 89.50000 -93.50000 0.0000000E+00 + -89.50000 -92.50000 0.0000000E+00 + -88.50000 -92.50000 0.0000000E+00 + -87.50000 -92.50000 0.0000000E+00 + -86.50000 -92.50000 0.0000000E+00 + -85.50000 -92.50000 0.0000000E+00 + -84.50000 -92.50000 0.0000000E+00 + -83.50000 -92.50000 0.0000000E+00 + -82.50000 -92.50000 0.0000000E+00 + -81.50000 -92.50000 0.0000000E+00 + -80.50000 -92.50000 0.0000000E+00 + -79.50000 -92.50000 0.0000000E+00 + -78.50000 -92.50000 0.0000000E+00 + -77.50000 -92.50000 0.0000000E+00 + -76.50000 -92.50000 0.0000000E+00 + -75.50000 -92.50000 0.0000000E+00 + -74.50000 -92.50000 0.0000000E+00 + -73.50000 -92.50000 0.0000000E+00 + -72.50000 -92.50000 0.0000000E+00 + -71.50000 -92.50000 0.0000000E+00 + -70.50000 -92.50000 0.0000000E+00 + -69.50000 -92.50000 0.0000000E+00 + -68.50000 -92.50000 0.0000000E+00 + -67.50000 -92.50000 0.0000000E+00 + -66.50000 -92.50000 0.0000000E+00 + -65.50000 -92.50000 0.0000000E+00 + -64.50000 -92.50000 0.0000000E+00 + -63.50000 -92.50000 0.0000000E+00 + -62.50000 -92.50000 0.0000000E+00 + -61.50000 -92.50000 0.0000000E+00 + -60.50000 -92.50000 0.0000000E+00 + -59.50000 -92.50000 0.0000000E+00 + -58.50000 -92.50000 0.0000000E+00 + -57.50000 -92.50000 0.0000000E+00 + -56.50000 -92.50000 0.0000000E+00 + -55.50000 -92.50000 0.0000000E+00 + -54.50000 -92.50000 0.0000000E+00 + -53.50000 -92.50000 0.0000000E+00 + -52.50000 -92.50000 0.0000000E+00 + -51.50000 -92.50000 0.0000000E+00 + -50.50000 -92.50000 0.0000000E+00 + -49.50000 -92.50000 0.0000000E+00 + -48.50000 -92.50000 0.0000000E+00 + -47.50000 -92.50000 0.0000000E+00 + -46.50000 -92.50000 0.0000000E+00 + -45.50000 -92.50000 0.0000000E+00 + -44.50000 -92.50000 0.0000000E+00 + -43.50000 -92.50000 0.0000000E+00 + -42.50000 -92.50000 0.0000000E+00 + -41.50000 -92.50000 0.0000000E+00 + -40.50000 -92.50000 0.0000000E+00 + -39.50000 -92.50000 0.0000000E+00 + -38.50000 -92.50000 0.0000000E+00 + -37.50000 -92.50000 0.0000000E+00 + -36.50000 -92.50000 0.0000000E+00 + -35.50000 -92.50000 0.0000000E+00 + -34.50000 -92.50000 0.0000000E+00 + -33.50000 -92.50000 0.0000000E+00 + -32.50000 -92.50000 0.0000000E+00 + -31.50000 -92.50000 0.0000000E+00 + -30.50000 -92.50000 0.0000000E+00 + -29.50000 -92.50000 0.0000000E+00 + -28.50000 -92.50000 0.0000000E+00 + -27.50000 -92.50000 0.0000000E+00 + -26.50000 -92.50000 0.0000000E+00 + -25.50000 -92.50000 0.0000000E+00 + -24.50000 -92.50000 0.0000000E+00 + -23.50000 -92.50000 0.0000000E+00 + -22.50000 -92.50000 0.0000000E+00 + -21.50000 -92.50000 0.0000000E+00 + -20.50000 -92.50000 0.0000000E+00 + -19.50000 -92.50000 0.0000000E+00 + -18.50000 -92.50000 0.0000000E+00 + -17.50000 -92.50000 0.0000000E+00 + -16.50000 -92.50000 0.0000000E+00 + -15.50000 -92.50000 0.0000000E+00 + -14.50000 -92.50000 0.0000000E+00 + -13.50000 -92.50000 0.0000000E+00 + -12.50000 -92.50000 0.0000000E+00 + -11.50000 -92.50000 0.0000000E+00 + -10.50000 -92.50000 0.0000000E+00 + -9.500000 -92.50000 0.0000000E+00 + -8.500000 -92.50000 0.0000000E+00 + -7.500000 -92.50000 0.0000000E+00 + -6.500000 -92.50000 0.0000000E+00 + -5.500000 -92.50000 0.0000000E+00 + -4.500000 -92.50000 0.0000000E+00 + -3.500000 -92.50000 0.0000000E+00 + -2.500000 -92.50000 0.0000000E+00 + -1.500000 -92.50000 0.0000000E+00 + -0.5000000 -92.50000 0.0000000E+00 + 0.5000000 -92.50000 0.0000000E+00 + 1.500000 -92.50000 0.0000000E+00 + 2.500000 -92.50000 0.0000000E+00 + 3.500000 -92.50000 0.0000000E+00 + 4.500000 -92.50000 0.0000000E+00 + 5.500000 -92.50000 0.0000000E+00 + 6.500000 -92.50000 0.0000000E+00 + 7.500000 -92.50000 0.0000000E+00 + 8.500000 -92.50000 0.0000000E+00 + 9.500000 -92.50000 0.0000000E+00 + 10.50000 -92.50000 0.0000000E+00 + 11.50000 -92.50000 0.0000000E+00 + 12.50000 -92.50000 0.0000000E+00 + 13.50000 -92.50000 0.0000000E+00 + 14.50000 -92.50000 0.0000000E+00 + 15.50000 -92.50000 0.0000000E+00 + 16.50000 -92.50000 0.0000000E+00 + 17.50000 -92.50000 0.0000000E+00 + 18.50000 -92.50000 0.0000000E+00 + 19.50000 -92.50000 0.0000000E+00 + 20.50000 -92.50000 0.0000000E+00 + 21.50000 -92.50000 0.0000000E+00 + 22.50000 -92.50000 0.0000000E+00 + 23.50000 -92.50000 0.0000000E+00 + 24.50000 -92.50000 0.0000000E+00 + 25.50000 -92.50000 0.0000000E+00 + 26.50000 -92.50000 0.0000000E+00 + 27.50000 -92.50000 0.0000000E+00 + 28.50000 -92.50000 0.0000000E+00 + 29.50000 -92.50000 0.0000000E+00 + 30.50000 -92.50000 0.0000000E+00 + 31.50000 -92.50000 0.0000000E+00 + 32.50000 -92.50000 0.0000000E+00 + 33.50000 -92.50000 0.0000000E+00 + 34.50000 -92.50000 0.0000000E+00 + 35.50000 -92.50000 0.0000000E+00 + 36.50000 -92.50000 0.0000000E+00 + 37.50000 -92.50000 0.0000000E+00 + 38.50000 -92.50000 0.0000000E+00 + 39.50000 -92.50000 0.0000000E+00 + 40.50000 -92.50000 0.0000000E+00 + 41.50000 -92.50000 0.0000000E+00 + 42.50000 -92.50000 0.0000000E+00 + 43.50000 -92.50000 0.0000000E+00 + 44.50000 -92.50000 0.0000000E+00 + 45.50000 -92.50000 0.0000000E+00 + 46.50000 -92.50000 0.0000000E+00 + 47.50000 -92.50000 0.0000000E+00 + 48.50000 -92.50000 0.0000000E+00 + 49.50000 -92.50000 0.0000000E+00 + 50.50000 -92.50000 0.0000000E+00 + 51.50000 -92.50000 0.0000000E+00 + 52.50000 -92.50000 0.0000000E+00 + 53.50000 -92.50000 0.0000000E+00 + 54.50000 -92.50000 0.0000000E+00 + 55.50000 -92.50000 0.0000000E+00 + 56.50000 -92.50000 0.0000000E+00 + 57.50000 -92.50000 0.0000000E+00 + 58.50000 -92.50000 0.0000000E+00 + 59.50000 -92.50000 0.0000000E+00 + 60.50000 -92.50000 0.0000000E+00 + 61.50000 -92.50000 0.0000000E+00 + 62.50000 -92.50000 0.0000000E+00 + 63.50000 -92.50000 0.0000000E+00 + 64.50000 -92.50000 0.0000000E+00 + 65.50000 -92.50000 0.0000000E+00 + 66.50000 -92.50000 0.0000000E+00 + 67.50000 -92.50000 0.0000000E+00 + 68.50000 -92.50000 0.0000000E+00 + 69.50000 -92.50000 0.0000000E+00 + 70.50000 -92.50000 0.0000000E+00 + 71.50000 -92.50000 0.0000000E+00 + 72.50000 -92.50000 0.0000000E+00 + 73.50000 -92.50000 0.0000000E+00 + 74.50000 -92.50000 0.0000000E+00 + 75.50000 -92.50000 0.0000000E+00 + 76.50000 -92.50000 0.0000000E+00 + 77.50000 -92.50000 0.0000000E+00 + 78.50000 -92.50000 0.0000000E+00 + 79.50000 -92.50000 0.0000000E+00 + 80.50000 -92.50000 0.0000000E+00 + 81.50000 -92.50000 0.0000000E+00 + 82.50000 -92.50000 0.0000000E+00 + 83.50000 -92.50000 0.0000000E+00 + 84.50000 -92.50000 0.0000000E+00 + 85.50000 -92.50000 0.0000000E+00 + 86.50000 -92.50000 0.0000000E+00 + 87.50000 -92.50000 0.0000000E+00 + 88.50000 -92.50000 0.0000000E+00 + 89.50000 -92.50000 0.0000000E+00 + -89.50000 -91.50000 0.0000000E+00 + -88.50000 -91.50000 0.0000000E+00 + -87.50000 -91.50000 0.0000000E+00 + -86.50000 -91.50000 0.0000000E+00 + -85.50000 -91.50000 0.0000000E+00 + -84.50000 -91.50000 0.0000000E+00 + -83.50000 -91.50000 0.0000000E+00 + -82.50000 -91.50000 0.0000000E+00 + -81.50000 -91.50000 0.0000000E+00 + -80.50000 -91.50000 0.0000000E+00 + -79.50000 -91.50000 0.0000000E+00 + -78.50000 -91.50000 0.0000000E+00 + -77.50000 -91.50000 0.0000000E+00 + -76.50000 -91.50000 0.0000000E+00 + -75.50000 -91.50000 0.0000000E+00 + -74.50000 -91.50000 0.0000000E+00 + -73.50000 -91.50000 0.0000000E+00 + -72.50000 -91.50000 0.0000000E+00 + -71.50000 -91.50000 0.0000000E+00 + -70.50000 -91.50000 0.0000000E+00 + -69.50000 -91.50000 0.0000000E+00 + -68.50000 -91.50000 0.0000000E+00 + -67.50000 -91.50000 0.0000000E+00 + -66.50000 -91.50000 0.0000000E+00 + -65.50000 -91.50000 0.0000000E+00 + -64.50000 -91.50000 0.0000000E+00 + -63.50000 -91.50000 0.0000000E+00 + -62.50000 -91.50000 0.0000000E+00 + -61.50000 -91.50000 0.0000000E+00 + -60.50000 -91.50000 0.0000000E+00 + -59.50000 -91.50000 0.0000000E+00 + -58.50000 -91.50000 0.0000000E+00 + -57.50000 -91.50000 0.0000000E+00 + -56.50000 -91.50000 0.0000000E+00 + -55.50000 -91.50000 0.0000000E+00 + -54.50000 -91.50000 0.0000000E+00 + -53.50000 -91.50000 0.0000000E+00 + -52.50000 -91.50000 0.0000000E+00 + -51.50000 -91.50000 0.0000000E+00 + -50.50000 -91.50000 0.0000000E+00 + -49.50000 -91.50000 0.0000000E+00 + -48.50000 -91.50000 0.0000000E+00 + -47.50000 -91.50000 0.0000000E+00 + -46.50000 -91.50000 0.0000000E+00 + -45.50000 -91.50000 0.0000000E+00 + -44.50000 -91.50000 0.0000000E+00 + -43.50000 -91.50000 0.0000000E+00 + -42.50000 -91.50000 0.0000000E+00 + -41.50000 -91.50000 0.0000000E+00 + -40.50000 -91.50000 0.0000000E+00 + -39.50000 -91.50000 0.0000000E+00 + -38.50000 -91.50000 0.0000000E+00 + -37.50000 -91.50000 0.0000000E+00 + -36.50000 -91.50000 0.0000000E+00 + -35.50000 -91.50000 0.0000000E+00 + -34.50000 -91.50000 0.0000000E+00 + -33.50000 -91.50000 0.0000000E+00 + -32.50000 -91.50000 0.0000000E+00 + -31.50000 -91.50000 0.0000000E+00 + -30.50000 -91.50000 0.0000000E+00 + -29.50000 -91.50000 0.0000000E+00 + -28.50000 -91.50000 0.0000000E+00 + -27.50000 -91.50000 0.0000000E+00 + -26.50000 -91.50000 0.0000000E+00 + -25.50000 -91.50000 0.0000000E+00 + -24.50000 -91.50000 0.0000000E+00 + -23.50000 -91.50000 0.0000000E+00 + -22.50000 -91.50000 0.0000000E+00 + -21.50000 -91.50000 0.0000000E+00 + -20.50000 -91.50000 0.0000000E+00 + -19.50000 -91.50000 0.0000000E+00 + -18.50000 -91.50000 0.0000000E+00 + -17.50000 -91.50000 0.0000000E+00 + -16.50000 -91.50000 0.0000000E+00 + -15.50000 -91.50000 0.0000000E+00 + -14.50000 -91.50000 0.0000000E+00 + -13.50000 -91.50000 0.0000000E+00 + -12.50000 -91.50000 0.0000000E+00 + -11.50000 -91.50000 0.0000000E+00 + -10.50000 -91.50000 0.0000000E+00 + -9.500000 -91.50000 0.0000000E+00 + -8.500000 -91.50000 0.0000000E+00 + -7.500000 -91.50000 0.0000000E+00 + -6.500000 -91.50000 0.0000000E+00 + -5.500000 -91.50000 0.0000000E+00 + -4.500000 -91.50000 0.0000000E+00 + -3.500000 -91.50000 0.0000000E+00 + -2.500000 -91.50000 0.0000000E+00 + -1.500000 -91.50000 0.0000000E+00 + -0.5000000 -91.50000 0.0000000E+00 + 0.5000000 -91.50000 0.0000000E+00 + 1.500000 -91.50000 0.0000000E+00 + 2.500000 -91.50000 0.0000000E+00 + 3.500000 -91.50000 0.0000000E+00 + 4.500000 -91.50000 0.0000000E+00 + 5.500000 -91.50000 0.0000000E+00 + 6.500000 -91.50000 0.0000000E+00 + 7.500000 -91.50000 0.0000000E+00 + 8.500000 -91.50000 0.0000000E+00 + 9.500000 -91.50000 0.0000000E+00 + 10.50000 -91.50000 0.0000000E+00 + 11.50000 -91.50000 0.0000000E+00 + 12.50000 -91.50000 0.0000000E+00 + 13.50000 -91.50000 0.0000000E+00 + 14.50000 -91.50000 0.0000000E+00 + 15.50000 -91.50000 0.0000000E+00 + 16.50000 -91.50000 0.0000000E+00 + 17.50000 -91.50000 0.0000000E+00 + 18.50000 -91.50000 0.0000000E+00 + 19.50000 -91.50000 0.0000000E+00 + 20.50000 -91.50000 0.0000000E+00 + 21.50000 -91.50000 0.0000000E+00 + 22.50000 -91.50000 0.0000000E+00 + 23.50000 -91.50000 0.0000000E+00 + 24.50000 -91.50000 0.0000000E+00 + 25.50000 -91.50000 0.0000000E+00 + 26.50000 -91.50000 0.0000000E+00 + 27.50000 -91.50000 0.0000000E+00 + 28.50000 -91.50000 0.0000000E+00 + 29.50000 -91.50000 0.0000000E+00 + 30.50000 -91.50000 0.0000000E+00 + 31.50000 -91.50000 0.0000000E+00 + 32.50000 -91.50000 0.0000000E+00 + 33.50000 -91.50000 0.0000000E+00 + 34.50000 -91.50000 0.0000000E+00 + 35.50000 -91.50000 0.0000000E+00 + 36.50000 -91.50000 0.0000000E+00 + 37.50000 -91.50000 0.0000000E+00 + 38.50000 -91.50000 0.0000000E+00 + 39.50000 -91.50000 0.0000000E+00 + 40.50000 -91.50000 0.0000000E+00 + 41.50000 -91.50000 0.0000000E+00 + 42.50000 -91.50000 0.0000000E+00 + 43.50000 -91.50000 0.0000000E+00 + 44.50000 -91.50000 0.0000000E+00 + 45.50000 -91.50000 0.0000000E+00 + 46.50000 -91.50000 0.0000000E+00 + 47.50000 -91.50000 0.0000000E+00 + 48.50000 -91.50000 0.0000000E+00 + 49.50000 -91.50000 0.0000000E+00 + 50.50000 -91.50000 0.0000000E+00 + 51.50000 -91.50000 0.0000000E+00 + 52.50000 -91.50000 0.0000000E+00 + 53.50000 -91.50000 0.0000000E+00 + 54.50000 -91.50000 0.0000000E+00 + 55.50000 -91.50000 0.0000000E+00 + 56.50000 -91.50000 0.0000000E+00 + 57.50000 -91.50000 0.0000000E+00 + 58.50000 -91.50000 0.0000000E+00 + 59.50000 -91.50000 0.0000000E+00 + 60.50000 -91.50000 0.0000000E+00 + 61.50000 -91.50000 0.0000000E+00 + 62.50000 -91.50000 0.0000000E+00 + 63.50000 -91.50000 0.0000000E+00 + 64.50000 -91.50000 0.0000000E+00 + 65.50000 -91.50000 0.0000000E+00 + 66.50000 -91.50000 0.0000000E+00 + 67.50000 -91.50000 0.0000000E+00 + 68.50000 -91.50000 0.0000000E+00 + 69.50000 -91.50000 0.0000000E+00 + 70.50000 -91.50000 0.0000000E+00 + 71.50000 -91.50000 0.0000000E+00 + 72.50000 -91.50000 0.0000000E+00 + 73.50000 -91.50000 0.0000000E+00 + 74.50000 -91.50000 0.0000000E+00 + 75.50000 -91.50000 0.0000000E+00 + 76.50000 -91.50000 0.0000000E+00 + 77.50000 -91.50000 0.0000000E+00 + 78.50000 -91.50000 0.0000000E+00 + 79.50000 -91.50000 0.0000000E+00 + 80.50000 -91.50000 0.0000000E+00 + 81.50000 -91.50000 0.0000000E+00 + 82.50000 -91.50000 0.0000000E+00 + 83.50000 -91.50000 0.0000000E+00 + 84.50000 -91.50000 0.0000000E+00 + 85.50000 -91.50000 0.0000000E+00 + 86.50000 -91.50000 0.0000000E+00 + 87.50000 -91.50000 0.0000000E+00 + 88.50000 -91.50000 0.0000000E+00 + 89.50000 -91.50000 0.0000000E+00 + -89.50000 -90.50000 0.0000000E+00 + -88.50000 -90.50000 0.0000000E+00 + -87.50000 -90.50000 0.0000000E+00 + -86.50000 -90.50000 0.0000000E+00 + -85.50000 -90.50000 0.0000000E+00 + -84.50000 -90.50000 0.0000000E+00 + -83.50000 -90.50000 0.0000000E+00 + -82.50000 -90.50000 0.0000000E+00 + -81.50000 -90.50000 0.0000000E+00 + -80.50000 -90.50000 0.0000000E+00 + -79.50000 -90.50000 0.0000000E+00 + -78.50000 -90.50000 0.0000000E+00 + -77.50000 -90.50000 0.0000000E+00 + -76.50000 -90.50000 0.0000000E+00 + -75.50000 -90.50000 0.0000000E+00 + -74.50000 -90.50000 0.0000000E+00 + -73.50000 -90.50000 0.0000000E+00 + -72.50000 -90.50000 0.0000000E+00 + -71.50000 -90.50000 0.0000000E+00 + -70.50000 -90.50000 0.0000000E+00 + -69.50000 -90.50000 0.0000000E+00 + -68.50000 -90.50000 0.0000000E+00 + -67.50000 -90.50000 0.0000000E+00 + -66.50000 -90.50000 0.0000000E+00 + -65.50000 -90.50000 0.0000000E+00 + -64.50000 -90.50000 0.0000000E+00 + -63.50000 -90.50000 0.0000000E+00 + -62.50000 -90.50000 0.0000000E+00 + -61.50000 -90.50000 0.0000000E+00 + -60.50000 -90.50000 0.0000000E+00 + -59.50000 -90.50000 0.0000000E+00 + -58.50000 -90.50000 0.0000000E+00 + -57.50000 -90.50000 0.0000000E+00 + -56.50000 -90.50000 0.0000000E+00 + -55.50000 -90.50000 0.0000000E+00 + -54.50000 -90.50000 0.0000000E+00 + -53.50000 -90.50000 0.0000000E+00 + -52.50000 -90.50000 0.0000000E+00 + -51.50000 -90.50000 0.0000000E+00 + -50.50000 -90.50000 0.0000000E+00 + -49.50000 -90.50000 0.0000000E+00 + -48.50000 -90.50000 0.0000000E+00 + -47.50000 -90.50000 0.0000000E+00 + -46.50000 -90.50000 0.0000000E+00 + -45.50000 -90.50000 0.0000000E+00 + -44.50000 -90.50000 0.0000000E+00 + -43.50000 -90.50000 0.0000000E+00 + -42.50000 -90.50000 0.0000000E+00 + -41.50000 -90.50000 0.0000000E+00 + -40.50000 -90.50000 0.0000000E+00 + -39.50000 -90.50000 0.0000000E+00 + -38.50000 -90.50000 0.0000000E+00 + -37.50000 -90.50000 0.0000000E+00 + -36.50000 -90.50000 0.0000000E+00 + -35.50000 -90.50000 0.0000000E+00 + -34.50000 -90.50000 0.0000000E+00 + -33.50000 -90.50000 0.0000000E+00 + -32.50000 -90.50000 0.0000000E+00 + -31.50000 -90.50000 0.0000000E+00 + -30.50000 -90.50000 0.0000000E+00 + -29.50000 -90.50000 0.0000000E+00 + -28.50000 -90.50000 0.0000000E+00 + -27.50000 -90.50000 0.0000000E+00 + -26.50000 -90.50000 0.0000000E+00 + -25.50000 -90.50000 0.0000000E+00 + -24.50000 -90.50000 0.0000000E+00 + -23.50000 -90.50000 0.0000000E+00 + -22.50000 -90.50000 0.0000000E+00 + -21.50000 -90.50000 0.0000000E+00 + -20.50000 -90.50000 0.0000000E+00 + -19.50000 -90.50000 0.0000000E+00 + -18.50000 -90.50000 0.0000000E+00 + -17.50000 -90.50000 0.0000000E+00 + -16.50000 -90.50000 0.0000000E+00 + -15.50000 -90.50000 0.0000000E+00 + -14.50000 -90.50000 0.0000000E+00 + -13.50000 -90.50000 0.0000000E+00 + -12.50000 -90.50000 0.0000000E+00 + -11.50000 -90.50000 0.0000000E+00 + -10.50000 -90.50000 0.0000000E+00 + -9.500000 -90.50000 0.0000000E+00 + -8.500000 -90.50000 0.0000000E+00 + -7.500000 -90.50000 0.0000000E+00 + -6.500000 -90.50000 0.0000000E+00 + -5.500000 -90.50000 0.0000000E+00 + -4.500000 -90.50000 0.0000000E+00 + -3.500000 -90.50000 0.0000000E+00 + -2.500000 -90.50000 0.0000000E+00 + -1.500000 -90.50000 0.0000000E+00 + -0.5000000 -90.50000 0.0000000E+00 + 0.5000000 -90.50000 0.0000000E+00 + 1.500000 -90.50000 0.0000000E+00 + 2.500000 -90.50000 0.0000000E+00 + 3.500000 -90.50000 0.0000000E+00 + 4.500000 -90.50000 0.0000000E+00 + 5.500000 -90.50000 0.0000000E+00 + 6.500000 -90.50000 0.0000000E+00 + 7.500000 -90.50000 0.0000000E+00 + 8.500000 -90.50000 0.0000000E+00 + 9.500000 -90.50000 0.0000000E+00 + 10.50000 -90.50000 0.0000000E+00 + 11.50000 -90.50000 0.0000000E+00 + 12.50000 -90.50000 0.0000000E+00 + 13.50000 -90.50000 0.0000000E+00 + 14.50000 -90.50000 0.0000000E+00 + 15.50000 -90.50000 0.0000000E+00 + 16.50000 -90.50000 0.0000000E+00 + 17.50000 -90.50000 0.0000000E+00 + 18.50000 -90.50000 0.0000000E+00 + 19.50000 -90.50000 0.0000000E+00 + 20.50000 -90.50000 0.0000000E+00 + 21.50000 -90.50000 0.0000000E+00 + 22.50000 -90.50000 0.0000000E+00 + 23.50000 -90.50000 0.0000000E+00 + 24.50000 -90.50000 0.0000000E+00 + 25.50000 -90.50000 0.0000000E+00 + 26.50000 -90.50000 0.0000000E+00 + 27.50000 -90.50000 0.0000000E+00 + 28.50000 -90.50000 0.0000000E+00 + 29.50000 -90.50000 0.0000000E+00 + 30.50000 -90.50000 0.0000000E+00 + 31.50000 -90.50000 0.0000000E+00 + 32.50000 -90.50000 0.0000000E+00 + 33.50000 -90.50000 0.0000000E+00 + 34.50000 -90.50000 0.0000000E+00 + 35.50000 -90.50000 0.0000000E+00 + 36.50000 -90.50000 0.0000000E+00 + 37.50000 -90.50000 0.0000000E+00 + 38.50000 -90.50000 0.0000000E+00 + 39.50000 -90.50000 0.0000000E+00 + 40.50000 -90.50000 0.0000000E+00 + 41.50000 -90.50000 0.0000000E+00 + 42.50000 -90.50000 0.0000000E+00 + 43.50000 -90.50000 0.0000000E+00 + 44.50000 -90.50000 0.0000000E+00 + 45.50000 -90.50000 0.0000000E+00 + 46.50000 -90.50000 0.0000000E+00 + 47.50000 -90.50000 0.0000000E+00 + 48.50000 -90.50000 0.0000000E+00 + 49.50000 -90.50000 0.0000000E+00 + 50.50000 -90.50000 0.0000000E+00 + 51.50000 -90.50000 0.0000000E+00 + 52.50000 -90.50000 0.0000000E+00 + 53.50000 -90.50000 0.0000000E+00 + 54.50000 -90.50000 0.0000000E+00 + 55.50000 -90.50000 0.0000000E+00 + 56.50000 -90.50000 0.0000000E+00 + 57.50000 -90.50000 0.0000000E+00 + 58.50000 -90.50000 0.0000000E+00 + 59.50000 -90.50000 0.0000000E+00 + 60.50000 -90.50000 0.0000000E+00 + 61.50000 -90.50000 0.0000000E+00 + 62.50000 -90.50000 0.0000000E+00 + 63.50000 -90.50000 0.0000000E+00 + 64.50000 -90.50000 0.0000000E+00 + 65.50000 -90.50000 0.0000000E+00 + 66.50000 -90.50000 0.0000000E+00 + 67.50000 -90.50000 0.0000000E+00 + 68.50000 -90.50000 0.0000000E+00 + 69.50000 -90.50000 0.0000000E+00 + 70.50000 -90.50000 0.0000000E+00 + 71.50000 -90.50000 0.0000000E+00 + 72.50000 -90.50000 0.0000000E+00 + 73.50000 -90.50000 0.0000000E+00 + 74.50000 -90.50000 0.0000000E+00 + 75.50000 -90.50000 0.0000000E+00 + 76.50000 -90.50000 0.0000000E+00 + 77.50000 -90.50000 0.0000000E+00 + 78.50000 -90.50000 0.0000000E+00 + 79.50000 -90.50000 0.0000000E+00 + 80.50000 -90.50000 0.0000000E+00 + 81.50000 -90.50000 0.0000000E+00 + 82.50000 -90.50000 0.0000000E+00 + 83.50000 -90.50000 0.0000000E+00 + 84.50000 -90.50000 0.0000000E+00 + 85.50000 -90.50000 0.0000000E+00 + 86.50000 -90.50000 0.0000000E+00 + 87.50000 -90.50000 0.0000000E+00 + 88.50000 -90.50000 0.0000000E+00 + 89.50000 -90.50000 0.0000000E+00 + -89.50000 -89.50000 0.0000000E+00 + -88.50000 -89.50000 0.0000000E+00 + -87.50000 -89.50000 0.0000000E+00 + -86.50000 -89.50000 0.0000000E+00 + -85.50000 -89.50000 0.0000000E+00 + -84.50000 -89.50000 0.0000000E+00 + -83.50000 -89.50000 0.0000000E+00 + -82.50000 -89.50000 0.0000000E+00 + -81.50000 -89.50000 0.0000000E+00 + -80.50000 -89.50000 0.0000000E+00 + -79.50000 -89.50000 0.0000000E+00 + -78.50000 -89.50000 0.0000000E+00 + -77.50000 -89.50000 0.0000000E+00 + -76.50000 -89.50000 0.0000000E+00 + -75.50000 -89.50000 0.0000000E+00 + -74.50000 -89.50000 0.0000000E+00 + -73.50000 -89.50000 0.0000000E+00 + -72.50000 -89.50000 0.0000000E+00 + -71.50000 -89.50000 0.0000000E+00 + -70.50000 -89.50000 0.0000000E+00 + -69.50000 -89.50000 0.0000000E+00 + -68.50000 -89.50000 0.0000000E+00 + -67.50000 -89.50000 0.0000000E+00 + -66.50000 -89.50000 0.0000000E+00 + -65.50000 -89.50000 0.0000000E+00 + -64.50000 -89.50000 0.0000000E+00 + -63.50000 -89.50000 0.0000000E+00 + -62.50000 -89.50000 0.0000000E+00 + -61.50000 -89.50000 0.0000000E+00 + -60.50000 -89.50000 0.0000000E+00 + -59.50000 -89.50000 0.0000000E+00 + -58.50000 -89.50000 0.0000000E+00 + -57.50000 -89.50000 0.0000000E+00 + -56.50000 -89.50000 0.0000000E+00 + -55.50000 -89.50000 0.0000000E+00 + -54.50000 -89.50000 0.0000000E+00 + -53.50000 -89.50000 0.0000000E+00 + -52.50000 -89.50000 0.0000000E+00 + -51.50000 -89.50000 0.0000000E+00 + -50.50000 -89.50000 0.0000000E+00 + -49.50000 -89.50000 0.0000000E+00 + -48.50000 -89.50000 0.0000000E+00 + -47.50000 -89.50000 0.0000000E+00 + -46.50000 -89.50000 0.0000000E+00 + -45.50000 -89.50000 0.0000000E+00 + -44.50000 -89.50000 0.0000000E+00 + -43.50000 -89.50000 0.0000000E+00 + -42.50000 -89.50000 0.0000000E+00 + -41.50000 -89.50000 0.0000000E+00 + -40.50000 -89.50000 0.0000000E+00 + -39.50000 -89.50000 0.0000000E+00 + -38.50000 -89.50000 0.0000000E+00 + -37.50000 -89.50000 0.0000000E+00 + -36.50000 -89.50000 0.0000000E+00 + -35.50000 -89.50000 0.0000000E+00 + -34.50000 -89.50000 0.0000000E+00 + -33.50000 -89.50000 0.0000000E+00 + -32.50000 -89.50000 0.0000000E+00 + -31.50000 -89.50000 0.0000000E+00 + -30.50000 -89.50000 0.0000000E+00 + -29.50000 -89.50000 0.0000000E+00 + -28.50000 -89.50000 0.0000000E+00 + -27.50000 -89.50000 0.0000000E+00 + -26.50000 -89.50000 0.0000000E+00 + -25.50000 -89.50000 0.0000000E+00 + -24.50000 -89.50000 0.0000000E+00 + -23.50000 -89.50000 0.0000000E+00 + -22.50000 -89.50000 0.0000000E+00 + -21.50000 -89.50000 0.0000000E+00 + -20.50000 -89.50000 0.0000000E+00 + -19.50000 -89.50000 0.0000000E+00 + -18.50000 -89.50000 0.0000000E+00 + -17.50000 -89.50000 0.0000000E+00 + -16.50000 -89.50000 0.0000000E+00 + -15.50000 -89.50000 0.0000000E+00 + -14.50000 -89.50000 0.0000000E+00 + -13.50000 -89.50000 0.0000000E+00 + -12.50000 -89.50000 0.0000000E+00 + -11.50000 -89.50000 0.0000000E+00 + -10.50000 -89.50000 0.0000000E+00 + -9.500000 -89.50000 0.0000000E+00 + -8.500000 -89.50000 0.0000000E+00 + -7.500000 -89.50000 0.0000000E+00 + -6.500000 -89.50000 0.0000000E+00 + -5.500000 -89.50000 0.0000000E+00 + -4.500000 -89.50000 0.0000000E+00 + -3.500000 -89.50000 0.0000000E+00 + -2.500000 -89.50000 0.0000000E+00 + -1.500000 -89.50000 0.0000000E+00 + -0.5000000 -89.50000 0.0000000E+00 + 0.5000000 -89.50000 0.0000000E+00 + 1.500000 -89.50000 0.0000000E+00 + 2.500000 -89.50000 0.0000000E+00 + 3.500000 -89.50000 0.0000000E+00 + 4.500000 -89.50000 0.0000000E+00 + 5.500000 -89.50000 0.0000000E+00 + 6.500000 -89.50000 0.0000000E+00 + 7.500000 -89.50000 0.0000000E+00 + 8.500000 -89.50000 0.0000000E+00 + 9.500000 -89.50000 0.0000000E+00 + 10.50000 -89.50000 0.0000000E+00 + 11.50000 -89.50000 0.0000000E+00 + 12.50000 -89.50000 0.0000000E+00 + 13.50000 -89.50000 0.0000000E+00 + 14.50000 -89.50000 0.0000000E+00 + 15.50000 -89.50000 0.0000000E+00 + 16.50000 -89.50000 0.0000000E+00 + 17.50000 -89.50000 0.0000000E+00 + 18.50000 -89.50000 0.0000000E+00 + 19.50000 -89.50000 0.0000000E+00 + 20.50000 -89.50000 0.0000000E+00 + 21.50000 -89.50000 0.0000000E+00 + 22.50000 -89.50000 0.0000000E+00 + 23.50000 -89.50000 0.0000000E+00 + 24.50000 -89.50000 0.0000000E+00 + 25.50000 -89.50000 0.0000000E+00 + 26.50000 -89.50000 0.0000000E+00 + 27.50000 -89.50000 0.0000000E+00 + 28.50000 -89.50000 0.0000000E+00 + 29.50000 -89.50000 0.0000000E+00 + 30.50000 -89.50000 0.0000000E+00 + 31.50000 -89.50000 0.0000000E+00 + 32.50000 -89.50000 0.0000000E+00 + 33.50000 -89.50000 0.0000000E+00 + 34.50000 -89.50000 0.0000000E+00 + 35.50000 -89.50000 0.0000000E+00 + 36.50000 -89.50000 0.0000000E+00 + 37.50000 -89.50000 0.0000000E+00 + 38.50000 -89.50000 0.0000000E+00 + 39.50000 -89.50000 0.0000000E+00 + 40.50000 -89.50000 0.0000000E+00 + 41.50000 -89.50000 0.0000000E+00 + 42.50000 -89.50000 0.0000000E+00 + 43.50000 -89.50000 0.0000000E+00 + 44.50000 -89.50000 0.0000000E+00 + 45.50000 -89.50000 0.0000000E+00 + 46.50000 -89.50000 0.0000000E+00 + 47.50000 -89.50000 0.0000000E+00 + 48.50000 -89.50000 0.0000000E+00 + 49.50000 -89.50000 0.0000000E+00 + 50.50000 -89.50000 0.0000000E+00 + 51.50000 -89.50000 0.0000000E+00 + 52.50000 -89.50000 0.0000000E+00 + 53.50000 -89.50000 0.0000000E+00 + 54.50000 -89.50000 0.0000000E+00 + 55.50000 -89.50000 0.0000000E+00 + 56.50000 -89.50000 0.0000000E+00 + 57.50000 -89.50000 0.0000000E+00 + 58.50000 -89.50000 0.0000000E+00 + 59.50000 -89.50000 0.0000000E+00 + 60.50000 -89.50000 0.0000000E+00 + 61.50000 -89.50000 0.0000000E+00 + 62.50000 -89.50000 0.0000000E+00 + 63.50000 -89.50000 0.0000000E+00 + 64.50000 -89.50000 0.0000000E+00 + 65.50000 -89.50000 0.0000000E+00 + 66.50000 -89.50000 0.0000000E+00 + 67.50000 -89.50000 0.0000000E+00 + 68.50000 -89.50000 0.0000000E+00 + 69.50000 -89.50000 0.0000000E+00 + 70.50000 -89.50000 0.0000000E+00 + 71.50000 -89.50000 0.0000000E+00 + 72.50000 -89.50000 0.0000000E+00 + 73.50000 -89.50000 0.0000000E+00 + 74.50000 -89.50000 0.0000000E+00 + 75.50000 -89.50000 0.0000000E+00 + 76.50000 -89.50000 0.0000000E+00 + 77.50000 -89.50000 0.0000000E+00 + 78.50000 -89.50000 0.0000000E+00 + 79.50000 -89.50000 0.0000000E+00 + 80.50000 -89.50000 0.0000000E+00 + 81.50000 -89.50000 0.0000000E+00 + 82.50000 -89.50000 0.0000000E+00 + 83.50000 -89.50000 0.0000000E+00 + 84.50000 -89.50000 0.0000000E+00 + 85.50000 -89.50000 0.0000000E+00 + 86.50000 -89.50000 0.0000000E+00 + 87.50000 -89.50000 0.0000000E+00 + 88.50000 -89.50000 0.0000000E+00 + 89.50000 -89.50000 0.0000000E+00 + -89.50000 -88.50000 0.0000000E+00 + -88.50000 -88.50000 0.0000000E+00 + -87.50000 -88.50000 0.0000000E+00 + -86.50000 -88.50000 0.0000000E+00 + -85.50000 -88.50000 0.0000000E+00 + -84.50000 -88.50000 0.0000000E+00 + -83.50000 -88.50000 0.0000000E+00 + -82.50000 -88.50000 0.0000000E+00 + -81.50000 -88.50000 0.0000000E+00 + -80.50000 -88.50000 0.0000000E+00 + -79.50000 -88.50000 0.0000000E+00 + -78.50000 -88.50000 0.0000000E+00 + -77.50000 -88.50000 0.0000000E+00 + -76.50000 -88.50000 0.0000000E+00 + -75.50000 -88.50000 0.0000000E+00 + -74.50000 -88.50000 0.0000000E+00 + -73.50000 -88.50000 0.0000000E+00 + -72.50000 -88.50000 0.0000000E+00 + -71.50000 -88.50000 0.0000000E+00 + -70.50000 -88.50000 0.0000000E+00 + -69.50000 -88.50000 0.0000000E+00 + -68.50000 -88.50000 0.0000000E+00 + -67.50000 -88.50000 0.0000000E+00 + -66.50000 -88.50000 0.0000000E+00 + -65.50000 -88.50000 0.0000000E+00 + -64.50000 -88.50000 0.0000000E+00 + -63.50000 -88.50000 0.0000000E+00 + -62.50000 -88.50000 0.0000000E+00 + -61.50000 -88.50000 0.0000000E+00 + -60.50000 -88.50000 0.0000000E+00 + -59.50000 -88.50000 0.0000000E+00 + -58.50000 -88.50000 0.0000000E+00 + -57.50000 -88.50000 0.0000000E+00 + -56.50000 -88.50000 0.0000000E+00 + -55.50000 -88.50000 0.0000000E+00 + -54.50000 -88.50000 0.0000000E+00 + -53.50000 -88.50000 0.0000000E+00 + -52.50000 -88.50000 0.0000000E+00 + -51.50000 -88.50000 0.0000000E+00 + -50.50000 -88.50000 0.0000000E+00 + -49.50000 -88.50000 0.0000000E+00 + -48.50000 -88.50000 0.0000000E+00 + -47.50000 -88.50000 0.0000000E+00 + -46.50000 -88.50000 0.0000000E+00 + -45.50000 -88.50000 0.0000000E+00 + -44.50000 -88.50000 0.0000000E+00 + -43.50000 -88.50000 0.0000000E+00 + -42.50000 -88.50000 0.0000000E+00 + -41.50000 -88.50000 0.0000000E+00 + -40.50000 -88.50000 0.0000000E+00 + -39.50000 -88.50000 0.0000000E+00 + -38.50000 -88.50000 0.0000000E+00 + -37.50000 -88.50000 0.0000000E+00 + -36.50000 -88.50000 0.0000000E+00 + -35.50000 -88.50000 0.0000000E+00 + -34.50000 -88.50000 0.0000000E+00 + -33.50000 -88.50000 0.0000000E+00 + -32.50000 -88.50000 0.0000000E+00 + -31.50000 -88.50000 0.0000000E+00 + -30.50000 -88.50000 0.0000000E+00 + -29.50000 -88.50000 0.0000000E+00 + -28.50000 -88.50000 0.0000000E+00 + -27.50000 -88.50000 0.0000000E+00 + -26.50000 -88.50000 0.0000000E+00 + -25.50000 -88.50000 0.0000000E+00 + -24.50000 -88.50000 0.0000000E+00 + -23.50000 -88.50000 0.0000000E+00 + -22.50000 -88.50000 0.0000000E+00 + -21.50000 -88.50000 0.0000000E+00 + -20.50000 -88.50000 0.0000000E+00 + -19.50000 -88.50000 0.0000000E+00 + -18.50000 -88.50000 0.0000000E+00 + -17.50000 -88.50000 0.0000000E+00 + -16.50000 -88.50000 0.0000000E+00 + -15.50000 -88.50000 0.0000000E+00 + -14.50000 -88.50000 0.0000000E+00 + -13.50000 -88.50000 0.0000000E+00 + -12.50000 -88.50000 0.0000000E+00 + -11.50000 -88.50000 0.0000000E+00 + -10.50000 -88.50000 0.0000000E+00 + -9.500000 -88.50000 0.0000000E+00 + -8.500000 -88.50000 0.0000000E+00 + -7.500000 -88.50000 0.0000000E+00 + -6.500000 -88.50000 0.0000000E+00 + -5.500000 -88.50000 0.0000000E+00 + -4.500000 -88.50000 0.0000000E+00 + -3.500000 -88.50000 0.0000000E+00 + -2.500000 -88.50000 0.0000000E+00 + -1.500000 -88.50000 0.0000000E+00 + -0.5000000 -88.50000 0.0000000E+00 + 0.5000000 -88.50000 0.0000000E+00 + 1.500000 -88.50000 0.0000000E+00 + 2.500000 -88.50000 0.0000000E+00 + 3.500000 -88.50000 0.0000000E+00 + 4.500000 -88.50000 0.0000000E+00 + 5.500000 -88.50000 0.0000000E+00 + 6.500000 -88.50000 0.0000000E+00 + 7.500000 -88.50000 0.0000000E+00 + 8.500000 -88.50000 0.0000000E+00 + 9.500000 -88.50000 0.0000000E+00 + 10.50000 -88.50000 0.0000000E+00 + 11.50000 -88.50000 0.0000000E+00 + 12.50000 -88.50000 0.0000000E+00 + 13.50000 -88.50000 0.0000000E+00 + 14.50000 -88.50000 0.0000000E+00 + 15.50000 -88.50000 0.0000000E+00 + 16.50000 -88.50000 0.0000000E+00 + 17.50000 -88.50000 0.0000000E+00 + 18.50000 -88.50000 0.0000000E+00 + 19.50000 -88.50000 0.0000000E+00 + 20.50000 -88.50000 0.0000000E+00 + 21.50000 -88.50000 0.0000000E+00 + 22.50000 -88.50000 0.0000000E+00 + 23.50000 -88.50000 0.0000000E+00 + 24.50000 -88.50000 0.0000000E+00 + 25.50000 -88.50000 0.0000000E+00 + 26.50000 -88.50000 0.0000000E+00 + 27.50000 -88.50000 0.0000000E+00 + 28.50000 -88.50000 0.0000000E+00 + 29.50000 -88.50000 0.0000000E+00 + 30.50000 -88.50000 0.0000000E+00 + 31.50000 -88.50000 0.0000000E+00 + 32.50000 -88.50000 0.0000000E+00 + 33.50000 -88.50000 0.0000000E+00 + 34.50000 -88.50000 0.0000000E+00 + 35.50000 -88.50000 0.0000000E+00 + 36.50000 -88.50000 0.0000000E+00 + 37.50000 -88.50000 0.0000000E+00 + 38.50000 -88.50000 0.0000000E+00 + 39.50000 -88.50000 0.0000000E+00 + 40.50000 -88.50000 0.0000000E+00 + 41.50000 -88.50000 0.0000000E+00 + 42.50000 -88.50000 0.0000000E+00 + 43.50000 -88.50000 0.0000000E+00 + 44.50000 -88.50000 0.0000000E+00 + 45.50000 -88.50000 0.0000000E+00 + 46.50000 -88.50000 0.0000000E+00 + 47.50000 -88.50000 0.0000000E+00 + 48.50000 -88.50000 0.0000000E+00 + 49.50000 -88.50000 0.0000000E+00 + 50.50000 -88.50000 0.0000000E+00 + 51.50000 -88.50000 0.0000000E+00 + 52.50000 -88.50000 0.0000000E+00 + 53.50000 -88.50000 0.0000000E+00 + 54.50000 -88.50000 0.0000000E+00 + 55.50000 -88.50000 0.0000000E+00 + 56.50000 -88.50000 0.0000000E+00 + 57.50000 -88.50000 0.0000000E+00 + 58.50000 -88.50000 0.0000000E+00 + 59.50000 -88.50000 0.0000000E+00 + 60.50000 -88.50000 0.0000000E+00 + 61.50000 -88.50000 0.0000000E+00 + 62.50000 -88.50000 0.0000000E+00 + 63.50000 -88.50000 0.0000000E+00 + 64.50000 -88.50000 0.0000000E+00 + 65.50000 -88.50000 0.0000000E+00 + 66.50000 -88.50000 0.0000000E+00 + 67.50000 -88.50000 0.0000000E+00 + 68.50000 -88.50000 0.0000000E+00 + 69.50000 -88.50000 0.0000000E+00 + 70.50000 -88.50000 0.0000000E+00 + 71.50000 -88.50000 0.0000000E+00 + 72.50000 -88.50000 0.0000000E+00 + 73.50000 -88.50000 0.0000000E+00 + 74.50000 -88.50000 0.0000000E+00 + 75.50000 -88.50000 0.0000000E+00 + 76.50000 -88.50000 0.0000000E+00 + 77.50000 -88.50000 0.0000000E+00 + 78.50000 -88.50000 0.0000000E+00 + 79.50000 -88.50000 0.0000000E+00 + 80.50000 -88.50000 0.0000000E+00 + 81.50000 -88.50000 0.0000000E+00 + 82.50000 -88.50000 0.0000000E+00 + 83.50000 -88.50000 0.0000000E+00 + 84.50000 -88.50000 0.0000000E+00 + 85.50000 -88.50000 0.0000000E+00 + 86.50000 -88.50000 0.0000000E+00 + 87.50000 -88.50000 0.0000000E+00 + 88.50000 -88.50000 0.0000000E+00 + 89.50000 -88.50000 0.0000000E+00 + -89.50000 -87.50000 0.0000000E+00 + -88.50000 -87.50000 0.0000000E+00 + -87.50000 -87.50000 0.0000000E+00 + -86.50000 -87.50000 0.0000000E+00 + -85.50000 -87.50000 0.0000000E+00 + -84.50000 -87.50000 0.0000000E+00 + -83.50000 -87.50000 0.0000000E+00 + -82.50000 -87.50000 0.0000000E+00 + -81.50000 -87.50000 0.0000000E+00 + -80.50000 -87.50000 0.0000000E+00 + -79.50000 -87.50000 0.0000000E+00 + -78.50000 -87.50000 0.0000000E+00 + -77.50000 -87.50000 0.0000000E+00 + -76.50000 -87.50000 0.0000000E+00 + -75.50000 -87.50000 0.0000000E+00 + -74.50000 -87.50000 0.0000000E+00 + -73.50000 -87.50000 0.0000000E+00 + -72.50000 -87.50000 0.0000000E+00 + -71.50000 -87.50000 0.0000000E+00 + -70.50000 -87.50000 0.0000000E+00 + -69.50000 -87.50000 0.0000000E+00 + -68.50000 -87.50000 0.0000000E+00 + -67.50000 -87.50000 0.0000000E+00 + -66.50000 -87.50000 0.0000000E+00 + -65.50000 -87.50000 0.0000000E+00 + -64.50000 -87.50000 0.0000000E+00 + -63.50000 -87.50000 0.0000000E+00 + -62.50000 -87.50000 0.0000000E+00 + -61.50000 -87.50000 0.0000000E+00 + -60.50000 -87.50000 0.0000000E+00 + -59.50000 -87.50000 0.0000000E+00 + -58.50000 -87.50000 0.0000000E+00 + -57.50000 -87.50000 0.0000000E+00 + -56.50000 -87.50000 0.0000000E+00 + -55.50000 -87.50000 0.0000000E+00 + -54.50000 -87.50000 0.0000000E+00 + -53.50000 -87.50000 0.0000000E+00 + -52.50000 -87.50000 0.0000000E+00 + -51.50000 -87.50000 0.0000000E+00 + -50.50000 -87.50000 0.0000000E+00 + -49.50000 -87.50000 0.0000000E+00 + -48.50000 -87.50000 0.0000000E+00 + -47.50000 -87.50000 0.0000000E+00 + -46.50000 -87.50000 0.0000000E+00 + -45.50000 -87.50000 0.0000000E+00 + -44.50000 -87.50000 0.0000000E+00 + -43.50000 -87.50000 0.0000000E+00 + -42.50000 -87.50000 0.0000000E+00 + -41.50000 -87.50000 0.0000000E+00 + -40.50000 -87.50000 0.0000000E+00 + -39.50000 -87.50000 0.0000000E+00 + -38.50000 -87.50000 0.0000000E+00 + -37.50000 -87.50000 0.0000000E+00 + -36.50000 -87.50000 0.0000000E+00 + -35.50000 -87.50000 0.0000000E+00 + -34.50000 -87.50000 0.0000000E+00 + -33.50000 -87.50000 0.0000000E+00 + -32.50000 -87.50000 0.0000000E+00 + -31.50000 -87.50000 0.0000000E+00 + -30.50000 -87.50000 0.0000000E+00 + -29.50000 -87.50000 0.0000000E+00 + -28.50000 -87.50000 0.0000000E+00 + -27.50000 -87.50000 0.0000000E+00 + -26.50000 -87.50000 0.0000000E+00 + -25.50000 -87.50000 0.0000000E+00 + -24.50000 -87.50000 0.0000000E+00 + -23.50000 -87.50000 0.0000000E+00 + -22.50000 -87.50000 0.0000000E+00 + -21.50000 -87.50000 0.0000000E+00 + -20.50000 -87.50000 0.0000000E+00 + -19.50000 -87.50000 0.0000000E+00 + -18.50000 -87.50000 0.0000000E+00 + -17.50000 -87.50000 0.0000000E+00 + -16.50000 -87.50000 0.0000000E+00 + -15.50000 -87.50000 0.0000000E+00 + -14.50000 -87.50000 0.0000000E+00 + -13.50000 -87.50000 0.0000000E+00 + -12.50000 -87.50000 0.0000000E+00 + -11.50000 -87.50000 0.0000000E+00 + -10.50000 -87.50000 0.0000000E+00 + -9.500000 -87.50000 0.0000000E+00 + -8.500000 -87.50000 0.0000000E+00 + -7.500000 -87.50000 0.0000000E+00 + -6.500000 -87.50000 0.0000000E+00 + -5.500000 -87.50000 0.0000000E+00 + -4.500000 -87.50000 0.0000000E+00 + -3.500000 -87.50000 0.0000000E+00 + -2.500000 -87.50000 0.0000000E+00 + -1.500000 -87.50000 0.0000000E+00 + -0.5000000 -87.50000 0.0000000E+00 + 0.5000000 -87.50000 0.0000000E+00 + 1.500000 -87.50000 0.0000000E+00 + 2.500000 -87.50000 0.0000000E+00 + 3.500000 -87.50000 0.0000000E+00 + 4.500000 -87.50000 0.0000000E+00 + 5.500000 -87.50000 0.0000000E+00 + 6.500000 -87.50000 0.0000000E+00 + 7.500000 -87.50000 0.0000000E+00 + 8.500000 -87.50000 0.0000000E+00 + 9.500000 -87.50000 0.0000000E+00 + 10.50000 -87.50000 0.0000000E+00 + 11.50000 -87.50000 0.0000000E+00 + 12.50000 -87.50000 0.0000000E+00 + 13.50000 -87.50000 0.0000000E+00 + 14.50000 -87.50000 0.0000000E+00 + 15.50000 -87.50000 0.0000000E+00 + 16.50000 -87.50000 0.0000000E+00 + 17.50000 -87.50000 0.0000000E+00 + 18.50000 -87.50000 0.0000000E+00 + 19.50000 -87.50000 0.0000000E+00 + 20.50000 -87.50000 0.0000000E+00 + 21.50000 -87.50000 0.0000000E+00 + 22.50000 -87.50000 0.0000000E+00 + 23.50000 -87.50000 0.0000000E+00 + 24.50000 -87.50000 0.0000000E+00 + 25.50000 -87.50000 0.0000000E+00 + 26.50000 -87.50000 0.0000000E+00 + 27.50000 -87.50000 0.0000000E+00 + 28.50000 -87.50000 0.0000000E+00 + 29.50000 -87.50000 0.0000000E+00 + 30.50000 -87.50000 0.0000000E+00 + 31.50000 -87.50000 0.0000000E+00 + 32.50000 -87.50000 0.0000000E+00 + 33.50000 -87.50000 0.0000000E+00 + 34.50000 -87.50000 0.0000000E+00 + 35.50000 -87.50000 0.0000000E+00 + 36.50000 -87.50000 0.0000000E+00 + 37.50000 -87.50000 0.0000000E+00 + 38.50000 -87.50000 0.0000000E+00 + 39.50000 -87.50000 0.0000000E+00 + 40.50000 -87.50000 0.0000000E+00 + 41.50000 -87.50000 0.0000000E+00 + 42.50000 -87.50000 0.0000000E+00 + 43.50000 -87.50000 0.0000000E+00 + 44.50000 -87.50000 0.0000000E+00 + 45.50000 -87.50000 0.0000000E+00 + 46.50000 -87.50000 0.0000000E+00 + 47.50000 -87.50000 0.0000000E+00 + 48.50000 -87.50000 0.0000000E+00 + 49.50000 -87.50000 0.0000000E+00 + 50.50000 -87.50000 0.0000000E+00 + 51.50000 -87.50000 0.0000000E+00 + 52.50000 -87.50000 0.0000000E+00 + 53.50000 -87.50000 0.0000000E+00 + 54.50000 -87.50000 0.0000000E+00 + 55.50000 -87.50000 0.0000000E+00 + 56.50000 -87.50000 0.0000000E+00 + 57.50000 -87.50000 0.0000000E+00 + 58.50000 -87.50000 0.0000000E+00 + 59.50000 -87.50000 0.0000000E+00 + 60.50000 -87.50000 0.0000000E+00 + 61.50000 -87.50000 0.0000000E+00 + 62.50000 -87.50000 0.0000000E+00 + 63.50000 -87.50000 0.0000000E+00 + 64.50000 -87.50000 0.0000000E+00 + 65.50000 -87.50000 0.0000000E+00 + 66.50000 -87.50000 0.0000000E+00 + 67.50000 -87.50000 0.0000000E+00 + 68.50000 -87.50000 0.0000000E+00 + 69.50000 -87.50000 0.0000000E+00 + 70.50000 -87.50000 0.0000000E+00 + 71.50000 -87.50000 0.0000000E+00 + 72.50000 -87.50000 0.0000000E+00 + 73.50000 -87.50000 0.0000000E+00 + 74.50000 -87.50000 0.0000000E+00 + 75.50000 -87.50000 0.0000000E+00 + 76.50000 -87.50000 0.0000000E+00 + 77.50000 -87.50000 0.0000000E+00 + 78.50000 -87.50000 0.0000000E+00 + 79.50000 -87.50000 0.0000000E+00 + 80.50000 -87.50000 0.0000000E+00 + 81.50000 -87.50000 0.0000000E+00 + 82.50000 -87.50000 0.0000000E+00 + 83.50000 -87.50000 0.0000000E+00 + 84.50000 -87.50000 0.0000000E+00 + 85.50000 -87.50000 0.0000000E+00 + 86.50000 -87.50000 0.0000000E+00 + 87.50000 -87.50000 0.0000000E+00 + 88.50000 -87.50000 0.0000000E+00 + 89.50000 -87.50000 0.0000000E+00 + -89.50000 -86.50000 0.0000000E+00 + -88.50000 -86.50000 0.0000000E+00 + -87.50000 -86.50000 0.0000000E+00 + -86.50000 -86.50000 0.0000000E+00 + -85.50000 -86.50000 0.0000000E+00 + -84.50000 -86.50000 0.0000000E+00 + -83.50000 -86.50000 0.0000000E+00 + -82.50000 -86.50000 0.0000000E+00 + -81.50000 -86.50000 0.0000000E+00 + -80.50000 -86.50000 0.0000000E+00 + -79.50000 -86.50000 0.0000000E+00 + -78.50000 -86.50000 0.0000000E+00 + -77.50000 -86.50000 0.0000000E+00 + -76.50000 -86.50000 0.0000000E+00 + -75.50000 -86.50000 0.0000000E+00 + -74.50000 -86.50000 0.0000000E+00 + -73.50000 -86.50000 0.0000000E+00 + -72.50000 -86.50000 0.0000000E+00 + -71.50000 -86.50000 0.0000000E+00 + -70.50000 -86.50000 0.0000000E+00 + -69.50000 -86.50000 0.0000000E+00 + -68.50000 -86.50000 0.0000000E+00 + -67.50000 -86.50000 0.0000000E+00 + -66.50000 -86.50000 0.0000000E+00 + -65.50000 -86.50000 0.0000000E+00 + -64.50000 -86.50000 0.0000000E+00 + -63.50000 -86.50000 0.0000000E+00 + -62.50000 -86.50000 0.0000000E+00 + -61.50000 -86.50000 0.0000000E+00 + -60.50000 -86.50000 0.0000000E+00 + -59.50000 -86.50000 0.0000000E+00 + -58.50000 -86.50000 0.0000000E+00 + -57.50000 -86.50000 0.0000000E+00 + -56.50000 -86.50000 0.0000000E+00 + -55.50000 -86.50000 0.0000000E+00 + -54.50000 -86.50000 0.0000000E+00 + -53.50000 -86.50000 0.0000000E+00 + -52.50000 -86.50000 0.0000000E+00 + -51.50000 -86.50000 0.0000000E+00 + -50.50000 -86.50000 0.0000000E+00 + -49.50000 -86.50000 0.0000000E+00 + -48.50000 -86.50000 0.0000000E+00 + -47.50000 -86.50000 0.0000000E+00 + -46.50000 -86.50000 0.0000000E+00 + -45.50000 -86.50000 0.0000000E+00 + -44.50000 -86.50000 0.0000000E+00 + -43.50000 -86.50000 0.0000000E+00 + -42.50000 -86.50000 0.0000000E+00 + -41.50000 -86.50000 0.0000000E+00 + -40.50000 -86.50000 0.0000000E+00 + -39.50000 -86.50000 0.0000000E+00 + -38.50000 -86.50000 0.0000000E+00 + -37.50000 -86.50000 0.0000000E+00 + -36.50000 -86.50000 0.0000000E+00 + -35.50000 -86.50000 0.0000000E+00 + -34.50000 -86.50000 0.0000000E+00 + -33.50000 -86.50000 0.0000000E+00 + -32.50000 -86.50000 0.0000000E+00 + -31.50000 -86.50000 0.0000000E+00 + -30.50000 -86.50000 0.0000000E+00 + -29.50000 -86.50000 0.0000000E+00 + -28.50000 -86.50000 0.0000000E+00 + -27.50000 -86.50000 0.0000000E+00 + -26.50000 -86.50000 0.0000000E+00 + -25.50000 -86.50000 0.0000000E+00 + -24.50000 -86.50000 0.0000000E+00 + -23.50000 -86.50000 0.0000000E+00 + -22.50000 -86.50000 0.0000000E+00 + -21.50000 -86.50000 0.0000000E+00 + -20.50000 -86.50000 0.0000000E+00 + -19.50000 -86.50000 0.0000000E+00 + -18.50000 -86.50000 0.0000000E+00 + -17.50000 -86.50000 0.0000000E+00 + -16.50000 -86.50000 0.0000000E+00 + -15.50000 -86.50000 0.0000000E+00 + -14.50000 -86.50000 0.0000000E+00 + -13.50000 -86.50000 0.0000000E+00 + -12.50000 -86.50000 0.0000000E+00 + -11.50000 -86.50000 0.0000000E+00 + -10.50000 -86.50000 0.0000000E+00 + -9.500000 -86.50000 0.0000000E+00 + -8.500000 -86.50000 0.0000000E+00 + -7.500000 -86.50000 0.0000000E+00 + -6.500000 -86.50000 0.0000000E+00 + -5.500000 -86.50000 0.0000000E+00 + -4.500000 -86.50000 0.0000000E+00 + -3.500000 -86.50000 0.0000000E+00 + -2.500000 -86.50000 0.0000000E+00 + -1.500000 -86.50000 0.0000000E+00 + -0.5000000 -86.50000 0.0000000E+00 + 0.5000000 -86.50000 0.0000000E+00 + 1.500000 -86.50000 0.0000000E+00 + 2.500000 -86.50000 0.0000000E+00 + 3.500000 -86.50000 0.0000000E+00 + 4.500000 -86.50000 0.0000000E+00 + 5.500000 -86.50000 0.0000000E+00 + 6.500000 -86.50000 0.0000000E+00 + 7.500000 -86.50000 0.0000000E+00 + 8.500000 -86.50000 0.0000000E+00 + 9.500000 -86.50000 0.0000000E+00 + 10.50000 -86.50000 0.0000000E+00 + 11.50000 -86.50000 0.0000000E+00 + 12.50000 -86.50000 0.0000000E+00 + 13.50000 -86.50000 0.0000000E+00 + 14.50000 -86.50000 0.0000000E+00 + 15.50000 -86.50000 0.0000000E+00 + 16.50000 -86.50000 0.0000000E+00 + 17.50000 -86.50000 0.0000000E+00 + 18.50000 -86.50000 0.0000000E+00 + 19.50000 -86.50000 0.0000000E+00 + 20.50000 -86.50000 0.0000000E+00 + 21.50000 -86.50000 0.0000000E+00 + 22.50000 -86.50000 0.0000000E+00 + 23.50000 -86.50000 0.0000000E+00 + 24.50000 -86.50000 0.0000000E+00 + 25.50000 -86.50000 0.0000000E+00 + 26.50000 -86.50000 0.0000000E+00 + 27.50000 -86.50000 0.0000000E+00 + 28.50000 -86.50000 0.0000000E+00 + 29.50000 -86.50000 0.0000000E+00 + 30.50000 -86.50000 0.0000000E+00 + 31.50000 -86.50000 0.0000000E+00 + 32.50000 -86.50000 0.0000000E+00 + 33.50000 -86.50000 0.0000000E+00 + 34.50000 -86.50000 0.0000000E+00 + 35.50000 -86.50000 0.0000000E+00 + 36.50000 -86.50000 0.0000000E+00 + 37.50000 -86.50000 0.0000000E+00 + 38.50000 -86.50000 0.0000000E+00 + 39.50000 -86.50000 0.0000000E+00 + 40.50000 -86.50000 0.0000000E+00 + 41.50000 -86.50000 0.0000000E+00 + 42.50000 -86.50000 0.0000000E+00 + 43.50000 -86.50000 0.0000000E+00 + 44.50000 -86.50000 0.0000000E+00 + 45.50000 -86.50000 0.0000000E+00 + 46.50000 -86.50000 0.0000000E+00 + 47.50000 -86.50000 0.0000000E+00 + 48.50000 -86.50000 0.0000000E+00 + 49.50000 -86.50000 0.0000000E+00 + 50.50000 -86.50000 0.0000000E+00 + 51.50000 -86.50000 0.0000000E+00 + 52.50000 -86.50000 0.0000000E+00 + 53.50000 -86.50000 0.0000000E+00 + 54.50000 -86.50000 0.0000000E+00 + 55.50000 -86.50000 0.0000000E+00 + 56.50000 -86.50000 0.0000000E+00 + 57.50000 -86.50000 0.0000000E+00 + 58.50000 -86.50000 0.0000000E+00 + 59.50000 -86.50000 0.0000000E+00 + 60.50000 -86.50000 0.0000000E+00 + 61.50000 -86.50000 0.0000000E+00 + 62.50000 -86.50000 0.0000000E+00 + 63.50000 -86.50000 0.0000000E+00 + 64.50000 -86.50000 0.0000000E+00 + 65.50000 -86.50000 0.0000000E+00 + 66.50000 -86.50000 0.0000000E+00 + 67.50000 -86.50000 0.0000000E+00 + 68.50000 -86.50000 0.0000000E+00 + 69.50000 -86.50000 0.0000000E+00 + 70.50000 -86.50000 0.0000000E+00 + 71.50000 -86.50000 0.0000000E+00 + 72.50000 -86.50000 0.0000000E+00 + 73.50000 -86.50000 0.0000000E+00 + 74.50000 -86.50000 0.0000000E+00 + 75.50000 -86.50000 0.0000000E+00 + 76.50000 -86.50000 0.0000000E+00 + 77.50000 -86.50000 0.0000000E+00 + 78.50000 -86.50000 0.0000000E+00 + 79.50000 -86.50000 0.0000000E+00 + 80.50000 -86.50000 0.0000000E+00 + 81.50000 -86.50000 0.0000000E+00 + 82.50000 -86.50000 0.0000000E+00 + 83.50000 -86.50000 0.0000000E+00 + 84.50000 -86.50000 0.0000000E+00 + 85.50000 -86.50000 0.0000000E+00 + 86.50000 -86.50000 0.0000000E+00 + 87.50000 -86.50000 0.0000000E+00 + 88.50000 -86.50000 0.0000000E+00 + 89.50000 -86.50000 0.0000000E+00 + -89.50000 -85.50000 0.0000000E+00 + -88.50000 -85.50000 0.0000000E+00 + -87.50000 -85.50000 0.0000000E+00 + -86.50000 -85.50000 0.0000000E+00 + -85.50000 -85.50000 0.0000000E+00 + -84.50000 -85.50000 0.0000000E+00 + -83.50000 -85.50000 0.0000000E+00 + -82.50000 -85.50000 0.0000000E+00 + -81.50000 -85.50000 0.0000000E+00 + -80.50000 -85.50000 0.0000000E+00 + -79.50000 -85.50000 0.0000000E+00 + -78.50000 -85.50000 0.0000000E+00 + -77.50000 -85.50000 0.0000000E+00 + -76.50000 -85.50000 0.0000000E+00 + -75.50000 -85.50000 0.0000000E+00 + -74.50000 -85.50000 0.0000000E+00 + -73.50000 -85.50000 0.0000000E+00 + -72.50000 -85.50000 0.0000000E+00 + -71.50000 -85.50000 0.0000000E+00 + -70.50000 -85.50000 0.0000000E+00 + -69.50000 -85.50000 0.0000000E+00 + -68.50000 -85.50000 0.0000000E+00 + -67.50000 -85.50000 0.0000000E+00 + -66.50000 -85.50000 0.0000000E+00 + -65.50000 -85.50000 0.0000000E+00 + -64.50000 -85.50000 0.0000000E+00 + -63.50000 -85.50000 0.0000000E+00 + -62.50000 -85.50000 0.0000000E+00 + -61.50000 -85.50000 0.0000000E+00 + -60.50000 -85.50000 0.0000000E+00 + -59.50000 -85.50000 0.0000000E+00 + -58.50000 -85.50000 0.0000000E+00 + -57.50000 -85.50000 0.0000000E+00 + -56.50000 -85.50000 0.0000000E+00 + -55.50000 -85.50000 0.0000000E+00 + -54.50000 -85.50000 0.0000000E+00 + -53.50000 -85.50000 0.0000000E+00 + -52.50000 -85.50000 0.0000000E+00 + -51.50000 -85.50000 0.0000000E+00 + -50.50000 -85.50000 0.0000000E+00 + -49.50000 -85.50000 0.0000000E+00 + -48.50000 -85.50000 0.0000000E+00 + -47.50000 -85.50000 0.0000000E+00 + -46.50000 -85.50000 0.0000000E+00 + -45.50000 -85.50000 0.0000000E+00 + -44.50000 -85.50000 0.0000000E+00 + -43.50000 -85.50000 0.0000000E+00 + -42.50000 -85.50000 0.0000000E+00 + -41.50000 -85.50000 0.0000000E+00 + -40.50000 -85.50000 0.0000000E+00 + -39.50000 -85.50000 0.0000000E+00 + -38.50000 -85.50000 0.0000000E+00 + -37.50000 -85.50000 0.0000000E+00 + -36.50000 -85.50000 0.0000000E+00 + -35.50000 -85.50000 0.0000000E+00 + -34.50000 -85.50000 0.0000000E+00 + -33.50000 -85.50000 0.0000000E+00 + -32.50000 -85.50000 0.0000000E+00 + -31.50000 -85.50000 0.0000000E+00 + -30.50000 -85.50000 0.0000000E+00 + -29.50000 -85.50000 0.0000000E+00 + -28.50000 -85.50000 0.0000000E+00 + -27.50000 -85.50000 0.0000000E+00 + -26.50000 -85.50000 0.0000000E+00 + -25.50000 -85.50000 0.0000000E+00 + -24.50000 -85.50000 0.0000000E+00 + -23.50000 -85.50000 0.0000000E+00 + -22.50000 -85.50000 0.0000000E+00 + -21.50000 -85.50000 0.0000000E+00 + -20.50000 -85.50000 0.0000000E+00 + -19.50000 -85.50000 0.0000000E+00 + -18.50000 -85.50000 0.0000000E+00 + -17.50000 -85.50000 0.0000000E+00 + -16.50000 -85.50000 0.0000000E+00 + -15.50000 -85.50000 0.0000000E+00 + -14.50000 -85.50000 0.0000000E+00 + -13.50000 -85.50000 0.0000000E+00 + -12.50000 -85.50000 0.0000000E+00 + -11.50000 -85.50000 0.0000000E+00 + -10.50000 -85.50000 0.0000000E+00 + -9.500000 -85.50000 0.0000000E+00 + -8.500000 -85.50000 0.0000000E+00 + -7.500000 -85.50000 0.0000000E+00 + -6.500000 -85.50000 0.0000000E+00 + -5.500000 -85.50000 0.0000000E+00 + -4.500000 -85.50000 0.0000000E+00 + -3.500000 -85.50000 0.0000000E+00 + -2.500000 -85.50000 0.0000000E+00 + -1.500000 -85.50000 0.0000000E+00 + -0.5000000 -85.50000 0.0000000E+00 + 0.5000000 -85.50000 0.0000000E+00 + 1.500000 -85.50000 0.0000000E+00 + 2.500000 -85.50000 0.0000000E+00 + 3.500000 -85.50000 0.0000000E+00 + 4.500000 -85.50000 0.0000000E+00 + 5.500000 -85.50000 0.0000000E+00 + 6.500000 -85.50000 0.0000000E+00 + 7.500000 -85.50000 0.0000000E+00 + 8.500000 -85.50000 0.0000000E+00 + 9.500000 -85.50000 0.0000000E+00 + 10.50000 -85.50000 0.0000000E+00 + 11.50000 -85.50000 0.0000000E+00 + 12.50000 -85.50000 0.0000000E+00 + 13.50000 -85.50000 0.0000000E+00 + 14.50000 -85.50000 0.0000000E+00 + 15.50000 -85.50000 0.0000000E+00 + 16.50000 -85.50000 0.0000000E+00 + 17.50000 -85.50000 0.0000000E+00 + 18.50000 -85.50000 0.0000000E+00 + 19.50000 -85.50000 0.0000000E+00 + 20.50000 -85.50000 0.0000000E+00 + 21.50000 -85.50000 0.0000000E+00 + 22.50000 -85.50000 0.0000000E+00 + 23.50000 -85.50000 0.0000000E+00 + 24.50000 -85.50000 0.0000000E+00 + 25.50000 -85.50000 0.0000000E+00 + 26.50000 -85.50000 0.0000000E+00 + 27.50000 -85.50000 0.0000000E+00 + 28.50000 -85.50000 0.0000000E+00 + 29.50000 -85.50000 0.0000000E+00 + 30.50000 -85.50000 0.0000000E+00 + 31.50000 -85.50000 0.0000000E+00 + 32.50000 -85.50000 0.0000000E+00 + 33.50000 -85.50000 0.0000000E+00 + 34.50000 -85.50000 0.0000000E+00 + 35.50000 -85.50000 0.0000000E+00 + 36.50000 -85.50000 0.0000000E+00 + 37.50000 -85.50000 0.0000000E+00 + 38.50000 -85.50000 0.0000000E+00 + 39.50000 -85.50000 0.0000000E+00 + 40.50000 -85.50000 0.0000000E+00 + 41.50000 -85.50000 0.0000000E+00 + 42.50000 -85.50000 0.0000000E+00 + 43.50000 -85.50000 0.0000000E+00 + 44.50000 -85.50000 0.0000000E+00 + 45.50000 -85.50000 0.0000000E+00 + 46.50000 -85.50000 0.0000000E+00 + 47.50000 -85.50000 0.0000000E+00 + 48.50000 -85.50000 0.0000000E+00 + 49.50000 -85.50000 0.0000000E+00 + 50.50000 -85.50000 0.0000000E+00 + 51.50000 -85.50000 0.0000000E+00 + 52.50000 -85.50000 0.0000000E+00 + 53.50000 -85.50000 0.0000000E+00 + 54.50000 -85.50000 0.0000000E+00 + 55.50000 -85.50000 0.0000000E+00 + 56.50000 -85.50000 0.0000000E+00 + 57.50000 -85.50000 0.0000000E+00 + 58.50000 -85.50000 0.0000000E+00 + 59.50000 -85.50000 0.0000000E+00 + 60.50000 -85.50000 0.0000000E+00 + 61.50000 -85.50000 0.0000000E+00 + 62.50000 -85.50000 0.0000000E+00 + 63.50000 -85.50000 0.0000000E+00 + 64.50000 -85.50000 0.0000000E+00 + 65.50000 -85.50000 0.0000000E+00 + 66.50000 -85.50000 0.0000000E+00 + 67.50000 -85.50000 0.0000000E+00 + 68.50000 -85.50000 0.0000000E+00 + 69.50000 -85.50000 0.0000000E+00 + 70.50000 -85.50000 0.0000000E+00 + 71.50000 -85.50000 0.0000000E+00 + 72.50000 -85.50000 0.0000000E+00 + 73.50000 -85.50000 0.0000000E+00 + 74.50000 -85.50000 0.0000000E+00 + 75.50000 -85.50000 0.0000000E+00 + 76.50000 -85.50000 0.0000000E+00 + 77.50000 -85.50000 0.0000000E+00 + 78.50000 -85.50000 0.0000000E+00 + 79.50000 -85.50000 0.0000000E+00 + 80.50000 -85.50000 0.0000000E+00 + 81.50000 -85.50000 0.0000000E+00 + 82.50000 -85.50000 0.0000000E+00 + 83.50000 -85.50000 0.0000000E+00 + 84.50000 -85.50000 0.0000000E+00 + 85.50000 -85.50000 0.0000000E+00 + 86.50000 -85.50000 0.0000000E+00 + 87.50000 -85.50000 0.0000000E+00 + 88.50000 -85.50000 0.0000000E+00 + 89.50000 -85.50000 0.0000000E+00 + -89.50000 -84.50000 0.0000000E+00 + -88.50000 -84.50000 0.0000000E+00 + -87.50000 -84.50000 0.0000000E+00 + -86.50000 -84.50000 0.0000000E+00 + -85.50000 -84.50000 0.0000000E+00 + -84.50000 -84.50000 0.0000000E+00 + -83.50000 -84.50000 0.0000000E+00 + -82.50000 -84.50000 0.0000000E+00 + -81.50000 -84.50000 0.0000000E+00 + -80.50000 -84.50000 0.0000000E+00 + -79.50000 -84.50000 0.0000000E+00 + -78.50000 -84.50000 0.0000000E+00 + -77.50000 -84.50000 0.0000000E+00 + -76.50000 -84.50000 0.0000000E+00 + -75.50000 -84.50000 0.0000000E+00 + -74.50000 -84.50000 0.0000000E+00 + -73.50000 -84.50000 0.0000000E+00 + -72.50000 -84.50000 0.0000000E+00 + -71.50000 -84.50000 0.0000000E+00 + -70.50000 -84.50000 0.0000000E+00 + -69.50000 -84.50000 0.0000000E+00 + -68.50000 -84.50000 0.0000000E+00 + -67.50000 -84.50000 0.0000000E+00 + -66.50000 -84.50000 0.0000000E+00 + -65.50000 -84.50000 0.0000000E+00 + -64.50000 -84.50000 0.0000000E+00 + -63.50000 -84.50000 0.0000000E+00 + -62.50000 -84.50000 0.0000000E+00 + -61.50000 -84.50000 0.0000000E+00 + -60.50000 -84.50000 0.0000000E+00 + -59.50000 -84.50000 0.0000000E+00 + -58.50000 -84.50000 0.0000000E+00 + -57.50000 -84.50000 0.0000000E+00 + -56.50000 -84.50000 0.0000000E+00 + -55.50000 -84.50000 0.0000000E+00 + -54.50000 -84.50000 0.0000000E+00 + -53.50000 -84.50000 0.0000000E+00 + -52.50000 -84.50000 0.0000000E+00 + -51.50000 -84.50000 0.0000000E+00 + -50.50000 -84.50000 0.0000000E+00 + -49.50000 -84.50000 0.0000000E+00 + -48.50000 -84.50000 0.0000000E+00 + -47.50000 -84.50000 0.0000000E+00 + -46.50000 -84.50000 0.0000000E+00 + -45.50000 -84.50000 0.0000000E+00 + -44.50000 -84.50000 0.0000000E+00 + -43.50000 -84.50000 0.0000000E+00 + -42.50000 -84.50000 0.0000000E+00 + -41.50000 -84.50000 0.0000000E+00 + -40.50000 -84.50000 0.0000000E+00 + -39.50000 -84.50000 0.0000000E+00 + -38.50000 -84.50000 0.0000000E+00 + -37.50000 -84.50000 0.0000000E+00 + -36.50000 -84.50000 0.0000000E+00 + -35.50000 -84.50000 0.0000000E+00 + -34.50000 -84.50000 0.0000000E+00 + -33.50000 -84.50000 0.0000000E+00 + -32.50000 -84.50000 0.0000000E+00 + -31.50000 -84.50000 0.0000000E+00 + -30.50000 -84.50000 0.0000000E+00 + -29.50000 -84.50000 0.0000000E+00 + -28.50000 -84.50000 0.0000000E+00 + -27.50000 -84.50000 0.0000000E+00 + -26.50000 -84.50000 0.0000000E+00 + -25.50000 -84.50000 0.0000000E+00 + -24.50000 -84.50000 0.0000000E+00 + -23.50000 -84.50000 0.0000000E+00 + -22.50000 -84.50000 0.0000000E+00 + -21.50000 -84.50000 0.0000000E+00 + -20.50000 -84.50000 0.0000000E+00 + -19.50000 -84.50000 0.0000000E+00 + -18.50000 -84.50000 0.0000000E+00 + -17.50000 -84.50000 0.0000000E+00 + -16.50000 -84.50000 0.0000000E+00 + -15.50000 -84.50000 0.0000000E+00 + -14.50000 -84.50000 0.0000000E+00 + -13.50000 -84.50000 0.0000000E+00 + -12.50000 -84.50000 0.0000000E+00 + -11.50000 -84.50000 0.0000000E+00 + -10.50000 -84.50000 0.0000000E+00 + -9.500000 -84.50000 0.0000000E+00 + -8.500000 -84.50000 0.0000000E+00 + -7.500000 -84.50000 0.0000000E+00 + -6.500000 -84.50000 0.0000000E+00 + -5.500000 -84.50000 0.0000000E+00 + -4.500000 -84.50000 0.0000000E+00 + -3.500000 -84.50000 0.0000000E+00 + -2.500000 -84.50000 0.0000000E+00 + -1.500000 -84.50000 0.0000000E+00 + -0.5000000 -84.50000 0.0000000E+00 + 0.5000000 -84.50000 0.0000000E+00 + 1.500000 -84.50000 0.0000000E+00 + 2.500000 -84.50000 0.0000000E+00 + 3.500000 -84.50000 0.0000000E+00 + 4.500000 -84.50000 0.0000000E+00 + 5.500000 -84.50000 0.0000000E+00 + 6.500000 -84.50000 0.0000000E+00 + 7.500000 -84.50000 0.0000000E+00 + 8.500000 -84.50000 0.0000000E+00 + 9.500000 -84.50000 0.0000000E+00 + 10.50000 -84.50000 0.0000000E+00 + 11.50000 -84.50000 0.0000000E+00 + 12.50000 -84.50000 0.0000000E+00 + 13.50000 -84.50000 0.0000000E+00 + 14.50000 -84.50000 0.0000000E+00 + 15.50000 -84.50000 0.0000000E+00 + 16.50000 -84.50000 0.0000000E+00 + 17.50000 -84.50000 0.0000000E+00 + 18.50000 -84.50000 0.0000000E+00 + 19.50000 -84.50000 0.0000000E+00 + 20.50000 -84.50000 0.0000000E+00 + 21.50000 -84.50000 0.0000000E+00 + 22.50000 -84.50000 0.0000000E+00 + 23.50000 -84.50000 0.0000000E+00 + 24.50000 -84.50000 0.0000000E+00 + 25.50000 -84.50000 0.0000000E+00 + 26.50000 -84.50000 0.0000000E+00 + 27.50000 -84.50000 0.0000000E+00 + 28.50000 -84.50000 0.0000000E+00 + 29.50000 -84.50000 0.0000000E+00 + 30.50000 -84.50000 0.0000000E+00 + 31.50000 -84.50000 0.0000000E+00 + 32.50000 -84.50000 0.0000000E+00 + 33.50000 -84.50000 0.0000000E+00 + 34.50000 -84.50000 0.0000000E+00 + 35.50000 -84.50000 0.0000000E+00 + 36.50000 -84.50000 0.0000000E+00 + 37.50000 -84.50000 0.0000000E+00 + 38.50000 -84.50000 0.0000000E+00 + 39.50000 -84.50000 0.0000000E+00 + 40.50000 -84.50000 0.0000000E+00 + 41.50000 -84.50000 0.0000000E+00 + 42.50000 -84.50000 0.0000000E+00 + 43.50000 -84.50000 0.0000000E+00 + 44.50000 -84.50000 0.0000000E+00 + 45.50000 -84.50000 0.0000000E+00 + 46.50000 -84.50000 0.0000000E+00 + 47.50000 -84.50000 0.0000000E+00 + 48.50000 -84.50000 0.0000000E+00 + 49.50000 -84.50000 0.0000000E+00 + 50.50000 -84.50000 0.0000000E+00 + 51.50000 -84.50000 0.0000000E+00 + 52.50000 -84.50000 0.0000000E+00 + 53.50000 -84.50000 0.0000000E+00 + 54.50000 -84.50000 0.0000000E+00 + 55.50000 -84.50000 0.0000000E+00 + 56.50000 -84.50000 0.0000000E+00 + 57.50000 -84.50000 0.0000000E+00 + 58.50000 -84.50000 0.0000000E+00 + 59.50000 -84.50000 0.0000000E+00 + 60.50000 -84.50000 0.0000000E+00 + 61.50000 -84.50000 0.0000000E+00 + 62.50000 -84.50000 0.0000000E+00 + 63.50000 -84.50000 0.0000000E+00 + 64.50000 -84.50000 0.0000000E+00 + 65.50000 -84.50000 0.0000000E+00 + 66.50000 -84.50000 0.0000000E+00 + 67.50000 -84.50000 0.0000000E+00 + 68.50000 -84.50000 0.0000000E+00 + 69.50000 -84.50000 0.0000000E+00 + 70.50000 -84.50000 0.0000000E+00 + 71.50000 -84.50000 0.0000000E+00 + 72.50000 -84.50000 0.0000000E+00 + 73.50000 -84.50000 0.0000000E+00 + 74.50000 -84.50000 0.0000000E+00 + 75.50000 -84.50000 0.0000000E+00 + 76.50000 -84.50000 0.0000000E+00 + 77.50000 -84.50000 0.0000000E+00 + 78.50000 -84.50000 0.0000000E+00 + 79.50000 -84.50000 0.0000000E+00 + 80.50000 -84.50000 0.0000000E+00 + 81.50000 -84.50000 0.0000000E+00 + 82.50000 -84.50000 0.0000000E+00 + 83.50000 -84.50000 0.0000000E+00 + 84.50000 -84.50000 0.0000000E+00 + 85.50000 -84.50000 0.0000000E+00 + 86.50000 -84.50000 0.0000000E+00 + 87.50000 -84.50000 0.0000000E+00 + 88.50000 -84.50000 0.0000000E+00 + 89.50000 -84.50000 0.0000000E+00 + -89.50000 -83.50000 0.0000000E+00 + -88.50000 -83.50000 0.0000000E+00 + -87.50000 -83.50000 0.0000000E+00 + -86.50000 -83.50000 0.0000000E+00 + -85.50000 -83.50000 0.0000000E+00 + -84.50000 -83.50000 0.0000000E+00 + -83.50000 -83.50000 0.0000000E+00 + -82.50000 -83.50000 0.0000000E+00 + -81.50000 -83.50000 0.0000000E+00 + -80.50000 -83.50000 0.0000000E+00 + -79.50000 -83.50000 0.0000000E+00 + -78.50000 -83.50000 0.0000000E+00 + -77.50000 -83.50000 0.0000000E+00 + -76.50000 -83.50000 0.0000000E+00 + -75.50000 -83.50000 0.0000000E+00 + -74.50000 -83.50000 0.0000000E+00 + -73.50000 -83.50000 0.0000000E+00 + -72.50000 -83.50000 0.0000000E+00 + -71.50000 -83.50000 0.0000000E+00 + -70.50000 -83.50000 0.0000000E+00 + -69.50000 -83.50000 0.0000000E+00 + -68.50000 -83.50000 0.0000000E+00 + -67.50000 -83.50000 0.0000000E+00 + -66.50000 -83.50000 0.0000000E+00 + -65.50000 -83.50000 0.0000000E+00 + -64.50000 -83.50000 0.0000000E+00 + -63.50000 -83.50000 0.0000000E+00 + -62.50000 -83.50000 0.0000000E+00 + -61.50000 -83.50000 0.0000000E+00 + -60.50000 -83.50000 0.0000000E+00 + -59.50000 -83.50000 0.0000000E+00 + -58.50000 -83.50000 0.0000000E+00 + -57.50000 -83.50000 0.0000000E+00 + -56.50000 -83.50000 0.0000000E+00 + -55.50000 -83.50000 0.0000000E+00 + -54.50000 -83.50000 0.0000000E+00 + -53.50000 -83.50000 0.0000000E+00 + -52.50000 -83.50000 0.0000000E+00 + -51.50000 -83.50000 0.0000000E+00 + -50.50000 -83.50000 0.0000000E+00 + -49.50000 -83.50000 0.0000000E+00 + -48.50000 -83.50000 0.0000000E+00 + -47.50000 -83.50000 0.0000000E+00 + -46.50000 -83.50000 0.0000000E+00 + -45.50000 -83.50000 0.0000000E+00 + -44.50000 -83.50000 0.0000000E+00 + -43.50000 -83.50000 0.0000000E+00 + -42.50000 -83.50000 0.0000000E+00 + -41.50000 -83.50000 0.0000000E+00 + -40.50000 -83.50000 0.0000000E+00 + -39.50000 -83.50000 0.0000000E+00 + -38.50000 -83.50000 0.0000000E+00 + -37.50000 -83.50000 0.0000000E+00 + -36.50000 -83.50000 0.0000000E+00 + -35.50000 -83.50000 0.0000000E+00 + -34.50000 -83.50000 0.0000000E+00 + -33.50000 -83.50000 0.0000000E+00 + -32.50000 -83.50000 0.0000000E+00 + -31.50000 -83.50000 0.0000000E+00 + -30.50000 -83.50000 0.0000000E+00 + -29.50000 -83.50000 0.0000000E+00 + -28.50000 -83.50000 0.0000000E+00 + -27.50000 -83.50000 0.0000000E+00 + -26.50000 -83.50000 0.0000000E+00 + -25.50000 -83.50000 0.0000000E+00 + -24.50000 -83.50000 0.0000000E+00 + -23.50000 -83.50000 0.0000000E+00 + -22.50000 -83.50000 0.0000000E+00 + -21.50000 -83.50000 0.0000000E+00 + -20.50000 -83.50000 0.0000000E+00 + -19.50000 -83.50000 0.0000000E+00 + -18.50000 -83.50000 0.0000000E+00 + -17.50000 -83.50000 0.0000000E+00 + -16.50000 -83.50000 0.0000000E+00 + -15.50000 -83.50000 0.0000000E+00 + -14.50000 -83.50000 0.0000000E+00 + -13.50000 -83.50000 0.0000000E+00 + -12.50000 -83.50000 0.0000000E+00 + -11.50000 -83.50000 0.0000000E+00 + -10.50000 -83.50000 0.0000000E+00 + -9.500000 -83.50000 0.0000000E+00 + -8.500000 -83.50000 0.0000000E+00 + -7.500000 -83.50000 0.0000000E+00 + -6.500000 -83.50000 0.0000000E+00 + -5.500000 -83.50000 0.0000000E+00 + -4.500000 -83.50000 0.0000000E+00 + -3.500000 -83.50000 0.0000000E+00 + -2.500000 -83.50000 0.0000000E+00 + -1.500000 -83.50000 0.0000000E+00 + -0.5000000 -83.50000 0.0000000E+00 + 0.5000000 -83.50000 0.0000000E+00 + 1.500000 -83.50000 0.0000000E+00 + 2.500000 -83.50000 0.0000000E+00 + 3.500000 -83.50000 0.0000000E+00 + 4.500000 -83.50000 0.0000000E+00 + 5.500000 -83.50000 0.0000000E+00 + 6.500000 -83.50000 0.0000000E+00 + 7.500000 -83.50000 0.0000000E+00 + 8.500000 -83.50000 0.0000000E+00 + 9.500000 -83.50000 0.0000000E+00 + 10.50000 -83.50000 0.0000000E+00 + 11.50000 -83.50000 0.0000000E+00 + 12.50000 -83.50000 0.0000000E+00 + 13.50000 -83.50000 0.0000000E+00 + 14.50000 -83.50000 0.0000000E+00 + 15.50000 -83.50000 0.0000000E+00 + 16.50000 -83.50000 0.0000000E+00 + 17.50000 -83.50000 0.0000000E+00 + 18.50000 -83.50000 0.0000000E+00 + 19.50000 -83.50000 0.0000000E+00 + 20.50000 -83.50000 0.0000000E+00 + 21.50000 -83.50000 0.0000000E+00 + 22.50000 -83.50000 0.0000000E+00 + 23.50000 -83.50000 0.0000000E+00 + 24.50000 -83.50000 0.0000000E+00 + 25.50000 -83.50000 0.0000000E+00 + 26.50000 -83.50000 0.0000000E+00 + 27.50000 -83.50000 0.0000000E+00 + 28.50000 -83.50000 0.0000000E+00 + 29.50000 -83.50000 0.0000000E+00 + 30.50000 -83.50000 0.0000000E+00 + 31.50000 -83.50000 0.0000000E+00 + 32.50000 -83.50000 0.0000000E+00 + 33.50000 -83.50000 0.0000000E+00 + 34.50000 -83.50000 0.0000000E+00 + 35.50000 -83.50000 0.0000000E+00 + 36.50000 -83.50000 0.0000000E+00 + 37.50000 -83.50000 0.0000000E+00 + 38.50000 -83.50000 0.0000000E+00 + 39.50000 -83.50000 0.0000000E+00 + 40.50000 -83.50000 0.0000000E+00 + 41.50000 -83.50000 0.0000000E+00 + 42.50000 -83.50000 0.0000000E+00 + 43.50000 -83.50000 0.0000000E+00 + 44.50000 -83.50000 0.0000000E+00 + 45.50000 -83.50000 0.0000000E+00 + 46.50000 -83.50000 0.0000000E+00 + 47.50000 -83.50000 0.0000000E+00 + 48.50000 -83.50000 0.0000000E+00 + 49.50000 -83.50000 0.0000000E+00 + 50.50000 -83.50000 0.0000000E+00 + 51.50000 -83.50000 0.0000000E+00 + 52.50000 -83.50000 0.0000000E+00 + 53.50000 -83.50000 0.0000000E+00 + 54.50000 -83.50000 0.0000000E+00 + 55.50000 -83.50000 0.0000000E+00 + 56.50000 -83.50000 0.0000000E+00 + 57.50000 -83.50000 0.0000000E+00 + 58.50000 -83.50000 0.0000000E+00 + 59.50000 -83.50000 0.0000000E+00 + 60.50000 -83.50000 0.0000000E+00 + 61.50000 -83.50000 0.0000000E+00 + 62.50000 -83.50000 0.0000000E+00 + 63.50000 -83.50000 0.0000000E+00 + 64.50000 -83.50000 0.0000000E+00 + 65.50000 -83.50000 0.0000000E+00 + 66.50000 -83.50000 0.0000000E+00 + 67.50000 -83.50000 0.0000000E+00 + 68.50000 -83.50000 0.0000000E+00 + 69.50000 -83.50000 0.0000000E+00 + 70.50000 -83.50000 0.0000000E+00 + 71.50000 -83.50000 0.0000000E+00 + 72.50000 -83.50000 0.0000000E+00 + 73.50000 -83.50000 0.0000000E+00 + 74.50000 -83.50000 0.0000000E+00 + 75.50000 -83.50000 0.0000000E+00 + 76.50000 -83.50000 0.0000000E+00 + 77.50000 -83.50000 0.0000000E+00 + 78.50000 -83.50000 0.0000000E+00 + 79.50000 -83.50000 0.0000000E+00 + 80.50000 -83.50000 0.0000000E+00 + 81.50000 -83.50000 0.0000000E+00 + 82.50000 -83.50000 0.0000000E+00 + 83.50000 -83.50000 0.0000000E+00 + 84.50000 -83.50000 0.0000000E+00 + 85.50000 -83.50000 0.0000000E+00 + 86.50000 -83.50000 0.0000000E+00 + 87.50000 -83.50000 0.0000000E+00 + 88.50000 -83.50000 0.0000000E+00 + 89.50000 -83.50000 0.0000000E+00 + -89.50000 -82.50000 0.0000000E+00 + -88.50000 -82.50000 0.0000000E+00 + -87.50000 -82.50000 0.0000000E+00 + -86.50000 -82.50000 0.0000000E+00 + -85.50000 -82.50000 0.0000000E+00 + -84.50000 -82.50000 0.0000000E+00 + -83.50000 -82.50000 0.0000000E+00 + -82.50000 -82.50000 0.0000000E+00 + -81.50000 -82.50000 0.0000000E+00 + -80.50000 -82.50000 0.0000000E+00 + -79.50000 -82.50000 0.0000000E+00 + -78.50000 -82.50000 0.0000000E+00 + -77.50000 -82.50000 0.0000000E+00 + -76.50000 -82.50000 0.0000000E+00 + -75.50000 -82.50000 0.0000000E+00 + -74.50000 -82.50000 0.0000000E+00 + -73.50000 -82.50000 0.0000000E+00 + -72.50000 -82.50000 0.0000000E+00 + -71.50000 -82.50000 0.0000000E+00 + -70.50000 -82.50000 0.0000000E+00 + -69.50000 -82.50000 0.0000000E+00 + -68.50000 -82.50000 0.0000000E+00 + -67.50000 -82.50000 0.0000000E+00 + -66.50000 -82.50000 0.0000000E+00 + -65.50000 -82.50000 0.0000000E+00 + -64.50000 -82.50000 0.0000000E+00 + -63.50000 -82.50000 0.0000000E+00 + -62.50000 -82.50000 0.0000000E+00 + -61.50000 -82.50000 0.0000000E+00 + -60.50000 -82.50000 0.0000000E+00 + -59.50000 -82.50000 0.0000000E+00 + -58.50000 -82.50000 0.0000000E+00 + -57.50000 -82.50000 0.0000000E+00 + -56.50000 -82.50000 0.0000000E+00 + -55.50000 -82.50000 0.0000000E+00 + -54.50000 -82.50000 0.0000000E+00 + -53.50000 -82.50000 0.0000000E+00 + -52.50000 -82.50000 0.0000000E+00 + -51.50000 -82.50000 0.0000000E+00 + -50.50000 -82.50000 0.0000000E+00 + -49.50000 -82.50000 0.0000000E+00 + -48.50000 -82.50000 0.0000000E+00 + -47.50000 -82.50000 0.0000000E+00 + -46.50000 -82.50000 0.0000000E+00 + -45.50000 -82.50000 0.0000000E+00 + -44.50000 -82.50000 0.0000000E+00 + -43.50000 -82.50000 0.0000000E+00 + -42.50000 -82.50000 0.0000000E+00 + -41.50000 -82.50000 0.0000000E+00 + -40.50000 -82.50000 0.0000000E+00 + -39.50000 -82.50000 0.0000000E+00 + -38.50000 -82.50000 0.0000000E+00 + -37.50000 -82.50000 0.0000000E+00 + -36.50000 -82.50000 0.0000000E+00 + -35.50000 -82.50000 0.0000000E+00 + -34.50000 -82.50000 0.0000000E+00 + -33.50000 -82.50000 0.0000000E+00 + -32.50000 -82.50000 0.0000000E+00 + -31.50000 -82.50000 0.0000000E+00 + -30.50000 -82.50000 0.0000000E+00 + -29.50000 -82.50000 0.0000000E+00 + -28.50000 -82.50000 0.0000000E+00 + -27.50000 -82.50000 0.0000000E+00 + -26.50000 -82.50000 0.0000000E+00 + -25.50000 -82.50000 0.0000000E+00 + -24.50000 -82.50000 0.0000000E+00 + -23.50000 -82.50000 0.0000000E+00 + -22.50000 -82.50000 0.0000000E+00 + -21.50000 -82.50000 0.0000000E+00 + -20.50000 -82.50000 0.0000000E+00 + -19.50000 -82.50000 0.0000000E+00 + -18.50000 -82.50000 0.0000000E+00 + -17.50000 -82.50000 0.0000000E+00 + -16.50000 -82.50000 0.0000000E+00 + -15.50000 -82.50000 0.0000000E+00 + -14.50000 -82.50000 0.0000000E+00 + -13.50000 -82.50000 0.0000000E+00 + -12.50000 -82.50000 0.0000000E+00 + -11.50000 -82.50000 0.0000000E+00 + -10.50000 -82.50000 0.0000000E+00 + -9.500000 -82.50000 0.0000000E+00 + -8.500000 -82.50000 0.0000000E+00 + -7.500000 -82.50000 0.0000000E+00 + -6.500000 -82.50000 0.0000000E+00 + -5.500000 -82.50000 0.0000000E+00 + -4.500000 -82.50000 0.0000000E+00 + -3.500000 -82.50000 0.0000000E+00 + -2.500000 -82.50000 0.0000000E+00 + -1.500000 -82.50000 0.0000000E+00 + -0.5000000 -82.50000 0.0000000E+00 + 0.5000000 -82.50000 0.0000000E+00 + 1.500000 -82.50000 0.0000000E+00 + 2.500000 -82.50000 0.0000000E+00 + 3.500000 -82.50000 0.0000000E+00 + 4.500000 -82.50000 0.0000000E+00 + 5.500000 -82.50000 0.0000000E+00 + 6.500000 -82.50000 0.0000000E+00 + 7.500000 -82.50000 0.0000000E+00 + 8.500000 -82.50000 0.0000000E+00 + 9.500000 -82.50000 0.0000000E+00 + 10.50000 -82.50000 0.0000000E+00 + 11.50000 -82.50000 0.0000000E+00 + 12.50000 -82.50000 0.0000000E+00 + 13.50000 -82.50000 0.0000000E+00 + 14.50000 -82.50000 0.0000000E+00 + 15.50000 -82.50000 0.0000000E+00 + 16.50000 -82.50000 0.0000000E+00 + 17.50000 -82.50000 0.0000000E+00 + 18.50000 -82.50000 0.0000000E+00 + 19.50000 -82.50000 0.0000000E+00 + 20.50000 -82.50000 0.0000000E+00 + 21.50000 -82.50000 0.0000000E+00 + 22.50000 -82.50000 0.0000000E+00 + 23.50000 -82.50000 0.0000000E+00 + 24.50000 -82.50000 0.0000000E+00 + 25.50000 -82.50000 0.0000000E+00 + 26.50000 -82.50000 0.0000000E+00 + 27.50000 -82.50000 0.0000000E+00 + 28.50000 -82.50000 0.0000000E+00 + 29.50000 -82.50000 0.0000000E+00 + 30.50000 -82.50000 0.0000000E+00 + 31.50000 -82.50000 0.0000000E+00 + 32.50000 -82.50000 0.0000000E+00 + 33.50000 -82.50000 0.0000000E+00 + 34.50000 -82.50000 0.0000000E+00 + 35.50000 -82.50000 0.0000000E+00 + 36.50000 -82.50000 0.0000000E+00 + 37.50000 -82.50000 0.0000000E+00 + 38.50000 -82.50000 0.0000000E+00 + 39.50000 -82.50000 0.0000000E+00 + 40.50000 -82.50000 0.0000000E+00 + 41.50000 -82.50000 0.0000000E+00 + 42.50000 -82.50000 0.0000000E+00 + 43.50000 -82.50000 0.0000000E+00 + 44.50000 -82.50000 0.0000000E+00 + 45.50000 -82.50000 0.0000000E+00 + 46.50000 -82.50000 0.0000000E+00 + 47.50000 -82.50000 0.0000000E+00 + 48.50000 -82.50000 0.0000000E+00 + 49.50000 -82.50000 0.0000000E+00 + 50.50000 -82.50000 0.0000000E+00 + 51.50000 -82.50000 0.0000000E+00 + 52.50000 -82.50000 0.0000000E+00 + 53.50000 -82.50000 0.0000000E+00 + 54.50000 -82.50000 0.0000000E+00 + 55.50000 -82.50000 0.0000000E+00 + 56.50000 -82.50000 0.0000000E+00 + 57.50000 -82.50000 0.0000000E+00 + 58.50000 -82.50000 0.0000000E+00 + 59.50000 -82.50000 0.0000000E+00 + 60.50000 -82.50000 0.0000000E+00 + 61.50000 -82.50000 0.0000000E+00 + 62.50000 -82.50000 0.0000000E+00 + 63.50000 -82.50000 0.0000000E+00 + 64.50000 -82.50000 0.0000000E+00 + 65.50000 -82.50000 0.0000000E+00 + 66.50000 -82.50000 0.0000000E+00 + 67.50000 -82.50000 0.0000000E+00 + 68.50000 -82.50000 0.0000000E+00 + 69.50000 -82.50000 0.0000000E+00 + 70.50000 -82.50000 0.0000000E+00 + 71.50000 -82.50000 0.0000000E+00 + 72.50000 -82.50000 0.0000000E+00 + 73.50000 -82.50000 0.0000000E+00 + 74.50000 -82.50000 0.0000000E+00 + 75.50000 -82.50000 0.0000000E+00 + 76.50000 -82.50000 0.0000000E+00 + 77.50000 -82.50000 0.0000000E+00 + 78.50000 -82.50000 0.0000000E+00 + 79.50000 -82.50000 0.0000000E+00 + 80.50000 -82.50000 0.0000000E+00 + 81.50000 -82.50000 0.0000000E+00 + 82.50000 -82.50000 0.0000000E+00 + 83.50000 -82.50000 0.0000000E+00 + 84.50000 -82.50000 0.0000000E+00 + 85.50000 -82.50000 0.0000000E+00 + 86.50000 -82.50000 0.0000000E+00 + 87.50000 -82.50000 0.0000000E+00 + 88.50000 -82.50000 0.0000000E+00 + 89.50000 -82.50000 0.0000000E+00 + -89.50000 -81.50000 0.0000000E+00 + -88.50000 -81.50000 0.0000000E+00 + -87.50000 -81.50000 0.0000000E+00 + -86.50000 -81.50000 0.0000000E+00 + -85.50000 -81.50000 0.0000000E+00 + -84.50000 -81.50000 0.0000000E+00 + -83.50000 -81.50000 0.0000000E+00 + -82.50000 -81.50000 0.0000000E+00 + -81.50000 -81.50000 0.0000000E+00 + -80.50000 -81.50000 0.0000000E+00 + -79.50000 -81.50000 0.0000000E+00 + -78.50000 -81.50000 0.0000000E+00 + -77.50000 -81.50000 0.0000000E+00 + -76.50000 -81.50000 0.0000000E+00 + -75.50000 -81.50000 0.0000000E+00 + -74.50000 -81.50000 0.0000000E+00 + -73.50000 -81.50000 0.0000000E+00 + -72.50000 -81.50000 0.0000000E+00 + -71.50000 -81.50000 0.0000000E+00 + -70.50000 -81.50000 0.0000000E+00 + -69.50000 -81.50000 0.0000000E+00 + -68.50000 -81.50000 0.0000000E+00 + -67.50000 -81.50000 0.0000000E+00 + -66.50000 -81.50000 0.0000000E+00 + -65.50000 -81.50000 0.0000000E+00 + -64.50000 -81.50000 0.0000000E+00 + -63.50000 -81.50000 0.0000000E+00 + -62.50000 -81.50000 0.0000000E+00 + -61.50000 -81.50000 0.0000000E+00 + -60.50000 -81.50000 0.0000000E+00 + -59.50000 -81.50000 0.0000000E+00 + -58.50000 -81.50000 0.0000000E+00 + -57.50000 -81.50000 0.0000000E+00 + -56.50000 -81.50000 0.0000000E+00 + -55.50000 -81.50000 0.0000000E+00 + -54.50000 -81.50000 0.0000000E+00 + -53.50000 -81.50000 0.0000000E+00 + -52.50000 -81.50000 0.0000000E+00 + -51.50000 -81.50000 0.0000000E+00 + -50.50000 -81.50000 0.0000000E+00 + -49.50000 -81.50000 0.0000000E+00 + -48.50000 -81.50000 0.0000000E+00 + -47.50000 -81.50000 0.0000000E+00 + -46.50000 -81.50000 0.0000000E+00 + -45.50000 -81.50000 0.0000000E+00 + -44.50000 -81.50000 0.0000000E+00 + -43.50000 -81.50000 0.0000000E+00 + -42.50000 -81.50000 0.0000000E+00 + -41.50000 -81.50000 0.0000000E+00 + -40.50000 -81.50000 0.0000000E+00 + -39.50000 -81.50000 0.0000000E+00 + -38.50000 -81.50000 0.0000000E+00 + -37.50000 -81.50000 0.0000000E+00 + -36.50000 -81.50000 0.0000000E+00 + -35.50000 -81.50000 0.0000000E+00 + -34.50000 -81.50000 0.0000000E+00 + -33.50000 -81.50000 0.0000000E+00 + -32.50000 -81.50000 0.0000000E+00 + -31.50000 -81.50000 0.0000000E+00 + -30.50000 -81.50000 0.0000000E+00 + -29.50000 -81.50000 0.0000000E+00 + -28.50000 -81.50000 0.0000000E+00 + -27.50000 -81.50000 0.0000000E+00 + -26.50000 -81.50000 0.0000000E+00 + -25.50000 -81.50000 0.0000000E+00 + -24.50000 -81.50000 0.0000000E+00 + -23.50000 -81.50000 0.0000000E+00 + -22.50000 -81.50000 0.0000000E+00 + -21.50000 -81.50000 0.0000000E+00 + -20.50000 -81.50000 0.0000000E+00 + -19.50000 -81.50000 0.0000000E+00 + -18.50000 -81.50000 0.0000000E+00 + -17.50000 -81.50000 0.0000000E+00 + -16.50000 -81.50000 0.0000000E+00 + -15.50000 -81.50000 0.0000000E+00 + -14.50000 -81.50000 0.0000000E+00 + -13.50000 -81.50000 0.0000000E+00 + -12.50000 -81.50000 0.0000000E+00 + -11.50000 -81.50000 0.0000000E+00 + -10.50000 -81.50000 0.0000000E+00 + -9.500000 -81.50000 0.0000000E+00 + -8.500000 -81.50000 0.0000000E+00 + -7.500000 -81.50000 0.0000000E+00 + -6.500000 -81.50000 0.0000000E+00 + -5.500000 -81.50000 0.0000000E+00 + -4.500000 -81.50000 0.0000000E+00 + -3.500000 -81.50000 0.0000000E+00 + -2.500000 -81.50000 0.0000000E+00 + -1.500000 -81.50000 0.0000000E+00 + -0.5000000 -81.50000 0.0000000E+00 + 0.5000000 -81.50000 0.0000000E+00 + 1.500000 -81.50000 0.0000000E+00 + 2.500000 -81.50000 0.0000000E+00 + 3.500000 -81.50000 0.0000000E+00 + 4.500000 -81.50000 0.0000000E+00 + 5.500000 -81.50000 0.0000000E+00 + 6.500000 -81.50000 0.0000000E+00 + 7.500000 -81.50000 0.0000000E+00 + 8.500000 -81.50000 0.0000000E+00 + 9.500000 -81.50000 0.0000000E+00 + 10.50000 -81.50000 0.0000000E+00 + 11.50000 -81.50000 0.0000000E+00 + 12.50000 -81.50000 0.0000000E+00 + 13.50000 -81.50000 0.0000000E+00 + 14.50000 -81.50000 0.0000000E+00 + 15.50000 -81.50000 0.0000000E+00 + 16.50000 -81.50000 0.0000000E+00 + 17.50000 -81.50000 0.0000000E+00 + 18.50000 -81.50000 0.0000000E+00 + 19.50000 -81.50000 0.0000000E+00 + 20.50000 -81.50000 0.0000000E+00 + 21.50000 -81.50000 0.0000000E+00 + 22.50000 -81.50000 0.0000000E+00 + 23.50000 -81.50000 0.0000000E+00 + 24.50000 -81.50000 0.0000000E+00 + 25.50000 -81.50000 0.0000000E+00 + 26.50000 -81.50000 0.0000000E+00 + 27.50000 -81.50000 0.0000000E+00 + 28.50000 -81.50000 0.0000000E+00 + 29.50000 -81.50000 0.0000000E+00 + 30.50000 -81.50000 0.0000000E+00 + 31.50000 -81.50000 0.0000000E+00 + 32.50000 -81.50000 0.0000000E+00 + 33.50000 -81.50000 0.0000000E+00 + 34.50000 -81.50000 0.0000000E+00 + 35.50000 -81.50000 0.0000000E+00 + 36.50000 -81.50000 0.0000000E+00 + 37.50000 -81.50000 0.0000000E+00 + 38.50000 -81.50000 0.0000000E+00 + 39.50000 -81.50000 0.0000000E+00 + 40.50000 -81.50000 0.0000000E+00 + 41.50000 -81.50000 0.0000000E+00 + 42.50000 -81.50000 0.0000000E+00 + 43.50000 -81.50000 0.0000000E+00 + 44.50000 -81.50000 0.0000000E+00 + 45.50000 -81.50000 0.0000000E+00 + 46.50000 -81.50000 0.0000000E+00 + 47.50000 -81.50000 0.0000000E+00 + 48.50000 -81.50000 0.0000000E+00 + 49.50000 -81.50000 0.0000000E+00 + 50.50000 -81.50000 0.0000000E+00 + 51.50000 -81.50000 0.0000000E+00 + 52.50000 -81.50000 0.0000000E+00 + 53.50000 -81.50000 0.0000000E+00 + 54.50000 -81.50000 0.0000000E+00 + 55.50000 -81.50000 0.0000000E+00 + 56.50000 -81.50000 0.0000000E+00 + 57.50000 -81.50000 0.0000000E+00 + 58.50000 -81.50000 0.0000000E+00 + 59.50000 -81.50000 0.0000000E+00 + 60.50000 -81.50000 0.0000000E+00 + 61.50000 -81.50000 0.0000000E+00 + 62.50000 -81.50000 0.0000000E+00 + 63.50000 -81.50000 0.0000000E+00 + 64.50000 -81.50000 0.0000000E+00 + 65.50000 -81.50000 0.0000000E+00 + 66.50000 -81.50000 0.0000000E+00 + 67.50000 -81.50000 0.0000000E+00 + 68.50000 -81.50000 0.0000000E+00 + 69.50000 -81.50000 0.0000000E+00 + 70.50000 -81.50000 0.0000000E+00 + 71.50000 -81.50000 0.0000000E+00 + 72.50000 -81.50000 0.0000000E+00 + 73.50000 -81.50000 0.0000000E+00 + 74.50000 -81.50000 0.0000000E+00 + 75.50000 -81.50000 0.0000000E+00 + 76.50000 -81.50000 0.0000000E+00 + 77.50000 -81.50000 0.0000000E+00 + 78.50000 -81.50000 0.0000000E+00 + 79.50000 -81.50000 0.0000000E+00 + 80.50000 -81.50000 0.0000000E+00 + 81.50000 -81.50000 0.0000000E+00 + 82.50000 -81.50000 0.0000000E+00 + 83.50000 -81.50000 0.0000000E+00 + 84.50000 -81.50000 0.0000000E+00 + 85.50000 -81.50000 0.0000000E+00 + 86.50000 -81.50000 0.0000000E+00 + 87.50000 -81.50000 0.0000000E+00 + 88.50000 -81.50000 0.0000000E+00 + 89.50000 -81.50000 0.0000000E+00 + -89.50000 -80.50000 0.0000000E+00 + -88.50000 -80.50000 0.0000000E+00 + -87.50000 -80.50000 0.0000000E+00 + -86.50000 -80.50000 0.0000000E+00 + -85.50000 -80.50000 0.0000000E+00 + -84.50000 -80.50000 0.0000000E+00 + -83.50000 -80.50000 0.0000000E+00 + -82.50000 -80.50000 0.0000000E+00 + -81.50000 -80.50000 0.0000000E+00 + -80.50000 -80.50000 0.0000000E+00 + -79.50000 -80.50000 0.0000000E+00 + -78.50000 -80.50000 0.0000000E+00 + -77.50000 -80.50000 0.0000000E+00 + -76.50000 -80.50000 0.0000000E+00 + -75.50000 -80.50000 0.0000000E+00 + -74.50000 -80.50000 0.0000000E+00 + -73.50000 -80.50000 0.0000000E+00 + -72.50000 -80.50000 0.0000000E+00 + -71.50000 -80.50000 0.0000000E+00 + -70.50000 -80.50000 0.0000000E+00 + -69.50000 -80.50000 0.0000000E+00 + -68.50000 -80.50000 0.0000000E+00 + -67.50000 -80.50000 0.0000000E+00 + -66.50000 -80.50000 0.0000000E+00 + -65.50000 -80.50000 0.0000000E+00 + -64.50000 -80.50000 0.0000000E+00 + -63.50000 -80.50000 0.0000000E+00 + -62.50000 -80.50000 0.0000000E+00 + -61.50000 -80.50000 0.0000000E+00 + -60.50000 -80.50000 0.0000000E+00 + -59.50000 -80.50000 0.0000000E+00 + -58.50000 -80.50000 0.0000000E+00 + -57.50000 -80.50000 0.0000000E+00 + -56.50000 -80.50000 0.0000000E+00 + -55.50000 -80.50000 0.0000000E+00 + -54.50000 -80.50000 0.0000000E+00 + -53.50000 -80.50000 0.0000000E+00 + -52.50000 -80.50000 0.0000000E+00 + -51.50000 -80.50000 0.0000000E+00 + -50.50000 -80.50000 0.0000000E+00 + -49.50000 -80.50000 0.0000000E+00 + -48.50000 -80.50000 0.0000000E+00 + -47.50000 -80.50000 0.0000000E+00 + -46.50000 -80.50000 0.0000000E+00 + -45.50000 -80.50000 0.0000000E+00 + -44.50000 -80.50000 0.0000000E+00 + -43.50000 -80.50000 0.0000000E+00 + -42.50000 -80.50000 0.0000000E+00 + -41.50000 -80.50000 0.0000000E+00 + -40.50000 -80.50000 0.0000000E+00 + -39.50000 -80.50000 0.0000000E+00 + -38.50000 -80.50000 0.0000000E+00 + -37.50000 -80.50000 0.0000000E+00 + -36.50000 -80.50000 0.0000000E+00 + -35.50000 -80.50000 0.0000000E+00 + -34.50000 -80.50000 0.0000000E+00 + -33.50000 -80.50000 0.0000000E+00 + -32.50000 -80.50000 0.0000000E+00 + -31.50000 -80.50000 0.0000000E+00 + -30.50000 -80.50000 0.0000000E+00 + -29.50000 -80.50000 0.0000000E+00 + -28.50000 -80.50000 0.0000000E+00 + -27.50000 -80.50000 0.0000000E+00 + -26.50000 -80.50000 0.0000000E+00 + -25.50000 -80.50000 0.0000000E+00 + -24.50000 -80.50000 0.0000000E+00 + -23.50000 -80.50000 0.0000000E+00 + -22.50000 -80.50000 0.0000000E+00 + -21.50000 -80.50000 0.0000000E+00 + -20.50000 -80.50000 0.0000000E+00 + -19.50000 -80.50000 0.0000000E+00 + -18.50000 -80.50000 0.0000000E+00 + -17.50000 -80.50000 0.0000000E+00 + -16.50000 -80.50000 0.0000000E+00 + -15.50000 -80.50000 0.0000000E+00 + -14.50000 -80.50000 0.0000000E+00 + -13.50000 -80.50000 0.0000000E+00 + -12.50000 -80.50000 0.0000000E+00 + -11.50000 -80.50000 0.0000000E+00 + -10.50000 -80.50000 0.0000000E+00 + -9.500000 -80.50000 0.0000000E+00 + -8.500000 -80.50000 0.0000000E+00 + -7.500000 -80.50000 0.0000000E+00 + -6.500000 -80.50000 0.0000000E+00 + -5.500000 -80.50000 0.0000000E+00 + -4.500000 -80.50000 0.0000000E+00 + -3.500000 -80.50000 0.0000000E+00 + -2.500000 -80.50000 0.0000000E+00 + -1.500000 -80.50000 0.0000000E+00 + -0.5000000 -80.50000 0.0000000E+00 + 0.5000000 -80.50000 0.0000000E+00 + 1.500000 -80.50000 0.0000000E+00 + 2.500000 -80.50000 0.0000000E+00 + 3.500000 -80.50000 0.0000000E+00 + 4.500000 -80.50000 0.0000000E+00 + 5.500000 -80.50000 0.0000000E+00 + 6.500000 -80.50000 0.0000000E+00 + 7.500000 -80.50000 0.0000000E+00 + 8.500000 -80.50000 0.0000000E+00 + 9.500000 -80.50000 0.0000000E+00 + 10.50000 -80.50000 0.0000000E+00 + 11.50000 -80.50000 0.0000000E+00 + 12.50000 -80.50000 0.0000000E+00 + 13.50000 -80.50000 0.0000000E+00 + 14.50000 -80.50000 0.0000000E+00 + 15.50000 -80.50000 0.0000000E+00 + 16.50000 -80.50000 0.0000000E+00 + 17.50000 -80.50000 0.0000000E+00 + 18.50000 -80.50000 0.0000000E+00 + 19.50000 -80.50000 0.0000000E+00 + 20.50000 -80.50000 0.0000000E+00 + 21.50000 -80.50000 0.0000000E+00 + 22.50000 -80.50000 0.0000000E+00 + 23.50000 -80.50000 0.0000000E+00 + 24.50000 -80.50000 0.0000000E+00 + 25.50000 -80.50000 0.0000000E+00 + 26.50000 -80.50000 0.0000000E+00 + 27.50000 -80.50000 0.0000000E+00 + 28.50000 -80.50000 0.0000000E+00 + 29.50000 -80.50000 0.0000000E+00 + 30.50000 -80.50000 0.0000000E+00 + 31.50000 -80.50000 0.0000000E+00 + 32.50000 -80.50000 0.0000000E+00 + 33.50000 -80.50000 0.0000000E+00 + 34.50000 -80.50000 0.0000000E+00 + 35.50000 -80.50000 0.0000000E+00 + 36.50000 -80.50000 0.0000000E+00 + 37.50000 -80.50000 0.0000000E+00 + 38.50000 -80.50000 0.0000000E+00 + 39.50000 -80.50000 0.0000000E+00 + 40.50000 -80.50000 0.0000000E+00 + 41.50000 -80.50000 0.0000000E+00 + 42.50000 -80.50000 0.0000000E+00 + 43.50000 -80.50000 0.0000000E+00 + 44.50000 -80.50000 0.0000000E+00 + 45.50000 -80.50000 0.0000000E+00 + 46.50000 -80.50000 0.0000000E+00 + 47.50000 -80.50000 0.0000000E+00 + 48.50000 -80.50000 0.0000000E+00 + 49.50000 -80.50000 0.0000000E+00 + 50.50000 -80.50000 0.0000000E+00 + 51.50000 -80.50000 0.0000000E+00 + 52.50000 -80.50000 0.0000000E+00 + 53.50000 -80.50000 0.0000000E+00 + 54.50000 -80.50000 0.0000000E+00 + 55.50000 -80.50000 0.0000000E+00 + 56.50000 -80.50000 0.0000000E+00 + 57.50000 -80.50000 0.0000000E+00 + 58.50000 -80.50000 0.0000000E+00 + 59.50000 -80.50000 0.0000000E+00 + 60.50000 -80.50000 0.0000000E+00 + 61.50000 -80.50000 0.0000000E+00 + 62.50000 -80.50000 0.0000000E+00 + 63.50000 -80.50000 0.0000000E+00 + 64.50000 -80.50000 0.0000000E+00 + 65.50000 -80.50000 0.0000000E+00 + 66.50000 -80.50000 0.0000000E+00 + 67.50000 -80.50000 0.0000000E+00 + 68.50000 -80.50000 0.0000000E+00 + 69.50000 -80.50000 0.0000000E+00 + 70.50000 -80.50000 0.0000000E+00 + 71.50000 -80.50000 0.0000000E+00 + 72.50000 -80.50000 0.0000000E+00 + 73.50000 -80.50000 0.0000000E+00 + 74.50000 -80.50000 0.0000000E+00 + 75.50000 -80.50000 0.0000000E+00 + 76.50000 -80.50000 0.0000000E+00 + 77.50000 -80.50000 0.0000000E+00 + 78.50000 -80.50000 0.0000000E+00 + 79.50000 -80.50000 0.0000000E+00 + 80.50000 -80.50000 0.0000000E+00 + 81.50000 -80.50000 0.0000000E+00 + 82.50000 -80.50000 0.0000000E+00 + 83.50000 -80.50000 0.0000000E+00 + 84.50000 -80.50000 0.0000000E+00 + 85.50000 -80.50000 0.0000000E+00 + 86.50000 -80.50000 0.0000000E+00 + 87.50000 -80.50000 0.0000000E+00 + 88.50000 -80.50000 0.0000000E+00 + 89.50000 -80.50000 0.0000000E+00 + -89.50000 -79.50000 0.0000000E+00 + -88.50000 -79.50000 0.0000000E+00 + -87.50000 -79.50000 0.0000000E+00 + -86.50000 -79.50000 0.0000000E+00 + -85.50000 -79.50000 0.0000000E+00 + -84.50000 -79.50000 0.0000000E+00 + -83.50000 -79.50000 0.0000000E+00 + -82.50000 -79.50000 0.0000000E+00 + -81.50000 -79.50000 0.0000000E+00 + -80.50000 -79.50000 0.0000000E+00 + -79.50000 -79.50000 0.0000000E+00 + -78.50000 -79.50000 0.0000000E+00 + -77.50000 -79.50000 0.0000000E+00 + -76.50000 -79.50000 0.0000000E+00 + -75.50000 -79.50000 0.0000000E+00 + -74.50000 -79.50000 0.0000000E+00 + -73.50000 -79.50000 0.0000000E+00 + -72.50000 -79.50000 0.0000000E+00 + -71.50000 -79.50000 0.0000000E+00 + -70.50000 -79.50000 0.0000000E+00 + -69.50000 -79.50000 0.0000000E+00 + -68.50000 -79.50000 0.0000000E+00 + -67.50000 -79.50000 0.0000000E+00 + -66.50000 -79.50000 0.0000000E+00 + -65.50000 -79.50000 0.0000000E+00 + -64.50000 -79.50000 0.0000000E+00 + -63.50000 -79.50000 0.0000000E+00 + -62.50000 -79.50000 0.0000000E+00 + -61.50000 -79.50000 0.0000000E+00 + -60.50000 -79.50000 0.0000000E+00 + -59.50000 -79.50000 0.0000000E+00 + -58.50000 -79.50000 0.0000000E+00 + -57.50000 -79.50000 0.0000000E+00 + -56.50000 -79.50000 0.0000000E+00 + -55.50000 -79.50000 0.0000000E+00 + -54.50000 -79.50000 0.0000000E+00 + -53.50000 -79.50000 0.0000000E+00 + -52.50000 -79.50000 0.0000000E+00 + -51.50000 -79.50000 0.0000000E+00 + -50.50000 -79.50000 0.0000000E+00 + -49.50000 -79.50000 0.0000000E+00 + -48.50000 -79.50000 0.0000000E+00 + -47.50000 -79.50000 0.0000000E+00 + -46.50000 -79.50000 0.0000000E+00 + -45.50000 -79.50000 0.0000000E+00 + -44.50000 -79.50000 0.0000000E+00 + -43.50000 -79.50000 0.0000000E+00 + -42.50000 -79.50000 0.0000000E+00 + -41.50000 -79.50000 0.0000000E+00 + -40.50000 -79.50000 0.0000000E+00 + -39.50000 -79.50000 0.0000000E+00 + -38.50000 -79.50000 0.0000000E+00 + -37.50000 -79.50000 0.0000000E+00 + -36.50000 -79.50000 0.0000000E+00 + -35.50000 -79.50000 0.0000000E+00 + -34.50000 -79.50000 0.0000000E+00 + -33.50000 -79.50000 0.0000000E+00 + -32.50000 -79.50000 0.0000000E+00 + -31.50000 -79.50000 0.0000000E+00 + -30.50000 -79.50000 0.0000000E+00 + -29.50000 -79.50000 0.0000000E+00 + -28.50000 -79.50000 0.0000000E+00 + -27.50000 -79.50000 0.0000000E+00 + -26.50000 -79.50000 0.0000000E+00 + -25.50000 -79.50000 0.0000000E+00 + -24.50000 -79.50000 0.0000000E+00 + -23.50000 -79.50000 0.0000000E+00 + -22.50000 -79.50000 0.0000000E+00 + -21.50000 -79.50000 0.0000000E+00 + -20.50000 -79.50000 0.0000000E+00 + -19.50000 -79.50000 0.0000000E+00 + -18.50000 -79.50000 0.0000000E+00 + -17.50000 -79.50000 0.0000000E+00 + -16.50000 -79.50000 0.0000000E+00 + -15.50000 -79.50000 0.0000000E+00 + -14.50000 -79.50000 0.0000000E+00 + -13.50000 -79.50000 0.0000000E+00 + -12.50000 -79.50000 0.0000000E+00 + -11.50000 -79.50000 0.0000000E+00 + -10.50000 -79.50000 0.0000000E+00 + -9.500000 -79.50000 0.0000000E+00 + -8.500000 -79.50000 0.0000000E+00 + -7.500000 -79.50000 4.7093831E-02 + -6.500000 -79.50000 0.0000000E+00 + -5.500000 -79.50000 0.0000000E+00 + -4.500000 -79.50000 0.0000000E+00 + -3.500000 -79.50000 0.0000000E+00 + -2.500000 -79.50000 0.0000000E+00 + -1.500000 -79.50000 0.0000000E+00 + -0.5000000 -79.50000 0.0000000E+00 + 0.5000000 -79.50000 0.0000000E+00 + 1.500000 -79.50000 0.0000000E+00 + 2.500000 -79.50000 0.0000000E+00 + 3.500000 -79.50000 0.0000000E+00 + 4.500000 -79.50000 0.0000000E+00 + 5.500000 -79.50000 0.0000000E+00 + 6.500000 -79.50000 0.0000000E+00 + 7.500000 -79.50000 0.0000000E+00 + 8.500000 -79.50000 0.0000000E+00 + 9.500000 -79.50000 0.0000000E+00 + 10.50000 -79.50000 0.0000000E+00 + 11.50000 -79.50000 0.0000000E+00 + 12.50000 -79.50000 0.0000000E+00 + 13.50000 -79.50000 0.0000000E+00 + 14.50000 -79.50000 0.0000000E+00 + 15.50000 -79.50000 0.0000000E+00 + 16.50000 -79.50000 0.0000000E+00 + 17.50000 -79.50000 0.0000000E+00 + 18.50000 -79.50000 0.0000000E+00 + 19.50000 -79.50000 0.0000000E+00 + 20.50000 -79.50000 0.0000000E+00 + 21.50000 -79.50000 0.0000000E+00 + 22.50000 -79.50000 0.0000000E+00 + 23.50000 -79.50000 0.0000000E+00 + 24.50000 -79.50000 0.0000000E+00 + 25.50000 -79.50000 0.0000000E+00 + 26.50000 -79.50000 0.0000000E+00 + 27.50000 -79.50000 0.0000000E+00 + 28.50000 -79.50000 0.0000000E+00 + 29.50000 -79.50000 0.0000000E+00 + 30.50000 -79.50000 0.0000000E+00 + 31.50000 -79.50000 0.0000000E+00 + 32.50000 -79.50000 0.0000000E+00 + 33.50000 -79.50000 0.0000000E+00 + 34.50000 -79.50000 0.0000000E+00 + 35.50000 -79.50000 0.0000000E+00 + 36.50000 -79.50000 0.0000000E+00 + 37.50000 -79.50000 0.0000000E+00 + 38.50000 -79.50000 0.0000000E+00 + 39.50000 -79.50000 0.0000000E+00 + 40.50000 -79.50000 0.0000000E+00 + 41.50000 -79.50000 0.0000000E+00 + 42.50000 -79.50000 0.0000000E+00 + 43.50000 -79.50000 0.0000000E+00 + 44.50000 -79.50000 0.0000000E+00 + 45.50000 -79.50000 0.0000000E+00 + 46.50000 -79.50000 0.0000000E+00 + 47.50000 -79.50000 0.0000000E+00 + 48.50000 -79.50000 0.0000000E+00 + 49.50000 -79.50000 0.0000000E+00 + 50.50000 -79.50000 0.0000000E+00 + 51.50000 -79.50000 0.0000000E+00 + 52.50000 -79.50000 0.0000000E+00 + 53.50000 -79.50000 0.0000000E+00 + 54.50000 -79.50000 0.0000000E+00 + 55.50000 -79.50000 0.0000000E+00 + 56.50000 -79.50000 0.0000000E+00 + 57.50000 -79.50000 0.0000000E+00 + 58.50000 -79.50000 0.0000000E+00 + 59.50000 -79.50000 0.0000000E+00 + 60.50000 -79.50000 0.0000000E+00 + 61.50000 -79.50000 0.0000000E+00 + 62.50000 -79.50000 0.0000000E+00 + 63.50000 -79.50000 0.0000000E+00 + 64.50000 -79.50000 0.0000000E+00 + 65.50000 -79.50000 0.0000000E+00 + 66.50000 -79.50000 0.0000000E+00 + 67.50000 -79.50000 0.0000000E+00 + 68.50000 -79.50000 0.0000000E+00 + 69.50000 -79.50000 0.0000000E+00 + 70.50000 -79.50000 0.0000000E+00 + 71.50000 -79.50000 0.0000000E+00 + 72.50000 -79.50000 0.0000000E+00 + 73.50000 -79.50000 0.0000000E+00 + 74.50000 -79.50000 0.0000000E+00 + 75.50000 -79.50000 0.0000000E+00 + 76.50000 -79.50000 0.0000000E+00 + 77.50000 -79.50000 0.0000000E+00 + 78.50000 -79.50000 0.0000000E+00 + 79.50000 -79.50000 0.0000000E+00 + 80.50000 -79.50000 0.0000000E+00 + 81.50000 -79.50000 0.0000000E+00 + 82.50000 -79.50000 0.0000000E+00 + 83.50000 -79.50000 0.0000000E+00 + 84.50000 -79.50000 0.0000000E+00 + 85.50000 -79.50000 0.0000000E+00 + 86.50000 -79.50000 0.0000000E+00 + 87.50000 -79.50000 0.0000000E+00 + 88.50000 -79.50000 0.0000000E+00 + 89.50000 -79.50000 0.0000000E+00 + -89.50000 -78.50000 0.0000000E+00 + -88.50000 -78.50000 0.0000000E+00 + -87.50000 -78.50000 0.0000000E+00 + -86.50000 -78.50000 0.0000000E+00 + -85.50000 -78.50000 0.0000000E+00 + -84.50000 -78.50000 0.0000000E+00 + -83.50000 -78.50000 0.0000000E+00 + -82.50000 -78.50000 0.0000000E+00 + -81.50000 -78.50000 0.0000000E+00 + -80.50000 -78.50000 0.0000000E+00 + -79.50000 -78.50000 0.0000000E+00 + -78.50000 -78.50000 0.0000000E+00 + -77.50000 -78.50000 0.0000000E+00 + -76.50000 -78.50000 0.0000000E+00 + -75.50000 -78.50000 0.0000000E+00 + -74.50000 -78.50000 0.0000000E+00 + -73.50000 -78.50000 0.0000000E+00 + -72.50000 -78.50000 0.0000000E+00 + -71.50000 -78.50000 0.0000000E+00 + -70.50000 -78.50000 0.0000000E+00 + -69.50000 -78.50000 0.0000000E+00 + -68.50000 -78.50000 0.0000000E+00 + -67.50000 -78.50000 0.0000000E+00 + -66.50000 -78.50000 0.0000000E+00 + -65.50000 -78.50000 0.0000000E+00 + -64.50000 -78.50000 0.0000000E+00 + -63.50000 -78.50000 0.0000000E+00 + -62.50000 -78.50000 0.0000000E+00 + -61.50000 -78.50000 0.0000000E+00 + -60.50000 -78.50000 0.0000000E+00 + -59.50000 -78.50000 0.0000000E+00 + -58.50000 -78.50000 0.0000000E+00 + -57.50000 -78.50000 0.0000000E+00 + -56.50000 -78.50000 0.0000000E+00 + -55.50000 -78.50000 0.0000000E+00 + -54.50000 -78.50000 0.0000000E+00 + -53.50000 -78.50000 0.0000000E+00 + -52.50000 -78.50000 0.0000000E+00 + -51.50000 -78.50000 0.0000000E+00 + -50.50000 -78.50000 0.0000000E+00 + -49.50000 -78.50000 0.0000000E+00 + -48.50000 -78.50000 0.0000000E+00 + -47.50000 -78.50000 0.0000000E+00 + -46.50000 -78.50000 0.0000000E+00 + -45.50000 -78.50000 0.0000000E+00 + -44.50000 -78.50000 0.0000000E+00 + -43.50000 -78.50000 0.0000000E+00 + -42.50000 -78.50000 0.0000000E+00 + -41.50000 -78.50000 0.0000000E+00 + -40.50000 -78.50000 0.0000000E+00 + -39.50000 -78.50000 0.0000000E+00 + -38.50000 -78.50000 0.0000000E+00 + -37.50000 -78.50000 0.0000000E+00 + -36.50000 -78.50000 0.0000000E+00 + -35.50000 -78.50000 0.0000000E+00 + -34.50000 -78.50000 0.0000000E+00 + -33.50000 -78.50000 0.0000000E+00 + -32.50000 -78.50000 0.0000000E+00 + -31.50000 -78.50000 0.0000000E+00 + -30.50000 -78.50000 0.0000000E+00 + -29.50000 -78.50000 0.0000000E+00 + -28.50000 -78.50000 0.0000000E+00 + -27.50000 -78.50000 0.0000000E+00 + -26.50000 -78.50000 0.0000000E+00 + -25.50000 -78.50000 0.0000000E+00 + -24.50000 -78.50000 0.0000000E+00 + -23.50000 -78.50000 0.0000000E+00 + -22.50000 -78.50000 0.0000000E+00 + -21.50000 -78.50000 0.0000000E+00 + -20.50000 -78.50000 0.0000000E+00 + -19.50000 -78.50000 0.0000000E+00 + -18.50000 -78.50000 0.0000000E+00 + -17.50000 -78.50000 0.0000000E+00 + -16.50000 -78.50000 0.0000000E+00 + -15.50000 -78.50000 0.0000000E+00 + -14.50000 -78.50000 0.0000000E+00 + -13.50000 -78.50000 0.0000000E+00 + -12.50000 -78.50000 0.0000000E+00 + -11.50000 -78.50000 0.0000000E+00 + -10.50000 -78.50000 0.0000000E+00 + -9.500000 -78.50000 0.1605319 + -8.500000 -78.50000 0.0000000E+00 + -7.500000 -78.50000 2.9607832E-03 + -6.500000 -78.50000 0.0000000E+00 + -5.500000 -78.50000 0.0000000E+00 + -4.500000 -78.50000 0.0000000E+00 + -3.500000 -78.50000 0.0000000E+00 + -2.500000 -78.50000 0.0000000E+00 + -1.500000 -78.50000 0.0000000E+00 + -0.5000000 -78.50000 0.0000000E+00 + 0.5000000 -78.50000 0.0000000E+00 + 1.500000 -78.50000 0.0000000E+00 + 2.500000 -78.50000 0.0000000E+00 + 3.500000 -78.50000 0.0000000E+00 + 4.500000 -78.50000 0.0000000E+00 + 5.500000 -78.50000 0.0000000E+00 + 6.500000 -78.50000 0.0000000E+00 + 7.500000 -78.50000 0.0000000E+00 + 8.500000 -78.50000 0.0000000E+00 + 9.500000 -78.50000 0.0000000E+00 + 10.50000 -78.50000 0.0000000E+00 + 11.50000 -78.50000 0.0000000E+00 + 12.50000 -78.50000 0.0000000E+00 + 13.50000 -78.50000 0.0000000E+00 + 14.50000 -78.50000 0.0000000E+00 + 15.50000 -78.50000 0.0000000E+00 + 16.50000 -78.50000 0.0000000E+00 + 17.50000 -78.50000 0.0000000E+00 + 18.50000 -78.50000 0.0000000E+00 + 19.50000 -78.50000 0.0000000E+00 + 20.50000 -78.50000 0.0000000E+00 + 21.50000 -78.50000 0.0000000E+00 + 22.50000 -78.50000 0.0000000E+00 + 23.50000 -78.50000 0.0000000E+00 + 24.50000 -78.50000 0.0000000E+00 + 25.50000 -78.50000 0.0000000E+00 + 26.50000 -78.50000 0.0000000E+00 + 27.50000 -78.50000 0.0000000E+00 + 28.50000 -78.50000 0.0000000E+00 + 29.50000 -78.50000 0.0000000E+00 + 30.50000 -78.50000 0.0000000E+00 + 31.50000 -78.50000 0.0000000E+00 + 32.50000 -78.50000 0.0000000E+00 + 33.50000 -78.50000 0.0000000E+00 + 34.50000 -78.50000 0.0000000E+00 + 35.50000 -78.50000 0.0000000E+00 + 36.50000 -78.50000 0.0000000E+00 + 37.50000 -78.50000 0.0000000E+00 + 38.50000 -78.50000 0.0000000E+00 + 39.50000 -78.50000 0.0000000E+00 + 40.50000 -78.50000 0.0000000E+00 + 41.50000 -78.50000 0.0000000E+00 + 42.50000 -78.50000 0.0000000E+00 + 43.50000 -78.50000 0.0000000E+00 + 44.50000 -78.50000 0.0000000E+00 + 45.50000 -78.50000 0.0000000E+00 + 46.50000 -78.50000 0.0000000E+00 + 47.50000 -78.50000 0.0000000E+00 + 48.50000 -78.50000 0.0000000E+00 + 49.50000 -78.50000 0.0000000E+00 + 50.50000 -78.50000 0.0000000E+00 + 51.50000 -78.50000 0.0000000E+00 + 52.50000 -78.50000 0.0000000E+00 + 53.50000 -78.50000 0.0000000E+00 + 54.50000 -78.50000 0.0000000E+00 + 55.50000 -78.50000 0.0000000E+00 + 56.50000 -78.50000 0.0000000E+00 + 57.50000 -78.50000 0.0000000E+00 + 58.50000 -78.50000 0.0000000E+00 + 59.50000 -78.50000 0.0000000E+00 + 60.50000 -78.50000 0.0000000E+00 + 61.50000 -78.50000 0.0000000E+00 + 62.50000 -78.50000 0.0000000E+00 + 63.50000 -78.50000 0.0000000E+00 + 64.50000 -78.50000 0.0000000E+00 + 65.50000 -78.50000 0.0000000E+00 + 66.50000 -78.50000 0.0000000E+00 + 67.50000 -78.50000 0.0000000E+00 + 68.50000 -78.50000 0.0000000E+00 + 69.50000 -78.50000 0.0000000E+00 + 70.50000 -78.50000 0.0000000E+00 + 71.50000 -78.50000 0.0000000E+00 + 72.50000 -78.50000 0.0000000E+00 + 73.50000 -78.50000 0.0000000E+00 + 74.50000 -78.50000 0.0000000E+00 + 75.50000 -78.50000 0.0000000E+00 + 76.50000 -78.50000 0.0000000E+00 + 77.50000 -78.50000 0.0000000E+00 + 78.50000 -78.50000 0.0000000E+00 + 79.50000 -78.50000 0.0000000E+00 + 80.50000 -78.50000 0.0000000E+00 + 81.50000 -78.50000 0.0000000E+00 + 82.50000 -78.50000 0.0000000E+00 + 83.50000 -78.50000 0.0000000E+00 + 84.50000 -78.50000 0.0000000E+00 + 85.50000 -78.50000 0.0000000E+00 + 86.50000 -78.50000 0.0000000E+00 + 87.50000 -78.50000 0.0000000E+00 + 88.50000 -78.50000 0.0000000E+00 + 89.50000 -78.50000 0.0000000E+00 + -89.50000 -77.50000 0.0000000E+00 + -88.50000 -77.50000 0.0000000E+00 + -87.50000 -77.50000 0.0000000E+00 + -86.50000 -77.50000 0.0000000E+00 + -85.50000 -77.50000 0.0000000E+00 + -84.50000 -77.50000 0.0000000E+00 + -83.50000 -77.50000 0.0000000E+00 + -82.50000 -77.50000 0.0000000E+00 + -81.50000 -77.50000 0.0000000E+00 + -80.50000 -77.50000 0.0000000E+00 + -79.50000 -77.50000 0.0000000E+00 + -78.50000 -77.50000 0.0000000E+00 + -77.50000 -77.50000 0.0000000E+00 + -76.50000 -77.50000 0.0000000E+00 + -75.50000 -77.50000 0.0000000E+00 + -74.50000 -77.50000 0.0000000E+00 + -73.50000 -77.50000 0.0000000E+00 + -72.50000 -77.50000 0.0000000E+00 + -71.50000 -77.50000 0.0000000E+00 + -70.50000 -77.50000 0.0000000E+00 + -69.50000 -77.50000 0.0000000E+00 + -68.50000 -77.50000 0.0000000E+00 + -67.50000 -77.50000 0.0000000E+00 + -66.50000 -77.50000 0.0000000E+00 + -65.50000 -77.50000 0.0000000E+00 + -64.50000 -77.50000 0.0000000E+00 + -63.50000 -77.50000 0.0000000E+00 + -62.50000 -77.50000 0.0000000E+00 + -61.50000 -77.50000 0.0000000E+00 + -60.50000 -77.50000 0.0000000E+00 + -59.50000 -77.50000 0.0000000E+00 + -58.50000 -77.50000 0.0000000E+00 + -57.50000 -77.50000 0.0000000E+00 + -56.50000 -77.50000 0.0000000E+00 + -55.50000 -77.50000 0.0000000E+00 + -54.50000 -77.50000 0.0000000E+00 + -53.50000 -77.50000 0.0000000E+00 + -52.50000 -77.50000 0.0000000E+00 + -51.50000 -77.50000 0.0000000E+00 + -50.50000 -77.50000 0.0000000E+00 + -49.50000 -77.50000 0.0000000E+00 + -48.50000 -77.50000 0.0000000E+00 + -47.50000 -77.50000 0.0000000E+00 + -46.50000 -77.50000 0.0000000E+00 + -45.50000 -77.50000 0.0000000E+00 + -44.50000 -77.50000 0.0000000E+00 + -43.50000 -77.50000 0.0000000E+00 + -42.50000 -77.50000 0.0000000E+00 + -41.50000 -77.50000 0.0000000E+00 + -40.50000 -77.50000 0.0000000E+00 + -39.50000 -77.50000 0.0000000E+00 + -38.50000 -77.50000 0.0000000E+00 + -37.50000 -77.50000 0.0000000E+00 + -36.50000 -77.50000 0.0000000E+00 + -35.50000 -77.50000 0.0000000E+00 + -34.50000 -77.50000 0.0000000E+00 + -33.50000 -77.50000 0.0000000E+00 + -32.50000 -77.50000 0.0000000E+00 + -31.50000 -77.50000 0.0000000E+00 + -30.50000 -77.50000 0.0000000E+00 + -29.50000 -77.50000 0.0000000E+00 + -28.50000 -77.50000 0.0000000E+00 + -27.50000 -77.50000 0.0000000E+00 + -26.50000 -77.50000 0.0000000E+00 + -25.50000 -77.50000 0.0000000E+00 + -24.50000 -77.50000 0.0000000E+00 + -23.50000 -77.50000 0.0000000E+00 + -22.50000 -77.50000 0.0000000E+00 + -21.50000 -77.50000 0.0000000E+00 + -20.50000 -77.50000 0.0000000E+00 + -19.50000 -77.50000 0.0000000E+00 + -18.50000 -77.50000 0.0000000E+00 + -17.50000 -77.50000 0.0000000E+00 + -16.50000 -77.50000 0.0000000E+00 + -15.50000 -77.50000 0.0000000E+00 + -14.50000 -77.50000 0.0000000E+00 + -13.50000 -77.50000 0.0000000E+00 + -12.50000 -77.50000 0.0000000E+00 + -11.50000 -77.50000 0.1956687 + -10.50000 -77.50000 0.0000000E+00 + -9.500000 -77.50000 0.0000000E+00 + -8.500000 -77.50000 0.0000000E+00 + -7.500000 -77.50000 0.0000000E+00 + -6.500000 -77.50000 0.0000000E+00 + -5.500000 -77.50000 0.0000000E+00 + -4.500000 -77.50000 0.0000000E+00 + -3.500000 -77.50000 0.0000000E+00 + -2.500000 -77.50000 0.0000000E+00 + -1.500000 -77.50000 0.0000000E+00 + -0.5000000 -77.50000 0.0000000E+00 + 0.5000000 -77.50000 0.0000000E+00 + 1.500000 -77.50000 0.0000000E+00 + 2.500000 -77.50000 0.0000000E+00 + 3.500000 -77.50000 0.0000000E+00 + 4.500000 -77.50000 0.0000000E+00 + 5.500000 -77.50000 0.0000000E+00 + 6.500000 -77.50000 0.0000000E+00 + 7.500000 -77.50000 0.0000000E+00 + 8.500000 -77.50000 0.0000000E+00 + 9.500000 -77.50000 0.0000000E+00 + 10.50000 -77.50000 0.0000000E+00 + 11.50000 -77.50000 0.0000000E+00 + 12.50000 -77.50000 0.0000000E+00 + 13.50000 -77.50000 0.0000000E+00 + 14.50000 -77.50000 0.0000000E+00 + 15.50000 -77.50000 0.0000000E+00 + 16.50000 -77.50000 0.0000000E+00 + 17.50000 -77.50000 0.0000000E+00 + 18.50000 -77.50000 0.0000000E+00 + 19.50000 -77.50000 0.0000000E+00 + 20.50000 -77.50000 0.0000000E+00 + 21.50000 -77.50000 0.0000000E+00 + 22.50000 -77.50000 0.0000000E+00 + 23.50000 -77.50000 0.0000000E+00 + 24.50000 -77.50000 0.0000000E+00 + 25.50000 -77.50000 0.0000000E+00 + 26.50000 -77.50000 0.0000000E+00 + 27.50000 -77.50000 0.0000000E+00 + 28.50000 -77.50000 0.0000000E+00 + 29.50000 -77.50000 0.0000000E+00 + 30.50000 -77.50000 0.0000000E+00 + 31.50000 -77.50000 0.0000000E+00 + 32.50000 -77.50000 0.0000000E+00 + 33.50000 -77.50000 0.0000000E+00 + 34.50000 -77.50000 0.0000000E+00 + 35.50000 -77.50000 0.0000000E+00 + 36.50000 -77.50000 0.0000000E+00 + 37.50000 -77.50000 0.0000000E+00 + 38.50000 -77.50000 0.0000000E+00 + 39.50000 -77.50000 0.0000000E+00 + 40.50000 -77.50000 0.0000000E+00 + 41.50000 -77.50000 0.0000000E+00 + 42.50000 -77.50000 0.0000000E+00 + 43.50000 -77.50000 0.0000000E+00 + 44.50000 -77.50000 0.0000000E+00 + 45.50000 -77.50000 0.0000000E+00 + 46.50000 -77.50000 0.0000000E+00 + 47.50000 -77.50000 0.0000000E+00 + 48.50000 -77.50000 0.0000000E+00 + 49.50000 -77.50000 0.0000000E+00 + 50.50000 -77.50000 0.0000000E+00 + 51.50000 -77.50000 0.0000000E+00 + 52.50000 -77.50000 0.0000000E+00 + 53.50000 -77.50000 0.0000000E+00 + 54.50000 -77.50000 0.0000000E+00 + 55.50000 -77.50000 0.0000000E+00 + 56.50000 -77.50000 0.0000000E+00 + 57.50000 -77.50000 0.0000000E+00 + 58.50000 -77.50000 0.0000000E+00 + 59.50000 -77.50000 0.0000000E+00 + 60.50000 -77.50000 0.0000000E+00 + 61.50000 -77.50000 0.0000000E+00 + 62.50000 -77.50000 0.0000000E+00 + 63.50000 -77.50000 0.0000000E+00 + 64.50000 -77.50000 0.0000000E+00 + 65.50000 -77.50000 0.0000000E+00 + 66.50000 -77.50000 0.0000000E+00 + 67.50000 -77.50000 0.0000000E+00 + 68.50000 -77.50000 0.0000000E+00 + 69.50000 -77.50000 0.0000000E+00 + 70.50000 -77.50000 0.0000000E+00 + 71.50000 -77.50000 0.0000000E+00 + 72.50000 -77.50000 0.0000000E+00 + 73.50000 -77.50000 0.0000000E+00 + 74.50000 -77.50000 0.0000000E+00 + 75.50000 -77.50000 0.0000000E+00 + 76.50000 -77.50000 0.0000000E+00 + 77.50000 -77.50000 0.0000000E+00 + 78.50000 -77.50000 0.0000000E+00 + 79.50000 -77.50000 0.0000000E+00 + 80.50000 -77.50000 0.0000000E+00 + 81.50000 -77.50000 0.0000000E+00 + 82.50000 -77.50000 0.0000000E+00 + 83.50000 -77.50000 0.0000000E+00 + 84.50000 -77.50000 0.0000000E+00 + 85.50000 -77.50000 0.0000000E+00 + 86.50000 -77.50000 0.0000000E+00 + 87.50000 -77.50000 0.0000000E+00 + 88.50000 -77.50000 0.0000000E+00 + 89.50000 -77.50000 0.0000000E+00 + -89.50000 -76.50000 0.0000000E+00 + -88.50000 -76.50000 0.0000000E+00 + -87.50000 -76.50000 0.0000000E+00 + -86.50000 -76.50000 0.0000000E+00 + -85.50000 -76.50000 0.0000000E+00 + -84.50000 -76.50000 0.0000000E+00 + -83.50000 -76.50000 0.0000000E+00 + -82.50000 -76.50000 0.0000000E+00 + -81.50000 -76.50000 0.0000000E+00 + -80.50000 -76.50000 0.0000000E+00 + -79.50000 -76.50000 0.0000000E+00 + -78.50000 -76.50000 0.0000000E+00 + -77.50000 -76.50000 0.0000000E+00 + -76.50000 -76.50000 0.0000000E+00 + -75.50000 -76.50000 0.0000000E+00 + -74.50000 -76.50000 0.0000000E+00 + -73.50000 -76.50000 0.0000000E+00 + -72.50000 -76.50000 0.0000000E+00 + -71.50000 -76.50000 0.0000000E+00 + -70.50000 -76.50000 0.0000000E+00 + -69.50000 -76.50000 0.0000000E+00 + -68.50000 -76.50000 0.0000000E+00 + -67.50000 -76.50000 0.0000000E+00 + -66.50000 -76.50000 0.0000000E+00 + -65.50000 -76.50000 0.0000000E+00 + -64.50000 -76.50000 0.0000000E+00 + -63.50000 -76.50000 0.0000000E+00 + -62.50000 -76.50000 0.0000000E+00 + -61.50000 -76.50000 0.0000000E+00 + -60.50000 -76.50000 0.0000000E+00 + -59.50000 -76.50000 0.0000000E+00 + -58.50000 -76.50000 0.0000000E+00 + -57.50000 -76.50000 0.0000000E+00 + -56.50000 -76.50000 0.0000000E+00 + -55.50000 -76.50000 0.0000000E+00 + -54.50000 -76.50000 0.0000000E+00 + -53.50000 -76.50000 0.0000000E+00 + -52.50000 -76.50000 0.0000000E+00 + -51.50000 -76.50000 0.0000000E+00 + -50.50000 -76.50000 0.0000000E+00 + -49.50000 -76.50000 0.0000000E+00 + -48.50000 -76.50000 0.0000000E+00 + -47.50000 -76.50000 0.0000000E+00 + -46.50000 -76.50000 0.0000000E+00 + -45.50000 -76.50000 0.0000000E+00 + -44.50000 -76.50000 0.0000000E+00 + -43.50000 -76.50000 0.0000000E+00 + -42.50000 -76.50000 0.0000000E+00 + -41.50000 -76.50000 0.0000000E+00 + -40.50000 -76.50000 0.0000000E+00 + -39.50000 -76.50000 0.0000000E+00 + -38.50000 -76.50000 0.0000000E+00 + -37.50000 -76.50000 0.0000000E+00 + -36.50000 -76.50000 0.0000000E+00 + -35.50000 -76.50000 0.0000000E+00 + -34.50000 -76.50000 0.0000000E+00 + -33.50000 -76.50000 0.0000000E+00 + -32.50000 -76.50000 0.0000000E+00 + -31.50000 -76.50000 0.0000000E+00 + -30.50000 -76.50000 0.0000000E+00 + -29.50000 -76.50000 0.0000000E+00 + -28.50000 -76.50000 0.0000000E+00 + -27.50000 -76.50000 0.0000000E+00 + -26.50000 -76.50000 0.0000000E+00 + -25.50000 -76.50000 0.0000000E+00 + -24.50000 -76.50000 0.0000000E+00 + -23.50000 -76.50000 0.0000000E+00 + -22.50000 -76.50000 0.0000000E+00 + -21.50000 -76.50000 0.0000000E+00 + -20.50000 -76.50000 0.0000000E+00 + -19.50000 -76.50000 0.0000000E+00 + -18.50000 -76.50000 0.0000000E+00 + -17.50000 -76.50000 0.0000000E+00 + -16.50000 -76.50000 0.0000000E+00 + -15.50000 -76.50000 0.0000000E+00 + -14.50000 -76.50000 0.0000000E+00 + -13.50000 -76.50000 0.0000000E+00 + -12.50000 -76.50000 3.6456823E-02 + -11.50000 -76.50000 0.0000000E+00 + -10.50000 -76.50000 0.0000000E+00 + -9.500000 -76.50000 0.0000000E+00 + -8.500000 -76.50000 0.0000000E+00 + -7.500000 -76.50000 0.0000000E+00 + -6.500000 -76.50000 0.0000000E+00 + -5.500000 -76.50000 0.0000000E+00 + -4.500000 -76.50000 0.0000000E+00 + -3.500000 -76.50000 0.0000000E+00 + -2.500000 -76.50000 0.0000000E+00 + -1.500000 -76.50000 0.0000000E+00 + -0.5000000 -76.50000 0.0000000E+00 + 0.5000000 -76.50000 0.0000000E+00 + 1.500000 -76.50000 0.0000000E+00 + 2.500000 -76.50000 0.0000000E+00 + 3.500000 -76.50000 0.0000000E+00 + 4.500000 -76.50000 0.0000000E+00 + 5.500000 -76.50000 0.0000000E+00 + 6.500000 -76.50000 0.0000000E+00 + 7.500000 -76.50000 0.0000000E+00 + 8.500000 -76.50000 0.0000000E+00 + 9.500000 -76.50000 0.0000000E+00 + 10.50000 -76.50000 0.0000000E+00 + 11.50000 -76.50000 0.0000000E+00 + 12.50000 -76.50000 0.0000000E+00 + 13.50000 -76.50000 0.0000000E+00 + 14.50000 -76.50000 0.0000000E+00 + 15.50000 -76.50000 0.0000000E+00 + 16.50000 -76.50000 0.0000000E+00 + 17.50000 -76.50000 0.0000000E+00 + 18.50000 -76.50000 0.0000000E+00 + 19.50000 -76.50000 0.0000000E+00 + 20.50000 -76.50000 0.0000000E+00 + 21.50000 -76.50000 0.0000000E+00 + 22.50000 -76.50000 0.0000000E+00 + 23.50000 -76.50000 0.0000000E+00 + 24.50000 -76.50000 0.0000000E+00 + 25.50000 -76.50000 0.0000000E+00 + 26.50000 -76.50000 0.0000000E+00 + 27.50000 -76.50000 0.0000000E+00 + 28.50000 -76.50000 0.0000000E+00 + 29.50000 -76.50000 0.0000000E+00 + 30.50000 -76.50000 0.0000000E+00 + 31.50000 -76.50000 0.0000000E+00 + 32.50000 -76.50000 0.0000000E+00 + 33.50000 -76.50000 0.0000000E+00 + 34.50000 -76.50000 0.0000000E+00 + 35.50000 -76.50000 0.0000000E+00 + 36.50000 -76.50000 0.0000000E+00 + 37.50000 -76.50000 0.0000000E+00 + 38.50000 -76.50000 0.0000000E+00 + 39.50000 -76.50000 0.0000000E+00 + 40.50000 -76.50000 0.0000000E+00 + 41.50000 -76.50000 0.0000000E+00 + 42.50000 -76.50000 0.0000000E+00 + 43.50000 -76.50000 0.0000000E+00 + 44.50000 -76.50000 0.0000000E+00 + 45.50000 -76.50000 0.0000000E+00 + 46.50000 -76.50000 0.0000000E+00 + 47.50000 -76.50000 0.0000000E+00 + 48.50000 -76.50000 0.0000000E+00 + 49.50000 -76.50000 0.0000000E+00 + 50.50000 -76.50000 0.0000000E+00 + 51.50000 -76.50000 0.0000000E+00 + 52.50000 -76.50000 0.0000000E+00 + 53.50000 -76.50000 0.0000000E+00 + 54.50000 -76.50000 0.0000000E+00 + 55.50000 -76.50000 0.0000000E+00 + 56.50000 -76.50000 0.0000000E+00 + 57.50000 -76.50000 0.0000000E+00 + 58.50000 -76.50000 0.0000000E+00 + 59.50000 -76.50000 0.0000000E+00 + 60.50000 -76.50000 0.0000000E+00 + 61.50000 -76.50000 0.0000000E+00 + 62.50000 -76.50000 0.0000000E+00 + 63.50000 -76.50000 0.0000000E+00 + 64.50000 -76.50000 0.0000000E+00 + 65.50000 -76.50000 0.0000000E+00 + 66.50000 -76.50000 0.0000000E+00 + 67.50000 -76.50000 0.0000000E+00 + 68.50000 -76.50000 0.0000000E+00 + 69.50000 -76.50000 0.0000000E+00 + 70.50000 -76.50000 0.0000000E+00 + 71.50000 -76.50000 0.0000000E+00 + 72.50000 -76.50000 0.0000000E+00 + 73.50000 -76.50000 0.0000000E+00 + 74.50000 -76.50000 0.0000000E+00 + 75.50000 -76.50000 0.0000000E+00 + 76.50000 -76.50000 0.0000000E+00 + 77.50000 -76.50000 0.0000000E+00 + 78.50000 -76.50000 0.0000000E+00 + 79.50000 -76.50000 0.0000000E+00 + 80.50000 -76.50000 0.0000000E+00 + 81.50000 -76.50000 0.0000000E+00 + 82.50000 -76.50000 0.0000000E+00 + 83.50000 -76.50000 0.0000000E+00 + 84.50000 -76.50000 0.0000000E+00 + 85.50000 -76.50000 0.0000000E+00 + 86.50000 -76.50000 0.0000000E+00 + 87.50000 -76.50000 0.0000000E+00 + 88.50000 -76.50000 0.0000000E+00 + 89.50000 -76.50000 0.0000000E+00 + -89.50000 -75.50000 0.0000000E+00 + -88.50000 -75.50000 0.0000000E+00 + -87.50000 -75.50000 0.0000000E+00 + -86.50000 -75.50000 0.0000000E+00 + -85.50000 -75.50000 0.0000000E+00 + -84.50000 -75.50000 0.0000000E+00 + -83.50000 -75.50000 0.0000000E+00 + -82.50000 -75.50000 0.0000000E+00 + -81.50000 -75.50000 0.0000000E+00 + -80.50000 -75.50000 0.0000000E+00 + -79.50000 -75.50000 0.0000000E+00 + -78.50000 -75.50000 0.0000000E+00 + -77.50000 -75.50000 0.0000000E+00 + -76.50000 -75.50000 0.0000000E+00 + -75.50000 -75.50000 0.0000000E+00 + -74.50000 -75.50000 0.0000000E+00 + -73.50000 -75.50000 0.0000000E+00 + -72.50000 -75.50000 0.0000000E+00 + -71.50000 -75.50000 0.0000000E+00 + -70.50000 -75.50000 0.0000000E+00 + -69.50000 -75.50000 0.0000000E+00 + -68.50000 -75.50000 0.0000000E+00 + -67.50000 -75.50000 0.0000000E+00 + -66.50000 -75.50000 0.0000000E+00 + -65.50000 -75.50000 0.0000000E+00 + -64.50000 -75.50000 0.0000000E+00 + -63.50000 -75.50000 0.0000000E+00 + -62.50000 -75.50000 0.0000000E+00 + -61.50000 -75.50000 0.0000000E+00 + -60.50000 -75.50000 0.0000000E+00 + -59.50000 -75.50000 0.0000000E+00 + -58.50000 -75.50000 0.0000000E+00 + -57.50000 -75.50000 0.0000000E+00 + -56.50000 -75.50000 0.0000000E+00 + -55.50000 -75.50000 0.0000000E+00 + -54.50000 -75.50000 0.0000000E+00 + -53.50000 -75.50000 0.0000000E+00 + -52.50000 -75.50000 0.0000000E+00 + -51.50000 -75.50000 0.0000000E+00 + -50.50000 -75.50000 0.0000000E+00 + -49.50000 -75.50000 0.0000000E+00 + -48.50000 -75.50000 0.0000000E+00 + -47.50000 -75.50000 0.0000000E+00 + -46.50000 -75.50000 0.0000000E+00 + -45.50000 -75.50000 0.0000000E+00 + -44.50000 -75.50000 0.0000000E+00 + -43.50000 -75.50000 0.0000000E+00 + -42.50000 -75.50000 0.0000000E+00 + -41.50000 -75.50000 0.0000000E+00 + -40.50000 -75.50000 0.0000000E+00 + -39.50000 -75.50000 0.0000000E+00 + -38.50000 -75.50000 0.0000000E+00 + -37.50000 -75.50000 0.0000000E+00 + -36.50000 -75.50000 0.0000000E+00 + -35.50000 -75.50000 0.0000000E+00 + -34.50000 -75.50000 0.0000000E+00 + -33.50000 -75.50000 0.0000000E+00 + -32.50000 -75.50000 0.0000000E+00 + -31.50000 -75.50000 0.0000000E+00 + -30.50000 -75.50000 0.0000000E+00 + -29.50000 -75.50000 0.0000000E+00 + -28.50000 -75.50000 0.0000000E+00 + -27.50000 -75.50000 0.0000000E+00 + -26.50000 -75.50000 0.0000000E+00 + -25.50000 -75.50000 0.0000000E+00 + -24.50000 -75.50000 0.0000000E+00 + -23.50000 -75.50000 0.0000000E+00 + -22.50000 -75.50000 0.0000000E+00 + -21.50000 -75.50000 0.0000000E+00 + -20.50000 -75.50000 0.0000000E+00 + -19.50000 -75.50000 0.0000000E+00 + -18.50000 -75.50000 0.0000000E+00 + -17.50000 -75.50000 0.0000000E+00 + -16.50000 -75.50000 0.0000000E+00 + -15.50000 -75.50000 0.0000000E+00 + -14.50000 -75.50000 9.6664175E-02 + -13.50000 -75.50000 9.1193058E-03 + -12.50000 -75.50000 0.0000000E+00 + -11.50000 -75.50000 0.0000000E+00 + -10.50000 -75.50000 0.0000000E+00 + -9.500000 -75.50000 0.0000000E+00 + -8.500000 -75.50000 0.0000000E+00 + -7.500000 -75.50000 0.0000000E+00 + -6.500000 -75.50000 0.0000000E+00 + -5.500000 -75.50000 0.0000000E+00 + -4.500000 -75.50000 0.0000000E+00 + -3.500000 -75.50000 0.0000000E+00 + -2.500000 -75.50000 0.0000000E+00 + -1.500000 -75.50000 0.0000000E+00 + -0.5000000 -75.50000 0.0000000E+00 + 0.5000000 -75.50000 0.0000000E+00 + 1.500000 -75.50000 0.0000000E+00 + 2.500000 -75.50000 0.0000000E+00 + 3.500000 -75.50000 0.0000000E+00 + 4.500000 -75.50000 0.0000000E+00 + 5.500000 -75.50000 0.0000000E+00 + 6.500000 -75.50000 0.0000000E+00 + 7.500000 -75.50000 0.0000000E+00 + 8.500000 -75.50000 0.0000000E+00 + 9.500000 -75.50000 0.0000000E+00 + 10.50000 -75.50000 0.0000000E+00 + 11.50000 -75.50000 0.0000000E+00 + 12.50000 -75.50000 0.0000000E+00 + 13.50000 -75.50000 0.0000000E+00 + 14.50000 -75.50000 0.0000000E+00 + 15.50000 -75.50000 0.0000000E+00 + 16.50000 -75.50000 0.0000000E+00 + 17.50000 -75.50000 0.0000000E+00 + 18.50000 -75.50000 0.0000000E+00 + 19.50000 -75.50000 0.0000000E+00 + 20.50000 -75.50000 0.0000000E+00 + 21.50000 -75.50000 0.0000000E+00 + 22.50000 -75.50000 0.0000000E+00 + 23.50000 -75.50000 0.0000000E+00 + 24.50000 -75.50000 0.0000000E+00 + 25.50000 -75.50000 0.0000000E+00 + 26.50000 -75.50000 0.0000000E+00 + 27.50000 -75.50000 0.0000000E+00 + 28.50000 -75.50000 0.0000000E+00 + 29.50000 -75.50000 0.0000000E+00 + 30.50000 -75.50000 0.0000000E+00 + 31.50000 -75.50000 0.0000000E+00 + 32.50000 -75.50000 0.0000000E+00 + 33.50000 -75.50000 0.0000000E+00 + 34.50000 -75.50000 0.0000000E+00 + 35.50000 -75.50000 0.0000000E+00 + 36.50000 -75.50000 0.0000000E+00 + 37.50000 -75.50000 0.0000000E+00 + 38.50000 -75.50000 0.0000000E+00 + 39.50000 -75.50000 0.0000000E+00 + 40.50000 -75.50000 0.0000000E+00 + 41.50000 -75.50000 0.0000000E+00 + 42.50000 -75.50000 0.0000000E+00 + 43.50000 -75.50000 0.0000000E+00 + 44.50000 -75.50000 0.0000000E+00 + 45.50000 -75.50000 0.0000000E+00 + 46.50000 -75.50000 0.0000000E+00 + 47.50000 -75.50000 0.0000000E+00 + 48.50000 -75.50000 0.0000000E+00 + 49.50000 -75.50000 0.0000000E+00 + 50.50000 -75.50000 0.0000000E+00 + 51.50000 -75.50000 0.0000000E+00 + 52.50000 -75.50000 0.0000000E+00 + 53.50000 -75.50000 0.0000000E+00 + 54.50000 -75.50000 0.0000000E+00 + 55.50000 -75.50000 0.0000000E+00 + 56.50000 -75.50000 0.0000000E+00 + 57.50000 -75.50000 0.0000000E+00 + 58.50000 -75.50000 0.0000000E+00 + 59.50000 -75.50000 0.0000000E+00 + 60.50000 -75.50000 0.0000000E+00 + 61.50000 -75.50000 0.0000000E+00 + 62.50000 -75.50000 0.0000000E+00 + 63.50000 -75.50000 0.0000000E+00 + 64.50000 -75.50000 0.0000000E+00 + 65.50000 -75.50000 0.0000000E+00 + 66.50000 -75.50000 0.0000000E+00 + 67.50000 -75.50000 0.0000000E+00 + 68.50000 -75.50000 0.0000000E+00 + 69.50000 -75.50000 0.0000000E+00 + 70.50000 -75.50000 0.0000000E+00 + 71.50000 -75.50000 0.0000000E+00 + 72.50000 -75.50000 0.0000000E+00 + 73.50000 -75.50000 0.0000000E+00 + 74.50000 -75.50000 0.0000000E+00 + 75.50000 -75.50000 0.0000000E+00 + 76.50000 -75.50000 0.0000000E+00 + 77.50000 -75.50000 0.0000000E+00 + 78.50000 -75.50000 0.0000000E+00 + 79.50000 -75.50000 0.0000000E+00 + 80.50000 -75.50000 0.0000000E+00 + 81.50000 -75.50000 0.0000000E+00 + 82.50000 -75.50000 0.0000000E+00 + 83.50000 -75.50000 0.0000000E+00 + 84.50000 -75.50000 0.0000000E+00 + 85.50000 -75.50000 0.0000000E+00 + 86.50000 -75.50000 0.0000000E+00 + 87.50000 -75.50000 0.0000000E+00 + 88.50000 -75.50000 0.0000000E+00 + 89.50000 -75.50000 0.0000000E+00 + -89.50000 -74.50000 0.0000000E+00 + -88.50000 -74.50000 0.0000000E+00 + -87.50000 -74.50000 0.0000000E+00 + -86.50000 -74.50000 0.0000000E+00 + -85.50000 -74.50000 0.0000000E+00 + -84.50000 -74.50000 0.0000000E+00 + -83.50000 -74.50000 0.0000000E+00 + -82.50000 -74.50000 0.0000000E+00 + -81.50000 -74.50000 0.0000000E+00 + -80.50000 -74.50000 0.0000000E+00 + -79.50000 -74.50000 0.0000000E+00 + -78.50000 -74.50000 0.0000000E+00 + -77.50000 -74.50000 0.0000000E+00 + -76.50000 -74.50000 0.0000000E+00 + -75.50000 -74.50000 0.0000000E+00 + -74.50000 -74.50000 0.0000000E+00 + -73.50000 -74.50000 0.0000000E+00 + -72.50000 -74.50000 0.0000000E+00 + -71.50000 -74.50000 0.0000000E+00 + -70.50000 -74.50000 0.0000000E+00 + -69.50000 -74.50000 0.0000000E+00 + -68.50000 -74.50000 0.0000000E+00 + -67.50000 -74.50000 0.0000000E+00 + -66.50000 -74.50000 0.0000000E+00 + -65.50000 -74.50000 0.0000000E+00 + -64.50000 -74.50000 0.0000000E+00 + -63.50000 -74.50000 0.0000000E+00 + -62.50000 -74.50000 0.0000000E+00 + -61.50000 -74.50000 0.0000000E+00 + -60.50000 -74.50000 0.0000000E+00 + -59.50000 -74.50000 0.0000000E+00 + -58.50000 -74.50000 0.0000000E+00 + -57.50000 -74.50000 0.0000000E+00 + -56.50000 -74.50000 0.0000000E+00 + -55.50000 -74.50000 0.0000000E+00 + -54.50000 -74.50000 0.0000000E+00 + -53.50000 -74.50000 0.0000000E+00 + -52.50000 -74.50000 0.0000000E+00 + -51.50000 -74.50000 0.0000000E+00 + -50.50000 -74.50000 0.0000000E+00 + -49.50000 -74.50000 0.0000000E+00 + -48.50000 -74.50000 0.0000000E+00 + -47.50000 -74.50000 0.0000000E+00 + -46.50000 -74.50000 0.0000000E+00 + -45.50000 -74.50000 0.0000000E+00 + -44.50000 -74.50000 0.0000000E+00 + -43.50000 -74.50000 0.0000000E+00 + -42.50000 -74.50000 0.0000000E+00 + -41.50000 -74.50000 0.0000000E+00 + -40.50000 -74.50000 0.0000000E+00 + -39.50000 -74.50000 0.0000000E+00 + -38.50000 -74.50000 0.0000000E+00 + -37.50000 -74.50000 0.0000000E+00 + -36.50000 -74.50000 0.0000000E+00 + -35.50000 -74.50000 0.0000000E+00 + -34.50000 -74.50000 0.0000000E+00 + -33.50000 -74.50000 0.0000000E+00 + -32.50000 -74.50000 0.0000000E+00 + -31.50000 -74.50000 0.0000000E+00 + -30.50000 -74.50000 0.0000000E+00 + -29.50000 -74.50000 0.0000000E+00 + -28.50000 -74.50000 0.0000000E+00 + -27.50000 -74.50000 0.0000000E+00 + -26.50000 -74.50000 0.0000000E+00 + -25.50000 -74.50000 0.0000000E+00 + -24.50000 -74.50000 0.0000000E+00 + -23.50000 -74.50000 0.0000000E+00 + -22.50000 -74.50000 0.0000000E+00 + -21.50000 -74.50000 0.0000000E+00 + -20.50000 -74.50000 0.0000000E+00 + -19.50000 -74.50000 0.0000000E+00 + -18.50000 -74.50000 0.0000000E+00 + -17.50000 -74.50000 0.0000000E+00 + -16.50000 -74.50000 0.0000000E+00 + -15.50000 -74.50000 0.1566212 + -14.50000 -74.50000 0.0000000E+00 + -13.50000 -74.50000 3.2562762E-04 + -12.50000 -74.50000 0.0000000E+00 + -11.50000 -74.50000 0.0000000E+00 + -10.50000 -74.50000 0.0000000E+00 + -9.500000 -74.50000 0.0000000E+00 + -8.500000 -74.50000 0.0000000E+00 + -7.500000 -74.50000 0.0000000E+00 + -6.500000 -74.50000 0.0000000E+00 + -5.500000 -74.50000 0.0000000E+00 + -4.500000 -74.50000 0.0000000E+00 + -3.500000 -74.50000 0.0000000E+00 + -2.500000 -74.50000 0.0000000E+00 + -1.500000 -74.50000 0.0000000E+00 + -0.5000000 -74.50000 0.0000000E+00 + 0.5000000 -74.50000 0.0000000E+00 + 1.500000 -74.50000 0.0000000E+00 + 2.500000 -74.50000 0.0000000E+00 + 3.500000 -74.50000 0.0000000E+00 + 4.500000 -74.50000 0.0000000E+00 + 5.500000 -74.50000 0.0000000E+00 + 6.500000 -74.50000 0.0000000E+00 + 7.500000 -74.50000 0.0000000E+00 + 8.500000 -74.50000 0.0000000E+00 + 9.500000 -74.50000 0.0000000E+00 + 10.50000 -74.50000 0.0000000E+00 + 11.50000 -74.50000 0.0000000E+00 + 12.50000 -74.50000 0.0000000E+00 + 13.50000 -74.50000 0.0000000E+00 + 14.50000 -74.50000 0.0000000E+00 + 15.50000 -74.50000 0.0000000E+00 + 16.50000 -74.50000 0.0000000E+00 + 17.50000 -74.50000 0.0000000E+00 + 18.50000 -74.50000 0.0000000E+00 + 19.50000 -74.50000 0.0000000E+00 + 20.50000 -74.50000 0.0000000E+00 + 21.50000 -74.50000 0.0000000E+00 + 22.50000 -74.50000 0.0000000E+00 + 23.50000 -74.50000 0.0000000E+00 + 24.50000 -74.50000 0.0000000E+00 + 25.50000 -74.50000 0.0000000E+00 + 26.50000 -74.50000 0.0000000E+00 + 27.50000 -74.50000 0.0000000E+00 + 28.50000 -74.50000 0.0000000E+00 + 29.50000 -74.50000 0.0000000E+00 + 30.50000 -74.50000 0.0000000E+00 + 31.50000 -74.50000 0.0000000E+00 + 32.50000 -74.50000 0.0000000E+00 + 33.50000 -74.50000 0.0000000E+00 + 34.50000 -74.50000 0.0000000E+00 + 35.50000 -74.50000 0.0000000E+00 + 36.50000 -74.50000 0.0000000E+00 + 37.50000 -74.50000 0.0000000E+00 + 38.50000 -74.50000 0.0000000E+00 + 39.50000 -74.50000 0.0000000E+00 + 40.50000 -74.50000 0.0000000E+00 + 41.50000 -74.50000 0.0000000E+00 + 42.50000 -74.50000 0.0000000E+00 + 43.50000 -74.50000 0.0000000E+00 + 44.50000 -74.50000 0.0000000E+00 + 45.50000 -74.50000 0.0000000E+00 + 46.50000 -74.50000 0.0000000E+00 + 47.50000 -74.50000 0.0000000E+00 + 48.50000 -74.50000 0.0000000E+00 + 49.50000 -74.50000 0.0000000E+00 + 50.50000 -74.50000 0.0000000E+00 + 51.50000 -74.50000 0.0000000E+00 + 52.50000 -74.50000 0.0000000E+00 + 53.50000 -74.50000 0.0000000E+00 + 54.50000 -74.50000 0.0000000E+00 + 55.50000 -74.50000 0.0000000E+00 + 56.50000 -74.50000 0.0000000E+00 + 57.50000 -74.50000 0.0000000E+00 + 58.50000 -74.50000 0.0000000E+00 + 59.50000 -74.50000 0.0000000E+00 + 60.50000 -74.50000 0.0000000E+00 + 61.50000 -74.50000 0.0000000E+00 + 62.50000 -74.50000 0.0000000E+00 + 63.50000 -74.50000 0.0000000E+00 + 64.50000 -74.50000 0.0000000E+00 + 65.50000 -74.50000 0.0000000E+00 + 66.50000 -74.50000 0.0000000E+00 + 67.50000 -74.50000 0.0000000E+00 + 68.50000 -74.50000 0.0000000E+00 + 69.50000 -74.50000 0.0000000E+00 + 70.50000 -74.50000 0.0000000E+00 + 71.50000 -74.50000 0.0000000E+00 + 72.50000 -74.50000 0.0000000E+00 + 73.50000 -74.50000 0.0000000E+00 + 74.50000 -74.50000 0.0000000E+00 + 75.50000 -74.50000 0.0000000E+00 + 76.50000 -74.50000 0.0000000E+00 + 77.50000 -74.50000 0.0000000E+00 + 78.50000 -74.50000 0.0000000E+00 + 79.50000 -74.50000 0.0000000E+00 + 80.50000 -74.50000 0.0000000E+00 + 81.50000 -74.50000 0.0000000E+00 + 82.50000 -74.50000 0.0000000E+00 + 83.50000 -74.50000 0.0000000E+00 + 84.50000 -74.50000 0.0000000E+00 + 85.50000 -74.50000 0.0000000E+00 + 86.50000 -74.50000 0.0000000E+00 + 87.50000 -74.50000 0.0000000E+00 + 88.50000 -74.50000 0.0000000E+00 + 89.50000 -74.50000 0.0000000E+00 + -89.50000 -73.50000 0.0000000E+00 + -88.50000 -73.50000 0.0000000E+00 + -87.50000 -73.50000 0.0000000E+00 + -86.50000 -73.50000 0.0000000E+00 + -85.50000 -73.50000 0.0000000E+00 + -84.50000 -73.50000 0.0000000E+00 + -83.50000 -73.50000 0.0000000E+00 + -82.50000 -73.50000 0.0000000E+00 + -81.50000 -73.50000 0.0000000E+00 + -80.50000 -73.50000 0.0000000E+00 + -79.50000 -73.50000 0.0000000E+00 + -78.50000 -73.50000 0.0000000E+00 + -77.50000 -73.50000 0.0000000E+00 + -76.50000 -73.50000 0.0000000E+00 + -75.50000 -73.50000 0.0000000E+00 + -74.50000 -73.50000 0.0000000E+00 + -73.50000 -73.50000 0.0000000E+00 + -72.50000 -73.50000 0.0000000E+00 + -71.50000 -73.50000 0.0000000E+00 + -70.50000 -73.50000 0.0000000E+00 + -69.50000 -73.50000 0.0000000E+00 + -68.50000 -73.50000 0.0000000E+00 + -67.50000 -73.50000 0.0000000E+00 + -66.50000 -73.50000 0.0000000E+00 + -65.50000 -73.50000 0.0000000E+00 + -64.50000 -73.50000 0.0000000E+00 + -63.50000 -73.50000 0.0000000E+00 + -62.50000 -73.50000 0.0000000E+00 + -61.50000 -73.50000 0.0000000E+00 + -60.50000 -73.50000 0.0000000E+00 + -59.50000 -73.50000 0.0000000E+00 + -58.50000 -73.50000 0.0000000E+00 + -57.50000 -73.50000 0.0000000E+00 + -56.50000 -73.50000 0.0000000E+00 + -55.50000 -73.50000 0.0000000E+00 + -54.50000 -73.50000 0.0000000E+00 + -53.50000 -73.50000 0.0000000E+00 + -52.50000 -73.50000 0.0000000E+00 + -51.50000 -73.50000 0.0000000E+00 + -50.50000 -73.50000 0.0000000E+00 + -49.50000 -73.50000 4.3092659E-06 + -48.50000 -73.50000 0.0000000E+00 + -47.50000 -73.50000 0.0000000E+00 + -46.50000 -73.50000 0.0000000E+00 + -45.50000 -73.50000 0.0000000E+00 + -44.50000 -73.50000 0.0000000E+00 + -43.50000 -73.50000 0.0000000E+00 + -42.50000 -73.50000 0.0000000E+00 + -41.50000 -73.50000 0.0000000E+00 + -40.50000 -73.50000 0.0000000E+00 + -39.50000 -73.50000 0.0000000E+00 + -38.50000 -73.50000 0.0000000E+00 + -37.50000 -73.50000 0.0000000E+00 + -36.50000 -73.50000 0.0000000E+00 + -35.50000 -73.50000 0.0000000E+00 + -34.50000 -73.50000 0.0000000E+00 + -33.50000 -73.50000 0.0000000E+00 + -32.50000 -73.50000 0.0000000E+00 + -31.50000 -73.50000 0.0000000E+00 + -30.50000 -73.50000 0.0000000E+00 + -29.50000 -73.50000 0.0000000E+00 + -28.50000 -73.50000 0.0000000E+00 + -27.50000 -73.50000 0.0000000E+00 + -26.50000 -73.50000 0.0000000E+00 + -25.50000 -73.50000 0.0000000E+00 + -24.50000 -73.50000 0.0000000E+00 + -23.50000 -73.50000 0.0000000E+00 + -22.50000 -73.50000 0.0000000E+00 + -21.50000 -73.50000 0.0000000E+00 + -20.50000 -73.50000 0.0000000E+00 + -19.50000 -73.50000 0.0000000E+00 + -18.50000 -73.50000 0.0000000E+00 + -17.50000 -73.50000 0.0000000E+00 + -16.50000 -73.50000 0.0000000E+00 + -15.50000 -73.50000 5.4896208E-03 + -14.50000 -73.50000 1.3150835E-05 + -13.50000 -73.50000 0.0000000E+00 + -12.50000 -73.50000 0.0000000E+00 + -11.50000 -73.50000 0.0000000E+00 + -10.50000 -73.50000 0.0000000E+00 + -9.500000 -73.50000 0.0000000E+00 + -8.500000 -73.50000 0.0000000E+00 + -7.500000 -73.50000 0.0000000E+00 + -6.500000 -73.50000 0.0000000E+00 + -5.500000 -73.50000 0.0000000E+00 + -4.500000 -73.50000 0.0000000E+00 + -3.500000 -73.50000 0.0000000E+00 + -2.500000 -73.50000 0.0000000E+00 + -1.500000 -73.50000 0.0000000E+00 + -0.5000000 -73.50000 0.0000000E+00 + 0.5000000 -73.50000 0.0000000E+00 + 1.500000 -73.50000 0.0000000E+00 + 2.500000 -73.50000 0.0000000E+00 + 3.500000 -73.50000 0.0000000E+00 + 4.500000 -73.50000 0.0000000E+00 + 5.500000 -73.50000 0.0000000E+00 + 6.500000 -73.50000 0.0000000E+00 + 7.500000 -73.50000 0.0000000E+00 + 8.500000 -73.50000 0.0000000E+00 + 9.500000 -73.50000 0.0000000E+00 + 10.50000 -73.50000 0.0000000E+00 + 11.50000 -73.50000 0.0000000E+00 + 12.50000 -73.50000 0.0000000E+00 + 13.50000 -73.50000 0.0000000E+00 + 14.50000 -73.50000 0.0000000E+00 + 15.50000 -73.50000 0.0000000E+00 + 16.50000 -73.50000 0.0000000E+00 + 17.50000 -73.50000 0.0000000E+00 + 18.50000 -73.50000 0.0000000E+00 + 19.50000 -73.50000 0.0000000E+00 + 20.50000 -73.50000 0.0000000E+00 + 21.50000 -73.50000 0.0000000E+00 + 22.50000 -73.50000 0.0000000E+00 + 23.50000 -73.50000 0.0000000E+00 + 24.50000 -73.50000 0.0000000E+00 + 25.50000 -73.50000 0.0000000E+00 + 26.50000 -73.50000 0.0000000E+00 + 27.50000 -73.50000 0.0000000E+00 + 28.50000 -73.50000 0.0000000E+00 + 29.50000 -73.50000 0.0000000E+00 + 30.50000 -73.50000 0.0000000E+00 + 31.50000 -73.50000 0.0000000E+00 + 32.50000 -73.50000 0.0000000E+00 + 33.50000 -73.50000 0.0000000E+00 + 34.50000 -73.50000 0.0000000E+00 + 35.50000 -73.50000 0.0000000E+00 + 36.50000 -73.50000 0.0000000E+00 + 37.50000 -73.50000 0.0000000E+00 + 38.50000 -73.50000 0.0000000E+00 + 39.50000 -73.50000 0.0000000E+00 + 40.50000 -73.50000 0.0000000E+00 + 41.50000 -73.50000 0.0000000E+00 + 42.50000 -73.50000 0.0000000E+00 + 43.50000 -73.50000 0.0000000E+00 + 44.50000 -73.50000 0.0000000E+00 + 45.50000 -73.50000 0.0000000E+00 + 46.50000 -73.50000 0.0000000E+00 + 47.50000 -73.50000 0.0000000E+00 + 48.50000 -73.50000 0.0000000E+00 + 49.50000 -73.50000 0.0000000E+00 + 50.50000 -73.50000 0.0000000E+00 + 51.50000 -73.50000 0.0000000E+00 + 52.50000 -73.50000 0.0000000E+00 + 53.50000 -73.50000 0.0000000E+00 + 54.50000 -73.50000 0.0000000E+00 + 55.50000 -73.50000 0.0000000E+00 + 56.50000 -73.50000 0.0000000E+00 + 57.50000 -73.50000 0.0000000E+00 + 58.50000 -73.50000 0.0000000E+00 + 59.50000 -73.50000 0.0000000E+00 + 60.50000 -73.50000 0.0000000E+00 + 61.50000 -73.50000 0.0000000E+00 + 62.50000 -73.50000 0.0000000E+00 + 63.50000 -73.50000 0.0000000E+00 + 64.50000 -73.50000 0.0000000E+00 + 65.50000 -73.50000 0.0000000E+00 + 66.50000 -73.50000 0.0000000E+00 + 67.50000 -73.50000 0.0000000E+00 + 68.50000 -73.50000 0.0000000E+00 + 69.50000 -73.50000 0.0000000E+00 + 70.50000 -73.50000 0.0000000E+00 + 71.50000 -73.50000 0.0000000E+00 + 72.50000 -73.50000 0.0000000E+00 + 73.50000 -73.50000 0.0000000E+00 + 74.50000 -73.50000 0.0000000E+00 + 75.50000 -73.50000 0.0000000E+00 + 76.50000 -73.50000 0.0000000E+00 + 77.50000 -73.50000 0.0000000E+00 + 78.50000 -73.50000 0.0000000E+00 + 79.50000 -73.50000 0.0000000E+00 + 80.50000 -73.50000 0.0000000E+00 + 81.50000 -73.50000 0.0000000E+00 + 82.50000 -73.50000 0.0000000E+00 + 83.50000 -73.50000 0.0000000E+00 + 84.50000 -73.50000 0.0000000E+00 + 85.50000 -73.50000 0.0000000E+00 + 86.50000 -73.50000 0.0000000E+00 + 87.50000 -73.50000 0.0000000E+00 + 88.50000 -73.50000 0.0000000E+00 + 89.50000 -73.50000 0.0000000E+00 + -89.50000 -72.50000 0.0000000E+00 + -88.50000 -72.50000 0.0000000E+00 + -87.50000 -72.50000 0.0000000E+00 + -86.50000 -72.50000 0.0000000E+00 + -85.50000 -72.50000 0.0000000E+00 + -84.50000 -72.50000 0.0000000E+00 + -83.50000 -72.50000 0.0000000E+00 + -82.50000 -72.50000 0.0000000E+00 + -81.50000 -72.50000 0.0000000E+00 + -80.50000 -72.50000 0.0000000E+00 + -79.50000 -72.50000 0.0000000E+00 + -78.50000 -72.50000 0.0000000E+00 + -77.50000 -72.50000 0.0000000E+00 + -76.50000 -72.50000 0.0000000E+00 + -75.50000 -72.50000 0.0000000E+00 + -74.50000 -72.50000 0.0000000E+00 + -73.50000 -72.50000 0.0000000E+00 + -72.50000 -72.50000 0.0000000E+00 + -71.50000 -72.50000 0.0000000E+00 + -70.50000 -72.50000 0.0000000E+00 + -69.50000 -72.50000 0.0000000E+00 + -68.50000 -72.50000 0.0000000E+00 + -67.50000 -72.50000 0.0000000E+00 + -66.50000 -72.50000 0.0000000E+00 + -65.50000 -72.50000 0.0000000E+00 + -64.50000 -72.50000 0.0000000E+00 + -63.50000 -72.50000 0.0000000E+00 + -62.50000 -72.50000 0.0000000E+00 + -61.50000 -72.50000 0.0000000E+00 + -60.50000 -72.50000 0.0000000E+00 + -59.50000 -72.50000 0.0000000E+00 + -58.50000 -72.50000 0.0000000E+00 + -57.50000 -72.50000 0.0000000E+00 + -56.50000 -72.50000 0.0000000E+00 + -55.50000 -72.50000 0.0000000E+00 + -54.50000 -72.50000 0.0000000E+00 + -53.50000 -72.50000 0.0000000E+00 + -52.50000 -72.50000 0.0000000E+00 + -51.50000 -72.50000 0.0000000E+00 + -50.50000 -72.50000 0.0000000E+00 + -49.50000 -72.50000 0.0000000E+00 + -48.50000 -72.50000 0.0000000E+00 + -47.50000 -72.50000 0.0000000E+00 + -46.50000 -72.50000 0.0000000E+00 + -45.50000 -72.50000 0.0000000E+00 + -44.50000 -72.50000 0.0000000E+00 + -43.50000 -72.50000 0.0000000E+00 + -42.50000 -72.50000 0.0000000E+00 + -41.50000 -72.50000 0.0000000E+00 + -40.50000 -72.50000 0.0000000E+00 + -39.50000 -72.50000 0.0000000E+00 + -38.50000 -72.50000 0.0000000E+00 + -37.50000 -72.50000 0.0000000E+00 + -36.50000 -72.50000 0.0000000E+00 + -35.50000 -72.50000 0.0000000E+00 + -34.50000 -72.50000 0.0000000E+00 + -33.50000 -72.50000 0.0000000E+00 + -32.50000 -72.50000 0.0000000E+00 + -31.50000 -72.50000 0.0000000E+00 + -30.50000 -72.50000 0.0000000E+00 + -29.50000 -72.50000 0.0000000E+00 + -28.50000 -72.50000 0.0000000E+00 + -27.50000 -72.50000 0.0000000E+00 + -26.50000 -72.50000 0.0000000E+00 + -25.50000 -72.50000 0.0000000E+00 + -24.50000 -72.50000 0.0000000E+00 + -23.50000 -72.50000 0.0000000E+00 + -22.50000 -72.50000 0.0000000E+00 + -21.50000 -72.50000 0.0000000E+00 + -20.50000 -72.50000 0.0000000E+00 + -19.50000 -72.50000 0.0000000E+00 + -18.50000 -72.50000 0.0000000E+00 + -17.50000 -72.50000 0.0000000E+00 + -16.50000 -72.50000 0.1566212 + -15.50000 -72.50000 2.2591035E-05 + -14.50000 -72.50000 0.0000000E+00 + -13.50000 -72.50000 0.0000000E+00 + -12.50000 -72.50000 0.0000000E+00 + -11.50000 -72.50000 0.0000000E+00 + -10.50000 -72.50000 0.0000000E+00 + -9.500000 -72.50000 0.0000000E+00 + -8.500000 -72.50000 0.0000000E+00 + -7.500000 -72.50000 0.0000000E+00 + -6.500000 -72.50000 0.0000000E+00 + -5.500000 -72.50000 0.0000000E+00 + -4.500000 -72.50000 0.0000000E+00 + -3.500000 -72.50000 0.0000000E+00 + -2.500000 -72.50000 0.0000000E+00 + -1.500000 -72.50000 0.0000000E+00 + -0.5000000 -72.50000 0.0000000E+00 + 0.5000000 -72.50000 0.0000000E+00 + 1.500000 -72.50000 0.0000000E+00 + 2.500000 -72.50000 0.0000000E+00 + 3.500000 -72.50000 0.0000000E+00 + 4.500000 -72.50000 0.0000000E+00 + 5.500000 -72.50000 0.0000000E+00 + 6.500000 -72.50000 0.0000000E+00 + 7.500000 -72.50000 0.0000000E+00 + 8.500000 -72.50000 0.0000000E+00 + 9.500000 -72.50000 0.0000000E+00 + 10.50000 -72.50000 0.0000000E+00 + 11.50000 -72.50000 0.0000000E+00 + 12.50000 -72.50000 0.0000000E+00 + 13.50000 -72.50000 0.0000000E+00 + 14.50000 -72.50000 0.0000000E+00 + 15.50000 -72.50000 0.0000000E+00 + 16.50000 -72.50000 0.0000000E+00 + 17.50000 -72.50000 0.0000000E+00 + 18.50000 -72.50000 0.0000000E+00 + 19.50000 -72.50000 0.0000000E+00 + 20.50000 -72.50000 0.0000000E+00 + 21.50000 -72.50000 0.0000000E+00 + 22.50000 -72.50000 0.0000000E+00 + 23.50000 -72.50000 0.0000000E+00 + 24.50000 -72.50000 0.0000000E+00 + 25.50000 -72.50000 0.0000000E+00 + 26.50000 -72.50000 0.0000000E+00 + 27.50000 -72.50000 0.0000000E+00 + 28.50000 -72.50000 0.0000000E+00 + 29.50000 -72.50000 0.0000000E+00 + 30.50000 -72.50000 0.0000000E+00 + 31.50000 -72.50000 0.0000000E+00 + 32.50000 -72.50000 0.0000000E+00 + 33.50000 -72.50000 0.0000000E+00 + 34.50000 -72.50000 0.0000000E+00 + 35.50000 -72.50000 0.0000000E+00 + 36.50000 -72.50000 0.0000000E+00 + 37.50000 -72.50000 0.0000000E+00 + 38.50000 -72.50000 0.0000000E+00 + 39.50000 -72.50000 0.0000000E+00 + 40.50000 -72.50000 0.0000000E+00 + 41.50000 -72.50000 0.0000000E+00 + 42.50000 -72.50000 0.0000000E+00 + 43.50000 -72.50000 0.0000000E+00 + 44.50000 -72.50000 0.0000000E+00 + 45.50000 -72.50000 0.0000000E+00 + 46.50000 -72.50000 0.0000000E+00 + 47.50000 -72.50000 0.0000000E+00 + 48.50000 -72.50000 0.0000000E+00 + 49.50000 -72.50000 0.0000000E+00 + 50.50000 -72.50000 0.0000000E+00 + 51.50000 -72.50000 0.0000000E+00 + 52.50000 -72.50000 0.0000000E+00 + 53.50000 -72.50000 0.0000000E+00 + 54.50000 -72.50000 0.0000000E+00 + 55.50000 -72.50000 0.0000000E+00 + 56.50000 -72.50000 0.0000000E+00 + 57.50000 -72.50000 0.0000000E+00 + 58.50000 -72.50000 0.0000000E+00 + 59.50000 -72.50000 0.0000000E+00 + 60.50000 -72.50000 0.0000000E+00 + 61.50000 -72.50000 0.0000000E+00 + 62.50000 -72.50000 0.0000000E+00 + 63.50000 -72.50000 0.0000000E+00 + 64.50000 -72.50000 0.0000000E+00 + 65.50000 -72.50000 0.0000000E+00 + 66.50000 -72.50000 0.0000000E+00 + 67.50000 -72.50000 0.0000000E+00 + 68.50000 -72.50000 0.0000000E+00 + 69.50000 -72.50000 0.0000000E+00 + 70.50000 -72.50000 0.0000000E+00 + 71.50000 -72.50000 0.0000000E+00 + 72.50000 -72.50000 0.0000000E+00 + 73.50000 -72.50000 0.0000000E+00 + 74.50000 -72.50000 0.0000000E+00 + 75.50000 -72.50000 0.0000000E+00 + 76.50000 -72.50000 0.0000000E+00 + 77.50000 -72.50000 0.0000000E+00 + 78.50000 -72.50000 0.0000000E+00 + 79.50000 -72.50000 0.0000000E+00 + 80.50000 -72.50000 0.0000000E+00 + 81.50000 -72.50000 0.0000000E+00 + 82.50000 -72.50000 0.0000000E+00 + 83.50000 -72.50000 0.0000000E+00 + 84.50000 -72.50000 0.0000000E+00 + 85.50000 -72.50000 0.0000000E+00 + 86.50000 -72.50000 0.0000000E+00 + 87.50000 -72.50000 0.0000000E+00 + 88.50000 -72.50000 0.0000000E+00 + 89.50000 -72.50000 0.0000000E+00 + -89.50000 -71.50000 0.0000000E+00 + -88.50000 -71.50000 0.0000000E+00 + -87.50000 -71.50000 0.0000000E+00 + -86.50000 -71.50000 0.0000000E+00 + -85.50000 -71.50000 0.0000000E+00 + -84.50000 -71.50000 0.0000000E+00 + -83.50000 -71.50000 0.0000000E+00 + -82.50000 -71.50000 0.0000000E+00 + -81.50000 -71.50000 0.0000000E+00 + -80.50000 -71.50000 0.0000000E+00 + -79.50000 -71.50000 0.0000000E+00 + -78.50000 -71.50000 0.0000000E+00 + -77.50000 -71.50000 0.0000000E+00 + -76.50000 -71.50000 0.0000000E+00 + -75.50000 -71.50000 0.0000000E+00 + -74.50000 -71.50000 0.0000000E+00 + -73.50000 -71.50000 0.0000000E+00 + -72.50000 -71.50000 0.0000000E+00 + -71.50000 -71.50000 0.0000000E+00 + -70.50000 -71.50000 0.0000000E+00 + -69.50000 -71.50000 0.0000000E+00 + -68.50000 -71.50000 0.0000000E+00 + -67.50000 -71.50000 0.0000000E+00 + -66.50000 -71.50000 0.0000000E+00 + -65.50000 -71.50000 0.0000000E+00 + -64.50000 -71.50000 0.0000000E+00 + -63.50000 -71.50000 0.0000000E+00 + -62.50000 -71.50000 0.0000000E+00 + -61.50000 -71.50000 0.0000000E+00 + -60.50000 -71.50000 0.0000000E+00 + -59.50000 -71.50000 0.0000000E+00 + -58.50000 -71.50000 0.0000000E+00 + -57.50000 -71.50000 0.0000000E+00 + -56.50000 -71.50000 0.0000000E+00 + -55.50000 -71.50000 0.0000000E+00 + -54.50000 -71.50000 0.0000000E+00 + -53.50000 -71.50000 0.0000000E+00 + -52.50000 -71.50000 0.0000000E+00 + -51.50000 -71.50000 0.0000000E+00 + -50.50000 -71.50000 7.9077277E-03 + -49.50000 -71.50000 7.9518072E-03 + -48.50000 -71.50000 0.0000000E+00 + -47.50000 -71.50000 4.2082672E-04 + -46.50000 -71.50000 0.0000000E+00 + -45.50000 -71.50000 0.0000000E+00 + -44.50000 -71.50000 0.0000000E+00 + -43.50000 -71.50000 0.0000000E+00 + -42.50000 -71.50000 0.0000000E+00 + -41.50000 -71.50000 5.2179121E-03 + -40.50000 -71.50000 0.0000000E+00 + -39.50000 -71.50000 0.0000000E+00 + -38.50000 -71.50000 0.0000000E+00 + -37.50000 -71.50000 4.0883715E-03 + -36.50000 -71.50000 0.0000000E+00 + -35.50000 -71.50000 0.0000000E+00 + -34.50000 -71.50000 0.0000000E+00 + -33.50000 -71.50000 0.0000000E+00 + -32.50000 -71.50000 0.0000000E+00 + -31.50000 -71.50000 0.0000000E+00 + -30.50000 -71.50000 0.0000000E+00 + -29.50000 -71.50000 0.0000000E+00 + -28.50000 -71.50000 0.0000000E+00 + -27.50000 -71.50000 0.0000000E+00 + -26.50000 -71.50000 0.0000000E+00 + -25.50000 -71.50000 0.0000000E+00 + -24.50000 -71.50000 0.0000000E+00 + -23.50000 -71.50000 0.0000000E+00 + -22.50000 -71.50000 0.0000000E+00 + -21.50000 -71.50000 0.0000000E+00 + -20.50000 -71.50000 0.0000000E+00 + -19.50000 -71.50000 0.0000000E+00 + -18.50000 -71.50000 0.0000000E+00 + -17.50000 -71.50000 0.0000000E+00 + -16.50000 -71.50000 6.5135644E-03 + -15.50000 -71.50000 0.0000000E+00 + -14.50000 -71.50000 0.0000000E+00 + -13.50000 -71.50000 0.0000000E+00 + -12.50000 -71.50000 0.0000000E+00 + -11.50000 -71.50000 0.0000000E+00 + -10.50000 -71.50000 0.0000000E+00 + -9.500000 -71.50000 0.0000000E+00 + -8.500000 -71.50000 0.0000000E+00 + -7.500000 -71.50000 0.0000000E+00 + -6.500000 -71.50000 0.0000000E+00 + -5.500000 -71.50000 0.0000000E+00 + -4.500000 -71.50000 0.0000000E+00 + -3.500000 -71.50000 0.0000000E+00 + -2.500000 -71.50000 0.0000000E+00 + -1.500000 -71.50000 0.0000000E+00 + -0.5000000 -71.50000 0.0000000E+00 + 0.5000000 -71.50000 0.0000000E+00 + 1.500000 -71.50000 0.0000000E+00 + 2.500000 -71.50000 0.0000000E+00 + 3.500000 -71.50000 0.0000000E+00 + 4.500000 -71.50000 0.0000000E+00 + 5.500000 -71.50000 0.0000000E+00 + 6.500000 -71.50000 0.0000000E+00 + 7.500000 -71.50000 0.0000000E+00 + 8.500000 -71.50000 0.0000000E+00 + 9.500000 -71.50000 0.0000000E+00 + 10.50000 -71.50000 0.0000000E+00 + 11.50000 -71.50000 0.0000000E+00 + 12.50000 -71.50000 0.0000000E+00 + 13.50000 -71.50000 0.0000000E+00 + 14.50000 -71.50000 0.0000000E+00 + 15.50000 -71.50000 0.0000000E+00 + 16.50000 -71.50000 0.0000000E+00 + 17.50000 -71.50000 0.0000000E+00 + 18.50000 -71.50000 0.0000000E+00 + 19.50000 -71.50000 0.0000000E+00 + 20.50000 -71.50000 0.0000000E+00 + 21.50000 -71.50000 0.0000000E+00 + 22.50000 -71.50000 0.0000000E+00 + 23.50000 -71.50000 0.0000000E+00 + 24.50000 -71.50000 0.0000000E+00 + 25.50000 -71.50000 0.0000000E+00 + 26.50000 -71.50000 0.0000000E+00 + 27.50000 -71.50000 0.0000000E+00 + 28.50000 -71.50000 0.0000000E+00 + 29.50000 -71.50000 0.0000000E+00 + 30.50000 -71.50000 0.0000000E+00 + 31.50000 -71.50000 0.0000000E+00 + 32.50000 -71.50000 0.0000000E+00 + 33.50000 -71.50000 0.0000000E+00 + 34.50000 -71.50000 0.0000000E+00 + 35.50000 -71.50000 0.0000000E+00 + 36.50000 -71.50000 0.0000000E+00 + 37.50000 -71.50000 0.0000000E+00 + 38.50000 -71.50000 0.0000000E+00 + 39.50000 -71.50000 0.0000000E+00 + 40.50000 -71.50000 0.0000000E+00 + 41.50000 -71.50000 0.0000000E+00 + 42.50000 -71.50000 0.0000000E+00 + 43.50000 -71.50000 0.0000000E+00 + 44.50000 -71.50000 0.0000000E+00 + 45.50000 -71.50000 0.0000000E+00 + 46.50000 -71.50000 0.0000000E+00 + 47.50000 -71.50000 0.0000000E+00 + 48.50000 -71.50000 0.0000000E+00 + 49.50000 -71.50000 0.0000000E+00 + 50.50000 -71.50000 0.0000000E+00 + 51.50000 -71.50000 0.0000000E+00 + 52.50000 -71.50000 0.0000000E+00 + 53.50000 -71.50000 0.0000000E+00 + 54.50000 -71.50000 0.0000000E+00 + 55.50000 -71.50000 0.0000000E+00 + 56.50000 -71.50000 0.0000000E+00 + 57.50000 -71.50000 0.0000000E+00 + 58.50000 -71.50000 0.0000000E+00 + 59.50000 -71.50000 0.0000000E+00 + 60.50000 -71.50000 0.0000000E+00 + 61.50000 -71.50000 0.0000000E+00 + 62.50000 -71.50000 0.0000000E+00 + 63.50000 -71.50000 0.0000000E+00 + 64.50000 -71.50000 0.0000000E+00 + 65.50000 -71.50000 0.0000000E+00 + 66.50000 -71.50000 0.0000000E+00 + 67.50000 -71.50000 0.0000000E+00 + 68.50000 -71.50000 0.0000000E+00 + 69.50000 -71.50000 0.0000000E+00 + 70.50000 -71.50000 0.0000000E+00 + 71.50000 -71.50000 0.0000000E+00 + 72.50000 -71.50000 0.0000000E+00 + 73.50000 -71.50000 0.0000000E+00 + 74.50000 -71.50000 0.0000000E+00 + 75.50000 -71.50000 0.0000000E+00 + 76.50000 -71.50000 0.0000000E+00 + 77.50000 -71.50000 0.0000000E+00 + 78.50000 -71.50000 0.0000000E+00 + 79.50000 -71.50000 0.0000000E+00 + 80.50000 -71.50000 0.0000000E+00 + 81.50000 -71.50000 0.0000000E+00 + 82.50000 -71.50000 0.0000000E+00 + 83.50000 -71.50000 0.0000000E+00 + 84.50000 -71.50000 0.0000000E+00 + 85.50000 -71.50000 0.0000000E+00 + 86.50000 -71.50000 0.0000000E+00 + 87.50000 -71.50000 0.0000000E+00 + 88.50000 -71.50000 0.0000000E+00 + 89.50000 -71.50000 0.0000000E+00 + -89.50000 -70.50000 0.0000000E+00 + -88.50000 -70.50000 0.0000000E+00 + -87.50000 -70.50000 0.0000000E+00 + -86.50000 -70.50000 0.0000000E+00 + -85.50000 -70.50000 0.0000000E+00 + -84.50000 -70.50000 0.0000000E+00 + -83.50000 -70.50000 0.0000000E+00 + -82.50000 -70.50000 0.0000000E+00 + -81.50000 -70.50000 0.0000000E+00 + -80.50000 -70.50000 0.0000000E+00 + -79.50000 -70.50000 0.0000000E+00 + -78.50000 -70.50000 0.0000000E+00 + -77.50000 -70.50000 0.0000000E+00 + -76.50000 -70.50000 0.0000000E+00 + -75.50000 -70.50000 0.0000000E+00 + -74.50000 -70.50000 0.0000000E+00 + -73.50000 -70.50000 0.0000000E+00 + -72.50000 -70.50000 0.0000000E+00 + -71.50000 -70.50000 0.0000000E+00 + -70.50000 -70.50000 0.0000000E+00 + -69.50000 -70.50000 0.0000000E+00 + -68.50000 -70.50000 0.0000000E+00 + -67.50000 -70.50000 0.0000000E+00 + -66.50000 -70.50000 0.0000000E+00 + -65.50000 -70.50000 0.0000000E+00 + -64.50000 -70.50000 0.0000000E+00 + -63.50000 -70.50000 0.0000000E+00 + -62.50000 -70.50000 0.0000000E+00 + -61.50000 -70.50000 0.0000000E+00 + -60.50000 -70.50000 0.0000000E+00 + -59.50000 -70.50000 0.0000000E+00 + -58.50000 -70.50000 0.0000000E+00 + -57.50000 -70.50000 0.0000000E+00 + -56.50000 -70.50000 0.0000000E+00 + -55.50000 -70.50000 0.0000000E+00 + -54.50000 -70.50000 0.0000000E+00 + -53.50000 -70.50000 0.0000000E+00 + -52.50000 -70.50000 0.0000000E+00 + -51.50000 -70.50000 0.0000000E+00 + -50.50000 -70.50000 6.9863643E-03 + -49.50000 -70.50000 1.3466455E-02 + -48.50000 -70.50000 7.9518072E-03 + -47.50000 -70.50000 0.0000000E+00 + -46.50000 -70.50000 8.7625738E-03 + -45.50000 -70.50000 4.4944016E-03 + -44.50000 -70.50000 2.6461079E-03 + -43.50000 -70.50000 1.0604182E-02 + -42.50000 -70.50000 1.6076041E-02 + -41.50000 -70.50000 6.5843635E-03 + -40.50000 -70.50000 1.4604913E-02 + -39.50000 -70.50000 1.3775303E-02 + -38.50000 -70.50000 5.2179121E-03 + -37.50000 -70.50000 9.7018975E-04 + -36.50000 -70.50000 0.0000000E+00 + -35.50000 -70.50000 0.0000000E+00 + -34.50000 -70.50000 0.0000000E+00 + -33.50000 -70.50000 0.0000000E+00 + -32.50000 -70.50000 3.3335451E-03 + -31.50000 -70.50000 5.1200012E-04 + -30.50000 -70.50000 5.1200012E-04 + -29.50000 -70.50000 2.2061553E-03 + -28.50000 -70.50000 9.8924739E-03 + -27.50000 -70.50000 0.1418567 + -26.50000 -70.50000 0.1418567 + -25.50000 -70.50000 0.2284617 + -24.50000 -70.50000 0.0000000E+00 + -23.50000 -70.50000 0.0000000E+00 + -22.50000 -70.50000 0.0000000E+00 + -21.50000 -70.50000 0.0000000E+00 + -20.50000 -70.50000 0.0000000E+00 + -19.50000 -70.50000 0.0000000E+00 + -18.50000 -70.50000 0.0000000E+00 + -17.50000 -70.50000 1.1030776E-02 + -16.50000 -70.50000 9.5198448E-05 + -15.50000 -70.50000 0.0000000E+00 + -14.50000 -70.50000 0.0000000E+00 + -13.50000 -70.50000 0.0000000E+00 + -12.50000 -70.50000 0.0000000E+00 + -11.50000 -70.50000 0.0000000E+00 + -10.50000 -70.50000 0.0000000E+00 + -9.500000 -70.50000 0.0000000E+00 + -8.500000 -70.50000 0.0000000E+00 + -7.500000 -70.50000 0.0000000E+00 + -6.500000 -70.50000 0.0000000E+00 + -5.500000 -70.50000 0.0000000E+00 + -4.500000 -70.50000 0.0000000E+00 + -3.500000 -70.50000 0.0000000E+00 + -2.500000 -70.50000 0.0000000E+00 + -1.500000 -70.50000 0.0000000E+00 + -0.5000000 -70.50000 0.0000000E+00 + 0.5000000 -70.50000 0.0000000E+00 + 1.500000 -70.50000 0.0000000E+00 + 2.500000 -70.50000 0.0000000E+00 + 3.500000 -70.50000 0.0000000E+00 + 4.500000 -70.50000 0.0000000E+00 + 5.500000 -70.50000 0.0000000E+00 + 6.500000 -70.50000 0.0000000E+00 + 7.500000 -70.50000 0.0000000E+00 + 8.500000 -70.50000 0.0000000E+00 + 9.500000 -70.50000 0.0000000E+00 + 10.50000 -70.50000 0.0000000E+00 + 11.50000 -70.50000 0.0000000E+00 + 12.50000 -70.50000 0.0000000E+00 + 13.50000 -70.50000 0.0000000E+00 + 14.50000 -70.50000 0.0000000E+00 + 15.50000 -70.50000 0.0000000E+00 + 16.50000 -70.50000 0.0000000E+00 + 17.50000 -70.50000 0.0000000E+00 + 18.50000 -70.50000 0.0000000E+00 + 19.50000 -70.50000 0.0000000E+00 + 20.50000 -70.50000 0.0000000E+00 + 21.50000 -70.50000 0.0000000E+00 + 22.50000 -70.50000 0.0000000E+00 + 23.50000 -70.50000 0.0000000E+00 + 24.50000 -70.50000 0.0000000E+00 + 25.50000 -70.50000 0.0000000E+00 + 26.50000 -70.50000 0.0000000E+00 + 27.50000 -70.50000 0.0000000E+00 + 28.50000 -70.50000 0.0000000E+00 + 29.50000 -70.50000 0.0000000E+00 + 30.50000 -70.50000 0.0000000E+00 + 31.50000 -70.50000 0.0000000E+00 + 32.50000 -70.50000 0.0000000E+00 + 33.50000 -70.50000 0.0000000E+00 + 34.50000 -70.50000 0.0000000E+00 + 35.50000 -70.50000 0.0000000E+00 + 36.50000 -70.50000 0.0000000E+00 + 37.50000 -70.50000 0.0000000E+00 + 38.50000 -70.50000 0.0000000E+00 + 39.50000 -70.50000 0.0000000E+00 + 40.50000 -70.50000 0.0000000E+00 + 41.50000 -70.50000 0.0000000E+00 + 42.50000 -70.50000 0.0000000E+00 + 43.50000 -70.50000 0.0000000E+00 + 44.50000 -70.50000 0.0000000E+00 + 45.50000 -70.50000 0.0000000E+00 + 46.50000 -70.50000 0.0000000E+00 + 47.50000 -70.50000 0.0000000E+00 + 48.50000 -70.50000 0.0000000E+00 + 49.50000 -70.50000 0.0000000E+00 + 50.50000 -70.50000 0.0000000E+00 + 51.50000 -70.50000 0.0000000E+00 + 52.50000 -70.50000 0.0000000E+00 + 53.50000 -70.50000 0.0000000E+00 + 54.50000 -70.50000 0.0000000E+00 + 55.50000 -70.50000 0.0000000E+00 + 56.50000 -70.50000 0.0000000E+00 + 57.50000 -70.50000 0.0000000E+00 + 58.50000 -70.50000 0.0000000E+00 + 59.50000 -70.50000 0.0000000E+00 + 60.50000 -70.50000 0.0000000E+00 + 61.50000 -70.50000 0.0000000E+00 + 62.50000 -70.50000 0.0000000E+00 + 63.50000 -70.50000 0.0000000E+00 + 64.50000 -70.50000 0.0000000E+00 + 65.50000 -70.50000 0.0000000E+00 + 66.50000 -70.50000 0.0000000E+00 + 67.50000 -70.50000 0.0000000E+00 + 68.50000 -70.50000 0.0000000E+00 + 69.50000 -70.50000 0.0000000E+00 + 70.50000 -70.50000 0.0000000E+00 + 71.50000 -70.50000 0.0000000E+00 + 72.50000 -70.50000 0.0000000E+00 + 73.50000 -70.50000 0.0000000E+00 + 74.50000 -70.50000 0.0000000E+00 + 75.50000 -70.50000 0.0000000E+00 + 76.50000 -70.50000 0.0000000E+00 + 77.50000 -70.50000 0.0000000E+00 + 78.50000 -70.50000 0.0000000E+00 + 79.50000 -70.50000 0.0000000E+00 + 80.50000 -70.50000 0.0000000E+00 + 81.50000 -70.50000 0.0000000E+00 + 82.50000 -70.50000 0.0000000E+00 + 83.50000 -70.50000 0.0000000E+00 + 84.50000 -70.50000 0.0000000E+00 + 85.50000 -70.50000 0.0000000E+00 + 86.50000 -70.50000 0.0000000E+00 + 87.50000 -70.50000 0.0000000E+00 + 88.50000 -70.50000 0.0000000E+00 + 89.50000 -70.50000 0.0000000E+00 + -89.50000 -69.50000 0.0000000E+00 + -88.50000 -69.50000 0.0000000E+00 + -87.50000 -69.50000 0.0000000E+00 + -86.50000 -69.50000 0.0000000E+00 + -85.50000 -69.50000 0.0000000E+00 + -84.50000 -69.50000 0.0000000E+00 + -83.50000 -69.50000 0.0000000E+00 + -82.50000 -69.50000 0.0000000E+00 + -81.50000 -69.50000 0.0000000E+00 + -80.50000 -69.50000 0.0000000E+00 + -79.50000 -69.50000 0.0000000E+00 + -78.50000 -69.50000 0.0000000E+00 + -77.50000 -69.50000 0.0000000E+00 + -76.50000 -69.50000 0.0000000E+00 + -75.50000 -69.50000 0.0000000E+00 + -74.50000 -69.50000 0.0000000E+00 + -73.50000 -69.50000 0.0000000E+00 + -72.50000 -69.50000 0.0000000E+00 + -71.50000 -69.50000 0.0000000E+00 + -70.50000 -69.50000 0.0000000E+00 + -69.50000 -69.50000 0.0000000E+00 + -68.50000 -69.50000 0.0000000E+00 + -67.50000 -69.50000 0.0000000E+00 + -66.50000 -69.50000 0.0000000E+00 + -65.50000 -69.50000 0.0000000E+00 + -64.50000 -69.50000 0.0000000E+00 + -63.50000 -69.50000 0.0000000E+00 + -62.50000 -69.50000 0.0000000E+00 + -61.50000 -69.50000 0.0000000E+00 + -60.50000 -69.50000 0.0000000E+00 + -59.50000 -69.50000 0.0000000E+00 + -58.50000 -69.50000 0.0000000E+00 + -57.50000 -69.50000 0.0000000E+00 + -56.50000 -69.50000 0.0000000E+00 + -55.50000 -69.50000 0.0000000E+00 + -54.50000 -69.50000 0.0000000E+00 + -53.50000 -69.50000 0.0000000E+00 + -52.50000 -69.50000 0.0000000E+00 + -51.50000 -69.50000 2.2386769E-02 + -50.50000 -69.50000 1.3601660E-02 + -49.50000 -69.50000 2.1687860E-02 + -48.50000 -69.50000 4.4126883E-03 + -47.50000 -69.50000 2.2633076E-03 + -46.50000 -69.50000 8.7625738E-03 + -45.50000 -69.50000 2.0794000E-03 + -44.50000 -69.50000 1.5625000E-03 + -43.50000 -69.50000 1.5179838E-02 + -42.50000 -69.50000 1.5179838E-02 + -41.50000 -69.50000 8.2231732E-03 + -40.50000 -69.50000 1.0173177E-02 + -39.50000 -69.50000 2.1988243E-02 + -38.50000 -69.50000 1.4324051E-02 + -37.50000 -69.50000 9.0701580E-03 + -36.50000 -69.50000 4.7436994E-04 + -35.50000 -69.50000 0.0000000E+00 + -34.50000 -69.50000 5.4754224E-04 + -33.50000 -69.50000 2.3627150E-05 + -32.50000 -69.50000 2.4141422E-03 + -31.50000 -69.50000 2.4141422E-03 + -30.50000 -69.50000 4.5138923E-03 + -29.50000 -69.50000 3.0463503E-03 + -28.50000 -69.50000 8.8660448E-04 + -27.50000 -69.50000 8.8660448E-04 + -26.50000 -69.50000 6.5135644E-03 + -25.50000 -69.50000 4.7599224E-04 + -24.50000 -69.50000 4.0956516E-02 + -23.50000 -69.50000 4.6483610E-02 + -22.50000 -69.50000 5.9326172E-02 + -21.50000 -69.50000 5.9326172E-02 + -20.50000 -69.50000 3.5968121E-02 + -19.50000 -69.50000 6.5135644E-03 + -18.50000 -69.50000 2.9052256E-04 + -17.50000 -69.50000 1.5258789E-06 + -16.50000 -69.50000 0.0000000E+00 + -15.50000 -69.50000 0.0000000E+00 + -14.50000 -69.50000 0.0000000E+00 + -13.50000 -69.50000 0.0000000E+00 + -12.50000 -69.50000 0.0000000E+00 + -11.50000 -69.50000 0.0000000E+00 + -10.50000 -69.50000 0.0000000E+00 + -9.500000 -69.50000 0.0000000E+00 + -8.500000 -69.50000 0.0000000E+00 + -7.500000 -69.50000 0.0000000E+00 + -6.500000 -69.50000 0.0000000E+00 + -5.500000 -69.50000 0.0000000E+00 + -4.500000 -69.50000 0.0000000E+00 + -3.500000 -69.50000 0.0000000E+00 + -2.500000 -69.50000 0.0000000E+00 + -1.500000 -69.50000 0.0000000E+00 + -0.5000000 -69.50000 0.0000000E+00 + 0.5000000 -69.50000 0.0000000E+00 + 1.500000 -69.50000 0.0000000E+00 + 2.500000 -69.50000 0.0000000E+00 + 3.500000 -69.50000 0.0000000E+00 + 4.500000 -69.50000 0.0000000E+00 + 5.500000 -69.50000 0.0000000E+00 + 6.500000 -69.50000 0.0000000E+00 + 7.500000 -69.50000 0.0000000E+00 + 8.500000 -69.50000 0.0000000E+00 + 9.500000 -69.50000 0.0000000E+00 + 10.50000 -69.50000 0.0000000E+00 + 11.50000 -69.50000 0.0000000E+00 + 12.50000 -69.50000 0.0000000E+00 + 13.50000 -69.50000 0.0000000E+00 + 14.50000 -69.50000 0.0000000E+00 + 15.50000 -69.50000 0.0000000E+00 + 16.50000 -69.50000 0.0000000E+00 + 17.50000 -69.50000 0.0000000E+00 + 18.50000 -69.50000 0.0000000E+00 + 19.50000 -69.50000 0.0000000E+00 + 20.50000 -69.50000 0.0000000E+00 + 21.50000 -69.50000 0.0000000E+00 + 22.50000 -69.50000 0.0000000E+00 + 23.50000 -69.50000 0.0000000E+00 + 24.50000 -69.50000 0.0000000E+00 + 25.50000 -69.50000 0.0000000E+00 + 26.50000 -69.50000 0.0000000E+00 + 27.50000 -69.50000 0.0000000E+00 + 28.50000 -69.50000 0.0000000E+00 + 29.50000 -69.50000 0.0000000E+00 + 30.50000 -69.50000 0.0000000E+00 + 31.50000 -69.50000 0.0000000E+00 + 32.50000 -69.50000 0.0000000E+00 + 33.50000 -69.50000 0.0000000E+00 + 34.50000 -69.50000 0.0000000E+00 + 35.50000 -69.50000 0.0000000E+00 + 36.50000 -69.50000 0.0000000E+00 + 37.50000 -69.50000 0.0000000E+00 + 38.50000 -69.50000 0.0000000E+00 + 39.50000 -69.50000 0.0000000E+00 + 40.50000 -69.50000 0.0000000E+00 + 41.50000 -69.50000 0.0000000E+00 + 42.50000 -69.50000 0.0000000E+00 + 43.50000 -69.50000 0.0000000E+00 + 44.50000 -69.50000 0.0000000E+00 + 45.50000 -69.50000 0.0000000E+00 + 46.50000 -69.50000 0.0000000E+00 + 47.50000 -69.50000 0.0000000E+00 + 48.50000 -69.50000 0.0000000E+00 + 49.50000 -69.50000 0.0000000E+00 + 50.50000 -69.50000 0.0000000E+00 + 51.50000 -69.50000 0.0000000E+00 + 52.50000 -69.50000 0.0000000E+00 + 53.50000 -69.50000 0.0000000E+00 + 54.50000 -69.50000 0.0000000E+00 + 55.50000 -69.50000 0.0000000E+00 + 56.50000 -69.50000 0.0000000E+00 + 57.50000 -69.50000 0.0000000E+00 + 58.50000 -69.50000 0.0000000E+00 + 59.50000 -69.50000 0.0000000E+00 + 60.50000 -69.50000 0.0000000E+00 + 61.50000 -69.50000 0.0000000E+00 + 62.50000 -69.50000 0.0000000E+00 + 63.50000 -69.50000 0.0000000E+00 + 64.50000 -69.50000 0.0000000E+00 + 65.50000 -69.50000 0.0000000E+00 + 66.50000 -69.50000 0.0000000E+00 + 67.50000 -69.50000 0.0000000E+00 + 68.50000 -69.50000 0.0000000E+00 + 69.50000 -69.50000 0.0000000E+00 + 70.50000 -69.50000 0.0000000E+00 + 71.50000 -69.50000 0.0000000E+00 + 72.50000 -69.50000 0.0000000E+00 + 73.50000 -69.50000 0.0000000E+00 + 74.50000 -69.50000 0.0000000E+00 + 75.50000 -69.50000 0.0000000E+00 + 76.50000 -69.50000 0.0000000E+00 + 77.50000 -69.50000 0.0000000E+00 + 78.50000 -69.50000 0.0000000E+00 + 79.50000 -69.50000 0.0000000E+00 + 80.50000 -69.50000 0.0000000E+00 + 81.50000 -69.50000 0.0000000E+00 + 82.50000 -69.50000 0.0000000E+00 + 83.50000 -69.50000 0.0000000E+00 + 84.50000 -69.50000 0.0000000E+00 + 85.50000 -69.50000 0.0000000E+00 + 86.50000 -69.50000 0.0000000E+00 + 87.50000 -69.50000 0.0000000E+00 + 88.50000 -69.50000 0.0000000E+00 + 89.50000 -69.50000 0.0000000E+00 + -89.50000 -68.50000 0.0000000E+00 + -88.50000 -68.50000 0.0000000E+00 + -87.50000 -68.50000 0.0000000E+00 + -86.50000 -68.50000 0.0000000E+00 + -85.50000 -68.50000 0.0000000E+00 + -84.50000 -68.50000 0.0000000E+00 + -83.50000 -68.50000 0.0000000E+00 + -82.50000 -68.50000 0.0000000E+00 + -81.50000 -68.50000 0.0000000E+00 + -80.50000 -68.50000 0.0000000E+00 + -79.50000 -68.50000 0.0000000E+00 + -78.50000 -68.50000 0.0000000E+00 + -77.50000 -68.50000 0.0000000E+00 + -76.50000 -68.50000 0.0000000E+00 + -75.50000 -68.50000 0.0000000E+00 + -74.50000 -68.50000 0.0000000E+00 + -73.50000 -68.50000 0.0000000E+00 + -72.50000 -68.50000 0.0000000E+00 + -71.50000 -68.50000 0.0000000E+00 + -70.50000 -68.50000 0.0000000E+00 + -69.50000 -68.50000 0.0000000E+00 + -68.50000 -68.50000 0.0000000E+00 + -67.50000 -68.50000 0.0000000E+00 + -66.50000 -68.50000 0.0000000E+00 + -65.50000 -68.50000 0.0000000E+00 + -64.50000 -68.50000 0.0000000E+00 + -63.50000 -68.50000 0.0000000E+00 + -62.50000 -68.50000 0.0000000E+00 + -61.50000 -68.50000 0.0000000E+00 + -60.50000 -68.50000 0.0000000E+00 + -59.50000 -68.50000 0.0000000E+00 + -58.50000 -68.50000 0.0000000E+00 + -57.50000 -68.50000 0.0000000E+00 + -56.50000 -68.50000 0.0000000E+00 + -55.50000 -68.50000 0.0000000E+00 + -54.50000 -68.50000 0.0000000E+00 + -53.50000 -68.50000 0.0000000E+00 + -52.50000 -68.50000 0.0000000E+00 + -51.50000 -68.50000 0.0000000E+00 + -50.50000 -68.50000 2.3416344E-02 + -49.50000 -68.50000 1.8887399E-02 + -48.50000 -68.50000 1.3466455E-02 + -47.50000 -68.50000 7.9518072E-03 + -46.50000 -68.50000 1.3075016E-02 + -45.50000 -68.50000 1.8939374E-02 + -44.50000 -68.50000 9.8248096E-03 + -43.50000 -68.50000 2.1988243E-02 + -42.50000 -68.50000 8.2231732E-03 + -41.50000 -68.50000 1.0173177E-02 + -40.50000 -68.50000 8.2231732E-03 + -39.50000 -68.50000 2.1988243E-02 + -38.50000 -68.50000 2.6205370E-02 + -37.50000 -68.50000 7.5899191E-02 + -36.50000 -68.50000 1.8140316E-03 + -35.50000 -68.50000 1.3396776E-03 + -34.50000 -68.50000 0.0000000E+00 + -33.50000 -68.50000 0.0000000E+00 + -32.50000 -68.50000 0.0000000E+00 + -31.50000 -68.50000 0.0000000E+00 + -30.50000 -68.50000 2.1598389E-02 + -29.50000 -68.50000 9.2967218E-03 + -28.50000 -68.50000 7.1936245E-03 + -27.50000 -68.50000 1.1240038E-03 + -26.50000 -68.50000 1.1240038E-03 + -25.50000 -68.50000 4.5394158E-10 + -24.50000 -68.50000 7.6293945E-06 + -23.50000 -68.50000 1.2995957E-02 + -22.50000 -68.50000 1.8539429E-03 + -21.50000 -68.50000 3.3709057E-05 + -20.50000 -68.50000 5.3609579E-06 + -19.50000 -68.50000 4.8828126E-05 + -18.50000 -68.50000 9.2967234E-08 + -17.50000 -68.50000 6.8942354E-05 + -16.50000 -68.50000 0.0000000E+00 + -15.50000 -68.50000 0.0000000E+00 + -14.50000 -68.50000 0.0000000E+00 + -13.50000 -68.50000 0.0000000E+00 + -12.50000 -68.50000 0.0000000E+00 + -11.50000 -68.50000 0.0000000E+00 + -10.50000 -68.50000 0.0000000E+00 + -9.500000 -68.50000 0.0000000E+00 + -8.500000 -68.50000 0.0000000E+00 + -7.500000 -68.50000 0.0000000E+00 + -6.500000 -68.50000 0.0000000E+00 + -5.500000 -68.50000 0.0000000E+00 + -4.500000 -68.50000 0.0000000E+00 + -3.500000 -68.50000 0.0000000E+00 + -2.500000 -68.50000 0.0000000E+00 + -1.500000 -68.50000 0.0000000E+00 + -0.5000000 -68.50000 0.0000000E+00 + 0.5000000 -68.50000 0.0000000E+00 + 1.500000 -68.50000 0.0000000E+00 + 2.500000 -68.50000 0.0000000E+00 + 3.500000 -68.50000 0.0000000E+00 + 4.500000 -68.50000 0.0000000E+00 + 5.500000 -68.50000 0.0000000E+00 + 6.500000 -68.50000 0.0000000E+00 + 7.500000 -68.50000 0.0000000E+00 + 8.500000 -68.50000 0.0000000E+00 + 9.500000 -68.50000 0.0000000E+00 + 10.50000 -68.50000 0.0000000E+00 + 11.50000 -68.50000 0.0000000E+00 + 12.50000 -68.50000 0.0000000E+00 + 13.50000 -68.50000 0.0000000E+00 + 14.50000 -68.50000 0.0000000E+00 + 15.50000 -68.50000 0.0000000E+00 + 16.50000 -68.50000 0.0000000E+00 + 17.50000 -68.50000 0.0000000E+00 + 18.50000 -68.50000 0.0000000E+00 + 19.50000 -68.50000 0.0000000E+00 + 20.50000 -68.50000 0.0000000E+00 + 21.50000 -68.50000 0.0000000E+00 + 22.50000 -68.50000 0.0000000E+00 + 23.50000 -68.50000 0.0000000E+00 + 24.50000 -68.50000 0.0000000E+00 + 25.50000 -68.50000 0.0000000E+00 + 26.50000 -68.50000 0.0000000E+00 + 27.50000 -68.50000 0.0000000E+00 + 28.50000 -68.50000 0.0000000E+00 + 29.50000 -68.50000 0.0000000E+00 + 30.50000 -68.50000 0.0000000E+00 + 31.50000 -68.50000 0.0000000E+00 + 32.50000 -68.50000 0.0000000E+00 + 33.50000 -68.50000 0.0000000E+00 + 34.50000 -68.50000 0.0000000E+00 + 35.50000 -68.50000 0.0000000E+00 + 36.50000 -68.50000 0.0000000E+00 + 37.50000 -68.50000 0.0000000E+00 + 38.50000 -68.50000 0.0000000E+00 + 39.50000 -68.50000 0.0000000E+00 + 40.50000 -68.50000 0.0000000E+00 + 41.50000 -68.50000 0.0000000E+00 + 42.50000 -68.50000 0.0000000E+00 + 43.50000 -68.50000 0.0000000E+00 + 44.50000 -68.50000 0.0000000E+00 + 45.50000 -68.50000 0.0000000E+00 + 46.50000 -68.50000 0.0000000E+00 + 47.50000 -68.50000 0.0000000E+00 + 48.50000 -68.50000 0.0000000E+00 + 49.50000 -68.50000 0.0000000E+00 + 50.50000 -68.50000 0.0000000E+00 + 51.50000 -68.50000 0.0000000E+00 + 52.50000 -68.50000 0.0000000E+00 + 53.50000 -68.50000 0.0000000E+00 + 54.50000 -68.50000 0.0000000E+00 + 55.50000 -68.50000 0.0000000E+00 + 56.50000 -68.50000 0.0000000E+00 + 57.50000 -68.50000 0.0000000E+00 + 58.50000 -68.50000 0.0000000E+00 + 59.50000 -68.50000 0.0000000E+00 + 60.50000 -68.50000 0.0000000E+00 + 61.50000 -68.50000 0.0000000E+00 + 62.50000 -68.50000 0.0000000E+00 + 63.50000 -68.50000 0.0000000E+00 + 64.50000 -68.50000 0.0000000E+00 + 65.50000 -68.50000 0.0000000E+00 + 66.50000 -68.50000 0.0000000E+00 + 67.50000 -68.50000 0.0000000E+00 + 68.50000 -68.50000 0.0000000E+00 + 69.50000 -68.50000 0.0000000E+00 + 70.50000 -68.50000 0.0000000E+00 + 71.50000 -68.50000 0.0000000E+00 + 72.50000 -68.50000 0.0000000E+00 + 73.50000 -68.50000 0.0000000E+00 + 74.50000 -68.50000 0.0000000E+00 + 75.50000 -68.50000 0.0000000E+00 + 76.50000 -68.50000 0.0000000E+00 + 77.50000 -68.50000 0.0000000E+00 + 78.50000 -68.50000 0.0000000E+00 + 79.50000 -68.50000 0.0000000E+00 + 80.50000 -68.50000 0.0000000E+00 + 81.50000 -68.50000 0.0000000E+00 + 82.50000 -68.50000 0.0000000E+00 + 83.50000 -68.50000 0.0000000E+00 + 84.50000 -68.50000 0.0000000E+00 + 85.50000 -68.50000 0.0000000E+00 + 86.50000 -68.50000 0.0000000E+00 + 87.50000 -68.50000 0.0000000E+00 + 88.50000 -68.50000 0.0000000E+00 + 89.50000 -68.50000 0.0000000E+00 + -89.50000 -67.50000 0.0000000E+00 + -88.50000 -67.50000 0.0000000E+00 + -87.50000 -67.50000 0.0000000E+00 + -86.50000 -67.50000 0.0000000E+00 + -85.50000 -67.50000 0.0000000E+00 + -84.50000 -67.50000 0.0000000E+00 + -83.50000 -67.50000 0.0000000E+00 + -82.50000 -67.50000 0.0000000E+00 + -81.50000 -67.50000 0.0000000E+00 + -80.50000 -67.50000 0.0000000E+00 + -79.50000 -67.50000 0.0000000E+00 + -78.50000 -67.50000 0.0000000E+00 + -77.50000 -67.50000 0.0000000E+00 + -76.50000 -67.50000 0.0000000E+00 + -75.50000 -67.50000 0.0000000E+00 + -74.50000 -67.50000 0.0000000E+00 + -73.50000 -67.50000 0.0000000E+00 + -72.50000 -67.50000 0.0000000E+00 + -71.50000 -67.50000 0.0000000E+00 + -70.50000 -67.50000 0.0000000E+00 + -69.50000 -67.50000 0.0000000E+00 + -68.50000 -67.50000 0.0000000E+00 + -67.50000 -67.50000 0.0000000E+00 + -66.50000 -67.50000 0.0000000E+00 + -65.50000 -67.50000 0.0000000E+00 + -64.50000 -67.50000 0.0000000E+00 + -63.50000 -67.50000 0.0000000E+00 + -62.50000 -67.50000 0.0000000E+00 + -61.50000 -67.50000 0.0000000E+00 + -60.50000 -67.50000 0.0000000E+00 + -59.50000 -67.50000 0.0000000E+00 + -58.50000 -67.50000 0.0000000E+00 + -57.50000 -67.50000 0.0000000E+00 + -56.50000 -67.50000 0.0000000E+00 + -55.50000 -67.50000 0.0000000E+00 + -54.50000 -67.50000 0.0000000E+00 + -53.50000 -67.50000 0.0000000E+00 + -52.50000 -67.50000 0.0000000E+00 + -51.50000 -67.50000 0.0000000E+00 + -50.50000 -67.50000 0.0000000E+00 + -49.50000 -67.50000 0.0000000E+00 + -48.50000 -67.50000 3.3508848E-02 + -47.50000 -67.50000 0.0000000E+00 + -46.50000 -67.50000 0.0000000E+00 + -45.50000 -67.50000 1.8939374E-02 + -44.50000 -67.50000 2.0093877E-02 + -43.50000 -67.50000 3.1046072E-02 + -42.50000 -67.50000 1.5179838E-02 + -41.50000 -67.50000 1.2476718E-02 + -40.50000 -67.50000 1.5179838E-02 + -39.50000 -67.50000 2.1988243E-02 + -38.50000 -67.50000 2.6205370E-02 + -37.50000 -67.50000 2.6205370E-02 + -36.50000 -67.50000 0.0000000E+00 + -35.50000 -67.50000 0.0000000E+00 + -34.50000 -67.50000 0.0000000E+00 + -33.50000 -67.50000 0.0000000E+00 + -32.50000 -67.50000 3.0430088E-02 + -31.50000 -67.50000 2.3521353E-02 + -30.50000 -67.50000 2.0461885E-02 + -29.50000 -67.50000 1.0518387E-02 + -28.50000 -67.50000 6.2956186E-03 + -27.50000 -67.50000 4.1250051E-03 + -26.50000 -67.50000 2.3394469E-03 + -25.50000 -67.50000 2.6804788E-05 + -24.50000 -67.50000 2.9052256E-04 + -23.50000 -67.50000 3.3709057E-05 + -22.50000 -67.50000 0.0000000E+00 + -21.50000 -67.50000 4.8828126E-05 + -20.50000 -67.50000 4.6788939E-04 + -19.50000 -67.50000 3.7078859E-04 + -18.50000 -67.50000 2.9052256E-04 + -17.50000 -67.50000 0.0000000E+00 + -16.50000 -67.50000 0.0000000E+00 + -15.50000 -67.50000 0.0000000E+00 + -14.50000 -67.50000 0.0000000E+00 + -13.50000 -67.50000 0.0000000E+00 + -12.50000 -67.50000 0.0000000E+00 + -11.50000 -67.50000 0.0000000E+00 + -10.50000 -67.50000 0.0000000E+00 + -9.500000 -67.50000 0.0000000E+00 + -8.500000 -67.50000 0.0000000E+00 + -7.500000 -67.50000 0.0000000E+00 + -6.500000 -67.50000 0.0000000E+00 + -5.500000 -67.50000 0.0000000E+00 + -4.500000 -67.50000 0.0000000E+00 + -3.500000 -67.50000 0.0000000E+00 + -2.500000 -67.50000 0.0000000E+00 + -1.500000 -67.50000 0.0000000E+00 + -0.5000000 -67.50000 0.0000000E+00 + 0.5000000 -67.50000 0.0000000E+00 + 1.500000 -67.50000 0.0000000E+00 + 2.500000 -67.50000 0.0000000E+00 + 3.500000 -67.50000 0.0000000E+00 + 4.500000 -67.50000 0.0000000E+00 + 5.500000 -67.50000 0.0000000E+00 + 6.500000 -67.50000 0.0000000E+00 + 7.500000 -67.50000 0.0000000E+00 + 8.500000 -67.50000 0.0000000E+00 + 9.500000 -67.50000 0.0000000E+00 + 10.50000 -67.50000 0.0000000E+00 + 11.50000 -67.50000 0.0000000E+00 + 12.50000 -67.50000 0.0000000E+00 + 13.50000 -67.50000 0.0000000E+00 + 14.50000 -67.50000 0.0000000E+00 + 15.50000 -67.50000 0.0000000E+00 + 16.50000 -67.50000 0.0000000E+00 + 17.50000 -67.50000 0.0000000E+00 + 18.50000 -67.50000 0.0000000E+00 + 19.50000 -67.50000 0.0000000E+00 + 20.50000 -67.50000 0.0000000E+00 + 21.50000 -67.50000 0.0000000E+00 + 22.50000 -67.50000 0.0000000E+00 + 23.50000 -67.50000 0.0000000E+00 + 24.50000 -67.50000 0.0000000E+00 + 25.50000 -67.50000 0.0000000E+00 + 26.50000 -67.50000 0.0000000E+00 + 27.50000 -67.50000 0.0000000E+00 + 28.50000 -67.50000 0.0000000E+00 + 29.50000 -67.50000 0.0000000E+00 + 30.50000 -67.50000 0.0000000E+00 + 31.50000 -67.50000 0.0000000E+00 + 32.50000 -67.50000 0.0000000E+00 + 33.50000 -67.50000 0.0000000E+00 + 34.50000 -67.50000 0.0000000E+00 + 35.50000 -67.50000 0.0000000E+00 + 36.50000 -67.50000 0.0000000E+00 + 37.50000 -67.50000 0.0000000E+00 + 38.50000 -67.50000 0.0000000E+00 + 39.50000 -67.50000 0.0000000E+00 + 40.50000 -67.50000 0.0000000E+00 + 41.50000 -67.50000 0.0000000E+00 + 42.50000 -67.50000 0.0000000E+00 + 43.50000 -67.50000 0.0000000E+00 + 44.50000 -67.50000 0.0000000E+00 + 45.50000 -67.50000 0.0000000E+00 + 46.50000 -67.50000 0.0000000E+00 + 47.50000 -67.50000 0.0000000E+00 + 48.50000 -67.50000 0.0000000E+00 + 49.50000 -67.50000 0.0000000E+00 + 50.50000 -67.50000 0.0000000E+00 + 51.50000 -67.50000 0.0000000E+00 + 52.50000 -67.50000 0.0000000E+00 + 53.50000 -67.50000 0.0000000E+00 + 54.50000 -67.50000 0.0000000E+00 + 55.50000 -67.50000 0.0000000E+00 + 56.50000 -67.50000 0.0000000E+00 + 57.50000 -67.50000 0.0000000E+00 + 58.50000 -67.50000 0.0000000E+00 + 59.50000 -67.50000 0.0000000E+00 + 60.50000 -67.50000 0.0000000E+00 + 61.50000 -67.50000 0.0000000E+00 + 62.50000 -67.50000 0.0000000E+00 + 63.50000 -67.50000 0.0000000E+00 + 64.50000 -67.50000 0.0000000E+00 + 65.50000 -67.50000 0.0000000E+00 + 66.50000 -67.50000 0.0000000E+00 + 67.50000 -67.50000 0.0000000E+00 + 68.50000 -67.50000 0.0000000E+00 + 69.50000 -67.50000 0.0000000E+00 + 70.50000 -67.50000 0.0000000E+00 + 71.50000 -67.50000 0.0000000E+00 + 72.50000 -67.50000 0.0000000E+00 + 73.50000 -67.50000 0.0000000E+00 + 74.50000 -67.50000 0.0000000E+00 + 75.50000 -67.50000 0.0000000E+00 + 76.50000 -67.50000 0.0000000E+00 + 77.50000 -67.50000 0.0000000E+00 + 78.50000 -67.50000 0.0000000E+00 + 79.50000 -67.50000 0.0000000E+00 + 80.50000 -67.50000 0.0000000E+00 + 81.50000 -67.50000 0.0000000E+00 + 82.50000 -67.50000 0.0000000E+00 + 83.50000 -67.50000 0.0000000E+00 + 84.50000 -67.50000 0.0000000E+00 + 85.50000 -67.50000 0.0000000E+00 + 86.50000 -67.50000 0.0000000E+00 + 87.50000 -67.50000 0.0000000E+00 + 88.50000 -67.50000 0.0000000E+00 + 89.50000 -67.50000 0.0000000E+00 + -89.50000 -66.50000 0.0000000E+00 + -88.50000 -66.50000 0.0000000E+00 + -87.50000 -66.50000 0.0000000E+00 + -86.50000 -66.50000 0.0000000E+00 + -85.50000 -66.50000 0.0000000E+00 + -84.50000 -66.50000 0.0000000E+00 + -83.50000 -66.50000 0.0000000E+00 + -82.50000 -66.50000 0.0000000E+00 + -81.50000 -66.50000 0.0000000E+00 + -80.50000 -66.50000 0.0000000E+00 + -79.50000 -66.50000 0.0000000E+00 + -78.50000 -66.50000 0.0000000E+00 + -77.50000 -66.50000 0.0000000E+00 + -76.50000 -66.50000 0.0000000E+00 + -75.50000 -66.50000 0.0000000E+00 + -74.50000 -66.50000 0.0000000E+00 + -73.50000 -66.50000 0.0000000E+00 + -72.50000 -66.50000 0.0000000E+00 + -71.50000 -66.50000 0.0000000E+00 + -70.50000 -66.50000 0.0000000E+00 + -69.50000 -66.50000 0.0000000E+00 + -68.50000 -66.50000 0.0000000E+00 + -67.50000 -66.50000 0.0000000E+00 + -66.50000 -66.50000 0.0000000E+00 + -65.50000 -66.50000 0.0000000E+00 + -64.50000 -66.50000 0.0000000E+00 + -63.50000 -66.50000 0.0000000E+00 + -62.50000 -66.50000 0.0000000E+00 + -61.50000 -66.50000 0.0000000E+00 + -60.50000 -66.50000 0.0000000E+00 + -59.50000 -66.50000 0.0000000E+00 + -58.50000 -66.50000 0.0000000E+00 + -57.50000 -66.50000 0.0000000E+00 + -56.50000 -66.50000 0.0000000E+00 + -55.50000 -66.50000 0.0000000E+00 + -54.50000 -66.50000 0.0000000E+00 + -53.50000 -66.50000 0.0000000E+00 + -52.50000 -66.50000 0.0000000E+00 + -51.50000 -66.50000 0.0000000E+00 + -50.50000 -66.50000 0.0000000E+00 + -49.50000 -66.50000 0.0000000E+00 + -48.50000 -66.50000 0.0000000E+00 + -47.50000 -66.50000 0.0000000E+00 + -46.50000 -66.50000 0.0000000E+00 + -45.50000 -66.50000 0.0000000E+00 + -44.50000 -66.50000 2.7746452E-02 + -43.50000 -66.50000 3.6577057E-02 + -42.50000 -66.50000 2.7121553E-02 + -41.50000 -66.50000 1.2476718E-02 + -40.50000 -66.50000 3.1046072E-02 + -39.50000 -66.50000 3.1046072E-02 + -38.50000 -66.50000 3.1046072E-02 + -37.50000 -66.50000 3.1046072E-02 + -36.50000 -66.50000 0.0000000E+00 + -35.50000 -66.50000 0.0000000E+00 + -34.50000 -66.50000 0.0000000E+00 + -33.50000 -66.50000 0.0000000E+00 + -32.50000 -66.50000 0.0000000E+00 + -31.50000 -66.50000 0.0000000E+00 + -30.50000 -66.50000 0.0000000E+00 + -29.50000 -66.50000 0.0000000E+00 + -28.50000 -66.50000 1.9737611E-02 + -27.50000 -66.50000 0.0000000E+00 + -26.50000 -66.50000 1.0786898E-03 + -25.50000 -66.50000 2.5991916E-03 + -24.50000 -66.50000 2.2480077E-04 + -23.50000 -66.50000 4.6788939E-04 + -22.50000 -66.50000 1.7155065E-04 + -21.50000 -66.50000 9.5198448E-05 + -20.50000 -66.50000 6.8942354E-05 + -19.50000 -66.50000 1.4621543E-05 + -18.50000 -66.50000 5.3609579E-06 + -17.50000 -66.50000 0.0000000E+00 + -16.50000 -66.50000 0.0000000E+00 + -15.50000 -66.50000 0.0000000E+00 + -14.50000 -66.50000 0.0000000E+00 + -13.50000 -66.50000 0.0000000E+00 + -12.50000 -66.50000 0.0000000E+00 + -11.50000 -66.50000 0.0000000E+00 + -10.50000 -66.50000 0.0000000E+00 + -9.500000 -66.50000 0.0000000E+00 + -8.500000 -66.50000 0.0000000E+00 + -7.500000 -66.50000 0.0000000E+00 + -6.500000 -66.50000 0.0000000E+00 + -5.500000 -66.50000 0.0000000E+00 + -4.500000 -66.50000 0.0000000E+00 + -3.500000 -66.50000 0.0000000E+00 + -2.500000 -66.50000 0.0000000E+00 + -1.500000 -66.50000 0.0000000E+00 + -0.5000000 -66.50000 0.0000000E+00 + 0.5000000 -66.50000 0.0000000E+00 + 1.500000 -66.50000 0.0000000E+00 + 2.500000 -66.50000 0.0000000E+00 + 3.500000 -66.50000 0.0000000E+00 + 4.500000 -66.50000 0.0000000E+00 + 5.500000 -66.50000 0.0000000E+00 + 6.500000 -66.50000 0.0000000E+00 + 7.500000 -66.50000 0.0000000E+00 + 8.500000 -66.50000 0.0000000E+00 + 9.500000 -66.50000 0.0000000E+00 + 10.50000 -66.50000 0.0000000E+00 + 11.50000 -66.50000 0.0000000E+00 + 12.50000 -66.50000 0.0000000E+00 + 13.50000 -66.50000 0.0000000E+00 + 14.50000 -66.50000 0.0000000E+00 + 15.50000 -66.50000 0.0000000E+00 + 16.50000 -66.50000 0.0000000E+00 + 17.50000 -66.50000 0.0000000E+00 + 18.50000 -66.50000 0.0000000E+00 + 19.50000 -66.50000 0.0000000E+00 + 20.50000 -66.50000 0.0000000E+00 + 21.50000 -66.50000 0.0000000E+00 + 22.50000 -66.50000 0.0000000E+00 + 23.50000 -66.50000 0.0000000E+00 + 24.50000 -66.50000 0.0000000E+00 + 25.50000 -66.50000 0.0000000E+00 + 26.50000 -66.50000 0.0000000E+00 + 27.50000 -66.50000 0.0000000E+00 + 28.50000 -66.50000 0.0000000E+00 + 29.50000 -66.50000 0.0000000E+00 + 30.50000 -66.50000 0.0000000E+00 + 31.50000 -66.50000 0.0000000E+00 + 32.50000 -66.50000 0.0000000E+00 + 33.50000 -66.50000 0.0000000E+00 + 34.50000 -66.50000 0.0000000E+00 + 35.50000 -66.50000 0.0000000E+00 + 36.50000 -66.50000 0.0000000E+00 + 37.50000 -66.50000 0.0000000E+00 + 38.50000 -66.50000 0.0000000E+00 + 39.50000 -66.50000 0.0000000E+00 + 40.50000 -66.50000 0.0000000E+00 + 41.50000 -66.50000 0.0000000E+00 + 42.50000 -66.50000 0.0000000E+00 + 43.50000 -66.50000 0.0000000E+00 + 44.50000 -66.50000 0.0000000E+00 + 45.50000 -66.50000 0.0000000E+00 + 46.50000 -66.50000 0.0000000E+00 + 47.50000 -66.50000 0.0000000E+00 + 48.50000 -66.50000 0.0000000E+00 + 49.50000 -66.50000 0.0000000E+00 + 50.50000 -66.50000 0.0000000E+00 + 51.50000 -66.50000 0.0000000E+00 + 52.50000 -66.50000 0.0000000E+00 + 53.50000 -66.50000 0.0000000E+00 + 54.50000 -66.50000 0.0000000E+00 + 55.50000 -66.50000 0.0000000E+00 + 56.50000 -66.50000 0.0000000E+00 + 57.50000 -66.50000 0.0000000E+00 + 58.50000 -66.50000 0.0000000E+00 + 59.50000 -66.50000 0.0000000E+00 + 60.50000 -66.50000 0.0000000E+00 + 61.50000 -66.50000 0.0000000E+00 + 62.50000 -66.50000 0.0000000E+00 + 63.50000 -66.50000 0.0000000E+00 + 64.50000 -66.50000 0.0000000E+00 + 65.50000 -66.50000 0.0000000E+00 + 66.50000 -66.50000 0.0000000E+00 + 67.50000 -66.50000 0.0000000E+00 + 68.50000 -66.50000 0.0000000E+00 + 69.50000 -66.50000 0.0000000E+00 + 70.50000 -66.50000 0.0000000E+00 + 71.50000 -66.50000 0.0000000E+00 + 72.50000 -66.50000 0.0000000E+00 + 73.50000 -66.50000 0.0000000E+00 + 74.50000 -66.50000 0.0000000E+00 + 75.50000 -66.50000 0.0000000E+00 + 76.50000 -66.50000 0.0000000E+00 + 77.50000 -66.50000 0.0000000E+00 + 78.50000 -66.50000 0.0000000E+00 + 79.50000 -66.50000 0.0000000E+00 + 80.50000 -66.50000 0.0000000E+00 + 81.50000 -66.50000 0.0000000E+00 + 82.50000 -66.50000 0.0000000E+00 + 83.50000 -66.50000 0.0000000E+00 + 84.50000 -66.50000 0.0000000E+00 + 85.50000 -66.50000 0.0000000E+00 + 86.50000 -66.50000 0.0000000E+00 + 87.50000 -66.50000 0.0000000E+00 + 88.50000 -66.50000 0.0000000E+00 + 89.50000 -66.50000 0.0000000E+00 + -89.50000 -65.50000 0.0000000E+00 + -88.50000 -65.50000 0.0000000E+00 + -87.50000 -65.50000 0.0000000E+00 + -86.50000 -65.50000 0.0000000E+00 + -85.50000 -65.50000 0.0000000E+00 + -84.50000 -65.50000 0.0000000E+00 + -83.50000 -65.50000 0.0000000E+00 + -82.50000 -65.50000 0.0000000E+00 + -81.50000 -65.50000 0.0000000E+00 + -80.50000 -65.50000 0.0000000E+00 + -79.50000 -65.50000 0.0000000E+00 + -78.50000 -65.50000 0.0000000E+00 + -77.50000 -65.50000 0.0000000E+00 + -76.50000 -65.50000 0.0000000E+00 + -75.50000 -65.50000 0.0000000E+00 + -74.50000 -65.50000 0.0000000E+00 + -73.50000 -65.50000 0.0000000E+00 + -72.50000 -65.50000 0.0000000E+00 + -71.50000 -65.50000 0.0000000E+00 + -70.50000 -65.50000 0.0000000E+00 + -69.50000 -65.50000 0.0000000E+00 + -68.50000 -65.50000 0.0000000E+00 + -67.50000 -65.50000 0.0000000E+00 + -66.50000 -65.50000 0.0000000E+00 + -65.50000 -65.50000 0.0000000E+00 + -64.50000 -65.50000 0.0000000E+00 + -63.50000 -65.50000 0.0000000E+00 + -62.50000 -65.50000 0.0000000E+00 + -61.50000 -65.50000 0.0000000E+00 + -60.50000 -65.50000 0.0000000E+00 + -59.50000 -65.50000 0.0000000E+00 + -58.50000 -65.50000 0.0000000E+00 + -57.50000 -65.50000 0.0000000E+00 + -56.50000 -65.50000 0.0000000E+00 + -55.50000 -65.50000 0.0000000E+00 + -54.50000 -65.50000 0.0000000E+00 + -53.50000 -65.50000 0.0000000E+00 + -52.50000 -65.50000 0.0000000E+00 + -51.50000 -65.50000 0.0000000E+00 + -50.50000 -65.50000 0.0000000E+00 + -49.50000 -65.50000 0.0000000E+00 + -48.50000 -65.50000 0.0000000E+00 + -47.50000 -65.50000 0.0000000E+00 + -46.50000 -65.50000 0.0000000E+00 + -45.50000 -65.50000 0.0000000E+00 + -44.50000 -65.50000 4.3430787E-02 + -43.50000 -65.50000 4.2869683E-02 + -42.50000 -65.50000 3.1046072E-02 + -41.50000 -65.50000 2.1988243E-02 + -40.50000 -65.50000 4.2869683E-02 + -39.50000 -65.50000 0.0000000E+00 + -38.50000 -65.50000 3.6577057E-02 + -37.50000 -65.50000 0.0000000E+00 + -36.50000 -65.50000 0.0000000E+00 + -35.50000 -65.50000 0.0000000E+00 + -34.50000 -65.50000 0.0000000E+00 + -33.50000 -65.50000 0.0000000E+00 + -32.50000 -65.50000 0.0000000E+00 + -31.50000 -65.50000 0.0000000E+00 + -30.50000 -65.50000 0.0000000E+00 + -29.50000 -65.50000 0.0000000E+00 + -28.50000 -65.50000 0.0000000E+00 + -27.50000 -65.50000 0.0000000E+00 + -26.50000 -65.50000 0.0000000E+00 + -25.50000 -65.50000 0.0000000E+00 + -24.50000 -65.50000 0.0000000E+00 + -23.50000 -65.50000 1.8621723E-03 + -22.50000 -65.50000 1.0786898E-03 + -21.50000 -65.50000 4.1250051E-03 + -20.50000 -65.50000 1.8621723E-03 + -19.50000 -65.50000 2.2061553E-03 + -18.50000 -65.50000 0.0000000E+00 + -17.50000 -65.50000 0.0000000E+00 + -16.50000 -65.50000 0.0000000E+00 + -15.50000 -65.50000 0.0000000E+00 + -14.50000 -65.50000 0.0000000E+00 + -13.50000 -65.50000 0.0000000E+00 + -12.50000 -65.50000 0.0000000E+00 + -11.50000 -65.50000 0.0000000E+00 + -10.50000 -65.50000 0.0000000E+00 + -9.500000 -65.50000 0.0000000E+00 + -8.500000 -65.50000 0.0000000E+00 + -7.500000 -65.50000 0.0000000E+00 + -6.500000 -65.50000 0.0000000E+00 + -5.500000 -65.50000 0.0000000E+00 + -4.500000 -65.50000 0.0000000E+00 + -3.500000 -65.50000 0.0000000E+00 + -2.500000 -65.50000 0.0000000E+00 + -1.500000 -65.50000 0.0000000E+00 + -0.5000000 -65.50000 0.0000000E+00 + 0.5000000 -65.50000 0.0000000E+00 + 1.500000 -65.50000 0.0000000E+00 + 2.500000 -65.50000 0.0000000E+00 + 3.500000 -65.50000 0.0000000E+00 + 4.500000 -65.50000 0.0000000E+00 + 5.500000 -65.50000 0.0000000E+00 + 6.500000 -65.50000 0.0000000E+00 + 7.500000 -65.50000 0.0000000E+00 + 8.500000 -65.50000 0.0000000E+00 + 9.500000 -65.50000 0.0000000E+00 + 10.50000 -65.50000 0.0000000E+00 + 11.50000 -65.50000 0.0000000E+00 + 12.50000 -65.50000 0.0000000E+00 + 13.50000 -65.50000 0.0000000E+00 + 14.50000 -65.50000 0.0000000E+00 + 15.50000 -65.50000 0.0000000E+00 + 16.50000 -65.50000 0.0000000E+00 + 17.50000 -65.50000 0.0000000E+00 + 18.50000 -65.50000 0.0000000E+00 + 19.50000 -65.50000 0.0000000E+00 + 20.50000 -65.50000 0.0000000E+00 + 21.50000 -65.50000 0.0000000E+00 + 22.50000 -65.50000 0.0000000E+00 + 23.50000 -65.50000 0.0000000E+00 + 24.50000 -65.50000 0.0000000E+00 + 25.50000 -65.50000 0.0000000E+00 + 26.50000 -65.50000 0.0000000E+00 + 27.50000 -65.50000 0.0000000E+00 + 28.50000 -65.50000 0.0000000E+00 + 29.50000 -65.50000 0.0000000E+00 + 30.50000 -65.50000 0.0000000E+00 + 31.50000 -65.50000 0.0000000E+00 + 32.50000 -65.50000 0.0000000E+00 + 33.50000 -65.50000 0.0000000E+00 + 34.50000 -65.50000 0.0000000E+00 + 35.50000 -65.50000 0.0000000E+00 + 36.50000 -65.50000 0.0000000E+00 + 37.50000 -65.50000 0.0000000E+00 + 38.50000 -65.50000 0.0000000E+00 + 39.50000 -65.50000 0.0000000E+00 + 40.50000 -65.50000 0.0000000E+00 + 41.50000 -65.50000 0.0000000E+00 + 42.50000 -65.50000 0.0000000E+00 + 43.50000 -65.50000 0.0000000E+00 + 44.50000 -65.50000 0.0000000E+00 + 45.50000 -65.50000 0.0000000E+00 + 46.50000 -65.50000 0.0000000E+00 + 47.50000 -65.50000 0.0000000E+00 + 48.50000 -65.50000 0.0000000E+00 + 49.50000 -65.50000 0.0000000E+00 + 50.50000 -65.50000 0.0000000E+00 + 51.50000 -65.50000 0.0000000E+00 + 52.50000 -65.50000 0.0000000E+00 + 53.50000 -65.50000 0.0000000E+00 + 54.50000 -65.50000 0.0000000E+00 + 55.50000 -65.50000 0.0000000E+00 + 56.50000 -65.50000 0.0000000E+00 + 57.50000 -65.50000 0.0000000E+00 + 58.50000 -65.50000 0.0000000E+00 + 59.50000 -65.50000 0.0000000E+00 + 60.50000 -65.50000 0.0000000E+00 + 61.50000 -65.50000 0.0000000E+00 + 62.50000 -65.50000 0.0000000E+00 + 63.50000 -65.50000 0.0000000E+00 + 64.50000 -65.50000 0.0000000E+00 + 65.50000 -65.50000 0.0000000E+00 + 66.50000 -65.50000 0.0000000E+00 + 67.50000 -65.50000 0.0000000E+00 + 68.50000 -65.50000 0.0000000E+00 + 69.50000 -65.50000 0.0000000E+00 + 70.50000 -65.50000 0.0000000E+00 + 71.50000 -65.50000 0.0000000E+00 + 72.50000 -65.50000 0.0000000E+00 + 73.50000 -65.50000 0.0000000E+00 + 74.50000 -65.50000 0.0000000E+00 + 75.50000 -65.50000 0.0000000E+00 + 76.50000 -65.50000 0.0000000E+00 + 77.50000 -65.50000 0.0000000E+00 + 78.50000 -65.50000 0.0000000E+00 + 79.50000 -65.50000 0.0000000E+00 + 80.50000 -65.50000 0.0000000E+00 + 81.50000 -65.50000 0.0000000E+00 + 82.50000 -65.50000 0.0000000E+00 + 83.50000 -65.50000 0.0000000E+00 + 84.50000 -65.50000 0.0000000E+00 + 85.50000 -65.50000 0.0000000E+00 + 86.50000 -65.50000 0.0000000E+00 + 87.50000 -65.50000 0.0000000E+00 + 88.50000 -65.50000 0.0000000E+00 + 89.50000 -65.50000 0.0000000E+00 + -89.50000 -64.50000 0.0000000E+00 + -88.50000 -64.50000 0.0000000E+00 + -87.50000 -64.50000 0.0000000E+00 + -86.50000 -64.50000 0.0000000E+00 + -85.50000 -64.50000 0.0000000E+00 + -84.50000 -64.50000 0.0000000E+00 + -83.50000 -64.50000 0.0000000E+00 + -82.50000 -64.50000 0.0000000E+00 + -81.50000 -64.50000 0.0000000E+00 + -80.50000 -64.50000 0.0000000E+00 + -79.50000 -64.50000 0.0000000E+00 + -78.50000 -64.50000 0.0000000E+00 + -77.50000 -64.50000 0.0000000E+00 + -76.50000 -64.50000 0.0000000E+00 + -75.50000 -64.50000 0.0000000E+00 + -74.50000 -64.50000 0.0000000E+00 + -73.50000 -64.50000 0.0000000E+00 + -72.50000 -64.50000 0.0000000E+00 + -71.50000 -64.50000 0.0000000E+00 + -70.50000 -64.50000 0.0000000E+00 + -69.50000 -64.50000 0.0000000E+00 + -68.50000 -64.50000 0.0000000E+00 + -67.50000 -64.50000 0.0000000E+00 + -66.50000 -64.50000 0.0000000E+00 + -65.50000 -64.50000 0.0000000E+00 + -64.50000 -64.50000 0.0000000E+00 + -63.50000 -64.50000 0.0000000E+00 + -62.50000 -64.50000 0.0000000E+00 + -61.50000 -64.50000 0.0000000E+00 + -60.50000 -64.50000 0.0000000E+00 + -59.50000 -64.50000 0.0000000E+00 + -58.50000 -64.50000 0.0000000E+00 + -57.50000 -64.50000 0.0000000E+00 + -56.50000 -64.50000 0.0000000E+00 + -55.50000 -64.50000 0.0000000E+00 + -54.50000 -64.50000 0.0000000E+00 + -53.50000 -64.50000 0.0000000E+00 + -52.50000 -64.50000 0.0000000E+00 + -51.50000 -64.50000 0.0000000E+00 + -50.50000 -64.50000 0.0000000E+00 + -49.50000 -64.50000 0.0000000E+00 + -48.50000 -64.50000 0.0000000E+00 + -47.50000 -64.50000 0.0000000E+00 + -46.50000 -64.50000 0.0000000E+00 + -45.50000 -64.50000 0.0000000E+00 + -44.50000 -64.50000 0.0000000E+00 + -43.50000 -64.50000 0.0000000E+00 + -42.50000 -64.50000 0.0000000E+00 + -41.50000 -64.50000 0.0000000E+00 + -40.50000 -64.50000 4.4917233E-02 + -39.50000 -64.50000 0.0000000E+00 + -38.50000 -64.50000 0.0000000E+00 + -37.50000 -64.50000 0.0000000E+00 + -36.50000 -64.50000 0.0000000E+00 + -35.50000 -64.50000 0.0000000E+00 + -34.50000 -64.50000 0.0000000E+00 + -33.50000 -64.50000 0.0000000E+00 + -32.50000 -64.50000 0.0000000E+00 + -31.50000 -64.50000 0.0000000E+00 + -30.50000 -64.50000 0.0000000E+00 + -29.50000 -64.50000 0.0000000E+00 + -28.50000 -64.50000 0.0000000E+00 + -27.50000 -64.50000 0.0000000E+00 + -26.50000 -64.50000 0.0000000E+00 + -25.50000 -64.50000 0.0000000E+00 + -24.50000 -64.50000 0.0000000E+00 + -23.50000 -64.50000 0.0000000E+00 + -22.50000 -64.50000 0.0000000E+00 + -21.50000 -64.50000 0.0000000E+00 + -20.50000 -64.50000 0.0000000E+00 + -19.50000 -64.50000 0.0000000E+00 + -18.50000 -64.50000 0.0000000E+00 + -17.50000 -64.50000 0.0000000E+00 + -16.50000 -64.50000 0.0000000E+00 + -15.50000 -64.50000 0.0000000E+00 + -14.50000 -64.50000 0.0000000E+00 + -13.50000 -64.50000 0.0000000E+00 + -12.50000 -64.50000 0.0000000E+00 + -11.50000 -64.50000 0.0000000E+00 + -10.50000 -64.50000 0.0000000E+00 + -9.500000 -64.50000 0.0000000E+00 + -8.500000 -64.50000 0.0000000E+00 + -7.500000 -64.50000 0.0000000E+00 + -6.500000 -64.50000 0.0000000E+00 + -5.500000 -64.50000 0.0000000E+00 + -4.500000 -64.50000 0.0000000E+00 + -3.500000 -64.50000 0.0000000E+00 + -2.500000 -64.50000 0.0000000E+00 + -1.500000 -64.50000 0.0000000E+00 + -0.5000000 -64.50000 0.0000000E+00 + 0.5000000 -64.50000 0.0000000E+00 + 1.500000 -64.50000 0.0000000E+00 + 2.500000 -64.50000 0.0000000E+00 + 3.500000 -64.50000 0.0000000E+00 + 4.500000 -64.50000 0.0000000E+00 + 5.500000 -64.50000 0.0000000E+00 + 6.500000 -64.50000 0.0000000E+00 + 7.500000 -64.50000 0.0000000E+00 + 8.500000 -64.50000 0.0000000E+00 + 9.500000 -64.50000 0.0000000E+00 + 10.50000 -64.50000 0.0000000E+00 + 11.50000 -64.50000 0.0000000E+00 + 12.50000 -64.50000 0.0000000E+00 + 13.50000 -64.50000 0.0000000E+00 + 14.50000 -64.50000 0.0000000E+00 + 15.50000 -64.50000 0.0000000E+00 + 16.50000 -64.50000 0.0000000E+00 + 17.50000 -64.50000 0.0000000E+00 + 18.50000 -64.50000 0.0000000E+00 + 19.50000 -64.50000 0.0000000E+00 + 20.50000 -64.50000 0.0000000E+00 + 21.50000 -64.50000 0.0000000E+00 + 22.50000 -64.50000 0.0000000E+00 + 23.50000 -64.50000 0.0000000E+00 + 24.50000 -64.50000 0.0000000E+00 + 25.50000 -64.50000 0.0000000E+00 + 26.50000 -64.50000 0.0000000E+00 + 27.50000 -64.50000 0.0000000E+00 + 28.50000 -64.50000 0.0000000E+00 + 29.50000 -64.50000 0.0000000E+00 + 30.50000 -64.50000 0.0000000E+00 + 31.50000 -64.50000 0.0000000E+00 + 32.50000 -64.50000 0.0000000E+00 + 33.50000 -64.50000 0.0000000E+00 + 34.50000 -64.50000 0.0000000E+00 + 35.50000 -64.50000 0.0000000E+00 + 36.50000 -64.50000 0.0000000E+00 + 37.50000 -64.50000 0.0000000E+00 + 38.50000 -64.50000 0.0000000E+00 + 39.50000 -64.50000 0.0000000E+00 + 40.50000 -64.50000 0.0000000E+00 + 41.50000 -64.50000 0.0000000E+00 + 42.50000 -64.50000 0.0000000E+00 + 43.50000 -64.50000 0.0000000E+00 + 44.50000 -64.50000 0.0000000E+00 + 45.50000 -64.50000 0.0000000E+00 + 46.50000 -64.50000 0.0000000E+00 + 47.50000 -64.50000 0.0000000E+00 + 48.50000 -64.50000 0.0000000E+00 + 49.50000 -64.50000 0.0000000E+00 + 50.50000 -64.50000 0.0000000E+00 + 51.50000 -64.50000 0.0000000E+00 + 52.50000 -64.50000 0.0000000E+00 + 53.50000 -64.50000 0.0000000E+00 + 54.50000 -64.50000 0.0000000E+00 + 55.50000 -64.50000 0.0000000E+00 + 56.50000 -64.50000 0.0000000E+00 + 57.50000 -64.50000 0.0000000E+00 + 58.50000 -64.50000 0.0000000E+00 + 59.50000 -64.50000 0.0000000E+00 + 60.50000 -64.50000 0.0000000E+00 + 61.50000 -64.50000 0.0000000E+00 + 62.50000 -64.50000 0.0000000E+00 + 63.50000 -64.50000 0.0000000E+00 + 64.50000 -64.50000 0.0000000E+00 + 65.50000 -64.50000 0.0000000E+00 + 66.50000 -64.50000 0.0000000E+00 + 67.50000 -64.50000 0.0000000E+00 + 68.50000 -64.50000 0.0000000E+00 + 69.50000 -64.50000 0.0000000E+00 + 70.50000 -64.50000 0.0000000E+00 + 71.50000 -64.50000 0.0000000E+00 + 72.50000 -64.50000 0.0000000E+00 + 73.50000 -64.50000 0.0000000E+00 + 74.50000 -64.50000 0.0000000E+00 + 75.50000 -64.50000 0.0000000E+00 + 76.50000 -64.50000 0.0000000E+00 + 77.50000 -64.50000 0.0000000E+00 + 78.50000 -64.50000 0.0000000E+00 + 79.50000 -64.50000 0.0000000E+00 + 80.50000 -64.50000 0.0000000E+00 + 81.50000 -64.50000 0.0000000E+00 + 82.50000 -64.50000 0.0000000E+00 + 83.50000 -64.50000 0.0000000E+00 + 84.50000 -64.50000 0.0000000E+00 + 85.50000 -64.50000 0.0000000E+00 + 86.50000 -64.50000 0.0000000E+00 + 87.50000 -64.50000 0.0000000E+00 + 88.50000 -64.50000 0.0000000E+00 + 89.50000 -64.50000 0.0000000E+00 + -89.50000 -63.50000 0.0000000E+00 + -88.50000 -63.50000 0.0000000E+00 + -87.50000 -63.50000 0.0000000E+00 + -86.50000 -63.50000 0.0000000E+00 + -85.50000 -63.50000 0.0000000E+00 + -84.50000 -63.50000 0.0000000E+00 + -83.50000 -63.50000 0.0000000E+00 + -82.50000 -63.50000 0.0000000E+00 + -81.50000 -63.50000 0.0000000E+00 + -80.50000 -63.50000 0.0000000E+00 + -79.50000 -63.50000 0.0000000E+00 + -78.50000 -63.50000 0.0000000E+00 + -77.50000 -63.50000 0.0000000E+00 + -76.50000 -63.50000 0.0000000E+00 + -75.50000 -63.50000 0.0000000E+00 + -74.50000 -63.50000 0.0000000E+00 + -73.50000 -63.50000 0.0000000E+00 + -72.50000 -63.50000 0.0000000E+00 + -71.50000 -63.50000 0.0000000E+00 + -70.50000 -63.50000 0.0000000E+00 + -69.50000 -63.50000 0.0000000E+00 + -68.50000 -63.50000 0.0000000E+00 + -67.50000 -63.50000 0.0000000E+00 + -66.50000 -63.50000 0.0000000E+00 + -65.50000 -63.50000 0.0000000E+00 + -64.50000 -63.50000 0.0000000E+00 + -63.50000 -63.50000 0.0000000E+00 + -62.50000 -63.50000 0.0000000E+00 + -61.50000 -63.50000 0.0000000E+00 + -60.50000 -63.50000 0.0000000E+00 + -59.50000 -63.50000 0.0000000E+00 + -58.50000 -63.50000 0.0000000E+00 + -57.50000 -63.50000 0.0000000E+00 + -56.50000 -63.50000 0.0000000E+00 + -55.50000 -63.50000 0.0000000E+00 + -54.50000 -63.50000 0.0000000E+00 + -53.50000 -63.50000 0.0000000E+00 + -52.50000 -63.50000 0.0000000E+00 + -51.50000 -63.50000 0.0000000E+00 + -50.50000 -63.50000 0.0000000E+00 + -49.50000 -63.50000 0.0000000E+00 + -48.50000 -63.50000 0.0000000E+00 + -47.50000 -63.50000 0.0000000E+00 + -46.50000 -63.50000 0.0000000E+00 + -45.50000 -63.50000 0.0000000E+00 + -44.50000 -63.50000 0.0000000E+00 + -43.50000 -63.50000 0.0000000E+00 + -42.50000 -63.50000 0.0000000E+00 + -41.50000 -63.50000 0.0000000E+00 + -40.50000 -63.50000 0.0000000E+00 + -39.50000 -63.50000 0.0000000E+00 + -38.50000 -63.50000 0.0000000E+00 + -37.50000 -63.50000 0.0000000E+00 + -36.50000 -63.50000 0.0000000E+00 + -35.50000 -63.50000 0.0000000E+00 + -34.50000 -63.50000 0.0000000E+00 + -33.50000 -63.50000 0.0000000E+00 + -32.50000 -63.50000 0.0000000E+00 + -31.50000 -63.50000 0.0000000E+00 + -30.50000 -63.50000 0.0000000E+00 + -29.50000 -63.50000 0.0000000E+00 + -28.50000 -63.50000 0.0000000E+00 + -27.50000 -63.50000 0.0000000E+00 + -26.50000 -63.50000 0.0000000E+00 + -25.50000 -63.50000 0.0000000E+00 + -24.50000 -63.50000 0.0000000E+00 + -23.50000 -63.50000 0.0000000E+00 + -22.50000 -63.50000 0.0000000E+00 + -21.50000 -63.50000 0.0000000E+00 + -20.50000 -63.50000 0.0000000E+00 + -19.50000 -63.50000 0.0000000E+00 + -18.50000 -63.50000 0.0000000E+00 + -17.50000 -63.50000 0.0000000E+00 + -16.50000 -63.50000 0.0000000E+00 + -15.50000 -63.50000 0.0000000E+00 + -14.50000 -63.50000 0.0000000E+00 + -13.50000 -63.50000 0.0000000E+00 + -12.50000 -63.50000 0.0000000E+00 + -11.50000 -63.50000 0.0000000E+00 + -10.50000 -63.50000 0.0000000E+00 + -9.500000 -63.50000 0.0000000E+00 + -8.500000 -63.50000 0.0000000E+00 + -7.500000 -63.50000 0.0000000E+00 + -6.500000 -63.50000 0.0000000E+00 + -5.500000 -63.50000 0.0000000E+00 + -4.500000 -63.50000 0.0000000E+00 + -3.500000 -63.50000 0.0000000E+00 + -2.500000 -63.50000 0.0000000E+00 + -1.500000 -63.50000 0.0000000E+00 + -0.5000000 -63.50000 0.0000000E+00 + 0.5000000 -63.50000 0.0000000E+00 + 1.500000 -63.50000 0.0000000E+00 + 2.500000 -63.50000 0.0000000E+00 + 3.500000 -63.50000 0.0000000E+00 + 4.500000 -63.50000 0.0000000E+00 + 5.500000 -63.50000 0.0000000E+00 + 6.500000 -63.50000 0.0000000E+00 + 7.500000 -63.50000 0.0000000E+00 + 8.500000 -63.50000 0.0000000E+00 + 9.500000 -63.50000 0.0000000E+00 + 10.50000 -63.50000 0.0000000E+00 + 11.50000 -63.50000 0.0000000E+00 + 12.50000 -63.50000 0.0000000E+00 + 13.50000 -63.50000 0.0000000E+00 + 14.50000 -63.50000 0.0000000E+00 + 15.50000 -63.50000 0.0000000E+00 + 16.50000 -63.50000 0.0000000E+00 + 17.50000 -63.50000 0.0000000E+00 + 18.50000 -63.50000 0.0000000E+00 + 19.50000 -63.50000 0.0000000E+00 + 20.50000 -63.50000 0.0000000E+00 + 21.50000 -63.50000 0.0000000E+00 + 22.50000 -63.50000 0.0000000E+00 + 23.50000 -63.50000 0.0000000E+00 + 24.50000 -63.50000 0.0000000E+00 + 25.50000 -63.50000 0.0000000E+00 + 26.50000 -63.50000 0.0000000E+00 + 27.50000 -63.50000 0.0000000E+00 + 28.50000 -63.50000 0.0000000E+00 + 29.50000 -63.50000 0.0000000E+00 + 30.50000 -63.50000 0.0000000E+00 + 31.50000 -63.50000 0.0000000E+00 + 32.50000 -63.50000 0.0000000E+00 + 33.50000 -63.50000 0.0000000E+00 + 34.50000 -63.50000 0.0000000E+00 + 35.50000 -63.50000 0.0000000E+00 + 36.50000 -63.50000 0.0000000E+00 + 37.50000 -63.50000 0.0000000E+00 + 38.50000 -63.50000 0.0000000E+00 + 39.50000 -63.50000 0.0000000E+00 + 40.50000 -63.50000 0.0000000E+00 + 41.50000 -63.50000 0.0000000E+00 + 42.50000 -63.50000 0.0000000E+00 + 43.50000 -63.50000 0.0000000E+00 + 44.50000 -63.50000 0.0000000E+00 + 45.50000 -63.50000 0.0000000E+00 + 46.50000 -63.50000 0.0000000E+00 + 47.50000 -63.50000 0.0000000E+00 + 48.50000 -63.50000 0.0000000E+00 + 49.50000 -63.50000 0.0000000E+00 + 50.50000 -63.50000 0.0000000E+00 + 51.50000 -63.50000 0.0000000E+00 + 52.50000 -63.50000 0.0000000E+00 + 53.50000 -63.50000 0.0000000E+00 + 54.50000 -63.50000 0.0000000E+00 + 55.50000 -63.50000 0.0000000E+00 + 56.50000 -63.50000 0.0000000E+00 + 57.50000 -63.50000 0.0000000E+00 + 58.50000 -63.50000 0.0000000E+00 + 59.50000 -63.50000 0.0000000E+00 + 60.50000 -63.50000 0.0000000E+00 + 61.50000 -63.50000 0.0000000E+00 + 62.50000 -63.50000 0.0000000E+00 + 63.50000 -63.50000 0.0000000E+00 + 64.50000 -63.50000 0.0000000E+00 + 65.50000 -63.50000 0.0000000E+00 + 66.50000 -63.50000 0.0000000E+00 + 67.50000 -63.50000 0.0000000E+00 + 68.50000 -63.50000 0.0000000E+00 + 69.50000 -63.50000 0.0000000E+00 + 70.50000 -63.50000 0.0000000E+00 + 71.50000 -63.50000 0.0000000E+00 + 72.50000 -63.50000 0.0000000E+00 + 73.50000 -63.50000 0.0000000E+00 + 74.50000 -63.50000 0.0000000E+00 + 75.50000 -63.50000 0.0000000E+00 + 76.50000 -63.50000 0.0000000E+00 + 77.50000 -63.50000 0.0000000E+00 + 78.50000 -63.50000 0.0000000E+00 + 79.50000 -63.50000 0.0000000E+00 + 80.50000 -63.50000 0.0000000E+00 + 81.50000 -63.50000 0.0000000E+00 + 82.50000 -63.50000 0.0000000E+00 + 83.50000 -63.50000 0.0000000E+00 + 84.50000 -63.50000 0.0000000E+00 + 85.50000 -63.50000 0.0000000E+00 + 86.50000 -63.50000 0.0000000E+00 + 87.50000 -63.50000 0.0000000E+00 + 88.50000 -63.50000 0.0000000E+00 + 89.50000 -63.50000 0.0000000E+00 + -89.50000 -62.50000 0.0000000E+00 + -88.50000 -62.50000 0.0000000E+00 + -87.50000 -62.50000 0.0000000E+00 + -86.50000 -62.50000 0.0000000E+00 + -85.50000 -62.50000 0.0000000E+00 + -84.50000 -62.50000 0.0000000E+00 + -83.50000 -62.50000 0.0000000E+00 + -82.50000 -62.50000 0.0000000E+00 + -81.50000 -62.50000 0.0000000E+00 + -80.50000 -62.50000 0.0000000E+00 + -79.50000 -62.50000 0.0000000E+00 + -78.50000 -62.50000 0.0000000E+00 + -77.50000 -62.50000 0.0000000E+00 + -76.50000 -62.50000 0.0000000E+00 + -75.50000 -62.50000 0.0000000E+00 + -74.50000 -62.50000 0.0000000E+00 + -73.50000 -62.50000 0.0000000E+00 + -72.50000 -62.50000 0.0000000E+00 + -71.50000 -62.50000 0.0000000E+00 + -70.50000 -62.50000 0.0000000E+00 + -69.50000 -62.50000 0.0000000E+00 + -68.50000 -62.50000 0.0000000E+00 + -67.50000 -62.50000 0.0000000E+00 + -66.50000 -62.50000 0.0000000E+00 + -65.50000 -62.50000 0.0000000E+00 + -64.50000 -62.50000 0.0000000E+00 + -63.50000 -62.50000 0.0000000E+00 + -62.50000 -62.50000 0.0000000E+00 + -61.50000 -62.50000 0.0000000E+00 + -60.50000 -62.50000 0.0000000E+00 + -59.50000 -62.50000 0.0000000E+00 + -58.50000 -62.50000 0.0000000E+00 + -57.50000 -62.50000 0.0000000E+00 + -56.50000 -62.50000 0.0000000E+00 + -55.50000 -62.50000 0.0000000E+00 + -54.50000 -62.50000 0.0000000E+00 + -53.50000 -62.50000 0.0000000E+00 + -52.50000 -62.50000 0.0000000E+00 + -51.50000 -62.50000 0.0000000E+00 + -50.50000 -62.50000 0.0000000E+00 + -49.50000 -62.50000 0.0000000E+00 + -48.50000 -62.50000 0.0000000E+00 + -47.50000 -62.50000 0.0000000E+00 + -46.50000 -62.50000 0.0000000E+00 + -45.50000 -62.50000 0.0000000E+00 + -44.50000 -62.50000 0.0000000E+00 + -43.50000 -62.50000 0.0000000E+00 + -42.50000 -62.50000 0.0000000E+00 + -41.50000 -62.50000 0.0000000E+00 + -40.50000 -62.50000 0.0000000E+00 + -39.50000 -62.50000 0.0000000E+00 + -38.50000 -62.50000 0.0000000E+00 + -37.50000 -62.50000 0.0000000E+00 + -36.50000 -62.50000 0.0000000E+00 + -35.50000 -62.50000 0.0000000E+00 + -34.50000 -62.50000 0.0000000E+00 + -33.50000 -62.50000 0.0000000E+00 + -32.50000 -62.50000 0.0000000E+00 + -31.50000 -62.50000 0.0000000E+00 + -30.50000 -62.50000 0.0000000E+00 + -29.50000 -62.50000 0.0000000E+00 + -28.50000 -62.50000 0.0000000E+00 + -27.50000 -62.50000 0.0000000E+00 + -26.50000 -62.50000 0.0000000E+00 + -25.50000 -62.50000 0.0000000E+00 + -24.50000 -62.50000 0.0000000E+00 + -23.50000 -62.50000 0.0000000E+00 + -22.50000 -62.50000 0.0000000E+00 + -21.50000 -62.50000 0.0000000E+00 + -20.50000 -62.50000 0.0000000E+00 + -19.50000 -62.50000 0.0000000E+00 + -18.50000 -62.50000 0.0000000E+00 + -17.50000 -62.50000 0.0000000E+00 + -16.50000 -62.50000 0.0000000E+00 + -15.50000 -62.50000 0.0000000E+00 + -14.50000 -62.50000 0.0000000E+00 + -13.50000 -62.50000 0.0000000E+00 + -12.50000 -62.50000 0.0000000E+00 + -11.50000 -62.50000 0.0000000E+00 + -10.50000 -62.50000 0.0000000E+00 + -9.500000 -62.50000 0.0000000E+00 + -8.500000 -62.50000 0.0000000E+00 + -7.500000 -62.50000 0.0000000E+00 + -6.500000 -62.50000 0.0000000E+00 + -5.500000 -62.50000 0.0000000E+00 + -4.500000 -62.50000 0.0000000E+00 + -3.500000 -62.50000 0.0000000E+00 + -2.500000 -62.50000 0.0000000E+00 + -1.500000 -62.50000 0.0000000E+00 + -0.5000000 -62.50000 0.0000000E+00 + 0.5000000 -62.50000 0.0000000E+00 + 1.500000 -62.50000 0.0000000E+00 + 2.500000 -62.50000 0.0000000E+00 + 3.500000 -62.50000 0.0000000E+00 + 4.500000 -62.50000 0.0000000E+00 + 5.500000 -62.50000 0.0000000E+00 + 6.500000 -62.50000 0.0000000E+00 + 7.500000 -62.50000 0.0000000E+00 + 8.500000 -62.50000 0.0000000E+00 + 9.500000 -62.50000 0.0000000E+00 + 10.50000 -62.50000 0.0000000E+00 + 11.50000 -62.50000 0.0000000E+00 + 12.50000 -62.50000 0.0000000E+00 + 13.50000 -62.50000 0.0000000E+00 + 14.50000 -62.50000 0.0000000E+00 + 15.50000 -62.50000 0.0000000E+00 + 16.50000 -62.50000 0.0000000E+00 + 17.50000 -62.50000 0.0000000E+00 + 18.50000 -62.50000 0.0000000E+00 + 19.50000 -62.50000 0.0000000E+00 + 20.50000 -62.50000 0.0000000E+00 + 21.50000 -62.50000 0.0000000E+00 + 22.50000 -62.50000 0.0000000E+00 + 23.50000 -62.50000 0.0000000E+00 + 24.50000 -62.50000 0.0000000E+00 + 25.50000 -62.50000 0.0000000E+00 + 26.50000 -62.50000 0.0000000E+00 + 27.50000 -62.50000 0.0000000E+00 + 28.50000 -62.50000 0.0000000E+00 + 29.50000 -62.50000 0.0000000E+00 + 30.50000 -62.50000 0.0000000E+00 + 31.50000 -62.50000 0.0000000E+00 + 32.50000 -62.50000 0.0000000E+00 + 33.50000 -62.50000 0.0000000E+00 + 34.50000 -62.50000 0.0000000E+00 + 35.50000 -62.50000 0.0000000E+00 + 36.50000 -62.50000 0.0000000E+00 + 37.50000 -62.50000 0.0000000E+00 + 38.50000 -62.50000 0.0000000E+00 + 39.50000 -62.50000 0.0000000E+00 + 40.50000 -62.50000 0.0000000E+00 + 41.50000 -62.50000 0.0000000E+00 + 42.50000 -62.50000 0.0000000E+00 + 43.50000 -62.50000 0.0000000E+00 + 44.50000 -62.50000 0.0000000E+00 + 45.50000 -62.50000 0.0000000E+00 + 46.50000 -62.50000 0.0000000E+00 + 47.50000 -62.50000 0.0000000E+00 + 48.50000 -62.50000 0.0000000E+00 + 49.50000 -62.50000 0.0000000E+00 + 50.50000 -62.50000 0.0000000E+00 + 51.50000 -62.50000 0.0000000E+00 + 52.50000 -62.50000 0.0000000E+00 + 53.50000 -62.50000 0.0000000E+00 + 54.50000 -62.50000 0.0000000E+00 + 55.50000 -62.50000 0.0000000E+00 + 56.50000 -62.50000 0.0000000E+00 + 57.50000 -62.50000 0.0000000E+00 + 58.50000 -62.50000 0.0000000E+00 + 59.50000 -62.50000 0.0000000E+00 + 60.50000 -62.50000 0.0000000E+00 + 61.50000 -62.50000 0.0000000E+00 + 62.50000 -62.50000 0.0000000E+00 + 63.50000 -62.50000 0.0000000E+00 + 64.50000 -62.50000 0.0000000E+00 + 65.50000 -62.50000 0.0000000E+00 + 66.50000 -62.50000 0.0000000E+00 + 67.50000 -62.50000 0.0000000E+00 + 68.50000 -62.50000 0.0000000E+00 + 69.50000 -62.50000 0.0000000E+00 + 70.50000 -62.50000 0.0000000E+00 + 71.50000 -62.50000 0.0000000E+00 + 72.50000 -62.50000 0.0000000E+00 + 73.50000 -62.50000 0.0000000E+00 + 74.50000 -62.50000 0.0000000E+00 + 75.50000 -62.50000 0.0000000E+00 + 76.50000 -62.50000 0.0000000E+00 + 77.50000 -62.50000 0.0000000E+00 + 78.50000 -62.50000 0.0000000E+00 + 79.50000 -62.50000 0.0000000E+00 + 80.50000 -62.50000 0.0000000E+00 + 81.50000 -62.50000 0.0000000E+00 + 82.50000 -62.50000 0.0000000E+00 + 83.50000 -62.50000 0.0000000E+00 + 84.50000 -62.50000 0.0000000E+00 + 85.50000 -62.50000 0.0000000E+00 + 86.50000 -62.50000 0.0000000E+00 + 87.50000 -62.50000 0.0000000E+00 + 88.50000 -62.50000 0.0000000E+00 + 89.50000 -62.50000 0.0000000E+00 + -89.50000 -61.50000 0.0000000E+00 + -88.50000 -61.50000 0.0000000E+00 + -87.50000 -61.50000 0.0000000E+00 + -86.50000 -61.50000 0.0000000E+00 + -85.50000 -61.50000 0.0000000E+00 + -84.50000 -61.50000 0.0000000E+00 + -83.50000 -61.50000 0.0000000E+00 + -82.50000 -61.50000 0.0000000E+00 + -81.50000 -61.50000 0.0000000E+00 + -80.50000 -61.50000 0.0000000E+00 + -79.50000 -61.50000 0.0000000E+00 + -78.50000 -61.50000 0.0000000E+00 + -77.50000 -61.50000 0.0000000E+00 + -76.50000 -61.50000 0.0000000E+00 + -75.50000 -61.50000 0.0000000E+00 + -74.50000 -61.50000 0.0000000E+00 + -73.50000 -61.50000 0.0000000E+00 + -72.50000 -61.50000 0.0000000E+00 + -71.50000 -61.50000 0.0000000E+00 + -70.50000 -61.50000 0.0000000E+00 + -69.50000 -61.50000 0.0000000E+00 + -68.50000 -61.50000 0.0000000E+00 + -67.50000 -61.50000 0.0000000E+00 + -66.50000 -61.50000 0.0000000E+00 + -65.50000 -61.50000 0.0000000E+00 + -64.50000 -61.50000 0.0000000E+00 + -63.50000 -61.50000 0.0000000E+00 + -62.50000 -61.50000 0.0000000E+00 + -61.50000 -61.50000 0.0000000E+00 + -60.50000 -61.50000 0.0000000E+00 + -59.50000 -61.50000 0.0000000E+00 + -58.50000 -61.50000 0.0000000E+00 + -57.50000 -61.50000 0.0000000E+00 + -56.50000 -61.50000 0.0000000E+00 + -55.50000 -61.50000 0.0000000E+00 + -54.50000 -61.50000 0.0000000E+00 + -53.50000 -61.50000 0.0000000E+00 + -52.50000 -61.50000 0.0000000E+00 + -51.50000 -61.50000 0.0000000E+00 + -50.50000 -61.50000 0.0000000E+00 + -49.50000 -61.50000 0.0000000E+00 + -48.50000 -61.50000 0.0000000E+00 + -47.50000 -61.50000 0.0000000E+00 + -46.50000 -61.50000 0.0000000E+00 + -45.50000 -61.50000 0.0000000E+00 + -44.50000 -61.50000 0.0000000E+00 + -43.50000 -61.50000 0.0000000E+00 + -42.50000 -61.50000 0.0000000E+00 + -41.50000 -61.50000 0.0000000E+00 + -40.50000 -61.50000 0.0000000E+00 + -39.50000 -61.50000 0.0000000E+00 + -38.50000 -61.50000 0.0000000E+00 + -37.50000 -61.50000 0.0000000E+00 + -36.50000 -61.50000 0.0000000E+00 + -35.50000 -61.50000 0.0000000E+00 + -34.50000 -61.50000 0.0000000E+00 + -33.50000 -61.50000 0.0000000E+00 + -32.50000 -61.50000 0.0000000E+00 + -31.50000 -61.50000 0.0000000E+00 + -30.50000 -61.50000 0.0000000E+00 + -29.50000 -61.50000 0.0000000E+00 + -28.50000 -61.50000 0.0000000E+00 + -27.50000 -61.50000 0.0000000E+00 + -26.50000 -61.50000 0.0000000E+00 + -25.50000 -61.50000 0.0000000E+00 + -24.50000 -61.50000 0.0000000E+00 + -23.50000 -61.50000 0.0000000E+00 + -22.50000 -61.50000 0.0000000E+00 + -21.50000 -61.50000 0.0000000E+00 + -20.50000 -61.50000 0.0000000E+00 + -19.50000 -61.50000 0.0000000E+00 + -18.50000 -61.50000 0.0000000E+00 + -17.50000 -61.50000 0.0000000E+00 + -16.50000 -61.50000 0.0000000E+00 + -15.50000 -61.50000 0.0000000E+00 + -14.50000 -61.50000 0.0000000E+00 + -13.50000 -61.50000 0.0000000E+00 + -12.50000 -61.50000 0.0000000E+00 + -11.50000 -61.50000 0.0000000E+00 + -10.50000 -61.50000 0.0000000E+00 + -9.500000 -61.50000 0.0000000E+00 + -8.500000 -61.50000 0.0000000E+00 + -7.500000 -61.50000 0.0000000E+00 + -6.500000 -61.50000 0.0000000E+00 + -5.500000 -61.50000 0.0000000E+00 + -4.500000 -61.50000 0.0000000E+00 + -3.500000 -61.50000 0.0000000E+00 + -2.500000 -61.50000 0.0000000E+00 + -1.500000 -61.50000 0.0000000E+00 + -0.5000000 -61.50000 0.0000000E+00 + 0.5000000 -61.50000 0.0000000E+00 + 1.500000 -61.50000 0.0000000E+00 + 2.500000 -61.50000 0.0000000E+00 + 3.500000 -61.50000 0.0000000E+00 + 4.500000 -61.50000 0.0000000E+00 + 5.500000 -61.50000 0.0000000E+00 + 6.500000 -61.50000 0.0000000E+00 + 7.500000 -61.50000 0.0000000E+00 + 8.500000 -61.50000 0.0000000E+00 + 9.500000 -61.50000 0.0000000E+00 + 10.50000 -61.50000 0.0000000E+00 + 11.50000 -61.50000 0.0000000E+00 + 12.50000 -61.50000 0.0000000E+00 + 13.50000 -61.50000 0.0000000E+00 + 14.50000 -61.50000 0.0000000E+00 + 15.50000 -61.50000 0.0000000E+00 + 16.50000 -61.50000 0.0000000E+00 + 17.50000 -61.50000 0.0000000E+00 + 18.50000 -61.50000 0.0000000E+00 + 19.50000 -61.50000 0.0000000E+00 + 20.50000 -61.50000 0.0000000E+00 + 21.50000 -61.50000 0.0000000E+00 + 22.50000 -61.50000 0.0000000E+00 + 23.50000 -61.50000 0.0000000E+00 + 24.50000 -61.50000 0.0000000E+00 + 25.50000 -61.50000 0.0000000E+00 + 26.50000 -61.50000 0.0000000E+00 + 27.50000 -61.50000 0.0000000E+00 + 28.50000 -61.50000 0.0000000E+00 + 29.50000 -61.50000 0.0000000E+00 + 30.50000 -61.50000 0.0000000E+00 + 31.50000 -61.50000 0.0000000E+00 + 32.50000 -61.50000 0.0000000E+00 + 33.50000 -61.50000 0.0000000E+00 + 34.50000 -61.50000 0.0000000E+00 + 35.50000 -61.50000 0.0000000E+00 + 36.50000 -61.50000 0.0000000E+00 + 37.50000 -61.50000 0.0000000E+00 + 38.50000 -61.50000 0.0000000E+00 + 39.50000 -61.50000 0.0000000E+00 + 40.50000 -61.50000 0.0000000E+00 + 41.50000 -61.50000 0.0000000E+00 + 42.50000 -61.50000 0.0000000E+00 + 43.50000 -61.50000 0.0000000E+00 + 44.50000 -61.50000 0.0000000E+00 + 45.50000 -61.50000 0.0000000E+00 + 46.50000 -61.50000 0.0000000E+00 + 47.50000 -61.50000 0.0000000E+00 + 48.50000 -61.50000 0.0000000E+00 + 49.50000 -61.50000 0.0000000E+00 + 50.50000 -61.50000 0.0000000E+00 + 51.50000 -61.50000 0.0000000E+00 + 52.50000 -61.50000 0.0000000E+00 + 53.50000 -61.50000 0.0000000E+00 + 54.50000 -61.50000 0.0000000E+00 + 55.50000 -61.50000 0.0000000E+00 + 56.50000 -61.50000 0.0000000E+00 + 57.50000 -61.50000 0.0000000E+00 + 58.50000 -61.50000 0.0000000E+00 + 59.50000 -61.50000 0.0000000E+00 + 60.50000 -61.50000 0.0000000E+00 + 61.50000 -61.50000 0.0000000E+00 + 62.50000 -61.50000 0.0000000E+00 + 63.50000 -61.50000 0.0000000E+00 + 64.50000 -61.50000 0.0000000E+00 + 65.50000 -61.50000 0.0000000E+00 + 66.50000 -61.50000 0.0000000E+00 + 67.50000 -61.50000 0.0000000E+00 + 68.50000 -61.50000 0.0000000E+00 + 69.50000 -61.50000 0.0000000E+00 + 70.50000 -61.50000 0.0000000E+00 + 71.50000 -61.50000 0.0000000E+00 + 72.50000 -61.50000 0.0000000E+00 + 73.50000 -61.50000 0.0000000E+00 + 74.50000 -61.50000 0.0000000E+00 + 75.50000 -61.50000 0.0000000E+00 + 76.50000 -61.50000 0.0000000E+00 + 77.50000 -61.50000 0.0000000E+00 + 78.50000 -61.50000 0.0000000E+00 + 79.50000 -61.50000 0.0000000E+00 + 80.50000 -61.50000 0.0000000E+00 + 81.50000 -61.50000 0.0000000E+00 + 82.50000 -61.50000 0.0000000E+00 + 83.50000 -61.50000 0.0000000E+00 + 84.50000 -61.50000 0.0000000E+00 + 85.50000 -61.50000 0.0000000E+00 + 86.50000 -61.50000 0.0000000E+00 + 87.50000 -61.50000 0.0000000E+00 + 88.50000 -61.50000 0.0000000E+00 + 89.50000 -61.50000 0.0000000E+00 + -89.50000 -60.50000 0.0000000E+00 + -88.50000 -60.50000 0.0000000E+00 + -87.50000 -60.50000 0.0000000E+00 + -86.50000 -60.50000 0.0000000E+00 + -85.50000 -60.50000 0.0000000E+00 + -84.50000 -60.50000 0.0000000E+00 + -83.50000 -60.50000 0.0000000E+00 + -82.50000 -60.50000 0.0000000E+00 + -81.50000 -60.50000 0.0000000E+00 + -80.50000 -60.50000 0.0000000E+00 + -79.50000 -60.50000 0.0000000E+00 + -78.50000 -60.50000 0.0000000E+00 + -77.50000 -60.50000 0.0000000E+00 + -76.50000 -60.50000 0.0000000E+00 + -75.50000 -60.50000 0.0000000E+00 + -74.50000 -60.50000 0.0000000E+00 + -73.50000 -60.50000 0.0000000E+00 + -72.50000 -60.50000 0.0000000E+00 + -71.50000 -60.50000 0.0000000E+00 + -70.50000 -60.50000 0.0000000E+00 + -69.50000 -60.50000 0.0000000E+00 + -68.50000 -60.50000 0.0000000E+00 + -67.50000 -60.50000 0.0000000E+00 + -66.50000 -60.50000 0.0000000E+00 + -65.50000 -60.50000 0.0000000E+00 + -64.50000 -60.50000 0.0000000E+00 + -63.50000 -60.50000 0.0000000E+00 + -62.50000 -60.50000 0.0000000E+00 + -61.50000 -60.50000 0.0000000E+00 + -60.50000 -60.50000 0.0000000E+00 + -59.50000 -60.50000 0.0000000E+00 + -58.50000 -60.50000 0.0000000E+00 + -57.50000 -60.50000 0.0000000E+00 + -56.50000 -60.50000 0.0000000E+00 + -55.50000 -60.50000 0.0000000E+00 + -54.50000 -60.50000 0.0000000E+00 + -53.50000 -60.50000 0.0000000E+00 + -52.50000 -60.50000 0.0000000E+00 + -51.50000 -60.50000 0.0000000E+00 + -50.50000 -60.50000 0.0000000E+00 + -49.50000 -60.50000 0.0000000E+00 + -48.50000 -60.50000 0.0000000E+00 + -47.50000 -60.50000 0.0000000E+00 + -46.50000 -60.50000 0.0000000E+00 + -45.50000 -60.50000 0.0000000E+00 + -44.50000 -60.50000 0.0000000E+00 + -43.50000 -60.50000 0.0000000E+00 + -42.50000 -60.50000 0.0000000E+00 + -41.50000 -60.50000 0.0000000E+00 + -40.50000 -60.50000 0.0000000E+00 + -39.50000 -60.50000 0.0000000E+00 + -38.50000 -60.50000 0.0000000E+00 + -37.50000 -60.50000 0.0000000E+00 + -36.50000 -60.50000 0.0000000E+00 + -35.50000 -60.50000 0.0000000E+00 + -34.50000 -60.50000 0.0000000E+00 + -33.50000 -60.50000 0.0000000E+00 + -32.50000 -60.50000 0.0000000E+00 + -31.50000 -60.50000 0.0000000E+00 + -30.50000 -60.50000 0.0000000E+00 + -29.50000 -60.50000 0.0000000E+00 + -28.50000 -60.50000 0.0000000E+00 + -27.50000 -60.50000 0.0000000E+00 + -26.50000 -60.50000 0.0000000E+00 + -25.50000 -60.50000 0.0000000E+00 + -24.50000 -60.50000 0.0000000E+00 + -23.50000 -60.50000 0.0000000E+00 + -22.50000 -60.50000 0.0000000E+00 + -21.50000 -60.50000 0.0000000E+00 + -20.50000 -60.50000 0.0000000E+00 + -19.50000 -60.50000 0.0000000E+00 + -18.50000 -60.50000 0.0000000E+00 + -17.50000 -60.50000 0.0000000E+00 + -16.50000 -60.50000 0.0000000E+00 + -15.50000 -60.50000 0.0000000E+00 + -14.50000 -60.50000 0.0000000E+00 + -13.50000 -60.50000 0.0000000E+00 + -12.50000 -60.50000 0.0000000E+00 + -11.50000 -60.50000 0.0000000E+00 + -10.50000 -60.50000 0.0000000E+00 + -9.500000 -60.50000 0.0000000E+00 + -8.500000 -60.50000 0.0000000E+00 + -7.500000 -60.50000 0.0000000E+00 + -6.500000 -60.50000 0.0000000E+00 + -5.500000 -60.50000 0.0000000E+00 + -4.500000 -60.50000 0.0000000E+00 + -3.500000 -60.50000 0.0000000E+00 + -2.500000 -60.50000 0.0000000E+00 + -1.500000 -60.50000 0.0000000E+00 + -0.5000000 -60.50000 0.0000000E+00 + 0.5000000 -60.50000 0.0000000E+00 + 1.500000 -60.50000 0.0000000E+00 + 2.500000 -60.50000 0.0000000E+00 + 3.500000 -60.50000 0.0000000E+00 + 4.500000 -60.50000 0.0000000E+00 + 5.500000 -60.50000 0.0000000E+00 + 6.500000 -60.50000 0.0000000E+00 + 7.500000 -60.50000 0.0000000E+00 + 8.500000 -60.50000 0.0000000E+00 + 9.500000 -60.50000 0.0000000E+00 + 10.50000 -60.50000 0.0000000E+00 + 11.50000 -60.50000 0.0000000E+00 + 12.50000 -60.50000 0.0000000E+00 + 13.50000 -60.50000 0.0000000E+00 + 14.50000 -60.50000 0.0000000E+00 + 15.50000 -60.50000 0.0000000E+00 + 16.50000 -60.50000 0.0000000E+00 + 17.50000 -60.50000 0.0000000E+00 + 18.50000 -60.50000 0.0000000E+00 + 19.50000 -60.50000 0.0000000E+00 + 20.50000 -60.50000 0.0000000E+00 + 21.50000 -60.50000 0.0000000E+00 + 22.50000 -60.50000 0.0000000E+00 + 23.50000 -60.50000 0.0000000E+00 + 24.50000 -60.50000 0.0000000E+00 + 25.50000 -60.50000 0.0000000E+00 + 26.50000 -60.50000 0.0000000E+00 + 27.50000 -60.50000 0.0000000E+00 + 28.50000 -60.50000 0.0000000E+00 + 29.50000 -60.50000 0.0000000E+00 + 30.50000 -60.50000 0.0000000E+00 + 31.50000 -60.50000 0.0000000E+00 + 32.50000 -60.50000 0.0000000E+00 + 33.50000 -60.50000 0.0000000E+00 + 34.50000 -60.50000 0.0000000E+00 + 35.50000 -60.50000 0.0000000E+00 + 36.50000 -60.50000 0.0000000E+00 + 37.50000 -60.50000 0.0000000E+00 + 38.50000 -60.50000 0.0000000E+00 + 39.50000 -60.50000 0.0000000E+00 + 40.50000 -60.50000 0.0000000E+00 + 41.50000 -60.50000 0.0000000E+00 + 42.50000 -60.50000 0.0000000E+00 + 43.50000 -60.50000 0.0000000E+00 + 44.50000 -60.50000 0.0000000E+00 + 45.50000 -60.50000 0.0000000E+00 + 46.50000 -60.50000 0.0000000E+00 + 47.50000 -60.50000 0.0000000E+00 + 48.50000 -60.50000 0.0000000E+00 + 49.50000 -60.50000 0.0000000E+00 + 50.50000 -60.50000 0.0000000E+00 + 51.50000 -60.50000 0.0000000E+00 + 52.50000 -60.50000 0.0000000E+00 + 53.50000 -60.50000 0.0000000E+00 + 54.50000 -60.50000 0.0000000E+00 + 55.50000 -60.50000 0.0000000E+00 + 56.50000 -60.50000 0.0000000E+00 + 57.50000 -60.50000 0.0000000E+00 + 58.50000 -60.50000 0.0000000E+00 + 59.50000 -60.50000 0.0000000E+00 + 60.50000 -60.50000 0.0000000E+00 + 61.50000 -60.50000 0.0000000E+00 + 62.50000 -60.50000 0.0000000E+00 + 63.50000 -60.50000 0.0000000E+00 + 64.50000 -60.50000 0.0000000E+00 + 65.50000 -60.50000 0.0000000E+00 + 66.50000 -60.50000 0.0000000E+00 + 67.50000 -60.50000 0.0000000E+00 + 68.50000 -60.50000 0.0000000E+00 + 69.50000 -60.50000 0.0000000E+00 + 70.50000 -60.50000 0.0000000E+00 + 71.50000 -60.50000 0.0000000E+00 + 72.50000 -60.50000 0.0000000E+00 + 73.50000 -60.50000 0.0000000E+00 + 74.50000 -60.50000 0.0000000E+00 + 75.50000 -60.50000 0.0000000E+00 + 76.50000 -60.50000 0.0000000E+00 + 77.50000 -60.50000 0.0000000E+00 + 78.50000 -60.50000 0.0000000E+00 + 79.50000 -60.50000 0.0000000E+00 + 80.50000 -60.50000 0.0000000E+00 + 81.50000 -60.50000 0.0000000E+00 + 82.50000 -60.50000 0.0000000E+00 + 83.50000 -60.50000 0.0000000E+00 + 84.50000 -60.50000 0.0000000E+00 + 85.50000 -60.50000 0.0000000E+00 + 86.50000 -60.50000 0.0000000E+00 + 87.50000 -60.50000 0.0000000E+00 + 88.50000 -60.50000 0.0000000E+00 + 89.50000 -60.50000 0.0000000E+00 + -89.50000 -59.50000 0.0000000E+00 + -88.50000 -59.50000 0.0000000E+00 + -87.50000 -59.50000 0.0000000E+00 + -86.50000 -59.50000 0.0000000E+00 + -85.50000 -59.50000 0.0000000E+00 + -84.50000 -59.50000 0.0000000E+00 + -83.50000 -59.50000 0.0000000E+00 + -82.50000 -59.50000 0.0000000E+00 + -81.50000 -59.50000 0.0000000E+00 + -80.50000 -59.50000 0.0000000E+00 + -79.50000 -59.50000 0.0000000E+00 + -78.50000 -59.50000 0.0000000E+00 + -77.50000 -59.50000 0.0000000E+00 + -76.50000 -59.50000 0.0000000E+00 + -75.50000 -59.50000 0.0000000E+00 + -74.50000 -59.50000 0.0000000E+00 + -73.50000 -59.50000 0.0000000E+00 + -72.50000 -59.50000 0.0000000E+00 + -71.50000 -59.50000 0.0000000E+00 + -70.50000 -59.50000 0.0000000E+00 + -69.50000 -59.50000 0.0000000E+00 + -68.50000 -59.50000 0.0000000E+00 + -67.50000 -59.50000 0.0000000E+00 + -66.50000 -59.50000 0.0000000E+00 + -65.50000 -59.50000 0.0000000E+00 + -64.50000 -59.50000 0.0000000E+00 + -63.50000 -59.50000 0.0000000E+00 + -62.50000 -59.50000 0.0000000E+00 + -61.50000 -59.50000 0.0000000E+00 + -60.50000 -59.50000 0.0000000E+00 + -59.50000 -59.50000 0.0000000E+00 + -58.50000 -59.50000 0.0000000E+00 + -57.50000 -59.50000 0.0000000E+00 + -56.50000 -59.50000 0.0000000E+00 + -55.50000 -59.50000 0.0000000E+00 + -54.50000 -59.50000 0.0000000E+00 + -53.50000 -59.50000 0.0000000E+00 + -52.50000 -59.50000 0.0000000E+00 + -51.50000 -59.50000 0.0000000E+00 + -50.50000 -59.50000 0.0000000E+00 + -49.50000 -59.50000 0.0000000E+00 + -48.50000 -59.50000 0.0000000E+00 + -47.50000 -59.50000 0.0000000E+00 + -46.50000 -59.50000 0.0000000E+00 + -45.50000 -59.50000 0.0000000E+00 + -44.50000 -59.50000 0.0000000E+00 + -43.50000 -59.50000 0.0000000E+00 + -42.50000 -59.50000 0.0000000E+00 + -41.50000 -59.50000 0.0000000E+00 + -40.50000 -59.50000 0.0000000E+00 + -39.50000 -59.50000 0.0000000E+00 + -38.50000 -59.50000 0.0000000E+00 + -37.50000 -59.50000 0.0000000E+00 + -36.50000 -59.50000 0.0000000E+00 + -35.50000 -59.50000 0.0000000E+00 + -34.50000 -59.50000 0.0000000E+00 + -33.50000 -59.50000 0.0000000E+00 + -32.50000 -59.50000 0.0000000E+00 + -31.50000 -59.50000 0.0000000E+00 + -30.50000 -59.50000 0.0000000E+00 + -29.50000 -59.50000 0.0000000E+00 + -28.50000 -59.50000 0.0000000E+00 + -27.50000 -59.50000 0.0000000E+00 + -26.50000 -59.50000 0.0000000E+00 + -25.50000 -59.50000 0.0000000E+00 + -24.50000 -59.50000 0.0000000E+00 + -23.50000 -59.50000 0.0000000E+00 + -22.50000 -59.50000 0.0000000E+00 + -21.50000 -59.50000 0.0000000E+00 + -20.50000 -59.50000 0.0000000E+00 + -19.50000 -59.50000 0.0000000E+00 + -18.50000 -59.50000 0.0000000E+00 + -17.50000 -59.50000 0.0000000E+00 + -16.50000 -59.50000 0.0000000E+00 + -15.50000 -59.50000 0.0000000E+00 + -14.50000 -59.50000 0.0000000E+00 + -13.50000 -59.50000 0.0000000E+00 + -12.50000 -59.50000 0.0000000E+00 + -11.50000 -59.50000 0.0000000E+00 + -10.50000 -59.50000 0.0000000E+00 + -9.500000 -59.50000 0.0000000E+00 + -8.500000 -59.50000 0.0000000E+00 + -7.500000 -59.50000 0.0000000E+00 + -6.500000 -59.50000 0.0000000E+00 + -5.500000 -59.50000 0.0000000E+00 + -4.500000 -59.50000 0.0000000E+00 + -3.500000 -59.50000 0.0000000E+00 + -2.500000 -59.50000 0.0000000E+00 + -1.500000 -59.50000 0.0000000E+00 + -0.5000000 -59.50000 0.0000000E+00 + 0.5000000 -59.50000 0.0000000E+00 + 1.500000 -59.50000 0.0000000E+00 + 2.500000 -59.50000 0.0000000E+00 + 3.500000 -59.50000 0.0000000E+00 + 4.500000 -59.50000 0.0000000E+00 + 5.500000 -59.50000 0.0000000E+00 + 6.500000 -59.50000 0.0000000E+00 + 7.500000 -59.50000 0.0000000E+00 + 8.500000 -59.50000 0.0000000E+00 + 9.500000 -59.50000 0.0000000E+00 + 10.50000 -59.50000 0.0000000E+00 + 11.50000 -59.50000 0.0000000E+00 + 12.50000 -59.50000 0.0000000E+00 + 13.50000 -59.50000 0.0000000E+00 + 14.50000 -59.50000 0.0000000E+00 + 15.50000 -59.50000 0.0000000E+00 + 16.50000 -59.50000 0.0000000E+00 + 17.50000 -59.50000 0.0000000E+00 + 18.50000 -59.50000 0.0000000E+00 + 19.50000 -59.50000 0.0000000E+00 + 20.50000 -59.50000 0.0000000E+00 + 21.50000 -59.50000 0.0000000E+00 + 22.50000 -59.50000 0.0000000E+00 + 23.50000 -59.50000 0.0000000E+00 + 24.50000 -59.50000 0.0000000E+00 + 25.50000 -59.50000 0.0000000E+00 + 26.50000 -59.50000 0.0000000E+00 + 27.50000 -59.50000 0.0000000E+00 + 28.50000 -59.50000 0.0000000E+00 + 29.50000 -59.50000 0.0000000E+00 + 30.50000 -59.50000 0.0000000E+00 + 31.50000 -59.50000 0.0000000E+00 + 32.50000 -59.50000 0.0000000E+00 + 33.50000 -59.50000 0.0000000E+00 + 34.50000 -59.50000 0.0000000E+00 + 35.50000 -59.50000 0.0000000E+00 + 36.50000 -59.50000 0.0000000E+00 + 37.50000 -59.50000 0.0000000E+00 + 38.50000 -59.50000 0.0000000E+00 + 39.50000 -59.50000 0.0000000E+00 + 40.50000 -59.50000 0.0000000E+00 + 41.50000 -59.50000 0.0000000E+00 + 42.50000 -59.50000 0.0000000E+00 + 43.50000 -59.50000 0.0000000E+00 + 44.50000 -59.50000 0.0000000E+00 + 45.50000 -59.50000 0.0000000E+00 + 46.50000 -59.50000 0.0000000E+00 + 47.50000 -59.50000 0.0000000E+00 + 48.50000 -59.50000 0.0000000E+00 + 49.50000 -59.50000 0.0000000E+00 + 50.50000 -59.50000 0.0000000E+00 + 51.50000 -59.50000 0.0000000E+00 + 52.50000 -59.50000 0.0000000E+00 + 53.50000 -59.50000 0.0000000E+00 + 54.50000 -59.50000 0.0000000E+00 + 55.50000 -59.50000 0.0000000E+00 + 56.50000 -59.50000 0.0000000E+00 + 57.50000 -59.50000 0.0000000E+00 + 58.50000 -59.50000 0.0000000E+00 + 59.50000 -59.50000 0.0000000E+00 + 60.50000 -59.50000 0.0000000E+00 + 61.50000 -59.50000 0.0000000E+00 + 62.50000 -59.50000 0.0000000E+00 + 63.50000 -59.50000 0.0000000E+00 + 64.50000 -59.50000 0.0000000E+00 + 65.50000 -59.50000 0.0000000E+00 + 66.50000 -59.50000 0.0000000E+00 + 67.50000 -59.50000 0.0000000E+00 + 68.50000 -59.50000 0.0000000E+00 + 69.50000 -59.50000 0.0000000E+00 + 70.50000 -59.50000 0.0000000E+00 + 71.50000 -59.50000 0.0000000E+00 + 72.50000 -59.50000 0.0000000E+00 + 73.50000 -59.50000 0.0000000E+00 + 74.50000 -59.50000 0.0000000E+00 + 75.50000 -59.50000 0.0000000E+00 + 76.50000 -59.50000 0.0000000E+00 + 77.50000 -59.50000 0.0000000E+00 + 78.50000 -59.50000 0.0000000E+00 + 79.50000 -59.50000 0.0000000E+00 + 80.50000 -59.50000 0.0000000E+00 + 81.50000 -59.50000 0.0000000E+00 + 82.50000 -59.50000 0.0000000E+00 + 83.50000 -59.50000 0.0000000E+00 + 84.50000 -59.50000 0.0000000E+00 + 85.50000 -59.50000 0.0000000E+00 + 86.50000 -59.50000 0.0000000E+00 + 87.50000 -59.50000 0.0000000E+00 + 88.50000 -59.50000 0.0000000E+00 + 89.50000 -59.50000 0.0000000E+00 + -89.50000 -58.50000 0.0000000E+00 + -88.50000 -58.50000 0.0000000E+00 + -87.50000 -58.50000 0.0000000E+00 + -86.50000 -58.50000 0.0000000E+00 + -85.50000 -58.50000 0.0000000E+00 + -84.50000 -58.50000 0.0000000E+00 + -83.50000 -58.50000 0.0000000E+00 + -82.50000 -58.50000 0.0000000E+00 + -81.50000 -58.50000 0.0000000E+00 + -80.50000 -58.50000 0.0000000E+00 + -79.50000 -58.50000 0.0000000E+00 + -78.50000 -58.50000 0.0000000E+00 + -77.50000 -58.50000 0.0000000E+00 + -76.50000 -58.50000 0.0000000E+00 + -75.50000 -58.50000 0.0000000E+00 + -74.50000 -58.50000 0.0000000E+00 + -73.50000 -58.50000 0.0000000E+00 + -72.50000 -58.50000 0.0000000E+00 + -71.50000 -58.50000 0.0000000E+00 + -70.50000 -58.50000 0.0000000E+00 + -69.50000 -58.50000 0.0000000E+00 + -68.50000 -58.50000 0.0000000E+00 + -67.50000 -58.50000 0.0000000E+00 + -66.50000 -58.50000 0.0000000E+00 + -65.50000 -58.50000 0.0000000E+00 + -64.50000 -58.50000 0.0000000E+00 + -63.50000 -58.50000 0.0000000E+00 + -62.50000 -58.50000 0.0000000E+00 + -61.50000 -58.50000 0.0000000E+00 + -60.50000 -58.50000 0.0000000E+00 + -59.50000 -58.50000 0.0000000E+00 + -58.50000 -58.50000 0.0000000E+00 + -57.50000 -58.50000 0.0000000E+00 + -56.50000 -58.50000 0.0000000E+00 + -55.50000 -58.50000 0.0000000E+00 + -54.50000 -58.50000 0.0000000E+00 + -53.50000 -58.50000 0.0000000E+00 + -52.50000 -58.50000 0.0000000E+00 + -51.50000 -58.50000 0.0000000E+00 + -50.50000 -58.50000 0.0000000E+00 + -49.50000 -58.50000 0.0000000E+00 + -48.50000 -58.50000 0.0000000E+00 + -47.50000 -58.50000 0.0000000E+00 + -46.50000 -58.50000 0.0000000E+00 + -45.50000 -58.50000 0.0000000E+00 + -44.50000 -58.50000 0.0000000E+00 + -43.50000 -58.50000 0.0000000E+00 + -42.50000 -58.50000 0.0000000E+00 + -41.50000 -58.50000 0.0000000E+00 + -40.50000 -58.50000 0.0000000E+00 + -39.50000 -58.50000 0.0000000E+00 + -38.50000 -58.50000 0.0000000E+00 + -37.50000 -58.50000 0.0000000E+00 + -36.50000 -58.50000 0.0000000E+00 + -35.50000 -58.50000 0.0000000E+00 + -34.50000 -58.50000 0.0000000E+00 + -33.50000 -58.50000 0.0000000E+00 + -32.50000 -58.50000 0.0000000E+00 + -31.50000 -58.50000 0.0000000E+00 + -30.50000 -58.50000 0.0000000E+00 + -29.50000 -58.50000 0.0000000E+00 + -28.50000 -58.50000 0.0000000E+00 + -27.50000 -58.50000 0.0000000E+00 + -26.50000 -58.50000 0.0000000E+00 + -25.50000 -58.50000 0.0000000E+00 + -24.50000 -58.50000 0.0000000E+00 + -23.50000 -58.50000 0.0000000E+00 + -22.50000 -58.50000 0.0000000E+00 + -21.50000 -58.50000 0.0000000E+00 + -20.50000 -58.50000 0.0000000E+00 + -19.50000 -58.50000 0.0000000E+00 + -18.50000 -58.50000 0.0000000E+00 + -17.50000 -58.50000 0.0000000E+00 + -16.50000 -58.50000 0.0000000E+00 + -15.50000 -58.50000 0.0000000E+00 + -14.50000 -58.50000 0.0000000E+00 + -13.50000 -58.50000 0.0000000E+00 + -12.50000 -58.50000 0.0000000E+00 + -11.50000 -58.50000 0.0000000E+00 + -10.50000 -58.50000 0.0000000E+00 + -9.500000 -58.50000 0.0000000E+00 + -8.500000 -58.50000 0.0000000E+00 + -7.500000 -58.50000 0.0000000E+00 + -6.500000 -58.50000 0.0000000E+00 + -5.500000 -58.50000 0.0000000E+00 + -4.500000 -58.50000 0.0000000E+00 + -3.500000 -58.50000 0.0000000E+00 + -2.500000 -58.50000 0.0000000E+00 + -1.500000 -58.50000 0.0000000E+00 + -0.5000000 -58.50000 0.0000000E+00 + 0.5000000 -58.50000 0.0000000E+00 + 1.500000 -58.50000 0.0000000E+00 + 2.500000 -58.50000 0.0000000E+00 + 3.500000 -58.50000 0.0000000E+00 + 4.500000 -58.50000 0.0000000E+00 + 5.500000 -58.50000 0.0000000E+00 + 6.500000 -58.50000 0.0000000E+00 + 7.500000 -58.50000 0.0000000E+00 + 8.500000 -58.50000 0.0000000E+00 + 9.500000 -58.50000 0.0000000E+00 + 10.50000 -58.50000 0.0000000E+00 + 11.50000 -58.50000 0.0000000E+00 + 12.50000 -58.50000 0.0000000E+00 + 13.50000 -58.50000 0.0000000E+00 + 14.50000 -58.50000 0.0000000E+00 + 15.50000 -58.50000 0.0000000E+00 + 16.50000 -58.50000 0.0000000E+00 + 17.50000 -58.50000 0.0000000E+00 + 18.50000 -58.50000 0.0000000E+00 + 19.50000 -58.50000 0.0000000E+00 + 20.50000 -58.50000 0.0000000E+00 + 21.50000 -58.50000 0.0000000E+00 + 22.50000 -58.50000 0.0000000E+00 + 23.50000 -58.50000 0.0000000E+00 + 24.50000 -58.50000 0.0000000E+00 + 25.50000 -58.50000 0.0000000E+00 + 26.50000 -58.50000 0.0000000E+00 + 27.50000 -58.50000 0.0000000E+00 + 28.50000 -58.50000 0.0000000E+00 + 29.50000 -58.50000 0.0000000E+00 + 30.50000 -58.50000 0.0000000E+00 + 31.50000 -58.50000 0.0000000E+00 + 32.50000 -58.50000 0.0000000E+00 + 33.50000 -58.50000 0.0000000E+00 + 34.50000 -58.50000 0.0000000E+00 + 35.50000 -58.50000 0.0000000E+00 + 36.50000 -58.50000 0.0000000E+00 + 37.50000 -58.50000 0.0000000E+00 + 38.50000 -58.50000 0.0000000E+00 + 39.50000 -58.50000 0.0000000E+00 + 40.50000 -58.50000 0.0000000E+00 + 41.50000 -58.50000 0.0000000E+00 + 42.50000 -58.50000 0.0000000E+00 + 43.50000 -58.50000 0.0000000E+00 + 44.50000 -58.50000 0.0000000E+00 + 45.50000 -58.50000 0.0000000E+00 + 46.50000 -58.50000 0.0000000E+00 + 47.50000 -58.50000 0.0000000E+00 + 48.50000 -58.50000 0.0000000E+00 + 49.50000 -58.50000 0.0000000E+00 + 50.50000 -58.50000 0.0000000E+00 + 51.50000 -58.50000 0.0000000E+00 + 52.50000 -58.50000 0.0000000E+00 + 53.50000 -58.50000 0.0000000E+00 + 54.50000 -58.50000 0.0000000E+00 + 55.50000 -58.50000 0.0000000E+00 + 56.50000 -58.50000 0.0000000E+00 + 57.50000 -58.50000 0.0000000E+00 + 58.50000 -58.50000 0.0000000E+00 + 59.50000 -58.50000 0.0000000E+00 + 60.50000 -58.50000 0.0000000E+00 + 61.50000 -58.50000 0.0000000E+00 + 62.50000 -58.50000 0.0000000E+00 + 63.50000 -58.50000 0.0000000E+00 + 64.50000 -58.50000 0.0000000E+00 + 65.50000 -58.50000 0.0000000E+00 + 66.50000 -58.50000 0.0000000E+00 + 67.50000 -58.50000 0.0000000E+00 + 68.50000 -58.50000 0.0000000E+00 + 69.50000 -58.50000 0.0000000E+00 + 70.50000 -58.50000 0.0000000E+00 + 71.50000 -58.50000 0.0000000E+00 + 72.50000 -58.50000 0.0000000E+00 + 73.50000 -58.50000 0.0000000E+00 + 74.50000 -58.50000 0.0000000E+00 + 75.50000 -58.50000 0.0000000E+00 + 76.50000 -58.50000 0.0000000E+00 + 77.50000 -58.50000 0.0000000E+00 + 78.50000 -58.50000 0.0000000E+00 + 79.50000 -58.50000 0.0000000E+00 + 80.50000 -58.50000 0.0000000E+00 + 81.50000 -58.50000 0.0000000E+00 + 82.50000 -58.50000 0.0000000E+00 + 83.50000 -58.50000 0.0000000E+00 + 84.50000 -58.50000 0.0000000E+00 + 85.50000 -58.50000 0.0000000E+00 + 86.50000 -58.50000 0.0000000E+00 + 87.50000 -58.50000 0.0000000E+00 + 88.50000 -58.50000 0.0000000E+00 + 89.50000 -58.50000 0.0000000E+00 + -89.50000 -57.50000 0.0000000E+00 + -88.50000 -57.50000 0.0000000E+00 + -87.50000 -57.50000 0.0000000E+00 + -86.50000 -57.50000 0.0000000E+00 + -85.50000 -57.50000 0.0000000E+00 + -84.50000 -57.50000 0.0000000E+00 + -83.50000 -57.50000 0.0000000E+00 + -82.50000 -57.50000 0.0000000E+00 + -81.50000 -57.50000 0.0000000E+00 + -80.50000 -57.50000 0.0000000E+00 + -79.50000 -57.50000 0.0000000E+00 + -78.50000 -57.50000 0.0000000E+00 + -77.50000 -57.50000 0.0000000E+00 + -76.50000 -57.50000 0.0000000E+00 + -75.50000 -57.50000 0.0000000E+00 + -74.50000 -57.50000 0.0000000E+00 + -73.50000 -57.50000 0.0000000E+00 + -72.50000 -57.50000 0.0000000E+00 + -71.50000 -57.50000 0.0000000E+00 + -70.50000 -57.50000 0.0000000E+00 + -69.50000 -57.50000 0.0000000E+00 + -68.50000 -57.50000 0.0000000E+00 + -67.50000 -57.50000 0.0000000E+00 + -66.50000 -57.50000 0.0000000E+00 + -65.50000 -57.50000 0.0000000E+00 + -64.50000 -57.50000 0.0000000E+00 + -63.50000 -57.50000 0.0000000E+00 + -62.50000 -57.50000 0.0000000E+00 + -61.50000 -57.50000 0.0000000E+00 + -60.50000 -57.50000 0.0000000E+00 + -59.50000 -57.50000 0.0000000E+00 + -58.50000 -57.50000 0.0000000E+00 + -57.50000 -57.50000 0.0000000E+00 + -56.50000 -57.50000 0.0000000E+00 + -55.50000 -57.50000 0.0000000E+00 + -54.50000 -57.50000 0.0000000E+00 + -53.50000 -57.50000 0.0000000E+00 + -52.50000 -57.50000 0.0000000E+00 + -51.50000 -57.50000 0.0000000E+00 + -50.50000 -57.50000 0.0000000E+00 + -49.50000 -57.50000 0.0000000E+00 + -48.50000 -57.50000 0.0000000E+00 + -47.50000 -57.50000 0.0000000E+00 + -46.50000 -57.50000 0.0000000E+00 + -45.50000 -57.50000 0.0000000E+00 + -44.50000 -57.50000 0.0000000E+00 + -43.50000 -57.50000 0.0000000E+00 + -42.50000 -57.50000 0.0000000E+00 + -41.50000 -57.50000 0.0000000E+00 + -40.50000 -57.50000 0.0000000E+00 + -39.50000 -57.50000 0.0000000E+00 + -38.50000 -57.50000 0.0000000E+00 + -37.50000 -57.50000 0.0000000E+00 + -36.50000 -57.50000 0.0000000E+00 + -35.50000 -57.50000 0.0000000E+00 + -34.50000 -57.50000 0.0000000E+00 + -33.50000 -57.50000 0.0000000E+00 + -32.50000 -57.50000 0.0000000E+00 + -31.50000 -57.50000 0.0000000E+00 + -30.50000 -57.50000 0.0000000E+00 + -29.50000 -57.50000 0.0000000E+00 + -28.50000 -57.50000 0.0000000E+00 + -27.50000 -57.50000 0.0000000E+00 + -26.50000 -57.50000 0.0000000E+00 + -25.50000 -57.50000 0.0000000E+00 + -24.50000 -57.50000 0.0000000E+00 + -23.50000 -57.50000 0.0000000E+00 + -22.50000 -57.50000 0.0000000E+00 + -21.50000 -57.50000 0.0000000E+00 + -20.50000 -57.50000 0.0000000E+00 + -19.50000 -57.50000 0.0000000E+00 + -18.50000 -57.50000 0.0000000E+00 + -17.50000 -57.50000 0.0000000E+00 + -16.50000 -57.50000 0.0000000E+00 + -15.50000 -57.50000 0.0000000E+00 + -14.50000 -57.50000 0.0000000E+00 + -13.50000 -57.50000 0.0000000E+00 + -12.50000 -57.50000 0.0000000E+00 + -11.50000 -57.50000 0.0000000E+00 + -10.50000 -57.50000 0.0000000E+00 + -9.500000 -57.50000 0.0000000E+00 + -8.500000 -57.50000 0.0000000E+00 + -7.500000 -57.50000 0.0000000E+00 + -6.500000 -57.50000 0.0000000E+00 + -5.500000 -57.50000 0.0000000E+00 + -4.500000 -57.50000 0.0000000E+00 + -3.500000 -57.50000 0.0000000E+00 + -2.500000 -57.50000 0.0000000E+00 + -1.500000 -57.50000 0.0000000E+00 + -0.5000000 -57.50000 0.0000000E+00 + 0.5000000 -57.50000 0.0000000E+00 + 1.500000 -57.50000 0.0000000E+00 + 2.500000 -57.50000 0.0000000E+00 + 3.500000 -57.50000 0.0000000E+00 + 4.500000 -57.50000 0.0000000E+00 + 5.500000 -57.50000 0.0000000E+00 + 6.500000 -57.50000 0.0000000E+00 + 7.500000 -57.50000 0.0000000E+00 + 8.500000 -57.50000 0.0000000E+00 + 9.500000 -57.50000 0.0000000E+00 + 10.50000 -57.50000 0.0000000E+00 + 11.50000 -57.50000 0.0000000E+00 + 12.50000 -57.50000 0.0000000E+00 + 13.50000 -57.50000 0.0000000E+00 + 14.50000 -57.50000 0.0000000E+00 + 15.50000 -57.50000 0.0000000E+00 + 16.50000 -57.50000 0.0000000E+00 + 17.50000 -57.50000 0.0000000E+00 + 18.50000 -57.50000 0.0000000E+00 + 19.50000 -57.50000 0.0000000E+00 + 20.50000 -57.50000 0.0000000E+00 + 21.50000 -57.50000 0.0000000E+00 + 22.50000 -57.50000 0.0000000E+00 + 23.50000 -57.50000 0.0000000E+00 + 24.50000 -57.50000 0.0000000E+00 + 25.50000 -57.50000 0.0000000E+00 + 26.50000 -57.50000 0.0000000E+00 + 27.50000 -57.50000 0.0000000E+00 + 28.50000 -57.50000 0.0000000E+00 + 29.50000 -57.50000 0.0000000E+00 + 30.50000 -57.50000 0.0000000E+00 + 31.50000 -57.50000 0.0000000E+00 + 32.50000 -57.50000 0.0000000E+00 + 33.50000 -57.50000 0.0000000E+00 + 34.50000 -57.50000 0.0000000E+00 + 35.50000 -57.50000 0.0000000E+00 + 36.50000 -57.50000 0.0000000E+00 + 37.50000 -57.50000 0.0000000E+00 + 38.50000 -57.50000 0.0000000E+00 + 39.50000 -57.50000 0.0000000E+00 + 40.50000 -57.50000 0.0000000E+00 + 41.50000 -57.50000 0.0000000E+00 + 42.50000 -57.50000 0.0000000E+00 + 43.50000 -57.50000 0.0000000E+00 + 44.50000 -57.50000 0.0000000E+00 + 45.50000 -57.50000 0.0000000E+00 + 46.50000 -57.50000 0.0000000E+00 + 47.50000 -57.50000 0.0000000E+00 + 48.50000 -57.50000 0.0000000E+00 + 49.50000 -57.50000 0.0000000E+00 + 50.50000 -57.50000 0.0000000E+00 + 51.50000 -57.50000 0.0000000E+00 + 52.50000 -57.50000 0.0000000E+00 + 53.50000 -57.50000 0.0000000E+00 + 54.50000 -57.50000 0.0000000E+00 + 55.50000 -57.50000 0.0000000E+00 + 56.50000 -57.50000 0.0000000E+00 + 57.50000 -57.50000 0.0000000E+00 + 58.50000 -57.50000 0.0000000E+00 + 59.50000 -57.50000 0.0000000E+00 + 60.50000 -57.50000 0.0000000E+00 + 61.50000 -57.50000 0.0000000E+00 + 62.50000 -57.50000 0.0000000E+00 + 63.50000 -57.50000 0.0000000E+00 + 64.50000 -57.50000 0.0000000E+00 + 65.50000 -57.50000 0.0000000E+00 + 66.50000 -57.50000 0.0000000E+00 + 67.50000 -57.50000 0.0000000E+00 + 68.50000 -57.50000 0.0000000E+00 + 69.50000 -57.50000 0.0000000E+00 + 70.50000 -57.50000 0.0000000E+00 + 71.50000 -57.50000 0.0000000E+00 + 72.50000 -57.50000 0.0000000E+00 + 73.50000 -57.50000 0.0000000E+00 + 74.50000 -57.50000 0.0000000E+00 + 75.50000 -57.50000 0.0000000E+00 + 76.50000 -57.50000 0.0000000E+00 + 77.50000 -57.50000 0.0000000E+00 + 78.50000 -57.50000 0.0000000E+00 + 79.50000 -57.50000 0.0000000E+00 + 80.50000 -57.50000 0.0000000E+00 + 81.50000 -57.50000 0.0000000E+00 + 82.50000 -57.50000 0.0000000E+00 + 83.50000 -57.50000 0.0000000E+00 + 84.50000 -57.50000 0.0000000E+00 + 85.50000 -57.50000 0.0000000E+00 + 86.50000 -57.50000 0.0000000E+00 + 87.50000 -57.50000 0.0000000E+00 + 88.50000 -57.50000 0.0000000E+00 + 89.50000 -57.50000 0.0000000E+00 + -89.50000 -56.50000 0.0000000E+00 + -88.50000 -56.50000 0.0000000E+00 + -87.50000 -56.50000 0.0000000E+00 + -86.50000 -56.50000 0.0000000E+00 + -85.50000 -56.50000 0.0000000E+00 + -84.50000 -56.50000 0.0000000E+00 + -83.50000 -56.50000 0.0000000E+00 + -82.50000 -56.50000 0.0000000E+00 + -81.50000 -56.50000 0.0000000E+00 + -80.50000 -56.50000 0.0000000E+00 + -79.50000 -56.50000 0.0000000E+00 + -78.50000 -56.50000 0.0000000E+00 + -77.50000 -56.50000 0.0000000E+00 + -76.50000 -56.50000 0.0000000E+00 + -75.50000 -56.50000 0.0000000E+00 + -74.50000 -56.50000 0.0000000E+00 + -73.50000 -56.50000 0.0000000E+00 + -72.50000 -56.50000 0.0000000E+00 + -71.50000 -56.50000 0.0000000E+00 + -70.50000 -56.50000 0.0000000E+00 + -69.50000 -56.50000 0.0000000E+00 + -68.50000 -56.50000 0.0000000E+00 + -67.50000 -56.50000 0.0000000E+00 + -66.50000 -56.50000 0.0000000E+00 + -65.50000 -56.50000 0.0000000E+00 + -64.50000 -56.50000 0.0000000E+00 + -63.50000 -56.50000 0.0000000E+00 + -62.50000 -56.50000 0.0000000E+00 + -61.50000 -56.50000 0.0000000E+00 + -60.50000 -56.50000 0.0000000E+00 + -59.50000 -56.50000 0.0000000E+00 + -58.50000 -56.50000 0.0000000E+00 + -57.50000 -56.50000 0.0000000E+00 + -56.50000 -56.50000 0.0000000E+00 + -55.50000 -56.50000 0.0000000E+00 + -54.50000 -56.50000 0.0000000E+00 + -53.50000 -56.50000 0.0000000E+00 + -52.50000 -56.50000 0.0000000E+00 + -51.50000 -56.50000 0.0000000E+00 + -50.50000 -56.50000 0.0000000E+00 + -49.50000 -56.50000 0.0000000E+00 + -48.50000 -56.50000 0.0000000E+00 + -47.50000 -56.50000 0.0000000E+00 + -46.50000 -56.50000 0.0000000E+00 + -45.50000 -56.50000 0.0000000E+00 + -44.50000 -56.50000 0.0000000E+00 + -43.50000 -56.50000 0.0000000E+00 + -42.50000 -56.50000 0.0000000E+00 + -41.50000 -56.50000 0.0000000E+00 + -40.50000 -56.50000 0.0000000E+00 + -39.50000 -56.50000 0.0000000E+00 + -38.50000 -56.50000 0.0000000E+00 + -37.50000 -56.50000 0.0000000E+00 + -36.50000 -56.50000 0.0000000E+00 + -35.50000 -56.50000 0.0000000E+00 + -34.50000 -56.50000 0.0000000E+00 + -33.50000 -56.50000 0.0000000E+00 + -32.50000 -56.50000 0.0000000E+00 + -31.50000 -56.50000 0.0000000E+00 + -30.50000 -56.50000 0.0000000E+00 + -29.50000 -56.50000 0.0000000E+00 + -28.50000 -56.50000 0.0000000E+00 + -27.50000 -56.50000 0.0000000E+00 + -26.50000 -56.50000 0.0000000E+00 + -25.50000 -56.50000 0.0000000E+00 + -24.50000 -56.50000 0.0000000E+00 + -23.50000 -56.50000 0.0000000E+00 + -22.50000 -56.50000 0.0000000E+00 + -21.50000 -56.50000 0.0000000E+00 + -20.50000 -56.50000 0.0000000E+00 + -19.50000 -56.50000 0.0000000E+00 + -18.50000 -56.50000 0.0000000E+00 + -17.50000 -56.50000 0.0000000E+00 + -16.50000 -56.50000 0.0000000E+00 + -15.50000 -56.50000 0.0000000E+00 + -14.50000 -56.50000 0.0000000E+00 + -13.50000 -56.50000 0.0000000E+00 + -12.50000 -56.50000 0.0000000E+00 + -11.50000 -56.50000 0.0000000E+00 + -10.50000 -56.50000 0.0000000E+00 + -9.500000 -56.50000 0.0000000E+00 + -8.500000 -56.50000 0.0000000E+00 + -7.500000 -56.50000 0.0000000E+00 + -6.500000 -56.50000 0.0000000E+00 + -5.500000 -56.50000 0.0000000E+00 + -4.500000 -56.50000 0.0000000E+00 + -3.500000 -56.50000 0.0000000E+00 + -2.500000 -56.50000 0.0000000E+00 + -1.500000 -56.50000 0.0000000E+00 + -0.5000000 -56.50000 0.0000000E+00 + 0.5000000 -56.50000 0.0000000E+00 + 1.500000 -56.50000 0.0000000E+00 + 2.500000 -56.50000 0.0000000E+00 + 3.500000 -56.50000 0.0000000E+00 + 4.500000 -56.50000 0.0000000E+00 + 5.500000 -56.50000 0.0000000E+00 + 6.500000 -56.50000 0.0000000E+00 + 7.500000 -56.50000 0.0000000E+00 + 8.500000 -56.50000 0.0000000E+00 + 9.500000 -56.50000 0.0000000E+00 + 10.50000 -56.50000 0.0000000E+00 + 11.50000 -56.50000 0.0000000E+00 + 12.50000 -56.50000 0.0000000E+00 + 13.50000 -56.50000 0.0000000E+00 + 14.50000 -56.50000 0.0000000E+00 + 15.50000 -56.50000 0.0000000E+00 + 16.50000 -56.50000 0.0000000E+00 + 17.50000 -56.50000 0.0000000E+00 + 18.50000 -56.50000 0.0000000E+00 + 19.50000 -56.50000 0.0000000E+00 + 20.50000 -56.50000 0.0000000E+00 + 21.50000 -56.50000 0.0000000E+00 + 22.50000 -56.50000 0.0000000E+00 + 23.50000 -56.50000 0.0000000E+00 + 24.50000 -56.50000 0.0000000E+00 + 25.50000 -56.50000 0.0000000E+00 + 26.50000 -56.50000 0.0000000E+00 + 27.50000 -56.50000 0.0000000E+00 + 28.50000 -56.50000 0.0000000E+00 + 29.50000 -56.50000 0.0000000E+00 + 30.50000 -56.50000 0.0000000E+00 + 31.50000 -56.50000 0.0000000E+00 + 32.50000 -56.50000 0.0000000E+00 + 33.50000 -56.50000 0.0000000E+00 + 34.50000 -56.50000 0.0000000E+00 + 35.50000 -56.50000 0.0000000E+00 + 36.50000 -56.50000 0.0000000E+00 + 37.50000 -56.50000 0.0000000E+00 + 38.50000 -56.50000 0.0000000E+00 + 39.50000 -56.50000 0.0000000E+00 + 40.50000 -56.50000 0.0000000E+00 + 41.50000 -56.50000 0.0000000E+00 + 42.50000 -56.50000 0.0000000E+00 + 43.50000 -56.50000 0.0000000E+00 + 44.50000 -56.50000 0.0000000E+00 + 45.50000 -56.50000 0.0000000E+00 + 46.50000 -56.50000 0.0000000E+00 + 47.50000 -56.50000 0.0000000E+00 + 48.50000 -56.50000 0.0000000E+00 + 49.50000 -56.50000 0.0000000E+00 + 50.50000 -56.50000 0.0000000E+00 + 51.50000 -56.50000 0.0000000E+00 + 52.50000 -56.50000 0.0000000E+00 + 53.50000 -56.50000 0.0000000E+00 + 54.50000 -56.50000 0.0000000E+00 + 55.50000 -56.50000 0.0000000E+00 + 56.50000 -56.50000 0.0000000E+00 + 57.50000 -56.50000 0.0000000E+00 + 58.50000 -56.50000 0.0000000E+00 + 59.50000 -56.50000 0.0000000E+00 + 60.50000 -56.50000 0.0000000E+00 + 61.50000 -56.50000 0.0000000E+00 + 62.50000 -56.50000 0.0000000E+00 + 63.50000 -56.50000 0.0000000E+00 + 64.50000 -56.50000 0.0000000E+00 + 65.50000 -56.50000 0.0000000E+00 + 66.50000 -56.50000 0.0000000E+00 + 67.50000 -56.50000 0.0000000E+00 + 68.50000 -56.50000 0.0000000E+00 + 69.50000 -56.50000 0.0000000E+00 + 70.50000 -56.50000 0.0000000E+00 + 71.50000 -56.50000 0.0000000E+00 + 72.50000 -56.50000 0.0000000E+00 + 73.50000 -56.50000 0.0000000E+00 + 74.50000 -56.50000 0.0000000E+00 + 75.50000 -56.50000 0.0000000E+00 + 76.50000 -56.50000 0.0000000E+00 + 77.50000 -56.50000 0.0000000E+00 + 78.50000 -56.50000 0.0000000E+00 + 79.50000 -56.50000 0.0000000E+00 + 80.50000 -56.50000 0.0000000E+00 + 81.50000 -56.50000 0.0000000E+00 + 82.50000 -56.50000 0.0000000E+00 + 83.50000 -56.50000 0.0000000E+00 + 84.50000 -56.50000 0.0000000E+00 + 85.50000 -56.50000 0.0000000E+00 + 86.50000 -56.50000 0.0000000E+00 + 87.50000 -56.50000 0.0000000E+00 + 88.50000 -56.50000 0.0000000E+00 + 89.50000 -56.50000 0.0000000E+00 + -89.50000 -55.50000 0.0000000E+00 + -88.50000 -55.50000 0.0000000E+00 + -87.50000 -55.50000 0.0000000E+00 + -86.50000 -55.50000 0.0000000E+00 + -85.50000 -55.50000 0.0000000E+00 + -84.50000 -55.50000 0.0000000E+00 + -83.50000 -55.50000 0.0000000E+00 + -82.50000 -55.50000 0.0000000E+00 + -81.50000 -55.50000 0.0000000E+00 + -80.50000 -55.50000 0.0000000E+00 + -79.50000 -55.50000 0.0000000E+00 + -78.50000 -55.50000 0.0000000E+00 + -77.50000 -55.50000 0.0000000E+00 + -76.50000 -55.50000 0.0000000E+00 + -75.50000 -55.50000 0.0000000E+00 + -74.50000 -55.50000 0.0000000E+00 + -73.50000 -55.50000 0.0000000E+00 + -72.50000 -55.50000 0.0000000E+00 + -71.50000 -55.50000 0.0000000E+00 + -70.50000 -55.50000 0.0000000E+00 + -69.50000 -55.50000 0.0000000E+00 + -68.50000 -55.50000 0.0000000E+00 + -67.50000 -55.50000 0.0000000E+00 + -66.50000 -55.50000 0.0000000E+00 + -65.50000 -55.50000 0.0000000E+00 + -64.50000 -55.50000 0.0000000E+00 + -63.50000 -55.50000 0.0000000E+00 + -62.50000 -55.50000 0.0000000E+00 + -61.50000 -55.50000 0.0000000E+00 + -60.50000 -55.50000 0.0000000E+00 + -59.50000 -55.50000 0.0000000E+00 + -58.50000 -55.50000 0.0000000E+00 + -57.50000 -55.50000 0.0000000E+00 + -56.50000 -55.50000 0.0000000E+00 + -55.50000 -55.50000 0.0000000E+00 + -54.50000 -55.50000 0.0000000E+00 + -53.50000 -55.50000 0.0000000E+00 + -52.50000 -55.50000 0.0000000E+00 + -51.50000 -55.50000 0.0000000E+00 + -50.50000 -55.50000 0.0000000E+00 + -49.50000 -55.50000 0.0000000E+00 + -48.50000 -55.50000 0.0000000E+00 + -47.50000 -55.50000 0.0000000E+00 + -46.50000 -55.50000 0.0000000E+00 + -45.50000 -55.50000 0.0000000E+00 + -44.50000 -55.50000 0.0000000E+00 + -43.50000 -55.50000 0.0000000E+00 + -42.50000 -55.50000 0.0000000E+00 + -41.50000 -55.50000 0.0000000E+00 + -40.50000 -55.50000 0.0000000E+00 + -39.50000 -55.50000 0.0000000E+00 + -38.50000 -55.50000 0.0000000E+00 + -37.50000 -55.50000 0.0000000E+00 + -36.50000 -55.50000 0.0000000E+00 + -35.50000 -55.50000 0.0000000E+00 + -34.50000 -55.50000 0.0000000E+00 + -33.50000 -55.50000 0.0000000E+00 + -32.50000 -55.50000 0.0000000E+00 + -31.50000 -55.50000 0.0000000E+00 + -30.50000 -55.50000 0.0000000E+00 + -29.50000 -55.50000 0.0000000E+00 + -28.50000 -55.50000 0.0000000E+00 + -27.50000 -55.50000 0.0000000E+00 + -26.50000 -55.50000 0.0000000E+00 + -25.50000 -55.50000 0.0000000E+00 + -24.50000 -55.50000 0.0000000E+00 + -23.50000 -55.50000 0.0000000E+00 + -22.50000 -55.50000 0.0000000E+00 + -21.50000 -55.50000 0.0000000E+00 + -20.50000 -55.50000 0.0000000E+00 + -19.50000 -55.50000 0.0000000E+00 + -18.50000 -55.50000 0.0000000E+00 + -17.50000 -55.50000 0.0000000E+00 + -16.50000 -55.50000 0.0000000E+00 + -15.50000 -55.50000 0.0000000E+00 + -14.50000 -55.50000 0.0000000E+00 + -13.50000 -55.50000 0.0000000E+00 + -12.50000 -55.50000 0.0000000E+00 + -11.50000 -55.50000 0.0000000E+00 + -10.50000 -55.50000 0.0000000E+00 + -9.500000 -55.50000 0.0000000E+00 + -8.500000 -55.50000 0.0000000E+00 + -7.500000 -55.50000 0.0000000E+00 + -6.500000 -55.50000 0.0000000E+00 + -5.500000 -55.50000 0.0000000E+00 + -4.500000 -55.50000 0.0000000E+00 + -3.500000 -55.50000 0.0000000E+00 + -2.500000 -55.50000 0.0000000E+00 + -1.500000 -55.50000 0.0000000E+00 + -0.5000000 -55.50000 0.0000000E+00 + 0.5000000 -55.50000 0.0000000E+00 + 1.500000 -55.50000 0.0000000E+00 + 2.500000 -55.50000 0.0000000E+00 + 3.500000 -55.50000 0.0000000E+00 + 4.500000 -55.50000 0.0000000E+00 + 5.500000 -55.50000 0.0000000E+00 + 6.500000 -55.50000 0.0000000E+00 + 7.500000 -55.50000 0.0000000E+00 + 8.500000 -55.50000 0.0000000E+00 + 9.500000 -55.50000 0.0000000E+00 + 10.50000 -55.50000 0.0000000E+00 + 11.50000 -55.50000 0.0000000E+00 + 12.50000 -55.50000 0.0000000E+00 + 13.50000 -55.50000 0.0000000E+00 + 14.50000 -55.50000 0.0000000E+00 + 15.50000 -55.50000 0.0000000E+00 + 16.50000 -55.50000 0.0000000E+00 + 17.50000 -55.50000 0.0000000E+00 + 18.50000 -55.50000 0.0000000E+00 + 19.50000 -55.50000 0.0000000E+00 + 20.50000 -55.50000 0.0000000E+00 + 21.50000 -55.50000 0.0000000E+00 + 22.50000 -55.50000 0.0000000E+00 + 23.50000 -55.50000 0.0000000E+00 + 24.50000 -55.50000 0.0000000E+00 + 25.50000 -55.50000 0.0000000E+00 + 26.50000 -55.50000 0.0000000E+00 + 27.50000 -55.50000 0.0000000E+00 + 28.50000 -55.50000 0.0000000E+00 + 29.50000 -55.50000 0.0000000E+00 + 30.50000 -55.50000 0.0000000E+00 + 31.50000 -55.50000 0.0000000E+00 + 32.50000 -55.50000 0.0000000E+00 + 33.50000 -55.50000 0.0000000E+00 + 34.50000 -55.50000 0.0000000E+00 + 35.50000 -55.50000 0.0000000E+00 + 36.50000 -55.50000 0.0000000E+00 + 37.50000 -55.50000 0.0000000E+00 + 38.50000 -55.50000 0.0000000E+00 + 39.50000 -55.50000 0.0000000E+00 + 40.50000 -55.50000 0.0000000E+00 + 41.50000 -55.50000 0.0000000E+00 + 42.50000 -55.50000 0.0000000E+00 + 43.50000 -55.50000 0.0000000E+00 + 44.50000 -55.50000 0.0000000E+00 + 45.50000 -55.50000 0.0000000E+00 + 46.50000 -55.50000 0.0000000E+00 + 47.50000 -55.50000 0.0000000E+00 + 48.50000 -55.50000 0.0000000E+00 + 49.50000 -55.50000 0.0000000E+00 + 50.50000 -55.50000 0.0000000E+00 + 51.50000 -55.50000 0.0000000E+00 + 52.50000 -55.50000 0.0000000E+00 + 53.50000 -55.50000 0.0000000E+00 + 54.50000 -55.50000 0.0000000E+00 + 55.50000 -55.50000 0.0000000E+00 + 56.50000 -55.50000 0.0000000E+00 + 57.50000 -55.50000 0.0000000E+00 + 58.50000 -55.50000 0.0000000E+00 + 59.50000 -55.50000 0.0000000E+00 + 60.50000 -55.50000 0.0000000E+00 + 61.50000 -55.50000 0.0000000E+00 + 62.50000 -55.50000 0.0000000E+00 + 63.50000 -55.50000 0.0000000E+00 + 64.50000 -55.50000 0.0000000E+00 + 65.50000 -55.50000 0.0000000E+00 + 66.50000 -55.50000 0.0000000E+00 + 67.50000 -55.50000 0.0000000E+00 + 68.50000 -55.50000 0.0000000E+00 + 69.50000 -55.50000 0.0000000E+00 + 70.50000 -55.50000 0.0000000E+00 + 71.50000 -55.50000 0.0000000E+00 + 72.50000 -55.50000 0.0000000E+00 + 73.50000 -55.50000 0.0000000E+00 + 74.50000 -55.50000 0.0000000E+00 + 75.50000 -55.50000 0.0000000E+00 + 76.50000 -55.50000 0.0000000E+00 + 77.50000 -55.50000 0.0000000E+00 + 78.50000 -55.50000 0.0000000E+00 + 79.50000 -55.50000 0.0000000E+00 + 80.50000 -55.50000 0.0000000E+00 + 81.50000 -55.50000 0.0000000E+00 + 82.50000 -55.50000 0.0000000E+00 + 83.50000 -55.50000 0.0000000E+00 + 84.50000 -55.50000 0.0000000E+00 + 85.50000 -55.50000 0.0000000E+00 + 86.50000 -55.50000 0.0000000E+00 + 87.50000 -55.50000 0.0000000E+00 + 88.50000 -55.50000 0.0000000E+00 + 89.50000 -55.50000 0.0000000E+00 + -89.50000 -54.50000 0.0000000E+00 + -88.50000 -54.50000 0.0000000E+00 + -87.50000 -54.50000 0.0000000E+00 + -86.50000 -54.50000 0.0000000E+00 + -85.50000 -54.50000 0.0000000E+00 + -84.50000 -54.50000 0.0000000E+00 + -83.50000 -54.50000 0.0000000E+00 + -82.50000 -54.50000 0.0000000E+00 + -81.50000 -54.50000 0.0000000E+00 + -80.50000 -54.50000 0.0000000E+00 + -79.50000 -54.50000 0.0000000E+00 + -78.50000 -54.50000 0.0000000E+00 + -77.50000 -54.50000 0.0000000E+00 + -76.50000 -54.50000 0.0000000E+00 + -75.50000 -54.50000 0.0000000E+00 + -74.50000 -54.50000 0.0000000E+00 + -73.50000 -54.50000 0.0000000E+00 + -72.50000 -54.50000 0.0000000E+00 + -71.50000 -54.50000 0.0000000E+00 + -70.50000 -54.50000 0.0000000E+00 + -69.50000 -54.50000 0.0000000E+00 + -68.50000 -54.50000 0.0000000E+00 + -67.50000 -54.50000 0.0000000E+00 + -66.50000 -54.50000 0.0000000E+00 + -65.50000 -54.50000 0.0000000E+00 + -64.50000 -54.50000 0.0000000E+00 + -63.50000 -54.50000 0.0000000E+00 + -62.50000 -54.50000 0.0000000E+00 + -61.50000 -54.50000 0.0000000E+00 + -60.50000 -54.50000 0.0000000E+00 + -59.50000 -54.50000 0.0000000E+00 + -58.50000 -54.50000 0.0000000E+00 + -57.50000 -54.50000 0.0000000E+00 + -56.50000 -54.50000 0.0000000E+00 + -55.50000 -54.50000 0.0000000E+00 + -54.50000 -54.50000 0.0000000E+00 + -53.50000 -54.50000 0.0000000E+00 + -52.50000 -54.50000 0.0000000E+00 + -51.50000 -54.50000 0.0000000E+00 + -50.50000 -54.50000 0.0000000E+00 + -49.50000 -54.50000 0.0000000E+00 + -48.50000 -54.50000 0.0000000E+00 + -47.50000 -54.50000 0.0000000E+00 + -46.50000 -54.50000 0.0000000E+00 + -45.50000 -54.50000 0.0000000E+00 + -44.50000 -54.50000 0.0000000E+00 + -43.50000 -54.50000 0.0000000E+00 + -42.50000 -54.50000 0.0000000E+00 + -41.50000 -54.50000 0.0000000E+00 + -40.50000 -54.50000 0.0000000E+00 + -39.50000 -54.50000 0.0000000E+00 + -38.50000 -54.50000 0.0000000E+00 + -37.50000 -54.50000 0.0000000E+00 + -36.50000 -54.50000 0.0000000E+00 + -35.50000 -54.50000 0.0000000E+00 + -34.50000 -54.50000 0.0000000E+00 + -33.50000 -54.50000 0.0000000E+00 + -32.50000 -54.50000 0.0000000E+00 + -31.50000 -54.50000 0.0000000E+00 + -30.50000 -54.50000 0.0000000E+00 + -29.50000 -54.50000 0.0000000E+00 + -28.50000 -54.50000 0.0000000E+00 + -27.50000 -54.50000 0.0000000E+00 + -26.50000 -54.50000 0.0000000E+00 + -25.50000 -54.50000 0.0000000E+00 + -24.50000 -54.50000 0.0000000E+00 + -23.50000 -54.50000 0.0000000E+00 + -22.50000 -54.50000 0.0000000E+00 + -21.50000 -54.50000 0.0000000E+00 + -20.50000 -54.50000 0.0000000E+00 + -19.50000 -54.50000 0.0000000E+00 + -18.50000 -54.50000 0.0000000E+00 + -17.50000 -54.50000 0.0000000E+00 + -16.50000 -54.50000 0.0000000E+00 + -15.50000 -54.50000 0.0000000E+00 + -14.50000 -54.50000 0.0000000E+00 + -13.50000 -54.50000 0.0000000E+00 + -12.50000 -54.50000 0.0000000E+00 + -11.50000 -54.50000 0.0000000E+00 + -10.50000 -54.50000 0.0000000E+00 + -9.500000 -54.50000 0.0000000E+00 + -8.500000 -54.50000 0.0000000E+00 + -7.500000 -54.50000 0.0000000E+00 + -6.500000 -54.50000 0.0000000E+00 + -5.500000 -54.50000 0.0000000E+00 + -4.500000 -54.50000 0.0000000E+00 + -3.500000 -54.50000 0.0000000E+00 + -2.500000 -54.50000 0.0000000E+00 + -1.500000 -54.50000 0.0000000E+00 + -0.5000000 -54.50000 0.0000000E+00 + 0.5000000 -54.50000 0.0000000E+00 + 1.500000 -54.50000 0.0000000E+00 + 2.500000 -54.50000 0.0000000E+00 + 3.500000 -54.50000 0.0000000E+00 + 4.500000 -54.50000 0.0000000E+00 + 5.500000 -54.50000 0.0000000E+00 + 6.500000 -54.50000 0.0000000E+00 + 7.500000 -54.50000 0.0000000E+00 + 8.500000 -54.50000 0.0000000E+00 + 9.500000 -54.50000 0.0000000E+00 + 10.50000 -54.50000 0.0000000E+00 + 11.50000 -54.50000 0.0000000E+00 + 12.50000 -54.50000 0.0000000E+00 + 13.50000 -54.50000 0.0000000E+00 + 14.50000 -54.50000 0.0000000E+00 + 15.50000 -54.50000 0.0000000E+00 + 16.50000 -54.50000 0.0000000E+00 + 17.50000 -54.50000 0.0000000E+00 + 18.50000 -54.50000 0.0000000E+00 + 19.50000 -54.50000 0.0000000E+00 + 20.50000 -54.50000 0.0000000E+00 + 21.50000 -54.50000 0.0000000E+00 + 22.50000 -54.50000 0.0000000E+00 + 23.50000 -54.50000 0.0000000E+00 + 24.50000 -54.50000 0.0000000E+00 + 25.50000 -54.50000 0.0000000E+00 + 26.50000 -54.50000 0.0000000E+00 + 27.50000 -54.50000 0.0000000E+00 + 28.50000 -54.50000 0.0000000E+00 + 29.50000 -54.50000 0.0000000E+00 + 30.50000 -54.50000 0.0000000E+00 + 31.50000 -54.50000 0.0000000E+00 + 32.50000 -54.50000 0.0000000E+00 + 33.50000 -54.50000 0.0000000E+00 + 34.50000 -54.50000 0.0000000E+00 + 35.50000 -54.50000 0.0000000E+00 + 36.50000 -54.50000 0.0000000E+00 + 37.50000 -54.50000 0.0000000E+00 + 38.50000 -54.50000 0.0000000E+00 + 39.50000 -54.50000 0.0000000E+00 + 40.50000 -54.50000 0.0000000E+00 + 41.50000 -54.50000 0.0000000E+00 + 42.50000 -54.50000 0.0000000E+00 + 43.50000 -54.50000 0.0000000E+00 + 44.50000 -54.50000 0.0000000E+00 + 45.50000 -54.50000 0.0000000E+00 + 46.50000 -54.50000 0.0000000E+00 + 47.50000 -54.50000 0.0000000E+00 + 48.50000 -54.50000 0.0000000E+00 + 49.50000 -54.50000 0.0000000E+00 + 50.50000 -54.50000 0.0000000E+00 + 51.50000 -54.50000 0.0000000E+00 + 52.50000 -54.50000 0.0000000E+00 + 53.50000 -54.50000 0.0000000E+00 + 54.50000 -54.50000 0.0000000E+00 + 55.50000 -54.50000 0.0000000E+00 + 56.50000 -54.50000 0.0000000E+00 + 57.50000 -54.50000 0.0000000E+00 + 58.50000 -54.50000 0.0000000E+00 + 59.50000 -54.50000 0.0000000E+00 + 60.50000 -54.50000 0.0000000E+00 + 61.50000 -54.50000 0.0000000E+00 + 62.50000 -54.50000 0.0000000E+00 + 63.50000 -54.50000 0.0000000E+00 + 64.50000 -54.50000 0.0000000E+00 + 65.50000 -54.50000 0.0000000E+00 + 66.50000 -54.50000 0.0000000E+00 + 67.50000 -54.50000 0.0000000E+00 + 68.50000 -54.50000 0.0000000E+00 + 69.50000 -54.50000 0.0000000E+00 + 70.50000 -54.50000 0.0000000E+00 + 71.50000 -54.50000 0.0000000E+00 + 72.50000 -54.50000 0.0000000E+00 + 73.50000 -54.50000 0.0000000E+00 + 74.50000 -54.50000 0.0000000E+00 + 75.50000 -54.50000 0.0000000E+00 + 76.50000 -54.50000 0.0000000E+00 + 77.50000 -54.50000 0.0000000E+00 + 78.50000 -54.50000 0.0000000E+00 + 79.50000 -54.50000 0.0000000E+00 + 80.50000 -54.50000 0.0000000E+00 + 81.50000 -54.50000 0.0000000E+00 + 82.50000 -54.50000 0.0000000E+00 + 83.50000 -54.50000 0.0000000E+00 + 84.50000 -54.50000 0.0000000E+00 + 85.50000 -54.50000 0.0000000E+00 + 86.50000 -54.50000 0.0000000E+00 + 87.50000 -54.50000 0.0000000E+00 + 88.50000 -54.50000 0.0000000E+00 + 89.50000 -54.50000 0.0000000E+00 + -89.50000 -53.50000 0.0000000E+00 + -88.50000 -53.50000 0.0000000E+00 + -87.50000 -53.50000 0.0000000E+00 + -86.50000 -53.50000 0.0000000E+00 + -85.50000 -53.50000 0.0000000E+00 + -84.50000 -53.50000 0.0000000E+00 + -83.50000 -53.50000 0.0000000E+00 + -82.50000 -53.50000 0.0000000E+00 + -81.50000 -53.50000 0.0000000E+00 + -80.50000 -53.50000 0.0000000E+00 + -79.50000 -53.50000 0.0000000E+00 + -78.50000 -53.50000 0.0000000E+00 + -77.50000 -53.50000 0.0000000E+00 + -76.50000 -53.50000 0.0000000E+00 + -75.50000 -53.50000 0.0000000E+00 + -74.50000 -53.50000 0.0000000E+00 + -73.50000 -53.50000 0.0000000E+00 + -72.50000 -53.50000 0.0000000E+00 + -71.50000 -53.50000 0.0000000E+00 + -70.50000 -53.50000 0.0000000E+00 + -69.50000 -53.50000 0.0000000E+00 + -68.50000 -53.50000 0.0000000E+00 + -67.50000 -53.50000 0.0000000E+00 + -66.50000 -53.50000 0.0000000E+00 + -65.50000 -53.50000 0.0000000E+00 + -64.50000 -53.50000 0.0000000E+00 + -63.50000 -53.50000 0.0000000E+00 + -62.50000 -53.50000 0.0000000E+00 + -61.50000 -53.50000 0.0000000E+00 + -60.50000 -53.50000 0.0000000E+00 + -59.50000 -53.50000 0.0000000E+00 + -58.50000 -53.50000 0.0000000E+00 + -57.50000 -53.50000 0.0000000E+00 + -56.50000 -53.50000 0.0000000E+00 + -55.50000 -53.50000 0.0000000E+00 + -54.50000 -53.50000 0.0000000E+00 + -53.50000 -53.50000 0.0000000E+00 + -52.50000 -53.50000 0.0000000E+00 + -51.50000 -53.50000 0.0000000E+00 + -50.50000 -53.50000 0.0000000E+00 + -49.50000 -53.50000 0.0000000E+00 + -48.50000 -53.50000 0.0000000E+00 + -47.50000 -53.50000 0.0000000E+00 + -46.50000 -53.50000 0.0000000E+00 + -45.50000 -53.50000 0.0000000E+00 + -44.50000 -53.50000 0.0000000E+00 + -43.50000 -53.50000 0.0000000E+00 + -42.50000 -53.50000 0.0000000E+00 + -41.50000 -53.50000 0.0000000E+00 + -40.50000 -53.50000 0.0000000E+00 + -39.50000 -53.50000 0.0000000E+00 + -38.50000 -53.50000 0.0000000E+00 + -37.50000 -53.50000 0.0000000E+00 + -36.50000 -53.50000 0.0000000E+00 + -35.50000 -53.50000 0.0000000E+00 + -34.50000 -53.50000 0.0000000E+00 + -33.50000 -53.50000 0.0000000E+00 + -32.50000 -53.50000 0.0000000E+00 + -31.50000 -53.50000 0.0000000E+00 + -30.50000 -53.50000 0.0000000E+00 + -29.50000 -53.50000 0.0000000E+00 + -28.50000 -53.50000 0.0000000E+00 + -27.50000 -53.50000 0.0000000E+00 + -26.50000 -53.50000 0.0000000E+00 + -25.50000 -53.50000 0.0000000E+00 + -24.50000 -53.50000 0.0000000E+00 + -23.50000 -53.50000 0.0000000E+00 + -22.50000 -53.50000 0.0000000E+00 + -21.50000 -53.50000 0.0000000E+00 + -20.50000 -53.50000 0.0000000E+00 + -19.50000 -53.50000 0.0000000E+00 + -18.50000 -53.50000 0.0000000E+00 + -17.50000 -53.50000 0.0000000E+00 + -16.50000 -53.50000 0.0000000E+00 + -15.50000 -53.50000 0.0000000E+00 + -14.50000 -53.50000 0.0000000E+00 + -13.50000 -53.50000 0.0000000E+00 + -12.50000 -53.50000 0.0000000E+00 + -11.50000 -53.50000 0.0000000E+00 + -10.50000 -53.50000 0.0000000E+00 + -9.500000 -53.50000 0.0000000E+00 + -8.500000 -53.50000 0.0000000E+00 + -7.500000 -53.50000 0.0000000E+00 + -6.500000 -53.50000 0.0000000E+00 + -5.500000 -53.50000 0.0000000E+00 + -4.500000 -53.50000 0.0000000E+00 + -3.500000 -53.50000 0.0000000E+00 + -2.500000 -53.50000 0.0000000E+00 + -1.500000 -53.50000 0.0000000E+00 + -0.5000000 -53.50000 0.0000000E+00 + 0.5000000 -53.50000 0.0000000E+00 + 1.500000 -53.50000 0.0000000E+00 + 2.500000 -53.50000 0.0000000E+00 + 3.500000 -53.50000 0.0000000E+00 + 4.500000 -53.50000 0.0000000E+00 + 5.500000 -53.50000 0.0000000E+00 + 6.500000 -53.50000 0.0000000E+00 + 7.500000 -53.50000 0.0000000E+00 + 8.500000 -53.50000 0.0000000E+00 + 9.500000 -53.50000 0.0000000E+00 + 10.50000 -53.50000 0.0000000E+00 + 11.50000 -53.50000 0.0000000E+00 + 12.50000 -53.50000 0.0000000E+00 + 13.50000 -53.50000 0.0000000E+00 + 14.50000 -53.50000 0.0000000E+00 + 15.50000 -53.50000 0.0000000E+00 + 16.50000 -53.50000 0.0000000E+00 + 17.50000 -53.50000 0.0000000E+00 + 18.50000 -53.50000 0.0000000E+00 + 19.50000 -53.50000 0.0000000E+00 + 20.50000 -53.50000 0.0000000E+00 + 21.50000 -53.50000 0.0000000E+00 + 22.50000 -53.50000 0.0000000E+00 + 23.50000 -53.50000 0.0000000E+00 + 24.50000 -53.50000 0.0000000E+00 + 25.50000 -53.50000 0.0000000E+00 + 26.50000 -53.50000 0.0000000E+00 + 27.50000 -53.50000 0.0000000E+00 + 28.50000 -53.50000 0.0000000E+00 + 29.50000 -53.50000 0.0000000E+00 + 30.50000 -53.50000 0.0000000E+00 + 31.50000 -53.50000 0.0000000E+00 + 32.50000 -53.50000 0.0000000E+00 + 33.50000 -53.50000 0.0000000E+00 + 34.50000 -53.50000 0.0000000E+00 + 35.50000 -53.50000 0.0000000E+00 + 36.50000 -53.50000 0.0000000E+00 + 37.50000 -53.50000 0.0000000E+00 + 38.50000 -53.50000 0.0000000E+00 + 39.50000 -53.50000 0.0000000E+00 + 40.50000 -53.50000 0.0000000E+00 + 41.50000 -53.50000 0.0000000E+00 + 42.50000 -53.50000 0.0000000E+00 + 43.50000 -53.50000 0.0000000E+00 + 44.50000 -53.50000 0.0000000E+00 + 45.50000 -53.50000 0.0000000E+00 + 46.50000 -53.50000 0.0000000E+00 + 47.50000 -53.50000 0.0000000E+00 + 48.50000 -53.50000 0.0000000E+00 + 49.50000 -53.50000 0.0000000E+00 + 50.50000 -53.50000 0.0000000E+00 + 51.50000 -53.50000 0.0000000E+00 + 52.50000 -53.50000 0.0000000E+00 + 53.50000 -53.50000 0.0000000E+00 + 54.50000 -53.50000 0.0000000E+00 + 55.50000 -53.50000 0.0000000E+00 + 56.50000 -53.50000 0.0000000E+00 + 57.50000 -53.50000 0.0000000E+00 + 58.50000 -53.50000 0.0000000E+00 + 59.50000 -53.50000 0.0000000E+00 + 60.50000 -53.50000 0.0000000E+00 + 61.50000 -53.50000 0.0000000E+00 + 62.50000 -53.50000 0.0000000E+00 + 63.50000 -53.50000 0.0000000E+00 + 64.50000 -53.50000 0.0000000E+00 + 65.50000 -53.50000 0.0000000E+00 + 66.50000 -53.50000 0.0000000E+00 + 67.50000 -53.50000 0.0000000E+00 + 68.50000 -53.50000 0.0000000E+00 + 69.50000 -53.50000 0.0000000E+00 + 70.50000 -53.50000 0.0000000E+00 + 71.50000 -53.50000 0.0000000E+00 + 72.50000 -53.50000 0.0000000E+00 + 73.50000 -53.50000 0.0000000E+00 + 74.50000 -53.50000 0.0000000E+00 + 75.50000 -53.50000 0.0000000E+00 + 76.50000 -53.50000 0.0000000E+00 + 77.50000 -53.50000 0.0000000E+00 + 78.50000 -53.50000 0.0000000E+00 + 79.50000 -53.50000 0.0000000E+00 + 80.50000 -53.50000 0.0000000E+00 + 81.50000 -53.50000 0.0000000E+00 + 82.50000 -53.50000 0.0000000E+00 + 83.50000 -53.50000 0.0000000E+00 + 84.50000 -53.50000 0.0000000E+00 + 85.50000 -53.50000 0.0000000E+00 + 86.50000 -53.50000 0.0000000E+00 + 87.50000 -53.50000 0.0000000E+00 + 88.50000 -53.50000 0.0000000E+00 + 89.50000 -53.50000 0.0000000E+00 + -89.50000 -52.50000 0.0000000E+00 + -88.50000 -52.50000 0.0000000E+00 + -87.50000 -52.50000 0.0000000E+00 + -86.50000 -52.50000 0.0000000E+00 + -85.50000 -52.50000 0.0000000E+00 + -84.50000 -52.50000 0.0000000E+00 + -83.50000 -52.50000 0.0000000E+00 + -82.50000 -52.50000 0.0000000E+00 + -81.50000 -52.50000 0.0000000E+00 + -80.50000 -52.50000 0.0000000E+00 + -79.50000 -52.50000 0.0000000E+00 + -78.50000 -52.50000 0.0000000E+00 + -77.50000 -52.50000 0.0000000E+00 + -76.50000 -52.50000 0.0000000E+00 + -75.50000 -52.50000 0.0000000E+00 + -74.50000 -52.50000 0.0000000E+00 + -73.50000 -52.50000 0.0000000E+00 + -72.50000 -52.50000 0.0000000E+00 + -71.50000 -52.50000 0.0000000E+00 + -70.50000 -52.50000 0.0000000E+00 + -69.50000 -52.50000 0.0000000E+00 + -68.50000 -52.50000 0.0000000E+00 + -67.50000 -52.50000 0.0000000E+00 + -66.50000 -52.50000 0.0000000E+00 + -65.50000 -52.50000 0.0000000E+00 + -64.50000 -52.50000 0.0000000E+00 + -63.50000 -52.50000 0.0000000E+00 + -62.50000 -52.50000 0.0000000E+00 + -61.50000 -52.50000 0.0000000E+00 + -60.50000 -52.50000 0.0000000E+00 + -59.50000 -52.50000 0.0000000E+00 + -58.50000 -52.50000 0.0000000E+00 + -57.50000 -52.50000 0.0000000E+00 + -56.50000 -52.50000 0.0000000E+00 + -55.50000 -52.50000 0.0000000E+00 + -54.50000 -52.50000 0.0000000E+00 + -53.50000 -52.50000 0.0000000E+00 + -52.50000 -52.50000 0.0000000E+00 + -51.50000 -52.50000 0.0000000E+00 + -50.50000 -52.50000 0.0000000E+00 + -49.50000 -52.50000 0.0000000E+00 + -48.50000 -52.50000 0.0000000E+00 + -47.50000 -52.50000 0.0000000E+00 + -46.50000 -52.50000 0.0000000E+00 + -45.50000 -52.50000 0.0000000E+00 + -44.50000 -52.50000 0.0000000E+00 + -43.50000 -52.50000 0.0000000E+00 + -42.50000 -52.50000 0.0000000E+00 + -41.50000 -52.50000 0.0000000E+00 + -40.50000 -52.50000 0.0000000E+00 + -39.50000 -52.50000 0.0000000E+00 + -38.50000 -52.50000 0.0000000E+00 + -37.50000 -52.50000 0.0000000E+00 + -36.50000 -52.50000 0.0000000E+00 + -35.50000 -52.50000 0.0000000E+00 + -34.50000 -52.50000 0.0000000E+00 + -33.50000 -52.50000 0.0000000E+00 + -32.50000 -52.50000 0.0000000E+00 + -31.50000 -52.50000 0.0000000E+00 + -30.50000 -52.50000 0.0000000E+00 + -29.50000 -52.50000 0.0000000E+00 + -28.50000 -52.50000 0.0000000E+00 + -27.50000 -52.50000 0.0000000E+00 + -26.50000 -52.50000 0.0000000E+00 + -25.50000 -52.50000 0.0000000E+00 + -24.50000 -52.50000 0.0000000E+00 + -23.50000 -52.50000 0.0000000E+00 + -22.50000 -52.50000 0.0000000E+00 + -21.50000 -52.50000 0.0000000E+00 + -20.50000 -52.50000 0.0000000E+00 + -19.50000 -52.50000 0.0000000E+00 + -18.50000 -52.50000 0.0000000E+00 + -17.50000 -52.50000 0.0000000E+00 + -16.50000 -52.50000 0.0000000E+00 + -15.50000 -52.50000 0.0000000E+00 + -14.50000 -52.50000 0.0000000E+00 + -13.50000 -52.50000 0.0000000E+00 + -12.50000 -52.50000 0.0000000E+00 + -11.50000 -52.50000 0.0000000E+00 + -10.50000 -52.50000 0.0000000E+00 + -9.500000 -52.50000 0.0000000E+00 + -8.500000 -52.50000 0.0000000E+00 + -7.500000 -52.50000 0.0000000E+00 + -6.500000 -52.50000 0.0000000E+00 + -5.500000 -52.50000 0.0000000E+00 + -4.500000 -52.50000 0.0000000E+00 + -3.500000 -52.50000 0.0000000E+00 + -2.500000 -52.50000 0.0000000E+00 + -1.500000 -52.50000 0.0000000E+00 + -0.5000000 -52.50000 0.0000000E+00 + 0.5000000 -52.50000 0.0000000E+00 + 1.500000 -52.50000 0.0000000E+00 + 2.500000 -52.50000 0.0000000E+00 + 3.500000 -52.50000 0.0000000E+00 + 4.500000 -52.50000 0.0000000E+00 + 5.500000 -52.50000 0.0000000E+00 + 6.500000 -52.50000 0.0000000E+00 + 7.500000 -52.50000 0.0000000E+00 + 8.500000 -52.50000 0.0000000E+00 + 9.500000 -52.50000 0.0000000E+00 + 10.50000 -52.50000 0.0000000E+00 + 11.50000 -52.50000 0.0000000E+00 + 12.50000 -52.50000 0.0000000E+00 + 13.50000 -52.50000 0.0000000E+00 + 14.50000 -52.50000 0.0000000E+00 + 15.50000 -52.50000 0.0000000E+00 + 16.50000 -52.50000 0.0000000E+00 + 17.50000 -52.50000 0.0000000E+00 + 18.50000 -52.50000 0.0000000E+00 + 19.50000 -52.50000 0.0000000E+00 + 20.50000 -52.50000 0.0000000E+00 + 21.50000 -52.50000 0.0000000E+00 + 22.50000 -52.50000 0.0000000E+00 + 23.50000 -52.50000 0.0000000E+00 + 24.50000 -52.50000 0.0000000E+00 + 25.50000 -52.50000 0.0000000E+00 + 26.50000 -52.50000 0.0000000E+00 + 27.50000 -52.50000 0.0000000E+00 + 28.50000 -52.50000 0.0000000E+00 + 29.50000 -52.50000 0.0000000E+00 + 30.50000 -52.50000 0.0000000E+00 + 31.50000 -52.50000 0.0000000E+00 + 32.50000 -52.50000 0.0000000E+00 + 33.50000 -52.50000 0.0000000E+00 + 34.50000 -52.50000 0.0000000E+00 + 35.50000 -52.50000 0.0000000E+00 + 36.50000 -52.50000 0.0000000E+00 + 37.50000 -52.50000 0.0000000E+00 + 38.50000 -52.50000 0.0000000E+00 + 39.50000 -52.50000 0.0000000E+00 + 40.50000 -52.50000 0.0000000E+00 + 41.50000 -52.50000 0.0000000E+00 + 42.50000 -52.50000 0.0000000E+00 + 43.50000 -52.50000 0.0000000E+00 + 44.50000 -52.50000 0.0000000E+00 + 45.50000 -52.50000 0.0000000E+00 + 46.50000 -52.50000 0.0000000E+00 + 47.50000 -52.50000 0.0000000E+00 + 48.50000 -52.50000 0.0000000E+00 + 49.50000 -52.50000 0.0000000E+00 + 50.50000 -52.50000 0.0000000E+00 + 51.50000 -52.50000 0.0000000E+00 + 52.50000 -52.50000 0.0000000E+00 + 53.50000 -52.50000 0.0000000E+00 + 54.50000 -52.50000 0.0000000E+00 + 55.50000 -52.50000 0.0000000E+00 + 56.50000 -52.50000 0.0000000E+00 + 57.50000 -52.50000 0.0000000E+00 + 58.50000 -52.50000 0.0000000E+00 + 59.50000 -52.50000 0.0000000E+00 + 60.50000 -52.50000 0.0000000E+00 + 61.50000 -52.50000 0.0000000E+00 + 62.50000 -52.50000 0.0000000E+00 + 63.50000 -52.50000 0.0000000E+00 + 64.50000 -52.50000 0.0000000E+00 + 65.50000 -52.50000 0.0000000E+00 + 66.50000 -52.50000 0.0000000E+00 + 67.50000 -52.50000 0.0000000E+00 + 68.50000 -52.50000 0.0000000E+00 + 69.50000 -52.50000 0.0000000E+00 + 70.50000 -52.50000 0.0000000E+00 + 71.50000 -52.50000 0.0000000E+00 + 72.50000 -52.50000 0.0000000E+00 + 73.50000 -52.50000 0.0000000E+00 + 74.50000 -52.50000 0.0000000E+00 + 75.50000 -52.50000 0.0000000E+00 + 76.50000 -52.50000 0.0000000E+00 + 77.50000 -52.50000 0.0000000E+00 + 78.50000 -52.50000 0.0000000E+00 + 79.50000 -52.50000 0.0000000E+00 + 80.50000 -52.50000 0.0000000E+00 + 81.50000 -52.50000 0.0000000E+00 + 82.50000 -52.50000 0.0000000E+00 + 83.50000 -52.50000 0.0000000E+00 + 84.50000 -52.50000 0.0000000E+00 + 85.50000 -52.50000 0.0000000E+00 + 86.50000 -52.50000 0.0000000E+00 + 87.50000 -52.50000 0.0000000E+00 + 88.50000 -52.50000 0.0000000E+00 + 89.50000 -52.50000 0.0000000E+00 + -89.50000 -51.50000 0.0000000E+00 + -88.50000 -51.50000 0.0000000E+00 + -87.50000 -51.50000 0.0000000E+00 + -86.50000 -51.50000 0.0000000E+00 + -85.50000 -51.50000 0.0000000E+00 + -84.50000 -51.50000 0.0000000E+00 + -83.50000 -51.50000 0.0000000E+00 + -82.50000 -51.50000 0.0000000E+00 + -81.50000 -51.50000 0.0000000E+00 + -80.50000 -51.50000 0.0000000E+00 + -79.50000 -51.50000 0.0000000E+00 + -78.50000 -51.50000 0.0000000E+00 + -77.50000 -51.50000 0.0000000E+00 + -76.50000 -51.50000 0.0000000E+00 + -75.50000 -51.50000 0.0000000E+00 + -74.50000 -51.50000 0.0000000E+00 + -73.50000 -51.50000 0.0000000E+00 + -72.50000 -51.50000 0.0000000E+00 + -71.50000 -51.50000 0.0000000E+00 + -70.50000 -51.50000 0.0000000E+00 + -69.50000 -51.50000 0.0000000E+00 + -68.50000 -51.50000 0.0000000E+00 + -67.50000 -51.50000 0.0000000E+00 + -66.50000 -51.50000 0.0000000E+00 + -65.50000 -51.50000 0.0000000E+00 + -64.50000 -51.50000 0.0000000E+00 + -63.50000 -51.50000 0.0000000E+00 + -62.50000 -51.50000 0.0000000E+00 + -61.50000 -51.50000 0.0000000E+00 + -60.50000 -51.50000 0.0000000E+00 + -59.50000 -51.50000 0.0000000E+00 + -58.50000 -51.50000 0.0000000E+00 + -57.50000 -51.50000 0.0000000E+00 + -56.50000 -51.50000 0.0000000E+00 + -55.50000 -51.50000 0.0000000E+00 + -54.50000 -51.50000 0.0000000E+00 + -53.50000 -51.50000 0.0000000E+00 + -52.50000 -51.50000 0.0000000E+00 + -51.50000 -51.50000 0.0000000E+00 + -50.50000 -51.50000 0.0000000E+00 + -49.50000 -51.50000 0.0000000E+00 + -48.50000 -51.50000 0.0000000E+00 + -47.50000 -51.50000 0.0000000E+00 + -46.50000 -51.50000 0.0000000E+00 + -45.50000 -51.50000 0.0000000E+00 + -44.50000 -51.50000 0.0000000E+00 + -43.50000 -51.50000 0.0000000E+00 + -42.50000 -51.50000 0.0000000E+00 + -41.50000 -51.50000 0.0000000E+00 + -40.50000 -51.50000 0.0000000E+00 + -39.50000 -51.50000 0.0000000E+00 + -38.50000 -51.50000 0.0000000E+00 + -37.50000 -51.50000 0.0000000E+00 + -36.50000 -51.50000 0.0000000E+00 + -35.50000 -51.50000 0.0000000E+00 + -34.50000 -51.50000 0.0000000E+00 + -33.50000 -51.50000 0.0000000E+00 + -32.50000 -51.50000 0.0000000E+00 + -31.50000 -51.50000 0.0000000E+00 + -30.50000 -51.50000 0.0000000E+00 + -29.50000 -51.50000 0.0000000E+00 + -28.50000 -51.50000 0.0000000E+00 + -27.50000 -51.50000 0.0000000E+00 + -26.50000 -51.50000 0.0000000E+00 + -25.50000 -51.50000 0.0000000E+00 + -24.50000 -51.50000 0.0000000E+00 + -23.50000 -51.50000 0.0000000E+00 + -22.50000 -51.50000 0.0000000E+00 + -21.50000 -51.50000 0.0000000E+00 + -20.50000 -51.50000 0.0000000E+00 + -19.50000 -51.50000 0.0000000E+00 + -18.50000 -51.50000 0.0000000E+00 + -17.50000 -51.50000 0.0000000E+00 + -16.50000 -51.50000 0.0000000E+00 + -15.50000 -51.50000 0.0000000E+00 + -14.50000 -51.50000 0.0000000E+00 + -13.50000 -51.50000 0.0000000E+00 + -12.50000 -51.50000 0.0000000E+00 + -11.50000 -51.50000 0.0000000E+00 + -10.50000 -51.50000 0.0000000E+00 + -9.500000 -51.50000 0.0000000E+00 + -8.500000 -51.50000 0.0000000E+00 + -7.500000 -51.50000 0.0000000E+00 + -6.500000 -51.50000 0.0000000E+00 + -5.500000 -51.50000 0.0000000E+00 + -4.500000 -51.50000 0.0000000E+00 + -3.500000 -51.50000 0.0000000E+00 + -2.500000 -51.50000 0.0000000E+00 + -1.500000 -51.50000 0.0000000E+00 + -0.5000000 -51.50000 0.0000000E+00 + 0.5000000 -51.50000 0.0000000E+00 + 1.500000 -51.50000 0.0000000E+00 + 2.500000 -51.50000 0.0000000E+00 + 3.500000 -51.50000 0.0000000E+00 + 4.500000 -51.50000 0.0000000E+00 + 5.500000 -51.50000 0.0000000E+00 + 6.500000 -51.50000 0.0000000E+00 + 7.500000 -51.50000 0.0000000E+00 + 8.500000 -51.50000 0.0000000E+00 + 9.500000 -51.50000 0.0000000E+00 + 10.50000 -51.50000 0.0000000E+00 + 11.50000 -51.50000 0.0000000E+00 + 12.50000 -51.50000 0.0000000E+00 + 13.50000 -51.50000 0.0000000E+00 + 14.50000 -51.50000 0.0000000E+00 + 15.50000 -51.50000 0.0000000E+00 + 16.50000 -51.50000 0.0000000E+00 + 17.50000 -51.50000 0.0000000E+00 + 18.50000 -51.50000 0.0000000E+00 + 19.50000 -51.50000 0.0000000E+00 + 20.50000 -51.50000 0.0000000E+00 + 21.50000 -51.50000 0.0000000E+00 + 22.50000 -51.50000 0.0000000E+00 + 23.50000 -51.50000 0.0000000E+00 + 24.50000 -51.50000 0.0000000E+00 + 25.50000 -51.50000 0.0000000E+00 + 26.50000 -51.50000 0.0000000E+00 + 27.50000 -51.50000 0.0000000E+00 + 28.50000 -51.50000 0.0000000E+00 + 29.50000 -51.50000 0.0000000E+00 + 30.50000 -51.50000 0.0000000E+00 + 31.50000 -51.50000 0.0000000E+00 + 32.50000 -51.50000 0.0000000E+00 + 33.50000 -51.50000 0.0000000E+00 + 34.50000 -51.50000 0.0000000E+00 + 35.50000 -51.50000 0.0000000E+00 + 36.50000 -51.50000 0.0000000E+00 + 37.50000 -51.50000 0.0000000E+00 + 38.50000 -51.50000 0.0000000E+00 + 39.50000 -51.50000 0.0000000E+00 + 40.50000 -51.50000 0.0000000E+00 + 41.50000 -51.50000 0.0000000E+00 + 42.50000 -51.50000 0.0000000E+00 + 43.50000 -51.50000 0.0000000E+00 + 44.50000 -51.50000 0.0000000E+00 + 45.50000 -51.50000 0.0000000E+00 + 46.50000 -51.50000 0.0000000E+00 + 47.50000 -51.50000 0.0000000E+00 + 48.50000 -51.50000 0.0000000E+00 + 49.50000 -51.50000 0.0000000E+00 + 50.50000 -51.50000 0.0000000E+00 + 51.50000 -51.50000 0.0000000E+00 + 52.50000 -51.50000 0.0000000E+00 + 53.50000 -51.50000 0.0000000E+00 + 54.50000 -51.50000 0.0000000E+00 + 55.50000 -51.50000 0.0000000E+00 + 56.50000 -51.50000 0.0000000E+00 + 57.50000 -51.50000 0.0000000E+00 + 58.50000 -51.50000 0.0000000E+00 + 59.50000 -51.50000 0.0000000E+00 + 60.50000 -51.50000 0.0000000E+00 + 61.50000 -51.50000 0.0000000E+00 + 62.50000 -51.50000 0.0000000E+00 + 63.50000 -51.50000 0.0000000E+00 + 64.50000 -51.50000 0.0000000E+00 + 65.50000 -51.50000 0.0000000E+00 + 66.50000 -51.50000 0.0000000E+00 + 67.50000 -51.50000 0.0000000E+00 + 68.50000 -51.50000 0.0000000E+00 + 69.50000 -51.50000 0.0000000E+00 + 70.50000 -51.50000 0.0000000E+00 + 71.50000 -51.50000 0.0000000E+00 + 72.50000 -51.50000 0.0000000E+00 + 73.50000 -51.50000 0.0000000E+00 + 74.50000 -51.50000 0.0000000E+00 + 75.50000 -51.50000 0.0000000E+00 + 76.50000 -51.50000 0.0000000E+00 + 77.50000 -51.50000 0.0000000E+00 + 78.50000 -51.50000 0.0000000E+00 + 79.50000 -51.50000 0.0000000E+00 + 80.50000 -51.50000 0.0000000E+00 + 81.50000 -51.50000 0.0000000E+00 + 82.50000 -51.50000 0.0000000E+00 + 83.50000 -51.50000 0.0000000E+00 + 84.50000 -51.50000 0.0000000E+00 + 85.50000 -51.50000 0.0000000E+00 + 86.50000 -51.50000 0.0000000E+00 + 87.50000 -51.50000 0.0000000E+00 + 88.50000 -51.50000 0.0000000E+00 + 89.50000 -51.50000 0.0000000E+00 + -89.50000 -50.50000 0.0000000E+00 + -88.50000 -50.50000 0.0000000E+00 + -87.50000 -50.50000 0.0000000E+00 + -86.50000 -50.50000 0.0000000E+00 + -85.50000 -50.50000 0.0000000E+00 + -84.50000 -50.50000 0.0000000E+00 + -83.50000 -50.50000 0.0000000E+00 + -82.50000 -50.50000 0.0000000E+00 + -81.50000 -50.50000 0.0000000E+00 + -80.50000 -50.50000 0.0000000E+00 + -79.50000 -50.50000 0.0000000E+00 + -78.50000 -50.50000 0.0000000E+00 + -77.50000 -50.50000 0.0000000E+00 + -76.50000 -50.50000 0.0000000E+00 + -75.50000 -50.50000 0.0000000E+00 + -74.50000 -50.50000 0.0000000E+00 + -73.50000 -50.50000 0.0000000E+00 + -72.50000 -50.50000 0.0000000E+00 + -71.50000 -50.50000 0.0000000E+00 + -70.50000 -50.50000 0.0000000E+00 + -69.50000 -50.50000 0.0000000E+00 + -68.50000 -50.50000 0.0000000E+00 + -67.50000 -50.50000 0.0000000E+00 + -66.50000 -50.50000 0.0000000E+00 + -65.50000 -50.50000 0.0000000E+00 + -64.50000 -50.50000 0.0000000E+00 + -63.50000 -50.50000 0.0000000E+00 + -62.50000 -50.50000 0.0000000E+00 + -61.50000 -50.50000 0.0000000E+00 + -60.50000 -50.50000 0.0000000E+00 + -59.50000 -50.50000 0.0000000E+00 + -58.50000 -50.50000 0.0000000E+00 + -57.50000 -50.50000 0.0000000E+00 + -56.50000 -50.50000 0.0000000E+00 + -55.50000 -50.50000 0.0000000E+00 + -54.50000 -50.50000 0.0000000E+00 + -53.50000 -50.50000 0.0000000E+00 + -52.50000 -50.50000 0.0000000E+00 + -51.50000 -50.50000 0.0000000E+00 + -50.50000 -50.50000 0.0000000E+00 + -49.50000 -50.50000 0.0000000E+00 + -48.50000 -50.50000 0.0000000E+00 + -47.50000 -50.50000 0.0000000E+00 + -46.50000 -50.50000 0.0000000E+00 + -45.50000 -50.50000 0.0000000E+00 + -44.50000 -50.50000 0.0000000E+00 + -43.50000 -50.50000 0.0000000E+00 + -42.50000 -50.50000 0.0000000E+00 + -41.50000 -50.50000 0.0000000E+00 + -40.50000 -50.50000 0.0000000E+00 + -39.50000 -50.50000 0.0000000E+00 + -38.50000 -50.50000 0.0000000E+00 + -37.50000 -50.50000 0.0000000E+00 + -36.50000 -50.50000 0.0000000E+00 + -35.50000 -50.50000 0.0000000E+00 + -34.50000 -50.50000 0.0000000E+00 + -33.50000 -50.50000 0.0000000E+00 + -32.50000 -50.50000 0.0000000E+00 + -31.50000 -50.50000 0.0000000E+00 + -30.50000 -50.50000 0.0000000E+00 + -29.50000 -50.50000 0.0000000E+00 + -28.50000 -50.50000 0.0000000E+00 + -27.50000 -50.50000 0.0000000E+00 + -26.50000 -50.50000 0.0000000E+00 + -25.50000 -50.50000 0.0000000E+00 + -24.50000 -50.50000 0.0000000E+00 + -23.50000 -50.50000 0.0000000E+00 + -22.50000 -50.50000 0.0000000E+00 + -21.50000 -50.50000 0.0000000E+00 + -20.50000 -50.50000 0.0000000E+00 + -19.50000 -50.50000 0.0000000E+00 + -18.50000 -50.50000 0.0000000E+00 + -17.50000 -50.50000 0.0000000E+00 + -16.50000 -50.50000 0.0000000E+00 + -15.50000 -50.50000 0.0000000E+00 + -14.50000 -50.50000 0.0000000E+00 + -13.50000 -50.50000 0.0000000E+00 + -12.50000 -50.50000 0.0000000E+00 + -11.50000 -50.50000 0.0000000E+00 + -10.50000 -50.50000 0.0000000E+00 + -9.500000 -50.50000 0.0000000E+00 + -8.500000 -50.50000 0.0000000E+00 + -7.500000 -50.50000 0.0000000E+00 + -6.500000 -50.50000 0.0000000E+00 + -5.500000 -50.50000 0.0000000E+00 + -4.500000 -50.50000 0.0000000E+00 + -3.500000 -50.50000 0.0000000E+00 + -2.500000 -50.50000 0.0000000E+00 + -1.500000 -50.50000 0.0000000E+00 + -0.5000000 -50.50000 0.0000000E+00 + 0.5000000 -50.50000 0.0000000E+00 + 1.500000 -50.50000 0.0000000E+00 + 2.500000 -50.50000 0.0000000E+00 + 3.500000 -50.50000 0.0000000E+00 + 4.500000 -50.50000 0.0000000E+00 + 5.500000 -50.50000 0.0000000E+00 + 6.500000 -50.50000 0.0000000E+00 + 7.500000 -50.50000 0.0000000E+00 + 8.500000 -50.50000 0.0000000E+00 + 9.500000 -50.50000 0.0000000E+00 + 10.50000 -50.50000 0.0000000E+00 + 11.50000 -50.50000 0.0000000E+00 + 12.50000 -50.50000 0.0000000E+00 + 13.50000 -50.50000 0.0000000E+00 + 14.50000 -50.50000 0.0000000E+00 + 15.50000 -50.50000 0.0000000E+00 + 16.50000 -50.50000 0.0000000E+00 + 17.50000 -50.50000 0.0000000E+00 + 18.50000 -50.50000 0.0000000E+00 + 19.50000 -50.50000 0.0000000E+00 + 20.50000 -50.50000 0.0000000E+00 + 21.50000 -50.50000 0.0000000E+00 + 22.50000 -50.50000 0.0000000E+00 + 23.50000 -50.50000 0.0000000E+00 + 24.50000 -50.50000 0.0000000E+00 + 25.50000 -50.50000 0.0000000E+00 + 26.50000 -50.50000 0.0000000E+00 + 27.50000 -50.50000 0.0000000E+00 + 28.50000 -50.50000 0.0000000E+00 + 29.50000 -50.50000 0.0000000E+00 + 30.50000 -50.50000 0.0000000E+00 + 31.50000 -50.50000 0.0000000E+00 + 32.50000 -50.50000 0.0000000E+00 + 33.50000 -50.50000 0.0000000E+00 + 34.50000 -50.50000 0.0000000E+00 + 35.50000 -50.50000 0.0000000E+00 + 36.50000 -50.50000 0.0000000E+00 + 37.50000 -50.50000 0.0000000E+00 + 38.50000 -50.50000 0.0000000E+00 + 39.50000 -50.50000 0.0000000E+00 + 40.50000 -50.50000 0.0000000E+00 + 41.50000 -50.50000 0.0000000E+00 + 42.50000 -50.50000 0.0000000E+00 + 43.50000 -50.50000 0.0000000E+00 + 44.50000 -50.50000 0.0000000E+00 + 45.50000 -50.50000 0.0000000E+00 + 46.50000 -50.50000 0.0000000E+00 + 47.50000 -50.50000 0.0000000E+00 + 48.50000 -50.50000 0.0000000E+00 + 49.50000 -50.50000 0.0000000E+00 + 50.50000 -50.50000 0.0000000E+00 + 51.50000 -50.50000 0.0000000E+00 + 52.50000 -50.50000 0.0000000E+00 + 53.50000 -50.50000 0.0000000E+00 + 54.50000 -50.50000 0.0000000E+00 + 55.50000 -50.50000 0.0000000E+00 + 56.50000 -50.50000 0.0000000E+00 + 57.50000 -50.50000 0.0000000E+00 + 58.50000 -50.50000 0.0000000E+00 + 59.50000 -50.50000 0.0000000E+00 + 60.50000 -50.50000 0.0000000E+00 + 61.50000 -50.50000 0.0000000E+00 + 62.50000 -50.50000 0.0000000E+00 + 63.50000 -50.50000 0.0000000E+00 + 64.50000 -50.50000 0.0000000E+00 + 65.50000 -50.50000 0.0000000E+00 + 66.50000 -50.50000 0.0000000E+00 + 67.50000 -50.50000 0.0000000E+00 + 68.50000 -50.50000 0.0000000E+00 + 69.50000 -50.50000 0.0000000E+00 + 70.50000 -50.50000 0.0000000E+00 + 71.50000 -50.50000 0.0000000E+00 + 72.50000 -50.50000 0.0000000E+00 + 73.50000 -50.50000 0.0000000E+00 + 74.50000 -50.50000 0.0000000E+00 + 75.50000 -50.50000 0.0000000E+00 + 76.50000 -50.50000 0.0000000E+00 + 77.50000 -50.50000 0.0000000E+00 + 78.50000 -50.50000 0.0000000E+00 + 79.50000 -50.50000 0.0000000E+00 + 80.50000 -50.50000 0.0000000E+00 + 81.50000 -50.50000 0.0000000E+00 + 82.50000 -50.50000 0.0000000E+00 + 83.50000 -50.50000 0.0000000E+00 + 84.50000 -50.50000 0.0000000E+00 + 85.50000 -50.50000 0.0000000E+00 + 86.50000 -50.50000 0.0000000E+00 + 87.50000 -50.50000 0.0000000E+00 + 88.50000 -50.50000 0.0000000E+00 + 89.50000 -50.50000 0.0000000E+00 + -89.50000 -49.50000 0.0000000E+00 + -88.50000 -49.50000 0.0000000E+00 + -87.50000 -49.50000 0.0000000E+00 + -86.50000 -49.50000 0.0000000E+00 + -85.50000 -49.50000 0.0000000E+00 + -84.50000 -49.50000 0.0000000E+00 + -83.50000 -49.50000 0.0000000E+00 + -82.50000 -49.50000 0.0000000E+00 + -81.50000 -49.50000 0.0000000E+00 + -80.50000 -49.50000 0.0000000E+00 + -79.50000 -49.50000 0.0000000E+00 + -78.50000 -49.50000 0.0000000E+00 + -77.50000 -49.50000 0.0000000E+00 + -76.50000 -49.50000 0.0000000E+00 + -75.50000 -49.50000 0.0000000E+00 + -74.50000 -49.50000 0.0000000E+00 + -73.50000 -49.50000 0.0000000E+00 + -72.50000 -49.50000 0.0000000E+00 + -71.50000 -49.50000 0.0000000E+00 + -70.50000 -49.50000 0.0000000E+00 + -69.50000 -49.50000 0.0000000E+00 + -68.50000 -49.50000 0.0000000E+00 + -67.50000 -49.50000 0.0000000E+00 + -66.50000 -49.50000 0.0000000E+00 + -65.50000 -49.50000 0.0000000E+00 + -64.50000 -49.50000 0.0000000E+00 + -63.50000 -49.50000 0.0000000E+00 + -62.50000 -49.50000 0.0000000E+00 + -61.50000 -49.50000 0.0000000E+00 + -60.50000 -49.50000 0.0000000E+00 + -59.50000 -49.50000 0.0000000E+00 + -58.50000 -49.50000 0.0000000E+00 + -57.50000 -49.50000 0.0000000E+00 + -56.50000 -49.50000 0.0000000E+00 + -55.50000 -49.50000 0.0000000E+00 + -54.50000 -49.50000 0.0000000E+00 + -53.50000 -49.50000 0.0000000E+00 + -52.50000 -49.50000 0.0000000E+00 + -51.50000 -49.50000 0.0000000E+00 + -50.50000 -49.50000 0.0000000E+00 + -49.50000 -49.50000 0.0000000E+00 + -48.50000 -49.50000 0.0000000E+00 + -47.50000 -49.50000 0.0000000E+00 + -46.50000 -49.50000 0.0000000E+00 + -45.50000 -49.50000 0.0000000E+00 + -44.50000 -49.50000 0.0000000E+00 + -43.50000 -49.50000 0.0000000E+00 + -42.50000 -49.50000 0.0000000E+00 + -41.50000 -49.50000 0.0000000E+00 + -40.50000 -49.50000 0.0000000E+00 + -39.50000 -49.50000 0.0000000E+00 + -38.50000 -49.50000 0.0000000E+00 + -37.50000 -49.50000 0.0000000E+00 + -36.50000 -49.50000 0.0000000E+00 + -35.50000 -49.50000 0.0000000E+00 + -34.50000 -49.50000 0.0000000E+00 + -33.50000 -49.50000 0.0000000E+00 + -32.50000 -49.50000 0.0000000E+00 + -31.50000 -49.50000 0.0000000E+00 + -30.50000 -49.50000 0.0000000E+00 + -29.50000 -49.50000 0.0000000E+00 + -28.50000 -49.50000 0.0000000E+00 + -27.50000 -49.50000 0.0000000E+00 + -26.50000 -49.50000 0.0000000E+00 + -25.50000 -49.50000 0.0000000E+00 + -24.50000 -49.50000 0.0000000E+00 + -23.50000 -49.50000 0.0000000E+00 + -22.50000 -49.50000 0.0000000E+00 + -21.50000 -49.50000 0.0000000E+00 + -20.50000 -49.50000 0.0000000E+00 + -19.50000 -49.50000 0.0000000E+00 + -18.50000 -49.50000 0.0000000E+00 + -17.50000 -49.50000 0.0000000E+00 + -16.50000 -49.50000 0.0000000E+00 + -15.50000 -49.50000 0.0000000E+00 + -14.50000 -49.50000 0.0000000E+00 + -13.50000 -49.50000 0.0000000E+00 + -12.50000 -49.50000 0.0000000E+00 + -11.50000 -49.50000 0.0000000E+00 + -10.50000 -49.50000 0.0000000E+00 + -9.500000 -49.50000 0.0000000E+00 + -8.500000 -49.50000 0.0000000E+00 + -7.500000 -49.50000 0.0000000E+00 + -6.500000 -49.50000 0.0000000E+00 + -5.500000 -49.50000 0.0000000E+00 + -4.500000 -49.50000 0.0000000E+00 + -3.500000 -49.50000 0.0000000E+00 + -2.500000 -49.50000 0.0000000E+00 + -1.500000 -49.50000 0.0000000E+00 + -0.5000000 -49.50000 0.0000000E+00 + 0.5000000 -49.50000 0.0000000E+00 + 1.500000 -49.50000 0.0000000E+00 + 2.500000 -49.50000 0.0000000E+00 + 3.500000 -49.50000 0.0000000E+00 + 4.500000 -49.50000 0.0000000E+00 + 5.500000 -49.50000 0.0000000E+00 + 6.500000 -49.50000 0.0000000E+00 + 7.500000 -49.50000 0.0000000E+00 + 8.500000 -49.50000 0.0000000E+00 + 9.500000 -49.50000 0.0000000E+00 + 10.50000 -49.50000 0.0000000E+00 + 11.50000 -49.50000 0.0000000E+00 + 12.50000 -49.50000 0.0000000E+00 + 13.50000 -49.50000 0.0000000E+00 + 14.50000 -49.50000 0.0000000E+00 + 15.50000 -49.50000 0.0000000E+00 + 16.50000 -49.50000 0.0000000E+00 + 17.50000 -49.50000 0.0000000E+00 + 18.50000 -49.50000 0.0000000E+00 + 19.50000 -49.50000 0.0000000E+00 + 20.50000 -49.50000 0.0000000E+00 + 21.50000 -49.50000 0.0000000E+00 + 22.50000 -49.50000 0.0000000E+00 + 23.50000 -49.50000 0.0000000E+00 + 24.50000 -49.50000 0.0000000E+00 + 25.50000 -49.50000 0.0000000E+00 + 26.50000 -49.50000 0.0000000E+00 + 27.50000 -49.50000 0.0000000E+00 + 28.50000 -49.50000 0.0000000E+00 + 29.50000 -49.50000 0.0000000E+00 + 30.50000 -49.50000 0.0000000E+00 + 31.50000 -49.50000 0.0000000E+00 + 32.50000 -49.50000 0.0000000E+00 + 33.50000 -49.50000 0.0000000E+00 + 34.50000 -49.50000 0.0000000E+00 + 35.50000 -49.50000 0.0000000E+00 + 36.50000 -49.50000 0.0000000E+00 + 37.50000 -49.50000 0.0000000E+00 + 38.50000 -49.50000 0.0000000E+00 + 39.50000 -49.50000 0.0000000E+00 + 40.50000 -49.50000 0.0000000E+00 + 41.50000 -49.50000 0.0000000E+00 + 42.50000 -49.50000 0.0000000E+00 + 43.50000 -49.50000 0.0000000E+00 + 44.50000 -49.50000 0.0000000E+00 + 45.50000 -49.50000 0.0000000E+00 + 46.50000 -49.50000 0.0000000E+00 + 47.50000 -49.50000 0.0000000E+00 + 48.50000 -49.50000 0.0000000E+00 + 49.50000 -49.50000 0.0000000E+00 + 50.50000 -49.50000 0.0000000E+00 + 51.50000 -49.50000 0.0000000E+00 + 52.50000 -49.50000 0.0000000E+00 + 53.50000 -49.50000 0.0000000E+00 + 54.50000 -49.50000 0.0000000E+00 + 55.50000 -49.50000 0.0000000E+00 + 56.50000 -49.50000 0.0000000E+00 + 57.50000 -49.50000 0.0000000E+00 + 58.50000 -49.50000 0.0000000E+00 + 59.50000 -49.50000 0.0000000E+00 + 60.50000 -49.50000 0.0000000E+00 + 61.50000 -49.50000 0.0000000E+00 + 62.50000 -49.50000 0.0000000E+00 + 63.50000 -49.50000 0.0000000E+00 + 64.50000 -49.50000 0.0000000E+00 + 65.50000 -49.50000 0.0000000E+00 + 66.50000 -49.50000 0.0000000E+00 + 67.50000 -49.50000 0.0000000E+00 + 68.50000 -49.50000 0.0000000E+00 + 69.50000 -49.50000 0.0000000E+00 + 70.50000 -49.50000 0.0000000E+00 + 71.50000 -49.50000 0.0000000E+00 + 72.50000 -49.50000 0.0000000E+00 + 73.50000 -49.50000 0.0000000E+00 + 74.50000 -49.50000 0.0000000E+00 + 75.50000 -49.50000 0.0000000E+00 + 76.50000 -49.50000 0.0000000E+00 + 77.50000 -49.50000 0.0000000E+00 + 78.50000 -49.50000 0.0000000E+00 + 79.50000 -49.50000 0.0000000E+00 + 80.50000 -49.50000 0.0000000E+00 + 81.50000 -49.50000 0.0000000E+00 + 82.50000 -49.50000 0.0000000E+00 + 83.50000 -49.50000 0.0000000E+00 + 84.50000 -49.50000 0.0000000E+00 + 85.50000 -49.50000 0.0000000E+00 + 86.50000 -49.50000 0.0000000E+00 + 87.50000 -49.50000 0.0000000E+00 + 88.50000 -49.50000 0.0000000E+00 + 89.50000 -49.50000 0.0000000E+00 + -89.50000 -48.50000 0.0000000E+00 + -88.50000 -48.50000 0.0000000E+00 + -87.50000 -48.50000 0.0000000E+00 + -86.50000 -48.50000 0.0000000E+00 + -85.50000 -48.50000 0.0000000E+00 + -84.50000 -48.50000 0.0000000E+00 + -83.50000 -48.50000 0.0000000E+00 + -82.50000 -48.50000 0.0000000E+00 + -81.50000 -48.50000 0.0000000E+00 + -80.50000 -48.50000 0.0000000E+00 + -79.50000 -48.50000 0.0000000E+00 + -78.50000 -48.50000 0.0000000E+00 + -77.50000 -48.50000 0.0000000E+00 + -76.50000 -48.50000 0.0000000E+00 + -75.50000 -48.50000 0.0000000E+00 + -74.50000 -48.50000 0.0000000E+00 + -73.50000 -48.50000 0.0000000E+00 + -72.50000 -48.50000 0.0000000E+00 + -71.50000 -48.50000 0.0000000E+00 + -70.50000 -48.50000 0.0000000E+00 + -69.50000 -48.50000 0.0000000E+00 + -68.50000 -48.50000 0.0000000E+00 + -67.50000 -48.50000 0.0000000E+00 + -66.50000 -48.50000 0.0000000E+00 + -65.50000 -48.50000 0.0000000E+00 + -64.50000 -48.50000 0.0000000E+00 + -63.50000 -48.50000 0.0000000E+00 + -62.50000 -48.50000 0.0000000E+00 + -61.50000 -48.50000 0.0000000E+00 + -60.50000 -48.50000 0.0000000E+00 + -59.50000 -48.50000 0.0000000E+00 + -58.50000 -48.50000 0.0000000E+00 + -57.50000 -48.50000 0.0000000E+00 + -56.50000 -48.50000 0.0000000E+00 + -55.50000 -48.50000 0.0000000E+00 + -54.50000 -48.50000 0.0000000E+00 + -53.50000 -48.50000 0.0000000E+00 + -52.50000 -48.50000 0.0000000E+00 + -51.50000 -48.50000 0.0000000E+00 + -50.50000 -48.50000 0.0000000E+00 + -49.50000 -48.50000 0.0000000E+00 + -48.50000 -48.50000 0.0000000E+00 + -47.50000 -48.50000 0.0000000E+00 + -46.50000 -48.50000 0.0000000E+00 + -45.50000 -48.50000 0.0000000E+00 + -44.50000 -48.50000 0.0000000E+00 + -43.50000 -48.50000 0.0000000E+00 + -42.50000 -48.50000 0.0000000E+00 + -41.50000 -48.50000 0.0000000E+00 + -40.50000 -48.50000 0.0000000E+00 + -39.50000 -48.50000 0.0000000E+00 + -38.50000 -48.50000 0.0000000E+00 + -37.50000 -48.50000 0.0000000E+00 + -36.50000 -48.50000 0.0000000E+00 + -35.50000 -48.50000 0.0000000E+00 + -34.50000 -48.50000 0.0000000E+00 + -33.50000 -48.50000 0.0000000E+00 + -32.50000 -48.50000 0.0000000E+00 + -31.50000 -48.50000 0.0000000E+00 + -30.50000 -48.50000 0.0000000E+00 + -29.50000 -48.50000 0.0000000E+00 + -28.50000 -48.50000 0.0000000E+00 + -27.50000 -48.50000 0.0000000E+00 + -26.50000 -48.50000 0.0000000E+00 + -25.50000 -48.50000 0.0000000E+00 + -24.50000 -48.50000 0.0000000E+00 + -23.50000 -48.50000 0.0000000E+00 + -22.50000 -48.50000 0.0000000E+00 + -21.50000 -48.50000 0.0000000E+00 + -20.50000 -48.50000 0.0000000E+00 + -19.50000 -48.50000 0.0000000E+00 + -18.50000 -48.50000 0.0000000E+00 + -17.50000 -48.50000 0.0000000E+00 + -16.50000 -48.50000 0.0000000E+00 + -15.50000 -48.50000 0.0000000E+00 + -14.50000 -48.50000 0.0000000E+00 + -13.50000 -48.50000 0.0000000E+00 + -12.50000 -48.50000 0.0000000E+00 + -11.50000 -48.50000 0.0000000E+00 + -10.50000 -48.50000 0.0000000E+00 + -9.500000 -48.50000 0.0000000E+00 + -8.500000 -48.50000 0.0000000E+00 + -7.500000 -48.50000 0.0000000E+00 + -6.500000 -48.50000 0.0000000E+00 + -5.500000 -48.50000 0.0000000E+00 + -4.500000 -48.50000 0.0000000E+00 + -3.500000 -48.50000 0.0000000E+00 + -2.500000 -48.50000 0.0000000E+00 + -1.500000 -48.50000 0.0000000E+00 + -0.5000000 -48.50000 0.0000000E+00 + 0.5000000 -48.50000 0.0000000E+00 + 1.500000 -48.50000 0.0000000E+00 + 2.500000 -48.50000 0.0000000E+00 + 3.500000 -48.50000 0.0000000E+00 + 4.500000 -48.50000 0.0000000E+00 + 5.500000 -48.50000 0.0000000E+00 + 6.500000 -48.50000 0.0000000E+00 + 7.500000 -48.50000 0.0000000E+00 + 8.500000 -48.50000 0.0000000E+00 + 9.500000 -48.50000 0.0000000E+00 + 10.50000 -48.50000 0.0000000E+00 + 11.50000 -48.50000 0.0000000E+00 + 12.50000 -48.50000 0.0000000E+00 + 13.50000 -48.50000 0.0000000E+00 + 14.50000 -48.50000 0.0000000E+00 + 15.50000 -48.50000 0.0000000E+00 + 16.50000 -48.50000 0.0000000E+00 + 17.50000 -48.50000 0.0000000E+00 + 18.50000 -48.50000 0.0000000E+00 + 19.50000 -48.50000 0.0000000E+00 + 20.50000 -48.50000 0.0000000E+00 + 21.50000 -48.50000 0.0000000E+00 + 22.50000 -48.50000 0.0000000E+00 + 23.50000 -48.50000 0.0000000E+00 + 24.50000 -48.50000 0.0000000E+00 + 25.50000 -48.50000 0.0000000E+00 + 26.50000 -48.50000 0.0000000E+00 + 27.50000 -48.50000 0.0000000E+00 + 28.50000 -48.50000 0.0000000E+00 + 29.50000 -48.50000 0.0000000E+00 + 30.50000 -48.50000 0.0000000E+00 + 31.50000 -48.50000 0.0000000E+00 + 32.50000 -48.50000 0.0000000E+00 + 33.50000 -48.50000 0.0000000E+00 + 34.50000 -48.50000 0.0000000E+00 + 35.50000 -48.50000 0.0000000E+00 + 36.50000 -48.50000 0.0000000E+00 + 37.50000 -48.50000 0.0000000E+00 + 38.50000 -48.50000 0.0000000E+00 + 39.50000 -48.50000 0.0000000E+00 + 40.50000 -48.50000 0.0000000E+00 + 41.50000 -48.50000 0.0000000E+00 + 42.50000 -48.50000 0.0000000E+00 + 43.50000 -48.50000 0.0000000E+00 + 44.50000 -48.50000 0.0000000E+00 + 45.50000 -48.50000 0.0000000E+00 + 46.50000 -48.50000 0.0000000E+00 + 47.50000 -48.50000 0.0000000E+00 + 48.50000 -48.50000 0.0000000E+00 + 49.50000 -48.50000 0.0000000E+00 + 50.50000 -48.50000 0.0000000E+00 + 51.50000 -48.50000 0.0000000E+00 + 52.50000 -48.50000 0.0000000E+00 + 53.50000 -48.50000 0.0000000E+00 + 54.50000 -48.50000 0.0000000E+00 + 55.50000 -48.50000 0.0000000E+00 + 56.50000 -48.50000 0.0000000E+00 + 57.50000 -48.50000 0.0000000E+00 + 58.50000 -48.50000 0.0000000E+00 + 59.50000 -48.50000 0.0000000E+00 + 60.50000 -48.50000 0.0000000E+00 + 61.50000 -48.50000 0.0000000E+00 + 62.50000 -48.50000 0.0000000E+00 + 63.50000 -48.50000 0.0000000E+00 + 64.50000 -48.50000 0.0000000E+00 + 65.50000 -48.50000 0.0000000E+00 + 66.50000 -48.50000 0.0000000E+00 + 67.50000 -48.50000 0.0000000E+00 + 68.50000 -48.50000 0.0000000E+00 + 69.50000 -48.50000 0.0000000E+00 + 70.50000 -48.50000 0.0000000E+00 + 71.50000 -48.50000 0.0000000E+00 + 72.50000 -48.50000 0.0000000E+00 + 73.50000 -48.50000 0.0000000E+00 + 74.50000 -48.50000 0.0000000E+00 + 75.50000 -48.50000 0.0000000E+00 + 76.50000 -48.50000 0.0000000E+00 + 77.50000 -48.50000 0.0000000E+00 + 78.50000 -48.50000 0.0000000E+00 + 79.50000 -48.50000 0.0000000E+00 + 80.50000 -48.50000 0.0000000E+00 + 81.50000 -48.50000 0.0000000E+00 + 82.50000 -48.50000 0.0000000E+00 + 83.50000 -48.50000 0.0000000E+00 + 84.50000 -48.50000 0.0000000E+00 + 85.50000 -48.50000 0.0000000E+00 + 86.50000 -48.50000 0.0000000E+00 + 87.50000 -48.50000 0.0000000E+00 + 88.50000 -48.50000 0.0000000E+00 + 89.50000 -48.50000 0.0000000E+00 + -89.50000 -47.50000 0.0000000E+00 + -88.50000 -47.50000 0.0000000E+00 + -87.50000 -47.50000 0.0000000E+00 + -86.50000 -47.50000 0.0000000E+00 + -85.50000 -47.50000 0.0000000E+00 + -84.50000 -47.50000 0.0000000E+00 + -83.50000 -47.50000 0.0000000E+00 + -82.50000 -47.50000 0.0000000E+00 + -81.50000 -47.50000 0.0000000E+00 + -80.50000 -47.50000 0.0000000E+00 + -79.50000 -47.50000 0.0000000E+00 + -78.50000 -47.50000 0.0000000E+00 + -77.50000 -47.50000 0.0000000E+00 + -76.50000 -47.50000 0.0000000E+00 + -75.50000 -47.50000 0.0000000E+00 + -74.50000 -47.50000 0.0000000E+00 + -73.50000 -47.50000 0.0000000E+00 + -72.50000 -47.50000 0.0000000E+00 + -71.50000 -47.50000 0.0000000E+00 + -70.50000 -47.50000 0.0000000E+00 + -69.50000 -47.50000 0.0000000E+00 + -68.50000 -47.50000 0.0000000E+00 + -67.50000 -47.50000 0.0000000E+00 + -66.50000 -47.50000 0.0000000E+00 + -65.50000 -47.50000 0.0000000E+00 + -64.50000 -47.50000 0.0000000E+00 + -63.50000 -47.50000 0.0000000E+00 + -62.50000 -47.50000 0.0000000E+00 + -61.50000 -47.50000 0.0000000E+00 + -60.50000 -47.50000 0.0000000E+00 + -59.50000 -47.50000 0.0000000E+00 + -58.50000 -47.50000 0.0000000E+00 + -57.50000 -47.50000 0.0000000E+00 + -56.50000 -47.50000 0.0000000E+00 + -55.50000 -47.50000 0.0000000E+00 + -54.50000 -47.50000 0.0000000E+00 + -53.50000 -47.50000 0.0000000E+00 + -52.50000 -47.50000 0.0000000E+00 + -51.50000 -47.50000 0.0000000E+00 + -50.50000 -47.50000 0.0000000E+00 + -49.50000 -47.50000 0.0000000E+00 + -48.50000 -47.50000 0.0000000E+00 + -47.50000 -47.50000 0.0000000E+00 + -46.50000 -47.50000 0.0000000E+00 + -45.50000 -47.50000 0.0000000E+00 + -44.50000 -47.50000 0.0000000E+00 + -43.50000 -47.50000 0.0000000E+00 + -42.50000 -47.50000 0.0000000E+00 + -41.50000 -47.50000 0.0000000E+00 + -40.50000 -47.50000 0.0000000E+00 + -39.50000 -47.50000 0.0000000E+00 + -38.50000 -47.50000 0.0000000E+00 + -37.50000 -47.50000 0.0000000E+00 + -36.50000 -47.50000 0.0000000E+00 + -35.50000 -47.50000 0.0000000E+00 + -34.50000 -47.50000 0.0000000E+00 + -33.50000 -47.50000 0.0000000E+00 + -32.50000 -47.50000 0.0000000E+00 + -31.50000 -47.50000 0.0000000E+00 + -30.50000 -47.50000 0.0000000E+00 + -29.50000 -47.50000 0.0000000E+00 + -28.50000 -47.50000 0.0000000E+00 + -27.50000 -47.50000 0.0000000E+00 + -26.50000 -47.50000 0.0000000E+00 + -25.50000 -47.50000 0.0000000E+00 + -24.50000 -47.50000 0.0000000E+00 + -23.50000 -47.50000 0.0000000E+00 + -22.50000 -47.50000 0.0000000E+00 + -21.50000 -47.50000 0.0000000E+00 + -20.50000 -47.50000 0.0000000E+00 + -19.50000 -47.50000 0.0000000E+00 + -18.50000 -47.50000 0.0000000E+00 + -17.50000 -47.50000 0.0000000E+00 + -16.50000 -47.50000 0.0000000E+00 + -15.50000 -47.50000 0.0000000E+00 + -14.50000 -47.50000 0.0000000E+00 + -13.50000 -47.50000 0.0000000E+00 + -12.50000 -47.50000 0.0000000E+00 + -11.50000 -47.50000 0.0000000E+00 + -10.50000 -47.50000 0.0000000E+00 + -9.500000 -47.50000 0.0000000E+00 + -8.500000 -47.50000 0.0000000E+00 + -7.500000 -47.50000 0.0000000E+00 + -6.500000 -47.50000 0.0000000E+00 + -5.500000 -47.50000 0.0000000E+00 + -4.500000 -47.50000 0.0000000E+00 + -3.500000 -47.50000 0.0000000E+00 + -2.500000 -47.50000 0.0000000E+00 + -1.500000 -47.50000 0.0000000E+00 + -0.5000000 -47.50000 0.0000000E+00 + 0.5000000 -47.50000 0.0000000E+00 + 1.500000 -47.50000 0.0000000E+00 + 2.500000 -47.50000 0.0000000E+00 + 3.500000 -47.50000 0.0000000E+00 + 4.500000 -47.50000 0.0000000E+00 + 5.500000 -47.50000 0.0000000E+00 + 6.500000 -47.50000 0.0000000E+00 + 7.500000 -47.50000 0.0000000E+00 + 8.500000 -47.50000 0.0000000E+00 + 9.500000 -47.50000 0.0000000E+00 + 10.50000 -47.50000 0.0000000E+00 + 11.50000 -47.50000 0.0000000E+00 + 12.50000 -47.50000 0.0000000E+00 + 13.50000 -47.50000 0.0000000E+00 + 14.50000 -47.50000 0.0000000E+00 + 15.50000 -47.50000 0.0000000E+00 + 16.50000 -47.50000 0.0000000E+00 + 17.50000 -47.50000 0.0000000E+00 + 18.50000 -47.50000 0.0000000E+00 + 19.50000 -47.50000 0.0000000E+00 + 20.50000 -47.50000 0.0000000E+00 + 21.50000 -47.50000 0.0000000E+00 + 22.50000 -47.50000 0.0000000E+00 + 23.50000 -47.50000 0.0000000E+00 + 24.50000 -47.50000 0.0000000E+00 + 25.50000 -47.50000 0.0000000E+00 + 26.50000 -47.50000 0.0000000E+00 + 27.50000 -47.50000 0.0000000E+00 + 28.50000 -47.50000 0.0000000E+00 + 29.50000 -47.50000 0.0000000E+00 + 30.50000 -47.50000 0.0000000E+00 + 31.50000 -47.50000 0.0000000E+00 + 32.50000 -47.50000 0.0000000E+00 + 33.50000 -47.50000 0.0000000E+00 + 34.50000 -47.50000 0.0000000E+00 + 35.50000 -47.50000 0.0000000E+00 + 36.50000 -47.50000 0.0000000E+00 + 37.50000 -47.50000 0.0000000E+00 + 38.50000 -47.50000 0.0000000E+00 + 39.50000 -47.50000 0.0000000E+00 + 40.50000 -47.50000 0.0000000E+00 + 41.50000 -47.50000 0.0000000E+00 + 42.50000 -47.50000 0.0000000E+00 + 43.50000 -47.50000 0.0000000E+00 + 44.50000 -47.50000 0.0000000E+00 + 45.50000 -47.50000 0.0000000E+00 + 46.50000 -47.50000 0.0000000E+00 + 47.50000 -47.50000 0.0000000E+00 + 48.50000 -47.50000 0.0000000E+00 + 49.50000 -47.50000 0.0000000E+00 + 50.50000 -47.50000 0.0000000E+00 + 51.50000 -47.50000 0.0000000E+00 + 52.50000 -47.50000 0.0000000E+00 + 53.50000 -47.50000 0.0000000E+00 + 54.50000 -47.50000 0.0000000E+00 + 55.50000 -47.50000 0.0000000E+00 + 56.50000 -47.50000 0.0000000E+00 + 57.50000 -47.50000 0.0000000E+00 + 58.50000 -47.50000 0.0000000E+00 + 59.50000 -47.50000 0.0000000E+00 + 60.50000 -47.50000 0.0000000E+00 + 61.50000 -47.50000 0.0000000E+00 + 62.50000 -47.50000 0.0000000E+00 + 63.50000 -47.50000 0.0000000E+00 + 64.50000 -47.50000 0.0000000E+00 + 65.50000 -47.50000 0.0000000E+00 + 66.50000 -47.50000 0.0000000E+00 + 67.50000 -47.50000 0.0000000E+00 + 68.50000 -47.50000 0.0000000E+00 + 69.50000 -47.50000 0.0000000E+00 + 70.50000 -47.50000 0.0000000E+00 + 71.50000 -47.50000 0.0000000E+00 + 72.50000 -47.50000 0.0000000E+00 + 73.50000 -47.50000 0.0000000E+00 + 74.50000 -47.50000 0.0000000E+00 + 75.50000 -47.50000 0.0000000E+00 + 76.50000 -47.50000 0.0000000E+00 + 77.50000 -47.50000 0.0000000E+00 + 78.50000 -47.50000 0.0000000E+00 + 79.50000 -47.50000 0.0000000E+00 + 80.50000 -47.50000 0.0000000E+00 + 81.50000 -47.50000 0.0000000E+00 + 82.50000 -47.50000 0.0000000E+00 + 83.50000 -47.50000 0.0000000E+00 + 84.50000 -47.50000 0.0000000E+00 + 85.50000 -47.50000 0.0000000E+00 + 86.50000 -47.50000 0.0000000E+00 + 87.50000 -47.50000 0.0000000E+00 + 88.50000 -47.50000 0.0000000E+00 + 89.50000 -47.50000 0.0000000E+00 + -89.50000 -46.50000 0.0000000E+00 + -88.50000 -46.50000 0.0000000E+00 + -87.50000 -46.50000 0.0000000E+00 + -86.50000 -46.50000 0.0000000E+00 + -85.50000 -46.50000 0.0000000E+00 + -84.50000 -46.50000 0.0000000E+00 + -83.50000 -46.50000 0.0000000E+00 + -82.50000 -46.50000 0.0000000E+00 + -81.50000 -46.50000 0.0000000E+00 + -80.50000 -46.50000 0.0000000E+00 + -79.50000 -46.50000 0.0000000E+00 + -78.50000 -46.50000 0.0000000E+00 + -77.50000 -46.50000 0.0000000E+00 + -76.50000 -46.50000 0.0000000E+00 + -75.50000 -46.50000 0.0000000E+00 + -74.50000 -46.50000 0.0000000E+00 + -73.50000 -46.50000 0.0000000E+00 + -72.50000 -46.50000 0.0000000E+00 + -71.50000 -46.50000 0.0000000E+00 + -70.50000 -46.50000 0.0000000E+00 + -69.50000 -46.50000 0.0000000E+00 + -68.50000 -46.50000 0.0000000E+00 + -67.50000 -46.50000 0.0000000E+00 + -66.50000 -46.50000 0.0000000E+00 + -65.50000 -46.50000 0.0000000E+00 + -64.50000 -46.50000 0.0000000E+00 + -63.50000 -46.50000 0.0000000E+00 + -62.50000 -46.50000 0.0000000E+00 + -61.50000 -46.50000 0.0000000E+00 + -60.50000 -46.50000 0.0000000E+00 + -59.50000 -46.50000 0.0000000E+00 + -58.50000 -46.50000 0.0000000E+00 + -57.50000 -46.50000 0.0000000E+00 + -56.50000 -46.50000 0.0000000E+00 + -55.50000 -46.50000 0.0000000E+00 + -54.50000 -46.50000 0.0000000E+00 + -53.50000 -46.50000 0.0000000E+00 + -52.50000 -46.50000 0.0000000E+00 + -51.50000 -46.50000 0.0000000E+00 + -50.50000 -46.50000 0.0000000E+00 + -49.50000 -46.50000 0.0000000E+00 + -48.50000 -46.50000 0.0000000E+00 + -47.50000 -46.50000 0.0000000E+00 + -46.50000 -46.50000 0.0000000E+00 + -45.50000 -46.50000 0.0000000E+00 + -44.50000 -46.50000 0.0000000E+00 + -43.50000 -46.50000 0.0000000E+00 + -42.50000 -46.50000 0.0000000E+00 + -41.50000 -46.50000 0.0000000E+00 + -40.50000 -46.50000 0.0000000E+00 + -39.50000 -46.50000 0.0000000E+00 + -38.50000 -46.50000 0.0000000E+00 + -37.50000 -46.50000 0.0000000E+00 + -36.50000 -46.50000 0.0000000E+00 + -35.50000 -46.50000 0.0000000E+00 + -34.50000 -46.50000 0.0000000E+00 + -33.50000 -46.50000 0.0000000E+00 + -32.50000 -46.50000 0.0000000E+00 + -31.50000 -46.50000 0.0000000E+00 + -30.50000 -46.50000 0.0000000E+00 + -29.50000 -46.50000 0.0000000E+00 + -28.50000 -46.50000 0.0000000E+00 + -27.50000 -46.50000 0.0000000E+00 + -26.50000 -46.50000 0.0000000E+00 + -25.50000 -46.50000 0.0000000E+00 + -24.50000 -46.50000 0.0000000E+00 + -23.50000 -46.50000 0.0000000E+00 + -22.50000 -46.50000 0.0000000E+00 + -21.50000 -46.50000 0.0000000E+00 + -20.50000 -46.50000 0.0000000E+00 + -19.50000 -46.50000 0.0000000E+00 + -18.50000 -46.50000 0.0000000E+00 + -17.50000 -46.50000 0.0000000E+00 + -16.50000 -46.50000 0.0000000E+00 + -15.50000 -46.50000 0.0000000E+00 + -14.50000 -46.50000 0.0000000E+00 + -13.50000 -46.50000 0.0000000E+00 + -12.50000 -46.50000 0.0000000E+00 + -11.50000 -46.50000 0.0000000E+00 + -10.50000 -46.50000 0.0000000E+00 + -9.500000 -46.50000 0.0000000E+00 + -8.500000 -46.50000 0.0000000E+00 + -7.500000 -46.50000 0.0000000E+00 + -6.500000 -46.50000 0.0000000E+00 + -5.500000 -46.50000 0.0000000E+00 + -4.500000 -46.50000 0.0000000E+00 + -3.500000 -46.50000 0.0000000E+00 + -2.500000 -46.50000 0.0000000E+00 + -1.500000 -46.50000 0.0000000E+00 + -0.5000000 -46.50000 0.0000000E+00 + 0.5000000 -46.50000 0.0000000E+00 + 1.500000 -46.50000 0.0000000E+00 + 2.500000 -46.50000 0.0000000E+00 + 3.500000 -46.50000 0.0000000E+00 + 4.500000 -46.50000 0.0000000E+00 + 5.500000 -46.50000 0.0000000E+00 + 6.500000 -46.50000 0.0000000E+00 + 7.500000 -46.50000 0.0000000E+00 + 8.500000 -46.50000 0.0000000E+00 + 9.500000 -46.50000 0.0000000E+00 + 10.50000 -46.50000 0.0000000E+00 + 11.50000 -46.50000 0.0000000E+00 + 12.50000 -46.50000 0.0000000E+00 + 13.50000 -46.50000 0.0000000E+00 + 14.50000 -46.50000 0.0000000E+00 + 15.50000 -46.50000 0.0000000E+00 + 16.50000 -46.50000 0.0000000E+00 + 17.50000 -46.50000 0.0000000E+00 + 18.50000 -46.50000 0.0000000E+00 + 19.50000 -46.50000 0.0000000E+00 + 20.50000 -46.50000 0.0000000E+00 + 21.50000 -46.50000 0.0000000E+00 + 22.50000 -46.50000 0.0000000E+00 + 23.50000 -46.50000 0.0000000E+00 + 24.50000 -46.50000 0.0000000E+00 + 25.50000 -46.50000 0.0000000E+00 + 26.50000 -46.50000 0.0000000E+00 + 27.50000 -46.50000 0.0000000E+00 + 28.50000 -46.50000 0.0000000E+00 + 29.50000 -46.50000 0.0000000E+00 + 30.50000 -46.50000 0.0000000E+00 + 31.50000 -46.50000 0.0000000E+00 + 32.50000 -46.50000 0.0000000E+00 + 33.50000 -46.50000 0.0000000E+00 + 34.50000 -46.50000 0.0000000E+00 + 35.50000 -46.50000 0.0000000E+00 + 36.50000 -46.50000 0.0000000E+00 + 37.50000 -46.50000 0.0000000E+00 + 38.50000 -46.50000 0.0000000E+00 + 39.50000 -46.50000 0.0000000E+00 + 40.50000 -46.50000 0.0000000E+00 + 41.50000 -46.50000 0.0000000E+00 + 42.50000 -46.50000 0.0000000E+00 + 43.50000 -46.50000 0.0000000E+00 + 44.50000 -46.50000 0.0000000E+00 + 45.50000 -46.50000 0.0000000E+00 + 46.50000 -46.50000 0.0000000E+00 + 47.50000 -46.50000 0.0000000E+00 + 48.50000 -46.50000 0.0000000E+00 + 49.50000 -46.50000 0.0000000E+00 + 50.50000 -46.50000 0.0000000E+00 + 51.50000 -46.50000 0.0000000E+00 + 52.50000 -46.50000 0.0000000E+00 + 53.50000 -46.50000 0.0000000E+00 + 54.50000 -46.50000 0.0000000E+00 + 55.50000 -46.50000 0.0000000E+00 + 56.50000 -46.50000 0.0000000E+00 + 57.50000 -46.50000 0.0000000E+00 + 58.50000 -46.50000 0.0000000E+00 + 59.50000 -46.50000 0.0000000E+00 + 60.50000 -46.50000 0.0000000E+00 + 61.50000 -46.50000 0.0000000E+00 + 62.50000 -46.50000 0.0000000E+00 + 63.50000 -46.50000 0.0000000E+00 + 64.50000 -46.50000 0.0000000E+00 + 65.50000 -46.50000 0.0000000E+00 + 66.50000 -46.50000 0.0000000E+00 + 67.50000 -46.50000 0.0000000E+00 + 68.50000 -46.50000 0.0000000E+00 + 69.50000 -46.50000 0.0000000E+00 + 70.50000 -46.50000 0.0000000E+00 + 71.50000 -46.50000 0.0000000E+00 + 72.50000 -46.50000 0.0000000E+00 + 73.50000 -46.50000 0.0000000E+00 + 74.50000 -46.50000 0.0000000E+00 + 75.50000 -46.50000 0.0000000E+00 + 76.50000 -46.50000 0.0000000E+00 + 77.50000 -46.50000 0.0000000E+00 + 78.50000 -46.50000 0.0000000E+00 + 79.50000 -46.50000 0.0000000E+00 + 80.50000 -46.50000 0.0000000E+00 + 81.50000 -46.50000 0.0000000E+00 + 82.50000 -46.50000 0.0000000E+00 + 83.50000 -46.50000 0.0000000E+00 + 84.50000 -46.50000 0.0000000E+00 + 85.50000 -46.50000 0.0000000E+00 + 86.50000 -46.50000 0.0000000E+00 + 87.50000 -46.50000 0.0000000E+00 + 88.50000 -46.50000 0.0000000E+00 + 89.50000 -46.50000 0.0000000E+00 + -89.50000 -45.50000 0.0000000E+00 + -88.50000 -45.50000 0.0000000E+00 + -87.50000 -45.50000 0.0000000E+00 + -86.50000 -45.50000 0.0000000E+00 + -85.50000 -45.50000 0.0000000E+00 + -84.50000 -45.50000 0.0000000E+00 + -83.50000 -45.50000 0.0000000E+00 + -82.50000 -45.50000 0.0000000E+00 + -81.50000 -45.50000 0.0000000E+00 + -80.50000 -45.50000 0.0000000E+00 + -79.50000 -45.50000 0.0000000E+00 + -78.50000 -45.50000 0.0000000E+00 + -77.50000 -45.50000 0.0000000E+00 + -76.50000 -45.50000 0.0000000E+00 + -75.50000 -45.50000 0.0000000E+00 + -74.50000 -45.50000 0.0000000E+00 + -73.50000 -45.50000 0.0000000E+00 + -72.50000 -45.50000 0.0000000E+00 + -71.50000 -45.50000 0.0000000E+00 + -70.50000 -45.50000 0.0000000E+00 + -69.50000 -45.50000 0.0000000E+00 + -68.50000 -45.50000 0.0000000E+00 + -67.50000 -45.50000 0.0000000E+00 + -66.50000 -45.50000 0.0000000E+00 + -65.50000 -45.50000 0.0000000E+00 + -64.50000 -45.50000 0.0000000E+00 + -63.50000 -45.50000 0.0000000E+00 + -62.50000 -45.50000 0.0000000E+00 + -61.50000 -45.50000 0.0000000E+00 + -60.50000 -45.50000 0.0000000E+00 + -59.50000 -45.50000 0.0000000E+00 + -58.50000 -45.50000 0.0000000E+00 + -57.50000 -45.50000 0.0000000E+00 + -56.50000 -45.50000 0.0000000E+00 + -55.50000 -45.50000 0.0000000E+00 + -54.50000 -45.50000 0.0000000E+00 + -53.50000 -45.50000 0.0000000E+00 + -52.50000 -45.50000 0.0000000E+00 + -51.50000 -45.50000 0.0000000E+00 + -50.50000 -45.50000 0.0000000E+00 + -49.50000 -45.50000 0.0000000E+00 + -48.50000 -45.50000 0.0000000E+00 + -47.50000 -45.50000 0.0000000E+00 + -46.50000 -45.50000 0.0000000E+00 + -45.50000 -45.50000 0.0000000E+00 + -44.50000 -45.50000 0.0000000E+00 + -43.50000 -45.50000 0.0000000E+00 + -42.50000 -45.50000 0.0000000E+00 + -41.50000 -45.50000 0.0000000E+00 + -40.50000 -45.50000 0.0000000E+00 + -39.50000 -45.50000 0.0000000E+00 + -38.50000 -45.50000 0.0000000E+00 + -37.50000 -45.50000 0.0000000E+00 + -36.50000 -45.50000 0.0000000E+00 + -35.50000 -45.50000 0.0000000E+00 + -34.50000 -45.50000 0.0000000E+00 + -33.50000 -45.50000 0.0000000E+00 + -32.50000 -45.50000 0.0000000E+00 + -31.50000 -45.50000 0.0000000E+00 + -30.50000 -45.50000 0.0000000E+00 + -29.50000 -45.50000 0.0000000E+00 + -28.50000 -45.50000 0.0000000E+00 + -27.50000 -45.50000 0.0000000E+00 + -26.50000 -45.50000 0.0000000E+00 + -25.50000 -45.50000 0.0000000E+00 + -24.50000 -45.50000 0.0000000E+00 + -23.50000 -45.50000 0.0000000E+00 + -22.50000 -45.50000 0.0000000E+00 + -21.50000 -45.50000 0.0000000E+00 + -20.50000 -45.50000 0.0000000E+00 + -19.50000 -45.50000 0.0000000E+00 + -18.50000 -45.50000 0.0000000E+00 + -17.50000 -45.50000 0.0000000E+00 + -16.50000 -45.50000 0.0000000E+00 + -15.50000 -45.50000 0.0000000E+00 + -14.50000 -45.50000 0.0000000E+00 + -13.50000 -45.50000 0.0000000E+00 + -12.50000 -45.50000 0.0000000E+00 + -11.50000 -45.50000 0.0000000E+00 + -10.50000 -45.50000 0.0000000E+00 + -9.500000 -45.50000 0.0000000E+00 + -8.500000 -45.50000 0.0000000E+00 + -7.500000 -45.50000 0.0000000E+00 + -6.500000 -45.50000 0.0000000E+00 + -5.500000 -45.50000 0.0000000E+00 + -4.500000 -45.50000 0.0000000E+00 + -3.500000 -45.50000 0.0000000E+00 + -2.500000 -45.50000 0.0000000E+00 + -1.500000 -45.50000 0.0000000E+00 + -0.5000000 -45.50000 0.0000000E+00 + 0.5000000 -45.50000 0.0000000E+00 + 1.500000 -45.50000 0.0000000E+00 + 2.500000 -45.50000 0.0000000E+00 + 3.500000 -45.50000 0.0000000E+00 + 4.500000 -45.50000 0.0000000E+00 + 5.500000 -45.50000 0.0000000E+00 + 6.500000 -45.50000 0.0000000E+00 + 7.500000 -45.50000 0.0000000E+00 + 8.500000 -45.50000 0.0000000E+00 + 9.500000 -45.50000 0.0000000E+00 + 10.50000 -45.50000 0.0000000E+00 + 11.50000 -45.50000 0.0000000E+00 + 12.50000 -45.50000 0.0000000E+00 + 13.50000 -45.50000 0.0000000E+00 + 14.50000 -45.50000 0.0000000E+00 + 15.50000 -45.50000 0.0000000E+00 + 16.50000 -45.50000 0.0000000E+00 + 17.50000 -45.50000 0.0000000E+00 + 18.50000 -45.50000 0.0000000E+00 + 19.50000 -45.50000 0.0000000E+00 + 20.50000 -45.50000 0.0000000E+00 + 21.50000 -45.50000 0.0000000E+00 + 22.50000 -45.50000 0.0000000E+00 + 23.50000 -45.50000 0.0000000E+00 + 24.50000 -45.50000 0.0000000E+00 + 25.50000 -45.50000 0.0000000E+00 + 26.50000 -45.50000 0.0000000E+00 + 27.50000 -45.50000 0.0000000E+00 + 28.50000 -45.50000 0.0000000E+00 + 29.50000 -45.50000 0.0000000E+00 + 30.50000 -45.50000 0.0000000E+00 + 31.50000 -45.50000 0.0000000E+00 + 32.50000 -45.50000 0.0000000E+00 + 33.50000 -45.50000 0.0000000E+00 + 34.50000 -45.50000 0.0000000E+00 + 35.50000 -45.50000 0.0000000E+00 + 36.50000 -45.50000 0.0000000E+00 + 37.50000 -45.50000 0.0000000E+00 + 38.50000 -45.50000 0.0000000E+00 + 39.50000 -45.50000 0.0000000E+00 + 40.50000 -45.50000 0.0000000E+00 + 41.50000 -45.50000 0.0000000E+00 + 42.50000 -45.50000 0.0000000E+00 + 43.50000 -45.50000 0.0000000E+00 + 44.50000 -45.50000 0.0000000E+00 + 45.50000 -45.50000 0.0000000E+00 + 46.50000 -45.50000 0.0000000E+00 + 47.50000 -45.50000 0.0000000E+00 + 48.50000 -45.50000 0.0000000E+00 + 49.50000 -45.50000 0.0000000E+00 + 50.50000 -45.50000 0.0000000E+00 + 51.50000 -45.50000 0.0000000E+00 + 52.50000 -45.50000 0.0000000E+00 + 53.50000 -45.50000 0.0000000E+00 + 54.50000 -45.50000 0.0000000E+00 + 55.50000 -45.50000 0.0000000E+00 + 56.50000 -45.50000 0.0000000E+00 + 57.50000 -45.50000 0.0000000E+00 + 58.50000 -45.50000 0.0000000E+00 + 59.50000 -45.50000 0.0000000E+00 + 60.50000 -45.50000 0.0000000E+00 + 61.50000 -45.50000 0.0000000E+00 + 62.50000 -45.50000 0.0000000E+00 + 63.50000 -45.50000 0.0000000E+00 + 64.50000 -45.50000 0.0000000E+00 + 65.50000 -45.50000 0.0000000E+00 + 66.50000 -45.50000 0.0000000E+00 + 67.50000 -45.50000 0.0000000E+00 + 68.50000 -45.50000 0.0000000E+00 + 69.50000 -45.50000 0.0000000E+00 + 70.50000 -45.50000 0.0000000E+00 + 71.50000 -45.50000 0.0000000E+00 + 72.50000 -45.50000 0.0000000E+00 + 73.50000 -45.50000 0.0000000E+00 + 74.50000 -45.50000 0.0000000E+00 + 75.50000 -45.50000 0.0000000E+00 + 76.50000 -45.50000 0.0000000E+00 + 77.50000 -45.50000 0.0000000E+00 + 78.50000 -45.50000 0.0000000E+00 + 79.50000 -45.50000 0.0000000E+00 + 80.50000 -45.50000 0.0000000E+00 + 81.50000 -45.50000 0.0000000E+00 + 82.50000 -45.50000 0.0000000E+00 + 83.50000 -45.50000 0.0000000E+00 + 84.50000 -45.50000 0.0000000E+00 + 85.50000 -45.50000 0.0000000E+00 + 86.50000 -45.50000 0.0000000E+00 + 87.50000 -45.50000 0.0000000E+00 + 88.50000 -45.50000 0.0000000E+00 + 89.50000 -45.50000 0.0000000E+00 + -89.50000 -44.50000 0.0000000E+00 + -88.50000 -44.50000 0.0000000E+00 + -87.50000 -44.50000 0.0000000E+00 + -86.50000 -44.50000 0.0000000E+00 + -85.50000 -44.50000 0.0000000E+00 + -84.50000 -44.50000 0.0000000E+00 + -83.50000 -44.50000 0.0000000E+00 + -82.50000 -44.50000 0.0000000E+00 + -81.50000 -44.50000 0.0000000E+00 + -80.50000 -44.50000 0.0000000E+00 + -79.50000 -44.50000 0.0000000E+00 + -78.50000 -44.50000 0.0000000E+00 + -77.50000 -44.50000 0.0000000E+00 + -76.50000 -44.50000 0.0000000E+00 + -75.50000 -44.50000 0.0000000E+00 + -74.50000 -44.50000 0.0000000E+00 + -73.50000 -44.50000 0.0000000E+00 + -72.50000 -44.50000 0.0000000E+00 + -71.50000 -44.50000 0.0000000E+00 + -70.50000 -44.50000 0.0000000E+00 + -69.50000 -44.50000 0.0000000E+00 + -68.50000 -44.50000 0.0000000E+00 + -67.50000 -44.50000 0.0000000E+00 + -66.50000 -44.50000 0.0000000E+00 + -65.50000 -44.50000 0.0000000E+00 + -64.50000 -44.50000 0.0000000E+00 + -63.50000 -44.50000 0.0000000E+00 + -62.50000 -44.50000 0.0000000E+00 + -61.50000 -44.50000 0.0000000E+00 + -60.50000 -44.50000 0.0000000E+00 + -59.50000 -44.50000 0.0000000E+00 + -58.50000 -44.50000 0.0000000E+00 + -57.50000 -44.50000 0.0000000E+00 + -56.50000 -44.50000 0.0000000E+00 + -55.50000 -44.50000 0.0000000E+00 + -54.50000 -44.50000 0.0000000E+00 + -53.50000 -44.50000 0.0000000E+00 + -52.50000 -44.50000 0.0000000E+00 + -51.50000 -44.50000 0.0000000E+00 + -50.50000 -44.50000 0.0000000E+00 + -49.50000 -44.50000 0.0000000E+00 + -48.50000 -44.50000 0.0000000E+00 + -47.50000 -44.50000 0.0000000E+00 + -46.50000 -44.50000 0.0000000E+00 + -45.50000 -44.50000 0.0000000E+00 + -44.50000 -44.50000 0.0000000E+00 + -43.50000 -44.50000 0.0000000E+00 + -42.50000 -44.50000 0.0000000E+00 + -41.50000 -44.50000 0.0000000E+00 + -40.50000 -44.50000 0.0000000E+00 + -39.50000 -44.50000 0.0000000E+00 + -38.50000 -44.50000 0.0000000E+00 + -37.50000 -44.50000 0.0000000E+00 + -36.50000 -44.50000 0.0000000E+00 + -35.50000 -44.50000 0.0000000E+00 + -34.50000 -44.50000 0.0000000E+00 + -33.50000 -44.50000 0.0000000E+00 + -32.50000 -44.50000 0.0000000E+00 + -31.50000 -44.50000 0.0000000E+00 + -30.50000 -44.50000 0.0000000E+00 + -29.50000 -44.50000 0.0000000E+00 + -28.50000 -44.50000 0.0000000E+00 + -27.50000 -44.50000 0.0000000E+00 + -26.50000 -44.50000 0.0000000E+00 + -25.50000 -44.50000 0.0000000E+00 + -24.50000 -44.50000 0.0000000E+00 + -23.50000 -44.50000 0.0000000E+00 + -22.50000 -44.50000 0.0000000E+00 + -21.50000 -44.50000 0.0000000E+00 + -20.50000 -44.50000 0.0000000E+00 + -19.50000 -44.50000 0.0000000E+00 + -18.50000 -44.50000 0.0000000E+00 + -17.50000 -44.50000 0.0000000E+00 + -16.50000 -44.50000 0.0000000E+00 + -15.50000 -44.50000 0.0000000E+00 + -14.50000 -44.50000 0.0000000E+00 + -13.50000 -44.50000 0.0000000E+00 + -12.50000 -44.50000 0.0000000E+00 + -11.50000 -44.50000 0.0000000E+00 + -10.50000 -44.50000 0.0000000E+00 + -9.500000 -44.50000 0.0000000E+00 + -8.500000 -44.50000 0.0000000E+00 + -7.500000 -44.50000 0.0000000E+00 + -6.500000 -44.50000 0.0000000E+00 + -5.500000 -44.50000 0.0000000E+00 + -4.500000 -44.50000 0.0000000E+00 + -3.500000 -44.50000 0.0000000E+00 + -2.500000 -44.50000 0.0000000E+00 + -1.500000 -44.50000 0.0000000E+00 + -0.5000000 -44.50000 0.0000000E+00 + 0.5000000 -44.50000 0.0000000E+00 + 1.500000 -44.50000 0.0000000E+00 + 2.500000 -44.50000 0.0000000E+00 + 3.500000 -44.50000 0.0000000E+00 + 4.500000 -44.50000 0.0000000E+00 + 5.500000 -44.50000 0.0000000E+00 + 6.500000 -44.50000 0.0000000E+00 + 7.500000 -44.50000 0.0000000E+00 + 8.500000 -44.50000 0.0000000E+00 + 9.500000 -44.50000 0.0000000E+00 + 10.50000 -44.50000 0.0000000E+00 + 11.50000 -44.50000 0.0000000E+00 + 12.50000 -44.50000 0.0000000E+00 + 13.50000 -44.50000 0.0000000E+00 + 14.50000 -44.50000 0.0000000E+00 + 15.50000 -44.50000 0.0000000E+00 + 16.50000 -44.50000 0.0000000E+00 + 17.50000 -44.50000 0.0000000E+00 + 18.50000 -44.50000 0.0000000E+00 + 19.50000 -44.50000 0.0000000E+00 + 20.50000 -44.50000 0.0000000E+00 + 21.50000 -44.50000 0.0000000E+00 + 22.50000 -44.50000 0.0000000E+00 + 23.50000 -44.50000 0.0000000E+00 + 24.50000 -44.50000 0.0000000E+00 + 25.50000 -44.50000 0.0000000E+00 + 26.50000 -44.50000 0.0000000E+00 + 27.50000 -44.50000 0.0000000E+00 + 28.50000 -44.50000 0.0000000E+00 + 29.50000 -44.50000 0.0000000E+00 + 30.50000 -44.50000 0.0000000E+00 + 31.50000 -44.50000 0.0000000E+00 + 32.50000 -44.50000 0.0000000E+00 + 33.50000 -44.50000 0.0000000E+00 + 34.50000 -44.50000 0.0000000E+00 + 35.50000 -44.50000 0.0000000E+00 + 36.50000 -44.50000 0.0000000E+00 + 37.50000 -44.50000 0.0000000E+00 + 38.50000 -44.50000 0.0000000E+00 + 39.50000 -44.50000 0.0000000E+00 + 40.50000 -44.50000 0.0000000E+00 + 41.50000 -44.50000 0.0000000E+00 + 42.50000 -44.50000 0.0000000E+00 + 43.50000 -44.50000 0.0000000E+00 + 44.50000 -44.50000 0.0000000E+00 + 45.50000 -44.50000 0.0000000E+00 + 46.50000 -44.50000 0.0000000E+00 + 47.50000 -44.50000 0.0000000E+00 + 48.50000 -44.50000 0.0000000E+00 + 49.50000 -44.50000 0.0000000E+00 + 50.50000 -44.50000 0.0000000E+00 + 51.50000 -44.50000 0.0000000E+00 + 52.50000 -44.50000 0.0000000E+00 + 53.50000 -44.50000 0.0000000E+00 + 54.50000 -44.50000 0.0000000E+00 + 55.50000 -44.50000 0.0000000E+00 + 56.50000 -44.50000 0.0000000E+00 + 57.50000 -44.50000 0.0000000E+00 + 58.50000 -44.50000 0.0000000E+00 + 59.50000 -44.50000 0.0000000E+00 + 60.50000 -44.50000 0.0000000E+00 + 61.50000 -44.50000 0.0000000E+00 + 62.50000 -44.50000 0.0000000E+00 + 63.50000 -44.50000 0.0000000E+00 + 64.50000 -44.50000 0.0000000E+00 + 65.50000 -44.50000 0.0000000E+00 + 66.50000 -44.50000 0.0000000E+00 + 67.50000 -44.50000 0.0000000E+00 + 68.50000 -44.50000 0.0000000E+00 + 69.50000 -44.50000 0.0000000E+00 + 70.50000 -44.50000 0.0000000E+00 + 71.50000 -44.50000 0.0000000E+00 + 72.50000 -44.50000 0.0000000E+00 + 73.50000 -44.50000 0.0000000E+00 + 74.50000 -44.50000 0.0000000E+00 + 75.50000 -44.50000 0.0000000E+00 + 76.50000 -44.50000 0.0000000E+00 + 77.50000 -44.50000 0.0000000E+00 + 78.50000 -44.50000 0.0000000E+00 + 79.50000 -44.50000 0.0000000E+00 + 80.50000 -44.50000 0.0000000E+00 + 81.50000 -44.50000 0.0000000E+00 + 82.50000 -44.50000 0.0000000E+00 + 83.50000 -44.50000 0.0000000E+00 + 84.50000 -44.50000 0.0000000E+00 + 85.50000 -44.50000 0.0000000E+00 + 86.50000 -44.50000 0.0000000E+00 + 87.50000 -44.50000 0.0000000E+00 + 88.50000 -44.50000 0.0000000E+00 + 89.50000 -44.50000 0.0000000E+00 + -89.50000 -43.50000 0.0000000E+00 + -88.50000 -43.50000 0.0000000E+00 + -87.50000 -43.50000 0.0000000E+00 + -86.50000 -43.50000 0.0000000E+00 + -85.50000 -43.50000 0.0000000E+00 + -84.50000 -43.50000 0.0000000E+00 + -83.50000 -43.50000 0.0000000E+00 + -82.50000 -43.50000 0.0000000E+00 + -81.50000 -43.50000 0.0000000E+00 + -80.50000 -43.50000 0.0000000E+00 + -79.50000 -43.50000 0.0000000E+00 + -78.50000 -43.50000 0.0000000E+00 + -77.50000 -43.50000 0.0000000E+00 + -76.50000 -43.50000 0.0000000E+00 + -75.50000 -43.50000 0.0000000E+00 + -74.50000 -43.50000 0.0000000E+00 + -73.50000 -43.50000 0.0000000E+00 + -72.50000 -43.50000 0.0000000E+00 + -71.50000 -43.50000 0.0000000E+00 + -70.50000 -43.50000 0.0000000E+00 + -69.50000 -43.50000 0.0000000E+00 + -68.50000 -43.50000 0.0000000E+00 + -67.50000 -43.50000 0.0000000E+00 + -66.50000 -43.50000 0.0000000E+00 + -65.50000 -43.50000 0.0000000E+00 + -64.50000 -43.50000 0.0000000E+00 + -63.50000 -43.50000 0.0000000E+00 + -62.50000 -43.50000 0.0000000E+00 + -61.50000 -43.50000 0.0000000E+00 + -60.50000 -43.50000 0.0000000E+00 + -59.50000 -43.50000 0.0000000E+00 + -58.50000 -43.50000 0.0000000E+00 + -57.50000 -43.50000 0.0000000E+00 + -56.50000 -43.50000 0.0000000E+00 + -55.50000 -43.50000 0.0000000E+00 + -54.50000 -43.50000 0.0000000E+00 + -53.50000 -43.50000 0.0000000E+00 + -52.50000 -43.50000 0.0000000E+00 + -51.50000 -43.50000 0.0000000E+00 + -50.50000 -43.50000 0.0000000E+00 + -49.50000 -43.50000 0.0000000E+00 + -48.50000 -43.50000 0.0000000E+00 + -47.50000 -43.50000 0.0000000E+00 + -46.50000 -43.50000 0.0000000E+00 + -45.50000 -43.50000 0.0000000E+00 + -44.50000 -43.50000 0.0000000E+00 + -43.50000 -43.50000 0.0000000E+00 + -42.50000 -43.50000 0.0000000E+00 + -41.50000 -43.50000 0.0000000E+00 + -40.50000 -43.50000 0.0000000E+00 + -39.50000 -43.50000 0.0000000E+00 + -38.50000 -43.50000 0.0000000E+00 + -37.50000 -43.50000 0.0000000E+00 + -36.50000 -43.50000 0.0000000E+00 + -35.50000 -43.50000 0.0000000E+00 + -34.50000 -43.50000 0.0000000E+00 + -33.50000 -43.50000 0.0000000E+00 + -32.50000 -43.50000 0.0000000E+00 + -31.50000 -43.50000 0.0000000E+00 + -30.50000 -43.50000 0.0000000E+00 + -29.50000 -43.50000 0.0000000E+00 + -28.50000 -43.50000 0.0000000E+00 + -27.50000 -43.50000 0.0000000E+00 + -26.50000 -43.50000 0.0000000E+00 + -25.50000 -43.50000 0.0000000E+00 + -24.50000 -43.50000 0.0000000E+00 + -23.50000 -43.50000 0.0000000E+00 + -22.50000 -43.50000 0.0000000E+00 + -21.50000 -43.50000 0.0000000E+00 + -20.50000 -43.50000 0.0000000E+00 + -19.50000 -43.50000 0.0000000E+00 + -18.50000 -43.50000 0.0000000E+00 + -17.50000 -43.50000 0.0000000E+00 + -16.50000 -43.50000 0.0000000E+00 + -15.50000 -43.50000 0.0000000E+00 + -14.50000 -43.50000 0.0000000E+00 + -13.50000 -43.50000 0.0000000E+00 + -12.50000 -43.50000 0.0000000E+00 + -11.50000 -43.50000 0.0000000E+00 + -10.50000 -43.50000 0.0000000E+00 + -9.500000 -43.50000 0.0000000E+00 + -8.500000 -43.50000 0.0000000E+00 + -7.500000 -43.50000 0.0000000E+00 + -6.500000 -43.50000 0.0000000E+00 + -5.500000 -43.50000 0.0000000E+00 + -4.500000 -43.50000 0.0000000E+00 + -3.500000 -43.50000 0.0000000E+00 + -2.500000 -43.50000 0.0000000E+00 + -1.500000 -43.50000 0.0000000E+00 + -0.5000000 -43.50000 0.0000000E+00 + 0.5000000 -43.50000 0.0000000E+00 + 1.500000 -43.50000 0.0000000E+00 + 2.500000 -43.50000 0.0000000E+00 + 3.500000 -43.50000 0.0000000E+00 + 4.500000 -43.50000 0.0000000E+00 + 5.500000 -43.50000 0.0000000E+00 + 6.500000 -43.50000 0.0000000E+00 + 7.500000 -43.50000 0.0000000E+00 + 8.500000 -43.50000 0.0000000E+00 + 9.500000 -43.50000 0.0000000E+00 + 10.50000 -43.50000 0.0000000E+00 + 11.50000 -43.50000 0.0000000E+00 + 12.50000 -43.50000 0.0000000E+00 + 13.50000 -43.50000 0.0000000E+00 + 14.50000 -43.50000 0.0000000E+00 + 15.50000 -43.50000 0.0000000E+00 + 16.50000 -43.50000 0.0000000E+00 + 17.50000 -43.50000 0.0000000E+00 + 18.50000 -43.50000 0.0000000E+00 + 19.50000 -43.50000 0.0000000E+00 + 20.50000 -43.50000 0.0000000E+00 + 21.50000 -43.50000 0.0000000E+00 + 22.50000 -43.50000 0.0000000E+00 + 23.50000 -43.50000 0.0000000E+00 + 24.50000 -43.50000 0.0000000E+00 + 25.50000 -43.50000 0.0000000E+00 + 26.50000 -43.50000 0.0000000E+00 + 27.50000 -43.50000 0.0000000E+00 + 28.50000 -43.50000 0.0000000E+00 + 29.50000 -43.50000 0.0000000E+00 + 30.50000 -43.50000 0.0000000E+00 + 31.50000 -43.50000 0.0000000E+00 + 32.50000 -43.50000 0.0000000E+00 + 33.50000 -43.50000 0.0000000E+00 + 34.50000 -43.50000 0.0000000E+00 + 35.50000 -43.50000 0.0000000E+00 + 36.50000 -43.50000 0.0000000E+00 + 37.50000 -43.50000 0.0000000E+00 + 38.50000 -43.50000 0.0000000E+00 + 39.50000 -43.50000 0.0000000E+00 + 40.50000 -43.50000 0.0000000E+00 + 41.50000 -43.50000 0.0000000E+00 + 42.50000 -43.50000 0.0000000E+00 + 43.50000 -43.50000 0.0000000E+00 + 44.50000 -43.50000 0.0000000E+00 + 45.50000 -43.50000 0.0000000E+00 + 46.50000 -43.50000 0.0000000E+00 + 47.50000 -43.50000 0.0000000E+00 + 48.50000 -43.50000 0.0000000E+00 + 49.50000 -43.50000 0.0000000E+00 + 50.50000 -43.50000 0.0000000E+00 + 51.50000 -43.50000 0.0000000E+00 + 52.50000 -43.50000 0.0000000E+00 + 53.50000 -43.50000 0.0000000E+00 + 54.50000 -43.50000 0.0000000E+00 + 55.50000 -43.50000 0.0000000E+00 + 56.50000 -43.50000 0.0000000E+00 + 57.50000 -43.50000 0.0000000E+00 + 58.50000 -43.50000 0.0000000E+00 + 59.50000 -43.50000 0.0000000E+00 + 60.50000 -43.50000 0.0000000E+00 + 61.50000 -43.50000 0.0000000E+00 + 62.50000 -43.50000 0.0000000E+00 + 63.50000 -43.50000 0.0000000E+00 + 64.50000 -43.50000 0.0000000E+00 + 65.50000 -43.50000 0.0000000E+00 + 66.50000 -43.50000 0.0000000E+00 + 67.50000 -43.50000 0.0000000E+00 + 68.50000 -43.50000 0.0000000E+00 + 69.50000 -43.50000 0.0000000E+00 + 70.50000 -43.50000 0.0000000E+00 + 71.50000 -43.50000 0.0000000E+00 + 72.50000 -43.50000 0.0000000E+00 + 73.50000 -43.50000 0.0000000E+00 + 74.50000 -43.50000 0.0000000E+00 + 75.50000 -43.50000 0.0000000E+00 + 76.50000 -43.50000 0.0000000E+00 + 77.50000 -43.50000 0.0000000E+00 + 78.50000 -43.50000 0.0000000E+00 + 79.50000 -43.50000 0.0000000E+00 + 80.50000 -43.50000 0.0000000E+00 + 81.50000 -43.50000 0.0000000E+00 + 82.50000 -43.50000 0.0000000E+00 + 83.50000 -43.50000 0.0000000E+00 + 84.50000 -43.50000 0.0000000E+00 + 85.50000 -43.50000 0.0000000E+00 + 86.50000 -43.50000 0.0000000E+00 + 87.50000 -43.50000 0.0000000E+00 + 88.50000 -43.50000 0.0000000E+00 + 89.50000 -43.50000 0.0000000E+00 + -89.50000 -42.50000 0.0000000E+00 + -88.50000 -42.50000 0.0000000E+00 + -87.50000 -42.50000 0.0000000E+00 + -86.50000 -42.50000 0.0000000E+00 + -85.50000 -42.50000 0.0000000E+00 + -84.50000 -42.50000 0.0000000E+00 + -83.50000 -42.50000 0.0000000E+00 + -82.50000 -42.50000 0.0000000E+00 + -81.50000 -42.50000 0.0000000E+00 + -80.50000 -42.50000 0.0000000E+00 + -79.50000 -42.50000 0.0000000E+00 + -78.50000 -42.50000 0.0000000E+00 + -77.50000 -42.50000 0.0000000E+00 + -76.50000 -42.50000 0.0000000E+00 + -75.50000 -42.50000 0.0000000E+00 + -74.50000 -42.50000 0.0000000E+00 + -73.50000 -42.50000 0.0000000E+00 + -72.50000 -42.50000 0.0000000E+00 + -71.50000 -42.50000 0.0000000E+00 + -70.50000 -42.50000 0.0000000E+00 + -69.50000 -42.50000 0.0000000E+00 + -68.50000 -42.50000 0.0000000E+00 + -67.50000 -42.50000 0.0000000E+00 + -66.50000 -42.50000 0.0000000E+00 + -65.50000 -42.50000 0.0000000E+00 + -64.50000 -42.50000 0.0000000E+00 + -63.50000 -42.50000 0.0000000E+00 + -62.50000 -42.50000 0.0000000E+00 + -61.50000 -42.50000 0.0000000E+00 + -60.50000 -42.50000 0.0000000E+00 + -59.50000 -42.50000 0.0000000E+00 + -58.50000 -42.50000 0.0000000E+00 + -57.50000 -42.50000 0.0000000E+00 + -56.50000 -42.50000 0.0000000E+00 + -55.50000 -42.50000 0.0000000E+00 + -54.50000 -42.50000 0.0000000E+00 + -53.50000 -42.50000 0.0000000E+00 + -52.50000 -42.50000 0.0000000E+00 + -51.50000 -42.50000 0.0000000E+00 + -50.50000 -42.50000 0.0000000E+00 + -49.50000 -42.50000 0.0000000E+00 + -48.50000 -42.50000 0.0000000E+00 + -47.50000 -42.50000 0.0000000E+00 + -46.50000 -42.50000 0.0000000E+00 + -45.50000 -42.50000 0.0000000E+00 + -44.50000 -42.50000 0.0000000E+00 + -43.50000 -42.50000 0.0000000E+00 + -42.50000 -42.50000 0.0000000E+00 + -41.50000 -42.50000 0.0000000E+00 + -40.50000 -42.50000 0.0000000E+00 + -39.50000 -42.50000 0.0000000E+00 + -38.50000 -42.50000 0.0000000E+00 + -37.50000 -42.50000 0.0000000E+00 + -36.50000 -42.50000 0.0000000E+00 + -35.50000 -42.50000 0.0000000E+00 + -34.50000 -42.50000 0.0000000E+00 + -33.50000 -42.50000 0.0000000E+00 + -32.50000 -42.50000 0.0000000E+00 + -31.50000 -42.50000 0.0000000E+00 + -30.50000 -42.50000 0.0000000E+00 + -29.50000 -42.50000 0.0000000E+00 + -28.50000 -42.50000 0.0000000E+00 + -27.50000 -42.50000 0.0000000E+00 + -26.50000 -42.50000 0.0000000E+00 + -25.50000 -42.50000 0.0000000E+00 + -24.50000 -42.50000 0.0000000E+00 + -23.50000 -42.50000 0.0000000E+00 + -22.50000 -42.50000 0.0000000E+00 + -21.50000 -42.50000 0.0000000E+00 + -20.50000 -42.50000 0.0000000E+00 + -19.50000 -42.50000 0.0000000E+00 + -18.50000 -42.50000 0.0000000E+00 + -17.50000 -42.50000 0.0000000E+00 + -16.50000 -42.50000 0.0000000E+00 + -15.50000 -42.50000 0.0000000E+00 + -14.50000 -42.50000 0.0000000E+00 + -13.50000 -42.50000 0.0000000E+00 + -12.50000 -42.50000 0.0000000E+00 + -11.50000 -42.50000 0.0000000E+00 + -10.50000 -42.50000 0.0000000E+00 + -9.500000 -42.50000 0.0000000E+00 + -8.500000 -42.50000 0.0000000E+00 + -7.500000 -42.50000 0.0000000E+00 + -6.500000 -42.50000 0.0000000E+00 + -5.500000 -42.50000 0.0000000E+00 + -4.500000 -42.50000 0.0000000E+00 + -3.500000 -42.50000 0.0000000E+00 + -2.500000 -42.50000 0.0000000E+00 + -1.500000 -42.50000 0.0000000E+00 + -0.5000000 -42.50000 0.0000000E+00 + 0.5000000 -42.50000 0.0000000E+00 + 1.500000 -42.50000 0.0000000E+00 + 2.500000 -42.50000 0.0000000E+00 + 3.500000 -42.50000 0.0000000E+00 + 4.500000 -42.50000 0.0000000E+00 + 5.500000 -42.50000 0.0000000E+00 + 6.500000 -42.50000 0.0000000E+00 + 7.500000 -42.50000 0.0000000E+00 + 8.500000 -42.50000 0.0000000E+00 + 9.500000 -42.50000 0.0000000E+00 + 10.50000 -42.50000 0.0000000E+00 + 11.50000 -42.50000 0.0000000E+00 + 12.50000 -42.50000 0.0000000E+00 + 13.50000 -42.50000 0.0000000E+00 + 14.50000 -42.50000 0.0000000E+00 + 15.50000 -42.50000 0.0000000E+00 + 16.50000 -42.50000 0.0000000E+00 + 17.50000 -42.50000 0.0000000E+00 + 18.50000 -42.50000 0.0000000E+00 + 19.50000 -42.50000 0.0000000E+00 + 20.50000 -42.50000 0.0000000E+00 + 21.50000 -42.50000 0.0000000E+00 + 22.50000 -42.50000 0.0000000E+00 + 23.50000 -42.50000 0.0000000E+00 + 24.50000 -42.50000 0.0000000E+00 + 25.50000 -42.50000 0.0000000E+00 + 26.50000 -42.50000 0.0000000E+00 + 27.50000 -42.50000 0.0000000E+00 + 28.50000 -42.50000 0.0000000E+00 + 29.50000 -42.50000 0.0000000E+00 + 30.50000 -42.50000 0.0000000E+00 + 31.50000 -42.50000 0.0000000E+00 + 32.50000 -42.50000 0.0000000E+00 + 33.50000 -42.50000 0.0000000E+00 + 34.50000 -42.50000 0.0000000E+00 + 35.50000 -42.50000 0.0000000E+00 + 36.50000 -42.50000 0.0000000E+00 + 37.50000 -42.50000 0.0000000E+00 + 38.50000 -42.50000 0.0000000E+00 + 39.50000 -42.50000 0.0000000E+00 + 40.50000 -42.50000 0.0000000E+00 + 41.50000 -42.50000 0.0000000E+00 + 42.50000 -42.50000 0.0000000E+00 + 43.50000 -42.50000 0.0000000E+00 + 44.50000 -42.50000 0.0000000E+00 + 45.50000 -42.50000 0.0000000E+00 + 46.50000 -42.50000 0.0000000E+00 + 47.50000 -42.50000 0.0000000E+00 + 48.50000 -42.50000 0.0000000E+00 + 49.50000 -42.50000 0.0000000E+00 + 50.50000 -42.50000 0.0000000E+00 + 51.50000 -42.50000 0.0000000E+00 + 52.50000 -42.50000 0.0000000E+00 + 53.50000 -42.50000 0.0000000E+00 + 54.50000 -42.50000 0.0000000E+00 + 55.50000 -42.50000 0.0000000E+00 + 56.50000 -42.50000 0.0000000E+00 + 57.50000 -42.50000 0.0000000E+00 + 58.50000 -42.50000 0.0000000E+00 + 59.50000 -42.50000 0.0000000E+00 + 60.50000 -42.50000 0.0000000E+00 + 61.50000 -42.50000 0.0000000E+00 + 62.50000 -42.50000 0.0000000E+00 + 63.50000 -42.50000 0.0000000E+00 + 64.50000 -42.50000 0.0000000E+00 + 65.50000 -42.50000 0.0000000E+00 + 66.50000 -42.50000 0.0000000E+00 + 67.50000 -42.50000 0.0000000E+00 + 68.50000 -42.50000 0.0000000E+00 + 69.50000 -42.50000 0.0000000E+00 + 70.50000 -42.50000 0.0000000E+00 + 71.50000 -42.50000 0.0000000E+00 + 72.50000 -42.50000 0.0000000E+00 + 73.50000 -42.50000 0.0000000E+00 + 74.50000 -42.50000 0.0000000E+00 + 75.50000 -42.50000 0.0000000E+00 + 76.50000 -42.50000 0.0000000E+00 + 77.50000 -42.50000 0.0000000E+00 + 78.50000 -42.50000 0.0000000E+00 + 79.50000 -42.50000 0.0000000E+00 + 80.50000 -42.50000 0.0000000E+00 + 81.50000 -42.50000 0.0000000E+00 + 82.50000 -42.50000 0.0000000E+00 + 83.50000 -42.50000 0.0000000E+00 + 84.50000 -42.50000 0.0000000E+00 + 85.50000 -42.50000 0.0000000E+00 + 86.50000 -42.50000 0.0000000E+00 + 87.50000 -42.50000 0.0000000E+00 + 88.50000 -42.50000 0.0000000E+00 + 89.50000 -42.50000 0.0000000E+00 + -89.50000 -41.50000 0.0000000E+00 + -88.50000 -41.50000 0.0000000E+00 + -87.50000 -41.50000 0.0000000E+00 + -86.50000 -41.50000 0.0000000E+00 + -85.50000 -41.50000 0.0000000E+00 + -84.50000 -41.50000 0.0000000E+00 + -83.50000 -41.50000 0.0000000E+00 + -82.50000 -41.50000 0.0000000E+00 + -81.50000 -41.50000 0.0000000E+00 + -80.50000 -41.50000 0.0000000E+00 + -79.50000 -41.50000 0.0000000E+00 + -78.50000 -41.50000 0.0000000E+00 + -77.50000 -41.50000 0.0000000E+00 + -76.50000 -41.50000 0.0000000E+00 + -75.50000 -41.50000 0.0000000E+00 + -74.50000 -41.50000 0.0000000E+00 + -73.50000 -41.50000 0.0000000E+00 + -72.50000 -41.50000 0.0000000E+00 + -71.50000 -41.50000 0.0000000E+00 + -70.50000 -41.50000 0.0000000E+00 + -69.50000 -41.50000 0.0000000E+00 + -68.50000 -41.50000 0.0000000E+00 + -67.50000 -41.50000 0.0000000E+00 + -66.50000 -41.50000 0.0000000E+00 + -65.50000 -41.50000 0.0000000E+00 + -64.50000 -41.50000 0.0000000E+00 + -63.50000 -41.50000 0.0000000E+00 + -62.50000 -41.50000 0.0000000E+00 + -61.50000 -41.50000 0.0000000E+00 + -60.50000 -41.50000 0.0000000E+00 + -59.50000 -41.50000 0.0000000E+00 + -58.50000 -41.50000 0.0000000E+00 + -57.50000 -41.50000 0.0000000E+00 + -56.50000 -41.50000 0.0000000E+00 + -55.50000 -41.50000 0.0000000E+00 + -54.50000 -41.50000 0.0000000E+00 + -53.50000 -41.50000 0.0000000E+00 + -52.50000 -41.50000 0.0000000E+00 + -51.50000 -41.50000 0.0000000E+00 + -50.50000 -41.50000 0.0000000E+00 + -49.50000 -41.50000 0.0000000E+00 + -48.50000 -41.50000 0.0000000E+00 + -47.50000 -41.50000 0.0000000E+00 + -46.50000 -41.50000 0.0000000E+00 + -45.50000 -41.50000 0.0000000E+00 + -44.50000 -41.50000 0.0000000E+00 + -43.50000 -41.50000 0.0000000E+00 + -42.50000 -41.50000 0.0000000E+00 + -41.50000 -41.50000 0.0000000E+00 + -40.50000 -41.50000 0.0000000E+00 + -39.50000 -41.50000 0.0000000E+00 + -38.50000 -41.50000 0.0000000E+00 + -37.50000 -41.50000 0.0000000E+00 + -36.50000 -41.50000 0.0000000E+00 + -35.50000 -41.50000 0.0000000E+00 + -34.50000 -41.50000 0.0000000E+00 + -33.50000 -41.50000 0.0000000E+00 + -32.50000 -41.50000 0.0000000E+00 + -31.50000 -41.50000 0.0000000E+00 + -30.50000 -41.50000 0.0000000E+00 + -29.50000 -41.50000 0.0000000E+00 + -28.50000 -41.50000 0.0000000E+00 + -27.50000 -41.50000 0.0000000E+00 + -26.50000 -41.50000 0.0000000E+00 + -25.50000 -41.50000 0.0000000E+00 + -24.50000 -41.50000 0.0000000E+00 + -23.50000 -41.50000 0.0000000E+00 + -22.50000 -41.50000 0.0000000E+00 + -21.50000 -41.50000 0.0000000E+00 + -20.50000 -41.50000 0.0000000E+00 + -19.50000 -41.50000 0.0000000E+00 + -18.50000 -41.50000 0.0000000E+00 + -17.50000 -41.50000 0.0000000E+00 + -16.50000 -41.50000 0.0000000E+00 + -15.50000 -41.50000 0.0000000E+00 + -14.50000 -41.50000 0.0000000E+00 + -13.50000 -41.50000 0.0000000E+00 + -12.50000 -41.50000 0.0000000E+00 + -11.50000 -41.50000 0.0000000E+00 + -10.50000 -41.50000 0.0000000E+00 + -9.500000 -41.50000 0.0000000E+00 + -8.500000 -41.50000 0.0000000E+00 + -7.500000 -41.50000 0.0000000E+00 + -6.500000 -41.50000 0.0000000E+00 + -5.500000 -41.50000 0.0000000E+00 + -4.500000 -41.50000 0.0000000E+00 + -3.500000 -41.50000 0.0000000E+00 + -2.500000 -41.50000 0.0000000E+00 + -1.500000 -41.50000 0.0000000E+00 + -0.5000000 -41.50000 0.0000000E+00 + 0.5000000 -41.50000 0.0000000E+00 + 1.500000 -41.50000 0.0000000E+00 + 2.500000 -41.50000 0.0000000E+00 + 3.500000 -41.50000 0.0000000E+00 + 4.500000 -41.50000 0.0000000E+00 + 5.500000 -41.50000 0.0000000E+00 + 6.500000 -41.50000 0.0000000E+00 + 7.500000 -41.50000 0.0000000E+00 + 8.500000 -41.50000 0.0000000E+00 + 9.500000 -41.50000 0.0000000E+00 + 10.50000 -41.50000 0.0000000E+00 + 11.50000 -41.50000 0.0000000E+00 + 12.50000 -41.50000 0.0000000E+00 + 13.50000 -41.50000 0.0000000E+00 + 14.50000 -41.50000 0.0000000E+00 + 15.50000 -41.50000 0.0000000E+00 + 16.50000 -41.50000 0.0000000E+00 + 17.50000 -41.50000 0.0000000E+00 + 18.50000 -41.50000 0.0000000E+00 + 19.50000 -41.50000 0.0000000E+00 + 20.50000 -41.50000 0.0000000E+00 + 21.50000 -41.50000 0.0000000E+00 + 22.50000 -41.50000 0.0000000E+00 + 23.50000 -41.50000 0.0000000E+00 + 24.50000 -41.50000 0.0000000E+00 + 25.50000 -41.50000 0.0000000E+00 + 26.50000 -41.50000 0.0000000E+00 + 27.50000 -41.50000 0.0000000E+00 + 28.50000 -41.50000 0.0000000E+00 + 29.50000 -41.50000 0.0000000E+00 + 30.50000 -41.50000 0.0000000E+00 + 31.50000 -41.50000 0.0000000E+00 + 32.50000 -41.50000 0.0000000E+00 + 33.50000 -41.50000 0.0000000E+00 + 34.50000 -41.50000 0.0000000E+00 + 35.50000 -41.50000 0.0000000E+00 + 36.50000 -41.50000 0.0000000E+00 + 37.50000 -41.50000 0.0000000E+00 + 38.50000 -41.50000 0.0000000E+00 + 39.50000 -41.50000 0.0000000E+00 + 40.50000 -41.50000 0.0000000E+00 + 41.50000 -41.50000 0.0000000E+00 + 42.50000 -41.50000 0.0000000E+00 + 43.50000 -41.50000 0.0000000E+00 + 44.50000 -41.50000 0.0000000E+00 + 45.50000 -41.50000 0.0000000E+00 + 46.50000 -41.50000 0.0000000E+00 + 47.50000 -41.50000 0.0000000E+00 + 48.50000 -41.50000 0.0000000E+00 + 49.50000 -41.50000 0.0000000E+00 + 50.50000 -41.50000 0.0000000E+00 + 51.50000 -41.50000 0.0000000E+00 + 52.50000 -41.50000 0.0000000E+00 + 53.50000 -41.50000 0.0000000E+00 + 54.50000 -41.50000 0.0000000E+00 + 55.50000 -41.50000 0.0000000E+00 + 56.50000 -41.50000 0.0000000E+00 + 57.50000 -41.50000 0.0000000E+00 + 58.50000 -41.50000 0.0000000E+00 + 59.50000 -41.50000 0.0000000E+00 + 60.50000 -41.50000 0.0000000E+00 + 61.50000 -41.50000 0.0000000E+00 + 62.50000 -41.50000 0.0000000E+00 + 63.50000 -41.50000 0.0000000E+00 + 64.50000 -41.50000 0.0000000E+00 + 65.50000 -41.50000 0.0000000E+00 + 66.50000 -41.50000 0.0000000E+00 + 67.50000 -41.50000 0.0000000E+00 + 68.50000 -41.50000 0.0000000E+00 + 69.50000 -41.50000 0.0000000E+00 + 70.50000 -41.50000 0.0000000E+00 + 71.50000 -41.50000 0.0000000E+00 + 72.50000 -41.50000 0.0000000E+00 + 73.50000 -41.50000 0.0000000E+00 + 74.50000 -41.50000 0.0000000E+00 + 75.50000 -41.50000 0.0000000E+00 + 76.50000 -41.50000 0.0000000E+00 + 77.50000 -41.50000 0.0000000E+00 + 78.50000 -41.50000 0.0000000E+00 + 79.50000 -41.50000 0.0000000E+00 + 80.50000 -41.50000 0.0000000E+00 + 81.50000 -41.50000 0.0000000E+00 + 82.50000 -41.50000 0.0000000E+00 + 83.50000 -41.50000 0.0000000E+00 + 84.50000 -41.50000 0.0000000E+00 + 85.50000 -41.50000 0.0000000E+00 + 86.50000 -41.50000 0.0000000E+00 + 87.50000 -41.50000 0.0000000E+00 + 88.50000 -41.50000 0.0000000E+00 + 89.50000 -41.50000 0.0000000E+00 + -89.50000 -40.50000 0.0000000E+00 + -88.50000 -40.50000 0.0000000E+00 + -87.50000 -40.50000 0.0000000E+00 + -86.50000 -40.50000 0.0000000E+00 + -85.50000 -40.50000 0.0000000E+00 + -84.50000 -40.50000 0.0000000E+00 + -83.50000 -40.50000 0.0000000E+00 + -82.50000 -40.50000 0.0000000E+00 + -81.50000 -40.50000 0.0000000E+00 + -80.50000 -40.50000 0.0000000E+00 + -79.50000 -40.50000 0.0000000E+00 + -78.50000 -40.50000 0.0000000E+00 + -77.50000 -40.50000 0.0000000E+00 + -76.50000 -40.50000 0.0000000E+00 + -75.50000 -40.50000 0.0000000E+00 + -74.50000 -40.50000 0.0000000E+00 + -73.50000 -40.50000 0.0000000E+00 + -72.50000 -40.50000 0.0000000E+00 + -71.50000 -40.50000 0.0000000E+00 + -70.50000 -40.50000 0.0000000E+00 + -69.50000 -40.50000 0.0000000E+00 + -68.50000 -40.50000 0.0000000E+00 + -67.50000 -40.50000 0.0000000E+00 + -66.50000 -40.50000 0.0000000E+00 + -65.50000 -40.50000 0.0000000E+00 + -64.50000 -40.50000 0.0000000E+00 + -63.50000 -40.50000 0.0000000E+00 + -62.50000 -40.50000 0.0000000E+00 + -61.50000 -40.50000 0.0000000E+00 + -60.50000 -40.50000 0.0000000E+00 + -59.50000 -40.50000 0.0000000E+00 + -58.50000 -40.50000 0.0000000E+00 + -57.50000 -40.50000 0.0000000E+00 + -56.50000 -40.50000 0.0000000E+00 + -55.50000 -40.50000 0.0000000E+00 + -54.50000 -40.50000 0.0000000E+00 + -53.50000 -40.50000 0.0000000E+00 + -52.50000 -40.50000 0.0000000E+00 + -51.50000 -40.50000 0.0000000E+00 + -50.50000 -40.50000 0.0000000E+00 + -49.50000 -40.50000 0.0000000E+00 + -48.50000 -40.50000 0.0000000E+00 + -47.50000 -40.50000 0.0000000E+00 + -46.50000 -40.50000 0.0000000E+00 + -45.50000 -40.50000 0.0000000E+00 + -44.50000 -40.50000 0.0000000E+00 + -43.50000 -40.50000 0.0000000E+00 + -42.50000 -40.50000 0.0000000E+00 + -41.50000 -40.50000 0.0000000E+00 + -40.50000 -40.50000 0.0000000E+00 + -39.50000 -40.50000 0.0000000E+00 + -38.50000 -40.50000 0.0000000E+00 + -37.50000 -40.50000 0.0000000E+00 + -36.50000 -40.50000 0.0000000E+00 + -35.50000 -40.50000 0.0000000E+00 + -34.50000 -40.50000 0.0000000E+00 + -33.50000 -40.50000 0.0000000E+00 + -32.50000 -40.50000 0.0000000E+00 + -31.50000 -40.50000 0.0000000E+00 + -30.50000 -40.50000 0.0000000E+00 + -29.50000 -40.50000 0.0000000E+00 + -28.50000 -40.50000 0.0000000E+00 + -27.50000 -40.50000 0.0000000E+00 + -26.50000 -40.50000 0.0000000E+00 + -25.50000 -40.50000 0.0000000E+00 + -24.50000 -40.50000 0.0000000E+00 + -23.50000 -40.50000 0.0000000E+00 + -22.50000 -40.50000 0.0000000E+00 + -21.50000 -40.50000 0.0000000E+00 + -20.50000 -40.50000 0.0000000E+00 + -19.50000 -40.50000 0.0000000E+00 + -18.50000 -40.50000 0.0000000E+00 + -17.50000 -40.50000 0.0000000E+00 + -16.50000 -40.50000 0.0000000E+00 + -15.50000 -40.50000 0.0000000E+00 + -14.50000 -40.50000 0.0000000E+00 + -13.50000 -40.50000 0.0000000E+00 + -12.50000 -40.50000 0.0000000E+00 + -11.50000 -40.50000 0.0000000E+00 + -10.50000 -40.50000 0.0000000E+00 + -9.500000 -40.50000 0.0000000E+00 + -8.500000 -40.50000 0.0000000E+00 + -7.500000 -40.50000 0.0000000E+00 + -6.500000 -40.50000 0.0000000E+00 + -5.500000 -40.50000 0.0000000E+00 + -4.500000 -40.50000 0.0000000E+00 + -3.500000 -40.50000 0.0000000E+00 + -2.500000 -40.50000 0.0000000E+00 + -1.500000 -40.50000 0.0000000E+00 + -0.5000000 -40.50000 0.0000000E+00 + 0.5000000 -40.50000 0.0000000E+00 + 1.500000 -40.50000 0.0000000E+00 + 2.500000 -40.50000 0.0000000E+00 + 3.500000 -40.50000 0.0000000E+00 + 4.500000 -40.50000 0.0000000E+00 + 5.500000 -40.50000 0.0000000E+00 + 6.500000 -40.50000 0.0000000E+00 + 7.500000 -40.50000 0.0000000E+00 + 8.500000 -40.50000 0.0000000E+00 + 9.500000 -40.50000 0.0000000E+00 + 10.50000 -40.50000 0.0000000E+00 + 11.50000 -40.50000 0.0000000E+00 + 12.50000 -40.50000 0.0000000E+00 + 13.50000 -40.50000 0.0000000E+00 + 14.50000 -40.50000 0.0000000E+00 + 15.50000 -40.50000 0.0000000E+00 + 16.50000 -40.50000 0.0000000E+00 + 17.50000 -40.50000 0.0000000E+00 + 18.50000 -40.50000 0.0000000E+00 + 19.50000 -40.50000 0.0000000E+00 + 20.50000 -40.50000 0.0000000E+00 + 21.50000 -40.50000 0.0000000E+00 + 22.50000 -40.50000 0.0000000E+00 + 23.50000 -40.50000 0.0000000E+00 + 24.50000 -40.50000 0.0000000E+00 + 25.50000 -40.50000 0.0000000E+00 + 26.50000 -40.50000 0.0000000E+00 + 27.50000 -40.50000 0.0000000E+00 + 28.50000 -40.50000 0.0000000E+00 + 29.50000 -40.50000 0.0000000E+00 + 30.50000 -40.50000 0.0000000E+00 + 31.50000 -40.50000 0.0000000E+00 + 32.50000 -40.50000 0.0000000E+00 + 33.50000 -40.50000 0.0000000E+00 + 34.50000 -40.50000 0.0000000E+00 + 35.50000 -40.50000 0.0000000E+00 + 36.50000 -40.50000 0.0000000E+00 + 37.50000 -40.50000 0.0000000E+00 + 38.50000 -40.50000 0.0000000E+00 + 39.50000 -40.50000 0.0000000E+00 + 40.50000 -40.50000 0.0000000E+00 + 41.50000 -40.50000 0.0000000E+00 + 42.50000 -40.50000 0.0000000E+00 + 43.50000 -40.50000 0.0000000E+00 + 44.50000 -40.50000 0.0000000E+00 + 45.50000 -40.50000 0.0000000E+00 + 46.50000 -40.50000 0.0000000E+00 + 47.50000 -40.50000 0.0000000E+00 + 48.50000 -40.50000 0.0000000E+00 + 49.50000 -40.50000 0.0000000E+00 + 50.50000 -40.50000 0.0000000E+00 + 51.50000 -40.50000 0.0000000E+00 + 52.50000 -40.50000 0.0000000E+00 + 53.50000 -40.50000 0.0000000E+00 + 54.50000 -40.50000 0.0000000E+00 + 55.50000 -40.50000 0.0000000E+00 + 56.50000 -40.50000 0.0000000E+00 + 57.50000 -40.50000 0.0000000E+00 + 58.50000 -40.50000 0.0000000E+00 + 59.50000 -40.50000 0.0000000E+00 + 60.50000 -40.50000 0.0000000E+00 + 61.50000 -40.50000 0.0000000E+00 + 62.50000 -40.50000 0.0000000E+00 + 63.50000 -40.50000 0.0000000E+00 + 64.50000 -40.50000 0.0000000E+00 + 65.50000 -40.50000 0.0000000E+00 + 66.50000 -40.50000 0.0000000E+00 + 67.50000 -40.50000 0.0000000E+00 + 68.50000 -40.50000 0.0000000E+00 + 69.50000 -40.50000 0.0000000E+00 + 70.50000 -40.50000 0.0000000E+00 + 71.50000 -40.50000 0.0000000E+00 + 72.50000 -40.50000 0.0000000E+00 + 73.50000 -40.50000 0.0000000E+00 + 74.50000 -40.50000 0.0000000E+00 + 75.50000 -40.50000 0.0000000E+00 + 76.50000 -40.50000 0.0000000E+00 + 77.50000 -40.50000 0.0000000E+00 + 78.50000 -40.50000 0.0000000E+00 + 79.50000 -40.50000 0.0000000E+00 + 80.50000 -40.50000 0.0000000E+00 + 81.50000 -40.50000 0.0000000E+00 + 82.50000 -40.50000 0.0000000E+00 + 83.50000 -40.50000 0.0000000E+00 + 84.50000 -40.50000 0.0000000E+00 + 85.50000 -40.50000 0.0000000E+00 + 86.50000 -40.50000 0.0000000E+00 + 87.50000 -40.50000 0.0000000E+00 + 88.50000 -40.50000 0.0000000E+00 + 89.50000 -40.50000 0.0000000E+00 + -89.50000 -39.50000 0.0000000E+00 + -88.50000 -39.50000 0.0000000E+00 + -87.50000 -39.50000 0.0000000E+00 + -86.50000 -39.50000 0.0000000E+00 + -85.50000 -39.50000 0.0000000E+00 + -84.50000 -39.50000 0.0000000E+00 + -83.50000 -39.50000 0.0000000E+00 + -82.50000 -39.50000 0.0000000E+00 + -81.50000 -39.50000 0.0000000E+00 + -80.50000 -39.50000 0.0000000E+00 + -79.50000 -39.50000 0.0000000E+00 + -78.50000 -39.50000 0.0000000E+00 + -77.50000 -39.50000 0.0000000E+00 + -76.50000 -39.50000 0.0000000E+00 + -75.50000 -39.50000 0.0000000E+00 + -74.50000 -39.50000 0.0000000E+00 + -73.50000 -39.50000 0.0000000E+00 + -72.50000 -39.50000 0.0000000E+00 + -71.50000 -39.50000 0.0000000E+00 + -70.50000 -39.50000 0.0000000E+00 + -69.50000 -39.50000 0.0000000E+00 + -68.50000 -39.50000 0.0000000E+00 + -67.50000 -39.50000 0.0000000E+00 + -66.50000 -39.50000 0.0000000E+00 + -65.50000 -39.50000 0.0000000E+00 + -64.50000 -39.50000 0.0000000E+00 + -63.50000 -39.50000 0.0000000E+00 + -62.50000 -39.50000 0.0000000E+00 + -61.50000 -39.50000 0.0000000E+00 + -60.50000 -39.50000 0.0000000E+00 + -59.50000 -39.50000 0.0000000E+00 + -58.50000 -39.50000 0.0000000E+00 + -57.50000 -39.50000 0.0000000E+00 + -56.50000 -39.50000 0.0000000E+00 + -55.50000 -39.50000 0.0000000E+00 + -54.50000 -39.50000 0.0000000E+00 + -53.50000 -39.50000 0.0000000E+00 + -52.50000 -39.50000 0.0000000E+00 + -51.50000 -39.50000 0.0000000E+00 + -50.50000 -39.50000 0.0000000E+00 + -49.50000 -39.50000 0.0000000E+00 + -48.50000 -39.50000 0.0000000E+00 + -47.50000 -39.50000 0.0000000E+00 + -46.50000 -39.50000 0.0000000E+00 + -45.50000 -39.50000 0.0000000E+00 + -44.50000 -39.50000 0.0000000E+00 + -43.50000 -39.50000 0.0000000E+00 + -42.50000 -39.50000 0.0000000E+00 + -41.50000 -39.50000 0.0000000E+00 + -40.50000 -39.50000 0.0000000E+00 + -39.50000 -39.50000 0.0000000E+00 + -38.50000 -39.50000 0.0000000E+00 + -37.50000 -39.50000 0.0000000E+00 + -36.50000 -39.50000 0.0000000E+00 + -35.50000 -39.50000 0.0000000E+00 + -34.50000 -39.50000 0.0000000E+00 + -33.50000 -39.50000 0.0000000E+00 + -32.50000 -39.50000 0.0000000E+00 + -31.50000 -39.50000 0.0000000E+00 + -30.50000 -39.50000 0.0000000E+00 + -29.50000 -39.50000 0.0000000E+00 + -28.50000 -39.50000 0.0000000E+00 + -27.50000 -39.50000 0.0000000E+00 + -26.50000 -39.50000 0.0000000E+00 + -25.50000 -39.50000 0.0000000E+00 + -24.50000 -39.50000 0.0000000E+00 + -23.50000 -39.50000 0.0000000E+00 + -22.50000 -39.50000 0.0000000E+00 + -21.50000 -39.50000 0.0000000E+00 + -20.50000 -39.50000 0.0000000E+00 + -19.50000 -39.50000 0.0000000E+00 + -18.50000 -39.50000 0.0000000E+00 + -17.50000 -39.50000 0.0000000E+00 + -16.50000 -39.50000 0.0000000E+00 + -15.50000 -39.50000 0.0000000E+00 + -14.50000 -39.50000 0.0000000E+00 + -13.50000 -39.50000 0.0000000E+00 + -12.50000 -39.50000 0.0000000E+00 + -11.50000 -39.50000 0.0000000E+00 + -10.50000 -39.50000 0.0000000E+00 + -9.500000 -39.50000 0.0000000E+00 + -8.500000 -39.50000 0.0000000E+00 + -7.500000 -39.50000 0.0000000E+00 + -6.500000 -39.50000 0.0000000E+00 + -5.500000 -39.50000 0.0000000E+00 + -4.500000 -39.50000 0.0000000E+00 + -3.500000 -39.50000 0.0000000E+00 + -2.500000 -39.50000 0.0000000E+00 + -1.500000 -39.50000 0.0000000E+00 + -0.5000000 -39.50000 0.0000000E+00 + 0.5000000 -39.50000 0.0000000E+00 + 1.500000 -39.50000 0.0000000E+00 + 2.500000 -39.50000 0.0000000E+00 + 3.500000 -39.50000 0.0000000E+00 + 4.500000 -39.50000 0.0000000E+00 + 5.500000 -39.50000 0.0000000E+00 + 6.500000 -39.50000 0.0000000E+00 + 7.500000 -39.50000 0.0000000E+00 + 8.500000 -39.50000 0.0000000E+00 + 9.500000 -39.50000 0.0000000E+00 + 10.50000 -39.50000 0.0000000E+00 + 11.50000 -39.50000 0.0000000E+00 + 12.50000 -39.50000 0.0000000E+00 + 13.50000 -39.50000 0.0000000E+00 + 14.50000 -39.50000 0.0000000E+00 + 15.50000 -39.50000 0.0000000E+00 + 16.50000 -39.50000 0.0000000E+00 + 17.50000 -39.50000 0.0000000E+00 + 18.50000 -39.50000 0.0000000E+00 + 19.50000 -39.50000 0.0000000E+00 + 20.50000 -39.50000 0.0000000E+00 + 21.50000 -39.50000 0.0000000E+00 + 22.50000 -39.50000 0.0000000E+00 + 23.50000 -39.50000 0.0000000E+00 + 24.50000 -39.50000 0.0000000E+00 + 25.50000 -39.50000 0.0000000E+00 + 26.50000 -39.50000 0.0000000E+00 + 27.50000 -39.50000 0.0000000E+00 + 28.50000 -39.50000 0.0000000E+00 + 29.50000 -39.50000 0.0000000E+00 + 30.50000 -39.50000 0.0000000E+00 + 31.50000 -39.50000 0.0000000E+00 + 32.50000 -39.50000 0.0000000E+00 + 33.50000 -39.50000 0.0000000E+00 + 34.50000 -39.50000 0.0000000E+00 + 35.50000 -39.50000 0.0000000E+00 + 36.50000 -39.50000 0.0000000E+00 + 37.50000 -39.50000 0.0000000E+00 + 38.50000 -39.50000 0.0000000E+00 + 39.50000 -39.50000 0.0000000E+00 + 40.50000 -39.50000 0.0000000E+00 + 41.50000 -39.50000 0.0000000E+00 + 42.50000 -39.50000 0.0000000E+00 + 43.50000 -39.50000 0.0000000E+00 + 44.50000 -39.50000 0.0000000E+00 + 45.50000 -39.50000 0.0000000E+00 + 46.50000 -39.50000 0.0000000E+00 + 47.50000 -39.50000 0.0000000E+00 + 48.50000 -39.50000 0.0000000E+00 + 49.50000 -39.50000 0.0000000E+00 + 50.50000 -39.50000 0.0000000E+00 + 51.50000 -39.50000 0.0000000E+00 + 52.50000 -39.50000 0.0000000E+00 + 53.50000 -39.50000 0.0000000E+00 + 54.50000 -39.50000 0.0000000E+00 + 55.50000 -39.50000 0.0000000E+00 + 56.50000 -39.50000 0.0000000E+00 + 57.50000 -39.50000 0.0000000E+00 + 58.50000 -39.50000 0.0000000E+00 + 59.50000 -39.50000 0.0000000E+00 + 60.50000 -39.50000 0.0000000E+00 + 61.50000 -39.50000 0.0000000E+00 + 62.50000 -39.50000 0.0000000E+00 + 63.50000 -39.50000 0.0000000E+00 + 64.50000 -39.50000 0.0000000E+00 + 65.50000 -39.50000 0.0000000E+00 + 66.50000 -39.50000 0.0000000E+00 + 67.50000 -39.50000 0.0000000E+00 + 68.50000 -39.50000 0.0000000E+00 + 69.50000 -39.50000 0.0000000E+00 + 70.50000 -39.50000 0.0000000E+00 + 71.50000 -39.50000 0.0000000E+00 + 72.50000 -39.50000 0.0000000E+00 + 73.50000 -39.50000 0.0000000E+00 + 74.50000 -39.50000 0.0000000E+00 + 75.50000 -39.50000 0.0000000E+00 + 76.50000 -39.50000 0.0000000E+00 + 77.50000 -39.50000 0.0000000E+00 + 78.50000 -39.50000 0.0000000E+00 + 79.50000 -39.50000 0.0000000E+00 + 80.50000 -39.50000 0.0000000E+00 + 81.50000 -39.50000 0.0000000E+00 + 82.50000 -39.50000 0.0000000E+00 + 83.50000 -39.50000 0.0000000E+00 + 84.50000 -39.50000 0.0000000E+00 + 85.50000 -39.50000 0.0000000E+00 + 86.50000 -39.50000 0.0000000E+00 + 87.50000 -39.50000 0.0000000E+00 + 88.50000 -39.50000 0.0000000E+00 + 89.50000 -39.50000 0.0000000E+00 + -89.50000 -38.50000 0.0000000E+00 + -88.50000 -38.50000 0.0000000E+00 + -87.50000 -38.50000 0.0000000E+00 + -86.50000 -38.50000 0.0000000E+00 + -85.50000 -38.50000 0.0000000E+00 + -84.50000 -38.50000 0.0000000E+00 + -83.50000 -38.50000 0.0000000E+00 + -82.50000 -38.50000 0.0000000E+00 + -81.50000 -38.50000 0.0000000E+00 + -80.50000 -38.50000 0.0000000E+00 + -79.50000 -38.50000 0.0000000E+00 + -78.50000 -38.50000 0.0000000E+00 + -77.50000 -38.50000 0.0000000E+00 + -76.50000 -38.50000 0.0000000E+00 + -75.50000 -38.50000 0.0000000E+00 + -74.50000 -38.50000 0.0000000E+00 + -73.50000 -38.50000 0.0000000E+00 + -72.50000 -38.50000 0.0000000E+00 + -71.50000 -38.50000 0.0000000E+00 + -70.50000 -38.50000 0.0000000E+00 + -69.50000 -38.50000 0.0000000E+00 + -68.50000 -38.50000 0.0000000E+00 + -67.50000 -38.50000 0.0000000E+00 + -66.50000 -38.50000 0.0000000E+00 + -65.50000 -38.50000 0.0000000E+00 + -64.50000 -38.50000 0.0000000E+00 + -63.50000 -38.50000 0.0000000E+00 + -62.50000 -38.50000 0.0000000E+00 + -61.50000 -38.50000 0.0000000E+00 + -60.50000 -38.50000 0.0000000E+00 + -59.50000 -38.50000 0.0000000E+00 + -58.50000 -38.50000 0.0000000E+00 + -57.50000 -38.50000 0.0000000E+00 + -56.50000 -38.50000 0.0000000E+00 + -55.50000 -38.50000 0.0000000E+00 + -54.50000 -38.50000 0.0000000E+00 + -53.50000 -38.50000 0.0000000E+00 + -52.50000 -38.50000 0.0000000E+00 + -51.50000 -38.50000 0.0000000E+00 + -50.50000 -38.50000 0.0000000E+00 + -49.50000 -38.50000 0.0000000E+00 + -48.50000 -38.50000 0.0000000E+00 + -47.50000 -38.50000 0.0000000E+00 + -46.50000 -38.50000 0.0000000E+00 + -45.50000 -38.50000 0.0000000E+00 + -44.50000 -38.50000 0.0000000E+00 + -43.50000 -38.50000 0.0000000E+00 + -42.50000 -38.50000 0.0000000E+00 + -41.50000 -38.50000 0.0000000E+00 + -40.50000 -38.50000 0.0000000E+00 + -39.50000 -38.50000 0.0000000E+00 + -38.50000 -38.50000 0.0000000E+00 + -37.50000 -38.50000 0.0000000E+00 + -36.50000 -38.50000 0.0000000E+00 + -35.50000 -38.50000 0.0000000E+00 + -34.50000 -38.50000 0.0000000E+00 + -33.50000 -38.50000 0.0000000E+00 + -32.50000 -38.50000 0.0000000E+00 + -31.50000 -38.50000 0.0000000E+00 + -30.50000 -38.50000 0.0000000E+00 + -29.50000 -38.50000 0.0000000E+00 + -28.50000 -38.50000 0.0000000E+00 + -27.50000 -38.50000 0.0000000E+00 + -26.50000 -38.50000 0.0000000E+00 + -25.50000 -38.50000 0.0000000E+00 + -24.50000 -38.50000 0.0000000E+00 + -23.50000 -38.50000 0.0000000E+00 + -22.50000 -38.50000 0.0000000E+00 + -21.50000 -38.50000 0.0000000E+00 + -20.50000 -38.50000 0.0000000E+00 + -19.50000 -38.50000 0.0000000E+00 + -18.50000 -38.50000 0.0000000E+00 + -17.50000 -38.50000 0.0000000E+00 + -16.50000 -38.50000 0.0000000E+00 + -15.50000 -38.50000 0.0000000E+00 + -14.50000 -38.50000 0.0000000E+00 + -13.50000 -38.50000 0.0000000E+00 + -12.50000 -38.50000 0.0000000E+00 + -11.50000 -38.50000 0.0000000E+00 + -10.50000 -38.50000 0.0000000E+00 + -9.500000 -38.50000 0.0000000E+00 + -8.500000 -38.50000 0.0000000E+00 + -7.500000 -38.50000 0.0000000E+00 + -6.500000 -38.50000 0.0000000E+00 + -5.500000 -38.50000 0.0000000E+00 + -4.500000 -38.50000 0.0000000E+00 + -3.500000 -38.50000 0.0000000E+00 + -2.500000 -38.50000 0.0000000E+00 + -1.500000 -38.50000 0.0000000E+00 + -0.5000000 -38.50000 0.0000000E+00 + 0.5000000 -38.50000 0.0000000E+00 + 1.500000 -38.50000 0.0000000E+00 + 2.500000 -38.50000 0.0000000E+00 + 3.500000 -38.50000 0.0000000E+00 + 4.500000 -38.50000 0.0000000E+00 + 5.500000 -38.50000 0.0000000E+00 + 6.500000 -38.50000 0.0000000E+00 + 7.500000 -38.50000 0.0000000E+00 + 8.500000 -38.50000 0.0000000E+00 + 9.500000 -38.50000 0.0000000E+00 + 10.50000 -38.50000 0.0000000E+00 + 11.50000 -38.50000 0.0000000E+00 + 12.50000 -38.50000 0.0000000E+00 + 13.50000 -38.50000 0.0000000E+00 + 14.50000 -38.50000 0.0000000E+00 + 15.50000 -38.50000 0.0000000E+00 + 16.50000 -38.50000 0.0000000E+00 + 17.50000 -38.50000 0.0000000E+00 + 18.50000 -38.50000 0.0000000E+00 + 19.50000 -38.50000 0.0000000E+00 + 20.50000 -38.50000 0.0000000E+00 + 21.50000 -38.50000 0.0000000E+00 + 22.50000 -38.50000 0.0000000E+00 + 23.50000 -38.50000 0.0000000E+00 + 24.50000 -38.50000 0.0000000E+00 + 25.50000 -38.50000 0.0000000E+00 + 26.50000 -38.50000 0.0000000E+00 + 27.50000 -38.50000 0.0000000E+00 + 28.50000 -38.50000 0.0000000E+00 + 29.50000 -38.50000 0.0000000E+00 + 30.50000 -38.50000 0.0000000E+00 + 31.50000 -38.50000 0.0000000E+00 + 32.50000 -38.50000 0.0000000E+00 + 33.50000 -38.50000 0.0000000E+00 + 34.50000 -38.50000 0.0000000E+00 + 35.50000 -38.50000 0.0000000E+00 + 36.50000 -38.50000 0.0000000E+00 + 37.50000 -38.50000 0.0000000E+00 + 38.50000 -38.50000 0.0000000E+00 + 39.50000 -38.50000 0.0000000E+00 + 40.50000 -38.50000 0.0000000E+00 + 41.50000 -38.50000 0.0000000E+00 + 42.50000 -38.50000 0.0000000E+00 + 43.50000 -38.50000 0.0000000E+00 + 44.50000 -38.50000 0.0000000E+00 + 45.50000 -38.50000 0.0000000E+00 + 46.50000 -38.50000 0.0000000E+00 + 47.50000 -38.50000 0.0000000E+00 + 48.50000 -38.50000 0.0000000E+00 + 49.50000 -38.50000 0.0000000E+00 + 50.50000 -38.50000 0.0000000E+00 + 51.50000 -38.50000 0.0000000E+00 + 52.50000 -38.50000 0.0000000E+00 + 53.50000 -38.50000 0.0000000E+00 + 54.50000 -38.50000 0.0000000E+00 + 55.50000 -38.50000 0.0000000E+00 + 56.50000 -38.50000 0.0000000E+00 + 57.50000 -38.50000 0.0000000E+00 + 58.50000 -38.50000 0.0000000E+00 + 59.50000 -38.50000 0.0000000E+00 + 60.50000 -38.50000 0.0000000E+00 + 61.50000 -38.50000 0.0000000E+00 + 62.50000 -38.50000 0.0000000E+00 + 63.50000 -38.50000 0.0000000E+00 + 64.50000 -38.50000 0.0000000E+00 + 65.50000 -38.50000 0.0000000E+00 + 66.50000 -38.50000 0.0000000E+00 + 67.50000 -38.50000 0.0000000E+00 + 68.50000 -38.50000 0.0000000E+00 + 69.50000 -38.50000 0.0000000E+00 + 70.50000 -38.50000 0.0000000E+00 + 71.50000 -38.50000 0.0000000E+00 + 72.50000 -38.50000 0.0000000E+00 + 73.50000 -38.50000 0.0000000E+00 + 74.50000 -38.50000 0.0000000E+00 + 75.50000 -38.50000 0.0000000E+00 + 76.50000 -38.50000 0.0000000E+00 + 77.50000 -38.50000 0.0000000E+00 + 78.50000 -38.50000 0.0000000E+00 + 79.50000 -38.50000 0.0000000E+00 + 80.50000 -38.50000 0.0000000E+00 + 81.50000 -38.50000 0.0000000E+00 + 82.50000 -38.50000 0.0000000E+00 + 83.50000 -38.50000 0.0000000E+00 + 84.50000 -38.50000 0.0000000E+00 + 85.50000 -38.50000 0.0000000E+00 + 86.50000 -38.50000 0.0000000E+00 + 87.50000 -38.50000 0.0000000E+00 + 88.50000 -38.50000 0.0000000E+00 + 89.50000 -38.50000 0.0000000E+00 + -89.50000 -37.50000 0.0000000E+00 + -88.50000 -37.50000 0.0000000E+00 + -87.50000 -37.50000 0.0000000E+00 + -86.50000 -37.50000 0.0000000E+00 + -85.50000 -37.50000 0.0000000E+00 + -84.50000 -37.50000 0.0000000E+00 + -83.50000 -37.50000 0.0000000E+00 + -82.50000 -37.50000 0.0000000E+00 + -81.50000 -37.50000 0.0000000E+00 + -80.50000 -37.50000 0.0000000E+00 + -79.50000 -37.50000 0.0000000E+00 + -78.50000 -37.50000 0.0000000E+00 + -77.50000 -37.50000 0.0000000E+00 + -76.50000 -37.50000 0.0000000E+00 + -75.50000 -37.50000 0.0000000E+00 + -74.50000 -37.50000 0.0000000E+00 + -73.50000 -37.50000 0.0000000E+00 + -72.50000 -37.50000 0.0000000E+00 + -71.50000 -37.50000 0.0000000E+00 + -70.50000 -37.50000 0.0000000E+00 + -69.50000 -37.50000 0.0000000E+00 + -68.50000 -37.50000 0.0000000E+00 + -67.50000 -37.50000 0.0000000E+00 + -66.50000 -37.50000 0.0000000E+00 + -65.50000 -37.50000 0.0000000E+00 + -64.50000 -37.50000 0.0000000E+00 + -63.50000 -37.50000 0.0000000E+00 + -62.50000 -37.50000 0.0000000E+00 + -61.50000 -37.50000 0.0000000E+00 + -60.50000 -37.50000 0.0000000E+00 + -59.50000 -37.50000 0.0000000E+00 + -58.50000 -37.50000 0.0000000E+00 + -57.50000 -37.50000 0.0000000E+00 + -56.50000 -37.50000 0.0000000E+00 + -55.50000 -37.50000 0.0000000E+00 + -54.50000 -37.50000 0.0000000E+00 + -53.50000 -37.50000 0.0000000E+00 + -52.50000 -37.50000 0.0000000E+00 + -51.50000 -37.50000 0.0000000E+00 + -50.50000 -37.50000 0.0000000E+00 + -49.50000 -37.50000 0.0000000E+00 + -48.50000 -37.50000 0.0000000E+00 + -47.50000 -37.50000 0.0000000E+00 + -46.50000 -37.50000 0.0000000E+00 + -45.50000 -37.50000 0.0000000E+00 + -44.50000 -37.50000 0.0000000E+00 + -43.50000 -37.50000 0.0000000E+00 + -42.50000 -37.50000 0.0000000E+00 + -41.50000 -37.50000 0.0000000E+00 + -40.50000 -37.50000 0.0000000E+00 + -39.50000 -37.50000 0.0000000E+00 + -38.50000 -37.50000 0.0000000E+00 + -37.50000 -37.50000 0.0000000E+00 + -36.50000 -37.50000 0.0000000E+00 + -35.50000 -37.50000 0.0000000E+00 + -34.50000 -37.50000 0.0000000E+00 + -33.50000 -37.50000 0.0000000E+00 + -32.50000 -37.50000 0.0000000E+00 + -31.50000 -37.50000 0.0000000E+00 + -30.50000 -37.50000 0.0000000E+00 + -29.50000 -37.50000 0.0000000E+00 + -28.50000 -37.50000 0.0000000E+00 + -27.50000 -37.50000 0.0000000E+00 + -26.50000 -37.50000 0.0000000E+00 + -25.50000 -37.50000 0.0000000E+00 + -24.50000 -37.50000 0.0000000E+00 + -23.50000 -37.50000 0.0000000E+00 + -22.50000 -37.50000 0.0000000E+00 + -21.50000 -37.50000 0.0000000E+00 + -20.50000 -37.50000 0.0000000E+00 + -19.50000 -37.50000 0.0000000E+00 + -18.50000 -37.50000 0.0000000E+00 + -17.50000 -37.50000 0.0000000E+00 + -16.50000 -37.50000 0.0000000E+00 + -15.50000 -37.50000 0.0000000E+00 + -14.50000 -37.50000 0.0000000E+00 + -13.50000 -37.50000 0.0000000E+00 + -12.50000 -37.50000 0.0000000E+00 + -11.50000 -37.50000 0.0000000E+00 + -10.50000 -37.50000 0.0000000E+00 + -9.500000 -37.50000 0.0000000E+00 + -8.500000 -37.50000 0.0000000E+00 + -7.500000 -37.50000 0.0000000E+00 + -6.500000 -37.50000 0.0000000E+00 + -5.500000 -37.50000 0.0000000E+00 + -4.500000 -37.50000 0.0000000E+00 + -3.500000 -37.50000 0.0000000E+00 + -2.500000 -37.50000 0.0000000E+00 + -1.500000 -37.50000 0.0000000E+00 + -0.5000000 -37.50000 0.0000000E+00 + 0.5000000 -37.50000 0.0000000E+00 + 1.500000 -37.50000 0.0000000E+00 + 2.500000 -37.50000 0.0000000E+00 + 3.500000 -37.50000 0.0000000E+00 + 4.500000 -37.50000 0.0000000E+00 + 5.500000 -37.50000 0.0000000E+00 + 6.500000 -37.50000 0.0000000E+00 + 7.500000 -37.50000 0.0000000E+00 + 8.500000 -37.50000 0.0000000E+00 + 9.500000 -37.50000 0.0000000E+00 + 10.50000 -37.50000 0.0000000E+00 + 11.50000 -37.50000 0.0000000E+00 + 12.50000 -37.50000 0.0000000E+00 + 13.50000 -37.50000 0.0000000E+00 + 14.50000 -37.50000 0.0000000E+00 + 15.50000 -37.50000 0.0000000E+00 + 16.50000 -37.50000 0.0000000E+00 + 17.50000 -37.50000 0.0000000E+00 + 18.50000 -37.50000 0.0000000E+00 + 19.50000 -37.50000 0.0000000E+00 + 20.50000 -37.50000 0.0000000E+00 + 21.50000 -37.50000 0.0000000E+00 + 22.50000 -37.50000 0.0000000E+00 + 23.50000 -37.50000 0.0000000E+00 + 24.50000 -37.50000 0.0000000E+00 + 25.50000 -37.50000 0.0000000E+00 + 26.50000 -37.50000 0.0000000E+00 + 27.50000 -37.50000 0.0000000E+00 + 28.50000 -37.50000 0.0000000E+00 + 29.50000 -37.50000 0.0000000E+00 + 30.50000 -37.50000 0.0000000E+00 + 31.50000 -37.50000 0.0000000E+00 + 32.50000 -37.50000 0.0000000E+00 + 33.50000 -37.50000 0.0000000E+00 + 34.50000 -37.50000 0.0000000E+00 + 35.50000 -37.50000 0.0000000E+00 + 36.50000 -37.50000 0.0000000E+00 + 37.50000 -37.50000 0.0000000E+00 + 38.50000 -37.50000 0.0000000E+00 + 39.50000 -37.50000 0.0000000E+00 + 40.50000 -37.50000 0.0000000E+00 + 41.50000 -37.50000 0.0000000E+00 + 42.50000 -37.50000 0.0000000E+00 + 43.50000 -37.50000 0.0000000E+00 + 44.50000 -37.50000 0.0000000E+00 + 45.50000 -37.50000 0.0000000E+00 + 46.50000 -37.50000 0.0000000E+00 + 47.50000 -37.50000 0.0000000E+00 + 48.50000 -37.50000 0.0000000E+00 + 49.50000 -37.50000 0.0000000E+00 + 50.50000 -37.50000 0.0000000E+00 + 51.50000 -37.50000 0.0000000E+00 + 52.50000 -37.50000 0.0000000E+00 + 53.50000 -37.50000 0.0000000E+00 + 54.50000 -37.50000 0.0000000E+00 + 55.50000 -37.50000 0.0000000E+00 + 56.50000 -37.50000 0.0000000E+00 + 57.50000 -37.50000 0.0000000E+00 + 58.50000 -37.50000 0.0000000E+00 + 59.50000 -37.50000 0.0000000E+00 + 60.50000 -37.50000 0.0000000E+00 + 61.50000 -37.50000 0.0000000E+00 + 62.50000 -37.50000 0.0000000E+00 + 63.50000 -37.50000 0.0000000E+00 + 64.50000 -37.50000 0.0000000E+00 + 65.50000 -37.50000 0.0000000E+00 + 66.50000 -37.50000 0.0000000E+00 + 67.50000 -37.50000 0.0000000E+00 + 68.50000 -37.50000 0.0000000E+00 + 69.50000 -37.50000 0.0000000E+00 + 70.50000 -37.50000 0.0000000E+00 + 71.50000 -37.50000 0.0000000E+00 + 72.50000 -37.50000 0.0000000E+00 + 73.50000 -37.50000 0.0000000E+00 + 74.50000 -37.50000 0.0000000E+00 + 75.50000 -37.50000 0.0000000E+00 + 76.50000 -37.50000 0.0000000E+00 + 77.50000 -37.50000 0.0000000E+00 + 78.50000 -37.50000 0.0000000E+00 + 79.50000 -37.50000 0.0000000E+00 + 80.50000 -37.50000 0.0000000E+00 + 81.50000 -37.50000 0.0000000E+00 + 82.50000 -37.50000 0.0000000E+00 + 83.50000 -37.50000 0.0000000E+00 + 84.50000 -37.50000 0.0000000E+00 + 85.50000 -37.50000 0.0000000E+00 + 86.50000 -37.50000 0.0000000E+00 + 87.50000 -37.50000 0.0000000E+00 + 88.50000 -37.50000 0.0000000E+00 + 89.50000 -37.50000 0.0000000E+00 + -89.50000 -36.50000 0.0000000E+00 + -88.50000 -36.50000 0.0000000E+00 + -87.50000 -36.50000 0.0000000E+00 + -86.50000 -36.50000 0.0000000E+00 + -85.50000 -36.50000 0.0000000E+00 + -84.50000 -36.50000 0.0000000E+00 + -83.50000 -36.50000 0.0000000E+00 + -82.50000 -36.50000 0.0000000E+00 + -81.50000 -36.50000 0.0000000E+00 + -80.50000 -36.50000 0.0000000E+00 + -79.50000 -36.50000 0.0000000E+00 + -78.50000 -36.50000 0.0000000E+00 + -77.50000 -36.50000 0.0000000E+00 + -76.50000 -36.50000 0.0000000E+00 + -75.50000 -36.50000 0.0000000E+00 + -74.50000 -36.50000 0.0000000E+00 + -73.50000 -36.50000 0.0000000E+00 + -72.50000 -36.50000 0.0000000E+00 + -71.50000 -36.50000 0.0000000E+00 + -70.50000 -36.50000 0.0000000E+00 + -69.50000 -36.50000 0.0000000E+00 + -68.50000 -36.50000 0.0000000E+00 + -67.50000 -36.50000 0.0000000E+00 + -66.50000 -36.50000 0.0000000E+00 + -65.50000 -36.50000 0.0000000E+00 + -64.50000 -36.50000 0.0000000E+00 + -63.50000 -36.50000 0.0000000E+00 + -62.50000 -36.50000 0.0000000E+00 + -61.50000 -36.50000 0.0000000E+00 + -60.50000 -36.50000 0.0000000E+00 + -59.50000 -36.50000 0.0000000E+00 + -58.50000 -36.50000 0.0000000E+00 + -57.50000 -36.50000 0.0000000E+00 + -56.50000 -36.50000 0.0000000E+00 + -55.50000 -36.50000 0.0000000E+00 + -54.50000 -36.50000 0.0000000E+00 + -53.50000 -36.50000 0.0000000E+00 + -52.50000 -36.50000 0.0000000E+00 + -51.50000 -36.50000 0.0000000E+00 + -50.50000 -36.50000 0.0000000E+00 + -49.50000 -36.50000 0.0000000E+00 + -48.50000 -36.50000 0.0000000E+00 + -47.50000 -36.50000 0.0000000E+00 + -46.50000 -36.50000 0.0000000E+00 + -45.50000 -36.50000 0.0000000E+00 + -44.50000 -36.50000 0.0000000E+00 + -43.50000 -36.50000 0.0000000E+00 + -42.50000 -36.50000 0.0000000E+00 + -41.50000 -36.50000 0.0000000E+00 + -40.50000 -36.50000 0.0000000E+00 + -39.50000 -36.50000 0.0000000E+00 + -38.50000 -36.50000 0.0000000E+00 + -37.50000 -36.50000 0.0000000E+00 + -36.50000 -36.50000 0.0000000E+00 + -35.50000 -36.50000 0.0000000E+00 + -34.50000 -36.50000 0.0000000E+00 + -33.50000 -36.50000 0.0000000E+00 + -32.50000 -36.50000 0.0000000E+00 + -31.50000 -36.50000 0.0000000E+00 + -30.50000 -36.50000 0.0000000E+00 + -29.50000 -36.50000 0.0000000E+00 + -28.50000 -36.50000 0.0000000E+00 + -27.50000 -36.50000 0.0000000E+00 + -26.50000 -36.50000 0.0000000E+00 + -25.50000 -36.50000 0.0000000E+00 + -24.50000 -36.50000 0.0000000E+00 + -23.50000 -36.50000 0.0000000E+00 + -22.50000 -36.50000 0.0000000E+00 + -21.50000 -36.50000 0.0000000E+00 + -20.50000 -36.50000 0.0000000E+00 + -19.50000 -36.50000 0.0000000E+00 + -18.50000 -36.50000 0.0000000E+00 + -17.50000 -36.50000 0.0000000E+00 + -16.50000 -36.50000 0.0000000E+00 + -15.50000 -36.50000 0.0000000E+00 + -14.50000 -36.50000 0.0000000E+00 + -13.50000 -36.50000 0.0000000E+00 + -12.50000 -36.50000 0.0000000E+00 + -11.50000 -36.50000 0.0000000E+00 + -10.50000 -36.50000 0.0000000E+00 + -9.500000 -36.50000 0.0000000E+00 + -8.500000 -36.50000 0.0000000E+00 + -7.500000 -36.50000 0.0000000E+00 + -6.500000 -36.50000 0.0000000E+00 + -5.500000 -36.50000 0.0000000E+00 + -4.500000 -36.50000 0.0000000E+00 + -3.500000 -36.50000 0.0000000E+00 + -2.500000 -36.50000 0.0000000E+00 + -1.500000 -36.50000 0.0000000E+00 + -0.5000000 -36.50000 0.0000000E+00 + 0.5000000 -36.50000 0.0000000E+00 + 1.500000 -36.50000 0.0000000E+00 + 2.500000 -36.50000 0.0000000E+00 + 3.500000 -36.50000 0.0000000E+00 + 4.500000 -36.50000 0.0000000E+00 + 5.500000 -36.50000 0.0000000E+00 + 6.500000 -36.50000 0.0000000E+00 + 7.500000 -36.50000 0.0000000E+00 + 8.500000 -36.50000 0.0000000E+00 + 9.500000 -36.50000 0.0000000E+00 + 10.50000 -36.50000 0.0000000E+00 + 11.50000 -36.50000 0.0000000E+00 + 12.50000 -36.50000 0.0000000E+00 + 13.50000 -36.50000 0.0000000E+00 + 14.50000 -36.50000 0.0000000E+00 + 15.50000 -36.50000 0.0000000E+00 + 16.50000 -36.50000 0.0000000E+00 + 17.50000 -36.50000 0.0000000E+00 + 18.50000 -36.50000 0.0000000E+00 + 19.50000 -36.50000 0.0000000E+00 + 20.50000 -36.50000 0.0000000E+00 + 21.50000 -36.50000 0.0000000E+00 + 22.50000 -36.50000 0.0000000E+00 + 23.50000 -36.50000 0.0000000E+00 + 24.50000 -36.50000 0.0000000E+00 + 25.50000 -36.50000 0.0000000E+00 + 26.50000 -36.50000 0.0000000E+00 + 27.50000 -36.50000 0.0000000E+00 + 28.50000 -36.50000 0.0000000E+00 + 29.50000 -36.50000 0.0000000E+00 + 30.50000 -36.50000 0.0000000E+00 + 31.50000 -36.50000 0.0000000E+00 + 32.50000 -36.50000 0.0000000E+00 + 33.50000 -36.50000 0.0000000E+00 + 34.50000 -36.50000 0.0000000E+00 + 35.50000 -36.50000 0.0000000E+00 + 36.50000 -36.50000 0.0000000E+00 + 37.50000 -36.50000 0.0000000E+00 + 38.50000 -36.50000 0.0000000E+00 + 39.50000 -36.50000 0.0000000E+00 + 40.50000 -36.50000 0.0000000E+00 + 41.50000 -36.50000 0.0000000E+00 + 42.50000 -36.50000 0.0000000E+00 + 43.50000 -36.50000 0.0000000E+00 + 44.50000 -36.50000 0.0000000E+00 + 45.50000 -36.50000 0.0000000E+00 + 46.50000 -36.50000 0.0000000E+00 + 47.50000 -36.50000 0.0000000E+00 + 48.50000 -36.50000 0.0000000E+00 + 49.50000 -36.50000 0.0000000E+00 + 50.50000 -36.50000 0.0000000E+00 + 51.50000 -36.50000 0.0000000E+00 + 52.50000 -36.50000 0.0000000E+00 + 53.50000 -36.50000 0.0000000E+00 + 54.50000 -36.50000 0.0000000E+00 + 55.50000 -36.50000 0.0000000E+00 + 56.50000 -36.50000 0.0000000E+00 + 57.50000 -36.50000 0.0000000E+00 + 58.50000 -36.50000 0.0000000E+00 + 59.50000 -36.50000 0.0000000E+00 + 60.50000 -36.50000 0.0000000E+00 + 61.50000 -36.50000 0.0000000E+00 + 62.50000 -36.50000 0.0000000E+00 + 63.50000 -36.50000 0.0000000E+00 + 64.50000 -36.50000 0.0000000E+00 + 65.50000 -36.50000 0.0000000E+00 + 66.50000 -36.50000 0.0000000E+00 + 67.50000 -36.50000 0.0000000E+00 + 68.50000 -36.50000 0.0000000E+00 + 69.50000 -36.50000 0.0000000E+00 + 70.50000 -36.50000 0.0000000E+00 + 71.50000 -36.50000 0.0000000E+00 + 72.50000 -36.50000 0.0000000E+00 + 73.50000 -36.50000 0.0000000E+00 + 74.50000 -36.50000 0.0000000E+00 + 75.50000 -36.50000 0.0000000E+00 + 76.50000 -36.50000 0.0000000E+00 + 77.50000 -36.50000 0.0000000E+00 + 78.50000 -36.50000 0.0000000E+00 + 79.50000 -36.50000 0.0000000E+00 + 80.50000 -36.50000 0.0000000E+00 + 81.50000 -36.50000 0.0000000E+00 + 82.50000 -36.50000 0.0000000E+00 + 83.50000 -36.50000 0.0000000E+00 + 84.50000 -36.50000 0.0000000E+00 + 85.50000 -36.50000 0.0000000E+00 + 86.50000 -36.50000 0.0000000E+00 + 87.50000 -36.50000 0.0000000E+00 + 88.50000 -36.50000 0.0000000E+00 + 89.50000 -36.50000 0.0000000E+00 + -89.50000 -35.50000 0.0000000E+00 + -88.50000 -35.50000 0.0000000E+00 + -87.50000 -35.50000 0.0000000E+00 + -86.50000 -35.50000 0.0000000E+00 + -85.50000 -35.50000 0.0000000E+00 + -84.50000 -35.50000 0.0000000E+00 + -83.50000 -35.50000 0.0000000E+00 + -82.50000 -35.50000 0.0000000E+00 + -81.50000 -35.50000 0.0000000E+00 + -80.50000 -35.50000 0.0000000E+00 + -79.50000 -35.50000 0.0000000E+00 + -78.50000 -35.50000 0.0000000E+00 + -77.50000 -35.50000 0.0000000E+00 + -76.50000 -35.50000 0.0000000E+00 + -75.50000 -35.50000 0.0000000E+00 + -74.50000 -35.50000 0.0000000E+00 + -73.50000 -35.50000 0.0000000E+00 + -72.50000 -35.50000 0.0000000E+00 + -71.50000 -35.50000 0.0000000E+00 + -70.50000 -35.50000 0.0000000E+00 + -69.50000 -35.50000 0.0000000E+00 + -68.50000 -35.50000 0.0000000E+00 + -67.50000 -35.50000 0.0000000E+00 + -66.50000 -35.50000 0.0000000E+00 + -65.50000 -35.50000 0.0000000E+00 + -64.50000 -35.50000 0.0000000E+00 + -63.50000 -35.50000 0.0000000E+00 + -62.50000 -35.50000 0.0000000E+00 + -61.50000 -35.50000 0.0000000E+00 + -60.50000 -35.50000 0.0000000E+00 + -59.50000 -35.50000 0.0000000E+00 + -58.50000 -35.50000 0.0000000E+00 + -57.50000 -35.50000 0.0000000E+00 + -56.50000 -35.50000 0.0000000E+00 + -55.50000 -35.50000 0.0000000E+00 + -54.50000 -35.50000 0.0000000E+00 + -53.50000 -35.50000 0.0000000E+00 + -52.50000 -35.50000 0.0000000E+00 + -51.50000 -35.50000 0.0000000E+00 + -50.50000 -35.50000 0.0000000E+00 + -49.50000 -35.50000 0.0000000E+00 + -48.50000 -35.50000 0.0000000E+00 + -47.50000 -35.50000 0.0000000E+00 + -46.50000 -35.50000 0.0000000E+00 + -45.50000 -35.50000 0.0000000E+00 + -44.50000 -35.50000 0.0000000E+00 + -43.50000 -35.50000 0.0000000E+00 + -42.50000 -35.50000 0.0000000E+00 + -41.50000 -35.50000 0.0000000E+00 + -40.50000 -35.50000 0.0000000E+00 + -39.50000 -35.50000 0.0000000E+00 + -38.50000 -35.50000 0.0000000E+00 + -37.50000 -35.50000 0.0000000E+00 + -36.50000 -35.50000 0.0000000E+00 + -35.50000 -35.50000 0.0000000E+00 + -34.50000 -35.50000 0.0000000E+00 + -33.50000 -35.50000 0.0000000E+00 + -32.50000 -35.50000 0.0000000E+00 + -31.50000 -35.50000 0.0000000E+00 + -30.50000 -35.50000 0.0000000E+00 + -29.50000 -35.50000 0.0000000E+00 + -28.50000 -35.50000 0.0000000E+00 + -27.50000 -35.50000 0.0000000E+00 + -26.50000 -35.50000 0.0000000E+00 + -25.50000 -35.50000 0.0000000E+00 + -24.50000 -35.50000 0.0000000E+00 + -23.50000 -35.50000 0.0000000E+00 + -22.50000 -35.50000 0.0000000E+00 + -21.50000 -35.50000 0.0000000E+00 + -20.50000 -35.50000 0.0000000E+00 + -19.50000 -35.50000 0.0000000E+00 + -18.50000 -35.50000 0.0000000E+00 + -17.50000 -35.50000 0.0000000E+00 + -16.50000 -35.50000 0.0000000E+00 + -15.50000 -35.50000 0.0000000E+00 + -14.50000 -35.50000 0.0000000E+00 + -13.50000 -35.50000 0.0000000E+00 + -12.50000 -35.50000 0.0000000E+00 + -11.50000 -35.50000 0.0000000E+00 + -10.50000 -35.50000 0.0000000E+00 + -9.500000 -35.50000 0.0000000E+00 + -8.500000 -35.50000 0.0000000E+00 + -7.500000 -35.50000 0.0000000E+00 + -6.500000 -35.50000 0.0000000E+00 + -5.500000 -35.50000 0.0000000E+00 + -4.500000 -35.50000 0.0000000E+00 + -3.500000 -35.50000 0.0000000E+00 + -2.500000 -35.50000 0.0000000E+00 + -1.500000 -35.50000 0.0000000E+00 + -0.5000000 -35.50000 0.0000000E+00 + 0.5000000 -35.50000 0.0000000E+00 + 1.500000 -35.50000 0.0000000E+00 + 2.500000 -35.50000 0.0000000E+00 + 3.500000 -35.50000 0.0000000E+00 + 4.500000 -35.50000 0.0000000E+00 + 5.500000 -35.50000 0.0000000E+00 + 6.500000 -35.50000 0.0000000E+00 + 7.500000 -35.50000 0.0000000E+00 + 8.500000 -35.50000 0.0000000E+00 + 9.500000 -35.50000 0.0000000E+00 + 10.50000 -35.50000 0.0000000E+00 + 11.50000 -35.50000 0.0000000E+00 + 12.50000 -35.50000 0.0000000E+00 + 13.50000 -35.50000 0.0000000E+00 + 14.50000 -35.50000 0.0000000E+00 + 15.50000 -35.50000 0.0000000E+00 + 16.50000 -35.50000 0.0000000E+00 + 17.50000 -35.50000 0.0000000E+00 + 18.50000 -35.50000 0.0000000E+00 + 19.50000 -35.50000 0.0000000E+00 + 20.50000 -35.50000 0.0000000E+00 + 21.50000 -35.50000 0.0000000E+00 + 22.50000 -35.50000 0.0000000E+00 + 23.50000 -35.50000 0.0000000E+00 + 24.50000 -35.50000 0.0000000E+00 + 25.50000 -35.50000 0.0000000E+00 + 26.50000 -35.50000 0.0000000E+00 + 27.50000 -35.50000 0.0000000E+00 + 28.50000 -35.50000 0.0000000E+00 + 29.50000 -35.50000 0.0000000E+00 + 30.50000 -35.50000 0.0000000E+00 + 31.50000 -35.50000 0.0000000E+00 + 32.50000 -35.50000 0.0000000E+00 + 33.50000 -35.50000 0.0000000E+00 + 34.50000 -35.50000 0.0000000E+00 + 35.50000 -35.50000 0.0000000E+00 + 36.50000 -35.50000 0.0000000E+00 + 37.50000 -35.50000 0.0000000E+00 + 38.50000 -35.50000 0.0000000E+00 + 39.50000 -35.50000 0.0000000E+00 + 40.50000 -35.50000 0.0000000E+00 + 41.50000 -35.50000 0.0000000E+00 + 42.50000 -35.50000 0.0000000E+00 + 43.50000 -35.50000 0.0000000E+00 + 44.50000 -35.50000 0.0000000E+00 + 45.50000 -35.50000 0.0000000E+00 + 46.50000 -35.50000 0.0000000E+00 + 47.50000 -35.50000 0.0000000E+00 + 48.50000 -35.50000 0.0000000E+00 + 49.50000 -35.50000 0.0000000E+00 + 50.50000 -35.50000 0.0000000E+00 + 51.50000 -35.50000 0.0000000E+00 + 52.50000 -35.50000 0.0000000E+00 + 53.50000 -35.50000 0.0000000E+00 + 54.50000 -35.50000 0.0000000E+00 + 55.50000 -35.50000 0.0000000E+00 + 56.50000 -35.50000 0.0000000E+00 + 57.50000 -35.50000 0.0000000E+00 + 58.50000 -35.50000 0.0000000E+00 + 59.50000 -35.50000 0.0000000E+00 + 60.50000 -35.50000 0.0000000E+00 + 61.50000 -35.50000 0.0000000E+00 + 62.50000 -35.50000 0.0000000E+00 + 63.50000 -35.50000 0.0000000E+00 + 64.50000 -35.50000 0.0000000E+00 + 65.50000 -35.50000 0.0000000E+00 + 66.50000 -35.50000 0.0000000E+00 + 67.50000 -35.50000 0.0000000E+00 + 68.50000 -35.50000 0.0000000E+00 + 69.50000 -35.50000 0.0000000E+00 + 70.50000 -35.50000 0.0000000E+00 + 71.50000 -35.50000 0.0000000E+00 + 72.50000 -35.50000 0.0000000E+00 + 73.50000 -35.50000 0.0000000E+00 + 74.50000 -35.50000 0.0000000E+00 + 75.50000 -35.50000 0.0000000E+00 + 76.50000 -35.50000 0.0000000E+00 + 77.50000 -35.50000 0.0000000E+00 + 78.50000 -35.50000 0.0000000E+00 + 79.50000 -35.50000 0.0000000E+00 + 80.50000 -35.50000 0.0000000E+00 + 81.50000 -35.50000 0.0000000E+00 + 82.50000 -35.50000 0.0000000E+00 + 83.50000 -35.50000 0.0000000E+00 + 84.50000 -35.50000 0.0000000E+00 + 85.50000 -35.50000 0.0000000E+00 + 86.50000 -35.50000 0.0000000E+00 + 87.50000 -35.50000 0.0000000E+00 + 88.50000 -35.50000 0.0000000E+00 + 89.50000 -35.50000 0.0000000E+00 + -89.50000 -34.50000 0.0000000E+00 + -88.50000 -34.50000 0.0000000E+00 + -87.50000 -34.50000 0.0000000E+00 + -86.50000 -34.50000 0.0000000E+00 + -85.50000 -34.50000 0.0000000E+00 + -84.50000 -34.50000 0.0000000E+00 + -83.50000 -34.50000 0.0000000E+00 + -82.50000 -34.50000 0.0000000E+00 + -81.50000 -34.50000 0.0000000E+00 + -80.50000 -34.50000 0.0000000E+00 + -79.50000 -34.50000 0.0000000E+00 + -78.50000 -34.50000 0.0000000E+00 + -77.50000 -34.50000 0.0000000E+00 + -76.50000 -34.50000 0.0000000E+00 + -75.50000 -34.50000 0.0000000E+00 + -74.50000 -34.50000 0.0000000E+00 + -73.50000 -34.50000 0.0000000E+00 + -72.50000 -34.50000 0.0000000E+00 + -71.50000 -34.50000 0.0000000E+00 + -70.50000 -34.50000 0.0000000E+00 + -69.50000 -34.50000 0.0000000E+00 + -68.50000 -34.50000 0.0000000E+00 + -67.50000 -34.50000 0.0000000E+00 + -66.50000 -34.50000 0.0000000E+00 + -65.50000 -34.50000 0.0000000E+00 + -64.50000 -34.50000 0.0000000E+00 + -63.50000 -34.50000 0.0000000E+00 + -62.50000 -34.50000 0.0000000E+00 + -61.50000 -34.50000 0.0000000E+00 + -60.50000 -34.50000 0.0000000E+00 + -59.50000 -34.50000 0.0000000E+00 + -58.50000 -34.50000 0.0000000E+00 + -57.50000 -34.50000 0.0000000E+00 + -56.50000 -34.50000 0.0000000E+00 + -55.50000 -34.50000 0.0000000E+00 + -54.50000 -34.50000 0.0000000E+00 + -53.50000 -34.50000 0.0000000E+00 + -52.50000 -34.50000 0.0000000E+00 + -51.50000 -34.50000 0.0000000E+00 + -50.50000 -34.50000 0.0000000E+00 + -49.50000 -34.50000 0.0000000E+00 + -48.50000 -34.50000 0.0000000E+00 + -47.50000 -34.50000 0.0000000E+00 + -46.50000 -34.50000 0.0000000E+00 + -45.50000 -34.50000 0.0000000E+00 + -44.50000 -34.50000 0.0000000E+00 + -43.50000 -34.50000 0.0000000E+00 + -42.50000 -34.50000 0.0000000E+00 + -41.50000 -34.50000 0.0000000E+00 + -40.50000 -34.50000 0.0000000E+00 + -39.50000 -34.50000 0.0000000E+00 + -38.50000 -34.50000 0.0000000E+00 + -37.50000 -34.50000 0.0000000E+00 + -36.50000 -34.50000 0.0000000E+00 + -35.50000 -34.50000 0.0000000E+00 + -34.50000 -34.50000 0.0000000E+00 + -33.50000 -34.50000 0.0000000E+00 + -32.50000 -34.50000 0.0000000E+00 + -31.50000 -34.50000 0.0000000E+00 + -30.50000 -34.50000 0.0000000E+00 + -29.50000 -34.50000 0.0000000E+00 + -28.50000 -34.50000 0.0000000E+00 + -27.50000 -34.50000 0.0000000E+00 + -26.50000 -34.50000 0.0000000E+00 + -25.50000 -34.50000 0.0000000E+00 + -24.50000 -34.50000 0.0000000E+00 + -23.50000 -34.50000 0.0000000E+00 + -22.50000 -34.50000 0.0000000E+00 + -21.50000 -34.50000 0.0000000E+00 + -20.50000 -34.50000 0.0000000E+00 + -19.50000 -34.50000 0.0000000E+00 + -18.50000 -34.50000 0.0000000E+00 + -17.50000 -34.50000 0.0000000E+00 + -16.50000 -34.50000 0.0000000E+00 + -15.50000 -34.50000 0.0000000E+00 + -14.50000 -34.50000 0.0000000E+00 + -13.50000 -34.50000 0.0000000E+00 + -12.50000 -34.50000 0.0000000E+00 + -11.50000 -34.50000 0.0000000E+00 + -10.50000 -34.50000 0.0000000E+00 + -9.500000 -34.50000 0.0000000E+00 + -8.500000 -34.50000 0.0000000E+00 + -7.500000 -34.50000 0.0000000E+00 + -6.500000 -34.50000 0.0000000E+00 + -5.500000 -34.50000 0.0000000E+00 + -4.500000 -34.50000 0.0000000E+00 + -3.500000 -34.50000 0.0000000E+00 + -2.500000 -34.50000 0.0000000E+00 + -1.500000 -34.50000 0.0000000E+00 + -0.5000000 -34.50000 0.0000000E+00 + 0.5000000 -34.50000 0.0000000E+00 + 1.500000 -34.50000 0.0000000E+00 + 2.500000 -34.50000 0.0000000E+00 + 3.500000 -34.50000 0.0000000E+00 + 4.500000 -34.50000 0.0000000E+00 + 5.500000 -34.50000 0.0000000E+00 + 6.500000 -34.50000 0.0000000E+00 + 7.500000 -34.50000 0.0000000E+00 + 8.500000 -34.50000 0.0000000E+00 + 9.500000 -34.50000 0.0000000E+00 + 10.50000 -34.50000 0.0000000E+00 + 11.50000 -34.50000 0.0000000E+00 + 12.50000 -34.50000 0.0000000E+00 + 13.50000 -34.50000 0.0000000E+00 + 14.50000 -34.50000 0.0000000E+00 + 15.50000 -34.50000 0.0000000E+00 + 16.50000 -34.50000 0.0000000E+00 + 17.50000 -34.50000 0.0000000E+00 + 18.50000 -34.50000 0.0000000E+00 + 19.50000 -34.50000 0.0000000E+00 + 20.50000 -34.50000 0.0000000E+00 + 21.50000 -34.50000 0.0000000E+00 + 22.50000 -34.50000 0.0000000E+00 + 23.50000 -34.50000 0.0000000E+00 + 24.50000 -34.50000 0.0000000E+00 + 25.50000 -34.50000 0.0000000E+00 + 26.50000 -34.50000 0.0000000E+00 + 27.50000 -34.50000 0.0000000E+00 + 28.50000 -34.50000 0.0000000E+00 + 29.50000 -34.50000 0.0000000E+00 + 30.50000 -34.50000 0.0000000E+00 + 31.50000 -34.50000 0.0000000E+00 + 32.50000 -34.50000 0.0000000E+00 + 33.50000 -34.50000 0.0000000E+00 + 34.50000 -34.50000 0.0000000E+00 + 35.50000 -34.50000 0.0000000E+00 + 36.50000 -34.50000 0.0000000E+00 + 37.50000 -34.50000 0.0000000E+00 + 38.50000 -34.50000 0.0000000E+00 + 39.50000 -34.50000 0.0000000E+00 + 40.50000 -34.50000 0.0000000E+00 + 41.50000 -34.50000 0.0000000E+00 + 42.50000 -34.50000 0.0000000E+00 + 43.50000 -34.50000 0.0000000E+00 + 44.50000 -34.50000 0.0000000E+00 + 45.50000 -34.50000 0.0000000E+00 + 46.50000 -34.50000 0.0000000E+00 + 47.50000 -34.50000 0.0000000E+00 + 48.50000 -34.50000 0.0000000E+00 + 49.50000 -34.50000 0.0000000E+00 + 50.50000 -34.50000 0.0000000E+00 + 51.50000 -34.50000 0.0000000E+00 + 52.50000 -34.50000 0.0000000E+00 + 53.50000 -34.50000 0.0000000E+00 + 54.50000 -34.50000 0.0000000E+00 + 55.50000 -34.50000 0.0000000E+00 + 56.50000 -34.50000 0.0000000E+00 + 57.50000 -34.50000 0.0000000E+00 + 58.50000 -34.50000 0.0000000E+00 + 59.50000 -34.50000 0.0000000E+00 + 60.50000 -34.50000 0.0000000E+00 + 61.50000 -34.50000 0.0000000E+00 + 62.50000 -34.50000 0.0000000E+00 + 63.50000 -34.50000 0.0000000E+00 + 64.50000 -34.50000 0.0000000E+00 + 65.50000 -34.50000 0.0000000E+00 + 66.50000 -34.50000 0.0000000E+00 + 67.50000 -34.50000 0.0000000E+00 + 68.50000 -34.50000 0.0000000E+00 + 69.50000 -34.50000 0.0000000E+00 + 70.50000 -34.50000 0.0000000E+00 + 71.50000 -34.50000 0.0000000E+00 + 72.50000 -34.50000 0.0000000E+00 + 73.50000 -34.50000 0.0000000E+00 + 74.50000 -34.50000 0.0000000E+00 + 75.50000 -34.50000 0.0000000E+00 + 76.50000 -34.50000 0.0000000E+00 + 77.50000 -34.50000 0.0000000E+00 + 78.50000 -34.50000 0.0000000E+00 + 79.50000 -34.50000 0.0000000E+00 + 80.50000 -34.50000 0.0000000E+00 + 81.50000 -34.50000 0.0000000E+00 + 82.50000 -34.50000 0.0000000E+00 + 83.50000 -34.50000 0.0000000E+00 + 84.50000 -34.50000 0.0000000E+00 + 85.50000 -34.50000 0.0000000E+00 + 86.50000 -34.50000 0.0000000E+00 + 87.50000 -34.50000 0.0000000E+00 + 88.50000 -34.50000 0.0000000E+00 + 89.50000 -34.50000 0.0000000E+00 + -89.50000 -33.50000 0.0000000E+00 + -88.50000 -33.50000 0.0000000E+00 + -87.50000 -33.50000 0.0000000E+00 + -86.50000 -33.50000 0.0000000E+00 + -85.50000 -33.50000 0.0000000E+00 + -84.50000 -33.50000 0.0000000E+00 + -83.50000 -33.50000 0.0000000E+00 + -82.50000 -33.50000 0.0000000E+00 + -81.50000 -33.50000 0.0000000E+00 + -80.50000 -33.50000 0.0000000E+00 + -79.50000 -33.50000 0.0000000E+00 + -78.50000 -33.50000 0.0000000E+00 + -77.50000 -33.50000 0.0000000E+00 + -76.50000 -33.50000 0.0000000E+00 + -75.50000 -33.50000 0.0000000E+00 + -74.50000 -33.50000 0.0000000E+00 + -73.50000 -33.50000 0.0000000E+00 + -72.50000 -33.50000 0.0000000E+00 + -71.50000 -33.50000 0.0000000E+00 + -70.50000 -33.50000 0.0000000E+00 + -69.50000 -33.50000 0.0000000E+00 + -68.50000 -33.50000 0.0000000E+00 + -67.50000 -33.50000 0.0000000E+00 + -66.50000 -33.50000 0.0000000E+00 + -65.50000 -33.50000 0.0000000E+00 + -64.50000 -33.50000 0.0000000E+00 + -63.50000 -33.50000 0.0000000E+00 + -62.50000 -33.50000 0.0000000E+00 + -61.50000 -33.50000 0.0000000E+00 + -60.50000 -33.50000 0.0000000E+00 + -59.50000 -33.50000 0.0000000E+00 + -58.50000 -33.50000 0.0000000E+00 + -57.50000 -33.50000 0.0000000E+00 + -56.50000 -33.50000 0.0000000E+00 + -55.50000 -33.50000 0.0000000E+00 + -54.50000 -33.50000 0.0000000E+00 + -53.50000 -33.50000 0.0000000E+00 + -52.50000 -33.50000 0.0000000E+00 + -51.50000 -33.50000 0.0000000E+00 + -50.50000 -33.50000 0.0000000E+00 + -49.50000 -33.50000 0.0000000E+00 + -48.50000 -33.50000 0.0000000E+00 + -47.50000 -33.50000 0.0000000E+00 + -46.50000 -33.50000 0.0000000E+00 + -45.50000 -33.50000 0.0000000E+00 + -44.50000 -33.50000 0.0000000E+00 + -43.50000 -33.50000 0.0000000E+00 + -42.50000 -33.50000 0.0000000E+00 + -41.50000 -33.50000 0.0000000E+00 + -40.50000 -33.50000 0.0000000E+00 + -39.50000 -33.50000 0.0000000E+00 + -38.50000 -33.50000 0.0000000E+00 + -37.50000 -33.50000 0.0000000E+00 + -36.50000 -33.50000 0.0000000E+00 + -35.50000 -33.50000 0.0000000E+00 + -34.50000 -33.50000 0.0000000E+00 + -33.50000 -33.50000 0.0000000E+00 + -32.50000 -33.50000 0.0000000E+00 + -31.50000 -33.50000 0.0000000E+00 + -30.50000 -33.50000 0.0000000E+00 + -29.50000 -33.50000 0.0000000E+00 + -28.50000 -33.50000 0.0000000E+00 + -27.50000 -33.50000 0.0000000E+00 + -26.50000 -33.50000 0.0000000E+00 + -25.50000 -33.50000 0.0000000E+00 + -24.50000 -33.50000 0.0000000E+00 + -23.50000 -33.50000 0.0000000E+00 + -22.50000 -33.50000 0.0000000E+00 + -21.50000 -33.50000 0.0000000E+00 + -20.50000 -33.50000 0.0000000E+00 + -19.50000 -33.50000 0.0000000E+00 + -18.50000 -33.50000 0.0000000E+00 + -17.50000 -33.50000 0.0000000E+00 + -16.50000 -33.50000 0.0000000E+00 + -15.50000 -33.50000 0.0000000E+00 + -14.50000 -33.50000 0.0000000E+00 + -13.50000 -33.50000 0.0000000E+00 + -12.50000 -33.50000 0.0000000E+00 + -11.50000 -33.50000 0.0000000E+00 + -10.50000 -33.50000 0.0000000E+00 + -9.500000 -33.50000 0.0000000E+00 + -8.500000 -33.50000 0.0000000E+00 + -7.500000 -33.50000 0.0000000E+00 + -6.500000 -33.50000 0.0000000E+00 + -5.500000 -33.50000 0.0000000E+00 + -4.500000 -33.50000 0.0000000E+00 + -3.500000 -33.50000 0.0000000E+00 + -2.500000 -33.50000 0.0000000E+00 + -1.500000 -33.50000 0.0000000E+00 + -0.5000000 -33.50000 0.0000000E+00 + 0.5000000 -33.50000 0.0000000E+00 + 1.500000 -33.50000 0.0000000E+00 + 2.500000 -33.50000 0.0000000E+00 + 3.500000 -33.50000 0.0000000E+00 + 4.500000 -33.50000 0.0000000E+00 + 5.500000 -33.50000 0.0000000E+00 + 6.500000 -33.50000 0.0000000E+00 + 7.500000 -33.50000 0.0000000E+00 + 8.500000 -33.50000 0.0000000E+00 + 9.500000 -33.50000 0.0000000E+00 + 10.50000 -33.50000 0.0000000E+00 + 11.50000 -33.50000 0.0000000E+00 + 12.50000 -33.50000 0.0000000E+00 + 13.50000 -33.50000 0.0000000E+00 + 14.50000 -33.50000 0.0000000E+00 + 15.50000 -33.50000 0.0000000E+00 + 16.50000 -33.50000 0.0000000E+00 + 17.50000 -33.50000 0.0000000E+00 + 18.50000 -33.50000 0.0000000E+00 + 19.50000 -33.50000 0.0000000E+00 + 20.50000 -33.50000 0.0000000E+00 + 21.50000 -33.50000 0.0000000E+00 + 22.50000 -33.50000 0.0000000E+00 + 23.50000 -33.50000 0.0000000E+00 + 24.50000 -33.50000 0.0000000E+00 + 25.50000 -33.50000 0.0000000E+00 + 26.50000 -33.50000 0.0000000E+00 + 27.50000 -33.50000 0.0000000E+00 + 28.50000 -33.50000 0.0000000E+00 + 29.50000 -33.50000 0.0000000E+00 + 30.50000 -33.50000 0.0000000E+00 + 31.50000 -33.50000 0.0000000E+00 + 32.50000 -33.50000 0.0000000E+00 + 33.50000 -33.50000 0.0000000E+00 + 34.50000 -33.50000 0.0000000E+00 + 35.50000 -33.50000 0.0000000E+00 + 36.50000 -33.50000 0.0000000E+00 + 37.50000 -33.50000 0.0000000E+00 + 38.50000 -33.50000 0.0000000E+00 + 39.50000 -33.50000 0.0000000E+00 + 40.50000 -33.50000 0.0000000E+00 + 41.50000 -33.50000 0.0000000E+00 + 42.50000 -33.50000 0.0000000E+00 + 43.50000 -33.50000 0.0000000E+00 + 44.50000 -33.50000 0.0000000E+00 + 45.50000 -33.50000 0.0000000E+00 + 46.50000 -33.50000 0.0000000E+00 + 47.50000 -33.50000 0.0000000E+00 + 48.50000 -33.50000 0.0000000E+00 + 49.50000 -33.50000 0.0000000E+00 + 50.50000 -33.50000 0.0000000E+00 + 51.50000 -33.50000 0.0000000E+00 + 52.50000 -33.50000 0.0000000E+00 + 53.50000 -33.50000 0.0000000E+00 + 54.50000 -33.50000 0.0000000E+00 + 55.50000 -33.50000 0.0000000E+00 + 56.50000 -33.50000 0.0000000E+00 + 57.50000 -33.50000 0.0000000E+00 + 58.50000 -33.50000 0.0000000E+00 + 59.50000 -33.50000 0.0000000E+00 + 60.50000 -33.50000 0.0000000E+00 + 61.50000 -33.50000 0.0000000E+00 + 62.50000 -33.50000 0.0000000E+00 + 63.50000 -33.50000 0.0000000E+00 + 64.50000 -33.50000 0.0000000E+00 + 65.50000 -33.50000 0.0000000E+00 + 66.50000 -33.50000 0.0000000E+00 + 67.50000 -33.50000 0.0000000E+00 + 68.50000 -33.50000 0.0000000E+00 + 69.50000 -33.50000 0.0000000E+00 + 70.50000 -33.50000 0.0000000E+00 + 71.50000 -33.50000 0.0000000E+00 + 72.50000 -33.50000 0.0000000E+00 + 73.50000 -33.50000 0.0000000E+00 + 74.50000 -33.50000 0.0000000E+00 + 75.50000 -33.50000 0.0000000E+00 + 76.50000 -33.50000 0.0000000E+00 + 77.50000 -33.50000 0.0000000E+00 + 78.50000 -33.50000 0.0000000E+00 + 79.50000 -33.50000 0.0000000E+00 + 80.50000 -33.50000 0.0000000E+00 + 81.50000 -33.50000 0.0000000E+00 + 82.50000 -33.50000 0.0000000E+00 + 83.50000 -33.50000 0.0000000E+00 + 84.50000 -33.50000 0.0000000E+00 + 85.50000 -33.50000 0.0000000E+00 + 86.50000 -33.50000 0.0000000E+00 + 87.50000 -33.50000 0.0000000E+00 + 88.50000 -33.50000 0.0000000E+00 + 89.50000 -33.50000 0.0000000E+00 + -89.50000 -32.50000 0.0000000E+00 + -88.50000 -32.50000 0.0000000E+00 + -87.50000 -32.50000 0.0000000E+00 + -86.50000 -32.50000 0.0000000E+00 + -85.50000 -32.50000 0.0000000E+00 + -84.50000 -32.50000 0.0000000E+00 + -83.50000 -32.50000 0.0000000E+00 + -82.50000 -32.50000 0.0000000E+00 + -81.50000 -32.50000 0.0000000E+00 + -80.50000 -32.50000 0.0000000E+00 + -79.50000 -32.50000 0.0000000E+00 + -78.50000 -32.50000 0.0000000E+00 + -77.50000 -32.50000 0.0000000E+00 + -76.50000 -32.50000 0.0000000E+00 + -75.50000 -32.50000 0.0000000E+00 + -74.50000 -32.50000 0.0000000E+00 + -73.50000 -32.50000 0.0000000E+00 + -72.50000 -32.50000 0.0000000E+00 + -71.50000 -32.50000 0.0000000E+00 + -70.50000 -32.50000 0.0000000E+00 + -69.50000 -32.50000 0.0000000E+00 + -68.50000 -32.50000 0.0000000E+00 + -67.50000 -32.50000 0.0000000E+00 + -66.50000 -32.50000 0.0000000E+00 + -65.50000 -32.50000 0.0000000E+00 + -64.50000 -32.50000 0.0000000E+00 + -63.50000 -32.50000 0.0000000E+00 + -62.50000 -32.50000 0.0000000E+00 + -61.50000 -32.50000 0.0000000E+00 + -60.50000 -32.50000 0.0000000E+00 + -59.50000 -32.50000 0.0000000E+00 + -58.50000 -32.50000 0.0000000E+00 + -57.50000 -32.50000 0.0000000E+00 + -56.50000 -32.50000 0.0000000E+00 + -55.50000 -32.50000 0.0000000E+00 + -54.50000 -32.50000 0.0000000E+00 + -53.50000 -32.50000 0.0000000E+00 + -52.50000 -32.50000 0.0000000E+00 + -51.50000 -32.50000 0.0000000E+00 + -50.50000 -32.50000 0.0000000E+00 + -49.50000 -32.50000 0.0000000E+00 + -48.50000 -32.50000 0.0000000E+00 + -47.50000 -32.50000 0.0000000E+00 + -46.50000 -32.50000 0.0000000E+00 + -45.50000 -32.50000 0.0000000E+00 + -44.50000 -32.50000 0.0000000E+00 + -43.50000 -32.50000 0.0000000E+00 + -42.50000 -32.50000 0.0000000E+00 + -41.50000 -32.50000 0.0000000E+00 + -40.50000 -32.50000 0.0000000E+00 + -39.50000 -32.50000 0.0000000E+00 + -38.50000 -32.50000 0.0000000E+00 + -37.50000 -32.50000 0.0000000E+00 + -36.50000 -32.50000 0.0000000E+00 + -35.50000 -32.50000 0.0000000E+00 + -34.50000 -32.50000 0.0000000E+00 + -33.50000 -32.50000 0.0000000E+00 + -32.50000 -32.50000 0.0000000E+00 + -31.50000 -32.50000 0.0000000E+00 + -30.50000 -32.50000 0.0000000E+00 + -29.50000 -32.50000 0.0000000E+00 + -28.50000 -32.50000 0.0000000E+00 + -27.50000 -32.50000 0.0000000E+00 + -26.50000 -32.50000 0.0000000E+00 + -25.50000 -32.50000 0.0000000E+00 + -24.50000 -32.50000 0.0000000E+00 + -23.50000 -32.50000 0.0000000E+00 + -22.50000 -32.50000 0.0000000E+00 + -21.50000 -32.50000 0.0000000E+00 + -20.50000 -32.50000 0.0000000E+00 + -19.50000 -32.50000 0.0000000E+00 + -18.50000 -32.50000 0.0000000E+00 + -17.50000 -32.50000 0.0000000E+00 + -16.50000 -32.50000 0.0000000E+00 + -15.50000 -32.50000 0.0000000E+00 + -14.50000 -32.50000 0.0000000E+00 + -13.50000 -32.50000 0.0000000E+00 + -12.50000 -32.50000 0.0000000E+00 + -11.50000 -32.50000 0.0000000E+00 + -10.50000 -32.50000 0.0000000E+00 + -9.500000 -32.50000 0.0000000E+00 + -8.500000 -32.50000 0.0000000E+00 + -7.500000 -32.50000 0.0000000E+00 + -6.500000 -32.50000 0.0000000E+00 + -5.500000 -32.50000 0.0000000E+00 + -4.500000 -32.50000 0.0000000E+00 + -3.500000 -32.50000 0.0000000E+00 + -2.500000 -32.50000 0.0000000E+00 + -1.500000 -32.50000 0.0000000E+00 + -0.5000000 -32.50000 0.0000000E+00 + 0.5000000 -32.50000 0.0000000E+00 + 1.500000 -32.50000 0.0000000E+00 + 2.500000 -32.50000 0.0000000E+00 + 3.500000 -32.50000 0.0000000E+00 + 4.500000 -32.50000 0.0000000E+00 + 5.500000 -32.50000 0.0000000E+00 + 6.500000 -32.50000 0.0000000E+00 + 7.500000 -32.50000 0.0000000E+00 + 8.500000 -32.50000 0.0000000E+00 + 9.500000 -32.50000 0.0000000E+00 + 10.50000 -32.50000 0.0000000E+00 + 11.50000 -32.50000 0.0000000E+00 + 12.50000 -32.50000 0.0000000E+00 + 13.50000 -32.50000 0.0000000E+00 + 14.50000 -32.50000 0.0000000E+00 + 15.50000 -32.50000 0.0000000E+00 + 16.50000 -32.50000 0.0000000E+00 + 17.50000 -32.50000 0.0000000E+00 + 18.50000 -32.50000 0.0000000E+00 + 19.50000 -32.50000 0.0000000E+00 + 20.50000 -32.50000 0.0000000E+00 + 21.50000 -32.50000 0.0000000E+00 + 22.50000 -32.50000 0.0000000E+00 + 23.50000 -32.50000 0.0000000E+00 + 24.50000 -32.50000 0.0000000E+00 + 25.50000 -32.50000 0.0000000E+00 + 26.50000 -32.50000 0.0000000E+00 + 27.50000 -32.50000 0.0000000E+00 + 28.50000 -32.50000 0.0000000E+00 + 29.50000 -32.50000 0.0000000E+00 + 30.50000 -32.50000 0.0000000E+00 + 31.50000 -32.50000 0.0000000E+00 + 32.50000 -32.50000 0.0000000E+00 + 33.50000 -32.50000 0.0000000E+00 + 34.50000 -32.50000 0.0000000E+00 + 35.50000 -32.50000 0.0000000E+00 + 36.50000 -32.50000 0.0000000E+00 + 37.50000 -32.50000 0.0000000E+00 + 38.50000 -32.50000 0.0000000E+00 + 39.50000 -32.50000 0.0000000E+00 + 40.50000 -32.50000 0.0000000E+00 + 41.50000 -32.50000 0.0000000E+00 + 42.50000 -32.50000 0.0000000E+00 + 43.50000 -32.50000 0.0000000E+00 + 44.50000 -32.50000 0.0000000E+00 + 45.50000 -32.50000 0.0000000E+00 + 46.50000 -32.50000 0.0000000E+00 + 47.50000 -32.50000 0.0000000E+00 + 48.50000 -32.50000 0.0000000E+00 + 49.50000 -32.50000 0.0000000E+00 + 50.50000 -32.50000 0.0000000E+00 + 51.50000 -32.50000 0.0000000E+00 + 52.50000 -32.50000 0.0000000E+00 + 53.50000 -32.50000 0.0000000E+00 + 54.50000 -32.50000 0.0000000E+00 + 55.50000 -32.50000 0.0000000E+00 + 56.50000 -32.50000 0.0000000E+00 + 57.50000 -32.50000 0.0000000E+00 + 58.50000 -32.50000 0.0000000E+00 + 59.50000 -32.50000 0.0000000E+00 + 60.50000 -32.50000 0.0000000E+00 + 61.50000 -32.50000 0.0000000E+00 + 62.50000 -32.50000 0.0000000E+00 + 63.50000 -32.50000 0.0000000E+00 + 64.50000 -32.50000 0.0000000E+00 + 65.50000 -32.50000 0.0000000E+00 + 66.50000 -32.50000 0.0000000E+00 + 67.50000 -32.50000 0.0000000E+00 + 68.50000 -32.50000 0.0000000E+00 + 69.50000 -32.50000 0.0000000E+00 + 70.50000 -32.50000 0.0000000E+00 + 71.50000 -32.50000 0.0000000E+00 + 72.50000 -32.50000 0.0000000E+00 + 73.50000 -32.50000 0.0000000E+00 + 74.50000 -32.50000 0.0000000E+00 + 75.50000 -32.50000 0.0000000E+00 + 76.50000 -32.50000 0.0000000E+00 + 77.50000 -32.50000 0.0000000E+00 + 78.50000 -32.50000 0.0000000E+00 + 79.50000 -32.50000 0.0000000E+00 + 80.50000 -32.50000 0.0000000E+00 + 81.50000 -32.50000 0.0000000E+00 + 82.50000 -32.50000 0.0000000E+00 + 83.50000 -32.50000 0.0000000E+00 + 84.50000 -32.50000 0.0000000E+00 + 85.50000 -32.50000 0.0000000E+00 + 86.50000 -32.50000 0.0000000E+00 + 87.50000 -32.50000 0.0000000E+00 + 88.50000 -32.50000 0.0000000E+00 + 89.50000 -32.50000 0.0000000E+00 + -89.50000 -31.50000 0.0000000E+00 + -88.50000 -31.50000 0.0000000E+00 + -87.50000 -31.50000 0.0000000E+00 + -86.50000 -31.50000 0.0000000E+00 + -85.50000 -31.50000 0.0000000E+00 + -84.50000 -31.50000 0.0000000E+00 + -83.50000 -31.50000 0.0000000E+00 + -82.50000 -31.50000 0.0000000E+00 + -81.50000 -31.50000 0.0000000E+00 + -80.50000 -31.50000 0.0000000E+00 + -79.50000 -31.50000 0.0000000E+00 + -78.50000 -31.50000 0.0000000E+00 + -77.50000 -31.50000 0.0000000E+00 + -76.50000 -31.50000 0.0000000E+00 + -75.50000 -31.50000 0.0000000E+00 + -74.50000 -31.50000 0.0000000E+00 + -73.50000 -31.50000 0.0000000E+00 + -72.50000 -31.50000 0.0000000E+00 + -71.50000 -31.50000 0.0000000E+00 + -70.50000 -31.50000 0.0000000E+00 + -69.50000 -31.50000 0.0000000E+00 + -68.50000 -31.50000 0.0000000E+00 + -67.50000 -31.50000 0.0000000E+00 + -66.50000 -31.50000 0.0000000E+00 + -65.50000 -31.50000 0.0000000E+00 + -64.50000 -31.50000 0.0000000E+00 + -63.50000 -31.50000 0.0000000E+00 + -62.50000 -31.50000 0.0000000E+00 + -61.50000 -31.50000 0.0000000E+00 + -60.50000 -31.50000 0.0000000E+00 + -59.50000 -31.50000 0.0000000E+00 + -58.50000 -31.50000 0.0000000E+00 + -57.50000 -31.50000 0.0000000E+00 + -56.50000 -31.50000 0.0000000E+00 + -55.50000 -31.50000 0.0000000E+00 + -54.50000 -31.50000 0.0000000E+00 + -53.50000 -31.50000 0.0000000E+00 + -52.50000 -31.50000 0.0000000E+00 + -51.50000 -31.50000 0.0000000E+00 + -50.50000 -31.50000 0.0000000E+00 + -49.50000 -31.50000 0.0000000E+00 + -48.50000 -31.50000 0.0000000E+00 + -47.50000 -31.50000 0.0000000E+00 + -46.50000 -31.50000 0.0000000E+00 + -45.50000 -31.50000 0.0000000E+00 + -44.50000 -31.50000 0.0000000E+00 + -43.50000 -31.50000 0.0000000E+00 + -42.50000 -31.50000 0.0000000E+00 + -41.50000 -31.50000 0.0000000E+00 + -40.50000 -31.50000 0.0000000E+00 + -39.50000 -31.50000 0.0000000E+00 + -38.50000 -31.50000 0.0000000E+00 + -37.50000 -31.50000 0.0000000E+00 + -36.50000 -31.50000 0.0000000E+00 + -35.50000 -31.50000 0.0000000E+00 + -34.50000 -31.50000 0.0000000E+00 + -33.50000 -31.50000 0.0000000E+00 + -32.50000 -31.50000 0.0000000E+00 + -31.50000 -31.50000 0.0000000E+00 + -30.50000 -31.50000 0.0000000E+00 + -29.50000 -31.50000 0.0000000E+00 + -28.50000 -31.50000 0.0000000E+00 + -27.50000 -31.50000 0.0000000E+00 + -26.50000 -31.50000 0.0000000E+00 + -25.50000 -31.50000 0.0000000E+00 + -24.50000 -31.50000 0.0000000E+00 + -23.50000 -31.50000 0.0000000E+00 + -22.50000 -31.50000 0.0000000E+00 + -21.50000 -31.50000 0.0000000E+00 + -20.50000 -31.50000 0.0000000E+00 + -19.50000 -31.50000 0.0000000E+00 + -18.50000 -31.50000 0.0000000E+00 + -17.50000 -31.50000 0.0000000E+00 + -16.50000 -31.50000 0.0000000E+00 + -15.50000 -31.50000 0.0000000E+00 + -14.50000 -31.50000 0.0000000E+00 + -13.50000 -31.50000 0.0000000E+00 + -12.50000 -31.50000 0.0000000E+00 + -11.50000 -31.50000 0.0000000E+00 + -10.50000 -31.50000 0.0000000E+00 + -9.500000 -31.50000 0.0000000E+00 + -8.500000 -31.50000 0.0000000E+00 + -7.500000 -31.50000 0.0000000E+00 + -6.500000 -31.50000 0.0000000E+00 + -5.500000 -31.50000 0.0000000E+00 + -4.500000 -31.50000 0.0000000E+00 + -3.500000 -31.50000 0.0000000E+00 + -2.500000 -31.50000 0.0000000E+00 + -1.500000 -31.50000 0.0000000E+00 + -0.5000000 -31.50000 0.0000000E+00 + 0.5000000 -31.50000 0.0000000E+00 + 1.500000 -31.50000 0.0000000E+00 + 2.500000 -31.50000 0.0000000E+00 + 3.500000 -31.50000 0.0000000E+00 + 4.500000 -31.50000 0.0000000E+00 + 5.500000 -31.50000 0.0000000E+00 + 6.500000 -31.50000 0.0000000E+00 + 7.500000 -31.50000 0.0000000E+00 + 8.500000 -31.50000 0.0000000E+00 + 9.500000 -31.50000 0.0000000E+00 + 10.50000 -31.50000 0.0000000E+00 + 11.50000 -31.50000 0.0000000E+00 + 12.50000 -31.50000 0.0000000E+00 + 13.50000 -31.50000 0.0000000E+00 + 14.50000 -31.50000 0.0000000E+00 + 15.50000 -31.50000 0.0000000E+00 + 16.50000 -31.50000 0.0000000E+00 + 17.50000 -31.50000 0.0000000E+00 + 18.50000 -31.50000 0.0000000E+00 + 19.50000 -31.50000 0.0000000E+00 + 20.50000 -31.50000 0.0000000E+00 + 21.50000 -31.50000 0.0000000E+00 + 22.50000 -31.50000 0.0000000E+00 + 23.50000 -31.50000 0.0000000E+00 + 24.50000 -31.50000 0.0000000E+00 + 25.50000 -31.50000 0.0000000E+00 + 26.50000 -31.50000 0.0000000E+00 + 27.50000 -31.50000 0.0000000E+00 + 28.50000 -31.50000 0.0000000E+00 + 29.50000 -31.50000 0.0000000E+00 + 30.50000 -31.50000 0.0000000E+00 + 31.50000 -31.50000 0.0000000E+00 + 32.50000 -31.50000 0.0000000E+00 + 33.50000 -31.50000 0.0000000E+00 + 34.50000 -31.50000 0.0000000E+00 + 35.50000 -31.50000 0.0000000E+00 + 36.50000 -31.50000 0.0000000E+00 + 37.50000 -31.50000 0.0000000E+00 + 38.50000 -31.50000 0.0000000E+00 + 39.50000 -31.50000 0.0000000E+00 + 40.50000 -31.50000 0.0000000E+00 + 41.50000 -31.50000 0.0000000E+00 + 42.50000 -31.50000 0.0000000E+00 + 43.50000 -31.50000 0.0000000E+00 + 44.50000 -31.50000 0.0000000E+00 + 45.50000 -31.50000 0.0000000E+00 + 46.50000 -31.50000 0.0000000E+00 + 47.50000 -31.50000 0.0000000E+00 + 48.50000 -31.50000 0.0000000E+00 + 49.50000 -31.50000 0.0000000E+00 + 50.50000 -31.50000 0.0000000E+00 + 51.50000 -31.50000 0.0000000E+00 + 52.50000 -31.50000 0.0000000E+00 + 53.50000 -31.50000 0.0000000E+00 + 54.50000 -31.50000 0.0000000E+00 + 55.50000 -31.50000 0.0000000E+00 + 56.50000 -31.50000 0.0000000E+00 + 57.50000 -31.50000 0.0000000E+00 + 58.50000 -31.50000 0.0000000E+00 + 59.50000 -31.50000 0.0000000E+00 + 60.50000 -31.50000 0.0000000E+00 + 61.50000 -31.50000 0.0000000E+00 + 62.50000 -31.50000 0.0000000E+00 + 63.50000 -31.50000 0.0000000E+00 + 64.50000 -31.50000 0.0000000E+00 + 65.50000 -31.50000 0.0000000E+00 + 66.50000 -31.50000 0.0000000E+00 + 67.50000 -31.50000 0.0000000E+00 + 68.50000 -31.50000 0.0000000E+00 + 69.50000 -31.50000 0.0000000E+00 + 70.50000 -31.50000 0.0000000E+00 + 71.50000 -31.50000 0.0000000E+00 + 72.50000 -31.50000 0.0000000E+00 + 73.50000 -31.50000 0.0000000E+00 + 74.50000 -31.50000 0.0000000E+00 + 75.50000 -31.50000 0.0000000E+00 + 76.50000 -31.50000 0.0000000E+00 + 77.50000 -31.50000 0.0000000E+00 + 78.50000 -31.50000 0.0000000E+00 + 79.50000 -31.50000 0.0000000E+00 + 80.50000 -31.50000 0.0000000E+00 + 81.50000 -31.50000 0.0000000E+00 + 82.50000 -31.50000 0.0000000E+00 + 83.50000 -31.50000 0.0000000E+00 + 84.50000 -31.50000 0.0000000E+00 + 85.50000 -31.50000 0.0000000E+00 + 86.50000 -31.50000 0.0000000E+00 + 87.50000 -31.50000 0.0000000E+00 + 88.50000 -31.50000 0.0000000E+00 + 89.50000 -31.50000 0.0000000E+00 + -89.50000 -30.50000 0.0000000E+00 + -88.50000 -30.50000 0.0000000E+00 + -87.50000 -30.50000 0.0000000E+00 + -86.50000 -30.50000 0.0000000E+00 + -85.50000 -30.50000 0.0000000E+00 + -84.50000 -30.50000 0.0000000E+00 + -83.50000 -30.50000 0.0000000E+00 + -82.50000 -30.50000 0.0000000E+00 + -81.50000 -30.50000 0.0000000E+00 + -80.50000 -30.50000 0.0000000E+00 + -79.50000 -30.50000 0.0000000E+00 + -78.50000 -30.50000 0.0000000E+00 + -77.50000 -30.50000 0.0000000E+00 + -76.50000 -30.50000 0.0000000E+00 + -75.50000 -30.50000 0.0000000E+00 + -74.50000 -30.50000 0.0000000E+00 + -73.50000 -30.50000 0.0000000E+00 + -72.50000 -30.50000 0.0000000E+00 + -71.50000 -30.50000 0.0000000E+00 + -70.50000 -30.50000 0.0000000E+00 + -69.50000 -30.50000 0.0000000E+00 + -68.50000 -30.50000 0.0000000E+00 + -67.50000 -30.50000 0.0000000E+00 + -66.50000 -30.50000 0.0000000E+00 + -65.50000 -30.50000 0.0000000E+00 + -64.50000 -30.50000 0.0000000E+00 + -63.50000 -30.50000 0.0000000E+00 + -62.50000 -30.50000 0.0000000E+00 + -61.50000 -30.50000 0.0000000E+00 + -60.50000 -30.50000 0.0000000E+00 + -59.50000 -30.50000 0.0000000E+00 + -58.50000 -30.50000 0.0000000E+00 + -57.50000 -30.50000 0.0000000E+00 + -56.50000 -30.50000 0.0000000E+00 + -55.50000 -30.50000 0.0000000E+00 + -54.50000 -30.50000 0.0000000E+00 + -53.50000 -30.50000 0.0000000E+00 + -52.50000 -30.50000 0.0000000E+00 + -51.50000 -30.50000 0.0000000E+00 + -50.50000 -30.50000 0.0000000E+00 + -49.50000 -30.50000 0.0000000E+00 + -48.50000 -30.50000 0.0000000E+00 + -47.50000 -30.50000 0.0000000E+00 + -46.50000 -30.50000 0.0000000E+00 + -45.50000 -30.50000 0.0000000E+00 + -44.50000 -30.50000 0.0000000E+00 + -43.50000 -30.50000 0.0000000E+00 + -42.50000 -30.50000 0.0000000E+00 + -41.50000 -30.50000 0.0000000E+00 + -40.50000 -30.50000 0.0000000E+00 + -39.50000 -30.50000 0.0000000E+00 + -38.50000 -30.50000 0.0000000E+00 + -37.50000 -30.50000 0.0000000E+00 + -36.50000 -30.50000 0.0000000E+00 + -35.50000 -30.50000 0.0000000E+00 + -34.50000 -30.50000 0.0000000E+00 + -33.50000 -30.50000 0.0000000E+00 + -32.50000 -30.50000 0.0000000E+00 + -31.50000 -30.50000 0.0000000E+00 + -30.50000 -30.50000 0.0000000E+00 + -29.50000 -30.50000 0.0000000E+00 + -28.50000 -30.50000 0.0000000E+00 + -27.50000 -30.50000 0.0000000E+00 + -26.50000 -30.50000 0.0000000E+00 + -25.50000 -30.50000 0.0000000E+00 + -24.50000 -30.50000 0.0000000E+00 + -23.50000 -30.50000 0.0000000E+00 + -22.50000 -30.50000 0.0000000E+00 + -21.50000 -30.50000 0.0000000E+00 + -20.50000 -30.50000 0.0000000E+00 + -19.50000 -30.50000 0.0000000E+00 + -18.50000 -30.50000 0.0000000E+00 + -17.50000 -30.50000 0.0000000E+00 + -16.50000 -30.50000 0.0000000E+00 + -15.50000 -30.50000 0.0000000E+00 + -14.50000 -30.50000 0.0000000E+00 + -13.50000 -30.50000 0.0000000E+00 + -12.50000 -30.50000 0.0000000E+00 + -11.50000 -30.50000 0.0000000E+00 + -10.50000 -30.50000 0.0000000E+00 + -9.500000 -30.50000 0.0000000E+00 + -8.500000 -30.50000 0.0000000E+00 + -7.500000 -30.50000 0.0000000E+00 + -6.500000 -30.50000 0.0000000E+00 + -5.500000 -30.50000 0.0000000E+00 + -4.500000 -30.50000 0.0000000E+00 + -3.500000 -30.50000 0.0000000E+00 + -2.500000 -30.50000 0.0000000E+00 + -1.500000 -30.50000 0.0000000E+00 + -0.5000000 -30.50000 0.0000000E+00 + 0.5000000 -30.50000 0.0000000E+00 + 1.500000 -30.50000 0.0000000E+00 + 2.500000 -30.50000 0.0000000E+00 + 3.500000 -30.50000 0.0000000E+00 + 4.500000 -30.50000 0.0000000E+00 + 5.500000 -30.50000 0.0000000E+00 + 6.500000 -30.50000 0.0000000E+00 + 7.500000 -30.50000 0.0000000E+00 + 8.500000 -30.50000 0.0000000E+00 + 9.500000 -30.50000 0.0000000E+00 + 10.50000 -30.50000 0.0000000E+00 + 11.50000 -30.50000 0.0000000E+00 + 12.50000 -30.50000 0.0000000E+00 + 13.50000 -30.50000 0.0000000E+00 + 14.50000 -30.50000 0.0000000E+00 + 15.50000 -30.50000 0.0000000E+00 + 16.50000 -30.50000 0.0000000E+00 + 17.50000 -30.50000 0.0000000E+00 + 18.50000 -30.50000 0.0000000E+00 + 19.50000 -30.50000 0.0000000E+00 + 20.50000 -30.50000 0.0000000E+00 + 21.50000 -30.50000 0.0000000E+00 + 22.50000 -30.50000 0.0000000E+00 + 23.50000 -30.50000 0.0000000E+00 + 24.50000 -30.50000 0.0000000E+00 + 25.50000 -30.50000 0.0000000E+00 + 26.50000 -30.50000 0.0000000E+00 + 27.50000 -30.50000 0.0000000E+00 + 28.50000 -30.50000 0.0000000E+00 + 29.50000 -30.50000 0.0000000E+00 + 30.50000 -30.50000 0.0000000E+00 + 31.50000 -30.50000 0.0000000E+00 + 32.50000 -30.50000 0.0000000E+00 + 33.50000 -30.50000 0.0000000E+00 + 34.50000 -30.50000 0.0000000E+00 + 35.50000 -30.50000 0.0000000E+00 + 36.50000 -30.50000 0.0000000E+00 + 37.50000 -30.50000 0.0000000E+00 + 38.50000 -30.50000 0.0000000E+00 + 39.50000 -30.50000 0.0000000E+00 + 40.50000 -30.50000 0.0000000E+00 + 41.50000 -30.50000 0.0000000E+00 + 42.50000 -30.50000 0.0000000E+00 + 43.50000 -30.50000 0.0000000E+00 + 44.50000 -30.50000 0.0000000E+00 + 45.50000 -30.50000 0.0000000E+00 + 46.50000 -30.50000 0.0000000E+00 + 47.50000 -30.50000 0.0000000E+00 + 48.50000 -30.50000 0.0000000E+00 + 49.50000 -30.50000 0.0000000E+00 + 50.50000 -30.50000 0.0000000E+00 + 51.50000 -30.50000 0.0000000E+00 + 52.50000 -30.50000 0.0000000E+00 + 53.50000 -30.50000 0.0000000E+00 + 54.50000 -30.50000 0.0000000E+00 + 55.50000 -30.50000 0.0000000E+00 + 56.50000 -30.50000 0.0000000E+00 + 57.50000 -30.50000 0.0000000E+00 + 58.50000 -30.50000 0.0000000E+00 + 59.50000 -30.50000 0.0000000E+00 + 60.50000 -30.50000 0.0000000E+00 + 61.50000 -30.50000 0.0000000E+00 + 62.50000 -30.50000 0.0000000E+00 + 63.50000 -30.50000 0.0000000E+00 + 64.50000 -30.50000 0.0000000E+00 + 65.50000 -30.50000 0.0000000E+00 + 66.50000 -30.50000 0.0000000E+00 + 67.50000 -30.50000 0.0000000E+00 + 68.50000 -30.50000 0.0000000E+00 + 69.50000 -30.50000 0.0000000E+00 + 70.50000 -30.50000 0.0000000E+00 + 71.50000 -30.50000 0.0000000E+00 + 72.50000 -30.50000 0.0000000E+00 + 73.50000 -30.50000 0.0000000E+00 + 74.50000 -30.50000 0.0000000E+00 + 75.50000 -30.50000 0.0000000E+00 + 76.50000 -30.50000 0.0000000E+00 + 77.50000 -30.50000 0.0000000E+00 + 78.50000 -30.50000 0.0000000E+00 + 79.50000 -30.50000 0.0000000E+00 + 80.50000 -30.50000 0.0000000E+00 + 81.50000 -30.50000 0.0000000E+00 + 82.50000 -30.50000 0.0000000E+00 + 83.50000 -30.50000 0.0000000E+00 + 84.50000 -30.50000 0.0000000E+00 + 85.50000 -30.50000 0.0000000E+00 + 86.50000 -30.50000 0.0000000E+00 + 87.50000 -30.50000 0.0000000E+00 + 88.50000 -30.50000 0.0000000E+00 + 89.50000 -30.50000 0.0000000E+00 + -89.50000 -29.50000 0.0000000E+00 + -88.50000 -29.50000 0.0000000E+00 + -87.50000 -29.50000 0.0000000E+00 + -86.50000 -29.50000 0.0000000E+00 + -85.50000 -29.50000 0.0000000E+00 + -84.50000 -29.50000 0.0000000E+00 + -83.50000 -29.50000 0.0000000E+00 + -82.50000 -29.50000 0.0000000E+00 + -81.50000 -29.50000 0.0000000E+00 + -80.50000 -29.50000 0.0000000E+00 + -79.50000 -29.50000 0.0000000E+00 + -78.50000 -29.50000 0.0000000E+00 + -77.50000 -29.50000 0.0000000E+00 + -76.50000 -29.50000 0.0000000E+00 + -75.50000 -29.50000 0.0000000E+00 + -74.50000 -29.50000 0.0000000E+00 + -73.50000 -29.50000 0.0000000E+00 + -72.50000 -29.50000 0.0000000E+00 + -71.50000 -29.50000 0.0000000E+00 + -70.50000 -29.50000 0.0000000E+00 + -69.50000 -29.50000 0.0000000E+00 + -68.50000 -29.50000 0.0000000E+00 + -67.50000 -29.50000 0.0000000E+00 + -66.50000 -29.50000 0.0000000E+00 + -65.50000 -29.50000 0.0000000E+00 + -64.50000 -29.50000 0.0000000E+00 + -63.50000 -29.50000 0.0000000E+00 + -62.50000 -29.50000 0.0000000E+00 + -61.50000 -29.50000 0.0000000E+00 + -60.50000 -29.50000 0.0000000E+00 + -59.50000 -29.50000 0.0000000E+00 + -58.50000 -29.50000 0.0000000E+00 + -57.50000 -29.50000 0.0000000E+00 + -56.50000 -29.50000 0.0000000E+00 + -55.50000 -29.50000 0.0000000E+00 + -54.50000 -29.50000 0.0000000E+00 + -53.50000 -29.50000 0.0000000E+00 + -52.50000 -29.50000 0.0000000E+00 + -51.50000 -29.50000 0.0000000E+00 + -50.50000 -29.50000 0.0000000E+00 + -49.50000 -29.50000 0.0000000E+00 + -48.50000 -29.50000 0.0000000E+00 + -47.50000 -29.50000 0.0000000E+00 + -46.50000 -29.50000 0.0000000E+00 + -45.50000 -29.50000 0.0000000E+00 + -44.50000 -29.50000 0.0000000E+00 + -43.50000 -29.50000 0.0000000E+00 + -42.50000 -29.50000 0.0000000E+00 + -41.50000 -29.50000 0.0000000E+00 + -40.50000 -29.50000 0.0000000E+00 + -39.50000 -29.50000 0.0000000E+00 + -38.50000 -29.50000 0.0000000E+00 + -37.50000 -29.50000 0.0000000E+00 + -36.50000 -29.50000 0.0000000E+00 + -35.50000 -29.50000 0.0000000E+00 + -34.50000 -29.50000 0.0000000E+00 + -33.50000 -29.50000 0.0000000E+00 + -32.50000 -29.50000 0.0000000E+00 + -31.50000 -29.50000 0.0000000E+00 + -30.50000 -29.50000 0.0000000E+00 + -29.50000 -29.50000 0.0000000E+00 + -28.50000 -29.50000 0.0000000E+00 + -27.50000 -29.50000 0.0000000E+00 + -26.50000 -29.50000 0.0000000E+00 + -25.50000 -29.50000 0.0000000E+00 + -24.50000 -29.50000 0.0000000E+00 + -23.50000 -29.50000 0.0000000E+00 + -22.50000 -29.50000 0.0000000E+00 + -21.50000 -29.50000 0.0000000E+00 + -20.50000 -29.50000 0.0000000E+00 + -19.50000 -29.50000 0.0000000E+00 + -18.50000 -29.50000 0.0000000E+00 + -17.50000 -29.50000 0.0000000E+00 + -16.50000 -29.50000 0.0000000E+00 + -15.50000 -29.50000 0.0000000E+00 + -14.50000 -29.50000 0.0000000E+00 + -13.50000 -29.50000 0.0000000E+00 + -12.50000 -29.50000 0.0000000E+00 + -11.50000 -29.50000 0.0000000E+00 + -10.50000 -29.50000 0.0000000E+00 + -9.500000 -29.50000 0.0000000E+00 + -8.500000 -29.50000 0.0000000E+00 + -7.500000 -29.50000 0.0000000E+00 + -6.500000 -29.50000 0.0000000E+00 + -5.500000 -29.50000 0.0000000E+00 + -4.500000 -29.50000 0.0000000E+00 + -3.500000 -29.50000 0.0000000E+00 + -2.500000 -29.50000 0.0000000E+00 + -1.500000 -29.50000 0.0000000E+00 + -0.5000000 -29.50000 0.0000000E+00 + 0.5000000 -29.50000 0.0000000E+00 + 1.500000 -29.50000 0.0000000E+00 + 2.500000 -29.50000 0.0000000E+00 + 3.500000 -29.50000 0.0000000E+00 + 4.500000 -29.50000 0.0000000E+00 + 5.500000 -29.50000 0.0000000E+00 + 6.500000 -29.50000 0.0000000E+00 + 7.500000 -29.50000 0.0000000E+00 + 8.500000 -29.50000 0.0000000E+00 + 9.500000 -29.50000 0.0000000E+00 + 10.50000 -29.50000 0.0000000E+00 + 11.50000 -29.50000 0.0000000E+00 + 12.50000 -29.50000 0.0000000E+00 + 13.50000 -29.50000 0.0000000E+00 + 14.50000 -29.50000 0.0000000E+00 + 15.50000 -29.50000 0.0000000E+00 + 16.50000 -29.50000 0.0000000E+00 + 17.50000 -29.50000 0.0000000E+00 + 18.50000 -29.50000 0.0000000E+00 + 19.50000 -29.50000 0.0000000E+00 + 20.50000 -29.50000 0.0000000E+00 + 21.50000 -29.50000 0.0000000E+00 + 22.50000 -29.50000 0.0000000E+00 + 23.50000 -29.50000 0.0000000E+00 + 24.50000 -29.50000 0.0000000E+00 + 25.50000 -29.50000 0.0000000E+00 + 26.50000 -29.50000 0.0000000E+00 + 27.50000 -29.50000 0.0000000E+00 + 28.50000 -29.50000 0.0000000E+00 + 29.50000 -29.50000 0.0000000E+00 + 30.50000 -29.50000 0.0000000E+00 + 31.50000 -29.50000 0.0000000E+00 + 32.50000 -29.50000 0.0000000E+00 + 33.50000 -29.50000 0.0000000E+00 + 34.50000 -29.50000 0.0000000E+00 + 35.50000 -29.50000 0.0000000E+00 + 36.50000 -29.50000 0.0000000E+00 + 37.50000 -29.50000 0.0000000E+00 + 38.50000 -29.50000 0.0000000E+00 + 39.50000 -29.50000 0.0000000E+00 + 40.50000 -29.50000 0.0000000E+00 + 41.50000 -29.50000 0.0000000E+00 + 42.50000 -29.50000 0.0000000E+00 + 43.50000 -29.50000 0.0000000E+00 + 44.50000 -29.50000 0.0000000E+00 + 45.50000 -29.50000 0.0000000E+00 + 46.50000 -29.50000 0.0000000E+00 + 47.50000 -29.50000 0.0000000E+00 + 48.50000 -29.50000 0.0000000E+00 + 49.50000 -29.50000 0.0000000E+00 + 50.50000 -29.50000 0.0000000E+00 + 51.50000 -29.50000 0.0000000E+00 + 52.50000 -29.50000 0.0000000E+00 + 53.50000 -29.50000 0.0000000E+00 + 54.50000 -29.50000 0.0000000E+00 + 55.50000 -29.50000 0.0000000E+00 + 56.50000 -29.50000 0.0000000E+00 + 57.50000 -29.50000 0.0000000E+00 + 58.50000 -29.50000 0.0000000E+00 + 59.50000 -29.50000 0.0000000E+00 + 60.50000 -29.50000 0.0000000E+00 + 61.50000 -29.50000 0.0000000E+00 + 62.50000 -29.50000 0.0000000E+00 + 63.50000 -29.50000 0.0000000E+00 + 64.50000 -29.50000 0.0000000E+00 + 65.50000 -29.50000 0.0000000E+00 + 66.50000 -29.50000 0.0000000E+00 + 67.50000 -29.50000 0.0000000E+00 + 68.50000 -29.50000 0.0000000E+00 + 69.50000 -29.50000 0.0000000E+00 + 70.50000 -29.50000 0.0000000E+00 + 71.50000 -29.50000 0.0000000E+00 + 72.50000 -29.50000 0.0000000E+00 + 73.50000 -29.50000 0.0000000E+00 + 74.50000 -29.50000 0.0000000E+00 + 75.50000 -29.50000 0.0000000E+00 + 76.50000 -29.50000 0.0000000E+00 + 77.50000 -29.50000 0.0000000E+00 + 78.50000 -29.50000 0.0000000E+00 + 79.50000 -29.50000 0.0000000E+00 + 80.50000 -29.50000 0.0000000E+00 + 81.50000 -29.50000 0.0000000E+00 + 82.50000 -29.50000 0.0000000E+00 + 83.50000 -29.50000 0.0000000E+00 + 84.50000 -29.50000 0.0000000E+00 + 85.50000 -29.50000 0.0000000E+00 + 86.50000 -29.50000 0.0000000E+00 + 87.50000 -29.50000 0.0000000E+00 + 88.50000 -29.50000 0.0000000E+00 + 89.50000 -29.50000 0.0000000E+00 + -89.50000 -28.50000 0.0000000E+00 + -88.50000 -28.50000 0.0000000E+00 + -87.50000 -28.50000 0.0000000E+00 + -86.50000 -28.50000 0.0000000E+00 + -85.50000 -28.50000 0.0000000E+00 + -84.50000 -28.50000 0.0000000E+00 + -83.50000 -28.50000 0.0000000E+00 + -82.50000 -28.50000 0.0000000E+00 + -81.50000 -28.50000 0.0000000E+00 + -80.50000 -28.50000 0.0000000E+00 + -79.50000 -28.50000 0.0000000E+00 + -78.50000 -28.50000 0.0000000E+00 + -77.50000 -28.50000 0.0000000E+00 + -76.50000 -28.50000 0.0000000E+00 + -75.50000 -28.50000 0.0000000E+00 + -74.50000 -28.50000 0.0000000E+00 + -73.50000 -28.50000 0.0000000E+00 + -72.50000 -28.50000 0.0000000E+00 + -71.50000 -28.50000 0.0000000E+00 + -70.50000 -28.50000 0.0000000E+00 + -69.50000 -28.50000 0.0000000E+00 + -68.50000 -28.50000 0.0000000E+00 + -67.50000 -28.50000 0.0000000E+00 + -66.50000 -28.50000 0.0000000E+00 + -65.50000 -28.50000 0.0000000E+00 + -64.50000 -28.50000 0.0000000E+00 + -63.50000 -28.50000 0.0000000E+00 + -62.50000 -28.50000 0.0000000E+00 + -61.50000 -28.50000 0.0000000E+00 + -60.50000 -28.50000 0.0000000E+00 + -59.50000 -28.50000 0.0000000E+00 + -58.50000 -28.50000 0.0000000E+00 + -57.50000 -28.50000 0.0000000E+00 + -56.50000 -28.50000 0.0000000E+00 + -55.50000 -28.50000 0.0000000E+00 + -54.50000 -28.50000 0.0000000E+00 + -53.50000 -28.50000 0.0000000E+00 + -52.50000 -28.50000 0.0000000E+00 + -51.50000 -28.50000 0.0000000E+00 + -50.50000 -28.50000 0.0000000E+00 + -49.50000 -28.50000 0.0000000E+00 + -48.50000 -28.50000 0.0000000E+00 + -47.50000 -28.50000 0.0000000E+00 + -46.50000 -28.50000 0.0000000E+00 + -45.50000 -28.50000 0.0000000E+00 + -44.50000 -28.50000 0.0000000E+00 + -43.50000 -28.50000 0.0000000E+00 + -42.50000 -28.50000 0.0000000E+00 + -41.50000 -28.50000 0.0000000E+00 + -40.50000 -28.50000 0.0000000E+00 + -39.50000 -28.50000 0.0000000E+00 + -38.50000 -28.50000 0.0000000E+00 + -37.50000 -28.50000 0.0000000E+00 + -36.50000 -28.50000 0.0000000E+00 + -35.50000 -28.50000 0.0000000E+00 + -34.50000 -28.50000 0.0000000E+00 + -33.50000 -28.50000 0.0000000E+00 + -32.50000 -28.50000 0.0000000E+00 + -31.50000 -28.50000 0.0000000E+00 + -30.50000 -28.50000 0.0000000E+00 + -29.50000 -28.50000 0.0000000E+00 + -28.50000 -28.50000 0.0000000E+00 + -27.50000 -28.50000 0.0000000E+00 + -26.50000 -28.50000 0.0000000E+00 + -25.50000 -28.50000 0.0000000E+00 + -24.50000 -28.50000 0.0000000E+00 + -23.50000 -28.50000 0.0000000E+00 + -22.50000 -28.50000 0.0000000E+00 + -21.50000 -28.50000 0.0000000E+00 + -20.50000 -28.50000 0.0000000E+00 + -19.50000 -28.50000 0.0000000E+00 + -18.50000 -28.50000 0.0000000E+00 + -17.50000 -28.50000 0.0000000E+00 + -16.50000 -28.50000 0.0000000E+00 + -15.50000 -28.50000 0.0000000E+00 + -14.50000 -28.50000 0.0000000E+00 + -13.50000 -28.50000 0.0000000E+00 + -12.50000 -28.50000 0.0000000E+00 + -11.50000 -28.50000 0.0000000E+00 + -10.50000 -28.50000 0.0000000E+00 + -9.500000 -28.50000 0.0000000E+00 + -8.500000 -28.50000 0.0000000E+00 + -7.500000 -28.50000 0.0000000E+00 + -6.500000 -28.50000 0.0000000E+00 + -5.500000 -28.50000 0.0000000E+00 + -4.500000 -28.50000 0.0000000E+00 + -3.500000 -28.50000 0.0000000E+00 + -2.500000 -28.50000 0.0000000E+00 + -1.500000 -28.50000 0.0000000E+00 + -0.5000000 -28.50000 0.0000000E+00 + 0.5000000 -28.50000 0.0000000E+00 + 1.500000 -28.50000 0.0000000E+00 + 2.500000 -28.50000 0.0000000E+00 + 3.500000 -28.50000 0.0000000E+00 + 4.500000 -28.50000 0.0000000E+00 + 5.500000 -28.50000 0.0000000E+00 + 6.500000 -28.50000 0.0000000E+00 + 7.500000 -28.50000 0.0000000E+00 + 8.500000 -28.50000 0.0000000E+00 + 9.500000 -28.50000 0.0000000E+00 + 10.50000 -28.50000 0.0000000E+00 + 11.50000 -28.50000 0.0000000E+00 + 12.50000 -28.50000 0.0000000E+00 + 13.50000 -28.50000 0.0000000E+00 + 14.50000 -28.50000 0.0000000E+00 + 15.50000 -28.50000 0.0000000E+00 + 16.50000 -28.50000 0.0000000E+00 + 17.50000 -28.50000 0.0000000E+00 + 18.50000 -28.50000 0.0000000E+00 + 19.50000 -28.50000 0.0000000E+00 + 20.50000 -28.50000 0.0000000E+00 + 21.50000 -28.50000 0.0000000E+00 + 22.50000 -28.50000 0.0000000E+00 + 23.50000 -28.50000 0.0000000E+00 + 24.50000 -28.50000 0.0000000E+00 + 25.50000 -28.50000 0.0000000E+00 + 26.50000 -28.50000 0.0000000E+00 + 27.50000 -28.50000 0.0000000E+00 + 28.50000 -28.50000 0.0000000E+00 + 29.50000 -28.50000 0.0000000E+00 + 30.50000 -28.50000 0.0000000E+00 + 31.50000 -28.50000 0.0000000E+00 + 32.50000 -28.50000 0.0000000E+00 + 33.50000 -28.50000 0.0000000E+00 + 34.50000 -28.50000 0.0000000E+00 + 35.50000 -28.50000 0.0000000E+00 + 36.50000 -28.50000 0.0000000E+00 + 37.50000 -28.50000 0.0000000E+00 + 38.50000 -28.50000 0.0000000E+00 + 39.50000 -28.50000 0.0000000E+00 + 40.50000 -28.50000 0.0000000E+00 + 41.50000 -28.50000 0.0000000E+00 + 42.50000 -28.50000 0.0000000E+00 + 43.50000 -28.50000 0.0000000E+00 + 44.50000 -28.50000 0.0000000E+00 + 45.50000 -28.50000 0.0000000E+00 + 46.50000 -28.50000 0.0000000E+00 + 47.50000 -28.50000 0.0000000E+00 + 48.50000 -28.50000 0.0000000E+00 + 49.50000 -28.50000 0.0000000E+00 + 50.50000 -28.50000 0.0000000E+00 + 51.50000 -28.50000 0.0000000E+00 + 52.50000 -28.50000 0.0000000E+00 + 53.50000 -28.50000 0.0000000E+00 + 54.50000 -28.50000 0.0000000E+00 + 55.50000 -28.50000 0.0000000E+00 + 56.50000 -28.50000 0.0000000E+00 + 57.50000 -28.50000 0.0000000E+00 + 58.50000 -28.50000 0.0000000E+00 + 59.50000 -28.50000 0.0000000E+00 + 60.50000 -28.50000 0.0000000E+00 + 61.50000 -28.50000 0.0000000E+00 + 62.50000 -28.50000 0.0000000E+00 + 63.50000 -28.50000 0.0000000E+00 + 64.50000 -28.50000 0.0000000E+00 + 65.50000 -28.50000 0.0000000E+00 + 66.50000 -28.50000 0.0000000E+00 + 67.50000 -28.50000 0.0000000E+00 + 68.50000 -28.50000 0.0000000E+00 + 69.50000 -28.50000 0.0000000E+00 + 70.50000 -28.50000 0.0000000E+00 + 71.50000 -28.50000 0.0000000E+00 + 72.50000 -28.50000 0.0000000E+00 + 73.50000 -28.50000 0.0000000E+00 + 74.50000 -28.50000 0.0000000E+00 + 75.50000 -28.50000 0.0000000E+00 + 76.50000 -28.50000 0.0000000E+00 + 77.50000 -28.50000 0.0000000E+00 + 78.50000 -28.50000 0.0000000E+00 + 79.50000 -28.50000 0.0000000E+00 + 80.50000 -28.50000 0.0000000E+00 + 81.50000 -28.50000 0.0000000E+00 + 82.50000 -28.50000 0.0000000E+00 + 83.50000 -28.50000 0.0000000E+00 + 84.50000 -28.50000 0.0000000E+00 + 85.50000 -28.50000 0.0000000E+00 + 86.50000 -28.50000 0.0000000E+00 + 87.50000 -28.50000 0.0000000E+00 + 88.50000 -28.50000 0.0000000E+00 + 89.50000 -28.50000 0.0000000E+00 + -89.50000 -27.50000 0.0000000E+00 + -88.50000 -27.50000 0.0000000E+00 + -87.50000 -27.50000 0.0000000E+00 + -86.50000 -27.50000 0.0000000E+00 + -85.50000 -27.50000 0.0000000E+00 + -84.50000 -27.50000 0.0000000E+00 + -83.50000 -27.50000 0.0000000E+00 + -82.50000 -27.50000 0.0000000E+00 + -81.50000 -27.50000 0.0000000E+00 + -80.50000 -27.50000 0.0000000E+00 + -79.50000 -27.50000 0.0000000E+00 + -78.50000 -27.50000 0.0000000E+00 + -77.50000 -27.50000 0.0000000E+00 + -76.50000 -27.50000 0.0000000E+00 + -75.50000 -27.50000 0.0000000E+00 + -74.50000 -27.50000 0.0000000E+00 + -73.50000 -27.50000 0.0000000E+00 + -72.50000 -27.50000 0.0000000E+00 + -71.50000 -27.50000 0.0000000E+00 + -70.50000 -27.50000 0.0000000E+00 + -69.50000 -27.50000 0.0000000E+00 + -68.50000 -27.50000 0.0000000E+00 + -67.50000 -27.50000 0.0000000E+00 + -66.50000 -27.50000 0.0000000E+00 + -65.50000 -27.50000 0.0000000E+00 + -64.50000 -27.50000 0.0000000E+00 + -63.50000 -27.50000 0.0000000E+00 + -62.50000 -27.50000 0.0000000E+00 + -61.50000 -27.50000 0.0000000E+00 + -60.50000 -27.50000 0.0000000E+00 + -59.50000 -27.50000 0.0000000E+00 + -58.50000 -27.50000 0.0000000E+00 + -57.50000 -27.50000 0.0000000E+00 + -56.50000 -27.50000 0.0000000E+00 + -55.50000 -27.50000 0.0000000E+00 + -54.50000 -27.50000 0.0000000E+00 + -53.50000 -27.50000 0.0000000E+00 + -52.50000 -27.50000 0.0000000E+00 + -51.50000 -27.50000 0.0000000E+00 + -50.50000 -27.50000 0.0000000E+00 + -49.50000 -27.50000 0.0000000E+00 + -48.50000 -27.50000 0.0000000E+00 + -47.50000 -27.50000 0.0000000E+00 + -46.50000 -27.50000 0.0000000E+00 + -45.50000 -27.50000 0.0000000E+00 + -44.50000 -27.50000 0.0000000E+00 + -43.50000 -27.50000 0.0000000E+00 + -42.50000 -27.50000 0.0000000E+00 + -41.50000 -27.50000 0.0000000E+00 + -40.50000 -27.50000 0.0000000E+00 + -39.50000 -27.50000 0.0000000E+00 + -38.50000 -27.50000 0.0000000E+00 + -37.50000 -27.50000 0.0000000E+00 + -36.50000 -27.50000 0.0000000E+00 + -35.50000 -27.50000 0.0000000E+00 + -34.50000 -27.50000 0.0000000E+00 + -33.50000 -27.50000 0.0000000E+00 + -32.50000 -27.50000 0.0000000E+00 + -31.50000 -27.50000 0.0000000E+00 + -30.50000 -27.50000 0.0000000E+00 + -29.50000 -27.50000 0.0000000E+00 + -28.50000 -27.50000 0.0000000E+00 + -27.50000 -27.50000 0.0000000E+00 + -26.50000 -27.50000 0.0000000E+00 + -25.50000 -27.50000 0.0000000E+00 + -24.50000 -27.50000 0.0000000E+00 + -23.50000 -27.50000 0.0000000E+00 + -22.50000 -27.50000 0.0000000E+00 + -21.50000 -27.50000 0.0000000E+00 + -20.50000 -27.50000 0.0000000E+00 + -19.50000 -27.50000 0.0000000E+00 + -18.50000 -27.50000 0.0000000E+00 + -17.50000 -27.50000 0.0000000E+00 + -16.50000 -27.50000 0.0000000E+00 + -15.50000 -27.50000 0.0000000E+00 + -14.50000 -27.50000 0.0000000E+00 + -13.50000 -27.50000 0.0000000E+00 + -12.50000 -27.50000 0.0000000E+00 + -11.50000 -27.50000 0.0000000E+00 + -10.50000 -27.50000 0.0000000E+00 + -9.500000 -27.50000 0.0000000E+00 + -8.500000 -27.50000 0.0000000E+00 + -7.500000 -27.50000 0.0000000E+00 + -6.500000 -27.50000 0.0000000E+00 + -5.500000 -27.50000 0.0000000E+00 + -4.500000 -27.50000 0.0000000E+00 + -3.500000 -27.50000 0.0000000E+00 + -2.500000 -27.50000 0.0000000E+00 + -1.500000 -27.50000 0.0000000E+00 + -0.5000000 -27.50000 0.0000000E+00 + 0.5000000 -27.50000 0.0000000E+00 + 1.500000 -27.50000 0.0000000E+00 + 2.500000 -27.50000 0.0000000E+00 + 3.500000 -27.50000 0.0000000E+00 + 4.500000 -27.50000 0.0000000E+00 + 5.500000 -27.50000 0.0000000E+00 + 6.500000 -27.50000 0.0000000E+00 + 7.500000 -27.50000 0.0000000E+00 + 8.500000 -27.50000 0.0000000E+00 + 9.500000 -27.50000 0.0000000E+00 + 10.50000 -27.50000 0.0000000E+00 + 11.50000 -27.50000 0.0000000E+00 + 12.50000 -27.50000 0.0000000E+00 + 13.50000 -27.50000 0.0000000E+00 + 14.50000 -27.50000 0.0000000E+00 + 15.50000 -27.50000 0.0000000E+00 + 16.50000 -27.50000 0.0000000E+00 + 17.50000 -27.50000 0.0000000E+00 + 18.50000 -27.50000 0.0000000E+00 + 19.50000 -27.50000 0.0000000E+00 + 20.50000 -27.50000 0.0000000E+00 + 21.50000 -27.50000 0.0000000E+00 + 22.50000 -27.50000 0.0000000E+00 + 23.50000 -27.50000 0.0000000E+00 + 24.50000 -27.50000 0.0000000E+00 + 25.50000 -27.50000 0.0000000E+00 + 26.50000 -27.50000 0.0000000E+00 + 27.50000 -27.50000 0.0000000E+00 + 28.50000 -27.50000 0.0000000E+00 + 29.50000 -27.50000 0.0000000E+00 + 30.50000 -27.50000 0.0000000E+00 + 31.50000 -27.50000 0.0000000E+00 + 32.50000 -27.50000 0.0000000E+00 + 33.50000 -27.50000 0.0000000E+00 + 34.50000 -27.50000 0.0000000E+00 + 35.50000 -27.50000 0.0000000E+00 + 36.50000 -27.50000 0.0000000E+00 + 37.50000 -27.50000 0.0000000E+00 + 38.50000 -27.50000 0.0000000E+00 + 39.50000 -27.50000 0.0000000E+00 + 40.50000 -27.50000 0.0000000E+00 + 41.50000 -27.50000 0.0000000E+00 + 42.50000 -27.50000 0.0000000E+00 + 43.50000 -27.50000 0.0000000E+00 + 44.50000 -27.50000 0.0000000E+00 + 45.50000 -27.50000 0.0000000E+00 + 46.50000 -27.50000 0.0000000E+00 + 47.50000 -27.50000 0.0000000E+00 + 48.50000 -27.50000 0.0000000E+00 + 49.50000 -27.50000 0.0000000E+00 + 50.50000 -27.50000 0.0000000E+00 + 51.50000 -27.50000 0.0000000E+00 + 52.50000 -27.50000 0.0000000E+00 + 53.50000 -27.50000 0.0000000E+00 + 54.50000 -27.50000 0.0000000E+00 + 55.50000 -27.50000 0.0000000E+00 + 56.50000 -27.50000 0.0000000E+00 + 57.50000 -27.50000 0.0000000E+00 + 58.50000 -27.50000 0.0000000E+00 + 59.50000 -27.50000 0.0000000E+00 + 60.50000 -27.50000 0.0000000E+00 + 61.50000 -27.50000 0.0000000E+00 + 62.50000 -27.50000 0.0000000E+00 + 63.50000 -27.50000 0.0000000E+00 + 64.50000 -27.50000 0.0000000E+00 + 65.50000 -27.50000 0.0000000E+00 + 66.50000 -27.50000 0.0000000E+00 + 67.50000 -27.50000 0.0000000E+00 + 68.50000 -27.50000 0.0000000E+00 + 69.50000 -27.50000 0.0000000E+00 + 70.50000 -27.50000 0.0000000E+00 + 71.50000 -27.50000 0.0000000E+00 + 72.50000 -27.50000 0.0000000E+00 + 73.50000 -27.50000 0.0000000E+00 + 74.50000 -27.50000 0.0000000E+00 + 75.50000 -27.50000 0.0000000E+00 + 76.50000 -27.50000 0.0000000E+00 + 77.50000 -27.50000 0.0000000E+00 + 78.50000 -27.50000 0.0000000E+00 + 79.50000 -27.50000 0.0000000E+00 + 80.50000 -27.50000 0.0000000E+00 + 81.50000 -27.50000 0.0000000E+00 + 82.50000 -27.50000 0.0000000E+00 + 83.50000 -27.50000 0.0000000E+00 + 84.50000 -27.50000 0.0000000E+00 + 85.50000 -27.50000 0.0000000E+00 + 86.50000 -27.50000 0.0000000E+00 + 87.50000 -27.50000 0.0000000E+00 + 88.50000 -27.50000 0.0000000E+00 + 89.50000 -27.50000 0.0000000E+00 + -89.50000 -26.50000 0.0000000E+00 + -88.50000 -26.50000 0.0000000E+00 + -87.50000 -26.50000 0.0000000E+00 + -86.50000 -26.50000 0.0000000E+00 + -85.50000 -26.50000 0.0000000E+00 + -84.50000 -26.50000 0.0000000E+00 + -83.50000 -26.50000 0.0000000E+00 + -82.50000 -26.50000 0.0000000E+00 + -81.50000 -26.50000 0.0000000E+00 + -80.50000 -26.50000 0.0000000E+00 + -79.50000 -26.50000 0.0000000E+00 + -78.50000 -26.50000 0.0000000E+00 + -77.50000 -26.50000 0.0000000E+00 + -76.50000 -26.50000 0.0000000E+00 + -75.50000 -26.50000 0.0000000E+00 + -74.50000 -26.50000 0.0000000E+00 + -73.50000 -26.50000 0.0000000E+00 + -72.50000 -26.50000 0.0000000E+00 + -71.50000 -26.50000 0.0000000E+00 + -70.50000 -26.50000 0.0000000E+00 + -69.50000 -26.50000 0.0000000E+00 + -68.50000 -26.50000 0.0000000E+00 + -67.50000 -26.50000 0.0000000E+00 + -66.50000 -26.50000 0.0000000E+00 + -65.50000 -26.50000 0.0000000E+00 + -64.50000 -26.50000 0.0000000E+00 + -63.50000 -26.50000 0.0000000E+00 + -62.50000 -26.50000 0.0000000E+00 + -61.50000 -26.50000 0.0000000E+00 + -60.50000 -26.50000 0.0000000E+00 + -59.50000 -26.50000 0.0000000E+00 + -58.50000 -26.50000 0.0000000E+00 + -57.50000 -26.50000 0.0000000E+00 + -56.50000 -26.50000 0.0000000E+00 + -55.50000 -26.50000 0.0000000E+00 + -54.50000 -26.50000 0.0000000E+00 + -53.50000 -26.50000 0.0000000E+00 + -52.50000 -26.50000 0.0000000E+00 + -51.50000 -26.50000 0.0000000E+00 + -50.50000 -26.50000 0.0000000E+00 + -49.50000 -26.50000 0.0000000E+00 + -48.50000 -26.50000 0.0000000E+00 + -47.50000 -26.50000 0.0000000E+00 + -46.50000 -26.50000 0.0000000E+00 + -45.50000 -26.50000 0.0000000E+00 + -44.50000 -26.50000 0.0000000E+00 + -43.50000 -26.50000 0.0000000E+00 + -42.50000 -26.50000 0.0000000E+00 + -41.50000 -26.50000 0.0000000E+00 + -40.50000 -26.50000 0.0000000E+00 + -39.50000 -26.50000 0.0000000E+00 + -38.50000 -26.50000 0.0000000E+00 + -37.50000 -26.50000 0.0000000E+00 + -36.50000 -26.50000 0.0000000E+00 + -35.50000 -26.50000 0.0000000E+00 + -34.50000 -26.50000 0.0000000E+00 + -33.50000 -26.50000 0.0000000E+00 + -32.50000 -26.50000 0.0000000E+00 + -31.50000 -26.50000 0.0000000E+00 + -30.50000 -26.50000 0.0000000E+00 + -29.50000 -26.50000 0.0000000E+00 + -28.50000 -26.50000 0.0000000E+00 + -27.50000 -26.50000 0.0000000E+00 + -26.50000 -26.50000 0.0000000E+00 + -25.50000 -26.50000 0.0000000E+00 + -24.50000 -26.50000 0.0000000E+00 + -23.50000 -26.50000 0.0000000E+00 + -22.50000 -26.50000 0.0000000E+00 + -21.50000 -26.50000 0.0000000E+00 + -20.50000 -26.50000 0.0000000E+00 + -19.50000 -26.50000 0.0000000E+00 + -18.50000 -26.50000 0.0000000E+00 + -17.50000 -26.50000 0.0000000E+00 + -16.50000 -26.50000 0.0000000E+00 + -15.50000 -26.50000 0.0000000E+00 + -14.50000 -26.50000 0.0000000E+00 + -13.50000 -26.50000 0.0000000E+00 + -12.50000 -26.50000 0.0000000E+00 + -11.50000 -26.50000 0.0000000E+00 + -10.50000 -26.50000 0.0000000E+00 + -9.500000 -26.50000 0.0000000E+00 + -8.500000 -26.50000 0.0000000E+00 + -7.500000 -26.50000 0.0000000E+00 + -6.500000 -26.50000 0.0000000E+00 + -5.500000 -26.50000 0.0000000E+00 + -4.500000 -26.50000 0.0000000E+00 + -3.500000 -26.50000 0.0000000E+00 + -2.500000 -26.50000 0.0000000E+00 + -1.500000 -26.50000 0.0000000E+00 + -0.5000000 -26.50000 0.0000000E+00 + 0.5000000 -26.50000 0.0000000E+00 + 1.500000 -26.50000 0.0000000E+00 + 2.500000 -26.50000 0.0000000E+00 + 3.500000 -26.50000 0.0000000E+00 + 4.500000 -26.50000 0.0000000E+00 + 5.500000 -26.50000 0.0000000E+00 + 6.500000 -26.50000 0.0000000E+00 + 7.500000 -26.50000 0.0000000E+00 + 8.500000 -26.50000 0.0000000E+00 + 9.500000 -26.50000 0.0000000E+00 + 10.50000 -26.50000 0.0000000E+00 + 11.50000 -26.50000 0.0000000E+00 + 12.50000 -26.50000 0.0000000E+00 + 13.50000 -26.50000 0.0000000E+00 + 14.50000 -26.50000 0.0000000E+00 + 15.50000 -26.50000 0.0000000E+00 + 16.50000 -26.50000 0.0000000E+00 + 17.50000 -26.50000 0.0000000E+00 + 18.50000 -26.50000 0.0000000E+00 + 19.50000 -26.50000 0.0000000E+00 + 20.50000 -26.50000 0.0000000E+00 + 21.50000 -26.50000 0.0000000E+00 + 22.50000 -26.50000 0.0000000E+00 + 23.50000 -26.50000 0.0000000E+00 + 24.50000 -26.50000 0.0000000E+00 + 25.50000 -26.50000 0.0000000E+00 + 26.50000 -26.50000 0.0000000E+00 + 27.50000 -26.50000 0.0000000E+00 + 28.50000 -26.50000 0.0000000E+00 + 29.50000 -26.50000 0.0000000E+00 + 30.50000 -26.50000 0.0000000E+00 + 31.50000 -26.50000 0.0000000E+00 + 32.50000 -26.50000 0.0000000E+00 + 33.50000 -26.50000 0.0000000E+00 + 34.50000 -26.50000 0.0000000E+00 + 35.50000 -26.50000 0.0000000E+00 + 36.50000 -26.50000 0.0000000E+00 + 37.50000 -26.50000 0.0000000E+00 + 38.50000 -26.50000 0.0000000E+00 + 39.50000 -26.50000 0.0000000E+00 + 40.50000 -26.50000 0.0000000E+00 + 41.50000 -26.50000 0.0000000E+00 + 42.50000 -26.50000 0.0000000E+00 + 43.50000 -26.50000 0.0000000E+00 + 44.50000 -26.50000 0.0000000E+00 + 45.50000 -26.50000 0.0000000E+00 + 46.50000 -26.50000 0.0000000E+00 + 47.50000 -26.50000 0.0000000E+00 + 48.50000 -26.50000 0.0000000E+00 + 49.50000 -26.50000 0.0000000E+00 + 50.50000 -26.50000 0.0000000E+00 + 51.50000 -26.50000 0.0000000E+00 + 52.50000 -26.50000 0.0000000E+00 + 53.50000 -26.50000 0.0000000E+00 + 54.50000 -26.50000 0.0000000E+00 + 55.50000 -26.50000 0.0000000E+00 + 56.50000 -26.50000 0.0000000E+00 + 57.50000 -26.50000 0.0000000E+00 + 58.50000 -26.50000 0.0000000E+00 + 59.50000 -26.50000 0.0000000E+00 + 60.50000 -26.50000 0.0000000E+00 + 61.50000 -26.50000 0.0000000E+00 + 62.50000 -26.50000 0.0000000E+00 + 63.50000 -26.50000 0.0000000E+00 + 64.50000 -26.50000 0.0000000E+00 + 65.50000 -26.50000 0.0000000E+00 + 66.50000 -26.50000 0.0000000E+00 + 67.50000 -26.50000 0.0000000E+00 + 68.50000 -26.50000 0.0000000E+00 + 69.50000 -26.50000 0.0000000E+00 + 70.50000 -26.50000 0.0000000E+00 + 71.50000 -26.50000 0.0000000E+00 + 72.50000 -26.50000 0.0000000E+00 + 73.50000 -26.50000 0.0000000E+00 + 74.50000 -26.50000 0.0000000E+00 + 75.50000 -26.50000 0.0000000E+00 + 76.50000 -26.50000 0.0000000E+00 + 77.50000 -26.50000 0.0000000E+00 + 78.50000 -26.50000 0.0000000E+00 + 79.50000 -26.50000 0.0000000E+00 + 80.50000 -26.50000 0.0000000E+00 + 81.50000 -26.50000 0.0000000E+00 + 82.50000 -26.50000 0.0000000E+00 + 83.50000 -26.50000 0.0000000E+00 + 84.50000 -26.50000 0.0000000E+00 + 85.50000 -26.50000 0.0000000E+00 + 86.50000 -26.50000 0.0000000E+00 + 87.50000 -26.50000 0.0000000E+00 + 88.50000 -26.50000 0.0000000E+00 + 89.50000 -26.50000 0.0000000E+00 + -89.50000 -25.50000 0.0000000E+00 + -88.50000 -25.50000 0.0000000E+00 + -87.50000 -25.50000 0.0000000E+00 + -86.50000 -25.50000 0.0000000E+00 + -85.50000 -25.50000 0.0000000E+00 + -84.50000 -25.50000 0.0000000E+00 + -83.50000 -25.50000 0.0000000E+00 + -82.50000 -25.50000 0.0000000E+00 + -81.50000 -25.50000 0.0000000E+00 + -80.50000 -25.50000 0.0000000E+00 + -79.50000 -25.50000 0.0000000E+00 + -78.50000 -25.50000 0.0000000E+00 + -77.50000 -25.50000 0.0000000E+00 + -76.50000 -25.50000 0.0000000E+00 + -75.50000 -25.50000 0.0000000E+00 + -74.50000 -25.50000 0.0000000E+00 + -73.50000 -25.50000 0.0000000E+00 + -72.50000 -25.50000 0.0000000E+00 + -71.50000 -25.50000 0.0000000E+00 + -70.50000 -25.50000 0.0000000E+00 + -69.50000 -25.50000 0.0000000E+00 + -68.50000 -25.50000 0.0000000E+00 + -67.50000 -25.50000 0.0000000E+00 + -66.50000 -25.50000 0.0000000E+00 + -65.50000 -25.50000 0.0000000E+00 + -64.50000 -25.50000 0.0000000E+00 + -63.50000 -25.50000 0.0000000E+00 + -62.50000 -25.50000 0.0000000E+00 + -61.50000 -25.50000 0.0000000E+00 + -60.50000 -25.50000 0.0000000E+00 + -59.50000 -25.50000 0.0000000E+00 + -58.50000 -25.50000 0.0000000E+00 + -57.50000 -25.50000 0.0000000E+00 + -56.50000 -25.50000 0.0000000E+00 + -55.50000 -25.50000 0.0000000E+00 + -54.50000 -25.50000 0.0000000E+00 + -53.50000 -25.50000 0.0000000E+00 + -52.50000 -25.50000 0.0000000E+00 + -51.50000 -25.50000 0.0000000E+00 + -50.50000 -25.50000 0.0000000E+00 + -49.50000 -25.50000 0.0000000E+00 + -48.50000 -25.50000 0.0000000E+00 + -47.50000 -25.50000 0.0000000E+00 + -46.50000 -25.50000 0.0000000E+00 + -45.50000 -25.50000 0.0000000E+00 + -44.50000 -25.50000 0.0000000E+00 + -43.50000 -25.50000 0.0000000E+00 + -42.50000 -25.50000 0.0000000E+00 + -41.50000 -25.50000 0.0000000E+00 + -40.50000 -25.50000 0.0000000E+00 + -39.50000 -25.50000 0.0000000E+00 + -38.50000 -25.50000 0.0000000E+00 + -37.50000 -25.50000 0.0000000E+00 + -36.50000 -25.50000 0.0000000E+00 + -35.50000 -25.50000 0.0000000E+00 + -34.50000 -25.50000 0.0000000E+00 + -33.50000 -25.50000 0.0000000E+00 + -32.50000 -25.50000 0.0000000E+00 + -31.50000 -25.50000 0.0000000E+00 + -30.50000 -25.50000 0.0000000E+00 + -29.50000 -25.50000 0.0000000E+00 + -28.50000 -25.50000 0.0000000E+00 + -27.50000 -25.50000 0.0000000E+00 + -26.50000 -25.50000 0.0000000E+00 + -25.50000 -25.50000 0.0000000E+00 + -24.50000 -25.50000 0.0000000E+00 + -23.50000 -25.50000 0.0000000E+00 + -22.50000 -25.50000 0.0000000E+00 + -21.50000 -25.50000 0.0000000E+00 + -20.50000 -25.50000 0.0000000E+00 + -19.50000 -25.50000 0.0000000E+00 + -18.50000 -25.50000 0.0000000E+00 + -17.50000 -25.50000 0.0000000E+00 + -16.50000 -25.50000 0.0000000E+00 + -15.50000 -25.50000 0.0000000E+00 + -14.50000 -25.50000 0.0000000E+00 + -13.50000 -25.50000 0.0000000E+00 + -12.50000 -25.50000 0.0000000E+00 + -11.50000 -25.50000 0.0000000E+00 + -10.50000 -25.50000 0.0000000E+00 + -9.500000 -25.50000 0.0000000E+00 + -8.500000 -25.50000 0.0000000E+00 + -7.500000 -25.50000 0.0000000E+00 + -6.500000 -25.50000 0.0000000E+00 + -5.500000 -25.50000 0.0000000E+00 + -4.500000 -25.50000 0.0000000E+00 + -3.500000 -25.50000 0.0000000E+00 + -2.500000 -25.50000 0.0000000E+00 + -1.500000 -25.50000 0.0000000E+00 + -0.5000000 -25.50000 0.0000000E+00 + 0.5000000 -25.50000 0.0000000E+00 + 1.500000 -25.50000 0.0000000E+00 + 2.500000 -25.50000 0.0000000E+00 + 3.500000 -25.50000 0.0000000E+00 + 4.500000 -25.50000 0.0000000E+00 + 5.500000 -25.50000 0.0000000E+00 + 6.500000 -25.50000 0.0000000E+00 + 7.500000 -25.50000 0.0000000E+00 + 8.500000 -25.50000 0.0000000E+00 + 9.500000 -25.50000 0.0000000E+00 + 10.50000 -25.50000 0.0000000E+00 + 11.50000 -25.50000 0.0000000E+00 + 12.50000 -25.50000 0.0000000E+00 + 13.50000 -25.50000 0.0000000E+00 + 14.50000 -25.50000 0.0000000E+00 + 15.50000 -25.50000 0.0000000E+00 + 16.50000 -25.50000 0.0000000E+00 + 17.50000 -25.50000 0.0000000E+00 + 18.50000 -25.50000 0.0000000E+00 + 19.50000 -25.50000 0.0000000E+00 + 20.50000 -25.50000 0.0000000E+00 + 21.50000 -25.50000 0.0000000E+00 + 22.50000 -25.50000 0.0000000E+00 + 23.50000 -25.50000 0.0000000E+00 + 24.50000 -25.50000 0.0000000E+00 + 25.50000 -25.50000 0.0000000E+00 + 26.50000 -25.50000 0.0000000E+00 + 27.50000 -25.50000 0.0000000E+00 + 28.50000 -25.50000 0.0000000E+00 + 29.50000 -25.50000 0.0000000E+00 + 30.50000 -25.50000 0.0000000E+00 + 31.50000 -25.50000 0.0000000E+00 + 32.50000 -25.50000 0.0000000E+00 + 33.50000 -25.50000 0.0000000E+00 + 34.50000 -25.50000 0.0000000E+00 + 35.50000 -25.50000 0.0000000E+00 + 36.50000 -25.50000 0.0000000E+00 + 37.50000 -25.50000 0.0000000E+00 + 38.50000 -25.50000 0.0000000E+00 + 39.50000 -25.50000 0.0000000E+00 + 40.50000 -25.50000 0.0000000E+00 + 41.50000 -25.50000 0.0000000E+00 + 42.50000 -25.50000 0.0000000E+00 + 43.50000 -25.50000 0.0000000E+00 + 44.50000 -25.50000 0.0000000E+00 + 45.50000 -25.50000 0.0000000E+00 + 46.50000 -25.50000 0.0000000E+00 + 47.50000 -25.50000 0.0000000E+00 + 48.50000 -25.50000 0.0000000E+00 + 49.50000 -25.50000 0.0000000E+00 + 50.50000 -25.50000 0.0000000E+00 + 51.50000 -25.50000 0.0000000E+00 + 52.50000 -25.50000 0.0000000E+00 + 53.50000 -25.50000 0.0000000E+00 + 54.50000 -25.50000 0.0000000E+00 + 55.50000 -25.50000 0.0000000E+00 + 56.50000 -25.50000 0.0000000E+00 + 57.50000 -25.50000 0.0000000E+00 + 58.50000 -25.50000 0.0000000E+00 + 59.50000 -25.50000 0.0000000E+00 + 60.50000 -25.50000 0.0000000E+00 + 61.50000 -25.50000 0.0000000E+00 + 62.50000 -25.50000 0.0000000E+00 + 63.50000 -25.50000 0.0000000E+00 + 64.50000 -25.50000 0.0000000E+00 + 65.50000 -25.50000 0.0000000E+00 + 66.50000 -25.50000 0.0000000E+00 + 67.50000 -25.50000 0.0000000E+00 + 68.50000 -25.50000 0.0000000E+00 + 69.50000 -25.50000 0.0000000E+00 + 70.50000 -25.50000 0.0000000E+00 + 71.50000 -25.50000 0.0000000E+00 + 72.50000 -25.50000 0.0000000E+00 + 73.50000 -25.50000 0.0000000E+00 + 74.50000 -25.50000 0.0000000E+00 + 75.50000 -25.50000 0.0000000E+00 + 76.50000 -25.50000 0.0000000E+00 + 77.50000 -25.50000 0.0000000E+00 + 78.50000 -25.50000 0.0000000E+00 + 79.50000 -25.50000 0.0000000E+00 + 80.50000 -25.50000 0.0000000E+00 + 81.50000 -25.50000 0.0000000E+00 + 82.50000 -25.50000 0.0000000E+00 + 83.50000 -25.50000 0.0000000E+00 + 84.50000 -25.50000 0.0000000E+00 + 85.50000 -25.50000 0.0000000E+00 + 86.50000 -25.50000 0.0000000E+00 + 87.50000 -25.50000 0.0000000E+00 + 88.50000 -25.50000 0.0000000E+00 + 89.50000 -25.50000 0.0000000E+00 + -89.50000 -24.50000 0.0000000E+00 + -88.50000 -24.50000 0.0000000E+00 + -87.50000 -24.50000 0.0000000E+00 + -86.50000 -24.50000 0.0000000E+00 + -85.50000 -24.50000 0.0000000E+00 + -84.50000 -24.50000 0.0000000E+00 + -83.50000 -24.50000 0.0000000E+00 + -82.50000 -24.50000 0.0000000E+00 + -81.50000 -24.50000 0.0000000E+00 + -80.50000 -24.50000 0.0000000E+00 + -79.50000 -24.50000 0.0000000E+00 + -78.50000 -24.50000 0.0000000E+00 + -77.50000 -24.50000 0.0000000E+00 + -76.50000 -24.50000 0.0000000E+00 + -75.50000 -24.50000 0.0000000E+00 + -74.50000 -24.50000 0.0000000E+00 + -73.50000 -24.50000 0.0000000E+00 + -72.50000 -24.50000 0.0000000E+00 + -71.50000 -24.50000 0.0000000E+00 + -70.50000 -24.50000 0.0000000E+00 + -69.50000 -24.50000 0.0000000E+00 + -68.50000 -24.50000 0.0000000E+00 + -67.50000 -24.50000 0.0000000E+00 + -66.50000 -24.50000 0.0000000E+00 + -65.50000 -24.50000 0.0000000E+00 + -64.50000 -24.50000 0.0000000E+00 + -63.50000 -24.50000 0.0000000E+00 + -62.50000 -24.50000 0.0000000E+00 + -61.50000 -24.50000 0.0000000E+00 + -60.50000 -24.50000 0.0000000E+00 + -59.50000 -24.50000 0.0000000E+00 + -58.50000 -24.50000 0.0000000E+00 + -57.50000 -24.50000 0.0000000E+00 + -56.50000 -24.50000 0.0000000E+00 + -55.50000 -24.50000 0.0000000E+00 + -54.50000 -24.50000 0.0000000E+00 + -53.50000 -24.50000 0.0000000E+00 + -52.50000 -24.50000 0.0000000E+00 + -51.50000 -24.50000 0.0000000E+00 + -50.50000 -24.50000 0.0000000E+00 + -49.50000 -24.50000 0.0000000E+00 + -48.50000 -24.50000 0.0000000E+00 + -47.50000 -24.50000 0.0000000E+00 + -46.50000 -24.50000 0.0000000E+00 + -45.50000 -24.50000 0.0000000E+00 + -44.50000 -24.50000 0.0000000E+00 + -43.50000 -24.50000 0.0000000E+00 + -42.50000 -24.50000 0.0000000E+00 + -41.50000 -24.50000 0.0000000E+00 + -40.50000 -24.50000 0.0000000E+00 + -39.50000 -24.50000 0.0000000E+00 + -38.50000 -24.50000 0.0000000E+00 + -37.50000 -24.50000 0.0000000E+00 + -36.50000 -24.50000 0.0000000E+00 + -35.50000 -24.50000 0.0000000E+00 + -34.50000 -24.50000 0.0000000E+00 + -33.50000 -24.50000 0.0000000E+00 + -32.50000 -24.50000 0.0000000E+00 + -31.50000 -24.50000 0.0000000E+00 + -30.50000 -24.50000 0.0000000E+00 + -29.50000 -24.50000 0.0000000E+00 + -28.50000 -24.50000 0.0000000E+00 + -27.50000 -24.50000 0.0000000E+00 + -26.50000 -24.50000 0.0000000E+00 + -25.50000 -24.50000 0.0000000E+00 + -24.50000 -24.50000 0.0000000E+00 + -23.50000 -24.50000 0.0000000E+00 + -22.50000 -24.50000 0.0000000E+00 + -21.50000 -24.50000 0.0000000E+00 + -20.50000 -24.50000 0.0000000E+00 + -19.50000 -24.50000 0.0000000E+00 + -18.50000 -24.50000 0.0000000E+00 + -17.50000 -24.50000 0.0000000E+00 + -16.50000 -24.50000 0.0000000E+00 + -15.50000 -24.50000 0.0000000E+00 + -14.50000 -24.50000 0.0000000E+00 + -13.50000 -24.50000 0.0000000E+00 + -12.50000 -24.50000 0.0000000E+00 + -11.50000 -24.50000 0.0000000E+00 + -10.50000 -24.50000 0.0000000E+00 + -9.500000 -24.50000 0.0000000E+00 + -8.500000 -24.50000 0.0000000E+00 + -7.500000 -24.50000 0.0000000E+00 + -6.500000 -24.50000 0.0000000E+00 + -5.500000 -24.50000 0.0000000E+00 + -4.500000 -24.50000 0.0000000E+00 + -3.500000 -24.50000 0.0000000E+00 + -2.500000 -24.50000 0.0000000E+00 + -1.500000 -24.50000 0.0000000E+00 + -0.5000000 -24.50000 0.0000000E+00 + 0.5000000 -24.50000 0.0000000E+00 + 1.500000 -24.50000 0.0000000E+00 + 2.500000 -24.50000 0.0000000E+00 + 3.500000 -24.50000 0.0000000E+00 + 4.500000 -24.50000 0.0000000E+00 + 5.500000 -24.50000 0.0000000E+00 + 6.500000 -24.50000 0.0000000E+00 + 7.500000 -24.50000 0.0000000E+00 + 8.500000 -24.50000 0.0000000E+00 + 9.500000 -24.50000 0.0000000E+00 + 10.50000 -24.50000 0.0000000E+00 + 11.50000 -24.50000 0.0000000E+00 + 12.50000 -24.50000 0.0000000E+00 + 13.50000 -24.50000 0.0000000E+00 + 14.50000 -24.50000 0.0000000E+00 + 15.50000 -24.50000 0.0000000E+00 + 16.50000 -24.50000 0.0000000E+00 + 17.50000 -24.50000 0.0000000E+00 + 18.50000 -24.50000 0.0000000E+00 + 19.50000 -24.50000 0.0000000E+00 + 20.50000 -24.50000 0.0000000E+00 + 21.50000 -24.50000 0.0000000E+00 + 22.50000 -24.50000 0.0000000E+00 + 23.50000 -24.50000 0.0000000E+00 + 24.50000 -24.50000 0.0000000E+00 + 25.50000 -24.50000 0.0000000E+00 + 26.50000 -24.50000 0.0000000E+00 + 27.50000 -24.50000 0.0000000E+00 + 28.50000 -24.50000 0.0000000E+00 + 29.50000 -24.50000 0.0000000E+00 + 30.50000 -24.50000 0.0000000E+00 + 31.50000 -24.50000 0.0000000E+00 + 32.50000 -24.50000 0.0000000E+00 + 33.50000 -24.50000 0.0000000E+00 + 34.50000 -24.50000 0.0000000E+00 + 35.50000 -24.50000 0.0000000E+00 + 36.50000 -24.50000 0.0000000E+00 + 37.50000 -24.50000 0.0000000E+00 + 38.50000 -24.50000 0.0000000E+00 + 39.50000 -24.50000 0.0000000E+00 + 40.50000 -24.50000 0.0000000E+00 + 41.50000 -24.50000 0.0000000E+00 + 42.50000 -24.50000 0.0000000E+00 + 43.50000 -24.50000 0.0000000E+00 + 44.50000 -24.50000 0.0000000E+00 + 45.50000 -24.50000 0.0000000E+00 + 46.50000 -24.50000 0.0000000E+00 + 47.50000 -24.50000 0.0000000E+00 + 48.50000 -24.50000 0.0000000E+00 + 49.50000 -24.50000 0.0000000E+00 + 50.50000 -24.50000 0.0000000E+00 + 51.50000 -24.50000 0.0000000E+00 + 52.50000 -24.50000 0.0000000E+00 + 53.50000 -24.50000 0.0000000E+00 + 54.50000 -24.50000 0.0000000E+00 + 55.50000 -24.50000 0.0000000E+00 + 56.50000 -24.50000 0.0000000E+00 + 57.50000 -24.50000 0.0000000E+00 + 58.50000 -24.50000 0.0000000E+00 + 59.50000 -24.50000 0.0000000E+00 + 60.50000 -24.50000 0.0000000E+00 + 61.50000 -24.50000 0.0000000E+00 + 62.50000 -24.50000 0.0000000E+00 + 63.50000 -24.50000 0.0000000E+00 + 64.50000 -24.50000 0.0000000E+00 + 65.50000 -24.50000 0.0000000E+00 + 66.50000 -24.50000 0.0000000E+00 + 67.50000 -24.50000 0.0000000E+00 + 68.50000 -24.50000 0.0000000E+00 + 69.50000 -24.50000 0.0000000E+00 + 70.50000 -24.50000 0.0000000E+00 + 71.50000 -24.50000 0.0000000E+00 + 72.50000 -24.50000 0.0000000E+00 + 73.50000 -24.50000 0.0000000E+00 + 74.50000 -24.50000 0.0000000E+00 + 75.50000 -24.50000 0.0000000E+00 + 76.50000 -24.50000 0.0000000E+00 + 77.50000 -24.50000 0.0000000E+00 + 78.50000 -24.50000 0.0000000E+00 + 79.50000 -24.50000 0.0000000E+00 + 80.50000 -24.50000 0.0000000E+00 + 81.50000 -24.50000 0.0000000E+00 + 82.50000 -24.50000 0.0000000E+00 + 83.50000 -24.50000 0.0000000E+00 + 84.50000 -24.50000 0.0000000E+00 + 85.50000 -24.50000 0.0000000E+00 + 86.50000 -24.50000 0.0000000E+00 + 87.50000 -24.50000 0.0000000E+00 + 88.50000 -24.50000 0.0000000E+00 + 89.50000 -24.50000 0.0000000E+00 + -89.50000 -23.50000 0.0000000E+00 + -88.50000 -23.50000 0.0000000E+00 + -87.50000 -23.50000 0.0000000E+00 + -86.50000 -23.50000 0.0000000E+00 + -85.50000 -23.50000 0.0000000E+00 + -84.50000 -23.50000 0.0000000E+00 + -83.50000 -23.50000 0.0000000E+00 + -82.50000 -23.50000 0.0000000E+00 + -81.50000 -23.50000 0.0000000E+00 + -80.50000 -23.50000 0.0000000E+00 + -79.50000 -23.50000 0.0000000E+00 + -78.50000 -23.50000 0.0000000E+00 + -77.50000 -23.50000 0.0000000E+00 + -76.50000 -23.50000 0.0000000E+00 + -75.50000 -23.50000 0.0000000E+00 + -74.50000 -23.50000 0.0000000E+00 + -73.50000 -23.50000 0.0000000E+00 + -72.50000 -23.50000 0.0000000E+00 + -71.50000 -23.50000 0.0000000E+00 + -70.50000 -23.50000 0.0000000E+00 + -69.50000 -23.50000 0.0000000E+00 + -68.50000 -23.50000 0.0000000E+00 + -67.50000 -23.50000 0.0000000E+00 + -66.50000 -23.50000 0.0000000E+00 + -65.50000 -23.50000 0.0000000E+00 + -64.50000 -23.50000 0.0000000E+00 + -63.50000 -23.50000 0.0000000E+00 + -62.50000 -23.50000 0.0000000E+00 + -61.50000 -23.50000 0.0000000E+00 + -60.50000 -23.50000 0.0000000E+00 + -59.50000 -23.50000 0.0000000E+00 + -58.50000 -23.50000 0.0000000E+00 + -57.50000 -23.50000 0.0000000E+00 + -56.50000 -23.50000 0.0000000E+00 + -55.50000 -23.50000 0.0000000E+00 + -54.50000 -23.50000 0.0000000E+00 + -53.50000 -23.50000 0.0000000E+00 + -52.50000 -23.50000 0.0000000E+00 + -51.50000 -23.50000 0.0000000E+00 + -50.50000 -23.50000 0.0000000E+00 + -49.50000 -23.50000 0.0000000E+00 + -48.50000 -23.50000 0.0000000E+00 + -47.50000 -23.50000 0.0000000E+00 + -46.50000 -23.50000 0.0000000E+00 + -45.50000 -23.50000 0.0000000E+00 + -44.50000 -23.50000 0.0000000E+00 + -43.50000 -23.50000 0.0000000E+00 + -42.50000 -23.50000 0.0000000E+00 + -41.50000 -23.50000 0.0000000E+00 + -40.50000 -23.50000 0.0000000E+00 + -39.50000 -23.50000 0.0000000E+00 + -38.50000 -23.50000 0.0000000E+00 + -37.50000 -23.50000 0.0000000E+00 + -36.50000 -23.50000 0.0000000E+00 + -35.50000 -23.50000 0.0000000E+00 + -34.50000 -23.50000 0.0000000E+00 + -33.50000 -23.50000 0.0000000E+00 + -32.50000 -23.50000 0.0000000E+00 + -31.50000 -23.50000 0.0000000E+00 + -30.50000 -23.50000 0.0000000E+00 + -29.50000 -23.50000 0.0000000E+00 + -28.50000 -23.50000 0.0000000E+00 + -27.50000 -23.50000 0.0000000E+00 + -26.50000 -23.50000 0.0000000E+00 + -25.50000 -23.50000 0.0000000E+00 + -24.50000 -23.50000 0.0000000E+00 + -23.50000 -23.50000 0.0000000E+00 + -22.50000 -23.50000 0.0000000E+00 + -21.50000 -23.50000 0.0000000E+00 + -20.50000 -23.50000 0.0000000E+00 + -19.50000 -23.50000 0.0000000E+00 + -18.50000 -23.50000 0.0000000E+00 + -17.50000 -23.50000 0.0000000E+00 + -16.50000 -23.50000 0.0000000E+00 + -15.50000 -23.50000 0.0000000E+00 + -14.50000 -23.50000 0.0000000E+00 + -13.50000 -23.50000 0.0000000E+00 + -12.50000 -23.50000 0.0000000E+00 + -11.50000 -23.50000 0.0000000E+00 + -10.50000 -23.50000 0.0000000E+00 + -9.500000 -23.50000 0.0000000E+00 + -8.500000 -23.50000 0.0000000E+00 + -7.500000 -23.50000 0.0000000E+00 + -6.500000 -23.50000 0.0000000E+00 + -5.500000 -23.50000 0.0000000E+00 + -4.500000 -23.50000 0.0000000E+00 + -3.500000 -23.50000 0.0000000E+00 + -2.500000 -23.50000 0.0000000E+00 + -1.500000 -23.50000 0.0000000E+00 + -0.5000000 -23.50000 0.0000000E+00 + 0.5000000 -23.50000 0.0000000E+00 + 1.500000 -23.50000 0.0000000E+00 + 2.500000 -23.50000 0.0000000E+00 + 3.500000 -23.50000 0.0000000E+00 + 4.500000 -23.50000 0.0000000E+00 + 5.500000 -23.50000 0.0000000E+00 + 6.500000 -23.50000 0.0000000E+00 + 7.500000 -23.50000 0.0000000E+00 + 8.500000 -23.50000 0.0000000E+00 + 9.500000 -23.50000 0.0000000E+00 + 10.50000 -23.50000 0.0000000E+00 + 11.50000 -23.50000 0.0000000E+00 + 12.50000 -23.50000 0.0000000E+00 + 13.50000 -23.50000 0.0000000E+00 + 14.50000 -23.50000 0.0000000E+00 + 15.50000 -23.50000 0.0000000E+00 + 16.50000 -23.50000 0.0000000E+00 + 17.50000 -23.50000 0.0000000E+00 + 18.50000 -23.50000 0.0000000E+00 + 19.50000 -23.50000 0.0000000E+00 + 20.50000 -23.50000 0.0000000E+00 + 21.50000 -23.50000 0.0000000E+00 + 22.50000 -23.50000 0.0000000E+00 + 23.50000 -23.50000 0.0000000E+00 + 24.50000 -23.50000 0.0000000E+00 + 25.50000 -23.50000 0.0000000E+00 + 26.50000 -23.50000 0.0000000E+00 + 27.50000 -23.50000 0.0000000E+00 + 28.50000 -23.50000 0.0000000E+00 + 29.50000 -23.50000 0.0000000E+00 + 30.50000 -23.50000 0.0000000E+00 + 31.50000 -23.50000 0.0000000E+00 + 32.50000 -23.50000 0.0000000E+00 + 33.50000 -23.50000 0.0000000E+00 + 34.50000 -23.50000 0.0000000E+00 + 35.50000 -23.50000 0.0000000E+00 + 36.50000 -23.50000 0.0000000E+00 + 37.50000 -23.50000 0.0000000E+00 + 38.50000 -23.50000 0.0000000E+00 + 39.50000 -23.50000 0.0000000E+00 + 40.50000 -23.50000 0.0000000E+00 + 41.50000 -23.50000 0.0000000E+00 + 42.50000 -23.50000 0.0000000E+00 + 43.50000 -23.50000 0.0000000E+00 + 44.50000 -23.50000 0.0000000E+00 + 45.50000 -23.50000 0.0000000E+00 + 46.50000 -23.50000 0.0000000E+00 + 47.50000 -23.50000 0.0000000E+00 + 48.50000 -23.50000 0.0000000E+00 + 49.50000 -23.50000 0.0000000E+00 + 50.50000 -23.50000 0.0000000E+00 + 51.50000 -23.50000 0.0000000E+00 + 52.50000 -23.50000 0.0000000E+00 + 53.50000 -23.50000 0.0000000E+00 + 54.50000 -23.50000 0.0000000E+00 + 55.50000 -23.50000 0.0000000E+00 + 56.50000 -23.50000 0.0000000E+00 + 57.50000 -23.50000 0.0000000E+00 + 58.50000 -23.50000 0.0000000E+00 + 59.50000 -23.50000 0.0000000E+00 + 60.50000 -23.50000 0.0000000E+00 + 61.50000 -23.50000 0.0000000E+00 + 62.50000 -23.50000 0.0000000E+00 + 63.50000 -23.50000 0.0000000E+00 + 64.50000 -23.50000 0.0000000E+00 + 65.50000 -23.50000 0.0000000E+00 + 66.50000 -23.50000 0.0000000E+00 + 67.50000 -23.50000 0.0000000E+00 + 68.50000 -23.50000 0.0000000E+00 + 69.50000 -23.50000 0.0000000E+00 + 70.50000 -23.50000 0.0000000E+00 + 71.50000 -23.50000 0.0000000E+00 + 72.50000 -23.50000 0.0000000E+00 + 73.50000 -23.50000 0.0000000E+00 + 74.50000 -23.50000 0.0000000E+00 + 75.50000 -23.50000 0.0000000E+00 + 76.50000 -23.50000 0.0000000E+00 + 77.50000 -23.50000 0.0000000E+00 + 78.50000 -23.50000 0.0000000E+00 + 79.50000 -23.50000 0.0000000E+00 + 80.50000 -23.50000 0.0000000E+00 + 81.50000 -23.50000 0.0000000E+00 + 82.50000 -23.50000 0.0000000E+00 + 83.50000 -23.50000 0.0000000E+00 + 84.50000 -23.50000 0.0000000E+00 + 85.50000 -23.50000 0.0000000E+00 + 86.50000 -23.50000 0.0000000E+00 + 87.50000 -23.50000 0.0000000E+00 + 88.50000 -23.50000 0.0000000E+00 + 89.50000 -23.50000 0.0000000E+00 + -89.50000 -22.50000 0.0000000E+00 + -88.50000 -22.50000 0.0000000E+00 + -87.50000 -22.50000 0.0000000E+00 + -86.50000 -22.50000 0.0000000E+00 + -85.50000 -22.50000 0.0000000E+00 + -84.50000 -22.50000 0.0000000E+00 + -83.50000 -22.50000 0.0000000E+00 + -82.50000 -22.50000 0.0000000E+00 + -81.50000 -22.50000 0.0000000E+00 + -80.50000 -22.50000 0.0000000E+00 + -79.50000 -22.50000 0.0000000E+00 + -78.50000 -22.50000 0.0000000E+00 + -77.50000 -22.50000 0.0000000E+00 + -76.50000 -22.50000 0.0000000E+00 + -75.50000 -22.50000 0.0000000E+00 + -74.50000 -22.50000 0.0000000E+00 + -73.50000 -22.50000 0.0000000E+00 + -72.50000 -22.50000 0.0000000E+00 + -71.50000 -22.50000 0.0000000E+00 + -70.50000 -22.50000 0.0000000E+00 + -69.50000 -22.50000 0.0000000E+00 + -68.50000 -22.50000 0.0000000E+00 + -67.50000 -22.50000 0.0000000E+00 + -66.50000 -22.50000 0.0000000E+00 + -65.50000 -22.50000 0.0000000E+00 + -64.50000 -22.50000 0.0000000E+00 + -63.50000 -22.50000 0.0000000E+00 + -62.50000 -22.50000 0.0000000E+00 + -61.50000 -22.50000 0.0000000E+00 + -60.50000 -22.50000 0.0000000E+00 + -59.50000 -22.50000 0.0000000E+00 + -58.50000 -22.50000 0.0000000E+00 + -57.50000 -22.50000 0.0000000E+00 + -56.50000 -22.50000 0.0000000E+00 + -55.50000 -22.50000 0.0000000E+00 + -54.50000 -22.50000 0.0000000E+00 + -53.50000 -22.50000 0.0000000E+00 + -52.50000 -22.50000 0.0000000E+00 + -51.50000 -22.50000 0.0000000E+00 + -50.50000 -22.50000 0.0000000E+00 + -49.50000 -22.50000 0.0000000E+00 + -48.50000 -22.50000 0.0000000E+00 + -47.50000 -22.50000 0.0000000E+00 + -46.50000 -22.50000 0.0000000E+00 + -45.50000 -22.50000 0.0000000E+00 + -44.50000 -22.50000 0.0000000E+00 + -43.50000 -22.50000 0.0000000E+00 + -42.50000 -22.50000 0.0000000E+00 + -41.50000 -22.50000 0.0000000E+00 + -40.50000 -22.50000 0.0000000E+00 + -39.50000 -22.50000 0.0000000E+00 + -38.50000 -22.50000 0.0000000E+00 + -37.50000 -22.50000 0.0000000E+00 + -36.50000 -22.50000 0.0000000E+00 + -35.50000 -22.50000 0.0000000E+00 + -34.50000 -22.50000 0.0000000E+00 + -33.50000 -22.50000 0.0000000E+00 + -32.50000 -22.50000 0.0000000E+00 + -31.50000 -22.50000 0.0000000E+00 + -30.50000 -22.50000 0.0000000E+00 + -29.50000 -22.50000 0.0000000E+00 + -28.50000 -22.50000 0.0000000E+00 + -27.50000 -22.50000 0.0000000E+00 + -26.50000 -22.50000 0.0000000E+00 + -25.50000 -22.50000 0.0000000E+00 + -24.50000 -22.50000 0.0000000E+00 + -23.50000 -22.50000 0.0000000E+00 + -22.50000 -22.50000 0.0000000E+00 + -21.50000 -22.50000 0.0000000E+00 + -20.50000 -22.50000 0.0000000E+00 + -19.50000 -22.50000 0.0000000E+00 + -18.50000 -22.50000 0.0000000E+00 + -17.50000 -22.50000 0.0000000E+00 + -16.50000 -22.50000 0.0000000E+00 + -15.50000 -22.50000 0.0000000E+00 + -14.50000 -22.50000 0.0000000E+00 + -13.50000 -22.50000 0.0000000E+00 + -12.50000 -22.50000 0.0000000E+00 + -11.50000 -22.50000 0.0000000E+00 + -10.50000 -22.50000 0.0000000E+00 + -9.500000 -22.50000 0.0000000E+00 + -8.500000 -22.50000 0.0000000E+00 + -7.500000 -22.50000 0.0000000E+00 + -6.500000 -22.50000 0.0000000E+00 + -5.500000 -22.50000 0.0000000E+00 + -4.500000 -22.50000 0.0000000E+00 + -3.500000 -22.50000 0.0000000E+00 + -2.500000 -22.50000 0.0000000E+00 + -1.500000 -22.50000 0.0000000E+00 + -0.5000000 -22.50000 0.0000000E+00 + 0.5000000 -22.50000 0.0000000E+00 + 1.500000 -22.50000 0.0000000E+00 + 2.500000 -22.50000 0.0000000E+00 + 3.500000 -22.50000 0.0000000E+00 + 4.500000 -22.50000 0.0000000E+00 + 5.500000 -22.50000 0.0000000E+00 + 6.500000 -22.50000 0.0000000E+00 + 7.500000 -22.50000 0.0000000E+00 + 8.500000 -22.50000 0.0000000E+00 + 9.500000 -22.50000 0.0000000E+00 + 10.50000 -22.50000 0.0000000E+00 + 11.50000 -22.50000 0.0000000E+00 + 12.50000 -22.50000 0.0000000E+00 + 13.50000 -22.50000 0.0000000E+00 + 14.50000 -22.50000 0.0000000E+00 + 15.50000 -22.50000 0.0000000E+00 + 16.50000 -22.50000 0.0000000E+00 + 17.50000 -22.50000 0.0000000E+00 + 18.50000 -22.50000 0.0000000E+00 + 19.50000 -22.50000 0.0000000E+00 + 20.50000 -22.50000 0.0000000E+00 + 21.50000 -22.50000 0.0000000E+00 + 22.50000 -22.50000 0.0000000E+00 + 23.50000 -22.50000 0.0000000E+00 + 24.50000 -22.50000 0.0000000E+00 + 25.50000 -22.50000 0.0000000E+00 + 26.50000 -22.50000 0.0000000E+00 + 27.50000 -22.50000 0.0000000E+00 + 28.50000 -22.50000 0.0000000E+00 + 29.50000 -22.50000 0.0000000E+00 + 30.50000 -22.50000 0.0000000E+00 + 31.50000 -22.50000 0.0000000E+00 + 32.50000 -22.50000 0.0000000E+00 + 33.50000 -22.50000 0.0000000E+00 + 34.50000 -22.50000 0.0000000E+00 + 35.50000 -22.50000 0.0000000E+00 + 36.50000 -22.50000 0.0000000E+00 + 37.50000 -22.50000 0.0000000E+00 + 38.50000 -22.50000 0.0000000E+00 + 39.50000 -22.50000 0.0000000E+00 + 40.50000 -22.50000 0.0000000E+00 + 41.50000 -22.50000 0.0000000E+00 + 42.50000 -22.50000 0.0000000E+00 + 43.50000 -22.50000 0.0000000E+00 + 44.50000 -22.50000 0.0000000E+00 + 45.50000 -22.50000 0.0000000E+00 + 46.50000 -22.50000 0.0000000E+00 + 47.50000 -22.50000 0.0000000E+00 + 48.50000 -22.50000 0.0000000E+00 + 49.50000 -22.50000 0.0000000E+00 + 50.50000 -22.50000 0.0000000E+00 + 51.50000 -22.50000 0.0000000E+00 + 52.50000 -22.50000 0.0000000E+00 + 53.50000 -22.50000 0.0000000E+00 + 54.50000 -22.50000 0.0000000E+00 + 55.50000 -22.50000 0.0000000E+00 + 56.50000 -22.50000 0.0000000E+00 + 57.50000 -22.50000 0.0000000E+00 + 58.50000 -22.50000 0.0000000E+00 + 59.50000 -22.50000 0.0000000E+00 + 60.50000 -22.50000 0.0000000E+00 + 61.50000 -22.50000 0.0000000E+00 + 62.50000 -22.50000 0.0000000E+00 + 63.50000 -22.50000 0.0000000E+00 + 64.50000 -22.50000 0.0000000E+00 + 65.50000 -22.50000 0.0000000E+00 + 66.50000 -22.50000 0.0000000E+00 + 67.50000 -22.50000 0.0000000E+00 + 68.50000 -22.50000 0.0000000E+00 + 69.50000 -22.50000 0.0000000E+00 + 70.50000 -22.50000 0.0000000E+00 + 71.50000 -22.50000 0.0000000E+00 + 72.50000 -22.50000 0.0000000E+00 + 73.50000 -22.50000 0.0000000E+00 + 74.50000 -22.50000 0.0000000E+00 + 75.50000 -22.50000 0.0000000E+00 + 76.50000 -22.50000 0.0000000E+00 + 77.50000 -22.50000 0.0000000E+00 + 78.50000 -22.50000 0.0000000E+00 + 79.50000 -22.50000 0.0000000E+00 + 80.50000 -22.50000 0.0000000E+00 + 81.50000 -22.50000 0.0000000E+00 + 82.50000 -22.50000 0.0000000E+00 + 83.50000 -22.50000 0.0000000E+00 + 84.50000 -22.50000 0.0000000E+00 + 85.50000 -22.50000 0.0000000E+00 + 86.50000 -22.50000 0.0000000E+00 + 87.50000 -22.50000 0.0000000E+00 + 88.50000 -22.50000 0.0000000E+00 + 89.50000 -22.50000 0.0000000E+00 + -89.50000 -21.50000 0.0000000E+00 + -88.50000 -21.50000 0.0000000E+00 + -87.50000 -21.50000 0.0000000E+00 + -86.50000 -21.50000 0.0000000E+00 + -85.50000 -21.50000 0.0000000E+00 + -84.50000 -21.50000 0.0000000E+00 + -83.50000 -21.50000 0.0000000E+00 + -82.50000 -21.50000 0.0000000E+00 + -81.50000 -21.50000 0.0000000E+00 + -80.50000 -21.50000 0.0000000E+00 + -79.50000 -21.50000 0.0000000E+00 + -78.50000 -21.50000 0.0000000E+00 + -77.50000 -21.50000 0.0000000E+00 + -76.50000 -21.50000 0.0000000E+00 + -75.50000 -21.50000 0.0000000E+00 + -74.50000 -21.50000 0.0000000E+00 + -73.50000 -21.50000 0.0000000E+00 + -72.50000 -21.50000 0.0000000E+00 + -71.50000 -21.50000 0.0000000E+00 + -70.50000 -21.50000 0.0000000E+00 + -69.50000 -21.50000 0.0000000E+00 + -68.50000 -21.50000 0.0000000E+00 + -67.50000 -21.50000 0.0000000E+00 + -66.50000 -21.50000 0.0000000E+00 + -65.50000 -21.50000 0.0000000E+00 + -64.50000 -21.50000 0.0000000E+00 + -63.50000 -21.50000 0.0000000E+00 + -62.50000 -21.50000 0.0000000E+00 + -61.50000 -21.50000 0.0000000E+00 + -60.50000 -21.50000 0.0000000E+00 + -59.50000 -21.50000 0.0000000E+00 + -58.50000 -21.50000 0.0000000E+00 + -57.50000 -21.50000 0.0000000E+00 + -56.50000 -21.50000 0.0000000E+00 + -55.50000 -21.50000 0.0000000E+00 + -54.50000 -21.50000 0.0000000E+00 + -53.50000 -21.50000 0.0000000E+00 + -52.50000 -21.50000 0.0000000E+00 + -51.50000 -21.50000 0.0000000E+00 + -50.50000 -21.50000 0.0000000E+00 + -49.50000 -21.50000 0.0000000E+00 + -48.50000 -21.50000 0.0000000E+00 + -47.50000 -21.50000 0.0000000E+00 + -46.50000 -21.50000 0.0000000E+00 + -45.50000 -21.50000 0.0000000E+00 + -44.50000 -21.50000 0.0000000E+00 + -43.50000 -21.50000 0.0000000E+00 + -42.50000 -21.50000 0.0000000E+00 + -41.50000 -21.50000 0.0000000E+00 + -40.50000 -21.50000 0.0000000E+00 + -39.50000 -21.50000 0.0000000E+00 + -38.50000 -21.50000 0.0000000E+00 + -37.50000 -21.50000 0.0000000E+00 + -36.50000 -21.50000 0.0000000E+00 + -35.50000 -21.50000 0.0000000E+00 + -34.50000 -21.50000 0.0000000E+00 + -33.50000 -21.50000 0.0000000E+00 + -32.50000 -21.50000 0.0000000E+00 + -31.50000 -21.50000 0.0000000E+00 + -30.50000 -21.50000 0.0000000E+00 + -29.50000 -21.50000 0.0000000E+00 + -28.50000 -21.50000 0.0000000E+00 + -27.50000 -21.50000 0.0000000E+00 + -26.50000 -21.50000 0.0000000E+00 + -25.50000 -21.50000 0.0000000E+00 + -24.50000 -21.50000 0.0000000E+00 + -23.50000 -21.50000 0.0000000E+00 + -22.50000 -21.50000 0.0000000E+00 + -21.50000 -21.50000 0.0000000E+00 + -20.50000 -21.50000 0.0000000E+00 + -19.50000 -21.50000 0.0000000E+00 + -18.50000 -21.50000 0.0000000E+00 + -17.50000 -21.50000 0.0000000E+00 + -16.50000 -21.50000 0.0000000E+00 + -15.50000 -21.50000 0.0000000E+00 + -14.50000 -21.50000 0.0000000E+00 + -13.50000 -21.50000 0.0000000E+00 + -12.50000 -21.50000 0.0000000E+00 + -11.50000 -21.50000 0.0000000E+00 + -10.50000 -21.50000 0.0000000E+00 + -9.500000 -21.50000 0.0000000E+00 + -8.500000 -21.50000 0.0000000E+00 + -7.500000 -21.50000 0.0000000E+00 + -6.500000 -21.50000 0.0000000E+00 + -5.500000 -21.50000 0.0000000E+00 + -4.500000 -21.50000 0.0000000E+00 + -3.500000 -21.50000 0.0000000E+00 + -2.500000 -21.50000 0.0000000E+00 + -1.500000 -21.50000 0.0000000E+00 + -0.5000000 -21.50000 0.0000000E+00 + 0.5000000 -21.50000 0.0000000E+00 + 1.500000 -21.50000 0.0000000E+00 + 2.500000 -21.50000 0.0000000E+00 + 3.500000 -21.50000 0.0000000E+00 + 4.500000 -21.50000 0.0000000E+00 + 5.500000 -21.50000 0.0000000E+00 + 6.500000 -21.50000 0.0000000E+00 + 7.500000 -21.50000 0.0000000E+00 + 8.500000 -21.50000 0.0000000E+00 + 9.500000 -21.50000 0.0000000E+00 + 10.50000 -21.50000 0.0000000E+00 + 11.50000 -21.50000 0.0000000E+00 + 12.50000 -21.50000 0.0000000E+00 + 13.50000 -21.50000 0.0000000E+00 + 14.50000 -21.50000 0.0000000E+00 + 15.50000 -21.50000 0.0000000E+00 + 16.50000 -21.50000 0.0000000E+00 + 17.50000 -21.50000 0.0000000E+00 + 18.50000 -21.50000 0.0000000E+00 + 19.50000 -21.50000 0.0000000E+00 + 20.50000 -21.50000 0.0000000E+00 + 21.50000 -21.50000 0.0000000E+00 + 22.50000 -21.50000 0.0000000E+00 + 23.50000 -21.50000 0.0000000E+00 + 24.50000 -21.50000 0.0000000E+00 + 25.50000 -21.50000 0.0000000E+00 + 26.50000 -21.50000 0.0000000E+00 + 27.50000 -21.50000 0.0000000E+00 + 28.50000 -21.50000 0.0000000E+00 + 29.50000 -21.50000 0.0000000E+00 + 30.50000 -21.50000 0.0000000E+00 + 31.50000 -21.50000 0.0000000E+00 + 32.50000 -21.50000 0.0000000E+00 + 33.50000 -21.50000 0.0000000E+00 + 34.50000 -21.50000 0.0000000E+00 + 35.50000 -21.50000 0.0000000E+00 + 36.50000 -21.50000 0.0000000E+00 + 37.50000 -21.50000 0.0000000E+00 + 38.50000 -21.50000 0.0000000E+00 + 39.50000 -21.50000 0.0000000E+00 + 40.50000 -21.50000 0.0000000E+00 + 41.50000 -21.50000 0.0000000E+00 + 42.50000 -21.50000 0.0000000E+00 + 43.50000 -21.50000 0.0000000E+00 + 44.50000 -21.50000 0.0000000E+00 + 45.50000 -21.50000 0.0000000E+00 + 46.50000 -21.50000 0.0000000E+00 + 47.50000 -21.50000 0.0000000E+00 + 48.50000 -21.50000 0.0000000E+00 + 49.50000 -21.50000 0.0000000E+00 + 50.50000 -21.50000 0.0000000E+00 + 51.50000 -21.50000 0.0000000E+00 + 52.50000 -21.50000 0.0000000E+00 + 53.50000 -21.50000 0.0000000E+00 + 54.50000 -21.50000 0.0000000E+00 + 55.50000 -21.50000 0.0000000E+00 + 56.50000 -21.50000 0.0000000E+00 + 57.50000 -21.50000 0.0000000E+00 + 58.50000 -21.50000 0.0000000E+00 + 59.50000 -21.50000 0.0000000E+00 + 60.50000 -21.50000 0.0000000E+00 + 61.50000 -21.50000 0.0000000E+00 + 62.50000 -21.50000 0.0000000E+00 + 63.50000 -21.50000 0.0000000E+00 + 64.50000 -21.50000 0.0000000E+00 + 65.50000 -21.50000 0.0000000E+00 + 66.50000 -21.50000 0.0000000E+00 + 67.50000 -21.50000 0.0000000E+00 + 68.50000 -21.50000 0.0000000E+00 + 69.50000 -21.50000 0.0000000E+00 + 70.50000 -21.50000 0.0000000E+00 + 71.50000 -21.50000 0.0000000E+00 + 72.50000 -21.50000 0.0000000E+00 + 73.50000 -21.50000 0.0000000E+00 + 74.50000 -21.50000 0.0000000E+00 + 75.50000 -21.50000 0.0000000E+00 + 76.50000 -21.50000 0.0000000E+00 + 77.50000 -21.50000 0.0000000E+00 + 78.50000 -21.50000 0.0000000E+00 + 79.50000 -21.50000 0.0000000E+00 + 80.50000 -21.50000 0.0000000E+00 + 81.50000 -21.50000 0.0000000E+00 + 82.50000 -21.50000 0.0000000E+00 + 83.50000 -21.50000 0.0000000E+00 + 84.50000 -21.50000 0.0000000E+00 + 85.50000 -21.50000 0.0000000E+00 + 86.50000 -21.50000 0.0000000E+00 + 87.50000 -21.50000 0.0000000E+00 + 88.50000 -21.50000 0.0000000E+00 + 89.50000 -21.50000 0.0000000E+00 + -89.50000 -20.50000 0.0000000E+00 + -88.50000 -20.50000 0.0000000E+00 + -87.50000 -20.50000 0.0000000E+00 + -86.50000 -20.50000 0.0000000E+00 + -85.50000 -20.50000 0.0000000E+00 + -84.50000 -20.50000 0.0000000E+00 + -83.50000 -20.50000 0.0000000E+00 + -82.50000 -20.50000 0.0000000E+00 + -81.50000 -20.50000 0.0000000E+00 + -80.50000 -20.50000 0.0000000E+00 + -79.50000 -20.50000 0.0000000E+00 + -78.50000 -20.50000 0.0000000E+00 + -77.50000 -20.50000 0.0000000E+00 + -76.50000 -20.50000 0.0000000E+00 + -75.50000 -20.50000 0.0000000E+00 + -74.50000 -20.50000 0.0000000E+00 + -73.50000 -20.50000 0.0000000E+00 + -72.50000 -20.50000 0.0000000E+00 + -71.50000 -20.50000 0.0000000E+00 + -70.50000 -20.50000 0.0000000E+00 + -69.50000 -20.50000 0.0000000E+00 + -68.50000 -20.50000 0.0000000E+00 + -67.50000 -20.50000 0.0000000E+00 + -66.50000 -20.50000 0.0000000E+00 + -65.50000 -20.50000 0.0000000E+00 + -64.50000 -20.50000 0.0000000E+00 + -63.50000 -20.50000 0.0000000E+00 + -62.50000 -20.50000 0.0000000E+00 + -61.50000 -20.50000 0.0000000E+00 + -60.50000 -20.50000 0.0000000E+00 + -59.50000 -20.50000 0.0000000E+00 + -58.50000 -20.50000 0.0000000E+00 + -57.50000 -20.50000 0.0000000E+00 + -56.50000 -20.50000 0.0000000E+00 + -55.50000 -20.50000 0.0000000E+00 + -54.50000 -20.50000 0.0000000E+00 + -53.50000 -20.50000 0.0000000E+00 + -52.50000 -20.50000 0.0000000E+00 + -51.50000 -20.50000 0.0000000E+00 + -50.50000 -20.50000 0.0000000E+00 + -49.50000 -20.50000 0.0000000E+00 + -48.50000 -20.50000 0.0000000E+00 + -47.50000 -20.50000 0.0000000E+00 + -46.50000 -20.50000 0.0000000E+00 + -45.50000 -20.50000 0.0000000E+00 + -44.50000 -20.50000 0.0000000E+00 + -43.50000 -20.50000 0.0000000E+00 + -42.50000 -20.50000 0.0000000E+00 + -41.50000 -20.50000 0.0000000E+00 + -40.50000 -20.50000 0.0000000E+00 + -39.50000 -20.50000 0.0000000E+00 + -38.50000 -20.50000 0.0000000E+00 + -37.50000 -20.50000 0.0000000E+00 + -36.50000 -20.50000 0.0000000E+00 + -35.50000 -20.50000 0.0000000E+00 + -34.50000 -20.50000 0.0000000E+00 + -33.50000 -20.50000 0.0000000E+00 + -32.50000 -20.50000 0.0000000E+00 + -31.50000 -20.50000 0.0000000E+00 + -30.50000 -20.50000 0.0000000E+00 + -29.50000 -20.50000 0.0000000E+00 + -28.50000 -20.50000 0.0000000E+00 + -27.50000 -20.50000 0.0000000E+00 + -26.50000 -20.50000 0.0000000E+00 + -25.50000 -20.50000 0.0000000E+00 + -24.50000 -20.50000 0.0000000E+00 + -23.50000 -20.50000 0.0000000E+00 + -22.50000 -20.50000 0.0000000E+00 + -21.50000 -20.50000 0.0000000E+00 + -20.50000 -20.50000 0.0000000E+00 + -19.50000 -20.50000 0.0000000E+00 + -18.50000 -20.50000 0.0000000E+00 + -17.50000 -20.50000 0.0000000E+00 + -16.50000 -20.50000 0.0000000E+00 + -15.50000 -20.50000 0.0000000E+00 + -14.50000 -20.50000 0.0000000E+00 + -13.50000 -20.50000 0.0000000E+00 + -12.50000 -20.50000 0.0000000E+00 + -11.50000 -20.50000 0.0000000E+00 + -10.50000 -20.50000 0.0000000E+00 + -9.500000 -20.50000 0.0000000E+00 + -8.500000 -20.50000 0.0000000E+00 + -7.500000 -20.50000 0.0000000E+00 + -6.500000 -20.50000 0.0000000E+00 + -5.500000 -20.50000 0.0000000E+00 + -4.500000 -20.50000 0.0000000E+00 + -3.500000 -20.50000 0.0000000E+00 + -2.500000 -20.50000 0.0000000E+00 + -1.500000 -20.50000 0.0000000E+00 + -0.5000000 -20.50000 0.0000000E+00 + 0.5000000 -20.50000 0.0000000E+00 + 1.500000 -20.50000 0.0000000E+00 + 2.500000 -20.50000 0.0000000E+00 + 3.500000 -20.50000 0.0000000E+00 + 4.500000 -20.50000 0.0000000E+00 + 5.500000 -20.50000 0.0000000E+00 + 6.500000 -20.50000 0.0000000E+00 + 7.500000 -20.50000 0.0000000E+00 + 8.500000 -20.50000 0.0000000E+00 + 9.500000 -20.50000 0.0000000E+00 + 10.50000 -20.50000 0.0000000E+00 + 11.50000 -20.50000 0.0000000E+00 + 12.50000 -20.50000 0.0000000E+00 + 13.50000 -20.50000 0.0000000E+00 + 14.50000 -20.50000 0.0000000E+00 + 15.50000 -20.50000 0.0000000E+00 + 16.50000 -20.50000 0.0000000E+00 + 17.50000 -20.50000 0.0000000E+00 + 18.50000 -20.50000 0.0000000E+00 + 19.50000 -20.50000 0.0000000E+00 + 20.50000 -20.50000 0.0000000E+00 + 21.50000 -20.50000 0.0000000E+00 + 22.50000 -20.50000 0.0000000E+00 + 23.50000 -20.50000 0.0000000E+00 + 24.50000 -20.50000 0.0000000E+00 + 25.50000 -20.50000 0.0000000E+00 + 26.50000 -20.50000 0.0000000E+00 + 27.50000 -20.50000 0.0000000E+00 + 28.50000 -20.50000 0.0000000E+00 + 29.50000 -20.50000 0.0000000E+00 + 30.50000 -20.50000 0.0000000E+00 + 31.50000 -20.50000 0.0000000E+00 + 32.50000 -20.50000 0.0000000E+00 + 33.50000 -20.50000 0.0000000E+00 + 34.50000 -20.50000 0.0000000E+00 + 35.50000 -20.50000 0.0000000E+00 + 36.50000 -20.50000 0.0000000E+00 + 37.50000 -20.50000 0.0000000E+00 + 38.50000 -20.50000 0.0000000E+00 + 39.50000 -20.50000 0.0000000E+00 + 40.50000 -20.50000 0.0000000E+00 + 41.50000 -20.50000 0.0000000E+00 + 42.50000 -20.50000 0.0000000E+00 + 43.50000 -20.50000 0.0000000E+00 + 44.50000 -20.50000 0.0000000E+00 + 45.50000 -20.50000 0.0000000E+00 + 46.50000 -20.50000 0.0000000E+00 + 47.50000 -20.50000 0.0000000E+00 + 48.50000 -20.50000 0.0000000E+00 + 49.50000 -20.50000 0.0000000E+00 + 50.50000 -20.50000 0.0000000E+00 + 51.50000 -20.50000 0.0000000E+00 + 52.50000 -20.50000 0.0000000E+00 + 53.50000 -20.50000 0.0000000E+00 + 54.50000 -20.50000 0.0000000E+00 + 55.50000 -20.50000 0.0000000E+00 + 56.50000 -20.50000 0.0000000E+00 + 57.50000 -20.50000 0.0000000E+00 + 58.50000 -20.50000 0.0000000E+00 + 59.50000 -20.50000 0.0000000E+00 + 60.50000 -20.50000 0.0000000E+00 + 61.50000 -20.50000 0.0000000E+00 + 62.50000 -20.50000 0.0000000E+00 + 63.50000 -20.50000 0.0000000E+00 + 64.50000 -20.50000 0.0000000E+00 + 65.50000 -20.50000 0.0000000E+00 + 66.50000 -20.50000 0.0000000E+00 + 67.50000 -20.50000 0.0000000E+00 + 68.50000 -20.50000 0.0000000E+00 + 69.50000 -20.50000 0.0000000E+00 + 70.50000 -20.50000 0.0000000E+00 + 71.50000 -20.50000 0.0000000E+00 + 72.50000 -20.50000 0.0000000E+00 + 73.50000 -20.50000 0.0000000E+00 + 74.50000 -20.50000 0.0000000E+00 + 75.50000 -20.50000 0.0000000E+00 + 76.50000 -20.50000 0.0000000E+00 + 77.50000 -20.50000 0.0000000E+00 + 78.50000 -20.50000 0.0000000E+00 + 79.50000 -20.50000 0.0000000E+00 + 80.50000 -20.50000 0.0000000E+00 + 81.50000 -20.50000 0.0000000E+00 + 82.50000 -20.50000 0.0000000E+00 + 83.50000 -20.50000 0.0000000E+00 + 84.50000 -20.50000 0.0000000E+00 + 85.50000 -20.50000 0.0000000E+00 + 86.50000 -20.50000 0.0000000E+00 + 87.50000 -20.50000 0.0000000E+00 + 88.50000 -20.50000 0.0000000E+00 + 89.50000 -20.50000 0.0000000E+00 + -89.50000 -19.50000 0.0000000E+00 + -88.50000 -19.50000 0.0000000E+00 + -87.50000 -19.50000 0.0000000E+00 + -86.50000 -19.50000 0.0000000E+00 + -85.50000 -19.50000 0.0000000E+00 + -84.50000 -19.50000 0.0000000E+00 + -83.50000 -19.50000 0.0000000E+00 + -82.50000 -19.50000 0.0000000E+00 + -81.50000 -19.50000 0.0000000E+00 + -80.50000 -19.50000 0.0000000E+00 + -79.50000 -19.50000 0.0000000E+00 + -78.50000 -19.50000 0.0000000E+00 + -77.50000 -19.50000 0.0000000E+00 + -76.50000 -19.50000 0.0000000E+00 + -75.50000 -19.50000 0.0000000E+00 + -74.50000 -19.50000 0.0000000E+00 + -73.50000 -19.50000 0.0000000E+00 + -72.50000 -19.50000 0.0000000E+00 + -71.50000 -19.50000 0.0000000E+00 + -70.50000 -19.50000 0.0000000E+00 + -69.50000 -19.50000 0.0000000E+00 + -68.50000 -19.50000 0.0000000E+00 + -67.50000 -19.50000 0.0000000E+00 + -66.50000 -19.50000 0.0000000E+00 + -65.50000 -19.50000 0.0000000E+00 + -64.50000 -19.50000 0.0000000E+00 + -63.50000 -19.50000 0.0000000E+00 + -62.50000 -19.50000 0.0000000E+00 + -61.50000 -19.50000 0.0000000E+00 + -60.50000 -19.50000 0.0000000E+00 + -59.50000 -19.50000 0.0000000E+00 + -58.50000 -19.50000 0.0000000E+00 + -57.50000 -19.50000 0.0000000E+00 + -56.50000 -19.50000 0.0000000E+00 + -55.50000 -19.50000 0.0000000E+00 + -54.50000 -19.50000 0.0000000E+00 + -53.50000 -19.50000 0.0000000E+00 + -52.50000 -19.50000 0.0000000E+00 + -51.50000 -19.50000 0.0000000E+00 + -50.50000 -19.50000 0.0000000E+00 + -49.50000 -19.50000 0.0000000E+00 + -48.50000 -19.50000 0.0000000E+00 + -47.50000 -19.50000 0.0000000E+00 + -46.50000 -19.50000 0.0000000E+00 + -45.50000 -19.50000 0.0000000E+00 + -44.50000 -19.50000 0.0000000E+00 + -43.50000 -19.50000 0.0000000E+00 + -42.50000 -19.50000 0.0000000E+00 + -41.50000 -19.50000 0.0000000E+00 + -40.50000 -19.50000 0.0000000E+00 + -39.50000 -19.50000 0.0000000E+00 + -38.50000 -19.50000 0.0000000E+00 + -37.50000 -19.50000 0.0000000E+00 + -36.50000 -19.50000 0.0000000E+00 + -35.50000 -19.50000 0.0000000E+00 + -34.50000 -19.50000 0.0000000E+00 + -33.50000 -19.50000 0.0000000E+00 + -32.50000 -19.50000 0.0000000E+00 + -31.50000 -19.50000 0.0000000E+00 + -30.50000 -19.50000 0.0000000E+00 + -29.50000 -19.50000 0.0000000E+00 + -28.50000 -19.50000 0.0000000E+00 + -27.50000 -19.50000 0.0000000E+00 + -26.50000 -19.50000 0.0000000E+00 + -25.50000 -19.50000 0.0000000E+00 + -24.50000 -19.50000 0.0000000E+00 + -23.50000 -19.50000 0.0000000E+00 + -22.50000 -19.50000 0.0000000E+00 + -21.50000 -19.50000 0.0000000E+00 + -20.50000 -19.50000 0.0000000E+00 + -19.50000 -19.50000 0.0000000E+00 + -18.50000 -19.50000 0.0000000E+00 + -17.50000 -19.50000 0.0000000E+00 + -16.50000 -19.50000 0.0000000E+00 + -15.50000 -19.50000 0.0000000E+00 + -14.50000 -19.50000 0.0000000E+00 + -13.50000 -19.50000 0.0000000E+00 + -12.50000 -19.50000 0.0000000E+00 + -11.50000 -19.50000 0.0000000E+00 + -10.50000 -19.50000 0.0000000E+00 + -9.500000 -19.50000 0.0000000E+00 + -8.500000 -19.50000 0.0000000E+00 + -7.500000 -19.50000 0.0000000E+00 + -6.500000 -19.50000 0.0000000E+00 + -5.500000 -19.50000 0.0000000E+00 + -4.500000 -19.50000 0.0000000E+00 + -3.500000 -19.50000 0.0000000E+00 + -2.500000 -19.50000 0.0000000E+00 + -1.500000 -19.50000 0.0000000E+00 + -0.5000000 -19.50000 0.0000000E+00 + 0.5000000 -19.50000 0.0000000E+00 + 1.500000 -19.50000 0.0000000E+00 + 2.500000 -19.50000 0.0000000E+00 + 3.500000 -19.50000 0.0000000E+00 + 4.500000 -19.50000 0.0000000E+00 + 5.500000 -19.50000 0.0000000E+00 + 6.500000 -19.50000 0.0000000E+00 + 7.500000 -19.50000 0.0000000E+00 + 8.500000 -19.50000 0.0000000E+00 + 9.500000 -19.50000 0.0000000E+00 + 10.50000 -19.50000 0.0000000E+00 + 11.50000 -19.50000 0.0000000E+00 + 12.50000 -19.50000 0.0000000E+00 + 13.50000 -19.50000 0.0000000E+00 + 14.50000 -19.50000 0.0000000E+00 + 15.50000 -19.50000 0.0000000E+00 + 16.50000 -19.50000 0.0000000E+00 + 17.50000 -19.50000 0.0000000E+00 + 18.50000 -19.50000 0.0000000E+00 + 19.50000 -19.50000 0.0000000E+00 + 20.50000 -19.50000 0.0000000E+00 + 21.50000 -19.50000 0.0000000E+00 + 22.50000 -19.50000 0.0000000E+00 + 23.50000 -19.50000 0.0000000E+00 + 24.50000 -19.50000 0.0000000E+00 + 25.50000 -19.50000 0.0000000E+00 + 26.50000 -19.50000 0.0000000E+00 + 27.50000 -19.50000 0.0000000E+00 + 28.50000 -19.50000 0.0000000E+00 + 29.50000 -19.50000 0.0000000E+00 + 30.50000 -19.50000 0.0000000E+00 + 31.50000 -19.50000 0.0000000E+00 + 32.50000 -19.50000 0.0000000E+00 + 33.50000 -19.50000 0.0000000E+00 + 34.50000 -19.50000 0.0000000E+00 + 35.50000 -19.50000 0.0000000E+00 + 36.50000 -19.50000 0.0000000E+00 + 37.50000 -19.50000 0.0000000E+00 + 38.50000 -19.50000 0.0000000E+00 + 39.50000 -19.50000 0.0000000E+00 + 40.50000 -19.50000 0.0000000E+00 + 41.50000 -19.50000 0.0000000E+00 + 42.50000 -19.50000 0.0000000E+00 + 43.50000 -19.50000 0.0000000E+00 + 44.50000 -19.50000 0.0000000E+00 + 45.50000 -19.50000 0.0000000E+00 + 46.50000 -19.50000 0.0000000E+00 + 47.50000 -19.50000 0.0000000E+00 + 48.50000 -19.50000 0.0000000E+00 + 49.50000 -19.50000 0.0000000E+00 + 50.50000 -19.50000 0.0000000E+00 + 51.50000 -19.50000 0.0000000E+00 + 52.50000 -19.50000 0.0000000E+00 + 53.50000 -19.50000 0.0000000E+00 + 54.50000 -19.50000 0.0000000E+00 + 55.50000 -19.50000 0.0000000E+00 + 56.50000 -19.50000 0.0000000E+00 + 57.50000 -19.50000 0.0000000E+00 + 58.50000 -19.50000 0.0000000E+00 + 59.50000 -19.50000 0.0000000E+00 + 60.50000 -19.50000 0.0000000E+00 + 61.50000 -19.50000 0.0000000E+00 + 62.50000 -19.50000 0.0000000E+00 + 63.50000 -19.50000 0.0000000E+00 + 64.50000 -19.50000 0.0000000E+00 + 65.50000 -19.50000 0.0000000E+00 + 66.50000 -19.50000 0.0000000E+00 + 67.50000 -19.50000 0.0000000E+00 + 68.50000 -19.50000 0.0000000E+00 + 69.50000 -19.50000 0.0000000E+00 + 70.50000 -19.50000 0.0000000E+00 + 71.50000 -19.50000 0.0000000E+00 + 72.50000 -19.50000 0.0000000E+00 + 73.50000 -19.50000 0.0000000E+00 + 74.50000 -19.50000 0.0000000E+00 + 75.50000 -19.50000 0.0000000E+00 + 76.50000 -19.50000 0.0000000E+00 + 77.50000 -19.50000 0.0000000E+00 + 78.50000 -19.50000 0.0000000E+00 + 79.50000 -19.50000 0.0000000E+00 + 80.50000 -19.50000 0.0000000E+00 + 81.50000 -19.50000 0.0000000E+00 + 82.50000 -19.50000 0.0000000E+00 + 83.50000 -19.50000 0.0000000E+00 + 84.50000 -19.50000 0.0000000E+00 + 85.50000 -19.50000 0.0000000E+00 + 86.50000 -19.50000 0.0000000E+00 + 87.50000 -19.50000 0.0000000E+00 + 88.50000 -19.50000 0.0000000E+00 + 89.50000 -19.50000 0.0000000E+00 + -89.50000 -18.50000 0.0000000E+00 + -88.50000 -18.50000 0.0000000E+00 + -87.50000 -18.50000 0.0000000E+00 + -86.50000 -18.50000 0.0000000E+00 + -85.50000 -18.50000 0.0000000E+00 + -84.50000 -18.50000 0.0000000E+00 + -83.50000 -18.50000 0.0000000E+00 + -82.50000 -18.50000 0.0000000E+00 + -81.50000 -18.50000 0.0000000E+00 + -80.50000 -18.50000 0.0000000E+00 + -79.50000 -18.50000 0.0000000E+00 + -78.50000 -18.50000 0.0000000E+00 + -77.50000 -18.50000 0.0000000E+00 + -76.50000 -18.50000 0.0000000E+00 + -75.50000 -18.50000 0.0000000E+00 + -74.50000 -18.50000 0.0000000E+00 + -73.50000 -18.50000 0.0000000E+00 + -72.50000 -18.50000 0.0000000E+00 + -71.50000 -18.50000 0.0000000E+00 + -70.50000 -18.50000 0.0000000E+00 + -69.50000 -18.50000 0.0000000E+00 + -68.50000 -18.50000 0.0000000E+00 + -67.50000 -18.50000 0.0000000E+00 + -66.50000 -18.50000 0.0000000E+00 + -65.50000 -18.50000 0.0000000E+00 + -64.50000 -18.50000 0.0000000E+00 + -63.50000 -18.50000 0.0000000E+00 + -62.50000 -18.50000 0.0000000E+00 + -61.50000 -18.50000 0.0000000E+00 + -60.50000 -18.50000 0.0000000E+00 + -59.50000 -18.50000 0.0000000E+00 + -58.50000 -18.50000 0.0000000E+00 + -57.50000 -18.50000 0.0000000E+00 + -56.50000 -18.50000 0.0000000E+00 + -55.50000 -18.50000 0.0000000E+00 + -54.50000 -18.50000 0.0000000E+00 + -53.50000 -18.50000 0.0000000E+00 + -52.50000 -18.50000 0.0000000E+00 + -51.50000 -18.50000 0.0000000E+00 + -50.50000 -18.50000 0.0000000E+00 + -49.50000 -18.50000 0.0000000E+00 + -48.50000 -18.50000 0.0000000E+00 + -47.50000 -18.50000 0.0000000E+00 + -46.50000 -18.50000 0.0000000E+00 + -45.50000 -18.50000 0.0000000E+00 + -44.50000 -18.50000 0.0000000E+00 + -43.50000 -18.50000 0.0000000E+00 + -42.50000 -18.50000 0.0000000E+00 + -41.50000 -18.50000 0.0000000E+00 + -40.50000 -18.50000 0.0000000E+00 + -39.50000 -18.50000 0.0000000E+00 + -38.50000 -18.50000 0.0000000E+00 + -37.50000 -18.50000 0.0000000E+00 + -36.50000 -18.50000 0.0000000E+00 + -35.50000 -18.50000 0.0000000E+00 + -34.50000 -18.50000 0.0000000E+00 + -33.50000 -18.50000 0.0000000E+00 + -32.50000 -18.50000 0.0000000E+00 + -31.50000 -18.50000 0.0000000E+00 + -30.50000 -18.50000 0.0000000E+00 + -29.50000 -18.50000 0.0000000E+00 + -28.50000 -18.50000 0.0000000E+00 + -27.50000 -18.50000 0.0000000E+00 + -26.50000 -18.50000 0.0000000E+00 + -25.50000 -18.50000 0.0000000E+00 + -24.50000 -18.50000 0.0000000E+00 + -23.50000 -18.50000 0.0000000E+00 + -22.50000 -18.50000 0.0000000E+00 + -21.50000 -18.50000 0.0000000E+00 + -20.50000 -18.50000 0.0000000E+00 + -19.50000 -18.50000 0.0000000E+00 + -18.50000 -18.50000 0.0000000E+00 + -17.50000 -18.50000 0.0000000E+00 + -16.50000 -18.50000 0.0000000E+00 + -15.50000 -18.50000 0.0000000E+00 + -14.50000 -18.50000 0.0000000E+00 + -13.50000 -18.50000 0.0000000E+00 + -12.50000 -18.50000 0.0000000E+00 + -11.50000 -18.50000 0.0000000E+00 + -10.50000 -18.50000 0.0000000E+00 + -9.500000 -18.50000 0.0000000E+00 + -8.500000 -18.50000 0.0000000E+00 + -7.500000 -18.50000 0.0000000E+00 + -6.500000 -18.50000 0.0000000E+00 + -5.500000 -18.50000 0.0000000E+00 + -4.500000 -18.50000 0.0000000E+00 + -3.500000 -18.50000 0.0000000E+00 + -2.500000 -18.50000 0.0000000E+00 + -1.500000 -18.50000 0.0000000E+00 + -0.5000000 -18.50000 0.0000000E+00 + 0.5000000 -18.50000 0.0000000E+00 + 1.500000 -18.50000 0.0000000E+00 + 2.500000 -18.50000 0.0000000E+00 + 3.500000 -18.50000 0.0000000E+00 + 4.500000 -18.50000 0.0000000E+00 + 5.500000 -18.50000 0.0000000E+00 + 6.500000 -18.50000 0.0000000E+00 + 7.500000 -18.50000 0.0000000E+00 + 8.500000 -18.50000 0.0000000E+00 + 9.500000 -18.50000 0.0000000E+00 + 10.50000 -18.50000 0.0000000E+00 + 11.50000 -18.50000 0.0000000E+00 + 12.50000 -18.50000 0.0000000E+00 + 13.50000 -18.50000 0.0000000E+00 + 14.50000 -18.50000 0.0000000E+00 + 15.50000 -18.50000 0.0000000E+00 + 16.50000 -18.50000 0.0000000E+00 + 17.50000 -18.50000 0.0000000E+00 + 18.50000 -18.50000 0.0000000E+00 + 19.50000 -18.50000 0.0000000E+00 + 20.50000 -18.50000 0.0000000E+00 + 21.50000 -18.50000 0.0000000E+00 + 22.50000 -18.50000 0.0000000E+00 + 23.50000 -18.50000 0.0000000E+00 + 24.50000 -18.50000 0.0000000E+00 + 25.50000 -18.50000 0.0000000E+00 + 26.50000 -18.50000 0.0000000E+00 + 27.50000 -18.50000 0.0000000E+00 + 28.50000 -18.50000 0.0000000E+00 + 29.50000 -18.50000 0.0000000E+00 + 30.50000 -18.50000 0.0000000E+00 + 31.50000 -18.50000 0.0000000E+00 + 32.50000 -18.50000 0.0000000E+00 + 33.50000 -18.50000 0.0000000E+00 + 34.50000 -18.50000 0.0000000E+00 + 35.50000 -18.50000 0.0000000E+00 + 36.50000 -18.50000 0.0000000E+00 + 37.50000 -18.50000 0.0000000E+00 + 38.50000 -18.50000 0.0000000E+00 + 39.50000 -18.50000 0.0000000E+00 + 40.50000 -18.50000 0.0000000E+00 + 41.50000 -18.50000 0.0000000E+00 + 42.50000 -18.50000 0.0000000E+00 + 43.50000 -18.50000 0.0000000E+00 + 44.50000 -18.50000 0.0000000E+00 + 45.50000 -18.50000 0.0000000E+00 + 46.50000 -18.50000 0.0000000E+00 + 47.50000 -18.50000 0.0000000E+00 + 48.50000 -18.50000 0.0000000E+00 + 49.50000 -18.50000 0.0000000E+00 + 50.50000 -18.50000 0.0000000E+00 + 51.50000 -18.50000 0.0000000E+00 + 52.50000 -18.50000 0.0000000E+00 + 53.50000 -18.50000 0.0000000E+00 + 54.50000 -18.50000 0.0000000E+00 + 55.50000 -18.50000 0.0000000E+00 + 56.50000 -18.50000 0.0000000E+00 + 57.50000 -18.50000 0.0000000E+00 + 58.50000 -18.50000 0.0000000E+00 + 59.50000 -18.50000 0.0000000E+00 + 60.50000 -18.50000 0.0000000E+00 + 61.50000 -18.50000 0.0000000E+00 + 62.50000 -18.50000 0.0000000E+00 + 63.50000 -18.50000 0.0000000E+00 + 64.50000 -18.50000 0.0000000E+00 + 65.50000 -18.50000 0.0000000E+00 + 66.50000 -18.50000 0.0000000E+00 + 67.50000 -18.50000 0.0000000E+00 + 68.50000 -18.50000 0.0000000E+00 + 69.50000 -18.50000 0.0000000E+00 + 70.50000 -18.50000 0.0000000E+00 + 71.50000 -18.50000 0.0000000E+00 + 72.50000 -18.50000 0.0000000E+00 + 73.50000 -18.50000 0.0000000E+00 + 74.50000 -18.50000 0.0000000E+00 + 75.50000 -18.50000 0.0000000E+00 + 76.50000 -18.50000 0.0000000E+00 + 77.50000 -18.50000 0.0000000E+00 + 78.50000 -18.50000 0.0000000E+00 + 79.50000 -18.50000 0.0000000E+00 + 80.50000 -18.50000 0.0000000E+00 + 81.50000 -18.50000 0.0000000E+00 + 82.50000 -18.50000 0.0000000E+00 + 83.50000 -18.50000 0.0000000E+00 + 84.50000 -18.50000 0.0000000E+00 + 85.50000 -18.50000 0.0000000E+00 + 86.50000 -18.50000 0.0000000E+00 + 87.50000 -18.50000 0.0000000E+00 + 88.50000 -18.50000 0.0000000E+00 + 89.50000 -18.50000 0.0000000E+00 + -89.50000 -17.50000 0.0000000E+00 + -88.50000 -17.50000 0.0000000E+00 + -87.50000 -17.50000 0.0000000E+00 + -86.50000 -17.50000 0.0000000E+00 + -85.50000 -17.50000 0.0000000E+00 + -84.50000 -17.50000 0.0000000E+00 + -83.50000 -17.50000 0.0000000E+00 + -82.50000 -17.50000 0.0000000E+00 + -81.50000 -17.50000 0.0000000E+00 + -80.50000 -17.50000 0.0000000E+00 + -79.50000 -17.50000 0.0000000E+00 + -78.50000 -17.50000 0.0000000E+00 + -77.50000 -17.50000 0.0000000E+00 + -76.50000 -17.50000 0.0000000E+00 + -75.50000 -17.50000 0.0000000E+00 + -74.50000 -17.50000 0.0000000E+00 + -73.50000 -17.50000 0.0000000E+00 + -72.50000 -17.50000 0.0000000E+00 + -71.50000 -17.50000 0.0000000E+00 + -70.50000 -17.50000 0.0000000E+00 + -69.50000 -17.50000 0.0000000E+00 + -68.50000 -17.50000 0.0000000E+00 + -67.50000 -17.50000 0.0000000E+00 + -66.50000 -17.50000 0.0000000E+00 + -65.50000 -17.50000 0.0000000E+00 + -64.50000 -17.50000 0.0000000E+00 + -63.50000 -17.50000 0.0000000E+00 + -62.50000 -17.50000 0.0000000E+00 + -61.50000 -17.50000 0.0000000E+00 + -60.50000 -17.50000 0.0000000E+00 + -59.50000 -17.50000 0.0000000E+00 + -58.50000 -17.50000 0.0000000E+00 + -57.50000 -17.50000 0.0000000E+00 + -56.50000 -17.50000 0.0000000E+00 + -55.50000 -17.50000 0.0000000E+00 + -54.50000 -17.50000 0.0000000E+00 + -53.50000 -17.50000 0.0000000E+00 + -52.50000 -17.50000 0.0000000E+00 + -51.50000 -17.50000 0.0000000E+00 + -50.50000 -17.50000 0.0000000E+00 + -49.50000 -17.50000 0.0000000E+00 + -48.50000 -17.50000 0.0000000E+00 + -47.50000 -17.50000 0.0000000E+00 + -46.50000 -17.50000 0.0000000E+00 + -45.50000 -17.50000 0.0000000E+00 + -44.50000 -17.50000 0.0000000E+00 + -43.50000 -17.50000 0.0000000E+00 + -42.50000 -17.50000 0.0000000E+00 + -41.50000 -17.50000 0.0000000E+00 + -40.50000 -17.50000 0.0000000E+00 + -39.50000 -17.50000 0.0000000E+00 + -38.50000 -17.50000 0.0000000E+00 + -37.50000 -17.50000 0.0000000E+00 + -36.50000 -17.50000 0.0000000E+00 + -35.50000 -17.50000 0.0000000E+00 + -34.50000 -17.50000 0.0000000E+00 + -33.50000 -17.50000 0.0000000E+00 + -32.50000 -17.50000 0.0000000E+00 + -31.50000 -17.50000 0.0000000E+00 + -30.50000 -17.50000 0.0000000E+00 + -29.50000 -17.50000 0.0000000E+00 + -28.50000 -17.50000 0.0000000E+00 + -27.50000 -17.50000 0.0000000E+00 + -26.50000 -17.50000 0.0000000E+00 + -25.50000 -17.50000 0.0000000E+00 + -24.50000 -17.50000 0.0000000E+00 + -23.50000 -17.50000 0.0000000E+00 + -22.50000 -17.50000 0.0000000E+00 + -21.50000 -17.50000 0.0000000E+00 + -20.50000 -17.50000 0.0000000E+00 + -19.50000 -17.50000 0.0000000E+00 + -18.50000 -17.50000 0.0000000E+00 + -17.50000 -17.50000 0.0000000E+00 + -16.50000 -17.50000 0.0000000E+00 + -15.50000 -17.50000 0.0000000E+00 + -14.50000 -17.50000 0.0000000E+00 + -13.50000 -17.50000 0.0000000E+00 + -12.50000 -17.50000 0.0000000E+00 + -11.50000 -17.50000 0.0000000E+00 + -10.50000 -17.50000 0.0000000E+00 + -9.500000 -17.50000 0.0000000E+00 + -8.500000 -17.50000 0.0000000E+00 + -7.500000 -17.50000 0.0000000E+00 + -6.500000 -17.50000 0.0000000E+00 + -5.500000 -17.50000 0.0000000E+00 + -4.500000 -17.50000 0.0000000E+00 + -3.500000 -17.50000 0.0000000E+00 + -2.500000 -17.50000 0.0000000E+00 + -1.500000 -17.50000 0.0000000E+00 + -0.5000000 -17.50000 0.0000000E+00 + 0.5000000 -17.50000 0.0000000E+00 + 1.500000 -17.50000 0.0000000E+00 + 2.500000 -17.50000 0.0000000E+00 + 3.500000 -17.50000 0.0000000E+00 + 4.500000 -17.50000 0.0000000E+00 + 5.500000 -17.50000 0.0000000E+00 + 6.500000 -17.50000 0.0000000E+00 + 7.500000 -17.50000 0.0000000E+00 + 8.500000 -17.50000 0.0000000E+00 + 9.500000 -17.50000 0.0000000E+00 + 10.50000 -17.50000 0.0000000E+00 + 11.50000 -17.50000 0.0000000E+00 + 12.50000 -17.50000 0.0000000E+00 + 13.50000 -17.50000 0.0000000E+00 + 14.50000 -17.50000 0.0000000E+00 + 15.50000 -17.50000 0.0000000E+00 + 16.50000 -17.50000 0.0000000E+00 + 17.50000 -17.50000 0.0000000E+00 + 18.50000 -17.50000 0.0000000E+00 + 19.50000 -17.50000 0.0000000E+00 + 20.50000 -17.50000 0.0000000E+00 + 21.50000 -17.50000 0.0000000E+00 + 22.50000 -17.50000 0.0000000E+00 + 23.50000 -17.50000 0.0000000E+00 + 24.50000 -17.50000 0.0000000E+00 + 25.50000 -17.50000 0.0000000E+00 + 26.50000 -17.50000 0.0000000E+00 + 27.50000 -17.50000 0.0000000E+00 + 28.50000 -17.50000 0.0000000E+00 + 29.50000 -17.50000 0.0000000E+00 + 30.50000 -17.50000 0.0000000E+00 + 31.50000 -17.50000 0.0000000E+00 + 32.50000 -17.50000 0.0000000E+00 + 33.50000 -17.50000 0.0000000E+00 + 34.50000 -17.50000 0.0000000E+00 + 35.50000 -17.50000 0.0000000E+00 + 36.50000 -17.50000 0.0000000E+00 + 37.50000 -17.50000 0.0000000E+00 + 38.50000 -17.50000 0.0000000E+00 + 39.50000 -17.50000 0.0000000E+00 + 40.50000 -17.50000 0.0000000E+00 + 41.50000 -17.50000 0.0000000E+00 + 42.50000 -17.50000 0.0000000E+00 + 43.50000 -17.50000 0.0000000E+00 + 44.50000 -17.50000 0.0000000E+00 + 45.50000 -17.50000 0.0000000E+00 + 46.50000 -17.50000 0.0000000E+00 + 47.50000 -17.50000 0.0000000E+00 + 48.50000 -17.50000 0.0000000E+00 + 49.50000 -17.50000 0.0000000E+00 + 50.50000 -17.50000 0.0000000E+00 + 51.50000 -17.50000 0.0000000E+00 + 52.50000 -17.50000 0.0000000E+00 + 53.50000 -17.50000 0.0000000E+00 + 54.50000 -17.50000 0.0000000E+00 + 55.50000 -17.50000 0.0000000E+00 + 56.50000 -17.50000 0.0000000E+00 + 57.50000 -17.50000 0.0000000E+00 + 58.50000 -17.50000 0.0000000E+00 + 59.50000 -17.50000 0.0000000E+00 + 60.50000 -17.50000 0.0000000E+00 + 61.50000 -17.50000 0.0000000E+00 + 62.50000 -17.50000 0.0000000E+00 + 63.50000 -17.50000 0.0000000E+00 + 64.50000 -17.50000 0.0000000E+00 + 65.50000 -17.50000 0.0000000E+00 + 66.50000 -17.50000 0.0000000E+00 + 67.50000 -17.50000 0.0000000E+00 + 68.50000 -17.50000 0.0000000E+00 + 69.50000 -17.50000 0.0000000E+00 + 70.50000 -17.50000 0.0000000E+00 + 71.50000 -17.50000 0.0000000E+00 + 72.50000 -17.50000 0.0000000E+00 + 73.50000 -17.50000 0.0000000E+00 + 74.50000 -17.50000 0.0000000E+00 + 75.50000 -17.50000 0.0000000E+00 + 76.50000 -17.50000 0.0000000E+00 + 77.50000 -17.50000 0.0000000E+00 + 78.50000 -17.50000 0.0000000E+00 + 79.50000 -17.50000 0.0000000E+00 + 80.50000 -17.50000 0.0000000E+00 + 81.50000 -17.50000 0.0000000E+00 + 82.50000 -17.50000 0.0000000E+00 + 83.50000 -17.50000 0.0000000E+00 + 84.50000 -17.50000 0.0000000E+00 + 85.50000 -17.50000 0.0000000E+00 + 86.50000 -17.50000 0.0000000E+00 + 87.50000 -17.50000 0.0000000E+00 + 88.50000 -17.50000 0.0000000E+00 + 89.50000 -17.50000 0.0000000E+00 + -89.50000 -16.50000 0.0000000E+00 + -88.50000 -16.50000 0.0000000E+00 + -87.50000 -16.50000 0.0000000E+00 + -86.50000 -16.50000 0.0000000E+00 + -85.50000 -16.50000 0.0000000E+00 + -84.50000 -16.50000 0.0000000E+00 + -83.50000 -16.50000 0.0000000E+00 + -82.50000 -16.50000 0.0000000E+00 + -81.50000 -16.50000 0.0000000E+00 + -80.50000 -16.50000 0.0000000E+00 + -79.50000 -16.50000 0.0000000E+00 + -78.50000 -16.50000 0.0000000E+00 + -77.50000 -16.50000 0.0000000E+00 + -76.50000 -16.50000 0.0000000E+00 + -75.50000 -16.50000 0.0000000E+00 + -74.50000 -16.50000 0.0000000E+00 + -73.50000 -16.50000 0.0000000E+00 + -72.50000 -16.50000 0.0000000E+00 + -71.50000 -16.50000 0.0000000E+00 + -70.50000 -16.50000 0.0000000E+00 + -69.50000 -16.50000 0.0000000E+00 + -68.50000 -16.50000 0.0000000E+00 + -67.50000 -16.50000 0.0000000E+00 + -66.50000 -16.50000 0.0000000E+00 + -65.50000 -16.50000 0.0000000E+00 + -64.50000 -16.50000 0.0000000E+00 + -63.50000 -16.50000 0.0000000E+00 + -62.50000 -16.50000 0.0000000E+00 + -61.50000 -16.50000 0.0000000E+00 + -60.50000 -16.50000 0.0000000E+00 + -59.50000 -16.50000 0.0000000E+00 + -58.50000 -16.50000 0.0000000E+00 + -57.50000 -16.50000 0.0000000E+00 + -56.50000 -16.50000 0.0000000E+00 + -55.50000 -16.50000 0.0000000E+00 + -54.50000 -16.50000 0.0000000E+00 + -53.50000 -16.50000 0.0000000E+00 + -52.50000 -16.50000 0.0000000E+00 + -51.50000 -16.50000 0.0000000E+00 + -50.50000 -16.50000 0.0000000E+00 + -49.50000 -16.50000 0.0000000E+00 + -48.50000 -16.50000 0.0000000E+00 + -47.50000 -16.50000 0.0000000E+00 + -46.50000 -16.50000 0.0000000E+00 + -45.50000 -16.50000 0.0000000E+00 + -44.50000 -16.50000 0.0000000E+00 + -43.50000 -16.50000 0.0000000E+00 + -42.50000 -16.50000 0.0000000E+00 + -41.50000 -16.50000 0.0000000E+00 + -40.50000 -16.50000 0.0000000E+00 + -39.50000 -16.50000 0.0000000E+00 + -38.50000 -16.50000 0.0000000E+00 + -37.50000 -16.50000 0.0000000E+00 + -36.50000 -16.50000 0.0000000E+00 + -35.50000 -16.50000 0.0000000E+00 + -34.50000 -16.50000 0.0000000E+00 + -33.50000 -16.50000 0.0000000E+00 + -32.50000 -16.50000 0.0000000E+00 + -31.50000 -16.50000 0.0000000E+00 + -30.50000 -16.50000 0.0000000E+00 + -29.50000 -16.50000 0.0000000E+00 + -28.50000 -16.50000 0.0000000E+00 + -27.50000 -16.50000 0.0000000E+00 + -26.50000 -16.50000 0.0000000E+00 + -25.50000 -16.50000 0.0000000E+00 + -24.50000 -16.50000 0.0000000E+00 + -23.50000 -16.50000 0.0000000E+00 + -22.50000 -16.50000 0.0000000E+00 + -21.50000 -16.50000 0.0000000E+00 + -20.50000 -16.50000 0.0000000E+00 + -19.50000 -16.50000 0.0000000E+00 + -18.50000 -16.50000 0.0000000E+00 + -17.50000 -16.50000 0.0000000E+00 + -16.50000 -16.50000 0.0000000E+00 + -15.50000 -16.50000 0.0000000E+00 + -14.50000 -16.50000 0.0000000E+00 + -13.50000 -16.50000 0.0000000E+00 + -12.50000 -16.50000 0.0000000E+00 + -11.50000 -16.50000 0.0000000E+00 + -10.50000 -16.50000 0.0000000E+00 + -9.500000 -16.50000 0.0000000E+00 + -8.500000 -16.50000 0.0000000E+00 + -7.500000 -16.50000 0.0000000E+00 + -6.500000 -16.50000 0.0000000E+00 + -5.500000 -16.50000 0.0000000E+00 + -4.500000 -16.50000 0.0000000E+00 + -3.500000 -16.50000 0.0000000E+00 + -2.500000 -16.50000 0.0000000E+00 + -1.500000 -16.50000 0.0000000E+00 + -0.5000000 -16.50000 0.0000000E+00 + 0.5000000 -16.50000 0.0000000E+00 + 1.500000 -16.50000 0.0000000E+00 + 2.500000 -16.50000 0.0000000E+00 + 3.500000 -16.50000 0.0000000E+00 + 4.500000 -16.50000 0.0000000E+00 + 5.500000 -16.50000 0.0000000E+00 + 6.500000 -16.50000 0.0000000E+00 + 7.500000 -16.50000 0.0000000E+00 + 8.500000 -16.50000 0.0000000E+00 + 9.500000 -16.50000 0.0000000E+00 + 10.50000 -16.50000 0.0000000E+00 + 11.50000 -16.50000 0.0000000E+00 + 12.50000 -16.50000 0.0000000E+00 + 13.50000 -16.50000 0.0000000E+00 + 14.50000 -16.50000 0.0000000E+00 + 15.50000 -16.50000 0.0000000E+00 + 16.50000 -16.50000 0.0000000E+00 + 17.50000 -16.50000 0.0000000E+00 + 18.50000 -16.50000 0.0000000E+00 + 19.50000 -16.50000 0.0000000E+00 + 20.50000 -16.50000 0.0000000E+00 + 21.50000 -16.50000 8.1920013E-02 + 22.50000 -16.50000 0.0000000E+00 + 23.50000 -16.50000 0.0000000E+00 + 24.50000 -16.50000 0.0000000E+00 + 25.50000 -16.50000 0.0000000E+00 + 26.50000 -16.50000 0.0000000E+00 + 27.50000 -16.50000 0.0000000E+00 + 28.50000 -16.50000 0.0000000E+00 + 29.50000 -16.50000 0.0000000E+00 + 30.50000 -16.50000 0.0000000E+00 + 31.50000 -16.50000 0.0000000E+00 + 32.50000 -16.50000 0.0000000E+00 + 33.50000 -16.50000 0.0000000E+00 + 34.50000 -16.50000 0.0000000E+00 + 35.50000 -16.50000 0.0000000E+00 + 36.50000 -16.50000 0.0000000E+00 + 37.50000 -16.50000 0.0000000E+00 + 38.50000 -16.50000 0.0000000E+00 + 39.50000 -16.50000 0.0000000E+00 + 40.50000 -16.50000 0.0000000E+00 + 41.50000 -16.50000 0.0000000E+00 + 42.50000 -16.50000 0.0000000E+00 + 43.50000 -16.50000 0.0000000E+00 + 44.50000 -16.50000 0.0000000E+00 + 45.50000 -16.50000 0.0000000E+00 + 46.50000 -16.50000 0.0000000E+00 + 47.50000 -16.50000 0.0000000E+00 + 48.50000 -16.50000 0.0000000E+00 + 49.50000 -16.50000 0.0000000E+00 + 50.50000 -16.50000 0.0000000E+00 + 51.50000 -16.50000 0.0000000E+00 + 52.50000 -16.50000 0.0000000E+00 + 53.50000 -16.50000 0.0000000E+00 + 54.50000 -16.50000 0.0000000E+00 + 55.50000 -16.50000 0.0000000E+00 + 56.50000 -16.50000 0.0000000E+00 + 57.50000 -16.50000 0.0000000E+00 + 58.50000 -16.50000 0.0000000E+00 + 59.50000 -16.50000 0.0000000E+00 + 60.50000 -16.50000 0.0000000E+00 + 61.50000 -16.50000 0.0000000E+00 + 62.50000 -16.50000 0.0000000E+00 + 63.50000 -16.50000 0.0000000E+00 + 64.50000 -16.50000 0.0000000E+00 + 65.50000 -16.50000 0.0000000E+00 + 66.50000 -16.50000 0.0000000E+00 + 67.50000 -16.50000 0.0000000E+00 + 68.50000 -16.50000 0.0000000E+00 + 69.50000 -16.50000 0.0000000E+00 + 70.50000 -16.50000 0.0000000E+00 + 71.50000 -16.50000 0.0000000E+00 + 72.50000 -16.50000 0.0000000E+00 + 73.50000 -16.50000 0.0000000E+00 + 74.50000 -16.50000 0.0000000E+00 + 75.50000 -16.50000 0.0000000E+00 + 76.50000 -16.50000 0.0000000E+00 + 77.50000 -16.50000 0.0000000E+00 + 78.50000 -16.50000 0.0000000E+00 + 79.50000 -16.50000 0.0000000E+00 + 80.50000 -16.50000 0.0000000E+00 + 81.50000 -16.50000 0.0000000E+00 + 82.50000 -16.50000 0.0000000E+00 + 83.50000 -16.50000 0.0000000E+00 + 84.50000 -16.50000 0.0000000E+00 + 85.50000 -16.50000 0.0000000E+00 + 86.50000 -16.50000 0.0000000E+00 + 87.50000 -16.50000 0.0000000E+00 + 88.50000 -16.50000 0.0000000E+00 + 89.50000 -16.50000 0.0000000E+00 + -89.50000 -15.50000 0.0000000E+00 + -88.50000 -15.50000 0.0000000E+00 + -87.50000 -15.50000 0.0000000E+00 + -86.50000 -15.50000 0.0000000E+00 + -85.50000 -15.50000 0.0000000E+00 + -84.50000 -15.50000 0.0000000E+00 + -83.50000 -15.50000 0.0000000E+00 + -82.50000 -15.50000 0.0000000E+00 + -81.50000 -15.50000 0.0000000E+00 + -80.50000 -15.50000 0.0000000E+00 + -79.50000 -15.50000 0.0000000E+00 + -78.50000 -15.50000 0.0000000E+00 + -77.50000 -15.50000 0.0000000E+00 + -76.50000 -15.50000 0.0000000E+00 + -75.50000 -15.50000 0.0000000E+00 + -74.50000 -15.50000 0.0000000E+00 + -73.50000 -15.50000 0.0000000E+00 + -72.50000 -15.50000 0.0000000E+00 + -71.50000 -15.50000 0.0000000E+00 + -70.50000 -15.50000 0.0000000E+00 + -69.50000 -15.50000 0.0000000E+00 + -68.50000 -15.50000 0.0000000E+00 + -67.50000 -15.50000 0.0000000E+00 + -66.50000 -15.50000 0.0000000E+00 + -65.50000 -15.50000 0.0000000E+00 + -64.50000 -15.50000 0.0000000E+00 + -63.50000 -15.50000 0.0000000E+00 + -62.50000 -15.50000 0.0000000E+00 + -61.50000 -15.50000 0.0000000E+00 + -60.50000 -15.50000 0.0000000E+00 + -59.50000 -15.50000 0.0000000E+00 + -58.50000 -15.50000 0.0000000E+00 + -57.50000 -15.50000 0.0000000E+00 + -56.50000 -15.50000 0.0000000E+00 + -55.50000 -15.50000 0.0000000E+00 + -54.50000 -15.50000 0.0000000E+00 + -53.50000 -15.50000 0.0000000E+00 + -52.50000 -15.50000 0.0000000E+00 + -51.50000 -15.50000 0.0000000E+00 + -50.50000 -15.50000 0.0000000E+00 + -49.50000 -15.50000 0.0000000E+00 + -48.50000 -15.50000 0.0000000E+00 + -47.50000 -15.50000 0.0000000E+00 + -46.50000 -15.50000 0.0000000E+00 + -45.50000 -15.50000 0.0000000E+00 + -44.50000 -15.50000 0.0000000E+00 + -43.50000 -15.50000 0.0000000E+00 + -42.50000 -15.50000 0.0000000E+00 + -41.50000 -15.50000 0.0000000E+00 + -40.50000 -15.50000 0.0000000E+00 + -39.50000 -15.50000 0.0000000E+00 + -38.50000 -15.50000 0.0000000E+00 + -37.50000 -15.50000 0.0000000E+00 + -36.50000 -15.50000 0.0000000E+00 + -35.50000 -15.50000 0.0000000E+00 + -34.50000 -15.50000 0.0000000E+00 + -33.50000 -15.50000 0.0000000E+00 + -32.50000 -15.50000 0.0000000E+00 + -31.50000 -15.50000 0.0000000E+00 + -30.50000 -15.50000 0.0000000E+00 + -29.50000 -15.50000 0.0000000E+00 + -28.50000 -15.50000 0.0000000E+00 + -27.50000 -15.50000 0.0000000E+00 + -26.50000 -15.50000 0.0000000E+00 + -25.50000 -15.50000 0.0000000E+00 + -24.50000 -15.50000 0.0000000E+00 + -23.50000 -15.50000 0.0000000E+00 + -22.50000 -15.50000 0.0000000E+00 + -21.50000 -15.50000 0.0000000E+00 + -20.50000 -15.50000 0.0000000E+00 + -19.50000 -15.50000 0.0000000E+00 + -18.50000 -15.50000 0.0000000E+00 + -17.50000 -15.50000 0.0000000E+00 + -16.50000 -15.50000 0.0000000E+00 + -15.50000 -15.50000 0.0000000E+00 + -14.50000 -15.50000 0.0000000E+00 + -13.50000 -15.50000 0.0000000E+00 + -12.50000 -15.50000 0.0000000E+00 + -11.50000 -15.50000 0.0000000E+00 + -10.50000 -15.50000 0.0000000E+00 + -9.500000 -15.50000 0.0000000E+00 + -8.500000 -15.50000 0.0000000E+00 + -7.500000 -15.50000 0.0000000E+00 + -6.500000 -15.50000 0.0000000E+00 + -5.500000 -15.50000 0.0000000E+00 + -4.500000 -15.50000 0.0000000E+00 + -3.500000 -15.50000 0.0000000E+00 + -2.500000 -15.50000 0.0000000E+00 + -1.500000 -15.50000 0.0000000E+00 + -0.5000000 -15.50000 0.0000000E+00 + 0.5000000 -15.50000 0.0000000E+00 + 1.500000 -15.50000 0.0000000E+00 + 2.500000 -15.50000 0.0000000E+00 + 3.500000 -15.50000 0.0000000E+00 + 4.500000 -15.50000 0.0000000E+00 + 5.500000 -15.50000 0.0000000E+00 + 6.500000 -15.50000 0.0000000E+00 + 7.500000 -15.50000 0.0000000E+00 + 8.500000 -15.50000 0.0000000E+00 + 9.500000 -15.50000 0.0000000E+00 + 10.50000 -15.50000 0.0000000E+00 + 11.50000 -15.50000 0.0000000E+00 + 12.50000 -15.50000 0.0000000E+00 + 13.50000 -15.50000 0.0000000E+00 + 14.50000 -15.50000 0.0000000E+00 + 15.50000 -15.50000 0.0000000E+00 + 16.50000 -15.50000 3.3859354E-02 + 17.50000 -15.50000 3.3859354E-02 + 18.50000 -15.50000 0.1810491 + 19.50000 -15.50000 8.1920013E-02 + 20.50000 -15.50000 1.9440001E-02 + 21.50000 -15.50000 1.9440001E-02 + 22.50000 -15.50000 1.4231401E-02 + 23.50000 -15.50000 0.1476225 + 24.50000 -15.50000 0.0000000E+00 + 25.50000 -15.50000 0.0000000E+00 + 26.50000 -15.50000 0.0000000E+00 + 27.50000 -15.50000 0.0000000E+00 + 28.50000 -15.50000 0.0000000E+00 + 29.50000 -15.50000 0.0000000E+00 + 30.50000 -15.50000 0.0000000E+00 + 31.50000 -15.50000 0.0000000E+00 + 32.50000 -15.50000 0.0000000E+00 + 33.50000 -15.50000 0.0000000E+00 + 34.50000 -15.50000 0.0000000E+00 + 35.50000 -15.50000 0.0000000E+00 + 36.50000 -15.50000 0.0000000E+00 + 37.50000 -15.50000 0.0000000E+00 + 38.50000 -15.50000 0.0000000E+00 + 39.50000 -15.50000 0.0000000E+00 + 40.50000 -15.50000 0.0000000E+00 + 41.50000 -15.50000 0.0000000E+00 + 42.50000 -15.50000 0.0000000E+00 + 43.50000 -15.50000 0.0000000E+00 + 44.50000 -15.50000 0.0000000E+00 + 45.50000 -15.50000 0.0000000E+00 + 46.50000 -15.50000 0.0000000E+00 + 47.50000 -15.50000 0.0000000E+00 + 48.50000 -15.50000 0.0000000E+00 + 49.50000 -15.50000 0.0000000E+00 + 50.50000 -15.50000 0.0000000E+00 + 51.50000 -15.50000 0.0000000E+00 + 52.50000 -15.50000 0.0000000E+00 + 53.50000 -15.50000 0.0000000E+00 + 54.50000 -15.50000 0.0000000E+00 + 55.50000 -15.50000 0.0000000E+00 + 56.50000 -15.50000 0.0000000E+00 + 57.50000 -15.50000 0.0000000E+00 + 58.50000 -15.50000 0.0000000E+00 + 59.50000 -15.50000 0.0000000E+00 + 60.50000 -15.50000 0.0000000E+00 + 61.50000 -15.50000 0.0000000E+00 + 62.50000 -15.50000 0.0000000E+00 + 63.50000 -15.50000 0.0000000E+00 + 64.50000 -15.50000 0.0000000E+00 + 65.50000 -15.50000 0.0000000E+00 + 66.50000 -15.50000 0.0000000E+00 + 67.50000 -15.50000 0.0000000E+00 + 68.50000 -15.50000 0.0000000E+00 + 69.50000 -15.50000 0.0000000E+00 + 70.50000 -15.50000 0.0000000E+00 + 71.50000 -15.50000 0.0000000E+00 + 72.50000 -15.50000 0.0000000E+00 + 73.50000 -15.50000 0.0000000E+00 + 74.50000 -15.50000 0.0000000E+00 + 75.50000 -15.50000 0.0000000E+00 + 76.50000 -15.50000 0.0000000E+00 + 77.50000 -15.50000 0.0000000E+00 + 78.50000 -15.50000 0.0000000E+00 + 79.50000 -15.50000 0.0000000E+00 + 80.50000 -15.50000 0.0000000E+00 + 81.50000 -15.50000 0.0000000E+00 + 82.50000 -15.50000 0.0000000E+00 + 83.50000 -15.50000 0.0000000E+00 + 84.50000 -15.50000 0.0000000E+00 + 85.50000 -15.50000 0.0000000E+00 + 86.50000 -15.50000 0.0000000E+00 + 87.50000 -15.50000 0.0000000E+00 + 88.50000 -15.50000 0.0000000E+00 + 89.50000 -15.50000 0.0000000E+00 + -89.50000 -14.50000 0.0000000E+00 + -88.50000 -14.50000 0.0000000E+00 + -87.50000 -14.50000 0.0000000E+00 + -86.50000 -14.50000 0.0000000E+00 + -85.50000 -14.50000 0.0000000E+00 + -84.50000 -14.50000 0.0000000E+00 + -83.50000 -14.50000 0.0000000E+00 + -82.50000 -14.50000 0.0000000E+00 + -81.50000 -14.50000 0.0000000E+00 + -80.50000 -14.50000 0.0000000E+00 + -79.50000 -14.50000 0.0000000E+00 + -78.50000 -14.50000 0.0000000E+00 + -77.50000 -14.50000 0.0000000E+00 + -76.50000 -14.50000 0.0000000E+00 + -75.50000 -14.50000 0.0000000E+00 + -74.50000 -14.50000 0.0000000E+00 + -73.50000 -14.50000 0.0000000E+00 + -72.50000 -14.50000 0.0000000E+00 + -71.50000 -14.50000 0.0000000E+00 + -70.50000 -14.50000 0.0000000E+00 + -69.50000 -14.50000 0.0000000E+00 + -68.50000 -14.50000 0.0000000E+00 + -67.50000 -14.50000 0.0000000E+00 + -66.50000 -14.50000 0.0000000E+00 + -65.50000 -14.50000 0.0000000E+00 + -64.50000 -14.50000 0.0000000E+00 + -63.50000 -14.50000 0.0000000E+00 + -62.50000 -14.50000 0.0000000E+00 + -61.50000 -14.50000 0.0000000E+00 + -60.50000 -14.50000 0.0000000E+00 + -59.50000 -14.50000 0.0000000E+00 + -58.50000 -14.50000 0.0000000E+00 + -57.50000 -14.50000 0.0000000E+00 + -56.50000 -14.50000 0.0000000E+00 + -55.50000 -14.50000 0.0000000E+00 + -54.50000 -14.50000 0.0000000E+00 + -53.50000 -14.50000 0.0000000E+00 + -52.50000 -14.50000 0.0000000E+00 + -51.50000 -14.50000 0.0000000E+00 + -50.50000 -14.50000 0.0000000E+00 + -49.50000 -14.50000 0.0000000E+00 + -48.50000 -14.50000 0.0000000E+00 + -47.50000 -14.50000 0.0000000E+00 + -46.50000 -14.50000 0.0000000E+00 + -45.50000 -14.50000 0.0000000E+00 + -44.50000 -14.50000 0.0000000E+00 + -43.50000 -14.50000 0.0000000E+00 + -42.50000 -14.50000 0.0000000E+00 + -41.50000 -14.50000 0.0000000E+00 + -40.50000 -14.50000 0.0000000E+00 + -39.50000 -14.50000 0.0000000E+00 + -38.50000 -14.50000 0.0000000E+00 + -37.50000 -14.50000 0.0000000E+00 + -36.50000 -14.50000 0.0000000E+00 + -35.50000 -14.50000 0.0000000E+00 + -34.50000 -14.50000 0.0000000E+00 + -33.50000 -14.50000 0.0000000E+00 + -32.50000 -14.50000 0.0000000E+00 + -31.50000 -14.50000 0.0000000E+00 + -30.50000 -14.50000 0.0000000E+00 + -29.50000 -14.50000 0.0000000E+00 + -28.50000 -14.50000 0.0000000E+00 + -27.50000 -14.50000 0.0000000E+00 + -26.50000 -14.50000 0.0000000E+00 + -25.50000 -14.50000 0.0000000E+00 + -24.50000 -14.50000 0.0000000E+00 + -23.50000 -14.50000 0.0000000E+00 + -22.50000 -14.50000 0.0000000E+00 + -21.50000 -14.50000 0.0000000E+00 + -20.50000 -14.50000 0.0000000E+00 + -19.50000 -14.50000 0.0000000E+00 + -18.50000 -14.50000 0.0000000E+00 + -17.50000 -14.50000 0.0000000E+00 + -16.50000 -14.50000 0.0000000E+00 + -15.50000 -14.50000 0.0000000E+00 + -14.50000 -14.50000 0.0000000E+00 + -13.50000 -14.50000 0.0000000E+00 + -12.50000 -14.50000 0.0000000E+00 + -11.50000 -14.50000 0.0000000E+00 + -10.50000 -14.50000 0.0000000E+00 + -9.500000 -14.50000 0.0000000E+00 + -8.500000 -14.50000 0.0000000E+00 + -7.500000 -14.50000 0.0000000E+00 + -6.500000 -14.50000 0.0000000E+00 + -5.500000 -14.50000 0.0000000E+00 + -4.500000 -14.50000 0.0000000E+00 + -3.500000 -14.50000 0.0000000E+00 + -2.500000 -14.50000 0.0000000E+00 + -1.500000 -14.50000 0.0000000E+00 + -0.5000000 -14.50000 0.0000000E+00 + 0.5000000 -14.50000 0.0000000E+00 + 1.500000 -14.50000 0.0000000E+00 + 2.500000 -14.50000 0.0000000E+00 + 3.500000 -14.50000 0.0000000E+00 + 4.500000 -14.50000 0.0000000E+00 + 5.500000 -14.50000 0.0000000E+00 + 6.500000 -14.50000 0.0000000E+00 + 7.500000 -14.50000 0.0000000E+00 + 8.500000 -14.50000 0.0000000E+00 + 9.500000 -14.50000 0.0000000E+00 + 10.50000 -14.50000 0.0000000E+00 + 11.50000 -14.50000 0.0000000E+00 + 12.50000 -14.50000 0.0000000E+00 + 13.50000 -14.50000 0.0000000E+00 + 14.50000 -14.50000 0.0000000E+00 + 15.50000 -14.50000 0.0000000E+00 + 16.50000 -14.50000 2.5645448E-02 + 17.50000 -14.50000 0.1282272 + 18.50000 -14.50000 0.1282272 + 19.50000 -14.50000 1.9440001E-02 + 20.50000 -14.50000 1.9440001E-02 + 21.50000 -14.50000 2.5600004E-03 + 22.50000 -14.50000 6.5843635E-03 + 23.50000 -14.50000 0.1433562 + 24.50000 -14.50000 0.1907808 + 25.50000 -14.50000 0.0000000E+00 + 26.50000 -14.50000 0.0000000E+00 + 27.50000 -14.50000 0.0000000E+00 + 28.50000 -14.50000 0.0000000E+00 + 29.50000 -14.50000 0.0000000E+00 + 30.50000 -14.50000 0.0000000E+00 + 31.50000 -14.50000 0.0000000E+00 + 32.50000 -14.50000 0.0000000E+00 + 33.50000 -14.50000 0.0000000E+00 + 34.50000 -14.50000 0.0000000E+00 + 35.50000 -14.50000 0.0000000E+00 + 36.50000 -14.50000 0.0000000E+00 + 37.50000 -14.50000 0.0000000E+00 + 38.50000 -14.50000 0.0000000E+00 + 39.50000 -14.50000 0.0000000E+00 + 40.50000 -14.50000 0.0000000E+00 + 41.50000 -14.50000 0.0000000E+00 + 42.50000 -14.50000 0.0000000E+00 + 43.50000 -14.50000 0.0000000E+00 + 44.50000 -14.50000 0.0000000E+00 + 45.50000 -14.50000 0.0000000E+00 + 46.50000 -14.50000 0.0000000E+00 + 47.50000 -14.50000 0.0000000E+00 + 48.50000 -14.50000 0.0000000E+00 + 49.50000 -14.50000 0.0000000E+00 + 50.50000 -14.50000 0.0000000E+00 + 51.50000 -14.50000 0.0000000E+00 + 52.50000 -14.50000 0.0000000E+00 + 53.50000 -14.50000 0.0000000E+00 + 54.50000 -14.50000 0.0000000E+00 + 55.50000 -14.50000 0.0000000E+00 + 56.50000 -14.50000 0.0000000E+00 + 57.50000 -14.50000 0.0000000E+00 + 58.50000 -14.50000 0.0000000E+00 + 59.50000 -14.50000 0.0000000E+00 + 60.50000 -14.50000 0.0000000E+00 + 61.50000 -14.50000 0.0000000E+00 + 62.50000 -14.50000 0.0000000E+00 + 63.50000 -14.50000 0.0000000E+00 + 64.50000 -14.50000 0.0000000E+00 + 65.50000 -14.50000 0.0000000E+00 + 66.50000 -14.50000 0.0000000E+00 + 67.50000 -14.50000 0.0000000E+00 + 68.50000 -14.50000 0.0000000E+00 + 69.50000 -14.50000 0.0000000E+00 + 70.50000 -14.50000 0.0000000E+00 + 71.50000 -14.50000 0.0000000E+00 + 72.50000 -14.50000 0.0000000E+00 + 73.50000 -14.50000 0.0000000E+00 + 74.50000 -14.50000 0.0000000E+00 + 75.50000 -14.50000 0.0000000E+00 + 76.50000 -14.50000 0.0000000E+00 + 77.50000 -14.50000 0.0000000E+00 + 78.50000 -14.50000 0.0000000E+00 + 79.50000 -14.50000 0.0000000E+00 + 80.50000 -14.50000 0.0000000E+00 + 81.50000 -14.50000 0.0000000E+00 + 82.50000 -14.50000 0.0000000E+00 + 83.50000 -14.50000 0.0000000E+00 + 84.50000 -14.50000 0.0000000E+00 + 85.50000 -14.50000 0.0000000E+00 + 86.50000 -14.50000 0.0000000E+00 + 87.50000 -14.50000 0.0000000E+00 + 88.50000 -14.50000 0.0000000E+00 + 89.50000 -14.50000 0.0000000E+00 + -89.50000 -13.50000 0.0000000E+00 + -88.50000 -13.50000 0.0000000E+00 + -87.50000 -13.50000 0.0000000E+00 + -86.50000 -13.50000 0.0000000E+00 + -85.50000 -13.50000 0.0000000E+00 + -84.50000 -13.50000 0.0000000E+00 + -83.50000 -13.50000 0.0000000E+00 + -82.50000 -13.50000 0.0000000E+00 + -81.50000 -13.50000 0.0000000E+00 + -80.50000 -13.50000 0.0000000E+00 + -79.50000 -13.50000 0.0000000E+00 + -78.50000 -13.50000 0.0000000E+00 + -77.50000 -13.50000 0.0000000E+00 + -76.50000 -13.50000 0.0000000E+00 + -75.50000 -13.50000 0.0000000E+00 + -74.50000 -13.50000 0.0000000E+00 + -73.50000 -13.50000 0.0000000E+00 + -72.50000 -13.50000 0.0000000E+00 + -71.50000 -13.50000 0.0000000E+00 + -70.50000 -13.50000 0.0000000E+00 + -69.50000 -13.50000 0.0000000E+00 + -68.50000 -13.50000 0.0000000E+00 + -67.50000 -13.50000 0.0000000E+00 + -66.50000 -13.50000 0.0000000E+00 + -65.50000 -13.50000 0.0000000E+00 + -64.50000 -13.50000 0.0000000E+00 + -63.50000 -13.50000 0.0000000E+00 + -62.50000 -13.50000 0.0000000E+00 + -61.50000 -13.50000 0.0000000E+00 + -60.50000 -13.50000 0.0000000E+00 + -59.50000 -13.50000 0.0000000E+00 + -58.50000 -13.50000 0.0000000E+00 + -57.50000 -13.50000 0.0000000E+00 + -56.50000 -13.50000 0.0000000E+00 + -55.50000 -13.50000 0.0000000E+00 + -54.50000 -13.50000 0.0000000E+00 + -53.50000 -13.50000 0.0000000E+00 + -52.50000 -13.50000 0.0000000E+00 + -51.50000 -13.50000 0.0000000E+00 + -50.50000 -13.50000 0.0000000E+00 + -49.50000 -13.50000 0.0000000E+00 + -48.50000 -13.50000 0.0000000E+00 + -47.50000 -13.50000 0.0000000E+00 + -46.50000 -13.50000 0.0000000E+00 + -45.50000 -13.50000 0.0000000E+00 + -44.50000 -13.50000 0.0000000E+00 + -43.50000 -13.50000 0.0000000E+00 + -42.50000 -13.50000 0.0000000E+00 + -41.50000 -13.50000 0.0000000E+00 + -40.50000 -13.50000 0.0000000E+00 + -39.50000 -13.50000 0.0000000E+00 + -38.50000 -13.50000 0.0000000E+00 + -37.50000 -13.50000 0.0000000E+00 + -36.50000 -13.50000 0.0000000E+00 + -35.50000 -13.50000 0.0000000E+00 + -34.50000 -13.50000 0.0000000E+00 + -33.50000 -13.50000 0.0000000E+00 + -32.50000 -13.50000 0.0000000E+00 + -31.50000 -13.50000 0.0000000E+00 + -30.50000 -13.50000 0.0000000E+00 + -29.50000 -13.50000 0.0000000E+00 + -28.50000 -13.50000 0.0000000E+00 + -27.50000 -13.50000 0.0000000E+00 + -26.50000 -13.50000 0.0000000E+00 + -25.50000 -13.50000 0.0000000E+00 + -24.50000 -13.50000 0.0000000E+00 + -23.50000 -13.50000 0.0000000E+00 + -22.50000 -13.50000 0.0000000E+00 + -21.50000 -13.50000 0.0000000E+00 + -20.50000 -13.50000 0.0000000E+00 + -19.50000 -13.50000 0.0000000E+00 + -18.50000 -13.50000 0.0000000E+00 + -17.50000 -13.50000 0.0000000E+00 + -16.50000 -13.50000 0.0000000E+00 + -15.50000 -13.50000 0.0000000E+00 + -14.50000 -13.50000 0.0000000E+00 + -13.50000 -13.50000 0.0000000E+00 + -12.50000 -13.50000 0.0000000E+00 + -11.50000 -13.50000 0.0000000E+00 + -10.50000 -13.50000 0.0000000E+00 + -9.500000 -13.50000 0.0000000E+00 + -8.500000 -13.50000 0.0000000E+00 + -7.500000 -13.50000 0.0000000E+00 + -6.500000 -13.50000 0.0000000E+00 + -5.500000 -13.50000 0.0000000E+00 + -4.500000 -13.50000 0.0000000E+00 + -3.500000 -13.50000 0.0000000E+00 + -2.500000 -13.50000 0.0000000E+00 + -1.500000 -13.50000 0.0000000E+00 + -0.5000000 -13.50000 0.0000000E+00 + 0.5000000 -13.50000 0.0000000E+00 + 1.500000 -13.50000 0.0000000E+00 + 2.500000 -13.50000 0.0000000E+00 + 3.500000 -13.50000 0.0000000E+00 + 4.500000 -13.50000 0.0000000E+00 + 5.500000 -13.50000 0.0000000E+00 + 6.500000 -13.50000 0.0000000E+00 + 7.500000 -13.50000 0.0000000E+00 + 8.500000 -13.50000 0.0000000E+00 + 9.500000 -13.50000 0.0000000E+00 + 10.50000 -13.50000 0.0000000E+00 + 11.50000 -13.50000 0.0000000E+00 + 12.50000 -13.50000 0.0000000E+00 + 13.50000 -13.50000 0.0000000E+00 + 14.50000 -13.50000 0.0000000E+00 + 15.50000 -13.50000 0.0000000E+00 + 16.50000 -13.50000 2.5645448E-02 + 17.50000 -13.50000 5.9326172E-02 + 18.50000 -13.50000 5.9326172E-02 + 19.50000 -13.50000 2.5600004E-03 + 20.50000 -13.50000 2.5600004E-03 + 21.50000 -13.50000 2.5600004E-03 + 22.50000 -13.50000 3.2921817E-02 + 23.50000 -13.50000 2.8671244E-02 + 24.50000 -13.50000 3.2954078E-02 + 25.50000 -13.50000 0.2038432 + 26.50000 -13.50000 0.2259802 + 27.50000 -13.50000 0.0000000E+00 + 28.50000 -13.50000 0.0000000E+00 + 29.50000 -13.50000 0.0000000E+00 + 30.50000 -13.50000 0.0000000E+00 + 31.50000 -13.50000 0.0000000E+00 + 32.50000 -13.50000 0.0000000E+00 + 33.50000 -13.50000 0.0000000E+00 + 34.50000 -13.50000 0.0000000E+00 + 35.50000 -13.50000 0.0000000E+00 + 36.50000 -13.50000 0.0000000E+00 + 37.50000 -13.50000 0.0000000E+00 + 38.50000 -13.50000 0.0000000E+00 + 39.50000 -13.50000 0.0000000E+00 + 40.50000 -13.50000 0.0000000E+00 + 41.50000 -13.50000 0.0000000E+00 + 42.50000 -13.50000 0.0000000E+00 + 43.50000 -13.50000 0.0000000E+00 + 44.50000 -13.50000 0.0000000E+00 + 45.50000 -13.50000 0.0000000E+00 + 46.50000 -13.50000 0.0000000E+00 + 47.50000 -13.50000 0.0000000E+00 + 48.50000 -13.50000 0.0000000E+00 + 49.50000 -13.50000 0.0000000E+00 + 50.50000 -13.50000 0.0000000E+00 + 51.50000 -13.50000 0.0000000E+00 + 52.50000 -13.50000 0.0000000E+00 + 53.50000 -13.50000 0.0000000E+00 + 54.50000 -13.50000 0.0000000E+00 + 55.50000 -13.50000 0.0000000E+00 + 56.50000 -13.50000 0.0000000E+00 + 57.50000 -13.50000 0.0000000E+00 + 58.50000 -13.50000 0.0000000E+00 + 59.50000 -13.50000 0.0000000E+00 + 60.50000 -13.50000 0.0000000E+00 + 61.50000 -13.50000 0.0000000E+00 + 62.50000 -13.50000 0.0000000E+00 + 63.50000 -13.50000 0.0000000E+00 + 64.50000 -13.50000 0.0000000E+00 + 65.50000 -13.50000 0.0000000E+00 + 66.50000 -13.50000 0.0000000E+00 + 67.50000 -13.50000 0.0000000E+00 + 68.50000 -13.50000 0.0000000E+00 + 69.50000 -13.50000 0.0000000E+00 + 70.50000 -13.50000 0.0000000E+00 + 71.50000 -13.50000 0.0000000E+00 + 72.50000 -13.50000 0.0000000E+00 + 73.50000 -13.50000 0.0000000E+00 + 74.50000 -13.50000 0.0000000E+00 + 75.50000 -13.50000 0.0000000E+00 + 76.50000 -13.50000 0.0000000E+00 + 77.50000 -13.50000 0.0000000E+00 + 78.50000 -13.50000 0.0000000E+00 + 79.50000 -13.50000 0.0000000E+00 + 80.50000 -13.50000 0.0000000E+00 + 81.50000 -13.50000 0.0000000E+00 + 82.50000 -13.50000 0.0000000E+00 + 83.50000 -13.50000 0.0000000E+00 + 84.50000 -13.50000 0.0000000E+00 + 85.50000 -13.50000 0.0000000E+00 + 86.50000 -13.50000 0.0000000E+00 + 87.50000 -13.50000 0.0000000E+00 + 88.50000 -13.50000 0.0000000E+00 + 89.50000 -13.50000 0.0000000E+00 + -89.50000 -12.50000 0.0000000E+00 + -88.50000 -12.50000 0.0000000E+00 + -87.50000 -12.50000 0.0000000E+00 + -86.50000 -12.50000 0.0000000E+00 + -85.50000 -12.50000 0.0000000E+00 + -84.50000 -12.50000 0.0000000E+00 + -83.50000 -12.50000 0.0000000E+00 + -82.50000 -12.50000 0.0000000E+00 + -81.50000 -12.50000 0.0000000E+00 + -80.50000 -12.50000 0.0000000E+00 + -79.50000 -12.50000 0.0000000E+00 + -78.50000 -12.50000 0.0000000E+00 + -77.50000 -12.50000 0.0000000E+00 + -76.50000 -12.50000 0.0000000E+00 + -75.50000 -12.50000 0.0000000E+00 + -74.50000 -12.50000 0.0000000E+00 + -73.50000 -12.50000 0.0000000E+00 + -72.50000 -12.50000 0.0000000E+00 + -71.50000 -12.50000 0.0000000E+00 + -70.50000 -12.50000 0.0000000E+00 + -69.50000 -12.50000 0.0000000E+00 + -68.50000 -12.50000 0.0000000E+00 + -67.50000 -12.50000 0.0000000E+00 + -66.50000 -12.50000 0.0000000E+00 + -65.50000 -12.50000 0.0000000E+00 + -64.50000 -12.50000 0.0000000E+00 + -63.50000 -12.50000 0.0000000E+00 + -62.50000 -12.50000 0.0000000E+00 + -61.50000 -12.50000 0.0000000E+00 + -60.50000 -12.50000 0.0000000E+00 + -59.50000 -12.50000 0.0000000E+00 + -58.50000 -12.50000 0.0000000E+00 + -57.50000 -12.50000 0.0000000E+00 + -56.50000 -12.50000 0.0000000E+00 + -55.50000 -12.50000 0.0000000E+00 + -54.50000 -12.50000 0.0000000E+00 + -53.50000 -12.50000 0.0000000E+00 + -52.50000 -12.50000 0.0000000E+00 + -51.50000 -12.50000 0.0000000E+00 + -50.50000 -12.50000 0.0000000E+00 + -49.50000 -12.50000 0.0000000E+00 + -48.50000 -12.50000 0.0000000E+00 + -47.50000 -12.50000 0.0000000E+00 + -46.50000 -12.50000 0.0000000E+00 + -45.50000 -12.50000 0.0000000E+00 + -44.50000 -12.50000 0.0000000E+00 + -43.50000 -12.50000 0.0000000E+00 + -42.50000 -12.50000 0.0000000E+00 + -41.50000 -12.50000 0.0000000E+00 + -40.50000 -12.50000 0.0000000E+00 + -39.50000 -12.50000 0.0000000E+00 + -38.50000 -12.50000 0.0000000E+00 + -37.50000 -12.50000 0.0000000E+00 + -36.50000 -12.50000 0.0000000E+00 + -35.50000 -12.50000 0.0000000E+00 + -34.50000 -12.50000 0.0000000E+00 + -33.50000 -12.50000 0.0000000E+00 + -32.50000 -12.50000 0.0000000E+00 + -31.50000 -12.50000 0.0000000E+00 + -30.50000 -12.50000 0.0000000E+00 + -29.50000 -12.50000 0.0000000E+00 + -28.50000 -12.50000 0.0000000E+00 + -27.50000 -12.50000 0.0000000E+00 + -26.50000 -12.50000 0.0000000E+00 + -25.50000 -12.50000 0.0000000E+00 + -24.50000 -12.50000 0.0000000E+00 + -23.50000 -12.50000 0.0000000E+00 + -22.50000 -12.50000 0.0000000E+00 + -21.50000 -12.50000 0.0000000E+00 + -20.50000 -12.50000 0.0000000E+00 + -19.50000 -12.50000 0.0000000E+00 + -18.50000 -12.50000 0.0000000E+00 + -17.50000 -12.50000 0.0000000E+00 + -16.50000 -12.50000 0.0000000E+00 + -15.50000 -12.50000 0.0000000E+00 + -14.50000 -12.50000 0.0000000E+00 + -13.50000 -12.50000 0.0000000E+00 + -12.50000 -12.50000 0.0000000E+00 + -11.50000 -12.50000 0.0000000E+00 + -10.50000 -12.50000 0.0000000E+00 + -9.500000 -12.50000 0.0000000E+00 + -8.500000 -12.50000 0.0000000E+00 + -7.500000 -12.50000 0.0000000E+00 + -6.500000 -12.50000 0.0000000E+00 + -5.500000 -12.50000 0.0000000E+00 + -4.500000 -12.50000 0.0000000E+00 + -3.500000 -12.50000 0.0000000E+00 + -2.500000 -12.50000 0.0000000E+00 + -1.500000 -12.50000 0.0000000E+00 + -0.5000000 -12.50000 0.0000000E+00 + 0.5000000 -12.50000 0.0000000E+00 + 1.500000 -12.50000 0.0000000E+00 + 2.500000 -12.50000 0.0000000E+00 + 3.500000 -12.50000 0.0000000E+00 + 4.500000 -12.50000 0.0000000E+00 + 5.500000 -12.50000 0.0000000E+00 + 6.500000 -12.50000 0.0000000E+00 + 7.500000 -12.50000 0.0000000E+00 + 8.500000 -12.50000 0.0000000E+00 + 9.500000 -12.50000 0.0000000E+00 + 10.50000 -12.50000 0.0000000E+00 + 11.50000 -12.50000 0.0000000E+00 + 12.50000 -12.50000 0.0000000E+00 + 13.50000 -12.50000 0.0000000E+00 + 14.50000 -12.50000 0.0000000E+00 + 15.50000 -12.50000 0.0000000E+00 + 16.50000 -12.50000 1.1865235E-02 + 17.50000 -12.50000 5.9326172E-02 + 18.50000 -12.50000 5.9326172E-02 + 19.50000 -12.50000 2.5600004E-03 + 20.50000 -12.50000 8.0000013E-05 + 21.50000 -12.50000 8.0000013E-05 + 22.50000 -12.50000 3.2921817E-02 + 23.50000 -12.50000 2.1173954E-02 + 24.50000 -12.50000 0.1319330 + 25.50000 -12.50000 0.1647704 + 26.50000 -12.50000 0.2038432 + 27.50000 -12.50000 0.1647704 + 28.50000 -12.50000 0.0000000E+00 + 29.50000 -12.50000 0.0000000E+00 + 30.50000 -12.50000 0.0000000E+00 + 31.50000 -12.50000 0.0000000E+00 + 32.50000 -12.50000 0.0000000E+00 + 33.50000 -12.50000 0.0000000E+00 + 34.50000 -12.50000 0.0000000E+00 + 35.50000 -12.50000 0.0000000E+00 + 36.50000 -12.50000 0.0000000E+00 + 37.50000 -12.50000 0.0000000E+00 + 38.50000 -12.50000 0.0000000E+00 + 39.50000 -12.50000 0.0000000E+00 + 40.50000 -12.50000 0.0000000E+00 + 41.50000 -12.50000 0.0000000E+00 + 42.50000 -12.50000 0.0000000E+00 + 43.50000 -12.50000 0.0000000E+00 + 44.50000 -12.50000 0.0000000E+00 + 45.50000 -12.50000 0.0000000E+00 + 46.50000 -12.50000 0.0000000E+00 + 47.50000 -12.50000 0.0000000E+00 + 48.50000 -12.50000 0.0000000E+00 + 49.50000 -12.50000 0.0000000E+00 + 50.50000 -12.50000 0.0000000E+00 + 51.50000 -12.50000 0.0000000E+00 + 52.50000 -12.50000 0.0000000E+00 + 53.50000 -12.50000 0.0000000E+00 + 54.50000 -12.50000 0.0000000E+00 + 55.50000 -12.50000 0.0000000E+00 + 56.50000 -12.50000 0.0000000E+00 + 57.50000 -12.50000 0.0000000E+00 + 58.50000 -12.50000 0.0000000E+00 + 59.50000 -12.50000 0.0000000E+00 + 60.50000 -12.50000 0.0000000E+00 + 61.50000 -12.50000 0.0000000E+00 + 62.50000 -12.50000 0.0000000E+00 + 63.50000 -12.50000 0.0000000E+00 + 64.50000 -12.50000 0.0000000E+00 + 65.50000 -12.50000 0.0000000E+00 + 66.50000 -12.50000 0.0000000E+00 + 67.50000 -12.50000 0.0000000E+00 + 68.50000 -12.50000 0.0000000E+00 + 69.50000 -12.50000 0.0000000E+00 + 70.50000 -12.50000 0.0000000E+00 + 71.50000 -12.50000 0.0000000E+00 + 72.50000 -12.50000 0.0000000E+00 + 73.50000 -12.50000 0.0000000E+00 + 74.50000 -12.50000 0.0000000E+00 + 75.50000 -12.50000 0.0000000E+00 + 76.50000 -12.50000 0.0000000E+00 + 77.50000 -12.50000 0.0000000E+00 + 78.50000 -12.50000 0.0000000E+00 + 79.50000 -12.50000 0.0000000E+00 + 80.50000 -12.50000 0.0000000E+00 + 81.50000 -12.50000 0.0000000E+00 + 82.50000 -12.50000 0.0000000E+00 + 83.50000 -12.50000 0.0000000E+00 + 84.50000 -12.50000 0.0000000E+00 + 85.50000 -12.50000 0.0000000E+00 + 86.50000 -12.50000 0.0000000E+00 + 87.50000 -12.50000 0.0000000E+00 + 88.50000 -12.50000 0.0000000E+00 + 89.50000 -12.50000 0.0000000E+00 + -89.50000 -11.50000 0.0000000E+00 + -88.50000 -11.50000 0.0000000E+00 + -87.50000 -11.50000 0.0000000E+00 + -86.50000 -11.50000 0.0000000E+00 + -85.50000 -11.50000 0.0000000E+00 + -84.50000 -11.50000 0.0000000E+00 + -83.50000 -11.50000 0.0000000E+00 + -82.50000 -11.50000 0.0000000E+00 + -81.50000 -11.50000 0.0000000E+00 + -80.50000 -11.50000 0.0000000E+00 + -79.50000 -11.50000 0.0000000E+00 + -78.50000 -11.50000 0.0000000E+00 + -77.50000 -11.50000 0.0000000E+00 + -76.50000 -11.50000 0.0000000E+00 + -75.50000 -11.50000 0.0000000E+00 + -74.50000 -11.50000 0.0000000E+00 + -73.50000 -11.50000 0.0000000E+00 + -72.50000 -11.50000 0.0000000E+00 + -71.50000 -11.50000 0.0000000E+00 + -70.50000 -11.50000 0.0000000E+00 + -69.50000 -11.50000 0.0000000E+00 + -68.50000 -11.50000 0.0000000E+00 + -67.50000 -11.50000 0.0000000E+00 + -66.50000 -11.50000 0.0000000E+00 + -65.50000 -11.50000 0.0000000E+00 + -64.50000 -11.50000 0.0000000E+00 + -63.50000 -11.50000 0.0000000E+00 + -62.50000 -11.50000 0.0000000E+00 + -61.50000 -11.50000 0.0000000E+00 + -60.50000 -11.50000 0.0000000E+00 + -59.50000 -11.50000 0.0000000E+00 + -58.50000 -11.50000 0.0000000E+00 + -57.50000 -11.50000 0.0000000E+00 + -56.50000 -11.50000 0.0000000E+00 + -55.50000 -11.50000 0.0000000E+00 + -54.50000 -11.50000 0.0000000E+00 + -53.50000 -11.50000 0.0000000E+00 + -52.50000 -11.50000 0.0000000E+00 + -51.50000 -11.50000 0.0000000E+00 + -50.50000 -11.50000 0.0000000E+00 + -49.50000 -11.50000 0.0000000E+00 + -48.50000 -11.50000 0.0000000E+00 + -47.50000 -11.50000 0.0000000E+00 + -46.50000 -11.50000 0.0000000E+00 + -45.50000 -11.50000 0.0000000E+00 + -44.50000 -11.50000 0.0000000E+00 + -43.50000 -11.50000 0.0000000E+00 + -42.50000 -11.50000 0.0000000E+00 + -41.50000 -11.50000 0.0000000E+00 + -40.50000 -11.50000 0.0000000E+00 + -39.50000 -11.50000 0.0000000E+00 + -38.50000 -11.50000 0.0000000E+00 + -37.50000 -11.50000 0.0000000E+00 + -36.50000 -11.50000 0.0000000E+00 + -35.50000 -11.50000 0.0000000E+00 + -34.50000 -11.50000 0.0000000E+00 + -33.50000 -11.50000 0.0000000E+00 + -32.50000 -11.50000 0.0000000E+00 + -31.50000 -11.50000 0.0000000E+00 + -30.50000 -11.50000 0.0000000E+00 + -29.50000 -11.50000 0.0000000E+00 + -28.50000 -11.50000 0.0000000E+00 + -27.50000 -11.50000 0.0000000E+00 + -26.50000 -11.50000 0.0000000E+00 + -25.50000 -11.50000 0.0000000E+00 + -24.50000 -11.50000 0.0000000E+00 + -23.50000 -11.50000 0.0000000E+00 + -22.50000 -11.50000 0.0000000E+00 + -21.50000 -11.50000 0.0000000E+00 + -20.50000 -11.50000 0.0000000E+00 + -19.50000 -11.50000 0.0000000E+00 + -18.50000 -11.50000 0.0000000E+00 + -17.50000 -11.50000 0.0000000E+00 + -16.50000 -11.50000 0.0000000E+00 + -15.50000 -11.50000 0.0000000E+00 + -14.50000 -11.50000 0.0000000E+00 + -13.50000 -11.50000 0.0000000E+00 + -12.50000 -11.50000 0.0000000E+00 + -11.50000 -11.50000 0.0000000E+00 + -10.50000 -11.50000 0.0000000E+00 + -9.500000 -11.50000 0.0000000E+00 + -8.500000 -11.50000 0.0000000E+00 + -7.500000 -11.50000 0.0000000E+00 + -6.500000 -11.50000 0.0000000E+00 + -5.500000 -11.50000 0.0000000E+00 + -4.500000 -11.50000 0.0000000E+00 + -3.500000 -11.50000 0.0000000E+00 + -2.500000 -11.50000 0.0000000E+00 + -1.500000 -11.50000 0.0000000E+00 + -0.5000000 -11.50000 0.0000000E+00 + 0.5000000 -11.50000 0.0000000E+00 + 1.500000 -11.50000 0.0000000E+00 + 2.500000 -11.50000 0.0000000E+00 + 3.500000 -11.50000 0.0000000E+00 + 4.500000 -11.50000 0.0000000E+00 + 5.500000 -11.50000 0.0000000E+00 + 6.500000 -11.50000 0.0000000E+00 + 7.500000 -11.50000 0.0000000E+00 + 8.500000 -11.50000 0.0000000E+00 + 9.500000 -11.50000 0.0000000E+00 + 10.50000 -11.50000 0.0000000E+00 + 11.50000 -11.50000 0.0000000E+00 + 12.50000 -11.50000 0.0000000E+00 + 13.50000 -11.50000 0.0000000E+00 + 14.50000 -11.50000 0.0000000E+00 + 15.50000 -11.50000 0.0000000E+00 + 16.50000 -11.50000 1.1865235E-02 + 17.50000 -11.50000 5.9326172E-02 + 18.50000 -11.50000 5.9326172E-02 + 19.50000 -11.50000 1.9440001E-02 + 20.50000 -11.50000 2.5600004E-03 + 21.50000 -11.50000 1.9440001E-02 + 22.50000 -11.50000 7.1157008E-02 + 23.50000 -11.50000 0.1433562 + 24.50000 -11.50000 0.1319330 + 25.50000 -11.50000 0.1045530 + 26.50000 -11.50000 0.1647704 + 27.50000 -11.50000 0.1319330 + 28.50000 -11.50000 0.2038432 + 29.50000 -11.50000 0.0000000E+00 + 30.50000 -11.50000 0.0000000E+00 + 31.50000 -11.50000 0.0000000E+00 + 32.50000 -11.50000 0.0000000E+00 + 33.50000 -11.50000 0.0000000E+00 + 34.50000 -11.50000 0.0000000E+00 + 35.50000 -11.50000 0.0000000E+00 + 36.50000 -11.50000 0.0000000E+00 + 37.50000 -11.50000 0.0000000E+00 + 38.50000 -11.50000 0.0000000E+00 + 39.50000 -11.50000 0.0000000E+00 + 40.50000 -11.50000 0.0000000E+00 + 41.50000 -11.50000 0.0000000E+00 + 42.50000 -11.50000 0.0000000E+00 + 43.50000 -11.50000 0.0000000E+00 + 44.50000 -11.50000 0.0000000E+00 + 45.50000 -11.50000 0.0000000E+00 + 46.50000 -11.50000 0.0000000E+00 + 47.50000 -11.50000 0.0000000E+00 + 48.50000 -11.50000 0.0000000E+00 + 49.50000 -11.50000 0.0000000E+00 + 50.50000 -11.50000 0.0000000E+00 + 51.50000 -11.50000 0.0000000E+00 + 52.50000 -11.50000 0.0000000E+00 + 53.50000 -11.50000 0.0000000E+00 + 54.50000 -11.50000 0.0000000E+00 + 55.50000 -11.50000 0.0000000E+00 + 56.50000 -11.50000 0.0000000E+00 + 57.50000 -11.50000 0.0000000E+00 + 58.50000 -11.50000 0.0000000E+00 + 59.50000 -11.50000 0.0000000E+00 + 60.50000 -11.50000 0.0000000E+00 + 61.50000 -11.50000 0.0000000E+00 + 62.50000 -11.50000 0.0000000E+00 + 63.50000 -11.50000 0.0000000E+00 + 64.50000 -11.50000 0.0000000E+00 + 65.50000 -11.50000 0.0000000E+00 + 66.50000 -11.50000 0.0000000E+00 + 67.50000 -11.50000 0.0000000E+00 + 68.50000 -11.50000 0.0000000E+00 + 69.50000 -11.50000 0.0000000E+00 + 70.50000 -11.50000 0.0000000E+00 + 71.50000 -11.50000 0.0000000E+00 + 72.50000 -11.50000 0.0000000E+00 + 73.50000 -11.50000 0.0000000E+00 + 74.50000 -11.50000 0.0000000E+00 + 75.50000 -11.50000 0.0000000E+00 + 76.50000 -11.50000 0.0000000E+00 + 77.50000 -11.50000 0.0000000E+00 + 78.50000 -11.50000 0.0000000E+00 + 79.50000 -11.50000 0.0000000E+00 + 80.50000 -11.50000 0.0000000E+00 + 81.50000 -11.50000 0.0000000E+00 + 82.50000 -11.50000 0.0000000E+00 + 83.50000 -11.50000 0.0000000E+00 + 84.50000 -11.50000 0.0000000E+00 + 85.50000 -11.50000 0.0000000E+00 + 86.50000 -11.50000 0.0000000E+00 + 87.50000 -11.50000 0.0000000E+00 + 88.50000 -11.50000 0.0000000E+00 + 89.50000 -11.50000 0.0000000E+00 + -89.50000 -10.50000 0.0000000E+00 + -88.50000 -10.50000 0.0000000E+00 + -87.50000 -10.50000 0.0000000E+00 + -86.50000 -10.50000 0.0000000E+00 + -85.50000 -10.50000 0.0000000E+00 + -84.50000 -10.50000 0.0000000E+00 + -83.50000 -10.50000 0.0000000E+00 + -82.50000 -10.50000 0.0000000E+00 + -81.50000 -10.50000 0.0000000E+00 + -80.50000 -10.50000 0.0000000E+00 + -79.50000 -10.50000 0.0000000E+00 + -78.50000 -10.50000 0.0000000E+00 + -77.50000 -10.50000 0.0000000E+00 + -76.50000 -10.50000 0.0000000E+00 + -75.50000 -10.50000 0.0000000E+00 + -74.50000 -10.50000 0.0000000E+00 + -73.50000 -10.50000 0.0000000E+00 + -72.50000 -10.50000 0.0000000E+00 + -71.50000 -10.50000 0.0000000E+00 + -70.50000 -10.50000 0.0000000E+00 + -69.50000 -10.50000 0.0000000E+00 + -68.50000 -10.50000 0.0000000E+00 + -67.50000 -10.50000 0.0000000E+00 + -66.50000 -10.50000 0.0000000E+00 + -65.50000 -10.50000 0.0000000E+00 + -64.50000 -10.50000 0.0000000E+00 + -63.50000 -10.50000 0.0000000E+00 + -62.50000 -10.50000 0.0000000E+00 + -61.50000 -10.50000 0.0000000E+00 + -60.50000 -10.50000 0.0000000E+00 + -59.50000 -10.50000 0.0000000E+00 + -58.50000 -10.50000 0.0000000E+00 + -57.50000 -10.50000 0.0000000E+00 + -56.50000 -10.50000 0.0000000E+00 + -55.50000 -10.50000 0.0000000E+00 + -54.50000 -10.50000 0.0000000E+00 + -53.50000 -10.50000 0.0000000E+00 + -52.50000 -10.50000 0.0000000E+00 + -51.50000 -10.50000 0.0000000E+00 + -50.50000 -10.50000 0.0000000E+00 + -49.50000 -10.50000 0.0000000E+00 + -48.50000 -10.50000 0.0000000E+00 + -47.50000 -10.50000 0.0000000E+00 + -46.50000 -10.50000 0.0000000E+00 + -45.50000 -10.50000 0.0000000E+00 + -44.50000 -10.50000 0.0000000E+00 + -43.50000 -10.50000 0.0000000E+00 + -42.50000 -10.50000 0.0000000E+00 + -41.50000 -10.50000 0.0000000E+00 + -40.50000 -10.50000 0.0000000E+00 + -39.50000 -10.50000 0.0000000E+00 + -38.50000 -10.50000 0.0000000E+00 + -37.50000 -10.50000 0.0000000E+00 + -36.50000 -10.50000 0.0000000E+00 + -35.50000 -10.50000 0.0000000E+00 + -34.50000 -10.50000 0.0000000E+00 + -33.50000 -10.50000 0.0000000E+00 + -32.50000 -10.50000 0.0000000E+00 + -31.50000 -10.50000 0.0000000E+00 + -30.50000 -10.50000 0.0000000E+00 + -29.50000 -10.50000 0.0000000E+00 + -28.50000 -10.50000 0.0000000E+00 + -27.50000 -10.50000 0.0000000E+00 + -26.50000 -10.50000 0.0000000E+00 + -25.50000 -10.50000 0.0000000E+00 + -24.50000 -10.50000 0.0000000E+00 + -23.50000 -10.50000 0.0000000E+00 + -22.50000 -10.50000 0.0000000E+00 + -21.50000 -10.50000 0.0000000E+00 + -20.50000 -10.50000 0.0000000E+00 + -19.50000 -10.50000 0.0000000E+00 + -18.50000 -10.50000 0.0000000E+00 + -17.50000 -10.50000 0.0000000E+00 + -16.50000 -10.50000 0.0000000E+00 + -15.50000 -10.50000 0.0000000E+00 + -14.50000 -10.50000 0.0000000E+00 + -13.50000 -10.50000 0.0000000E+00 + -12.50000 -10.50000 0.0000000E+00 + -11.50000 -10.50000 0.0000000E+00 + -10.50000 -10.50000 0.0000000E+00 + -9.500000 -10.50000 0.0000000E+00 + -8.500000 -10.50000 0.0000000E+00 + -7.500000 -10.50000 0.0000000E+00 + -6.500000 -10.50000 0.0000000E+00 + -5.500000 -10.50000 0.0000000E+00 + -4.500000 -10.50000 0.0000000E+00 + -3.500000 -10.50000 0.0000000E+00 + -2.500000 -10.50000 0.0000000E+00 + -1.500000 -10.50000 0.0000000E+00 + -0.5000000 -10.50000 0.0000000E+00 + 0.5000000 -10.50000 0.0000000E+00 + 1.500000 -10.50000 0.0000000E+00 + 2.500000 -10.50000 0.0000000E+00 + 3.500000 -10.50000 0.0000000E+00 + 4.500000 -10.50000 0.0000000E+00 + 5.500000 -10.50000 0.0000000E+00 + 6.500000 -10.50000 0.0000000E+00 + 7.500000 -10.50000 0.0000000E+00 + 8.500000 -10.50000 0.0000000E+00 + 9.500000 -10.50000 0.0000000E+00 + 10.50000 -10.50000 0.0000000E+00 + 11.50000 -10.50000 0.0000000E+00 + 12.50000 -10.50000 0.0000000E+00 + 13.50000 -10.50000 0.0000000E+00 + 14.50000 -10.50000 0.0000000E+00 + 15.50000 -10.50000 0.0000000E+00 + 16.50000 -10.50000 1.1865235E-02 + 17.50000 -10.50000 5.9326172E-02 + 18.50000 -10.50000 5.9326172E-02 + 19.50000 -10.50000 1.9440001E-02 + 20.50000 -10.50000 1.9440001E-02 + 21.50000 -10.50000 1.9440001E-02 + 22.50000 -10.50000 7.1157008E-02 + 23.50000 -10.50000 0.1433562 + 24.50000 -10.50000 0.1319330 + 25.50000 -10.50000 0.1045530 + 26.50000 -10.50000 0.1319330 + 27.50000 -10.50000 0.1045530 + 28.50000 -10.50000 2.6386594E-02 + 29.50000 -10.50000 0.0000000E+00 + 30.50000 -10.50000 0.0000000E+00 + 31.50000 -10.50000 0.0000000E+00 + 32.50000 -10.50000 0.0000000E+00 + 33.50000 -10.50000 0.0000000E+00 + 34.50000 -10.50000 0.0000000E+00 + 35.50000 -10.50000 0.0000000E+00 + 36.50000 -10.50000 0.0000000E+00 + 37.50000 -10.50000 0.0000000E+00 + 38.50000 -10.50000 0.0000000E+00 + 39.50000 -10.50000 0.0000000E+00 + 40.50000 -10.50000 0.0000000E+00 + 41.50000 -10.50000 0.0000000E+00 + 42.50000 -10.50000 0.0000000E+00 + 43.50000 -10.50000 0.0000000E+00 + 44.50000 -10.50000 0.0000000E+00 + 45.50000 -10.50000 0.0000000E+00 + 46.50000 -10.50000 0.0000000E+00 + 47.50000 -10.50000 0.0000000E+00 + 48.50000 -10.50000 0.0000000E+00 + 49.50000 -10.50000 0.0000000E+00 + 50.50000 -10.50000 0.0000000E+00 + 51.50000 -10.50000 0.0000000E+00 + 52.50000 -10.50000 0.0000000E+00 + 53.50000 -10.50000 0.0000000E+00 + 54.50000 -10.50000 0.0000000E+00 + 55.50000 -10.50000 0.0000000E+00 + 56.50000 -10.50000 0.0000000E+00 + 57.50000 -10.50000 0.0000000E+00 + 58.50000 -10.50000 0.0000000E+00 + 59.50000 -10.50000 0.0000000E+00 + 60.50000 -10.50000 0.0000000E+00 + 61.50000 -10.50000 0.0000000E+00 + 62.50000 -10.50000 0.0000000E+00 + 63.50000 -10.50000 0.0000000E+00 + 64.50000 -10.50000 0.0000000E+00 + 65.50000 -10.50000 0.0000000E+00 + 66.50000 -10.50000 0.0000000E+00 + 67.50000 -10.50000 0.0000000E+00 + 68.50000 -10.50000 0.0000000E+00 + 69.50000 -10.50000 0.0000000E+00 + 70.50000 -10.50000 0.0000000E+00 + 71.50000 -10.50000 0.0000000E+00 + 72.50000 -10.50000 0.0000000E+00 + 73.50000 -10.50000 0.0000000E+00 + 74.50000 -10.50000 0.0000000E+00 + 75.50000 -10.50000 0.0000000E+00 + 76.50000 -10.50000 0.0000000E+00 + 77.50000 -10.50000 0.0000000E+00 + 78.50000 -10.50000 0.0000000E+00 + 79.50000 -10.50000 0.0000000E+00 + 80.50000 -10.50000 0.0000000E+00 + 81.50000 -10.50000 0.0000000E+00 + 82.50000 -10.50000 0.0000000E+00 + 83.50000 -10.50000 0.0000000E+00 + 84.50000 -10.50000 0.0000000E+00 + 85.50000 -10.50000 0.0000000E+00 + 86.50000 -10.50000 0.0000000E+00 + 87.50000 -10.50000 0.0000000E+00 + 88.50000 -10.50000 0.0000000E+00 + 89.50000 -10.50000 0.0000000E+00 + -89.50000 -9.500000 0.0000000E+00 + -88.50000 -9.500000 0.0000000E+00 + -87.50000 -9.500000 0.0000000E+00 + -86.50000 -9.500000 0.0000000E+00 + -85.50000 -9.500000 0.0000000E+00 + -84.50000 -9.500000 0.0000000E+00 + -83.50000 -9.500000 0.0000000E+00 + -82.50000 -9.500000 0.0000000E+00 + -81.50000 -9.500000 0.0000000E+00 + -80.50000 -9.500000 0.0000000E+00 + -79.50000 -9.500000 0.0000000E+00 + -78.50000 -9.500000 0.0000000E+00 + -77.50000 -9.500000 0.0000000E+00 + -76.50000 -9.500000 0.0000000E+00 + -75.50000 -9.500000 0.0000000E+00 + -74.50000 -9.500000 0.0000000E+00 + -73.50000 -9.500000 0.0000000E+00 + -72.50000 -9.500000 0.0000000E+00 + -71.50000 -9.500000 0.0000000E+00 + -70.50000 -9.500000 0.0000000E+00 + -69.50000 -9.500000 0.0000000E+00 + -68.50000 -9.500000 0.0000000E+00 + -67.50000 -9.500000 0.0000000E+00 + -66.50000 -9.500000 0.0000000E+00 + -65.50000 -9.500000 0.0000000E+00 + -64.50000 -9.500000 0.0000000E+00 + -63.50000 -9.500000 0.0000000E+00 + -62.50000 -9.500000 0.0000000E+00 + -61.50000 -9.500000 0.0000000E+00 + -60.50000 -9.500000 0.0000000E+00 + -59.50000 -9.500000 0.0000000E+00 + -58.50000 -9.500000 0.0000000E+00 + -57.50000 -9.500000 0.0000000E+00 + -56.50000 -9.500000 0.0000000E+00 + -55.50000 -9.500000 0.0000000E+00 + -54.50000 -9.500000 0.0000000E+00 + -53.50000 -9.500000 0.0000000E+00 + -52.50000 -9.500000 0.0000000E+00 + -51.50000 -9.500000 0.0000000E+00 + -50.50000 -9.500000 0.0000000E+00 + -49.50000 -9.500000 0.0000000E+00 + -48.50000 -9.500000 0.0000000E+00 + -47.50000 -9.500000 0.0000000E+00 + -46.50000 -9.500000 0.0000000E+00 + -45.50000 -9.500000 0.0000000E+00 + -44.50000 -9.500000 0.0000000E+00 + -43.50000 -9.500000 0.0000000E+00 + -42.50000 -9.500000 0.0000000E+00 + -41.50000 -9.500000 0.0000000E+00 + -40.50000 -9.500000 0.0000000E+00 + -39.50000 -9.500000 0.0000000E+00 + -38.50000 -9.500000 0.0000000E+00 + -37.50000 -9.500000 0.0000000E+00 + -36.50000 -9.500000 0.0000000E+00 + -35.50000 -9.500000 0.0000000E+00 + -34.50000 -9.500000 0.0000000E+00 + -33.50000 -9.500000 0.0000000E+00 + -32.50000 -9.500000 0.0000000E+00 + -31.50000 -9.500000 0.0000000E+00 + -30.50000 -9.500000 0.0000000E+00 + -29.50000 -9.500000 0.0000000E+00 + -28.50000 -9.500000 0.0000000E+00 + -27.50000 -9.500000 0.0000000E+00 + -26.50000 -9.500000 0.0000000E+00 + -25.50000 -9.500000 0.0000000E+00 + -24.50000 -9.500000 0.0000000E+00 + -23.50000 -9.500000 0.0000000E+00 + -22.50000 -9.500000 0.0000000E+00 + -21.50000 -9.500000 0.0000000E+00 + -20.50000 -9.500000 0.0000000E+00 + -19.50000 -9.500000 0.0000000E+00 + -18.50000 -9.500000 0.0000000E+00 + -17.50000 -9.500000 0.0000000E+00 + -16.50000 -9.500000 0.0000000E+00 + -15.50000 -9.500000 0.0000000E+00 + -14.50000 -9.500000 0.0000000E+00 + -13.50000 -9.500000 0.0000000E+00 + -12.50000 -9.500000 0.0000000E+00 + -11.50000 -9.500000 0.0000000E+00 + -10.50000 -9.500000 0.0000000E+00 + -9.500000 -9.500000 0.0000000E+00 + -8.500000 -9.500000 0.0000000E+00 + -7.500000 -9.500000 0.0000000E+00 + -6.500000 -9.500000 0.0000000E+00 + -5.500000 -9.500000 0.0000000E+00 + -4.500000 -9.500000 0.0000000E+00 + -3.500000 -9.500000 0.0000000E+00 + -2.500000 -9.500000 0.0000000E+00 + -1.500000 -9.500000 0.0000000E+00 + -0.5000000 -9.500000 0.0000000E+00 + 0.5000000 -9.500000 0.0000000E+00 + 1.500000 -9.500000 0.0000000E+00 + 2.500000 -9.500000 0.0000000E+00 + 3.500000 -9.500000 0.0000000E+00 + 4.500000 -9.500000 0.0000000E+00 + 5.500000 -9.500000 0.0000000E+00 + 6.500000 -9.500000 0.0000000E+00 + 7.500000 -9.500000 0.0000000E+00 + 8.500000 -9.500000 0.0000000E+00 + 9.500000 -9.500000 0.0000000E+00 + 10.50000 -9.500000 0.0000000E+00 + 11.50000 -9.500000 0.0000000E+00 + 12.50000 -9.500000 0.0000000E+00 + 13.50000 -9.500000 0.0000000E+00 + 14.50000 -9.500000 0.0000000E+00 + 15.50000 -9.500000 0.0000000E+00 + 16.50000 -9.500000 1.1865235E-02 + 17.50000 -9.500000 5.9326172E-02 + 18.50000 -9.500000 5.9326172E-02 + 19.50000 -9.500000 1.9440001E-02 + 20.50000 -9.500000 1.9440001E-02 + 21.50000 -9.500000 1.9440001E-02 + 22.50000 -9.500000 7.1157008E-02 + 23.50000 -9.500000 0.1433562 + 24.50000 -9.500000 0.1319330 + 25.50000 -9.500000 0.1319330 + 26.50000 -9.500000 8.1920013E-02 + 27.50000 -9.500000 8.1920013E-02 + 28.50000 -9.500000 0.1045530 + 29.50000 -9.500000 7.2696689E-03 + 30.50000 -9.500000 0.0000000E+00 + 31.50000 -9.500000 0.0000000E+00 + 32.50000 -9.500000 0.0000000E+00 + 33.50000 -9.500000 0.0000000E+00 + 34.50000 -9.500000 0.0000000E+00 + 35.50000 -9.500000 0.0000000E+00 + 36.50000 -9.500000 0.0000000E+00 + 37.50000 -9.500000 0.0000000E+00 + 38.50000 -9.500000 0.0000000E+00 + 39.50000 -9.500000 0.0000000E+00 + 40.50000 -9.500000 0.0000000E+00 + 41.50000 -9.500000 0.0000000E+00 + 42.50000 -9.500000 0.0000000E+00 + 43.50000 -9.500000 0.0000000E+00 + 44.50000 -9.500000 0.0000000E+00 + 45.50000 -9.500000 0.0000000E+00 + 46.50000 -9.500000 0.0000000E+00 + 47.50000 -9.500000 0.0000000E+00 + 48.50000 -9.500000 0.0000000E+00 + 49.50000 -9.500000 0.0000000E+00 + 50.50000 -9.500000 0.0000000E+00 + 51.50000 -9.500000 0.0000000E+00 + 52.50000 -9.500000 0.0000000E+00 + 53.50000 -9.500000 0.0000000E+00 + 54.50000 -9.500000 0.0000000E+00 + 55.50000 -9.500000 0.0000000E+00 + 56.50000 -9.500000 0.0000000E+00 + 57.50000 -9.500000 0.0000000E+00 + 58.50000 -9.500000 0.0000000E+00 + 59.50000 -9.500000 0.0000000E+00 + 60.50000 -9.500000 0.0000000E+00 + 61.50000 -9.500000 0.0000000E+00 + 62.50000 -9.500000 0.0000000E+00 + 63.50000 -9.500000 0.0000000E+00 + 64.50000 -9.500000 0.0000000E+00 + 65.50000 -9.500000 0.0000000E+00 + 66.50000 -9.500000 0.0000000E+00 + 67.50000 -9.500000 0.0000000E+00 + 68.50000 -9.500000 0.0000000E+00 + 69.50000 -9.500000 0.0000000E+00 + 70.50000 -9.500000 0.0000000E+00 + 71.50000 -9.500000 0.0000000E+00 + 72.50000 -9.500000 0.0000000E+00 + 73.50000 -9.500000 0.0000000E+00 + 74.50000 -9.500000 0.0000000E+00 + 75.50000 -9.500000 0.0000000E+00 + 76.50000 -9.500000 0.0000000E+00 + 77.50000 -9.500000 0.0000000E+00 + 78.50000 -9.500000 0.0000000E+00 + 79.50000 -9.500000 0.0000000E+00 + 80.50000 -9.500000 0.0000000E+00 + 81.50000 -9.500000 0.0000000E+00 + 82.50000 -9.500000 0.0000000E+00 + 83.50000 -9.500000 0.0000000E+00 + 84.50000 -9.500000 0.0000000E+00 + 85.50000 -9.500000 0.0000000E+00 + 86.50000 -9.500000 0.0000000E+00 + 87.50000 -9.500000 0.0000000E+00 + 88.50000 -9.500000 0.0000000E+00 + 89.50000 -9.500000 0.0000000E+00 + -89.50000 -8.500000 0.0000000E+00 + -88.50000 -8.500000 0.0000000E+00 + -87.50000 -8.500000 0.0000000E+00 + -86.50000 -8.500000 0.0000000E+00 + -85.50000 -8.500000 0.0000000E+00 + -84.50000 -8.500000 0.0000000E+00 + -83.50000 -8.500000 0.0000000E+00 + -82.50000 -8.500000 0.0000000E+00 + -81.50000 -8.500000 0.0000000E+00 + -80.50000 -8.500000 0.0000000E+00 + -79.50000 -8.500000 0.0000000E+00 + -78.50000 -8.500000 0.0000000E+00 + -77.50000 -8.500000 0.0000000E+00 + -76.50000 -8.500000 0.0000000E+00 + -75.50000 -8.500000 0.0000000E+00 + -74.50000 -8.500000 0.0000000E+00 + -73.50000 -8.500000 0.0000000E+00 + -72.50000 -8.500000 0.0000000E+00 + -71.50000 -8.500000 0.0000000E+00 + -70.50000 -8.500000 0.0000000E+00 + -69.50000 -8.500000 0.0000000E+00 + -68.50000 -8.500000 0.0000000E+00 + -67.50000 -8.500000 0.0000000E+00 + -66.50000 -8.500000 0.0000000E+00 + -65.50000 -8.500000 0.0000000E+00 + -64.50000 -8.500000 0.0000000E+00 + -63.50000 -8.500000 0.0000000E+00 + -62.50000 -8.500000 0.0000000E+00 + -61.50000 -8.500000 0.0000000E+00 + -60.50000 -8.500000 0.0000000E+00 + -59.50000 -8.500000 0.0000000E+00 + -58.50000 -8.500000 0.0000000E+00 + -57.50000 -8.500000 0.0000000E+00 + -56.50000 -8.500000 0.0000000E+00 + -55.50000 -8.500000 0.0000000E+00 + -54.50000 -8.500000 0.0000000E+00 + -53.50000 -8.500000 0.0000000E+00 + -52.50000 -8.500000 0.0000000E+00 + -51.50000 -8.500000 0.0000000E+00 + -50.50000 -8.500000 0.0000000E+00 + -49.50000 -8.500000 0.0000000E+00 + -48.50000 -8.500000 0.0000000E+00 + -47.50000 -8.500000 0.0000000E+00 + -46.50000 -8.500000 0.0000000E+00 + -45.50000 -8.500000 0.0000000E+00 + -44.50000 -8.500000 0.0000000E+00 + -43.50000 -8.500000 0.0000000E+00 + -42.50000 -8.500000 0.0000000E+00 + -41.50000 -8.500000 0.0000000E+00 + -40.50000 -8.500000 0.0000000E+00 + -39.50000 -8.500000 0.0000000E+00 + -38.50000 -8.500000 0.0000000E+00 + -37.50000 -8.500000 0.0000000E+00 + -36.50000 -8.500000 0.0000000E+00 + -35.50000 -8.500000 0.0000000E+00 + -34.50000 -8.500000 0.0000000E+00 + -33.50000 -8.500000 0.0000000E+00 + -32.50000 -8.500000 0.0000000E+00 + -31.50000 -8.500000 0.0000000E+00 + -30.50000 -8.500000 0.0000000E+00 + -29.50000 -8.500000 0.0000000E+00 + -28.50000 -8.500000 0.0000000E+00 + -27.50000 -8.500000 0.0000000E+00 + -26.50000 -8.500000 0.0000000E+00 + -25.50000 -8.500000 0.0000000E+00 + -24.50000 -8.500000 0.0000000E+00 + -23.50000 -8.500000 0.0000000E+00 + -22.50000 -8.500000 0.0000000E+00 + -21.50000 -8.500000 0.0000000E+00 + -20.50000 -8.500000 0.0000000E+00 + -19.50000 -8.500000 0.0000000E+00 + -18.50000 -8.500000 0.0000000E+00 + -17.50000 -8.500000 0.0000000E+00 + -16.50000 -8.500000 0.0000000E+00 + -15.50000 -8.500000 0.0000000E+00 + -14.50000 -8.500000 0.0000000E+00 + -13.50000 -8.500000 0.0000000E+00 + -12.50000 -8.500000 0.0000000E+00 + -11.50000 -8.500000 0.0000000E+00 + -10.50000 -8.500000 0.0000000E+00 + -9.500000 -8.500000 0.0000000E+00 + -8.500000 -8.500000 0.0000000E+00 + -7.500000 -8.500000 0.0000000E+00 + -6.500000 -8.500000 0.0000000E+00 + -5.500000 -8.500000 0.0000000E+00 + -4.500000 -8.500000 0.0000000E+00 + -3.500000 -8.500000 0.0000000E+00 + -2.500000 -8.500000 0.0000000E+00 + -1.500000 -8.500000 0.0000000E+00 + -0.5000000 -8.500000 0.0000000E+00 + 0.5000000 -8.500000 0.0000000E+00 + 1.500000 -8.500000 0.0000000E+00 + 2.500000 -8.500000 0.0000000E+00 + 3.500000 -8.500000 0.0000000E+00 + 4.500000 -8.500000 0.0000000E+00 + 5.500000 -8.500000 0.0000000E+00 + 6.500000 -8.500000 0.0000000E+00 + 7.500000 -8.500000 0.0000000E+00 + 8.500000 -8.500000 0.0000000E+00 + 9.500000 -8.500000 0.0000000E+00 + 10.50000 -8.500000 0.0000000E+00 + 11.50000 -8.500000 0.0000000E+00 + 12.50000 -8.500000 0.0000000E+00 + 13.50000 -8.500000 0.0000000E+00 + 14.50000 -8.500000 0.0000000E+00 + 15.50000 -8.500000 0.0000000E+00 + 16.50000 -8.500000 1.1865235E-02 + 17.50000 -8.500000 5.9326172E-02 + 18.50000 -8.500000 5.9326172E-02 + 19.50000 -8.500000 1.9440001E-02 + 20.50000 -8.500000 1.9440001E-02 + 21.50000 -8.500000 1.9440001E-02 + 22.50000 -8.500000 7.1157008E-02 + 23.50000 -8.500000 0.1433562 + 24.50000 -8.500000 0.1647704 + 25.50000 -8.500000 0.1319330 + 26.50000 -8.500000 0.1045530 + 27.50000 -8.500000 0.1045530 + 28.50000 -8.500000 8.1920013E-02 + 29.50000 -8.500000 5.3687086E-03 + 30.50000 -8.500000 3.8880003E-03 + 31.50000 -8.500000 0.0000000E+00 + 32.50000 -8.500000 0.0000000E+00 + 33.50000 -8.500000 0.0000000E+00 + 34.50000 -8.500000 0.0000000E+00 + 35.50000 -8.500000 0.0000000E+00 + 36.50000 -8.500000 0.0000000E+00 + 37.50000 -8.500000 0.0000000E+00 + 38.50000 -8.500000 0.0000000E+00 + 39.50000 -8.500000 0.0000000E+00 + 40.50000 -8.500000 0.0000000E+00 + 41.50000 -8.500000 0.0000000E+00 + 42.50000 -8.500000 0.0000000E+00 + 43.50000 -8.500000 0.0000000E+00 + 44.50000 -8.500000 0.0000000E+00 + 45.50000 -8.500000 0.0000000E+00 + 46.50000 -8.500000 0.0000000E+00 + 47.50000 -8.500000 0.0000000E+00 + 48.50000 -8.500000 0.0000000E+00 + 49.50000 -8.500000 0.0000000E+00 + 50.50000 -8.500000 0.0000000E+00 + 51.50000 -8.500000 0.0000000E+00 + 52.50000 -8.500000 0.0000000E+00 + 53.50000 -8.500000 0.0000000E+00 + 54.50000 -8.500000 0.0000000E+00 + 55.50000 -8.500000 0.0000000E+00 + 56.50000 -8.500000 0.0000000E+00 + 57.50000 -8.500000 0.0000000E+00 + 58.50000 -8.500000 0.0000000E+00 + 59.50000 -8.500000 0.0000000E+00 + 60.50000 -8.500000 0.0000000E+00 + 61.50000 -8.500000 0.0000000E+00 + 62.50000 -8.500000 0.0000000E+00 + 63.50000 -8.500000 0.0000000E+00 + 64.50000 -8.500000 0.0000000E+00 + 65.50000 -8.500000 0.0000000E+00 + 66.50000 -8.500000 0.0000000E+00 + 67.50000 -8.500000 0.0000000E+00 + 68.50000 -8.500000 0.0000000E+00 + 69.50000 -8.500000 0.0000000E+00 + 70.50000 -8.500000 0.0000000E+00 + 71.50000 -8.500000 0.0000000E+00 + 72.50000 -8.500000 0.0000000E+00 + 73.50000 -8.500000 0.0000000E+00 + 74.50000 -8.500000 0.0000000E+00 + 75.50000 -8.500000 0.0000000E+00 + 76.50000 -8.500000 0.0000000E+00 + 77.50000 -8.500000 0.0000000E+00 + 78.50000 -8.500000 0.0000000E+00 + 79.50000 -8.500000 0.0000000E+00 + 80.50000 -8.500000 0.0000000E+00 + 81.50000 -8.500000 0.0000000E+00 + 82.50000 -8.500000 0.0000000E+00 + 83.50000 -8.500000 0.0000000E+00 + 84.50000 -8.500000 0.0000000E+00 + 85.50000 -8.500000 0.0000000E+00 + 86.50000 -8.500000 0.0000000E+00 + 87.50000 -8.500000 0.0000000E+00 + 88.50000 -8.500000 0.0000000E+00 + 89.50000 -8.500000 0.0000000E+00 + -89.50000 -7.500000 0.0000000E+00 + -88.50000 -7.500000 0.0000000E+00 + -87.50000 -7.500000 0.0000000E+00 + -86.50000 -7.500000 0.0000000E+00 + -85.50000 -7.500000 0.0000000E+00 + -84.50000 -7.500000 0.0000000E+00 + -83.50000 -7.500000 0.0000000E+00 + -82.50000 -7.500000 0.0000000E+00 + -81.50000 -7.500000 0.0000000E+00 + -80.50000 -7.500000 0.0000000E+00 + -79.50000 -7.500000 0.0000000E+00 + -78.50000 -7.500000 0.0000000E+00 + -77.50000 -7.500000 0.0000000E+00 + -76.50000 -7.500000 0.0000000E+00 + -75.50000 -7.500000 0.0000000E+00 + -74.50000 -7.500000 0.0000000E+00 + -73.50000 -7.500000 0.0000000E+00 + -72.50000 -7.500000 0.0000000E+00 + -71.50000 -7.500000 0.0000000E+00 + -70.50000 -7.500000 0.0000000E+00 + -69.50000 -7.500000 0.0000000E+00 + -68.50000 -7.500000 0.0000000E+00 + -67.50000 -7.500000 0.0000000E+00 + -66.50000 -7.500000 0.0000000E+00 + -65.50000 -7.500000 0.0000000E+00 + -64.50000 -7.500000 0.0000000E+00 + -63.50000 -7.500000 0.0000000E+00 + -62.50000 -7.500000 0.0000000E+00 + -61.50000 -7.500000 0.0000000E+00 + -60.50000 -7.500000 0.0000000E+00 + -59.50000 -7.500000 0.0000000E+00 + -58.50000 -7.500000 0.0000000E+00 + -57.50000 -7.500000 0.0000000E+00 + -56.50000 -7.500000 0.0000000E+00 + -55.50000 -7.500000 0.0000000E+00 + -54.50000 -7.500000 0.0000000E+00 + -53.50000 -7.500000 0.0000000E+00 + -52.50000 -7.500000 0.0000000E+00 + -51.50000 -7.500000 0.0000000E+00 + -50.50000 -7.500000 0.0000000E+00 + -49.50000 -7.500000 0.0000000E+00 + -48.50000 -7.500000 0.0000000E+00 + -47.50000 -7.500000 0.0000000E+00 + -46.50000 -7.500000 0.0000000E+00 + -45.50000 -7.500000 0.0000000E+00 + -44.50000 -7.500000 0.0000000E+00 + -43.50000 -7.500000 0.0000000E+00 + -42.50000 -7.500000 0.0000000E+00 + -41.50000 -7.500000 0.0000000E+00 + -40.50000 -7.500000 0.0000000E+00 + -39.50000 -7.500000 0.0000000E+00 + -38.50000 -7.500000 0.0000000E+00 + -37.50000 -7.500000 0.0000000E+00 + -36.50000 -7.500000 0.0000000E+00 + -35.50000 -7.500000 0.0000000E+00 + -34.50000 -7.500000 0.0000000E+00 + -33.50000 -7.500000 0.0000000E+00 + -32.50000 -7.500000 0.0000000E+00 + -31.50000 -7.500000 0.0000000E+00 + -30.50000 -7.500000 0.0000000E+00 + -29.50000 -7.500000 0.0000000E+00 + -28.50000 -7.500000 0.0000000E+00 + -27.50000 -7.500000 0.0000000E+00 + -26.50000 -7.500000 0.0000000E+00 + -25.50000 -7.500000 0.0000000E+00 + -24.50000 -7.500000 0.0000000E+00 + -23.50000 -7.500000 0.0000000E+00 + -22.50000 -7.500000 0.0000000E+00 + -21.50000 -7.500000 0.0000000E+00 + -20.50000 -7.500000 0.0000000E+00 + -19.50000 -7.500000 0.0000000E+00 + -18.50000 -7.500000 0.0000000E+00 + -17.50000 -7.500000 0.0000000E+00 + -16.50000 -7.500000 0.0000000E+00 + -15.50000 -7.500000 0.0000000E+00 + -14.50000 -7.500000 0.0000000E+00 + -13.50000 -7.500000 0.0000000E+00 + -12.50000 -7.500000 0.0000000E+00 + -11.50000 -7.500000 0.0000000E+00 + -10.50000 -7.500000 0.0000000E+00 + -9.500000 -7.500000 0.0000000E+00 + -8.500000 -7.500000 0.0000000E+00 + -7.500000 -7.500000 0.0000000E+00 + -6.500000 -7.500000 0.0000000E+00 + -5.500000 -7.500000 0.0000000E+00 + -4.500000 -7.500000 0.0000000E+00 + -3.500000 -7.500000 0.0000000E+00 + -2.500000 -7.500000 0.0000000E+00 + -1.500000 -7.500000 0.0000000E+00 + -0.5000000 -7.500000 0.0000000E+00 + 0.5000000 -7.500000 0.0000000E+00 + 1.500000 -7.500000 0.0000000E+00 + 2.500000 -7.500000 0.0000000E+00 + 3.500000 -7.500000 0.0000000E+00 + 4.500000 -7.500000 0.0000000E+00 + 5.500000 -7.500000 0.0000000E+00 + 6.500000 -7.500000 0.0000000E+00 + 7.500000 -7.500000 0.0000000E+00 + 8.500000 -7.500000 0.0000000E+00 + 9.500000 -7.500000 0.0000000E+00 + 10.50000 -7.500000 0.0000000E+00 + 11.50000 -7.500000 0.0000000E+00 + 12.50000 -7.500000 0.0000000E+00 + 13.50000 -7.500000 0.0000000E+00 + 14.50000 -7.500000 0.0000000E+00 + 15.50000 -7.500000 1.1865235E-02 + 16.50000 -7.500000 1.1865235E-02 + 17.50000 -7.500000 3.2921817E-02 + 18.50000 -7.500000 2.3841858E-02 + 19.50000 -7.500000 2.5600004E-03 + 20.50000 -7.500000 1.9440001E-02 + 21.50000 -7.500000 1.9440001E-02 + 22.50000 -7.500000 1.4231401E-02 + 23.50000 -7.500000 0.1433562 + 24.50000 -7.500000 0.1647704 + 25.50000 -7.500000 0.1319330 + 26.50000 -7.500000 0.1045530 + 27.50000 -7.500000 0.1045530 + 28.50000 -7.500000 8.1920013E-02 + 29.50000 -7.500000 1.6384004E-02 + 30.50000 -7.500000 3.9813120E-05 + 31.50000 -7.500000 0.0000000E+00 + 32.50000 -7.500000 0.0000000E+00 + 33.50000 -7.500000 0.0000000E+00 + 34.50000 -7.500000 0.0000000E+00 + 35.50000 -7.500000 0.0000000E+00 + 36.50000 -7.500000 0.0000000E+00 + 37.50000 -7.500000 0.0000000E+00 + 38.50000 -7.500000 0.0000000E+00 + 39.50000 -7.500000 0.0000000E+00 + 40.50000 -7.500000 0.0000000E+00 + 41.50000 -7.500000 0.0000000E+00 + 42.50000 -7.500000 0.0000000E+00 + 43.50000 -7.500000 0.0000000E+00 + 44.50000 -7.500000 0.0000000E+00 + 45.50000 -7.500000 0.0000000E+00 + 46.50000 -7.500000 0.0000000E+00 + 47.50000 -7.500000 0.0000000E+00 + 48.50000 -7.500000 0.0000000E+00 + 49.50000 -7.500000 0.0000000E+00 + 50.50000 -7.500000 0.0000000E+00 + 51.50000 -7.500000 0.0000000E+00 + 52.50000 -7.500000 0.0000000E+00 + 53.50000 -7.500000 0.0000000E+00 + 54.50000 -7.500000 0.0000000E+00 + 55.50000 -7.500000 0.0000000E+00 + 56.50000 -7.500000 0.0000000E+00 + 57.50000 -7.500000 0.0000000E+00 + 58.50000 -7.500000 0.0000000E+00 + 59.50000 -7.500000 0.0000000E+00 + 60.50000 -7.500000 0.0000000E+00 + 61.50000 -7.500000 0.0000000E+00 + 62.50000 -7.500000 0.0000000E+00 + 63.50000 -7.500000 0.0000000E+00 + 64.50000 -7.500000 0.0000000E+00 + 65.50000 -7.500000 0.0000000E+00 + 66.50000 -7.500000 0.0000000E+00 + 67.50000 -7.500000 0.0000000E+00 + 68.50000 -7.500000 0.0000000E+00 + 69.50000 -7.500000 0.0000000E+00 + 70.50000 -7.500000 0.0000000E+00 + 71.50000 -7.500000 0.0000000E+00 + 72.50000 -7.500000 0.0000000E+00 + 73.50000 -7.500000 0.0000000E+00 + 74.50000 -7.500000 0.0000000E+00 + 75.50000 -7.500000 0.0000000E+00 + 76.50000 -7.500000 0.0000000E+00 + 77.50000 -7.500000 0.0000000E+00 + 78.50000 -7.500000 0.0000000E+00 + 79.50000 -7.500000 0.0000000E+00 + 80.50000 -7.500000 0.0000000E+00 + 81.50000 -7.500000 0.0000000E+00 + 82.50000 -7.500000 0.0000000E+00 + 83.50000 -7.500000 0.0000000E+00 + 84.50000 -7.500000 0.0000000E+00 + 85.50000 -7.500000 0.0000000E+00 + 86.50000 -7.500000 0.0000000E+00 + 87.50000 -7.500000 0.0000000E+00 + 88.50000 -7.500000 0.0000000E+00 + 89.50000 -7.500000 0.0000000E+00 + -89.50000 -6.500000 0.0000000E+00 + -88.50000 -6.500000 0.0000000E+00 + -87.50000 -6.500000 0.0000000E+00 + -86.50000 -6.500000 0.0000000E+00 + -85.50000 -6.500000 0.0000000E+00 + -84.50000 -6.500000 0.0000000E+00 + -83.50000 -6.500000 0.0000000E+00 + -82.50000 -6.500000 0.0000000E+00 + -81.50000 -6.500000 0.0000000E+00 + -80.50000 -6.500000 0.0000000E+00 + -79.50000 -6.500000 0.0000000E+00 + -78.50000 -6.500000 0.0000000E+00 + -77.50000 -6.500000 0.0000000E+00 + -76.50000 -6.500000 0.0000000E+00 + -75.50000 -6.500000 0.0000000E+00 + -74.50000 -6.500000 0.0000000E+00 + -73.50000 -6.500000 0.0000000E+00 + -72.50000 -6.500000 0.0000000E+00 + -71.50000 -6.500000 0.0000000E+00 + -70.50000 -6.500000 0.0000000E+00 + -69.50000 -6.500000 0.0000000E+00 + -68.50000 -6.500000 0.0000000E+00 + -67.50000 -6.500000 0.0000000E+00 + -66.50000 -6.500000 0.0000000E+00 + -65.50000 -6.500000 0.0000000E+00 + -64.50000 -6.500000 0.0000000E+00 + -63.50000 -6.500000 0.0000000E+00 + -62.50000 -6.500000 0.0000000E+00 + -61.50000 -6.500000 0.0000000E+00 + -60.50000 -6.500000 0.0000000E+00 + -59.50000 -6.500000 0.0000000E+00 + -58.50000 -6.500000 0.0000000E+00 + -57.50000 -6.500000 0.0000000E+00 + -56.50000 -6.500000 0.0000000E+00 + -55.50000 -6.500000 0.0000000E+00 + -54.50000 -6.500000 0.0000000E+00 + -53.50000 -6.500000 0.0000000E+00 + -52.50000 -6.500000 0.0000000E+00 + -51.50000 -6.500000 0.0000000E+00 + -50.50000 -6.500000 0.0000000E+00 + -49.50000 -6.500000 0.0000000E+00 + -48.50000 -6.500000 0.0000000E+00 + -47.50000 -6.500000 0.0000000E+00 + -46.50000 -6.500000 0.0000000E+00 + -45.50000 -6.500000 0.0000000E+00 + -44.50000 -6.500000 0.0000000E+00 + -43.50000 -6.500000 0.0000000E+00 + -42.50000 -6.500000 0.0000000E+00 + -41.50000 -6.500000 0.0000000E+00 + -40.50000 -6.500000 0.0000000E+00 + -39.50000 -6.500000 0.0000000E+00 + -38.50000 -6.500000 0.0000000E+00 + -37.50000 -6.500000 0.0000000E+00 + -36.50000 -6.500000 0.0000000E+00 + -35.50000 -6.500000 0.0000000E+00 + -34.50000 -6.500000 0.0000000E+00 + -33.50000 -6.500000 0.0000000E+00 + -32.50000 -6.500000 0.0000000E+00 + -31.50000 -6.500000 0.0000000E+00 + -30.50000 -6.500000 0.0000000E+00 + -29.50000 -6.500000 0.0000000E+00 + -28.50000 -6.500000 0.0000000E+00 + -27.50000 -6.500000 0.0000000E+00 + -26.50000 -6.500000 0.0000000E+00 + -25.50000 -6.500000 0.0000000E+00 + -24.50000 -6.500000 0.0000000E+00 + -23.50000 -6.500000 0.0000000E+00 + -22.50000 -6.500000 0.0000000E+00 + -21.50000 -6.500000 0.0000000E+00 + -20.50000 -6.500000 0.0000000E+00 + -19.50000 -6.500000 0.0000000E+00 + -18.50000 -6.500000 0.0000000E+00 + -17.50000 -6.500000 0.0000000E+00 + -16.50000 -6.500000 0.0000000E+00 + -15.50000 -6.500000 0.0000000E+00 + -14.50000 -6.500000 0.0000000E+00 + -13.50000 -6.500000 0.0000000E+00 + -12.50000 -6.500000 0.0000000E+00 + -11.50000 -6.500000 0.0000000E+00 + -10.50000 -6.500000 0.0000000E+00 + -9.500000 -6.500000 0.0000000E+00 + -8.500000 -6.500000 0.0000000E+00 + -7.500000 -6.500000 0.0000000E+00 + -6.500000 -6.500000 0.0000000E+00 + -5.500000 -6.500000 0.0000000E+00 + -4.500000 -6.500000 0.0000000E+00 + -3.500000 -6.500000 0.0000000E+00 + -2.500000 -6.500000 0.0000000E+00 + -1.500000 -6.500000 0.0000000E+00 + -0.5000000 -6.500000 0.0000000E+00 + 0.5000000 -6.500000 0.0000000E+00 + 1.500000 -6.500000 0.0000000E+00 + 2.500000 -6.500000 0.0000000E+00 + 3.500000 -6.500000 0.0000000E+00 + 4.500000 -6.500000 0.0000000E+00 + 5.500000 -6.500000 0.0000000E+00 + 6.500000 -6.500000 0.0000000E+00 + 7.500000 -6.500000 0.0000000E+00 + 8.500000 -6.500000 0.0000000E+00 + 9.500000 -6.500000 0.0000000E+00 + 10.50000 -6.500000 0.0000000E+00 + 11.50000 -6.500000 0.0000000E+00 + 12.50000 -6.500000 0.0000000E+00 + 13.50000 -6.500000 0.0000000E+00 + 14.50000 -6.500000 0.0000000E+00 + 15.50000 -6.500000 4.7683716E-03 + 16.50000 -6.500000 3.2921817E-02 + 17.50000 -6.500000 4.6483610E-02 + 18.50000 -6.500000 4.6483610E-02 + 19.50000 -6.500000 4.3353830E-03 + 20.50000 -6.500000 2.5600004E-03 + 21.50000 -6.500000 2.5600004E-03 + 22.50000 -6.500000 7.1157008E-02 + 23.50000 -6.500000 2.8671244E-02 + 24.50000 -6.500000 0.1647704 + 25.50000 -6.500000 0.1319330 + 26.50000 -6.500000 0.1045530 + 27.50000 -6.500000 0.1045530 + 28.50000 -6.500000 8.1920013E-02 + 29.50000 -6.500000 8.1920013E-02 + 30.50000 -6.500000 1.9440001E-02 + 31.50000 -6.500000 0.0000000E+00 + 32.50000 -6.500000 0.0000000E+00 + 33.50000 -6.500000 0.0000000E+00 + 34.50000 -6.500000 0.0000000E+00 + 35.50000 -6.500000 0.0000000E+00 + 36.50000 -6.500000 0.0000000E+00 + 37.50000 -6.500000 0.0000000E+00 + 38.50000 -6.500000 0.0000000E+00 + 39.50000 -6.500000 0.0000000E+00 + 40.50000 -6.500000 0.0000000E+00 + 41.50000 -6.500000 0.0000000E+00 + 42.50000 -6.500000 0.0000000E+00 + 43.50000 -6.500000 0.0000000E+00 + 44.50000 -6.500000 0.0000000E+00 + 45.50000 -6.500000 0.0000000E+00 + 46.50000 -6.500000 0.0000000E+00 + 47.50000 -6.500000 0.0000000E+00 + 48.50000 -6.500000 0.0000000E+00 + 49.50000 -6.500000 0.0000000E+00 + 50.50000 -6.500000 0.0000000E+00 + 51.50000 -6.500000 0.0000000E+00 + 52.50000 -6.500000 0.0000000E+00 + 53.50000 -6.500000 0.0000000E+00 + 54.50000 -6.500000 0.0000000E+00 + 55.50000 -6.500000 0.0000000E+00 + 56.50000 -6.500000 0.0000000E+00 + 57.50000 -6.500000 0.0000000E+00 + 58.50000 -6.500000 0.0000000E+00 + 59.50000 -6.500000 0.0000000E+00 + 60.50000 -6.500000 0.0000000E+00 + 61.50000 -6.500000 0.0000000E+00 + 62.50000 -6.500000 0.0000000E+00 + 63.50000 -6.500000 0.0000000E+00 + 64.50000 -6.500000 0.0000000E+00 + 65.50000 -6.500000 0.0000000E+00 + 66.50000 -6.500000 0.0000000E+00 + 67.50000 -6.500000 0.0000000E+00 + 68.50000 -6.500000 0.0000000E+00 + 69.50000 -6.500000 0.0000000E+00 + 70.50000 -6.500000 0.0000000E+00 + 71.50000 -6.500000 0.0000000E+00 + 72.50000 -6.500000 0.0000000E+00 + 73.50000 -6.500000 0.0000000E+00 + 74.50000 -6.500000 0.0000000E+00 + 75.50000 -6.500000 0.0000000E+00 + 76.50000 -6.500000 0.0000000E+00 + 77.50000 -6.500000 0.0000000E+00 + 78.50000 -6.500000 0.0000000E+00 + 79.50000 -6.500000 0.0000000E+00 + 80.50000 -6.500000 0.0000000E+00 + 81.50000 -6.500000 0.0000000E+00 + 82.50000 -6.500000 0.0000000E+00 + 83.50000 -6.500000 0.0000000E+00 + 84.50000 -6.500000 0.0000000E+00 + 85.50000 -6.500000 0.0000000E+00 + 86.50000 -6.500000 0.0000000E+00 + 87.50000 -6.500000 0.0000000E+00 + 88.50000 -6.500000 0.0000000E+00 + 89.50000 -6.500000 0.0000000E+00 + -89.50000 -5.500000 0.0000000E+00 + -88.50000 -5.500000 0.0000000E+00 + -87.50000 -5.500000 0.0000000E+00 + -86.50000 -5.500000 0.0000000E+00 + -85.50000 -5.500000 0.0000000E+00 + -84.50000 -5.500000 0.0000000E+00 + -83.50000 -5.500000 0.0000000E+00 + -82.50000 -5.500000 0.0000000E+00 + -81.50000 -5.500000 0.0000000E+00 + -80.50000 -5.500000 0.0000000E+00 + -79.50000 -5.500000 0.0000000E+00 + -78.50000 -5.500000 0.0000000E+00 + -77.50000 -5.500000 0.0000000E+00 + -76.50000 -5.500000 0.0000000E+00 + -75.50000 -5.500000 0.0000000E+00 + -74.50000 -5.500000 0.0000000E+00 + -73.50000 -5.500000 0.0000000E+00 + -72.50000 -5.500000 0.0000000E+00 + -71.50000 -5.500000 0.0000000E+00 + -70.50000 -5.500000 0.0000000E+00 + -69.50000 -5.500000 0.0000000E+00 + -68.50000 -5.500000 0.0000000E+00 + -67.50000 -5.500000 0.0000000E+00 + -66.50000 -5.500000 0.0000000E+00 + -65.50000 -5.500000 0.0000000E+00 + -64.50000 -5.500000 0.0000000E+00 + -63.50000 -5.500000 0.0000000E+00 + -62.50000 -5.500000 0.0000000E+00 + -61.50000 -5.500000 0.0000000E+00 + -60.50000 -5.500000 0.0000000E+00 + -59.50000 -5.500000 0.0000000E+00 + -58.50000 -5.500000 0.0000000E+00 + -57.50000 -5.500000 0.0000000E+00 + -56.50000 -5.500000 0.0000000E+00 + -55.50000 -5.500000 0.0000000E+00 + -54.50000 -5.500000 0.0000000E+00 + -53.50000 -5.500000 0.0000000E+00 + -52.50000 -5.500000 0.0000000E+00 + -51.50000 -5.500000 0.0000000E+00 + -50.50000 -5.500000 0.0000000E+00 + -49.50000 -5.500000 0.0000000E+00 + -48.50000 -5.500000 0.0000000E+00 + -47.50000 -5.500000 0.0000000E+00 + -46.50000 -5.500000 0.0000000E+00 + -45.50000 -5.500000 0.0000000E+00 + -44.50000 -5.500000 0.0000000E+00 + -43.50000 -5.500000 0.0000000E+00 + -42.50000 -5.500000 0.0000000E+00 + -41.50000 -5.500000 0.0000000E+00 + -40.50000 -5.500000 0.0000000E+00 + -39.50000 -5.500000 0.0000000E+00 + -38.50000 -5.500000 0.0000000E+00 + -37.50000 -5.500000 0.0000000E+00 + -36.50000 -5.500000 0.0000000E+00 + -35.50000 -5.500000 0.0000000E+00 + -34.50000 -5.500000 0.0000000E+00 + -33.50000 -5.500000 0.0000000E+00 + -32.50000 -5.500000 0.0000000E+00 + -31.50000 -5.500000 0.0000000E+00 + -30.50000 -5.500000 0.0000000E+00 + -29.50000 -5.500000 0.0000000E+00 + -28.50000 -5.500000 0.0000000E+00 + -27.50000 -5.500000 0.0000000E+00 + -26.50000 -5.500000 0.0000000E+00 + -25.50000 -5.500000 0.0000000E+00 + -24.50000 -5.500000 0.0000000E+00 + -23.50000 -5.500000 0.0000000E+00 + -22.50000 -5.500000 0.0000000E+00 + -21.50000 -5.500000 0.0000000E+00 + -20.50000 -5.500000 0.0000000E+00 + -19.50000 -5.500000 0.0000000E+00 + -18.50000 -5.500000 0.0000000E+00 + -17.50000 -5.500000 0.0000000E+00 + -16.50000 -5.500000 0.0000000E+00 + -15.50000 -5.500000 0.0000000E+00 + -14.50000 -5.500000 0.0000000E+00 + -13.50000 -5.500000 0.0000000E+00 + -12.50000 -5.500000 0.0000000E+00 + -11.50000 -5.500000 0.0000000E+00 + -10.50000 -5.500000 0.0000000E+00 + -9.500000 -5.500000 0.0000000E+00 + -8.500000 -5.500000 0.0000000E+00 + -7.500000 -5.500000 0.0000000E+00 + -6.500000 -5.500000 0.0000000E+00 + -5.500000 -5.500000 0.0000000E+00 + -4.500000 -5.500000 0.0000000E+00 + -3.500000 -5.500000 0.0000000E+00 + -2.500000 -5.500000 0.0000000E+00 + -1.500000 -5.500000 0.0000000E+00 + -0.5000000 -5.500000 0.0000000E+00 + 0.5000000 -5.500000 0.0000000E+00 + 1.500000 -5.500000 0.0000000E+00 + 2.500000 -5.500000 0.0000000E+00 + 3.500000 -5.500000 0.0000000E+00 + 4.500000 -5.500000 0.0000000E+00 + 5.500000 -5.500000 0.0000000E+00 + 6.500000 -5.500000 0.0000000E+00 + 7.500000 -5.500000 0.0000000E+00 + 8.500000 -5.500000 0.0000000E+00 + 9.500000 -5.500000 0.0000000E+00 + 10.50000 -5.500000 0.0000000E+00 + 11.50000 -5.500000 0.0000000E+00 + 12.50000 -5.500000 0.0000000E+00 + 13.50000 -5.500000 0.0000000E+00 + 14.50000 -5.500000 4.7683716E-03 + 15.50000 -5.500000 2.0093877E-02 + 16.50000 -5.500000 2.0093877E-02 + 17.50000 -5.500000 0.1004694 + 18.50000 -5.500000 0.1004694 + 19.50000 -5.500000 7.8125000E-03 + 20.50000 -5.500000 7.8125000E-03 + 21.50000 -5.500000 2.5600004E-03 + 22.50000 -5.500000 7.1157008E-02 + 23.50000 -5.500000 0.1433562 + 24.50000 -5.500000 0.1319330 + 25.50000 -5.500000 0.1319330 + 26.50000 -5.500000 0.1319330 + 27.50000 -5.500000 0.1045530 + 28.50000 -5.500000 8.1920013E-02 + 29.50000 -5.500000 6.3388139E-02 + 30.50000 -5.500000 2.6843542E-02 + 31.50000 -5.500000 4.3025921E-04 + 32.50000 -5.500000 0.0000000E+00 + 33.50000 -5.500000 0.0000000E+00 + 34.50000 -5.500000 0.0000000E+00 + 35.50000 -5.500000 0.0000000E+00 + 36.50000 -5.500000 0.0000000E+00 + 37.50000 -5.500000 0.0000000E+00 + 38.50000 -5.500000 0.0000000E+00 + 39.50000 -5.500000 0.0000000E+00 + 40.50000 -5.500000 0.0000000E+00 + 41.50000 -5.500000 0.0000000E+00 + 42.50000 -5.500000 0.0000000E+00 + 43.50000 -5.500000 0.0000000E+00 + 44.50000 -5.500000 0.0000000E+00 + 45.50000 -5.500000 0.0000000E+00 + 46.50000 -5.500000 0.0000000E+00 + 47.50000 -5.500000 0.0000000E+00 + 48.50000 -5.500000 0.0000000E+00 + 49.50000 -5.500000 0.0000000E+00 + 50.50000 -5.500000 0.0000000E+00 + 51.50000 -5.500000 0.0000000E+00 + 52.50000 -5.500000 0.0000000E+00 + 53.50000 -5.500000 0.0000000E+00 + 54.50000 -5.500000 0.0000000E+00 + 55.50000 -5.500000 0.0000000E+00 + 56.50000 -5.500000 0.0000000E+00 + 57.50000 -5.500000 0.0000000E+00 + 58.50000 -5.500000 0.0000000E+00 + 59.50000 -5.500000 0.0000000E+00 + 60.50000 -5.500000 0.0000000E+00 + 61.50000 -5.500000 0.0000000E+00 + 62.50000 -5.500000 0.0000000E+00 + 63.50000 -5.500000 0.0000000E+00 + 64.50000 -5.500000 0.0000000E+00 + 65.50000 -5.500000 0.0000000E+00 + 66.50000 -5.500000 0.0000000E+00 + 67.50000 -5.500000 0.0000000E+00 + 68.50000 -5.500000 0.0000000E+00 + 69.50000 -5.500000 0.0000000E+00 + 70.50000 -5.500000 0.0000000E+00 + 71.50000 -5.500000 0.0000000E+00 + 72.50000 -5.500000 0.0000000E+00 + 73.50000 -5.500000 0.0000000E+00 + 74.50000 -5.500000 0.0000000E+00 + 75.50000 -5.500000 0.0000000E+00 + 76.50000 -5.500000 0.0000000E+00 + 77.50000 -5.500000 0.0000000E+00 + 78.50000 -5.500000 0.0000000E+00 + 79.50000 -5.500000 0.0000000E+00 + 80.50000 -5.500000 0.0000000E+00 + 81.50000 -5.500000 0.0000000E+00 + 82.50000 -5.500000 0.0000000E+00 + 83.50000 -5.500000 0.0000000E+00 + 84.50000 -5.500000 0.0000000E+00 + 85.50000 -5.500000 0.0000000E+00 + 86.50000 -5.500000 0.0000000E+00 + 87.50000 -5.500000 0.0000000E+00 + 88.50000 -5.500000 0.0000000E+00 + 89.50000 -5.500000 0.0000000E+00 + -89.50000 -4.500000 0.0000000E+00 + -88.50000 -4.500000 0.0000000E+00 + -87.50000 -4.500000 0.0000000E+00 + -86.50000 -4.500000 0.0000000E+00 + -85.50000 -4.500000 0.0000000E+00 + -84.50000 -4.500000 0.0000000E+00 + -83.50000 -4.500000 0.0000000E+00 + -82.50000 -4.500000 0.0000000E+00 + -81.50000 -4.500000 0.0000000E+00 + -80.50000 -4.500000 0.0000000E+00 + -79.50000 -4.500000 0.0000000E+00 + -78.50000 -4.500000 0.0000000E+00 + -77.50000 -4.500000 0.0000000E+00 + -76.50000 -4.500000 0.0000000E+00 + -75.50000 -4.500000 0.0000000E+00 + -74.50000 -4.500000 0.0000000E+00 + -73.50000 -4.500000 0.0000000E+00 + -72.50000 -4.500000 0.0000000E+00 + -71.50000 -4.500000 0.0000000E+00 + -70.50000 -4.500000 0.0000000E+00 + -69.50000 -4.500000 0.0000000E+00 + -68.50000 -4.500000 0.0000000E+00 + -67.50000 -4.500000 0.0000000E+00 + -66.50000 -4.500000 0.0000000E+00 + -65.50000 -4.500000 0.0000000E+00 + -64.50000 -4.500000 0.0000000E+00 + -63.50000 -4.500000 0.0000000E+00 + -62.50000 -4.500000 0.0000000E+00 + -61.50000 -4.500000 0.0000000E+00 + -60.50000 -4.500000 0.0000000E+00 + -59.50000 -4.500000 0.0000000E+00 + -58.50000 -4.500000 0.0000000E+00 + -57.50000 -4.500000 0.0000000E+00 + -56.50000 -4.500000 0.0000000E+00 + -55.50000 -4.500000 0.0000000E+00 + -54.50000 -4.500000 0.0000000E+00 + -53.50000 -4.500000 0.0000000E+00 + -52.50000 -4.500000 0.0000000E+00 + -51.50000 -4.500000 0.0000000E+00 + -50.50000 -4.500000 0.0000000E+00 + -49.50000 -4.500000 0.0000000E+00 + -48.50000 -4.500000 0.0000000E+00 + -47.50000 -4.500000 0.0000000E+00 + -46.50000 -4.500000 0.0000000E+00 + -45.50000 -4.500000 0.0000000E+00 + -44.50000 -4.500000 0.0000000E+00 + -43.50000 -4.500000 0.0000000E+00 + -42.50000 -4.500000 0.0000000E+00 + -41.50000 -4.500000 0.0000000E+00 + -40.50000 -4.500000 0.0000000E+00 + -39.50000 -4.500000 0.0000000E+00 + -38.50000 -4.500000 0.0000000E+00 + -37.50000 -4.500000 0.0000000E+00 + -36.50000 -4.500000 0.0000000E+00 + -35.50000 -4.500000 0.0000000E+00 + -34.50000 -4.500000 0.0000000E+00 + -33.50000 -4.500000 0.0000000E+00 + -32.50000 -4.500000 0.0000000E+00 + -31.50000 -4.500000 0.0000000E+00 + -30.50000 -4.500000 0.0000000E+00 + -29.50000 -4.500000 0.0000000E+00 + -28.50000 -4.500000 0.0000000E+00 + -27.50000 -4.500000 0.0000000E+00 + -26.50000 -4.500000 0.0000000E+00 + -25.50000 -4.500000 0.0000000E+00 + -24.50000 -4.500000 0.0000000E+00 + -23.50000 -4.500000 0.0000000E+00 + -22.50000 -4.500000 0.0000000E+00 + -21.50000 -4.500000 0.0000000E+00 + -20.50000 -4.500000 0.0000000E+00 + -19.50000 -4.500000 0.0000000E+00 + -18.50000 -4.500000 0.0000000E+00 + -17.50000 -4.500000 0.0000000E+00 + -16.50000 -4.500000 0.0000000E+00 + -15.50000 -4.500000 0.0000000E+00 + -14.50000 -4.500000 0.0000000E+00 + -13.50000 -4.500000 0.0000000E+00 + -12.50000 -4.500000 0.0000000E+00 + -11.50000 -4.500000 0.0000000E+00 + -10.50000 -4.500000 0.0000000E+00 + -9.500000 -4.500000 0.0000000E+00 + -8.500000 -4.500000 0.0000000E+00 + -7.500000 -4.500000 0.0000000E+00 + -6.500000 -4.500000 0.0000000E+00 + -5.500000 -4.500000 0.0000000E+00 + -4.500000 -4.500000 0.0000000E+00 + -3.500000 -4.500000 0.0000000E+00 + -2.500000 -4.500000 0.0000000E+00 + -1.500000 -4.500000 0.0000000E+00 + -0.5000000 -4.500000 0.0000000E+00 + 0.5000000 -4.500000 0.0000000E+00 + 1.500000 -4.500000 0.0000000E+00 + 2.500000 -4.500000 0.0000000E+00 + 3.500000 -4.500000 0.0000000E+00 + 4.500000 -4.500000 0.0000000E+00 + 5.500000 -4.500000 0.0000000E+00 + 6.500000 -4.500000 0.0000000E+00 + 7.500000 -4.500000 0.0000000E+00 + 8.500000 -4.500000 0.0000000E+00 + 9.500000 -4.500000 0.0000000E+00 + 10.50000 -4.500000 0.0000000E+00 + 11.50000 -4.500000 0.0000000E+00 + 12.50000 -4.500000 0.0000000E+00 + 13.50000 -4.500000 0.0000000E+00 + 14.50000 -4.500000 0.0000000E+00 + 15.50000 -4.500000 1.8536992E-02 + 16.50000 -4.500000 5.9326172E-02 + 17.50000 -4.500000 5.3020909E-02 + 18.50000 -4.500000 3.2921817E-02 + 19.50000 -4.500000 3.2921817E-02 + 20.50000 -4.500000 3.2921817E-02 + 21.50000 -4.500000 7.8125000E-03 + 22.50000 -4.500000 7.1157008E-02 + 23.50000 -4.500000 0.1058698 + 24.50000 -4.500000 0.1319330 + 25.50000 -4.500000 0.1319330 + 26.50000 -4.500000 0.1319330 + 27.50000 -4.500000 0.1045530 + 28.50000 -4.500000 8.1920013E-02 + 29.50000 -4.500000 8.1920013E-02 + 30.50000 -4.500000 3.6348343E-02 + 31.50000 -4.500000 1.9440001E-02 + 32.50000 -4.500000 2.5600004E-03 + 33.50000 -4.500000 0.0000000E+00 + 34.50000 -4.500000 0.0000000E+00 + 35.50000 -4.500000 0.0000000E+00 + 36.50000 -4.500000 0.0000000E+00 + 37.50000 -4.500000 0.0000000E+00 + 38.50000 -4.500000 0.0000000E+00 + 39.50000 -4.500000 0.0000000E+00 + 40.50000 -4.500000 0.0000000E+00 + 41.50000 -4.500000 0.0000000E+00 + 42.50000 -4.500000 0.0000000E+00 + 43.50000 -4.500000 0.0000000E+00 + 44.50000 -4.500000 0.0000000E+00 + 45.50000 -4.500000 0.0000000E+00 + 46.50000 -4.500000 0.0000000E+00 + 47.50000 -4.500000 0.0000000E+00 + 48.50000 -4.500000 0.0000000E+00 + 49.50000 -4.500000 0.0000000E+00 + 50.50000 -4.500000 0.0000000E+00 + 51.50000 -4.500000 0.0000000E+00 + 52.50000 -4.500000 0.0000000E+00 + 53.50000 -4.500000 0.0000000E+00 + 54.50000 -4.500000 0.0000000E+00 + 55.50000 -4.500000 0.0000000E+00 + 56.50000 -4.500000 0.0000000E+00 + 57.50000 -4.500000 0.0000000E+00 + 58.50000 -4.500000 0.0000000E+00 + 59.50000 -4.500000 0.0000000E+00 + 60.50000 -4.500000 0.0000000E+00 + 61.50000 -4.500000 0.0000000E+00 + 62.50000 -4.500000 0.0000000E+00 + 63.50000 -4.500000 0.0000000E+00 + 64.50000 -4.500000 0.0000000E+00 + 65.50000 -4.500000 0.0000000E+00 + 66.50000 -4.500000 0.0000000E+00 + 67.50000 -4.500000 0.0000000E+00 + 68.50000 -4.500000 0.0000000E+00 + 69.50000 -4.500000 0.0000000E+00 + 70.50000 -4.500000 0.0000000E+00 + 71.50000 -4.500000 0.0000000E+00 + 72.50000 -4.500000 0.0000000E+00 + 73.50000 -4.500000 0.0000000E+00 + 74.50000 -4.500000 0.0000000E+00 + 75.50000 -4.500000 0.0000000E+00 + 76.50000 -4.500000 0.0000000E+00 + 77.50000 -4.500000 0.0000000E+00 + 78.50000 -4.500000 0.0000000E+00 + 79.50000 -4.500000 0.0000000E+00 + 80.50000 -4.500000 0.0000000E+00 + 81.50000 -4.500000 0.0000000E+00 + 82.50000 -4.500000 0.0000000E+00 + 83.50000 -4.500000 0.0000000E+00 + 84.50000 -4.500000 0.0000000E+00 + 85.50000 -4.500000 0.0000000E+00 + 86.50000 -4.500000 0.0000000E+00 + 87.50000 -4.500000 0.0000000E+00 + 88.50000 -4.500000 0.0000000E+00 + 89.50000 -4.500000 0.0000000E+00 + -89.50000 -3.500000 0.0000000E+00 + -88.50000 -3.500000 0.0000000E+00 + -87.50000 -3.500000 0.0000000E+00 + -86.50000 -3.500000 0.0000000E+00 + -85.50000 -3.500000 0.0000000E+00 + -84.50000 -3.500000 0.0000000E+00 + -83.50000 -3.500000 0.0000000E+00 + -82.50000 -3.500000 0.0000000E+00 + -81.50000 -3.500000 0.0000000E+00 + -80.50000 -3.500000 0.0000000E+00 + -79.50000 -3.500000 0.0000000E+00 + -78.50000 -3.500000 0.0000000E+00 + -77.50000 -3.500000 0.0000000E+00 + -76.50000 -3.500000 0.0000000E+00 + -75.50000 -3.500000 0.0000000E+00 + -74.50000 -3.500000 0.0000000E+00 + -73.50000 -3.500000 0.0000000E+00 + -72.50000 -3.500000 0.0000000E+00 + -71.50000 -3.500000 0.0000000E+00 + -70.50000 -3.500000 0.0000000E+00 + -69.50000 -3.500000 0.0000000E+00 + -68.50000 -3.500000 0.0000000E+00 + -67.50000 -3.500000 0.0000000E+00 + -66.50000 -3.500000 0.0000000E+00 + -65.50000 -3.500000 0.0000000E+00 + -64.50000 -3.500000 0.0000000E+00 + -63.50000 -3.500000 0.0000000E+00 + -62.50000 -3.500000 0.0000000E+00 + -61.50000 -3.500000 0.0000000E+00 + -60.50000 -3.500000 0.0000000E+00 + -59.50000 -3.500000 0.0000000E+00 + -58.50000 -3.500000 0.0000000E+00 + -57.50000 -3.500000 0.0000000E+00 + -56.50000 -3.500000 0.0000000E+00 + -55.50000 -3.500000 0.0000000E+00 + -54.50000 -3.500000 0.0000000E+00 + -53.50000 -3.500000 0.0000000E+00 + -52.50000 -3.500000 0.0000000E+00 + -51.50000 -3.500000 0.0000000E+00 + -50.50000 -3.500000 0.0000000E+00 + -49.50000 -3.500000 0.0000000E+00 + -48.50000 -3.500000 0.0000000E+00 + -47.50000 -3.500000 0.0000000E+00 + -46.50000 -3.500000 0.0000000E+00 + -45.50000 -3.500000 0.0000000E+00 + -44.50000 -3.500000 0.0000000E+00 + -43.50000 -3.500000 0.0000000E+00 + -42.50000 -3.500000 0.0000000E+00 + -41.50000 -3.500000 0.0000000E+00 + -40.50000 -3.500000 0.0000000E+00 + -39.50000 -3.500000 0.0000000E+00 + -38.50000 -3.500000 0.0000000E+00 + -37.50000 -3.500000 0.0000000E+00 + -36.50000 -3.500000 0.0000000E+00 + -35.50000 -3.500000 0.0000000E+00 + -34.50000 -3.500000 0.0000000E+00 + -33.50000 -3.500000 0.0000000E+00 + -32.50000 -3.500000 0.0000000E+00 + -31.50000 -3.500000 0.0000000E+00 + -30.50000 -3.500000 0.0000000E+00 + -29.50000 -3.500000 0.0000000E+00 + -28.50000 -3.500000 0.0000000E+00 + -27.50000 -3.500000 0.0000000E+00 + -26.50000 -3.500000 0.0000000E+00 + -25.50000 -3.500000 0.0000000E+00 + -24.50000 -3.500000 0.0000000E+00 + -23.50000 -3.500000 0.0000000E+00 + -22.50000 -3.500000 0.0000000E+00 + -21.50000 -3.500000 0.0000000E+00 + -20.50000 -3.500000 0.0000000E+00 + -19.50000 -3.500000 0.0000000E+00 + -18.50000 -3.500000 0.0000000E+00 + -17.50000 -3.500000 0.0000000E+00 + -16.50000 -3.500000 0.0000000E+00 + -15.50000 -3.500000 0.0000000E+00 + -14.50000 -3.500000 0.0000000E+00 + -13.50000 -3.500000 0.0000000E+00 + -12.50000 -3.500000 0.0000000E+00 + -11.50000 -3.500000 0.0000000E+00 + -10.50000 -3.500000 0.0000000E+00 + -9.500000 -3.500000 0.0000000E+00 + -8.500000 -3.500000 0.0000000E+00 + -7.500000 -3.500000 0.0000000E+00 + -6.500000 -3.500000 0.0000000E+00 + -5.500000 -3.500000 0.0000000E+00 + -4.500000 -3.500000 0.0000000E+00 + -3.500000 -3.500000 0.0000000E+00 + -2.500000 -3.500000 0.0000000E+00 + -1.500000 -3.500000 0.0000000E+00 + -0.5000000 -3.500000 0.0000000E+00 + 0.5000000 -3.500000 0.0000000E+00 + 1.500000 -3.500000 0.0000000E+00 + 2.500000 -3.500000 0.0000000E+00 + 3.500000 -3.500000 0.0000000E+00 + 4.500000 -3.500000 0.0000000E+00 + 5.500000 -3.500000 0.0000000E+00 + 6.500000 -3.500000 0.0000000E+00 + 7.500000 -3.500000 0.0000000E+00 + 8.500000 -3.500000 0.0000000E+00 + 9.500000 -3.500000 0.0000000E+00 + 10.50000 -3.500000 0.0000000E+00 + 11.50000 -3.500000 0.0000000E+00 + 12.50000 -3.500000 0.0000000E+00 + 13.50000 -3.500000 0.0000000E+00 + 14.50000 -3.500000 9.6745891E-03 + 15.50000 -3.500000 8.1920013E-02 + 16.50000 -3.500000 5.9326172E-02 + 17.50000 -3.500000 5.9326172E-02 + 18.50000 -3.500000 5.9326172E-02 + 19.50000 -3.500000 5.9326172E-02 + 20.50000 -3.500000 5.9326172E-02 + 21.50000 -3.500000 5.9326172E-02 + 22.50000 -3.500000 7.1157008E-02 + 23.50000 -3.500000 0.1058698 + 24.50000 -3.500000 0.1319330 + 25.50000 -3.500000 0.1319330 + 26.50000 -3.500000 0.1319330 + 27.50000 -3.500000 0.1045530 + 28.50000 -3.500000 0.1045530 + 29.50000 -3.500000 8.1920013E-02 + 30.50000 -3.500000 7.2179340E-02 + 31.50000 -3.500000 2.6843542E-02 + 32.50000 -3.500000 1.3768295E-02 + 33.50000 -3.500000 2.7536589E-03 + 34.50000 -3.500000 1.6384004E-02 + 35.50000 -3.500000 0.0000000E+00 + 36.50000 -3.500000 0.0000000E+00 + 37.50000 -3.500000 0.0000000E+00 + 38.50000 -3.500000 0.0000000E+00 + 39.50000 -3.500000 0.0000000E+00 + 40.50000 -3.500000 0.0000000E+00 + 41.50000 -3.500000 0.0000000E+00 + 42.50000 -3.500000 0.0000000E+00 + 43.50000 -3.500000 0.0000000E+00 + 44.50000 -3.500000 0.0000000E+00 + 45.50000 -3.500000 0.0000000E+00 + 46.50000 -3.500000 0.0000000E+00 + 47.50000 -3.500000 0.0000000E+00 + 48.50000 -3.500000 0.0000000E+00 + 49.50000 -3.500000 0.0000000E+00 + 50.50000 -3.500000 0.0000000E+00 + 51.50000 -3.500000 0.0000000E+00 + 52.50000 -3.500000 0.0000000E+00 + 53.50000 -3.500000 0.0000000E+00 + 54.50000 -3.500000 0.0000000E+00 + 55.50000 -3.500000 0.0000000E+00 + 56.50000 -3.500000 0.0000000E+00 + 57.50000 -3.500000 0.0000000E+00 + 58.50000 -3.500000 0.0000000E+00 + 59.50000 -3.500000 0.0000000E+00 + 60.50000 -3.500000 0.0000000E+00 + 61.50000 -3.500000 0.0000000E+00 + 62.50000 -3.500000 0.0000000E+00 + 63.50000 -3.500000 0.0000000E+00 + 64.50000 -3.500000 0.0000000E+00 + 65.50000 -3.500000 0.0000000E+00 + 66.50000 -3.500000 0.0000000E+00 + 67.50000 -3.500000 0.0000000E+00 + 68.50000 -3.500000 0.0000000E+00 + 69.50000 -3.500000 0.0000000E+00 + 70.50000 -3.500000 0.0000000E+00 + 71.50000 -3.500000 0.0000000E+00 + 72.50000 -3.500000 0.0000000E+00 + 73.50000 -3.500000 0.0000000E+00 + 74.50000 -3.500000 0.0000000E+00 + 75.50000 -3.500000 0.0000000E+00 + 76.50000 -3.500000 0.0000000E+00 + 77.50000 -3.500000 0.0000000E+00 + 78.50000 -3.500000 0.0000000E+00 + 79.50000 -3.500000 0.0000000E+00 + 80.50000 -3.500000 0.0000000E+00 + 81.50000 -3.500000 0.0000000E+00 + 82.50000 -3.500000 0.0000000E+00 + 83.50000 -3.500000 0.0000000E+00 + 84.50000 -3.500000 0.0000000E+00 + 85.50000 -3.500000 0.0000000E+00 + 86.50000 -3.500000 0.0000000E+00 + 87.50000 -3.500000 0.0000000E+00 + 88.50000 -3.500000 0.0000000E+00 + 89.50000 -3.500000 0.0000000E+00 + -89.50000 -2.500000 0.0000000E+00 + -88.50000 -2.500000 0.0000000E+00 + -87.50000 -2.500000 0.0000000E+00 + -86.50000 -2.500000 0.0000000E+00 + -85.50000 -2.500000 0.0000000E+00 + -84.50000 -2.500000 0.0000000E+00 + -83.50000 -2.500000 0.0000000E+00 + -82.50000 -2.500000 0.0000000E+00 + -81.50000 -2.500000 0.0000000E+00 + -80.50000 -2.500000 0.0000000E+00 + -79.50000 -2.500000 0.0000000E+00 + -78.50000 -2.500000 0.0000000E+00 + -77.50000 -2.500000 0.0000000E+00 + -76.50000 -2.500000 0.0000000E+00 + -75.50000 -2.500000 0.0000000E+00 + -74.50000 -2.500000 0.0000000E+00 + -73.50000 -2.500000 0.0000000E+00 + -72.50000 -2.500000 0.0000000E+00 + -71.50000 -2.500000 0.0000000E+00 + -70.50000 -2.500000 0.0000000E+00 + -69.50000 -2.500000 0.0000000E+00 + -68.50000 -2.500000 0.0000000E+00 + -67.50000 -2.500000 0.0000000E+00 + -66.50000 -2.500000 0.0000000E+00 + -65.50000 -2.500000 0.0000000E+00 + -64.50000 -2.500000 0.0000000E+00 + -63.50000 -2.500000 0.0000000E+00 + -62.50000 -2.500000 0.0000000E+00 + -61.50000 -2.500000 0.0000000E+00 + -60.50000 -2.500000 0.0000000E+00 + -59.50000 -2.500000 0.0000000E+00 + -58.50000 -2.500000 0.0000000E+00 + -57.50000 -2.500000 0.0000000E+00 + -56.50000 -2.500000 0.0000000E+00 + -55.50000 -2.500000 0.0000000E+00 + -54.50000 -2.500000 0.0000000E+00 + -53.50000 -2.500000 0.0000000E+00 + -52.50000 -2.500000 0.0000000E+00 + -51.50000 -2.500000 0.0000000E+00 + -50.50000 -2.500000 0.0000000E+00 + -49.50000 -2.500000 0.0000000E+00 + -48.50000 -2.500000 0.0000000E+00 + -47.50000 -2.500000 0.0000000E+00 + -46.50000 -2.500000 0.0000000E+00 + -45.50000 -2.500000 0.0000000E+00 + -44.50000 -2.500000 0.0000000E+00 + -43.50000 -2.500000 0.0000000E+00 + -42.50000 -2.500000 0.0000000E+00 + -41.50000 -2.500000 0.0000000E+00 + -40.50000 -2.500000 0.0000000E+00 + -39.50000 -2.500000 0.0000000E+00 + -38.50000 -2.500000 0.0000000E+00 + -37.50000 -2.500000 0.0000000E+00 + -36.50000 -2.500000 0.0000000E+00 + -35.50000 -2.500000 0.0000000E+00 + -34.50000 -2.500000 0.0000000E+00 + -33.50000 -2.500000 0.0000000E+00 + -32.50000 -2.500000 0.0000000E+00 + -31.50000 -2.500000 0.0000000E+00 + -30.50000 -2.500000 0.0000000E+00 + -29.50000 -2.500000 0.0000000E+00 + -28.50000 -2.500000 0.0000000E+00 + -27.50000 -2.500000 0.0000000E+00 + -26.50000 -2.500000 0.0000000E+00 + -25.50000 -2.500000 0.0000000E+00 + -24.50000 -2.500000 0.0000000E+00 + -23.50000 -2.500000 0.0000000E+00 + -22.50000 -2.500000 0.0000000E+00 + -21.50000 -2.500000 0.0000000E+00 + -20.50000 -2.500000 0.0000000E+00 + -19.50000 -2.500000 0.0000000E+00 + -18.50000 -2.500000 0.0000000E+00 + -17.50000 -2.500000 0.0000000E+00 + -16.50000 -2.500000 0.0000000E+00 + -15.50000 -2.500000 0.0000000E+00 + -14.50000 -2.500000 0.0000000E+00 + -13.50000 -2.500000 0.0000000E+00 + -12.50000 -2.500000 0.0000000E+00 + -11.50000 -2.500000 0.0000000E+00 + -10.50000 -2.500000 0.0000000E+00 + -9.500000 -2.500000 0.0000000E+00 + -8.500000 -2.500000 0.0000000E+00 + -7.500000 -2.500000 0.0000000E+00 + -6.500000 -2.500000 0.0000000E+00 + -5.500000 -2.500000 0.0000000E+00 + -4.500000 -2.500000 0.0000000E+00 + -3.500000 -2.500000 0.0000000E+00 + -2.500000 -2.500000 0.0000000E+00 + -1.500000 -2.500000 0.0000000E+00 + -0.5000000 -2.500000 0.0000000E+00 + 0.5000000 -2.500000 0.0000000E+00 + 1.500000 -2.500000 0.0000000E+00 + 2.500000 -2.500000 0.0000000E+00 + 3.500000 -2.500000 0.0000000E+00 + 4.500000 -2.500000 0.0000000E+00 + 5.500000 -2.500000 0.0000000E+00 + 6.500000 -2.500000 0.0000000E+00 + 7.500000 -2.500000 0.0000000E+00 + 8.500000 -2.500000 0.0000000E+00 + 9.500000 -2.500000 0.0000000E+00 + 10.50000 -2.500000 0.0000000E+00 + 11.50000 -2.500000 0.0000000E+00 + 12.50000 -2.500000 0.0000000E+00 + 13.50000 -2.500000 2.3572082E-03 + 14.50000 -2.500000 0.0000000E+00 + 15.50000 -2.500000 8.4034996E-03 + 16.50000 -2.500000 2.9524496E-02 + 17.50000 -2.500000 8.1920013E-02 + 18.50000 -2.500000 3.2921817E-02 + 19.50000 -2.500000 3.2921817E-02 + 20.50000 -2.500000 0.1004694 + 21.50000 -2.500000 0.1004694 + 22.50000 -2.500000 0.2500000 + 23.50000 -2.500000 0.1846271 + 24.50000 -2.500000 0.2001770 + 25.50000 -2.500000 0.1319330 + 26.50000 -2.500000 0.1319330 + 27.50000 -2.500000 0.1045530 + 28.50000 -2.500000 0.1045530 + 29.50000 -2.500000 8.1920013E-02 + 30.50000 -2.500000 6.3388139E-02 + 31.50000 -2.500000 3.6348343E-02 + 32.50000 -2.500000 1.9440001E-02 + 33.50000 -2.500000 3.8880003E-03 + 34.50000 -2.500000 0.0000000E+00 + 35.50000 -2.500000 0.0000000E+00 + 36.50000 -2.500000 0.0000000E+00 + 37.50000 -2.500000 0.0000000E+00 + 38.50000 -2.500000 0.0000000E+00 + 39.50000 -2.500000 0.0000000E+00 + 40.50000 -2.500000 0.0000000E+00 + 41.50000 -2.500000 0.0000000E+00 + 42.50000 -2.500000 0.0000000E+00 + 43.50000 -2.500000 0.0000000E+00 + 44.50000 -2.500000 0.0000000E+00 + 45.50000 -2.500000 0.0000000E+00 + 46.50000 -2.500000 0.0000000E+00 + 47.50000 -2.500000 0.0000000E+00 + 48.50000 -2.500000 0.0000000E+00 + 49.50000 -2.500000 0.0000000E+00 + 50.50000 -2.500000 0.0000000E+00 + 51.50000 -2.500000 0.0000000E+00 + 52.50000 -2.500000 0.0000000E+00 + 53.50000 -2.500000 0.0000000E+00 + 54.50000 -2.500000 0.0000000E+00 + 55.50000 -2.500000 0.0000000E+00 + 56.50000 -2.500000 0.0000000E+00 + 57.50000 -2.500000 0.0000000E+00 + 58.50000 -2.500000 0.0000000E+00 + 59.50000 -2.500000 0.0000000E+00 + 60.50000 -2.500000 0.0000000E+00 + 61.50000 -2.500000 0.0000000E+00 + 62.50000 -2.500000 0.0000000E+00 + 63.50000 -2.500000 0.0000000E+00 + 64.50000 -2.500000 0.0000000E+00 + 65.50000 -2.500000 0.0000000E+00 + 66.50000 -2.500000 0.0000000E+00 + 67.50000 -2.500000 0.0000000E+00 + 68.50000 -2.500000 0.0000000E+00 + 69.50000 -2.500000 0.0000000E+00 + 70.50000 -2.500000 0.0000000E+00 + 71.50000 -2.500000 0.0000000E+00 + 72.50000 -2.500000 0.0000000E+00 + 73.50000 -2.500000 0.0000000E+00 + 74.50000 -2.500000 0.0000000E+00 + 75.50000 -2.500000 0.0000000E+00 + 76.50000 -2.500000 0.0000000E+00 + 77.50000 -2.500000 0.0000000E+00 + 78.50000 -2.500000 0.0000000E+00 + 79.50000 -2.500000 0.0000000E+00 + 80.50000 -2.500000 0.0000000E+00 + 81.50000 -2.500000 0.0000000E+00 + 82.50000 -2.500000 0.0000000E+00 + 83.50000 -2.500000 0.0000000E+00 + 84.50000 -2.500000 0.0000000E+00 + 85.50000 -2.500000 0.0000000E+00 + 86.50000 -2.500000 0.0000000E+00 + 87.50000 -2.500000 0.0000000E+00 + 88.50000 -2.500000 0.0000000E+00 + 89.50000 -2.500000 0.0000000E+00 + -89.50000 -1.500000 0.0000000E+00 + -88.50000 -1.500000 0.0000000E+00 + -87.50000 -1.500000 0.0000000E+00 + -86.50000 -1.500000 0.0000000E+00 + -85.50000 -1.500000 0.0000000E+00 + -84.50000 -1.500000 0.0000000E+00 + -83.50000 -1.500000 0.0000000E+00 + -82.50000 -1.500000 0.0000000E+00 + -81.50000 -1.500000 0.0000000E+00 + -80.50000 -1.500000 0.0000000E+00 + -79.50000 -1.500000 0.0000000E+00 + -78.50000 -1.500000 0.0000000E+00 + -77.50000 -1.500000 0.0000000E+00 + -76.50000 -1.500000 0.0000000E+00 + -75.50000 -1.500000 0.0000000E+00 + -74.50000 -1.500000 0.0000000E+00 + -73.50000 -1.500000 0.0000000E+00 + -72.50000 -1.500000 0.0000000E+00 + -71.50000 -1.500000 0.0000000E+00 + -70.50000 -1.500000 0.0000000E+00 + -69.50000 -1.500000 0.0000000E+00 + -68.50000 -1.500000 0.0000000E+00 + -67.50000 -1.500000 0.0000000E+00 + -66.50000 -1.500000 0.0000000E+00 + -65.50000 -1.500000 0.0000000E+00 + -64.50000 -1.500000 0.0000000E+00 + -63.50000 -1.500000 0.0000000E+00 + -62.50000 -1.500000 0.0000000E+00 + -61.50000 -1.500000 0.0000000E+00 + -60.50000 -1.500000 0.0000000E+00 + -59.50000 -1.500000 0.0000000E+00 + -58.50000 -1.500000 0.0000000E+00 + -57.50000 -1.500000 0.0000000E+00 + -56.50000 -1.500000 0.0000000E+00 + -55.50000 -1.500000 0.0000000E+00 + -54.50000 -1.500000 0.0000000E+00 + -53.50000 -1.500000 0.0000000E+00 + -52.50000 -1.500000 0.0000000E+00 + -51.50000 -1.500000 0.0000000E+00 + -50.50000 -1.500000 0.0000000E+00 + -49.50000 -1.500000 0.0000000E+00 + -48.50000 -1.500000 0.0000000E+00 + -47.50000 -1.500000 0.0000000E+00 + -46.50000 -1.500000 0.0000000E+00 + -45.50000 -1.500000 0.0000000E+00 + -44.50000 -1.500000 0.0000000E+00 + -43.50000 -1.500000 0.0000000E+00 + -42.50000 -1.500000 0.0000000E+00 + -41.50000 -1.500000 0.0000000E+00 + -40.50000 -1.500000 0.0000000E+00 + -39.50000 -1.500000 0.0000000E+00 + -38.50000 -1.500000 0.0000000E+00 + -37.50000 -1.500000 0.0000000E+00 + -36.50000 -1.500000 0.0000000E+00 + -35.50000 -1.500000 0.0000000E+00 + -34.50000 -1.500000 0.0000000E+00 + -33.50000 -1.500000 0.0000000E+00 + -32.50000 -1.500000 0.0000000E+00 + -31.50000 -1.500000 0.0000000E+00 + -30.50000 -1.500000 0.0000000E+00 + -29.50000 -1.500000 0.0000000E+00 + -28.50000 -1.500000 0.0000000E+00 + -27.50000 -1.500000 0.0000000E+00 + -26.50000 -1.500000 0.0000000E+00 + -25.50000 -1.500000 0.0000000E+00 + -24.50000 -1.500000 0.0000000E+00 + -23.50000 -1.500000 0.0000000E+00 + -22.50000 -1.500000 0.0000000E+00 + -21.50000 -1.500000 0.0000000E+00 + -20.50000 -1.500000 0.0000000E+00 + -19.50000 -1.500000 0.0000000E+00 + -18.50000 -1.500000 0.0000000E+00 + -17.50000 -1.500000 0.0000000E+00 + -16.50000 -1.500000 0.0000000E+00 + -15.50000 -1.500000 0.0000000E+00 + -14.50000 -1.500000 0.0000000E+00 + -13.50000 -1.500000 0.0000000E+00 + -12.50000 -1.500000 0.0000000E+00 + -11.50000 -1.500000 0.0000000E+00 + -10.50000 -1.500000 0.0000000E+00 + -9.500000 -1.500000 0.0000000E+00 + -8.500000 -1.500000 0.0000000E+00 + -7.500000 -1.500000 0.0000000E+00 + -6.500000 -1.500000 0.0000000E+00 + -5.500000 -1.500000 0.0000000E+00 + -4.500000 -1.500000 0.0000000E+00 + -3.500000 -1.500000 0.0000000E+00 + -2.500000 -1.500000 0.0000000E+00 + -1.500000 -1.500000 0.0000000E+00 + -0.5000000 -1.500000 0.0000000E+00 + 0.5000000 -1.500000 0.0000000E+00 + 1.500000 -1.500000 0.0000000E+00 + 2.500000 -1.500000 0.0000000E+00 + 3.500000 -1.500000 0.0000000E+00 + 4.500000 -1.500000 0.0000000E+00 + 5.500000 -1.500000 0.0000000E+00 + 6.500000 -1.500000 0.0000000E+00 + 7.500000 -1.500000 0.0000000E+00 + 8.500000 -1.500000 0.0000000E+00 + 9.500000 -1.500000 0.0000000E+00 + 10.50000 -1.500000 0.0000000E+00 + 11.50000 -1.500000 0.0000000E+00 + 12.50000 -1.500000 0.0000000E+00 + 13.50000 -1.500000 5.4896208E-03 + 14.50000 -1.500000 2.0093877E-02 + 15.50000 -1.500000 0.0000000E+00 + 16.50000 -1.500000 0.1770614 + 17.50000 -1.500000 3.5412278E-02 + 18.50000 -1.500000 0.1222364 + 19.50000 -1.500000 0.1222364 + 20.50000 -1.500000 0.1770614 + 21.50000 -1.500000 0.1770614 + 22.50000 -1.500000 0.1476225 + 23.50000 -1.500000 0.1846271 + 24.50000 -1.500000 0.2001770 + 25.50000 -1.500000 0.2001770 + 26.50000 -1.500000 0.1045530 + 27.50000 -1.500000 0.1045530 + 28.50000 -1.500000 0.1045530 + 29.50000 -1.500000 8.1920013E-02 + 30.50000 -1.500000 6.3388139E-02 + 31.50000 -1.500000 3.6348343E-02 + 32.50000 -1.500000 2.7536589E-03 + 33.50000 -1.500000 2.7536589E-03 + 34.50000 -1.500000 0.0000000E+00 + 35.50000 -1.500000 0.0000000E+00 + 36.50000 -1.500000 0.0000000E+00 + 37.50000 -1.500000 0.0000000E+00 + 38.50000 -1.500000 0.0000000E+00 + 39.50000 -1.500000 0.0000000E+00 + 40.50000 -1.500000 0.0000000E+00 + 41.50000 -1.500000 0.0000000E+00 + 42.50000 -1.500000 0.0000000E+00 + 43.50000 -1.500000 0.0000000E+00 + 44.50000 -1.500000 0.0000000E+00 + 45.50000 -1.500000 0.0000000E+00 + 46.50000 -1.500000 0.0000000E+00 + 47.50000 -1.500000 0.0000000E+00 + 48.50000 -1.500000 0.0000000E+00 + 49.50000 -1.500000 0.0000000E+00 + 50.50000 -1.500000 0.0000000E+00 + 51.50000 -1.500000 0.0000000E+00 + 52.50000 -1.500000 0.0000000E+00 + 53.50000 -1.500000 0.0000000E+00 + 54.50000 -1.500000 0.0000000E+00 + 55.50000 -1.500000 0.0000000E+00 + 56.50000 -1.500000 0.0000000E+00 + 57.50000 -1.500000 0.0000000E+00 + 58.50000 -1.500000 0.0000000E+00 + 59.50000 -1.500000 0.0000000E+00 + 60.50000 -1.500000 0.0000000E+00 + 61.50000 -1.500000 0.0000000E+00 + 62.50000 -1.500000 0.0000000E+00 + 63.50000 -1.500000 0.0000000E+00 + 64.50000 -1.500000 0.0000000E+00 + 65.50000 -1.500000 0.0000000E+00 + 66.50000 -1.500000 0.0000000E+00 + 67.50000 -1.500000 0.0000000E+00 + 68.50000 -1.500000 0.0000000E+00 + 69.50000 -1.500000 0.0000000E+00 + 70.50000 -1.500000 0.0000000E+00 + 71.50000 -1.500000 0.0000000E+00 + 72.50000 -1.500000 0.0000000E+00 + 73.50000 -1.500000 0.0000000E+00 + 74.50000 -1.500000 0.0000000E+00 + 75.50000 -1.500000 0.0000000E+00 + 76.50000 -1.500000 0.0000000E+00 + 77.50000 -1.500000 0.0000000E+00 + 78.50000 -1.500000 0.0000000E+00 + 79.50000 -1.500000 0.0000000E+00 + 80.50000 -1.500000 0.0000000E+00 + 81.50000 -1.500000 0.0000000E+00 + 82.50000 -1.500000 0.0000000E+00 + 83.50000 -1.500000 0.0000000E+00 + 84.50000 -1.500000 0.0000000E+00 + 85.50000 -1.500000 0.0000000E+00 + 86.50000 -1.500000 0.0000000E+00 + 87.50000 -1.500000 0.0000000E+00 + 88.50000 -1.500000 0.0000000E+00 + 89.50000 -1.500000 0.0000000E+00 + -89.50000 -0.5000000 0.0000000E+00 + -88.50000 -0.5000000 0.0000000E+00 + -87.50000 -0.5000000 0.0000000E+00 + -86.50000 -0.5000000 0.0000000E+00 + -85.50000 -0.5000000 0.0000000E+00 + -84.50000 -0.5000000 0.0000000E+00 + -83.50000 -0.5000000 0.0000000E+00 + -82.50000 -0.5000000 0.0000000E+00 + -81.50000 -0.5000000 0.0000000E+00 + -80.50000 -0.5000000 0.0000000E+00 + -79.50000 -0.5000000 0.0000000E+00 + -78.50000 -0.5000000 0.0000000E+00 + -77.50000 -0.5000000 0.0000000E+00 + -76.50000 -0.5000000 0.0000000E+00 + -75.50000 -0.5000000 0.0000000E+00 + -74.50000 -0.5000000 0.0000000E+00 + -73.50000 -0.5000000 0.0000000E+00 + -72.50000 -0.5000000 0.0000000E+00 + -71.50000 -0.5000000 0.0000000E+00 + -70.50000 -0.5000000 0.0000000E+00 + -69.50000 -0.5000000 0.0000000E+00 + -68.50000 -0.5000000 0.0000000E+00 + -67.50000 -0.5000000 0.0000000E+00 + -66.50000 -0.5000000 0.0000000E+00 + -65.50000 -0.5000000 0.0000000E+00 + -64.50000 -0.5000000 0.0000000E+00 + -63.50000 -0.5000000 0.0000000E+00 + -62.50000 -0.5000000 0.0000000E+00 + -61.50000 -0.5000000 0.0000000E+00 + -60.50000 -0.5000000 0.0000000E+00 + -59.50000 -0.5000000 0.0000000E+00 + -58.50000 -0.5000000 0.0000000E+00 + -57.50000 -0.5000000 0.0000000E+00 + -56.50000 -0.5000000 0.0000000E+00 + -55.50000 -0.5000000 0.0000000E+00 + -54.50000 -0.5000000 0.0000000E+00 + -53.50000 -0.5000000 0.0000000E+00 + -52.50000 -0.5000000 0.0000000E+00 + -51.50000 -0.5000000 0.0000000E+00 + -50.50000 -0.5000000 0.0000000E+00 + -49.50000 -0.5000000 0.0000000E+00 + -48.50000 -0.5000000 0.0000000E+00 + -47.50000 -0.5000000 0.0000000E+00 + -46.50000 -0.5000000 0.0000000E+00 + -45.50000 -0.5000000 0.0000000E+00 + -44.50000 -0.5000000 0.0000000E+00 + -43.50000 -0.5000000 0.0000000E+00 + -42.50000 -0.5000000 0.0000000E+00 + -41.50000 -0.5000000 0.0000000E+00 + -40.50000 -0.5000000 0.0000000E+00 + -39.50000 -0.5000000 0.0000000E+00 + -38.50000 -0.5000000 0.0000000E+00 + -37.50000 -0.5000000 0.0000000E+00 + -36.50000 -0.5000000 0.0000000E+00 + -35.50000 -0.5000000 0.0000000E+00 + -34.50000 -0.5000000 0.0000000E+00 + -33.50000 -0.5000000 0.0000000E+00 + -32.50000 -0.5000000 0.0000000E+00 + -31.50000 -0.5000000 0.0000000E+00 + -30.50000 -0.5000000 0.0000000E+00 + -29.50000 -0.5000000 0.0000000E+00 + -28.50000 -0.5000000 0.0000000E+00 + -27.50000 -0.5000000 0.0000000E+00 + -26.50000 -0.5000000 0.0000000E+00 + -25.50000 -0.5000000 0.0000000E+00 + -24.50000 -0.5000000 0.0000000E+00 + -23.50000 -0.5000000 0.0000000E+00 + -22.50000 -0.5000000 0.0000000E+00 + -21.50000 -0.5000000 0.0000000E+00 + -20.50000 -0.5000000 0.0000000E+00 + -19.50000 -0.5000000 0.0000000E+00 + -18.50000 -0.5000000 0.0000000E+00 + -17.50000 -0.5000000 0.0000000E+00 + -16.50000 -0.5000000 0.0000000E+00 + -15.50000 -0.5000000 0.0000000E+00 + -14.50000 -0.5000000 0.0000000E+00 + -13.50000 -0.5000000 0.0000000E+00 + -12.50000 -0.5000000 0.0000000E+00 + -11.50000 -0.5000000 0.0000000E+00 + -10.50000 -0.5000000 0.0000000E+00 + -9.500000 -0.5000000 0.0000000E+00 + -8.500000 -0.5000000 0.0000000E+00 + -7.500000 -0.5000000 0.0000000E+00 + -6.500000 -0.5000000 0.0000000E+00 + -5.500000 -0.5000000 0.0000000E+00 + -4.500000 -0.5000000 0.0000000E+00 + -3.500000 -0.5000000 0.0000000E+00 + -2.500000 -0.5000000 0.0000000E+00 + -1.500000 -0.5000000 0.0000000E+00 + -0.5000000 -0.5000000 0.0000000E+00 + 0.5000000 -0.5000000 0.0000000E+00 + 1.500000 -0.5000000 0.0000000E+00 + 2.500000 -0.5000000 0.0000000E+00 + 3.500000 -0.5000000 0.0000000E+00 + 4.500000 -0.5000000 0.0000000E+00 + 5.500000 -0.5000000 0.0000000E+00 + 6.500000 -0.5000000 0.0000000E+00 + 7.500000 -0.5000000 0.0000000E+00 + 8.500000 -0.5000000 0.0000000E+00 + 9.500000 -0.5000000 0.0000000E+00 + 10.50000 -0.5000000 0.0000000E+00 + 11.50000 -0.5000000 0.0000000E+00 + 12.50000 -0.5000000 0.0000000E+00 + 13.50000 -0.5000000 5.1200012E-04 + 14.50000 -0.5000000 2.0093877E-02 + 15.50000 -0.5000000 0.1387323 + 16.50000 -0.5000000 0.1770614 + 17.50000 -0.5000000 3.5412278E-02 + 18.50000 -0.5000000 2.4447279E-02 + 19.50000 -0.5000000 0.1222364 + 20.50000 -0.5000000 0.1770614 + 21.50000 -0.5000000 0.1770614 + 22.50000 -0.5000000 0.1770614 + 23.50000 -0.5000000 0.1846271 + 24.50000 -0.5000000 0.2001770 + 25.50000 -0.5000000 0.2001770 + 26.50000 -0.5000000 0.1282272 + 27.50000 -0.5000000 0.1045530 + 28.50000 -0.5000000 0.1045530 + 29.50000 -0.5000000 8.1920013E-02 + 30.50000 -0.5000000 7.2179340E-02 + 31.50000 -0.5000000 4.8372943E-02 + 32.50000 -0.5000000 1.9440001E-02 + 33.50000 -0.5000000 1.3768295E-02 + 34.50000 -0.5000000 0.0000000E+00 + 35.50000 -0.5000000 0.0000000E+00 + 36.50000 -0.5000000 0.0000000E+00 + 37.50000 -0.5000000 0.0000000E+00 + 38.50000 -0.5000000 0.0000000E+00 + 39.50000 -0.5000000 0.0000000E+00 + 40.50000 -0.5000000 0.0000000E+00 + 41.50000 -0.5000000 0.0000000E+00 + 42.50000 -0.5000000 0.0000000E+00 + 43.50000 -0.5000000 0.0000000E+00 + 44.50000 -0.5000000 0.0000000E+00 + 45.50000 -0.5000000 0.0000000E+00 + 46.50000 -0.5000000 0.0000000E+00 + 47.50000 -0.5000000 0.0000000E+00 + 48.50000 -0.5000000 0.0000000E+00 + 49.50000 -0.5000000 0.0000000E+00 + 50.50000 -0.5000000 0.0000000E+00 + 51.50000 -0.5000000 0.0000000E+00 + 52.50000 -0.5000000 0.0000000E+00 + 53.50000 -0.5000000 0.0000000E+00 + 54.50000 -0.5000000 0.0000000E+00 + 55.50000 -0.5000000 0.0000000E+00 + 56.50000 -0.5000000 0.0000000E+00 + 57.50000 -0.5000000 0.0000000E+00 + 58.50000 -0.5000000 0.0000000E+00 + 59.50000 -0.5000000 0.0000000E+00 + 60.50000 -0.5000000 0.0000000E+00 + 61.50000 -0.5000000 0.0000000E+00 + 62.50000 -0.5000000 0.0000000E+00 + 63.50000 -0.5000000 0.0000000E+00 + 64.50000 -0.5000000 0.0000000E+00 + 65.50000 -0.5000000 0.0000000E+00 + 66.50000 -0.5000000 0.0000000E+00 + 67.50000 -0.5000000 0.0000000E+00 + 68.50000 -0.5000000 0.0000000E+00 + 69.50000 -0.5000000 0.0000000E+00 + 70.50000 -0.5000000 0.0000000E+00 + 71.50000 -0.5000000 0.0000000E+00 + 72.50000 -0.5000000 0.0000000E+00 + 73.50000 -0.5000000 0.0000000E+00 + 74.50000 -0.5000000 0.0000000E+00 + 75.50000 -0.5000000 0.0000000E+00 + 76.50000 -0.5000000 0.0000000E+00 + 77.50000 -0.5000000 0.0000000E+00 + 78.50000 -0.5000000 0.0000000E+00 + 79.50000 -0.5000000 0.0000000E+00 + 80.50000 -0.5000000 0.0000000E+00 + 81.50000 -0.5000000 0.0000000E+00 + 82.50000 -0.5000000 0.0000000E+00 + 83.50000 -0.5000000 0.0000000E+00 + 84.50000 -0.5000000 0.0000000E+00 + 85.50000 -0.5000000 0.0000000E+00 + 86.50000 -0.5000000 0.0000000E+00 + 87.50000 -0.5000000 0.0000000E+00 + 88.50000 -0.5000000 0.0000000E+00 + 89.50000 -0.5000000 0.0000000E+00 + -89.50000 0.5000000 0.0000000E+00 + -88.50000 0.5000000 0.0000000E+00 + -87.50000 0.5000000 0.0000000E+00 + -86.50000 0.5000000 0.0000000E+00 + -85.50000 0.5000000 0.0000000E+00 + -84.50000 0.5000000 0.0000000E+00 + -83.50000 0.5000000 0.0000000E+00 + -82.50000 0.5000000 0.0000000E+00 + -81.50000 0.5000000 0.0000000E+00 + -80.50000 0.5000000 0.0000000E+00 + -79.50000 0.5000000 0.0000000E+00 + -78.50000 0.5000000 0.0000000E+00 + -77.50000 0.5000000 0.0000000E+00 + -76.50000 0.5000000 0.0000000E+00 + -75.50000 0.5000000 0.0000000E+00 + -74.50000 0.5000000 0.0000000E+00 + -73.50000 0.5000000 0.0000000E+00 + -72.50000 0.5000000 0.0000000E+00 + -71.50000 0.5000000 0.0000000E+00 + -70.50000 0.5000000 0.0000000E+00 + -69.50000 0.5000000 0.0000000E+00 + -68.50000 0.5000000 0.0000000E+00 + -67.50000 0.5000000 0.0000000E+00 + -66.50000 0.5000000 0.0000000E+00 + -65.50000 0.5000000 0.0000000E+00 + -64.50000 0.5000000 0.0000000E+00 + -63.50000 0.5000000 0.0000000E+00 + -62.50000 0.5000000 0.0000000E+00 + -61.50000 0.5000000 0.0000000E+00 + -60.50000 0.5000000 0.0000000E+00 + -59.50000 0.5000000 0.0000000E+00 + -58.50000 0.5000000 0.0000000E+00 + -57.50000 0.5000000 0.0000000E+00 + -56.50000 0.5000000 0.0000000E+00 + -55.50000 0.5000000 0.0000000E+00 + -54.50000 0.5000000 0.0000000E+00 + -53.50000 0.5000000 0.0000000E+00 + -52.50000 0.5000000 0.0000000E+00 + -51.50000 0.5000000 0.0000000E+00 + -50.50000 0.5000000 0.0000000E+00 + -49.50000 0.5000000 0.0000000E+00 + -48.50000 0.5000000 0.0000000E+00 + -47.50000 0.5000000 0.0000000E+00 + -46.50000 0.5000000 0.0000000E+00 + -45.50000 0.5000000 0.0000000E+00 + -44.50000 0.5000000 0.0000000E+00 + -43.50000 0.5000000 0.0000000E+00 + -42.50000 0.5000000 0.0000000E+00 + -41.50000 0.5000000 0.0000000E+00 + -40.50000 0.5000000 0.0000000E+00 + -39.50000 0.5000000 0.0000000E+00 + -38.50000 0.5000000 0.0000000E+00 + -37.50000 0.5000000 0.0000000E+00 + -36.50000 0.5000000 0.0000000E+00 + -35.50000 0.5000000 0.0000000E+00 + -34.50000 0.5000000 0.0000000E+00 + -33.50000 0.5000000 0.0000000E+00 + -32.50000 0.5000000 0.0000000E+00 + -31.50000 0.5000000 0.0000000E+00 + -30.50000 0.5000000 0.0000000E+00 + -29.50000 0.5000000 0.0000000E+00 + -28.50000 0.5000000 0.0000000E+00 + -27.50000 0.5000000 0.0000000E+00 + -26.50000 0.5000000 0.0000000E+00 + -25.50000 0.5000000 0.0000000E+00 + -24.50000 0.5000000 0.0000000E+00 + -23.50000 0.5000000 0.0000000E+00 + -22.50000 0.5000000 0.0000000E+00 + -21.50000 0.5000000 0.0000000E+00 + -20.50000 0.5000000 0.0000000E+00 + -19.50000 0.5000000 0.0000000E+00 + -18.50000 0.5000000 0.0000000E+00 + -17.50000 0.5000000 0.0000000E+00 + -16.50000 0.5000000 0.0000000E+00 + -15.50000 0.5000000 0.0000000E+00 + -14.50000 0.5000000 0.0000000E+00 + -13.50000 0.5000000 0.0000000E+00 + -12.50000 0.5000000 0.0000000E+00 + -11.50000 0.5000000 0.0000000E+00 + -10.50000 0.5000000 0.0000000E+00 + -9.500000 0.5000000 0.0000000E+00 + -8.500000 0.5000000 0.0000000E+00 + -7.500000 0.5000000 0.0000000E+00 + -6.500000 0.5000000 0.0000000E+00 + -5.500000 0.5000000 0.0000000E+00 + -4.500000 0.5000000 0.0000000E+00 + -3.500000 0.5000000 0.0000000E+00 + -2.500000 0.5000000 0.0000000E+00 + -1.500000 0.5000000 0.0000000E+00 + -0.5000000 0.5000000 0.0000000E+00 + 0.5000000 0.5000000 0.0000000E+00 + 1.500000 0.5000000 0.0000000E+00 + 2.500000 0.5000000 0.0000000E+00 + 3.500000 0.5000000 0.0000000E+00 + 4.500000 0.5000000 0.0000000E+00 + 5.500000 0.5000000 0.0000000E+00 + 6.500000 0.5000000 0.0000000E+00 + 7.500000 0.5000000 0.0000000E+00 + 8.500000 0.5000000 0.0000000E+00 + 9.500000 0.5000000 0.0000000E+00 + 10.50000 0.5000000 0.0000000E+00 + 11.50000 0.5000000 0.0000000E+00 + 12.50000 0.5000000 0.0000000E+00 + 13.50000 0.5000000 1.5625000E-03 + 14.50000 0.5000000 2.0093877E-02 + 15.50000 0.5000000 1.4231401E-02 + 16.50000 0.5000000 0.1222364 + 17.50000 0.5000000 0.1222364 + 18.50000 0.5000000 0.1222364 + 19.50000 0.5000000 8.1920013E-02 + 20.50000 0.5000000 0.1222364 + 21.50000 0.5000000 0.1222364 + 22.50000 0.5000000 0.1770614 + 23.50000 0.5000000 0.1222364 + 24.50000 0.5000000 0.1586344 + 25.50000 0.5000000 0.1282272 + 26.50000 0.5000000 0.1282272 + 27.50000 0.5000000 0.1045530 + 28.50000 0.5000000 0.1045530 + 29.50000 0.5000000 0.1045530 + 30.50000 0.5000000 8.1920013E-02 + 31.50000 0.5000000 4.8372943E-02 + 32.50000 0.5000000 3.1308319E-02 + 33.50000 0.5000000 3.8880003E-03 + 34.50000 0.5000000 0.0000000E+00 + 35.50000 0.5000000 0.0000000E+00 + 36.50000 0.5000000 0.0000000E+00 + 37.50000 0.5000000 0.0000000E+00 + 38.50000 0.5000000 0.0000000E+00 + 39.50000 0.5000000 0.0000000E+00 + 40.50000 0.5000000 0.0000000E+00 + 41.50000 0.5000000 0.0000000E+00 + 42.50000 0.5000000 0.0000000E+00 + 43.50000 0.5000000 0.0000000E+00 + 44.50000 0.5000000 0.0000000E+00 + 45.50000 0.5000000 0.0000000E+00 + 46.50000 0.5000000 0.0000000E+00 + 47.50000 0.5000000 0.0000000E+00 + 48.50000 0.5000000 0.0000000E+00 + 49.50000 0.5000000 0.0000000E+00 + 50.50000 0.5000000 0.0000000E+00 + 51.50000 0.5000000 0.0000000E+00 + 52.50000 0.5000000 0.0000000E+00 + 53.50000 0.5000000 0.0000000E+00 + 54.50000 0.5000000 0.0000000E+00 + 55.50000 0.5000000 0.0000000E+00 + 56.50000 0.5000000 0.0000000E+00 + 57.50000 0.5000000 0.0000000E+00 + 58.50000 0.5000000 0.0000000E+00 + 59.50000 0.5000000 0.0000000E+00 + 60.50000 0.5000000 0.0000000E+00 + 61.50000 0.5000000 0.0000000E+00 + 62.50000 0.5000000 0.0000000E+00 + 63.50000 0.5000000 0.0000000E+00 + 64.50000 0.5000000 0.0000000E+00 + 65.50000 0.5000000 0.0000000E+00 + 66.50000 0.5000000 0.0000000E+00 + 67.50000 0.5000000 0.0000000E+00 + 68.50000 0.5000000 0.0000000E+00 + 69.50000 0.5000000 0.0000000E+00 + 70.50000 0.5000000 0.0000000E+00 + 71.50000 0.5000000 0.0000000E+00 + 72.50000 0.5000000 0.0000000E+00 + 73.50000 0.5000000 0.0000000E+00 + 74.50000 0.5000000 0.0000000E+00 + 75.50000 0.5000000 0.0000000E+00 + 76.50000 0.5000000 0.0000000E+00 + 77.50000 0.5000000 0.0000000E+00 + 78.50000 0.5000000 0.0000000E+00 + 79.50000 0.5000000 0.0000000E+00 + 80.50000 0.5000000 0.0000000E+00 + 81.50000 0.5000000 0.0000000E+00 + 82.50000 0.5000000 0.0000000E+00 + 83.50000 0.5000000 0.0000000E+00 + 84.50000 0.5000000 0.0000000E+00 + 85.50000 0.5000000 0.0000000E+00 + 86.50000 0.5000000 0.0000000E+00 + 87.50000 0.5000000 0.0000000E+00 + 88.50000 0.5000000 0.0000000E+00 + 89.50000 0.5000000 0.0000000E+00 + -89.50000 1.500000 0.0000000E+00 + -88.50000 1.500000 0.0000000E+00 + -87.50000 1.500000 0.0000000E+00 + -86.50000 1.500000 0.0000000E+00 + -85.50000 1.500000 0.0000000E+00 + -84.50000 1.500000 0.0000000E+00 + -83.50000 1.500000 0.0000000E+00 + -82.50000 1.500000 0.0000000E+00 + -81.50000 1.500000 0.0000000E+00 + -80.50000 1.500000 0.0000000E+00 + -79.50000 1.500000 0.0000000E+00 + -78.50000 1.500000 0.0000000E+00 + -77.50000 1.500000 0.0000000E+00 + -76.50000 1.500000 0.0000000E+00 + -75.50000 1.500000 0.0000000E+00 + -74.50000 1.500000 0.0000000E+00 + -73.50000 1.500000 0.0000000E+00 + -72.50000 1.500000 0.0000000E+00 + -71.50000 1.500000 0.0000000E+00 + -70.50000 1.500000 0.0000000E+00 + -69.50000 1.500000 0.0000000E+00 + -68.50000 1.500000 0.0000000E+00 + -67.50000 1.500000 0.0000000E+00 + -66.50000 1.500000 0.0000000E+00 + -65.50000 1.500000 0.0000000E+00 + -64.50000 1.500000 0.0000000E+00 + -63.50000 1.500000 0.0000000E+00 + -62.50000 1.500000 0.0000000E+00 + -61.50000 1.500000 0.0000000E+00 + -60.50000 1.500000 0.0000000E+00 + -59.50000 1.500000 0.0000000E+00 + -58.50000 1.500000 0.0000000E+00 + -57.50000 1.500000 0.0000000E+00 + -56.50000 1.500000 0.0000000E+00 + -55.50000 1.500000 0.0000000E+00 + -54.50000 1.500000 0.0000000E+00 + -53.50000 1.500000 0.0000000E+00 + -52.50000 1.500000 0.0000000E+00 + -51.50000 1.500000 0.0000000E+00 + -50.50000 1.500000 0.0000000E+00 + -49.50000 1.500000 0.0000000E+00 + -48.50000 1.500000 0.0000000E+00 + -47.50000 1.500000 0.0000000E+00 + -46.50000 1.500000 0.0000000E+00 + -45.50000 1.500000 0.0000000E+00 + -44.50000 1.500000 0.0000000E+00 + -43.50000 1.500000 0.0000000E+00 + -42.50000 1.500000 0.0000000E+00 + -41.50000 1.500000 0.0000000E+00 + -40.50000 1.500000 0.0000000E+00 + -39.50000 1.500000 0.0000000E+00 + -38.50000 1.500000 0.0000000E+00 + -37.50000 1.500000 0.0000000E+00 + -36.50000 1.500000 0.0000000E+00 + -35.50000 1.500000 0.0000000E+00 + -34.50000 1.500000 0.0000000E+00 + -33.50000 1.500000 0.0000000E+00 + -32.50000 1.500000 0.0000000E+00 + -31.50000 1.500000 0.0000000E+00 + -30.50000 1.500000 0.0000000E+00 + -29.50000 1.500000 0.0000000E+00 + -28.50000 1.500000 0.0000000E+00 + -27.50000 1.500000 0.0000000E+00 + -26.50000 1.500000 0.0000000E+00 + -25.50000 1.500000 0.0000000E+00 + -24.50000 1.500000 0.0000000E+00 + -23.50000 1.500000 0.0000000E+00 + -22.50000 1.500000 0.0000000E+00 + -21.50000 1.500000 0.0000000E+00 + -20.50000 1.500000 0.0000000E+00 + -19.50000 1.500000 0.0000000E+00 + -18.50000 1.500000 0.0000000E+00 + -17.50000 1.500000 0.0000000E+00 + -16.50000 1.500000 0.0000000E+00 + -15.50000 1.500000 0.0000000E+00 + -14.50000 1.500000 0.0000000E+00 + -13.50000 1.500000 0.0000000E+00 + -12.50000 1.500000 0.0000000E+00 + -11.50000 1.500000 0.0000000E+00 + -10.50000 1.500000 0.0000000E+00 + -9.500000 1.500000 0.0000000E+00 + -8.500000 1.500000 0.0000000E+00 + -7.500000 1.500000 0.0000000E+00 + -6.500000 1.500000 0.0000000E+00 + -5.500000 1.500000 0.0000000E+00 + -4.500000 1.500000 0.0000000E+00 + -3.500000 1.500000 0.0000000E+00 + -2.500000 1.500000 0.0000000E+00 + -1.500000 1.500000 0.0000000E+00 + -0.5000000 1.500000 0.0000000E+00 + 0.5000000 1.500000 0.0000000E+00 + 1.500000 1.500000 0.0000000E+00 + 2.500000 1.500000 0.0000000E+00 + 3.500000 1.500000 0.0000000E+00 + 4.500000 1.500000 0.0000000E+00 + 5.500000 1.500000 0.0000000E+00 + 6.500000 1.500000 0.0000000E+00 + 7.500000 1.500000 0.0000000E+00 + 8.500000 1.500000 0.0000000E+00 + 9.500000 1.500000 0.0000000E+00 + 10.50000 1.500000 0.0000000E+00 + 11.50000 1.500000 0.0000000E+00 + 12.50000 1.500000 0.0000000E+00 + 13.50000 1.500000 6.5843635E-03 + 14.50000 1.500000 2.3133220E-02 + 15.50000 1.500000 1.4231401E-02 + 16.50000 1.500000 2.4447279E-02 + 17.50000 1.500000 8.1920013E-02 + 18.50000 1.500000 8.1920013E-02 + 19.50000 1.500000 8.1920013E-02 + 20.50000 1.500000 8.1920013E-02 + 21.50000 1.500000 0.1222364 + 22.50000 1.500000 0.1222364 + 23.50000 1.500000 0.1222364 + 24.50000 1.500000 8.8523149E-02 + 25.50000 1.500000 0.1058698 + 26.50000 1.500000 7.6670513E-02 + 27.50000 1.500000 7.6670513E-02 + 28.50000 1.500000 5.9326172E-02 + 29.50000 1.500000 5.9326172E-02 + 30.50000 1.500000 5.9326172E-02 + 31.50000 1.500000 4.2017497E-02 + 32.50000 1.500000 2.9007258E-02 + 33.50000 1.500000 1.5625000E-03 + 34.50000 1.500000 2.5164222E-03 + 35.50000 1.500000 0.0000000E+00 + 36.50000 1.500000 0.0000000E+00 + 37.50000 1.500000 0.0000000E+00 + 38.50000 1.500000 0.0000000E+00 + 39.50000 1.500000 0.0000000E+00 + 40.50000 1.500000 0.0000000E+00 + 41.50000 1.500000 0.0000000E+00 + 42.50000 1.500000 0.0000000E+00 + 43.50000 1.500000 0.0000000E+00 + 44.50000 1.500000 0.0000000E+00 + 45.50000 1.500000 0.0000000E+00 + 46.50000 1.500000 0.0000000E+00 + 47.50000 1.500000 0.0000000E+00 + 48.50000 1.500000 0.0000000E+00 + 49.50000 1.500000 0.0000000E+00 + 50.50000 1.500000 0.0000000E+00 + 51.50000 1.500000 0.0000000E+00 + 52.50000 1.500000 0.0000000E+00 + 53.50000 1.500000 0.0000000E+00 + 54.50000 1.500000 0.0000000E+00 + 55.50000 1.500000 0.0000000E+00 + 56.50000 1.500000 0.0000000E+00 + 57.50000 1.500000 0.0000000E+00 + 58.50000 1.500000 0.0000000E+00 + 59.50000 1.500000 0.0000000E+00 + 60.50000 1.500000 0.0000000E+00 + 61.50000 1.500000 0.0000000E+00 + 62.50000 1.500000 0.0000000E+00 + 63.50000 1.500000 0.0000000E+00 + 64.50000 1.500000 0.0000000E+00 + 65.50000 1.500000 0.0000000E+00 + 66.50000 1.500000 0.0000000E+00 + 67.50000 1.500000 0.0000000E+00 + 68.50000 1.500000 0.0000000E+00 + 69.50000 1.500000 0.0000000E+00 + 70.50000 1.500000 0.0000000E+00 + 71.50000 1.500000 0.0000000E+00 + 72.50000 1.500000 0.0000000E+00 + 73.50000 1.500000 0.0000000E+00 + 74.50000 1.500000 0.0000000E+00 + 75.50000 1.500000 0.0000000E+00 + 76.50000 1.500000 0.0000000E+00 + 77.50000 1.500000 0.0000000E+00 + 78.50000 1.500000 0.0000000E+00 + 79.50000 1.500000 0.0000000E+00 + 80.50000 1.500000 0.0000000E+00 + 81.50000 1.500000 0.0000000E+00 + 82.50000 1.500000 0.0000000E+00 + 83.50000 1.500000 0.0000000E+00 + 84.50000 1.500000 0.0000000E+00 + 85.50000 1.500000 0.0000000E+00 + 86.50000 1.500000 0.0000000E+00 + 87.50000 1.500000 0.0000000E+00 + 88.50000 1.500000 0.0000000E+00 + 89.50000 1.500000 0.0000000E+00 + -89.50000 2.500000 0.0000000E+00 + -88.50000 2.500000 0.0000000E+00 + -87.50000 2.500000 0.0000000E+00 + -86.50000 2.500000 0.0000000E+00 + -85.50000 2.500000 0.0000000E+00 + -84.50000 2.500000 0.0000000E+00 + -83.50000 2.500000 0.0000000E+00 + -82.50000 2.500000 0.0000000E+00 + -81.50000 2.500000 0.0000000E+00 + -80.50000 2.500000 0.0000000E+00 + -79.50000 2.500000 0.0000000E+00 + -78.50000 2.500000 0.0000000E+00 + -77.50000 2.500000 0.0000000E+00 + -76.50000 2.500000 0.0000000E+00 + -75.50000 2.500000 0.0000000E+00 + -74.50000 2.500000 0.0000000E+00 + -73.50000 2.500000 0.0000000E+00 + -72.50000 2.500000 0.0000000E+00 + -71.50000 2.500000 0.0000000E+00 + -70.50000 2.500000 0.0000000E+00 + -69.50000 2.500000 0.0000000E+00 + -68.50000 2.500000 0.0000000E+00 + -67.50000 2.500000 0.0000000E+00 + -66.50000 2.500000 0.0000000E+00 + -65.50000 2.500000 0.0000000E+00 + -64.50000 2.500000 0.0000000E+00 + -63.50000 2.500000 0.0000000E+00 + -62.50000 2.500000 0.0000000E+00 + -61.50000 2.500000 0.0000000E+00 + -60.50000 2.500000 0.0000000E+00 + -59.50000 2.500000 0.0000000E+00 + -58.50000 2.500000 0.0000000E+00 + -57.50000 2.500000 0.0000000E+00 + -56.50000 2.500000 0.0000000E+00 + -55.50000 2.500000 0.0000000E+00 + -54.50000 2.500000 0.0000000E+00 + -53.50000 2.500000 0.0000000E+00 + -52.50000 2.500000 0.0000000E+00 + -51.50000 2.500000 0.0000000E+00 + -50.50000 2.500000 0.0000000E+00 + -49.50000 2.500000 0.0000000E+00 + -48.50000 2.500000 0.0000000E+00 + -47.50000 2.500000 0.0000000E+00 + -46.50000 2.500000 0.0000000E+00 + -45.50000 2.500000 0.0000000E+00 + -44.50000 2.500000 0.0000000E+00 + -43.50000 2.500000 0.0000000E+00 + -42.50000 2.500000 0.0000000E+00 + -41.50000 2.500000 0.0000000E+00 + -40.50000 2.500000 0.0000000E+00 + -39.50000 2.500000 0.0000000E+00 + -38.50000 2.500000 0.0000000E+00 + -37.50000 2.500000 0.0000000E+00 + -36.50000 2.500000 0.0000000E+00 + -35.50000 2.500000 0.0000000E+00 + -34.50000 2.500000 0.0000000E+00 + -33.50000 2.500000 0.0000000E+00 + -32.50000 2.500000 0.0000000E+00 + -31.50000 2.500000 0.0000000E+00 + -30.50000 2.500000 0.0000000E+00 + -29.50000 2.500000 0.0000000E+00 + -28.50000 2.500000 0.0000000E+00 + -27.50000 2.500000 0.0000000E+00 + -26.50000 2.500000 0.0000000E+00 + -25.50000 2.500000 0.0000000E+00 + -24.50000 2.500000 0.0000000E+00 + -23.50000 2.500000 0.0000000E+00 + -22.50000 2.500000 0.0000000E+00 + -21.50000 2.500000 0.0000000E+00 + -20.50000 2.500000 0.0000000E+00 + -19.50000 2.500000 0.0000000E+00 + -18.50000 2.500000 0.0000000E+00 + -17.50000 2.500000 0.0000000E+00 + -16.50000 2.500000 0.0000000E+00 + -15.50000 2.500000 0.0000000E+00 + -14.50000 2.500000 0.0000000E+00 + -13.50000 2.500000 0.0000000E+00 + -12.50000 2.500000 0.0000000E+00 + -11.50000 2.500000 0.0000000E+00 + -10.50000 2.500000 0.0000000E+00 + -9.500000 2.500000 0.0000000E+00 + -8.500000 2.500000 0.0000000E+00 + -7.500000 2.500000 0.0000000E+00 + -6.500000 2.500000 0.0000000E+00 + -5.500000 2.500000 0.0000000E+00 + -4.500000 2.500000 0.0000000E+00 + -3.500000 2.500000 0.0000000E+00 + -2.500000 2.500000 0.0000000E+00 + -1.500000 2.500000 0.0000000E+00 + -0.5000000 2.500000 0.0000000E+00 + 0.5000000 2.500000 0.0000000E+00 + 1.500000 2.500000 0.0000000E+00 + 2.500000 2.500000 0.0000000E+00 + 3.500000 2.500000 0.0000000E+00 + 4.500000 2.500000 0.0000000E+00 + 5.500000 2.500000 0.0000000E+00 + 6.500000 2.500000 0.0000000E+00 + 7.500000 2.500000 0.0000000E+00 + 8.500000 2.500000 0.0000000E+00 + 9.500000 2.500000 0.0000000E+00 + 10.50000 2.500000 0.0000000E+00 + 11.50000 2.500000 0.0000000E+00 + 12.50000 2.500000 0.0000000E+00 + 13.50000 2.500000 6.5843635E-03 + 14.50000 2.500000 9.2967218E-03 + 15.50000 2.500000 1.4231401E-02 + 16.50000 2.500000 0.1222364 + 17.50000 2.500000 0.1222364 + 18.50000 2.500000 0.1222364 + 19.50000 2.500000 8.1920013E-02 + 20.50000 2.500000 8.1920013E-02 + 21.50000 2.500000 0.1222364 + 22.50000 2.500000 0.1222364 + 23.50000 2.500000 0.1222364 + 24.50000 2.500000 8.1920013E-02 + 25.50000 2.500000 5.9326172E-02 + 26.50000 2.500000 8.8523149E-02 + 27.50000 2.500000 8.8523149E-02 + 28.50000 2.500000 4.3812867E-02 + 29.50000 2.500000 4.3812867E-02 + 30.50000 2.500000 6.5375075E-02 + 31.50000 2.500000 3.2921817E-02 + 32.50000 2.500000 1.0787822E-02 + 33.50000 2.500000 5.5331686E-03 + 34.50000 2.500000 1.1066337E-03 + 35.50000 2.500000 0.0000000E+00 + 36.50000 2.500000 0.0000000E+00 + 37.50000 2.500000 0.0000000E+00 + 38.50000 2.500000 0.0000000E+00 + 39.50000 2.500000 0.0000000E+00 + 40.50000 2.500000 0.0000000E+00 + 41.50000 2.500000 0.0000000E+00 + 42.50000 2.500000 0.0000000E+00 + 43.50000 2.500000 0.0000000E+00 + 44.50000 2.500000 0.0000000E+00 + 45.50000 2.500000 0.0000000E+00 + 46.50000 2.500000 0.0000000E+00 + 47.50000 2.500000 0.0000000E+00 + 48.50000 2.500000 0.0000000E+00 + 49.50000 2.500000 0.0000000E+00 + 50.50000 2.500000 0.0000000E+00 + 51.50000 2.500000 0.0000000E+00 + 52.50000 2.500000 0.0000000E+00 + 53.50000 2.500000 0.0000000E+00 + 54.50000 2.500000 0.0000000E+00 + 55.50000 2.500000 0.0000000E+00 + 56.50000 2.500000 0.0000000E+00 + 57.50000 2.500000 0.0000000E+00 + 58.50000 2.500000 0.0000000E+00 + 59.50000 2.500000 0.0000000E+00 + 60.50000 2.500000 0.0000000E+00 + 61.50000 2.500000 0.0000000E+00 + 62.50000 2.500000 0.0000000E+00 + 63.50000 2.500000 0.0000000E+00 + 64.50000 2.500000 0.0000000E+00 + 65.50000 2.500000 0.0000000E+00 + 66.50000 2.500000 0.0000000E+00 + 67.50000 2.500000 0.0000000E+00 + 68.50000 2.500000 0.0000000E+00 + 69.50000 2.500000 0.0000000E+00 + 70.50000 2.500000 0.0000000E+00 + 71.50000 2.500000 0.0000000E+00 + 72.50000 2.500000 0.0000000E+00 + 73.50000 2.500000 0.0000000E+00 + 74.50000 2.500000 0.0000000E+00 + 75.50000 2.500000 0.0000000E+00 + 76.50000 2.500000 0.0000000E+00 + 77.50000 2.500000 0.0000000E+00 + 78.50000 2.500000 0.0000000E+00 + 79.50000 2.500000 0.0000000E+00 + 80.50000 2.500000 0.0000000E+00 + 81.50000 2.500000 0.0000000E+00 + 82.50000 2.500000 0.0000000E+00 + 83.50000 2.500000 0.0000000E+00 + 84.50000 2.500000 0.0000000E+00 + 85.50000 2.500000 0.0000000E+00 + 86.50000 2.500000 0.0000000E+00 + 87.50000 2.500000 0.0000000E+00 + 88.50000 2.500000 0.0000000E+00 + 89.50000 2.500000 0.0000000E+00 + -89.50000 3.500000 0.0000000E+00 + -88.50000 3.500000 0.0000000E+00 + -87.50000 3.500000 0.0000000E+00 + -86.50000 3.500000 0.0000000E+00 + -85.50000 3.500000 0.0000000E+00 + -84.50000 3.500000 0.0000000E+00 + -83.50000 3.500000 0.0000000E+00 + -82.50000 3.500000 0.0000000E+00 + -81.50000 3.500000 0.0000000E+00 + -80.50000 3.500000 0.0000000E+00 + -79.50000 3.500000 0.0000000E+00 + -78.50000 3.500000 0.0000000E+00 + -77.50000 3.500000 0.0000000E+00 + -76.50000 3.500000 0.0000000E+00 + -75.50000 3.500000 0.0000000E+00 + -74.50000 3.500000 0.0000000E+00 + -73.50000 3.500000 0.0000000E+00 + -72.50000 3.500000 0.0000000E+00 + -71.50000 3.500000 0.0000000E+00 + -70.50000 3.500000 0.0000000E+00 + -69.50000 3.500000 0.0000000E+00 + -68.50000 3.500000 0.0000000E+00 + -67.50000 3.500000 0.0000000E+00 + -66.50000 3.500000 0.0000000E+00 + -65.50000 3.500000 0.0000000E+00 + -64.50000 3.500000 0.0000000E+00 + -63.50000 3.500000 0.0000000E+00 + -62.50000 3.500000 0.0000000E+00 + -61.50000 3.500000 0.0000000E+00 + -60.50000 3.500000 0.0000000E+00 + -59.50000 3.500000 0.0000000E+00 + -58.50000 3.500000 0.0000000E+00 + -57.50000 3.500000 0.0000000E+00 + -56.50000 3.500000 0.0000000E+00 + -55.50000 3.500000 0.0000000E+00 + -54.50000 3.500000 0.0000000E+00 + -53.50000 3.500000 0.0000000E+00 + -52.50000 3.500000 0.0000000E+00 + -51.50000 3.500000 0.0000000E+00 + -50.50000 3.500000 0.0000000E+00 + -49.50000 3.500000 0.0000000E+00 + -48.50000 3.500000 0.0000000E+00 + -47.50000 3.500000 0.0000000E+00 + -46.50000 3.500000 0.0000000E+00 + -45.50000 3.500000 0.0000000E+00 + -44.50000 3.500000 0.0000000E+00 + -43.50000 3.500000 0.0000000E+00 + -42.50000 3.500000 0.0000000E+00 + -41.50000 3.500000 0.0000000E+00 + -40.50000 3.500000 0.0000000E+00 + -39.50000 3.500000 0.0000000E+00 + -38.50000 3.500000 0.0000000E+00 + -37.50000 3.500000 0.0000000E+00 + -36.50000 3.500000 0.0000000E+00 + -35.50000 3.500000 0.0000000E+00 + -34.50000 3.500000 0.0000000E+00 + -33.50000 3.500000 0.0000000E+00 + -32.50000 3.500000 0.0000000E+00 + -31.50000 3.500000 0.0000000E+00 + -30.50000 3.500000 0.0000000E+00 + -29.50000 3.500000 0.0000000E+00 + -28.50000 3.500000 0.0000000E+00 + -27.50000 3.500000 0.0000000E+00 + -26.50000 3.500000 0.0000000E+00 + -25.50000 3.500000 0.0000000E+00 + -24.50000 3.500000 0.0000000E+00 + -23.50000 3.500000 0.0000000E+00 + -22.50000 3.500000 0.0000000E+00 + -21.50000 3.500000 0.0000000E+00 + -20.50000 3.500000 0.0000000E+00 + -19.50000 3.500000 0.0000000E+00 + -18.50000 3.500000 0.0000000E+00 + -17.50000 3.500000 0.0000000E+00 + -16.50000 3.500000 0.0000000E+00 + -15.50000 3.500000 0.0000000E+00 + -14.50000 3.500000 0.0000000E+00 + -13.50000 3.500000 0.0000000E+00 + -12.50000 3.500000 0.0000000E+00 + -11.50000 3.500000 0.0000000E+00 + -10.50000 3.500000 0.0000000E+00 + -9.500000 3.500000 0.0000000E+00 + -8.500000 3.500000 0.0000000E+00 + -7.500000 3.500000 0.0000000E+00 + -6.500000 3.500000 0.0000000E+00 + -5.500000 3.500000 0.0000000E+00 + -4.500000 3.500000 0.0000000E+00 + -3.500000 3.500000 0.0000000E+00 + -2.500000 3.500000 0.0000000E+00 + -1.500000 3.500000 0.0000000E+00 + -0.5000000 3.500000 0.0000000E+00 + 0.5000000 3.500000 0.0000000E+00 + 1.500000 3.500000 0.0000000E+00 + 2.500000 3.500000 0.0000000E+00 + 3.500000 3.500000 0.0000000E+00 + 4.500000 3.500000 0.0000000E+00 + 5.500000 3.500000 0.0000000E+00 + 6.500000 3.500000 0.0000000E+00 + 7.500000 3.500000 0.0000000E+00 + 8.500000 3.500000 0.0000000E+00 + 9.500000 3.500000 0.0000000E+00 + 10.50000 3.500000 0.0000000E+00 + 11.50000 3.500000 0.0000000E+00 + 12.50000 3.500000 0.0000000E+00 + 13.50000 3.500000 1.1865235E-02 + 14.50000 3.500000 9.2967218E-03 + 15.50000 3.500000 1.4231401E-02 + 16.50000 3.500000 2.4447279E-02 + 17.50000 3.500000 0.1222364 + 18.50000 3.500000 0.1222364 + 19.50000 3.500000 0.1222364 + 20.50000 3.500000 8.1920013E-02 + 21.50000 3.500000 0.1222364 + 22.50000 3.500000 8.1920013E-02 + 23.50000 3.500000 8.1920013E-02 + 24.50000 3.500000 5.3020909E-02 + 25.50000 3.500000 4.7954492E-02 + 26.50000 3.500000 5.9326172E-02 + 27.50000 3.500000 8.8523149E-02 + 28.50000 3.500000 4.3812867E-02 + 29.50000 3.500000 6.5375075E-02 + 30.50000 3.500000 9.4696872E-02 + 31.50000 3.500000 4.6483610E-02 + 32.50000 3.500000 7.8125000E-03 + 33.50000 3.500000 1.5895589E-03 + 34.50000 3.500000 9.9347435E-06 + 35.50000 3.500000 0.0000000E+00 + 36.50000 3.500000 0.0000000E+00 + 37.50000 3.500000 0.0000000E+00 + 38.50000 3.500000 0.0000000E+00 + 39.50000 3.500000 0.0000000E+00 + 40.50000 3.500000 0.0000000E+00 + 41.50000 3.500000 0.0000000E+00 + 42.50000 3.500000 0.0000000E+00 + 43.50000 3.500000 0.0000000E+00 + 44.50000 3.500000 0.0000000E+00 + 45.50000 3.500000 0.0000000E+00 + 46.50000 3.500000 0.0000000E+00 + 47.50000 3.500000 0.0000000E+00 + 48.50000 3.500000 0.0000000E+00 + 49.50000 3.500000 0.0000000E+00 + 50.50000 3.500000 0.0000000E+00 + 51.50000 3.500000 0.0000000E+00 + 52.50000 3.500000 0.0000000E+00 + 53.50000 3.500000 0.0000000E+00 + 54.50000 3.500000 0.0000000E+00 + 55.50000 3.500000 0.0000000E+00 + 56.50000 3.500000 0.0000000E+00 + 57.50000 3.500000 0.0000000E+00 + 58.50000 3.500000 0.0000000E+00 + 59.50000 3.500000 0.0000000E+00 + 60.50000 3.500000 0.0000000E+00 + 61.50000 3.500000 0.0000000E+00 + 62.50000 3.500000 0.0000000E+00 + 63.50000 3.500000 0.0000000E+00 + 64.50000 3.500000 0.0000000E+00 + 65.50000 3.500000 0.0000000E+00 + 66.50000 3.500000 0.0000000E+00 + 67.50000 3.500000 0.0000000E+00 + 68.50000 3.500000 0.0000000E+00 + 69.50000 3.500000 0.0000000E+00 + 70.50000 3.500000 0.0000000E+00 + 71.50000 3.500000 0.0000000E+00 + 72.50000 3.500000 0.0000000E+00 + 73.50000 3.500000 0.0000000E+00 + 74.50000 3.500000 0.0000000E+00 + 75.50000 3.500000 0.0000000E+00 + 76.50000 3.500000 0.0000000E+00 + 77.50000 3.500000 0.0000000E+00 + 78.50000 3.500000 0.0000000E+00 + 79.50000 3.500000 0.0000000E+00 + 80.50000 3.500000 0.0000000E+00 + 81.50000 3.500000 0.0000000E+00 + 82.50000 3.500000 0.0000000E+00 + 83.50000 3.500000 0.0000000E+00 + 84.50000 3.500000 0.0000000E+00 + 85.50000 3.500000 0.0000000E+00 + 86.50000 3.500000 0.0000000E+00 + 87.50000 3.500000 0.0000000E+00 + 88.50000 3.500000 0.0000000E+00 + 89.50000 3.500000 0.0000000E+00 + -89.50000 4.500000 0.0000000E+00 + -88.50000 4.500000 0.0000000E+00 + -87.50000 4.500000 0.0000000E+00 + -86.50000 4.500000 0.0000000E+00 + -85.50000 4.500000 0.0000000E+00 + -84.50000 4.500000 0.0000000E+00 + -83.50000 4.500000 0.0000000E+00 + -82.50000 4.500000 0.0000000E+00 + -81.50000 4.500000 0.0000000E+00 + -80.50000 4.500000 0.0000000E+00 + -79.50000 4.500000 0.0000000E+00 + -78.50000 4.500000 0.0000000E+00 + -77.50000 4.500000 0.0000000E+00 + -76.50000 4.500000 0.0000000E+00 + -75.50000 4.500000 0.0000000E+00 + -74.50000 4.500000 0.0000000E+00 + -73.50000 4.500000 0.0000000E+00 + -72.50000 4.500000 0.0000000E+00 + -71.50000 4.500000 0.0000000E+00 + -70.50000 4.500000 0.0000000E+00 + -69.50000 4.500000 0.0000000E+00 + -68.50000 4.500000 0.0000000E+00 + -67.50000 4.500000 0.0000000E+00 + -66.50000 4.500000 0.0000000E+00 + -65.50000 4.500000 0.0000000E+00 + -64.50000 4.500000 0.0000000E+00 + -63.50000 4.500000 0.0000000E+00 + -62.50000 4.500000 0.0000000E+00 + -61.50000 4.500000 0.0000000E+00 + -60.50000 4.500000 0.0000000E+00 + -59.50000 4.500000 0.0000000E+00 + -58.50000 4.500000 0.0000000E+00 + -57.50000 4.500000 0.0000000E+00 + -56.50000 4.500000 0.0000000E+00 + -55.50000 4.500000 0.0000000E+00 + -54.50000 4.500000 0.0000000E+00 + -53.50000 4.500000 0.0000000E+00 + -52.50000 4.500000 0.0000000E+00 + -51.50000 4.500000 0.0000000E+00 + -50.50000 4.500000 0.0000000E+00 + -49.50000 4.500000 0.0000000E+00 + -48.50000 4.500000 0.0000000E+00 + -47.50000 4.500000 0.0000000E+00 + -46.50000 4.500000 0.0000000E+00 + -45.50000 4.500000 0.0000000E+00 + -44.50000 4.500000 0.0000000E+00 + -43.50000 4.500000 0.0000000E+00 + -42.50000 4.500000 0.0000000E+00 + -41.50000 4.500000 0.0000000E+00 + -40.50000 4.500000 0.0000000E+00 + -39.50000 4.500000 0.0000000E+00 + -38.50000 4.500000 0.0000000E+00 + -37.50000 4.500000 0.0000000E+00 + -36.50000 4.500000 0.0000000E+00 + -35.50000 4.500000 0.0000000E+00 + -34.50000 4.500000 0.0000000E+00 + -33.50000 4.500000 0.0000000E+00 + -32.50000 4.500000 0.0000000E+00 + -31.50000 4.500000 0.0000000E+00 + -30.50000 4.500000 0.0000000E+00 + -29.50000 4.500000 0.0000000E+00 + -28.50000 4.500000 0.0000000E+00 + -27.50000 4.500000 0.0000000E+00 + -26.50000 4.500000 0.0000000E+00 + -25.50000 4.500000 0.0000000E+00 + -24.50000 4.500000 0.0000000E+00 + -23.50000 4.500000 0.0000000E+00 + -22.50000 4.500000 0.0000000E+00 + -21.50000 4.500000 0.0000000E+00 + -20.50000 4.500000 0.0000000E+00 + -19.50000 4.500000 0.0000000E+00 + -18.50000 4.500000 0.0000000E+00 + -17.50000 4.500000 0.0000000E+00 + -16.50000 4.500000 0.0000000E+00 + -15.50000 4.500000 0.0000000E+00 + -14.50000 4.500000 0.0000000E+00 + -13.50000 4.500000 0.0000000E+00 + -12.50000 4.500000 0.0000000E+00 + -11.50000 4.500000 0.0000000E+00 + -10.50000 4.500000 0.0000000E+00 + -9.500000 4.500000 0.0000000E+00 + -8.500000 4.500000 0.0000000E+00 + -7.500000 4.500000 0.0000000E+00 + -6.500000 4.500000 0.0000000E+00 + -5.500000 4.500000 0.0000000E+00 + -4.500000 4.500000 0.0000000E+00 + -3.500000 4.500000 0.0000000E+00 + -2.500000 4.500000 0.0000000E+00 + -1.500000 4.500000 0.0000000E+00 + -0.5000000 4.500000 0.0000000E+00 + 0.5000000 4.500000 0.0000000E+00 + 1.500000 4.500000 0.0000000E+00 + 2.500000 4.500000 0.0000000E+00 + 3.500000 4.500000 0.0000000E+00 + 4.500000 4.500000 0.0000000E+00 + 5.500000 4.500000 0.0000000E+00 + 6.500000 4.500000 0.0000000E+00 + 7.500000 4.500000 0.0000000E+00 + 8.500000 4.500000 0.0000000E+00 + 9.500000 4.500000 0.0000000E+00 + 10.50000 4.500000 0.0000000E+00 + 11.50000 4.500000 0.0000000E+00 + 12.50000 4.500000 0.0000000E+00 + 13.50000 4.500000 0.0000000E+00 + 14.50000 4.500000 0.0000000E+00 + 15.50000 4.500000 1.4231401E-02 + 16.50000 4.500000 2.4447279E-02 + 17.50000 4.500000 0.1222364 + 18.50000 4.500000 2.4447279E-02 + 19.50000 4.500000 8.1920013E-02 + 20.50000 4.500000 8.1920013E-02 + 21.50000 4.500000 5.3020909E-02 + 22.50000 4.500000 3.2921817E-02 + 23.50000 4.500000 3.2921817E-02 + 24.50000 4.500000 3.2921817E-02 + 25.50000 4.500000 1.4078379E-02 + 26.50000 4.500000 4.3812867E-02 + 27.50000 4.500000 6.5375075E-02 + 28.50000 4.500000 4.3812867E-02 + 29.50000 4.500000 9.4696872E-02 + 30.50000 4.500000 0.1337063 + 31.50000 4.500000 0.1156661 + 32.50000 4.500000 5.9326172E-02 + 33.50000 4.500000 2.6089560E-02 + 34.50000 4.500000 1.2070711E-02 + 35.50000 4.500000 9.7018975E-04 + 36.50000 4.500000 0.0000000E+00 + 37.50000 4.500000 0.0000000E+00 + 38.50000 4.500000 0.0000000E+00 + 39.50000 4.500000 0.0000000E+00 + 40.50000 4.500000 0.0000000E+00 + 41.50000 4.500000 0.0000000E+00 + 42.50000 4.500000 0.0000000E+00 + 43.50000 4.500000 0.0000000E+00 + 44.50000 4.500000 0.0000000E+00 + 45.50000 4.500000 0.0000000E+00 + 46.50000 4.500000 0.0000000E+00 + 47.50000 4.500000 0.0000000E+00 + 48.50000 4.500000 0.0000000E+00 + 49.50000 4.500000 0.0000000E+00 + 50.50000 4.500000 0.0000000E+00 + 51.50000 4.500000 0.0000000E+00 + 52.50000 4.500000 0.0000000E+00 + 53.50000 4.500000 0.0000000E+00 + 54.50000 4.500000 0.0000000E+00 + 55.50000 4.500000 0.0000000E+00 + 56.50000 4.500000 0.0000000E+00 + 57.50000 4.500000 0.0000000E+00 + 58.50000 4.500000 0.0000000E+00 + 59.50000 4.500000 0.0000000E+00 + 60.50000 4.500000 0.0000000E+00 + 61.50000 4.500000 0.0000000E+00 + 62.50000 4.500000 0.0000000E+00 + 63.50000 4.500000 0.0000000E+00 + 64.50000 4.500000 0.0000000E+00 + 65.50000 4.500000 0.0000000E+00 + 66.50000 4.500000 0.0000000E+00 + 67.50000 4.500000 0.0000000E+00 + 68.50000 4.500000 0.0000000E+00 + 69.50000 4.500000 0.0000000E+00 + 70.50000 4.500000 0.0000000E+00 + 71.50000 4.500000 0.0000000E+00 + 72.50000 4.500000 0.0000000E+00 + 73.50000 4.500000 0.0000000E+00 + 74.50000 4.500000 0.0000000E+00 + 75.50000 4.500000 0.0000000E+00 + 76.50000 4.500000 0.0000000E+00 + 77.50000 4.500000 0.0000000E+00 + 78.50000 4.500000 0.0000000E+00 + 79.50000 4.500000 0.0000000E+00 + 80.50000 4.500000 0.0000000E+00 + 81.50000 4.500000 0.0000000E+00 + 82.50000 4.500000 0.0000000E+00 + 83.50000 4.500000 0.0000000E+00 + 84.50000 4.500000 0.0000000E+00 + 85.50000 4.500000 0.0000000E+00 + 86.50000 4.500000 0.0000000E+00 + 87.50000 4.500000 0.0000000E+00 + 88.50000 4.500000 0.0000000E+00 + 89.50000 4.500000 0.0000000E+00 + -89.50000 5.500000 0.0000000E+00 + -88.50000 5.500000 0.0000000E+00 + -87.50000 5.500000 0.0000000E+00 + -86.50000 5.500000 0.0000000E+00 + -85.50000 5.500000 0.0000000E+00 + -84.50000 5.500000 0.0000000E+00 + -83.50000 5.500000 0.0000000E+00 + -82.50000 5.500000 0.0000000E+00 + -81.50000 5.500000 0.0000000E+00 + -80.50000 5.500000 0.0000000E+00 + -79.50000 5.500000 0.0000000E+00 + -78.50000 5.500000 0.0000000E+00 + -77.50000 5.500000 0.0000000E+00 + -76.50000 5.500000 0.0000000E+00 + -75.50000 5.500000 0.0000000E+00 + -74.50000 5.500000 0.0000000E+00 + -73.50000 5.500000 0.0000000E+00 + -72.50000 5.500000 0.0000000E+00 + -71.50000 5.500000 0.0000000E+00 + -70.50000 5.500000 0.0000000E+00 + -69.50000 5.500000 0.0000000E+00 + -68.50000 5.500000 0.0000000E+00 + -67.50000 5.500000 0.0000000E+00 + -66.50000 5.500000 0.0000000E+00 + -65.50000 5.500000 0.0000000E+00 + -64.50000 5.500000 0.0000000E+00 + -63.50000 5.500000 0.0000000E+00 + -62.50000 5.500000 0.0000000E+00 + -61.50000 5.500000 0.0000000E+00 + -60.50000 5.500000 0.0000000E+00 + -59.50000 5.500000 0.0000000E+00 + -58.50000 5.500000 0.0000000E+00 + -57.50000 5.500000 0.0000000E+00 + -56.50000 5.500000 0.0000000E+00 + -55.50000 5.500000 0.0000000E+00 + -54.50000 5.500000 0.0000000E+00 + -53.50000 5.500000 0.0000000E+00 + -52.50000 5.500000 0.0000000E+00 + -51.50000 5.500000 0.0000000E+00 + -50.50000 5.500000 0.0000000E+00 + -49.50000 5.500000 0.0000000E+00 + -48.50000 5.500000 0.0000000E+00 + -47.50000 5.500000 0.0000000E+00 + -46.50000 5.500000 0.0000000E+00 + -45.50000 5.500000 0.0000000E+00 + -44.50000 5.500000 0.0000000E+00 + -43.50000 5.500000 0.0000000E+00 + -42.50000 5.500000 0.0000000E+00 + -41.50000 5.500000 0.0000000E+00 + -40.50000 5.500000 0.0000000E+00 + -39.50000 5.500000 0.0000000E+00 + -38.50000 5.500000 0.0000000E+00 + -37.50000 5.500000 0.0000000E+00 + -36.50000 5.500000 0.0000000E+00 + -35.50000 5.500000 0.0000000E+00 + -34.50000 5.500000 0.0000000E+00 + -33.50000 5.500000 0.0000000E+00 + -32.50000 5.500000 0.0000000E+00 + -31.50000 5.500000 0.0000000E+00 + -30.50000 5.500000 0.0000000E+00 + -29.50000 5.500000 0.0000000E+00 + -28.50000 5.500000 0.0000000E+00 + -27.50000 5.500000 0.0000000E+00 + -26.50000 5.500000 0.0000000E+00 + -25.50000 5.500000 0.0000000E+00 + -24.50000 5.500000 0.0000000E+00 + -23.50000 5.500000 0.0000000E+00 + -22.50000 5.500000 0.0000000E+00 + -21.50000 5.500000 0.0000000E+00 + -20.50000 5.500000 0.0000000E+00 + -19.50000 5.500000 0.0000000E+00 + -18.50000 5.500000 0.0000000E+00 + -17.50000 5.500000 0.0000000E+00 + -16.50000 5.500000 0.0000000E+00 + -15.50000 5.500000 0.0000000E+00 + -14.50000 5.500000 0.0000000E+00 + -13.50000 5.500000 0.0000000E+00 + -12.50000 5.500000 0.0000000E+00 + -11.50000 5.500000 0.0000000E+00 + -10.50000 5.500000 0.0000000E+00 + -9.500000 5.500000 0.0000000E+00 + -8.500000 5.500000 0.0000000E+00 + -7.500000 5.500000 0.0000000E+00 + -6.500000 5.500000 0.0000000E+00 + -5.500000 5.500000 0.0000000E+00 + -4.500000 5.500000 0.0000000E+00 + -3.500000 5.500000 0.0000000E+00 + -2.500000 5.500000 0.0000000E+00 + -1.500000 5.500000 0.0000000E+00 + -0.5000000 5.500000 0.0000000E+00 + 0.5000000 5.500000 0.0000000E+00 + 1.500000 5.500000 0.0000000E+00 + 2.500000 5.500000 0.0000000E+00 + 3.500000 5.500000 0.0000000E+00 + 4.500000 5.500000 0.0000000E+00 + 5.500000 5.500000 0.0000000E+00 + 6.500000 5.500000 0.0000000E+00 + 7.500000 5.500000 0.0000000E+00 + 8.500000 5.500000 0.0000000E+00 + 9.500000 5.500000 0.0000000E+00 + 10.50000 5.500000 0.0000000E+00 + 11.50000 5.500000 0.0000000E+00 + 12.50000 5.500000 0.0000000E+00 + 13.50000 5.500000 0.0000000E+00 + 14.50000 5.500000 9.2967218E-03 + 15.50000 5.500000 1.4231401E-02 + 16.50000 5.500000 2.4447279E-02 + 17.50000 5.500000 2.4447279E-02 + 18.50000 5.500000 0.1222364 + 19.50000 5.500000 0.1352291 + 20.50000 5.500000 9.7052410E-02 + 21.50000 5.500000 2.7448103E-02 + 22.50000 5.500000 3.0328878E-03 + 23.50000 5.500000 0.0000000E+00 + 24.50000 5.500000 2.5600004E-03 + 25.50000 5.500000 7.8125000E-03 + 26.50000 5.500000 1.7607410E-02 + 27.50000 5.500000 4.3812867E-02 + 28.50000 5.500000 6.5375075E-02 + 29.50000 5.500000 0.1128588 + 30.50000 5.500000 0.1337063 + 31.50000 5.500000 0.1156661 + 32.50000 5.500000 0.1004694 + 33.50000 5.500000 9.1661960E-02 + 34.50000 5.500000 9.1661960E-02 + 35.50000 5.500000 0.0000000E+00 + 36.50000 5.500000 0.0000000E+00 + 37.50000 5.500000 0.0000000E+00 + 38.50000 5.500000 0.0000000E+00 + 39.50000 5.500000 0.0000000E+00 + 40.50000 5.500000 0.0000000E+00 + 41.50000 5.500000 0.0000000E+00 + 42.50000 5.500000 0.0000000E+00 + 43.50000 5.500000 0.0000000E+00 + 44.50000 5.500000 0.0000000E+00 + 45.50000 5.500000 0.0000000E+00 + 46.50000 5.500000 0.0000000E+00 + 47.50000 5.500000 0.0000000E+00 + 48.50000 5.500000 0.0000000E+00 + 49.50000 5.500000 0.0000000E+00 + 50.50000 5.500000 0.0000000E+00 + 51.50000 5.500000 0.0000000E+00 + 52.50000 5.500000 0.0000000E+00 + 53.50000 5.500000 0.0000000E+00 + 54.50000 5.500000 0.0000000E+00 + 55.50000 5.500000 0.0000000E+00 + 56.50000 5.500000 0.0000000E+00 + 57.50000 5.500000 0.0000000E+00 + 58.50000 5.500000 0.0000000E+00 + 59.50000 5.500000 0.0000000E+00 + 60.50000 5.500000 0.0000000E+00 + 61.50000 5.500000 0.0000000E+00 + 62.50000 5.500000 0.0000000E+00 + 63.50000 5.500000 0.0000000E+00 + 64.50000 5.500000 0.0000000E+00 + 65.50000 5.500000 0.0000000E+00 + 66.50000 5.500000 0.0000000E+00 + 67.50000 5.500000 0.0000000E+00 + 68.50000 5.500000 0.0000000E+00 + 69.50000 5.500000 0.0000000E+00 + 70.50000 5.500000 0.0000000E+00 + 71.50000 5.500000 0.0000000E+00 + 72.50000 5.500000 0.0000000E+00 + 73.50000 5.500000 0.0000000E+00 + 74.50000 5.500000 0.0000000E+00 + 75.50000 5.500000 0.0000000E+00 + 76.50000 5.500000 0.0000000E+00 + 77.50000 5.500000 0.0000000E+00 + 78.50000 5.500000 0.0000000E+00 + 79.50000 5.500000 0.0000000E+00 + 80.50000 5.500000 0.0000000E+00 + 81.50000 5.500000 0.0000000E+00 + 82.50000 5.500000 0.0000000E+00 + 83.50000 5.500000 0.0000000E+00 + 84.50000 5.500000 0.0000000E+00 + 85.50000 5.500000 0.0000000E+00 + 86.50000 5.500000 0.0000000E+00 + 87.50000 5.500000 0.0000000E+00 + 88.50000 5.500000 0.0000000E+00 + 89.50000 5.500000 0.0000000E+00 + -89.50000 6.500000 0.0000000E+00 + -88.50000 6.500000 0.0000000E+00 + -87.50000 6.500000 0.0000000E+00 + -86.50000 6.500000 0.0000000E+00 + -85.50000 6.500000 0.0000000E+00 + -84.50000 6.500000 0.0000000E+00 + -83.50000 6.500000 0.0000000E+00 + -82.50000 6.500000 0.0000000E+00 + -81.50000 6.500000 0.0000000E+00 + -80.50000 6.500000 0.0000000E+00 + -79.50000 6.500000 0.0000000E+00 + -78.50000 6.500000 0.0000000E+00 + -77.50000 6.500000 0.0000000E+00 + -76.50000 6.500000 0.0000000E+00 + -75.50000 6.500000 0.0000000E+00 + -74.50000 6.500000 0.0000000E+00 + -73.50000 6.500000 0.0000000E+00 + -72.50000 6.500000 0.0000000E+00 + -71.50000 6.500000 0.0000000E+00 + -70.50000 6.500000 0.0000000E+00 + -69.50000 6.500000 0.0000000E+00 + -68.50000 6.500000 0.0000000E+00 + -67.50000 6.500000 0.0000000E+00 + -66.50000 6.500000 0.0000000E+00 + -65.50000 6.500000 0.0000000E+00 + -64.50000 6.500000 0.0000000E+00 + -63.50000 6.500000 0.0000000E+00 + -62.50000 6.500000 0.0000000E+00 + -61.50000 6.500000 0.0000000E+00 + -60.50000 6.500000 0.0000000E+00 + -59.50000 6.500000 0.0000000E+00 + -58.50000 6.500000 0.0000000E+00 + -57.50000 6.500000 0.0000000E+00 + -56.50000 6.500000 0.0000000E+00 + -55.50000 6.500000 0.0000000E+00 + -54.50000 6.500000 0.0000000E+00 + -53.50000 6.500000 0.0000000E+00 + -52.50000 6.500000 0.0000000E+00 + -51.50000 6.500000 0.0000000E+00 + -50.50000 6.500000 0.0000000E+00 + -49.50000 6.500000 0.0000000E+00 + -48.50000 6.500000 0.0000000E+00 + -47.50000 6.500000 0.0000000E+00 + -46.50000 6.500000 0.0000000E+00 + -45.50000 6.500000 0.0000000E+00 + -44.50000 6.500000 0.0000000E+00 + -43.50000 6.500000 0.0000000E+00 + -42.50000 6.500000 0.0000000E+00 + -41.50000 6.500000 0.0000000E+00 + -40.50000 6.500000 0.0000000E+00 + -39.50000 6.500000 0.0000000E+00 + -38.50000 6.500000 0.0000000E+00 + -37.50000 6.500000 0.0000000E+00 + -36.50000 6.500000 0.0000000E+00 + -35.50000 6.500000 0.0000000E+00 + -34.50000 6.500000 0.0000000E+00 + -33.50000 6.500000 0.0000000E+00 + -32.50000 6.500000 0.0000000E+00 + -31.50000 6.500000 0.0000000E+00 + -30.50000 6.500000 0.0000000E+00 + -29.50000 6.500000 0.0000000E+00 + -28.50000 6.500000 0.0000000E+00 + -27.50000 6.500000 0.0000000E+00 + -26.50000 6.500000 0.0000000E+00 + -25.50000 6.500000 0.0000000E+00 + -24.50000 6.500000 0.0000000E+00 + -23.50000 6.500000 0.0000000E+00 + -22.50000 6.500000 0.0000000E+00 + -21.50000 6.500000 0.0000000E+00 + -20.50000 6.500000 0.0000000E+00 + -19.50000 6.500000 0.0000000E+00 + -18.50000 6.500000 0.0000000E+00 + -17.50000 6.500000 0.0000000E+00 + -16.50000 6.500000 0.0000000E+00 + -15.50000 6.500000 0.0000000E+00 + -14.50000 6.500000 0.0000000E+00 + -13.50000 6.500000 0.0000000E+00 + -12.50000 6.500000 0.0000000E+00 + -11.50000 6.500000 0.0000000E+00 + -10.50000 6.500000 0.0000000E+00 + -9.500000 6.500000 0.0000000E+00 + -8.500000 6.500000 0.0000000E+00 + -7.500000 6.500000 0.0000000E+00 + -6.500000 6.500000 0.0000000E+00 + -5.500000 6.500000 0.0000000E+00 + -4.500000 6.500000 0.0000000E+00 + -3.500000 6.500000 0.0000000E+00 + -2.500000 6.500000 0.0000000E+00 + -1.500000 6.500000 0.0000000E+00 + -0.5000000 6.500000 0.0000000E+00 + 0.5000000 6.500000 0.0000000E+00 + 1.500000 6.500000 0.0000000E+00 + 2.500000 6.500000 0.0000000E+00 + 3.500000 6.500000 0.0000000E+00 + 4.500000 6.500000 0.0000000E+00 + 5.500000 6.500000 0.0000000E+00 + 6.500000 6.500000 0.0000000E+00 + 7.500000 6.500000 0.0000000E+00 + 8.500000 6.500000 0.0000000E+00 + 9.500000 6.500000 0.0000000E+00 + 10.50000 6.500000 0.0000000E+00 + 11.50000 6.500000 0.0000000E+00 + 12.50000 6.500000 0.0000000E+00 + 13.50000 6.500000 0.0000000E+00 + 14.50000 6.500000 0.0000000E+00 + 15.50000 6.500000 1.4231401E-02 + 16.50000 6.500000 0.1222364 + 17.50000 6.500000 0.1222364 + 18.50000 6.500000 0.1222364 + 19.50000 6.500000 0.1222364 + 20.50000 6.500000 8.1920013E-02 + 21.50000 6.500000 2.5474269E-02 + 22.50000 6.500000 2.3030981E-02 + 23.50000 6.500000 1.0534983E-05 + 24.50000 6.500000 3.3711945E-04 + 25.50000 6.500000 4.0071011E-03 + 26.50000 6.500000 4.3812867E-02 + 27.50000 6.500000 6.5375075E-02 + 28.50000 6.500000 9.4696872E-02 + 29.50000 6.500000 0.1090204 + 30.50000 6.500000 0.1337063 + 31.50000 6.500000 0.1156661 + 32.50000 6.500000 0.1004694 + 33.50000 6.500000 9.1661960E-02 + 34.50000 6.500000 9.1661960E-02 + 35.50000 6.500000 0.0000000E+00 + 36.50000 6.500000 0.0000000E+00 + 37.50000 6.500000 0.0000000E+00 + 38.50000 6.500000 0.0000000E+00 + 39.50000 6.500000 0.0000000E+00 + 40.50000 6.500000 0.0000000E+00 + 41.50000 6.500000 0.0000000E+00 + 42.50000 6.500000 0.0000000E+00 + 43.50000 6.500000 0.0000000E+00 + 44.50000 6.500000 0.0000000E+00 + 45.50000 6.500000 0.0000000E+00 + 46.50000 6.500000 0.0000000E+00 + 47.50000 6.500000 0.0000000E+00 + 48.50000 6.500000 0.0000000E+00 + 49.50000 6.500000 0.0000000E+00 + 50.50000 6.500000 0.0000000E+00 + 51.50000 6.500000 0.0000000E+00 + 52.50000 6.500000 0.0000000E+00 + 53.50000 6.500000 0.0000000E+00 + 54.50000 6.500000 0.0000000E+00 + 55.50000 6.500000 0.0000000E+00 + 56.50000 6.500000 0.0000000E+00 + 57.50000 6.500000 0.0000000E+00 + 58.50000 6.500000 0.0000000E+00 + 59.50000 6.500000 0.0000000E+00 + 60.50000 6.500000 0.0000000E+00 + 61.50000 6.500000 0.0000000E+00 + 62.50000 6.500000 0.0000000E+00 + 63.50000 6.500000 0.0000000E+00 + 64.50000 6.500000 0.0000000E+00 + 65.50000 6.500000 0.0000000E+00 + 66.50000 6.500000 0.0000000E+00 + 67.50000 6.500000 0.0000000E+00 + 68.50000 6.500000 0.0000000E+00 + 69.50000 6.500000 0.0000000E+00 + 70.50000 6.500000 0.0000000E+00 + 71.50000 6.500000 0.0000000E+00 + 72.50000 6.500000 0.0000000E+00 + 73.50000 6.500000 0.0000000E+00 + 74.50000 6.500000 0.0000000E+00 + 75.50000 6.500000 0.0000000E+00 + 76.50000 6.500000 0.0000000E+00 + 77.50000 6.500000 0.0000000E+00 + 78.50000 6.500000 0.0000000E+00 + 79.50000 6.500000 0.0000000E+00 + 80.50000 6.500000 0.0000000E+00 + 81.50000 6.500000 0.0000000E+00 + 82.50000 6.500000 0.0000000E+00 + 83.50000 6.500000 0.0000000E+00 + 84.50000 6.500000 0.0000000E+00 + 85.50000 6.500000 0.0000000E+00 + 86.50000 6.500000 0.0000000E+00 + 87.50000 6.500000 0.0000000E+00 + 88.50000 6.500000 0.0000000E+00 + 89.50000 6.500000 0.0000000E+00 + -89.50000 7.500000 0.0000000E+00 + -88.50000 7.500000 0.0000000E+00 + -87.50000 7.500000 0.0000000E+00 + -86.50000 7.500000 0.0000000E+00 + -85.50000 7.500000 0.0000000E+00 + -84.50000 7.500000 0.0000000E+00 + -83.50000 7.500000 0.0000000E+00 + -82.50000 7.500000 0.0000000E+00 + -81.50000 7.500000 0.0000000E+00 + -80.50000 7.500000 0.0000000E+00 + -79.50000 7.500000 0.0000000E+00 + -78.50000 7.500000 0.0000000E+00 + -77.50000 7.500000 0.0000000E+00 + -76.50000 7.500000 0.0000000E+00 + -75.50000 7.500000 0.0000000E+00 + -74.50000 7.500000 0.0000000E+00 + -73.50000 7.500000 0.0000000E+00 + -72.50000 7.500000 0.0000000E+00 + -71.50000 7.500000 0.0000000E+00 + -70.50000 7.500000 0.0000000E+00 + -69.50000 7.500000 0.0000000E+00 + -68.50000 7.500000 0.0000000E+00 + -67.50000 7.500000 0.0000000E+00 + -66.50000 7.500000 0.0000000E+00 + -65.50000 7.500000 0.0000000E+00 + -64.50000 7.500000 0.0000000E+00 + -63.50000 7.500000 0.0000000E+00 + -62.50000 7.500000 0.0000000E+00 + -61.50000 7.500000 0.0000000E+00 + -60.50000 7.500000 0.0000000E+00 + -59.50000 7.500000 0.0000000E+00 + -58.50000 7.500000 0.0000000E+00 + -57.50000 7.500000 0.0000000E+00 + -56.50000 7.500000 0.0000000E+00 + -55.50000 7.500000 0.0000000E+00 + -54.50000 7.500000 0.0000000E+00 + -53.50000 7.500000 0.0000000E+00 + -52.50000 7.500000 0.0000000E+00 + -51.50000 7.500000 0.0000000E+00 + -50.50000 7.500000 0.0000000E+00 + -49.50000 7.500000 0.0000000E+00 + -48.50000 7.500000 0.0000000E+00 + -47.50000 7.500000 0.0000000E+00 + -46.50000 7.500000 0.0000000E+00 + -45.50000 7.500000 0.0000000E+00 + -44.50000 7.500000 0.0000000E+00 + -43.50000 7.500000 0.0000000E+00 + -42.50000 7.500000 0.0000000E+00 + -41.50000 7.500000 0.0000000E+00 + -40.50000 7.500000 0.0000000E+00 + -39.50000 7.500000 0.0000000E+00 + -38.50000 7.500000 0.0000000E+00 + -37.50000 7.500000 0.0000000E+00 + -36.50000 7.500000 0.0000000E+00 + -35.50000 7.500000 0.0000000E+00 + -34.50000 7.500000 0.0000000E+00 + -33.50000 7.500000 0.0000000E+00 + -32.50000 7.500000 0.0000000E+00 + -31.50000 7.500000 0.0000000E+00 + -30.50000 7.500000 0.0000000E+00 + -29.50000 7.500000 0.0000000E+00 + -28.50000 7.500000 0.0000000E+00 + -27.50000 7.500000 0.0000000E+00 + -26.50000 7.500000 0.0000000E+00 + -25.50000 7.500000 0.0000000E+00 + -24.50000 7.500000 0.0000000E+00 + -23.50000 7.500000 0.0000000E+00 + -22.50000 7.500000 0.0000000E+00 + -21.50000 7.500000 0.0000000E+00 + -20.50000 7.500000 0.0000000E+00 + -19.50000 7.500000 0.0000000E+00 + -18.50000 7.500000 0.0000000E+00 + -17.50000 7.500000 0.0000000E+00 + -16.50000 7.500000 0.0000000E+00 + -15.50000 7.500000 0.0000000E+00 + -14.50000 7.500000 0.0000000E+00 + -13.50000 7.500000 0.0000000E+00 + -12.50000 7.500000 0.0000000E+00 + -11.50000 7.500000 0.0000000E+00 + -10.50000 7.500000 0.0000000E+00 + -9.500000 7.500000 0.0000000E+00 + -8.500000 7.500000 0.0000000E+00 + -7.500000 7.500000 0.0000000E+00 + -6.500000 7.500000 0.0000000E+00 + -5.500000 7.500000 0.0000000E+00 + -4.500000 7.500000 0.0000000E+00 + -3.500000 7.500000 0.0000000E+00 + -2.500000 7.500000 0.0000000E+00 + -1.500000 7.500000 0.0000000E+00 + -0.5000000 7.500000 0.0000000E+00 + 0.5000000 7.500000 0.0000000E+00 + 1.500000 7.500000 0.0000000E+00 + 2.500000 7.500000 0.0000000E+00 + 3.500000 7.500000 0.0000000E+00 + 4.500000 7.500000 0.0000000E+00 + 5.500000 7.500000 0.0000000E+00 + 6.500000 7.500000 0.0000000E+00 + 7.500000 7.500000 0.0000000E+00 + 8.500000 7.500000 0.0000000E+00 + 9.500000 7.500000 0.0000000E+00 + 10.50000 7.500000 0.0000000E+00 + 11.50000 7.500000 0.0000000E+00 + 12.50000 7.500000 0.0000000E+00 + 13.50000 7.500000 6.5843635E-03 + 14.50000 7.500000 1.1865235E-02 + 15.50000 7.500000 1.4231401E-02 + 16.50000 7.500000 8.1920013E-02 + 17.50000 7.500000 8.1920013E-02 + 18.50000 7.500000 8.1920013E-02 + 19.50000 7.500000 8.1920013E-02 + 20.50000 7.500000 8.1920013E-02 + 21.50000 7.500000 8.1920013E-02 + 22.50000 7.500000 2.3030981E-02 + 23.50000 7.500000 1.0288068E-03 + 24.50000 7.500000 3.3711945E-04 + 25.50000 7.500000 1.3691521E-03 + 26.50000 7.500000 4.3812867E-02 + 27.50000 7.500000 6.5375075E-02 + 28.50000 7.500000 9.4696872E-02 + 29.50000 7.500000 9.4696872E-02 + 30.50000 7.500000 0.1337063 + 31.50000 7.500000 0.1156661 + 32.50000 7.500000 0.1618070 + 33.50000 7.500000 9.1661960E-02 + 34.50000 7.500000 5.0865885E-02 + 35.50000 7.500000 0.0000000E+00 + 36.50000 7.500000 0.0000000E+00 + 37.50000 7.500000 0.0000000E+00 + 38.50000 7.500000 0.0000000E+00 + 39.50000 7.500000 0.0000000E+00 + 40.50000 7.500000 0.0000000E+00 + 41.50000 7.500000 0.0000000E+00 + 42.50000 7.500000 0.0000000E+00 + 43.50000 7.500000 0.0000000E+00 + 44.50000 7.500000 0.0000000E+00 + 45.50000 7.500000 0.0000000E+00 + 46.50000 7.500000 0.0000000E+00 + 47.50000 7.500000 0.0000000E+00 + 48.50000 7.500000 0.0000000E+00 + 49.50000 7.500000 0.0000000E+00 + 50.50000 7.500000 0.0000000E+00 + 51.50000 7.500000 0.0000000E+00 + 52.50000 7.500000 0.0000000E+00 + 53.50000 7.500000 0.0000000E+00 + 54.50000 7.500000 0.0000000E+00 + 55.50000 7.500000 0.0000000E+00 + 56.50000 7.500000 0.0000000E+00 + 57.50000 7.500000 0.0000000E+00 + 58.50000 7.500000 0.0000000E+00 + 59.50000 7.500000 0.0000000E+00 + 60.50000 7.500000 0.0000000E+00 + 61.50000 7.500000 0.0000000E+00 + 62.50000 7.500000 0.0000000E+00 + 63.50000 7.500000 0.0000000E+00 + 64.50000 7.500000 0.0000000E+00 + 65.50000 7.500000 0.0000000E+00 + 66.50000 7.500000 0.0000000E+00 + 67.50000 7.500000 0.0000000E+00 + 68.50000 7.500000 0.0000000E+00 + 69.50000 7.500000 0.0000000E+00 + 70.50000 7.500000 0.0000000E+00 + 71.50000 7.500000 0.0000000E+00 + 72.50000 7.500000 0.0000000E+00 + 73.50000 7.500000 0.0000000E+00 + 74.50000 7.500000 0.0000000E+00 + 75.50000 7.500000 0.0000000E+00 + 76.50000 7.500000 0.0000000E+00 + 77.50000 7.500000 0.0000000E+00 + 78.50000 7.500000 0.0000000E+00 + 79.50000 7.500000 0.0000000E+00 + 80.50000 7.500000 0.0000000E+00 + 81.50000 7.500000 0.0000000E+00 + 82.50000 7.500000 0.0000000E+00 + 83.50000 7.500000 0.0000000E+00 + 84.50000 7.500000 0.0000000E+00 + 85.50000 7.500000 0.0000000E+00 + 86.50000 7.500000 0.0000000E+00 + 87.50000 7.500000 0.0000000E+00 + 88.50000 7.500000 0.0000000E+00 + 89.50000 7.500000 0.0000000E+00 + -89.50000 8.500000 0.0000000E+00 + -88.50000 8.500000 0.0000000E+00 + -87.50000 8.500000 0.0000000E+00 + -86.50000 8.500000 0.0000000E+00 + -85.50000 8.500000 0.0000000E+00 + -84.50000 8.500000 0.0000000E+00 + -83.50000 8.500000 0.0000000E+00 + -82.50000 8.500000 0.0000000E+00 + -81.50000 8.500000 0.0000000E+00 + -80.50000 8.500000 0.0000000E+00 + -79.50000 8.500000 0.0000000E+00 + -78.50000 8.500000 0.0000000E+00 + -77.50000 8.500000 0.0000000E+00 + -76.50000 8.500000 0.0000000E+00 + -75.50000 8.500000 0.0000000E+00 + -74.50000 8.500000 0.0000000E+00 + -73.50000 8.500000 0.0000000E+00 + -72.50000 8.500000 0.0000000E+00 + -71.50000 8.500000 0.0000000E+00 + -70.50000 8.500000 0.0000000E+00 + -69.50000 8.500000 0.0000000E+00 + -68.50000 8.500000 0.0000000E+00 + -67.50000 8.500000 0.0000000E+00 + -66.50000 8.500000 0.0000000E+00 + -65.50000 8.500000 0.0000000E+00 + -64.50000 8.500000 0.0000000E+00 + -63.50000 8.500000 0.0000000E+00 + -62.50000 8.500000 0.0000000E+00 + -61.50000 8.500000 0.0000000E+00 + -60.50000 8.500000 0.0000000E+00 + -59.50000 8.500000 0.0000000E+00 + -58.50000 8.500000 0.0000000E+00 + -57.50000 8.500000 0.0000000E+00 + -56.50000 8.500000 0.0000000E+00 + -55.50000 8.500000 0.0000000E+00 + -54.50000 8.500000 0.0000000E+00 + -53.50000 8.500000 0.0000000E+00 + -52.50000 8.500000 0.0000000E+00 + -51.50000 8.500000 0.0000000E+00 + -50.50000 8.500000 0.0000000E+00 + -49.50000 8.500000 0.0000000E+00 + -48.50000 8.500000 0.0000000E+00 + -47.50000 8.500000 0.0000000E+00 + -46.50000 8.500000 0.0000000E+00 + -45.50000 8.500000 0.0000000E+00 + -44.50000 8.500000 0.0000000E+00 + -43.50000 8.500000 0.0000000E+00 + -42.50000 8.500000 0.0000000E+00 + -41.50000 8.500000 0.0000000E+00 + -40.50000 8.500000 0.0000000E+00 + -39.50000 8.500000 0.0000000E+00 + -38.50000 8.500000 0.0000000E+00 + -37.50000 8.500000 0.0000000E+00 + -36.50000 8.500000 0.0000000E+00 + -35.50000 8.500000 0.0000000E+00 + -34.50000 8.500000 0.0000000E+00 + -33.50000 8.500000 0.0000000E+00 + -32.50000 8.500000 0.0000000E+00 + -31.50000 8.500000 0.0000000E+00 + -30.50000 8.500000 0.0000000E+00 + -29.50000 8.500000 0.0000000E+00 + -28.50000 8.500000 0.0000000E+00 + -27.50000 8.500000 0.0000000E+00 + -26.50000 8.500000 0.0000000E+00 + -25.50000 8.500000 0.0000000E+00 + -24.50000 8.500000 0.0000000E+00 + -23.50000 8.500000 0.0000000E+00 + -22.50000 8.500000 0.0000000E+00 + -21.50000 8.500000 0.0000000E+00 + -20.50000 8.500000 0.0000000E+00 + -19.50000 8.500000 0.0000000E+00 + -18.50000 8.500000 0.0000000E+00 + -17.50000 8.500000 0.0000000E+00 + -16.50000 8.500000 0.0000000E+00 + -15.50000 8.500000 0.0000000E+00 + -14.50000 8.500000 0.0000000E+00 + -13.50000 8.500000 0.0000000E+00 + -12.50000 8.500000 0.0000000E+00 + -11.50000 8.500000 0.0000000E+00 + -10.50000 8.500000 0.0000000E+00 + -9.500000 8.500000 0.0000000E+00 + -8.500000 8.500000 0.0000000E+00 + -7.500000 8.500000 0.0000000E+00 + -6.500000 8.500000 0.0000000E+00 + -5.500000 8.500000 0.0000000E+00 + -4.500000 8.500000 0.0000000E+00 + -3.500000 8.500000 0.0000000E+00 + -2.500000 8.500000 0.0000000E+00 + -1.500000 8.500000 0.0000000E+00 + -0.5000000 8.500000 0.0000000E+00 + 0.5000000 8.500000 0.0000000E+00 + 1.500000 8.500000 0.0000000E+00 + 2.500000 8.500000 0.0000000E+00 + 3.500000 8.500000 0.0000000E+00 + 4.500000 8.500000 0.0000000E+00 + 5.500000 8.500000 0.0000000E+00 + 6.500000 8.500000 0.0000000E+00 + 7.500000 8.500000 0.0000000E+00 + 8.500000 8.500000 0.0000000E+00 + 9.500000 8.500000 0.0000000E+00 + 10.50000 8.500000 0.0000000E+00 + 11.50000 8.500000 0.0000000E+00 + 12.50000 8.500000 0.0000000E+00 + 13.50000 8.500000 6.5843635E-03 + 14.50000 8.500000 1.1865235E-02 + 15.50000 8.500000 6.5843635E-03 + 16.50000 8.500000 8.1920013E-02 + 17.50000 8.500000 1.9440001E-02 + 18.50000 8.500000 3.2921817E-02 + 19.50000 8.500000 1.0787822E-02 + 20.50000 8.500000 3.2921817E-02 + 21.50000 8.500000 8.1920013E-02 + 22.50000 8.500000 3.9003182E-02 + 23.50000 8.500000 5.5331686E-03 + 24.50000 8.500000 1.2070711E-02 + 25.50000 8.500000 5.5023155E-04 + 26.50000 8.500000 2.8356908E-02 + 27.50000 8.500000 6.5375075E-02 + 28.50000 8.500000 6.5375075E-02 + 29.50000 8.500000 6.5375075E-02 + 30.50000 8.500000 9.4696872E-02 + 31.50000 8.500000 7.4862301E-02 + 32.50000 8.500000 0.1004694 + 33.50000 8.500000 0.1552304 + 34.50000 8.500000 3.1791179E-04 + 35.50000 8.500000 0.0000000E+00 + 36.50000 8.500000 0.0000000E+00 + 37.50000 8.500000 0.0000000E+00 + 38.50000 8.500000 0.0000000E+00 + 39.50000 8.500000 0.0000000E+00 + 40.50000 8.500000 0.0000000E+00 + 41.50000 8.500000 0.0000000E+00 + 42.50000 8.500000 0.0000000E+00 + 43.50000 8.500000 0.0000000E+00 + 44.50000 8.500000 0.0000000E+00 + 45.50000 8.500000 0.0000000E+00 + 46.50000 8.500000 0.0000000E+00 + 47.50000 8.500000 0.0000000E+00 + 48.50000 8.500000 0.0000000E+00 + 49.50000 8.500000 0.0000000E+00 + 50.50000 8.500000 0.0000000E+00 + 51.50000 8.500000 0.0000000E+00 + 52.50000 8.500000 0.0000000E+00 + 53.50000 8.500000 0.0000000E+00 + 54.50000 8.500000 0.0000000E+00 + 55.50000 8.500000 0.0000000E+00 + 56.50000 8.500000 0.0000000E+00 + 57.50000 8.500000 0.0000000E+00 + 58.50000 8.500000 0.0000000E+00 + 59.50000 8.500000 0.0000000E+00 + 60.50000 8.500000 0.0000000E+00 + 61.50000 8.500000 0.0000000E+00 + 62.50000 8.500000 0.0000000E+00 + 63.50000 8.500000 0.0000000E+00 + 64.50000 8.500000 0.0000000E+00 + 65.50000 8.500000 0.0000000E+00 + 66.50000 8.500000 0.0000000E+00 + 67.50000 8.500000 0.0000000E+00 + 68.50000 8.500000 0.0000000E+00 + 69.50000 8.500000 0.0000000E+00 + 70.50000 8.500000 0.0000000E+00 + 71.50000 8.500000 0.0000000E+00 + 72.50000 8.500000 0.0000000E+00 + 73.50000 8.500000 0.0000000E+00 + 74.50000 8.500000 0.0000000E+00 + 75.50000 8.500000 0.0000000E+00 + 76.50000 8.500000 0.0000000E+00 + 77.50000 8.500000 0.0000000E+00 + 78.50000 8.500000 0.0000000E+00 + 79.50000 8.500000 0.0000000E+00 + 80.50000 8.500000 0.0000000E+00 + 81.50000 8.500000 0.0000000E+00 + 82.50000 8.500000 0.0000000E+00 + 83.50000 8.500000 0.0000000E+00 + 84.50000 8.500000 0.0000000E+00 + 85.50000 8.500000 0.0000000E+00 + 86.50000 8.500000 0.0000000E+00 + 87.50000 8.500000 0.0000000E+00 + 88.50000 8.500000 0.0000000E+00 + 89.50000 8.500000 0.0000000E+00 + -89.50000 9.500000 0.0000000E+00 + -88.50000 9.500000 0.0000000E+00 + -87.50000 9.500000 0.0000000E+00 + -86.50000 9.500000 0.0000000E+00 + -85.50000 9.500000 0.0000000E+00 + -84.50000 9.500000 0.0000000E+00 + -83.50000 9.500000 0.0000000E+00 + -82.50000 9.500000 0.0000000E+00 + -81.50000 9.500000 0.0000000E+00 + -80.50000 9.500000 0.0000000E+00 + -79.50000 9.500000 0.0000000E+00 + -78.50000 9.500000 0.0000000E+00 + -77.50000 9.500000 0.0000000E+00 + -76.50000 9.500000 0.0000000E+00 + -75.50000 9.500000 0.0000000E+00 + -74.50000 9.500000 0.0000000E+00 + -73.50000 9.500000 0.0000000E+00 + -72.50000 9.500000 0.0000000E+00 + -71.50000 9.500000 0.0000000E+00 + -70.50000 9.500000 0.0000000E+00 + -69.50000 9.500000 0.0000000E+00 + -68.50000 9.500000 0.0000000E+00 + -67.50000 9.500000 0.0000000E+00 + -66.50000 9.500000 0.0000000E+00 + -65.50000 9.500000 0.0000000E+00 + -64.50000 9.500000 0.0000000E+00 + -63.50000 9.500000 0.0000000E+00 + -62.50000 9.500000 0.0000000E+00 + -61.50000 9.500000 0.0000000E+00 + -60.50000 9.500000 0.0000000E+00 + -59.50000 9.500000 0.0000000E+00 + -58.50000 9.500000 0.0000000E+00 + -57.50000 9.500000 0.0000000E+00 + -56.50000 9.500000 0.0000000E+00 + -55.50000 9.500000 0.0000000E+00 + -54.50000 9.500000 0.0000000E+00 + -53.50000 9.500000 0.0000000E+00 + -52.50000 9.500000 0.0000000E+00 + -51.50000 9.500000 0.0000000E+00 + -50.50000 9.500000 0.0000000E+00 + -49.50000 9.500000 0.0000000E+00 + -48.50000 9.500000 0.0000000E+00 + -47.50000 9.500000 0.0000000E+00 + -46.50000 9.500000 0.0000000E+00 + -45.50000 9.500000 0.0000000E+00 + -44.50000 9.500000 0.0000000E+00 + -43.50000 9.500000 0.0000000E+00 + -42.50000 9.500000 0.0000000E+00 + -41.50000 9.500000 0.0000000E+00 + -40.50000 9.500000 0.0000000E+00 + -39.50000 9.500000 0.0000000E+00 + -38.50000 9.500000 0.0000000E+00 + -37.50000 9.500000 0.0000000E+00 + -36.50000 9.500000 0.0000000E+00 + -35.50000 9.500000 0.0000000E+00 + -34.50000 9.500000 0.0000000E+00 + -33.50000 9.500000 0.0000000E+00 + -32.50000 9.500000 0.0000000E+00 + -31.50000 9.500000 0.0000000E+00 + -30.50000 9.500000 0.0000000E+00 + -29.50000 9.500000 0.0000000E+00 + -28.50000 9.500000 0.0000000E+00 + -27.50000 9.500000 0.0000000E+00 + -26.50000 9.500000 0.0000000E+00 + -25.50000 9.500000 0.0000000E+00 + -24.50000 9.500000 0.0000000E+00 + -23.50000 9.500000 0.0000000E+00 + -22.50000 9.500000 0.0000000E+00 + -21.50000 9.500000 0.0000000E+00 + -20.50000 9.500000 0.0000000E+00 + -19.50000 9.500000 0.0000000E+00 + -18.50000 9.500000 0.0000000E+00 + -17.50000 9.500000 0.0000000E+00 + -16.50000 9.500000 0.0000000E+00 + -15.50000 9.500000 0.0000000E+00 + -14.50000 9.500000 0.0000000E+00 + -13.50000 9.500000 0.0000000E+00 + -12.50000 9.500000 0.0000000E+00 + -11.50000 9.500000 0.0000000E+00 + -10.50000 9.500000 0.0000000E+00 + -9.500000 9.500000 0.0000000E+00 + -8.500000 9.500000 0.0000000E+00 + -7.500000 9.500000 0.0000000E+00 + -6.500000 9.500000 0.0000000E+00 + -5.500000 9.500000 0.0000000E+00 + -4.500000 9.500000 0.0000000E+00 + -3.500000 9.500000 0.0000000E+00 + -2.500000 9.500000 0.0000000E+00 + -1.500000 9.500000 0.0000000E+00 + -0.5000000 9.500000 0.0000000E+00 + 0.5000000 9.500000 0.0000000E+00 + 1.500000 9.500000 0.0000000E+00 + 2.500000 9.500000 0.0000000E+00 + 3.500000 9.500000 0.0000000E+00 + 4.500000 9.500000 0.0000000E+00 + 5.500000 9.500000 0.0000000E+00 + 6.500000 9.500000 0.0000000E+00 + 7.500000 9.500000 0.0000000E+00 + 8.500000 9.500000 0.0000000E+00 + 9.500000 9.500000 0.0000000E+00 + 10.50000 9.500000 0.0000000E+00 + 11.50000 9.500000 0.0000000E+00 + 12.50000 9.500000 0.0000000E+00 + 13.50000 9.500000 6.5843635E-03 + 14.50000 9.500000 1.1865235E-02 + 15.50000 9.500000 3.2921817E-02 + 16.50000 9.500000 8.1920013E-02 + 17.50000 9.500000 8.1920013E-02 + 18.50000 9.500000 8.1920013E-02 + 19.50000 9.500000 8.1920013E-02 + 20.50000 9.500000 0.1222364 + 21.50000 9.500000 0.1222364 + 22.50000 9.500000 8.1920013E-02 + 23.50000 9.500000 2.3841858E-02 + 24.50000 9.500000 4.2786003E-05 + 25.50000 9.500000 5.5023155E-04 + 26.50000 9.500000 4.3812867E-02 + 27.50000 9.500000 6.5375075E-02 + 28.50000 9.500000 6.5375075E-02 + 29.50000 9.500000 6.5375075E-02 + 30.50000 9.500000 9.4696872E-02 + 31.50000 9.500000 7.4862301E-02 + 32.50000 9.500000 5.9326172E-02 + 33.50000 9.500000 9.1661960E-02 + 34.50000 9.500000 2.4141422E-03 + 35.50000 9.500000 0.0000000E+00 + 36.50000 9.500000 0.0000000E+00 + 37.50000 9.500000 0.0000000E+00 + 38.50000 9.500000 0.0000000E+00 + 39.50000 9.500000 0.0000000E+00 + 40.50000 9.500000 0.0000000E+00 + 41.50000 9.500000 0.0000000E+00 + 42.50000 9.500000 0.0000000E+00 + 43.50000 9.500000 0.0000000E+00 + 44.50000 9.500000 0.0000000E+00 + 45.50000 9.500000 0.0000000E+00 + 46.50000 9.500000 0.0000000E+00 + 47.50000 9.500000 0.0000000E+00 + 48.50000 9.500000 0.0000000E+00 + 49.50000 9.500000 0.0000000E+00 + 50.50000 9.500000 0.0000000E+00 + 51.50000 9.500000 0.0000000E+00 + 52.50000 9.500000 0.0000000E+00 + 53.50000 9.500000 0.0000000E+00 + 54.50000 9.500000 0.0000000E+00 + 55.50000 9.500000 0.0000000E+00 + 56.50000 9.500000 0.0000000E+00 + 57.50000 9.500000 0.0000000E+00 + 58.50000 9.500000 0.0000000E+00 + 59.50000 9.500000 0.0000000E+00 + 60.50000 9.500000 0.0000000E+00 + 61.50000 9.500000 0.0000000E+00 + 62.50000 9.500000 0.0000000E+00 + 63.50000 9.500000 0.0000000E+00 + 64.50000 9.500000 0.0000000E+00 + 65.50000 9.500000 0.0000000E+00 + 66.50000 9.500000 0.0000000E+00 + 67.50000 9.500000 0.0000000E+00 + 68.50000 9.500000 0.0000000E+00 + 69.50000 9.500000 0.0000000E+00 + 70.50000 9.500000 0.0000000E+00 + 71.50000 9.500000 0.0000000E+00 + 72.50000 9.500000 0.0000000E+00 + 73.50000 9.500000 0.0000000E+00 + 74.50000 9.500000 0.0000000E+00 + 75.50000 9.500000 0.0000000E+00 + 76.50000 9.500000 0.0000000E+00 + 77.50000 9.500000 0.0000000E+00 + 78.50000 9.500000 0.0000000E+00 + 79.50000 9.500000 0.0000000E+00 + 80.50000 9.500000 0.0000000E+00 + 81.50000 9.500000 0.0000000E+00 + 82.50000 9.500000 0.0000000E+00 + 83.50000 9.500000 0.0000000E+00 + 84.50000 9.500000 0.0000000E+00 + 85.50000 9.500000 0.0000000E+00 + 86.50000 9.500000 0.0000000E+00 + 87.50000 9.500000 0.0000000E+00 + 88.50000 9.500000 0.0000000E+00 + 89.50000 9.500000 0.0000000E+00 + -89.50000 10.50000 0.0000000E+00 + -88.50000 10.50000 0.0000000E+00 + -87.50000 10.50000 0.0000000E+00 + -86.50000 10.50000 0.0000000E+00 + -85.50000 10.50000 0.0000000E+00 + -84.50000 10.50000 0.0000000E+00 + -83.50000 10.50000 0.0000000E+00 + -82.50000 10.50000 0.0000000E+00 + -81.50000 10.50000 0.0000000E+00 + -80.50000 10.50000 0.0000000E+00 + -79.50000 10.50000 0.0000000E+00 + -78.50000 10.50000 0.0000000E+00 + -77.50000 10.50000 0.0000000E+00 + -76.50000 10.50000 0.0000000E+00 + -75.50000 10.50000 0.0000000E+00 + -74.50000 10.50000 0.0000000E+00 + -73.50000 10.50000 0.0000000E+00 + -72.50000 10.50000 0.0000000E+00 + -71.50000 10.50000 0.0000000E+00 + -70.50000 10.50000 0.0000000E+00 + -69.50000 10.50000 0.0000000E+00 + -68.50000 10.50000 0.0000000E+00 + -67.50000 10.50000 0.0000000E+00 + -66.50000 10.50000 0.0000000E+00 + -65.50000 10.50000 0.0000000E+00 + -64.50000 10.50000 0.0000000E+00 + -63.50000 10.50000 0.0000000E+00 + -62.50000 10.50000 0.0000000E+00 + -61.50000 10.50000 0.0000000E+00 + -60.50000 10.50000 0.0000000E+00 + -59.50000 10.50000 0.0000000E+00 + -58.50000 10.50000 0.0000000E+00 + -57.50000 10.50000 0.0000000E+00 + -56.50000 10.50000 0.0000000E+00 + -55.50000 10.50000 0.0000000E+00 + -54.50000 10.50000 0.0000000E+00 + -53.50000 10.50000 0.0000000E+00 + -52.50000 10.50000 0.0000000E+00 + -51.50000 10.50000 0.0000000E+00 + -50.50000 10.50000 0.0000000E+00 + -49.50000 10.50000 0.0000000E+00 + -48.50000 10.50000 0.0000000E+00 + -47.50000 10.50000 0.0000000E+00 + -46.50000 10.50000 0.0000000E+00 + -45.50000 10.50000 0.0000000E+00 + -44.50000 10.50000 0.0000000E+00 + -43.50000 10.50000 0.0000000E+00 + -42.50000 10.50000 0.0000000E+00 + -41.50000 10.50000 0.0000000E+00 + -40.50000 10.50000 0.0000000E+00 + -39.50000 10.50000 0.0000000E+00 + -38.50000 10.50000 0.0000000E+00 + -37.50000 10.50000 0.0000000E+00 + -36.50000 10.50000 0.0000000E+00 + -35.50000 10.50000 0.0000000E+00 + -34.50000 10.50000 0.0000000E+00 + -33.50000 10.50000 0.0000000E+00 + -32.50000 10.50000 0.0000000E+00 + -31.50000 10.50000 0.0000000E+00 + -30.50000 10.50000 0.0000000E+00 + -29.50000 10.50000 0.0000000E+00 + -28.50000 10.50000 0.0000000E+00 + -27.50000 10.50000 0.0000000E+00 + -26.50000 10.50000 0.0000000E+00 + -25.50000 10.50000 0.0000000E+00 + -24.50000 10.50000 0.0000000E+00 + -23.50000 10.50000 0.0000000E+00 + -22.50000 10.50000 0.0000000E+00 + -21.50000 10.50000 0.0000000E+00 + -20.50000 10.50000 0.0000000E+00 + -19.50000 10.50000 0.0000000E+00 + -18.50000 10.50000 0.0000000E+00 + -17.50000 10.50000 0.0000000E+00 + -16.50000 10.50000 0.0000000E+00 + -15.50000 10.50000 0.0000000E+00 + -14.50000 10.50000 0.0000000E+00 + -13.50000 10.50000 0.0000000E+00 + -12.50000 10.50000 0.0000000E+00 + -11.50000 10.50000 0.0000000E+00 + -10.50000 10.50000 0.0000000E+00 + -9.500000 10.50000 0.0000000E+00 + -8.500000 10.50000 0.0000000E+00 + -7.500000 10.50000 0.0000000E+00 + -6.500000 10.50000 0.0000000E+00 + -5.500000 10.50000 0.0000000E+00 + -4.500000 10.50000 0.0000000E+00 + -3.500000 10.50000 0.0000000E+00 + -2.500000 10.50000 0.0000000E+00 + -1.500000 10.50000 0.0000000E+00 + -0.5000000 10.50000 0.0000000E+00 + 0.5000000 10.50000 0.0000000E+00 + 1.500000 10.50000 0.0000000E+00 + 2.500000 10.50000 0.0000000E+00 + 3.500000 10.50000 0.0000000E+00 + 4.500000 10.50000 0.0000000E+00 + 5.500000 10.50000 0.0000000E+00 + 6.500000 10.50000 0.0000000E+00 + 7.500000 10.50000 0.0000000E+00 + 8.500000 10.50000 0.0000000E+00 + 9.500000 10.50000 0.0000000E+00 + 10.50000 10.50000 0.0000000E+00 + 11.50000 10.50000 0.0000000E+00 + 12.50000 10.50000 0.0000000E+00 + 13.50000 10.50000 0.0000000E+00 + 14.50000 10.50000 0.0000000E+00 + 15.50000 10.50000 0.1084393 + 16.50000 10.50000 0.1222364 + 17.50000 10.50000 0.1222364 + 18.50000 10.50000 0.1222364 + 19.50000 10.50000 0.1222364 + 20.50000 10.50000 0.1222364 + 21.50000 10.50000 8.1920013E-02 + 22.50000 10.50000 5.3020909E-02 + 23.50000 10.50000 1.2070711E-02 + 24.50000 10.50000 1.7607410E-02 + 25.50000 10.50000 2.8356908E-02 + 26.50000 10.50000 6.5375075E-02 + 27.50000 10.50000 6.5375075E-02 + 28.50000 10.50000 6.5375075E-02 + 29.50000 10.50000 4.3812867E-02 + 30.50000 10.50000 6.5375075E-02 + 31.50000 10.50000 4.6483610E-02 + 32.50000 10.50000 7.7741317E-02 + 33.50000 10.50000 0.1552304 + 34.50000 10.50000 3.1046072E-02 + 35.50000 10.50000 0.0000000E+00 + 36.50000 10.50000 0.0000000E+00 + 37.50000 10.50000 0.0000000E+00 + 38.50000 10.50000 0.0000000E+00 + 39.50000 10.50000 0.0000000E+00 + 40.50000 10.50000 0.0000000E+00 + 41.50000 10.50000 0.0000000E+00 + 42.50000 10.50000 0.0000000E+00 + 43.50000 10.50000 0.0000000E+00 + 44.50000 10.50000 0.0000000E+00 + 45.50000 10.50000 0.0000000E+00 + 46.50000 10.50000 0.0000000E+00 + 47.50000 10.50000 0.0000000E+00 + 48.50000 10.50000 0.0000000E+00 + 49.50000 10.50000 0.0000000E+00 + 50.50000 10.50000 0.0000000E+00 + 51.50000 10.50000 0.0000000E+00 + 52.50000 10.50000 0.0000000E+00 + 53.50000 10.50000 0.0000000E+00 + 54.50000 10.50000 0.0000000E+00 + 55.50000 10.50000 0.0000000E+00 + 56.50000 10.50000 0.0000000E+00 + 57.50000 10.50000 0.0000000E+00 + 58.50000 10.50000 0.0000000E+00 + 59.50000 10.50000 0.0000000E+00 + 60.50000 10.50000 0.0000000E+00 + 61.50000 10.50000 0.0000000E+00 + 62.50000 10.50000 0.0000000E+00 + 63.50000 10.50000 0.0000000E+00 + 64.50000 10.50000 0.0000000E+00 + 65.50000 10.50000 0.0000000E+00 + 66.50000 10.50000 0.0000000E+00 + 67.50000 10.50000 0.0000000E+00 + 68.50000 10.50000 0.0000000E+00 + 69.50000 10.50000 0.0000000E+00 + 70.50000 10.50000 0.0000000E+00 + 71.50000 10.50000 0.0000000E+00 + 72.50000 10.50000 0.0000000E+00 + 73.50000 10.50000 0.0000000E+00 + 74.50000 10.50000 0.0000000E+00 + 75.50000 10.50000 0.0000000E+00 + 76.50000 10.50000 0.0000000E+00 + 77.50000 10.50000 0.0000000E+00 + 78.50000 10.50000 0.0000000E+00 + 79.50000 10.50000 0.0000000E+00 + 80.50000 10.50000 0.0000000E+00 + 81.50000 10.50000 0.0000000E+00 + 82.50000 10.50000 0.0000000E+00 + 83.50000 10.50000 0.0000000E+00 + 84.50000 10.50000 0.0000000E+00 + 85.50000 10.50000 0.0000000E+00 + 86.50000 10.50000 0.0000000E+00 + 87.50000 10.50000 0.0000000E+00 + 88.50000 10.50000 0.0000000E+00 + 89.50000 10.50000 0.0000000E+00 + -89.50000 11.50000 0.0000000E+00 + -88.50000 11.50000 0.0000000E+00 + -87.50000 11.50000 0.0000000E+00 + -86.50000 11.50000 0.0000000E+00 + -85.50000 11.50000 0.0000000E+00 + -84.50000 11.50000 0.0000000E+00 + -83.50000 11.50000 0.0000000E+00 + -82.50000 11.50000 0.0000000E+00 + -81.50000 11.50000 0.0000000E+00 + -80.50000 11.50000 0.0000000E+00 + -79.50000 11.50000 0.0000000E+00 + -78.50000 11.50000 0.0000000E+00 + -77.50000 11.50000 0.0000000E+00 + -76.50000 11.50000 0.0000000E+00 + -75.50000 11.50000 0.0000000E+00 + -74.50000 11.50000 0.0000000E+00 + -73.50000 11.50000 0.0000000E+00 + -72.50000 11.50000 0.0000000E+00 + -71.50000 11.50000 0.0000000E+00 + -70.50000 11.50000 0.0000000E+00 + -69.50000 11.50000 0.0000000E+00 + -68.50000 11.50000 0.0000000E+00 + -67.50000 11.50000 0.0000000E+00 + -66.50000 11.50000 0.0000000E+00 + -65.50000 11.50000 0.0000000E+00 + -64.50000 11.50000 0.0000000E+00 + -63.50000 11.50000 0.0000000E+00 + -62.50000 11.50000 0.0000000E+00 + -61.50000 11.50000 0.0000000E+00 + -60.50000 11.50000 0.0000000E+00 + -59.50000 11.50000 0.0000000E+00 + -58.50000 11.50000 0.0000000E+00 + -57.50000 11.50000 0.0000000E+00 + -56.50000 11.50000 0.0000000E+00 + -55.50000 11.50000 0.0000000E+00 + -54.50000 11.50000 0.0000000E+00 + -53.50000 11.50000 0.0000000E+00 + -52.50000 11.50000 0.0000000E+00 + -51.50000 11.50000 0.0000000E+00 + -50.50000 11.50000 0.0000000E+00 + -49.50000 11.50000 0.0000000E+00 + -48.50000 11.50000 0.0000000E+00 + -47.50000 11.50000 0.0000000E+00 + -46.50000 11.50000 0.0000000E+00 + -45.50000 11.50000 0.0000000E+00 + -44.50000 11.50000 0.0000000E+00 + -43.50000 11.50000 0.0000000E+00 + -42.50000 11.50000 0.0000000E+00 + -41.50000 11.50000 0.0000000E+00 + -40.50000 11.50000 0.0000000E+00 + -39.50000 11.50000 0.0000000E+00 + -38.50000 11.50000 0.0000000E+00 + -37.50000 11.50000 0.0000000E+00 + -36.50000 11.50000 0.0000000E+00 + -35.50000 11.50000 0.0000000E+00 + -34.50000 11.50000 0.0000000E+00 + -33.50000 11.50000 0.0000000E+00 + -32.50000 11.50000 0.0000000E+00 + -31.50000 11.50000 0.0000000E+00 + -30.50000 11.50000 0.0000000E+00 + -29.50000 11.50000 0.0000000E+00 + -28.50000 11.50000 0.0000000E+00 + -27.50000 11.50000 0.0000000E+00 + -26.50000 11.50000 0.0000000E+00 + -25.50000 11.50000 0.0000000E+00 + -24.50000 11.50000 0.0000000E+00 + -23.50000 11.50000 0.0000000E+00 + -22.50000 11.50000 0.0000000E+00 + -21.50000 11.50000 0.0000000E+00 + -20.50000 11.50000 0.0000000E+00 + -19.50000 11.50000 0.0000000E+00 + -18.50000 11.50000 0.0000000E+00 + -17.50000 11.50000 0.0000000E+00 + -16.50000 11.50000 0.0000000E+00 + -15.50000 11.50000 0.0000000E+00 + -14.50000 11.50000 0.0000000E+00 + -13.50000 11.50000 0.0000000E+00 + -12.50000 11.50000 0.0000000E+00 + -11.50000 11.50000 0.0000000E+00 + -10.50000 11.50000 0.0000000E+00 + -9.500000 11.50000 0.0000000E+00 + -8.500000 11.50000 0.0000000E+00 + -7.500000 11.50000 0.0000000E+00 + -6.500000 11.50000 0.0000000E+00 + -5.500000 11.50000 0.0000000E+00 + -4.500000 11.50000 0.0000000E+00 + -3.500000 11.50000 0.0000000E+00 + -2.500000 11.50000 0.0000000E+00 + -1.500000 11.50000 0.0000000E+00 + -0.5000000 11.50000 0.0000000E+00 + 0.5000000 11.50000 0.0000000E+00 + 1.500000 11.50000 0.0000000E+00 + 2.500000 11.50000 0.0000000E+00 + 3.500000 11.50000 0.0000000E+00 + 4.500000 11.50000 0.0000000E+00 + 5.500000 11.50000 0.0000000E+00 + 6.500000 11.50000 0.0000000E+00 + 7.500000 11.50000 0.0000000E+00 + 8.500000 11.50000 0.0000000E+00 + 9.500000 11.50000 0.0000000E+00 + 10.50000 11.50000 0.0000000E+00 + 11.50000 11.50000 0.0000000E+00 + 12.50000 11.50000 0.0000000E+00 + 13.50000 11.50000 0.0000000E+00 + 14.50000 11.50000 2.4447279E-02 + 15.50000 11.50000 0.1222364 + 16.50000 11.50000 0.1222364 + 17.50000 11.50000 0.1222364 + 18.50000 11.50000 0.1222364 + 19.50000 11.50000 8.1920013E-02 + 20.50000 11.50000 8.1920013E-02 + 21.50000 11.50000 5.3020909E-02 + 22.50000 11.50000 3.8397551E-02 + 23.50000 11.50000 1.0397000E-02 + 24.50000 11.50000 7.8125000E-03 + 25.50000 11.50000 1.0397000E-02 + 26.50000 11.50000 6.5375075E-02 + 27.50000 11.50000 6.5375075E-02 + 28.50000 11.50000 6.5375075E-02 + 29.50000 11.50000 4.3812867E-02 + 30.50000 11.50000 6.5375075E-02 + 31.50000 11.50000 0.0000000E+00 + 32.50000 11.50000 0.1618070 + 33.50000 11.50000 0.0000000E+00 + 34.50000 11.50000 0.0000000E+00 + 35.50000 11.50000 0.0000000E+00 + 36.50000 11.50000 0.0000000E+00 + 37.50000 11.50000 0.0000000E+00 + 38.50000 11.50000 0.0000000E+00 + 39.50000 11.50000 0.0000000E+00 + 40.50000 11.50000 0.0000000E+00 + 41.50000 11.50000 0.0000000E+00 + 42.50000 11.50000 0.0000000E+00 + 43.50000 11.50000 0.0000000E+00 + 44.50000 11.50000 0.0000000E+00 + 45.50000 11.50000 0.0000000E+00 + 46.50000 11.50000 0.0000000E+00 + 47.50000 11.50000 0.0000000E+00 + 48.50000 11.50000 0.0000000E+00 + 49.50000 11.50000 0.0000000E+00 + 50.50000 11.50000 0.0000000E+00 + 51.50000 11.50000 0.0000000E+00 + 52.50000 11.50000 0.0000000E+00 + 53.50000 11.50000 0.0000000E+00 + 54.50000 11.50000 0.0000000E+00 + 55.50000 11.50000 0.0000000E+00 + 56.50000 11.50000 0.0000000E+00 + 57.50000 11.50000 0.0000000E+00 + 58.50000 11.50000 0.0000000E+00 + 59.50000 11.50000 0.0000000E+00 + 60.50000 11.50000 0.0000000E+00 + 61.50000 11.50000 0.0000000E+00 + 62.50000 11.50000 0.0000000E+00 + 63.50000 11.50000 0.0000000E+00 + 64.50000 11.50000 0.0000000E+00 + 65.50000 11.50000 0.0000000E+00 + 66.50000 11.50000 0.0000000E+00 + 67.50000 11.50000 0.0000000E+00 + 68.50000 11.50000 0.0000000E+00 + 69.50000 11.50000 0.0000000E+00 + 70.50000 11.50000 0.0000000E+00 + 71.50000 11.50000 0.0000000E+00 + 72.50000 11.50000 0.0000000E+00 + 73.50000 11.50000 0.0000000E+00 + 74.50000 11.50000 0.0000000E+00 + 75.50000 11.50000 0.0000000E+00 + 76.50000 11.50000 0.0000000E+00 + 77.50000 11.50000 0.0000000E+00 + 78.50000 11.50000 0.0000000E+00 + 79.50000 11.50000 0.0000000E+00 + 80.50000 11.50000 0.0000000E+00 + 81.50000 11.50000 0.0000000E+00 + 82.50000 11.50000 0.0000000E+00 + 83.50000 11.50000 0.0000000E+00 + 84.50000 11.50000 0.0000000E+00 + 85.50000 11.50000 0.0000000E+00 + 86.50000 11.50000 0.0000000E+00 + 87.50000 11.50000 0.0000000E+00 + 88.50000 11.50000 0.0000000E+00 + 89.50000 11.50000 0.0000000E+00 + -89.50000 12.50000 0.0000000E+00 + -88.50000 12.50000 0.0000000E+00 + -87.50000 12.50000 0.0000000E+00 + -86.50000 12.50000 0.0000000E+00 + -85.50000 12.50000 0.0000000E+00 + -84.50000 12.50000 0.0000000E+00 + -83.50000 12.50000 0.0000000E+00 + -82.50000 12.50000 0.0000000E+00 + -81.50000 12.50000 0.0000000E+00 + -80.50000 12.50000 0.0000000E+00 + -79.50000 12.50000 0.0000000E+00 + -78.50000 12.50000 0.0000000E+00 + -77.50000 12.50000 0.0000000E+00 + -76.50000 12.50000 0.0000000E+00 + -75.50000 12.50000 0.0000000E+00 + -74.50000 12.50000 0.0000000E+00 + -73.50000 12.50000 0.0000000E+00 + -72.50000 12.50000 0.0000000E+00 + -71.50000 12.50000 0.0000000E+00 + -70.50000 12.50000 0.0000000E+00 + -69.50000 12.50000 0.0000000E+00 + -68.50000 12.50000 0.0000000E+00 + -67.50000 12.50000 0.0000000E+00 + -66.50000 12.50000 0.0000000E+00 + -65.50000 12.50000 0.0000000E+00 + -64.50000 12.50000 0.0000000E+00 + -63.50000 12.50000 0.0000000E+00 + -62.50000 12.50000 0.0000000E+00 + -61.50000 12.50000 0.0000000E+00 + -60.50000 12.50000 0.0000000E+00 + -59.50000 12.50000 0.0000000E+00 + -58.50000 12.50000 0.0000000E+00 + -57.50000 12.50000 0.0000000E+00 + -56.50000 12.50000 0.0000000E+00 + -55.50000 12.50000 0.0000000E+00 + -54.50000 12.50000 0.0000000E+00 + -53.50000 12.50000 0.0000000E+00 + -52.50000 12.50000 0.0000000E+00 + -51.50000 12.50000 0.0000000E+00 + -50.50000 12.50000 0.0000000E+00 + -49.50000 12.50000 0.0000000E+00 + -48.50000 12.50000 0.0000000E+00 + -47.50000 12.50000 0.0000000E+00 + -46.50000 12.50000 0.0000000E+00 + -45.50000 12.50000 0.0000000E+00 + -44.50000 12.50000 0.0000000E+00 + -43.50000 12.50000 0.0000000E+00 + -42.50000 12.50000 0.0000000E+00 + -41.50000 12.50000 0.0000000E+00 + -40.50000 12.50000 0.0000000E+00 + -39.50000 12.50000 0.0000000E+00 + -38.50000 12.50000 0.0000000E+00 + -37.50000 12.50000 0.0000000E+00 + -36.50000 12.50000 0.0000000E+00 + -35.50000 12.50000 0.0000000E+00 + -34.50000 12.50000 0.0000000E+00 + -33.50000 12.50000 0.0000000E+00 + -32.50000 12.50000 0.0000000E+00 + -31.50000 12.50000 0.0000000E+00 + -30.50000 12.50000 0.0000000E+00 + -29.50000 12.50000 0.0000000E+00 + -28.50000 12.50000 0.0000000E+00 + -27.50000 12.50000 0.0000000E+00 + -26.50000 12.50000 0.0000000E+00 + -25.50000 12.50000 0.0000000E+00 + -24.50000 12.50000 0.0000000E+00 + -23.50000 12.50000 0.0000000E+00 + -22.50000 12.50000 0.0000000E+00 + -21.50000 12.50000 0.0000000E+00 + -20.50000 12.50000 0.0000000E+00 + -19.50000 12.50000 0.0000000E+00 + -18.50000 12.50000 0.1201143 + -17.50000 12.50000 1.8011225E-02 + -16.50000 12.50000 2.6089560E-02 + -15.50000 12.50000 0.1552304 + -14.50000 12.50000 0.0000000E+00 + -13.50000 12.50000 0.0000000E+00 + -12.50000 12.50000 0.0000000E+00 + -11.50000 12.50000 0.0000000E+00 + -10.50000 12.50000 0.0000000E+00 + -9.500000 12.50000 0.0000000E+00 + -8.500000 12.50000 0.0000000E+00 + -7.500000 12.50000 0.0000000E+00 + -6.500000 12.50000 0.0000000E+00 + -5.500000 12.50000 0.0000000E+00 + -4.500000 12.50000 0.0000000E+00 + -3.500000 12.50000 0.0000000E+00 + -2.500000 12.50000 0.0000000E+00 + -1.500000 12.50000 0.0000000E+00 + -0.5000000 12.50000 0.0000000E+00 + 0.5000000 12.50000 0.0000000E+00 + 1.500000 12.50000 0.0000000E+00 + 2.500000 12.50000 0.0000000E+00 + 3.500000 12.50000 0.0000000E+00 + 4.500000 12.50000 0.0000000E+00 + 5.500000 12.50000 0.0000000E+00 + 6.500000 12.50000 0.0000000E+00 + 7.500000 12.50000 0.0000000E+00 + 8.500000 12.50000 0.0000000E+00 + 9.500000 12.50000 0.0000000E+00 + 10.50000 12.50000 0.0000000E+00 + 11.50000 12.50000 0.0000000E+00 + 12.50000 12.50000 0.0000000E+00 + 13.50000 12.50000 0.0000000E+00 + 14.50000 12.50000 3.5412278E-02 + 15.50000 12.50000 0.1770614 + 16.50000 12.50000 0.1222364 + 17.50000 12.50000 0.1222364 + 18.50000 12.50000 0.1222364 + 19.50000 12.50000 0.1222364 + 20.50000 12.50000 8.1920013E-02 + 21.50000 12.50000 8.1920013E-02 + 22.50000 12.50000 2.3841858E-02 + 23.50000 12.50000 1.0397000E-02 + 24.50000 12.50000 2.8356908E-02 + 25.50000 12.50000 2.8356908E-02 + 26.50000 12.50000 4.3812867E-02 + 27.50000 12.50000 6.5375075E-02 + 28.50000 12.50000 4.3812867E-02 + 29.50000 12.50000 2.8356908E-02 + 30.50000 12.50000 6.5375075E-02 + 31.50000 12.50000 0.0000000E+00 + 32.50000 12.50000 0.1618070 + 33.50000 12.50000 0.0000000E+00 + 34.50000 12.50000 0.0000000E+00 + 35.50000 12.50000 0.0000000E+00 + 36.50000 12.50000 0.0000000E+00 + 37.50000 12.50000 0.0000000E+00 + 38.50000 12.50000 0.0000000E+00 + 39.50000 12.50000 0.0000000E+00 + 40.50000 12.50000 0.0000000E+00 + 41.50000 12.50000 0.0000000E+00 + 42.50000 12.50000 0.0000000E+00 + 43.50000 12.50000 0.0000000E+00 + 44.50000 12.50000 0.0000000E+00 + 45.50000 12.50000 0.0000000E+00 + 46.50000 12.50000 0.0000000E+00 + 47.50000 12.50000 0.0000000E+00 + 48.50000 12.50000 0.0000000E+00 + 49.50000 12.50000 0.0000000E+00 + 50.50000 12.50000 0.0000000E+00 + 51.50000 12.50000 0.0000000E+00 + 52.50000 12.50000 0.0000000E+00 + 53.50000 12.50000 0.0000000E+00 + 54.50000 12.50000 0.0000000E+00 + 55.50000 12.50000 0.0000000E+00 + 56.50000 12.50000 0.0000000E+00 + 57.50000 12.50000 0.0000000E+00 + 58.50000 12.50000 0.0000000E+00 + 59.50000 12.50000 0.0000000E+00 + 60.50000 12.50000 0.0000000E+00 + 61.50000 12.50000 0.0000000E+00 + 62.50000 12.50000 0.0000000E+00 + 63.50000 12.50000 0.0000000E+00 + 64.50000 12.50000 0.0000000E+00 + 65.50000 12.50000 0.0000000E+00 + 66.50000 12.50000 0.0000000E+00 + 67.50000 12.50000 0.0000000E+00 + 68.50000 12.50000 0.0000000E+00 + 69.50000 12.50000 0.0000000E+00 + 70.50000 12.50000 0.0000000E+00 + 71.50000 12.50000 0.0000000E+00 + 72.50000 12.50000 0.0000000E+00 + 73.50000 12.50000 0.0000000E+00 + 74.50000 12.50000 0.0000000E+00 + 75.50000 12.50000 0.0000000E+00 + 76.50000 12.50000 0.0000000E+00 + 77.50000 12.50000 0.0000000E+00 + 78.50000 12.50000 0.0000000E+00 + 79.50000 12.50000 0.0000000E+00 + 80.50000 12.50000 0.0000000E+00 + 81.50000 12.50000 0.0000000E+00 + 82.50000 12.50000 0.0000000E+00 + 83.50000 12.50000 0.0000000E+00 + 84.50000 12.50000 0.0000000E+00 + 85.50000 12.50000 0.0000000E+00 + 86.50000 12.50000 0.0000000E+00 + 87.50000 12.50000 0.0000000E+00 + 88.50000 12.50000 0.0000000E+00 + 89.50000 12.50000 0.0000000E+00 + -89.50000 13.50000 0.0000000E+00 + -88.50000 13.50000 0.0000000E+00 + -87.50000 13.50000 0.0000000E+00 + -86.50000 13.50000 0.0000000E+00 + -85.50000 13.50000 0.0000000E+00 + -84.50000 13.50000 0.0000000E+00 + -83.50000 13.50000 0.0000000E+00 + -82.50000 13.50000 0.0000000E+00 + -81.50000 13.50000 0.0000000E+00 + -80.50000 13.50000 0.0000000E+00 + -79.50000 13.50000 0.0000000E+00 + -78.50000 13.50000 0.0000000E+00 + -77.50000 13.50000 0.0000000E+00 + -76.50000 13.50000 0.0000000E+00 + -75.50000 13.50000 0.0000000E+00 + -74.50000 13.50000 0.0000000E+00 + -73.50000 13.50000 0.0000000E+00 + -72.50000 13.50000 0.0000000E+00 + -71.50000 13.50000 0.0000000E+00 + -70.50000 13.50000 0.0000000E+00 + -69.50000 13.50000 0.0000000E+00 + -68.50000 13.50000 0.0000000E+00 + -67.50000 13.50000 0.0000000E+00 + -66.50000 13.50000 0.0000000E+00 + -65.50000 13.50000 0.0000000E+00 + -64.50000 13.50000 0.0000000E+00 + -63.50000 13.50000 0.0000000E+00 + -62.50000 13.50000 0.0000000E+00 + -61.50000 13.50000 0.0000000E+00 + -60.50000 13.50000 0.0000000E+00 + -59.50000 13.50000 0.0000000E+00 + -58.50000 13.50000 0.0000000E+00 + -57.50000 13.50000 0.0000000E+00 + -56.50000 13.50000 0.0000000E+00 + -55.50000 13.50000 0.0000000E+00 + -54.50000 13.50000 0.0000000E+00 + -53.50000 13.50000 0.0000000E+00 + -52.50000 13.50000 0.0000000E+00 + -51.50000 13.50000 0.0000000E+00 + -50.50000 13.50000 0.0000000E+00 + -49.50000 13.50000 0.0000000E+00 + -48.50000 13.50000 0.0000000E+00 + -47.50000 13.50000 0.0000000E+00 + -46.50000 13.50000 0.0000000E+00 + -45.50000 13.50000 0.0000000E+00 + -44.50000 13.50000 0.0000000E+00 + -43.50000 13.50000 0.0000000E+00 + -42.50000 13.50000 0.0000000E+00 + -41.50000 13.50000 0.0000000E+00 + -40.50000 13.50000 0.0000000E+00 + -39.50000 13.50000 0.0000000E+00 + -38.50000 13.50000 0.0000000E+00 + -37.50000 13.50000 0.0000000E+00 + -36.50000 13.50000 0.0000000E+00 + -35.50000 13.50000 0.0000000E+00 + -34.50000 13.50000 0.0000000E+00 + -33.50000 13.50000 0.0000000E+00 + -32.50000 13.50000 0.0000000E+00 + -31.50000 13.50000 0.0000000E+00 + -30.50000 13.50000 0.0000000E+00 + -29.50000 13.50000 0.0000000E+00 + -28.50000 13.50000 0.0000000E+00 + -27.50000 13.50000 0.0000000E+00 + -26.50000 13.50000 0.0000000E+00 + -25.50000 13.50000 0.0000000E+00 + -24.50000 13.50000 0.0000000E+00 + -23.50000 13.50000 0.0000000E+00 + -22.50000 13.50000 0.0000000E+00 + -21.50000 13.50000 0.0000000E+00 + -20.50000 13.50000 0.1981176 + -19.50000 13.50000 3.6836885E-02 + -18.50000 13.50000 0.0000000E+00 + -17.50000 13.50000 0.0000000E+00 + -16.50000 13.50000 0.0000000E+00 + -15.50000 13.50000 0.0000000E+00 + -14.50000 13.50000 0.0000000E+00 + -13.50000 13.50000 0.0000000E+00 + -12.50000 13.50000 0.0000000E+00 + -11.50000 13.50000 0.0000000E+00 + -10.50000 13.50000 0.0000000E+00 + -9.500000 13.50000 0.0000000E+00 + -8.500000 13.50000 0.0000000E+00 + -7.500000 13.50000 0.0000000E+00 + -6.500000 13.50000 0.0000000E+00 + -5.500000 13.50000 0.0000000E+00 + -4.500000 13.50000 0.0000000E+00 + -3.500000 13.50000 0.0000000E+00 + -2.500000 13.50000 0.0000000E+00 + -1.500000 13.50000 0.0000000E+00 + -0.5000000 13.50000 0.0000000E+00 + 0.5000000 13.50000 0.0000000E+00 + 1.500000 13.50000 0.0000000E+00 + 2.500000 13.50000 0.0000000E+00 + 3.500000 13.50000 0.0000000E+00 + 4.500000 13.50000 0.0000000E+00 + 5.500000 13.50000 0.0000000E+00 + 6.500000 13.50000 0.0000000E+00 + 7.500000 13.50000 0.0000000E+00 + 8.500000 13.50000 0.0000000E+00 + 9.500000 13.50000 0.0000000E+00 + 10.50000 13.50000 0.0000000E+00 + 11.50000 13.50000 0.0000000E+00 + 12.50000 13.50000 0.0000000E+00 + 13.50000 13.50000 0.0000000E+00 + 14.50000 13.50000 0.2500000 + 15.50000 13.50000 0.1770614 + 16.50000 13.50000 0.1222364 + 17.50000 13.50000 0.1222364 + 18.50000 13.50000 0.1222364 + 19.50000 13.50000 0.1222364 + 20.50000 13.50000 0.1222364 + 21.50000 13.50000 8.1920013E-02 + 22.50000 13.50000 1.4078379E-02 + 23.50000 13.50000 1.7607410E-02 + 24.50000 13.50000 2.8356908E-02 + 25.50000 13.50000 4.3812867E-02 + 26.50000 13.50000 4.3812867E-02 + 27.50000 13.50000 4.3812867E-02 + 28.50000 13.50000 3.8397551E-02 + 29.50000 13.50000 1.9440001E-02 + 30.50000 13.50000 3.2921817E-02 + 31.50000 13.50000 4.6483610E-02 + 32.50000 13.50000 0.0000000E+00 + 33.50000 13.50000 0.0000000E+00 + 34.50000 13.50000 0.0000000E+00 + 35.50000 13.50000 0.0000000E+00 + 36.50000 13.50000 0.0000000E+00 + 37.50000 13.50000 0.0000000E+00 + 38.50000 13.50000 0.0000000E+00 + 39.50000 13.50000 0.0000000E+00 + 40.50000 13.50000 0.0000000E+00 + 41.50000 13.50000 0.0000000E+00 + 42.50000 13.50000 0.0000000E+00 + 43.50000 13.50000 0.0000000E+00 + 44.50000 13.50000 0.0000000E+00 + 45.50000 13.50000 0.0000000E+00 + 46.50000 13.50000 0.0000000E+00 + 47.50000 13.50000 0.0000000E+00 + 48.50000 13.50000 0.0000000E+00 + 49.50000 13.50000 0.0000000E+00 + 50.50000 13.50000 0.0000000E+00 + 51.50000 13.50000 0.0000000E+00 + 52.50000 13.50000 0.0000000E+00 + 53.50000 13.50000 0.0000000E+00 + 54.50000 13.50000 0.0000000E+00 + 55.50000 13.50000 0.0000000E+00 + 56.50000 13.50000 0.0000000E+00 + 57.50000 13.50000 0.0000000E+00 + 58.50000 13.50000 0.0000000E+00 + 59.50000 13.50000 0.0000000E+00 + 60.50000 13.50000 0.0000000E+00 + 61.50000 13.50000 0.0000000E+00 + 62.50000 13.50000 0.0000000E+00 + 63.50000 13.50000 0.0000000E+00 + 64.50000 13.50000 0.0000000E+00 + 65.50000 13.50000 0.0000000E+00 + 66.50000 13.50000 0.0000000E+00 + 67.50000 13.50000 0.0000000E+00 + 68.50000 13.50000 0.0000000E+00 + 69.50000 13.50000 0.0000000E+00 + 70.50000 13.50000 0.0000000E+00 + 71.50000 13.50000 0.0000000E+00 + 72.50000 13.50000 0.0000000E+00 + 73.50000 13.50000 0.0000000E+00 + 74.50000 13.50000 0.0000000E+00 + 75.50000 13.50000 0.0000000E+00 + 76.50000 13.50000 0.0000000E+00 + 77.50000 13.50000 0.0000000E+00 + 78.50000 13.50000 0.0000000E+00 + 79.50000 13.50000 0.0000000E+00 + 80.50000 13.50000 0.0000000E+00 + 81.50000 13.50000 0.0000000E+00 + 82.50000 13.50000 0.0000000E+00 + 83.50000 13.50000 0.0000000E+00 + 84.50000 13.50000 0.0000000E+00 + 85.50000 13.50000 0.0000000E+00 + 86.50000 13.50000 0.0000000E+00 + 87.50000 13.50000 0.0000000E+00 + 88.50000 13.50000 0.0000000E+00 + 89.50000 13.50000 0.0000000E+00 + -89.50000 14.50000 0.0000000E+00 + -88.50000 14.50000 0.0000000E+00 + -87.50000 14.50000 0.0000000E+00 + -86.50000 14.50000 0.0000000E+00 + -85.50000 14.50000 0.0000000E+00 + -84.50000 14.50000 0.0000000E+00 + -83.50000 14.50000 0.0000000E+00 + -82.50000 14.50000 0.0000000E+00 + -81.50000 14.50000 0.0000000E+00 + -80.50000 14.50000 0.0000000E+00 + -79.50000 14.50000 0.0000000E+00 + -78.50000 14.50000 0.0000000E+00 + -77.50000 14.50000 0.0000000E+00 + -76.50000 14.50000 0.0000000E+00 + -75.50000 14.50000 0.0000000E+00 + -74.50000 14.50000 0.0000000E+00 + -73.50000 14.50000 0.0000000E+00 + -72.50000 14.50000 0.0000000E+00 + -71.50000 14.50000 0.0000000E+00 + -70.50000 14.50000 0.0000000E+00 + -69.50000 14.50000 0.0000000E+00 + -68.50000 14.50000 0.0000000E+00 + -67.50000 14.50000 0.0000000E+00 + -66.50000 14.50000 0.0000000E+00 + -65.50000 14.50000 0.0000000E+00 + -64.50000 14.50000 0.0000000E+00 + -63.50000 14.50000 0.0000000E+00 + -62.50000 14.50000 0.0000000E+00 + -61.50000 14.50000 0.0000000E+00 + -60.50000 14.50000 0.0000000E+00 + -59.50000 14.50000 0.0000000E+00 + -58.50000 14.50000 0.0000000E+00 + -57.50000 14.50000 0.0000000E+00 + -56.50000 14.50000 0.0000000E+00 + -55.50000 14.50000 0.0000000E+00 + -54.50000 14.50000 0.0000000E+00 + -53.50000 14.50000 0.0000000E+00 + -52.50000 14.50000 0.0000000E+00 + -51.50000 14.50000 0.0000000E+00 + -50.50000 14.50000 0.0000000E+00 + -49.50000 14.50000 0.0000000E+00 + -48.50000 14.50000 0.0000000E+00 + -47.50000 14.50000 0.0000000E+00 + -46.50000 14.50000 0.0000000E+00 + -45.50000 14.50000 0.0000000E+00 + -44.50000 14.50000 0.0000000E+00 + -43.50000 14.50000 0.0000000E+00 + -42.50000 14.50000 0.0000000E+00 + -41.50000 14.50000 0.0000000E+00 + -40.50000 14.50000 0.0000000E+00 + -39.50000 14.50000 0.0000000E+00 + -38.50000 14.50000 0.0000000E+00 + -37.50000 14.50000 0.0000000E+00 + -36.50000 14.50000 0.0000000E+00 + -35.50000 14.50000 0.0000000E+00 + -34.50000 14.50000 0.0000000E+00 + -33.50000 14.50000 0.0000000E+00 + -32.50000 14.50000 0.0000000E+00 + -31.50000 14.50000 0.0000000E+00 + -30.50000 14.50000 0.0000000E+00 + -29.50000 14.50000 0.0000000E+00 + -28.50000 14.50000 0.0000000E+00 + -27.50000 14.50000 0.0000000E+00 + -26.50000 14.50000 0.0000000E+00 + -25.50000 14.50000 0.0000000E+00 + -24.50000 14.50000 0.0000000E+00 + -23.50000 14.50000 0.0000000E+00 + -22.50000 14.50000 0.0000000E+00 + -21.50000 14.50000 7.8125000E-03 + -20.50000 14.50000 1.2070711E-02 + -19.50000 14.50000 0.0000000E+00 + -18.50000 14.50000 9.7018975E-04 + -17.50000 14.50000 0.0000000E+00 + -16.50000 14.50000 0.0000000E+00 + -15.50000 14.50000 0.0000000E+00 + -14.50000 14.50000 0.0000000E+00 + -13.50000 14.50000 0.0000000E+00 + -12.50000 14.50000 0.0000000E+00 + -11.50000 14.50000 0.0000000E+00 + -10.50000 14.50000 0.0000000E+00 + -9.500000 14.50000 0.0000000E+00 + -8.500000 14.50000 0.0000000E+00 + -7.500000 14.50000 0.0000000E+00 + -6.500000 14.50000 0.0000000E+00 + -5.500000 14.50000 0.0000000E+00 + -4.500000 14.50000 0.0000000E+00 + -3.500000 14.50000 0.0000000E+00 + -2.500000 14.50000 0.0000000E+00 + -1.500000 14.50000 0.0000000E+00 + -0.5000000 14.50000 0.0000000E+00 + 0.5000000 14.50000 0.0000000E+00 + 1.500000 14.50000 0.0000000E+00 + 2.500000 14.50000 0.0000000E+00 + 3.500000 14.50000 0.0000000E+00 + 4.500000 14.50000 0.0000000E+00 + 5.500000 14.50000 0.0000000E+00 + 6.500000 14.50000 0.0000000E+00 + 7.500000 14.50000 0.0000000E+00 + 8.500000 14.50000 0.0000000E+00 + 9.500000 14.50000 0.0000000E+00 + 10.50000 14.50000 0.0000000E+00 + 11.50000 14.50000 0.0000000E+00 + 12.50000 14.50000 0.0000000E+00 + 13.50000 14.50000 0.1900752 + 14.50000 14.50000 0.1770614 + 15.50000 14.50000 0.1222364 + 16.50000 14.50000 0.1222364 + 17.50000 14.50000 0.1222364 + 18.50000 14.50000 0.1222364 + 19.50000 14.50000 0.1222364 + 20.50000 14.50000 0.1222364 + 21.50000 14.50000 5.9326172E-02 + 22.50000 14.50000 3.8397551E-02 + 23.50000 14.50000 2.8356908E-02 + 24.50000 14.50000 4.3812867E-02 + 25.50000 14.50000 4.3812867E-02 + 26.50000 14.50000 6.5375075E-02 + 27.50000 14.50000 4.3812867E-02 + 28.50000 14.50000 3.8397551E-02 + 29.50000 14.50000 2.7448103E-02 + 30.50000 14.50000 7.4862301E-02 + 31.50000 14.50000 0.1156661 + 32.50000 14.50000 0.0000000E+00 + 33.50000 14.50000 0.0000000E+00 + 34.50000 14.50000 0.0000000E+00 + 35.50000 14.50000 0.0000000E+00 + 36.50000 14.50000 0.0000000E+00 + 37.50000 14.50000 0.0000000E+00 + 38.50000 14.50000 0.0000000E+00 + 39.50000 14.50000 0.0000000E+00 + 40.50000 14.50000 0.0000000E+00 + 41.50000 14.50000 0.0000000E+00 + 42.50000 14.50000 0.0000000E+00 + 43.50000 14.50000 0.0000000E+00 + 44.50000 14.50000 0.0000000E+00 + 45.50000 14.50000 0.0000000E+00 + 46.50000 14.50000 0.0000000E+00 + 47.50000 14.50000 0.0000000E+00 + 48.50000 14.50000 0.0000000E+00 + 49.50000 14.50000 0.0000000E+00 + 50.50000 14.50000 0.0000000E+00 + 51.50000 14.50000 0.0000000E+00 + 52.50000 14.50000 0.0000000E+00 + 53.50000 14.50000 0.0000000E+00 + 54.50000 14.50000 0.0000000E+00 + 55.50000 14.50000 0.0000000E+00 + 56.50000 14.50000 0.0000000E+00 + 57.50000 14.50000 0.0000000E+00 + 58.50000 14.50000 0.0000000E+00 + 59.50000 14.50000 0.0000000E+00 + 60.50000 14.50000 0.0000000E+00 + 61.50000 14.50000 0.0000000E+00 + 62.50000 14.50000 0.0000000E+00 + 63.50000 14.50000 0.0000000E+00 + 64.50000 14.50000 0.0000000E+00 + 65.50000 14.50000 0.0000000E+00 + 66.50000 14.50000 0.0000000E+00 + 67.50000 14.50000 0.0000000E+00 + 68.50000 14.50000 0.0000000E+00 + 69.50000 14.50000 0.0000000E+00 + 70.50000 14.50000 0.0000000E+00 + 71.50000 14.50000 0.0000000E+00 + 72.50000 14.50000 0.0000000E+00 + 73.50000 14.50000 0.0000000E+00 + 74.50000 14.50000 0.0000000E+00 + 75.50000 14.50000 0.0000000E+00 + 76.50000 14.50000 0.0000000E+00 + 77.50000 14.50000 0.0000000E+00 + 78.50000 14.50000 0.0000000E+00 + 79.50000 14.50000 0.0000000E+00 + 80.50000 14.50000 0.0000000E+00 + 81.50000 14.50000 0.0000000E+00 + 82.50000 14.50000 0.0000000E+00 + 83.50000 14.50000 0.0000000E+00 + 84.50000 14.50000 0.0000000E+00 + 85.50000 14.50000 0.0000000E+00 + 86.50000 14.50000 0.0000000E+00 + 87.50000 14.50000 0.0000000E+00 + 88.50000 14.50000 0.0000000E+00 + 89.50000 14.50000 0.0000000E+00 + -89.50000 15.50000 0.0000000E+00 + -88.50000 15.50000 0.0000000E+00 + -87.50000 15.50000 0.0000000E+00 + -86.50000 15.50000 0.0000000E+00 + -85.50000 15.50000 0.0000000E+00 + -84.50000 15.50000 0.0000000E+00 + -83.50000 15.50000 0.0000000E+00 + -82.50000 15.50000 0.0000000E+00 + -81.50000 15.50000 0.0000000E+00 + -80.50000 15.50000 0.0000000E+00 + -79.50000 15.50000 0.0000000E+00 + -78.50000 15.50000 0.0000000E+00 + -77.50000 15.50000 0.0000000E+00 + -76.50000 15.50000 0.0000000E+00 + -75.50000 15.50000 0.0000000E+00 + -74.50000 15.50000 0.0000000E+00 + -73.50000 15.50000 0.0000000E+00 + -72.50000 15.50000 0.0000000E+00 + -71.50000 15.50000 0.0000000E+00 + -70.50000 15.50000 0.0000000E+00 + -69.50000 15.50000 0.0000000E+00 + -68.50000 15.50000 0.0000000E+00 + -67.50000 15.50000 0.0000000E+00 + -66.50000 15.50000 0.0000000E+00 + -65.50000 15.50000 0.0000000E+00 + -64.50000 15.50000 0.0000000E+00 + -63.50000 15.50000 0.0000000E+00 + -62.50000 15.50000 0.0000000E+00 + -61.50000 15.50000 0.0000000E+00 + -60.50000 15.50000 0.0000000E+00 + -59.50000 15.50000 0.0000000E+00 + -58.50000 15.50000 0.0000000E+00 + -57.50000 15.50000 0.0000000E+00 + -56.50000 15.50000 0.0000000E+00 + -55.50000 15.50000 0.0000000E+00 + -54.50000 15.50000 0.0000000E+00 + -53.50000 15.50000 0.0000000E+00 + -52.50000 15.50000 0.0000000E+00 + -51.50000 15.50000 0.0000000E+00 + -50.50000 15.50000 0.0000000E+00 + -49.50000 15.50000 0.0000000E+00 + -48.50000 15.50000 0.0000000E+00 + -47.50000 15.50000 0.0000000E+00 + -46.50000 15.50000 0.0000000E+00 + -45.50000 15.50000 0.0000000E+00 + -44.50000 15.50000 0.0000000E+00 + -43.50000 15.50000 0.0000000E+00 + -42.50000 15.50000 0.0000000E+00 + -41.50000 15.50000 0.0000000E+00 + -40.50000 15.50000 0.0000000E+00 + -39.50000 15.50000 0.0000000E+00 + -38.50000 15.50000 0.0000000E+00 + -37.50000 15.50000 0.0000000E+00 + -36.50000 15.50000 0.0000000E+00 + -35.50000 15.50000 0.0000000E+00 + -34.50000 15.50000 0.0000000E+00 + -33.50000 15.50000 0.0000000E+00 + -32.50000 15.50000 0.0000000E+00 + -31.50000 15.50000 0.0000000E+00 + -30.50000 15.50000 0.0000000E+00 + -29.50000 15.50000 0.0000000E+00 + -28.50000 15.50000 0.0000000E+00 + -27.50000 15.50000 0.1552304 + -26.50000 15.50000 9.1661960E-02 + -25.50000 15.50000 1.2582110E-02 + -24.50000 15.50000 7.5071427E-04 + -23.50000 15.50000 7.8125000E-03 + -22.50000 15.50000 6.1911750E-03 + -21.50000 15.50000 0.0000000E+00 + -20.50000 15.50000 0.0000000E+00 + -19.50000 15.50000 9.7018975E-04 + -18.50000 15.50000 1.5625000E-03 + -17.50000 15.50000 1.5625000E-03 + -16.50000 15.50000 0.0000000E+00 + -15.50000 15.50000 0.0000000E+00 + -14.50000 15.50000 0.0000000E+00 + -13.50000 15.50000 0.0000000E+00 + -12.50000 15.50000 0.0000000E+00 + -11.50000 15.50000 0.0000000E+00 + -10.50000 15.50000 0.0000000E+00 + -9.500000 15.50000 0.0000000E+00 + -8.500000 15.50000 0.0000000E+00 + -7.500000 15.50000 0.0000000E+00 + -6.500000 15.50000 0.0000000E+00 + -5.500000 15.50000 0.0000000E+00 + -4.500000 15.50000 0.0000000E+00 + -3.500000 15.50000 0.0000000E+00 + -2.500000 15.50000 0.0000000E+00 + -1.500000 15.50000 0.0000000E+00 + -0.5000000 15.50000 0.0000000E+00 + 0.5000000 15.50000 0.0000000E+00 + 1.500000 15.50000 0.0000000E+00 + 2.500000 15.50000 0.0000000E+00 + 3.500000 15.50000 0.0000000E+00 + 4.500000 15.50000 0.0000000E+00 + 5.500000 15.50000 0.0000000E+00 + 6.500000 15.50000 0.0000000E+00 + 7.500000 15.50000 0.0000000E+00 + 8.500000 15.50000 0.0000000E+00 + 9.500000 15.50000 0.0000000E+00 + 10.50000 15.50000 0.0000000E+00 + 11.50000 15.50000 0.0000000E+00 + 12.50000 15.50000 0.0000000E+00 + 13.50000 15.50000 0.0000000E+00 + 14.50000 15.50000 0.1770614 + 15.50000 15.50000 0.1222364 + 16.50000 15.50000 8.1920013E-02 + 17.50000 15.50000 0.1222364 + 18.50000 15.50000 0.1222364 + 19.50000 15.50000 0.1222364 + 20.50000 15.50000 0.1222364 + 21.50000 15.50000 2.3841858E-02 + 22.50000 15.50000 3.8397551E-02 + 23.50000 15.50000 2.8356908E-02 + 24.50000 15.50000 4.3812867E-02 + 25.50000 15.50000 6.5375075E-02 + 26.50000 15.50000 6.5375075E-02 + 27.50000 15.50000 6.5375075E-02 + 28.50000 15.50000 3.8397551E-02 + 29.50000 15.50000 7.4862301E-02 + 30.50000 15.50000 0.1156661 + 31.50000 15.50000 0.2084341 + 32.50000 15.50000 0.0000000E+00 + 33.50000 15.50000 0.0000000E+00 + 34.50000 15.50000 0.0000000E+00 + 35.50000 15.50000 0.0000000E+00 + 36.50000 15.50000 0.0000000E+00 + 37.50000 15.50000 0.0000000E+00 + 38.50000 15.50000 0.0000000E+00 + 39.50000 15.50000 0.0000000E+00 + 40.50000 15.50000 0.0000000E+00 + 41.50000 15.50000 0.0000000E+00 + 42.50000 15.50000 0.0000000E+00 + 43.50000 15.50000 0.0000000E+00 + 44.50000 15.50000 0.0000000E+00 + 45.50000 15.50000 0.0000000E+00 + 46.50000 15.50000 0.0000000E+00 + 47.50000 15.50000 0.0000000E+00 + 48.50000 15.50000 0.0000000E+00 + 49.50000 15.50000 0.0000000E+00 + 50.50000 15.50000 0.0000000E+00 + 51.50000 15.50000 0.0000000E+00 + 52.50000 15.50000 0.0000000E+00 + 53.50000 15.50000 0.0000000E+00 + 54.50000 15.50000 0.0000000E+00 + 55.50000 15.50000 0.0000000E+00 + 56.50000 15.50000 0.0000000E+00 + 57.50000 15.50000 0.0000000E+00 + 58.50000 15.50000 0.0000000E+00 + 59.50000 15.50000 0.0000000E+00 + 60.50000 15.50000 0.0000000E+00 + 61.50000 15.50000 0.0000000E+00 + 62.50000 15.50000 0.0000000E+00 + 63.50000 15.50000 0.0000000E+00 + 64.50000 15.50000 0.0000000E+00 + 65.50000 15.50000 0.0000000E+00 + 66.50000 15.50000 0.0000000E+00 + 67.50000 15.50000 0.0000000E+00 + 68.50000 15.50000 0.0000000E+00 + 69.50000 15.50000 0.0000000E+00 + 70.50000 15.50000 0.0000000E+00 + 71.50000 15.50000 0.0000000E+00 + 72.50000 15.50000 0.0000000E+00 + 73.50000 15.50000 0.0000000E+00 + 74.50000 15.50000 0.0000000E+00 + 75.50000 15.50000 0.0000000E+00 + 76.50000 15.50000 0.0000000E+00 + 77.50000 15.50000 0.0000000E+00 + 78.50000 15.50000 0.0000000E+00 + 79.50000 15.50000 0.0000000E+00 + 80.50000 15.50000 0.0000000E+00 + 81.50000 15.50000 0.0000000E+00 + 82.50000 15.50000 0.0000000E+00 + 83.50000 15.50000 0.0000000E+00 + 84.50000 15.50000 0.0000000E+00 + 85.50000 15.50000 0.0000000E+00 + 86.50000 15.50000 0.0000000E+00 + 87.50000 15.50000 0.0000000E+00 + 88.50000 15.50000 0.0000000E+00 + 89.50000 15.50000 0.0000000E+00 + -89.50000 16.50000 0.0000000E+00 + -88.50000 16.50000 0.0000000E+00 + -87.50000 16.50000 0.0000000E+00 + -86.50000 16.50000 0.0000000E+00 + -85.50000 16.50000 0.0000000E+00 + -84.50000 16.50000 0.0000000E+00 + -83.50000 16.50000 0.0000000E+00 + -82.50000 16.50000 0.0000000E+00 + -81.50000 16.50000 0.0000000E+00 + -80.50000 16.50000 0.0000000E+00 + -79.50000 16.50000 0.0000000E+00 + -78.50000 16.50000 0.0000000E+00 + -77.50000 16.50000 0.0000000E+00 + -76.50000 16.50000 0.0000000E+00 + -75.50000 16.50000 0.0000000E+00 + -74.50000 16.50000 0.0000000E+00 + -73.50000 16.50000 0.0000000E+00 + -72.50000 16.50000 0.0000000E+00 + -71.50000 16.50000 0.0000000E+00 + -70.50000 16.50000 0.0000000E+00 + -69.50000 16.50000 0.0000000E+00 + -68.50000 16.50000 0.0000000E+00 + -67.50000 16.50000 0.0000000E+00 + -66.50000 16.50000 0.0000000E+00 + -65.50000 16.50000 0.0000000E+00 + -64.50000 16.50000 0.0000000E+00 + -63.50000 16.50000 0.0000000E+00 + -62.50000 16.50000 0.0000000E+00 + -61.50000 16.50000 0.0000000E+00 + -60.50000 16.50000 0.0000000E+00 + -59.50000 16.50000 0.0000000E+00 + -58.50000 16.50000 0.0000000E+00 + -57.50000 16.50000 0.0000000E+00 + -56.50000 16.50000 0.0000000E+00 + -55.50000 16.50000 0.0000000E+00 + -54.50000 16.50000 0.0000000E+00 + -53.50000 16.50000 0.0000000E+00 + -52.50000 16.50000 0.0000000E+00 + -51.50000 16.50000 0.0000000E+00 + -50.50000 16.50000 0.0000000E+00 + -49.50000 16.50000 0.0000000E+00 + -48.50000 16.50000 0.0000000E+00 + -47.50000 16.50000 0.0000000E+00 + -46.50000 16.50000 0.0000000E+00 + -45.50000 16.50000 0.0000000E+00 + -44.50000 16.50000 0.0000000E+00 + -43.50000 16.50000 0.0000000E+00 + -42.50000 16.50000 0.0000000E+00 + -41.50000 16.50000 0.0000000E+00 + -40.50000 16.50000 0.0000000E+00 + -39.50000 16.50000 0.0000000E+00 + -38.50000 16.50000 0.0000000E+00 + -37.50000 16.50000 0.0000000E+00 + -36.50000 16.50000 0.0000000E+00 + -35.50000 16.50000 0.0000000E+00 + -34.50000 16.50000 0.0000000E+00 + -33.50000 16.50000 0.0000000E+00 + -32.50000 16.50000 0.0000000E+00 + -31.50000 16.50000 0.0000000E+00 + -30.50000 16.50000 0.0000000E+00 + -29.50000 16.50000 0.0000000E+00 + -28.50000 16.50000 0.1552304 + -27.50000 16.50000 5.7288725E-04 + -26.50000 16.50000 7.5441945E-05 + -25.50000 16.50000 9.9347435E-06 + -24.50000 16.50000 3.0318430E-05 + -23.50000 16.50000 0.0000000E+00 + -22.50000 16.50000 0.0000000E+00 + -21.50000 16.50000 0.0000000E+00 + -20.50000 16.50000 0.0000000E+00 + -19.50000 16.50000 0.0000000E+00 + -18.50000 16.50000 1.5625000E-03 + -17.50000 16.50000 0.0000000E+00 + -16.50000 16.50000 0.0000000E+00 + -15.50000 16.50000 0.0000000E+00 + -14.50000 16.50000 0.0000000E+00 + -13.50000 16.50000 0.0000000E+00 + -12.50000 16.50000 0.0000000E+00 + -11.50000 16.50000 0.0000000E+00 + -10.50000 16.50000 0.0000000E+00 + -9.500000 16.50000 0.0000000E+00 + -8.500000 16.50000 0.0000000E+00 + -7.500000 16.50000 0.0000000E+00 + -6.500000 16.50000 0.0000000E+00 + -5.500000 16.50000 0.0000000E+00 + -4.500000 16.50000 0.0000000E+00 + -3.500000 16.50000 0.0000000E+00 + -2.500000 16.50000 0.0000000E+00 + -1.500000 16.50000 0.0000000E+00 + -0.5000000 16.50000 0.0000000E+00 + 0.5000000 16.50000 0.0000000E+00 + 1.500000 16.50000 0.0000000E+00 + 2.500000 16.50000 0.0000000E+00 + 3.500000 16.50000 0.0000000E+00 + 4.500000 16.50000 0.0000000E+00 + 5.500000 16.50000 0.0000000E+00 + 6.500000 16.50000 0.0000000E+00 + 7.500000 16.50000 0.0000000E+00 + 8.500000 16.50000 0.0000000E+00 + 9.500000 16.50000 0.0000000E+00 + 10.50000 16.50000 0.0000000E+00 + 11.50000 16.50000 0.0000000E+00 + 12.50000 16.50000 0.0000000E+00 + 13.50000 16.50000 0.0000000E+00 + 14.50000 16.50000 0.1222364 + 15.50000 16.50000 0.1222364 + 16.50000 16.50000 8.1920013E-02 + 17.50000 16.50000 0.1222364 + 18.50000 16.50000 0.1222364 + 19.50000 16.50000 5.3020909E-02 + 20.50000 16.50000 1.9440001E-02 + 21.50000 16.50000 4.0071011E-03 + 22.50000 16.50000 2.3841858E-02 + 23.50000 16.50000 2.8356908E-02 + 24.50000 16.50000 4.3812867E-02 + 25.50000 16.50000 6.5375075E-02 + 26.50000 16.50000 6.5375075E-02 + 27.50000 16.50000 6.5375075E-02 + 28.50000 16.50000 3.8397551E-02 + 29.50000 16.50000 0.1156661 + 30.50000 16.50000 0.1725904 + 31.50000 16.50000 0.0000000E+00 + 32.50000 16.50000 0.0000000E+00 + 33.50000 16.50000 0.0000000E+00 + 34.50000 16.50000 0.0000000E+00 + 35.50000 16.50000 0.0000000E+00 + 36.50000 16.50000 0.0000000E+00 + 37.50000 16.50000 0.0000000E+00 + 38.50000 16.50000 0.0000000E+00 + 39.50000 16.50000 0.0000000E+00 + 40.50000 16.50000 0.0000000E+00 + 41.50000 16.50000 0.0000000E+00 + 42.50000 16.50000 0.0000000E+00 + 43.50000 16.50000 0.0000000E+00 + 44.50000 16.50000 0.0000000E+00 + 45.50000 16.50000 0.0000000E+00 + 46.50000 16.50000 0.0000000E+00 + 47.50000 16.50000 0.0000000E+00 + 48.50000 16.50000 0.0000000E+00 + 49.50000 16.50000 0.0000000E+00 + 50.50000 16.50000 0.0000000E+00 + 51.50000 16.50000 0.0000000E+00 + 52.50000 16.50000 0.0000000E+00 + 53.50000 16.50000 0.0000000E+00 + 54.50000 16.50000 0.0000000E+00 + 55.50000 16.50000 0.0000000E+00 + 56.50000 16.50000 0.0000000E+00 + 57.50000 16.50000 0.0000000E+00 + 58.50000 16.50000 0.0000000E+00 + 59.50000 16.50000 0.0000000E+00 + 60.50000 16.50000 0.0000000E+00 + 61.50000 16.50000 0.0000000E+00 + 62.50000 16.50000 0.0000000E+00 + 63.50000 16.50000 0.0000000E+00 + 64.50000 16.50000 0.0000000E+00 + 65.50000 16.50000 0.0000000E+00 + 66.50000 16.50000 0.0000000E+00 + 67.50000 16.50000 0.0000000E+00 + 68.50000 16.50000 0.0000000E+00 + 69.50000 16.50000 0.0000000E+00 + 70.50000 16.50000 0.0000000E+00 + 71.50000 16.50000 0.0000000E+00 + 72.50000 16.50000 0.0000000E+00 + 73.50000 16.50000 0.0000000E+00 + 74.50000 16.50000 0.0000000E+00 + 75.50000 16.50000 0.0000000E+00 + 76.50000 16.50000 0.0000000E+00 + 77.50000 16.50000 0.0000000E+00 + 78.50000 16.50000 0.0000000E+00 + 79.50000 16.50000 0.0000000E+00 + 80.50000 16.50000 0.0000000E+00 + 81.50000 16.50000 0.0000000E+00 + 82.50000 16.50000 0.0000000E+00 + 83.50000 16.50000 0.0000000E+00 + 84.50000 16.50000 0.0000000E+00 + 85.50000 16.50000 0.0000000E+00 + 86.50000 16.50000 0.0000000E+00 + 87.50000 16.50000 0.0000000E+00 + 88.50000 16.50000 0.0000000E+00 + 89.50000 16.50000 0.0000000E+00 + -89.50000 17.50000 0.0000000E+00 + -88.50000 17.50000 0.0000000E+00 + -87.50000 17.50000 0.0000000E+00 + -86.50000 17.50000 0.0000000E+00 + -85.50000 17.50000 0.0000000E+00 + -84.50000 17.50000 0.0000000E+00 + -83.50000 17.50000 0.0000000E+00 + -82.50000 17.50000 0.0000000E+00 + -81.50000 17.50000 0.0000000E+00 + -80.50000 17.50000 0.0000000E+00 + -79.50000 17.50000 0.0000000E+00 + -78.50000 17.50000 0.0000000E+00 + -77.50000 17.50000 0.0000000E+00 + -76.50000 17.50000 0.0000000E+00 + -75.50000 17.50000 0.0000000E+00 + -74.50000 17.50000 0.0000000E+00 + -73.50000 17.50000 0.0000000E+00 + -72.50000 17.50000 0.0000000E+00 + -71.50000 17.50000 0.0000000E+00 + -70.50000 17.50000 0.0000000E+00 + -69.50000 17.50000 0.0000000E+00 + -68.50000 17.50000 0.0000000E+00 + -67.50000 17.50000 0.0000000E+00 + -66.50000 17.50000 0.0000000E+00 + -65.50000 17.50000 0.0000000E+00 + -64.50000 17.50000 0.0000000E+00 + -63.50000 17.50000 0.0000000E+00 + -62.50000 17.50000 0.0000000E+00 + -61.50000 17.50000 0.0000000E+00 + -60.50000 17.50000 0.0000000E+00 + -59.50000 17.50000 0.0000000E+00 + -58.50000 17.50000 0.0000000E+00 + -57.50000 17.50000 0.0000000E+00 + -56.50000 17.50000 0.0000000E+00 + -55.50000 17.50000 0.0000000E+00 + -54.50000 17.50000 0.0000000E+00 + -53.50000 17.50000 0.0000000E+00 + -52.50000 17.50000 0.0000000E+00 + -51.50000 17.50000 0.0000000E+00 + -50.50000 17.50000 0.0000000E+00 + -49.50000 17.50000 0.0000000E+00 + -48.50000 17.50000 0.0000000E+00 + -47.50000 17.50000 0.0000000E+00 + -46.50000 17.50000 0.0000000E+00 + -45.50000 17.50000 0.0000000E+00 + -44.50000 17.50000 0.0000000E+00 + -43.50000 17.50000 0.0000000E+00 + -42.50000 17.50000 0.0000000E+00 + -41.50000 17.50000 0.0000000E+00 + -40.50000 17.50000 0.0000000E+00 + -39.50000 17.50000 0.0000000E+00 + -38.50000 17.50000 0.0000000E+00 + -37.50000 17.50000 0.0000000E+00 + -36.50000 17.50000 0.0000000E+00 + -35.50000 17.50000 0.0000000E+00 + -34.50000 17.50000 0.0000000E+00 + -33.50000 17.50000 0.0000000E+00 + -32.50000 17.50000 0.0000000E+00 + -31.50000 17.50000 0.0000000E+00 + -30.50000 17.50000 1.2837294E-02 + -29.50000 17.50000 1.3775303E-02 + -28.50000 17.50000 0.1201143 + -27.50000 17.50000 1.2070711E-02 + -26.50000 17.50000 5.7288725E-04 + -25.50000 17.50000 1.2679528E-05 + -24.50000 17.50000 3.0318430E-05 + -23.50000 17.50000 7.5441945E-05 + -22.50000 17.50000 0.0000000E+00 + -21.50000 17.50000 0.0000000E+00 + -20.50000 17.50000 0.0000000E+00 + -19.50000 17.50000 0.0000000E+00 + -18.50000 17.50000 0.0000000E+00 + -17.50000 17.50000 0.0000000E+00 + -16.50000 17.50000 0.0000000E+00 + -15.50000 17.50000 0.0000000E+00 + -14.50000 17.50000 0.0000000E+00 + -13.50000 17.50000 0.0000000E+00 + -12.50000 17.50000 0.0000000E+00 + -11.50000 17.50000 0.0000000E+00 + -10.50000 17.50000 0.0000000E+00 + -9.500000 17.50000 0.0000000E+00 + -8.500000 17.50000 0.0000000E+00 + -7.500000 17.50000 0.0000000E+00 + -6.500000 17.50000 0.0000000E+00 + -5.500000 17.50000 0.0000000E+00 + -4.500000 17.50000 0.0000000E+00 + -3.500000 17.50000 0.0000000E+00 + -2.500000 17.50000 0.0000000E+00 + -1.500000 17.50000 0.0000000E+00 + -0.5000000 17.50000 0.0000000E+00 + 0.5000000 17.50000 0.0000000E+00 + 1.500000 17.50000 0.0000000E+00 + 2.500000 17.50000 0.0000000E+00 + 3.500000 17.50000 0.0000000E+00 + 4.500000 17.50000 0.0000000E+00 + 5.500000 17.50000 0.0000000E+00 + 6.500000 17.50000 0.0000000E+00 + 7.500000 17.50000 0.0000000E+00 + 8.500000 17.50000 0.0000000E+00 + 9.500000 17.50000 0.0000000E+00 + 10.50000 17.50000 0.0000000E+00 + 11.50000 17.50000 0.0000000E+00 + 12.50000 17.50000 0.0000000E+00 + 13.50000 17.50000 0.0000000E+00 + 14.50000 17.50000 0.1222364 + 15.50000 17.50000 0.1222364 + 16.50000 17.50000 8.1920013E-02 + 17.50000 17.50000 8.1920013E-02 + 18.50000 17.50000 0.1222364 + 19.50000 17.50000 3.2921817E-02 + 20.50000 17.50000 1.0534983E-05 + 21.50000 17.50000 7.4505806E-04 + 22.50000 17.50000 2.3841858E-02 + 23.50000 17.50000 2.8356908E-02 + 24.50000 17.50000 4.3812867E-02 + 25.50000 17.50000 6.5375075E-02 + 26.50000 17.50000 9.4696872E-02 + 27.50000 17.50000 4.3812867E-02 + 28.50000 17.50000 8.8523149E-02 + 29.50000 17.50000 6.5375075E-02 + 30.50000 17.50000 0.1846271 + 31.50000 17.50000 0.0000000E+00 + 32.50000 17.50000 0.0000000E+00 + 33.50000 17.50000 0.0000000E+00 + 34.50000 17.50000 0.0000000E+00 + 35.50000 17.50000 0.0000000E+00 + 36.50000 17.50000 0.0000000E+00 + 37.50000 17.50000 0.0000000E+00 + 38.50000 17.50000 0.0000000E+00 + 39.50000 17.50000 0.0000000E+00 + 40.50000 17.50000 0.0000000E+00 + 41.50000 17.50000 0.0000000E+00 + 42.50000 17.50000 0.0000000E+00 + 43.50000 17.50000 0.0000000E+00 + 44.50000 17.50000 0.0000000E+00 + 45.50000 17.50000 0.0000000E+00 + 46.50000 17.50000 0.0000000E+00 + 47.50000 17.50000 0.0000000E+00 + 48.50000 17.50000 0.0000000E+00 + 49.50000 17.50000 0.0000000E+00 + 50.50000 17.50000 0.0000000E+00 + 51.50000 17.50000 0.0000000E+00 + 52.50000 17.50000 0.0000000E+00 + 53.50000 17.50000 0.0000000E+00 + 54.50000 17.50000 0.0000000E+00 + 55.50000 17.50000 0.0000000E+00 + 56.50000 17.50000 0.0000000E+00 + 57.50000 17.50000 0.0000000E+00 + 58.50000 17.50000 0.0000000E+00 + 59.50000 17.50000 0.0000000E+00 + 60.50000 17.50000 0.0000000E+00 + 61.50000 17.50000 0.0000000E+00 + 62.50000 17.50000 0.0000000E+00 + 63.50000 17.50000 0.0000000E+00 + 64.50000 17.50000 0.0000000E+00 + 65.50000 17.50000 0.0000000E+00 + 66.50000 17.50000 0.0000000E+00 + 67.50000 17.50000 0.0000000E+00 + 68.50000 17.50000 0.0000000E+00 + 69.50000 17.50000 0.0000000E+00 + 70.50000 17.50000 0.0000000E+00 + 71.50000 17.50000 0.0000000E+00 + 72.50000 17.50000 0.0000000E+00 + 73.50000 17.50000 0.0000000E+00 + 74.50000 17.50000 0.0000000E+00 + 75.50000 17.50000 0.0000000E+00 + 76.50000 17.50000 0.0000000E+00 + 77.50000 17.50000 0.0000000E+00 + 78.50000 17.50000 0.0000000E+00 + 79.50000 17.50000 0.0000000E+00 + 80.50000 17.50000 0.0000000E+00 + 81.50000 17.50000 0.0000000E+00 + 82.50000 17.50000 0.0000000E+00 + 83.50000 17.50000 0.0000000E+00 + 84.50000 17.50000 0.0000000E+00 + 85.50000 17.50000 0.0000000E+00 + 86.50000 17.50000 0.0000000E+00 + 87.50000 17.50000 0.0000000E+00 + 88.50000 17.50000 0.0000000E+00 + 89.50000 17.50000 0.0000000E+00 + -89.50000 18.50000 0.0000000E+00 + -88.50000 18.50000 0.0000000E+00 + -87.50000 18.50000 0.0000000E+00 + -86.50000 18.50000 0.0000000E+00 + -85.50000 18.50000 0.0000000E+00 + -84.50000 18.50000 0.0000000E+00 + -83.50000 18.50000 0.0000000E+00 + -82.50000 18.50000 0.0000000E+00 + -81.50000 18.50000 0.0000000E+00 + -80.50000 18.50000 0.0000000E+00 + -79.50000 18.50000 0.0000000E+00 + -78.50000 18.50000 0.0000000E+00 + -77.50000 18.50000 0.0000000E+00 + -76.50000 18.50000 0.0000000E+00 + -75.50000 18.50000 0.0000000E+00 + -74.50000 18.50000 0.0000000E+00 + -73.50000 18.50000 0.0000000E+00 + -72.50000 18.50000 0.0000000E+00 + -71.50000 18.50000 0.0000000E+00 + -70.50000 18.50000 0.0000000E+00 + -69.50000 18.50000 0.0000000E+00 + -68.50000 18.50000 0.0000000E+00 + -67.50000 18.50000 0.0000000E+00 + -66.50000 18.50000 0.0000000E+00 + -65.50000 18.50000 0.0000000E+00 + -64.50000 18.50000 0.0000000E+00 + -63.50000 18.50000 0.0000000E+00 + -62.50000 18.50000 0.0000000E+00 + -61.50000 18.50000 0.0000000E+00 + -60.50000 18.50000 0.0000000E+00 + -59.50000 18.50000 0.0000000E+00 + -58.50000 18.50000 0.0000000E+00 + -57.50000 18.50000 0.0000000E+00 + -56.50000 18.50000 0.0000000E+00 + -55.50000 18.50000 0.0000000E+00 + -54.50000 18.50000 0.0000000E+00 + -53.50000 18.50000 0.0000000E+00 + -52.50000 18.50000 0.0000000E+00 + -51.50000 18.50000 0.0000000E+00 + -50.50000 18.50000 0.0000000E+00 + -49.50000 18.50000 0.0000000E+00 + -48.50000 18.50000 0.0000000E+00 + -47.50000 18.50000 0.0000000E+00 + -46.50000 18.50000 0.0000000E+00 + -45.50000 18.50000 0.0000000E+00 + -44.50000 18.50000 0.0000000E+00 + -43.50000 18.50000 0.0000000E+00 + -42.50000 18.50000 0.0000000E+00 + -41.50000 18.50000 0.0000000E+00 + -40.50000 18.50000 0.0000000E+00 + -39.50000 18.50000 0.0000000E+00 + -38.50000 18.50000 0.0000000E+00 + -37.50000 18.50000 0.0000000E+00 + -36.50000 18.50000 0.0000000E+00 + -35.50000 18.50000 0.0000000E+00 + -34.50000 18.50000 0.0000000E+00 + -33.50000 18.50000 0.0000000E+00 + -32.50000 18.50000 0.0000000E+00 + -31.50000 18.50000 2.7746452E-02 + -30.50000 18.50000 3.0463503E-03 + -29.50000 18.50000 1.8011225E-02 + -28.50000 18.50000 3.1093292E-02 + -27.50000 18.50000 1.5895589E-03 + -26.50000 18.50000 8.1529876E-04 + -25.50000 18.50000 1.6305975E-04 + -24.50000 18.50000 1.6305975E-04 + -23.50000 18.50000 0.0000000E+00 + -22.50000 18.50000 0.0000000E+00 + -21.50000 18.50000 0.0000000E+00 + -20.50000 18.50000 0.0000000E+00 + -19.50000 18.50000 0.0000000E+00 + -18.50000 18.50000 0.0000000E+00 + -17.50000 18.50000 0.0000000E+00 + -16.50000 18.50000 0.0000000E+00 + -15.50000 18.50000 0.0000000E+00 + -14.50000 18.50000 0.0000000E+00 + -13.50000 18.50000 0.0000000E+00 + -12.50000 18.50000 0.0000000E+00 + -11.50000 18.50000 0.0000000E+00 + -10.50000 18.50000 0.0000000E+00 + -9.500000 18.50000 0.0000000E+00 + -8.500000 18.50000 0.0000000E+00 + -7.500000 18.50000 0.0000000E+00 + -6.500000 18.50000 0.0000000E+00 + -5.500000 18.50000 0.0000000E+00 + -4.500000 18.50000 0.0000000E+00 + -3.500000 18.50000 0.0000000E+00 + -2.500000 18.50000 0.0000000E+00 + -1.500000 18.50000 0.0000000E+00 + -0.5000000 18.50000 0.0000000E+00 + 0.5000000 18.50000 0.0000000E+00 + 1.500000 18.50000 0.0000000E+00 + 2.500000 18.50000 0.0000000E+00 + 3.500000 18.50000 0.0000000E+00 + 4.500000 18.50000 0.0000000E+00 + 5.500000 18.50000 0.0000000E+00 + 6.500000 18.50000 0.0000000E+00 + 7.500000 18.50000 0.0000000E+00 + 8.500000 18.50000 0.0000000E+00 + 9.500000 18.50000 0.0000000E+00 + 10.50000 18.50000 0.0000000E+00 + 11.50000 18.50000 0.0000000E+00 + 12.50000 18.50000 0.0000000E+00 + 13.50000 18.50000 0.0000000E+00 + 14.50000 18.50000 0.0000000E+00 + 15.50000 18.50000 0.1222364 + 16.50000 18.50000 8.1920013E-02 + 17.50000 18.50000 8.1920013E-02 + 18.50000 18.50000 0.1222364 + 19.50000 18.50000 1.0787822E-02 + 20.50000 18.50000 0.0000000E+00 + 21.50000 18.50000 2.3841858E-07 + 22.50000 18.50000 2.3841858E-02 + 23.50000 18.50000 2.8356908E-02 + 24.50000 18.50000 6.5375075E-02 + 25.50000 18.50000 9.4696872E-02 + 26.50000 18.50000 0.1128588 + 27.50000 18.50000 4.3812867E-02 + 28.50000 18.50000 0.1282272 + 29.50000 18.50000 0.1337063 + 30.50000 18.50000 0.0000000E+00 + 31.50000 18.50000 0.0000000E+00 + 32.50000 18.50000 0.0000000E+00 + 33.50000 18.50000 0.0000000E+00 + 34.50000 18.50000 0.0000000E+00 + 35.50000 18.50000 0.0000000E+00 + 36.50000 18.50000 0.0000000E+00 + 37.50000 18.50000 0.0000000E+00 + 38.50000 18.50000 0.0000000E+00 + 39.50000 18.50000 0.0000000E+00 + 40.50000 18.50000 0.0000000E+00 + 41.50000 18.50000 0.0000000E+00 + 42.50000 18.50000 0.0000000E+00 + 43.50000 18.50000 0.0000000E+00 + 44.50000 18.50000 0.0000000E+00 + 45.50000 18.50000 0.0000000E+00 + 46.50000 18.50000 0.0000000E+00 + 47.50000 18.50000 0.0000000E+00 + 48.50000 18.50000 0.0000000E+00 + 49.50000 18.50000 0.0000000E+00 + 50.50000 18.50000 0.0000000E+00 + 51.50000 18.50000 0.0000000E+00 + 52.50000 18.50000 0.0000000E+00 + 53.50000 18.50000 0.0000000E+00 + 54.50000 18.50000 0.0000000E+00 + 55.50000 18.50000 0.0000000E+00 + 56.50000 18.50000 0.0000000E+00 + 57.50000 18.50000 0.0000000E+00 + 58.50000 18.50000 0.0000000E+00 + 59.50000 18.50000 0.0000000E+00 + 60.50000 18.50000 0.0000000E+00 + 61.50000 18.50000 0.0000000E+00 + 62.50000 18.50000 0.0000000E+00 + 63.50000 18.50000 0.0000000E+00 + 64.50000 18.50000 0.0000000E+00 + 65.50000 18.50000 0.0000000E+00 + 66.50000 18.50000 0.0000000E+00 + 67.50000 18.50000 0.0000000E+00 + 68.50000 18.50000 0.0000000E+00 + 69.50000 18.50000 0.0000000E+00 + 70.50000 18.50000 0.0000000E+00 + 71.50000 18.50000 0.0000000E+00 + 72.50000 18.50000 0.0000000E+00 + 73.50000 18.50000 0.0000000E+00 + 74.50000 18.50000 0.0000000E+00 + 75.50000 18.50000 0.0000000E+00 + 76.50000 18.50000 0.0000000E+00 + 77.50000 18.50000 0.0000000E+00 + 78.50000 18.50000 0.0000000E+00 + 79.50000 18.50000 0.0000000E+00 + 80.50000 18.50000 0.0000000E+00 + 81.50000 18.50000 0.0000000E+00 + 82.50000 18.50000 0.0000000E+00 + 83.50000 18.50000 0.0000000E+00 + 84.50000 18.50000 0.0000000E+00 + 85.50000 18.50000 0.0000000E+00 + 86.50000 18.50000 0.0000000E+00 + 87.50000 18.50000 0.0000000E+00 + 88.50000 18.50000 0.0000000E+00 + 89.50000 18.50000 0.0000000E+00 + -89.50000 19.50000 0.0000000E+00 + -88.50000 19.50000 0.0000000E+00 + -87.50000 19.50000 0.0000000E+00 + -86.50000 19.50000 0.0000000E+00 + -85.50000 19.50000 0.0000000E+00 + -84.50000 19.50000 0.0000000E+00 + -83.50000 19.50000 0.0000000E+00 + -82.50000 19.50000 0.0000000E+00 + -81.50000 19.50000 0.0000000E+00 + -80.50000 19.50000 0.0000000E+00 + -79.50000 19.50000 0.0000000E+00 + -78.50000 19.50000 0.0000000E+00 + -77.50000 19.50000 0.0000000E+00 + -76.50000 19.50000 0.0000000E+00 + -75.50000 19.50000 0.0000000E+00 + -74.50000 19.50000 0.0000000E+00 + -73.50000 19.50000 0.0000000E+00 + -72.50000 19.50000 0.0000000E+00 + -71.50000 19.50000 0.0000000E+00 + -70.50000 19.50000 0.0000000E+00 + -69.50000 19.50000 0.0000000E+00 + -68.50000 19.50000 0.0000000E+00 + -67.50000 19.50000 0.0000000E+00 + -66.50000 19.50000 0.0000000E+00 + -65.50000 19.50000 0.0000000E+00 + -64.50000 19.50000 0.0000000E+00 + -63.50000 19.50000 0.0000000E+00 + -62.50000 19.50000 0.0000000E+00 + -61.50000 19.50000 0.0000000E+00 + -60.50000 19.50000 0.0000000E+00 + -59.50000 19.50000 0.0000000E+00 + -58.50000 19.50000 0.0000000E+00 + -57.50000 19.50000 0.0000000E+00 + -56.50000 19.50000 0.0000000E+00 + -55.50000 19.50000 0.0000000E+00 + -54.50000 19.50000 0.0000000E+00 + -53.50000 19.50000 0.0000000E+00 + -52.50000 19.50000 0.0000000E+00 + -51.50000 19.50000 0.0000000E+00 + -50.50000 19.50000 0.0000000E+00 + -49.50000 19.50000 0.0000000E+00 + -48.50000 19.50000 0.0000000E+00 + -47.50000 19.50000 0.0000000E+00 + -46.50000 19.50000 0.0000000E+00 + -45.50000 19.50000 0.0000000E+00 + -44.50000 19.50000 0.0000000E+00 + -43.50000 19.50000 0.0000000E+00 + -42.50000 19.50000 0.0000000E+00 + -41.50000 19.50000 0.0000000E+00 + -40.50000 19.50000 0.0000000E+00 + -39.50000 19.50000 0.0000000E+00 + -38.50000 19.50000 0.0000000E+00 + -37.50000 19.50000 0.0000000E+00 + -36.50000 19.50000 0.0000000E+00 + -35.50000 19.50000 0.0000000E+00 + -34.50000 19.50000 0.0000000E+00 + -33.50000 19.50000 0.0000000E+00 + -32.50000 19.50000 2.6461079E-03 + -31.50000 19.50000 2.6461079E-03 + -30.50000 19.50000 2.2727957E-02 + -29.50000 19.50000 1.2070711E-02 + -28.50000 19.50000 8.6799059E-03 + -27.50000 19.50000 2.4141422E-03 + -26.50000 19.50000 1.2382350E-03 + -25.50000 19.50000 1.5625000E-03 + -24.50000 19.50000 2.4141422E-03 + -23.50000 19.50000 1.5625000E-03 + -22.50000 19.50000 0.0000000E+00 + -21.50000 19.50000 0.0000000E+00 + -20.50000 19.50000 0.0000000E+00 + -19.50000 19.50000 0.0000000E+00 + -18.50000 19.50000 0.0000000E+00 + -17.50000 19.50000 0.0000000E+00 + -16.50000 19.50000 0.0000000E+00 + -15.50000 19.50000 0.0000000E+00 + -14.50000 19.50000 0.0000000E+00 + -13.50000 19.50000 0.0000000E+00 + -12.50000 19.50000 0.0000000E+00 + -11.50000 19.50000 0.0000000E+00 + -10.50000 19.50000 0.0000000E+00 + -9.500000 19.50000 0.0000000E+00 + -8.500000 19.50000 0.0000000E+00 + -7.500000 19.50000 0.0000000E+00 + -6.500000 19.50000 0.0000000E+00 + -5.500000 19.50000 0.0000000E+00 + -4.500000 19.50000 0.0000000E+00 + -3.500000 19.50000 0.0000000E+00 + -2.500000 19.50000 0.0000000E+00 + -1.500000 19.50000 0.0000000E+00 + -0.5000000 19.50000 0.0000000E+00 + 0.5000000 19.50000 0.0000000E+00 + 1.500000 19.50000 0.0000000E+00 + 2.500000 19.50000 0.0000000E+00 + 3.500000 19.50000 0.0000000E+00 + 4.500000 19.50000 0.0000000E+00 + 5.500000 19.50000 0.0000000E+00 + 6.500000 19.50000 0.0000000E+00 + 7.500000 19.50000 0.0000000E+00 + 8.500000 19.50000 0.0000000E+00 + 9.500000 19.50000 0.0000000E+00 + 10.50000 19.50000 0.0000000E+00 + 11.50000 19.50000 0.0000000E+00 + 12.50000 19.50000 0.0000000E+00 + 13.50000 19.50000 0.0000000E+00 + 14.50000 19.50000 2.4447279E-02 + 15.50000 19.50000 2.4447279E-02 + 16.50000 19.50000 0.1222364 + 17.50000 19.50000 0.1222364 + 18.50000 19.50000 0.1222364 + 19.50000 19.50000 8.1920013E-02 + 20.50000 19.50000 1.9440001E-02 + 21.50000 19.50000 1.4078379E-02 + 22.50000 19.50000 1.4078379E-02 + 23.50000 19.50000 2.8356908E-02 + 24.50000 19.50000 6.5375075E-02 + 25.50000 19.50000 0.1337063 + 26.50000 19.50000 0.1337063 + 27.50000 19.50000 0.1128588 + 28.50000 19.50000 0.1282272 + 29.50000 19.50000 0.1282272 + 30.50000 19.50000 0.0000000E+00 + 31.50000 19.50000 0.0000000E+00 + 32.50000 19.50000 0.0000000E+00 + 33.50000 19.50000 0.0000000E+00 + 34.50000 19.50000 0.0000000E+00 + 35.50000 19.50000 0.0000000E+00 + 36.50000 19.50000 0.0000000E+00 + 37.50000 19.50000 0.0000000E+00 + 38.50000 19.50000 0.0000000E+00 + 39.50000 19.50000 0.0000000E+00 + 40.50000 19.50000 0.0000000E+00 + 41.50000 19.50000 0.0000000E+00 + 42.50000 19.50000 0.0000000E+00 + 43.50000 19.50000 0.0000000E+00 + 44.50000 19.50000 0.0000000E+00 + 45.50000 19.50000 0.0000000E+00 + 46.50000 19.50000 0.0000000E+00 + 47.50000 19.50000 0.0000000E+00 + 48.50000 19.50000 0.0000000E+00 + 49.50000 19.50000 0.0000000E+00 + 50.50000 19.50000 0.0000000E+00 + 51.50000 19.50000 0.0000000E+00 + 52.50000 19.50000 0.0000000E+00 + 53.50000 19.50000 0.0000000E+00 + 54.50000 19.50000 0.0000000E+00 + 55.50000 19.50000 0.0000000E+00 + 56.50000 19.50000 0.0000000E+00 + 57.50000 19.50000 0.0000000E+00 + 58.50000 19.50000 0.0000000E+00 + 59.50000 19.50000 0.0000000E+00 + 60.50000 19.50000 0.0000000E+00 + 61.50000 19.50000 0.0000000E+00 + 62.50000 19.50000 0.0000000E+00 + 63.50000 19.50000 0.0000000E+00 + 64.50000 19.50000 0.0000000E+00 + 65.50000 19.50000 0.0000000E+00 + 66.50000 19.50000 0.0000000E+00 + 67.50000 19.50000 0.0000000E+00 + 68.50000 19.50000 0.0000000E+00 + 69.50000 19.50000 0.0000000E+00 + 70.50000 19.50000 0.0000000E+00 + 71.50000 19.50000 0.0000000E+00 + 72.50000 19.50000 0.0000000E+00 + 73.50000 19.50000 0.0000000E+00 + 74.50000 19.50000 0.0000000E+00 + 75.50000 19.50000 0.0000000E+00 + 76.50000 19.50000 0.0000000E+00 + 77.50000 19.50000 0.0000000E+00 + 78.50000 19.50000 0.0000000E+00 + 79.50000 19.50000 0.0000000E+00 + 80.50000 19.50000 0.0000000E+00 + 81.50000 19.50000 0.0000000E+00 + 82.50000 19.50000 0.0000000E+00 + 83.50000 19.50000 0.0000000E+00 + 84.50000 19.50000 0.0000000E+00 + 85.50000 19.50000 0.0000000E+00 + 86.50000 19.50000 0.0000000E+00 + 87.50000 19.50000 0.0000000E+00 + 88.50000 19.50000 0.0000000E+00 + 89.50000 19.50000 0.0000000E+00 + -89.50000 20.50000 0.0000000E+00 + -88.50000 20.50000 0.0000000E+00 + -87.50000 20.50000 0.0000000E+00 + -86.50000 20.50000 0.0000000E+00 + -85.50000 20.50000 0.0000000E+00 + -84.50000 20.50000 0.0000000E+00 + -83.50000 20.50000 0.0000000E+00 + -82.50000 20.50000 0.0000000E+00 + -81.50000 20.50000 0.0000000E+00 + -80.50000 20.50000 0.0000000E+00 + -79.50000 20.50000 0.0000000E+00 + -78.50000 20.50000 0.0000000E+00 + -77.50000 20.50000 0.0000000E+00 + -76.50000 20.50000 0.0000000E+00 + -75.50000 20.50000 0.0000000E+00 + -74.50000 20.50000 0.0000000E+00 + -73.50000 20.50000 0.0000000E+00 + -72.50000 20.50000 0.0000000E+00 + -71.50000 20.50000 0.0000000E+00 + -70.50000 20.50000 0.0000000E+00 + -69.50000 20.50000 0.0000000E+00 + -68.50000 20.50000 0.0000000E+00 + -67.50000 20.50000 0.0000000E+00 + -66.50000 20.50000 0.0000000E+00 + -65.50000 20.50000 0.0000000E+00 + -64.50000 20.50000 0.0000000E+00 + -63.50000 20.50000 0.0000000E+00 + -62.50000 20.50000 0.0000000E+00 + -61.50000 20.50000 0.0000000E+00 + -60.50000 20.50000 0.0000000E+00 + -59.50000 20.50000 0.0000000E+00 + -58.50000 20.50000 0.0000000E+00 + -57.50000 20.50000 0.0000000E+00 + -56.50000 20.50000 0.0000000E+00 + -55.50000 20.50000 0.0000000E+00 + -54.50000 20.50000 0.0000000E+00 + -53.50000 20.50000 0.0000000E+00 + -52.50000 20.50000 0.0000000E+00 + -51.50000 20.50000 0.0000000E+00 + -50.50000 20.50000 0.0000000E+00 + -49.50000 20.50000 0.0000000E+00 + -48.50000 20.50000 0.0000000E+00 + -47.50000 20.50000 0.0000000E+00 + -46.50000 20.50000 0.0000000E+00 + -45.50000 20.50000 0.0000000E+00 + -44.50000 20.50000 0.0000000E+00 + -43.50000 20.50000 0.0000000E+00 + -42.50000 20.50000 0.0000000E+00 + -41.50000 20.50000 0.0000000E+00 + -40.50000 20.50000 0.0000000E+00 + -39.50000 20.50000 0.0000000E+00 + -38.50000 20.50000 0.0000000E+00 + -37.50000 20.50000 0.0000000E+00 + -36.50000 20.50000 0.0000000E+00 + -35.50000 20.50000 0.0000000E+00 + -34.50000 20.50000 0.0000000E+00 + -33.50000 20.50000 2.9448147E-03 + -32.50000 20.50000 1.0237785E-03 + -31.50000 20.50000 2.7377112E-03 + -30.50000 20.50000 2.2727957E-02 + -29.50000 20.50000 2.6089560E-02 + -28.50000 20.50000 7.3673772E-03 + -27.50000 20.50000 5.2179121E-03 + -26.50000 20.50000 5.2179121E-03 + -25.50000 20.50000 3.6022451E-03 + -24.50000 20.50000 3.6022451E-03 + -23.50000 20.50000 3.6022451E-03 + -22.50000 20.50000 1.5625000E-03 + -21.50000 20.50000 0.0000000E+00 + -20.50000 20.50000 0.0000000E+00 + -19.50000 20.50000 0.0000000E+00 + -18.50000 20.50000 0.0000000E+00 + -17.50000 20.50000 0.0000000E+00 + -16.50000 20.50000 0.0000000E+00 + -15.50000 20.50000 0.0000000E+00 + -14.50000 20.50000 0.0000000E+00 + -13.50000 20.50000 0.0000000E+00 + -12.50000 20.50000 0.0000000E+00 + -11.50000 20.50000 0.0000000E+00 + -10.50000 20.50000 0.0000000E+00 + -9.500000 20.50000 0.0000000E+00 + -8.500000 20.50000 0.0000000E+00 + -7.500000 20.50000 0.0000000E+00 + -6.500000 20.50000 0.0000000E+00 + -5.500000 20.50000 0.0000000E+00 + -4.500000 20.50000 0.0000000E+00 + -3.500000 20.50000 0.0000000E+00 + -2.500000 20.50000 0.0000000E+00 + -1.500000 20.50000 0.0000000E+00 + -0.5000000 20.50000 0.0000000E+00 + 0.5000000 20.50000 0.0000000E+00 + 1.500000 20.50000 0.0000000E+00 + 2.500000 20.50000 0.0000000E+00 + 3.500000 20.50000 0.0000000E+00 + 4.500000 20.50000 0.0000000E+00 + 5.500000 20.50000 0.0000000E+00 + 6.500000 20.50000 0.0000000E+00 + 7.500000 20.50000 0.0000000E+00 + 8.500000 20.50000 0.0000000E+00 + 9.500000 20.50000 0.0000000E+00 + 10.50000 20.50000 0.0000000E+00 + 11.50000 20.50000 0.0000000E+00 + 12.50000 20.50000 0.0000000E+00 + 13.50000 20.50000 0.0000000E+00 + 14.50000 20.50000 1.6384004E-02 + 15.50000 20.50000 0.1222364 + 16.50000 20.50000 0.1222364 + 17.50000 20.50000 0.1222364 + 18.50000 20.50000 0.1222364 + 19.50000 20.50000 8.1920013E-02 + 20.50000 20.50000 5.3020909E-02 + 21.50000 20.50000 5.9326172E-02 + 22.50000 20.50000 5.9326172E-02 + 23.50000 20.50000 4.3812867E-02 + 24.50000 20.50000 6.5375075E-02 + 25.50000 20.50000 0.1337063 + 26.50000 20.50000 0.1337063 + 27.50000 20.50000 0.1337063 + 28.50000 20.50000 0.1282272 + 29.50000 20.50000 0.1282272 + 30.50000 20.50000 0.1725904 + 31.50000 20.50000 0.0000000E+00 + 32.50000 20.50000 0.0000000E+00 + 33.50000 20.50000 0.0000000E+00 + 34.50000 20.50000 0.0000000E+00 + 35.50000 20.50000 0.0000000E+00 + 36.50000 20.50000 0.0000000E+00 + 37.50000 20.50000 0.0000000E+00 + 38.50000 20.50000 0.0000000E+00 + 39.50000 20.50000 0.0000000E+00 + 40.50000 20.50000 0.0000000E+00 + 41.50000 20.50000 0.0000000E+00 + 42.50000 20.50000 0.0000000E+00 + 43.50000 20.50000 0.0000000E+00 + 44.50000 20.50000 0.0000000E+00 + 45.50000 20.50000 0.0000000E+00 + 46.50000 20.50000 0.0000000E+00 + 47.50000 20.50000 0.0000000E+00 + 48.50000 20.50000 0.0000000E+00 + 49.50000 20.50000 0.0000000E+00 + 50.50000 20.50000 0.0000000E+00 + 51.50000 20.50000 0.0000000E+00 + 52.50000 20.50000 0.0000000E+00 + 53.50000 20.50000 0.0000000E+00 + 54.50000 20.50000 0.0000000E+00 + 55.50000 20.50000 0.0000000E+00 + 56.50000 20.50000 0.0000000E+00 + 57.50000 20.50000 0.0000000E+00 + 58.50000 20.50000 0.0000000E+00 + 59.50000 20.50000 0.0000000E+00 + 60.50000 20.50000 0.0000000E+00 + 61.50000 20.50000 0.0000000E+00 + 62.50000 20.50000 0.0000000E+00 + 63.50000 20.50000 0.0000000E+00 + 64.50000 20.50000 0.0000000E+00 + 65.50000 20.50000 0.0000000E+00 + 66.50000 20.50000 0.0000000E+00 + 67.50000 20.50000 0.0000000E+00 + 68.50000 20.50000 0.0000000E+00 + 69.50000 20.50000 0.0000000E+00 + 70.50000 20.50000 0.0000000E+00 + 71.50000 20.50000 0.0000000E+00 + 72.50000 20.50000 0.0000000E+00 + 73.50000 20.50000 0.0000000E+00 + 74.50000 20.50000 0.0000000E+00 + 75.50000 20.50000 0.0000000E+00 + 76.50000 20.50000 0.0000000E+00 + 77.50000 20.50000 0.0000000E+00 + 78.50000 20.50000 0.0000000E+00 + 79.50000 20.50000 0.0000000E+00 + 80.50000 20.50000 0.0000000E+00 + 81.50000 20.50000 0.0000000E+00 + 82.50000 20.50000 0.0000000E+00 + 83.50000 20.50000 0.0000000E+00 + 84.50000 20.50000 0.0000000E+00 + 85.50000 20.50000 0.0000000E+00 + 86.50000 20.50000 0.0000000E+00 + 87.50000 20.50000 0.0000000E+00 + 88.50000 20.50000 0.0000000E+00 + 89.50000 20.50000 0.0000000E+00 + -89.50000 21.50000 0.0000000E+00 + -88.50000 21.50000 0.0000000E+00 + -87.50000 21.50000 0.0000000E+00 + -86.50000 21.50000 0.0000000E+00 + -85.50000 21.50000 0.0000000E+00 + -84.50000 21.50000 0.0000000E+00 + -83.50000 21.50000 0.0000000E+00 + -82.50000 21.50000 0.0000000E+00 + -81.50000 21.50000 0.0000000E+00 + -80.50000 21.50000 0.0000000E+00 + -79.50000 21.50000 0.0000000E+00 + -78.50000 21.50000 0.0000000E+00 + -77.50000 21.50000 0.0000000E+00 + -76.50000 21.50000 0.0000000E+00 + -75.50000 21.50000 0.0000000E+00 + -74.50000 21.50000 0.0000000E+00 + -73.50000 21.50000 0.0000000E+00 + -72.50000 21.50000 0.0000000E+00 + -71.50000 21.50000 0.0000000E+00 + -70.50000 21.50000 0.0000000E+00 + -69.50000 21.50000 0.0000000E+00 + -68.50000 21.50000 0.0000000E+00 + -67.50000 21.50000 0.0000000E+00 + -66.50000 21.50000 0.0000000E+00 + -65.50000 21.50000 0.0000000E+00 + -64.50000 21.50000 0.0000000E+00 + -63.50000 21.50000 0.0000000E+00 + -62.50000 21.50000 0.0000000E+00 + -61.50000 21.50000 0.0000000E+00 + -60.50000 21.50000 0.0000000E+00 + -59.50000 21.50000 0.0000000E+00 + -58.50000 21.50000 0.0000000E+00 + -57.50000 21.50000 0.0000000E+00 + -56.50000 21.50000 0.0000000E+00 + -55.50000 21.50000 0.0000000E+00 + -54.50000 21.50000 0.0000000E+00 + -53.50000 21.50000 0.0000000E+00 + -52.50000 21.50000 0.0000000E+00 + -51.50000 21.50000 0.0000000E+00 + -50.50000 21.50000 0.0000000E+00 + -49.50000 21.50000 0.0000000E+00 + -48.50000 21.50000 0.0000000E+00 + -47.50000 21.50000 0.0000000E+00 + -46.50000 21.50000 0.0000000E+00 + -45.50000 21.50000 0.0000000E+00 + -44.50000 21.50000 0.0000000E+00 + -43.50000 21.50000 0.0000000E+00 + -42.50000 21.50000 0.0000000E+00 + -41.50000 21.50000 0.0000000E+00 + -40.50000 21.50000 0.0000000E+00 + -39.50000 21.50000 0.0000000E+00 + -38.50000 21.50000 0.0000000E+00 + -37.50000 21.50000 0.0000000E+00 + -36.50000 21.50000 0.0000000E+00 + -35.50000 21.50000 0.0000000E+00 + -34.50000 21.50000 0.0000000E+00 + -33.50000 21.50000 2.0910595E-02 + -32.50000 21.50000 2.6843542E-02 + -31.50000 21.50000 1.3768295E-02 + -30.50000 21.50000 3.6348343E-02 + -29.50000 21.50000 1.2677628E-02 + -28.50000 21.50000 9.6745891E-03 + -27.50000 21.50000 9.6745891E-03 + -26.50000 21.50000 9.6745891E-03 + -25.50000 21.50000 7.2696689E-03 + -24.50000 21.50000 0.0000000E+00 + -23.50000 21.50000 0.0000000E+00 + -22.50000 21.50000 0.0000000E+00 + -21.50000 21.50000 0.0000000E+00 + -20.50000 21.50000 0.0000000E+00 + -19.50000 21.50000 0.0000000E+00 + -18.50000 21.50000 0.0000000E+00 + -17.50000 21.50000 0.0000000E+00 + -16.50000 21.50000 0.0000000E+00 + -15.50000 21.50000 0.0000000E+00 + -14.50000 21.50000 0.0000000E+00 + -13.50000 21.50000 0.0000000E+00 + -12.50000 21.50000 0.0000000E+00 + -11.50000 21.50000 0.0000000E+00 + -10.50000 21.50000 0.0000000E+00 + -9.500000 21.50000 0.0000000E+00 + -8.500000 21.50000 0.0000000E+00 + -7.500000 21.50000 0.0000000E+00 + -6.500000 21.50000 0.0000000E+00 + -5.500000 21.50000 0.0000000E+00 + -4.500000 21.50000 0.0000000E+00 + -3.500000 21.50000 0.0000000E+00 + -2.500000 21.50000 0.0000000E+00 + -1.500000 21.50000 0.0000000E+00 + -0.5000000 21.50000 0.0000000E+00 + 0.5000000 21.50000 0.0000000E+00 + 1.500000 21.50000 0.0000000E+00 + 2.500000 21.50000 0.0000000E+00 + 3.500000 21.50000 0.0000000E+00 + 4.500000 21.50000 0.0000000E+00 + 5.500000 21.50000 0.0000000E+00 + 6.500000 21.50000 0.0000000E+00 + 7.500000 21.50000 0.0000000E+00 + 8.500000 21.50000 0.0000000E+00 + 9.500000 21.50000 0.0000000E+00 + 10.50000 21.50000 0.0000000E+00 + 11.50000 21.50000 0.0000000E+00 + 12.50000 21.50000 0.0000000E+00 + 13.50000 21.50000 0.0000000E+00 + 14.50000 21.50000 0.0000000E+00 + 15.50000 21.50000 0.1077468 + 16.50000 21.50000 0.1077468 + 17.50000 21.50000 0.1077468 + 18.50000 21.50000 0.1222364 + 19.50000 21.50000 8.1920013E-02 + 20.50000 21.50000 8.1920013E-02 + 21.50000 21.50000 8.8523149E-02 + 22.50000 21.50000 8.8523149E-02 + 23.50000 21.50000 6.5375075E-02 + 24.50000 21.50000 6.5375075E-02 + 25.50000 21.50000 0.1128588 + 26.50000 21.50000 0.1337063 + 27.50000 21.50000 0.1337063 + 28.50000 21.50000 0.1810491 + 29.50000 21.50000 0.1282272 + 30.50000 21.50000 0.1004694 + 31.50000 21.50000 3.2921817E-02 + 32.50000 21.50000 0.0000000E+00 + 33.50000 21.50000 0.0000000E+00 + 34.50000 21.50000 0.0000000E+00 + 35.50000 21.50000 0.0000000E+00 + 36.50000 21.50000 0.0000000E+00 + 37.50000 21.50000 0.0000000E+00 + 38.50000 21.50000 0.0000000E+00 + 39.50000 21.50000 0.0000000E+00 + 40.50000 21.50000 0.0000000E+00 + 41.50000 21.50000 0.0000000E+00 + 42.50000 21.50000 0.0000000E+00 + 43.50000 21.50000 0.0000000E+00 + 44.50000 21.50000 0.0000000E+00 + 45.50000 21.50000 0.0000000E+00 + 46.50000 21.50000 0.0000000E+00 + 47.50000 21.50000 0.0000000E+00 + 48.50000 21.50000 0.0000000E+00 + 49.50000 21.50000 0.0000000E+00 + 50.50000 21.50000 0.0000000E+00 + 51.50000 21.50000 0.0000000E+00 + 52.50000 21.50000 0.0000000E+00 + 53.50000 21.50000 0.0000000E+00 + 54.50000 21.50000 0.0000000E+00 + 55.50000 21.50000 0.0000000E+00 + 56.50000 21.50000 0.0000000E+00 + 57.50000 21.50000 0.0000000E+00 + 58.50000 21.50000 0.0000000E+00 + 59.50000 21.50000 0.0000000E+00 + 60.50000 21.50000 0.0000000E+00 + 61.50000 21.50000 0.0000000E+00 + 62.50000 21.50000 0.0000000E+00 + 63.50000 21.50000 0.0000000E+00 + 64.50000 21.50000 0.0000000E+00 + 65.50000 21.50000 0.0000000E+00 + 66.50000 21.50000 0.0000000E+00 + 67.50000 21.50000 0.0000000E+00 + 68.50000 21.50000 0.0000000E+00 + 69.50000 21.50000 0.0000000E+00 + 70.50000 21.50000 0.0000000E+00 + 71.50000 21.50000 0.0000000E+00 + 72.50000 21.50000 0.0000000E+00 + 73.50000 21.50000 0.0000000E+00 + 74.50000 21.50000 0.0000000E+00 + 75.50000 21.50000 0.0000000E+00 + 76.50000 21.50000 0.0000000E+00 + 77.50000 21.50000 0.0000000E+00 + 78.50000 21.50000 0.0000000E+00 + 79.50000 21.50000 0.0000000E+00 + 80.50000 21.50000 0.0000000E+00 + 81.50000 21.50000 0.0000000E+00 + 82.50000 21.50000 0.0000000E+00 + 83.50000 21.50000 0.0000000E+00 + 84.50000 21.50000 0.0000000E+00 + 85.50000 21.50000 0.0000000E+00 + 86.50000 21.50000 0.0000000E+00 + 87.50000 21.50000 0.0000000E+00 + 88.50000 21.50000 0.0000000E+00 + 89.50000 21.50000 0.0000000E+00 + -89.50000 22.50000 0.0000000E+00 + -88.50000 22.50000 0.0000000E+00 + -87.50000 22.50000 0.0000000E+00 + -86.50000 22.50000 0.0000000E+00 + -85.50000 22.50000 0.0000000E+00 + -84.50000 22.50000 0.0000000E+00 + -83.50000 22.50000 0.0000000E+00 + -82.50000 22.50000 0.0000000E+00 + -81.50000 22.50000 0.0000000E+00 + -80.50000 22.50000 0.0000000E+00 + -79.50000 22.50000 0.0000000E+00 + -78.50000 22.50000 0.0000000E+00 + -77.50000 22.50000 0.0000000E+00 + -76.50000 22.50000 0.0000000E+00 + -75.50000 22.50000 0.0000000E+00 + -74.50000 22.50000 0.0000000E+00 + -73.50000 22.50000 0.0000000E+00 + -72.50000 22.50000 0.0000000E+00 + -71.50000 22.50000 0.0000000E+00 + -70.50000 22.50000 0.0000000E+00 + -69.50000 22.50000 0.0000000E+00 + -68.50000 22.50000 0.0000000E+00 + -67.50000 22.50000 0.0000000E+00 + -66.50000 22.50000 0.0000000E+00 + -65.50000 22.50000 0.0000000E+00 + -64.50000 22.50000 0.0000000E+00 + -63.50000 22.50000 0.0000000E+00 + -62.50000 22.50000 0.0000000E+00 + -61.50000 22.50000 0.0000000E+00 + -60.50000 22.50000 0.0000000E+00 + -59.50000 22.50000 0.0000000E+00 + -58.50000 22.50000 0.0000000E+00 + -57.50000 22.50000 0.0000000E+00 + -56.50000 22.50000 0.0000000E+00 + -55.50000 22.50000 0.0000000E+00 + -54.50000 22.50000 0.0000000E+00 + -53.50000 22.50000 0.0000000E+00 + -52.50000 22.50000 0.0000000E+00 + -51.50000 22.50000 0.0000000E+00 + -50.50000 22.50000 0.0000000E+00 + -49.50000 22.50000 0.0000000E+00 + -48.50000 22.50000 0.0000000E+00 + -47.50000 22.50000 0.0000000E+00 + -46.50000 22.50000 0.0000000E+00 + -45.50000 22.50000 0.0000000E+00 + -44.50000 22.50000 0.0000000E+00 + -43.50000 22.50000 0.0000000E+00 + -42.50000 22.50000 0.0000000E+00 + -41.50000 22.50000 0.0000000E+00 + -40.50000 22.50000 0.0000000E+00 + -39.50000 22.50000 0.0000000E+00 + -38.50000 22.50000 0.0000000E+00 + -37.50000 22.50000 0.0000000E+00 + -36.50000 22.50000 0.0000000E+00 + -35.50000 22.50000 0.0000000E+00 + -34.50000 22.50000 0.0000000E+00 + -33.50000 22.50000 0.0000000E+00 + -32.50000 22.50000 5.3687086E-03 + -31.50000 22.50000 1.9010199E-03 + -30.50000 22.50000 5.3687086E-03 + -29.50000 22.50000 7.2696689E-03 + -28.50000 22.50000 3.8880003E-03 + -27.50000 22.50000 7.2696689E-03 + -26.50000 22.50000 7.2696689E-03 + -25.50000 22.50000 0.0000000E+00 + -24.50000 22.50000 7.2696689E-03 + -23.50000 22.50000 0.0000000E+00 + -22.50000 22.50000 0.0000000E+00 + -21.50000 22.50000 0.0000000E+00 + -20.50000 22.50000 0.0000000E+00 + -19.50000 22.50000 0.0000000E+00 + -18.50000 22.50000 0.0000000E+00 + -17.50000 22.50000 0.0000000E+00 + -16.50000 22.50000 0.0000000E+00 + -15.50000 22.50000 0.0000000E+00 + -14.50000 22.50000 0.0000000E+00 + -13.50000 22.50000 0.0000000E+00 + -12.50000 22.50000 0.0000000E+00 + -11.50000 22.50000 0.0000000E+00 + -10.50000 22.50000 0.0000000E+00 + -9.500000 22.50000 0.0000000E+00 + -8.500000 22.50000 0.0000000E+00 + -7.500000 22.50000 0.0000000E+00 + -6.500000 22.50000 0.0000000E+00 + -5.500000 22.50000 0.0000000E+00 + -4.500000 22.50000 0.0000000E+00 + -3.500000 22.50000 0.0000000E+00 + -2.500000 22.50000 0.0000000E+00 + -1.500000 22.50000 0.0000000E+00 + -0.5000000 22.50000 0.0000000E+00 + 0.5000000 22.50000 0.0000000E+00 + 1.500000 22.50000 0.0000000E+00 + 2.500000 22.50000 0.0000000E+00 + 3.500000 22.50000 0.0000000E+00 + 4.500000 22.50000 0.0000000E+00 + 5.500000 22.50000 0.0000000E+00 + 6.500000 22.50000 0.0000000E+00 + 7.500000 22.50000 0.0000000E+00 + 8.500000 22.50000 0.0000000E+00 + 9.500000 22.50000 0.0000000E+00 + 10.50000 22.50000 0.0000000E+00 + 11.50000 22.50000 0.0000000E+00 + 12.50000 22.50000 0.0000000E+00 + 13.50000 22.50000 0.0000000E+00 + 14.50000 22.50000 0.0000000E+00 + 15.50000 22.50000 4.6483610E-02 + 16.50000 22.50000 7.4862301E-02 + 17.50000 22.50000 0.1156661 + 18.50000 22.50000 8.1920013E-02 + 19.50000 22.50000 8.1920013E-02 + 20.50000 22.50000 8.1920013E-02 + 21.50000 22.50000 8.8523149E-02 + 22.50000 22.50000 8.8523149E-02 + 23.50000 22.50000 7.8952186E-02 + 24.50000 22.50000 9.4696872E-02 + 25.50000 22.50000 9.4696872E-02 + 26.50000 22.50000 0.1337063 + 27.50000 22.50000 0.1337063 + 28.50000 22.50000 0.1810491 + 29.50000 22.50000 0.1282272 + 30.50000 22.50000 0.1476225 + 31.50000 22.50000 8.1920013E-02 + 32.50000 22.50000 0.1109263 + 33.50000 22.50000 0.0000000E+00 + 34.50000 22.50000 0.0000000E+00 + 35.50000 22.50000 0.0000000E+00 + 36.50000 22.50000 0.0000000E+00 + 37.50000 22.50000 0.0000000E+00 + 38.50000 22.50000 0.0000000E+00 + 39.50000 22.50000 0.0000000E+00 + 40.50000 22.50000 0.0000000E+00 + 41.50000 22.50000 0.0000000E+00 + 42.50000 22.50000 0.0000000E+00 + 43.50000 22.50000 0.0000000E+00 + 44.50000 22.50000 0.0000000E+00 + 45.50000 22.50000 0.0000000E+00 + 46.50000 22.50000 0.0000000E+00 + 47.50000 22.50000 0.0000000E+00 + 48.50000 22.50000 0.0000000E+00 + 49.50000 22.50000 0.0000000E+00 + 50.50000 22.50000 0.0000000E+00 + 51.50000 22.50000 0.0000000E+00 + 52.50000 22.50000 0.0000000E+00 + 53.50000 22.50000 0.0000000E+00 + 54.50000 22.50000 0.0000000E+00 + 55.50000 22.50000 0.0000000E+00 + 56.50000 22.50000 0.0000000E+00 + 57.50000 22.50000 0.0000000E+00 + 58.50000 22.50000 0.0000000E+00 + 59.50000 22.50000 0.0000000E+00 + 60.50000 22.50000 0.0000000E+00 + 61.50000 22.50000 0.0000000E+00 + 62.50000 22.50000 0.0000000E+00 + 63.50000 22.50000 0.0000000E+00 + 64.50000 22.50000 0.0000000E+00 + 65.50000 22.50000 0.0000000E+00 + 66.50000 22.50000 0.0000000E+00 + 67.50000 22.50000 0.0000000E+00 + 68.50000 22.50000 0.0000000E+00 + 69.50000 22.50000 0.0000000E+00 + 70.50000 22.50000 0.0000000E+00 + 71.50000 22.50000 0.0000000E+00 + 72.50000 22.50000 0.0000000E+00 + 73.50000 22.50000 0.0000000E+00 + 74.50000 22.50000 0.0000000E+00 + 75.50000 22.50000 0.0000000E+00 + 76.50000 22.50000 0.0000000E+00 + 77.50000 22.50000 0.0000000E+00 + 78.50000 22.50000 0.0000000E+00 + 79.50000 22.50000 0.0000000E+00 + 80.50000 22.50000 0.0000000E+00 + 81.50000 22.50000 0.0000000E+00 + 82.50000 22.50000 0.0000000E+00 + 83.50000 22.50000 0.0000000E+00 + 84.50000 22.50000 0.0000000E+00 + 85.50000 22.50000 0.0000000E+00 + 86.50000 22.50000 0.0000000E+00 + 87.50000 22.50000 0.0000000E+00 + 88.50000 22.50000 0.0000000E+00 + 89.50000 22.50000 0.0000000E+00 + -89.50000 23.50000 0.0000000E+00 + -88.50000 23.50000 0.0000000E+00 + -87.50000 23.50000 0.0000000E+00 + -86.50000 23.50000 0.0000000E+00 + -85.50000 23.50000 0.0000000E+00 + -84.50000 23.50000 0.0000000E+00 + -83.50000 23.50000 0.0000000E+00 + -82.50000 23.50000 0.0000000E+00 + -81.50000 23.50000 0.0000000E+00 + -80.50000 23.50000 0.0000000E+00 + -79.50000 23.50000 0.0000000E+00 + -78.50000 23.50000 0.0000000E+00 + -77.50000 23.50000 0.0000000E+00 + -76.50000 23.50000 0.0000000E+00 + -75.50000 23.50000 0.0000000E+00 + -74.50000 23.50000 0.0000000E+00 + -73.50000 23.50000 0.0000000E+00 + -72.50000 23.50000 0.0000000E+00 + -71.50000 23.50000 0.0000000E+00 + -70.50000 23.50000 0.0000000E+00 + -69.50000 23.50000 0.0000000E+00 + -68.50000 23.50000 0.0000000E+00 + -67.50000 23.50000 0.0000000E+00 + -66.50000 23.50000 0.0000000E+00 + -65.50000 23.50000 0.0000000E+00 + -64.50000 23.50000 0.0000000E+00 + -63.50000 23.50000 0.0000000E+00 + -62.50000 23.50000 0.0000000E+00 + -61.50000 23.50000 0.0000000E+00 + -60.50000 23.50000 0.0000000E+00 + -59.50000 23.50000 0.0000000E+00 + -58.50000 23.50000 0.0000000E+00 + -57.50000 23.50000 0.0000000E+00 + -56.50000 23.50000 0.0000000E+00 + -55.50000 23.50000 0.0000000E+00 + -54.50000 23.50000 0.0000000E+00 + -53.50000 23.50000 0.0000000E+00 + -52.50000 23.50000 0.0000000E+00 + -51.50000 23.50000 0.0000000E+00 + -50.50000 23.50000 0.0000000E+00 + -49.50000 23.50000 0.0000000E+00 + -48.50000 23.50000 0.0000000E+00 + -47.50000 23.50000 0.0000000E+00 + -46.50000 23.50000 0.0000000E+00 + -45.50000 23.50000 0.0000000E+00 + -44.50000 23.50000 0.0000000E+00 + -43.50000 23.50000 0.0000000E+00 + -42.50000 23.50000 0.0000000E+00 + -41.50000 23.50000 0.0000000E+00 + -40.50000 23.50000 0.0000000E+00 + -39.50000 23.50000 0.0000000E+00 + -38.50000 23.50000 0.0000000E+00 + -37.50000 23.50000 0.0000000E+00 + -36.50000 23.50000 0.0000000E+00 + -35.50000 23.50000 0.0000000E+00 + -34.50000 23.50000 0.0000000E+00 + -33.50000 23.50000 0.0000000E+00 + -32.50000 23.50000 7.2696689E-03 + -31.50000 23.50000 2.2958254E-03 + -30.50000 23.50000 5.3687086E-03 + -29.50000 23.50000 7.2696689E-03 + -28.50000 23.50000 0.0000000E+00 + -27.50000 23.50000 0.0000000E+00 + -26.50000 23.50000 7.2696689E-03 + -25.50000 23.50000 0.0000000E+00 + -24.50000 23.50000 0.0000000E+00 + -23.50000 23.50000 7.2696689E-03 + -22.50000 23.50000 0.0000000E+00 + -21.50000 23.50000 0.0000000E+00 + -20.50000 23.50000 0.0000000E+00 + -19.50000 23.50000 0.0000000E+00 + -18.50000 23.50000 0.0000000E+00 + -17.50000 23.50000 0.0000000E+00 + -16.50000 23.50000 0.0000000E+00 + -15.50000 23.50000 0.0000000E+00 + -14.50000 23.50000 0.0000000E+00 + -13.50000 23.50000 0.0000000E+00 + -12.50000 23.50000 0.0000000E+00 + -11.50000 23.50000 0.0000000E+00 + -10.50000 23.50000 0.0000000E+00 + -9.500000 23.50000 0.0000000E+00 + -8.500000 23.50000 0.0000000E+00 + -7.500000 23.50000 0.0000000E+00 + -6.500000 23.50000 0.0000000E+00 + -5.500000 23.50000 0.0000000E+00 + -4.500000 23.50000 0.0000000E+00 + -3.500000 23.50000 0.0000000E+00 + -2.500000 23.50000 0.0000000E+00 + -1.500000 23.50000 0.0000000E+00 + -0.5000000 23.50000 0.0000000E+00 + 0.5000000 23.50000 0.0000000E+00 + 1.500000 23.50000 0.0000000E+00 + 2.500000 23.50000 0.0000000E+00 + 3.500000 23.50000 0.0000000E+00 + 4.500000 23.50000 0.0000000E+00 + 5.500000 23.50000 0.0000000E+00 + 6.500000 23.50000 0.0000000E+00 + 7.500000 23.50000 0.0000000E+00 + 8.500000 23.50000 0.0000000E+00 + 9.500000 23.50000 0.0000000E+00 + 10.50000 23.50000 0.0000000E+00 + 11.50000 23.50000 0.0000000E+00 + 12.50000 23.50000 0.0000000E+00 + 13.50000 23.50000 0.0000000E+00 + 14.50000 23.50000 2.1575645E-03 + 15.50000 23.50000 3.8880003E-03 + 16.50000 23.50000 3.2921817E-02 + 17.50000 23.50000 5.3020909E-02 + 18.50000 23.50000 5.3020909E-02 + 19.50000 23.50000 5.3020909E-02 + 20.50000 23.50000 8.1920013E-02 + 21.50000 23.50000 5.9326172E-02 + 22.50000 23.50000 5.9326172E-02 + 23.50000 23.50000 4.3812867E-02 + 24.50000 23.50000 6.5375075E-02 + 25.50000 23.50000 9.4696872E-02 + 26.50000 23.50000 0.1337063 + 27.50000 23.50000 0.1337063 + 28.50000 23.50000 0.1282272 + 29.50000 23.50000 0.1282272 + 30.50000 23.50000 0.1476225 + 31.50000 23.50000 8.1920013E-02 + 32.50000 23.50000 0.0000000E+00 + 33.50000 23.50000 0.0000000E+00 + 34.50000 23.50000 0.0000000E+00 + 35.50000 23.50000 0.0000000E+00 + 36.50000 23.50000 0.0000000E+00 + 37.50000 23.50000 0.0000000E+00 + 38.50000 23.50000 0.0000000E+00 + 39.50000 23.50000 0.0000000E+00 + 40.50000 23.50000 0.0000000E+00 + 41.50000 23.50000 0.0000000E+00 + 42.50000 23.50000 0.0000000E+00 + 43.50000 23.50000 0.0000000E+00 + 44.50000 23.50000 0.0000000E+00 + 45.50000 23.50000 0.0000000E+00 + 46.50000 23.50000 0.0000000E+00 + 47.50000 23.50000 0.0000000E+00 + 48.50000 23.50000 0.0000000E+00 + 49.50000 23.50000 0.0000000E+00 + 50.50000 23.50000 0.0000000E+00 + 51.50000 23.50000 0.0000000E+00 + 52.50000 23.50000 0.0000000E+00 + 53.50000 23.50000 0.0000000E+00 + 54.50000 23.50000 0.0000000E+00 + 55.50000 23.50000 0.0000000E+00 + 56.50000 23.50000 0.0000000E+00 + 57.50000 23.50000 0.0000000E+00 + 58.50000 23.50000 0.0000000E+00 + 59.50000 23.50000 0.0000000E+00 + 60.50000 23.50000 0.0000000E+00 + 61.50000 23.50000 0.0000000E+00 + 62.50000 23.50000 0.0000000E+00 + 63.50000 23.50000 0.0000000E+00 + 64.50000 23.50000 0.0000000E+00 + 65.50000 23.50000 0.0000000E+00 + 66.50000 23.50000 0.0000000E+00 + 67.50000 23.50000 0.0000000E+00 + 68.50000 23.50000 0.0000000E+00 + 69.50000 23.50000 0.0000000E+00 + 70.50000 23.50000 0.0000000E+00 + 71.50000 23.50000 0.0000000E+00 + 72.50000 23.50000 0.0000000E+00 + 73.50000 23.50000 0.0000000E+00 + 74.50000 23.50000 0.0000000E+00 + 75.50000 23.50000 0.0000000E+00 + 76.50000 23.50000 0.0000000E+00 + 77.50000 23.50000 0.0000000E+00 + 78.50000 23.50000 0.0000000E+00 + 79.50000 23.50000 0.0000000E+00 + 80.50000 23.50000 0.0000000E+00 + 81.50000 23.50000 0.0000000E+00 + 82.50000 23.50000 0.0000000E+00 + 83.50000 23.50000 0.0000000E+00 + 84.50000 23.50000 0.0000000E+00 + 85.50000 23.50000 0.0000000E+00 + 86.50000 23.50000 0.0000000E+00 + 87.50000 23.50000 0.0000000E+00 + 88.50000 23.50000 0.0000000E+00 + 89.50000 23.50000 0.0000000E+00 + -89.50000 24.50000 0.0000000E+00 + -88.50000 24.50000 0.0000000E+00 + -87.50000 24.50000 0.0000000E+00 + -86.50000 24.50000 0.0000000E+00 + -85.50000 24.50000 0.0000000E+00 + -84.50000 24.50000 0.0000000E+00 + -83.50000 24.50000 0.0000000E+00 + -82.50000 24.50000 0.0000000E+00 + -81.50000 24.50000 0.0000000E+00 + -80.50000 24.50000 0.0000000E+00 + -79.50000 24.50000 0.0000000E+00 + -78.50000 24.50000 0.0000000E+00 + -77.50000 24.50000 0.0000000E+00 + -76.50000 24.50000 0.0000000E+00 + -75.50000 24.50000 0.0000000E+00 + -74.50000 24.50000 0.0000000E+00 + -73.50000 24.50000 0.0000000E+00 + -72.50000 24.50000 0.0000000E+00 + -71.50000 24.50000 0.0000000E+00 + -70.50000 24.50000 0.0000000E+00 + -69.50000 24.50000 0.0000000E+00 + -68.50000 24.50000 0.0000000E+00 + -67.50000 24.50000 0.0000000E+00 + -66.50000 24.50000 0.0000000E+00 + -65.50000 24.50000 0.0000000E+00 + -64.50000 24.50000 0.0000000E+00 + -63.50000 24.50000 0.0000000E+00 + -62.50000 24.50000 0.0000000E+00 + -61.50000 24.50000 0.0000000E+00 + -60.50000 24.50000 0.0000000E+00 + -59.50000 24.50000 0.0000000E+00 + -58.50000 24.50000 0.0000000E+00 + -57.50000 24.50000 0.0000000E+00 + -56.50000 24.50000 0.0000000E+00 + -55.50000 24.50000 0.0000000E+00 + -54.50000 24.50000 0.0000000E+00 + -53.50000 24.50000 0.0000000E+00 + -52.50000 24.50000 0.0000000E+00 + -51.50000 24.50000 0.0000000E+00 + -50.50000 24.50000 0.0000000E+00 + -49.50000 24.50000 0.0000000E+00 + -48.50000 24.50000 0.0000000E+00 + -47.50000 24.50000 0.0000000E+00 + -46.50000 24.50000 0.0000000E+00 + -45.50000 24.50000 0.0000000E+00 + -44.50000 24.50000 0.0000000E+00 + -43.50000 24.50000 0.0000000E+00 + -42.50000 24.50000 0.0000000E+00 + -41.50000 24.50000 0.0000000E+00 + -40.50000 24.50000 0.0000000E+00 + -39.50000 24.50000 0.0000000E+00 + -38.50000 24.50000 0.0000000E+00 + -37.50000 24.50000 0.0000000E+00 + -36.50000 24.50000 0.0000000E+00 + -35.50000 24.50000 0.0000000E+00 + -34.50000 24.50000 0.0000000E+00 + -33.50000 24.50000 0.0000000E+00 + -32.50000 24.50000 5.3687086E-03 + -31.50000 24.50000 0.0000000E+00 + -30.50000 24.50000 0.0000000E+00 + -29.50000 24.50000 5.3687086E-03 + -28.50000 24.50000 0.0000000E+00 + -27.50000 24.50000 0.0000000E+00 + -26.50000 24.50000 0.0000000E+00 + -25.50000 24.50000 0.0000000E+00 + -24.50000 24.50000 0.0000000E+00 + -23.50000 24.50000 0.0000000E+00 + -22.50000 24.50000 0.0000000E+00 + -21.50000 24.50000 0.0000000E+00 + -20.50000 24.50000 0.0000000E+00 + -19.50000 24.50000 0.0000000E+00 + -18.50000 24.50000 0.0000000E+00 + -17.50000 24.50000 0.0000000E+00 + -16.50000 24.50000 0.0000000E+00 + -15.50000 24.50000 0.0000000E+00 + -14.50000 24.50000 0.0000000E+00 + -13.50000 24.50000 0.0000000E+00 + -12.50000 24.50000 0.0000000E+00 + -11.50000 24.50000 0.0000000E+00 + -10.50000 24.50000 0.0000000E+00 + -9.500000 24.50000 0.0000000E+00 + -8.500000 24.50000 0.0000000E+00 + -7.500000 24.50000 0.0000000E+00 + -6.500000 24.50000 0.0000000E+00 + -5.500000 24.50000 0.0000000E+00 + -4.500000 24.50000 0.0000000E+00 + -3.500000 24.50000 0.0000000E+00 + -2.500000 24.50000 0.0000000E+00 + -1.500000 24.50000 0.0000000E+00 + -0.5000000 24.50000 0.0000000E+00 + 0.5000000 24.50000 0.0000000E+00 + 1.500000 24.50000 0.0000000E+00 + 2.500000 24.50000 0.0000000E+00 + 3.500000 24.50000 0.0000000E+00 + 4.500000 24.50000 0.0000000E+00 + 5.500000 24.50000 0.0000000E+00 + 6.500000 24.50000 0.0000000E+00 + 7.500000 24.50000 0.0000000E+00 + 8.500000 24.50000 0.0000000E+00 + 9.500000 24.50000 0.0000000E+00 + 10.50000 24.50000 0.0000000E+00 + 11.50000 24.50000 0.0000000E+00 + 12.50000 24.50000 0.0000000E+00 + 13.50000 24.50000 0.0000000E+00 + 14.50000 24.50000 0.0000000E+00 + 15.50000 24.50000 1.9440001E-02 + 16.50000 24.50000 3.2921817E-02 + 17.50000 24.50000 3.2921817E-02 + 18.50000 24.50000 5.3020909E-02 + 19.50000 24.50000 5.3020909E-02 + 20.50000 24.50000 8.1920013E-02 + 21.50000 24.50000 5.9326172E-02 + 22.50000 24.50000 5.9326172E-02 + 23.50000 24.50000 4.3812867E-02 + 24.50000 24.50000 6.5375075E-02 + 25.50000 24.50000 6.5375075E-02 + 26.50000 24.50000 9.4696872E-02 + 27.50000 24.50000 0.1337063 + 28.50000 24.50000 0.1282272 + 29.50000 24.50000 0.1282272 + 30.50000 24.50000 0.1476225 + 31.50000 24.50000 0.1476225 + 32.50000 24.50000 0.0000000E+00 + 33.50000 24.50000 0.0000000E+00 + 34.50000 24.50000 0.0000000E+00 + 35.50000 24.50000 0.0000000E+00 + 36.50000 24.50000 0.0000000E+00 + 37.50000 24.50000 0.0000000E+00 + 38.50000 24.50000 0.0000000E+00 + 39.50000 24.50000 0.0000000E+00 + 40.50000 24.50000 0.0000000E+00 + 41.50000 24.50000 0.0000000E+00 + 42.50000 24.50000 0.0000000E+00 + 43.50000 24.50000 0.0000000E+00 + 44.50000 24.50000 0.0000000E+00 + 45.50000 24.50000 0.0000000E+00 + 46.50000 24.50000 0.0000000E+00 + 47.50000 24.50000 0.0000000E+00 + 48.50000 24.50000 0.0000000E+00 + 49.50000 24.50000 0.0000000E+00 + 50.50000 24.50000 0.0000000E+00 + 51.50000 24.50000 0.0000000E+00 + 52.50000 24.50000 0.0000000E+00 + 53.50000 24.50000 0.0000000E+00 + 54.50000 24.50000 0.0000000E+00 + 55.50000 24.50000 0.0000000E+00 + 56.50000 24.50000 0.0000000E+00 + 57.50000 24.50000 0.0000000E+00 + 58.50000 24.50000 0.0000000E+00 + 59.50000 24.50000 0.0000000E+00 + 60.50000 24.50000 0.0000000E+00 + 61.50000 24.50000 0.0000000E+00 + 62.50000 24.50000 0.0000000E+00 + 63.50000 24.50000 0.0000000E+00 + 64.50000 24.50000 0.0000000E+00 + 65.50000 24.50000 0.0000000E+00 + 66.50000 24.50000 0.0000000E+00 + 67.50000 24.50000 0.0000000E+00 + 68.50000 24.50000 0.0000000E+00 + 69.50000 24.50000 0.0000000E+00 + 70.50000 24.50000 0.0000000E+00 + 71.50000 24.50000 0.0000000E+00 + 72.50000 24.50000 0.0000000E+00 + 73.50000 24.50000 0.0000000E+00 + 74.50000 24.50000 0.0000000E+00 + 75.50000 24.50000 0.0000000E+00 + 76.50000 24.50000 0.0000000E+00 + 77.50000 24.50000 0.0000000E+00 + 78.50000 24.50000 0.0000000E+00 + 79.50000 24.50000 0.0000000E+00 + 80.50000 24.50000 0.0000000E+00 + 81.50000 24.50000 0.0000000E+00 + 82.50000 24.50000 0.0000000E+00 + 83.50000 24.50000 0.0000000E+00 + 84.50000 24.50000 0.0000000E+00 + 85.50000 24.50000 0.0000000E+00 + 86.50000 24.50000 0.0000000E+00 + 87.50000 24.50000 0.0000000E+00 + 88.50000 24.50000 0.0000000E+00 + 89.50000 24.50000 0.0000000E+00 + -89.50000 25.50000 0.0000000E+00 + -88.50000 25.50000 0.0000000E+00 + -87.50000 25.50000 0.0000000E+00 + -86.50000 25.50000 0.0000000E+00 + -85.50000 25.50000 0.0000000E+00 + -84.50000 25.50000 0.0000000E+00 + -83.50000 25.50000 0.0000000E+00 + -82.50000 25.50000 0.0000000E+00 + -81.50000 25.50000 0.0000000E+00 + -80.50000 25.50000 0.0000000E+00 + -79.50000 25.50000 0.0000000E+00 + -78.50000 25.50000 0.0000000E+00 + -77.50000 25.50000 0.0000000E+00 + -76.50000 25.50000 0.0000000E+00 + -75.50000 25.50000 0.0000000E+00 + -74.50000 25.50000 0.0000000E+00 + -73.50000 25.50000 0.0000000E+00 + -72.50000 25.50000 0.0000000E+00 + -71.50000 25.50000 0.0000000E+00 + -70.50000 25.50000 0.0000000E+00 + -69.50000 25.50000 0.0000000E+00 + -68.50000 25.50000 0.0000000E+00 + -67.50000 25.50000 0.0000000E+00 + -66.50000 25.50000 0.0000000E+00 + -65.50000 25.50000 0.0000000E+00 + -64.50000 25.50000 0.0000000E+00 + -63.50000 25.50000 0.0000000E+00 + -62.50000 25.50000 0.0000000E+00 + -61.50000 25.50000 0.0000000E+00 + -60.50000 25.50000 0.0000000E+00 + -59.50000 25.50000 0.0000000E+00 + -58.50000 25.50000 0.0000000E+00 + -57.50000 25.50000 0.0000000E+00 + -56.50000 25.50000 0.0000000E+00 + -55.50000 25.50000 0.0000000E+00 + -54.50000 25.50000 0.0000000E+00 + -53.50000 25.50000 0.0000000E+00 + -52.50000 25.50000 0.0000000E+00 + -51.50000 25.50000 0.0000000E+00 + -50.50000 25.50000 0.0000000E+00 + -49.50000 25.50000 0.0000000E+00 + -48.50000 25.50000 0.0000000E+00 + -47.50000 25.50000 0.0000000E+00 + -46.50000 25.50000 0.0000000E+00 + -45.50000 25.50000 0.0000000E+00 + -44.50000 25.50000 0.0000000E+00 + -43.50000 25.50000 0.0000000E+00 + -42.50000 25.50000 0.0000000E+00 + -41.50000 25.50000 0.0000000E+00 + -40.50000 25.50000 0.0000000E+00 + -39.50000 25.50000 0.0000000E+00 + -38.50000 25.50000 0.0000000E+00 + -37.50000 25.50000 0.0000000E+00 + -36.50000 25.50000 0.0000000E+00 + -35.50000 25.50000 0.0000000E+00 + -34.50000 25.50000 0.0000000E+00 + -33.50000 25.50000 0.0000000E+00 + -32.50000 25.50000 0.0000000E+00 + -31.50000 25.50000 3.2817833E-03 + -30.50000 25.50000 2.7536589E-03 + -29.50000 25.50000 0.0000000E+00 + -28.50000 25.50000 0.0000000E+00 + -27.50000 25.50000 0.0000000E+00 + -26.50000 25.50000 0.0000000E+00 + -25.50000 25.50000 0.0000000E+00 + -24.50000 25.50000 0.0000000E+00 + -23.50000 25.50000 0.0000000E+00 + -22.50000 25.50000 0.0000000E+00 + -21.50000 25.50000 0.0000000E+00 + -20.50000 25.50000 0.0000000E+00 + -19.50000 25.50000 0.0000000E+00 + -18.50000 25.50000 0.0000000E+00 + -17.50000 25.50000 0.0000000E+00 + -16.50000 25.50000 0.0000000E+00 + -15.50000 25.50000 0.0000000E+00 + -14.50000 25.50000 0.0000000E+00 + -13.50000 25.50000 0.0000000E+00 + -12.50000 25.50000 0.0000000E+00 + -11.50000 25.50000 0.0000000E+00 + -10.50000 25.50000 0.0000000E+00 + -9.500000 25.50000 0.0000000E+00 + -8.500000 25.50000 0.0000000E+00 + -7.500000 25.50000 0.0000000E+00 + -6.500000 25.50000 0.0000000E+00 + -5.500000 25.50000 0.0000000E+00 + -4.500000 25.50000 0.0000000E+00 + -3.500000 25.50000 0.0000000E+00 + -2.500000 25.50000 0.0000000E+00 + -1.500000 25.50000 0.0000000E+00 + -0.5000000 25.50000 0.0000000E+00 + 0.5000000 25.50000 0.0000000E+00 + 1.500000 25.50000 0.0000000E+00 + 2.500000 25.50000 0.0000000E+00 + 3.500000 25.50000 0.0000000E+00 + 4.500000 25.50000 0.0000000E+00 + 5.500000 25.50000 0.0000000E+00 + 6.500000 25.50000 0.0000000E+00 + 7.500000 25.50000 0.0000000E+00 + 8.500000 25.50000 0.0000000E+00 + 9.500000 25.50000 0.0000000E+00 + 10.50000 25.50000 0.0000000E+00 + 11.50000 25.50000 0.0000000E+00 + 12.50000 25.50000 3.3771775E-03 + 13.50000 25.50000 2.1575645E-03 + 14.50000 25.50000 5.5331686E-03 + 15.50000 25.50000 1.0787822E-02 + 16.50000 25.50000 1.9440001E-02 + 17.50000 25.50000 3.2921817E-02 + 18.50000 25.50000 3.2921817E-02 + 19.50000 25.50000 5.3020909E-02 + 20.50000 25.50000 5.3020909E-02 + 21.50000 25.50000 3.8397551E-02 + 22.50000 25.50000 3.8397551E-02 + 23.50000 25.50000 4.3812867E-02 + 24.50000 25.50000 4.3812867E-02 + 25.50000 25.50000 6.5375075E-02 + 26.50000 25.50000 9.4696872E-02 + 27.50000 25.50000 0.1337063 + 28.50000 25.50000 0.1282272 + 29.50000 25.50000 5.9326172E-02 + 30.50000 25.50000 0.1004694 + 31.50000 25.50000 0.0000000E+00 + 32.50000 25.50000 0.0000000E+00 + 33.50000 25.50000 0.0000000E+00 + 34.50000 25.50000 0.0000000E+00 + 35.50000 25.50000 0.0000000E+00 + 36.50000 25.50000 0.0000000E+00 + 37.50000 25.50000 0.0000000E+00 + 38.50000 25.50000 0.0000000E+00 + 39.50000 25.50000 0.0000000E+00 + 40.50000 25.50000 0.0000000E+00 + 41.50000 25.50000 0.0000000E+00 + 42.50000 25.50000 0.0000000E+00 + 43.50000 25.50000 0.0000000E+00 + 44.50000 25.50000 0.0000000E+00 + 45.50000 25.50000 0.0000000E+00 + 46.50000 25.50000 0.0000000E+00 + 47.50000 25.50000 0.0000000E+00 + 48.50000 25.50000 0.0000000E+00 + 49.50000 25.50000 0.0000000E+00 + 50.50000 25.50000 0.0000000E+00 + 51.50000 25.50000 0.0000000E+00 + 52.50000 25.50000 0.0000000E+00 + 53.50000 25.50000 0.0000000E+00 + 54.50000 25.50000 0.0000000E+00 + 55.50000 25.50000 0.0000000E+00 + 56.50000 25.50000 0.0000000E+00 + 57.50000 25.50000 0.0000000E+00 + 58.50000 25.50000 0.0000000E+00 + 59.50000 25.50000 0.0000000E+00 + 60.50000 25.50000 0.0000000E+00 + 61.50000 25.50000 0.0000000E+00 + 62.50000 25.50000 0.0000000E+00 + 63.50000 25.50000 0.0000000E+00 + 64.50000 25.50000 0.0000000E+00 + 65.50000 25.50000 0.0000000E+00 + 66.50000 25.50000 0.0000000E+00 + 67.50000 25.50000 0.0000000E+00 + 68.50000 25.50000 0.0000000E+00 + 69.50000 25.50000 0.0000000E+00 + 70.50000 25.50000 0.0000000E+00 + 71.50000 25.50000 0.0000000E+00 + 72.50000 25.50000 0.0000000E+00 + 73.50000 25.50000 0.0000000E+00 + 74.50000 25.50000 0.0000000E+00 + 75.50000 25.50000 0.0000000E+00 + 76.50000 25.50000 0.0000000E+00 + 77.50000 25.50000 0.0000000E+00 + 78.50000 25.50000 0.0000000E+00 + 79.50000 25.50000 0.0000000E+00 + 80.50000 25.50000 0.0000000E+00 + 81.50000 25.50000 0.0000000E+00 + 82.50000 25.50000 0.0000000E+00 + 83.50000 25.50000 0.0000000E+00 + 84.50000 25.50000 0.0000000E+00 + 85.50000 25.50000 0.0000000E+00 + 86.50000 25.50000 0.0000000E+00 + 87.50000 25.50000 0.0000000E+00 + 88.50000 25.50000 0.0000000E+00 + 89.50000 25.50000 0.0000000E+00 + -89.50000 26.50000 0.0000000E+00 + -88.50000 26.50000 0.0000000E+00 + -87.50000 26.50000 0.0000000E+00 + -86.50000 26.50000 0.0000000E+00 + -85.50000 26.50000 0.0000000E+00 + -84.50000 26.50000 0.0000000E+00 + -83.50000 26.50000 0.0000000E+00 + -82.50000 26.50000 0.0000000E+00 + -81.50000 26.50000 0.0000000E+00 + -80.50000 26.50000 0.0000000E+00 + -79.50000 26.50000 0.0000000E+00 + -78.50000 26.50000 0.0000000E+00 + -77.50000 26.50000 0.0000000E+00 + -76.50000 26.50000 0.0000000E+00 + -75.50000 26.50000 0.0000000E+00 + -74.50000 26.50000 0.0000000E+00 + -73.50000 26.50000 0.0000000E+00 + -72.50000 26.50000 0.0000000E+00 + -71.50000 26.50000 0.0000000E+00 + -70.50000 26.50000 0.0000000E+00 + -69.50000 26.50000 0.0000000E+00 + -68.50000 26.50000 0.0000000E+00 + -67.50000 26.50000 0.0000000E+00 + -66.50000 26.50000 0.0000000E+00 + -65.50000 26.50000 0.0000000E+00 + -64.50000 26.50000 0.0000000E+00 + -63.50000 26.50000 0.0000000E+00 + -62.50000 26.50000 0.0000000E+00 + -61.50000 26.50000 0.0000000E+00 + -60.50000 26.50000 0.0000000E+00 + -59.50000 26.50000 0.0000000E+00 + -58.50000 26.50000 0.0000000E+00 + -57.50000 26.50000 0.0000000E+00 + -56.50000 26.50000 0.0000000E+00 + -55.50000 26.50000 0.0000000E+00 + -54.50000 26.50000 0.0000000E+00 + -53.50000 26.50000 0.0000000E+00 + -52.50000 26.50000 0.0000000E+00 + -51.50000 26.50000 0.0000000E+00 + -50.50000 26.50000 0.0000000E+00 + -49.50000 26.50000 0.0000000E+00 + -48.50000 26.50000 0.0000000E+00 + -47.50000 26.50000 0.0000000E+00 + -46.50000 26.50000 0.0000000E+00 + -45.50000 26.50000 0.0000000E+00 + -44.50000 26.50000 0.0000000E+00 + -43.50000 26.50000 0.0000000E+00 + -42.50000 26.50000 0.0000000E+00 + -41.50000 26.50000 0.0000000E+00 + -40.50000 26.50000 0.0000000E+00 + -39.50000 26.50000 0.0000000E+00 + -38.50000 26.50000 0.0000000E+00 + -37.50000 26.50000 0.0000000E+00 + -36.50000 26.50000 0.0000000E+00 + -35.50000 26.50000 0.0000000E+00 + -34.50000 26.50000 0.0000000E+00 + -33.50000 26.50000 0.0000000E+00 + -32.50000 26.50000 0.0000000E+00 + -31.50000 26.50000 0.0000000E+00 + -30.50000 26.50000 0.0000000E+00 + -29.50000 26.50000 0.0000000E+00 + -28.50000 26.50000 0.0000000E+00 + -27.50000 26.50000 0.0000000E+00 + -26.50000 26.50000 0.0000000E+00 + -25.50000 26.50000 0.0000000E+00 + -24.50000 26.50000 0.0000000E+00 + -23.50000 26.50000 0.0000000E+00 + -22.50000 26.50000 0.0000000E+00 + -21.50000 26.50000 0.0000000E+00 + -20.50000 26.50000 0.0000000E+00 + -19.50000 26.50000 0.0000000E+00 + -18.50000 26.50000 0.0000000E+00 + -17.50000 26.50000 0.0000000E+00 + -16.50000 26.50000 0.0000000E+00 + -15.50000 26.50000 0.0000000E+00 + -14.50000 26.50000 0.0000000E+00 + -13.50000 26.50000 0.0000000E+00 + -12.50000 26.50000 0.0000000E+00 + -11.50000 26.50000 0.0000000E+00 + -10.50000 26.50000 0.0000000E+00 + -9.500000 26.50000 0.0000000E+00 + -8.500000 26.50000 0.0000000E+00 + -7.500000 26.50000 0.0000000E+00 + -6.500000 26.50000 0.0000000E+00 + -5.500000 26.50000 0.0000000E+00 + -4.500000 26.50000 0.0000000E+00 + -3.500000 26.50000 0.0000000E+00 + -2.500000 26.50000 0.0000000E+00 + -1.500000 26.50000 0.0000000E+00 + -0.5000000 26.50000 0.0000000E+00 + 0.5000000 26.50000 0.0000000E+00 + 1.500000 26.50000 0.0000000E+00 + 2.500000 26.50000 0.0000000E+00 + 3.500000 26.50000 0.0000000E+00 + 4.500000 26.50000 0.0000000E+00 + 5.500000 26.50000 0.0000000E+00 + 6.500000 26.50000 0.0000000E+00 + 7.500000 26.50000 0.0000000E+00 + 8.500000 26.50000 0.0000000E+00 + 9.500000 26.50000 0.0000000E+00 + 10.50000 26.50000 0.0000000E+00 + 11.50000 26.50000 0.0000000E+00 + 12.50000 26.50000 0.0000000E+00 + 13.50000 26.50000 2.2633076E-03 + 14.50000 26.50000 5.2357572E-03 + 15.50000 26.50000 1.1316538E-02 + 16.50000 26.50000 2.2063442E-02 + 17.50000 26.50000 2.2063442E-02 + 18.50000 26.50000 3.9759036E-02 + 19.50000 26.50000 3.9759036E-02 + 20.50000 26.50000 6.7332275E-02 + 21.50000 26.50000 1.3230540E-02 + 22.50000 26.50000 7.8125000E-03 + 23.50000 26.50000 1.8539429E-03 + 24.50000 26.50000 1.8539429E-03 + 25.50000 26.50000 7.8125000E-03 + 26.50000 26.50000 3.8397551E-02 + 27.50000 26.50000 5.9326172E-02 + 28.50000 26.50000 5.9326172E-02 + 29.50000 26.50000 5.9326172E-02 + 30.50000 26.50000 0.1004694 + 31.50000 26.50000 0.0000000E+00 + 32.50000 26.50000 0.0000000E+00 + 33.50000 26.50000 0.0000000E+00 + 34.50000 26.50000 0.0000000E+00 + 35.50000 26.50000 0.0000000E+00 + 36.50000 26.50000 0.0000000E+00 + 37.50000 26.50000 0.0000000E+00 + 38.50000 26.50000 0.0000000E+00 + 39.50000 26.50000 0.0000000E+00 + 40.50000 26.50000 0.0000000E+00 + 41.50000 26.50000 0.0000000E+00 + 42.50000 26.50000 0.0000000E+00 + 43.50000 26.50000 0.0000000E+00 + 44.50000 26.50000 0.0000000E+00 + 45.50000 26.50000 0.0000000E+00 + 46.50000 26.50000 0.0000000E+00 + 47.50000 26.50000 0.0000000E+00 + 48.50000 26.50000 0.0000000E+00 + 49.50000 26.50000 0.0000000E+00 + 50.50000 26.50000 0.0000000E+00 + 51.50000 26.50000 0.0000000E+00 + 52.50000 26.50000 0.0000000E+00 + 53.50000 26.50000 0.0000000E+00 + 54.50000 26.50000 0.0000000E+00 + 55.50000 26.50000 0.0000000E+00 + 56.50000 26.50000 0.0000000E+00 + 57.50000 26.50000 0.0000000E+00 + 58.50000 26.50000 0.0000000E+00 + 59.50000 26.50000 0.0000000E+00 + 60.50000 26.50000 0.0000000E+00 + 61.50000 26.50000 0.0000000E+00 + 62.50000 26.50000 0.0000000E+00 + 63.50000 26.50000 0.0000000E+00 + 64.50000 26.50000 0.0000000E+00 + 65.50000 26.50000 0.0000000E+00 + 66.50000 26.50000 0.0000000E+00 + 67.50000 26.50000 0.0000000E+00 + 68.50000 26.50000 0.0000000E+00 + 69.50000 26.50000 0.0000000E+00 + 70.50000 26.50000 0.0000000E+00 + 71.50000 26.50000 0.0000000E+00 + 72.50000 26.50000 0.0000000E+00 + 73.50000 26.50000 0.0000000E+00 + 74.50000 26.50000 0.0000000E+00 + 75.50000 26.50000 0.0000000E+00 + 76.50000 26.50000 0.0000000E+00 + 77.50000 26.50000 0.0000000E+00 + 78.50000 26.50000 0.0000000E+00 + 79.50000 26.50000 0.0000000E+00 + 80.50000 26.50000 0.0000000E+00 + 81.50000 26.50000 0.0000000E+00 + 82.50000 26.50000 0.0000000E+00 + 83.50000 26.50000 0.0000000E+00 + 84.50000 26.50000 0.0000000E+00 + 85.50000 26.50000 0.0000000E+00 + 86.50000 26.50000 0.0000000E+00 + 87.50000 26.50000 0.0000000E+00 + 88.50000 26.50000 0.0000000E+00 + 89.50000 26.50000 0.0000000E+00 + -89.50000 27.50000 0.0000000E+00 + -88.50000 27.50000 0.0000000E+00 + -87.50000 27.50000 0.0000000E+00 + -86.50000 27.50000 0.0000000E+00 + -85.50000 27.50000 0.0000000E+00 + -84.50000 27.50000 0.0000000E+00 + -83.50000 27.50000 0.0000000E+00 + -82.50000 27.50000 0.0000000E+00 + -81.50000 27.50000 0.0000000E+00 + -80.50000 27.50000 0.0000000E+00 + -79.50000 27.50000 0.0000000E+00 + -78.50000 27.50000 0.0000000E+00 + -77.50000 27.50000 0.0000000E+00 + -76.50000 27.50000 0.0000000E+00 + -75.50000 27.50000 0.0000000E+00 + -74.50000 27.50000 0.0000000E+00 + -73.50000 27.50000 0.0000000E+00 + -72.50000 27.50000 0.0000000E+00 + -71.50000 27.50000 0.0000000E+00 + -70.50000 27.50000 0.0000000E+00 + -69.50000 27.50000 0.0000000E+00 + -68.50000 27.50000 0.0000000E+00 + -67.50000 27.50000 0.0000000E+00 + -66.50000 27.50000 0.0000000E+00 + -65.50000 27.50000 0.0000000E+00 + -64.50000 27.50000 0.0000000E+00 + -63.50000 27.50000 0.0000000E+00 + -62.50000 27.50000 0.0000000E+00 + -61.50000 27.50000 0.0000000E+00 + -60.50000 27.50000 0.0000000E+00 + -59.50000 27.50000 0.0000000E+00 + -58.50000 27.50000 0.0000000E+00 + -57.50000 27.50000 0.0000000E+00 + -56.50000 27.50000 0.0000000E+00 + -55.50000 27.50000 0.0000000E+00 + -54.50000 27.50000 0.0000000E+00 + -53.50000 27.50000 0.0000000E+00 + -52.50000 27.50000 0.0000000E+00 + -51.50000 27.50000 0.0000000E+00 + -50.50000 27.50000 0.0000000E+00 + -49.50000 27.50000 0.0000000E+00 + -48.50000 27.50000 0.0000000E+00 + -47.50000 27.50000 0.0000000E+00 + -46.50000 27.50000 0.0000000E+00 + -45.50000 27.50000 0.0000000E+00 + -44.50000 27.50000 0.0000000E+00 + -43.50000 27.50000 0.0000000E+00 + -42.50000 27.50000 0.0000000E+00 + -41.50000 27.50000 0.0000000E+00 + -40.50000 27.50000 0.0000000E+00 + -39.50000 27.50000 0.0000000E+00 + -38.50000 27.50000 0.0000000E+00 + -37.50000 27.50000 0.0000000E+00 + -36.50000 27.50000 0.0000000E+00 + -35.50000 27.50000 0.0000000E+00 + -34.50000 27.50000 0.0000000E+00 + -33.50000 27.50000 0.0000000E+00 + -32.50000 27.50000 0.0000000E+00 + -31.50000 27.50000 0.0000000E+00 + -30.50000 27.50000 0.0000000E+00 + -29.50000 27.50000 0.0000000E+00 + -28.50000 27.50000 0.0000000E+00 + -27.50000 27.50000 0.0000000E+00 + -26.50000 27.50000 0.0000000E+00 + -25.50000 27.50000 0.0000000E+00 + -24.50000 27.50000 0.0000000E+00 + -23.50000 27.50000 0.0000000E+00 + -22.50000 27.50000 0.0000000E+00 + -21.50000 27.50000 0.0000000E+00 + -20.50000 27.50000 0.0000000E+00 + -19.50000 27.50000 0.0000000E+00 + -18.50000 27.50000 0.0000000E+00 + -17.50000 27.50000 0.0000000E+00 + -16.50000 27.50000 0.0000000E+00 + -15.50000 27.50000 0.0000000E+00 + -14.50000 27.50000 0.0000000E+00 + -13.50000 27.50000 0.0000000E+00 + -12.50000 27.50000 0.0000000E+00 + -11.50000 27.50000 0.0000000E+00 + -10.50000 27.50000 0.0000000E+00 + -9.500000 27.50000 0.0000000E+00 + -8.500000 27.50000 0.0000000E+00 + -7.500000 27.50000 0.0000000E+00 + -6.500000 27.50000 0.0000000E+00 + -5.500000 27.50000 0.0000000E+00 + -4.500000 27.50000 0.0000000E+00 + -3.500000 27.50000 0.0000000E+00 + -2.500000 27.50000 0.0000000E+00 + -1.500000 27.50000 0.0000000E+00 + -0.5000000 27.50000 0.0000000E+00 + 0.5000000 27.50000 0.0000000E+00 + 1.500000 27.50000 0.0000000E+00 + 2.500000 27.50000 0.0000000E+00 + 3.500000 27.50000 0.0000000E+00 + 4.500000 27.50000 0.0000000E+00 + 5.500000 27.50000 0.0000000E+00 + 6.500000 27.50000 0.0000000E+00 + 7.500000 27.50000 0.0000000E+00 + 8.500000 27.50000 0.0000000E+00 + 9.500000 27.50000 0.0000000E+00 + 10.50000 27.50000 0.0000000E+00 + 11.50000 27.50000 0.0000000E+00 + 12.50000 27.50000 0.0000000E+00 + 13.50000 27.50000 0.0000000E+00 + 14.50000 27.50000 0.0000000E+00 + 15.50000 27.50000 2.2063442E-02 + 16.50000 27.50000 3.9759036E-02 + 17.50000 27.50000 6.7332275E-02 + 18.50000 27.50000 4.6483610E-02 + 19.50000 27.50000 3.2921817E-02 + 20.50000 27.50000 3.2921817E-02 + 21.50000 27.50000 7.8125000E-03 + 22.50000 27.50000 4.3353830E-03 + 23.50000 27.50000 1.8539429E-03 + 24.50000 27.50000 4.0071011E-03 + 25.50000 27.50000 4.0071011E-03 + 26.50000 27.50000 7.8125000E-03 + 27.50000 27.50000 5.9326172E-02 + 28.50000 27.50000 5.9326172E-02 + 29.50000 27.50000 5.9326172E-02 + 30.50000 27.50000 0.1222364 + 31.50000 27.50000 0.0000000E+00 + 32.50000 27.50000 0.0000000E+00 + 33.50000 27.50000 0.0000000E+00 + 34.50000 27.50000 0.0000000E+00 + 35.50000 27.50000 0.0000000E+00 + 36.50000 27.50000 0.0000000E+00 + 37.50000 27.50000 0.0000000E+00 + 38.50000 27.50000 0.0000000E+00 + 39.50000 27.50000 0.0000000E+00 + 40.50000 27.50000 0.0000000E+00 + 41.50000 27.50000 0.0000000E+00 + 42.50000 27.50000 0.0000000E+00 + 43.50000 27.50000 0.0000000E+00 + 44.50000 27.50000 0.0000000E+00 + 45.50000 27.50000 0.0000000E+00 + 46.50000 27.50000 0.0000000E+00 + 47.50000 27.50000 0.0000000E+00 + 48.50000 27.50000 0.0000000E+00 + 49.50000 27.50000 0.0000000E+00 + 50.50000 27.50000 0.0000000E+00 + 51.50000 27.50000 0.0000000E+00 + 52.50000 27.50000 0.0000000E+00 + 53.50000 27.50000 0.0000000E+00 + 54.50000 27.50000 0.0000000E+00 + 55.50000 27.50000 0.0000000E+00 + 56.50000 27.50000 0.0000000E+00 + 57.50000 27.50000 0.0000000E+00 + 58.50000 27.50000 0.0000000E+00 + 59.50000 27.50000 0.0000000E+00 + 60.50000 27.50000 0.0000000E+00 + 61.50000 27.50000 0.0000000E+00 + 62.50000 27.50000 0.0000000E+00 + 63.50000 27.50000 0.0000000E+00 + 64.50000 27.50000 0.0000000E+00 + 65.50000 27.50000 0.0000000E+00 + 66.50000 27.50000 0.0000000E+00 + 67.50000 27.50000 0.0000000E+00 + 68.50000 27.50000 0.0000000E+00 + 69.50000 27.50000 0.0000000E+00 + 70.50000 27.50000 0.0000000E+00 + 71.50000 27.50000 0.0000000E+00 + 72.50000 27.50000 0.0000000E+00 + 73.50000 27.50000 0.0000000E+00 + 74.50000 27.50000 0.0000000E+00 + 75.50000 27.50000 0.0000000E+00 + 76.50000 27.50000 0.0000000E+00 + 77.50000 27.50000 0.0000000E+00 + 78.50000 27.50000 0.0000000E+00 + 79.50000 27.50000 0.0000000E+00 + 80.50000 27.50000 0.0000000E+00 + 81.50000 27.50000 0.0000000E+00 + 82.50000 27.50000 0.0000000E+00 + 83.50000 27.50000 0.0000000E+00 + 84.50000 27.50000 0.0000000E+00 + 85.50000 27.50000 0.0000000E+00 + 86.50000 27.50000 0.0000000E+00 + 87.50000 27.50000 0.0000000E+00 + 88.50000 27.50000 0.0000000E+00 + 89.50000 27.50000 0.0000000E+00 + -89.50000 28.50000 0.0000000E+00 + -88.50000 28.50000 0.0000000E+00 + -87.50000 28.50000 0.0000000E+00 + -86.50000 28.50000 0.0000000E+00 + -85.50000 28.50000 0.0000000E+00 + -84.50000 28.50000 0.0000000E+00 + -83.50000 28.50000 0.0000000E+00 + -82.50000 28.50000 0.0000000E+00 + -81.50000 28.50000 0.0000000E+00 + -80.50000 28.50000 0.0000000E+00 + -79.50000 28.50000 0.0000000E+00 + -78.50000 28.50000 0.0000000E+00 + -77.50000 28.50000 0.0000000E+00 + -76.50000 28.50000 0.0000000E+00 + -75.50000 28.50000 0.0000000E+00 + -74.50000 28.50000 0.0000000E+00 + -73.50000 28.50000 0.0000000E+00 + -72.50000 28.50000 0.0000000E+00 + -71.50000 28.50000 0.0000000E+00 + -70.50000 28.50000 0.0000000E+00 + -69.50000 28.50000 0.0000000E+00 + -68.50000 28.50000 0.0000000E+00 + -67.50000 28.50000 0.0000000E+00 + -66.50000 28.50000 0.0000000E+00 + -65.50000 28.50000 0.0000000E+00 + -64.50000 28.50000 0.0000000E+00 + -63.50000 28.50000 0.0000000E+00 + -62.50000 28.50000 0.0000000E+00 + -61.50000 28.50000 0.0000000E+00 + -60.50000 28.50000 0.0000000E+00 + -59.50000 28.50000 0.0000000E+00 + -58.50000 28.50000 0.0000000E+00 + -57.50000 28.50000 0.0000000E+00 + -56.50000 28.50000 0.0000000E+00 + -55.50000 28.50000 0.0000000E+00 + -54.50000 28.50000 0.0000000E+00 + -53.50000 28.50000 0.0000000E+00 + -52.50000 28.50000 0.0000000E+00 + -51.50000 28.50000 0.0000000E+00 + -50.50000 28.50000 0.0000000E+00 + -49.50000 28.50000 0.0000000E+00 + -48.50000 28.50000 0.0000000E+00 + -47.50000 28.50000 0.0000000E+00 + -46.50000 28.50000 0.0000000E+00 + -45.50000 28.50000 0.0000000E+00 + -44.50000 28.50000 0.0000000E+00 + -43.50000 28.50000 0.0000000E+00 + -42.50000 28.50000 0.0000000E+00 + -41.50000 28.50000 0.0000000E+00 + -40.50000 28.50000 0.0000000E+00 + -39.50000 28.50000 0.0000000E+00 + -38.50000 28.50000 0.0000000E+00 + -37.50000 28.50000 0.0000000E+00 + -36.50000 28.50000 0.0000000E+00 + -35.50000 28.50000 0.0000000E+00 + -34.50000 28.50000 0.0000000E+00 + -33.50000 28.50000 0.0000000E+00 + -32.50000 28.50000 0.0000000E+00 + -31.50000 28.50000 0.0000000E+00 + -30.50000 28.50000 0.0000000E+00 + -29.50000 28.50000 0.0000000E+00 + -28.50000 28.50000 0.0000000E+00 + -27.50000 28.50000 0.0000000E+00 + -26.50000 28.50000 0.0000000E+00 + -25.50000 28.50000 0.0000000E+00 + -24.50000 28.50000 0.0000000E+00 + -23.50000 28.50000 0.0000000E+00 + -22.50000 28.50000 0.0000000E+00 + -21.50000 28.50000 0.0000000E+00 + -20.50000 28.50000 0.0000000E+00 + -19.50000 28.50000 0.0000000E+00 + -18.50000 28.50000 0.0000000E+00 + -17.50000 28.50000 0.0000000E+00 + -16.50000 28.50000 0.0000000E+00 + -15.50000 28.50000 0.0000000E+00 + -14.50000 28.50000 0.0000000E+00 + -13.50000 28.50000 0.0000000E+00 + -12.50000 28.50000 0.0000000E+00 + -11.50000 28.50000 0.0000000E+00 + -10.50000 28.50000 0.0000000E+00 + -9.500000 28.50000 0.0000000E+00 + -8.500000 28.50000 0.0000000E+00 + -7.500000 28.50000 0.0000000E+00 + -6.500000 28.50000 0.0000000E+00 + -5.500000 28.50000 0.0000000E+00 + -4.500000 28.50000 0.0000000E+00 + -3.500000 28.50000 0.0000000E+00 + -2.500000 28.50000 0.0000000E+00 + -1.500000 28.50000 0.0000000E+00 + -0.5000000 28.50000 0.0000000E+00 + 0.5000000 28.50000 0.0000000E+00 + 1.500000 28.50000 0.0000000E+00 + 2.500000 28.50000 0.0000000E+00 + 3.500000 28.50000 0.0000000E+00 + 4.500000 28.50000 0.0000000E+00 + 5.500000 28.50000 0.0000000E+00 + 6.500000 28.50000 0.0000000E+00 + 7.500000 28.50000 0.0000000E+00 + 8.500000 28.50000 0.0000000E+00 + 9.500000 28.50000 0.0000000E+00 + 10.50000 28.50000 0.0000000E+00 + 11.50000 28.50000 0.0000000E+00 + 12.50000 28.50000 0.0000000E+00 + 13.50000 28.50000 0.0000000E+00 + 14.50000 28.50000 0.0000000E+00 + 15.50000 28.50000 4.6483610E-02 + 16.50000 28.50000 7.4862301E-02 + 17.50000 28.50000 3.2921817E-02 + 18.50000 28.50000 3.2921817E-02 + 19.50000 28.50000 3.2921817E-02 + 20.50000 28.50000 5.3020909E-02 + 21.50000 28.50000 5.3020909E-02 + 22.50000 28.50000 5.3020909E-02 + 23.50000 28.50000 5.3020909E-02 + 24.50000 28.50000 5.3020909E-02 + 25.50000 28.50000 3.2921817E-02 + 26.50000 28.50000 1.9440001E-02 + 27.50000 28.50000 6.6217512E-02 + 28.50000 28.50000 0.1222364 + 29.50000 28.50000 0.1222364 + 30.50000 28.50000 0.1770614 + 31.50000 28.50000 0.0000000E+00 + 32.50000 28.50000 0.0000000E+00 + 33.50000 28.50000 0.0000000E+00 + 34.50000 28.50000 0.0000000E+00 + 35.50000 28.50000 0.0000000E+00 + 36.50000 28.50000 0.0000000E+00 + 37.50000 28.50000 0.0000000E+00 + 38.50000 28.50000 0.0000000E+00 + 39.50000 28.50000 0.0000000E+00 + 40.50000 28.50000 0.0000000E+00 + 41.50000 28.50000 0.0000000E+00 + 42.50000 28.50000 0.0000000E+00 + 43.50000 28.50000 0.0000000E+00 + 44.50000 28.50000 0.0000000E+00 + 45.50000 28.50000 0.0000000E+00 + 46.50000 28.50000 0.0000000E+00 + 47.50000 28.50000 0.0000000E+00 + 48.50000 28.50000 0.0000000E+00 + 49.50000 28.50000 0.0000000E+00 + 50.50000 28.50000 0.0000000E+00 + 51.50000 28.50000 0.0000000E+00 + 52.50000 28.50000 0.0000000E+00 + 53.50000 28.50000 0.0000000E+00 + 54.50000 28.50000 0.0000000E+00 + 55.50000 28.50000 0.0000000E+00 + 56.50000 28.50000 0.0000000E+00 + 57.50000 28.50000 0.0000000E+00 + 58.50000 28.50000 0.0000000E+00 + 59.50000 28.50000 0.0000000E+00 + 60.50000 28.50000 0.0000000E+00 + 61.50000 28.50000 0.0000000E+00 + 62.50000 28.50000 0.0000000E+00 + 63.50000 28.50000 0.0000000E+00 + 64.50000 28.50000 0.0000000E+00 + 65.50000 28.50000 0.0000000E+00 + 66.50000 28.50000 0.0000000E+00 + 67.50000 28.50000 0.0000000E+00 + 68.50000 28.50000 0.0000000E+00 + 69.50000 28.50000 0.0000000E+00 + 70.50000 28.50000 0.0000000E+00 + 71.50000 28.50000 0.0000000E+00 + 72.50000 28.50000 0.0000000E+00 + 73.50000 28.50000 0.0000000E+00 + 74.50000 28.50000 0.0000000E+00 + 75.50000 28.50000 0.0000000E+00 + 76.50000 28.50000 0.0000000E+00 + 77.50000 28.50000 0.0000000E+00 + 78.50000 28.50000 0.0000000E+00 + 79.50000 28.50000 0.0000000E+00 + 80.50000 28.50000 0.0000000E+00 + 81.50000 28.50000 0.0000000E+00 + 82.50000 28.50000 0.0000000E+00 + 83.50000 28.50000 0.0000000E+00 + 84.50000 28.50000 0.0000000E+00 + 85.50000 28.50000 0.0000000E+00 + 86.50000 28.50000 0.0000000E+00 + 87.50000 28.50000 0.0000000E+00 + 88.50000 28.50000 0.0000000E+00 + 89.50000 28.50000 0.0000000E+00 + -89.50000 29.50000 0.0000000E+00 + -88.50000 29.50000 0.0000000E+00 + -87.50000 29.50000 0.0000000E+00 + -86.50000 29.50000 0.0000000E+00 + -85.50000 29.50000 0.0000000E+00 + -84.50000 29.50000 0.0000000E+00 + -83.50000 29.50000 0.0000000E+00 + -82.50000 29.50000 0.0000000E+00 + -81.50000 29.50000 0.0000000E+00 + -80.50000 29.50000 0.0000000E+00 + -79.50000 29.50000 0.0000000E+00 + -78.50000 29.50000 0.0000000E+00 + -77.50000 29.50000 0.0000000E+00 + -76.50000 29.50000 0.0000000E+00 + -75.50000 29.50000 0.0000000E+00 + -74.50000 29.50000 0.0000000E+00 + -73.50000 29.50000 0.0000000E+00 + -72.50000 29.50000 0.0000000E+00 + -71.50000 29.50000 0.0000000E+00 + -70.50000 29.50000 0.0000000E+00 + -69.50000 29.50000 0.0000000E+00 + -68.50000 29.50000 0.0000000E+00 + -67.50000 29.50000 0.0000000E+00 + -66.50000 29.50000 0.0000000E+00 + -65.50000 29.50000 0.0000000E+00 + -64.50000 29.50000 0.0000000E+00 + -63.50000 29.50000 0.0000000E+00 + -62.50000 29.50000 0.0000000E+00 + -61.50000 29.50000 0.0000000E+00 + -60.50000 29.50000 0.0000000E+00 + -59.50000 29.50000 0.0000000E+00 + -58.50000 29.50000 0.0000000E+00 + -57.50000 29.50000 0.0000000E+00 + -56.50000 29.50000 0.0000000E+00 + -55.50000 29.50000 0.0000000E+00 + -54.50000 29.50000 0.0000000E+00 + -53.50000 29.50000 0.0000000E+00 + -52.50000 29.50000 0.0000000E+00 + -51.50000 29.50000 0.0000000E+00 + -50.50000 29.50000 0.0000000E+00 + -49.50000 29.50000 0.0000000E+00 + -48.50000 29.50000 0.0000000E+00 + -47.50000 29.50000 0.0000000E+00 + -46.50000 29.50000 0.0000000E+00 + -45.50000 29.50000 0.0000000E+00 + -44.50000 29.50000 0.0000000E+00 + -43.50000 29.50000 0.0000000E+00 + -42.50000 29.50000 0.0000000E+00 + -41.50000 29.50000 0.0000000E+00 + -40.50000 29.50000 0.0000000E+00 + -39.50000 29.50000 0.0000000E+00 + -38.50000 29.50000 0.0000000E+00 + -37.50000 29.50000 0.0000000E+00 + -36.50000 29.50000 0.0000000E+00 + -35.50000 29.50000 0.0000000E+00 + -34.50000 29.50000 0.0000000E+00 + -33.50000 29.50000 0.0000000E+00 + -32.50000 29.50000 0.0000000E+00 + -31.50000 29.50000 0.0000000E+00 + -30.50000 29.50000 0.0000000E+00 + -29.50000 29.50000 0.0000000E+00 + -28.50000 29.50000 0.0000000E+00 + -27.50000 29.50000 0.0000000E+00 + -26.50000 29.50000 0.0000000E+00 + -25.50000 29.50000 0.0000000E+00 + -24.50000 29.50000 0.0000000E+00 + -23.50000 29.50000 0.0000000E+00 + -22.50000 29.50000 0.0000000E+00 + -21.50000 29.50000 0.0000000E+00 + -20.50000 29.50000 0.0000000E+00 + -19.50000 29.50000 0.0000000E+00 + -18.50000 29.50000 0.0000000E+00 + -17.50000 29.50000 0.0000000E+00 + -16.50000 29.50000 0.0000000E+00 + -15.50000 29.50000 0.0000000E+00 + -14.50000 29.50000 0.0000000E+00 + -13.50000 29.50000 0.0000000E+00 + -12.50000 29.50000 0.0000000E+00 + -11.50000 29.50000 0.0000000E+00 + -10.50000 29.50000 0.0000000E+00 + -9.500000 29.50000 0.0000000E+00 + -8.500000 29.50000 0.0000000E+00 + -7.500000 29.50000 0.0000000E+00 + -6.500000 29.50000 0.0000000E+00 + -5.500000 29.50000 0.0000000E+00 + -4.500000 29.50000 0.0000000E+00 + -3.500000 29.50000 0.0000000E+00 + -2.500000 29.50000 0.0000000E+00 + -1.500000 29.50000 0.0000000E+00 + -0.5000000 29.50000 0.0000000E+00 + 0.5000000 29.50000 0.0000000E+00 + 1.500000 29.50000 0.0000000E+00 + 2.500000 29.50000 0.0000000E+00 + 3.500000 29.50000 0.0000000E+00 + 4.500000 29.50000 0.0000000E+00 + 5.500000 29.50000 0.0000000E+00 + 6.500000 29.50000 0.0000000E+00 + 7.500000 29.50000 0.0000000E+00 + 8.500000 29.50000 0.0000000E+00 + 9.500000 29.50000 0.0000000E+00 + 10.50000 29.50000 0.0000000E+00 + 11.50000 29.50000 0.0000000E+00 + 12.50000 29.50000 0.0000000E+00 + 13.50000 29.50000 0.0000000E+00 + 14.50000 29.50000 0.0000000E+00 + 15.50000 29.50000 3.2921817E-02 + 16.50000 29.50000 4.3812867E-02 + 17.50000 29.50000 3.8397551E-02 + 18.50000 29.50000 5.9326172E-02 + 19.50000 29.50000 5.3020909E-02 + 20.50000 29.50000 5.9326172E-02 + 21.50000 29.50000 5.9326172E-02 + 22.50000 29.50000 5.9326172E-02 + 23.50000 29.50000 5.9326172E-02 + 24.50000 29.50000 5.9326172E-02 + 25.50000 29.50000 3.8397551E-02 + 26.50000 29.50000 7.2759576E-02 + 27.50000 29.50000 8.8523149E-02 + 28.50000 29.50000 8.8523149E-02 + 29.50000 29.50000 0.1282272 + 30.50000 29.50000 0.1810491 + 31.50000 29.50000 0.0000000E+00 + 32.50000 29.50000 0.0000000E+00 + 33.50000 29.50000 0.0000000E+00 + 34.50000 29.50000 0.0000000E+00 + 35.50000 29.50000 0.0000000E+00 + 36.50000 29.50000 0.0000000E+00 + 37.50000 29.50000 0.0000000E+00 + 38.50000 29.50000 0.0000000E+00 + 39.50000 29.50000 0.0000000E+00 + 40.50000 29.50000 0.0000000E+00 + 41.50000 29.50000 0.0000000E+00 + 42.50000 29.50000 0.0000000E+00 + 43.50000 29.50000 0.0000000E+00 + 44.50000 29.50000 0.0000000E+00 + 45.50000 29.50000 0.0000000E+00 + 46.50000 29.50000 0.0000000E+00 + 47.50000 29.50000 0.0000000E+00 + 48.50000 29.50000 0.0000000E+00 + 49.50000 29.50000 0.0000000E+00 + 50.50000 29.50000 0.0000000E+00 + 51.50000 29.50000 0.0000000E+00 + 52.50000 29.50000 0.0000000E+00 + 53.50000 29.50000 0.0000000E+00 + 54.50000 29.50000 0.0000000E+00 + 55.50000 29.50000 0.0000000E+00 + 56.50000 29.50000 0.0000000E+00 + 57.50000 29.50000 0.0000000E+00 + 58.50000 29.50000 0.0000000E+00 + 59.50000 29.50000 0.0000000E+00 + 60.50000 29.50000 0.0000000E+00 + 61.50000 29.50000 0.0000000E+00 + 62.50000 29.50000 0.0000000E+00 + 63.50000 29.50000 0.0000000E+00 + 64.50000 29.50000 0.0000000E+00 + 65.50000 29.50000 0.0000000E+00 + 66.50000 29.50000 0.0000000E+00 + 67.50000 29.50000 0.0000000E+00 + 68.50000 29.50000 0.0000000E+00 + 69.50000 29.50000 0.0000000E+00 + 70.50000 29.50000 0.0000000E+00 + 71.50000 29.50000 0.0000000E+00 + 72.50000 29.50000 0.0000000E+00 + 73.50000 29.50000 0.0000000E+00 + 74.50000 29.50000 0.0000000E+00 + 75.50000 29.50000 0.0000000E+00 + 76.50000 29.50000 0.0000000E+00 + 77.50000 29.50000 0.0000000E+00 + 78.50000 29.50000 0.0000000E+00 + 79.50000 29.50000 0.0000000E+00 + 80.50000 29.50000 0.0000000E+00 + 81.50000 29.50000 0.0000000E+00 + 82.50000 29.50000 0.0000000E+00 + 83.50000 29.50000 0.0000000E+00 + 84.50000 29.50000 0.0000000E+00 + 85.50000 29.50000 0.0000000E+00 + 86.50000 29.50000 0.0000000E+00 + 87.50000 29.50000 0.0000000E+00 + 88.50000 29.50000 0.0000000E+00 + 89.50000 29.50000 0.0000000E+00 + -89.50000 30.50000 0.0000000E+00 + -88.50000 30.50000 0.0000000E+00 + -87.50000 30.50000 0.0000000E+00 + -86.50000 30.50000 0.0000000E+00 + -85.50000 30.50000 0.0000000E+00 + -84.50000 30.50000 0.0000000E+00 + -83.50000 30.50000 0.0000000E+00 + -82.50000 30.50000 0.0000000E+00 + -81.50000 30.50000 0.0000000E+00 + -80.50000 30.50000 0.0000000E+00 + -79.50000 30.50000 0.0000000E+00 + -78.50000 30.50000 0.0000000E+00 + -77.50000 30.50000 0.0000000E+00 + -76.50000 30.50000 0.0000000E+00 + -75.50000 30.50000 0.0000000E+00 + -74.50000 30.50000 0.0000000E+00 + -73.50000 30.50000 0.0000000E+00 + -72.50000 30.50000 0.0000000E+00 + -71.50000 30.50000 0.0000000E+00 + -70.50000 30.50000 0.0000000E+00 + -69.50000 30.50000 0.0000000E+00 + -68.50000 30.50000 0.0000000E+00 + -67.50000 30.50000 0.0000000E+00 + -66.50000 30.50000 0.0000000E+00 + -65.50000 30.50000 0.0000000E+00 + -64.50000 30.50000 0.0000000E+00 + -63.50000 30.50000 0.0000000E+00 + -62.50000 30.50000 0.0000000E+00 + -61.50000 30.50000 0.0000000E+00 + -60.50000 30.50000 0.0000000E+00 + -59.50000 30.50000 0.0000000E+00 + -58.50000 30.50000 0.0000000E+00 + -57.50000 30.50000 0.0000000E+00 + -56.50000 30.50000 0.0000000E+00 + -55.50000 30.50000 0.0000000E+00 + -54.50000 30.50000 0.0000000E+00 + -53.50000 30.50000 0.0000000E+00 + -52.50000 30.50000 0.0000000E+00 + -51.50000 30.50000 0.0000000E+00 + -50.50000 30.50000 0.0000000E+00 + -49.50000 30.50000 0.0000000E+00 + -48.50000 30.50000 0.0000000E+00 + -47.50000 30.50000 0.0000000E+00 + -46.50000 30.50000 0.0000000E+00 + -45.50000 30.50000 0.0000000E+00 + -44.50000 30.50000 0.0000000E+00 + -43.50000 30.50000 0.0000000E+00 + -42.50000 30.50000 0.0000000E+00 + -41.50000 30.50000 0.0000000E+00 + -40.50000 30.50000 0.0000000E+00 + -39.50000 30.50000 0.0000000E+00 + -38.50000 30.50000 0.0000000E+00 + -37.50000 30.50000 0.0000000E+00 + -36.50000 30.50000 0.0000000E+00 + -35.50000 30.50000 0.0000000E+00 + -34.50000 30.50000 0.0000000E+00 + -33.50000 30.50000 0.0000000E+00 + -32.50000 30.50000 0.0000000E+00 + -31.50000 30.50000 0.0000000E+00 + -30.50000 30.50000 0.0000000E+00 + -29.50000 30.50000 0.0000000E+00 + -28.50000 30.50000 0.0000000E+00 + -27.50000 30.50000 0.0000000E+00 + -26.50000 30.50000 0.0000000E+00 + -25.50000 30.50000 0.0000000E+00 + -24.50000 30.50000 0.0000000E+00 + -23.50000 30.50000 0.0000000E+00 + -22.50000 30.50000 0.0000000E+00 + -21.50000 30.50000 0.0000000E+00 + -20.50000 30.50000 0.0000000E+00 + -19.50000 30.50000 0.0000000E+00 + -18.50000 30.50000 0.0000000E+00 + -17.50000 30.50000 0.0000000E+00 + -16.50000 30.50000 0.0000000E+00 + -15.50000 30.50000 0.0000000E+00 + -14.50000 30.50000 0.0000000E+00 + -13.50000 30.50000 0.0000000E+00 + -12.50000 30.50000 0.0000000E+00 + -11.50000 30.50000 0.0000000E+00 + -10.50000 30.50000 0.0000000E+00 + -9.500000 30.50000 0.0000000E+00 + -8.500000 30.50000 0.0000000E+00 + -7.500000 30.50000 0.0000000E+00 + -6.500000 30.50000 0.0000000E+00 + -5.500000 30.50000 0.0000000E+00 + -4.500000 30.50000 0.0000000E+00 + -3.500000 30.50000 0.0000000E+00 + -2.500000 30.50000 0.0000000E+00 + -1.500000 30.50000 0.0000000E+00 + -0.5000000 30.50000 0.0000000E+00 + 0.5000000 30.50000 0.0000000E+00 + 1.500000 30.50000 0.0000000E+00 + 2.500000 30.50000 0.0000000E+00 + 3.500000 30.50000 0.0000000E+00 + 4.500000 30.50000 0.0000000E+00 + 5.500000 30.50000 0.0000000E+00 + 6.500000 30.50000 0.0000000E+00 + 7.500000 30.50000 0.0000000E+00 + 8.500000 30.50000 0.0000000E+00 + 9.500000 30.50000 0.0000000E+00 + 10.50000 30.50000 0.0000000E+00 + 11.50000 30.50000 0.0000000E+00 + 12.50000 30.50000 0.0000000E+00 + 13.50000 30.50000 0.0000000E+00 + 14.50000 30.50000 0.0000000E+00 + 15.50000 30.50000 8.1920013E-02 + 16.50000 30.50000 8.1920013E-02 + 17.50000 30.50000 0.1045530 + 18.50000 30.50000 8.1920013E-02 + 19.50000 30.50000 0.1058698 + 20.50000 30.50000 0.1282272 + 21.50000 30.50000 8.8523149E-02 + 22.50000 30.50000 3.8397551E-02 + 23.50000 30.50000 3.8397551E-02 + 24.50000 30.50000 3.8397551E-02 + 25.50000 30.50000 5.9326172E-02 + 26.50000 30.50000 0.1069077 + 27.50000 30.50000 0.1282272 + 28.50000 30.50000 2.5645448E-02 + 29.50000 30.50000 2.5645448E-02 + 30.50000 30.50000 0.0000000E+00 + 31.50000 30.50000 0.0000000E+00 + 32.50000 30.50000 0.0000000E+00 + 33.50000 30.50000 0.0000000E+00 + 34.50000 30.50000 0.0000000E+00 + 35.50000 30.50000 0.0000000E+00 + 36.50000 30.50000 0.0000000E+00 + 37.50000 30.50000 0.0000000E+00 + 38.50000 30.50000 0.0000000E+00 + 39.50000 30.50000 0.0000000E+00 + 40.50000 30.50000 0.0000000E+00 + 41.50000 30.50000 0.0000000E+00 + 42.50000 30.50000 0.0000000E+00 + 43.50000 30.50000 0.0000000E+00 + 44.50000 30.50000 0.0000000E+00 + 45.50000 30.50000 0.0000000E+00 + 46.50000 30.50000 0.0000000E+00 + 47.50000 30.50000 0.0000000E+00 + 48.50000 30.50000 0.0000000E+00 + 49.50000 30.50000 0.0000000E+00 + 50.50000 30.50000 0.0000000E+00 + 51.50000 30.50000 0.0000000E+00 + 52.50000 30.50000 0.0000000E+00 + 53.50000 30.50000 0.0000000E+00 + 54.50000 30.50000 0.0000000E+00 + 55.50000 30.50000 0.0000000E+00 + 56.50000 30.50000 0.0000000E+00 + 57.50000 30.50000 0.0000000E+00 + 58.50000 30.50000 0.0000000E+00 + 59.50000 30.50000 0.0000000E+00 + 60.50000 30.50000 0.0000000E+00 + 61.50000 30.50000 0.0000000E+00 + 62.50000 30.50000 0.0000000E+00 + 63.50000 30.50000 0.0000000E+00 + 64.50000 30.50000 0.0000000E+00 + 65.50000 30.50000 0.0000000E+00 + 66.50000 30.50000 0.0000000E+00 + 67.50000 30.50000 0.0000000E+00 + 68.50000 30.50000 0.0000000E+00 + 69.50000 30.50000 0.0000000E+00 + 70.50000 30.50000 0.0000000E+00 + 71.50000 30.50000 0.0000000E+00 + 72.50000 30.50000 0.0000000E+00 + 73.50000 30.50000 0.0000000E+00 + 74.50000 30.50000 0.0000000E+00 + 75.50000 30.50000 0.0000000E+00 + 76.50000 30.50000 0.0000000E+00 + 77.50000 30.50000 0.0000000E+00 + 78.50000 30.50000 0.0000000E+00 + 79.50000 30.50000 0.0000000E+00 + 80.50000 30.50000 0.0000000E+00 + 81.50000 30.50000 0.0000000E+00 + 82.50000 30.50000 0.0000000E+00 + 83.50000 30.50000 0.0000000E+00 + 84.50000 30.50000 0.0000000E+00 + 85.50000 30.50000 0.0000000E+00 + 86.50000 30.50000 0.0000000E+00 + 87.50000 30.50000 0.0000000E+00 + 88.50000 30.50000 0.0000000E+00 + 89.50000 30.50000 0.0000000E+00 + -89.50000 31.50000 0.0000000E+00 + -88.50000 31.50000 0.0000000E+00 + -87.50000 31.50000 0.0000000E+00 + -86.50000 31.50000 0.0000000E+00 + -85.50000 31.50000 0.0000000E+00 + -84.50000 31.50000 0.0000000E+00 + -83.50000 31.50000 0.0000000E+00 + -82.50000 31.50000 0.0000000E+00 + -81.50000 31.50000 0.0000000E+00 + -80.50000 31.50000 0.0000000E+00 + -79.50000 31.50000 0.0000000E+00 + -78.50000 31.50000 0.0000000E+00 + -77.50000 31.50000 0.0000000E+00 + -76.50000 31.50000 0.0000000E+00 + -75.50000 31.50000 0.0000000E+00 + -74.50000 31.50000 0.0000000E+00 + -73.50000 31.50000 0.0000000E+00 + -72.50000 31.50000 0.0000000E+00 + -71.50000 31.50000 0.0000000E+00 + -70.50000 31.50000 0.0000000E+00 + -69.50000 31.50000 0.0000000E+00 + -68.50000 31.50000 0.0000000E+00 + -67.50000 31.50000 0.0000000E+00 + -66.50000 31.50000 0.0000000E+00 + -65.50000 31.50000 0.0000000E+00 + -64.50000 31.50000 0.0000000E+00 + -63.50000 31.50000 0.0000000E+00 + -62.50000 31.50000 0.0000000E+00 + -61.50000 31.50000 0.0000000E+00 + -60.50000 31.50000 0.0000000E+00 + -59.50000 31.50000 0.0000000E+00 + -58.50000 31.50000 0.0000000E+00 + -57.50000 31.50000 0.0000000E+00 + -56.50000 31.50000 0.0000000E+00 + -55.50000 31.50000 0.0000000E+00 + -54.50000 31.50000 0.0000000E+00 + -53.50000 31.50000 0.0000000E+00 + -52.50000 31.50000 0.0000000E+00 + -51.50000 31.50000 0.0000000E+00 + -50.50000 31.50000 0.0000000E+00 + -49.50000 31.50000 0.0000000E+00 + -48.50000 31.50000 0.0000000E+00 + -47.50000 31.50000 0.0000000E+00 + -46.50000 31.50000 0.0000000E+00 + -45.50000 31.50000 0.0000000E+00 + -44.50000 31.50000 0.0000000E+00 + -43.50000 31.50000 0.0000000E+00 + -42.50000 31.50000 0.0000000E+00 + -41.50000 31.50000 0.0000000E+00 + -40.50000 31.50000 0.0000000E+00 + -39.50000 31.50000 0.0000000E+00 + -38.50000 31.50000 0.0000000E+00 + -37.50000 31.50000 0.0000000E+00 + -36.50000 31.50000 0.0000000E+00 + -35.50000 31.50000 0.0000000E+00 + -34.50000 31.50000 0.0000000E+00 + -33.50000 31.50000 0.0000000E+00 + -32.50000 31.50000 0.0000000E+00 + -31.50000 31.50000 0.0000000E+00 + -30.50000 31.50000 0.0000000E+00 + -29.50000 31.50000 0.0000000E+00 + -28.50000 31.50000 0.0000000E+00 + -27.50000 31.50000 0.0000000E+00 + -26.50000 31.50000 0.0000000E+00 + -25.50000 31.50000 0.0000000E+00 + -24.50000 31.50000 0.0000000E+00 + -23.50000 31.50000 0.0000000E+00 + -22.50000 31.50000 0.0000000E+00 + -21.50000 31.50000 0.0000000E+00 + -20.50000 31.50000 0.0000000E+00 + -19.50000 31.50000 0.0000000E+00 + -18.50000 31.50000 0.0000000E+00 + -17.50000 31.50000 0.0000000E+00 + -16.50000 31.50000 0.0000000E+00 + -15.50000 31.50000 0.0000000E+00 + -14.50000 31.50000 0.0000000E+00 + -13.50000 31.50000 0.0000000E+00 + -12.50000 31.50000 0.0000000E+00 + -11.50000 31.50000 0.0000000E+00 + -10.50000 31.50000 0.0000000E+00 + -9.500000 31.50000 0.0000000E+00 + -8.500000 31.50000 0.0000000E+00 + -7.500000 31.50000 0.0000000E+00 + -6.500000 31.50000 0.0000000E+00 + -5.500000 31.50000 0.0000000E+00 + -4.500000 31.50000 0.0000000E+00 + -3.500000 31.50000 0.0000000E+00 + -2.500000 31.50000 0.0000000E+00 + -1.500000 31.50000 0.0000000E+00 + -0.5000000 31.50000 0.0000000E+00 + 0.5000000 31.50000 0.0000000E+00 + 1.500000 31.50000 0.0000000E+00 + 2.500000 31.50000 0.0000000E+00 + 3.500000 31.50000 0.0000000E+00 + 4.500000 31.50000 0.0000000E+00 + 5.500000 31.50000 0.0000000E+00 + 6.500000 31.50000 0.0000000E+00 + 7.500000 31.50000 0.0000000E+00 + 8.500000 31.50000 0.0000000E+00 + 9.500000 31.50000 0.0000000E+00 + 10.50000 31.50000 0.0000000E+00 + 11.50000 31.50000 0.0000000E+00 + 12.50000 31.50000 0.0000000E+00 + 13.50000 31.50000 2.0910595E-02 + 14.50000 31.50000 0.1045530 + 15.50000 31.50000 8.1920013E-02 + 16.50000 31.50000 8.1920013E-02 + 17.50000 31.50000 0.1045530 + 18.50000 31.50000 0.1156661 + 19.50000 31.50000 8.6913683E-02 + 20.50000 31.50000 8.6913683E-02 + 21.50000 31.50000 7.2759576E-02 + 22.50000 31.50000 5.9326172E-02 + 23.50000 31.50000 4.7954492E-02 + 24.50000 31.50000 5.9326172E-02 + 25.50000 31.50000 7.2759576E-02 + 26.50000 31.50000 0.1282272 + 27.50000 31.50000 0.1069077 + 28.50000 31.50000 5.9326172E-02 + 29.50000 31.50000 2.5645448E-02 + 30.50000 31.50000 0.1810491 + 31.50000 31.50000 0.0000000E+00 + 32.50000 31.50000 0.0000000E+00 + 33.50000 31.50000 0.0000000E+00 + 34.50000 31.50000 0.0000000E+00 + 35.50000 31.50000 0.0000000E+00 + 36.50000 31.50000 0.0000000E+00 + 37.50000 31.50000 0.0000000E+00 + 38.50000 31.50000 0.0000000E+00 + 39.50000 31.50000 0.0000000E+00 + 40.50000 31.50000 0.0000000E+00 + 41.50000 31.50000 0.0000000E+00 + 42.50000 31.50000 0.0000000E+00 + 43.50000 31.50000 0.0000000E+00 + 44.50000 31.50000 0.0000000E+00 + 45.50000 31.50000 0.0000000E+00 + 46.50000 31.50000 0.0000000E+00 + 47.50000 31.50000 0.0000000E+00 + 48.50000 31.50000 0.0000000E+00 + 49.50000 31.50000 0.0000000E+00 + 50.50000 31.50000 0.0000000E+00 + 51.50000 31.50000 0.0000000E+00 + 52.50000 31.50000 0.0000000E+00 + 53.50000 31.50000 0.0000000E+00 + 54.50000 31.50000 0.0000000E+00 + 55.50000 31.50000 0.0000000E+00 + 56.50000 31.50000 0.0000000E+00 + 57.50000 31.50000 0.0000000E+00 + 58.50000 31.50000 0.0000000E+00 + 59.50000 31.50000 0.0000000E+00 + 60.50000 31.50000 0.0000000E+00 + 61.50000 31.50000 0.0000000E+00 + 62.50000 31.50000 0.0000000E+00 + 63.50000 31.50000 0.0000000E+00 + 64.50000 31.50000 0.0000000E+00 + 65.50000 31.50000 0.0000000E+00 + 66.50000 31.50000 0.0000000E+00 + 67.50000 31.50000 0.0000000E+00 + 68.50000 31.50000 0.0000000E+00 + 69.50000 31.50000 0.0000000E+00 + 70.50000 31.50000 0.0000000E+00 + 71.50000 31.50000 0.0000000E+00 + 72.50000 31.50000 0.0000000E+00 + 73.50000 31.50000 0.0000000E+00 + 74.50000 31.50000 0.0000000E+00 + 75.50000 31.50000 0.0000000E+00 + 76.50000 31.50000 0.0000000E+00 + 77.50000 31.50000 0.0000000E+00 + 78.50000 31.50000 0.0000000E+00 + 79.50000 31.50000 0.0000000E+00 + 80.50000 31.50000 0.0000000E+00 + 81.50000 31.50000 0.0000000E+00 + 82.50000 31.50000 0.0000000E+00 + 83.50000 31.50000 0.0000000E+00 + 84.50000 31.50000 0.0000000E+00 + 85.50000 31.50000 0.0000000E+00 + 86.50000 31.50000 0.0000000E+00 + 87.50000 31.50000 0.0000000E+00 + 88.50000 31.50000 0.0000000E+00 + 89.50000 31.50000 0.0000000E+00 + -89.50000 32.50000 0.0000000E+00 + -88.50000 32.50000 0.0000000E+00 + -87.50000 32.50000 0.0000000E+00 + -86.50000 32.50000 0.0000000E+00 + -85.50000 32.50000 0.0000000E+00 + -84.50000 32.50000 0.0000000E+00 + -83.50000 32.50000 0.0000000E+00 + -82.50000 32.50000 0.0000000E+00 + -81.50000 32.50000 0.0000000E+00 + -80.50000 32.50000 0.0000000E+00 + -79.50000 32.50000 0.0000000E+00 + -78.50000 32.50000 0.0000000E+00 + -77.50000 32.50000 0.0000000E+00 + -76.50000 32.50000 0.0000000E+00 + -75.50000 32.50000 0.0000000E+00 + -74.50000 32.50000 0.0000000E+00 + -73.50000 32.50000 0.0000000E+00 + -72.50000 32.50000 0.0000000E+00 + -71.50000 32.50000 0.0000000E+00 + -70.50000 32.50000 0.0000000E+00 + -69.50000 32.50000 0.0000000E+00 + -68.50000 32.50000 0.0000000E+00 + -67.50000 32.50000 0.0000000E+00 + -66.50000 32.50000 0.0000000E+00 + -65.50000 32.50000 0.0000000E+00 + -64.50000 32.50000 0.0000000E+00 + -63.50000 32.50000 0.0000000E+00 + -62.50000 32.50000 0.0000000E+00 + -61.50000 32.50000 0.0000000E+00 + -60.50000 32.50000 0.0000000E+00 + -59.50000 32.50000 0.0000000E+00 + -58.50000 32.50000 0.0000000E+00 + -57.50000 32.50000 0.0000000E+00 + -56.50000 32.50000 0.0000000E+00 + -55.50000 32.50000 0.0000000E+00 + -54.50000 32.50000 0.0000000E+00 + -53.50000 32.50000 0.0000000E+00 + -52.50000 32.50000 0.0000000E+00 + -51.50000 32.50000 0.0000000E+00 + -50.50000 32.50000 0.0000000E+00 + -49.50000 32.50000 0.0000000E+00 + -48.50000 32.50000 0.0000000E+00 + -47.50000 32.50000 0.0000000E+00 + -46.50000 32.50000 0.0000000E+00 + -45.50000 32.50000 0.0000000E+00 + -44.50000 32.50000 0.0000000E+00 + -43.50000 32.50000 0.0000000E+00 + -42.50000 32.50000 0.0000000E+00 + -41.50000 32.50000 0.0000000E+00 + -40.50000 32.50000 0.0000000E+00 + -39.50000 32.50000 0.0000000E+00 + -38.50000 32.50000 0.0000000E+00 + -37.50000 32.50000 0.0000000E+00 + -36.50000 32.50000 0.0000000E+00 + -35.50000 32.50000 0.0000000E+00 + -34.50000 32.50000 0.0000000E+00 + -33.50000 32.50000 0.0000000E+00 + -32.50000 32.50000 0.0000000E+00 + -31.50000 32.50000 0.0000000E+00 + -30.50000 32.50000 0.0000000E+00 + -29.50000 32.50000 0.0000000E+00 + -28.50000 32.50000 0.0000000E+00 + -27.50000 32.50000 0.0000000E+00 + -26.50000 32.50000 0.0000000E+00 + -25.50000 32.50000 0.0000000E+00 + -24.50000 32.50000 0.0000000E+00 + -23.50000 32.50000 0.0000000E+00 + -22.50000 32.50000 0.0000000E+00 + -21.50000 32.50000 0.0000000E+00 + -20.50000 32.50000 0.0000000E+00 + -19.50000 32.50000 0.0000000E+00 + -18.50000 32.50000 0.0000000E+00 + -17.50000 32.50000 0.0000000E+00 + -16.50000 32.50000 0.0000000E+00 + -15.50000 32.50000 0.0000000E+00 + -14.50000 32.50000 0.0000000E+00 + -13.50000 32.50000 0.0000000E+00 + -12.50000 32.50000 0.0000000E+00 + -11.50000 32.50000 0.0000000E+00 + -10.50000 32.50000 0.0000000E+00 + -9.500000 32.50000 0.0000000E+00 + -8.500000 32.50000 0.0000000E+00 + -7.500000 32.50000 0.0000000E+00 + -6.500000 32.50000 0.0000000E+00 + -5.500000 32.50000 0.0000000E+00 + -4.500000 32.50000 0.0000000E+00 + -3.500000 32.50000 0.0000000E+00 + -2.500000 32.50000 0.0000000E+00 + -1.500000 32.50000 0.0000000E+00 + -0.5000000 32.50000 0.0000000E+00 + 0.5000000 32.50000 0.0000000E+00 + 1.500000 32.50000 0.0000000E+00 + 2.500000 32.50000 0.0000000E+00 + 3.500000 32.50000 0.0000000E+00 + 4.500000 32.50000 0.0000000E+00 + 5.500000 32.50000 0.0000000E+00 + 6.500000 32.50000 0.0000000E+00 + 7.500000 32.50000 0.0000000E+00 + 8.500000 32.50000 0.0000000E+00 + 9.500000 32.50000 0.0000000E+00 + 10.50000 32.50000 0.0000000E+00 + 11.50000 32.50000 0.0000000E+00 + 12.50000 32.50000 0.0000000E+00 + 13.50000 32.50000 0.0000000E+00 + 14.50000 32.50000 2.0910595E-02 + 15.50000 32.50000 2.0910595E-02 + 16.50000 32.50000 0.1045530 + 17.50000 32.50000 0.1045530 + 18.50000 32.50000 8.6913683E-02 + 19.50000 32.50000 8.6913683E-02 + 20.50000 32.50000 6.4186469E-02 + 21.50000 32.50000 5.9326172E-02 + 22.50000 32.50000 0.1282272 + 23.50000 32.50000 0.1150649 + 24.50000 32.50000 0.1282272 + 25.50000 32.50000 2.5645448E-02 + 26.50000 32.50000 1.7704630E-02 + 27.50000 32.50000 7.8125000E-03 + 28.50000 32.50000 2.3841858E-02 + 29.50000 32.50000 8.8523149E-02 + 30.50000 32.50000 0.1282272 + 31.50000 32.50000 0.0000000E+00 + 32.50000 32.50000 0.0000000E+00 + 33.50000 32.50000 0.0000000E+00 + 34.50000 32.50000 0.0000000E+00 + 35.50000 32.50000 0.0000000E+00 + 36.50000 32.50000 0.0000000E+00 + 37.50000 32.50000 0.0000000E+00 + 38.50000 32.50000 0.0000000E+00 + 39.50000 32.50000 0.0000000E+00 + 40.50000 32.50000 0.0000000E+00 + 41.50000 32.50000 0.0000000E+00 + 42.50000 32.50000 0.0000000E+00 + 43.50000 32.50000 0.0000000E+00 + 44.50000 32.50000 0.0000000E+00 + 45.50000 32.50000 0.0000000E+00 + 46.50000 32.50000 0.0000000E+00 + 47.50000 32.50000 0.0000000E+00 + 48.50000 32.50000 0.0000000E+00 + 49.50000 32.50000 0.0000000E+00 + 50.50000 32.50000 0.0000000E+00 + 51.50000 32.50000 0.0000000E+00 + 52.50000 32.50000 0.0000000E+00 + 53.50000 32.50000 0.0000000E+00 + 54.50000 32.50000 0.0000000E+00 + 55.50000 32.50000 0.0000000E+00 + 56.50000 32.50000 0.0000000E+00 + 57.50000 32.50000 0.0000000E+00 + 58.50000 32.50000 0.0000000E+00 + 59.50000 32.50000 0.0000000E+00 + 60.50000 32.50000 0.0000000E+00 + 61.50000 32.50000 0.0000000E+00 + 62.50000 32.50000 0.0000000E+00 + 63.50000 32.50000 0.0000000E+00 + 64.50000 32.50000 0.0000000E+00 + 65.50000 32.50000 0.0000000E+00 + 66.50000 32.50000 0.0000000E+00 + 67.50000 32.50000 0.0000000E+00 + 68.50000 32.50000 0.0000000E+00 + 69.50000 32.50000 0.0000000E+00 + 70.50000 32.50000 0.0000000E+00 + 71.50000 32.50000 0.0000000E+00 + 72.50000 32.50000 0.0000000E+00 + 73.50000 32.50000 0.0000000E+00 + 74.50000 32.50000 0.0000000E+00 + 75.50000 32.50000 0.0000000E+00 + 76.50000 32.50000 0.0000000E+00 + 77.50000 32.50000 0.0000000E+00 + 78.50000 32.50000 0.0000000E+00 + 79.50000 32.50000 0.0000000E+00 + 80.50000 32.50000 0.0000000E+00 + 81.50000 32.50000 0.0000000E+00 + 82.50000 32.50000 0.0000000E+00 + 83.50000 32.50000 0.0000000E+00 + 84.50000 32.50000 0.0000000E+00 + 85.50000 32.50000 0.0000000E+00 + 86.50000 32.50000 0.0000000E+00 + 87.50000 32.50000 0.0000000E+00 + 88.50000 32.50000 0.0000000E+00 + 89.50000 32.50000 0.0000000E+00 + -89.50000 33.50000 0.0000000E+00 + -88.50000 33.50000 0.0000000E+00 + -87.50000 33.50000 0.0000000E+00 + -86.50000 33.50000 0.0000000E+00 + -85.50000 33.50000 0.0000000E+00 + -84.50000 33.50000 0.0000000E+00 + -83.50000 33.50000 0.0000000E+00 + -82.50000 33.50000 0.0000000E+00 + -81.50000 33.50000 0.0000000E+00 + -80.50000 33.50000 0.0000000E+00 + -79.50000 33.50000 0.0000000E+00 + -78.50000 33.50000 0.0000000E+00 + -77.50000 33.50000 0.0000000E+00 + -76.50000 33.50000 0.0000000E+00 + -75.50000 33.50000 0.0000000E+00 + -74.50000 33.50000 0.0000000E+00 + -73.50000 33.50000 0.0000000E+00 + -72.50000 33.50000 0.0000000E+00 + -71.50000 33.50000 0.0000000E+00 + -70.50000 33.50000 0.0000000E+00 + -69.50000 33.50000 0.0000000E+00 + -68.50000 33.50000 0.0000000E+00 + -67.50000 33.50000 0.0000000E+00 + -66.50000 33.50000 0.0000000E+00 + -65.50000 33.50000 0.0000000E+00 + -64.50000 33.50000 0.0000000E+00 + -63.50000 33.50000 0.0000000E+00 + -62.50000 33.50000 0.0000000E+00 + -61.50000 33.50000 0.0000000E+00 + -60.50000 33.50000 0.0000000E+00 + -59.50000 33.50000 0.0000000E+00 + -58.50000 33.50000 0.0000000E+00 + -57.50000 33.50000 0.0000000E+00 + -56.50000 33.50000 0.0000000E+00 + -55.50000 33.50000 0.0000000E+00 + -54.50000 33.50000 0.0000000E+00 + -53.50000 33.50000 0.0000000E+00 + -52.50000 33.50000 0.0000000E+00 + -51.50000 33.50000 0.0000000E+00 + -50.50000 33.50000 0.0000000E+00 + -49.50000 33.50000 0.0000000E+00 + -48.50000 33.50000 0.0000000E+00 + -47.50000 33.50000 0.0000000E+00 + -46.50000 33.50000 0.0000000E+00 + -45.50000 33.50000 0.0000000E+00 + -44.50000 33.50000 0.0000000E+00 + -43.50000 33.50000 0.0000000E+00 + -42.50000 33.50000 0.0000000E+00 + -41.50000 33.50000 0.0000000E+00 + -40.50000 33.50000 0.0000000E+00 + -39.50000 33.50000 0.0000000E+00 + -38.50000 33.50000 0.0000000E+00 + -37.50000 33.50000 0.0000000E+00 + -36.50000 33.50000 0.0000000E+00 + -35.50000 33.50000 0.0000000E+00 + -34.50000 33.50000 0.0000000E+00 + -33.50000 33.50000 0.0000000E+00 + -32.50000 33.50000 0.0000000E+00 + -31.50000 33.50000 0.0000000E+00 + -30.50000 33.50000 0.0000000E+00 + -29.50000 33.50000 0.0000000E+00 + -28.50000 33.50000 0.0000000E+00 + -27.50000 33.50000 0.0000000E+00 + -26.50000 33.50000 0.0000000E+00 + -25.50000 33.50000 0.0000000E+00 + -24.50000 33.50000 0.0000000E+00 + -23.50000 33.50000 0.0000000E+00 + -22.50000 33.50000 0.0000000E+00 + -21.50000 33.50000 0.0000000E+00 + -20.50000 33.50000 0.0000000E+00 + -19.50000 33.50000 0.0000000E+00 + -18.50000 33.50000 0.0000000E+00 + -17.50000 33.50000 0.0000000E+00 + -16.50000 33.50000 0.0000000E+00 + -15.50000 33.50000 0.0000000E+00 + -14.50000 33.50000 0.0000000E+00 + -13.50000 33.50000 0.0000000E+00 + -12.50000 33.50000 0.0000000E+00 + -11.50000 33.50000 0.0000000E+00 + -10.50000 33.50000 0.0000000E+00 + -9.500000 33.50000 0.0000000E+00 + -8.500000 33.50000 0.0000000E+00 + -7.500000 33.50000 0.0000000E+00 + -6.500000 33.50000 0.0000000E+00 + -5.500000 33.50000 0.0000000E+00 + -4.500000 33.50000 0.0000000E+00 + -3.500000 33.50000 0.0000000E+00 + -2.500000 33.50000 0.0000000E+00 + -1.500000 33.50000 0.0000000E+00 + -0.5000000 33.50000 0.0000000E+00 + 0.5000000 33.50000 0.0000000E+00 + 1.500000 33.50000 0.0000000E+00 + 2.500000 33.50000 0.0000000E+00 + 3.500000 33.50000 0.0000000E+00 + 4.500000 33.50000 0.0000000E+00 + 5.500000 33.50000 0.0000000E+00 + 6.500000 33.50000 0.0000000E+00 + 7.500000 33.50000 0.0000000E+00 + 8.500000 33.50000 0.0000000E+00 + 9.500000 33.50000 0.0000000E+00 + 10.50000 33.50000 0.0000000E+00 + 11.50000 33.50000 0.0000000E+00 + 12.50000 33.50000 0.0000000E+00 + 13.50000 33.50000 0.0000000E+00 + 14.50000 33.50000 0.0000000E+00 + 15.50000 33.50000 0.1045530 + 16.50000 33.50000 2.0910595E-02 + 17.50000 33.50000 0.1045530 + 18.50000 33.50000 8.6913683E-02 + 19.50000 33.50000 8.6913683E-02 + 20.50000 33.50000 6.4186469E-02 + 21.50000 33.50000 3.8397551E-02 + 22.50000 33.50000 4.7954492E-02 + 23.50000 33.50000 5.9326172E-02 + 24.50000 33.50000 5.9326172E-02 + 25.50000 33.50000 2.3841858E-02 + 26.50000 33.50000 2.3841858E-02 + 27.50000 33.50000 0.1069077 + 28.50000 33.50000 5.9326172E-02 + 29.50000 33.50000 1.4078379E-02 + 30.50000 33.50000 8.8523149E-02 + 31.50000 33.50000 0.0000000E+00 + 32.50000 33.50000 0.0000000E+00 + 33.50000 33.50000 0.0000000E+00 + 34.50000 33.50000 0.0000000E+00 + 35.50000 33.50000 0.0000000E+00 + 36.50000 33.50000 0.0000000E+00 + 37.50000 33.50000 1.9716832E-03 + 38.50000 33.50000 3.0463503E-03 + 39.50000 33.50000 0.0000000E+00 + 40.50000 33.50000 0.0000000E+00 + 41.50000 33.50000 0.0000000E+00 + 42.50000 33.50000 0.0000000E+00 + 43.50000 33.50000 0.0000000E+00 + 44.50000 33.50000 0.0000000E+00 + 45.50000 33.50000 0.0000000E+00 + 46.50000 33.50000 0.0000000E+00 + 47.50000 33.50000 0.0000000E+00 + 48.50000 33.50000 0.0000000E+00 + 49.50000 33.50000 0.0000000E+00 + 50.50000 33.50000 0.0000000E+00 + 51.50000 33.50000 0.0000000E+00 + 52.50000 33.50000 0.0000000E+00 + 53.50000 33.50000 0.0000000E+00 + 54.50000 33.50000 0.0000000E+00 + 55.50000 33.50000 0.0000000E+00 + 56.50000 33.50000 0.0000000E+00 + 57.50000 33.50000 0.0000000E+00 + 58.50000 33.50000 0.0000000E+00 + 59.50000 33.50000 0.0000000E+00 + 60.50000 33.50000 0.0000000E+00 + 61.50000 33.50000 0.0000000E+00 + 62.50000 33.50000 0.0000000E+00 + 63.50000 33.50000 0.0000000E+00 + 64.50000 33.50000 0.0000000E+00 + 65.50000 33.50000 0.0000000E+00 + 66.50000 33.50000 0.0000000E+00 + 67.50000 33.50000 0.0000000E+00 + 68.50000 33.50000 0.0000000E+00 + 69.50000 33.50000 0.0000000E+00 + 70.50000 33.50000 0.0000000E+00 + 71.50000 33.50000 0.0000000E+00 + 72.50000 33.50000 0.0000000E+00 + 73.50000 33.50000 0.0000000E+00 + 74.50000 33.50000 0.0000000E+00 + 75.50000 33.50000 0.0000000E+00 + 76.50000 33.50000 0.0000000E+00 + 77.50000 33.50000 0.0000000E+00 + 78.50000 33.50000 0.0000000E+00 + 79.50000 33.50000 0.0000000E+00 + 80.50000 33.50000 0.0000000E+00 + 81.50000 33.50000 0.0000000E+00 + 82.50000 33.50000 0.0000000E+00 + 83.50000 33.50000 0.0000000E+00 + 84.50000 33.50000 0.0000000E+00 + 85.50000 33.50000 0.0000000E+00 + 86.50000 33.50000 0.0000000E+00 + 87.50000 33.50000 0.0000000E+00 + 88.50000 33.50000 0.0000000E+00 + 89.50000 33.50000 0.0000000E+00 + -89.50000 34.50000 0.0000000E+00 + -88.50000 34.50000 0.0000000E+00 + -87.50000 34.50000 0.0000000E+00 + -86.50000 34.50000 0.0000000E+00 + -85.50000 34.50000 0.0000000E+00 + -84.50000 34.50000 0.0000000E+00 + -83.50000 34.50000 0.0000000E+00 + -82.50000 34.50000 0.0000000E+00 + -81.50000 34.50000 0.0000000E+00 + -80.50000 34.50000 0.0000000E+00 + -79.50000 34.50000 0.0000000E+00 + -78.50000 34.50000 0.0000000E+00 + -77.50000 34.50000 0.0000000E+00 + -76.50000 34.50000 0.0000000E+00 + -75.50000 34.50000 0.0000000E+00 + -74.50000 34.50000 0.0000000E+00 + -73.50000 34.50000 0.0000000E+00 + -72.50000 34.50000 0.0000000E+00 + -71.50000 34.50000 0.0000000E+00 + -70.50000 34.50000 0.0000000E+00 + -69.50000 34.50000 0.0000000E+00 + -68.50000 34.50000 0.0000000E+00 + -67.50000 34.50000 0.0000000E+00 + -66.50000 34.50000 0.0000000E+00 + -65.50000 34.50000 0.0000000E+00 + -64.50000 34.50000 0.0000000E+00 + -63.50000 34.50000 0.0000000E+00 + -62.50000 34.50000 0.0000000E+00 + -61.50000 34.50000 0.0000000E+00 + -60.50000 34.50000 0.0000000E+00 + -59.50000 34.50000 0.0000000E+00 + -58.50000 34.50000 0.0000000E+00 + -57.50000 34.50000 0.0000000E+00 + -56.50000 34.50000 0.0000000E+00 + -55.50000 34.50000 0.0000000E+00 + -54.50000 34.50000 0.0000000E+00 + -53.50000 34.50000 0.0000000E+00 + -52.50000 34.50000 0.0000000E+00 + -51.50000 34.50000 0.0000000E+00 + -50.50000 34.50000 0.0000000E+00 + -49.50000 34.50000 0.0000000E+00 + -48.50000 34.50000 0.0000000E+00 + -47.50000 34.50000 0.0000000E+00 + -46.50000 34.50000 0.0000000E+00 + -45.50000 34.50000 0.0000000E+00 + -44.50000 34.50000 0.0000000E+00 + -43.50000 34.50000 0.0000000E+00 + -42.50000 34.50000 0.0000000E+00 + -41.50000 34.50000 0.0000000E+00 + -40.50000 34.50000 0.0000000E+00 + -39.50000 34.50000 0.0000000E+00 + -38.50000 34.50000 0.0000000E+00 + -37.50000 34.50000 0.0000000E+00 + -36.50000 34.50000 0.0000000E+00 + -35.50000 34.50000 0.0000000E+00 + -34.50000 34.50000 0.0000000E+00 + -33.50000 34.50000 0.0000000E+00 + -32.50000 34.50000 0.0000000E+00 + -31.50000 34.50000 0.0000000E+00 + -30.50000 34.50000 0.0000000E+00 + -29.50000 34.50000 0.0000000E+00 + -28.50000 34.50000 0.0000000E+00 + -27.50000 34.50000 0.0000000E+00 + -26.50000 34.50000 0.0000000E+00 + -25.50000 34.50000 0.0000000E+00 + -24.50000 34.50000 0.0000000E+00 + -23.50000 34.50000 0.0000000E+00 + -22.50000 34.50000 0.0000000E+00 + -21.50000 34.50000 0.0000000E+00 + -20.50000 34.50000 0.0000000E+00 + -19.50000 34.50000 0.0000000E+00 + -18.50000 34.50000 0.0000000E+00 + -17.50000 34.50000 0.0000000E+00 + -16.50000 34.50000 0.0000000E+00 + -15.50000 34.50000 0.0000000E+00 + -14.50000 34.50000 0.0000000E+00 + -13.50000 34.50000 0.0000000E+00 + -12.50000 34.50000 0.0000000E+00 + -11.50000 34.50000 0.0000000E+00 + -10.50000 34.50000 0.0000000E+00 + -9.500000 34.50000 0.0000000E+00 + -8.500000 34.50000 0.0000000E+00 + -7.500000 34.50000 0.0000000E+00 + -6.500000 34.50000 0.0000000E+00 + -5.500000 34.50000 0.0000000E+00 + -4.500000 34.50000 0.0000000E+00 + -3.500000 34.50000 0.0000000E+00 + -2.500000 34.50000 0.0000000E+00 + -1.500000 34.50000 0.0000000E+00 + -0.5000000 34.50000 0.0000000E+00 + 0.5000000 34.50000 0.0000000E+00 + 1.500000 34.50000 0.0000000E+00 + 2.500000 34.50000 0.0000000E+00 + 3.500000 34.50000 0.0000000E+00 + 4.500000 34.50000 0.0000000E+00 + 5.500000 34.50000 0.0000000E+00 + 6.500000 34.50000 0.0000000E+00 + 7.500000 34.50000 0.0000000E+00 + 8.500000 34.50000 0.0000000E+00 + 9.500000 34.50000 0.0000000E+00 + 10.50000 34.50000 0.0000000E+00 + 11.50000 34.50000 0.0000000E+00 + 12.50000 34.50000 0.0000000E+00 + 13.50000 34.50000 0.0000000E+00 + 14.50000 34.50000 0.0000000E+00 + 15.50000 34.50000 8.1920013E-02 + 16.50000 34.50000 0.1045530 + 17.50000 34.50000 0.1045530 + 18.50000 34.50000 6.4186469E-02 + 19.50000 34.50000 6.4186469E-02 + 20.50000 34.50000 6.4186469E-02 + 21.50000 34.50000 5.9326172E-02 + 22.50000 34.50000 5.0076056E-02 + 23.50000 34.50000 4.2017497E-02 + 24.50000 34.50000 1.9440001E-02 + 25.50000 34.50000 0.1934452 + 26.50000 34.50000 0.0000000E+00 + 27.50000 34.50000 0.0000000E+00 + 28.50000 34.50000 8.1920013E-02 + 29.50000 34.50000 5.9326172E-02 + 30.50000 34.50000 5.9326172E-02 + 31.50000 34.50000 0.1618070 + 32.50000 34.50000 0.0000000E+00 + 33.50000 34.50000 0.0000000E+00 + 34.50000 34.50000 0.0000000E+00 + 35.50000 34.50000 0.0000000E+00 + 36.50000 34.50000 0.0000000E+00 + 37.50000 34.50000 3.0463503E-03 + 38.50000 34.50000 0.0000000E+00 + 39.50000 34.50000 0.0000000E+00 + 40.50000 34.50000 0.0000000E+00 + 41.50000 34.50000 0.0000000E+00 + 42.50000 34.50000 0.0000000E+00 + 43.50000 34.50000 0.0000000E+00 + 44.50000 34.50000 0.0000000E+00 + 45.50000 34.50000 0.0000000E+00 + 46.50000 34.50000 0.0000000E+00 + 47.50000 34.50000 0.0000000E+00 + 48.50000 34.50000 0.0000000E+00 + 49.50000 34.50000 0.0000000E+00 + 50.50000 34.50000 0.0000000E+00 + 51.50000 34.50000 0.0000000E+00 + 52.50000 34.50000 0.0000000E+00 + 53.50000 34.50000 0.0000000E+00 + 54.50000 34.50000 0.0000000E+00 + 55.50000 34.50000 0.0000000E+00 + 56.50000 34.50000 0.0000000E+00 + 57.50000 34.50000 0.0000000E+00 + 58.50000 34.50000 0.0000000E+00 + 59.50000 34.50000 0.0000000E+00 + 60.50000 34.50000 0.0000000E+00 + 61.50000 34.50000 0.0000000E+00 + 62.50000 34.50000 0.0000000E+00 + 63.50000 34.50000 0.0000000E+00 + 64.50000 34.50000 0.0000000E+00 + 65.50000 34.50000 0.0000000E+00 + 66.50000 34.50000 0.0000000E+00 + 67.50000 34.50000 0.0000000E+00 + 68.50000 34.50000 0.0000000E+00 + 69.50000 34.50000 0.0000000E+00 + 70.50000 34.50000 0.0000000E+00 + 71.50000 34.50000 0.0000000E+00 + 72.50000 34.50000 0.0000000E+00 + 73.50000 34.50000 0.0000000E+00 + 74.50000 34.50000 0.0000000E+00 + 75.50000 34.50000 0.0000000E+00 + 76.50000 34.50000 0.0000000E+00 + 77.50000 34.50000 0.0000000E+00 + 78.50000 34.50000 0.0000000E+00 + 79.50000 34.50000 0.0000000E+00 + 80.50000 34.50000 0.0000000E+00 + 81.50000 34.50000 0.0000000E+00 + 82.50000 34.50000 0.0000000E+00 + 83.50000 34.50000 0.0000000E+00 + 84.50000 34.50000 0.0000000E+00 + 85.50000 34.50000 0.0000000E+00 + 86.50000 34.50000 0.0000000E+00 + 87.50000 34.50000 0.0000000E+00 + 88.50000 34.50000 0.0000000E+00 + 89.50000 34.50000 0.0000000E+00 + -89.50000 35.50000 0.0000000E+00 + -88.50000 35.50000 0.0000000E+00 + -87.50000 35.50000 0.0000000E+00 + -86.50000 35.50000 0.0000000E+00 + -85.50000 35.50000 0.0000000E+00 + -84.50000 35.50000 0.0000000E+00 + -83.50000 35.50000 0.0000000E+00 + -82.50000 35.50000 0.0000000E+00 + -81.50000 35.50000 0.0000000E+00 + -80.50000 35.50000 0.0000000E+00 + -79.50000 35.50000 0.0000000E+00 + -78.50000 35.50000 0.0000000E+00 + -77.50000 35.50000 0.0000000E+00 + -76.50000 35.50000 0.0000000E+00 + -75.50000 35.50000 0.0000000E+00 + -74.50000 35.50000 0.0000000E+00 + -73.50000 35.50000 0.0000000E+00 + -72.50000 35.50000 0.0000000E+00 + -71.50000 35.50000 0.0000000E+00 + -70.50000 35.50000 0.0000000E+00 + -69.50000 35.50000 0.0000000E+00 + -68.50000 35.50000 0.0000000E+00 + -67.50000 35.50000 0.0000000E+00 + -66.50000 35.50000 0.0000000E+00 + -65.50000 35.50000 0.0000000E+00 + -64.50000 35.50000 0.0000000E+00 + -63.50000 35.50000 0.0000000E+00 + -62.50000 35.50000 0.0000000E+00 + -61.50000 35.50000 0.0000000E+00 + -60.50000 35.50000 0.0000000E+00 + -59.50000 35.50000 0.0000000E+00 + -58.50000 35.50000 0.0000000E+00 + -57.50000 35.50000 0.0000000E+00 + -56.50000 35.50000 0.0000000E+00 + -55.50000 35.50000 0.0000000E+00 + -54.50000 35.50000 0.0000000E+00 + -53.50000 35.50000 0.0000000E+00 + -52.50000 35.50000 0.0000000E+00 + -51.50000 35.50000 0.0000000E+00 + -50.50000 35.50000 0.0000000E+00 + -49.50000 35.50000 0.0000000E+00 + -48.50000 35.50000 0.0000000E+00 + -47.50000 35.50000 0.0000000E+00 + -46.50000 35.50000 0.0000000E+00 + -45.50000 35.50000 0.0000000E+00 + -44.50000 35.50000 0.0000000E+00 + -43.50000 35.50000 0.0000000E+00 + -42.50000 35.50000 0.0000000E+00 + -41.50000 35.50000 0.0000000E+00 + -40.50000 35.50000 0.0000000E+00 + -39.50000 35.50000 0.0000000E+00 + -38.50000 35.50000 0.0000000E+00 + -37.50000 35.50000 0.0000000E+00 + -36.50000 35.50000 0.0000000E+00 + -35.50000 35.50000 0.0000000E+00 + -34.50000 35.50000 0.0000000E+00 + -33.50000 35.50000 0.0000000E+00 + -32.50000 35.50000 0.0000000E+00 + -31.50000 35.50000 0.0000000E+00 + -30.50000 35.50000 0.0000000E+00 + -29.50000 35.50000 0.0000000E+00 + -28.50000 35.50000 0.0000000E+00 + -27.50000 35.50000 0.0000000E+00 + -26.50000 35.50000 0.0000000E+00 + -25.50000 35.50000 0.0000000E+00 + -24.50000 35.50000 0.0000000E+00 + -23.50000 35.50000 0.0000000E+00 + -22.50000 35.50000 0.0000000E+00 + -21.50000 35.50000 0.0000000E+00 + -20.50000 35.50000 0.0000000E+00 + -19.50000 35.50000 0.0000000E+00 + -18.50000 35.50000 0.0000000E+00 + -17.50000 35.50000 0.0000000E+00 + -16.50000 35.50000 0.0000000E+00 + -15.50000 35.50000 0.0000000E+00 + -14.50000 35.50000 0.0000000E+00 + -13.50000 35.50000 0.0000000E+00 + -12.50000 35.50000 0.0000000E+00 + -11.50000 35.50000 0.0000000E+00 + -10.50000 35.50000 0.0000000E+00 + -9.500000 35.50000 0.0000000E+00 + -8.500000 35.50000 0.0000000E+00 + -7.500000 35.50000 0.0000000E+00 + -6.500000 35.50000 0.0000000E+00 + -5.500000 35.50000 0.0000000E+00 + -4.500000 35.50000 0.0000000E+00 + -3.500000 35.50000 0.0000000E+00 + -2.500000 35.50000 0.0000000E+00 + -1.500000 35.50000 0.0000000E+00 + -0.5000000 35.50000 0.0000000E+00 + 0.5000000 35.50000 0.0000000E+00 + 1.500000 35.50000 0.0000000E+00 + 2.500000 35.50000 0.0000000E+00 + 3.500000 35.50000 0.0000000E+00 + 4.500000 35.50000 0.0000000E+00 + 5.500000 35.50000 0.0000000E+00 + 6.500000 35.50000 0.0000000E+00 + 7.500000 35.50000 0.0000000E+00 + 8.500000 35.50000 0.0000000E+00 + 9.500000 35.50000 0.0000000E+00 + 10.50000 35.50000 0.0000000E+00 + 11.50000 35.50000 0.0000000E+00 + 12.50000 35.50000 0.0000000E+00 + 13.50000 35.50000 0.0000000E+00 + 14.50000 35.50000 0.0000000E+00 + 15.50000 35.50000 1.6384004E-02 + 16.50000 35.50000 0.1045530 + 17.50000 35.50000 0.1045530 + 18.50000 35.50000 6.4186469E-02 + 19.50000 35.50000 6.4186469E-02 + 20.50000 35.50000 2.2727957E-02 + 21.50000 35.50000 2.9007258E-02 + 22.50000 35.50000 5.0076056E-02 + 23.50000 35.50000 0.1476225 + 24.50000 35.50000 0.0000000E+00 + 25.50000 35.50000 0.0000000E+00 + 26.50000 35.50000 0.0000000E+00 + 27.50000 35.50000 0.0000000E+00 + 28.50000 35.50000 2.4414062E-04 + 29.50000 35.50000 5.7935715E-05 + 30.50000 35.50000 4.0071011E-03 + 31.50000 35.50000 0.0000000E+00 + 32.50000 35.50000 0.0000000E+00 + 33.50000 35.50000 0.0000000E+00 + 34.50000 35.50000 0.0000000E+00 + 35.50000 35.50000 0.0000000E+00 + 36.50000 35.50000 0.0000000E+00 + 37.50000 35.50000 0.0000000E+00 + 38.50000 35.50000 0.0000000E+00 + 39.50000 35.50000 0.0000000E+00 + 40.50000 35.50000 0.0000000E+00 + 41.50000 35.50000 0.0000000E+00 + 42.50000 35.50000 0.0000000E+00 + 43.50000 35.50000 0.0000000E+00 + 44.50000 35.50000 0.0000000E+00 + 45.50000 35.50000 0.0000000E+00 + 46.50000 35.50000 0.0000000E+00 + 47.50000 35.50000 0.0000000E+00 + 48.50000 35.50000 0.0000000E+00 + 49.50000 35.50000 0.0000000E+00 + 50.50000 35.50000 0.0000000E+00 + 51.50000 35.50000 0.0000000E+00 + 52.50000 35.50000 0.0000000E+00 + 53.50000 35.50000 0.0000000E+00 + 54.50000 35.50000 0.0000000E+00 + 55.50000 35.50000 0.0000000E+00 + 56.50000 35.50000 0.0000000E+00 + 57.50000 35.50000 0.0000000E+00 + 58.50000 35.50000 0.0000000E+00 + 59.50000 35.50000 0.0000000E+00 + 60.50000 35.50000 0.0000000E+00 + 61.50000 35.50000 0.0000000E+00 + 62.50000 35.50000 0.0000000E+00 + 63.50000 35.50000 0.0000000E+00 + 64.50000 35.50000 0.0000000E+00 + 65.50000 35.50000 0.0000000E+00 + 66.50000 35.50000 0.0000000E+00 + 67.50000 35.50000 0.0000000E+00 + 68.50000 35.50000 0.0000000E+00 + 69.50000 35.50000 0.0000000E+00 + 70.50000 35.50000 0.0000000E+00 + 71.50000 35.50000 0.0000000E+00 + 72.50000 35.50000 0.0000000E+00 + 73.50000 35.50000 0.0000000E+00 + 74.50000 35.50000 0.0000000E+00 + 75.50000 35.50000 0.0000000E+00 + 76.50000 35.50000 0.0000000E+00 + 77.50000 35.50000 0.0000000E+00 + 78.50000 35.50000 0.0000000E+00 + 79.50000 35.50000 0.0000000E+00 + 80.50000 35.50000 0.0000000E+00 + 81.50000 35.50000 0.0000000E+00 + 82.50000 35.50000 0.0000000E+00 + 83.50000 35.50000 0.0000000E+00 + 84.50000 35.50000 0.0000000E+00 + 85.50000 35.50000 0.0000000E+00 + 86.50000 35.50000 0.0000000E+00 + 87.50000 35.50000 0.0000000E+00 + 88.50000 35.50000 0.0000000E+00 + 89.50000 35.50000 0.0000000E+00 + -89.50000 36.50000 0.0000000E+00 + -88.50000 36.50000 0.0000000E+00 + -87.50000 36.50000 0.0000000E+00 + -86.50000 36.50000 0.0000000E+00 + -85.50000 36.50000 0.0000000E+00 + -84.50000 36.50000 0.0000000E+00 + -83.50000 36.50000 0.0000000E+00 + -82.50000 36.50000 0.0000000E+00 + -81.50000 36.50000 0.0000000E+00 + -80.50000 36.50000 0.0000000E+00 + -79.50000 36.50000 0.0000000E+00 + -78.50000 36.50000 0.0000000E+00 + -77.50000 36.50000 0.0000000E+00 + -76.50000 36.50000 0.0000000E+00 + -75.50000 36.50000 0.0000000E+00 + -74.50000 36.50000 0.0000000E+00 + -73.50000 36.50000 0.0000000E+00 + -72.50000 36.50000 0.0000000E+00 + -71.50000 36.50000 0.0000000E+00 + -70.50000 36.50000 0.0000000E+00 + -69.50000 36.50000 0.0000000E+00 + -68.50000 36.50000 0.0000000E+00 + -67.50000 36.50000 0.0000000E+00 + -66.50000 36.50000 0.0000000E+00 + -65.50000 36.50000 0.0000000E+00 + -64.50000 36.50000 0.0000000E+00 + -63.50000 36.50000 0.0000000E+00 + -62.50000 36.50000 0.0000000E+00 + -61.50000 36.50000 0.0000000E+00 + -60.50000 36.50000 0.0000000E+00 + -59.50000 36.50000 0.0000000E+00 + -58.50000 36.50000 0.0000000E+00 + -57.50000 36.50000 0.0000000E+00 + -56.50000 36.50000 0.0000000E+00 + -55.50000 36.50000 0.0000000E+00 + -54.50000 36.50000 0.0000000E+00 + -53.50000 36.50000 0.0000000E+00 + -52.50000 36.50000 0.0000000E+00 + -51.50000 36.50000 0.0000000E+00 + -50.50000 36.50000 0.0000000E+00 + -49.50000 36.50000 0.0000000E+00 + -48.50000 36.50000 0.0000000E+00 + -47.50000 36.50000 0.0000000E+00 + -46.50000 36.50000 0.0000000E+00 + -45.50000 36.50000 0.0000000E+00 + -44.50000 36.50000 0.0000000E+00 + -43.50000 36.50000 0.0000000E+00 + -42.50000 36.50000 0.0000000E+00 + -41.50000 36.50000 0.0000000E+00 + -40.50000 36.50000 0.0000000E+00 + -39.50000 36.50000 0.0000000E+00 + -38.50000 36.50000 0.0000000E+00 + -37.50000 36.50000 0.0000000E+00 + -36.50000 36.50000 0.0000000E+00 + -35.50000 36.50000 0.0000000E+00 + -34.50000 36.50000 0.0000000E+00 + -33.50000 36.50000 0.0000000E+00 + -32.50000 36.50000 0.0000000E+00 + -31.50000 36.50000 0.0000000E+00 + -30.50000 36.50000 0.0000000E+00 + -29.50000 36.50000 0.0000000E+00 + -28.50000 36.50000 0.0000000E+00 + -27.50000 36.50000 0.0000000E+00 + -26.50000 36.50000 0.0000000E+00 + -25.50000 36.50000 0.0000000E+00 + -24.50000 36.50000 0.0000000E+00 + -23.50000 36.50000 0.0000000E+00 + -22.50000 36.50000 0.0000000E+00 + -21.50000 36.50000 0.0000000E+00 + -20.50000 36.50000 0.0000000E+00 + -19.50000 36.50000 0.0000000E+00 + -18.50000 36.50000 0.0000000E+00 + -17.50000 36.50000 0.0000000E+00 + -16.50000 36.50000 0.0000000E+00 + -15.50000 36.50000 0.0000000E+00 + -14.50000 36.50000 0.0000000E+00 + -13.50000 36.50000 0.0000000E+00 + -12.50000 36.50000 0.0000000E+00 + -11.50000 36.50000 0.0000000E+00 + -10.50000 36.50000 0.0000000E+00 + -9.500000 36.50000 0.0000000E+00 + -8.500000 36.50000 0.0000000E+00 + -7.500000 36.50000 0.0000000E+00 + -6.500000 36.50000 0.0000000E+00 + -5.500000 36.50000 0.0000000E+00 + -4.500000 36.50000 0.0000000E+00 + -3.500000 36.50000 0.0000000E+00 + -2.500000 36.50000 0.0000000E+00 + -1.500000 36.50000 0.0000000E+00 + -0.5000000 36.50000 0.0000000E+00 + 0.5000000 36.50000 0.0000000E+00 + 1.500000 36.50000 0.0000000E+00 + 2.500000 36.50000 0.0000000E+00 + 3.500000 36.50000 0.0000000E+00 + 4.500000 36.50000 0.0000000E+00 + 5.500000 36.50000 0.0000000E+00 + 6.500000 36.50000 0.0000000E+00 + 7.500000 36.50000 0.0000000E+00 + 8.500000 36.50000 0.0000000E+00 + 9.500000 36.50000 0.0000000E+00 + 10.50000 36.50000 0.0000000E+00 + 11.50000 36.50000 0.0000000E+00 + 12.50000 36.50000 0.0000000E+00 + 13.50000 36.50000 0.0000000E+00 + 14.50000 36.50000 0.0000000E+00 + 15.50000 36.50000 1.6384004E-02 + 16.50000 36.50000 8.1920013E-02 + 17.50000 36.50000 8.1920013E-02 + 18.50000 36.50000 3.2921817E-02 + 19.50000 36.50000 2.2727957E-02 + 20.50000 36.50000 3.2921817E-02 + 21.50000 36.50000 2.9007258E-02 + 22.50000 36.50000 0.0000000E+00 + 23.50000 36.50000 0.0000000E+00 + 24.50000 36.50000 0.0000000E+00 + 25.50000 36.50000 0.0000000E+00 + 26.50000 36.50000 0.1934452 + 27.50000 36.50000 8.0000013E-05 + 28.50000 36.50000 7.8125000E-03 + 29.50000 36.50000 1.8539429E-03 + 30.50000 36.50000 5.9618987E-03 + 31.50000 36.50000 1.6260557E-02 + 32.50000 36.50000 0.0000000E+00 + 33.50000 36.50000 0.0000000E+00 + 34.50000 36.50000 0.0000000E+00 + 35.50000 36.50000 0.0000000E+00 + 36.50000 36.50000 0.0000000E+00 + 37.50000 36.50000 0.0000000E+00 + 38.50000 36.50000 0.0000000E+00 + 39.50000 36.50000 0.0000000E+00 + 40.50000 36.50000 0.0000000E+00 + 41.50000 36.50000 0.0000000E+00 + 42.50000 36.50000 0.0000000E+00 + 43.50000 36.50000 0.0000000E+00 + 44.50000 36.50000 0.0000000E+00 + 45.50000 36.50000 0.0000000E+00 + 46.50000 36.50000 0.0000000E+00 + 47.50000 36.50000 0.0000000E+00 + 48.50000 36.50000 0.0000000E+00 + 49.50000 36.50000 0.0000000E+00 + 50.50000 36.50000 0.0000000E+00 + 51.50000 36.50000 0.0000000E+00 + 52.50000 36.50000 0.0000000E+00 + 53.50000 36.50000 0.0000000E+00 + 54.50000 36.50000 0.0000000E+00 + 55.50000 36.50000 0.0000000E+00 + 56.50000 36.50000 0.0000000E+00 + 57.50000 36.50000 0.0000000E+00 + 58.50000 36.50000 0.0000000E+00 + 59.50000 36.50000 0.0000000E+00 + 60.50000 36.50000 0.0000000E+00 + 61.50000 36.50000 0.0000000E+00 + 62.50000 36.50000 0.0000000E+00 + 63.50000 36.50000 0.0000000E+00 + 64.50000 36.50000 0.0000000E+00 + 65.50000 36.50000 0.0000000E+00 + 66.50000 36.50000 0.0000000E+00 + 67.50000 36.50000 0.0000000E+00 + 68.50000 36.50000 0.0000000E+00 + 69.50000 36.50000 0.0000000E+00 + 70.50000 36.50000 0.0000000E+00 + 71.50000 36.50000 0.0000000E+00 + 72.50000 36.50000 0.0000000E+00 + 73.50000 36.50000 0.0000000E+00 + 74.50000 36.50000 0.0000000E+00 + 75.50000 36.50000 0.0000000E+00 + 76.50000 36.50000 0.0000000E+00 + 77.50000 36.50000 0.0000000E+00 + 78.50000 36.50000 0.0000000E+00 + 79.50000 36.50000 0.0000000E+00 + 80.50000 36.50000 0.0000000E+00 + 81.50000 36.50000 0.0000000E+00 + 82.50000 36.50000 0.0000000E+00 + 83.50000 36.50000 0.0000000E+00 + 84.50000 36.50000 0.0000000E+00 + 85.50000 36.50000 0.0000000E+00 + 86.50000 36.50000 0.0000000E+00 + 87.50000 36.50000 0.0000000E+00 + 88.50000 36.50000 0.0000000E+00 + 89.50000 36.50000 0.0000000E+00 + -89.50000 37.50000 0.0000000E+00 + -88.50000 37.50000 0.0000000E+00 + -87.50000 37.50000 0.0000000E+00 + -86.50000 37.50000 0.0000000E+00 + -85.50000 37.50000 0.0000000E+00 + -84.50000 37.50000 0.0000000E+00 + -83.50000 37.50000 0.0000000E+00 + -82.50000 37.50000 0.0000000E+00 + -81.50000 37.50000 0.0000000E+00 + -80.50000 37.50000 0.0000000E+00 + -79.50000 37.50000 0.0000000E+00 + -78.50000 37.50000 0.0000000E+00 + -77.50000 37.50000 0.0000000E+00 + -76.50000 37.50000 0.0000000E+00 + -75.50000 37.50000 0.0000000E+00 + -74.50000 37.50000 0.0000000E+00 + -73.50000 37.50000 0.0000000E+00 + -72.50000 37.50000 0.0000000E+00 + -71.50000 37.50000 0.0000000E+00 + -70.50000 37.50000 0.0000000E+00 + -69.50000 37.50000 0.0000000E+00 + -68.50000 37.50000 0.0000000E+00 + -67.50000 37.50000 0.0000000E+00 + -66.50000 37.50000 0.0000000E+00 + -65.50000 37.50000 0.0000000E+00 + -64.50000 37.50000 0.0000000E+00 + -63.50000 37.50000 0.0000000E+00 + -62.50000 37.50000 0.0000000E+00 + -61.50000 37.50000 0.0000000E+00 + -60.50000 37.50000 0.0000000E+00 + -59.50000 37.50000 0.0000000E+00 + -58.50000 37.50000 0.0000000E+00 + -57.50000 37.50000 0.0000000E+00 + -56.50000 37.50000 0.0000000E+00 + -55.50000 37.50000 0.0000000E+00 + -54.50000 37.50000 0.0000000E+00 + -53.50000 37.50000 0.0000000E+00 + -52.50000 37.50000 0.0000000E+00 + -51.50000 37.50000 0.0000000E+00 + -50.50000 37.50000 0.0000000E+00 + -49.50000 37.50000 0.0000000E+00 + -48.50000 37.50000 0.0000000E+00 + -47.50000 37.50000 0.0000000E+00 + -46.50000 37.50000 0.0000000E+00 + -45.50000 37.50000 0.0000000E+00 + -44.50000 37.50000 0.0000000E+00 + -43.50000 37.50000 0.0000000E+00 + -42.50000 37.50000 0.0000000E+00 + -41.50000 37.50000 0.0000000E+00 + -40.50000 37.50000 0.0000000E+00 + -39.50000 37.50000 0.0000000E+00 + -38.50000 37.50000 0.0000000E+00 + -37.50000 37.50000 0.0000000E+00 + -36.50000 37.50000 0.0000000E+00 + -35.50000 37.50000 0.0000000E+00 + -34.50000 37.50000 0.0000000E+00 + -33.50000 37.50000 0.0000000E+00 + -32.50000 37.50000 0.0000000E+00 + -31.50000 37.50000 0.0000000E+00 + -30.50000 37.50000 0.0000000E+00 + -29.50000 37.50000 0.0000000E+00 + -28.50000 37.50000 0.0000000E+00 + -27.50000 37.50000 0.0000000E+00 + -26.50000 37.50000 0.0000000E+00 + -25.50000 37.50000 0.0000000E+00 + -24.50000 37.50000 0.0000000E+00 + -23.50000 37.50000 0.0000000E+00 + -22.50000 37.50000 0.0000000E+00 + -21.50000 37.50000 0.0000000E+00 + -20.50000 37.50000 0.0000000E+00 + -19.50000 37.50000 0.0000000E+00 + -18.50000 37.50000 0.0000000E+00 + -17.50000 37.50000 0.0000000E+00 + -16.50000 37.50000 0.0000000E+00 + -15.50000 37.50000 0.0000000E+00 + -14.50000 37.50000 0.0000000E+00 + -13.50000 37.50000 0.0000000E+00 + -12.50000 37.50000 0.0000000E+00 + -11.50000 37.50000 0.0000000E+00 + -10.50000 37.50000 0.0000000E+00 + -9.500000 37.50000 0.0000000E+00 + -8.500000 37.50000 0.0000000E+00 + -7.500000 37.50000 0.0000000E+00 + -6.500000 37.50000 0.0000000E+00 + -5.500000 37.50000 0.0000000E+00 + -4.500000 37.50000 0.0000000E+00 + -3.500000 37.50000 0.0000000E+00 + -2.500000 37.50000 0.0000000E+00 + -1.500000 37.50000 0.0000000E+00 + -0.5000000 37.50000 0.0000000E+00 + 0.5000000 37.50000 0.0000000E+00 + 1.500000 37.50000 0.0000000E+00 + 2.500000 37.50000 0.0000000E+00 + 3.500000 37.50000 0.0000000E+00 + 4.500000 37.50000 0.0000000E+00 + 5.500000 37.50000 0.0000000E+00 + 6.500000 37.50000 0.0000000E+00 + 7.500000 37.50000 0.0000000E+00 + 8.500000 37.50000 0.0000000E+00 + 9.500000 37.50000 0.0000000E+00 + 10.50000 37.50000 0.0000000E+00 + 11.50000 37.50000 0.0000000E+00 + 12.50000 37.50000 0.0000000E+00 + 13.50000 37.50000 0.0000000E+00 + 14.50000 37.50000 0.0000000E+00 + 15.50000 37.50000 8.4034996E-03 + 16.50000 37.50000 3.6348343E-02 + 17.50000 37.50000 0.1045530 + 18.50000 37.50000 0.1515694 + 19.50000 37.50000 0.0000000E+00 + 20.50000 37.50000 0.0000000E+00 + 21.50000 37.50000 0.0000000E+00 + 22.50000 37.50000 0.0000000E+00 + 23.50000 37.50000 0.0000000E+00 + 24.50000 37.50000 0.1934452 + 25.50000 37.50000 1.9440001E-02 + 26.50000 37.50000 4.6132025E-03 + 27.50000 37.50000 1.2582110E-02 + 28.50000 37.50000 1.9440001E-02 + 29.50000 37.50000 1.8539429E-03 + 30.50000 37.50000 2.6843542E-02 + 31.50000 37.50000 0.0000000E+00 + 32.50000 37.50000 7.3947147E-02 + 33.50000 37.50000 0.0000000E+00 + 34.50000 37.50000 0.0000000E+00 + 35.50000 37.50000 0.0000000E+00 + 36.50000 37.50000 0.0000000E+00 + 37.50000 37.50000 0.0000000E+00 + 38.50000 37.50000 0.0000000E+00 + 39.50000 37.50000 0.0000000E+00 + 40.50000 37.50000 0.0000000E+00 + 41.50000 37.50000 0.0000000E+00 + 42.50000 37.50000 0.0000000E+00 + 43.50000 37.50000 0.0000000E+00 + 44.50000 37.50000 0.0000000E+00 + 45.50000 37.50000 0.0000000E+00 + 46.50000 37.50000 0.0000000E+00 + 47.50000 37.50000 0.0000000E+00 + 48.50000 37.50000 0.0000000E+00 + 49.50000 37.50000 0.0000000E+00 + 50.50000 37.50000 0.0000000E+00 + 51.50000 37.50000 0.0000000E+00 + 52.50000 37.50000 0.0000000E+00 + 53.50000 37.50000 0.0000000E+00 + 54.50000 37.50000 0.0000000E+00 + 55.50000 37.50000 0.0000000E+00 + 56.50000 37.50000 0.0000000E+00 + 57.50000 37.50000 0.0000000E+00 + 58.50000 37.50000 0.0000000E+00 + 59.50000 37.50000 0.0000000E+00 + 60.50000 37.50000 0.0000000E+00 + 61.50000 37.50000 0.0000000E+00 + 62.50000 37.50000 0.0000000E+00 + 63.50000 37.50000 0.0000000E+00 + 64.50000 37.50000 0.0000000E+00 + 65.50000 37.50000 0.0000000E+00 + 66.50000 37.50000 0.0000000E+00 + 67.50000 37.50000 0.0000000E+00 + 68.50000 37.50000 0.0000000E+00 + 69.50000 37.50000 0.0000000E+00 + 70.50000 37.50000 0.0000000E+00 + 71.50000 37.50000 0.0000000E+00 + 72.50000 37.50000 0.0000000E+00 + 73.50000 37.50000 0.0000000E+00 + 74.50000 37.50000 0.0000000E+00 + 75.50000 37.50000 0.0000000E+00 + 76.50000 37.50000 0.0000000E+00 + 77.50000 37.50000 0.0000000E+00 + 78.50000 37.50000 0.0000000E+00 + 79.50000 37.50000 0.0000000E+00 + 80.50000 37.50000 0.0000000E+00 + 81.50000 37.50000 0.0000000E+00 + 82.50000 37.50000 0.0000000E+00 + 83.50000 37.50000 0.0000000E+00 + 84.50000 37.50000 0.0000000E+00 + 85.50000 37.50000 0.0000000E+00 + 86.50000 37.50000 0.0000000E+00 + 87.50000 37.50000 0.0000000E+00 + 88.50000 37.50000 0.0000000E+00 + 89.50000 37.50000 0.0000000E+00 + -89.50000 38.50000 0.0000000E+00 + -88.50000 38.50000 0.0000000E+00 + -87.50000 38.50000 0.0000000E+00 + -86.50000 38.50000 0.0000000E+00 + -85.50000 38.50000 0.0000000E+00 + -84.50000 38.50000 0.0000000E+00 + -83.50000 38.50000 0.0000000E+00 + -82.50000 38.50000 0.0000000E+00 + -81.50000 38.50000 0.0000000E+00 + -80.50000 38.50000 0.0000000E+00 + -79.50000 38.50000 0.0000000E+00 + -78.50000 38.50000 0.0000000E+00 + -77.50000 38.50000 0.0000000E+00 + -76.50000 38.50000 0.0000000E+00 + -75.50000 38.50000 0.0000000E+00 + -74.50000 38.50000 0.0000000E+00 + -73.50000 38.50000 0.0000000E+00 + -72.50000 38.50000 0.0000000E+00 + -71.50000 38.50000 0.0000000E+00 + -70.50000 38.50000 0.0000000E+00 + -69.50000 38.50000 0.0000000E+00 + -68.50000 38.50000 0.0000000E+00 + -67.50000 38.50000 0.0000000E+00 + -66.50000 38.50000 0.0000000E+00 + -65.50000 38.50000 0.0000000E+00 + -64.50000 38.50000 0.0000000E+00 + -63.50000 38.50000 0.0000000E+00 + -62.50000 38.50000 0.0000000E+00 + -61.50000 38.50000 0.0000000E+00 + -60.50000 38.50000 0.0000000E+00 + -59.50000 38.50000 0.0000000E+00 + -58.50000 38.50000 0.0000000E+00 + -57.50000 38.50000 0.0000000E+00 + -56.50000 38.50000 0.0000000E+00 + -55.50000 38.50000 0.0000000E+00 + -54.50000 38.50000 0.0000000E+00 + -53.50000 38.50000 0.0000000E+00 + -52.50000 38.50000 0.0000000E+00 + -51.50000 38.50000 0.0000000E+00 + -50.50000 38.50000 0.0000000E+00 + -49.50000 38.50000 0.0000000E+00 + -48.50000 38.50000 0.0000000E+00 + -47.50000 38.50000 0.0000000E+00 + -46.50000 38.50000 0.0000000E+00 + -45.50000 38.50000 0.0000000E+00 + -44.50000 38.50000 0.0000000E+00 + -43.50000 38.50000 0.0000000E+00 + -42.50000 38.50000 0.0000000E+00 + -41.50000 38.50000 0.0000000E+00 + -40.50000 38.50000 0.0000000E+00 + -39.50000 38.50000 0.0000000E+00 + -38.50000 38.50000 0.0000000E+00 + -37.50000 38.50000 0.0000000E+00 + -36.50000 38.50000 0.0000000E+00 + -35.50000 38.50000 0.0000000E+00 + -34.50000 38.50000 0.0000000E+00 + -33.50000 38.50000 0.0000000E+00 + -32.50000 38.50000 0.0000000E+00 + -31.50000 38.50000 0.0000000E+00 + -30.50000 38.50000 0.0000000E+00 + -29.50000 38.50000 0.0000000E+00 + -28.50000 38.50000 0.0000000E+00 + -27.50000 38.50000 0.0000000E+00 + -26.50000 38.50000 0.0000000E+00 + -25.50000 38.50000 0.0000000E+00 + -24.50000 38.50000 0.0000000E+00 + -23.50000 38.50000 0.0000000E+00 + -22.50000 38.50000 0.0000000E+00 + -21.50000 38.50000 0.0000000E+00 + -20.50000 38.50000 0.0000000E+00 + -19.50000 38.50000 0.0000000E+00 + -18.50000 38.50000 0.0000000E+00 + -17.50000 38.50000 0.0000000E+00 + -16.50000 38.50000 0.0000000E+00 + -15.50000 38.50000 0.0000000E+00 + -14.50000 38.50000 0.0000000E+00 + -13.50000 38.50000 0.0000000E+00 + -12.50000 38.50000 0.0000000E+00 + -11.50000 38.50000 0.0000000E+00 + -10.50000 38.50000 0.0000000E+00 + -9.500000 38.50000 0.0000000E+00 + -8.500000 38.50000 0.0000000E+00 + -7.500000 38.50000 0.0000000E+00 + -6.500000 38.50000 0.0000000E+00 + -5.500000 38.50000 0.0000000E+00 + -4.500000 38.50000 0.0000000E+00 + -3.500000 38.50000 0.0000000E+00 + -2.500000 38.50000 0.0000000E+00 + -1.500000 38.50000 0.0000000E+00 + -0.5000000 38.50000 0.0000000E+00 + 0.5000000 38.50000 0.0000000E+00 + 1.500000 38.50000 0.0000000E+00 + 2.500000 38.50000 0.0000000E+00 + 3.500000 38.50000 0.0000000E+00 + 4.500000 38.50000 0.0000000E+00 + 5.500000 38.50000 0.0000000E+00 + 6.500000 38.50000 0.0000000E+00 + 7.500000 38.50000 0.0000000E+00 + 8.500000 38.50000 0.0000000E+00 + 9.500000 38.50000 0.0000000E+00 + 10.50000 38.50000 0.0000000E+00 + 11.50000 38.50000 0.0000000E+00 + 12.50000 38.50000 0.0000000E+00 + 13.50000 38.50000 0.0000000E+00 + 14.50000 38.50000 0.0000000E+00 + 15.50000 38.50000 2.7536589E-03 + 16.50000 38.50000 3.6348343E-02 + 17.50000 38.50000 8.1920013E-02 + 18.50000 38.50000 0.0000000E+00 + 19.50000 38.50000 0.0000000E+00 + 20.50000 38.50000 0.0000000E+00 + 21.50000 38.50000 0.0000000E+00 + 22.50000 38.50000 0.0000000E+00 + 23.50000 38.50000 0.0000000E+00 + 24.50000 38.50000 2.9007258E-02 + 25.50000 38.50000 1.9440001E-02 + 26.50000 38.50000 1.5713727E-02 + 27.50000 38.50000 1.2582110E-02 + 28.50000 38.50000 1.2582110E-02 + 29.50000 38.50000 7.8125000E-03 + 30.50000 38.50000 3.6348343E-02 + 31.50000 38.50000 4.2017497E-02 + 32.50000 38.50000 8.7606758E-02 + 33.50000 38.50000 0.1032143 + 34.50000 38.50000 0.1209710 + 35.50000 38.50000 0.0000000E+00 + 36.50000 38.50000 0.0000000E+00 + 37.50000 38.50000 0.0000000E+00 + 38.50000 38.50000 0.0000000E+00 + 39.50000 38.50000 0.0000000E+00 + 40.50000 38.50000 0.0000000E+00 + 41.50000 38.50000 0.0000000E+00 + 42.50000 38.50000 0.0000000E+00 + 43.50000 38.50000 0.0000000E+00 + 44.50000 38.50000 0.0000000E+00 + 45.50000 38.50000 0.0000000E+00 + 46.50000 38.50000 0.0000000E+00 + 47.50000 38.50000 0.0000000E+00 + 48.50000 38.50000 0.0000000E+00 + 49.50000 38.50000 0.0000000E+00 + 50.50000 38.50000 0.0000000E+00 + 51.50000 38.50000 0.0000000E+00 + 52.50000 38.50000 0.0000000E+00 + 53.50000 38.50000 0.0000000E+00 + 54.50000 38.50000 0.0000000E+00 + 55.50000 38.50000 0.0000000E+00 + 56.50000 38.50000 0.0000000E+00 + 57.50000 38.50000 0.0000000E+00 + 58.50000 38.50000 0.0000000E+00 + 59.50000 38.50000 0.0000000E+00 + 60.50000 38.50000 0.0000000E+00 + 61.50000 38.50000 0.0000000E+00 + 62.50000 38.50000 0.0000000E+00 + 63.50000 38.50000 0.0000000E+00 + 64.50000 38.50000 0.0000000E+00 + 65.50000 38.50000 0.0000000E+00 + 66.50000 38.50000 0.0000000E+00 + 67.50000 38.50000 0.0000000E+00 + 68.50000 38.50000 0.0000000E+00 + 69.50000 38.50000 0.0000000E+00 + 70.50000 38.50000 0.0000000E+00 + 71.50000 38.50000 0.0000000E+00 + 72.50000 38.50000 0.0000000E+00 + 73.50000 38.50000 0.0000000E+00 + 74.50000 38.50000 0.0000000E+00 + 75.50000 38.50000 0.0000000E+00 + 76.50000 38.50000 0.0000000E+00 + 77.50000 38.50000 0.0000000E+00 + 78.50000 38.50000 0.0000000E+00 + 79.50000 38.50000 0.0000000E+00 + 80.50000 38.50000 0.0000000E+00 + 81.50000 38.50000 0.0000000E+00 + 82.50000 38.50000 0.0000000E+00 + 83.50000 38.50000 0.0000000E+00 + 84.50000 38.50000 0.0000000E+00 + 85.50000 38.50000 0.0000000E+00 + 86.50000 38.50000 0.0000000E+00 + 87.50000 38.50000 0.0000000E+00 + 88.50000 38.50000 0.0000000E+00 + 89.50000 38.50000 0.0000000E+00 + -89.50000 39.50000 0.0000000E+00 + -88.50000 39.50000 0.0000000E+00 + -87.50000 39.50000 0.0000000E+00 + -86.50000 39.50000 0.0000000E+00 + -85.50000 39.50000 0.0000000E+00 + -84.50000 39.50000 0.0000000E+00 + -83.50000 39.50000 0.0000000E+00 + -82.50000 39.50000 0.0000000E+00 + -81.50000 39.50000 0.0000000E+00 + -80.50000 39.50000 0.0000000E+00 + -79.50000 39.50000 0.0000000E+00 + -78.50000 39.50000 0.0000000E+00 + -77.50000 39.50000 0.0000000E+00 + -76.50000 39.50000 0.0000000E+00 + -75.50000 39.50000 0.0000000E+00 + -74.50000 39.50000 0.0000000E+00 + -73.50000 39.50000 0.0000000E+00 + -72.50000 39.50000 0.0000000E+00 + -71.50000 39.50000 0.0000000E+00 + -70.50000 39.50000 0.0000000E+00 + -69.50000 39.50000 0.0000000E+00 + -68.50000 39.50000 0.0000000E+00 + -67.50000 39.50000 0.0000000E+00 + -66.50000 39.50000 0.0000000E+00 + -65.50000 39.50000 0.0000000E+00 + -64.50000 39.50000 0.0000000E+00 + -63.50000 39.50000 0.0000000E+00 + -62.50000 39.50000 0.0000000E+00 + -61.50000 39.50000 0.0000000E+00 + -60.50000 39.50000 0.0000000E+00 + -59.50000 39.50000 0.0000000E+00 + -58.50000 39.50000 0.0000000E+00 + -57.50000 39.50000 0.0000000E+00 + -56.50000 39.50000 0.0000000E+00 + -55.50000 39.50000 0.0000000E+00 + -54.50000 39.50000 0.0000000E+00 + -53.50000 39.50000 0.0000000E+00 + -52.50000 39.50000 0.0000000E+00 + -51.50000 39.50000 0.0000000E+00 + -50.50000 39.50000 0.0000000E+00 + -49.50000 39.50000 0.0000000E+00 + -48.50000 39.50000 0.0000000E+00 + -47.50000 39.50000 0.0000000E+00 + -46.50000 39.50000 0.0000000E+00 + -45.50000 39.50000 0.0000000E+00 + -44.50000 39.50000 0.0000000E+00 + -43.50000 39.50000 0.0000000E+00 + -42.50000 39.50000 0.0000000E+00 + -41.50000 39.50000 0.0000000E+00 + -40.50000 39.50000 0.0000000E+00 + -39.50000 39.50000 0.0000000E+00 + -38.50000 39.50000 0.0000000E+00 + -37.50000 39.50000 0.0000000E+00 + -36.50000 39.50000 0.0000000E+00 + -35.50000 39.50000 0.0000000E+00 + -34.50000 39.50000 0.0000000E+00 + -33.50000 39.50000 0.0000000E+00 + -32.50000 39.50000 0.0000000E+00 + -31.50000 39.50000 0.0000000E+00 + -30.50000 39.50000 0.0000000E+00 + -29.50000 39.50000 0.0000000E+00 + -28.50000 39.50000 0.0000000E+00 + -27.50000 39.50000 0.0000000E+00 + -26.50000 39.50000 0.0000000E+00 + -25.50000 39.50000 0.0000000E+00 + -24.50000 39.50000 0.0000000E+00 + -23.50000 39.50000 0.0000000E+00 + -22.50000 39.50000 0.0000000E+00 + -21.50000 39.50000 0.0000000E+00 + -20.50000 39.50000 0.0000000E+00 + -19.50000 39.50000 0.0000000E+00 + -18.50000 39.50000 0.0000000E+00 + -17.50000 39.50000 0.0000000E+00 + -16.50000 39.50000 0.0000000E+00 + -15.50000 39.50000 0.0000000E+00 + -14.50000 39.50000 0.0000000E+00 + -13.50000 39.50000 0.0000000E+00 + -12.50000 39.50000 0.0000000E+00 + -11.50000 39.50000 0.0000000E+00 + -10.50000 39.50000 0.0000000E+00 + -9.500000 39.50000 0.0000000E+00 + -8.500000 39.50000 0.0000000E+00 + -7.500000 39.50000 0.0000000E+00 + -6.500000 39.50000 0.0000000E+00 + -5.500000 39.50000 0.0000000E+00 + -4.500000 39.50000 0.0000000E+00 + -3.500000 39.50000 0.0000000E+00 + -2.500000 39.50000 0.0000000E+00 + -1.500000 39.50000 0.0000000E+00 + -0.5000000 39.50000 0.0000000E+00 + 0.5000000 39.50000 0.0000000E+00 + 1.500000 39.50000 0.0000000E+00 + 2.500000 39.50000 0.0000000E+00 + 3.500000 39.50000 0.0000000E+00 + 4.500000 39.50000 0.0000000E+00 + 5.500000 39.50000 0.0000000E+00 + 6.500000 39.50000 0.0000000E+00 + 7.500000 39.50000 0.0000000E+00 + 8.500000 39.50000 0.0000000E+00 + 9.500000 39.50000 0.0000000E+00 + 10.50000 39.50000 0.0000000E+00 + 11.50000 39.50000 0.0000000E+00 + 12.50000 39.50000 0.0000000E+00 + 13.50000 39.50000 0.0000000E+00 + 14.50000 39.50000 5.1200012E-04 + 15.50000 39.50000 0.0000000E+00 + 16.50000 39.50000 0.0000000E+00 + 17.50000 39.50000 0.0000000E+00 + 18.50000 39.50000 0.0000000E+00 + 19.50000 39.50000 0.0000000E+00 + 20.50000 39.50000 0.0000000E+00 + 21.50000 39.50000 8.1920013E-02 + 22.50000 39.50000 5.9326172E-02 + 23.50000 39.50000 5.9326172E-02 + 24.50000 39.50000 4.2017497E-02 + 25.50000 39.50000 4.2017497E-02 + 26.50000 39.50000 2.9007258E-02 + 27.50000 39.50000 2.9007258E-02 + 28.50000 39.50000 1.9440001E-02 + 29.50000 39.50000 1.6260557E-02 + 30.50000 39.50000 4.8372943E-02 + 31.50000 39.50000 6.3388139E-02 + 32.50000 39.50000 8.7606758E-02 + 33.50000 39.50000 0.1209710 + 34.50000 39.50000 0.1410916 + 35.50000 39.50000 0.1307219 + 36.50000 39.50000 0.0000000E+00 + 37.50000 39.50000 0.0000000E+00 + 38.50000 39.50000 0.0000000E+00 + 39.50000 39.50000 0.0000000E+00 + 40.50000 39.50000 0.0000000E+00 + 41.50000 39.50000 0.0000000E+00 + 42.50000 39.50000 0.0000000E+00 + 43.50000 39.50000 0.0000000E+00 + 44.50000 39.50000 0.0000000E+00 + 45.50000 39.50000 0.0000000E+00 + 46.50000 39.50000 0.0000000E+00 + 47.50000 39.50000 0.0000000E+00 + 48.50000 39.50000 0.0000000E+00 + 49.50000 39.50000 0.0000000E+00 + 50.50000 39.50000 0.0000000E+00 + 51.50000 39.50000 0.0000000E+00 + 52.50000 39.50000 0.0000000E+00 + 53.50000 39.50000 0.0000000E+00 + 54.50000 39.50000 0.0000000E+00 + 55.50000 39.50000 0.0000000E+00 + 56.50000 39.50000 0.0000000E+00 + 57.50000 39.50000 0.0000000E+00 + 58.50000 39.50000 0.0000000E+00 + 59.50000 39.50000 0.0000000E+00 + 60.50000 39.50000 0.0000000E+00 + 61.50000 39.50000 0.0000000E+00 + 62.50000 39.50000 0.0000000E+00 + 63.50000 39.50000 0.0000000E+00 + 64.50000 39.50000 0.0000000E+00 + 65.50000 39.50000 0.0000000E+00 + 66.50000 39.50000 0.0000000E+00 + 67.50000 39.50000 0.0000000E+00 + 68.50000 39.50000 0.0000000E+00 + 69.50000 39.50000 0.0000000E+00 + 70.50000 39.50000 0.0000000E+00 + 71.50000 39.50000 0.0000000E+00 + 72.50000 39.50000 0.0000000E+00 + 73.50000 39.50000 0.0000000E+00 + 74.50000 39.50000 0.0000000E+00 + 75.50000 39.50000 0.0000000E+00 + 76.50000 39.50000 0.0000000E+00 + 77.50000 39.50000 0.0000000E+00 + 78.50000 39.50000 0.0000000E+00 + 79.50000 39.50000 0.0000000E+00 + 80.50000 39.50000 0.0000000E+00 + 81.50000 39.50000 0.0000000E+00 + 82.50000 39.50000 0.0000000E+00 + 83.50000 39.50000 0.0000000E+00 + 84.50000 39.50000 0.0000000E+00 + 85.50000 39.50000 0.0000000E+00 + 86.50000 39.50000 0.0000000E+00 + 87.50000 39.50000 0.0000000E+00 + 88.50000 39.50000 0.0000000E+00 + 89.50000 39.50000 0.0000000E+00 + -89.50000 40.50000 0.0000000E+00 + -88.50000 40.50000 0.0000000E+00 + -87.50000 40.50000 0.0000000E+00 + -86.50000 40.50000 0.0000000E+00 + -85.50000 40.50000 0.0000000E+00 + -84.50000 40.50000 0.0000000E+00 + -83.50000 40.50000 0.0000000E+00 + -82.50000 40.50000 0.0000000E+00 + -81.50000 40.50000 0.0000000E+00 + -80.50000 40.50000 0.0000000E+00 + -79.50000 40.50000 0.0000000E+00 + -78.50000 40.50000 0.0000000E+00 + -77.50000 40.50000 0.0000000E+00 + -76.50000 40.50000 0.0000000E+00 + -75.50000 40.50000 0.0000000E+00 + -74.50000 40.50000 0.0000000E+00 + -73.50000 40.50000 0.0000000E+00 + -72.50000 40.50000 0.0000000E+00 + -71.50000 40.50000 0.0000000E+00 + -70.50000 40.50000 0.0000000E+00 + -69.50000 40.50000 0.0000000E+00 + -68.50000 40.50000 0.0000000E+00 + -67.50000 40.50000 0.0000000E+00 + -66.50000 40.50000 0.0000000E+00 + -65.50000 40.50000 0.0000000E+00 + -64.50000 40.50000 0.0000000E+00 + -63.50000 40.50000 0.0000000E+00 + -62.50000 40.50000 0.0000000E+00 + -61.50000 40.50000 0.0000000E+00 + -60.50000 40.50000 0.0000000E+00 + -59.50000 40.50000 0.0000000E+00 + -58.50000 40.50000 0.0000000E+00 + -57.50000 40.50000 0.0000000E+00 + -56.50000 40.50000 0.0000000E+00 + -55.50000 40.50000 0.0000000E+00 + -54.50000 40.50000 0.0000000E+00 + -53.50000 40.50000 0.0000000E+00 + -52.50000 40.50000 0.0000000E+00 + -51.50000 40.50000 0.0000000E+00 + -50.50000 40.50000 0.0000000E+00 + -49.50000 40.50000 0.0000000E+00 + -48.50000 40.50000 0.0000000E+00 + -47.50000 40.50000 0.0000000E+00 + -46.50000 40.50000 0.0000000E+00 + -45.50000 40.50000 0.0000000E+00 + -44.50000 40.50000 0.0000000E+00 + -43.50000 40.50000 0.0000000E+00 + -42.50000 40.50000 0.0000000E+00 + -41.50000 40.50000 0.0000000E+00 + -40.50000 40.50000 0.0000000E+00 + -39.50000 40.50000 0.0000000E+00 + -38.50000 40.50000 0.0000000E+00 + -37.50000 40.50000 0.0000000E+00 + -36.50000 40.50000 0.0000000E+00 + -35.50000 40.50000 0.0000000E+00 + -34.50000 40.50000 0.0000000E+00 + -33.50000 40.50000 0.0000000E+00 + -32.50000 40.50000 0.0000000E+00 + -31.50000 40.50000 0.0000000E+00 + -30.50000 40.50000 0.0000000E+00 + -29.50000 40.50000 0.0000000E+00 + -28.50000 40.50000 0.0000000E+00 + -27.50000 40.50000 0.0000000E+00 + -26.50000 40.50000 0.0000000E+00 + -25.50000 40.50000 0.0000000E+00 + -24.50000 40.50000 0.0000000E+00 + -23.50000 40.50000 0.0000000E+00 + -22.50000 40.50000 0.0000000E+00 + -21.50000 40.50000 0.0000000E+00 + -20.50000 40.50000 0.0000000E+00 + -19.50000 40.50000 0.0000000E+00 + -18.50000 40.50000 0.0000000E+00 + -17.50000 40.50000 0.0000000E+00 + -16.50000 40.50000 0.0000000E+00 + -15.50000 40.50000 0.0000000E+00 + -14.50000 40.50000 0.0000000E+00 + -13.50000 40.50000 0.0000000E+00 + -12.50000 40.50000 0.0000000E+00 + -11.50000 40.50000 0.0000000E+00 + -10.50000 40.50000 0.0000000E+00 + -9.500000 40.50000 0.0000000E+00 + -8.500000 40.50000 0.0000000E+00 + -7.500000 40.50000 0.0000000E+00 + -6.500000 40.50000 0.0000000E+00 + -5.500000 40.50000 0.0000000E+00 + -4.500000 40.50000 0.0000000E+00 + -3.500000 40.50000 0.0000000E+00 + -2.500000 40.50000 0.0000000E+00 + -1.500000 40.50000 0.0000000E+00 + -0.5000000 40.50000 0.0000000E+00 + 0.5000000 40.50000 0.0000000E+00 + 1.500000 40.50000 0.0000000E+00 + 2.500000 40.50000 0.0000000E+00 + 3.500000 40.50000 0.0000000E+00 + 4.500000 40.50000 0.0000000E+00 + 5.500000 40.50000 0.0000000E+00 + 6.500000 40.50000 0.0000000E+00 + 7.500000 40.50000 0.0000000E+00 + 8.500000 40.50000 0.0000000E+00 + 9.500000 40.50000 0.0000000E+00 + 10.50000 40.50000 0.0000000E+00 + 11.50000 40.50000 0.0000000E+00 + 12.50000 40.50000 0.0000000E+00 + 13.50000 40.50000 0.0000000E+00 + 14.50000 40.50000 0.1647704 + 15.50000 40.50000 0.0000000E+00 + 16.50000 40.50000 0.0000000E+00 + 17.50000 40.50000 0.0000000E+00 + 18.50000 40.50000 0.0000000E+00 + 19.50000 40.50000 0.0000000E+00 + 20.50000 40.50000 4.6483610E-02 + 21.50000 40.50000 7.8125000E-03 + 22.50000 40.50000 2.9007258E-02 + 23.50000 40.50000 2.9007258E-02 + 24.50000 40.50000 2.9007258E-02 + 25.50000 40.50000 2.9007258E-02 + 26.50000 40.50000 2.9007258E-02 + 27.50000 40.50000 2.9007258E-02 + 28.50000 40.50000 4.0728722E-02 + 29.50000 40.50000 4.0728722E-02 + 30.50000 40.50000 6.3388139E-02 + 31.50000 40.50000 8.1920013E-02 + 32.50000 40.50000 0.1209710 + 33.50000 40.50000 0.1209710 + 34.50000 40.50000 0.1638045 + 35.50000 40.50000 0.1762085 + 36.50000 40.50000 0.0000000E+00 + 37.50000 40.50000 0.0000000E+00 + 38.50000 40.50000 0.0000000E+00 + 39.50000 40.50000 0.0000000E+00 + 40.50000 40.50000 0.0000000E+00 + 41.50000 40.50000 0.0000000E+00 + 42.50000 40.50000 0.0000000E+00 + 43.50000 40.50000 0.0000000E+00 + 44.50000 40.50000 0.0000000E+00 + 45.50000 40.50000 0.0000000E+00 + 46.50000 40.50000 0.0000000E+00 + 47.50000 40.50000 0.0000000E+00 + 48.50000 40.50000 0.0000000E+00 + 49.50000 40.50000 0.0000000E+00 + 50.50000 40.50000 0.0000000E+00 + 51.50000 40.50000 0.0000000E+00 + 52.50000 40.50000 0.0000000E+00 + 53.50000 40.50000 0.0000000E+00 + 54.50000 40.50000 0.0000000E+00 + 55.50000 40.50000 0.0000000E+00 + 56.50000 40.50000 0.0000000E+00 + 57.50000 40.50000 0.0000000E+00 + 58.50000 40.50000 0.0000000E+00 + 59.50000 40.50000 0.0000000E+00 + 60.50000 40.50000 0.0000000E+00 + 61.50000 40.50000 0.0000000E+00 + 62.50000 40.50000 0.0000000E+00 + 63.50000 40.50000 0.0000000E+00 + 64.50000 40.50000 0.0000000E+00 + 65.50000 40.50000 0.0000000E+00 + 66.50000 40.50000 0.0000000E+00 + 67.50000 40.50000 0.0000000E+00 + 68.50000 40.50000 0.0000000E+00 + 69.50000 40.50000 0.0000000E+00 + 70.50000 40.50000 0.0000000E+00 + 71.50000 40.50000 0.0000000E+00 + 72.50000 40.50000 0.0000000E+00 + 73.50000 40.50000 0.0000000E+00 + 74.50000 40.50000 0.0000000E+00 + 75.50000 40.50000 0.0000000E+00 + 76.50000 40.50000 0.0000000E+00 + 77.50000 40.50000 0.0000000E+00 + 78.50000 40.50000 0.0000000E+00 + 79.50000 40.50000 0.0000000E+00 + 80.50000 40.50000 0.0000000E+00 + 81.50000 40.50000 0.0000000E+00 + 82.50000 40.50000 0.0000000E+00 + 83.50000 40.50000 0.0000000E+00 + 84.50000 40.50000 0.0000000E+00 + 85.50000 40.50000 0.0000000E+00 + 86.50000 40.50000 0.0000000E+00 + 87.50000 40.50000 0.0000000E+00 + 88.50000 40.50000 0.0000000E+00 + 89.50000 40.50000 0.0000000E+00 + -89.50000 41.50000 0.0000000E+00 + -88.50000 41.50000 0.0000000E+00 + -87.50000 41.50000 0.0000000E+00 + -86.50000 41.50000 0.0000000E+00 + -85.50000 41.50000 0.0000000E+00 + -84.50000 41.50000 0.0000000E+00 + -83.50000 41.50000 0.0000000E+00 + -82.50000 41.50000 0.0000000E+00 + -81.50000 41.50000 0.0000000E+00 + -80.50000 41.50000 0.0000000E+00 + -79.50000 41.50000 0.0000000E+00 + -78.50000 41.50000 0.0000000E+00 + -77.50000 41.50000 0.0000000E+00 + -76.50000 41.50000 0.0000000E+00 + -75.50000 41.50000 0.0000000E+00 + -74.50000 41.50000 0.0000000E+00 + -73.50000 41.50000 0.0000000E+00 + -72.50000 41.50000 0.0000000E+00 + -71.50000 41.50000 0.0000000E+00 + -70.50000 41.50000 0.0000000E+00 + -69.50000 41.50000 0.0000000E+00 + -68.50000 41.50000 0.0000000E+00 + -67.50000 41.50000 0.0000000E+00 + -66.50000 41.50000 0.0000000E+00 + -65.50000 41.50000 0.0000000E+00 + -64.50000 41.50000 0.0000000E+00 + -63.50000 41.50000 0.0000000E+00 + -62.50000 41.50000 0.0000000E+00 + -61.50000 41.50000 0.0000000E+00 + -60.50000 41.50000 0.0000000E+00 + -59.50000 41.50000 0.0000000E+00 + -58.50000 41.50000 0.0000000E+00 + -57.50000 41.50000 0.0000000E+00 + -56.50000 41.50000 0.0000000E+00 + -55.50000 41.50000 0.0000000E+00 + -54.50000 41.50000 0.0000000E+00 + -53.50000 41.50000 0.0000000E+00 + -52.50000 41.50000 0.0000000E+00 + -51.50000 41.50000 0.0000000E+00 + -50.50000 41.50000 0.0000000E+00 + -49.50000 41.50000 0.0000000E+00 + -48.50000 41.50000 0.0000000E+00 + -47.50000 41.50000 0.0000000E+00 + -46.50000 41.50000 0.0000000E+00 + -45.50000 41.50000 0.0000000E+00 + -44.50000 41.50000 0.0000000E+00 + -43.50000 41.50000 0.0000000E+00 + -42.50000 41.50000 0.0000000E+00 + -41.50000 41.50000 0.0000000E+00 + -40.50000 41.50000 0.0000000E+00 + -39.50000 41.50000 0.0000000E+00 + -38.50000 41.50000 0.0000000E+00 + -37.50000 41.50000 0.0000000E+00 + -36.50000 41.50000 0.0000000E+00 + -35.50000 41.50000 0.0000000E+00 + -34.50000 41.50000 0.0000000E+00 + -33.50000 41.50000 0.0000000E+00 + -32.50000 41.50000 0.0000000E+00 + -31.50000 41.50000 0.0000000E+00 + -30.50000 41.50000 0.0000000E+00 + -29.50000 41.50000 0.0000000E+00 + -28.50000 41.50000 0.0000000E+00 + -27.50000 41.50000 0.0000000E+00 + -26.50000 41.50000 0.0000000E+00 + -25.50000 41.50000 0.0000000E+00 + -24.50000 41.50000 0.0000000E+00 + -23.50000 41.50000 0.0000000E+00 + -22.50000 41.50000 0.0000000E+00 + -21.50000 41.50000 0.0000000E+00 + -20.50000 41.50000 0.0000000E+00 + -19.50000 41.50000 0.0000000E+00 + -18.50000 41.50000 0.0000000E+00 + -17.50000 41.50000 0.0000000E+00 + -16.50000 41.50000 0.0000000E+00 + -15.50000 41.50000 0.0000000E+00 + -14.50000 41.50000 0.0000000E+00 + -13.50000 41.50000 0.0000000E+00 + -12.50000 41.50000 0.0000000E+00 + -11.50000 41.50000 0.0000000E+00 + -10.50000 41.50000 0.0000000E+00 + -9.500000 41.50000 0.0000000E+00 + -8.500000 41.50000 0.0000000E+00 + -7.500000 41.50000 0.0000000E+00 + -6.500000 41.50000 0.0000000E+00 + -5.500000 41.50000 0.0000000E+00 + -4.500000 41.50000 0.0000000E+00 + -3.500000 41.50000 0.0000000E+00 + -2.500000 41.50000 0.0000000E+00 + -1.500000 41.50000 0.0000000E+00 + -0.5000000 41.50000 0.0000000E+00 + 0.5000000 41.50000 0.0000000E+00 + 1.500000 41.50000 0.0000000E+00 + 2.500000 41.50000 0.0000000E+00 + 3.500000 41.50000 0.0000000E+00 + 4.500000 41.50000 0.0000000E+00 + 5.500000 41.50000 0.0000000E+00 + 6.500000 41.50000 0.0000000E+00 + 7.500000 41.50000 0.0000000E+00 + 8.500000 41.50000 0.0000000E+00 + 9.500000 41.50000 0.0000000E+00 + 10.50000 41.50000 0.0000000E+00 + 11.50000 41.50000 0.1354292 + 12.50000 41.50000 0.1354292 + 13.50000 41.50000 8.5934922E-02 + 14.50000 41.50000 0.0000000E+00 + 15.50000 41.50000 0.0000000E+00 + 16.50000 41.50000 0.0000000E+00 + 17.50000 41.50000 0.0000000E+00 + 18.50000 41.50000 6.4186469E-02 + 19.50000 41.50000 6.4186469E-02 + 20.50000 41.50000 6.2682098E-05 + 21.50000 41.50000 0.0000000E+00 + 22.50000 41.50000 6.0451631E-03 + 23.50000 41.50000 4.6132025E-03 + 24.50000 41.50000 7.8125000E-03 + 25.50000 41.50000 2.9007258E-02 + 26.50000 41.50000 1.9440001E-02 + 27.50000 41.50000 1.2582110E-02 + 28.50000 41.50000 4.0728722E-02 + 29.50000 41.50000 5.5149995E-02 + 30.50000 41.50000 6.3388139E-02 + 31.50000 41.50000 8.1920013E-02 + 32.50000 41.50000 0.1209710 + 33.50000 41.50000 0.1209710 + 34.50000 41.50000 0.1638045 + 35.50000 41.50000 0.1638045 + 36.50000 41.50000 0.0000000E+00 + 37.50000 41.50000 0.0000000E+00 + 38.50000 41.50000 0.0000000E+00 + 39.50000 41.50000 0.0000000E+00 + 40.50000 41.50000 0.0000000E+00 + 41.50000 41.50000 0.0000000E+00 + 42.50000 41.50000 0.0000000E+00 + 43.50000 41.50000 0.0000000E+00 + 44.50000 41.50000 0.0000000E+00 + 45.50000 41.50000 0.0000000E+00 + 46.50000 41.50000 0.0000000E+00 + 47.50000 41.50000 0.0000000E+00 + 48.50000 41.50000 0.0000000E+00 + 49.50000 41.50000 0.0000000E+00 + 50.50000 41.50000 0.0000000E+00 + 51.50000 41.50000 0.0000000E+00 + 52.50000 41.50000 0.0000000E+00 + 53.50000 41.50000 0.0000000E+00 + 54.50000 41.50000 0.0000000E+00 + 55.50000 41.50000 0.0000000E+00 + 56.50000 41.50000 0.0000000E+00 + 57.50000 41.50000 0.0000000E+00 + 58.50000 41.50000 0.0000000E+00 + 59.50000 41.50000 0.0000000E+00 + 60.50000 41.50000 0.0000000E+00 + 61.50000 41.50000 0.0000000E+00 + 62.50000 41.50000 0.0000000E+00 + 63.50000 41.50000 0.0000000E+00 + 64.50000 41.50000 0.0000000E+00 + 65.50000 41.50000 0.0000000E+00 + 66.50000 41.50000 0.0000000E+00 + 67.50000 41.50000 0.0000000E+00 + 68.50000 41.50000 0.0000000E+00 + 69.50000 41.50000 0.0000000E+00 + 70.50000 41.50000 0.0000000E+00 + 71.50000 41.50000 0.0000000E+00 + 72.50000 41.50000 0.0000000E+00 + 73.50000 41.50000 0.0000000E+00 + 74.50000 41.50000 0.0000000E+00 + 75.50000 41.50000 0.0000000E+00 + 76.50000 41.50000 0.0000000E+00 + 77.50000 41.50000 0.0000000E+00 + 78.50000 41.50000 0.0000000E+00 + 79.50000 41.50000 0.0000000E+00 + 80.50000 41.50000 0.0000000E+00 + 81.50000 41.50000 0.0000000E+00 + 82.50000 41.50000 0.0000000E+00 + 83.50000 41.50000 0.0000000E+00 + 84.50000 41.50000 0.0000000E+00 + 85.50000 41.50000 0.0000000E+00 + 86.50000 41.50000 0.0000000E+00 + 87.50000 41.50000 0.0000000E+00 + 88.50000 41.50000 0.0000000E+00 + 89.50000 41.50000 0.0000000E+00 + -89.50000 42.50000 0.0000000E+00 + -88.50000 42.50000 0.0000000E+00 + -87.50000 42.50000 0.0000000E+00 + -86.50000 42.50000 0.0000000E+00 + -85.50000 42.50000 0.0000000E+00 + -84.50000 42.50000 0.0000000E+00 + -83.50000 42.50000 0.0000000E+00 + -82.50000 42.50000 0.0000000E+00 + -81.50000 42.50000 0.0000000E+00 + -80.50000 42.50000 0.0000000E+00 + -79.50000 42.50000 0.0000000E+00 + -78.50000 42.50000 0.0000000E+00 + -77.50000 42.50000 0.0000000E+00 + -76.50000 42.50000 0.0000000E+00 + -75.50000 42.50000 0.0000000E+00 + -74.50000 42.50000 0.0000000E+00 + -73.50000 42.50000 0.0000000E+00 + -72.50000 42.50000 0.0000000E+00 + -71.50000 42.50000 0.0000000E+00 + -70.50000 42.50000 0.0000000E+00 + -69.50000 42.50000 0.0000000E+00 + -68.50000 42.50000 0.0000000E+00 + -67.50000 42.50000 0.0000000E+00 + -66.50000 42.50000 0.0000000E+00 + -65.50000 42.50000 0.0000000E+00 + -64.50000 42.50000 0.0000000E+00 + -63.50000 42.50000 0.0000000E+00 + -62.50000 42.50000 0.0000000E+00 + -61.50000 42.50000 0.0000000E+00 + -60.50000 42.50000 0.0000000E+00 + -59.50000 42.50000 0.0000000E+00 + -58.50000 42.50000 0.0000000E+00 + -57.50000 42.50000 0.0000000E+00 + -56.50000 42.50000 0.0000000E+00 + -55.50000 42.50000 0.0000000E+00 + -54.50000 42.50000 0.0000000E+00 + -53.50000 42.50000 0.0000000E+00 + -52.50000 42.50000 0.0000000E+00 + -51.50000 42.50000 0.0000000E+00 + -50.50000 42.50000 0.0000000E+00 + -49.50000 42.50000 0.0000000E+00 + -48.50000 42.50000 0.0000000E+00 + -47.50000 42.50000 0.0000000E+00 + -46.50000 42.50000 0.0000000E+00 + -45.50000 42.50000 0.0000000E+00 + -44.50000 42.50000 0.0000000E+00 + -43.50000 42.50000 0.0000000E+00 + -42.50000 42.50000 0.0000000E+00 + -41.50000 42.50000 0.0000000E+00 + -40.50000 42.50000 0.0000000E+00 + -39.50000 42.50000 0.0000000E+00 + -38.50000 42.50000 0.0000000E+00 + -37.50000 42.50000 0.0000000E+00 + -36.50000 42.50000 0.0000000E+00 + -35.50000 42.50000 0.0000000E+00 + -34.50000 42.50000 0.0000000E+00 + -33.50000 42.50000 0.0000000E+00 + -32.50000 42.50000 0.0000000E+00 + -31.50000 42.50000 0.0000000E+00 + -30.50000 42.50000 0.0000000E+00 + -29.50000 42.50000 0.0000000E+00 + -28.50000 42.50000 0.0000000E+00 + -27.50000 42.50000 0.0000000E+00 + -26.50000 42.50000 0.0000000E+00 + -25.50000 42.50000 0.0000000E+00 + -24.50000 42.50000 0.0000000E+00 + -23.50000 42.50000 0.0000000E+00 + -22.50000 42.50000 0.0000000E+00 + -21.50000 42.50000 0.0000000E+00 + -20.50000 42.50000 0.0000000E+00 + -19.50000 42.50000 0.0000000E+00 + -18.50000 42.50000 0.0000000E+00 + -17.50000 42.50000 0.0000000E+00 + -16.50000 42.50000 0.0000000E+00 + -15.50000 42.50000 0.0000000E+00 + -14.50000 42.50000 0.0000000E+00 + -13.50000 42.50000 0.0000000E+00 + -12.50000 42.50000 0.0000000E+00 + -11.50000 42.50000 0.0000000E+00 + -10.50000 42.50000 0.0000000E+00 + -9.500000 42.50000 0.0000000E+00 + -8.500000 42.50000 0.0000000E+00 + -7.500000 42.50000 0.0000000E+00 + -6.500000 42.50000 0.0000000E+00 + -5.500000 42.50000 0.0000000E+00 + -4.500000 42.50000 0.0000000E+00 + -3.500000 42.50000 0.0000000E+00 + -2.500000 42.50000 0.0000000E+00 + -1.500000 42.50000 0.0000000E+00 + -0.5000000 42.50000 0.0000000E+00 + 0.5000000 42.50000 0.0000000E+00 + 1.500000 42.50000 0.0000000E+00 + 2.500000 42.50000 0.0000000E+00 + 3.500000 42.50000 0.0000000E+00 + 4.500000 42.50000 0.0000000E+00 + 5.500000 42.50000 0.0000000E+00 + 6.500000 42.50000 0.0000000E+00 + 7.500000 42.50000 0.0000000E+00 + 8.500000 42.50000 0.0000000E+00 + 9.500000 42.50000 0.0000000E+00 + 10.50000 42.50000 0.0000000E+00 + 11.50000 42.50000 0.1675442 + 12.50000 42.50000 0.1084393 + 13.50000 42.50000 0.0000000E+00 + 14.50000 42.50000 0.0000000E+00 + 15.50000 42.50000 0.0000000E+00 + 16.50000 42.50000 0.1647704 + 17.50000 42.50000 0.1045530 + 18.50000 42.50000 9.8584155E-03 + 19.50000 42.50000 4.7599224E-04 + 20.50000 42.50000 9.8584155E-03 + 21.50000 42.50000 4.6132025E-03 + 22.50000 42.50000 8.0000013E-05 + 23.50000 42.50000 2.5600004E-03 + 24.50000 42.50000 7.8125000E-03 + 25.50000 42.50000 1.2582110E-02 + 26.50000 42.50000 3.2921817E-02 + 27.50000 42.50000 6.5843635E-03 + 28.50000 42.50000 4.4578802E-02 + 29.50000 42.50000 5.9326172E-02 + 30.50000 42.50000 8.1920013E-02 + 31.50000 42.50000 8.1920013E-02 + 32.50000 42.50000 0.1410916 + 33.50000 42.50000 0.1893527 + 34.50000 42.50000 0.1893527 + 35.50000 42.50000 0.1638045 + 36.50000 42.50000 0.0000000E+00 + 37.50000 42.50000 0.0000000E+00 + 38.50000 42.50000 0.0000000E+00 + 39.50000 42.50000 0.0000000E+00 + 40.50000 42.50000 0.0000000E+00 + 41.50000 42.50000 0.0000000E+00 + 42.50000 42.50000 0.0000000E+00 + 43.50000 42.50000 0.0000000E+00 + 44.50000 42.50000 0.0000000E+00 + 45.50000 42.50000 0.0000000E+00 + 46.50000 42.50000 0.0000000E+00 + 47.50000 42.50000 0.0000000E+00 + 48.50000 42.50000 0.0000000E+00 + 49.50000 42.50000 0.0000000E+00 + 50.50000 42.50000 0.0000000E+00 + 51.50000 42.50000 0.0000000E+00 + 52.50000 42.50000 0.0000000E+00 + 53.50000 42.50000 0.0000000E+00 + 54.50000 42.50000 0.0000000E+00 + 55.50000 42.50000 0.0000000E+00 + 56.50000 42.50000 0.0000000E+00 + 57.50000 42.50000 0.0000000E+00 + 58.50000 42.50000 0.0000000E+00 + 59.50000 42.50000 0.0000000E+00 + 60.50000 42.50000 0.0000000E+00 + 61.50000 42.50000 0.0000000E+00 + 62.50000 42.50000 0.0000000E+00 + 63.50000 42.50000 0.0000000E+00 + 64.50000 42.50000 0.0000000E+00 + 65.50000 42.50000 0.0000000E+00 + 66.50000 42.50000 0.0000000E+00 + 67.50000 42.50000 0.0000000E+00 + 68.50000 42.50000 0.0000000E+00 + 69.50000 42.50000 0.0000000E+00 + 70.50000 42.50000 0.0000000E+00 + 71.50000 42.50000 0.0000000E+00 + 72.50000 42.50000 0.0000000E+00 + 73.50000 42.50000 0.0000000E+00 + 74.50000 42.50000 0.0000000E+00 + 75.50000 42.50000 0.0000000E+00 + 76.50000 42.50000 0.0000000E+00 + 77.50000 42.50000 0.0000000E+00 + 78.50000 42.50000 0.0000000E+00 + 79.50000 42.50000 0.0000000E+00 + 80.50000 42.50000 0.0000000E+00 + 81.50000 42.50000 0.0000000E+00 + 82.50000 42.50000 0.0000000E+00 + 83.50000 42.50000 0.0000000E+00 + 84.50000 42.50000 0.0000000E+00 + 85.50000 42.50000 0.0000000E+00 + 86.50000 42.50000 0.0000000E+00 + 87.50000 42.50000 0.0000000E+00 + 88.50000 42.50000 0.0000000E+00 + 89.50000 42.50000 0.0000000E+00 + -89.50000 43.50000 0.0000000E+00 + -88.50000 43.50000 0.0000000E+00 + -87.50000 43.50000 0.0000000E+00 + -86.50000 43.50000 0.0000000E+00 + -85.50000 43.50000 0.0000000E+00 + -84.50000 43.50000 0.0000000E+00 + -83.50000 43.50000 0.0000000E+00 + -82.50000 43.50000 0.0000000E+00 + -81.50000 43.50000 0.0000000E+00 + -80.50000 43.50000 0.0000000E+00 + -79.50000 43.50000 0.0000000E+00 + -78.50000 43.50000 0.0000000E+00 + -77.50000 43.50000 0.0000000E+00 + -76.50000 43.50000 0.0000000E+00 + -75.50000 43.50000 0.0000000E+00 + -74.50000 43.50000 0.0000000E+00 + -73.50000 43.50000 0.0000000E+00 + -72.50000 43.50000 0.0000000E+00 + -71.50000 43.50000 0.0000000E+00 + -70.50000 43.50000 0.0000000E+00 + -69.50000 43.50000 0.0000000E+00 + -68.50000 43.50000 0.0000000E+00 + -67.50000 43.50000 0.0000000E+00 + -66.50000 43.50000 0.0000000E+00 + -65.50000 43.50000 0.0000000E+00 + -64.50000 43.50000 0.0000000E+00 + -63.50000 43.50000 0.0000000E+00 + -62.50000 43.50000 0.0000000E+00 + -61.50000 43.50000 0.0000000E+00 + -60.50000 43.50000 0.0000000E+00 + -59.50000 43.50000 0.0000000E+00 + -58.50000 43.50000 0.0000000E+00 + -57.50000 43.50000 0.0000000E+00 + -56.50000 43.50000 0.0000000E+00 + -55.50000 43.50000 0.0000000E+00 + -54.50000 43.50000 0.0000000E+00 + -53.50000 43.50000 0.0000000E+00 + -52.50000 43.50000 0.0000000E+00 + -51.50000 43.50000 0.0000000E+00 + -50.50000 43.50000 0.0000000E+00 + -49.50000 43.50000 0.0000000E+00 + -48.50000 43.50000 0.0000000E+00 + -47.50000 43.50000 0.0000000E+00 + -46.50000 43.50000 0.0000000E+00 + -45.50000 43.50000 0.0000000E+00 + -44.50000 43.50000 0.0000000E+00 + -43.50000 43.50000 0.0000000E+00 + -42.50000 43.50000 0.0000000E+00 + -41.50000 43.50000 0.0000000E+00 + -40.50000 43.50000 0.0000000E+00 + -39.50000 43.50000 0.0000000E+00 + -38.50000 43.50000 0.0000000E+00 + -37.50000 43.50000 0.0000000E+00 + -36.50000 43.50000 0.0000000E+00 + -35.50000 43.50000 0.0000000E+00 + -34.50000 43.50000 0.0000000E+00 + -33.50000 43.50000 0.0000000E+00 + -32.50000 43.50000 0.0000000E+00 + -31.50000 43.50000 0.0000000E+00 + -30.50000 43.50000 0.0000000E+00 + -29.50000 43.50000 0.0000000E+00 + -28.50000 43.50000 0.0000000E+00 + -27.50000 43.50000 0.0000000E+00 + -26.50000 43.50000 0.0000000E+00 + -25.50000 43.50000 0.0000000E+00 + -24.50000 43.50000 0.0000000E+00 + -23.50000 43.50000 0.0000000E+00 + -22.50000 43.50000 0.0000000E+00 + -21.50000 43.50000 0.0000000E+00 + -20.50000 43.50000 0.0000000E+00 + -19.50000 43.50000 0.0000000E+00 + -18.50000 43.50000 0.0000000E+00 + -17.50000 43.50000 0.0000000E+00 + -16.50000 43.50000 0.0000000E+00 + -15.50000 43.50000 0.0000000E+00 + -14.50000 43.50000 0.0000000E+00 + -13.50000 43.50000 0.0000000E+00 + -12.50000 43.50000 0.0000000E+00 + -11.50000 43.50000 0.0000000E+00 + -10.50000 43.50000 0.0000000E+00 + -9.500000 43.50000 0.0000000E+00 + -8.500000 43.50000 0.0000000E+00 + -7.500000 43.50000 0.0000000E+00 + -6.500000 43.50000 0.0000000E+00 + -5.500000 43.50000 0.0000000E+00 + -4.500000 43.50000 0.0000000E+00 + -3.500000 43.50000 0.0000000E+00 + -2.500000 43.50000 0.0000000E+00 + -1.500000 43.50000 0.0000000E+00 + -0.5000000 43.50000 0.0000000E+00 + 0.5000000 43.50000 0.0000000E+00 + 1.500000 43.50000 0.0000000E+00 + 2.500000 43.50000 0.0000000E+00 + 3.500000 43.50000 0.0000000E+00 + 4.500000 43.50000 0.0000000E+00 + 5.500000 43.50000 0.0000000E+00 + 6.500000 43.50000 0.0000000E+00 + 7.500000 43.50000 0.0000000E+00 + 8.500000 43.50000 0.0000000E+00 + 9.500000 43.50000 3.1956527E-03 + 10.50000 43.50000 1.7186984E-02 + 11.50000 43.50000 0.0000000E+00 + 12.50000 43.50000 0.0000000E+00 + 13.50000 43.50000 7.9518072E-03 + 14.50000 43.50000 9.6745891E-03 + 15.50000 43.50000 7.2696689E-03 + 16.50000 43.50000 7.2696689E-03 + 17.50000 43.50000 1.9440001E-02 + 18.50000 43.50000 3.6145656E-03 + 19.50000 43.50000 9.8584155E-03 + 20.50000 43.50000 1.5231752E-02 + 21.50000 43.50000 1.2582110E-02 + 22.50000 43.50000 6.0750003E-04 + 23.50000 43.50000 7.8125000E-03 + 24.50000 43.50000 1.2582110E-02 + 25.50000 43.50000 3.4535322E-02 + 26.50000 43.50000 4.5596529E-02 + 27.50000 43.50000 1.0420084E-02 + 28.50000 43.50000 6.7332275E-02 + 29.50000 43.50000 8.5934922E-02 + 30.50000 43.50000 0.1084393 + 31.50000 43.50000 0.1084393 + 32.50000 43.50000 3.7870541E-02 + 33.50000 43.50000 0.1893527 + 34.50000 43.50000 0.1893527 + 35.50000 43.50000 0.0000000E+00 + 36.50000 43.50000 0.0000000E+00 + 37.50000 43.50000 0.0000000E+00 + 38.50000 43.50000 0.0000000E+00 + 39.50000 43.50000 0.0000000E+00 + 40.50000 43.50000 0.0000000E+00 + 41.50000 43.50000 0.0000000E+00 + 42.50000 43.50000 0.0000000E+00 + 43.50000 43.50000 0.0000000E+00 + 44.50000 43.50000 0.0000000E+00 + 45.50000 43.50000 0.0000000E+00 + 46.50000 43.50000 0.0000000E+00 + 47.50000 43.50000 0.0000000E+00 + 48.50000 43.50000 0.0000000E+00 + 49.50000 43.50000 0.0000000E+00 + 50.50000 43.50000 0.0000000E+00 + 51.50000 43.50000 0.0000000E+00 + 52.50000 43.50000 0.0000000E+00 + 53.50000 43.50000 0.0000000E+00 + 54.50000 43.50000 0.0000000E+00 + 55.50000 43.50000 0.0000000E+00 + 56.50000 43.50000 0.0000000E+00 + 57.50000 43.50000 0.0000000E+00 + 58.50000 43.50000 0.0000000E+00 + 59.50000 43.50000 0.0000000E+00 + 60.50000 43.50000 0.0000000E+00 + 61.50000 43.50000 0.0000000E+00 + 62.50000 43.50000 0.0000000E+00 + 63.50000 43.50000 0.0000000E+00 + 64.50000 43.50000 0.0000000E+00 + 65.50000 43.50000 0.0000000E+00 + 66.50000 43.50000 0.0000000E+00 + 67.50000 43.50000 0.0000000E+00 + 68.50000 43.50000 0.0000000E+00 + 69.50000 43.50000 0.0000000E+00 + 70.50000 43.50000 0.0000000E+00 + 71.50000 43.50000 0.0000000E+00 + 72.50000 43.50000 0.0000000E+00 + 73.50000 43.50000 0.0000000E+00 + 74.50000 43.50000 0.0000000E+00 + 75.50000 43.50000 0.0000000E+00 + 76.50000 43.50000 0.0000000E+00 + 77.50000 43.50000 0.0000000E+00 + 78.50000 43.50000 0.0000000E+00 + 79.50000 43.50000 0.0000000E+00 + 80.50000 43.50000 0.0000000E+00 + 81.50000 43.50000 0.0000000E+00 + 82.50000 43.50000 0.0000000E+00 + 83.50000 43.50000 0.0000000E+00 + 84.50000 43.50000 0.0000000E+00 + 85.50000 43.50000 0.0000000E+00 + 86.50000 43.50000 0.0000000E+00 + 87.50000 43.50000 0.0000000E+00 + 88.50000 43.50000 0.0000000E+00 + 89.50000 43.50000 0.0000000E+00 + -89.50000 44.50000 0.0000000E+00 + -88.50000 44.50000 0.0000000E+00 + -87.50000 44.50000 0.0000000E+00 + -86.50000 44.50000 0.0000000E+00 + -85.50000 44.50000 0.0000000E+00 + -84.50000 44.50000 0.0000000E+00 + -83.50000 44.50000 0.0000000E+00 + -82.50000 44.50000 0.0000000E+00 + -81.50000 44.50000 0.0000000E+00 + -80.50000 44.50000 0.0000000E+00 + -79.50000 44.50000 0.0000000E+00 + -78.50000 44.50000 0.0000000E+00 + -77.50000 44.50000 0.0000000E+00 + -76.50000 44.50000 0.0000000E+00 + -75.50000 44.50000 0.0000000E+00 + -74.50000 44.50000 0.0000000E+00 + -73.50000 44.50000 0.0000000E+00 + -72.50000 44.50000 0.0000000E+00 + -71.50000 44.50000 0.0000000E+00 + -70.50000 44.50000 0.0000000E+00 + -69.50000 44.50000 0.0000000E+00 + -68.50000 44.50000 0.0000000E+00 + -67.50000 44.50000 0.0000000E+00 + -66.50000 44.50000 0.0000000E+00 + -65.50000 44.50000 0.0000000E+00 + -64.50000 44.50000 0.0000000E+00 + -63.50000 44.50000 0.0000000E+00 + -62.50000 44.50000 0.0000000E+00 + -61.50000 44.50000 0.0000000E+00 + -60.50000 44.50000 0.0000000E+00 + -59.50000 44.50000 0.0000000E+00 + -58.50000 44.50000 0.0000000E+00 + -57.50000 44.50000 0.0000000E+00 + -56.50000 44.50000 0.0000000E+00 + -55.50000 44.50000 0.0000000E+00 + -54.50000 44.50000 0.0000000E+00 + -53.50000 44.50000 0.0000000E+00 + -52.50000 44.50000 0.0000000E+00 + -51.50000 44.50000 0.0000000E+00 + -50.50000 44.50000 0.0000000E+00 + -49.50000 44.50000 0.0000000E+00 + -48.50000 44.50000 0.0000000E+00 + -47.50000 44.50000 0.0000000E+00 + -46.50000 44.50000 0.0000000E+00 + -45.50000 44.50000 0.0000000E+00 + -44.50000 44.50000 0.0000000E+00 + -43.50000 44.50000 0.0000000E+00 + -42.50000 44.50000 0.0000000E+00 + -41.50000 44.50000 0.0000000E+00 + -40.50000 44.50000 0.0000000E+00 + -39.50000 44.50000 0.0000000E+00 + -38.50000 44.50000 0.0000000E+00 + -37.50000 44.50000 0.0000000E+00 + -36.50000 44.50000 0.0000000E+00 + -35.50000 44.50000 0.0000000E+00 + -34.50000 44.50000 0.0000000E+00 + -33.50000 44.50000 0.0000000E+00 + -32.50000 44.50000 0.0000000E+00 + -31.50000 44.50000 0.0000000E+00 + -30.50000 44.50000 0.0000000E+00 + -29.50000 44.50000 0.0000000E+00 + -28.50000 44.50000 0.0000000E+00 + -27.50000 44.50000 0.0000000E+00 + -26.50000 44.50000 0.0000000E+00 + -25.50000 44.50000 0.0000000E+00 + -24.50000 44.50000 0.0000000E+00 + -23.50000 44.50000 0.0000000E+00 + -22.50000 44.50000 0.0000000E+00 + -21.50000 44.50000 0.0000000E+00 + -20.50000 44.50000 0.0000000E+00 + -19.50000 44.50000 0.0000000E+00 + -18.50000 44.50000 0.0000000E+00 + -17.50000 44.50000 0.0000000E+00 + -16.50000 44.50000 0.0000000E+00 + -15.50000 44.50000 0.0000000E+00 + -14.50000 44.50000 0.0000000E+00 + -13.50000 44.50000 0.0000000E+00 + -12.50000 44.50000 0.0000000E+00 + -11.50000 44.50000 0.0000000E+00 + -10.50000 44.50000 0.0000000E+00 + -9.500000 44.50000 0.0000000E+00 + -8.500000 44.50000 0.0000000E+00 + -7.500000 44.50000 0.0000000E+00 + -6.500000 44.50000 0.0000000E+00 + -5.500000 44.50000 0.0000000E+00 + -4.500000 44.50000 0.0000000E+00 + -3.500000 44.50000 0.0000000E+00 + -2.500000 44.50000 0.0000000E+00 + -1.500000 44.50000 0.0000000E+00 + -0.5000000 44.50000 0.0000000E+00 + 0.5000000 44.50000 0.0000000E+00 + 1.500000 44.50000 0.0000000E+00 + 2.500000 44.50000 0.0000000E+00 + 3.500000 44.50000 0.0000000E+00 + 4.500000 44.50000 0.0000000E+00 + 5.500000 44.50000 0.0000000E+00 + 6.500000 44.50000 0.0000000E+00 + 7.500000 44.50000 0.0000000E+00 + 8.500000 44.50000 0.0000000E+00 + 9.500000 44.50000 4.4126883E-03 + 10.50000 44.50000 0.0000000E+00 + 11.50000 44.50000 0.0000000E+00 + 12.50000 44.50000 0.0000000E+00 + 13.50000 44.50000 0.0000000E+00 + 14.50000 44.50000 0.0000000E+00 + 15.50000 44.50000 8.6051841E-05 + 16.50000 44.50000 1.9440001E-02 + 17.50000 44.50000 2.6843542E-02 + 18.50000 44.50000 9.8584155E-03 + 19.50000 44.50000 1.5231752E-02 + 20.50000 44.50000 1.8680722E-02 + 21.50000 44.50000 1.5713727E-02 + 22.50000 44.50000 1.5713727E-02 + 23.50000 44.50000 9.8584155E-03 + 24.50000 44.50000 1.9440001E-02 + 25.50000 44.50000 6.9070645E-03 + 26.50000 44.50000 1.0420084E-02 + 27.50000 44.50000 1.3466455E-02 + 28.50000 44.50000 1.7186984E-02 + 29.50000 44.50000 0.1084393 + 30.50000 44.50000 0.1354292 + 31.50000 44.50000 3.3508848E-02 + 32.50000 44.50000 3.7870541E-02 + 33.50000 44.50000 0.0000000E+00 + 34.50000 44.50000 0.1893527 + 35.50000 44.50000 0.0000000E+00 + 36.50000 44.50000 0.0000000E+00 + 37.50000 44.50000 0.0000000E+00 + 38.50000 44.50000 0.0000000E+00 + 39.50000 44.50000 0.0000000E+00 + 40.50000 44.50000 0.0000000E+00 + 41.50000 44.50000 0.0000000E+00 + 42.50000 44.50000 0.0000000E+00 + 43.50000 44.50000 0.0000000E+00 + 44.50000 44.50000 0.0000000E+00 + 45.50000 44.50000 0.0000000E+00 + 46.50000 44.50000 0.0000000E+00 + 47.50000 44.50000 0.0000000E+00 + 48.50000 44.50000 0.0000000E+00 + 49.50000 44.50000 0.0000000E+00 + 50.50000 44.50000 0.0000000E+00 + 51.50000 44.50000 0.0000000E+00 + 52.50000 44.50000 0.0000000E+00 + 53.50000 44.50000 0.0000000E+00 + 54.50000 44.50000 0.0000000E+00 + 55.50000 44.50000 0.0000000E+00 + 56.50000 44.50000 0.0000000E+00 + 57.50000 44.50000 0.0000000E+00 + 58.50000 44.50000 0.0000000E+00 + 59.50000 44.50000 0.0000000E+00 + 60.50000 44.50000 0.0000000E+00 + 61.50000 44.50000 0.0000000E+00 + 62.50000 44.50000 0.0000000E+00 + 63.50000 44.50000 0.0000000E+00 + 64.50000 44.50000 0.0000000E+00 + 65.50000 44.50000 0.0000000E+00 + 66.50000 44.50000 0.0000000E+00 + 67.50000 44.50000 0.0000000E+00 + 68.50000 44.50000 0.0000000E+00 + 69.50000 44.50000 0.0000000E+00 + 70.50000 44.50000 0.0000000E+00 + 71.50000 44.50000 0.0000000E+00 + 72.50000 44.50000 0.0000000E+00 + 73.50000 44.50000 0.0000000E+00 + 74.50000 44.50000 0.0000000E+00 + 75.50000 44.50000 0.0000000E+00 + 76.50000 44.50000 0.0000000E+00 + 77.50000 44.50000 0.0000000E+00 + 78.50000 44.50000 0.0000000E+00 + 79.50000 44.50000 0.0000000E+00 + 80.50000 44.50000 0.0000000E+00 + 81.50000 44.50000 0.0000000E+00 + 82.50000 44.50000 0.0000000E+00 + 83.50000 44.50000 0.0000000E+00 + 84.50000 44.50000 0.0000000E+00 + 85.50000 44.50000 0.0000000E+00 + 86.50000 44.50000 0.0000000E+00 + 87.50000 44.50000 0.0000000E+00 + 88.50000 44.50000 0.0000000E+00 + 89.50000 44.50000 0.0000000E+00 + -89.50000 45.50000 0.0000000E+00 + -88.50000 45.50000 0.0000000E+00 + -87.50000 45.50000 0.0000000E+00 + -86.50000 45.50000 0.0000000E+00 + -85.50000 45.50000 0.0000000E+00 + -84.50000 45.50000 0.0000000E+00 + -83.50000 45.50000 0.0000000E+00 + -82.50000 45.50000 0.0000000E+00 + -81.50000 45.50000 0.0000000E+00 + -80.50000 45.50000 0.0000000E+00 + -79.50000 45.50000 0.0000000E+00 + -78.50000 45.50000 0.0000000E+00 + -77.50000 45.50000 0.0000000E+00 + -76.50000 45.50000 0.0000000E+00 + -75.50000 45.50000 0.0000000E+00 + -74.50000 45.50000 0.0000000E+00 + -73.50000 45.50000 0.0000000E+00 + -72.50000 45.50000 0.0000000E+00 + -71.50000 45.50000 0.0000000E+00 + -70.50000 45.50000 0.0000000E+00 + -69.50000 45.50000 0.0000000E+00 + -68.50000 45.50000 0.0000000E+00 + -67.50000 45.50000 0.0000000E+00 + -66.50000 45.50000 0.0000000E+00 + -65.50000 45.50000 0.0000000E+00 + -64.50000 45.50000 0.0000000E+00 + -63.50000 45.50000 0.0000000E+00 + -62.50000 45.50000 0.0000000E+00 + -61.50000 45.50000 0.0000000E+00 + -60.50000 45.50000 0.0000000E+00 + -59.50000 45.50000 0.0000000E+00 + -58.50000 45.50000 0.0000000E+00 + -57.50000 45.50000 0.0000000E+00 + -56.50000 45.50000 0.0000000E+00 + -55.50000 45.50000 0.0000000E+00 + -54.50000 45.50000 0.0000000E+00 + -53.50000 45.50000 0.0000000E+00 + -52.50000 45.50000 0.0000000E+00 + -51.50000 45.50000 0.0000000E+00 + -50.50000 45.50000 0.0000000E+00 + -49.50000 45.50000 0.0000000E+00 + -48.50000 45.50000 0.0000000E+00 + -47.50000 45.50000 0.0000000E+00 + -46.50000 45.50000 0.0000000E+00 + -45.50000 45.50000 0.0000000E+00 + -44.50000 45.50000 0.0000000E+00 + -43.50000 45.50000 0.0000000E+00 + -42.50000 45.50000 0.0000000E+00 + -41.50000 45.50000 0.0000000E+00 + -40.50000 45.50000 0.0000000E+00 + -39.50000 45.50000 0.0000000E+00 + -38.50000 45.50000 0.0000000E+00 + -37.50000 45.50000 0.0000000E+00 + -36.50000 45.50000 0.0000000E+00 + -35.50000 45.50000 0.0000000E+00 + -34.50000 45.50000 0.0000000E+00 + -33.50000 45.50000 0.0000000E+00 + -32.50000 45.50000 0.0000000E+00 + -31.50000 45.50000 0.0000000E+00 + -30.50000 45.50000 0.0000000E+00 + -29.50000 45.50000 0.0000000E+00 + -28.50000 45.50000 0.0000000E+00 + -27.50000 45.50000 0.0000000E+00 + -26.50000 45.50000 0.0000000E+00 + -25.50000 45.50000 0.0000000E+00 + -24.50000 45.50000 0.0000000E+00 + -23.50000 45.50000 0.0000000E+00 + -22.50000 45.50000 0.0000000E+00 + -21.50000 45.50000 0.0000000E+00 + -20.50000 45.50000 0.0000000E+00 + -19.50000 45.50000 0.0000000E+00 + -18.50000 45.50000 0.0000000E+00 + -17.50000 45.50000 0.0000000E+00 + -16.50000 45.50000 0.0000000E+00 + -15.50000 45.50000 0.0000000E+00 + -14.50000 45.50000 0.0000000E+00 + -13.50000 45.50000 0.0000000E+00 + -12.50000 45.50000 0.0000000E+00 + -11.50000 45.50000 0.0000000E+00 + -10.50000 45.50000 0.0000000E+00 + -9.500000 45.50000 0.0000000E+00 + -8.500000 45.50000 0.0000000E+00 + -7.500000 45.50000 0.0000000E+00 + -6.500000 45.50000 0.0000000E+00 + -5.500000 45.50000 0.0000000E+00 + -4.500000 45.50000 0.0000000E+00 + -3.500000 45.50000 0.0000000E+00 + -2.500000 45.50000 0.0000000E+00 + -1.500000 45.50000 0.0000000E+00 + -0.5000000 45.50000 0.0000000E+00 + 0.5000000 45.50000 0.0000000E+00 + 1.500000 45.50000 0.0000000E+00 + 2.500000 45.50000 0.0000000E+00 + 3.500000 45.50000 0.0000000E+00 + 4.500000 45.50000 0.0000000E+00 + 5.500000 45.50000 0.0000000E+00 + 6.500000 45.50000 0.0000000E+00 + 7.500000 45.50000 0.0000000E+00 + 8.500000 45.50000 0.0000000E+00 + 9.500000 45.50000 4.4126883E-03 + 10.50000 45.50000 4.7181197E-02 + 11.50000 45.50000 0.0000000E+00 + 12.50000 45.50000 0.0000000E+00 + 13.50000 45.50000 7.9518072E-03 + 14.50000 45.50000 1.6305975E-04 + 15.50000 45.50000 2.1751814E-02 + 16.50000 45.50000 1.5231752E-02 + 17.50000 45.50000 1.5231752E-02 + 18.50000 45.50000 1.5231752E-02 + 19.50000 45.50000 1.8680722E-02 + 20.50000 45.50000 2.2727957E-02 + 21.50000 45.50000 1.9440001E-02 + 22.50000 45.50000 1.9440001E-02 + 23.50000 45.50000 1.8011225E-02 + 24.50000 45.50000 3.8880003E-03 + 25.50000 45.50000 3.4535322E-02 + 26.50000 45.50000 5.9326172E-02 + 27.50000 45.50000 1.3466455E-02 + 28.50000 45.50000 8.5934922E-02 + 29.50000 45.50000 0.1354292 + 30.50000 45.50000 0.0000000E+00 + 31.50000 45.50000 3.3508848E-02 + 32.50000 45.50000 3.7870541E-02 + 33.50000 45.50000 0.1638045 + 34.50000 45.50000 0.0000000E+00 + 35.50000 45.50000 0.0000000E+00 + 36.50000 45.50000 0.0000000E+00 + 37.50000 45.50000 0.0000000E+00 + 38.50000 45.50000 0.0000000E+00 + 39.50000 45.50000 0.0000000E+00 + 40.50000 45.50000 0.0000000E+00 + 41.50000 45.50000 0.0000000E+00 + 42.50000 45.50000 0.0000000E+00 + 43.50000 45.50000 0.0000000E+00 + 44.50000 45.50000 0.0000000E+00 + 45.50000 45.50000 0.0000000E+00 + 46.50000 45.50000 0.0000000E+00 + 47.50000 45.50000 0.0000000E+00 + 48.50000 45.50000 0.0000000E+00 + 49.50000 45.50000 0.0000000E+00 + 50.50000 45.50000 0.0000000E+00 + 51.50000 45.50000 0.0000000E+00 + 52.50000 45.50000 0.0000000E+00 + 53.50000 45.50000 0.0000000E+00 + 54.50000 45.50000 0.0000000E+00 + 55.50000 45.50000 0.0000000E+00 + 56.50000 45.50000 0.0000000E+00 + 57.50000 45.50000 0.0000000E+00 + 58.50000 45.50000 0.0000000E+00 + 59.50000 45.50000 0.0000000E+00 + 60.50000 45.50000 0.0000000E+00 + 61.50000 45.50000 0.0000000E+00 + 62.50000 45.50000 0.0000000E+00 + 63.50000 45.50000 0.0000000E+00 + 64.50000 45.50000 0.0000000E+00 + 65.50000 45.50000 0.0000000E+00 + 66.50000 45.50000 0.0000000E+00 + 67.50000 45.50000 0.0000000E+00 + 68.50000 45.50000 0.0000000E+00 + 69.50000 45.50000 0.0000000E+00 + 70.50000 45.50000 0.0000000E+00 + 71.50000 45.50000 0.0000000E+00 + 72.50000 45.50000 0.0000000E+00 + 73.50000 45.50000 0.0000000E+00 + 74.50000 45.50000 0.0000000E+00 + 75.50000 45.50000 0.0000000E+00 + 76.50000 45.50000 0.0000000E+00 + 77.50000 45.50000 0.0000000E+00 + 78.50000 45.50000 0.0000000E+00 + 79.50000 45.50000 0.0000000E+00 + 80.50000 45.50000 0.0000000E+00 + 81.50000 45.50000 0.0000000E+00 + 82.50000 45.50000 0.0000000E+00 + 83.50000 45.50000 0.0000000E+00 + 84.50000 45.50000 0.0000000E+00 + 85.50000 45.50000 0.0000000E+00 + 86.50000 45.50000 0.0000000E+00 + 87.50000 45.50000 0.0000000E+00 + 88.50000 45.50000 0.0000000E+00 + 89.50000 45.50000 0.0000000E+00 + -89.50000 46.50000 0.0000000E+00 + -88.50000 46.50000 0.0000000E+00 + -87.50000 46.50000 0.0000000E+00 + -86.50000 46.50000 0.0000000E+00 + -85.50000 46.50000 0.0000000E+00 + -84.50000 46.50000 0.0000000E+00 + -83.50000 46.50000 0.0000000E+00 + -82.50000 46.50000 0.0000000E+00 + -81.50000 46.50000 0.0000000E+00 + -80.50000 46.50000 0.0000000E+00 + -79.50000 46.50000 0.0000000E+00 + -78.50000 46.50000 0.0000000E+00 + -77.50000 46.50000 0.0000000E+00 + -76.50000 46.50000 0.0000000E+00 + -75.50000 46.50000 0.0000000E+00 + -74.50000 46.50000 0.0000000E+00 + -73.50000 46.50000 0.0000000E+00 + -72.50000 46.50000 0.0000000E+00 + -71.50000 46.50000 0.0000000E+00 + -70.50000 46.50000 0.0000000E+00 + -69.50000 46.50000 0.0000000E+00 + -68.50000 46.50000 0.0000000E+00 + -67.50000 46.50000 0.0000000E+00 + -66.50000 46.50000 0.0000000E+00 + -65.50000 46.50000 0.0000000E+00 + -64.50000 46.50000 0.0000000E+00 + -63.50000 46.50000 0.0000000E+00 + -62.50000 46.50000 0.0000000E+00 + -61.50000 46.50000 0.0000000E+00 + -60.50000 46.50000 0.0000000E+00 + -59.50000 46.50000 0.0000000E+00 + -58.50000 46.50000 0.0000000E+00 + -57.50000 46.50000 0.0000000E+00 + -56.50000 46.50000 0.0000000E+00 + -55.50000 46.50000 0.0000000E+00 + -54.50000 46.50000 0.0000000E+00 + -53.50000 46.50000 0.0000000E+00 + -52.50000 46.50000 0.0000000E+00 + -51.50000 46.50000 0.0000000E+00 + -50.50000 46.50000 0.0000000E+00 + -49.50000 46.50000 0.0000000E+00 + -48.50000 46.50000 0.0000000E+00 + -47.50000 46.50000 0.0000000E+00 + -46.50000 46.50000 0.0000000E+00 + -45.50000 46.50000 0.0000000E+00 + -44.50000 46.50000 0.0000000E+00 + -43.50000 46.50000 0.0000000E+00 + -42.50000 46.50000 0.0000000E+00 + -41.50000 46.50000 0.0000000E+00 + -40.50000 46.50000 0.0000000E+00 + -39.50000 46.50000 0.0000000E+00 + -38.50000 46.50000 0.0000000E+00 + -37.50000 46.50000 0.0000000E+00 + -36.50000 46.50000 0.0000000E+00 + -35.50000 46.50000 0.0000000E+00 + -34.50000 46.50000 0.0000000E+00 + -33.50000 46.50000 0.0000000E+00 + -32.50000 46.50000 0.0000000E+00 + -31.50000 46.50000 0.0000000E+00 + -30.50000 46.50000 0.0000000E+00 + -29.50000 46.50000 0.0000000E+00 + -28.50000 46.50000 0.0000000E+00 + -27.50000 46.50000 0.0000000E+00 + -26.50000 46.50000 0.0000000E+00 + -25.50000 46.50000 0.0000000E+00 + -24.50000 46.50000 0.0000000E+00 + -23.50000 46.50000 0.0000000E+00 + -22.50000 46.50000 0.0000000E+00 + -21.50000 46.50000 0.0000000E+00 + -20.50000 46.50000 0.0000000E+00 + -19.50000 46.50000 0.0000000E+00 + -18.50000 46.50000 0.0000000E+00 + -17.50000 46.50000 0.0000000E+00 + -16.50000 46.50000 0.0000000E+00 + -15.50000 46.50000 0.0000000E+00 + -14.50000 46.50000 0.0000000E+00 + -13.50000 46.50000 0.0000000E+00 + -12.50000 46.50000 0.0000000E+00 + -11.50000 46.50000 0.0000000E+00 + -10.50000 46.50000 0.0000000E+00 + -9.500000 46.50000 0.0000000E+00 + -8.500000 46.50000 0.0000000E+00 + -7.500000 46.50000 0.0000000E+00 + -6.500000 46.50000 0.0000000E+00 + -5.500000 46.50000 0.0000000E+00 + -4.500000 46.50000 0.0000000E+00 + -3.500000 46.50000 0.0000000E+00 + -2.500000 46.50000 0.0000000E+00 + -1.500000 46.50000 0.0000000E+00 + -0.5000000 46.50000 0.0000000E+00 + 0.5000000 46.50000 0.0000000E+00 + 1.500000 46.50000 0.0000000E+00 + 2.500000 46.50000 0.0000000E+00 + 3.500000 46.50000 0.0000000E+00 + 4.500000 46.50000 0.0000000E+00 + 5.500000 46.50000 0.0000000E+00 + 6.500000 46.50000 0.0000000E+00 + 7.500000 46.50000 0.0000000E+00 + 8.500000 46.50000 0.0000000E+00 + 9.500000 46.50000 7.9518072E-03 + 10.50000 46.50000 2.1687860E-02 + 11.50000 46.50000 0.0000000E+00 + 12.50000 46.50000 0.0000000E+00 + 13.50000 46.50000 0.0000000E+00 + 14.50000 46.50000 4.7599224E-04 + 15.50000 46.50000 2.7448103E-02 + 16.50000 46.50000 2.2727957E-02 + 17.50000 46.50000 2.2727957E-02 + 18.50000 46.50000 1.9440001E-02 + 19.50000 46.50000 1.9440001E-02 + 20.50000 46.50000 2.3841858E-02 + 21.50000 46.50000 1.9440001E-02 + 22.50000 46.50000 2.3841858E-02 + 23.50000 46.50000 2.9495597E-02 + 24.50000 46.50000 7.2696689E-03 + 25.50000 46.50000 5.2100420E-02 + 26.50000 46.50000 8.5934922E-02 + 27.50000 46.50000 8.5934922E-02 + 28.50000 46.50000 0.1084393 + 29.50000 46.50000 0.1354292 + 30.50000 46.50000 0.0000000E+00 + 31.50000 46.50000 3.3508848E-02 + 32.50000 46.50000 3.7870541E-02 + 33.50000 46.50000 0.0000000E+00 + 34.50000 46.50000 0.0000000E+00 + 35.50000 46.50000 0.0000000E+00 + 36.50000 46.50000 0.0000000E+00 + 37.50000 46.50000 0.0000000E+00 + 38.50000 46.50000 0.0000000E+00 + 39.50000 46.50000 0.0000000E+00 + 40.50000 46.50000 0.0000000E+00 + 41.50000 46.50000 0.0000000E+00 + 42.50000 46.50000 0.0000000E+00 + 43.50000 46.50000 0.0000000E+00 + 44.50000 46.50000 0.0000000E+00 + 45.50000 46.50000 0.0000000E+00 + 46.50000 46.50000 0.0000000E+00 + 47.50000 46.50000 0.0000000E+00 + 48.50000 46.50000 0.0000000E+00 + 49.50000 46.50000 0.0000000E+00 + 50.50000 46.50000 0.0000000E+00 + 51.50000 46.50000 0.0000000E+00 + 52.50000 46.50000 0.0000000E+00 + 53.50000 46.50000 0.0000000E+00 + 54.50000 46.50000 0.0000000E+00 + 55.50000 46.50000 0.0000000E+00 + 56.50000 46.50000 0.0000000E+00 + 57.50000 46.50000 0.0000000E+00 + 58.50000 46.50000 0.0000000E+00 + 59.50000 46.50000 0.0000000E+00 + 60.50000 46.50000 0.0000000E+00 + 61.50000 46.50000 0.0000000E+00 + 62.50000 46.50000 0.0000000E+00 + 63.50000 46.50000 0.0000000E+00 + 64.50000 46.50000 0.0000000E+00 + 65.50000 46.50000 0.0000000E+00 + 66.50000 46.50000 0.0000000E+00 + 67.50000 46.50000 0.0000000E+00 + 68.50000 46.50000 0.0000000E+00 + 69.50000 46.50000 0.0000000E+00 + 70.50000 46.50000 0.0000000E+00 + 71.50000 46.50000 0.0000000E+00 + 72.50000 46.50000 0.0000000E+00 + 73.50000 46.50000 0.0000000E+00 + 74.50000 46.50000 0.0000000E+00 + 75.50000 46.50000 0.0000000E+00 + 76.50000 46.50000 0.0000000E+00 + 77.50000 46.50000 0.0000000E+00 + 78.50000 46.50000 0.0000000E+00 + 79.50000 46.50000 0.0000000E+00 + 80.50000 46.50000 0.0000000E+00 + 81.50000 46.50000 0.0000000E+00 + 82.50000 46.50000 0.0000000E+00 + 83.50000 46.50000 0.0000000E+00 + 84.50000 46.50000 0.0000000E+00 + 85.50000 46.50000 0.0000000E+00 + 86.50000 46.50000 0.0000000E+00 + 87.50000 46.50000 0.0000000E+00 + 88.50000 46.50000 0.0000000E+00 + 89.50000 46.50000 0.0000000E+00 + -89.50000 47.50000 0.0000000E+00 + -88.50000 47.50000 0.0000000E+00 + -87.50000 47.50000 0.0000000E+00 + -86.50000 47.50000 0.0000000E+00 + -85.50000 47.50000 0.0000000E+00 + -84.50000 47.50000 0.0000000E+00 + -83.50000 47.50000 0.0000000E+00 + -82.50000 47.50000 0.0000000E+00 + -81.50000 47.50000 0.0000000E+00 + -80.50000 47.50000 0.0000000E+00 + -79.50000 47.50000 0.0000000E+00 + -78.50000 47.50000 0.0000000E+00 + -77.50000 47.50000 0.0000000E+00 + -76.50000 47.50000 0.0000000E+00 + -75.50000 47.50000 0.0000000E+00 + -74.50000 47.50000 0.0000000E+00 + -73.50000 47.50000 0.0000000E+00 + -72.50000 47.50000 0.0000000E+00 + -71.50000 47.50000 0.0000000E+00 + -70.50000 47.50000 0.0000000E+00 + -69.50000 47.50000 0.0000000E+00 + -68.50000 47.50000 0.0000000E+00 + -67.50000 47.50000 0.0000000E+00 + -66.50000 47.50000 0.0000000E+00 + -65.50000 47.50000 0.0000000E+00 + -64.50000 47.50000 0.0000000E+00 + -63.50000 47.50000 0.0000000E+00 + -62.50000 47.50000 0.0000000E+00 + -61.50000 47.50000 0.0000000E+00 + -60.50000 47.50000 0.0000000E+00 + -59.50000 47.50000 0.0000000E+00 + -58.50000 47.50000 0.0000000E+00 + -57.50000 47.50000 0.0000000E+00 + -56.50000 47.50000 0.0000000E+00 + -55.50000 47.50000 0.0000000E+00 + -54.50000 47.50000 0.0000000E+00 + -53.50000 47.50000 0.0000000E+00 + -52.50000 47.50000 0.0000000E+00 + -51.50000 47.50000 0.0000000E+00 + -50.50000 47.50000 0.0000000E+00 + -49.50000 47.50000 0.0000000E+00 + -48.50000 47.50000 0.0000000E+00 + -47.50000 47.50000 0.0000000E+00 + -46.50000 47.50000 0.0000000E+00 + -45.50000 47.50000 0.0000000E+00 + -44.50000 47.50000 0.0000000E+00 + -43.50000 47.50000 0.0000000E+00 + -42.50000 47.50000 0.0000000E+00 + -41.50000 47.50000 0.0000000E+00 + -40.50000 47.50000 0.0000000E+00 + -39.50000 47.50000 0.0000000E+00 + -38.50000 47.50000 0.0000000E+00 + -37.50000 47.50000 0.0000000E+00 + -36.50000 47.50000 0.0000000E+00 + -35.50000 47.50000 0.0000000E+00 + -34.50000 47.50000 0.0000000E+00 + -33.50000 47.50000 0.0000000E+00 + -32.50000 47.50000 0.0000000E+00 + -31.50000 47.50000 0.0000000E+00 + -30.50000 47.50000 0.0000000E+00 + -29.50000 47.50000 0.0000000E+00 + -28.50000 47.50000 0.0000000E+00 + -27.50000 47.50000 0.0000000E+00 + -26.50000 47.50000 0.0000000E+00 + -25.50000 47.50000 0.0000000E+00 + -24.50000 47.50000 0.0000000E+00 + -23.50000 47.50000 0.0000000E+00 + -22.50000 47.50000 0.0000000E+00 + -21.50000 47.50000 0.0000000E+00 + -20.50000 47.50000 0.0000000E+00 + -19.50000 47.50000 0.0000000E+00 + -18.50000 47.50000 0.0000000E+00 + -17.50000 47.50000 0.0000000E+00 + -16.50000 47.50000 0.0000000E+00 + -15.50000 47.50000 0.0000000E+00 + -14.50000 47.50000 0.0000000E+00 + -13.50000 47.50000 0.0000000E+00 + -12.50000 47.50000 0.0000000E+00 + -11.50000 47.50000 0.0000000E+00 + -10.50000 47.50000 0.0000000E+00 + -9.500000 47.50000 0.0000000E+00 + -8.500000 47.50000 0.0000000E+00 + -7.500000 47.50000 0.0000000E+00 + -6.500000 47.50000 0.0000000E+00 + -5.500000 47.50000 0.0000000E+00 + -4.500000 47.50000 0.0000000E+00 + -3.500000 47.50000 0.0000000E+00 + -2.500000 47.50000 0.0000000E+00 + -1.500000 47.50000 0.0000000E+00 + -0.5000000 47.50000 0.0000000E+00 + 0.5000000 47.50000 0.0000000E+00 + 1.500000 47.50000 0.0000000E+00 + 2.500000 47.50000 0.0000000E+00 + 3.500000 47.50000 0.0000000E+00 + 4.500000 47.50000 0.0000000E+00 + 5.500000 47.50000 3.6925413E-02 + 6.500000 47.50000 2.6741255E-02 + 7.500000 47.50000 0.0000000E+00 + 8.500000 47.50000 0.0000000E+00 + 9.500000 47.50000 3.2521114E-03 + 10.50000 47.50000 6.6168606E-04 + 11.50000 47.50000 0.0000000E+00 + 12.50000 47.50000 0.0000000E+00 + 13.50000 47.50000 0.0000000E+00 + 14.50000 47.50000 1.9440001E-02 + 15.50000 47.50000 2.9007258E-02 + 16.50000 47.50000 2.9007258E-02 + 17.50000 47.50000 2.3841858E-02 + 18.50000 47.50000 2.3841858E-02 + 19.50000 47.50000 2.3841858E-02 + 20.50000 47.50000 2.3841858E-02 + 21.50000 47.50000 2.3841858E-02 + 22.50000 47.50000 2.9007258E-02 + 23.50000 47.50000 5.5149995E-02 + 24.50000 47.50000 1.2677628E-02 + 25.50000 47.50000 6.7332275E-02 + 26.50000 47.50000 8.5934922E-02 + 27.50000 47.50000 0.1084393 + 28.50000 47.50000 0.1354292 + 29.50000 47.50000 0.2054817 + 30.50000 47.50000 4.5373697E-02 + 31.50000 47.50000 0.0000000E+00 + 32.50000 47.50000 3.7870541E-02 + 33.50000 47.50000 0.0000000E+00 + 34.50000 47.50000 0.0000000E+00 + 35.50000 47.50000 0.0000000E+00 + 36.50000 47.50000 0.0000000E+00 + 37.50000 47.50000 0.0000000E+00 + 38.50000 47.50000 0.0000000E+00 + 39.50000 47.50000 0.0000000E+00 + 40.50000 47.50000 0.0000000E+00 + 41.50000 47.50000 0.0000000E+00 + 42.50000 47.50000 0.0000000E+00 + 43.50000 47.50000 0.0000000E+00 + 44.50000 47.50000 0.0000000E+00 + 45.50000 47.50000 0.0000000E+00 + 46.50000 47.50000 0.0000000E+00 + 47.50000 47.50000 0.0000000E+00 + 48.50000 47.50000 0.0000000E+00 + 49.50000 47.50000 0.0000000E+00 + 50.50000 47.50000 0.0000000E+00 + 51.50000 47.50000 0.0000000E+00 + 52.50000 47.50000 0.0000000E+00 + 53.50000 47.50000 0.0000000E+00 + 54.50000 47.50000 0.0000000E+00 + 55.50000 47.50000 0.0000000E+00 + 56.50000 47.50000 0.0000000E+00 + 57.50000 47.50000 0.0000000E+00 + 58.50000 47.50000 0.0000000E+00 + 59.50000 47.50000 0.0000000E+00 + 60.50000 47.50000 0.0000000E+00 + 61.50000 47.50000 0.0000000E+00 + 62.50000 47.50000 0.0000000E+00 + 63.50000 47.50000 0.0000000E+00 + 64.50000 47.50000 0.0000000E+00 + 65.50000 47.50000 0.0000000E+00 + 66.50000 47.50000 0.0000000E+00 + 67.50000 47.50000 0.0000000E+00 + 68.50000 47.50000 0.0000000E+00 + 69.50000 47.50000 0.0000000E+00 + 70.50000 47.50000 0.0000000E+00 + 71.50000 47.50000 0.0000000E+00 + 72.50000 47.50000 0.0000000E+00 + 73.50000 47.50000 0.0000000E+00 + 74.50000 47.50000 0.0000000E+00 + 75.50000 47.50000 0.0000000E+00 + 76.50000 47.50000 0.0000000E+00 + 77.50000 47.50000 0.0000000E+00 + 78.50000 47.50000 0.0000000E+00 + 79.50000 47.50000 0.0000000E+00 + 80.50000 47.50000 0.0000000E+00 + 81.50000 47.50000 0.0000000E+00 + 82.50000 47.50000 0.0000000E+00 + 83.50000 47.50000 0.0000000E+00 + 84.50000 47.50000 0.0000000E+00 + 85.50000 47.50000 0.0000000E+00 + 86.50000 47.50000 0.0000000E+00 + 87.50000 47.50000 0.0000000E+00 + 88.50000 47.50000 0.0000000E+00 + 89.50000 47.50000 0.0000000E+00 + -89.50000 48.50000 0.0000000E+00 + -88.50000 48.50000 0.0000000E+00 + -87.50000 48.50000 0.0000000E+00 + -86.50000 48.50000 0.0000000E+00 + -85.50000 48.50000 0.0000000E+00 + -84.50000 48.50000 0.0000000E+00 + -83.50000 48.50000 0.0000000E+00 + -82.50000 48.50000 0.0000000E+00 + -81.50000 48.50000 0.0000000E+00 + -80.50000 48.50000 0.0000000E+00 + -79.50000 48.50000 0.0000000E+00 + -78.50000 48.50000 0.0000000E+00 + -77.50000 48.50000 0.0000000E+00 + -76.50000 48.50000 0.0000000E+00 + -75.50000 48.50000 0.0000000E+00 + -74.50000 48.50000 0.0000000E+00 + -73.50000 48.50000 0.0000000E+00 + -72.50000 48.50000 0.0000000E+00 + -71.50000 48.50000 0.0000000E+00 + -70.50000 48.50000 0.0000000E+00 + -69.50000 48.50000 0.0000000E+00 + -68.50000 48.50000 0.0000000E+00 + -67.50000 48.50000 0.0000000E+00 + -66.50000 48.50000 0.0000000E+00 + -65.50000 48.50000 0.0000000E+00 + -64.50000 48.50000 0.0000000E+00 + -63.50000 48.50000 0.0000000E+00 + -62.50000 48.50000 0.0000000E+00 + -61.50000 48.50000 0.0000000E+00 + -60.50000 48.50000 0.0000000E+00 + -59.50000 48.50000 0.0000000E+00 + -58.50000 48.50000 0.0000000E+00 + -57.50000 48.50000 0.0000000E+00 + -56.50000 48.50000 0.0000000E+00 + -55.50000 48.50000 0.0000000E+00 + -54.50000 48.50000 0.0000000E+00 + -53.50000 48.50000 0.0000000E+00 + -52.50000 48.50000 0.0000000E+00 + -51.50000 48.50000 0.0000000E+00 + -50.50000 48.50000 0.0000000E+00 + -49.50000 48.50000 0.0000000E+00 + -48.50000 48.50000 0.0000000E+00 + -47.50000 48.50000 0.0000000E+00 + -46.50000 48.50000 0.0000000E+00 + -45.50000 48.50000 0.0000000E+00 + -44.50000 48.50000 0.0000000E+00 + -43.50000 48.50000 0.0000000E+00 + -42.50000 48.50000 0.0000000E+00 + -41.50000 48.50000 0.0000000E+00 + -40.50000 48.50000 0.0000000E+00 + -39.50000 48.50000 0.0000000E+00 + -38.50000 48.50000 0.0000000E+00 + -37.50000 48.50000 0.0000000E+00 + -36.50000 48.50000 0.0000000E+00 + -35.50000 48.50000 0.0000000E+00 + -34.50000 48.50000 0.0000000E+00 + -33.50000 48.50000 0.0000000E+00 + -32.50000 48.50000 0.0000000E+00 + -31.50000 48.50000 0.0000000E+00 + -30.50000 48.50000 0.0000000E+00 + -29.50000 48.50000 0.0000000E+00 + -28.50000 48.50000 0.0000000E+00 + -27.50000 48.50000 0.0000000E+00 + -26.50000 48.50000 0.0000000E+00 + -25.50000 48.50000 0.0000000E+00 + -24.50000 48.50000 0.0000000E+00 + -23.50000 48.50000 0.0000000E+00 + -22.50000 48.50000 0.0000000E+00 + -21.50000 48.50000 0.0000000E+00 + -20.50000 48.50000 0.0000000E+00 + -19.50000 48.50000 0.0000000E+00 + -18.50000 48.50000 0.0000000E+00 + -17.50000 48.50000 0.0000000E+00 + -16.50000 48.50000 0.0000000E+00 + -15.50000 48.50000 0.0000000E+00 + -14.50000 48.50000 0.0000000E+00 + -13.50000 48.50000 0.0000000E+00 + -12.50000 48.50000 0.0000000E+00 + -11.50000 48.50000 0.0000000E+00 + -10.50000 48.50000 0.0000000E+00 + -9.500000 48.50000 0.0000000E+00 + -8.500000 48.50000 0.0000000E+00 + -7.500000 48.50000 0.0000000E+00 + -6.500000 48.50000 0.0000000E+00 + -5.500000 48.50000 0.0000000E+00 + -4.500000 48.50000 0.0000000E+00 + -3.500000 48.50000 0.0000000E+00 + -2.500000 48.50000 0.0000000E+00 + -1.500000 48.50000 0.0000000E+00 + -0.5000000 48.50000 0.0000000E+00 + 0.5000000 48.50000 0.0000000E+00 + 1.500000 48.50000 0.0000000E+00 + 2.500000 48.50000 0.0000000E+00 + 3.500000 48.50000 0.0000000E+00 + 4.500000 48.50000 0.0000000E+00 + 5.500000 48.50000 0.0000000E+00 + 6.500000 48.50000 3.3508848E-02 + 7.500000 48.50000 1.5334102E-02 + 8.500000 48.50000 1.0860308E-02 + 9.500000 48.50000 1.6260557E-02 + 10.50000 48.50000 1.0096529E-02 + 11.50000 48.50000 0.0000000E+00 + 12.50000 48.50000 0.0000000E+00 + 13.50000 48.50000 0.0000000E+00 + 14.50000 48.50000 5.9326172E-02 + 15.50000 48.50000 2.9007258E-02 + 16.50000 48.50000 4.2017497E-02 + 17.50000 48.50000 4.2017497E-02 + 18.50000 48.50000 4.2017497E-02 + 19.50000 48.50000 4.2017497E-02 + 20.50000 48.50000 2.9007258E-02 + 21.50000 48.50000 2.9007258E-02 + 22.50000 48.50000 5.9326172E-02 + 23.50000 48.50000 7.3394470E-02 + 24.50000 48.50000 8.1920013E-02 + 25.50000 48.50000 8.5934922E-02 + 26.50000 48.50000 0.1084393 + 27.50000 48.50000 0.1354292 + 28.50000 48.50000 0.2405314 + 29.50000 48.50000 0.0000000E+00 + 30.50000 48.50000 0.0000000E+00 + 31.50000 48.50000 0.0000000E+00 + 32.50000 48.50000 0.0000000E+00 + 33.50000 48.50000 0.0000000E+00 + 34.50000 48.50000 0.0000000E+00 + 35.50000 48.50000 5.4754224E-04 + 36.50000 48.50000 7.5606880E-04 + 37.50000 48.50000 0.0000000E+00 + 38.50000 48.50000 0.0000000E+00 + 39.50000 48.50000 0.0000000E+00 + 40.50000 48.50000 0.0000000E+00 + 41.50000 48.50000 0.0000000E+00 + 42.50000 48.50000 0.0000000E+00 + 43.50000 48.50000 0.0000000E+00 + 44.50000 48.50000 0.0000000E+00 + 45.50000 48.50000 0.0000000E+00 + 46.50000 48.50000 0.0000000E+00 + 47.50000 48.50000 0.0000000E+00 + 48.50000 48.50000 0.0000000E+00 + 49.50000 48.50000 0.0000000E+00 + 50.50000 48.50000 0.0000000E+00 + 51.50000 48.50000 0.0000000E+00 + 52.50000 48.50000 0.0000000E+00 + 53.50000 48.50000 0.0000000E+00 + 54.50000 48.50000 0.0000000E+00 + 55.50000 48.50000 0.0000000E+00 + 56.50000 48.50000 0.0000000E+00 + 57.50000 48.50000 0.0000000E+00 + 58.50000 48.50000 0.0000000E+00 + 59.50000 48.50000 0.0000000E+00 + 60.50000 48.50000 0.0000000E+00 + 61.50000 48.50000 0.0000000E+00 + 62.50000 48.50000 0.0000000E+00 + 63.50000 48.50000 0.0000000E+00 + 64.50000 48.50000 0.0000000E+00 + 65.50000 48.50000 0.0000000E+00 + 66.50000 48.50000 0.0000000E+00 + 67.50000 48.50000 0.0000000E+00 + 68.50000 48.50000 0.0000000E+00 + 69.50000 48.50000 0.0000000E+00 + 70.50000 48.50000 0.0000000E+00 + 71.50000 48.50000 0.0000000E+00 + 72.50000 48.50000 0.0000000E+00 + 73.50000 48.50000 0.0000000E+00 + 74.50000 48.50000 0.0000000E+00 + 75.50000 48.50000 0.0000000E+00 + 76.50000 48.50000 0.0000000E+00 + 77.50000 48.50000 0.0000000E+00 + 78.50000 48.50000 0.0000000E+00 + 79.50000 48.50000 0.0000000E+00 + 80.50000 48.50000 0.0000000E+00 + 81.50000 48.50000 0.0000000E+00 + 82.50000 48.50000 0.0000000E+00 + 83.50000 48.50000 0.0000000E+00 + 84.50000 48.50000 0.0000000E+00 + 85.50000 48.50000 0.0000000E+00 + 86.50000 48.50000 0.0000000E+00 + 87.50000 48.50000 0.0000000E+00 + 88.50000 48.50000 0.0000000E+00 + 89.50000 48.50000 0.0000000E+00 + -89.50000 49.50000 0.0000000E+00 + -88.50000 49.50000 0.0000000E+00 + -87.50000 49.50000 0.0000000E+00 + -86.50000 49.50000 0.0000000E+00 + -85.50000 49.50000 0.0000000E+00 + -84.50000 49.50000 0.0000000E+00 + -83.50000 49.50000 0.0000000E+00 + -82.50000 49.50000 0.0000000E+00 + -81.50000 49.50000 0.0000000E+00 + -80.50000 49.50000 0.0000000E+00 + -79.50000 49.50000 0.0000000E+00 + -78.50000 49.50000 0.0000000E+00 + -77.50000 49.50000 0.0000000E+00 + -76.50000 49.50000 0.0000000E+00 + -75.50000 49.50000 0.0000000E+00 + -74.50000 49.50000 0.0000000E+00 + -73.50000 49.50000 0.0000000E+00 + -72.50000 49.50000 0.0000000E+00 + -71.50000 49.50000 0.0000000E+00 + -70.50000 49.50000 0.0000000E+00 + -69.50000 49.50000 0.0000000E+00 + -68.50000 49.50000 0.0000000E+00 + -67.50000 49.50000 0.0000000E+00 + -66.50000 49.50000 0.0000000E+00 + -65.50000 49.50000 0.0000000E+00 + -64.50000 49.50000 0.0000000E+00 + -63.50000 49.50000 0.0000000E+00 + -62.50000 49.50000 0.0000000E+00 + -61.50000 49.50000 0.0000000E+00 + -60.50000 49.50000 0.0000000E+00 + -59.50000 49.50000 0.0000000E+00 + -58.50000 49.50000 0.0000000E+00 + -57.50000 49.50000 0.0000000E+00 + -56.50000 49.50000 0.0000000E+00 + -55.50000 49.50000 0.0000000E+00 + -54.50000 49.50000 0.0000000E+00 + -53.50000 49.50000 0.0000000E+00 + -52.50000 49.50000 0.0000000E+00 + -51.50000 49.50000 0.0000000E+00 + -50.50000 49.50000 0.0000000E+00 + -49.50000 49.50000 0.0000000E+00 + -48.50000 49.50000 0.0000000E+00 + -47.50000 49.50000 0.0000000E+00 + -46.50000 49.50000 0.0000000E+00 + -45.50000 49.50000 0.0000000E+00 + -44.50000 49.50000 0.0000000E+00 + -43.50000 49.50000 0.0000000E+00 + -42.50000 49.50000 0.0000000E+00 + -41.50000 49.50000 0.0000000E+00 + -40.50000 49.50000 0.0000000E+00 + -39.50000 49.50000 0.0000000E+00 + -38.50000 49.50000 0.0000000E+00 + -37.50000 49.50000 0.0000000E+00 + -36.50000 49.50000 0.0000000E+00 + -35.50000 49.50000 0.0000000E+00 + -34.50000 49.50000 0.0000000E+00 + -33.50000 49.50000 0.0000000E+00 + -32.50000 49.50000 0.0000000E+00 + -31.50000 49.50000 0.0000000E+00 + -30.50000 49.50000 0.0000000E+00 + -29.50000 49.50000 0.0000000E+00 + -28.50000 49.50000 0.0000000E+00 + -27.50000 49.50000 0.0000000E+00 + -26.50000 49.50000 0.0000000E+00 + -25.50000 49.50000 0.0000000E+00 + -24.50000 49.50000 0.0000000E+00 + -23.50000 49.50000 0.0000000E+00 + -22.50000 49.50000 0.0000000E+00 + -21.50000 49.50000 0.0000000E+00 + -20.50000 49.50000 0.0000000E+00 + -19.50000 49.50000 0.0000000E+00 + -18.50000 49.50000 0.0000000E+00 + -17.50000 49.50000 0.0000000E+00 + -16.50000 49.50000 0.0000000E+00 + -15.50000 49.50000 0.0000000E+00 + -14.50000 49.50000 0.0000000E+00 + -13.50000 49.50000 0.0000000E+00 + -12.50000 49.50000 0.0000000E+00 + -11.50000 49.50000 0.0000000E+00 + -10.50000 49.50000 0.0000000E+00 + -9.500000 49.50000 0.0000000E+00 + -8.500000 49.50000 0.0000000E+00 + -7.500000 49.50000 0.0000000E+00 + -6.500000 49.50000 0.0000000E+00 + -5.500000 49.50000 0.0000000E+00 + -4.500000 49.50000 0.0000000E+00 + -3.500000 49.50000 0.0000000E+00 + -2.500000 49.50000 0.0000000E+00 + -1.500000 49.50000 0.0000000E+00 + -0.5000000 49.50000 0.0000000E+00 + 0.5000000 49.50000 0.0000000E+00 + 1.500000 49.50000 0.0000000E+00 + 2.500000 49.50000 0.0000000E+00 + 3.500000 49.50000 0.0000000E+00 + 4.500000 49.50000 0.0000000E+00 + 5.500000 49.50000 0.0000000E+00 + 6.500000 49.50000 0.0000000E+00 + 7.500000 49.50000 0.0000000E+00 + 8.500000 49.50000 1.5334102E-02 + 9.500000 49.50000 3.7487701E-02 + 10.50000 49.50000 3.7487701E-02 + 11.50000 49.50000 0.0000000E+00 + 12.50000 49.50000 0.0000000E+00 + 13.50000 49.50000 0.0000000E+00 + 14.50000 49.50000 0.0000000E+00 + 15.50000 49.50000 2.5123382E-02 + 16.50000 49.50000 5.4301538E-02 + 17.50000 49.50000 5.4301538E-02 + 18.50000 49.50000 3.7487701E-02 + 19.50000 49.50000 3.7487701E-02 + 20.50000 49.50000 3.7487701E-02 + 21.50000 49.50000 3.0812154E-02 + 22.50000 49.50000 8.1920013E-02 + 23.50000 49.50000 8.1920013E-02 + 24.50000 49.50000 0.1045530 + 25.50000 49.50000 0.1675442 + 26.50000 49.50000 0.2054817 + 27.50000 49.50000 0.0000000E+00 + 28.50000 49.50000 0.0000000E+00 + 29.50000 49.50000 0.0000000E+00 + 30.50000 49.50000 4.1096348E-02 + 31.50000 49.50000 0.0000000E+00 + 32.50000 49.50000 5.1677390E-03 + 33.50000 49.50000 0.0000000E+00 + 34.50000 49.50000 7.5606880E-04 + 35.50000 49.50000 7.5606880E-04 + 36.50000 49.50000 5.7413965E-03 + 37.50000 49.50000 0.0000000E+00 + 38.50000 49.50000 0.0000000E+00 + 39.50000 49.50000 0.0000000E+00 + 40.50000 49.50000 0.0000000E+00 + 41.50000 49.50000 0.0000000E+00 + 42.50000 49.50000 0.0000000E+00 + 43.50000 49.50000 0.0000000E+00 + 44.50000 49.50000 0.0000000E+00 + 45.50000 49.50000 0.0000000E+00 + 46.50000 49.50000 0.0000000E+00 + 47.50000 49.50000 0.0000000E+00 + 48.50000 49.50000 0.0000000E+00 + 49.50000 49.50000 0.0000000E+00 + 50.50000 49.50000 0.0000000E+00 + 51.50000 49.50000 0.0000000E+00 + 52.50000 49.50000 0.0000000E+00 + 53.50000 49.50000 0.0000000E+00 + 54.50000 49.50000 0.0000000E+00 + 55.50000 49.50000 0.0000000E+00 + 56.50000 49.50000 0.0000000E+00 + 57.50000 49.50000 0.0000000E+00 + 58.50000 49.50000 0.0000000E+00 + 59.50000 49.50000 0.0000000E+00 + 60.50000 49.50000 0.0000000E+00 + 61.50000 49.50000 0.0000000E+00 + 62.50000 49.50000 0.0000000E+00 + 63.50000 49.50000 0.0000000E+00 + 64.50000 49.50000 0.0000000E+00 + 65.50000 49.50000 0.0000000E+00 + 66.50000 49.50000 0.0000000E+00 + 67.50000 49.50000 0.0000000E+00 + 68.50000 49.50000 0.0000000E+00 + 69.50000 49.50000 0.0000000E+00 + 70.50000 49.50000 0.0000000E+00 + 71.50000 49.50000 0.0000000E+00 + 72.50000 49.50000 0.0000000E+00 + 73.50000 49.50000 0.0000000E+00 + 74.50000 49.50000 0.0000000E+00 + 75.50000 49.50000 0.0000000E+00 + 76.50000 49.50000 0.0000000E+00 + 77.50000 49.50000 0.0000000E+00 + 78.50000 49.50000 0.0000000E+00 + 79.50000 49.50000 0.0000000E+00 + 80.50000 49.50000 0.0000000E+00 + 81.50000 49.50000 0.0000000E+00 + 82.50000 49.50000 0.0000000E+00 + 83.50000 49.50000 0.0000000E+00 + 84.50000 49.50000 0.0000000E+00 + 85.50000 49.50000 0.0000000E+00 + 86.50000 49.50000 0.0000000E+00 + 87.50000 49.50000 0.0000000E+00 + 88.50000 49.50000 0.0000000E+00 + 89.50000 49.50000 0.0000000E+00 + -89.50000 50.50000 0.0000000E+00 + -88.50000 50.50000 0.0000000E+00 + -87.50000 50.50000 0.0000000E+00 + -86.50000 50.50000 0.0000000E+00 + -85.50000 50.50000 0.0000000E+00 + -84.50000 50.50000 0.0000000E+00 + -83.50000 50.50000 0.0000000E+00 + -82.50000 50.50000 0.0000000E+00 + -81.50000 50.50000 0.0000000E+00 + -80.50000 50.50000 0.0000000E+00 + -79.50000 50.50000 0.0000000E+00 + -78.50000 50.50000 0.0000000E+00 + -77.50000 50.50000 0.0000000E+00 + -76.50000 50.50000 0.0000000E+00 + -75.50000 50.50000 0.0000000E+00 + -74.50000 50.50000 0.0000000E+00 + -73.50000 50.50000 0.0000000E+00 + -72.50000 50.50000 0.0000000E+00 + -71.50000 50.50000 0.0000000E+00 + -70.50000 50.50000 0.0000000E+00 + -69.50000 50.50000 0.0000000E+00 + -68.50000 50.50000 0.0000000E+00 + -67.50000 50.50000 0.0000000E+00 + -66.50000 50.50000 0.0000000E+00 + -65.50000 50.50000 0.0000000E+00 + -64.50000 50.50000 0.0000000E+00 + -63.50000 50.50000 0.0000000E+00 + -62.50000 50.50000 0.0000000E+00 + -61.50000 50.50000 0.0000000E+00 + -60.50000 50.50000 0.0000000E+00 + -59.50000 50.50000 0.0000000E+00 + -58.50000 50.50000 0.0000000E+00 + -57.50000 50.50000 0.0000000E+00 + -56.50000 50.50000 0.0000000E+00 + -55.50000 50.50000 0.0000000E+00 + -54.50000 50.50000 0.0000000E+00 + -53.50000 50.50000 0.0000000E+00 + -52.50000 50.50000 0.0000000E+00 + -51.50000 50.50000 0.0000000E+00 + -50.50000 50.50000 0.0000000E+00 + -49.50000 50.50000 0.0000000E+00 + -48.50000 50.50000 0.0000000E+00 + -47.50000 50.50000 0.0000000E+00 + -46.50000 50.50000 0.0000000E+00 + -45.50000 50.50000 0.0000000E+00 + -44.50000 50.50000 0.0000000E+00 + -43.50000 50.50000 0.0000000E+00 + -42.50000 50.50000 0.0000000E+00 + -41.50000 50.50000 0.0000000E+00 + -40.50000 50.50000 0.0000000E+00 + -39.50000 50.50000 0.0000000E+00 + -38.50000 50.50000 0.0000000E+00 + -37.50000 50.50000 0.0000000E+00 + -36.50000 50.50000 0.0000000E+00 + -35.50000 50.50000 0.0000000E+00 + -34.50000 50.50000 0.0000000E+00 + -33.50000 50.50000 0.0000000E+00 + -32.50000 50.50000 0.0000000E+00 + -31.50000 50.50000 0.0000000E+00 + -30.50000 50.50000 0.0000000E+00 + -29.50000 50.50000 0.0000000E+00 + -28.50000 50.50000 0.0000000E+00 + -27.50000 50.50000 0.0000000E+00 + -26.50000 50.50000 0.0000000E+00 + -25.50000 50.50000 0.0000000E+00 + -24.50000 50.50000 0.0000000E+00 + -23.50000 50.50000 0.0000000E+00 + -22.50000 50.50000 0.0000000E+00 + -21.50000 50.50000 0.0000000E+00 + -20.50000 50.50000 0.0000000E+00 + -19.50000 50.50000 0.0000000E+00 + -18.50000 50.50000 0.0000000E+00 + -17.50000 50.50000 0.0000000E+00 + -16.50000 50.50000 0.0000000E+00 + -15.50000 50.50000 0.0000000E+00 + -14.50000 50.50000 0.0000000E+00 + -13.50000 50.50000 0.0000000E+00 + -12.50000 50.50000 0.0000000E+00 + -11.50000 50.50000 0.0000000E+00 + -10.50000 50.50000 0.0000000E+00 + -9.500000 50.50000 0.0000000E+00 + -8.500000 50.50000 0.0000000E+00 + -7.500000 50.50000 0.0000000E+00 + -6.500000 50.50000 0.0000000E+00 + -5.500000 50.50000 0.0000000E+00 + -4.500000 50.50000 0.0000000E+00 + -3.500000 50.50000 0.0000000E+00 + -2.500000 50.50000 0.0000000E+00 + -1.500000 50.50000 0.0000000E+00 + -0.5000000 50.50000 0.0000000E+00 + 0.5000000 50.50000 0.0000000E+00 + 1.500000 50.50000 0.0000000E+00 + 2.500000 50.50000 0.0000000E+00 + 3.500000 50.50000 0.0000000E+00 + 4.500000 50.50000 0.0000000E+00 + 5.500000 50.50000 0.0000000E+00 + 6.500000 50.50000 0.0000000E+00 + 7.500000 50.50000 0.0000000E+00 + 8.500000 50.50000 0.0000000E+00 + 9.500000 50.50000 2.8671244E-02 + 10.50000 50.50000 0.1058698 + 11.50000 50.50000 0.0000000E+00 + 12.50000 50.50000 0.0000000E+00 + 13.50000 50.50000 0.0000000E+00 + 14.50000 50.50000 0.0000000E+00 + 15.50000 50.50000 7.6670513E-02 + 16.50000 50.50000 5.4301538E-02 + 17.50000 50.50000 5.4301538E-02 + 18.50000 50.50000 5.4301538E-02 + 19.50000 50.50000 3.7487701E-02 + 20.50000 50.50000 3.7487701E-02 + 21.50000 50.50000 3.7487701E-02 + 22.50000 50.50000 8.1920013E-02 + 23.50000 50.50000 0.1045530 + 24.50000 50.50000 0.1647704 + 25.50000 50.50000 0.0000000E+00 + 26.50000 50.50000 0.0000000E+00 + 27.50000 50.50000 0.0000000E+00 + 28.50000 50.50000 0.0000000E+00 + 29.50000 50.50000 4.1096348E-02 + 30.50000 50.50000 0.0000000E+00 + 31.50000 50.50000 0.0000000E+00 + 32.50000 50.50000 0.0000000E+00 + 33.50000 50.50000 3.8779448E-04 + 34.50000 50.50000 2.9448147E-03 + 35.50000 50.50000 0.0000000E+00 + 36.50000 50.50000 0.0000000E+00 + 37.50000 50.50000 0.0000000E+00 + 38.50000 50.50000 0.0000000E+00 + 39.50000 50.50000 0.0000000E+00 + 40.50000 50.50000 0.0000000E+00 + 41.50000 50.50000 0.0000000E+00 + 42.50000 50.50000 0.0000000E+00 + 43.50000 50.50000 0.0000000E+00 + 44.50000 50.50000 0.0000000E+00 + 45.50000 50.50000 0.0000000E+00 + 46.50000 50.50000 0.0000000E+00 + 47.50000 50.50000 0.0000000E+00 + 48.50000 50.50000 0.0000000E+00 + 49.50000 50.50000 0.0000000E+00 + 50.50000 50.50000 0.0000000E+00 + 51.50000 50.50000 0.0000000E+00 + 52.50000 50.50000 0.0000000E+00 + 53.50000 50.50000 0.0000000E+00 + 54.50000 50.50000 0.0000000E+00 + 55.50000 50.50000 0.0000000E+00 + 56.50000 50.50000 0.0000000E+00 + 57.50000 50.50000 0.0000000E+00 + 58.50000 50.50000 0.0000000E+00 + 59.50000 50.50000 0.0000000E+00 + 60.50000 50.50000 0.0000000E+00 + 61.50000 50.50000 0.0000000E+00 + 62.50000 50.50000 0.0000000E+00 + 63.50000 50.50000 0.0000000E+00 + 64.50000 50.50000 0.0000000E+00 + 65.50000 50.50000 0.0000000E+00 + 66.50000 50.50000 0.0000000E+00 + 67.50000 50.50000 0.0000000E+00 + 68.50000 50.50000 0.0000000E+00 + 69.50000 50.50000 0.0000000E+00 + 70.50000 50.50000 0.0000000E+00 + 71.50000 50.50000 0.0000000E+00 + 72.50000 50.50000 0.0000000E+00 + 73.50000 50.50000 0.0000000E+00 + 74.50000 50.50000 0.0000000E+00 + 75.50000 50.50000 0.0000000E+00 + 76.50000 50.50000 0.0000000E+00 + 77.50000 50.50000 0.0000000E+00 + 78.50000 50.50000 0.0000000E+00 + 79.50000 50.50000 0.0000000E+00 + 80.50000 50.50000 0.0000000E+00 + 81.50000 50.50000 0.0000000E+00 + 82.50000 50.50000 0.0000000E+00 + 83.50000 50.50000 0.0000000E+00 + 84.50000 50.50000 0.0000000E+00 + 85.50000 50.50000 0.0000000E+00 + 86.50000 50.50000 0.0000000E+00 + 87.50000 50.50000 0.0000000E+00 + 88.50000 50.50000 0.0000000E+00 + 89.50000 50.50000 0.0000000E+00 + -89.50000 51.50000 0.0000000E+00 + -88.50000 51.50000 0.0000000E+00 + -87.50000 51.50000 0.0000000E+00 + -86.50000 51.50000 0.0000000E+00 + -85.50000 51.50000 0.0000000E+00 + -84.50000 51.50000 0.0000000E+00 + -83.50000 51.50000 0.0000000E+00 + -82.50000 51.50000 0.0000000E+00 + -81.50000 51.50000 0.0000000E+00 + -80.50000 51.50000 0.0000000E+00 + -79.50000 51.50000 0.0000000E+00 + -78.50000 51.50000 0.0000000E+00 + -77.50000 51.50000 0.0000000E+00 + -76.50000 51.50000 0.0000000E+00 + -75.50000 51.50000 0.0000000E+00 + -74.50000 51.50000 0.0000000E+00 + -73.50000 51.50000 0.0000000E+00 + -72.50000 51.50000 0.0000000E+00 + -71.50000 51.50000 0.0000000E+00 + -70.50000 51.50000 0.0000000E+00 + -69.50000 51.50000 0.0000000E+00 + -68.50000 51.50000 0.0000000E+00 + -67.50000 51.50000 0.0000000E+00 + -66.50000 51.50000 0.0000000E+00 + -65.50000 51.50000 0.0000000E+00 + -64.50000 51.50000 0.0000000E+00 + -63.50000 51.50000 0.0000000E+00 + -62.50000 51.50000 0.0000000E+00 + -61.50000 51.50000 0.0000000E+00 + -60.50000 51.50000 0.0000000E+00 + -59.50000 51.50000 0.0000000E+00 + -58.50000 51.50000 0.0000000E+00 + -57.50000 51.50000 0.0000000E+00 + -56.50000 51.50000 0.0000000E+00 + -55.50000 51.50000 0.0000000E+00 + -54.50000 51.50000 0.0000000E+00 + -53.50000 51.50000 0.0000000E+00 + -52.50000 51.50000 0.0000000E+00 + -51.50000 51.50000 0.0000000E+00 + -50.50000 51.50000 0.0000000E+00 + -49.50000 51.50000 0.0000000E+00 + -48.50000 51.50000 0.0000000E+00 + -47.50000 51.50000 0.0000000E+00 + -46.50000 51.50000 0.0000000E+00 + -45.50000 51.50000 0.0000000E+00 + -44.50000 51.50000 0.0000000E+00 + -43.50000 51.50000 0.0000000E+00 + -42.50000 51.50000 0.0000000E+00 + -41.50000 51.50000 0.0000000E+00 + -40.50000 51.50000 0.0000000E+00 + -39.50000 51.50000 0.0000000E+00 + -38.50000 51.50000 0.0000000E+00 + -37.50000 51.50000 0.0000000E+00 + -36.50000 51.50000 0.0000000E+00 + -35.50000 51.50000 0.0000000E+00 + -34.50000 51.50000 0.0000000E+00 + -33.50000 51.50000 0.0000000E+00 + -32.50000 51.50000 0.0000000E+00 + -31.50000 51.50000 0.0000000E+00 + -30.50000 51.50000 0.0000000E+00 + -29.50000 51.50000 0.0000000E+00 + -28.50000 51.50000 0.0000000E+00 + -27.50000 51.50000 0.0000000E+00 + -26.50000 51.50000 0.0000000E+00 + -25.50000 51.50000 0.0000000E+00 + -24.50000 51.50000 0.0000000E+00 + -23.50000 51.50000 0.0000000E+00 + -22.50000 51.50000 0.0000000E+00 + -21.50000 51.50000 0.0000000E+00 + -20.50000 51.50000 0.0000000E+00 + -19.50000 51.50000 0.0000000E+00 + -18.50000 51.50000 0.0000000E+00 + -17.50000 51.50000 0.0000000E+00 + -16.50000 51.50000 0.0000000E+00 + -15.50000 51.50000 0.0000000E+00 + -14.50000 51.50000 0.0000000E+00 + -13.50000 51.50000 0.0000000E+00 + -12.50000 51.50000 0.0000000E+00 + -11.50000 51.50000 0.0000000E+00 + -10.50000 51.50000 0.0000000E+00 + -9.500000 51.50000 0.0000000E+00 + -8.500000 51.50000 0.0000000E+00 + -7.500000 51.50000 0.0000000E+00 + -6.500000 51.50000 0.0000000E+00 + -5.500000 51.50000 0.0000000E+00 + -4.500000 51.50000 0.0000000E+00 + -3.500000 51.50000 0.0000000E+00 + -2.500000 51.50000 0.0000000E+00 + -1.500000 51.50000 0.0000000E+00 + -0.5000000 51.50000 0.0000000E+00 + 0.5000000 51.50000 0.0000000E+00 + 1.500000 51.50000 0.0000000E+00 + 2.500000 51.50000 0.0000000E+00 + 3.500000 51.50000 0.0000000E+00 + 4.500000 51.50000 0.0000000E+00 + 5.500000 51.50000 0.0000000E+00 + 6.500000 51.50000 0.0000000E+00 + 7.500000 51.50000 0.0000000E+00 + 8.500000 51.50000 0.0000000E+00 + 9.500000 51.50000 0.0000000E+00 + 10.50000 51.50000 0.0000000E+00 + 11.50000 51.50000 0.0000000E+00 + 12.50000 51.50000 0.0000000E+00 + 13.50000 51.50000 0.0000000E+00 + 14.50000 51.50000 0.0000000E+00 + 15.50000 51.50000 2.8671244E-02 + 16.50000 51.50000 5.4301538E-02 + 17.50000 51.50000 1.0860308E-02 + 18.50000 51.50000 5.4301538E-02 + 19.50000 51.50000 3.7487701E-02 + 20.50000 51.50000 3.7487701E-02 + 21.50000 51.50000 3.7487701E-02 + 22.50000 51.50000 8.1920013E-02 + 23.50000 51.50000 0.1319330 + 24.50000 51.50000 0.2401587 + 25.50000 51.50000 0.0000000E+00 + 26.50000 51.50000 0.0000000E+00 + 27.50000 51.50000 0.0000000E+00 + 28.50000 51.50000 4.1096348E-02 + 29.50000 51.50000 0.0000000E+00 + 30.50000 51.50000 0.0000000E+00 + 31.50000 51.50000 0.0000000E+00 + 32.50000 51.50000 3.2723485E-05 + 33.50000 51.50000 2.1546330E-05 + 34.50000 51.50000 3.9759036E-02 + 35.50000 51.50000 6.7774561E-04 + 36.50000 51.50000 0.0000000E+00 + 37.50000 51.50000 0.0000000E+00 + 38.50000 51.50000 0.0000000E+00 + 39.50000 51.50000 0.0000000E+00 + 40.50000 51.50000 0.0000000E+00 + 41.50000 51.50000 0.0000000E+00 + 42.50000 51.50000 0.0000000E+00 + 43.50000 51.50000 0.2038432 + 44.50000 51.50000 4.0768635E-02 + 45.50000 51.50000 0.0000000E+00 + 46.50000 51.50000 0.0000000E+00 + 47.50000 51.50000 0.0000000E+00 + 48.50000 51.50000 0.0000000E+00 + 49.50000 51.50000 0.0000000E+00 + 50.50000 51.50000 0.0000000E+00 + 51.50000 51.50000 0.0000000E+00 + 52.50000 51.50000 0.0000000E+00 + 53.50000 51.50000 0.0000000E+00 + 54.50000 51.50000 0.0000000E+00 + 55.50000 51.50000 0.0000000E+00 + 56.50000 51.50000 0.0000000E+00 + 57.50000 51.50000 0.0000000E+00 + 58.50000 51.50000 0.0000000E+00 + 59.50000 51.50000 0.0000000E+00 + 60.50000 51.50000 0.0000000E+00 + 61.50000 51.50000 0.0000000E+00 + 62.50000 51.50000 0.0000000E+00 + 63.50000 51.50000 0.0000000E+00 + 64.50000 51.50000 0.0000000E+00 + 65.50000 51.50000 0.0000000E+00 + 66.50000 51.50000 0.0000000E+00 + 67.50000 51.50000 0.0000000E+00 + 68.50000 51.50000 0.0000000E+00 + 69.50000 51.50000 0.0000000E+00 + 70.50000 51.50000 0.0000000E+00 + 71.50000 51.50000 0.0000000E+00 + 72.50000 51.50000 0.0000000E+00 + 73.50000 51.50000 0.0000000E+00 + 74.50000 51.50000 0.0000000E+00 + 75.50000 51.50000 0.0000000E+00 + 76.50000 51.50000 0.0000000E+00 + 77.50000 51.50000 0.0000000E+00 + 78.50000 51.50000 0.0000000E+00 + 79.50000 51.50000 0.0000000E+00 + 80.50000 51.50000 0.0000000E+00 + 81.50000 51.50000 0.0000000E+00 + 82.50000 51.50000 0.0000000E+00 + 83.50000 51.50000 0.0000000E+00 + 84.50000 51.50000 0.0000000E+00 + 85.50000 51.50000 0.0000000E+00 + 86.50000 51.50000 0.0000000E+00 + 87.50000 51.50000 0.0000000E+00 + 88.50000 51.50000 0.0000000E+00 + 89.50000 51.50000 0.0000000E+00 + -89.50000 52.50000 0.0000000E+00 + -88.50000 52.50000 0.0000000E+00 + -87.50000 52.50000 0.0000000E+00 + -86.50000 52.50000 0.0000000E+00 + -85.50000 52.50000 0.0000000E+00 + -84.50000 52.50000 0.0000000E+00 + -83.50000 52.50000 0.0000000E+00 + -82.50000 52.50000 0.0000000E+00 + -81.50000 52.50000 0.0000000E+00 + -80.50000 52.50000 0.0000000E+00 + -79.50000 52.50000 0.0000000E+00 + -78.50000 52.50000 0.0000000E+00 + -77.50000 52.50000 0.0000000E+00 + -76.50000 52.50000 0.0000000E+00 + -75.50000 52.50000 0.0000000E+00 + -74.50000 52.50000 0.0000000E+00 + -73.50000 52.50000 0.0000000E+00 + -72.50000 52.50000 0.0000000E+00 + -71.50000 52.50000 0.0000000E+00 + -70.50000 52.50000 0.0000000E+00 + -69.50000 52.50000 0.0000000E+00 + -68.50000 52.50000 0.0000000E+00 + -67.50000 52.50000 0.0000000E+00 + -66.50000 52.50000 0.0000000E+00 + -65.50000 52.50000 0.0000000E+00 + -64.50000 52.50000 0.0000000E+00 + -63.50000 52.50000 0.0000000E+00 + -62.50000 52.50000 0.0000000E+00 + -61.50000 52.50000 0.0000000E+00 + -60.50000 52.50000 0.0000000E+00 + -59.50000 52.50000 0.0000000E+00 + -58.50000 52.50000 0.0000000E+00 + -57.50000 52.50000 0.0000000E+00 + -56.50000 52.50000 0.0000000E+00 + -55.50000 52.50000 0.0000000E+00 + -54.50000 52.50000 0.0000000E+00 + -53.50000 52.50000 0.0000000E+00 + -52.50000 52.50000 0.0000000E+00 + -51.50000 52.50000 0.0000000E+00 + -50.50000 52.50000 0.0000000E+00 + -49.50000 52.50000 0.0000000E+00 + -48.50000 52.50000 0.0000000E+00 + -47.50000 52.50000 0.0000000E+00 + -46.50000 52.50000 0.0000000E+00 + -45.50000 52.50000 0.0000000E+00 + -44.50000 52.50000 0.0000000E+00 + -43.50000 52.50000 0.0000000E+00 + -42.50000 52.50000 0.0000000E+00 + -41.50000 52.50000 0.0000000E+00 + -40.50000 52.50000 0.0000000E+00 + -39.50000 52.50000 0.0000000E+00 + -38.50000 52.50000 0.0000000E+00 + -37.50000 52.50000 0.0000000E+00 + -36.50000 52.50000 0.0000000E+00 + -35.50000 52.50000 0.0000000E+00 + -34.50000 52.50000 0.0000000E+00 + -33.50000 52.50000 0.0000000E+00 + -32.50000 52.50000 0.0000000E+00 + -31.50000 52.50000 0.0000000E+00 + -30.50000 52.50000 0.0000000E+00 + -29.50000 52.50000 0.0000000E+00 + -28.50000 52.50000 0.0000000E+00 + -27.50000 52.50000 0.0000000E+00 + -26.50000 52.50000 0.0000000E+00 + -25.50000 52.50000 0.0000000E+00 + -24.50000 52.50000 0.0000000E+00 + -23.50000 52.50000 0.0000000E+00 + -22.50000 52.50000 0.0000000E+00 + -21.50000 52.50000 0.0000000E+00 + -20.50000 52.50000 0.0000000E+00 + -19.50000 52.50000 0.0000000E+00 + -18.50000 52.50000 0.0000000E+00 + -17.50000 52.50000 0.0000000E+00 + -16.50000 52.50000 0.0000000E+00 + -15.50000 52.50000 0.0000000E+00 + -14.50000 52.50000 0.0000000E+00 + -13.50000 52.50000 0.0000000E+00 + -12.50000 52.50000 0.0000000E+00 + -11.50000 52.50000 0.0000000E+00 + -10.50000 52.50000 0.0000000E+00 + -9.500000 52.50000 0.0000000E+00 + -8.500000 52.50000 0.0000000E+00 + -7.500000 52.50000 0.0000000E+00 + -6.500000 52.50000 0.0000000E+00 + -5.500000 52.50000 0.0000000E+00 + -4.500000 52.50000 0.0000000E+00 + -3.500000 52.50000 0.0000000E+00 + -2.500000 52.50000 0.0000000E+00 + -1.500000 52.50000 0.0000000E+00 + -0.5000000 52.50000 0.0000000E+00 + 0.5000000 52.50000 0.0000000E+00 + 1.500000 52.50000 0.0000000E+00 + 2.500000 52.50000 0.0000000E+00 + 3.500000 52.50000 0.0000000E+00 + 4.500000 52.50000 0.0000000E+00 + 5.500000 52.50000 0.0000000E+00 + 6.500000 52.50000 0.0000000E+00 + 7.500000 52.50000 0.0000000E+00 + 8.500000 52.50000 0.0000000E+00 + 9.500000 52.50000 0.0000000E+00 + 10.50000 52.50000 0.0000000E+00 + 11.50000 52.50000 0.0000000E+00 + 12.50000 52.50000 0.0000000E+00 + 13.50000 52.50000 0.0000000E+00 + 14.50000 52.50000 0.0000000E+00 + 15.50000 52.50000 0.0000000E+00 + 16.50000 52.50000 0.0000000E+00 + 17.50000 52.50000 3.2921817E-02 + 18.50000 52.50000 3.2921817E-02 + 19.50000 52.50000 3.2921817E-02 + 20.50000 52.50000 1.9440001E-02 + 21.50000 52.50000 3.2921817E-02 + 22.50000 52.50000 8.1920013E-02 + 23.50000 52.50000 0.1319330 + 24.50000 52.50000 0.0000000E+00 + 25.50000 52.50000 0.0000000E+00 + 26.50000 52.50000 0.0000000E+00 + 27.50000 52.50000 4.6270382E-02 + 28.50000 52.50000 7.9518072E-03 + 29.50000 52.50000 0.0000000E+00 + 30.50000 52.50000 0.0000000E+00 + 31.50000 52.50000 2.1546330E-05 + 32.50000 52.50000 3.5364181E-04 + 33.50000 52.50000 1.2424699E-03 + 34.50000 52.50000 3.9759036E-02 + 35.50000 52.50000 1.5625000E-03 + 36.50000 52.50000 0.0000000E+00 + 37.50000 52.50000 0.0000000E+00 + 38.50000 52.50000 0.0000000E+00 + 39.50000 52.50000 0.0000000E+00 + 40.50000 52.50000 0.0000000E+00 + 41.50000 52.50000 0.0000000E+00 + 42.50000 52.50000 0.0000000E+00 + 43.50000 52.50000 3.6695201E-02 + 44.50000 52.50000 4.0035408E-02 + 45.50000 52.50000 0.0000000E+00 + 46.50000 52.50000 0.0000000E+00 + 47.50000 52.50000 0.0000000E+00 + 48.50000 52.50000 0.0000000E+00 + 49.50000 52.50000 0.0000000E+00 + 50.50000 52.50000 0.0000000E+00 + 51.50000 52.50000 0.0000000E+00 + 52.50000 52.50000 0.0000000E+00 + 53.50000 52.50000 0.0000000E+00 + 54.50000 52.50000 0.0000000E+00 + 55.50000 52.50000 0.0000000E+00 + 56.50000 52.50000 0.0000000E+00 + 57.50000 52.50000 0.0000000E+00 + 58.50000 52.50000 0.0000000E+00 + 59.50000 52.50000 0.0000000E+00 + 60.50000 52.50000 0.0000000E+00 + 61.50000 52.50000 0.0000000E+00 + 62.50000 52.50000 0.0000000E+00 + 63.50000 52.50000 0.0000000E+00 + 64.50000 52.50000 0.0000000E+00 + 65.50000 52.50000 0.0000000E+00 + 66.50000 52.50000 0.0000000E+00 + 67.50000 52.50000 0.0000000E+00 + 68.50000 52.50000 0.0000000E+00 + 69.50000 52.50000 0.0000000E+00 + 70.50000 52.50000 0.0000000E+00 + 71.50000 52.50000 0.0000000E+00 + 72.50000 52.50000 0.0000000E+00 + 73.50000 52.50000 0.0000000E+00 + 74.50000 52.50000 0.0000000E+00 + 75.50000 52.50000 0.0000000E+00 + 76.50000 52.50000 0.0000000E+00 + 77.50000 52.50000 0.0000000E+00 + 78.50000 52.50000 0.0000000E+00 + 79.50000 52.50000 0.0000000E+00 + 80.50000 52.50000 0.0000000E+00 + 81.50000 52.50000 0.0000000E+00 + 82.50000 52.50000 0.0000000E+00 + 83.50000 52.50000 0.0000000E+00 + 84.50000 52.50000 0.0000000E+00 + 85.50000 52.50000 0.0000000E+00 + 86.50000 52.50000 0.0000000E+00 + 87.50000 52.50000 0.0000000E+00 + 88.50000 52.50000 0.0000000E+00 + 89.50000 52.50000 0.0000000E+00 + -89.50000 53.50000 0.0000000E+00 + -88.50000 53.50000 0.0000000E+00 + -87.50000 53.50000 0.0000000E+00 + -86.50000 53.50000 0.0000000E+00 + -85.50000 53.50000 0.0000000E+00 + -84.50000 53.50000 0.0000000E+00 + -83.50000 53.50000 0.0000000E+00 + -82.50000 53.50000 0.0000000E+00 + -81.50000 53.50000 0.0000000E+00 + -80.50000 53.50000 0.0000000E+00 + -79.50000 53.50000 0.0000000E+00 + -78.50000 53.50000 0.0000000E+00 + -77.50000 53.50000 0.0000000E+00 + -76.50000 53.50000 0.0000000E+00 + -75.50000 53.50000 0.0000000E+00 + -74.50000 53.50000 0.0000000E+00 + -73.50000 53.50000 0.0000000E+00 + -72.50000 53.50000 0.0000000E+00 + -71.50000 53.50000 0.0000000E+00 + -70.50000 53.50000 0.0000000E+00 + -69.50000 53.50000 0.0000000E+00 + -68.50000 53.50000 0.0000000E+00 + -67.50000 53.50000 0.0000000E+00 + -66.50000 53.50000 0.0000000E+00 + -65.50000 53.50000 0.0000000E+00 + -64.50000 53.50000 0.0000000E+00 + -63.50000 53.50000 0.0000000E+00 + -62.50000 53.50000 0.0000000E+00 + -61.50000 53.50000 0.0000000E+00 + -60.50000 53.50000 0.0000000E+00 + -59.50000 53.50000 0.0000000E+00 + -58.50000 53.50000 0.0000000E+00 + -57.50000 53.50000 0.0000000E+00 + -56.50000 53.50000 0.0000000E+00 + -55.50000 53.50000 0.0000000E+00 + -54.50000 53.50000 0.0000000E+00 + -53.50000 53.50000 0.0000000E+00 + -52.50000 53.50000 0.0000000E+00 + -51.50000 53.50000 0.0000000E+00 + -50.50000 53.50000 0.0000000E+00 + -49.50000 53.50000 0.0000000E+00 + -48.50000 53.50000 0.0000000E+00 + -47.50000 53.50000 0.0000000E+00 + -46.50000 53.50000 0.0000000E+00 + -45.50000 53.50000 0.0000000E+00 + -44.50000 53.50000 0.0000000E+00 + -43.50000 53.50000 0.0000000E+00 + -42.50000 53.50000 0.0000000E+00 + -41.50000 53.50000 0.0000000E+00 + -40.50000 53.50000 0.0000000E+00 + -39.50000 53.50000 0.0000000E+00 + -38.50000 53.50000 0.0000000E+00 + -37.50000 53.50000 0.0000000E+00 + -36.50000 53.50000 0.0000000E+00 + -35.50000 53.50000 0.0000000E+00 + -34.50000 53.50000 0.0000000E+00 + -33.50000 53.50000 0.0000000E+00 + -32.50000 53.50000 0.0000000E+00 + -31.50000 53.50000 0.0000000E+00 + -30.50000 53.50000 0.0000000E+00 + -29.50000 53.50000 0.0000000E+00 + -28.50000 53.50000 0.0000000E+00 + -27.50000 53.50000 0.0000000E+00 + -26.50000 53.50000 0.0000000E+00 + -25.50000 53.50000 0.0000000E+00 + -24.50000 53.50000 0.0000000E+00 + -23.50000 53.50000 0.0000000E+00 + -22.50000 53.50000 0.0000000E+00 + -21.50000 53.50000 0.0000000E+00 + -20.50000 53.50000 0.0000000E+00 + -19.50000 53.50000 0.0000000E+00 + -18.50000 53.50000 0.0000000E+00 + -17.50000 53.50000 0.0000000E+00 + -16.50000 53.50000 0.0000000E+00 + -15.50000 53.50000 0.0000000E+00 + -14.50000 53.50000 0.0000000E+00 + -13.50000 53.50000 0.0000000E+00 + -12.50000 53.50000 0.0000000E+00 + -11.50000 53.50000 0.0000000E+00 + -10.50000 53.50000 0.0000000E+00 + -9.500000 53.50000 0.0000000E+00 + -8.500000 53.50000 0.0000000E+00 + -7.500000 53.50000 0.0000000E+00 + -6.500000 53.50000 0.0000000E+00 + -5.500000 53.50000 0.0000000E+00 + -4.500000 53.50000 0.0000000E+00 + -3.500000 53.50000 0.0000000E+00 + -2.500000 53.50000 0.0000000E+00 + -1.500000 53.50000 0.0000000E+00 + -0.5000000 53.50000 0.0000000E+00 + 0.5000000 53.50000 0.0000000E+00 + 1.500000 53.50000 0.0000000E+00 + 2.500000 53.50000 0.0000000E+00 + 3.500000 53.50000 0.0000000E+00 + 4.500000 53.50000 0.0000000E+00 + 5.500000 53.50000 0.0000000E+00 + 6.500000 53.50000 0.0000000E+00 + 7.500000 53.50000 0.0000000E+00 + 8.500000 53.50000 0.0000000E+00 + 9.500000 53.50000 0.0000000E+00 + 10.50000 53.50000 0.0000000E+00 + 11.50000 53.50000 0.0000000E+00 + 12.50000 53.50000 0.0000000E+00 + 13.50000 53.50000 0.0000000E+00 + 14.50000 53.50000 0.0000000E+00 + 15.50000 53.50000 0.0000000E+00 + 16.50000 53.50000 0.0000000E+00 + 17.50000 53.50000 3.2921817E-02 + 18.50000 53.50000 3.2921817E-02 + 19.50000 53.50000 3.2921817E-02 + 20.50000 53.50000 3.2921817E-02 + 21.50000 53.50000 3.2921817E-02 + 22.50000 53.50000 8.1920013E-02 + 23.50000 53.50000 0.1319330 + 24.50000 53.50000 0.0000000E+00 + 25.50000 53.50000 0.0000000E+00 + 26.50000 53.50000 0.0000000E+00 + 27.50000 53.50000 5.9751370E-03 + 28.50000 53.50000 1.5625000E-03 + 29.50000 53.50000 6.7774561E-04 + 30.50000 53.50000 1.0226089E-06 + 31.50000 53.50000 6.8948255E-04 + 32.50000 53.50000 6.8948255E-04 + 33.50000 53.50000 7.8125000E-03 + 34.50000 53.50000 5.2100420E-02 + 35.50000 53.50000 2.2063442E-02 + 36.50000 53.50000 3.3887280E-03 + 37.50000 53.50000 0.0000000E+00 + 38.50000 53.50000 0.0000000E+00 + 39.50000 53.50000 0.0000000E+00 + 40.50000 53.50000 3.2954078E-02 + 41.50000 53.50000 0.0000000E+00 + 42.50000 53.50000 0.1647704 + 43.50000 53.50000 3.2954078E-02 + 44.50000 53.50000 3.0313879E-02 + 45.50000 53.50000 0.0000000E+00 + 46.50000 53.50000 0.0000000E+00 + 47.50000 53.50000 0.0000000E+00 + 48.50000 53.50000 0.0000000E+00 + 49.50000 53.50000 0.0000000E+00 + 50.50000 53.50000 0.0000000E+00 + 51.50000 53.50000 0.0000000E+00 + 52.50000 53.50000 0.0000000E+00 + 53.50000 53.50000 0.0000000E+00 + 54.50000 53.50000 0.0000000E+00 + 55.50000 53.50000 0.0000000E+00 + 56.50000 53.50000 0.0000000E+00 + 57.50000 53.50000 0.0000000E+00 + 58.50000 53.50000 0.0000000E+00 + 59.50000 53.50000 0.0000000E+00 + 60.50000 53.50000 0.0000000E+00 + 61.50000 53.50000 0.0000000E+00 + 62.50000 53.50000 0.0000000E+00 + 63.50000 53.50000 0.0000000E+00 + 64.50000 53.50000 0.0000000E+00 + 65.50000 53.50000 0.0000000E+00 + 66.50000 53.50000 0.0000000E+00 + 67.50000 53.50000 0.0000000E+00 + 68.50000 53.50000 0.0000000E+00 + 69.50000 53.50000 0.0000000E+00 + 70.50000 53.50000 0.0000000E+00 + 71.50000 53.50000 0.0000000E+00 + 72.50000 53.50000 0.0000000E+00 + 73.50000 53.50000 0.0000000E+00 + 74.50000 53.50000 0.0000000E+00 + 75.50000 53.50000 0.0000000E+00 + 76.50000 53.50000 0.0000000E+00 + 77.50000 53.50000 0.0000000E+00 + 78.50000 53.50000 0.0000000E+00 + 79.50000 53.50000 0.0000000E+00 + 80.50000 53.50000 0.0000000E+00 + 81.50000 53.50000 0.0000000E+00 + 82.50000 53.50000 0.0000000E+00 + 83.50000 53.50000 0.0000000E+00 + 84.50000 53.50000 0.0000000E+00 + 85.50000 53.50000 0.0000000E+00 + 86.50000 53.50000 0.0000000E+00 + 87.50000 53.50000 0.0000000E+00 + 88.50000 53.50000 0.0000000E+00 + 89.50000 53.50000 0.0000000E+00 + -89.50000 54.50000 0.0000000E+00 + -88.50000 54.50000 0.0000000E+00 + -87.50000 54.50000 0.0000000E+00 + -86.50000 54.50000 0.0000000E+00 + -85.50000 54.50000 0.0000000E+00 + -84.50000 54.50000 0.0000000E+00 + -83.50000 54.50000 0.0000000E+00 + -82.50000 54.50000 0.0000000E+00 + -81.50000 54.50000 0.0000000E+00 + -80.50000 54.50000 0.0000000E+00 + -79.50000 54.50000 0.0000000E+00 + -78.50000 54.50000 0.0000000E+00 + -77.50000 54.50000 0.0000000E+00 + -76.50000 54.50000 0.0000000E+00 + -75.50000 54.50000 0.0000000E+00 + -74.50000 54.50000 0.0000000E+00 + -73.50000 54.50000 0.0000000E+00 + -72.50000 54.50000 0.0000000E+00 + -71.50000 54.50000 0.0000000E+00 + -70.50000 54.50000 0.0000000E+00 + -69.50000 54.50000 0.0000000E+00 + -68.50000 54.50000 0.0000000E+00 + -67.50000 54.50000 0.0000000E+00 + -66.50000 54.50000 0.0000000E+00 + -65.50000 54.50000 0.0000000E+00 + -64.50000 54.50000 0.0000000E+00 + -63.50000 54.50000 0.0000000E+00 + -62.50000 54.50000 0.0000000E+00 + -61.50000 54.50000 0.0000000E+00 + -60.50000 54.50000 0.0000000E+00 + -59.50000 54.50000 0.0000000E+00 + -58.50000 54.50000 0.0000000E+00 + -57.50000 54.50000 0.0000000E+00 + -56.50000 54.50000 0.0000000E+00 + -55.50000 54.50000 0.0000000E+00 + -54.50000 54.50000 0.0000000E+00 + -53.50000 54.50000 0.0000000E+00 + -52.50000 54.50000 0.0000000E+00 + -51.50000 54.50000 0.0000000E+00 + -50.50000 54.50000 0.0000000E+00 + -49.50000 54.50000 0.0000000E+00 + -48.50000 54.50000 0.0000000E+00 + -47.50000 54.50000 0.0000000E+00 + -46.50000 54.50000 0.0000000E+00 + -45.50000 54.50000 0.0000000E+00 + -44.50000 54.50000 0.0000000E+00 + -43.50000 54.50000 0.0000000E+00 + -42.50000 54.50000 0.0000000E+00 + -41.50000 54.50000 0.0000000E+00 + -40.50000 54.50000 0.0000000E+00 + -39.50000 54.50000 0.0000000E+00 + -38.50000 54.50000 0.0000000E+00 + -37.50000 54.50000 0.0000000E+00 + -36.50000 54.50000 0.0000000E+00 + -35.50000 54.50000 0.0000000E+00 + -34.50000 54.50000 0.0000000E+00 + -33.50000 54.50000 0.0000000E+00 + -32.50000 54.50000 0.0000000E+00 + -31.50000 54.50000 0.0000000E+00 + -30.50000 54.50000 0.0000000E+00 + -29.50000 54.50000 0.0000000E+00 + -28.50000 54.50000 0.0000000E+00 + -27.50000 54.50000 0.0000000E+00 + -26.50000 54.50000 0.0000000E+00 + -25.50000 54.50000 0.0000000E+00 + -24.50000 54.50000 0.0000000E+00 + -23.50000 54.50000 0.0000000E+00 + -22.50000 54.50000 0.0000000E+00 + -21.50000 54.50000 0.0000000E+00 + -20.50000 54.50000 0.0000000E+00 + -19.50000 54.50000 0.0000000E+00 + -18.50000 54.50000 0.0000000E+00 + -17.50000 54.50000 0.0000000E+00 + -16.50000 54.50000 0.0000000E+00 + -15.50000 54.50000 0.0000000E+00 + -14.50000 54.50000 0.0000000E+00 + -13.50000 54.50000 0.0000000E+00 + -12.50000 54.50000 0.0000000E+00 + -11.50000 54.50000 0.0000000E+00 + -10.50000 54.50000 0.0000000E+00 + -9.500000 54.50000 0.0000000E+00 + -8.500000 54.50000 0.0000000E+00 + -7.500000 54.50000 0.0000000E+00 + -6.500000 54.50000 0.0000000E+00 + -5.500000 54.50000 0.0000000E+00 + -4.500000 54.50000 0.0000000E+00 + -3.500000 54.50000 0.0000000E+00 + -2.500000 54.50000 0.0000000E+00 + -1.500000 54.50000 0.0000000E+00 + -0.5000000 54.50000 0.0000000E+00 + 0.5000000 54.50000 0.0000000E+00 + 1.500000 54.50000 0.0000000E+00 + 2.500000 54.50000 0.0000000E+00 + 3.500000 54.50000 0.0000000E+00 + 4.500000 54.50000 0.0000000E+00 + 5.500000 54.50000 0.0000000E+00 + 6.500000 54.50000 0.0000000E+00 + 7.500000 54.50000 0.0000000E+00 + 8.500000 54.50000 0.0000000E+00 + 9.500000 54.50000 0.0000000E+00 + 10.50000 54.50000 0.0000000E+00 + 11.50000 54.50000 0.0000000E+00 + 12.50000 54.50000 0.0000000E+00 + 13.50000 54.50000 0.0000000E+00 + 14.50000 54.50000 0.0000000E+00 + 15.50000 54.50000 0.0000000E+00 + 16.50000 54.50000 0.0000000E+00 + 17.50000 54.50000 2.4141422E-03 + 18.50000 54.50000 1.8539429E-03 + 19.50000 54.50000 4.3353830E-03 + 20.50000 54.50000 2.7448103E-02 + 21.50000 54.50000 3.2921817E-02 + 22.50000 54.50000 0.1045530 + 23.50000 54.50000 0.1319330 + 24.50000 54.50000 0.2401587 + 25.50000 54.50000 0.0000000E+00 + 26.50000 54.50000 0.2268685 + 27.50000 54.50000 1.0420084E-02 + 28.50000 54.50000 6.7774561E-04 + 29.50000 54.50000 1.6361741E-04 + 30.50000 54.50000 3.5364181E-04 + 31.50000 54.50000 3.5364181E-04 + 32.50000 54.50000 1.2424699E-03 + 33.50000 54.50000 1.5978264E-02 + 34.50000 54.50000 5.2100420E-02 + 35.50000 54.50000 2.9875685E-02 + 36.50000 54.50000 0.0000000E+00 + 37.50000 54.50000 0.0000000E+00 + 38.50000 54.50000 0.1675442 + 39.50000 54.50000 3.3508848E-02 + 40.50000 54.50000 3.2954078E-02 + 41.50000 54.50000 0.1647704 + 42.50000 54.50000 0.1647704 + 43.50000 54.50000 3.2954078E-02 + 44.50000 54.50000 0.0000000E+00 + 45.50000 54.50000 0.0000000E+00 + 46.50000 54.50000 0.0000000E+00 + 47.50000 54.50000 0.0000000E+00 + 48.50000 54.50000 0.0000000E+00 + 49.50000 54.50000 0.0000000E+00 + 50.50000 54.50000 0.0000000E+00 + 51.50000 54.50000 0.0000000E+00 + 52.50000 54.50000 0.0000000E+00 + 53.50000 54.50000 0.0000000E+00 + 54.50000 54.50000 0.0000000E+00 + 55.50000 54.50000 0.0000000E+00 + 56.50000 54.50000 0.0000000E+00 + 57.50000 54.50000 0.0000000E+00 + 58.50000 54.50000 0.0000000E+00 + 59.50000 54.50000 0.0000000E+00 + 60.50000 54.50000 0.0000000E+00 + 61.50000 54.50000 0.0000000E+00 + 62.50000 54.50000 0.0000000E+00 + 63.50000 54.50000 0.0000000E+00 + 64.50000 54.50000 0.0000000E+00 + 65.50000 54.50000 0.0000000E+00 + 66.50000 54.50000 0.0000000E+00 + 67.50000 54.50000 0.0000000E+00 + 68.50000 54.50000 0.0000000E+00 + 69.50000 54.50000 0.0000000E+00 + 70.50000 54.50000 0.0000000E+00 + 71.50000 54.50000 0.0000000E+00 + 72.50000 54.50000 0.0000000E+00 + 73.50000 54.50000 0.0000000E+00 + 74.50000 54.50000 0.0000000E+00 + 75.50000 54.50000 0.0000000E+00 + 76.50000 54.50000 0.0000000E+00 + 77.50000 54.50000 0.0000000E+00 + 78.50000 54.50000 0.0000000E+00 + 79.50000 54.50000 0.0000000E+00 + 80.50000 54.50000 0.0000000E+00 + 81.50000 54.50000 0.0000000E+00 + 82.50000 54.50000 0.0000000E+00 + 83.50000 54.50000 0.0000000E+00 + 84.50000 54.50000 0.0000000E+00 + 85.50000 54.50000 0.0000000E+00 + 86.50000 54.50000 0.0000000E+00 + 87.50000 54.50000 0.0000000E+00 + 88.50000 54.50000 0.0000000E+00 + 89.50000 54.50000 0.0000000E+00 + -89.50000 55.50000 0.0000000E+00 + -88.50000 55.50000 0.0000000E+00 + -87.50000 55.50000 0.0000000E+00 + -86.50000 55.50000 0.0000000E+00 + -85.50000 55.50000 0.0000000E+00 + -84.50000 55.50000 0.0000000E+00 + -83.50000 55.50000 0.0000000E+00 + -82.50000 55.50000 0.0000000E+00 + -81.50000 55.50000 0.0000000E+00 + -80.50000 55.50000 0.0000000E+00 + -79.50000 55.50000 0.0000000E+00 + -78.50000 55.50000 0.0000000E+00 + -77.50000 55.50000 0.0000000E+00 + -76.50000 55.50000 0.0000000E+00 + -75.50000 55.50000 0.0000000E+00 + -74.50000 55.50000 0.0000000E+00 + -73.50000 55.50000 0.0000000E+00 + -72.50000 55.50000 0.0000000E+00 + -71.50000 55.50000 0.0000000E+00 + -70.50000 55.50000 0.0000000E+00 + -69.50000 55.50000 0.0000000E+00 + -68.50000 55.50000 0.0000000E+00 + -67.50000 55.50000 0.0000000E+00 + -66.50000 55.50000 0.0000000E+00 + -65.50000 55.50000 0.0000000E+00 + -64.50000 55.50000 0.0000000E+00 + -63.50000 55.50000 0.0000000E+00 + -62.50000 55.50000 0.0000000E+00 + -61.50000 55.50000 0.0000000E+00 + -60.50000 55.50000 0.0000000E+00 + -59.50000 55.50000 0.0000000E+00 + -58.50000 55.50000 0.0000000E+00 + -57.50000 55.50000 0.0000000E+00 + -56.50000 55.50000 0.0000000E+00 + -55.50000 55.50000 0.0000000E+00 + -54.50000 55.50000 0.0000000E+00 + -53.50000 55.50000 0.0000000E+00 + -52.50000 55.50000 0.0000000E+00 + -51.50000 55.50000 0.0000000E+00 + -50.50000 55.50000 0.0000000E+00 + -49.50000 55.50000 0.0000000E+00 + -48.50000 55.50000 0.0000000E+00 + -47.50000 55.50000 0.0000000E+00 + -46.50000 55.50000 0.0000000E+00 + -45.50000 55.50000 0.0000000E+00 + -44.50000 55.50000 0.0000000E+00 + -43.50000 55.50000 0.0000000E+00 + -42.50000 55.50000 0.0000000E+00 + -41.50000 55.50000 0.0000000E+00 + -40.50000 55.50000 0.0000000E+00 + -39.50000 55.50000 0.0000000E+00 + -38.50000 55.50000 0.0000000E+00 + -37.50000 55.50000 0.0000000E+00 + -36.50000 55.50000 0.0000000E+00 + -35.50000 55.50000 0.0000000E+00 + -34.50000 55.50000 0.0000000E+00 + -33.50000 55.50000 0.0000000E+00 + -32.50000 55.50000 0.0000000E+00 + -31.50000 55.50000 0.0000000E+00 + -30.50000 55.50000 0.0000000E+00 + -29.50000 55.50000 0.0000000E+00 + -28.50000 55.50000 0.0000000E+00 + -27.50000 55.50000 0.0000000E+00 + -26.50000 55.50000 0.0000000E+00 + -25.50000 55.50000 0.0000000E+00 + -24.50000 55.50000 0.0000000E+00 + -23.50000 55.50000 0.0000000E+00 + -22.50000 55.50000 0.0000000E+00 + -21.50000 55.50000 0.0000000E+00 + -20.50000 55.50000 0.0000000E+00 + -19.50000 55.50000 0.0000000E+00 + -18.50000 55.50000 0.0000000E+00 + -17.50000 55.50000 0.0000000E+00 + -16.50000 55.50000 0.0000000E+00 + -15.50000 55.50000 0.0000000E+00 + -14.50000 55.50000 0.0000000E+00 + -13.50000 55.50000 0.0000000E+00 + -12.50000 55.50000 0.0000000E+00 + -11.50000 55.50000 0.0000000E+00 + -10.50000 55.50000 0.0000000E+00 + -9.500000 55.50000 0.0000000E+00 + -8.500000 55.50000 0.0000000E+00 + -7.500000 55.50000 0.0000000E+00 + -6.500000 55.50000 0.0000000E+00 + -5.500000 55.50000 0.0000000E+00 + -4.500000 55.50000 0.0000000E+00 + -3.500000 55.50000 0.0000000E+00 + -2.500000 55.50000 0.0000000E+00 + -1.500000 55.50000 0.0000000E+00 + -0.5000000 55.50000 0.0000000E+00 + 0.5000000 55.50000 0.0000000E+00 + 1.500000 55.50000 0.0000000E+00 + 2.500000 55.50000 0.0000000E+00 + 3.500000 55.50000 0.0000000E+00 + 4.500000 55.50000 0.0000000E+00 + 5.500000 55.50000 0.0000000E+00 + 6.500000 55.50000 0.0000000E+00 + 7.500000 55.50000 0.0000000E+00 + 8.500000 55.50000 0.0000000E+00 + 9.500000 55.50000 0.0000000E+00 + 10.50000 55.50000 0.0000000E+00 + 11.50000 55.50000 0.0000000E+00 + 12.50000 55.50000 0.0000000E+00 + 13.50000 55.50000 0.0000000E+00 + 14.50000 55.50000 0.0000000E+00 + 15.50000 55.50000 0.0000000E+00 + 16.50000 55.50000 0.0000000E+00 + 17.50000 55.50000 0.0000000E+00 + 18.50000 55.50000 3.6145656E-03 + 19.50000 55.50000 4.3353830E-03 + 20.50000 55.50000 2.7448103E-02 + 21.50000 55.50000 3.2921817E-02 + 22.50000 55.50000 0.1045530 + 23.50000 55.50000 8.1920013E-02 + 24.50000 55.50000 8.1920013E-02 + 25.50000 55.50000 0.2268685 + 26.50000 55.50000 0.0000000E+00 + 27.50000 55.50000 8.5934922E-02 + 28.50000 55.50000 3.3887280E-03 + 29.50000 55.50000 2.1041336E-03 + 30.50000 55.50000 6.5754175E-05 + 31.50000 55.50000 1.2424699E-03 + 32.50000 55.50000 5.2357572E-03 + 33.50000 55.50000 2.9875685E-02 + 34.50000 55.50000 5.2100420E-02 + 35.50000 55.50000 3.9759036E-02 + 36.50000 55.50000 2.2633076E-03 + 37.50000 55.50000 0.0000000E+00 + 38.50000 55.50000 0.0000000E+00 + 39.50000 55.50000 0.0000000E+00 + 40.50000 55.50000 3.2954078E-02 + 41.50000 55.50000 0.1647704 + 42.50000 55.50000 0.0000000E+00 + 43.50000 55.50000 3.2954078E-02 + 44.50000 55.50000 0.0000000E+00 + 45.50000 55.50000 0.0000000E+00 + 46.50000 55.50000 0.0000000E+00 + 47.50000 55.50000 0.0000000E+00 + 48.50000 55.50000 0.0000000E+00 + 49.50000 55.50000 0.0000000E+00 + 50.50000 55.50000 0.0000000E+00 + 51.50000 55.50000 0.0000000E+00 + 52.50000 55.50000 0.0000000E+00 + 53.50000 55.50000 0.0000000E+00 + 54.50000 55.50000 0.0000000E+00 + 55.50000 55.50000 0.0000000E+00 + 56.50000 55.50000 0.0000000E+00 + 57.50000 55.50000 0.0000000E+00 + 58.50000 55.50000 0.0000000E+00 + 59.50000 55.50000 0.0000000E+00 + 60.50000 55.50000 0.0000000E+00 + 61.50000 55.50000 0.0000000E+00 + 62.50000 55.50000 0.0000000E+00 + 63.50000 55.50000 0.0000000E+00 + 64.50000 55.50000 0.0000000E+00 + 65.50000 55.50000 0.0000000E+00 + 66.50000 55.50000 0.0000000E+00 + 67.50000 55.50000 0.0000000E+00 + 68.50000 55.50000 0.0000000E+00 + 69.50000 55.50000 0.0000000E+00 + 70.50000 55.50000 0.0000000E+00 + 71.50000 55.50000 0.0000000E+00 + 72.50000 55.50000 0.0000000E+00 + 73.50000 55.50000 0.0000000E+00 + 74.50000 55.50000 0.0000000E+00 + 75.50000 55.50000 0.0000000E+00 + 76.50000 55.50000 0.0000000E+00 + 77.50000 55.50000 0.0000000E+00 + 78.50000 55.50000 0.0000000E+00 + 79.50000 55.50000 0.0000000E+00 + 80.50000 55.50000 0.0000000E+00 + 81.50000 55.50000 0.0000000E+00 + 82.50000 55.50000 0.0000000E+00 + 83.50000 55.50000 0.0000000E+00 + 84.50000 55.50000 0.0000000E+00 + 85.50000 55.50000 0.0000000E+00 + 86.50000 55.50000 0.0000000E+00 + 87.50000 55.50000 0.0000000E+00 + 88.50000 55.50000 0.0000000E+00 + 89.50000 55.50000 0.0000000E+00 + -89.50000 56.50000 0.0000000E+00 + -88.50000 56.50000 0.0000000E+00 + -87.50000 56.50000 0.0000000E+00 + -86.50000 56.50000 0.0000000E+00 + -85.50000 56.50000 0.0000000E+00 + -84.50000 56.50000 0.0000000E+00 + -83.50000 56.50000 0.0000000E+00 + -82.50000 56.50000 0.0000000E+00 + -81.50000 56.50000 0.0000000E+00 + -80.50000 56.50000 0.0000000E+00 + -79.50000 56.50000 0.0000000E+00 + -78.50000 56.50000 0.0000000E+00 + -77.50000 56.50000 0.0000000E+00 + -76.50000 56.50000 0.0000000E+00 + -75.50000 56.50000 0.0000000E+00 + -74.50000 56.50000 0.0000000E+00 + -73.50000 56.50000 0.0000000E+00 + -72.50000 56.50000 0.0000000E+00 + -71.50000 56.50000 0.0000000E+00 + -70.50000 56.50000 0.0000000E+00 + -69.50000 56.50000 0.0000000E+00 + -68.50000 56.50000 0.0000000E+00 + -67.50000 56.50000 0.0000000E+00 + -66.50000 56.50000 0.0000000E+00 + -65.50000 56.50000 0.0000000E+00 + -64.50000 56.50000 0.0000000E+00 + -63.50000 56.50000 0.0000000E+00 + -62.50000 56.50000 0.0000000E+00 + -61.50000 56.50000 0.0000000E+00 + -60.50000 56.50000 0.0000000E+00 + -59.50000 56.50000 0.0000000E+00 + -58.50000 56.50000 0.0000000E+00 + -57.50000 56.50000 0.0000000E+00 + -56.50000 56.50000 0.0000000E+00 + -55.50000 56.50000 0.0000000E+00 + -54.50000 56.50000 0.0000000E+00 + -53.50000 56.50000 0.0000000E+00 + -52.50000 56.50000 0.0000000E+00 + -51.50000 56.50000 0.0000000E+00 + -50.50000 56.50000 0.0000000E+00 + -49.50000 56.50000 0.0000000E+00 + -48.50000 56.50000 0.0000000E+00 + -47.50000 56.50000 0.0000000E+00 + -46.50000 56.50000 0.0000000E+00 + -45.50000 56.50000 0.0000000E+00 + -44.50000 56.50000 0.0000000E+00 + -43.50000 56.50000 0.0000000E+00 + -42.50000 56.50000 0.0000000E+00 + -41.50000 56.50000 0.0000000E+00 + -40.50000 56.50000 0.0000000E+00 + -39.50000 56.50000 0.0000000E+00 + -38.50000 56.50000 0.0000000E+00 + -37.50000 56.50000 0.0000000E+00 + -36.50000 56.50000 0.0000000E+00 + -35.50000 56.50000 0.0000000E+00 + -34.50000 56.50000 0.0000000E+00 + -33.50000 56.50000 0.0000000E+00 + -32.50000 56.50000 0.0000000E+00 + -31.50000 56.50000 0.0000000E+00 + -30.50000 56.50000 0.0000000E+00 + -29.50000 56.50000 0.0000000E+00 + -28.50000 56.50000 0.0000000E+00 + -27.50000 56.50000 0.0000000E+00 + -26.50000 56.50000 0.0000000E+00 + -25.50000 56.50000 0.0000000E+00 + -24.50000 56.50000 0.0000000E+00 + -23.50000 56.50000 0.0000000E+00 + -22.50000 56.50000 0.0000000E+00 + -21.50000 56.50000 0.0000000E+00 + -20.50000 56.50000 0.0000000E+00 + -19.50000 56.50000 0.0000000E+00 + -18.50000 56.50000 0.0000000E+00 + -17.50000 56.50000 0.0000000E+00 + -16.50000 56.50000 0.0000000E+00 + -15.50000 56.50000 0.0000000E+00 + -14.50000 56.50000 0.0000000E+00 + -13.50000 56.50000 0.0000000E+00 + -12.50000 56.50000 0.0000000E+00 + -11.50000 56.50000 0.0000000E+00 + -10.50000 56.50000 0.0000000E+00 + -9.500000 56.50000 0.0000000E+00 + -8.500000 56.50000 0.0000000E+00 + -7.500000 56.50000 0.0000000E+00 + -6.500000 56.50000 0.0000000E+00 + -5.500000 56.50000 0.0000000E+00 + -4.500000 56.50000 0.0000000E+00 + -3.500000 56.50000 0.0000000E+00 + -2.500000 56.50000 0.0000000E+00 + -1.500000 56.50000 0.0000000E+00 + -0.5000000 56.50000 0.0000000E+00 + 0.5000000 56.50000 0.0000000E+00 + 1.500000 56.50000 0.0000000E+00 + 2.500000 56.50000 0.0000000E+00 + 3.500000 56.50000 0.0000000E+00 + 4.500000 56.50000 0.0000000E+00 + 5.500000 56.50000 0.0000000E+00 + 6.500000 56.50000 0.0000000E+00 + 7.500000 56.50000 0.0000000E+00 + 8.500000 56.50000 0.0000000E+00 + 9.500000 56.50000 0.0000000E+00 + 10.50000 56.50000 0.0000000E+00 + 11.50000 56.50000 0.0000000E+00 + 12.50000 56.50000 0.0000000E+00 + 13.50000 56.50000 0.0000000E+00 + 14.50000 56.50000 0.0000000E+00 + 15.50000 56.50000 0.0000000E+00 + 16.50000 56.50000 0.0000000E+00 + 17.50000 56.50000 0.0000000E+00 + 18.50000 56.50000 0.1156661 + 19.50000 56.50000 1.3230540E-02 + 20.50000 56.50000 4.6483610E-02 + 21.50000 56.50000 5.3020909E-02 + 22.50000 56.50000 0.1045530 + 23.50000 56.50000 6.3388139E-02 + 24.50000 56.50000 0.2259802 + 25.50000 56.50000 0.0000000E+00 + 26.50000 56.50000 0.0000000E+00 + 27.50000 56.50000 0.1354292 + 28.50000 56.50000 3.3887280E-03 + 29.50000 56.50000 4.2082675E-09 + 30.50000 56.50000 1.3789651E-04 + 31.50000 56.50000 3.5364181E-04 + 32.50000 56.50000 5.2357572E-03 + 33.50000 56.50000 2.2063442E-02 + 34.50000 56.50000 5.2100420E-02 + 35.50000 56.50000 2.9875685E-02 + 36.50000 56.50000 4.4126883E-03 + 37.50000 56.50000 4.2082672E-04 + 38.50000 56.50000 0.0000000E+00 + 39.50000 56.50000 0.0000000E+00 + 40.50000 56.50000 3.2954078E-02 + 41.50000 56.50000 3.2954078E-02 + 42.50000 56.50000 0.0000000E+00 + 43.50000 56.50000 3.2954078E-02 + 44.50000 56.50000 0.0000000E+00 + 45.50000 56.50000 0.0000000E+00 + 46.50000 56.50000 0.0000000E+00 + 47.50000 56.50000 0.0000000E+00 + 48.50000 56.50000 0.0000000E+00 + 49.50000 56.50000 0.0000000E+00 + 50.50000 56.50000 0.0000000E+00 + 51.50000 56.50000 0.0000000E+00 + 52.50000 56.50000 0.0000000E+00 + 53.50000 56.50000 0.0000000E+00 + 54.50000 56.50000 0.0000000E+00 + 55.50000 56.50000 0.0000000E+00 + 56.50000 56.50000 0.0000000E+00 + 57.50000 56.50000 0.0000000E+00 + 58.50000 56.50000 0.0000000E+00 + 59.50000 56.50000 0.0000000E+00 + 60.50000 56.50000 0.0000000E+00 + 61.50000 56.50000 0.0000000E+00 + 62.50000 56.50000 0.0000000E+00 + 63.50000 56.50000 0.0000000E+00 + 64.50000 56.50000 0.0000000E+00 + 65.50000 56.50000 0.0000000E+00 + 66.50000 56.50000 0.0000000E+00 + 67.50000 56.50000 0.0000000E+00 + 68.50000 56.50000 0.0000000E+00 + 69.50000 56.50000 0.0000000E+00 + 70.50000 56.50000 0.0000000E+00 + 71.50000 56.50000 0.0000000E+00 + 72.50000 56.50000 0.0000000E+00 + 73.50000 56.50000 0.0000000E+00 + 74.50000 56.50000 0.0000000E+00 + 75.50000 56.50000 0.0000000E+00 + 76.50000 56.50000 0.0000000E+00 + 77.50000 56.50000 0.0000000E+00 + 78.50000 56.50000 0.0000000E+00 + 79.50000 56.50000 0.0000000E+00 + 80.50000 56.50000 0.0000000E+00 + 81.50000 56.50000 0.0000000E+00 + 82.50000 56.50000 0.0000000E+00 + 83.50000 56.50000 0.0000000E+00 + 84.50000 56.50000 0.0000000E+00 + 85.50000 56.50000 0.0000000E+00 + 86.50000 56.50000 0.0000000E+00 + 87.50000 56.50000 0.0000000E+00 + 88.50000 56.50000 0.0000000E+00 + 89.50000 56.50000 0.0000000E+00 + -89.50000 57.50000 0.0000000E+00 + -88.50000 57.50000 0.0000000E+00 + -87.50000 57.50000 0.0000000E+00 + -86.50000 57.50000 0.0000000E+00 + -85.50000 57.50000 0.0000000E+00 + -84.50000 57.50000 0.0000000E+00 + -83.50000 57.50000 0.0000000E+00 + -82.50000 57.50000 0.0000000E+00 + -81.50000 57.50000 0.0000000E+00 + -80.50000 57.50000 0.0000000E+00 + -79.50000 57.50000 0.0000000E+00 + -78.50000 57.50000 0.0000000E+00 + -77.50000 57.50000 0.0000000E+00 + -76.50000 57.50000 0.0000000E+00 + -75.50000 57.50000 0.0000000E+00 + -74.50000 57.50000 0.0000000E+00 + -73.50000 57.50000 0.0000000E+00 + -72.50000 57.50000 0.0000000E+00 + -71.50000 57.50000 0.0000000E+00 + -70.50000 57.50000 0.0000000E+00 + -69.50000 57.50000 0.0000000E+00 + -68.50000 57.50000 0.0000000E+00 + -67.50000 57.50000 0.0000000E+00 + -66.50000 57.50000 0.0000000E+00 + -65.50000 57.50000 0.0000000E+00 + -64.50000 57.50000 0.0000000E+00 + -63.50000 57.50000 0.0000000E+00 + -62.50000 57.50000 0.0000000E+00 + -61.50000 57.50000 0.0000000E+00 + -60.50000 57.50000 0.0000000E+00 + -59.50000 57.50000 0.0000000E+00 + -58.50000 57.50000 0.0000000E+00 + -57.50000 57.50000 0.0000000E+00 + -56.50000 57.50000 0.0000000E+00 + -55.50000 57.50000 0.0000000E+00 + -54.50000 57.50000 0.0000000E+00 + -53.50000 57.50000 0.0000000E+00 + -52.50000 57.50000 0.0000000E+00 + -51.50000 57.50000 0.0000000E+00 + -50.50000 57.50000 0.0000000E+00 + -49.50000 57.50000 0.0000000E+00 + -48.50000 57.50000 0.0000000E+00 + -47.50000 57.50000 0.0000000E+00 + -46.50000 57.50000 0.0000000E+00 + -45.50000 57.50000 0.0000000E+00 + -44.50000 57.50000 0.0000000E+00 + -43.50000 57.50000 0.0000000E+00 + -42.50000 57.50000 0.0000000E+00 + -41.50000 57.50000 0.0000000E+00 + -40.50000 57.50000 0.0000000E+00 + -39.50000 57.50000 0.0000000E+00 + -38.50000 57.50000 0.0000000E+00 + -37.50000 57.50000 0.0000000E+00 + -36.50000 57.50000 0.0000000E+00 + -35.50000 57.50000 0.0000000E+00 + -34.50000 57.50000 0.0000000E+00 + -33.50000 57.50000 0.0000000E+00 + -32.50000 57.50000 0.0000000E+00 + -31.50000 57.50000 0.0000000E+00 + -30.50000 57.50000 0.0000000E+00 + -29.50000 57.50000 0.0000000E+00 + -28.50000 57.50000 0.0000000E+00 + -27.50000 57.50000 0.0000000E+00 + -26.50000 57.50000 0.0000000E+00 + -25.50000 57.50000 0.0000000E+00 + -24.50000 57.50000 0.0000000E+00 + -23.50000 57.50000 0.0000000E+00 + -22.50000 57.50000 0.0000000E+00 + -21.50000 57.50000 0.0000000E+00 + -20.50000 57.50000 0.0000000E+00 + -19.50000 57.50000 0.0000000E+00 + -18.50000 57.50000 0.0000000E+00 + -17.50000 57.50000 0.0000000E+00 + -16.50000 57.50000 0.0000000E+00 + -15.50000 57.50000 0.0000000E+00 + -14.50000 57.50000 0.0000000E+00 + -13.50000 57.50000 0.0000000E+00 + -12.50000 57.50000 0.0000000E+00 + -11.50000 57.50000 0.0000000E+00 + -10.50000 57.50000 0.0000000E+00 + -9.500000 57.50000 0.0000000E+00 + -8.500000 57.50000 0.0000000E+00 + -7.500000 57.50000 0.0000000E+00 + -6.500000 57.50000 0.0000000E+00 + -5.500000 57.50000 0.0000000E+00 + -4.500000 57.50000 0.0000000E+00 + -3.500000 57.50000 0.0000000E+00 + -2.500000 57.50000 0.0000000E+00 + -1.500000 57.50000 0.0000000E+00 + -0.5000000 57.50000 0.0000000E+00 + 0.5000000 57.50000 0.0000000E+00 + 1.500000 57.50000 0.0000000E+00 + 2.500000 57.50000 0.0000000E+00 + 3.500000 57.50000 0.0000000E+00 + 4.500000 57.50000 0.0000000E+00 + 5.500000 57.50000 0.0000000E+00 + 6.500000 57.50000 0.0000000E+00 + 7.500000 57.50000 0.0000000E+00 + 8.500000 57.50000 0.0000000E+00 + 9.500000 57.50000 0.0000000E+00 + 10.50000 57.50000 0.0000000E+00 + 11.50000 57.50000 0.0000000E+00 + 12.50000 57.50000 0.0000000E+00 + 13.50000 57.50000 0.0000000E+00 + 14.50000 57.50000 0.0000000E+00 + 15.50000 57.50000 0.0000000E+00 + 16.50000 57.50000 0.0000000E+00 + 17.50000 57.50000 0.0000000E+00 + 18.50000 57.50000 0.0000000E+00 + 19.50000 57.50000 0.0000000E+00 + 20.50000 57.50000 0.1156661 + 21.50000 57.50000 8.1920013E-02 + 22.50000 57.50000 0.1045530 + 23.50000 57.50000 6.3388139E-02 + 24.50000 57.50000 0.0000000E+00 + 25.50000 57.50000 0.0000000E+00 + 26.50000 57.50000 6.2815003E-02 + 27.50000 57.50000 0.1190282 + 28.50000 57.50000 1.7305920E-02 + 29.50000 57.50000 2.4376989E-04 + 30.50000 57.50000 3.0179916E-02 + 31.50000 57.50000 6.2815003E-02 + 32.50000 57.50000 3.9003182E-02 + 33.50000 57.50000 1.7305920E-02 + 34.50000 57.50000 3.4365524E-02 + 35.50000 57.50000 4.6061962E-03 + 36.50000 57.50000 2.5561124E-03 + 37.50000 57.50000 3.9259376E-04 + 38.50000 57.50000 4.6061962E-03 + 39.50000 57.50000 3.4978315E-02 + 40.50000 57.50000 3.4978315E-02 + 41.50000 57.50000 3.3508848E-02 + 42.50000 57.50000 3.2954078E-02 + 43.50000 57.50000 3.2954078E-02 + 44.50000 57.50000 0.0000000E+00 + 45.50000 57.50000 0.0000000E+00 + 46.50000 57.50000 0.0000000E+00 + 47.50000 57.50000 0.0000000E+00 + 48.50000 57.50000 0.0000000E+00 + 49.50000 57.50000 0.0000000E+00 + 50.50000 57.50000 0.0000000E+00 + 51.50000 57.50000 0.0000000E+00 + 52.50000 57.50000 0.0000000E+00 + 53.50000 57.50000 0.0000000E+00 + 54.50000 57.50000 0.0000000E+00 + 55.50000 57.50000 0.0000000E+00 + 56.50000 57.50000 0.0000000E+00 + 57.50000 57.50000 0.0000000E+00 + 58.50000 57.50000 0.0000000E+00 + 59.50000 57.50000 0.0000000E+00 + 60.50000 57.50000 0.0000000E+00 + 61.50000 57.50000 0.0000000E+00 + 62.50000 57.50000 0.0000000E+00 + 63.50000 57.50000 0.0000000E+00 + 64.50000 57.50000 0.0000000E+00 + 65.50000 57.50000 0.0000000E+00 + 66.50000 57.50000 0.0000000E+00 + 67.50000 57.50000 0.0000000E+00 + 68.50000 57.50000 0.0000000E+00 + 69.50000 57.50000 0.0000000E+00 + 70.50000 57.50000 0.0000000E+00 + 71.50000 57.50000 0.0000000E+00 + 72.50000 57.50000 0.0000000E+00 + 73.50000 57.50000 0.0000000E+00 + 74.50000 57.50000 0.0000000E+00 + 75.50000 57.50000 0.0000000E+00 + 76.50000 57.50000 0.0000000E+00 + 77.50000 57.50000 0.0000000E+00 + 78.50000 57.50000 0.0000000E+00 + 79.50000 57.50000 0.0000000E+00 + 80.50000 57.50000 0.0000000E+00 + 81.50000 57.50000 0.0000000E+00 + 82.50000 57.50000 0.0000000E+00 + 83.50000 57.50000 0.0000000E+00 + 84.50000 57.50000 0.0000000E+00 + 85.50000 57.50000 0.0000000E+00 + 86.50000 57.50000 0.0000000E+00 + 87.50000 57.50000 0.0000000E+00 + 88.50000 57.50000 0.0000000E+00 + 89.50000 57.50000 0.0000000E+00 + -89.50000 58.50000 0.0000000E+00 + -88.50000 58.50000 0.0000000E+00 + -87.50000 58.50000 0.0000000E+00 + -86.50000 58.50000 0.0000000E+00 + -85.50000 58.50000 0.0000000E+00 + -84.50000 58.50000 0.0000000E+00 + -83.50000 58.50000 0.0000000E+00 + -82.50000 58.50000 0.0000000E+00 + -81.50000 58.50000 0.0000000E+00 + -80.50000 58.50000 0.0000000E+00 + -79.50000 58.50000 0.0000000E+00 + -78.50000 58.50000 0.0000000E+00 + -77.50000 58.50000 0.0000000E+00 + -76.50000 58.50000 0.0000000E+00 + -75.50000 58.50000 0.0000000E+00 + -74.50000 58.50000 0.0000000E+00 + -73.50000 58.50000 0.0000000E+00 + -72.50000 58.50000 0.0000000E+00 + -71.50000 58.50000 0.0000000E+00 + -70.50000 58.50000 0.0000000E+00 + -69.50000 58.50000 0.0000000E+00 + -68.50000 58.50000 0.0000000E+00 + -67.50000 58.50000 0.0000000E+00 + -66.50000 58.50000 0.0000000E+00 + -65.50000 58.50000 0.0000000E+00 + -64.50000 58.50000 0.0000000E+00 + -63.50000 58.50000 0.0000000E+00 + -62.50000 58.50000 0.0000000E+00 + -61.50000 58.50000 0.0000000E+00 + -60.50000 58.50000 0.0000000E+00 + -59.50000 58.50000 0.0000000E+00 + -58.50000 58.50000 0.0000000E+00 + -57.50000 58.50000 0.0000000E+00 + -56.50000 58.50000 0.0000000E+00 + -55.50000 58.50000 0.0000000E+00 + -54.50000 58.50000 0.0000000E+00 + -53.50000 58.50000 0.0000000E+00 + -52.50000 58.50000 0.0000000E+00 + -51.50000 58.50000 0.0000000E+00 + -50.50000 58.50000 0.0000000E+00 + -49.50000 58.50000 0.0000000E+00 + -48.50000 58.50000 0.0000000E+00 + -47.50000 58.50000 0.0000000E+00 + -46.50000 58.50000 0.0000000E+00 + -45.50000 58.50000 0.0000000E+00 + -44.50000 58.50000 0.0000000E+00 + -43.50000 58.50000 0.0000000E+00 + -42.50000 58.50000 0.0000000E+00 + -41.50000 58.50000 0.0000000E+00 + -40.50000 58.50000 0.0000000E+00 + -39.50000 58.50000 0.0000000E+00 + -38.50000 58.50000 0.0000000E+00 + -37.50000 58.50000 0.0000000E+00 + -36.50000 58.50000 0.0000000E+00 + -35.50000 58.50000 0.0000000E+00 + -34.50000 58.50000 0.0000000E+00 + -33.50000 58.50000 0.0000000E+00 + -32.50000 58.50000 0.0000000E+00 + -31.50000 58.50000 0.0000000E+00 + -30.50000 58.50000 0.0000000E+00 + -29.50000 58.50000 0.0000000E+00 + -28.50000 58.50000 0.0000000E+00 + -27.50000 58.50000 0.0000000E+00 + -26.50000 58.50000 0.0000000E+00 + -25.50000 58.50000 0.0000000E+00 + -24.50000 58.50000 0.0000000E+00 + -23.50000 58.50000 0.0000000E+00 + -22.50000 58.50000 0.0000000E+00 + -21.50000 58.50000 0.0000000E+00 + -20.50000 58.50000 0.0000000E+00 + -19.50000 58.50000 0.0000000E+00 + -18.50000 58.50000 0.0000000E+00 + -17.50000 58.50000 0.0000000E+00 + -16.50000 58.50000 0.0000000E+00 + -15.50000 58.50000 0.0000000E+00 + -14.50000 58.50000 0.0000000E+00 + -13.50000 58.50000 0.0000000E+00 + -12.50000 58.50000 0.0000000E+00 + -11.50000 58.50000 0.0000000E+00 + -10.50000 58.50000 0.0000000E+00 + -9.500000 58.50000 0.0000000E+00 + -8.500000 58.50000 0.0000000E+00 + -7.500000 58.50000 0.0000000E+00 + -6.500000 58.50000 0.0000000E+00 + -5.500000 58.50000 0.0000000E+00 + -4.500000 58.50000 0.0000000E+00 + -3.500000 58.50000 0.0000000E+00 + -2.500000 58.50000 0.0000000E+00 + -1.500000 58.50000 0.0000000E+00 + -0.5000000 58.50000 0.0000000E+00 + 0.5000000 58.50000 0.0000000E+00 + 1.500000 58.50000 0.0000000E+00 + 2.500000 58.50000 0.0000000E+00 + 3.500000 58.50000 0.0000000E+00 + 4.500000 58.50000 0.0000000E+00 + 5.500000 58.50000 0.0000000E+00 + 6.500000 58.50000 0.0000000E+00 + 7.500000 58.50000 0.0000000E+00 + 8.500000 58.50000 0.0000000E+00 + 9.500000 58.50000 0.0000000E+00 + 10.50000 58.50000 0.0000000E+00 + 11.50000 58.50000 0.0000000E+00 + 12.50000 58.50000 0.0000000E+00 + 13.50000 58.50000 0.0000000E+00 + 14.50000 58.50000 0.0000000E+00 + 15.50000 58.50000 0.0000000E+00 + 16.50000 58.50000 0.0000000E+00 + 17.50000 58.50000 0.0000000E+00 + 18.50000 58.50000 0.0000000E+00 + 19.50000 58.50000 0.0000000E+00 + 20.50000 58.50000 0.0000000E+00 + 21.50000 58.50000 9.4696872E-02 + 22.50000 58.50000 8.1920013E-02 + 23.50000 58.50000 0.1647704 + 24.50000 58.50000 0.0000000E+00 + 25.50000 58.50000 0.0000000E+00 + 26.50000 58.50000 5.3020909E-02 + 27.50000 58.50000 0.1476225 + 28.50000 58.50000 1.9440001E-02 + 29.50000 58.50000 9.0816371E-02 + 30.50000 58.50000 0.1222364 + 31.50000 58.50000 4.2017497E-02 + 32.50000 58.50000 2.5474269E-02 + 33.50000 58.50000 7.8125000E-03 + 34.50000 58.50000 1.4607582E-02 + 35.50000 58.50000 2.1575645E-03 + 36.50000 58.50000 1.5625000E-03 + 37.50000 58.50000 2.0576136E-04 + 38.50000 58.50000 2.4447279E-02 + 39.50000 58.50000 3.5412278E-02 + 40.50000 58.50000 3.5412278E-02 + 41.50000 58.50000 3.4978315E-02 + 42.50000 58.50000 0.0000000E+00 + 43.50000 58.50000 0.0000000E+00 + 44.50000 58.50000 0.0000000E+00 + 45.50000 58.50000 0.0000000E+00 + 46.50000 58.50000 0.0000000E+00 + 47.50000 58.50000 0.0000000E+00 + 48.50000 58.50000 0.0000000E+00 + 49.50000 58.50000 0.0000000E+00 + 50.50000 58.50000 0.0000000E+00 + 51.50000 58.50000 0.0000000E+00 + 52.50000 58.50000 0.0000000E+00 + 53.50000 58.50000 0.0000000E+00 + 54.50000 58.50000 0.0000000E+00 + 55.50000 58.50000 0.0000000E+00 + 56.50000 58.50000 0.0000000E+00 + 57.50000 58.50000 0.0000000E+00 + 58.50000 58.50000 0.0000000E+00 + 59.50000 58.50000 0.0000000E+00 + 60.50000 58.50000 0.0000000E+00 + 61.50000 58.50000 0.0000000E+00 + 62.50000 58.50000 0.0000000E+00 + 63.50000 58.50000 0.0000000E+00 + 64.50000 58.50000 0.0000000E+00 + 65.50000 58.50000 0.0000000E+00 + 66.50000 58.50000 0.0000000E+00 + 67.50000 58.50000 0.0000000E+00 + 68.50000 58.50000 0.0000000E+00 + 69.50000 58.50000 0.0000000E+00 + 70.50000 58.50000 0.0000000E+00 + 71.50000 58.50000 0.0000000E+00 + 72.50000 58.50000 0.0000000E+00 + 73.50000 58.50000 0.0000000E+00 + 74.50000 58.50000 0.0000000E+00 + 75.50000 58.50000 0.0000000E+00 + 76.50000 58.50000 0.0000000E+00 + 77.50000 58.50000 0.0000000E+00 + 78.50000 58.50000 0.0000000E+00 + 79.50000 58.50000 0.0000000E+00 + 80.50000 58.50000 0.0000000E+00 + 81.50000 58.50000 0.0000000E+00 + 82.50000 58.50000 0.0000000E+00 + 83.50000 58.50000 0.0000000E+00 + 84.50000 58.50000 0.0000000E+00 + 85.50000 58.50000 0.0000000E+00 + 86.50000 58.50000 0.0000000E+00 + 87.50000 58.50000 0.0000000E+00 + 88.50000 58.50000 0.0000000E+00 + 89.50000 58.50000 0.0000000E+00 + -89.50000 59.50000 0.0000000E+00 + -88.50000 59.50000 0.0000000E+00 + -87.50000 59.50000 0.0000000E+00 + -86.50000 59.50000 0.0000000E+00 + -85.50000 59.50000 0.0000000E+00 + -84.50000 59.50000 0.0000000E+00 + -83.50000 59.50000 0.0000000E+00 + -82.50000 59.50000 0.0000000E+00 + -81.50000 59.50000 0.0000000E+00 + -80.50000 59.50000 0.0000000E+00 + -79.50000 59.50000 0.0000000E+00 + -78.50000 59.50000 0.0000000E+00 + -77.50000 59.50000 0.0000000E+00 + -76.50000 59.50000 0.0000000E+00 + -75.50000 59.50000 0.0000000E+00 + -74.50000 59.50000 0.0000000E+00 + -73.50000 59.50000 0.0000000E+00 + -72.50000 59.50000 0.0000000E+00 + -71.50000 59.50000 0.0000000E+00 + -70.50000 59.50000 0.0000000E+00 + -69.50000 59.50000 0.0000000E+00 + -68.50000 59.50000 0.0000000E+00 + -67.50000 59.50000 0.0000000E+00 + -66.50000 59.50000 0.0000000E+00 + -65.50000 59.50000 0.0000000E+00 + -64.50000 59.50000 0.0000000E+00 + -63.50000 59.50000 0.0000000E+00 + -62.50000 59.50000 0.0000000E+00 + -61.50000 59.50000 0.0000000E+00 + -60.50000 59.50000 0.0000000E+00 + -59.50000 59.50000 0.0000000E+00 + -58.50000 59.50000 0.0000000E+00 + -57.50000 59.50000 0.0000000E+00 + -56.50000 59.50000 0.0000000E+00 + -55.50000 59.50000 0.0000000E+00 + -54.50000 59.50000 0.0000000E+00 + -53.50000 59.50000 0.0000000E+00 + -52.50000 59.50000 0.0000000E+00 + -51.50000 59.50000 0.0000000E+00 + -50.50000 59.50000 0.0000000E+00 + -49.50000 59.50000 0.0000000E+00 + -48.50000 59.50000 0.0000000E+00 + -47.50000 59.50000 0.0000000E+00 + -46.50000 59.50000 0.0000000E+00 + -45.50000 59.50000 0.0000000E+00 + -44.50000 59.50000 0.0000000E+00 + -43.50000 59.50000 0.0000000E+00 + -42.50000 59.50000 0.0000000E+00 + -41.50000 59.50000 0.0000000E+00 + -40.50000 59.50000 0.0000000E+00 + -39.50000 59.50000 0.0000000E+00 + -38.50000 59.50000 0.0000000E+00 + -37.50000 59.50000 0.0000000E+00 + -36.50000 59.50000 0.0000000E+00 + -35.50000 59.50000 0.0000000E+00 + -34.50000 59.50000 0.0000000E+00 + -33.50000 59.50000 0.0000000E+00 + -32.50000 59.50000 0.0000000E+00 + -31.50000 59.50000 0.0000000E+00 + -30.50000 59.50000 0.0000000E+00 + -29.50000 59.50000 0.0000000E+00 + -28.50000 59.50000 0.0000000E+00 + -27.50000 59.50000 0.0000000E+00 + -26.50000 59.50000 0.0000000E+00 + -25.50000 59.50000 0.0000000E+00 + -24.50000 59.50000 0.0000000E+00 + -23.50000 59.50000 0.0000000E+00 + -22.50000 59.50000 0.0000000E+00 + -21.50000 59.50000 0.0000000E+00 + -20.50000 59.50000 0.0000000E+00 + -19.50000 59.50000 0.0000000E+00 + -18.50000 59.50000 0.0000000E+00 + -17.50000 59.50000 0.0000000E+00 + -16.50000 59.50000 0.0000000E+00 + -15.50000 59.50000 0.0000000E+00 + -14.50000 59.50000 0.0000000E+00 + -13.50000 59.50000 0.0000000E+00 + -12.50000 59.50000 0.0000000E+00 + -11.50000 59.50000 0.0000000E+00 + -10.50000 59.50000 0.0000000E+00 + -9.500000 59.50000 0.0000000E+00 + -8.500000 59.50000 0.0000000E+00 + -7.500000 59.50000 0.0000000E+00 + -6.500000 59.50000 0.0000000E+00 + -5.500000 59.50000 0.0000000E+00 + -4.500000 59.50000 0.0000000E+00 + -3.500000 59.50000 0.0000000E+00 + -2.500000 59.50000 0.0000000E+00 + -1.500000 59.50000 0.0000000E+00 + -0.5000000 59.50000 0.0000000E+00 + 0.5000000 59.50000 0.0000000E+00 + 1.500000 59.50000 0.0000000E+00 + 2.500000 59.50000 0.0000000E+00 + 3.500000 59.50000 0.0000000E+00 + 4.500000 59.50000 0.0000000E+00 + 5.500000 59.50000 0.0000000E+00 + 6.500000 59.50000 0.0000000E+00 + 7.500000 59.50000 0.0000000E+00 + 8.500000 59.50000 0.0000000E+00 + 9.500000 59.50000 0.0000000E+00 + 10.50000 59.50000 0.0000000E+00 + 11.50000 59.50000 0.0000000E+00 + 12.50000 59.50000 0.0000000E+00 + 13.50000 59.50000 0.0000000E+00 + 14.50000 59.50000 0.0000000E+00 + 15.50000 59.50000 0.0000000E+00 + 16.50000 59.50000 0.0000000E+00 + 17.50000 59.50000 0.0000000E+00 + 18.50000 59.50000 0.0000000E+00 + 19.50000 59.50000 0.0000000E+00 + 20.50000 59.50000 0.0000000E+00 + 21.50000 59.50000 0.0000000E+00 + 22.50000 59.50000 0.0000000E+00 + 23.50000 59.50000 0.0000000E+00 + 24.50000 59.50000 0.0000000E+00 + 25.50000 59.50000 0.0000000E+00 + 26.50000 59.50000 4.2017497E-02 + 27.50000 59.50000 0.1252998 + 28.50000 59.50000 2.7943540E-02 + 29.50000 59.50000 4.5003355E-02 + 30.50000 59.50000 6.9532469E-02 + 31.50000 59.50000 2.7943540E-02 + 32.50000 59.50000 9.1565400E-03 + 33.50000 59.50000 1.4063548E-03 + 34.50000 59.50000 3.5663836E-02 + 35.50000 59.50000 1.8313080E-03 + 36.50000 59.50000 2.4797402E-03 + 37.50000 59.50000 0.0000000E+00 + 38.50000 59.50000 3.5822138E-02 + 39.50000 59.50000 3.5822138E-02 + 40.50000 59.50000 4.2439256E-02 + 41.50000 59.50000 0.0000000E+00 + 42.50000 59.50000 0.0000000E+00 + 43.50000 59.50000 0.0000000E+00 + 44.50000 59.50000 0.0000000E+00 + 45.50000 59.50000 0.0000000E+00 + 46.50000 59.50000 0.0000000E+00 + 47.50000 59.50000 0.0000000E+00 + 48.50000 59.50000 0.0000000E+00 + 49.50000 59.50000 0.0000000E+00 + 50.50000 59.50000 0.0000000E+00 + 51.50000 59.50000 0.0000000E+00 + 52.50000 59.50000 0.0000000E+00 + 53.50000 59.50000 0.0000000E+00 + 54.50000 59.50000 0.0000000E+00 + 55.50000 59.50000 0.0000000E+00 + 56.50000 59.50000 0.0000000E+00 + 57.50000 59.50000 0.0000000E+00 + 58.50000 59.50000 0.0000000E+00 + 59.50000 59.50000 0.0000000E+00 + 60.50000 59.50000 0.0000000E+00 + 61.50000 59.50000 0.0000000E+00 + 62.50000 59.50000 0.0000000E+00 + 63.50000 59.50000 0.0000000E+00 + 64.50000 59.50000 0.0000000E+00 + 65.50000 59.50000 0.0000000E+00 + 66.50000 59.50000 0.0000000E+00 + 67.50000 59.50000 0.0000000E+00 + 68.50000 59.50000 0.0000000E+00 + 69.50000 59.50000 0.0000000E+00 + 70.50000 59.50000 0.0000000E+00 + 71.50000 59.50000 0.0000000E+00 + 72.50000 59.50000 0.0000000E+00 + 73.50000 59.50000 0.0000000E+00 + 74.50000 59.50000 0.0000000E+00 + 75.50000 59.50000 0.0000000E+00 + 76.50000 59.50000 0.0000000E+00 + 77.50000 59.50000 0.0000000E+00 + 78.50000 59.50000 0.0000000E+00 + 79.50000 59.50000 0.0000000E+00 + 80.50000 59.50000 0.0000000E+00 + 81.50000 59.50000 0.0000000E+00 + 82.50000 59.50000 0.0000000E+00 + 83.50000 59.50000 0.0000000E+00 + 84.50000 59.50000 0.0000000E+00 + 85.50000 59.50000 0.0000000E+00 + 86.50000 59.50000 0.0000000E+00 + 87.50000 59.50000 0.0000000E+00 + 88.50000 59.50000 0.0000000E+00 + 89.50000 59.50000 0.0000000E+00 + -89.50000 60.50000 0.0000000E+00 + -88.50000 60.50000 0.0000000E+00 + -87.50000 60.50000 0.0000000E+00 + -86.50000 60.50000 0.0000000E+00 + -85.50000 60.50000 0.0000000E+00 + -84.50000 60.50000 0.0000000E+00 + -83.50000 60.50000 0.0000000E+00 + -82.50000 60.50000 0.0000000E+00 + -81.50000 60.50000 0.0000000E+00 + -80.50000 60.50000 0.0000000E+00 + -79.50000 60.50000 0.0000000E+00 + -78.50000 60.50000 0.0000000E+00 + -77.50000 60.50000 0.0000000E+00 + -76.50000 60.50000 0.0000000E+00 + -75.50000 60.50000 0.0000000E+00 + -74.50000 60.50000 0.0000000E+00 + -73.50000 60.50000 0.0000000E+00 + -72.50000 60.50000 0.0000000E+00 + -71.50000 60.50000 0.0000000E+00 + -70.50000 60.50000 0.0000000E+00 + -69.50000 60.50000 0.0000000E+00 + -68.50000 60.50000 0.0000000E+00 + -67.50000 60.50000 0.0000000E+00 + -66.50000 60.50000 0.0000000E+00 + -65.50000 60.50000 0.0000000E+00 + -64.50000 60.50000 0.0000000E+00 + -63.50000 60.50000 0.0000000E+00 + -62.50000 60.50000 0.0000000E+00 + -61.50000 60.50000 0.0000000E+00 + -60.50000 60.50000 0.0000000E+00 + -59.50000 60.50000 0.0000000E+00 + -58.50000 60.50000 0.0000000E+00 + -57.50000 60.50000 0.0000000E+00 + -56.50000 60.50000 0.0000000E+00 + -55.50000 60.50000 0.0000000E+00 + -54.50000 60.50000 0.0000000E+00 + -53.50000 60.50000 0.0000000E+00 + -52.50000 60.50000 0.0000000E+00 + -51.50000 60.50000 0.0000000E+00 + -50.50000 60.50000 0.0000000E+00 + -49.50000 60.50000 0.0000000E+00 + -48.50000 60.50000 0.0000000E+00 + -47.50000 60.50000 0.0000000E+00 + -46.50000 60.50000 0.0000000E+00 + -45.50000 60.50000 0.0000000E+00 + -44.50000 60.50000 0.0000000E+00 + -43.50000 60.50000 0.0000000E+00 + -42.50000 60.50000 0.0000000E+00 + -41.50000 60.50000 0.0000000E+00 + -40.50000 60.50000 0.0000000E+00 + -39.50000 60.50000 0.0000000E+00 + -38.50000 60.50000 0.0000000E+00 + -37.50000 60.50000 0.0000000E+00 + -36.50000 60.50000 0.0000000E+00 + -35.50000 60.50000 0.0000000E+00 + -34.50000 60.50000 0.0000000E+00 + -33.50000 60.50000 0.0000000E+00 + -32.50000 60.50000 0.0000000E+00 + -31.50000 60.50000 0.0000000E+00 + -30.50000 60.50000 0.0000000E+00 + -29.50000 60.50000 0.0000000E+00 + -28.50000 60.50000 0.0000000E+00 + -27.50000 60.50000 0.0000000E+00 + -26.50000 60.50000 0.0000000E+00 + -25.50000 60.50000 0.0000000E+00 + -24.50000 60.50000 0.0000000E+00 + -23.50000 60.50000 0.0000000E+00 + -22.50000 60.50000 0.0000000E+00 + -21.50000 60.50000 0.0000000E+00 + -20.50000 60.50000 0.0000000E+00 + -19.50000 60.50000 0.0000000E+00 + -18.50000 60.50000 0.0000000E+00 + -17.50000 60.50000 0.0000000E+00 + -16.50000 60.50000 0.0000000E+00 + -15.50000 60.50000 0.0000000E+00 + -14.50000 60.50000 0.0000000E+00 + -13.50000 60.50000 0.0000000E+00 + -12.50000 60.50000 0.0000000E+00 + -11.50000 60.50000 0.0000000E+00 + -10.50000 60.50000 0.0000000E+00 + -9.500000 60.50000 0.0000000E+00 + -8.500000 60.50000 0.0000000E+00 + -7.500000 60.50000 0.0000000E+00 + -6.500000 60.50000 0.0000000E+00 + -5.500000 60.50000 0.0000000E+00 + -4.500000 60.50000 0.0000000E+00 + -3.500000 60.50000 0.0000000E+00 + -2.500000 60.50000 0.0000000E+00 + -1.500000 60.50000 0.0000000E+00 + -0.5000000 60.50000 0.0000000E+00 + 0.5000000 60.50000 0.0000000E+00 + 1.500000 60.50000 0.0000000E+00 + 2.500000 60.50000 0.0000000E+00 + 3.500000 60.50000 0.0000000E+00 + 4.500000 60.50000 0.0000000E+00 + 5.500000 60.50000 0.0000000E+00 + 6.500000 60.50000 0.0000000E+00 + 7.500000 60.50000 0.0000000E+00 + 8.500000 60.50000 0.0000000E+00 + 9.500000 60.50000 0.0000000E+00 + 10.50000 60.50000 0.0000000E+00 + 11.50000 60.50000 0.0000000E+00 + 12.50000 60.50000 0.0000000E+00 + 13.50000 60.50000 0.0000000E+00 + 14.50000 60.50000 0.0000000E+00 + 15.50000 60.50000 0.0000000E+00 + 16.50000 60.50000 0.0000000E+00 + 17.50000 60.50000 0.0000000E+00 + 18.50000 60.50000 0.0000000E+00 + 19.50000 60.50000 0.0000000E+00 + 20.50000 60.50000 0.0000000E+00 + 21.50000 60.50000 0.0000000E+00 + 22.50000 60.50000 0.0000000E+00 + 23.50000 60.50000 0.0000000E+00 + 24.50000 60.50000 0.0000000E+00 + 25.50000 60.50000 0.0000000E+00 + 26.50000 60.50000 4.2017497E-02 + 27.50000 60.50000 8.5276946E-02 + 28.50000 60.50000 1.6500382E-02 + 29.50000 60.50000 6.6311336E-03 + 30.50000 60.50000 2.7943540E-02 + 31.50000 60.50000 4.5003355E-02 + 32.50000 60.50000 2.1622185E-02 + 33.50000 60.50000 4.5003355E-02 + 34.50000 60.50000 4.5003355E-02 + 35.50000 60.50000 2.4797402E-03 + 36.50000 60.50000 9.0006711E-03 + 37.50000 60.50000 0.0000000E+00 + 38.50000 60.50000 0.1791107 + 39.50000 60.50000 3.5822138E-02 + 40.50000 60.50000 4.2439256E-02 + 41.50000 60.50000 0.0000000E+00 + 42.50000 60.50000 4.1924883E-02 + 43.50000 60.50000 0.0000000E+00 + 44.50000 60.50000 0.0000000E+00 + 45.50000 60.50000 0.0000000E+00 + 46.50000 60.50000 0.0000000E+00 + 47.50000 60.50000 0.0000000E+00 + 48.50000 60.50000 0.0000000E+00 + 49.50000 60.50000 0.0000000E+00 + 50.50000 60.50000 0.0000000E+00 + 51.50000 60.50000 0.0000000E+00 + 52.50000 60.50000 0.0000000E+00 + 53.50000 60.50000 0.0000000E+00 + 54.50000 60.50000 0.0000000E+00 + 55.50000 60.50000 0.0000000E+00 + 56.50000 60.50000 0.0000000E+00 + 57.50000 60.50000 0.0000000E+00 + 58.50000 60.50000 0.0000000E+00 + 59.50000 60.50000 0.0000000E+00 + 60.50000 60.50000 0.0000000E+00 + 61.50000 60.50000 0.0000000E+00 + 62.50000 60.50000 0.0000000E+00 + 63.50000 60.50000 0.0000000E+00 + 64.50000 60.50000 0.0000000E+00 + 65.50000 60.50000 0.0000000E+00 + 66.50000 60.50000 0.0000000E+00 + 67.50000 60.50000 0.0000000E+00 + 68.50000 60.50000 0.0000000E+00 + 69.50000 60.50000 0.0000000E+00 + 70.50000 60.50000 0.0000000E+00 + 71.50000 60.50000 0.0000000E+00 + 72.50000 60.50000 0.0000000E+00 + 73.50000 60.50000 0.0000000E+00 + 74.50000 60.50000 0.0000000E+00 + 75.50000 60.50000 0.0000000E+00 + 76.50000 60.50000 0.0000000E+00 + 77.50000 60.50000 0.0000000E+00 + 78.50000 60.50000 0.0000000E+00 + 79.50000 60.50000 0.0000000E+00 + 80.50000 60.50000 0.0000000E+00 + 81.50000 60.50000 0.0000000E+00 + 82.50000 60.50000 0.0000000E+00 + 83.50000 60.50000 0.0000000E+00 + 84.50000 60.50000 0.0000000E+00 + 85.50000 60.50000 0.0000000E+00 + 86.50000 60.50000 0.0000000E+00 + 87.50000 60.50000 0.0000000E+00 + 88.50000 60.50000 0.0000000E+00 + 89.50000 60.50000 0.0000000E+00 + -89.50000 61.50000 0.0000000E+00 + -88.50000 61.50000 0.0000000E+00 + -87.50000 61.50000 0.0000000E+00 + -86.50000 61.50000 0.0000000E+00 + -85.50000 61.50000 0.0000000E+00 + -84.50000 61.50000 0.0000000E+00 + -83.50000 61.50000 0.0000000E+00 + -82.50000 61.50000 0.0000000E+00 + -81.50000 61.50000 0.0000000E+00 + -80.50000 61.50000 0.0000000E+00 + -79.50000 61.50000 0.0000000E+00 + -78.50000 61.50000 0.0000000E+00 + -77.50000 61.50000 0.0000000E+00 + -76.50000 61.50000 0.0000000E+00 + -75.50000 61.50000 0.0000000E+00 + -74.50000 61.50000 0.0000000E+00 + -73.50000 61.50000 0.0000000E+00 + -72.50000 61.50000 0.0000000E+00 + -71.50000 61.50000 0.0000000E+00 + -70.50000 61.50000 0.0000000E+00 + -69.50000 61.50000 0.0000000E+00 + -68.50000 61.50000 0.0000000E+00 + -67.50000 61.50000 0.0000000E+00 + -66.50000 61.50000 0.0000000E+00 + -65.50000 61.50000 0.0000000E+00 + -64.50000 61.50000 0.0000000E+00 + -63.50000 61.50000 0.0000000E+00 + -62.50000 61.50000 0.0000000E+00 + -61.50000 61.50000 0.0000000E+00 + -60.50000 61.50000 0.0000000E+00 + -59.50000 61.50000 0.0000000E+00 + -58.50000 61.50000 0.0000000E+00 + -57.50000 61.50000 0.0000000E+00 + -56.50000 61.50000 0.0000000E+00 + -55.50000 61.50000 0.0000000E+00 + -54.50000 61.50000 0.0000000E+00 + -53.50000 61.50000 0.0000000E+00 + -52.50000 61.50000 0.0000000E+00 + -51.50000 61.50000 0.0000000E+00 + -50.50000 61.50000 0.0000000E+00 + -49.50000 61.50000 0.0000000E+00 + -48.50000 61.50000 0.0000000E+00 + -47.50000 61.50000 0.0000000E+00 + -46.50000 61.50000 0.0000000E+00 + -45.50000 61.50000 0.0000000E+00 + -44.50000 61.50000 0.0000000E+00 + -43.50000 61.50000 0.0000000E+00 + -42.50000 61.50000 0.0000000E+00 + -41.50000 61.50000 0.0000000E+00 + -40.50000 61.50000 0.0000000E+00 + -39.50000 61.50000 0.0000000E+00 + -38.50000 61.50000 0.0000000E+00 + -37.50000 61.50000 0.0000000E+00 + -36.50000 61.50000 0.0000000E+00 + -35.50000 61.50000 0.0000000E+00 + -34.50000 61.50000 0.0000000E+00 + -33.50000 61.50000 0.0000000E+00 + -32.50000 61.50000 0.0000000E+00 + -31.50000 61.50000 0.0000000E+00 + -30.50000 61.50000 0.0000000E+00 + -29.50000 61.50000 0.0000000E+00 + -28.50000 61.50000 0.0000000E+00 + -27.50000 61.50000 0.0000000E+00 + -26.50000 61.50000 0.0000000E+00 + -25.50000 61.50000 0.0000000E+00 + -24.50000 61.50000 0.0000000E+00 + -23.50000 61.50000 0.0000000E+00 + -22.50000 61.50000 0.0000000E+00 + -21.50000 61.50000 0.0000000E+00 + -20.50000 61.50000 0.0000000E+00 + -19.50000 61.50000 0.0000000E+00 + -18.50000 61.50000 0.0000000E+00 + -17.50000 61.50000 0.0000000E+00 + -16.50000 61.50000 0.0000000E+00 + -15.50000 61.50000 0.0000000E+00 + -14.50000 61.50000 0.0000000E+00 + -13.50000 61.50000 0.0000000E+00 + -12.50000 61.50000 0.0000000E+00 + -11.50000 61.50000 0.0000000E+00 + -10.50000 61.50000 0.0000000E+00 + -9.500000 61.50000 0.0000000E+00 + -8.500000 61.50000 0.0000000E+00 + -7.500000 61.50000 0.0000000E+00 + -6.500000 61.50000 0.0000000E+00 + -5.500000 61.50000 0.0000000E+00 + -4.500000 61.50000 0.0000000E+00 + -3.500000 61.50000 0.0000000E+00 + -2.500000 61.50000 0.0000000E+00 + -1.500000 61.50000 0.0000000E+00 + -0.5000000 61.50000 0.0000000E+00 + 0.5000000 61.50000 0.0000000E+00 + 1.500000 61.50000 0.0000000E+00 + 2.500000 61.50000 0.0000000E+00 + 3.500000 61.50000 0.0000000E+00 + 4.500000 61.50000 0.0000000E+00 + 5.500000 61.50000 0.0000000E+00 + 6.500000 61.50000 0.0000000E+00 + 7.500000 61.50000 0.0000000E+00 + 8.500000 61.50000 0.0000000E+00 + 9.500000 61.50000 0.0000000E+00 + 10.50000 61.50000 0.0000000E+00 + 11.50000 61.50000 0.0000000E+00 + 12.50000 61.50000 0.0000000E+00 + 13.50000 61.50000 0.0000000E+00 + 14.50000 61.50000 0.0000000E+00 + 15.50000 61.50000 0.0000000E+00 + 16.50000 61.50000 0.0000000E+00 + 17.50000 61.50000 0.0000000E+00 + 18.50000 61.50000 0.0000000E+00 + 19.50000 61.50000 0.0000000E+00 + 20.50000 61.50000 0.0000000E+00 + 21.50000 61.50000 0.0000000E+00 + 22.50000 61.50000 0.0000000E+00 + 23.50000 61.50000 0.0000000E+00 + 24.50000 61.50000 0.0000000E+00 + 25.50000 61.50000 0.2038432 + 26.50000 61.50000 4.2017497E-02 + 27.50000 61.50000 1.2398700E-02 + 28.50000 61.50000 9.1565400E-03 + 29.50000 61.50000 8.5276946E-02 + 30.50000 61.50000 0.1252998 + 31.50000 61.50000 0.1252998 + 32.50000 61.50000 4.5003355E-02 + 33.50000 61.50000 1.6500382E-02 + 34.50000 61.50000 8.4034996E-03 + 35.50000 61.50000 0.0000000E+00 + 36.50000 61.50000 3.3972949E-02 + 37.50000 61.50000 0.0000000E+00 + 38.50000 61.50000 0.1791107 + 39.50000 61.50000 3.5822138E-02 + 40.50000 61.50000 3.5822138E-02 + 41.50000 61.50000 0.0000000E+00 + 42.50000 61.50000 4.1953687E-02 + 43.50000 61.50000 4.2708240E-02 + 44.50000 61.50000 4.1953687E-02 + 45.50000 61.50000 0.0000000E+00 + 46.50000 61.50000 0.0000000E+00 + 47.50000 61.50000 0.0000000E+00 + 48.50000 61.50000 0.0000000E+00 + 49.50000 61.50000 0.0000000E+00 + 50.50000 61.50000 0.0000000E+00 + 51.50000 61.50000 0.0000000E+00 + 52.50000 61.50000 0.0000000E+00 + 53.50000 61.50000 0.0000000E+00 + 54.50000 61.50000 0.0000000E+00 + 55.50000 61.50000 0.0000000E+00 + 56.50000 61.50000 0.0000000E+00 + 57.50000 61.50000 0.0000000E+00 + 58.50000 61.50000 0.0000000E+00 + 59.50000 61.50000 0.0000000E+00 + 60.50000 61.50000 0.0000000E+00 + 61.50000 61.50000 0.0000000E+00 + 62.50000 61.50000 0.0000000E+00 + 63.50000 61.50000 0.0000000E+00 + 64.50000 61.50000 0.0000000E+00 + 65.50000 61.50000 0.0000000E+00 + 66.50000 61.50000 0.0000000E+00 + 67.50000 61.50000 0.0000000E+00 + 68.50000 61.50000 0.0000000E+00 + 69.50000 61.50000 0.0000000E+00 + 70.50000 61.50000 0.0000000E+00 + 71.50000 61.50000 0.0000000E+00 + 72.50000 61.50000 0.0000000E+00 + 73.50000 61.50000 0.0000000E+00 + 74.50000 61.50000 0.0000000E+00 + 75.50000 61.50000 0.0000000E+00 + 76.50000 61.50000 0.0000000E+00 + 77.50000 61.50000 0.0000000E+00 + 78.50000 61.50000 0.0000000E+00 + 79.50000 61.50000 0.0000000E+00 + 80.50000 61.50000 0.0000000E+00 + 81.50000 61.50000 0.0000000E+00 + 82.50000 61.50000 0.0000000E+00 + 83.50000 61.50000 0.0000000E+00 + 84.50000 61.50000 0.0000000E+00 + 85.50000 61.50000 0.0000000E+00 + 86.50000 61.50000 0.0000000E+00 + 87.50000 61.50000 0.0000000E+00 + 88.50000 61.50000 0.0000000E+00 + 89.50000 61.50000 0.0000000E+00 + -89.50000 62.50000 0.0000000E+00 + -88.50000 62.50000 0.0000000E+00 + -87.50000 62.50000 0.0000000E+00 + -86.50000 62.50000 0.0000000E+00 + -85.50000 62.50000 0.0000000E+00 + -84.50000 62.50000 0.0000000E+00 + -83.50000 62.50000 0.0000000E+00 + -82.50000 62.50000 0.0000000E+00 + -81.50000 62.50000 0.0000000E+00 + -80.50000 62.50000 0.0000000E+00 + -79.50000 62.50000 0.0000000E+00 + -78.50000 62.50000 0.0000000E+00 + -77.50000 62.50000 0.0000000E+00 + -76.50000 62.50000 0.0000000E+00 + -75.50000 62.50000 0.0000000E+00 + -74.50000 62.50000 0.0000000E+00 + -73.50000 62.50000 0.0000000E+00 + -72.50000 62.50000 0.0000000E+00 + -71.50000 62.50000 0.0000000E+00 + -70.50000 62.50000 0.0000000E+00 + -69.50000 62.50000 0.0000000E+00 + -68.50000 62.50000 0.0000000E+00 + -67.50000 62.50000 0.0000000E+00 + -66.50000 62.50000 0.0000000E+00 + -65.50000 62.50000 0.0000000E+00 + -64.50000 62.50000 0.0000000E+00 + -63.50000 62.50000 0.0000000E+00 + -62.50000 62.50000 0.0000000E+00 + -61.50000 62.50000 0.0000000E+00 + -60.50000 62.50000 0.0000000E+00 + -59.50000 62.50000 0.0000000E+00 + -58.50000 62.50000 0.0000000E+00 + -57.50000 62.50000 0.0000000E+00 + -56.50000 62.50000 0.0000000E+00 + -55.50000 62.50000 0.0000000E+00 + -54.50000 62.50000 0.0000000E+00 + -53.50000 62.50000 0.0000000E+00 + -52.50000 62.50000 0.0000000E+00 + -51.50000 62.50000 0.0000000E+00 + -50.50000 62.50000 0.0000000E+00 + -49.50000 62.50000 0.0000000E+00 + -48.50000 62.50000 0.0000000E+00 + -47.50000 62.50000 0.0000000E+00 + -46.50000 62.50000 0.0000000E+00 + -45.50000 62.50000 0.0000000E+00 + -44.50000 62.50000 0.0000000E+00 + -43.50000 62.50000 0.0000000E+00 + -42.50000 62.50000 0.0000000E+00 + -41.50000 62.50000 0.0000000E+00 + -40.50000 62.50000 0.0000000E+00 + -39.50000 62.50000 0.0000000E+00 + -38.50000 62.50000 0.0000000E+00 + -37.50000 62.50000 0.0000000E+00 + -36.50000 62.50000 0.0000000E+00 + -35.50000 62.50000 0.0000000E+00 + -34.50000 62.50000 0.0000000E+00 + -33.50000 62.50000 0.0000000E+00 + -32.50000 62.50000 0.0000000E+00 + -31.50000 62.50000 0.0000000E+00 + -30.50000 62.50000 0.0000000E+00 + -29.50000 62.50000 0.0000000E+00 + -28.50000 62.50000 0.0000000E+00 + -27.50000 62.50000 0.0000000E+00 + -26.50000 62.50000 0.0000000E+00 + -25.50000 62.50000 0.0000000E+00 + -24.50000 62.50000 0.0000000E+00 + -23.50000 62.50000 0.0000000E+00 + -22.50000 62.50000 0.0000000E+00 + -21.50000 62.50000 0.0000000E+00 + -20.50000 62.50000 0.0000000E+00 + -19.50000 62.50000 0.0000000E+00 + -18.50000 62.50000 0.0000000E+00 + -17.50000 62.50000 0.0000000E+00 + -16.50000 62.50000 0.0000000E+00 + -15.50000 62.50000 0.0000000E+00 + -14.50000 62.50000 0.0000000E+00 + -13.50000 62.50000 0.0000000E+00 + -12.50000 62.50000 0.0000000E+00 + -11.50000 62.50000 0.0000000E+00 + -10.50000 62.50000 0.0000000E+00 + -9.500000 62.50000 0.0000000E+00 + -8.500000 62.50000 0.0000000E+00 + -7.500000 62.50000 0.0000000E+00 + -6.500000 62.50000 0.0000000E+00 + -5.500000 62.50000 0.0000000E+00 + -4.500000 62.50000 0.0000000E+00 + -3.500000 62.50000 0.0000000E+00 + -2.500000 62.50000 0.0000000E+00 + -1.500000 62.50000 0.0000000E+00 + -0.5000000 62.50000 0.0000000E+00 + 0.5000000 62.50000 0.0000000E+00 + 1.500000 62.50000 0.0000000E+00 + 2.500000 62.50000 0.0000000E+00 + 3.500000 62.50000 0.0000000E+00 + 4.500000 62.50000 0.0000000E+00 + 5.500000 62.50000 0.0000000E+00 + 6.500000 62.50000 0.0000000E+00 + 7.500000 62.50000 0.0000000E+00 + 8.500000 62.50000 0.0000000E+00 + 9.500000 62.50000 0.0000000E+00 + 10.50000 62.50000 0.0000000E+00 + 11.50000 62.50000 0.0000000E+00 + 12.50000 62.50000 0.0000000E+00 + 13.50000 62.50000 0.0000000E+00 + 14.50000 62.50000 0.0000000E+00 + 15.50000 62.50000 0.0000000E+00 + 16.50000 62.50000 0.0000000E+00 + 17.50000 62.50000 0.0000000E+00 + 18.50000 62.50000 0.0000000E+00 + 19.50000 62.50000 0.0000000E+00 + 20.50000 62.50000 0.0000000E+00 + 21.50000 62.50000 0.0000000E+00 + 22.50000 62.50000 0.0000000E+00 + 23.50000 62.50000 0.0000000E+00 + 24.50000 62.50000 0.0000000E+00 + 25.50000 62.50000 0.2038432 + 26.50000 62.50000 4.2017497E-02 + 27.50000 62.50000 1.6500382E-02 + 28.50000 62.50000 8.5276946E-02 + 29.50000 62.50000 6.2585078E-02 + 30.50000 62.50000 8.5276946E-02 + 31.50000 62.50000 0.1037524 + 32.50000 62.50000 3.8397551E-02 + 33.50000 62.50000 8.0142025E-04 + 34.50000 62.50000 0.0000000E+00 + 35.50000 62.50000 0.0000000E+00 + 36.50000 62.50000 0.0000000E+00 + 37.50000 62.50000 3.9804123E-02 + 38.50000 62.50000 3.9804123E-02 + 39.50000 62.50000 3.8560346E-02 + 40.50000 62.50000 3.8560346E-02 + 41.50000 62.50000 3.8560346E-02 + 42.50000 62.50000 4.5430034E-02 + 43.50000 62.50000 4.5430034E-02 + 44.50000 62.50000 0.0000000E+00 + 45.50000 62.50000 0.0000000E+00 + 46.50000 62.50000 0.0000000E+00 + 47.50000 62.50000 0.0000000E+00 + 48.50000 62.50000 0.0000000E+00 + 49.50000 62.50000 0.0000000E+00 + 50.50000 62.50000 0.0000000E+00 + 51.50000 62.50000 0.0000000E+00 + 52.50000 62.50000 0.0000000E+00 + 53.50000 62.50000 0.0000000E+00 + 54.50000 62.50000 0.0000000E+00 + 55.50000 62.50000 0.0000000E+00 + 56.50000 62.50000 0.0000000E+00 + 57.50000 62.50000 0.0000000E+00 + 58.50000 62.50000 0.0000000E+00 + 59.50000 62.50000 0.0000000E+00 + 60.50000 62.50000 0.0000000E+00 + 61.50000 62.50000 0.0000000E+00 + 62.50000 62.50000 0.0000000E+00 + 63.50000 62.50000 0.0000000E+00 + 64.50000 62.50000 0.0000000E+00 + 65.50000 62.50000 0.0000000E+00 + 66.50000 62.50000 0.0000000E+00 + 67.50000 62.50000 0.0000000E+00 + 68.50000 62.50000 0.0000000E+00 + 69.50000 62.50000 0.0000000E+00 + 70.50000 62.50000 0.0000000E+00 + 71.50000 62.50000 0.0000000E+00 + 72.50000 62.50000 0.0000000E+00 + 73.50000 62.50000 0.0000000E+00 + 74.50000 62.50000 0.0000000E+00 + 75.50000 62.50000 0.0000000E+00 + 76.50000 62.50000 0.0000000E+00 + 77.50000 62.50000 0.0000000E+00 + 78.50000 62.50000 0.0000000E+00 + 79.50000 62.50000 0.0000000E+00 + 80.50000 62.50000 0.0000000E+00 + 81.50000 62.50000 0.0000000E+00 + 82.50000 62.50000 0.0000000E+00 + 83.50000 62.50000 0.0000000E+00 + 84.50000 62.50000 0.0000000E+00 + 85.50000 62.50000 0.0000000E+00 + 86.50000 62.50000 0.0000000E+00 + 87.50000 62.50000 0.0000000E+00 + 88.50000 62.50000 0.0000000E+00 + 89.50000 62.50000 0.0000000E+00 + -89.50000 63.50000 0.0000000E+00 + -88.50000 63.50000 0.0000000E+00 + -87.50000 63.50000 0.0000000E+00 + -86.50000 63.50000 0.0000000E+00 + -85.50000 63.50000 0.0000000E+00 + -84.50000 63.50000 0.0000000E+00 + -83.50000 63.50000 0.0000000E+00 + -82.50000 63.50000 0.0000000E+00 + -81.50000 63.50000 0.0000000E+00 + -80.50000 63.50000 0.0000000E+00 + -79.50000 63.50000 0.0000000E+00 + -78.50000 63.50000 0.0000000E+00 + -77.50000 63.50000 0.0000000E+00 + -76.50000 63.50000 0.0000000E+00 + -75.50000 63.50000 0.0000000E+00 + -74.50000 63.50000 0.0000000E+00 + -73.50000 63.50000 0.0000000E+00 + -72.50000 63.50000 0.0000000E+00 + -71.50000 63.50000 0.0000000E+00 + -70.50000 63.50000 0.0000000E+00 + -69.50000 63.50000 0.0000000E+00 + -68.50000 63.50000 0.0000000E+00 + -67.50000 63.50000 0.0000000E+00 + -66.50000 63.50000 0.0000000E+00 + -65.50000 63.50000 0.0000000E+00 + -64.50000 63.50000 0.0000000E+00 + -63.50000 63.50000 0.0000000E+00 + -62.50000 63.50000 0.0000000E+00 + -61.50000 63.50000 0.0000000E+00 + -60.50000 63.50000 0.0000000E+00 + -59.50000 63.50000 0.0000000E+00 + -58.50000 63.50000 0.0000000E+00 + -57.50000 63.50000 0.0000000E+00 + -56.50000 63.50000 0.0000000E+00 + -55.50000 63.50000 0.0000000E+00 + -54.50000 63.50000 0.0000000E+00 + -53.50000 63.50000 0.0000000E+00 + -52.50000 63.50000 0.0000000E+00 + -51.50000 63.50000 0.0000000E+00 + -50.50000 63.50000 0.0000000E+00 + -49.50000 63.50000 0.0000000E+00 + -48.50000 63.50000 0.0000000E+00 + -47.50000 63.50000 0.0000000E+00 + -46.50000 63.50000 0.0000000E+00 + -45.50000 63.50000 0.0000000E+00 + -44.50000 63.50000 0.0000000E+00 + -43.50000 63.50000 0.0000000E+00 + -42.50000 63.50000 0.0000000E+00 + -41.50000 63.50000 0.0000000E+00 + -40.50000 63.50000 0.0000000E+00 + -39.50000 63.50000 0.0000000E+00 + -38.50000 63.50000 0.0000000E+00 + -37.50000 63.50000 0.0000000E+00 + -36.50000 63.50000 0.0000000E+00 + -35.50000 63.50000 0.0000000E+00 + -34.50000 63.50000 0.0000000E+00 + -33.50000 63.50000 0.0000000E+00 + -32.50000 63.50000 0.0000000E+00 + -31.50000 63.50000 0.0000000E+00 + -30.50000 63.50000 0.0000000E+00 + -29.50000 63.50000 0.0000000E+00 + -28.50000 63.50000 0.0000000E+00 + -27.50000 63.50000 0.0000000E+00 + -26.50000 63.50000 0.0000000E+00 + -25.50000 63.50000 0.0000000E+00 + -24.50000 63.50000 0.0000000E+00 + -23.50000 63.50000 0.0000000E+00 + -22.50000 63.50000 0.0000000E+00 + -21.50000 63.50000 0.0000000E+00 + -20.50000 63.50000 0.0000000E+00 + -19.50000 63.50000 0.0000000E+00 + -18.50000 63.50000 0.0000000E+00 + -17.50000 63.50000 0.0000000E+00 + -16.50000 63.50000 0.0000000E+00 + -15.50000 63.50000 0.0000000E+00 + -14.50000 63.50000 0.0000000E+00 + -13.50000 63.50000 0.0000000E+00 + -12.50000 63.50000 0.0000000E+00 + -11.50000 63.50000 0.0000000E+00 + -10.50000 63.50000 0.0000000E+00 + -9.500000 63.50000 0.0000000E+00 + -8.500000 63.50000 0.0000000E+00 + -7.500000 63.50000 0.0000000E+00 + -6.500000 63.50000 0.0000000E+00 + -5.500000 63.50000 0.0000000E+00 + -4.500000 63.50000 0.0000000E+00 + -3.500000 63.50000 0.0000000E+00 + -2.500000 63.50000 0.0000000E+00 + -1.500000 63.50000 0.0000000E+00 + -0.5000000 63.50000 0.0000000E+00 + 0.5000000 63.50000 0.0000000E+00 + 1.500000 63.50000 0.0000000E+00 + 2.500000 63.50000 0.0000000E+00 + 3.500000 63.50000 0.0000000E+00 + 4.500000 63.50000 0.0000000E+00 + 5.500000 63.50000 0.0000000E+00 + 6.500000 63.50000 0.0000000E+00 + 7.500000 63.50000 0.0000000E+00 + 8.500000 63.50000 0.0000000E+00 + 9.500000 63.50000 0.0000000E+00 + 10.50000 63.50000 0.0000000E+00 + 11.50000 63.50000 0.0000000E+00 + 12.50000 63.50000 0.0000000E+00 + 13.50000 63.50000 0.0000000E+00 + 14.50000 63.50000 0.0000000E+00 + 15.50000 63.50000 0.0000000E+00 + 16.50000 63.50000 0.0000000E+00 + 17.50000 63.50000 0.0000000E+00 + 18.50000 63.50000 0.0000000E+00 + 19.50000 63.50000 0.0000000E+00 + 20.50000 63.50000 0.0000000E+00 + 21.50000 63.50000 0.0000000E+00 + 22.50000 63.50000 0.0000000E+00 + 23.50000 63.50000 0.0000000E+00 + 24.50000 63.50000 0.0000000E+00 + 25.50000 63.50000 0.0000000E+00 + 26.50000 63.50000 4.2017497E-02 + 27.50000 63.50000 4.5003355E-02 + 28.50000 63.50000 0.1084393 + 29.50000 63.50000 2.2063442E-02 + 30.50000 63.50000 7.9327822E-02 + 31.50000 63.50000 8.5934922E-02 + 32.50000 63.50000 3.5668619E-03 + 33.50000 63.50000 2.9804866E-04 + 34.50000 63.50000 0.0000000E+00 + 35.50000 63.50000 0.0000000E+00 + 36.50000 63.50000 0.0000000E+00 + 37.50000 63.50000 4.1526232E-02 + 38.50000 63.50000 4.1526232E-02 + 39.50000 63.50000 0.0000000E+00 + 40.50000 63.50000 4.0461507E-02 + 41.50000 63.50000 4.0461507E-02 + 42.50000 63.50000 4.0461507E-02 + 43.50000 63.50000 4.5430034E-02 + 44.50000 63.50000 0.0000000E+00 + 45.50000 63.50000 0.0000000E+00 + 46.50000 63.50000 0.0000000E+00 + 47.50000 63.50000 0.0000000E+00 + 48.50000 63.50000 0.0000000E+00 + 49.50000 63.50000 0.0000000E+00 + 50.50000 63.50000 0.0000000E+00 + 51.50000 63.50000 0.0000000E+00 + 52.50000 63.50000 0.0000000E+00 + 53.50000 63.50000 0.0000000E+00 + 54.50000 63.50000 0.0000000E+00 + 55.50000 63.50000 0.0000000E+00 + 56.50000 63.50000 0.0000000E+00 + 57.50000 63.50000 0.0000000E+00 + 58.50000 63.50000 0.0000000E+00 + 59.50000 63.50000 0.0000000E+00 + 60.50000 63.50000 0.0000000E+00 + 61.50000 63.50000 0.0000000E+00 + 62.50000 63.50000 0.0000000E+00 + 63.50000 63.50000 0.0000000E+00 + 64.50000 63.50000 0.0000000E+00 + 65.50000 63.50000 0.0000000E+00 + 66.50000 63.50000 0.0000000E+00 + 67.50000 63.50000 0.0000000E+00 + 68.50000 63.50000 0.0000000E+00 + 69.50000 63.50000 0.0000000E+00 + 70.50000 63.50000 0.0000000E+00 + 71.50000 63.50000 0.0000000E+00 + 72.50000 63.50000 0.0000000E+00 + 73.50000 63.50000 0.0000000E+00 + 74.50000 63.50000 0.0000000E+00 + 75.50000 63.50000 0.0000000E+00 + 76.50000 63.50000 0.0000000E+00 + 77.50000 63.50000 0.0000000E+00 + 78.50000 63.50000 0.0000000E+00 + 79.50000 63.50000 0.0000000E+00 + 80.50000 63.50000 0.0000000E+00 + 81.50000 63.50000 0.0000000E+00 + 82.50000 63.50000 0.0000000E+00 + 83.50000 63.50000 0.0000000E+00 + 84.50000 63.50000 0.0000000E+00 + 85.50000 63.50000 0.0000000E+00 + 86.50000 63.50000 0.0000000E+00 + 87.50000 63.50000 0.0000000E+00 + 88.50000 63.50000 0.0000000E+00 + 89.50000 63.50000 0.0000000E+00 + -89.50000 64.50000 0.0000000E+00 + -88.50000 64.50000 0.0000000E+00 + -87.50000 64.50000 0.0000000E+00 + -86.50000 64.50000 0.0000000E+00 + -85.50000 64.50000 0.0000000E+00 + -84.50000 64.50000 0.0000000E+00 + -83.50000 64.50000 0.0000000E+00 + -82.50000 64.50000 0.0000000E+00 + -81.50000 64.50000 0.0000000E+00 + -80.50000 64.50000 0.0000000E+00 + -79.50000 64.50000 0.0000000E+00 + -78.50000 64.50000 0.0000000E+00 + -77.50000 64.50000 0.0000000E+00 + -76.50000 64.50000 0.0000000E+00 + -75.50000 64.50000 0.0000000E+00 + -74.50000 64.50000 0.0000000E+00 + -73.50000 64.50000 0.0000000E+00 + -72.50000 64.50000 0.0000000E+00 + -71.50000 64.50000 0.0000000E+00 + -70.50000 64.50000 0.0000000E+00 + -69.50000 64.50000 0.0000000E+00 + -68.50000 64.50000 0.0000000E+00 + -67.50000 64.50000 0.0000000E+00 + -66.50000 64.50000 0.0000000E+00 + -65.50000 64.50000 0.0000000E+00 + -64.50000 64.50000 0.0000000E+00 + -63.50000 64.50000 0.0000000E+00 + -62.50000 64.50000 0.0000000E+00 + -61.50000 64.50000 0.0000000E+00 + -60.50000 64.50000 0.0000000E+00 + -59.50000 64.50000 0.0000000E+00 + -58.50000 64.50000 0.0000000E+00 + -57.50000 64.50000 0.0000000E+00 + -56.50000 64.50000 0.0000000E+00 + -55.50000 64.50000 0.0000000E+00 + -54.50000 64.50000 0.0000000E+00 + -53.50000 64.50000 0.0000000E+00 + -52.50000 64.50000 0.0000000E+00 + -51.50000 64.50000 0.0000000E+00 + -50.50000 64.50000 0.0000000E+00 + -49.50000 64.50000 0.0000000E+00 + -48.50000 64.50000 0.0000000E+00 + -47.50000 64.50000 0.0000000E+00 + -46.50000 64.50000 0.0000000E+00 + -45.50000 64.50000 0.0000000E+00 + -44.50000 64.50000 0.0000000E+00 + -43.50000 64.50000 0.0000000E+00 + -42.50000 64.50000 0.0000000E+00 + -41.50000 64.50000 0.0000000E+00 + -40.50000 64.50000 0.0000000E+00 + -39.50000 64.50000 0.0000000E+00 + -38.50000 64.50000 0.0000000E+00 + -37.50000 64.50000 0.0000000E+00 + -36.50000 64.50000 0.0000000E+00 + -35.50000 64.50000 0.0000000E+00 + -34.50000 64.50000 0.0000000E+00 + -33.50000 64.50000 0.0000000E+00 + -32.50000 64.50000 0.0000000E+00 + -31.50000 64.50000 0.0000000E+00 + -30.50000 64.50000 0.0000000E+00 + -29.50000 64.50000 0.0000000E+00 + -28.50000 64.50000 0.0000000E+00 + -27.50000 64.50000 0.0000000E+00 + -26.50000 64.50000 0.0000000E+00 + -25.50000 64.50000 0.0000000E+00 + -24.50000 64.50000 0.0000000E+00 + -23.50000 64.50000 0.0000000E+00 + -22.50000 64.50000 0.0000000E+00 + -21.50000 64.50000 0.0000000E+00 + -20.50000 64.50000 0.0000000E+00 + -19.50000 64.50000 0.0000000E+00 + -18.50000 64.50000 0.0000000E+00 + -17.50000 64.50000 0.0000000E+00 + -16.50000 64.50000 0.0000000E+00 + -15.50000 64.50000 0.0000000E+00 + -14.50000 64.50000 0.0000000E+00 + -13.50000 64.50000 0.0000000E+00 + -12.50000 64.50000 0.0000000E+00 + -11.50000 64.50000 0.0000000E+00 + -10.50000 64.50000 0.0000000E+00 + -9.500000 64.50000 0.0000000E+00 + -8.500000 64.50000 0.0000000E+00 + -7.500000 64.50000 0.0000000E+00 + -6.500000 64.50000 0.0000000E+00 + -5.500000 64.50000 0.0000000E+00 + -4.500000 64.50000 0.0000000E+00 + -3.500000 64.50000 0.0000000E+00 + -2.500000 64.50000 0.0000000E+00 + -1.500000 64.50000 0.0000000E+00 + -0.5000000 64.50000 0.0000000E+00 + 0.5000000 64.50000 0.0000000E+00 + 1.500000 64.50000 0.0000000E+00 + 2.500000 64.50000 0.0000000E+00 + 3.500000 64.50000 0.0000000E+00 + 4.500000 64.50000 0.0000000E+00 + 5.500000 64.50000 0.0000000E+00 + 6.500000 64.50000 0.0000000E+00 + 7.500000 64.50000 0.0000000E+00 + 8.500000 64.50000 0.0000000E+00 + 9.500000 64.50000 0.0000000E+00 + 10.50000 64.50000 0.0000000E+00 + 11.50000 64.50000 0.0000000E+00 + 12.50000 64.50000 0.0000000E+00 + 13.50000 64.50000 0.0000000E+00 + 14.50000 64.50000 0.0000000E+00 + 15.50000 64.50000 0.0000000E+00 + 16.50000 64.50000 0.0000000E+00 + 17.50000 64.50000 0.0000000E+00 + 18.50000 64.50000 0.0000000E+00 + 19.50000 64.50000 0.0000000E+00 + 20.50000 64.50000 0.0000000E+00 + 21.50000 64.50000 0.0000000E+00 + 22.50000 64.50000 0.0000000E+00 + 23.50000 64.50000 0.0000000E+00 + 24.50000 64.50000 0.0000000E+00 + 25.50000 64.50000 0.0000000E+00 + 26.50000 64.50000 3.2921817E-02 + 27.50000 64.50000 3.5663836E-02 + 28.50000 64.50000 6.7332275E-02 + 29.50000 64.50000 2.7059335E-02 + 30.50000 64.50000 5.6833833E-02 + 31.50000 64.50000 1.3466455E-02 + 32.50000 64.50000 4.4126883E-03 + 33.50000 64.50000 6.3103304E-05 + 34.50000 64.50000 0.0000000E+00 + 35.50000 64.50000 0.0000000E+00 + 36.50000 64.50000 0.0000000E+00 + 37.50000 64.50000 4.1526232E-02 + 38.50000 64.50000 4.1526232E-02 + 39.50000 64.50000 0.0000000E+00 + 40.50000 64.50000 3.5281412E-02 + 41.50000 64.50000 4.0461507E-02 + 42.50000 64.50000 4.0461507E-02 + 43.50000 64.50000 4.6232935E-02 + 44.50000 64.50000 0.0000000E+00 + 45.50000 64.50000 0.0000000E+00 + 46.50000 64.50000 0.0000000E+00 + 47.50000 64.50000 0.0000000E+00 + 48.50000 64.50000 0.0000000E+00 + 49.50000 64.50000 0.0000000E+00 + 50.50000 64.50000 0.0000000E+00 + 51.50000 64.50000 0.0000000E+00 + 52.50000 64.50000 0.0000000E+00 + 53.50000 64.50000 0.0000000E+00 + 54.50000 64.50000 0.0000000E+00 + 55.50000 64.50000 0.0000000E+00 + 56.50000 64.50000 0.0000000E+00 + 57.50000 64.50000 0.0000000E+00 + 58.50000 64.50000 0.0000000E+00 + 59.50000 64.50000 0.0000000E+00 + 60.50000 64.50000 0.0000000E+00 + 61.50000 64.50000 0.0000000E+00 + 62.50000 64.50000 0.0000000E+00 + 63.50000 64.50000 0.0000000E+00 + 64.50000 64.50000 0.0000000E+00 + 65.50000 64.50000 0.0000000E+00 + 66.50000 64.50000 0.0000000E+00 + 67.50000 64.50000 0.0000000E+00 + 68.50000 64.50000 0.0000000E+00 + 69.50000 64.50000 0.0000000E+00 + 70.50000 64.50000 0.0000000E+00 + 71.50000 64.50000 0.0000000E+00 + 72.50000 64.50000 0.0000000E+00 + 73.50000 64.50000 0.0000000E+00 + 74.50000 64.50000 0.0000000E+00 + 75.50000 64.50000 0.0000000E+00 + 76.50000 64.50000 0.0000000E+00 + 77.50000 64.50000 0.0000000E+00 + 78.50000 64.50000 0.0000000E+00 + 79.50000 64.50000 0.0000000E+00 + 80.50000 64.50000 0.0000000E+00 + 81.50000 64.50000 0.0000000E+00 + 82.50000 64.50000 0.0000000E+00 + 83.50000 64.50000 0.0000000E+00 + 84.50000 64.50000 0.0000000E+00 + 85.50000 64.50000 0.0000000E+00 + 86.50000 64.50000 0.0000000E+00 + 87.50000 64.50000 0.0000000E+00 + 88.50000 64.50000 0.0000000E+00 + 89.50000 64.50000 0.0000000E+00 + -89.50000 65.50000 0.0000000E+00 + -88.50000 65.50000 0.0000000E+00 + -87.50000 65.50000 0.0000000E+00 + -86.50000 65.50000 0.0000000E+00 + -85.50000 65.50000 0.0000000E+00 + -84.50000 65.50000 0.0000000E+00 + -83.50000 65.50000 0.0000000E+00 + -82.50000 65.50000 0.0000000E+00 + -81.50000 65.50000 0.0000000E+00 + -80.50000 65.50000 0.0000000E+00 + -79.50000 65.50000 0.0000000E+00 + -78.50000 65.50000 0.0000000E+00 + -77.50000 65.50000 0.0000000E+00 + -76.50000 65.50000 0.0000000E+00 + -75.50000 65.50000 0.0000000E+00 + -74.50000 65.50000 0.0000000E+00 + -73.50000 65.50000 0.0000000E+00 + -72.50000 65.50000 0.0000000E+00 + -71.50000 65.50000 0.0000000E+00 + -70.50000 65.50000 0.0000000E+00 + -69.50000 65.50000 0.0000000E+00 + -68.50000 65.50000 0.0000000E+00 + -67.50000 65.50000 0.0000000E+00 + -66.50000 65.50000 0.0000000E+00 + -65.50000 65.50000 0.0000000E+00 + -64.50000 65.50000 0.0000000E+00 + -63.50000 65.50000 0.0000000E+00 + -62.50000 65.50000 0.0000000E+00 + -61.50000 65.50000 0.0000000E+00 + -60.50000 65.50000 0.0000000E+00 + -59.50000 65.50000 0.0000000E+00 + -58.50000 65.50000 0.0000000E+00 + -57.50000 65.50000 0.0000000E+00 + -56.50000 65.50000 0.0000000E+00 + -55.50000 65.50000 0.0000000E+00 + -54.50000 65.50000 0.0000000E+00 + -53.50000 65.50000 0.0000000E+00 + -52.50000 65.50000 0.0000000E+00 + -51.50000 65.50000 0.0000000E+00 + -50.50000 65.50000 0.0000000E+00 + -49.50000 65.50000 0.0000000E+00 + -48.50000 65.50000 0.0000000E+00 + -47.50000 65.50000 0.0000000E+00 + -46.50000 65.50000 0.0000000E+00 + -45.50000 65.50000 0.0000000E+00 + -44.50000 65.50000 0.0000000E+00 + -43.50000 65.50000 0.0000000E+00 + -42.50000 65.50000 0.0000000E+00 + -41.50000 65.50000 0.0000000E+00 + -40.50000 65.50000 0.0000000E+00 + -39.50000 65.50000 0.0000000E+00 + -38.50000 65.50000 0.0000000E+00 + -37.50000 65.50000 0.0000000E+00 + -36.50000 65.50000 0.0000000E+00 + -35.50000 65.50000 0.0000000E+00 + -34.50000 65.50000 0.0000000E+00 + -33.50000 65.50000 0.0000000E+00 + -32.50000 65.50000 0.0000000E+00 + -31.50000 65.50000 0.0000000E+00 + -30.50000 65.50000 0.0000000E+00 + -29.50000 65.50000 0.0000000E+00 + -28.50000 65.50000 0.0000000E+00 + -27.50000 65.50000 0.0000000E+00 + -26.50000 65.50000 0.0000000E+00 + -25.50000 65.50000 0.0000000E+00 + -24.50000 65.50000 0.0000000E+00 + -23.50000 65.50000 0.0000000E+00 + -22.50000 65.50000 0.0000000E+00 + -21.50000 65.50000 0.0000000E+00 + -20.50000 65.50000 0.0000000E+00 + -19.50000 65.50000 0.0000000E+00 + -18.50000 65.50000 0.0000000E+00 + -17.50000 65.50000 0.0000000E+00 + -16.50000 65.50000 0.0000000E+00 + -15.50000 65.50000 0.0000000E+00 + -14.50000 65.50000 0.0000000E+00 + -13.50000 65.50000 0.0000000E+00 + -12.50000 65.50000 0.0000000E+00 + -11.50000 65.50000 0.0000000E+00 + -10.50000 65.50000 0.0000000E+00 + -9.500000 65.50000 0.0000000E+00 + -8.500000 65.50000 0.0000000E+00 + -7.500000 65.50000 0.0000000E+00 + -6.500000 65.50000 0.0000000E+00 + -5.500000 65.50000 0.0000000E+00 + -4.500000 65.50000 0.0000000E+00 + -3.500000 65.50000 0.0000000E+00 + -2.500000 65.50000 0.0000000E+00 + -1.500000 65.50000 0.0000000E+00 + -0.5000000 65.50000 0.0000000E+00 + 0.5000000 65.50000 0.0000000E+00 + 1.500000 65.50000 0.0000000E+00 + 2.500000 65.50000 0.0000000E+00 + 3.500000 65.50000 0.0000000E+00 + 4.500000 65.50000 0.0000000E+00 + 5.500000 65.50000 0.0000000E+00 + 6.500000 65.50000 0.0000000E+00 + 7.500000 65.50000 0.0000000E+00 + 8.500000 65.50000 0.0000000E+00 + 9.500000 65.50000 0.0000000E+00 + 10.50000 65.50000 0.0000000E+00 + 11.50000 65.50000 0.0000000E+00 + 12.50000 65.50000 0.0000000E+00 + 13.50000 65.50000 0.0000000E+00 + 14.50000 65.50000 0.0000000E+00 + 15.50000 65.50000 0.0000000E+00 + 16.50000 65.50000 0.0000000E+00 + 17.50000 65.50000 0.0000000E+00 + 18.50000 65.50000 0.0000000E+00 + 19.50000 65.50000 0.0000000E+00 + 20.50000 65.50000 0.0000000E+00 + 21.50000 65.50000 0.0000000E+00 + 22.50000 65.50000 0.0000000E+00 + 23.50000 65.50000 0.0000000E+00 + 24.50000 65.50000 0.0000000E+00 + 25.50000 65.50000 0.0000000E+00 + 26.50000 65.50000 5.3020909E-02 + 27.50000 65.50000 4.6964712E-03 + 28.50000 65.50000 2.7059335E-02 + 29.50000 65.50000 2.2063442E-02 + 30.50000 65.50000 5.0076056E-02 + 31.50000 65.50000 1.1865235E-02 + 32.50000 65.50000 2.5164222E-03 + 33.50000 65.50000 5.5417517E-05 + 34.50000 65.50000 0.0000000E+00 + 35.50000 65.50000 0.0000000E+00 + 36.50000 65.50000 0.0000000E+00 + 37.50000 65.50000 4.1726008E-02 + 38.50000 65.50000 0.0000000E+00 + 39.50000 65.50000 0.0000000E+00 + 40.50000 65.50000 0.0000000E+00 + 41.50000 65.50000 0.0000000E+00 + 42.50000 65.50000 4.0682923E-02 + 43.50000 65.50000 4.0682923E-02 + 44.50000 65.50000 0.0000000E+00 + 45.50000 65.50000 4.0682923E-02 + 46.50000 65.50000 0.0000000E+00 + 47.50000 65.50000 0.0000000E+00 + 48.50000 65.50000 0.0000000E+00 + 49.50000 65.50000 0.0000000E+00 + 50.50000 65.50000 0.0000000E+00 + 51.50000 65.50000 0.0000000E+00 + 52.50000 65.50000 0.0000000E+00 + 53.50000 65.50000 0.0000000E+00 + 54.50000 65.50000 0.0000000E+00 + 55.50000 65.50000 0.0000000E+00 + 56.50000 65.50000 0.0000000E+00 + 57.50000 65.50000 0.0000000E+00 + 58.50000 65.50000 0.0000000E+00 + 59.50000 65.50000 0.0000000E+00 + 60.50000 65.50000 0.0000000E+00 + 61.50000 65.50000 0.0000000E+00 + 62.50000 65.50000 0.0000000E+00 + 63.50000 65.50000 0.0000000E+00 + 64.50000 65.50000 0.0000000E+00 + 65.50000 65.50000 0.0000000E+00 + 66.50000 65.50000 0.0000000E+00 + 67.50000 65.50000 0.0000000E+00 + 68.50000 65.50000 0.0000000E+00 + 69.50000 65.50000 0.0000000E+00 + 70.50000 65.50000 0.0000000E+00 + 71.50000 65.50000 0.0000000E+00 + 72.50000 65.50000 0.0000000E+00 + 73.50000 65.50000 0.0000000E+00 + 74.50000 65.50000 0.0000000E+00 + 75.50000 65.50000 0.0000000E+00 + 76.50000 65.50000 0.0000000E+00 + 77.50000 65.50000 0.0000000E+00 + 78.50000 65.50000 0.0000000E+00 + 79.50000 65.50000 0.0000000E+00 + 80.50000 65.50000 0.0000000E+00 + 81.50000 65.50000 0.0000000E+00 + 82.50000 65.50000 0.0000000E+00 + 83.50000 65.50000 0.0000000E+00 + 84.50000 65.50000 0.0000000E+00 + 85.50000 65.50000 0.0000000E+00 + 86.50000 65.50000 0.0000000E+00 + 87.50000 65.50000 0.0000000E+00 + 88.50000 65.50000 0.0000000E+00 + 89.50000 65.50000 0.0000000E+00 + -89.50000 66.50000 0.0000000E+00 + -88.50000 66.50000 0.0000000E+00 + -87.50000 66.50000 0.0000000E+00 + -86.50000 66.50000 0.0000000E+00 + -85.50000 66.50000 0.0000000E+00 + -84.50000 66.50000 0.0000000E+00 + -83.50000 66.50000 0.0000000E+00 + -82.50000 66.50000 0.0000000E+00 + -81.50000 66.50000 0.0000000E+00 + -80.50000 66.50000 0.0000000E+00 + -79.50000 66.50000 0.0000000E+00 + -78.50000 66.50000 0.0000000E+00 + -77.50000 66.50000 0.0000000E+00 + -76.50000 66.50000 0.0000000E+00 + -75.50000 66.50000 0.0000000E+00 + -74.50000 66.50000 0.0000000E+00 + -73.50000 66.50000 0.0000000E+00 + -72.50000 66.50000 0.0000000E+00 + -71.50000 66.50000 0.0000000E+00 + -70.50000 66.50000 0.0000000E+00 + -69.50000 66.50000 0.0000000E+00 + -68.50000 66.50000 0.0000000E+00 + -67.50000 66.50000 0.0000000E+00 + -66.50000 66.50000 0.0000000E+00 + -65.50000 66.50000 0.0000000E+00 + -64.50000 66.50000 0.0000000E+00 + -63.50000 66.50000 0.0000000E+00 + -62.50000 66.50000 0.0000000E+00 + -61.50000 66.50000 0.0000000E+00 + -60.50000 66.50000 0.0000000E+00 + -59.50000 66.50000 0.0000000E+00 + -58.50000 66.50000 0.0000000E+00 + -57.50000 66.50000 0.0000000E+00 + -56.50000 66.50000 0.0000000E+00 + -55.50000 66.50000 0.0000000E+00 + -54.50000 66.50000 0.0000000E+00 + -53.50000 66.50000 0.0000000E+00 + -52.50000 66.50000 0.0000000E+00 + -51.50000 66.50000 0.0000000E+00 + -50.50000 66.50000 0.0000000E+00 + -49.50000 66.50000 0.0000000E+00 + -48.50000 66.50000 0.0000000E+00 + -47.50000 66.50000 0.0000000E+00 + -46.50000 66.50000 0.0000000E+00 + -45.50000 66.50000 0.0000000E+00 + -44.50000 66.50000 0.0000000E+00 + -43.50000 66.50000 0.0000000E+00 + -42.50000 66.50000 0.0000000E+00 + -41.50000 66.50000 0.0000000E+00 + -40.50000 66.50000 0.0000000E+00 + -39.50000 66.50000 0.0000000E+00 + -38.50000 66.50000 0.0000000E+00 + -37.50000 66.50000 0.0000000E+00 + -36.50000 66.50000 0.0000000E+00 + -35.50000 66.50000 0.0000000E+00 + -34.50000 66.50000 0.0000000E+00 + -33.50000 66.50000 0.0000000E+00 + -32.50000 66.50000 0.0000000E+00 + -31.50000 66.50000 0.0000000E+00 + -30.50000 66.50000 0.0000000E+00 + -29.50000 66.50000 0.0000000E+00 + -28.50000 66.50000 0.0000000E+00 + -27.50000 66.50000 0.0000000E+00 + -26.50000 66.50000 0.0000000E+00 + -25.50000 66.50000 0.0000000E+00 + -24.50000 66.50000 0.0000000E+00 + -23.50000 66.50000 0.0000000E+00 + -22.50000 66.50000 0.0000000E+00 + -21.50000 66.50000 0.0000000E+00 + -20.50000 66.50000 0.0000000E+00 + -19.50000 66.50000 0.0000000E+00 + -18.50000 66.50000 0.0000000E+00 + -17.50000 66.50000 0.0000000E+00 + -16.50000 66.50000 0.0000000E+00 + -15.50000 66.50000 0.0000000E+00 + -14.50000 66.50000 0.0000000E+00 + -13.50000 66.50000 0.0000000E+00 + -12.50000 66.50000 0.0000000E+00 + -11.50000 66.50000 0.0000000E+00 + -10.50000 66.50000 0.0000000E+00 + -9.500000 66.50000 0.0000000E+00 + -8.500000 66.50000 0.0000000E+00 + -7.500000 66.50000 0.0000000E+00 + -6.500000 66.50000 0.0000000E+00 + -5.500000 66.50000 0.0000000E+00 + -4.500000 66.50000 0.0000000E+00 + -3.500000 66.50000 0.0000000E+00 + -2.500000 66.50000 0.0000000E+00 + -1.500000 66.50000 0.0000000E+00 + -0.5000000 66.50000 0.0000000E+00 + 0.5000000 66.50000 0.0000000E+00 + 1.500000 66.50000 0.0000000E+00 + 2.500000 66.50000 0.0000000E+00 + 3.500000 66.50000 0.0000000E+00 + 4.500000 66.50000 0.0000000E+00 + 5.500000 66.50000 0.0000000E+00 + 6.500000 66.50000 0.0000000E+00 + 7.500000 66.50000 0.0000000E+00 + 8.500000 66.50000 0.0000000E+00 + 9.500000 66.50000 0.0000000E+00 + 10.50000 66.50000 0.0000000E+00 + 11.50000 66.50000 0.0000000E+00 + 12.50000 66.50000 0.0000000E+00 + 13.50000 66.50000 0.0000000E+00 + 14.50000 66.50000 0.0000000E+00 + 15.50000 66.50000 0.0000000E+00 + 16.50000 66.50000 0.0000000E+00 + 17.50000 66.50000 0.0000000E+00 + 18.50000 66.50000 0.0000000E+00 + 19.50000 66.50000 0.0000000E+00 + 20.50000 66.50000 0.0000000E+00 + 21.50000 66.50000 0.0000000E+00 + 22.50000 66.50000 0.0000000E+00 + 23.50000 66.50000 0.0000000E+00 + 24.50000 66.50000 0.0000000E+00 + 25.50000 66.50000 0.2038432 + 26.50000 66.50000 5.3020909E-02 + 27.50000 66.50000 1.2398700E-02 + 28.50000 66.50000 1.3721923E-03 + 29.50000 66.50000 1.3721923E-03 + 30.50000 66.50000 6.9761821E-03 + 31.50000 66.50000 4.8803007E-03 + 32.50000 66.50000 6.4267323E-04 + 33.50000 66.50000 2.0576136E-04 + 34.50000 66.50000 0.0000000E+00 + 35.50000 66.50000 5.3045963E-04 + 36.50000 66.50000 0.0000000E+00 + 37.50000 66.50000 3.7362907E-02 + 38.50000 66.50000 0.0000000E+00 + 39.50000 66.50000 0.0000000E+00 + 40.50000 66.50000 0.0000000E+00 + 41.50000 66.50000 0.0000000E+00 + 42.50000 66.50000 4.1289661E-02 + 43.50000 66.50000 4.1289661E-02 + 44.50000 66.50000 0.0000000E+00 + 45.50000 66.50000 4.1096348E-02 + 46.50000 66.50000 0.0000000E+00 + 47.50000 66.50000 0.0000000E+00 + 48.50000 66.50000 0.0000000E+00 + 49.50000 66.50000 0.0000000E+00 + 50.50000 66.50000 0.0000000E+00 + 51.50000 66.50000 0.0000000E+00 + 52.50000 66.50000 0.0000000E+00 + 53.50000 66.50000 0.0000000E+00 + 54.50000 66.50000 0.0000000E+00 + 55.50000 66.50000 0.0000000E+00 + 56.50000 66.50000 0.0000000E+00 + 57.50000 66.50000 0.0000000E+00 + 58.50000 66.50000 0.0000000E+00 + 59.50000 66.50000 0.0000000E+00 + 60.50000 66.50000 0.0000000E+00 + 61.50000 66.50000 0.0000000E+00 + 62.50000 66.50000 0.0000000E+00 + 63.50000 66.50000 0.0000000E+00 + 64.50000 66.50000 0.0000000E+00 + 65.50000 66.50000 0.0000000E+00 + 66.50000 66.50000 0.0000000E+00 + 67.50000 66.50000 0.0000000E+00 + 68.50000 66.50000 0.0000000E+00 + 69.50000 66.50000 0.0000000E+00 + 70.50000 66.50000 0.0000000E+00 + 71.50000 66.50000 0.0000000E+00 + 72.50000 66.50000 0.0000000E+00 + 73.50000 66.50000 0.0000000E+00 + 74.50000 66.50000 0.0000000E+00 + 75.50000 66.50000 0.0000000E+00 + 76.50000 66.50000 0.0000000E+00 + 77.50000 66.50000 0.0000000E+00 + 78.50000 66.50000 0.0000000E+00 + 79.50000 66.50000 0.0000000E+00 + 80.50000 66.50000 0.0000000E+00 + 81.50000 66.50000 0.0000000E+00 + 82.50000 66.50000 0.0000000E+00 + 83.50000 66.50000 0.0000000E+00 + 84.50000 66.50000 0.0000000E+00 + 85.50000 66.50000 0.0000000E+00 + 86.50000 66.50000 0.0000000E+00 + 87.50000 66.50000 0.0000000E+00 + 88.50000 66.50000 0.0000000E+00 + 89.50000 66.50000 0.0000000E+00 + -89.50000 67.50000 0.0000000E+00 + -88.50000 67.50000 0.0000000E+00 + -87.50000 67.50000 0.0000000E+00 + -86.50000 67.50000 0.0000000E+00 + -85.50000 67.50000 0.0000000E+00 + -84.50000 67.50000 0.0000000E+00 + -83.50000 67.50000 0.0000000E+00 + -82.50000 67.50000 0.0000000E+00 + -81.50000 67.50000 0.0000000E+00 + -80.50000 67.50000 0.0000000E+00 + -79.50000 67.50000 0.0000000E+00 + -78.50000 67.50000 0.0000000E+00 + -77.50000 67.50000 0.0000000E+00 + -76.50000 67.50000 0.0000000E+00 + -75.50000 67.50000 0.0000000E+00 + -74.50000 67.50000 0.0000000E+00 + -73.50000 67.50000 0.0000000E+00 + -72.50000 67.50000 0.0000000E+00 + -71.50000 67.50000 0.0000000E+00 + -70.50000 67.50000 0.0000000E+00 + -69.50000 67.50000 0.0000000E+00 + -68.50000 67.50000 0.0000000E+00 + -67.50000 67.50000 0.0000000E+00 + -66.50000 67.50000 0.0000000E+00 + -65.50000 67.50000 0.0000000E+00 + -64.50000 67.50000 0.0000000E+00 + -63.50000 67.50000 0.0000000E+00 + -62.50000 67.50000 0.0000000E+00 + -61.50000 67.50000 0.0000000E+00 + -60.50000 67.50000 0.0000000E+00 + -59.50000 67.50000 0.0000000E+00 + -58.50000 67.50000 0.0000000E+00 + -57.50000 67.50000 0.0000000E+00 + -56.50000 67.50000 0.0000000E+00 + -55.50000 67.50000 0.0000000E+00 + -54.50000 67.50000 0.0000000E+00 + -53.50000 67.50000 0.0000000E+00 + -52.50000 67.50000 0.0000000E+00 + -51.50000 67.50000 0.0000000E+00 + -50.50000 67.50000 0.0000000E+00 + -49.50000 67.50000 0.0000000E+00 + -48.50000 67.50000 0.0000000E+00 + -47.50000 67.50000 0.0000000E+00 + -46.50000 67.50000 0.0000000E+00 + -45.50000 67.50000 0.0000000E+00 + -44.50000 67.50000 0.0000000E+00 + -43.50000 67.50000 0.0000000E+00 + -42.50000 67.50000 0.0000000E+00 + -41.50000 67.50000 0.0000000E+00 + -40.50000 67.50000 0.0000000E+00 + -39.50000 67.50000 0.0000000E+00 + -38.50000 67.50000 0.0000000E+00 + -37.50000 67.50000 0.0000000E+00 + -36.50000 67.50000 0.0000000E+00 + -35.50000 67.50000 0.0000000E+00 + -34.50000 67.50000 0.0000000E+00 + -33.50000 67.50000 0.0000000E+00 + -32.50000 67.50000 0.0000000E+00 + -31.50000 67.50000 0.0000000E+00 + -30.50000 67.50000 0.0000000E+00 + -29.50000 67.50000 0.0000000E+00 + -28.50000 67.50000 0.0000000E+00 + -27.50000 67.50000 0.0000000E+00 + -26.50000 67.50000 0.0000000E+00 + -25.50000 67.50000 0.0000000E+00 + -24.50000 67.50000 0.0000000E+00 + -23.50000 67.50000 0.0000000E+00 + -22.50000 67.50000 0.0000000E+00 + -21.50000 67.50000 0.0000000E+00 + -20.50000 67.50000 0.0000000E+00 + -19.50000 67.50000 0.0000000E+00 + -18.50000 67.50000 0.0000000E+00 + -17.50000 67.50000 0.0000000E+00 + -16.50000 67.50000 0.0000000E+00 + -15.50000 67.50000 0.0000000E+00 + -14.50000 67.50000 0.0000000E+00 + -13.50000 67.50000 0.0000000E+00 + -12.50000 67.50000 0.0000000E+00 + -11.50000 67.50000 0.0000000E+00 + -10.50000 67.50000 0.0000000E+00 + -9.500000 67.50000 0.0000000E+00 + -8.500000 67.50000 0.0000000E+00 + -7.500000 67.50000 0.0000000E+00 + -6.500000 67.50000 0.0000000E+00 + -5.500000 67.50000 0.0000000E+00 + -4.500000 67.50000 0.0000000E+00 + -3.500000 67.50000 0.0000000E+00 + -2.500000 67.50000 0.0000000E+00 + -1.500000 67.50000 0.0000000E+00 + -0.5000000 67.50000 0.0000000E+00 + 0.5000000 67.50000 0.0000000E+00 + 1.500000 67.50000 0.0000000E+00 + 2.500000 67.50000 0.0000000E+00 + 3.500000 67.50000 0.0000000E+00 + 4.500000 67.50000 0.0000000E+00 + 5.500000 67.50000 0.0000000E+00 + 6.500000 67.50000 0.0000000E+00 + 7.500000 67.50000 0.0000000E+00 + 8.500000 67.50000 0.0000000E+00 + 9.500000 67.50000 0.0000000E+00 + 10.50000 67.50000 0.0000000E+00 + 11.50000 67.50000 0.0000000E+00 + 12.50000 67.50000 0.0000000E+00 + 13.50000 67.50000 0.0000000E+00 + 14.50000 67.50000 0.0000000E+00 + 15.50000 67.50000 0.0000000E+00 + 16.50000 67.50000 0.0000000E+00 + 17.50000 67.50000 0.0000000E+00 + 18.50000 67.50000 0.0000000E+00 + 19.50000 67.50000 0.0000000E+00 + 20.50000 67.50000 0.0000000E+00 + 21.50000 67.50000 0.0000000E+00 + 22.50000 67.50000 0.0000000E+00 + 23.50000 67.50000 0.0000000E+00 + 24.50000 67.50000 1.3775303E-02 + 25.50000 67.50000 0.1045530 + 26.50000 67.50000 3.2361396E-02 + 27.50000 67.50000 3.0057415E-02 + 28.50000 67.50000 2.1687860E-02 + 29.50000 67.50000 1.7186984E-02 + 30.50000 67.50000 2.4141422E-03 + 31.50000 67.50000 4.3645143E-03 + 32.50000 67.50000 2.7883393E-03 + 33.50000 67.50000 1.3027129E-03 + 34.50000 67.50000 0.0000000E+00 + 35.50000 67.50000 2.5761081E-03 + 36.50000 67.50000 0.0000000E+00 + 37.50000 67.50000 0.0000000E+00 + 38.50000 67.50000 0.0000000E+00 + 39.50000 67.50000 0.0000000E+00 + 40.50000 67.50000 0.0000000E+00 + 41.50000 67.50000 0.0000000E+00 + 42.50000 67.50000 4.3321278E-02 + 43.50000 67.50000 0.0000000E+00 + 44.50000 67.50000 4.3321278E-02 + 45.50000 67.50000 0.0000000E+00 + 46.50000 67.50000 0.0000000E+00 + 47.50000 67.50000 0.0000000E+00 + 48.50000 67.50000 0.0000000E+00 + 49.50000 67.50000 0.0000000E+00 + 50.50000 67.50000 0.0000000E+00 + 51.50000 67.50000 0.0000000E+00 + 52.50000 67.50000 0.0000000E+00 + 53.50000 67.50000 0.0000000E+00 + 54.50000 67.50000 0.0000000E+00 + 55.50000 67.50000 0.0000000E+00 + 56.50000 67.50000 0.0000000E+00 + 57.50000 67.50000 0.0000000E+00 + 58.50000 67.50000 0.0000000E+00 + 59.50000 67.50000 0.0000000E+00 + 60.50000 67.50000 0.0000000E+00 + 61.50000 67.50000 0.0000000E+00 + 62.50000 67.50000 0.0000000E+00 + 63.50000 67.50000 0.0000000E+00 + 64.50000 67.50000 0.0000000E+00 + 65.50000 67.50000 0.0000000E+00 + 66.50000 67.50000 0.0000000E+00 + 67.50000 67.50000 0.0000000E+00 + 68.50000 67.50000 0.0000000E+00 + 69.50000 67.50000 0.0000000E+00 + 70.50000 67.50000 0.0000000E+00 + 71.50000 67.50000 0.0000000E+00 + 72.50000 67.50000 0.0000000E+00 + 73.50000 67.50000 0.0000000E+00 + 74.50000 67.50000 0.0000000E+00 + 75.50000 67.50000 0.0000000E+00 + 76.50000 67.50000 0.0000000E+00 + 77.50000 67.50000 0.0000000E+00 + 78.50000 67.50000 0.0000000E+00 + 79.50000 67.50000 0.0000000E+00 + 80.50000 67.50000 0.0000000E+00 + 81.50000 67.50000 0.0000000E+00 + 82.50000 67.50000 0.0000000E+00 + 83.50000 67.50000 0.0000000E+00 + 84.50000 67.50000 0.0000000E+00 + 85.50000 67.50000 0.0000000E+00 + 86.50000 67.50000 0.0000000E+00 + 87.50000 67.50000 0.0000000E+00 + 88.50000 67.50000 0.0000000E+00 + 89.50000 67.50000 0.0000000E+00 + -89.50000 68.50000 0.0000000E+00 + -88.50000 68.50000 0.0000000E+00 + -87.50000 68.50000 0.0000000E+00 + -86.50000 68.50000 0.0000000E+00 + -85.50000 68.50000 0.0000000E+00 + -84.50000 68.50000 0.0000000E+00 + -83.50000 68.50000 0.0000000E+00 + -82.50000 68.50000 0.0000000E+00 + -81.50000 68.50000 0.0000000E+00 + -80.50000 68.50000 0.0000000E+00 + -79.50000 68.50000 0.0000000E+00 + -78.50000 68.50000 0.0000000E+00 + -77.50000 68.50000 0.0000000E+00 + -76.50000 68.50000 0.0000000E+00 + -75.50000 68.50000 0.0000000E+00 + -74.50000 68.50000 0.0000000E+00 + -73.50000 68.50000 0.0000000E+00 + -72.50000 68.50000 0.0000000E+00 + -71.50000 68.50000 0.0000000E+00 + -70.50000 68.50000 0.0000000E+00 + -69.50000 68.50000 0.0000000E+00 + -68.50000 68.50000 0.0000000E+00 + -67.50000 68.50000 0.0000000E+00 + -66.50000 68.50000 0.0000000E+00 + -65.50000 68.50000 0.0000000E+00 + -64.50000 68.50000 0.0000000E+00 + -63.50000 68.50000 0.0000000E+00 + -62.50000 68.50000 0.0000000E+00 + -61.50000 68.50000 0.0000000E+00 + -60.50000 68.50000 0.0000000E+00 + -59.50000 68.50000 0.0000000E+00 + -58.50000 68.50000 0.0000000E+00 + -57.50000 68.50000 0.0000000E+00 + -56.50000 68.50000 0.0000000E+00 + -55.50000 68.50000 0.0000000E+00 + -54.50000 68.50000 0.0000000E+00 + -53.50000 68.50000 0.0000000E+00 + -52.50000 68.50000 0.0000000E+00 + -51.50000 68.50000 0.0000000E+00 + -50.50000 68.50000 0.0000000E+00 + -49.50000 68.50000 0.0000000E+00 + -48.50000 68.50000 0.0000000E+00 + -47.50000 68.50000 0.0000000E+00 + -46.50000 68.50000 0.0000000E+00 + -45.50000 68.50000 0.0000000E+00 + -44.50000 68.50000 0.0000000E+00 + -43.50000 68.50000 0.0000000E+00 + -42.50000 68.50000 0.0000000E+00 + -41.50000 68.50000 0.0000000E+00 + -40.50000 68.50000 0.0000000E+00 + -39.50000 68.50000 0.0000000E+00 + -38.50000 68.50000 0.0000000E+00 + -37.50000 68.50000 0.0000000E+00 + -36.50000 68.50000 0.0000000E+00 + -35.50000 68.50000 0.0000000E+00 + -34.50000 68.50000 0.0000000E+00 + -33.50000 68.50000 0.0000000E+00 + -32.50000 68.50000 0.0000000E+00 + -31.50000 68.50000 0.0000000E+00 + -30.50000 68.50000 0.0000000E+00 + -29.50000 68.50000 0.0000000E+00 + -28.50000 68.50000 0.0000000E+00 + -27.50000 68.50000 0.0000000E+00 + -26.50000 68.50000 0.0000000E+00 + -25.50000 68.50000 0.0000000E+00 + -24.50000 68.50000 0.0000000E+00 + -23.50000 68.50000 0.0000000E+00 + -22.50000 68.50000 0.0000000E+00 + -21.50000 68.50000 0.0000000E+00 + -20.50000 68.50000 0.0000000E+00 + -19.50000 68.50000 0.0000000E+00 + -18.50000 68.50000 0.0000000E+00 + -17.50000 68.50000 0.0000000E+00 + -16.50000 68.50000 0.0000000E+00 + -15.50000 68.50000 0.0000000E+00 + -14.50000 68.50000 0.0000000E+00 + -13.50000 68.50000 0.0000000E+00 + -12.50000 68.50000 0.0000000E+00 + -11.50000 68.50000 0.0000000E+00 + -10.50000 68.50000 0.0000000E+00 + -9.500000 68.50000 0.0000000E+00 + -8.500000 68.50000 0.0000000E+00 + -7.500000 68.50000 0.0000000E+00 + -6.500000 68.50000 0.0000000E+00 + -5.500000 68.50000 0.0000000E+00 + -4.500000 68.50000 0.0000000E+00 + -3.500000 68.50000 0.0000000E+00 + -2.500000 68.50000 0.0000000E+00 + -1.500000 68.50000 0.0000000E+00 + -0.5000000 68.50000 0.0000000E+00 + 0.5000000 68.50000 0.0000000E+00 + 1.500000 68.50000 0.0000000E+00 + 2.500000 68.50000 0.0000000E+00 + 3.500000 68.50000 0.0000000E+00 + 4.500000 68.50000 0.0000000E+00 + 5.500000 68.50000 0.0000000E+00 + 6.500000 68.50000 0.0000000E+00 + 7.500000 68.50000 0.0000000E+00 + 8.500000 68.50000 0.0000000E+00 + 9.500000 68.50000 0.0000000E+00 + 10.50000 68.50000 0.0000000E+00 + 11.50000 68.50000 0.0000000E+00 + 12.50000 68.50000 0.0000000E+00 + 13.50000 68.50000 0.0000000E+00 + 14.50000 68.50000 0.0000000E+00 + 15.50000 68.50000 0.0000000E+00 + 16.50000 68.50000 0.0000000E+00 + 17.50000 68.50000 0.0000000E+00 + 18.50000 68.50000 0.0000000E+00 + 19.50000 68.50000 0.0000000E+00 + 20.50000 68.50000 0.0000000E+00 + 21.50000 68.50000 0.0000000E+00 + 22.50000 68.50000 0.0000000E+00 + 23.50000 68.50000 0.0000000E+00 + 24.50000 68.50000 3.9623521E-02 + 25.50000 68.50000 0.2038432 + 26.50000 68.50000 0.0000000E+00 + 27.50000 68.50000 0.0000000E+00 + 28.50000 68.50000 0.0000000E+00 + 29.50000 68.50000 2.2427995E-02 + 30.50000 68.50000 6.5843635E-03 + 31.50000 68.50000 5.7624141E-03 + 32.50000 68.50000 4.1250051E-03 + 33.50000 68.50000 1.8621723E-03 + 34.50000 68.50000 0.0000000E+00 + 35.50000 68.50000 3.5530364E-03 + 36.50000 68.50000 0.0000000E+00 + 37.50000 68.50000 0.0000000E+00 + 38.50000 68.50000 0.0000000E+00 + 39.50000 68.50000 0.0000000E+00 + 40.50000 68.50000 0.0000000E+00 + 41.50000 68.50000 0.0000000E+00 + 42.50000 68.50000 0.0000000E+00 + 43.50000 68.50000 0.0000000E+00 + 44.50000 68.50000 4.3706011E-02 + 45.50000 68.50000 0.0000000E+00 + 46.50000 68.50000 0.0000000E+00 + 47.50000 68.50000 0.0000000E+00 + 48.50000 68.50000 0.0000000E+00 + 49.50000 68.50000 0.0000000E+00 + 50.50000 68.50000 0.0000000E+00 + 51.50000 68.50000 0.0000000E+00 + 52.50000 68.50000 0.0000000E+00 + 53.50000 68.50000 0.0000000E+00 + 54.50000 68.50000 0.0000000E+00 + 55.50000 68.50000 0.0000000E+00 + 56.50000 68.50000 0.0000000E+00 + 57.50000 68.50000 0.0000000E+00 + 58.50000 68.50000 0.0000000E+00 + 59.50000 68.50000 0.0000000E+00 + 60.50000 68.50000 0.0000000E+00 + 61.50000 68.50000 0.0000000E+00 + 62.50000 68.50000 0.0000000E+00 + 63.50000 68.50000 0.0000000E+00 + 64.50000 68.50000 0.0000000E+00 + 65.50000 68.50000 0.0000000E+00 + 66.50000 68.50000 0.0000000E+00 + 67.50000 68.50000 0.0000000E+00 + 68.50000 68.50000 0.0000000E+00 + 69.50000 68.50000 0.0000000E+00 + 70.50000 68.50000 0.0000000E+00 + 71.50000 68.50000 0.0000000E+00 + 72.50000 68.50000 0.0000000E+00 + 73.50000 68.50000 0.0000000E+00 + 74.50000 68.50000 0.0000000E+00 + 75.50000 68.50000 0.0000000E+00 + 76.50000 68.50000 0.0000000E+00 + 77.50000 68.50000 0.0000000E+00 + 78.50000 68.50000 0.0000000E+00 + 79.50000 68.50000 0.0000000E+00 + 80.50000 68.50000 0.0000000E+00 + 81.50000 68.50000 0.0000000E+00 + 82.50000 68.50000 0.0000000E+00 + 83.50000 68.50000 0.0000000E+00 + 84.50000 68.50000 0.0000000E+00 + 85.50000 68.50000 0.0000000E+00 + 86.50000 68.50000 0.0000000E+00 + 87.50000 68.50000 0.0000000E+00 + 88.50000 68.50000 0.0000000E+00 + 89.50000 68.50000 0.0000000E+00 + -89.50000 69.50000 0.0000000E+00 + -88.50000 69.50000 0.0000000E+00 + -87.50000 69.50000 0.0000000E+00 + -86.50000 69.50000 0.0000000E+00 + -85.50000 69.50000 0.0000000E+00 + -84.50000 69.50000 0.0000000E+00 + -83.50000 69.50000 0.0000000E+00 + -82.50000 69.50000 0.0000000E+00 + -81.50000 69.50000 0.0000000E+00 + -80.50000 69.50000 0.0000000E+00 + -79.50000 69.50000 0.0000000E+00 + -78.50000 69.50000 0.0000000E+00 + -77.50000 69.50000 0.0000000E+00 + -76.50000 69.50000 0.0000000E+00 + -75.50000 69.50000 0.0000000E+00 + -74.50000 69.50000 0.0000000E+00 + -73.50000 69.50000 0.0000000E+00 + -72.50000 69.50000 0.0000000E+00 + -71.50000 69.50000 0.0000000E+00 + -70.50000 69.50000 0.0000000E+00 + -69.50000 69.50000 0.0000000E+00 + -68.50000 69.50000 0.0000000E+00 + -67.50000 69.50000 0.0000000E+00 + -66.50000 69.50000 0.0000000E+00 + -65.50000 69.50000 0.0000000E+00 + -64.50000 69.50000 0.0000000E+00 + -63.50000 69.50000 0.0000000E+00 + -62.50000 69.50000 0.0000000E+00 + -61.50000 69.50000 0.0000000E+00 + -60.50000 69.50000 0.0000000E+00 + -59.50000 69.50000 0.0000000E+00 + -58.50000 69.50000 0.0000000E+00 + -57.50000 69.50000 0.0000000E+00 + -56.50000 69.50000 0.0000000E+00 + -55.50000 69.50000 0.0000000E+00 + -54.50000 69.50000 0.0000000E+00 + -53.50000 69.50000 0.0000000E+00 + -52.50000 69.50000 0.0000000E+00 + -51.50000 69.50000 0.0000000E+00 + -50.50000 69.50000 0.0000000E+00 + -49.50000 69.50000 0.0000000E+00 + -48.50000 69.50000 0.0000000E+00 + -47.50000 69.50000 0.0000000E+00 + -46.50000 69.50000 0.0000000E+00 + -45.50000 69.50000 0.0000000E+00 + -44.50000 69.50000 0.0000000E+00 + -43.50000 69.50000 0.0000000E+00 + -42.50000 69.50000 0.0000000E+00 + -41.50000 69.50000 0.0000000E+00 + -40.50000 69.50000 0.0000000E+00 + -39.50000 69.50000 0.0000000E+00 + -38.50000 69.50000 0.0000000E+00 + -37.50000 69.50000 0.0000000E+00 + -36.50000 69.50000 0.0000000E+00 + -35.50000 69.50000 0.0000000E+00 + -34.50000 69.50000 0.0000000E+00 + -33.50000 69.50000 0.0000000E+00 + -32.50000 69.50000 0.0000000E+00 + -31.50000 69.50000 0.0000000E+00 + -30.50000 69.50000 0.0000000E+00 + -29.50000 69.50000 0.0000000E+00 + -28.50000 69.50000 0.0000000E+00 + -27.50000 69.50000 0.0000000E+00 + -26.50000 69.50000 0.0000000E+00 + -25.50000 69.50000 0.0000000E+00 + -24.50000 69.50000 0.0000000E+00 + -23.50000 69.50000 0.0000000E+00 + -22.50000 69.50000 0.0000000E+00 + -21.50000 69.50000 0.0000000E+00 + -20.50000 69.50000 0.0000000E+00 + -19.50000 69.50000 0.0000000E+00 + -18.50000 69.50000 0.0000000E+00 + -17.50000 69.50000 0.0000000E+00 + -16.50000 69.50000 0.0000000E+00 + -15.50000 69.50000 0.0000000E+00 + -14.50000 69.50000 0.0000000E+00 + -13.50000 69.50000 0.0000000E+00 + -12.50000 69.50000 0.0000000E+00 + -11.50000 69.50000 0.0000000E+00 + -10.50000 69.50000 0.0000000E+00 + -9.500000 69.50000 0.0000000E+00 + -8.500000 69.50000 0.0000000E+00 + -7.500000 69.50000 0.0000000E+00 + -6.500000 69.50000 0.0000000E+00 + -5.500000 69.50000 0.0000000E+00 + -4.500000 69.50000 0.0000000E+00 + -3.500000 69.50000 0.0000000E+00 + -2.500000 69.50000 0.0000000E+00 + -1.500000 69.50000 0.0000000E+00 + -0.5000000 69.50000 0.0000000E+00 + 0.5000000 69.50000 0.0000000E+00 + 1.500000 69.50000 0.0000000E+00 + 2.500000 69.50000 0.0000000E+00 + 3.500000 69.50000 0.0000000E+00 + 4.500000 69.50000 0.0000000E+00 + 5.500000 69.50000 0.0000000E+00 + 6.500000 69.50000 0.0000000E+00 + 7.500000 69.50000 0.0000000E+00 + 8.500000 69.50000 0.0000000E+00 + 9.500000 69.50000 0.0000000E+00 + 10.50000 69.50000 0.0000000E+00 + 11.50000 69.50000 0.0000000E+00 + 12.50000 69.50000 0.0000000E+00 + 13.50000 69.50000 0.0000000E+00 + 14.50000 69.50000 0.0000000E+00 + 15.50000 69.50000 0.0000000E+00 + 16.50000 69.50000 0.0000000E+00 + 17.50000 69.50000 0.0000000E+00 + 18.50000 69.50000 0.0000000E+00 + 19.50000 69.50000 0.0000000E+00 + 20.50000 69.50000 0.0000000E+00 + 21.50000 69.50000 0.0000000E+00 + 22.50000 69.50000 0.0000000E+00 + 23.50000 69.50000 0.0000000E+00 + 24.50000 69.50000 0.0000000E+00 + 25.50000 69.50000 0.0000000E+00 + 26.50000 69.50000 0.0000000E+00 + 27.50000 69.50000 0.0000000E+00 + 28.50000 69.50000 0.0000000E+00 + 29.50000 69.50000 2.1069130E-02 + 30.50000 69.50000 1.2837294E-02 + 31.50000 69.50000 8.3086556E-03 + 32.50000 69.50000 5.5887080E-03 + 33.50000 69.50000 2.4797402E-03 + 34.50000 69.50000 0.0000000E+00 + 35.50000 69.50000 0.0000000E+00 + 36.50000 69.50000 0.0000000E+00 + 37.50000 69.50000 0.0000000E+00 + 38.50000 69.50000 0.0000000E+00 + 39.50000 69.50000 0.0000000E+00 + 40.50000 69.50000 0.0000000E+00 + 41.50000 69.50000 0.0000000E+00 + 42.50000 69.50000 0.0000000E+00 + 43.50000 69.50000 0.0000000E+00 + 44.50000 69.50000 0.0000000E+00 + 45.50000 69.50000 4.4885069E-02 + 46.50000 69.50000 0.0000000E+00 + 47.50000 69.50000 0.0000000E+00 + 48.50000 69.50000 0.0000000E+00 + 49.50000 69.50000 0.0000000E+00 + 50.50000 69.50000 0.0000000E+00 + 51.50000 69.50000 0.0000000E+00 + 52.50000 69.50000 0.0000000E+00 + 53.50000 69.50000 0.0000000E+00 + 54.50000 69.50000 0.0000000E+00 + 55.50000 69.50000 0.0000000E+00 + 56.50000 69.50000 0.0000000E+00 + 57.50000 69.50000 0.0000000E+00 + 58.50000 69.50000 0.0000000E+00 + 59.50000 69.50000 0.0000000E+00 + 60.50000 69.50000 0.0000000E+00 + 61.50000 69.50000 0.0000000E+00 + 62.50000 69.50000 0.0000000E+00 + 63.50000 69.50000 0.0000000E+00 + 64.50000 69.50000 0.0000000E+00 + 65.50000 69.50000 0.0000000E+00 + 66.50000 69.50000 0.0000000E+00 + 67.50000 69.50000 0.0000000E+00 + 68.50000 69.50000 0.0000000E+00 + 69.50000 69.50000 0.0000000E+00 + 70.50000 69.50000 0.0000000E+00 + 71.50000 69.50000 0.0000000E+00 + 72.50000 69.50000 0.0000000E+00 + 73.50000 69.50000 0.0000000E+00 + 74.50000 69.50000 0.0000000E+00 + 75.50000 69.50000 0.0000000E+00 + 76.50000 69.50000 0.0000000E+00 + 77.50000 69.50000 0.0000000E+00 + 78.50000 69.50000 0.0000000E+00 + 79.50000 69.50000 0.0000000E+00 + 80.50000 69.50000 0.0000000E+00 + 81.50000 69.50000 0.0000000E+00 + 82.50000 69.50000 0.0000000E+00 + 83.50000 69.50000 0.0000000E+00 + 84.50000 69.50000 0.0000000E+00 + 85.50000 69.50000 0.0000000E+00 + 86.50000 69.50000 0.0000000E+00 + 87.50000 69.50000 0.0000000E+00 + 88.50000 69.50000 0.0000000E+00 + 89.50000 69.50000 0.0000000E+00 + -89.50000 70.50000 0.0000000E+00 + -88.50000 70.50000 0.0000000E+00 + -87.50000 70.50000 0.0000000E+00 + -86.50000 70.50000 0.0000000E+00 + -85.50000 70.50000 0.0000000E+00 + -84.50000 70.50000 0.0000000E+00 + -83.50000 70.50000 0.0000000E+00 + -82.50000 70.50000 0.0000000E+00 + -81.50000 70.50000 0.0000000E+00 + -80.50000 70.50000 0.0000000E+00 + -79.50000 70.50000 0.0000000E+00 + -78.50000 70.50000 0.0000000E+00 + -77.50000 70.50000 0.0000000E+00 + -76.50000 70.50000 0.0000000E+00 + -75.50000 70.50000 0.0000000E+00 + -74.50000 70.50000 0.0000000E+00 + -73.50000 70.50000 0.0000000E+00 + -72.50000 70.50000 0.0000000E+00 + -71.50000 70.50000 0.0000000E+00 + -70.50000 70.50000 0.0000000E+00 + -69.50000 70.50000 0.0000000E+00 + -68.50000 70.50000 0.0000000E+00 + -67.50000 70.50000 0.0000000E+00 + -66.50000 70.50000 0.0000000E+00 + -65.50000 70.50000 0.0000000E+00 + -64.50000 70.50000 0.0000000E+00 + -63.50000 70.50000 0.0000000E+00 + -62.50000 70.50000 0.0000000E+00 + -61.50000 70.50000 0.0000000E+00 + -60.50000 70.50000 0.0000000E+00 + -59.50000 70.50000 0.0000000E+00 + -58.50000 70.50000 0.0000000E+00 + -57.50000 70.50000 0.0000000E+00 + -56.50000 70.50000 0.0000000E+00 + -55.50000 70.50000 0.0000000E+00 + -54.50000 70.50000 0.0000000E+00 + -53.50000 70.50000 0.0000000E+00 + -52.50000 70.50000 0.0000000E+00 + -51.50000 70.50000 0.0000000E+00 + -50.50000 70.50000 0.0000000E+00 + -49.50000 70.50000 0.0000000E+00 + -48.50000 70.50000 0.0000000E+00 + -47.50000 70.50000 0.0000000E+00 + -46.50000 70.50000 0.0000000E+00 + -45.50000 70.50000 0.0000000E+00 + -44.50000 70.50000 0.0000000E+00 + -43.50000 70.50000 0.0000000E+00 + -42.50000 70.50000 0.0000000E+00 + -41.50000 70.50000 0.0000000E+00 + -40.50000 70.50000 0.0000000E+00 + -39.50000 70.50000 0.0000000E+00 + -38.50000 70.50000 0.0000000E+00 + -37.50000 70.50000 0.0000000E+00 + -36.50000 70.50000 0.0000000E+00 + -35.50000 70.50000 0.0000000E+00 + -34.50000 70.50000 0.0000000E+00 + -33.50000 70.50000 0.0000000E+00 + -32.50000 70.50000 0.0000000E+00 + -31.50000 70.50000 0.0000000E+00 + -30.50000 70.50000 0.0000000E+00 + -29.50000 70.50000 0.0000000E+00 + -28.50000 70.50000 0.0000000E+00 + -27.50000 70.50000 0.0000000E+00 + -26.50000 70.50000 0.0000000E+00 + -25.50000 70.50000 0.0000000E+00 + -24.50000 70.50000 0.0000000E+00 + -23.50000 70.50000 0.0000000E+00 + -22.50000 70.50000 0.0000000E+00 + -21.50000 70.50000 0.0000000E+00 + -20.50000 70.50000 0.0000000E+00 + -19.50000 70.50000 0.0000000E+00 + -18.50000 70.50000 0.0000000E+00 + -17.50000 70.50000 0.0000000E+00 + -16.50000 70.50000 0.0000000E+00 + -15.50000 70.50000 0.0000000E+00 + -14.50000 70.50000 0.0000000E+00 + -13.50000 70.50000 0.0000000E+00 + -12.50000 70.50000 0.0000000E+00 + -11.50000 70.50000 0.0000000E+00 + -10.50000 70.50000 0.0000000E+00 + -9.500000 70.50000 0.0000000E+00 + -8.500000 70.50000 0.0000000E+00 + -7.500000 70.50000 0.0000000E+00 + -6.500000 70.50000 0.0000000E+00 + -5.500000 70.50000 0.0000000E+00 + -4.500000 70.50000 0.0000000E+00 + -3.500000 70.50000 0.0000000E+00 + -2.500000 70.50000 0.0000000E+00 + -1.500000 70.50000 0.0000000E+00 + -0.5000000 70.50000 0.0000000E+00 + 0.5000000 70.50000 0.0000000E+00 + 1.500000 70.50000 0.0000000E+00 + 2.500000 70.50000 0.0000000E+00 + 3.500000 70.50000 0.0000000E+00 + 4.500000 70.50000 0.0000000E+00 + 5.500000 70.50000 0.0000000E+00 + 6.500000 70.50000 0.0000000E+00 + 7.500000 70.50000 0.0000000E+00 + 8.500000 70.50000 0.0000000E+00 + 9.500000 70.50000 0.0000000E+00 + 10.50000 70.50000 0.0000000E+00 + 11.50000 70.50000 0.0000000E+00 + 12.50000 70.50000 0.0000000E+00 + 13.50000 70.50000 0.0000000E+00 + 14.50000 70.50000 0.0000000E+00 + 15.50000 70.50000 0.0000000E+00 + 16.50000 70.50000 0.0000000E+00 + 17.50000 70.50000 0.0000000E+00 + 18.50000 70.50000 0.0000000E+00 + 19.50000 70.50000 0.0000000E+00 + 20.50000 70.50000 0.0000000E+00 + 21.50000 70.50000 0.0000000E+00 + 22.50000 70.50000 0.0000000E+00 + 23.50000 70.50000 0.0000000E+00 + 24.50000 70.50000 0.0000000E+00 + 25.50000 70.50000 0.0000000E+00 + 26.50000 70.50000 0.0000000E+00 + 27.50000 70.50000 0.0000000E+00 + 28.50000 70.50000 0.0000000E+00 + 29.50000 70.50000 0.0000000E+00 + 30.50000 70.50000 3.3067953E-02 + 31.50000 70.50000 3.6018640E-02 + 32.50000 70.50000 0.0000000E+00 + 33.50000 70.50000 0.0000000E+00 + 34.50000 70.50000 0.0000000E+00 + 35.50000 70.50000 0.0000000E+00 + 36.50000 70.50000 0.0000000E+00 + 37.50000 70.50000 0.0000000E+00 + 38.50000 70.50000 0.0000000E+00 + 39.50000 70.50000 0.0000000E+00 + 40.50000 70.50000 0.0000000E+00 + 41.50000 70.50000 0.0000000E+00 + 42.50000 70.50000 0.0000000E+00 + 43.50000 70.50000 0.0000000E+00 + 44.50000 70.50000 4.5692336E-02 + 45.50000 70.50000 4.5692336E-02 + 46.50000 70.50000 0.0000000E+00 + 47.50000 70.50000 0.0000000E+00 + 48.50000 70.50000 0.0000000E+00 + 49.50000 70.50000 0.0000000E+00 + 50.50000 70.50000 0.0000000E+00 + 51.50000 70.50000 0.0000000E+00 + 52.50000 70.50000 0.0000000E+00 + 53.50000 70.50000 0.0000000E+00 + 54.50000 70.50000 0.0000000E+00 + 55.50000 70.50000 0.0000000E+00 + 56.50000 70.50000 0.0000000E+00 + 57.50000 70.50000 0.0000000E+00 + 58.50000 70.50000 0.0000000E+00 + 59.50000 70.50000 0.0000000E+00 + 60.50000 70.50000 0.0000000E+00 + 61.50000 70.50000 0.0000000E+00 + 62.50000 70.50000 0.0000000E+00 + 63.50000 70.50000 0.0000000E+00 + 64.50000 70.50000 0.0000000E+00 + 65.50000 70.50000 0.0000000E+00 + 66.50000 70.50000 0.0000000E+00 + 67.50000 70.50000 0.0000000E+00 + 68.50000 70.50000 0.0000000E+00 + 69.50000 70.50000 0.0000000E+00 + 70.50000 70.50000 0.0000000E+00 + 71.50000 70.50000 0.0000000E+00 + 72.50000 70.50000 0.0000000E+00 + 73.50000 70.50000 0.0000000E+00 + 74.50000 70.50000 0.0000000E+00 + 75.50000 70.50000 0.0000000E+00 + 76.50000 70.50000 0.0000000E+00 + 77.50000 70.50000 0.0000000E+00 + 78.50000 70.50000 0.0000000E+00 + 79.50000 70.50000 0.0000000E+00 + 80.50000 70.50000 0.0000000E+00 + 81.50000 70.50000 0.0000000E+00 + 82.50000 70.50000 0.0000000E+00 + 83.50000 70.50000 0.0000000E+00 + 84.50000 70.50000 0.0000000E+00 + 85.50000 70.50000 0.0000000E+00 + 86.50000 70.50000 0.0000000E+00 + 87.50000 70.50000 0.0000000E+00 + 88.50000 70.50000 0.0000000E+00 + 89.50000 70.50000 0.0000000E+00 + -89.50000 71.50000 0.0000000E+00 + -88.50000 71.50000 0.0000000E+00 + -87.50000 71.50000 0.0000000E+00 + -86.50000 71.50000 0.0000000E+00 + -85.50000 71.50000 0.0000000E+00 + -84.50000 71.50000 0.0000000E+00 + -83.50000 71.50000 0.0000000E+00 + -82.50000 71.50000 0.0000000E+00 + -81.50000 71.50000 0.0000000E+00 + -80.50000 71.50000 0.0000000E+00 + -79.50000 71.50000 0.0000000E+00 + -78.50000 71.50000 0.0000000E+00 + -77.50000 71.50000 0.0000000E+00 + -76.50000 71.50000 0.0000000E+00 + -75.50000 71.50000 0.0000000E+00 + -74.50000 71.50000 0.0000000E+00 + -73.50000 71.50000 0.0000000E+00 + -72.50000 71.50000 0.0000000E+00 + -71.50000 71.50000 0.0000000E+00 + -70.50000 71.50000 0.0000000E+00 + -69.50000 71.50000 0.0000000E+00 + -68.50000 71.50000 0.0000000E+00 + -67.50000 71.50000 0.0000000E+00 + -66.50000 71.50000 0.0000000E+00 + -65.50000 71.50000 0.0000000E+00 + -64.50000 71.50000 0.0000000E+00 + -63.50000 71.50000 0.0000000E+00 + -62.50000 71.50000 0.0000000E+00 + -61.50000 71.50000 0.0000000E+00 + -60.50000 71.50000 0.0000000E+00 + -59.50000 71.50000 0.0000000E+00 + -58.50000 71.50000 0.0000000E+00 + -57.50000 71.50000 0.0000000E+00 + -56.50000 71.50000 0.0000000E+00 + -55.50000 71.50000 0.0000000E+00 + -54.50000 71.50000 0.0000000E+00 + -53.50000 71.50000 0.0000000E+00 + -52.50000 71.50000 0.0000000E+00 + -51.50000 71.50000 0.0000000E+00 + -50.50000 71.50000 0.0000000E+00 + -49.50000 71.50000 0.0000000E+00 + -48.50000 71.50000 0.0000000E+00 + -47.50000 71.50000 0.0000000E+00 + -46.50000 71.50000 0.0000000E+00 + -45.50000 71.50000 0.0000000E+00 + -44.50000 71.50000 0.0000000E+00 + -43.50000 71.50000 0.0000000E+00 + -42.50000 71.50000 0.0000000E+00 + -41.50000 71.50000 0.0000000E+00 + -40.50000 71.50000 0.0000000E+00 + -39.50000 71.50000 0.0000000E+00 + -38.50000 71.50000 0.0000000E+00 + -37.50000 71.50000 0.0000000E+00 + -36.50000 71.50000 0.0000000E+00 + -35.50000 71.50000 0.0000000E+00 + -34.50000 71.50000 0.0000000E+00 + -33.50000 71.50000 0.0000000E+00 + -32.50000 71.50000 0.0000000E+00 + -31.50000 71.50000 0.0000000E+00 + -30.50000 71.50000 0.0000000E+00 + -29.50000 71.50000 0.0000000E+00 + -28.50000 71.50000 0.0000000E+00 + -27.50000 71.50000 0.0000000E+00 + -26.50000 71.50000 0.0000000E+00 + -25.50000 71.50000 0.0000000E+00 + -24.50000 71.50000 0.0000000E+00 + -23.50000 71.50000 0.0000000E+00 + -22.50000 71.50000 0.0000000E+00 + -21.50000 71.50000 0.0000000E+00 + -20.50000 71.50000 0.0000000E+00 + -19.50000 71.50000 0.0000000E+00 + -18.50000 71.50000 0.0000000E+00 + -17.50000 71.50000 0.0000000E+00 + -16.50000 71.50000 0.0000000E+00 + -15.50000 71.50000 0.0000000E+00 + -14.50000 71.50000 0.0000000E+00 + -13.50000 71.50000 0.0000000E+00 + -12.50000 71.50000 0.0000000E+00 + -11.50000 71.50000 0.0000000E+00 + -10.50000 71.50000 0.0000000E+00 + -9.500000 71.50000 0.0000000E+00 + -8.500000 71.50000 0.0000000E+00 + -7.500000 71.50000 0.0000000E+00 + -6.500000 71.50000 0.0000000E+00 + -5.500000 71.50000 0.0000000E+00 + -4.500000 71.50000 0.0000000E+00 + -3.500000 71.50000 0.0000000E+00 + -2.500000 71.50000 0.0000000E+00 + -1.500000 71.50000 0.0000000E+00 + -0.5000000 71.50000 0.0000000E+00 + 0.5000000 71.50000 0.0000000E+00 + 1.500000 71.50000 0.0000000E+00 + 2.500000 71.50000 0.0000000E+00 + 3.500000 71.50000 0.0000000E+00 + 4.500000 71.50000 0.0000000E+00 + 5.500000 71.50000 0.0000000E+00 + 6.500000 71.50000 0.0000000E+00 + 7.500000 71.50000 0.0000000E+00 + 8.500000 71.50000 0.0000000E+00 + 9.500000 71.50000 0.0000000E+00 + 10.50000 71.50000 0.0000000E+00 + 11.50000 71.50000 0.0000000E+00 + 12.50000 71.50000 0.0000000E+00 + 13.50000 71.50000 0.0000000E+00 + 14.50000 71.50000 0.0000000E+00 + 15.50000 71.50000 0.0000000E+00 + 16.50000 71.50000 0.0000000E+00 + 17.50000 71.50000 0.0000000E+00 + 18.50000 71.50000 0.0000000E+00 + 19.50000 71.50000 0.0000000E+00 + 20.50000 71.50000 0.0000000E+00 + 21.50000 71.50000 0.0000000E+00 + 22.50000 71.50000 2.9524496E-02 + 23.50000 71.50000 0.0000000E+00 + 24.50000 71.50000 0.0000000E+00 + 25.50000 71.50000 0.1970230 + 26.50000 71.50000 0.0000000E+00 + 27.50000 71.50000 0.0000000E+00 + 28.50000 71.50000 0.0000000E+00 + 29.50000 71.50000 0.0000000E+00 + 30.50000 71.50000 0.0000000E+00 + 31.50000 71.50000 0.0000000E+00 + 32.50000 71.50000 0.0000000E+00 + 33.50000 71.50000 0.0000000E+00 + 34.50000 71.50000 0.0000000E+00 + 35.50000 71.50000 0.0000000E+00 + 36.50000 71.50000 0.0000000E+00 + 37.50000 71.50000 0.0000000E+00 + 38.50000 71.50000 0.0000000E+00 + 39.50000 71.50000 0.0000000E+00 + 40.50000 71.50000 0.0000000E+00 + 41.50000 71.50000 0.0000000E+00 + 42.50000 71.50000 0.0000000E+00 + 43.50000 71.50000 0.1898363 + 44.50000 71.50000 0.2284617 + 45.50000 71.50000 4.4459697E-02 + 46.50000 71.50000 0.0000000E+00 + 47.50000 71.50000 0.0000000E+00 + 48.50000 71.50000 0.0000000E+00 + 49.50000 71.50000 0.0000000E+00 + 50.50000 71.50000 0.0000000E+00 + 51.50000 71.50000 0.0000000E+00 + 52.50000 71.50000 0.0000000E+00 + 53.50000 71.50000 0.0000000E+00 + 54.50000 71.50000 0.0000000E+00 + 55.50000 71.50000 0.0000000E+00 + 56.50000 71.50000 0.0000000E+00 + 57.50000 71.50000 0.0000000E+00 + 58.50000 71.50000 0.0000000E+00 + 59.50000 71.50000 0.0000000E+00 + 60.50000 71.50000 0.0000000E+00 + 61.50000 71.50000 0.0000000E+00 + 62.50000 71.50000 0.0000000E+00 + 63.50000 71.50000 0.0000000E+00 + 64.50000 71.50000 0.0000000E+00 + 65.50000 71.50000 0.0000000E+00 + 66.50000 71.50000 0.0000000E+00 + 67.50000 71.50000 0.0000000E+00 + 68.50000 71.50000 0.0000000E+00 + 69.50000 71.50000 0.0000000E+00 + 70.50000 71.50000 0.0000000E+00 + 71.50000 71.50000 0.0000000E+00 + 72.50000 71.50000 0.0000000E+00 + 73.50000 71.50000 0.0000000E+00 + 74.50000 71.50000 0.0000000E+00 + 75.50000 71.50000 0.0000000E+00 + 76.50000 71.50000 0.0000000E+00 + 77.50000 71.50000 0.0000000E+00 + 78.50000 71.50000 0.0000000E+00 + 79.50000 71.50000 0.0000000E+00 + 80.50000 71.50000 0.0000000E+00 + 81.50000 71.50000 0.0000000E+00 + 82.50000 71.50000 0.0000000E+00 + 83.50000 71.50000 0.0000000E+00 + 84.50000 71.50000 0.0000000E+00 + 85.50000 71.50000 0.0000000E+00 + 86.50000 71.50000 0.0000000E+00 + 87.50000 71.50000 0.0000000E+00 + 88.50000 71.50000 0.0000000E+00 + 89.50000 71.50000 0.0000000E+00 + -89.50000 72.50000 0.0000000E+00 + -88.50000 72.50000 0.0000000E+00 + -87.50000 72.50000 0.0000000E+00 + -86.50000 72.50000 0.0000000E+00 + -85.50000 72.50000 0.0000000E+00 + -84.50000 72.50000 0.0000000E+00 + -83.50000 72.50000 0.0000000E+00 + -82.50000 72.50000 0.0000000E+00 + -81.50000 72.50000 0.0000000E+00 + -80.50000 72.50000 0.0000000E+00 + -79.50000 72.50000 0.0000000E+00 + -78.50000 72.50000 0.0000000E+00 + -77.50000 72.50000 0.0000000E+00 + -76.50000 72.50000 0.0000000E+00 + -75.50000 72.50000 0.0000000E+00 + -74.50000 72.50000 0.0000000E+00 + -73.50000 72.50000 0.0000000E+00 + -72.50000 72.50000 0.0000000E+00 + -71.50000 72.50000 0.0000000E+00 + -70.50000 72.50000 0.0000000E+00 + -69.50000 72.50000 0.0000000E+00 + -68.50000 72.50000 0.0000000E+00 + -67.50000 72.50000 0.0000000E+00 + -66.50000 72.50000 0.0000000E+00 + -65.50000 72.50000 0.0000000E+00 + -64.50000 72.50000 0.0000000E+00 + -63.50000 72.50000 0.0000000E+00 + -62.50000 72.50000 0.0000000E+00 + -61.50000 72.50000 0.0000000E+00 + -60.50000 72.50000 0.0000000E+00 + -59.50000 72.50000 0.0000000E+00 + -58.50000 72.50000 0.0000000E+00 + -57.50000 72.50000 0.0000000E+00 + -56.50000 72.50000 0.0000000E+00 + -55.50000 72.50000 0.0000000E+00 + -54.50000 72.50000 0.0000000E+00 + -53.50000 72.50000 0.0000000E+00 + -52.50000 72.50000 0.0000000E+00 + -51.50000 72.50000 0.0000000E+00 + -50.50000 72.50000 0.0000000E+00 + -49.50000 72.50000 0.0000000E+00 + -48.50000 72.50000 0.0000000E+00 + -47.50000 72.50000 0.0000000E+00 + -46.50000 72.50000 0.0000000E+00 + -45.50000 72.50000 0.0000000E+00 + -44.50000 72.50000 0.0000000E+00 + -43.50000 72.50000 0.0000000E+00 + -42.50000 72.50000 0.0000000E+00 + -41.50000 72.50000 0.0000000E+00 + -40.50000 72.50000 0.0000000E+00 + -39.50000 72.50000 0.0000000E+00 + -38.50000 72.50000 0.0000000E+00 + -37.50000 72.50000 0.0000000E+00 + -36.50000 72.50000 0.0000000E+00 + -35.50000 72.50000 0.0000000E+00 + -34.50000 72.50000 0.0000000E+00 + -33.50000 72.50000 0.0000000E+00 + -32.50000 72.50000 0.0000000E+00 + -31.50000 72.50000 0.0000000E+00 + -30.50000 72.50000 0.0000000E+00 + -29.50000 72.50000 0.0000000E+00 + -28.50000 72.50000 0.0000000E+00 + -27.50000 72.50000 0.0000000E+00 + -26.50000 72.50000 0.0000000E+00 + -25.50000 72.50000 0.0000000E+00 + -24.50000 72.50000 0.0000000E+00 + -23.50000 72.50000 0.0000000E+00 + -22.50000 72.50000 0.0000000E+00 + -21.50000 72.50000 0.0000000E+00 + -20.50000 72.50000 0.0000000E+00 + -19.50000 72.50000 0.0000000E+00 + -18.50000 72.50000 0.0000000E+00 + -17.50000 72.50000 0.0000000E+00 + -16.50000 72.50000 0.0000000E+00 + -15.50000 72.50000 0.0000000E+00 + -14.50000 72.50000 0.0000000E+00 + -13.50000 72.50000 0.0000000E+00 + -12.50000 72.50000 0.0000000E+00 + -11.50000 72.50000 0.0000000E+00 + -10.50000 72.50000 0.0000000E+00 + -9.500000 72.50000 0.0000000E+00 + -8.500000 72.50000 0.0000000E+00 + -7.500000 72.50000 0.0000000E+00 + -6.500000 72.50000 0.0000000E+00 + -5.500000 72.50000 0.0000000E+00 + -4.500000 72.50000 0.0000000E+00 + -3.500000 72.50000 0.0000000E+00 + -2.500000 72.50000 0.0000000E+00 + -1.500000 72.50000 0.0000000E+00 + -0.5000000 72.50000 0.0000000E+00 + 0.5000000 72.50000 0.0000000E+00 + 1.500000 72.50000 0.0000000E+00 + 2.500000 72.50000 0.0000000E+00 + 3.500000 72.50000 0.0000000E+00 + 4.500000 72.50000 0.0000000E+00 + 5.500000 72.50000 0.0000000E+00 + 6.500000 72.50000 0.0000000E+00 + 7.500000 72.50000 0.0000000E+00 + 8.500000 72.50000 0.0000000E+00 + 9.500000 72.50000 0.0000000E+00 + 10.50000 72.50000 0.0000000E+00 + 11.50000 72.50000 0.0000000E+00 + 12.50000 72.50000 0.0000000E+00 + 13.50000 72.50000 0.0000000E+00 + 14.50000 72.50000 0.0000000E+00 + 15.50000 72.50000 0.0000000E+00 + 16.50000 72.50000 0.0000000E+00 + 17.50000 72.50000 0.0000000E+00 + 18.50000 72.50000 0.0000000E+00 + 19.50000 72.50000 0.0000000E+00 + 20.50000 72.50000 0.0000000E+00 + 21.50000 72.50000 0.0000000E+00 + 22.50000 72.50000 0.0000000E+00 + 23.50000 72.50000 0.0000000E+00 + 24.50000 72.50000 0.0000000E+00 + 25.50000 72.50000 0.0000000E+00 + 26.50000 72.50000 0.2001770 + 27.50000 72.50000 0.1822841 + 28.50000 72.50000 0.2127583 + 29.50000 72.50000 0.0000000E+00 + 30.50000 72.50000 0.0000000E+00 + 31.50000 72.50000 0.0000000E+00 + 32.50000 72.50000 0.0000000E+00 + 33.50000 72.50000 0.0000000E+00 + 34.50000 72.50000 0.0000000E+00 + 35.50000 72.50000 0.0000000E+00 + 36.50000 72.50000 0.0000000E+00 + 37.50000 72.50000 0.0000000E+00 + 38.50000 72.50000 0.0000000E+00 + 39.50000 72.50000 0.0000000E+00 + 40.50000 72.50000 0.0000000E+00 + 41.50000 72.50000 0.0000000E+00 + 42.50000 72.50000 0.0000000E+00 + 43.50000 72.50000 0.0000000E+00 + 44.50000 72.50000 0.0000000E+00 + 45.50000 72.50000 3.9792277E-02 + 46.50000 72.50000 0.0000000E+00 + 47.50000 72.50000 0.0000000E+00 + 48.50000 72.50000 0.0000000E+00 + 49.50000 72.50000 0.0000000E+00 + 50.50000 72.50000 0.0000000E+00 + 51.50000 72.50000 0.0000000E+00 + 52.50000 72.50000 0.0000000E+00 + 53.50000 72.50000 0.0000000E+00 + 54.50000 72.50000 0.0000000E+00 + 55.50000 72.50000 0.0000000E+00 + 56.50000 72.50000 0.0000000E+00 + 57.50000 72.50000 0.0000000E+00 + 58.50000 72.50000 0.0000000E+00 + 59.50000 72.50000 0.0000000E+00 + 60.50000 72.50000 0.0000000E+00 + 61.50000 72.50000 0.0000000E+00 + 62.50000 72.50000 0.0000000E+00 + 63.50000 72.50000 0.0000000E+00 + 64.50000 72.50000 0.0000000E+00 + 65.50000 72.50000 0.0000000E+00 + 66.50000 72.50000 0.0000000E+00 + 67.50000 72.50000 0.0000000E+00 + 68.50000 72.50000 0.0000000E+00 + 69.50000 72.50000 0.0000000E+00 + 70.50000 72.50000 0.0000000E+00 + 71.50000 72.50000 0.0000000E+00 + 72.50000 72.50000 0.0000000E+00 + 73.50000 72.50000 0.0000000E+00 + 74.50000 72.50000 0.0000000E+00 + 75.50000 72.50000 0.0000000E+00 + 76.50000 72.50000 0.0000000E+00 + 77.50000 72.50000 0.0000000E+00 + 78.50000 72.50000 0.0000000E+00 + 79.50000 72.50000 0.0000000E+00 + 80.50000 72.50000 0.0000000E+00 + 81.50000 72.50000 0.0000000E+00 + 82.50000 72.50000 0.0000000E+00 + 83.50000 72.50000 0.0000000E+00 + 84.50000 72.50000 0.0000000E+00 + 85.50000 72.50000 0.0000000E+00 + 86.50000 72.50000 0.0000000E+00 + 87.50000 72.50000 0.0000000E+00 + 88.50000 72.50000 0.0000000E+00 + 89.50000 72.50000 0.0000000E+00 + -89.50000 73.50000 0.0000000E+00 + -88.50000 73.50000 0.0000000E+00 + -87.50000 73.50000 0.0000000E+00 + -86.50000 73.50000 0.0000000E+00 + -85.50000 73.50000 0.0000000E+00 + -84.50000 73.50000 0.0000000E+00 + -83.50000 73.50000 0.0000000E+00 + -82.50000 73.50000 0.0000000E+00 + -81.50000 73.50000 0.0000000E+00 + -80.50000 73.50000 0.0000000E+00 + -79.50000 73.50000 0.0000000E+00 + -78.50000 73.50000 0.0000000E+00 + -77.50000 73.50000 0.0000000E+00 + -76.50000 73.50000 0.0000000E+00 + -75.50000 73.50000 0.0000000E+00 + -74.50000 73.50000 0.0000000E+00 + -73.50000 73.50000 0.0000000E+00 + -72.50000 73.50000 0.0000000E+00 + -71.50000 73.50000 0.0000000E+00 + -70.50000 73.50000 0.0000000E+00 + -69.50000 73.50000 0.0000000E+00 + -68.50000 73.50000 0.0000000E+00 + -67.50000 73.50000 0.0000000E+00 + -66.50000 73.50000 0.0000000E+00 + -65.50000 73.50000 0.0000000E+00 + -64.50000 73.50000 0.0000000E+00 + -63.50000 73.50000 0.0000000E+00 + -62.50000 73.50000 0.0000000E+00 + -61.50000 73.50000 0.0000000E+00 + -60.50000 73.50000 0.0000000E+00 + -59.50000 73.50000 0.0000000E+00 + -58.50000 73.50000 0.0000000E+00 + -57.50000 73.50000 0.0000000E+00 + -56.50000 73.50000 0.0000000E+00 + -55.50000 73.50000 0.0000000E+00 + -54.50000 73.50000 0.0000000E+00 + -53.50000 73.50000 0.0000000E+00 + -52.50000 73.50000 0.0000000E+00 + -51.50000 73.50000 0.0000000E+00 + -50.50000 73.50000 0.0000000E+00 + -49.50000 73.50000 0.0000000E+00 + -48.50000 73.50000 0.0000000E+00 + -47.50000 73.50000 0.0000000E+00 + -46.50000 73.50000 0.0000000E+00 + -45.50000 73.50000 0.0000000E+00 + -44.50000 73.50000 0.0000000E+00 + -43.50000 73.50000 0.0000000E+00 + -42.50000 73.50000 0.0000000E+00 + -41.50000 73.50000 0.0000000E+00 + -40.50000 73.50000 0.0000000E+00 + -39.50000 73.50000 0.0000000E+00 + -38.50000 73.50000 0.0000000E+00 + -37.50000 73.50000 0.0000000E+00 + -36.50000 73.50000 0.0000000E+00 + -35.50000 73.50000 0.0000000E+00 + -34.50000 73.50000 0.0000000E+00 + -33.50000 73.50000 0.0000000E+00 + -32.50000 73.50000 0.0000000E+00 + -31.50000 73.50000 0.0000000E+00 + -30.50000 73.50000 0.0000000E+00 + -29.50000 73.50000 0.0000000E+00 + -28.50000 73.50000 0.0000000E+00 + -27.50000 73.50000 0.0000000E+00 + -26.50000 73.50000 0.0000000E+00 + -25.50000 73.50000 0.0000000E+00 + -24.50000 73.50000 0.0000000E+00 + -23.50000 73.50000 0.0000000E+00 + -22.50000 73.50000 0.0000000E+00 + -21.50000 73.50000 0.0000000E+00 + -20.50000 73.50000 0.0000000E+00 + -19.50000 73.50000 0.0000000E+00 + -18.50000 73.50000 0.0000000E+00 + -17.50000 73.50000 0.0000000E+00 + -16.50000 73.50000 0.0000000E+00 + -15.50000 73.50000 0.0000000E+00 + -14.50000 73.50000 0.0000000E+00 + -13.50000 73.50000 0.0000000E+00 + -12.50000 73.50000 0.0000000E+00 + -11.50000 73.50000 0.0000000E+00 + -10.50000 73.50000 0.0000000E+00 + -9.500000 73.50000 0.0000000E+00 + -8.500000 73.50000 0.0000000E+00 + -7.500000 73.50000 0.0000000E+00 + -6.500000 73.50000 0.0000000E+00 + -5.500000 73.50000 0.0000000E+00 + -4.500000 73.50000 0.0000000E+00 + -3.500000 73.50000 0.0000000E+00 + -2.500000 73.50000 0.0000000E+00 + -1.500000 73.50000 0.0000000E+00 + -0.5000000 73.50000 0.0000000E+00 + 0.5000000 73.50000 0.0000000E+00 + 1.500000 73.50000 0.0000000E+00 + 2.500000 73.50000 0.0000000E+00 + 3.500000 73.50000 0.0000000E+00 + 4.500000 73.50000 0.0000000E+00 + 5.500000 73.50000 0.0000000E+00 + 6.500000 73.50000 0.0000000E+00 + 7.500000 73.50000 0.0000000E+00 + 8.500000 73.50000 0.0000000E+00 + 9.500000 73.50000 0.0000000E+00 + 10.50000 73.50000 0.0000000E+00 + 11.50000 73.50000 0.0000000E+00 + 12.50000 73.50000 0.0000000E+00 + 13.50000 73.50000 0.0000000E+00 + 14.50000 73.50000 0.0000000E+00 + 15.50000 73.50000 0.0000000E+00 + 16.50000 73.50000 0.0000000E+00 + 17.50000 73.50000 0.0000000E+00 + 18.50000 73.50000 0.0000000E+00 + 19.50000 73.50000 0.0000000E+00 + 20.50000 73.50000 0.0000000E+00 + 21.50000 73.50000 0.0000000E+00 + 22.50000 73.50000 0.0000000E+00 + 23.50000 73.50000 0.0000000E+00 + 24.50000 73.50000 0.0000000E+00 + 25.50000 73.50000 0.0000000E+00 + 26.50000 73.50000 0.0000000E+00 + 27.50000 73.50000 0.1822841 + 28.50000 73.50000 0.2127583 + 29.50000 73.50000 0.0000000E+00 + 30.50000 73.50000 0.0000000E+00 + 31.50000 73.50000 0.0000000E+00 + 32.50000 73.50000 0.0000000E+00 + 33.50000 73.50000 0.0000000E+00 + 34.50000 73.50000 0.0000000E+00 + 35.50000 73.50000 0.0000000E+00 + 36.50000 73.50000 0.0000000E+00 + 37.50000 73.50000 0.0000000E+00 + 38.50000 73.50000 0.0000000E+00 + 39.50000 73.50000 0.0000000E+00 + 40.50000 73.50000 0.0000000E+00 + 41.50000 73.50000 0.0000000E+00 + 42.50000 73.50000 0.0000000E+00 + 43.50000 73.50000 0.0000000E+00 + 44.50000 73.50000 0.0000000E+00 + 45.50000 73.50000 4.0267270E-02 + 46.50000 73.50000 0.0000000E+00 + 47.50000 73.50000 0.0000000E+00 + 48.50000 73.50000 0.0000000E+00 + 49.50000 73.50000 0.0000000E+00 + 50.50000 73.50000 0.0000000E+00 + 51.50000 73.50000 0.0000000E+00 + 52.50000 73.50000 0.0000000E+00 + 53.50000 73.50000 0.0000000E+00 + 54.50000 73.50000 0.0000000E+00 + 55.50000 73.50000 0.0000000E+00 + 56.50000 73.50000 0.0000000E+00 + 57.50000 73.50000 0.0000000E+00 + 58.50000 73.50000 0.0000000E+00 + 59.50000 73.50000 0.0000000E+00 + 60.50000 73.50000 0.0000000E+00 + 61.50000 73.50000 0.0000000E+00 + 62.50000 73.50000 0.0000000E+00 + 63.50000 73.50000 0.0000000E+00 + 64.50000 73.50000 0.0000000E+00 + 65.50000 73.50000 0.0000000E+00 + 66.50000 73.50000 0.0000000E+00 + 67.50000 73.50000 0.0000000E+00 + 68.50000 73.50000 0.0000000E+00 + 69.50000 73.50000 0.0000000E+00 + 70.50000 73.50000 0.0000000E+00 + 71.50000 73.50000 0.0000000E+00 + 72.50000 73.50000 0.0000000E+00 + 73.50000 73.50000 0.0000000E+00 + 74.50000 73.50000 0.0000000E+00 + 75.50000 73.50000 0.0000000E+00 + 76.50000 73.50000 0.0000000E+00 + 77.50000 73.50000 0.0000000E+00 + 78.50000 73.50000 0.0000000E+00 + 79.50000 73.50000 0.0000000E+00 + 80.50000 73.50000 0.0000000E+00 + 81.50000 73.50000 0.0000000E+00 + 82.50000 73.50000 0.0000000E+00 + 83.50000 73.50000 0.0000000E+00 + 84.50000 73.50000 0.0000000E+00 + 85.50000 73.50000 0.0000000E+00 + 86.50000 73.50000 0.0000000E+00 + 87.50000 73.50000 0.0000000E+00 + 88.50000 73.50000 0.0000000E+00 + 89.50000 73.50000 0.0000000E+00 + -89.50000 74.50000 0.0000000E+00 + -88.50000 74.50000 0.0000000E+00 + -87.50000 74.50000 0.0000000E+00 + -86.50000 74.50000 0.0000000E+00 + -85.50000 74.50000 0.0000000E+00 + -84.50000 74.50000 0.0000000E+00 + -83.50000 74.50000 0.0000000E+00 + -82.50000 74.50000 0.0000000E+00 + -81.50000 74.50000 0.0000000E+00 + -80.50000 74.50000 0.0000000E+00 + -79.50000 74.50000 0.0000000E+00 + -78.50000 74.50000 0.0000000E+00 + -77.50000 74.50000 0.0000000E+00 + -76.50000 74.50000 0.0000000E+00 + -75.50000 74.50000 0.0000000E+00 + -74.50000 74.50000 0.0000000E+00 + -73.50000 74.50000 0.0000000E+00 + -72.50000 74.50000 0.0000000E+00 + -71.50000 74.50000 0.0000000E+00 + -70.50000 74.50000 0.0000000E+00 + -69.50000 74.50000 0.0000000E+00 + -68.50000 74.50000 0.0000000E+00 + -67.50000 74.50000 0.0000000E+00 + -66.50000 74.50000 0.0000000E+00 + -65.50000 74.50000 0.0000000E+00 + -64.50000 74.50000 0.0000000E+00 + -63.50000 74.50000 0.0000000E+00 + -62.50000 74.50000 0.0000000E+00 + -61.50000 74.50000 0.0000000E+00 + -60.50000 74.50000 0.0000000E+00 + -59.50000 74.50000 0.0000000E+00 + -58.50000 74.50000 0.0000000E+00 + -57.50000 74.50000 0.0000000E+00 + -56.50000 74.50000 0.0000000E+00 + -55.50000 74.50000 0.0000000E+00 + -54.50000 74.50000 0.0000000E+00 + -53.50000 74.50000 0.0000000E+00 + -52.50000 74.50000 0.0000000E+00 + -51.50000 74.50000 0.0000000E+00 + -50.50000 74.50000 0.0000000E+00 + -49.50000 74.50000 0.0000000E+00 + -48.50000 74.50000 0.0000000E+00 + -47.50000 74.50000 0.0000000E+00 + -46.50000 74.50000 0.0000000E+00 + -45.50000 74.50000 0.0000000E+00 + -44.50000 74.50000 0.0000000E+00 + -43.50000 74.50000 0.0000000E+00 + -42.50000 74.50000 0.0000000E+00 + -41.50000 74.50000 0.0000000E+00 + -40.50000 74.50000 0.0000000E+00 + -39.50000 74.50000 0.0000000E+00 + -38.50000 74.50000 0.0000000E+00 + -37.50000 74.50000 0.0000000E+00 + -36.50000 74.50000 0.0000000E+00 + -35.50000 74.50000 0.0000000E+00 + -34.50000 74.50000 0.0000000E+00 + -33.50000 74.50000 0.0000000E+00 + -32.50000 74.50000 0.0000000E+00 + -31.50000 74.50000 0.0000000E+00 + -30.50000 74.50000 0.0000000E+00 + -29.50000 74.50000 0.0000000E+00 + -28.50000 74.50000 0.0000000E+00 + -27.50000 74.50000 0.0000000E+00 + -26.50000 74.50000 0.0000000E+00 + -25.50000 74.50000 0.0000000E+00 + -24.50000 74.50000 0.0000000E+00 + -23.50000 74.50000 0.0000000E+00 + -22.50000 74.50000 0.0000000E+00 + -21.50000 74.50000 0.0000000E+00 + -20.50000 74.50000 0.0000000E+00 + -19.50000 74.50000 0.0000000E+00 + -18.50000 74.50000 0.0000000E+00 + -17.50000 74.50000 0.0000000E+00 + -16.50000 74.50000 0.0000000E+00 + -15.50000 74.50000 0.0000000E+00 + -14.50000 74.50000 0.0000000E+00 + -13.50000 74.50000 0.0000000E+00 + -12.50000 74.50000 0.0000000E+00 + -11.50000 74.50000 0.0000000E+00 + -10.50000 74.50000 0.0000000E+00 + -9.500000 74.50000 0.0000000E+00 + -8.500000 74.50000 0.0000000E+00 + -7.500000 74.50000 0.0000000E+00 + -6.500000 74.50000 0.0000000E+00 + -5.500000 74.50000 0.0000000E+00 + -4.500000 74.50000 0.0000000E+00 + -3.500000 74.50000 0.0000000E+00 + -2.500000 74.50000 0.0000000E+00 + -1.500000 74.50000 0.0000000E+00 + -0.5000000 74.50000 0.0000000E+00 + 0.5000000 74.50000 0.0000000E+00 + 1.500000 74.50000 0.0000000E+00 + 2.500000 74.50000 0.0000000E+00 + 3.500000 74.50000 0.0000000E+00 + 4.500000 74.50000 0.0000000E+00 + 5.500000 74.50000 0.0000000E+00 + 6.500000 74.50000 0.0000000E+00 + 7.500000 74.50000 0.0000000E+00 + 8.500000 74.50000 0.0000000E+00 + 9.500000 74.50000 0.0000000E+00 + 10.50000 74.50000 0.0000000E+00 + 11.50000 74.50000 0.0000000E+00 + 12.50000 74.50000 0.0000000E+00 + 13.50000 74.50000 0.0000000E+00 + 14.50000 74.50000 0.0000000E+00 + 15.50000 74.50000 0.0000000E+00 + 16.50000 74.50000 0.0000000E+00 + 17.50000 74.50000 0.0000000E+00 + 18.50000 74.50000 0.0000000E+00 + 19.50000 74.50000 0.0000000E+00 + 20.50000 74.50000 0.0000000E+00 + 21.50000 74.50000 0.0000000E+00 + 22.50000 74.50000 0.0000000E+00 + 23.50000 74.50000 0.0000000E+00 + 24.50000 74.50000 0.0000000E+00 + 25.50000 74.50000 0.0000000E+00 + 26.50000 74.50000 0.0000000E+00 + 27.50000 74.50000 0.0000000E+00 + 28.50000 74.50000 0.0000000E+00 + 29.50000 74.50000 0.0000000E+00 + 30.50000 74.50000 0.0000000E+00 + 31.50000 74.50000 0.0000000E+00 + 32.50000 74.50000 0.0000000E+00 + 33.50000 74.50000 0.0000000E+00 + 34.50000 74.50000 0.0000000E+00 + 35.50000 74.50000 0.0000000E+00 + 36.50000 74.50000 0.0000000E+00 + 37.50000 74.50000 0.0000000E+00 + 38.50000 74.50000 4.6033833E-07 + 39.50000 74.50000 7.0337602E-04 + 40.50000 74.50000 0.0000000E+00 + 41.50000 74.50000 0.0000000E+00 + 42.50000 74.50000 0.0000000E+00 + 43.50000 74.50000 0.0000000E+00 + 44.50000 74.50000 0.0000000E+00 + 45.50000 74.50000 0.0000000E+00 + 46.50000 74.50000 0.0000000E+00 + 47.50000 74.50000 0.0000000E+00 + 48.50000 74.50000 0.0000000E+00 + 49.50000 74.50000 0.0000000E+00 + 50.50000 74.50000 0.0000000E+00 + 51.50000 74.50000 0.0000000E+00 + 52.50000 74.50000 0.0000000E+00 + 53.50000 74.50000 0.0000000E+00 + 54.50000 74.50000 0.0000000E+00 + 55.50000 74.50000 0.0000000E+00 + 56.50000 74.50000 0.0000000E+00 + 57.50000 74.50000 0.0000000E+00 + 58.50000 74.50000 0.0000000E+00 + 59.50000 74.50000 0.0000000E+00 + 60.50000 74.50000 0.0000000E+00 + 61.50000 74.50000 0.0000000E+00 + 62.50000 74.50000 0.0000000E+00 + 63.50000 74.50000 0.0000000E+00 + 64.50000 74.50000 0.0000000E+00 + 65.50000 74.50000 0.0000000E+00 + 66.50000 74.50000 0.0000000E+00 + 67.50000 74.50000 0.0000000E+00 + 68.50000 74.50000 0.0000000E+00 + 69.50000 74.50000 0.0000000E+00 + 70.50000 74.50000 0.0000000E+00 + 71.50000 74.50000 0.0000000E+00 + 72.50000 74.50000 0.0000000E+00 + 73.50000 74.50000 0.0000000E+00 + 74.50000 74.50000 0.0000000E+00 + 75.50000 74.50000 0.0000000E+00 + 76.50000 74.50000 0.0000000E+00 + 77.50000 74.50000 0.0000000E+00 + 78.50000 74.50000 0.0000000E+00 + 79.50000 74.50000 0.0000000E+00 + 80.50000 74.50000 0.0000000E+00 + 81.50000 74.50000 0.0000000E+00 + 82.50000 74.50000 0.0000000E+00 + 83.50000 74.50000 0.0000000E+00 + 84.50000 74.50000 0.0000000E+00 + 85.50000 74.50000 0.0000000E+00 + 86.50000 74.50000 0.0000000E+00 + 87.50000 74.50000 0.0000000E+00 + 88.50000 74.50000 0.0000000E+00 + 89.50000 74.50000 0.0000000E+00 + -89.50000 75.50000 0.0000000E+00 + -88.50000 75.50000 0.0000000E+00 + -87.50000 75.50000 0.0000000E+00 + -86.50000 75.50000 0.0000000E+00 + -85.50000 75.50000 0.0000000E+00 + -84.50000 75.50000 0.0000000E+00 + -83.50000 75.50000 0.0000000E+00 + -82.50000 75.50000 0.0000000E+00 + -81.50000 75.50000 0.0000000E+00 + -80.50000 75.50000 0.0000000E+00 + -79.50000 75.50000 0.0000000E+00 + -78.50000 75.50000 0.0000000E+00 + -77.50000 75.50000 0.0000000E+00 + -76.50000 75.50000 0.0000000E+00 + -75.50000 75.50000 0.0000000E+00 + -74.50000 75.50000 0.0000000E+00 + -73.50000 75.50000 0.0000000E+00 + -72.50000 75.50000 0.0000000E+00 + -71.50000 75.50000 0.0000000E+00 + -70.50000 75.50000 0.0000000E+00 + -69.50000 75.50000 0.0000000E+00 + -68.50000 75.50000 0.0000000E+00 + -67.50000 75.50000 0.0000000E+00 + -66.50000 75.50000 0.0000000E+00 + -65.50000 75.50000 0.0000000E+00 + -64.50000 75.50000 0.0000000E+00 + -63.50000 75.50000 0.0000000E+00 + -62.50000 75.50000 0.0000000E+00 + -61.50000 75.50000 0.0000000E+00 + -60.50000 75.50000 0.0000000E+00 + -59.50000 75.50000 0.0000000E+00 + -58.50000 75.50000 0.0000000E+00 + -57.50000 75.50000 0.0000000E+00 + -56.50000 75.50000 0.0000000E+00 + -55.50000 75.50000 0.0000000E+00 + -54.50000 75.50000 0.0000000E+00 + -53.50000 75.50000 0.0000000E+00 + -52.50000 75.50000 0.0000000E+00 + -51.50000 75.50000 0.0000000E+00 + -50.50000 75.50000 0.0000000E+00 + -49.50000 75.50000 0.0000000E+00 + -48.50000 75.50000 0.0000000E+00 + -47.50000 75.50000 0.0000000E+00 + -46.50000 75.50000 0.0000000E+00 + -45.50000 75.50000 0.0000000E+00 + -44.50000 75.50000 0.0000000E+00 + -43.50000 75.50000 0.0000000E+00 + -42.50000 75.50000 0.0000000E+00 + -41.50000 75.50000 0.0000000E+00 + -40.50000 75.50000 0.0000000E+00 + -39.50000 75.50000 0.0000000E+00 + -38.50000 75.50000 0.0000000E+00 + -37.50000 75.50000 0.0000000E+00 + -36.50000 75.50000 0.0000000E+00 + -35.50000 75.50000 0.0000000E+00 + -34.50000 75.50000 0.0000000E+00 + -33.50000 75.50000 0.0000000E+00 + -32.50000 75.50000 0.0000000E+00 + -31.50000 75.50000 0.0000000E+00 + -30.50000 75.50000 0.0000000E+00 + -29.50000 75.50000 0.0000000E+00 + -28.50000 75.50000 0.0000000E+00 + -27.50000 75.50000 0.0000000E+00 + -26.50000 75.50000 0.0000000E+00 + -25.50000 75.50000 0.0000000E+00 + -24.50000 75.50000 0.0000000E+00 + -23.50000 75.50000 0.0000000E+00 + -22.50000 75.50000 0.0000000E+00 + -21.50000 75.50000 0.0000000E+00 + -20.50000 75.50000 0.0000000E+00 + -19.50000 75.50000 0.0000000E+00 + -18.50000 75.50000 0.0000000E+00 + -17.50000 75.50000 0.0000000E+00 + -16.50000 75.50000 0.0000000E+00 + -15.50000 75.50000 0.0000000E+00 + -14.50000 75.50000 0.0000000E+00 + -13.50000 75.50000 0.0000000E+00 + -12.50000 75.50000 0.0000000E+00 + -11.50000 75.50000 0.0000000E+00 + -10.50000 75.50000 0.0000000E+00 + -9.500000 75.50000 0.0000000E+00 + -8.500000 75.50000 0.0000000E+00 + -7.500000 75.50000 0.0000000E+00 + -6.500000 75.50000 0.0000000E+00 + -5.500000 75.50000 0.0000000E+00 + -4.500000 75.50000 0.0000000E+00 + -3.500000 75.50000 0.0000000E+00 + -2.500000 75.50000 0.0000000E+00 + -1.500000 75.50000 0.0000000E+00 + -0.5000000 75.50000 0.0000000E+00 + 0.5000000 75.50000 0.0000000E+00 + 1.500000 75.50000 0.0000000E+00 + 2.500000 75.50000 0.0000000E+00 + 3.500000 75.50000 0.0000000E+00 + 4.500000 75.50000 0.0000000E+00 + 5.500000 75.50000 0.0000000E+00 + 6.500000 75.50000 0.0000000E+00 + 7.500000 75.50000 0.0000000E+00 + 8.500000 75.50000 0.0000000E+00 + 9.500000 75.50000 0.0000000E+00 + 10.50000 75.50000 0.0000000E+00 + 11.50000 75.50000 0.0000000E+00 + 12.50000 75.50000 0.0000000E+00 + 13.50000 75.50000 0.0000000E+00 + 14.50000 75.50000 0.0000000E+00 + 15.50000 75.50000 0.0000000E+00 + 16.50000 75.50000 0.0000000E+00 + 17.50000 75.50000 0.0000000E+00 + 18.50000 75.50000 0.0000000E+00 + 19.50000 75.50000 0.0000000E+00 + 20.50000 75.50000 0.0000000E+00 + 21.50000 75.50000 0.0000000E+00 + 22.50000 75.50000 0.0000000E+00 + 23.50000 75.50000 0.0000000E+00 + 24.50000 75.50000 0.0000000E+00 + 25.50000 75.50000 0.0000000E+00 + 26.50000 75.50000 0.0000000E+00 + 27.50000 75.50000 0.0000000E+00 + 28.50000 75.50000 0.0000000E+00 + 29.50000 75.50000 0.0000000E+00 + 30.50000 75.50000 0.0000000E+00 + 31.50000 75.50000 0.0000000E+00 + 32.50000 75.50000 0.0000000E+00 + 33.50000 75.50000 0.0000000E+00 + 34.50000 75.50000 0.0000000E+00 + 35.50000 75.50000 0.0000000E+00 + 36.50000 75.50000 0.0000000E+00 + 37.50000 75.50000 3.8103070E-04 + 38.50000 75.50000 2.1980501E-05 + 39.50000 75.50000 0.0000000E+00 + 40.50000 75.50000 0.0000000E+00 + 41.50000 75.50000 0.0000000E+00 + 42.50000 75.50000 0.0000000E+00 + 43.50000 75.50000 0.0000000E+00 + 44.50000 75.50000 0.0000000E+00 + 45.50000 75.50000 0.0000000E+00 + 46.50000 75.50000 0.0000000E+00 + 47.50000 75.50000 0.0000000E+00 + 48.50000 75.50000 0.0000000E+00 + 49.50000 75.50000 0.0000000E+00 + 50.50000 75.50000 0.0000000E+00 + 51.50000 75.50000 0.0000000E+00 + 52.50000 75.50000 0.0000000E+00 + 53.50000 75.50000 0.0000000E+00 + 54.50000 75.50000 0.0000000E+00 + 55.50000 75.50000 0.0000000E+00 + 56.50000 75.50000 0.0000000E+00 + 57.50000 75.50000 0.0000000E+00 + 58.50000 75.50000 0.0000000E+00 + 59.50000 75.50000 0.0000000E+00 + 60.50000 75.50000 0.0000000E+00 + 61.50000 75.50000 0.0000000E+00 + 62.50000 75.50000 0.0000000E+00 + 63.50000 75.50000 0.0000000E+00 + 64.50000 75.50000 0.0000000E+00 + 65.50000 75.50000 0.0000000E+00 + 66.50000 75.50000 0.0000000E+00 + 67.50000 75.50000 0.0000000E+00 + 68.50000 75.50000 0.0000000E+00 + 69.50000 75.50000 0.0000000E+00 + 70.50000 75.50000 0.0000000E+00 + 71.50000 75.50000 0.0000000E+00 + 72.50000 75.50000 0.0000000E+00 + 73.50000 75.50000 0.0000000E+00 + 74.50000 75.50000 0.0000000E+00 + 75.50000 75.50000 0.0000000E+00 + 76.50000 75.50000 0.0000000E+00 + 77.50000 75.50000 0.0000000E+00 + 78.50000 75.50000 0.0000000E+00 + 79.50000 75.50000 0.0000000E+00 + 80.50000 75.50000 0.0000000E+00 + 81.50000 75.50000 0.0000000E+00 + 82.50000 75.50000 0.0000000E+00 + 83.50000 75.50000 0.0000000E+00 + 84.50000 75.50000 0.0000000E+00 + 85.50000 75.50000 0.0000000E+00 + 86.50000 75.50000 0.0000000E+00 + 87.50000 75.50000 0.0000000E+00 + 88.50000 75.50000 0.0000000E+00 + 89.50000 75.50000 0.0000000E+00 + -89.50000 76.50000 0.0000000E+00 + -88.50000 76.50000 0.0000000E+00 + -87.50000 76.50000 0.0000000E+00 + -86.50000 76.50000 0.0000000E+00 + -85.50000 76.50000 0.0000000E+00 + -84.50000 76.50000 0.0000000E+00 + -83.50000 76.50000 0.0000000E+00 + -82.50000 76.50000 0.0000000E+00 + -81.50000 76.50000 0.0000000E+00 + -80.50000 76.50000 0.0000000E+00 + -79.50000 76.50000 0.0000000E+00 + -78.50000 76.50000 0.0000000E+00 + -77.50000 76.50000 0.0000000E+00 + -76.50000 76.50000 0.0000000E+00 + -75.50000 76.50000 0.0000000E+00 + -74.50000 76.50000 0.0000000E+00 + -73.50000 76.50000 0.0000000E+00 + -72.50000 76.50000 0.0000000E+00 + -71.50000 76.50000 0.0000000E+00 + -70.50000 76.50000 0.0000000E+00 + -69.50000 76.50000 0.0000000E+00 + -68.50000 76.50000 0.0000000E+00 + -67.50000 76.50000 0.0000000E+00 + -66.50000 76.50000 0.0000000E+00 + -65.50000 76.50000 0.0000000E+00 + -64.50000 76.50000 0.0000000E+00 + -63.50000 76.50000 0.0000000E+00 + -62.50000 76.50000 0.0000000E+00 + -61.50000 76.50000 0.0000000E+00 + -60.50000 76.50000 0.0000000E+00 + -59.50000 76.50000 0.0000000E+00 + -58.50000 76.50000 0.0000000E+00 + -57.50000 76.50000 0.0000000E+00 + -56.50000 76.50000 0.0000000E+00 + -55.50000 76.50000 0.0000000E+00 + -54.50000 76.50000 0.0000000E+00 + -53.50000 76.50000 0.0000000E+00 + -52.50000 76.50000 0.0000000E+00 + -51.50000 76.50000 0.0000000E+00 + -50.50000 76.50000 0.0000000E+00 + -49.50000 76.50000 0.0000000E+00 + -48.50000 76.50000 0.0000000E+00 + -47.50000 76.50000 0.0000000E+00 + -46.50000 76.50000 0.0000000E+00 + -45.50000 76.50000 0.0000000E+00 + -44.50000 76.50000 0.0000000E+00 + -43.50000 76.50000 0.0000000E+00 + -42.50000 76.50000 0.0000000E+00 + -41.50000 76.50000 0.0000000E+00 + -40.50000 76.50000 0.0000000E+00 + -39.50000 76.50000 0.0000000E+00 + -38.50000 76.50000 0.0000000E+00 + -37.50000 76.50000 0.0000000E+00 + -36.50000 76.50000 0.0000000E+00 + -35.50000 76.50000 0.0000000E+00 + -34.50000 76.50000 0.0000000E+00 + -33.50000 76.50000 0.0000000E+00 + -32.50000 76.50000 0.0000000E+00 + -31.50000 76.50000 0.0000000E+00 + -30.50000 76.50000 0.0000000E+00 + -29.50000 76.50000 0.0000000E+00 + -28.50000 76.50000 0.0000000E+00 + -27.50000 76.50000 0.0000000E+00 + -26.50000 76.50000 0.0000000E+00 + -25.50000 76.50000 0.0000000E+00 + -24.50000 76.50000 0.0000000E+00 + -23.50000 76.50000 0.0000000E+00 + -22.50000 76.50000 0.0000000E+00 + -21.50000 76.50000 0.0000000E+00 + -20.50000 76.50000 0.0000000E+00 + -19.50000 76.50000 0.0000000E+00 + -18.50000 76.50000 0.0000000E+00 + -17.50000 76.50000 0.0000000E+00 + -16.50000 76.50000 0.0000000E+00 + -15.50000 76.50000 0.0000000E+00 + -14.50000 76.50000 0.0000000E+00 + -13.50000 76.50000 0.0000000E+00 + -12.50000 76.50000 0.0000000E+00 + -11.50000 76.50000 0.0000000E+00 + -10.50000 76.50000 0.0000000E+00 + -9.500000 76.50000 0.0000000E+00 + -8.500000 76.50000 0.0000000E+00 + -7.500000 76.50000 0.0000000E+00 + -6.500000 76.50000 0.0000000E+00 + -5.500000 76.50000 0.0000000E+00 + -4.500000 76.50000 0.0000000E+00 + -3.500000 76.50000 0.0000000E+00 + -2.500000 76.50000 0.0000000E+00 + -1.500000 76.50000 0.0000000E+00 + -0.5000000 76.50000 0.0000000E+00 + 0.5000000 76.50000 0.0000000E+00 + 1.500000 76.50000 0.0000000E+00 + 2.500000 76.50000 0.0000000E+00 + 3.500000 76.50000 0.0000000E+00 + 4.500000 76.50000 0.0000000E+00 + 5.500000 76.50000 0.0000000E+00 + 6.500000 76.50000 0.0000000E+00 + 7.500000 76.50000 0.0000000E+00 + 8.500000 76.50000 0.0000000E+00 + 9.500000 76.50000 0.0000000E+00 + 10.50000 76.50000 0.0000000E+00 + 11.50000 76.50000 0.0000000E+00 + 12.50000 76.50000 0.0000000E+00 + 13.50000 76.50000 0.0000000E+00 + 14.50000 76.50000 0.0000000E+00 + 15.50000 76.50000 0.0000000E+00 + 16.50000 76.50000 0.0000000E+00 + 17.50000 76.50000 0.0000000E+00 + 18.50000 76.50000 0.0000000E+00 + 19.50000 76.50000 0.0000000E+00 + 20.50000 76.50000 0.0000000E+00 + 21.50000 76.50000 0.0000000E+00 + 22.50000 76.50000 0.0000000E+00 + 23.50000 76.50000 0.0000000E+00 + 24.50000 76.50000 0.0000000E+00 + 25.50000 76.50000 0.0000000E+00 + 26.50000 76.50000 0.0000000E+00 + 27.50000 76.50000 0.0000000E+00 + 28.50000 76.50000 0.0000000E+00 + 29.50000 76.50000 0.0000000E+00 + 30.50000 76.50000 0.0000000E+00 + 31.50000 76.50000 0.0000000E+00 + 32.50000 76.50000 0.0000000E+00 + 33.50000 76.50000 0.0000000E+00 + 34.50000 76.50000 0.0000000E+00 + 35.50000 76.50000 0.0000000E+00 + 36.50000 76.50000 4.3353830E-03 + 37.50000 76.50000 4.6907114E-03 + 38.50000 76.50000 0.0000000E+00 + 39.50000 76.50000 0.0000000E+00 + 40.50000 76.50000 0.0000000E+00 + 41.50000 76.50000 0.0000000E+00 + 42.50000 76.50000 0.0000000E+00 + 43.50000 76.50000 0.0000000E+00 + 44.50000 76.50000 0.0000000E+00 + 45.50000 76.50000 4.5903932E-02 + 46.50000 76.50000 0.0000000E+00 + 47.50000 76.50000 0.0000000E+00 + 48.50000 76.50000 0.0000000E+00 + 49.50000 76.50000 0.0000000E+00 + 50.50000 76.50000 0.0000000E+00 + 51.50000 76.50000 0.0000000E+00 + 52.50000 76.50000 0.0000000E+00 + 53.50000 76.50000 0.0000000E+00 + 54.50000 76.50000 0.0000000E+00 + 55.50000 76.50000 0.0000000E+00 + 56.50000 76.50000 0.0000000E+00 + 57.50000 76.50000 0.0000000E+00 + 58.50000 76.50000 0.0000000E+00 + 59.50000 76.50000 0.0000000E+00 + 60.50000 76.50000 0.0000000E+00 + 61.50000 76.50000 0.0000000E+00 + 62.50000 76.50000 0.0000000E+00 + 63.50000 76.50000 0.0000000E+00 + 64.50000 76.50000 0.0000000E+00 + 65.50000 76.50000 0.0000000E+00 + 66.50000 76.50000 0.0000000E+00 + 67.50000 76.50000 0.0000000E+00 + 68.50000 76.50000 0.0000000E+00 + 69.50000 76.50000 0.0000000E+00 + 70.50000 76.50000 0.0000000E+00 + 71.50000 76.50000 0.0000000E+00 + 72.50000 76.50000 0.0000000E+00 + 73.50000 76.50000 0.0000000E+00 + 74.50000 76.50000 0.0000000E+00 + 75.50000 76.50000 0.0000000E+00 + 76.50000 76.50000 0.0000000E+00 + 77.50000 76.50000 0.0000000E+00 + 78.50000 76.50000 0.0000000E+00 + 79.50000 76.50000 0.0000000E+00 + 80.50000 76.50000 0.0000000E+00 + 81.50000 76.50000 0.0000000E+00 + 82.50000 76.50000 0.0000000E+00 + 83.50000 76.50000 0.0000000E+00 + 84.50000 76.50000 0.0000000E+00 + 85.50000 76.50000 0.0000000E+00 + 86.50000 76.50000 0.0000000E+00 + 87.50000 76.50000 0.0000000E+00 + 88.50000 76.50000 0.0000000E+00 + 89.50000 76.50000 0.0000000E+00 + -89.50000 77.50000 0.0000000E+00 + -88.50000 77.50000 0.0000000E+00 + -87.50000 77.50000 0.0000000E+00 + -86.50000 77.50000 0.0000000E+00 + -85.50000 77.50000 0.0000000E+00 + -84.50000 77.50000 0.0000000E+00 + -83.50000 77.50000 0.0000000E+00 + -82.50000 77.50000 0.0000000E+00 + -81.50000 77.50000 0.0000000E+00 + -80.50000 77.50000 0.0000000E+00 + -79.50000 77.50000 0.0000000E+00 + -78.50000 77.50000 0.0000000E+00 + -77.50000 77.50000 0.0000000E+00 + -76.50000 77.50000 0.0000000E+00 + -75.50000 77.50000 0.0000000E+00 + -74.50000 77.50000 0.0000000E+00 + -73.50000 77.50000 0.0000000E+00 + -72.50000 77.50000 0.0000000E+00 + -71.50000 77.50000 0.0000000E+00 + -70.50000 77.50000 0.0000000E+00 + -69.50000 77.50000 0.0000000E+00 + -68.50000 77.50000 0.0000000E+00 + -67.50000 77.50000 0.0000000E+00 + -66.50000 77.50000 0.0000000E+00 + -65.50000 77.50000 0.0000000E+00 + -64.50000 77.50000 0.0000000E+00 + -63.50000 77.50000 0.0000000E+00 + -62.50000 77.50000 0.0000000E+00 + -61.50000 77.50000 0.0000000E+00 + -60.50000 77.50000 0.0000000E+00 + -59.50000 77.50000 0.0000000E+00 + -58.50000 77.50000 0.0000000E+00 + -57.50000 77.50000 0.0000000E+00 + -56.50000 77.50000 0.0000000E+00 + -55.50000 77.50000 0.0000000E+00 + -54.50000 77.50000 0.0000000E+00 + -53.50000 77.50000 0.0000000E+00 + -52.50000 77.50000 0.0000000E+00 + -51.50000 77.50000 0.0000000E+00 + -50.50000 77.50000 0.0000000E+00 + -49.50000 77.50000 0.0000000E+00 + -48.50000 77.50000 0.0000000E+00 + -47.50000 77.50000 0.0000000E+00 + -46.50000 77.50000 0.0000000E+00 + -45.50000 77.50000 0.0000000E+00 + -44.50000 77.50000 0.0000000E+00 + -43.50000 77.50000 0.0000000E+00 + -42.50000 77.50000 0.0000000E+00 + -41.50000 77.50000 0.0000000E+00 + -40.50000 77.50000 0.0000000E+00 + -39.50000 77.50000 0.0000000E+00 + -38.50000 77.50000 0.0000000E+00 + -37.50000 77.50000 0.0000000E+00 + -36.50000 77.50000 0.0000000E+00 + -35.50000 77.50000 0.0000000E+00 + -34.50000 77.50000 0.0000000E+00 + -33.50000 77.50000 0.0000000E+00 + -32.50000 77.50000 0.0000000E+00 + -31.50000 77.50000 0.0000000E+00 + -30.50000 77.50000 0.0000000E+00 + -29.50000 77.50000 0.0000000E+00 + -28.50000 77.50000 0.0000000E+00 + -27.50000 77.50000 0.0000000E+00 + -26.50000 77.50000 0.0000000E+00 + -25.50000 77.50000 0.0000000E+00 + -24.50000 77.50000 0.0000000E+00 + -23.50000 77.50000 0.0000000E+00 + -22.50000 77.50000 0.0000000E+00 + -21.50000 77.50000 0.0000000E+00 + -20.50000 77.50000 0.0000000E+00 + -19.50000 77.50000 0.0000000E+00 + -18.50000 77.50000 0.0000000E+00 + -17.50000 77.50000 0.0000000E+00 + -16.50000 77.50000 0.0000000E+00 + -15.50000 77.50000 0.0000000E+00 + -14.50000 77.50000 0.0000000E+00 + -13.50000 77.50000 0.0000000E+00 + -12.50000 77.50000 0.0000000E+00 + -11.50000 77.50000 0.0000000E+00 + -10.50000 77.50000 0.0000000E+00 + -9.500000 77.50000 0.0000000E+00 + -8.500000 77.50000 0.0000000E+00 + -7.500000 77.50000 0.0000000E+00 + -6.500000 77.50000 0.0000000E+00 + -5.500000 77.50000 0.0000000E+00 + -4.500000 77.50000 0.0000000E+00 + -3.500000 77.50000 0.0000000E+00 + -2.500000 77.50000 0.0000000E+00 + -1.500000 77.50000 0.0000000E+00 + -0.5000000 77.50000 0.0000000E+00 + 0.5000000 77.50000 0.0000000E+00 + 1.500000 77.50000 0.0000000E+00 + 2.500000 77.50000 0.0000000E+00 + 3.500000 77.50000 0.0000000E+00 + 4.500000 77.50000 0.0000000E+00 + 5.500000 77.50000 0.0000000E+00 + 6.500000 77.50000 0.0000000E+00 + 7.500000 77.50000 0.0000000E+00 + 8.500000 77.50000 0.0000000E+00 + 9.500000 77.50000 0.0000000E+00 + 10.50000 77.50000 0.0000000E+00 + 11.50000 77.50000 0.0000000E+00 + 12.50000 77.50000 0.0000000E+00 + 13.50000 77.50000 0.0000000E+00 + 14.50000 77.50000 0.0000000E+00 + 15.50000 77.50000 0.0000000E+00 + 16.50000 77.50000 0.0000000E+00 + 17.50000 77.50000 0.0000000E+00 + 18.50000 77.50000 0.0000000E+00 + 19.50000 77.50000 0.0000000E+00 + 20.50000 77.50000 0.0000000E+00 + 21.50000 77.50000 0.0000000E+00 + 22.50000 77.50000 0.0000000E+00 + 23.50000 77.50000 0.0000000E+00 + 24.50000 77.50000 0.0000000E+00 + 25.50000 77.50000 0.0000000E+00 + 26.50000 77.50000 0.0000000E+00 + 27.50000 77.50000 0.0000000E+00 + 28.50000 77.50000 0.0000000E+00 + 29.50000 77.50000 0.0000000E+00 + 30.50000 77.50000 0.0000000E+00 + 31.50000 77.50000 0.0000000E+00 + 32.50000 77.50000 0.0000000E+00 + 33.50000 77.50000 0.0000000E+00 + 34.50000 77.50000 0.0000000E+00 + 35.50000 77.50000 1.4874758E-05 + 36.50000 77.50000 3.6145656E-03 + 37.50000 77.50000 1.2192982E-02 + 38.50000 77.50000 0.0000000E+00 + 39.50000 77.50000 0.0000000E+00 + 40.50000 77.50000 0.0000000E+00 + 41.50000 77.50000 0.0000000E+00 + 42.50000 77.50000 0.0000000E+00 + 43.50000 77.50000 0.0000000E+00 + 44.50000 77.50000 0.0000000E+00 + 45.50000 77.50000 0.0000000E+00 + 46.50000 77.50000 4.3959141E-02 + 47.50000 77.50000 0.0000000E+00 + 48.50000 77.50000 0.0000000E+00 + 49.50000 77.50000 0.0000000E+00 + 50.50000 77.50000 0.0000000E+00 + 51.50000 77.50000 0.0000000E+00 + 52.50000 77.50000 0.0000000E+00 + 53.50000 77.50000 0.0000000E+00 + 54.50000 77.50000 0.0000000E+00 + 55.50000 77.50000 0.0000000E+00 + 56.50000 77.50000 0.0000000E+00 + 57.50000 77.50000 0.0000000E+00 + 58.50000 77.50000 0.0000000E+00 + 59.50000 77.50000 0.0000000E+00 + 60.50000 77.50000 0.0000000E+00 + 61.50000 77.50000 0.0000000E+00 + 62.50000 77.50000 0.0000000E+00 + 63.50000 77.50000 0.0000000E+00 + 64.50000 77.50000 0.0000000E+00 + 65.50000 77.50000 0.0000000E+00 + 66.50000 77.50000 0.0000000E+00 + 67.50000 77.50000 0.0000000E+00 + 68.50000 77.50000 0.0000000E+00 + 69.50000 77.50000 0.0000000E+00 + 70.50000 77.50000 0.0000000E+00 + 71.50000 77.50000 0.0000000E+00 + 72.50000 77.50000 0.0000000E+00 + 73.50000 77.50000 0.0000000E+00 + 74.50000 77.50000 0.0000000E+00 + 75.50000 77.50000 0.0000000E+00 + 76.50000 77.50000 0.0000000E+00 + 77.50000 77.50000 0.0000000E+00 + 78.50000 77.50000 0.0000000E+00 + 79.50000 77.50000 0.0000000E+00 + 80.50000 77.50000 0.0000000E+00 + 81.50000 77.50000 0.0000000E+00 + 82.50000 77.50000 0.0000000E+00 + 83.50000 77.50000 0.0000000E+00 + 84.50000 77.50000 0.0000000E+00 + 85.50000 77.50000 0.0000000E+00 + 86.50000 77.50000 0.0000000E+00 + 87.50000 77.50000 0.0000000E+00 + 88.50000 77.50000 0.0000000E+00 + 89.50000 77.50000 0.0000000E+00 + -89.50000 78.50000 0.0000000E+00 + -88.50000 78.50000 0.0000000E+00 + -87.50000 78.50000 0.0000000E+00 + -86.50000 78.50000 0.0000000E+00 + -85.50000 78.50000 0.0000000E+00 + -84.50000 78.50000 0.0000000E+00 + -83.50000 78.50000 0.0000000E+00 + -82.50000 78.50000 0.0000000E+00 + -81.50000 78.50000 0.0000000E+00 + -80.50000 78.50000 0.0000000E+00 + -79.50000 78.50000 0.0000000E+00 + -78.50000 78.50000 0.0000000E+00 + -77.50000 78.50000 0.0000000E+00 + -76.50000 78.50000 0.0000000E+00 + -75.50000 78.50000 0.0000000E+00 + -74.50000 78.50000 0.0000000E+00 + -73.50000 78.50000 0.0000000E+00 + -72.50000 78.50000 0.0000000E+00 + -71.50000 78.50000 0.0000000E+00 + -70.50000 78.50000 0.0000000E+00 + -69.50000 78.50000 0.0000000E+00 + -68.50000 78.50000 0.0000000E+00 + -67.50000 78.50000 0.0000000E+00 + -66.50000 78.50000 0.0000000E+00 + -65.50000 78.50000 0.0000000E+00 + -64.50000 78.50000 0.0000000E+00 + -63.50000 78.50000 0.0000000E+00 + -62.50000 78.50000 0.0000000E+00 + -61.50000 78.50000 0.0000000E+00 + -60.50000 78.50000 0.0000000E+00 + -59.50000 78.50000 0.0000000E+00 + -58.50000 78.50000 0.0000000E+00 + -57.50000 78.50000 0.0000000E+00 + -56.50000 78.50000 0.0000000E+00 + -55.50000 78.50000 0.0000000E+00 + -54.50000 78.50000 0.0000000E+00 + -53.50000 78.50000 0.0000000E+00 + -52.50000 78.50000 0.0000000E+00 + -51.50000 78.50000 0.0000000E+00 + -50.50000 78.50000 0.0000000E+00 + -49.50000 78.50000 0.0000000E+00 + -48.50000 78.50000 0.0000000E+00 + -47.50000 78.50000 0.0000000E+00 + -46.50000 78.50000 0.0000000E+00 + -45.50000 78.50000 0.0000000E+00 + -44.50000 78.50000 0.0000000E+00 + -43.50000 78.50000 0.0000000E+00 + -42.50000 78.50000 0.0000000E+00 + -41.50000 78.50000 0.0000000E+00 + -40.50000 78.50000 0.0000000E+00 + -39.50000 78.50000 0.0000000E+00 + -38.50000 78.50000 0.0000000E+00 + -37.50000 78.50000 0.0000000E+00 + -36.50000 78.50000 0.0000000E+00 + -35.50000 78.50000 0.0000000E+00 + -34.50000 78.50000 0.0000000E+00 + -33.50000 78.50000 0.0000000E+00 + -32.50000 78.50000 0.0000000E+00 + -31.50000 78.50000 0.0000000E+00 + -30.50000 78.50000 0.0000000E+00 + -29.50000 78.50000 0.0000000E+00 + -28.50000 78.50000 0.0000000E+00 + -27.50000 78.50000 0.0000000E+00 + -26.50000 78.50000 0.0000000E+00 + -25.50000 78.50000 0.0000000E+00 + -24.50000 78.50000 0.0000000E+00 + -23.50000 78.50000 0.0000000E+00 + -22.50000 78.50000 0.0000000E+00 + -21.50000 78.50000 0.0000000E+00 + -20.50000 78.50000 0.0000000E+00 + -19.50000 78.50000 0.0000000E+00 + -18.50000 78.50000 0.0000000E+00 + -17.50000 78.50000 0.0000000E+00 + -16.50000 78.50000 0.0000000E+00 + -15.50000 78.50000 0.0000000E+00 + -14.50000 78.50000 0.0000000E+00 + -13.50000 78.50000 0.0000000E+00 + -12.50000 78.50000 0.0000000E+00 + -11.50000 78.50000 0.0000000E+00 + -10.50000 78.50000 0.0000000E+00 + -9.500000 78.50000 0.0000000E+00 + -8.500000 78.50000 0.0000000E+00 + -7.500000 78.50000 0.0000000E+00 + -6.500000 78.50000 0.0000000E+00 + -5.500000 78.50000 0.0000000E+00 + -4.500000 78.50000 0.0000000E+00 + -3.500000 78.50000 0.0000000E+00 + -2.500000 78.50000 0.0000000E+00 + -1.500000 78.50000 0.0000000E+00 + -0.5000000 78.50000 0.0000000E+00 + 0.5000000 78.50000 0.0000000E+00 + 1.500000 78.50000 0.0000000E+00 + 2.500000 78.50000 0.0000000E+00 + 3.500000 78.50000 0.0000000E+00 + 4.500000 78.50000 0.0000000E+00 + 5.500000 78.50000 0.0000000E+00 + 6.500000 78.50000 0.0000000E+00 + 7.500000 78.50000 0.0000000E+00 + 8.500000 78.50000 0.0000000E+00 + 9.500000 78.50000 0.0000000E+00 + 10.50000 78.50000 0.0000000E+00 + 11.50000 78.50000 0.0000000E+00 + 12.50000 78.50000 0.0000000E+00 + 13.50000 78.50000 0.0000000E+00 + 14.50000 78.50000 0.0000000E+00 + 15.50000 78.50000 0.0000000E+00 + 16.50000 78.50000 0.0000000E+00 + 17.50000 78.50000 0.0000000E+00 + 18.50000 78.50000 0.0000000E+00 + 19.50000 78.50000 0.0000000E+00 + 20.50000 78.50000 0.0000000E+00 + 21.50000 78.50000 0.0000000E+00 + 22.50000 78.50000 0.0000000E+00 + 23.50000 78.50000 0.0000000E+00 + 24.50000 78.50000 0.0000000E+00 + 25.50000 78.50000 0.0000000E+00 + 26.50000 78.50000 0.0000000E+00 + 27.50000 78.50000 0.0000000E+00 + 28.50000 78.50000 0.0000000E+00 + 29.50000 78.50000 0.0000000E+00 + 30.50000 78.50000 0.0000000E+00 + 31.50000 78.50000 0.0000000E+00 + 32.50000 78.50000 0.0000000E+00 + 33.50000 78.50000 1.1999235E-03 + 34.50000 78.50000 2.6414194E-04 + 35.50000 78.50000 8.0609706E-04 + 36.50000 78.50000 2.0058271E-03 + 37.50000 78.50000 4.3514412E-02 + 38.50000 78.50000 5.4620225E-02 + 39.50000 78.50000 6.0964912E-02 + 40.50000 78.50000 4.3514412E-02 + 41.50000 78.50000 0.0000000E+00 + 42.50000 78.50000 0.0000000E+00 + 43.50000 78.50000 0.0000000E+00 + 44.50000 78.50000 0.0000000E+00 + 45.50000 78.50000 0.0000000E+00 + 46.50000 78.50000 0.0000000E+00 + 47.50000 78.50000 0.0000000E+00 + 48.50000 78.50000 0.0000000E+00 + 49.50000 78.50000 0.0000000E+00 + 50.50000 78.50000 0.0000000E+00 + 51.50000 78.50000 0.0000000E+00 + 52.50000 78.50000 0.0000000E+00 + 53.50000 78.50000 0.0000000E+00 + 54.50000 78.50000 0.0000000E+00 + 55.50000 78.50000 0.0000000E+00 + 56.50000 78.50000 0.0000000E+00 + 57.50000 78.50000 0.0000000E+00 + 58.50000 78.50000 0.0000000E+00 + 59.50000 78.50000 0.0000000E+00 + 60.50000 78.50000 0.0000000E+00 + 61.50000 78.50000 0.0000000E+00 + 62.50000 78.50000 0.0000000E+00 + 63.50000 78.50000 0.0000000E+00 + 64.50000 78.50000 0.0000000E+00 + 65.50000 78.50000 0.0000000E+00 + 66.50000 78.50000 0.0000000E+00 + 67.50000 78.50000 0.0000000E+00 + 68.50000 78.50000 0.0000000E+00 + 69.50000 78.50000 0.0000000E+00 + 70.50000 78.50000 0.0000000E+00 + 71.50000 78.50000 0.0000000E+00 + 72.50000 78.50000 0.0000000E+00 + 73.50000 78.50000 0.0000000E+00 + 74.50000 78.50000 0.0000000E+00 + 75.50000 78.50000 0.0000000E+00 + 76.50000 78.50000 0.0000000E+00 + 77.50000 78.50000 0.0000000E+00 + 78.50000 78.50000 0.0000000E+00 + 79.50000 78.50000 0.0000000E+00 + 80.50000 78.50000 0.0000000E+00 + 81.50000 78.50000 0.0000000E+00 + 82.50000 78.50000 0.0000000E+00 + 83.50000 78.50000 0.0000000E+00 + 84.50000 78.50000 0.0000000E+00 + 85.50000 78.50000 0.0000000E+00 + 86.50000 78.50000 0.0000000E+00 + 87.50000 78.50000 0.0000000E+00 + 88.50000 78.50000 0.0000000E+00 + 89.50000 78.50000 0.0000000E+00 + -89.50000 79.50000 0.0000000E+00 + -88.50000 79.50000 0.0000000E+00 + -87.50000 79.50000 0.0000000E+00 + -86.50000 79.50000 0.0000000E+00 + -85.50000 79.50000 0.0000000E+00 + -84.50000 79.50000 0.0000000E+00 + -83.50000 79.50000 0.0000000E+00 + -82.50000 79.50000 0.0000000E+00 + -81.50000 79.50000 0.0000000E+00 + -80.50000 79.50000 0.0000000E+00 + -79.50000 79.50000 0.0000000E+00 + -78.50000 79.50000 0.0000000E+00 + -77.50000 79.50000 0.0000000E+00 + -76.50000 79.50000 0.0000000E+00 + -75.50000 79.50000 0.0000000E+00 + -74.50000 79.50000 0.0000000E+00 + -73.50000 79.50000 0.0000000E+00 + -72.50000 79.50000 0.0000000E+00 + -71.50000 79.50000 0.0000000E+00 + -70.50000 79.50000 0.0000000E+00 + -69.50000 79.50000 0.0000000E+00 + -68.50000 79.50000 0.0000000E+00 + -67.50000 79.50000 0.0000000E+00 + -66.50000 79.50000 0.0000000E+00 + -65.50000 79.50000 0.0000000E+00 + -64.50000 79.50000 0.0000000E+00 + -63.50000 79.50000 0.0000000E+00 + -62.50000 79.50000 0.0000000E+00 + -61.50000 79.50000 0.0000000E+00 + -60.50000 79.50000 0.0000000E+00 + -59.50000 79.50000 0.0000000E+00 + -58.50000 79.50000 0.0000000E+00 + -57.50000 79.50000 0.0000000E+00 + -56.50000 79.50000 0.0000000E+00 + -55.50000 79.50000 0.0000000E+00 + -54.50000 79.50000 0.0000000E+00 + -53.50000 79.50000 0.0000000E+00 + -52.50000 79.50000 0.0000000E+00 + -51.50000 79.50000 0.0000000E+00 + -50.50000 79.50000 0.0000000E+00 + -49.50000 79.50000 0.0000000E+00 + -48.50000 79.50000 0.0000000E+00 + -47.50000 79.50000 0.0000000E+00 + -46.50000 79.50000 0.0000000E+00 + -45.50000 79.50000 0.0000000E+00 + -44.50000 79.50000 0.0000000E+00 + -43.50000 79.50000 0.0000000E+00 + -42.50000 79.50000 0.0000000E+00 + -41.50000 79.50000 0.0000000E+00 + -40.50000 79.50000 0.0000000E+00 + -39.50000 79.50000 0.0000000E+00 + -38.50000 79.50000 0.0000000E+00 + -37.50000 79.50000 0.0000000E+00 + -36.50000 79.50000 0.0000000E+00 + -35.50000 79.50000 0.0000000E+00 + -34.50000 79.50000 0.0000000E+00 + -33.50000 79.50000 0.0000000E+00 + -32.50000 79.50000 0.0000000E+00 + -31.50000 79.50000 0.0000000E+00 + -30.50000 79.50000 0.0000000E+00 + -29.50000 79.50000 0.0000000E+00 + -28.50000 79.50000 0.0000000E+00 + -27.50000 79.50000 0.0000000E+00 + -26.50000 79.50000 0.0000000E+00 + -25.50000 79.50000 0.0000000E+00 + -24.50000 79.50000 0.0000000E+00 + -23.50000 79.50000 0.0000000E+00 + -22.50000 79.50000 0.0000000E+00 + -21.50000 79.50000 0.0000000E+00 + -20.50000 79.50000 0.0000000E+00 + -19.50000 79.50000 0.0000000E+00 + -18.50000 79.50000 0.0000000E+00 + -17.50000 79.50000 0.0000000E+00 + -16.50000 79.50000 0.0000000E+00 + -15.50000 79.50000 0.0000000E+00 + -14.50000 79.50000 0.0000000E+00 + -13.50000 79.50000 0.0000000E+00 + -12.50000 79.50000 0.0000000E+00 + -11.50000 79.50000 0.0000000E+00 + -10.50000 79.50000 0.0000000E+00 + -9.500000 79.50000 0.0000000E+00 + -8.500000 79.50000 0.0000000E+00 + -7.500000 79.50000 0.0000000E+00 + -6.500000 79.50000 0.0000000E+00 + -5.500000 79.50000 0.0000000E+00 + -4.500000 79.50000 0.0000000E+00 + -3.500000 79.50000 0.0000000E+00 + -2.500000 79.50000 0.0000000E+00 + -1.500000 79.50000 0.0000000E+00 + -0.5000000 79.50000 0.0000000E+00 + 0.5000000 79.50000 0.0000000E+00 + 1.500000 79.50000 0.0000000E+00 + 2.500000 79.50000 0.0000000E+00 + 3.500000 79.50000 0.0000000E+00 + 4.500000 79.50000 0.0000000E+00 + 5.500000 79.50000 0.0000000E+00 + 6.500000 79.50000 0.0000000E+00 + 7.500000 79.50000 0.0000000E+00 + 8.500000 79.50000 0.0000000E+00 + 9.500000 79.50000 0.0000000E+00 + 10.50000 79.50000 0.0000000E+00 + 11.50000 79.50000 0.0000000E+00 + 12.50000 79.50000 0.0000000E+00 + 13.50000 79.50000 0.0000000E+00 + 14.50000 79.50000 0.0000000E+00 + 15.50000 79.50000 0.0000000E+00 + 16.50000 79.50000 0.0000000E+00 + 17.50000 79.50000 0.0000000E+00 + 18.50000 79.50000 0.0000000E+00 + 19.50000 79.50000 0.0000000E+00 + 20.50000 79.50000 0.0000000E+00 + 21.50000 79.50000 0.0000000E+00 + 22.50000 79.50000 0.0000000E+00 + 23.50000 79.50000 0.0000000E+00 + 24.50000 79.50000 0.0000000E+00 + 25.50000 79.50000 0.0000000E+00 + 26.50000 79.50000 0.0000000E+00 + 27.50000 79.50000 0.0000000E+00 + 28.50000 79.50000 0.0000000E+00 + 29.50000 79.50000 0.0000000E+00 + 30.50000 79.50000 0.0000000E+00 + 31.50000 79.50000 0.0000000E+00 + 32.50000 79.50000 1.9018077E-04 + 33.50000 79.50000 5.7651172E-04 + 34.50000 79.50000 2.6414194E-04 + 35.50000 79.50000 1.0288068E-03 + 36.50000 79.50000 8.4525421E-03 + 37.50000 79.50000 5.1652446E-02 + 38.50000 79.50000 6.7885973E-02 + 39.50000 79.50000 6.7885973E-02 + 40.50000 79.50000 4.8815094E-02 + 41.50000 79.50000 0.0000000E+00 + 42.50000 79.50000 0.0000000E+00 + 43.50000 79.50000 0.0000000E+00 + 44.50000 79.50000 0.0000000E+00 + 45.50000 79.50000 0.0000000E+00 + 46.50000 79.50000 0.0000000E+00 + 47.50000 79.50000 0.0000000E+00 + 48.50000 79.50000 0.0000000E+00 + 49.50000 79.50000 0.0000000E+00 + 50.50000 79.50000 0.0000000E+00 + 51.50000 79.50000 0.0000000E+00 + 52.50000 79.50000 0.0000000E+00 + 53.50000 79.50000 0.0000000E+00 + 54.50000 79.50000 0.0000000E+00 + 55.50000 79.50000 0.0000000E+00 + 56.50000 79.50000 0.0000000E+00 + 57.50000 79.50000 0.0000000E+00 + 58.50000 79.50000 0.0000000E+00 + 59.50000 79.50000 0.0000000E+00 + 60.50000 79.50000 0.0000000E+00 + 61.50000 79.50000 0.0000000E+00 + 62.50000 79.50000 0.0000000E+00 + 63.50000 79.50000 0.0000000E+00 + 64.50000 79.50000 0.0000000E+00 + 65.50000 79.50000 0.0000000E+00 + 66.50000 79.50000 0.0000000E+00 + 67.50000 79.50000 0.0000000E+00 + 68.50000 79.50000 0.0000000E+00 + 69.50000 79.50000 0.0000000E+00 + 70.50000 79.50000 0.0000000E+00 + 71.50000 79.50000 0.0000000E+00 + 72.50000 79.50000 0.0000000E+00 + 73.50000 79.50000 0.0000000E+00 + 74.50000 79.50000 0.0000000E+00 + 75.50000 79.50000 0.0000000E+00 + 76.50000 79.50000 0.0000000E+00 + 77.50000 79.50000 0.0000000E+00 + 78.50000 79.50000 0.0000000E+00 + 79.50000 79.50000 0.0000000E+00 + 80.50000 79.50000 0.0000000E+00 + 81.50000 79.50000 0.0000000E+00 + 82.50000 79.50000 0.0000000E+00 + 83.50000 79.50000 0.0000000E+00 + 84.50000 79.50000 0.0000000E+00 + 85.50000 79.50000 0.0000000E+00 + 86.50000 79.50000 0.0000000E+00 + 87.50000 79.50000 0.0000000E+00 + 88.50000 79.50000 0.0000000E+00 + 89.50000 79.50000 0.0000000E+00 + -89.50000 80.50000 0.0000000E+00 + -88.50000 80.50000 0.0000000E+00 + -87.50000 80.50000 0.0000000E+00 + -86.50000 80.50000 0.0000000E+00 + -85.50000 80.50000 0.0000000E+00 + -84.50000 80.50000 0.0000000E+00 + -83.50000 80.50000 0.0000000E+00 + -82.50000 80.50000 0.0000000E+00 + -81.50000 80.50000 0.0000000E+00 + -80.50000 80.50000 0.0000000E+00 + -79.50000 80.50000 0.0000000E+00 + -78.50000 80.50000 0.0000000E+00 + -77.50000 80.50000 0.0000000E+00 + -76.50000 80.50000 0.0000000E+00 + -75.50000 80.50000 0.0000000E+00 + -74.50000 80.50000 0.0000000E+00 + -73.50000 80.50000 0.0000000E+00 + -72.50000 80.50000 0.0000000E+00 + -71.50000 80.50000 0.0000000E+00 + -70.50000 80.50000 0.0000000E+00 + -69.50000 80.50000 0.0000000E+00 + -68.50000 80.50000 0.0000000E+00 + -67.50000 80.50000 0.0000000E+00 + -66.50000 80.50000 0.0000000E+00 + -65.50000 80.50000 0.0000000E+00 + -64.50000 80.50000 0.0000000E+00 + -63.50000 80.50000 0.0000000E+00 + -62.50000 80.50000 0.0000000E+00 + -61.50000 80.50000 0.0000000E+00 + -60.50000 80.50000 0.0000000E+00 + -59.50000 80.50000 0.0000000E+00 + -58.50000 80.50000 0.0000000E+00 + -57.50000 80.50000 0.0000000E+00 + -56.50000 80.50000 0.0000000E+00 + -55.50000 80.50000 0.0000000E+00 + -54.50000 80.50000 0.0000000E+00 + -53.50000 80.50000 0.0000000E+00 + -52.50000 80.50000 0.0000000E+00 + -51.50000 80.50000 0.0000000E+00 + -50.50000 80.50000 0.0000000E+00 + -49.50000 80.50000 0.0000000E+00 + -48.50000 80.50000 0.0000000E+00 + -47.50000 80.50000 0.0000000E+00 + -46.50000 80.50000 0.0000000E+00 + -45.50000 80.50000 0.0000000E+00 + -44.50000 80.50000 0.0000000E+00 + -43.50000 80.50000 0.0000000E+00 + -42.50000 80.50000 0.0000000E+00 + -41.50000 80.50000 0.0000000E+00 + -40.50000 80.50000 0.0000000E+00 + -39.50000 80.50000 0.0000000E+00 + -38.50000 80.50000 0.0000000E+00 + -37.50000 80.50000 0.0000000E+00 + -36.50000 80.50000 0.0000000E+00 + -35.50000 80.50000 0.0000000E+00 + -34.50000 80.50000 0.0000000E+00 + -33.50000 80.50000 0.0000000E+00 + -32.50000 80.50000 0.0000000E+00 + -31.50000 80.50000 0.0000000E+00 + -30.50000 80.50000 0.0000000E+00 + -29.50000 80.50000 0.0000000E+00 + -28.50000 80.50000 0.0000000E+00 + -27.50000 80.50000 0.0000000E+00 + -26.50000 80.50000 0.0000000E+00 + -25.50000 80.50000 0.0000000E+00 + -24.50000 80.50000 0.0000000E+00 + -23.50000 80.50000 0.0000000E+00 + -22.50000 80.50000 0.0000000E+00 + -21.50000 80.50000 0.0000000E+00 + -20.50000 80.50000 0.0000000E+00 + -19.50000 80.50000 0.0000000E+00 + -18.50000 80.50000 0.0000000E+00 + -17.50000 80.50000 0.0000000E+00 + -16.50000 80.50000 0.0000000E+00 + -15.50000 80.50000 0.0000000E+00 + -14.50000 80.50000 0.0000000E+00 + -13.50000 80.50000 0.0000000E+00 + -12.50000 80.50000 0.0000000E+00 + -11.50000 80.50000 0.0000000E+00 + -10.50000 80.50000 0.0000000E+00 + -9.500000 80.50000 0.0000000E+00 + -8.500000 80.50000 0.0000000E+00 + -7.500000 80.50000 0.0000000E+00 + -6.500000 80.50000 0.0000000E+00 + -5.500000 80.50000 0.0000000E+00 + -4.500000 80.50000 0.0000000E+00 + -3.500000 80.50000 0.0000000E+00 + -2.500000 80.50000 0.0000000E+00 + -1.500000 80.50000 0.0000000E+00 + -0.5000000 80.50000 0.0000000E+00 + 0.5000000 80.50000 0.0000000E+00 + 1.500000 80.50000 0.0000000E+00 + 2.500000 80.50000 0.0000000E+00 + 3.500000 80.50000 0.0000000E+00 + 4.500000 80.50000 0.0000000E+00 + 5.500000 80.50000 0.0000000E+00 + 6.500000 80.50000 0.0000000E+00 + 7.500000 80.50000 0.0000000E+00 + 8.500000 80.50000 0.0000000E+00 + 9.500000 80.50000 0.0000000E+00 + 10.50000 80.50000 0.0000000E+00 + 11.50000 80.50000 0.0000000E+00 + 12.50000 80.50000 0.0000000E+00 + 13.50000 80.50000 0.0000000E+00 + 14.50000 80.50000 0.0000000E+00 + 15.50000 80.50000 0.0000000E+00 + 16.50000 80.50000 0.0000000E+00 + 17.50000 80.50000 0.0000000E+00 + 18.50000 80.50000 0.0000000E+00 + 19.50000 80.50000 0.0000000E+00 + 20.50000 80.50000 0.0000000E+00 + 21.50000 80.50000 0.0000000E+00 + 22.50000 80.50000 0.0000000E+00 + 23.50000 80.50000 0.0000000E+00 + 24.50000 80.50000 0.0000000E+00 + 25.50000 80.50000 0.0000000E+00 + 26.50000 80.50000 0.0000000E+00 + 27.50000 80.50000 0.0000000E+00 + 28.50000 80.50000 0.0000000E+00 + 29.50000 80.50000 0.0000000E+00 + 30.50000 80.50000 0.0000000E+00 + 31.50000 80.50000 0.0000000E+00 + 32.50000 80.50000 4.0447534E-04 + 33.50000 80.50000 3.8587071E-03 + 34.50000 80.50000 3.0160749E-03 + 35.50000 80.50000 2.1608449E-03 + 36.50000 80.50000 3.2921817E-02 + 37.50000 80.50000 6.0964912E-02 + 38.50000 80.50000 6.7885973E-02 + 39.50000 80.50000 7.9902366E-02 + 40.50000 80.50000 0.0000000E+00 + 41.50000 80.50000 0.0000000E+00 + 42.50000 80.50000 0.0000000E+00 + 43.50000 80.50000 0.0000000E+00 + 44.50000 80.50000 0.0000000E+00 + 45.50000 80.50000 0.0000000E+00 + 46.50000 80.50000 0.0000000E+00 + 47.50000 80.50000 0.0000000E+00 + 48.50000 80.50000 0.0000000E+00 + 49.50000 80.50000 0.0000000E+00 + 50.50000 80.50000 0.0000000E+00 + 51.50000 80.50000 0.0000000E+00 + 52.50000 80.50000 0.0000000E+00 + 53.50000 80.50000 0.0000000E+00 + 54.50000 80.50000 0.0000000E+00 + 55.50000 80.50000 0.0000000E+00 + 56.50000 80.50000 0.0000000E+00 + 57.50000 80.50000 0.0000000E+00 + 58.50000 80.50000 0.0000000E+00 + 59.50000 80.50000 0.0000000E+00 + 60.50000 80.50000 0.0000000E+00 + 61.50000 80.50000 0.0000000E+00 + 62.50000 80.50000 0.0000000E+00 + 63.50000 80.50000 0.0000000E+00 + 64.50000 80.50000 0.0000000E+00 + 65.50000 80.50000 0.0000000E+00 + 66.50000 80.50000 0.0000000E+00 + 67.50000 80.50000 0.0000000E+00 + 68.50000 80.50000 0.0000000E+00 + 69.50000 80.50000 0.0000000E+00 + 70.50000 80.50000 0.0000000E+00 + 71.50000 80.50000 0.0000000E+00 + 72.50000 80.50000 0.0000000E+00 + 73.50000 80.50000 0.0000000E+00 + 74.50000 80.50000 0.0000000E+00 + 75.50000 80.50000 0.0000000E+00 + 76.50000 80.50000 0.0000000E+00 + 77.50000 80.50000 0.0000000E+00 + 78.50000 80.50000 0.0000000E+00 + 79.50000 80.50000 0.0000000E+00 + 80.50000 80.50000 0.0000000E+00 + 81.50000 80.50000 0.0000000E+00 + 82.50000 80.50000 0.0000000E+00 + 83.50000 80.50000 0.0000000E+00 + 84.50000 80.50000 0.0000000E+00 + 85.50000 80.50000 0.0000000E+00 + 86.50000 80.50000 0.0000000E+00 + 87.50000 80.50000 0.0000000E+00 + 88.50000 80.50000 0.0000000E+00 + 89.50000 80.50000 0.0000000E+00 + -89.50000 81.50000 0.0000000E+00 + -88.50000 81.50000 0.0000000E+00 + -87.50000 81.50000 0.0000000E+00 + -86.50000 81.50000 0.0000000E+00 + -85.50000 81.50000 0.0000000E+00 + -84.50000 81.50000 0.0000000E+00 + -83.50000 81.50000 0.0000000E+00 + -82.50000 81.50000 0.0000000E+00 + -81.50000 81.50000 0.0000000E+00 + -80.50000 81.50000 0.0000000E+00 + -79.50000 81.50000 0.0000000E+00 + -78.50000 81.50000 0.0000000E+00 + -77.50000 81.50000 0.0000000E+00 + -76.50000 81.50000 0.0000000E+00 + -75.50000 81.50000 0.0000000E+00 + -74.50000 81.50000 0.0000000E+00 + -73.50000 81.50000 0.0000000E+00 + -72.50000 81.50000 0.0000000E+00 + -71.50000 81.50000 0.0000000E+00 + -70.50000 81.50000 0.0000000E+00 + -69.50000 81.50000 0.0000000E+00 + -68.50000 81.50000 0.0000000E+00 + -67.50000 81.50000 0.0000000E+00 + -66.50000 81.50000 0.0000000E+00 + -65.50000 81.50000 0.0000000E+00 + -64.50000 81.50000 0.0000000E+00 + -63.50000 81.50000 0.0000000E+00 + -62.50000 81.50000 0.0000000E+00 + -61.50000 81.50000 0.0000000E+00 + -60.50000 81.50000 0.0000000E+00 + -59.50000 81.50000 0.0000000E+00 + -58.50000 81.50000 0.0000000E+00 + -57.50000 81.50000 0.0000000E+00 + -56.50000 81.50000 0.0000000E+00 + -55.50000 81.50000 0.0000000E+00 + -54.50000 81.50000 0.0000000E+00 + -53.50000 81.50000 0.0000000E+00 + -52.50000 81.50000 0.0000000E+00 + -51.50000 81.50000 0.0000000E+00 + -50.50000 81.50000 0.0000000E+00 + -49.50000 81.50000 0.0000000E+00 + -48.50000 81.50000 0.0000000E+00 + -47.50000 81.50000 0.0000000E+00 + -46.50000 81.50000 0.0000000E+00 + -45.50000 81.50000 0.0000000E+00 + -44.50000 81.50000 0.0000000E+00 + -43.50000 81.50000 0.0000000E+00 + -42.50000 81.50000 0.0000000E+00 + -41.50000 81.50000 0.0000000E+00 + -40.50000 81.50000 0.0000000E+00 + -39.50000 81.50000 0.0000000E+00 + -38.50000 81.50000 0.0000000E+00 + -37.50000 81.50000 0.0000000E+00 + -36.50000 81.50000 0.0000000E+00 + -35.50000 81.50000 0.0000000E+00 + -34.50000 81.50000 0.0000000E+00 + -33.50000 81.50000 0.0000000E+00 + -32.50000 81.50000 0.0000000E+00 + -31.50000 81.50000 0.0000000E+00 + -30.50000 81.50000 0.0000000E+00 + -29.50000 81.50000 0.0000000E+00 + -28.50000 81.50000 0.0000000E+00 + -27.50000 81.50000 0.0000000E+00 + -26.50000 81.50000 0.0000000E+00 + -25.50000 81.50000 0.0000000E+00 + -24.50000 81.50000 0.0000000E+00 + -23.50000 81.50000 0.0000000E+00 + -22.50000 81.50000 0.0000000E+00 + -21.50000 81.50000 0.0000000E+00 + -20.50000 81.50000 0.0000000E+00 + -19.50000 81.50000 0.0000000E+00 + -18.50000 81.50000 0.0000000E+00 + -17.50000 81.50000 0.0000000E+00 + -16.50000 81.50000 0.0000000E+00 + -15.50000 81.50000 0.0000000E+00 + -14.50000 81.50000 0.0000000E+00 + -13.50000 81.50000 0.0000000E+00 + -12.50000 81.50000 0.0000000E+00 + -11.50000 81.50000 0.0000000E+00 + -10.50000 81.50000 0.0000000E+00 + -9.500000 81.50000 0.0000000E+00 + -8.500000 81.50000 0.0000000E+00 + -7.500000 81.50000 0.0000000E+00 + -6.500000 81.50000 0.0000000E+00 + -5.500000 81.50000 0.0000000E+00 + -4.500000 81.50000 0.0000000E+00 + -3.500000 81.50000 0.0000000E+00 + -2.500000 81.50000 0.0000000E+00 + -1.500000 81.50000 0.0000000E+00 + -0.5000000 81.50000 0.0000000E+00 + 0.5000000 81.50000 0.0000000E+00 + 1.500000 81.50000 0.0000000E+00 + 2.500000 81.50000 0.0000000E+00 + 3.500000 81.50000 0.0000000E+00 + 4.500000 81.50000 0.0000000E+00 + 5.500000 81.50000 0.0000000E+00 + 6.500000 81.50000 0.0000000E+00 + 7.500000 81.50000 0.0000000E+00 + 8.500000 81.50000 0.0000000E+00 + 9.500000 81.50000 0.0000000E+00 + 10.50000 81.50000 0.0000000E+00 + 11.50000 81.50000 0.0000000E+00 + 12.50000 81.50000 0.0000000E+00 + 13.50000 81.50000 0.0000000E+00 + 14.50000 81.50000 0.0000000E+00 + 15.50000 81.50000 0.0000000E+00 + 16.50000 81.50000 0.0000000E+00 + 17.50000 81.50000 0.0000000E+00 + 18.50000 81.50000 0.0000000E+00 + 19.50000 81.50000 0.0000000E+00 + 20.50000 81.50000 0.0000000E+00 + 21.50000 81.50000 0.0000000E+00 + 22.50000 81.50000 0.0000000E+00 + 23.50000 81.50000 0.0000000E+00 + 24.50000 81.50000 0.0000000E+00 + 25.50000 81.50000 0.0000000E+00 + 26.50000 81.50000 0.0000000E+00 + 27.50000 81.50000 0.0000000E+00 + 28.50000 81.50000 0.0000000E+00 + 29.50000 81.50000 0.0000000E+00 + 30.50000 81.50000 0.0000000E+00 + 31.50000 81.50000 2.8295719E-04 + 32.50000 81.50000 1.6969230E-03 + 33.50000 81.50000 7.7174144E-04 + 34.50000 81.50000 1.5116545E-03 + 35.50000 81.50000 1.5116545E-03 + 36.50000 81.50000 2.2727957E-02 + 37.50000 81.50000 6.0964912E-02 + 38.50000 81.50000 6.7885973E-02 + 39.50000 81.50000 9.7994901E-02 + 40.50000 81.50000 0.1192258 + 41.50000 81.50000 0.0000000E+00 + 42.50000 81.50000 0.0000000E+00 + 43.50000 81.50000 0.0000000E+00 + 44.50000 81.50000 0.0000000E+00 + 45.50000 81.50000 0.0000000E+00 + 46.50000 81.50000 0.0000000E+00 + 47.50000 81.50000 0.0000000E+00 + 48.50000 81.50000 0.0000000E+00 + 49.50000 81.50000 0.0000000E+00 + 50.50000 81.50000 0.0000000E+00 + 51.50000 81.50000 0.0000000E+00 + 52.50000 81.50000 0.0000000E+00 + 53.50000 81.50000 0.0000000E+00 + 54.50000 81.50000 0.0000000E+00 + 55.50000 81.50000 0.0000000E+00 + 56.50000 81.50000 0.0000000E+00 + 57.50000 81.50000 0.0000000E+00 + 58.50000 81.50000 0.0000000E+00 + 59.50000 81.50000 0.0000000E+00 + 60.50000 81.50000 0.0000000E+00 + 61.50000 81.50000 0.0000000E+00 + 62.50000 81.50000 0.0000000E+00 + 63.50000 81.50000 0.0000000E+00 + 64.50000 81.50000 0.0000000E+00 + 65.50000 81.50000 0.0000000E+00 + 66.50000 81.50000 0.0000000E+00 + 67.50000 81.50000 0.0000000E+00 + 68.50000 81.50000 0.0000000E+00 + 69.50000 81.50000 0.0000000E+00 + 70.50000 81.50000 0.0000000E+00 + 71.50000 81.50000 0.0000000E+00 + 72.50000 81.50000 0.0000000E+00 + 73.50000 81.50000 0.0000000E+00 + 74.50000 81.50000 0.0000000E+00 + 75.50000 81.50000 0.0000000E+00 + 76.50000 81.50000 0.0000000E+00 + 77.50000 81.50000 0.0000000E+00 + 78.50000 81.50000 0.0000000E+00 + 79.50000 81.50000 0.0000000E+00 + 80.50000 81.50000 0.0000000E+00 + 81.50000 81.50000 0.0000000E+00 + 82.50000 81.50000 0.0000000E+00 + 83.50000 81.50000 0.0000000E+00 + 84.50000 81.50000 0.0000000E+00 + 85.50000 81.50000 0.0000000E+00 + 86.50000 81.50000 0.0000000E+00 + 87.50000 81.50000 0.0000000E+00 + 88.50000 81.50000 0.0000000E+00 + 89.50000 81.50000 0.0000000E+00 + -89.50000 82.50000 0.0000000E+00 + -88.50000 82.50000 0.0000000E+00 + -87.50000 82.50000 0.0000000E+00 + -86.50000 82.50000 0.0000000E+00 + -85.50000 82.50000 0.0000000E+00 + -84.50000 82.50000 0.0000000E+00 + -83.50000 82.50000 0.0000000E+00 + -82.50000 82.50000 0.0000000E+00 + -81.50000 82.50000 0.0000000E+00 + -80.50000 82.50000 0.0000000E+00 + -79.50000 82.50000 0.0000000E+00 + -78.50000 82.50000 0.0000000E+00 + -77.50000 82.50000 0.0000000E+00 + -76.50000 82.50000 0.0000000E+00 + -75.50000 82.50000 0.0000000E+00 + -74.50000 82.50000 0.0000000E+00 + -73.50000 82.50000 0.0000000E+00 + -72.50000 82.50000 0.0000000E+00 + -71.50000 82.50000 0.0000000E+00 + -70.50000 82.50000 0.0000000E+00 + -69.50000 82.50000 0.0000000E+00 + -68.50000 82.50000 0.0000000E+00 + -67.50000 82.50000 0.0000000E+00 + -66.50000 82.50000 0.0000000E+00 + -65.50000 82.50000 0.0000000E+00 + -64.50000 82.50000 0.0000000E+00 + -63.50000 82.50000 0.0000000E+00 + -62.50000 82.50000 0.0000000E+00 + -61.50000 82.50000 0.0000000E+00 + -60.50000 82.50000 0.0000000E+00 + -59.50000 82.50000 0.0000000E+00 + -58.50000 82.50000 0.0000000E+00 + -57.50000 82.50000 0.0000000E+00 + -56.50000 82.50000 0.0000000E+00 + -55.50000 82.50000 0.0000000E+00 + -54.50000 82.50000 0.0000000E+00 + -53.50000 82.50000 0.0000000E+00 + -52.50000 82.50000 0.0000000E+00 + -51.50000 82.50000 0.0000000E+00 + -50.50000 82.50000 0.0000000E+00 + -49.50000 82.50000 0.0000000E+00 + -48.50000 82.50000 0.0000000E+00 + -47.50000 82.50000 0.0000000E+00 + -46.50000 82.50000 0.0000000E+00 + -45.50000 82.50000 0.0000000E+00 + -44.50000 82.50000 0.0000000E+00 + -43.50000 82.50000 0.0000000E+00 + -42.50000 82.50000 0.0000000E+00 + -41.50000 82.50000 0.0000000E+00 + -40.50000 82.50000 0.0000000E+00 + -39.50000 82.50000 0.0000000E+00 + -38.50000 82.50000 0.0000000E+00 + -37.50000 82.50000 0.0000000E+00 + -36.50000 82.50000 0.0000000E+00 + -35.50000 82.50000 0.0000000E+00 + -34.50000 82.50000 0.0000000E+00 + -33.50000 82.50000 0.0000000E+00 + -32.50000 82.50000 0.0000000E+00 + -31.50000 82.50000 0.0000000E+00 + -30.50000 82.50000 0.0000000E+00 + -29.50000 82.50000 0.0000000E+00 + -28.50000 82.50000 0.0000000E+00 + -27.50000 82.50000 0.0000000E+00 + -26.50000 82.50000 0.0000000E+00 + -25.50000 82.50000 0.0000000E+00 + -24.50000 82.50000 0.0000000E+00 + -23.50000 82.50000 0.0000000E+00 + -22.50000 82.50000 0.0000000E+00 + -21.50000 82.50000 0.0000000E+00 + -20.50000 82.50000 0.0000000E+00 + -19.50000 82.50000 0.0000000E+00 + -18.50000 82.50000 0.0000000E+00 + -17.50000 82.50000 0.0000000E+00 + -16.50000 82.50000 0.0000000E+00 + -15.50000 82.50000 0.0000000E+00 + -14.50000 82.50000 0.0000000E+00 + -13.50000 82.50000 0.0000000E+00 + -12.50000 82.50000 0.0000000E+00 + -11.50000 82.50000 0.0000000E+00 + -10.50000 82.50000 0.0000000E+00 + -9.500000 82.50000 0.0000000E+00 + -8.500000 82.50000 0.0000000E+00 + -7.500000 82.50000 0.0000000E+00 + -6.500000 82.50000 0.0000000E+00 + -5.500000 82.50000 0.0000000E+00 + -4.500000 82.50000 0.0000000E+00 + -3.500000 82.50000 0.0000000E+00 + -2.500000 82.50000 0.0000000E+00 + -1.500000 82.50000 0.0000000E+00 + -0.5000000 82.50000 0.0000000E+00 + 0.5000000 82.50000 0.0000000E+00 + 1.500000 82.50000 0.0000000E+00 + 2.500000 82.50000 0.0000000E+00 + 3.500000 82.50000 0.0000000E+00 + 4.500000 82.50000 0.0000000E+00 + 5.500000 82.50000 0.0000000E+00 + 6.500000 82.50000 0.0000000E+00 + 7.500000 82.50000 0.0000000E+00 + 8.500000 82.50000 0.0000000E+00 + 9.500000 82.50000 0.0000000E+00 + 10.50000 82.50000 0.0000000E+00 + 11.50000 82.50000 0.0000000E+00 + 12.50000 82.50000 0.0000000E+00 + 13.50000 82.50000 0.0000000E+00 + 14.50000 82.50000 0.0000000E+00 + 15.50000 82.50000 0.0000000E+00 + 16.50000 82.50000 0.0000000E+00 + 17.50000 82.50000 0.0000000E+00 + 18.50000 82.50000 0.0000000E+00 + 19.50000 82.50000 0.0000000E+00 + 20.50000 82.50000 0.0000000E+00 + 21.50000 82.50000 0.0000000E+00 + 22.50000 82.50000 0.0000000E+00 + 23.50000 82.50000 0.0000000E+00 + 24.50000 82.50000 0.0000000E+00 + 25.50000 82.50000 0.0000000E+00 + 26.50000 82.50000 0.0000000E+00 + 27.50000 82.50000 0.0000000E+00 + 28.50000 82.50000 0.0000000E+00 + 29.50000 82.50000 0.0000000E+00 + 30.50000 82.50000 0.0000000E+00 + 31.50000 82.50000 2.8295719E-04 + 32.50000 82.50000 2.0223767E-03 + 33.50000 82.50000 1.1714906E-03 + 34.50000 82.50000 1.2517005E-03 + 35.50000 82.50000 1.2517005E-03 + 36.50000 82.50000 3.2422629E-03 + 37.50000 82.50000 6.6217512E-02 + 38.50000 82.50000 9.0816371E-02 + 39.50000 82.50000 0.1109263 + 40.50000 82.50000 0.1476225 + 41.50000 82.50000 0.0000000E+00 + 42.50000 82.50000 0.0000000E+00 + 43.50000 82.50000 0.0000000E+00 + 44.50000 82.50000 0.0000000E+00 + 45.50000 82.50000 0.0000000E+00 + 46.50000 82.50000 0.0000000E+00 + 47.50000 82.50000 0.0000000E+00 + 48.50000 82.50000 0.0000000E+00 + 49.50000 82.50000 0.0000000E+00 + 50.50000 82.50000 0.0000000E+00 + 51.50000 82.50000 0.0000000E+00 + 52.50000 82.50000 0.0000000E+00 + 53.50000 82.50000 0.0000000E+00 + 54.50000 82.50000 0.0000000E+00 + 55.50000 82.50000 0.0000000E+00 + 56.50000 82.50000 0.0000000E+00 + 57.50000 82.50000 0.0000000E+00 + 58.50000 82.50000 0.0000000E+00 + 59.50000 82.50000 0.0000000E+00 + 60.50000 82.50000 0.0000000E+00 + 61.50000 82.50000 0.0000000E+00 + 62.50000 82.50000 0.0000000E+00 + 63.50000 82.50000 0.0000000E+00 + 64.50000 82.50000 0.0000000E+00 + 65.50000 82.50000 0.0000000E+00 + 66.50000 82.50000 0.0000000E+00 + 67.50000 82.50000 0.0000000E+00 + 68.50000 82.50000 0.0000000E+00 + 69.50000 82.50000 0.0000000E+00 + 70.50000 82.50000 0.0000000E+00 + 71.50000 82.50000 0.0000000E+00 + 72.50000 82.50000 0.0000000E+00 + 73.50000 82.50000 0.0000000E+00 + 74.50000 82.50000 0.0000000E+00 + 75.50000 82.50000 0.0000000E+00 + 76.50000 82.50000 0.0000000E+00 + 77.50000 82.50000 0.0000000E+00 + 78.50000 82.50000 0.0000000E+00 + 79.50000 82.50000 0.0000000E+00 + 80.50000 82.50000 0.0000000E+00 + 81.50000 82.50000 0.0000000E+00 + 82.50000 82.50000 0.0000000E+00 + 83.50000 82.50000 0.0000000E+00 + 84.50000 82.50000 0.0000000E+00 + 85.50000 82.50000 0.0000000E+00 + 86.50000 82.50000 0.0000000E+00 + 87.50000 82.50000 0.0000000E+00 + 88.50000 82.50000 0.0000000E+00 + 89.50000 82.50000 0.0000000E+00 + -89.50000 83.50000 0.0000000E+00 + -88.50000 83.50000 0.0000000E+00 + -87.50000 83.50000 0.0000000E+00 + -86.50000 83.50000 0.0000000E+00 + -85.50000 83.50000 0.0000000E+00 + -84.50000 83.50000 0.0000000E+00 + -83.50000 83.50000 0.0000000E+00 + -82.50000 83.50000 0.0000000E+00 + -81.50000 83.50000 0.0000000E+00 + -80.50000 83.50000 0.0000000E+00 + -79.50000 83.50000 0.0000000E+00 + -78.50000 83.50000 0.0000000E+00 + -77.50000 83.50000 0.0000000E+00 + -76.50000 83.50000 0.0000000E+00 + -75.50000 83.50000 0.0000000E+00 + -74.50000 83.50000 0.0000000E+00 + -73.50000 83.50000 0.0000000E+00 + -72.50000 83.50000 0.0000000E+00 + -71.50000 83.50000 0.0000000E+00 + -70.50000 83.50000 0.0000000E+00 + -69.50000 83.50000 0.0000000E+00 + -68.50000 83.50000 0.0000000E+00 + -67.50000 83.50000 0.0000000E+00 + -66.50000 83.50000 0.0000000E+00 + -65.50000 83.50000 0.0000000E+00 + -64.50000 83.50000 0.0000000E+00 + -63.50000 83.50000 0.0000000E+00 + -62.50000 83.50000 0.0000000E+00 + -61.50000 83.50000 0.0000000E+00 + -60.50000 83.50000 0.0000000E+00 + -59.50000 83.50000 0.0000000E+00 + -58.50000 83.50000 0.0000000E+00 + -57.50000 83.50000 0.0000000E+00 + -56.50000 83.50000 0.0000000E+00 + -55.50000 83.50000 0.0000000E+00 + -54.50000 83.50000 0.0000000E+00 + -53.50000 83.50000 0.0000000E+00 + -52.50000 83.50000 0.0000000E+00 + -51.50000 83.50000 0.0000000E+00 + -50.50000 83.50000 0.0000000E+00 + -49.50000 83.50000 0.0000000E+00 + -48.50000 83.50000 0.0000000E+00 + -47.50000 83.50000 0.0000000E+00 + -46.50000 83.50000 0.0000000E+00 + -45.50000 83.50000 0.0000000E+00 + -44.50000 83.50000 0.0000000E+00 + -43.50000 83.50000 0.0000000E+00 + -42.50000 83.50000 0.0000000E+00 + -41.50000 83.50000 0.0000000E+00 + -40.50000 83.50000 0.0000000E+00 + -39.50000 83.50000 0.0000000E+00 + -38.50000 83.50000 0.0000000E+00 + -37.50000 83.50000 0.0000000E+00 + -36.50000 83.50000 0.0000000E+00 + -35.50000 83.50000 0.0000000E+00 + -34.50000 83.50000 0.0000000E+00 + -33.50000 83.50000 0.0000000E+00 + -32.50000 83.50000 0.0000000E+00 + -31.50000 83.50000 0.0000000E+00 + -30.50000 83.50000 0.0000000E+00 + -29.50000 83.50000 0.0000000E+00 + -28.50000 83.50000 0.0000000E+00 + -27.50000 83.50000 0.0000000E+00 + -26.50000 83.50000 0.0000000E+00 + -25.50000 83.50000 0.0000000E+00 + -24.50000 83.50000 0.0000000E+00 + -23.50000 83.50000 0.0000000E+00 + -22.50000 83.50000 0.0000000E+00 + -21.50000 83.50000 0.0000000E+00 + -20.50000 83.50000 0.0000000E+00 + -19.50000 83.50000 0.0000000E+00 + -18.50000 83.50000 0.0000000E+00 + -17.50000 83.50000 0.0000000E+00 + -16.50000 83.50000 0.0000000E+00 + -15.50000 83.50000 0.0000000E+00 + -14.50000 83.50000 0.0000000E+00 + -13.50000 83.50000 0.0000000E+00 + -12.50000 83.50000 0.0000000E+00 + -11.50000 83.50000 0.0000000E+00 + -10.50000 83.50000 0.0000000E+00 + -9.500000 83.50000 0.0000000E+00 + -8.500000 83.50000 0.0000000E+00 + -7.500000 83.50000 0.0000000E+00 + -6.500000 83.50000 0.0000000E+00 + -5.500000 83.50000 0.0000000E+00 + -4.500000 83.50000 0.0000000E+00 + -3.500000 83.50000 0.0000000E+00 + -2.500000 83.50000 0.0000000E+00 + -1.500000 83.50000 0.0000000E+00 + -0.5000000 83.50000 0.0000000E+00 + 0.5000000 83.50000 0.0000000E+00 + 1.500000 83.50000 0.0000000E+00 + 2.500000 83.50000 0.0000000E+00 + 3.500000 83.50000 0.0000000E+00 + 4.500000 83.50000 0.0000000E+00 + 5.500000 83.50000 0.0000000E+00 + 6.500000 83.50000 0.0000000E+00 + 7.500000 83.50000 0.0000000E+00 + 8.500000 83.50000 0.0000000E+00 + 9.500000 83.50000 0.0000000E+00 + 10.50000 83.50000 0.0000000E+00 + 11.50000 83.50000 0.0000000E+00 + 12.50000 83.50000 0.0000000E+00 + 13.50000 83.50000 0.0000000E+00 + 14.50000 83.50000 0.0000000E+00 + 15.50000 83.50000 0.0000000E+00 + 16.50000 83.50000 0.0000000E+00 + 17.50000 83.50000 0.0000000E+00 + 18.50000 83.50000 0.0000000E+00 + 19.50000 83.50000 0.0000000E+00 + 20.50000 83.50000 0.0000000E+00 + 21.50000 83.50000 0.0000000E+00 + 22.50000 83.50000 0.0000000E+00 + 23.50000 83.50000 0.0000000E+00 + 24.50000 83.50000 0.0000000E+00 + 25.50000 83.50000 0.0000000E+00 + 26.50000 83.50000 0.0000000E+00 + 27.50000 83.50000 0.0000000E+00 + 28.50000 83.50000 0.0000000E+00 + 29.50000 83.50000 0.0000000E+00 + 30.50000 83.50000 3.9919495E-04 + 31.50000 83.50000 2.8295719E-04 + 32.50000 83.50000 1.6969230E-03 + 33.50000 83.50000 9.6287980E-04 + 34.50000 83.50000 1.0288068E-03 + 35.50000 83.50000 1.0288068E-03 + 36.50000 83.50000 1.4063548E-03 + 37.50000 83.50000 6.4527161E-02 + 38.50000 83.50000 0.1004694 + 39.50000 83.50000 0.1222364 + 40.50000 83.50000 0.1545846 + 41.50000 83.50000 0.0000000E+00 + 42.50000 83.50000 0.0000000E+00 + 43.50000 83.50000 0.0000000E+00 + 44.50000 83.50000 0.0000000E+00 + 45.50000 83.50000 0.0000000E+00 + 46.50000 83.50000 0.0000000E+00 + 47.50000 83.50000 0.0000000E+00 + 48.50000 83.50000 0.0000000E+00 + 49.50000 83.50000 0.0000000E+00 + 50.50000 83.50000 0.0000000E+00 + 51.50000 83.50000 0.0000000E+00 + 52.50000 83.50000 0.0000000E+00 + 53.50000 83.50000 0.0000000E+00 + 54.50000 83.50000 0.0000000E+00 + 55.50000 83.50000 0.0000000E+00 + 56.50000 83.50000 0.0000000E+00 + 57.50000 83.50000 0.0000000E+00 + 58.50000 83.50000 0.0000000E+00 + 59.50000 83.50000 0.0000000E+00 + 60.50000 83.50000 0.0000000E+00 + 61.50000 83.50000 0.0000000E+00 + 62.50000 83.50000 0.0000000E+00 + 63.50000 83.50000 0.0000000E+00 + 64.50000 83.50000 0.0000000E+00 + 65.50000 83.50000 0.0000000E+00 + 66.50000 83.50000 0.0000000E+00 + 67.50000 83.50000 0.0000000E+00 + 68.50000 83.50000 0.0000000E+00 + 69.50000 83.50000 0.0000000E+00 + 70.50000 83.50000 0.0000000E+00 + 71.50000 83.50000 0.0000000E+00 + 72.50000 83.50000 0.0000000E+00 + 73.50000 83.50000 0.0000000E+00 + 74.50000 83.50000 0.0000000E+00 + 75.50000 83.50000 0.0000000E+00 + 76.50000 83.50000 0.0000000E+00 + 77.50000 83.50000 0.0000000E+00 + 78.50000 83.50000 0.0000000E+00 + 79.50000 83.50000 0.0000000E+00 + 80.50000 83.50000 0.0000000E+00 + 81.50000 83.50000 0.0000000E+00 + 82.50000 83.50000 0.0000000E+00 + 83.50000 83.50000 0.0000000E+00 + 84.50000 83.50000 0.0000000E+00 + 85.50000 83.50000 0.0000000E+00 + 86.50000 83.50000 0.0000000E+00 + 87.50000 83.50000 0.0000000E+00 + 88.50000 83.50000 0.0000000E+00 + 89.50000 83.50000 0.0000000E+00 + -89.50000 84.50000 0.0000000E+00 + -88.50000 84.50000 0.0000000E+00 + -87.50000 84.50000 0.0000000E+00 + -86.50000 84.50000 0.0000000E+00 + -85.50000 84.50000 0.0000000E+00 + -84.50000 84.50000 0.0000000E+00 + -83.50000 84.50000 0.0000000E+00 + -82.50000 84.50000 0.0000000E+00 + -81.50000 84.50000 0.0000000E+00 + -80.50000 84.50000 0.0000000E+00 + -79.50000 84.50000 0.0000000E+00 + -78.50000 84.50000 0.0000000E+00 + -77.50000 84.50000 0.0000000E+00 + -76.50000 84.50000 0.0000000E+00 + -75.50000 84.50000 0.0000000E+00 + -74.50000 84.50000 0.0000000E+00 + -73.50000 84.50000 0.0000000E+00 + -72.50000 84.50000 0.0000000E+00 + -71.50000 84.50000 0.0000000E+00 + -70.50000 84.50000 0.0000000E+00 + -69.50000 84.50000 0.0000000E+00 + -68.50000 84.50000 0.0000000E+00 + -67.50000 84.50000 0.0000000E+00 + -66.50000 84.50000 0.0000000E+00 + -65.50000 84.50000 0.0000000E+00 + -64.50000 84.50000 0.0000000E+00 + -63.50000 84.50000 0.0000000E+00 + -62.50000 84.50000 0.0000000E+00 + -61.50000 84.50000 0.0000000E+00 + -60.50000 84.50000 0.0000000E+00 + -59.50000 84.50000 0.0000000E+00 + -58.50000 84.50000 0.0000000E+00 + -57.50000 84.50000 0.0000000E+00 + -56.50000 84.50000 0.0000000E+00 + -55.50000 84.50000 0.0000000E+00 + -54.50000 84.50000 0.0000000E+00 + -53.50000 84.50000 0.0000000E+00 + -52.50000 84.50000 0.0000000E+00 + -51.50000 84.50000 0.0000000E+00 + -50.50000 84.50000 0.0000000E+00 + -49.50000 84.50000 0.0000000E+00 + -48.50000 84.50000 0.0000000E+00 + -47.50000 84.50000 0.0000000E+00 + -46.50000 84.50000 0.0000000E+00 + -45.50000 84.50000 0.0000000E+00 + -44.50000 84.50000 0.0000000E+00 + -43.50000 84.50000 0.0000000E+00 + -42.50000 84.50000 0.0000000E+00 + -41.50000 84.50000 0.0000000E+00 + -40.50000 84.50000 0.0000000E+00 + -39.50000 84.50000 0.0000000E+00 + -38.50000 84.50000 0.0000000E+00 + -37.50000 84.50000 0.0000000E+00 + -36.50000 84.50000 0.0000000E+00 + -35.50000 84.50000 0.0000000E+00 + -34.50000 84.50000 0.0000000E+00 + -33.50000 84.50000 0.0000000E+00 + -32.50000 84.50000 0.0000000E+00 + -31.50000 84.50000 0.0000000E+00 + -30.50000 84.50000 0.0000000E+00 + -29.50000 84.50000 0.0000000E+00 + -28.50000 84.50000 0.0000000E+00 + -27.50000 84.50000 0.0000000E+00 + -26.50000 84.50000 0.0000000E+00 + -25.50000 84.50000 0.0000000E+00 + -24.50000 84.50000 0.0000000E+00 + -23.50000 84.50000 0.0000000E+00 + -22.50000 84.50000 0.0000000E+00 + -21.50000 84.50000 0.0000000E+00 + -20.50000 84.50000 0.0000000E+00 + -19.50000 84.50000 0.0000000E+00 + -18.50000 84.50000 0.0000000E+00 + -17.50000 84.50000 0.0000000E+00 + -16.50000 84.50000 0.0000000E+00 + -15.50000 84.50000 0.0000000E+00 + -14.50000 84.50000 0.0000000E+00 + -13.50000 84.50000 0.0000000E+00 + -12.50000 84.50000 0.0000000E+00 + -11.50000 84.50000 0.0000000E+00 + -10.50000 84.50000 0.0000000E+00 + -9.500000 84.50000 0.0000000E+00 + -8.500000 84.50000 0.0000000E+00 + -7.500000 84.50000 0.0000000E+00 + -6.500000 84.50000 0.0000000E+00 + -5.500000 84.50000 0.0000000E+00 + -4.500000 84.50000 0.0000000E+00 + -3.500000 84.50000 0.0000000E+00 + -2.500000 84.50000 0.0000000E+00 + -1.500000 84.50000 0.0000000E+00 + -0.5000000 84.50000 0.0000000E+00 + 0.5000000 84.50000 0.0000000E+00 + 1.500000 84.50000 0.0000000E+00 + 2.500000 84.50000 0.0000000E+00 + 3.500000 84.50000 0.0000000E+00 + 4.500000 84.50000 0.0000000E+00 + 5.500000 84.50000 0.0000000E+00 + 6.500000 84.50000 0.0000000E+00 + 7.500000 84.50000 0.0000000E+00 + 8.500000 84.50000 0.0000000E+00 + 9.500000 84.50000 0.0000000E+00 + 10.50000 84.50000 0.0000000E+00 + 11.50000 84.50000 0.0000000E+00 + 12.50000 84.50000 0.0000000E+00 + 13.50000 84.50000 0.0000000E+00 + 14.50000 84.50000 0.0000000E+00 + 15.50000 84.50000 0.0000000E+00 + 16.50000 84.50000 0.0000000E+00 + 17.50000 84.50000 0.0000000E+00 + 18.50000 84.50000 0.0000000E+00 + 19.50000 84.50000 0.0000000E+00 + 20.50000 84.50000 0.0000000E+00 + 21.50000 84.50000 0.0000000E+00 + 22.50000 84.50000 0.0000000E+00 + 23.50000 84.50000 0.0000000E+00 + 24.50000 84.50000 0.0000000E+00 + 25.50000 84.50000 0.0000000E+00 + 26.50000 84.50000 0.0000000E+00 + 27.50000 84.50000 0.0000000E+00 + 28.50000 84.50000 0.0000000E+00 + 29.50000 84.50000 0.0000000E+00 + 30.50000 84.50000 2.7926342E-04 + 31.50000 84.50000 4.7919070E-04 + 32.50000 84.50000 1.4147859E-03 + 33.50000 84.50000 7.8510569E-04 + 34.50000 84.50000 8.3886069E-04 + 35.50000 84.50000 1.0288068E-03 + 36.50000 84.50000 4.2027674E-04 + 37.50000 84.50000 5.6747183E-02 + 38.50000 84.50000 0.1173670 + 39.50000 84.50000 0.1372308 + 40.50000 84.50000 0.1663336 + 41.50000 84.50000 0.0000000E+00 + 42.50000 84.50000 0.0000000E+00 + 43.50000 84.50000 0.0000000E+00 + 44.50000 84.50000 0.0000000E+00 + 45.50000 84.50000 0.0000000E+00 + 46.50000 84.50000 0.0000000E+00 + 47.50000 84.50000 0.0000000E+00 + 48.50000 84.50000 0.0000000E+00 + 49.50000 84.50000 0.0000000E+00 + 50.50000 84.50000 0.0000000E+00 + 51.50000 84.50000 0.0000000E+00 + 52.50000 84.50000 0.0000000E+00 + 53.50000 84.50000 0.0000000E+00 + 54.50000 84.50000 0.0000000E+00 + 55.50000 84.50000 0.0000000E+00 + 56.50000 84.50000 0.0000000E+00 + 57.50000 84.50000 0.0000000E+00 + 58.50000 84.50000 0.0000000E+00 + 59.50000 84.50000 0.0000000E+00 + 60.50000 84.50000 0.0000000E+00 + 61.50000 84.50000 0.0000000E+00 + 62.50000 84.50000 0.0000000E+00 + 63.50000 84.50000 0.0000000E+00 + 64.50000 84.50000 0.0000000E+00 + 65.50000 84.50000 0.0000000E+00 + 66.50000 84.50000 0.0000000E+00 + 67.50000 84.50000 0.0000000E+00 + 68.50000 84.50000 0.0000000E+00 + 69.50000 84.50000 0.0000000E+00 + 70.50000 84.50000 0.0000000E+00 + 71.50000 84.50000 0.0000000E+00 + 72.50000 84.50000 0.0000000E+00 + 73.50000 84.50000 0.0000000E+00 + 74.50000 84.50000 0.0000000E+00 + 75.50000 84.50000 0.0000000E+00 + 76.50000 84.50000 0.0000000E+00 + 77.50000 84.50000 0.0000000E+00 + 78.50000 84.50000 0.0000000E+00 + 79.50000 84.50000 0.0000000E+00 + 80.50000 84.50000 0.0000000E+00 + 81.50000 84.50000 0.0000000E+00 + 82.50000 84.50000 0.0000000E+00 + 83.50000 84.50000 0.0000000E+00 + 84.50000 84.50000 0.0000000E+00 + 85.50000 84.50000 0.0000000E+00 + 86.50000 84.50000 0.0000000E+00 + 87.50000 84.50000 0.0000000E+00 + 88.50000 84.50000 0.0000000E+00 + 89.50000 84.50000 0.0000000E+00 + -89.50000 85.50000 0.0000000E+00 + -88.50000 85.50000 0.0000000E+00 + -87.50000 85.50000 0.0000000E+00 + -86.50000 85.50000 0.0000000E+00 + -85.50000 85.50000 0.0000000E+00 + -84.50000 85.50000 0.0000000E+00 + -83.50000 85.50000 0.0000000E+00 + -82.50000 85.50000 0.0000000E+00 + -81.50000 85.50000 0.0000000E+00 + -80.50000 85.50000 0.0000000E+00 + -79.50000 85.50000 0.0000000E+00 + -78.50000 85.50000 0.0000000E+00 + -77.50000 85.50000 0.0000000E+00 + -76.50000 85.50000 0.0000000E+00 + -75.50000 85.50000 0.0000000E+00 + -74.50000 85.50000 0.0000000E+00 + -73.50000 85.50000 0.0000000E+00 + -72.50000 85.50000 0.0000000E+00 + -71.50000 85.50000 0.0000000E+00 + -70.50000 85.50000 0.0000000E+00 + -69.50000 85.50000 0.0000000E+00 + -68.50000 85.50000 0.0000000E+00 + -67.50000 85.50000 0.0000000E+00 + -66.50000 85.50000 0.0000000E+00 + -65.50000 85.50000 0.0000000E+00 + -64.50000 85.50000 0.0000000E+00 + -63.50000 85.50000 0.0000000E+00 + -62.50000 85.50000 0.0000000E+00 + -61.50000 85.50000 0.0000000E+00 + -60.50000 85.50000 0.0000000E+00 + -59.50000 85.50000 0.0000000E+00 + -58.50000 85.50000 0.0000000E+00 + -57.50000 85.50000 0.0000000E+00 + -56.50000 85.50000 0.0000000E+00 + -55.50000 85.50000 0.0000000E+00 + -54.50000 85.50000 0.0000000E+00 + -53.50000 85.50000 0.0000000E+00 + -52.50000 85.50000 0.0000000E+00 + -51.50000 85.50000 0.0000000E+00 + -50.50000 85.50000 0.0000000E+00 + -49.50000 85.50000 0.0000000E+00 + -48.50000 85.50000 0.0000000E+00 + -47.50000 85.50000 0.0000000E+00 + -46.50000 85.50000 0.0000000E+00 + -45.50000 85.50000 0.0000000E+00 + -44.50000 85.50000 0.0000000E+00 + -43.50000 85.50000 0.0000000E+00 + -42.50000 85.50000 0.0000000E+00 + -41.50000 85.50000 0.0000000E+00 + -40.50000 85.50000 0.0000000E+00 + -39.50000 85.50000 0.0000000E+00 + -38.50000 85.50000 0.0000000E+00 + -37.50000 85.50000 0.0000000E+00 + -36.50000 85.50000 0.0000000E+00 + -35.50000 85.50000 0.0000000E+00 + -34.50000 85.50000 0.0000000E+00 + -33.50000 85.50000 0.0000000E+00 + -32.50000 85.50000 0.0000000E+00 + -31.50000 85.50000 0.0000000E+00 + -30.50000 85.50000 0.0000000E+00 + -29.50000 85.50000 0.0000000E+00 + -28.50000 85.50000 0.0000000E+00 + -27.50000 85.50000 0.0000000E+00 + -26.50000 85.50000 0.0000000E+00 + -25.50000 85.50000 0.0000000E+00 + -24.50000 85.50000 0.0000000E+00 + -23.50000 85.50000 0.0000000E+00 + -22.50000 85.50000 0.0000000E+00 + -21.50000 85.50000 0.0000000E+00 + -20.50000 85.50000 0.0000000E+00 + -19.50000 85.50000 0.0000000E+00 + -18.50000 85.50000 0.0000000E+00 + -17.50000 85.50000 0.0000000E+00 + -16.50000 85.50000 0.0000000E+00 + -15.50000 85.50000 0.0000000E+00 + -14.50000 85.50000 0.0000000E+00 + -13.50000 85.50000 0.0000000E+00 + -12.50000 85.50000 0.0000000E+00 + -11.50000 85.50000 0.0000000E+00 + -10.50000 85.50000 0.0000000E+00 + -9.500000 85.50000 0.0000000E+00 + -8.500000 85.50000 0.0000000E+00 + -7.500000 85.50000 0.0000000E+00 + -6.500000 85.50000 0.0000000E+00 + -5.500000 85.50000 0.0000000E+00 + -4.500000 85.50000 0.0000000E+00 + -3.500000 85.50000 0.0000000E+00 + -2.500000 85.50000 0.0000000E+00 + -1.500000 85.50000 0.0000000E+00 + -0.5000000 85.50000 0.0000000E+00 + 0.5000000 85.50000 0.0000000E+00 + 1.500000 85.50000 0.0000000E+00 + 2.500000 85.50000 0.0000000E+00 + 3.500000 85.50000 0.0000000E+00 + 4.500000 85.50000 0.0000000E+00 + 5.500000 85.50000 0.0000000E+00 + 6.500000 85.50000 0.0000000E+00 + 7.500000 85.50000 0.0000000E+00 + 8.500000 85.50000 0.0000000E+00 + 9.500000 85.50000 0.0000000E+00 + 10.50000 85.50000 0.0000000E+00 + 11.50000 85.50000 0.0000000E+00 + 12.50000 85.50000 0.0000000E+00 + 13.50000 85.50000 0.0000000E+00 + 14.50000 85.50000 0.0000000E+00 + 15.50000 85.50000 0.0000000E+00 + 16.50000 85.50000 0.0000000E+00 + 17.50000 85.50000 0.0000000E+00 + 18.50000 85.50000 0.0000000E+00 + 19.50000 85.50000 0.0000000E+00 + 20.50000 85.50000 0.0000000E+00 + 21.50000 85.50000 0.0000000E+00 + 22.50000 85.50000 0.0000000E+00 + 23.50000 85.50000 0.0000000E+00 + 24.50000 85.50000 0.0000000E+00 + 25.50000 85.50000 0.0000000E+00 + 26.50000 85.50000 0.0000000E+00 + 27.50000 85.50000 0.0000000E+00 + 28.50000 85.50000 1.6666310E-03 + 29.50000 85.50000 9.7018975E-04 + 30.50000 85.50000 3.9919495E-04 + 31.50000 85.50000 3.3938463E-04 + 32.50000 85.50000 1.6969230E-03 + 33.50000 85.50000 7.8510569E-04 + 34.50000 85.50000 6.7806744E-04 + 35.50000 85.50000 8.3886069E-04 + 36.50000 85.50000 1.6588354E-04 + 37.50000 85.50000 3.9176062E-02 + 38.50000 85.50000 0.1058698 + 39.50000 85.50000 0.1512229 + 40.50000 85.50000 0.1826289 + 41.50000 85.50000 0.0000000E+00 + 42.50000 85.50000 0.0000000E+00 + 43.50000 85.50000 0.0000000E+00 + 44.50000 85.50000 0.0000000E+00 + 45.50000 85.50000 0.0000000E+00 + 46.50000 85.50000 0.0000000E+00 + 47.50000 85.50000 0.0000000E+00 + 48.50000 85.50000 0.0000000E+00 + 49.50000 85.50000 0.0000000E+00 + 50.50000 85.50000 0.0000000E+00 + 51.50000 85.50000 0.0000000E+00 + 52.50000 85.50000 0.0000000E+00 + 53.50000 85.50000 0.0000000E+00 + 54.50000 85.50000 0.0000000E+00 + 55.50000 85.50000 0.0000000E+00 + 56.50000 85.50000 0.0000000E+00 + 57.50000 85.50000 0.0000000E+00 + 58.50000 85.50000 0.0000000E+00 + 59.50000 85.50000 0.0000000E+00 + 60.50000 85.50000 0.0000000E+00 + 61.50000 85.50000 0.0000000E+00 + 62.50000 85.50000 0.0000000E+00 + 63.50000 85.50000 0.0000000E+00 + 64.50000 85.50000 0.0000000E+00 + 65.50000 85.50000 0.0000000E+00 + 66.50000 85.50000 0.0000000E+00 + 67.50000 85.50000 0.0000000E+00 + 68.50000 85.50000 0.0000000E+00 + 69.50000 85.50000 0.0000000E+00 + 70.50000 85.50000 0.0000000E+00 + 71.50000 85.50000 0.0000000E+00 + 72.50000 85.50000 0.0000000E+00 + 73.50000 85.50000 0.0000000E+00 + 74.50000 85.50000 0.0000000E+00 + 75.50000 85.50000 0.0000000E+00 + 76.50000 85.50000 0.0000000E+00 + 77.50000 85.50000 0.0000000E+00 + 78.50000 85.50000 0.0000000E+00 + 79.50000 85.50000 0.0000000E+00 + 80.50000 85.50000 0.0000000E+00 + 81.50000 85.50000 0.0000000E+00 + 82.50000 85.50000 0.0000000E+00 + 83.50000 85.50000 0.0000000E+00 + 84.50000 85.50000 0.0000000E+00 + 85.50000 85.50000 0.0000000E+00 + 86.50000 85.50000 0.0000000E+00 + 87.50000 85.50000 0.0000000E+00 + 88.50000 85.50000 0.0000000E+00 + 89.50000 85.50000 0.0000000E+00 + -89.50000 86.50000 0.0000000E+00 + -88.50000 86.50000 0.0000000E+00 + -87.50000 86.50000 0.0000000E+00 + -86.50000 86.50000 0.0000000E+00 + -85.50000 86.50000 0.0000000E+00 + -84.50000 86.50000 0.0000000E+00 + -83.50000 86.50000 0.0000000E+00 + -82.50000 86.50000 0.0000000E+00 + -81.50000 86.50000 0.0000000E+00 + -80.50000 86.50000 0.0000000E+00 + -79.50000 86.50000 0.0000000E+00 + -78.50000 86.50000 0.0000000E+00 + -77.50000 86.50000 0.0000000E+00 + -76.50000 86.50000 0.0000000E+00 + -75.50000 86.50000 0.0000000E+00 + -74.50000 86.50000 0.0000000E+00 + -73.50000 86.50000 0.0000000E+00 + -72.50000 86.50000 0.0000000E+00 + -71.50000 86.50000 0.0000000E+00 + -70.50000 86.50000 0.0000000E+00 + -69.50000 86.50000 0.0000000E+00 + -68.50000 86.50000 0.0000000E+00 + -67.50000 86.50000 0.0000000E+00 + -66.50000 86.50000 0.0000000E+00 + -65.50000 86.50000 0.0000000E+00 + -64.50000 86.50000 0.0000000E+00 + -63.50000 86.50000 0.0000000E+00 + -62.50000 86.50000 0.0000000E+00 + -61.50000 86.50000 0.0000000E+00 + -60.50000 86.50000 0.0000000E+00 + -59.50000 86.50000 0.0000000E+00 + -58.50000 86.50000 0.0000000E+00 + -57.50000 86.50000 0.0000000E+00 + -56.50000 86.50000 0.0000000E+00 + -55.50000 86.50000 0.0000000E+00 + -54.50000 86.50000 0.0000000E+00 + -53.50000 86.50000 0.0000000E+00 + -52.50000 86.50000 0.0000000E+00 + -51.50000 86.50000 0.0000000E+00 + -50.50000 86.50000 0.0000000E+00 + -49.50000 86.50000 0.0000000E+00 + -48.50000 86.50000 0.0000000E+00 + -47.50000 86.50000 0.0000000E+00 + -46.50000 86.50000 0.0000000E+00 + -45.50000 86.50000 0.0000000E+00 + -44.50000 86.50000 0.0000000E+00 + -43.50000 86.50000 0.0000000E+00 + -42.50000 86.50000 0.0000000E+00 + -41.50000 86.50000 0.0000000E+00 + -40.50000 86.50000 0.0000000E+00 + -39.50000 86.50000 0.0000000E+00 + -38.50000 86.50000 0.0000000E+00 + -37.50000 86.50000 0.0000000E+00 + -36.50000 86.50000 0.0000000E+00 + -35.50000 86.50000 0.0000000E+00 + -34.50000 86.50000 0.0000000E+00 + -33.50000 86.50000 0.0000000E+00 + -32.50000 86.50000 0.0000000E+00 + -31.50000 86.50000 0.0000000E+00 + -30.50000 86.50000 0.0000000E+00 + -29.50000 86.50000 0.0000000E+00 + -28.50000 86.50000 0.0000000E+00 + -27.50000 86.50000 0.0000000E+00 + -26.50000 86.50000 0.0000000E+00 + -25.50000 86.50000 0.0000000E+00 + -24.50000 86.50000 0.0000000E+00 + -23.50000 86.50000 0.0000000E+00 + -22.50000 86.50000 0.0000000E+00 + -21.50000 86.50000 0.0000000E+00 + -20.50000 86.50000 0.0000000E+00 + -19.50000 86.50000 0.0000000E+00 + -18.50000 86.50000 0.0000000E+00 + -17.50000 86.50000 0.0000000E+00 + -16.50000 86.50000 0.0000000E+00 + -15.50000 86.50000 0.0000000E+00 + -14.50000 86.50000 0.0000000E+00 + -13.50000 86.50000 0.0000000E+00 + -12.50000 86.50000 0.0000000E+00 + -11.50000 86.50000 0.0000000E+00 + -10.50000 86.50000 0.0000000E+00 + -9.500000 86.50000 0.0000000E+00 + -8.500000 86.50000 0.0000000E+00 + -7.500000 86.50000 0.0000000E+00 + -6.500000 86.50000 0.0000000E+00 + -5.500000 86.50000 0.0000000E+00 + -4.500000 86.50000 0.0000000E+00 + -3.500000 86.50000 0.0000000E+00 + -2.500000 86.50000 0.0000000E+00 + -1.500000 86.50000 0.0000000E+00 + -0.5000000 86.50000 0.0000000E+00 + 0.5000000 86.50000 0.0000000E+00 + 1.500000 86.50000 0.0000000E+00 + 2.500000 86.50000 0.0000000E+00 + 3.500000 86.50000 0.0000000E+00 + 4.500000 86.50000 0.0000000E+00 + 5.500000 86.50000 0.0000000E+00 + 6.500000 86.50000 0.0000000E+00 + 7.500000 86.50000 0.0000000E+00 + 8.500000 86.50000 0.0000000E+00 + 9.500000 86.50000 0.0000000E+00 + 10.50000 86.50000 0.0000000E+00 + 11.50000 86.50000 0.0000000E+00 + 12.50000 86.50000 0.0000000E+00 + 13.50000 86.50000 0.0000000E+00 + 14.50000 86.50000 0.0000000E+00 + 15.50000 86.50000 0.0000000E+00 + 16.50000 86.50000 0.0000000E+00 + 17.50000 86.50000 0.0000000E+00 + 18.50000 86.50000 0.0000000E+00 + 19.50000 86.50000 0.0000000E+00 + 20.50000 86.50000 0.0000000E+00 + 21.50000 86.50000 0.0000000E+00 + 22.50000 86.50000 0.0000000E+00 + 23.50000 86.50000 0.0000000E+00 + 24.50000 86.50000 0.0000000E+00 + 25.50000 86.50000 0.0000000E+00 + 26.50000 86.50000 0.0000000E+00 + 27.50000 86.50000 0.0000000E+00 + 28.50000 86.50000 0.0000000E+00 + 29.50000 86.50000 1.4636404E-03 + 30.50000 86.50000 4.7293489E-04 + 31.50000 86.50000 4.7919070E-04 + 32.50000 86.50000 2.0223767E-03 + 33.50000 86.50000 1.4147859E-03 + 34.50000 86.50000 8.3886069E-04 + 35.50000 86.50000 1.0288068E-03 + 36.50000 86.50000 3.2341710E-04 + 37.50000 86.50000 1.0551252E-02 + 38.50000 86.50000 8.5576586E-02 + 39.50000 86.50000 0.1737581 + 40.50000 86.50000 0.1907808 + 41.50000 86.50000 0.0000000E+00 + 42.50000 86.50000 0.0000000E+00 + 43.50000 86.50000 0.0000000E+00 + 44.50000 86.50000 0.0000000E+00 + 45.50000 86.50000 0.0000000E+00 + 46.50000 86.50000 0.0000000E+00 + 47.50000 86.50000 0.0000000E+00 + 48.50000 86.50000 0.0000000E+00 + 49.50000 86.50000 0.0000000E+00 + 50.50000 86.50000 0.0000000E+00 + 51.50000 86.50000 0.0000000E+00 + 52.50000 86.50000 0.0000000E+00 + 53.50000 86.50000 0.0000000E+00 + 54.50000 86.50000 0.0000000E+00 + 55.50000 86.50000 0.0000000E+00 + 56.50000 86.50000 0.0000000E+00 + 57.50000 86.50000 0.0000000E+00 + 58.50000 86.50000 0.0000000E+00 + 59.50000 86.50000 0.0000000E+00 + 60.50000 86.50000 0.0000000E+00 + 61.50000 86.50000 0.0000000E+00 + 62.50000 86.50000 0.0000000E+00 + 63.50000 86.50000 0.0000000E+00 + 64.50000 86.50000 0.0000000E+00 + 65.50000 86.50000 0.0000000E+00 + 66.50000 86.50000 0.0000000E+00 + 67.50000 86.50000 0.0000000E+00 + 68.50000 86.50000 0.0000000E+00 + 69.50000 86.50000 0.0000000E+00 + 70.50000 86.50000 0.0000000E+00 + 71.50000 86.50000 0.0000000E+00 + 72.50000 86.50000 0.0000000E+00 + 73.50000 86.50000 0.0000000E+00 + 74.50000 86.50000 0.0000000E+00 + 75.50000 86.50000 0.0000000E+00 + 76.50000 86.50000 0.0000000E+00 + 77.50000 86.50000 0.0000000E+00 + 78.50000 86.50000 0.0000000E+00 + 79.50000 86.50000 0.0000000E+00 + 80.50000 86.50000 0.0000000E+00 + 81.50000 86.50000 0.0000000E+00 + 82.50000 86.50000 0.0000000E+00 + 83.50000 86.50000 0.0000000E+00 + 84.50000 86.50000 0.0000000E+00 + 85.50000 86.50000 0.0000000E+00 + 86.50000 86.50000 0.0000000E+00 + 87.50000 86.50000 0.0000000E+00 + 88.50000 86.50000 0.0000000E+00 + 89.50000 86.50000 0.0000000E+00 + -89.50000 87.50000 0.0000000E+00 + -88.50000 87.50000 0.0000000E+00 + -87.50000 87.50000 0.0000000E+00 + -86.50000 87.50000 0.0000000E+00 + -85.50000 87.50000 0.0000000E+00 + -84.50000 87.50000 0.0000000E+00 + -83.50000 87.50000 0.0000000E+00 + -82.50000 87.50000 0.0000000E+00 + -81.50000 87.50000 0.0000000E+00 + -80.50000 87.50000 0.0000000E+00 + -79.50000 87.50000 0.0000000E+00 + -78.50000 87.50000 0.0000000E+00 + -77.50000 87.50000 0.0000000E+00 + -76.50000 87.50000 0.0000000E+00 + -75.50000 87.50000 0.0000000E+00 + -74.50000 87.50000 0.0000000E+00 + -73.50000 87.50000 0.0000000E+00 + -72.50000 87.50000 0.0000000E+00 + -71.50000 87.50000 0.0000000E+00 + -70.50000 87.50000 0.0000000E+00 + -69.50000 87.50000 0.0000000E+00 + -68.50000 87.50000 0.0000000E+00 + -67.50000 87.50000 0.0000000E+00 + -66.50000 87.50000 0.0000000E+00 + -65.50000 87.50000 0.0000000E+00 + -64.50000 87.50000 0.0000000E+00 + -63.50000 87.50000 0.0000000E+00 + -62.50000 87.50000 0.0000000E+00 + -61.50000 87.50000 0.0000000E+00 + -60.50000 87.50000 0.0000000E+00 + -59.50000 87.50000 0.0000000E+00 + -58.50000 87.50000 0.0000000E+00 + -57.50000 87.50000 0.0000000E+00 + -56.50000 87.50000 0.0000000E+00 + -55.50000 87.50000 0.0000000E+00 + -54.50000 87.50000 0.0000000E+00 + -53.50000 87.50000 0.0000000E+00 + -52.50000 87.50000 0.0000000E+00 + -51.50000 87.50000 0.0000000E+00 + -50.50000 87.50000 0.0000000E+00 + -49.50000 87.50000 0.0000000E+00 + -48.50000 87.50000 0.0000000E+00 + -47.50000 87.50000 0.0000000E+00 + -46.50000 87.50000 0.0000000E+00 + -45.50000 87.50000 0.0000000E+00 + -44.50000 87.50000 0.0000000E+00 + -43.50000 87.50000 0.0000000E+00 + -42.50000 87.50000 0.0000000E+00 + -41.50000 87.50000 0.0000000E+00 + -40.50000 87.50000 0.0000000E+00 + -39.50000 87.50000 0.0000000E+00 + -38.50000 87.50000 0.0000000E+00 + -37.50000 87.50000 0.0000000E+00 + -36.50000 87.50000 0.0000000E+00 + -35.50000 87.50000 0.0000000E+00 + -34.50000 87.50000 0.0000000E+00 + -33.50000 87.50000 0.0000000E+00 + -32.50000 87.50000 0.0000000E+00 + -31.50000 87.50000 0.0000000E+00 + -30.50000 87.50000 0.0000000E+00 + -29.50000 87.50000 0.0000000E+00 + -28.50000 87.50000 0.0000000E+00 + -27.50000 87.50000 0.0000000E+00 + -26.50000 87.50000 0.0000000E+00 + -25.50000 87.50000 0.0000000E+00 + -24.50000 87.50000 0.0000000E+00 + -23.50000 87.50000 0.0000000E+00 + -22.50000 87.50000 0.0000000E+00 + -21.50000 87.50000 0.0000000E+00 + -20.50000 87.50000 0.0000000E+00 + -19.50000 87.50000 0.0000000E+00 + -18.50000 87.50000 0.0000000E+00 + -17.50000 87.50000 0.0000000E+00 + -16.50000 87.50000 0.0000000E+00 + -15.50000 87.50000 0.0000000E+00 + -14.50000 87.50000 0.0000000E+00 + -13.50000 87.50000 0.0000000E+00 + -12.50000 87.50000 0.0000000E+00 + -11.50000 87.50000 0.0000000E+00 + -10.50000 87.50000 0.0000000E+00 + -9.500000 87.50000 0.0000000E+00 + -8.500000 87.50000 0.0000000E+00 + -7.500000 87.50000 0.0000000E+00 + -6.500000 87.50000 0.0000000E+00 + -5.500000 87.50000 0.0000000E+00 + -4.500000 87.50000 0.0000000E+00 + -3.500000 87.50000 0.0000000E+00 + -2.500000 87.50000 0.0000000E+00 + -1.500000 87.50000 0.0000000E+00 + -0.5000000 87.50000 0.0000000E+00 + 0.5000000 87.50000 0.0000000E+00 + 1.500000 87.50000 0.0000000E+00 + 2.500000 87.50000 0.0000000E+00 + 3.500000 87.50000 0.0000000E+00 + 4.500000 87.50000 0.0000000E+00 + 5.500000 87.50000 0.0000000E+00 + 6.500000 87.50000 0.0000000E+00 + 7.500000 87.50000 0.0000000E+00 + 8.500000 87.50000 0.0000000E+00 + 9.500000 87.50000 0.0000000E+00 + 10.50000 87.50000 0.0000000E+00 + 11.50000 87.50000 0.0000000E+00 + 12.50000 87.50000 0.0000000E+00 + 13.50000 87.50000 0.0000000E+00 + 14.50000 87.50000 0.0000000E+00 + 15.50000 87.50000 0.0000000E+00 + 16.50000 87.50000 0.0000000E+00 + 17.50000 87.50000 0.0000000E+00 + 18.50000 87.50000 0.0000000E+00 + 19.50000 87.50000 0.0000000E+00 + 20.50000 87.50000 0.0000000E+00 + 21.50000 87.50000 0.0000000E+00 + 22.50000 87.50000 0.0000000E+00 + 23.50000 87.50000 0.0000000E+00 + 24.50000 87.50000 0.0000000E+00 + 25.50000 87.50000 0.0000000E+00 + 26.50000 87.50000 0.0000000E+00 + 27.50000 87.50000 0.0000000E+00 + 28.50000 87.50000 0.0000000E+00 + 29.50000 87.50000 0.0000000E+00 + 30.50000 87.50000 3.3495421E-04 + 31.50000 87.50000 4.7919070E-04 + 32.50000 87.50000 3.3938463E-04 + 33.50000 87.50000 1.1714906E-03 + 34.50000 87.50000 1.0288068E-03 + 35.50000 87.50000 1.0288068E-03 + 36.50000 87.50000 3.2341710E-04 + 37.50000 87.50000 1.3894652E-03 + 38.50000 87.50000 4.8137661E-02 + 39.50000 87.50000 0.1907808 + 40.50000 87.50000 0.1907808 + 41.50000 87.50000 0.1298422 + 42.50000 87.50000 0.0000000E+00 + 43.50000 87.50000 0.0000000E+00 + 44.50000 87.50000 0.0000000E+00 + 45.50000 87.50000 0.0000000E+00 + 46.50000 87.50000 0.0000000E+00 + 47.50000 87.50000 0.0000000E+00 + 48.50000 87.50000 0.0000000E+00 + 49.50000 87.50000 0.0000000E+00 + 50.50000 87.50000 0.0000000E+00 + 51.50000 87.50000 0.0000000E+00 + 52.50000 87.50000 0.0000000E+00 + 53.50000 87.50000 0.0000000E+00 + 54.50000 87.50000 0.0000000E+00 + 55.50000 87.50000 0.0000000E+00 + 56.50000 87.50000 0.0000000E+00 + 57.50000 87.50000 0.0000000E+00 + 58.50000 87.50000 0.0000000E+00 + 59.50000 87.50000 0.0000000E+00 + 60.50000 87.50000 0.0000000E+00 + 61.50000 87.50000 0.0000000E+00 + 62.50000 87.50000 0.0000000E+00 + 63.50000 87.50000 0.0000000E+00 + 64.50000 87.50000 0.0000000E+00 + 65.50000 87.50000 0.0000000E+00 + 66.50000 87.50000 0.0000000E+00 + 67.50000 87.50000 0.0000000E+00 + 68.50000 87.50000 0.0000000E+00 + 69.50000 87.50000 0.0000000E+00 + 70.50000 87.50000 0.0000000E+00 + 71.50000 87.50000 0.0000000E+00 + 72.50000 87.50000 0.0000000E+00 + 73.50000 87.50000 0.0000000E+00 + 74.50000 87.50000 0.0000000E+00 + 75.50000 87.50000 0.0000000E+00 + 76.50000 87.50000 0.0000000E+00 + 77.50000 87.50000 0.0000000E+00 + 78.50000 87.50000 0.0000000E+00 + 79.50000 87.50000 0.0000000E+00 + 80.50000 87.50000 0.0000000E+00 + 81.50000 87.50000 0.0000000E+00 + 82.50000 87.50000 0.0000000E+00 + 83.50000 87.50000 0.0000000E+00 + 84.50000 87.50000 0.0000000E+00 + 85.50000 87.50000 0.0000000E+00 + 86.50000 87.50000 0.0000000E+00 + 87.50000 87.50000 0.0000000E+00 + 88.50000 87.50000 0.0000000E+00 + 89.50000 87.50000 0.0000000E+00 + -89.50000 88.50000 0.0000000E+00 + -88.50000 88.50000 0.0000000E+00 + -87.50000 88.50000 0.0000000E+00 + -86.50000 88.50000 0.0000000E+00 + -85.50000 88.50000 0.0000000E+00 + -84.50000 88.50000 0.0000000E+00 + -83.50000 88.50000 0.0000000E+00 + -82.50000 88.50000 0.0000000E+00 + -81.50000 88.50000 0.0000000E+00 + -80.50000 88.50000 0.0000000E+00 + -79.50000 88.50000 0.0000000E+00 + -78.50000 88.50000 0.0000000E+00 + -77.50000 88.50000 0.0000000E+00 + -76.50000 88.50000 0.0000000E+00 + -75.50000 88.50000 0.0000000E+00 + -74.50000 88.50000 0.0000000E+00 + -73.50000 88.50000 0.0000000E+00 + -72.50000 88.50000 0.0000000E+00 + -71.50000 88.50000 0.0000000E+00 + -70.50000 88.50000 0.0000000E+00 + -69.50000 88.50000 0.0000000E+00 + -68.50000 88.50000 0.0000000E+00 + -67.50000 88.50000 0.0000000E+00 + -66.50000 88.50000 0.0000000E+00 + -65.50000 88.50000 0.0000000E+00 + -64.50000 88.50000 0.0000000E+00 + -63.50000 88.50000 0.0000000E+00 + -62.50000 88.50000 0.0000000E+00 + -61.50000 88.50000 0.0000000E+00 + -60.50000 88.50000 0.0000000E+00 + -59.50000 88.50000 0.0000000E+00 + -58.50000 88.50000 0.0000000E+00 + -57.50000 88.50000 0.0000000E+00 + -56.50000 88.50000 0.0000000E+00 + -55.50000 88.50000 0.0000000E+00 + -54.50000 88.50000 0.0000000E+00 + -53.50000 88.50000 0.0000000E+00 + -52.50000 88.50000 0.0000000E+00 + -51.50000 88.50000 0.0000000E+00 + -50.50000 88.50000 0.0000000E+00 + -49.50000 88.50000 0.0000000E+00 + -48.50000 88.50000 0.0000000E+00 + -47.50000 88.50000 0.0000000E+00 + -46.50000 88.50000 0.0000000E+00 + -45.50000 88.50000 0.0000000E+00 + -44.50000 88.50000 0.0000000E+00 + -43.50000 88.50000 0.0000000E+00 + -42.50000 88.50000 0.0000000E+00 + -41.50000 88.50000 0.0000000E+00 + -40.50000 88.50000 0.0000000E+00 + -39.50000 88.50000 0.0000000E+00 + -38.50000 88.50000 0.0000000E+00 + -37.50000 88.50000 0.0000000E+00 + -36.50000 88.50000 0.0000000E+00 + -35.50000 88.50000 0.0000000E+00 + -34.50000 88.50000 0.0000000E+00 + -33.50000 88.50000 0.0000000E+00 + -32.50000 88.50000 0.0000000E+00 + -31.50000 88.50000 0.0000000E+00 + -30.50000 88.50000 0.0000000E+00 + -29.50000 88.50000 0.0000000E+00 + -28.50000 88.50000 0.0000000E+00 + -27.50000 88.50000 0.0000000E+00 + -26.50000 88.50000 0.0000000E+00 + -25.50000 88.50000 0.0000000E+00 + -24.50000 88.50000 0.0000000E+00 + -23.50000 88.50000 0.0000000E+00 + -22.50000 88.50000 0.0000000E+00 + -21.50000 88.50000 0.0000000E+00 + -20.50000 88.50000 0.0000000E+00 + -19.50000 88.50000 0.0000000E+00 + -18.50000 88.50000 0.0000000E+00 + -17.50000 88.50000 0.0000000E+00 + -16.50000 88.50000 0.0000000E+00 + -15.50000 88.50000 0.0000000E+00 + -14.50000 88.50000 0.0000000E+00 + -13.50000 88.50000 0.0000000E+00 + -12.50000 88.50000 0.0000000E+00 + -11.50000 88.50000 0.0000000E+00 + -10.50000 88.50000 0.0000000E+00 + -9.500000 88.50000 0.0000000E+00 + -8.500000 88.50000 0.0000000E+00 + -7.500000 88.50000 0.0000000E+00 + -6.500000 88.50000 0.0000000E+00 + -5.500000 88.50000 0.0000000E+00 + -4.500000 88.50000 0.0000000E+00 + -3.500000 88.50000 0.0000000E+00 + -2.500000 88.50000 0.0000000E+00 + -1.500000 88.50000 0.0000000E+00 + -0.5000000 88.50000 0.0000000E+00 + 0.5000000 88.50000 0.0000000E+00 + 1.500000 88.50000 0.0000000E+00 + 2.500000 88.50000 0.0000000E+00 + 3.500000 88.50000 0.0000000E+00 + 4.500000 88.50000 0.0000000E+00 + 5.500000 88.50000 0.0000000E+00 + 6.500000 88.50000 0.0000000E+00 + 7.500000 88.50000 0.0000000E+00 + 8.500000 88.50000 0.0000000E+00 + 9.500000 88.50000 0.0000000E+00 + 10.50000 88.50000 0.0000000E+00 + 11.50000 88.50000 0.0000000E+00 + 12.50000 88.50000 0.0000000E+00 + 13.50000 88.50000 0.0000000E+00 + 14.50000 88.50000 0.0000000E+00 + 15.50000 88.50000 0.0000000E+00 + 16.50000 88.50000 0.0000000E+00 + 17.50000 88.50000 0.0000000E+00 + 18.50000 88.50000 0.0000000E+00 + 19.50000 88.50000 0.0000000E+00 + 20.50000 88.50000 0.0000000E+00 + 21.50000 88.50000 0.0000000E+00 + 22.50000 88.50000 0.0000000E+00 + 23.50000 88.50000 0.0000000E+00 + 24.50000 88.50000 0.0000000E+00 + 25.50000 88.50000 0.0000000E+00 + 26.50000 88.50000 0.0000000E+00 + 27.50000 88.50000 0.0000000E+00 + 28.50000 88.50000 9.9347435E-06 + 29.50000 88.50000 0.0000000E+00 + 30.50000 88.50000 0.0000000E+00 + 31.50000 88.50000 5.6456047E-04 + 32.50000 88.50000 3.3938463E-04 + 33.50000 88.50000 1.1714906E-03 + 34.50000 88.50000 1.2517005E-03 + 35.50000 88.50000 1.4829169E-03 + 36.50000 88.50000 7.6371484E-04 + 37.50000 88.50000 6.5726950E-04 + 38.50000 88.50000 1.9129809E-03 + 39.50000 88.50000 0.1688656 + 40.50000 88.50000 0.1688656 + 41.50000 88.50000 0.1231260 + 42.50000 88.50000 0.2062584 + 43.50000 88.50000 0.0000000E+00 + 44.50000 88.50000 0.0000000E+00 + 45.50000 88.50000 0.0000000E+00 + 46.50000 88.50000 0.0000000E+00 + 47.50000 88.50000 0.0000000E+00 + 48.50000 88.50000 0.0000000E+00 + 49.50000 88.50000 0.0000000E+00 + 50.50000 88.50000 0.0000000E+00 + 51.50000 88.50000 0.0000000E+00 + 52.50000 88.50000 0.0000000E+00 + 53.50000 88.50000 0.0000000E+00 + 54.50000 88.50000 0.0000000E+00 + 55.50000 88.50000 0.0000000E+00 + 56.50000 88.50000 0.0000000E+00 + 57.50000 88.50000 0.0000000E+00 + 58.50000 88.50000 0.0000000E+00 + 59.50000 88.50000 0.0000000E+00 + 60.50000 88.50000 0.0000000E+00 + 61.50000 88.50000 0.0000000E+00 + 62.50000 88.50000 0.0000000E+00 + 63.50000 88.50000 0.0000000E+00 + 64.50000 88.50000 0.0000000E+00 + 65.50000 88.50000 0.0000000E+00 + 66.50000 88.50000 0.0000000E+00 + 67.50000 88.50000 0.0000000E+00 + 68.50000 88.50000 0.0000000E+00 + 69.50000 88.50000 0.0000000E+00 + 70.50000 88.50000 0.0000000E+00 + 71.50000 88.50000 0.0000000E+00 + 72.50000 88.50000 0.0000000E+00 + 73.50000 88.50000 0.0000000E+00 + 74.50000 88.50000 0.0000000E+00 + 75.50000 88.50000 0.0000000E+00 + 76.50000 88.50000 0.0000000E+00 + 77.50000 88.50000 0.0000000E+00 + 78.50000 88.50000 0.0000000E+00 + 79.50000 88.50000 0.0000000E+00 + 80.50000 88.50000 0.0000000E+00 + 81.50000 88.50000 0.0000000E+00 + 82.50000 88.50000 0.0000000E+00 + 83.50000 88.50000 0.0000000E+00 + 84.50000 88.50000 0.0000000E+00 + 85.50000 88.50000 0.0000000E+00 + 86.50000 88.50000 0.0000000E+00 + 87.50000 88.50000 0.0000000E+00 + 88.50000 88.50000 0.0000000E+00 + 89.50000 88.50000 0.0000000E+00 + -89.50000 89.50000 0.0000000E+00 + -88.50000 89.50000 0.0000000E+00 + -87.50000 89.50000 0.0000000E+00 + -86.50000 89.50000 0.0000000E+00 + -85.50000 89.50000 0.0000000E+00 + -84.50000 89.50000 0.0000000E+00 + -83.50000 89.50000 0.0000000E+00 + -82.50000 89.50000 0.0000000E+00 + -81.50000 89.50000 0.0000000E+00 + -80.50000 89.50000 0.0000000E+00 + -79.50000 89.50000 0.0000000E+00 + -78.50000 89.50000 0.0000000E+00 + -77.50000 89.50000 0.0000000E+00 + -76.50000 89.50000 0.0000000E+00 + -75.50000 89.50000 0.0000000E+00 + -74.50000 89.50000 0.0000000E+00 + -73.50000 89.50000 0.0000000E+00 + -72.50000 89.50000 0.0000000E+00 + -71.50000 89.50000 0.0000000E+00 + -70.50000 89.50000 0.0000000E+00 + -69.50000 89.50000 0.0000000E+00 + -68.50000 89.50000 0.0000000E+00 + -67.50000 89.50000 0.0000000E+00 + -66.50000 89.50000 0.0000000E+00 + -65.50000 89.50000 0.0000000E+00 + -64.50000 89.50000 0.0000000E+00 + -63.50000 89.50000 0.0000000E+00 + -62.50000 89.50000 0.0000000E+00 + -61.50000 89.50000 0.0000000E+00 + -60.50000 89.50000 0.0000000E+00 + -59.50000 89.50000 0.0000000E+00 + -58.50000 89.50000 0.0000000E+00 + -57.50000 89.50000 0.0000000E+00 + -56.50000 89.50000 0.0000000E+00 + -55.50000 89.50000 0.0000000E+00 + -54.50000 89.50000 0.0000000E+00 + -53.50000 89.50000 0.0000000E+00 + -52.50000 89.50000 0.0000000E+00 + -51.50000 89.50000 0.0000000E+00 + -50.50000 89.50000 0.0000000E+00 + -49.50000 89.50000 0.0000000E+00 + -48.50000 89.50000 0.0000000E+00 + -47.50000 89.50000 0.0000000E+00 + -46.50000 89.50000 0.0000000E+00 + -45.50000 89.50000 0.0000000E+00 + -44.50000 89.50000 0.0000000E+00 + -43.50000 89.50000 0.0000000E+00 + -42.50000 89.50000 0.0000000E+00 + -41.50000 89.50000 0.0000000E+00 + -40.50000 89.50000 0.0000000E+00 + -39.50000 89.50000 0.0000000E+00 + -38.50000 89.50000 0.0000000E+00 + -37.50000 89.50000 0.0000000E+00 + -36.50000 89.50000 0.0000000E+00 + -35.50000 89.50000 0.0000000E+00 + -34.50000 89.50000 0.0000000E+00 + -33.50000 89.50000 0.0000000E+00 + -32.50000 89.50000 0.0000000E+00 + -31.50000 89.50000 0.0000000E+00 + -30.50000 89.50000 0.0000000E+00 + -29.50000 89.50000 0.0000000E+00 + -28.50000 89.50000 0.0000000E+00 + -27.50000 89.50000 0.0000000E+00 + -26.50000 89.50000 0.0000000E+00 + -25.50000 89.50000 0.0000000E+00 + -24.50000 89.50000 0.0000000E+00 + -23.50000 89.50000 0.0000000E+00 + -22.50000 89.50000 0.0000000E+00 + -21.50000 89.50000 0.0000000E+00 + -20.50000 89.50000 0.0000000E+00 + -19.50000 89.50000 0.0000000E+00 + -18.50000 89.50000 0.0000000E+00 + -17.50000 89.50000 0.0000000E+00 + -16.50000 89.50000 0.0000000E+00 + -15.50000 89.50000 0.0000000E+00 + -14.50000 89.50000 0.0000000E+00 + -13.50000 89.50000 0.0000000E+00 + -12.50000 89.50000 0.0000000E+00 + -11.50000 89.50000 0.0000000E+00 + -10.50000 89.50000 0.0000000E+00 + -9.500000 89.50000 0.0000000E+00 + -8.500000 89.50000 0.0000000E+00 + -7.500000 89.50000 0.0000000E+00 + -6.500000 89.50000 0.0000000E+00 + -5.500000 89.50000 0.0000000E+00 + -4.500000 89.50000 0.0000000E+00 + -3.500000 89.50000 0.0000000E+00 + -2.500000 89.50000 0.0000000E+00 + -1.500000 89.50000 0.0000000E+00 + -0.5000000 89.50000 0.0000000E+00 + 0.5000000 89.50000 0.0000000E+00 + 1.500000 89.50000 0.0000000E+00 + 2.500000 89.50000 0.0000000E+00 + 3.500000 89.50000 0.0000000E+00 + 4.500000 89.50000 0.0000000E+00 + 5.500000 89.50000 0.0000000E+00 + 6.500000 89.50000 0.0000000E+00 + 7.500000 89.50000 0.0000000E+00 + 8.500000 89.50000 0.0000000E+00 + 9.500000 89.50000 0.0000000E+00 + 10.50000 89.50000 0.0000000E+00 + 11.50000 89.50000 0.0000000E+00 + 12.50000 89.50000 0.0000000E+00 + 13.50000 89.50000 0.0000000E+00 + 14.50000 89.50000 0.0000000E+00 + 15.50000 89.50000 0.0000000E+00 + 16.50000 89.50000 0.0000000E+00 + 17.50000 89.50000 0.0000000E+00 + 18.50000 89.50000 0.0000000E+00 + 19.50000 89.50000 0.0000000E+00 + 20.50000 89.50000 0.0000000E+00 + 21.50000 89.50000 0.0000000E+00 + 22.50000 89.50000 0.0000000E+00 + 23.50000 89.50000 0.0000000E+00 + 24.50000 89.50000 0.0000000E+00 + 25.50000 89.50000 0.0000000E+00 + 26.50000 89.50000 0.0000000E+00 + 27.50000 89.50000 0.0000000E+00 + 28.50000 89.50000 7.5441945E-05 + 29.50000 89.50000 0.0000000E+00 + 30.50000 89.50000 0.0000000E+00 + 31.50000 89.50000 5.6456047E-04 + 32.50000 89.50000 2.0223767E-03 + 33.50000 89.50000 1.4147859E-03 + 34.50000 89.50000 1.6165911E-03 + 35.50000 89.50000 2.1480289E-03 + 36.50000 89.50000 1.5274297E-04 + 37.50000 89.50000 2.5622454E-04 + 38.50000 89.50000 6.8948255E-04 + 39.50000 89.50000 0.1084393 + 40.50000 89.50000 0.1675442 + 41.50000 89.50000 0.1176068 + 42.50000 89.50000 0.2375026 + 43.50000 89.50000 0.0000000E+00 + 44.50000 89.50000 0.0000000E+00 + 45.50000 89.50000 0.0000000E+00 + 46.50000 89.50000 0.0000000E+00 + 47.50000 89.50000 0.0000000E+00 + 48.50000 89.50000 0.0000000E+00 + 49.50000 89.50000 0.0000000E+00 + 50.50000 89.50000 0.0000000E+00 + 51.50000 89.50000 0.0000000E+00 + 52.50000 89.50000 0.0000000E+00 + 53.50000 89.50000 0.0000000E+00 + 54.50000 89.50000 0.0000000E+00 + 55.50000 89.50000 0.0000000E+00 + 56.50000 89.50000 0.0000000E+00 + 57.50000 89.50000 0.0000000E+00 + 58.50000 89.50000 0.0000000E+00 + 59.50000 89.50000 0.0000000E+00 + 60.50000 89.50000 0.0000000E+00 + 61.50000 89.50000 0.0000000E+00 + 62.50000 89.50000 0.0000000E+00 + 63.50000 89.50000 0.0000000E+00 + 64.50000 89.50000 0.0000000E+00 + 65.50000 89.50000 0.0000000E+00 + 66.50000 89.50000 0.0000000E+00 + 67.50000 89.50000 0.0000000E+00 + 68.50000 89.50000 0.0000000E+00 + 69.50000 89.50000 0.0000000E+00 + 70.50000 89.50000 0.0000000E+00 + 71.50000 89.50000 0.0000000E+00 + 72.50000 89.50000 0.0000000E+00 + 73.50000 89.50000 0.0000000E+00 + 74.50000 89.50000 0.0000000E+00 + 75.50000 89.50000 0.0000000E+00 + 76.50000 89.50000 0.0000000E+00 + 77.50000 89.50000 0.0000000E+00 + 78.50000 89.50000 0.0000000E+00 + 79.50000 89.50000 0.0000000E+00 + 80.50000 89.50000 0.0000000E+00 + 81.50000 89.50000 0.0000000E+00 + 82.50000 89.50000 0.0000000E+00 + 83.50000 89.50000 0.0000000E+00 + 84.50000 89.50000 0.0000000E+00 + 85.50000 89.50000 0.0000000E+00 + 86.50000 89.50000 0.0000000E+00 + 87.50000 89.50000 0.0000000E+00 + 88.50000 89.50000 0.0000000E+00 + 89.50000 89.50000 0.0000000E+00 + -89.50000 90.50000 0.0000000E+00 + -88.50000 90.50000 0.0000000E+00 + -87.50000 90.50000 0.0000000E+00 + -86.50000 90.50000 0.0000000E+00 + -85.50000 90.50000 0.0000000E+00 + -84.50000 90.50000 0.0000000E+00 + -83.50000 90.50000 0.0000000E+00 + -82.50000 90.50000 0.0000000E+00 + -81.50000 90.50000 0.0000000E+00 + -80.50000 90.50000 0.0000000E+00 + -79.50000 90.50000 0.0000000E+00 + -78.50000 90.50000 0.0000000E+00 + -77.50000 90.50000 0.0000000E+00 + -76.50000 90.50000 0.0000000E+00 + -75.50000 90.50000 0.0000000E+00 + -74.50000 90.50000 0.0000000E+00 + -73.50000 90.50000 0.0000000E+00 + -72.50000 90.50000 0.0000000E+00 + -71.50000 90.50000 0.0000000E+00 + -70.50000 90.50000 0.0000000E+00 + -69.50000 90.50000 0.0000000E+00 + -68.50000 90.50000 0.0000000E+00 + -67.50000 90.50000 0.0000000E+00 + -66.50000 90.50000 0.0000000E+00 + -65.50000 90.50000 0.0000000E+00 + -64.50000 90.50000 0.0000000E+00 + -63.50000 90.50000 0.0000000E+00 + -62.50000 90.50000 0.0000000E+00 + -61.50000 90.50000 0.0000000E+00 + -60.50000 90.50000 0.0000000E+00 + -59.50000 90.50000 0.0000000E+00 + -58.50000 90.50000 0.0000000E+00 + -57.50000 90.50000 0.0000000E+00 + -56.50000 90.50000 0.0000000E+00 + -55.50000 90.50000 0.0000000E+00 + -54.50000 90.50000 0.0000000E+00 + -53.50000 90.50000 0.0000000E+00 + -52.50000 90.50000 0.0000000E+00 + -51.50000 90.50000 0.0000000E+00 + -50.50000 90.50000 0.0000000E+00 + -49.50000 90.50000 0.0000000E+00 + -48.50000 90.50000 0.0000000E+00 + -47.50000 90.50000 0.0000000E+00 + -46.50000 90.50000 0.0000000E+00 + -45.50000 90.50000 0.0000000E+00 + -44.50000 90.50000 0.0000000E+00 + -43.50000 90.50000 0.0000000E+00 + -42.50000 90.50000 0.0000000E+00 + -41.50000 90.50000 0.0000000E+00 + -40.50000 90.50000 0.0000000E+00 + -39.50000 90.50000 0.0000000E+00 + -38.50000 90.50000 0.0000000E+00 + -37.50000 90.50000 0.0000000E+00 + -36.50000 90.50000 0.0000000E+00 + -35.50000 90.50000 0.0000000E+00 + -34.50000 90.50000 0.0000000E+00 + -33.50000 90.50000 0.0000000E+00 + -32.50000 90.50000 0.0000000E+00 + -31.50000 90.50000 0.0000000E+00 + -30.50000 90.50000 0.0000000E+00 + -29.50000 90.50000 0.0000000E+00 + -28.50000 90.50000 0.0000000E+00 + -27.50000 90.50000 0.0000000E+00 + -26.50000 90.50000 0.0000000E+00 + -25.50000 90.50000 0.0000000E+00 + -24.50000 90.50000 0.0000000E+00 + -23.50000 90.50000 0.0000000E+00 + -22.50000 90.50000 0.0000000E+00 + -21.50000 90.50000 0.0000000E+00 + -20.50000 90.50000 0.0000000E+00 + -19.50000 90.50000 0.0000000E+00 + -18.50000 90.50000 0.0000000E+00 + -17.50000 90.50000 0.0000000E+00 + -16.50000 90.50000 0.0000000E+00 + -15.50000 90.50000 0.0000000E+00 + -14.50000 90.50000 0.0000000E+00 + -13.50000 90.50000 0.0000000E+00 + -12.50000 90.50000 0.0000000E+00 + -11.50000 90.50000 0.0000000E+00 + -10.50000 90.50000 0.0000000E+00 + -9.500000 90.50000 0.0000000E+00 + -8.500000 90.50000 0.0000000E+00 + -7.500000 90.50000 0.0000000E+00 + -6.500000 90.50000 0.0000000E+00 + -5.500000 90.50000 0.0000000E+00 + -4.500000 90.50000 0.0000000E+00 + -3.500000 90.50000 0.0000000E+00 + -2.500000 90.50000 0.0000000E+00 + -1.500000 90.50000 0.0000000E+00 + -0.5000000 90.50000 0.0000000E+00 + 0.5000000 90.50000 0.0000000E+00 + 1.500000 90.50000 0.0000000E+00 + 2.500000 90.50000 0.0000000E+00 + 3.500000 90.50000 0.0000000E+00 + 4.500000 90.50000 0.0000000E+00 + 5.500000 90.50000 0.0000000E+00 + 6.500000 90.50000 0.0000000E+00 + 7.500000 90.50000 0.0000000E+00 + 8.500000 90.50000 0.0000000E+00 + 9.500000 90.50000 0.0000000E+00 + 10.50000 90.50000 0.0000000E+00 + 11.50000 90.50000 0.0000000E+00 + 12.50000 90.50000 0.0000000E+00 + 13.50000 90.50000 0.0000000E+00 + 14.50000 90.50000 0.0000000E+00 + 15.50000 90.50000 0.0000000E+00 + 16.50000 90.50000 0.0000000E+00 + 17.50000 90.50000 0.0000000E+00 + 18.50000 90.50000 0.0000000E+00 + 19.50000 90.50000 0.0000000E+00 + 20.50000 90.50000 0.0000000E+00 + 21.50000 90.50000 0.0000000E+00 + 22.50000 90.50000 0.0000000E+00 + 23.50000 90.50000 0.0000000E+00 + 24.50000 90.50000 0.0000000E+00 + 25.50000 90.50000 0.0000000E+00 + 26.50000 90.50000 0.0000000E+00 + 27.50000 90.50000 0.0000000E+00 + 28.50000 90.50000 0.0000000E+00 + 29.50000 90.50000 0.0000000E+00 + 30.50000 90.50000 0.0000000E+00 + 31.50000 90.50000 1.0357198E-03 + 32.50000 90.50000 6.6168606E-04 + 33.50000 90.50000 0.0000000E+00 + 34.50000 90.50000 8.0929260E-04 + 35.50000 90.50000 3.0328878E-03 + 36.50000 90.50000 4.6843506E-05 + 37.50000 90.50000 6.9008696E-05 + 38.50000 90.50000 6.4213043E-03 + 39.50000 90.50000 1.5978264E-02 + 40.50000 90.50000 0.1508039 + 41.50000 90.50000 0.1045530 + 42.50000 90.50000 0.0000000E+00 + 43.50000 90.50000 0.0000000E+00 + 44.50000 90.50000 0.0000000E+00 + 45.50000 90.50000 0.0000000E+00 + 46.50000 90.50000 0.0000000E+00 + 47.50000 90.50000 0.0000000E+00 + 48.50000 90.50000 0.0000000E+00 + 49.50000 90.50000 0.0000000E+00 + 50.50000 90.50000 0.0000000E+00 + 51.50000 90.50000 0.0000000E+00 + 52.50000 90.50000 0.0000000E+00 + 53.50000 90.50000 0.0000000E+00 + 54.50000 90.50000 0.0000000E+00 + 55.50000 90.50000 0.0000000E+00 + 56.50000 90.50000 0.0000000E+00 + 57.50000 90.50000 0.0000000E+00 + 58.50000 90.50000 0.0000000E+00 + 59.50000 90.50000 0.0000000E+00 + 60.50000 90.50000 0.0000000E+00 + 61.50000 90.50000 0.0000000E+00 + 62.50000 90.50000 0.0000000E+00 + 63.50000 90.50000 0.0000000E+00 + 64.50000 90.50000 0.0000000E+00 + 65.50000 90.50000 0.0000000E+00 + 66.50000 90.50000 0.0000000E+00 + 67.50000 90.50000 0.0000000E+00 + 68.50000 90.50000 0.0000000E+00 + 69.50000 90.50000 0.0000000E+00 + 70.50000 90.50000 0.0000000E+00 + 71.50000 90.50000 0.0000000E+00 + 72.50000 90.50000 0.0000000E+00 + 73.50000 90.50000 0.0000000E+00 + 74.50000 90.50000 0.0000000E+00 + 75.50000 90.50000 0.0000000E+00 + 76.50000 90.50000 0.0000000E+00 + 77.50000 90.50000 0.0000000E+00 + 78.50000 90.50000 0.0000000E+00 + 79.50000 90.50000 0.0000000E+00 + 80.50000 90.50000 0.0000000E+00 + 81.50000 90.50000 0.0000000E+00 + 82.50000 90.50000 0.0000000E+00 + 83.50000 90.50000 0.0000000E+00 + 84.50000 90.50000 0.0000000E+00 + 85.50000 90.50000 0.0000000E+00 + 86.50000 90.50000 0.0000000E+00 + 87.50000 90.50000 0.0000000E+00 + 88.50000 90.50000 0.0000000E+00 + 89.50000 90.50000 0.0000000E+00 + -89.50000 91.50000 0.0000000E+00 + -88.50000 91.50000 0.0000000E+00 + -87.50000 91.50000 0.0000000E+00 + -86.50000 91.50000 0.0000000E+00 + -85.50000 91.50000 0.0000000E+00 + -84.50000 91.50000 0.0000000E+00 + -83.50000 91.50000 0.0000000E+00 + -82.50000 91.50000 0.0000000E+00 + -81.50000 91.50000 0.0000000E+00 + -80.50000 91.50000 0.0000000E+00 + -79.50000 91.50000 0.0000000E+00 + -78.50000 91.50000 0.0000000E+00 + -77.50000 91.50000 0.0000000E+00 + -76.50000 91.50000 0.0000000E+00 + -75.50000 91.50000 0.0000000E+00 + -74.50000 91.50000 0.0000000E+00 + -73.50000 91.50000 0.0000000E+00 + -72.50000 91.50000 0.0000000E+00 + -71.50000 91.50000 0.0000000E+00 + -70.50000 91.50000 0.0000000E+00 + -69.50000 91.50000 0.0000000E+00 + -68.50000 91.50000 0.0000000E+00 + -67.50000 91.50000 0.0000000E+00 + -66.50000 91.50000 0.0000000E+00 + -65.50000 91.50000 0.0000000E+00 + -64.50000 91.50000 0.0000000E+00 + -63.50000 91.50000 0.0000000E+00 + -62.50000 91.50000 0.0000000E+00 + -61.50000 91.50000 0.0000000E+00 + -60.50000 91.50000 0.0000000E+00 + -59.50000 91.50000 0.0000000E+00 + -58.50000 91.50000 0.0000000E+00 + -57.50000 91.50000 0.0000000E+00 + -56.50000 91.50000 0.0000000E+00 + -55.50000 91.50000 0.0000000E+00 + -54.50000 91.50000 0.0000000E+00 + -53.50000 91.50000 0.0000000E+00 + -52.50000 91.50000 0.0000000E+00 + -51.50000 91.50000 0.0000000E+00 + -50.50000 91.50000 0.0000000E+00 + -49.50000 91.50000 0.0000000E+00 + -48.50000 91.50000 0.0000000E+00 + -47.50000 91.50000 0.0000000E+00 + -46.50000 91.50000 0.0000000E+00 + -45.50000 91.50000 0.0000000E+00 + -44.50000 91.50000 0.0000000E+00 + -43.50000 91.50000 0.0000000E+00 + -42.50000 91.50000 0.0000000E+00 + -41.50000 91.50000 0.0000000E+00 + -40.50000 91.50000 0.0000000E+00 + -39.50000 91.50000 0.0000000E+00 + -38.50000 91.50000 0.0000000E+00 + -37.50000 91.50000 0.0000000E+00 + -36.50000 91.50000 0.0000000E+00 + -35.50000 91.50000 0.0000000E+00 + -34.50000 91.50000 0.0000000E+00 + -33.50000 91.50000 0.0000000E+00 + -32.50000 91.50000 0.0000000E+00 + -31.50000 91.50000 0.0000000E+00 + -30.50000 91.50000 0.0000000E+00 + -29.50000 91.50000 0.0000000E+00 + -28.50000 91.50000 0.0000000E+00 + -27.50000 91.50000 0.0000000E+00 + -26.50000 91.50000 0.0000000E+00 + -25.50000 91.50000 0.0000000E+00 + -24.50000 91.50000 0.0000000E+00 + -23.50000 91.50000 0.0000000E+00 + -22.50000 91.50000 0.0000000E+00 + -21.50000 91.50000 0.0000000E+00 + -20.50000 91.50000 0.0000000E+00 + -19.50000 91.50000 0.0000000E+00 + -18.50000 91.50000 0.0000000E+00 + -17.50000 91.50000 0.0000000E+00 + -16.50000 91.50000 0.0000000E+00 + -15.50000 91.50000 0.0000000E+00 + -14.50000 91.50000 0.0000000E+00 + -13.50000 91.50000 0.0000000E+00 + -12.50000 91.50000 0.0000000E+00 + -11.50000 91.50000 0.0000000E+00 + -10.50000 91.50000 0.0000000E+00 + -9.500000 91.50000 0.0000000E+00 + -8.500000 91.50000 0.0000000E+00 + -7.500000 91.50000 0.0000000E+00 + -6.500000 91.50000 0.0000000E+00 + -5.500000 91.50000 0.0000000E+00 + -4.500000 91.50000 0.0000000E+00 + -3.500000 91.50000 0.0000000E+00 + -2.500000 91.50000 0.0000000E+00 + -1.500000 91.50000 0.0000000E+00 + -0.5000000 91.50000 0.0000000E+00 + 0.5000000 91.50000 0.0000000E+00 + 1.500000 91.50000 0.0000000E+00 + 2.500000 91.50000 0.0000000E+00 + 3.500000 91.50000 0.0000000E+00 + 4.500000 91.50000 0.0000000E+00 + 5.500000 91.50000 0.0000000E+00 + 6.500000 91.50000 0.0000000E+00 + 7.500000 91.50000 0.0000000E+00 + 8.500000 91.50000 0.0000000E+00 + 9.500000 91.50000 0.0000000E+00 + 10.50000 91.50000 0.0000000E+00 + 11.50000 91.50000 0.0000000E+00 + 12.50000 91.50000 0.0000000E+00 + 13.50000 91.50000 0.0000000E+00 + 14.50000 91.50000 0.0000000E+00 + 15.50000 91.50000 0.0000000E+00 + 16.50000 91.50000 0.0000000E+00 + 17.50000 91.50000 0.0000000E+00 + 18.50000 91.50000 0.0000000E+00 + 19.50000 91.50000 0.0000000E+00 + 20.50000 91.50000 0.0000000E+00 + 21.50000 91.50000 0.0000000E+00 + 22.50000 91.50000 0.0000000E+00 + 23.50000 91.50000 0.0000000E+00 + 24.50000 91.50000 0.0000000E+00 + 25.50000 91.50000 0.0000000E+00 + 26.50000 91.50000 0.0000000E+00 + 27.50000 91.50000 0.0000000E+00 + 28.50000 91.50000 0.0000000E+00 + 29.50000 91.50000 0.0000000E+00 + 30.50000 91.50000 0.0000000E+00 + 31.50000 91.50000 0.0000000E+00 + 32.50000 91.50000 0.0000000E+00 + 33.50000 91.50000 3.3938463E-04 + 34.50000 91.50000 8.6707663E-04 + 35.50000 91.50000 6.0657755E-04 + 36.50000 91.50000 2.3196583E-06 + 37.50000 91.50000 7.2360877E-04 + 38.50000 91.50000 3.3887280E-03 + 39.50000 91.50000 7.8125000E-03 + 40.50000 91.50000 0.1354292 + 41.50000 91.50000 0.1045530 + 42.50000 91.50000 0.1459564 + 43.50000 91.50000 5.7252023E-02 + 44.50000 91.50000 0.1326484 + 45.50000 91.50000 8.1920013E-02 + 46.50000 91.50000 0.0000000E+00 + 47.50000 91.50000 0.0000000E+00 + 48.50000 91.50000 0.0000000E+00 + 49.50000 91.50000 0.0000000E+00 + 50.50000 91.50000 0.0000000E+00 + 51.50000 91.50000 0.0000000E+00 + 52.50000 91.50000 0.0000000E+00 + 53.50000 91.50000 0.0000000E+00 + 54.50000 91.50000 0.0000000E+00 + 55.50000 91.50000 0.0000000E+00 + 56.50000 91.50000 0.0000000E+00 + 57.50000 91.50000 0.0000000E+00 + 58.50000 91.50000 0.0000000E+00 + 59.50000 91.50000 0.0000000E+00 + 60.50000 91.50000 0.0000000E+00 + 61.50000 91.50000 0.0000000E+00 + 62.50000 91.50000 0.0000000E+00 + 63.50000 91.50000 0.0000000E+00 + 64.50000 91.50000 0.0000000E+00 + 65.50000 91.50000 0.0000000E+00 + 66.50000 91.50000 0.0000000E+00 + 67.50000 91.50000 0.0000000E+00 + 68.50000 91.50000 0.0000000E+00 + 69.50000 91.50000 0.0000000E+00 + 70.50000 91.50000 0.0000000E+00 + 71.50000 91.50000 0.0000000E+00 + 72.50000 91.50000 0.0000000E+00 + 73.50000 91.50000 0.0000000E+00 + 74.50000 91.50000 0.0000000E+00 + 75.50000 91.50000 0.0000000E+00 + 76.50000 91.50000 0.0000000E+00 + 77.50000 91.50000 0.0000000E+00 + 78.50000 91.50000 0.0000000E+00 + 79.50000 91.50000 0.0000000E+00 + 80.50000 91.50000 0.0000000E+00 + 81.50000 91.50000 0.0000000E+00 + 82.50000 91.50000 0.0000000E+00 + 83.50000 91.50000 0.0000000E+00 + 84.50000 91.50000 0.0000000E+00 + 85.50000 91.50000 0.0000000E+00 + 86.50000 91.50000 0.0000000E+00 + 87.50000 91.50000 0.0000000E+00 + 88.50000 91.50000 0.0000000E+00 + 89.50000 91.50000 0.0000000E+00 + -89.50000 92.50000 0.0000000E+00 + -88.50000 92.50000 0.0000000E+00 + -87.50000 92.50000 0.0000000E+00 + -86.50000 92.50000 0.0000000E+00 + -85.50000 92.50000 0.0000000E+00 + -84.50000 92.50000 0.0000000E+00 + -83.50000 92.50000 0.0000000E+00 + -82.50000 92.50000 0.0000000E+00 + -81.50000 92.50000 0.0000000E+00 + -80.50000 92.50000 0.0000000E+00 + -79.50000 92.50000 0.0000000E+00 + -78.50000 92.50000 0.0000000E+00 + -77.50000 92.50000 0.0000000E+00 + -76.50000 92.50000 0.0000000E+00 + -75.50000 92.50000 0.0000000E+00 + -74.50000 92.50000 0.0000000E+00 + -73.50000 92.50000 0.0000000E+00 + -72.50000 92.50000 0.0000000E+00 + -71.50000 92.50000 0.0000000E+00 + -70.50000 92.50000 0.0000000E+00 + -69.50000 92.50000 0.0000000E+00 + -68.50000 92.50000 0.0000000E+00 + -67.50000 92.50000 0.0000000E+00 + -66.50000 92.50000 0.0000000E+00 + -65.50000 92.50000 0.0000000E+00 + -64.50000 92.50000 0.0000000E+00 + -63.50000 92.50000 0.0000000E+00 + -62.50000 92.50000 0.0000000E+00 + -61.50000 92.50000 0.0000000E+00 + -60.50000 92.50000 0.0000000E+00 + -59.50000 92.50000 0.0000000E+00 + -58.50000 92.50000 0.0000000E+00 + -57.50000 92.50000 0.0000000E+00 + -56.50000 92.50000 0.0000000E+00 + -55.50000 92.50000 0.0000000E+00 + -54.50000 92.50000 0.0000000E+00 + -53.50000 92.50000 0.0000000E+00 + -52.50000 92.50000 0.0000000E+00 + -51.50000 92.50000 0.0000000E+00 + -50.50000 92.50000 0.0000000E+00 + -49.50000 92.50000 0.0000000E+00 + -48.50000 92.50000 0.0000000E+00 + -47.50000 92.50000 0.0000000E+00 + -46.50000 92.50000 0.0000000E+00 + -45.50000 92.50000 0.0000000E+00 + -44.50000 92.50000 0.0000000E+00 + -43.50000 92.50000 0.0000000E+00 + -42.50000 92.50000 0.0000000E+00 + -41.50000 92.50000 0.0000000E+00 + -40.50000 92.50000 0.0000000E+00 + -39.50000 92.50000 0.0000000E+00 + -38.50000 92.50000 0.0000000E+00 + -37.50000 92.50000 0.0000000E+00 + -36.50000 92.50000 0.0000000E+00 + -35.50000 92.50000 0.0000000E+00 + -34.50000 92.50000 0.0000000E+00 + -33.50000 92.50000 0.0000000E+00 + -32.50000 92.50000 0.0000000E+00 + -31.50000 92.50000 0.0000000E+00 + -30.50000 92.50000 0.0000000E+00 + -29.50000 92.50000 0.0000000E+00 + -28.50000 92.50000 0.0000000E+00 + -27.50000 92.50000 0.0000000E+00 + -26.50000 92.50000 0.0000000E+00 + -25.50000 92.50000 0.0000000E+00 + -24.50000 92.50000 0.0000000E+00 + -23.50000 92.50000 0.0000000E+00 + -22.50000 92.50000 0.0000000E+00 + -21.50000 92.50000 0.0000000E+00 + -20.50000 92.50000 0.0000000E+00 + -19.50000 92.50000 0.0000000E+00 + -18.50000 92.50000 0.0000000E+00 + -17.50000 92.50000 0.0000000E+00 + -16.50000 92.50000 0.0000000E+00 + -15.50000 92.50000 0.0000000E+00 + -14.50000 92.50000 0.0000000E+00 + -13.50000 92.50000 0.0000000E+00 + -12.50000 92.50000 0.0000000E+00 + -11.50000 92.50000 0.0000000E+00 + -10.50000 92.50000 0.0000000E+00 + -9.500000 92.50000 0.0000000E+00 + -8.500000 92.50000 0.0000000E+00 + -7.500000 92.50000 0.0000000E+00 + -6.500000 92.50000 0.0000000E+00 + -5.500000 92.50000 0.0000000E+00 + -4.500000 92.50000 0.0000000E+00 + -3.500000 92.50000 0.0000000E+00 + -2.500000 92.50000 0.0000000E+00 + -1.500000 92.50000 0.0000000E+00 + -0.5000000 92.50000 0.0000000E+00 + 0.5000000 92.50000 0.0000000E+00 + 1.500000 92.50000 0.0000000E+00 + 2.500000 92.50000 0.0000000E+00 + 3.500000 92.50000 0.0000000E+00 + 4.500000 92.50000 0.0000000E+00 + 5.500000 92.50000 0.0000000E+00 + 6.500000 92.50000 0.0000000E+00 + 7.500000 92.50000 0.0000000E+00 + 8.500000 92.50000 0.0000000E+00 + 9.500000 92.50000 0.0000000E+00 + 10.50000 92.50000 0.0000000E+00 + 11.50000 92.50000 0.0000000E+00 + 12.50000 92.50000 0.0000000E+00 + 13.50000 92.50000 0.0000000E+00 + 14.50000 92.50000 0.0000000E+00 + 15.50000 92.50000 0.0000000E+00 + 16.50000 92.50000 0.0000000E+00 + 17.50000 92.50000 0.0000000E+00 + 18.50000 92.50000 0.0000000E+00 + 19.50000 92.50000 0.0000000E+00 + 20.50000 92.50000 0.0000000E+00 + 21.50000 92.50000 0.0000000E+00 + 22.50000 92.50000 0.0000000E+00 + 23.50000 92.50000 0.0000000E+00 + 24.50000 92.50000 0.0000000E+00 + 25.50000 92.50000 0.0000000E+00 + 26.50000 92.50000 0.0000000E+00 + 27.50000 92.50000 0.0000000E+00 + 28.50000 92.50000 0.0000000E+00 + 29.50000 92.50000 0.0000000E+00 + 30.50000 92.50000 0.0000000E+00 + 31.50000 92.50000 0.0000000E+00 + 32.50000 92.50000 0.0000000E+00 + 33.50000 92.50000 0.0000000E+00 + 34.50000 92.50000 0.0000000E+00 + 35.50000 92.50000 8.3758694E-04 + 36.50000 92.50000 2.5622454E-04 + 37.50000 92.50000 9.9019958E-03 + 38.50000 92.50000 2.1041336E-03 + 39.50000 92.50000 7.8125000E-03 + 40.50000 92.50000 0.1213349 + 41.50000 92.50000 9.2684962E-02 + 42.50000 92.50000 0.1633135 + 43.50000 92.50000 0.0000000E+00 + 44.50000 92.50000 0.1326484 + 45.50000 92.50000 4.7060322E-02 + 46.50000 92.50000 0.0000000E+00 + 47.50000 92.50000 0.0000000E+00 + 48.50000 92.50000 0.0000000E+00 + 49.50000 92.50000 0.0000000E+00 + 50.50000 92.50000 0.0000000E+00 + 51.50000 92.50000 0.0000000E+00 + 52.50000 92.50000 0.0000000E+00 + 53.50000 92.50000 0.0000000E+00 + 54.50000 92.50000 0.0000000E+00 + 55.50000 92.50000 0.0000000E+00 + 56.50000 92.50000 0.0000000E+00 + 57.50000 92.50000 0.0000000E+00 + 58.50000 92.50000 0.0000000E+00 + 59.50000 92.50000 0.0000000E+00 + 60.50000 92.50000 0.0000000E+00 + 61.50000 92.50000 0.0000000E+00 + 62.50000 92.50000 0.0000000E+00 + 63.50000 92.50000 0.0000000E+00 + 64.50000 92.50000 0.0000000E+00 + 65.50000 92.50000 0.0000000E+00 + 66.50000 92.50000 0.0000000E+00 + 67.50000 92.50000 0.0000000E+00 + 68.50000 92.50000 0.0000000E+00 + 69.50000 92.50000 0.0000000E+00 + 70.50000 92.50000 0.0000000E+00 + 71.50000 92.50000 0.0000000E+00 + 72.50000 92.50000 0.0000000E+00 + 73.50000 92.50000 0.0000000E+00 + 74.50000 92.50000 0.0000000E+00 + 75.50000 92.50000 0.0000000E+00 + 76.50000 92.50000 0.0000000E+00 + 77.50000 92.50000 0.0000000E+00 + 78.50000 92.50000 0.0000000E+00 + 79.50000 92.50000 0.0000000E+00 + 80.50000 92.50000 0.0000000E+00 + 81.50000 92.50000 0.0000000E+00 + 82.50000 92.50000 0.0000000E+00 + 83.50000 92.50000 0.0000000E+00 + 84.50000 92.50000 0.0000000E+00 + 85.50000 92.50000 0.0000000E+00 + 86.50000 92.50000 0.0000000E+00 + 87.50000 92.50000 0.0000000E+00 + 88.50000 92.50000 0.0000000E+00 + 89.50000 92.50000 0.0000000E+00 + -89.50000 93.50000 0.0000000E+00 + -88.50000 93.50000 0.0000000E+00 + -87.50000 93.50000 0.0000000E+00 + -86.50000 93.50000 0.0000000E+00 + -85.50000 93.50000 0.0000000E+00 + -84.50000 93.50000 0.0000000E+00 + -83.50000 93.50000 0.0000000E+00 + -82.50000 93.50000 0.0000000E+00 + -81.50000 93.50000 0.0000000E+00 + -80.50000 93.50000 0.0000000E+00 + -79.50000 93.50000 0.0000000E+00 + -78.50000 93.50000 0.0000000E+00 + -77.50000 93.50000 0.0000000E+00 + -76.50000 93.50000 0.0000000E+00 + -75.50000 93.50000 0.0000000E+00 + -74.50000 93.50000 0.0000000E+00 + -73.50000 93.50000 0.0000000E+00 + -72.50000 93.50000 0.0000000E+00 + -71.50000 93.50000 0.0000000E+00 + -70.50000 93.50000 0.0000000E+00 + -69.50000 93.50000 0.0000000E+00 + -68.50000 93.50000 0.0000000E+00 + -67.50000 93.50000 0.0000000E+00 + -66.50000 93.50000 0.0000000E+00 + -65.50000 93.50000 0.0000000E+00 + -64.50000 93.50000 0.0000000E+00 + -63.50000 93.50000 0.0000000E+00 + -62.50000 93.50000 0.0000000E+00 + -61.50000 93.50000 0.0000000E+00 + -60.50000 93.50000 0.0000000E+00 + -59.50000 93.50000 0.0000000E+00 + -58.50000 93.50000 0.0000000E+00 + -57.50000 93.50000 0.0000000E+00 + -56.50000 93.50000 0.0000000E+00 + -55.50000 93.50000 0.0000000E+00 + -54.50000 93.50000 0.0000000E+00 + -53.50000 93.50000 0.0000000E+00 + -52.50000 93.50000 0.0000000E+00 + -51.50000 93.50000 0.0000000E+00 + -50.50000 93.50000 0.0000000E+00 + -49.50000 93.50000 0.0000000E+00 + -48.50000 93.50000 0.0000000E+00 + -47.50000 93.50000 0.0000000E+00 + -46.50000 93.50000 0.0000000E+00 + -45.50000 93.50000 0.0000000E+00 + -44.50000 93.50000 0.0000000E+00 + -43.50000 93.50000 0.0000000E+00 + -42.50000 93.50000 0.0000000E+00 + -41.50000 93.50000 0.0000000E+00 + -40.50000 93.50000 0.0000000E+00 + -39.50000 93.50000 0.0000000E+00 + -38.50000 93.50000 0.0000000E+00 + -37.50000 93.50000 0.0000000E+00 + -36.50000 93.50000 0.0000000E+00 + -35.50000 93.50000 0.0000000E+00 + -34.50000 93.50000 0.0000000E+00 + -33.50000 93.50000 0.0000000E+00 + -32.50000 93.50000 0.0000000E+00 + -31.50000 93.50000 0.0000000E+00 + -30.50000 93.50000 0.0000000E+00 + -29.50000 93.50000 0.0000000E+00 + -28.50000 93.50000 0.0000000E+00 + -27.50000 93.50000 0.0000000E+00 + -26.50000 93.50000 0.0000000E+00 + -25.50000 93.50000 0.0000000E+00 + -24.50000 93.50000 0.0000000E+00 + -23.50000 93.50000 0.0000000E+00 + -22.50000 93.50000 0.0000000E+00 + -21.50000 93.50000 0.0000000E+00 + -20.50000 93.50000 0.0000000E+00 + -19.50000 93.50000 0.0000000E+00 + -18.50000 93.50000 0.0000000E+00 + -17.50000 93.50000 0.0000000E+00 + -16.50000 93.50000 0.0000000E+00 + -15.50000 93.50000 0.0000000E+00 + -14.50000 93.50000 0.0000000E+00 + -13.50000 93.50000 0.0000000E+00 + -12.50000 93.50000 0.0000000E+00 + -11.50000 93.50000 0.0000000E+00 + -10.50000 93.50000 0.0000000E+00 + -9.500000 93.50000 0.0000000E+00 + -8.500000 93.50000 0.0000000E+00 + -7.500000 93.50000 0.0000000E+00 + -6.500000 93.50000 0.0000000E+00 + -5.500000 93.50000 0.0000000E+00 + -4.500000 93.50000 0.0000000E+00 + -3.500000 93.50000 0.0000000E+00 + -2.500000 93.50000 0.0000000E+00 + -1.500000 93.50000 0.0000000E+00 + -0.5000000 93.50000 0.0000000E+00 + 0.5000000 93.50000 0.0000000E+00 + 1.500000 93.50000 0.0000000E+00 + 2.500000 93.50000 0.0000000E+00 + 3.500000 93.50000 0.0000000E+00 + 4.500000 93.50000 0.0000000E+00 + 5.500000 93.50000 0.0000000E+00 + 6.500000 93.50000 0.0000000E+00 + 7.500000 93.50000 0.0000000E+00 + 8.500000 93.50000 0.0000000E+00 + 9.500000 93.50000 0.0000000E+00 + 10.50000 93.50000 0.0000000E+00 + 11.50000 93.50000 0.0000000E+00 + 12.50000 93.50000 0.0000000E+00 + 13.50000 93.50000 0.0000000E+00 + 14.50000 93.50000 0.0000000E+00 + 15.50000 93.50000 0.0000000E+00 + 16.50000 93.50000 0.0000000E+00 + 17.50000 93.50000 0.0000000E+00 + 18.50000 93.50000 0.0000000E+00 + 19.50000 93.50000 0.0000000E+00 + 20.50000 93.50000 0.0000000E+00 + 21.50000 93.50000 0.0000000E+00 + 22.50000 93.50000 0.0000000E+00 + 23.50000 93.50000 0.0000000E+00 + 24.50000 93.50000 0.0000000E+00 + 25.50000 93.50000 0.0000000E+00 + 26.50000 93.50000 0.0000000E+00 + 27.50000 93.50000 0.0000000E+00 + 28.50000 93.50000 0.0000000E+00 + 29.50000 93.50000 0.0000000E+00 + 30.50000 93.50000 0.0000000E+00 + 31.50000 93.50000 0.0000000E+00 + 32.50000 93.50000 0.0000000E+00 + 33.50000 93.50000 0.0000000E+00 + 34.50000 93.50000 0.0000000E+00 + 35.50000 93.50000 1.3110527E-03 + 36.50000 93.50000 1.7087236E-03 + 37.50000 93.50000 1.1876650E-02 + 38.50000 93.50000 1.2424699E-03 + 39.50000 93.50000 7.8125000E-03 + 40.50000 93.50000 8.0940105E-02 + 41.50000 93.50000 7.9851411E-02 + 42.50000 93.50000 0.1282272 + 43.50000 93.50000 0.0000000E+00 + 44.50000 93.50000 0.1156661 + 45.50000 93.50000 0.0000000E+00 + 46.50000 93.50000 0.0000000E+00 + 47.50000 93.50000 1.7958272E-02 + 48.50000 93.50000 0.0000000E+00 + 49.50000 93.50000 0.0000000E+00 + 50.50000 93.50000 0.0000000E+00 + 51.50000 93.50000 0.0000000E+00 + 52.50000 93.50000 0.0000000E+00 + 53.50000 93.50000 0.0000000E+00 + 54.50000 93.50000 0.0000000E+00 + 55.50000 93.50000 0.0000000E+00 + 56.50000 93.50000 0.0000000E+00 + 57.50000 93.50000 0.0000000E+00 + 58.50000 93.50000 0.0000000E+00 + 59.50000 93.50000 0.0000000E+00 + 60.50000 93.50000 0.0000000E+00 + 61.50000 93.50000 0.0000000E+00 + 62.50000 93.50000 0.0000000E+00 + 63.50000 93.50000 0.0000000E+00 + 64.50000 93.50000 0.0000000E+00 + 65.50000 93.50000 0.0000000E+00 + 66.50000 93.50000 0.0000000E+00 + 67.50000 93.50000 0.0000000E+00 + 68.50000 93.50000 0.0000000E+00 + 69.50000 93.50000 0.0000000E+00 + 70.50000 93.50000 0.0000000E+00 + 71.50000 93.50000 0.0000000E+00 + 72.50000 93.50000 0.0000000E+00 + 73.50000 93.50000 0.0000000E+00 + 74.50000 93.50000 0.0000000E+00 + 75.50000 93.50000 0.0000000E+00 + 76.50000 93.50000 0.0000000E+00 + 77.50000 93.50000 0.0000000E+00 + 78.50000 93.50000 0.0000000E+00 + 79.50000 93.50000 0.0000000E+00 + 80.50000 93.50000 0.0000000E+00 + 81.50000 93.50000 0.0000000E+00 + 82.50000 93.50000 0.0000000E+00 + 83.50000 93.50000 0.0000000E+00 + 84.50000 93.50000 0.0000000E+00 + 85.50000 93.50000 0.0000000E+00 + 86.50000 93.50000 0.0000000E+00 + 87.50000 93.50000 0.0000000E+00 + 88.50000 93.50000 0.0000000E+00 + 89.50000 93.50000 0.0000000E+00 + -89.50000 94.50000 0.0000000E+00 + -88.50000 94.50000 0.0000000E+00 + -87.50000 94.50000 0.0000000E+00 + -86.50000 94.50000 0.0000000E+00 + -85.50000 94.50000 0.0000000E+00 + -84.50000 94.50000 0.0000000E+00 + -83.50000 94.50000 0.0000000E+00 + -82.50000 94.50000 0.0000000E+00 + -81.50000 94.50000 0.0000000E+00 + -80.50000 94.50000 0.0000000E+00 + -79.50000 94.50000 0.0000000E+00 + -78.50000 94.50000 0.0000000E+00 + -77.50000 94.50000 0.0000000E+00 + -76.50000 94.50000 0.0000000E+00 + -75.50000 94.50000 0.0000000E+00 + -74.50000 94.50000 0.0000000E+00 + -73.50000 94.50000 0.0000000E+00 + -72.50000 94.50000 0.0000000E+00 + -71.50000 94.50000 0.0000000E+00 + -70.50000 94.50000 0.0000000E+00 + -69.50000 94.50000 0.0000000E+00 + -68.50000 94.50000 0.0000000E+00 + -67.50000 94.50000 0.0000000E+00 + -66.50000 94.50000 0.0000000E+00 + -65.50000 94.50000 0.0000000E+00 + -64.50000 94.50000 0.0000000E+00 + -63.50000 94.50000 0.0000000E+00 + -62.50000 94.50000 0.0000000E+00 + -61.50000 94.50000 0.0000000E+00 + -60.50000 94.50000 0.0000000E+00 + -59.50000 94.50000 0.0000000E+00 + -58.50000 94.50000 0.0000000E+00 + -57.50000 94.50000 0.0000000E+00 + -56.50000 94.50000 0.0000000E+00 + -55.50000 94.50000 0.0000000E+00 + -54.50000 94.50000 0.0000000E+00 + -53.50000 94.50000 0.0000000E+00 + -52.50000 94.50000 0.0000000E+00 + -51.50000 94.50000 0.0000000E+00 + -50.50000 94.50000 0.0000000E+00 + -49.50000 94.50000 0.0000000E+00 + -48.50000 94.50000 0.0000000E+00 + -47.50000 94.50000 0.0000000E+00 + -46.50000 94.50000 0.0000000E+00 + -45.50000 94.50000 0.0000000E+00 + -44.50000 94.50000 0.0000000E+00 + -43.50000 94.50000 0.0000000E+00 + -42.50000 94.50000 0.0000000E+00 + -41.50000 94.50000 0.0000000E+00 + -40.50000 94.50000 0.0000000E+00 + -39.50000 94.50000 0.0000000E+00 + -38.50000 94.50000 0.0000000E+00 + -37.50000 94.50000 0.0000000E+00 + -36.50000 94.50000 0.0000000E+00 + -35.50000 94.50000 0.0000000E+00 + -34.50000 94.50000 0.0000000E+00 + -33.50000 94.50000 0.0000000E+00 + -32.50000 94.50000 0.0000000E+00 + -31.50000 94.50000 0.0000000E+00 + -30.50000 94.50000 0.0000000E+00 + -29.50000 94.50000 0.0000000E+00 + -28.50000 94.50000 0.0000000E+00 + -27.50000 94.50000 0.0000000E+00 + -26.50000 94.50000 0.0000000E+00 + -25.50000 94.50000 0.0000000E+00 + -24.50000 94.50000 0.0000000E+00 + -23.50000 94.50000 0.0000000E+00 + -22.50000 94.50000 0.0000000E+00 + -21.50000 94.50000 0.0000000E+00 + -20.50000 94.50000 0.0000000E+00 + -19.50000 94.50000 0.0000000E+00 + -18.50000 94.50000 0.0000000E+00 + -17.50000 94.50000 0.0000000E+00 + -16.50000 94.50000 0.0000000E+00 + -15.50000 94.50000 0.0000000E+00 + -14.50000 94.50000 0.0000000E+00 + -13.50000 94.50000 0.0000000E+00 + -12.50000 94.50000 0.0000000E+00 + -11.50000 94.50000 0.0000000E+00 + -10.50000 94.50000 0.0000000E+00 + -9.500000 94.50000 0.0000000E+00 + -8.500000 94.50000 0.0000000E+00 + -7.500000 94.50000 0.0000000E+00 + -6.500000 94.50000 0.0000000E+00 + -5.500000 94.50000 0.0000000E+00 + -4.500000 94.50000 0.0000000E+00 + -3.500000 94.50000 0.0000000E+00 + -2.500000 94.50000 0.0000000E+00 + -1.500000 94.50000 0.0000000E+00 + -0.5000000 94.50000 0.0000000E+00 + 0.5000000 94.50000 0.0000000E+00 + 1.500000 94.50000 0.0000000E+00 + 2.500000 94.50000 0.0000000E+00 + 3.500000 94.50000 0.0000000E+00 + 4.500000 94.50000 0.0000000E+00 + 5.500000 94.50000 0.0000000E+00 + 6.500000 94.50000 0.0000000E+00 + 7.500000 94.50000 0.0000000E+00 + 8.500000 94.50000 0.0000000E+00 + 9.500000 94.50000 0.0000000E+00 + 10.50000 94.50000 0.0000000E+00 + 11.50000 94.50000 0.0000000E+00 + 12.50000 94.50000 0.0000000E+00 + 13.50000 94.50000 0.0000000E+00 + 14.50000 94.50000 0.0000000E+00 + 15.50000 94.50000 0.0000000E+00 + 16.50000 94.50000 0.0000000E+00 + 17.50000 94.50000 0.0000000E+00 + 18.50000 94.50000 0.0000000E+00 + 19.50000 94.50000 0.0000000E+00 + 20.50000 94.50000 0.0000000E+00 + 21.50000 94.50000 0.0000000E+00 + 22.50000 94.50000 0.0000000E+00 + 23.50000 94.50000 0.0000000E+00 + 24.50000 94.50000 0.0000000E+00 + 25.50000 94.50000 0.0000000E+00 + 26.50000 94.50000 0.0000000E+00 + 27.50000 94.50000 0.0000000E+00 + 28.50000 94.50000 0.0000000E+00 + 29.50000 94.50000 0.0000000E+00 + 30.50000 94.50000 0.0000000E+00 + 31.50000 94.50000 0.0000000E+00 + 32.50000 94.50000 0.0000000E+00 + 33.50000 94.50000 0.0000000E+00 + 34.50000 94.50000 0.0000000E+00 + 35.50000 94.50000 0.0000000E+00 + 36.50000 94.50000 0.0000000E+00 + 37.50000 94.50000 9.9019958E-03 + 38.50000 94.50000 1.3039665E-03 + 39.50000 94.50000 6.7391312E-03 + 40.50000 94.50000 7.6180287E-02 + 41.50000 94.50000 6.8036564E-02 + 42.50000 94.50000 0.1004694 + 43.50000 94.50000 0.0000000E+00 + 44.50000 94.50000 0.1156661 + 45.50000 94.50000 0.0000000E+00 + 46.50000 94.50000 0.0000000E+00 + 47.50000 94.50000 1.8595031E-02 + 48.50000 94.50000 1.4424235E-02 + 49.50000 94.50000 0.0000000E+00 + 50.50000 94.50000 0.0000000E+00 + 51.50000 94.50000 0.0000000E+00 + 52.50000 94.50000 0.0000000E+00 + 53.50000 94.50000 0.0000000E+00 + 54.50000 94.50000 0.0000000E+00 + 55.50000 94.50000 0.0000000E+00 + 56.50000 94.50000 0.0000000E+00 + 57.50000 94.50000 0.0000000E+00 + 58.50000 94.50000 0.0000000E+00 + 59.50000 94.50000 0.0000000E+00 + 60.50000 94.50000 0.0000000E+00 + 61.50000 94.50000 0.0000000E+00 + 62.50000 94.50000 0.0000000E+00 + 63.50000 94.50000 0.0000000E+00 + 64.50000 94.50000 0.0000000E+00 + 65.50000 94.50000 0.0000000E+00 + 66.50000 94.50000 0.0000000E+00 + 67.50000 94.50000 0.0000000E+00 + 68.50000 94.50000 0.0000000E+00 + 69.50000 94.50000 0.0000000E+00 + 70.50000 94.50000 0.0000000E+00 + 71.50000 94.50000 0.0000000E+00 + 72.50000 94.50000 0.0000000E+00 + 73.50000 94.50000 0.0000000E+00 + 74.50000 94.50000 0.0000000E+00 + 75.50000 94.50000 0.0000000E+00 + 76.50000 94.50000 0.0000000E+00 + 77.50000 94.50000 0.0000000E+00 + 78.50000 94.50000 0.0000000E+00 + 79.50000 94.50000 0.0000000E+00 + 80.50000 94.50000 0.0000000E+00 + 81.50000 94.50000 0.0000000E+00 + 82.50000 94.50000 0.0000000E+00 + 83.50000 94.50000 0.0000000E+00 + 84.50000 94.50000 0.0000000E+00 + 85.50000 94.50000 0.0000000E+00 + 86.50000 94.50000 0.0000000E+00 + 87.50000 94.50000 0.0000000E+00 + 88.50000 94.50000 0.0000000E+00 + 89.50000 94.50000 0.0000000E+00 + -89.50000 95.50000 0.0000000E+00 + -88.50000 95.50000 0.0000000E+00 + -87.50000 95.50000 0.0000000E+00 + -86.50000 95.50000 0.0000000E+00 + -85.50000 95.50000 0.0000000E+00 + -84.50000 95.50000 0.0000000E+00 + -83.50000 95.50000 0.0000000E+00 + -82.50000 95.50000 0.0000000E+00 + -81.50000 95.50000 0.0000000E+00 + -80.50000 95.50000 0.0000000E+00 + -79.50000 95.50000 0.0000000E+00 + -78.50000 95.50000 0.0000000E+00 + -77.50000 95.50000 0.0000000E+00 + -76.50000 95.50000 0.0000000E+00 + -75.50000 95.50000 0.0000000E+00 + -74.50000 95.50000 0.0000000E+00 + -73.50000 95.50000 0.0000000E+00 + -72.50000 95.50000 0.0000000E+00 + -71.50000 95.50000 0.0000000E+00 + -70.50000 95.50000 0.0000000E+00 + -69.50000 95.50000 0.0000000E+00 + -68.50000 95.50000 0.0000000E+00 + -67.50000 95.50000 0.0000000E+00 + -66.50000 95.50000 0.0000000E+00 + -65.50000 95.50000 0.0000000E+00 + -64.50000 95.50000 0.0000000E+00 + -63.50000 95.50000 0.0000000E+00 + -62.50000 95.50000 0.0000000E+00 + -61.50000 95.50000 0.0000000E+00 + -60.50000 95.50000 0.0000000E+00 + -59.50000 95.50000 0.0000000E+00 + -58.50000 95.50000 0.0000000E+00 + -57.50000 95.50000 0.0000000E+00 + -56.50000 95.50000 0.0000000E+00 + -55.50000 95.50000 0.0000000E+00 + -54.50000 95.50000 0.0000000E+00 + -53.50000 95.50000 0.0000000E+00 + -52.50000 95.50000 0.0000000E+00 + -51.50000 95.50000 0.0000000E+00 + -50.50000 95.50000 0.0000000E+00 + -49.50000 95.50000 0.0000000E+00 + -48.50000 95.50000 0.0000000E+00 + -47.50000 95.50000 0.0000000E+00 + -46.50000 95.50000 0.0000000E+00 + -45.50000 95.50000 0.0000000E+00 + -44.50000 95.50000 0.0000000E+00 + -43.50000 95.50000 0.0000000E+00 + -42.50000 95.50000 0.0000000E+00 + -41.50000 95.50000 0.0000000E+00 + -40.50000 95.50000 0.0000000E+00 + -39.50000 95.50000 0.0000000E+00 + -38.50000 95.50000 0.0000000E+00 + -37.50000 95.50000 0.0000000E+00 + -36.50000 95.50000 0.0000000E+00 + -35.50000 95.50000 0.0000000E+00 + -34.50000 95.50000 0.0000000E+00 + -33.50000 95.50000 0.0000000E+00 + -32.50000 95.50000 0.0000000E+00 + -31.50000 95.50000 0.0000000E+00 + -30.50000 95.50000 0.0000000E+00 + -29.50000 95.50000 0.0000000E+00 + -28.50000 95.50000 0.0000000E+00 + -27.50000 95.50000 0.0000000E+00 + -26.50000 95.50000 0.0000000E+00 + -25.50000 95.50000 0.0000000E+00 + -24.50000 95.50000 0.0000000E+00 + -23.50000 95.50000 0.0000000E+00 + -22.50000 95.50000 0.0000000E+00 + -21.50000 95.50000 0.0000000E+00 + -20.50000 95.50000 0.0000000E+00 + -19.50000 95.50000 0.0000000E+00 + -18.50000 95.50000 0.0000000E+00 + -17.50000 95.50000 0.0000000E+00 + -16.50000 95.50000 0.0000000E+00 + -15.50000 95.50000 0.0000000E+00 + -14.50000 95.50000 0.0000000E+00 + -13.50000 95.50000 0.0000000E+00 + -12.50000 95.50000 0.0000000E+00 + -11.50000 95.50000 0.0000000E+00 + -10.50000 95.50000 0.0000000E+00 + -9.500000 95.50000 0.0000000E+00 + -8.500000 95.50000 0.0000000E+00 + -7.500000 95.50000 0.0000000E+00 + -6.500000 95.50000 0.0000000E+00 + -5.500000 95.50000 0.0000000E+00 + -4.500000 95.50000 0.0000000E+00 + -3.500000 95.50000 0.0000000E+00 + -2.500000 95.50000 0.0000000E+00 + -1.500000 95.50000 0.0000000E+00 + -0.5000000 95.50000 0.0000000E+00 + 0.5000000 95.50000 0.0000000E+00 + 1.500000 95.50000 0.0000000E+00 + 2.500000 95.50000 0.0000000E+00 + 3.500000 95.50000 0.0000000E+00 + 4.500000 95.50000 0.0000000E+00 + 5.500000 95.50000 0.0000000E+00 + 6.500000 95.50000 0.0000000E+00 + 7.500000 95.50000 0.0000000E+00 + 8.500000 95.50000 0.0000000E+00 + 9.500000 95.50000 0.0000000E+00 + 10.50000 95.50000 0.0000000E+00 + 11.50000 95.50000 0.0000000E+00 + 12.50000 95.50000 0.0000000E+00 + 13.50000 95.50000 0.0000000E+00 + 14.50000 95.50000 0.0000000E+00 + 15.50000 95.50000 0.0000000E+00 + 16.50000 95.50000 0.0000000E+00 + 17.50000 95.50000 0.0000000E+00 + 18.50000 95.50000 0.0000000E+00 + 19.50000 95.50000 0.0000000E+00 + 20.50000 95.50000 0.0000000E+00 + 21.50000 95.50000 0.0000000E+00 + 22.50000 95.50000 0.0000000E+00 + 23.50000 95.50000 0.0000000E+00 + 24.50000 95.50000 0.0000000E+00 + 25.50000 95.50000 0.0000000E+00 + 26.50000 95.50000 0.0000000E+00 + 27.50000 95.50000 0.0000000E+00 + 28.50000 95.50000 0.0000000E+00 + 29.50000 95.50000 0.0000000E+00 + 30.50000 95.50000 0.0000000E+00 + 31.50000 95.50000 0.0000000E+00 + 32.50000 95.50000 0.0000000E+00 + 33.50000 95.50000 0.0000000E+00 + 34.50000 95.50000 0.0000000E+00 + 35.50000 95.50000 0.0000000E+00 + 36.50000 95.50000 0.0000000E+00 + 37.50000 95.50000 8.1991851E-03 + 38.50000 95.50000 1.4472175E-04 + 39.50000 95.50000 4.4416361E-03 + 40.50000 95.50000 7.0664905E-02 + 41.50000 95.50000 5.2248031E-02 + 42.50000 95.50000 7.9741411E-02 + 43.50000 95.50000 5.8247548E-02 + 44.50000 95.50000 0.1066694 + 45.50000 95.50000 0.0000000E+00 + 46.50000 95.50000 0.0000000E+00 + 47.50000 95.50000 0.0000000E+00 + 48.50000 95.50000 0.0000000E+00 + 49.50000 95.50000 0.0000000E+00 + 50.50000 95.50000 0.0000000E+00 + 51.50000 95.50000 0.0000000E+00 + 52.50000 95.50000 0.0000000E+00 + 53.50000 95.50000 0.0000000E+00 + 54.50000 95.50000 0.0000000E+00 + 55.50000 95.50000 0.0000000E+00 + 56.50000 95.50000 0.0000000E+00 + 57.50000 95.50000 0.0000000E+00 + 58.50000 95.50000 0.0000000E+00 + 59.50000 95.50000 0.0000000E+00 + 60.50000 95.50000 0.0000000E+00 + 61.50000 95.50000 0.0000000E+00 + 62.50000 95.50000 0.0000000E+00 + 63.50000 95.50000 0.0000000E+00 + 64.50000 95.50000 0.0000000E+00 + 65.50000 95.50000 0.0000000E+00 + 66.50000 95.50000 0.0000000E+00 + 67.50000 95.50000 0.0000000E+00 + 68.50000 95.50000 0.0000000E+00 + 69.50000 95.50000 0.0000000E+00 + 70.50000 95.50000 0.0000000E+00 + 71.50000 95.50000 0.0000000E+00 + 72.50000 95.50000 0.0000000E+00 + 73.50000 95.50000 0.0000000E+00 + 74.50000 95.50000 0.0000000E+00 + 75.50000 95.50000 0.0000000E+00 + 76.50000 95.50000 0.0000000E+00 + 77.50000 95.50000 0.0000000E+00 + 78.50000 95.50000 0.0000000E+00 + 79.50000 95.50000 0.0000000E+00 + 80.50000 95.50000 0.0000000E+00 + 81.50000 95.50000 0.0000000E+00 + 82.50000 95.50000 0.0000000E+00 + 83.50000 95.50000 0.0000000E+00 + 84.50000 95.50000 0.0000000E+00 + 85.50000 95.50000 0.0000000E+00 + 86.50000 95.50000 0.0000000E+00 + 87.50000 95.50000 0.0000000E+00 + 88.50000 95.50000 0.0000000E+00 + 89.50000 95.50000 0.0000000E+00 + -89.50000 96.50000 0.0000000E+00 + -88.50000 96.50000 0.0000000E+00 + -87.50000 96.50000 0.0000000E+00 + -86.50000 96.50000 0.0000000E+00 + -85.50000 96.50000 0.0000000E+00 + -84.50000 96.50000 0.0000000E+00 + -83.50000 96.50000 0.0000000E+00 + -82.50000 96.50000 0.0000000E+00 + -81.50000 96.50000 0.0000000E+00 + -80.50000 96.50000 0.0000000E+00 + -79.50000 96.50000 0.0000000E+00 + -78.50000 96.50000 0.0000000E+00 + -77.50000 96.50000 0.0000000E+00 + -76.50000 96.50000 0.0000000E+00 + -75.50000 96.50000 0.0000000E+00 + -74.50000 96.50000 0.0000000E+00 + -73.50000 96.50000 0.0000000E+00 + -72.50000 96.50000 0.0000000E+00 + -71.50000 96.50000 0.0000000E+00 + -70.50000 96.50000 0.0000000E+00 + -69.50000 96.50000 0.0000000E+00 + -68.50000 96.50000 0.0000000E+00 + -67.50000 96.50000 0.0000000E+00 + -66.50000 96.50000 0.0000000E+00 + -65.50000 96.50000 0.0000000E+00 + -64.50000 96.50000 0.0000000E+00 + -63.50000 96.50000 0.0000000E+00 + -62.50000 96.50000 0.0000000E+00 + -61.50000 96.50000 0.0000000E+00 + -60.50000 96.50000 0.0000000E+00 + -59.50000 96.50000 0.0000000E+00 + -58.50000 96.50000 0.0000000E+00 + -57.50000 96.50000 0.0000000E+00 + -56.50000 96.50000 0.0000000E+00 + -55.50000 96.50000 0.0000000E+00 + -54.50000 96.50000 0.0000000E+00 + -53.50000 96.50000 0.0000000E+00 + -52.50000 96.50000 0.0000000E+00 + -51.50000 96.50000 0.0000000E+00 + -50.50000 96.50000 0.0000000E+00 + -49.50000 96.50000 0.0000000E+00 + -48.50000 96.50000 0.0000000E+00 + -47.50000 96.50000 0.0000000E+00 + -46.50000 96.50000 0.0000000E+00 + -45.50000 96.50000 0.0000000E+00 + -44.50000 96.50000 0.0000000E+00 + -43.50000 96.50000 0.0000000E+00 + -42.50000 96.50000 0.0000000E+00 + -41.50000 96.50000 0.0000000E+00 + -40.50000 96.50000 0.0000000E+00 + -39.50000 96.50000 0.0000000E+00 + -38.50000 96.50000 0.0000000E+00 + -37.50000 96.50000 0.0000000E+00 + -36.50000 96.50000 0.0000000E+00 + -35.50000 96.50000 0.0000000E+00 + -34.50000 96.50000 0.0000000E+00 + -33.50000 96.50000 0.0000000E+00 + -32.50000 96.50000 0.0000000E+00 + -31.50000 96.50000 0.0000000E+00 + -30.50000 96.50000 0.0000000E+00 + -29.50000 96.50000 0.0000000E+00 + -28.50000 96.50000 0.0000000E+00 + -27.50000 96.50000 0.0000000E+00 + -26.50000 96.50000 0.0000000E+00 + -25.50000 96.50000 0.0000000E+00 + -24.50000 96.50000 0.0000000E+00 + -23.50000 96.50000 0.0000000E+00 + -22.50000 96.50000 0.0000000E+00 + -21.50000 96.50000 0.0000000E+00 + -20.50000 96.50000 0.0000000E+00 + -19.50000 96.50000 0.0000000E+00 + -18.50000 96.50000 0.0000000E+00 + -17.50000 96.50000 0.0000000E+00 + -16.50000 96.50000 0.0000000E+00 + -15.50000 96.50000 0.0000000E+00 + -14.50000 96.50000 0.0000000E+00 + -13.50000 96.50000 0.0000000E+00 + -12.50000 96.50000 0.0000000E+00 + -11.50000 96.50000 0.0000000E+00 + -10.50000 96.50000 0.0000000E+00 + -9.500000 96.50000 0.0000000E+00 + -8.500000 96.50000 0.0000000E+00 + -7.500000 96.50000 0.0000000E+00 + -6.500000 96.50000 0.0000000E+00 + -5.500000 96.50000 0.0000000E+00 + -4.500000 96.50000 0.0000000E+00 + -3.500000 96.50000 0.0000000E+00 + -2.500000 96.50000 0.0000000E+00 + -1.500000 96.50000 0.0000000E+00 + -0.5000000 96.50000 0.0000000E+00 + 0.5000000 96.50000 0.0000000E+00 + 1.500000 96.50000 0.0000000E+00 + 2.500000 96.50000 0.0000000E+00 + 3.500000 96.50000 0.0000000E+00 + 4.500000 96.50000 0.0000000E+00 + 5.500000 96.50000 0.0000000E+00 + 6.500000 96.50000 0.0000000E+00 + 7.500000 96.50000 0.0000000E+00 + 8.500000 96.50000 0.0000000E+00 + 9.500000 96.50000 0.0000000E+00 + 10.50000 96.50000 0.0000000E+00 + 11.50000 96.50000 0.0000000E+00 + 12.50000 96.50000 0.0000000E+00 + 13.50000 96.50000 0.0000000E+00 + 14.50000 96.50000 0.0000000E+00 + 15.50000 96.50000 0.0000000E+00 + 16.50000 96.50000 0.0000000E+00 + 17.50000 96.50000 0.0000000E+00 + 18.50000 96.50000 0.0000000E+00 + 19.50000 96.50000 0.0000000E+00 + 20.50000 96.50000 0.0000000E+00 + 21.50000 96.50000 0.0000000E+00 + 22.50000 96.50000 0.0000000E+00 + 23.50000 96.50000 0.0000000E+00 + 24.50000 96.50000 0.0000000E+00 + 25.50000 96.50000 0.0000000E+00 + 26.50000 96.50000 0.0000000E+00 + 27.50000 96.50000 0.0000000E+00 + 28.50000 96.50000 0.0000000E+00 + 29.50000 96.50000 0.0000000E+00 + 30.50000 96.50000 0.0000000E+00 + 31.50000 96.50000 0.0000000E+00 + 32.50000 96.50000 0.0000000E+00 + 33.50000 96.50000 0.0000000E+00 + 34.50000 96.50000 0.0000000E+00 + 35.50000 96.50000 0.0000000E+00 + 36.50000 96.50000 0.0000000E+00 + 37.50000 96.50000 7.1129086E-04 + 38.50000 96.50000 1.0480698E-04 + 39.50000 96.50000 1.9596494E-04 + 40.50000 96.50000 6.2262550E-02 + 41.50000 96.50000 3.6702152E-02 + 42.50000 96.50000 4.3016292E-02 + 43.50000 96.50000 7.7516750E-02 + 44.50000 96.50000 9.2277139E-02 + 45.50000 96.50000 0.0000000E+00 + 46.50000 96.50000 0.0000000E+00 + 47.50000 96.50000 0.0000000E+00 + 48.50000 96.50000 0.0000000E+00 + 49.50000 96.50000 0.0000000E+00 + 50.50000 96.50000 0.0000000E+00 + 51.50000 96.50000 0.0000000E+00 + 52.50000 96.50000 0.0000000E+00 + 53.50000 96.50000 0.0000000E+00 + 54.50000 96.50000 0.0000000E+00 + 55.50000 96.50000 0.0000000E+00 + 56.50000 96.50000 0.0000000E+00 + 57.50000 96.50000 0.0000000E+00 + 58.50000 96.50000 0.0000000E+00 + 59.50000 96.50000 0.0000000E+00 + 60.50000 96.50000 0.0000000E+00 + 61.50000 96.50000 0.0000000E+00 + 62.50000 96.50000 0.0000000E+00 + 63.50000 96.50000 0.0000000E+00 + 64.50000 96.50000 0.0000000E+00 + 65.50000 96.50000 0.0000000E+00 + 66.50000 96.50000 0.0000000E+00 + 67.50000 96.50000 0.0000000E+00 + 68.50000 96.50000 0.0000000E+00 + 69.50000 96.50000 0.0000000E+00 + 70.50000 96.50000 0.0000000E+00 + 71.50000 96.50000 0.0000000E+00 + 72.50000 96.50000 0.0000000E+00 + 73.50000 96.50000 0.0000000E+00 + 74.50000 96.50000 0.0000000E+00 + 75.50000 96.50000 0.0000000E+00 + 76.50000 96.50000 0.0000000E+00 + 77.50000 96.50000 0.0000000E+00 + 78.50000 96.50000 0.0000000E+00 + 79.50000 96.50000 0.0000000E+00 + 80.50000 96.50000 0.0000000E+00 + 81.50000 96.50000 0.0000000E+00 + 82.50000 96.50000 0.0000000E+00 + 83.50000 96.50000 0.0000000E+00 + 84.50000 96.50000 0.0000000E+00 + 85.50000 96.50000 0.0000000E+00 + 86.50000 96.50000 0.0000000E+00 + 87.50000 96.50000 0.0000000E+00 + 88.50000 96.50000 0.0000000E+00 + 89.50000 96.50000 0.0000000E+00 + -89.50000 97.50000 0.0000000E+00 + -88.50000 97.50000 0.0000000E+00 + -87.50000 97.50000 0.0000000E+00 + -86.50000 97.50000 0.0000000E+00 + -85.50000 97.50000 0.0000000E+00 + -84.50000 97.50000 0.0000000E+00 + -83.50000 97.50000 0.0000000E+00 + -82.50000 97.50000 0.0000000E+00 + -81.50000 97.50000 0.0000000E+00 + -80.50000 97.50000 0.0000000E+00 + -79.50000 97.50000 0.0000000E+00 + -78.50000 97.50000 0.0000000E+00 + -77.50000 97.50000 0.0000000E+00 + -76.50000 97.50000 0.0000000E+00 + -75.50000 97.50000 0.0000000E+00 + -74.50000 97.50000 0.0000000E+00 + -73.50000 97.50000 0.0000000E+00 + -72.50000 97.50000 0.0000000E+00 + -71.50000 97.50000 0.0000000E+00 + -70.50000 97.50000 0.0000000E+00 + -69.50000 97.50000 0.0000000E+00 + -68.50000 97.50000 0.0000000E+00 + -67.50000 97.50000 0.0000000E+00 + -66.50000 97.50000 0.0000000E+00 + -65.50000 97.50000 0.0000000E+00 + -64.50000 97.50000 0.0000000E+00 + -63.50000 97.50000 0.0000000E+00 + -62.50000 97.50000 0.0000000E+00 + -61.50000 97.50000 0.0000000E+00 + -60.50000 97.50000 0.0000000E+00 + -59.50000 97.50000 0.0000000E+00 + -58.50000 97.50000 0.0000000E+00 + -57.50000 97.50000 0.0000000E+00 + -56.50000 97.50000 0.0000000E+00 + -55.50000 97.50000 0.0000000E+00 + -54.50000 97.50000 0.0000000E+00 + -53.50000 97.50000 0.0000000E+00 + -52.50000 97.50000 0.0000000E+00 + -51.50000 97.50000 0.0000000E+00 + -50.50000 97.50000 0.0000000E+00 + -49.50000 97.50000 0.0000000E+00 + -48.50000 97.50000 0.0000000E+00 + -47.50000 97.50000 0.0000000E+00 + -46.50000 97.50000 0.0000000E+00 + -45.50000 97.50000 0.0000000E+00 + -44.50000 97.50000 0.0000000E+00 + -43.50000 97.50000 0.0000000E+00 + -42.50000 97.50000 0.0000000E+00 + -41.50000 97.50000 0.0000000E+00 + -40.50000 97.50000 0.0000000E+00 + -39.50000 97.50000 0.0000000E+00 + -38.50000 97.50000 0.0000000E+00 + -37.50000 97.50000 0.0000000E+00 + -36.50000 97.50000 0.0000000E+00 + -35.50000 97.50000 0.0000000E+00 + -34.50000 97.50000 0.0000000E+00 + -33.50000 97.50000 0.0000000E+00 + -32.50000 97.50000 0.0000000E+00 + -31.50000 97.50000 0.0000000E+00 + -30.50000 97.50000 0.0000000E+00 + -29.50000 97.50000 0.0000000E+00 + -28.50000 97.50000 0.0000000E+00 + -27.50000 97.50000 0.0000000E+00 + -26.50000 97.50000 0.0000000E+00 + -25.50000 97.50000 0.0000000E+00 + -24.50000 97.50000 0.0000000E+00 + -23.50000 97.50000 0.0000000E+00 + -22.50000 97.50000 0.0000000E+00 + -21.50000 97.50000 0.0000000E+00 + -20.50000 97.50000 0.0000000E+00 + -19.50000 97.50000 0.0000000E+00 + -18.50000 97.50000 0.0000000E+00 + -17.50000 97.50000 0.0000000E+00 + -16.50000 97.50000 0.0000000E+00 + -15.50000 97.50000 0.0000000E+00 + -14.50000 97.50000 0.0000000E+00 + -13.50000 97.50000 0.0000000E+00 + -12.50000 97.50000 0.0000000E+00 + -11.50000 97.50000 0.0000000E+00 + -10.50000 97.50000 0.0000000E+00 + -9.500000 97.50000 0.0000000E+00 + -8.500000 97.50000 0.0000000E+00 + -7.500000 97.50000 0.0000000E+00 + -6.500000 97.50000 0.0000000E+00 + -5.500000 97.50000 0.0000000E+00 + -4.500000 97.50000 0.0000000E+00 + -3.500000 97.50000 0.0000000E+00 + -2.500000 97.50000 0.0000000E+00 + -1.500000 97.50000 0.0000000E+00 + -0.5000000 97.50000 0.0000000E+00 + 0.5000000 97.50000 0.0000000E+00 + 1.500000 97.50000 0.0000000E+00 + 2.500000 97.50000 0.0000000E+00 + 3.500000 97.50000 0.0000000E+00 + 4.500000 97.50000 0.0000000E+00 + 5.500000 97.50000 0.0000000E+00 + 6.500000 97.50000 0.0000000E+00 + 7.500000 97.50000 0.0000000E+00 + 8.500000 97.50000 0.0000000E+00 + 9.500000 97.50000 0.0000000E+00 + 10.50000 97.50000 0.0000000E+00 + 11.50000 97.50000 0.0000000E+00 + 12.50000 97.50000 0.0000000E+00 + 13.50000 97.50000 0.0000000E+00 + 14.50000 97.50000 0.0000000E+00 + 15.50000 97.50000 0.0000000E+00 + 16.50000 97.50000 0.0000000E+00 + 17.50000 97.50000 0.0000000E+00 + 18.50000 97.50000 0.0000000E+00 + 19.50000 97.50000 0.0000000E+00 + 20.50000 97.50000 0.0000000E+00 + 21.50000 97.50000 0.0000000E+00 + 22.50000 97.50000 0.0000000E+00 + 23.50000 97.50000 0.0000000E+00 + 24.50000 97.50000 0.0000000E+00 + 25.50000 97.50000 0.0000000E+00 + 26.50000 97.50000 0.0000000E+00 + 27.50000 97.50000 0.0000000E+00 + 28.50000 97.50000 0.0000000E+00 + 29.50000 97.50000 0.0000000E+00 + 30.50000 97.50000 0.0000000E+00 + 31.50000 97.50000 0.0000000E+00 + 32.50000 97.50000 0.0000000E+00 + 33.50000 97.50000 0.0000000E+00 + 34.50000 97.50000 0.0000000E+00 + 35.50000 97.50000 0.0000000E+00 + 36.50000 97.50000 0.0000000E+00 + 37.50000 97.50000 5.9185544E-04 + 38.50000 97.50000 2.0576136E-04 + 39.50000 97.50000 6.2793365E-04 + 40.50000 97.50000 0.1004694 + 41.50000 97.50000 6.4186469E-02 + 42.50000 97.50000 7.4862301E-02 + 43.50000 97.50000 0.1004694 + 44.50000 97.50000 7.9327822E-02 + 45.50000 97.50000 0.0000000E+00 + 46.50000 97.50000 0.0000000E+00 + 47.50000 97.50000 0.0000000E+00 + 48.50000 97.50000 0.0000000E+00 + 49.50000 97.50000 0.0000000E+00 + 50.50000 97.50000 0.0000000E+00 + 51.50000 97.50000 0.0000000E+00 + 52.50000 97.50000 0.0000000E+00 + 53.50000 97.50000 0.0000000E+00 + 54.50000 97.50000 0.0000000E+00 + 55.50000 97.50000 0.0000000E+00 + 56.50000 97.50000 0.0000000E+00 + 57.50000 97.50000 0.0000000E+00 + 58.50000 97.50000 0.0000000E+00 + 59.50000 97.50000 0.0000000E+00 + 60.50000 97.50000 0.0000000E+00 + 61.50000 97.50000 0.0000000E+00 + 62.50000 97.50000 0.0000000E+00 + 63.50000 97.50000 0.0000000E+00 + 64.50000 97.50000 0.0000000E+00 + 65.50000 97.50000 0.0000000E+00 + 66.50000 97.50000 0.0000000E+00 + 67.50000 97.50000 0.0000000E+00 + 68.50000 97.50000 0.0000000E+00 + 69.50000 97.50000 0.0000000E+00 + 70.50000 97.50000 0.0000000E+00 + 71.50000 97.50000 0.0000000E+00 + 72.50000 97.50000 0.0000000E+00 + 73.50000 97.50000 0.0000000E+00 + 74.50000 97.50000 0.0000000E+00 + 75.50000 97.50000 0.0000000E+00 + 76.50000 97.50000 0.0000000E+00 + 77.50000 97.50000 0.0000000E+00 + 78.50000 97.50000 0.0000000E+00 + 79.50000 97.50000 0.0000000E+00 + 80.50000 97.50000 0.0000000E+00 + 81.50000 97.50000 0.0000000E+00 + 82.50000 97.50000 0.0000000E+00 + 83.50000 97.50000 0.0000000E+00 + 84.50000 97.50000 0.0000000E+00 + 85.50000 97.50000 0.0000000E+00 + 86.50000 97.50000 0.0000000E+00 + 87.50000 97.50000 0.0000000E+00 + 88.50000 97.50000 0.0000000E+00 + 89.50000 97.50000 0.0000000E+00 + -89.50000 98.50000 0.0000000E+00 + -88.50000 98.50000 0.0000000E+00 + -87.50000 98.50000 0.0000000E+00 + -86.50000 98.50000 0.0000000E+00 + -85.50000 98.50000 0.0000000E+00 + -84.50000 98.50000 0.0000000E+00 + -83.50000 98.50000 0.0000000E+00 + -82.50000 98.50000 0.0000000E+00 + -81.50000 98.50000 0.0000000E+00 + -80.50000 98.50000 0.0000000E+00 + -79.50000 98.50000 0.0000000E+00 + -78.50000 98.50000 0.0000000E+00 + -77.50000 98.50000 0.0000000E+00 + -76.50000 98.50000 0.0000000E+00 + -75.50000 98.50000 0.0000000E+00 + -74.50000 98.50000 0.0000000E+00 + -73.50000 98.50000 0.0000000E+00 + -72.50000 98.50000 0.0000000E+00 + -71.50000 98.50000 0.0000000E+00 + -70.50000 98.50000 0.0000000E+00 + -69.50000 98.50000 0.0000000E+00 + -68.50000 98.50000 0.0000000E+00 + -67.50000 98.50000 0.0000000E+00 + -66.50000 98.50000 0.0000000E+00 + -65.50000 98.50000 0.0000000E+00 + -64.50000 98.50000 0.0000000E+00 + -63.50000 98.50000 0.0000000E+00 + -62.50000 98.50000 0.0000000E+00 + -61.50000 98.50000 0.0000000E+00 + -60.50000 98.50000 0.0000000E+00 + -59.50000 98.50000 0.0000000E+00 + -58.50000 98.50000 0.0000000E+00 + -57.50000 98.50000 0.0000000E+00 + -56.50000 98.50000 0.0000000E+00 + -55.50000 98.50000 0.0000000E+00 + -54.50000 98.50000 0.0000000E+00 + -53.50000 98.50000 0.0000000E+00 + -52.50000 98.50000 0.0000000E+00 + -51.50000 98.50000 0.0000000E+00 + -50.50000 98.50000 0.0000000E+00 + -49.50000 98.50000 0.0000000E+00 + -48.50000 98.50000 0.0000000E+00 + -47.50000 98.50000 0.0000000E+00 + -46.50000 98.50000 0.0000000E+00 + -45.50000 98.50000 0.0000000E+00 + -44.50000 98.50000 0.0000000E+00 + -43.50000 98.50000 0.0000000E+00 + -42.50000 98.50000 0.0000000E+00 + -41.50000 98.50000 0.0000000E+00 + -40.50000 98.50000 0.0000000E+00 + -39.50000 98.50000 0.0000000E+00 + -38.50000 98.50000 0.0000000E+00 + -37.50000 98.50000 0.0000000E+00 + -36.50000 98.50000 0.0000000E+00 + -35.50000 98.50000 0.0000000E+00 + -34.50000 98.50000 0.0000000E+00 + -33.50000 98.50000 0.0000000E+00 + -32.50000 98.50000 0.0000000E+00 + -31.50000 98.50000 0.0000000E+00 + -30.50000 98.50000 0.0000000E+00 + -29.50000 98.50000 0.0000000E+00 + -28.50000 98.50000 0.0000000E+00 + -27.50000 98.50000 0.0000000E+00 + -26.50000 98.50000 0.0000000E+00 + -25.50000 98.50000 0.0000000E+00 + -24.50000 98.50000 0.0000000E+00 + -23.50000 98.50000 0.0000000E+00 + -22.50000 98.50000 0.0000000E+00 + -21.50000 98.50000 0.0000000E+00 + -20.50000 98.50000 0.0000000E+00 + -19.50000 98.50000 0.0000000E+00 + -18.50000 98.50000 0.0000000E+00 + -17.50000 98.50000 0.0000000E+00 + -16.50000 98.50000 0.0000000E+00 + -15.50000 98.50000 0.0000000E+00 + -14.50000 98.50000 0.0000000E+00 + -13.50000 98.50000 0.0000000E+00 + -12.50000 98.50000 0.0000000E+00 + -11.50000 98.50000 0.0000000E+00 + -10.50000 98.50000 0.0000000E+00 + -9.500000 98.50000 0.0000000E+00 + -8.500000 98.50000 0.0000000E+00 + -7.500000 98.50000 0.0000000E+00 + -6.500000 98.50000 0.0000000E+00 + -5.500000 98.50000 0.0000000E+00 + -4.500000 98.50000 0.0000000E+00 + -3.500000 98.50000 0.0000000E+00 + -2.500000 98.50000 0.0000000E+00 + -1.500000 98.50000 0.0000000E+00 + -0.5000000 98.50000 0.0000000E+00 + 0.5000000 98.50000 0.0000000E+00 + 1.500000 98.50000 0.0000000E+00 + 2.500000 98.50000 0.0000000E+00 + 3.500000 98.50000 0.0000000E+00 + 4.500000 98.50000 0.0000000E+00 + 5.500000 98.50000 0.0000000E+00 + 6.500000 98.50000 0.0000000E+00 + 7.500000 98.50000 0.0000000E+00 + 8.500000 98.50000 0.0000000E+00 + 9.500000 98.50000 0.0000000E+00 + 10.50000 98.50000 0.0000000E+00 + 11.50000 98.50000 0.0000000E+00 + 12.50000 98.50000 0.0000000E+00 + 13.50000 98.50000 0.0000000E+00 + 14.50000 98.50000 0.0000000E+00 + 15.50000 98.50000 0.0000000E+00 + 16.50000 98.50000 0.0000000E+00 + 17.50000 98.50000 0.0000000E+00 + 18.50000 98.50000 0.0000000E+00 + 19.50000 98.50000 0.0000000E+00 + 20.50000 98.50000 0.0000000E+00 + 21.50000 98.50000 0.0000000E+00 + 22.50000 98.50000 0.0000000E+00 + 23.50000 98.50000 0.0000000E+00 + 24.50000 98.50000 0.0000000E+00 + 25.50000 98.50000 0.0000000E+00 + 26.50000 98.50000 0.0000000E+00 + 27.50000 98.50000 0.0000000E+00 + 28.50000 98.50000 0.0000000E+00 + 29.50000 98.50000 0.0000000E+00 + 30.50000 98.50000 0.0000000E+00 + 31.50000 98.50000 0.0000000E+00 + 32.50000 98.50000 0.0000000E+00 + 33.50000 98.50000 0.0000000E+00 + 34.50000 98.50000 0.0000000E+00 + 35.50000 98.50000 0.0000000E+00 + 36.50000 98.50000 0.0000000E+00 + 37.50000 98.50000 0.0000000E+00 + 38.50000 98.50000 0.0000000E+00 + 39.50000 98.50000 0.0000000E+00 + 40.50000 98.50000 8.8523149E-02 + 41.50000 98.50000 8.4448211E-02 + 42.50000 98.50000 9.8042697E-02 + 43.50000 98.50000 8.4448211E-02 + 44.50000 98.50000 4.2237021E-02 + 45.50000 98.50000 3.4089129E-02 + 46.50000 98.50000 0.0000000E+00 + 47.50000 98.50000 0.0000000E+00 + 48.50000 98.50000 0.0000000E+00 + 49.50000 98.50000 0.0000000E+00 + 50.50000 98.50000 0.0000000E+00 + 51.50000 98.50000 0.0000000E+00 + 52.50000 98.50000 0.0000000E+00 + 53.50000 98.50000 0.0000000E+00 + 54.50000 98.50000 0.0000000E+00 + 55.50000 98.50000 0.0000000E+00 + 56.50000 98.50000 0.0000000E+00 + 57.50000 98.50000 0.0000000E+00 + 58.50000 98.50000 0.0000000E+00 + 59.50000 98.50000 0.0000000E+00 + 60.50000 98.50000 0.0000000E+00 + 61.50000 98.50000 0.0000000E+00 + 62.50000 98.50000 0.0000000E+00 + 63.50000 98.50000 0.0000000E+00 + 64.50000 98.50000 0.0000000E+00 + 65.50000 98.50000 0.0000000E+00 + 66.50000 98.50000 0.0000000E+00 + 67.50000 98.50000 0.0000000E+00 + 68.50000 98.50000 0.0000000E+00 + 69.50000 98.50000 0.0000000E+00 + 70.50000 98.50000 0.0000000E+00 + 71.50000 98.50000 0.0000000E+00 + 72.50000 98.50000 0.0000000E+00 + 73.50000 98.50000 0.0000000E+00 + 74.50000 98.50000 0.0000000E+00 + 75.50000 98.50000 0.0000000E+00 + 76.50000 98.50000 0.0000000E+00 + 77.50000 98.50000 0.0000000E+00 + 78.50000 98.50000 0.0000000E+00 + 79.50000 98.50000 0.0000000E+00 + 80.50000 98.50000 0.0000000E+00 + 81.50000 98.50000 0.0000000E+00 + 82.50000 98.50000 0.0000000E+00 + 83.50000 98.50000 0.0000000E+00 + 84.50000 98.50000 0.0000000E+00 + 85.50000 98.50000 0.0000000E+00 + 86.50000 98.50000 0.0000000E+00 + 87.50000 98.50000 0.0000000E+00 + 88.50000 98.50000 0.0000000E+00 + 89.50000 98.50000 0.0000000E+00 + -89.50000 99.50000 0.0000000E+00 + -88.50000 99.50000 0.0000000E+00 + -87.50000 99.50000 0.0000000E+00 + -86.50000 99.50000 0.0000000E+00 + -85.50000 99.50000 0.0000000E+00 + -84.50000 99.50000 0.0000000E+00 + -83.50000 99.50000 0.0000000E+00 + -82.50000 99.50000 0.0000000E+00 + -81.50000 99.50000 0.0000000E+00 + -80.50000 99.50000 0.0000000E+00 + -79.50000 99.50000 0.0000000E+00 + -78.50000 99.50000 0.0000000E+00 + -77.50000 99.50000 0.0000000E+00 + -76.50000 99.50000 0.0000000E+00 + -75.50000 99.50000 0.0000000E+00 + -74.50000 99.50000 0.0000000E+00 + -73.50000 99.50000 0.0000000E+00 + -72.50000 99.50000 0.0000000E+00 + -71.50000 99.50000 0.0000000E+00 + -70.50000 99.50000 0.0000000E+00 + -69.50000 99.50000 0.0000000E+00 + -68.50000 99.50000 0.0000000E+00 + -67.50000 99.50000 0.0000000E+00 + -66.50000 99.50000 0.0000000E+00 + -65.50000 99.50000 0.0000000E+00 + -64.50000 99.50000 0.0000000E+00 + -63.50000 99.50000 0.0000000E+00 + -62.50000 99.50000 0.0000000E+00 + -61.50000 99.50000 0.0000000E+00 + -60.50000 99.50000 0.0000000E+00 + -59.50000 99.50000 0.0000000E+00 + -58.50000 99.50000 0.0000000E+00 + -57.50000 99.50000 0.0000000E+00 + -56.50000 99.50000 0.0000000E+00 + -55.50000 99.50000 0.0000000E+00 + -54.50000 99.50000 0.0000000E+00 + -53.50000 99.50000 0.0000000E+00 + -52.50000 99.50000 0.0000000E+00 + -51.50000 99.50000 0.0000000E+00 + -50.50000 99.50000 0.0000000E+00 + -49.50000 99.50000 0.0000000E+00 + -48.50000 99.50000 0.0000000E+00 + -47.50000 99.50000 0.0000000E+00 + -46.50000 99.50000 0.0000000E+00 + -45.50000 99.50000 0.0000000E+00 + -44.50000 99.50000 0.0000000E+00 + -43.50000 99.50000 0.0000000E+00 + -42.50000 99.50000 0.0000000E+00 + -41.50000 99.50000 0.0000000E+00 + -40.50000 99.50000 0.0000000E+00 + -39.50000 99.50000 0.0000000E+00 + -38.50000 99.50000 0.0000000E+00 + -37.50000 99.50000 0.0000000E+00 + -36.50000 99.50000 0.0000000E+00 + -35.50000 99.50000 0.0000000E+00 + -34.50000 99.50000 0.0000000E+00 + -33.50000 99.50000 0.0000000E+00 + -32.50000 99.50000 0.0000000E+00 + -31.50000 99.50000 0.0000000E+00 + -30.50000 99.50000 0.0000000E+00 + -29.50000 99.50000 0.0000000E+00 + -28.50000 99.50000 0.0000000E+00 + -27.50000 99.50000 0.0000000E+00 + -26.50000 99.50000 0.0000000E+00 + -25.50000 99.50000 0.0000000E+00 + -24.50000 99.50000 0.0000000E+00 + -23.50000 99.50000 0.0000000E+00 + -22.50000 99.50000 0.0000000E+00 + -21.50000 99.50000 0.0000000E+00 + -20.50000 99.50000 0.0000000E+00 + -19.50000 99.50000 0.0000000E+00 + -18.50000 99.50000 0.0000000E+00 + -17.50000 99.50000 0.0000000E+00 + -16.50000 99.50000 0.0000000E+00 + -15.50000 99.50000 0.0000000E+00 + -14.50000 99.50000 0.0000000E+00 + -13.50000 99.50000 0.0000000E+00 + -12.50000 99.50000 0.0000000E+00 + -11.50000 99.50000 0.0000000E+00 + -10.50000 99.50000 0.0000000E+00 + -9.500000 99.50000 0.0000000E+00 + -8.500000 99.50000 0.0000000E+00 + -7.500000 99.50000 0.0000000E+00 + -6.500000 99.50000 0.0000000E+00 + -5.500000 99.50000 0.0000000E+00 + -4.500000 99.50000 0.0000000E+00 + -3.500000 99.50000 0.0000000E+00 + -2.500000 99.50000 0.0000000E+00 + -1.500000 99.50000 0.0000000E+00 + -0.5000000 99.50000 0.0000000E+00 + 0.5000000 99.50000 0.0000000E+00 + 1.500000 99.50000 0.0000000E+00 + 2.500000 99.50000 0.0000000E+00 + 3.500000 99.50000 0.0000000E+00 + 4.500000 99.50000 0.0000000E+00 + 5.500000 99.50000 0.0000000E+00 + 6.500000 99.50000 0.0000000E+00 + 7.500000 99.50000 0.0000000E+00 + 8.500000 99.50000 0.0000000E+00 + 9.500000 99.50000 0.0000000E+00 + 10.50000 99.50000 0.0000000E+00 + 11.50000 99.50000 0.0000000E+00 + 12.50000 99.50000 0.0000000E+00 + 13.50000 99.50000 0.0000000E+00 + 14.50000 99.50000 0.0000000E+00 + 15.50000 99.50000 0.0000000E+00 + 16.50000 99.50000 0.0000000E+00 + 17.50000 99.50000 0.0000000E+00 + 18.50000 99.50000 0.0000000E+00 + 19.50000 99.50000 0.0000000E+00 + 20.50000 99.50000 0.0000000E+00 + 21.50000 99.50000 0.0000000E+00 + 22.50000 99.50000 0.0000000E+00 + 23.50000 99.50000 0.0000000E+00 + 24.50000 99.50000 0.0000000E+00 + 25.50000 99.50000 0.0000000E+00 + 26.50000 99.50000 0.0000000E+00 + 27.50000 99.50000 0.0000000E+00 + 28.50000 99.50000 0.0000000E+00 + 29.50000 99.50000 0.0000000E+00 + 30.50000 99.50000 0.0000000E+00 + 31.50000 99.50000 0.0000000E+00 + 32.50000 99.50000 0.0000000E+00 + 33.50000 99.50000 0.0000000E+00 + 34.50000 99.50000 0.0000000E+00 + 35.50000 99.50000 0.0000000E+00 + 36.50000 99.50000 0.0000000E+00 + 37.50000 99.50000 0.0000000E+00 + 38.50000 99.50000 0.0000000E+00 + 39.50000 99.50000 2.0124443E-02 + 40.50000 99.50000 8.8523149E-02 + 41.50000 99.50000 0.1304768 + 42.50000 99.50000 0.1258959 + 43.50000 99.50000 0.1156661 + 44.50000 99.50000 3.4141012E-02 + 45.50000 99.50000 3.4041505E-02 + 46.50000 99.50000 0.0000000E+00 + 47.50000 99.50000 0.0000000E+00 + 48.50000 99.50000 0.0000000E+00 + 49.50000 99.50000 0.0000000E+00 + 50.50000 99.50000 0.0000000E+00 + 51.50000 99.50000 0.0000000E+00 + 52.50000 99.50000 0.0000000E+00 + 53.50000 99.50000 0.0000000E+00 + 54.50000 99.50000 0.0000000E+00 + 55.50000 99.50000 0.0000000E+00 + 56.50000 99.50000 0.0000000E+00 + 57.50000 99.50000 0.0000000E+00 + 58.50000 99.50000 0.0000000E+00 + 59.50000 99.50000 0.0000000E+00 + 60.50000 99.50000 0.0000000E+00 + 61.50000 99.50000 0.0000000E+00 + 62.50000 99.50000 0.0000000E+00 + 63.50000 99.50000 0.0000000E+00 + 64.50000 99.50000 0.0000000E+00 + 65.50000 99.50000 0.0000000E+00 + 66.50000 99.50000 0.0000000E+00 + 67.50000 99.50000 0.0000000E+00 + 68.50000 99.50000 0.0000000E+00 + 69.50000 99.50000 0.0000000E+00 + 70.50000 99.50000 0.0000000E+00 + 71.50000 99.50000 0.0000000E+00 + 72.50000 99.50000 0.0000000E+00 + 73.50000 99.50000 0.0000000E+00 + 74.50000 99.50000 0.0000000E+00 + 75.50000 99.50000 0.0000000E+00 + 76.50000 99.50000 0.0000000E+00 + 77.50000 99.50000 0.0000000E+00 + 78.50000 99.50000 0.0000000E+00 + 79.50000 99.50000 0.0000000E+00 + 80.50000 99.50000 0.0000000E+00 + 81.50000 99.50000 0.0000000E+00 + 82.50000 99.50000 0.0000000E+00 + 83.50000 99.50000 0.0000000E+00 + 84.50000 99.50000 0.0000000E+00 + 85.50000 99.50000 0.0000000E+00 + 86.50000 99.50000 0.0000000E+00 + 87.50000 99.50000 0.0000000E+00 + 88.50000 99.50000 0.0000000E+00 + 89.50000 99.50000 0.0000000E+00 + -89.50000 100.5000 0.0000000E+00 + -88.50000 100.5000 0.0000000E+00 + -87.50000 100.5000 0.0000000E+00 + -86.50000 100.5000 0.0000000E+00 + -85.50000 100.5000 0.0000000E+00 + -84.50000 100.5000 0.0000000E+00 + -83.50000 100.5000 0.0000000E+00 + -82.50000 100.5000 0.0000000E+00 + -81.50000 100.5000 0.0000000E+00 + -80.50000 100.5000 0.0000000E+00 + -79.50000 100.5000 0.0000000E+00 + -78.50000 100.5000 0.0000000E+00 + -77.50000 100.5000 0.0000000E+00 + -76.50000 100.5000 0.0000000E+00 + -75.50000 100.5000 0.0000000E+00 + -74.50000 100.5000 0.0000000E+00 + -73.50000 100.5000 0.0000000E+00 + -72.50000 100.5000 0.0000000E+00 + -71.50000 100.5000 0.0000000E+00 + -70.50000 100.5000 0.0000000E+00 + -69.50000 100.5000 0.0000000E+00 + -68.50000 100.5000 0.0000000E+00 + -67.50000 100.5000 0.0000000E+00 + -66.50000 100.5000 0.0000000E+00 + -65.50000 100.5000 0.0000000E+00 + -64.50000 100.5000 0.0000000E+00 + -63.50000 100.5000 0.0000000E+00 + -62.50000 100.5000 0.0000000E+00 + -61.50000 100.5000 0.0000000E+00 + -60.50000 100.5000 0.0000000E+00 + -59.50000 100.5000 0.0000000E+00 + -58.50000 100.5000 0.0000000E+00 + -57.50000 100.5000 0.0000000E+00 + -56.50000 100.5000 0.0000000E+00 + -55.50000 100.5000 0.0000000E+00 + -54.50000 100.5000 0.0000000E+00 + -53.50000 100.5000 0.0000000E+00 + -52.50000 100.5000 0.0000000E+00 + -51.50000 100.5000 0.0000000E+00 + -50.50000 100.5000 0.0000000E+00 + -49.50000 100.5000 0.0000000E+00 + -48.50000 100.5000 0.0000000E+00 + -47.50000 100.5000 0.0000000E+00 + -46.50000 100.5000 0.0000000E+00 + -45.50000 100.5000 0.0000000E+00 + -44.50000 100.5000 0.0000000E+00 + -43.50000 100.5000 0.0000000E+00 + -42.50000 100.5000 0.0000000E+00 + -41.50000 100.5000 0.0000000E+00 + -40.50000 100.5000 0.0000000E+00 + -39.50000 100.5000 0.0000000E+00 + -38.50000 100.5000 0.0000000E+00 + -37.50000 100.5000 0.0000000E+00 + -36.50000 100.5000 0.0000000E+00 + -35.50000 100.5000 0.0000000E+00 + -34.50000 100.5000 0.0000000E+00 + -33.50000 100.5000 0.0000000E+00 + -32.50000 100.5000 0.0000000E+00 + -31.50000 100.5000 0.0000000E+00 + -30.50000 100.5000 0.0000000E+00 + -29.50000 100.5000 0.0000000E+00 + -28.50000 100.5000 0.0000000E+00 + -27.50000 100.5000 0.0000000E+00 + -26.50000 100.5000 0.0000000E+00 + -25.50000 100.5000 0.0000000E+00 + -24.50000 100.5000 0.0000000E+00 + -23.50000 100.5000 0.0000000E+00 + -22.50000 100.5000 0.0000000E+00 + -21.50000 100.5000 0.0000000E+00 + -20.50000 100.5000 0.0000000E+00 + -19.50000 100.5000 0.0000000E+00 + -18.50000 100.5000 0.0000000E+00 + -17.50000 100.5000 0.0000000E+00 + -16.50000 100.5000 0.0000000E+00 + -15.50000 100.5000 0.0000000E+00 + -14.50000 100.5000 0.0000000E+00 + -13.50000 100.5000 0.0000000E+00 + -12.50000 100.5000 0.0000000E+00 + -11.50000 100.5000 0.0000000E+00 + -10.50000 100.5000 0.0000000E+00 + -9.500000 100.5000 0.0000000E+00 + -8.500000 100.5000 0.0000000E+00 + -7.500000 100.5000 0.0000000E+00 + -6.500000 100.5000 0.0000000E+00 + -5.500000 100.5000 0.0000000E+00 + -4.500000 100.5000 0.0000000E+00 + -3.500000 100.5000 0.0000000E+00 + -2.500000 100.5000 0.0000000E+00 + -1.500000 100.5000 0.0000000E+00 + -0.5000000 100.5000 0.0000000E+00 + 0.5000000 100.5000 0.0000000E+00 + 1.500000 100.5000 0.0000000E+00 + 2.500000 100.5000 0.0000000E+00 + 3.500000 100.5000 0.0000000E+00 + 4.500000 100.5000 0.0000000E+00 + 5.500000 100.5000 0.0000000E+00 + 6.500000 100.5000 0.0000000E+00 + 7.500000 100.5000 0.0000000E+00 + 8.500000 100.5000 0.0000000E+00 + 9.500000 100.5000 0.0000000E+00 + 10.50000 100.5000 0.0000000E+00 + 11.50000 100.5000 0.0000000E+00 + 12.50000 100.5000 0.0000000E+00 + 13.50000 100.5000 0.0000000E+00 + 14.50000 100.5000 0.0000000E+00 + 15.50000 100.5000 0.0000000E+00 + 16.50000 100.5000 0.0000000E+00 + 17.50000 100.5000 0.0000000E+00 + 18.50000 100.5000 0.0000000E+00 + 19.50000 100.5000 0.0000000E+00 + 20.50000 100.5000 0.0000000E+00 + 21.50000 100.5000 0.0000000E+00 + 22.50000 100.5000 0.0000000E+00 + 23.50000 100.5000 0.0000000E+00 + 24.50000 100.5000 0.0000000E+00 + 25.50000 100.5000 0.0000000E+00 + 26.50000 100.5000 0.0000000E+00 + 27.50000 100.5000 0.0000000E+00 + 28.50000 100.5000 0.0000000E+00 + 29.50000 100.5000 0.0000000E+00 + 30.50000 100.5000 0.0000000E+00 + 31.50000 100.5000 0.0000000E+00 + 32.50000 100.5000 0.0000000E+00 + 33.50000 100.5000 0.0000000E+00 + 34.50000 100.5000 0.0000000E+00 + 35.50000 100.5000 0.0000000E+00 + 36.50000 100.5000 0.0000000E+00 + 37.50000 100.5000 0.0000000E+00 + 38.50000 100.5000 0.0000000E+00 + 39.50000 100.5000 6.8036564E-02 + 40.50000 100.5000 0.1095150 + 41.50000 100.5000 0.1692968 + 42.50000 100.5000 0.1921435 + 43.50000 100.5000 0.1099412 + 44.50000 100.5000 3.4141012E-02 + 45.50000 100.5000 4.4872235E-03 + 46.50000 100.5000 0.0000000E+00 + 47.50000 100.5000 0.0000000E+00 + 48.50000 100.5000 0.0000000E+00 + 49.50000 100.5000 0.0000000E+00 + 50.50000 100.5000 0.0000000E+00 + 51.50000 100.5000 0.0000000E+00 + 52.50000 100.5000 0.0000000E+00 + 53.50000 100.5000 0.0000000E+00 + 54.50000 100.5000 0.0000000E+00 + 55.50000 100.5000 0.0000000E+00 + 56.50000 100.5000 0.0000000E+00 + 57.50000 100.5000 0.0000000E+00 + 58.50000 100.5000 0.0000000E+00 + 59.50000 100.5000 0.0000000E+00 + 60.50000 100.5000 0.0000000E+00 + 61.50000 100.5000 0.0000000E+00 + 62.50000 100.5000 0.0000000E+00 + 63.50000 100.5000 0.0000000E+00 + 64.50000 100.5000 0.0000000E+00 + 65.50000 100.5000 0.0000000E+00 + 66.50000 100.5000 0.0000000E+00 + 67.50000 100.5000 0.0000000E+00 + 68.50000 100.5000 0.0000000E+00 + 69.50000 100.5000 0.0000000E+00 + 70.50000 100.5000 0.0000000E+00 + 71.50000 100.5000 0.0000000E+00 + 72.50000 100.5000 0.0000000E+00 + 73.50000 100.5000 0.0000000E+00 + 74.50000 100.5000 0.0000000E+00 + 75.50000 100.5000 0.0000000E+00 + 76.50000 100.5000 0.0000000E+00 + 77.50000 100.5000 0.0000000E+00 + 78.50000 100.5000 0.0000000E+00 + 79.50000 100.5000 0.0000000E+00 + 80.50000 100.5000 0.0000000E+00 + 81.50000 100.5000 0.0000000E+00 + 82.50000 100.5000 0.0000000E+00 + 83.50000 100.5000 0.0000000E+00 + 84.50000 100.5000 0.0000000E+00 + 85.50000 100.5000 0.0000000E+00 + 86.50000 100.5000 0.0000000E+00 + 87.50000 100.5000 0.0000000E+00 + 88.50000 100.5000 0.0000000E+00 + 89.50000 100.5000 0.0000000E+00 + -89.50000 101.5000 0.0000000E+00 + -88.50000 101.5000 0.0000000E+00 + -87.50000 101.5000 0.0000000E+00 + -86.50000 101.5000 0.0000000E+00 + -85.50000 101.5000 0.0000000E+00 + -84.50000 101.5000 0.0000000E+00 + -83.50000 101.5000 0.0000000E+00 + -82.50000 101.5000 0.0000000E+00 + -81.50000 101.5000 0.0000000E+00 + -80.50000 101.5000 0.0000000E+00 + -79.50000 101.5000 0.0000000E+00 + -78.50000 101.5000 0.0000000E+00 + -77.50000 101.5000 0.0000000E+00 + -76.50000 101.5000 0.0000000E+00 + -75.50000 101.5000 0.0000000E+00 + -74.50000 101.5000 0.0000000E+00 + -73.50000 101.5000 0.0000000E+00 + -72.50000 101.5000 0.0000000E+00 + -71.50000 101.5000 0.0000000E+00 + -70.50000 101.5000 0.0000000E+00 + -69.50000 101.5000 0.0000000E+00 + -68.50000 101.5000 0.0000000E+00 + -67.50000 101.5000 0.0000000E+00 + -66.50000 101.5000 0.0000000E+00 + -65.50000 101.5000 0.0000000E+00 + -64.50000 101.5000 0.0000000E+00 + -63.50000 101.5000 0.0000000E+00 + -62.50000 101.5000 0.0000000E+00 + -61.50000 101.5000 0.0000000E+00 + -60.50000 101.5000 0.0000000E+00 + -59.50000 101.5000 0.0000000E+00 + -58.50000 101.5000 0.0000000E+00 + -57.50000 101.5000 0.0000000E+00 + -56.50000 101.5000 0.0000000E+00 + -55.50000 101.5000 0.0000000E+00 + -54.50000 101.5000 0.0000000E+00 + -53.50000 101.5000 0.0000000E+00 + -52.50000 101.5000 0.0000000E+00 + -51.50000 101.5000 0.0000000E+00 + -50.50000 101.5000 0.0000000E+00 + -49.50000 101.5000 0.0000000E+00 + -48.50000 101.5000 0.0000000E+00 + -47.50000 101.5000 0.0000000E+00 + -46.50000 101.5000 0.0000000E+00 + -45.50000 101.5000 0.0000000E+00 + -44.50000 101.5000 0.0000000E+00 + -43.50000 101.5000 0.0000000E+00 + -42.50000 101.5000 0.0000000E+00 + -41.50000 101.5000 0.0000000E+00 + -40.50000 101.5000 0.0000000E+00 + -39.50000 101.5000 0.0000000E+00 + -38.50000 101.5000 0.0000000E+00 + -37.50000 101.5000 0.0000000E+00 + -36.50000 101.5000 0.0000000E+00 + -35.50000 101.5000 0.0000000E+00 + -34.50000 101.5000 0.0000000E+00 + -33.50000 101.5000 0.0000000E+00 + -32.50000 101.5000 0.0000000E+00 + -31.50000 101.5000 0.0000000E+00 + -30.50000 101.5000 0.0000000E+00 + -29.50000 101.5000 0.0000000E+00 + -28.50000 101.5000 0.0000000E+00 + -27.50000 101.5000 0.0000000E+00 + -26.50000 101.5000 0.0000000E+00 + -25.50000 101.5000 0.0000000E+00 + -24.50000 101.5000 0.0000000E+00 + -23.50000 101.5000 0.0000000E+00 + -22.50000 101.5000 0.0000000E+00 + -21.50000 101.5000 0.0000000E+00 + -20.50000 101.5000 0.0000000E+00 + -19.50000 101.5000 0.0000000E+00 + -18.50000 101.5000 0.0000000E+00 + -17.50000 101.5000 0.0000000E+00 + -16.50000 101.5000 0.0000000E+00 + -15.50000 101.5000 0.0000000E+00 + -14.50000 101.5000 0.0000000E+00 + -13.50000 101.5000 0.0000000E+00 + -12.50000 101.5000 0.0000000E+00 + -11.50000 101.5000 0.0000000E+00 + -10.50000 101.5000 0.0000000E+00 + -9.500000 101.5000 0.0000000E+00 + -8.500000 101.5000 0.0000000E+00 + -7.500000 101.5000 0.0000000E+00 + -6.500000 101.5000 0.0000000E+00 + -5.500000 101.5000 0.0000000E+00 + -4.500000 101.5000 0.0000000E+00 + -3.500000 101.5000 0.0000000E+00 + -2.500000 101.5000 0.0000000E+00 + -1.500000 101.5000 0.0000000E+00 + -0.5000000 101.5000 0.0000000E+00 + 0.5000000 101.5000 0.0000000E+00 + 1.500000 101.5000 0.0000000E+00 + 2.500000 101.5000 0.0000000E+00 + 3.500000 101.5000 0.0000000E+00 + 4.500000 101.5000 0.0000000E+00 + 5.500000 101.5000 0.0000000E+00 + 6.500000 101.5000 0.0000000E+00 + 7.500000 101.5000 0.0000000E+00 + 8.500000 101.5000 0.0000000E+00 + 9.500000 101.5000 0.0000000E+00 + 10.50000 101.5000 0.0000000E+00 + 11.50000 101.5000 0.0000000E+00 + 12.50000 101.5000 0.0000000E+00 + 13.50000 101.5000 0.0000000E+00 + 14.50000 101.5000 0.0000000E+00 + 15.50000 101.5000 0.0000000E+00 + 16.50000 101.5000 0.0000000E+00 + 17.50000 101.5000 0.0000000E+00 + 18.50000 101.5000 0.0000000E+00 + 19.50000 101.5000 0.0000000E+00 + 20.50000 101.5000 0.0000000E+00 + 21.50000 101.5000 0.0000000E+00 + 22.50000 101.5000 0.0000000E+00 + 23.50000 101.5000 0.0000000E+00 + 24.50000 101.5000 0.0000000E+00 + 25.50000 101.5000 0.0000000E+00 + 26.50000 101.5000 0.0000000E+00 + 27.50000 101.5000 0.0000000E+00 + 28.50000 101.5000 0.0000000E+00 + 29.50000 101.5000 0.0000000E+00 + 30.50000 101.5000 0.0000000E+00 + 31.50000 101.5000 0.0000000E+00 + 32.50000 101.5000 0.0000000E+00 + 33.50000 101.5000 0.0000000E+00 + 34.50000 101.5000 0.0000000E+00 + 35.50000 101.5000 0.0000000E+00 + 36.50000 101.5000 0.0000000E+00 + 37.50000 101.5000 0.0000000E+00 + 38.50000 101.5000 0.0000000E+00 + 39.50000 101.5000 7.0125759E-02 + 40.50000 101.5000 8.8523149E-02 + 41.50000 101.5000 0.1496337 + 42.50000 101.5000 0.1675442 + 43.50000 101.5000 7.5899191E-02 + 44.50000 101.5000 6.8282024E-03 + 45.50000 101.5000 0.0000000E+00 + 46.50000 101.5000 0.0000000E+00 + 47.50000 101.5000 0.0000000E+00 + 48.50000 101.5000 0.0000000E+00 + 49.50000 101.5000 0.0000000E+00 + 50.50000 101.5000 0.0000000E+00 + 51.50000 101.5000 0.0000000E+00 + 52.50000 101.5000 0.0000000E+00 + 53.50000 101.5000 0.0000000E+00 + 54.50000 101.5000 0.0000000E+00 + 55.50000 101.5000 0.0000000E+00 + 56.50000 101.5000 0.0000000E+00 + 57.50000 101.5000 0.0000000E+00 + 58.50000 101.5000 0.0000000E+00 + 59.50000 101.5000 0.0000000E+00 + 60.50000 101.5000 0.0000000E+00 + 61.50000 101.5000 0.0000000E+00 + 62.50000 101.5000 0.0000000E+00 + 63.50000 101.5000 0.0000000E+00 + 64.50000 101.5000 0.0000000E+00 + 65.50000 101.5000 0.0000000E+00 + 66.50000 101.5000 0.0000000E+00 + 67.50000 101.5000 0.0000000E+00 + 68.50000 101.5000 0.0000000E+00 + 69.50000 101.5000 0.0000000E+00 + 70.50000 101.5000 0.0000000E+00 + 71.50000 101.5000 0.0000000E+00 + 72.50000 101.5000 0.0000000E+00 + 73.50000 101.5000 0.0000000E+00 + 74.50000 101.5000 0.0000000E+00 + 75.50000 101.5000 0.0000000E+00 + 76.50000 101.5000 0.0000000E+00 + 77.50000 101.5000 0.0000000E+00 + 78.50000 101.5000 0.0000000E+00 + 79.50000 101.5000 0.0000000E+00 + 80.50000 101.5000 0.0000000E+00 + 81.50000 101.5000 0.0000000E+00 + 82.50000 101.5000 0.0000000E+00 + 83.50000 101.5000 0.0000000E+00 + 84.50000 101.5000 0.0000000E+00 + 85.50000 101.5000 0.0000000E+00 + 86.50000 101.5000 0.0000000E+00 + 87.50000 101.5000 0.0000000E+00 + 88.50000 101.5000 0.0000000E+00 + 89.50000 101.5000 0.0000000E+00 + -89.50000 102.5000 0.0000000E+00 + -88.50000 102.5000 0.0000000E+00 + -87.50000 102.5000 0.0000000E+00 + -86.50000 102.5000 0.0000000E+00 + -85.50000 102.5000 0.0000000E+00 + -84.50000 102.5000 0.0000000E+00 + -83.50000 102.5000 0.0000000E+00 + -82.50000 102.5000 0.0000000E+00 + -81.50000 102.5000 0.0000000E+00 + -80.50000 102.5000 0.0000000E+00 + -79.50000 102.5000 0.0000000E+00 + -78.50000 102.5000 0.0000000E+00 + -77.50000 102.5000 0.0000000E+00 + -76.50000 102.5000 0.0000000E+00 + -75.50000 102.5000 0.0000000E+00 + -74.50000 102.5000 0.0000000E+00 + -73.50000 102.5000 0.0000000E+00 + -72.50000 102.5000 0.0000000E+00 + -71.50000 102.5000 0.0000000E+00 + -70.50000 102.5000 0.0000000E+00 + -69.50000 102.5000 0.0000000E+00 + -68.50000 102.5000 0.0000000E+00 + -67.50000 102.5000 0.0000000E+00 + -66.50000 102.5000 0.0000000E+00 + -65.50000 102.5000 0.0000000E+00 + -64.50000 102.5000 0.0000000E+00 + -63.50000 102.5000 0.0000000E+00 + -62.50000 102.5000 0.0000000E+00 + -61.50000 102.5000 0.0000000E+00 + -60.50000 102.5000 0.0000000E+00 + -59.50000 102.5000 0.0000000E+00 + -58.50000 102.5000 0.0000000E+00 + -57.50000 102.5000 0.0000000E+00 + -56.50000 102.5000 0.0000000E+00 + -55.50000 102.5000 0.0000000E+00 + -54.50000 102.5000 0.0000000E+00 + -53.50000 102.5000 0.0000000E+00 + -52.50000 102.5000 0.0000000E+00 + -51.50000 102.5000 0.0000000E+00 + -50.50000 102.5000 0.0000000E+00 + -49.50000 102.5000 0.0000000E+00 + -48.50000 102.5000 0.0000000E+00 + -47.50000 102.5000 0.0000000E+00 + -46.50000 102.5000 0.0000000E+00 + -45.50000 102.5000 0.0000000E+00 + -44.50000 102.5000 0.0000000E+00 + -43.50000 102.5000 0.0000000E+00 + -42.50000 102.5000 0.0000000E+00 + -41.50000 102.5000 0.0000000E+00 + -40.50000 102.5000 0.0000000E+00 + -39.50000 102.5000 0.0000000E+00 + -38.50000 102.5000 0.0000000E+00 + -37.50000 102.5000 0.0000000E+00 + -36.50000 102.5000 0.0000000E+00 + -35.50000 102.5000 0.0000000E+00 + -34.50000 102.5000 0.0000000E+00 + -33.50000 102.5000 0.0000000E+00 + -32.50000 102.5000 0.0000000E+00 + -31.50000 102.5000 0.0000000E+00 + -30.50000 102.5000 0.0000000E+00 + -29.50000 102.5000 0.0000000E+00 + -28.50000 102.5000 0.0000000E+00 + -27.50000 102.5000 0.0000000E+00 + -26.50000 102.5000 0.0000000E+00 + -25.50000 102.5000 0.0000000E+00 + -24.50000 102.5000 0.0000000E+00 + -23.50000 102.5000 0.0000000E+00 + -22.50000 102.5000 0.0000000E+00 + -21.50000 102.5000 0.0000000E+00 + -20.50000 102.5000 0.0000000E+00 + -19.50000 102.5000 0.0000000E+00 + -18.50000 102.5000 0.0000000E+00 + -17.50000 102.5000 0.0000000E+00 + -16.50000 102.5000 0.0000000E+00 + -15.50000 102.5000 0.0000000E+00 + -14.50000 102.5000 0.0000000E+00 + -13.50000 102.5000 0.0000000E+00 + -12.50000 102.5000 0.0000000E+00 + -11.50000 102.5000 0.0000000E+00 + -10.50000 102.5000 0.0000000E+00 + -9.500000 102.5000 0.0000000E+00 + -8.500000 102.5000 0.0000000E+00 + -7.500000 102.5000 0.0000000E+00 + -6.500000 102.5000 0.0000000E+00 + -5.500000 102.5000 0.0000000E+00 + -4.500000 102.5000 0.0000000E+00 + -3.500000 102.5000 0.0000000E+00 + -2.500000 102.5000 0.0000000E+00 + -1.500000 102.5000 0.0000000E+00 + -0.5000000 102.5000 0.0000000E+00 + 0.5000000 102.5000 0.0000000E+00 + 1.500000 102.5000 0.0000000E+00 + 2.500000 102.5000 0.0000000E+00 + 3.500000 102.5000 0.0000000E+00 + 4.500000 102.5000 0.0000000E+00 + 5.500000 102.5000 0.0000000E+00 + 6.500000 102.5000 0.0000000E+00 + 7.500000 102.5000 0.0000000E+00 + 8.500000 102.5000 0.0000000E+00 + 9.500000 102.5000 0.0000000E+00 + 10.50000 102.5000 0.0000000E+00 + 11.50000 102.5000 0.0000000E+00 + 12.50000 102.5000 0.0000000E+00 + 13.50000 102.5000 0.0000000E+00 + 14.50000 102.5000 0.0000000E+00 + 15.50000 102.5000 0.0000000E+00 + 16.50000 102.5000 0.0000000E+00 + 17.50000 102.5000 0.0000000E+00 + 18.50000 102.5000 0.0000000E+00 + 19.50000 102.5000 0.0000000E+00 + 20.50000 102.5000 0.0000000E+00 + 21.50000 102.5000 0.0000000E+00 + 22.50000 102.5000 0.0000000E+00 + 23.50000 102.5000 0.0000000E+00 + 24.50000 102.5000 0.0000000E+00 + 25.50000 102.5000 0.0000000E+00 + 26.50000 102.5000 0.0000000E+00 + 27.50000 102.5000 0.0000000E+00 + 28.50000 102.5000 0.0000000E+00 + 29.50000 102.5000 0.0000000E+00 + 30.50000 102.5000 0.0000000E+00 + 31.50000 102.5000 0.0000000E+00 + 32.50000 102.5000 0.0000000E+00 + 33.50000 102.5000 0.0000000E+00 + 34.50000 102.5000 0.0000000E+00 + 35.50000 102.5000 0.0000000E+00 + 36.50000 102.5000 0.0000000E+00 + 37.50000 102.5000 0.0000000E+00 + 38.50000 102.5000 3.7649726E-03 + 39.50000 102.5000 5.9326172E-02 + 40.50000 102.5000 6.7332275E-02 + 41.50000 102.5000 5.9326172E-02 + 42.50000 102.5000 7.9327822E-02 + 43.50000 102.5000 1.0173177E-02 + 44.50000 102.5000 2.7336979E-02 + 45.50000 102.5000 0.0000000E+00 + 46.50000 102.5000 0.0000000E+00 + 47.50000 102.5000 0.0000000E+00 + 48.50000 102.5000 0.0000000E+00 + 49.50000 102.5000 0.0000000E+00 + 50.50000 102.5000 0.0000000E+00 + 51.50000 102.5000 0.0000000E+00 + 52.50000 102.5000 0.0000000E+00 + 53.50000 102.5000 0.0000000E+00 + 54.50000 102.5000 0.0000000E+00 + 55.50000 102.5000 0.0000000E+00 + 56.50000 102.5000 0.0000000E+00 + 57.50000 102.5000 0.0000000E+00 + 58.50000 102.5000 0.0000000E+00 + 59.50000 102.5000 0.0000000E+00 + 60.50000 102.5000 0.0000000E+00 + 61.50000 102.5000 0.0000000E+00 + 62.50000 102.5000 0.0000000E+00 + 63.50000 102.5000 0.0000000E+00 + 64.50000 102.5000 0.0000000E+00 + 65.50000 102.5000 0.0000000E+00 + 66.50000 102.5000 0.0000000E+00 + 67.50000 102.5000 0.0000000E+00 + 68.50000 102.5000 0.0000000E+00 + 69.50000 102.5000 0.0000000E+00 + 70.50000 102.5000 0.0000000E+00 + 71.50000 102.5000 0.0000000E+00 + 72.50000 102.5000 0.0000000E+00 + 73.50000 102.5000 0.0000000E+00 + 74.50000 102.5000 0.0000000E+00 + 75.50000 102.5000 0.0000000E+00 + 76.50000 102.5000 0.0000000E+00 + 77.50000 102.5000 0.0000000E+00 + 78.50000 102.5000 0.0000000E+00 + 79.50000 102.5000 0.0000000E+00 + 80.50000 102.5000 0.0000000E+00 + 81.50000 102.5000 0.0000000E+00 + 82.50000 102.5000 0.0000000E+00 + 83.50000 102.5000 0.0000000E+00 + 84.50000 102.5000 0.0000000E+00 + 85.50000 102.5000 0.0000000E+00 + 86.50000 102.5000 0.0000000E+00 + 87.50000 102.5000 0.0000000E+00 + 88.50000 102.5000 0.0000000E+00 + 89.50000 102.5000 0.0000000E+00 + -89.50000 103.5000 0.0000000E+00 + -88.50000 103.5000 0.0000000E+00 + -87.50000 103.5000 0.0000000E+00 + -86.50000 103.5000 0.0000000E+00 + -85.50000 103.5000 0.0000000E+00 + -84.50000 103.5000 0.0000000E+00 + -83.50000 103.5000 0.0000000E+00 + -82.50000 103.5000 0.0000000E+00 + -81.50000 103.5000 0.0000000E+00 + -80.50000 103.5000 0.0000000E+00 + -79.50000 103.5000 0.0000000E+00 + -78.50000 103.5000 0.0000000E+00 + -77.50000 103.5000 0.0000000E+00 + -76.50000 103.5000 0.0000000E+00 + -75.50000 103.5000 0.0000000E+00 + -74.50000 103.5000 0.0000000E+00 + -73.50000 103.5000 0.0000000E+00 + -72.50000 103.5000 0.0000000E+00 + -71.50000 103.5000 0.0000000E+00 + -70.50000 103.5000 0.0000000E+00 + -69.50000 103.5000 0.0000000E+00 + -68.50000 103.5000 0.0000000E+00 + -67.50000 103.5000 0.0000000E+00 + -66.50000 103.5000 0.0000000E+00 + -65.50000 103.5000 0.0000000E+00 + -64.50000 103.5000 0.0000000E+00 + -63.50000 103.5000 0.0000000E+00 + -62.50000 103.5000 0.0000000E+00 + -61.50000 103.5000 0.0000000E+00 + -60.50000 103.5000 0.0000000E+00 + -59.50000 103.5000 0.0000000E+00 + -58.50000 103.5000 0.0000000E+00 + -57.50000 103.5000 0.0000000E+00 + -56.50000 103.5000 0.0000000E+00 + -55.50000 103.5000 0.0000000E+00 + -54.50000 103.5000 0.0000000E+00 + -53.50000 103.5000 0.0000000E+00 + -52.50000 103.5000 0.0000000E+00 + -51.50000 103.5000 0.0000000E+00 + -50.50000 103.5000 0.0000000E+00 + -49.50000 103.5000 0.0000000E+00 + -48.50000 103.5000 0.0000000E+00 + -47.50000 103.5000 0.0000000E+00 + -46.50000 103.5000 0.0000000E+00 + -45.50000 103.5000 0.0000000E+00 + -44.50000 103.5000 0.0000000E+00 + -43.50000 103.5000 0.0000000E+00 + -42.50000 103.5000 0.0000000E+00 + -41.50000 103.5000 0.0000000E+00 + -40.50000 103.5000 0.0000000E+00 + -39.50000 103.5000 0.0000000E+00 + -38.50000 103.5000 0.0000000E+00 + -37.50000 103.5000 0.0000000E+00 + -36.50000 103.5000 0.0000000E+00 + -35.50000 103.5000 0.0000000E+00 + -34.50000 103.5000 0.0000000E+00 + -33.50000 103.5000 0.0000000E+00 + -32.50000 103.5000 0.0000000E+00 + -31.50000 103.5000 0.0000000E+00 + -30.50000 103.5000 0.0000000E+00 + -29.50000 103.5000 0.0000000E+00 + -28.50000 103.5000 0.0000000E+00 + -27.50000 103.5000 0.0000000E+00 + -26.50000 103.5000 0.0000000E+00 + -25.50000 103.5000 0.0000000E+00 + -24.50000 103.5000 0.0000000E+00 + -23.50000 103.5000 0.0000000E+00 + -22.50000 103.5000 0.0000000E+00 + -21.50000 103.5000 0.0000000E+00 + -20.50000 103.5000 0.0000000E+00 + -19.50000 103.5000 0.0000000E+00 + -18.50000 103.5000 0.0000000E+00 + -17.50000 103.5000 0.0000000E+00 + -16.50000 103.5000 0.0000000E+00 + -15.50000 103.5000 0.0000000E+00 + -14.50000 103.5000 0.0000000E+00 + -13.50000 103.5000 0.0000000E+00 + -12.50000 103.5000 0.0000000E+00 + -11.50000 103.5000 0.0000000E+00 + -10.50000 103.5000 0.0000000E+00 + -9.500000 103.5000 0.0000000E+00 + -8.500000 103.5000 0.0000000E+00 + -7.500000 103.5000 0.0000000E+00 + -6.500000 103.5000 0.0000000E+00 + -5.500000 103.5000 0.0000000E+00 + -4.500000 103.5000 0.0000000E+00 + -3.500000 103.5000 0.0000000E+00 + -2.500000 103.5000 0.0000000E+00 + -1.500000 103.5000 0.0000000E+00 + -0.5000000 103.5000 0.0000000E+00 + 0.5000000 103.5000 0.0000000E+00 + 1.500000 103.5000 0.0000000E+00 + 2.500000 103.5000 0.0000000E+00 + 3.500000 103.5000 0.0000000E+00 + 4.500000 103.5000 0.0000000E+00 + 5.500000 103.5000 0.0000000E+00 + 6.500000 103.5000 0.0000000E+00 + 7.500000 103.5000 0.0000000E+00 + 8.500000 103.5000 0.0000000E+00 + 9.500000 103.5000 0.0000000E+00 + 10.50000 103.5000 0.0000000E+00 + 11.50000 103.5000 0.0000000E+00 + 12.50000 103.5000 0.0000000E+00 + 13.50000 103.5000 0.0000000E+00 + 14.50000 103.5000 0.0000000E+00 + 15.50000 103.5000 0.0000000E+00 + 16.50000 103.5000 0.0000000E+00 + 17.50000 103.5000 0.0000000E+00 + 18.50000 103.5000 0.0000000E+00 + 19.50000 103.5000 0.0000000E+00 + 20.50000 103.5000 0.0000000E+00 + 21.50000 103.5000 0.0000000E+00 + 22.50000 103.5000 0.0000000E+00 + 23.50000 103.5000 0.0000000E+00 + 24.50000 103.5000 0.0000000E+00 + 25.50000 103.5000 0.0000000E+00 + 26.50000 103.5000 0.0000000E+00 + 27.50000 103.5000 0.0000000E+00 + 28.50000 103.5000 0.0000000E+00 + 29.50000 103.5000 0.0000000E+00 + 30.50000 103.5000 0.0000000E+00 + 31.50000 103.5000 0.0000000E+00 + 32.50000 103.5000 0.0000000E+00 + 33.50000 103.5000 0.0000000E+00 + 34.50000 103.5000 0.0000000E+00 + 35.50000 103.5000 0.0000000E+00 + 36.50000 103.5000 4.1780239E-03 + 37.50000 103.5000 4.9793306E-03 + 38.50000 103.5000 3.4750365E-02 + 39.50000 103.5000 3.8786978E-02 + 40.50000 103.5000 5.3020909E-02 + 41.50000 103.5000 5.0865885E-02 + 42.50000 103.5000 4.6483610E-02 + 43.50000 103.5000 3.5414785E-02 + 44.50000 103.5000 2.1663748E-02 + 45.50000 103.5000 0.0000000E+00 + 46.50000 103.5000 0.0000000E+00 + 47.50000 103.5000 0.0000000E+00 + 48.50000 103.5000 0.0000000E+00 + 49.50000 103.5000 0.0000000E+00 + 50.50000 103.5000 0.0000000E+00 + 51.50000 103.5000 0.0000000E+00 + 52.50000 103.5000 0.0000000E+00 + 53.50000 103.5000 0.0000000E+00 + 54.50000 103.5000 0.0000000E+00 + 55.50000 103.5000 0.0000000E+00 + 56.50000 103.5000 0.0000000E+00 + 57.50000 103.5000 0.0000000E+00 + 58.50000 103.5000 0.0000000E+00 + 59.50000 103.5000 0.0000000E+00 + 60.50000 103.5000 0.0000000E+00 + 61.50000 103.5000 0.0000000E+00 + 62.50000 103.5000 0.0000000E+00 + 63.50000 103.5000 0.0000000E+00 + 64.50000 103.5000 0.0000000E+00 + 65.50000 103.5000 0.0000000E+00 + 66.50000 103.5000 0.0000000E+00 + 67.50000 103.5000 0.0000000E+00 + 68.50000 103.5000 0.0000000E+00 + 69.50000 103.5000 0.0000000E+00 + 70.50000 103.5000 0.0000000E+00 + 71.50000 103.5000 0.0000000E+00 + 72.50000 103.5000 0.0000000E+00 + 73.50000 103.5000 0.0000000E+00 + 74.50000 103.5000 0.0000000E+00 + 75.50000 103.5000 0.0000000E+00 + 76.50000 103.5000 0.0000000E+00 + 77.50000 103.5000 0.0000000E+00 + 78.50000 103.5000 0.0000000E+00 + 79.50000 103.5000 0.0000000E+00 + 80.50000 103.5000 0.0000000E+00 + 81.50000 103.5000 0.0000000E+00 + 82.50000 103.5000 0.0000000E+00 + 83.50000 103.5000 0.0000000E+00 + 84.50000 103.5000 0.0000000E+00 + 85.50000 103.5000 0.0000000E+00 + 86.50000 103.5000 0.0000000E+00 + 87.50000 103.5000 0.0000000E+00 + 88.50000 103.5000 0.0000000E+00 + 89.50000 103.5000 0.0000000E+00 + -89.50000 104.5000 0.0000000E+00 + -88.50000 104.5000 0.0000000E+00 + -87.50000 104.5000 0.0000000E+00 + -86.50000 104.5000 0.0000000E+00 + -85.50000 104.5000 0.0000000E+00 + -84.50000 104.5000 0.0000000E+00 + -83.50000 104.5000 0.0000000E+00 + -82.50000 104.5000 0.0000000E+00 + -81.50000 104.5000 0.0000000E+00 + -80.50000 104.5000 0.0000000E+00 + -79.50000 104.5000 0.0000000E+00 + -78.50000 104.5000 0.0000000E+00 + -77.50000 104.5000 0.0000000E+00 + -76.50000 104.5000 0.0000000E+00 + -75.50000 104.5000 0.0000000E+00 + -74.50000 104.5000 0.0000000E+00 + -73.50000 104.5000 0.0000000E+00 + -72.50000 104.5000 0.0000000E+00 + -71.50000 104.5000 0.0000000E+00 + -70.50000 104.5000 0.0000000E+00 + -69.50000 104.5000 0.0000000E+00 + -68.50000 104.5000 0.0000000E+00 + -67.50000 104.5000 0.0000000E+00 + -66.50000 104.5000 0.0000000E+00 + -65.50000 104.5000 0.0000000E+00 + -64.50000 104.5000 0.0000000E+00 + -63.50000 104.5000 0.0000000E+00 + -62.50000 104.5000 0.0000000E+00 + -61.50000 104.5000 0.0000000E+00 + -60.50000 104.5000 0.0000000E+00 + -59.50000 104.5000 0.0000000E+00 + -58.50000 104.5000 0.0000000E+00 + -57.50000 104.5000 0.0000000E+00 + -56.50000 104.5000 0.0000000E+00 + -55.50000 104.5000 0.0000000E+00 + -54.50000 104.5000 0.0000000E+00 + -53.50000 104.5000 0.0000000E+00 + -52.50000 104.5000 0.0000000E+00 + -51.50000 104.5000 0.0000000E+00 + -50.50000 104.5000 0.0000000E+00 + -49.50000 104.5000 0.0000000E+00 + -48.50000 104.5000 0.0000000E+00 + -47.50000 104.5000 0.0000000E+00 + -46.50000 104.5000 0.0000000E+00 + -45.50000 104.5000 0.0000000E+00 + -44.50000 104.5000 0.0000000E+00 + -43.50000 104.5000 0.0000000E+00 + -42.50000 104.5000 0.0000000E+00 + -41.50000 104.5000 0.0000000E+00 + -40.50000 104.5000 0.0000000E+00 + -39.50000 104.5000 0.0000000E+00 + -38.50000 104.5000 0.0000000E+00 + -37.50000 104.5000 0.0000000E+00 + -36.50000 104.5000 0.0000000E+00 + -35.50000 104.5000 0.0000000E+00 + -34.50000 104.5000 0.0000000E+00 + -33.50000 104.5000 0.0000000E+00 + -32.50000 104.5000 0.0000000E+00 + -31.50000 104.5000 0.0000000E+00 + -30.50000 104.5000 0.0000000E+00 + -29.50000 104.5000 0.0000000E+00 + -28.50000 104.5000 0.0000000E+00 + -27.50000 104.5000 0.0000000E+00 + -26.50000 104.5000 0.0000000E+00 + -25.50000 104.5000 0.0000000E+00 + -24.50000 104.5000 0.0000000E+00 + -23.50000 104.5000 0.0000000E+00 + -22.50000 104.5000 0.0000000E+00 + -21.50000 104.5000 0.0000000E+00 + -20.50000 104.5000 0.0000000E+00 + -19.50000 104.5000 0.0000000E+00 + -18.50000 104.5000 0.0000000E+00 + -17.50000 104.5000 0.0000000E+00 + -16.50000 104.5000 0.0000000E+00 + -15.50000 104.5000 0.0000000E+00 + -14.50000 104.5000 0.0000000E+00 + -13.50000 104.5000 0.0000000E+00 + -12.50000 104.5000 0.0000000E+00 + -11.50000 104.5000 0.0000000E+00 + -10.50000 104.5000 0.0000000E+00 + -9.500000 104.5000 0.0000000E+00 + -8.500000 104.5000 0.0000000E+00 + -7.500000 104.5000 0.0000000E+00 + -6.500000 104.5000 0.0000000E+00 + -5.500000 104.5000 0.0000000E+00 + -4.500000 104.5000 0.0000000E+00 + -3.500000 104.5000 0.0000000E+00 + -2.500000 104.5000 0.0000000E+00 + -1.500000 104.5000 0.0000000E+00 + -0.5000000 104.5000 0.0000000E+00 + 0.5000000 104.5000 0.0000000E+00 + 1.500000 104.5000 0.0000000E+00 + 2.500000 104.5000 0.0000000E+00 + 3.500000 104.5000 0.0000000E+00 + 4.500000 104.5000 0.0000000E+00 + 5.500000 104.5000 0.0000000E+00 + 6.500000 104.5000 0.0000000E+00 + 7.500000 104.5000 0.0000000E+00 + 8.500000 104.5000 0.0000000E+00 + 9.500000 104.5000 0.0000000E+00 + 10.50000 104.5000 0.0000000E+00 + 11.50000 104.5000 0.0000000E+00 + 12.50000 104.5000 0.0000000E+00 + 13.50000 104.5000 0.0000000E+00 + 14.50000 104.5000 0.0000000E+00 + 15.50000 104.5000 0.0000000E+00 + 16.50000 104.5000 0.0000000E+00 + 17.50000 104.5000 0.0000000E+00 + 18.50000 104.5000 0.0000000E+00 + 19.50000 104.5000 0.0000000E+00 + 20.50000 104.5000 0.0000000E+00 + 21.50000 104.5000 0.0000000E+00 + 22.50000 104.5000 0.0000000E+00 + 23.50000 104.5000 0.0000000E+00 + 24.50000 104.5000 0.0000000E+00 + 25.50000 104.5000 0.0000000E+00 + 26.50000 104.5000 0.0000000E+00 + 27.50000 104.5000 0.0000000E+00 + 28.50000 104.5000 0.0000000E+00 + 29.50000 104.5000 0.0000000E+00 + 30.50000 104.5000 0.0000000E+00 + 31.50000 104.5000 0.0000000E+00 + 32.50000 104.5000 0.0000000E+00 + 33.50000 104.5000 0.0000000E+00 + 34.50000 104.5000 0.0000000E+00 + 35.50000 104.5000 0.0000000E+00 + 36.50000 104.5000 0.0000000E+00 + 37.50000 104.5000 0.0000000E+00 + 38.50000 104.5000 3.8786978E-02 + 39.50000 104.5000 3.6836885E-02 + 40.50000 104.5000 3.6836885E-02 + 41.50000 104.5000 4.3399528E-02 + 42.50000 104.5000 3.9235890E-02 + 43.50000 104.5000 5.2179121E-03 + 44.50000 104.5000 3.1702615E-02 + 45.50000 104.5000 0.0000000E+00 + 46.50000 104.5000 0.0000000E+00 + 47.50000 104.5000 0.0000000E+00 + 48.50000 104.5000 0.0000000E+00 + 49.50000 104.5000 0.0000000E+00 + 50.50000 104.5000 0.0000000E+00 + 51.50000 104.5000 0.0000000E+00 + 52.50000 104.5000 0.0000000E+00 + 53.50000 104.5000 0.0000000E+00 + 54.50000 104.5000 0.0000000E+00 + 55.50000 104.5000 0.0000000E+00 + 56.50000 104.5000 0.0000000E+00 + 57.50000 104.5000 0.0000000E+00 + 58.50000 104.5000 0.0000000E+00 + 59.50000 104.5000 0.0000000E+00 + 60.50000 104.5000 0.0000000E+00 + 61.50000 104.5000 0.0000000E+00 + 62.50000 104.5000 0.0000000E+00 + 63.50000 104.5000 0.0000000E+00 + 64.50000 104.5000 0.0000000E+00 + 65.50000 104.5000 0.0000000E+00 + 66.50000 104.5000 0.0000000E+00 + 67.50000 104.5000 0.0000000E+00 + 68.50000 104.5000 0.0000000E+00 + 69.50000 104.5000 0.0000000E+00 + 70.50000 104.5000 0.0000000E+00 + 71.50000 104.5000 0.0000000E+00 + 72.50000 104.5000 0.0000000E+00 + 73.50000 104.5000 0.0000000E+00 + 74.50000 104.5000 0.0000000E+00 + 75.50000 104.5000 0.0000000E+00 + 76.50000 104.5000 0.0000000E+00 + 77.50000 104.5000 0.0000000E+00 + 78.50000 104.5000 0.0000000E+00 + 79.50000 104.5000 0.0000000E+00 + 80.50000 104.5000 0.0000000E+00 + 81.50000 104.5000 0.0000000E+00 + 82.50000 104.5000 0.0000000E+00 + 83.50000 104.5000 0.0000000E+00 + 84.50000 104.5000 0.0000000E+00 + 85.50000 104.5000 0.0000000E+00 + 86.50000 104.5000 0.0000000E+00 + 87.50000 104.5000 0.0000000E+00 + 88.50000 104.5000 0.0000000E+00 + 89.50000 104.5000 0.0000000E+00 + -89.50000 105.5000 0.0000000E+00 + -88.50000 105.5000 0.0000000E+00 + -87.50000 105.5000 0.0000000E+00 + -86.50000 105.5000 0.0000000E+00 + -85.50000 105.5000 0.0000000E+00 + -84.50000 105.5000 0.0000000E+00 + -83.50000 105.5000 0.0000000E+00 + -82.50000 105.5000 0.0000000E+00 + -81.50000 105.5000 0.0000000E+00 + -80.50000 105.5000 0.0000000E+00 + -79.50000 105.5000 0.0000000E+00 + -78.50000 105.5000 0.0000000E+00 + -77.50000 105.5000 0.0000000E+00 + -76.50000 105.5000 0.0000000E+00 + -75.50000 105.5000 0.0000000E+00 + -74.50000 105.5000 0.0000000E+00 + -73.50000 105.5000 0.0000000E+00 + -72.50000 105.5000 0.0000000E+00 + -71.50000 105.5000 0.0000000E+00 + -70.50000 105.5000 0.0000000E+00 + -69.50000 105.5000 0.0000000E+00 + -68.50000 105.5000 0.0000000E+00 + -67.50000 105.5000 0.0000000E+00 + -66.50000 105.5000 0.0000000E+00 + -65.50000 105.5000 0.0000000E+00 + -64.50000 105.5000 0.0000000E+00 + -63.50000 105.5000 0.0000000E+00 + -62.50000 105.5000 0.0000000E+00 + -61.50000 105.5000 0.0000000E+00 + -60.50000 105.5000 0.0000000E+00 + -59.50000 105.5000 0.0000000E+00 + -58.50000 105.5000 0.0000000E+00 + -57.50000 105.5000 0.0000000E+00 + -56.50000 105.5000 0.0000000E+00 + -55.50000 105.5000 0.0000000E+00 + -54.50000 105.5000 0.0000000E+00 + -53.50000 105.5000 0.0000000E+00 + -52.50000 105.5000 0.0000000E+00 + -51.50000 105.5000 0.0000000E+00 + -50.50000 105.5000 0.0000000E+00 + -49.50000 105.5000 0.0000000E+00 + -48.50000 105.5000 0.0000000E+00 + -47.50000 105.5000 0.0000000E+00 + -46.50000 105.5000 0.0000000E+00 + -45.50000 105.5000 0.0000000E+00 + -44.50000 105.5000 0.0000000E+00 + -43.50000 105.5000 0.0000000E+00 + -42.50000 105.5000 0.0000000E+00 + -41.50000 105.5000 0.0000000E+00 + -40.50000 105.5000 0.0000000E+00 + -39.50000 105.5000 0.0000000E+00 + -38.50000 105.5000 0.0000000E+00 + -37.50000 105.5000 0.0000000E+00 + -36.50000 105.5000 0.0000000E+00 + -35.50000 105.5000 0.0000000E+00 + -34.50000 105.5000 0.0000000E+00 + -33.50000 105.5000 0.0000000E+00 + -32.50000 105.5000 0.0000000E+00 + -31.50000 105.5000 0.0000000E+00 + -30.50000 105.5000 0.0000000E+00 + -29.50000 105.5000 0.0000000E+00 + -28.50000 105.5000 0.0000000E+00 + -27.50000 105.5000 0.0000000E+00 + -26.50000 105.5000 0.0000000E+00 + -25.50000 105.5000 0.0000000E+00 + -24.50000 105.5000 0.0000000E+00 + -23.50000 105.5000 0.0000000E+00 + -22.50000 105.5000 0.0000000E+00 + -21.50000 105.5000 0.0000000E+00 + -20.50000 105.5000 0.0000000E+00 + -19.50000 105.5000 0.0000000E+00 + -18.50000 105.5000 0.0000000E+00 + -17.50000 105.5000 0.0000000E+00 + -16.50000 105.5000 0.0000000E+00 + -15.50000 105.5000 0.0000000E+00 + -14.50000 105.5000 0.0000000E+00 + -13.50000 105.5000 0.0000000E+00 + -12.50000 105.5000 0.0000000E+00 + -11.50000 105.5000 0.0000000E+00 + -10.50000 105.5000 0.0000000E+00 + -9.500000 105.5000 0.0000000E+00 + -8.500000 105.5000 0.0000000E+00 + -7.500000 105.5000 0.0000000E+00 + -6.500000 105.5000 0.0000000E+00 + -5.500000 105.5000 0.0000000E+00 + -4.500000 105.5000 0.0000000E+00 + -3.500000 105.5000 0.0000000E+00 + -2.500000 105.5000 0.0000000E+00 + -1.500000 105.5000 0.0000000E+00 + -0.5000000 105.5000 0.0000000E+00 + 0.5000000 105.5000 0.0000000E+00 + 1.500000 105.5000 0.0000000E+00 + 2.500000 105.5000 0.0000000E+00 + 3.500000 105.5000 0.0000000E+00 + 4.500000 105.5000 0.0000000E+00 + 5.500000 105.5000 0.0000000E+00 + 6.500000 105.5000 0.0000000E+00 + 7.500000 105.5000 0.0000000E+00 + 8.500000 105.5000 0.0000000E+00 + 9.500000 105.5000 0.0000000E+00 + 10.50000 105.5000 0.0000000E+00 + 11.50000 105.5000 0.0000000E+00 + 12.50000 105.5000 0.0000000E+00 + 13.50000 105.5000 0.0000000E+00 + 14.50000 105.5000 0.0000000E+00 + 15.50000 105.5000 0.0000000E+00 + 16.50000 105.5000 0.0000000E+00 + 17.50000 105.5000 0.0000000E+00 + 18.50000 105.5000 0.0000000E+00 + 19.50000 105.5000 0.0000000E+00 + 20.50000 105.5000 0.0000000E+00 + 21.50000 105.5000 0.0000000E+00 + 22.50000 105.5000 0.0000000E+00 + 23.50000 105.5000 0.0000000E+00 + 24.50000 105.5000 0.0000000E+00 + 25.50000 105.5000 0.0000000E+00 + 26.50000 105.5000 0.0000000E+00 + 27.50000 105.5000 0.0000000E+00 + 28.50000 105.5000 0.0000000E+00 + 29.50000 105.5000 0.0000000E+00 + 30.50000 105.5000 0.0000000E+00 + 31.50000 105.5000 0.0000000E+00 + 32.50000 105.5000 0.0000000E+00 + 33.50000 105.5000 0.0000000E+00 + 34.50000 105.5000 0.0000000E+00 + 35.50000 105.5000 0.0000000E+00 + 36.50000 105.5000 0.0000000E+00 + 37.50000 105.5000 7.1615982E-03 + 38.50000 105.5000 6.8009333E-03 + 39.50000 105.5000 2.9495597E-02 + 40.50000 105.5000 2.5169035E-02 + 41.50000 105.5000 2.9818304E-02 + 42.50000 105.5000 4.2017497E-02 + 43.50000 105.5000 1.5179838E-02 + 44.50000 105.5000 4.8982166E-02 + 45.50000 105.5000 0.0000000E+00 + 46.50000 105.5000 0.0000000E+00 + 47.50000 105.5000 0.0000000E+00 + 48.50000 105.5000 0.0000000E+00 + 49.50000 105.5000 0.0000000E+00 + 50.50000 105.5000 0.0000000E+00 + 51.50000 105.5000 0.0000000E+00 + 52.50000 105.5000 0.0000000E+00 + 53.50000 105.5000 0.0000000E+00 + 54.50000 105.5000 0.0000000E+00 + 55.50000 105.5000 0.0000000E+00 + 56.50000 105.5000 0.0000000E+00 + 57.50000 105.5000 0.0000000E+00 + 58.50000 105.5000 0.0000000E+00 + 59.50000 105.5000 0.0000000E+00 + 60.50000 105.5000 0.0000000E+00 + 61.50000 105.5000 0.0000000E+00 + 62.50000 105.5000 0.0000000E+00 + 63.50000 105.5000 0.0000000E+00 + 64.50000 105.5000 0.0000000E+00 + 65.50000 105.5000 0.0000000E+00 + 66.50000 105.5000 0.0000000E+00 + 67.50000 105.5000 0.0000000E+00 + 68.50000 105.5000 0.0000000E+00 + 69.50000 105.5000 0.0000000E+00 + 70.50000 105.5000 0.0000000E+00 + 71.50000 105.5000 0.0000000E+00 + 72.50000 105.5000 0.0000000E+00 + 73.50000 105.5000 0.0000000E+00 + 74.50000 105.5000 0.0000000E+00 + 75.50000 105.5000 0.0000000E+00 + 76.50000 105.5000 0.0000000E+00 + 77.50000 105.5000 0.0000000E+00 + 78.50000 105.5000 0.0000000E+00 + 79.50000 105.5000 0.0000000E+00 + 80.50000 105.5000 0.0000000E+00 + 81.50000 105.5000 0.0000000E+00 + 82.50000 105.5000 0.0000000E+00 + 83.50000 105.5000 0.0000000E+00 + 84.50000 105.5000 0.0000000E+00 + 85.50000 105.5000 0.0000000E+00 + 86.50000 105.5000 0.0000000E+00 + 87.50000 105.5000 0.0000000E+00 + 88.50000 105.5000 0.0000000E+00 + 89.50000 105.5000 0.0000000E+00 + -89.50000 106.5000 0.0000000E+00 + -88.50000 106.5000 0.0000000E+00 + -87.50000 106.5000 0.0000000E+00 + -86.50000 106.5000 0.0000000E+00 + -85.50000 106.5000 0.0000000E+00 + -84.50000 106.5000 0.0000000E+00 + -83.50000 106.5000 0.0000000E+00 + -82.50000 106.5000 0.0000000E+00 + -81.50000 106.5000 0.0000000E+00 + -80.50000 106.5000 0.0000000E+00 + -79.50000 106.5000 0.0000000E+00 + -78.50000 106.5000 0.0000000E+00 + -77.50000 106.5000 0.0000000E+00 + -76.50000 106.5000 0.0000000E+00 + -75.50000 106.5000 0.0000000E+00 + -74.50000 106.5000 0.0000000E+00 + -73.50000 106.5000 0.0000000E+00 + -72.50000 106.5000 0.0000000E+00 + -71.50000 106.5000 0.0000000E+00 + -70.50000 106.5000 0.0000000E+00 + -69.50000 106.5000 0.0000000E+00 + -68.50000 106.5000 0.0000000E+00 + -67.50000 106.5000 0.0000000E+00 + -66.50000 106.5000 0.0000000E+00 + -65.50000 106.5000 0.0000000E+00 + -64.50000 106.5000 0.0000000E+00 + -63.50000 106.5000 0.0000000E+00 + -62.50000 106.5000 0.0000000E+00 + -61.50000 106.5000 0.0000000E+00 + -60.50000 106.5000 0.0000000E+00 + -59.50000 106.5000 0.0000000E+00 + -58.50000 106.5000 0.0000000E+00 + -57.50000 106.5000 0.0000000E+00 + -56.50000 106.5000 0.0000000E+00 + -55.50000 106.5000 0.0000000E+00 + -54.50000 106.5000 0.0000000E+00 + -53.50000 106.5000 0.0000000E+00 + -52.50000 106.5000 0.0000000E+00 + -51.50000 106.5000 0.0000000E+00 + -50.50000 106.5000 0.0000000E+00 + -49.50000 106.5000 0.0000000E+00 + -48.50000 106.5000 0.0000000E+00 + -47.50000 106.5000 0.0000000E+00 + -46.50000 106.5000 0.0000000E+00 + -45.50000 106.5000 0.0000000E+00 + -44.50000 106.5000 0.0000000E+00 + -43.50000 106.5000 0.0000000E+00 + -42.50000 106.5000 0.0000000E+00 + -41.50000 106.5000 0.0000000E+00 + -40.50000 106.5000 0.0000000E+00 + -39.50000 106.5000 0.0000000E+00 + -38.50000 106.5000 0.0000000E+00 + -37.50000 106.5000 0.0000000E+00 + -36.50000 106.5000 0.0000000E+00 + -35.50000 106.5000 0.0000000E+00 + -34.50000 106.5000 0.0000000E+00 + -33.50000 106.5000 0.0000000E+00 + -32.50000 106.5000 0.0000000E+00 + -31.50000 106.5000 0.0000000E+00 + -30.50000 106.5000 0.0000000E+00 + -29.50000 106.5000 0.0000000E+00 + -28.50000 106.5000 0.0000000E+00 + -27.50000 106.5000 0.0000000E+00 + -26.50000 106.5000 0.0000000E+00 + -25.50000 106.5000 0.0000000E+00 + -24.50000 106.5000 0.0000000E+00 + -23.50000 106.5000 0.0000000E+00 + -22.50000 106.5000 0.0000000E+00 + -21.50000 106.5000 0.0000000E+00 + -20.50000 106.5000 0.0000000E+00 + -19.50000 106.5000 0.0000000E+00 + -18.50000 106.5000 0.0000000E+00 + -17.50000 106.5000 0.0000000E+00 + -16.50000 106.5000 0.0000000E+00 + -15.50000 106.5000 0.0000000E+00 + -14.50000 106.5000 0.0000000E+00 + -13.50000 106.5000 0.0000000E+00 + -12.50000 106.5000 0.0000000E+00 + -11.50000 106.5000 0.0000000E+00 + -10.50000 106.5000 0.0000000E+00 + -9.500000 106.5000 0.0000000E+00 + -8.500000 106.5000 0.0000000E+00 + -7.500000 106.5000 0.0000000E+00 + -6.500000 106.5000 0.0000000E+00 + -5.500000 106.5000 0.0000000E+00 + -4.500000 106.5000 0.0000000E+00 + -3.500000 106.5000 0.0000000E+00 + -2.500000 106.5000 0.0000000E+00 + -1.500000 106.5000 0.0000000E+00 + -0.5000000 106.5000 0.0000000E+00 + 0.5000000 106.5000 0.0000000E+00 + 1.500000 106.5000 0.0000000E+00 + 2.500000 106.5000 0.0000000E+00 + 3.500000 106.5000 0.0000000E+00 + 4.500000 106.5000 0.0000000E+00 + 5.500000 106.5000 0.0000000E+00 + 6.500000 106.5000 0.0000000E+00 + 7.500000 106.5000 0.0000000E+00 + 8.500000 106.5000 0.0000000E+00 + 9.500000 106.5000 0.0000000E+00 + 10.50000 106.5000 0.0000000E+00 + 11.50000 106.5000 0.0000000E+00 + 12.50000 106.5000 0.0000000E+00 + 13.50000 106.5000 0.0000000E+00 + 14.50000 106.5000 0.0000000E+00 + 15.50000 106.5000 0.0000000E+00 + 16.50000 106.5000 0.0000000E+00 + 17.50000 106.5000 0.0000000E+00 + 18.50000 106.5000 0.0000000E+00 + 19.50000 106.5000 0.0000000E+00 + 20.50000 106.5000 0.0000000E+00 + 21.50000 106.5000 0.0000000E+00 + 22.50000 106.5000 0.0000000E+00 + 23.50000 106.5000 0.0000000E+00 + 24.50000 106.5000 0.0000000E+00 + 25.50000 106.5000 0.0000000E+00 + 26.50000 106.5000 0.0000000E+00 + 27.50000 106.5000 0.0000000E+00 + 28.50000 106.5000 0.0000000E+00 + 29.50000 106.5000 0.0000000E+00 + 30.50000 106.5000 0.0000000E+00 + 31.50000 106.5000 0.0000000E+00 + 32.50000 106.5000 0.0000000E+00 + 33.50000 106.5000 0.0000000E+00 + 34.50000 106.5000 0.0000000E+00 + 35.50000 106.5000 0.0000000E+00 + 36.50000 106.5000 0.0000000E+00 + 37.50000 106.5000 5.7725324E-03 + 38.50000 106.5000 3.4004666E-02 + 39.50000 106.5000 3.4750365E-02 + 40.50000 106.5000 3.4750365E-02 + 41.50000 106.5000 2.5169035E-02 + 42.50000 106.5000 5.9326172E-02 + 43.50000 106.5000 7.5899191E-02 + 44.50000 106.5000 1.2014668E-02 + 45.50000 106.5000 0.0000000E+00 + 46.50000 106.5000 0.0000000E+00 + 47.50000 106.5000 0.0000000E+00 + 48.50000 106.5000 0.0000000E+00 + 49.50000 106.5000 0.0000000E+00 + 50.50000 106.5000 0.0000000E+00 + 51.50000 106.5000 0.0000000E+00 + 52.50000 106.5000 0.0000000E+00 + 53.50000 106.5000 0.0000000E+00 + 54.50000 106.5000 0.0000000E+00 + 55.50000 106.5000 0.0000000E+00 + 56.50000 106.5000 0.0000000E+00 + 57.50000 106.5000 0.0000000E+00 + 58.50000 106.5000 0.0000000E+00 + 59.50000 106.5000 0.0000000E+00 + 60.50000 106.5000 0.0000000E+00 + 61.50000 106.5000 0.0000000E+00 + 62.50000 106.5000 0.0000000E+00 + 63.50000 106.5000 0.0000000E+00 + 64.50000 106.5000 0.0000000E+00 + 65.50000 106.5000 0.0000000E+00 + 66.50000 106.5000 0.0000000E+00 + 67.50000 106.5000 0.0000000E+00 + 68.50000 106.5000 0.0000000E+00 + 69.50000 106.5000 0.0000000E+00 + 70.50000 106.5000 0.0000000E+00 + 71.50000 106.5000 0.0000000E+00 + 72.50000 106.5000 0.0000000E+00 + 73.50000 106.5000 0.0000000E+00 + 74.50000 106.5000 0.0000000E+00 + 75.50000 106.5000 0.0000000E+00 + 76.50000 106.5000 0.0000000E+00 + 77.50000 106.5000 0.0000000E+00 + 78.50000 106.5000 0.0000000E+00 + 79.50000 106.5000 0.0000000E+00 + 80.50000 106.5000 0.0000000E+00 + 81.50000 106.5000 0.0000000E+00 + 82.50000 106.5000 0.0000000E+00 + 83.50000 106.5000 0.0000000E+00 + 84.50000 106.5000 0.0000000E+00 + 85.50000 106.5000 0.0000000E+00 + 86.50000 106.5000 0.0000000E+00 + 87.50000 106.5000 0.0000000E+00 + 88.50000 106.5000 0.0000000E+00 + 89.50000 106.5000 0.0000000E+00 + -89.50000 107.5000 0.0000000E+00 + -88.50000 107.5000 0.0000000E+00 + -87.50000 107.5000 0.0000000E+00 + -86.50000 107.5000 0.0000000E+00 + -85.50000 107.5000 0.0000000E+00 + -84.50000 107.5000 0.0000000E+00 + -83.50000 107.5000 0.0000000E+00 + -82.50000 107.5000 0.0000000E+00 + -81.50000 107.5000 0.0000000E+00 + -80.50000 107.5000 0.0000000E+00 + -79.50000 107.5000 0.0000000E+00 + -78.50000 107.5000 0.0000000E+00 + -77.50000 107.5000 0.0000000E+00 + -76.50000 107.5000 0.0000000E+00 + -75.50000 107.5000 0.0000000E+00 + -74.50000 107.5000 0.0000000E+00 + -73.50000 107.5000 0.0000000E+00 + -72.50000 107.5000 0.0000000E+00 + -71.50000 107.5000 0.0000000E+00 + -70.50000 107.5000 0.0000000E+00 + -69.50000 107.5000 0.0000000E+00 + -68.50000 107.5000 0.0000000E+00 + -67.50000 107.5000 0.0000000E+00 + -66.50000 107.5000 0.0000000E+00 + -65.50000 107.5000 0.0000000E+00 + -64.50000 107.5000 0.0000000E+00 + -63.50000 107.5000 0.0000000E+00 + -62.50000 107.5000 0.0000000E+00 + -61.50000 107.5000 0.0000000E+00 + -60.50000 107.5000 0.0000000E+00 + -59.50000 107.5000 0.0000000E+00 + -58.50000 107.5000 0.0000000E+00 + -57.50000 107.5000 0.0000000E+00 + -56.50000 107.5000 0.0000000E+00 + -55.50000 107.5000 0.0000000E+00 + -54.50000 107.5000 0.0000000E+00 + -53.50000 107.5000 0.0000000E+00 + -52.50000 107.5000 0.0000000E+00 + -51.50000 107.5000 0.0000000E+00 + -50.50000 107.5000 0.0000000E+00 + -49.50000 107.5000 0.0000000E+00 + -48.50000 107.5000 0.0000000E+00 + -47.50000 107.5000 0.0000000E+00 + -46.50000 107.5000 0.0000000E+00 + -45.50000 107.5000 0.0000000E+00 + -44.50000 107.5000 0.0000000E+00 + -43.50000 107.5000 0.0000000E+00 + -42.50000 107.5000 0.0000000E+00 + -41.50000 107.5000 0.0000000E+00 + -40.50000 107.5000 0.0000000E+00 + -39.50000 107.5000 0.0000000E+00 + -38.50000 107.5000 0.0000000E+00 + -37.50000 107.5000 0.0000000E+00 + -36.50000 107.5000 0.0000000E+00 + -35.50000 107.5000 0.0000000E+00 + -34.50000 107.5000 0.0000000E+00 + -33.50000 107.5000 0.0000000E+00 + -32.50000 107.5000 0.0000000E+00 + -31.50000 107.5000 0.0000000E+00 + -30.50000 107.5000 0.0000000E+00 + -29.50000 107.5000 0.0000000E+00 + -28.50000 107.5000 0.0000000E+00 + -27.50000 107.5000 0.0000000E+00 + -26.50000 107.5000 0.0000000E+00 + -25.50000 107.5000 0.0000000E+00 + -24.50000 107.5000 0.0000000E+00 + -23.50000 107.5000 0.0000000E+00 + -22.50000 107.5000 0.0000000E+00 + -21.50000 107.5000 0.0000000E+00 + -20.50000 107.5000 0.0000000E+00 + -19.50000 107.5000 0.0000000E+00 + -18.50000 107.5000 0.0000000E+00 + -17.50000 107.5000 0.0000000E+00 + -16.50000 107.5000 0.0000000E+00 + -15.50000 107.5000 0.0000000E+00 + -14.50000 107.5000 0.0000000E+00 + -13.50000 107.5000 0.0000000E+00 + -12.50000 107.5000 0.0000000E+00 + -11.50000 107.5000 0.0000000E+00 + -10.50000 107.5000 0.0000000E+00 + -9.500000 107.5000 0.0000000E+00 + -8.500000 107.5000 0.0000000E+00 + -7.500000 107.5000 0.0000000E+00 + -6.500000 107.5000 0.0000000E+00 + -5.500000 107.5000 0.0000000E+00 + -4.500000 107.5000 0.0000000E+00 + -3.500000 107.5000 0.0000000E+00 + -2.500000 107.5000 0.0000000E+00 + -1.500000 107.5000 0.0000000E+00 + -0.5000000 107.5000 0.0000000E+00 + 0.5000000 107.5000 0.0000000E+00 + 1.500000 107.5000 0.0000000E+00 + 2.500000 107.5000 0.0000000E+00 + 3.500000 107.5000 0.0000000E+00 + 4.500000 107.5000 0.0000000E+00 + 5.500000 107.5000 0.0000000E+00 + 6.500000 107.5000 0.0000000E+00 + 7.500000 107.5000 0.0000000E+00 + 8.500000 107.5000 0.0000000E+00 + 9.500000 107.5000 0.0000000E+00 + 10.50000 107.5000 0.0000000E+00 + 11.50000 107.5000 0.0000000E+00 + 12.50000 107.5000 0.0000000E+00 + 13.50000 107.5000 0.0000000E+00 + 14.50000 107.5000 0.0000000E+00 + 15.50000 107.5000 0.0000000E+00 + 16.50000 107.5000 0.0000000E+00 + 17.50000 107.5000 0.0000000E+00 + 18.50000 107.5000 0.0000000E+00 + 19.50000 107.5000 0.0000000E+00 + 20.50000 107.5000 0.0000000E+00 + 21.50000 107.5000 0.0000000E+00 + 22.50000 107.5000 0.0000000E+00 + 23.50000 107.5000 0.0000000E+00 + 24.50000 107.5000 0.0000000E+00 + 25.50000 107.5000 0.0000000E+00 + 26.50000 107.5000 0.0000000E+00 + 27.50000 107.5000 0.0000000E+00 + 28.50000 107.5000 0.0000000E+00 + 29.50000 107.5000 0.0000000E+00 + 30.50000 107.5000 0.0000000E+00 + 31.50000 107.5000 0.0000000E+00 + 32.50000 107.5000 0.0000000E+00 + 33.50000 107.5000 0.0000000E+00 + 34.50000 107.5000 0.0000000E+00 + 35.50000 107.5000 0.0000000E+00 + 36.50000 107.5000 0.0000000E+00 + 37.50000 107.5000 4.0883715E-03 + 38.50000 107.5000 9.5139258E-03 + 39.50000 107.5000 8.2648303E-03 + 40.50000 107.5000 9.7372476E-03 + 41.50000 107.5000 4.0410524E-03 + 42.50000 107.5000 5.7062082E-02 + 43.50000 107.5000 6.2047116E-02 + 44.50000 107.5000 1.0346184E-02 + 45.50000 107.5000 0.0000000E+00 + 46.50000 107.5000 0.0000000E+00 + 47.50000 107.5000 0.0000000E+00 + 48.50000 107.5000 0.0000000E+00 + 49.50000 107.5000 0.0000000E+00 + 50.50000 107.5000 0.0000000E+00 + 51.50000 107.5000 0.0000000E+00 + 52.50000 107.5000 0.0000000E+00 + 53.50000 107.5000 0.0000000E+00 + 54.50000 107.5000 0.0000000E+00 + 55.50000 107.5000 0.0000000E+00 + 56.50000 107.5000 0.0000000E+00 + 57.50000 107.5000 0.0000000E+00 + 58.50000 107.5000 0.0000000E+00 + 59.50000 107.5000 0.0000000E+00 + 60.50000 107.5000 0.0000000E+00 + 61.50000 107.5000 0.0000000E+00 + 62.50000 107.5000 0.0000000E+00 + 63.50000 107.5000 0.0000000E+00 + 64.50000 107.5000 0.0000000E+00 + 65.50000 107.5000 0.0000000E+00 + 66.50000 107.5000 0.0000000E+00 + 67.50000 107.5000 0.0000000E+00 + 68.50000 107.5000 0.0000000E+00 + 69.50000 107.5000 0.0000000E+00 + 70.50000 107.5000 0.0000000E+00 + 71.50000 107.5000 0.0000000E+00 + 72.50000 107.5000 0.0000000E+00 + 73.50000 107.5000 0.0000000E+00 + 74.50000 107.5000 0.0000000E+00 + 75.50000 107.5000 0.0000000E+00 + 76.50000 107.5000 0.0000000E+00 + 77.50000 107.5000 0.0000000E+00 + 78.50000 107.5000 0.0000000E+00 + 79.50000 107.5000 0.0000000E+00 + 80.50000 107.5000 0.0000000E+00 + 81.50000 107.5000 0.0000000E+00 + 82.50000 107.5000 0.0000000E+00 + 83.50000 107.5000 0.0000000E+00 + 84.50000 107.5000 0.0000000E+00 + 85.50000 107.5000 0.0000000E+00 + 86.50000 107.5000 0.0000000E+00 + 87.50000 107.5000 0.0000000E+00 + 88.50000 107.5000 0.0000000E+00 + 89.50000 107.5000 0.0000000E+00 + -89.50000 108.5000 0.0000000E+00 + -88.50000 108.5000 0.0000000E+00 + -87.50000 108.5000 0.0000000E+00 + -86.50000 108.5000 0.0000000E+00 + -85.50000 108.5000 0.0000000E+00 + -84.50000 108.5000 0.0000000E+00 + -83.50000 108.5000 0.0000000E+00 + -82.50000 108.5000 0.0000000E+00 + -81.50000 108.5000 0.0000000E+00 + -80.50000 108.5000 0.0000000E+00 + -79.50000 108.5000 0.0000000E+00 + -78.50000 108.5000 0.0000000E+00 + -77.50000 108.5000 0.0000000E+00 + -76.50000 108.5000 0.0000000E+00 + -75.50000 108.5000 0.0000000E+00 + -74.50000 108.5000 0.0000000E+00 + -73.50000 108.5000 0.0000000E+00 + -72.50000 108.5000 0.0000000E+00 + -71.50000 108.5000 0.0000000E+00 + -70.50000 108.5000 0.0000000E+00 + -69.50000 108.5000 0.0000000E+00 + -68.50000 108.5000 0.0000000E+00 + -67.50000 108.5000 0.0000000E+00 + -66.50000 108.5000 0.0000000E+00 + -65.50000 108.5000 0.0000000E+00 + -64.50000 108.5000 0.0000000E+00 + -63.50000 108.5000 0.0000000E+00 + -62.50000 108.5000 0.0000000E+00 + -61.50000 108.5000 0.0000000E+00 + -60.50000 108.5000 0.0000000E+00 + -59.50000 108.5000 0.0000000E+00 + -58.50000 108.5000 0.0000000E+00 + -57.50000 108.5000 0.0000000E+00 + -56.50000 108.5000 0.0000000E+00 + -55.50000 108.5000 0.0000000E+00 + -54.50000 108.5000 0.0000000E+00 + -53.50000 108.5000 0.0000000E+00 + -52.50000 108.5000 0.0000000E+00 + -51.50000 108.5000 0.0000000E+00 + -50.50000 108.5000 0.0000000E+00 + -49.50000 108.5000 0.0000000E+00 + -48.50000 108.5000 0.0000000E+00 + -47.50000 108.5000 0.0000000E+00 + -46.50000 108.5000 0.0000000E+00 + -45.50000 108.5000 0.0000000E+00 + -44.50000 108.5000 0.0000000E+00 + -43.50000 108.5000 0.0000000E+00 + -42.50000 108.5000 0.0000000E+00 + -41.50000 108.5000 0.0000000E+00 + -40.50000 108.5000 0.0000000E+00 + -39.50000 108.5000 0.0000000E+00 + -38.50000 108.5000 0.0000000E+00 + -37.50000 108.5000 0.0000000E+00 + -36.50000 108.5000 0.0000000E+00 + -35.50000 108.5000 0.0000000E+00 + -34.50000 108.5000 0.0000000E+00 + -33.50000 108.5000 0.0000000E+00 + -32.50000 108.5000 0.0000000E+00 + -31.50000 108.5000 0.0000000E+00 + -30.50000 108.5000 0.0000000E+00 + -29.50000 108.5000 0.0000000E+00 + -28.50000 108.5000 0.0000000E+00 + -27.50000 108.5000 0.0000000E+00 + -26.50000 108.5000 0.0000000E+00 + -25.50000 108.5000 0.0000000E+00 + -24.50000 108.5000 0.0000000E+00 + -23.50000 108.5000 0.0000000E+00 + -22.50000 108.5000 0.0000000E+00 + -21.50000 108.5000 0.0000000E+00 + -20.50000 108.5000 0.0000000E+00 + -19.50000 108.5000 0.0000000E+00 + -18.50000 108.5000 0.0000000E+00 + -17.50000 108.5000 0.0000000E+00 + -16.50000 108.5000 0.0000000E+00 + -15.50000 108.5000 0.0000000E+00 + -14.50000 108.5000 0.0000000E+00 + -13.50000 108.5000 0.0000000E+00 + -12.50000 108.5000 0.0000000E+00 + -11.50000 108.5000 0.0000000E+00 + -10.50000 108.5000 0.0000000E+00 + -9.500000 108.5000 0.0000000E+00 + -8.500000 108.5000 0.0000000E+00 + -7.500000 108.5000 0.0000000E+00 + -6.500000 108.5000 0.0000000E+00 + -5.500000 108.5000 0.0000000E+00 + -4.500000 108.5000 0.0000000E+00 + -3.500000 108.5000 0.0000000E+00 + -2.500000 108.5000 0.0000000E+00 + -1.500000 108.5000 0.0000000E+00 + -0.5000000 108.5000 0.0000000E+00 + 0.5000000 108.5000 0.0000000E+00 + 1.500000 108.5000 0.0000000E+00 + 2.500000 108.5000 0.0000000E+00 + 3.500000 108.5000 0.0000000E+00 + 4.500000 108.5000 0.0000000E+00 + 5.500000 108.5000 0.0000000E+00 + 6.500000 108.5000 0.0000000E+00 + 7.500000 108.5000 0.0000000E+00 + 8.500000 108.5000 0.0000000E+00 + 9.500000 108.5000 0.0000000E+00 + 10.50000 108.5000 0.0000000E+00 + 11.50000 108.5000 0.0000000E+00 + 12.50000 108.5000 0.0000000E+00 + 13.50000 108.5000 0.0000000E+00 + 14.50000 108.5000 0.0000000E+00 + 15.50000 108.5000 0.0000000E+00 + 16.50000 108.5000 0.0000000E+00 + 17.50000 108.5000 0.0000000E+00 + 18.50000 108.5000 0.0000000E+00 + 19.50000 108.5000 0.0000000E+00 + 20.50000 108.5000 0.0000000E+00 + 21.50000 108.5000 0.0000000E+00 + 22.50000 108.5000 0.0000000E+00 + 23.50000 108.5000 0.0000000E+00 + 24.50000 108.5000 0.0000000E+00 + 25.50000 108.5000 0.0000000E+00 + 26.50000 108.5000 0.0000000E+00 + 27.50000 108.5000 0.0000000E+00 + 28.50000 108.5000 0.0000000E+00 + 29.50000 108.5000 0.0000000E+00 + 30.50000 108.5000 0.0000000E+00 + 31.50000 108.5000 0.0000000E+00 + 32.50000 108.5000 0.0000000E+00 + 33.50000 108.5000 0.0000000E+00 + 34.50000 108.5000 0.0000000E+00 + 35.50000 108.5000 0.0000000E+00 + 36.50000 108.5000 0.0000000E+00 + 37.50000 108.5000 9.2967218E-03 + 38.50000 108.5000 1.3005319E-02 + 39.50000 108.5000 1.1412417E-02 + 40.50000 108.5000 1.5453340E-02 + 41.50000 108.5000 4.0410524E-03 + 42.50000 108.5000 6.6552974E-02 + 43.50000 108.5000 7.3947147E-02 + 44.50000 108.5000 1.4789429E-02 + 45.50000 108.5000 0.0000000E+00 + 46.50000 108.5000 0.0000000E+00 + 47.50000 108.5000 0.0000000E+00 + 48.50000 108.5000 0.0000000E+00 + 49.50000 108.5000 0.0000000E+00 + 50.50000 108.5000 0.0000000E+00 + 51.50000 108.5000 0.0000000E+00 + 52.50000 108.5000 0.0000000E+00 + 53.50000 108.5000 0.0000000E+00 + 54.50000 108.5000 0.0000000E+00 + 55.50000 108.5000 0.0000000E+00 + 56.50000 108.5000 0.0000000E+00 + 57.50000 108.5000 0.0000000E+00 + 58.50000 108.5000 0.0000000E+00 + 59.50000 108.5000 0.0000000E+00 + 60.50000 108.5000 0.0000000E+00 + 61.50000 108.5000 0.0000000E+00 + 62.50000 108.5000 0.0000000E+00 + 63.50000 108.5000 0.0000000E+00 + 64.50000 108.5000 0.0000000E+00 + 65.50000 108.5000 0.0000000E+00 + 66.50000 108.5000 0.0000000E+00 + 67.50000 108.5000 0.0000000E+00 + 68.50000 108.5000 0.0000000E+00 + 69.50000 108.5000 0.0000000E+00 + 70.50000 108.5000 0.0000000E+00 + 71.50000 108.5000 0.0000000E+00 + 72.50000 108.5000 0.0000000E+00 + 73.50000 108.5000 0.0000000E+00 + 74.50000 108.5000 0.0000000E+00 + 75.50000 108.5000 0.0000000E+00 + 76.50000 108.5000 0.0000000E+00 + 77.50000 108.5000 0.0000000E+00 + 78.50000 108.5000 0.0000000E+00 + 79.50000 108.5000 0.0000000E+00 + 80.50000 108.5000 0.0000000E+00 + 81.50000 108.5000 0.0000000E+00 + 82.50000 108.5000 0.0000000E+00 + 83.50000 108.5000 0.0000000E+00 + 84.50000 108.5000 0.0000000E+00 + 85.50000 108.5000 0.0000000E+00 + 86.50000 108.5000 0.0000000E+00 + 87.50000 108.5000 0.0000000E+00 + 88.50000 108.5000 0.0000000E+00 + 89.50000 108.5000 0.0000000E+00 + -89.50000 109.5000 0.0000000E+00 + -88.50000 109.5000 0.0000000E+00 + -87.50000 109.5000 0.0000000E+00 + -86.50000 109.5000 0.0000000E+00 + -85.50000 109.5000 0.0000000E+00 + -84.50000 109.5000 0.0000000E+00 + -83.50000 109.5000 0.0000000E+00 + -82.50000 109.5000 0.0000000E+00 + -81.50000 109.5000 0.0000000E+00 + -80.50000 109.5000 0.0000000E+00 + -79.50000 109.5000 0.0000000E+00 + -78.50000 109.5000 0.0000000E+00 + -77.50000 109.5000 0.0000000E+00 + -76.50000 109.5000 0.0000000E+00 + -75.50000 109.5000 0.0000000E+00 + -74.50000 109.5000 0.0000000E+00 + -73.50000 109.5000 0.0000000E+00 + -72.50000 109.5000 0.0000000E+00 + -71.50000 109.5000 0.0000000E+00 + -70.50000 109.5000 0.0000000E+00 + -69.50000 109.5000 0.0000000E+00 + -68.50000 109.5000 0.0000000E+00 + -67.50000 109.5000 0.0000000E+00 + -66.50000 109.5000 0.0000000E+00 + -65.50000 109.5000 0.0000000E+00 + -64.50000 109.5000 0.0000000E+00 + -63.50000 109.5000 0.0000000E+00 + -62.50000 109.5000 0.0000000E+00 + -61.50000 109.5000 0.0000000E+00 + -60.50000 109.5000 0.0000000E+00 + -59.50000 109.5000 0.0000000E+00 + -58.50000 109.5000 0.0000000E+00 + -57.50000 109.5000 0.0000000E+00 + -56.50000 109.5000 0.0000000E+00 + -55.50000 109.5000 0.0000000E+00 + -54.50000 109.5000 0.0000000E+00 + -53.50000 109.5000 0.0000000E+00 + -52.50000 109.5000 0.0000000E+00 + -51.50000 109.5000 0.0000000E+00 + -50.50000 109.5000 0.0000000E+00 + -49.50000 109.5000 0.0000000E+00 + -48.50000 109.5000 0.0000000E+00 + -47.50000 109.5000 0.0000000E+00 + -46.50000 109.5000 0.0000000E+00 + -45.50000 109.5000 0.0000000E+00 + -44.50000 109.5000 0.0000000E+00 + -43.50000 109.5000 0.0000000E+00 + -42.50000 109.5000 0.0000000E+00 + -41.50000 109.5000 0.0000000E+00 + -40.50000 109.5000 0.0000000E+00 + -39.50000 109.5000 0.0000000E+00 + -38.50000 109.5000 0.0000000E+00 + -37.50000 109.5000 0.0000000E+00 + -36.50000 109.5000 0.0000000E+00 + -35.50000 109.5000 0.0000000E+00 + -34.50000 109.5000 0.0000000E+00 + -33.50000 109.5000 0.0000000E+00 + -32.50000 109.5000 0.0000000E+00 + -31.50000 109.5000 0.0000000E+00 + -30.50000 109.5000 0.0000000E+00 + -29.50000 109.5000 0.0000000E+00 + -28.50000 109.5000 0.0000000E+00 + -27.50000 109.5000 0.0000000E+00 + -26.50000 109.5000 0.0000000E+00 + -25.50000 109.5000 0.0000000E+00 + -24.50000 109.5000 0.0000000E+00 + -23.50000 109.5000 0.0000000E+00 + -22.50000 109.5000 0.0000000E+00 + -21.50000 109.5000 0.0000000E+00 + -20.50000 109.5000 0.0000000E+00 + -19.50000 109.5000 0.0000000E+00 + -18.50000 109.5000 0.0000000E+00 + -17.50000 109.5000 0.0000000E+00 + -16.50000 109.5000 0.0000000E+00 + -15.50000 109.5000 0.0000000E+00 + -14.50000 109.5000 0.0000000E+00 + -13.50000 109.5000 0.0000000E+00 + -12.50000 109.5000 0.0000000E+00 + -11.50000 109.5000 0.0000000E+00 + -10.50000 109.5000 0.0000000E+00 + -9.500000 109.5000 0.0000000E+00 + -8.500000 109.5000 0.0000000E+00 + -7.500000 109.5000 0.0000000E+00 + -6.500000 109.5000 0.0000000E+00 + -5.500000 109.5000 0.0000000E+00 + -4.500000 109.5000 0.0000000E+00 + -3.500000 109.5000 0.0000000E+00 + -2.500000 109.5000 0.0000000E+00 + -1.500000 109.5000 0.0000000E+00 + -0.5000000 109.5000 0.0000000E+00 + 0.5000000 109.5000 0.0000000E+00 + 1.500000 109.5000 0.0000000E+00 + 2.500000 109.5000 0.0000000E+00 + 3.500000 109.5000 0.0000000E+00 + 4.500000 109.5000 0.0000000E+00 + 5.500000 109.5000 0.0000000E+00 + 6.500000 109.5000 0.0000000E+00 + 7.500000 109.5000 0.0000000E+00 + 8.500000 109.5000 0.0000000E+00 + 9.500000 109.5000 0.0000000E+00 + 10.50000 109.5000 0.0000000E+00 + 11.50000 109.5000 0.0000000E+00 + 12.50000 109.5000 0.0000000E+00 + 13.50000 109.5000 0.0000000E+00 + 14.50000 109.5000 0.0000000E+00 + 15.50000 109.5000 0.0000000E+00 + 16.50000 109.5000 0.0000000E+00 + 17.50000 109.5000 0.0000000E+00 + 18.50000 109.5000 0.0000000E+00 + 19.50000 109.5000 0.0000000E+00 + 20.50000 109.5000 0.0000000E+00 + 21.50000 109.5000 0.0000000E+00 + 22.50000 109.5000 0.0000000E+00 + 23.50000 109.5000 0.0000000E+00 + 24.50000 109.5000 0.0000000E+00 + 25.50000 109.5000 0.0000000E+00 + 26.50000 109.5000 0.0000000E+00 + 27.50000 109.5000 0.0000000E+00 + 28.50000 109.5000 0.0000000E+00 + 29.50000 109.5000 0.0000000E+00 + 30.50000 109.5000 0.0000000E+00 + 31.50000 109.5000 0.0000000E+00 + 32.50000 109.5000 0.0000000E+00 + 33.50000 109.5000 0.0000000E+00 + 34.50000 109.5000 0.0000000E+00 + 35.50000 109.5000 0.0000000E+00 + 36.50000 109.5000 0.0000000E+00 + 37.50000 109.5000 0.0000000E+00 + 38.50000 109.5000 1.3775303E-02 + 39.50000 109.5000 1.3775303E-02 + 40.50000 109.5000 1.3775303E-02 + 41.50000 109.5000 3.6022451E-03 + 42.50000 109.5000 3.6836885E-02 + 43.50000 109.5000 5.3733531E-02 + 44.50000 109.5000 1.3075016E-02 + 45.50000 109.5000 0.0000000E+00 + 46.50000 109.5000 0.0000000E+00 + 47.50000 109.5000 0.0000000E+00 + 48.50000 109.5000 0.0000000E+00 + 49.50000 109.5000 0.0000000E+00 + 50.50000 109.5000 0.0000000E+00 + 51.50000 109.5000 0.0000000E+00 + 52.50000 109.5000 0.0000000E+00 + 53.50000 109.5000 0.0000000E+00 + 54.50000 109.5000 0.0000000E+00 + 55.50000 109.5000 0.0000000E+00 + 56.50000 109.5000 0.0000000E+00 + 57.50000 109.5000 0.0000000E+00 + 58.50000 109.5000 0.0000000E+00 + 59.50000 109.5000 0.0000000E+00 + 60.50000 109.5000 0.0000000E+00 + 61.50000 109.5000 0.0000000E+00 + 62.50000 109.5000 0.0000000E+00 + 63.50000 109.5000 0.0000000E+00 + 64.50000 109.5000 0.0000000E+00 + 65.50000 109.5000 0.0000000E+00 + 66.50000 109.5000 0.0000000E+00 + 67.50000 109.5000 0.0000000E+00 + 68.50000 109.5000 0.0000000E+00 + 69.50000 109.5000 0.0000000E+00 + 70.50000 109.5000 0.0000000E+00 + 71.50000 109.5000 0.0000000E+00 + 72.50000 109.5000 0.0000000E+00 + 73.50000 109.5000 0.0000000E+00 + 74.50000 109.5000 0.0000000E+00 + 75.50000 109.5000 0.0000000E+00 + 76.50000 109.5000 0.0000000E+00 + 77.50000 109.5000 0.0000000E+00 + 78.50000 109.5000 0.0000000E+00 + 79.50000 109.5000 0.0000000E+00 + 80.50000 109.5000 0.0000000E+00 + 81.50000 109.5000 0.0000000E+00 + 82.50000 109.5000 0.0000000E+00 + 83.50000 109.5000 0.0000000E+00 + 84.50000 109.5000 0.0000000E+00 + 85.50000 109.5000 0.0000000E+00 + 86.50000 109.5000 0.0000000E+00 + 87.50000 109.5000 0.0000000E+00 + 88.50000 109.5000 0.0000000E+00 + 89.50000 109.5000 0.0000000E+00 + -89.50000 110.5000 0.0000000E+00 + -88.50000 110.5000 0.0000000E+00 + -87.50000 110.5000 0.0000000E+00 + -86.50000 110.5000 0.0000000E+00 + -85.50000 110.5000 0.0000000E+00 + -84.50000 110.5000 0.0000000E+00 + -83.50000 110.5000 0.0000000E+00 + -82.50000 110.5000 0.0000000E+00 + -81.50000 110.5000 0.0000000E+00 + -80.50000 110.5000 0.0000000E+00 + -79.50000 110.5000 0.0000000E+00 + -78.50000 110.5000 0.0000000E+00 + -77.50000 110.5000 0.0000000E+00 + -76.50000 110.5000 0.0000000E+00 + -75.50000 110.5000 0.0000000E+00 + -74.50000 110.5000 0.0000000E+00 + -73.50000 110.5000 0.0000000E+00 + -72.50000 110.5000 0.0000000E+00 + -71.50000 110.5000 0.0000000E+00 + -70.50000 110.5000 0.0000000E+00 + -69.50000 110.5000 0.0000000E+00 + -68.50000 110.5000 0.0000000E+00 + -67.50000 110.5000 0.0000000E+00 + -66.50000 110.5000 0.0000000E+00 + -65.50000 110.5000 0.0000000E+00 + -64.50000 110.5000 0.0000000E+00 + -63.50000 110.5000 0.0000000E+00 + -62.50000 110.5000 0.0000000E+00 + -61.50000 110.5000 0.0000000E+00 + -60.50000 110.5000 0.0000000E+00 + -59.50000 110.5000 0.0000000E+00 + -58.50000 110.5000 0.0000000E+00 + -57.50000 110.5000 0.0000000E+00 + -56.50000 110.5000 0.0000000E+00 + -55.50000 110.5000 0.0000000E+00 + -54.50000 110.5000 0.0000000E+00 + -53.50000 110.5000 0.0000000E+00 + -52.50000 110.5000 0.0000000E+00 + -51.50000 110.5000 0.0000000E+00 + -50.50000 110.5000 0.0000000E+00 + -49.50000 110.5000 0.0000000E+00 + -48.50000 110.5000 0.0000000E+00 + -47.50000 110.5000 0.0000000E+00 + -46.50000 110.5000 0.0000000E+00 + -45.50000 110.5000 0.0000000E+00 + -44.50000 110.5000 0.0000000E+00 + -43.50000 110.5000 0.0000000E+00 + -42.50000 110.5000 0.0000000E+00 + -41.50000 110.5000 0.0000000E+00 + -40.50000 110.5000 0.0000000E+00 + -39.50000 110.5000 0.0000000E+00 + -38.50000 110.5000 0.0000000E+00 + -37.50000 110.5000 0.0000000E+00 + -36.50000 110.5000 0.0000000E+00 + -35.50000 110.5000 0.0000000E+00 + -34.50000 110.5000 0.0000000E+00 + -33.50000 110.5000 0.0000000E+00 + -32.50000 110.5000 0.0000000E+00 + -31.50000 110.5000 0.0000000E+00 + -30.50000 110.5000 0.0000000E+00 + -29.50000 110.5000 0.0000000E+00 + -28.50000 110.5000 0.0000000E+00 + -27.50000 110.5000 0.0000000E+00 + -26.50000 110.5000 0.0000000E+00 + -25.50000 110.5000 0.0000000E+00 + -24.50000 110.5000 0.0000000E+00 + -23.50000 110.5000 0.0000000E+00 + -22.50000 110.5000 0.0000000E+00 + -21.50000 110.5000 0.0000000E+00 + -20.50000 110.5000 0.0000000E+00 + -19.50000 110.5000 0.0000000E+00 + -18.50000 110.5000 0.0000000E+00 + -17.50000 110.5000 0.0000000E+00 + -16.50000 110.5000 0.0000000E+00 + -15.50000 110.5000 0.0000000E+00 + -14.50000 110.5000 0.0000000E+00 + -13.50000 110.5000 0.0000000E+00 + -12.50000 110.5000 0.0000000E+00 + -11.50000 110.5000 0.0000000E+00 + -10.50000 110.5000 0.0000000E+00 + -9.500000 110.5000 0.0000000E+00 + -8.500000 110.5000 0.0000000E+00 + -7.500000 110.5000 0.0000000E+00 + -6.500000 110.5000 0.0000000E+00 + -5.500000 110.5000 0.0000000E+00 + -4.500000 110.5000 0.0000000E+00 + -3.500000 110.5000 0.0000000E+00 + -2.500000 110.5000 0.0000000E+00 + -1.500000 110.5000 0.0000000E+00 + -0.5000000 110.5000 0.0000000E+00 + 0.5000000 110.5000 0.0000000E+00 + 1.500000 110.5000 0.0000000E+00 + 2.500000 110.5000 0.0000000E+00 + 3.500000 110.5000 0.0000000E+00 + 4.500000 110.5000 0.0000000E+00 + 5.500000 110.5000 0.0000000E+00 + 6.500000 110.5000 0.0000000E+00 + 7.500000 110.5000 0.0000000E+00 + 8.500000 110.5000 0.0000000E+00 + 9.500000 110.5000 0.0000000E+00 + 10.50000 110.5000 0.0000000E+00 + 11.50000 110.5000 0.0000000E+00 + 12.50000 110.5000 0.0000000E+00 + 13.50000 110.5000 0.0000000E+00 + 14.50000 110.5000 0.0000000E+00 + 15.50000 110.5000 0.0000000E+00 + 16.50000 110.5000 0.0000000E+00 + 17.50000 110.5000 0.0000000E+00 + 18.50000 110.5000 0.0000000E+00 + 19.50000 110.5000 0.0000000E+00 + 20.50000 110.5000 0.0000000E+00 + 21.50000 110.5000 0.0000000E+00 + 22.50000 110.5000 0.0000000E+00 + 23.50000 110.5000 0.0000000E+00 + 24.50000 110.5000 0.0000000E+00 + 25.50000 110.5000 0.0000000E+00 + 26.50000 110.5000 0.0000000E+00 + 27.50000 110.5000 0.0000000E+00 + 28.50000 110.5000 0.0000000E+00 + 29.50000 110.5000 0.0000000E+00 + 30.50000 110.5000 0.0000000E+00 + 31.50000 110.5000 0.0000000E+00 + 32.50000 110.5000 0.0000000E+00 + 33.50000 110.5000 0.0000000E+00 + 34.50000 110.5000 0.0000000E+00 + 35.50000 110.5000 0.0000000E+00 + 36.50000 110.5000 0.0000000E+00 + 37.50000 110.5000 0.0000000E+00 + 38.50000 110.5000 0.0000000E+00 + 39.50000 110.5000 1.2124288E-02 + 40.50000 110.5000 0.0000000E+00 + 41.50000 110.5000 1.4636404E-03 + 42.50000 110.5000 7.1508209E-03 + 43.50000 110.5000 4.3012626E-03 + 44.50000 110.5000 0.0000000E+00 + 45.50000 110.5000 0.0000000E+00 + 46.50000 110.5000 0.0000000E+00 + 47.50000 110.5000 0.0000000E+00 + 48.50000 110.5000 0.0000000E+00 + 49.50000 110.5000 0.0000000E+00 + 50.50000 110.5000 0.0000000E+00 + 51.50000 110.5000 0.0000000E+00 + 52.50000 110.5000 0.0000000E+00 + 53.50000 110.5000 0.0000000E+00 + 54.50000 110.5000 0.0000000E+00 + 55.50000 110.5000 0.0000000E+00 + 56.50000 110.5000 0.0000000E+00 + 57.50000 110.5000 0.0000000E+00 + 58.50000 110.5000 0.0000000E+00 + 59.50000 110.5000 0.0000000E+00 + 60.50000 110.5000 0.0000000E+00 + 61.50000 110.5000 0.0000000E+00 + 62.50000 110.5000 0.0000000E+00 + 63.50000 110.5000 0.0000000E+00 + 64.50000 110.5000 0.0000000E+00 + 65.50000 110.5000 0.0000000E+00 + 66.50000 110.5000 0.0000000E+00 + 67.50000 110.5000 0.0000000E+00 + 68.50000 110.5000 0.0000000E+00 + 69.50000 110.5000 0.0000000E+00 + 70.50000 110.5000 0.0000000E+00 + 71.50000 110.5000 0.0000000E+00 + 72.50000 110.5000 0.0000000E+00 + 73.50000 110.5000 0.0000000E+00 + 74.50000 110.5000 0.0000000E+00 + 75.50000 110.5000 0.0000000E+00 + 76.50000 110.5000 0.0000000E+00 + 77.50000 110.5000 0.0000000E+00 + 78.50000 110.5000 0.0000000E+00 + 79.50000 110.5000 0.0000000E+00 + 80.50000 110.5000 0.0000000E+00 + 81.50000 110.5000 0.0000000E+00 + 82.50000 110.5000 0.0000000E+00 + 83.50000 110.5000 0.0000000E+00 + 84.50000 110.5000 0.0000000E+00 + 85.50000 110.5000 0.0000000E+00 + 86.50000 110.5000 0.0000000E+00 + 87.50000 110.5000 0.0000000E+00 + 88.50000 110.5000 0.0000000E+00 + 89.50000 110.5000 0.0000000E+00 + -89.50000 111.5000 0.0000000E+00 + -88.50000 111.5000 0.0000000E+00 + -87.50000 111.5000 0.0000000E+00 + -86.50000 111.5000 0.0000000E+00 + -85.50000 111.5000 0.0000000E+00 + -84.50000 111.5000 0.0000000E+00 + -83.50000 111.5000 0.0000000E+00 + -82.50000 111.5000 0.0000000E+00 + -81.50000 111.5000 0.0000000E+00 + -80.50000 111.5000 0.0000000E+00 + -79.50000 111.5000 0.0000000E+00 + -78.50000 111.5000 0.0000000E+00 + -77.50000 111.5000 0.0000000E+00 + -76.50000 111.5000 0.0000000E+00 + -75.50000 111.5000 0.0000000E+00 + -74.50000 111.5000 0.0000000E+00 + -73.50000 111.5000 0.0000000E+00 + -72.50000 111.5000 0.0000000E+00 + -71.50000 111.5000 0.0000000E+00 + -70.50000 111.5000 0.0000000E+00 + -69.50000 111.5000 0.0000000E+00 + -68.50000 111.5000 0.0000000E+00 + -67.50000 111.5000 0.0000000E+00 + -66.50000 111.5000 0.0000000E+00 + -65.50000 111.5000 0.0000000E+00 + -64.50000 111.5000 0.0000000E+00 + -63.50000 111.5000 0.0000000E+00 + -62.50000 111.5000 0.0000000E+00 + -61.50000 111.5000 0.0000000E+00 + -60.50000 111.5000 0.0000000E+00 + -59.50000 111.5000 0.0000000E+00 + -58.50000 111.5000 0.0000000E+00 + -57.50000 111.5000 0.0000000E+00 + -56.50000 111.5000 0.0000000E+00 + -55.50000 111.5000 0.0000000E+00 + -54.50000 111.5000 0.0000000E+00 + -53.50000 111.5000 0.0000000E+00 + -52.50000 111.5000 0.0000000E+00 + -51.50000 111.5000 0.0000000E+00 + -50.50000 111.5000 0.0000000E+00 + -49.50000 111.5000 0.0000000E+00 + -48.50000 111.5000 0.0000000E+00 + -47.50000 111.5000 0.0000000E+00 + -46.50000 111.5000 0.0000000E+00 + -45.50000 111.5000 0.0000000E+00 + -44.50000 111.5000 0.0000000E+00 + -43.50000 111.5000 0.0000000E+00 + -42.50000 111.5000 0.0000000E+00 + -41.50000 111.5000 0.0000000E+00 + -40.50000 111.5000 0.0000000E+00 + -39.50000 111.5000 0.0000000E+00 + -38.50000 111.5000 0.0000000E+00 + -37.50000 111.5000 0.0000000E+00 + -36.50000 111.5000 0.0000000E+00 + -35.50000 111.5000 0.0000000E+00 + -34.50000 111.5000 0.0000000E+00 + -33.50000 111.5000 0.0000000E+00 + -32.50000 111.5000 0.0000000E+00 + -31.50000 111.5000 0.0000000E+00 + -30.50000 111.5000 0.0000000E+00 + -29.50000 111.5000 0.0000000E+00 + -28.50000 111.5000 0.0000000E+00 + -27.50000 111.5000 0.0000000E+00 + -26.50000 111.5000 0.0000000E+00 + -25.50000 111.5000 0.0000000E+00 + -24.50000 111.5000 0.0000000E+00 + -23.50000 111.5000 0.0000000E+00 + -22.50000 111.5000 0.0000000E+00 + -21.50000 111.5000 0.0000000E+00 + -20.50000 111.5000 0.0000000E+00 + -19.50000 111.5000 0.0000000E+00 + -18.50000 111.5000 0.0000000E+00 + -17.50000 111.5000 0.0000000E+00 + -16.50000 111.5000 0.0000000E+00 + -15.50000 111.5000 0.0000000E+00 + -14.50000 111.5000 0.0000000E+00 + -13.50000 111.5000 0.0000000E+00 + -12.50000 111.5000 0.0000000E+00 + -11.50000 111.5000 0.0000000E+00 + -10.50000 111.5000 0.0000000E+00 + -9.500000 111.5000 0.0000000E+00 + -8.500000 111.5000 0.0000000E+00 + -7.500000 111.5000 0.0000000E+00 + -6.500000 111.5000 0.0000000E+00 + -5.500000 111.5000 0.0000000E+00 + -4.500000 111.5000 0.0000000E+00 + -3.500000 111.5000 0.0000000E+00 + -2.500000 111.5000 0.0000000E+00 + -1.500000 111.5000 0.0000000E+00 + -0.5000000 111.5000 0.0000000E+00 + 0.5000000 111.5000 0.0000000E+00 + 1.500000 111.5000 0.0000000E+00 + 2.500000 111.5000 0.0000000E+00 + 3.500000 111.5000 0.0000000E+00 + 4.500000 111.5000 0.0000000E+00 + 5.500000 111.5000 0.0000000E+00 + 6.500000 111.5000 0.0000000E+00 + 7.500000 111.5000 0.0000000E+00 + 8.500000 111.5000 0.0000000E+00 + 9.500000 111.5000 0.0000000E+00 + 10.50000 111.5000 0.0000000E+00 + 11.50000 111.5000 0.0000000E+00 + 12.50000 111.5000 0.0000000E+00 + 13.50000 111.5000 0.0000000E+00 + 14.50000 111.5000 0.0000000E+00 + 15.50000 111.5000 0.0000000E+00 + 16.50000 111.5000 0.0000000E+00 + 17.50000 111.5000 0.0000000E+00 + 18.50000 111.5000 0.0000000E+00 + 19.50000 111.5000 0.0000000E+00 + 20.50000 111.5000 0.0000000E+00 + 21.50000 111.5000 0.0000000E+00 + 22.50000 111.5000 0.0000000E+00 + 23.50000 111.5000 0.0000000E+00 + 24.50000 111.5000 0.0000000E+00 + 25.50000 111.5000 0.0000000E+00 + 26.50000 111.5000 0.0000000E+00 + 27.50000 111.5000 0.0000000E+00 + 28.50000 111.5000 0.0000000E+00 + 29.50000 111.5000 0.0000000E+00 + 30.50000 111.5000 0.0000000E+00 + 31.50000 111.5000 0.0000000E+00 + 32.50000 111.5000 0.0000000E+00 + 33.50000 111.5000 0.0000000E+00 + 34.50000 111.5000 0.0000000E+00 + 35.50000 111.5000 0.0000000E+00 + 36.50000 111.5000 0.0000000E+00 + 37.50000 111.5000 0.0000000E+00 + 38.50000 111.5000 0.0000000E+00 + 39.50000 111.5000 0.0000000E+00 + 40.50000 111.5000 0.0000000E+00 + 41.50000 111.5000 0.0000000E+00 + 42.50000 111.5000 1.8511274E-03 + 43.50000 111.5000 3.8880003E-03 + 44.50000 111.5000 0.0000000E+00 + 45.50000 111.5000 0.0000000E+00 + 46.50000 111.5000 0.0000000E+00 + 47.50000 111.5000 0.0000000E+00 + 48.50000 111.5000 0.0000000E+00 + 49.50000 111.5000 0.0000000E+00 + 50.50000 111.5000 0.0000000E+00 + 51.50000 111.5000 0.0000000E+00 + 52.50000 111.5000 0.0000000E+00 + 53.50000 111.5000 0.0000000E+00 + 54.50000 111.5000 0.0000000E+00 + 55.50000 111.5000 0.0000000E+00 + 56.50000 111.5000 0.0000000E+00 + 57.50000 111.5000 0.0000000E+00 + 58.50000 111.5000 0.0000000E+00 + 59.50000 111.5000 0.0000000E+00 + 60.50000 111.5000 0.0000000E+00 + 61.50000 111.5000 0.0000000E+00 + 62.50000 111.5000 0.0000000E+00 + 63.50000 111.5000 0.0000000E+00 + 64.50000 111.5000 0.0000000E+00 + 65.50000 111.5000 0.0000000E+00 + 66.50000 111.5000 0.0000000E+00 + 67.50000 111.5000 0.0000000E+00 + 68.50000 111.5000 0.0000000E+00 + 69.50000 111.5000 0.0000000E+00 + 70.50000 111.5000 0.0000000E+00 + 71.50000 111.5000 0.0000000E+00 + 72.50000 111.5000 0.0000000E+00 + 73.50000 111.5000 0.0000000E+00 + 74.50000 111.5000 0.0000000E+00 + 75.50000 111.5000 0.0000000E+00 + 76.50000 111.5000 0.0000000E+00 + 77.50000 111.5000 0.0000000E+00 + 78.50000 111.5000 0.0000000E+00 + 79.50000 111.5000 0.0000000E+00 + 80.50000 111.5000 0.0000000E+00 + 81.50000 111.5000 0.0000000E+00 + 82.50000 111.5000 0.0000000E+00 + 83.50000 111.5000 0.0000000E+00 + 84.50000 111.5000 0.0000000E+00 + 85.50000 111.5000 0.0000000E+00 + 86.50000 111.5000 0.0000000E+00 + 87.50000 111.5000 0.0000000E+00 + 88.50000 111.5000 0.0000000E+00 + 89.50000 111.5000 0.0000000E+00 + -89.50000 112.5000 0.0000000E+00 + -88.50000 112.5000 0.0000000E+00 + -87.50000 112.5000 0.0000000E+00 + -86.50000 112.5000 0.0000000E+00 + -85.50000 112.5000 0.0000000E+00 + -84.50000 112.5000 0.0000000E+00 + -83.50000 112.5000 0.0000000E+00 + -82.50000 112.5000 0.0000000E+00 + -81.50000 112.5000 0.0000000E+00 + -80.50000 112.5000 0.0000000E+00 + -79.50000 112.5000 0.0000000E+00 + -78.50000 112.5000 0.0000000E+00 + -77.50000 112.5000 0.0000000E+00 + -76.50000 112.5000 0.0000000E+00 + -75.50000 112.5000 0.0000000E+00 + -74.50000 112.5000 0.0000000E+00 + -73.50000 112.5000 0.0000000E+00 + -72.50000 112.5000 0.0000000E+00 + -71.50000 112.5000 0.0000000E+00 + -70.50000 112.5000 0.0000000E+00 + -69.50000 112.5000 0.0000000E+00 + -68.50000 112.5000 0.0000000E+00 + -67.50000 112.5000 0.0000000E+00 + -66.50000 112.5000 0.0000000E+00 + -65.50000 112.5000 0.0000000E+00 + -64.50000 112.5000 0.0000000E+00 + -63.50000 112.5000 0.0000000E+00 + -62.50000 112.5000 0.0000000E+00 + -61.50000 112.5000 0.0000000E+00 + -60.50000 112.5000 0.0000000E+00 + -59.50000 112.5000 0.0000000E+00 + -58.50000 112.5000 0.0000000E+00 + -57.50000 112.5000 0.0000000E+00 + -56.50000 112.5000 0.0000000E+00 + -55.50000 112.5000 0.0000000E+00 + -54.50000 112.5000 0.0000000E+00 + -53.50000 112.5000 0.0000000E+00 + -52.50000 112.5000 0.0000000E+00 + -51.50000 112.5000 0.0000000E+00 + -50.50000 112.5000 0.0000000E+00 + -49.50000 112.5000 0.0000000E+00 + -48.50000 112.5000 0.0000000E+00 + -47.50000 112.5000 0.0000000E+00 + -46.50000 112.5000 0.0000000E+00 + -45.50000 112.5000 0.0000000E+00 + -44.50000 112.5000 0.0000000E+00 + -43.50000 112.5000 0.0000000E+00 + -42.50000 112.5000 0.0000000E+00 + -41.50000 112.5000 0.0000000E+00 + -40.50000 112.5000 0.0000000E+00 + -39.50000 112.5000 0.0000000E+00 + -38.50000 112.5000 0.0000000E+00 + -37.50000 112.5000 0.0000000E+00 + -36.50000 112.5000 0.0000000E+00 + -35.50000 112.5000 0.0000000E+00 + -34.50000 112.5000 0.0000000E+00 + -33.50000 112.5000 0.0000000E+00 + -32.50000 112.5000 0.0000000E+00 + -31.50000 112.5000 0.0000000E+00 + -30.50000 112.5000 0.0000000E+00 + -29.50000 112.5000 0.0000000E+00 + -28.50000 112.5000 0.0000000E+00 + -27.50000 112.5000 0.0000000E+00 + -26.50000 112.5000 0.0000000E+00 + -25.50000 112.5000 0.0000000E+00 + -24.50000 112.5000 0.0000000E+00 + -23.50000 112.5000 0.0000000E+00 + -22.50000 112.5000 0.0000000E+00 + -21.50000 112.5000 0.0000000E+00 + -20.50000 112.5000 0.0000000E+00 + -19.50000 112.5000 0.0000000E+00 + -18.50000 112.5000 0.0000000E+00 + -17.50000 112.5000 0.0000000E+00 + -16.50000 112.5000 0.0000000E+00 + -15.50000 112.5000 0.0000000E+00 + -14.50000 112.5000 0.0000000E+00 + -13.50000 112.5000 0.0000000E+00 + -12.50000 112.5000 0.0000000E+00 + -11.50000 112.5000 0.0000000E+00 + -10.50000 112.5000 0.0000000E+00 + -9.500000 112.5000 0.0000000E+00 + -8.500000 112.5000 0.0000000E+00 + -7.500000 112.5000 0.0000000E+00 + -6.500000 112.5000 0.0000000E+00 + -5.500000 112.5000 0.0000000E+00 + -4.500000 112.5000 0.0000000E+00 + -3.500000 112.5000 0.0000000E+00 + -2.500000 112.5000 0.0000000E+00 + -1.500000 112.5000 0.0000000E+00 + -0.5000000 112.5000 0.0000000E+00 + 0.5000000 112.5000 0.0000000E+00 + 1.500000 112.5000 0.0000000E+00 + 2.500000 112.5000 0.0000000E+00 + 3.500000 112.5000 0.0000000E+00 + 4.500000 112.5000 0.0000000E+00 + 5.500000 112.5000 0.0000000E+00 + 6.500000 112.5000 0.0000000E+00 + 7.500000 112.5000 0.0000000E+00 + 8.500000 112.5000 0.0000000E+00 + 9.500000 112.5000 0.0000000E+00 + 10.50000 112.5000 0.0000000E+00 + 11.50000 112.5000 0.0000000E+00 + 12.50000 112.5000 0.0000000E+00 + 13.50000 112.5000 0.0000000E+00 + 14.50000 112.5000 0.0000000E+00 + 15.50000 112.5000 0.0000000E+00 + 16.50000 112.5000 0.0000000E+00 + 17.50000 112.5000 0.0000000E+00 + 18.50000 112.5000 0.0000000E+00 + 19.50000 112.5000 0.0000000E+00 + 20.50000 112.5000 0.0000000E+00 + 21.50000 112.5000 0.0000000E+00 + 22.50000 112.5000 0.0000000E+00 + 23.50000 112.5000 0.0000000E+00 + 24.50000 112.5000 0.0000000E+00 + 25.50000 112.5000 0.0000000E+00 + 26.50000 112.5000 0.0000000E+00 + 27.50000 112.5000 0.0000000E+00 + 28.50000 112.5000 0.0000000E+00 + 29.50000 112.5000 0.0000000E+00 + 30.50000 112.5000 0.0000000E+00 + 31.50000 112.5000 0.0000000E+00 + 32.50000 112.5000 0.0000000E+00 + 33.50000 112.5000 0.0000000E+00 + 34.50000 112.5000 0.0000000E+00 + 35.50000 112.5000 0.0000000E+00 + 36.50000 112.5000 0.0000000E+00 + 37.50000 112.5000 0.0000000E+00 + 38.50000 112.5000 0.0000000E+00 + 39.50000 112.5000 0.0000000E+00 + 40.50000 112.5000 0.0000000E+00 + 41.50000 112.5000 0.0000000E+00 + 42.50000 112.5000 5.1200012E-04 + 43.50000 112.5000 3.8880003E-03 + 44.50000 112.5000 0.0000000E+00 + 45.50000 112.5000 0.0000000E+00 + 46.50000 112.5000 0.0000000E+00 + 47.50000 112.5000 0.0000000E+00 + 48.50000 112.5000 0.0000000E+00 + 49.50000 112.5000 0.0000000E+00 + 50.50000 112.5000 0.0000000E+00 + 51.50000 112.5000 0.0000000E+00 + 52.50000 112.5000 0.0000000E+00 + 53.50000 112.5000 0.0000000E+00 + 54.50000 112.5000 0.0000000E+00 + 55.50000 112.5000 0.0000000E+00 + 56.50000 112.5000 0.0000000E+00 + 57.50000 112.5000 0.0000000E+00 + 58.50000 112.5000 0.0000000E+00 + 59.50000 112.5000 0.0000000E+00 + 60.50000 112.5000 0.0000000E+00 + 61.50000 112.5000 0.0000000E+00 + 62.50000 112.5000 0.0000000E+00 + 63.50000 112.5000 0.0000000E+00 + 64.50000 112.5000 0.0000000E+00 + 65.50000 112.5000 0.0000000E+00 + 66.50000 112.5000 0.0000000E+00 + 67.50000 112.5000 0.0000000E+00 + 68.50000 112.5000 0.0000000E+00 + 69.50000 112.5000 0.0000000E+00 + 70.50000 112.5000 0.0000000E+00 + 71.50000 112.5000 0.0000000E+00 + 72.50000 112.5000 0.0000000E+00 + 73.50000 112.5000 0.0000000E+00 + 74.50000 112.5000 0.0000000E+00 + 75.50000 112.5000 0.0000000E+00 + 76.50000 112.5000 0.0000000E+00 + 77.50000 112.5000 0.0000000E+00 + 78.50000 112.5000 0.0000000E+00 + 79.50000 112.5000 0.0000000E+00 + 80.50000 112.5000 0.0000000E+00 + 81.50000 112.5000 0.0000000E+00 + 82.50000 112.5000 0.0000000E+00 + 83.50000 112.5000 0.0000000E+00 + 84.50000 112.5000 0.0000000E+00 + 85.50000 112.5000 0.0000000E+00 + 86.50000 112.5000 0.0000000E+00 + 87.50000 112.5000 0.0000000E+00 + 88.50000 112.5000 0.0000000E+00 + 89.50000 112.5000 0.0000000E+00 + -89.50000 113.5000 0.0000000E+00 + -88.50000 113.5000 0.0000000E+00 + -87.50000 113.5000 0.0000000E+00 + -86.50000 113.5000 0.0000000E+00 + -85.50000 113.5000 0.0000000E+00 + -84.50000 113.5000 0.0000000E+00 + -83.50000 113.5000 0.0000000E+00 + -82.50000 113.5000 0.0000000E+00 + -81.50000 113.5000 0.0000000E+00 + -80.50000 113.5000 0.0000000E+00 + -79.50000 113.5000 0.0000000E+00 + -78.50000 113.5000 0.0000000E+00 + -77.50000 113.5000 0.0000000E+00 + -76.50000 113.5000 0.0000000E+00 + -75.50000 113.5000 0.0000000E+00 + -74.50000 113.5000 0.0000000E+00 + -73.50000 113.5000 0.0000000E+00 + -72.50000 113.5000 0.0000000E+00 + -71.50000 113.5000 0.0000000E+00 + -70.50000 113.5000 0.0000000E+00 + -69.50000 113.5000 0.0000000E+00 + -68.50000 113.5000 0.0000000E+00 + -67.50000 113.5000 0.0000000E+00 + -66.50000 113.5000 0.0000000E+00 + -65.50000 113.5000 0.0000000E+00 + -64.50000 113.5000 0.0000000E+00 + -63.50000 113.5000 0.0000000E+00 + -62.50000 113.5000 0.0000000E+00 + -61.50000 113.5000 0.0000000E+00 + -60.50000 113.5000 0.0000000E+00 + -59.50000 113.5000 0.0000000E+00 + -58.50000 113.5000 0.0000000E+00 + -57.50000 113.5000 0.0000000E+00 + -56.50000 113.5000 0.0000000E+00 + -55.50000 113.5000 0.0000000E+00 + -54.50000 113.5000 0.0000000E+00 + -53.50000 113.5000 0.0000000E+00 + -52.50000 113.5000 0.0000000E+00 + -51.50000 113.5000 0.0000000E+00 + -50.50000 113.5000 0.0000000E+00 + -49.50000 113.5000 0.0000000E+00 + -48.50000 113.5000 0.0000000E+00 + -47.50000 113.5000 0.0000000E+00 + -46.50000 113.5000 0.0000000E+00 + -45.50000 113.5000 0.0000000E+00 + -44.50000 113.5000 0.0000000E+00 + -43.50000 113.5000 0.0000000E+00 + -42.50000 113.5000 0.0000000E+00 + -41.50000 113.5000 0.0000000E+00 + -40.50000 113.5000 0.0000000E+00 + -39.50000 113.5000 0.0000000E+00 + -38.50000 113.5000 0.0000000E+00 + -37.50000 113.5000 0.0000000E+00 + -36.50000 113.5000 0.0000000E+00 + -35.50000 113.5000 0.0000000E+00 + -34.50000 113.5000 0.0000000E+00 + -33.50000 113.5000 0.0000000E+00 + -32.50000 113.5000 0.0000000E+00 + -31.50000 113.5000 0.0000000E+00 + -30.50000 113.5000 0.0000000E+00 + -29.50000 113.5000 0.0000000E+00 + -28.50000 113.5000 0.0000000E+00 + -27.50000 113.5000 0.0000000E+00 + -26.50000 113.5000 0.0000000E+00 + -25.50000 113.5000 0.0000000E+00 + -24.50000 113.5000 0.0000000E+00 + -23.50000 113.5000 0.0000000E+00 + -22.50000 113.5000 0.0000000E+00 + -21.50000 113.5000 0.0000000E+00 + -20.50000 113.5000 0.0000000E+00 + -19.50000 113.5000 0.0000000E+00 + -18.50000 113.5000 0.0000000E+00 + -17.50000 113.5000 0.0000000E+00 + -16.50000 113.5000 0.0000000E+00 + -15.50000 113.5000 0.0000000E+00 + -14.50000 113.5000 0.0000000E+00 + -13.50000 113.5000 0.0000000E+00 + -12.50000 113.5000 0.0000000E+00 + -11.50000 113.5000 0.0000000E+00 + -10.50000 113.5000 0.0000000E+00 + -9.500000 113.5000 0.0000000E+00 + -8.500000 113.5000 0.0000000E+00 + -7.500000 113.5000 0.0000000E+00 + -6.500000 113.5000 0.0000000E+00 + -5.500000 113.5000 0.0000000E+00 + -4.500000 113.5000 0.0000000E+00 + -3.500000 113.5000 0.0000000E+00 + -2.500000 113.5000 0.0000000E+00 + -1.500000 113.5000 0.0000000E+00 + -0.5000000 113.5000 0.0000000E+00 + 0.5000000 113.5000 0.0000000E+00 + 1.500000 113.5000 0.0000000E+00 + 2.500000 113.5000 0.0000000E+00 + 3.500000 113.5000 0.0000000E+00 + 4.500000 113.5000 0.0000000E+00 + 5.500000 113.5000 0.0000000E+00 + 6.500000 113.5000 0.0000000E+00 + 7.500000 113.5000 0.0000000E+00 + 8.500000 113.5000 0.0000000E+00 + 9.500000 113.5000 0.0000000E+00 + 10.50000 113.5000 0.0000000E+00 + 11.50000 113.5000 0.0000000E+00 + 12.50000 113.5000 0.0000000E+00 + 13.50000 113.5000 0.0000000E+00 + 14.50000 113.5000 0.0000000E+00 + 15.50000 113.5000 0.0000000E+00 + 16.50000 113.5000 0.0000000E+00 + 17.50000 113.5000 0.0000000E+00 + 18.50000 113.5000 0.0000000E+00 + 19.50000 113.5000 0.0000000E+00 + 20.50000 113.5000 0.0000000E+00 + 21.50000 113.5000 0.0000000E+00 + 22.50000 113.5000 0.0000000E+00 + 23.50000 113.5000 0.0000000E+00 + 24.50000 113.5000 0.0000000E+00 + 25.50000 113.5000 0.0000000E+00 + 26.50000 113.5000 0.0000000E+00 + 27.50000 113.5000 0.0000000E+00 + 28.50000 113.5000 0.0000000E+00 + 29.50000 113.5000 0.0000000E+00 + 30.50000 113.5000 0.0000000E+00 + 31.50000 113.5000 0.0000000E+00 + 32.50000 113.5000 0.0000000E+00 + 33.50000 113.5000 0.0000000E+00 + 34.50000 113.5000 0.0000000E+00 + 35.50000 113.5000 0.0000000E+00 + 36.50000 113.5000 0.0000000E+00 + 37.50000 113.5000 0.0000000E+00 + 38.50000 113.5000 0.0000000E+00 + 39.50000 113.5000 0.0000000E+00 + 40.50000 113.5000 0.0000000E+00 + 41.50000 113.5000 0.0000000E+00 + 42.50000 113.5000 0.0000000E+00 + 43.50000 113.5000 0.0000000E+00 + 44.50000 113.5000 0.0000000E+00 + 45.50000 113.5000 0.0000000E+00 + 46.50000 113.5000 0.0000000E+00 + 47.50000 113.5000 0.0000000E+00 + 48.50000 113.5000 0.0000000E+00 + 49.50000 113.5000 0.0000000E+00 + 50.50000 113.5000 0.0000000E+00 + 51.50000 113.5000 0.0000000E+00 + 52.50000 113.5000 0.0000000E+00 + 53.50000 113.5000 0.0000000E+00 + 54.50000 113.5000 0.0000000E+00 + 55.50000 113.5000 0.0000000E+00 + 56.50000 113.5000 0.0000000E+00 + 57.50000 113.5000 0.0000000E+00 + 58.50000 113.5000 0.0000000E+00 + 59.50000 113.5000 0.0000000E+00 + 60.50000 113.5000 0.0000000E+00 + 61.50000 113.5000 0.0000000E+00 + 62.50000 113.5000 0.0000000E+00 + 63.50000 113.5000 0.0000000E+00 + 64.50000 113.5000 0.0000000E+00 + 65.50000 113.5000 0.0000000E+00 + 66.50000 113.5000 0.0000000E+00 + 67.50000 113.5000 0.0000000E+00 + 68.50000 113.5000 0.0000000E+00 + 69.50000 113.5000 0.0000000E+00 + 70.50000 113.5000 0.0000000E+00 + 71.50000 113.5000 0.0000000E+00 + 72.50000 113.5000 0.0000000E+00 + 73.50000 113.5000 0.0000000E+00 + 74.50000 113.5000 0.0000000E+00 + 75.50000 113.5000 0.0000000E+00 + 76.50000 113.5000 0.0000000E+00 + 77.50000 113.5000 0.0000000E+00 + 78.50000 113.5000 0.0000000E+00 + 79.50000 113.5000 0.0000000E+00 + 80.50000 113.5000 0.0000000E+00 + 81.50000 113.5000 0.0000000E+00 + 82.50000 113.5000 0.0000000E+00 + 83.50000 113.5000 0.0000000E+00 + 84.50000 113.5000 0.0000000E+00 + 85.50000 113.5000 0.0000000E+00 + 86.50000 113.5000 0.0000000E+00 + 87.50000 113.5000 0.0000000E+00 + 88.50000 113.5000 0.0000000E+00 + 89.50000 113.5000 0.0000000E+00 + -89.50000 114.5000 0.0000000E+00 + -88.50000 114.5000 0.0000000E+00 + -87.50000 114.5000 0.0000000E+00 + -86.50000 114.5000 0.0000000E+00 + -85.50000 114.5000 0.0000000E+00 + -84.50000 114.5000 0.0000000E+00 + -83.50000 114.5000 0.0000000E+00 + -82.50000 114.5000 0.0000000E+00 + -81.50000 114.5000 0.0000000E+00 + -80.50000 114.5000 0.0000000E+00 + -79.50000 114.5000 0.0000000E+00 + -78.50000 114.5000 0.0000000E+00 + -77.50000 114.5000 0.0000000E+00 + -76.50000 114.5000 0.0000000E+00 + -75.50000 114.5000 0.0000000E+00 + -74.50000 114.5000 0.0000000E+00 + -73.50000 114.5000 0.0000000E+00 + -72.50000 114.5000 0.0000000E+00 + -71.50000 114.5000 0.0000000E+00 + -70.50000 114.5000 0.0000000E+00 + -69.50000 114.5000 0.0000000E+00 + -68.50000 114.5000 0.0000000E+00 + -67.50000 114.5000 0.0000000E+00 + -66.50000 114.5000 0.0000000E+00 + -65.50000 114.5000 0.0000000E+00 + -64.50000 114.5000 0.0000000E+00 + -63.50000 114.5000 0.0000000E+00 + -62.50000 114.5000 0.0000000E+00 + -61.50000 114.5000 0.0000000E+00 + -60.50000 114.5000 0.0000000E+00 + -59.50000 114.5000 0.0000000E+00 + -58.50000 114.5000 0.0000000E+00 + -57.50000 114.5000 0.0000000E+00 + -56.50000 114.5000 0.0000000E+00 + -55.50000 114.5000 0.0000000E+00 + -54.50000 114.5000 0.0000000E+00 + -53.50000 114.5000 0.0000000E+00 + -52.50000 114.5000 0.0000000E+00 + -51.50000 114.5000 0.0000000E+00 + -50.50000 114.5000 0.0000000E+00 + -49.50000 114.5000 0.0000000E+00 + -48.50000 114.5000 0.0000000E+00 + -47.50000 114.5000 0.0000000E+00 + -46.50000 114.5000 0.0000000E+00 + -45.50000 114.5000 0.0000000E+00 + -44.50000 114.5000 0.0000000E+00 + -43.50000 114.5000 0.0000000E+00 + -42.50000 114.5000 0.0000000E+00 + -41.50000 114.5000 0.0000000E+00 + -40.50000 114.5000 0.0000000E+00 + -39.50000 114.5000 0.0000000E+00 + -38.50000 114.5000 0.0000000E+00 + -37.50000 114.5000 0.0000000E+00 + -36.50000 114.5000 0.0000000E+00 + -35.50000 114.5000 0.0000000E+00 + -34.50000 114.5000 0.0000000E+00 + -33.50000 114.5000 0.0000000E+00 + -32.50000 114.5000 0.0000000E+00 + -31.50000 114.5000 0.0000000E+00 + -30.50000 114.5000 0.0000000E+00 + -29.50000 114.5000 0.0000000E+00 + -28.50000 114.5000 0.0000000E+00 + -27.50000 114.5000 0.0000000E+00 + -26.50000 114.5000 2.0093877E-02 + -25.50000 114.5000 3.2361396E-02 + -24.50000 114.5000 2.0093877E-02 + -23.50000 114.5000 2.0093877E-02 + -22.50000 114.5000 2.4447279E-02 + -21.50000 114.5000 0.0000000E+00 + -20.50000 114.5000 0.0000000E+00 + -19.50000 114.5000 0.0000000E+00 + -18.50000 114.5000 0.0000000E+00 + -17.50000 114.5000 0.0000000E+00 + -16.50000 114.5000 0.0000000E+00 + -15.50000 114.5000 0.0000000E+00 + -14.50000 114.5000 0.0000000E+00 + -13.50000 114.5000 0.0000000E+00 + -12.50000 114.5000 0.0000000E+00 + -11.50000 114.5000 0.0000000E+00 + -10.50000 114.5000 0.0000000E+00 + -9.500000 114.5000 0.0000000E+00 + -8.500000 114.5000 0.0000000E+00 + -7.500000 114.5000 0.0000000E+00 + -6.500000 114.5000 0.0000000E+00 + -5.500000 114.5000 0.0000000E+00 + -4.500000 114.5000 0.0000000E+00 + -3.500000 114.5000 0.0000000E+00 + -2.500000 114.5000 0.0000000E+00 + -1.500000 114.5000 0.0000000E+00 + -0.5000000 114.5000 0.0000000E+00 + 0.5000000 114.5000 0.0000000E+00 + 1.500000 114.5000 0.0000000E+00 + 2.500000 114.5000 0.0000000E+00 + 3.500000 114.5000 0.0000000E+00 + 4.500000 114.5000 0.0000000E+00 + 5.500000 114.5000 0.0000000E+00 + 6.500000 114.5000 0.0000000E+00 + 7.500000 114.5000 0.0000000E+00 + 8.500000 114.5000 0.0000000E+00 + 9.500000 114.5000 0.0000000E+00 + 10.50000 114.5000 0.0000000E+00 + 11.50000 114.5000 0.0000000E+00 + 12.50000 114.5000 0.0000000E+00 + 13.50000 114.5000 0.0000000E+00 + 14.50000 114.5000 0.0000000E+00 + 15.50000 114.5000 0.0000000E+00 + 16.50000 114.5000 0.0000000E+00 + 17.50000 114.5000 0.0000000E+00 + 18.50000 114.5000 0.0000000E+00 + 19.50000 114.5000 0.0000000E+00 + 20.50000 114.5000 0.0000000E+00 + 21.50000 114.5000 0.0000000E+00 + 22.50000 114.5000 0.0000000E+00 + 23.50000 114.5000 0.0000000E+00 + 24.50000 114.5000 0.0000000E+00 + 25.50000 114.5000 0.0000000E+00 + 26.50000 114.5000 0.0000000E+00 + 27.50000 114.5000 0.0000000E+00 + 28.50000 114.5000 0.0000000E+00 + 29.50000 114.5000 0.0000000E+00 + 30.50000 114.5000 0.0000000E+00 + 31.50000 114.5000 0.0000000E+00 + 32.50000 114.5000 0.0000000E+00 + 33.50000 114.5000 0.0000000E+00 + 34.50000 114.5000 0.0000000E+00 + 35.50000 114.5000 0.0000000E+00 + 36.50000 114.5000 0.0000000E+00 + 37.50000 114.5000 0.0000000E+00 + 38.50000 114.5000 0.0000000E+00 + 39.50000 114.5000 0.0000000E+00 + 40.50000 114.5000 0.0000000E+00 + 41.50000 114.5000 0.0000000E+00 + 42.50000 114.5000 0.0000000E+00 + 43.50000 114.5000 0.0000000E+00 + 44.50000 114.5000 0.0000000E+00 + 45.50000 114.5000 0.0000000E+00 + 46.50000 114.5000 0.0000000E+00 + 47.50000 114.5000 0.0000000E+00 + 48.50000 114.5000 0.0000000E+00 + 49.50000 114.5000 0.0000000E+00 + 50.50000 114.5000 0.0000000E+00 + 51.50000 114.5000 0.0000000E+00 + 52.50000 114.5000 0.0000000E+00 + 53.50000 114.5000 0.0000000E+00 + 54.50000 114.5000 0.0000000E+00 + 55.50000 114.5000 0.0000000E+00 + 56.50000 114.5000 0.0000000E+00 + 57.50000 114.5000 0.0000000E+00 + 58.50000 114.5000 0.0000000E+00 + 59.50000 114.5000 0.0000000E+00 + 60.50000 114.5000 0.0000000E+00 + 61.50000 114.5000 0.0000000E+00 + 62.50000 114.5000 0.0000000E+00 + 63.50000 114.5000 0.0000000E+00 + 64.50000 114.5000 0.0000000E+00 + 65.50000 114.5000 0.0000000E+00 + 66.50000 114.5000 0.0000000E+00 + 67.50000 114.5000 0.0000000E+00 + 68.50000 114.5000 0.0000000E+00 + 69.50000 114.5000 0.0000000E+00 + 70.50000 114.5000 0.0000000E+00 + 71.50000 114.5000 0.0000000E+00 + 72.50000 114.5000 0.0000000E+00 + 73.50000 114.5000 0.0000000E+00 + 74.50000 114.5000 0.0000000E+00 + 75.50000 114.5000 0.0000000E+00 + 76.50000 114.5000 0.0000000E+00 + 77.50000 114.5000 0.0000000E+00 + 78.50000 114.5000 0.0000000E+00 + 79.50000 114.5000 0.0000000E+00 + 80.50000 114.5000 0.0000000E+00 + 81.50000 114.5000 0.0000000E+00 + 82.50000 114.5000 0.0000000E+00 + 83.50000 114.5000 0.0000000E+00 + 84.50000 114.5000 0.0000000E+00 + 85.50000 114.5000 0.0000000E+00 + 86.50000 114.5000 0.0000000E+00 + 87.50000 114.5000 0.0000000E+00 + 88.50000 114.5000 0.0000000E+00 + 89.50000 114.5000 0.0000000E+00 + -89.50000 115.5000 0.0000000E+00 + -88.50000 115.5000 0.0000000E+00 + -87.50000 115.5000 0.0000000E+00 + -86.50000 115.5000 0.0000000E+00 + -85.50000 115.5000 0.0000000E+00 + -84.50000 115.5000 0.0000000E+00 + -83.50000 115.5000 0.0000000E+00 + -82.50000 115.5000 0.0000000E+00 + -81.50000 115.5000 0.0000000E+00 + -80.50000 115.5000 0.0000000E+00 + -79.50000 115.5000 0.0000000E+00 + -78.50000 115.5000 0.0000000E+00 + -77.50000 115.5000 0.0000000E+00 + -76.50000 115.5000 0.0000000E+00 + -75.50000 115.5000 0.0000000E+00 + -74.50000 115.5000 0.0000000E+00 + -73.50000 115.5000 0.0000000E+00 + -72.50000 115.5000 0.0000000E+00 + -71.50000 115.5000 0.0000000E+00 + -70.50000 115.5000 0.0000000E+00 + -69.50000 115.5000 0.0000000E+00 + -68.50000 115.5000 0.0000000E+00 + -67.50000 115.5000 0.0000000E+00 + -66.50000 115.5000 0.0000000E+00 + -65.50000 115.5000 0.0000000E+00 + -64.50000 115.5000 0.0000000E+00 + -63.50000 115.5000 0.0000000E+00 + -62.50000 115.5000 0.0000000E+00 + -61.50000 115.5000 0.0000000E+00 + -60.50000 115.5000 0.0000000E+00 + -59.50000 115.5000 0.0000000E+00 + -58.50000 115.5000 0.0000000E+00 + -57.50000 115.5000 0.0000000E+00 + -56.50000 115.5000 0.0000000E+00 + -55.50000 115.5000 0.0000000E+00 + -54.50000 115.5000 0.0000000E+00 + -53.50000 115.5000 0.0000000E+00 + -52.50000 115.5000 0.0000000E+00 + -51.50000 115.5000 0.0000000E+00 + -50.50000 115.5000 0.0000000E+00 + -49.50000 115.5000 0.0000000E+00 + -48.50000 115.5000 0.0000000E+00 + -47.50000 115.5000 0.0000000E+00 + -46.50000 115.5000 0.0000000E+00 + -45.50000 115.5000 0.0000000E+00 + -44.50000 115.5000 0.0000000E+00 + -43.50000 115.5000 0.0000000E+00 + -42.50000 115.5000 0.0000000E+00 + -41.50000 115.5000 0.0000000E+00 + -40.50000 115.5000 0.0000000E+00 + -39.50000 115.5000 0.0000000E+00 + -38.50000 115.5000 0.0000000E+00 + -37.50000 115.5000 0.0000000E+00 + -36.50000 115.5000 0.0000000E+00 + -35.50000 115.5000 0.0000000E+00 + -34.50000 115.5000 0.0000000E+00 + -33.50000 115.5000 0.0000000E+00 + -32.50000 115.5000 0.0000000E+00 + -31.50000 115.5000 0.0000000E+00 + -30.50000 115.5000 0.0000000E+00 + -29.50000 115.5000 0.0000000E+00 + -28.50000 115.5000 0.0000000E+00 + -27.50000 115.5000 6.5843635E-03 + -26.50000 115.5000 6.5843635E-03 + -25.50000 115.5000 6.5843635E-03 + -24.50000 115.5000 6.5843635E-03 + -23.50000 115.5000 6.5843635E-03 + -22.50000 115.5000 6.5843635E-03 + -21.50000 115.5000 3.2361396E-02 + -20.50000 115.5000 0.0000000E+00 + -19.50000 115.5000 0.0000000E+00 + -18.50000 115.5000 0.0000000E+00 + -17.50000 115.5000 0.0000000E+00 + -16.50000 115.5000 0.0000000E+00 + -15.50000 115.5000 0.0000000E+00 + -14.50000 115.5000 0.0000000E+00 + -13.50000 115.5000 0.0000000E+00 + -12.50000 115.5000 0.0000000E+00 + -11.50000 115.5000 0.0000000E+00 + -10.50000 115.5000 0.0000000E+00 + -9.500000 115.5000 0.0000000E+00 + -8.500000 115.5000 0.0000000E+00 + -7.500000 115.5000 0.0000000E+00 + -6.500000 115.5000 0.0000000E+00 + -5.500000 115.5000 0.0000000E+00 + -4.500000 115.5000 0.0000000E+00 + -3.500000 115.5000 0.0000000E+00 + -2.500000 115.5000 0.0000000E+00 + -1.500000 115.5000 0.0000000E+00 + -0.5000000 115.5000 0.0000000E+00 + 0.5000000 115.5000 0.0000000E+00 + 1.500000 115.5000 0.0000000E+00 + 2.500000 115.5000 0.0000000E+00 + 3.500000 115.5000 0.0000000E+00 + 4.500000 115.5000 0.0000000E+00 + 5.500000 115.5000 0.0000000E+00 + 6.500000 115.5000 0.0000000E+00 + 7.500000 115.5000 0.0000000E+00 + 8.500000 115.5000 0.0000000E+00 + 9.500000 115.5000 0.0000000E+00 + 10.50000 115.5000 0.0000000E+00 + 11.50000 115.5000 0.0000000E+00 + 12.50000 115.5000 0.0000000E+00 + 13.50000 115.5000 0.0000000E+00 + 14.50000 115.5000 0.0000000E+00 + 15.50000 115.5000 0.0000000E+00 + 16.50000 115.5000 0.0000000E+00 + 17.50000 115.5000 0.0000000E+00 + 18.50000 115.5000 0.0000000E+00 + 19.50000 115.5000 0.0000000E+00 + 20.50000 115.5000 0.0000000E+00 + 21.50000 115.5000 0.0000000E+00 + 22.50000 115.5000 0.0000000E+00 + 23.50000 115.5000 0.0000000E+00 + 24.50000 115.5000 0.0000000E+00 + 25.50000 115.5000 0.0000000E+00 + 26.50000 115.5000 0.0000000E+00 + 27.50000 115.5000 0.0000000E+00 + 28.50000 115.5000 0.0000000E+00 + 29.50000 115.5000 0.0000000E+00 + 30.50000 115.5000 0.0000000E+00 + 31.50000 115.5000 0.0000000E+00 + 32.50000 115.5000 0.0000000E+00 + 33.50000 115.5000 0.0000000E+00 + 34.50000 115.5000 0.0000000E+00 + 35.50000 115.5000 0.0000000E+00 + 36.50000 115.5000 0.0000000E+00 + 37.50000 115.5000 0.0000000E+00 + 38.50000 115.5000 0.0000000E+00 + 39.50000 115.5000 0.0000000E+00 + 40.50000 115.5000 0.0000000E+00 + 41.50000 115.5000 0.0000000E+00 + 42.50000 115.5000 0.0000000E+00 + 43.50000 115.5000 0.0000000E+00 + 44.50000 115.5000 0.0000000E+00 + 45.50000 115.5000 0.0000000E+00 + 46.50000 115.5000 0.0000000E+00 + 47.50000 115.5000 0.0000000E+00 + 48.50000 115.5000 0.0000000E+00 + 49.50000 115.5000 0.0000000E+00 + 50.50000 115.5000 0.0000000E+00 + 51.50000 115.5000 0.0000000E+00 + 52.50000 115.5000 0.0000000E+00 + 53.50000 115.5000 0.0000000E+00 + 54.50000 115.5000 0.0000000E+00 + 55.50000 115.5000 0.0000000E+00 + 56.50000 115.5000 0.0000000E+00 + 57.50000 115.5000 0.0000000E+00 + 58.50000 115.5000 0.0000000E+00 + 59.50000 115.5000 0.0000000E+00 + 60.50000 115.5000 0.0000000E+00 + 61.50000 115.5000 0.0000000E+00 + 62.50000 115.5000 0.0000000E+00 + 63.50000 115.5000 0.0000000E+00 + 64.50000 115.5000 0.0000000E+00 + 65.50000 115.5000 0.0000000E+00 + 66.50000 115.5000 0.0000000E+00 + 67.50000 115.5000 0.0000000E+00 + 68.50000 115.5000 0.0000000E+00 + 69.50000 115.5000 0.0000000E+00 + 70.50000 115.5000 0.0000000E+00 + 71.50000 115.5000 0.0000000E+00 + 72.50000 115.5000 0.0000000E+00 + 73.50000 115.5000 0.0000000E+00 + 74.50000 115.5000 0.0000000E+00 + 75.50000 115.5000 0.0000000E+00 + 76.50000 115.5000 0.0000000E+00 + 77.50000 115.5000 0.0000000E+00 + 78.50000 115.5000 0.0000000E+00 + 79.50000 115.5000 0.0000000E+00 + 80.50000 115.5000 0.0000000E+00 + 81.50000 115.5000 0.0000000E+00 + 82.50000 115.5000 0.0000000E+00 + 83.50000 115.5000 0.0000000E+00 + 84.50000 115.5000 0.0000000E+00 + 85.50000 115.5000 0.0000000E+00 + 86.50000 115.5000 0.0000000E+00 + 87.50000 115.5000 0.0000000E+00 + 88.50000 115.5000 0.0000000E+00 + 89.50000 115.5000 0.0000000E+00 + -89.50000 116.5000 0.0000000E+00 + -88.50000 116.5000 0.0000000E+00 + -87.50000 116.5000 0.0000000E+00 + -86.50000 116.5000 0.0000000E+00 + -85.50000 116.5000 0.0000000E+00 + -84.50000 116.5000 0.0000000E+00 + -83.50000 116.5000 0.0000000E+00 + -82.50000 116.5000 0.0000000E+00 + -81.50000 116.5000 0.0000000E+00 + -80.50000 116.5000 0.0000000E+00 + -79.50000 116.5000 0.0000000E+00 + -78.50000 116.5000 0.0000000E+00 + -77.50000 116.5000 0.0000000E+00 + -76.50000 116.5000 0.0000000E+00 + -75.50000 116.5000 0.0000000E+00 + -74.50000 116.5000 0.0000000E+00 + -73.50000 116.5000 0.0000000E+00 + -72.50000 116.5000 0.0000000E+00 + -71.50000 116.5000 0.0000000E+00 + -70.50000 116.5000 0.0000000E+00 + -69.50000 116.5000 0.0000000E+00 + -68.50000 116.5000 0.0000000E+00 + -67.50000 116.5000 0.0000000E+00 + -66.50000 116.5000 0.0000000E+00 + -65.50000 116.5000 0.0000000E+00 + -64.50000 116.5000 0.0000000E+00 + -63.50000 116.5000 0.0000000E+00 + -62.50000 116.5000 0.0000000E+00 + -61.50000 116.5000 0.0000000E+00 + -60.50000 116.5000 0.0000000E+00 + -59.50000 116.5000 0.0000000E+00 + -58.50000 116.5000 0.0000000E+00 + -57.50000 116.5000 0.0000000E+00 + -56.50000 116.5000 0.0000000E+00 + -55.50000 116.5000 0.0000000E+00 + -54.50000 116.5000 0.0000000E+00 + -53.50000 116.5000 0.0000000E+00 + -52.50000 116.5000 0.0000000E+00 + -51.50000 116.5000 0.0000000E+00 + -50.50000 116.5000 0.0000000E+00 + -49.50000 116.5000 0.0000000E+00 + -48.50000 116.5000 0.0000000E+00 + -47.50000 116.5000 0.0000000E+00 + -46.50000 116.5000 0.0000000E+00 + -45.50000 116.5000 0.0000000E+00 + -44.50000 116.5000 0.0000000E+00 + -43.50000 116.5000 0.0000000E+00 + -42.50000 116.5000 0.0000000E+00 + -41.50000 116.5000 0.0000000E+00 + -40.50000 116.5000 0.0000000E+00 + -39.50000 116.5000 0.0000000E+00 + -38.50000 116.5000 0.0000000E+00 + -37.50000 116.5000 0.0000000E+00 + -36.50000 116.5000 0.0000000E+00 + -35.50000 116.5000 0.0000000E+00 + -34.50000 116.5000 0.0000000E+00 + -33.50000 116.5000 0.0000000E+00 + -32.50000 116.5000 0.0000000E+00 + -31.50000 116.5000 0.0000000E+00 + -30.50000 116.5000 0.0000000E+00 + -29.50000 116.5000 0.0000000E+00 + -28.50000 116.5000 1.5625000E-03 + -27.50000 116.5000 1.5625000E-03 + -26.50000 116.5000 6.2793365E-04 + -25.50000 116.5000 2.0576136E-04 + -24.50000 116.5000 1.5625000E-03 + -23.50000 116.5000 2.0576136E-04 + -22.50000 116.5000 2.0576136E-04 + -21.50000 116.5000 2.0576136E-04 + -20.50000 116.5000 0.0000000E+00 + -19.50000 116.5000 0.0000000E+00 + -18.50000 116.5000 0.0000000E+00 + -17.50000 116.5000 0.0000000E+00 + -16.50000 116.5000 0.0000000E+00 + -15.50000 116.5000 0.0000000E+00 + -14.50000 116.5000 0.0000000E+00 + -13.50000 116.5000 0.0000000E+00 + -12.50000 116.5000 0.0000000E+00 + -11.50000 116.5000 0.0000000E+00 + -10.50000 116.5000 0.0000000E+00 + -9.500000 116.5000 0.0000000E+00 + -8.500000 116.5000 0.0000000E+00 + -7.500000 116.5000 0.0000000E+00 + -6.500000 116.5000 0.0000000E+00 + -5.500000 116.5000 0.0000000E+00 + -4.500000 116.5000 0.0000000E+00 + -3.500000 116.5000 0.0000000E+00 + -2.500000 116.5000 0.0000000E+00 + -1.500000 116.5000 0.0000000E+00 + -0.5000000 116.5000 0.0000000E+00 + 0.5000000 116.5000 0.0000000E+00 + 1.500000 116.5000 0.0000000E+00 + 2.500000 116.5000 0.0000000E+00 + 3.500000 116.5000 0.0000000E+00 + 4.500000 116.5000 0.0000000E+00 + 5.500000 116.5000 0.0000000E+00 + 6.500000 116.5000 0.0000000E+00 + 7.500000 116.5000 0.0000000E+00 + 8.500000 116.5000 0.0000000E+00 + 9.500000 116.5000 0.0000000E+00 + 10.50000 116.5000 0.0000000E+00 + 11.50000 116.5000 0.0000000E+00 + 12.50000 116.5000 0.0000000E+00 + 13.50000 116.5000 0.0000000E+00 + 14.50000 116.5000 0.0000000E+00 + 15.50000 116.5000 0.0000000E+00 + 16.50000 116.5000 0.0000000E+00 + 17.50000 116.5000 0.0000000E+00 + 18.50000 116.5000 0.0000000E+00 + 19.50000 116.5000 0.0000000E+00 + 20.50000 116.5000 0.0000000E+00 + 21.50000 116.5000 0.0000000E+00 + 22.50000 116.5000 0.0000000E+00 + 23.50000 116.5000 0.0000000E+00 + 24.50000 116.5000 0.0000000E+00 + 25.50000 116.5000 0.0000000E+00 + 26.50000 116.5000 0.0000000E+00 + 27.50000 116.5000 0.0000000E+00 + 28.50000 116.5000 0.0000000E+00 + 29.50000 116.5000 0.0000000E+00 + 30.50000 116.5000 0.0000000E+00 + 31.50000 116.5000 0.0000000E+00 + 32.50000 116.5000 0.0000000E+00 + 33.50000 116.5000 0.0000000E+00 + 34.50000 116.5000 0.0000000E+00 + 35.50000 116.5000 0.0000000E+00 + 36.50000 116.5000 0.0000000E+00 + 37.50000 116.5000 0.0000000E+00 + 38.50000 116.5000 0.0000000E+00 + 39.50000 116.5000 0.0000000E+00 + 40.50000 116.5000 0.0000000E+00 + 41.50000 116.5000 0.0000000E+00 + 42.50000 116.5000 0.0000000E+00 + 43.50000 116.5000 0.0000000E+00 + 44.50000 116.5000 0.0000000E+00 + 45.50000 116.5000 0.0000000E+00 + 46.50000 116.5000 0.0000000E+00 + 47.50000 116.5000 0.0000000E+00 + 48.50000 116.5000 0.0000000E+00 + 49.50000 116.5000 0.0000000E+00 + 50.50000 116.5000 0.0000000E+00 + 51.50000 116.5000 0.0000000E+00 + 52.50000 116.5000 0.0000000E+00 + 53.50000 116.5000 0.0000000E+00 + 54.50000 116.5000 0.0000000E+00 + 55.50000 116.5000 0.0000000E+00 + 56.50000 116.5000 0.0000000E+00 + 57.50000 116.5000 0.0000000E+00 + 58.50000 116.5000 0.0000000E+00 + 59.50000 116.5000 0.0000000E+00 + 60.50000 116.5000 0.0000000E+00 + 61.50000 116.5000 0.0000000E+00 + 62.50000 116.5000 0.0000000E+00 + 63.50000 116.5000 0.0000000E+00 + 64.50000 116.5000 0.0000000E+00 + 65.50000 116.5000 0.0000000E+00 + 66.50000 116.5000 0.0000000E+00 + 67.50000 116.5000 0.0000000E+00 + 68.50000 116.5000 0.0000000E+00 + 69.50000 116.5000 0.0000000E+00 + 70.50000 116.5000 0.0000000E+00 + 71.50000 116.5000 0.0000000E+00 + 72.50000 116.5000 0.0000000E+00 + 73.50000 116.5000 0.0000000E+00 + 74.50000 116.5000 0.0000000E+00 + 75.50000 116.5000 0.0000000E+00 + 76.50000 116.5000 0.0000000E+00 + 77.50000 116.5000 0.0000000E+00 + 78.50000 116.5000 0.0000000E+00 + 79.50000 116.5000 0.0000000E+00 + 80.50000 116.5000 0.0000000E+00 + 81.50000 116.5000 0.0000000E+00 + 82.50000 116.5000 0.0000000E+00 + 83.50000 116.5000 0.0000000E+00 + 84.50000 116.5000 0.0000000E+00 + 85.50000 116.5000 0.0000000E+00 + 86.50000 116.5000 0.0000000E+00 + 87.50000 116.5000 0.0000000E+00 + 88.50000 116.5000 0.0000000E+00 + 89.50000 116.5000 0.0000000E+00 + -89.50000 117.5000 0.0000000E+00 + -88.50000 117.5000 0.0000000E+00 + -87.50000 117.5000 0.0000000E+00 + -86.50000 117.5000 0.0000000E+00 + -85.50000 117.5000 0.0000000E+00 + -84.50000 117.5000 0.0000000E+00 + -83.50000 117.5000 0.0000000E+00 + -82.50000 117.5000 0.0000000E+00 + -81.50000 117.5000 0.0000000E+00 + -80.50000 117.5000 0.0000000E+00 + -79.50000 117.5000 0.0000000E+00 + -78.50000 117.5000 0.0000000E+00 + -77.50000 117.5000 0.0000000E+00 + -76.50000 117.5000 0.0000000E+00 + -75.50000 117.5000 0.0000000E+00 + -74.50000 117.5000 0.0000000E+00 + -73.50000 117.5000 0.0000000E+00 + -72.50000 117.5000 0.0000000E+00 + -71.50000 117.5000 0.0000000E+00 + -70.50000 117.5000 0.0000000E+00 + -69.50000 117.5000 0.0000000E+00 + -68.50000 117.5000 0.0000000E+00 + -67.50000 117.5000 0.0000000E+00 + -66.50000 117.5000 0.0000000E+00 + -65.50000 117.5000 0.0000000E+00 + -64.50000 117.5000 0.0000000E+00 + -63.50000 117.5000 0.0000000E+00 + -62.50000 117.5000 0.0000000E+00 + -61.50000 117.5000 0.0000000E+00 + -60.50000 117.5000 0.0000000E+00 + -59.50000 117.5000 0.0000000E+00 + -58.50000 117.5000 0.0000000E+00 + -57.50000 117.5000 0.0000000E+00 + -56.50000 117.5000 0.0000000E+00 + -55.50000 117.5000 0.0000000E+00 + -54.50000 117.5000 0.0000000E+00 + -53.50000 117.5000 0.0000000E+00 + -52.50000 117.5000 0.0000000E+00 + -51.50000 117.5000 0.0000000E+00 + -50.50000 117.5000 0.0000000E+00 + -49.50000 117.5000 0.0000000E+00 + -48.50000 117.5000 0.0000000E+00 + -47.50000 117.5000 0.0000000E+00 + -46.50000 117.5000 0.0000000E+00 + -45.50000 117.5000 0.0000000E+00 + -44.50000 117.5000 0.0000000E+00 + -43.50000 117.5000 0.0000000E+00 + -42.50000 117.5000 0.0000000E+00 + -41.50000 117.5000 0.0000000E+00 + -40.50000 117.5000 0.0000000E+00 + -39.50000 117.5000 0.0000000E+00 + -38.50000 117.5000 0.0000000E+00 + -37.50000 117.5000 0.0000000E+00 + -36.50000 117.5000 0.0000000E+00 + -35.50000 117.5000 0.0000000E+00 + -34.50000 117.5000 0.0000000E+00 + -33.50000 117.5000 0.0000000E+00 + -32.50000 117.5000 0.0000000E+00 + -31.50000 117.5000 0.0000000E+00 + -30.50000 117.5000 0.0000000E+00 + -29.50000 117.5000 1.5625000E-03 + -28.50000 117.5000 1.5625000E-03 + -27.50000 117.5000 1.5625000E-03 + -26.50000 117.5000 2.0576136E-04 + -25.50000 117.5000 2.0576136E-04 + -24.50000 117.5000 2.0576136E-04 + -23.50000 117.5000 2.0576136E-04 + -22.50000 117.5000 6.4300425E-06 + -21.50000 117.5000 2.0576136E-04 + -20.50000 117.5000 0.0000000E+00 + -19.50000 117.5000 0.0000000E+00 + -18.50000 117.5000 0.0000000E+00 + -17.50000 117.5000 0.0000000E+00 + -16.50000 117.5000 0.0000000E+00 + -15.50000 117.5000 0.0000000E+00 + -14.50000 117.5000 0.0000000E+00 + -13.50000 117.5000 0.0000000E+00 + -12.50000 117.5000 0.0000000E+00 + -11.50000 117.5000 0.0000000E+00 + -10.50000 117.5000 0.0000000E+00 + -9.500000 117.5000 0.0000000E+00 + -8.500000 117.5000 0.0000000E+00 + -7.500000 117.5000 0.0000000E+00 + -6.500000 117.5000 0.0000000E+00 + -5.500000 117.5000 0.0000000E+00 + -4.500000 117.5000 0.0000000E+00 + -3.500000 117.5000 0.0000000E+00 + -2.500000 117.5000 0.0000000E+00 + -1.500000 117.5000 0.0000000E+00 + -0.5000000 117.5000 0.0000000E+00 + 0.5000000 117.5000 0.0000000E+00 + 1.500000 117.5000 0.0000000E+00 + 2.500000 117.5000 0.0000000E+00 + 3.500000 117.5000 0.0000000E+00 + 4.500000 117.5000 0.0000000E+00 + 5.500000 117.5000 0.0000000E+00 + 6.500000 117.5000 0.0000000E+00 + 7.500000 117.5000 0.0000000E+00 + 8.500000 117.5000 0.0000000E+00 + 9.500000 117.5000 0.0000000E+00 + 10.50000 117.5000 0.0000000E+00 + 11.50000 117.5000 0.0000000E+00 + 12.50000 117.5000 0.0000000E+00 + 13.50000 117.5000 0.0000000E+00 + 14.50000 117.5000 0.0000000E+00 + 15.50000 117.5000 0.0000000E+00 + 16.50000 117.5000 0.0000000E+00 + 17.50000 117.5000 0.0000000E+00 + 18.50000 117.5000 0.0000000E+00 + 19.50000 117.5000 0.0000000E+00 + 20.50000 117.5000 0.0000000E+00 + 21.50000 117.5000 0.0000000E+00 + 22.50000 117.5000 0.0000000E+00 + 23.50000 117.5000 0.0000000E+00 + 24.50000 117.5000 0.0000000E+00 + 25.50000 117.5000 0.0000000E+00 + 26.50000 117.5000 0.0000000E+00 + 27.50000 117.5000 0.0000000E+00 + 28.50000 117.5000 0.0000000E+00 + 29.50000 117.5000 0.0000000E+00 + 30.50000 117.5000 0.0000000E+00 + 31.50000 117.5000 0.0000000E+00 + 32.50000 117.5000 0.0000000E+00 + 33.50000 117.5000 0.0000000E+00 + 34.50000 117.5000 0.0000000E+00 + 35.50000 117.5000 0.0000000E+00 + 36.50000 117.5000 0.0000000E+00 + 37.50000 117.5000 0.0000000E+00 + 38.50000 117.5000 0.0000000E+00 + 39.50000 117.5000 0.0000000E+00 + 40.50000 117.5000 0.0000000E+00 + 41.50000 117.5000 0.0000000E+00 + 42.50000 117.5000 0.0000000E+00 + 43.50000 117.5000 0.0000000E+00 + 44.50000 117.5000 0.0000000E+00 + 45.50000 117.5000 0.0000000E+00 + 46.50000 117.5000 0.0000000E+00 + 47.50000 117.5000 0.0000000E+00 + 48.50000 117.5000 0.0000000E+00 + 49.50000 117.5000 0.0000000E+00 + 50.50000 117.5000 0.0000000E+00 + 51.50000 117.5000 0.0000000E+00 + 52.50000 117.5000 0.0000000E+00 + 53.50000 117.5000 0.0000000E+00 + 54.50000 117.5000 0.0000000E+00 + 55.50000 117.5000 0.0000000E+00 + 56.50000 117.5000 0.0000000E+00 + 57.50000 117.5000 0.0000000E+00 + 58.50000 117.5000 0.0000000E+00 + 59.50000 117.5000 0.0000000E+00 + 60.50000 117.5000 0.0000000E+00 + 61.50000 117.5000 0.0000000E+00 + 62.50000 117.5000 0.0000000E+00 + 63.50000 117.5000 0.0000000E+00 + 64.50000 117.5000 0.0000000E+00 + 65.50000 117.5000 0.0000000E+00 + 66.50000 117.5000 0.0000000E+00 + 67.50000 117.5000 0.0000000E+00 + 68.50000 117.5000 0.0000000E+00 + 69.50000 117.5000 0.0000000E+00 + 70.50000 117.5000 0.0000000E+00 + 71.50000 117.5000 0.0000000E+00 + 72.50000 117.5000 0.0000000E+00 + 73.50000 117.5000 0.0000000E+00 + 74.50000 117.5000 0.0000000E+00 + 75.50000 117.5000 0.0000000E+00 + 76.50000 117.5000 0.0000000E+00 + 77.50000 117.5000 0.0000000E+00 + 78.50000 117.5000 0.0000000E+00 + 79.50000 117.5000 0.0000000E+00 + 80.50000 117.5000 0.0000000E+00 + 81.50000 117.5000 0.0000000E+00 + 82.50000 117.5000 0.0000000E+00 + 83.50000 117.5000 0.0000000E+00 + 84.50000 117.5000 0.0000000E+00 + 85.50000 117.5000 0.0000000E+00 + 86.50000 117.5000 0.0000000E+00 + 87.50000 117.5000 0.0000000E+00 + 88.50000 117.5000 0.0000000E+00 + 89.50000 117.5000 0.0000000E+00 + -89.50000 118.5000 0.0000000E+00 + -88.50000 118.5000 0.0000000E+00 + -87.50000 118.5000 0.0000000E+00 + -86.50000 118.5000 0.0000000E+00 + -85.50000 118.5000 0.0000000E+00 + -84.50000 118.5000 0.0000000E+00 + -83.50000 118.5000 0.0000000E+00 + -82.50000 118.5000 0.0000000E+00 + -81.50000 118.5000 0.0000000E+00 + -80.50000 118.5000 0.0000000E+00 + -79.50000 118.5000 0.0000000E+00 + -78.50000 118.5000 0.0000000E+00 + -77.50000 118.5000 0.0000000E+00 + -76.50000 118.5000 0.0000000E+00 + -75.50000 118.5000 0.0000000E+00 + -74.50000 118.5000 0.0000000E+00 + -73.50000 118.5000 0.0000000E+00 + -72.50000 118.5000 0.0000000E+00 + -71.50000 118.5000 0.0000000E+00 + -70.50000 118.5000 0.0000000E+00 + -69.50000 118.5000 0.0000000E+00 + -68.50000 118.5000 0.0000000E+00 + -67.50000 118.5000 0.0000000E+00 + -66.50000 118.5000 0.0000000E+00 + -65.50000 118.5000 0.0000000E+00 + -64.50000 118.5000 0.0000000E+00 + -63.50000 118.5000 0.0000000E+00 + -62.50000 118.5000 0.0000000E+00 + -61.50000 118.5000 0.0000000E+00 + -60.50000 118.5000 0.0000000E+00 + -59.50000 118.5000 0.0000000E+00 + -58.50000 118.5000 0.0000000E+00 + -57.50000 118.5000 0.0000000E+00 + -56.50000 118.5000 0.0000000E+00 + -55.50000 118.5000 0.0000000E+00 + -54.50000 118.5000 0.0000000E+00 + -53.50000 118.5000 0.0000000E+00 + -52.50000 118.5000 0.0000000E+00 + -51.50000 118.5000 0.0000000E+00 + -50.50000 118.5000 0.0000000E+00 + -49.50000 118.5000 0.0000000E+00 + -48.50000 118.5000 0.0000000E+00 + -47.50000 118.5000 0.0000000E+00 + -46.50000 118.5000 0.0000000E+00 + -45.50000 118.5000 0.0000000E+00 + -44.50000 118.5000 0.0000000E+00 + -43.50000 118.5000 0.0000000E+00 + -42.50000 118.5000 0.0000000E+00 + -41.50000 118.5000 0.0000000E+00 + -40.50000 118.5000 0.0000000E+00 + -39.50000 118.5000 0.0000000E+00 + -38.50000 118.5000 0.0000000E+00 + -37.50000 118.5000 0.0000000E+00 + -36.50000 118.5000 0.0000000E+00 + -35.50000 118.5000 0.0000000E+00 + -34.50000 118.5000 0.0000000E+00 + -33.50000 118.5000 0.0000000E+00 + -32.50000 118.5000 0.0000000E+00 + -31.50000 118.5000 0.0000000E+00 + -30.50000 118.5000 0.0000000E+00 + -29.50000 118.5000 1.5625000E-03 + -28.50000 118.5000 2.0576136E-04 + -27.50000 118.5000 2.0576136E-04 + -26.50000 118.5000 2.0576136E-04 + -25.50000 118.5000 2.0576136E-04 + -24.50000 118.5000 2.0576136E-04 + -23.50000 118.5000 1.1066337E-03 + -22.50000 118.5000 0.0000000E+00 + -21.50000 118.5000 2.0576136E-04 + -20.50000 118.5000 3.2361396E-02 + -19.50000 118.5000 0.0000000E+00 + -18.50000 118.5000 0.0000000E+00 + -17.50000 118.5000 0.0000000E+00 + -16.50000 118.5000 0.0000000E+00 + -15.50000 118.5000 0.0000000E+00 + -14.50000 118.5000 0.0000000E+00 + -13.50000 118.5000 0.0000000E+00 + -12.50000 118.5000 0.0000000E+00 + -11.50000 118.5000 0.0000000E+00 + -10.50000 118.5000 0.0000000E+00 + -9.500000 118.5000 0.0000000E+00 + -8.500000 118.5000 0.0000000E+00 + -7.500000 118.5000 0.0000000E+00 + -6.500000 118.5000 0.0000000E+00 + -5.500000 118.5000 0.0000000E+00 + -4.500000 118.5000 0.0000000E+00 + -3.500000 118.5000 0.0000000E+00 + -2.500000 118.5000 0.0000000E+00 + -1.500000 118.5000 0.0000000E+00 + -0.5000000 118.5000 0.0000000E+00 + 0.5000000 118.5000 0.0000000E+00 + 1.500000 118.5000 0.0000000E+00 + 2.500000 118.5000 0.0000000E+00 + 3.500000 118.5000 0.0000000E+00 + 4.500000 118.5000 0.0000000E+00 + 5.500000 118.5000 0.0000000E+00 + 6.500000 118.5000 0.0000000E+00 + 7.500000 118.5000 0.0000000E+00 + 8.500000 118.5000 0.0000000E+00 + 9.500000 118.5000 0.0000000E+00 + 10.50000 118.5000 0.0000000E+00 + 11.50000 118.5000 0.0000000E+00 + 12.50000 118.5000 0.0000000E+00 + 13.50000 118.5000 0.0000000E+00 + 14.50000 118.5000 0.0000000E+00 + 15.50000 118.5000 0.0000000E+00 + 16.50000 118.5000 0.0000000E+00 + 17.50000 118.5000 0.0000000E+00 + 18.50000 118.5000 0.0000000E+00 + 19.50000 118.5000 0.0000000E+00 + 20.50000 118.5000 0.0000000E+00 + 21.50000 118.5000 0.0000000E+00 + 22.50000 118.5000 0.0000000E+00 + 23.50000 118.5000 0.0000000E+00 + 24.50000 118.5000 0.0000000E+00 + 25.50000 118.5000 0.0000000E+00 + 26.50000 118.5000 0.0000000E+00 + 27.50000 118.5000 0.0000000E+00 + 28.50000 118.5000 0.0000000E+00 + 29.50000 118.5000 0.0000000E+00 + 30.50000 118.5000 0.0000000E+00 + 31.50000 118.5000 0.0000000E+00 + 32.50000 118.5000 0.0000000E+00 + 33.50000 118.5000 0.0000000E+00 + 34.50000 118.5000 0.0000000E+00 + 35.50000 118.5000 0.0000000E+00 + 36.50000 118.5000 0.0000000E+00 + 37.50000 118.5000 0.0000000E+00 + 38.50000 118.5000 0.0000000E+00 + 39.50000 118.5000 0.0000000E+00 + 40.50000 118.5000 0.0000000E+00 + 41.50000 118.5000 0.0000000E+00 + 42.50000 118.5000 0.0000000E+00 + 43.50000 118.5000 0.0000000E+00 + 44.50000 118.5000 0.0000000E+00 + 45.50000 118.5000 0.0000000E+00 + 46.50000 118.5000 0.0000000E+00 + 47.50000 118.5000 0.0000000E+00 + 48.50000 118.5000 0.0000000E+00 + 49.50000 118.5000 0.0000000E+00 + 50.50000 118.5000 0.0000000E+00 + 51.50000 118.5000 0.0000000E+00 + 52.50000 118.5000 0.0000000E+00 + 53.50000 118.5000 0.0000000E+00 + 54.50000 118.5000 0.0000000E+00 + 55.50000 118.5000 0.0000000E+00 + 56.50000 118.5000 0.0000000E+00 + 57.50000 118.5000 0.0000000E+00 + 58.50000 118.5000 0.0000000E+00 + 59.50000 118.5000 0.0000000E+00 + 60.50000 118.5000 0.0000000E+00 + 61.50000 118.5000 0.0000000E+00 + 62.50000 118.5000 0.0000000E+00 + 63.50000 118.5000 0.0000000E+00 + 64.50000 118.5000 0.0000000E+00 + 65.50000 118.5000 0.0000000E+00 + 66.50000 118.5000 0.0000000E+00 + 67.50000 118.5000 0.0000000E+00 + 68.50000 118.5000 0.0000000E+00 + 69.50000 118.5000 0.0000000E+00 + 70.50000 118.5000 0.0000000E+00 + 71.50000 118.5000 0.0000000E+00 + 72.50000 118.5000 0.0000000E+00 + 73.50000 118.5000 0.0000000E+00 + 74.50000 118.5000 0.0000000E+00 + 75.50000 118.5000 0.0000000E+00 + 76.50000 118.5000 0.0000000E+00 + 77.50000 118.5000 0.0000000E+00 + 78.50000 118.5000 0.0000000E+00 + 79.50000 118.5000 0.0000000E+00 + 80.50000 118.5000 0.0000000E+00 + 81.50000 118.5000 0.0000000E+00 + 82.50000 118.5000 0.0000000E+00 + 83.50000 118.5000 0.0000000E+00 + 84.50000 118.5000 0.0000000E+00 + 85.50000 118.5000 0.0000000E+00 + 86.50000 118.5000 0.0000000E+00 + 87.50000 118.5000 0.0000000E+00 + 88.50000 118.5000 0.0000000E+00 + 89.50000 118.5000 0.0000000E+00 + -89.50000 119.5000 0.0000000E+00 + -88.50000 119.5000 0.0000000E+00 + -87.50000 119.5000 0.0000000E+00 + -86.50000 119.5000 0.0000000E+00 + -85.50000 119.5000 0.0000000E+00 + -84.50000 119.5000 0.0000000E+00 + -83.50000 119.5000 0.0000000E+00 + -82.50000 119.5000 0.0000000E+00 + -81.50000 119.5000 0.0000000E+00 + -80.50000 119.5000 0.0000000E+00 + -79.50000 119.5000 0.0000000E+00 + -78.50000 119.5000 0.0000000E+00 + -77.50000 119.5000 0.0000000E+00 + -76.50000 119.5000 0.0000000E+00 + -75.50000 119.5000 0.0000000E+00 + -74.50000 119.5000 0.0000000E+00 + -73.50000 119.5000 0.0000000E+00 + -72.50000 119.5000 0.0000000E+00 + -71.50000 119.5000 0.0000000E+00 + -70.50000 119.5000 0.0000000E+00 + -69.50000 119.5000 0.0000000E+00 + -68.50000 119.5000 0.0000000E+00 + -67.50000 119.5000 0.0000000E+00 + -66.50000 119.5000 0.0000000E+00 + -65.50000 119.5000 0.0000000E+00 + -64.50000 119.5000 0.0000000E+00 + -63.50000 119.5000 0.0000000E+00 + -62.50000 119.5000 0.0000000E+00 + -61.50000 119.5000 0.0000000E+00 + -60.50000 119.5000 0.0000000E+00 + -59.50000 119.5000 0.0000000E+00 + -58.50000 119.5000 0.0000000E+00 + -57.50000 119.5000 0.0000000E+00 + -56.50000 119.5000 0.0000000E+00 + -55.50000 119.5000 0.0000000E+00 + -54.50000 119.5000 0.0000000E+00 + -53.50000 119.5000 0.0000000E+00 + -52.50000 119.5000 0.0000000E+00 + -51.50000 119.5000 0.0000000E+00 + -50.50000 119.5000 0.0000000E+00 + -49.50000 119.5000 0.0000000E+00 + -48.50000 119.5000 0.0000000E+00 + -47.50000 119.5000 0.0000000E+00 + -46.50000 119.5000 0.0000000E+00 + -45.50000 119.5000 0.0000000E+00 + -44.50000 119.5000 0.0000000E+00 + -43.50000 119.5000 0.0000000E+00 + -42.50000 119.5000 0.0000000E+00 + -41.50000 119.5000 0.0000000E+00 + -40.50000 119.5000 0.0000000E+00 + -39.50000 119.5000 0.0000000E+00 + -38.50000 119.5000 0.0000000E+00 + -37.50000 119.5000 0.0000000E+00 + -36.50000 119.5000 0.0000000E+00 + -35.50000 119.5000 0.0000000E+00 + -34.50000 119.5000 0.0000000E+00 + -33.50000 119.5000 0.0000000E+00 + -32.50000 119.5000 0.0000000E+00 + -31.50000 119.5000 0.0000000E+00 + -30.50000 119.5000 0.0000000E+00 + -29.50000 119.5000 1.5625000E-03 + -28.50000 119.5000 2.0576136E-04 + -27.50000 119.5000 2.0576136E-04 + -26.50000 119.5000 2.0576136E-04 + -25.50000 119.5000 2.0576136E-04 + -24.50000 119.5000 6.4300425E-06 + -23.50000 119.5000 2.0576136E-04 + -22.50000 119.5000 2.0576136E-04 + -21.50000 119.5000 1.5625000E-03 + -20.50000 119.5000 6.5843635E-03 + -19.50000 119.5000 0.0000000E+00 + -18.50000 119.5000 0.0000000E+00 + -17.50000 119.5000 0.0000000E+00 + -16.50000 119.5000 0.0000000E+00 + -15.50000 119.5000 0.0000000E+00 + -14.50000 119.5000 0.0000000E+00 + -13.50000 119.5000 0.0000000E+00 + -12.50000 119.5000 0.0000000E+00 + -11.50000 119.5000 0.0000000E+00 + -10.50000 119.5000 0.0000000E+00 + -9.500000 119.5000 0.0000000E+00 + -8.500000 119.5000 0.0000000E+00 + -7.500000 119.5000 0.0000000E+00 + -6.500000 119.5000 0.0000000E+00 + -5.500000 119.5000 0.0000000E+00 + -4.500000 119.5000 0.0000000E+00 + -3.500000 119.5000 0.0000000E+00 + -2.500000 119.5000 0.0000000E+00 + -1.500000 119.5000 0.0000000E+00 + -0.5000000 119.5000 0.0000000E+00 + 0.5000000 119.5000 0.0000000E+00 + 1.500000 119.5000 0.0000000E+00 + 2.500000 119.5000 0.0000000E+00 + 3.500000 119.5000 0.0000000E+00 + 4.500000 119.5000 0.0000000E+00 + 5.500000 119.5000 0.0000000E+00 + 6.500000 119.5000 0.0000000E+00 + 7.500000 119.5000 0.0000000E+00 + 8.500000 119.5000 0.0000000E+00 + 9.500000 119.5000 0.0000000E+00 + 10.50000 119.5000 0.0000000E+00 + 11.50000 119.5000 0.0000000E+00 + 12.50000 119.5000 0.0000000E+00 + 13.50000 119.5000 0.0000000E+00 + 14.50000 119.5000 0.0000000E+00 + 15.50000 119.5000 0.0000000E+00 + 16.50000 119.5000 0.0000000E+00 + 17.50000 119.5000 0.0000000E+00 + 18.50000 119.5000 0.0000000E+00 + 19.50000 119.5000 0.0000000E+00 + 20.50000 119.5000 0.0000000E+00 + 21.50000 119.5000 0.0000000E+00 + 22.50000 119.5000 0.0000000E+00 + 23.50000 119.5000 0.0000000E+00 + 24.50000 119.5000 0.0000000E+00 + 25.50000 119.5000 0.0000000E+00 + 26.50000 119.5000 0.0000000E+00 + 27.50000 119.5000 0.0000000E+00 + 28.50000 119.5000 0.0000000E+00 + 29.50000 119.5000 0.0000000E+00 + 30.50000 119.5000 0.0000000E+00 + 31.50000 119.5000 0.0000000E+00 + 32.50000 119.5000 0.0000000E+00 + 33.50000 119.5000 0.0000000E+00 + 34.50000 119.5000 0.0000000E+00 + 35.50000 119.5000 0.0000000E+00 + 36.50000 119.5000 0.0000000E+00 + 37.50000 119.5000 0.0000000E+00 + 38.50000 119.5000 0.0000000E+00 + 39.50000 119.5000 0.0000000E+00 + 40.50000 119.5000 0.0000000E+00 + 41.50000 119.5000 0.0000000E+00 + 42.50000 119.5000 0.0000000E+00 + 43.50000 119.5000 0.0000000E+00 + 44.50000 119.5000 0.0000000E+00 + 45.50000 119.5000 0.0000000E+00 + 46.50000 119.5000 0.0000000E+00 + 47.50000 119.5000 0.0000000E+00 + 48.50000 119.5000 0.0000000E+00 + 49.50000 119.5000 0.0000000E+00 + 50.50000 119.5000 0.0000000E+00 + 51.50000 119.5000 0.0000000E+00 + 52.50000 119.5000 0.0000000E+00 + 53.50000 119.5000 0.0000000E+00 + 54.50000 119.5000 0.0000000E+00 + 55.50000 119.5000 0.0000000E+00 + 56.50000 119.5000 0.0000000E+00 + 57.50000 119.5000 0.0000000E+00 + 58.50000 119.5000 0.0000000E+00 + 59.50000 119.5000 0.0000000E+00 + 60.50000 119.5000 0.0000000E+00 + 61.50000 119.5000 0.0000000E+00 + 62.50000 119.5000 0.0000000E+00 + 63.50000 119.5000 0.0000000E+00 + 64.50000 119.5000 0.0000000E+00 + 65.50000 119.5000 0.0000000E+00 + 66.50000 119.5000 0.0000000E+00 + 67.50000 119.5000 0.0000000E+00 + 68.50000 119.5000 0.0000000E+00 + 69.50000 119.5000 0.0000000E+00 + 70.50000 119.5000 0.0000000E+00 + 71.50000 119.5000 0.0000000E+00 + 72.50000 119.5000 0.0000000E+00 + 73.50000 119.5000 0.0000000E+00 + 74.50000 119.5000 0.0000000E+00 + 75.50000 119.5000 0.0000000E+00 + 76.50000 119.5000 0.0000000E+00 + 77.50000 119.5000 0.0000000E+00 + 78.50000 119.5000 0.0000000E+00 + 79.50000 119.5000 0.0000000E+00 + 80.50000 119.5000 0.0000000E+00 + 81.50000 119.5000 0.0000000E+00 + 82.50000 119.5000 0.0000000E+00 + 83.50000 119.5000 0.0000000E+00 + 84.50000 119.5000 0.0000000E+00 + 85.50000 119.5000 0.0000000E+00 + 86.50000 119.5000 0.0000000E+00 + 87.50000 119.5000 0.0000000E+00 + 88.50000 119.5000 0.0000000E+00 + 89.50000 119.5000 0.0000000E+00 + -89.50000 120.5000 0.0000000E+00 + -88.50000 120.5000 0.0000000E+00 + -87.50000 120.5000 0.0000000E+00 + -86.50000 120.5000 0.0000000E+00 + -85.50000 120.5000 0.0000000E+00 + -84.50000 120.5000 0.0000000E+00 + -83.50000 120.5000 0.0000000E+00 + -82.50000 120.5000 0.0000000E+00 + -81.50000 120.5000 0.0000000E+00 + -80.50000 120.5000 0.0000000E+00 + -79.50000 120.5000 0.0000000E+00 + -78.50000 120.5000 0.0000000E+00 + -77.50000 120.5000 0.0000000E+00 + -76.50000 120.5000 0.0000000E+00 + -75.50000 120.5000 0.0000000E+00 + -74.50000 120.5000 0.0000000E+00 + -73.50000 120.5000 0.0000000E+00 + -72.50000 120.5000 0.0000000E+00 + -71.50000 120.5000 0.0000000E+00 + -70.50000 120.5000 0.0000000E+00 + -69.50000 120.5000 0.0000000E+00 + -68.50000 120.5000 0.0000000E+00 + -67.50000 120.5000 0.0000000E+00 + -66.50000 120.5000 0.0000000E+00 + -65.50000 120.5000 0.0000000E+00 + -64.50000 120.5000 0.0000000E+00 + -63.50000 120.5000 0.0000000E+00 + -62.50000 120.5000 0.0000000E+00 + -61.50000 120.5000 0.0000000E+00 + -60.50000 120.5000 0.0000000E+00 + -59.50000 120.5000 0.0000000E+00 + -58.50000 120.5000 0.0000000E+00 + -57.50000 120.5000 0.0000000E+00 + -56.50000 120.5000 0.0000000E+00 + -55.50000 120.5000 0.0000000E+00 + -54.50000 120.5000 0.0000000E+00 + -53.50000 120.5000 0.0000000E+00 + -52.50000 120.5000 0.0000000E+00 + -51.50000 120.5000 0.0000000E+00 + -50.50000 120.5000 0.0000000E+00 + -49.50000 120.5000 0.0000000E+00 + -48.50000 120.5000 0.0000000E+00 + -47.50000 120.5000 0.0000000E+00 + -46.50000 120.5000 0.0000000E+00 + -45.50000 120.5000 0.0000000E+00 + -44.50000 120.5000 0.0000000E+00 + -43.50000 120.5000 0.0000000E+00 + -42.50000 120.5000 0.0000000E+00 + -41.50000 120.5000 0.0000000E+00 + -40.50000 120.5000 0.0000000E+00 + -39.50000 120.5000 0.0000000E+00 + -38.50000 120.5000 0.0000000E+00 + -37.50000 120.5000 0.0000000E+00 + -36.50000 120.5000 0.0000000E+00 + -35.50000 120.5000 0.0000000E+00 + -34.50000 120.5000 0.0000000E+00 + -33.50000 120.5000 0.0000000E+00 + -32.50000 120.5000 0.0000000E+00 + -31.50000 120.5000 0.0000000E+00 + -30.50000 120.5000 0.0000000E+00 + -29.50000 120.5000 1.5625000E-03 + -28.50000 120.5000 2.0576136E-04 + -27.50000 120.5000 2.0576136E-04 + -26.50000 120.5000 2.0576136E-04 + -25.50000 120.5000 2.0576136E-04 + -24.50000 120.5000 6.4300425E-06 + -23.50000 120.5000 6.4300425E-06 + -22.50000 120.5000 2.0576136E-04 + -21.50000 120.5000 1.5625000E-03 + -20.50000 120.5000 6.5843635E-03 + -19.50000 120.5000 0.0000000E+00 + -18.50000 120.5000 0.0000000E+00 + -17.50000 120.5000 0.0000000E+00 + -16.50000 120.5000 0.0000000E+00 + -15.50000 120.5000 0.0000000E+00 + -14.50000 120.5000 0.0000000E+00 + -13.50000 120.5000 0.0000000E+00 + -12.50000 120.5000 0.0000000E+00 + -11.50000 120.5000 0.0000000E+00 + -10.50000 120.5000 0.0000000E+00 + -9.500000 120.5000 0.0000000E+00 + -8.500000 120.5000 0.0000000E+00 + -7.500000 120.5000 0.0000000E+00 + -6.500000 120.5000 0.0000000E+00 + -5.500000 120.5000 0.0000000E+00 + -4.500000 120.5000 0.0000000E+00 + -3.500000 120.5000 0.0000000E+00 + -2.500000 120.5000 0.0000000E+00 + -1.500000 120.5000 0.0000000E+00 + -0.5000000 120.5000 0.0000000E+00 + 0.5000000 120.5000 0.0000000E+00 + 1.500000 120.5000 0.0000000E+00 + 2.500000 120.5000 0.0000000E+00 + 3.500000 120.5000 0.0000000E+00 + 4.500000 120.5000 0.0000000E+00 + 5.500000 120.5000 0.0000000E+00 + 6.500000 120.5000 0.0000000E+00 + 7.500000 120.5000 0.0000000E+00 + 8.500000 120.5000 0.0000000E+00 + 9.500000 120.5000 0.0000000E+00 + 10.50000 120.5000 0.0000000E+00 + 11.50000 120.5000 0.0000000E+00 + 12.50000 120.5000 0.0000000E+00 + 13.50000 120.5000 0.0000000E+00 + 14.50000 120.5000 0.0000000E+00 + 15.50000 120.5000 0.0000000E+00 + 16.50000 120.5000 0.0000000E+00 + 17.50000 120.5000 0.0000000E+00 + 18.50000 120.5000 0.0000000E+00 + 19.50000 120.5000 0.0000000E+00 + 20.50000 120.5000 0.0000000E+00 + 21.50000 120.5000 0.0000000E+00 + 22.50000 120.5000 0.0000000E+00 + 23.50000 120.5000 0.0000000E+00 + 24.50000 120.5000 0.0000000E+00 + 25.50000 120.5000 0.0000000E+00 + 26.50000 120.5000 0.0000000E+00 + 27.50000 120.5000 0.0000000E+00 + 28.50000 120.5000 0.0000000E+00 + 29.50000 120.5000 0.0000000E+00 + 30.50000 120.5000 0.0000000E+00 + 31.50000 120.5000 0.0000000E+00 + 32.50000 120.5000 0.0000000E+00 + 33.50000 120.5000 0.0000000E+00 + 34.50000 120.5000 0.0000000E+00 + 35.50000 120.5000 0.0000000E+00 + 36.50000 120.5000 0.0000000E+00 + 37.50000 120.5000 0.0000000E+00 + 38.50000 120.5000 0.0000000E+00 + 39.50000 120.5000 0.0000000E+00 + 40.50000 120.5000 0.0000000E+00 + 41.50000 120.5000 0.0000000E+00 + 42.50000 120.5000 0.0000000E+00 + 43.50000 120.5000 0.0000000E+00 + 44.50000 120.5000 0.0000000E+00 + 45.50000 120.5000 0.0000000E+00 + 46.50000 120.5000 0.0000000E+00 + 47.50000 120.5000 0.0000000E+00 + 48.50000 120.5000 0.0000000E+00 + 49.50000 120.5000 0.0000000E+00 + 50.50000 120.5000 0.0000000E+00 + 51.50000 120.5000 0.0000000E+00 + 52.50000 120.5000 0.0000000E+00 + 53.50000 120.5000 0.0000000E+00 + 54.50000 120.5000 0.0000000E+00 + 55.50000 120.5000 0.0000000E+00 + 56.50000 120.5000 0.0000000E+00 + 57.50000 120.5000 0.0000000E+00 + 58.50000 120.5000 0.0000000E+00 + 59.50000 120.5000 0.0000000E+00 + 60.50000 120.5000 0.0000000E+00 + 61.50000 120.5000 0.0000000E+00 + 62.50000 120.5000 0.0000000E+00 + 63.50000 120.5000 0.0000000E+00 + 64.50000 120.5000 0.0000000E+00 + 65.50000 120.5000 0.0000000E+00 + 66.50000 120.5000 0.0000000E+00 + 67.50000 120.5000 0.0000000E+00 + 68.50000 120.5000 0.0000000E+00 + 69.50000 120.5000 0.0000000E+00 + 70.50000 120.5000 0.0000000E+00 + 71.50000 120.5000 0.0000000E+00 + 72.50000 120.5000 0.0000000E+00 + 73.50000 120.5000 0.0000000E+00 + 74.50000 120.5000 0.0000000E+00 + 75.50000 120.5000 0.0000000E+00 + 76.50000 120.5000 0.0000000E+00 + 77.50000 120.5000 0.0000000E+00 + 78.50000 120.5000 0.0000000E+00 + 79.50000 120.5000 0.0000000E+00 + 80.50000 120.5000 0.0000000E+00 + 81.50000 120.5000 0.0000000E+00 + 82.50000 120.5000 0.0000000E+00 + 83.50000 120.5000 0.0000000E+00 + 84.50000 120.5000 0.0000000E+00 + 85.50000 120.5000 0.0000000E+00 + 86.50000 120.5000 0.0000000E+00 + 87.50000 120.5000 0.0000000E+00 + 88.50000 120.5000 0.0000000E+00 + 89.50000 120.5000 0.0000000E+00 + -89.50000 121.5000 0.0000000E+00 + -88.50000 121.5000 0.0000000E+00 + -87.50000 121.5000 0.0000000E+00 + -86.50000 121.5000 0.0000000E+00 + -85.50000 121.5000 0.0000000E+00 + -84.50000 121.5000 0.0000000E+00 + -83.50000 121.5000 0.0000000E+00 + -82.50000 121.5000 0.0000000E+00 + -81.50000 121.5000 0.0000000E+00 + -80.50000 121.5000 0.0000000E+00 + -79.50000 121.5000 0.0000000E+00 + -78.50000 121.5000 0.0000000E+00 + -77.50000 121.5000 0.0000000E+00 + -76.50000 121.5000 0.0000000E+00 + -75.50000 121.5000 0.0000000E+00 + -74.50000 121.5000 0.0000000E+00 + -73.50000 121.5000 0.0000000E+00 + -72.50000 121.5000 0.0000000E+00 + -71.50000 121.5000 0.0000000E+00 + -70.50000 121.5000 0.0000000E+00 + -69.50000 121.5000 0.0000000E+00 + -68.50000 121.5000 0.0000000E+00 + -67.50000 121.5000 0.0000000E+00 + -66.50000 121.5000 0.0000000E+00 + -65.50000 121.5000 0.0000000E+00 + -64.50000 121.5000 0.0000000E+00 + -63.50000 121.5000 0.0000000E+00 + -62.50000 121.5000 0.0000000E+00 + -61.50000 121.5000 0.0000000E+00 + -60.50000 121.5000 0.0000000E+00 + -59.50000 121.5000 0.0000000E+00 + -58.50000 121.5000 0.0000000E+00 + -57.50000 121.5000 0.0000000E+00 + -56.50000 121.5000 0.0000000E+00 + -55.50000 121.5000 0.0000000E+00 + -54.50000 121.5000 0.0000000E+00 + -53.50000 121.5000 0.0000000E+00 + -52.50000 121.5000 0.0000000E+00 + -51.50000 121.5000 0.0000000E+00 + -50.50000 121.5000 0.0000000E+00 + -49.50000 121.5000 0.0000000E+00 + -48.50000 121.5000 0.0000000E+00 + -47.50000 121.5000 0.0000000E+00 + -46.50000 121.5000 0.0000000E+00 + -45.50000 121.5000 0.0000000E+00 + -44.50000 121.5000 0.0000000E+00 + -43.50000 121.5000 0.0000000E+00 + -42.50000 121.5000 0.0000000E+00 + -41.50000 121.5000 0.0000000E+00 + -40.50000 121.5000 0.0000000E+00 + -39.50000 121.5000 0.0000000E+00 + -38.50000 121.5000 0.0000000E+00 + -37.50000 121.5000 0.0000000E+00 + -36.50000 121.5000 0.0000000E+00 + -35.50000 121.5000 0.0000000E+00 + -34.50000 121.5000 0.0000000E+00 + -33.50000 121.5000 0.0000000E+00 + -32.50000 121.5000 0.0000000E+00 + -31.50000 121.5000 0.0000000E+00 + -30.50000 121.5000 5.1200012E-04 + -29.50000 121.5000 1.5625000E-03 + -28.50000 121.5000 2.0576136E-04 + -27.50000 121.5000 2.0576136E-04 + -26.50000 121.5000 6.4300425E-06 + -25.50000 121.5000 6.4300425E-06 + -24.50000 121.5000 6.4300425E-06 + -23.50000 121.5000 6.4300425E-06 + -22.50000 121.5000 6.4300425E-06 + -21.50000 121.5000 1.5625000E-03 + -20.50000 121.5000 6.5843635E-03 + -19.50000 121.5000 2.0093877E-02 + -18.50000 121.5000 0.0000000E+00 + -17.50000 121.5000 0.0000000E+00 + -16.50000 121.5000 0.0000000E+00 + -15.50000 121.5000 0.0000000E+00 + -14.50000 121.5000 0.0000000E+00 + -13.50000 121.5000 0.0000000E+00 + -12.50000 121.5000 0.0000000E+00 + -11.50000 121.5000 0.0000000E+00 + -10.50000 121.5000 0.0000000E+00 + -9.500000 121.5000 0.0000000E+00 + -8.500000 121.5000 0.0000000E+00 + -7.500000 121.5000 0.0000000E+00 + -6.500000 121.5000 0.0000000E+00 + -5.500000 121.5000 0.0000000E+00 + -4.500000 121.5000 0.0000000E+00 + -3.500000 121.5000 0.0000000E+00 + -2.500000 121.5000 0.0000000E+00 + -1.500000 121.5000 0.0000000E+00 + -0.5000000 121.5000 0.0000000E+00 + 0.5000000 121.5000 0.0000000E+00 + 1.500000 121.5000 0.0000000E+00 + 2.500000 121.5000 0.0000000E+00 + 3.500000 121.5000 0.0000000E+00 + 4.500000 121.5000 0.0000000E+00 + 5.500000 121.5000 0.0000000E+00 + 6.500000 121.5000 0.0000000E+00 + 7.500000 121.5000 0.0000000E+00 + 8.500000 121.5000 0.0000000E+00 + 9.500000 121.5000 0.0000000E+00 + 10.50000 121.5000 0.0000000E+00 + 11.50000 121.5000 0.0000000E+00 + 12.50000 121.5000 0.0000000E+00 + 13.50000 121.5000 0.0000000E+00 + 14.50000 121.5000 0.0000000E+00 + 15.50000 121.5000 0.0000000E+00 + 16.50000 121.5000 0.0000000E+00 + 17.50000 121.5000 0.0000000E+00 + 18.50000 121.5000 0.0000000E+00 + 19.50000 121.5000 0.0000000E+00 + 20.50000 121.5000 0.0000000E+00 + 21.50000 121.5000 0.0000000E+00 + 22.50000 121.5000 0.0000000E+00 + 23.50000 121.5000 0.0000000E+00 + 24.50000 121.5000 0.0000000E+00 + 25.50000 121.5000 0.0000000E+00 + 26.50000 121.5000 0.0000000E+00 + 27.50000 121.5000 0.0000000E+00 + 28.50000 121.5000 0.0000000E+00 + 29.50000 121.5000 0.0000000E+00 + 30.50000 121.5000 0.0000000E+00 + 31.50000 121.5000 0.0000000E+00 + 32.50000 121.5000 0.0000000E+00 + 33.50000 121.5000 0.0000000E+00 + 34.50000 121.5000 0.0000000E+00 + 35.50000 121.5000 0.0000000E+00 + 36.50000 121.5000 0.0000000E+00 + 37.50000 121.5000 0.0000000E+00 + 38.50000 121.5000 0.0000000E+00 + 39.50000 121.5000 0.0000000E+00 + 40.50000 121.5000 0.0000000E+00 + 41.50000 121.5000 0.0000000E+00 + 42.50000 121.5000 0.0000000E+00 + 43.50000 121.5000 0.0000000E+00 + 44.50000 121.5000 0.0000000E+00 + 45.50000 121.5000 0.0000000E+00 + 46.50000 121.5000 0.0000000E+00 + 47.50000 121.5000 0.0000000E+00 + 48.50000 121.5000 0.0000000E+00 + 49.50000 121.5000 0.0000000E+00 + 50.50000 121.5000 0.0000000E+00 + 51.50000 121.5000 0.0000000E+00 + 52.50000 121.5000 0.0000000E+00 + 53.50000 121.5000 0.0000000E+00 + 54.50000 121.5000 0.0000000E+00 + 55.50000 121.5000 0.0000000E+00 + 56.50000 121.5000 0.0000000E+00 + 57.50000 121.5000 0.0000000E+00 + 58.50000 121.5000 0.0000000E+00 + 59.50000 121.5000 0.0000000E+00 + 60.50000 121.5000 0.0000000E+00 + 61.50000 121.5000 0.0000000E+00 + 62.50000 121.5000 0.0000000E+00 + 63.50000 121.5000 0.0000000E+00 + 64.50000 121.5000 0.0000000E+00 + 65.50000 121.5000 0.0000000E+00 + 66.50000 121.5000 0.0000000E+00 + 67.50000 121.5000 0.0000000E+00 + 68.50000 121.5000 0.0000000E+00 + 69.50000 121.5000 0.0000000E+00 + 70.50000 121.5000 0.0000000E+00 + 71.50000 121.5000 0.0000000E+00 + 72.50000 121.5000 0.0000000E+00 + 73.50000 121.5000 0.0000000E+00 + 74.50000 121.5000 0.0000000E+00 + 75.50000 121.5000 0.0000000E+00 + 76.50000 121.5000 0.0000000E+00 + 77.50000 121.5000 0.0000000E+00 + 78.50000 121.5000 0.0000000E+00 + 79.50000 121.5000 0.0000000E+00 + 80.50000 121.5000 0.0000000E+00 + 81.50000 121.5000 0.0000000E+00 + 82.50000 121.5000 0.0000000E+00 + 83.50000 121.5000 0.0000000E+00 + 84.50000 121.5000 0.0000000E+00 + 85.50000 121.5000 0.0000000E+00 + 86.50000 121.5000 0.0000000E+00 + 87.50000 121.5000 0.0000000E+00 + 88.50000 121.5000 0.0000000E+00 + 89.50000 121.5000 0.0000000E+00 + -89.50000 122.5000 0.0000000E+00 + -88.50000 122.5000 0.0000000E+00 + -87.50000 122.5000 0.0000000E+00 + -86.50000 122.5000 0.0000000E+00 + -85.50000 122.5000 0.0000000E+00 + -84.50000 122.5000 0.0000000E+00 + -83.50000 122.5000 0.0000000E+00 + -82.50000 122.5000 0.0000000E+00 + -81.50000 122.5000 0.0000000E+00 + -80.50000 122.5000 0.0000000E+00 + -79.50000 122.5000 0.0000000E+00 + -78.50000 122.5000 0.0000000E+00 + -77.50000 122.5000 0.0000000E+00 + -76.50000 122.5000 0.0000000E+00 + -75.50000 122.5000 0.0000000E+00 + -74.50000 122.5000 0.0000000E+00 + -73.50000 122.5000 0.0000000E+00 + -72.50000 122.5000 0.0000000E+00 + -71.50000 122.5000 0.0000000E+00 + -70.50000 122.5000 0.0000000E+00 + -69.50000 122.5000 0.0000000E+00 + -68.50000 122.5000 0.0000000E+00 + -67.50000 122.5000 0.0000000E+00 + -66.50000 122.5000 0.0000000E+00 + -65.50000 122.5000 0.0000000E+00 + -64.50000 122.5000 0.0000000E+00 + -63.50000 122.5000 0.0000000E+00 + -62.50000 122.5000 0.0000000E+00 + -61.50000 122.5000 0.0000000E+00 + -60.50000 122.5000 0.0000000E+00 + -59.50000 122.5000 0.0000000E+00 + -58.50000 122.5000 0.0000000E+00 + -57.50000 122.5000 0.0000000E+00 + -56.50000 122.5000 0.0000000E+00 + -55.50000 122.5000 0.0000000E+00 + -54.50000 122.5000 0.0000000E+00 + -53.50000 122.5000 0.0000000E+00 + -52.50000 122.5000 0.0000000E+00 + -51.50000 122.5000 0.0000000E+00 + -50.50000 122.5000 0.0000000E+00 + -49.50000 122.5000 0.0000000E+00 + -48.50000 122.5000 0.0000000E+00 + -47.50000 122.5000 0.0000000E+00 + -46.50000 122.5000 0.0000000E+00 + -45.50000 122.5000 0.0000000E+00 + -44.50000 122.5000 0.0000000E+00 + -43.50000 122.5000 0.0000000E+00 + -42.50000 122.5000 0.0000000E+00 + -41.50000 122.5000 0.0000000E+00 + -40.50000 122.5000 0.0000000E+00 + -39.50000 122.5000 0.0000000E+00 + -38.50000 122.5000 0.0000000E+00 + -37.50000 122.5000 0.0000000E+00 + -36.50000 122.5000 0.0000000E+00 + -35.50000 122.5000 0.0000000E+00 + -34.50000 122.5000 0.0000000E+00 + -33.50000 122.5000 0.0000000E+00 + -32.50000 122.5000 0.0000000E+00 + -31.50000 122.5000 0.0000000E+00 + -30.50000 122.5000 5.1200012E-04 + -29.50000 122.5000 1.5625000E-03 + -28.50000 122.5000 2.0576136E-04 + -27.50000 122.5000 2.0576136E-04 + -26.50000 122.5000 6.4300425E-06 + -25.50000 122.5000 6.4300425E-06 + -24.50000 122.5000 6.4300425E-06 + -23.50000 122.5000 2.0576136E-04 + -22.50000 122.5000 2.0576136E-04 + -21.50000 122.5000 1.5625000E-03 + -20.50000 122.5000 1.5625000E-03 + -19.50000 122.5000 6.5843635E-03 + -18.50000 122.5000 0.0000000E+00 + -17.50000 122.5000 0.0000000E+00 + -16.50000 122.5000 0.0000000E+00 + -15.50000 122.5000 0.0000000E+00 + -14.50000 122.5000 0.0000000E+00 + -13.50000 122.5000 0.0000000E+00 + -12.50000 122.5000 0.0000000E+00 + -11.50000 122.5000 0.0000000E+00 + -10.50000 122.5000 0.0000000E+00 + -9.500000 122.5000 0.0000000E+00 + -8.500000 122.5000 0.0000000E+00 + -7.500000 122.5000 0.0000000E+00 + -6.500000 122.5000 0.0000000E+00 + -5.500000 122.5000 0.0000000E+00 + -4.500000 122.5000 0.0000000E+00 + -3.500000 122.5000 0.0000000E+00 + -2.500000 122.5000 0.0000000E+00 + -1.500000 122.5000 0.0000000E+00 + -0.5000000 122.5000 0.0000000E+00 + 0.5000000 122.5000 0.0000000E+00 + 1.500000 122.5000 0.0000000E+00 + 2.500000 122.5000 0.0000000E+00 + 3.500000 122.5000 0.0000000E+00 + 4.500000 122.5000 0.0000000E+00 + 5.500000 122.5000 0.0000000E+00 + 6.500000 122.5000 0.0000000E+00 + 7.500000 122.5000 0.0000000E+00 + 8.500000 122.5000 0.0000000E+00 + 9.500000 122.5000 0.0000000E+00 + 10.50000 122.5000 0.0000000E+00 + 11.50000 122.5000 0.0000000E+00 + 12.50000 122.5000 0.0000000E+00 + 13.50000 122.5000 0.0000000E+00 + 14.50000 122.5000 0.0000000E+00 + 15.50000 122.5000 0.0000000E+00 + 16.50000 122.5000 0.0000000E+00 + 17.50000 122.5000 0.0000000E+00 + 18.50000 122.5000 0.0000000E+00 + 19.50000 122.5000 0.0000000E+00 + 20.50000 122.5000 0.0000000E+00 + 21.50000 122.5000 0.0000000E+00 + 22.50000 122.5000 0.0000000E+00 + 23.50000 122.5000 0.0000000E+00 + 24.50000 122.5000 0.0000000E+00 + 25.50000 122.5000 0.0000000E+00 + 26.50000 122.5000 0.0000000E+00 + 27.50000 122.5000 0.0000000E+00 + 28.50000 122.5000 0.0000000E+00 + 29.50000 122.5000 0.0000000E+00 + 30.50000 122.5000 0.0000000E+00 + 31.50000 122.5000 0.0000000E+00 + 32.50000 122.5000 0.0000000E+00 + 33.50000 122.5000 0.0000000E+00 + 34.50000 122.5000 0.0000000E+00 + 35.50000 122.5000 0.0000000E+00 + 36.50000 122.5000 0.0000000E+00 + 37.50000 122.5000 0.0000000E+00 + 38.50000 122.5000 0.0000000E+00 + 39.50000 122.5000 0.0000000E+00 + 40.50000 122.5000 0.0000000E+00 + 41.50000 122.5000 0.0000000E+00 + 42.50000 122.5000 0.0000000E+00 + 43.50000 122.5000 0.0000000E+00 + 44.50000 122.5000 0.0000000E+00 + 45.50000 122.5000 0.0000000E+00 + 46.50000 122.5000 0.0000000E+00 + 47.50000 122.5000 0.0000000E+00 + 48.50000 122.5000 0.0000000E+00 + 49.50000 122.5000 0.0000000E+00 + 50.50000 122.5000 0.0000000E+00 + 51.50000 122.5000 0.0000000E+00 + 52.50000 122.5000 0.0000000E+00 + 53.50000 122.5000 0.0000000E+00 + 54.50000 122.5000 0.0000000E+00 + 55.50000 122.5000 0.0000000E+00 + 56.50000 122.5000 0.0000000E+00 + 57.50000 122.5000 0.0000000E+00 + 58.50000 122.5000 0.0000000E+00 + 59.50000 122.5000 0.0000000E+00 + 60.50000 122.5000 0.0000000E+00 + 61.50000 122.5000 0.0000000E+00 + 62.50000 122.5000 0.0000000E+00 + 63.50000 122.5000 0.0000000E+00 + 64.50000 122.5000 0.0000000E+00 + 65.50000 122.5000 0.0000000E+00 + 66.50000 122.5000 0.0000000E+00 + 67.50000 122.5000 0.0000000E+00 + 68.50000 122.5000 0.0000000E+00 + 69.50000 122.5000 0.0000000E+00 + 70.50000 122.5000 0.0000000E+00 + 71.50000 122.5000 0.0000000E+00 + 72.50000 122.5000 0.0000000E+00 + 73.50000 122.5000 0.0000000E+00 + 74.50000 122.5000 0.0000000E+00 + 75.50000 122.5000 0.0000000E+00 + 76.50000 122.5000 0.0000000E+00 + 77.50000 122.5000 0.0000000E+00 + 78.50000 122.5000 0.0000000E+00 + 79.50000 122.5000 0.0000000E+00 + 80.50000 122.5000 0.0000000E+00 + 81.50000 122.5000 0.0000000E+00 + 82.50000 122.5000 0.0000000E+00 + 83.50000 122.5000 0.0000000E+00 + 84.50000 122.5000 0.0000000E+00 + 85.50000 122.5000 0.0000000E+00 + 86.50000 122.5000 0.0000000E+00 + 87.50000 122.5000 0.0000000E+00 + 88.50000 122.5000 0.0000000E+00 + 89.50000 122.5000 0.0000000E+00 + -89.50000 123.5000 0.0000000E+00 + -88.50000 123.5000 0.0000000E+00 + -87.50000 123.5000 0.0000000E+00 + -86.50000 123.5000 0.0000000E+00 + -85.50000 123.5000 0.0000000E+00 + -84.50000 123.5000 0.0000000E+00 + -83.50000 123.5000 0.0000000E+00 + -82.50000 123.5000 0.0000000E+00 + -81.50000 123.5000 0.0000000E+00 + -80.50000 123.5000 0.0000000E+00 + -79.50000 123.5000 0.0000000E+00 + -78.50000 123.5000 0.0000000E+00 + -77.50000 123.5000 0.0000000E+00 + -76.50000 123.5000 0.0000000E+00 + -75.50000 123.5000 0.0000000E+00 + -74.50000 123.5000 0.0000000E+00 + -73.50000 123.5000 0.0000000E+00 + -72.50000 123.5000 0.0000000E+00 + -71.50000 123.5000 0.0000000E+00 + -70.50000 123.5000 0.0000000E+00 + -69.50000 123.5000 0.0000000E+00 + -68.50000 123.5000 0.0000000E+00 + -67.50000 123.5000 0.0000000E+00 + -66.50000 123.5000 0.0000000E+00 + -65.50000 123.5000 0.0000000E+00 + -64.50000 123.5000 0.0000000E+00 + -63.50000 123.5000 0.0000000E+00 + -62.50000 123.5000 0.0000000E+00 + -61.50000 123.5000 0.0000000E+00 + -60.50000 123.5000 0.0000000E+00 + -59.50000 123.5000 0.0000000E+00 + -58.50000 123.5000 0.0000000E+00 + -57.50000 123.5000 0.0000000E+00 + -56.50000 123.5000 0.0000000E+00 + -55.50000 123.5000 0.0000000E+00 + -54.50000 123.5000 0.0000000E+00 + -53.50000 123.5000 0.0000000E+00 + -52.50000 123.5000 0.0000000E+00 + -51.50000 123.5000 0.0000000E+00 + -50.50000 123.5000 0.0000000E+00 + -49.50000 123.5000 0.0000000E+00 + -48.50000 123.5000 0.0000000E+00 + -47.50000 123.5000 0.0000000E+00 + -46.50000 123.5000 0.0000000E+00 + -45.50000 123.5000 0.0000000E+00 + -44.50000 123.5000 0.0000000E+00 + -43.50000 123.5000 0.0000000E+00 + -42.50000 123.5000 0.0000000E+00 + -41.50000 123.5000 0.0000000E+00 + -40.50000 123.5000 0.0000000E+00 + -39.50000 123.5000 0.0000000E+00 + -38.50000 123.5000 0.0000000E+00 + -37.50000 123.5000 0.0000000E+00 + -36.50000 123.5000 0.0000000E+00 + -35.50000 123.5000 0.0000000E+00 + -34.50000 123.5000 0.0000000E+00 + -33.50000 123.5000 0.0000000E+00 + -32.50000 123.5000 0.0000000E+00 + -31.50000 123.5000 0.0000000E+00 + -30.50000 123.5000 5.1200012E-04 + -29.50000 123.5000 1.5625000E-03 + -28.50000 123.5000 2.0576136E-04 + -27.50000 123.5000 2.0576136E-04 + -26.50000 123.5000 6.4300425E-06 + -25.50000 123.5000 6.4300425E-06 + -24.50000 123.5000 6.4300425E-06 + -23.50000 123.5000 6.4300425E-06 + -22.50000 123.5000 2.0576136E-04 + -21.50000 123.5000 1.5625000E-03 + -20.50000 123.5000 1.5625000E-03 + -19.50000 123.5000 6.5843635E-03 + -18.50000 123.5000 0.0000000E+00 + -17.50000 123.5000 0.0000000E+00 + -16.50000 123.5000 0.0000000E+00 + -15.50000 123.5000 0.0000000E+00 + -14.50000 123.5000 0.0000000E+00 + -13.50000 123.5000 0.0000000E+00 + -12.50000 123.5000 0.0000000E+00 + -11.50000 123.5000 0.0000000E+00 + -10.50000 123.5000 0.0000000E+00 + -9.500000 123.5000 0.0000000E+00 + -8.500000 123.5000 0.0000000E+00 + -7.500000 123.5000 0.0000000E+00 + -6.500000 123.5000 0.0000000E+00 + -5.500000 123.5000 0.0000000E+00 + -4.500000 123.5000 0.0000000E+00 + -3.500000 123.5000 0.0000000E+00 + -2.500000 123.5000 0.0000000E+00 + -1.500000 123.5000 0.0000000E+00 + -0.5000000 123.5000 0.0000000E+00 + 0.5000000 123.5000 0.0000000E+00 + 1.500000 123.5000 0.0000000E+00 + 2.500000 123.5000 0.0000000E+00 + 3.500000 123.5000 0.0000000E+00 + 4.500000 123.5000 0.0000000E+00 + 5.500000 123.5000 0.0000000E+00 + 6.500000 123.5000 0.0000000E+00 + 7.500000 123.5000 0.0000000E+00 + 8.500000 123.5000 0.0000000E+00 + 9.500000 123.5000 0.0000000E+00 + 10.50000 123.5000 0.0000000E+00 + 11.50000 123.5000 0.0000000E+00 + 12.50000 123.5000 0.0000000E+00 + 13.50000 123.5000 0.0000000E+00 + 14.50000 123.5000 0.0000000E+00 + 15.50000 123.5000 0.0000000E+00 + 16.50000 123.5000 0.0000000E+00 + 17.50000 123.5000 0.0000000E+00 + 18.50000 123.5000 0.0000000E+00 + 19.50000 123.5000 0.0000000E+00 + 20.50000 123.5000 0.0000000E+00 + 21.50000 123.5000 0.0000000E+00 + 22.50000 123.5000 0.0000000E+00 + 23.50000 123.5000 0.0000000E+00 + 24.50000 123.5000 0.0000000E+00 + 25.50000 123.5000 0.0000000E+00 + 26.50000 123.5000 0.0000000E+00 + 27.50000 123.5000 0.0000000E+00 + 28.50000 123.5000 0.0000000E+00 + 29.50000 123.5000 0.0000000E+00 + 30.50000 123.5000 0.0000000E+00 + 31.50000 123.5000 0.0000000E+00 + 32.50000 123.5000 0.0000000E+00 + 33.50000 123.5000 0.0000000E+00 + 34.50000 123.5000 0.0000000E+00 + 35.50000 123.5000 0.0000000E+00 + 36.50000 123.5000 0.0000000E+00 + 37.50000 123.5000 0.0000000E+00 + 38.50000 123.5000 0.0000000E+00 + 39.50000 123.5000 0.0000000E+00 + 40.50000 123.5000 0.0000000E+00 + 41.50000 123.5000 0.0000000E+00 + 42.50000 123.5000 0.0000000E+00 + 43.50000 123.5000 0.0000000E+00 + 44.50000 123.5000 0.0000000E+00 + 45.50000 123.5000 0.0000000E+00 + 46.50000 123.5000 0.0000000E+00 + 47.50000 123.5000 0.0000000E+00 + 48.50000 123.5000 0.0000000E+00 + 49.50000 123.5000 0.0000000E+00 + 50.50000 123.5000 0.0000000E+00 + 51.50000 123.5000 0.0000000E+00 + 52.50000 123.5000 0.0000000E+00 + 53.50000 123.5000 0.0000000E+00 + 54.50000 123.5000 0.0000000E+00 + 55.50000 123.5000 0.0000000E+00 + 56.50000 123.5000 0.0000000E+00 + 57.50000 123.5000 0.0000000E+00 + 58.50000 123.5000 0.0000000E+00 + 59.50000 123.5000 0.0000000E+00 + 60.50000 123.5000 0.0000000E+00 + 61.50000 123.5000 0.0000000E+00 + 62.50000 123.5000 0.0000000E+00 + 63.50000 123.5000 0.0000000E+00 + 64.50000 123.5000 0.0000000E+00 + 65.50000 123.5000 0.0000000E+00 + 66.50000 123.5000 0.0000000E+00 + 67.50000 123.5000 0.0000000E+00 + 68.50000 123.5000 0.0000000E+00 + 69.50000 123.5000 0.0000000E+00 + 70.50000 123.5000 0.0000000E+00 + 71.50000 123.5000 0.0000000E+00 + 72.50000 123.5000 0.0000000E+00 + 73.50000 123.5000 0.0000000E+00 + 74.50000 123.5000 0.0000000E+00 + 75.50000 123.5000 0.0000000E+00 + 76.50000 123.5000 0.0000000E+00 + 77.50000 123.5000 0.0000000E+00 + 78.50000 123.5000 0.0000000E+00 + 79.50000 123.5000 0.0000000E+00 + 80.50000 123.5000 0.0000000E+00 + 81.50000 123.5000 0.0000000E+00 + 82.50000 123.5000 0.0000000E+00 + 83.50000 123.5000 0.0000000E+00 + 84.50000 123.5000 0.0000000E+00 + 85.50000 123.5000 0.0000000E+00 + 86.50000 123.5000 0.0000000E+00 + 87.50000 123.5000 0.0000000E+00 + 88.50000 123.5000 0.0000000E+00 + 89.50000 123.5000 0.0000000E+00 + -89.50000 124.5000 0.0000000E+00 + -88.50000 124.5000 0.0000000E+00 + -87.50000 124.5000 0.0000000E+00 + -86.50000 124.5000 0.0000000E+00 + -85.50000 124.5000 0.0000000E+00 + -84.50000 124.5000 0.0000000E+00 + -83.50000 124.5000 0.0000000E+00 + -82.50000 124.5000 0.0000000E+00 + -81.50000 124.5000 0.0000000E+00 + -80.50000 124.5000 0.0000000E+00 + -79.50000 124.5000 0.0000000E+00 + -78.50000 124.5000 0.0000000E+00 + -77.50000 124.5000 0.0000000E+00 + -76.50000 124.5000 0.0000000E+00 + -75.50000 124.5000 0.0000000E+00 + -74.50000 124.5000 0.0000000E+00 + -73.50000 124.5000 0.0000000E+00 + -72.50000 124.5000 0.0000000E+00 + -71.50000 124.5000 0.0000000E+00 + -70.50000 124.5000 0.0000000E+00 + -69.50000 124.5000 0.0000000E+00 + -68.50000 124.5000 0.0000000E+00 + -67.50000 124.5000 0.0000000E+00 + -66.50000 124.5000 0.0000000E+00 + -65.50000 124.5000 0.0000000E+00 + -64.50000 124.5000 0.0000000E+00 + -63.50000 124.5000 0.0000000E+00 + -62.50000 124.5000 0.0000000E+00 + -61.50000 124.5000 0.0000000E+00 + -60.50000 124.5000 0.0000000E+00 + -59.50000 124.5000 0.0000000E+00 + -58.50000 124.5000 0.0000000E+00 + -57.50000 124.5000 0.0000000E+00 + -56.50000 124.5000 0.0000000E+00 + -55.50000 124.5000 0.0000000E+00 + -54.50000 124.5000 0.0000000E+00 + -53.50000 124.5000 0.0000000E+00 + -52.50000 124.5000 0.0000000E+00 + -51.50000 124.5000 0.0000000E+00 + -50.50000 124.5000 0.0000000E+00 + -49.50000 124.5000 0.0000000E+00 + -48.50000 124.5000 0.0000000E+00 + -47.50000 124.5000 0.0000000E+00 + -46.50000 124.5000 0.0000000E+00 + -45.50000 124.5000 0.0000000E+00 + -44.50000 124.5000 0.0000000E+00 + -43.50000 124.5000 0.0000000E+00 + -42.50000 124.5000 0.0000000E+00 + -41.50000 124.5000 0.0000000E+00 + -40.50000 124.5000 0.0000000E+00 + -39.50000 124.5000 0.0000000E+00 + -38.50000 124.5000 0.0000000E+00 + -37.50000 124.5000 0.0000000E+00 + -36.50000 124.5000 0.0000000E+00 + -35.50000 124.5000 0.0000000E+00 + -34.50000 124.5000 0.0000000E+00 + -33.50000 124.5000 0.0000000E+00 + -32.50000 124.5000 2.9524496E-02 + -31.50000 124.5000 3.8880003E-03 + -30.50000 124.5000 3.8880003E-03 + -29.50000 124.5000 1.5625000E-03 + -28.50000 124.5000 2.0576136E-04 + -27.50000 124.5000 6.4300425E-06 + -26.50000 124.5000 6.4300425E-06 + -25.50000 124.5000 6.4300425E-06 + -24.50000 124.5000 6.4300425E-06 + -23.50000 124.5000 6.4300425E-06 + -22.50000 124.5000 2.0576136E-04 + -21.50000 124.5000 2.0576136E-04 + -20.50000 124.5000 1.5625000E-03 + -19.50000 124.5000 1.5625000E-03 + -18.50000 124.5000 6.5843635E-03 + -17.50000 124.5000 0.0000000E+00 + -16.50000 124.5000 0.0000000E+00 + -15.50000 124.5000 0.0000000E+00 + -14.50000 124.5000 0.0000000E+00 + -13.50000 124.5000 0.0000000E+00 + -12.50000 124.5000 0.0000000E+00 + -11.50000 124.5000 0.0000000E+00 + -10.50000 124.5000 0.0000000E+00 + -9.500000 124.5000 0.0000000E+00 + -8.500000 124.5000 0.0000000E+00 + -7.500000 124.5000 0.0000000E+00 + -6.500000 124.5000 0.0000000E+00 + -5.500000 124.5000 0.0000000E+00 + -4.500000 124.5000 0.0000000E+00 + -3.500000 124.5000 0.0000000E+00 + -2.500000 124.5000 0.0000000E+00 + -1.500000 124.5000 0.0000000E+00 + -0.5000000 124.5000 0.0000000E+00 + 0.5000000 124.5000 0.0000000E+00 + 1.500000 124.5000 0.0000000E+00 + 2.500000 124.5000 0.0000000E+00 + 3.500000 124.5000 0.0000000E+00 + 4.500000 124.5000 0.0000000E+00 + 5.500000 124.5000 0.0000000E+00 + 6.500000 124.5000 0.0000000E+00 + 7.500000 124.5000 0.0000000E+00 + 8.500000 124.5000 0.0000000E+00 + 9.500000 124.5000 0.0000000E+00 + 10.50000 124.5000 0.0000000E+00 + 11.50000 124.5000 0.0000000E+00 + 12.50000 124.5000 0.0000000E+00 + 13.50000 124.5000 0.0000000E+00 + 14.50000 124.5000 0.0000000E+00 + 15.50000 124.5000 0.0000000E+00 + 16.50000 124.5000 0.0000000E+00 + 17.50000 124.5000 0.0000000E+00 + 18.50000 124.5000 0.0000000E+00 + 19.50000 124.5000 0.0000000E+00 + 20.50000 124.5000 0.0000000E+00 + 21.50000 124.5000 0.0000000E+00 + 22.50000 124.5000 0.0000000E+00 + 23.50000 124.5000 0.0000000E+00 + 24.50000 124.5000 0.0000000E+00 + 25.50000 124.5000 0.0000000E+00 + 26.50000 124.5000 0.0000000E+00 + 27.50000 124.5000 0.0000000E+00 + 28.50000 124.5000 0.0000000E+00 + 29.50000 124.5000 0.0000000E+00 + 30.50000 124.5000 0.0000000E+00 + 31.50000 124.5000 0.0000000E+00 + 32.50000 124.5000 0.0000000E+00 + 33.50000 124.5000 0.0000000E+00 + 34.50000 124.5000 0.0000000E+00 + 35.50000 124.5000 0.0000000E+00 + 36.50000 124.5000 0.0000000E+00 + 37.50000 124.5000 0.0000000E+00 + 38.50000 124.5000 0.0000000E+00 + 39.50000 124.5000 0.0000000E+00 + 40.50000 124.5000 0.0000000E+00 + 41.50000 124.5000 0.0000000E+00 + 42.50000 124.5000 0.0000000E+00 + 43.50000 124.5000 0.0000000E+00 + 44.50000 124.5000 0.0000000E+00 + 45.50000 124.5000 0.0000000E+00 + 46.50000 124.5000 0.0000000E+00 + 47.50000 124.5000 0.0000000E+00 + 48.50000 124.5000 0.0000000E+00 + 49.50000 124.5000 0.0000000E+00 + 50.50000 124.5000 0.0000000E+00 + 51.50000 124.5000 0.0000000E+00 + 52.50000 124.5000 0.0000000E+00 + 53.50000 124.5000 0.0000000E+00 + 54.50000 124.5000 0.0000000E+00 + 55.50000 124.5000 0.0000000E+00 + 56.50000 124.5000 0.0000000E+00 + 57.50000 124.5000 0.0000000E+00 + 58.50000 124.5000 0.0000000E+00 + 59.50000 124.5000 0.0000000E+00 + 60.50000 124.5000 0.0000000E+00 + 61.50000 124.5000 0.0000000E+00 + 62.50000 124.5000 0.0000000E+00 + 63.50000 124.5000 0.0000000E+00 + 64.50000 124.5000 0.0000000E+00 + 65.50000 124.5000 0.0000000E+00 + 66.50000 124.5000 0.0000000E+00 + 67.50000 124.5000 0.0000000E+00 + 68.50000 124.5000 0.0000000E+00 + 69.50000 124.5000 0.0000000E+00 + 70.50000 124.5000 0.0000000E+00 + 71.50000 124.5000 0.0000000E+00 + 72.50000 124.5000 0.0000000E+00 + 73.50000 124.5000 0.0000000E+00 + 74.50000 124.5000 0.0000000E+00 + 75.50000 124.5000 0.0000000E+00 + 76.50000 124.5000 0.0000000E+00 + 77.50000 124.5000 0.0000000E+00 + 78.50000 124.5000 0.0000000E+00 + 79.50000 124.5000 0.0000000E+00 + 80.50000 124.5000 0.0000000E+00 + 81.50000 124.5000 0.0000000E+00 + 82.50000 124.5000 0.0000000E+00 + 83.50000 124.5000 0.0000000E+00 + 84.50000 124.5000 0.0000000E+00 + 85.50000 124.5000 0.0000000E+00 + 86.50000 124.5000 0.0000000E+00 + 87.50000 124.5000 0.0000000E+00 + 88.50000 124.5000 0.0000000E+00 + 89.50000 124.5000 0.0000000E+00 + -89.50000 125.5000 0.0000000E+00 + -88.50000 125.5000 0.0000000E+00 + -87.50000 125.5000 0.0000000E+00 + -86.50000 125.5000 0.0000000E+00 + -85.50000 125.5000 0.0000000E+00 + -84.50000 125.5000 0.0000000E+00 + -83.50000 125.5000 0.0000000E+00 + -82.50000 125.5000 0.0000000E+00 + -81.50000 125.5000 0.0000000E+00 + -80.50000 125.5000 0.0000000E+00 + -79.50000 125.5000 0.0000000E+00 + -78.50000 125.5000 0.0000000E+00 + -77.50000 125.5000 0.0000000E+00 + -76.50000 125.5000 0.0000000E+00 + -75.50000 125.5000 0.0000000E+00 + -74.50000 125.5000 0.0000000E+00 + -73.50000 125.5000 0.0000000E+00 + -72.50000 125.5000 0.0000000E+00 + -71.50000 125.5000 0.0000000E+00 + -70.50000 125.5000 0.0000000E+00 + -69.50000 125.5000 0.0000000E+00 + -68.50000 125.5000 0.0000000E+00 + -67.50000 125.5000 0.0000000E+00 + -66.50000 125.5000 0.0000000E+00 + -65.50000 125.5000 0.0000000E+00 + -64.50000 125.5000 0.0000000E+00 + -63.50000 125.5000 0.0000000E+00 + -62.50000 125.5000 0.0000000E+00 + -61.50000 125.5000 0.0000000E+00 + -60.50000 125.5000 0.0000000E+00 + -59.50000 125.5000 0.0000000E+00 + -58.50000 125.5000 0.0000000E+00 + -57.50000 125.5000 0.0000000E+00 + -56.50000 125.5000 0.0000000E+00 + -55.50000 125.5000 0.0000000E+00 + -54.50000 125.5000 0.0000000E+00 + -53.50000 125.5000 0.0000000E+00 + -52.50000 125.5000 0.0000000E+00 + -51.50000 125.5000 0.0000000E+00 + -50.50000 125.5000 0.0000000E+00 + -49.50000 125.5000 0.0000000E+00 + -48.50000 125.5000 0.0000000E+00 + -47.50000 125.5000 0.0000000E+00 + -46.50000 125.5000 0.0000000E+00 + -45.50000 125.5000 0.0000000E+00 + -44.50000 125.5000 0.0000000E+00 + -43.50000 125.5000 0.0000000E+00 + -42.50000 125.5000 0.0000000E+00 + -41.50000 125.5000 0.0000000E+00 + -40.50000 125.5000 0.0000000E+00 + -39.50000 125.5000 0.0000000E+00 + -38.50000 125.5000 0.0000000E+00 + -37.50000 125.5000 0.0000000E+00 + -36.50000 125.5000 0.0000000E+00 + -35.50000 125.5000 0.0000000E+00 + -34.50000 125.5000 0.0000000E+00 + -33.50000 125.5000 0.0000000E+00 + -32.50000 125.5000 0.0000000E+00 + -31.50000 125.5000 3.8880003E-03 + -30.50000 125.5000 9.2967218E-03 + -29.50000 125.5000 3.7159924E-03 + -28.50000 125.5000 3.7159924E-03 + -27.50000 125.5000 1.0237785E-03 + -26.50000 125.5000 1.7941864E-04 + -25.50000 125.5000 1.7941864E-04 + -24.50000 125.5000 1.7941864E-04 + -23.50000 125.5000 1.7941864E-04 + -22.50000 125.5000 1.7941864E-04 + -21.50000 125.5000 1.0237785E-03 + -20.50000 125.5000 3.7159924E-03 + -19.50000 125.5000 3.7159924E-03 + -18.50000 125.5000 0.0000000E+00 + -17.50000 125.5000 0.0000000E+00 + -16.50000 125.5000 0.0000000E+00 + -15.50000 125.5000 0.0000000E+00 + -14.50000 125.5000 0.0000000E+00 + -13.50000 125.5000 0.0000000E+00 + -12.50000 125.5000 0.0000000E+00 + -11.50000 125.5000 0.0000000E+00 + -10.50000 125.5000 0.0000000E+00 + -9.500000 125.5000 0.0000000E+00 + -8.500000 125.5000 0.0000000E+00 + -7.500000 125.5000 0.0000000E+00 + -6.500000 125.5000 0.0000000E+00 + -5.500000 125.5000 0.0000000E+00 + -4.500000 125.5000 0.0000000E+00 + -3.500000 125.5000 0.0000000E+00 + -2.500000 125.5000 0.0000000E+00 + -1.500000 125.5000 0.0000000E+00 + -0.5000000 125.5000 0.0000000E+00 + 0.5000000 125.5000 0.0000000E+00 + 1.500000 125.5000 0.0000000E+00 + 2.500000 125.5000 0.0000000E+00 + 3.500000 125.5000 0.0000000E+00 + 4.500000 125.5000 0.0000000E+00 + 5.500000 125.5000 0.0000000E+00 + 6.500000 125.5000 0.0000000E+00 + 7.500000 125.5000 0.0000000E+00 + 8.500000 125.5000 0.0000000E+00 + 9.500000 125.5000 0.0000000E+00 + 10.50000 125.5000 0.0000000E+00 + 11.50000 125.5000 0.0000000E+00 + 12.50000 125.5000 0.0000000E+00 + 13.50000 125.5000 0.0000000E+00 + 14.50000 125.5000 0.0000000E+00 + 15.50000 125.5000 0.0000000E+00 + 16.50000 125.5000 0.0000000E+00 + 17.50000 125.5000 0.0000000E+00 + 18.50000 125.5000 0.0000000E+00 + 19.50000 125.5000 0.0000000E+00 + 20.50000 125.5000 0.0000000E+00 + 21.50000 125.5000 0.0000000E+00 + 22.50000 125.5000 0.0000000E+00 + 23.50000 125.5000 0.0000000E+00 + 24.50000 125.5000 0.0000000E+00 + 25.50000 125.5000 0.0000000E+00 + 26.50000 125.5000 0.0000000E+00 + 27.50000 125.5000 0.0000000E+00 + 28.50000 125.5000 0.0000000E+00 + 29.50000 125.5000 0.0000000E+00 + 30.50000 125.5000 0.0000000E+00 + 31.50000 125.5000 0.0000000E+00 + 32.50000 125.5000 0.0000000E+00 + 33.50000 125.5000 0.0000000E+00 + 34.50000 125.5000 0.0000000E+00 + 35.50000 125.5000 0.0000000E+00 + 36.50000 125.5000 0.0000000E+00 + 37.50000 125.5000 0.0000000E+00 + 38.50000 125.5000 0.0000000E+00 + 39.50000 125.5000 0.0000000E+00 + 40.50000 125.5000 0.0000000E+00 + 41.50000 125.5000 0.0000000E+00 + 42.50000 125.5000 0.0000000E+00 + 43.50000 125.5000 0.0000000E+00 + 44.50000 125.5000 0.0000000E+00 + 45.50000 125.5000 0.0000000E+00 + 46.50000 125.5000 0.0000000E+00 + 47.50000 125.5000 0.0000000E+00 + 48.50000 125.5000 0.0000000E+00 + 49.50000 125.5000 0.0000000E+00 + 50.50000 125.5000 0.0000000E+00 + 51.50000 125.5000 0.0000000E+00 + 52.50000 125.5000 0.0000000E+00 + 53.50000 125.5000 0.0000000E+00 + 54.50000 125.5000 0.0000000E+00 + 55.50000 125.5000 0.0000000E+00 + 56.50000 125.5000 0.0000000E+00 + 57.50000 125.5000 0.0000000E+00 + 58.50000 125.5000 0.0000000E+00 + 59.50000 125.5000 0.0000000E+00 + 60.50000 125.5000 0.0000000E+00 + 61.50000 125.5000 0.0000000E+00 + 62.50000 125.5000 0.0000000E+00 + 63.50000 125.5000 0.0000000E+00 + 64.50000 125.5000 0.0000000E+00 + 65.50000 125.5000 0.0000000E+00 + 66.50000 125.5000 0.0000000E+00 + 67.50000 125.5000 0.0000000E+00 + 68.50000 125.5000 0.0000000E+00 + 69.50000 125.5000 0.0000000E+00 + 70.50000 125.5000 0.0000000E+00 + 71.50000 125.5000 0.0000000E+00 + 72.50000 125.5000 0.0000000E+00 + 73.50000 125.5000 0.0000000E+00 + 74.50000 125.5000 0.0000000E+00 + 75.50000 125.5000 0.0000000E+00 + 76.50000 125.5000 0.0000000E+00 + 77.50000 125.5000 0.0000000E+00 + 78.50000 125.5000 0.0000000E+00 + 79.50000 125.5000 0.0000000E+00 + 80.50000 125.5000 0.0000000E+00 + 81.50000 125.5000 0.0000000E+00 + 82.50000 125.5000 0.0000000E+00 + 83.50000 125.5000 0.0000000E+00 + 84.50000 125.5000 0.0000000E+00 + 85.50000 125.5000 0.0000000E+00 + 86.50000 125.5000 0.0000000E+00 + 87.50000 125.5000 0.0000000E+00 + 88.50000 125.5000 0.0000000E+00 + 89.50000 125.5000 0.0000000E+00 + -89.50000 126.5000 0.0000000E+00 + -88.50000 126.5000 0.0000000E+00 + -87.50000 126.5000 0.0000000E+00 + -86.50000 126.5000 0.0000000E+00 + -85.50000 126.5000 0.0000000E+00 + -84.50000 126.5000 0.0000000E+00 + -83.50000 126.5000 0.0000000E+00 + -82.50000 126.5000 0.0000000E+00 + -81.50000 126.5000 0.0000000E+00 + -80.50000 126.5000 0.0000000E+00 + -79.50000 126.5000 0.0000000E+00 + -78.50000 126.5000 0.0000000E+00 + -77.50000 126.5000 0.0000000E+00 + -76.50000 126.5000 0.0000000E+00 + -75.50000 126.5000 0.0000000E+00 + -74.50000 126.5000 0.0000000E+00 + -73.50000 126.5000 0.0000000E+00 + -72.50000 126.5000 0.0000000E+00 + -71.50000 126.5000 0.0000000E+00 + -70.50000 126.5000 0.0000000E+00 + -69.50000 126.5000 0.0000000E+00 + -68.50000 126.5000 0.0000000E+00 + -67.50000 126.5000 0.0000000E+00 + -66.50000 126.5000 0.0000000E+00 + -65.50000 126.5000 0.0000000E+00 + -64.50000 126.5000 0.0000000E+00 + -63.50000 126.5000 0.0000000E+00 + -62.50000 126.5000 0.0000000E+00 + -61.50000 126.5000 0.0000000E+00 + -60.50000 126.5000 0.0000000E+00 + -59.50000 126.5000 0.0000000E+00 + -58.50000 126.5000 0.0000000E+00 + -57.50000 126.5000 0.0000000E+00 + -56.50000 126.5000 0.0000000E+00 + -55.50000 126.5000 0.0000000E+00 + -54.50000 126.5000 0.0000000E+00 + -53.50000 126.5000 0.0000000E+00 + -52.50000 126.5000 0.0000000E+00 + -51.50000 126.5000 0.0000000E+00 + -50.50000 126.5000 0.0000000E+00 + -49.50000 126.5000 0.0000000E+00 + -48.50000 126.5000 0.0000000E+00 + -47.50000 126.5000 0.0000000E+00 + -46.50000 126.5000 0.0000000E+00 + -45.50000 126.5000 0.0000000E+00 + -44.50000 126.5000 0.0000000E+00 + -43.50000 126.5000 0.0000000E+00 + -42.50000 126.5000 0.0000000E+00 + -41.50000 126.5000 0.0000000E+00 + -40.50000 126.5000 0.0000000E+00 + -39.50000 126.5000 0.0000000E+00 + -38.50000 126.5000 0.0000000E+00 + -37.50000 126.5000 0.0000000E+00 + -36.50000 126.5000 0.0000000E+00 + -35.50000 126.5000 0.0000000E+00 + -34.50000 126.5000 0.0000000E+00 + -33.50000 126.5000 0.0000000E+00 + -32.50000 126.5000 0.0000000E+00 + -31.50000 126.5000 2.6386594E-02 + -30.50000 126.5000 9.2967218E-03 + -29.50000 126.5000 1.1865235E-02 + -28.50000 126.5000 4.7683716E-03 + -27.50000 126.5000 1.5625000E-03 + -26.50000 126.5000 3.7078859E-04 + -25.50000 126.5000 3.7078859E-04 + -24.50000 126.5000 3.7078859E-04 + -23.50000 126.5000 3.7078859E-04 + -22.50000 126.5000 3.7078859E-04 + -21.50000 126.5000 4.7683716E-03 + -20.50000 126.5000 1.1865235E-02 + -19.50000 126.5000 4.7683716E-03 + -18.50000 126.5000 1.5625000E-03 + -17.50000 126.5000 0.0000000E+00 + -16.50000 126.5000 0.0000000E+00 + -15.50000 126.5000 0.0000000E+00 + -14.50000 126.5000 0.0000000E+00 + -13.50000 126.5000 0.0000000E+00 + -12.50000 126.5000 0.0000000E+00 + -11.50000 126.5000 0.0000000E+00 + -10.50000 126.5000 0.0000000E+00 + -9.500000 126.5000 0.0000000E+00 + -8.500000 126.5000 0.0000000E+00 + -7.500000 126.5000 0.0000000E+00 + -6.500000 126.5000 0.0000000E+00 + -5.500000 126.5000 0.0000000E+00 + -4.500000 126.5000 0.0000000E+00 + -3.500000 126.5000 0.0000000E+00 + -2.500000 126.5000 0.0000000E+00 + -1.500000 126.5000 0.0000000E+00 + -0.5000000 126.5000 0.0000000E+00 + 0.5000000 126.5000 0.0000000E+00 + 1.500000 126.5000 0.0000000E+00 + 2.500000 126.5000 0.0000000E+00 + 3.500000 126.5000 0.0000000E+00 + 4.500000 126.5000 0.0000000E+00 + 5.500000 126.5000 0.0000000E+00 + 6.500000 126.5000 0.0000000E+00 + 7.500000 126.5000 0.0000000E+00 + 8.500000 126.5000 0.0000000E+00 + 9.500000 126.5000 0.0000000E+00 + 10.50000 126.5000 0.0000000E+00 + 11.50000 126.5000 0.0000000E+00 + 12.50000 126.5000 0.0000000E+00 + 13.50000 126.5000 0.0000000E+00 + 14.50000 126.5000 0.0000000E+00 + 15.50000 126.5000 0.0000000E+00 + 16.50000 126.5000 0.0000000E+00 + 17.50000 126.5000 0.0000000E+00 + 18.50000 126.5000 0.0000000E+00 + 19.50000 126.5000 0.0000000E+00 + 20.50000 126.5000 0.0000000E+00 + 21.50000 126.5000 0.0000000E+00 + 22.50000 126.5000 0.0000000E+00 + 23.50000 126.5000 0.0000000E+00 + 24.50000 126.5000 0.0000000E+00 + 25.50000 126.5000 0.0000000E+00 + 26.50000 126.5000 0.0000000E+00 + 27.50000 126.5000 0.0000000E+00 + 28.50000 126.5000 0.0000000E+00 + 29.50000 126.5000 0.0000000E+00 + 30.50000 126.5000 0.0000000E+00 + 31.50000 126.5000 0.0000000E+00 + 32.50000 126.5000 0.0000000E+00 + 33.50000 126.5000 0.0000000E+00 + 34.50000 126.5000 0.0000000E+00 + 35.50000 126.5000 0.0000000E+00 + 36.50000 126.5000 0.0000000E+00 + 37.50000 126.5000 0.0000000E+00 + 38.50000 126.5000 0.0000000E+00 + 39.50000 126.5000 0.0000000E+00 + 40.50000 126.5000 0.0000000E+00 + 41.50000 126.5000 0.0000000E+00 + 42.50000 126.5000 0.0000000E+00 + 43.50000 126.5000 0.0000000E+00 + 44.50000 126.5000 0.0000000E+00 + 45.50000 126.5000 0.0000000E+00 + 46.50000 126.5000 0.0000000E+00 + 47.50000 126.5000 0.0000000E+00 + 48.50000 126.5000 0.0000000E+00 + 49.50000 126.5000 0.0000000E+00 + 50.50000 126.5000 0.0000000E+00 + 51.50000 126.5000 0.0000000E+00 + 52.50000 126.5000 0.0000000E+00 + 53.50000 126.5000 0.0000000E+00 + 54.50000 126.5000 0.0000000E+00 + 55.50000 126.5000 0.0000000E+00 + 56.50000 126.5000 0.0000000E+00 + 57.50000 126.5000 0.0000000E+00 + 58.50000 126.5000 0.0000000E+00 + 59.50000 126.5000 0.0000000E+00 + 60.50000 126.5000 0.0000000E+00 + 61.50000 126.5000 0.0000000E+00 + 62.50000 126.5000 0.0000000E+00 + 63.50000 126.5000 0.0000000E+00 + 64.50000 126.5000 0.0000000E+00 + 65.50000 126.5000 0.0000000E+00 + 66.50000 126.5000 0.0000000E+00 + 67.50000 126.5000 0.0000000E+00 + 68.50000 126.5000 0.0000000E+00 + 69.50000 126.5000 0.0000000E+00 + 70.50000 126.5000 0.0000000E+00 + 71.50000 126.5000 0.0000000E+00 + 72.50000 126.5000 0.0000000E+00 + 73.50000 126.5000 0.0000000E+00 + 74.50000 126.5000 0.0000000E+00 + 75.50000 126.5000 0.0000000E+00 + 76.50000 126.5000 0.0000000E+00 + 77.50000 126.5000 0.0000000E+00 + 78.50000 126.5000 0.0000000E+00 + 79.50000 126.5000 0.0000000E+00 + 80.50000 126.5000 0.0000000E+00 + 81.50000 126.5000 0.0000000E+00 + 82.50000 126.5000 0.0000000E+00 + 83.50000 126.5000 0.0000000E+00 + 84.50000 126.5000 0.0000000E+00 + 85.50000 126.5000 0.0000000E+00 + 86.50000 126.5000 0.0000000E+00 + 87.50000 126.5000 0.0000000E+00 + 88.50000 126.5000 0.0000000E+00 + 89.50000 126.5000 0.0000000E+00 + -89.50000 127.5000 0.0000000E+00 + -88.50000 127.5000 0.0000000E+00 + -87.50000 127.5000 0.0000000E+00 + -86.50000 127.5000 0.0000000E+00 + -85.50000 127.5000 0.0000000E+00 + -84.50000 127.5000 0.0000000E+00 + -83.50000 127.5000 0.0000000E+00 + -82.50000 127.5000 0.0000000E+00 + -81.50000 127.5000 0.0000000E+00 + -80.50000 127.5000 0.0000000E+00 + -79.50000 127.5000 0.0000000E+00 + -78.50000 127.5000 0.0000000E+00 + -77.50000 127.5000 0.0000000E+00 + -76.50000 127.5000 0.0000000E+00 + -75.50000 127.5000 0.0000000E+00 + -74.50000 127.5000 0.0000000E+00 + -73.50000 127.5000 0.0000000E+00 + -72.50000 127.5000 0.0000000E+00 + -71.50000 127.5000 0.0000000E+00 + -70.50000 127.5000 0.0000000E+00 + -69.50000 127.5000 0.0000000E+00 + -68.50000 127.5000 0.0000000E+00 + -67.50000 127.5000 0.0000000E+00 + -66.50000 127.5000 0.0000000E+00 + -65.50000 127.5000 0.0000000E+00 + -64.50000 127.5000 0.0000000E+00 + -63.50000 127.5000 0.0000000E+00 + -62.50000 127.5000 0.0000000E+00 + -61.50000 127.5000 0.0000000E+00 + -60.50000 127.5000 0.0000000E+00 + -59.50000 127.5000 0.0000000E+00 + -58.50000 127.5000 0.0000000E+00 + -57.50000 127.5000 0.0000000E+00 + -56.50000 127.5000 0.0000000E+00 + -55.50000 127.5000 0.0000000E+00 + -54.50000 127.5000 0.0000000E+00 + -53.50000 127.5000 0.0000000E+00 + -52.50000 127.5000 0.0000000E+00 + -51.50000 127.5000 0.0000000E+00 + -50.50000 127.5000 0.0000000E+00 + -49.50000 127.5000 0.0000000E+00 + -48.50000 127.5000 0.0000000E+00 + -47.50000 127.5000 0.0000000E+00 + -46.50000 127.5000 0.0000000E+00 + -45.50000 127.5000 0.0000000E+00 + -44.50000 127.5000 0.0000000E+00 + -43.50000 127.5000 0.0000000E+00 + -42.50000 127.5000 0.0000000E+00 + -41.50000 127.5000 0.0000000E+00 + -40.50000 127.5000 0.0000000E+00 + -39.50000 127.5000 0.0000000E+00 + -38.50000 127.5000 0.0000000E+00 + -37.50000 127.5000 0.0000000E+00 + -36.50000 127.5000 0.0000000E+00 + -35.50000 127.5000 0.0000000E+00 + -34.50000 127.5000 0.0000000E+00 + -33.50000 127.5000 0.0000000E+00 + -32.50000 127.5000 0.0000000E+00 + -31.50000 127.5000 2.9524496E-02 + -30.50000 127.5000 9.2967218E-03 + -29.50000 127.5000 1.1865235E-02 + -28.50000 127.5000 4.7683716E-03 + -27.50000 127.5000 4.7683716E-03 + -26.50000 127.5000 1.5625000E-03 + -25.50000 127.5000 1.5625000E-03 + -24.50000 127.5000 1.5625000E-03 + -23.50000 127.5000 1.5625000E-03 + -22.50000 127.5000 1.5625000E-03 + -21.50000 127.5000 4.7683716E-03 + -20.50000 127.5000 1.1865235E-02 + -19.50000 127.5000 1.1865235E-02 + -18.50000 127.5000 0.0000000E+00 + -17.50000 127.5000 0.0000000E+00 + -16.50000 127.5000 0.0000000E+00 + -15.50000 127.5000 0.0000000E+00 + -14.50000 127.5000 0.0000000E+00 + -13.50000 127.5000 0.0000000E+00 + -12.50000 127.5000 0.0000000E+00 + -11.50000 127.5000 0.0000000E+00 + -10.50000 127.5000 0.0000000E+00 + -9.500000 127.5000 0.0000000E+00 + -8.500000 127.5000 0.0000000E+00 + -7.500000 127.5000 0.0000000E+00 + -6.500000 127.5000 0.0000000E+00 + -5.500000 127.5000 0.0000000E+00 + -4.500000 127.5000 0.0000000E+00 + -3.500000 127.5000 0.0000000E+00 + -2.500000 127.5000 0.0000000E+00 + -1.500000 127.5000 0.0000000E+00 + -0.5000000 127.5000 0.0000000E+00 + 0.5000000 127.5000 0.0000000E+00 + 1.500000 127.5000 0.0000000E+00 + 2.500000 127.5000 0.0000000E+00 + 3.500000 127.5000 0.0000000E+00 + 4.500000 127.5000 0.0000000E+00 + 5.500000 127.5000 0.0000000E+00 + 6.500000 127.5000 0.0000000E+00 + 7.500000 127.5000 0.0000000E+00 + 8.500000 127.5000 0.0000000E+00 + 9.500000 127.5000 0.0000000E+00 + 10.50000 127.5000 0.0000000E+00 + 11.50000 127.5000 0.0000000E+00 + 12.50000 127.5000 0.0000000E+00 + 13.50000 127.5000 0.0000000E+00 + 14.50000 127.5000 0.0000000E+00 + 15.50000 127.5000 0.0000000E+00 + 16.50000 127.5000 0.0000000E+00 + 17.50000 127.5000 0.0000000E+00 + 18.50000 127.5000 0.0000000E+00 + 19.50000 127.5000 0.0000000E+00 + 20.50000 127.5000 0.0000000E+00 + 21.50000 127.5000 0.0000000E+00 + 22.50000 127.5000 0.0000000E+00 + 23.50000 127.5000 0.0000000E+00 + 24.50000 127.5000 0.0000000E+00 + 25.50000 127.5000 0.0000000E+00 + 26.50000 127.5000 0.0000000E+00 + 27.50000 127.5000 0.0000000E+00 + 28.50000 127.5000 0.0000000E+00 + 29.50000 127.5000 0.0000000E+00 + 30.50000 127.5000 0.0000000E+00 + 31.50000 127.5000 0.0000000E+00 + 32.50000 127.5000 0.0000000E+00 + 33.50000 127.5000 0.0000000E+00 + 34.50000 127.5000 0.0000000E+00 + 35.50000 127.5000 0.0000000E+00 + 36.50000 127.5000 0.0000000E+00 + 37.50000 127.5000 0.0000000E+00 + 38.50000 127.5000 0.0000000E+00 + 39.50000 127.5000 0.0000000E+00 + 40.50000 127.5000 0.0000000E+00 + 41.50000 127.5000 0.0000000E+00 + 42.50000 127.5000 0.0000000E+00 + 43.50000 127.5000 0.0000000E+00 + 44.50000 127.5000 0.0000000E+00 + 45.50000 127.5000 0.0000000E+00 + 46.50000 127.5000 0.0000000E+00 + 47.50000 127.5000 0.0000000E+00 + 48.50000 127.5000 0.0000000E+00 + 49.50000 127.5000 0.0000000E+00 + 50.50000 127.5000 0.0000000E+00 + 51.50000 127.5000 0.0000000E+00 + 52.50000 127.5000 0.0000000E+00 + 53.50000 127.5000 0.0000000E+00 + 54.50000 127.5000 0.0000000E+00 + 55.50000 127.5000 0.0000000E+00 + 56.50000 127.5000 0.0000000E+00 + 57.50000 127.5000 0.0000000E+00 + 58.50000 127.5000 0.0000000E+00 + 59.50000 127.5000 0.0000000E+00 + 60.50000 127.5000 0.0000000E+00 + 61.50000 127.5000 0.0000000E+00 + 62.50000 127.5000 0.0000000E+00 + 63.50000 127.5000 0.0000000E+00 + 64.50000 127.5000 0.0000000E+00 + 65.50000 127.5000 0.0000000E+00 + 66.50000 127.5000 0.0000000E+00 + 67.50000 127.5000 0.0000000E+00 + 68.50000 127.5000 0.0000000E+00 + 69.50000 127.5000 0.0000000E+00 + 70.50000 127.5000 0.0000000E+00 + 71.50000 127.5000 0.0000000E+00 + 72.50000 127.5000 0.0000000E+00 + 73.50000 127.5000 0.0000000E+00 + 74.50000 127.5000 0.0000000E+00 + 75.50000 127.5000 0.0000000E+00 + 76.50000 127.5000 0.0000000E+00 + 77.50000 127.5000 0.0000000E+00 + 78.50000 127.5000 0.0000000E+00 + 79.50000 127.5000 0.0000000E+00 + 80.50000 127.5000 0.0000000E+00 + 81.50000 127.5000 0.0000000E+00 + 82.50000 127.5000 0.0000000E+00 + 83.50000 127.5000 0.0000000E+00 + 84.50000 127.5000 0.0000000E+00 + 85.50000 127.5000 0.0000000E+00 + 86.50000 127.5000 0.0000000E+00 + 87.50000 127.5000 0.0000000E+00 + 88.50000 127.5000 0.0000000E+00 + 89.50000 127.5000 0.0000000E+00 + -89.50000 128.5000 0.0000000E+00 + -88.50000 128.5000 0.0000000E+00 + -87.50000 128.5000 0.0000000E+00 + -86.50000 128.5000 0.0000000E+00 + -85.50000 128.5000 0.0000000E+00 + -84.50000 128.5000 0.0000000E+00 + -83.50000 128.5000 0.0000000E+00 + -82.50000 128.5000 0.0000000E+00 + -81.50000 128.5000 0.0000000E+00 + -80.50000 128.5000 0.0000000E+00 + -79.50000 128.5000 0.0000000E+00 + -78.50000 128.5000 0.0000000E+00 + -77.50000 128.5000 0.0000000E+00 + -76.50000 128.5000 0.0000000E+00 + -75.50000 128.5000 0.0000000E+00 + -74.50000 128.5000 0.0000000E+00 + -73.50000 128.5000 0.0000000E+00 + -72.50000 128.5000 0.0000000E+00 + -71.50000 128.5000 0.0000000E+00 + -70.50000 128.5000 0.0000000E+00 + -69.50000 128.5000 0.0000000E+00 + -68.50000 128.5000 0.0000000E+00 + -67.50000 128.5000 0.0000000E+00 + -66.50000 128.5000 0.0000000E+00 + -65.50000 128.5000 0.0000000E+00 + -64.50000 128.5000 0.0000000E+00 + -63.50000 128.5000 0.0000000E+00 + -62.50000 128.5000 0.0000000E+00 + -61.50000 128.5000 0.0000000E+00 + -60.50000 128.5000 0.0000000E+00 + -59.50000 128.5000 0.0000000E+00 + -58.50000 128.5000 0.0000000E+00 + -57.50000 128.5000 0.0000000E+00 + -56.50000 128.5000 0.0000000E+00 + -55.50000 128.5000 0.0000000E+00 + -54.50000 128.5000 0.0000000E+00 + -53.50000 128.5000 0.0000000E+00 + -52.50000 128.5000 0.0000000E+00 + -51.50000 128.5000 0.0000000E+00 + -50.50000 128.5000 0.0000000E+00 + -49.50000 128.5000 0.0000000E+00 + -48.50000 128.5000 0.0000000E+00 + -47.50000 128.5000 0.0000000E+00 + -46.50000 128.5000 0.0000000E+00 + -45.50000 128.5000 0.0000000E+00 + -44.50000 128.5000 0.0000000E+00 + -43.50000 128.5000 0.0000000E+00 + -42.50000 128.5000 0.0000000E+00 + -41.50000 128.5000 0.0000000E+00 + -40.50000 128.5000 0.0000000E+00 + -39.50000 128.5000 0.0000000E+00 + -38.50000 128.5000 0.0000000E+00 + -37.50000 128.5000 0.0000000E+00 + -36.50000 128.5000 0.0000000E+00 + -35.50000 128.5000 0.0000000E+00 + -34.50000 128.5000 0.0000000E+00 + -33.50000 128.5000 0.0000000E+00 + -32.50000 128.5000 0.0000000E+00 + -31.50000 128.5000 3.2954078E-02 + -30.50000 128.5000 2.3133220E-02 + -29.50000 128.5000 1.1865235E-02 + -28.50000 128.5000 1.1865235E-02 + -27.50000 128.5000 4.7683716E-03 + -26.50000 128.5000 4.7683716E-03 + -25.50000 128.5000 4.7683716E-03 + -24.50000 128.5000 4.7683716E-03 + -23.50000 128.5000 1.5625000E-03 + -22.50000 128.5000 1.5625000E-03 + -21.50000 128.5000 1.5625000E-03 + -20.50000 128.5000 1.5625000E-03 + -19.50000 128.5000 1.1865235E-02 + -18.50000 128.5000 0.0000000E+00 + -17.50000 128.5000 0.0000000E+00 + -16.50000 128.5000 0.0000000E+00 + -15.50000 128.5000 0.0000000E+00 + -14.50000 128.5000 0.0000000E+00 + -13.50000 128.5000 0.0000000E+00 + -12.50000 128.5000 0.0000000E+00 + -11.50000 128.5000 0.0000000E+00 + -10.50000 128.5000 0.0000000E+00 + -9.500000 128.5000 0.0000000E+00 + -8.500000 128.5000 0.0000000E+00 + -7.500000 128.5000 0.0000000E+00 + -6.500000 128.5000 0.0000000E+00 + -5.500000 128.5000 0.0000000E+00 + -4.500000 128.5000 0.0000000E+00 + -3.500000 128.5000 0.0000000E+00 + -2.500000 128.5000 0.0000000E+00 + -1.500000 128.5000 0.0000000E+00 + -0.5000000 128.5000 0.0000000E+00 + 0.5000000 128.5000 0.0000000E+00 + 1.500000 128.5000 0.0000000E+00 + 2.500000 128.5000 0.0000000E+00 + 3.500000 128.5000 0.0000000E+00 + 4.500000 128.5000 0.0000000E+00 + 5.500000 128.5000 0.0000000E+00 + 6.500000 128.5000 0.0000000E+00 + 7.500000 128.5000 0.0000000E+00 + 8.500000 128.5000 0.0000000E+00 + 9.500000 128.5000 0.0000000E+00 + 10.50000 128.5000 0.0000000E+00 + 11.50000 128.5000 0.0000000E+00 + 12.50000 128.5000 0.0000000E+00 + 13.50000 128.5000 0.0000000E+00 + 14.50000 128.5000 0.0000000E+00 + 15.50000 128.5000 0.0000000E+00 + 16.50000 128.5000 0.0000000E+00 + 17.50000 128.5000 0.0000000E+00 + 18.50000 128.5000 0.0000000E+00 + 19.50000 128.5000 0.0000000E+00 + 20.50000 128.5000 0.0000000E+00 + 21.50000 128.5000 0.0000000E+00 + 22.50000 128.5000 0.0000000E+00 + 23.50000 128.5000 0.0000000E+00 + 24.50000 128.5000 0.0000000E+00 + 25.50000 128.5000 0.0000000E+00 + 26.50000 128.5000 0.0000000E+00 + 27.50000 128.5000 0.0000000E+00 + 28.50000 128.5000 0.0000000E+00 + 29.50000 128.5000 0.0000000E+00 + 30.50000 128.5000 0.0000000E+00 + 31.50000 128.5000 0.0000000E+00 + 32.50000 128.5000 0.0000000E+00 + 33.50000 128.5000 0.0000000E+00 + 34.50000 128.5000 0.0000000E+00 + 35.50000 128.5000 0.0000000E+00 + 36.50000 128.5000 0.0000000E+00 + 37.50000 128.5000 0.0000000E+00 + 38.50000 128.5000 0.0000000E+00 + 39.50000 128.5000 0.0000000E+00 + 40.50000 128.5000 0.0000000E+00 + 41.50000 128.5000 0.0000000E+00 + 42.50000 128.5000 0.0000000E+00 + 43.50000 128.5000 0.0000000E+00 + 44.50000 128.5000 0.0000000E+00 + 45.50000 128.5000 0.0000000E+00 + 46.50000 128.5000 0.0000000E+00 + 47.50000 128.5000 0.0000000E+00 + 48.50000 128.5000 0.0000000E+00 + 49.50000 128.5000 0.0000000E+00 + 50.50000 128.5000 0.0000000E+00 + 51.50000 128.5000 0.0000000E+00 + 52.50000 128.5000 0.0000000E+00 + 53.50000 128.5000 0.0000000E+00 + 54.50000 128.5000 0.0000000E+00 + 55.50000 128.5000 0.0000000E+00 + 56.50000 128.5000 0.0000000E+00 + 57.50000 128.5000 0.0000000E+00 + 58.50000 128.5000 0.0000000E+00 + 59.50000 128.5000 0.0000000E+00 + 60.50000 128.5000 0.0000000E+00 + 61.50000 128.5000 0.0000000E+00 + 62.50000 128.5000 0.0000000E+00 + 63.50000 128.5000 0.0000000E+00 + 64.50000 128.5000 0.0000000E+00 + 65.50000 128.5000 0.0000000E+00 + 66.50000 128.5000 0.0000000E+00 + 67.50000 128.5000 0.0000000E+00 + 68.50000 128.5000 0.0000000E+00 + 69.50000 128.5000 0.0000000E+00 + 70.50000 128.5000 0.0000000E+00 + 71.50000 128.5000 0.0000000E+00 + 72.50000 128.5000 0.0000000E+00 + 73.50000 128.5000 0.0000000E+00 + 74.50000 128.5000 0.0000000E+00 + 75.50000 128.5000 0.0000000E+00 + 76.50000 128.5000 0.0000000E+00 + 77.50000 128.5000 0.0000000E+00 + 78.50000 128.5000 0.0000000E+00 + 79.50000 128.5000 0.0000000E+00 + 80.50000 128.5000 0.0000000E+00 + 81.50000 128.5000 0.0000000E+00 + 82.50000 128.5000 0.0000000E+00 + 83.50000 128.5000 0.0000000E+00 + 84.50000 128.5000 0.0000000E+00 + 85.50000 128.5000 0.0000000E+00 + 86.50000 128.5000 0.0000000E+00 + 87.50000 128.5000 0.0000000E+00 + 88.50000 128.5000 0.0000000E+00 + 89.50000 128.5000 0.0000000E+00 + -89.50000 129.5000 0.0000000E+00 + -88.50000 129.5000 0.0000000E+00 + -87.50000 129.5000 0.0000000E+00 + -86.50000 129.5000 0.0000000E+00 + -85.50000 129.5000 0.0000000E+00 + -84.50000 129.5000 0.0000000E+00 + -83.50000 129.5000 0.0000000E+00 + -82.50000 129.5000 0.0000000E+00 + -81.50000 129.5000 0.0000000E+00 + -80.50000 129.5000 0.0000000E+00 + -79.50000 129.5000 0.0000000E+00 + -78.50000 129.5000 0.0000000E+00 + -77.50000 129.5000 0.0000000E+00 + -76.50000 129.5000 0.0000000E+00 + -75.50000 129.5000 0.0000000E+00 + -74.50000 129.5000 0.0000000E+00 + -73.50000 129.5000 0.0000000E+00 + -72.50000 129.5000 0.0000000E+00 + -71.50000 129.5000 0.0000000E+00 + -70.50000 129.5000 0.0000000E+00 + -69.50000 129.5000 0.0000000E+00 + -68.50000 129.5000 0.0000000E+00 + -67.50000 129.5000 0.0000000E+00 + -66.50000 129.5000 0.0000000E+00 + -65.50000 129.5000 0.0000000E+00 + -64.50000 129.5000 0.0000000E+00 + -63.50000 129.5000 0.0000000E+00 + -62.50000 129.5000 0.0000000E+00 + -61.50000 129.5000 0.0000000E+00 + -60.50000 129.5000 0.0000000E+00 + -59.50000 129.5000 0.0000000E+00 + -58.50000 129.5000 0.0000000E+00 + -57.50000 129.5000 0.0000000E+00 + -56.50000 129.5000 0.0000000E+00 + -55.50000 129.5000 0.0000000E+00 + -54.50000 129.5000 0.0000000E+00 + -53.50000 129.5000 0.0000000E+00 + -52.50000 129.5000 0.0000000E+00 + -51.50000 129.5000 0.0000000E+00 + -50.50000 129.5000 0.0000000E+00 + -49.50000 129.5000 0.0000000E+00 + -48.50000 129.5000 0.0000000E+00 + -47.50000 129.5000 0.0000000E+00 + -46.50000 129.5000 0.0000000E+00 + -45.50000 129.5000 0.0000000E+00 + -44.50000 129.5000 0.0000000E+00 + -43.50000 129.5000 0.0000000E+00 + -42.50000 129.5000 0.0000000E+00 + -41.50000 129.5000 0.0000000E+00 + -40.50000 129.5000 0.0000000E+00 + -39.50000 129.5000 0.0000000E+00 + -38.50000 129.5000 0.0000000E+00 + -37.50000 129.5000 0.0000000E+00 + -36.50000 129.5000 0.0000000E+00 + -35.50000 129.5000 0.0000000E+00 + -34.50000 129.5000 0.0000000E+00 + -33.50000 129.5000 0.0000000E+00 + -32.50000 129.5000 0.0000000E+00 + -31.50000 129.5000 0.0000000E+00 + -30.50000 129.5000 2.3133220E-02 + -29.50000 129.5000 1.1865235E-02 + -28.50000 129.5000 4.7683716E-03 + -27.50000 129.5000 1.5625000E-03 + -26.50000 129.5000 1.5625000E-03 + -25.50000 129.5000 1.5625000E-03 + -24.50000 129.5000 1.5625000E-03 + -23.50000 129.5000 1.5625000E-03 + -22.50000 129.5000 3.7078859E-04 + -21.50000 129.5000 1.5625000E-03 + -20.50000 129.5000 1.5625000E-03 + -19.50000 129.5000 4.7683716E-03 + -18.50000 129.5000 0.0000000E+00 + -17.50000 129.5000 0.0000000E+00 + -16.50000 129.5000 0.0000000E+00 + -15.50000 129.5000 0.0000000E+00 + -14.50000 129.5000 0.0000000E+00 + -13.50000 129.5000 0.0000000E+00 + -12.50000 129.5000 0.0000000E+00 + -11.50000 129.5000 0.0000000E+00 + -10.50000 129.5000 0.0000000E+00 + -9.500000 129.5000 0.0000000E+00 + -8.500000 129.5000 0.0000000E+00 + -7.500000 129.5000 0.0000000E+00 + -6.500000 129.5000 0.0000000E+00 + -5.500000 129.5000 0.0000000E+00 + -4.500000 129.5000 0.0000000E+00 + -3.500000 129.5000 0.0000000E+00 + -2.500000 129.5000 0.0000000E+00 + -1.500000 129.5000 0.0000000E+00 + -0.5000000 129.5000 0.0000000E+00 + 0.5000000 129.5000 0.0000000E+00 + 1.500000 129.5000 0.0000000E+00 + 2.500000 129.5000 0.0000000E+00 + 3.500000 129.5000 0.0000000E+00 + 4.500000 129.5000 0.0000000E+00 + 5.500000 129.5000 0.0000000E+00 + 6.500000 129.5000 0.0000000E+00 + 7.500000 129.5000 0.0000000E+00 + 8.500000 129.5000 0.0000000E+00 + 9.500000 129.5000 0.0000000E+00 + 10.50000 129.5000 0.0000000E+00 + 11.50000 129.5000 0.0000000E+00 + 12.50000 129.5000 0.0000000E+00 + 13.50000 129.5000 0.0000000E+00 + 14.50000 129.5000 0.0000000E+00 + 15.50000 129.5000 0.0000000E+00 + 16.50000 129.5000 0.0000000E+00 + 17.50000 129.5000 0.0000000E+00 + 18.50000 129.5000 0.0000000E+00 + 19.50000 129.5000 0.0000000E+00 + 20.50000 129.5000 0.0000000E+00 + 21.50000 129.5000 0.0000000E+00 + 22.50000 129.5000 0.0000000E+00 + 23.50000 129.5000 0.0000000E+00 + 24.50000 129.5000 0.0000000E+00 + 25.50000 129.5000 0.0000000E+00 + 26.50000 129.5000 0.0000000E+00 + 27.50000 129.5000 0.0000000E+00 + 28.50000 129.5000 0.0000000E+00 + 29.50000 129.5000 0.0000000E+00 + 30.50000 129.5000 0.0000000E+00 + 31.50000 129.5000 0.0000000E+00 + 32.50000 129.5000 0.0000000E+00 + 33.50000 129.5000 0.0000000E+00 + 34.50000 129.5000 0.0000000E+00 + 35.50000 129.5000 0.0000000E+00 + 36.50000 129.5000 0.0000000E+00 + 37.50000 129.5000 0.0000000E+00 + 38.50000 129.5000 0.0000000E+00 + 39.50000 129.5000 0.0000000E+00 + 40.50000 129.5000 0.0000000E+00 + 41.50000 129.5000 0.0000000E+00 + 42.50000 129.5000 0.0000000E+00 + 43.50000 129.5000 0.0000000E+00 + 44.50000 129.5000 0.0000000E+00 + 45.50000 129.5000 0.0000000E+00 + 46.50000 129.5000 0.0000000E+00 + 47.50000 129.5000 0.0000000E+00 + 48.50000 129.5000 0.0000000E+00 + 49.50000 129.5000 0.0000000E+00 + 50.50000 129.5000 0.0000000E+00 + 51.50000 129.5000 0.0000000E+00 + 52.50000 129.5000 0.0000000E+00 + 53.50000 129.5000 0.0000000E+00 + 54.50000 129.5000 0.0000000E+00 + 55.50000 129.5000 0.0000000E+00 + 56.50000 129.5000 0.0000000E+00 + 57.50000 129.5000 0.0000000E+00 + 58.50000 129.5000 0.0000000E+00 + 59.50000 129.5000 0.0000000E+00 + 60.50000 129.5000 0.0000000E+00 + 61.50000 129.5000 0.0000000E+00 + 62.50000 129.5000 0.0000000E+00 + 63.50000 129.5000 0.0000000E+00 + 64.50000 129.5000 0.0000000E+00 + 65.50000 129.5000 0.0000000E+00 + 66.50000 129.5000 0.0000000E+00 + 67.50000 129.5000 0.0000000E+00 + 68.50000 129.5000 0.0000000E+00 + 69.50000 129.5000 0.0000000E+00 + 70.50000 129.5000 0.0000000E+00 + 71.50000 129.5000 0.0000000E+00 + 72.50000 129.5000 0.0000000E+00 + 73.50000 129.5000 0.0000000E+00 + 74.50000 129.5000 0.0000000E+00 + 75.50000 129.5000 0.0000000E+00 + 76.50000 129.5000 0.0000000E+00 + 77.50000 129.5000 0.0000000E+00 + 78.50000 129.5000 0.0000000E+00 + 79.50000 129.5000 0.0000000E+00 + 80.50000 129.5000 0.0000000E+00 + 81.50000 129.5000 0.0000000E+00 + 82.50000 129.5000 0.0000000E+00 + 83.50000 129.5000 0.0000000E+00 + 84.50000 129.5000 0.0000000E+00 + 85.50000 129.5000 0.0000000E+00 + 86.50000 129.5000 0.0000000E+00 + 87.50000 129.5000 0.0000000E+00 + 88.50000 129.5000 0.0000000E+00 + 89.50000 129.5000 0.0000000E+00 + -89.50000 130.5000 0.0000000E+00 + -88.50000 130.5000 0.0000000E+00 + -87.50000 130.5000 0.0000000E+00 + -86.50000 130.5000 0.0000000E+00 + -85.50000 130.5000 0.0000000E+00 + -84.50000 130.5000 0.0000000E+00 + -83.50000 130.5000 0.0000000E+00 + -82.50000 130.5000 0.0000000E+00 + -81.50000 130.5000 0.0000000E+00 + -80.50000 130.5000 0.0000000E+00 + -79.50000 130.5000 0.0000000E+00 + -78.50000 130.5000 0.0000000E+00 + -77.50000 130.5000 0.0000000E+00 + -76.50000 130.5000 0.0000000E+00 + -75.50000 130.5000 0.0000000E+00 + -74.50000 130.5000 0.0000000E+00 + -73.50000 130.5000 0.0000000E+00 + -72.50000 130.5000 0.0000000E+00 + -71.50000 130.5000 0.0000000E+00 + -70.50000 130.5000 0.0000000E+00 + -69.50000 130.5000 0.0000000E+00 + -68.50000 130.5000 0.0000000E+00 + -67.50000 130.5000 0.0000000E+00 + -66.50000 130.5000 0.0000000E+00 + -65.50000 130.5000 0.0000000E+00 + -64.50000 130.5000 0.0000000E+00 + -63.50000 130.5000 0.0000000E+00 + -62.50000 130.5000 0.0000000E+00 + -61.50000 130.5000 0.0000000E+00 + -60.50000 130.5000 0.0000000E+00 + -59.50000 130.5000 0.0000000E+00 + -58.50000 130.5000 0.0000000E+00 + -57.50000 130.5000 0.0000000E+00 + -56.50000 130.5000 0.0000000E+00 + -55.50000 130.5000 0.0000000E+00 + -54.50000 130.5000 0.0000000E+00 + -53.50000 130.5000 0.0000000E+00 + -52.50000 130.5000 0.0000000E+00 + -51.50000 130.5000 0.0000000E+00 + -50.50000 130.5000 0.0000000E+00 + -49.50000 130.5000 0.0000000E+00 + -48.50000 130.5000 0.0000000E+00 + -47.50000 130.5000 0.0000000E+00 + -46.50000 130.5000 0.0000000E+00 + -45.50000 130.5000 0.0000000E+00 + -44.50000 130.5000 0.0000000E+00 + -43.50000 130.5000 0.0000000E+00 + -42.50000 130.5000 0.0000000E+00 + -41.50000 130.5000 0.0000000E+00 + -40.50000 130.5000 0.0000000E+00 + -39.50000 130.5000 0.0000000E+00 + -38.50000 130.5000 0.0000000E+00 + -37.50000 130.5000 0.0000000E+00 + -36.50000 130.5000 0.0000000E+00 + -35.50000 130.5000 0.0000000E+00 + -34.50000 130.5000 0.0000000E+00 + -33.50000 130.5000 0.0000000E+00 + -32.50000 130.5000 0.0000000E+00 + -31.50000 130.5000 2.9524496E-02 + -30.50000 130.5000 9.2967218E-03 + -29.50000 130.5000 1.1865235E-02 + -28.50000 130.5000 4.7683716E-03 + -27.50000 130.5000 4.7683716E-03 + -26.50000 130.5000 1.5625000E-03 + -25.50000 130.5000 1.5625000E-03 + -24.50000 130.5000 1.5625000E-03 + -23.50000 130.5000 3.7078859E-04 + -22.50000 130.5000 3.7078859E-04 + -21.50000 130.5000 1.5625000E-03 + -20.50000 130.5000 1.5625000E-03 + -19.50000 130.5000 4.7683716E-03 + -18.50000 130.5000 0.0000000E+00 + -17.50000 130.5000 0.0000000E+00 + -16.50000 130.5000 0.0000000E+00 + -15.50000 130.5000 0.0000000E+00 + -14.50000 130.5000 0.0000000E+00 + -13.50000 130.5000 0.0000000E+00 + -12.50000 130.5000 0.0000000E+00 + -11.50000 130.5000 0.0000000E+00 + -10.50000 130.5000 0.0000000E+00 + -9.500000 130.5000 0.0000000E+00 + -8.500000 130.5000 0.0000000E+00 + -7.500000 130.5000 0.0000000E+00 + -6.500000 130.5000 0.0000000E+00 + -5.500000 130.5000 0.0000000E+00 + -4.500000 130.5000 0.0000000E+00 + -3.500000 130.5000 0.0000000E+00 + -2.500000 130.5000 0.0000000E+00 + -1.500000 130.5000 0.0000000E+00 + -0.5000000 130.5000 0.0000000E+00 + 0.5000000 130.5000 0.0000000E+00 + 1.500000 130.5000 0.0000000E+00 + 2.500000 130.5000 0.0000000E+00 + 3.500000 130.5000 0.0000000E+00 + 4.500000 130.5000 0.0000000E+00 + 5.500000 130.5000 0.0000000E+00 + 6.500000 130.5000 0.0000000E+00 + 7.500000 130.5000 0.0000000E+00 + 8.500000 130.5000 0.0000000E+00 + 9.500000 130.5000 0.0000000E+00 + 10.50000 130.5000 0.0000000E+00 + 11.50000 130.5000 0.0000000E+00 + 12.50000 130.5000 0.0000000E+00 + 13.50000 130.5000 0.0000000E+00 + 14.50000 130.5000 0.0000000E+00 + 15.50000 130.5000 0.0000000E+00 + 16.50000 130.5000 0.0000000E+00 + 17.50000 130.5000 0.0000000E+00 + 18.50000 130.5000 0.0000000E+00 + 19.50000 130.5000 0.0000000E+00 + 20.50000 130.5000 0.0000000E+00 + 21.50000 130.5000 0.0000000E+00 + 22.50000 130.5000 0.0000000E+00 + 23.50000 130.5000 0.0000000E+00 + 24.50000 130.5000 0.0000000E+00 + 25.50000 130.5000 0.0000000E+00 + 26.50000 130.5000 0.0000000E+00 + 27.50000 130.5000 0.0000000E+00 + 28.50000 130.5000 0.0000000E+00 + 29.50000 130.5000 0.0000000E+00 + 30.50000 130.5000 0.0000000E+00 + 31.50000 130.5000 0.0000000E+00 + 32.50000 130.5000 0.0000000E+00 + 33.50000 130.5000 0.0000000E+00 + 34.50000 130.5000 0.0000000E+00 + 35.50000 130.5000 0.0000000E+00 + 36.50000 130.5000 0.0000000E+00 + 37.50000 130.5000 0.0000000E+00 + 38.50000 130.5000 0.0000000E+00 + 39.50000 130.5000 0.0000000E+00 + 40.50000 130.5000 0.0000000E+00 + 41.50000 130.5000 0.0000000E+00 + 42.50000 130.5000 0.0000000E+00 + 43.50000 130.5000 0.0000000E+00 + 44.50000 130.5000 0.0000000E+00 + 45.50000 130.5000 0.0000000E+00 + 46.50000 130.5000 0.0000000E+00 + 47.50000 130.5000 0.0000000E+00 + 48.50000 130.5000 0.0000000E+00 + 49.50000 130.5000 0.0000000E+00 + 50.50000 130.5000 0.0000000E+00 + 51.50000 130.5000 0.0000000E+00 + 52.50000 130.5000 0.0000000E+00 + 53.50000 130.5000 0.0000000E+00 + 54.50000 130.5000 0.0000000E+00 + 55.50000 130.5000 0.0000000E+00 + 56.50000 130.5000 0.0000000E+00 + 57.50000 130.5000 0.0000000E+00 + 58.50000 130.5000 0.0000000E+00 + 59.50000 130.5000 0.0000000E+00 + 60.50000 130.5000 0.0000000E+00 + 61.50000 130.5000 0.0000000E+00 + 62.50000 130.5000 0.0000000E+00 + 63.50000 130.5000 0.0000000E+00 + 64.50000 130.5000 0.0000000E+00 + 65.50000 130.5000 0.0000000E+00 + 66.50000 130.5000 0.0000000E+00 + 67.50000 130.5000 0.0000000E+00 + 68.50000 130.5000 0.0000000E+00 + 69.50000 130.5000 0.0000000E+00 + 70.50000 130.5000 0.0000000E+00 + 71.50000 130.5000 0.0000000E+00 + 72.50000 130.5000 0.0000000E+00 + 73.50000 130.5000 0.0000000E+00 + 74.50000 130.5000 0.0000000E+00 + 75.50000 130.5000 0.0000000E+00 + 76.50000 130.5000 0.0000000E+00 + 77.50000 130.5000 0.0000000E+00 + 78.50000 130.5000 0.0000000E+00 + 79.50000 130.5000 0.0000000E+00 + 80.50000 130.5000 0.0000000E+00 + 81.50000 130.5000 0.0000000E+00 + 82.50000 130.5000 0.0000000E+00 + 83.50000 130.5000 0.0000000E+00 + 84.50000 130.5000 0.0000000E+00 + 85.50000 130.5000 0.0000000E+00 + 86.50000 130.5000 0.0000000E+00 + 87.50000 130.5000 0.0000000E+00 + 88.50000 130.5000 0.0000000E+00 + 89.50000 130.5000 0.0000000E+00 + -89.50000 131.5000 0.0000000E+00 + -88.50000 131.5000 0.0000000E+00 + -87.50000 131.5000 0.0000000E+00 + -86.50000 131.5000 0.0000000E+00 + -85.50000 131.5000 0.0000000E+00 + -84.50000 131.5000 0.0000000E+00 + -83.50000 131.5000 0.0000000E+00 + -82.50000 131.5000 0.0000000E+00 + -81.50000 131.5000 0.0000000E+00 + -80.50000 131.5000 0.0000000E+00 + -79.50000 131.5000 0.0000000E+00 + -78.50000 131.5000 0.0000000E+00 + -77.50000 131.5000 0.0000000E+00 + -76.50000 131.5000 0.0000000E+00 + -75.50000 131.5000 0.0000000E+00 + -74.50000 131.5000 0.0000000E+00 + -73.50000 131.5000 0.0000000E+00 + -72.50000 131.5000 0.0000000E+00 + -71.50000 131.5000 0.0000000E+00 + -70.50000 131.5000 0.0000000E+00 + -69.50000 131.5000 0.0000000E+00 + -68.50000 131.5000 0.0000000E+00 + -67.50000 131.5000 0.0000000E+00 + -66.50000 131.5000 0.0000000E+00 + -65.50000 131.5000 0.0000000E+00 + -64.50000 131.5000 0.0000000E+00 + -63.50000 131.5000 0.0000000E+00 + -62.50000 131.5000 0.0000000E+00 + -61.50000 131.5000 0.0000000E+00 + -60.50000 131.5000 0.0000000E+00 + -59.50000 131.5000 0.0000000E+00 + -58.50000 131.5000 0.0000000E+00 + -57.50000 131.5000 0.0000000E+00 + -56.50000 131.5000 0.0000000E+00 + -55.50000 131.5000 0.0000000E+00 + -54.50000 131.5000 0.0000000E+00 + -53.50000 131.5000 0.0000000E+00 + -52.50000 131.5000 0.0000000E+00 + -51.50000 131.5000 0.0000000E+00 + -50.50000 131.5000 0.0000000E+00 + -49.50000 131.5000 0.0000000E+00 + -48.50000 131.5000 0.0000000E+00 + -47.50000 131.5000 0.0000000E+00 + -46.50000 131.5000 0.0000000E+00 + -45.50000 131.5000 0.0000000E+00 + -44.50000 131.5000 0.0000000E+00 + -43.50000 131.5000 0.0000000E+00 + -42.50000 131.5000 0.0000000E+00 + -41.50000 131.5000 0.0000000E+00 + -40.50000 131.5000 0.0000000E+00 + -39.50000 131.5000 0.0000000E+00 + -38.50000 131.5000 0.0000000E+00 + -37.50000 131.5000 0.0000000E+00 + -36.50000 131.5000 0.0000000E+00 + -35.50000 131.5000 0.0000000E+00 + -34.50000 131.5000 0.0000000E+00 + -33.50000 131.5000 0.0000000E+00 + -32.50000 131.5000 0.0000000E+00 + -31.50000 131.5000 2.2282830E-02 + -30.50000 131.5000 9.2967218E-03 + -29.50000 131.5000 1.1865235E-02 + -28.50000 131.5000 4.7683716E-03 + -27.50000 131.5000 4.7683716E-03 + -26.50000 131.5000 1.5625000E-03 + -25.50000 131.5000 1.5625000E-03 + -24.50000 131.5000 3.7078859E-04 + -23.50000 131.5000 3.7078859E-04 + -22.50000 131.5000 3.7078859E-04 + -21.50000 131.5000 3.7078859E-04 + -20.50000 131.5000 1.5625000E-03 + -19.50000 131.5000 4.7683716E-03 + -18.50000 131.5000 0.0000000E+00 + -17.50000 131.5000 0.0000000E+00 + -16.50000 131.5000 0.0000000E+00 + -15.50000 131.5000 0.0000000E+00 + -14.50000 131.5000 0.0000000E+00 + -13.50000 131.5000 0.0000000E+00 + -12.50000 131.5000 0.0000000E+00 + -11.50000 131.5000 0.0000000E+00 + -10.50000 131.5000 0.0000000E+00 + -9.500000 131.5000 0.0000000E+00 + -8.500000 131.5000 0.0000000E+00 + -7.500000 131.5000 0.0000000E+00 + -6.500000 131.5000 0.0000000E+00 + -5.500000 131.5000 0.0000000E+00 + -4.500000 131.5000 0.0000000E+00 + -3.500000 131.5000 0.0000000E+00 + -2.500000 131.5000 0.0000000E+00 + -1.500000 131.5000 0.0000000E+00 + -0.5000000 131.5000 0.0000000E+00 + 0.5000000 131.5000 0.0000000E+00 + 1.500000 131.5000 0.0000000E+00 + 2.500000 131.5000 0.0000000E+00 + 3.500000 131.5000 0.0000000E+00 + 4.500000 131.5000 0.0000000E+00 + 5.500000 131.5000 0.0000000E+00 + 6.500000 131.5000 0.0000000E+00 + 7.500000 131.5000 0.0000000E+00 + 8.500000 131.5000 0.0000000E+00 + 9.500000 131.5000 0.0000000E+00 + 10.50000 131.5000 0.0000000E+00 + 11.50000 131.5000 0.0000000E+00 + 12.50000 131.5000 0.0000000E+00 + 13.50000 131.5000 0.0000000E+00 + 14.50000 131.5000 0.0000000E+00 + 15.50000 131.5000 0.0000000E+00 + 16.50000 131.5000 0.0000000E+00 + 17.50000 131.5000 0.0000000E+00 + 18.50000 131.5000 0.0000000E+00 + 19.50000 131.5000 0.0000000E+00 + 20.50000 131.5000 0.0000000E+00 + 21.50000 131.5000 0.0000000E+00 + 22.50000 131.5000 0.0000000E+00 + 23.50000 131.5000 0.0000000E+00 + 24.50000 131.5000 0.0000000E+00 + 25.50000 131.5000 0.0000000E+00 + 26.50000 131.5000 0.0000000E+00 + 27.50000 131.5000 0.0000000E+00 + 28.50000 131.5000 0.0000000E+00 + 29.50000 131.5000 0.0000000E+00 + 30.50000 131.5000 0.0000000E+00 + 31.50000 131.5000 0.0000000E+00 + 32.50000 131.5000 0.0000000E+00 + 33.50000 131.5000 0.0000000E+00 + 34.50000 131.5000 0.0000000E+00 + 35.50000 131.5000 0.0000000E+00 + 36.50000 131.5000 0.0000000E+00 + 37.50000 131.5000 0.0000000E+00 + 38.50000 131.5000 0.0000000E+00 + 39.50000 131.5000 0.0000000E+00 + 40.50000 131.5000 0.0000000E+00 + 41.50000 131.5000 0.0000000E+00 + 42.50000 131.5000 0.0000000E+00 + 43.50000 131.5000 0.0000000E+00 + 44.50000 131.5000 0.0000000E+00 + 45.50000 131.5000 0.0000000E+00 + 46.50000 131.5000 0.0000000E+00 + 47.50000 131.5000 0.0000000E+00 + 48.50000 131.5000 0.0000000E+00 + 49.50000 131.5000 0.0000000E+00 + 50.50000 131.5000 0.0000000E+00 + 51.50000 131.5000 0.0000000E+00 + 52.50000 131.5000 0.0000000E+00 + 53.50000 131.5000 0.0000000E+00 + 54.50000 131.5000 0.0000000E+00 + 55.50000 131.5000 0.0000000E+00 + 56.50000 131.5000 0.0000000E+00 + 57.50000 131.5000 0.0000000E+00 + 58.50000 131.5000 0.0000000E+00 + 59.50000 131.5000 0.0000000E+00 + 60.50000 131.5000 0.0000000E+00 + 61.50000 131.5000 0.0000000E+00 + 62.50000 131.5000 0.0000000E+00 + 63.50000 131.5000 0.0000000E+00 + 64.50000 131.5000 0.0000000E+00 + 65.50000 131.5000 0.0000000E+00 + 66.50000 131.5000 0.0000000E+00 + 67.50000 131.5000 0.0000000E+00 + 68.50000 131.5000 0.0000000E+00 + 69.50000 131.5000 0.0000000E+00 + 70.50000 131.5000 0.0000000E+00 + 71.50000 131.5000 0.0000000E+00 + 72.50000 131.5000 0.0000000E+00 + 73.50000 131.5000 0.0000000E+00 + 74.50000 131.5000 0.0000000E+00 + 75.50000 131.5000 0.0000000E+00 + 76.50000 131.5000 0.0000000E+00 + 77.50000 131.5000 0.0000000E+00 + 78.50000 131.5000 0.0000000E+00 + 79.50000 131.5000 0.0000000E+00 + 80.50000 131.5000 0.0000000E+00 + 81.50000 131.5000 0.0000000E+00 + 82.50000 131.5000 0.0000000E+00 + 83.50000 131.5000 0.0000000E+00 + 84.50000 131.5000 0.0000000E+00 + 85.50000 131.5000 0.0000000E+00 + 86.50000 131.5000 0.0000000E+00 + 87.50000 131.5000 0.0000000E+00 + 88.50000 131.5000 0.0000000E+00 + 89.50000 131.5000 0.0000000E+00 + -89.50000 132.5000 0.0000000E+00 + -88.50000 132.5000 0.0000000E+00 + -87.50000 132.5000 0.0000000E+00 + -86.50000 132.5000 0.0000000E+00 + -85.50000 132.5000 0.0000000E+00 + -84.50000 132.5000 0.0000000E+00 + -83.50000 132.5000 0.0000000E+00 + -82.50000 132.5000 0.0000000E+00 + -81.50000 132.5000 0.0000000E+00 + -80.50000 132.5000 0.0000000E+00 + -79.50000 132.5000 0.0000000E+00 + -78.50000 132.5000 0.0000000E+00 + -77.50000 132.5000 0.0000000E+00 + -76.50000 132.5000 0.0000000E+00 + -75.50000 132.5000 0.0000000E+00 + -74.50000 132.5000 0.0000000E+00 + -73.50000 132.5000 0.0000000E+00 + -72.50000 132.5000 0.0000000E+00 + -71.50000 132.5000 0.0000000E+00 + -70.50000 132.5000 0.0000000E+00 + -69.50000 132.5000 0.0000000E+00 + -68.50000 132.5000 0.0000000E+00 + -67.50000 132.5000 0.0000000E+00 + -66.50000 132.5000 0.0000000E+00 + -65.50000 132.5000 0.0000000E+00 + -64.50000 132.5000 0.0000000E+00 + -63.50000 132.5000 0.0000000E+00 + -62.50000 132.5000 0.0000000E+00 + -61.50000 132.5000 0.0000000E+00 + -60.50000 132.5000 0.0000000E+00 + -59.50000 132.5000 0.0000000E+00 + -58.50000 132.5000 0.0000000E+00 + -57.50000 132.5000 0.0000000E+00 + -56.50000 132.5000 0.0000000E+00 + -55.50000 132.5000 0.0000000E+00 + -54.50000 132.5000 0.0000000E+00 + -53.50000 132.5000 0.0000000E+00 + -52.50000 132.5000 0.0000000E+00 + -51.50000 132.5000 0.0000000E+00 + -50.50000 132.5000 0.0000000E+00 + -49.50000 132.5000 0.0000000E+00 + -48.50000 132.5000 0.0000000E+00 + -47.50000 132.5000 0.0000000E+00 + -46.50000 132.5000 0.0000000E+00 + -45.50000 132.5000 0.0000000E+00 + -44.50000 132.5000 0.0000000E+00 + -43.50000 132.5000 0.0000000E+00 + -42.50000 132.5000 0.0000000E+00 + -41.50000 132.5000 0.0000000E+00 + -40.50000 132.5000 0.0000000E+00 + -39.50000 132.5000 0.0000000E+00 + -38.50000 132.5000 0.0000000E+00 + -37.50000 132.5000 0.0000000E+00 + -36.50000 132.5000 0.0000000E+00 + -35.50000 132.5000 0.0000000E+00 + -34.50000 132.5000 0.0000000E+00 + -33.50000 132.5000 0.0000000E+00 + -32.50000 132.5000 0.0000000E+00 + -31.50000 132.5000 8.4934738E-03 + -30.50000 132.5000 9.2967218E-03 + -29.50000 132.5000 1.1865235E-02 + -28.50000 132.5000 4.7683716E-03 + -27.50000 132.5000 4.7683716E-03 + -26.50000 132.5000 1.5625000E-03 + -25.50000 132.5000 1.5625000E-03 + -24.50000 132.5000 3.7078859E-04 + -23.50000 132.5000 1.5258789E-06 + -22.50000 132.5000 1.1865235E-07 + -21.50000 132.5000 3.7078859E-04 + -20.50000 132.5000 1.5625000E-03 + -19.50000 132.5000 1.5625000E-03 + -18.50000 132.5000 0.0000000E+00 + -17.50000 132.5000 0.0000000E+00 + -16.50000 132.5000 0.0000000E+00 + -15.50000 132.5000 0.0000000E+00 + -14.50000 132.5000 0.0000000E+00 + -13.50000 132.5000 0.0000000E+00 + -12.50000 132.5000 0.0000000E+00 + -11.50000 132.5000 0.0000000E+00 + -10.50000 132.5000 0.0000000E+00 + -9.500000 132.5000 0.0000000E+00 + -8.500000 132.5000 0.0000000E+00 + -7.500000 132.5000 0.0000000E+00 + -6.500000 132.5000 0.0000000E+00 + -5.500000 132.5000 0.0000000E+00 + -4.500000 132.5000 0.0000000E+00 + -3.500000 132.5000 0.0000000E+00 + -2.500000 132.5000 0.0000000E+00 + -1.500000 132.5000 0.0000000E+00 + -0.5000000 132.5000 0.0000000E+00 + 0.5000000 132.5000 0.0000000E+00 + 1.500000 132.5000 0.0000000E+00 + 2.500000 132.5000 0.0000000E+00 + 3.500000 132.5000 0.0000000E+00 + 4.500000 132.5000 0.0000000E+00 + 5.500000 132.5000 0.0000000E+00 + 6.500000 132.5000 0.0000000E+00 + 7.500000 132.5000 0.0000000E+00 + 8.500000 132.5000 0.0000000E+00 + 9.500000 132.5000 0.0000000E+00 + 10.50000 132.5000 0.0000000E+00 + 11.50000 132.5000 0.0000000E+00 + 12.50000 132.5000 0.0000000E+00 + 13.50000 132.5000 0.0000000E+00 + 14.50000 132.5000 0.0000000E+00 + 15.50000 132.5000 0.0000000E+00 + 16.50000 132.5000 0.0000000E+00 + 17.50000 132.5000 0.0000000E+00 + 18.50000 132.5000 0.0000000E+00 + 19.50000 132.5000 0.0000000E+00 + 20.50000 132.5000 0.0000000E+00 + 21.50000 132.5000 0.0000000E+00 + 22.50000 132.5000 0.0000000E+00 + 23.50000 132.5000 0.0000000E+00 + 24.50000 132.5000 0.0000000E+00 + 25.50000 132.5000 0.0000000E+00 + 26.50000 132.5000 0.0000000E+00 + 27.50000 132.5000 0.0000000E+00 + 28.50000 132.5000 0.0000000E+00 + 29.50000 132.5000 0.0000000E+00 + 30.50000 132.5000 0.0000000E+00 + 31.50000 132.5000 0.0000000E+00 + 32.50000 132.5000 0.0000000E+00 + 33.50000 132.5000 0.0000000E+00 + 34.50000 132.5000 0.0000000E+00 + 35.50000 132.5000 0.0000000E+00 + 36.50000 132.5000 0.0000000E+00 + 37.50000 132.5000 0.0000000E+00 + 38.50000 132.5000 0.0000000E+00 + 39.50000 132.5000 0.0000000E+00 + 40.50000 132.5000 0.0000000E+00 + 41.50000 132.5000 0.0000000E+00 + 42.50000 132.5000 0.0000000E+00 + 43.50000 132.5000 0.0000000E+00 + 44.50000 132.5000 0.0000000E+00 + 45.50000 132.5000 0.0000000E+00 + 46.50000 132.5000 0.0000000E+00 + 47.50000 132.5000 0.0000000E+00 + 48.50000 132.5000 0.0000000E+00 + 49.50000 132.5000 0.0000000E+00 + 50.50000 132.5000 0.0000000E+00 + 51.50000 132.5000 0.0000000E+00 + 52.50000 132.5000 0.0000000E+00 + 53.50000 132.5000 0.0000000E+00 + 54.50000 132.5000 0.0000000E+00 + 55.50000 132.5000 0.0000000E+00 + 56.50000 132.5000 0.0000000E+00 + 57.50000 132.5000 0.0000000E+00 + 58.50000 132.5000 0.0000000E+00 + 59.50000 132.5000 0.0000000E+00 + 60.50000 132.5000 0.0000000E+00 + 61.50000 132.5000 0.0000000E+00 + 62.50000 132.5000 0.0000000E+00 + 63.50000 132.5000 0.0000000E+00 + 64.50000 132.5000 0.0000000E+00 + 65.50000 132.5000 0.0000000E+00 + 66.50000 132.5000 0.0000000E+00 + 67.50000 132.5000 0.0000000E+00 + 68.50000 132.5000 0.0000000E+00 + 69.50000 132.5000 0.0000000E+00 + 70.50000 132.5000 0.0000000E+00 + 71.50000 132.5000 0.0000000E+00 + 72.50000 132.5000 0.0000000E+00 + 73.50000 132.5000 0.0000000E+00 + 74.50000 132.5000 0.0000000E+00 + 75.50000 132.5000 0.0000000E+00 + 76.50000 132.5000 0.0000000E+00 + 77.50000 132.5000 0.0000000E+00 + 78.50000 132.5000 0.0000000E+00 + 79.50000 132.5000 0.0000000E+00 + 80.50000 132.5000 0.0000000E+00 + 81.50000 132.5000 0.0000000E+00 + 82.50000 132.5000 0.0000000E+00 + 83.50000 132.5000 0.0000000E+00 + 84.50000 132.5000 0.0000000E+00 + 85.50000 132.5000 0.0000000E+00 + 86.50000 132.5000 0.0000000E+00 + 87.50000 132.5000 0.0000000E+00 + 88.50000 132.5000 0.0000000E+00 + 89.50000 132.5000 0.0000000E+00 + -89.50000 133.5000 0.0000000E+00 + -88.50000 133.5000 0.0000000E+00 + -87.50000 133.5000 0.0000000E+00 + -86.50000 133.5000 0.0000000E+00 + -85.50000 133.5000 0.0000000E+00 + -84.50000 133.5000 0.0000000E+00 + -83.50000 133.5000 0.0000000E+00 + -82.50000 133.5000 0.0000000E+00 + -81.50000 133.5000 0.0000000E+00 + -80.50000 133.5000 0.0000000E+00 + -79.50000 133.5000 0.0000000E+00 + -78.50000 133.5000 0.0000000E+00 + -77.50000 133.5000 0.0000000E+00 + -76.50000 133.5000 0.0000000E+00 + -75.50000 133.5000 0.0000000E+00 + -74.50000 133.5000 0.0000000E+00 + -73.50000 133.5000 0.0000000E+00 + -72.50000 133.5000 0.0000000E+00 + -71.50000 133.5000 0.0000000E+00 + -70.50000 133.5000 0.0000000E+00 + -69.50000 133.5000 0.0000000E+00 + -68.50000 133.5000 0.0000000E+00 + -67.50000 133.5000 0.0000000E+00 + -66.50000 133.5000 0.0000000E+00 + -65.50000 133.5000 0.0000000E+00 + -64.50000 133.5000 0.0000000E+00 + -63.50000 133.5000 0.0000000E+00 + -62.50000 133.5000 0.0000000E+00 + -61.50000 133.5000 0.0000000E+00 + -60.50000 133.5000 0.0000000E+00 + -59.50000 133.5000 0.0000000E+00 + -58.50000 133.5000 0.0000000E+00 + -57.50000 133.5000 0.0000000E+00 + -56.50000 133.5000 0.0000000E+00 + -55.50000 133.5000 0.0000000E+00 + -54.50000 133.5000 0.0000000E+00 + -53.50000 133.5000 0.0000000E+00 + -52.50000 133.5000 0.0000000E+00 + -51.50000 133.5000 0.0000000E+00 + -50.50000 133.5000 0.0000000E+00 + -49.50000 133.5000 0.0000000E+00 + -48.50000 133.5000 0.0000000E+00 + -47.50000 133.5000 0.0000000E+00 + -46.50000 133.5000 0.0000000E+00 + -45.50000 133.5000 0.0000000E+00 + -44.50000 133.5000 0.0000000E+00 + -43.50000 133.5000 0.0000000E+00 + -42.50000 133.5000 0.0000000E+00 + -41.50000 133.5000 0.0000000E+00 + -40.50000 133.5000 0.0000000E+00 + -39.50000 133.5000 0.0000000E+00 + -38.50000 133.5000 0.0000000E+00 + -37.50000 133.5000 0.0000000E+00 + -36.50000 133.5000 0.0000000E+00 + -35.50000 133.5000 0.0000000E+00 + -34.50000 133.5000 0.0000000E+00 + -33.50000 133.5000 0.0000000E+00 + -32.50000 133.5000 0.0000000E+00 + -31.50000 133.5000 8.4934738E-03 + -30.50000 133.5000 9.2967218E-03 + -29.50000 133.5000 1.1865235E-02 + -28.50000 133.5000 4.7683716E-03 + -27.50000 133.5000 4.7683716E-03 + -26.50000 133.5000 4.7683716E-03 + -25.50000 133.5000 4.7683716E-03 + -24.50000 133.5000 1.5625000E-03 + -23.50000 133.5000 2.4574435E-06 + -22.50000 133.5000 0.0000000E+00 + -21.50000 133.5000 4.8828126E-05 + -20.50000 133.5000 1.5625000E-03 + -19.50000 133.5000 1.5625000E-03 + -18.50000 133.5000 0.0000000E+00 + -17.50000 133.5000 0.0000000E+00 + -16.50000 133.5000 0.0000000E+00 + -15.50000 133.5000 0.0000000E+00 + -14.50000 133.5000 0.0000000E+00 + -13.50000 133.5000 0.0000000E+00 + -12.50000 133.5000 0.0000000E+00 + -11.50000 133.5000 0.0000000E+00 + -10.50000 133.5000 0.0000000E+00 + -9.500000 133.5000 0.0000000E+00 + -8.500000 133.5000 0.0000000E+00 + -7.500000 133.5000 0.0000000E+00 + -6.500000 133.5000 0.0000000E+00 + -5.500000 133.5000 0.0000000E+00 + -4.500000 133.5000 0.0000000E+00 + -3.500000 133.5000 0.0000000E+00 + -2.500000 133.5000 0.0000000E+00 + -1.500000 133.5000 0.0000000E+00 + -0.5000000 133.5000 0.0000000E+00 + 0.5000000 133.5000 0.0000000E+00 + 1.500000 133.5000 0.0000000E+00 + 2.500000 133.5000 0.0000000E+00 + 3.500000 133.5000 0.0000000E+00 + 4.500000 133.5000 0.0000000E+00 + 5.500000 133.5000 0.0000000E+00 + 6.500000 133.5000 0.0000000E+00 + 7.500000 133.5000 0.0000000E+00 + 8.500000 133.5000 0.0000000E+00 + 9.500000 133.5000 0.0000000E+00 + 10.50000 133.5000 0.0000000E+00 + 11.50000 133.5000 0.0000000E+00 + 12.50000 133.5000 0.0000000E+00 + 13.50000 133.5000 0.0000000E+00 + 14.50000 133.5000 0.0000000E+00 + 15.50000 133.5000 0.0000000E+00 + 16.50000 133.5000 0.0000000E+00 + 17.50000 133.5000 0.0000000E+00 + 18.50000 133.5000 0.0000000E+00 + 19.50000 133.5000 0.0000000E+00 + 20.50000 133.5000 0.0000000E+00 + 21.50000 133.5000 0.0000000E+00 + 22.50000 133.5000 0.0000000E+00 + 23.50000 133.5000 0.0000000E+00 + 24.50000 133.5000 0.0000000E+00 + 25.50000 133.5000 0.0000000E+00 + 26.50000 133.5000 0.0000000E+00 + 27.50000 133.5000 0.0000000E+00 + 28.50000 133.5000 0.0000000E+00 + 29.50000 133.5000 0.0000000E+00 + 30.50000 133.5000 0.0000000E+00 + 31.50000 133.5000 0.0000000E+00 + 32.50000 133.5000 0.0000000E+00 + 33.50000 133.5000 0.0000000E+00 + 34.50000 133.5000 0.0000000E+00 + 35.50000 133.5000 0.0000000E+00 + 36.50000 133.5000 0.0000000E+00 + 37.50000 133.5000 0.0000000E+00 + 38.50000 133.5000 0.0000000E+00 + 39.50000 133.5000 0.0000000E+00 + 40.50000 133.5000 0.0000000E+00 + 41.50000 133.5000 0.0000000E+00 + 42.50000 133.5000 0.0000000E+00 + 43.50000 133.5000 0.0000000E+00 + 44.50000 133.5000 0.0000000E+00 + 45.50000 133.5000 0.0000000E+00 + 46.50000 133.5000 0.0000000E+00 + 47.50000 133.5000 0.0000000E+00 + 48.50000 133.5000 0.0000000E+00 + 49.50000 133.5000 0.0000000E+00 + 50.50000 133.5000 0.0000000E+00 + 51.50000 133.5000 0.0000000E+00 + 52.50000 133.5000 0.0000000E+00 + 53.50000 133.5000 0.0000000E+00 + 54.50000 133.5000 0.0000000E+00 + 55.50000 133.5000 0.0000000E+00 + 56.50000 133.5000 0.0000000E+00 + 57.50000 133.5000 0.0000000E+00 + 58.50000 133.5000 0.0000000E+00 + 59.50000 133.5000 0.0000000E+00 + 60.50000 133.5000 0.0000000E+00 + 61.50000 133.5000 0.0000000E+00 + 62.50000 133.5000 0.0000000E+00 + 63.50000 133.5000 0.0000000E+00 + 64.50000 133.5000 0.0000000E+00 + 65.50000 133.5000 0.0000000E+00 + 66.50000 133.5000 0.0000000E+00 + 67.50000 133.5000 0.0000000E+00 + 68.50000 133.5000 0.0000000E+00 + 69.50000 133.5000 0.0000000E+00 + 70.50000 133.5000 0.0000000E+00 + 71.50000 133.5000 0.0000000E+00 + 72.50000 133.5000 0.0000000E+00 + 73.50000 133.5000 0.0000000E+00 + 74.50000 133.5000 0.0000000E+00 + 75.50000 133.5000 0.0000000E+00 + 76.50000 133.5000 0.0000000E+00 + 77.50000 133.5000 0.0000000E+00 + 78.50000 133.5000 0.0000000E+00 + 79.50000 133.5000 0.0000000E+00 + 80.50000 133.5000 0.0000000E+00 + 81.50000 133.5000 0.0000000E+00 + 82.50000 133.5000 0.0000000E+00 + 83.50000 133.5000 0.0000000E+00 + 84.50000 133.5000 0.0000000E+00 + 85.50000 133.5000 0.0000000E+00 + 86.50000 133.5000 0.0000000E+00 + 87.50000 133.5000 0.0000000E+00 + 88.50000 133.5000 0.0000000E+00 + 89.50000 133.5000 0.0000000E+00 + -89.50000 134.5000 0.0000000E+00 + -88.50000 134.5000 0.0000000E+00 + -87.50000 134.5000 0.0000000E+00 + -86.50000 134.5000 0.0000000E+00 + -85.50000 134.5000 0.0000000E+00 + -84.50000 134.5000 0.0000000E+00 + -83.50000 134.5000 0.0000000E+00 + -82.50000 134.5000 0.0000000E+00 + -81.50000 134.5000 0.0000000E+00 + -80.50000 134.5000 0.0000000E+00 + -79.50000 134.5000 0.0000000E+00 + -78.50000 134.5000 0.0000000E+00 + -77.50000 134.5000 0.0000000E+00 + -76.50000 134.5000 0.0000000E+00 + -75.50000 134.5000 0.0000000E+00 + -74.50000 134.5000 0.0000000E+00 + -73.50000 134.5000 0.0000000E+00 + -72.50000 134.5000 0.0000000E+00 + -71.50000 134.5000 0.0000000E+00 + -70.50000 134.5000 0.0000000E+00 + -69.50000 134.5000 0.0000000E+00 + -68.50000 134.5000 0.0000000E+00 + -67.50000 134.5000 0.0000000E+00 + -66.50000 134.5000 0.0000000E+00 + -65.50000 134.5000 0.0000000E+00 + -64.50000 134.5000 0.0000000E+00 + -63.50000 134.5000 0.0000000E+00 + -62.50000 134.5000 0.0000000E+00 + -61.50000 134.5000 0.0000000E+00 + -60.50000 134.5000 0.0000000E+00 + -59.50000 134.5000 0.0000000E+00 + -58.50000 134.5000 0.0000000E+00 + -57.50000 134.5000 0.0000000E+00 + -56.50000 134.5000 0.0000000E+00 + -55.50000 134.5000 0.0000000E+00 + -54.50000 134.5000 0.0000000E+00 + -53.50000 134.5000 0.0000000E+00 + -52.50000 134.5000 0.0000000E+00 + -51.50000 134.5000 0.0000000E+00 + -50.50000 134.5000 0.0000000E+00 + -49.50000 134.5000 0.0000000E+00 + -48.50000 134.5000 0.0000000E+00 + -47.50000 134.5000 0.0000000E+00 + -46.50000 134.5000 0.0000000E+00 + -45.50000 134.5000 0.0000000E+00 + -44.50000 134.5000 0.0000000E+00 + -43.50000 134.5000 0.0000000E+00 + -42.50000 134.5000 0.0000000E+00 + -41.50000 134.5000 0.0000000E+00 + -40.50000 134.5000 0.0000000E+00 + -39.50000 134.5000 0.0000000E+00 + -38.50000 134.5000 0.0000000E+00 + -37.50000 134.5000 0.0000000E+00 + -36.50000 134.5000 0.0000000E+00 + -35.50000 134.5000 0.0000000E+00 + -34.50000 134.5000 0.0000000E+00 + -33.50000 134.5000 0.0000000E+00 + -32.50000 134.5000 0.0000000E+00 + -31.50000 134.5000 8.4934738E-03 + -30.50000 134.5000 9.2967218E-03 + -29.50000 134.5000 1.1865235E-02 + -28.50000 134.5000 5.9326172E-02 + -27.50000 134.5000 1.1865235E-02 + -26.50000 134.5000 1.1865235E-02 + -25.50000 134.5000 1.1865235E-02 + -24.50000 134.5000 7.6795104E-03 + -23.50000 134.5000 1.5625000E-03 + -22.50000 134.5000 4.8828126E-05 + -21.50000 134.5000 3.7078859E-04 + -20.50000 134.5000 1.5625000E-03 + -19.50000 134.5000 1.5625000E-03 + -18.50000 134.5000 0.0000000E+00 + -17.50000 134.5000 0.0000000E+00 + -16.50000 134.5000 0.0000000E+00 + -15.50000 134.5000 0.0000000E+00 + -14.50000 134.5000 0.0000000E+00 + -13.50000 134.5000 0.0000000E+00 + -12.50000 134.5000 0.0000000E+00 + -11.50000 134.5000 0.0000000E+00 + -10.50000 134.5000 0.0000000E+00 + -9.500000 134.5000 0.0000000E+00 + -8.500000 134.5000 0.0000000E+00 + -7.500000 134.5000 0.0000000E+00 + -6.500000 134.5000 0.0000000E+00 + -5.500000 134.5000 0.0000000E+00 + -4.500000 134.5000 0.0000000E+00 + -3.500000 134.5000 0.0000000E+00 + -2.500000 134.5000 0.0000000E+00 + -1.500000 134.5000 0.0000000E+00 + -0.5000000 134.5000 0.0000000E+00 + 0.5000000 134.5000 0.0000000E+00 + 1.500000 134.5000 0.0000000E+00 + 2.500000 134.5000 0.0000000E+00 + 3.500000 134.5000 0.0000000E+00 + 4.500000 134.5000 0.0000000E+00 + 5.500000 134.5000 0.0000000E+00 + 6.500000 134.5000 0.0000000E+00 + 7.500000 134.5000 0.0000000E+00 + 8.500000 134.5000 0.0000000E+00 + 9.500000 134.5000 0.0000000E+00 + 10.50000 134.5000 0.0000000E+00 + 11.50000 134.5000 0.0000000E+00 + 12.50000 134.5000 0.0000000E+00 + 13.50000 134.5000 0.0000000E+00 + 14.50000 134.5000 0.0000000E+00 + 15.50000 134.5000 0.0000000E+00 + 16.50000 134.5000 0.0000000E+00 + 17.50000 134.5000 0.0000000E+00 + 18.50000 134.5000 0.0000000E+00 + 19.50000 134.5000 0.0000000E+00 + 20.50000 134.5000 0.0000000E+00 + 21.50000 134.5000 0.0000000E+00 + 22.50000 134.5000 0.0000000E+00 + 23.50000 134.5000 0.0000000E+00 + 24.50000 134.5000 0.0000000E+00 + 25.50000 134.5000 0.0000000E+00 + 26.50000 134.5000 0.0000000E+00 + 27.50000 134.5000 0.0000000E+00 + 28.50000 134.5000 0.0000000E+00 + 29.50000 134.5000 0.0000000E+00 + 30.50000 134.5000 0.0000000E+00 + 31.50000 134.5000 0.0000000E+00 + 32.50000 134.5000 0.0000000E+00 + 33.50000 134.5000 0.0000000E+00 + 34.50000 134.5000 0.0000000E+00 + 35.50000 134.5000 0.0000000E+00 + 36.50000 134.5000 0.0000000E+00 + 37.50000 134.5000 0.0000000E+00 + 38.50000 134.5000 0.0000000E+00 + 39.50000 134.5000 0.0000000E+00 + 40.50000 134.5000 0.0000000E+00 + 41.50000 134.5000 0.0000000E+00 + 42.50000 134.5000 0.0000000E+00 + 43.50000 134.5000 0.0000000E+00 + 44.50000 134.5000 0.0000000E+00 + 45.50000 134.5000 0.0000000E+00 + 46.50000 134.5000 0.0000000E+00 + 47.50000 134.5000 0.0000000E+00 + 48.50000 134.5000 0.0000000E+00 + 49.50000 134.5000 0.0000000E+00 + 50.50000 134.5000 0.0000000E+00 + 51.50000 134.5000 0.0000000E+00 + 52.50000 134.5000 0.0000000E+00 + 53.50000 134.5000 0.0000000E+00 + 54.50000 134.5000 0.0000000E+00 + 55.50000 134.5000 0.0000000E+00 + 56.50000 134.5000 0.0000000E+00 + 57.50000 134.5000 0.0000000E+00 + 58.50000 134.5000 0.0000000E+00 + 59.50000 134.5000 0.0000000E+00 + 60.50000 134.5000 0.0000000E+00 + 61.50000 134.5000 0.0000000E+00 + 62.50000 134.5000 0.0000000E+00 + 63.50000 134.5000 0.0000000E+00 + 64.50000 134.5000 0.0000000E+00 + 65.50000 134.5000 0.0000000E+00 + 66.50000 134.5000 0.0000000E+00 + 67.50000 134.5000 0.0000000E+00 + 68.50000 134.5000 0.0000000E+00 + 69.50000 134.5000 0.0000000E+00 + 70.50000 134.5000 0.0000000E+00 + 71.50000 134.5000 0.0000000E+00 + 72.50000 134.5000 0.0000000E+00 + 73.50000 134.5000 0.0000000E+00 + 74.50000 134.5000 0.0000000E+00 + 75.50000 134.5000 0.0000000E+00 + 76.50000 134.5000 0.0000000E+00 + 77.50000 134.5000 0.0000000E+00 + 78.50000 134.5000 0.0000000E+00 + 79.50000 134.5000 0.0000000E+00 + 80.50000 134.5000 0.0000000E+00 + 81.50000 134.5000 0.0000000E+00 + 82.50000 134.5000 0.0000000E+00 + 83.50000 134.5000 0.0000000E+00 + 84.50000 134.5000 0.0000000E+00 + 85.50000 134.5000 0.0000000E+00 + 86.50000 134.5000 0.0000000E+00 + 87.50000 134.5000 0.0000000E+00 + 88.50000 134.5000 0.0000000E+00 + 89.50000 134.5000 0.0000000E+00 + -89.50000 135.5000 0.0000000E+00 + -88.50000 135.5000 0.0000000E+00 + -87.50000 135.5000 0.0000000E+00 + -86.50000 135.5000 0.0000000E+00 + -85.50000 135.5000 0.0000000E+00 + -84.50000 135.5000 0.0000000E+00 + -83.50000 135.5000 0.0000000E+00 + -82.50000 135.5000 0.0000000E+00 + -81.50000 135.5000 0.0000000E+00 + -80.50000 135.5000 0.0000000E+00 + -79.50000 135.5000 0.0000000E+00 + -78.50000 135.5000 0.0000000E+00 + -77.50000 135.5000 0.0000000E+00 + -76.50000 135.5000 0.0000000E+00 + -75.50000 135.5000 0.0000000E+00 + -74.50000 135.5000 0.0000000E+00 + -73.50000 135.5000 0.0000000E+00 + -72.50000 135.5000 0.0000000E+00 + -71.50000 135.5000 0.0000000E+00 + -70.50000 135.5000 0.0000000E+00 + -69.50000 135.5000 0.0000000E+00 + -68.50000 135.5000 0.0000000E+00 + -67.50000 135.5000 0.0000000E+00 + -66.50000 135.5000 0.0000000E+00 + -65.50000 135.5000 0.0000000E+00 + -64.50000 135.5000 0.0000000E+00 + -63.50000 135.5000 0.0000000E+00 + -62.50000 135.5000 0.0000000E+00 + -61.50000 135.5000 0.0000000E+00 + -60.50000 135.5000 0.0000000E+00 + -59.50000 135.5000 0.0000000E+00 + -58.50000 135.5000 0.0000000E+00 + -57.50000 135.5000 0.0000000E+00 + -56.50000 135.5000 0.0000000E+00 + -55.50000 135.5000 0.0000000E+00 + -54.50000 135.5000 0.0000000E+00 + -53.50000 135.5000 0.0000000E+00 + -52.50000 135.5000 0.0000000E+00 + -51.50000 135.5000 0.0000000E+00 + -50.50000 135.5000 0.0000000E+00 + -49.50000 135.5000 0.0000000E+00 + -48.50000 135.5000 0.0000000E+00 + -47.50000 135.5000 0.0000000E+00 + -46.50000 135.5000 0.0000000E+00 + -45.50000 135.5000 0.0000000E+00 + -44.50000 135.5000 0.0000000E+00 + -43.50000 135.5000 0.0000000E+00 + -42.50000 135.5000 0.0000000E+00 + -41.50000 135.5000 0.0000000E+00 + -40.50000 135.5000 0.0000000E+00 + -39.50000 135.5000 0.0000000E+00 + -38.50000 135.5000 0.0000000E+00 + -37.50000 135.5000 0.0000000E+00 + -36.50000 135.5000 0.0000000E+00 + -35.50000 135.5000 0.0000000E+00 + -34.50000 135.5000 0.0000000E+00 + -33.50000 135.5000 0.0000000E+00 + -32.50000 135.5000 0.0000000E+00 + -31.50000 135.5000 2.2282830E-02 + -30.50000 135.5000 9.2967218E-03 + -29.50000 135.5000 1.1865235E-02 + -28.50000 135.5000 5.9326172E-02 + -27.50000 135.5000 5.9326172E-02 + -26.50000 135.5000 1.1865235E-02 + -25.50000 135.5000 1.1865235E-02 + -24.50000 135.5000 1.1865235E-02 + -23.50000 135.5000 1.1865235E-02 + -22.50000 135.5000 1.5625000E-03 + -21.50000 135.5000 3.7078859E-04 + -20.50000 135.5000 1.5625000E-03 + -19.50000 135.5000 4.7683716E-03 + -18.50000 135.5000 0.0000000E+00 + -17.50000 135.5000 0.0000000E+00 + -16.50000 135.5000 0.0000000E+00 + -15.50000 135.5000 0.0000000E+00 + -14.50000 135.5000 0.0000000E+00 + -13.50000 135.5000 0.0000000E+00 + -12.50000 135.5000 0.0000000E+00 + -11.50000 135.5000 0.0000000E+00 + -10.50000 135.5000 0.0000000E+00 + -9.500000 135.5000 0.0000000E+00 + -8.500000 135.5000 0.0000000E+00 + -7.500000 135.5000 0.0000000E+00 + -6.500000 135.5000 0.0000000E+00 + -5.500000 135.5000 0.0000000E+00 + -4.500000 135.5000 0.0000000E+00 + -3.500000 135.5000 0.0000000E+00 + -2.500000 135.5000 0.0000000E+00 + -1.500000 135.5000 0.0000000E+00 + -0.5000000 135.5000 0.0000000E+00 + 0.5000000 135.5000 0.0000000E+00 + 1.500000 135.5000 0.0000000E+00 + 2.500000 135.5000 0.0000000E+00 + 3.500000 135.5000 0.0000000E+00 + 4.500000 135.5000 0.0000000E+00 + 5.500000 135.5000 0.0000000E+00 + 6.500000 135.5000 0.0000000E+00 + 7.500000 135.5000 0.0000000E+00 + 8.500000 135.5000 0.0000000E+00 + 9.500000 135.5000 0.0000000E+00 + 10.50000 135.5000 0.0000000E+00 + 11.50000 135.5000 0.0000000E+00 + 12.50000 135.5000 0.0000000E+00 + 13.50000 135.5000 0.0000000E+00 + 14.50000 135.5000 0.0000000E+00 + 15.50000 135.5000 0.0000000E+00 + 16.50000 135.5000 0.0000000E+00 + 17.50000 135.5000 0.0000000E+00 + 18.50000 135.5000 0.0000000E+00 + 19.50000 135.5000 0.0000000E+00 + 20.50000 135.5000 0.0000000E+00 + 21.50000 135.5000 0.0000000E+00 + 22.50000 135.5000 0.0000000E+00 + 23.50000 135.5000 0.0000000E+00 + 24.50000 135.5000 0.0000000E+00 + 25.50000 135.5000 0.0000000E+00 + 26.50000 135.5000 0.0000000E+00 + 27.50000 135.5000 0.0000000E+00 + 28.50000 135.5000 0.0000000E+00 + 29.50000 135.5000 0.0000000E+00 + 30.50000 135.5000 0.0000000E+00 + 31.50000 135.5000 0.0000000E+00 + 32.50000 135.5000 0.0000000E+00 + 33.50000 135.5000 0.0000000E+00 + 34.50000 135.5000 0.0000000E+00 + 35.50000 135.5000 0.0000000E+00 + 36.50000 135.5000 0.0000000E+00 + 37.50000 135.5000 0.0000000E+00 + 38.50000 135.5000 0.0000000E+00 + 39.50000 135.5000 0.0000000E+00 + 40.50000 135.5000 0.0000000E+00 + 41.50000 135.5000 0.0000000E+00 + 42.50000 135.5000 0.0000000E+00 + 43.50000 135.5000 0.0000000E+00 + 44.50000 135.5000 0.0000000E+00 + 45.50000 135.5000 0.0000000E+00 + 46.50000 135.5000 0.0000000E+00 + 47.50000 135.5000 0.0000000E+00 + 48.50000 135.5000 0.0000000E+00 + 49.50000 135.5000 0.0000000E+00 + 50.50000 135.5000 0.0000000E+00 + 51.50000 135.5000 0.0000000E+00 + 52.50000 135.5000 0.0000000E+00 + 53.50000 135.5000 0.0000000E+00 + 54.50000 135.5000 0.0000000E+00 + 55.50000 135.5000 0.0000000E+00 + 56.50000 135.5000 0.0000000E+00 + 57.50000 135.5000 0.0000000E+00 + 58.50000 135.5000 0.0000000E+00 + 59.50000 135.5000 0.0000000E+00 + 60.50000 135.5000 0.0000000E+00 + 61.50000 135.5000 0.0000000E+00 + 62.50000 135.5000 0.0000000E+00 + 63.50000 135.5000 0.0000000E+00 + 64.50000 135.5000 0.0000000E+00 + 65.50000 135.5000 0.0000000E+00 + 66.50000 135.5000 0.0000000E+00 + 67.50000 135.5000 0.0000000E+00 + 68.50000 135.5000 0.0000000E+00 + 69.50000 135.5000 0.0000000E+00 + 70.50000 135.5000 0.0000000E+00 + 71.50000 135.5000 0.0000000E+00 + 72.50000 135.5000 0.0000000E+00 + 73.50000 135.5000 0.0000000E+00 + 74.50000 135.5000 0.0000000E+00 + 75.50000 135.5000 0.0000000E+00 + 76.50000 135.5000 0.0000000E+00 + 77.50000 135.5000 0.0000000E+00 + 78.50000 135.5000 0.0000000E+00 + 79.50000 135.5000 0.0000000E+00 + 80.50000 135.5000 0.0000000E+00 + 81.50000 135.5000 0.0000000E+00 + 82.50000 135.5000 0.0000000E+00 + 83.50000 135.5000 0.0000000E+00 + 84.50000 135.5000 0.0000000E+00 + 85.50000 135.5000 0.0000000E+00 + 86.50000 135.5000 0.0000000E+00 + 87.50000 135.5000 0.0000000E+00 + 88.50000 135.5000 0.0000000E+00 + 89.50000 135.5000 0.0000000E+00 + -89.50000 136.5000 0.0000000E+00 + -88.50000 136.5000 0.0000000E+00 + -87.50000 136.5000 0.0000000E+00 + -86.50000 136.5000 0.0000000E+00 + -85.50000 136.5000 0.0000000E+00 + -84.50000 136.5000 0.0000000E+00 + -83.50000 136.5000 0.0000000E+00 + -82.50000 136.5000 0.0000000E+00 + -81.50000 136.5000 0.0000000E+00 + -80.50000 136.5000 0.0000000E+00 + -79.50000 136.5000 0.0000000E+00 + -78.50000 136.5000 0.0000000E+00 + -77.50000 136.5000 0.0000000E+00 + -76.50000 136.5000 0.0000000E+00 + -75.50000 136.5000 0.0000000E+00 + -74.50000 136.5000 0.0000000E+00 + -73.50000 136.5000 0.0000000E+00 + -72.50000 136.5000 0.0000000E+00 + -71.50000 136.5000 0.0000000E+00 + -70.50000 136.5000 0.0000000E+00 + -69.50000 136.5000 0.0000000E+00 + -68.50000 136.5000 0.0000000E+00 + -67.50000 136.5000 0.0000000E+00 + -66.50000 136.5000 0.0000000E+00 + -65.50000 136.5000 0.0000000E+00 + -64.50000 136.5000 0.0000000E+00 + -63.50000 136.5000 0.0000000E+00 + -62.50000 136.5000 0.0000000E+00 + -61.50000 136.5000 0.0000000E+00 + -60.50000 136.5000 0.0000000E+00 + -59.50000 136.5000 0.0000000E+00 + -58.50000 136.5000 0.0000000E+00 + -57.50000 136.5000 0.0000000E+00 + -56.50000 136.5000 0.0000000E+00 + -55.50000 136.5000 0.0000000E+00 + -54.50000 136.5000 0.0000000E+00 + -53.50000 136.5000 0.0000000E+00 + -52.50000 136.5000 0.0000000E+00 + -51.50000 136.5000 0.0000000E+00 + -50.50000 136.5000 0.0000000E+00 + -49.50000 136.5000 0.0000000E+00 + -48.50000 136.5000 0.0000000E+00 + -47.50000 136.5000 0.0000000E+00 + -46.50000 136.5000 0.0000000E+00 + -45.50000 136.5000 0.0000000E+00 + -44.50000 136.5000 0.0000000E+00 + -43.50000 136.5000 0.0000000E+00 + -42.50000 136.5000 0.0000000E+00 + -41.50000 136.5000 0.0000000E+00 + -40.50000 136.5000 0.0000000E+00 + -39.50000 136.5000 0.0000000E+00 + -38.50000 136.5000 0.0000000E+00 + -37.50000 136.5000 0.0000000E+00 + -36.50000 136.5000 0.0000000E+00 + -35.50000 136.5000 0.0000000E+00 + -34.50000 136.5000 0.0000000E+00 + -33.50000 136.5000 0.0000000E+00 + -32.50000 136.5000 8.4934738E-03 + -31.50000 136.5000 8.4934738E-03 + -30.50000 136.5000 9.2967218E-03 + -29.50000 136.5000 1.1865235E-02 + -28.50000 136.5000 0.1282272 + -27.50000 136.5000 0.1282272 + -26.50000 136.5000 2.5645448E-02 + -25.50000 136.5000 1.1865235E-02 + -24.50000 136.5000 1.1865235E-02 + -23.50000 136.5000 1.1865235E-02 + -22.50000 136.5000 4.7683716E-03 + -21.50000 136.5000 1.5625000E-03 + -20.50000 136.5000 1.5625000E-03 + -19.50000 136.5000 0.0000000E+00 + -18.50000 136.5000 0.0000000E+00 + -17.50000 136.5000 0.0000000E+00 + -16.50000 136.5000 0.0000000E+00 + -15.50000 136.5000 0.0000000E+00 + -14.50000 136.5000 0.0000000E+00 + -13.50000 136.5000 0.0000000E+00 + -12.50000 136.5000 0.0000000E+00 + -11.50000 136.5000 0.0000000E+00 + -10.50000 136.5000 0.0000000E+00 + -9.500000 136.5000 0.0000000E+00 + -8.500000 136.5000 0.0000000E+00 + -7.500000 136.5000 0.0000000E+00 + -6.500000 136.5000 0.0000000E+00 + -5.500000 136.5000 0.0000000E+00 + -4.500000 136.5000 0.0000000E+00 + -3.500000 136.5000 0.0000000E+00 + -2.500000 136.5000 0.0000000E+00 + -1.500000 136.5000 0.0000000E+00 + -0.5000000 136.5000 0.0000000E+00 + 0.5000000 136.5000 0.0000000E+00 + 1.500000 136.5000 0.0000000E+00 + 2.500000 136.5000 0.0000000E+00 + 3.500000 136.5000 0.0000000E+00 + 4.500000 136.5000 0.0000000E+00 + 5.500000 136.5000 0.0000000E+00 + 6.500000 136.5000 0.0000000E+00 + 7.500000 136.5000 0.0000000E+00 + 8.500000 136.5000 0.0000000E+00 + 9.500000 136.5000 0.0000000E+00 + 10.50000 136.5000 0.0000000E+00 + 11.50000 136.5000 0.0000000E+00 + 12.50000 136.5000 0.0000000E+00 + 13.50000 136.5000 0.0000000E+00 + 14.50000 136.5000 0.0000000E+00 + 15.50000 136.5000 0.0000000E+00 + 16.50000 136.5000 0.0000000E+00 + 17.50000 136.5000 0.0000000E+00 + 18.50000 136.5000 0.0000000E+00 + 19.50000 136.5000 0.0000000E+00 + 20.50000 136.5000 0.0000000E+00 + 21.50000 136.5000 0.0000000E+00 + 22.50000 136.5000 0.0000000E+00 + 23.50000 136.5000 0.0000000E+00 + 24.50000 136.5000 0.0000000E+00 + 25.50000 136.5000 0.0000000E+00 + 26.50000 136.5000 0.0000000E+00 + 27.50000 136.5000 0.0000000E+00 + 28.50000 136.5000 0.0000000E+00 + 29.50000 136.5000 0.0000000E+00 + 30.50000 136.5000 0.0000000E+00 + 31.50000 136.5000 0.0000000E+00 + 32.50000 136.5000 0.0000000E+00 + 33.50000 136.5000 0.0000000E+00 + 34.50000 136.5000 0.0000000E+00 + 35.50000 136.5000 0.0000000E+00 + 36.50000 136.5000 0.0000000E+00 + 37.50000 136.5000 0.0000000E+00 + 38.50000 136.5000 0.0000000E+00 + 39.50000 136.5000 0.0000000E+00 + 40.50000 136.5000 0.0000000E+00 + 41.50000 136.5000 0.0000000E+00 + 42.50000 136.5000 0.0000000E+00 + 43.50000 136.5000 0.0000000E+00 + 44.50000 136.5000 0.0000000E+00 + 45.50000 136.5000 0.0000000E+00 + 46.50000 136.5000 0.0000000E+00 + 47.50000 136.5000 0.0000000E+00 + 48.50000 136.5000 0.0000000E+00 + 49.50000 136.5000 0.0000000E+00 + 50.50000 136.5000 0.0000000E+00 + 51.50000 136.5000 0.0000000E+00 + 52.50000 136.5000 0.0000000E+00 + 53.50000 136.5000 0.0000000E+00 + 54.50000 136.5000 0.0000000E+00 + 55.50000 136.5000 0.0000000E+00 + 56.50000 136.5000 0.0000000E+00 + 57.50000 136.5000 0.0000000E+00 + 58.50000 136.5000 0.0000000E+00 + 59.50000 136.5000 0.0000000E+00 + 60.50000 136.5000 0.0000000E+00 + 61.50000 136.5000 0.0000000E+00 + 62.50000 136.5000 0.0000000E+00 + 63.50000 136.5000 0.0000000E+00 + 64.50000 136.5000 0.0000000E+00 + 65.50000 136.5000 0.0000000E+00 + 66.50000 136.5000 0.0000000E+00 + 67.50000 136.5000 0.0000000E+00 + 68.50000 136.5000 0.0000000E+00 + 69.50000 136.5000 0.0000000E+00 + 70.50000 136.5000 0.0000000E+00 + 71.50000 136.5000 0.0000000E+00 + 72.50000 136.5000 0.0000000E+00 + 73.50000 136.5000 0.0000000E+00 + 74.50000 136.5000 0.0000000E+00 + 75.50000 136.5000 0.0000000E+00 + 76.50000 136.5000 0.0000000E+00 + 77.50000 136.5000 0.0000000E+00 + 78.50000 136.5000 0.0000000E+00 + 79.50000 136.5000 0.0000000E+00 + 80.50000 136.5000 0.0000000E+00 + 81.50000 136.5000 0.0000000E+00 + 82.50000 136.5000 0.0000000E+00 + 83.50000 136.5000 0.0000000E+00 + 84.50000 136.5000 0.0000000E+00 + 85.50000 136.5000 0.0000000E+00 + 86.50000 136.5000 0.0000000E+00 + 87.50000 136.5000 0.0000000E+00 + 88.50000 136.5000 0.0000000E+00 + 89.50000 136.5000 0.0000000E+00 + -89.50000 137.5000 0.0000000E+00 + -88.50000 137.5000 0.0000000E+00 + -87.50000 137.5000 0.0000000E+00 + -86.50000 137.5000 0.0000000E+00 + -85.50000 137.5000 0.0000000E+00 + -84.50000 137.5000 0.0000000E+00 + -83.50000 137.5000 0.0000000E+00 + -82.50000 137.5000 0.0000000E+00 + -81.50000 137.5000 0.0000000E+00 + -80.50000 137.5000 0.0000000E+00 + -79.50000 137.5000 0.0000000E+00 + -78.50000 137.5000 0.0000000E+00 + -77.50000 137.5000 0.0000000E+00 + -76.50000 137.5000 0.0000000E+00 + -75.50000 137.5000 0.0000000E+00 + -74.50000 137.5000 0.0000000E+00 + -73.50000 137.5000 0.0000000E+00 + -72.50000 137.5000 0.0000000E+00 + -71.50000 137.5000 0.0000000E+00 + -70.50000 137.5000 0.0000000E+00 + -69.50000 137.5000 0.0000000E+00 + -68.50000 137.5000 0.0000000E+00 + -67.50000 137.5000 0.0000000E+00 + -66.50000 137.5000 0.0000000E+00 + -65.50000 137.5000 0.0000000E+00 + -64.50000 137.5000 0.0000000E+00 + -63.50000 137.5000 0.0000000E+00 + -62.50000 137.5000 0.0000000E+00 + -61.50000 137.5000 0.0000000E+00 + -60.50000 137.5000 0.0000000E+00 + -59.50000 137.5000 0.0000000E+00 + -58.50000 137.5000 0.0000000E+00 + -57.50000 137.5000 0.0000000E+00 + -56.50000 137.5000 0.0000000E+00 + -55.50000 137.5000 0.0000000E+00 + -54.50000 137.5000 0.0000000E+00 + -53.50000 137.5000 0.0000000E+00 + -52.50000 137.5000 0.0000000E+00 + -51.50000 137.5000 0.0000000E+00 + -50.50000 137.5000 0.0000000E+00 + -49.50000 137.5000 0.0000000E+00 + -48.50000 137.5000 0.0000000E+00 + -47.50000 137.5000 0.0000000E+00 + -46.50000 137.5000 0.0000000E+00 + -45.50000 137.5000 0.0000000E+00 + -44.50000 137.5000 0.0000000E+00 + -43.50000 137.5000 0.0000000E+00 + -42.50000 137.5000 0.0000000E+00 + -41.50000 137.5000 0.0000000E+00 + -40.50000 137.5000 0.0000000E+00 + -39.50000 137.5000 0.0000000E+00 + -38.50000 137.5000 0.0000000E+00 + -37.50000 137.5000 0.0000000E+00 + -36.50000 137.5000 0.0000000E+00 + -35.50000 137.5000 0.0000000E+00 + -34.50000 137.5000 0.0000000E+00 + -33.50000 137.5000 0.0000000E+00 + -32.50000 137.5000 0.0000000E+00 + -31.50000 137.5000 2.2282830E-02 + -30.50000 137.5000 2.3133220E-02 + -29.50000 137.5000 1.1865235E-02 + -28.50000 137.5000 0.2347608 + -27.50000 137.5000 2.5645448E-02 + -26.50000 137.5000 2.5645448E-02 + -25.50000 137.5000 1.1865235E-02 + -24.50000 137.5000 1.1865235E-02 + -23.50000 137.5000 1.1865235E-02 + -22.50000 137.5000 4.7683716E-03 + -21.50000 137.5000 4.7683716E-03 + -20.50000 137.5000 4.7683716E-03 + -19.50000 137.5000 0.0000000E+00 + -18.50000 137.5000 0.0000000E+00 + -17.50000 137.5000 0.0000000E+00 + -16.50000 137.5000 0.0000000E+00 + -15.50000 137.5000 0.0000000E+00 + -14.50000 137.5000 0.0000000E+00 + -13.50000 137.5000 0.0000000E+00 + -12.50000 137.5000 0.0000000E+00 + -11.50000 137.5000 0.0000000E+00 + -10.50000 137.5000 0.0000000E+00 + -9.500000 137.5000 0.0000000E+00 + -8.500000 137.5000 0.0000000E+00 + -7.500000 137.5000 0.0000000E+00 + -6.500000 137.5000 0.0000000E+00 + -5.500000 137.5000 0.0000000E+00 + -4.500000 137.5000 0.0000000E+00 + -3.500000 137.5000 0.0000000E+00 + -2.500000 137.5000 0.0000000E+00 + -1.500000 137.5000 0.0000000E+00 + -0.5000000 137.5000 0.0000000E+00 + 0.5000000 137.5000 0.0000000E+00 + 1.500000 137.5000 0.0000000E+00 + 2.500000 137.5000 0.0000000E+00 + 3.500000 137.5000 0.0000000E+00 + 4.500000 137.5000 0.0000000E+00 + 5.500000 137.5000 0.0000000E+00 + 6.500000 137.5000 0.0000000E+00 + 7.500000 137.5000 0.0000000E+00 + 8.500000 137.5000 0.0000000E+00 + 9.500000 137.5000 0.0000000E+00 + 10.50000 137.5000 0.0000000E+00 + 11.50000 137.5000 0.0000000E+00 + 12.50000 137.5000 0.0000000E+00 + 13.50000 137.5000 0.0000000E+00 + 14.50000 137.5000 0.0000000E+00 + 15.50000 137.5000 0.0000000E+00 + 16.50000 137.5000 0.0000000E+00 + 17.50000 137.5000 0.0000000E+00 + 18.50000 137.5000 0.0000000E+00 + 19.50000 137.5000 0.0000000E+00 + 20.50000 137.5000 0.0000000E+00 + 21.50000 137.5000 0.0000000E+00 + 22.50000 137.5000 0.0000000E+00 + 23.50000 137.5000 0.0000000E+00 + 24.50000 137.5000 0.0000000E+00 + 25.50000 137.5000 0.0000000E+00 + 26.50000 137.5000 0.0000000E+00 + 27.50000 137.5000 0.0000000E+00 + 28.50000 137.5000 0.0000000E+00 + 29.50000 137.5000 0.0000000E+00 + 30.50000 137.5000 0.0000000E+00 + 31.50000 137.5000 0.0000000E+00 + 32.50000 137.5000 0.0000000E+00 + 33.50000 137.5000 0.0000000E+00 + 34.50000 137.5000 0.0000000E+00 + 35.50000 137.5000 0.0000000E+00 + 36.50000 137.5000 0.0000000E+00 + 37.50000 137.5000 0.0000000E+00 + 38.50000 137.5000 0.0000000E+00 + 39.50000 137.5000 0.0000000E+00 + 40.50000 137.5000 0.0000000E+00 + 41.50000 137.5000 0.0000000E+00 + 42.50000 137.5000 0.0000000E+00 + 43.50000 137.5000 0.0000000E+00 + 44.50000 137.5000 0.0000000E+00 + 45.50000 137.5000 0.0000000E+00 + 46.50000 137.5000 0.0000000E+00 + 47.50000 137.5000 0.0000000E+00 + 48.50000 137.5000 0.0000000E+00 + 49.50000 137.5000 0.0000000E+00 + 50.50000 137.5000 0.0000000E+00 + 51.50000 137.5000 0.0000000E+00 + 52.50000 137.5000 0.0000000E+00 + 53.50000 137.5000 0.0000000E+00 + 54.50000 137.5000 0.0000000E+00 + 55.50000 137.5000 0.0000000E+00 + 56.50000 137.5000 0.0000000E+00 + 57.50000 137.5000 0.0000000E+00 + 58.50000 137.5000 0.0000000E+00 + 59.50000 137.5000 0.0000000E+00 + 60.50000 137.5000 0.0000000E+00 + 61.50000 137.5000 0.0000000E+00 + 62.50000 137.5000 0.0000000E+00 + 63.50000 137.5000 0.0000000E+00 + 64.50000 137.5000 0.0000000E+00 + 65.50000 137.5000 0.0000000E+00 + 66.50000 137.5000 0.0000000E+00 + 67.50000 137.5000 0.0000000E+00 + 68.50000 137.5000 0.0000000E+00 + 69.50000 137.5000 0.0000000E+00 + 70.50000 137.5000 0.0000000E+00 + 71.50000 137.5000 0.0000000E+00 + 72.50000 137.5000 0.0000000E+00 + 73.50000 137.5000 0.0000000E+00 + 74.50000 137.5000 0.0000000E+00 + 75.50000 137.5000 0.0000000E+00 + 76.50000 137.5000 0.0000000E+00 + 77.50000 137.5000 0.0000000E+00 + 78.50000 137.5000 0.0000000E+00 + 79.50000 137.5000 0.0000000E+00 + 80.50000 137.5000 0.0000000E+00 + 81.50000 137.5000 0.0000000E+00 + 82.50000 137.5000 0.0000000E+00 + 83.50000 137.5000 0.0000000E+00 + 84.50000 137.5000 0.0000000E+00 + 85.50000 137.5000 0.0000000E+00 + 86.50000 137.5000 0.0000000E+00 + 87.50000 137.5000 0.0000000E+00 + 88.50000 137.5000 0.0000000E+00 + 89.50000 137.5000 0.0000000E+00 + -89.50000 138.5000 0.0000000E+00 + -88.50000 138.5000 0.0000000E+00 + -87.50000 138.5000 0.0000000E+00 + -86.50000 138.5000 0.0000000E+00 + -85.50000 138.5000 0.0000000E+00 + -84.50000 138.5000 0.0000000E+00 + -83.50000 138.5000 0.0000000E+00 + -82.50000 138.5000 0.0000000E+00 + -81.50000 138.5000 0.0000000E+00 + -80.50000 138.5000 0.0000000E+00 + -79.50000 138.5000 0.0000000E+00 + -78.50000 138.5000 0.0000000E+00 + -77.50000 138.5000 0.0000000E+00 + -76.50000 138.5000 0.0000000E+00 + -75.50000 138.5000 0.0000000E+00 + -74.50000 138.5000 0.0000000E+00 + -73.50000 138.5000 0.0000000E+00 + -72.50000 138.5000 0.0000000E+00 + -71.50000 138.5000 0.0000000E+00 + -70.50000 138.5000 0.0000000E+00 + -69.50000 138.5000 0.0000000E+00 + -68.50000 138.5000 0.0000000E+00 + -67.50000 138.5000 0.0000000E+00 + -66.50000 138.5000 0.0000000E+00 + -65.50000 138.5000 0.0000000E+00 + -64.50000 138.5000 0.0000000E+00 + -63.50000 138.5000 0.0000000E+00 + -62.50000 138.5000 0.0000000E+00 + -61.50000 138.5000 0.0000000E+00 + -60.50000 138.5000 0.0000000E+00 + -59.50000 138.5000 0.0000000E+00 + -58.50000 138.5000 0.0000000E+00 + -57.50000 138.5000 0.0000000E+00 + -56.50000 138.5000 0.0000000E+00 + -55.50000 138.5000 0.0000000E+00 + -54.50000 138.5000 0.0000000E+00 + -53.50000 138.5000 0.0000000E+00 + -52.50000 138.5000 0.0000000E+00 + -51.50000 138.5000 0.0000000E+00 + -50.50000 138.5000 0.0000000E+00 + -49.50000 138.5000 0.0000000E+00 + -48.50000 138.5000 0.0000000E+00 + -47.50000 138.5000 0.0000000E+00 + -46.50000 138.5000 0.0000000E+00 + -45.50000 138.5000 0.0000000E+00 + -44.50000 138.5000 0.0000000E+00 + -43.50000 138.5000 0.0000000E+00 + -42.50000 138.5000 0.0000000E+00 + -41.50000 138.5000 0.0000000E+00 + -40.50000 138.5000 0.0000000E+00 + -39.50000 138.5000 0.0000000E+00 + -38.50000 138.5000 0.0000000E+00 + -37.50000 138.5000 0.0000000E+00 + -36.50000 138.5000 0.0000000E+00 + -35.50000 138.5000 0.0000000E+00 + -34.50000 138.5000 0.0000000E+00 + -33.50000 138.5000 0.0000000E+00 + -32.50000 138.5000 0.0000000E+00 + -31.50000 138.5000 5.3139176E-04 + -30.50000 138.5000 7.2291324E-09 + -29.50000 138.5000 1.1865235E-02 + -28.50000 138.5000 2.5645448E-02 + -27.50000 138.5000 0.1282272 + -26.50000 138.5000 2.5645448E-02 + -25.50000 138.5000 2.5645448E-02 + -24.50000 138.5000 1.1865235E-02 + -23.50000 138.5000 1.1865235E-02 + -22.50000 138.5000 1.1865235E-02 + -21.50000 138.5000 4.7683716E-03 + -20.50000 138.5000 4.7683716E-03 + -19.50000 138.5000 1.1865235E-02 + -18.50000 138.5000 1.1865235E-02 + -17.50000 138.5000 0.0000000E+00 + -16.50000 138.5000 0.0000000E+00 + -15.50000 138.5000 0.0000000E+00 + -14.50000 138.5000 0.0000000E+00 + -13.50000 138.5000 0.0000000E+00 + -12.50000 138.5000 0.0000000E+00 + -11.50000 138.5000 0.0000000E+00 + -10.50000 138.5000 0.0000000E+00 + -9.500000 138.5000 0.0000000E+00 + -8.500000 138.5000 0.0000000E+00 + -7.500000 138.5000 0.0000000E+00 + -6.500000 138.5000 0.0000000E+00 + -5.500000 138.5000 0.0000000E+00 + -4.500000 138.5000 0.0000000E+00 + -3.500000 138.5000 0.0000000E+00 + -2.500000 138.5000 0.0000000E+00 + -1.500000 138.5000 0.0000000E+00 + -0.5000000 138.5000 0.0000000E+00 + 0.5000000 138.5000 0.0000000E+00 + 1.500000 138.5000 0.0000000E+00 + 2.500000 138.5000 0.0000000E+00 + 3.500000 138.5000 0.0000000E+00 + 4.500000 138.5000 0.0000000E+00 + 5.500000 138.5000 0.0000000E+00 + 6.500000 138.5000 0.0000000E+00 + 7.500000 138.5000 0.0000000E+00 + 8.500000 138.5000 0.0000000E+00 + 9.500000 138.5000 0.0000000E+00 + 10.50000 138.5000 0.0000000E+00 + 11.50000 138.5000 0.0000000E+00 + 12.50000 138.5000 0.0000000E+00 + 13.50000 138.5000 0.0000000E+00 + 14.50000 138.5000 0.0000000E+00 + 15.50000 138.5000 0.0000000E+00 + 16.50000 138.5000 0.0000000E+00 + 17.50000 138.5000 0.0000000E+00 + 18.50000 138.5000 0.0000000E+00 + 19.50000 138.5000 0.0000000E+00 + 20.50000 138.5000 0.0000000E+00 + 21.50000 138.5000 0.0000000E+00 + 22.50000 138.5000 0.0000000E+00 + 23.50000 138.5000 0.0000000E+00 + 24.50000 138.5000 0.0000000E+00 + 25.50000 138.5000 0.0000000E+00 + 26.50000 138.5000 0.0000000E+00 + 27.50000 138.5000 0.0000000E+00 + 28.50000 138.5000 0.0000000E+00 + 29.50000 138.5000 0.0000000E+00 + 30.50000 138.5000 0.0000000E+00 + 31.50000 138.5000 0.0000000E+00 + 32.50000 138.5000 0.0000000E+00 + 33.50000 138.5000 0.0000000E+00 + 34.50000 138.5000 0.0000000E+00 + 35.50000 138.5000 0.0000000E+00 + 36.50000 138.5000 0.0000000E+00 + 37.50000 138.5000 0.0000000E+00 + 38.50000 138.5000 0.0000000E+00 + 39.50000 138.5000 0.0000000E+00 + 40.50000 138.5000 0.0000000E+00 + 41.50000 138.5000 0.0000000E+00 + 42.50000 138.5000 0.0000000E+00 + 43.50000 138.5000 0.0000000E+00 + 44.50000 138.5000 0.0000000E+00 + 45.50000 138.5000 0.0000000E+00 + 46.50000 138.5000 0.0000000E+00 + 47.50000 138.5000 0.0000000E+00 + 48.50000 138.5000 0.0000000E+00 + 49.50000 138.5000 0.0000000E+00 + 50.50000 138.5000 0.0000000E+00 + 51.50000 138.5000 0.0000000E+00 + 52.50000 138.5000 0.0000000E+00 + 53.50000 138.5000 0.0000000E+00 + 54.50000 138.5000 0.0000000E+00 + 55.50000 138.5000 0.0000000E+00 + 56.50000 138.5000 0.0000000E+00 + 57.50000 138.5000 0.0000000E+00 + 58.50000 138.5000 0.0000000E+00 + 59.50000 138.5000 0.0000000E+00 + 60.50000 138.5000 0.0000000E+00 + 61.50000 138.5000 0.0000000E+00 + 62.50000 138.5000 0.0000000E+00 + 63.50000 138.5000 0.0000000E+00 + 64.50000 138.5000 0.0000000E+00 + 65.50000 138.5000 0.0000000E+00 + 66.50000 138.5000 0.0000000E+00 + 67.50000 138.5000 0.0000000E+00 + 68.50000 138.5000 0.0000000E+00 + 69.50000 138.5000 0.0000000E+00 + 70.50000 138.5000 0.0000000E+00 + 71.50000 138.5000 0.0000000E+00 + 72.50000 138.5000 0.0000000E+00 + 73.50000 138.5000 0.0000000E+00 + 74.50000 138.5000 0.0000000E+00 + 75.50000 138.5000 0.0000000E+00 + 76.50000 138.5000 0.0000000E+00 + 77.50000 138.5000 0.0000000E+00 + 78.50000 138.5000 0.0000000E+00 + 79.50000 138.5000 0.0000000E+00 + 80.50000 138.5000 0.0000000E+00 + 81.50000 138.5000 0.0000000E+00 + 82.50000 138.5000 0.0000000E+00 + 83.50000 138.5000 0.0000000E+00 + 84.50000 138.5000 0.0000000E+00 + 85.50000 138.5000 0.0000000E+00 + 86.50000 138.5000 0.0000000E+00 + 87.50000 138.5000 0.0000000E+00 + 88.50000 138.5000 0.0000000E+00 + 89.50000 138.5000 0.0000000E+00 + -89.50000 139.5000 0.0000000E+00 + -88.50000 139.5000 0.0000000E+00 + -87.50000 139.5000 0.0000000E+00 + -86.50000 139.5000 0.0000000E+00 + -85.50000 139.5000 0.0000000E+00 + -84.50000 139.5000 0.0000000E+00 + -83.50000 139.5000 0.0000000E+00 + -82.50000 139.5000 0.0000000E+00 + -81.50000 139.5000 0.0000000E+00 + -80.50000 139.5000 0.0000000E+00 + -79.50000 139.5000 0.0000000E+00 + -78.50000 139.5000 0.0000000E+00 + -77.50000 139.5000 0.0000000E+00 + -76.50000 139.5000 0.0000000E+00 + -75.50000 139.5000 0.0000000E+00 + -74.50000 139.5000 0.0000000E+00 + -73.50000 139.5000 0.0000000E+00 + -72.50000 139.5000 0.0000000E+00 + -71.50000 139.5000 0.0000000E+00 + -70.50000 139.5000 0.0000000E+00 + -69.50000 139.5000 0.0000000E+00 + -68.50000 139.5000 0.0000000E+00 + -67.50000 139.5000 0.0000000E+00 + -66.50000 139.5000 0.0000000E+00 + -65.50000 139.5000 0.0000000E+00 + -64.50000 139.5000 0.0000000E+00 + -63.50000 139.5000 0.0000000E+00 + -62.50000 139.5000 0.0000000E+00 + -61.50000 139.5000 0.0000000E+00 + -60.50000 139.5000 0.0000000E+00 + -59.50000 139.5000 0.0000000E+00 + -58.50000 139.5000 0.0000000E+00 + -57.50000 139.5000 0.0000000E+00 + -56.50000 139.5000 0.0000000E+00 + -55.50000 139.5000 0.0000000E+00 + -54.50000 139.5000 0.0000000E+00 + -53.50000 139.5000 0.0000000E+00 + -52.50000 139.5000 0.0000000E+00 + -51.50000 139.5000 0.0000000E+00 + -50.50000 139.5000 0.0000000E+00 + -49.50000 139.5000 0.0000000E+00 + -48.50000 139.5000 0.0000000E+00 + -47.50000 139.5000 0.0000000E+00 + -46.50000 139.5000 0.0000000E+00 + -45.50000 139.5000 0.0000000E+00 + -44.50000 139.5000 0.0000000E+00 + -43.50000 139.5000 0.0000000E+00 + -42.50000 139.5000 0.0000000E+00 + -41.50000 139.5000 0.0000000E+00 + -40.50000 139.5000 0.0000000E+00 + -39.50000 139.5000 0.0000000E+00 + -38.50000 139.5000 0.0000000E+00 + -37.50000 139.5000 0.0000000E+00 + -36.50000 139.5000 0.0000000E+00 + -35.50000 139.5000 0.0000000E+00 + -34.50000 139.5000 0.0000000E+00 + -33.50000 139.5000 0.0000000E+00 + -32.50000 139.5000 0.0000000E+00 + -31.50000 139.5000 1.1865235E-02 + -30.50000 139.5000 2.8156757E-03 + -29.50000 139.5000 4.7683716E-03 + -28.50000 139.5000 2.5645448E-02 + -27.50000 139.5000 2.5645448E-02 + -26.50000 139.5000 2.5645448E-02 + -25.50000 139.5000 2.5645448E-02 + -24.50000 139.5000 1.1865235E-02 + -23.50000 139.5000 1.1865235E-02 + -22.50000 139.5000 1.1865235E-02 + -21.50000 139.5000 1.1865235E-02 + -20.50000 139.5000 1.1865235E-02 + -19.50000 139.5000 0.0000000E+00 + -18.50000 139.5000 0.0000000E+00 + -17.50000 139.5000 0.0000000E+00 + -16.50000 139.5000 0.0000000E+00 + -15.50000 139.5000 0.0000000E+00 + -14.50000 139.5000 0.0000000E+00 + -13.50000 139.5000 0.0000000E+00 + -12.50000 139.5000 0.0000000E+00 + -11.50000 139.5000 0.0000000E+00 + -10.50000 139.5000 0.0000000E+00 + -9.500000 139.5000 0.0000000E+00 + -8.500000 139.5000 0.0000000E+00 + -7.500000 139.5000 0.0000000E+00 + -6.500000 139.5000 0.0000000E+00 + -5.500000 139.5000 0.0000000E+00 + -4.500000 139.5000 0.0000000E+00 + -3.500000 139.5000 0.0000000E+00 + -2.500000 139.5000 0.0000000E+00 + -1.500000 139.5000 0.0000000E+00 + -0.5000000 139.5000 0.0000000E+00 + 0.5000000 139.5000 0.0000000E+00 + 1.500000 139.5000 0.0000000E+00 + 2.500000 139.5000 0.0000000E+00 + 3.500000 139.5000 0.0000000E+00 + 4.500000 139.5000 0.0000000E+00 + 5.500000 139.5000 0.0000000E+00 + 6.500000 139.5000 0.0000000E+00 + 7.500000 139.5000 0.0000000E+00 + 8.500000 139.5000 0.0000000E+00 + 9.500000 139.5000 0.0000000E+00 + 10.50000 139.5000 0.0000000E+00 + 11.50000 139.5000 0.0000000E+00 + 12.50000 139.5000 0.0000000E+00 + 13.50000 139.5000 0.0000000E+00 + 14.50000 139.5000 0.0000000E+00 + 15.50000 139.5000 0.0000000E+00 + 16.50000 139.5000 0.0000000E+00 + 17.50000 139.5000 0.0000000E+00 + 18.50000 139.5000 0.0000000E+00 + 19.50000 139.5000 0.0000000E+00 + 20.50000 139.5000 0.0000000E+00 + 21.50000 139.5000 0.0000000E+00 + 22.50000 139.5000 0.0000000E+00 + 23.50000 139.5000 0.0000000E+00 + 24.50000 139.5000 0.0000000E+00 + 25.50000 139.5000 0.0000000E+00 + 26.50000 139.5000 0.0000000E+00 + 27.50000 139.5000 0.0000000E+00 + 28.50000 139.5000 0.0000000E+00 + 29.50000 139.5000 0.0000000E+00 + 30.50000 139.5000 0.0000000E+00 + 31.50000 139.5000 0.0000000E+00 + 32.50000 139.5000 0.0000000E+00 + 33.50000 139.5000 0.0000000E+00 + 34.50000 139.5000 0.0000000E+00 + 35.50000 139.5000 0.0000000E+00 + 36.50000 139.5000 0.0000000E+00 + 37.50000 139.5000 0.0000000E+00 + 38.50000 139.5000 0.0000000E+00 + 39.50000 139.5000 0.0000000E+00 + 40.50000 139.5000 0.0000000E+00 + 41.50000 139.5000 0.0000000E+00 + 42.50000 139.5000 0.0000000E+00 + 43.50000 139.5000 0.0000000E+00 + 44.50000 139.5000 0.0000000E+00 + 45.50000 139.5000 0.0000000E+00 + 46.50000 139.5000 0.0000000E+00 + 47.50000 139.5000 0.0000000E+00 + 48.50000 139.5000 0.0000000E+00 + 49.50000 139.5000 0.0000000E+00 + 50.50000 139.5000 0.0000000E+00 + 51.50000 139.5000 0.0000000E+00 + 52.50000 139.5000 0.0000000E+00 + 53.50000 139.5000 0.0000000E+00 + 54.50000 139.5000 0.0000000E+00 + 55.50000 139.5000 0.0000000E+00 + 56.50000 139.5000 0.0000000E+00 + 57.50000 139.5000 0.0000000E+00 + 58.50000 139.5000 0.0000000E+00 + 59.50000 139.5000 0.0000000E+00 + 60.50000 139.5000 0.0000000E+00 + 61.50000 139.5000 0.0000000E+00 + 62.50000 139.5000 0.0000000E+00 + 63.50000 139.5000 0.0000000E+00 + 64.50000 139.5000 0.0000000E+00 + 65.50000 139.5000 0.0000000E+00 + 66.50000 139.5000 0.0000000E+00 + 67.50000 139.5000 0.0000000E+00 + 68.50000 139.5000 0.0000000E+00 + 69.50000 139.5000 0.0000000E+00 + 70.50000 139.5000 0.0000000E+00 + 71.50000 139.5000 0.0000000E+00 + 72.50000 139.5000 0.0000000E+00 + 73.50000 139.5000 0.0000000E+00 + 74.50000 139.5000 0.0000000E+00 + 75.50000 139.5000 0.0000000E+00 + 76.50000 139.5000 0.0000000E+00 + 77.50000 139.5000 0.0000000E+00 + 78.50000 139.5000 0.0000000E+00 + 79.50000 139.5000 0.0000000E+00 + 80.50000 139.5000 0.0000000E+00 + 81.50000 139.5000 0.0000000E+00 + 82.50000 139.5000 0.0000000E+00 + 83.50000 139.5000 0.0000000E+00 + 84.50000 139.5000 0.0000000E+00 + 85.50000 139.5000 0.0000000E+00 + 86.50000 139.5000 0.0000000E+00 + 87.50000 139.5000 0.0000000E+00 + 88.50000 139.5000 0.0000000E+00 + 89.50000 139.5000 0.0000000E+00 + -89.50000 140.5000 0.0000000E+00 + -88.50000 140.5000 0.0000000E+00 + -87.50000 140.5000 0.0000000E+00 + -86.50000 140.5000 0.0000000E+00 + -85.50000 140.5000 0.0000000E+00 + -84.50000 140.5000 0.0000000E+00 + -83.50000 140.5000 0.0000000E+00 + -82.50000 140.5000 0.0000000E+00 + -81.50000 140.5000 0.0000000E+00 + -80.50000 140.5000 0.0000000E+00 + -79.50000 140.5000 0.0000000E+00 + -78.50000 140.5000 0.0000000E+00 + -77.50000 140.5000 0.0000000E+00 + -76.50000 140.5000 0.0000000E+00 + -75.50000 140.5000 0.0000000E+00 + -74.50000 140.5000 0.0000000E+00 + -73.50000 140.5000 0.0000000E+00 + -72.50000 140.5000 0.0000000E+00 + -71.50000 140.5000 0.0000000E+00 + -70.50000 140.5000 0.0000000E+00 + -69.50000 140.5000 0.0000000E+00 + -68.50000 140.5000 0.0000000E+00 + -67.50000 140.5000 0.0000000E+00 + -66.50000 140.5000 0.0000000E+00 + -65.50000 140.5000 0.0000000E+00 + -64.50000 140.5000 0.0000000E+00 + -63.50000 140.5000 0.0000000E+00 + -62.50000 140.5000 0.0000000E+00 + -61.50000 140.5000 0.0000000E+00 + -60.50000 140.5000 0.0000000E+00 + -59.50000 140.5000 0.0000000E+00 + -58.50000 140.5000 0.0000000E+00 + -57.50000 140.5000 0.0000000E+00 + -56.50000 140.5000 0.0000000E+00 + -55.50000 140.5000 0.0000000E+00 + -54.50000 140.5000 0.0000000E+00 + -53.50000 140.5000 0.0000000E+00 + -52.50000 140.5000 0.0000000E+00 + -51.50000 140.5000 0.0000000E+00 + -50.50000 140.5000 0.0000000E+00 + -49.50000 140.5000 0.0000000E+00 + -48.50000 140.5000 0.0000000E+00 + -47.50000 140.5000 0.0000000E+00 + -46.50000 140.5000 0.0000000E+00 + -45.50000 140.5000 0.0000000E+00 + -44.50000 140.5000 0.0000000E+00 + -43.50000 140.5000 0.0000000E+00 + -42.50000 140.5000 0.0000000E+00 + -41.50000 140.5000 0.0000000E+00 + -40.50000 140.5000 0.0000000E+00 + -39.50000 140.5000 0.0000000E+00 + -38.50000 140.5000 0.0000000E+00 + -37.50000 140.5000 0.0000000E+00 + -36.50000 140.5000 0.0000000E+00 + -35.50000 140.5000 0.0000000E+00 + -34.50000 140.5000 0.0000000E+00 + -33.50000 140.5000 0.0000000E+00 + -32.50000 140.5000 1.6384004E-02 + -31.50000 140.5000 1.6384004E-02 + -30.50000 140.5000 1.6384004E-02 + -29.50000 140.5000 1.6384004E-02 + -28.50000 140.5000 1.1865235E-02 + -27.50000 140.5000 1.1865235E-02 + -26.50000 140.5000 1.1865235E-02 + -25.50000 140.5000 1.1865235E-02 + -24.50000 140.5000 0.0000000E+00 + -23.50000 140.5000 0.0000000E+00 + -22.50000 140.5000 0.0000000E+00 + -21.50000 140.5000 0.0000000E+00 + -20.50000 140.5000 0.0000000E+00 + -19.50000 140.5000 0.0000000E+00 + -18.50000 140.5000 0.0000000E+00 + -17.50000 140.5000 0.0000000E+00 + -16.50000 140.5000 0.0000000E+00 + -15.50000 140.5000 0.0000000E+00 + -14.50000 140.5000 0.0000000E+00 + -13.50000 140.5000 0.0000000E+00 + -12.50000 140.5000 0.0000000E+00 + -11.50000 140.5000 0.0000000E+00 + -10.50000 140.5000 0.0000000E+00 + -9.500000 140.5000 0.0000000E+00 + -8.500000 140.5000 0.0000000E+00 + -7.500000 140.5000 0.0000000E+00 + -6.500000 140.5000 0.0000000E+00 + -5.500000 140.5000 0.0000000E+00 + -4.500000 140.5000 0.0000000E+00 + -3.500000 140.5000 0.0000000E+00 + -2.500000 140.5000 0.0000000E+00 + -1.500000 140.5000 0.0000000E+00 + -0.5000000 140.5000 0.0000000E+00 + 0.5000000 140.5000 0.0000000E+00 + 1.500000 140.5000 0.0000000E+00 + 2.500000 140.5000 0.0000000E+00 + 3.500000 140.5000 0.0000000E+00 + 4.500000 140.5000 0.0000000E+00 + 5.500000 140.5000 0.0000000E+00 + 6.500000 140.5000 0.0000000E+00 + 7.500000 140.5000 0.0000000E+00 + 8.500000 140.5000 0.0000000E+00 + 9.500000 140.5000 0.0000000E+00 + 10.50000 140.5000 0.0000000E+00 + 11.50000 140.5000 0.0000000E+00 + 12.50000 140.5000 0.0000000E+00 + 13.50000 140.5000 0.0000000E+00 + 14.50000 140.5000 0.0000000E+00 + 15.50000 140.5000 0.0000000E+00 + 16.50000 140.5000 0.0000000E+00 + 17.50000 140.5000 0.0000000E+00 + 18.50000 140.5000 0.0000000E+00 + 19.50000 140.5000 0.0000000E+00 + 20.50000 140.5000 0.0000000E+00 + 21.50000 140.5000 0.0000000E+00 + 22.50000 140.5000 0.0000000E+00 + 23.50000 140.5000 0.0000000E+00 + 24.50000 140.5000 0.0000000E+00 + 25.50000 140.5000 0.0000000E+00 + 26.50000 140.5000 0.0000000E+00 + 27.50000 140.5000 0.0000000E+00 + 28.50000 140.5000 0.0000000E+00 + 29.50000 140.5000 0.0000000E+00 + 30.50000 140.5000 0.0000000E+00 + 31.50000 140.5000 0.0000000E+00 + 32.50000 140.5000 0.0000000E+00 + 33.50000 140.5000 0.0000000E+00 + 34.50000 140.5000 0.0000000E+00 + 35.50000 140.5000 0.0000000E+00 + 36.50000 140.5000 0.0000000E+00 + 37.50000 140.5000 0.0000000E+00 + 38.50000 140.5000 0.0000000E+00 + 39.50000 140.5000 0.0000000E+00 + 40.50000 140.5000 0.0000000E+00 + 41.50000 140.5000 0.0000000E+00 + 42.50000 140.5000 0.0000000E+00 + 43.50000 140.5000 0.0000000E+00 + 44.50000 140.5000 0.0000000E+00 + 45.50000 140.5000 0.0000000E+00 + 46.50000 140.5000 0.0000000E+00 + 47.50000 140.5000 0.0000000E+00 + 48.50000 140.5000 0.0000000E+00 + 49.50000 140.5000 0.0000000E+00 + 50.50000 140.5000 0.0000000E+00 + 51.50000 140.5000 0.0000000E+00 + 52.50000 140.5000 0.0000000E+00 + 53.50000 140.5000 0.0000000E+00 + 54.50000 140.5000 0.0000000E+00 + 55.50000 140.5000 0.0000000E+00 + 56.50000 140.5000 0.0000000E+00 + 57.50000 140.5000 0.0000000E+00 + 58.50000 140.5000 0.0000000E+00 + 59.50000 140.5000 0.0000000E+00 + 60.50000 140.5000 0.0000000E+00 + 61.50000 140.5000 0.0000000E+00 + 62.50000 140.5000 0.0000000E+00 + 63.50000 140.5000 0.0000000E+00 + 64.50000 140.5000 0.0000000E+00 + 65.50000 140.5000 0.0000000E+00 + 66.50000 140.5000 0.0000000E+00 + 67.50000 140.5000 0.0000000E+00 + 68.50000 140.5000 0.0000000E+00 + 69.50000 140.5000 0.0000000E+00 + 70.50000 140.5000 0.0000000E+00 + 71.50000 140.5000 0.0000000E+00 + 72.50000 140.5000 0.0000000E+00 + 73.50000 140.5000 0.0000000E+00 + 74.50000 140.5000 0.0000000E+00 + 75.50000 140.5000 0.0000000E+00 + 76.50000 140.5000 0.0000000E+00 + 77.50000 140.5000 0.0000000E+00 + 78.50000 140.5000 0.0000000E+00 + 79.50000 140.5000 0.0000000E+00 + 80.50000 140.5000 0.0000000E+00 + 81.50000 140.5000 0.0000000E+00 + 82.50000 140.5000 0.0000000E+00 + 83.50000 140.5000 0.0000000E+00 + 84.50000 140.5000 0.0000000E+00 + 85.50000 140.5000 0.0000000E+00 + 86.50000 140.5000 0.0000000E+00 + 87.50000 140.5000 0.0000000E+00 + 88.50000 140.5000 0.0000000E+00 + 89.50000 140.5000 0.0000000E+00 + -89.50000 141.5000 0.0000000E+00 + -88.50000 141.5000 0.0000000E+00 + -87.50000 141.5000 0.0000000E+00 + -86.50000 141.5000 0.0000000E+00 + -85.50000 141.5000 0.0000000E+00 + -84.50000 141.5000 0.0000000E+00 + -83.50000 141.5000 0.0000000E+00 + -82.50000 141.5000 0.0000000E+00 + -81.50000 141.5000 0.0000000E+00 + -80.50000 141.5000 0.0000000E+00 + -79.50000 141.5000 0.0000000E+00 + -78.50000 141.5000 0.0000000E+00 + -77.50000 141.5000 0.0000000E+00 + -76.50000 141.5000 0.0000000E+00 + -75.50000 141.5000 0.0000000E+00 + -74.50000 141.5000 0.0000000E+00 + -73.50000 141.5000 0.0000000E+00 + -72.50000 141.5000 0.0000000E+00 + -71.50000 141.5000 0.0000000E+00 + -70.50000 141.5000 0.0000000E+00 + -69.50000 141.5000 0.0000000E+00 + -68.50000 141.5000 0.0000000E+00 + -67.50000 141.5000 0.0000000E+00 + -66.50000 141.5000 0.0000000E+00 + -65.50000 141.5000 0.0000000E+00 + -64.50000 141.5000 0.0000000E+00 + -63.50000 141.5000 0.0000000E+00 + -62.50000 141.5000 0.0000000E+00 + -61.50000 141.5000 0.0000000E+00 + -60.50000 141.5000 0.0000000E+00 + -59.50000 141.5000 0.0000000E+00 + -58.50000 141.5000 0.0000000E+00 + -57.50000 141.5000 0.0000000E+00 + -56.50000 141.5000 0.0000000E+00 + -55.50000 141.5000 0.0000000E+00 + -54.50000 141.5000 0.0000000E+00 + -53.50000 141.5000 0.0000000E+00 + -52.50000 141.5000 0.0000000E+00 + -51.50000 141.5000 0.0000000E+00 + -50.50000 141.5000 0.0000000E+00 + -49.50000 141.5000 0.0000000E+00 + -48.50000 141.5000 0.0000000E+00 + -47.50000 141.5000 0.0000000E+00 + -46.50000 141.5000 0.0000000E+00 + -45.50000 141.5000 0.0000000E+00 + -44.50000 141.5000 0.0000000E+00 + -43.50000 141.5000 0.0000000E+00 + -42.50000 141.5000 0.0000000E+00 + -41.50000 141.5000 0.0000000E+00 + -40.50000 141.5000 0.0000000E+00 + -39.50000 141.5000 0.0000000E+00 + -38.50000 141.5000 0.0000000E+00 + -37.50000 141.5000 0.0000000E+00 + -36.50000 141.5000 0.0000000E+00 + -35.50000 141.5000 0.0000000E+00 + -34.50000 141.5000 0.0000000E+00 + -33.50000 141.5000 0.0000000E+00 + -32.50000 141.5000 2.4447279E-02 + -31.50000 141.5000 0.0000000E+00 + -30.50000 141.5000 2.4447279E-02 + -29.50000 141.5000 2.4447279E-02 + -28.50000 141.5000 1.6384004E-02 + -27.50000 141.5000 8.4934738E-03 + -26.50000 141.5000 0.0000000E+00 + -25.50000 141.5000 8.4934738E-03 + -24.50000 141.5000 8.4934738E-03 + -23.50000 141.5000 8.4934738E-03 + -22.50000 141.5000 0.0000000E+00 + -21.50000 141.5000 0.0000000E+00 + -20.50000 141.5000 0.0000000E+00 + -19.50000 141.5000 0.0000000E+00 + -18.50000 141.5000 0.0000000E+00 + -17.50000 141.5000 0.0000000E+00 + -16.50000 141.5000 0.0000000E+00 + -15.50000 141.5000 0.0000000E+00 + -14.50000 141.5000 0.0000000E+00 + -13.50000 141.5000 0.0000000E+00 + -12.50000 141.5000 0.0000000E+00 + -11.50000 141.5000 0.0000000E+00 + -10.50000 141.5000 0.0000000E+00 + -9.500000 141.5000 0.0000000E+00 + -8.500000 141.5000 0.0000000E+00 + -7.500000 141.5000 0.0000000E+00 + -6.500000 141.5000 0.0000000E+00 + -5.500000 141.5000 0.0000000E+00 + -4.500000 141.5000 0.0000000E+00 + -3.500000 141.5000 0.0000000E+00 + -2.500000 141.5000 0.0000000E+00 + -1.500000 141.5000 0.0000000E+00 + -0.5000000 141.5000 0.0000000E+00 + 0.5000000 141.5000 0.0000000E+00 + 1.500000 141.5000 0.0000000E+00 + 2.500000 141.5000 0.0000000E+00 + 3.500000 141.5000 0.0000000E+00 + 4.500000 141.5000 0.0000000E+00 + 5.500000 141.5000 0.0000000E+00 + 6.500000 141.5000 0.0000000E+00 + 7.500000 141.5000 0.0000000E+00 + 8.500000 141.5000 0.0000000E+00 + 9.500000 141.5000 0.0000000E+00 + 10.50000 141.5000 0.0000000E+00 + 11.50000 141.5000 0.0000000E+00 + 12.50000 141.5000 0.0000000E+00 + 13.50000 141.5000 0.0000000E+00 + 14.50000 141.5000 0.0000000E+00 + 15.50000 141.5000 0.0000000E+00 + 16.50000 141.5000 0.0000000E+00 + 17.50000 141.5000 0.0000000E+00 + 18.50000 141.5000 0.0000000E+00 + 19.50000 141.5000 0.0000000E+00 + 20.50000 141.5000 0.0000000E+00 + 21.50000 141.5000 0.0000000E+00 + 22.50000 141.5000 0.0000000E+00 + 23.50000 141.5000 0.0000000E+00 + 24.50000 141.5000 0.0000000E+00 + 25.50000 141.5000 0.0000000E+00 + 26.50000 141.5000 0.0000000E+00 + 27.50000 141.5000 0.0000000E+00 + 28.50000 141.5000 0.0000000E+00 + 29.50000 141.5000 0.0000000E+00 + 30.50000 141.5000 0.0000000E+00 + 31.50000 141.5000 0.0000000E+00 + 32.50000 141.5000 0.0000000E+00 + 33.50000 141.5000 0.0000000E+00 + 34.50000 141.5000 0.0000000E+00 + 35.50000 141.5000 0.0000000E+00 + 36.50000 141.5000 0.0000000E+00 + 37.50000 141.5000 0.0000000E+00 + 38.50000 141.5000 0.0000000E+00 + 39.50000 141.5000 0.0000000E+00 + 40.50000 141.5000 0.0000000E+00 + 41.50000 141.5000 0.0000000E+00 + 42.50000 141.5000 0.0000000E+00 + 43.50000 141.5000 0.0000000E+00 + 44.50000 141.5000 0.0000000E+00 + 45.50000 141.5000 0.0000000E+00 + 46.50000 141.5000 0.0000000E+00 + 47.50000 141.5000 0.0000000E+00 + 48.50000 141.5000 0.0000000E+00 + 49.50000 141.5000 0.0000000E+00 + 50.50000 141.5000 0.0000000E+00 + 51.50000 141.5000 0.0000000E+00 + 52.50000 141.5000 0.0000000E+00 + 53.50000 141.5000 0.0000000E+00 + 54.50000 141.5000 0.0000000E+00 + 55.50000 141.5000 0.0000000E+00 + 56.50000 141.5000 0.0000000E+00 + 57.50000 141.5000 0.0000000E+00 + 58.50000 141.5000 0.0000000E+00 + 59.50000 141.5000 0.0000000E+00 + 60.50000 141.5000 0.0000000E+00 + 61.50000 141.5000 0.0000000E+00 + 62.50000 141.5000 0.0000000E+00 + 63.50000 141.5000 0.0000000E+00 + 64.50000 141.5000 0.0000000E+00 + 65.50000 141.5000 0.0000000E+00 + 66.50000 141.5000 0.0000000E+00 + 67.50000 141.5000 0.0000000E+00 + 68.50000 141.5000 0.0000000E+00 + 69.50000 141.5000 0.0000000E+00 + 70.50000 141.5000 0.0000000E+00 + 71.50000 141.5000 0.0000000E+00 + 72.50000 141.5000 0.0000000E+00 + 73.50000 141.5000 0.0000000E+00 + 74.50000 141.5000 0.0000000E+00 + 75.50000 141.5000 0.0000000E+00 + 76.50000 141.5000 0.0000000E+00 + 77.50000 141.5000 0.0000000E+00 + 78.50000 141.5000 0.0000000E+00 + 79.50000 141.5000 0.0000000E+00 + 80.50000 141.5000 0.0000000E+00 + 81.50000 141.5000 0.0000000E+00 + 82.50000 141.5000 0.0000000E+00 + 83.50000 141.5000 0.0000000E+00 + 84.50000 141.5000 0.0000000E+00 + 85.50000 141.5000 0.0000000E+00 + 86.50000 141.5000 0.0000000E+00 + 87.50000 141.5000 0.0000000E+00 + 88.50000 141.5000 0.0000000E+00 + 89.50000 141.5000 0.0000000E+00 + -89.50000 142.5000 0.0000000E+00 + -88.50000 142.5000 0.0000000E+00 + -87.50000 142.5000 0.0000000E+00 + -86.50000 142.5000 0.0000000E+00 + -85.50000 142.5000 0.0000000E+00 + -84.50000 142.5000 0.0000000E+00 + -83.50000 142.5000 0.0000000E+00 + -82.50000 142.5000 0.0000000E+00 + -81.50000 142.5000 0.0000000E+00 + -80.50000 142.5000 0.0000000E+00 + -79.50000 142.5000 0.0000000E+00 + -78.50000 142.5000 0.0000000E+00 + -77.50000 142.5000 0.0000000E+00 + -76.50000 142.5000 0.0000000E+00 + -75.50000 142.5000 0.0000000E+00 + -74.50000 142.5000 0.0000000E+00 + -73.50000 142.5000 0.0000000E+00 + -72.50000 142.5000 0.0000000E+00 + -71.50000 142.5000 0.0000000E+00 + -70.50000 142.5000 0.0000000E+00 + -69.50000 142.5000 0.0000000E+00 + -68.50000 142.5000 0.0000000E+00 + -67.50000 142.5000 0.0000000E+00 + -66.50000 142.5000 0.0000000E+00 + -65.50000 142.5000 0.0000000E+00 + -64.50000 142.5000 0.0000000E+00 + -63.50000 142.5000 0.0000000E+00 + -62.50000 142.5000 0.0000000E+00 + -61.50000 142.5000 0.0000000E+00 + -60.50000 142.5000 0.0000000E+00 + -59.50000 142.5000 0.0000000E+00 + -58.50000 142.5000 0.0000000E+00 + -57.50000 142.5000 0.0000000E+00 + -56.50000 142.5000 0.0000000E+00 + -55.50000 142.5000 0.0000000E+00 + -54.50000 142.5000 0.0000000E+00 + -53.50000 142.5000 0.0000000E+00 + -52.50000 142.5000 0.0000000E+00 + -51.50000 142.5000 0.0000000E+00 + -50.50000 142.5000 0.0000000E+00 + -49.50000 142.5000 0.0000000E+00 + -48.50000 142.5000 0.0000000E+00 + -47.50000 142.5000 0.0000000E+00 + -46.50000 142.5000 0.0000000E+00 + -45.50000 142.5000 0.0000000E+00 + -44.50000 142.5000 0.0000000E+00 + -43.50000 142.5000 0.0000000E+00 + -42.50000 142.5000 0.0000000E+00 + -41.50000 142.5000 0.0000000E+00 + -40.50000 142.5000 0.0000000E+00 + -39.50000 142.5000 0.0000000E+00 + -38.50000 142.5000 0.0000000E+00 + -37.50000 142.5000 0.0000000E+00 + -36.50000 142.5000 0.0000000E+00 + -35.50000 142.5000 0.0000000E+00 + -34.50000 142.5000 0.0000000E+00 + -33.50000 142.5000 0.0000000E+00 + -32.50000 142.5000 0.0000000E+00 + -31.50000 142.5000 0.0000000E+00 + -30.50000 142.5000 2.4447279E-02 + -29.50000 142.5000 2.4447279E-02 + -28.50000 142.5000 1.6384004E-02 + -27.50000 142.5000 1.1865235E-02 + -26.50000 142.5000 0.0000000E+00 + -25.50000 142.5000 8.4934738E-03 + -24.50000 142.5000 8.4934738E-03 + -23.50000 142.5000 8.4934738E-03 + -22.50000 142.5000 7.1327672E-03 + -21.50000 142.5000 0.0000000E+00 + -20.50000 142.5000 0.0000000E+00 + -19.50000 142.5000 0.0000000E+00 + -18.50000 142.5000 0.0000000E+00 + -17.50000 142.5000 0.0000000E+00 + -16.50000 142.5000 0.0000000E+00 + -15.50000 142.5000 0.0000000E+00 + -14.50000 142.5000 0.0000000E+00 + -13.50000 142.5000 0.0000000E+00 + -12.50000 142.5000 0.0000000E+00 + -11.50000 142.5000 0.0000000E+00 + -10.50000 142.5000 0.0000000E+00 + -9.500000 142.5000 0.0000000E+00 + -8.500000 142.5000 0.0000000E+00 + -7.500000 142.5000 0.0000000E+00 + -6.500000 142.5000 0.0000000E+00 + -5.500000 142.5000 0.0000000E+00 + -4.500000 142.5000 0.0000000E+00 + -3.500000 142.5000 0.0000000E+00 + -2.500000 142.5000 0.0000000E+00 + -1.500000 142.5000 0.0000000E+00 + -0.5000000 142.5000 0.0000000E+00 + 0.5000000 142.5000 0.0000000E+00 + 1.500000 142.5000 0.0000000E+00 + 2.500000 142.5000 0.0000000E+00 + 3.500000 142.5000 0.0000000E+00 + 4.500000 142.5000 0.0000000E+00 + 5.500000 142.5000 0.0000000E+00 + 6.500000 142.5000 0.0000000E+00 + 7.500000 142.5000 0.0000000E+00 + 8.500000 142.5000 0.0000000E+00 + 9.500000 142.5000 0.0000000E+00 + 10.50000 142.5000 0.0000000E+00 + 11.50000 142.5000 0.0000000E+00 + 12.50000 142.5000 0.0000000E+00 + 13.50000 142.5000 0.0000000E+00 + 14.50000 142.5000 0.0000000E+00 + 15.50000 142.5000 0.0000000E+00 + 16.50000 142.5000 0.0000000E+00 + 17.50000 142.5000 0.0000000E+00 + 18.50000 142.5000 0.0000000E+00 + 19.50000 142.5000 0.0000000E+00 + 20.50000 142.5000 0.0000000E+00 + 21.50000 142.5000 0.0000000E+00 + 22.50000 142.5000 0.0000000E+00 + 23.50000 142.5000 0.0000000E+00 + 24.50000 142.5000 0.0000000E+00 + 25.50000 142.5000 0.0000000E+00 + 26.50000 142.5000 0.0000000E+00 + 27.50000 142.5000 0.0000000E+00 + 28.50000 142.5000 0.0000000E+00 + 29.50000 142.5000 0.0000000E+00 + 30.50000 142.5000 0.0000000E+00 + 31.50000 142.5000 0.0000000E+00 + 32.50000 142.5000 0.0000000E+00 + 33.50000 142.5000 0.0000000E+00 + 34.50000 142.5000 0.0000000E+00 + 35.50000 142.5000 0.0000000E+00 + 36.50000 142.5000 0.0000000E+00 + 37.50000 142.5000 0.0000000E+00 + 38.50000 142.5000 0.0000000E+00 + 39.50000 142.5000 0.0000000E+00 + 40.50000 142.5000 0.0000000E+00 + 41.50000 142.5000 0.0000000E+00 + 42.50000 142.5000 0.0000000E+00 + 43.50000 142.5000 0.0000000E+00 + 44.50000 142.5000 0.0000000E+00 + 45.50000 142.5000 0.0000000E+00 + 46.50000 142.5000 0.0000000E+00 + 47.50000 142.5000 0.0000000E+00 + 48.50000 142.5000 0.0000000E+00 + 49.50000 142.5000 0.0000000E+00 + 50.50000 142.5000 0.0000000E+00 + 51.50000 142.5000 0.0000000E+00 + 52.50000 142.5000 0.0000000E+00 + 53.50000 142.5000 0.0000000E+00 + 54.50000 142.5000 0.0000000E+00 + 55.50000 142.5000 0.0000000E+00 + 56.50000 142.5000 0.0000000E+00 + 57.50000 142.5000 0.0000000E+00 + 58.50000 142.5000 0.0000000E+00 + 59.50000 142.5000 0.0000000E+00 + 60.50000 142.5000 0.0000000E+00 + 61.50000 142.5000 0.0000000E+00 + 62.50000 142.5000 0.0000000E+00 + 63.50000 142.5000 0.0000000E+00 + 64.50000 142.5000 0.0000000E+00 + 65.50000 142.5000 0.0000000E+00 + 66.50000 142.5000 0.0000000E+00 + 67.50000 142.5000 0.0000000E+00 + 68.50000 142.5000 0.0000000E+00 + 69.50000 142.5000 0.0000000E+00 + 70.50000 142.5000 0.0000000E+00 + 71.50000 142.5000 0.0000000E+00 + 72.50000 142.5000 0.0000000E+00 + 73.50000 142.5000 0.0000000E+00 + 74.50000 142.5000 0.0000000E+00 + 75.50000 142.5000 0.0000000E+00 + 76.50000 142.5000 0.0000000E+00 + 77.50000 142.5000 0.0000000E+00 + 78.50000 142.5000 0.0000000E+00 + 79.50000 142.5000 0.0000000E+00 + 80.50000 142.5000 0.0000000E+00 + 81.50000 142.5000 0.0000000E+00 + 82.50000 142.5000 0.0000000E+00 + 83.50000 142.5000 0.0000000E+00 + 84.50000 142.5000 0.0000000E+00 + 85.50000 142.5000 0.0000000E+00 + 86.50000 142.5000 0.0000000E+00 + 87.50000 142.5000 0.0000000E+00 + 88.50000 142.5000 0.0000000E+00 + 89.50000 142.5000 0.0000000E+00 + -89.50000 143.5000 0.0000000E+00 + -88.50000 143.5000 0.0000000E+00 + -87.50000 143.5000 0.0000000E+00 + -86.50000 143.5000 0.0000000E+00 + -85.50000 143.5000 0.0000000E+00 + -84.50000 143.5000 0.0000000E+00 + -83.50000 143.5000 0.0000000E+00 + -82.50000 143.5000 0.0000000E+00 + -81.50000 143.5000 0.0000000E+00 + -80.50000 143.5000 0.0000000E+00 + -79.50000 143.5000 0.0000000E+00 + -78.50000 143.5000 0.0000000E+00 + -77.50000 143.5000 0.0000000E+00 + -76.50000 143.5000 0.0000000E+00 + -75.50000 143.5000 0.0000000E+00 + -74.50000 143.5000 0.0000000E+00 + -73.50000 143.5000 0.0000000E+00 + -72.50000 143.5000 0.0000000E+00 + -71.50000 143.5000 0.0000000E+00 + -70.50000 143.5000 0.0000000E+00 + -69.50000 143.5000 0.0000000E+00 + -68.50000 143.5000 0.0000000E+00 + -67.50000 143.5000 0.0000000E+00 + -66.50000 143.5000 0.0000000E+00 + -65.50000 143.5000 0.0000000E+00 + -64.50000 143.5000 0.0000000E+00 + -63.50000 143.5000 0.0000000E+00 + -62.50000 143.5000 0.0000000E+00 + -61.50000 143.5000 0.0000000E+00 + -60.50000 143.5000 0.0000000E+00 + -59.50000 143.5000 0.0000000E+00 + -58.50000 143.5000 0.0000000E+00 + -57.50000 143.5000 0.0000000E+00 + -56.50000 143.5000 0.0000000E+00 + -55.50000 143.5000 0.0000000E+00 + -54.50000 143.5000 0.0000000E+00 + -53.50000 143.5000 0.0000000E+00 + -52.50000 143.5000 0.0000000E+00 + -51.50000 143.5000 0.0000000E+00 + -50.50000 143.5000 0.0000000E+00 + -49.50000 143.5000 0.0000000E+00 + -48.50000 143.5000 0.0000000E+00 + -47.50000 143.5000 0.0000000E+00 + -46.50000 143.5000 0.0000000E+00 + -45.50000 143.5000 0.0000000E+00 + -44.50000 143.5000 0.0000000E+00 + -43.50000 143.5000 0.0000000E+00 + -42.50000 143.5000 0.0000000E+00 + -41.50000 143.5000 0.0000000E+00 + -40.50000 143.5000 0.0000000E+00 + -39.50000 143.5000 0.0000000E+00 + -38.50000 143.5000 0.0000000E+00 + -37.50000 143.5000 0.0000000E+00 + -36.50000 143.5000 0.0000000E+00 + -35.50000 143.5000 0.0000000E+00 + -34.50000 143.5000 0.0000000E+00 + -33.50000 143.5000 0.0000000E+00 + -32.50000 143.5000 0.0000000E+00 + -31.50000 143.5000 0.0000000E+00 + -30.50000 143.5000 3.5412278E-02 + -29.50000 143.5000 2.4447279E-02 + -28.50000 143.5000 1.6384004E-02 + -27.50000 143.5000 1.1865235E-02 + -26.50000 143.5000 1.1865235E-02 + -25.50000 143.5000 9.2967218E-03 + -24.50000 143.5000 0.0000000E+00 + -23.50000 143.5000 8.4934738E-03 + -22.50000 143.5000 0.0000000E+00 + -21.50000 143.5000 0.0000000E+00 + -20.50000 143.5000 0.0000000E+00 + -19.50000 143.5000 0.0000000E+00 + -18.50000 143.5000 0.0000000E+00 + -17.50000 143.5000 0.0000000E+00 + -16.50000 143.5000 0.0000000E+00 + -15.50000 143.5000 0.0000000E+00 + -14.50000 143.5000 0.0000000E+00 + -13.50000 143.5000 0.0000000E+00 + -12.50000 143.5000 0.0000000E+00 + -11.50000 143.5000 0.0000000E+00 + -10.50000 143.5000 0.0000000E+00 + -9.500000 143.5000 0.0000000E+00 + -8.500000 143.5000 0.0000000E+00 + -7.500000 143.5000 0.0000000E+00 + -6.500000 143.5000 0.0000000E+00 + -5.500000 143.5000 0.0000000E+00 + -4.500000 143.5000 0.0000000E+00 + -3.500000 143.5000 0.0000000E+00 + -2.500000 143.5000 0.0000000E+00 + -1.500000 143.5000 0.0000000E+00 + -0.5000000 143.5000 0.0000000E+00 + 0.5000000 143.5000 0.0000000E+00 + 1.500000 143.5000 0.0000000E+00 + 2.500000 143.5000 0.0000000E+00 + 3.500000 143.5000 0.0000000E+00 + 4.500000 143.5000 0.0000000E+00 + 5.500000 143.5000 0.0000000E+00 + 6.500000 143.5000 0.0000000E+00 + 7.500000 143.5000 0.0000000E+00 + 8.500000 143.5000 0.0000000E+00 + 9.500000 143.5000 0.0000000E+00 + 10.50000 143.5000 0.0000000E+00 + 11.50000 143.5000 0.0000000E+00 + 12.50000 143.5000 0.0000000E+00 + 13.50000 143.5000 0.0000000E+00 + 14.50000 143.5000 0.0000000E+00 + 15.50000 143.5000 0.0000000E+00 + 16.50000 143.5000 0.0000000E+00 + 17.50000 143.5000 0.0000000E+00 + 18.50000 143.5000 0.0000000E+00 + 19.50000 143.5000 0.0000000E+00 + 20.50000 143.5000 0.0000000E+00 + 21.50000 143.5000 0.0000000E+00 + 22.50000 143.5000 0.0000000E+00 + 23.50000 143.5000 0.0000000E+00 + 24.50000 143.5000 0.0000000E+00 + 25.50000 143.5000 0.0000000E+00 + 26.50000 143.5000 0.0000000E+00 + 27.50000 143.5000 0.0000000E+00 + 28.50000 143.5000 0.0000000E+00 + 29.50000 143.5000 0.0000000E+00 + 30.50000 143.5000 0.0000000E+00 + 31.50000 143.5000 0.0000000E+00 + 32.50000 143.5000 0.0000000E+00 + 33.50000 143.5000 0.0000000E+00 + 34.50000 143.5000 0.0000000E+00 + 35.50000 143.5000 0.0000000E+00 + 36.50000 143.5000 0.0000000E+00 + 37.50000 143.5000 0.0000000E+00 + 38.50000 143.5000 0.0000000E+00 + 39.50000 143.5000 0.0000000E+00 + 40.50000 143.5000 0.0000000E+00 + 41.50000 143.5000 0.0000000E+00 + 42.50000 143.5000 0.0000000E+00 + 43.50000 143.5000 0.0000000E+00 + 44.50000 143.5000 0.0000000E+00 + 45.50000 143.5000 0.0000000E+00 + 46.50000 143.5000 0.0000000E+00 + 47.50000 143.5000 0.0000000E+00 + 48.50000 143.5000 0.0000000E+00 + 49.50000 143.5000 0.0000000E+00 + 50.50000 143.5000 0.0000000E+00 + 51.50000 143.5000 0.0000000E+00 + 52.50000 143.5000 0.0000000E+00 + 53.50000 143.5000 0.0000000E+00 + 54.50000 143.5000 0.0000000E+00 + 55.50000 143.5000 0.0000000E+00 + 56.50000 143.5000 0.0000000E+00 + 57.50000 143.5000 0.0000000E+00 + 58.50000 143.5000 0.0000000E+00 + 59.50000 143.5000 0.0000000E+00 + 60.50000 143.5000 0.0000000E+00 + 61.50000 143.5000 0.0000000E+00 + 62.50000 143.5000 0.0000000E+00 + 63.50000 143.5000 0.0000000E+00 + 64.50000 143.5000 0.0000000E+00 + 65.50000 143.5000 0.0000000E+00 + 66.50000 143.5000 0.0000000E+00 + 67.50000 143.5000 0.0000000E+00 + 68.50000 143.5000 0.0000000E+00 + 69.50000 143.5000 0.0000000E+00 + 70.50000 143.5000 0.0000000E+00 + 71.50000 143.5000 0.0000000E+00 + 72.50000 143.5000 0.0000000E+00 + 73.50000 143.5000 0.0000000E+00 + 74.50000 143.5000 0.0000000E+00 + 75.50000 143.5000 0.0000000E+00 + 76.50000 143.5000 0.0000000E+00 + 77.50000 143.5000 0.0000000E+00 + 78.50000 143.5000 0.0000000E+00 + 79.50000 143.5000 0.0000000E+00 + 80.50000 143.5000 0.0000000E+00 + 81.50000 143.5000 0.0000000E+00 + 82.50000 143.5000 0.0000000E+00 + 83.50000 143.5000 0.0000000E+00 + 84.50000 143.5000 0.0000000E+00 + 85.50000 143.5000 0.0000000E+00 + 86.50000 143.5000 0.0000000E+00 + 87.50000 143.5000 0.0000000E+00 + 88.50000 143.5000 0.0000000E+00 + 89.50000 143.5000 0.0000000E+00 + -89.50000 144.5000 0.0000000E+00 + -88.50000 144.5000 0.0000000E+00 + -87.50000 144.5000 0.0000000E+00 + -86.50000 144.5000 0.0000000E+00 + -85.50000 144.5000 0.0000000E+00 + -84.50000 144.5000 0.0000000E+00 + -83.50000 144.5000 0.0000000E+00 + -82.50000 144.5000 0.0000000E+00 + -81.50000 144.5000 0.0000000E+00 + -80.50000 144.5000 0.0000000E+00 + -79.50000 144.5000 0.0000000E+00 + -78.50000 144.5000 0.0000000E+00 + -77.50000 144.5000 0.0000000E+00 + -76.50000 144.5000 0.0000000E+00 + -75.50000 144.5000 0.0000000E+00 + -74.50000 144.5000 0.0000000E+00 + -73.50000 144.5000 0.0000000E+00 + -72.50000 144.5000 0.0000000E+00 + -71.50000 144.5000 0.0000000E+00 + -70.50000 144.5000 0.0000000E+00 + -69.50000 144.5000 0.0000000E+00 + -68.50000 144.5000 0.0000000E+00 + -67.50000 144.5000 0.0000000E+00 + -66.50000 144.5000 0.0000000E+00 + -65.50000 144.5000 0.0000000E+00 + -64.50000 144.5000 0.0000000E+00 + -63.50000 144.5000 0.0000000E+00 + -62.50000 144.5000 0.0000000E+00 + -61.50000 144.5000 0.0000000E+00 + -60.50000 144.5000 0.0000000E+00 + -59.50000 144.5000 0.0000000E+00 + -58.50000 144.5000 0.0000000E+00 + -57.50000 144.5000 0.0000000E+00 + -56.50000 144.5000 0.0000000E+00 + -55.50000 144.5000 0.0000000E+00 + -54.50000 144.5000 0.0000000E+00 + -53.50000 144.5000 0.0000000E+00 + -52.50000 144.5000 0.0000000E+00 + -51.50000 144.5000 0.0000000E+00 + -50.50000 144.5000 0.0000000E+00 + -49.50000 144.5000 0.0000000E+00 + -48.50000 144.5000 0.0000000E+00 + -47.50000 144.5000 0.0000000E+00 + -46.50000 144.5000 0.0000000E+00 + -45.50000 144.5000 0.0000000E+00 + -44.50000 144.5000 0.0000000E+00 + -43.50000 144.5000 0.0000000E+00 + -42.50000 144.5000 0.0000000E+00 + -41.50000 144.5000 0.0000000E+00 + -40.50000 144.5000 0.0000000E+00 + -39.50000 144.5000 0.0000000E+00 + -38.50000 144.5000 0.0000000E+00 + -37.50000 144.5000 0.0000000E+00 + -36.50000 144.5000 0.0000000E+00 + -35.50000 144.5000 0.0000000E+00 + -34.50000 144.5000 0.0000000E+00 + -33.50000 144.5000 0.0000000E+00 + -32.50000 144.5000 0.0000000E+00 + -31.50000 144.5000 2.4447279E-02 + -30.50000 144.5000 2.4447279E-02 + -29.50000 144.5000 2.4447279E-02 + -28.50000 144.5000 1.6384004E-02 + -27.50000 144.5000 1.4231401E-02 + -26.50000 144.5000 1.4231401E-02 + -25.50000 144.5000 0.0000000E+00 + -24.50000 144.5000 6.5843635E-03 + -23.50000 144.5000 0.0000000E+00 + -22.50000 144.5000 4.7683716E-03 + -21.50000 144.5000 0.0000000E+00 + -20.50000 144.5000 0.0000000E+00 + -19.50000 144.5000 0.0000000E+00 + -18.50000 144.5000 0.0000000E+00 + -17.50000 144.5000 0.0000000E+00 + -16.50000 144.5000 0.0000000E+00 + -15.50000 144.5000 0.0000000E+00 + -14.50000 144.5000 0.0000000E+00 + -13.50000 144.5000 0.0000000E+00 + -12.50000 144.5000 0.0000000E+00 + -11.50000 144.5000 0.0000000E+00 + -10.50000 144.5000 0.0000000E+00 + -9.500000 144.5000 0.0000000E+00 + -8.500000 144.5000 0.0000000E+00 + -7.500000 144.5000 0.0000000E+00 + -6.500000 144.5000 0.0000000E+00 + -5.500000 144.5000 0.0000000E+00 + -4.500000 144.5000 0.0000000E+00 + -3.500000 144.5000 0.0000000E+00 + -2.500000 144.5000 0.0000000E+00 + -1.500000 144.5000 0.0000000E+00 + -0.5000000 144.5000 0.0000000E+00 + 0.5000000 144.5000 0.0000000E+00 + 1.500000 144.5000 0.0000000E+00 + 2.500000 144.5000 0.0000000E+00 + 3.500000 144.5000 0.0000000E+00 + 4.500000 144.5000 0.0000000E+00 + 5.500000 144.5000 0.0000000E+00 + 6.500000 144.5000 0.0000000E+00 + 7.500000 144.5000 0.0000000E+00 + 8.500000 144.5000 0.0000000E+00 + 9.500000 144.5000 0.0000000E+00 + 10.50000 144.5000 0.0000000E+00 + 11.50000 144.5000 0.0000000E+00 + 12.50000 144.5000 0.0000000E+00 + 13.50000 144.5000 0.0000000E+00 + 14.50000 144.5000 0.0000000E+00 + 15.50000 144.5000 0.0000000E+00 + 16.50000 144.5000 0.0000000E+00 + 17.50000 144.5000 0.0000000E+00 + 18.50000 144.5000 0.0000000E+00 + 19.50000 144.5000 0.0000000E+00 + 20.50000 144.5000 0.0000000E+00 + 21.50000 144.5000 0.0000000E+00 + 22.50000 144.5000 0.0000000E+00 + 23.50000 144.5000 0.0000000E+00 + 24.50000 144.5000 0.0000000E+00 + 25.50000 144.5000 0.0000000E+00 + 26.50000 144.5000 0.0000000E+00 + 27.50000 144.5000 0.0000000E+00 + 28.50000 144.5000 0.0000000E+00 + 29.50000 144.5000 0.0000000E+00 + 30.50000 144.5000 0.0000000E+00 + 31.50000 144.5000 0.0000000E+00 + 32.50000 144.5000 0.0000000E+00 + 33.50000 144.5000 0.0000000E+00 + 34.50000 144.5000 0.0000000E+00 + 35.50000 144.5000 0.0000000E+00 + 36.50000 144.5000 0.0000000E+00 + 37.50000 144.5000 0.0000000E+00 + 38.50000 144.5000 0.0000000E+00 + 39.50000 144.5000 0.0000000E+00 + 40.50000 144.5000 0.0000000E+00 + 41.50000 144.5000 0.0000000E+00 + 42.50000 144.5000 0.0000000E+00 + 43.50000 144.5000 0.0000000E+00 + 44.50000 144.5000 0.0000000E+00 + 45.50000 144.5000 0.0000000E+00 + 46.50000 144.5000 0.0000000E+00 + 47.50000 144.5000 0.0000000E+00 + 48.50000 144.5000 0.0000000E+00 + 49.50000 144.5000 0.0000000E+00 + 50.50000 144.5000 0.0000000E+00 + 51.50000 144.5000 0.0000000E+00 + 52.50000 144.5000 0.0000000E+00 + 53.50000 144.5000 0.0000000E+00 + 54.50000 144.5000 0.0000000E+00 + 55.50000 144.5000 0.0000000E+00 + 56.50000 144.5000 0.0000000E+00 + 57.50000 144.5000 0.0000000E+00 + 58.50000 144.5000 0.0000000E+00 + 59.50000 144.5000 0.0000000E+00 + 60.50000 144.5000 0.0000000E+00 + 61.50000 144.5000 0.0000000E+00 + 62.50000 144.5000 0.0000000E+00 + 63.50000 144.5000 0.0000000E+00 + 64.50000 144.5000 0.0000000E+00 + 65.50000 144.5000 0.0000000E+00 + 66.50000 144.5000 0.0000000E+00 + 67.50000 144.5000 0.0000000E+00 + 68.50000 144.5000 0.0000000E+00 + 69.50000 144.5000 0.0000000E+00 + 70.50000 144.5000 0.0000000E+00 + 71.50000 144.5000 0.0000000E+00 + 72.50000 144.5000 0.0000000E+00 + 73.50000 144.5000 0.0000000E+00 + 74.50000 144.5000 0.0000000E+00 + 75.50000 144.5000 0.0000000E+00 + 76.50000 144.5000 0.0000000E+00 + 77.50000 144.5000 0.0000000E+00 + 78.50000 144.5000 0.0000000E+00 + 79.50000 144.5000 0.0000000E+00 + 80.50000 144.5000 0.0000000E+00 + 81.50000 144.5000 0.0000000E+00 + 82.50000 144.5000 0.0000000E+00 + 83.50000 144.5000 0.0000000E+00 + 84.50000 144.5000 0.0000000E+00 + 85.50000 144.5000 0.0000000E+00 + 86.50000 144.5000 0.0000000E+00 + 87.50000 144.5000 0.0000000E+00 + 88.50000 144.5000 0.0000000E+00 + 89.50000 144.5000 0.0000000E+00 + -89.50000 145.5000 0.0000000E+00 + -88.50000 145.5000 0.0000000E+00 + -87.50000 145.5000 0.0000000E+00 + -86.50000 145.5000 0.0000000E+00 + -85.50000 145.5000 0.0000000E+00 + -84.50000 145.5000 0.0000000E+00 + -83.50000 145.5000 0.0000000E+00 + -82.50000 145.5000 0.0000000E+00 + -81.50000 145.5000 0.0000000E+00 + -80.50000 145.5000 0.0000000E+00 + -79.50000 145.5000 0.0000000E+00 + -78.50000 145.5000 0.0000000E+00 + -77.50000 145.5000 0.0000000E+00 + -76.50000 145.5000 0.0000000E+00 + -75.50000 145.5000 0.0000000E+00 + -74.50000 145.5000 0.0000000E+00 + -73.50000 145.5000 0.0000000E+00 + -72.50000 145.5000 0.0000000E+00 + -71.50000 145.5000 0.0000000E+00 + -70.50000 145.5000 0.0000000E+00 + -69.50000 145.5000 0.0000000E+00 + -68.50000 145.5000 0.0000000E+00 + -67.50000 145.5000 0.0000000E+00 + -66.50000 145.5000 0.0000000E+00 + -65.50000 145.5000 0.0000000E+00 + -64.50000 145.5000 0.0000000E+00 + -63.50000 145.5000 0.0000000E+00 + -62.50000 145.5000 0.0000000E+00 + -61.50000 145.5000 0.0000000E+00 + -60.50000 145.5000 0.0000000E+00 + -59.50000 145.5000 0.0000000E+00 + -58.50000 145.5000 0.0000000E+00 + -57.50000 145.5000 0.0000000E+00 + -56.50000 145.5000 0.0000000E+00 + -55.50000 145.5000 0.0000000E+00 + -54.50000 145.5000 0.0000000E+00 + -53.50000 145.5000 0.0000000E+00 + -52.50000 145.5000 0.0000000E+00 + -51.50000 145.5000 0.0000000E+00 + -50.50000 145.5000 0.0000000E+00 + -49.50000 145.5000 0.0000000E+00 + -48.50000 145.5000 0.0000000E+00 + -47.50000 145.5000 0.0000000E+00 + -46.50000 145.5000 0.0000000E+00 + -45.50000 145.5000 0.0000000E+00 + -44.50000 145.5000 0.0000000E+00 + -43.50000 145.5000 0.0000000E+00 + -42.50000 145.5000 0.0000000E+00 + -41.50000 145.5000 0.0000000E+00 + -40.50000 145.5000 0.0000000E+00 + -39.50000 145.5000 0.0000000E+00 + -38.50000 145.5000 0.0000000E+00 + -37.50000 145.5000 0.0000000E+00 + -36.50000 145.5000 0.0000000E+00 + -35.50000 145.5000 0.0000000E+00 + -34.50000 145.5000 0.0000000E+00 + -33.50000 145.5000 0.0000000E+00 + -32.50000 145.5000 0.0000000E+00 + -31.50000 145.5000 0.0000000E+00 + -30.50000 145.5000 0.0000000E+00 + -29.50000 145.5000 2.4447279E-02 + -28.50000 145.5000 1.6384004E-02 + -27.50000 145.5000 1.4231401E-02 + -26.50000 145.5000 0.0000000E+00 + -25.50000 145.5000 0.0000000E+00 + -24.50000 145.5000 0.0000000E+00 + -23.50000 145.5000 6.5843635E-03 + -22.50000 145.5000 4.7683716E-03 + -21.50000 145.5000 0.0000000E+00 + -20.50000 145.5000 0.0000000E+00 + -19.50000 145.5000 0.0000000E+00 + -18.50000 145.5000 0.0000000E+00 + -17.50000 145.5000 0.0000000E+00 + -16.50000 145.5000 0.0000000E+00 + -15.50000 145.5000 0.0000000E+00 + -14.50000 145.5000 0.0000000E+00 + -13.50000 145.5000 0.0000000E+00 + -12.50000 145.5000 0.0000000E+00 + -11.50000 145.5000 0.0000000E+00 + -10.50000 145.5000 0.0000000E+00 + -9.500000 145.5000 0.0000000E+00 + -8.500000 145.5000 0.0000000E+00 + -7.500000 145.5000 0.0000000E+00 + -6.500000 145.5000 0.0000000E+00 + -5.500000 145.5000 0.0000000E+00 + -4.500000 145.5000 0.0000000E+00 + -3.500000 145.5000 0.0000000E+00 + -2.500000 145.5000 0.0000000E+00 + -1.500000 145.5000 0.0000000E+00 + -0.5000000 145.5000 0.0000000E+00 + 0.5000000 145.5000 0.0000000E+00 + 1.500000 145.5000 0.0000000E+00 + 2.500000 145.5000 0.0000000E+00 + 3.500000 145.5000 0.0000000E+00 + 4.500000 145.5000 0.0000000E+00 + 5.500000 145.5000 0.0000000E+00 + 6.500000 145.5000 0.0000000E+00 + 7.500000 145.5000 0.0000000E+00 + 8.500000 145.5000 0.0000000E+00 + 9.500000 145.5000 0.0000000E+00 + 10.50000 145.5000 0.0000000E+00 + 11.50000 145.5000 0.0000000E+00 + 12.50000 145.5000 0.0000000E+00 + 13.50000 145.5000 0.0000000E+00 + 14.50000 145.5000 0.0000000E+00 + 15.50000 145.5000 0.0000000E+00 + 16.50000 145.5000 0.0000000E+00 + 17.50000 145.5000 0.0000000E+00 + 18.50000 145.5000 0.0000000E+00 + 19.50000 145.5000 0.0000000E+00 + 20.50000 145.5000 0.0000000E+00 + 21.50000 145.5000 0.0000000E+00 + 22.50000 145.5000 0.0000000E+00 + 23.50000 145.5000 0.0000000E+00 + 24.50000 145.5000 0.0000000E+00 + 25.50000 145.5000 0.0000000E+00 + 26.50000 145.5000 0.0000000E+00 + 27.50000 145.5000 0.0000000E+00 + 28.50000 145.5000 0.0000000E+00 + 29.50000 145.5000 0.0000000E+00 + 30.50000 145.5000 0.0000000E+00 + 31.50000 145.5000 0.0000000E+00 + 32.50000 145.5000 0.0000000E+00 + 33.50000 145.5000 0.0000000E+00 + 34.50000 145.5000 0.0000000E+00 + 35.50000 145.5000 0.0000000E+00 + 36.50000 145.5000 0.0000000E+00 + 37.50000 145.5000 0.0000000E+00 + 38.50000 145.5000 0.0000000E+00 + 39.50000 145.5000 0.0000000E+00 + 40.50000 145.5000 0.0000000E+00 + 41.50000 145.5000 0.0000000E+00 + 42.50000 145.5000 0.0000000E+00 + 43.50000 145.5000 0.0000000E+00 + 44.50000 145.5000 0.0000000E+00 + 45.50000 145.5000 0.0000000E+00 + 46.50000 145.5000 0.0000000E+00 + 47.50000 145.5000 0.0000000E+00 + 48.50000 145.5000 0.0000000E+00 + 49.50000 145.5000 0.0000000E+00 + 50.50000 145.5000 0.0000000E+00 + 51.50000 145.5000 0.0000000E+00 + 52.50000 145.5000 0.0000000E+00 + 53.50000 145.5000 0.0000000E+00 + 54.50000 145.5000 0.0000000E+00 + 55.50000 145.5000 0.0000000E+00 + 56.50000 145.5000 0.0000000E+00 + 57.50000 145.5000 0.0000000E+00 + 58.50000 145.5000 0.0000000E+00 + 59.50000 145.5000 0.0000000E+00 + 60.50000 145.5000 0.0000000E+00 + 61.50000 145.5000 0.0000000E+00 + 62.50000 145.5000 0.0000000E+00 + 63.50000 145.5000 0.0000000E+00 + 64.50000 145.5000 0.0000000E+00 + 65.50000 145.5000 0.0000000E+00 + 66.50000 145.5000 0.0000000E+00 + 67.50000 145.5000 0.0000000E+00 + 68.50000 145.5000 0.0000000E+00 + 69.50000 145.5000 0.0000000E+00 + 70.50000 145.5000 0.0000000E+00 + 71.50000 145.5000 0.0000000E+00 + 72.50000 145.5000 0.0000000E+00 + 73.50000 145.5000 0.0000000E+00 + 74.50000 145.5000 0.0000000E+00 + 75.50000 145.5000 0.0000000E+00 + 76.50000 145.5000 0.0000000E+00 + 77.50000 145.5000 0.0000000E+00 + 78.50000 145.5000 0.0000000E+00 + 79.50000 145.5000 0.0000000E+00 + 80.50000 145.5000 0.0000000E+00 + 81.50000 145.5000 0.0000000E+00 + 82.50000 145.5000 0.0000000E+00 + 83.50000 145.5000 0.0000000E+00 + 84.50000 145.5000 0.0000000E+00 + 85.50000 145.5000 0.0000000E+00 + 86.50000 145.5000 0.0000000E+00 + 87.50000 145.5000 0.0000000E+00 + 88.50000 145.5000 0.0000000E+00 + 89.50000 145.5000 0.0000000E+00 + -89.50000 146.5000 0.0000000E+00 + -88.50000 146.5000 0.0000000E+00 + -87.50000 146.5000 0.0000000E+00 + -86.50000 146.5000 0.0000000E+00 + -85.50000 146.5000 0.0000000E+00 + -84.50000 146.5000 0.0000000E+00 + -83.50000 146.5000 0.0000000E+00 + -82.50000 146.5000 0.0000000E+00 + -81.50000 146.5000 0.0000000E+00 + -80.50000 146.5000 0.0000000E+00 + -79.50000 146.5000 0.0000000E+00 + -78.50000 146.5000 0.0000000E+00 + -77.50000 146.5000 0.0000000E+00 + -76.50000 146.5000 0.0000000E+00 + -75.50000 146.5000 0.0000000E+00 + -74.50000 146.5000 0.0000000E+00 + -73.50000 146.5000 0.0000000E+00 + -72.50000 146.5000 0.0000000E+00 + -71.50000 146.5000 0.0000000E+00 + -70.50000 146.5000 0.0000000E+00 + -69.50000 146.5000 0.0000000E+00 + -68.50000 146.5000 0.0000000E+00 + -67.50000 146.5000 0.0000000E+00 + -66.50000 146.5000 0.0000000E+00 + -65.50000 146.5000 0.0000000E+00 + -64.50000 146.5000 0.0000000E+00 + -63.50000 146.5000 0.0000000E+00 + -62.50000 146.5000 0.0000000E+00 + -61.50000 146.5000 0.0000000E+00 + -60.50000 146.5000 0.0000000E+00 + -59.50000 146.5000 0.0000000E+00 + -58.50000 146.5000 0.0000000E+00 + -57.50000 146.5000 0.0000000E+00 + -56.50000 146.5000 0.0000000E+00 + -55.50000 146.5000 0.0000000E+00 + -54.50000 146.5000 0.0000000E+00 + -53.50000 146.5000 0.0000000E+00 + -52.50000 146.5000 0.0000000E+00 + -51.50000 146.5000 0.0000000E+00 + -50.50000 146.5000 0.0000000E+00 + -49.50000 146.5000 0.0000000E+00 + -48.50000 146.5000 0.0000000E+00 + -47.50000 146.5000 0.0000000E+00 + -46.50000 146.5000 0.0000000E+00 + -45.50000 146.5000 0.0000000E+00 + -44.50000 146.5000 0.0000000E+00 + -43.50000 146.5000 0.0000000E+00 + -42.50000 146.5000 0.0000000E+00 + -41.50000 146.5000 0.0000000E+00 + -40.50000 146.5000 0.0000000E+00 + -39.50000 146.5000 0.0000000E+00 + -38.50000 146.5000 0.0000000E+00 + -37.50000 146.5000 0.0000000E+00 + -36.50000 146.5000 0.0000000E+00 + -35.50000 146.5000 0.0000000E+00 + -34.50000 146.5000 0.0000000E+00 + -33.50000 146.5000 0.0000000E+00 + -32.50000 146.5000 0.0000000E+00 + -31.50000 146.5000 0.0000000E+00 + -30.50000 146.5000 0.0000000E+00 + -29.50000 146.5000 0.0000000E+00 + -28.50000 146.5000 0.0000000E+00 + -27.50000 146.5000 0.0000000E+00 + -26.50000 146.5000 0.0000000E+00 + -25.50000 146.5000 0.0000000E+00 + -24.50000 146.5000 0.0000000E+00 + -23.50000 146.5000 0.0000000E+00 + -22.50000 146.5000 0.0000000E+00 + -21.50000 146.5000 0.0000000E+00 + -20.50000 146.5000 0.0000000E+00 + -19.50000 146.5000 0.0000000E+00 + -18.50000 146.5000 0.0000000E+00 + -17.50000 146.5000 0.0000000E+00 + -16.50000 146.5000 0.0000000E+00 + -15.50000 146.5000 0.0000000E+00 + -14.50000 146.5000 0.0000000E+00 + -13.50000 146.5000 0.0000000E+00 + -12.50000 146.5000 0.0000000E+00 + -11.50000 146.5000 0.0000000E+00 + -10.50000 146.5000 0.0000000E+00 + -9.500000 146.5000 0.0000000E+00 + -8.500000 146.5000 0.0000000E+00 + -7.500000 146.5000 0.0000000E+00 + -6.500000 146.5000 0.0000000E+00 + -5.500000 146.5000 0.0000000E+00 + -4.500000 146.5000 0.0000000E+00 + -3.500000 146.5000 0.0000000E+00 + -2.500000 146.5000 0.0000000E+00 + -1.500000 146.5000 0.0000000E+00 + -0.5000000 146.5000 0.0000000E+00 + 0.5000000 146.5000 0.0000000E+00 + 1.500000 146.5000 0.0000000E+00 + 2.500000 146.5000 0.0000000E+00 + 3.500000 146.5000 0.0000000E+00 + 4.500000 146.5000 0.0000000E+00 + 5.500000 146.5000 0.0000000E+00 + 6.500000 146.5000 0.0000000E+00 + 7.500000 146.5000 0.0000000E+00 + 8.500000 146.5000 0.0000000E+00 + 9.500000 146.5000 0.0000000E+00 + 10.50000 146.5000 0.0000000E+00 + 11.50000 146.5000 0.0000000E+00 + 12.50000 146.5000 0.0000000E+00 + 13.50000 146.5000 0.0000000E+00 + 14.50000 146.5000 0.0000000E+00 + 15.50000 146.5000 0.0000000E+00 + 16.50000 146.5000 0.0000000E+00 + 17.50000 146.5000 0.0000000E+00 + 18.50000 146.5000 0.0000000E+00 + 19.50000 146.5000 0.0000000E+00 + 20.50000 146.5000 0.0000000E+00 + 21.50000 146.5000 0.0000000E+00 + 22.50000 146.5000 0.0000000E+00 + 23.50000 146.5000 0.0000000E+00 + 24.50000 146.5000 0.0000000E+00 + 25.50000 146.5000 0.0000000E+00 + 26.50000 146.5000 0.0000000E+00 + 27.50000 146.5000 0.0000000E+00 + 28.50000 146.5000 0.0000000E+00 + 29.50000 146.5000 0.0000000E+00 + 30.50000 146.5000 0.0000000E+00 + 31.50000 146.5000 0.0000000E+00 + 32.50000 146.5000 0.0000000E+00 + 33.50000 146.5000 0.0000000E+00 + 34.50000 146.5000 0.0000000E+00 + 35.50000 146.5000 0.0000000E+00 + 36.50000 146.5000 0.0000000E+00 + 37.50000 146.5000 0.0000000E+00 + 38.50000 146.5000 0.0000000E+00 + 39.50000 146.5000 0.0000000E+00 + 40.50000 146.5000 0.0000000E+00 + 41.50000 146.5000 0.0000000E+00 + 42.50000 146.5000 0.0000000E+00 + 43.50000 146.5000 0.0000000E+00 + 44.50000 146.5000 0.0000000E+00 + 45.50000 146.5000 0.0000000E+00 + 46.50000 146.5000 0.0000000E+00 + 47.50000 146.5000 0.0000000E+00 + 48.50000 146.5000 0.0000000E+00 + 49.50000 146.5000 0.0000000E+00 + 50.50000 146.5000 0.0000000E+00 + 51.50000 146.5000 0.0000000E+00 + 52.50000 146.5000 0.0000000E+00 + 53.50000 146.5000 0.0000000E+00 + 54.50000 146.5000 0.0000000E+00 + 55.50000 146.5000 0.0000000E+00 + 56.50000 146.5000 0.0000000E+00 + 57.50000 146.5000 0.0000000E+00 + 58.50000 146.5000 0.0000000E+00 + 59.50000 146.5000 0.0000000E+00 + 60.50000 146.5000 0.0000000E+00 + 61.50000 146.5000 0.0000000E+00 + 62.50000 146.5000 0.0000000E+00 + 63.50000 146.5000 0.0000000E+00 + 64.50000 146.5000 0.0000000E+00 + 65.50000 146.5000 0.0000000E+00 + 66.50000 146.5000 0.0000000E+00 + 67.50000 146.5000 0.0000000E+00 + 68.50000 146.5000 0.0000000E+00 + 69.50000 146.5000 0.0000000E+00 + 70.50000 146.5000 0.0000000E+00 + 71.50000 146.5000 0.0000000E+00 + 72.50000 146.5000 0.0000000E+00 + 73.50000 146.5000 0.0000000E+00 + 74.50000 146.5000 0.0000000E+00 + 75.50000 146.5000 0.0000000E+00 + 76.50000 146.5000 0.0000000E+00 + 77.50000 146.5000 0.0000000E+00 + 78.50000 146.5000 0.0000000E+00 + 79.50000 146.5000 0.0000000E+00 + 80.50000 146.5000 0.0000000E+00 + 81.50000 146.5000 0.0000000E+00 + 82.50000 146.5000 0.0000000E+00 + 83.50000 146.5000 0.0000000E+00 + 84.50000 146.5000 0.0000000E+00 + 85.50000 146.5000 0.0000000E+00 + 86.50000 146.5000 0.0000000E+00 + 87.50000 146.5000 0.0000000E+00 + 88.50000 146.5000 0.0000000E+00 + 89.50000 146.5000 0.0000000E+00 + -89.50000 147.5000 0.0000000E+00 + -88.50000 147.5000 0.0000000E+00 + -87.50000 147.5000 0.0000000E+00 + -86.50000 147.5000 0.0000000E+00 + -85.50000 147.5000 0.0000000E+00 + -84.50000 147.5000 0.0000000E+00 + -83.50000 147.5000 0.0000000E+00 + -82.50000 147.5000 0.0000000E+00 + -81.50000 147.5000 0.0000000E+00 + -80.50000 147.5000 0.0000000E+00 + -79.50000 147.5000 0.0000000E+00 + -78.50000 147.5000 0.0000000E+00 + -77.50000 147.5000 0.0000000E+00 + -76.50000 147.5000 0.0000000E+00 + -75.50000 147.5000 0.0000000E+00 + -74.50000 147.5000 0.0000000E+00 + -73.50000 147.5000 0.0000000E+00 + -72.50000 147.5000 0.0000000E+00 + -71.50000 147.5000 0.0000000E+00 + -70.50000 147.5000 0.0000000E+00 + -69.50000 147.5000 0.0000000E+00 + -68.50000 147.5000 0.0000000E+00 + -67.50000 147.5000 0.0000000E+00 + -66.50000 147.5000 0.0000000E+00 + -65.50000 147.5000 0.0000000E+00 + -64.50000 147.5000 0.0000000E+00 + -63.50000 147.5000 0.0000000E+00 + -62.50000 147.5000 0.0000000E+00 + -61.50000 147.5000 0.0000000E+00 + -60.50000 147.5000 0.0000000E+00 + -59.50000 147.5000 0.0000000E+00 + -58.50000 147.5000 0.0000000E+00 + -57.50000 147.5000 0.0000000E+00 + -56.50000 147.5000 0.0000000E+00 + -55.50000 147.5000 0.0000000E+00 + -54.50000 147.5000 0.0000000E+00 + -53.50000 147.5000 0.0000000E+00 + -52.50000 147.5000 0.0000000E+00 + -51.50000 147.5000 0.0000000E+00 + -50.50000 147.5000 0.0000000E+00 + -49.50000 147.5000 0.0000000E+00 + -48.50000 147.5000 0.0000000E+00 + -47.50000 147.5000 0.0000000E+00 + -46.50000 147.5000 0.0000000E+00 + -45.50000 147.5000 0.0000000E+00 + -44.50000 147.5000 0.0000000E+00 + -43.50000 147.5000 0.0000000E+00 + -42.50000 147.5000 0.0000000E+00 + -41.50000 147.5000 0.0000000E+00 + -40.50000 147.5000 0.0000000E+00 + -39.50000 147.5000 0.0000000E+00 + -38.50000 147.5000 0.0000000E+00 + -37.50000 147.5000 0.0000000E+00 + -36.50000 147.5000 0.0000000E+00 + -35.50000 147.5000 0.0000000E+00 + -34.50000 147.5000 0.0000000E+00 + -33.50000 147.5000 0.0000000E+00 + -32.50000 147.5000 0.0000000E+00 + -31.50000 147.5000 0.0000000E+00 + -30.50000 147.5000 0.0000000E+00 + -29.50000 147.5000 0.0000000E+00 + -28.50000 147.5000 0.0000000E+00 + -27.50000 147.5000 0.0000000E+00 + -26.50000 147.5000 0.0000000E+00 + -25.50000 147.5000 0.0000000E+00 + -24.50000 147.5000 0.0000000E+00 + -23.50000 147.5000 0.0000000E+00 + -22.50000 147.5000 0.0000000E+00 + -21.50000 147.5000 0.0000000E+00 + -20.50000 147.5000 0.0000000E+00 + -19.50000 147.5000 0.0000000E+00 + -18.50000 147.5000 0.0000000E+00 + -17.50000 147.5000 0.0000000E+00 + -16.50000 147.5000 0.0000000E+00 + -15.50000 147.5000 0.0000000E+00 + -14.50000 147.5000 0.0000000E+00 + -13.50000 147.5000 0.0000000E+00 + -12.50000 147.5000 0.0000000E+00 + -11.50000 147.5000 0.0000000E+00 + -10.50000 147.5000 0.0000000E+00 + -9.500000 147.5000 0.0000000E+00 + -8.500000 147.5000 0.0000000E+00 + -7.500000 147.5000 0.0000000E+00 + -6.500000 147.5000 0.0000000E+00 + -5.500000 147.5000 0.0000000E+00 + -4.500000 147.5000 0.0000000E+00 + -3.500000 147.5000 0.0000000E+00 + -2.500000 147.5000 0.0000000E+00 + -1.500000 147.5000 0.0000000E+00 + -0.5000000 147.5000 0.0000000E+00 + 0.5000000 147.5000 0.0000000E+00 + 1.500000 147.5000 0.0000000E+00 + 2.500000 147.5000 0.0000000E+00 + 3.500000 147.5000 0.0000000E+00 + 4.500000 147.5000 0.0000000E+00 + 5.500000 147.5000 0.0000000E+00 + 6.500000 147.5000 0.0000000E+00 + 7.500000 147.5000 0.0000000E+00 + 8.500000 147.5000 0.0000000E+00 + 9.500000 147.5000 0.0000000E+00 + 10.50000 147.5000 0.0000000E+00 + 11.50000 147.5000 0.0000000E+00 + 12.50000 147.5000 0.0000000E+00 + 13.50000 147.5000 0.0000000E+00 + 14.50000 147.5000 0.0000000E+00 + 15.50000 147.5000 0.0000000E+00 + 16.50000 147.5000 0.0000000E+00 + 17.50000 147.5000 0.0000000E+00 + 18.50000 147.5000 0.0000000E+00 + 19.50000 147.5000 0.0000000E+00 + 20.50000 147.5000 0.0000000E+00 + 21.50000 147.5000 0.0000000E+00 + 22.50000 147.5000 0.0000000E+00 + 23.50000 147.5000 0.0000000E+00 + 24.50000 147.5000 0.0000000E+00 + 25.50000 147.5000 0.0000000E+00 + 26.50000 147.5000 0.0000000E+00 + 27.50000 147.5000 0.0000000E+00 + 28.50000 147.5000 0.0000000E+00 + 29.50000 147.5000 0.0000000E+00 + 30.50000 147.5000 0.0000000E+00 + 31.50000 147.5000 0.0000000E+00 + 32.50000 147.5000 0.0000000E+00 + 33.50000 147.5000 0.0000000E+00 + 34.50000 147.5000 0.0000000E+00 + 35.50000 147.5000 0.0000000E+00 + 36.50000 147.5000 0.0000000E+00 + 37.50000 147.5000 0.0000000E+00 + 38.50000 147.5000 0.0000000E+00 + 39.50000 147.5000 0.0000000E+00 + 40.50000 147.5000 0.0000000E+00 + 41.50000 147.5000 0.0000000E+00 + 42.50000 147.5000 0.0000000E+00 + 43.50000 147.5000 0.0000000E+00 + 44.50000 147.5000 0.0000000E+00 + 45.50000 147.5000 0.0000000E+00 + 46.50000 147.5000 0.0000000E+00 + 47.50000 147.5000 0.0000000E+00 + 48.50000 147.5000 0.0000000E+00 + 49.50000 147.5000 0.0000000E+00 + 50.50000 147.5000 0.0000000E+00 + 51.50000 147.5000 0.0000000E+00 + 52.50000 147.5000 0.0000000E+00 + 53.50000 147.5000 0.0000000E+00 + 54.50000 147.5000 0.0000000E+00 + 55.50000 147.5000 0.0000000E+00 + 56.50000 147.5000 0.0000000E+00 + 57.50000 147.5000 0.0000000E+00 + 58.50000 147.5000 0.0000000E+00 + 59.50000 147.5000 0.0000000E+00 + 60.50000 147.5000 0.0000000E+00 + 61.50000 147.5000 0.0000000E+00 + 62.50000 147.5000 0.0000000E+00 + 63.50000 147.5000 0.0000000E+00 + 64.50000 147.5000 0.0000000E+00 + 65.50000 147.5000 0.0000000E+00 + 66.50000 147.5000 0.0000000E+00 + 67.50000 147.5000 0.0000000E+00 + 68.50000 147.5000 0.0000000E+00 + 69.50000 147.5000 0.0000000E+00 + 70.50000 147.5000 0.0000000E+00 + 71.50000 147.5000 0.0000000E+00 + 72.50000 147.5000 0.0000000E+00 + 73.50000 147.5000 0.0000000E+00 + 74.50000 147.5000 0.0000000E+00 + 75.50000 147.5000 0.0000000E+00 + 76.50000 147.5000 0.0000000E+00 + 77.50000 147.5000 0.0000000E+00 + 78.50000 147.5000 0.0000000E+00 + 79.50000 147.5000 0.0000000E+00 + 80.50000 147.5000 0.0000000E+00 + 81.50000 147.5000 0.0000000E+00 + 82.50000 147.5000 0.0000000E+00 + 83.50000 147.5000 0.0000000E+00 + 84.50000 147.5000 0.0000000E+00 + 85.50000 147.5000 0.0000000E+00 + 86.50000 147.5000 0.0000000E+00 + 87.50000 147.5000 0.0000000E+00 + 88.50000 147.5000 0.0000000E+00 + 89.50000 147.5000 0.0000000E+00 + -89.50000 148.5000 0.0000000E+00 + -88.50000 148.5000 0.0000000E+00 + -87.50000 148.5000 0.0000000E+00 + -86.50000 148.5000 0.0000000E+00 + -85.50000 148.5000 0.0000000E+00 + -84.50000 148.5000 0.0000000E+00 + -83.50000 148.5000 0.0000000E+00 + -82.50000 148.5000 0.0000000E+00 + -81.50000 148.5000 0.0000000E+00 + -80.50000 148.5000 0.0000000E+00 + -79.50000 148.5000 0.0000000E+00 + -78.50000 148.5000 0.0000000E+00 + -77.50000 148.5000 0.0000000E+00 + -76.50000 148.5000 0.0000000E+00 + -75.50000 148.5000 0.0000000E+00 + -74.50000 148.5000 0.0000000E+00 + -73.50000 148.5000 0.0000000E+00 + -72.50000 148.5000 0.0000000E+00 + -71.50000 148.5000 0.0000000E+00 + -70.50000 148.5000 0.0000000E+00 + -69.50000 148.5000 0.0000000E+00 + -68.50000 148.5000 0.0000000E+00 + -67.50000 148.5000 0.0000000E+00 + -66.50000 148.5000 0.0000000E+00 + -65.50000 148.5000 0.0000000E+00 + -64.50000 148.5000 0.0000000E+00 + -63.50000 148.5000 0.0000000E+00 + -62.50000 148.5000 0.0000000E+00 + -61.50000 148.5000 0.0000000E+00 + -60.50000 148.5000 0.0000000E+00 + -59.50000 148.5000 0.0000000E+00 + -58.50000 148.5000 0.0000000E+00 + -57.50000 148.5000 0.0000000E+00 + -56.50000 148.5000 0.0000000E+00 + -55.50000 148.5000 0.0000000E+00 + -54.50000 148.5000 0.0000000E+00 + -53.50000 148.5000 0.0000000E+00 + -52.50000 148.5000 0.0000000E+00 + -51.50000 148.5000 0.0000000E+00 + -50.50000 148.5000 0.0000000E+00 + -49.50000 148.5000 0.0000000E+00 + -48.50000 148.5000 0.0000000E+00 + -47.50000 148.5000 0.0000000E+00 + -46.50000 148.5000 0.0000000E+00 + -45.50000 148.5000 0.0000000E+00 + -44.50000 148.5000 0.0000000E+00 + -43.50000 148.5000 0.0000000E+00 + -42.50000 148.5000 0.0000000E+00 + -41.50000 148.5000 0.0000000E+00 + -40.50000 148.5000 0.0000000E+00 + -39.50000 148.5000 0.0000000E+00 + -38.50000 148.5000 0.0000000E+00 + -37.50000 148.5000 0.0000000E+00 + -36.50000 148.5000 0.0000000E+00 + -35.50000 148.5000 0.0000000E+00 + -34.50000 148.5000 0.0000000E+00 + -33.50000 148.5000 0.0000000E+00 + -32.50000 148.5000 0.0000000E+00 + -31.50000 148.5000 0.0000000E+00 + -30.50000 148.5000 0.0000000E+00 + -29.50000 148.5000 0.0000000E+00 + -28.50000 148.5000 0.0000000E+00 + -27.50000 148.5000 0.0000000E+00 + -26.50000 148.5000 0.0000000E+00 + -25.50000 148.5000 0.0000000E+00 + -24.50000 148.5000 0.0000000E+00 + -23.50000 148.5000 0.0000000E+00 + -22.50000 148.5000 0.0000000E+00 + -21.50000 148.5000 0.0000000E+00 + -20.50000 148.5000 0.0000000E+00 + -19.50000 148.5000 0.0000000E+00 + -18.50000 148.5000 0.0000000E+00 + -17.50000 148.5000 0.0000000E+00 + -16.50000 148.5000 0.0000000E+00 + -15.50000 148.5000 0.0000000E+00 + -14.50000 148.5000 0.0000000E+00 + -13.50000 148.5000 0.0000000E+00 + -12.50000 148.5000 0.0000000E+00 + -11.50000 148.5000 0.0000000E+00 + -10.50000 148.5000 0.0000000E+00 + -9.500000 148.5000 0.0000000E+00 + -8.500000 148.5000 0.0000000E+00 + -7.500000 148.5000 0.0000000E+00 + -6.500000 148.5000 0.0000000E+00 + -5.500000 148.5000 0.0000000E+00 + -4.500000 148.5000 0.0000000E+00 + -3.500000 148.5000 0.0000000E+00 + -2.500000 148.5000 0.0000000E+00 + -1.500000 148.5000 0.0000000E+00 + -0.5000000 148.5000 0.0000000E+00 + 0.5000000 148.5000 0.0000000E+00 + 1.500000 148.5000 0.0000000E+00 + 2.500000 148.5000 0.0000000E+00 + 3.500000 148.5000 0.0000000E+00 + 4.500000 148.5000 0.0000000E+00 + 5.500000 148.5000 0.0000000E+00 + 6.500000 148.5000 0.0000000E+00 + 7.500000 148.5000 0.0000000E+00 + 8.500000 148.5000 0.0000000E+00 + 9.500000 148.5000 0.0000000E+00 + 10.50000 148.5000 0.0000000E+00 + 11.50000 148.5000 0.0000000E+00 + 12.50000 148.5000 0.0000000E+00 + 13.50000 148.5000 0.0000000E+00 + 14.50000 148.5000 0.0000000E+00 + 15.50000 148.5000 0.0000000E+00 + 16.50000 148.5000 0.0000000E+00 + 17.50000 148.5000 0.0000000E+00 + 18.50000 148.5000 0.0000000E+00 + 19.50000 148.5000 0.0000000E+00 + 20.50000 148.5000 0.0000000E+00 + 21.50000 148.5000 0.0000000E+00 + 22.50000 148.5000 0.0000000E+00 + 23.50000 148.5000 0.0000000E+00 + 24.50000 148.5000 0.0000000E+00 + 25.50000 148.5000 0.0000000E+00 + 26.50000 148.5000 0.0000000E+00 + 27.50000 148.5000 0.0000000E+00 + 28.50000 148.5000 0.0000000E+00 + 29.50000 148.5000 0.0000000E+00 + 30.50000 148.5000 0.0000000E+00 + 31.50000 148.5000 0.0000000E+00 + 32.50000 148.5000 0.0000000E+00 + 33.50000 148.5000 0.0000000E+00 + 34.50000 148.5000 0.0000000E+00 + 35.50000 148.5000 0.0000000E+00 + 36.50000 148.5000 0.0000000E+00 + 37.50000 148.5000 0.0000000E+00 + 38.50000 148.5000 0.0000000E+00 + 39.50000 148.5000 0.0000000E+00 + 40.50000 148.5000 0.0000000E+00 + 41.50000 148.5000 0.0000000E+00 + 42.50000 148.5000 0.0000000E+00 + 43.50000 148.5000 0.0000000E+00 + 44.50000 148.5000 0.0000000E+00 + 45.50000 148.5000 0.0000000E+00 + 46.50000 148.5000 0.0000000E+00 + 47.50000 148.5000 0.0000000E+00 + 48.50000 148.5000 0.0000000E+00 + 49.50000 148.5000 0.0000000E+00 + 50.50000 148.5000 0.0000000E+00 + 51.50000 148.5000 0.0000000E+00 + 52.50000 148.5000 0.0000000E+00 + 53.50000 148.5000 0.0000000E+00 + 54.50000 148.5000 0.0000000E+00 + 55.50000 148.5000 0.0000000E+00 + 56.50000 148.5000 0.0000000E+00 + 57.50000 148.5000 0.0000000E+00 + 58.50000 148.5000 0.0000000E+00 + 59.50000 148.5000 0.0000000E+00 + 60.50000 148.5000 0.0000000E+00 + 61.50000 148.5000 0.0000000E+00 + 62.50000 148.5000 0.0000000E+00 + 63.50000 148.5000 0.0000000E+00 + 64.50000 148.5000 0.0000000E+00 + 65.50000 148.5000 0.0000000E+00 + 66.50000 148.5000 0.0000000E+00 + 67.50000 148.5000 0.0000000E+00 + 68.50000 148.5000 0.0000000E+00 + 69.50000 148.5000 0.0000000E+00 + 70.50000 148.5000 0.0000000E+00 + 71.50000 148.5000 0.0000000E+00 + 72.50000 148.5000 0.0000000E+00 + 73.50000 148.5000 0.0000000E+00 + 74.50000 148.5000 0.0000000E+00 + 75.50000 148.5000 0.0000000E+00 + 76.50000 148.5000 0.0000000E+00 + 77.50000 148.5000 0.0000000E+00 + 78.50000 148.5000 0.0000000E+00 + 79.50000 148.5000 0.0000000E+00 + 80.50000 148.5000 0.0000000E+00 + 81.50000 148.5000 0.0000000E+00 + 82.50000 148.5000 0.0000000E+00 + 83.50000 148.5000 0.0000000E+00 + 84.50000 148.5000 0.0000000E+00 + 85.50000 148.5000 0.0000000E+00 + 86.50000 148.5000 0.0000000E+00 + 87.50000 148.5000 0.0000000E+00 + 88.50000 148.5000 0.0000000E+00 + 89.50000 148.5000 0.0000000E+00 + -89.50000 149.5000 0.0000000E+00 + -88.50000 149.5000 0.0000000E+00 + -87.50000 149.5000 0.0000000E+00 + -86.50000 149.5000 0.0000000E+00 + -85.50000 149.5000 0.0000000E+00 + -84.50000 149.5000 0.0000000E+00 + -83.50000 149.5000 0.0000000E+00 + -82.50000 149.5000 0.0000000E+00 + -81.50000 149.5000 0.0000000E+00 + -80.50000 149.5000 0.0000000E+00 + -79.50000 149.5000 0.0000000E+00 + -78.50000 149.5000 0.0000000E+00 + -77.50000 149.5000 0.0000000E+00 + -76.50000 149.5000 0.0000000E+00 + -75.50000 149.5000 0.0000000E+00 + -74.50000 149.5000 0.0000000E+00 + -73.50000 149.5000 0.0000000E+00 + -72.50000 149.5000 0.0000000E+00 + -71.50000 149.5000 0.0000000E+00 + -70.50000 149.5000 0.0000000E+00 + -69.50000 149.5000 0.0000000E+00 + -68.50000 149.5000 0.0000000E+00 + -67.50000 149.5000 0.0000000E+00 + -66.50000 149.5000 0.0000000E+00 + -65.50000 149.5000 0.0000000E+00 + -64.50000 149.5000 0.0000000E+00 + -63.50000 149.5000 0.0000000E+00 + -62.50000 149.5000 0.0000000E+00 + -61.50000 149.5000 0.0000000E+00 + -60.50000 149.5000 0.0000000E+00 + -59.50000 149.5000 0.0000000E+00 + -58.50000 149.5000 0.0000000E+00 + -57.50000 149.5000 0.0000000E+00 + -56.50000 149.5000 0.0000000E+00 + -55.50000 149.5000 0.0000000E+00 + -54.50000 149.5000 0.0000000E+00 + -53.50000 149.5000 0.0000000E+00 + -52.50000 149.5000 0.0000000E+00 + -51.50000 149.5000 0.0000000E+00 + -50.50000 149.5000 0.0000000E+00 + -49.50000 149.5000 0.0000000E+00 + -48.50000 149.5000 0.0000000E+00 + -47.50000 149.5000 0.0000000E+00 + -46.50000 149.5000 0.0000000E+00 + -45.50000 149.5000 0.0000000E+00 + -44.50000 149.5000 0.0000000E+00 + -43.50000 149.5000 0.0000000E+00 + -42.50000 149.5000 0.0000000E+00 + -41.50000 149.5000 0.0000000E+00 + -40.50000 149.5000 0.0000000E+00 + -39.50000 149.5000 0.0000000E+00 + -38.50000 149.5000 0.0000000E+00 + -37.50000 149.5000 0.0000000E+00 + -36.50000 149.5000 0.0000000E+00 + -35.50000 149.5000 0.0000000E+00 + -34.50000 149.5000 0.0000000E+00 + -33.50000 149.5000 0.0000000E+00 + -32.50000 149.5000 0.0000000E+00 + -31.50000 149.5000 0.0000000E+00 + -30.50000 149.5000 0.0000000E+00 + -29.50000 149.5000 0.0000000E+00 + -28.50000 149.5000 0.0000000E+00 + -27.50000 149.5000 0.0000000E+00 + -26.50000 149.5000 0.0000000E+00 + -25.50000 149.5000 0.0000000E+00 + -24.50000 149.5000 0.0000000E+00 + -23.50000 149.5000 0.0000000E+00 + -22.50000 149.5000 0.0000000E+00 + -21.50000 149.5000 0.0000000E+00 + -20.50000 149.5000 0.0000000E+00 + -19.50000 149.5000 0.0000000E+00 + -18.50000 149.5000 0.0000000E+00 + -17.50000 149.5000 0.0000000E+00 + -16.50000 149.5000 0.0000000E+00 + -15.50000 149.5000 0.0000000E+00 + -14.50000 149.5000 0.0000000E+00 + -13.50000 149.5000 0.0000000E+00 + -12.50000 149.5000 0.0000000E+00 + -11.50000 149.5000 0.0000000E+00 + -10.50000 149.5000 0.0000000E+00 + -9.500000 149.5000 0.0000000E+00 + -8.500000 149.5000 0.0000000E+00 + -7.500000 149.5000 0.0000000E+00 + -6.500000 149.5000 0.0000000E+00 + -5.500000 149.5000 0.0000000E+00 + -4.500000 149.5000 0.0000000E+00 + -3.500000 149.5000 0.0000000E+00 + -2.500000 149.5000 0.0000000E+00 + -1.500000 149.5000 0.0000000E+00 + -0.5000000 149.5000 0.0000000E+00 + 0.5000000 149.5000 0.0000000E+00 + 1.500000 149.5000 0.0000000E+00 + 2.500000 149.5000 0.0000000E+00 + 3.500000 149.5000 0.0000000E+00 + 4.500000 149.5000 0.0000000E+00 + 5.500000 149.5000 0.0000000E+00 + 6.500000 149.5000 0.0000000E+00 + 7.500000 149.5000 0.0000000E+00 + 8.500000 149.5000 0.0000000E+00 + 9.500000 149.5000 0.0000000E+00 + 10.50000 149.5000 0.0000000E+00 + 11.50000 149.5000 0.0000000E+00 + 12.50000 149.5000 0.0000000E+00 + 13.50000 149.5000 0.0000000E+00 + 14.50000 149.5000 0.0000000E+00 + 15.50000 149.5000 0.0000000E+00 + 16.50000 149.5000 0.0000000E+00 + 17.50000 149.5000 0.0000000E+00 + 18.50000 149.5000 0.0000000E+00 + 19.50000 149.5000 0.0000000E+00 + 20.50000 149.5000 0.0000000E+00 + 21.50000 149.5000 0.0000000E+00 + 22.50000 149.5000 0.0000000E+00 + 23.50000 149.5000 0.0000000E+00 + 24.50000 149.5000 0.0000000E+00 + 25.50000 149.5000 0.0000000E+00 + 26.50000 149.5000 0.0000000E+00 + 27.50000 149.5000 0.0000000E+00 + 28.50000 149.5000 0.0000000E+00 + 29.50000 149.5000 0.0000000E+00 + 30.50000 149.5000 0.0000000E+00 + 31.50000 149.5000 0.0000000E+00 + 32.50000 149.5000 0.0000000E+00 + 33.50000 149.5000 0.0000000E+00 + 34.50000 149.5000 0.0000000E+00 + 35.50000 149.5000 0.0000000E+00 + 36.50000 149.5000 0.0000000E+00 + 37.50000 149.5000 0.0000000E+00 + 38.50000 149.5000 0.0000000E+00 + 39.50000 149.5000 0.0000000E+00 + 40.50000 149.5000 0.0000000E+00 + 41.50000 149.5000 0.0000000E+00 + 42.50000 149.5000 0.0000000E+00 + 43.50000 149.5000 0.0000000E+00 + 44.50000 149.5000 0.0000000E+00 + 45.50000 149.5000 0.0000000E+00 + 46.50000 149.5000 0.0000000E+00 + 47.50000 149.5000 0.0000000E+00 + 48.50000 149.5000 0.0000000E+00 + 49.50000 149.5000 0.0000000E+00 + 50.50000 149.5000 0.0000000E+00 + 51.50000 149.5000 0.0000000E+00 + 52.50000 149.5000 0.0000000E+00 + 53.50000 149.5000 0.0000000E+00 + 54.50000 149.5000 0.0000000E+00 + 55.50000 149.5000 0.0000000E+00 + 56.50000 149.5000 0.0000000E+00 + 57.50000 149.5000 0.0000000E+00 + 58.50000 149.5000 0.0000000E+00 + 59.50000 149.5000 0.0000000E+00 + 60.50000 149.5000 0.0000000E+00 + 61.50000 149.5000 0.0000000E+00 + 62.50000 149.5000 0.0000000E+00 + 63.50000 149.5000 0.0000000E+00 + 64.50000 149.5000 0.0000000E+00 + 65.50000 149.5000 0.0000000E+00 + 66.50000 149.5000 0.0000000E+00 + 67.50000 149.5000 0.0000000E+00 + 68.50000 149.5000 0.0000000E+00 + 69.50000 149.5000 0.0000000E+00 + 70.50000 149.5000 0.0000000E+00 + 71.50000 149.5000 0.0000000E+00 + 72.50000 149.5000 0.0000000E+00 + 73.50000 149.5000 0.0000000E+00 + 74.50000 149.5000 0.0000000E+00 + 75.50000 149.5000 0.0000000E+00 + 76.50000 149.5000 0.0000000E+00 + 77.50000 149.5000 0.0000000E+00 + 78.50000 149.5000 0.0000000E+00 + 79.50000 149.5000 0.0000000E+00 + 80.50000 149.5000 0.0000000E+00 + 81.50000 149.5000 0.0000000E+00 + 82.50000 149.5000 0.0000000E+00 + 83.50000 149.5000 0.0000000E+00 + 84.50000 149.5000 0.0000000E+00 + 85.50000 149.5000 0.0000000E+00 + 86.50000 149.5000 0.0000000E+00 + 87.50000 149.5000 0.0000000E+00 + 88.50000 149.5000 0.0000000E+00 + 89.50000 149.5000 0.0000000E+00 + -89.50000 150.5000 0.0000000E+00 + -88.50000 150.5000 0.0000000E+00 + -87.50000 150.5000 0.0000000E+00 + -86.50000 150.5000 0.0000000E+00 + -85.50000 150.5000 0.0000000E+00 + -84.50000 150.5000 0.0000000E+00 + -83.50000 150.5000 0.0000000E+00 + -82.50000 150.5000 0.0000000E+00 + -81.50000 150.5000 0.0000000E+00 + -80.50000 150.5000 0.0000000E+00 + -79.50000 150.5000 0.0000000E+00 + -78.50000 150.5000 0.0000000E+00 + -77.50000 150.5000 0.0000000E+00 + -76.50000 150.5000 0.0000000E+00 + -75.50000 150.5000 0.0000000E+00 + -74.50000 150.5000 0.0000000E+00 + -73.50000 150.5000 0.0000000E+00 + -72.50000 150.5000 0.0000000E+00 + -71.50000 150.5000 0.0000000E+00 + -70.50000 150.5000 0.0000000E+00 + -69.50000 150.5000 0.0000000E+00 + -68.50000 150.5000 0.0000000E+00 + -67.50000 150.5000 0.0000000E+00 + -66.50000 150.5000 0.0000000E+00 + -65.50000 150.5000 0.0000000E+00 + -64.50000 150.5000 0.0000000E+00 + -63.50000 150.5000 0.0000000E+00 + -62.50000 150.5000 0.0000000E+00 + -61.50000 150.5000 0.0000000E+00 + -60.50000 150.5000 0.0000000E+00 + -59.50000 150.5000 0.0000000E+00 + -58.50000 150.5000 0.0000000E+00 + -57.50000 150.5000 0.0000000E+00 + -56.50000 150.5000 0.0000000E+00 + -55.50000 150.5000 0.0000000E+00 + -54.50000 150.5000 0.0000000E+00 + -53.50000 150.5000 0.0000000E+00 + -52.50000 150.5000 0.0000000E+00 + -51.50000 150.5000 0.0000000E+00 + -50.50000 150.5000 0.0000000E+00 + -49.50000 150.5000 0.0000000E+00 + -48.50000 150.5000 0.0000000E+00 + -47.50000 150.5000 0.0000000E+00 + -46.50000 150.5000 0.0000000E+00 + -45.50000 150.5000 0.0000000E+00 + -44.50000 150.5000 0.0000000E+00 + -43.50000 150.5000 0.0000000E+00 + -42.50000 150.5000 0.0000000E+00 + -41.50000 150.5000 0.0000000E+00 + -40.50000 150.5000 0.0000000E+00 + -39.50000 150.5000 0.0000000E+00 + -38.50000 150.5000 0.0000000E+00 + -37.50000 150.5000 0.0000000E+00 + -36.50000 150.5000 0.0000000E+00 + -35.50000 150.5000 0.0000000E+00 + -34.50000 150.5000 0.0000000E+00 + -33.50000 150.5000 0.0000000E+00 + -32.50000 150.5000 0.0000000E+00 + -31.50000 150.5000 0.0000000E+00 + -30.50000 150.5000 0.0000000E+00 + -29.50000 150.5000 0.0000000E+00 + -28.50000 150.5000 0.0000000E+00 + -27.50000 150.5000 0.0000000E+00 + -26.50000 150.5000 0.0000000E+00 + -25.50000 150.5000 0.0000000E+00 + -24.50000 150.5000 0.0000000E+00 + -23.50000 150.5000 0.0000000E+00 + -22.50000 150.5000 0.0000000E+00 + -21.50000 150.5000 0.0000000E+00 + -20.50000 150.5000 0.0000000E+00 + -19.50000 150.5000 0.0000000E+00 + -18.50000 150.5000 0.0000000E+00 + -17.50000 150.5000 0.0000000E+00 + -16.50000 150.5000 0.0000000E+00 + -15.50000 150.5000 0.0000000E+00 + -14.50000 150.5000 0.0000000E+00 + -13.50000 150.5000 0.0000000E+00 + -12.50000 150.5000 0.0000000E+00 + -11.50000 150.5000 0.0000000E+00 + -10.50000 150.5000 0.0000000E+00 + -9.500000 150.5000 0.0000000E+00 + -8.500000 150.5000 0.0000000E+00 + -7.500000 150.5000 0.0000000E+00 + -6.500000 150.5000 0.0000000E+00 + -5.500000 150.5000 0.0000000E+00 + -4.500000 150.5000 0.0000000E+00 + -3.500000 150.5000 0.0000000E+00 + -2.500000 150.5000 0.0000000E+00 + -1.500000 150.5000 0.0000000E+00 + -0.5000000 150.5000 0.0000000E+00 + 0.5000000 150.5000 0.0000000E+00 + 1.500000 150.5000 0.0000000E+00 + 2.500000 150.5000 0.0000000E+00 + 3.500000 150.5000 0.0000000E+00 + 4.500000 150.5000 0.0000000E+00 + 5.500000 150.5000 0.0000000E+00 + 6.500000 150.5000 0.0000000E+00 + 7.500000 150.5000 0.0000000E+00 + 8.500000 150.5000 0.0000000E+00 + 9.500000 150.5000 0.0000000E+00 + 10.50000 150.5000 0.0000000E+00 + 11.50000 150.5000 0.0000000E+00 + 12.50000 150.5000 0.0000000E+00 + 13.50000 150.5000 0.0000000E+00 + 14.50000 150.5000 0.0000000E+00 + 15.50000 150.5000 0.0000000E+00 + 16.50000 150.5000 0.0000000E+00 + 17.50000 150.5000 0.0000000E+00 + 18.50000 150.5000 0.0000000E+00 + 19.50000 150.5000 0.0000000E+00 + 20.50000 150.5000 0.0000000E+00 + 21.50000 150.5000 0.0000000E+00 + 22.50000 150.5000 0.0000000E+00 + 23.50000 150.5000 0.0000000E+00 + 24.50000 150.5000 0.0000000E+00 + 25.50000 150.5000 0.0000000E+00 + 26.50000 150.5000 0.0000000E+00 + 27.50000 150.5000 0.0000000E+00 + 28.50000 150.5000 0.0000000E+00 + 29.50000 150.5000 0.0000000E+00 + 30.50000 150.5000 0.0000000E+00 + 31.50000 150.5000 0.0000000E+00 + 32.50000 150.5000 0.0000000E+00 + 33.50000 150.5000 0.0000000E+00 + 34.50000 150.5000 0.0000000E+00 + 35.50000 150.5000 0.0000000E+00 + 36.50000 150.5000 0.0000000E+00 + 37.50000 150.5000 0.0000000E+00 + 38.50000 150.5000 0.0000000E+00 + 39.50000 150.5000 0.0000000E+00 + 40.50000 150.5000 0.0000000E+00 + 41.50000 150.5000 0.0000000E+00 + 42.50000 150.5000 0.0000000E+00 + 43.50000 150.5000 0.0000000E+00 + 44.50000 150.5000 0.0000000E+00 + 45.50000 150.5000 0.0000000E+00 + 46.50000 150.5000 0.0000000E+00 + 47.50000 150.5000 0.0000000E+00 + 48.50000 150.5000 0.0000000E+00 + 49.50000 150.5000 0.0000000E+00 + 50.50000 150.5000 0.0000000E+00 + 51.50000 150.5000 0.0000000E+00 + 52.50000 150.5000 0.0000000E+00 + 53.50000 150.5000 0.0000000E+00 + 54.50000 150.5000 0.0000000E+00 + 55.50000 150.5000 0.0000000E+00 + 56.50000 150.5000 0.0000000E+00 + 57.50000 150.5000 0.0000000E+00 + 58.50000 150.5000 0.0000000E+00 + 59.50000 150.5000 0.0000000E+00 + 60.50000 150.5000 0.0000000E+00 + 61.50000 150.5000 0.0000000E+00 + 62.50000 150.5000 0.0000000E+00 + 63.50000 150.5000 0.0000000E+00 + 64.50000 150.5000 0.0000000E+00 + 65.50000 150.5000 0.0000000E+00 + 66.50000 150.5000 0.0000000E+00 + 67.50000 150.5000 0.0000000E+00 + 68.50000 150.5000 0.0000000E+00 + 69.50000 150.5000 0.0000000E+00 + 70.50000 150.5000 0.0000000E+00 + 71.50000 150.5000 0.0000000E+00 + 72.50000 150.5000 0.0000000E+00 + 73.50000 150.5000 0.0000000E+00 + 74.50000 150.5000 0.0000000E+00 + 75.50000 150.5000 0.0000000E+00 + 76.50000 150.5000 0.0000000E+00 + 77.50000 150.5000 0.0000000E+00 + 78.50000 150.5000 0.0000000E+00 + 79.50000 150.5000 0.0000000E+00 + 80.50000 150.5000 0.0000000E+00 + 81.50000 150.5000 0.0000000E+00 + 82.50000 150.5000 0.0000000E+00 + 83.50000 150.5000 0.0000000E+00 + 84.50000 150.5000 0.0000000E+00 + 85.50000 150.5000 0.0000000E+00 + 86.50000 150.5000 0.0000000E+00 + 87.50000 150.5000 0.0000000E+00 + 88.50000 150.5000 0.0000000E+00 + 89.50000 150.5000 0.0000000E+00 + -89.50000 151.5000 0.0000000E+00 + -88.50000 151.5000 0.0000000E+00 + -87.50000 151.5000 0.0000000E+00 + -86.50000 151.5000 0.0000000E+00 + -85.50000 151.5000 0.0000000E+00 + -84.50000 151.5000 0.0000000E+00 + -83.50000 151.5000 0.0000000E+00 + -82.50000 151.5000 0.0000000E+00 + -81.50000 151.5000 0.0000000E+00 + -80.50000 151.5000 0.0000000E+00 + -79.50000 151.5000 0.0000000E+00 + -78.50000 151.5000 0.0000000E+00 + -77.50000 151.5000 0.0000000E+00 + -76.50000 151.5000 0.0000000E+00 + -75.50000 151.5000 0.0000000E+00 + -74.50000 151.5000 0.0000000E+00 + -73.50000 151.5000 0.0000000E+00 + -72.50000 151.5000 0.0000000E+00 + -71.50000 151.5000 0.0000000E+00 + -70.50000 151.5000 0.0000000E+00 + -69.50000 151.5000 0.0000000E+00 + -68.50000 151.5000 0.0000000E+00 + -67.50000 151.5000 0.0000000E+00 + -66.50000 151.5000 0.0000000E+00 + -65.50000 151.5000 0.0000000E+00 + -64.50000 151.5000 0.0000000E+00 + -63.50000 151.5000 0.0000000E+00 + -62.50000 151.5000 0.0000000E+00 + -61.50000 151.5000 0.0000000E+00 + -60.50000 151.5000 0.0000000E+00 + -59.50000 151.5000 0.0000000E+00 + -58.50000 151.5000 0.0000000E+00 + -57.50000 151.5000 0.0000000E+00 + -56.50000 151.5000 0.0000000E+00 + -55.50000 151.5000 0.0000000E+00 + -54.50000 151.5000 0.0000000E+00 + -53.50000 151.5000 0.0000000E+00 + -52.50000 151.5000 0.0000000E+00 + -51.50000 151.5000 0.0000000E+00 + -50.50000 151.5000 0.0000000E+00 + -49.50000 151.5000 0.0000000E+00 + -48.50000 151.5000 0.0000000E+00 + -47.50000 151.5000 0.0000000E+00 + -46.50000 151.5000 0.0000000E+00 + -45.50000 151.5000 0.0000000E+00 + -44.50000 151.5000 0.0000000E+00 + -43.50000 151.5000 0.0000000E+00 + -42.50000 151.5000 0.0000000E+00 + -41.50000 151.5000 0.0000000E+00 + -40.50000 151.5000 0.0000000E+00 + -39.50000 151.5000 0.0000000E+00 + -38.50000 151.5000 0.0000000E+00 + -37.50000 151.5000 0.0000000E+00 + -36.50000 151.5000 0.0000000E+00 + -35.50000 151.5000 0.0000000E+00 + -34.50000 151.5000 0.0000000E+00 + -33.50000 151.5000 0.0000000E+00 + -32.50000 151.5000 0.0000000E+00 + -31.50000 151.5000 0.0000000E+00 + -30.50000 151.5000 0.0000000E+00 + -29.50000 151.5000 0.0000000E+00 + -28.50000 151.5000 0.0000000E+00 + -27.50000 151.5000 0.0000000E+00 + -26.50000 151.5000 0.0000000E+00 + -25.50000 151.5000 0.0000000E+00 + -24.50000 151.5000 0.0000000E+00 + -23.50000 151.5000 0.0000000E+00 + -22.50000 151.5000 0.0000000E+00 + -21.50000 151.5000 0.0000000E+00 + -20.50000 151.5000 0.0000000E+00 + -19.50000 151.5000 0.0000000E+00 + -18.50000 151.5000 0.0000000E+00 + -17.50000 151.5000 0.0000000E+00 + -16.50000 151.5000 0.0000000E+00 + -15.50000 151.5000 0.0000000E+00 + -14.50000 151.5000 0.0000000E+00 + -13.50000 151.5000 0.0000000E+00 + -12.50000 151.5000 0.0000000E+00 + -11.50000 151.5000 0.0000000E+00 + -10.50000 151.5000 0.0000000E+00 + -9.500000 151.5000 0.0000000E+00 + -8.500000 151.5000 0.0000000E+00 + -7.500000 151.5000 0.0000000E+00 + -6.500000 151.5000 0.0000000E+00 + -5.500000 151.5000 0.0000000E+00 + -4.500000 151.5000 0.0000000E+00 + -3.500000 151.5000 0.0000000E+00 + -2.500000 151.5000 0.0000000E+00 + -1.500000 151.5000 0.0000000E+00 + -0.5000000 151.5000 0.0000000E+00 + 0.5000000 151.5000 0.0000000E+00 + 1.500000 151.5000 0.0000000E+00 + 2.500000 151.5000 0.0000000E+00 + 3.500000 151.5000 0.0000000E+00 + 4.500000 151.5000 0.0000000E+00 + 5.500000 151.5000 0.0000000E+00 + 6.500000 151.5000 0.0000000E+00 + 7.500000 151.5000 0.0000000E+00 + 8.500000 151.5000 0.0000000E+00 + 9.500000 151.5000 0.0000000E+00 + 10.50000 151.5000 0.0000000E+00 + 11.50000 151.5000 0.0000000E+00 + 12.50000 151.5000 0.0000000E+00 + 13.50000 151.5000 0.0000000E+00 + 14.50000 151.5000 0.0000000E+00 + 15.50000 151.5000 0.0000000E+00 + 16.50000 151.5000 0.0000000E+00 + 17.50000 151.5000 0.0000000E+00 + 18.50000 151.5000 0.0000000E+00 + 19.50000 151.5000 0.0000000E+00 + 20.50000 151.5000 0.0000000E+00 + 21.50000 151.5000 0.0000000E+00 + 22.50000 151.5000 0.0000000E+00 + 23.50000 151.5000 0.0000000E+00 + 24.50000 151.5000 0.0000000E+00 + 25.50000 151.5000 0.0000000E+00 + 26.50000 151.5000 0.0000000E+00 + 27.50000 151.5000 0.0000000E+00 + 28.50000 151.5000 0.0000000E+00 + 29.50000 151.5000 0.0000000E+00 + 30.50000 151.5000 0.0000000E+00 + 31.50000 151.5000 0.0000000E+00 + 32.50000 151.5000 0.0000000E+00 + 33.50000 151.5000 0.0000000E+00 + 34.50000 151.5000 0.0000000E+00 + 35.50000 151.5000 0.0000000E+00 + 36.50000 151.5000 0.0000000E+00 + 37.50000 151.5000 0.0000000E+00 + 38.50000 151.5000 0.0000000E+00 + 39.50000 151.5000 0.0000000E+00 + 40.50000 151.5000 0.0000000E+00 + 41.50000 151.5000 0.0000000E+00 + 42.50000 151.5000 0.0000000E+00 + 43.50000 151.5000 0.0000000E+00 + 44.50000 151.5000 0.0000000E+00 + 45.50000 151.5000 0.0000000E+00 + 46.50000 151.5000 0.0000000E+00 + 47.50000 151.5000 0.0000000E+00 + 48.50000 151.5000 0.0000000E+00 + 49.50000 151.5000 0.0000000E+00 + 50.50000 151.5000 0.0000000E+00 + 51.50000 151.5000 0.0000000E+00 + 52.50000 151.5000 0.0000000E+00 + 53.50000 151.5000 0.0000000E+00 + 54.50000 151.5000 0.0000000E+00 + 55.50000 151.5000 0.0000000E+00 + 56.50000 151.5000 0.0000000E+00 + 57.50000 151.5000 0.0000000E+00 + 58.50000 151.5000 0.0000000E+00 + 59.50000 151.5000 0.0000000E+00 + 60.50000 151.5000 0.0000000E+00 + 61.50000 151.5000 0.0000000E+00 + 62.50000 151.5000 0.0000000E+00 + 63.50000 151.5000 0.0000000E+00 + 64.50000 151.5000 0.0000000E+00 + 65.50000 151.5000 0.0000000E+00 + 66.50000 151.5000 0.0000000E+00 + 67.50000 151.5000 0.0000000E+00 + 68.50000 151.5000 0.0000000E+00 + 69.50000 151.5000 0.0000000E+00 + 70.50000 151.5000 0.0000000E+00 + 71.50000 151.5000 0.0000000E+00 + 72.50000 151.5000 0.0000000E+00 + 73.50000 151.5000 0.0000000E+00 + 74.50000 151.5000 0.0000000E+00 + 75.50000 151.5000 0.0000000E+00 + 76.50000 151.5000 0.0000000E+00 + 77.50000 151.5000 0.0000000E+00 + 78.50000 151.5000 0.0000000E+00 + 79.50000 151.5000 0.0000000E+00 + 80.50000 151.5000 0.0000000E+00 + 81.50000 151.5000 0.0000000E+00 + 82.50000 151.5000 0.0000000E+00 + 83.50000 151.5000 0.0000000E+00 + 84.50000 151.5000 0.0000000E+00 + 85.50000 151.5000 0.0000000E+00 + 86.50000 151.5000 0.0000000E+00 + 87.50000 151.5000 0.0000000E+00 + 88.50000 151.5000 0.0000000E+00 + 89.50000 151.5000 0.0000000E+00 + -89.50000 152.5000 0.0000000E+00 + -88.50000 152.5000 0.0000000E+00 + -87.50000 152.5000 0.0000000E+00 + -86.50000 152.5000 0.0000000E+00 + -85.50000 152.5000 0.0000000E+00 + -84.50000 152.5000 0.0000000E+00 + -83.50000 152.5000 0.0000000E+00 + -82.50000 152.5000 0.0000000E+00 + -81.50000 152.5000 0.0000000E+00 + -80.50000 152.5000 0.0000000E+00 + -79.50000 152.5000 0.0000000E+00 + -78.50000 152.5000 0.0000000E+00 + -77.50000 152.5000 0.0000000E+00 + -76.50000 152.5000 0.0000000E+00 + -75.50000 152.5000 0.0000000E+00 + -74.50000 152.5000 0.0000000E+00 + -73.50000 152.5000 0.0000000E+00 + -72.50000 152.5000 0.0000000E+00 + -71.50000 152.5000 0.0000000E+00 + -70.50000 152.5000 0.0000000E+00 + -69.50000 152.5000 0.0000000E+00 + -68.50000 152.5000 0.0000000E+00 + -67.50000 152.5000 0.0000000E+00 + -66.50000 152.5000 0.0000000E+00 + -65.50000 152.5000 0.0000000E+00 + -64.50000 152.5000 0.0000000E+00 + -63.50000 152.5000 0.0000000E+00 + -62.50000 152.5000 0.0000000E+00 + -61.50000 152.5000 0.0000000E+00 + -60.50000 152.5000 0.0000000E+00 + -59.50000 152.5000 0.0000000E+00 + -58.50000 152.5000 0.0000000E+00 + -57.50000 152.5000 0.0000000E+00 + -56.50000 152.5000 0.0000000E+00 + -55.50000 152.5000 0.0000000E+00 + -54.50000 152.5000 0.0000000E+00 + -53.50000 152.5000 0.0000000E+00 + -52.50000 152.5000 0.0000000E+00 + -51.50000 152.5000 0.0000000E+00 + -50.50000 152.5000 0.0000000E+00 + -49.50000 152.5000 0.0000000E+00 + -48.50000 152.5000 0.0000000E+00 + -47.50000 152.5000 0.0000000E+00 + -46.50000 152.5000 0.0000000E+00 + -45.50000 152.5000 0.0000000E+00 + -44.50000 152.5000 0.0000000E+00 + -43.50000 152.5000 0.0000000E+00 + -42.50000 152.5000 0.0000000E+00 + -41.50000 152.5000 0.0000000E+00 + -40.50000 152.5000 0.0000000E+00 + -39.50000 152.5000 0.0000000E+00 + -38.50000 152.5000 0.0000000E+00 + -37.50000 152.5000 0.0000000E+00 + -36.50000 152.5000 0.0000000E+00 + -35.50000 152.5000 0.0000000E+00 + -34.50000 152.5000 0.0000000E+00 + -33.50000 152.5000 0.0000000E+00 + -32.50000 152.5000 0.0000000E+00 + -31.50000 152.5000 0.0000000E+00 + -30.50000 152.5000 0.0000000E+00 + -29.50000 152.5000 0.0000000E+00 + -28.50000 152.5000 0.0000000E+00 + -27.50000 152.5000 0.0000000E+00 + -26.50000 152.5000 0.0000000E+00 + -25.50000 152.5000 0.0000000E+00 + -24.50000 152.5000 0.0000000E+00 + -23.50000 152.5000 0.0000000E+00 + -22.50000 152.5000 0.0000000E+00 + -21.50000 152.5000 0.0000000E+00 + -20.50000 152.5000 0.0000000E+00 + -19.50000 152.5000 0.0000000E+00 + -18.50000 152.5000 0.0000000E+00 + -17.50000 152.5000 0.0000000E+00 + -16.50000 152.5000 0.0000000E+00 + -15.50000 152.5000 0.0000000E+00 + -14.50000 152.5000 0.0000000E+00 + -13.50000 152.5000 0.0000000E+00 + -12.50000 152.5000 0.0000000E+00 + -11.50000 152.5000 0.0000000E+00 + -10.50000 152.5000 0.0000000E+00 + -9.500000 152.5000 0.0000000E+00 + -8.500000 152.5000 0.0000000E+00 + -7.500000 152.5000 0.0000000E+00 + -6.500000 152.5000 0.0000000E+00 + -5.500000 152.5000 0.0000000E+00 + -4.500000 152.5000 0.0000000E+00 + -3.500000 152.5000 0.0000000E+00 + -2.500000 152.5000 0.0000000E+00 + -1.500000 152.5000 0.0000000E+00 + -0.5000000 152.5000 0.0000000E+00 + 0.5000000 152.5000 0.0000000E+00 + 1.500000 152.5000 0.0000000E+00 + 2.500000 152.5000 0.0000000E+00 + 3.500000 152.5000 0.0000000E+00 + 4.500000 152.5000 0.0000000E+00 + 5.500000 152.5000 0.0000000E+00 + 6.500000 152.5000 0.0000000E+00 + 7.500000 152.5000 0.0000000E+00 + 8.500000 152.5000 0.0000000E+00 + 9.500000 152.5000 0.0000000E+00 + 10.50000 152.5000 0.0000000E+00 + 11.50000 152.5000 0.0000000E+00 + 12.50000 152.5000 0.0000000E+00 + 13.50000 152.5000 0.0000000E+00 + 14.50000 152.5000 0.0000000E+00 + 15.50000 152.5000 0.0000000E+00 + 16.50000 152.5000 0.0000000E+00 + 17.50000 152.5000 0.0000000E+00 + 18.50000 152.5000 0.0000000E+00 + 19.50000 152.5000 0.0000000E+00 + 20.50000 152.5000 0.0000000E+00 + 21.50000 152.5000 0.0000000E+00 + 22.50000 152.5000 0.0000000E+00 + 23.50000 152.5000 0.0000000E+00 + 24.50000 152.5000 0.0000000E+00 + 25.50000 152.5000 0.0000000E+00 + 26.50000 152.5000 0.0000000E+00 + 27.50000 152.5000 0.0000000E+00 + 28.50000 152.5000 0.0000000E+00 + 29.50000 152.5000 0.0000000E+00 + 30.50000 152.5000 0.0000000E+00 + 31.50000 152.5000 0.0000000E+00 + 32.50000 152.5000 0.0000000E+00 + 33.50000 152.5000 0.0000000E+00 + 34.50000 152.5000 0.0000000E+00 + 35.50000 152.5000 0.0000000E+00 + 36.50000 152.5000 0.0000000E+00 + 37.50000 152.5000 0.0000000E+00 + 38.50000 152.5000 0.0000000E+00 + 39.50000 152.5000 0.0000000E+00 + 40.50000 152.5000 0.0000000E+00 + 41.50000 152.5000 0.0000000E+00 + 42.50000 152.5000 0.0000000E+00 + 43.50000 152.5000 0.0000000E+00 + 44.50000 152.5000 0.0000000E+00 + 45.50000 152.5000 0.0000000E+00 + 46.50000 152.5000 0.0000000E+00 + 47.50000 152.5000 0.0000000E+00 + 48.50000 152.5000 0.0000000E+00 + 49.50000 152.5000 0.0000000E+00 + 50.50000 152.5000 0.0000000E+00 + 51.50000 152.5000 0.0000000E+00 + 52.50000 152.5000 0.0000000E+00 + 53.50000 152.5000 0.0000000E+00 + 54.50000 152.5000 0.0000000E+00 + 55.50000 152.5000 0.0000000E+00 + 56.50000 152.5000 0.0000000E+00 + 57.50000 152.5000 0.0000000E+00 + 58.50000 152.5000 0.0000000E+00 + 59.50000 152.5000 0.0000000E+00 + 60.50000 152.5000 0.0000000E+00 + 61.50000 152.5000 0.0000000E+00 + 62.50000 152.5000 0.0000000E+00 + 63.50000 152.5000 0.0000000E+00 + 64.50000 152.5000 0.0000000E+00 + 65.50000 152.5000 0.0000000E+00 + 66.50000 152.5000 0.0000000E+00 + 67.50000 152.5000 0.0000000E+00 + 68.50000 152.5000 0.0000000E+00 + 69.50000 152.5000 0.0000000E+00 + 70.50000 152.5000 0.0000000E+00 + 71.50000 152.5000 0.0000000E+00 + 72.50000 152.5000 0.0000000E+00 + 73.50000 152.5000 0.0000000E+00 + 74.50000 152.5000 0.0000000E+00 + 75.50000 152.5000 0.0000000E+00 + 76.50000 152.5000 0.0000000E+00 + 77.50000 152.5000 0.0000000E+00 + 78.50000 152.5000 0.0000000E+00 + 79.50000 152.5000 0.0000000E+00 + 80.50000 152.5000 0.0000000E+00 + 81.50000 152.5000 0.0000000E+00 + 82.50000 152.5000 0.0000000E+00 + 83.50000 152.5000 0.0000000E+00 + 84.50000 152.5000 0.0000000E+00 + 85.50000 152.5000 0.0000000E+00 + 86.50000 152.5000 0.0000000E+00 + 87.50000 152.5000 0.0000000E+00 + 88.50000 152.5000 0.0000000E+00 + 89.50000 152.5000 0.0000000E+00 + -89.50000 153.5000 0.0000000E+00 + -88.50000 153.5000 0.0000000E+00 + -87.50000 153.5000 0.0000000E+00 + -86.50000 153.5000 0.0000000E+00 + -85.50000 153.5000 0.0000000E+00 + -84.50000 153.5000 0.0000000E+00 + -83.50000 153.5000 0.0000000E+00 + -82.50000 153.5000 0.0000000E+00 + -81.50000 153.5000 0.0000000E+00 + -80.50000 153.5000 0.0000000E+00 + -79.50000 153.5000 0.0000000E+00 + -78.50000 153.5000 0.0000000E+00 + -77.50000 153.5000 0.0000000E+00 + -76.50000 153.5000 0.0000000E+00 + -75.50000 153.5000 0.0000000E+00 + -74.50000 153.5000 0.0000000E+00 + -73.50000 153.5000 0.0000000E+00 + -72.50000 153.5000 0.0000000E+00 + -71.50000 153.5000 0.0000000E+00 + -70.50000 153.5000 0.0000000E+00 + -69.50000 153.5000 0.0000000E+00 + -68.50000 153.5000 0.0000000E+00 + -67.50000 153.5000 0.0000000E+00 + -66.50000 153.5000 0.0000000E+00 + -65.50000 153.5000 0.0000000E+00 + -64.50000 153.5000 0.0000000E+00 + -63.50000 153.5000 0.0000000E+00 + -62.50000 153.5000 0.0000000E+00 + -61.50000 153.5000 0.0000000E+00 + -60.50000 153.5000 0.0000000E+00 + -59.50000 153.5000 0.0000000E+00 + -58.50000 153.5000 0.0000000E+00 + -57.50000 153.5000 0.0000000E+00 + -56.50000 153.5000 0.0000000E+00 + -55.50000 153.5000 0.0000000E+00 + -54.50000 153.5000 0.0000000E+00 + -53.50000 153.5000 0.0000000E+00 + -52.50000 153.5000 0.0000000E+00 + -51.50000 153.5000 0.0000000E+00 + -50.50000 153.5000 0.0000000E+00 + -49.50000 153.5000 0.0000000E+00 + -48.50000 153.5000 0.0000000E+00 + -47.50000 153.5000 0.0000000E+00 + -46.50000 153.5000 0.0000000E+00 + -45.50000 153.5000 0.0000000E+00 + -44.50000 153.5000 0.0000000E+00 + -43.50000 153.5000 0.0000000E+00 + -42.50000 153.5000 0.0000000E+00 + -41.50000 153.5000 0.0000000E+00 + -40.50000 153.5000 0.0000000E+00 + -39.50000 153.5000 0.0000000E+00 + -38.50000 153.5000 0.0000000E+00 + -37.50000 153.5000 0.0000000E+00 + -36.50000 153.5000 0.0000000E+00 + -35.50000 153.5000 0.0000000E+00 + -34.50000 153.5000 0.0000000E+00 + -33.50000 153.5000 0.0000000E+00 + -32.50000 153.5000 0.0000000E+00 + -31.50000 153.5000 0.0000000E+00 + -30.50000 153.5000 0.0000000E+00 + -29.50000 153.5000 0.0000000E+00 + -28.50000 153.5000 0.0000000E+00 + -27.50000 153.5000 0.0000000E+00 + -26.50000 153.5000 0.0000000E+00 + -25.50000 153.5000 0.0000000E+00 + -24.50000 153.5000 0.0000000E+00 + -23.50000 153.5000 0.0000000E+00 + -22.50000 153.5000 0.0000000E+00 + -21.50000 153.5000 0.0000000E+00 + -20.50000 153.5000 0.0000000E+00 + -19.50000 153.5000 0.0000000E+00 + -18.50000 153.5000 0.0000000E+00 + -17.50000 153.5000 0.0000000E+00 + -16.50000 153.5000 0.0000000E+00 + -15.50000 153.5000 0.0000000E+00 + -14.50000 153.5000 0.0000000E+00 + -13.50000 153.5000 0.0000000E+00 + -12.50000 153.5000 0.0000000E+00 + -11.50000 153.5000 0.0000000E+00 + -10.50000 153.5000 0.0000000E+00 + -9.500000 153.5000 0.0000000E+00 + -8.500000 153.5000 0.0000000E+00 + -7.500000 153.5000 0.0000000E+00 + -6.500000 153.5000 0.0000000E+00 + -5.500000 153.5000 0.0000000E+00 + -4.500000 153.5000 0.0000000E+00 + -3.500000 153.5000 0.0000000E+00 + -2.500000 153.5000 0.0000000E+00 + -1.500000 153.5000 0.0000000E+00 + -0.5000000 153.5000 0.0000000E+00 + 0.5000000 153.5000 0.0000000E+00 + 1.500000 153.5000 0.0000000E+00 + 2.500000 153.5000 0.0000000E+00 + 3.500000 153.5000 0.0000000E+00 + 4.500000 153.5000 0.0000000E+00 + 5.500000 153.5000 0.0000000E+00 + 6.500000 153.5000 0.0000000E+00 + 7.500000 153.5000 0.0000000E+00 + 8.500000 153.5000 0.0000000E+00 + 9.500000 153.5000 0.0000000E+00 + 10.50000 153.5000 0.0000000E+00 + 11.50000 153.5000 0.0000000E+00 + 12.50000 153.5000 0.0000000E+00 + 13.50000 153.5000 0.0000000E+00 + 14.50000 153.5000 0.0000000E+00 + 15.50000 153.5000 0.0000000E+00 + 16.50000 153.5000 0.0000000E+00 + 17.50000 153.5000 0.0000000E+00 + 18.50000 153.5000 0.0000000E+00 + 19.50000 153.5000 0.0000000E+00 + 20.50000 153.5000 0.0000000E+00 + 21.50000 153.5000 0.0000000E+00 + 22.50000 153.5000 0.0000000E+00 + 23.50000 153.5000 0.0000000E+00 + 24.50000 153.5000 0.0000000E+00 + 25.50000 153.5000 0.0000000E+00 + 26.50000 153.5000 0.0000000E+00 + 27.50000 153.5000 0.0000000E+00 + 28.50000 153.5000 0.0000000E+00 + 29.50000 153.5000 0.0000000E+00 + 30.50000 153.5000 0.0000000E+00 + 31.50000 153.5000 0.0000000E+00 + 32.50000 153.5000 0.0000000E+00 + 33.50000 153.5000 0.0000000E+00 + 34.50000 153.5000 0.0000000E+00 + 35.50000 153.5000 0.0000000E+00 + 36.50000 153.5000 0.0000000E+00 + 37.50000 153.5000 0.0000000E+00 + 38.50000 153.5000 0.0000000E+00 + 39.50000 153.5000 0.0000000E+00 + 40.50000 153.5000 0.0000000E+00 + 41.50000 153.5000 0.0000000E+00 + 42.50000 153.5000 0.0000000E+00 + 43.50000 153.5000 0.0000000E+00 + 44.50000 153.5000 0.0000000E+00 + 45.50000 153.5000 0.0000000E+00 + 46.50000 153.5000 0.0000000E+00 + 47.50000 153.5000 0.0000000E+00 + 48.50000 153.5000 0.0000000E+00 + 49.50000 153.5000 0.0000000E+00 + 50.50000 153.5000 0.0000000E+00 + 51.50000 153.5000 0.0000000E+00 + 52.50000 153.5000 0.0000000E+00 + 53.50000 153.5000 0.0000000E+00 + 54.50000 153.5000 0.0000000E+00 + 55.50000 153.5000 0.0000000E+00 + 56.50000 153.5000 0.0000000E+00 + 57.50000 153.5000 0.0000000E+00 + 58.50000 153.5000 0.0000000E+00 + 59.50000 153.5000 0.0000000E+00 + 60.50000 153.5000 0.0000000E+00 + 61.50000 153.5000 0.0000000E+00 + 62.50000 153.5000 0.0000000E+00 + 63.50000 153.5000 0.0000000E+00 + 64.50000 153.5000 0.0000000E+00 + 65.50000 153.5000 0.0000000E+00 + 66.50000 153.5000 0.0000000E+00 + 67.50000 153.5000 0.0000000E+00 + 68.50000 153.5000 0.0000000E+00 + 69.50000 153.5000 0.0000000E+00 + 70.50000 153.5000 0.0000000E+00 + 71.50000 153.5000 0.0000000E+00 + 72.50000 153.5000 0.0000000E+00 + 73.50000 153.5000 0.0000000E+00 + 74.50000 153.5000 0.0000000E+00 + 75.50000 153.5000 0.0000000E+00 + 76.50000 153.5000 0.0000000E+00 + 77.50000 153.5000 0.0000000E+00 + 78.50000 153.5000 0.0000000E+00 + 79.50000 153.5000 0.0000000E+00 + 80.50000 153.5000 0.0000000E+00 + 81.50000 153.5000 0.0000000E+00 + 82.50000 153.5000 0.0000000E+00 + 83.50000 153.5000 0.0000000E+00 + 84.50000 153.5000 0.0000000E+00 + 85.50000 153.5000 0.0000000E+00 + 86.50000 153.5000 0.0000000E+00 + 87.50000 153.5000 0.0000000E+00 + 88.50000 153.5000 0.0000000E+00 + 89.50000 153.5000 0.0000000E+00 + -89.50000 154.5000 0.0000000E+00 + -88.50000 154.5000 0.0000000E+00 + -87.50000 154.5000 0.0000000E+00 + -86.50000 154.5000 0.0000000E+00 + -85.50000 154.5000 0.0000000E+00 + -84.50000 154.5000 0.0000000E+00 + -83.50000 154.5000 0.0000000E+00 + -82.50000 154.5000 0.0000000E+00 + -81.50000 154.5000 0.0000000E+00 + -80.50000 154.5000 0.0000000E+00 + -79.50000 154.5000 0.0000000E+00 + -78.50000 154.5000 0.0000000E+00 + -77.50000 154.5000 0.0000000E+00 + -76.50000 154.5000 0.0000000E+00 + -75.50000 154.5000 0.0000000E+00 + -74.50000 154.5000 0.0000000E+00 + -73.50000 154.5000 0.0000000E+00 + -72.50000 154.5000 0.0000000E+00 + -71.50000 154.5000 0.0000000E+00 + -70.50000 154.5000 0.0000000E+00 + -69.50000 154.5000 0.0000000E+00 + -68.50000 154.5000 0.0000000E+00 + -67.50000 154.5000 0.0000000E+00 + -66.50000 154.5000 0.0000000E+00 + -65.50000 154.5000 0.0000000E+00 + -64.50000 154.5000 0.0000000E+00 + -63.50000 154.5000 0.0000000E+00 + -62.50000 154.5000 0.0000000E+00 + -61.50000 154.5000 0.0000000E+00 + -60.50000 154.5000 0.0000000E+00 + -59.50000 154.5000 0.0000000E+00 + -58.50000 154.5000 0.0000000E+00 + -57.50000 154.5000 0.0000000E+00 + -56.50000 154.5000 0.0000000E+00 + -55.50000 154.5000 0.0000000E+00 + -54.50000 154.5000 0.0000000E+00 + -53.50000 154.5000 0.0000000E+00 + -52.50000 154.5000 0.0000000E+00 + -51.50000 154.5000 0.0000000E+00 + -50.50000 154.5000 0.0000000E+00 + -49.50000 154.5000 0.0000000E+00 + -48.50000 154.5000 0.0000000E+00 + -47.50000 154.5000 0.0000000E+00 + -46.50000 154.5000 0.0000000E+00 + -45.50000 154.5000 0.0000000E+00 + -44.50000 154.5000 0.0000000E+00 + -43.50000 154.5000 0.0000000E+00 + -42.50000 154.5000 0.0000000E+00 + -41.50000 154.5000 0.0000000E+00 + -40.50000 154.5000 0.0000000E+00 + -39.50000 154.5000 0.0000000E+00 + -38.50000 154.5000 0.0000000E+00 + -37.50000 154.5000 0.0000000E+00 + -36.50000 154.5000 0.0000000E+00 + -35.50000 154.5000 0.0000000E+00 + -34.50000 154.5000 0.0000000E+00 + -33.50000 154.5000 0.0000000E+00 + -32.50000 154.5000 0.0000000E+00 + -31.50000 154.5000 0.0000000E+00 + -30.50000 154.5000 0.0000000E+00 + -29.50000 154.5000 0.0000000E+00 + -28.50000 154.5000 0.0000000E+00 + -27.50000 154.5000 0.0000000E+00 + -26.50000 154.5000 0.0000000E+00 + -25.50000 154.5000 0.0000000E+00 + -24.50000 154.5000 0.0000000E+00 + -23.50000 154.5000 0.0000000E+00 + -22.50000 154.5000 0.0000000E+00 + -21.50000 154.5000 0.0000000E+00 + -20.50000 154.5000 0.0000000E+00 + -19.50000 154.5000 0.0000000E+00 + -18.50000 154.5000 0.0000000E+00 + -17.50000 154.5000 0.0000000E+00 + -16.50000 154.5000 0.0000000E+00 + -15.50000 154.5000 0.0000000E+00 + -14.50000 154.5000 0.0000000E+00 + -13.50000 154.5000 0.0000000E+00 + -12.50000 154.5000 0.0000000E+00 + -11.50000 154.5000 0.0000000E+00 + -10.50000 154.5000 0.0000000E+00 + -9.500000 154.5000 0.0000000E+00 + -8.500000 154.5000 0.0000000E+00 + -7.500000 154.5000 0.0000000E+00 + -6.500000 154.5000 0.0000000E+00 + -5.500000 154.5000 0.0000000E+00 + -4.500000 154.5000 0.0000000E+00 + -3.500000 154.5000 0.0000000E+00 + -2.500000 154.5000 0.0000000E+00 + -1.500000 154.5000 0.0000000E+00 + -0.5000000 154.5000 0.0000000E+00 + 0.5000000 154.5000 0.0000000E+00 + 1.500000 154.5000 0.0000000E+00 + 2.500000 154.5000 0.0000000E+00 + 3.500000 154.5000 0.0000000E+00 + 4.500000 154.5000 0.0000000E+00 + 5.500000 154.5000 0.0000000E+00 + 6.500000 154.5000 0.0000000E+00 + 7.500000 154.5000 0.0000000E+00 + 8.500000 154.5000 0.0000000E+00 + 9.500000 154.5000 0.0000000E+00 + 10.50000 154.5000 0.0000000E+00 + 11.50000 154.5000 0.0000000E+00 + 12.50000 154.5000 0.0000000E+00 + 13.50000 154.5000 0.0000000E+00 + 14.50000 154.5000 0.0000000E+00 + 15.50000 154.5000 0.0000000E+00 + 16.50000 154.5000 0.0000000E+00 + 17.50000 154.5000 0.0000000E+00 + 18.50000 154.5000 0.0000000E+00 + 19.50000 154.5000 0.0000000E+00 + 20.50000 154.5000 0.0000000E+00 + 21.50000 154.5000 0.0000000E+00 + 22.50000 154.5000 0.0000000E+00 + 23.50000 154.5000 0.0000000E+00 + 24.50000 154.5000 0.0000000E+00 + 25.50000 154.5000 0.0000000E+00 + 26.50000 154.5000 0.0000000E+00 + 27.50000 154.5000 0.0000000E+00 + 28.50000 154.5000 0.0000000E+00 + 29.50000 154.5000 0.0000000E+00 + 30.50000 154.5000 0.0000000E+00 + 31.50000 154.5000 0.0000000E+00 + 32.50000 154.5000 0.0000000E+00 + 33.50000 154.5000 0.0000000E+00 + 34.50000 154.5000 0.0000000E+00 + 35.50000 154.5000 0.0000000E+00 + 36.50000 154.5000 0.0000000E+00 + 37.50000 154.5000 0.0000000E+00 + 38.50000 154.5000 0.0000000E+00 + 39.50000 154.5000 0.0000000E+00 + 40.50000 154.5000 0.0000000E+00 + 41.50000 154.5000 0.0000000E+00 + 42.50000 154.5000 0.0000000E+00 + 43.50000 154.5000 0.0000000E+00 + 44.50000 154.5000 0.0000000E+00 + 45.50000 154.5000 0.0000000E+00 + 46.50000 154.5000 0.0000000E+00 + 47.50000 154.5000 0.0000000E+00 + 48.50000 154.5000 0.0000000E+00 + 49.50000 154.5000 0.0000000E+00 + 50.50000 154.5000 0.0000000E+00 + 51.50000 154.5000 0.0000000E+00 + 52.50000 154.5000 0.0000000E+00 + 53.50000 154.5000 0.0000000E+00 + 54.50000 154.5000 0.0000000E+00 + 55.50000 154.5000 0.0000000E+00 + 56.50000 154.5000 0.0000000E+00 + 57.50000 154.5000 0.0000000E+00 + 58.50000 154.5000 0.0000000E+00 + 59.50000 154.5000 0.0000000E+00 + 60.50000 154.5000 0.0000000E+00 + 61.50000 154.5000 0.0000000E+00 + 62.50000 154.5000 0.0000000E+00 + 63.50000 154.5000 0.0000000E+00 + 64.50000 154.5000 0.0000000E+00 + 65.50000 154.5000 0.0000000E+00 + 66.50000 154.5000 0.0000000E+00 + 67.50000 154.5000 0.0000000E+00 + 68.50000 154.5000 0.0000000E+00 + 69.50000 154.5000 0.0000000E+00 + 70.50000 154.5000 0.0000000E+00 + 71.50000 154.5000 0.0000000E+00 + 72.50000 154.5000 0.0000000E+00 + 73.50000 154.5000 0.0000000E+00 + 74.50000 154.5000 0.0000000E+00 + 75.50000 154.5000 0.0000000E+00 + 76.50000 154.5000 0.0000000E+00 + 77.50000 154.5000 0.0000000E+00 + 78.50000 154.5000 0.0000000E+00 + 79.50000 154.5000 0.0000000E+00 + 80.50000 154.5000 0.0000000E+00 + 81.50000 154.5000 0.0000000E+00 + 82.50000 154.5000 0.0000000E+00 + 83.50000 154.5000 0.0000000E+00 + 84.50000 154.5000 0.0000000E+00 + 85.50000 154.5000 0.0000000E+00 + 86.50000 154.5000 0.0000000E+00 + 87.50000 154.5000 0.0000000E+00 + 88.50000 154.5000 0.0000000E+00 + 89.50000 154.5000 0.0000000E+00 + -89.50000 155.5000 0.0000000E+00 + -88.50000 155.5000 0.0000000E+00 + -87.50000 155.5000 0.0000000E+00 + -86.50000 155.5000 0.0000000E+00 + -85.50000 155.5000 0.0000000E+00 + -84.50000 155.5000 0.0000000E+00 + -83.50000 155.5000 0.0000000E+00 + -82.50000 155.5000 0.0000000E+00 + -81.50000 155.5000 0.0000000E+00 + -80.50000 155.5000 0.0000000E+00 + -79.50000 155.5000 0.0000000E+00 + -78.50000 155.5000 0.0000000E+00 + -77.50000 155.5000 0.0000000E+00 + -76.50000 155.5000 0.0000000E+00 + -75.50000 155.5000 0.0000000E+00 + -74.50000 155.5000 0.0000000E+00 + -73.50000 155.5000 0.0000000E+00 + -72.50000 155.5000 0.0000000E+00 + -71.50000 155.5000 0.0000000E+00 + -70.50000 155.5000 0.0000000E+00 + -69.50000 155.5000 0.0000000E+00 + -68.50000 155.5000 0.0000000E+00 + -67.50000 155.5000 0.0000000E+00 + -66.50000 155.5000 0.0000000E+00 + -65.50000 155.5000 0.0000000E+00 + -64.50000 155.5000 0.0000000E+00 + -63.50000 155.5000 0.0000000E+00 + -62.50000 155.5000 0.0000000E+00 + -61.50000 155.5000 0.0000000E+00 + -60.50000 155.5000 0.0000000E+00 + -59.50000 155.5000 0.0000000E+00 + -58.50000 155.5000 0.0000000E+00 + -57.50000 155.5000 0.0000000E+00 + -56.50000 155.5000 0.0000000E+00 + -55.50000 155.5000 0.0000000E+00 + -54.50000 155.5000 0.0000000E+00 + -53.50000 155.5000 0.0000000E+00 + -52.50000 155.5000 0.0000000E+00 + -51.50000 155.5000 0.0000000E+00 + -50.50000 155.5000 0.0000000E+00 + -49.50000 155.5000 0.0000000E+00 + -48.50000 155.5000 0.0000000E+00 + -47.50000 155.5000 0.0000000E+00 + -46.50000 155.5000 0.0000000E+00 + -45.50000 155.5000 0.0000000E+00 + -44.50000 155.5000 0.0000000E+00 + -43.50000 155.5000 0.0000000E+00 + -42.50000 155.5000 0.0000000E+00 + -41.50000 155.5000 0.0000000E+00 + -40.50000 155.5000 0.0000000E+00 + -39.50000 155.5000 0.0000000E+00 + -38.50000 155.5000 0.0000000E+00 + -37.50000 155.5000 0.0000000E+00 + -36.50000 155.5000 0.0000000E+00 + -35.50000 155.5000 0.0000000E+00 + -34.50000 155.5000 0.0000000E+00 + -33.50000 155.5000 0.0000000E+00 + -32.50000 155.5000 0.0000000E+00 + -31.50000 155.5000 0.0000000E+00 + -30.50000 155.5000 0.0000000E+00 + -29.50000 155.5000 0.0000000E+00 + -28.50000 155.5000 0.0000000E+00 + -27.50000 155.5000 0.0000000E+00 + -26.50000 155.5000 0.0000000E+00 + -25.50000 155.5000 0.0000000E+00 + -24.50000 155.5000 0.0000000E+00 + -23.50000 155.5000 0.0000000E+00 + -22.50000 155.5000 0.0000000E+00 + -21.50000 155.5000 0.0000000E+00 + -20.50000 155.5000 0.0000000E+00 + -19.50000 155.5000 0.0000000E+00 + -18.50000 155.5000 0.0000000E+00 + -17.50000 155.5000 0.0000000E+00 + -16.50000 155.5000 0.0000000E+00 + -15.50000 155.5000 0.0000000E+00 + -14.50000 155.5000 0.0000000E+00 + -13.50000 155.5000 0.0000000E+00 + -12.50000 155.5000 0.0000000E+00 + -11.50000 155.5000 0.0000000E+00 + -10.50000 155.5000 0.0000000E+00 + -9.500000 155.5000 0.0000000E+00 + -8.500000 155.5000 0.0000000E+00 + -7.500000 155.5000 0.0000000E+00 + -6.500000 155.5000 0.0000000E+00 + -5.500000 155.5000 0.0000000E+00 + -4.500000 155.5000 0.0000000E+00 + -3.500000 155.5000 0.0000000E+00 + -2.500000 155.5000 0.0000000E+00 + -1.500000 155.5000 0.0000000E+00 + -0.5000000 155.5000 0.0000000E+00 + 0.5000000 155.5000 0.0000000E+00 + 1.500000 155.5000 0.0000000E+00 + 2.500000 155.5000 0.0000000E+00 + 3.500000 155.5000 0.0000000E+00 + 4.500000 155.5000 0.0000000E+00 + 5.500000 155.5000 0.0000000E+00 + 6.500000 155.5000 0.0000000E+00 + 7.500000 155.5000 0.0000000E+00 + 8.500000 155.5000 0.0000000E+00 + 9.500000 155.5000 0.0000000E+00 + 10.50000 155.5000 0.0000000E+00 + 11.50000 155.5000 0.0000000E+00 + 12.50000 155.5000 0.0000000E+00 + 13.50000 155.5000 0.0000000E+00 + 14.50000 155.5000 0.0000000E+00 + 15.50000 155.5000 0.0000000E+00 + 16.50000 155.5000 0.0000000E+00 + 17.50000 155.5000 0.0000000E+00 + 18.50000 155.5000 0.0000000E+00 + 19.50000 155.5000 0.0000000E+00 + 20.50000 155.5000 0.0000000E+00 + 21.50000 155.5000 0.0000000E+00 + 22.50000 155.5000 0.0000000E+00 + 23.50000 155.5000 0.0000000E+00 + 24.50000 155.5000 0.0000000E+00 + 25.50000 155.5000 0.0000000E+00 + 26.50000 155.5000 0.0000000E+00 + 27.50000 155.5000 0.0000000E+00 + 28.50000 155.5000 0.0000000E+00 + 29.50000 155.5000 0.0000000E+00 + 30.50000 155.5000 0.0000000E+00 + 31.50000 155.5000 0.0000000E+00 + 32.50000 155.5000 0.0000000E+00 + 33.50000 155.5000 0.0000000E+00 + 34.50000 155.5000 0.0000000E+00 + 35.50000 155.5000 0.0000000E+00 + 36.50000 155.5000 0.0000000E+00 + 37.50000 155.5000 0.0000000E+00 + 38.50000 155.5000 0.0000000E+00 + 39.50000 155.5000 0.0000000E+00 + 40.50000 155.5000 0.0000000E+00 + 41.50000 155.5000 0.0000000E+00 + 42.50000 155.5000 0.0000000E+00 + 43.50000 155.5000 0.0000000E+00 + 44.50000 155.5000 0.0000000E+00 + 45.50000 155.5000 0.0000000E+00 + 46.50000 155.5000 0.0000000E+00 + 47.50000 155.5000 0.0000000E+00 + 48.50000 155.5000 0.0000000E+00 + 49.50000 155.5000 0.0000000E+00 + 50.50000 155.5000 0.0000000E+00 + 51.50000 155.5000 0.0000000E+00 + 52.50000 155.5000 0.0000000E+00 + 53.50000 155.5000 0.0000000E+00 + 54.50000 155.5000 0.0000000E+00 + 55.50000 155.5000 0.0000000E+00 + 56.50000 155.5000 0.0000000E+00 + 57.50000 155.5000 0.0000000E+00 + 58.50000 155.5000 0.0000000E+00 + 59.50000 155.5000 0.0000000E+00 + 60.50000 155.5000 0.0000000E+00 + 61.50000 155.5000 0.0000000E+00 + 62.50000 155.5000 0.0000000E+00 + 63.50000 155.5000 0.0000000E+00 + 64.50000 155.5000 0.0000000E+00 + 65.50000 155.5000 0.0000000E+00 + 66.50000 155.5000 0.0000000E+00 + 67.50000 155.5000 0.0000000E+00 + 68.50000 155.5000 0.0000000E+00 + 69.50000 155.5000 0.0000000E+00 + 70.50000 155.5000 0.0000000E+00 + 71.50000 155.5000 0.0000000E+00 + 72.50000 155.5000 0.0000000E+00 + 73.50000 155.5000 0.0000000E+00 + 74.50000 155.5000 0.0000000E+00 + 75.50000 155.5000 0.0000000E+00 + 76.50000 155.5000 0.0000000E+00 + 77.50000 155.5000 0.0000000E+00 + 78.50000 155.5000 0.0000000E+00 + 79.50000 155.5000 0.0000000E+00 + 80.50000 155.5000 0.0000000E+00 + 81.50000 155.5000 0.0000000E+00 + 82.50000 155.5000 0.0000000E+00 + 83.50000 155.5000 0.0000000E+00 + 84.50000 155.5000 0.0000000E+00 + 85.50000 155.5000 0.0000000E+00 + 86.50000 155.5000 0.0000000E+00 + 87.50000 155.5000 0.0000000E+00 + 88.50000 155.5000 0.0000000E+00 + 89.50000 155.5000 0.0000000E+00 + -89.50000 156.5000 0.0000000E+00 + -88.50000 156.5000 0.0000000E+00 + -87.50000 156.5000 0.0000000E+00 + -86.50000 156.5000 0.0000000E+00 + -85.50000 156.5000 0.0000000E+00 + -84.50000 156.5000 0.0000000E+00 + -83.50000 156.5000 0.0000000E+00 + -82.50000 156.5000 0.0000000E+00 + -81.50000 156.5000 0.0000000E+00 + -80.50000 156.5000 0.0000000E+00 + -79.50000 156.5000 0.0000000E+00 + -78.50000 156.5000 0.0000000E+00 + -77.50000 156.5000 0.0000000E+00 + -76.50000 156.5000 0.0000000E+00 + -75.50000 156.5000 0.0000000E+00 + -74.50000 156.5000 0.0000000E+00 + -73.50000 156.5000 0.0000000E+00 + -72.50000 156.5000 0.0000000E+00 + -71.50000 156.5000 0.0000000E+00 + -70.50000 156.5000 0.0000000E+00 + -69.50000 156.5000 0.0000000E+00 + -68.50000 156.5000 0.0000000E+00 + -67.50000 156.5000 0.0000000E+00 + -66.50000 156.5000 0.0000000E+00 + -65.50000 156.5000 0.0000000E+00 + -64.50000 156.5000 0.0000000E+00 + -63.50000 156.5000 0.0000000E+00 + -62.50000 156.5000 0.0000000E+00 + -61.50000 156.5000 0.0000000E+00 + -60.50000 156.5000 0.0000000E+00 + -59.50000 156.5000 0.0000000E+00 + -58.50000 156.5000 0.0000000E+00 + -57.50000 156.5000 0.0000000E+00 + -56.50000 156.5000 0.0000000E+00 + -55.50000 156.5000 0.0000000E+00 + -54.50000 156.5000 0.0000000E+00 + -53.50000 156.5000 0.0000000E+00 + -52.50000 156.5000 0.0000000E+00 + -51.50000 156.5000 0.0000000E+00 + -50.50000 156.5000 0.0000000E+00 + -49.50000 156.5000 0.0000000E+00 + -48.50000 156.5000 0.0000000E+00 + -47.50000 156.5000 0.0000000E+00 + -46.50000 156.5000 0.0000000E+00 + -45.50000 156.5000 0.0000000E+00 + -44.50000 156.5000 0.0000000E+00 + -43.50000 156.5000 0.0000000E+00 + -42.50000 156.5000 0.0000000E+00 + -41.50000 156.5000 0.0000000E+00 + -40.50000 156.5000 0.0000000E+00 + -39.50000 156.5000 0.0000000E+00 + -38.50000 156.5000 0.0000000E+00 + -37.50000 156.5000 0.0000000E+00 + -36.50000 156.5000 0.0000000E+00 + -35.50000 156.5000 0.0000000E+00 + -34.50000 156.5000 0.0000000E+00 + -33.50000 156.5000 0.0000000E+00 + -32.50000 156.5000 0.0000000E+00 + -31.50000 156.5000 0.0000000E+00 + -30.50000 156.5000 0.0000000E+00 + -29.50000 156.5000 0.0000000E+00 + -28.50000 156.5000 0.0000000E+00 + -27.50000 156.5000 0.0000000E+00 + -26.50000 156.5000 0.0000000E+00 + -25.50000 156.5000 0.0000000E+00 + -24.50000 156.5000 0.0000000E+00 + -23.50000 156.5000 0.0000000E+00 + -22.50000 156.5000 0.0000000E+00 + -21.50000 156.5000 0.0000000E+00 + -20.50000 156.5000 0.0000000E+00 + -19.50000 156.5000 0.0000000E+00 + -18.50000 156.5000 0.0000000E+00 + -17.50000 156.5000 0.0000000E+00 + -16.50000 156.5000 0.0000000E+00 + -15.50000 156.5000 0.0000000E+00 + -14.50000 156.5000 0.0000000E+00 + -13.50000 156.5000 0.0000000E+00 + -12.50000 156.5000 0.0000000E+00 + -11.50000 156.5000 0.0000000E+00 + -10.50000 156.5000 0.0000000E+00 + -9.500000 156.5000 0.0000000E+00 + -8.500000 156.5000 0.0000000E+00 + -7.500000 156.5000 0.0000000E+00 + -6.500000 156.5000 0.0000000E+00 + -5.500000 156.5000 0.0000000E+00 + -4.500000 156.5000 0.0000000E+00 + -3.500000 156.5000 0.0000000E+00 + -2.500000 156.5000 0.0000000E+00 + -1.500000 156.5000 0.0000000E+00 + -0.5000000 156.5000 0.0000000E+00 + 0.5000000 156.5000 0.0000000E+00 + 1.500000 156.5000 0.0000000E+00 + 2.500000 156.5000 0.0000000E+00 + 3.500000 156.5000 0.0000000E+00 + 4.500000 156.5000 0.0000000E+00 + 5.500000 156.5000 0.0000000E+00 + 6.500000 156.5000 0.0000000E+00 + 7.500000 156.5000 0.0000000E+00 + 8.500000 156.5000 0.0000000E+00 + 9.500000 156.5000 0.0000000E+00 + 10.50000 156.5000 0.0000000E+00 + 11.50000 156.5000 0.0000000E+00 + 12.50000 156.5000 0.0000000E+00 + 13.50000 156.5000 0.0000000E+00 + 14.50000 156.5000 0.0000000E+00 + 15.50000 156.5000 0.0000000E+00 + 16.50000 156.5000 0.0000000E+00 + 17.50000 156.5000 0.0000000E+00 + 18.50000 156.5000 0.0000000E+00 + 19.50000 156.5000 0.0000000E+00 + 20.50000 156.5000 0.0000000E+00 + 21.50000 156.5000 0.0000000E+00 + 22.50000 156.5000 0.0000000E+00 + 23.50000 156.5000 0.0000000E+00 + 24.50000 156.5000 0.0000000E+00 + 25.50000 156.5000 0.0000000E+00 + 26.50000 156.5000 0.0000000E+00 + 27.50000 156.5000 0.0000000E+00 + 28.50000 156.5000 0.0000000E+00 + 29.50000 156.5000 0.0000000E+00 + 30.50000 156.5000 0.0000000E+00 + 31.50000 156.5000 0.0000000E+00 + 32.50000 156.5000 0.0000000E+00 + 33.50000 156.5000 0.0000000E+00 + 34.50000 156.5000 0.0000000E+00 + 35.50000 156.5000 0.0000000E+00 + 36.50000 156.5000 0.0000000E+00 + 37.50000 156.5000 0.0000000E+00 + 38.50000 156.5000 0.0000000E+00 + 39.50000 156.5000 0.0000000E+00 + 40.50000 156.5000 0.0000000E+00 + 41.50000 156.5000 0.0000000E+00 + 42.50000 156.5000 0.0000000E+00 + 43.50000 156.5000 0.0000000E+00 + 44.50000 156.5000 0.0000000E+00 + 45.50000 156.5000 0.0000000E+00 + 46.50000 156.5000 0.0000000E+00 + 47.50000 156.5000 0.0000000E+00 + 48.50000 156.5000 0.0000000E+00 + 49.50000 156.5000 0.0000000E+00 + 50.50000 156.5000 0.0000000E+00 + 51.50000 156.5000 0.0000000E+00 + 52.50000 156.5000 0.0000000E+00 + 53.50000 156.5000 0.0000000E+00 + 54.50000 156.5000 0.0000000E+00 + 55.50000 156.5000 0.0000000E+00 + 56.50000 156.5000 0.0000000E+00 + 57.50000 156.5000 0.0000000E+00 + 58.50000 156.5000 0.0000000E+00 + 59.50000 156.5000 0.0000000E+00 + 60.50000 156.5000 0.0000000E+00 + 61.50000 156.5000 0.0000000E+00 + 62.50000 156.5000 0.0000000E+00 + 63.50000 156.5000 0.0000000E+00 + 64.50000 156.5000 0.0000000E+00 + 65.50000 156.5000 0.0000000E+00 + 66.50000 156.5000 0.0000000E+00 + 67.50000 156.5000 0.0000000E+00 + 68.50000 156.5000 0.0000000E+00 + 69.50000 156.5000 0.0000000E+00 + 70.50000 156.5000 0.0000000E+00 + 71.50000 156.5000 0.0000000E+00 + 72.50000 156.5000 0.0000000E+00 + 73.50000 156.5000 0.0000000E+00 + 74.50000 156.5000 0.0000000E+00 + 75.50000 156.5000 0.0000000E+00 + 76.50000 156.5000 0.0000000E+00 + 77.50000 156.5000 0.0000000E+00 + 78.50000 156.5000 0.0000000E+00 + 79.50000 156.5000 0.0000000E+00 + 80.50000 156.5000 0.0000000E+00 + 81.50000 156.5000 0.0000000E+00 + 82.50000 156.5000 0.0000000E+00 + 83.50000 156.5000 0.0000000E+00 + 84.50000 156.5000 0.0000000E+00 + 85.50000 156.5000 0.0000000E+00 + 86.50000 156.5000 0.0000000E+00 + 87.50000 156.5000 0.0000000E+00 + 88.50000 156.5000 0.0000000E+00 + 89.50000 156.5000 0.0000000E+00 + -89.50000 157.5000 0.0000000E+00 + -88.50000 157.5000 0.0000000E+00 + -87.50000 157.5000 0.0000000E+00 + -86.50000 157.5000 0.0000000E+00 + -85.50000 157.5000 0.0000000E+00 + -84.50000 157.5000 0.0000000E+00 + -83.50000 157.5000 0.0000000E+00 + -82.50000 157.5000 0.0000000E+00 + -81.50000 157.5000 0.0000000E+00 + -80.50000 157.5000 0.0000000E+00 + -79.50000 157.5000 0.0000000E+00 + -78.50000 157.5000 0.0000000E+00 + -77.50000 157.5000 0.0000000E+00 + -76.50000 157.5000 0.0000000E+00 + -75.50000 157.5000 0.0000000E+00 + -74.50000 157.5000 0.0000000E+00 + -73.50000 157.5000 0.0000000E+00 + -72.50000 157.5000 0.0000000E+00 + -71.50000 157.5000 0.0000000E+00 + -70.50000 157.5000 0.0000000E+00 + -69.50000 157.5000 0.0000000E+00 + -68.50000 157.5000 0.0000000E+00 + -67.50000 157.5000 0.0000000E+00 + -66.50000 157.5000 0.0000000E+00 + -65.50000 157.5000 0.0000000E+00 + -64.50000 157.5000 0.0000000E+00 + -63.50000 157.5000 0.0000000E+00 + -62.50000 157.5000 0.0000000E+00 + -61.50000 157.5000 0.0000000E+00 + -60.50000 157.5000 0.0000000E+00 + -59.50000 157.5000 0.0000000E+00 + -58.50000 157.5000 0.0000000E+00 + -57.50000 157.5000 0.0000000E+00 + -56.50000 157.5000 0.0000000E+00 + -55.50000 157.5000 0.0000000E+00 + -54.50000 157.5000 0.0000000E+00 + -53.50000 157.5000 0.0000000E+00 + -52.50000 157.5000 0.0000000E+00 + -51.50000 157.5000 0.0000000E+00 + -50.50000 157.5000 0.0000000E+00 + -49.50000 157.5000 0.0000000E+00 + -48.50000 157.5000 0.0000000E+00 + -47.50000 157.5000 0.0000000E+00 + -46.50000 157.5000 0.0000000E+00 + -45.50000 157.5000 0.0000000E+00 + -44.50000 157.5000 0.0000000E+00 + -43.50000 157.5000 0.0000000E+00 + -42.50000 157.5000 0.0000000E+00 + -41.50000 157.5000 0.0000000E+00 + -40.50000 157.5000 0.0000000E+00 + -39.50000 157.5000 0.0000000E+00 + -38.50000 157.5000 0.0000000E+00 + -37.50000 157.5000 0.0000000E+00 + -36.50000 157.5000 0.0000000E+00 + -35.50000 157.5000 0.0000000E+00 + -34.50000 157.5000 0.0000000E+00 + -33.50000 157.5000 0.0000000E+00 + -32.50000 157.5000 0.0000000E+00 + -31.50000 157.5000 0.0000000E+00 + -30.50000 157.5000 0.0000000E+00 + -29.50000 157.5000 0.0000000E+00 + -28.50000 157.5000 0.0000000E+00 + -27.50000 157.5000 0.0000000E+00 + -26.50000 157.5000 0.0000000E+00 + -25.50000 157.5000 0.0000000E+00 + -24.50000 157.5000 0.0000000E+00 + -23.50000 157.5000 0.0000000E+00 + -22.50000 157.5000 0.0000000E+00 + -21.50000 157.5000 0.0000000E+00 + -20.50000 157.5000 0.0000000E+00 + -19.50000 157.5000 0.0000000E+00 + -18.50000 157.5000 0.0000000E+00 + -17.50000 157.5000 0.0000000E+00 + -16.50000 157.5000 0.0000000E+00 + -15.50000 157.5000 0.0000000E+00 + -14.50000 157.5000 0.0000000E+00 + -13.50000 157.5000 0.0000000E+00 + -12.50000 157.5000 0.0000000E+00 + -11.50000 157.5000 0.0000000E+00 + -10.50000 157.5000 0.0000000E+00 + -9.500000 157.5000 0.0000000E+00 + -8.500000 157.5000 0.0000000E+00 + -7.500000 157.5000 0.0000000E+00 + -6.500000 157.5000 0.0000000E+00 + -5.500000 157.5000 0.0000000E+00 + -4.500000 157.5000 0.0000000E+00 + -3.500000 157.5000 0.0000000E+00 + -2.500000 157.5000 0.0000000E+00 + -1.500000 157.5000 0.0000000E+00 + -0.5000000 157.5000 0.0000000E+00 + 0.5000000 157.5000 0.0000000E+00 + 1.500000 157.5000 0.0000000E+00 + 2.500000 157.5000 0.0000000E+00 + 3.500000 157.5000 0.0000000E+00 + 4.500000 157.5000 0.0000000E+00 + 5.500000 157.5000 0.0000000E+00 + 6.500000 157.5000 0.0000000E+00 + 7.500000 157.5000 0.0000000E+00 + 8.500000 157.5000 0.0000000E+00 + 9.500000 157.5000 0.0000000E+00 + 10.50000 157.5000 0.0000000E+00 + 11.50000 157.5000 0.0000000E+00 + 12.50000 157.5000 0.0000000E+00 + 13.50000 157.5000 0.0000000E+00 + 14.50000 157.5000 0.0000000E+00 + 15.50000 157.5000 0.0000000E+00 + 16.50000 157.5000 0.0000000E+00 + 17.50000 157.5000 0.0000000E+00 + 18.50000 157.5000 0.0000000E+00 + 19.50000 157.5000 0.0000000E+00 + 20.50000 157.5000 0.0000000E+00 + 21.50000 157.5000 0.0000000E+00 + 22.50000 157.5000 0.0000000E+00 + 23.50000 157.5000 0.0000000E+00 + 24.50000 157.5000 0.0000000E+00 + 25.50000 157.5000 0.0000000E+00 + 26.50000 157.5000 0.0000000E+00 + 27.50000 157.5000 0.0000000E+00 + 28.50000 157.5000 0.0000000E+00 + 29.50000 157.5000 0.0000000E+00 + 30.50000 157.5000 0.0000000E+00 + 31.50000 157.5000 0.0000000E+00 + 32.50000 157.5000 0.0000000E+00 + 33.50000 157.5000 0.0000000E+00 + 34.50000 157.5000 0.0000000E+00 + 35.50000 157.5000 0.0000000E+00 + 36.50000 157.5000 0.0000000E+00 + 37.50000 157.5000 0.0000000E+00 + 38.50000 157.5000 0.0000000E+00 + 39.50000 157.5000 0.0000000E+00 + 40.50000 157.5000 0.0000000E+00 + 41.50000 157.5000 0.0000000E+00 + 42.50000 157.5000 0.0000000E+00 + 43.50000 157.5000 0.0000000E+00 + 44.50000 157.5000 0.0000000E+00 + 45.50000 157.5000 0.0000000E+00 + 46.50000 157.5000 0.0000000E+00 + 47.50000 157.5000 0.0000000E+00 + 48.50000 157.5000 0.0000000E+00 + 49.50000 157.5000 0.0000000E+00 + 50.50000 157.5000 0.0000000E+00 + 51.50000 157.5000 0.0000000E+00 + 52.50000 157.5000 0.0000000E+00 + 53.50000 157.5000 0.0000000E+00 + 54.50000 157.5000 0.0000000E+00 + 55.50000 157.5000 0.0000000E+00 + 56.50000 157.5000 0.0000000E+00 + 57.50000 157.5000 0.0000000E+00 + 58.50000 157.5000 0.0000000E+00 + 59.50000 157.5000 0.0000000E+00 + 60.50000 157.5000 0.0000000E+00 + 61.50000 157.5000 0.0000000E+00 + 62.50000 157.5000 0.0000000E+00 + 63.50000 157.5000 0.0000000E+00 + 64.50000 157.5000 0.0000000E+00 + 65.50000 157.5000 0.0000000E+00 + 66.50000 157.5000 0.0000000E+00 + 67.50000 157.5000 0.0000000E+00 + 68.50000 157.5000 0.0000000E+00 + 69.50000 157.5000 0.0000000E+00 + 70.50000 157.5000 0.0000000E+00 + 71.50000 157.5000 0.0000000E+00 + 72.50000 157.5000 0.0000000E+00 + 73.50000 157.5000 0.0000000E+00 + 74.50000 157.5000 0.0000000E+00 + 75.50000 157.5000 0.0000000E+00 + 76.50000 157.5000 0.0000000E+00 + 77.50000 157.5000 0.0000000E+00 + 78.50000 157.5000 0.0000000E+00 + 79.50000 157.5000 0.0000000E+00 + 80.50000 157.5000 0.0000000E+00 + 81.50000 157.5000 0.0000000E+00 + 82.50000 157.5000 0.0000000E+00 + 83.50000 157.5000 0.0000000E+00 + 84.50000 157.5000 0.0000000E+00 + 85.50000 157.5000 0.0000000E+00 + 86.50000 157.5000 0.0000000E+00 + 87.50000 157.5000 0.0000000E+00 + 88.50000 157.5000 0.0000000E+00 + 89.50000 157.5000 0.0000000E+00 + -89.50000 158.5000 0.0000000E+00 + -88.50000 158.5000 0.0000000E+00 + -87.50000 158.5000 0.0000000E+00 + -86.50000 158.5000 0.0000000E+00 + -85.50000 158.5000 0.0000000E+00 + -84.50000 158.5000 0.0000000E+00 + -83.50000 158.5000 0.0000000E+00 + -82.50000 158.5000 0.0000000E+00 + -81.50000 158.5000 0.0000000E+00 + -80.50000 158.5000 0.0000000E+00 + -79.50000 158.5000 0.0000000E+00 + -78.50000 158.5000 0.0000000E+00 + -77.50000 158.5000 0.0000000E+00 + -76.50000 158.5000 0.0000000E+00 + -75.50000 158.5000 0.0000000E+00 + -74.50000 158.5000 0.0000000E+00 + -73.50000 158.5000 0.0000000E+00 + -72.50000 158.5000 0.0000000E+00 + -71.50000 158.5000 0.0000000E+00 + -70.50000 158.5000 0.0000000E+00 + -69.50000 158.5000 0.0000000E+00 + -68.50000 158.5000 0.0000000E+00 + -67.50000 158.5000 0.0000000E+00 + -66.50000 158.5000 0.0000000E+00 + -65.50000 158.5000 0.0000000E+00 + -64.50000 158.5000 0.0000000E+00 + -63.50000 158.5000 0.0000000E+00 + -62.50000 158.5000 0.0000000E+00 + -61.50000 158.5000 0.0000000E+00 + -60.50000 158.5000 0.0000000E+00 + -59.50000 158.5000 0.0000000E+00 + -58.50000 158.5000 0.0000000E+00 + -57.50000 158.5000 0.0000000E+00 + -56.50000 158.5000 0.0000000E+00 + -55.50000 158.5000 0.0000000E+00 + -54.50000 158.5000 0.0000000E+00 + -53.50000 158.5000 0.0000000E+00 + -52.50000 158.5000 0.0000000E+00 + -51.50000 158.5000 0.0000000E+00 + -50.50000 158.5000 0.0000000E+00 + -49.50000 158.5000 0.0000000E+00 + -48.50000 158.5000 0.0000000E+00 + -47.50000 158.5000 0.0000000E+00 + -46.50000 158.5000 0.0000000E+00 + -45.50000 158.5000 0.0000000E+00 + -44.50000 158.5000 0.0000000E+00 + -43.50000 158.5000 0.0000000E+00 + -42.50000 158.5000 0.0000000E+00 + -41.50000 158.5000 0.0000000E+00 + -40.50000 158.5000 0.0000000E+00 + -39.50000 158.5000 0.0000000E+00 + -38.50000 158.5000 0.0000000E+00 + -37.50000 158.5000 0.0000000E+00 + -36.50000 158.5000 0.0000000E+00 + -35.50000 158.5000 0.0000000E+00 + -34.50000 158.5000 0.0000000E+00 + -33.50000 158.5000 0.0000000E+00 + -32.50000 158.5000 0.0000000E+00 + -31.50000 158.5000 0.0000000E+00 + -30.50000 158.5000 0.0000000E+00 + -29.50000 158.5000 0.0000000E+00 + -28.50000 158.5000 0.0000000E+00 + -27.50000 158.5000 0.0000000E+00 + -26.50000 158.5000 0.0000000E+00 + -25.50000 158.5000 0.0000000E+00 + -24.50000 158.5000 0.0000000E+00 + -23.50000 158.5000 0.0000000E+00 + -22.50000 158.5000 0.0000000E+00 + -21.50000 158.5000 0.0000000E+00 + -20.50000 158.5000 0.0000000E+00 + -19.50000 158.5000 0.0000000E+00 + -18.50000 158.5000 0.0000000E+00 + -17.50000 158.5000 0.0000000E+00 + -16.50000 158.5000 0.0000000E+00 + -15.50000 158.5000 0.0000000E+00 + -14.50000 158.5000 0.0000000E+00 + -13.50000 158.5000 0.0000000E+00 + -12.50000 158.5000 0.0000000E+00 + -11.50000 158.5000 0.0000000E+00 + -10.50000 158.5000 0.0000000E+00 + -9.500000 158.5000 0.0000000E+00 + -8.500000 158.5000 0.0000000E+00 + -7.500000 158.5000 0.0000000E+00 + -6.500000 158.5000 0.0000000E+00 + -5.500000 158.5000 0.0000000E+00 + -4.500000 158.5000 0.0000000E+00 + -3.500000 158.5000 0.0000000E+00 + -2.500000 158.5000 0.0000000E+00 + -1.500000 158.5000 0.0000000E+00 + -0.5000000 158.5000 0.0000000E+00 + 0.5000000 158.5000 0.0000000E+00 + 1.500000 158.5000 0.0000000E+00 + 2.500000 158.5000 0.0000000E+00 + 3.500000 158.5000 0.0000000E+00 + 4.500000 158.5000 0.0000000E+00 + 5.500000 158.5000 0.0000000E+00 + 6.500000 158.5000 0.0000000E+00 + 7.500000 158.5000 0.0000000E+00 + 8.500000 158.5000 0.0000000E+00 + 9.500000 158.5000 0.0000000E+00 + 10.50000 158.5000 0.0000000E+00 + 11.50000 158.5000 0.0000000E+00 + 12.50000 158.5000 0.0000000E+00 + 13.50000 158.5000 0.0000000E+00 + 14.50000 158.5000 0.0000000E+00 + 15.50000 158.5000 0.0000000E+00 + 16.50000 158.5000 0.0000000E+00 + 17.50000 158.5000 0.0000000E+00 + 18.50000 158.5000 0.0000000E+00 + 19.50000 158.5000 0.0000000E+00 + 20.50000 158.5000 0.0000000E+00 + 21.50000 158.5000 0.0000000E+00 + 22.50000 158.5000 0.0000000E+00 + 23.50000 158.5000 0.0000000E+00 + 24.50000 158.5000 0.0000000E+00 + 25.50000 158.5000 0.0000000E+00 + 26.50000 158.5000 0.0000000E+00 + 27.50000 158.5000 0.0000000E+00 + 28.50000 158.5000 0.0000000E+00 + 29.50000 158.5000 0.0000000E+00 + 30.50000 158.5000 0.0000000E+00 + 31.50000 158.5000 0.0000000E+00 + 32.50000 158.5000 0.0000000E+00 + 33.50000 158.5000 0.0000000E+00 + 34.50000 158.5000 0.0000000E+00 + 35.50000 158.5000 0.0000000E+00 + 36.50000 158.5000 0.0000000E+00 + 37.50000 158.5000 0.0000000E+00 + 38.50000 158.5000 0.0000000E+00 + 39.50000 158.5000 0.0000000E+00 + 40.50000 158.5000 0.0000000E+00 + 41.50000 158.5000 0.0000000E+00 + 42.50000 158.5000 0.0000000E+00 + 43.50000 158.5000 0.0000000E+00 + 44.50000 158.5000 0.0000000E+00 + 45.50000 158.5000 0.0000000E+00 + 46.50000 158.5000 0.0000000E+00 + 47.50000 158.5000 0.0000000E+00 + 48.50000 158.5000 0.0000000E+00 + 49.50000 158.5000 0.0000000E+00 + 50.50000 158.5000 0.0000000E+00 + 51.50000 158.5000 0.0000000E+00 + 52.50000 158.5000 0.0000000E+00 + 53.50000 158.5000 0.0000000E+00 + 54.50000 158.5000 0.0000000E+00 + 55.50000 158.5000 0.0000000E+00 + 56.50000 158.5000 0.0000000E+00 + 57.50000 158.5000 0.0000000E+00 + 58.50000 158.5000 0.0000000E+00 + 59.50000 158.5000 0.0000000E+00 + 60.50000 158.5000 0.0000000E+00 + 61.50000 158.5000 0.0000000E+00 + 62.50000 158.5000 0.0000000E+00 + 63.50000 158.5000 0.0000000E+00 + 64.50000 158.5000 0.0000000E+00 + 65.50000 158.5000 0.0000000E+00 + 66.50000 158.5000 0.0000000E+00 + 67.50000 158.5000 0.0000000E+00 + 68.50000 158.5000 0.0000000E+00 + 69.50000 158.5000 0.0000000E+00 + 70.50000 158.5000 0.0000000E+00 + 71.50000 158.5000 0.0000000E+00 + 72.50000 158.5000 0.0000000E+00 + 73.50000 158.5000 0.0000000E+00 + 74.50000 158.5000 0.0000000E+00 + 75.50000 158.5000 0.0000000E+00 + 76.50000 158.5000 0.0000000E+00 + 77.50000 158.5000 0.0000000E+00 + 78.50000 158.5000 0.0000000E+00 + 79.50000 158.5000 0.0000000E+00 + 80.50000 158.5000 0.0000000E+00 + 81.50000 158.5000 0.0000000E+00 + 82.50000 158.5000 0.0000000E+00 + 83.50000 158.5000 0.0000000E+00 + 84.50000 158.5000 0.0000000E+00 + 85.50000 158.5000 0.0000000E+00 + 86.50000 158.5000 0.0000000E+00 + 87.50000 158.5000 0.0000000E+00 + 88.50000 158.5000 0.0000000E+00 + 89.50000 158.5000 0.0000000E+00 + -89.50000 159.5000 0.0000000E+00 + -88.50000 159.5000 0.0000000E+00 + -87.50000 159.5000 0.0000000E+00 + -86.50000 159.5000 0.0000000E+00 + -85.50000 159.5000 0.0000000E+00 + -84.50000 159.5000 0.0000000E+00 + -83.50000 159.5000 0.0000000E+00 + -82.50000 159.5000 0.0000000E+00 + -81.50000 159.5000 0.0000000E+00 + -80.50000 159.5000 0.0000000E+00 + -79.50000 159.5000 0.0000000E+00 + -78.50000 159.5000 0.0000000E+00 + -77.50000 159.5000 0.0000000E+00 + -76.50000 159.5000 0.0000000E+00 + -75.50000 159.5000 0.0000000E+00 + -74.50000 159.5000 0.0000000E+00 + -73.50000 159.5000 0.0000000E+00 + -72.50000 159.5000 0.0000000E+00 + -71.50000 159.5000 0.0000000E+00 + -70.50000 159.5000 0.0000000E+00 + -69.50000 159.5000 0.0000000E+00 + -68.50000 159.5000 0.0000000E+00 + -67.50000 159.5000 0.0000000E+00 + -66.50000 159.5000 0.0000000E+00 + -65.50000 159.5000 0.0000000E+00 + -64.50000 159.5000 0.0000000E+00 + -63.50000 159.5000 0.0000000E+00 + -62.50000 159.5000 0.0000000E+00 + -61.50000 159.5000 0.0000000E+00 + -60.50000 159.5000 0.0000000E+00 + -59.50000 159.5000 0.0000000E+00 + -58.50000 159.5000 0.0000000E+00 + -57.50000 159.5000 0.0000000E+00 + -56.50000 159.5000 0.0000000E+00 + -55.50000 159.5000 0.0000000E+00 + -54.50000 159.5000 0.0000000E+00 + -53.50000 159.5000 0.0000000E+00 + -52.50000 159.5000 0.0000000E+00 + -51.50000 159.5000 0.0000000E+00 + -50.50000 159.5000 0.0000000E+00 + -49.50000 159.5000 0.0000000E+00 + -48.50000 159.5000 0.0000000E+00 + -47.50000 159.5000 0.0000000E+00 + -46.50000 159.5000 0.0000000E+00 + -45.50000 159.5000 0.0000000E+00 + -44.50000 159.5000 0.0000000E+00 + -43.50000 159.5000 0.0000000E+00 + -42.50000 159.5000 0.0000000E+00 + -41.50000 159.5000 0.0000000E+00 + -40.50000 159.5000 0.0000000E+00 + -39.50000 159.5000 0.0000000E+00 + -38.50000 159.5000 0.0000000E+00 + -37.50000 159.5000 0.0000000E+00 + -36.50000 159.5000 0.0000000E+00 + -35.50000 159.5000 0.0000000E+00 + -34.50000 159.5000 0.0000000E+00 + -33.50000 159.5000 0.0000000E+00 + -32.50000 159.5000 0.0000000E+00 + -31.50000 159.5000 0.0000000E+00 + -30.50000 159.5000 0.0000000E+00 + -29.50000 159.5000 0.0000000E+00 + -28.50000 159.5000 0.0000000E+00 + -27.50000 159.5000 0.0000000E+00 + -26.50000 159.5000 0.0000000E+00 + -25.50000 159.5000 0.0000000E+00 + -24.50000 159.5000 0.0000000E+00 + -23.50000 159.5000 0.0000000E+00 + -22.50000 159.5000 0.0000000E+00 + -21.50000 159.5000 0.0000000E+00 + -20.50000 159.5000 0.0000000E+00 + -19.50000 159.5000 0.0000000E+00 + -18.50000 159.5000 0.0000000E+00 + -17.50000 159.5000 0.0000000E+00 + -16.50000 159.5000 0.0000000E+00 + -15.50000 159.5000 0.0000000E+00 + -14.50000 159.5000 0.0000000E+00 + -13.50000 159.5000 0.0000000E+00 + -12.50000 159.5000 0.0000000E+00 + -11.50000 159.5000 0.0000000E+00 + -10.50000 159.5000 0.0000000E+00 + -9.500000 159.5000 0.0000000E+00 + -8.500000 159.5000 0.0000000E+00 + -7.500000 159.5000 0.0000000E+00 + -6.500000 159.5000 0.0000000E+00 + -5.500000 159.5000 0.0000000E+00 + -4.500000 159.5000 0.0000000E+00 + -3.500000 159.5000 0.0000000E+00 + -2.500000 159.5000 0.0000000E+00 + -1.500000 159.5000 0.0000000E+00 + -0.5000000 159.5000 0.0000000E+00 + 0.5000000 159.5000 0.0000000E+00 + 1.500000 159.5000 0.0000000E+00 + 2.500000 159.5000 0.0000000E+00 + 3.500000 159.5000 0.0000000E+00 + 4.500000 159.5000 0.0000000E+00 + 5.500000 159.5000 0.0000000E+00 + 6.500000 159.5000 0.0000000E+00 + 7.500000 159.5000 0.0000000E+00 + 8.500000 159.5000 0.0000000E+00 + 9.500000 159.5000 0.0000000E+00 + 10.50000 159.5000 0.0000000E+00 + 11.50000 159.5000 0.0000000E+00 + 12.50000 159.5000 0.0000000E+00 + 13.50000 159.5000 0.0000000E+00 + 14.50000 159.5000 0.0000000E+00 + 15.50000 159.5000 0.0000000E+00 + 16.50000 159.5000 0.0000000E+00 + 17.50000 159.5000 0.0000000E+00 + 18.50000 159.5000 0.0000000E+00 + 19.50000 159.5000 0.0000000E+00 + 20.50000 159.5000 0.0000000E+00 + 21.50000 159.5000 0.0000000E+00 + 22.50000 159.5000 0.0000000E+00 + 23.50000 159.5000 0.0000000E+00 + 24.50000 159.5000 0.0000000E+00 + 25.50000 159.5000 0.0000000E+00 + 26.50000 159.5000 0.0000000E+00 + 27.50000 159.5000 0.0000000E+00 + 28.50000 159.5000 0.0000000E+00 + 29.50000 159.5000 0.0000000E+00 + 30.50000 159.5000 0.0000000E+00 + 31.50000 159.5000 0.0000000E+00 + 32.50000 159.5000 0.0000000E+00 + 33.50000 159.5000 0.0000000E+00 + 34.50000 159.5000 0.0000000E+00 + 35.50000 159.5000 0.0000000E+00 + 36.50000 159.5000 0.0000000E+00 + 37.50000 159.5000 0.0000000E+00 + 38.50000 159.5000 0.0000000E+00 + 39.50000 159.5000 0.0000000E+00 + 40.50000 159.5000 0.0000000E+00 + 41.50000 159.5000 0.0000000E+00 + 42.50000 159.5000 0.0000000E+00 + 43.50000 159.5000 0.0000000E+00 + 44.50000 159.5000 0.0000000E+00 + 45.50000 159.5000 0.0000000E+00 + 46.50000 159.5000 0.0000000E+00 + 47.50000 159.5000 0.0000000E+00 + 48.50000 159.5000 0.0000000E+00 + 49.50000 159.5000 0.0000000E+00 + 50.50000 159.5000 0.0000000E+00 + 51.50000 159.5000 0.0000000E+00 + 52.50000 159.5000 0.0000000E+00 + 53.50000 159.5000 0.0000000E+00 + 54.50000 159.5000 0.0000000E+00 + 55.50000 159.5000 0.0000000E+00 + 56.50000 159.5000 0.0000000E+00 + 57.50000 159.5000 0.0000000E+00 + 58.50000 159.5000 0.0000000E+00 + 59.50000 159.5000 0.0000000E+00 + 60.50000 159.5000 0.0000000E+00 + 61.50000 159.5000 0.0000000E+00 + 62.50000 159.5000 0.0000000E+00 + 63.50000 159.5000 0.0000000E+00 + 64.50000 159.5000 0.0000000E+00 + 65.50000 159.5000 0.0000000E+00 + 66.50000 159.5000 0.0000000E+00 + 67.50000 159.5000 0.0000000E+00 + 68.50000 159.5000 0.0000000E+00 + 69.50000 159.5000 0.0000000E+00 + 70.50000 159.5000 0.0000000E+00 + 71.50000 159.5000 0.0000000E+00 + 72.50000 159.5000 0.0000000E+00 + 73.50000 159.5000 0.0000000E+00 + 74.50000 159.5000 0.0000000E+00 + 75.50000 159.5000 0.0000000E+00 + 76.50000 159.5000 0.0000000E+00 + 77.50000 159.5000 0.0000000E+00 + 78.50000 159.5000 0.0000000E+00 + 79.50000 159.5000 0.0000000E+00 + 80.50000 159.5000 0.0000000E+00 + 81.50000 159.5000 0.0000000E+00 + 82.50000 159.5000 0.0000000E+00 + 83.50000 159.5000 0.0000000E+00 + 84.50000 159.5000 0.0000000E+00 + 85.50000 159.5000 0.0000000E+00 + 86.50000 159.5000 0.0000000E+00 + 87.50000 159.5000 0.0000000E+00 + 88.50000 159.5000 0.0000000E+00 + 89.50000 159.5000 0.0000000E+00 + -89.50000 160.5000 0.0000000E+00 + -88.50000 160.5000 0.0000000E+00 + -87.50000 160.5000 0.0000000E+00 + -86.50000 160.5000 0.0000000E+00 + -85.50000 160.5000 0.0000000E+00 + -84.50000 160.5000 0.0000000E+00 + -83.50000 160.5000 0.0000000E+00 + -82.50000 160.5000 0.0000000E+00 + -81.50000 160.5000 0.0000000E+00 + -80.50000 160.5000 0.0000000E+00 + -79.50000 160.5000 0.0000000E+00 + -78.50000 160.5000 0.0000000E+00 + -77.50000 160.5000 0.0000000E+00 + -76.50000 160.5000 0.0000000E+00 + -75.50000 160.5000 0.0000000E+00 + -74.50000 160.5000 0.0000000E+00 + -73.50000 160.5000 0.0000000E+00 + -72.50000 160.5000 0.0000000E+00 + -71.50000 160.5000 0.0000000E+00 + -70.50000 160.5000 0.0000000E+00 + -69.50000 160.5000 0.0000000E+00 + -68.50000 160.5000 0.0000000E+00 + -67.50000 160.5000 0.0000000E+00 + -66.50000 160.5000 0.0000000E+00 + -65.50000 160.5000 0.0000000E+00 + -64.50000 160.5000 0.0000000E+00 + -63.50000 160.5000 0.0000000E+00 + -62.50000 160.5000 0.0000000E+00 + -61.50000 160.5000 0.0000000E+00 + -60.50000 160.5000 0.0000000E+00 + -59.50000 160.5000 0.0000000E+00 + -58.50000 160.5000 0.0000000E+00 + -57.50000 160.5000 0.0000000E+00 + -56.50000 160.5000 0.0000000E+00 + -55.50000 160.5000 0.0000000E+00 + -54.50000 160.5000 0.0000000E+00 + -53.50000 160.5000 0.0000000E+00 + -52.50000 160.5000 0.0000000E+00 + -51.50000 160.5000 0.0000000E+00 + -50.50000 160.5000 0.0000000E+00 + -49.50000 160.5000 0.0000000E+00 + -48.50000 160.5000 0.0000000E+00 + -47.50000 160.5000 0.0000000E+00 + -46.50000 160.5000 0.0000000E+00 + -45.50000 160.5000 0.0000000E+00 + -44.50000 160.5000 0.0000000E+00 + -43.50000 160.5000 0.0000000E+00 + -42.50000 160.5000 0.0000000E+00 + -41.50000 160.5000 0.0000000E+00 + -40.50000 160.5000 0.0000000E+00 + -39.50000 160.5000 0.0000000E+00 + -38.50000 160.5000 0.0000000E+00 + -37.50000 160.5000 0.0000000E+00 + -36.50000 160.5000 0.0000000E+00 + -35.50000 160.5000 0.0000000E+00 + -34.50000 160.5000 0.0000000E+00 + -33.50000 160.5000 0.0000000E+00 + -32.50000 160.5000 0.0000000E+00 + -31.50000 160.5000 0.0000000E+00 + -30.50000 160.5000 0.0000000E+00 + -29.50000 160.5000 0.0000000E+00 + -28.50000 160.5000 0.0000000E+00 + -27.50000 160.5000 0.0000000E+00 + -26.50000 160.5000 0.0000000E+00 + -25.50000 160.5000 0.0000000E+00 + -24.50000 160.5000 0.0000000E+00 + -23.50000 160.5000 0.0000000E+00 + -22.50000 160.5000 0.0000000E+00 + -21.50000 160.5000 0.0000000E+00 + -20.50000 160.5000 0.0000000E+00 + -19.50000 160.5000 0.0000000E+00 + -18.50000 160.5000 0.0000000E+00 + -17.50000 160.5000 0.0000000E+00 + -16.50000 160.5000 0.0000000E+00 + -15.50000 160.5000 0.0000000E+00 + -14.50000 160.5000 0.0000000E+00 + -13.50000 160.5000 0.0000000E+00 + -12.50000 160.5000 0.0000000E+00 + -11.50000 160.5000 0.0000000E+00 + -10.50000 160.5000 0.0000000E+00 + -9.500000 160.5000 0.0000000E+00 + -8.500000 160.5000 0.0000000E+00 + -7.500000 160.5000 0.0000000E+00 + -6.500000 160.5000 0.0000000E+00 + -5.500000 160.5000 0.0000000E+00 + -4.500000 160.5000 0.0000000E+00 + -3.500000 160.5000 0.0000000E+00 + -2.500000 160.5000 0.0000000E+00 + -1.500000 160.5000 0.0000000E+00 + -0.5000000 160.5000 0.0000000E+00 + 0.5000000 160.5000 0.0000000E+00 + 1.500000 160.5000 0.0000000E+00 + 2.500000 160.5000 0.0000000E+00 + 3.500000 160.5000 0.0000000E+00 + 4.500000 160.5000 0.0000000E+00 + 5.500000 160.5000 0.0000000E+00 + 6.500000 160.5000 0.0000000E+00 + 7.500000 160.5000 0.0000000E+00 + 8.500000 160.5000 0.0000000E+00 + 9.500000 160.5000 0.0000000E+00 + 10.50000 160.5000 0.0000000E+00 + 11.50000 160.5000 0.0000000E+00 + 12.50000 160.5000 0.0000000E+00 + 13.50000 160.5000 0.0000000E+00 + 14.50000 160.5000 0.0000000E+00 + 15.50000 160.5000 0.0000000E+00 + 16.50000 160.5000 0.0000000E+00 + 17.50000 160.5000 0.0000000E+00 + 18.50000 160.5000 0.0000000E+00 + 19.50000 160.5000 0.0000000E+00 + 20.50000 160.5000 0.0000000E+00 + 21.50000 160.5000 0.0000000E+00 + 22.50000 160.5000 0.0000000E+00 + 23.50000 160.5000 0.0000000E+00 + 24.50000 160.5000 0.0000000E+00 + 25.50000 160.5000 0.0000000E+00 + 26.50000 160.5000 0.0000000E+00 + 27.50000 160.5000 0.0000000E+00 + 28.50000 160.5000 0.0000000E+00 + 29.50000 160.5000 0.0000000E+00 + 30.50000 160.5000 0.0000000E+00 + 31.50000 160.5000 0.0000000E+00 + 32.50000 160.5000 0.0000000E+00 + 33.50000 160.5000 0.0000000E+00 + 34.50000 160.5000 0.0000000E+00 + 35.50000 160.5000 0.0000000E+00 + 36.50000 160.5000 0.0000000E+00 + 37.50000 160.5000 0.0000000E+00 + 38.50000 160.5000 0.0000000E+00 + 39.50000 160.5000 0.0000000E+00 + 40.50000 160.5000 0.0000000E+00 + 41.50000 160.5000 0.0000000E+00 + 42.50000 160.5000 0.0000000E+00 + 43.50000 160.5000 0.0000000E+00 + 44.50000 160.5000 0.0000000E+00 + 45.50000 160.5000 0.0000000E+00 + 46.50000 160.5000 0.0000000E+00 + 47.50000 160.5000 0.0000000E+00 + 48.50000 160.5000 0.0000000E+00 + 49.50000 160.5000 0.0000000E+00 + 50.50000 160.5000 0.0000000E+00 + 51.50000 160.5000 0.0000000E+00 + 52.50000 160.5000 0.0000000E+00 + 53.50000 160.5000 0.0000000E+00 + 54.50000 160.5000 0.0000000E+00 + 55.50000 160.5000 0.0000000E+00 + 56.50000 160.5000 0.0000000E+00 + 57.50000 160.5000 0.0000000E+00 + 58.50000 160.5000 0.0000000E+00 + 59.50000 160.5000 0.0000000E+00 + 60.50000 160.5000 0.0000000E+00 + 61.50000 160.5000 0.0000000E+00 + 62.50000 160.5000 0.0000000E+00 + 63.50000 160.5000 0.0000000E+00 + 64.50000 160.5000 0.0000000E+00 + 65.50000 160.5000 0.0000000E+00 + 66.50000 160.5000 0.0000000E+00 + 67.50000 160.5000 0.0000000E+00 + 68.50000 160.5000 0.0000000E+00 + 69.50000 160.5000 0.0000000E+00 + 70.50000 160.5000 0.0000000E+00 + 71.50000 160.5000 0.0000000E+00 + 72.50000 160.5000 0.0000000E+00 + 73.50000 160.5000 0.0000000E+00 + 74.50000 160.5000 0.0000000E+00 + 75.50000 160.5000 0.0000000E+00 + 76.50000 160.5000 0.0000000E+00 + 77.50000 160.5000 0.0000000E+00 + 78.50000 160.5000 0.0000000E+00 + 79.50000 160.5000 0.0000000E+00 + 80.50000 160.5000 0.0000000E+00 + 81.50000 160.5000 0.0000000E+00 + 82.50000 160.5000 0.0000000E+00 + 83.50000 160.5000 0.0000000E+00 + 84.50000 160.5000 0.0000000E+00 + 85.50000 160.5000 0.0000000E+00 + 86.50000 160.5000 0.0000000E+00 + 87.50000 160.5000 0.0000000E+00 + 88.50000 160.5000 0.0000000E+00 + 89.50000 160.5000 0.0000000E+00 + -89.50000 161.5000 0.0000000E+00 + -88.50000 161.5000 0.0000000E+00 + -87.50000 161.5000 0.0000000E+00 + -86.50000 161.5000 0.0000000E+00 + -85.50000 161.5000 0.0000000E+00 + -84.50000 161.5000 0.0000000E+00 + -83.50000 161.5000 0.0000000E+00 + -82.50000 161.5000 0.0000000E+00 + -81.50000 161.5000 0.0000000E+00 + -80.50000 161.5000 0.0000000E+00 + -79.50000 161.5000 0.0000000E+00 + -78.50000 161.5000 0.0000000E+00 + -77.50000 161.5000 0.0000000E+00 + -76.50000 161.5000 0.0000000E+00 + -75.50000 161.5000 0.0000000E+00 + -74.50000 161.5000 0.0000000E+00 + -73.50000 161.5000 0.0000000E+00 + -72.50000 161.5000 0.0000000E+00 + -71.50000 161.5000 0.0000000E+00 + -70.50000 161.5000 0.0000000E+00 + -69.50000 161.5000 0.0000000E+00 + -68.50000 161.5000 0.0000000E+00 + -67.50000 161.5000 0.0000000E+00 + -66.50000 161.5000 0.0000000E+00 + -65.50000 161.5000 0.0000000E+00 + -64.50000 161.5000 0.0000000E+00 + -63.50000 161.5000 0.0000000E+00 + -62.50000 161.5000 0.0000000E+00 + -61.50000 161.5000 0.0000000E+00 + -60.50000 161.5000 0.0000000E+00 + -59.50000 161.5000 0.0000000E+00 + -58.50000 161.5000 0.0000000E+00 + -57.50000 161.5000 0.0000000E+00 + -56.50000 161.5000 0.0000000E+00 + -55.50000 161.5000 0.0000000E+00 + -54.50000 161.5000 0.0000000E+00 + -53.50000 161.5000 0.0000000E+00 + -52.50000 161.5000 0.0000000E+00 + -51.50000 161.5000 0.0000000E+00 + -50.50000 161.5000 0.0000000E+00 + -49.50000 161.5000 0.0000000E+00 + -48.50000 161.5000 0.0000000E+00 + -47.50000 161.5000 0.0000000E+00 + -46.50000 161.5000 0.0000000E+00 + -45.50000 161.5000 0.0000000E+00 + -44.50000 161.5000 0.0000000E+00 + -43.50000 161.5000 0.0000000E+00 + -42.50000 161.5000 0.0000000E+00 + -41.50000 161.5000 0.0000000E+00 + -40.50000 161.5000 0.0000000E+00 + -39.50000 161.5000 0.0000000E+00 + -38.50000 161.5000 0.0000000E+00 + -37.50000 161.5000 0.0000000E+00 + -36.50000 161.5000 0.0000000E+00 + -35.50000 161.5000 0.0000000E+00 + -34.50000 161.5000 0.0000000E+00 + -33.50000 161.5000 0.0000000E+00 + -32.50000 161.5000 0.0000000E+00 + -31.50000 161.5000 0.0000000E+00 + -30.50000 161.5000 0.0000000E+00 + -29.50000 161.5000 0.0000000E+00 + -28.50000 161.5000 0.0000000E+00 + -27.50000 161.5000 0.0000000E+00 + -26.50000 161.5000 0.0000000E+00 + -25.50000 161.5000 0.0000000E+00 + -24.50000 161.5000 0.0000000E+00 + -23.50000 161.5000 0.0000000E+00 + -22.50000 161.5000 0.0000000E+00 + -21.50000 161.5000 0.0000000E+00 + -20.50000 161.5000 0.0000000E+00 + -19.50000 161.5000 0.0000000E+00 + -18.50000 161.5000 0.0000000E+00 + -17.50000 161.5000 0.0000000E+00 + -16.50000 161.5000 0.0000000E+00 + -15.50000 161.5000 0.0000000E+00 + -14.50000 161.5000 0.0000000E+00 + -13.50000 161.5000 0.0000000E+00 + -12.50000 161.5000 0.0000000E+00 + -11.50000 161.5000 0.0000000E+00 + -10.50000 161.5000 0.0000000E+00 + -9.500000 161.5000 0.0000000E+00 + -8.500000 161.5000 0.0000000E+00 + -7.500000 161.5000 0.0000000E+00 + -6.500000 161.5000 0.0000000E+00 + -5.500000 161.5000 0.0000000E+00 + -4.500000 161.5000 0.0000000E+00 + -3.500000 161.5000 0.0000000E+00 + -2.500000 161.5000 0.0000000E+00 + -1.500000 161.5000 0.0000000E+00 + -0.5000000 161.5000 0.0000000E+00 + 0.5000000 161.5000 0.0000000E+00 + 1.500000 161.5000 0.0000000E+00 + 2.500000 161.5000 0.0000000E+00 + 3.500000 161.5000 0.0000000E+00 + 4.500000 161.5000 0.0000000E+00 + 5.500000 161.5000 0.0000000E+00 + 6.500000 161.5000 0.0000000E+00 + 7.500000 161.5000 0.0000000E+00 + 8.500000 161.5000 0.0000000E+00 + 9.500000 161.5000 0.0000000E+00 + 10.50000 161.5000 0.0000000E+00 + 11.50000 161.5000 0.0000000E+00 + 12.50000 161.5000 0.0000000E+00 + 13.50000 161.5000 0.0000000E+00 + 14.50000 161.5000 0.0000000E+00 + 15.50000 161.5000 0.0000000E+00 + 16.50000 161.5000 0.0000000E+00 + 17.50000 161.5000 0.0000000E+00 + 18.50000 161.5000 0.0000000E+00 + 19.50000 161.5000 0.0000000E+00 + 20.50000 161.5000 0.0000000E+00 + 21.50000 161.5000 0.0000000E+00 + 22.50000 161.5000 0.0000000E+00 + 23.50000 161.5000 0.0000000E+00 + 24.50000 161.5000 0.0000000E+00 + 25.50000 161.5000 0.0000000E+00 + 26.50000 161.5000 0.0000000E+00 + 27.50000 161.5000 0.0000000E+00 + 28.50000 161.5000 0.0000000E+00 + 29.50000 161.5000 0.0000000E+00 + 30.50000 161.5000 0.0000000E+00 + 31.50000 161.5000 0.0000000E+00 + 32.50000 161.5000 0.0000000E+00 + 33.50000 161.5000 0.0000000E+00 + 34.50000 161.5000 0.0000000E+00 + 35.50000 161.5000 0.0000000E+00 + 36.50000 161.5000 0.0000000E+00 + 37.50000 161.5000 0.0000000E+00 + 38.50000 161.5000 0.0000000E+00 + 39.50000 161.5000 0.0000000E+00 + 40.50000 161.5000 0.0000000E+00 + 41.50000 161.5000 0.0000000E+00 + 42.50000 161.5000 0.0000000E+00 + 43.50000 161.5000 0.0000000E+00 + 44.50000 161.5000 0.0000000E+00 + 45.50000 161.5000 0.0000000E+00 + 46.50000 161.5000 0.0000000E+00 + 47.50000 161.5000 0.0000000E+00 + 48.50000 161.5000 0.0000000E+00 + 49.50000 161.5000 0.0000000E+00 + 50.50000 161.5000 0.0000000E+00 + 51.50000 161.5000 0.0000000E+00 + 52.50000 161.5000 0.0000000E+00 + 53.50000 161.5000 0.0000000E+00 + 54.50000 161.5000 0.0000000E+00 + 55.50000 161.5000 0.0000000E+00 + 56.50000 161.5000 0.0000000E+00 + 57.50000 161.5000 0.0000000E+00 + 58.50000 161.5000 0.0000000E+00 + 59.50000 161.5000 0.0000000E+00 + 60.50000 161.5000 0.0000000E+00 + 61.50000 161.5000 0.0000000E+00 + 62.50000 161.5000 0.0000000E+00 + 63.50000 161.5000 0.0000000E+00 + 64.50000 161.5000 0.0000000E+00 + 65.50000 161.5000 0.0000000E+00 + 66.50000 161.5000 0.0000000E+00 + 67.50000 161.5000 0.0000000E+00 + 68.50000 161.5000 0.0000000E+00 + 69.50000 161.5000 0.0000000E+00 + 70.50000 161.5000 0.0000000E+00 + 71.50000 161.5000 0.0000000E+00 + 72.50000 161.5000 0.0000000E+00 + 73.50000 161.5000 0.0000000E+00 + 74.50000 161.5000 0.0000000E+00 + 75.50000 161.5000 0.0000000E+00 + 76.50000 161.5000 0.0000000E+00 + 77.50000 161.5000 0.0000000E+00 + 78.50000 161.5000 0.0000000E+00 + 79.50000 161.5000 0.0000000E+00 + 80.50000 161.5000 0.0000000E+00 + 81.50000 161.5000 0.0000000E+00 + 82.50000 161.5000 0.0000000E+00 + 83.50000 161.5000 0.0000000E+00 + 84.50000 161.5000 0.0000000E+00 + 85.50000 161.5000 0.0000000E+00 + 86.50000 161.5000 0.0000000E+00 + 87.50000 161.5000 0.0000000E+00 + 88.50000 161.5000 0.0000000E+00 + 89.50000 161.5000 0.0000000E+00 + -89.50000 162.5000 0.0000000E+00 + -88.50000 162.5000 0.0000000E+00 + -87.50000 162.5000 0.0000000E+00 + -86.50000 162.5000 0.0000000E+00 + -85.50000 162.5000 0.0000000E+00 + -84.50000 162.5000 0.0000000E+00 + -83.50000 162.5000 0.0000000E+00 + -82.50000 162.5000 0.0000000E+00 + -81.50000 162.5000 0.0000000E+00 + -80.50000 162.5000 0.0000000E+00 + -79.50000 162.5000 0.0000000E+00 + -78.50000 162.5000 0.0000000E+00 + -77.50000 162.5000 0.0000000E+00 + -76.50000 162.5000 0.0000000E+00 + -75.50000 162.5000 0.0000000E+00 + -74.50000 162.5000 0.0000000E+00 + -73.50000 162.5000 0.0000000E+00 + -72.50000 162.5000 0.0000000E+00 + -71.50000 162.5000 0.0000000E+00 + -70.50000 162.5000 0.0000000E+00 + -69.50000 162.5000 0.0000000E+00 + -68.50000 162.5000 0.0000000E+00 + -67.50000 162.5000 0.0000000E+00 + -66.50000 162.5000 0.0000000E+00 + -65.50000 162.5000 0.0000000E+00 + -64.50000 162.5000 0.0000000E+00 + -63.50000 162.5000 0.0000000E+00 + -62.50000 162.5000 0.0000000E+00 + -61.50000 162.5000 0.0000000E+00 + -60.50000 162.5000 0.0000000E+00 + -59.50000 162.5000 0.0000000E+00 + -58.50000 162.5000 0.0000000E+00 + -57.50000 162.5000 0.0000000E+00 + -56.50000 162.5000 0.0000000E+00 + -55.50000 162.5000 0.0000000E+00 + -54.50000 162.5000 0.0000000E+00 + -53.50000 162.5000 0.0000000E+00 + -52.50000 162.5000 0.0000000E+00 + -51.50000 162.5000 0.0000000E+00 + -50.50000 162.5000 0.0000000E+00 + -49.50000 162.5000 0.0000000E+00 + -48.50000 162.5000 0.0000000E+00 + -47.50000 162.5000 0.0000000E+00 + -46.50000 162.5000 0.0000000E+00 + -45.50000 162.5000 0.0000000E+00 + -44.50000 162.5000 0.0000000E+00 + -43.50000 162.5000 0.0000000E+00 + -42.50000 162.5000 0.0000000E+00 + -41.50000 162.5000 0.0000000E+00 + -40.50000 162.5000 0.0000000E+00 + -39.50000 162.5000 0.0000000E+00 + -38.50000 162.5000 0.0000000E+00 + -37.50000 162.5000 0.0000000E+00 + -36.50000 162.5000 0.0000000E+00 + -35.50000 162.5000 0.0000000E+00 + -34.50000 162.5000 0.0000000E+00 + -33.50000 162.5000 0.0000000E+00 + -32.50000 162.5000 0.0000000E+00 + -31.50000 162.5000 0.0000000E+00 + -30.50000 162.5000 0.0000000E+00 + -29.50000 162.5000 0.0000000E+00 + -28.50000 162.5000 0.0000000E+00 + -27.50000 162.5000 0.0000000E+00 + -26.50000 162.5000 0.0000000E+00 + -25.50000 162.5000 0.0000000E+00 + -24.50000 162.5000 0.0000000E+00 + -23.50000 162.5000 0.0000000E+00 + -22.50000 162.5000 0.0000000E+00 + -21.50000 162.5000 0.0000000E+00 + -20.50000 162.5000 0.0000000E+00 + -19.50000 162.5000 0.0000000E+00 + -18.50000 162.5000 0.0000000E+00 + -17.50000 162.5000 0.0000000E+00 + -16.50000 162.5000 0.0000000E+00 + -15.50000 162.5000 0.0000000E+00 + -14.50000 162.5000 0.0000000E+00 + -13.50000 162.5000 0.0000000E+00 + -12.50000 162.5000 0.0000000E+00 + -11.50000 162.5000 0.0000000E+00 + -10.50000 162.5000 0.0000000E+00 + -9.500000 162.5000 0.0000000E+00 + -8.500000 162.5000 0.0000000E+00 + -7.500000 162.5000 0.0000000E+00 + -6.500000 162.5000 0.0000000E+00 + -5.500000 162.5000 0.0000000E+00 + -4.500000 162.5000 0.0000000E+00 + -3.500000 162.5000 0.0000000E+00 + -2.500000 162.5000 0.0000000E+00 + -1.500000 162.5000 0.0000000E+00 + -0.5000000 162.5000 0.0000000E+00 + 0.5000000 162.5000 0.0000000E+00 + 1.500000 162.5000 0.0000000E+00 + 2.500000 162.5000 0.0000000E+00 + 3.500000 162.5000 0.0000000E+00 + 4.500000 162.5000 0.0000000E+00 + 5.500000 162.5000 0.0000000E+00 + 6.500000 162.5000 0.0000000E+00 + 7.500000 162.5000 0.0000000E+00 + 8.500000 162.5000 0.0000000E+00 + 9.500000 162.5000 0.0000000E+00 + 10.50000 162.5000 0.0000000E+00 + 11.50000 162.5000 0.0000000E+00 + 12.50000 162.5000 0.0000000E+00 + 13.50000 162.5000 0.0000000E+00 + 14.50000 162.5000 0.0000000E+00 + 15.50000 162.5000 0.0000000E+00 + 16.50000 162.5000 0.0000000E+00 + 17.50000 162.5000 0.0000000E+00 + 18.50000 162.5000 0.0000000E+00 + 19.50000 162.5000 0.0000000E+00 + 20.50000 162.5000 0.0000000E+00 + 21.50000 162.5000 0.0000000E+00 + 22.50000 162.5000 0.0000000E+00 + 23.50000 162.5000 0.0000000E+00 + 24.50000 162.5000 0.0000000E+00 + 25.50000 162.5000 0.0000000E+00 + 26.50000 162.5000 0.0000000E+00 + 27.50000 162.5000 0.0000000E+00 + 28.50000 162.5000 0.0000000E+00 + 29.50000 162.5000 0.0000000E+00 + 30.50000 162.5000 0.0000000E+00 + 31.50000 162.5000 0.0000000E+00 + 32.50000 162.5000 0.0000000E+00 + 33.50000 162.5000 0.0000000E+00 + 34.50000 162.5000 0.0000000E+00 + 35.50000 162.5000 0.0000000E+00 + 36.50000 162.5000 0.0000000E+00 + 37.50000 162.5000 0.0000000E+00 + 38.50000 162.5000 0.0000000E+00 + 39.50000 162.5000 0.0000000E+00 + 40.50000 162.5000 0.0000000E+00 + 41.50000 162.5000 0.0000000E+00 + 42.50000 162.5000 0.0000000E+00 + 43.50000 162.5000 0.0000000E+00 + 44.50000 162.5000 0.0000000E+00 + 45.50000 162.5000 0.0000000E+00 + 46.50000 162.5000 0.0000000E+00 + 47.50000 162.5000 0.0000000E+00 + 48.50000 162.5000 0.0000000E+00 + 49.50000 162.5000 0.0000000E+00 + 50.50000 162.5000 0.0000000E+00 + 51.50000 162.5000 0.0000000E+00 + 52.50000 162.5000 0.0000000E+00 + 53.50000 162.5000 0.0000000E+00 + 54.50000 162.5000 0.0000000E+00 + 55.50000 162.5000 0.0000000E+00 + 56.50000 162.5000 0.0000000E+00 + 57.50000 162.5000 0.0000000E+00 + 58.50000 162.5000 0.0000000E+00 + 59.50000 162.5000 0.0000000E+00 + 60.50000 162.5000 0.0000000E+00 + 61.50000 162.5000 0.0000000E+00 + 62.50000 162.5000 0.0000000E+00 + 63.50000 162.5000 0.0000000E+00 + 64.50000 162.5000 0.0000000E+00 + 65.50000 162.5000 0.0000000E+00 + 66.50000 162.5000 0.0000000E+00 + 67.50000 162.5000 0.0000000E+00 + 68.50000 162.5000 0.0000000E+00 + 69.50000 162.5000 0.0000000E+00 + 70.50000 162.5000 0.0000000E+00 + 71.50000 162.5000 0.0000000E+00 + 72.50000 162.5000 0.0000000E+00 + 73.50000 162.5000 0.0000000E+00 + 74.50000 162.5000 0.0000000E+00 + 75.50000 162.5000 0.0000000E+00 + 76.50000 162.5000 0.0000000E+00 + 77.50000 162.5000 0.0000000E+00 + 78.50000 162.5000 0.0000000E+00 + 79.50000 162.5000 0.0000000E+00 + 80.50000 162.5000 0.0000000E+00 + 81.50000 162.5000 0.0000000E+00 + 82.50000 162.5000 0.0000000E+00 + 83.50000 162.5000 0.0000000E+00 + 84.50000 162.5000 0.0000000E+00 + 85.50000 162.5000 0.0000000E+00 + 86.50000 162.5000 0.0000000E+00 + 87.50000 162.5000 0.0000000E+00 + 88.50000 162.5000 0.0000000E+00 + 89.50000 162.5000 0.0000000E+00 + -89.50000 163.5000 0.0000000E+00 + -88.50000 163.5000 0.0000000E+00 + -87.50000 163.5000 0.0000000E+00 + -86.50000 163.5000 0.0000000E+00 + -85.50000 163.5000 0.0000000E+00 + -84.50000 163.5000 0.0000000E+00 + -83.50000 163.5000 0.0000000E+00 + -82.50000 163.5000 0.0000000E+00 + -81.50000 163.5000 0.0000000E+00 + -80.50000 163.5000 0.0000000E+00 + -79.50000 163.5000 0.0000000E+00 + -78.50000 163.5000 0.0000000E+00 + -77.50000 163.5000 0.0000000E+00 + -76.50000 163.5000 0.0000000E+00 + -75.50000 163.5000 0.0000000E+00 + -74.50000 163.5000 0.0000000E+00 + -73.50000 163.5000 0.0000000E+00 + -72.50000 163.5000 0.0000000E+00 + -71.50000 163.5000 0.0000000E+00 + -70.50000 163.5000 0.0000000E+00 + -69.50000 163.5000 0.0000000E+00 + -68.50000 163.5000 0.0000000E+00 + -67.50000 163.5000 0.0000000E+00 + -66.50000 163.5000 0.0000000E+00 + -65.50000 163.5000 0.0000000E+00 + -64.50000 163.5000 0.0000000E+00 + -63.50000 163.5000 0.0000000E+00 + -62.50000 163.5000 0.0000000E+00 + -61.50000 163.5000 0.0000000E+00 + -60.50000 163.5000 0.0000000E+00 + -59.50000 163.5000 0.0000000E+00 + -58.50000 163.5000 0.0000000E+00 + -57.50000 163.5000 0.0000000E+00 + -56.50000 163.5000 0.0000000E+00 + -55.50000 163.5000 0.0000000E+00 + -54.50000 163.5000 0.0000000E+00 + -53.50000 163.5000 0.0000000E+00 + -52.50000 163.5000 0.0000000E+00 + -51.50000 163.5000 0.0000000E+00 + -50.50000 163.5000 0.0000000E+00 + -49.50000 163.5000 0.0000000E+00 + -48.50000 163.5000 0.0000000E+00 + -47.50000 163.5000 0.0000000E+00 + -46.50000 163.5000 0.0000000E+00 + -45.50000 163.5000 0.0000000E+00 + -44.50000 163.5000 0.0000000E+00 + -43.50000 163.5000 0.0000000E+00 + -42.50000 163.5000 0.0000000E+00 + -41.50000 163.5000 0.0000000E+00 + -40.50000 163.5000 0.0000000E+00 + -39.50000 163.5000 0.0000000E+00 + -38.50000 163.5000 0.0000000E+00 + -37.50000 163.5000 0.0000000E+00 + -36.50000 163.5000 0.0000000E+00 + -35.50000 163.5000 0.0000000E+00 + -34.50000 163.5000 0.0000000E+00 + -33.50000 163.5000 0.0000000E+00 + -32.50000 163.5000 0.0000000E+00 + -31.50000 163.5000 0.0000000E+00 + -30.50000 163.5000 0.0000000E+00 + -29.50000 163.5000 0.0000000E+00 + -28.50000 163.5000 0.0000000E+00 + -27.50000 163.5000 0.0000000E+00 + -26.50000 163.5000 0.0000000E+00 + -25.50000 163.5000 0.0000000E+00 + -24.50000 163.5000 0.0000000E+00 + -23.50000 163.5000 0.0000000E+00 + -22.50000 163.5000 0.0000000E+00 + -21.50000 163.5000 0.0000000E+00 + -20.50000 163.5000 0.0000000E+00 + -19.50000 163.5000 0.0000000E+00 + -18.50000 163.5000 0.0000000E+00 + -17.50000 163.5000 0.0000000E+00 + -16.50000 163.5000 0.0000000E+00 + -15.50000 163.5000 0.0000000E+00 + -14.50000 163.5000 0.0000000E+00 + -13.50000 163.5000 0.0000000E+00 + -12.50000 163.5000 0.0000000E+00 + -11.50000 163.5000 0.0000000E+00 + -10.50000 163.5000 0.0000000E+00 + -9.500000 163.5000 0.0000000E+00 + -8.500000 163.5000 0.0000000E+00 + -7.500000 163.5000 0.0000000E+00 + -6.500000 163.5000 0.0000000E+00 + -5.500000 163.5000 0.0000000E+00 + -4.500000 163.5000 0.0000000E+00 + -3.500000 163.5000 0.0000000E+00 + -2.500000 163.5000 0.0000000E+00 + -1.500000 163.5000 0.0000000E+00 + -0.5000000 163.5000 0.0000000E+00 + 0.5000000 163.5000 0.0000000E+00 + 1.500000 163.5000 0.0000000E+00 + 2.500000 163.5000 0.0000000E+00 + 3.500000 163.5000 0.0000000E+00 + 4.500000 163.5000 0.0000000E+00 + 5.500000 163.5000 0.0000000E+00 + 6.500000 163.5000 0.0000000E+00 + 7.500000 163.5000 0.0000000E+00 + 8.500000 163.5000 0.0000000E+00 + 9.500000 163.5000 0.0000000E+00 + 10.50000 163.5000 0.0000000E+00 + 11.50000 163.5000 0.0000000E+00 + 12.50000 163.5000 0.0000000E+00 + 13.50000 163.5000 0.0000000E+00 + 14.50000 163.5000 0.0000000E+00 + 15.50000 163.5000 0.0000000E+00 + 16.50000 163.5000 0.0000000E+00 + 17.50000 163.5000 0.0000000E+00 + 18.50000 163.5000 0.0000000E+00 + 19.50000 163.5000 0.0000000E+00 + 20.50000 163.5000 0.0000000E+00 + 21.50000 163.5000 0.0000000E+00 + 22.50000 163.5000 0.0000000E+00 + 23.50000 163.5000 0.0000000E+00 + 24.50000 163.5000 0.0000000E+00 + 25.50000 163.5000 0.0000000E+00 + 26.50000 163.5000 0.0000000E+00 + 27.50000 163.5000 0.0000000E+00 + 28.50000 163.5000 0.0000000E+00 + 29.50000 163.5000 0.0000000E+00 + 30.50000 163.5000 0.0000000E+00 + 31.50000 163.5000 0.0000000E+00 + 32.50000 163.5000 0.0000000E+00 + 33.50000 163.5000 0.0000000E+00 + 34.50000 163.5000 0.0000000E+00 + 35.50000 163.5000 0.0000000E+00 + 36.50000 163.5000 0.0000000E+00 + 37.50000 163.5000 0.0000000E+00 + 38.50000 163.5000 0.0000000E+00 + 39.50000 163.5000 0.0000000E+00 + 40.50000 163.5000 0.0000000E+00 + 41.50000 163.5000 0.0000000E+00 + 42.50000 163.5000 0.0000000E+00 + 43.50000 163.5000 0.0000000E+00 + 44.50000 163.5000 0.0000000E+00 + 45.50000 163.5000 0.0000000E+00 + 46.50000 163.5000 0.0000000E+00 + 47.50000 163.5000 0.0000000E+00 + 48.50000 163.5000 0.0000000E+00 + 49.50000 163.5000 0.0000000E+00 + 50.50000 163.5000 0.0000000E+00 + 51.50000 163.5000 0.0000000E+00 + 52.50000 163.5000 0.0000000E+00 + 53.50000 163.5000 0.0000000E+00 + 54.50000 163.5000 0.0000000E+00 + 55.50000 163.5000 0.0000000E+00 + 56.50000 163.5000 0.0000000E+00 + 57.50000 163.5000 0.0000000E+00 + 58.50000 163.5000 0.0000000E+00 + 59.50000 163.5000 0.0000000E+00 + 60.50000 163.5000 0.0000000E+00 + 61.50000 163.5000 0.0000000E+00 + 62.50000 163.5000 0.0000000E+00 + 63.50000 163.5000 0.0000000E+00 + 64.50000 163.5000 0.0000000E+00 + 65.50000 163.5000 0.0000000E+00 + 66.50000 163.5000 0.0000000E+00 + 67.50000 163.5000 0.0000000E+00 + 68.50000 163.5000 0.0000000E+00 + 69.50000 163.5000 0.0000000E+00 + 70.50000 163.5000 0.0000000E+00 + 71.50000 163.5000 0.0000000E+00 + 72.50000 163.5000 0.0000000E+00 + 73.50000 163.5000 0.0000000E+00 + 74.50000 163.5000 0.0000000E+00 + 75.50000 163.5000 0.0000000E+00 + 76.50000 163.5000 0.0000000E+00 + 77.50000 163.5000 0.0000000E+00 + 78.50000 163.5000 0.0000000E+00 + 79.50000 163.5000 0.0000000E+00 + 80.50000 163.5000 0.0000000E+00 + 81.50000 163.5000 0.0000000E+00 + 82.50000 163.5000 0.0000000E+00 + 83.50000 163.5000 0.0000000E+00 + 84.50000 163.5000 0.0000000E+00 + 85.50000 163.5000 0.0000000E+00 + 86.50000 163.5000 0.0000000E+00 + 87.50000 163.5000 0.0000000E+00 + 88.50000 163.5000 0.0000000E+00 + 89.50000 163.5000 0.0000000E+00 + -89.50000 164.5000 0.0000000E+00 + -88.50000 164.5000 0.0000000E+00 + -87.50000 164.5000 0.0000000E+00 + -86.50000 164.5000 0.0000000E+00 + -85.50000 164.5000 0.0000000E+00 + -84.50000 164.5000 0.0000000E+00 + -83.50000 164.5000 0.0000000E+00 + -82.50000 164.5000 0.0000000E+00 + -81.50000 164.5000 0.0000000E+00 + -80.50000 164.5000 0.0000000E+00 + -79.50000 164.5000 0.0000000E+00 + -78.50000 164.5000 0.0000000E+00 + -77.50000 164.5000 0.0000000E+00 + -76.50000 164.5000 0.0000000E+00 + -75.50000 164.5000 0.0000000E+00 + -74.50000 164.5000 0.0000000E+00 + -73.50000 164.5000 0.0000000E+00 + -72.50000 164.5000 0.0000000E+00 + -71.50000 164.5000 0.0000000E+00 + -70.50000 164.5000 0.0000000E+00 + -69.50000 164.5000 0.0000000E+00 + -68.50000 164.5000 0.0000000E+00 + -67.50000 164.5000 0.0000000E+00 + -66.50000 164.5000 0.0000000E+00 + -65.50000 164.5000 0.0000000E+00 + -64.50000 164.5000 0.0000000E+00 + -63.50000 164.5000 0.0000000E+00 + -62.50000 164.5000 0.0000000E+00 + -61.50000 164.5000 0.0000000E+00 + -60.50000 164.5000 0.0000000E+00 + -59.50000 164.5000 0.0000000E+00 + -58.50000 164.5000 0.0000000E+00 + -57.50000 164.5000 0.0000000E+00 + -56.50000 164.5000 0.0000000E+00 + -55.50000 164.5000 0.0000000E+00 + -54.50000 164.5000 0.0000000E+00 + -53.50000 164.5000 0.0000000E+00 + -52.50000 164.5000 0.0000000E+00 + -51.50000 164.5000 0.0000000E+00 + -50.50000 164.5000 0.0000000E+00 + -49.50000 164.5000 0.0000000E+00 + -48.50000 164.5000 0.0000000E+00 + -47.50000 164.5000 0.0000000E+00 + -46.50000 164.5000 0.0000000E+00 + -45.50000 164.5000 0.0000000E+00 + -44.50000 164.5000 0.0000000E+00 + -43.50000 164.5000 0.0000000E+00 + -42.50000 164.5000 0.0000000E+00 + -41.50000 164.5000 0.0000000E+00 + -40.50000 164.5000 0.0000000E+00 + -39.50000 164.5000 0.0000000E+00 + -38.50000 164.5000 0.0000000E+00 + -37.50000 164.5000 0.0000000E+00 + -36.50000 164.5000 0.0000000E+00 + -35.50000 164.5000 0.0000000E+00 + -34.50000 164.5000 0.0000000E+00 + -33.50000 164.5000 0.0000000E+00 + -32.50000 164.5000 0.0000000E+00 + -31.50000 164.5000 0.0000000E+00 + -30.50000 164.5000 0.0000000E+00 + -29.50000 164.5000 0.0000000E+00 + -28.50000 164.5000 0.0000000E+00 + -27.50000 164.5000 0.0000000E+00 + -26.50000 164.5000 0.0000000E+00 + -25.50000 164.5000 0.0000000E+00 + -24.50000 164.5000 0.0000000E+00 + -23.50000 164.5000 0.0000000E+00 + -22.50000 164.5000 0.0000000E+00 + -21.50000 164.5000 0.0000000E+00 + -20.50000 164.5000 0.0000000E+00 + -19.50000 164.5000 0.0000000E+00 + -18.50000 164.5000 0.0000000E+00 + -17.50000 164.5000 0.0000000E+00 + -16.50000 164.5000 0.0000000E+00 + -15.50000 164.5000 0.0000000E+00 + -14.50000 164.5000 0.0000000E+00 + -13.50000 164.5000 0.0000000E+00 + -12.50000 164.5000 0.0000000E+00 + -11.50000 164.5000 0.0000000E+00 + -10.50000 164.5000 0.0000000E+00 + -9.500000 164.5000 0.0000000E+00 + -8.500000 164.5000 0.0000000E+00 + -7.500000 164.5000 0.0000000E+00 + -6.500000 164.5000 0.0000000E+00 + -5.500000 164.5000 0.0000000E+00 + -4.500000 164.5000 0.0000000E+00 + -3.500000 164.5000 0.0000000E+00 + -2.500000 164.5000 0.0000000E+00 + -1.500000 164.5000 0.0000000E+00 + -0.5000000 164.5000 0.0000000E+00 + 0.5000000 164.5000 0.0000000E+00 + 1.500000 164.5000 0.0000000E+00 + 2.500000 164.5000 0.0000000E+00 + 3.500000 164.5000 0.0000000E+00 + 4.500000 164.5000 0.0000000E+00 + 5.500000 164.5000 0.0000000E+00 + 6.500000 164.5000 0.0000000E+00 + 7.500000 164.5000 0.0000000E+00 + 8.500000 164.5000 0.0000000E+00 + 9.500000 164.5000 0.0000000E+00 + 10.50000 164.5000 0.0000000E+00 + 11.50000 164.5000 0.0000000E+00 + 12.50000 164.5000 0.0000000E+00 + 13.50000 164.5000 0.0000000E+00 + 14.50000 164.5000 0.0000000E+00 + 15.50000 164.5000 0.0000000E+00 + 16.50000 164.5000 0.0000000E+00 + 17.50000 164.5000 0.0000000E+00 + 18.50000 164.5000 0.0000000E+00 + 19.50000 164.5000 0.0000000E+00 + 20.50000 164.5000 0.0000000E+00 + 21.50000 164.5000 0.0000000E+00 + 22.50000 164.5000 0.0000000E+00 + 23.50000 164.5000 0.0000000E+00 + 24.50000 164.5000 0.0000000E+00 + 25.50000 164.5000 0.0000000E+00 + 26.50000 164.5000 0.0000000E+00 + 27.50000 164.5000 0.0000000E+00 + 28.50000 164.5000 0.0000000E+00 + 29.50000 164.5000 0.0000000E+00 + 30.50000 164.5000 0.0000000E+00 + 31.50000 164.5000 0.0000000E+00 + 32.50000 164.5000 0.0000000E+00 + 33.50000 164.5000 0.0000000E+00 + 34.50000 164.5000 0.0000000E+00 + 35.50000 164.5000 0.0000000E+00 + 36.50000 164.5000 0.0000000E+00 + 37.50000 164.5000 0.0000000E+00 + 38.50000 164.5000 0.0000000E+00 + 39.50000 164.5000 0.0000000E+00 + 40.50000 164.5000 0.0000000E+00 + 41.50000 164.5000 0.0000000E+00 + 42.50000 164.5000 0.0000000E+00 + 43.50000 164.5000 0.0000000E+00 + 44.50000 164.5000 0.0000000E+00 + 45.50000 164.5000 0.0000000E+00 + 46.50000 164.5000 0.0000000E+00 + 47.50000 164.5000 0.0000000E+00 + 48.50000 164.5000 0.0000000E+00 + 49.50000 164.5000 0.0000000E+00 + 50.50000 164.5000 0.0000000E+00 + 51.50000 164.5000 0.0000000E+00 + 52.50000 164.5000 0.0000000E+00 + 53.50000 164.5000 0.0000000E+00 + 54.50000 164.5000 0.0000000E+00 + 55.50000 164.5000 0.0000000E+00 + 56.50000 164.5000 0.0000000E+00 + 57.50000 164.5000 0.0000000E+00 + 58.50000 164.5000 0.0000000E+00 + 59.50000 164.5000 0.0000000E+00 + 60.50000 164.5000 0.0000000E+00 + 61.50000 164.5000 0.0000000E+00 + 62.50000 164.5000 0.0000000E+00 + 63.50000 164.5000 0.0000000E+00 + 64.50000 164.5000 0.0000000E+00 + 65.50000 164.5000 0.0000000E+00 + 66.50000 164.5000 0.0000000E+00 + 67.50000 164.5000 0.0000000E+00 + 68.50000 164.5000 0.0000000E+00 + 69.50000 164.5000 0.0000000E+00 + 70.50000 164.5000 0.0000000E+00 + 71.50000 164.5000 0.0000000E+00 + 72.50000 164.5000 0.0000000E+00 + 73.50000 164.5000 0.0000000E+00 + 74.50000 164.5000 0.0000000E+00 + 75.50000 164.5000 0.0000000E+00 + 76.50000 164.5000 0.0000000E+00 + 77.50000 164.5000 0.0000000E+00 + 78.50000 164.5000 0.0000000E+00 + 79.50000 164.5000 0.0000000E+00 + 80.50000 164.5000 0.0000000E+00 + 81.50000 164.5000 0.0000000E+00 + 82.50000 164.5000 0.0000000E+00 + 83.50000 164.5000 0.0000000E+00 + 84.50000 164.5000 0.0000000E+00 + 85.50000 164.5000 0.0000000E+00 + 86.50000 164.5000 0.0000000E+00 + 87.50000 164.5000 0.0000000E+00 + 88.50000 164.5000 0.0000000E+00 + 89.50000 164.5000 0.0000000E+00 + -89.50000 165.5000 0.0000000E+00 + -88.50000 165.5000 0.0000000E+00 + -87.50000 165.5000 0.0000000E+00 + -86.50000 165.5000 0.0000000E+00 + -85.50000 165.5000 0.0000000E+00 + -84.50000 165.5000 0.0000000E+00 + -83.50000 165.5000 0.0000000E+00 + -82.50000 165.5000 0.0000000E+00 + -81.50000 165.5000 0.0000000E+00 + -80.50000 165.5000 0.0000000E+00 + -79.50000 165.5000 0.0000000E+00 + -78.50000 165.5000 0.0000000E+00 + -77.50000 165.5000 0.0000000E+00 + -76.50000 165.5000 0.0000000E+00 + -75.50000 165.5000 0.0000000E+00 + -74.50000 165.5000 0.0000000E+00 + -73.50000 165.5000 0.0000000E+00 + -72.50000 165.5000 0.0000000E+00 + -71.50000 165.5000 0.0000000E+00 + -70.50000 165.5000 0.0000000E+00 + -69.50000 165.5000 0.0000000E+00 + -68.50000 165.5000 0.0000000E+00 + -67.50000 165.5000 0.0000000E+00 + -66.50000 165.5000 0.0000000E+00 + -65.50000 165.5000 0.0000000E+00 + -64.50000 165.5000 0.0000000E+00 + -63.50000 165.5000 0.0000000E+00 + -62.50000 165.5000 0.0000000E+00 + -61.50000 165.5000 0.0000000E+00 + -60.50000 165.5000 0.0000000E+00 + -59.50000 165.5000 0.0000000E+00 + -58.50000 165.5000 0.0000000E+00 + -57.50000 165.5000 0.0000000E+00 + -56.50000 165.5000 0.0000000E+00 + -55.50000 165.5000 0.0000000E+00 + -54.50000 165.5000 0.0000000E+00 + -53.50000 165.5000 0.0000000E+00 + -52.50000 165.5000 0.0000000E+00 + -51.50000 165.5000 0.0000000E+00 + -50.50000 165.5000 0.0000000E+00 + -49.50000 165.5000 0.0000000E+00 + -48.50000 165.5000 0.0000000E+00 + -47.50000 165.5000 0.0000000E+00 + -46.50000 165.5000 0.0000000E+00 + -45.50000 165.5000 0.0000000E+00 + -44.50000 165.5000 0.0000000E+00 + -43.50000 165.5000 0.0000000E+00 + -42.50000 165.5000 0.0000000E+00 + -41.50000 165.5000 0.0000000E+00 + -40.50000 165.5000 0.0000000E+00 + -39.50000 165.5000 0.0000000E+00 + -38.50000 165.5000 0.0000000E+00 + -37.50000 165.5000 0.0000000E+00 + -36.50000 165.5000 0.0000000E+00 + -35.50000 165.5000 0.0000000E+00 + -34.50000 165.5000 0.0000000E+00 + -33.50000 165.5000 0.0000000E+00 + -32.50000 165.5000 0.0000000E+00 + -31.50000 165.5000 0.0000000E+00 + -30.50000 165.5000 0.0000000E+00 + -29.50000 165.5000 0.0000000E+00 + -28.50000 165.5000 0.0000000E+00 + -27.50000 165.5000 0.0000000E+00 + -26.50000 165.5000 0.0000000E+00 + -25.50000 165.5000 0.0000000E+00 + -24.50000 165.5000 0.0000000E+00 + -23.50000 165.5000 0.0000000E+00 + -22.50000 165.5000 0.0000000E+00 + -21.50000 165.5000 0.0000000E+00 + -20.50000 165.5000 0.0000000E+00 + -19.50000 165.5000 0.0000000E+00 + -18.50000 165.5000 0.0000000E+00 + -17.50000 165.5000 0.0000000E+00 + -16.50000 165.5000 0.0000000E+00 + -15.50000 165.5000 0.0000000E+00 + -14.50000 165.5000 0.0000000E+00 + -13.50000 165.5000 0.0000000E+00 + -12.50000 165.5000 0.0000000E+00 + -11.50000 165.5000 0.0000000E+00 + -10.50000 165.5000 0.0000000E+00 + -9.500000 165.5000 0.0000000E+00 + -8.500000 165.5000 0.0000000E+00 + -7.500000 165.5000 0.0000000E+00 + -6.500000 165.5000 0.0000000E+00 + -5.500000 165.5000 0.0000000E+00 + -4.500000 165.5000 0.0000000E+00 + -3.500000 165.5000 0.0000000E+00 + -2.500000 165.5000 0.0000000E+00 + -1.500000 165.5000 0.0000000E+00 + -0.5000000 165.5000 0.0000000E+00 + 0.5000000 165.5000 0.0000000E+00 + 1.500000 165.5000 0.0000000E+00 + 2.500000 165.5000 0.0000000E+00 + 3.500000 165.5000 0.0000000E+00 + 4.500000 165.5000 0.0000000E+00 + 5.500000 165.5000 0.0000000E+00 + 6.500000 165.5000 0.0000000E+00 + 7.500000 165.5000 0.0000000E+00 + 8.500000 165.5000 0.0000000E+00 + 9.500000 165.5000 0.0000000E+00 + 10.50000 165.5000 0.0000000E+00 + 11.50000 165.5000 0.0000000E+00 + 12.50000 165.5000 0.0000000E+00 + 13.50000 165.5000 0.0000000E+00 + 14.50000 165.5000 0.0000000E+00 + 15.50000 165.5000 0.0000000E+00 + 16.50000 165.5000 0.0000000E+00 + 17.50000 165.5000 0.0000000E+00 + 18.50000 165.5000 0.0000000E+00 + 19.50000 165.5000 0.0000000E+00 + 20.50000 165.5000 0.0000000E+00 + 21.50000 165.5000 0.0000000E+00 + 22.50000 165.5000 0.0000000E+00 + 23.50000 165.5000 0.0000000E+00 + 24.50000 165.5000 0.0000000E+00 + 25.50000 165.5000 0.0000000E+00 + 26.50000 165.5000 0.0000000E+00 + 27.50000 165.5000 0.0000000E+00 + 28.50000 165.5000 0.0000000E+00 + 29.50000 165.5000 0.0000000E+00 + 30.50000 165.5000 0.0000000E+00 + 31.50000 165.5000 0.0000000E+00 + 32.50000 165.5000 0.0000000E+00 + 33.50000 165.5000 0.0000000E+00 + 34.50000 165.5000 0.0000000E+00 + 35.50000 165.5000 0.0000000E+00 + 36.50000 165.5000 0.0000000E+00 + 37.50000 165.5000 0.0000000E+00 + 38.50000 165.5000 0.0000000E+00 + 39.50000 165.5000 0.0000000E+00 + 40.50000 165.5000 0.0000000E+00 + 41.50000 165.5000 0.0000000E+00 + 42.50000 165.5000 0.0000000E+00 + 43.50000 165.5000 0.0000000E+00 + 44.50000 165.5000 0.0000000E+00 + 45.50000 165.5000 0.0000000E+00 + 46.50000 165.5000 0.0000000E+00 + 47.50000 165.5000 0.0000000E+00 + 48.50000 165.5000 0.0000000E+00 + 49.50000 165.5000 0.0000000E+00 + 50.50000 165.5000 0.0000000E+00 + 51.50000 165.5000 0.0000000E+00 + 52.50000 165.5000 0.0000000E+00 + 53.50000 165.5000 0.0000000E+00 + 54.50000 165.5000 0.0000000E+00 + 55.50000 165.5000 0.0000000E+00 + 56.50000 165.5000 0.0000000E+00 + 57.50000 165.5000 0.0000000E+00 + 58.50000 165.5000 0.0000000E+00 + 59.50000 165.5000 0.0000000E+00 + 60.50000 165.5000 0.0000000E+00 + 61.50000 165.5000 0.0000000E+00 + 62.50000 165.5000 0.0000000E+00 + 63.50000 165.5000 0.0000000E+00 + 64.50000 165.5000 0.0000000E+00 + 65.50000 165.5000 0.0000000E+00 + 66.50000 165.5000 0.0000000E+00 + 67.50000 165.5000 0.0000000E+00 + 68.50000 165.5000 0.0000000E+00 + 69.50000 165.5000 0.0000000E+00 + 70.50000 165.5000 0.0000000E+00 + 71.50000 165.5000 0.0000000E+00 + 72.50000 165.5000 0.0000000E+00 + 73.50000 165.5000 0.0000000E+00 + 74.50000 165.5000 0.0000000E+00 + 75.50000 165.5000 0.0000000E+00 + 76.50000 165.5000 0.0000000E+00 + 77.50000 165.5000 0.0000000E+00 + 78.50000 165.5000 0.0000000E+00 + 79.50000 165.5000 0.0000000E+00 + 80.50000 165.5000 0.0000000E+00 + 81.50000 165.5000 0.0000000E+00 + 82.50000 165.5000 0.0000000E+00 + 83.50000 165.5000 0.0000000E+00 + 84.50000 165.5000 0.0000000E+00 + 85.50000 165.5000 0.0000000E+00 + 86.50000 165.5000 0.0000000E+00 + 87.50000 165.5000 0.0000000E+00 + 88.50000 165.5000 0.0000000E+00 + 89.50000 165.5000 0.0000000E+00 + -89.50000 166.5000 0.0000000E+00 + -88.50000 166.5000 0.0000000E+00 + -87.50000 166.5000 0.0000000E+00 + -86.50000 166.5000 0.0000000E+00 + -85.50000 166.5000 0.0000000E+00 + -84.50000 166.5000 0.0000000E+00 + -83.50000 166.5000 0.0000000E+00 + -82.50000 166.5000 0.0000000E+00 + -81.50000 166.5000 0.0000000E+00 + -80.50000 166.5000 0.0000000E+00 + -79.50000 166.5000 0.0000000E+00 + -78.50000 166.5000 0.0000000E+00 + -77.50000 166.5000 0.0000000E+00 + -76.50000 166.5000 0.0000000E+00 + -75.50000 166.5000 0.0000000E+00 + -74.50000 166.5000 0.0000000E+00 + -73.50000 166.5000 0.0000000E+00 + -72.50000 166.5000 0.0000000E+00 + -71.50000 166.5000 0.0000000E+00 + -70.50000 166.5000 0.0000000E+00 + -69.50000 166.5000 0.0000000E+00 + -68.50000 166.5000 0.0000000E+00 + -67.50000 166.5000 0.0000000E+00 + -66.50000 166.5000 0.0000000E+00 + -65.50000 166.5000 0.0000000E+00 + -64.50000 166.5000 0.0000000E+00 + -63.50000 166.5000 0.0000000E+00 + -62.50000 166.5000 0.0000000E+00 + -61.50000 166.5000 0.0000000E+00 + -60.50000 166.5000 0.0000000E+00 + -59.50000 166.5000 0.0000000E+00 + -58.50000 166.5000 0.0000000E+00 + -57.50000 166.5000 0.0000000E+00 + -56.50000 166.5000 0.0000000E+00 + -55.50000 166.5000 0.0000000E+00 + -54.50000 166.5000 0.0000000E+00 + -53.50000 166.5000 0.0000000E+00 + -52.50000 166.5000 0.0000000E+00 + -51.50000 166.5000 0.0000000E+00 + -50.50000 166.5000 0.0000000E+00 + -49.50000 166.5000 0.0000000E+00 + -48.50000 166.5000 0.0000000E+00 + -47.50000 166.5000 0.0000000E+00 + -46.50000 166.5000 0.0000000E+00 + -45.50000 166.5000 0.0000000E+00 + -44.50000 166.5000 0.0000000E+00 + -43.50000 166.5000 0.0000000E+00 + -42.50000 166.5000 0.0000000E+00 + -41.50000 166.5000 0.0000000E+00 + -40.50000 166.5000 0.0000000E+00 + -39.50000 166.5000 0.0000000E+00 + -38.50000 166.5000 0.0000000E+00 + -37.50000 166.5000 0.0000000E+00 + -36.50000 166.5000 0.0000000E+00 + -35.50000 166.5000 0.0000000E+00 + -34.50000 166.5000 0.0000000E+00 + -33.50000 166.5000 0.0000000E+00 + -32.50000 166.5000 0.0000000E+00 + -31.50000 166.5000 0.0000000E+00 + -30.50000 166.5000 0.0000000E+00 + -29.50000 166.5000 0.0000000E+00 + -28.50000 166.5000 0.0000000E+00 + -27.50000 166.5000 0.0000000E+00 + -26.50000 166.5000 0.0000000E+00 + -25.50000 166.5000 0.0000000E+00 + -24.50000 166.5000 0.0000000E+00 + -23.50000 166.5000 0.0000000E+00 + -22.50000 166.5000 0.0000000E+00 + -21.50000 166.5000 0.0000000E+00 + -20.50000 166.5000 0.0000000E+00 + -19.50000 166.5000 0.0000000E+00 + -18.50000 166.5000 0.0000000E+00 + -17.50000 166.5000 0.0000000E+00 + -16.50000 166.5000 0.0000000E+00 + -15.50000 166.5000 0.0000000E+00 + -14.50000 166.5000 0.0000000E+00 + -13.50000 166.5000 0.0000000E+00 + -12.50000 166.5000 0.0000000E+00 + -11.50000 166.5000 0.0000000E+00 + -10.50000 166.5000 0.0000000E+00 + -9.500000 166.5000 0.0000000E+00 + -8.500000 166.5000 0.0000000E+00 + -7.500000 166.5000 0.0000000E+00 + -6.500000 166.5000 0.0000000E+00 + -5.500000 166.5000 0.0000000E+00 + -4.500000 166.5000 0.0000000E+00 + -3.500000 166.5000 0.0000000E+00 + -2.500000 166.5000 0.0000000E+00 + -1.500000 166.5000 0.0000000E+00 + -0.5000000 166.5000 0.0000000E+00 + 0.5000000 166.5000 0.0000000E+00 + 1.500000 166.5000 0.0000000E+00 + 2.500000 166.5000 0.0000000E+00 + 3.500000 166.5000 0.0000000E+00 + 4.500000 166.5000 0.0000000E+00 + 5.500000 166.5000 0.0000000E+00 + 6.500000 166.5000 0.0000000E+00 + 7.500000 166.5000 0.0000000E+00 + 8.500000 166.5000 0.0000000E+00 + 9.500000 166.5000 0.0000000E+00 + 10.50000 166.5000 0.0000000E+00 + 11.50000 166.5000 0.0000000E+00 + 12.50000 166.5000 0.0000000E+00 + 13.50000 166.5000 0.0000000E+00 + 14.50000 166.5000 0.0000000E+00 + 15.50000 166.5000 0.0000000E+00 + 16.50000 166.5000 0.0000000E+00 + 17.50000 166.5000 0.0000000E+00 + 18.50000 166.5000 0.0000000E+00 + 19.50000 166.5000 0.0000000E+00 + 20.50000 166.5000 0.0000000E+00 + 21.50000 166.5000 0.0000000E+00 + 22.50000 166.5000 0.0000000E+00 + 23.50000 166.5000 0.0000000E+00 + 24.50000 166.5000 0.0000000E+00 + 25.50000 166.5000 0.0000000E+00 + 26.50000 166.5000 0.0000000E+00 + 27.50000 166.5000 0.0000000E+00 + 28.50000 166.5000 0.0000000E+00 + 29.50000 166.5000 0.0000000E+00 + 30.50000 166.5000 0.0000000E+00 + 31.50000 166.5000 0.0000000E+00 + 32.50000 166.5000 0.0000000E+00 + 33.50000 166.5000 0.0000000E+00 + 34.50000 166.5000 0.0000000E+00 + 35.50000 166.5000 0.0000000E+00 + 36.50000 166.5000 0.0000000E+00 + 37.50000 166.5000 0.0000000E+00 + 38.50000 166.5000 0.0000000E+00 + 39.50000 166.5000 0.0000000E+00 + 40.50000 166.5000 0.0000000E+00 + 41.50000 166.5000 0.0000000E+00 + 42.50000 166.5000 0.0000000E+00 + 43.50000 166.5000 0.0000000E+00 + 44.50000 166.5000 0.0000000E+00 + 45.50000 166.5000 0.0000000E+00 + 46.50000 166.5000 0.0000000E+00 + 47.50000 166.5000 0.0000000E+00 + 48.50000 166.5000 0.0000000E+00 + 49.50000 166.5000 0.0000000E+00 + 50.50000 166.5000 0.0000000E+00 + 51.50000 166.5000 0.0000000E+00 + 52.50000 166.5000 0.0000000E+00 + 53.50000 166.5000 0.0000000E+00 + 54.50000 166.5000 0.0000000E+00 + 55.50000 166.5000 0.0000000E+00 + 56.50000 166.5000 0.0000000E+00 + 57.50000 166.5000 0.0000000E+00 + 58.50000 166.5000 0.0000000E+00 + 59.50000 166.5000 0.0000000E+00 + 60.50000 166.5000 0.0000000E+00 + 61.50000 166.5000 0.0000000E+00 + 62.50000 166.5000 0.0000000E+00 + 63.50000 166.5000 0.0000000E+00 + 64.50000 166.5000 0.0000000E+00 + 65.50000 166.5000 0.0000000E+00 + 66.50000 166.5000 0.0000000E+00 + 67.50000 166.5000 0.0000000E+00 + 68.50000 166.5000 0.0000000E+00 + 69.50000 166.5000 0.0000000E+00 + 70.50000 166.5000 0.0000000E+00 + 71.50000 166.5000 0.0000000E+00 + 72.50000 166.5000 0.0000000E+00 + 73.50000 166.5000 0.0000000E+00 + 74.50000 166.5000 0.0000000E+00 + 75.50000 166.5000 0.0000000E+00 + 76.50000 166.5000 0.0000000E+00 + 77.50000 166.5000 0.0000000E+00 + 78.50000 166.5000 0.0000000E+00 + 79.50000 166.5000 0.0000000E+00 + 80.50000 166.5000 0.0000000E+00 + 81.50000 166.5000 0.0000000E+00 + 82.50000 166.5000 0.0000000E+00 + 83.50000 166.5000 0.0000000E+00 + 84.50000 166.5000 0.0000000E+00 + 85.50000 166.5000 0.0000000E+00 + 86.50000 166.5000 0.0000000E+00 + 87.50000 166.5000 0.0000000E+00 + 88.50000 166.5000 0.0000000E+00 + 89.50000 166.5000 0.0000000E+00 + -89.50000 167.5000 0.0000000E+00 + -88.50000 167.5000 0.0000000E+00 + -87.50000 167.5000 0.0000000E+00 + -86.50000 167.5000 0.0000000E+00 + -85.50000 167.5000 0.0000000E+00 + -84.50000 167.5000 0.0000000E+00 + -83.50000 167.5000 0.0000000E+00 + -82.50000 167.5000 0.0000000E+00 + -81.50000 167.5000 0.0000000E+00 + -80.50000 167.5000 0.0000000E+00 + -79.50000 167.5000 0.0000000E+00 + -78.50000 167.5000 0.0000000E+00 + -77.50000 167.5000 0.0000000E+00 + -76.50000 167.5000 0.0000000E+00 + -75.50000 167.5000 0.0000000E+00 + -74.50000 167.5000 0.0000000E+00 + -73.50000 167.5000 0.0000000E+00 + -72.50000 167.5000 0.0000000E+00 + -71.50000 167.5000 0.0000000E+00 + -70.50000 167.5000 0.0000000E+00 + -69.50000 167.5000 0.0000000E+00 + -68.50000 167.5000 0.0000000E+00 + -67.50000 167.5000 0.0000000E+00 + -66.50000 167.5000 0.0000000E+00 + -65.50000 167.5000 0.0000000E+00 + -64.50000 167.5000 0.0000000E+00 + -63.50000 167.5000 0.0000000E+00 + -62.50000 167.5000 0.0000000E+00 + -61.50000 167.5000 0.0000000E+00 + -60.50000 167.5000 0.0000000E+00 + -59.50000 167.5000 0.0000000E+00 + -58.50000 167.5000 0.0000000E+00 + -57.50000 167.5000 0.0000000E+00 + -56.50000 167.5000 0.0000000E+00 + -55.50000 167.5000 0.0000000E+00 + -54.50000 167.5000 0.0000000E+00 + -53.50000 167.5000 0.0000000E+00 + -52.50000 167.5000 0.0000000E+00 + -51.50000 167.5000 0.0000000E+00 + -50.50000 167.5000 0.0000000E+00 + -49.50000 167.5000 0.0000000E+00 + -48.50000 167.5000 0.0000000E+00 + -47.50000 167.5000 0.0000000E+00 + -46.50000 167.5000 0.0000000E+00 + -45.50000 167.5000 0.0000000E+00 + -44.50000 167.5000 0.0000000E+00 + -43.50000 167.5000 0.0000000E+00 + -42.50000 167.5000 0.0000000E+00 + -41.50000 167.5000 0.0000000E+00 + -40.50000 167.5000 0.0000000E+00 + -39.50000 167.5000 0.0000000E+00 + -38.50000 167.5000 0.0000000E+00 + -37.50000 167.5000 0.0000000E+00 + -36.50000 167.5000 0.0000000E+00 + -35.50000 167.5000 0.0000000E+00 + -34.50000 167.5000 0.0000000E+00 + -33.50000 167.5000 0.0000000E+00 + -32.50000 167.5000 0.0000000E+00 + -31.50000 167.5000 0.0000000E+00 + -30.50000 167.5000 0.0000000E+00 + -29.50000 167.5000 0.0000000E+00 + -28.50000 167.5000 0.0000000E+00 + -27.50000 167.5000 0.0000000E+00 + -26.50000 167.5000 0.0000000E+00 + -25.50000 167.5000 0.0000000E+00 + -24.50000 167.5000 0.0000000E+00 + -23.50000 167.5000 0.0000000E+00 + -22.50000 167.5000 0.0000000E+00 + -21.50000 167.5000 0.0000000E+00 + -20.50000 167.5000 0.0000000E+00 + -19.50000 167.5000 0.0000000E+00 + -18.50000 167.5000 0.0000000E+00 + -17.50000 167.5000 0.0000000E+00 + -16.50000 167.5000 0.0000000E+00 + -15.50000 167.5000 0.0000000E+00 + -14.50000 167.5000 0.0000000E+00 + -13.50000 167.5000 0.0000000E+00 + -12.50000 167.5000 0.0000000E+00 + -11.50000 167.5000 0.0000000E+00 + -10.50000 167.5000 0.0000000E+00 + -9.500000 167.5000 0.0000000E+00 + -8.500000 167.5000 0.0000000E+00 + -7.500000 167.5000 0.0000000E+00 + -6.500000 167.5000 0.0000000E+00 + -5.500000 167.5000 0.0000000E+00 + -4.500000 167.5000 0.0000000E+00 + -3.500000 167.5000 0.0000000E+00 + -2.500000 167.5000 0.0000000E+00 + -1.500000 167.5000 0.0000000E+00 + -0.5000000 167.5000 0.0000000E+00 + 0.5000000 167.5000 0.0000000E+00 + 1.500000 167.5000 0.0000000E+00 + 2.500000 167.5000 0.0000000E+00 + 3.500000 167.5000 0.0000000E+00 + 4.500000 167.5000 0.0000000E+00 + 5.500000 167.5000 0.0000000E+00 + 6.500000 167.5000 0.0000000E+00 + 7.500000 167.5000 0.0000000E+00 + 8.500000 167.5000 0.0000000E+00 + 9.500000 167.5000 0.0000000E+00 + 10.50000 167.5000 0.0000000E+00 + 11.50000 167.5000 0.0000000E+00 + 12.50000 167.5000 0.0000000E+00 + 13.50000 167.5000 0.0000000E+00 + 14.50000 167.5000 0.0000000E+00 + 15.50000 167.5000 0.0000000E+00 + 16.50000 167.5000 0.0000000E+00 + 17.50000 167.5000 0.0000000E+00 + 18.50000 167.5000 0.0000000E+00 + 19.50000 167.5000 0.0000000E+00 + 20.50000 167.5000 0.0000000E+00 + 21.50000 167.5000 0.0000000E+00 + 22.50000 167.5000 0.0000000E+00 + 23.50000 167.5000 0.0000000E+00 + 24.50000 167.5000 0.0000000E+00 + 25.50000 167.5000 0.0000000E+00 + 26.50000 167.5000 0.0000000E+00 + 27.50000 167.5000 0.0000000E+00 + 28.50000 167.5000 0.0000000E+00 + 29.50000 167.5000 0.0000000E+00 + 30.50000 167.5000 0.0000000E+00 + 31.50000 167.5000 0.0000000E+00 + 32.50000 167.5000 0.0000000E+00 + 33.50000 167.5000 0.0000000E+00 + 34.50000 167.5000 0.0000000E+00 + 35.50000 167.5000 0.0000000E+00 + 36.50000 167.5000 0.0000000E+00 + 37.50000 167.5000 0.0000000E+00 + 38.50000 167.5000 0.0000000E+00 + 39.50000 167.5000 0.0000000E+00 + 40.50000 167.5000 0.0000000E+00 + 41.50000 167.5000 0.0000000E+00 + 42.50000 167.5000 0.0000000E+00 + 43.50000 167.5000 0.0000000E+00 + 44.50000 167.5000 0.0000000E+00 + 45.50000 167.5000 0.0000000E+00 + 46.50000 167.5000 0.0000000E+00 + 47.50000 167.5000 0.0000000E+00 + 48.50000 167.5000 0.0000000E+00 + 49.50000 167.5000 0.0000000E+00 + 50.50000 167.5000 0.0000000E+00 + 51.50000 167.5000 0.0000000E+00 + 52.50000 167.5000 0.0000000E+00 + 53.50000 167.5000 0.0000000E+00 + 54.50000 167.5000 0.0000000E+00 + 55.50000 167.5000 0.0000000E+00 + 56.50000 167.5000 0.0000000E+00 + 57.50000 167.5000 0.0000000E+00 + 58.50000 167.5000 0.0000000E+00 + 59.50000 167.5000 0.0000000E+00 + 60.50000 167.5000 0.0000000E+00 + 61.50000 167.5000 0.0000000E+00 + 62.50000 167.5000 0.0000000E+00 + 63.50000 167.5000 0.0000000E+00 + 64.50000 167.5000 0.0000000E+00 + 65.50000 167.5000 0.0000000E+00 + 66.50000 167.5000 0.0000000E+00 + 67.50000 167.5000 0.0000000E+00 + 68.50000 167.5000 0.0000000E+00 + 69.50000 167.5000 0.0000000E+00 + 70.50000 167.5000 0.0000000E+00 + 71.50000 167.5000 0.0000000E+00 + 72.50000 167.5000 0.0000000E+00 + 73.50000 167.5000 0.0000000E+00 + 74.50000 167.5000 0.0000000E+00 + 75.50000 167.5000 0.0000000E+00 + 76.50000 167.5000 0.0000000E+00 + 77.50000 167.5000 0.0000000E+00 + 78.50000 167.5000 0.0000000E+00 + 79.50000 167.5000 0.0000000E+00 + 80.50000 167.5000 0.0000000E+00 + 81.50000 167.5000 0.0000000E+00 + 82.50000 167.5000 0.0000000E+00 + 83.50000 167.5000 0.0000000E+00 + 84.50000 167.5000 0.0000000E+00 + 85.50000 167.5000 0.0000000E+00 + 86.50000 167.5000 0.0000000E+00 + 87.50000 167.5000 0.0000000E+00 + 88.50000 167.5000 0.0000000E+00 + 89.50000 167.5000 0.0000000E+00 + -89.50000 168.5000 0.0000000E+00 + -88.50000 168.5000 0.0000000E+00 + -87.50000 168.5000 0.0000000E+00 + -86.50000 168.5000 0.0000000E+00 + -85.50000 168.5000 0.0000000E+00 + -84.50000 168.5000 0.0000000E+00 + -83.50000 168.5000 0.0000000E+00 + -82.50000 168.5000 0.0000000E+00 + -81.50000 168.5000 0.0000000E+00 + -80.50000 168.5000 0.0000000E+00 + -79.50000 168.5000 0.0000000E+00 + -78.50000 168.5000 0.0000000E+00 + -77.50000 168.5000 0.0000000E+00 + -76.50000 168.5000 0.0000000E+00 + -75.50000 168.5000 0.0000000E+00 + -74.50000 168.5000 0.0000000E+00 + -73.50000 168.5000 0.0000000E+00 + -72.50000 168.5000 0.0000000E+00 + -71.50000 168.5000 0.0000000E+00 + -70.50000 168.5000 0.0000000E+00 + -69.50000 168.5000 0.0000000E+00 + -68.50000 168.5000 0.0000000E+00 + -67.50000 168.5000 0.0000000E+00 + -66.50000 168.5000 0.0000000E+00 + -65.50000 168.5000 0.0000000E+00 + -64.50000 168.5000 0.0000000E+00 + -63.50000 168.5000 0.0000000E+00 + -62.50000 168.5000 0.0000000E+00 + -61.50000 168.5000 0.0000000E+00 + -60.50000 168.5000 0.0000000E+00 + -59.50000 168.5000 0.0000000E+00 + -58.50000 168.5000 0.0000000E+00 + -57.50000 168.5000 0.0000000E+00 + -56.50000 168.5000 0.0000000E+00 + -55.50000 168.5000 0.0000000E+00 + -54.50000 168.5000 0.0000000E+00 + -53.50000 168.5000 0.0000000E+00 + -52.50000 168.5000 0.0000000E+00 + -51.50000 168.5000 0.0000000E+00 + -50.50000 168.5000 0.0000000E+00 + -49.50000 168.5000 0.0000000E+00 + -48.50000 168.5000 0.0000000E+00 + -47.50000 168.5000 0.0000000E+00 + -46.50000 168.5000 0.0000000E+00 + -45.50000 168.5000 0.0000000E+00 + -44.50000 168.5000 0.0000000E+00 + -43.50000 168.5000 0.0000000E+00 + -42.50000 168.5000 0.0000000E+00 + -41.50000 168.5000 0.0000000E+00 + -40.50000 168.5000 0.0000000E+00 + -39.50000 168.5000 0.0000000E+00 + -38.50000 168.5000 0.0000000E+00 + -37.50000 168.5000 0.0000000E+00 + -36.50000 168.5000 0.0000000E+00 + -35.50000 168.5000 0.0000000E+00 + -34.50000 168.5000 0.0000000E+00 + -33.50000 168.5000 0.0000000E+00 + -32.50000 168.5000 0.0000000E+00 + -31.50000 168.5000 0.0000000E+00 + -30.50000 168.5000 0.0000000E+00 + -29.50000 168.5000 0.0000000E+00 + -28.50000 168.5000 0.0000000E+00 + -27.50000 168.5000 0.0000000E+00 + -26.50000 168.5000 0.0000000E+00 + -25.50000 168.5000 0.0000000E+00 + -24.50000 168.5000 0.0000000E+00 + -23.50000 168.5000 0.0000000E+00 + -22.50000 168.5000 0.0000000E+00 + -21.50000 168.5000 0.0000000E+00 + -20.50000 168.5000 0.0000000E+00 + -19.50000 168.5000 0.0000000E+00 + -18.50000 168.5000 0.0000000E+00 + -17.50000 168.5000 0.0000000E+00 + -16.50000 168.5000 0.0000000E+00 + -15.50000 168.5000 0.0000000E+00 + -14.50000 168.5000 0.0000000E+00 + -13.50000 168.5000 0.0000000E+00 + -12.50000 168.5000 0.0000000E+00 + -11.50000 168.5000 0.0000000E+00 + -10.50000 168.5000 0.0000000E+00 + -9.500000 168.5000 0.0000000E+00 + -8.500000 168.5000 0.0000000E+00 + -7.500000 168.5000 0.0000000E+00 + -6.500000 168.5000 0.0000000E+00 + -5.500000 168.5000 0.0000000E+00 + -4.500000 168.5000 0.0000000E+00 + -3.500000 168.5000 0.0000000E+00 + -2.500000 168.5000 0.0000000E+00 + -1.500000 168.5000 0.0000000E+00 + -0.5000000 168.5000 0.0000000E+00 + 0.5000000 168.5000 0.0000000E+00 + 1.500000 168.5000 0.0000000E+00 + 2.500000 168.5000 0.0000000E+00 + 3.500000 168.5000 0.0000000E+00 + 4.500000 168.5000 0.0000000E+00 + 5.500000 168.5000 0.0000000E+00 + 6.500000 168.5000 0.0000000E+00 + 7.500000 168.5000 0.0000000E+00 + 8.500000 168.5000 0.0000000E+00 + 9.500000 168.5000 0.0000000E+00 + 10.50000 168.5000 0.0000000E+00 + 11.50000 168.5000 0.0000000E+00 + 12.50000 168.5000 0.0000000E+00 + 13.50000 168.5000 0.0000000E+00 + 14.50000 168.5000 0.0000000E+00 + 15.50000 168.5000 0.0000000E+00 + 16.50000 168.5000 0.0000000E+00 + 17.50000 168.5000 0.0000000E+00 + 18.50000 168.5000 0.0000000E+00 + 19.50000 168.5000 0.0000000E+00 + 20.50000 168.5000 0.0000000E+00 + 21.50000 168.5000 0.0000000E+00 + 22.50000 168.5000 0.0000000E+00 + 23.50000 168.5000 0.0000000E+00 + 24.50000 168.5000 0.0000000E+00 + 25.50000 168.5000 0.0000000E+00 + 26.50000 168.5000 0.0000000E+00 + 27.50000 168.5000 0.0000000E+00 + 28.50000 168.5000 0.0000000E+00 + 29.50000 168.5000 0.0000000E+00 + 30.50000 168.5000 0.0000000E+00 + 31.50000 168.5000 0.0000000E+00 + 32.50000 168.5000 0.0000000E+00 + 33.50000 168.5000 0.0000000E+00 + 34.50000 168.5000 0.0000000E+00 + 35.50000 168.5000 0.0000000E+00 + 36.50000 168.5000 0.0000000E+00 + 37.50000 168.5000 0.0000000E+00 + 38.50000 168.5000 0.0000000E+00 + 39.50000 168.5000 0.0000000E+00 + 40.50000 168.5000 0.0000000E+00 + 41.50000 168.5000 0.0000000E+00 + 42.50000 168.5000 0.0000000E+00 + 43.50000 168.5000 0.0000000E+00 + 44.50000 168.5000 0.0000000E+00 + 45.50000 168.5000 0.0000000E+00 + 46.50000 168.5000 0.0000000E+00 + 47.50000 168.5000 0.0000000E+00 + 48.50000 168.5000 0.0000000E+00 + 49.50000 168.5000 0.0000000E+00 + 50.50000 168.5000 0.0000000E+00 + 51.50000 168.5000 0.0000000E+00 + 52.50000 168.5000 0.0000000E+00 + 53.50000 168.5000 0.0000000E+00 + 54.50000 168.5000 0.0000000E+00 + 55.50000 168.5000 0.0000000E+00 + 56.50000 168.5000 0.0000000E+00 + 57.50000 168.5000 0.0000000E+00 + 58.50000 168.5000 0.0000000E+00 + 59.50000 168.5000 0.0000000E+00 + 60.50000 168.5000 0.0000000E+00 + 61.50000 168.5000 0.0000000E+00 + 62.50000 168.5000 0.0000000E+00 + 63.50000 168.5000 0.0000000E+00 + 64.50000 168.5000 0.0000000E+00 + 65.50000 168.5000 0.0000000E+00 + 66.50000 168.5000 0.0000000E+00 + 67.50000 168.5000 0.0000000E+00 + 68.50000 168.5000 0.0000000E+00 + 69.50000 168.5000 0.0000000E+00 + 70.50000 168.5000 0.0000000E+00 + 71.50000 168.5000 0.0000000E+00 + 72.50000 168.5000 0.0000000E+00 + 73.50000 168.5000 0.0000000E+00 + 74.50000 168.5000 0.0000000E+00 + 75.50000 168.5000 0.0000000E+00 + 76.50000 168.5000 0.0000000E+00 + 77.50000 168.5000 0.0000000E+00 + 78.50000 168.5000 0.0000000E+00 + 79.50000 168.5000 0.0000000E+00 + 80.50000 168.5000 0.0000000E+00 + 81.50000 168.5000 0.0000000E+00 + 82.50000 168.5000 0.0000000E+00 + 83.50000 168.5000 0.0000000E+00 + 84.50000 168.5000 0.0000000E+00 + 85.50000 168.5000 0.0000000E+00 + 86.50000 168.5000 0.0000000E+00 + 87.50000 168.5000 0.0000000E+00 + 88.50000 168.5000 0.0000000E+00 + 89.50000 168.5000 0.0000000E+00 + -89.50000 169.5000 0.0000000E+00 + -88.50000 169.5000 0.0000000E+00 + -87.50000 169.5000 0.0000000E+00 + -86.50000 169.5000 0.0000000E+00 + -85.50000 169.5000 0.0000000E+00 + -84.50000 169.5000 0.0000000E+00 + -83.50000 169.5000 0.0000000E+00 + -82.50000 169.5000 0.0000000E+00 + -81.50000 169.5000 0.0000000E+00 + -80.50000 169.5000 0.0000000E+00 + -79.50000 169.5000 0.0000000E+00 + -78.50000 169.5000 0.0000000E+00 + -77.50000 169.5000 0.0000000E+00 + -76.50000 169.5000 0.0000000E+00 + -75.50000 169.5000 0.0000000E+00 + -74.50000 169.5000 0.0000000E+00 + -73.50000 169.5000 0.0000000E+00 + -72.50000 169.5000 0.0000000E+00 + -71.50000 169.5000 0.0000000E+00 + -70.50000 169.5000 0.0000000E+00 + -69.50000 169.5000 0.0000000E+00 + -68.50000 169.5000 0.0000000E+00 + -67.50000 169.5000 0.0000000E+00 + -66.50000 169.5000 0.0000000E+00 + -65.50000 169.5000 0.0000000E+00 + -64.50000 169.5000 0.0000000E+00 + -63.50000 169.5000 0.0000000E+00 + -62.50000 169.5000 0.0000000E+00 + -61.50000 169.5000 0.0000000E+00 + -60.50000 169.5000 0.0000000E+00 + -59.50000 169.5000 0.0000000E+00 + -58.50000 169.5000 0.0000000E+00 + -57.50000 169.5000 0.0000000E+00 + -56.50000 169.5000 0.0000000E+00 + -55.50000 169.5000 0.0000000E+00 + -54.50000 169.5000 0.0000000E+00 + -53.50000 169.5000 0.0000000E+00 + -52.50000 169.5000 0.0000000E+00 + -51.50000 169.5000 0.0000000E+00 + -50.50000 169.5000 0.0000000E+00 + -49.50000 169.5000 0.0000000E+00 + -48.50000 169.5000 0.0000000E+00 + -47.50000 169.5000 0.0000000E+00 + -46.50000 169.5000 0.0000000E+00 + -45.50000 169.5000 0.0000000E+00 + -44.50000 169.5000 0.0000000E+00 + -43.50000 169.5000 0.0000000E+00 + -42.50000 169.5000 0.0000000E+00 + -41.50000 169.5000 0.0000000E+00 + -40.50000 169.5000 0.0000000E+00 + -39.50000 169.5000 0.0000000E+00 + -38.50000 169.5000 0.0000000E+00 + -37.50000 169.5000 0.0000000E+00 + -36.50000 169.5000 0.0000000E+00 + -35.50000 169.5000 0.0000000E+00 + -34.50000 169.5000 0.0000000E+00 + -33.50000 169.5000 0.0000000E+00 + -32.50000 169.5000 0.0000000E+00 + -31.50000 169.5000 0.0000000E+00 + -30.50000 169.5000 0.0000000E+00 + -29.50000 169.5000 0.0000000E+00 + -28.50000 169.5000 0.0000000E+00 + -27.50000 169.5000 0.0000000E+00 + -26.50000 169.5000 0.0000000E+00 + -25.50000 169.5000 0.0000000E+00 + -24.50000 169.5000 0.0000000E+00 + -23.50000 169.5000 0.0000000E+00 + -22.50000 169.5000 0.0000000E+00 + -21.50000 169.5000 0.0000000E+00 + -20.50000 169.5000 0.0000000E+00 + -19.50000 169.5000 0.0000000E+00 + -18.50000 169.5000 0.0000000E+00 + -17.50000 169.5000 0.0000000E+00 + -16.50000 169.5000 0.0000000E+00 + -15.50000 169.5000 0.0000000E+00 + -14.50000 169.5000 0.0000000E+00 + -13.50000 169.5000 0.0000000E+00 + -12.50000 169.5000 0.0000000E+00 + -11.50000 169.5000 0.0000000E+00 + -10.50000 169.5000 0.0000000E+00 + -9.500000 169.5000 0.0000000E+00 + -8.500000 169.5000 0.0000000E+00 + -7.500000 169.5000 0.0000000E+00 + -6.500000 169.5000 0.0000000E+00 + -5.500000 169.5000 0.0000000E+00 + -4.500000 169.5000 0.0000000E+00 + -3.500000 169.5000 0.0000000E+00 + -2.500000 169.5000 0.0000000E+00 + -1.500000 169.5000 0.0000000E+00 + -0.5000000 169.5000 0.0000000E+00 + 0.5000000 169.5000 0.0000000E+00 + 1.500000 169.5000 0.0000000E+00 + 2.500000 169.5000 0.0000000E+00 + 3.500000 169.5000 0.0000000E+00 + 4.500000 169.5000 0.0000000E+00 + 5.500000 169.5000 0.0000000E+00 + 6.500000 169.5000 0.0000000E+00 + 7.500000 169.5000 0.0000000E+00 + 8.500000 169.5000 0.0000000E+00 + 9.500000 169.5000 0.0000000E+00 + 10.50000 169.5000 0.0000000E+00 + 11.50000 169.5000 0.0000000E+00 + 12.50000 169.5000 0.0000000E+00 + 13.50000 169.5000 0.0000000E+00 + 14.50000 169.5000 0.0000000E+00 + 15.50000 169.5000 0.0000000E+00 + 16.50000 169.5000 0.0000000E+00 + 17.50000 169.5000 0.0000000E+00 + 18.50000 169.5000 0.0000000E+00 + 19.50000 169.5000 0.0000000E+00 + 20.50000 169.5000 0.0000000E+00 + 21.50000 169.5000 0.0000000E+00 + 22.50000 169.5000 0.0000000E+00 + 23.50000 169.5000 0.0000000E+00 + 24.50000 169.5000 0.0000000E+00 + 25.50000 169.5000 0.0000000E+00 + 26.50000 169.5000 0.0000000E+00 + 27.50000 169.5000 0.0000000E+00 + 28.50000 169.5000 0.0000000E+00 + 29.50000 169.5000 0.0000000E+00 + 30.50000 169.5000 0.0000000E+00 + 31.50000 169.5000 0.0000000E+00 + 32.50000 169.5000 0.0000000E+00 + 33.50000 169.5000 0.0000000E+00 + 34.50000 169.5000 0.0000000E+00 + 35.50000 169.5000 0.0000000E+00 + 36.50000 169.5000 0.0000000E+00 + 37.50000 169.5000 0.0000000E+00 + 38.50000 169.5000 0.0000000E+00 + 39.50000 169.5000 0.0000000E+00 + 40.50000 169.5000 0.0000000E+00 + 41.50000 169.5000 0.0000000E+00 + 42.50000 169.5000 0.0000000E+00 + 43.50000 169.5000 0.0000000E+00 + 44.50000 169.5000 0.0000000E+00 + 45.50000 169.5000 0.0000000E+00 + 46.50000 169.5000 0.0000000E+00 + 47.50000 169.5000 0.0000000E+00 + 48.50000 169.5000 0.0000000E+00 + 49.50000 169.5000 0.0000000E+00 + 50.50000 169.5000 0.0000000E+00 + 51.50000 169.5000 0.0000000E+00 + 52.50000 169.5000 0.0000000E+00 + 53.50000 169.5000 0.0000000E+00 + 54.50000 169.5000 0.0000000E+00 + 55.50000 169.5000 0.0000000E+00 + 56.50000 169.5000 0.0000000E+00 + 57.50000 169.5000 0.0000000E+00 + 58.50000 169.5000 0.0000000E+00 + 59.50000 169.5000 0.0000000E+00 + 60.50000 169.5000 0.0000000E+00 + 61.50000 169.5000 0.0000000E+00 + 62.50000 169.5000 0.0000000E+00 + 63.50000 169.5000 0.0000000E+00 + 64.50000 169.5000 0.0000000E+00 + 65.50000 169.5000 0.0000000E+00 + 66.50000 169.5000 0.0000000E+00 + 67.50000 169.5000 0.0000000E+00 + 68.50000 169.5000 0.0000000E+00 + 69.50000 169.5000 0.0000000E+00 + 70.50000 169.5000 0.0000000E+00 + 71.50000 169.5000 0.0000000E+00 + 72.50000 169.5000 0.0000000E+00 + 73.50000 169.5000 0.0000000E+00 + 74.50000 169.5000 0.0000000E+00 + 75.50000 169.5000 0.0000000E+00 + 76.50000 169.5000 0.0000000E+00 + 77.50000 169.5000 0.0000000E+00 + 78.50000 169.5000 0.0000000E+00 + 79.50000 169.5000 0.0000000E+00 + 80.50000 169.5000 0.0000000E+00 + 81.50000 169.5000 0.0000000E+00 + 82.50000 169.5000 0.0000000E+00 + 83.50000 169.5000 0.0000000E+00 + 84.50000 169.5000 0.0000000E+00 + 85.50000 169.5000 0.0000000E+00 + 86.50000 169.5000 0.0000000E+00 + 87.50000 169.5000 0.0000000E+00 + 88.50000 169.5000 0.0000000E+00 + 89.50000 169.5000 0.0000000E+00 + -89.50000 170.5000 0.0000000E+00 + -88.50000 170.5000 0.0000000E+00 + -87.50000 170.5000 0.0000000E+00 + -86.50000 170.5000 0.0000000E+00 + -85.50000 170.5000 0.0000000E+00 + -84.50000 170.5000 0.0000000E+00 + -83.50000 170.5000 0.0000000E+00 + -82.50000 170.5000 0.0000000E+00 + -81.50000 170.5000 0.0000000E+00 + -80.50000 170.5000 0.0000000E+00 + -79.50000 170.5000 0.0000000E+00 + -78.50000 170.5000 0.0000000E+00 + -77.50000 170.5000 0.0000000E+00 + -76.50000 170.5000 0.0000000E+00 + -75.50000 170.5000 0.0000000E+00 + -74.50000 170.5000 0.0000000E+00 + -73.50000 170.5000 0.0000000E+00 + -72.50000 170.5000 0.0000000E+00 + -71.50000 170.5000 0.0000000E+00 + -70.50000 170.5000 0.0000000E+00 + -69.50000 170.5000 0.0000000E+00 + -68.50000 170.5000 0.0000000E+00 + -67.50000 170.5000 0.0000000E+00 + -66.50000 170.5000 0.0000000E+00 + -65.50000 170.5000 0.0000000E+00 + -64.50000 170.5000 0.0000000E+00 + -63.50000 170.5000 0.0000000E+00 + -62.50000 170.5000 0.0000000E+00 + -61.50000 170.5000 0.0000000E+00 + -60.50000 170.5000 0.0000000E+00 + -59.50000 170.5000 0.0000000E+00 + -58.50000 170.5000 0.0000000E+00 + -57.50000 170.5000 0.0000000E+00 + -56.50000 170.5000 0.0000000E+00 + -55.50000 170.5000 0.0000000E+00 + -54.50000 170.5000 0.0000000E+00 + -53.50000 170.5000 0.0000000E+00 + -52.50000 170.5000 0.0000000E+00 + -51.50000 170.5000 0.0000000E+00 + -50.50000 170.5000 0.0000000E+00 + -49.50000 170.5000 0.0000000E+00 + -48.50000 170.5000 0.0000000E+00 + -47.50000 170.5000 0.0000000E+00 + -46.50000 170.5000 0.0000000E+00 + -45.50000 170.5000 0.0000000E+00 + -44.50000 170.5000 0.0000000E+00 + -43.50000 170.5000 0.0000000E+00 + -42.50000 170.5000 0.0000000E+00 + -41.50000 170.5000 0.0000000E+00 + -40.50000 170.5000 0.0000000E+00 + -39.50000 170.5000 0.0000000E+00 + -38.50000 170.5000 0.0000000E+00 + -37.50000 170.5000 0.0000000E+00 + -36.50000 170.5000 0.0000000E+00 + -35.50000 170.5000 0.0000000E+00 + -34.50000 170.5000 0.0000000E+00 + -33.50000 170.5000 0.0000000E+00 + -32.50000 170.5000 0.0000000E+00 + -31.50000 170.5000 0.0000000E+00 + -30.50000 170.5000 0.0000000E+00 + -29.50000 170.5000 0.0000000E+00 + -28.50000 170.5000 0.0000000E+00 + -27.50000 170.5000 0.0000000E+00 + -26.50000 170.5000 0.0000000E+00 + -25.50000 170.5000 0.0000000E+00 + -24.50000 170.5000 0.0000000E+00 + -23.50000 170.5000 0.0000000E+00 + -22.50000 170.5000 0.0000000E+00 + -21.50000 170.5000 0.0000000E+00 + -20.50000 170.5000 0.0000000E+00 + -19.50000 170.5000 0.0000000E+00 + -18.50000 170.5000 0.0000000E+00 + -17.50000 170.5000 0.0000000E+00 + -16.50000 170.5000 0.0000000E+00 + -15.50000 170.5000 0.0000000E+00 + -14.50000 170.5000 0.0000000E+00 + -13.50000 170.5000 0.0000000E+00 + -12.50000 170.5000 0.0000000E+00 + -11.50000 170.5000 0.0000000E+00 + -10.50000 170.5000 0.0000000E+00 + -9.500000 170.5000 0.0000000E+00 + -8.500000 170.5000 0.0000000E+00 + -7.500000 170.5000 0.0000000E+00 + -6.500000 170.5000 0.0000000E+00 + -5.500000 170.5000 0.0000000E+00 + -4.500000 170.5000 0.0000000E+00 + -3.500000 170.5000 0.0000000E+00 + -2.500000 170.5000 0.0000000E+00 + -1.500000 170.5000 0.0000000E+00 + -0.5000000 170.5000 0.0000000E+00 + 0.5000000 170.5000 0.0000000E+00 + 1.500000 170.5000 0.0000000E+00 + 2.500000 170.5000 0.0000000E+00 + 3.500000 170.5000 0.0000000E+00 + 4.500000 170.5000 0.0000000E+00 + 5.500000 170.5000 0.0000000E+00 + 6.500000 170.5000 0.0000000E+00 + 7.500000 170.5000 0.0000000E+00 + 8.500000 170.5000 0.0000000E+00 + 9.500000 170.5000 0.0000000E+00 + 10.50000 170.5000 0.0000000E+00 + 11.50000 170.5000 0.0000000E+00 + 12.50000 170.5000 0.0000000E+00 + 13.50000 170.5000 0.0000000E+00 + 14.50000 170.5000 0.0000000E+00 + 15.50000 170.5000 0.0000000E+00 + 16.50000 170.5000 0.0000000E+00 + 17.50000 170.5000 0.0000000E+00 + 18.50000 170.5000 0.0000000E+00 + 19.50000 170.5000 0.0000000E+00 + 20.50000 170.5000 0.0000000E+00 + 21.50000 170.5000 0.0000000E+00 + 22.50000 170.5000 0.0000000E+00 + 23.50000 170.5000 0.0000000E+00 + 24.50000 170.5000 0.0000000E+00 + 25.50000 170.5000 0.0000000E+00 + 26.50000 170.5000 0.0000000E+00 + 27.50000 170.5000 0.0000000E+00 + 28.50000 170.5000 0.0000000E+00 + 29.50000 170.5000 0.0000000E+00 + 30.50000 170.5000 0.0000000E+00 + 31.50000 170.5000 0.0000000E+00 + 32.50000 170.5000 0.0000000E+00 + 33.50000 170.5000 0.0000000E+00 + 34.50000 170.5000 0.0000000E+00 + 35.50000 170.5000 0.0000000E+00 + 36.50000 170.5000 0.0000000E+00 + 37.50000 170.5000 0.0000000E+00 + 38.50000 170.5000 0.0000000E+00 + 39.50000 170.5000 0.0000000E+00 + 40.50000 170.5000 0.0000000E+00 + 41.50000 170.5000 0.0000000E+00 + 42.50000 170.5000 0.0000000E+00 + 43.50000 170.5000 0.0000000E+00 + 44.50000 170.5000 0.0000000E+00 + 45.50000 170.5000 0.0000000E+00 + 46.50000 170.5000 0.0000000E+00 + 47.50000 170.5000 0.0000000E+00 + 48.50000 170.5000 0.0000000E+00 + 49.50000 170.5000 0.0000000E+00 + 50.50000 170.5000 0.0000000E+00 + 51.50000 170.5000 0.0000000E+00 + 52.50000 170.5000 0.0000000E+00 + 53.50000 170.5000 0.0000000E+00 + 54.50000 170.5000 0.0000000E+00 + 55.50000 170.5000 0.0000000E+00 + 56.50000 170.5000 0.0000000E+00 + 57.50000 170.5000 0.0000000E+00 + 58.50000 170.5000 0.0000000E+00 + 59.50000 170.5000 0.0000000E+00 + 60.50000 170.5000 0.0000000E+00 + 61.50000 170.5000 0.0000000E+00 + 62.50000 170.5000 0.0000000E+00 + 63.50000 170.5000 0.0000000E+00 + 64.50000 170.5000 0.0000000E+00 + 65.50000 170.5000 0.0000000E+00 + 66.50000 170.5000 0.0000000E+00 + 67.50000 170.5000 0.0000000E+00 + 68.50000 170.5000 0.0000000E+00 + 69.50000 170.5000 0.0000000E+00 + 70.50000 170.5000 0.0000000E+00 + 71.50000 170.5000 0.0000000E+00 + 72.50000 170.5000 0.0000000E+00 + 73.50000 170.5000 0.0000000E+00 + 74.50000 170.5000 0.0000000E+00 + 75.50000 170.5000 0.0000000E+00 + 76.50000 170.5000 0.0000000E+00 + 77.50000 170.5000 0.0000000E+00 + 78.50000 170.5000 0.0000000E+00 + 79.50000 170.5000 0.0000000E+00 + 80.50000 170.5000 0.0000000E+00 + 81.50000 170.5000 0.0000000E+00 + 82.50000 170.5000 0.0000000E+00 + 83.50000 170.5000 0.0000000E+00 + 84.50000 170.5000 0.0000000E+00 + 85.50000 170.5000 0.0000000E+00 + 86.50000 170.5000 0.0000000E+00 + 87.50000 170.5000 0.0000000E+00 + 88.50000 170.5000 0.0000000E+00 + 89.50000 170.5000 0.0000000E+00 + -89.50000 171.5000 0.0000000E+00 + -88.50000 171.5000 0.0000000E+00 + -87.50000 171.5000 0.0000000E+00 + -86.50000 171.5000 0.0000000E+00 + -85.50000 171.5000 0.0000000E+00 + -84.50000 171.5000 0.0000000E+00 + -83.50000 171.5000 0.0000000E+00 + -82.50000 171.5000 0.0000000E+00 + -81.50000 171.5000 0.0000000E+00 + -80.50000 171.5000 0.0000000E+00 + -79.50000 171.5000 0.0000000E+00 + -78.50000 171.5000 0.0000000E+00 + -77.50000 171.5000 0.0000000E+00 + -76.50000 171.5000 0.0000000E+00 + -75.50000 171.5000 0.0000000E+00 + -74.50000 171.5000 0.0000000E+00 + -73.50000 171.5000 0.0000000E+00 + -72.50000 171.5000 0.0000000E+00 + -71.50000 171.5000 0.0000000E+00 + -70.50000 171.5000 0.0000000E+00 + -69.50000 171.5000 0.0000000E+00 + -68.50000 171.5000 0.0000000E+00 + -67.50000 171.5000 0.0000000E+00 + -66.50000 171.5000 0.0000000E+00 + -65.50000 171.5000 0.0000000E+00 + -64.50000 171.5000 0.0000000E+00 + -63.50000 171.5000 0.0000000E+00 + -62.50000 171.5000 0.0000000E+00 + -61.50000 171.5000 0.0000000E+00 + -60.50000 171.5000 0.0000000E+00 + -59.50000 171.5000 0.0000000E+00 + -58.50000 171.5000 0.0000000E+00 + -57.50000 171.5000 0.0000000E+00 + -56.50000 171.5000 0.0000000E+00 + -55.50000 171.5000 0.0000000E+00 + -54.50000 171.5000 0.0000000E+00 + -53.50000 171.5000 0.0000000E+00 + -52.50000 171.5000 0.0000000E+00 + -51.50000 171.5000 0.0000000E+00 + -50.50000 171.5000 0.0000000E+00 + -49.50000 171.5000 0.0000000E+00 + -48.50000 171.5000 0.0000000E+00 + -47.50000 171.5000 0.0000000E+00 + -46.50000 171.5000 0.0000000E+00 + -45.50000 171.5000 0.0000000E+00 + -44.50000 171.5000 0.0000000E+00 + -43.50000 171.5000 0.0000000E+00 + -42.50000 171.5000 0.0000000E+00 + -41.50000 171.5000 0.0000000E+00 + -40.50000 171.5000 0.0000000E+00 + -39.50000 171.5000 0.0000000E+00 + -38.50000 171.5000 0.0000000E+00 + -37.50000 171.5000 0.0000000E+00 + -36.50000 171.5000 0.0000000E+00 + -35.50000 171.5000 0.0000000E+00 + -34.50000 171.5000 0.0000000E+00 + -33.50000 171.5000 0.0000000E+00 + -32.50000 171.5000 0.0000000E+00 + -31.50000 171.5000 0.0000000E+00 + -30.50000 171.5000 0.0000000E+00 + -29.50000 171.5000 0.0000000E+00 + -28.50000 171.5000 0.0000000E+00 + -27.50000 171.5000 0.0000000E+00 + -26.50000 171.5000 0.0000000E+00 + -25.50000 171.5000 0.0000000E+00 + -24.50000 171.5000 0.0000000E+00 + -23.50000 171.5000 0.0000000E+00 + -22.50000 171.5000 0.0000000E+00 + -21.50000 171.5000 0.0000000E+00 + -20.50000 171.5000 0.0000000E+00 + -19.50000 171.5000 0.0000000E+00 + -18.50000 171.5000 0.0000000E+00 + -17.50000 171.5000 0.0000000E+00 + -16.50000 171.5000 0.0000000E+00 + -15.50000 171.5000 0.0000000E+00 + -14.50000 171.5000 0.0000000E+00 + -13.50000 171.5000 0.0000000E+00 + -12.50000 171.5000 0.0000000E+00 + -11.50000 171.5000 0.0000000E+00 + -10.50000 171.5000 0.0000000E+00 + -9.500000 171.5000 0.0000000E+00 + -8.500000 171.5000 0.0000000E+00 + -7.500000 171.5000 0.0000000E+00 + -6.500000 171.5000 0.0000000E+00 + -5.500000 171.5000 0.0000000E+00 + -4.500000 171.5000 0.0000000E+00 + -3.500000 171.5000 0.0000000E+00 + -2.500000 171.5000 0.0000000E+00 + -1.500000 171.5000 0.0000000E+00 + -0.5000000 171.5000 0.0000000E+00 + 0.5000000 171.5000 0.0000000E+00 + 1.500000 171.5000 0.0000000E+00 + 2.500000 171.5000 0.0000000E+00 + 3.500000 171.5000 0.0000000E+00 + 4.500000 171.5000 0.0000000E+00 + 5.500000 171.5000 0.0000000E+00 + 6.500000 171.5000 0.0000000E+00 + 7.500000 171.5000 0.0000000E+00 + 8.500000 171.5000 0.0000000E+00 + 9.500000 171.5000 0.0000000E+00 + 10.50000 171.5000 0.0000000E+00 + 11.50000 171.5000 0.0000000E+00 + 12.50000 171.5000 0.0000000E+00 + 13.50000 171.5000 0.0000000E+00 + 14.50000 171.5000 0.0000000E+00 + 15.50000 171.5000 0.0000000E+00 + 16.50000 171.5000 0.0000000E+00 + 17.50000 171.5000 0.0000000E+00 + 18.50000 171.5000 0.0000000E+00 + 19.50000 171.5000 0.0000000E+00 + 20.50000 171.5000 0.0000000E+00 + 21.50000 171.5000 0.0000000E+00 + 22.50000 171.5000 0.0000000E+00 + 23.50000 171.5000 0.0000000E+00 + 24.50000 171.5000 0.0000000E+00 + 25.50000 171.5000 0.0000000E+00 + 26.50000 171.5000 0.0000000E+00 + 27.50000 171.5000 0.0000000E+00 + 28.50000 171.5000 0.0000000E+00 + 29.50000 171.5000 0.0000000E+00 + 30.50000 171.5000 0.0000000E+00 + 31.50000 171.5000 0.0000000E+00 + 32.50000 171.5000 0.0000000E+00 + 33.50000 171.5000 0.0000000E+00 + 34.50000 171.5000 0.0000000E+00 + 35.50000 171.5000 0.0000000E+00 + 36.50000 171.5000 0.0000000E+00 + 37.50000 171.5000 0.0000000E+00 + 38.50000 171.5000 0.0000000E+00 + 39.50000 171.5000 0.0000000E+00 + 40.50000 171.5000 0.0000000E+00 + 41.50000 171.5000 0.0000000E+00 + 42.50000 171.5000 0.0000000E+00 + 43.50000 171.5000 0.0000000E+00 + 44.50000 171.5000 0.0000000E+00 + 45.50000 171.5000 0.0000000E+00 + 46.50000 171.5000 0.0000000E+00 + 47.50000 171.5000 0.0000000E+00 + 48.50000 171.5000 0.0000000E+00 + 49.50000 171.5000 0.0000000E+00 + 50.50000 171.5000 0.0000000E+00 + 51.50000 171.5000 0.0000000E+00 + 52.50000 171.5000 0.0000000E+00 + 53.50000 171.5000 0.0000000E+00 + 54.50000 171.5000 0.0000000E+00 + 55.50000 171.5000 0.0000000E+00 + 56.50000 171.5000 0.0000000E+00 + 57.50000 171.5000 0.0000000E+00 + 58.50000 171.5000 0.0000000E+00 + 59.50000 171.5000 0.0000000E+00 + 60.50000 171.5000 0.0000000E+00 + 61.50000 171.5000 0.0000000E+00 + 62.50000 171.5000 0.0000000E+00 + 63.50000 171.5000 0.0000000E+00 + 64.50000 171.5000 0.0000000E+00 + 65.50000 171.5000 0.0000000E+00 + 66.50000 171.5000 0.0000000E+00 + 67.50000 171.5000 0.0000000E+00 + 68.50000 171.5000 0.0000000E+00 + 69.50000 171.5000 0.0000000E+00 + 70.50000 171.5000 0.0000000E+00 + 71.50000 171.5000 0.0000000E+00 + 72.50000 171.5000 0.0000000E+00 + 73.50000 171.5000 0.0000000E+00 + 74.50000 171.5000 0.0000000E+00 + 75.50000 171.5000 0.0000000E+00 + 76.50000 171.5000 0.0000000E+00 + 77.50000 171.5000 0.0000000E+00 + 78.50000 171.5000 0.0000000E+00 + 79.50000 171.5000 0.0000000E+00 + 80.50000 171.5000 0.0000000E+00 + 81.50000 171.5000 0.0000000E+00 + 82.50000 171.5000 0.0000000E+00 + 83.50000 171.5000 0.0000000E+00 + 84.50000 171.5000 0.0000000E+00 + 85.50000 171.5000 0.0000000E+00 + 86.50000 171.5000 0.0000000E+00 + 87.50000 171.5000 0.0000000E+00 + 88.50000 171.5000 0.0000000E+00 + 89.50000 171.5000 0.0000000E+00 + -89.50000 172.5000 0.0000000E+00 + -88.50000 172.5000 0.0000000E+00 + -87.50000 172.5000 0.0000000E+00 + -86.50000 172.5000 0.0000000E+00 + -85.50000 172.5000 0.0000000E+00 + -84.50000 172.5000 0.0000000E+00 + -83.50000 172.5000 0.0000000E+00 + -82.50000 172.5000 0.0000000E+00 + -81.50000 172.5000 0.0000000E+00 + -80.50000 172.5000 0.0000000E+00 + -79.50000 172.5000 0.0000000E+00 + -78.50000 172.5000 0.0000000E+00 + -77.50000 172.5000 0.0000000E+00 + -76.50000 172.5000 0.0000000E+00 + -75.50000 172.5000 0.0000000E+00 + -74.50000 172.5000 0.0000000E+00 + -73.50000 172.5000 0.0000000E+00 + -72.50000 172.5000 0.0000000E+00 + -71.50000 172.5000 0.0000000E+00 + -70.50000 172.5000 0.0000000E+00 + -69.50000 172.5000 0.0000000E+00 + -68.50000 172.5000 0.0000000E+00 + -67.50000 172.5000 0.0000000E+00 + -66.50000 172.5000 0.0000000E+00 + -65.50000 172.5000 0.0000000E+00 + -64.50000 172.5000 0.0000000E+00 + -63.50000 172.5000 0.0000000E+00 + -62.50000 172.5000 0.0000000E+00 + -61.50000 172.5000 0.0000000E+00 + -60.50000 172.5000 0.0000000E+00 + -59.50000 172.5000 0.0000000E+00 + -58.50000 172.5000 0.0000000E+00 + -57.50000 172.5000 0.0000000E+00 + -56.50000 172.5000 0.0000000E+00 + -55.50000 172.5000 0.0000000E+00 + -54.50000 172.5000 0.0000000E+00 + -53.50000 172.5000 0.0000000E+00 + -52.50000 172.5000 0.0000000E+00 + -51.50000 172.5000 0.0000000E+00 + -50.50000 172.5000 0.0000000E+00 + -49.50000 172.5000 0.0000000E+00 + -48.50000 172.5000 0.0000000E+00 + -47.50000 172.5000 0.0000000E+00 + -46.50000 172.5000 0.0000000E+00 + -45.50000 172.5000 0.0000000E+00 + -44.50000 172.5000 0.0000000E+00 + -43.50000 172.5000 0.0000000E+00 + -42.50000 172.5000 0.0000000E+00 + -41.50000 172.5000 0.0000000E+00 + -40.50000 172.5000 0.0000000E+00 + -39.50000 172.5000 0.0000000E+00 + -38.50000 172.5000 0.0000000E+00 + -37.50000 172.5000 0.0000000E+00 + -36.50000 172.5000 0.0000000E+00 + -35.50000 172.5000 0.0000000E+00 + -34.50000 172.5000 0.0000000E+00 + -33.50000 172.5000 0.0000000E+00 + -32.50000 172.5000 0.0000000E+00 + -31.50000 172.5000 0.0000000E+00 + -30.50000 172.5000 0.0000000E+00 + -29.50000 172.5000 0.0000000E+00 + -28.50000 172.5000 0.0000000E+00 + -27.50000 172.5000 0.0000000E+00 + -26.50000 172.5000 0.0000000E+00 + -25.50000 172.5000 0.0000000E+00 + -24.50000 172.5000 0.0000000E+00 + -23.50000 172.5000 0.0000000E+00 + -22.50000 172.5000 0.0000000E+00 + -21.50000 172.5000 0.0000000E+00 + -20.50000 172.5000 0.0000000E+00 + -19.50000 172.5000 0.0000000E+00 + -18.50000 172.5000 0.0000000E+00 + -17.50000 172.5000 0.0000000E+00 + -16.50000 172.5000 0.0000000E+00 + -15.50000 172.5000 0.0000000E+00 + -14.50000 172.5000 0.0000000E+00 + -13.50000 172.5000 0.0000000E+00 + -12.50000 172.5000 0.0000000E+00 + -11.50000 172.5000 0.0000000E+00 + -10.50000 172.5000 0.0000000E+00 + -9.500000 172.5000 0.0000000E+00 + -8.500000 172.5000 0.0000000E+00 + -7.500000 172.5000 0.0000000E+00 + -6.500000 172.5000 0.0000000E+00 + -5.500000 172.5000 0.0000000E+00 + -4.500000 172.5000 0.0000000E+00 + -3.500000 172.5000 0.0000000E+00 + -2.500000 172.5000 0.0000000E+00 + -1.500000 172.5000 0.0000000E+00 + -0.5000000 172.5000 0.0000000E+00 + 0.5000000 172.5000 0.0000000E+00 + 1.500000 172.5000 0.0000000E+00 + 2.500000 172.5000 0.0000000E+00 + 3.500000 172.5000 0.0000000E+00 + 4.500000 172.5000 0.0000000E+00 + 5.500000 172.5000 0.0000000E+00 + 6.500000 172.5000 0.0000000E+00 + 7.500000 172.5000 0.0000000E+00 + 8.500000 172.5000 0.0000000E+00 + 9.500000 172.5000 0.0000000E+00 + 10.50000 172.5000 0.0000000E+00 + 11.50000 172.5000 0.0000000E+00 + 12.50000 172.5000 0.0000000E+00 + 13.50000 172.5000 0.0000000E+00 + 14.50000 172.5000 0.0000000E+00 + 15.50000 172.5000 0.0000000E+00 + 16.50000 172.5000 0.0000000E+00 + 17.50000 172.5000 0.0000000E+00 + 18.50000 172.5000 0.0000000E+00 + 19.50000 172.5000 0.0000000E+00 + 20.50000 172.5000 0.0000000E+00 + 21.50000 172.5000 0.0000000E+00 + 22.50000 172.5000 0.0000000E+00 + 23.50000 172.5000 0.0000000E+00 + 24.50000 172.5000 0.0000000E+00 + 25.50000 172.5000 0.0000000E+00 + 26.50000 172.5000 0.0000000E+00 + 27.50000 172.5000 0.0000000E+00 + 28.50000 172.5000 0.0000000E+00 + 29.50000 172.5000 0.0000000E+00 + 30.50000 172.5000 0.0000000E+00 + 31.50000 172.5000 0.0000000E+00 + 32.50000 172.5000 0.0000000E+00 + 33.50000 172.5000 0.0000000E+00 + 34.50000 172.5000 0.0000000E+00 + 35.50000 172.5000 0.0000000E+00 + 36.50000 172.5000 0.0000000E+00 + 37.50000 172.5000 0.0000000E+00 + 38.50000 172.5000 0.0000000E+00 + 39.50000 172.5000 0.0000000E+00 + 40.50000 172.5000 0.0000000E+00 + 41.50000 172.5000 0.0000000E+00 + 42.50000 172.5000 0.0000000E+00 + 43.50000 172.5000 0.0000000E+00 + 44.50000 172.5000 0.0000000E+00 + 45.50000 172.5000 0.0000000E+00 + 46.50000 172.5000 0.0000000E+00 + 47.50000 172.5000 0.0000000E+00 + 48.50000 172.5000 0.0000000E+00 + 49.50000 172.5000 0.0000000E+00 + 50.50000 172.5000 0.0000000E+00 + 51.50000 172.5000 0.0000000E+00 + 52.50000 172.5000 0.0000000E+00 + 53.50000 172.5000 0.0000000E+00 + 54.50000 172.5000 0.0000000E+00 + 55.50000 172.5000 0.0000000E+00 + 56.50000 172.5000 0.0000000E+00 + 57.50000 172.5000 0.0000000E+00 + 58.50000 172.5000 0.0000000E+00 + 59.50000 172.5000 0.0000000E+00 + 60.50000 172.5000 0.0000000E+00 + 61.50000 172.5000 0.0000000E+00 + 62.50000 172.5000 0.0000000E+00 + 63.50000 172.5000 0.0000000E+00 + 64.50000 172.5000 0.0000000E+00 + 65.50000 172.5000 0.0000000E+00 + 66.50000 172.5000 0.0000000E+00 + 67.50000 172.5000 0.0000000E+00 + 68.50000 172.5000 0.0000000E+00 + 69.50000 172.5000 0.0000000E+00 + 70.50000 172.5000 0.0000000E+00 + 71.50000 172.5000 0.0000000E+00 + 72.50000 172.5000 0.0000000E+00 + 73.50000 172.5000 0.0000000E+00 + 74.50000 172.5000 0.0000000E+00 + 75.50000 172.5000 0.0000000E+00 + 76.50000 172.5000 0.0000000E+00 + 77.50000 172.5000 0.0000000E+00 + 78.50000 172.5000 0.0000000E+00 + 79.50000 172.5000 0.0000000E+00 + 80.50000 172.5000 0.0000000E+00 + 81.50000 172.5000 0.0000000E+00 + 82.50000 172.5000 0.0000000E+00 + 83.50000 172.5000 0.0000000E+00 + 84.50000 172.5000 0.0000000E+00 + 85.50000 172.5000 0.0000000E+00 + 86.50000 172.5000 0.0000000E+00 + 87.50000 172.5000 0.0000000E+00 + 88.50000 172.5000 0.0000000E+00 + 89.50000 172.5000 0.0000000E+00 + -89.50000 173.5000 0.0000000E+00 + -88.50000 173.5000 0.0000000E+00 + -87.50000 173.5000 0.0000000E+00 + -86.50000 173.5000 0.0000000E+00 + -85.50000 173.5000 0.0000000E+00 + -84.50000 173.5000 0.0000000E+00 + -83.50000 173.5000 0.0000000E+00 + -82.50000 173.5000 0.0000000E+00 + -81.50000 173.5000 0.0000000E+00 + -80.50000 173.5000 0.0000000E+00 + -79.50000 173.5000 0.0000000E+00 + -78.50000 173.5000 0.0000000E+00 + -77.50000 173.5000 0.0000000E+00 + -76.50000 173.5000 0.0000000E+00 + -75.50000 173.5000 0.0000000E+00 + -74.50000 173.5000 0.0000000E+00 + -73.50000 173.5000 0.0000000E+00 + -72.50000 173.5000 0.0000000E+00 + -71.50000 173.5000 0.0000000E+00 + -70.50000 173.5000 0.0000000E+00 + -69.50000 173.5000 0.0000000E+00 + -68.50000 173.5000 0.0000000E+00 + -67.50000 173.5000 0.0000000E+00 + -66.50000 173.5000 0.0000000E+00 + -65.50000 173.5000 0.0000000E+00 + -64.50000 173.5000 0.0000000E+00 + -63.50000 173.5000 0.0000000E+00 + -62.50000 173.5000 0.0000000E+00 + -61.50000 173.5000 0.0000000E+00 + -60.50000 173.5000 0.0000000E+00 + -59.50000 173.5000 0.0000000E+00 + -58.50000 173.5000 0.0000000E+00 + -57.50000 173.5000 0.0000000E+00 + -56.50000 173.5000 0.0000000E+00 + -55.50000 173.5000 0.0000000E+00 + -54.50000 173.5000 0.0000000E+00 + -53.50000 173.5000 0.0000000E+00 + -52.50000 173.5000 0.0000000E+00 + -51.50000 173.5000 0.0000000E+00 + -50.50000 173.5000 0.0000000E+00 + -49.50000 173.5000 0.0000000E+00 + -48.50000 173.5000 0.0000000E+00 + -47.50000 173.5000 0.0000000E+00 + -46.50000 173.5000 0.0000000E+00 + -45.50000 173.5000 0.0000000E+00 + -44.50000 173.5000 0.0000000E+00 + -43.50000 173.5000 0.0000000E+00 + -42.50000 173.5000 0.0000000E+00 + -41.50000 173.5000 0.0000000E+00 + -40.50000 173.5000 0.0000000E+00 + -39.50000 173.5000 0.0000000E+00 + -38.50000 173.5000 0.0000000E+00 + -37.50000 173.5000 0.0000000E+00 + -36.50000 173.5000 0.0000000E+00 + -35.50000 173.5000 0.0000000E+00 + -34.50000 173.5000 0.0000000E+00 + -33.50000 173.5000 0.0000000E+00 + -32.50000 173.5000 0.0000000E+00 + -31.50000 173.5000 0.0000000E+00 + -30.50000 173.5000 0.0000000E+00 + -29.50000 173.5000 0.0000000E+00 + -28.50000 173.5000 0.0000000E+00 + -27.50000 173.5000 0.0000000E+00 + -26.50000 173.5000 0.0000000E+00 + -25.50000 173.5000 0.0000000E+00 + -24.50000 173.5000 0.0000000E+00 + -23.50000 173.5000 0.0000000E+00 + -22.50000 173.5000 0.0000000E+00 + -21.50000 173.5000 0.0000000E+00 + -20.50000 173.5000 0.0000000E+00 + -19.50000 173.5000 0.0000000E+00 + -18.50000 173.5000 0.0000000E+00 + -17.50000 173.5000 0.0000000E+00 + -16.50000 173.5000 0.0000000E+00 + -15.50000 173.5000 0.0000000E+00 + -14.50000 173.5000 0.0000000E+00 + -13.50000 173.5000 0.0000000E+00 + -12.50000 173.5000 0.0000000E+00 + -11.50000 173.5000 0.0000000E+00 + -10.50000 173.5000 0.0000000E+00 + -9.500000 173.5000 0.0000000E+00 + -8.500000 173.5000 0.0000000E+00 + -7.500000 173.5000 0.0000000E+00 + -6.500000 173.5000 0.0000000E+00 + -5.500000 173.5000 0.0000000E+00 + -4.500000 173.5000 0.0000000E+00 + -3.500000 173.5000 0.0000000E+00 + -2.500000 173.5000 0.0000000E+00 + -1.500000 173.5000 0.0000000E+00 + -0.5000000 173.5000 0.0000000E+00 + 0.5000000 173.5000 0.0000000E+00 + 1.500000 173.5000 0.0000000E+00 + 2.500000 173.5000 0.0000000E+00 + 3.500000 173.5000 0.0000000E+00 + 4.500000 173.5000 0.0000000E+00 + 5.500000 173.5000 0.0000000E+00 + 6.500000 173.5000 0.0000000E+00 + 7.500000 173.5000 0.0000000E+00 + 8.500000 173.5000 0.0000000E+00 + 9.500000 173.5000 0.0000000E+00 + 10.50000 173.5000 0.0000000E+00 + 11.50000 173.5000 0.0000000E+00 + 12.50000 173.5000 0.0000000E+00 + 13.50000 173.5000 0.0000000E+00 + 14.50000 173.5000 0.0000000E+00 + 15.50000 173.5000 0.0000000E+00 + 16.50000 173.5000 0.0000000E+00 + 17.50000 173.5000 0.0000000E+00 + 18.50000 173.5000 0.0000000E+00 + 19.50000 173.5000 0.0000000E+00 + 20.50000 173.5000 0.0000000E+00 + 21.50000 173.5000 0.0000000E+00 + 22.50000 173.5000 0.0000000E+00 + 23.50000 173.5000 0.0000000E+00 + 24.50000 173.5000 0.0000000E+00 + 25.50000 173.5000 0.0000000E+00 + 26.50000 173.5000 0.0000000E+00 + 27.50000 173.5000 0.0000000E+00 + 28.50000 173.5000 0.0000000E+00 + 29.50000 173.5000 0.0000000E+00 + 30.50000 173.5000 0.0000000E+00 + 31.50000 173.5000 0.0000000E+00 + 32.50000 173.5000 0.0000000E+00 + 33.50000 173.5000 0.0000000E+00 + 34.50000 173.5000 0.0000000E+00 + 35.50000 173.5000 0.0000000E+00 + 36.50000 173.5000 0.0000000E+00 + 37.50000 173.5000 0.0000000E+00 + 38.50000 173.5000 0.0000000E+00 + 39.50000 173.5000 0.0000000E+00 + 40.50000 173.5000 0.0000000E+00 + 41.50000 173.5000 0.0000000E+00 + 42.50000 173.5000 0.0000000E+00 + 43.50000 173.5000 0.0000000E+00 + 44.50000 173.5000 0.0000000E+00 + 45.50000 173.5000 0.0000000E+00 + 46.50000 173.5000 0.0000000E+00 + 47.50000 173.5000 0.0000000E+00 + 48.50000 173.5000 0.0000000E+00 + 49.50000 173.5000 0.0000000E+00 + 50.50000 173.5000 0.0000000E+00 + 51.50000 173.5000 0.0000000E+00 + 52.50000 173.5000 0.0000000E+00 + 53.50000 173.5000 0.0000000E+00 + 54.50000 173.5000 0.0000000E+00 + 55.50000 173.5000 0.0000000E+00 + 56.50000 173.5000 0.0000000E+00 + 57.50000 173.5000 0.0000000E+00 + 58.50000 173.5000 0.0000000E+00 + 59.50000 173.5000 0.0000000E+00 + 60.50000 173.5000 0.0000000E+00 + 61.50000 173.5000 0.0000000E+00 + 62.50000 173.5000 0.0000000E+00 + 63.50000 173.5000 0.0000000E+00 + 64.50000 173.5000 0.0000000E+00 + 65.50000 173.5000 0.0000000E+00 + 66.50000 173.5000 0.0000000E+00 + 67.50000 173.5000 0.0000000E+00 + 68.50000 173.5000 0.0000000E+00 + 69.50000 173.5000 0.0000000E+00 + 70.50000 173.5000 0.0000000E+00 + 71.50000 173.5000 0.0000000E+00 + 72.50000 173.5000 0.0000000E+00 + 73.50000 173.5000 0.0000000E+00 + 74.50000 173.5000 0.0000000E+00 + 75.50000 173.5000 0.0000000E+00 + 76.50000 173.5000 0.0000000E+00 + 77.50000 173.5000 0.0000000E+00 + 78.50000 173.5000 0.0000000E+00 + 79.50000 173.5000 0.0000000E+00 + 80.50000 173.5000 0.0000000E+00 + 81.50000 173.5000 0.0000000E+00 + 82.50000 173.5000 0.0000000E+00 + 83.50000 173.5000 0.0000000E+00 + 84.50000 173.5000 0.0000000E+00 + 85.50000 173.5000 0.0000000E+00 + 86.50000 173.5000 0.0000000E+00 + 87.50000 173.5000 0.0000000E+00 + 88.50000 173.5000 0.0000000E+00 + 89.50000 173.5000 0.0000000E+00 + -89.50000 174.5000 0.0000000E+00 + -88.50000 174.5000 0.0000000E+00 + -87.50000 174.5000 0.0000000E+00 + -86.50000 174.5000 0.0000000E+00 + -85.50000 174.5000 0.0000000E+00 + -84.50000 174.5000 0.0000000E+00 + -83.50000 174.5000 0.0000000E+00 + -82.50000 174.5000 0.0000000E+00 + -81.50000 174.5000 0.0000000E+00 + -80.50000 174.5000 0.0000000E+00 + -79.50000 174.5000 0.0000000E+00 + -78.50000 174.5000 0.0000000E+00 + -77.50000 174.5000 0.0000000E+00 + -76.50000 174.5000 0.0000000E+00 + -75.50000 174.5000 0.0000000E+00 + -74.50000 174.5000 0.0000000E+00 + -73.50000 174.5000 0.0000000E+00 + -72.50000 174.5000 0.0000000E+00 + -71.50000 174.5000 0.0000000E+00 + -70.50000 174.5000 0.0000000E+00 + -69.50000 174.5000 0.0000000E+00 + -68.50000 174.5000 0.0000000E+00 + -67.50000 174.5000 0.0000000E+00 + -66.50000 174.5000 0.0000000E+00 + -65.50000 174.5000 0.0000000E+00 + -64.50000 174.5000 0.0000000E+00 + -63.50000 174.5000 0.0000000E+00 + -62.50000 174.5000 0.0000000E+00 + -61.50000 174.5000 0.0000000E+00 + -60.50000 174.5000 0.0000000E+00 + -59.50000 174.5000 0.0000000E+00 + -58.50000 174.5000 0.0000000E+00 + -57.50000 174.5000 0.0000000E+00 + -56.50000 174.5000 0.0000000E+00 + -55.50000 174.5000 0.0000000E+00 + -54.50000 174.5000 0.0000000E+00 + -53.50000 174.5000 0.0000000E+00 + -52.50000 174.5000 0.0000000E+00 + -51.50000 174.5000 0.0000000E+00 + -50.50000 174.5000 0.0000000E+00 + -49.50000 174.5000 0.0000000E+00 + -48.50000 174.5000 0.0000000E+00 + -47.50000 174.5000 0.0000000E+00 + -46.50000 174.5000 0.0000000E+00 + -45.50000 174.5000 0.0000000E+00 + -44.50000 174.5000 0.0000000E+00 + -43.50000 174.5000 0.0000000E+00 + -42.50000 174.5000 0.0000000E+00 + -41.50000 174.5000 0.0000000E+00 + -40.50000 174.5000 0.0000000E+00 + -39.50000 174.5000 0.0000000E+00 + -38.50000 174.5000 0.0000000E+00 + -37.50000 174.5000 0.0000000E+00 + -36.50000 174.5000 0.0000000E+00 + -35.50000 174.5000 0.0000000E+00 + -34.50000 174.5000 0.0000000E+00 + -33.50000 174.5000 0.0000000E+00 + -32.50000 174.5000 0.0000000E+00 + -31.50000 174.5000 0.0000000E+00 + -30.50000 174.5000 0.0000000E+00 + -29.50000 174.5000 0.0000000E+00 + -28.50000 174.5000 0.0000000E+00 + -27.50000 174.5000 0.0000000E+00 + -26.50000 174.5000 0.0000000E+00 + -25.50000 174.5000 0.0000000E+00 + -24.50000 174.5000 0.0000000E+00 + -23.50000 174.5000 0.0000000E+00 + -22.50000 174.5000 0.0000000E+00 + -21.50000 174.5000 0.0000000E+00 + -20.50000 174.5000 0.0000000E+00 + -19.50000 174.5000 0.0000000E+00 + -18.50000 174.5000 0.0000000E+00 + -17.50000 174.5000 0.0000000E+00 + -16.50000 174.5000 0.0000000E+00 + -15.50000 174.5000 0.0000000E+00 + -14.50000 174.5000 0.0000000E+00 + -13.50000 174.5000 0.0000000E+00 + -12.50000 174.5000 0.0000000E+00 + -11.50000 174.5000 0.0000000E+00 + -10.50000 174.5000 0.0000000E+00 + -9.500000 174.5000 0.0000000E+00 + -8.500000 174.5000 0.0000000E+00 + -7.500000 174.5000 0.0000000E+00 + -6.500000 174.5000 0.0000000E+00 + -5.500000 174.5000 0.0000000E+00 + -4.500000 174.5000 0.0000000E+00 + -3.500000 174.5000 0.0000000E+00 + -2.500000 174.5000 0.0000000E+00 + -1.500000 174.5000 0.0000000E+00 + -0.5000000 174.5000 0.0000000E+00 + 0.5000000 174.5000 0.0000000E+00 + 1.500000 174.5000 0.0000000E+00 + 2.500000 174.5000 0.0000000E+00 + 3.500000 174.5000 0.0000000E+00 + 4.500000 174.5000 0.0000000E+00 + 5.500000 174.5000 0.0000000E+00 + 6.500000 174.5000 0.0000000E+00 + 7.500000 174.5000 0.0000000E+00 + 8.500000 174.5000 0.0000000E+00 + 9.500000 174.5000 0.0000000E+00 + 10.50000 174.5000 0.0000000E+00 + 11.50000 174.5000 0.0000000E+00 + 12.50000 174.5000 0.0000000E+00 + 13.50000 174.5000 0.0000000E+00 + 14.50000 174.5000 0.0000000E+00 + 15.50000 174.5000 0.0000000E+00 + 16.50000 174.5000 0.0000000E+00 + 17.50000 174.5000 0.0000000E+00 + 18.50000 174.5000 0.0000000E+00 + 19.50000 174.5000 0.0000000E+00 + 20.50000 174.5000 0.0000000E+00 + 21.50000 174.5000 0.0000000E+00 + 22.50000 174.5000 0.0000000E+00 + 23.50000 174.5000 0.0000000E+00 + 24.50000 174.5000 0.0000000E+00 + 25.50000 174.5000 0.0000000E+00 + 26.50000 174.5000 0.0000000E+00 + 27.50000 174.5000 0.0000000E+00 + 28.50000 174.5000 0.0000000E+00 + 29.50000 174.5000 0.0000000E+00 + 30.50000 174.5000 0.0000000E+00 + 31.50000 174.5000 0.0000000E+00 + 32.50000 174.5000 0.0000000E+00 + 33.50000 174.5000 0.0000000E+00 + 34.50000 174.5000 0.0000000E+00 + 35.50000 174.5000 0.0000000E+00 + 36.50000 174.5000 0.0000000E+00 + 37.50000 174.5000 0.0000000E+00 + 38.50000 174.5000 0.0000000E+00 + 39.50000 174.5000 0.0000000E+00 + 40.50000 174.5000 0.0000000E+00 + 41.50000 174.5000 0.0000000E+00 + 42.50000 174.5000 0.0000000E+00 + 43.50000 174.5000 0.0000000E+00 + 44.50000 174.5000 0.0000000E+00 + 45.50000 174.5000 0.0000000E+00 + 46.50000 174.5000 0.0000000E+00 + 47.50000 174.5000 0.0000000E+00 + 48.50000 174.5000 0.0000000E+00 + 49.50000 174.5000 0.0000000E+00 + 50.50000 174.5000 0.0000000E+00 + 51.50000 174.5000 0.0000000E+00 + 52.50000 174.5000 0.0000000E+00 + 53.50000 174.5000 0.0000000E+00 + 54.50000 174.5000 0.0000000E+00 + 55.50000 174.5000 0.0000000E+00 + 56.50000 174.5000 0.0000000E+00 + 57.50000 174.5000 0.0000000E+00 + 58.50000 174.5000 0.0000000E+00 + 59.50000 174.5000 0.0000000E+00 + 60.50000 174.5000 0.0000000E+00 + 61.50000 174.5000 0.0000000E+00 + 62.50000 174.5000 0.0000000E+00 + 63.50000 174.5000 0.0000000E+00 + 64.50000 174.5000 0.0000000E+00 + 65.50000 174.5000 0.0000000E+00 + 66.50000 174.5000 0.0000000E+00 + 67.50000 174.5000 0.0000000E+00 + 68.50000 174.5000 0.0000000E+00 + 69.50000 174.5000 0.0000000E+00 + 70.50000 174.5000 0.0000000E+00 + 71.50000 174.5000 0.0000000E+00 + 72.50000 174.5000 0.0000000E+00 + 73.50000 174.5000 0.0000000E+00 + 74.50000 174.5000 0.0000000E+00 + 75.50000 174.5000 0.0000000E+00 + 76.50000 174.5000 0.0000000E+00 + 77.50000 174.5000 0.0000000E+00 + 78.50000 174.5000 0.0000000E+00 + 79.50000 174.5000 0.0000000E+00 + 80.50000 174.5000 0.0000000E+00 + 81.50000 174.5000 0.0000000E+00 + 82.50000 174.5000 0.0000000E+00 + 83.50000 174.5000 0.0000000E+00 + 84.50000 174.5000 0.0000000E+00 + 85.50000 174.5000 0.0000000E+00 + 86.50000 174.5000 0.0000000E+00 + 87.50000 174.5000 0.0000000E+00 + 88.50000 174.5000 0.0000000E+00 + 89.50000 174.5000 0.0000000E+00 + -89.50000 175.5000 0.0000000E+00 + -88.50000 175.5000 0.0000000E+00 + -87.50000 175.5000 0.0000000E+00 + -86.50000 175.5000 0.0000000E+00 + -85.50000 175.5000 0.0000000E+00 + -84.50000 175.5000 0.0000000E+00 + -83.50000 175.5000 0.0000000E+00 + -82.50000 175.5000 0.0000000E+00 + -81.50000 175.5000 0.0000000E+00 + -80.50000 175.5000 0.0000000E+00 + -79.50000 175.5000 0.0000000E+00 + -78.50000 175.5000 0.0000000E+00 + -77.50000 175.5000 0.0000000E+00 + -76.50000 175.5000 0.0000000E+00 + -75.50000 175.5000 0.0000000E+00 + -74.50000 175.5000 0.0000000E+00 + -73.50000 175.5000 0.0000000E+00 + -72.50000 175.5000 0.0000000E+00 + -71.50000 175.5000 0.0000000E+00 + -70.50000 175.5000 0.0000000E+00 + -69.50000 175.5000 0.0000000E+00 + -68.50000 175.5000 0.0000000E+00 + -67.50000 175.5000 0.0000000E+00 + -66.50000 175.5000 0.0000000E+00 + -65.50000 175.5000 0.0000000E+00 + -64.50000 175.5000 0.0000000E+00 + -63.50000 175.5000 0.0000000E+00 + -62.50000 175.5000 0.0000000E+00 + -61.50000 175.5000 0.0000000E+00 + -60.50000 175.5000 0.0000000E+00 + -59.50000 175.5000 0.0000000E+00 + -58.50000 175.5000 0.0000000E+00 + -57.50000 175.5000 0.0000000E+00 + -56.50000 175.5000 0.0000000E+00 + -55.50000 175.5000 0.0000000E+00 + -54.50000 175.5000 0.0000000E+00 + -53.50000 175.5000 0.0000000E+00 + -52.50000 175.5000 0.0000000E+00 + -51.50000 175.5000 0.0000000E+00 + -50.50000 175.5000 0.0000000E+00 + -49.50000 175.5000 0.0000000E+00 + -48.50000 175.5000 0.0000000E+00 + -47.50000 175.5000 0.0000000E+00 + -46.50000 175.5000 0.0000000E+00 + -45.50000 175.5000 0.0000000E+00 + -44.50000 175.5000 0.0000000E+00 + -43.50000 175.5000 0.0000000E+00 + -42.50000 175.5000 0.0000000E+00 + -41.50000 175.5000 0.0000000E+00 + -40.50000 175.5000 0.0000000E+00 + -39.50000 175.5000 0.0000000E+00 + -38.50000 175.5000 0.0000000E+00 + -37.50000 175.5000 0.0000000E+00 + -36.50000 175.5000 0.0000000E+00 + -35.50000 175.5000 0.0000000E+00 + -34.50000 175.5000 0.0000000E+00 + -33.50000 175.5000 0.0000000E+00 + -32.50000 175.5000 0.0000000E+00 + -31.50000 175.5000 0.0000000E+00 + -30.50000 175.5000 0.0000000E+00 + -29.50000 175.5000 0.0000000E+00 + -28.50000 175.5000 0.0000000E+00 + -27.50000 175.5000 0.0000000E+00 + -26.50000 175.5000 0.0000000E+00 + -25.50000 175.5000 0.0000000E+00 + -24.50000 175.5000 0.0000000E+00 + -23.50000 175.5000 0.0000000E+00 + -22.50000 175.5000 0.0000000E+00 + -21.50000 175.5000 0.0000000E+00 + -20.50000 175.5000 0.0000000E+00 + -19.50000 175.5000 0.0000000E+00 + -18.50000 175.5000 0.0000000E+00 + -17.50000 175.5000 0.0000000E+00 + -16.50000 175.5000 0.0000000E+00 + -15.50000 175.5000 0.0000000E+00 + -14.50000 175.5000 0.0000000E+00 + -13.50000 175.5000 0.0000000E+00 + -12.50000 175.5000 0.0000000E+00 + -11.50000 175.5000 0.0000000E+00 + -10.50000 175.5000 0.0000000E+00 + -9.500000 175.5000 0.0000000E+00 + -8.500000 175.5000 0.0000000E+00 + -7.500000 175.5000 0.0000000E+00 + -6.500000 175.5000 0.0000000E+00 + -5.500000 175.5000 0.0000000E+00 + -4.500000 175.5000 0.0000000E+00 + -3.500000 175.5000 0.0000000E+00 + -2.500000 175.5000 0.0000000E+00 + -1.500000 175.5000 0.0000000E+00 + -0.5000000 175.5000 0.0000000E+00 + 0.5000000 175.5000 0.0000000E+00 + 1.500000 175.5000 0.0000000E+00 + 2.500000 175.5000 0.0000000E+00 + 3.500000 175.5000 0.0000000E+00 + 4.500000 175.5000 0.0000000E+00 + 5.500000 175.5000 0.0000000E+00 + 6.500000 175.5000 0.0000000E+00 + 7.500000 175.5000 0.0000000E+00 + 8.500000 175.5000 0.0000000E+00 + 9.500000 175.5000 0.0000000E+00 + 10.50000 175.5000 0.0000000E+00 + 11.50000 175.5000 0.0000000E+00 + 12.50000 175.5000 0.0000000E+00 + 13.50000 175.5000 0.0000000E+00 + 14.50000 175.5000 0.0000000E+00 + 15.50000 175.5000 0.0000000E+00 + 16.50000 175.5000 0.0000000E+00 + 17.50000 175.5000 0.0000000E+00 + 18.50000 175.5000 0.0000000E+00 + 19.50000 175.5000 0.0000000E+00 + 20.50000 175.5000 0.0000000E+00 + 21.50000 175.5000 0.0000000E+00 + 22.50000 175.5000 0.0000000E+00 + 23.50000 175.5000 0.0000000E+00 + 24.50000 175.5000 0.0000000E+00 + 25.50000 175.5000 0.0000000E+00 + 26.50000 175.5000 0.0000000E+00 + 27.50000 175.5000 0.0000000E+00 + 28.50000 175.5000 0.0000000E+00 + 29.50000 175.5000 0.0000000E+00 + 30.50000 175.5000 0.0000000E+00 + 31.50000 175.5000 0.0000000E+00 + 32.50000 175.5000 0.0000000E+00 + 33.50000 175.5000 0.0000000E+00 + 34.50000 175.5000 0.0000000E+00 + 35.50000 175.5000 0.0000000E+00 + 36.50000 175.5000 0.0000000E+00 + 37.50000 175.5000 0.0000000E+00 + 38.50000 175.5000 0.0000000E+00 + 39.50000 175.5000 0.0000000E+00 + 40.50000 175.5000 0.0000000E+00 + 41.50000 175.5000 0.0000000E+00 + 42.50000 175.5000 0.0000000E+00 + 43.50000 175.5000 0.0000000E+00 + 44.50000 175.5000 0.0000000E+00 + 45.50000 175.5000 0.0000000E+00 + 46.50000 175.5000 0.0000000E+00 + 47.50000 175.5000 0.0000000E+00 + 48.50000 175.5000 0.0000000E+00 + 49.50000 175.5000 0.0000000E+00 + 50.50000 175.5000 0.0000000E+00 + 51.50000 175.5000 0.0000000E+00 + 52.50000 175.5000 0.0000000E+00 + 53.50000 175.5000 0.0000000E+00 + 54.50000 175.5000 0.0000000E+00 + 55.50000 175.5000 0.0000000E+00 + 56.50000 175.5000 0.0000000E+00 + 57.50000 175.5000 0.0000000E+00 + 58.50000 175.5000 0.0000000E+00 + 59.50000 175.5000 0.0000000E+00 + 60.50000 175.5000 0.0000000E+00 + 61.50000 175.5000 0.0000000E+00 + 62.50000 175.5000 0.0000000E+00 + 63.50000 175.5000 0.0000000E+00 + 64.50000 175.5000 0.0000000E+00 + 65.50000 175.5000 0.0000000E+00 + 66.50000 175.5000 0.0000000E+00 + 67.50000 175.5000 0.0000000E+00 + 68.50000 175.5000 0.0000000E+00 + 69.50000 175.5000 0.0000000E+00 + 70.50000 175.5000 0.0000000E+00 + 71.50000 175.5000 0.0000000E+00 + 72.50000 175.5000 0.0000000E+00 + 73.50000 175.5000 0.0000000E+00 + 74.50000 175.5000 0.0000000E+00 + 75.50000 175.5000 0.0000000E+00 + 76.50000 175.5000 0.0000000E+00 + 77.50000 175.5000 0.0000000E+00 + 78.50000 175.5000 0.0000000E+00 + 79.50000 175.5000 0.0000000E+00 + 80.50000 175.5000 0.0000000E+00 + 81.50000 175.5000 0.0000000E+00 + 82.50000 175.5000 0.0000000E+00 + 83.50000 175.5000 0.0000000E+00 + 84.50000 175.5000 0.0000000E+00 + 85.50000 175.5000 0.0000000E+00 + 86.50000 175.5000 0.0000000E+00 + 87.50000 175.5000 0.0000000E+00 + 88.50000 175.5000 0.0000000E+00 + 89.50000 175.5000 0.0000000E+00 + -89.50000 176.5000 0.0000000E+00 + -88.50000 176.5000 0.0000000E+00 + -87.50000 176.5000 0.0000000E+00 + -86.50000 176.5000 0.0000000E+00 + -85.50000 176.5000 0.0000000E+00 + -84.50000 176.5000 0.0000000E+00 + -83.50000 176.5000 0.0000000E+00 + -82.50000 176.5000 0.0000000E+00 + -81.50000 176.5000 0.0000000E+00 + -80.50000 176.5000 0.0000000E+00 + -79.50000 176.5000 0.0000000E+00 + -78.50000 176.5000 0.0000000E+00 + -77.50000 176.5000 0.0000000E+00 + -76.50000 176.5000 0.0000000E+00 + -75.50000 176.5000 0.0000000E+00 + -74.50000 176.5000 0.0000000E+00 + -73.50000 176.5000 0.0000000E+00 + -72.50000 176.5000 0.0000000E+00 + -71.50000 176.5000 0.0000000E+00 + -70.50000 176.5000 0.0000000E+00 + -69.50000 176.5000 0.0000000E+00 + -68.50000 176.5000 0.0000000E+00 + -67.50000 176.5000 0.0000000E+00 + -66.50000 176.5000 0.0000000E+00 + -65.50000 176.5000 0.0000000E+00 + -64.50000 176.5000 0.0000000E+00 + -63.50000 176.5000 0.0000000E+00 + -62.50000 176.5000 0.0000000E+00 + -61.50000 176.5000 0.0000000E+00 + -60.50000 176.5000 0.0000000E+00 + -59.50000 176.5000 0.0000000E+00 + -58.50000 176.5000 0.0000000E+00 + -57.50000 176.5000 0.0000000E+00 + -56.50000 176.5000 0.0000000E+00 + -55.50000 176.5000 0.0000000E+00 + -54.50000 176.5000 0.0000000E+00 + -53.50000 176.5000 0.0000000E+00 + -52.50000 176.5000 0.0000000E+00 + -51.50000 176.5000 0.0000000E+00 + -50.50000 176.5000 0.0000000E+00 + -49.50000 176.5000 0.0000000E+00 + -48.50000 176.5000 0.0000000E+00 + -47.50000 176.5000 0.0000000E+00 + -46.50000 176.5000 0.0000000E+00 + -45.50000 176.5000 0.0000000E+00 + -44.50000 176.5000 0.0000000E+00 + -43.50000 176.5000 0.0000000E+00 + -42.50000 176.5000 0.0000000E+00 + -41.50000 176.5000 0.0000000E+00 + -40.50000 176.5000 0.0000000E+00 + -39.50000 176.5000 0.0000000E+00 + -38.50000 176.5000 0.0000000E+00 + -37.50000 176.5000 0.0000000E+00 + -36.50000 176.5000 0.0000000E+00 + -35.50000 176.5000 0.0000000E+00 + -34.50000 176.5000 0.0000000E+00 + -33.50000 176.5000 0.0000000E+00 + -32.50000 176.5000 0.0000000E+00 + -31.50000 176.5000 0.0000000E+00 + -30.50000 176.5000 0.0000000E+00 + -29.50000 176.5000 0.0000000E+00 + -28.50000 176.5000 0.0000000E+00 + -27.50000 176.5000 0.0000000E+00 + -26.50000 176.5000 0.0000000E+00 + -25.50000 176.5000 0.0000000E+00 + -24.50000 176.5000 0.0000000E+00 + -23.50000 176.5000 0.0000000E+00 + -22.50000 176.5000 0.0000000E+00 + -21.50000 176.5000 0.0000000E+00 + -20.50000 176.5000 0.0000000E+00 + -19.50000 176.5000 0.0000000E+00 + -18.50000 176.5000 0.0000000E+00 + -17.50000 176.5000 0.0000000E+00 + -16.50000 176.5000 0.0000000E+00 + -15.50000 176.5000 0.0000000E+00 + -14.50000 176.5000 0.0000000E+00 + -13.50000 176.5000 0.0000000E+00 + -12.50000 176.5000 0.0000000E+00 + -11.50000 176.5000 0.0000000E+00 + -10.50000 176.5000 0.0000000E+00 + -9.500000 176.5000 0.0000000E+00 + -8.500000 176.5000 0.0000000E+00 + -7.500000 176.5000 0.0000000E+00 + -6.500000 176.5000 0.0000000E+00 + -5.500000 176.5000 0.0000000E+00 + -4.500000 176.5000 0.0000000E+00 + -3.500000 176.5000 0.0000000E+00 + -2.500000 176.5000 0.0000000E+00 + -1.500000 176.5000 0.0000000E+00 + -0.5000000 176.5000 0.0000000E+00 + 0.5000000 176.5000 0.0000000E+00 + 1.500000 176.5000 0.0000000E+00 + 2.500000 176.5000 0.0000000E+00 + 3.500000 176.5000 0.0000000E+00 + 4.500000 176.5000 0.0000000E+00 + 5.500000 176.5000 0.0000000E+00 + 6.500000 176.5000 0.0000000E+00 + 7.500000 176.5000 0.0000000E+00 + 8.500000 176.5000 0.0000000E+00 + 9.500000 176.5000 0.0000000E+00 + 10.50000 176.5000 0.0000000E+00 + 11.50000 176.5000 0.0000000E+00 + 12.50000 176.5000 0.0000000E+00 + 13.50000 176.5000 0.0000000E+00 + 14.50000 176.5000 0.0000000E+00 + 15.50000 176.5000 0.0000000E+00 + 16.50000 176.5000 0.0000000E+00 + 17.50000 176.5000 0.0000000E+00 + 18.50000 176.5000 0.0000000E+00 + 19.50000 176.5000 0.0000000E+00 + 20.50000 176.5000 0.0000000E+00 + 21.50000 176.5000 0.0000000E+00 + 22.50000 176.5000 0.0000000E+00 + 23.50000 176.5000 0.0000000E+00 + 24.50000 176.5000 0.0000000E+00 + 25.50000 176.5000 0.0000000E+00 + 26.50000 176.5000 0.0000000E+00 + 27.50000 176.5000 0.0000000E+00 + 28.50000 176.5000 0.0000000E+00 + 29.50000 176.5000 0.0000000E+00 + 30.50000 176.5000 0.0000000E+00 + 31.50000 176.5000 0.0000000E+00 + 32.50000 176.5000 0.0000000E+00 + 33.50000 176.5000 0.0000000E+00 + 34.50000 176.5000 0.0000000E+00 + 35.50000 176.5000 0.0000000E+00 + 36.50000 176.5000 0.0000000E+00 + 37.50000 176.5000 0.0000000E+00 + 38.50000 176.5000 0.0000000E+00 + 39.50000 176.5000 0.0000000E+00 + 40.50000 176.5000 0.0000000E+00 + 41.50000 176.5000 0.0000000E+00 + 42.50000 176.5000 0.0000000E+00 + 43.50000 176.5000 0.0000000E+00 + 44.50000 176.5000 0.0000000E+00 + 45.50000 176.5000 0.0000000E+00 + 46.50000 176.5000 0.0000000E+00 + 47.50000 176.5000 0.0000000E+00 + 48.50000 176.5000 0.0000000E+00 + 49.50000 176.5000 0.0000000E+00 + 50.50000 176.5000 0.0000000E+00 + 51.50000 176.5000 0.0000000E+00 + 52.50000 176.5000 0.0000000E+00 + 53.50000 176.5000 0.0000000E+00 + 54.50000 176.5000 0.0000000E+00 + 55.50000 176.5000 0.0000000E+00 + 56.50000 176.5000 0.0000000E+00 + 57.50000 176.5000 0.0000000E+00 + 58.50000 176.5000 0.0000000E+00 + 59.50000 176.5000 0.0000000E+00 + 60.50000 176.5000 0.0000000E+00 + 61.50000 176.5000 0.0000000E+00 + 62.50000 176.5000 0.0000000E+00 + 63.50000 176.5000 0.0000000E+00 + 64.50000 176.5000 0.0000000E+00 + 65.50000 176.5000 0.0000000E+00 + 66.50000 176.5000 0.0000000E+00 + 67.50000 176.5000 0.0000000E+00 + 68.50000 176.5000 0.0000000E+00 + 69.50000 176.5000 0.0000000E+00 + 70.50000 176.5000 0.0000000E+00 + 71.50000 176.5000 0.0000000E+00 + 72.50000 176.5000 0.0000000E+00 + 73.50000 176.5000 0.0000000E+00 + 74.50000 176.5000 0.0000000E+00 + 75.50000 176.5000 0.0000000E+00 + 76.50000 176.5000 0.0000000E+00 + 77.50000 176.5000 0.0000000E+00 + 78.50000 176.5000 0.0000000E+00 + 79.50000 176.5000 0.0000000E+00 + 80.50000 176.5000 0.0000000E+00 + 81.50000 176.5000 0.0000000E+00 + 82.50000 176.5000 0.0000000E+00 + 83.50000 176.5000 0.0000000E+00 + 84.50000 176.5000 0.0000000E+00 + 85.50000 176.5000 0.0000000E+00 + 86.50000 176.5000 0.0000000E+00 + 87.50000 176.5000 0.0000000E+00 + 88.50000 176.5000 0.0000000E+00 + 89.50000 176.5000 0.0000000E+00 + -89.50000 177.5000 0.0000000E+00 + -88.50000 177.5000 0.0000000E+00 + -87.50000 177.5000 0.0000000E+00 + -86.50000 177.5000 0.0000000E+00 + -85.50000 177.5000 0.0000000E+00 + -84.50000 177.5000 0.0000000E+00 + -83.50000 177.5000 0.0000000E+00 + -82.50000 177.5000 0.0000000E+00 + -81.50000 177.5000 0.0000000E+00 + -80.50000 177.5000 0.0000000E+00 + -79.50000 177.5000 0.0000000E+00 + -78.50000 177.5000 0.0000000E+00 + -77.50000 177.5000 0.0000000E+00 + -76.50000 177.5000 0.0000000E+00 + -75.50000 177.5000 0.0000000E+00 + -74.50000 177.5000 0.0000000E+00 + -73.50000 177.5000 0.0000000E+00 + -72.50000 177.5000 0.0000000E+00 + -71.50000 177.5000 0.0000000E+00 + -70.50000 177.5000 0.0000000E+00 + -69.50000 177.5000 0.0000000E+00 + -68.50000 177.5000 0.0000000E+00 + -67.50000 177.5000 0.0000000E+00 + -66.50000 177.5000 0.0000000E+00 + -65.50000 177.5000 0.0000000E+00 + -64.50000 177.5000 0.0000000E+00 + -63.50000 177.5000 0.0000000E+00 + -62.50000 177.5000 0.0000000E+00 + -61.50000 177.5000 0.0000000E+00 + -60.50000 177.5000 0.0000000E+00 + -59.50000 177.5000 0.0000000E+00 + -58.50000 177.5000 0.0000000E+00 + -57.50000 177.5000 0.0000000E+00 + -56.50000 177.5000 0.0000000E+00 + -55.50000 177.5000 0.0000000E+00 + -54.50000 177.5000 0.0000000E+00 + -53.50000 177.5000 0.0000000E+00 + -52.50000 177.5000 0.0000000E+00 + -51.50000 177.5000 0.0000000E+00 + -50.50000 177.5000 0.0000000E+00 + -49.50000 177.5000 0.0000000E+00 + -48.50000 177.5000 0.0000000E+00 + -47.50000 177.5000 0.0000000E+00 + -46.50000 177.5000 0.0000000E+00 + -45.50000 177.5000 0.0000000E+00 + -44.50000 177.5000 0.0000000E+00 + -43.50000 177.5000 0.0000000E+00 + -42.50000 177.5000 0.0000000E+00 + -41.50000 177.5000 0.0000000E+00 + -40.50000 177.5000 0.0000000E+00 + -39.50000 177.5000 0.0000000E+00 + -38.50000 177.5000 0.0000000E+00 + -37.50000 177.5000 0.0000000E+00 + -36.50000 177.5000 0.0000000E+00 + -35.50000 177.5000 0.0000000E+00 + -34.50000 177.5000 0.0000000E+00 + -33.50000 177.5000 0.0000000E+00 + -32.50000 177.5000 0.0000000E+00 + -31.50000 177.5000 0.0000000E+00 + -30.50000 177.5000 0.0000000E+00 + -29.50000 177.5000 0.0000000E+00 + -28.50000 177.5000 0.0000000E+00 + -27.50000 177.5000 0.0000000E+00 + -26.50000 177.5000 0.0000000E+00 + -25.50000 177.5000 0.0000000E+00 + -24.50000 177.5000 0.0000000E+00 + -23.50000 177.5000 0.0000000E+00 + -22.50000 177.5000 0.0000000E+00 + -21.50000 177.5000 0.0000000E+00 + -20.50000 177.5000 0.0000000E+00 + -19.50000 177.5000 0.0000000E+00 + -18.50000 177.5000 0.0000000E+00 + -17.50000 177.5000 0.0000000E+00 + -16.50000 177.5000 0.0000000E+00 + -15.50000 177.5000 0.0000000E+00 + -14.50000 177.5000 0.0000000E+00 + -13.50000 177.5000 0.0000000E+00 + -12.50000 177.5000 0.0000000E+00 + -11.50000 177.5000 0.0000000E+00 + -10.50000 177.5000 0.0000000E+00 + -9.500000 177.5000 0.0000000E+00 + -8.500000 177.5000 0.0000000E+00 + -7.500000 177.5000 0.0000000E+00 + -6.500000 177.5000 0.0000000E+00 + -5.500000 177.5000 0.0000000E+00 + -4.500000 177.5000 0.0000000E+00 + -3.500000 177.5000 0.0000000E+00 + -2.500000 177.5000 0.0000000E+00 + -1.500000 177.5000 0.0000000E+00 + -0.5000000 177.5000 0.0000000E+00 + 0.5000000 177.5000 0.0000000E+00 + 1.500000 177.5000 0.0000000E+00 + 2.500000 177.5000 0.0000000E+00 + 3.500000 177.5000 0.0000000E+00 + 4.500000 177.5000 0.0000000E+00 + 5.500000 177.5000 0.0000000E+00 + 6.500000 177.5000 0.0000000E+00 + 7.500000 177.5000 0.0000000E+00 + 8.500000 177.5000 0.0000000E+00 + 9.500000 177.5000 0.0000000E+00 + 10.50000 177.5000 0.0000000E+00 + 11.50000 177.5000 0.0000000E+00 + 12.50000 177.5000 0.0000000E+00 + 13.50000 177.5000 0.0000000E+00 + 14.50000 177.5000 0.0000000E+00 + 15.50000 177.5000 0.0000000E+00 + 16.50000 177.5000 0.0000000E+00 + 17.50000 177.5000 0.0000000E+00 + 18.50000 177.5000 0.0000000E+00 + 19.50000 177.5000 0.0000000E+00 + 20.50000 177.5000 0.0000000E+00 + 21.50000 177.5000 0.0000000E+00 + 22.50000 177.5000 0.0000000E+00 + 23.50000 177.5000 0.0000000E+00 + 24.50000 177.5000 0.0000000E+00 + 25.50000 177.5000 0.0000000E+00 + 26.50000 177.5000 0.0000000E+00 + 27.50000 177.5000 0.0000000E+00 + 28.50000 177.5000 0.0000000E+00 + 29.50000 177.5000 0.0000000E+00 + 30.50000 177.5000 0.0000000E+00 + 31.50000 177.5000 0.0000000E+00 + 32.50000 177.5000 0.0000000E+00 + 33.50000 177.5000 0.0000000E+00 + 34.50000 177.5000 0.0000000E+00 + 35.50000 177.5000 0.0000000E+00 + 36.50000 177.5000 0.0000000E+00 + 37.50000 177.5000 0.0000000E+00 + 38.50000 177.5000 0.0000000E+00 + 39.50000 177.5000 0.0000000E+00 + 40.50000 177.5000 0.0000000E+00 + 41.50000 177.5000 0.0000000E+00 + 42.50000 177.5000 0.0000000E+00 + 43.50000 177.5000 0.0000000E+00 + 44.50000 177.5000 0.0000000E+00 + 45.50000 177.5000 0.0000000E+00 + 46.50000 177.5000 0.0000000E+00 + 47.50000 177.5000 0.0000000E+00 + 48.50000 177.5000 0.0000000E+00 + 49.50000 177.5000 0.0000000E+00 + 50.50000 177.5000 0.0000000E+00 + 51.50000 177.5000 0.0000000E+00 + 52.50000 177.5000 0.0000000E+00 + 53.50000 177.5000 0.0000000E+00 + 54.50000 177.5000 0.0000000E+00 + 55.50000 177.5000 0.0000000E+00 + 56.50000 177.5000 0.0000000E+00 + 57.50000 177.5000 0.0000000E+00 + 58.50000 177.5000 0.0000000E+00 + 59.50000 177.5000 0.0000000E+00 + 60.50000 177.5000 0.0000000E+00 + 61.50000 177.5000 0.0000000E+00 + 62.50000 177.5000 0.0000000E+00 + 63.50000 177.5000 0.0000000E+00 + 64.50000 177.5000 0.0000000E+00 + 65.50000 177.5000 0.0000000E+00 + 66.50000 177.5000 0.0000000E+00 + 67.50000 177.5000 0.0000000E+00 + 68.50000 177.5000 0.0000000E+00 + 69.50000 177.5000 0.0000000E+00 + 70.50000 177.5000 0.0000000E+00 + 71.50000 177.5000 0.0000000E+00 + 72.50000 177.5000 0.0000000E+00 + 73.50000 177.5000 0.0000000E+00 + 74.50000 177.5000 0.0000000E+00 + 75.50000 177.5000 0.0000000E+00 + 76.50000 177.5000 0.0000000E+00 + 77.50000 177.5000 0.0000000E+00 + 78.50000 177.5000 0.0000000E+00 + 79.50000 177.5000 0.0000000E+00 + 80.50000 177.5000 0.0000000E+00 + 81.50000 177.5000 0.0000000E+00 + 82.50000 177.5000 0.0000000E+00 + 83.50000 177.5000 0.0000000E+00 + 84.50000 177.5000 0.0000000E+00 + 85.50000 177.5000 0.0000000E+00 + 86.50000 177.5000 0.0000000E+00 + 87.50000 177.5000 0.0000000E+00 + 88.50000 177.5000 0.0000000E+00 + 89.50000 177.5000 0.0000000E+00 + -89.50000 178.5000 0.0000000E+00 + -88.50000 178.5000 0.0000000E+00 + -87.50000 178.5000 0.0000000E+00 + -86.50000 178.5000 0.0000000E+00 + -85.50000 178.5000 0.0000000E+00 + -84.50000 178.5000 0.0000000E+00 + -83.50000 178.5000 0.0000000E+00 + -82.50000 178.5000 0.0000000E+00 + -81.50000 178.5000 0.0000000E+00 + -80.50000 178.5000 0.0000000E+00 + -79.50000 178.5000 0.0000000E+00 + -78.50000 178.5000 0.0000000E+00 + -77.50000 178.5000 0.0000000E+00 + -76.50000 178.5000 0.0000000E+00 + -75.50000 178.5000 0.0000000E+00 + -74.50000 178.5000 0.0000000E+00 + -73.50000 178.5000 0.0000000E+00 + -72.50000 178.5000 0.0000000E+00 + -71.50000 178.5000 0.0000000E+00 + -70.50000 178.5000 0.0000000E+00 + -69.50000 178.5000 0.0000000E+00 + -68.50000 178.5000 0.0000000E+00 + -67.50000 178.5000 0.0000000E+00 + -66.50000 178.5000 0.0000000E+00 + -65.50000 178.5000 0.0000000E+00 + -64.50000 178.5000 0.0000000E+00 + -63.50000 178.5000 0.0000000E+00 + -62.50000 178.5000 0.0000000E+00 + -61.50000 178.5000 0.0000000E+00 + -60.50000 178.5000 0.0000000E+00 + -59.50000 178.5000 0.0000000E+00 + -58.50000 178.5000 0.0000000E+00 + -57.50000 178.5000 0.0000000E+00 + -56.50000 178.5000 0.0000000E+00 + -55.50000 178.5000 0.0000000E+00 + -54.50000 178.5000 0.0000000E+00 + -53.50000 178.5000 0.0000000E+00 + -52.50000 178.5000 0.0000000E+00 + -51.50000 178.5000 0.0000000E+00 + -50.50000 178.5000 0.0000000E+00 + -49.50000 178.5000 0.0000000E+00 + -48.50000 178.5000 0.0000000E+00 + -47.50000 178.5000 0.0000000E+00 + -46.50000 178.5000 0.0000000E+00 + -45.50000 178.5000 0.0000000E+00 + -44.50000 178.5000 0.0000000E+00 + -43.50000 178.5000 0.0000000E+00 + -42.50000 178.5000 0.0000000E+00 + -41.50000 178.5000 0.0000000E+00 + -40.50000 178.5000 0.0000000E+00 + -39.50000 178.5000 0.0000000E+00 + -38.50000 178.5000 0.0000000E+00 + -37.50000 178.5000 0.0000000E+00 + -36.50000 178.5000 0.0000000E+00 + -35.50000 178.5000 0.0000000E+00 + -34.50000 178.5000 0.0000000E+00 + -33.50000 178.5000 0.0000000E+00 + -32.50000 178.5000 0.0000000E+00 + -31.50000 178.5000 0.0000000E+00 + -30.50000 178.5000 0.0000000E+00 + -29.50000 178.5000 0.0000000E+00 + -28.50000 178.5000 0.0000000E+00 + -27.50000 178.5000 0.0000000E+00 + -26.50000 178.5000 0.0000000E+00 + -25.50000 178.5000 0.0000000E+00 + -24.50000 178.5000 0.0000000E+00 + -23.50000 178.5000 0.0000000E+00 + -22.50000 178.5000 0.0000000E+00 + -21.50000 178.5000 0.0000000E+00 + -20.50000 178.5000 0.0000000E+00 + -19.50000 178.5000 0.0000000E+00 + -18.50000 178.5000 0.0000000E+00 + -17.50000 178.5000 0.0000000E+00 + -16.50000 178.5000 0.0000000E+00 + -15.50000 178.5000 0.0000000E+00 + -14.50000 178.5000 0.0000000E+00 + -13.50000 178.5000 0.0000000E+00 + -12.50000 178.5000 0.0000000E+00 + -11.50000 178.5000 0.0000000E+00 + -10.50000 178.5000 0.0000000E+00 + -9.500000 178.5000 0.0000000E+00 + -8.500000 178.5000 0.0000000E+00 + -7.500000 178.5000 0.0000000E+00 + -6.500000 178.5000 0.0000000E+00 + -5.500000 178.5000 0.0000000E+00 + -4.500000 178.5000 0.0000000E+00 + -3.500000 178.5000 0.0000000E+00 + -2.500000 178.5000 0.0000000E+00 + -1.500000 178.5000 0.0000000E+00 + -0.5000000 178.5000 0.0000000E+00 + 0.5000000 178.5000 0.0000000E+00 + 1.500000 178.5000 0.0000000E+00 + 2.500000 178.5000 0.0000000E+00 + 3.500000 178.5000 0.0000000E+00 + 4.500000 178.5000 0.0000000E+00 + 5.500000 178.5000 0.0000000E+00 + 6.500000 178.5000 0.0000000E+00 + 7.500000 178.5000 0.0000000E+00 + 8.500000 178.5000 0.0000000E+00 + 9.500000 178.5000 0.0000000E+00 + 10.50000 178.5000 0.0000000E+00 + 11.50000 178.5000 0.0000000E+00 + 12.50000 178.5000 0.0000000E+00 + 13.50000 178.5000 0.0000000E+00 + 14.50000 178.5000 0.0000000E+00 + 15.50000 178.5000 0.0000000E+00 + 16.50000 178.5000 0.0000000E+00 + 17.50000 178.5000 0.0000000E+00 + 18.50000 178.5000 0.0000000E+00 + 19.50000 178.5000 0.0000000E+00 + 20.50000 178.5000 0.0000000E+00 + 21.50000 178.5000 0.0000000E+00 + 22.50000 178.5000 0.0000000E+00 + 23.50000 178.5000 0.0000000E+00 + 24.50000 178.5000 0.0000000E+00 + 25.50000 178.5000 0.0000000E+00 + 26.50000 178.5000 0.0000000E+00 + 27.50000 178.5000 0.0000000E+00 + 28.50000 178.5000 0.0000000E+00 + 29.50000 178.5000 0.0000000E+00 + 30.50000 178.5000 0.0000000E+00 + 31.50000 178.5000 0.0000000E+00 + 32.50000 178.5000 0.0000000E+00 + 33.50000 178.5000 0.0000000E+00 + 34.50000 178.5000 0.0000000E+00 + 35.50000 178.5000 0.0000000E+00 + 36.50000 178.5000 0.0000000E+00 + 37.50000 178.5000 0.0000000E+00 + 38.50000 178.5000 0.0000000E+00 + 39.50000 178.5000 0.0000000E+00 + 40.50000 178.5000 0.0000000E+00 + 41.50000 178.5000 0.0000000E+00 + 42.50000 178.5000 0.0000000E+00 + 43.50000 178.5000 0.0000000E+00 + 44.50000 178.5000 0.0000000E+00 + 45.50000 178.5000 0.0000000E+00 + 46.50000 178.5000 0.0000000E+00 + 47.50000 178.5000 0.0000000E+00 + 48.50000 178.5000 0.0000000E+00 + 49.50000 178.5000 0.0000000E+00 + 50.50000 178.5000 0.0000000E+00 + 51.50000 178.5000 0.0000000E+00 + 52.50000 178.5000 0.0000000E+00 + 53.50000 178.5000 0.0000000E+00 + 54.50000 178.5000 0.0000000E+00 + 55.50000 178.5000 0.0000000E+00 + 56.50000 178.5000 0.0000000E+00 + 57.50000 178.5000 0.0000000E+00 + 58.50000 178.5000 0.0000000E+00 + 59.50000 178.5000 0.0000000E+00 + 60.50000 178.5000 0.0000000E+00 + 61.50000 178.5000 0.0000000E+00 + 62.50000 178.5000 0.0000000E+00 + 63.50000 178.5000 0.0000000E+00 + 64.50000 178.5000 0.0000000E+00 + 65.50000 178.5000 0.0000000E+00 + 66.50000 178.5000 0.0000000E+00 + 67.50000 178.5000 0.0000000E+00 + 68.50000 178.5000 0.0000000E+00 + 69.50000 178.5000 0.0000000E+00 + 70.50000 178.5000 0.0000000E+00 + 71.50000 178.5000 0.0000000E+00 + 72.50000 178.5000 0.0000000E+00 + 73.50000 178.5000 0.0000000E+00 + 74.50000 178.5000 0.0000000E+00 + 75.50000 178.5000 0.0000000E+00 + 76.50000 178.5000 0.0000000E+00 + 77.50000 178.5000 0.0000000E+00 + 78.50000 178.5000 0.0000000E+00 + 79.50000 178.5000 0.0000000E+00 + 80.50000 178.5000 0.0000000E+00 + 81.50000 178.5000 0.0000000E+00 + 82.50000 178.5000 0.0000000E+00 + 83.50000 178.5000 0.0000000E+00 + 84.50000 178.5000 0.0000000E+00 + 85.50000 178.5000 0.0000000E+00 + 86.50000 178.5000 0.0000000E+00 + 87.50000 178.5000 0.0000000E+00 + 88.50000 178.5000 0.0000000E+00 + 89.50000 178.5000 0.0000000E+00 + -89.50000 179.5000 0.0000000E+00 + -88.50000 179.5000 0.0000000E+00 + -87.50000 179.5000 0.0000000E+00 + -86.50000 179.5000 0.0000000E+00 + -85.50000 179.5000 0.0000000E+00 + -84.50000 179.5000 0.0000000E+00 + -83.50000 179.5000 0.0000000E+00 + -82.50000 179.5000 0.0000000E+00 + -81.50000 179.5000 0.0000000E+00 + -80.50000 179.5000 0.0000000E+00 + -79.50000 179.5000 0.0000000E+00 + -78.50000 179.5000 0.0000000E+00 + -77.50000 179.5000 0.0000000E+00 + -76.50000 179.5000 0.0000000E+00 + -75.50000 179.5000 0.0000000E+00 + -74.50000 179.5000 0.0000000E+00 + -73.50000 179.5000 0.0000000E+00 + -72.50000 179.5000 0.0000000E+00 + -71.50000 179.5000 0.0000000E+00 + -70.50000 179.5000 0.0000000E+00 + -69.50000 179.5000 0.0000000E+00 + -68.50000 179.5000 0.0000000E+00 + -67.50000 179.5000 0.0000000E+00 + -66.50000 179.5000 0.0000000E+00 + -65.50000 179.5000 0.0000000E+00 + -64.50000 179.5000 0.0000000E+00 + -63.50000 179.5000 0.0000000E+00 + -62.50000 179.5000 0.0000000E+00 + -61.50000 179.5000 0.0000000E+00 + -60.50000 179.5000 0.0000000E+00 + -59.50000 179.5000 0.0000000E+00 + -58.50000 179.5000 0.0000000E+00 + -57.50000 179.5000 0.0000000E+00 + -56.50000 179.5000 0.0000000E+00 + -55.50000 179.5000 0.0000000E+00 + -54.50000 179.5000 0.0000000E+00 + -53.50000 179.5000 0.0000000E+00 + -52.50000 179.5000 0.0000000E+00 + -51.50000 179.5000 0.0000000E+00 + -50.50000 179.5000 0.0000000E+00 + -49.50000 179.5000 0.0000000E+00 + -48.50000 179.5000 0.0000000E+00 + -47.50000 179.5000 0.0000000E+00 + -46.50000 179.5000 0.0000000E+00 + -45.50000 179.5000 0.0000000E+00 + -44.50000 179.5000 0.0000000E+00 + -43.50000 179.5000 0.0000000E+00 + -42.50000 179.5000 0.0000000E+00 + -41.50000 179.5000 0.0000000E+00 + -40.50000 179.5000 0.0000000E+00 + -39.50000 179.5000 0.0000000E+00 + -38.50000 179.5000 0.0000000E+00 + -37.50000 179.5000 0.0000000E+00 + -36.50000 179.5000 0.0000000E+00 + -35.50000 179.5000 0.0000000E+00 + -34.50000 179.5000 0.0000000E+00 + -33.50000 179.5000 0.0000000E+00 + -32.50000 179.5000 0.0000000E+00 + -31.50000 179.5000 0.0000000E+00 + -30.50000 179.5000 0.0000000E+00 + -29.50000 179.5000 0.0000000E+00 + -28.50000 179.5000 0.0000000E+00 + -27.50000 179.5000 0.0000000E+00 + -26.50000 179.5000 0.0000000E+00 + -25.50000 179.5000 0.0000000E+00 + -24.50000 179.5000 0.0000000E+00 + -23.50000 179.5000 0.0000000E+00 + -22.50000 179.5000 0.0000000E+00 + -21.50000 179.5000 0.0000000E+00 + -20.50000 179.5000 0.0000000E+00 + -19.50000 179.5000 0.0000000E+00 + -18.50000 179.5000 0.0000000E+00 + -17.50000 179.5000 0.0000000E+00 + -16.50000 179.5000 0.0000000E+00 + -15.50000 179.5000 0.0000000E+00 + -14.50000 179.5000 0.0000000E+00 + -13.50000 179.5000 0.0000000E+00 + -12.50000 179.5000 0.0000000E+00 + -11.50000 179.5000 0.0000000E+00 + -10.50000 179.5000 0.0000000E+00 + -9.500000 179.5000 0.0000000E+00 + -8.500000 179.5000 0.0000000E+00 + -7.500000 179.5000 0.0000000E+00 + -6.500000 179.5000 0.0000000E+00 + -5.500000 179.5000 0.0000000E+00 + -4.500000 179.5000 0.0000000E+00 + -3.500000 179.5000 0.0000000E+00 + -2.500000 179.5000 0.0000000E+00 + -1.500000 179.5000 0.0000000E+00 + -0.5000000 179.5000 0.0000000E+00 + 0.5000000 179.5000 0.0000000E+00 + 1.500000 179.5000 0.0000000E+00 + 2.500000 179.5000 0.0000000E+00 + 3.500000 179.5000 0.0000000E+00 + 4.500000 179.5000 0.0000000E+00 + 5.500000 179.5000 0.0000000E+00 + 6.500000 179.5000 0.0000000E+00 + 7.500000 179.5000 0.0000000E+00 + 8.500000 179.5000 0.0000000E+00 + 9.500000 179.5000 0.0000000E+00 + 10.50000 179.5000 0.0000000E+00 + 11.50000 179.5000 0.0000000E+00 + 12.50000 179.5000 0.0000000E+00 + 13.50000 179.5000 0.0000000E+00 + 14.50000 179.5000 0.0000000E+00 + 15.50000 179.5000 0.0000000E+00 + 16.50000 179.5000 0.0000000E+00 + 17.50000 179.5000 0.0000000E+00 + 18.50000 179.5000 0.0000000E+00 + 19.50000 179.5000 0.0000000E+00 + 20.50000 179.5000 0.0000000E+00 + 21.50000 179.5000 0.0000000E+00 + 22.50000 179.5000 0.0000000E+00 + 23.50000 179.5000 0.0000000E+00 + 24.50000 179.5000 0.0000000E+00 + 25.50000 179.5000 0.0000000E+00 + 26.50000 179.5000 0.0000000E+00 + 27.50000 179.5000 0.0000000E+00 + 28.50000 179.5000 0.0000000E+00 + 29.50000 179.5000 0.0000000E+00 + 30.50000 179.5000 0.0000000E+00 + 31.50000 179.5000 0.0000000E+00 + 32.50000 179.5000 0.0000000E+00 + 33.50000 179.5000 0.0000000E+00 + 34.50000 179.5000 0.0000000E+00 + 35.50000 179.5000 0.0000000E+00 + 36.50000 179.5000 0.0000000E+00 + 37.50000 179.5000 0.0000000E+00 + 38.50000 179.5000 0.0000000E+00 + 39.50000 179.5000 0.0000000E+00 + 40.50000 179.5000 0.0000000E+00 + 41.50000 179.5000 0.0000000E+00 + 42.50000 179.5000 0.0000000E+00 + 43.50000 179.5000 0.0000000E+00 + 44.50000 179.5000 0.0000000E+00 + 45.50000 179.5000 0.0000000E+00 + 46.50000 179.5000 0.0000000E+00 + 47.50000 179.5000 0.0000000E+00 + 48.50000 179.5000 0.0000000E+00 + 49.50000 179.5000 0.0000000E+00 + 50.50000 179.5000 0.0000000E+00 + 51.50000 179.5000 0.0000000E+00 + 52.50000 179.5000 0.0000000E+00 + 53.50000 179.5000 0.0000000E+00 + 54.50000 179.5000 0.0000000E+00 + 55.50000 179.5000 0.0000000E+00 + 56.50000 179.5000 0.0000000E+00 + 57.50000 179.5000 0.0000000E+00 + 58.50000 179.5000 0.0000000E+00 + 59.50000 179.5000 0.0000000E+00 + 60.50000 179.5000 0.0000000E+00 + 61.50000 179.5000 0.0000000E+00 + 62.50000 179.5000 0.0000000E+00 + 63.50000 179.5000 0.0000000E+00 + 64.50000 179.5000 0.0000000E+00 + 65.50000 179.5000 0.0000000E+00 + 66.50000 179.5000 0.0000000E+00 + 67.50000 179.5000 0.0000000E+00 + 68.50000 179.5000 0.0000000E+00 + 69.50000 179.5000 0.0000000E+00 + 70.50000 179.5000 0.0000000E+00 + 71.50000 179.5000 0.0000000E+00 + 72.50000 179.5000 0.0000000E+00 + 73.50000 179.5000 0.0000000E+00 + 74.50000 179.5000 0.0000000E+00 + 75.50000 179.5000 0.0000000E+00 + 76.50000 179.5000 0.0000000E+00 + 77.50000 179.5000 0.0000000E+00 + 78.50000 179.5000 0.0000000E+00 + 79.50000 179.5000 0.0000000E+00 + 80.50000 179.5000 0.0000000E+00 + 81.50000 179.5000 0.0000000E+00 + 82.50000 179.5000 0.0000000E+00 + 83.50000 179.5000 0.0000000E+00 + 84.50000 179.5000 0.0000000E+00 + 85.50000 179.5000 0.0000000E+00 + 86.50000 179.5000 0.0000000E+00 + 87.50000 179.5000 0.0000000E+00 + 88.50000 179.5000 0.0000000E+00 + 89.50000 179.5000 0.0000000E+00 diff --git a/etc/HUCM-SBM/bulkdens.asc_s_0_03_0_9 b/etc/HUCM-SBM/bulkdens.asc_s_0_03_0_9 new file mode 100755 index 0000000..5817159 --- /dev/null +++ b/etc/HUCM-SBM/bulkdens.asc_s_0_03_0_9 @@ -0,0 +1,39 @@ + 0.10000E+01 0.10000E+01 0.10000E+01 0.10000E+01 0.10000E+01 0.10000E+01 + 0.10000E+01 0.10000E+01 0.10000E+01 0.10000E+01 0.10000E+01 0.10000E+01 + 0.10000E+01 0.10000E+01 0.10000E+01 0.10000E+01 0.10000E+01 0.10000E+01 + 0.10000E+01 0.10000E+01 0.10000E+01 0.10000E+01 0.10000E+01 0.10000E+01 + 0.10000E+01 0.10000E+01 0.10000E+01 0.10000E+01 0.10000E+01 0.10000E+01 + 0.10000E+01 0.10000E+01 0.10000E+01 0.90000E+00 0.90000E+00 0.90000E+00 + 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 + 0.90000E+00 0.90000E+00 0.90000E+00 0.87368E+00 0.87072E+00 0.86777E+00 + 0.86483E+00 0.86189E+00 0.85897E+00 0.85606E+00 0.85316E+00 0.85026E+00 + 0.84738E+00 0.84451E+00 0.84164E+00 0.83879E+00 0.83595E+00 0.83311E+00 + 0.83029E+00 0.82747E+00 0.82467E+00 0.82187E+00 0.81908E+00 0.81631E+00 + 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 + 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 + 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 + 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 + 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 + 0.90000E+00 0.90000E+00 0.90000E+00 0.61183E+00 0.61183E+00 0.61183E+00 + 0.61183E+00 0.61183E+00 0.61183E+00 0.61183E+00 0.61183E+00 0.61183E+00 + 0.61183E+00 0.61183E+00 0.61183E+00 0.61183E+00 0.61183E+00 0.61183E+00 + 0.61183E+00 0.61183E+00 0.61183E+00 0.61183E+00 0.61183E+00 0.51790E+00 + 0.45557E+00 0.40075E+00 0.35252E+00 0.31010E+00 0.27278E+00 0.23995E+00 + 0.21108E+00 0.18567E+00 0.16333E+00 0.14367E+00 0.12638E+00 0.11118E+00 + 0.90000E+00 0.89500E+00 0.88500E+00 0.88200E+00 0.87500E+00 0.86500E+00 + 0.85500E+00 0.84200E+00 0.83000E+00 0.81500E+00 0.80500E+00 0.78600E+00 + 0.76500E+00 0.73000E+00 0.69500E+00 0.61183E+00 0.54000E+00 0.46000E+00 + 0.40000E+00 0.33000E+00 0.28000E+00 0.24000E+00 0.20000E+00 0.16000E+00 + 0.13500E+00 0.11000E+00 0.90000E-01 0.75000E-01 0.60000E-01 0.50000E-01 + 0.40000E-01 0.37500E-01 0.35000E-01 0.40000E+00 0.40000E+00 0.40000E+00 + 0.40000E+00 0.40000E+00 0.40000E+00 0.40000E+00 0.40000E+00 0.40000E+00 + 0.40000E+00 0.40000E+00 0.40000E+00 0.40000E+00 0.40000E+00 0.40000E+00 + 0.40000E+00 0.40000E+00 0.40000E+00 0.40000E+00 0.40000E+00 0.40000E+00 + 0.40000E+00 0.40000E+00 0.40000E+00 0.40000E+00 0.40000E+00 0.40000E+00 + 0.40000E+00 0.40000E+00 0.40000E+00 0.40000E+00 0.40000E+00 0.40000E+00 + 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 + 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 + 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 + 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 + 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 0.90000E+00 + 0.90000E+00 0.90000E+00 0.90000E+00 diff --git a/etc/HUCM-SBM/bulkradii.asc_s_0_03_0_9 b/etc/HUCM-SBM/bulkradii.asc_s_0_03_0_9 new file mode 100755 index 0000000..85032be --- /dev/null +++ b/etc/HUCM-SBM/bulkradii.asc_s_0_03_0_9 @@ -0,0 +1,39 @@ + 0.20000E-03 0.25198E-03 0.31748E-03 0.40000E-03 0.50397E-03 0.63496E-03 + 0.80000E-03 0.10079E-02 0.12699E-02 0.16000E-02 0.20159E-02 0.25398E-02 + 0.32000E-02 0.40317E-02 0.50797E-02 0.64000E-02 0.80635E-02 0.10159E-01 + 0.12800E-01 0.16127E-01 0.20319E-01 0.25600E-01 0.32254E-01 0.40637E-01 + 0.51200E-01 0.64508E-01 0.81275E-01 0.10240E+00 0.12902E+00 0.16255E+00 + 0.20480E+00 0.25803E+00 0.32510E+00 0.57452E-03 0.72384E-03 0.91199E-03 + 0.11490E-02 0.14477E-02 0.18240E-02 0.22981E-02 0.28954E-02 0.36479E-02 + 0.45961E-02 0.57908E-02 0.72959E-02 0.11572E-01 0.14770E-01 0.18851E-01 + 0.24060E-01 0.30709E-01 0.39194E-01 0.50025E-01 0.63848E-01 0.81491E-01 + 0.10401E+00 0.13275E+00 0.16943E+00 0.21625E+00 0.27601E+00 0.35228E+00 + 0.44962E+00 0.57387E+00 0.73244E+00 0.93484E+00 0.11932E+01 0.15229E+01 + 0.20715E-03 0.26099E-03 0.32912E-03 0.43555E-03 0.57638E-03 0.76276E-03 + 0.10094E-02 0.13358E-02 0.17677E-02 0.23394E-02 0.30958E-02 0.40969E-02 + 0.54216E-02 0.71748E-02 0.94948E-02 0.12565E-01 0.16628E-01 0.22005E-01 + 0.29120E-01 0.38537E-01 0.50998E-01 0.67488E-01 0.89311E-01 0.11819E+00 + 0.15641E+00 0.20698E+00 0.27391E+00 0.36249E+00 0.47970E+00 0.63481E+00 + 0.84009E+00 0.11117E+01 0.14712E+01 0.23559E-03 0.29682E-03 0.37397E-03 + 0.47118E-03 0.59365E-03 0.74795E-03 0.95894E-03 0.12777E-02 0.17025E-02 + 0.22685E-02 0.30227E-02 0.40275E-02 0.53665E-02 0.71506E-02 0.95278E-02 + 0.12695E-01 0.16916E-01 0.22539E-01 0.30032E-01 0.40017E-01 0.70019E-01 + 0.98384E-01 0.13824E+00 0.19424E+00 0.27293E+00 0.38350E+00 0.53885E+00 + 0.75714E+00 0.10639E+01 0.14948E+01 0.21004E+01 0.29513E+01 0.41469E+01 + 0.20715E-03 0.26148E-03 0.33067E-03 0.41710E-03 0.52691E-03 0.66640E-03 + 0.84289E-03 0.10674E-02 0.13513E-02 0.17129E-02 0.21670E-02 0.27521E-02 + 0.34989E-02 0.44777E-02 0.57347E-02 0.75389E-02 0.99020E-02 0.13161E-01 + 0.17372E-01 0.23337E-01 0.31058E-01 0.41194E-01 0.55153E-01 0.74854E-01 + 0.99806E-01 0.13463E+00 0.18136E+00 0.24282E+00 0.32955E+00 0.44123E+00 + 0.59884E+00 0.77090E+00 0.99387E+00 0.27144E-03 0.34200E-03 0.43089E-03 + 0.54288E-03 0.68399E-03 0.86177E-03 0.10858E-02 0.13680E-02 0.17235E-02 + 0.21715E-02 0.27360E-02 0.34471E-02 0.43431E-02 0.54719E-02 0.68942E-02 + 0.86861E-02 0.10944E-01 0.13788E-01 0.17372E-01 0.21888E-01 0.27577E-01 + 0.34745E-01 0.43775E-01 0.55154E-01 0.69489E-01 0.87551E-01 0.11031E+00 + 0.13898E+00 0.17510E+00 0.22061E+00 0.27796E+00 0.35020E+00 0.44123E+00 + 0.20715E-03 0.26099E-03 0.32883E-03 0.41430E-03 0.52198E-03 0.65766E-03 + 0.82860E-03 0.10440E-02 0.13153E-02 0.16572E-02 0.20879E-02 0.26306E-02 + 0.33144E-02 0.41759E-02 0.52613E-02 0.66288E-02 0.83517E-02 0.10523E-01 + 0.13258E-01 0.16703E-01 0.21045E-01 0.26515E-01 0.33407E-01 0.42090E-01 + 0.53030E-01 0.66814E-01 0.84180E-01 0.10606E+00 0.13363E+00 0.16836E+00 + 0.21212E+00 0.26725E+00 0.33672E+00 diff --git a/etc/HUCM-SBM/capacity.asc b/etc/HUCM-SBM/capacity.asc new file mode 100755 index 0000000..168dcb1 --- /dev/null +++ b/etc/HUCM-SBM/capacity.asc @@ -0,0 +1,39 @@ + 0.20000E-03 0.25198E-03 0.31748E-03 0.40000E-03 0.50397E-03 0.63496E-03 + 0.80000E-03 0.10079E-02 0.12699E-02 0.16000E-02 0.20159E-02 0.25398E-02 + 0.32000E-02 0.40317E-02 0.50797E-02 0.64000E-02 0.80635E-02 0.10159E-01 + 0.12800E-01 0.16127E-01 0.20319E-01 0.25600E-01 0.32254E-01 0.40637E-01 + 0.51200E-01 0.64508E-01 0.81275E-01 0.10240E+00 0.12902E+00 0.16255E+00 + 0.20480E+00 0.25803E+00 0.32510E+00 0.31936E-03 0.40397E-03 0.51099E-03 + 0.64638E-03 0.81764E-03 0.10343E-02 0.13084E-02 0.16551E-02 0.20937E-02 + 0.26486E-02 0.33506E-02 0.42387E-02 0.64360E-02 0.81426E-02 0.10302E-01 + 0.13035E-01 0.16494E-01 0.20872E-01 0.26412E-01 0.33426E-01 0.42304E-01 + 0.53543E-01 0.67770E-01 0.85783E-01 0.10859E+00 0.13746E+00 0.17403E+00 + 0.22032E+00 0.27895E+00 0.35319E+00 0.44722E+00 0.56630E+00 0.71712E+00 + 0.13188E-03 0.16615E-03 0.20953E-03 0.27728E-03 0.36694E-03 0.48559E-03 + 0.64261E-03 0.85040E-03 0.11254E-02 0.14893E-02 0.19709E-02 0.26082E-02 + 0.34515E-02 0.45676E-02 0.60446E-02 0.79991E-02 0.10586E-01 0.14009E-01 + 0.18539E-01 0.24533E-01 0.32466E-01 0.42964E-01 0.56857E-01 0.75242E-01 + 0.99573E-01 0.13177E+00 0.17438E+00 0.23077E+00 0.30539E+00 0.40414E+00 + 0.53482E+00 0.70775E+00 0.93661E+00 0.14998E-03 0.18896E-03 0.23808E-03 + 0.29996E-03 0.37793E-03 0.47616E-03 0.61048E-03 0.81343E-03 0.10839E-02 + 0.14442E-02 0.19243E-02 0.25640E-02 0.34164E-02 0.45522E-02 0.60656E-02 + 0.80820E-02 0.10769E-01 0.14349E-01 0.19119E-01 0.25475E-01 0.44576E-01 + 0.62633E-01 0.88006E-01 0.12366E+00 0.17375E+00 0.24414E+00 0.34304E+00 + 0.48201E+00 0.67728E+00 0.95164E+00 0.13372E+01 0.18788E+01 0.26400E+01 + 0.92832E-03 0.11696E-02 0.14736E-02 0.18566E-02 0.23392E-02 0.29472E-02 + 0.37133E-02 0.46784E-02 0.58944E-02 0.74265E-02 0.93569E-02 0.11789E-01 + 0.14853E-01 0.18714E-01 0.23578E-01 0.29706E-01 0.37427E-01 0.47156E-01 + 0.59412E-01 0.74855E-01 0.94311E-01 0.11882E+00 0.14971E+00 0.18862E+00 + 0.23765E+00 0.29942E+00 0.37724E+00 0.47530E+00 0.59884E+00 0.75449E+00 + 0.95060E+00 0.11977E+01 0.15090E+01 0.27144E-03 0.34200E-03 0.43089E-03 + 0.54288E-03 0.68399E-03 0.86177E-03 0.10858E-02 0.13680E-02 0.17235E-02 + 0.21715E-02 0.27360E-02 0.34471E-02 0.43431E-02 0.54719E-02 0.68942E-02 + 0.86861E-02 0.10944E-01 0.13788E-01 0.17372E-01 0.21888E-01 0.27577E-01 + 0.34745E-01 0.43775E-01 0.55154E-01 0.69489E-01 0.87551E-01 0.11031E+00 + 0.13898E+00 0.17510E+00 0.22061E+00 0.27796E+00 0.35020E+00 0.44123E+00 + 0.20715E-03 0.26099E-03 0.32883E-03 0.41430E-03 0.52198E-03 0.65766E-03 + 0.82860E-03 0.10440E-02 0.13153E-02 0.16572E-02 0.20879E-02 0.26306E-02 + 0.33144E-02 0.41759E-02 0.52613E-02 0.66288E-02 0.83517E-02 0.10523E-01 + 0.13258E-01 0.16703E-01 0.21045E-01 0.26515E-01 0.33407E-01 0.42090E-01 + 0.53030E-01 0.66814E-01 0.84180E-01 0.10606E+00 0.13363E+00 0.16836E+00 + 0.21212E+00 0.26725E+00 0.33672E+00 diff --git a/etc/HUCM-SBM/capacity.asc-orig b/etc/HUCM-SBM/capacity.asc-orig new file mode 100755 index 0000000..168dcb1 --- /dev/null +++ b/etc/HUCM-SBM/capacity.asc-orig @@ -0,0 +1,39 @@ + 0.20000E-03 0.25198E-03 0.31748E-03 0.40000E-03 0.50397E-03 0.63496E-03 + 0.80000E-03 0.10079E-02 0.12699E-02 0.16000E-02 0.20159E-02 0.25398E-02 + 0.32000E-02 0.40317E-02 0.50797E-02 0.64000E-02 0.80635E-02 0.10159E-01 + 0.12800E-01 0.16127E-01 0.20319E-01 0.25600E-01 0.32254E-01 0.40637E-01 + 0.51200E-01 0.64508E-01 0.81275E-01 0.10240E+00 0.12902E+00 0.16255E+00 + 0.20480E+00 0.25803E+00 0.32510E+00 0.31936E-03 0.40397E-03 0.51099E-03 + 0.64638E-03 0.81764E-03 0.10343E-02 0.13084E-02 0.16551E-02 0.20937E-02 + 0.26486E-02 0.33506E-02 0.42387E-02 0.64360E-02 0.81426E-02 0.10302E-01 + 0.13035E-01 0.16494E-01 0.20872E-01 0.26412E-01 0.33426E-01 0.42304E-01 + 0.53543E-01 0.67770E-01 0.85783E-01 0.10859E+00 0.13746E+00 0.17403E+00 + 0.22032E+00 0.27895E+00 0.35319E+00 0.44722E+00 0.56630E+00 0.71712E+00 + 0.13188E-03 0.16615E-03 0.20953E-03 0.27728E-03 0.36694E-03 0.48559E-03 + 0.64261E-03 0.85040E-03 0.11254E-02 0.14893E-02 0.19709E-02 0.26082E-02 + 0.34515E-02 0.45676E-02 0.60446E-02 0.79991E-02 0.10586E-01 0.14009E-01 + 0.18539E-01 0.24533E-01 0.32466E-01 0.42964E-01 0.56857E-01 0.75242E-01 + 0.99573E-01 0.13177E+00 0.17438E+00 0.23077E+00 0.30539E+00 0.40414E+00 + 0.53482E+00 0.70775E+00 0.93661E+00 0.14998E-03 0.18896E-03 0.23808E-03 + 0.29996E-03 0.37793E-03 0.47616E-03 0.61048E-03 0.81343E-03 0.10839E-02 + 0.14442E-02 0.19243E-02 0.25640E-02 0.34164E-02 0.45522E-02 0.60656E-02 + 0.80820E-02 0.10769E-01 0.14349E-01 0.19119E-01 0.25475E-01 0.44576E-01 + 0.62633E-01 0.88006E-01 0.12366E+00 0.17375E+00 0.24414E+00 0.34304E+00 + 0.48201E+00 0.67728E+00 0.95164E+00 0.13372E+01 0.18788E+01 0.26400E+01 + 0.92832E-03 0.11696E-02 0.14736E-02 0.18566E-02 0.23392E-02 0.29472E-02 + 0.37133E-02 0.46784E-02 0.58944E-02 0.74265E-02 0.93569E-02 0.11789E-01 + 0.14853E-01 0.18714E-01 0.23578E-01 0.29706E-01 0.37427E-01 0.47156E-01 + 0.59412E-01 0.74855E-01 0.94311E-01 0.11882E+00 0.14971E+00 0.18862E+00 + 0.23765E+00 0.29942E+00 0.37724E+00 0.47530E+00 0.59884E+00 0.75449E+00 + 0.95060E+00 0.11977E+01 0.15090E+01 0.27144E-03 0.34200E-03 0.43089E-03 + 0.54288E-03 0.68399E-03 0.86177E-03 0.10858E-02 0.13680E-02 0.17235E-02 + 0.21715E-02 0.27360E-02 0.34471E-02 0.43431E-02 0.54719E-02 0.68942E-02 + 0.86861E-02 0.10944E-01 0.13788E-01 0.17372E-01 0.21888E-01 0.27577E-01 + 0.34745E-01 0.43775E-01 0.55154E-01 0.69489E-01 0.87551E-01 0.11031E+00 + 0.13898E+00 0.17510E+00 0.22061E+00 0.27796E+00 0.35020E+00 0.44123E+00 + 0.20715E-03 0.26099E-03 0.32883E-03 0.41430E-03 0.52198E-03 0.65766E-03 + 0.82860E-03 0.10440E-02 0.13153E-02 0.16572E-02 0.20879E-02 0.26306E-02 + 0.33144E-02 0.41759E-02 0.52613E-02 0.66288E-02 0.83517E-02 0.10523E-01 + 0.13258E-01 0.16703E-01 0.21045E-01 0.26515E-01 0.33407E-01 0.42090E-01 + 0.53030E-01 0.66814E-01 0.84180E-01 0.10606E+00 0.13363E+00 0.16836E+00 + 0.21212E+00 0.26725E+00 0.33672E+00 diff --git a/etc/HUCM-SBM/capacity.asc-plates b/etc/HUCM-SBM/capacity.asc-plates new file mode 100755 index 0000000..6799662 --- /dev/null +++ b/etc/HUCM-SBM/capacity.asc-plates @@ -0,0 +1,39 @@ + 0.20000E-03 0.25198E-03 0.31748E-03 0.40000E-03 0.50397E-03 0.63496E-03 + 0.80000E-03 0.10079E-02 0.12699E-02 0.16000E-02 0.20159E-02 0.25398E-02 + 0.32000E-02 0.40317E-02 0.50797E-02 0.64000E-02 0.80635E-02 0.10159E-01 + 0.12800E-01 0.16127E-01 0.20319E-01 0.25600E-01 0.32254E-01 0.40637E-01 + 0.51200E-01 0.64508E-01 0.81275E-01 0.10240E+00 0.12902E+00 0.16255E+00 + 0.20480E+00 0.25803E+00 0.32510E+00 0.31936E-03 0.40397E-03 0.51099E-03 + 0.64638E-03 0.81764E-03 0.10343E-02 0.13084E-02 0.16551E-02 0.20937E-02 + 0.26486E-02 0.33506E-02 0.42387E-02 0.64360E-02 0.81426E-02 0.10302E-01 + 0.13035E-01 0.16494E-01 0.20872E-01 0.26412E-01 0.33426E-01 0.42304E-01 + 0.53543E-01 0.67770E-01 0.85783E-01 0.10859E+00 0.13746E+00 0.17403E+00 + 0.22032E+00 0.27895E+00 0.35319E+00 0.44722E+00 0.56630E+00 0.71712E+00 + 0.17773E-04 0.22393E-04 0.28238E-04 0.37370E-04 0.49453E-04 0.65445E-04 + 0.86607E-04 0.11461E-03 0.15167E-03 0.20072E-03 0.26562E-04 0.35151E-03 + 0.46517E-03 0.61560E-03 0.81465E-03 0.10781E-02 0.14267E-02 0.18880E-02 + 0.24985E-02 0.33065E-02 0.43756E-02 0.57905E-02 0.76629E-02 0.10141E-01 + 0.13420E-01 0.17759E-01 0.23501E-01 0.31102E-01 0.41158E-01 0.54467E-01 + 0.72080E-01 0.95384E-01 0.12623E+00 0.14998E-03 0.18896E-03 0.23808E-03 + 0.29996E-03 0.37793E-03 0.47616E-03 0.61048E-03 0.81343E-03 0.10839E-02 + 0.14442E-02 0.19243E-02 0.25640E-02 0.34164E-02 0.45522E-02 0.60656E-02 + 0.80820E-02 0.10769E-01 0.14349E-01 0.19119E-01 0.25475E-01 0.44576E-01 + 0.62633E-01 0.88006E-01 0.12366E+00 0.17375E+00 0.24414E+00 0.34304E+00 + 0.48201E+00 0.67728E+00 0.95164E+00 0.13372E+01 0.18788E+01 0.26400E+01 + 0.92832E-03 0.11696E-02 0.14736E-02 0.18566E-02 0.23392E-02 0.29472E-02 + 0.37133E-02 0.46784E-02 0.58944E-02 0.74265E-02 0.93569E-02 0.11789E-01 + 0.14853E-01 0.18714E-01 0.23578E-01 0.29706E-01 0.37427E-01 0.47156E-01 + 0.59412E-01 0.74855E-01 0.94311E-01 0.11882E+00 0.14971E+00 0.18862E+00 + 0.23765E+00 0.29942E+00 0.37724E+00 0.47530E+00 0.59884E+00 0.75449E+00 + 0.95060E+00 0.11977E+01 0.15090E+01 0.27144E-03 0.34200E-03 0.43089E-03 + 0.54288E-03 0.68399E-03 0.86177E-03 0.10858E-02 0.13680E-02 0.17235E-02 + 0.21715E-02 0.27360E-02 0.34471E-02 0.43431E-02 0.54719E-02 0.68942E-02 + 0.86861E-02 0.10944E-01 0.13788E-01 0.17372E-01 0.21888E-01 0.27577E-01 + 0.34745E-01 0.43775E-01 0.55154E-01 0.69489E-01 0.87551E-01 0.11031E+00 + 0.13898E+00 0.17510E+00 0.22061E+00 0.27796E+00 0.35020E+00 0.44123E+00 + 0.20715E-03 0.26099E-03 0.32883E-03 0.41430E-03 0.52198E-03 0.65766E-03 + 0.82860E-03 0.10440E-02 0.13153E-02 0.16572E-02 0.20879E-02 0.26306E-02 + 0.33144E-02 0.41759E-02 0.52613E-02 0.66288E-02 0.83517E-02 0.10523E-01 + 0.13258E-01 0.16703E-01 0.21045E-01 0.26515E-01 0.33407E-01 0.42090E-01 + 0.53030E-01 0.66814E-01 0.84180E-01 0.10606E+00 0.13363E+00 0.16836E+00 + 0.21212E+00 0.26725E+00 0.33672E+00 diff --git a/etc/HUCM-SBM/capacity.asc-snowlow b/etc/HUCM-SBM/capacity.asc-snowlow new file mode 100755 index 0000000..1ad3c52 --- /dev/null +++ b/etc/HUCM-SBM/capacity.asc-snowlow @@ -0,0 +1,39 @@ + 0.20000E-03 0.25198E-03 0.31748E-03 0.40000E-03 0.50397E-03 0.63496E-03 + 0.80000E-03 0.10079E-02 0.12699E-02 0.16000E-02 0.20159E-02 0.25398E-02 + 0.32000E-02 0.40317E-02 0.50797E-02 0.64000E-02 0.80635E-02 0.10159E-01 + 0.12800E-01 0.16127E-01 0.20319E-01 0.25600E-01 0.32254E-01 0.40637E-01 + 0.51200E-01 0.64508E-01 0.81275E-01 0.10240E+00 0.12902E+00 0.16255E+00 + 0.20480E+00 0.25803E+00 0.32510E+00 0.31936E-03 0.40397E-03 0.51099E-03 + 0.64638E-03 0.81764E-03 0.10343E-02 0.13084E-02 0.16551E-02 0.20937E-02 + 0.26486E-02 0.33506E-02 0.42387E-02 0.64360E-02 0.81426E-02 0.10302E-01 + 0.13035E-01 0.16494E-01 0.20872E-01 0.26412E-01 0.33426E-01 0.42304E-01 + 0.53543E-01 0.67770E-01 0.85783E-01 0.10859E+00 0.13746E+00 0.17403E+00 + 0.22032E+00 0.27895E+00 0.35319E+00 0.44722E+00 0.56630E+00 0.71712E+00 + 0.13188E-03 0.16615E-03 0.20953E-03 0.27728E-03 0.36694E-03 0.48559E-03 + 0.64261E-03 0.85040E-03 0.11254E-02 0.14893E-02 0.19709E-02 0.26082E-02 + 0.34515E-02 0.45676E-02 0.60446E-02 0.79991E-02 0.10586E-01 0.14009E-01 + 0.18539E-01 0.24533E-01 0.32466E-01 0.42964E-01 0.56857E-01 0.75242E-01 + 0.99573E-01 0.13177E+00 0.17438E+00 0.23077E+00 0.30539E+00 0.40414E+00 + 0.53482E+00 0.70775E+00 0.93661E+00 0.14998E-03 0.18896E-03 0.23808E-03 + 0.29996E-03 0.37793E-03 0.47616E-03 0.61048E-03 0.81343E-03 0.10839E-02 + 0.14442E-02 0.19243E-02 0.25640E-02 0.34164E-02 0.45522E-02 0.60656E-02 + 0.80820E-02 0.10769E-01 0.14349E-01 0.19119E-01 0.25475E-01 0.44576E-01 + 0.62633E-01 0.88006E-01 0.12366E+00 0.17375E+00 0.24414E+00 0.34304E+00 + 0.48201E+00 0.67728E+00 0.95164E+00 0.13372E+01 0.18788E+01 0.26400E+01 + 0.13187E-03 0.16646E-03 0.21050E-03 0.26553E-03 0.33543E-03 0.42423E-03 + 0.53658E-03 0.67951E-03 0.86024E-03 0.10904E-02 0.13795E-02 0.17520E-02 + 0.22274E-02 0.28505E-02 0.36507E-02 0.47993E-02 0.63036E-02 0.83783E-02 + 0.11059E-01 0.14856E-01 0.19772E-01 0.26224E-01 0.35110E-01 0.47652E-01 + 0.63537E-01 0.85705E-01 0.11545E+00 0.15458E+00 0.20979E+00 0.28089E+00 + 0.38122E+00 0.49075E+00 0.63270E+00 0.27144E-03 0.34200E-03 0.43089E-03 + 0.54288E-03 0.68399E-03 0.86177E-03 0.10858E-02 0.13680E-02 0.17235E-02 + 0.21715E-02 0.27360E-02 0.34471E-02 0.43431E-02 0.54719E-02 0.68942E-02 + 0.86861E-02 0.10944E-01 0.13788E-01 0.17372E-01 0.21888E-01 0.27577E-01 + 0.34745E-01 0.43775E-01 0.55154E-01 0.69489E-01 0.87551E-01 0.11031E+00 + 0.13898E+00 0.17510E+00 0.22061E+00 0.27796E+00 0.35020E+00 0.44123E+00 + 0.20715E-03 0.26099E-03 0.32883E-03 0.41430E-03 0.52198E-03 0.65766E-03 + 0.82860E-03 0.10440E-02 0.13153E-02 0.16572E-02 0.20879E-02 0.26306E-02 + 0.33144E-02 0.41759E-02 0.52613E-02 0.66288E-02 0.83517E-02 0.10523E-01 + 0.13258E-01 0.16703E-01 0.21045E-01 0.26515E-01 0.33407E-01 0.42090E-01 + 0.53030E-01 0.66814E-01 0.84180E-01 0.10606E+00 0.13363E+00 0.16836E+00 + 0.21212E+00 0.26725E+00 0.33672E+00 diff --git a/etc/HUCM-SBM/coeff_p.asc b/etc/HUCM-SBM/coeff_p.asc new file mode 100755 index 0000000..3041cd1 --- /dev/null +++ b/etc/HUCM-SBM/coeff_p.asc @@ -0,0 +1,3080 @@ + 1 1 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 1 2 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 1 2 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 1 3 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 1 3 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 1 3 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 1 4 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 1 4 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 1 4 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 1 4 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 1 5 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 1 5 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 1 5 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 1 5 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 1 5 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 1 6 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 1 6 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 1 6 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 1 6 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 1 6 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 1 6 6 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 1 7 1 0.11047003E-17 0.10307805E-17 0.10717125E+01 + 1 7 2 0.20305159E-18 0.19335881E-18 0.10501284E+01 + 1 7 3 0.22336779E-19 0.21895637E-19 0.10201475E+01 + 1 7 4 0.53877433E-19 0.54466284E-19 0.98918871E+00 + 1 7 5 0.10267976E-18 0.10666196E-18 0.96266528E+00 + 1 7 6 0.10539327E-18 0.11363814E-18 0.92744630E+00 + 1 7 7 0.22952905E-19 0.25917971E-19 0.88559810E+00 + 1 8 1 0.42579908E-17 0.39830377E-17 0.10690310E+01 + 1 8 2 0.78736353E-18 0.73962352E-18 0.10645464E+01 + 1 8 3 0.84169334E-19 0.80705885E-19 0.10429145E+01 + 1 8 4 0.20171583E-18 0.19913722E-18 0.10129489E+01 + 1 8 5 0.42344403E-18 0.43133287E-18 0.98171053E+00 + 1 8 6 0.64943211E-18 0.68310509E-18 0.95070600E+00 + 1 8 7 0.45809677E-18 0.49923098E-18 0.91760486E+00 + 1 8 8 0.40035419E-18 0.41176407E-18 0.97229026E+00 + 1 9 1 0.16701938E-16 0.15248833E-16 0.10952929E+01 + 1 9 2 0.29880862E-17 0.28106930E-17 0.10631137E+01 + 1 9 3 0.31331301E-18 0.29590490E-18 0.10588301E+01 + 1 9 4 0.72844791E-18 0.70243626E-18 0.10370306E+01 + 1 9 5 0.15232363E-17 0.15145838E-17 0.10057128E+01 + 1 9 6 0.26451296E-17 0.27144561E-17 0.97446026E+00 + 1 9 7 0.28563333E-17 0.30392675E-17 0.93980978E+00 + 1 9 8 0.69908159E-17 0.71204711E-17 0.98179121E+00 + 1 9 9 0.19622678E-35 0.19725004E-35 0.99481238E+00 + 1 10 1 0.63516613E-16 0.59072763E-16 0.10752267E+01 + 1 10 2 0.11934319E-16 0.10937587E-16 0.10911291E+01 + 1 10 3 0.12479908E-17 0.11797182E-17 0.10578720E+01 + 1 10 4 0.30273545E-17 0.28735122E-17 0.10535381E+01 + 1 10 5 0.64589377E-17 0.62605124E-17 0.10316947E+01 + 1 10 6 0.11019624E-16 0.11000577E-16 0.10017315E+01 + 1 10 7 0.12361610E-16 0.12799918E-16 0.96575697E+00 + 1 10 8 0.51043805E-16 0.52303324E-16 0.97591894E+00 + 1 10 9 0.22154424E-34 0.22249205E-34 0.99574004E+00 + 1 10 10 0.00000000E+00 0.00000000E+00 0.99449213E+00 + 1 11 1 0.28564705E-15 0.26894579E-15 0.10620990E+01 + 1 11 2 0.54852568E-16 0.51244508E-16 0.10704087E+01 + 1 11 3 0.63864068E-17 0.58735185E-17 0.10873222E+01 + 1 11 4 0.15159802E-16 0.14401090E-16 0.10526843E+01 + 1 11 5 0.31201399E-16 0.29765957E-16 0.10482243E+01 + 1 11 6 0.48247015E-16 0.47036552E-16 0.10257345E+01 + 1 11 7 0.49406151E-16 0.49808935E-16 0.99191343E+00 + 1 11 8 0.37668809E-15 0.38902233E-15 0.96829426E+00 + 1 11 9 0.10642375E-33 0.10674586E-33 0.99698253E+00 + 1 11 10 0.00000000E+00 0.00000000E+00 0.99512340E+00 + 1 11 11 0.00000000E+00 0.00000000E+00 0.99399930E+00 + 1 12 1 0.12028450E-14 0.11427086E-14 0.10526262E+01 + 1 12 2 0.22952698E-15 0.21713845E-15 0.10570536E+01 + 1 12 3 0.25685426E-16 0.24094237E-16 0.10660402E+01 + 1 12 4 0.61196602E-16 0.56434463E-16 0.10843835E+01 + 1 12 5 0.11537757E-15 0.11016952E-15 0.10472730E+01 + 1 12 6 0.17369910E-15 0.16652690E-15 0.10430693E+01 + 1 12 7 0.17914172E-15 0.17576154E-15 0.10192317E+01 + 1 12 8 0.32932771E-14 0.34386689E-14 0.95771860E+00 + 1 12 9 0.10920862E-14 0.11111316E-14 0.98285946E+00 + 1 12 10 0.00000000E+00 0.00000000E+00 0.99640426E+00 + 1 12 11 0.00000000E+00 0.00000000E+00 0.99485003E+00 + 1 12 12 0.00000000E+00 0.00000000E+00 0.99376764E+00 + 1 13 1 0.41655628E-14 0.39855761E-14 0.10451595E+01 + 1 13 2 0.78666976E-15 0.75097947E-15 0.10475250E+01 + 1 13 3 0.85898755E-16 0.81631267E-16 0.10522776E+01 + 1 13 4 0.20063906E-15 0.18894806E-15 0.10618742E+01 + 1 13 5 0.39654275E-15 0.36667859E-15 0.10814451E+01 + 1 13 6 0.57978208E-15 0.55625756E-15 0.10422907E+01 + 1 13 7 0.62039256E-15 0.59782392E-15 0.10377513E+01 + 1 13 8 0.62527155E-14 0.61967083E-14 0.10090382E+01 + 1 13 9 0.17656496E-13 0.18887562E-13 0.93482132E+00 + 1 13 10 0.00000000E+00 0.00000000E+00 0.82119350E+00 + 1 13 11 0.00000000E+00 0.00000000E+00 0.93556432E+00 + 1 13 12 0.00000000E+00 0.00000000E+00 0.99557497E+00 + 1 13 13 0.00000000E+00 0.00000000E+00 0.99300243E+00 + 1 14 1 0.14040771E-13 0.13515076E-13 0.10388970E+01 + 1 14 2 0.26320729E-14 0.25304688E-14 0.10401523E+01 + 1 14 3 0.28247363E-15 0.27091343E-15 0.10426712E+01 + 1 14 4 0.65076845E-15 0.62109689E-15 0.10477728E+01 + 1 14 5 0.12669000E-14 0.11974439E-14 0.10580036E+01 + 1 14 6 0.19607542E-14 0.18174611E-14 0.10788424E+01 + 1 14 7 0.20554044E-14 0.19813783E-14 0.10373609E+01 + 1 14 8 0.21635627E-13 0.22121467E-13 0.97803764E+00 + 1 14 9 0.96687087E-14 0.10193347E-13 0.94853134E+00 + 1 14 10 0.00000000E+00 0.00000000E+00 0.70985829E+00 + 1 14 11 0.00000000E+00 0.00000000E+00 0.52643605E+00 + 1 14 12 0.00000000E+00 0.00000000E+00 0.86933926E+00 + 1 14 13 0.00000000E+00 0.00000000E+00 0.10090678E+01 + 1 14 14 0.00000000E+00 0.00000000E+00 0.99218681E+00 + 1 15 1 0.46541247E-13 0.45039767E-13 0.10333368E+01 + 1 15 2 0.86669749E-14 0.83819638E-14 0.10340029E+01 + 1 15 3 0.91502209E-15 0.88379020E-15 0.10353386E+01 + 1 15 4 0.20811648E-14 0.20049317E-14 0.10380228E+01 + 1 15 5 0.39981024E-14 0.38317408E-14 0.10434167E+01 + 1 15 6 0.61108476E-14 0.57960017E-14 0.10543212E+01 + 1 15 7 0.66093050E-14 0.61350205E-14 0.10773077E+01 + 1 15 8 0.22891717E-13 0.22956174E-13 0.99719217E+00 + 1 15 9 0.44862149E-13 0.46113731E-13 0.97285881E+00 + 1 15 10 0.00000000E+00 0.00000000E+00 0.63977360E+00 + 1 15 11 0.00000000E+00 0.00000000E+00 0.43915858E+00 + 1 15 12 0.00000000E+00 0.00000000E+00 0.89587341E+00 + 1 15 13 0.00000000E+00 0.00000000E+00 0.92805872E+00 + 1 15 14 0.00000000E+00 0.00000000E+00 0.95347945E+00 + 1 15 15 0.00000000E+00 0.00000000E+00 0.10003488E+01 + 1 16 1 0.15133542E-12 0.14718401E-12 0.10282055E+01 + 1 16 2 0.28014913E-13 0.27237079E-13 0.10285579E+01 + 1 16 3 0.29123582E-14 0.28295478E-14 0.10292663E+01 + 1 16 4 0.65422256E-14 0.63474338E-14 0.10306883E+01 + 1 16 5 0.12398905E-13 0.11996472E-13 0.10335459E+01 + 1 16 6 0.18685768E-13 0.17979284E-13 0.10392943E+01 + 1 16 7 0.18277416E-13 0.17454038E-13 0.10471741E+01 + 1 16 8 0.58003820E-13 0.54159018E-13 0.10709910E+01 + 1 16 9 0.26577737E-12 0.26593639E-12 0.99940203E+00 + 1 16 10 0.00000000E+00 0.00000000E+00 0.68548151E+00 + 1 16 11 0.00000000E+00 0.00000000E+00 0.45779332E+00 + 1 16 12 0.00000000E+00 0.00000000E+00 0.90358367E+00 + 1 16 13 0.00000000E+00 0.00000000E+00 0.85241134E+00 + 1 16 14 0.00000000E+00 0.00000000E+00 0.64492282E+00 + 1 16 15 0.00000000E+00 0.00000000E+00 0.88262484E+00 + 1 16 16 0.00000000E+00 0.00000000E+00 0.96504988E+00 + 1 17 1 0.48272780E-12 0.47170734E-12 0.10233629E+01 + 1 17 2 0.88890004E-13 0.86844967E-13 0.10235481E+01 + 1 17 3 0.91090225E-14 0.88962035E-14 0.10239225E+01 + 1 17 4 0.20215861E-13 0.19729033E-13 0.10246757E+01 + 1 17 5 0.37762644E-13 0.36798980E-13 0.10261872E+01 + 1 17 6 0.55873782E-13 0.54289011E-13 0.10291914E+01 + 1 17 7 0.51763568E-13 0.50460568E-13 0.10258221E+01 + 1 17 8 0.47577702E-12 0.46981261E-12 0.10126953E+01 + 1 17 9 0.54954369E-12 0.51338856E-12 0.10704245E+01 + 1 17 10 0.00000000E+00 0.00000000E+00 0.64318717E+00 + 1 17 11 0.00000000E+00 0.00000000E+00 0.43613131E+00 + 1 17 12 0.00000000E+00 0.00000000E+00 0.82081966E+00 + 1 17 13 0.00000000E+00 0.00000000E+00 0.83349376E+00 + 1 17 14 0.00000000E+00 0.00000000E+00 0.63756211E+00 + 1 17 15 0.00000000E+00 0.00000000E+00 0.65785445E+00 + 1 17 16 0.00000000E+00 0.00000000E+00 0.10677681E+01 + 1 17 17 0.00000000E+00 0.00000000E+00 0.99050797E+00 + 1 18 1 0.15153244E-11 0.14874629E-11 0.10187308E+01 + 1 18 2 0.27773983E-12 0.27260728E-12 0.10188277E+01 + 1 18 3 0.28093502E-13 0.27568998E-13 0.10190251E+01 + 1 18 4 0.61643057E-13 0.60468484E-13 0.10194245E+01 + 1 18 5 0.11349789E-12 0.11124775E-12 0.10202264E+01 + 1 18 6 0.16444054E-12 0.16095301E-12 0.10216680E+01 + 1 18 7 0.30688184E-12 0.30565368E-12 0.10040181E+01 + 1 18 8 0.26088089E-11 0.25786177E-11 0.10117083E+01 + 1 18 9 0.15191835E-12 0.14492302E-12 0.10482693E+01 + 1 18 10 0.00000000E+00 0.00000000E+00 0.33281721E+00 + 1 18 11 0.00000000E+00 0.00000000E+00 0.23695460E+00 + 1 18 12 0.00000000E+00 0.00000000E+00 0.50359715E+00 + 1 18 13 0.00000000E+00 0.00000000E+00 0.67458613E+00 + 1 18 14 0.00000000E+00 0.00000000E+00 0.61393011E+00 + 1 18 15 0.00000000E+00 0.00000000E+00 0.59434079E+00 + 1 18 16 0.00000000E+00 0.00000000E+00 0.11042773E+01 + 1 18 17 0.00000000E+00 0.00000000E+00 0.10195210E+01 + 1 18 18 0.00000000E+00 0.00000000E+00 0.10596630E+01 + 2 1 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 2 2 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 2 2 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 2 3 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 2 3 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 2 3 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 2 4 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 2 4 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 2 4 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 2 4 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 2 5 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 2 5 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 2 5 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 2 5 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 2 5 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 2 6 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 2 6 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 2 6 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 2 6 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 2 6 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 2 6 6 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 2 7 1 0.21430840E-18 0.19996818E-18 0.10717125E+01 + 2 7 2 0.44882079E-17 0.42739609E-17 0.10501284E+01 + 2 7 3 0.12075258E-17 0.11836776E-17 0.10201475E+01 + 2 7 4 0.99433850E-18 0.10052061E-17 0.98918871E+00 + 2 7 5 0.24258901E-17 0.25199726E-17 0.96266528E+00 + 2 7 6 0.33428674E-17 0.36043784E-17 0.92744630E+00 + 2 7 7 0.98727937E-18 0.11148165E-17 0.88559810E+00 + 2 8 1 0.82263163E-18 0.76951147E-18 0.10690310E+01 + 2 8 2 0.17234955E-16 0.16189953E-16 0.10645464E+01 + 2 8 3 0.45919343E-17 0.44029827E-17 0.10429145E+01 + 2 8 4 0.37241900E-17 0.36765823E-17 0.10129489E+01 + 2 8 5 0.10050203E-16 0.10237440E-16 0.98171053E+00 + 2 8 6 0.21029275E-16 0.22119641E-16 0.95070600E+00 + 2 8 7 0.21158106E-16 0.23057971E-16 0.91760486E+00 + 2 8 8 0.20086616E-17 0.20659073E-17 0.97229026E+00 + 2 9 1 0.32169878E-17 0.29371028E-17 0.10952929E+01 + 2 9 2 0.64893105E-16 0.61040605E-16 0.10631137E+01 + 2 9 3 0.17270480E-16 0.16310908E-16 0.10588301E+01 + 2 9 4 0.13440218E-16 0.12960290E-16 0.10370306E+01 + 2 9 5 0.36183923E-16 0.35978385E-16 0.10057128E+01 + 2 9 6 0.86226920E-16 0.88486852E-16 0.97446026E+00 + 2 9 7 0.13681021E-15 0.14557223E-15 0.93980978E+00 + 2 9 8 0.36277858E-16 0.36950685E-16 0.98179121E+00 + 2 9 9 0.43120180E-35 0.43345037E-35 0.99481238E+00 + 2 10 1 0.12255191E-16 0.11397774E-16 0.10752267E+01 + 2 10 2 0.26056724E-15 0.23880515E-15 0.10911291E+01 + 2 10 3 0.68317149E-16 0.64579789E-16 0.10578720E+01 + 2 10 4 0.55880907E-16 0.53041184E-16 0.10535381E+01 + 2 10 5 0.15340855E-15 0.14869568E-15 0.10316947E+01 + 2 10 6 0.35896418E-15 0.35834370E-15 0.10017315E+01 + 2 10 7 0.59752704E-15 0.61871367E-15 0.96575697E+00 + 2 10 8 0.31600503E-15 0.32380254E-15 0.97591894E+00 + 2 10 9 0.56522620E-34 0.56764434E-34 0.99574004E+00 + 2 10 10 0.00000000E+00 0.00000000E+00 0.99449213E+00 + 2 11 1 0.55845762E-16 0.52580562E-16 0.10620990E+01 + 2 11 2 0.12229570E-14 0.11425141E-14 0.10704087E+01 + 2 11 3 0.34603390E-15 0.31824413E-15 0.10873222E+01 + 2 11 4 0.27974061E-15 0.26574026E-15 0.10526843E+01 + 2 11 5 0.73964904E-15 0.70562098E-15 0.10482243E+01 + 2 11 6 0.15660217E-14 0.15267320E-14 0.10257345E+01 + 2 11 7 0.23832259E-14 0.24026551E-14 0.99191343E+00 + 2 11 8 0.24171740E-14 0.24963218E-14 0.96829426E+00 + 2 11 9 0.27983246E-33 0.28067940E-33 0.99698253E+00 + 2 11 10 0.00000000E+00 0.00000000E+00 0.99512340E+00 + 2 11 11 0.00000000E+00 0.00000000E+00 0.99399930E+00 + 2 12 1 0.23504408E-15 0.22329301E-15 0.10526262E+01 + 2 12 2 0.50867569E-14 0.48122034E-14 0.10570536E+01 + 2 12 3 0.14061161E-14 0.13190084E-14 0.10660402E+01 + 2 12 4 0.11281558E-14 0.10403661E-14 0.10843835E+01 + 2 12 5 0.27314824E-14 0.26081855E-14 0.10472730E+01 + 2 12 6 0.56332524E-14 0.54006501E-14 0.10430693E+01 + 2 12 7 0.86491832E-14 0.84859837E-14 0.10192317E+01 + 2 12 8 0.19681356E-13 0.20550249E-13 0.95771860E+00 + 2 12 9 0.28455569E-14 0.28951819E-14 0.98285946E+00 + 2 12 10 0.00000000E+00 0.00000000E+00 0.99640426E+00 + 2 12 11 0.00000000E+00 0.00000000E+00 0.99485003E+00 + 2 12 12 0.00000000E+00 0.00000000E+00 0.99376764E+00 + 2 13 1 0.81083036E-15 0.77579579E-15 0.10451595E+01 + 2 13 2 0.17323860E-13 0.16537897E-13 0.10475250E+01 + 2 13 3 0.47226608E-14 0.44880369E-14 0.10522776E+01 + 2 13 4 0.36981181E-14 0.34826331E-14 0.10618742E+01 + 2 13 5 0.93874341E-14 0.86804539E-14 0.10814451E+01 + 2 13 6 0.18808405E-13 0.18045258E-13 0.10422907E+01 + 2 13 7 0.29986717E-13 0.28895860E-13 0.10377513E+01 + 2 13 8 0.64608765E-13 0.64030048E-13 0.10090382E+01 + 2 13 9 0.93177040E-13 0.99673636E-13 0.93482132E+00 + 2 13 10 0.00000000E+00 0.00000000E+00 0.82119350E+00 + 2 13 11 0.00000000E+00 0.00000000E+00 0.93556432E+00 + 2 13 12 0.00000000E+00 0.00000000E+00 0.99557497E+00 + 2 13 13 0.00000000E+00 0.00000000E+00 0.99300243E+00 + 2 14 1 0.27250125E-14 0.26229862E-14 0.10388970E+01 + 2 14 2 0.57694068E-13 0.55466944E-13 0.10401523E+01 + 2 14 3 0.15580258E-13 0.14942638E-13 0.10426712E+01 + 2 14 4 0.11992892E-13 0.11446080E-13 0.10477728E+01 + 2 14 5 0.29988667E-13 0.28344580E-13 0.10580036E+01 + 2 14 6 0.63619257E-13 0.58969924E-13 0.10788424E+01 + 2 14 7 0.99436686E-13 0.95855436E-13 0.10373609E+01 + 2 14 8 0.13565260E-12 0.13869875E-12 0.97803764E+00 + 2 14 9 0.49910406E-13 0.52618616E-13 0.94853134E+00 + 2 14 10 0.00000000E+00 0.00000000E+00 0.70985829E+00 + 2 14 11 0.00000000E+00 0.00000000E+00 0.52643605E+00 + 2 14 12 0.00000000E+00 0.00000000E+00 0.86933926E+00 + 2 14 13 0.00000000E+00 0.00000000E+00 0.10090678E+01 + 2 14 14 0.00000000E+00 0.00000000E+00 0.99218681E+00 + 2 15 1 0.90074410E-14 0.87168496E-14 0.10333368E+01 + 2 15 2 0.18911495E-12 0.18289596E-12 0.10340029E+01 + 2 15 3 0.50638120E-13 0.48909720E-13 0.10353386E+01 + 2 15 4 0.38346399E-13 0.36941771E-13 0.10380228E+01 + 2 15 5 0.94623095E-13 0.90685816E-13 0.10434167E+01 + 2 15 6 0.19828095E-12 0.18806502E-12 0.10543212E+01 + 2 15 7 0.31803679E-12 0.29521443E-12 0.10773077E+01 + 2 15 8 0.33244009E-12 0.33337615E-12 0.99719217E+00 + 2 15 9 0.31583813E-12 0.32464951E-12 0.97285881E+00 + 2 15 10 0.00000000E+00 0.00000000E+00 0.63977360E+00 + 2 15 11 0.00000000E+00 0.00000000E+00 0.43915858E+00 + 2 15 12 0.00000000E+00 0.00000000E+00 0.89587341E+00 + 2 15 13 0.00000000E+00 0.00000000E+00 0.92805872E+00 + 2 15 14 0.00000000E+00 0.00000000E+00 0.95347945E+00 + 2 15 15 0.00000000E+00 0.00000000E+00 0.10003488E+01 + 2 16 1 0.29213321E-13 0.28411946E-13 0.10282055E+01 + 2 16 2 0.60865691E-12 0.59175754E-12 0.10285579E+01 + 2 16 3 0.16171251E-12 0.15711435E-12 0.10292663E+01 + 2 16 4 0.12051867E-12 0.11693028E-12 0.10306883E+01 + 2 16 5 0.29337164E-12 0.28384965E-12 0.10335459E+01 + 2 16 6 0.60617199E-12 0.58325344E-12 0.10392943E+01 + 2 16 7 0.87314783E-12 0.83381345E-12 0.10471741E+01 + 2 16 8 0.84910111E-12 0.79281817E-12 0.10709910E+01 + 2 16 9 0.19277732E-11 0.19289267E-11 0.99940203E+00 + 2 16 10 0.00000000E+00 0.00000000E+00 0.68548151E+00 + 2 16 11 0.00000000E+00 0.00000000E+00 0.45779332E+00 + 2 16 12 0.00000000E+00 0.00000000E+00 0.90358367E+00 + 2 16 13 0.00000000E+00 0.00000000E+00 0.85241134E+00 + 2 16 14 0.00000000E+00 0.00000000E+00 0.64492282E+00 + 2 16 15 0.00000000E+00 0.00000000E+00 0.88262484E+00 + 2 16 16 0.00000000E+00 0.00000000E+00 0.96504988E+00 + 2 17 1 0.92966481E-13 0.90844099E-13 0.10233629E+01 + 2 17 2 0.19235404E-11 0.18792867E-11 0.10235481E+01 + 2 17 3 0.50743506E-12 0.49557958E-12 0.10239225E+01 + 2 17 4 0.37232756E-12 0.36336136E-12 0.10246757E+01 + 2 17 5 0.89321072E-12 0.87041690E-12 0.10261872E+01 + 2 17 6 0.18115486E-11 0.17601669E-11 0.10291914E+01 + 2 17 7 0.23793584E-11 0.23194649E-11 0.10258221E+01 + 2 17 8 0.30894326E-11 0.30507031E-11 0.10126953E+01 + 2 17 9 0.36461603E-11 0.34062751E-11 0.10704245E+01 + 2 17 10 0.00000000E+00 0.00000000E+00 0.64318717E+00 + 2 17 11 0.00000000E+00 0.00000000E+00 0.43613131E+00 + 2 17 12 0.00000000E+00 0.00000000E+00 0.82081966E+00 + 2 17 13 0.00000000E+00 0.00000000E+00 0.83349376E+00 + 2 17 14 0.00000000E+00 0.00000000E+00 0.63756211E+00 + 2 17 15 0.00000000E+00 0.00000000E+00 0.65785445E+00 + 2 17 16 0.00000000E+00 0.00000000E+00 0.10677681E+01 + 2 17 17 0.00000000E+00 0.00000000E+00 0.99050797E+00 + 2 18 1 0.29122561E-12 0.28587101E-12 0.10187308E+01 + 2 18 2 0.59885859E-11 0.58779185E-11 0.10188277E+01 + 2 18 3 0.15697385E-11 0.15404316E-11 0.10190251E+01 + 2 18 4 0.11350688E-11 0.11134407E-11 0.10194245E+01 + 2 18 5 0.26836258E-11 0.26304218E-11 0.10202264E+01 + 2 18 6 0.53268874E-11 0.52139123E-11 0.10216680E+01 + 2 18 7 0.69745347E-11 0.69466223E-11 0.10040181E+01 + 2 18 8 0.16641029E-10 0.16448446E-10 0.10117083E+01 + 2 18 9 0.38832073E-11 0.37043984E-11 0.10482693E+01 + 2 18 10 0.00000000E+00 0.00000000E+00 0.33281721E+00 + 2 18 11 0.00000000E+00 0.00000000E+00 0.23695460E+00 + 2 18 12 0.00000000E+00 0.00000000E+00 0.50359715E+00 + 2 18 13 0.00000000E+00 0.00000000E+00 0.67458613E+00 + 2 18 14 0.00000000E+00 0.00000000E+00 0.61393011E+00 + 2 18 15 0.00000000E+00 0.00000000E+00 0.59434079E+00 + 2 18 16 0.00000000E+00 0.00000000E+00 0.11042773E+01 + 2 18 17 0.00000000E+00 0.00000000E+00 0.10195210E+01 + 2 18 18 0.00000000E+00 0.00000000E+00 0.10596630E+01 + 3 1 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 3 2 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 3 2 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 3 3 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 3 3 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 3 3 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 3 4 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 3 4 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 3 4 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 3 4 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 3 5 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 3 5 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 3 5 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 3 5 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 3 5 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 3 6 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 3 6 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 3 6 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 3 6 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 3 6 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 3 6 6 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 3 7 1 0.66844712E-19 0.62371869E-19 0.10717125E+01 + 3 7 2 0.10975811E-17 0.10451875E-17 0.10501284E+01 + 3 7 3 0.20329996E-16 0.19928487E-16 0.10201475E+01 + 3 7 4 0.92140247E-17 0.93147289E-17 0.98918871E+00 + 3 7 5 0.17340474E-16 0.18012983E-16 0.96266528E+00 + 3 7 6 0.33848522E-16 0.36496476E-16 0.92744630E+00 + 3 7 7 0.13834839E-16 0.15622029E-16 0.88559810E+00 + 3 8 1 0.25743372E-18 0.24081034E-18 0.10690310E+01 + 3 8 2 0.41922006E-17 0.39380159E-17 0.10645464E+01 + 3 8 3 0.76568133E-16 0.73417463E-16 0.10429145E+01 + 3 8 4 0.34440274E-16 0.34000011E-16 0.10129489E+01 + 3 8 5 0.72243097E-16 0.73589001E-16 0.98171053E+00 + 3 8 6 0.21793482E-15 0.22923471E-15 0.95070600E+00 + 3 8 7 0.32075428E-15 0.34955600E-15 0.91760486E+00 + 3 8 8 0.13537919E-16 0.13923742E-16 0.97229026E+00 + 3 9 1 0.10091640E-17 0.92136455E-18 0.10952929E+01 + 3 9 2 0.15708676E-16 0.14776102E-16 0.10631137E+01 + 3 9 3 0.28488408E-15 0.26905552E-15 0.10588301E+01 + 3 9 4 0.12515358E-15 0.12068456E-15 0.10370306E+01 + 3 9 5 0.26037339E-15 0.25889437E-15 0.10057128E+01 + 3 9 6 0.90021751E-15 0.92381142E-15 0.97446026E+00 + 3 9 7 0.21619709E-14 0.23004346E-14 0.93980978E+00 + 3 9 8 0.25040606E-15 0.25505022E-15 0.98179121E+00 + 3 9 9 0.86305040E-35 0.86755092E-35 0.99481238E+00 + 3 10 1 0.38391200E-17 0.35705214E-17 0.10752267E+01 + 3 10 2 0.63283327E-16 0.57998021E-16 0.10911291E+01 + 3 10 3 0.11351179E-14 0.10730201E-14 0.10578720E+01 + 3 10 4 0.51795028E-15 0.49162938E-15 0.10535381E+01 + 3 10 5 0.11037074E-14 0.10698004E-14 0.10316947E+01 + 3 10 6 0.37447399E-14 0.37382670E-14 0.10017315E+01 + 3 10 7 0.95397666E-14 0.98780199E-14 0.96575697E+00 + 3 10 8 0.28779463E-14 0.29489604E-14 0.97591894E+00 + 3 10 9 0.13237484E-33 0.13294116E-33 0.99574004E+00 + 3 10 10 0.00000000E+00 0.00000000E+00 0.99449213E+00 + 3 11 1 0.17312069E-16 0.16299864E-16 0.10620990E+01 + 3 11 2 0.30021087E-15 0.28046377E-15 0.10704087E+01 + 3 11 3 0.58126587E-14 0.53458477E-14 0.10873222E+01 + 3 11 4 0.25982721E-14 0.24682348E-14 0.10526843E+01 + 3 11 5 0.53089795E-14 0.50647362E-14 0.10482243E+01 + 3 11 6 0.16273315E-13 0.15865036E-13 0.10257345E+01 + 3 11 7 0.37971987E-13 0.38281553E-13 0.99191343E+00 + 3 11 8 0.23666210E-13 0.24441134E-13 0.96829426E+00 + 3 11 9 0.70927805E-33 0.71142476E-33 0.99698253E+00 + 3 11 10 0.00000000E+00 0.00000000E+00 0.99512340E+00 + 3 11 11 0.00000000E+00 0.00000000E+00 0.99399930E+00 + 3 12 1 0.72894042E-16 0.69249693E-16 0.10526262E+01 + 3 12 2 0.12436732E-14 0.11765469E-14 0.10570536E+01 + 3 12 3 0.23367650E-13 0.21920045E-13 0.10660402E+01 + 3 12 4 0.10577686E-13 0.97545619E-14 0.10843835E+01 + 3 12 5 0.19574371E-13 0.18690800E-13 0.10472730E+01 + 3 12 6 0.58485193E-13 0.56070284E-13 0.10430693E+01 + 3 12 7 0.13793971E-12 0.13533696E-12 0.10192317E+01 + 3 12 8 0.17376867E-12 0.18144021E-12 0.95771860E+00 + 3 12 9 0.74178500E-14 0.75472133E-14 0.98285946E+00 + 3 12 10 0.00000000E+00 0.00000000E+00 0.99640426E+00 + 3 12 11 0.00000000E+00 0.00000000E+00 0.99485003E+00 + 3 12 12 0.00000000E+00 0.00000000E+00 0.99376764E+00 + 3 13 1 0.25223752E-15 0.24133878E-15 0.10451595E+01 + 3 13 2 0.42214554E-14 0.40299329E-14 0.10475250E+01 + 3 13 3 0.78129207E-13 0.74247714E-13 0.10522776E+01 + 3 13 4 0.34738611E-13 0.32714433E-13 0.10618742E+01 + 3 13 5 0.67268673E-13 0.62202580E-13 0.10814451E+01 + 3 13 6 0.19533404E-12 0.18740841E-12 0.10422907E+01 + 3 13 7 0.47878756E-12 0.46137023E-12 0.10377513E+01 + 3 13 8 0.88600177E-12 0.87806563E-12 0.10090382E+01 + 3 13 9 0.61896421E-12 0.66212034E-12 0.93482132E+00 + 3 13 10 0.00000000E+00 0.00000000E+00 0.82119350E+00 + 3 13 11 0.00000000E+00 0.00000000E+00 0.93556432E+00 + 3 13 12 0.00000000E+00 0.00000000E+00 0.99557497E+00 + 3 13 13 0.00000000E+00 0.00000000E+00 0.99300243E+00 + 3 14 1 0.84969667E-15 0.81788347E-15 0.10388970E+01 + 3 14 2 0.14024531E-13 0.13483151E-13 0.10401523E+01 + 3 14 3 0.25687924E-12 0.24636649E-12 0.10426712E+01 + 3 14 4 0.11283821E-12 0.10769339E-12 0.10477728E+01 + 3 14 5 0.21486850E-12 0.20308863E-12 0.10580036E+01 + 3 14 6 0.66084891E-12 0.61255367E-12 0.10788424E+01 + 3 14 7 0.15891145E-11 0.15318819E-11 0.10373609E+01 + 3 14 8 0.22835911E-11 0.23348704E-11 0.97803764E+00 + 3 14 9 0.75594658E-12 0.79696531E-12 0.94853134E+00 + 3 14 10 0.00000000E+00 0.00000000E+00 0.70985829E+00 + 3 14 11 0.00000000E+00 0.00000000E+00 0.52643605E+00 + 3 14 12 0.00000000E+00 0.00000000E+00 0.86933926E+00 + 3 14 13 0.00000000E+00 0.00000000E+00 0.10090678E+01 + 3 14 14 0.00000000E+00 0.00000000E+00 0.99218681E+00 + 3 15 1 0.28148930E-14 0.27240810E-14 0.10333368E+01 + 3 15 2 0.45859817E-13 0.44351730E-13 0.10340029E+01 + 3 15 3 0.83196539E-12 0.80356842E-12 0.10353386E+01 + 3 15 4 0.36146271E-12 0.34822233E-12 0.10380228E+01 + 3 15 5 0.67783857E-12 0.64963362E-12 0.10434167E+01 + 3 15 6 0.20597375E-11 0.19536148E-11 0.10543212E+01 + 3 15 7 0.50534338E-11 0.46907988E-11 0.10773077E+01 + 3 15 8 0.68815225E-11 0.69008991E-11 0.99719217E+00 + 3 15 9 0.32808034E-11 0.33723325E-11 0.97285881E+00 + 3 15 10 0.00000000E+00 0.00000000E+00 0.63977360E+00 + 3 15 11 0.00000000E+00 0.00000000E+00 0.43915858E+00 + 3 15 12 0.00000000E+00 0.00000000E+00 0.89587341E+00 + 3 15 13 0.00000000E+00 0.00000000E+00 0.92805872E+00 + 3 15 14 0.00000000E+00 0.00000000E+00 0.95347945E+00 + 3 15 15 0.00000000E+00 0.00000000E+00 0.10003488E+01 + 3 16 1 0.91481785E-14 0.88972274E-14 0.10282055E+01 + 3 16 2 0.14725487E-12 0.14316634E-12 0.10285579E+01 + 3 16 3 0.26475346E-11 0.25722542E-11 0.10292663E+01 + 3 16 4 0.11383827E-11 0.11044879E-11 0.10306883E+01 + 3 16 5 0.21009498E-11 0.20327590E-11 0.10335459E+01 + 3 16 6 0.62954178E-11 0.60573965E-11 0.10392943E+01 + 3 16 7 0.13784245E-10 0.13163279E-10 0.10471741E+01 + 3 16 8 0.20018252E-10 0.18691335E-10 0.10709910E+01 + 3 16 9 0.22084973E-10 0.22098187E-10 0.99940203E+00 + 3 16 10 0.00000000E+00 0.00000000E+00 0.68548151E+00 + 3 16 11 0.00000000E+00 0.00000000E+00 0.45779332E+00 + 3 16 12 0.00000000E+00 0.00000000E+00 0.90358367E+00 + 3 16 13 0.00000000E+00 0.00000000E+00 0.85241134E+00 + 3 16 14 0.00000000E+00 0.00000000E+00 0.64492282E+00 + 3 16 15 0.00000000E+00 0.00000000E+00 0.88262484E+00 + 3 16 16 0.00000000E+00 0.00000000E+00 0.96504988E+00 + 3 17 1 0.29166803E-13 0.28500939E-13 0.10233629E+01 + 3 17 2 0.46436005E-12 0.45367681E-12 0.10235481E+01 + 3 17 3 0.82793201E-11 0.80858859E-11 0.10239225E+01 + 3 17 4 0.35245863E-11 0.34397091E-11 0.10246757E+01 + 3 17 5 0.63940657E-11 0.62308957E-11 0.10261872E+01 + 3 17 6 0.18802272E-10 0.18268976E-10 0.10291914E+01 + 3 17 7 0.37435215E-10 0.36492891E-10 0.10258221E+01 + 3 17 8 0.53765481E-10 0.53091470E-10 0.10126953E+01 + 3 17 9 0.63402421E-10 0.59231101E-10 0.10704245E+01 + 3 17 10 0.00000000E+00 0.00000000E+00 0.64318717E+00 + 3 17 11 0.00000000E+00 0.00000000E+00 0.43613131E+00 + 3 17 12 0.00000000E+00 0.00000000E+00 0.82081966E+00 + 3 17 13 0.00000000E+00 0.00000000E+00 0.83349376E+00 + 3 17 14 0.00000000E+00 0.00000000E+00 0.63756211E+00 + 3 17 15 0.00000000E+00 0.00000000E+00 0.65785445E+00 + 3 17 16 0.00000000E+00 0.00000000E+00 0.10677681E+01 + 3 17 17 0.00000000E+00 0.00000000E+00 0.99050797E+00 + 3 18 1 0.91518455E-13 0.89835755E-13 0.10187308E+01 + 3 18 2 0.14428507E-11 0.14161872E-11 0.10188277E+01 + 3 18 3 0.25530546E-10 0.25053892E-10 0.10190251E+01 + 3 18 4 0.10768091E-10 0.10562911E-10 0.10194245E+01 + 3 18 5 0.19202300E-10 0.18821606E-10 0.10202264E+01 + 3 18 6 0.55237117E-10 0.54065623E-10 0.10216680E+01 + 3 18 7 0.10454088E-09 0.10412251E-09 0.10040181E+01 + 3 18 8 0.19283101E-09 0.19059941E-09 0.10117083E+01 + 3 18 9 0.18337387E-09 0.17493011E-09 0.10482693E+01 + 3 18 10 0.00000000E+00 0.00000000E+00 0.33281721E+00 + 3 18 11 0.00000000E+00 0.00000000E+00 0.23695460E+00 + 3 18 12 0.00000000E+00 0.00000000E+00 0.50359715E+00 + 3 18 13 0.00000000E+00 0.00000000E+00 0.67458613E+00 + 3 18 14 0.00000000E+00 0.00000000E+00 0.61393011E+00 + 3 18 15 0.00000000E+00 0.00000000E+00 0.59434079E+00 + 3 18 16 0.00000000E+00 0.00000000E+00 0.11042773E+01 + 3 18 17 0.00000000E+00 0.00000000E+00 0.10195210E+01 + 3 18 18 0.00000000E+00 0.00000000E+00 0.10596630E+01 + 4 1 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 4 2 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 4 2 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 4 3 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 4 3 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 4 3 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 4 4 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 4 4 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 4 4 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 4 4 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 4 5 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 4 5 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 4 5 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 4 5 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 4 5 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 4 6 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 4 6 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 4 6 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 4 6 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 4 6 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 4 6 6 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 4 7 1 0.25057989E-19 0.23381260E-19 0.10717125E+01 + 4 7 2 0.18386470E-18 0.17508782E-18 0.10501284E+01 + 4 7 3 0.49412173E-17 0.48436302E-17 0.10201475E+01 + 4 7 4 0.94027254E-16 0.95054920E-16 0.98918871E+00 + 4 7 5 0.58190224E-16 0.60446995E-16 0.96266528E+00 + 4 7 6 0.11238727E-15 0.12117928E-15 0.92744630E+00 + 4 7 7 0.64638283E-16 0.72988281E-16 0.88559810E+00 + 4 8 1 0.96451480E-19 0.90223276E-19 0.10690310E+01 + 4 8 2 0.70497898E-18 0.66223417E-18 0.10645464E+01 + 4 8 3 0.18490729E-16 0.17729862E-16 0.10429145E+01 + 4 8 4 0.35205541E-15 0.34755496E-15 0.10129489E+01 + 4 8 5 0.23741803E-15 0.24184117E-15 0.98171053E+00 + 4 8 6 0.74210087E-15 0.78057871E-15 0.95070600E+00 + 4 8 7 0.16301863E-14 0.17765668E-14 0.91760486E+00 + 4 8 8 0.92227281E-16 0.94855708E-16 0.97229026E+00 + 4 9 1 0.37794711E-18 0.34506488E-18 0.10952929E+01 + 4 9 2 0.26507915E-17 0.24934224E-17 0.10631137E+01 + 4 9 3 0.68207410E-16 0.64417711E-16 0.10588301E+01 + 4 9 4 0.12698279E-14 0.12244845E-14 0.10370306E+01 + 4 9 5 0.85313996E-15 0.84829380E-15 0.10057128E+01 + 4 9 6 0.30895488E-14 0.31705232E-14 0.97446026E+00 + 4 9 7 0.11519929E-13 0.12257724E-13 0.93980978E+00 + 4 9 8 0.17921947E-14 0.18254337E-14 0.98179121E+00 + 4 9 9 0.17269755E-34 0.17359811E-34 0.99481238E+00 + 4 10 1 0.14381267E-17 0.13375102E-17 0.10752267E+01 + 4 10 2 0.10653667E-16 0.97638928E-17 0.10911291E+01 + 4 10 3 0.27333482E-15 0.25838176E-15 0.10578720E+01 + 4 10 4 0.52815030E-14 0.50131106E-14 0.10535381E+01 + 4 10 5 0.36172455E-14 0.35061200E-14 0.10316947E+01 + 4 10 6 0.12841764E-13 0.12819567E-13 0.10017315E+01 + 4 10 7 0.51427784E-13 0.53251269E-13 0.96575697E+00 + 4 10 8 0.20309955E-13 0.20811109E-13 0.97591894E+00 + 4 10 9 0.27509546E-33 0.27627237E-33 0.99574004E+00 + 4 10 10 0.25498146E-41 0.25639364E-41 0.99449213E+00 + 4 11 1 0.64967720E-17 0.61169175E-17 0.10620990E+01 + 4 11 2 0.50154176E-16 0.46855164E-16 0.10704087E+01 + 4 11 3 0.14085176E-14 0.12954004E-14 0.10873222E+01 + 4 11 4 0.26443426E-13 0.25119995E-13 0.10526843E+01 + 4 11 5 0.17562583E-13 0.16754604E-13 0.10482243E+01 + 4 11 6 0.55578292E-13 0.54183896E-13 0.10257345E+01 + 4 11 7 0.20430775E-12 0.20597337E-12 0.99191343E+00 + 4 11 8 0.16907948E-12 0.17461580E-12 0.96829426E+00 + 4 11 9 0.17083667E-32 0.17135372E-32 0.99698253E+00 + 4 11 10 0.86566620E-34 0.86990840E-34 0.99512340E+00 + 4 11 11 0.00000000E+00 0.00000000E+00 0.99399930E+00 + 4 12 1 0.27354268E-16 0.25986688E-16 0.10526262E+01 + 4 12 2 0.20837262E-15 0.19712588E-15 0.10570536E+01 + 4 12 3 0.56127457E-14 0.52650412E-14 0.10660402E+01 + 4 12 4 0.10658373E-12 0.98289699E-13 0.10843835E+01 + 4 12 5 0.65215468E-13 0.62271695E-13 0.10472730E+01 + 4 12 6 0.19955938E-12 0.19131938E-12 0.10430693E+01 + 4 12 7 0.74291224E-12 0.72889440E-12 0.10192317E+01 + 4 12 8 0.12066189E-11 0.12598888E-11 0.95771860E+00 + 4 12 9 0.31356642E-13 0.31903485E-13 0.98285946E+00 + 4 12 10 0.46366047E-33 0.46533368E-33 0.99640426E+00 + 4 12 11 0.00000000E+00 0.00000000E+00 0.99485003E+00 + 4 12 12 0.00000000E+00 0.00000000E+00 0.99376764E+00 + 4 13 1 0.94604616E-16 0.90516916E-16 0.10451595E+01 + 4 13 2 0.70898054E-15 0.67681492E-15 0.10475250E+01 + 4 13 3 0.18706637E-13 0.17777283E-13 0.10522776E+01 + 4 13 4 0.34933043E-12 0.32897535E-12 0.10618742E+01 + 4 13 5 0.22419816E-12 0.20731350E-12 0.10814451E+01 + 4 13 6 0.66673533E-12 0.63968271E-12 0.10422907E+01 + 4 13 7 0.25816206E-11 0.24877064E-11 0.10377513E+01 + 4 13 8 0.64236762E-11 0.63661377E-11 0.10090382E+01 + 4 13 9 0.43739681E-11 0.46789349E-11 0.93482132E+00 + 4 13 10 0.17132698E-12 0.20863168E-12 0.82119350E+00 + 4 13 11 0.00000000E+00 0.00000000E+00 0.93556432E+00 + 4 13 12 0.00000000E+00 0.00000000E+00 0.99557497E+00 + 4 13 13 0.00000000E+00 0.00000000E+00 0.99300243E+00 + 4 14 1 0.31855960E-15 0.30663252E-15 0.10388970E+01 + 4 14 2 0.23595064E-14 0.22684240E-14 0.10401523E+01 + 4 14 3 0.61356668E-13 0.58845655E-13 0.10426712E+01 + 4 14 4 0.11327300E-11 0.10810836E-11 0.10477728E+01 + 4 14 5 0.71655398E-12 0.67726989E-12 0.10580036E+01 + 4 14 6 0.22561743E-11 0.20912917E-11 0.10788424E+01 + 4 14 7 0.85762016E-11 0.82673264E-11 0.10373609E+01 + 4 14 8 0.19334326E-10 0.19768488E-10 0.97803764E+00 + 4 14 9 0.16364992E-10 0.17252980E-10 0.94853134E+00 + 4 14 10 0.66013887E-12 0.92995867E-12 0.70985829E+00 + 4 14 11 0.00000000E+00 0.00000000E+00 0.52643605E+00 + 4 14 12 0.00000000E+00 0.00000000E+00 0.86933926E+00 + 4 14 13 0.00000000E+00 0.00000000E+00 0.10090678E+01 + 4 14 14 0.00000000E+00 0.00000000E+00 0.99218681E+00 + 4 15 1 0.10549262E-14 0.10208930E-14 0.10333368E+01 + 4 15 2 0.77289316E-14 0.74747678E-14 0.10340029E+01 + 4 15 3 0.19821208E-12 0.19144663E-12 0.10353386E+01 + 4 15 4 0.36213342E-11 0.34886847E-11 0.10380228E+01 + 4 15 5 0.22626002E-11 0.21684531E-11 0.10434167E+01 + 4 15 6 0.70323898E-11 0.66700637E-11 0.10543212E+01 + 4 15 7 0.27109244E-10 0.25163882E-10 0.10773077E+01 + 4 15 8 0.59513882E-10 0.59681458E-10 0.99719217E+00 + 4 15 9 0.61953316E-10 0.63681714E-10 0.97285881E+00 + 4 15 10 0.19656530E-11 0.30724197E-11 0.63977360E+00 + 4 15 11 0.00000000E+00 0.00000000E+00 0.43915858E+00 + 4 15 12 0.00000000E+00 0.00000000E+00 0.89587341E+00 + 4 15 13 0.00000000E+00 0.00000000E+00 0.92805872E+00 + 4 15 14 0.00000000E+00 0.00000000E+00 0.95347945E+00 + 4 15 15 0.00000000E+00 0.00000000E+00 0.10003488E+01 + 4 16 1 0.34272127E-14 0.33331980E-14 0.10282055E+01 + 4 16 2 0.24858901E-13 0.24168694E-13 0.10285579E+01 + 4 16 3 0.62912560E-12 0.61123695E-12 0.10292663E+01 + 4 16 4 0.11379847E-10 0.11041017E-10 0.10306883E+01 + 4 16 5 0.70223520E-11 0.67944269E-11 0.10335459E+01 + 4 16 6 0.21488659E-10 0.20676202E-10 0.10392943E+01 + 4 16 7 0.73487881E-10 0.70177331E-10 0.10471741E+01 + 4 16 8 0.17811027E-09 0.16630417E-09 0.10709910E+01 + 4 16 9 0.27972357E-09 0.27989093E-09 0.99940203E+00 + 4 16 10 0.10481137E-10 0.15290182E-10 0.68548151E+00 + 4 16 11 0.00000000E+00 0.00000000E+00 0.45779332E+00 + 4 16 12 0.00000000E+00 0.00000000E+00 0.90358367E+00 + 4 16 13 0.00000000E+00 0.00000000E+00 0.85241134E+00 + 4 16 14 0.00000000E+00 0.00000000E+00 0.64492282E+00 + 4 16 15 0.00000000E+00 0.00000000E+00 0.88262484E+00 + 4 16 16 0.00000000E+00 0.00000000E+00 0.96504988E+00 + 4 17 1 0.10923363E-13 0.10673987E-13 0.10233629E+01 + 4 17 2 0.78513694E-13 0.76707378E-13 0.10235481E+01 + 4 17 3 0.19623584E-11 0.19165107E-11 0.10239225E+01 + 4 17 4 0.35151520E-10 0.34305019E-10 0.10246757E+01 + 4 17 5 0.21409014E-10 0.20862677E-10 0.10261872E+01 + 4 17 6 0.64136969E-10 0.62317825E-10 0.10291914E+01 + 4 17 7 0.19918508E-09 0.19417117E-09 0.10258221E+01 + 4 17 8 0.46254363E-09 0.45674512E-09 0.10126953E+01 + 4 17 9 0.93048061E-09 0.86926319E-09 0.10704245E+01 + 4 17 10 0.52899770E-10 0.82246309E-10 0.64318717E+00 + 4 17 11 0.00000000E+00 0.00000000E+00 0.43613131E+00 + 4 17 12 0.00000000E+00 0.00000000E+00 0.82081966E+00 + 4 17 13 0.00000000E+00 0.00000000E+00 0.83349376E+00 + 4 17 14 0.00000000E+00 0.00000000E+00 0.63756211E+00 + 4 17 15 0.00000000E+00 0.00000000E+00 0.65785445E+00 + 4 17 16 0.00000000E+00 0.00000000E+00 0.10677681E+01 + 4 17 17 0.00000000E+00 0.00000000E+00 0.99050797E+00 + 4 18 1 0.34265205E-13 0.33635190E-13 0.10187308E+01 + 4 18 2 0.24430254E-12 0.23978790E-12 0.10188277E+01 + 4 18 3 0.60366734E-11 0.59239691E-11 0.10190251E+01 + 4 18 4 0.10714700E-09 0.10510538E-09 0.10194245E+01 + 4 18 5 0.64415549E-10 0.63138484E-10 0.10202264E+01 + 4 18 6 0.18823223E-09 0.18424011E-09 0.10216680E+01 + 4 18 7 0.55289042E-09 0.55067772E-09 0.10040181E+01 + 4 18 8 0.14351155E-08 0.14185072E-08 0.10117083E+01 + 4 18 9 0.42642036E-08 0.40678511E-08 0.10482693E+01 + 4 18 10 0.16996857E-09 0.51069646E-09 0.33281721E+00 + 4 18 11 0.00000000E+00 0.00000000E+00 0.23695460E+00 + 4 18 12 0.00000000E+00 0.00000000E+00 0.50359715E+00 + 4 18 13 0.00000000E+00 0.00000000E+00 0.67458613E+00 + 4 18 14 0.00000000E+00 0.00000000E+00 0.61393011E+00 + 4 18 15 0.00000000E+00 0.00000000E+00 0.59434079E+00 + 4 18 16 0.00000000E+00 0.00000000E+00 0.11042773E+01 + 4 18 17 0.00000000E+00 0.00000000E+00 0.10195210E+01 + 4 18 18 0.00000000E+00 0.00000000E+00 0.10596630E+01 + 5 1 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 5 2 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 5 2 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 5 3 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 5 3 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 5 3 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 5 4 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 5 4 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 5 4 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 5 4 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 5 5 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 5 5 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 5 5 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 5 5 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 5 5 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 5 6 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 5 6 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 5 6 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 5 6 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 5 6 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 5 6 6 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 5 7 1 0.17231039E-20 0.16078042E-20 0.10717125E+01 + 5 7 2 0.25597340E-19 0.24375437E-19 0.10501284E+01 + 5 7 3 0.31447559E-18 0.30826483E-18 0.10201475E+01 + 5 7 4 0.20991376E-16 0.21220800E-16 0.98918871E+00 + 5 7 5 0.39780536E-15 0.41323331E-15 0.96266528E+00 + 5 7 6 0.19918994E-15 0.21477248E-15 0.92744630E+00 + 5 7 7 0.10261410E-15 0.11586983E-15 0.88559810E+00 + 5 8 1 0.66277560E-20 0.61997789E-20 0.10690310E+01 + 5 8 2 0.98046410E-19 0.92101586E-19 0.10645464E+01 + 5 8 3 0.11813109E-17 0.11327016E-17 0.10429145E+01 + 5 8 4 0.79211506E-16 0.78198915E-16 0.10129489E+01 + 5 8 5 0.16536978E-14 0.16845065E-14 0.98171053E+00 + 5 8 6 0.12194693E-14 0.12826986E-14 0.95070600E+00 + 5 8 7 0.28370968E-14 0.30918502E-14 0.91760486E+00 + 5 8 8 0.24537139E-15 0.25236434E-15 0.97229026E+00 + 5 9 1 0.25957421E-19 0.23699069E-19 0.10952929E+01 + 5 9 2 0.36833805E-18 0.34647098E-18 0.10631137E+01 + 5 9 3 0.43802615E-17 0.41368880E-17 0.10588301E+01 + 5 9 4 0.28327095E-15 0.27315582E-15 0.10370306E+01 + 5 9 5 0.59547734E-14 0.59209480E-14 0.10057128E+01 + 5 9 6 0.49648817E-14 0.50950069E-14 0.97446026E+00 + 5 9 7 0.21076944E-13 0.22426819E-13 0.93980978E+00 + 5 9 8 0.50393488E-14 0.51328111E-14 0.98179121E+00 + 5 9 9 0.14937472E-30 0.15015366E-30 0.99481238E+00 + 5 10 1 0.98799400E-19 0.91887039E-19 0.10752267E+01 + 5 10 2 0.14812632E-17 0.13575508E-17 0.10911291E+01 + 5 10 3 0.17492857E-16 0.16535893E-16 0.10578720E+01 + 5 10 4 0.11851531E-14 0.11249267E-14 0.10535381E+01 + 5 10 5 0.25248637E-13 0.24472972E-13 0.10316947E+01 + 5 10 6 0.20694275E-13 0.20658504E-13 0.10017315E+01 + 5 10 7 0.95283136E-13 0.98661608E-13 0.96575697E+00 + 5 10 8 0.56217377E-13 0.57604555E-13 0.97591894E+00 + 5 10 9 0.12275462E-29 0.12327979E-29 0.99574004E+00 + 5 10 10 0.69000842E-35 0.69382995E-35 0.99449213E+00 + 5 11 1 0.44736715E-18 0.42121040E-18 0.10620990E+01 + 5 11 2 0.69878068E-17 0.65281669E-17 0.10704087E+01 + 5 11 3 0.89808773E-16 0.82596286E-16 0.10873222E+01 + 5 11 4 0.58973493E-14 0.56022011E-14 0.10526843E+01 + 5 11 5 0.12153239E-12 0.11594121E-12 0.10482243E+01 + 5 11 6 0.90753294E-13 0.88476396E-13 0.10257345E+01 + 5 11 7 0.37785590E-12 0.38093637E-12 0.99191343E+00 + 5 11 8 0.48351596E-12 0.49934816E-12 0.96829426E+00 + 5 11 9 0.55064953E-29 0.55231612E-29 0.99698253E+00 + 5 11 10 0.74602824E-33 0.74968415E-33 0.99512340E+00 + 5 11 11 0.00000000E+00 0.00000000E+00 0.99399930E+00 + 5 12 1 0.18835005E-17 0.17893346E-17 0.10526262E+01 + 5 12 2 0.29011030E-16 0.27445184E-16 0.10570536E+01 + 5 12 3 0.35978542E-15 0.33749704E-15 0.10660402E+01 + 5 12 4 0.23436917E-13 0.21613125E-13 0.10843835E+01 + 5 12 5 0.44814387E-12 0.42791503E-12 0.10472730E+01 + 5 12 6 0.32703036E-12 0.31352697E-12 0.10430693E+01 + 5 12 7 0.13753299E-11 0.13493791E-11 0.10192317E+01 + 5 12 8 0.36831034E-11 0.38457052E-11 0.95771860E+00 + 5 12 9 0.13481832E-12 0.13716948E-12 0.98285946E+00 + 5 12 10 0.55886770E-32 0.56088449E-32 0.99640426E+00 + 5 12 11 0.00000000E+00 0.00000000E+00 0.99485003E+00 + 5 12 12 0.00000000E+00 0.00000000E+00 0.99376764E+00 + 5 13 1 0.65096304E-17 0.62283606E-17 0.10451595E+01 + 5 13 2 0.98645889E-16 0.94170441E-16 0.10475250E+01 + 5 13 3 0.12014049E-14 0.11417186E-14 0.10522776E+01 + 5 13 4 0.76634552E-13 0.72169146E-13 0.10618742E+01 + 5 13 5 0.15399975E-11 0.14240183E-11 0.10814451E+01 + 5 13 6 0.10915872E-11 0.10472963E-11 0.10422907E+01 + 5 13 7 0.47846917E-11 0.46106342E-11 0.10377513E+01 + 5 13 8 0.18893269E-10 0.18724037E-10 0.10090382E+01 + 5 13 9 0.18270477E-10 0.19544352E-10 0.93482132E+00 + 5 13 10 0.32419847E-11 0.39478937E-11 0.82119350E+00 + 5 13 11 0.00000000E+00 0.00000000E+00 0.93556432E+00 + 5 13 12 0.00000000E+00 0.00000000E+00 0.99557497E+00 + 5 13 13 0.00000000E+00 0.00000000E+00 0.99300243E+00 + 5 14 1 0.21908291E-16 0.21088031E-16 0.10388970E+01 + 5 14 2 0.32814209E-15 0.31547505E-15 0.10401523E+01 + 5 14 3 0.39462575E-14 0.37847575E-14 0.10426712E+01 + 5 14 4 0.24795905E-12 0.23665344E-12 0.10477728E+01 + 5 14 5 0.49188958E-11 0.46492242E-11 0.10580036E+01 + 5 14 6 0.36918470E-11 0.34220447E-11 0.10788424E+01 + 5 14 7 0.15908652E-10 0.15335696E-10 0.10373609E+01 + 5 14 8 0.58641734E-10 0.59958566E-10 0.97803764E+00 + 5 14 9 0.11109903E-09 0.11712742E-09 0.94853134E+00 + 5 14 10 0.23232812E-10 0.32728803E-10 0.70985829E+00 + 5 14 11 0.00000000E+00 0.00000000E+00 0.52643605E+00 + 5 14 12 0.00000000E+00 0.00000000E+00 0.86933926E+00 + 5 14 13 0.00000000E+00 0.00000000E+00 0.10090678E+01 + 5 14 14 0.00000000E+00 0.00000000E+00 0.99218681E+00 + 5 15 1 0.72514592E-16 0.70175179E-16 0.10333368E+01 + 5 15 2 0.10743820E-14 0.10390512E-14 0.10340029E+01 + 5 15 3 0.12767914E-13 0.12332115E-13 0.10353386E+01 + 5 15 4 0.79069490E-12 0.76173175E-12 0.10380228E+01 + 5 15 5 0.15517314E-10 0.14871637E-10 0.10434167E+01 + 5 15 6 0.11507250E-10 0.10914368E-10 0.10543212E+01 + 5 15 7 0.49979743E-10 0.46393191E-10 0.10773077E+01 + 5 15 8 0.18252934E-09 0.18304329E-09 0.99719217E+00 + 5 15 9 0.52011937E-09 0.53462986E-09 0.97285881E+00 + 5 15 10 0.10924760E-09 0.17075978E-09 0.63977360E+00 + 5 15 11 0.00000000E+00 0.00000000E+00 0.43915858E+00 + 5 15 12 0.00000000E+00 0.00000000E+00 0.89587341E+00 + 5 15 13 0.00000000E+00 0.00000000E+00 0.92805872E+00 + 5 15 14 0.00000000E+00 0.00000000E+00 0.95347945E+00 + 5 15 15 0.00000000E+00 0.00000000E+00 0.10003488E+01 + 5 16 1 0.23547573E-15 0.22901620E-15 0.10282055E+01 + 5 16 2 0.34540452E-14 0.33581437E-14 0.10285579E+01 + 5 16 3 0.40588908E-13 0.39434797E-13 0.10292663E+01 + 5 16 4 0.24774246E-11 0.24036604E-11 0.10306883E+01 + 5 16 5 0.48096507E-10 0.46535435E-10 0.10335459E+01 + 5 16 6 0.35193103E-10 0.33862499E-10 0.10392943E+01 + 5 16 7 0.13469861E-09 0.12863058E-09 0.10471741E+01 + 5 16 8 0.55062451E-09 0.51412618E-09 0.10709910E+01 + 5 16 9 0.20743127E-08 0.20755538E-08 0.99940203E+00 + 5 16 10 0.57480753E-09 0.83854564E-09 0.68548151E+00 + 5 16 11 0.00000000E+00 0.00000000E+00 0.45779332E+00 + 5 16 12 0.00000000E+00 0.00000000E+00 0.90358367E+00 + 5 16 13 0.00000000E+00 0.00000000E+00 0.85241134E+00 + 5 16 14 0.00000000E+00 0.00000000E+00 0.64492282E+00 + 5 16 15 0.00000000E+00 0.00000000E+00 0.88262484E+00 + 5 16 16 0.00000000E+00 0.00000000E+00 0.96504988E+00 + 5 17 1 0.75020890E-15 0.73308197E-15 0.10233629E+01 + 5 17 2 0.10904638E-13 0.10653762E-13 0.10235481E+01 + 5 17 3 0.12680002E-12 0.12383752E-12 0.10239225E+01 + 5 17 4 0.76281227E-11 0.74444263E-11 0.10246757E+01 + 5 17 5 0.14638464E-09 0.14264906E-09 0.10261872E+01 + 5 17 6 0.10524645E-09 0.10226130E-09 0.10291914E+01 + 5 17 7 0.36447503E-09 0.35530042E-09 0.10258221E+01 + 5 17 8 0.14256175E-08 0.14077457E-08 0.10126953E+01 + 5 17 9 0.64075730E-08 0.59860112E-08 0.10704245E+01 + 5 17 10 0.24642982E-08 0.38313859E-08 0.64318717E+00 + 5 17 11 0.00000000E+00 0.00000000E+00 0.43613131E+00 + 5 17 12 0.00000000E+00 0.00000000E+00 0.82081966E+00 + 5 17 13 0.00000000E+00 0.00000000E+00 0.83349376E+00 + 5 17 14 0.00000000E+00 0.00000000E+00 0.63756211E+00 + 5 17 15 0.00000000E+00 0.00000000E+00 0.65785445E+00 + 5 17 16 0.00000000E+00 0.00000000E+00 0.10677681E+01 + 5 17 17 0.00000000E+00 0.00000000E+00 0.99050797E+00 + 5 18 1 0.23524506E-14 0.23091974E-14 0.10187308E+01 + 5 18 2 0.33918015E-13 0.33291219E-13 0.10188277E+01 + 5 18 3 0.39063455E-12 0.38334142E-12 0.10190251E+01 + 5 18 4 0.23177371E-10 0.22735740E-10 0.10194245E+01 + 5 18 5 0.43964143E-09 0.43092536E-09 0.10202264E+01 + 5 18 6 0.30972218E-09 0.30315345E-09 0.10216680E+01 + 5 18 7 0.10111241E-08 0.10070776E-08 0.10040181E+01 + 5 18 8 0.42130128E-08 0.41642564E-08 0.10117083E+01 + 5 18 9 0.20511616E-07 0.19567124E-07 0.10482693E+01 + 5 18 10 0.56496603E-08 0.16975265E-07 0.33281721E+00 + 5 18 11 0.00000000E+00 0.00000000E+00 0.23695460E+00 + 5 18 12 0.00000000E+00 0.00000000E+00 0.50359715E+00 + 5 18 13 0.00000000E+00 0.00000000E+00 0.67458613E+00 + 5 18 14 0.00000000E+00 0.00000000E+00 0.61393011E+00 + 5 18 15 0.00000000E+00 0.00000000E+00 0.59434079E+00 + 5 18 16 0.00000000E+00 0.00000000E+00 0.11042773E+01 + 5 18 17 0.00000000E+00 0.00000000E+00 0.10195210E+01 + 5 18 18 0.00000000E+00 0.00000000E+00 0.10596630E+01 + 6 1 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 6 2 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 6 2 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 6 3 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 6 3 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 6 3 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 6 4 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 6 4 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 6 4 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 6 4 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 6 5 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 6 5 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 6 5 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 6 5 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 6 5 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 6 6 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 6 6 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 6 6 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 6 6 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 6 6 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 6 6 6 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 6 7 1 0.26551378E-17 0.24774720E-17 0.10717125E+01 + 6 7 2 0.39640041E-17 0.37747803E-17 0.10501284E+01 + 6 7 3 0.51355848E-17 0.50341591E-17 0.10201475E+01 + 6 7 4 0.94729677E-17 0.95765021E-17 0.98918871E+00 + 6 7 5 0.98113069E-16 0.10191816E-15 0.96266528E+00 + 6 7 6 0.11176151E-14 0.12050456E-14 0.92744630E+00 + 6 7 7 0.17003896E-15 0.19200466E-15 0.88559810E+00 + 6 8 1 0.79577903E-22 0.74439283E-22 0.10690310E+01 + 6 8 2 0.29744475E-20 0.27940985E-20 0.10645464E+01 + 6 8 3 0.77620760E-19 0.74426775E-19 0.10429145E+01 + 6 8 4 0.15780501E-17 0.15578773E-17 0.10129489E+01 + 6 8 5 0.36057734E-15 0.36729497E-15 0.98171053E+00 + 6 8 6 0.71541012E-14 0.75250405E-14 0.95070600E+00 + 6 8 7 0.31776812E-14 0.34630170E-14 0.91760486E+00 + 6 8 8 0.23798623E-15 0.24476871E-15 0.97229026E+00 + 6 9 1 0.31147493E-21 0.28437592E-21 0.10952929E+01 + 6 9 2 0.11163184E-19 0.10500461E-19 0.10631137E+01 + 6 9 3 0.28737005E-18 0.27140337E-18 0.10588301E+01 + 6 9 4 0.56685563E-17 0.54661417E-17 0.10370306E+01 + 6 9 5 0.13162061E-14 0.13087295E-14 0.10057128E+01 + 6 9 6 0.29567924E-13 0.30342873E-13 0.97446026E+00 + 6 9 7 0.20742006E-13 0.22070430E-13 0.93980978E+00 + 6 9 8 0.49235130E-14 0.50148270E-14 0.98179121E+00 + 6 9 9 0.29387091E-23 0.29540335E-23 0.99481238E+00 + 6 10 1 0.11859275E-20 0.11029557E-20 0.10752267E+01 + 6 10 2 0.44923050E-19 0.41171160E-19 0.10911291E+01 + 6 10 3 0.11488165E-17 0.10859693E-17 0.10578720E+01 + 6 10 4 0.23643155E-16 0.22441671E-16 0.10535381E+01 + 6 10 5 0.55652917E-14 0.53943201E-14 0.10316947E+01 + 6 10 6 0.12295554E-12 0.12274301E-12 0.10017315E+01 + 6 10 7 0.91782396E-13 0.95036742E-13 0.96575697E+00 + 6 10 8 0.53350265E-13 0.54666697E-13 0.97591894E+00 + 6 10 9 0.24038102E-22 0.24140941E-22 0.99574004E+00 + 6 10 10 0.36114764E-28 0.36314781E-28 0.99449213E+00 + 6 11 1 0.53835502E-20 0.50687838E-20 0.10620990E+01 + 6 11 2 0.21240812E-18 0.19843646E-18 0.10704087E+01 + 6 11 3 0.59052613E-17 0.54310134E-17 0.10873222E+01 + 6 11 4 0.11805667E-15 0.11214821E-15 0.10526843E+01 + 6 11 5 0.26145863E-13 0.24943004E-13 0.10482243E+01 + 6 11 6 0.53374077E-12 0.52034982E-12 0.10257345E+01 + 6 11 7 0.36698173E-12 0.36997355E-12 0.99191343E+00 + 6 11 8 0.47549596E-12 0.49106556E-12 0.96829426E+00 + 6 11 9 0.10783269E-21 0.10815906E-21 0.99698253E+00 + 6 11 10 0.28561079E-27 0.28701042E-27 0.99512340E+00 + 6 11 11 0.00000000E+00 0.00000000E+00 0.99399930E+00 + 6 12 1 0.22663819E-19 0.21530738E-19 0.10526262E+01 + 6 12 2 0.88112886E-18 0.83357066E-18 0.10570536E+01 + 6 12 3 0.23620137E-16 0.22156891E-16 0.10660402E+01 + 6 12 4 0.47273427E-15 0.43594749E-15 0.10843835E+01 + 6 12 5 0.94953391E-13 0.90667273E-13 0.10472730E+01 + 6 12 6 0.19171954E-11 0.18380326E-11 0.10430693E+01 + 6 12 7 0.13321678E-11 0.13070314E-11 0.10192317E+01 + 6 12 8 0.40935528E-11 0.42742751E-11 0.95771860E+00 + 6 12 9 0.16256530E-12 0.16540035E-12 0.98285946E+00 + 6 12 10 0.12991367E-26 0.13038249E-26 0.99640426E+00 + 6 12 11 0.00000000E+00 0.00000000E+00 0.99485003E+00 + 6 12 12 0.00000000E+00 0.00000000E+00 0.99376764E+00 + 6 13 1 0.78270945E-19 0.74888994E-19 0.10451595E+01 + 6 13 2 0.29939723E-17 0.28581392E-17 0.10475250E+01 + 6 13 3 0.78826692E-16 0.74910548E-16 0.10522776E+01 + 6 13 4 0.15476725E-14 0.14574914E-14 0.10618742E+01 + 6 13 5 0.32621387E-12 0.30164627E-12 0.10814451E+01 + 6 13 6 0.64032920E-11 0.61434799E-11 0.10422907E+01 + 6 13 7 0.46177730E-11 0.44497877E-11 0.10377513E+01 + 6 13 8 0.22467730E-10 0.22266481E-10 0.10090382E+01 + 6 13 9 0.32809798E-10 0.35097400E-10 0.93482132E+00 + 6 13 10 0.17206993E-10 0.20953640E-10 0.82119350E+00 + 6 13 11 0.00000000E+00 0.00000000E+00 0.93556432E+00 + 6 13 12 0.00000000E+00 0.00000000E+00 0.99557497E+00 + 6 13 13 0.00000000E+00 0.00000000E+00 0.99300243E+00 + 6 14 1 0.26327325E-18 0.25341613E-18 0.10388970E+01 + 6 14 2 0.99541691E-17 0.95699153E-17 0.10401523E+01 + 6 14 3 0.25880680E-15 0.24821516E-15 0.10426712E+01 + 6 14 4 0.50133759E-14 0.47847927E-14 0.10477728E+01 + 6 14 5 0.10409782E-11 0.98390799E-12 0.10580036E+01 + 6 14 6 0.21662918E-10 0.20079779E-10 0.10788424E+01 + 6 14 7 0.15308060E-10 0.14756734E-10 0.10373609E+01 + 6 14 8 0.62287932E-10 0.63686641E-10 0.97803764E+00 + 6 14 9 0.18747937E-09 0.19765226E-09 0.94853134E+00 + 6 14 10 0.13612843E-09 0.19176846E-09 0.70985829E+00 + 6 14 11 0.00000000E+00 0.00000000E+00 0.52643605E+00 + 6 14 12 0.00000000E+00 0.00000000E+00 0.86933926E+00 + 6 14 13 0.00000000E+00 0.00000000E+00 0.10090678E+01 + 6 14 14 0.00000000E+00 0.00000000E+00 0.99218681E+00 + 6 15 1 0.87094346E-18 0.84284572E-18 0.10333368E+01 + 6 15 2 0.32574543E-16 0.31503338E-16 0.10340029E+01 + 6 15 3 0.83696326E-15 0.80839570E-15 0.10353386E+01 + 6 15 4 0.16008570E-13 0.15422176E-13 0.10380228E+01 + 6 15 5 0.32780069E-11 0.31416087E-11 0.10434167E+01 + 6 15 6 0.67515010E-10 0.64036470E-10 0.10543212E+01 + 6 15 7 0.48785796E-10 0.45284921E-10 0.10773077E+01 + 6 15 8 0.20122390E-09 0.20179049E-09 0.99719217E+00 + 6 15 9 0.91440036E-09 0.93991066E-09 0.97285881E+00 + 6 15 10 0.69612395E-09 0.10880786E-08 0.63977360E+00 + 6 15 11 0.00000000E+00 0.00000000E+00 0.43915858E+00 + 6 15 12 0.00000000E+00 0.00000000E+00 0.89587341E+00 + 6 15 13 0.00000000E+00 0.00000000E+00 0.92805872E+00 + 6 15 14 0.00000000E+00 0.00000000E+00 0.95347945E+00 + 6 15 15 0.00000000E+00 0.00000000E+00 0.10003488E+01 + 6 16 1 0.28267960E-17 0.27492518E-17 0.10282055E+01 + 6 16 2 0.10467263E-15 0.10176639E-15 0.10285579E+01 + 6 16 3 0.26594181E-14 0.25837998E-14 0.10292663E+01 + 6 16 4 0.50237418E-13 0.48741622E-13 0.10306883E+01 + 6 16 5 0.10130842E-10 0.98020245E-11 0.10335459E+01 + 6 16 6 0.20633192E-09 0.19853078E-09 0.10392943E+01 + 6 16 7 0.13497627E-09 0.12889573E-09 0.10471741E+01 + 6 16 8 0.59451736E-09 0.55510958E-09 0.10709910E+01 + 6 16 9 0.42058539E-08 0.42083703E-08 0.99940203E+00 + 6 16 10 0.39871752E-08 0.58166051E-08 0.68548151E+00 + 6 16 11 0.00000000E+00 0.00000000E+00 0.45779332E+00 + 6 16 12 0.00000000E+00 0.00000000E+00 0.90358367E+00 + 6 16 13 0.00000000E+00 0.00000000E+00 0.85241134E+00 + 6 16 14 0.00000000E+00 0.00000000E+00 0.64492282E+00 + 6 16 15 0.00000000E+00 0.00000000E+00 0.88262484E+00 + 6 16 16 0.00000000E+00 0.00000000E+00 0.96504988E+00 + 6 17 1 0.90019123E-17 0.87964028E-17 0.10233629E+01 + 6 17 2 0.33030558E-15 0.32270645E-15 0.10235481E+01 + 6 17 3 0.83041458E-14 0.81101315E-14 0.10239225E+01 + 6 17 4 0.15495007E-12 0.15121865E-12 0.10246757E+01 + 6 17 5 0.30711389E-10 0.29927666E-10 0.10261872E+01 + 6 17 6 0.61621229E-09 0.59873441E-09 0.10291914E+01 + 6 17 7 0.36865390E-09 0.35937410E-09 0.10258221E+01 + 6 17 8 0.15615604E-08 0.15419845E-08 0.10126953E+01 + 6 17 9 0.12964617E-07 0.12111659E-07 0.10704245E+01 + 6 17 10 0.19443646E-07 0.30230152E-07 0.64318717E+00 + 6 17 11 0.00000000E+00 0.00000000E+00 0.43613131E+00 + 6 17 12 0.00000000E+00 0.00000000E+00 0.82081966E+00 + 6 17 13 0.00000000E+00 0.00000000E+00 0.83349376E+00 + 6 17 14 0.00000000E+00 0.00000000E+00 0.63756211E+00 + 6 17 15 0.00000000E+00 0.00000000E+00 0.65785445E+00 + 6 17 16 0.00000000E+00 0.00000000E+00 0.10677681E+01 + 6 17 17 0.00000000E+00 0.00000000E+00 0.99050797E+00 + 6 18 1 0.28216272E-16 0.27697475E-16 0.10187308E+01 + 6 18 2 0.10269592E-14 0.10079812E-14 0.10188277E+01 + 6 18 3 0.25571429E-13 0.25094012E-13 0.10190251E+01 + 6 18 4 0.47161424E-12 0.46262791E-12 0.10194245E+01 + 6 18 5 0.91827247E-10 0.90006734E-10 0.10202264E+01 + 6 18 6 0.18104590E-08 0.17720619E-08 0.10216680E+01 + 6 18 7 0.10327986E-08 0.10286653E-08 0.10040181E+01 + 6 18 8 0.46691383E-08 0.46151033E-08 0.10117083E+01 + 6 18 9 0.31497890E-07 0.30047516E-07 0.10482693E+01 + 6 18 10 0.36311332E-07 0.10910293E-06 0.33281721E+00 + 6 18 11 0.00000000E+00 0.00000000E+00 0.23695460E+00 + 6 18 12 0.00000000E+00 0.00000000E+00 0.50359715E+00 + 6 18 13 0.00000000E+00 0.00000000E+00 0.67458613E+00 + 6 18 14 0.00000000E+00 0.00000000E+00 0.61393011E+00 + 6 18 15 0.00000000E+00 0.00000000E+00 0.59434079E+00 + 6 18 16 0.00000000E+00 0.00000000E+00 0.11042773E+01 + 6 18 17 0.00000000E+00 0.00000000E+00 0.10195210E+01 + 6 18 18 0.00000000E+00 0.00000000E+00 0.10596630E+01 + 7 1 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 7 2 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 7 2 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 7 3 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 7 3 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 7 3 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 7 4 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 7 4 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 7 4 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 7 4 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 7 5 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 7 5 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 7 5 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 7 5 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 7 5 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 7 6 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 7 6 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 7 6 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 7 6 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 7 6 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 7 6 6 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 7 7 1 0.75383870E-16 0.70339638E-16 0.10717125E+01 + 7 7 2 0.16274591E-15 0.15497715E-15 0.10501284E+01 + 7 7 3 0.36301927E-15 0.35584978E-15 0.10201475E+01 + 7 7 4 0.82414327E-15 0.83315071E-15 0.98918871E+00 + 7 7 5 0.17808650E-14 0.18499317E-14 0.96266528E+00 + 7 7 6 0.28506406E-14 0.30736449E-14 0.92744630E+00 + 7 7 7 0.17164454E-14 0.19381765E-14 0.88559810E+00 + 7 8 1 0.22748232E-16 0.21279300E-16 0.10690310E+01 + 7 8 2 0.40307285E-16 0.37863343E-16 0.10645464E+01 + 7 8 3 0.60472617E-16 0.57984254E-16 0.10429145E+01 + 7 8 4 0.82973365E-16 0.81912686E-16 0.10129489E+01 + 7 8 5 0.16300374E-15 0.16604053E-15 0.98171053E+00 + 7 8 6 0.18160098E-14 0.19101697E-14 0.95070600E+00 + 7 8 7 0.20466700E-13 0.22304481E-13 0.91760486E+00 + 7 8 8 0.26689652E-14 0.27450292E-14 0.97229026E+00 + 7 9 1 0.63576607E-24 0.58045302E-24 0.10952929E+01 + 7 9 2 0.71590998E-22 0.67340865E-22 0.10631137E+01 + 7 9 3 0.47401652E-20 0.44767950E-20 0.10588301E+01 + 7 9 4 0.20578107E-18 0.19843297E-18 0.10370306E+01 + 7 9 5 0.67632039E-17 0.67247864E-17 0.10057128E+01 + 7 9 6 0.67082957E-14 0.68841141E-14 0.97446026E+00 + 7 9 7 0.13047221E-12 0.13882832E-12 0.93980978E+00 + 7 9 8 0.34478589E-13 0.35118046E-13 0.98179121E+00 + 7 9 9 0.67268355E-17 0.67619137E-17 0.99481238E+00 + 7 10 1 0.24012144E-23 0.22332169E-23 0.10752267E+01 + 7 10 2 0.28828563E-21 0.26420855E-21 0.10911291E+01 + 7 10 3 0.18969555E-19 0.17931806E-19 0.10578720E+01 + 7 10 4 0.85908998E-18 0.81543325E-18 0.10535381E+01 + 7 10 5 0.28638160E-16 0.27758366E-16 0.10316947E+01 + 7 10 6 0.27736962E-13 0.27689018E-13 0.10017315E+01 + 7 10 7 0.55710565E-12 0.57685905E-12 0.96575697E+00 + 7 10 8 0.17671875E-12 0.18107934E-12 0.97591894E+00 + 7 10 9 0.56091060E-16 0.56331028E-16 0.99574004E+00 + 7 10 10 0.21455656E-21 0.21574486E-21 0.99449213E+00 + 7 11 1 0.10925936E-22 0.10287117E-22 0.10620990E+01 + 7 11 2 0.13661061E-20 0.12762471E-20 0.10704087E+01 + 7 11 3 0.97624768E-19 0.89784583E-19 0.10873222E+01 + 7 11 4 0.42859262E-17 0.40714258E-17 0.10526843E+01 + 7 11 5 0.13612708E-15 0.12986446E-15 0.10482243E+01 + 7 11 6 0.11650221E-12 0.11357930E-12 0.10257345E+01 + 7 11 7 0.22125337E-11 0.22305714E-11 0.99191343E+00 + 7 11 8 0.84573876E-12 0.87343155E-12 0.96829426E+00 + 7 11 9 0.25272243E-15 0.25348732E-15 0.99698253E+00 + 7 11 10 0.16891179E-20 0.16973955E-20 0.99512340E+00 + 7 11 11 0.25296856E-26 0.25449571E-26 0.99399930E+00 + 7 12 1 0.45991491E-22 0.43692139E-22 0.10526262E+01 + 7 12 2 0.56623534E-20 0.53567326E-20 0.10570536E+01 + 7 12 3 0.38986074E-18 0.36570922E-18 0.10660402E+01 + 7 12 4 0.17125173E-16 0.15792543E-16 0.10843835E+01 + 7 12 5 0.49795785E-15 0.47548044E-15 0.10472730E+01 + 7 12 6 0.41582072E-12 0.39865109E-12 0.10430693E+01 + 7 12 7 0.80405433E-11 0.78888281E-11 0.10192317E+01 + 7 12 8 0.48235026E-11 0.50364508E-11 0.95771860E+00 + 7 12 9 0.25110966E-12 0.25548888E-12 0.98285946E+00 + 7 12 10 0.76757058E-20 0.77034052E-20 0.99640426E+00 + 7 12 11 0.20042018E-25 0.20145768E-25 0.99485003E+00 + 7 12 12 0.55411859E-30 0.55759371E-30 0.99376764E+00 + 7 13 1 0.15872551E-21 0.15186726E-21 0.10451595E+01 + 7 13 2 0.19226789E-19 0.18354492E-19 0.10475250E+01 + 7 13 3 0.13003068E-17 0.12357070E-17 0.10522776E+01 + 7 13 4 0.56044923E-16 0.52779251E-16 0.10618742E+01 + 7 13 5 0.17108926E-14 0.15820430E-14 0.10814451E+01 + 7 13 6 0.13932382E-11 0.13367079E-11 0.10422907E+01 + 7 13 7 0.27927705E-10 0.26911751E-10 0.10377513E+01 + 7 13 8 0.20132943E-10 0.19952607E-10 0.10090382E+01 + 7 13 9 0.41740711E-10 0.44651005E-10 0.93482132E+00 + 7 13 10 0.57573205E-10 0.70109183E-10 0.82119350E+00 + 7 13 11 0.94618918E-12 0.10113566E-11 0.93556432E+00 + 7 13 12 0.32557344E-18 0.32702051E-18 0.99557497E+00 + 7 13 13 0.18416244E-32 0.18546021E-32 0.99300243E+00 + 7 14 1 0.53361294E-21 0.51363412E-21 0.10388970E+01 + 7 14 2 0.63891763E-19 0.61425394E-19 0.10401523E+01 + 7 14 3 0.42673120E-17 0.40926728E-17 0.10426712E+01 + 7 14 4 0.18148539E-15 0.17321063E-15 0.10477728E+01 + 7 14 5 0.54619414E-14 0.51624980E-14 0.10580036E+01 + 7 14 6 0.47236288E-11 0.43784232E-11 0.10788424E+01 + 7 14 7 0.92754263E-10 0.89413683E-10 0.10373609E+01 + 7 14 8 0.49370788E-10 0.50479436E-10 0.97803764E+00 + 7 14 9 0.12673080E-09 0.13360740E-09 0.94853134E+00 + 7 14 10 0.42080339E-09 0.59279915E-09 0.70985829E+00 + 7 14 11 0.29757345E-10 0.56526041E-10 0.52643605E+00 + 7 14 12 0.87043229E-11 0.10012573E-10 0.86933926E+00 + 7 14 13 0.79772007E-15 0.79055147E-15 0.10090678E+01 + 7 14 14 0.16740399E-24 0.16872225E-24 0.99218681E+00 + 7 15 1 0.17643878E-20 0.17074664E-20 0.10333368E+01 + 7 15 2 0.20897811E-18 0.20210593E-18 0.10340029E+01 + 7 15 3 0.13793694E-16 0.13322882E-16 0.10353386E+01 + 7 15 4 0.57928338E-15 0.55806423E-15 0.10380228E+01 + 7 15 5 0.17213981E-13 0.16497705E-13 0.10434167E+01 + 7 15 6 0.14732172E-10 0.13973134E-10 0.10543212E+01 + 7 15 7 0.29454309E-09 0.27340664E-09 0.10773077E+01 + 7 15 8 0.16091325E-09 0.16136634E-09 0.99719217E+00 + 7 15 9 0.71975699E-09 0.73983705E-09 0.97285881E+00 + 7 15 10 0.23518637E-08 0.36760875E-08 0.63977360E+00 + 7 15 11 0.20681185E-09 0.47092750E-09 0.43915858E+00 + 7 15 12 0.43997396E-09 0.49111175E-09 0.89587341E+00 + 7 15 13 0.19594302E-09 0.21113214E-09 0.92805872E+00 + 7 15 14 0.12735286E-10 0.13356644E-10 0.95347945E+00 + 7 15 15 0.13042227E-22 0.13037680E-22 0.10003488E+01 + 7 16 1 0.57239891E-20 0.55669697E-20 0.10282055E+01 + 7 16 2 0.67119165E-18 0.65255601E-18 0.10285579E+01 + 7 16 3 0.43807898E-16 0.42562258E-16 0.10292663E+01 + 7 16 4 0.18170565E-14 0.17629545E-14 0.10306883E+01 + 7 16 5 0.53274420E-13 0.51545287E-13 0.10335459E+01 + 7 16 6 0.44940692E-10 0.43241544E-10 0.10392943E+01 + 7 16 7 0.79755588E-09 0.76162684E-09 0.10471741E+01 + 7 16 8 0.40611352E-09 0.37919415E-09 0.10709910E+01 + 7 16 9 0.47805855E-08 0.47834459E-08 0.99940203E+00 + 7 16 10 0.14921406E-07 0.21767773E-07 0.68548151E+00 + 7 16 11 0.13942051E-08 0.30454903E-08 0.45779332E+00 + 7 16 12 0.33026033E-08 0.36550055E-08 0.90358367E+00 + 7 16 13 0.27559936E-08 0.32331733E-08 0.85241134E+00 + 7 16 14 0.11991608E-08 0.18593865E-08 0.64492282E+00 + 7 16 15 0.36716069E-09 0.41598726E-09 0.88262484E+00 + 7 16 16 0.44687342E-10 0.46305733E-10 0.96504988E+00 + 7 17 1 0.18220406E-19 0.17804443E-19 0.10233629E+01 + 7 17 2 0.21170626E-17 0.20683566E-17 0.10235481E+01 + 7 17 3 0.13672739E-15 0.13353295E-15 0.10239225E+01 + 7 17 4 0.56016830E-14 0.54667862E-14 0.10246757E+01 + 7 17 5 0.16180989E-12 0.15768067E-12 0.10261872E+01 + 7 17 6 0.13340506E-09 0.12962124E-09 0.10291914E+01 + 7 17 7 0.21602857E-08 0.21059067E-08 0.10258221E+01 + 7 17 8 0.11375825E-08 0.11233216E-08 0.10126953E+01 + 7 17 9 0.11068187E-07 0.10339998E-07 0.10704245E+01 + 7 17 10 0.72234161E-07 0.11230660E-06 0.64318717E+00 + 7 17 11 0.64803810E-08 0.14858784E-07 0.43613131E+00 + 7 17 12 0.17123209E-07 0.20861109E-07 0.82081966E+00 + 7 17 13 0.17706103E-07 0.21243234E-07 0.83349376E+00 + 7 17 14 0.95794113E-08 0.15025064E-07 0.63756211E+00 + 7 17 15 0.37196547E-08 0.56542214E-08 0.65785445E+00 + 7 17 16 0.23480814E-09 0.21990555E-09 0.10677681E+01 + 7 17 17 0.28379701E-11 0.28651663E-11 0.99050797E+00 + 7 18 1 0.57090300E-19 0.56040612E-19 0.10187308E+01 + 7 18 2 0.65795044E-17 0.64579170E-17 0.10188277E+01 + 7 18 3 0.42084525E-15 0.41298809E-15 0.10190251E+01 + 7 18 4 0.17041181E-13 0.16716472E-13 0.10194245E+01 + 7 18 5 0.48485518E-12 0.47524272E-12 0.10202264E+01 + 7 18 6 0.38803491E-09 0.37980529E-09 0.10216680E+01 + 7 18 7 0.59983677E-08 0.59743620E-08 0.10040181E+01 + 7 18 8 0.36072901E-08 0.35655437E-08 0.10117083E+01 + 7 18 9 0.15725344E-07 0.15001244E-07 0.10482693E+01 + 7 18 10 0.12635167E-06 0.37964284E-06 0.33281721E+00 + 7 18 11 0.11900170E-07 0.50221310E-07 0.23695460E+00 + 7 18 12 0.39685736E-07 0.78804529E-07 0.50359715E+00 + 7 18 13 0.53140610E-07 0.78775129E-07 0.67458613E+00 + 7 18 14 0.41009674E-07 0.66798603E-07 0.61393011E+00 + 7 18 15 0.55545340E-07 0.93457055E-07 0.59434079E+00 + 7 18 16 0.24200250E-07 0.21915011E-07 0.11042773E+01 + 7 18 17 0.14144387E-13 0.13873562E-13 0.10195210E+01 + 7 18 18 0.21446181E-32 0.20238681E-32 0.10596630E+01 + 8 1 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 8 2 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 8 2 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 8 3 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 8 3 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 8 3 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 8 4 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 8 4 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 8 4 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 8 4 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 8 5 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 8 5 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 8 5 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 8 5 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 8 5 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 8 6 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 8 6 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 8 6 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 8 6 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 8 6 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 8 6 6 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 8 7 1 0.12591650E-18 0.11749093E-18 0.10717125E+01 + 8 7 2 0.10412657E-17 0.99156035E-18 0.10501284E+01 + 8 7 3 0.82850920E-17 0.81214648E-17 0.10201475E+01 + 8 7 4 0.47157023E-16 0.47672424E-16 0.98918871E+00 + 8 7 5 0.14322439E-15 0.14877901E-15 0.96266528E+00 + 8 7 6 0.26156054E-15 0.28202230E-15 0.92744630E+00 + 8 7 7 0.18365599E-15 0.20738075E-15 0.88559810E+00 + 8 8 1 0.57762478E-15 0.54032556E-15 0.10690310E+01 + 8 8 2 0.12229597E-14 0.11488083E-14 0.10645464E+01 + 8 8 3 0.26863034E-14 0.25757658E-14 0.10429145E+01 + 8 8 4 0.61855206E-14 0.61064488E-14 0.10129489E+01 + 8 8 5 0.14715410E-13 0.14989562E-13 0.98171053E+00 + 8 8 6 0.33098779E-13 0.34814947E-13 0.95070600E+00 + 8 8 7 0.54178502E-13 0.59043391E-13 0.91760486E+00 + 8 8 8 0.37362544E-13 0.38427356E-13 0.97229026E+00 + 8 9 1 0.18022212E-15 0.16454240E-15 0.10952929E+01 + 8 9 2 0.33423695E-15 0.31439436E-15 0.10631137E+01 + 8 9 3 0.59271553E-15 0.55978343E-15 0.10588301E+01 + 8 9 4 0.89225425E-15 0.86039335E-15 0.10370306E+01 + 8 9 5 0.12840154E-14 0.12767218E-14 0.10057128E+01 + 8 9 6 0.27683382E-14 0.28408939E-14 0.97446026E+00 + 8 9 7 0.34178376E-13 0.36367334E-13 0.93980978E+00 + 8 9 8 0.39601946E-12 0.40336424E-12 0.98179121E+00 + 8 9 9 0.50596069E-13 0.50859911E-13 0.99481238E+00 + 8 10 1 0.63311094E-26 0.58881623E-26 0.10752267E+01 + 8 10 2 0.38649232E-24 0.35421320E-24 0.10911291E+01 + 8 10 3 0.77098548E-22 0.72880792E-22 0.10578720E+01 + 8 10 4 0.87455706E-20 0.83011433E-20 0.10535381E+01 + 8 10 5 0.62731409E-18 0.60804235E-18 0.10316947E+01 + 8 10 6 0.30892548E-16 0.30839149E-16 0.10017315E+01 + 8 10 7 0.12678429E-12 0.13127971E-12 0.96575697E+00 + 8 10 8 0.21503729E-11 0.22034339E-11 0.97591894E+00 + 8 10 9 0.47908039E-12 0.48112998E-12 0.99574004E+00 + 8 10 10 0.17911376E-15 0.18010575E-15 0.99449213E+00 + 8 11 1 0.36641897E-26 0.34499511E-26 0.10620990E+01 + 8 11 2 0.18169960E-23 0.16974787E-23 0.10704087E+01 + 8 11 3 0.39718544E-21 0.36528772E-21 0.10873222E+01 + 8 11 4 0.43592213E-19 0.41410527E-19 0.10526843E+01 + 8 11 5 0.29727378E-17 0.28359750E-17 0.10482243E+01 + 8 11 6 0.13154101E-15 0.12824079E-15 0.10257345E+01 + 8 11 7 0.49849330E-12 0.50255727E-12 0.99191343E+00 + 8 11 8 0.88315129E-11 0.91206911E-11 0.96829426E+00 + 8 11 9 0.22254039E-11 0.22321393E-11 0.99698253E+00 + 8 11 10 0.14377637E-14 0.14448094E-14 0.99512340E+00 + 8 11 11 0.13156643E-19 0.13236069E-19 0.99399930E+00 + 8 12 1 0.15422302E-25 0.14651262E-25 0.10526262E+01 + 8 12 2 0.75256790E-23 0.71194867E-23 0.10570536E+01 + 8 12 3 0.15837932E-20 0.14856786E-20 0.10660402E+01 + 8 12 4 0.17382426E-18 0.16029777E-18 0.10843835E+01 + 8 12 5 0.10853160E-16 0.10363257E-16 0.10472730E+01 + 8 12 6 0.47067412E-15 0.45123954E-15 0.10430693E+01 + 8 12 7 0.18270927E-11 0.17926177E-11 0.10192317E+01 + 8 12 8 0.34289457E-10 0.35803270E-10 0.95771860E+00 + 8 12 9 0.92140976E-11 0.93747865E-11 0.98285946E+00 + 8 12 10 0.65613203E-14 0.65849982E-14 0.99640426E+00 + 8 12 11 0.10370958E-18 0.10424645E-18 0.99485003E+00 + 8 12 12 0.99513607E-24 0.10013770E-23 0.99376764E+00 + 8 13 1 0.53195662E-25 0.50897170E-25 0.10451595E+01 + 8 13 2 0.25538594E-22 0.24379938E-22 0.10475250E+01 + 8 13 3 0.52796363E-20 0.50173417E-20 0.10522776E+01 + 8 13 4 0.56867324E-18 0.53553732E-18 0.10618742E+01 + 8 13 5 0.37288083E-16 0.34479868E-16 0.10814451E+01 + 8 13 6 0.15748471E-14 0.15109481E-14 0.10422907E+01 + 8 13 7 0.64031708E-11 0.61702363E-11 0.10377513E+01 + 8 13 8 0.12032879E-09 0.11925097E-09 0.10090382E+01 + 8 13 9 0.75952389E-10 0.81248028E-10 0.93482132E+00 + 8 13 10 0.14438965E-09 0.17582903E-09 0.82119350E+00 + 8 13 11 0.55222581E-10 0.59025959E-10 0.93556432E+00 + 8 13 12 0.11130414E-13 0.11179885E-13 0.99557497E+00 + 8 13 13 0.50009301E-27 0.50361711E-27 0.99300243E+00 + 8 14 1 0.17876083E-24 0.17206791E-24 0.10388970E+01 + 8 14 2 0.84829208E-22 0.81554605E-22 0.10401523E+01 + 8 14 3 0.17319537E-19 0.16610737E-19 0.10426712E+01 + 8 14 4 0.18409072E-17 0.17569717E-17 0.10477728E+01 + 8 14 5 0.11902564E-15 0.11250023E-15 0.10580036E+01 + 8 14 6 0.53342676E-14 0.49444362E-14 0.10788424E+01 + 8 14 7 0.21399846E-10 0.20629123E-10 0.10373609E+01 + 8 14 8 0.31218422E-09 0.31919448E-09 0.97803764E+00 + 8 14 9 0.20930233E-09 0.22065937E-09 0.94853134E+00 + 8 14 10 0.11359364E-08 0.16002299E-08 0.70985829E+00 + 8 14 11 0.16873696E-08 0.32052699E-08 0.52643605E+00 + 8 14 12 0.51444904E-09 0.59177017E-09 0.86933926E+00 + 8 14 13 0.25412515E-11 0.25184149E-11 0.10090678E+01 + 8 14 14 0.79980159E-23 0.80609980E-23 0.99218681E+00 + 8 15 1 0.59083362E-24 0.57177258E-24 0.10333368E+01 + 8 15 2 0.27734018E-21 0.26821993E-21 0.10340029E+01 + 8 15 3 0.55959772E-19 0.54049731E-19 0.10353386E+01 + 8 15 4 0.58737962E-17 0.56586390E-17 0.10380228E+01 + 8 15 5 0.37503657E-15 0.35943125E-15 0.10434167E+01 + 8 15 6 0.16630994E-13 0.15774124E-13 0.10543212E+01 + 8 15 7 0.64199373E-10 0.59592418E-10 0.10773077E+01 + 8 15 8 0.98325153E-09 0.98602011E-09 0.99719217E+00 + 8 15 9 0.15516593E-08 0.15949481E-08 0.97285881E+00 + 8 15 10 0.69864929E-08 0.10920258E-07 0.63977360E+00 + 8 15 11 0.12547427E-07 0.28571518E-07 0.43915858E+00 + 8 15 12 0.22069907E-07 0.24635073E-07 0.89587341E+00 + 8 15 13 0.16181826E-07 0.17436209E-07 0.92805872E+00 + 8 15 14 0.26741150E-08 0.28045858E-08 0.95347945E+00 + 8 15 15 0.61502221E-21 0.61480779E-21 0.10003488E+01 + 8 16 1 0.19160537E-23 0.18634929E-23 0.10282055E+01 + 8 16 2 0.89038304E-21 0.86566155E-21 0.10285579E+01 + 8 16 3 0.17764671E-18 0.17259548E-18 0.10292663E+01 + 8 16 4 0.18416618E-16 0.17868271E-16 0.10306883E+01 + 8 16 5 0.11602426E-14 0.11225845E-14 0.10335459E+01 + 8 16 6 0.50770676E-13 0.48851105E-13 0.10392943E+01 + 8 16 7 0.16811919E-09 0.16054560E-09 0.10471741E+01 + 8 16 8 0.27833403E-08 0.25988457E-08 0.10709910E+01 + 8 16 9 0.92010609E-08 0.92065661E-08 0.99940203E+00 + 8 16 10 0.40761048E-07 0.59463380E-07 0.68548151E+00 + 8 16 11 0.76101821E-07 0.16623620E-06 0.45779332E+00 + 8 16 12 0.19442841E-06 0.21517477E-06 0.90358367E+00 + 8 16 13 0.19020953E-06 0.22314289E-06 0.85241134E+00 + 8 16 14 0.10409145E-06 0.16140141E-06 0.64492282E+00 + 8 16 15 0.39115313E-07 0.44317032E-07 0.88262484E+00 + 8 16 16 0.67171843E-08 0.69604530E-08 0.96504988E+00 + 8 17 1 0.60970488E-23 0.59578559E-23 0.10233629E+01 + 8 17 2 0.28073318E-20 0.27427453E-20 0.10235481E+01 + 8 17 3 0.55420719E-18 0.54125895E-18 0.10239225E+01 + 8 17 4 0.56748807E-16 0.55382213E-16 0.10246757E+01 + 8 17 5 0.35221975E-14 0.34323146E-14 0.10261872E+01 + 8 17 6 0.15110918E-12 0.14682320E-12 0.10291914E+01 + 8 17 7 0.45134188E-09 0.43998064E-09 0.10258221E+01 + 8 17 8 0.73400720E-08 0.72480559E-08 0.10126953E+01 + 8 17 9 0.13791477E-07 0.12884120E-07 0.10704245E+01 + 8 17 10 0.16951923E-06 0.26356128E-06 0.64318717E+00 + 8 17 11 0.32025435E-06 0.73430716E-06 0.43613131E+00 + 8 17 12 0.88249114E-06 0.10751340E-05 0.82081966E+00 + 8 17 13 0.10339522E-05 0.12405038E-05 0.83349376E+00 + 8 17 14 0.62690075E-06 0.98327793E-06 0.63756211E+00 + 8 17 15 0.26852968E-06 0.40819011E-06 0.65785445E+00 + 8 17 16 0.25142494E-07 0.23546773E-07 0.10677681E+01 + 8 17 17 0.22821010E-09 0.23039703E-09 0.99050797E+00 + 8 18 1 0.19098233E-22 0.18747084E-22 0.10187308E+01 + 8 18 2 0.87216433E-20 0.85604696E-20 0.10188277E+01 + 8 18 3 0.17051467E-17 0.16733117E-17 0.10190251E+01 + 8 18 4 0.17255781E-15 0.16926982E-15 0.10194245E+01 + 8 18 5 0.10548080E-13 0.10338960E-13 0.10202264E+01 + 8 18 6 0.44244011E-12 0.43305664E-12 0.10216680E+01 + 8 18 7 0.12818379E-08 0.12767079E-08 0.10040181E+01 + 8 18 8 0.20515271E-07 0.20277852E-07 0.10117083E+01 + 8 18 9 0.94845373E-08 0.90478057E-08 0.10482693E+01 + 8 18 10 0.31028058E-06 0.93228526E-06 0.33281721E+00 + 8 18 11 0.57185191E-06 0.24133396E-05 0.23695460E+00 + 8 18 12 0.18926217E-05 0.37582059E-05 0.50359715E+00 + 8 18 13 0.27636254E-05 0.40967717E-05 0.67458613E+00 + 8 18 14 0.21861065E-05 0.35608394E-05 0.61393011E+00 + 8 18 15 0.29846407E-05 0.50217665E-05 0.59434079E+00 + 8 18 16 0.16192264E-05 0.14663223E-05 0.11042773E+01 + 8 18 17 0.33820762E-09 0.33173189E-09 0.10195210E+01 + 8 18 18 0.79159535E-30 0.74702558E-30 0.10596630E+01 + 9 1 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 9 2 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 9 2 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 9 3 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 9 3 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 9 3 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 9 4 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 9 4 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 9 4 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 9 4 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 9 5 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 9 5 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 9 5 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 9 5 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 9 5 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 9 6 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 9 6 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 9 6 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 9 6 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 9 6 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 9 6 6 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 9 7 1 0.00000000E+00 0.00000000E+00 0.10717125E+01 + 9 7 2 0.00000000E+00 0.00000000E+00 0.10501284E+01 + 9 7 3 0.00000000E+00 0.00000000E+00 0.10201475E+01 + 9 7 4 0.00000000E+00 0.00000000E+00 0.98918871E+00 + 9 7 5 0.00000000E+00 0.00000000E+00 0.96266528E+00 + 9 7 6 0.00000000E+00 0.00000000E+00 0.92744630E+00 + 9 7 7 0.00000000E+00 0.00000000E+00 0.88559810E+00 + 9 8 1 0.17170630E-18 0.16061863E-18 0.10690310E+01 + 9 8 2 0.21484891E-17 0.20182203E-17 0.10645464E+01 + 9 8 3 0.18003150E-16 0.17262346E-16 0.10429145E+01 + 9 8 4 0.14518486E-15 0.14332891E-15 0.10129489E+01 + 9 8 5 0.81753094E-15 0.83276170E-15 0.98171053E+00 + 9 8 6 0.24778065E-14 0.26062805E-14 0.95070600E+00 + 9 8 7 0.46611955E-14 0.50797415E-14 0.91760486E+00 + 9 8 8 0.40666721E-14 0.41825700E-14 0.97229026E+00 + 9 9 1 0.44196733E-14 0.40351520E-14 0.10952929E+01 + 9 9 2 0.92244209E-14 0.86767960E-14 0.10631137E+01 + 9 9 3 0.19714590E-13 0.18619220E-13 0.10588301E+01 + 9 9 4 0.44261020E-13 0.42680533E-13 0.10370306E+01 + 9 9 5 0.10723288E-12 0.10662376E-12 0.10057128E+01 + 9 9 6 0.27313233E-12 0.28029089E-12 0.97446026E+00 + 9 9 7 0.62720522E-12 0.66737464E-12 0.93980978E+00 + 9 9 8 0.10797531E-11 0.10997787E-11 0.98179121E+00 + 9 9 9 0.78021563E-12 0.78428420E-12 0.99481238E+00 + 9 10 1 0.13133572E-14 0.12214701E-14 0.10752267E+01 + 9 10 2 0.26274898E-14 0.24080468E-14 0.10911291E+01 + 9 10 3 0.48723831E-14 0.46058343E-14 0.10578720E+01 + 9 10 4 0.87717159E-14 0.83259599E-14 0.10535381E+01 + 9 10 5 0.13873948E-13 0.13447726E-13 0.10316947E+01 + 9 10 6 0.22526481E-13 0.22487544E-13 0.10017315E+01 + 9 10 7 0.48862597E-13 0.50595127E-13 0.96575697E+00 + 9 10 8 0.60888967E-12 0.62391418E-12 0.97591894E+00 + 9 10 9 0.59375069E-11 0.59629087E-11 0.99574004E+00 + 9 10 10 0.80073445E-12 0.80516922E-12 0.99449213E+00 + 9 11 1 0.31571445E-26 0.29725520E-26 0.10620990E+01 + 9 11 2 0.39918992E-26 0.37293223E-26 0.10704087E+01 + 9 11 3 0.39288552E-24 0.36133313E-24 0.10873222E+01 + 9 11 4 0.12204372E-21 0.11593572E-21 0.10526843E+01 + 9 11 5 0.19623178E-19 0.18720400E-19 0.10482243E+01 + 9 11 6 0.17739411E-17 0.17294350E-17 0.10257345E+01 + 9 11 7 0.10138267E-15 0.10220919E-15 0.99191343E+00 + 9 11 8 0.23833593E-11 0.24613998E-11 0.96829426E+00 + 9 11 9 0.31608532E-10 0.31704199E-10 0.99698253E+00 + 9 11 10 0.73190806E-11 0.73549478E-11 0.99512340E+00 + 9 11 11 0.43144964E-14 0.43405426E-14 0.99399930E+00 + 9 12 1 0.84050482E-30 0.79848365E-30 0.10526262E+01 + 9 12 2 0.20397872E-26 0.19296914E-26 0.10570536E+01 + 9 12 3 0.15564345E-23 0.14600148E-23 0.10660402E+01 + 9 12 4 0.48576196E-21 0.44796140E-21 0.10843835E+01 + 9 12 5 0.71515789E-19 0.68287626E-19 0.10472730E+01 + 9 12 6 0.63431216E-17 0.60812081E-17 0.10430693E+01 + 9 12 7 0.37041516E-15 0.36342588E-15 0.10192317E+01 + 9 12 8 0.11148810E-10 0.11641008E-10 0.95771860E+00 + 9 12 9 0.13047129E-09 0.13274664E-09 0.98285946E+00 + 9 12 10 0.34386293E-10 0.34510384E-10 0.99640426E+00 + 9 12 11 0.34706463E-13 0.34886126E-13 0.99485003E+00 + 9 12 12 0.69969610E-18 0.70408420E-18 0.99376764E+00 + 9 13 1 0.28978996E-29 0.27726864E-29 0.10451595E+01 + 9 13 2 0.69187780E-26 0.66048812E-26 0.10475250E+01 + 9 13 3 0.51861184E-23 0.49284698E-23 0.10522776E+01 + 9 13 4 0.15887187E-20 0.14961459E-20 0.10618742E+01 + 9 13 5 0.24569972E-18 0.22719574E-18 0.10814451E+01 + 9 13 6 0.21230907E-16 0.20369468E-16 0.10422907E+01 + 9 13 7 0.12939744E-14 0.12469022E-14 0.10377513E+01 + 9 13 8 0.29546637E-10 0.29281980E-10 0.10090382E+01 + 9 13 9 0.40921821E-09 0.43775019E-09 0.93482132E+00 + 9 13 10 0.38603171E-09 0.47008617E-09 0.82119350E+00 + 9 13 11 0.26671002E-09 0.28507929E-09 0.93556432E+00 + 9 13 12 0.40287958E-11 0.40467026E-11 0.99557497E+00 + 9 13 13 0.11814854E-21 0.11898112E-21 0.99300243E+00 + 9 14 1 0.97351052E-29 0.93706165E-29 0.10388970E+01 + 9 14 2 0.22973448E-25 0.22086620E-25 0.10401523E+01 + 9 14 3 0.17006937E-22 0.16310930E-22 0.10426712E+01 + 9 14 4 0.51415837E-20 0.49071549E-20 0.10477728E+01 + 9 14 5 0.78420352E-18 0.74121064E-18 0.10580036E+01 + 9 14 6 0.71929125E-16 0.66672502E-16 0.10788424E+01 + 9 14 7 0.43150728E-14 0.41596638E-14 0.10373609E+01 + 9 14 8 0.89321786E-10 0.91327555E-10 0.97803764E+00 + 9 14 9 0.12316440E-08 0.12984747E-08 0.94853134E+00 + 9 14 10 0.26773158E-08 0.37716202E-08 0.70985829E+00 + 9 14 11 0.55570811E-08 0.10556042E-07 0.52643605E+00 + 9 14 12 0.34963586E-08 0.40218574E-08 0.86933926E+00 + 9 14 13 0.28841871E-09 0.28582688E-09 0.10090678E+01 + 9 14 14 0.17905845E-22 0.18046848E-22 0.99218681E+00 + 9 15 1 0.32166291E-28 0.31128566E-28 0.10333368E+01 + 9 15 2 0.75083157E-25 0.72614068E-25 0.10340029E+01 + 9 15 3 0.54929802E-22 0.53054916E-22 0.10353386E+01 + 9 15 4 0.16399892E-19 0.15799164E-19 0.10380228E+01 + 9 15 5 0.24704255E-17 0.23676307E-17 0.10434167E+01 + 9 15 6 0.22427503E-15 0.21271983E-15 0.10543212E+01 + 9 15 7 0.13246754E-13 0.12296166E-13 0.10773077E+01 + 9 15 8 0.34128105E-09 0.34224201E-09 0.99719217E+00 + 9 15 9 0.57082312E-08 0.58674817E-08 0.97285881E+00 + 9 15 10 0.15108227E-07 0.23614959E-07 0.63977360E+00 + 9 15 11 0.35273338E-07 0.80320274E-07 0.43915858E+00 + 9 15 12 0.69184134E-07 0.77225346E-07 0.89587341E+00 + 9 15 13 0.43914185E-07 0.47318326E-07 0.92805872E+00 + 9 15 14 0.11948527E-07 0.12531499E-07 0.95347945E+00 + 9 15 15 0.13366098E-20 0.13361438E-20 0.10003488E+01 + 9 16 1 0.10428464E-27 0.10142392E-27 0.10282055E+01 + 9 16 2 0.24096880E-24 0.23427830E-24 0.10285579E+01 + 9 16 3 0.17431215E-21 0.16935574E-21 0.10292663E+01 + 9 16 4 0.51400476E-19 0.49870050E-19 0.10306883E+01 + 9 16 5 0.76401174E-17 0.73921413E-17 0.10335459E+01 + 9 16 6 0.68452773E-15 0.65864665E-15 0.10392943E+01 + 9 16 7 0.38879156E-13 0.37127691E-13 0.10471741E+01 + 9 16 8 0.64847389E-09 0.60548959E-09 0.10709910E+01 + 9 16 9 0.23437747E-07 0.23451770E-07 0.99940203E+00 + 9 16 10 0.76226749E-07 0.11120176E-06 0.68548151E+00 + 9 16 11 0.17548271E-06 0.38332301E-06 0.45779332E+00 + 9 16 12 0.49178310E-06 0.54425850E-06 0.90358367E+00 + 9 16 13 0.56701894E-06 0.66519404E-06 0.85241134E+00 + 9 16 14 0.37855595E-06 0.58697868E-06 0.64492282E+00 + 9 16 15 0.24050374E-06 0.27248694E-06 0.88262484E+00 + 9 16 16 0.58604384E-07 0.60726793E-07 0.96504988E+00 + 9 17 1 0.33175728E-27 0.32418341E-27 0.10233629E+01 + 9 17 2 0.75952279E-24 0.74204892E-24 0.10235481E+01 + 9 17 3 0.54360408E-21 0.53090357E-21 0.10239225E+01 + 9 17 4 0.15831914E-18 0.15450658E-18 0.10246757E+01 + 9 17 5 0.23182621E-16 0.22591025E-16 0.10261872E+01 + 9 17 6 0.20367961E-14 0.19790256E-14 0.10291914E+01 + 9 17 7 0.61229877E-12 0.59688590E-12 0.10258221E+01 + 9 17 8 0.21250817E-08 0.20984414E-08 0.10126953E+01 + 9 17 9 0.40682966E-07 0.38006386E-07 0.10704245E+01 + 9 17 10 0.27876841E-06 0.43341725E-06 0.64318717E+00 + 9 17 11 0.65589155E-06 0.15038855E-05 0.43613131E+00 + 9 17 12 0.18143987E-05 0.22104718E-05 0.82081966E+00 + 9 17 13 0.25453834E-05 0.30538722E-05 0.83349376E+00 + 9 17 14 0.18826841E-05 0.29529422E-05 0.63756211E+00 + 9 17 15 0.11125666E-05 0.16912048E-05 0.65785445E+00 + 9 17 16 0.14621141E-06 0.13693180E-06 0.10677681E+01 + 9 17 17 0.96953249E-09 0.97882351E-09 0.99050797E+00 + 9 18 1 0.10389498E-26 0.10198472E-26 0.10187308E+01 + 9 18 2 0.23589608E-23 0.23153679E-23 0.10188277E+01 + 9 18 3 0.16719424E-20 0.16407273E-20 0.10190251E+01 + 9 18 4 0.48120506E-18 0.47203597E-18 0.10194245E+01 + 9 18 5 0.69389762E-16 0.68014081E-16 0.10202264E+01 + 9 18 6 0.77629324E-14 0.75982926E-14 0.10216680E+01 + 9 18 7 0.10091706E-09 0.10051319E-09 0.10040181E+01 + 9 18 8 0.61854988E-08 0.61139153E-08 0.10117083E+01 + 9 18 9 0.72467842E-07 0.69130938E-07 0.10482693E+01 + 9 18 10 0.60953438E-06 0.18314389E-05 0.33281721E+00 + 9 18 11 0.12257077E-05 0.51727534E-05 0.23695460E+00 + 9 18 12 0.37764343E-05 0.74989192E-05 0.50359715E+00 + 9 18 13 0.61965657E-05 0.91857294E-05 0.67458613E+00 + 9 18 14 0.54488576E-05 0.88753711E-05 0.61393011E+00 + 9 18 15 0.75251885E-05 0.12661403E-04 0.59434079E+00 + 9 18 16 0.38437191E-05 0.34807552E-05 0.11042773E+01 + 9 18 17 0.75989497E-08 0.74534511E-08 0.10195210E+01 + 9 18 18 0.60172969E-28 0.56785007E-28 0.10596630E+01 + 10 1 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 10 2 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 10 2 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 10 3 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 10 3 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 10 3 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 10 4 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 10 4 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 10 4 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 10 4 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 10 5 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 10 5 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 10 5 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 10 5 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 10 5 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 10 6 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 10 6 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 10 6 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 10 6 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 10 6 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 10 6 6 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 10 7 1 0.00000000E+00 0.00000000E+00 0.10717125E+01 + 10 7 2 0.00000000E+00 0.00000000E+00 0.10501284E+01 + 10 7 3 0.00000000E+00 0.00000000E+00 0.10201475E+01 + 10 7 4 0.00000000E+00 0.00000000E+00 0.98918871E+00 + 10 7 5 0.00000000E+00 0.00000000E+00 0.96266528E+00 + 10 7 6 0.00000000E+00 0.00000000E+00 0.92744630E+00 + 10 7 7 0.00000000E+00 0.00000000E+00 0.88559810E+00 + 10 8 1 0.00000000E+00 0.00000000E+00 0.10690310E+01 + 10 8 2 0.00000000E+00 0.00000000E+00 0.10645464E+01 + 10 8 3 0.00000000E+00 0.00000000E+00 0.10429145E+01 + 10 8 4 0.00000000E+00 0.00000000E+00 0.10129489E+01 + 10 8 5 0.00000000E+00 0.00000000E+00 0.98171053E+00 + 10 8 6 0.00000000E+00 0.00000000E+00 0.95070600E+00 + 10 8 7 0.00000000E+00 0.00000000E+00 0.91760486E+00 + 10 8 8 0.00000000E+00 0.00000000E+00 0.97229026E+00 + 10 9 1 0.71854053E-18 0.65602593E-18 0.10952929E+01 + 10 9 2 0.28863993E-17 0.27150429E-17 0.10631137E+01 + 10 9 3 0.36409529E-16 0.34386564E-16 0.10588301E+01 + 10 9 4 0.31224691E-15 0.30109709E-15 0.10370306E+01 + 10 9 5 0.26473252E-14 0.26322874E-14 0.10057128E+01 + 10 9 6 0.15138079E-13 0.15534834E-13 0.97446026E+00 + 10 9 7 0.44011491E-13 0.46830212E-13 0.93980978E+00 + 10 9 8 0.83021346E-13 0.84561102E-13 0.98179121E+00 + 10 9 9 0.76555099E-13 0.76954309E-13 0.99481238E+00 + 10 10 1 0.34441750E-13 0.32032081E-13 0.10752267E+01 + 10 10 2 0.72623710E-13 0.66558313E-13 0.10911291E+01 + 10 10 3 0.15918068E-12 0.15047254E-12 0.10578720E+01 + 10 10 4 0.36916025E-12 0.35040048E-12 0.10535381E+01 + 10 10 5 0.91649380E-12 0.88833815E-12 0.10316947E+01 + 10 10 6 0.23170937E-11 0.23130886E-11 0.10017315E+01 + 10 10 7 0.53616119E-11 0.55517196E-11 0.96575697E+00 + 10 10 8 0.10640822E-10 0.10903387E-10 0.97591894E+00 + 10 10 9 0.16438095E-10 0.16508420E-10 0.99574004E+00 + 10 10 10 0.11957886E-10 0.12024114E-10 0.99449213E+00 + 10 11 1 0.10116734E-13 0.95252265E-14 0.10620990E+01 + 10 11 2 0.21456194E-13 0.20044861E-13 0.10704087E+01 + 10 11 3 0.46352483E-13 0.42629944E-13 0.10873222E+01 + 10 11 4 0.94516138E-13 0.89785831E-13 0.10526843E+01 + 10 11 5 0.18354125E-12 0.17509731E-12 0.10482243E+01 + 10 11 6 0.28419513E-12 0.27706499E-12 0.10257345E+01 + 10 11 7 0.40915018E-12 0.41248577E-12 0.99191343E+00 + 10 11 8 0.12851888E-11 0.13272709E-11 0.96829426E+00 + 10 11 9 0.86486929E-11 0.86748691E-11 0.99698253E+00 + 10 11 10 0.85870348E-10 0.86291156E-10 0.99512340E+00 + 10 11 11 0.11851106E-10 0.11922650E-10 0.99399930E+00 + 10 12 1 0.11914414E-26 0.11318751E-26 0.10526262E+01 + 10 12 2 0.17776731E-26 0.16817247E-26 0.10570536E+01 + 10 12 3 0.21738445E-26 0.20391768E-26 0.10660402E+01 + 10 12 4 0.37023840E-24 0.34142754E-24 0.10843835E+01 + 10 12 5 0.14032631E-21 0.13399210E-21 0.10472730E+01 + 10 12 6 0.27077949E-19 0.25959875E-19 0.10430693E+01 + 10 12 7 0.29839224E-17 0.29276194E-17 0.10192317E+01 + 10 12 8 0.50844898E-11 0.53089601E-11 0.95771860E+00 + 10 12 9 0.34554266E-10 0.35156874E-10 0.98285946E+00 + 10 12 10 0.45769781E-09 0.45934951E-09 0.99640426E+00 + 10 12 11 0.10873694E-09 0.10929983E-09 0.99485003E+00 + 10 12 12 0.96672572E-13 0.97278848E-13 0.99376764E+00 + 10 13 1 0.27817840E-34 0.26615880E-34 0.10451595E+01 + 10 13 2 0.37742651E-30 0.36030311E-30 0.10475250E+01 + 10 13 3 0.12199494E-26 0.11593418E-26 0.10522776E+01 + 10 13 4 0.12078392E-23 0.11374599E-23 0.10618742E+01 + 10 13 5 0.48209794E-21 0.44579050E-21 0.10814451E+01 + 10 13 6 0.90660365E-19 0.86981843E-19 0.10422907E+01 + 10 13 7 0.10431275E-16 0.10051806E-16 0.10377513E+01 + 10 13 8 0.29206635E-11 0.28945024E-11 0.10090382E+01 + 10 13 9 0.18961700E-09 0.20283770E-09 0.93482132E+00 + 10 13 10 0.16611580E-08 0.20228582E-08 0.82119350E+00 + 10 13 11 0.12838446E-08 0.13722676E-08 0.93556432E+00 + 10 13 12 0.66980990E-10 0.67278701E-10 0.99557497E+00 + 10 13 13 0.32200286E-16 0.32427198E-16 0.99300243E+00 + 10 14 1 0.93428489E-34 0.89930465E-34 0.10388970E+01 + 10 14 2 0.12528880E-29 0.12045237E-29 0.10401523E+01 + 10 14 3 0.39995042E-26 0.38358251E-26 0.10426712E+01 + 10 14 4 0.39080479E-23 0.37298618E-23 0.10477728E+01 + 10 14 5 0.15385849E-20 0.14542341E-20 0.10580036E+01 + 10 14 6 0.30721846E-18 0.28476675E-18 0.10788424E+01 + 10 14 7 0.34815263E-16 0.33561378E-16 0.10373609E+01 + 10 14 8 0.73853763E-10 0.75512190E-10 0.97803764E+00 + 10 14 9 0.87805126E-09 0.92569557E-09 0.94853134E+00 + 10 14 10 0.71398166E-08 0.10058087E-07 0.70985829E+00 + 10 14 11 0.13363995E-07 0.25385791E-07 0.52643605E+00 + 10 14 12 0.21804531E-07 0.25081728E-07 0.86933926E+00 + 10 14 13 0.51295620E-08 0.50834659E-08 0.10090678E+01 + 10 14 14 0.11162212E-19 0.11250112E-19 0.99218681E+00 + 10 15 1 0.30863331E-33 0.29867641E-33 0.10333368E+01 + 10 15 2 0.40936616E-29 0.39590426E-29 0.10340029E+01 + 10 15 3 0.12914009E-25 0.12473223E-25 0.10353386E+01 + 10 15 4 0.12461903E-22 0.12005423E-22 0.10380228E+01 + 10 15 5 0.48460478E-20 0.46444031E-20 0.10434167E+01 + 10 15 6 0.95798008E-18 0.90862258E-18 0.10543212E+01 + 10 15 7 0.14150504E-15 0.13135062E-15 0.10773077E+01 + 10 15 8 0.31047013E-09 0.31134433E-09 0.99719217E+00 + 10 15 9 0.55988602E-08 0.57550594E-08 0.97285881E+00 + 10 15 10 0.32288088E-07 0.50467990E-07 0.63977360E+00 + 10 15 11 0.68248406E-07 0.15540720E-06 0.43915858E+00 + 10 15 12 0.17727189E-06 0.19787605E-06 0.89587341E+00 + 10 15 13 0.19608660E-06 0.21128684E-06 0.92805872E+00 + 10 15 14 0.45334057E-07 0.47545919E-07 0.95347945E+00 + 10 15 15 0.29595514E-20 0.29585196E-20 0.10003488E+01 + 10 16 1 0.10003962E-32 0.97295347E-33 0.10282055E+01 + 10 16 2 0.13134617E-28 0.12769934E-28 0.10285579E+01 + 10 16 3 0.40968513E-25 0.39803608E-25 0.10292663E+01 + 10 16 4 0.39045564E-22 0.37883000E-22 0.10306883E+01 + 10 16 5 0.14982644E-19 0.14496351E-19 0.10335459E+01 + 10 16 6 0.29234317E-17 0.28129007E-17 0.10392943E+01 + 10 16 7 0.80123522E-14 0.76514043E-14 0.10471741E+01 + 10 16 8 0.29810615E-10 0.27834608E-10 0.10709910E+01 + 10 16 9 0.21752875E-07 0.21765890E-07 0.99940203E+00 + 10 16 10 0.14232931E-06 0.20763407E-06 0.68548151E+00 + 10 16 11 0.32122138E-06 0.70167337E-06 0.45779332E+00 + 10 16 12 0.88323195E-06 0.97747666E-06 0.90358367E+00 + 10 16 13 0.13397318E-05 0.15716963E-05 0.85241134E+00 + 10 16 14 0.87125873E-06 0.13509504E-05 0.64492282E+00 + 10 16 15 0.61578183E-06 0.69767108E-06 0.88262484E+00 + 10 16 16 0.28397765E-06 0.29426215E-06 0.96504988E+00 + 10 17 1 0.31819268E-32 0.31092849E-32 0.10233629E+01 + 10 17 2 0.41389611E-28 0.40437386E-28 0.10235481E+01 + 10 17 3 0.12772495E-24 0.12474085E-24 0.10239225E+01 + 10 17 4 0.12022235E-21 0.11732722E-21 0.10246757E+01 + 10 17 5 0.45443689E-19 0.44284012E-19 0.10261872E+01 + 10 17 6 0.10303237E-16 0.10011002E-16 0.10291914E+01 + 10 17 7 0.10368783E-11 0.10107778E-11 0.10258221E+01 + 10 17 8 0.10653303E-08 0.10519752E-08 0.10126953E+01 + 10 17 9 0.19103681E-07 0.17846827E-07 0.10704245E+01 + 10 17 10 0.48390378E-06 0.75235298E-06 0.64318717E+00 + 10 17 11 0.11675613E-05 0.26770866E-05 0.43613131E+00 + 10 17 12 0.29381503E-05 0.35795321E-05 0.82081966E+00 + 10 17 13 0.50478561E-05 0.60562614E-05 0.83349376E+00 + 10 17 14 0.43001676E-05 0.67447039E-05 0.63756211E+00 + 10 17 15 0.37322233E-05 0.56733268E-05 0.65785445E+00 + 10 17 16 0.63628861E-06 0.59590524E-06 0.10677681E+01 + 10 17 17 0.33516007E-08 0.33837190E-08 0.99050797E+00 + 10 18 1 0.99630303E-32 0.97798456E-32 0.10187308E+01 + 10 18 2 0.12852114E-27 0.12614611E-27 0.10188277E+01 + 10 18 3 0.39272804E-24 0.38539583E-24 0.10190251E+01 + 10 18 4 0.36528209E-21 0.35832186E-21 0.10194245E+01 + 10 18 5 0.13595863E-18 0.13326319E-18 0.10202264E+01 + 10 18 6 0.36586844E-14 0.35810894E-14 0.10216680E+01 + 10 18 7 0.21529822E-09 0.21443658E-09 0.10040181E+01 + 10 18 8 0.29198530E-08 0.28860621E-08 0.10117083E+01 + 10 18 9 0.17888639E-07 0.17064926E-07 0.10482693E+01 + 10 18 10 0.12812778E-05 0.38497943E-05 0.33281721E+00 + 10 18 11 0.25306046E-05 0.10679703E-04 0.23695460E+00 + 10 18 12 0.68890687E-05 0.13679721E-04 0.50359715E+00 + 10 18 13 0.12422099E-04 0.18414401E-04 0.67458613E+00 + 10 18 14 0.12477810E-04 0.20324479E-04 0.61393011E+00 + 10 18 15 0.17094228E-04 0.28761660E-04 0.59434079E+00 + 10 18 16 0.65930072E-05 0.59704269E-05 0.11042773E+01 + 10 18 17 0.14670518E-07 0.14389618E-07 0.10195210E+01 + 10 18 18 0.10131238E-25 0.95608116E-26 0.10596630E+01 + 11 1 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 11 2 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 11 2 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 11 3 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 11 3 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 11 3 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 11 4 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 11 4 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 11 4 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 11 4 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 11 5 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 11 5 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 11 5 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 11 5 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 11 5 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 11 6 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 11 6 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 11 6 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 11 6 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 11 6 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 11 6 6 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 11 7 1 0.00000000E+00 0.00000000E+00 0.10717125E+01 + 11 7 2 0.00000000E+00 0.00000000E+00 0.10501284E+01 + 11 7 3 0.00000000E+00 0.00000000E+00 0.10201475E+01 + 11 7 4 0.00000000E+00 0.00000000E+00 0.98918871E+00 + 11 7 5 0.00000000E+00 0.00000000E+00 0.96266528E+00 + 11 7 6 0.00000000E+00 0.00000000E+00 0.92744630E+00 + 11 7 7 0.00000000E+00 0.00000000E+00 0.88559810E+00 + 11 8 1 0.00000000E+00 0.00000000E+00 0.10690310E+01 + 11 8 2 0.00000000E+00 0.00000000E+00 0.10645464E+01 + 11 8 3 0.00000000E+00 0.00000000E+00 0.10429145E+01 + 11 8 4 0.00000000E+00 0.00000000E+00 0.10129489E+01 + 11 8 5 0.00000000E+00 0.00000000E+00 0.98171053E+00 + 11 8 6 0.00000000E+00 0.00000000E+00 0.95070600E+00 + 11 8 7 0.00000000E+00 0.00000000E+00 0.91760486E+00 + 11 8 8 0.00000000E+00 0.00000000E+00 0.97229026E+00 + 11 9 1 0.00000000E+00 0.00000000E+00 0.10952929E+01 + 11 9 2 0.00000000E+00 0.00000000E+00 0.10631137E+01 + 11 9 3 0.00000000E+00 0.00000000E+00 0.10588301E+01 + 11 9 4 0.00000000E+00 0.00000000E+00 0.10370306E+01 + 11 9 5 0.00000000E+00 0.00000000E+00 0.10057128E+01 + 11 9 6 0.00000000E+00 0.00000000E+00 0.97446026E+00 + 11 9 7 0.00000000E+00 0.00000000E+00 0.93980978E+00 + 11 9 8 0.00000000E+00 0.00000000E+00 0.98179121E+00 + 11 9 9 0.00000000E+00 0.00000000E+00 0.99481238E+00 + 11 10 1 0.30287629E-17 0.28168598E-17 0.10752267E+01 + 11 10 2 0.13192032E-16 0.12090258E-16 0.10911291E+01 + 11 10 3 0.56983947E-16 0.53866581E-16 0.10578720E+01 + 11 10 4 0.80590895E-15 0.76495474E-15 0.10535381E+01 + 11 10 5 0.75833131E-14 0.73503458E-14 0.10316947E+01 + 11 10 6 0.62812702E-13 0.62704129E-13 0.10017315E+01 + 11 10 7 0.29201040E-12 0.30236427E-12 0.96575697E+00 + 11 10 8 0.69073480E-12 0.70777886E-12 0.97591894E+00 + 11 10 9 0.11318648E-11 0.11367071E-11 0.99574004E+00 + 11 10 10 0.11057087E-11 0.11118325E-11 0.99449213E+00 + 11 11 1 0.31826098E-12 0.29965284E-12 0.10620990E+01 + 11 11 2 0.70351643E-12 0.65724093E-12 0.10704087E+01 + 11 11 3 0.15955085E-11 0.14673742E-11 0.10873222E+01 + 11 11 4 0.37081895E-11 0.35226035E-11 0.10526843E+01 + 11 11 5 0.87055885E-11 0.83050819E-11 0.10482243E+01 + 11 11 6 0.20046833E-10 0.19543880E-10 0.10257345E+01 + 11 11 7 0.43222321E-10 0.43574691E-10 0.99191343E+00 + 11 11 8 0.86255702E-10 0.89080051E-10 0.96829426E+00 + 11 11 9 0.16096249E-09 0.16144966E-09 0.99698253E+00 + 11 11 10 0.24228496E-09 0.24347227E-09 0.99512340E+00 + 11 11 11 0.17196156E-09 0.17299967E-09 0.99399930E+00 + 11 12 1 0.89560560E-13 0.85082967E-13 0.10526262E+01 + 11 12 2 0.19689064E-12 0.18626364E-12 0.10570536E+01 + 11 12 3 0.43530271E-12 0.40833610E-12 0.10660402E+01 + 11 12 4 0.95118548E-12 0.87716704E-12 0.10843835E+01 + 11 12 5 0.18513621E-11 0.17677931E-11 0.10472730E+01 + 11 12 6 0.32163373E-11 0.30835317E-11 0.10430693E+01 + 11 12 7 0.43247361E-11 0.42431336E-11 0.10192317E+01 + 11 12 8 0.13274856E-10 0.13860915E-10 0.95771860E+00 + 11 12 9 0.16383227E-10 0.16668942E-10 0.98285946E+00 + 11 12 10 0.12861185E-09 0.12907597E-09 0.99640426E+00 + 11 12 11 0.12005558E-08 0.12067706E-08 0.99485003E+00 + 11 12 12 0.16837329E-09 0.16942923E-09 0.99376764E+00 + 11 13 1 0.20475315E-27 0.19590613E-27 0.10451595E+01 + 11 13 2 0.34981426E-27 0.33394360E-27 0.10475250E+01 + 11 13 3 0.47465239E-27 0.45107145E-27 0.10522776E+01 + 11 13 4 0.64911827E-27 0.61129491E-27 0.10618742E+01 + 11 13 5 0.27919646E-24 0.25816980E-24 0.10814451E+01 + 11 13 6 0.12084798E-21 0.11594460E-21 0.10422907E+01 + 11 13 7 0.27399617E-19 0.26402874E-19 0.10377513E+01 + 11 13 8 0.36627333E-11 0.36299253E-11 0.10090382E+01 + 11 13 9 0.18538146E-09 0.19830684E-09 0.93482132E+00 + 11 13 10 0.12043124E-08 0.14665391E-08 0.82119350E+00 + 11 13 11 0.56754344E-08 0.60663219E-08 0.93556432E+00 + 11 13 12 0.16187312E-08 0.16259260E-08 0.99557497E+00 + 11 13 13 0.19977383E-11 0.20118161E-11 0.99300243E+00 + 11 14 1 0.13595350E-39 0.13086331E-39 0.10388970E+01 + 11 14 2 0.14871261E-34 0.14297196E-34 0.10401523E+01 + 11 14 3 0.22405539E-30 0.21488596E-30 0.10426712E+01 + 11 14 4 0.80025008E-27 0.76376295E-27 0.10477728E+01 + 11 14 5 0.89054461E-24 0.84172173E-24 0.10580036E+01 + 11 14 6 0.40959461E-21 0.37966119E-21 0.10788424E+01 + 11 14 7 0.11527561E-18 0.11112392E-18 0.10373609E+01 + 11 14 8 0.16337801E-09 0.16704676E-09 0.97803764E+00 + 11 14 9 0.11298352E-08 0.11911416E-08 0.94853134E+00 + 11 14 10 0.74181725E-08 0.10450216E-07 0.70985829E+00 + 11 14 11 0.24654177E-07 0.46832235E-07 0.52643605E+00 + 11 14 12 0.33530935E-07 0.38570598E-07 0.86933926E+00 + 11 14 13 0.14780426E-07 0.14647604E-07 0.10090678E+01 + 11 14 14 0.12617070E-14 0.12716426E-14 0.99218681E+00 + 11 15 1 0.44902584E-39 0.43453970E-39 0.10333368E+01 + 11 15 2 0.48580178E-34 0.46982632E-34 0.10340029E+01 + 11 15 3 0.71979698E-30 0.69522859E-30 0.10353386E+01 + 11 15 4 0.25512491E-26 0.24577969E-26 0.10380228E+01 + 11 15 5 0.28045205E-23 0.26878240E-23 0.10434167E+01 + 11 15 6 0.12773073E-20 0.12114973E-20 0.10543212E+01 + 11 15 7 0.70870806E-16 0.65785109E-16 0.10773077E+01 + 11 15 8 0.58180086E-09 0.58343906E-09 0.99719217E+00 + 11 15 9 0.69501338E-08 0.71440314E-08 0.97285881E+00 + 11 15 10 0.39129441E-07 0.61161387E-07 0.63977360E+00 + 11 15 11 0.11614973E-06 0.26448243E-06 0.43915858E+00 + 11 15 12 0.20320992E-06 0.22682884E-06 0.89587341E+00 + 11 15 13 0.44903080E-06 0.48383878E-06 0.92805872E+00 + 11 15 14 0.13609058E-06 0.14273049E-06 0.95347945E+00 + 11 15 15 0.78028235E-18 0.78001031E-18 0.10003488E+01 + 11 16 1 0.14552034E-38 0.14152845E-38 0.10282055E+01 + 11 16 2 0.15584012E-33 0.15151322E-33 0.10285579E+01 + 11 16 3 0.22829466E-29 0.22180330E-29 0.10292663E+01 + 11 16 4 0.79914684E-26 0.77535261E-26 0.10306883E+01 + 11 16 5 0.86686609E-23 0.83873013E-23 0.10335459E+01 + 11 16 6 0.38973535E-20 0.37499998E-20 0.10392943E+01 + 11 16 7 0.15464792E-13 0.14768119E-13 0.10471741E+01 + 11 16 8 0.57824257E-10 0.53991357E-10 0.10709910E+01 + 11 16 9 0.21272340E-07 0.21285067E-07 0.99940203E+00 + 11 16 10 0.17631995E-06 0.25722057E-06 0.68548151E+00 + 11 16 11 0.54121446E-06 0.11822244E-05 0.45779332E+00 + 11 16 12 0.10927739E-05 0.12093777E-05 0.90358367E+00 + 11 16 13 0.24411355E-05 0.28637998E-05 0.85241134E+00 + 11 16 14 0.19611775E-05 0.30409491E-05 0.64492282E+00 + 11 16 15 0.75444647E-06 0.85477593E-06 0.88262484E+00 + 11 16 16 0.49706127E-06 0.51506277E-06 0.96504988E+00 + 11 17 1 0.46277718E-38 0.45221219E-38 0.10233629E+01 + 11 17 2 0.49099035E-33 0.47969444E-33 0.10235481E+01 + 11 17 3 0.71157144E-29 0.69494662E-29 0.10239225E+01 + 11 17 4 0.24598829E-25 0.24006453E-25 0.10246757E+01 + 11 17 5 0.26283686E-22 0.25612953E-22 0.10261872E+01 + 11 17 6 0.32348016E-17 0.31430516E-17 0.10291914E+01 + 11 17 7 0.20722507E-11 0.20200877E-11 0.10258221E+01 + 11 17 8 0.21901007E-08 0.21626453E-08 0.10126953E+01 + 11 17 9 0.99183641E-08 0.92658232E-08 0.10704245E+01 + 11 17 10 0.65939699E-06 0.10252024E-05 0.64318717E+00 + 11 17 11 0.20187075E-05 0.46286690E-05 0.43613131E+00 + 11 17 12 0.39262501E-05 0.47833285E-05 0.82081966E+00 + 11 17 13 0.85201404E-05 0.10222201E-04 0.83349376E+00 + 11 17 14 0.87954956E-05 0.13795512E-04 0.63756211E+00 + 11 17 15 0.98487244E-05 0.14970978E-04 0.65785445E+00 + 11 17 16 0.24726877E-05 0.23157535E-05 0.10677681E+01 + 11 17 17 0.91990590E-08 0.92872135E-08 0.99050797E+00 + 11 18 1 0.14488084E-37 0.14221700E-37 0.10187308E+01 + 11 18 2 0.15243439E-32 0.14961744E-32 0.10188277E+01 + 11 18 3 0.21874460E-28 0.21466065E-28 0.10190251E+01 + 11 18 4 0.74718983E-25 0.73295256E-25 0.10194245E+01 + 11 18 5 0.78604772E-22 0.77046400E-22 0.10202264E+01 + 11 18 6 0.72666836E-14 0.71125685E-14 0.10216680E+01 + 11 18 7 0.45969023E-09 0.45785053E-09 0.10040181E+01 + 11 18 8 0.47480668E-08 0.46931184E-08 0.10117083E+01 + 11 18 9 0.21780748E-09 0.20777816E-09 0.10482693E+01 + 11 18 10 0.22797938E-05 0.68499878E-05 0.33281721E+00 + 11 18 11 0.51805850E-05 0.21863197E-04 0.23695460E+00 + 11 18 12 0.11933967E-04 0.23697448E-04 0.50359715E+00 + 11 18 13 0.22245583E-04 0.32976639E-04 0.67458613E+00 + 11 18 14 0.26233862E-04 0.42731023E-04 0.61393011E+00 + 11 18 15 0.34429368E-04 0.57928664E-04 0.59434079E+00 + 11 18 16 0.70769199E-05 0.64086436E-05 0.11042773E+01 + 11 18 17 0.12799162E-07 0.12554094E-07 0.10195210E+01 + 11 18 18 0.42113441E-23 0.39742298E-23 0.10596630E+01 + 12 1 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 12 2 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 12 2 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 12 3 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 12 3 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 12 3 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 12 4 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 12 4 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 12 4 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 12 4 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 12 5 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 12 5 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 12 5 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 12 5 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 12 5 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 12 6 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 12 6 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 12 6 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 12 6 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 12 6 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 12 6 6 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 12 7 1 0.00000000E+00 0.00000000E+00 0.10717125E+01 + 12 7 2 0.00000000E+00 0.00000000E+00 0.10501284E+01 + 12 7 3 0.00000000E+00 0.00000000E+00 0.10201475E+01 + 12 7 4 0.00000000E+00 0.00000000E+00 0.98918871E+00 + 12 7 5 0.00000000E+00 0.00000000E+00 0.96266528E+00 + 12 7 6 0.00000000E+00 0.00000000E+00 0.92744630E+00 + 12 7 7 0.00000000E+00 0.00000000E+00 0.88559810E+00 + 12 8 1 0.00000000E+00 0.00000000E+00 0.10690310E+01 + 12 8 2 0.00000000E+00 0.00000000E+00 0.10645464E+01 + 12 8 3 0.00000000E+00 0.00000000E+00 0.10429145E+01 + 12 8 4 0.00000000E+00 0.00000000E+00 0.10129489E+01 + 12 8 5 0.00000000E+00 0.00000000E+00 0.98171053E+00 + 12 8 6 0.00000000E+00 0.00000000E+00 0.95070600E+00 + 12 8 7 0.00000000E+00 0.00000000E+00 0.91760486E+00 + 12 8 8 0.00000000E+00 0.00000000E+00 0.97229026E+00 + 12 9 1 0.00000000E+00 0.00000000E+00 0.10952929E+01 + 12 9 2 0.00000000E+00 0.00000000E+00 0.10631137E+01 + 12 9 3 0.00000000E+00 0.00000000E+00 0.10588301E+01 + 12 9 4 0.00000000E+00 0.00000000E+00 0.10370306E+01 + 12 9 5 0.00000000E+00 0.00000000E+00 0.10057128E+01 + 12 9 6 0.00000000E+00 0.00000000E+00 0.97446026E+00 + 12 9 7 0.00000000E+00 0.00000000E+00 0.93980978E+00 + 12 9 8 0.00000000E+00 0.00000000E+00 0.98179121E+00 + 12 9 9 0.00000000E+00 0.00000000E+00 0.99481238E+00 + 12 10 1 0.00000000E+00 0.00000000E+00 0.10752267E+01 + 12 10 2 0.00000000E+00 0.00000000E+00 0.10911291E+01 + 12 10 3 0.00000000E+00 0.00000000E+00 0.10578720E+01 + 12 10 4 0.00000000E+00 0.00000000E+00 0.10535381E+01 + 12 10 5 0.00000000E+00 0.00000000E+00 0.10316947E+01 + 12 10 6 0.00000000E+00 0.00000000E+00 0.10017315E+01 + 12 10 7 0.00000000E+00 0.00000000E+00 0.96575697E+00 + 12 10 8 0.00000000E+00 0.00000000E+00 0.97591894E+00 + 12 10 9 0.00000000E+00 0.00000000E+00 0.99574004E+00 + 12 10 10 0.00000000E+00 0.00000000E+00 0.99449213E+00 + 12 11 1 0.15201479E-16 0.14312676E-16 0.10620990E+01 + 12 11 2 0.67997090E-16 0.63524417E-16 0.10704087E+01 + 12 11 3 0.31203056E-15 0.28697158E-15 0.10873222E+01 + 12 11 4 0.13784659E-14 0.13094770E-14 0.10526843E+01 + 12 11 5 0.18810064E-13 0.17944694E-13 0.10482243E+01 + 12 11 6 0.15892899E-12 0.15494165E-12 0.10257345E+01 + 12 11 7 0.11157110E-11 0.11248069E-11 0.99191343E+00 + 12 11 8 0.44550907E-11 0.46009678E-11 0.96829426E+00 + 12 11 9 0.98707464E-11 0.99006212E-11 0.99698253E+00 + 12 11 10 0.15520534E-10 0.15596593E-10 0.99512340E+00 + 12 11 11 0.15450444E-10 0.15543717E-10 0.99399930E+00 + 12 12 1 0.26660265E-11 0.25327381E-11 0.10526262E+01 + 12 12 2 0.58203110E-11 0.55061646E-11 0.10570536E+01 + 12 12 3 0.12817270E-10 0.12023252E-10 0.10660402E+01 + 12 12 4 0.28369663E-10 0.26162020E-10 0.10843835E+01 + 12 12 5 0.63217211E-10 0.60363638E-10 0.10472730E+01 + 12 12 6 0.14086263E-09 0.13504628E-09 0.10430693E+01 + 12 12 7 0.31144485E-09 0.30556827E-09 0.10192317E+01 + 12 12 8 0.64425743E-09 0.67270013E-09 0.95771860E+00 + 12 12 9 0.13279275E-08 0.13510858E-08 0.98285946E+00 + 12 12 10 0.23711606E-08 0.23797174E-08 0.99640426E+00 + 12 12 11 0.34530866E-08 0.34709620E-08 0.99485003E+00 + 12 12 12 0.23712209E-08 0.23860919E-08 0.99376764E+00 + 12 13 1 0.62441760E-12 0.59743761E-12 0.10451595E+01 + 12 13 2 0.13469306E-11 0.12858219E-11 0.10475250E+01 + 12 13 3 0.29163898E-11 0.27715023E-11 0.10522776E+01 + 12 13 4 0.62916446E-11 0.59250378E-11 0.10618742E+01 + 12 13 5 0.13382970E-10 0.12375080E-10 0.10814451E+01 + 12 13 6 0.25393549E-10 0.24363212E-10 0.10422907E+01 + 12 13 7 0.43707073E-10 0.42117097E-10 0.10377513E+01 + 12 13 8 0.63695290E-10 0.63124755E-10 0.10090382E+01 + 12 13 9 0.39675305E-09 0.42441592E-09 0.93482132E+00 + 12 13 10 0.14748522E-08 0.17959863E-08 0.82119350E+00 + 12 13 11 0.24060744E-08 0.25717894E-08 0.93556432E+00 + 12 13 12 0.16016334E-07 0.16087522E-07 0.99557497E+00 + 12 13 13 0.22704662E-08 0.22864659E-08 0.99300243E+00 + 12 14 1 0.17681281E-28 0.17019282E-28 0.10388970E+01 + 12 14 2 0.32858726E-28 0.31590304E-28 0.10401523E+01 + 12 14 3 0.53333275E-28 0.51150618E-28 0.10426712E+01 + 12 14 4 0.65462897E-28 0.62478138E-28 0.10477728E+01 + 12 14 5 0.19655128E-27 0.18577562E-27 0.10580036E+01 + 12 14 6 0.16918138E-24 0.15681750E-24 0.10788424E+01 + 12 14 7 0.47552042E-19 0.45839437E-19 0.10373609E+01 + 12 14 8 0.34802211E-09 0.35583713E-09 0.97803764E+00 + 12 14 9 0.17182010E-08 0.18114330E-08 0.94853134E+00 + 12 14 10 0.10129097E-07 0.14269182E-07 0.70985829E+00 + 12 14 11 0.30154915E-07 0.57281250E-07 0.52643605E+00 + 12 14 12 0.59937474E-07 0.68946011E-07 0.86933926E+00 + 12 14 13 0.34508405E-07 0.34198300E-07 0.10090678E+01 + 12 14 14 0.44904560E-10 0.45258170E-10 0.99218681E+00 + 12 15 1 0.10371899E-45 0.10037288E-45 0.10333368E+01 + 12 15 2 0.10891548E-39 0.10533382E-39 0.10340029E+01 + 12 15 3 0.10251262E-34 0.99013618E-35 0.10353386E+01 + 12 15 4 0.14033797E-30 0.13519739E-30 0.10380228E+01 + 12 15 5 0.47473703E-27 0.45498317E-27 0.10434167E+01 + 12 15 6 0.52758913E-24 0.50040643E-24 0.10543212E+01 + 12 15 7 0.14118588E-15 0.13105437E-15 0.10773077E+01 + 12 15 8 0.10034426E-08 0.10062680E-08 0.99719217E+00 + 12 15 9 0.83365945E-08 0.85691721E-08 0.97285881E+00 + 12 15 10 0.56145818E-07 0.87758884E-07 0.63977360E+00 + 12 15 11 0.16302401E-06 0.37121900E-06 0.43915858E+00 + 12 15 12 0.22704118E-06 0.25342999E-06 0.89587341E+00 + 12 15 13 0.52297813E-06 0.56351836E-06 0.92805872E+00 + 12 15 14 0.33123653E-06 0.34739766E-06 0.95347945E+00 + 12 15 15 0.38986858E-13 0.38973266E-13 0.10003488E+01 + 12 16 1 0.33608738E-45 0.32686789E-45 0.10282055E+01 + 12 16 2 0.34932867E-39 0.33962956E-39 0.10285579E+01 + 12 16 3 0.32507374E-34 0.31583055E-34 0.10292663E+01 + 12 16 4 0.43739799E-30 0.42437466E-30 0.10306883E+01 + 12 16 5 0.14670926E-26 0.14194750E-26 0.10335459E+01 + 12 16 6 0.16096033E-23 0.15487464E-23 0.10392943E+01 + 12 16 7 0.30928120E-13 0.29534841E-13 0.10471741E+01 + 12 16 8 0.11131564E-09 0.10393705E-09 0.10709910E+01 + 12 16 9 0.19286372E-07 0.19297912E-07 0.99940203E+00 + 12 16 10 0.24876905E-06 0.36291140E-06 0.68548151E+00 + 12 16 11 0.75057718E-06 0.16395547E-05 0.45779332E+00 + 12 16 12 0.11960741E-05 0.13237004E-05 0.90358367E+00 + 12 16 13 0.32117518E-05 0.37678427E-05 0.85241134E+00 + 12 16 14 0.38088202E-05 0.59058543E-05 0.64492282E+00 + 12 16 15 0.17838370E-05 0.20210591E-05 0.88262484E+00 + 12 16 16 0.45451259E-06 0.47097316E-06 0.96504988E+00 + 12 17 1 0.10686789E-44 0.10442814E-44 0.10233629E+01 + 12 17 2 0.11004153E-38 0.10750988E-38 0.10235481E+01 + 12 17 3 0.10130348E-33 0.98936675E-34 0.10239225E+01 + 12 17 4 0.13460537E-29 0.13136387E-29 0.10246757E+01 + 12 17 5 0.44469827E-26 0.43335002E-26 0.10261872E+01 + 12 17 6 0.64464285E-17 0.62635858E-17 0.10291914E+01 + 12 17 7 0.41444973E-11 0.40401715E-11 0.10258221E+01 + 12 17 8 0.44437065E-08 0.43879996E-08 0.10126953E+01 + 12 17 9 0.82263160E-08 0.76850970E-08 0.10704245E+01 + 12 17 10 0.10161159E-05 0.15798136E-05 0.64318717E+00 + 12 17 11 0.30540042E-05 0.70024878E-05 0.43613131E+00 + 12 17 12 0.51123515E-05 0.62283492E-05 0.82081966E+00 + 12 17 13 0.12220668E-04 0.14661979E-04 0.83349376E+00 + 12 17 14 0.16186298E-04 0.25387798E-04 0.63756211E+00 + 12 17 15 0.16352352E-04 0.24857097E-04 0.65785445E+00 + 12 17 16 0.43322382E-05 0.40572838E-05 0.10677681E+01 + 12 17 17 0.19766578E-07 0.19956001E-07 0.99050797E+00 + 12 18 1 0.33453296E-44 0.32838208E-44 0.10187308E+01 + 12 18 2 0.34158717E-38 0.33527474E-38 0.10188277E+01 + 12 18 3 0.31136318E-33 0.30555005E-33 0.10190251E+01 + 12 18 4 0.40876677E-29 0.40097796E-29 0.10194245E+01 + 12 18 5 0.13294888E-25 0.13031312E-25 0.10202264E+01 + 12 18 6 0.14533299E-13 0.14225071E-13 0.10216680E+01 + 12 18 7 0.98731237E-09 0.98336110E-09 0.10040181E+01 + 12 18 8 0.78697980E-08 0.77787225E-08 0.10117083E+01 + 12 18 9 0.83387837E-10 0.79548103E-10 0.10482693E+01 + 12 18 10 0.42179892E-05 0.12673591E-04 0.33281721E+00 + 12 18 11 0.94996088E-05 0.40090418E-04 0.23695460E+00 + 12 18 12 0.21009391E-04 0.41718645E-04 0.50359715E+00 + 12 18 13 0.36573417E-04 0.54216082E-04 0.67458613E+00 + 12 18 14 0.50577411E-04 0.82383010E-04 0.61393011E+00 + 12 18 15 0.63353210E-04 0.10659408E-03 0.59434079E+00 + 12 18 16 0.53485568E-05 0.48434904E-05 0.11042773E+01 + 12 18 17 0.18638672E-08 0.18281793E-08 0.10195210E+01 + 12 18 18 0.45876283E-20 0.43293277E-20 0.10596630E+01 + 13 1 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 13 2 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 13 2 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 13 3 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 13 3 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 13 3 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 13 4 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 13 4 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 13 4 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 13 4 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 13 5 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 13 5 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 13 5 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 13 5 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 13 5 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 13 6 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 13 6 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 13 6 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 13 6 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 13 6 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 13 6 6 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 13 7 1 0.00000000E+00 0.00000000E+00 0.10717125E+01 + 13 7 2 0.00000000E+00 0.00000000E+00 0.10501284E+01 + 13 7 3 0.00000000E+00 0.00000000E+00 0.10201475E+01 + 13 7 4 0.00000000E+00 0.00000000E+00 0.98918871E+00 + 13 7 5 0.00000000E+00 0.00000000E+00 0.96266528E+00 + 13 7 6 0.00000000E+00 0.00000000E+00 0.92744630E+00 + 13 7 7 0.00000000E+00 0.00000000E+00 0.88559810E+00 + 13 8 1 0.00000000E+00 0.00000000E+00 0.10690310E+01 + 13 8 2 0.00000000E+00 0.00000000E+00 0.10645464E+01 + 13 8 3 0.00000000E+00 0.00000000E+00 0.10429145E+01 + 13 8 4 0.00000000E+00 0.00000000E+00 0.10129489E+01 + 13 8 5 0.00000000E+00 0.00000000E+00 0.98171053E+00 + 13 8 6 0.00000000E+00 0.00000000E+00 0.95070600E+00 + 13 8 7 0.00000000E+00 0.00000000E+00 0.91760486E+00 + 13 8 8 0.00000000E+00 0.00000000E+00 0.97229026E+00 + 13 9 1 0.00000000E+00 0.00000000E+00 0.10952929E+01 + 13 9 2 0.00000000E+00 0.00000000E+00 0.10631137E+01 + 13 9 3 0.00000000E+00 0.00000000E+00 0.10588301E+01 + 13 9 4 0.00000000E+00 0.00000000E+00 0.10370306E+01 + 13 9 5 0.00000000E+00 0.00000000E+00 0.10057128E+01 + 13 9 6 0.00000000E+00 0.00000000E+00 0.97446026E+00 + 13 9 7 0.00000000E+00 0.00000000E+00 0.93980978E+00 + 13 9 8 0.00000000E+00 0.00000000E+00 0.98179121E+00 + 13 9 9 0.00000000E+00 0.00000000E+00 0.99481238E+00 + 13 10 1 0.00000000E+00 0.00000000E+00 0.10752267E+01 + 13 10 2 0.00000000E+00 0.00000000E+00 0.10911291E+01 + 13 10 3 0.00000000E+00 0.00000000E+00 0.10578720E+01 + 13 10 4 0.00000000E+00 0.00000000E+00 0.10535381E+01 + 13 10 5 0.00000000E+00 0.00000000E+00 0.10316947E+01 + 13 10 6 0.00000000E+00 0.00000000E+00 0.10017315E+01 + 13 10 7 0.00000000E+00 0.00000000E+00 0.96575697E+00 + 13 10 8 0.00000000E+00 0.00000000E+00 0.97591894E+00 + 13 10 9 0.00000000E+00 0.00000000E+00 0.99574004E+00 + 13 10 10 0.00000000E+00 0.00000000E+00 0.99449213E+00 + 13 11 1 0.00000000E+00 0.00000000E+00 0.10620990E+01 + 13 11 2 0.00000000E+00 0.00000000E+00 0.10704087E+01 + 13 11 3 0.00000000E+00 0.00000000E+00 0.10873222E+01 + 13 11 4 0.00000000E+00 0.00000000E+00 0.10526843E+01 + 13 11 5 0.00000000E+00 0.00000000E+00 0.10482243E+01 + 13 11 6 0.00000000E+00 0.00000000E+00 0.10257345E+01 + 13 11 7 0.00000000E+00 0.00000000E+00 0.99191343E+00 + 13 11 8 0.00000000E+00 0.00000000E+00 0.96829426E+00 + 13 11 9 0.00000000E+00 0.00000000E+00 0.99698253E+00 + 13 11 10 0.00000000E+00 0.00000000E+00 0.99512340E+00 + 13 11 11 0.00000000E+00 0.00000000E+00 0.99399930E+00 + 13 12 1 0.61366469E-16 0.58298443E-16 0.10526262E+01 + 13 12 2 0.26736633E-15 0.25293545E-15 0.10570536E+01 + 13 12 3 0.11798064E-14 0.11067184E-14 0.10660402E+01 + 13 12 4 0.52838664E-14 0.48726915E-14 0.10843835E+01 + 13 12 5 0.22604119E-13 0.21583788E-13 0.10472730E+01 + 13 12 6 0.30104446E-12 0.28861405E-12 0.10430693E+01 + 13 12 7 0.25399284E-11 0.24920031E-11 0.10192317E+01 + 13 12 8 0.16881313E-10 0.17626590E-10 0.95771860E+00 + 13 12 9 0.67322916E-10 0.68496991E-10 0.98285946E+00 + 13 12 10 0.13677640E-09 0.13726999E-09 0.99640426E+00 + 13 12 11 0.20622718E-09 0.20729474E-09 0.99485003E+00 + 13 12 12 0.20752323E-09 0.20882470E-09 0.99376764E+00 + 13 13 1 0.18518618E-10 0.17718461E-10 0.10451595E+01 + 13 13 2 0.39889714E-10 0.38079964E-10 0.10475250E+01 + 13 13 3 0.86704635E-10 0.82397111E-10 0.10522776E+01 + 13 13 4 0.18988739E-09 0.17882288E-09 0.10618742E+01 + 13 13 5 0.41973215E-09 0.38812156E-09 0.10814451E+01 + 13 13 6 0.94047566E-09 0.90231609E-09 0.10422907E+01 + 13 13 7 0.21304596E-08 0.20529577E-08 0.10377513E+01 + 13 13 8 0.47826770E-08 0.47398374E-08 0.10090382E+01 + 13 13 9 0.99207062E-08 0.10612409E-07 0.93482132E+00 + 13 13 10 0.18300282E-07 0.22284982E-07 0.82119350E+00 + 13 13 11 0.32972696E-07 0.35243644E-07 0.93556432E+00 + 13 13 12 0.47611449E-07 0.47823067E-07 0.99557497E+00 + 13 13 13 0.31001929E-07 0.31220396E-07 0.99300243E+00 + 13 14 1 0.39747212E-11 0.38259051E-11 0.10388970E+01 + 13 14 2 0.85014239E-11 0.81732494E-11 0.10401523E+01 + 13 14 3 0.18300421E-10 0.17551479E-10 0.10426712E+01 + 13 14 4 0.39453764E-10 0.37654883E-10 0.10477728E+01 + 13 14 5 0.85113563E-10 0.80447329E-10 0.10580036E+01 + 13 14 6 0.18223665E-09 0.16891869E-09 0.10788424E+01 + 13 14 7 0.35002803E-09 0.33742164E-09 0.10373609E+01 + 13 14 8 0.14754356E-08 0.15085673E-08 0.97803764E+00 + 13 14 9 0.39889701E-08 0.42054173E-08 0.94853134E+00 + 13 14 10 0.18104490E-07 0.25504372E-07 0.70985829E+00 + 13 14 11 0.52155140E-07 0.99072129E-07 0.52643605E+00 + 13 14 12 0.38489236E-07 0.44274126E-07 0.86933926E+00 + 13 14 13 0.17229964E-06 0.17075129E-06 0.10090678E+01 + 13 14 14 0.28709841E-07 0.28935922E-07 0.99218681E+00 + 13 15 1 0.79945204E-30 0.77366071E-30 0.10333368E+01 + 13 15 2 0.15559839E-29 0.15048158E-29 0.10340029E+01 + 13 15 3 0.28008666E-29 0.27052663E-29 0.10353386E+01 + 13 15 4 0.42717536E-29 0.41152793E-29 0.10380228E+01 + 13 15 5 0.46910542E-29 0.44958588E-29 0.10434167E+01 + 13 15 6 0.69615088E-28 0.66028347E-28 0.10543212E+01 + 13 15 7 0.28237159E-15 0.26210857E-15 0.10773077E+01 + 13 15 8 0.16004905E-08 0.16049971E-08 0.99719217E+00 + 13 15 9 0.86687993E-08 0.89106448E-08 0.97285881E+00 + 13 15 10 0.89601961E-07 0.14005261E-06 0.63977360E+00 + 13 15 11 0.27580906E-06 0.62803979E-06 0.43915858E+00 + 13 15 12 0.12126605E-06 0.13536070E-06 0.89587341E+00 + 13 15 13 0.68885546E-06 0.74225418E-06 0.92805872E+00 + 13 15 14 0.66318838E-06 0.69554555E-06 0.95347945E+00 + 13 15 15 0.22975358E-07 0.22967348E-07 0.10003488E+01 + 13 16 1 0.12284103E-52 0.11947128E-52 0.10282055E+01 + 13 16 2 0.15495582E-45 0.15065347E-45 0.10285579E+01 + 13 16 3 0.10334550E-39 0.10040696E-39 0.10292663E+01 + 13 16 4 0.68900644E-35 0.66849158E-35 0.10306883E+01 + 13 16 5 0.72539857E-31 0.70185424E-31 0.10335459E+01 + 13 16 6 0.20437664E-27 0.19664943E-27 0.10392943E+01 + 13 16 7 0.61856239E-13 0.59069682E-13 0.10471741E+01 + 13 16 8 0.21448207E-09 0.20026505E-09 0.10709910E+01 + 13 16 9 0.15729564E-07 0.15738975E-07 0.99940203E+00 + 13 16 10 0.37463381E-06 0.54652651E-06 0.68548151E+00 + 13 16 11 0.11706120E-05 0.25570753E-05 0.45779332E+00 + 13 16 12 0.65043720E-06 0.71984169E-06 0.90358367E+00 + 13 16 13 0.37994260E-05 0.44572683E-05 0.85241134E+00 + 13 16 14 0.60708238E-05 0.94132562E-05 0.64492282E+00 + 13 16 15 0.28520097E-05 0.32312820E-05 0.88262484E+00 + 13 16 16 0.29616557E-06 0.30689147E-06 0.96504988E+00 + 13 17 1 0.39056569E-52 0.38164925E-52 0.10233629E+01 + 13 17 2 0.48806241E-45 0.47683386E-45 0.10235481E+01 + 13 17 3 0.32200381E-39 0.31448066E-39 0.10239225E+01 + 13 17 4 0.21199263E-34 0.20688754E-34 0.10246757E+01 + 13 17 5 0.21982623E-30 0.21421649E-30 0.10261872E+01 + 13 17 6 0.12892859E-16 0.12527173E-16 0.10291914E+01 + 13 17 7 0.82889945E-11 0.80803428E-11 0.10258221E+01 + 13 17 8 0.89623151E-08 0.88499624E-08 0.10126953E+01 + 13 17 9 0.88195244E-08 0.82392775E-08 0.10704245E+01 + 13 17 10 0.16682930E-05 0.25937909E-05 0.64318717E+00 + 13 17 11 0.49310626E-05 0.11306371E-04 0.43613131E+00 + 13 17 12 0.47128453E-05 0.57416331E-05 0.82081966E+00 + 13 17 13 0.16422118E-04 0.19702748E-04 0.83349376E+00 + 13 17 14 0.26964267E-04 0.42292769E-04 0.63756211E+00 + 13 17 15 0.18786877E-04 0.28557801E-04 0.65785445E+00 + 13 17 16 0.41963897E-05 0.39300571E-05 0.10677681E+01 + 13 17 17 0.33965304E-07 0.34290793E-07 0.99050797E+00 + 13 18 1 0.12224926E-51 0.12000153E-51 0.10187308E+01 + 13 18 2 0.15148516E-44 0.14868575E-44 0.10188277E+01 + 13 18 3 0.98954230E-39 0.97106761E-39 0.10190251E+01 + 13 18 4 0.64364891E-34 0.63138455E-34 0.10194245E+01 + 13 18 5 0.65380225E-30 0.64084034E-30 0.10202264E+01 + 13 18 6 0.29066598E-13 0.28450141E-13 0.10216680E+01 + 13 18 7 0.20754363E-08 0.20671303E-08 0.10040181E+01 + 13 18 8 0.13271463E-07 0.13117875E-07 0.10117083E+01 + 13 18 9 0.35706815E-10 0.34062634E-10 0.10482693E+01 + 13 18 10 0.76929633E-05 0.23114680E-04 0.33281721E+00 + 13 18 11 0.17399771E-04 0.73430824E-04 0.23695460E+00 + 13 18 12 0.32534181E-04 0.64603585E-04 0.50359715E+00 + 13 18 13 0.60108433E-04 0.89104163E-04 0.67458613E+00 + 13 18 14 0.91228979E-04 0.14859831E-03 0.61393011E+00 + 13 18 15 0.11062190E-03 0.18612538E-03 0.59434079E+00 + 13 18 16 0.50929435E-05 0.46120148E-05 0.11042773E+01 + 13 18 17 0.45701879E-13 0.44826816E-13 0.10195210E+01 + 13 18 18 0.12551412E-16 0.11844721E-16 0.10596630E+01 + 14 1 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 14 2 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 14 2 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 14 3 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 14 3 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 14 3 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 14 4 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 14 4 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 14 4 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 14 4 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 14 5 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 14 5 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 14 5 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 14 5 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 14 5 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 14 6 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 14 6 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 14 6 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 14 6 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 14 6 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 14 6 6 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 14 7 1 0.00000000E+00 0.00000000E+00 0.10717125E+01 + 14 7 2 0.00000000E+00 0.00000000E+00 0.10501284E+01 + 14 7 3 0.00000000E+00 0.00000000E+00 0.10201475E+01 + 14 7 4 0.00000000E+00 0.00000000E+00 0.98918871E+00 + 14 7 5 0.00000000E+00 0.00000000E+00 0.96266528E+00 + 14 7 6 0.00000000E+00 0.00000000E+00 0.92744630E+00 + 14 7 7 0.00000000E+00 0.00000000E+00 0.88559810E+00 + 14 8 1 0.00000000E+00 0.00000000E+00 0.10690310E+01 + 14 8 2 0.00000000E+00 0.00000000E+00 0.10645464E+01 + 14 8 3 0.00000000E+00 0.00000000E+00 0.10429145E+01 + 14 8 4 0.00000000E+00 0.00000000E+00 0.10129489E+01 + 14 8 5 0.00000000E+00 0.00000000E+00 0.98171053E+00 + 14 8 6 0.00000000E+00 0.00000000E+00 0.95070600E+00 + 14 8 7 0.00000000E+00 0.00000000E+00 0.91760486E+00 + 14 8 8 0.00000000E+00 0.00000000E+00 0.97229026E+00 + 14 9 1 0.00000000E+00 0.00000000E+00 0.10952929E+01 + 14 9 2 0.00000000E+00 0.00000000E+00 0.10631137E+01 + 14 9 3 0.00000000E+00 0.00000000E+00 0.10588301E+01 + 14 9 4 0.00000000E+00 0.00000000E+00 0.10370306E+01 + 14 9 5 0.00000000E+00 0.00000000E+00 0.10057128E+01 + 14 9 6 0.00000000E+00 0.00000000E+00 0.97446026E+00 + 14 9 7 0.00000000E+00 0.00000000E+00 0.93980978E+00 + 14 9 8 0.00000000E+00 0.00000000E+00 0.98179121E+00 + 14 9 9 0.00000000E+00 0.00000000E+00 0.99481238E+00 + 14 10 1 0.00000000E+00 0.00000000E+00 0.10752267E+01 + 14 10 2 0.00000000E+00 0.00000000E+00 0.10911291E+01 + 14 10 3 0.00000000E+00 0.00000000E+00 0.10578720E+01 + 14 10 4 0.00000000E+00 0.00000000E+00 0.10535381E+01 + 14 10 5 0.00000000E+00 0.00000000E+00 0.10316947E+01 + 14 10 6 0.00000000E+00 0.00000000E+00 0.10017315E+01 + 14 10 7 0.00000000E+00 0.00000000E+00 0.96575697E+00 + 14 10 8 0.00000000E+00 0.00000000E+00 0.97591894E+00 + 14 10 9 0.00000000E+00 0.00000000E+00 0.99574004E+00 + 14 10 10 0.00000000E+00 0.00000000E+00 0.99449213E+00 + 14 11 1 0.00000000E+00 0.00000000E+00 0.10620990E+01 + 14 11 2 0.00000000E+00 0.00000000E+00 0.10704087E+01 + 14 11 3 0.00000000E+00 0.00000000E+00 0.10873222E+01 + 14 11 4 0.00000000E+00 0.00000000E+00 0.10526843E+01 + 14 11 5 0.00000000E+00 0.00000000E+00 0.10482243E+01 + 14 11 6 0.00000000E+00 0.00000000E+00 0.10257345E+01 + 14 11 7 0.00000000E+00 0.00000000E+00 0.99191343E+00 + 14 11 8 0.00000000E+00 0.00000000E+00 0.96829426E+00 + 14 11 9 0.00000000E+00 0.00000000E+00 0.99698253E+00 + 14 11 10 0.00000000E+00 0.00000000E+00 0.99512340E+00 + 14 11 11 0.00000000E+00 0.00000000E+00 0.99399930E+00 + 14 12 1 0.00000000E+00 0.00000000E+00 0.10526262E+01 + 14 12 2 0.00000000E+00 0.00000000E+00 0.10570536E+01 + 14 12 3 0.00000000E+00 0.00000000E+00 0.10660402E+01 + 14 12 4 0.00000000E+00 0.00000000E+00 0.10843835E+01 + 14 12 5 0.00000000E+00 0.00000000E+00 0.10472730E+01 + 14 12 6 0.00000000E+00 0.00000000E+00 0.10430693E+01 + 14 12 7 0.00000000E+00 0.00000000E+00 0.10192317E+01 + 14 12 8 0.00000000E+00 0.00000000E+00 0.95771860E+00 + 14 12 9 0.00000000E+00 0.00000000E+00 0.98285946E+00 + 14 12 10 0.00000000E+00 0.00000000E+00 0.99640426E+00 + 14 12 11 0.00000000E+00 0.00000000E+00 0.99485003E+00 + 14 12 12 0.00000000E+00 0.00000000E+00 0.99376764E+00 + 14 13 1 0.22253109E-15 0.21291591E-15 0.10451595E+01 + 14 13 2 0.95728965E-15 0.91385854E-15 0.10475250E+01 + 14 13 3 0.41647290E-14 0.39578234E-14 0.10522776E+01 + 14 13 4 0.18342986E-13 0.17274161E-13 0.10618742E+01 + 14 13 5 0.82350414E-13 0.76148494E-13 0.10814451E+01 + 14 13 6 0.35445180E-12 0.34007000E-12 0.10422907E+01 + 14 13 7 0.48287578E-11 0.46530973E-11 0.10377513E+01 + 14 13 8 0.37569419E-10 0.37232900E-10 0.10090382E+01 + 14 13 9 0.22511486E-09 0.24081058E-09 0.93482132E+00 + 14 13 10 0.94339615E-09 0.11488110E-08 0.82119350E+00 + 14 13 11 0.27248360E-08 0.29125052E-08 0.93556432E+00 + 14 13 12 0.27374846E-08 0.27496519E-08 0.99557497E+00 + 14 13 13 0.26490760E-08 0.26677437E-08 0.99300243E+00 + 14 14 1 0.12575785E-09 0.12104939E-09 0.10388970E+01 + 14 14 2 0.26798380E-09 0.25763901E-09 0.10401523E+01 + 14 14 3 0.57621569E-09 0.55263415E-09 0.10426712E+01 + 14 14 4 0.12495057E-08 0.11925349E-08 0.10477728E+01 + 14 14 5 0.27427271E-08 0.25923608E-08 0.10580036E+01 + 14 14 6 0.61313479E-08 0.56832653E-08 0.10788424E+01 + 14 14 7 0.14149006E-07 0.13639424E-07 0.10373609E+01 + 14 14 8 0.32085982E-07 0.32806490E-07 0.97803764E+00 + 14 14 9 0.72405929E-07 0.76334778E-07 0.94853134E+00 + 14 14 10 0.13366678E-06 0.18830065E-06 0.70985829E+00 + 14 14 11 0.23088794E-06 0.43858688E-06 0.52643605E+00 + 14 14 12 0.45767771E-06 0.52646616E-06 0.86933926E+00 + 14 14 13 0.62565044E-06 0.62002812E-06 0.10090678E+01 + 14 14 14 0.37845124E-06 0.38143143E-06 0.99218681E+00 + 14 15 1 0.24893549E-10 0.24090452E-10 0.10333368E+01 + 14 15 2 0.52747882E-10 0.51013282E-10 0.10340029E+01 + 14 15 3 0.11259956E-09 0.10875627E-09 0.10353386E+01 + 14 15 4 0.24174100E-09 0.23288603E-09 0.10380228E+01 + 14 15 5 0.52285777E-09 0.50110159E-09 0.10434167E+01 + 14 15 6 0.11411827E-08 0.10823861E-08 0.10543212E+01 + 14 15 7 0.25031685E-08 0.23235409E-08 0.10773077E+01 + 14 15 8 0.76435633E-08 0.76650856E-08 0.99719217E+00 + 14 15 9 0.21715286E-07 0.22321108E-07 0.97285881E+00 + 14 15 10 0.15930599E-06 0.24900369E-06 0.63977360E+00 + 14 15 11 0.48033336E-06 0.10937584E-05 0.43915858E+00 + 14 15 12 0.18189735E-06 0.20303912E-06 0.89587341E+00 + 14 15 13 0.27343138E-06 0.29462724E-06 0.92805872E+00 + 14 15 14 0.18222530E-05 0.19111613E-05 0.95347945E+00 + 14 15 15 0.31651973E-06 0.31640938E-06 0.10003488E+01 + 14 16 1 0.18419279E-31 0.17914005E-31 0.10282055E+01 + 14 16 2 0.36732513E-31 0.35712634E-31 0.10285579E+01 + 14 16 3 0.67287267E-31 0.65374011E-31 0.10292663E+01 + 14 16 4 0.11649738E-30 0.11302872E-30 0.10306883E+01 + 14 16 5 0.16577030E-30 0.16038988E-30 0.10335459E+01 + 14 16 6 0.16731208E-30 0.16098623E-30 0.10392943E+01 + 14 16 7 0.12371248E-12 0.11813937E-12 0.10471741E+01 + 14 16 8 0.41791512E-09 0.39021348E-09 0.10709910E+01 + 14 16 9 0.13469781E-07 0.13477841E-07 0.99940203E+00 + 14 16 10 0.57725986E-06 0.84212317E-06 0.68548151E+00 + 14 16 11 0.18907949E-05 0.41302369E-05 0.45779332E+00 + 14 16 12 0.39297184E-06 0.43490365E-06 0.90358367E+00 + 14 16 13 0.22338453E-05 0.26206189E-05 0.85241134E+00 + 14 16 14 0.10636283E-04 0.16492334E-04 0.64492282E+00 + 14 16 15 0.41072368E-05 0.46534344E-05 0.88262484E+00 + 14 16 16 0.23129514E-06 0.23967170E-06 0.96504988E+00 + 14 17 1 0.22503872E-60 0.21990119E-60 0.10233629E+01 + 14 17 2 0.42758387E-52 0.41774671E-52 0.10235481E+01 + 14 17 3 0.23940930E-45 0.23381585E-45 0.10239225E+01 + 14 17 4 0.84222919E-40 0.82194707E-40 0.10246757E+01 + 14 17 5 0.33697794E-35 0.32837861E-35 0.10261872E+01 + 14 17 6 0.25785746E-16 0.25054374E-16 0.10291914E+01 + 14 17 7 0.16577989E-10 0.16160685E-10 0.10258221E+01 + 14 17 8 0.18042149E-07 0.17815971E-07 0.10126953E+01 + 14 17 9 0.12165170E-07 0.11364809E-07 0.10704245E+01 + 14 17 10 0.26791267E-05 0.41653921E-05 0.64318717E+00 + 14 17 11 0.80342015E-05 0.18421519E-04 0.43613131E+00 + 14 17 12 0.49226591E-05 0.59972481E-05 0.82081966E+00 + 14 17 13 0.14284579E-04 0.17138196E-04 0.83349376E+00 + 14 17 14 0.44890939E-04 0.70410299E-04 0.63756211E+00 + 14 17 15 0.32807689E-04 0.49870741E-04 0.65785445E+00 + 14 17 16 0.14146915E-05 0.13249052E-05 0.10677681E+01 + 14 17 17 0.48125192E-07 0.48586375E-07 0.99050797E+00 + 14 18 1 0.70432887E-60 0.69137876E-60 0.10187308E+01 + 14 18 2 0.13270080E-51 0.13024852E-51 0.10188277E+01 + 14 18 3 0.73563105E-45 0.72189686E-45 0.10190251E+01 + 14 18 4 0.25567196E-39 0.25080028E-39 0.10194245E+01 + 14 18 5 0.10069362E-34 0.98697327E-35 0.10202264E+01 + 14 18 6 0.58133196E-13 0.56900281E-13 0.10216680E+01 + 14 18 7 0.43511970E-08 0.43337834E-08 0.10040181E+01 + 14 18 8 0.22900482E-07 0.22635459E-07 0.10117083E+01 + 14 18 9 0.16935093E-10 0.16155288E-10 0.10482693E+01 + 14 18 10 0.13718022E-04 0.41217887E-04 0.33281721E+00 + 14 18 11 0.31071100E-04 0.13112681E-03 0.23695460E+00 + 14 18 12 0.52030104E-04 0.10331692E-03 0.50359715E+00 + 14 18 13 0.80113008E-04 0.11875875E-03 0.67458613E+00 + 14 18 14 0.16425037E-03 0.26753919E-03 0.61393011E+00 + 14 18 15 0.19334660E-03 0.32531269E-03 0.59434079E+00 + 14 18 16 0.66442747E-05 0.60168532E-05 0.11042773E+01 + 14 18 17 0.15705469E-09 0.15404754E-09 0.10195210E+01 + 14 18 18 0.68544951E-13 0.64685615E-13 0.10596630E+01 + 15 1 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 15 2 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 15 2 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 15 3 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 15 3 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 15 3 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 15 4 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 15 4 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 15 4 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 15 4 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 15 5 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 15 5 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 15 5 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 15 5 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 15 5 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 15 6 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 15 6 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 15 6 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 15 6 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 15 6 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 15 6 6 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 15 7 1 0.00000000E+00 0.00000000E+00 0.10717125E+01 + 15 7 2 0.00000000E+00 0.00000000E+00 0.10501284E+01 + 15 7 3 0.00000000E+00 0.00000000E+00 0.10201475E+01 + 15 7 4 0.00000000E+00 0.00000000E+00 0.98918871E+00 + 15 7 5 0.00000000E+00 0.00000000E+00 0.96266528E+00 + 15 7 6 0.00000000E+00 0.00000000E+00 0.92744630E+00 + 15 7 7 0.00000000E+00 0.00000000E+00 0.88559810E+00 + 15 8 1 0.00000000E+00 0.00000000E+00 0.10690310E+01 + 15 8 2 0.00000000E+00 0.00000000E+00 0.10645464E+01 + 15 8 3 0.00000000E+00 0.00000000E+00 0.10429145E+01 + 15 8 4 0.00000000E+00 0.00000000E+00 0.10129489E+01 + 15 8 5 0.00000000E+00 0.00000000E+00 0.98171053E+00 + 15 8 6 0.00000000E+00 0.00000000E+00 0.95070600E+00 + 15 8 7 0.00000000E+00 0.00000000E+00 0.91760486E+00 + 15 8 8 0.00000000E+00 0.00000000E+00 0.97229026E+00 + 15 9 1 0.00000000E+00 0.00000000E+00 0.10952929E+01 + 15 9 2 0.00000000E+00 0.00000000E+00 0.10631137E+01 + 15 9 3 0.00000000E+00 0.00000000E+00 0.10588301E+01 + 15 9 4 0.00000000E+00 0.00000000E+00 0.10370306E+01 + 15 9 5 0.00000000E+00 0.00000000E+00 0.10057128E+01 + 15 9 6 0.00000000E+00 0.00000000E+00 0.97446026E+00 + 15 9 7 0.00000000E+00 0.00000000E+00 0.93980978E+00 + 15 9 8 0.00000000E+00 0.00000000E+00 0.98179121E+00 + 15 9 9 0.00000000E+00 0.00000000E+00 0.99481238E+00 + 15 10 1 0.00000000E+00 0.00000000E+00 0.10752267E+01 + 15 10 2 0.00000000E+00 0.00000000E+00 0.10911291E+01 + 15 10 3 0.00000000E+00 0.00000000E+00 0.10578720E+01 + 15 10 4 0.00000000E+00 0.00000000E+00 0.10535381E+01 + 15 10 5 0.00000000E+00 0.00000000E+00 0.10316947E+01 + 15 10 6 0.00000000E+00 0.00000000E+00 0.10017315E+01 + 15 10 7 0.00000000E+00 0.00000000E+00 0.96575697E+00 + 15 10 8 0.00000000E+00 0.00000000E+00 0.97591894E+00 + 15 10 9 0.00000000E+00 0.00000000E+00 0.99574004E+00 + 15 10 10 0.00000000E+00 0.00000000E+00 0.99449213E+00 + 15 11 1 0.00000000E+00 0.00000000E+00 0.10620990E+01 + 15 11 2 0.00000000E+00 0.00000000E+00 0.10704087E+01 + 15 11 3 0.00000000E+00 0.00000000E+00 0.10873222E+01 + 15 11 4 0.00000000E+00 0.00000000E+00 0.10526843E+01 + 15 11 5 0.00000000E+00 0.00000000E+00 0.10482243E+01 + 15 11 6 0.00000000E+00 0.00000000E+00 0.10257345E+01 + 15 11 7 0.00000000E+00 0.00000000E+00 0.99191343E+00 + 15 11 8 0.00000000E+00 0.00000000E+00 0.96829426E+00 + 15 11 9 0.00000000E+00 0.00000000E+00 0.99698253E+00 + 15 11 10 0.00000000E+00 0.00000000E+00 0.99512340E+00 + 15 11 11 0.00000000E+00 0.00000000E+00 0.99399930E+00 + 15 12 1 0.00000000E+00 0.00000000E+00 0.10526262E+01 + 15 12 2 0.00000000E+00 0.00000000E+00 0.10570536E+01 + 15 12 3 0.00000000E+00 0.00000000E+00 0.10660402E+01 + 15 12 4 0.00000000E+00 0.00000000E+00 0.10843835E+01 + 15 12 5 0.00000000E+00 0.00000000E+00 0.10472730E+01 + 15 12 6 0.00000000E+00 0.00000000E+00 0.10430693E+01 + 15 12 7 0.00000000E+00 0.00000000E+00 0.10192317E+01 + 15 12 8 0.00000000E+00 0.00000000E+00 0.95771860E+00 + 15 12 9 0.00000000E+00 0.00000000E+00 0.98285946E+00 + 15 12 10 0.00000000E+00 0.00000000E+00 0.99640426E+00 + 15 12 11 0.00000000E+00 0.00000000E+00 0.99485003E+00 + 15 12 12 0.00000000E+00 0.00000000E+00 0.99376764E+00 + 15 13 1 0.00000000E+00 0.00000000E+00 0.10451595E+01 + 15 13 2 0.00000000E+00 0.00000000E+00 0.10475250E+01 + 15 13 3 0.00000000E+00 0.00000000E+00 0.10522776E+01 + 15 13 4 0.00000000E+00 0.00000000E+00 0.10618742E+01 + 15 13 5 0.00000000E+00 0.00000000E+00 0.10814451E+01 + 15 13 6 0.00000000E+00 0.00000000E+00 0.10422907E+01 + 15 13 7 0.00000000E+00 0.00000000E+00 0.10377513E+01 + 15 13 8 0.00000000E+00 0.00000000E+00 0.10090382E+01 + 15 13 9 0.00000000E+00 0.00000000E+00 0.93482132E+00 + 15 13 10 0.00000000E+00 0.00000000E+00 0.82119350E+00 + 15 13 11 0.00000000E+00 0.00000000E+00 0.93556432E+00 + 15 13 12 0.00000000E+00 0.00000000E+00 0.99557497E+00 + 15 13 13 0.00000000E+00 0.00000000E+00 0.99300243E+00 + 15 14 1 0.79545458E-15 0.76567224E-15 0.10388970E+01 + 15 14 2 0.33821213E-14 0.32515636E-14 0.10401523E+01 + 15 14 3 0.14524943E-13 0.13930512E-13 0.10426712E+01 + 15 14 4 0.63065467E-13 0.60190019E-13 0.10477728E+01 + 15 14 5 0.27866942E-12 0.26339175E-12 0.10580036E+01 + 15 14 6 0.12690674E-11 0.11763232E-11 0.10788424E+01 + 15 14 7 0.56814858E-11 0.54768649E-11 0.10373609E+01 + 15 14 8 0.72966466E-10 0.74604968E-10 0.97803764E+00 + 15 14 9 0.53452246E-09 0.56352641E-09 0.94853134E+00 + 15 14 10 0.29339276E-08 0.41331174E-08 0.70985829E+00 + 15 14 11 0.10910976E-07 0.20726119E-07 0.52643605E+00 + 15 14 12 0.39748147E-07 0.45722249E-07 0.86933926E+00 + 15 14 13 0.43004542E-07 0.42618088E-07 0.10090678E+01 + 15 14 14 0.31536926E-07 0.31785270E-07 0.99218681E+00 + 15 15 1 0.83900099E-09 0.81193375E-09 0.10333368E+01 + 15 15 2 0.17694650E-08 0.17112767E-08 0.10340029E+01 + 15 15 3 0.37633956E-08 0.36349419E-08 0.10353386E+01 + 15 15 4 0.80727607E-08 0.77770555E-08 0.10380228E+01 + 15 15 5 0.17558501E-07 0.16827889E-07 0.10434167E+01 + 15 15 6 0.39109496E-07 0.37094478E-07 0.10543212E+01 + 15 15 7 0.90936973E-07 0.84411326E-07 0.10773077E+01 + 15 15 8 0.21639821E-06 0.21700753E-06 0.99719217E+00 + 15 15 9 0.50700221E-06 0.52114676E-06 0.97285881E+00 + 15 15 10 0.90790620E-06 0.14191054E-05 0.63977360E+00 + 15 15 11 0.15831934E-05 0.36050609E-05 0.43915858E+00 + 15 15 12 0.40095504E-05 0.44755769E-05 0.89587341E+00 + 15 15 13 0.60401673E-05 0.65083892E-05 0.92805872E+00 + 15 15 14 0.72717056E-05 0.76264943E-05 0.95347945E+00 + 15 15 15 0.42010447E-05 0.41995800E-05 0.10003488E+01 + 15 16 1 0.15305650E-09 0.14885788E-09 0.10282055E+01 + 15 16 2 0.32127567E-09 0.31235545E-09 0.10285579E+01 + 15 16 3 0.67933541E-09 0.66001909E-09 0.10292663E+01 + 15 16 4 0.14462911E-08 0.14032284E-08 0.10306883E+01 + 15 16 5 0.31133008E-08 0.30122521E-08 0.10335459E+01 + 15 16 6 0.68298898E-08 0.65716608E-08 0.10392943E+01 + 15 16 7 0.14493079E-07 0.13840181E-07 0.10471741E+01 + 15 16 8 0.32734504E-07 0.30564686E-07 0.10709910E+01 + 15 16 9 0.11126542E-06 0.11133199E-06 0.99940203E+00 + 15 16 10 0.10063840E-05 0.14681417E-05 0.68548151E+00 + 15 16 11 0.31375705E-05 0.68536834E-05 0.45779332E+00 + 15 16 12 0.15697128E-05 0.17372080E-05 0.90358367E+00 + 15 16 13 0.29190981E-05 0.34245181E-05 0.85241134E+00 + 15 16 14 0.11529950E-04 0.17878031E-04 0.64492282E+00 + 15 16 15 0.18154132E-04 0.20568345E-04 0.88262484E+00 + 15 16 16 0.30616644E-05 0.31725452E-05 0.96504988E+00 + 15 17 1 0.49420746E-33 0.48292493E-33 0.10233629E+01 + 15 17 2 0.99723483E-33 0.97429207E-33 0.10235481E+01 + 15 17 3 0.19640230E-32 0.19181365E-32 0.10239225E+01 + 15 17 4 0.36603637E-32 0.35722167E-32 0.10246757E+01 + 15 17 5 0.60902685E-32 0.59348511E-32 0.10261872E+01 + 15 17 6 0.51571564E-16 0.50108819E-16 0.10291914E+01 + 15 17 7 0.33155977E-10 0.32321370E-10 0.10258221E+01 + 15 17 8 0.36319300E-07 0.35863996E-07 0.10126953E+01 + 15 17 9 0.18923611E-07 0.17678605E-07 0.10704245E+01 + 15 17 10 0.41336281E-05 0.64267888E-05 0.64318717E+00 + 15 17 11 0.12660431E-04 0.29028942E-04 0.43613131E+00 + 15 17 12 0.61208164E-05 0.74569564E-05 0.82081966E+00 + 15 17 13 0.11655114E-04 0.13983445E-04 0.83349376E+00 + 15 17 14 0.53054629E-04 0.83214841E-04 0.63756211E+00 + 15 17 15 0.82786904E-04 0.12584380E-03 0.65785445E+00 + 15 17 16 0.17155904E-04 0.16067069E-04 0.10677681E+01 + 15 17 17 0.16071858E-06 0.16225875E-06 0.99050797E+00 + 15 18 1 0.63800241E-69 0.62627181E-69 0.10187308E+01 + 15 18 2 0.22892262E-59 0.22469219E-59 0.10188277E+01 + 15 18 3 0.12777302E-51 0.12538750E-51 0.10190251E+01 + 15 18 4 0.26869452E-45 0.26357470E-45 0.10194245E+01 + 15 18 5 0.42523745E-40 0.41680694E-40 0.10202264E+01 + 15 18 6 0.11626639E-12 0.11380056E-12 0.10216680E+01 + 15 18 7 0.91049388E-08 0.90685004E-08 0.10040181E+01 + 15 18 8 0.40735027E-07 0.40263609E-07 0.10117083E+01 + 15 18 9 0.80759874E-11 0.77041149E-11 0.10482693E+01 + 15 18 10 0.23883303E-04 0.71761022E-04 0.33281721E+00 + 15 18 11 0.54176010E-04 0.22863456E-03 0.23695460E+00 + 15 18 12 0.81780071E-04 0.16239185E-03 0.50359715E+00 + 15 18 13 0.11067276E-03 0.16406023E-03 0.67458613E+00 + 15 18 14 0.22859760E-03 0.37235118E-03 0.61393011E+00 + 15 18 15 0.37520403E-03 0.63129443E-03 0.59434079E+00 + 15 18 16 0.62001990E-04 0.56147118E-04 0.11042773E+01 + 15 18 17 0.70250802E-06 0.68905696E-06 0.10195210E+01 + 15 18 18 0.43131630E-09 0.40703159E-09 0.10596630E+01 + 16 1 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 16 2 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 16 2 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 16 3 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 16 3 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 16 3 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 16 4 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 16 4 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 16 4 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 16 4 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 16 5 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 16 5 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 16 5 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 16 5 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 16 5 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 16 6 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 16 6 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 16 6 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 16 6 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 16 6 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 16 6 6 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 16 7 1 0.00000000E+00 0.00000000E+00 0.10717125E+01 + 16 7 2 0.00000000E+00 0.00000000E+00 0.10501284E+01 + 16 7 3 0.00000000E+00 0.00000000E+00 0.10201475E+01 + 16 7 4 0.00000000E+00 0.00000000E+00 0.98918871E+00 + 16 7 5 0.00000000E+00 0.00000000E+00 0.96266528E+00 + 16 7 6 0.00000000E+00 0.00000000E+00 0.92744630E+00 + 16 7 7 0.00000000E+00 0.00000000E+00 0.88559810E+00 + 16 8 1 0.00000000E+00 0.00000000E+00 0.10690310E+01 + 16 8 2 0.00000000E+00 0.00000000E+00 0.10645464E+01 + 16 8 3 0.00000000E+00 0.00000000E+00 0.10429145E+01 + 16 8 4 0.00000000E+00 0.00000000E+00 0.10129489E+01 + 16 8 5 0.00000000E+00 0.00000000E+00 0.98171053E+00 + 16 8 6 0.00000000E+00 0.00000000E+00 0.95070600E+00 + 16 8 7 0.00000000E+00 0.00000000E+00 0.91760486E+00 + 16 8 8 0.00000000E+00 0.00000000E+00 0.97229026E+00 + 16 9 1 0.00000000E+00 0.00000000E+00 0.10952929E+01 + 16 9 2 0.00000000E+00 0.00000000E+00 0.10631137E+01 + 16 9 3 0.00000000E+00 0.00000000E+00 0.10588301E+01 + 16 9 4 0.00000000E+00 0.00000000E+00 0.10370306E+01 + 16 9 5 0.00000000E+00 0.00000000E+00 0.10057128E+01 + 16 9 6 0.00000000E+00 0.00000000E+00 0.97446026E+00 + 16 9 7 0.00000000E+00 0.00000000E+00 0.93980978E+00 + 16 9 8 0.00000000E+00 0.00000000E+00 0.98179121E+00 + 16 9 9 0.00000000E+00 0.00000000E+00 0.99481238E+00 + 16 10 1 0.00000000E+00 0.00000000E+00 0.10752267E+01 + 16 10 2 0.00000000E+00 0.00000000E+00 0.10911291E+01 + 16 10 3 0.00000000E+00 0.00000000E+00 0.10578720E+01 + 16 10 4 0.00000000E+00 0.00000000E+00 0.10535381E+01 + 16 10 5 0.00000000E+00 0.00000000E+00 0.10316947E+01 + 16 10 6 0.00000000E+00 0.00000000E+00 0.10017315E+01 + 16 10 7 0.00000000E+00 0.00000000E+00 0.96575697E+00 + 16 10 8 0.00000000E+00 0.00000000E+00 0.97591894E+00 + 16 10 9 0.00000000E+00 0.00000000E+00 0.99574004E+00 + 16 10 10 0.00000000E+00 0.00000000E+00 0.99449213E+00 + 16 11 1 0.00000000E+00 0.00000000E+00 0.10620990E+01 + 16 11 2 0.00000000E+00 0.00000000E+00 0.10704087E+01 + 16 11 3 0.00000000E+00 0.00000000E+00 0.10873222E+01 + 16 11 4 0.00000000E+00 0.00000000E+00 0.10526843E+01 + 16 11 5 0.00000000E+00 0.00000000E+00 0.10482243E+01 + 16 11 6 0.00000000E+00 0.00000000E+00 0.10257345E+01 + 16 11 7 0.00000000E+00 0.00000000E+00 0.99191343E+00 + 16 11 8 0.00000000E+00 0.00000000E+00 0.96829426E+00 + 16 11 9 0.00000000E+00 0.00000000E+00 0.99698253E+00 + 16 11 10 0.00000000E+00 0.00000000E+00 0.99512340E+00 + 16 11 11 0.00000000E+00 0.00000000E+00 0.99399930E+00 + 16 12 1 0.00000000E+00 0.00000000E+00 0.10526262E+01 + 16 12 2 0.00000000E+00 0.00000000E+00 0.10570536E+01 + 16 12 3 0.00000000E+00 0.00000000E+00 0.10660402E+01 + 16 12 4 0.00000000E+00 0.00000000E+00 0.10843835E+01 + 16 12 5 0.00000000E+00 0.00000000E+00 0.10472730E+01 + 16 12 6 0.00000000E+00 0.00000000E+00 0.10430693E+01 + 16 12 7 0.00000000E+00 0.00000000E+00 0.10192317E+01 + 16 12 8 0.00000000E+00 0.00000000E+00 0.95771860E+00 + 16 12 9 0.00000000E+00 0.00000000E+00 0.98285946E+00 + 16 12 10 0.00000000E+00 0.00000000E+00 0.99640426E+00 + 16 12 11 0.00000000E+00 0.00000000E+00 0.99485003E+00 + 16 12 12 0.00000000E+00 0.00000000E+00 0.99376764E+00 + 16 13 1 0.00000000E+00 0.00000000E+00 0.10451595E+01 + 16 13 2 0.00000000E+00 0.00000000E+00 0.10475250E+01 + 16 13 3 0.00000000E+00 0.00000000E+00 0.10522776E+01 + 16 13 4 0.00000000E+00 0.00000000E+00 0.10618742E+01 + 16 13 5 0.00000000E+00 0.00000000E+00 0.10814451E+01 + 16 13 6 0.00000000E+00 0.00000000E+00 0.10422907E+01 + 16 13 7 0.00000000E+00 0.00000000E+00 0.10377513E+01 + 16 13 8 0.00000000E+00 0.00000000E+00 0.10090382E+01 + 16 13 9 0.00000000E+00 0.00000000E+00 0.93482132E+00 + 16 13 10 0.00000000E+00 0.00000000E+00 0.82119350E+00 + 16 13 11 0.00000000E+00 0.00000000E+00 0.93556432E+00 + 16 13 12 0.00000000E+00 0.00000000E+00 0.99557497E+00 + 16 13 13 0.00000000E+00 0.00000000E+00 0.99300243E+00 + 16 14 1 0.00000000E+00 0.00000000E+00 0.10388970E+01 + 16 14 2 0.00000000E+00 0.00000000E+00 0.10401523E+01 + 16 14 3 0.00000000E+00 0.00000000E+00 0.10426712E+01 + 16 14 4 0.00000000E+00 0.00000000E+00 0.10477728E+01 + 16 14 5 0.00000000E+00 0.00000000E+00 0.10580036E+01 + 16 14 6 0.00000000E+00 0.00000000E+00 0.10788424E+01 + 16 14 7 0.00000000E+00 0.00000000E+00 0.10373609E+01 + 16 14 8 0.00000000E+00 0.00000000E+00 0.97803764E+00 + 16 14 9 0.00000000E+00 0.00000000E+00 0.94853134E+00 + 16 14 10 0.00000000E+00 0.00000000E+00 0.70985829E+00 + 16 14 11 0.00000000E+00 0.00000000E+00 0.52643605E+00 + 16 14 12 0.00000000E+00 0.00000000E+00 0.86933926E+00 + 16 14 13 0.00000000E+00 0.00000000E+00 0.10090678E+01 + 16 14 14 0.00000000E+00 0.00000000E+00 0.99218681E+00 + 16 15 1 0.27928512E-14 0.27027503E-14 0.10333368E+01 + 16 15 2 0.11748158E-13 0.11361823E-13 0.10340029E+01 + 16 15 3 0.49853662E-13 0.48152037E-13 0.10353386E+01 + 16 15 4 0.21360498E-12 0.20578063E-12 0.10380228E+01 + 16 15 5 0.93054595E-12 0.89182581E-12 0.10434167E+01 + 16 15 6 0.41771284E-11 0.39619125E-11 0.10543212E+01 + 16 15 7 0.22363149E-10 0.20758367E-10 0.10773077E+01 + 16 15 8 0.10365229E-09 0.10394415E-09 0.99719217E+00 + 16 15 9 0.10836828E-08 0.11139158E-08 0.97285881E+00 + 16 15 10 0.62488359E-08 0.97672613E-08 0.63977360E+00 + 16 15 11 0.29532857E-07 0.67248731E-07 0.43915858E+00 + 16 15 12 0.20005731E-06 0.22330980E-06 0.89587341E+00 + 16 15 13 0.48484210E-06 0.52242610E-06 0.92805872E+00 + 16 15 14 0.56443832E-06 0.59197744E-06 0.95347945E+00 + 16 15 15 0.33662516E-06 0.33650780E-06 0.10003488E+01 + 16 16 1 0.54875205E-08 0.53369879E-08 0.10282055E+01 + 16 16 2 0.11461770E-07 0.11143534E-07 0.10285579E+01 + 16 16 3 0.24118830E-07 0.23433031E-07 0.10292663E+01 + 16 16 4 0.51148925E-07 0.49625989E-07 0.10306883E+01 + 16 16 5 0.10996999E-06 0.10640069E-06 0.10335459E+01 + 16 16 6 0.24252672E-06 0.23335710E-06 0.10392943E+01 + 16 16 7 0.56313158E-06 0.53776311E-06 0.10471741E+01 + 16 16 8 0.13914240E-05 0.12991930E-05 0.10709910E+01 + 16 16 9 0.33967136E-05 0.33987459E-05 0.99940203E+00 + 16 16 10 0.63972705E-05 0.93325209E-05 0.68548151E+00 + 16 16 11 0.10571617E-04 0.23092553E-04 0.45779332E+00 + 16 16 12 0.27360234E-04 0.30279690E-04 0.90358367E+00 + 16 16 13 0.42170469E-04 0.49471971E-04 0.85241134E+00 + 16 16 14 0.58598498E-04 0.90861256E-04 0.64492282E+00 + 16 16 15 0.78526359E-04 0.88969124E-04 0.88262484E+00 + 16 16 16 0.39534258E-04 0.40966025E-04 0.96504988E+00 + 16 17 1 0.92263198E-09 0.90156871E-09 0.10233629E+01 + 16 17 2 0.19193157E-08 0.18751592E-08 0.10235481E+01 + 16 17 3 0.40189098E-08 0.39250138E-08 0.10239225E+01 + 16 17 4 0.84698278E-08 0.82658618E-08 0.10246757E+01 + 16 17 5 0.18057286E-07 0.17596482E-07 0.10261872E+01 + 16 17 6 0.39338909E-07 0.38223123E-07 0.10291914E+01 + 16 17 7 0.79058249E-07 0.77068184E-07 0.10258221E+01 + 16 17 8 0.25699182E-06 0.25377014E-06 0.10126953E+01 + 16 17 9 0.62075568E-06 0.57991543E-06 0.10704245E+01 + 16 17 10 0.70360680E-05 0.10939379E-04 0.64318717E+00 + 16 17 11 0.20276287E-04 0.46491242E-04 0.43613131E+00 + 16 17 12 0.14112466E-04 0.17193138E-04 0.82081966E+00 + 16 17 13 0.20809964E-04 0.24967151E-04 0.83349376E+00 + 16 17 14 0.69785851E-04 0.10945734E-03 0.63756211E+00 + 16 17 15 0.11815447E-03 0.17960580E-03 0.65785445E+00 + 16 17 16 0.16911184E-03 0.15837880E-03 0.10677681E+01 + 16 17 17 0.28212070E-04 0.28482427E-04 0.99050797E+00 + 16 18 1 0.74537611E-35 0.73167129E-35 0.10187308E+01 + 16 18 2 0.77420310E-35 0.75989604E-35 0.10188277E+01 + 16 18 3 0.10062801E-34 0.98749286E-35 0.10190251E+01 + 16 18 4 0.17525884E-34 0.17191938E-34 0.10194245E+01 + 16 18 5 0.31779246E-34 0.31149209E-34 0.10202264E+01 + 16 18 6 0.23253278E-12 0.22760112E-12 0.10216680E+01 + 16 18 7 0.19038602E-07 0.18962409E-07 0.10040181E+01 + 16 18 8 0.74465495E-07 0.73603722E-07 0.10117083E+01 + 16 18 9 0.36061175E-11 0.34400678E-11 0.10482693E+01 + 16 18 10 0.41754288E-04 0.12545712E-03 0.33281721E+00 + 16 18 11 0.92748509E-04 0.39141891E-03 0.23695460E+00 + 16 18 12 0.12354224E-03 0.24531958E-03 0.50359715E+00 + 16 18 13 0.15393179E-03 0.22818701E-03 0.67458613E+00 + 16 18 14 0.31683586E-03 0.51607806E-03 0.61393011E+00 + 16 18 15 0.51295413E-03 0.86306399E-03 0.59434079E+00 + 16 18 16 0.57119064E-03 0.51725288E-03 0.11042773E+01 + 16 18 17 0.21368747E-03 0.20959595E-03 0.10195210E+01 + 16 18 18 0.10886445E-05 0.10273497E-05 0.10596630E+01 + 17 1 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 17 2 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 17 2 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 17 3 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 17 3 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 17 3 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 17 4 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 17 4 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 17 4 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 17 4 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 17 5 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 17 5 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 17 5 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 17 5 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 17 5 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 17 6 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 17 6 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 17 6 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 17 6 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 17 6 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 17 6 6 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 17 7 1 0.00000000E+00 0.00000000E+00 0.10717125E+01 + 17 7 2 0.00000000E+00 0.00000000E+00 0.10501284E+01 + 17 7 3 0.00000000E+00 0.00000000E+00 0.10201475E+01 + 17 7 4 0.00000000E+00 0.00000000E+00 0.98918871E+00 + 17 7 5 0.00000000E+00 0.00000000E+00 0.96266528E+00 + 17 7 6 0.00000000E+00 0.00000000E+00 0.92744630E+00 + 17 7 7 0.00000000E+00 0.00000000E+00 0.88559810E+00 + 17 8 1 0.00000000E+00 0.00000000E+00 0.10690310E+01 + 17 8 2 0.00000000E+00 0.00000000E+00 0.10645464E+01 + 17 8 3 0.00000000E+00 0.00000000E+00 0.10429145E+01 + 17 8 4 0.00000000E+00 0.00000000E+00 0.10129489E+01 + 17 8 5 0.00000000E+00 0.00000000E+00 0.98171053E+00 + 17 8 6 0.00000000E+00 0.00000000E+00 0.95070600E+00 + 17 8 7 0.00000000E+00 0.00000000E+00 0.91760486E+00 + 17 8 8 0.00000000E+00 0.00000000E+00 0.97229026E+00 + 17 9 1 0.00000000E+00 0.00000000E+00 0.10952929E+01 + 17 9 2 0.00000000E+00 0.00000000E+00 0.10631137E+01 + 17 9 3 0.00000000E+00 0.00000000E+00 0.10588301E+01 + 17 9 4 0.00000000E+00 0.00000000E+00 0.10370306E+01 + 17 9 5 0.00000000E+00 0.00000000E+00 0.10057128E+01 + 17 9 6 0.00000000E+00 0.00000000E+00 0.97446026E+00 + 17 9 7 0.00000000E+00 0.00000000E+00 0.93980978E+00 + 17 9 8 0.00000000E+00 0.00000000E+00 0.98179121E+00 + 17 9 9 0.00000000E+00 0.00000000E+00 0.99481238E+00 + 17 10 1 0.00000000E+00 0.00000000E+00 0.10752267E+01 + 17 10 2 0.00000000E+00 0.00000000E+00 0.10911291E+01 + 17 10 3 0.00000000E+00 0.00000000E+00 0.10578720E+01 + 17 10 4 0.00000000E+00 0.00000000E+00 0.10535381E+01 + 17 10 5 0.00000000E+00 0.00000000E+00 0.10316947E+01 + 17 10 6 0.00000000E+00 0.00000000E+00 0.10017315E+01 + 17 10 7 0.00000000E+00 0.00000000E+00 0.96575697E+00 + 17 10 8 0.00000000E+00 0.00000000E+00 0.97591894E+00 + 17 10 9 0.00000000E+00 0.00000000E+00 0.99574004E+00 + 17 10 10 0.00000000E+00 0.00000000E+00 0.99449213E+00 + 17 11 1 0.00000000E+00 0.00000000E+00 0.10620990E+01 + 17 11 2 0.00000000E+00 0.00000000E+00 0.10704087E+01 + 17 11 3 0.00000000E+00 0.00000000E+00 0.10873222E+01 + 17 11 4 0.00000000E+00 0.00000000E+00 0.10526843E+01 + 17 11 5 0.00000000E+00 0.00000000E+00 0.10482243E+01 + 17 11 6 0.00000000E+00 0.00000000E+00 0.10257345E+01 + 17 11 7 0.00000000E+00 0.00000000E+00 0.99191343E+00 + 17 11 8 0.00000000E+00 0.00000000E+00 0.96829426E+00 + 17 11 9 0.00000000E+00 0.00000000E+00 0.99698253E+00 + 17 11 10 0.00000000E+00 0.00000000E+00 0.99512340E+00 + 17 11 11 0.00000000E+00 0.00000000E+00 0.99399930E+00 + 17 12 1 0.00000000E+00 0.00000000E+00 0.10526262E+01 + 17 12 2 0.00000000E+00 0.00000000E+00 0.10570536E+01 + 17 12 3 0.00000000E+00 0.00000000E+00 0.10660402E+01 + 17 12 4 0.00000000E+00 0.00000000E+00 0.10843835E+01 + 17 12 5 0.00000000E+00 0.00000000E+00 0.10472730E+01 + 17 12 6 0.00000000E+00 0.00000000E+00 0.10430693E+01 + 17 12 7 0.00000000E+00 0.00000000E+00 0.10192317E+01 + 17 12 8 0.00000000E+00 0.00000000E+00 0.95771860E+00 + 17 12 9 0.00000000E+00 0.00000000E+00 0.98285946E+00 + 17 12 10 0.00000000E+00 0.00000000E+00 0.99640426E+00 + 17 12 11 0.00000000E+00 0.00000000E+00 0.99485003E+00 + 17 12 12 0.00000000E+00 0.00000000E+00 0.99376764E+00 + 17 13 1 0.00000000E+00 0.00000000E+00 0.10451595E+01 + 17 13 2 0.00000000E+00 0.00000000E+00 0.10475250E+01 + 17 13 3 0.00000000E+00 0.00000000E+00 0.10522776E+01 + 17 13 4 0.00000000E+00 0.00000000E+00 0.10618742E+01 + 17 13 5 0.00000000E+00 0.00000000E+00 0.10814451E+01 + 17 13 6 0.00000000E+00 0.00000000E+00 0.10422907E+01 + 17 13 7 0.00000000E+00 0.00000000E+00 0.10377513E+01 + 17 13 8 0.00000000E+00 0.00000000E+00 0.10090382E+01 + 17 13 9 0.00000000E+00 0.00000000E+00 0.93482132E+00 + 17 13 10 0.00000000E+00 0.00000000E+00 0.82119350E+00 + 17 13 11 0.00000000E+00 0.00000000E+00 0.93556432E+00 + 17 13 12 0.00000000E+00 0.00000000E+00 0.99557497E+00 + 17 13 13 0.00000000E+00 0.00000000E+00 0.99300243E+00 + 17 14 1 0.00000000E+00 0.00000000E+00 0.10388970E+01 + 17 14 2 0.00000000E+00 0.00000000E+00 0.10401523E+01 + 17 14 3 0.00000000E+00 0.00000000E+00 0.10426712E+01 + 17 14 4 0.00000000E+00 0.00000000E+00 0.10477728E+01 + 17 14 5 0.00000000E+00 0.00000000E+00 0.10580036E+01 + 17 14 6 0.00000000E+00 0.00000000E+00 0.10788424E+01 + 17 14 7 0.00000000E+00 0.00000000E+00 0.10373609E+01 + 17 14 8 0.00000000E+00 0.00000000E+00 0.97803764E+00 + 17 14 9 0.00000000E+00 0.00000000E+00 0.94853134E+00 + 17 14 10 0.00000000E+00 0.00000000E+00 0.70985829E+00 + 17 14 11 0.00000000E+00 0.00000000E+00 0.52643605E+00 + 17 14 12 0.00000000E+00 0.00000000E+00 0.86933926E+00 + 17 14 13 0.00000000E+00 0.00000000E+00 0.10090678E+01 + 17 14 14 0.00000000E+00 0.00000000E+00 0.99218681E+00 + 17 15 1 0.00000000E+00 0.00000000E+00 0.10333368E+01 + 17 15 2 0.00000000E+00 0.00000000E+00 0.10340029E+01 + 17 15 3 0.00000000E+00 0.00000000E+00 0.10353386E+01 + 17 15 4 0.00000000E+00 0.00000000E+00 0.10380228E+01 + 17 15 5 0.00000000E+00 0.00000000E+00 0.10434167E+01 + 17 15 6 0.00000000E+00 0.00000000E+00 0.10543212E+01 + 17 15 7 0.00000000E+00 0.00000000E+00 0.10773077E+01 + 17 15 8 0.00000000E+00 0.00000000E+00 0.99719217E+00 + 17 15 9 0.00000000E+00 0.00000000E+00 0.97285881E+00 + 17 15 10 0.00000000E+00 0.00000000E+00 0.63977360E+00 + 17 15 11 0.00000000E+00 0.00000000E+00 0.43915858E+00 + 17 15 12 0.00000000E+00 0.00000000E+00 0.89587341E+00 + 17 15 13 0.00000000E+00 0.00000000E+00 0.92805872E+00 + 17 15 14 0.00000000E+00 0.00000000E+00 0.95347945E+00 + 17 15 15 0.00000000E+00 0.00000000E+00 0.10003488E+01 + 17 16 1 0.96149489E-14 0.93511934E-14 0.10282055E+01 + 17 16 2 0.40053751E-13 0.38941658E-13 0.10285579E+01 + 17 16 3 0.16808774E-12 0.16330831E-12 0.10292663E+01 + 17 16 4 0.71106874E-12 0.68989699E-12 0.10306883E+01 + 17 16 5 0.30523617E-11 0.29532909E-11 0.10335459E+01 + 17 16 6 0.13470531E-10 0.12961228E-10 0.10392943E+01 + 17 16 7 0.78270426E-10 0.74744427E-10 0.10471741E+01 + 17 16 8 0.36570675E-09 0.34146575E-09 0.10709910E+01 + 17 16 9 0.13662138E-08 0.13670312E-08 0.99940203E+00 + 17 16 10 0.13586430E-07 0.19820272E-07 0.68548151E+00 + 17 16 11 0.64118463E-07 0.14005985E-06 0.45779332E+00 + 17 16 12 0.61427675E-06 0.67982276E-06 0.90358367E+00 + 17 16 13 0.20064402E-05 0.23538403E-05 0.85241134E+00 + 17 16 14 0.45676953E-05 0.70825457E-05 0.64492282E+00 + 17 16 15 0.73177717E-05 0.82909198E-05 0.88262484E+00 + 17 16 16 0.31079782E-05 0.32205363E-05 0.96504988E+00 + 17 17 1 0.35198654E-07 0.34395085E-07 0.10233629E+01 + 17 17 2 0.72871802E-07 0.71195285E-07 0.10235481E+01 + 17 17 3 0.15179675E-06 0.14825024E-06 0.10239225E+01 + 17 17 4 0.31819747E-06 0.31053480E-06 0.10246757E+01 + 17 17 5 0.67489318E-06 0.65767060E-06 0.10261872E+01 + 17 17 6 0.14642214E-05 0.14226911E-05 0.10291914E+01 + 17 17 7 0.33404009E-05 0.32563159E-05 0.10258221E+01 + 17 17 8 0.79928575E-05 0.78926580E-05 0.10126953E+01 + 17 17 9 0.20578979E-04 0.19225063E-04 0.10704245E+01 + 17 17 10 0.41605939E-04 0.64687141E-04 0.64318717E+00 + 17 17 11 0.64333436E-04 0.14750933E-03 0.43613131E+00 + 17 17 12 0.16904984E-03 0.20595247E-03 0.82081966E+00 + 17 17 13 0.28010763E-03 0.33606446E-03 0.83349376E+00 + 17 17 14 0.39056433E-03 0.61259025E-03 0.63756211E+00 + 17 17 15 0.63161984E-03 0.96012095E-03 0.65785445E+00 + 17 17 16 0.74443307E-03 0.69718609E-03 0.10677681E+01 + 17 17 17 0.33779950E-03 0.34103663E-03 0.99050797E+00 + 17 18 1 0.54596875E-08 0.53593032E-08 0.10187308E+01 + 17 18 2 0.11263921E-07 0.11055767E-07 0.10188277E+01 + 17 18 3 0.23363983E-07 0.22927778E-07 0.10190251E+01 + 17 18 4 0.48712596E-07 0.47784406E-07 0.10194245E+01 + 17 18 5 0.10256353E-06 0.10053017E-06 0.10202264E+01 + 17 18 6 0.21981263E-06 0.21515074E-06 0.10216680E+01 + 17 18 7 0.45664495E-06 0.45481744E-06 0.10040181E+01 + 17 18 8 0.11147004E-05 0.11018002E-05 0.10117083E+01 + 17 18 9 0.33660366E-05 0.32110418E-05 0.10482693E+01 + 17 18 10 0.76668877E-04 0.23036332E-03 0.33281721E+00 + 17 18 11 0.16214839E-03 0.68430152E-03 0.23695460E+00 + 17 18 12 0.19908969E-03 0.39533522E-03 0.50359715E+00 + 17 18 13 0.25598545E-03 0.37947037E-03 0.67458613E+00 + 17 18 14 0.47330513E-03 0.77094300E-03 0.61393011E+00 + 17 18 15 0.78843316E-03 0.13265675E-02 0.59434079E+00 + 17 18 16 0.26492783E-03 0.23991059E-03 0.11042773E+01 + 17 18 17 0.15873422E-02 0.15569490E-02 0.10195210E+01 + 17 18 18 0.21172817E-03 0.19980709E-03 0.10596630E+01 + 18 1 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 18 2 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 18 2 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 18 3 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 18 3 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 18 3 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 18 4 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 18 4 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 18 4 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 18 4 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 18 5 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 18 5 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 18 5 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 18 5 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 18 5 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 18 6 1 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 18 6 2 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 18 6 3 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 18 6 4 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 18 6 5 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 18 6 6 0.00000000E+00 0.00000000E+00 0.10000000E+01 + 18 7 1 0.00000000E+00 0.00000000E+00 0.10717125E+01 + 18 7 2 0.00000000E+00 0.00000000E+00 0.10501284E+01 + 18 7 3 0.00000000E+00 0.00000000E+00 0.10201475E+01 + 18 7 4 0.00000000E+00 0.00000000E+00 0.98918871E+00 + 18 7 5 0.00000000E+00 0.00000000E+00 0.96266528E+00 + 18 7 6 0.00000000E+00 0.00000000E+00 0.92744630E+00 + 18 7 7 0.00000000E+00 0.00000000E+00 0.88559810E+00 + 18 8 1 0.00000000E+00 0.00000000E+00 0.10690310E+01 + 18 8 2 0.00000000E+00 0.00000000E+00 0.10645464E+01 + 18 8 3 0.00000000E+00 0.00000000E+00 0.10429145E+01 + 18 8 4 0.00000000E+00 0.00000000E+00 0.10129489E+01 + 18 8 5 0.00000000E+00 0.00000000E+00 0.98171053E+00 + 18 8 6 0.00000000E+00 0.00000000E+00 0.95070600E+00 + 18 8 7 0.00000000E+00 0.00000000E+00 0.91760486E+00 + 18 8 8 0.00000000E+00 0.00000000E+00 0.97229026E+00 + 18 9 1 0.00000000E+00 0.00000000E+00 0.10952929E+01 + 18 9 2 0.00000000E+00 0.00000000E+00 0.10631137E+01 + 18 9 3 0.00000000E+00 0.00000000E+00 0.10588301E+01 + 18 9 4 0.00000000E+00 0.00000000E+00 0.10370306E+01 + 18 9 5 0.00000000E+00 0.00000000E+00 0.10057128E+01 + 18 9 6 0.00000000E+00 0.00000000E+00 0.97446026E+00 + 18 9 7 0.00000000E+00 0.00000000E+00 0.93980978E+00 + 18 9 8 0.00000000E+00 0.00000000E+00 0.98179121E+00 + 18 9 9 0.00000000E+00 0.00000000E+00 0.99481238E+00 + 18 10 1 0.00000000E+00 0.00000000E+00 0.10752267E+01 + 18 10 2 0.00000000E+00 0.00000000E+00 0.10911291E+01 + 18 10 3 0.00000000E+00 0.00000000E+00 0.10578720E+01 + 18 10 4 0.00000000E+00 0.00000000E+00 0.10535381E+01 + 18 10 5 0.00000000E+00 0.00000000E+00 0.10316947E+01 + 18 10 6 0.00000000E+00 0.00000000E+00 0.10017315E+01 + 18 10 7 0.00000000E+00 0.00000000E+00 0.96575697E+00 + 18 10 8 0.00000000E+00 0.00000000E+00 0.97591894E+00 + 18 10 9 0.00000000E+00 0.00000000E+00 0.99574004E+00 + 18 10 10 0.00000000E+00 0.00000000E+00 0.99449213E+00 + 18 11 1 0.00000000E+00 0.00000000E+00 0.10620990E+01 + 18 11 2 0.00000000E+00 0.00000000E+00 0.10704087E+01 + 18 11 3 0.00000000E+00 0.00000000E+00 0.10873222E+01 + 18 11 4 0.00000000E+00 0.00000000E+00 0.10526843E+01 + 18 11 5 0.00000000E+00 0.00000000E+00 0.10482243E+01 + 18 11 6 0.00000000E+00 0.00000000E+00 0.10257345E+01 + 18 11 7 0.00000000E+00 0.00000000E+00 0.99191343E+00 + 18 11 8 0.00000000E+00 0.00000000E+00 0.96829426E+00 + 18 11 9 0.00000000E+00 0.00000000E+00 0.99698253E+00 + 18 11 10 0.00000000E+00 0.00000000E+00 0.99512340E+00 + 18 11 11 0.00000000E+00 0.00000000E+00 0.99399930E+00 + 18 12 1 0.00000000E+00 0.00000000E+00 0.10526262E+01 + 18 12 2 0.00000000E+00 0.00000000E+00 0.10570536E+01 + 18 12 3 0.00000000E+00 0.00000000E+00 0.10660402E+01 + 18 12 4 0.00000000E+00 0.00000000E+00 0.10843835E+01 + 18 12 5 0.00000000E+00 0.00000000E+00 0.10472730E+01 + 18 12 6 0.00000000E+00 0.00000000E+00 0.10430693E+01 + 18 12 7 0.00000000E+00 0.00000000E+00 0.10192317E+01 + 18 12 8 0.00000000E+00 0.00000000E+00 0.95771860E+00 + 18 12 9 0.00000000E+00 0.00000000E+00 0.98285946E+00 + 18 12 10 0.00000000E+00 0.00000000E+00 0.99640426E+00 + 18 12 11 0.00000000E+00 0.00000000E+00 0.99485003E+00 + 18 12 12 0.00000000E+00 0.00000000E+00 0.99376764E+00 + 18 13 1 0.00000000E+00 0.00000000E+00 0.10451595E+01 + 18 13 2 0.00000000E+00 0.00000000E+00 0.10475250E+01 + 18 13 3 0.00000000E+00 0.00000000E+00 0.10522776E+01 + 18 13 4 0.00000000E+00 0.00000000E+00 0.10618742E+01 + 18 13 5 0.00000000E+00 0.00000000E+00 0.10814451E+01 + 18 13 6 0.00000000E+00 0.00000000E+00 0.10422907E+01 + 18 13 7 0.00000000E+00 0.00000000E+00 0.10377513E+01 + 18 13 8 0.00000000E+00 0.00000000E+00 0.10090382E+01 + 18 13 9 0.00000000E+00 0.00000000E+00 0.93482132E+00 + 18 13 10 0.00000000E+00 0.00000000E+00 0.82119350E+00 + 18 13 11 0.00000000E+00 0.00000000E+00 0.93556432E+00 + 18 13 12 0.00000000E+00 0.00000000E+00 0.99557497E+00 + 18 13 13 0.00000000E+00 0.00000000E+00 0.99300243E+00 + 18 14 1 0.00000000E+00 0.00000000E+00 0.10388970E+01 + 18 14 2 0.00000000E+00 0.00000000E+00 0.10401523E+01 + 18 14 3 0.00000000E+00 0.00000000E+00 0.10426712E+01 + 18 14 4 0.00000000E+00 0.00000000E+00 0.10477728E+01 + 18 14 5 0.00000000E+00 0.00000000E+00 0.10580036E+01 + 18 14 6 0.00000000E+00 0.00000000E+00 0.10788424E+01 + 18 14 7 0.00000000E+00 0.00000000E+00 0.10373609E+01 + 18 14 8 0.00000000E+00 0.00000000E+00 0.97803764E+00 + 18 14 9 0.00000000E+00 0.00000000E+00 0.94853134E+00 + 18 14 10 0.00000000E+00 0.00000000E+00 0.70985829E+00 + 18 14 11 0.00000000E+00 0.00000000E+00 0.52643605E+00 + 18 14 12 0.00000000E+00 0.00000000E+00 0.86933926E+00 + 18 14 13 0.00000000E+00 0.00000000E+00 0.10090678E+01 + 18 14 14 0.00000000E+00 0.00000000E+00 0.99218681E+00 + 18 15 1 0.00000000E+00 0.00000000E+00 0.10333368E+01 + 18 15 2 0.00000000E+00 0.00000000E+00 0.10340029E+01 + 18 15 3 0.00000000E+00 0.00000000E+00 0.10353386E+01 + 18 15 4 0.00000000E+00 0.00000000E+00 0.10380228E+01 + 18 15 5 0.00000000E+00 0.00000000E+00 0.10434167E+01 + 18 15 6 0.00000000E+00 0.00000000E+00 0.10543212E+01 + 18 15 7 0.00000000E+00 0.00000000E+00 0.10773077E+01 + 18 15 8 0.00000000E+00 0.00000000E+00 0.99719217E+00 + 18 15 9 0.00000000E+00 0.00000000E+00 0.97285881E+00 + 18 15 10 0.00000000E+00 0.00000000E+00 0.63977360E+00 + 18 15 11 0.00000000E+00 0.00000000E+00 0.43915858E+00 + 18 15 12 0.00000000E+00 0.00000000E+00 0.89587341E+00 + 18 15 13 0.00000000E+00 0.00000000E+00 0.92805872E+00 + 18 15 14 0.00000000E+00 0.00000000E+00 0.95347945E+00 + 18 15 15 0.00000000E+00 0.00000000E+00 0.10003488E+01 + 18 16 1 0.00000000E+00 0.00000000E+00 0.10282055E+01 + 18 16 2 0.00000000E+00 0.00000000E+00 0.10285579E+01 + 18 16 3 0.00000000E+00 0.00000000E+00 0.10292663E+01 + 18 16 4 0.00000000E+00 0.00000000E+00 0.10306883E+01 + 18 16 5 0.00000000E+00 0.00000000E+00 0.10335459E+01 + 18 16 6 0.00000000E+00 0.00000000E+00 0.10392943E+01 + 18 16 7 0.00000000E+00 0.00000000E+00 0.10471741E+01 + 18 16 8 0.00000000E+00 0.00000000E+00 0.10709910E+01 + 18 16 9 0.00000000E+00 0.00000000E+00 0.99940203E+00 + 18 16 10 0.00000000E+00 0.00000000E+00 0.68548151E+00 + 18 16 11 0.00000000E+00 0.00000000E+00 0.45779332E+00 + 18 16 12 0.00000000E+00 0.00000000E+00 0.90358367E+00 + 18 16 13 0.00000000E+00 0.00000000E+00 0.85241134E+00 + 18 16 14 0.00000000E+00 0.00000000E+00 0.64492282E+00 + 18 16 15 0.00000000E+00 0.00000000E+00 0.88262484E+00 + 18 16 16 0.00000000E+00 0.00000000E+00 0.96504988E+00 + 18 17 1 0.32496764E-13 0.31754878E-13 0.10233629E+01 + 18 17 2 0.13420018E-12 0.13111272E-12 0.10235481E+01 + 18 17 3 0.55745026E-12 0.54442624E-12 0.10239225E+01 + 18 17 4 0.23296056E-11 0.22735053E-11 0.10246757E+01 + 18 17 5 0.98484542E-11 0.95971317E-11 0.10261872E+01 + 18 17 6 0.42735864E-10 0.41523730E-10 0.10291914E+01 + 18 17 7 0.25998146E-09 0.25343717E-09 0.10258221E+01 + 18 17 8 0.11075727E-08 0.10936881E-08 0.10126953E+01 + 18 17 9 0.43570005E-08 0.40703483E-08 0.10704245E+01 + 18 17 10 0.15141699E-07 0.23541669E-07 0.64318717E+00 + 18 17 11 0.11504812E-06 0.26379239E-06 0.43613131E+00 + 18 17 12 0.12915041E-05 0.15734322E-05 0.82081966E+00 + 18 17 13 0.62963405E-05 0.75541543E-05 0.83349376E+00 + 18 17 14 0.17225428E-04 0.27017647E-04 0.63756211E+00 + 18 17 15 0.43849561E-04 0.66655414E-04 0.65785445E+00 + 18 17 16 0.29587463E-04 0.27709634E-04 0.10677681E+01 + 18 17 17 0.26449813E-04 0.26703281E-04 0.99050797E+00 + 18 18 1 0.22218998E-06 0.21810469E-06 0.10187308E+01 + 18 18 2 0.45638467E-06 0.44795081E-06 0.10188277E+01 + 18 18 3 0.94188695E-06 0.92430198E-06 0.10190251E+01 + 18 18 4 0.19525652E-05 0.19153602E-05 0.10194245E+01 + 18 18 5 0.40837217E-05 0.40027602E-05 0.10202264E+01 + 18 18 6 0.86896029E-05 0.85053099E-05 0.10216680E+01 + 18 18 7 0.19200909E-04 0.19124066E-04 0.10040181E+01 + 18 18 8 0.44950858E-04 0.44430651E-04 0.10117083E+01 + 18 18 9 0.11242017E-03 0.10724360E-03 0.10482693E+01 + 18 18 10 0.20017722E-03 0.60146296E-03 0.33281721E+00 + 18 18 11 0.34519914E-03 0.14568155E-02 0.23695460E+00 + 18 18 12 0.76951976E-03 0.15280463E-02 0.50359715E+00 + 18 18 13 0.15307121E-02 0.22691130E-02 0.67458613E+00 + 18 18 14 0.23983580E-02 0.39065652E-02 0.61393011E+00 + 18 18 15 0.37411016E-02 0.62945394E-02 0.59434079E+00 + 18 18 16 0.60664474E-02 0.54935904E-02 0.11042773E+01 + 18 18 17 0.50988270E-02 0.50011987E-02 0.10195210E+01 + 18 18 18 0.24543008E-02 0.23161145E-02 0.10596630E+01 + + diff --git a/etc/HUCM-SBM/coeff_q.asc b/etc/HUCM-SBM/coeff_q.asc new file mode 100755 index 0000000..618c4e4 --- /dev/null +++ b/etc/HUCM-SBM/coeff_q.asc @@ -0,0 +1,326 @@ + 1 1 0.00000000E+00 + 1 2 0.00000000E+00 + 1 3 0.00000000E+00 + 1 4 0.00000000E+00 + 1 5 0.00000000E+00 + 1 6 0.00000000E+00 + 1 7 0.12242701E-17 + 1 8 0.46975654E-17 + 1 9 0.17984227E-16 + 1 10 0.69862154E-16 + 1 11 0.32074017E-15 + 1 12 0.13456264E-14 + 1 13 0.46738072E-14 + 1 14 0.15836851E-13 + 1 15 0.52728521E-13 + 1 16 0.17213769E-12 + 1 17 0.55116858E-12 + 1 18 0.17368306E-11 + 2 1 0.00000000E+00 + 2 2 0.00000000E+00 + 2 3 0.00000000E+00 + 2 4 0.00000000E+00 + 2 5 0.00000000E+00 + 2 6 0.00000000E+00 + 2 7 0.52651358E-17 + 2 8 0.19822092E-16 + 2 9 0.74791973E-16 + 2 10 0.29421151E-15 + 2 11 0.14165224E-14 + 2 12 0.58773339E-14 + 2 13 0.20137015E-13 + 2 14 0.67504432E-13 + 2 15 0.22244320E-12 + 2 16 0.71918817E-12 + 2 17 0.22824565E-11 + 2 18 0.71357643E-11 + 3 1 0.00000000E+00 + 3 2 0.00000000E+00 + 3 3 0.00000000E+00 + 3 4 0.00000000E+00 + 3 5 0.00000000E+00 + 3 6 0.00000000E+00 + 3 7 0.23720911E-16 + 3 8 0.86841608E-16 + 3 9 0.31875481E-15 + 3 10 0.12837731E-14 + 3 11 0.64196204E-14 + 3 12 0.25895806E-13 + 3 13 0.87539625E-13 + 3 14 0.29032159E-12 + 3 15 0.94633644E-12 + 3 16 0.30271961E-11 + 3 17 0.95103516E-11 + 3 18 0.29457247E-10 + 4 1 0.00000000E+00 + 4 2 0.00000000E+00 + 4 3 0.00000000E+00 + 4 4 0.00000000E+00 + 4 5 0.00000000E+00 + 4 6 0.00000000E+00 + 4 7 0.11178379E-15 + 4 8 0.40499353E-15 + 4 9 0.14292066E-14 + 4 10 0.59354753E-14 + 4 11 0.29763104E-13 + 4 12 0.11466307E-12 + 4 13 0.38335982E-12 + 4 14 0.12590575E-11 + 4 15 0.40602957E-11 + 4 16 0.12841372E-10 + 4 17 0.39877515E-10 + 4 18 0.12214956E-09 + 5 1 0.00000000E+00 + 5 2 0.00000000E+00 + 5 3 0.00000000E+00 + 5 4 0.00000000E+00 + 5 5 0.00000000E+00 + 5 6 0.00000000E+00 + 5 7 0.49961342E-15 + 5 8 0.20033728E-14 + 5 9 0.70348931E-14 + 5 10 0.29505305E-13 + 5 11 0.13968307E-12 + 5 12 0.50947612E-12 + 5 13 0.16940338E-11 + 5 14 0.55264083E-11 + 5 15 0.17662576E-10 + 5 16 0.55224040E-10 + 5 17 0.16918875E-09 + 5 18 0.51103425E-09 + 6 1 0.00000000E+00 + 6 2 0.00000000E+00 + 6 3 0.00000000E+00 + 6 4 0.00000000E+00 + 6 5 0.00000000E+00 + 6 6 0.00000000E+00 + 6 7 0.15262301E-14 + 6 8 0.93495761E-14 + 6 9 0.37373165E-13 + 6 10 0.15240041E-12 + 6 11 0.64559249E-12 + 6 12 0.22662213E-11 + 6 13 0.75658514E-11 + 6 14 0.24700078E-10 + 6 15 0.78670416E-10 + 6 16 0.24359512E-09 + 6 17 0.73428153E-09 + 6 18 0.21752926E-08 + 7 1 0.78353289E-16 + 7 2 0.16848435E-15 + 7 3 0.37953458E-15 + 7 4 0.89427034E-15 + 7 5 0.19984537E-14 + 7 6 0.30524601E-14 + 7 7 0.22504295E-14 + 7 8 0.29097911E-13 + 7 9 0.17830156E-12 + 7 10 0.73722420E-12 + 7 11 0.28498742E-11 + 7 12 0.10053779E-10 + 7 13 0.34243401E-10 + 7 14 0.11364618E-09 + 7 15 0.36557398E-09 + 7 16 0.11287071E-08 + 7 17 0.33398720E-08 + 7 18 0.96163377E-08 + 8 1 0.60128837E-15 + 8 2 0.12686139E-14 + 8 3 0.27789315E-14 + 8 4 0.64798965E-14 + 8 5 0.16026982E-13 + 8 6 0.37398305E-13 + 8 7 0.58195821E-13 + 8 8 0.44960083E-13 + 8 9 0.53510708E-12 + 8 10 0.28801321E-11 + 8 11 0.11690127E-10 + 8 12 0.43467051E-10 + 8 13 0.15482652E-09 + 8 14 0.53558800E-09 + 8 15 0.17796712E-08 + 8 16 0.55662944E-08 + 8 17 0.16249687E-07 + 8 18 0.45144689E-07 + 9 1 0.46039621E-14 + 9 2 0.95733725E-14 + 9 3 0.20400308E-13 + 9 4 0.45734610E-13 + 9 5 0.11255829E-12 + 9 6 0.29898532E-12 + 9 7 0.71320625E-12 + 9 8 0.10702142E-11 + 9 9 0.90689380E-12 + 9 10 0.79955344E-11 + 9 11 0.42663224E-10 + 9 12 0.17627383E-09 + 9 13 0.67650988E-09 + 9 14 0.25011802E-08 + 9 15 0.87513128E-08 + 9 16 0.28254727E-07 + 9 17 0.83140704E-07 + 9 18 0.22604016E-06 + 10 1 0.35769423E-13 + 10 2 0.75318146E-13 + 10 3 0.16432296E-12 + 10 4 0.37987042E-12 + 10 5 0.94416977E-12 + 10 6 0.24384066E-11 + 10 7 0.58977936E-11 + 10 8 0.11520529E-10 + 10 9 0.15991069E-10 + 10 10 0.13857522E-10 + 10 11 0.11699879E-09 + 10 12 0.62572790E-09 + 10 13 0.26880684E-08 + 10 14 0.10810962E-07 + 10 15 0.39875159E-07 + 10 16 0.13958515E-06 + 10 17 0.46387671E-06 + 10 18 0.14504359E-05 + 11 1 0.32843793E-12 + 11 2 0.72525948E-12 + 11 3 0.16434228E-11 + 11 4 0.38096774E-11 + 11 5 0.89397165E-11 + 11 6 0.20658960E-10 + 11 7 0.45597987E-10 + 11 8 0.93521017E-10 + 11 9 0.17065290E-09 + 11 10 0.23399757E-09 + 11 11 0.19917293E-09 + 11 12 0.16562138E-08 + 11 13 0.90771527E-08 + 11 14 0.41044595E-07 + 11 15 0.16260697E-06 + 11 16 0.56668801E-06 + 11 17 0.18088210E-05 + 11 18 0.55950634E-05 + 12 1 0.27558429E-11 + 12 2 0.60183899E-11 + 12 3 0.13258653E-10 + 12 4 0.29353747E-10 + 12 5 0.65212944E-10 + 12 6 0.14503817E-09 + 12 7 0.32172093E-09 + 12 8 0.69547282E-09 + 12 9 0.14101906E-08 + 12 10 0.25029116E-08 + 12 11 0.33124275E-08 + 12 12 0.27468823E-08 + 12 13 0.22685007E-07 + 12 14 0.13104151E-06 + 12 15 0.57910979E-06 + 12 16 0.20264251E-05 + 12 17 0.65121483E-05 + 12 18 0.20062111E-04 + 13 1 0.19143914E-10 + 13 2 0.41240607E-10 + 13 3 0.89640576E-10 + 13 4 0.19628023E-09 + 13 5 0.43367264E-09 + 13 6 0.96842898E-09 + 13 7 0.21915777E-08 + 13 8 0.49544485E-08 + 13 9 0.10824158E-07 + 13 10 0.21504547E-07 + 13 11 0.36308611E-07 + 13 12 0.45370013E-07 + 13 13 0.35907281E-07 + 13 14 0.29855466E-06 + 13 15 0.17431367E-05 + 13 16 0.67646536E-05 + 13 17 0.22291850E-04 + 13 18 0.68841758E-04 + 14 1 0.12973549E-09 + 14 2 0.27649815E-09 + 14 3 0.59457863E-09 + 14 4 0.12892749E-08 + 14 5 0.28295210E-08 + 14 6 0.63232199E-08 + 14 7 0.14546711E-07 + 14 8 0.34277632E-07 + 14 9 0.80037765E-07 + 14 10 0.17297540E-06 + 14 11 0.32835676E-06 + 14 12 0.52416603E-06 + 14 13 0.59710932E-06 + 14 14 0.43853382E-06 + 14 15 0.36162939E-05 + 14 16 0.19705671E-04 + 14 17 0.70476286E-04 + 14 18 0.22173771E-03 + 15 1 0.86390409E-09 + 15 2 0.18222547E-08 + 15 3 0.38761940E-08 + 15 4 0.83154855E-08 + 15 5 0.18086478E-07 + 15 6 0.40279253E-07 + 15 7 0.93586940E-07 + 15 8 0.22779791E-06 + 15 9 0.56008402E-06 + 15 10 0.12760051E-05 + 15 11 0.26017115E-05 + 15 12 0.46328783E-05 + 15 13 0.69725470E-05 + 15 14 0.72325879E-05 + 15 15 0.48797947E-05 + 15 16 0.38130520E-04 + 15 17 0.19186469E-03 + 15 18 0.64967817E-03 + 16 1 0.56406079E-08 + 16 2 0.11783179E-07 + 16 3 0.24798791E-07 + 16 4 0.52598261E-07 + 16 5 0.11309883E-06 + 16 6 0.24944141E-06 + 16 7 0.57789802E-06 + 16 8 0.14249714E-05 + 16 9 0.36166050E-05 + 16 10 0.89334494E-05 + 16 11 0.18134016E-04 + 16 12 0.32422801E-04 + 16 13 0.54117229E-04 + 16 14 0.78822682E-04 + 16 15 0.76261041E-04 + 16 16 0.47503136E-04 + 16 17 0.32450405E-03 + 16 18 0.14001621E-02 + 17 1 0.36121384E-07 + 17 2 0.74791536E-07 + 17 3 0.15581760E-06 + 17 4 0.32667660E-06 + 17 5 0.69299712E-06 + 17 6 0.15038086E-05 + 17 7 0.34200290E-05 + 17 8 0.83198399E-05 + 17 9 0.21284020E-04 + 17 10 0.59376219E-04 + 17 11 0.11576454E-03 + 17 12 0.20838874E-03 + 17 13 0.35666960E-03 + 17 14 0.56381028E-03 + 17 15 0.76745877E-03 + 17 16 0.64900811E-03 + 17 17 0.39254443E-03 + 17 18 0.23001989E-02 + 18 1 0.22764986E-06 + 18 2 0.46764945E-06 + 18 3 0.96525506E-06 + 18 4 0.20012984E-05 + 18 5 0.41863926E-05 + 18 6 0.89099984E-05 + 18 7 0.19694260E-04 + 18 8 0.46228162E-04 + 18 9 0.11573256E-03 + 18 10 0.37131160E-03 + 18 11 0.71616812E-03 + 18 12 0.12839751E-02 + 18 13 0.22029363E-02 + 18 14 0.35478033E-02 + 18 15 0.51974254E-02 + 18 16 0.56006486E-02 + 18 17 0.46003977E-02 + 18 18 0.26656377E-02 + + diff --git a/etc/HUCM-SBM/constants.asc b/etc/HUCM-SBM/constants.asc new file mode 100755 index 0000000..4601066 --- /dev/null +++ b/etc/HUCM-SBM/constants.asc @@ -0,0 +1,50 @@ + 0.00000E+00 0.10958E-01 0.61258E-02 0.30701E-02 0.15228E-02 0.75685E-03 + 0.37712E-03 0.18821E-03 0.94016E-04 0.46986E-04 0.23487E-04 0.11742E-04 + 0.58707E-05 0.29353E-05 0.14676E-05 0.73380E-06 0.36690E-06 0.18345E-06 + 0.91724E-07 0.45862E-07 0.22931E-07 0.11466E-07 0.57328E-08 0.28664E-08 + 0.14332E-08 0.71659E-09 0.35830E-09 0.17915E-09 0.89574E-10 0.44787E-10 + 0.22394E-10 0.11197E-10 0.55984E-11 0.00000E+00 -0.89361E-01 -0.47576E-01 + -0.23400E-01 -0.11510E-01 -0.56981E-02 -0.28337E-02 -0.14129E-02 -0.70545E-03 + -0.35247E-03 -0.17617E-03 -0.88071E-04 -0.44032E-04 -0.22015E-04 -0.11007E-04 + -0.55035E-05 -0.27517E-05 -0.13759E-05 -0.68793E-06 -0.34397E-06 -0.17198E-06 + -0.85991E-07 -0.42996E-07 -0.21498E-07 -0.10749E-07 -0.53745E-08 -0.26872E-08 + -0.13436E-08 -0.67181E-09 -0.33590E-09 -0.16795E-09 -0.83976E-10 -0.41988E-10 + 0.00000E+00 0.48425E+00 0.21301E+00 0.98406E-01 0.47146E-01 0.23057E-01 + 0.11400E-01 0.56677E-02 0.28258E-02 0.14109E-02 0.70494E-03 0.35235E-03 + 0.17614E-03 0.88063E-04 0.44030E-04 0.22014E-04 0.11007E-04 0.55035E-05 + 0.27517E-05 0.13759E-05 0.68793E-06 0.34397E-06 0.17198E-06 0.85991E-07 + 0.42996E-07 0.21498E-07 0.10749E-07 0.53745E-08 0.26872E-08 0.13436E-08 + 0.67181E-09 0.33590E-09 0.16795E-09 0.00000E+00 0.68251E+00 0.89270E+00 + 0.95848E+00 0.98215E+00 0.99179E+00 0.99607E+00 0.99808E+00 0.99905E+00 + 0.99953E+00 0.99976E+00 0.99988E+00 0.99994E+00 0.99997E+00 0.99999E+00 + 0.99999E+00 0.10000E+01 0.10000E+01 0.10000E+01 0.10000E+01 0.10000E+01 + 0.10000E+01 0.10000E+01 0.10000E+01 0.10000E+01 0.10000E+01 0.10000E+01 + 0.10000E+01 0.10000E+01 0.10000E+01 0.10000E+01 0.10000E+01 0.10000E+01 + 0.00000E+00 -0.10009E+00 -0.72098E-01 -0.40821E-01 -0.21508E-01 -0.11016E-01 + -0.55724E-02 -0.28020E-02 -0.14050E-02 -0.70346E-03 -0.35198E-03 -0.17605E-03 + -0.88040E-04 -0.44024E-04 -0.22013E-04 -0.11007E-04 -0.55034E-05 -0.27517E-05 + -0.13759E-05 -0.68793E-06 -0.34397E-06 -0.17198E-06 -0.85991E-07 -0.42996E-07 + -0.21498E-07 -0.10749E-07 -0.53745E-08 -0.26872E-08 -0.13436E-08 -0.67181E-09 + -0.33590E-09 -0.16795E-09 -0.83976E-10 0.00000E+00 0.11729E-01 0.78432E-02 + 0.42637E-02 0.21989E-02 0.11140E-02 0.56037E-03 0.28099E-03 0.14069E-03 + 0.70396E-04 0.35210E-04 0.17608E-04 0.88048E-05 0.44026E-05 0.22013E-05 + 0.11007E-05 0.55034E-06 0.27517E-06 0.13759E-06 0.68793E-07 0.34397E-07 + 0.17198E-07 0.85991E-08 0.42996E-08 0.21498E-08 0.10749E-08 0.53745E-09 + 0.26872E-09 0.13436E-09 0.67181E-10 0.33590E-10 0.16795E-10 0.83976E-11 + 0.00000E+00 0.58496E+00 0.80735E+00 0.90689E+00 0.95420E+00 0.97728E+00 + 0.98868E+00 0.99435E+00 0.99718E+00 0.99859E+00 0.99930E+00 0.99965E+00 + 0.99982E+00 0.99991E+00 0.99996E+00 0.99998E+00 0.99999E+00 0.99999E+00 + 0.10000E+01 0.10000E+01 0.10000E+01 0.10000E+01 0.10000E+01 0.10000E+01 + 0.10000E+01 0.10000E+01 0.10000E+01 0.10000E+01 0.10000E+01 0.10000E+01 + 0.10000E+01 0.10000E+01 0.10000E+01 0.00000E+00 0.41504E+00 0.19265E+00 + 0.93109E-01 0.45804E-01 0.22720E-01 0.11315E-01 0.56466E-02 0.28205E-02 + 0.14096E-02 0.70461E-03 0.35226E-03 0.17612E-03 0.88058E-04 0.44028E-04 + 0.22014E-04 0.11007E-04 0.55035E-05 0.27517E-05 0.13759E-05 0.68793E-06 + 0.34397E-06 0.17198E-06 0.85991E-07 0.42996E-07 0.21498E-07 0.10749E-07 + 0.53745E-08 0.26872E-08 0.13436E-08 0.67181E-09 0.33590E-09 0.16795E-09 + 0.20000E+01 0.40000E+01 0.20000E+01 0.40000E+01 0.20000E+01 0.40000E+01 + 0.20000E+01 0.40000E+01 0.20000E+01 0.40000E+01 0.20000E+01 0.40000E+01 + 0.20000E+01 0.40000E+01 0.20000E+01 0.40000E+01 0.20000E+01 0.40000E+01 + 0.20000E+01 0.40000E+01 0.20000E+01 0.40000E+01 0.20000E+01 0.40000E+01 + 0.20000E+01 0.40000E+01 0.20000E+01 0.40000E+01 0.20000E+01 0.40000E+01 + 0.20000E+01 0.40000E+01 0.20000E+01 0.93303E+00 -0.95910E-01 0.16288E+00 diff --git a/etc/HUCM-SBM/ice_nuclei.asc b/etc/HUCM-SBM/ice_nuclei.asc new file mode 100755 index 0000000..ddcc2bf --- /dev/null +++ b/etc/HUCM-SBM/ice_nuclei.asc @@ -0,0 +1,7 @@ +7887.2052 3400.9719 1814.4369 1098.6678 723.58531 +505.96442 370.02053 280.19741 218.17244 173.79150 +141.09061 116.39617 97.353848 82.403163 70.479573 +60.838431 52.947298 46.418018 40.962690 36.364446 +32.457632 29.114107 26.233601 23.736827 21.560481 +19.653567 17.974672 16.489902 15.171325 13.995768 +12.943887 11.999444 11.148730 diff --git a/etc/HUCM-SBM/input_sounding b/etc/HUCM-SBM/input_sounding new file mode 100755 index 0000000..7551b0d --- /dev/null +++ b/etc/HUCM-SBM/input_sounding @@ -0,0 +1,81 @@ + 1000.0 300.5000 14.00000 + 125.0000 300.5000 14.00000 -11.40000 0.0000000E+00 + 375.0000 300.5650 14.00000 -10.20000 0.0000000E+00 + 625.0000 301.0699 14.00000 -9.000000 0.0000000E+00 + 875.0000 301.6293 14.00000 -7.800000 0.0000000E+00 + 1125.000 302.2307 14.00000 -6.600000 0.0000000E+00 + 1375.000 302.8666 13.11911 -5.400000 0.0000000E+00 + 1625.000 303.5323 11.87561 -4.200000 0.0000000E+00 + 1875.000 304.2242 10.74200 -3.000000 0.0000000E+00 + 2125.000 304.9395 9.707900 -1.800000 0.0000000E+00 + 2375.000 305.6764 8.764307 -0.6000004 0.0000000E+00 + 2625.000 306.4329 7.903318 0.0000000E+00 0.0000000E+00 + 2875.000 307.2076 7.117891 0.0000000E+00 0.0000000E+00 + 3125.000 307.9994 6.401778 0.0000000E+00 0.0000000E+00 + 3375.000 308.8071 5.749294 0.0000000E+00 0.0000000E+00 + 3625.000 309.6300 5.155267 0.0000000E+00 0.0000000E+00 + 3875.000 310.4672 4.614990 0.0000000E+00 0.0000000E+00 + 4125.000 311.3181 4.124146 0.0000000E+00 0.0000000E+00 + 4375.000 312.1819 3.678759 0.0000000E+00 0.0000000E+00 + 4625.000 313.0581 3.275154 0.0000000E+00 0.0000000E+00 + 4875.000 313.9464 2.909960 0.0000000E+00 0.0000000E+00 + 5125.000 314.8460 2.580028 0.0000000E+00 0.0000000E+00 + 5375.000 315.7567 2.282451 0.0000000E+00 0.0000000E+00 + 5625.000 316.6780 2.014546 0.0000000E+00 0.0000000E+00 + 5875.000 317.6097 1.773806 0.0000000E+00 0.0000000E+00 + 6125.000 318.5513 1.557917 0.0000000E+00 0.0000000E+00 + 6375.000 319.5026 1.364712 0.0000000E+00 0.0000000E+00 + 6625.000 320.4632 1.192196 0.0000000E+00 0.0000000E+00 + 6875.000 321.4330 1.038515 0.0000000E+00 0.0000000E+00 + 7125.000 322.4116 0.9019489 0.0000000E+00 0.0000000E+00 + 7375.000 323.3988 0.7808990 0.0000000E+00 0.0000000E+00 + 7625.000 324.3945 0.6738972 0.0000000E+00 0.0000000E+00 + 7875.000 325.3983 0.5795774 0.0000000E+00 0.0000000E+00 + 8125.000 326.4102 0.4966844 0.0000000E+00 0.0000000E+00 + 8375.000 327.4298 0.4240607 0.0000000E+00 0.0000000E+00 + 8625.000 328.4571 0.3606393 0.0000000E+00 0.0000000E+00 + 8875.000 329.4919 0.3054438 0.0000000E+00 0.0000000E+00 + 9125.000 330.5339 0.2575793 0.0000000E+00 0.0000000E+00 + 9375.000 331.5832 0.2162281 0.0000000E+00 0.0000000E+00 + 9625.000 332.6394 0.1806441 0.0000000E+00 0.0000000E+00 + 9875.000 333.7025 0.1501510 0.0000000E+00 0.0000000E+00 + 10125.00 334.7725 0.1241341 0.0000000E+00 0.0000000E+00 + 10375.00 335.8490 0.1020380 0.0000000E+00 0.0000000E+00 + 10625.00 336.9320 8.3363235E-02 0.0000000E+00 0.0000000E+00 + 10875.00 338.0214 6.7661338E-02 0.0000000E+00 0.0000000E+00 + 11125.00 339.1171 5.4530919E-02 0.0000000E+00 0.0000000E+00 + 11375.00 340.2190 4.3614354E-02 0.0000000E+00 0.0000000E+00 + 11625.00 341.3269 3.4594502E-02 0.0000000E+00 0.0000000E+00 + 11875.00 342.4408 2.7190926E-02 0.0000000E+00 0.0000000E+00 + 12125.00 344.9724 2.4574272E-02 0.0000000E+00 0.0000000E+00 + 12375.00 348.9513 2.5715416E-02 0.0000000E+00 0.0000000E+00 + 12625.00 352.9761 2.6911106E-02 0.0000000E+00 0.0000000E+00 + 12875.00 357.0473 2.8164061E-02 0.0000000E+00 0.0000000E+00 + 13125.00 361.1655 2.9477064E-02 0.0000000E+00 0.0000000E+00 + 13375.00 365.3311 3.0853137E-02 0.0000000E+00 0.0000000E+00 + 13625.00 369.5448 3.2295462E-02 0.0000000E+00 0.0000000E+00 + 13875.00 373.8072 3.3807345E-02 0.0000000E+00 0.0000000E+00 + 14125.00 378.1187 3.5392068E-02 0.0000000E+00 0.0000000E+00 + 14375.00 382.4798 3.7053265E-02 0.0000000E+00 0.0000000E+00 + 14625.00 386.8913 3.8795106E-02 0.0000000E+00 0.0000000E+00 + 14875.00 391.3537 4.0621303E-02 0.0000000E+00 0.0000000E+00 + 15125.00 395.8676 4.2536203E-02 0.0000000E+00 0.0000000E+00 + 15375.00 400.4335 4.4544484E-02 0.0000000E+00 0.0000000E+00 + 15625.00 405.0521 4.6650380E-02 0.0000000E+00 0.0000000E+00 + 15875.00 409.7239 4.8859127E-02 0.0000000E+00 0.0000000E+00 + 16125.00 414.4497 5.1176008E-02 0.0000000E+00 0.0000000E+00 + 16375.00 419.2299 5.3606406E-02 0.0000000E+00 0.0000000E+00 + 16625.00 424.0653 5.6155890E-02 0.0000000E+00 0.0000000E+00 + 16875.00 428.9565 5.8831204E-02 0.0000000E+00 0.0000000E+00 + 17125.00 433.9040 6.1637800E-02 0.0000000E+00 0.0000000E+00 + 17375.00 438.9086 6.4582929E-02 0.0000000E+00 0.0000000E+00 + 17625.00 443.9710 6.7673884E-02 0.0000000E+00 0.0000000E+00 + 17875.00 449.0917 7.0917897E-02 0.0000000E+00 0.0000000E+00 + 18125.00 454.2715 7.4322589E-02 0.0000000E+00 0.0000000E+00 + 18375.00 459.5110 7.7896632E-02 0.0000000E+00 0.0000000E+00 + 18625.00 464.8110 8.1648715E-02 0.0000000E+00 0.0000000E+00 + 18875.00 470.1721 8.5588045E-02 0.0000000E+00 0.0000000E+00 + 19125.00 475.5951 8.9724302E-02 0.0000000E+00 0.0000000E+00 + 19375.00 481.0806 9.4000000E-02 0.0000000E+00 0.0000000E+00 + 19625.00 486.6293 9.4000000E-02 0.0000000E+00 0.0000000E+00 + 19875.00 492.2421 9.4000000E-02 0.0000000E+00 0.0000000E+00 diff --git a/etc/HUCM-SBM/kernels.asc_s_0_03_0_9 b/etc/HUCM-SBM/kernels.asc_s_0_03_0_9 new file mode 100755 index 0000000..d16182b --- /dev/null +++ b/etc/HUCM-SBM/kernels.asc_s_0_03_0_9 @@ -0,0 +1,8894 @@ + 0.00000E+00 0.66489E-09 0.21789E-08 0.63335E-08 0.10878E-07 0.27467E-07 + 0.38453E-07 0.73059E-07 0.14073E-06 0.31228E-06 0.65713E-06 0.13649E-05 + 0.39767E-05 0.12167E-04 0.17230E-03 0.34953E-03 0.16992E-02 0.48043E-02 + 0.10185E-01 0.19822E-01 0.36538E-01 0.63894E-01 0.10422E+00 0.16661E+00 + 0.26099E+00 0.38566E+00 0.57873E+00 0.84795E+00 0.12212E+01 0.16952E+01 + 0.23149E+01 0.30206E+01 0.38660E+01 0.66489E-09 0.00000E+00 0.15832E-08 + 0.55340E-08 0.16660E-07 0.27363E-07 0.68572E-07 0.95384E-07 0.19112E-06 + 0.40896E-06 0.91070E-06 0.17787E-05 0.62141E-05 0.29027E-04 0.22054E-03 + 0.44567E-03 0.21638E-02 0.61051E-02 0.12918E-01 0.25101E-01 0.46203E-01 + 0.80697E-01 0.13149E+00 0.20998E+00 0.32857E+00 0.48500E+00 0.72695E+00 + 0.10637E+01 0.15296E+01 0.21193E+01 0.28878E+01 0.37581E+01 0.47946E+01 + 0.21789E-08 0.15832E-08 0.00000E+00 0.41886E-08 0.14903E-07 0.42178E-07 + 0.68529E-07 0.14501E-06 0.26237E-06 0.50292E-06 0.12072E-05 0.19415E-05 + 0.91973E-05 0.51881E-04 0.40880E-03 0.57061E-03 0.27642E-02 0.77781E-02 + 0.16419E-01 0.31842E-01 0.58515E-01 0.10206E+00 0.16609E+00 0.26492E+00 + 0.41411E+00 0.61061E+00 0.91421E+00 0.13361E+01 0.19187E+01 0.26545E+01 + 0.36103E+01 0.46879E+01 0.59654E+01 0.63335E-08 0.55340E-08 0.41886E-08 + 0.00000E+00 0.11398E-07 0.37353E-07 0.10495E-06 0.17031E-06 0.37935E-06 + 0.72035E-06 0.13859E-05 0.27469E-05 0.20686E-04 0.82351E-04 0.66261E-03 + 0.10962E-02 0.35438E-02 0.99385E-02 0.20919E-01 0.40471E-01 0.74226E-01 + 0.12924E+00 0.21004E+00 0.33460E+00 0.52245E+00 0.76950E+00 0.11509E+01 + 0.16802E+01 0.24101E+01 0.33298E+01 0.45218E+01 0.58607E+01 0.74412E+01 + 0.10878E-07 0.16660E-07 0.14903E-07 0.11398E-07 0.00000E+00 0.27141E-07 + 0.90917E-07 0.21131E-06 0.53164E-06 0.10480E-05 0.20787E-05 0.65436E-05 + 0.38420E-04 0.19989E-03 0.10004E-02 0.18046E-02 0.46888E-02 0.12741E-01 + 0.26725E-01 0.51555E-01 0.94333E-01 0.16393E+00 0.26598E+00 0.42311E+00 + 0.65980E+00 0.97076E+00 0.14503E+01 0.21151E+01 0.30306E+01 0.41822E+01 + 0.56717E+01 0.73399E+01 0.93022E+01 0.27467E-07 0.27363E-07 0.42178E-07 + 0.37353E-07 0.27141E-07 0.00000E+00 0.67018E-07 0.22501E-06 0.56514E-06 + 0.16576E-05 0.35007E-05 0.13825E-04 0.70708E-04 0.36433E-03 0.13159E-02 + 0.27475E-02 0.62013E-02 0.14971E-01 0.34258E-01 0.65856E-01 0.12016E+00 + 0.20832E+00 0.33733E+00 0.53573E+00 0.83424E+00 0.12259E+01 0.18295E+01 + 0.26652E+01 0.38149E+01 0.52587E+01 0.71233E+01 0.92060E+01 0.11649E+02 + 0.38453E-07 0.68572E-07 0.68529E-07 0.10495E-06 0.90917E-07 0.67018E-07 + 0.00000E+00 0.16411E-06 0.75818E-06 0.17433E-05 0.56234E-05 0.21703E-04 + 0.10490E-03 0.59462E-03 0.16949E-02 0.34635E-02 0.82055E-02 0.17832E-01 + 0.38219E-01 0.84390E-01 0.15346E+00 0.26531E+00 0.42859E+00 0.67933E+00 + 0.10562E+01 0.15497E+01 0.23100E+01 0.33617E+01 0.48067E+01 0.66188E+01 + 0.89559E+01 0.11561E+02 0.14609E+02 0.73059E-07 0.95384E-07 0.14501E-06 + 0.17031E-06 0.21131E-06 0.22501E-06 0.16411E-06 0.00000E+00 0.48764E-06 + 0.24923E-05 0.75973E-05 0.51776E-04 0.17246E-03 0.78799E-03 0.20279E-02 + 0.43269E-02 0.95945E-02 0.21601E-01 0.43137E-01 0.90797E-01 0.19657E+00 + 0.33873E+00 0.54565E+00 0.86289E+00 0.13390E+01 0.19615E+01 0.29197E+01 + 0.42437E+01 0.60614E+01 0.83381E+01 0.11270E+02 0.14533E+02 0.18342E+02 + 0.14073E-06 0.19112E-06 0.26237E-06 0.37935E-06 0.53164E-06 0.56514E-06 + 0.75818E-06 0.48764E-06 0.00000E+00 0.14162E-05 0.86023E-05 0.66377E-04 + 0.26785E-03 0.93659E-03 0.23955E-02 0.51532E-02 0.11209E-01 0.24193E-01 + 0.49544E-01 0.98305E-01 0.20724E+00 0.43364E+00 0.69624E+00 0.10981E+01 + 0.17002E+01 0.24858E+01 0.36945E+01 0.53626E+01 0.76501E+01 0.10512E+02 + 0.14194E+02 0.18284E+02 0.23052E+02 0.31228E-06 0.40896E-06 0.50292E-06 + 0.72035E-06 0.10480E-05 0.16576E-05 0.17433E-05 0.24923E-05 0.14162E-05 + 0.00000E+00 0.47584E-05 0.74244E-04 0.34744E-03 0.10890E-02 0.27144E-02 + 0.58517E-02 0.12603E-01 0.27108E-01 0.53709E-01 0.10794E+00 0.21892E+00 + 0.45231E+00 0.89052E+00 0.14003E+01 0.21624E+01 0.31545E+01 0.46799E+01 + 0.67824E+01 0.96628E+01 0.13262E+02 0.17889E+02 0.23017E+02 0.28989E+02 + 0.65713E-06 0.91070E-06 0.12072E-05 0.13859E-05 0.20787E-05 0.35007E-05 + 0.56234E-05 0.75973E-05 0.86023E-05 0.47584E-05 0.00000E+00 0.45653E-04 + 0.32961E-03 0.11259E-02 0.29522E-02 0.63623E-02 0.13631E-01 0.29268E-01 + 0.58207E-01 0.11371E+00 0.23347E+00 0.47120E+00 0.92039E+00 0.17887E+01 + 0.27544E+01 0.40078E+01 0.59336E+01 0.85844E+01 0.12213E+02 0.16739E+02 + 0.22552E+02 0.28986E+02 0.36464E+02 0.13649E-05 0.17787E-05 0.19415E-05 + 0.27469E-05 0.65436E-05 0.13825E-04 0.21703E-04 0.51776E-04 0.66377E-04 + 0.74244E-04 0.45653E-04 0.00000E+00 0.20419E-03 0.10130E-02 0.30559E-02 + 0.68010E-02 0.14602E-01 0.30661E-01 0.61499E-01 0.11992E+00 0.24323E+00 + 0.49468E+00 0.94845E+00 0.18469E+01 0.35152E+01 0.50994E+01 0.75318E+01 + 0.10875E+02 0.15445E+02 0.21138E+02 0.28442E+02 0.36510E+02 0.45876E+02 + 0.39767E-05 0.62141E-05 0.91973E-05 0.20686E-04 0.38420E-04 0.70708E-04 + 0.10490E-03 0.17246E-03 0.26785E-03 0.34744E-03 0.32961E-03 0.20419E-03 + 0.00000E+00 0.76276E-03 0.28922E-02 0.69707E-02 0.15695E-01 0.32499E-01 + 0.65284E-01 0.12492E+00 0.25466E+00 0.51170E+00 0.98282E+00 0.19013E+01 + 0.36261E+01 0.65005E+01 0.95749E+01 0.13793E+02 0.19550E+02 0.26709E+02 + 0.35884E+02 0.45997E+02 0.57723E+02 0.12167E-04 0.29027E-04 0.51881E-04 + 0.82351E-04 0.19989E-03 0.36433E-03 0.59462E-03 0.78799E-03 0.93659E-03 + 0.10890E-02 0.11259E-02 0.10130E-02 0.76276E-03 0.00000E+00 0.20971E-02 + 0.63314E-02 0.15567E-01 0.34163E-01 0.67476E-01 0.13150E+00 0.26622E+00 + 0.52840E+00 0.10051E+01 0.19611E+01 0.37183E+01 0.66793E+01 0.12167E+02 + 0.17483E+02 0.24728E+02 0.33719E+02 0.45228E+02 0.57879E+02 0.72524E+02 + 0.17230E-03 0.22054E-03 0.40880E-03 0.66261E-03 0.10004E-02 0.13159E-02 + 0.16949E-02 0.20279E-02 0.23955E-02 0.27144E-02 0.29522E-02 0.30559E-02 + 0.28922E-02 0.20971E-02 0.00000E+00 0.44037E-02 0.13654E-01 0.32829E-01 + 0.68293E-01 0.13281E+00 0.27157E+00 0.54394E+00 0.10246E+01 0.19961E+01 + 0.38193E+01 0.68186E+01 0.12458E+02 0.22143E+02 0.31250E+02 0.42520E+02 + 0.56927E+02 0.72709E+02 0.90942E+02 0.34953E-03 0.44567E-03 0.57061E-03 + 0.10962E-02 0.18046E-02 0.27475E-02 0.34635E-02 0.43269E-02 0.51532E-02 + 0.58517E-02 0.63623E-02 0.68010E-02 0.69707E-02 0.63314E-02 0.44037E-02 + 0.00000E+00 0.98339E-02 0.29288E-01 0.66013E-01 0.13232E+00 0.27586E+00 + 0.55654E+00 0.10468E+01 0.20366E+01 0.38878E+01 0.69942E+01 0.12707E+02 + 0.22647E+02 0.39531E+02 0.53647E+02 0.71662E+02 0.91317E+02 0.11397E+03 + 0.16992E-02 0.21638E-02 0.27642E-02 0.35438E-02 0.46888E-02 0.62013E-02 + 0.82055E-02 0.95945E-02 0.11209E-01 0.12603E-01 0.13631E-01 0.14602E-01 + 0.15695E-01 0.15567E-01 0.13654E-01 0.98339E-02 0.00000E+00 0.19821E-01 + 0.57435E-01 0.12501E+00 0.27332E+00 0.56250E+00 0.10622E+01 0.20714E+01 + 0.39501E+01 0.70815E+01 0.12982E+02 0.23010E+02 0.40280E+02 0.67590E+02 + 0.90053E+02 0.11443E+03 0.14244E+03 0.48043E-02 0.61051E-02 0.77781E-02 + 0.99385E-02 0.12741E-01 0.14971E-01 0.17832E-01 0.21601E-01 0.24193E-01 + 0.27108E-01 0.29268E-01 0.30661E-01 0.32499E-01 0.34163E-01 0.32829E-01 + 0.29288E-01 0.19821E-01 0.00000E+00 0.38088E-01 0.10636E+00 0.25972E+00 + 0.55839E+00 0.10681E+01 0.20995E+01 0.40096E+01 0.71636E+01 0.13106E+02 + 0.23433E+02 0.40793E+02 0.68609E+02 0.11302E+03 0.14312E+03 0.17757E+03 + 0.10185E-01 0.12918E-01 0.16419E-01 0.20919E-01 0.26725E-01 0.34258E-01 + 0.38219E-01 0.43137E-01 0.49544E-01 0.53709E-01 0.58207E-01 0.61499E-01 + 0.65284E-01 0.67476E-01 0.68293E-01 0.66013E-01 0.57435E-01 0.38088E-01 + 0.00000E+00 0.68349E-01 0.22743E+00 0.53737E+00 0.10586E+01 0.21171E+01 + 0.40663E+01 0.72475E+01 0.13234E+02 0.23598E+02 0.41431E+02 0.69235E+02 + 0.11429E+03 0.17874E+03 0.22089E+03 0.19822E-01 0.25101E-01 0.31842E-01 + 0.40471E-01 0.51555E-01 0.65856E-01 0.84390E-01 0.90797E-01 0.98305E-01 + 0.10794E+00 0.11371E+00 0.11992E+00 0.12492E+00 0.13150E+00 0.13281E+00 + 0.13232E+00 0.12501E+00 0.10636E+00 0.68349E-01 0.00000E+00 0.16692E+00 + 0.49230E+00 0.10295E+01 0.21258E+01 0.41298E+01 0.73536E+01 0.13412E+02 + 0.23833E+02 0.41697E+02 0.70175E+02 0.11505E+03 0.18004E+03 0.27458E+03 + 0.36538E-01 0.46203E-01 0.58515E-01 0.74226E-01 0.94333E-01 0.12016E+00 + 0.15346E+00 0.19657E+00 0.20724E+00 0.21892E+00 0.23347E+00 0.24323E+00 + 0.25466E+00 0.26622E+00 0.27157E+00 0.27586E+00 0.27332E+00 0.25972E+00 + 0.22743E+00 0.16692E+00 0.00000E+00 0.33121E+00 0.86831E+00 0.19844E+01 + 0.40173E+01 0.72338E+01 0.13294E+02 0.23656E+02 0.41338E+02 0.69338E+02 + 0.11458E+03 0.17782E+03 0.27114E+03 0.63894E-01 0.80697E-01 0.10206E+00 + 0.12924E+00 0.16393E+00 0.20832E+00 0.26531E+00 0.33873E+00 0.43364E+00 + 0.45231E+00 0.47120E+00 0.49468E+00 0.51170E+00 0.52840E+00 0.54394E+00 + 0.55654E+00 0.56250E+00 0.55839E+00 0.53737E+00 0.49230E+00 0.33121E+00 + 0.00000E+00 0.52576E+00 0.16540E+01 0.37060E+01 0.68872E+01 0.12918E+02 + 0.23162E+02 0.40558E+02 0.67840E+02 0.11174E+03 0.17430E+03 0.26321E+03 + 0.10422E+00 0.13149E+00 0.16609E+00 0.21004E+00 0.26598E+00 0.33733E+00 + 0.42859E+00 0.54565E+00 0.69624E+00 0.89052E+00 0.92039E+00 0.94845E+00 + 0.98282E+00 0.10051E+01 0.10246E+01 0.10468E+01 0.10622E+01 0.10681E+01 + 0.10586E+01 0.10295E+01 0.86831E+00 0.52576E+00 0.00000E+00 0.11684E+01 + 0.32820E+01 0.64712E+01 0.12552E+02 0.22785E+02 0.40038E+02 0.66763E+02 + 0.10946E+03 0.16942E+03 0.25664E+03 0.16661E+00 0.20998E+00 0.26492E+00 + 0.33460E+00 0.42311E+00 0.53573E+00 0.67933E+00 0.86289E+00 0.10981E+01 + 0.14003E+01 0.17887E+01 0.18469E+01 0.19013E+01 0.19611E+01 0.19961E+01 + 0.20366E+01 0.20714E+01 0.20995E+01 0.21171E+01 0.21258E+01 0.19844E+01 + 0.16540E+01 0.11684E+01 0.00000E+00 0.21197E+01 0.52098E+01 0.11206E+02 + 0.21211E+02 0.37979E+02 0.63553E+02 0.10409E+03 0.15973E+03 0.23953E+03 + 0.26099E+00 0.32857E+00 0.41411E+00 0.52245E+00 0.65980E+00 0.83424E+00 + 0.10562E+01 0.13390E+01 0.17002E+01 0.21624E+01 0.27544E+01 0.35152E+01 + 0.36261E+01 0.37183E+01 0.38193E+01 0.38878E+01 0.39501E+01 0.40096E+01 + 0.40663E+01 0.41298E+01 0.40173E+01 0.37060E+01 0.32820E+01 0.21197E+01 + 0.00000E+00 0.29443E+01 0.88214E+01 0.18530E+02 0.34692E+02 0.58850E+02 + 0.96767E+02 0.14720E+03 0.21798E+03 0.38566E+00 0.48500E+00 0.61061E+00 + 0.76950E+00 0.97076E+00 0.12259E+01 0.15497E+01 0.19615E+01 0.24858E+01 + 0.31545E+01 0.40078E+01 0.50994E+01 0.65005E+01 0.66793E+01 0.68186E+01 + 0.69942E+01 0.70815E+01 0.71636E+01 0.72475E+01 0.73536E+01 0.72338E+01 + 0.68872E+01 0.64712E+01 0.52098E+01 0.29443E+01 0.00000E+00 0.60091E+01 + 0.15753E+02 0.31769E+02 0.55068E+02 0.91140E+02 0.13727E+03 0.20029E+03 + 0.57873E+00 0.72695E+00 0.91421E+00 0.11509E+01 0.14503E+01 0.18295E+01 + 0.23100E+01 0.29197E+01 0.36945E+01 0.46799E+01 0.59336E+01 0.75318E+01 + 0.95749E+01 0.12167E+02 0.12458E+02 0.12707E+02 0.12982E+02 0.13106E+02 + 0.13234E+02 0.13412E+02 0.13294E+02 0.12918E+02 0.12552E+02 0.11206E+02 + 0.88214E+01 0.60091E+01 0.00000E+00 0.95388E+01 0.25008E+02 0.46692E+02 + 0.79702E+02 0.11936E+03 0.17121E+03 0.84795E+00 0.10637E+01 0.13361E+01 + 0.16802E+01 0.21151E+01 0.26652E+01 0.33617E+01 0.42437E+01 0.53626E+01 + 0.67824E+01 0.85844E+01 0.10875E+02 0.13793E+02 0.17483E+02 0.22143E+02 + 0.22647E+02 0.23010E+02 0.23433E+02 0.23598E+02 0.23833E+02 0.23656E+02 + 0.23162E+02 0.22785E+02 0.21211E+02 0.18530E+02 0.15753E+02 0.95388E+01 + 0.00000E+00 0.15142E+02 0.35286E+02 0.65225E+02 0.97950E+02 0.13779E+03 + 0.12212E+01 0.15296E+01 0.19187E+01 0.24101E+01 0.30306E+01 0.38149E+01 + 0.48067E+01 0.60614E+01 0.76501E+01 0.96628E+01 0.12213E+02 0.15445E+02 + 0.19550E+02 0.24728E+02 0.31250E+02 0.39531E+02 0.40280E+02 0.40793E+02 + 0.41431E+02 0.41697E+02 0.41338E+02 0.40558E+02 0.40038E+02 0.37979E+02 + 0.34692E+02 0.31769E+02 0.25008E+02 0.15142E+02 0.00000E+00 0.18695E+02 + 0.45511E+02 0.70595E+02 0.97181E+02 0.16952E+01 0.21193E+01 0.26545E+01 + 0.33298E+01 0.41822E+01 0.52587E+01 0.66188E+01 0.83381E+01 0.10512E+02 + 0.13262E+02 0.16739E+02 0.21138E+02 0.26709E+02 0.33719E+02 0.42520E+02 + 0.53647E+02 0.67590E+02 0.68609E+02 0.69235E+02 0.70175E+02 0.69338E+02 + 0.67840E+02 0.66763E+02 0.63553E+02 0.58850E+02 0.55068E+02 0.46692E+02 + 0.35286E+02 0.18695E+02 0.00000E+00 0.25437E+02 0.44457E+02 0.59766E+02 + 0.23149E+01 0.28878E+01 0.36103E+01 0.45218E+01 0.56717E+01 0.71233E+01 + 0.89559E+01 0.11270E+02 0.14194E+02 0.17889E+02 0.22552E+02 0.28442E+02 + 0.35884E+02 0.45228E+02 0.56927E+02 0.71662E+02 0.90053E+02 0.11302E+03 + 0.11429E+03 0.11505E+03 0.11458E+03 0.11174E+03 0.10946E+03 0.10409E+03 + 0.96767E+02 0.91140E+02 0.79702E+02 0.65225E+02 0.45511E+02 0.25437E+02 + 0.00000E+00 0.13459E+02 0.17643E+02 0.30206E+01 0.37581E+01 0.46879E+01 + 0.58607E+01 0.73399E+01 0.92060E+01 0.11561E+02 0.14533E+02 0.18284E+02 + 0.23017E+02 0.28986E+02 0.36510E+02 0.45997E+02 0.57879E+02 0.72709E+02 + 0.91317E+02 0.11443E+03 0.14312E+03 0.17874E+03 0.18004E+03 0.17782E+03 + 0.17430E+03 0.16942E+03 0.15973E+03 0.14720E+03 0.13727E+03 0.11936E+03 + 0.97950E+02 0.70595E+02 0.44457E+02 0.13459E+02 0.00000E+00 0.00000E+00 + 0.38660E+01 0.47946E+01 0.59654E+01 0.74412E+01 0.93022E+01 0.11649E+02 + 0.14609E+02 0.18342E+02 0.23052E+02 0.28989E+02 0.36464E+02 0.45876E+02 + 0.57723E+02 0.72524E+02 0.90942E+02 0.11397E+03 0.14244E+03 0.17757E+03 + 0.22089E+03 0.27458E+03 0.27114E+03 0.26321E+03 0.25664E+03 0.23953E+03 + 0.21798E+03 0.20029E+03 0.17121E+03 0.13779E+03 0.97181E+02 0.59766E+02 + 0.17643E+02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.12617E-04 0.18801E-03 + 0.51939E-03 0.12110E-02 0.34218E-02 0.76457E-02 0.16706E-01 0.38413E-01 + 0.79575E-01 0.15958E+00 0.35277E+00 0.87409E+00 0.20420E+01 0.49167E+01 + 0.13118E+02 0.23637E+02 0.40984E+02 0.69768E+02 0.11320E+03 0.17961E+03 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.65068E-08 0.68242E-04 0.24152E-03 0.63715E-03 0.16960E-02 0.49512E-02 + 0.10801E-01 0.22775E-01 0.49574E-01 0.10671E+00 0.21048E+00 0.44118E+00 + 0.10478E+01 0.23639E+01 0.60431E+01 0.14284E+02 0.26781E+02 0.47858E+02 + 0.81455E+02 0.13214E+03 0.20964E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.32155E-04 0.11058E-03 0.37459E-03 + 0.87279E-03 0.22070E-02 0.65449E-02 0.14064E-01 0.29480E-01 0.65196E-01 + 0.13935E+00 0.28156E+00 0.58095E+00 0.12536E+01 0.28322E+01 0.72525E+01 + 0.15459E+02 0.29940E+02 0.54755E+02 0.93171E+02 0.15112E+03 0.23972E+03 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.34278E-04 0.11655E-03 0.41726E-03 0.96101E-03 0.25163E-02 0.82522E-02 + 0.17805E-01 0.37315E-01 0.81413E-01 0.17251E+00 0.34576E+00 0.71091E+00 + 0.15765E+01 0.33705E+01 0.84769E+01 0.17647E+02 0.32812E+02 0.58273E+02 + 0.99127E+02 0.16074E+03 0.25493E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.57942E-04 0.18383E-03 0.66857E-03 + 0.15885E-02 0.41098E-02 0.12697E-01 0.27109E-01 0.56106E-01 0.12042E+00 + 0.25703E+00 0.51912E+00 0.10696E+01 0.22903E+01 0.47701E+01 0.97080E+01 + 0.19842E+02 0.35691E+02 0.61799E+02 0.10509E+03 0.17036E+03 0.27011E+03 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.63398E-04 0.21118E-03 0.81864E-03 0.19665E-02 0.52666E-02 0.14618E-01 + 0.30874E-01 0.63466E-01 0.13651E+00 0.29220E+00 0.58608E+00 0.11994E+01 + 0.24799E+01 0.49247E+01 0.10163E+02 0.19913E+02 0.35793E+02 0.61938E+02 + 0.10527E+03 0.17060E+03 0.27041E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.71661E-04 0.24674E-03 0.93539E-03 + 0.22934E-02 0.60748E-02 0.16211E-01 0.33932E-01 0.69340E-01 0.14928E+00 + 0.31880E+00 0.63595E+00 0.12952E+01 0.26340E+01 0.51124E+01 0.10565E+02 + 0.19991E+02 0.35902E+02 0.62084E+02 0.10546E+03 0.17082E+03 0.27067E+03 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.86802E-04 0.30105E-03 0.10390E-02 0.26177E-02 0.66252E-02 0.17689E-01 + 0.36666E-01 0.74433E-01 0.16015E+00 0.33969E+00 0.67398E+00 0.13669E+01 + 0.27679E+01 0.53503E+01 0.10953E+02 0.20094E+02 0.36048E+02 0.62280E+02 + 0.10572E+03 0.17114E+03 0.27105E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.81615E-06 0.16561E-05 + 0.00000E+00 0.00000E+00 0.00000E+00 0.11133E-03 0.36768E-03 0.12452E-02 + 0.30219E-02 0.75168E-02 0.20031E-01 0.40857E-01 0.81854E-01 0.17423E+00 + 0.36636E+00 0.72690E+00 0.14643E+01 0.29314E+01 0.56937E+01 0.11125E+02 + 0.20265E+02 0.36295E+02 0.62628E+02 0.10620E+03 0.17179E+03 0.27191E+03 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.26031E-05 0.52663E-05 0.78252E-05 0.00000E+00 0.00000E+00 + 0.13271E-03 0.42835E-03 0.14862E-02 0.37190E-02 0.88572E-02 0.22941E-01 + 0.46072E-01 0.91043E-01 0.19145E+00 0.39872E+00 0.78750E+00 0.15757E+01 + 0.31266E+01 0.59943E+01 0.11251E+02 0.20448E+02 0.36556E+02 0.62986E+02 + 0.10669E+03 0.17241E+03 0.27269E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.68573E-05 0.14641E-04 + 0.23033E-04 0.00000E+00 0.00000E+00 0.17063E-03 0.54801E-03 0.18404E-02 + 0.44707E-02 0.10555E-01 0.26946E-01 0.53172E-01 0.10366E+00 0.21656E+00 + 0.44546E+00 0.87241E+00 0.17419E+01 0.33613E+01 0.61608E+01 0.11410E+02 + 0.20677E+02 0.36882E+02 0.63431E+02 0.10728E+03 0.17317E+03 0.27364E+03 + 0.15863E-05 0.21723E-05 0.29651E-05 0.40417E-05 0.61455E-05 0.21228E-04 + 0.55020E-04 0.74260E-04 0.78718E-04 0.51150E-04 0.30907E-04 0.47903E-04 + 0.27463E-03 0.87581E-03 0.23376E-02 0.56070E-02 0.12996E-01 0.30069E-01 + 0.59176E-01 0.11436E+00 0.23671E+00 0.48241E+00 0.94311E+00 0.18699E+01 + 0.35765E+01 0.64795E+01 0.11970E+02 0.21644E+02 0.38535E+02 0.66165E+02 + 0.11175E+03 0.18015E+03 0.28433E+03 0.59904E-05 0.93467E-05 0.14027E-04 + 0.21076E-04 0.71659E-04 0.18203E-03 0.29374E-03 0.39909E-03 0.45692E-03 + 0.47028E-03 0.39568E-03 0.19902E-03 0.44054E-04 0.12296E-02 0.42966E-02 + 0.10328E-01 0.23264E-01 0.48722E-01 0.91159E-01 0.16594E+00 0.32114E+00 + 0.61894E+00 0.11365E+01 0.21665E+01 0.40808E+01 0.72960E+01 0.13335E+02 + 0.23900E+02 0.42247E+02 0.72109E+02 0.12121E+03 0.19460E+03 0.30612E+03 + 0.14755E-05 0.21259E-05 0.34480E-05 0.67799E-05 0.16577E-04 0.36115E-04 + 0.41867E-04 0.21865E-04 0.58257E-04 0.24555E-03 0.59205E-03 0.11038E-02 + 0.14884E-02 0.30854E-02 0.81983E-02 0.17915E-01 0.35451E-01 0.67204E-01 + 0.11840E+00 0.20580E+00 0.38218E+00 0.71267E+00 0.12760E+01 0.23799E+01 + 0.44047E+01 0.77697E+01 0.14039E+02 0.24934E+02 0.43752E+02 0.74256E+02 + 0.12426E+03 0.19885E+03 0.31204E+03 0.37062E-04 0.48849E-04 0.88465E-04 + 0.22665E-03 0.58414E-03 0.11972E-02 0.17565E-02 0.21319E-02 0.24705E-02 + 0.26746E-02 0.26994E-02 0.24534E-02 0.17295E-02 0.62835E-03 0.25319E-02 + 0.11457E-01 0.29214E-01 0.61453E-01 0.11484E+00 0.20512E+00 0.38913E+00 + 0.73227E+00 0.13098E+01 0.24408E+01 0.45032E+01 0.78993E+01 0.14215E+02 + 0.25143E+02 0.43957E+02 0.74332E+02 0.12399E+03 0.19776E+03 0.30938E+03 + 0.85154E-04 0.10410E-03 0.20525E-03 0.60804E-03 0.15174E-02 0.26302E-02 + 0.35988E-02 0.42926E-02 0.49569E-02 0.53784E-02 0.55106E-02 0.52914E-02 + 0.45791E-02 0.23731E-02 0.53712E-03 0.11080E-01 0.33098E-01 0.71151E-01 + 0.13364E+00 0.23662E+00 0.44382E+00 0.82298E+00 0.14478E+01 0.26578E+01 + 0.48357E+01 0.83737E+01 0.14906E+02 0.26122E+02 0.45314E+02 0.76121E+02 + 0.12629E+03 0.20048E+03 0.31243E+03 0.16101E-03 0.30454E-03 0.62480E-03 + 0.15153E-02 0.32675E-02 0.52574E-02 0.69361E-02 0.81839E-02 0.93511E-02 + 0.10099E-01 0.10442E-01 0.10260E-01 0.93883E-02 0.62612E-02 0.26826E-02 + 0.68425E-02 0.34849E-01 0.81799E-01 0.15689E+00 0.27711E+00 0.51574E+00 + 0.94321E+00 0.16306E+01 0.29449E+01 0.52740E+01 0.89967E+01 0.15811E+02 + 0.27400E+02 0.47083E+02 0.78451E+02 0.12927E+03 0.20404E+03 0.31644E+03 + 0.30122E-03 0.82618E-03 0.17303E-02 0.37011E-02 0.70663E-02 0.10545E-01 + 0.13362E-01 0.15573E-01 0.17565E-01 0.18821E-01 0.19534E-01 0.19424E-01 + 0.18322E-01 0.14173E-01 0.87197E-02 0.00000E+00 0.34581E-01 0.94575E-01 + 0.18795E+00 0.33277E+00 0.61567E+00 0.11102E+01 0.18835E+01 0.33397E+01 + 0.58734E+01 0.98446E+01 0.17038E+02 0.29130E+02 0.49474E+02 0.81612E+02 + 0.13336E+03 0.20897E+03 0.32213E+03 0.52371E-03 0.20047E-02 0.42494E-02 + 0.83508E-02 0.14417E-01 0.19984E-01 0.24247E-01 0.27897E-01 0.31009E-01 + 0.32895E-01 0.34157E-01 0.34114E-01 0.32654E-01 0.27858E-01 0.18185E-01 + 0.35474E-02 0.36063E-01 0.11659E+00 0.23807E+00 0.42004E+00 0.76824E+00 + 0.13600E+01 0.22563E+01 0.39130E+01 0.67333E+01 0.11052E+02 0.18775E+02 + 0.31569E+02 0.52847E+02 0.86095E+02 0.13921E+03 0.21620E+03 0.33079E+03 + 0.96380E-03 0.36814E-02 0.79040E-02 0.15935E-01 0.26272E-01 0.35630E-01 + 0.43267E-01 0.49386E-01 0.54255E-01 0.57311E-01 0.59217E-01 0.59229E-01 + 0.57108E-01 0.50313E-01 0.35937E-01 0.12495E-01 0.27741E-01 0.13909E+00 + 0.30163E+00 0.53677E+00 0.97749E+00 0.17049E+01 0.27691E+01 0.46976E+01 + 0.79014E+01 0.12679E+02 0.21094E+02 0.34804E+02 0.57289E+02 0.91963E+02 + 0.14683E+03 0.22556E+03 0.34198E+03 0.17806E-02 0.64513E-02 0.14086E-01 + 0.29706E-01 0.46807E-01 0.62403E-01 0.76529E-01 0.86729E-01 0.94133E-01 + 0.99178E-01 0.10186E+00 0.10200E+00 0.98850E-01 0.88559E-01 0.67735E-01 + 0.33488E-01 0.65380E-02 0.16281E+00 0.38732E+00 0.70114E+00 0.12769E+01 + 0.21987E+01 0.34989E+01 0.58052E+01 0.95347E+01 0.14931E+02 0.24276E+02 + 0.39203E+02 0.63289E+02 0.99846E+02 0.15702E+03 0.23809E+03 0.35699E+03 + 0.33438E-02 0.11382E-01 0.25386E-01 0.56392E-01 0.84422E-01 0.11033E+00 + 0.13705E+00 0.15413E+00 0.16499E+00 0.17340E+00 0.17679E+00 0.17707E+00 + 0.17207E+00 0.15552E+00 0.12449E+00 0.77801E-01 0.14187E-01 0.19424E+00 + 0.51455E+00 0.94791E+00 0.17255E+01 0.29327E+01 0.45723E+01 0.74148E+01 + 0.11879E+02 0.18125E+02 0.28740E+02 0.45314E+02 0.71550E+02 0.11063E+03 + 0.17093E+03 0.25517E+03 0.37751E+03 0.58029E-02 0.20503E-01 0.45087E-01 + 0.96931E-01 0.14601E+00 0.18974E+00 0.23194E+00 0.25929E+00 0.27715E+00 + 0.28980E+00 0.29502E+00 0.29461E+00 0.28610E+00 0.26042E+00 0.21319E+00 + 0.14491E+00 0.47982E-01 0.22082E+00 0.68928E+00 0.13044E+01 0.23848E+01 + 0.40130E+01 0.61426E+01 0.97495E+01 0.15244E+02 0.22657E+02 0.34998E+02 + 0.53782E+02 0.82881E+02 0.12529E+03 0.18967E+03 0.27805E+03 0.40491E+03 + 0.10194E-01 0.38115E-01 0.82126E-01 0.16794E+00 0.25712E+00 0.33277E+00 + 0.39735E+00 0.44135E+00 0.47204E+00 0.49054E+00 0.49893E+00 0.49598E+00 + 0.48034E+00 0.43879E+00 0.36292E+00 0.25740E+00 0.10507E+00 0.25450E+00 + 0.95597E+00 0.18529E+01 0.33965E+01 0.56582E+01 0.85105E+01 0.13230E+02 + 0.20196E+02 0.29241E+02 0.43972E+02 0.65776E+02 0.98739E+02 0.14559E+03 + 0.21540E+03 0.30927E+03 0.44215E+03 0.17135E-01 0.68302E-01 0.14401E+00 + 0.27793E+00 0.43422E+00 0.55969E+00 0.65018E+00 0.71726E+00 0.76884E+00 + 0.79406E+00 0.80807E+00 0.80000E+00 0.77309E+00 0.70878E+00 0.58989E+00 + 0.43140E+00 0.19232E+00 0.30768E+00 0.13782E+01 0.27161E+01 0.49756E+01 + 0.82022E+01 0.12134E+02 0.18493E+02 0.27593E+02 0.38949E+02 0.57024E+02 + 0.82986E+02 0.12120E+03 0.17401E+03 0.25103E+03 0.35212E+03 0.49293E+03 + 0.29773E-01 0.12278E+00 0.25594E+00 0.47843E+00 0.75653E+00 0.97206E+00 + 0.11123E+01 0.12211E+01 0.13103E+01 0.13482E+01 0.13717E+01 0.13543E+01 + 0.13071E+01 0.12026E+01 0.10098E+01 0.76128E+00 0.37707E+00 0.27586E+00 + 0.19291E+01 0.39556E+01 0.73236E+01 0.12025E+02 0.17576E+02 0.26368E+02 + 0.38575E+02 0.53212E+02 0.75983E+02 0.10767E+03 0.15299E+03 0.21369E+03 + 0.30015E+03 0.41045E+03 0.56125E+03 0.47468E-01 0.19569E+00 0.40776E+00 + 0.76185E+00 0.12067E+01 0.15473E+01 0.17728E+01 0.19421E+01 0.20819E+01 + 0.21404E+01 0.21724E+01 0.21396E+01 0.20590E+01 0.18891E+01 0.15849E+01 + 0.11977E+01 0.60962E+00 0.32711E+00 0.29159E+01 0.60390E+01 0.11155E+02 + 0.18156E+02 0.26195E+02 0.38679E+02 0.55530E+02 0.74957E+02 0.10450E+03 + 0.14429E+03 0.19952E+03 0.27100E+03 0.37019E+03 0.49271E+03 0.65670E+03 + 0.78375E-01 0.32302E+00 0.67283E+00 0.12565E+01 0.19948E+01 0.25519E+01 + 0.29297E+01 0.32021E+01 0.34305E+01 0.35255E+01 0.35698E+01 0.35081E+01 + 0.33668E+01 0.30810E+01 0.25836E+01 0.19575E+01 0.10225E+01 0.34690E+00 + 0.44342E+01 0.93009E+01 0.17178E+02 0.27776E+02 0.39652E+02 0.57776E+02 + 0.81612E+02 0.10808E+03 0.14746E+03 0.19879E+03 0.26785E+03 0.35401E+03 + 0.47024E+03 0.60864E+03 0.78947E+03 0.12480E+00 0.51428E+00 0.10709E+01 + 0.19994E+01 0.31845E+01 0.40635E+01 0.46792E+01 0.51026E+01 0.54662E+01 + 0.56199E+01 0.56799E+01 0.55732E+01 0.53390E+01 0.48781E+01 0.40945E+01 + 0.31148E+01 0.16710E+01 0.27729E+00 0.67739E+01 0.14427E+02 0.26692E+02 + 0.42961E+02 0.60813E+02 0.87647E+02 0.12213E+03 0.15909E+03 0.21297E+03 + 0.28096E+03 0.36962E+03 0.47604E+03 0.61531E+03 0.77440E+03 0.97674E+03 + 0.20607E+00 0.84897E+00 0.17675E+01 0.32990E+01 0.52771E+01 0.67128E+01 + 0.77613E+01 0.84416E+01 0.90452E+01 0.93077E+01 0.93895E+01 0.91999E+01 + 0.87978E+01 0.80261E+01 0.67455E+01 0.51532E+01 0.28384E+01 0.00000E+00 + 0.10380E+02 0.22504E+02 0.41776E+02 0.67041E+02 0.94278E+02 0.13469E+03 + 0.18557E+03 0.23839E+03 0.31393E+03 0.40636E+03 0.52318E+03 0.65791E+03 + 0.82871E+03 0.10149E+04 0.12447E+04 0.32537E+00 0.13403E+01 0.27901E+01 + 0.52065E+01 0.83754E+01 0.10615E+02 0.12340E+02 0.13382E+02 0.14348E+02 + 0.14788E+02 0.14889E+02 0.14570E+02 0.13910E+02 0.12666E+02 0.10651E+02 + 0.81520E+01 0.45662E+01 0.12578E+00 0.16301E+02 0.35626E+02 0.66141E+02 + 0.10576E+03 0.14785E+03 0.20962E+03 0.28603E+03 0.36312E+03 0.47150E+03 + 0.60030E+03 0.75829E+03 0.93321E+03 0.11478E+04 0.13698E+04 0.16348E+04 + 0.53168E+00 0.21900E+01 0.45580E+01 0.85041E+01 0.13780E+02 0.17386E+02 + 0.20350E+02 0.21990E+02 0.23603E+02 0.24378E+02 0.24492E+02 0.23933E+02 + 0.22803E+02 0.20715E+02 0.17422E+02 0.13343E+02 0.75745E+01 0.30085E+00 + 0.25959E+02 0.56909E+02 0.10552E+03 0.16814E+03 0.23388E+03 0.32945E+03 + 0.44593E+03 0.56056E+03 0.71928E+03 0.90296E+03 0.11219E+04 0.13547E+04 + 0.16308E+04 0.19005E+04 0.22105E+04 0.83544E+00 0.34408E+01 0.71607E+01 + 0.13358E+02 0.21847E+02 0.27412E+02 0.32374E+02 0.34834E+02 0.37449E+02 + 0.38798E+02 0.38892E+02 0.37961E+02 0.36105E+02 0.32730E+02 0.27558E+02 + 0.21145E+02 0.12208E+02 0.61890E+00 0.41432E+02 0.91175E+02 0.16896E+03 + 0.26856E+03 0.37207E+03 0.52145E+03 0.70125E+03 0.87443E+03 0.11111E+04 + 0.13785E+04 0.16890E+04 0.20063E+04 0.23700E+04 0.27036E+04 0.30710E+04 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.63259E-11 0.49739E-09 + 0.24927E-08 0.98347E-08 0.35611E-07 0.11213E-06 0.33795E-06 0.95174E-06 + 0.20009E-05 0.40830E-05 0.87749E-05 0.18693E-04 0.37885E-04 0.79527E-04 + 0.16442E-03 0.30731E-03 0.57810E-03 0.10608E-02 0.19112E-02 0.33133E-02 + 0.56396E-02 0.91497E-02 0.14517E-01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.61127E-08 0.47375E-06 0.23446E-05 0.91534E-05 0.32852E-04 + 0.10268E-03 0.30762E-03 0.86211E-03 0.18053E-02 0.36720E-02 0.78714E-02 + 0.16734E-01 0.33858E-01 0.70980E-01 0.14659E+00 0.27377E+00 0.51464E+00 + 0.94388E+00 0.16998E+01 0.29458E+01 0.50128E+01 0.81311E+01 0.12898E+02 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.15802E-07 0.12032E-05 + 0.58626E-05 0.22586E-04 0.80158E-04 0.24820E-03 0.73779E-03 0.20546E-02 + 0.42801E-02 0.86695E-02 0.18522E-01 0.39269E-01 0.79281E-01 0.16592E+00 + 0.34219E+00 0.63834E+00 0.11989E+01 0.21974E+01 0.39549E+01 0.68510E+01 + 0.11654E+02 0.18898E+02 0.29972E+02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.54188E-07 0.40426E-05 0.19337E-04 0.74353E-04 0.25660E-03 + 0.78524E-03 0.23114E-02 0.63855E-02 0.13243E-01 0.26725E-01 0.56842E-01 + 0.12008E+00 0.24150E+00 0.50284E+00 0.10351E+01 0.19282E+01 0.36174E+01 + 0.66237E+01 0.11913E+02 0.20624E+02 0.35067E+02 0.56843E+02 0.90125E+02 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.99015E-07 0.74240E-05 + 0.35327E-04 0.13480E-03 0.46075E-03 0.13951E-02 0.40674E-02 0.11142E-01 + 0.22950E-01 0.46038E-01 0.97371E-01 0.20469E+00 0.41018E+00 0.85269E+00 + 0.17516E+01 0.32569E+01 0.61013E+01 0.11159E+02 0.20052E+02 0.34689E+02 + 0.58947E+02 0.95506E+02 0.15136E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.14169E-06 0.10612E-04 0.49940E-04 0.18805E-03 0.63348E-03 + 0.18903E-02 0.54392E-02 0.14730E-01 0.30040E-01 0.59760E-01 0.12556E+00 + 0.26254E+00 0.52374E+00 0.10845E+01 0.22211E+01 0.41201E+01 0.77037E+01 + 0.14068E+02 0.25247E+02 0.43635E+02 0.74089E+02 0.11996E+03 0.19002E+03 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.18306E-06 0.14600E-04 + 0.69963E-04 0.26448E-03 0.88552E-03 0.26116E-02 0.74236E-02 0.19868E-01 + 0.40083E-01 0.78988E-01 0.16471E+00 0.34222E+00 0.67895E+00 0.13995E+01 + 0.28558E+01 0.52814E+01 0.98516E+01 0.17956E+02 0.32175E+02 0.55537E+02 + 0.94204E+02 0.15240E+03 0.24125E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.23959E-06 0.19237E-04 0.91233E-04 0.33707E-03 0.11050E-02 + 0.31832E-02 0.88623E-02 0.23272E-01 0.46207E-01 0.89824E-01 0.18520E+00 + 0.38116E+00 0.75030E+00 0.15366E+01 0.31197E+01 0.57451E+01 0.10680E+02 + 0.19413E+02 0.34711E+02 0.59809E+02 0.10131E+03 0.16371E+03 0.25891E+03 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.32880E-06 0.26704E-04 + 0.12546E-03 0.45229E-03 0.14486E-02 0.40633E-02 0.11041E-01 0.28349E-01 + 0.55210E-01 0.10554E+00 0.21454E+00 0.43632E+00 0.85034E+00 0.17271E+01 + 0.34834E+01 0.63799E+01 0.11808E+02 0.21386E+02 0.38129E+02 0.65547E+02 + 0.11082E+03 0.17882E+03 0.28248E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.31693E-06 0.31348E-04 0.15452E-03 0.56712E-03 0.18036E-02 + 0.49784E-02 0.13266E-01 0.33384E-01 0.63674E-01 0.11938E+00 0.23856E+00 + 0.47779E+00 0.91833E+00 0.18422E+01 0.36747E+01 0.66992E+01 0.12419E+02 + 0.22481E+02 0.39936E+02 0.68453E+02 0.11546E+03 0.18595E+03 0.29328E+03 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.63847E-06 0.94641E-06 0.52043E-06 0.60874E-06 0.38658E-04 + 0.20106E-03 0.75159E-03 0.23665E-02 0.64079E-02 0.16682E-01 0.40995E-01 + 0.76305E-01 0.13977E+00 0.27350E+00 0.53737E+00 0.10148E+01 0.20036E+01 + 0.39389E+01 0.71369E+01 0.13249E+02 0.23959E+02 0.42360E+02 0.72329E+02 + 0.12162E+03 0.19537E+03 0.30751E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.11532E-03 0.18283E-03 + 0.13356E-03 0.12245E-04 0.22083E-03 0.74359E-03 0.20356E-02 0.51026E-02 + 0.11622E-01 0.26429E-01 0.58459E-01 0.10528E+00 0.18616E+00 0.35041E+00 + 0.66118E+00 0.11999E+01 0.22865E+01 0.42848E+01 0.76114E+01 0.13849E+02 + 0.24707E+02 0.43414E+02 0.73756E+02 0.12352E+03 0.19776E+03 0.31043E+03 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.69676E-03 0.97647E-03 0.91251E-03 0.58593E-03 0.10346E-03 + 0.76167E-03 0.29328E-02 0.76991E-02 0.16860E-01 0.36507E-01 0.76451E-01 + 0.13429E+00 0.23099E+00 0.42445E+00 0.78160E+00 0.13799E+01 0.25423E+01 + 0.46524E+01 0.81206E+01 0.14547E+02 0.25646E+02 0.44725E+02 0.75507E+02 + 0.12580E+03 0.20056E+03 0.31373E+03 0.17614E-04 0.20790E-04 0.24831E-04 + 0.29958E-04 0.44851E-04 0.14310E-03 0.26746E-03 0.28622E-02 0.34968E-02 + 0.36472E-02 0.32368E-02 0.14772E-02 0.88752E-03 0.21468E-02 0.86599E-02 + 0.20754E-01 0.45664E-01 0.94091E-01 0.16372E+00 0.27673E+00 0.49939E+00 + 0.90146E+00 0.15587E+01 0.28188E+01 0.50711E+01 0.87151E+01 0.15409E+02 + 0.26865E+02 0.46414E+02 0.77745E+02 0.12869E+03 0.20404E+03 0.31772E+03 + 0.19158E-03 0.22583E-03 0.26934E-03 0.32451E-03 0.48545E-03 0.15487E-02 + 0.28993E-02 0.81978E-02 0.99147E-02 0.10681E-01 0.10352E-01 0.70249E-02 + 0.65334E-02 0.17687E-02 0.72984E-02 0.23472E-01 0.55908E-01 0.11722E+00 + 0.20405E+00 0.34043E+00 0.60468E+00 0.10700E+01 0.18091E+01 0.32040E+01 + 0.56513E+01 0.95341E+01 0.16592E+02 0.28530E+02 0.48717E+02 0.80789E+02 + 0.13262E+03 0.20879E+03 0.32321E+03 0.91994E-03 0.10832E-02 0.12903E-02 + 0.15525E-02 0.23198E-02 0.73937E-02 0.13837E-01 0.22301E-01 0.26466E-01 + 0.28996E-01 0.29552E-01 0.25768E-01 0.23474E-01 0.13638E-01 0.00000E+00 + 0.22467E-01 0.66173E-01 0.14625E+00 0.25879E+00 0.42939E+00 0.75410E+00 + 0.13100E+01 0.21643E+01 0.37476E+01 0.64649E+01 0.10675E+02 0.18230E+02 + 0.30826E+02 0.51878E+02 0.84961E+02 0.13801E+03 0.21532E+03 0.33081E+03 + 0.32129E-02 0.36712E-02 0.45257E-02 0.65596E-02 0.11251E-01 0.25086E-01 + 0.41505E-01 0.53760E-01 0.62292E-01 0.67759E-01 0.69788E-01 0.67656E-01 + 0.60763E-01 0.41710E-01 0.16736E-01 0.15534E-01 0.77978E-01 0.18903E+00 + 0.34228E+00 0.56599E+00 0.98288E+00 0.16744E+01 0.26981E+01 0.45556E+01 + 0.76611E+01 0.12338E+02 0.20598E+02 0.34127E+02 0.56410E+02 0.90946E+02 + 0.14577E+03 0.22485E+03 0.34215E+03 0.93662E-02 0.10316E-01 0.13160E-01 + 0.22459E-01 0.41414E-01 0.68652E-01 0.96775E-01 0.12032E+00 0.13634E+00 + 0.14525E+00 0.14858E+00 0.14626E+00 0.13646E+00 0.11015E+00 0.57754E-01 + 0.43586E-02 0.84610E-01 0.24584E+00 0.46366E+00 0.76978E+00 0.13277E+01 + 0.22228E+01 0.34951E+01 0.57504E+01 0.94110E+01 0.14744E+02 0.23992E+02 + 0.38814E+02 0.62799E+02 0.99340E+02 0.15663E+03 0.23818E+03 0.35809E+03 + 0.24154E-01 0.26202E-01 0.33020E-01 0.56312E-01 0.97153E-01 0.15578E+00 + 0.21528E+00 0.26292E+00 0.29618E+00 0.31548E+00 0.33014E+00 0.32875E+00 + 0.31227E+00 0.27072E+00 0.19406E+00 0.68867E-01 0.39820E-01 0.28200E+00 + 0.60098E+00 0.10333E+01 0.18056E+01 0.30045E+01 0.46379E+01 0.74655E+01 + 0.11911E+02 0.18149E+02 0.28747E+02 0.45316E+02 0.71571E+02 0.11074E+03 + 0.17123E+03 0.25591E+03 0.37905E+03 0.55365E-01 0.63013E-01 0.81193E-01 + 0.13367E+00 0.21687E+00 0.33313E+00 0.44826E+00 0.54340E+00 0.61521E+00 + 0.65664E+00 0.68568E+00 0.68712E+00 0.66021E+00 0.58641E+00 0.46244E+00 + 0.29013E+00 0.25223E-01 0.29067E+00 0.77513E+00 0.14277E+01 0.25433E+01 + 0.42196E+01 0.64071E+01 0.10100E+02 0.15711E+02 0.23263E+02 0.35805E+02 + 0.54857E+02 0.84313E+02 0.12718E+03 0.19216E+03 0.28129E+03 0.40915E+03 + 0.11444E+00 0.14004E+00 0.19236E+00 0.32773E+00 0.49833E+00 0.71316E+00 + 0.95032E+00 0.11333E+01 0.12816E+01 0.13683E+01 0.14209E+01 0.14305E+01 + 0.14083E+01 0.12876E+01 0.10698E+01 0.78969E+00 0.36023E+00 0.18650E+00 + 0.94993E+00 0.19209E+01 0.35870E+01 0.60151E+01 0.90532E+01 0.14058E+02 + 0.21399E+02 0.30847E+02 0.46167E+02 0.68701E+02 0.10258E+03 0.15046E+03 + 0.22148E+03 0.31648E+03 0.45050E+03 0.22486E+00 0.27508E+00 0.37776E+00 + 0.64338E+00 0.97794E+00 0.13990E+01 0.18634E+01 0.22215E+01 0.25117E+01 + 0.26823E+01 0.27887E+01 0.28146E+01 0.27841E+01 0.25755E+01 0.21988E+01 + 0.17205E+01 0.97825E+00 0.10351E+00 0.11320E+01 0.26638E+01 0.52435E+01 + 0.88987E+01 0.13297E+02 0.20367E+02 0.30378E+02 0.42679E+02 0.62121E+02 + 0.89735E+02 0.12998E+03 0.18496E+03 0.26449E+03 0.36774E+03 0.51054E+03 + 0.41505E+00 0.50766E+00 0.69698E+00 0.11867E+01 0.18032E+01 0.25785E+01 + 0.34329E+01 0.40904E+01 0.46222E+01 0.49337E+01 0.51282E+01 0.51762E+01 + 0.51237E+01 0.47551E+01 0.40948E+01 0.32644E+01 0.19764E+01 0.52299E+00 + 0.15292E+01 0.40215E+01 0.81441E+01 0.13842E+02 0.20463E+02 0.30861E+02 + 0.45091E+02 0.61790E+02 0.87498E+02 0.12268E+03 0.17225E+03 0.23747E+03 + 0.32914E+03 0.44409E+03 0.59946E+03 0.74524E+00 0.91139E+00 0.12510E+01 + 0.21296E+01 0.32350E+01 0.46243E+01 0.61540E+01 0.73289E+01 0.82771E+01 + 0.88293E+01 0.91719E+01 0.92523E+01 0.91541E+01 0.84993E+01 0.73378E+01 + 0.58875E+01 0.36489E+01 0.11850E+01 0.22762E+01 0.64115E+01 0.13147E+02 + 0.22262E+02 0.32544E+02 0.48349E+02 0.69314E+02 0.92853E+02 0.12817E+03 + 0.17471E+03 0.23799E+03 0.31788E+03 0.42669E+03 0.55772E+03 0.73021E+03 + 0.13210E+01 0.16154E+01 0.22170E+01 0.37733E+01 0.57306E+01 0.81893E+01 + 0.10895E+02 0.12969E+02 0.14640E+02 0.15608E+02 0.16202E+02 0.16333E+02 + 0.16146E+02 0.14984E+02 0.12940E+02 0.10402E+02 0.65061E+01 0.22816E+01 + 0.36155E+01 0.10571E+02 0.21758E+02 0.36637E+02 0.53007E+02 0.77707E+02 + 0.10958E+03 0.14392E+03 0.19420E+03 0.25803E+03 0.34173E+03 0.44286E+03 + 0.57595E+03 0.72894E+03 0.92434E+03 0.23417E+01 0.28632E+01 0.39292E+01 + 0.66864E+01 0.10153E+02 0.14506E+02 0.19294E+02 0.22961E+02 0.25910E+02 + 0.27611E+02 0.28651E+02 0.28868E+02 0.28526E+02 0.26470E+02 0.22878E+02 + 0.18434E+02 0.11637E+02 0.43626E+01 0.57521E+01 0.17564E+02 0.36370E+02 + 0.61039E+02 0.87626E+02 0.12713E+03 0.17689E+03 0.22855E+03 0.30253E+03 + 0.39312E+03 0.50774E+03 0.64000E+03 0.80781E+03 0.99071E+03 0.12164E+04 + 0.40998E+01 0.50125E+01 0.68781E+01 0.11703E+02 0.17769E+02 0.25383E+02 + 0.33752E+02 0.40156E+02 0.45297E+02 0.48250E+02 0.50039E+02 0.50384E+02 + 0.49743E+02 0.46107E+02 0.39795E+02 0.32010E+02 0.20163E+02 0.75386E+01 + 0.99062E+01 0.30121E+02 0.62051E+02 0.10348E+03 0.14739E+03 0.21180E+03 + 0.29132E+03 0.37124E+03 0.48344E+03 0.61634E+03 0.77877E+03 0.95764E+03 + 0.11761E+04 0.14003E+04 0.16665E+04 0.72670E+01 0.88844E+01 0.12190E+02 + 0.20741E+02 0.31487E+02 0.44974E+02 0.59797E+02 0.71131E+02 0.80225E+02 + 0.85442E+02 0.88600E+02 0.89203E+02 0.88071E+02 0.81673E+02 0.70595E+02 + 0.56963E+02 0.36234E+02 0.14375E+02 0.15811E+02 0.50584E+02 0.10517E+03 + 0.17538E+03 0.24883E+03 0.35545E+03 0.48494E+03 0.61148E+03 0.78614E+03 + 0.98687E+03 0.12244E+04 0.14741E+04 0.17673E+04 0.20486E+04 0.23679E+04 + 0.12725E+02 0.15556E+02 0.21344E+02 0.36312E+02 0.55122E+02 0.78726E+02 + 0.10466E+03 0.12448E+03 0.14036E+03 0.14945E+03 0.15493E+03 0.15592E+03 + 0.15386E+03 0.14259E+03 0.12315E+03 0.99273E+02 0.63069E+02 0.24982E+02 + 0.27423E+02 0.87519E+02 0.18141E+03 0.30136E+03 0.42554E+03 0.60434E+03 + 0.81858E+03 0.10232E+04 0.13015E+04 0.16130E+04 0.19709E+04 0.23308E+04 + 0.27371E+04 0.30989E+04 0.34890E+04 0.22281E+02 0.27237E+02 0.37369E+02 + 0.63573E+02 0.96498E+02 0.13781E+03 0.18319E+03 0.21785E+03 0.24561E+03 + 0.26147E+03 0.27098E+03 0.27263E+03 0.26894E+03 0.24912E+03 0.21503E+03 + 0.17320E+03 0.10993E+03 0.43493E+02 0.47671E+02 0.15185E+03 0.31402E+03 + 0.52013E+03 0.73179E+03 0.10346E+04 0.13935E+04 0.17298E+04 0.21819E+04 + 0.26766E+04 0.32305E+04 0.37646E+04 0.43450E+04 0.48214E+04 0.53051E+04 + 0.39017E+02 0.47696E+02 0.65437E+02 0.11132E+03 0.16896E+03 0.24128E+03 + 0.32071E+03 0.38136E+03 0.42991E+03 0.45760E+03 0.47416E+03 0.47694E+03 + 0.47034E+03 0.43552E+03 0.37575E+03 0.30248E+03 0.19185E+03 0.75834E+02 + 0.83023E+02 0.26409E+03 0.54513E+03 0.90092E+03 0.12640E+04 0.17808E+04 + 0.23883E+04 0.29488E+04 0.36950E+04 0.44964E+04 0.53739E+04 0.61884E+04 + 0.70421E+04 0.76844E+04 0.82920E+04 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.64197E-08 0.49522E-06 + 0.24409E-05 0.96318E-05 0.33984E-04 0.10597E-03 0.31682E-03 0.88644E-03 + 0.18538E-02 0.37735E-02 0.81290E-02 0.17196E-01 0.34657E-01 0.72645E-01 + 0.15029E+00 0.27994E+00 0.52612E+00 0.96476E+00 0.17371E+01 0.30102E+01 + 0.51220E+01 0.83074E+01 0.13178E+02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.15907E-07 0.12089E-05 0.58806E-05 0.22943E-04 0.80179E-04 + 0.24799E-03 0.73650E-03 0.20494E-02 0.42668E-02 0.86539E-02 0.18588E-01 + 0.39230E-01 0.78916E-01 0.16516E+00 0.34128E+00 0.63508E+00 0.11927E+01 + 0.21857E+01 0.39337E+01 0.68138E+01 0.11590E+02 0.18794E+02 0.29806E+02 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.53447E-07 0.39970E-05 + 0.19157E-04 0.73781E-04 0.25496E-03 0.78102E-03 0.23010E-02 0.63612E-02 + 0.13200E-01 0.26651E-01 0.56705E-01 0.11982E+00 0.24105E+00 0.50200E+00 + 0.10339E+01 0.19255E+01 0.36126E+01 0.66153E+01 0.11898E+02 0.20600E+02 + 0.35028E+02 0.56781E+02 0.90028E+02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.92830E-07 0.70578E-05 0.33907E-04 0.13035E-03 0.44805E-03 + 0.13624E-02 0.39852E-02 0.10945E-01 0.22592E-01 0.45386E-01 0.96070E-01 + 0.20226E+00 0.40579E+00 0.84415E+00 0.17348E+01 0.32274E+01 0.60483E+01 + 0.11065E+02 0.19887E+02 0.34410E+02 0.58481E+02 0.94760E+02 0.15020E+03 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.13284E-06 0.10098E-04 + 0.47989E-04 0.18209E-03 0.61697E-03 0.18491E-02 0.53393E-02 0.14499E-01 + 0.29637E-01 0.59056E-01 0.12421E+00 0.26012E+00 0.51953E+00 0.10767E+01 + 0.22064E+01 0.40947E+01 0.76592E+01 0.13991E+02 0.25116E+02 0.43415E+02 + 0.73728E+02 0.11939E+03 0.18914E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.17128E-06 0.13917E-04 0.67412E-04 0.25689E-03 0.86517E-03 + 0.25627E-02 0.73108E-02 0.19622E-01 0.39681E-01 0.78337E-01 0.16356E+00 + 0.34035E+00 0.67608E+00 0.13947E+01 0.28482E+01 0.52698E+01 0.98342E+01 + 0.17930E+02 0.32138E+02 0.55485E+02 0.94131E+02 0.15230E+03 0.24112E+03 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.21640E-06 0.18013E-04 + 0.86971E-04 0.32526E-03 0.10750E-02 0.31138E-02 0.87064E-02 0.22940E-01 + 0.45673E-01 0.88968E-01 0.18371E+00 0.37876E+00 0.74660E+00 0.15305E+01 + 0.31097E+01 0.57301E+01 0.10658E+02 0.19380E+02 0.34661E+02 0.59738E+02 + 0.10121E+03 0.16357E+03 0.25872E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.26250E-06 0.23616E-04 0.11581E-03 0.42847E-03 0.13938E-02 + 0.39455E-02 0.10793E-01 0.27846E-01 0.54430E-01 0.10433E+00 0.21253E+00 + 0.43316E+00 0.84555E+00 0.17195E+01 0.34711E+01 0.63622E+01 0.11782E+02 + 0.21350E+02 0.38078E+02 0.65478E+02 0.11073E+03 0.17870E+03 0.28232E+03 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.76032E-06 0.48954E-04 + 0.20117E-03 0.66157E-03 0.19782E-02 0.52896E-02 0.13811E-01 0.34322E-01 + 0.64948E-01 0.12116E+00 0.24095E+00 0.48132E+00 0.92391E+00 0.18508E+01 + 0.36880E+01 0.67326E+01 0.12445E+02 0.22433E+02 0.39841E+02 0.68285E+02 + 0.11517E+03 0.18550E+03 0.29260E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.54447E-07 0.25441E-04 0.16599E-03 0.67652E-03 0.22171E-02 + 0.61242E-02 0.16148E-01 0.40015E-01 0.74853E-01 0.13757E+00 0.26995E+00 + 0.53198E+00 0.10068E+01 0.19911E+01 0.39198E+01 0.71373E+01 0.13191E+02 + 0.23659E+02 0.41846E+02 0.71471E+02 0.12020E+03 0.19312E+03 0.30399E+03 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.46699E-05 0.43742E-05 0.37050E-05 0.28039E-05 0.63698E-05 + 0.16156E-03 0.84590E-03 0.30385E-02 0.86141E-02 0.22780E-01 0.52857E-01 + 0.96158E-01 0.17157E+00 0.32707E+00 0.62574E+00 0.11491E+01 0.22054E+01 + 0.42120E+01 0.75347E+01 0.13745E+02 0.24469E+02 0.43016E+02 0.73102E+02 + 0.12245E+03 0.19607E+03 0.30779E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.24428E-04 0.23356E-04 + 0.20962E-04 0.16076E-04 0.39513E-04 0.12214E-03 0.10699E-02 0.43692E-02 + 0.12825E-01 0.34102E-01 0.73956E-01 0.13056E+00 0.22540E+00 0.41571E+00 + 0.76820E+00 0.13609E+01 0.25175E+01 0.46283E+01 0.80938E+01 0.14517E+02 + 0.25595E+02 0.44640E+02 0.75366E+02 0.12557E+03 0.20018E+03 0.31312E+03 + 0.14261E-06 0.15205E-06 0.16208E-06 0.16995E-06 0.18885E-06 0.21834E-06 + 0.21171E-05 0.12947E-04 0.20864E-03 0.62917E-03 0.13039E-02 0.26273E-03 + 0.42235E-02 0.84440E-02 0.16779E-01 0.32101E-01 0.62469E-01 0.11470E+00 + 0.18970E+00 0.31030E+00 0.54409E+00 0.96244E+00 0.16433E+01 0.29389E+01 + 0.52445E+01 0.89673E+01 0.15782E+02 0.27421E+02 0.47250E+02 0.79008E+02 + 0.13061E+03 0.20698E+03 0.32223E+03 0.75596E-04 0.82479E-04 0.91183E-04 + 0.10213E-03 0.12909E-03 0.18985E-03 0.48888E-03 0.30574E-02 0.55473E-02 + 0.63226E-02 0.57092E-02 0.13755E-02 0.18424E-02 0.25906E-02 0.12745E-01 + 0.31179E-01 0.67906E-01 0.13127E+00 0.22193E+00 0.36359E+00 0.63592E+00 + 0.11130E+01 0.18685E+01 0.32883E+01 0.57722E+01 0.97060E+01 0.16841E+02 + 0.28892E+02 0.49244E+02 0.81555E+02 0.13374E+03 0.21042E+03 0.32559E+03 + 0.26091E-05 0.21836E-05 0.13135E-05 0.59006E-06 0.52513E-05 0.17822E-04 + 0.74404E-04 0.46567E-03 0.14233E-02 0.28876E-02 0.52165E-02 0.47504E-02 + 0.92553E-02 0.24487E-01 0.44893E-01 0.78607E-01 0.14004E+00 0.23791E+00 + 0.36813E+00 0.56283E+00 0.92230E+00 0.15276E+01 0.24507E+01 0.41357E+01 + 0.70008E+01 0.11422E+02 0.19293E+02 0.32358E+02 0.54110E+02 0.88234E+02 + 0.14286E+03 0.22253E+03 0.34164E+03 0.14062E-02 0.15312E-02 0.16889E-02 + 0.18871E-02 0.23800E-02 0.34933E-02 0.71949E-02 0.17383E-01 0.28787E-01 + 0.33328E-01 0.34133E-01 0.24573E-01 0.10895E-01 0.10140E-01 0.14729E-01 + 0.55678E-01 0.13106E+00 0.25373E+00 0.42074E+00 0.66267E+00 0.11071E+01 + 0.18376E+01 0.29129E+01 0.48480E+01 0.80641E+01 0.12888E+02 0.21368E+02 + 0.35208E+02 0.57937E+02 0.93095E+02 0.14882E+03 0.22915E+03 0.34827E+03 + 0.44393E-02 0.47758E-02 0.52369E-02 0.59446E-02 0.81901E-02 0.13117E-01 + 0.24113E-01 0.44283E-01 0.64782E-01 0.75022E-01 0.79663E-01 0.71916E-01 + 0.35923E-01 0.34603E-01 0.48764E-02 0.68497E-01 0.18167E+00 0.36383E+00 + 0.60471E+00 0.94076E+00 0.15440E+01 0.25024E+01 0.38561E+01 0.62331E+01 + 0.10064E+02 0.15617E+02 0.25189E+02 0.40462E+02 0.65081E+02 0.10248E+03 + 0.16099E+03 0.24419E+03 0.36646E+03 0.22271E-01 0.23572E-01 0.25640E-01 + 0.29733E-01 0.45546E-01 0.80934E-01 0.13680E+00 0.21597E+00 0.27036E+00 + 0.31029E+00 0.33352E+00 0.32713E+00 0.28790E+00 0.19332E+00 0.43172E-01 + 0.76873E-01 0.36209E+00 0.78763E+00 0.13360E+01 0.20516E+01 0.32817E+01 + 0.51128E+01 0.74922E+01 0.11463E+02 0.17450E+02 0.25471E+02 0.38688E+02 + 0.58652E+02 0.89362E+02 0.13390E+03 0.20121E+03 0.29346E+03 0.42572E+03 + 0.79237E-01 0.85092E-01 0.92525E-01 0.10207E+00 0.12297E+00 0.20787E+00 + 0.32755E+00 0.51282E+00 0.64576E+00 0.73612E+00 0.79352E+00 0.79658E+00 + 0.74204E+00 0.58382E+00 0.28037E+00 0.26071E-01 0.44240E+00 0.12214E+01 + 0.21748E+01 0.33780E+01 0.54005E+01 0.83063E+01 0.11903E+02 0.17729E+02 + 0.26149E+02 0.36844E+02 0.53946E+02 0.78777E+02 0.11567E+03 0.16727E+03 + 0.24315E+03 0.34401E+03 0.48566E+03 0.20860E+00 0.22703E+00 0.24967E+00 + 0.27621E+00 0.39741E+00 0.53980E+00 0.77298E+00 0.11956E+01 0.15255E+01 + 0.17295E+01 0.18402E+01 0.18896E+01 0.17836E+01 0.15053E+01 0.96875E+00 + 0.11746E+00 0.45444E+00 0.18680E+01 0.35835E+01 0.56895E+01 0.91620E+01 + 0.13999E+02 0.19725E+02 0.28749E+02 0.41264E+02 0.56305E+02 0.79628E+02 + 0.11206E+03 0.15842E+03 0.22057E+03 0.30906E+03 0.42229E+03 0.57733E+03 + 0.52326E+00 0.53835E+00 0.56745E+00 0.63902E+00 0.93742E+00 0.12384E+01 + 0.17292E+01 0.26560E+01 0.34386E+01 0.38521E+01 0.40775E+01 0.42104E+01 + 0.40022E+01 0.34778E+01 0.23942E+01 0.45529E+00 0.32006E+00 0.28876E+01 + 0.60600E+01 0.98711E+01 0.16053E+02 0.24445E+02 0.34005E+02 0.48701E+02 + 0.68320E+02 0.90653E+02 0.12424E+03 0.16891E+03 0.23013E+03 0.30834E+03 + 0.41570E+03 0.54686E+03 0.72108E+03 0.11169E+01 0.11489E+01 0.12109E+01 + 0.13634E+01 0.19999E+01 0.26417E+01 0.36884E+01 0.56657E+01 0.73380E+01 + 0.82278E+01 0.87271E+01 0.90444E+01 0.86522E+01 0.76344E+01 0.54678E+01 + 0.11766E+01 0.20582E+00 0.45318E+01 0.10516E+02 0.17587E+02 0.28907E+02 + 0.43957E+02 0.60568E+02 0.85564E+02 0.11783E+03 0.15274E+03 0.20377E+03 + 0.26864E+03 0.35377E+03 0.45696E+03 0.59295E+03 0.75017E+03 0.95165E+03 + 0.22874E+01 0.23529E+01 0.24795E+01 0.27915E+01 0.40940E+01 0.54071E+01 + 0.75483E+01 0.11593E+02 0.15015E+02 0.16838E+02 0.17870E+02 0.18541E+02 + 0.17777E+02 0.15777E+02 0.11473E+02 0.25790E+01 0.11990E+01 0.77895E+01 + 0.19243E+02 0.32612E+02 0.53791E+02 0.81497E+02 0.11132E+03 0.15542E+03 + 0.21075E+03 0.26798E+03 0.34950E+03 0.44874E+03 0.57353E+03 0.71660E+03 + 0.89702E+03 0.10925E+04 0.13329E+04 0.47611E+01 0.48971E+01 0.51603E+01 + 0.58093E+01 0.85195E+01 0.11252E+02 0.15708E+02 0.24128E+02 0.31258E+02 + 0.35076E+02 0.37275E+02 0.38765E+02 0.37310E+02 0.33406E+02 0.24806E+02 + 0.58841E+01 0.46783E+01 0.12310E+02 0.34418E+02 0.59992E+02 0.10019E+03 + 0.15214E+03 0.20698E+03 0.28695E+03 0.38501E+03 0.48263E+03 0.61856E+03 + 0.77768E+03 0.96971E+03 0.11777E+04 0.14281E+04 0.16798E+04 0.19744E+04 + 0.95600E+01 0.98328E+01 0.10361E+02 0.11663E+02 0.17102E+02 0.22586E+02 + 0.31527E+02 0.48424E+02 0.62729E+02 0.70390E+02 0.74814E+02 0.77836E+02 + 0.74973E+02 0.67274E+02 0.50234E+02 0.12088E+02 0.10685E+02 0.22195E+02 + 0.65183E+02 0.11459E+03 0.19179E+03 0.29064E+03 0.39349E+03 0.54185E+03 + 0.72052E+03 0.89290E+03 0.11285E+04 0.13949E+04 0.17047E+04 0.20222E+04 + 0.23867E+04 0.27228E+04 0.30945E+04 0.19513E+02 0.20070E+02 0.21146E+02 + 0.23804E+02 0.34906E+02 0.46097E+02 0.64349E+02 0.98843E+02 0.12807E+03 + 0.14377E+03 0.15293E+03 0.15933E+03 0.15383E+03 0.13873E+03 0.10479E+03 + 0.25912E+02 0.26959E+02 0.36242E+02 0.12019E+03 0.21621E+03 0.36561E+03 + 0.55564E+03 0.75118E+03 0.10310E+04 0.13633E+04 0.16761E+04 0.20971E+04 + 0.25597E+04 0.30803E+04 0.35867E+04 0.41414E+04 0.46061E+04 0.50853E+04 + 0.39149E+02 0.40264E+02 0.42423E+02 0.47753E+02 0.70023E+02 0.92471E+02 + 0.12908E+03 0.19828E+03 0.25692E+03 0.28846E+03 0.30694E+03 0.31996E+03 + 0.30920E+03 0.27948E+03 0.21220E+03 0.53099E+02 0.58876E+02 0.64039E+02 + 0.22849E+03 0.41597E+03 0.70676E+03 0.10748E+04 0.14505E+04 0.19849E+04 + 0.26131E+04 0.31929E+04 0.39643E+04 0.47926E+04 0.56992E+04 0.65411E+04 + 0.74233E+04 0.80886E+04 0.87194E+04 0.78537E+02 0.80773E+02 0.85103E+02 + 0.95795E+02 0.14047E+03 0.18550E+03 0.25894E+03 0.39777E+03 0.51546E+03 + 0.57883E+03 0.61615E+03 0.64268E+03 0.62170E+03 0.56320E+03 0.42976E+03 + 0.10877E+03 0.12748E+03 0.11195E+03 0.43490E+03 0.80218E+03 0.13705E+04 + 0.20873E+04 0.28149E+04 0.38451E+04 0.50466E+04 0.61400E+04 0.75812E+04 + 0.91007E+04 0.10727E+05 0.12179E+05 0.13639E+05 0.14626E+05 0.15470E+05 + 0.15751E+03 0.16200E+03 0.17068E+03 0.19212E+03 0.28172E+03 0.37203E+03 + 0.51935E+03 0.79782E+03 0.10340E+04 0.11613E+04 0.12367E+04 0.12908E+04 + 0.12499E+04 0.11349E+04 0.87022E+03 0.22261E+03 0.27396E+03 0.19287E+03 + 0.82805E+03 0.15492E+04 0.26632E+04 0.40647E+04 0.54812E+04 0.74806E+04 + 0.97992E+04 0.11886E+05 0.14619E+05 0.17460E+05 0.20449E+05 0.23029E+05 + 0.25535E+05 0.27051E+05 0.28194E+05 0.31584E+03 0.32482E+03 0.34223E+03 + 0.38523E+03 0.56488E+03 0.74599E+03 0.10414E+04 0.15999E+04 0.20738E+04 + 0.23297E+04 0.24819E+04 0.25922E+04 0.25128E+04 0.22865E+04 0.17616E+04 + 0.45521E+03 0.58503E+03 0.32574E+03 0.15764E+04 0.29945E+04 0.51828E+04 + 0.79307E+04 0.10699E+05 0.14599E+05 0.19102E+05 0.23123E+05 0.28363E+05 + 0.33752E+05 0.39346E+05 0.44049E+05 0.48487E+05 0.50900E+05 0.52461E+05 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.88178E-10 0.69307E-08 + 0.34725E-07 0.13697E-06 0.49591E-06 0.15613E-05 0.47050E-05 0.13250E-04 + 0.27855E-04 0.56836E-04 0.12214E-03 0.26019E-03 0.52731E-03 0.11069E-02 + 0.22884E-02 0.42772E-02 0.80458E-02 0.14764E-01 0.26599E-01 0.46113E-01 + 0.78490E-01 0.12734E+00 0.20204E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.49711E-08 0.38650E-06 0.19178E-05 0.75030E-05 0.26974E-04 + 0.84429E-04 0.25322E-03 0.71026E-03 0.14884E-02 0.30292E-02 0.64965E-02 + 0.13816E-01 0.27963E-01 0.58636E-01 0.12112E+00 0.22623E+00 0.42533E+00 + 0.78014E+00 0.14050E+01 0.24351E+01 0.41440E+01 0.67220E+01 0.10664E+02 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.12087E-07 0.92843E-06 + 0.45556E-05 0.17652E-04 0.62937E-04 0.19560E-03 0.58317E-03 0.16279E-02 + 0.33978E-02 0.68931E-02 0.14745E-01 0.31293E-01 0.63229E-01 0.13241E+00 + 0.27322E+00 0.50988E+00 0.95798E+00 0.17562E+01 0.31615E+01 0.54775E+01 + 0.93188E+01 0.15113E+02 0.23970E+02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.32583E-07 0.24719E-05 0.11981E-04 0.46403E-04 0.16215E-03 + 0.49968E-03 0.14792E-02 0.41052E-02 0.85409E-02 0.17279E-01 0.36842E-01 + 0.77981E-01 0.15712E+00 0.32778E+00 0.67547E+00 0.12592E+01 0.23639E+01 + 0.43305E+01 0.77916E+01 0.13494E+02 0.22949E+02 0.37207E+02 0.59000E+02 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.67548E-07 0.50658E-05 + 0.24243E-04 0.93131E-04 0.32071E-03 0.97857E-03 0.28724E-02 0.79156E-02 + 0.16384E-01 0.33004E-01 0.70069E-01 0.14777E+00 0.29686E+00 0.61791E+00 + 0.12712E+01 0.23666E+01 0.44378E+01 0.81229E+01 0.14605E+02 0.25279E+02 + 0.42974E+02 0.69649E+02 0.11041E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.10798E-06 0.80371E-05 0.38014E-04 0.14431E-03 0.49108E-03 + 0.14816E-02 0.43067E-02 0.11768E-01 0.24190E-01 0.48443E-01 0.10232E+00 + 0.21487E+00 0.43019E+00 0.89361E+00 0.18346E+01 0.34097E+01 0.63853E+01 + 0.11675E+02 0.20974E+02 0.36278E+02 0.61638E+02 0.99853E+02 0.15824E+03 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.14582E-06 0.10865E-04 + 0.50963E-04 0.19142E-03 0.64365E-03 0.19182E-02 0.55140E-02 0.14920E-01 + 0.30408E-01 0.60461E-01 0.12698E+00 0.26542E+00 0.52933E+00 0.10959E+01 + 0.22440E+01 0.41619E+01 0.77811E+01 0.14208E+02 0.25497E+02 0.44064E+02 + 0.74815E+02 0.12113E+03 0.19188E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.19469E-06 0.14806E-04 0.69435E-04 0.25914E-03 0.86203E-03 + 0.25362E-02 0.72018E-02 0.19270E-01 0.38887E-01 0.76668E-01 0.15992E+00 + 0.33238E+00 0.65971E+00 0.13602E+01 0.27766E+01 0.51362E+01 0.95827E+01 + 0.17469E+02 0.31306E+02 0.54045E+02 0.91682E+02 0.14834E+03 0.23483E+03 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.21037E-06 0.17265E-04 + 0.83007E-04 0.31072E-03 0.10287E-02 0.29895E-02 0.83843E-02 0.22157E-01 + 0.44225E-01 0.86349E-01 0.17869E+00 0.36889E+00 0.72797E+00 0.14939E+01 + 0.30380E+01 0.56020E+01 0.10425E+02 0.18966E+02 0.33935E+02 0.58504E+02 + 0.99140E+02 0.16026E+03 0.25353E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.17863E-06 0.18547E-04 0.96002E-04 0.36858E-03 0.12269E-02 + 0.35328E-02 0.97945E-02 0.25552E-01 0.50389E-01 0.97300E-01 0.19951E+00 + 0.40859E+00 0.80070E+00 0.16338E+01 0.33072E+01 0.60746E+01 0.11270E+02 + 0.20450E+02 0.36514E+02 0.62844E+02 0.10635E+03 0.17173E+03 0.27142E+03 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.14996E-04 + 0.99111E-04 0.41617E-03 0.14268E-02 0.41156E-02 0.11338E-01 0.29267E-01 + 0.57012E-01 0.10875E+00 0.22066E+00 0.44759E+00 0.86932E+00 0.17603E+01 + 0.35394E+01 0.64760E+01 0.12003E+02 0.21748E+02 0.38734E+02 0.66528E+02 + 0.11239E+03 0.18123E+03 0.28610E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.54588E-06 0.80783E-06 0.75698E-04 0.42679E-03 0.15915E-02 + 0.46931E-02 0.12965E-01 0.33259E-01 0.64021E-01 0.12048E+00 0.24155E+00 + 0.48428E+00 0.92978E+00 0.18632E+01 0.37107E+01 0.67634E+01 0.12562E+02 + 0.22758E+02 0.40404E+02 0.69213E+02 0.11668E+03 0.18779E+03 0.29601E+03 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.38081E-04 0.69636E-04 0.70395E-04 0.52420E-04 0.79239E-04 + 0.00000E+00 0.44218E-03 0.19125E-02 0.57171E-02 0.15630E-01 0.39360E-01 + 0.74904E-01 0.13877E+00 0.27385E+00 0.53983E+00 0.10185E+01 0.20095E+01 + 0.39321E+01 0.71167E+01 0.13194E+02 0.23841E+02 0.42158E+02 0.71976E+02 + 0.12101E+03 0.19431E+03 0.30568E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.58557E-03 0.10880E-02 + 0.11285E-02 0.88983E-03 0.99308E-03 0.74699E-03 0.20000E-03 0.27945E-02 + 0.85099E-02 0.22103E-01 0.52258E-01 0.98190E-01 0.17780E+00 0.34168E+00 + 0.65275E+00 0.11890E+01 0.22637E+01 0.42427E+01 0.75355E+01 0.13708E+02 + 0.24453E+02 0.43002E+02 0.73073E+02 0.12238E+03 0.19586E+03 0.30729E+03 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.23662E-02 0.34069E-02 0.36771E-02 0.33852E-02 0.24200E-02 + 0.27506E-02 0.14055E-02 0.22857E-02 0.98665E-02 0.27043E-01 0.63216E-01 + 0.11820E+00 0.21072E+00 0.39883E+00 0.74837E+00 0.13343E+01 0.24795E+01 + 0.45626E+01 0.79841E+01 0.14338E+02 0.25318E+02 0.44200E+02 0.74651E+02 + 0.12440E+03 0.19824E+03 0.30991E+03 0.28628E-03 0.33815E-03 0.40434E-03 + 0.48889E-03 0.67198E-03 0.68013E-03 0.89145E-03 0.66753E-02 0.83814E-02 + 0.92501E-02 0.92388E-02 0.56321E-02 0.73411E-02 0.52317E-02 0.00000E+00 + 0.10153E-01 0.32274E-01 0.76881E-01 0.14398E+00 0.25331E+00 0.47187E+00 + 0.86848E+00 0.15162E+01 0.27641E+01 0.49972E+01 0.86040E+01 0.15241E+02 + 0.26599E+02 0.45980E+02 0.77014E+02 0.12746E+03 0.20194E+03 0.31417E+03 + 0.21337E-02 0.25162E-02 0.30029E-02 0.36225E-02 0.49670E-02 0.50131E-02 + 0.65517E-02 0.16741E-01 0.20527E-01 0.22810E-01 0.23504E-01 0.18334E-01 + 0.20740E-01 0.16312E-01 0.89764E-02 0.41858E-02 0.32419E-01 0.88104E-01 + 0.17160E+00 0.30319E+00 0.56234E+00 0.10210E+01 0.17485E+01 0.31292E+01 + 0.55543E+01 0.93938E+01 0.16386E+02 0.28212E+02 0.48206E+02 0.79936E+02 + 0.13119E+03 0.20635E+03 0.31909E+03 0.91724E-02 0.10802E-01 0.12870E-01 + 0.15495E-01 0.21196E-01 0.21335E-01 0.27798E-01 0.41321E-01 0.49268E-01 + 0.54949E-01 0.58049E-01 0.55369E-01 0.54063E-01 0.40913E-01 0.28259E-01 + 0.90174E-02 0.30629E-01 0.10574E+00 0.21744E+00 0.38653E+00 0.71250E+00 + 0.12715E+01 0.21262E+01 0.37158E+01 0.64405E+01 0.10643E+02 0.18187E+02 + 0.30744E+02 0.51704E+02 0.84564E+02 0.13718E+03 0.21364E+03 0.32764E+03 + 0.30749E-01 0.34750E-01 0.40539E-01 0.50377E-01 0.56804E-01 0.57065E-01 + 0.75228E-01 0.96794E-01 0.11230E+00 0.12289E+00 0.12881E+00 0.12985E+00 + 0.12509E+00 0.10359E+00 0.71877E-01 0.40484E-01 0.12907E-01 0.11742E+00 + 0.27193E+00 0.49661E+00 0.92047E+00 0.16237E+01 0.26571E+01 0.45377E+01 + 0.76739E+01 0.12366E+02 0.20654E+02 0.34189E+02 0.56433E+02 0.90793E+02 + 0.14523E+03 0.22343E+03 0.33913E+03 0.83771E-01 0.91924E-01 0.10517E+00 + 0.13213E+00 0.13251E+00 0.13292E+00 0.16801E+00 0.20850E+00 0.23702E+00 + 0.25476E+00 0.26660E+00 0.27011E+00 0.26401E+00 0.23862E+00 0.17550E+00 + 0.93206E-01 0.33690E-01 0.11599E+00 0.33888E+00 0.65031E+00 0.12244E+01 + 0.21445E+01 0.34404E+01 0.57431E+01 0.94670E+01 0.14848E+02 0.24172E+02 + 0.39061E+02 0.63077E+02 0.99505E+02 0.15646E+03 0.23712E+03 0.35533E+03 + 0.20417E+00 0.22074E+00 0.24649E+00 0.29572E+00 0.29628E+00 0.29685E+00 + 0.35081E+00 0.42892E+00 0.48594E+00 0.52111E+00 0.55111E+00 0.55871E+00 + 0.54625E+00 0.50339E+00 0.42055E+00 0.25443E+00 0.89971E-01 0.80406E-01 + 0.42069E+00 0.87791E+00 0.17000E+01 0.29705E+01 0.46803E+01 0.76390E+01 + 0.12259E+02 0.18668E+02 0.29529E+02 0.46400E+02 0.72995E+02 0.11242E+03 + 0.17302E+03 0.25730E+03 0.37930E+03 0.45185E+00 0.54567E+00 0.63286E+00 + 0.63460E+00 0.63530E+00 0.63594E+00 0.74015E+00 0.89325E+00 0.10134E+01 + 0.10861E+01 0.11381E+01 0.11566E+01 0.11356E+01 0.10514E+01 0.90944E+00 + 0.71653E+00 0.33856E+00 0.41063E-01 0.48483E+00 0.12222E+01 0.24757E+01 + 0.43432E+01 0.67396E+01 0.10769E+02 0.16823E+02 0.24833E+02 0.38060E+02 + 0.57940E+02 0.88402E+02 0.13227E+03 0.19827E+03 0.28790E+03 0.41560E+03 + 0.89020E+00 0.10893E+01 0.12736E+01 0.12746E+01 0.12753E+01 0.12758E+01 + 0.14797E+01 0.17661E+01 0.20004E+01 0.21419E+01 0.22357E+01 0.22694E+01 + 0.22633E+01 0.21245E+01 0.18628E+01 0.15280E+01 0.98614E+00 0.37989E+00 + 0.51786E+00 0.16468E+01 0.35813E+01 0.63735E+01 0.98072E+01 0.15429E+02 + 0.23569E+02 0.33843E+02 0.50374E+02 0.74373E+02 0.11005E+03 0.15980E+03 + 0.23290E+03 0.32946E+03 0.46454E+03 0.17380E+01 0.21262E+01 0.24852E+01 + 0.24863E+01 0.24867E+01 0.24863E+01 0.28818E+01 0.34374E+01 0.38906E+01 + 0.41629E+01 0.43435E+01 0.44087E+01 0.43997E+01 0.41437E+01 0.36657E+01 + 0.30617E+01 0.20827E+01 0.10538E+01 0.47799E+00 0.23562E+01 0.55062E+01 + 0.99207E+01 0.15136E+02 0.23451E+02 0.35042E+02 0.48961E+02 0.70733E+02 + 0.10114E+03 0.14478E+03 0.20337E+03 0.28703E+03 0.39380E+03 0.53982E+03 + 0.33691E+01 0.41207E+01 0.48155E+01 0.48163E+01 0.48156E+01 0.48131E+01 + 0.55764E+01 0.66485E+01 0.75217E+01 0.80450E+01 0.83933E+01 0.85216E+01 + 0.85116E+01 0.80421E+01 0.71701E+01 0.60781E+01 0.42993E+01 0.25351E+01 + 0.11843E+00 0.33082E+01 0.85614E+01 0.15744E+02 0.23940E+02 0.36694E+02 + 0.53862E+02 0.73496E+02 0.10336E+03 0.14343E+03 0.19884E+03 0.27013E+03 + 0.36869E+03 0.48947E+03 0.65030E+03 0.64257E+01 0.78583E+01 0.91819E+01 + 0.91816E+01 0.91783E+01 0.91714E+01 0.10623E+02 0.12662E+02 0.14321E+02 + 0.15315E+02 0.15980E+02 0.16233E+02 0.16231E+02 0.15384E+02 0.13812E+02 + 0.11856E+02 0.86454E+01 0.56296E+01 0.10264E+01 0.44238E+01 0.13269E+02 + 0.25125E+02 0.38271E+02 0.58309E+02 0.84463E+02 0.11305E+03 0.15542E+03 + 0.21004E+03 0.28278E+03 0.37221E+03 0.49161E+03 0.63124E+03 0.81163E+03 + 0.13146E+02 0.16075E+02 0.18781E+02 0.18778E+02 0.18770E+02 0.18754E+02 + 0.21720E+02 0.25889E+02 0.29286E+02 0.31333E+02 0.32729E+02 0.33308E+02 + 0.33404E+02 0.31861E+02 0.28959E+02 0.25366E+02 0.19320E+02 0.14139E+02 + 0.58913E+01 0.37540E+01 0.19228E+02 0.39625E+02 0.61686E+02 0.94714E+02 + 0.13663E+03 0.18050E+03 0.24391E+03 0.32239E+03 0.42281E+03 0.54015E+03 + 0.69070E+03 0.85686E+03 0.10636E+04 0.23558E+02 0.28805E+02 0.33651E+02 + 0.33642E+02 0.33621E+02 0.33586E+02 0.38889E+02 0.46337E+02 0.52397E+02 + 0.56031E+02 0.58490E+02 0.59477E+02 0.59589E+02 0.56766E+02 0.51514E+02 + 0.45034E+02 0.34216E+02 0.24964E+02 0.10362E+02 0.65714E+01 0.33462E+02 + 0.68465E+02 0.10565E+03 0.16048E+03 0.22854E+03 0.29731E+03 0.39454E+03 + 0.51065E+03 0.65382E+03 0.81314E+03 0.10096E+04 0.12135E+04 0.14575E+04 + 0.47329E+02 0.57869E+02 0.67600E+02 0.67579E+02 0.67535E+02 0.67463E+02 + 0.78117E+02 0.93086E+02 0.10528E+03 0.11264E+03 0.11770E+03 0.11987E+03 + 0.12039E+03 0.11526E+03 0.10555E+03 0.93607E+02 0.73197E+02 0.57093E+02 + 0.30557E+02 0.00000E+00 0.48174E+02 0.11025E+03 0.17517E+03 0.26979E+03 + 0.38497E+03 0.49766E+03 0.65392E+03 0.83421E+03 0.10485E+04 0.12749E+04 + 0.15420E+04 0.17992E+04 0.20919E+04 0.84960E+02 0.10388E+03 0.12134E+03 + 0.12130E+03 0.12122E+03 0.12110E+03 0.14023E+03 0.16712E+03 0.18907E+03 + 0.20238E+03 0.21166E+03 0.21589E+03 0.21730E+03 0.20892E+03 0.19280E+03 + 0.17300E+03 0.13832E+03 0.11308E+03 0.69463E+02 0.19459E+02 0.59002E+02 + 0.15945E+03 0.26345E+03 0.41381E+03 0.59451E+03 0.76739E+03 0.10038E+04 + 0.12699E+04 0.15774E+04 0.18888E+04 0.22431E+04 0.25610E+04 0.29058E+04 + 0.15206E+03 0.18592E+03 0.21718E+03 0.21710E+03 0.21696E+03 0.21674E+03 + 0.25100E+03 0.29917E+03 0.33854E+03 0.36253E+03 0.37946E+03 0.38753E+03 + 0.39081E+03 0.37710E+03 0.35024E+03 0.31728E+03 0.25817E+03 0.21852E+03 + 0.14645E+03 0.64094E+02 0.64628E+02 0.22856E+03 0.39695E+03 0.63881E+03 + 0.92641E+03 0.11965E+04 0.15615E+04 0.19633E+04 0.24163E+04 0.28569E+04 + 0.33403E+04 0.37420E+04 0.41537E+04 0.28418E-09 0.12097E-08 0.32125E-08 + 0.79130E-08 0.18500E-07 0.33348E-07 0.68730E-07 0.11773E-06 0.21754E-06 + 0.44379E-06 0.10218E-05 0.18475E-05 0.71143E-05 0.35797E-04 0.27341E-03 + 0.48301E-03 0.23427E-02 0.66030E-02 0.13959E-01 0.27104E-01 0.49862E-01 + 0.87046E-01 0.14178E+00 0.22630E+00 0.35397E+00 0.52232E+00 0.78259E+00 + 0.11446E+01 0.16452E+01 0.22783E+01 0.31025E+01 0.40344E+01 0.51426E+01 + 0.40303E-09 0.65617E-09 0.28558E-08 0.80588E-08 0.20631E-07 0.46378E-07 + 0.83107E-07 0.16232E-06 0.30427E-06 0.57889E-06 0.12803E-05 0.20202E-05 + 0.12448E-04 0.61020E-04 0.48430E-03 0.71800E-03 0.29976E-02 0.84230E-02 + 0.17760E-01 0.34412E-01 0.63190E-01 0.11014E+00 0.17916E+00 0.28564E+00 + 0.44631E+00 0.65787E+00 0.98459E+00 0.14384E+01 0.20648E+01 0.28553E+01 + 0.38813E+01 0.50368E+01 0.64041E+01 0.19295E-08 0.10129E-08 0.14973E-08 + 0.72687E-08 0.21287E-07 0.51896E-07 0.11577E-06 0.20724E-06 0.47884E-06 + 0.81965E-06 0.16192E-05 0.39045E-05 0.25583E-04 0.11558E-03 0.76459E-03 + 0.13074E-02 0.38859E-02 0.10781E-01 0.22659E-01 0.43786E-01 0.80227E-01 + 0.13959E+00 0.22671E+00 0.36094E+00 0.56332E+00 0.82939E+00 0.12401E+01 + 0.18096E+01 0.25947E+01 0.35834E+01 0.48639E+01 0.63009E+01 0.79949E+01 + 0.44620E-08 0.46919E-08 0.25389E-08 0.41336E-08 0.19850E-07 0.53938E-07 + 0.12996E-06 0.27609E-06 0.66585E-06 0.14198E-05 0.25796E-05 0.88430E-05 + 0.48645E-04 0.25011E-03 0.11039E-02 0.20908E-02 0.51515E-02 0.13466E-01 + 0.29003E-01 0.55863E-01 0.10208E+00 0.17722E+00 0.28730E+00 0.45671E+00 + 0.71183E+00 0.10468E+01 0.15633E+01 0.22789E+01 0.32642E+01 0.45028E+01 + 0.61040E+01 0.78957E+01 0.10001E+02 0.13072E-07 0.11474E-07 0.12414E-07 + 0.67170E-08 0.11483E-07 0.49236E-07 0.13347E-06 0.32108E-06 0.86355E-06 + 0.21168E-05 0.44928E-05 0.15656E-04 0.83324E-04 0.43922E-03 0.14559E-02 + 0.29943E-02 0.68285E-02 0.15882E-01 0.35675E-01 0.71498E-01 0.13023E+00 + 0.22548E+00 0.36475E+00 0.57877E+00 0.90064E+00 0.13227E+01 0.19731E+01 + 0.28732E+01 0.41108E+01 0.56646E+01 0.76701E+01 0.99089E+01 0.12533E+02 + 0.18612E-07 0.31131E-07 0.29233E-07 0.30619E-07 0.14928E-07 0.28644E-07 + 0.11965E-06 0.32403E-06 0.94489E-06 0.27943E-05 0.73555E-05 0.32298E-04 + 0.13184E-03 0.67390E-03 0.18282E-02 0.37884E-02 0.87249E-02 0.19070E-01 + 0.39879E-01 0.87035E-01 0.16666E+00 0.28763E+00 0.46404E+00 0.73470E+00 + 0.11412E+01 0.16734E+01 0.24929E+01 0.36260E+01 0.51824E+01 0.71331E+01 + 0.96485E+01 0.12450E+02 0.15727E+02 0.36939E-07 0.48803E-07 0.68878E-07 + 0.80832E-07 0.78927E-07 0.45120E-07 0.69849E-07 0.27399E-06 0.87043E-06 + 0.29640E-05 0.10501E-04 0.68872E-04 0.20952E-03 0.87399E-03 0.22055E-02 + 0.46691E-02 0.10271E-01 0.22666E-01 0.45397E-01 0.93627E-01 0.20172E+00 + 0.36805E+00 0.59185E+00 0.93460E+00 0.14486E+01 0.21202E+01 0.31537E+01 + 0.45811E+01 0.65397E+01 0.89917E+01 0.12150E+02 0.15661E+02 0.19759E+02 + 0.76924E-07 0.99048E-07 0.13198E-06 0.16653E-06 0.24598E-06 0.24082E-06 + 0.15058E-06 0.19535E-06 0.68283E-06 0.23892E-05 0.11491E-04 0.93327E-04 + 0.34369E-03 0.10743E-02 0.26276E-02 0.55610E-02 0.11912E-01 0.25608E-01 + 0.51558E-01 0.10222E+00 0.21237E+00 0.44412E+00 0.75709E+00 0.11918E+01 + 0.18423E+01 0.26907E+01 0.39950E+01 0.57942E+01 0.82609E+01 0.11345E+02 + 0.15312E+02 0.19717E+02 0.24850E+02 0.16883E-06 0.22610E-06 0.26696E-06 + 0.35152E-06 0.47530E-06 0.73112E-06 0.78188E-06 0.48766E-06 0.65358E-06 + 0.17882E-05 0.76323E-05 0.97770E-04 0.44748E-03 0.12809E-02 0.30499E-02 + 0.63738E-02 0.13465E-01 0.28582E-01 0.56424E-01 0.11170E+00 0.22610E+00 + 0.46239E+00 0.91135E+00 0.15240E+01 0.23485E+01 0.34210E+01 0.50686E+01 + 0.73384E+01 0.10447E+02 0.14328E+02 0.19316E+02 0.24845E+02 0.31278E+02 + 0.35944E-06 0.45449E-06 0.57624E-06 0.84600E-06 0.14069E-05 0.19466E-05 + 0.37917E-05 0.48615E-05 0.28415E-05 0.35164E-05 0.83884E-05 0.83019E-04 + 0.46660E-03 0.14176E-02 0.34779E-02 0.71694E-02 0.14851E-01 0.31158E-01 + 0.61311E-01 0.11893E+00 0.24141E+00 0.48554E+00 0.94029E+00 0.18334E+01 + 0.30018E+01 0.43588E+01 0.64417E+01 0.93069E+01 0.13226E+02 0.18113E+02 + 0.24387E+02 0.31330E+02 0.39400E+02 0.74234E-06 0.96146E-06 0.12411E-05 + 0.16017E-05 0.40119E-05 0.78501E-05 0.14259E-04 0.26588E-04 0.35746E-04 + 0.20326E-04 0.26706E-04 0.87819E-04 0.42290E-03 0.14589E-02 0.38377E-02 + 0.80222E-02 0.16633E-01 0.33405E-01 0.66059E-01 0.12652E+00 0.25423E+00 + 0.51161E+00 0.97644E+00 0.18901E+01 0.36086E+01 0.55671E+01 0.82030E+01 + 0.11822E+02 0.16765E+02 0.22921E+02 0.30814E+02 0.39533E+02 0.49657E+02 + 0.30292E-05 0.54119E-05 0.85601E-05 0.18883E-04 0.36543E-04 0.64216E-04 + 0.92224E-04 0.12285E-03 0.15066E-03 0.15926E-03 0.82394E-04 0.92142E-04 + 0.44128E-03 0.15048E-02 0.40308E-02 0.87164E-02 0.18433E-01 0.37355E-01 + 0.71290E-01 0.13479E+00 0.26988E+00 0.53426E+00 0.10167E+01 0.19595E+01 + 0.37150E+01 0.66830E+01 0.10465E+02 0.15038E+02 0.21275E+02 0.29027E+02 + 0.38957E+02 0.49901E+02 0.62594E+02 0.23363E-04 0.40239E-04 0.68986E-04 + 0.10690E-03 0.17107E-03 0.26532E-03 0.37577E-03 0.48116E-03 0.55092E-03 + 0.58103E-03 0.50874E-03 0.27018E-03 0.20171E-03 0.16000E-02 0.42767E-02 + 0.92337E-02 0.19841E-01 0.40568E-01 0.77557E-01 0.14533E+00 0.28738E+00 + 0.56146E+00 0.10536E+01 0.20365E+01 0.38453E+01 0.68682E+01 0.12545E+02 + 0.19160E+02 0.27030E+02 0.36790E+02 0.49276E+02 0.63007E+02 0.78905E+02 + 0.84797E-04 0.10820E-03 0.20459E-03 0.37290E-03 0.59462E-03 0.81572E-03 + 0.10610E-02 0.12687E-02 0.14615E-02 0.15888E-02 0.15806E-02 0.13865E-02 + 0.85497E-03 0.51207E-03 0.49452E-02 0.98445E-02 0.20608E-01 0.42984E-01 + 0.82860E-01 0.15389E+00 0.30301E+00 0.59145E+00 0.10955E+01 0.21039E+01 + 0.39855E+01 0.70889E+01 0.12863E+02 0.22920E+02 0.34371E+02 0.46650E+02 + 0.62334E+02 0.79531E+02 0.99409E+02 0.38917E-03 0.49598E-03 0.63425E-03 + 0.93441E-03 0.14033E-02 0.20208E-02 0.25634E-02 0.31009E-02 0.35470E-02 + 0.39000E-02 0.40564E-02 0.40294E-02 0.36330E-02 0.21281E-02 0.12983E-02 + 0.13348E-01 0.20832E-01 0.43853E-01 0.86514E-01 0.16150E+00 0.31874E+00 + 0.62030E+00 0.11411E+01 0.21789E+01 0.41032E+01 0.73196E+01 0.13237E+02 + 0.23436E+02 0.41012E+02 0.59162E+02 0.78835E+02 0.10032E+03 0.12511E+03 + 0.13074E-02 0.16630E-02 0.21212E-02 0.27135E-02 0.34319E-02 0.43371E-02 + 0.55206E-02 0.65415E-02 0.75135E-02 0.82113E-02 0.86076E-02 0.86592E-02 + 0.85945E-02 0.69580E-02 0.29114E-02 0.42237E-02 0.32459E-01 0.45610E-01 + 0.91370E-01 0.17215E+00 0.34095E+00 0.66106E+00 0.12058E+01 0.22852E+01 + 0.42701E+01 0.75570E+01 0.13704E+02 0.24163E+02 0.41994E+02 0.70650E+02 + 0.10004E+03 0.12689E+03 0.15780E+03 0.30698E-02 0.38972E-02 0.49584E-02 + 0.63236E-02 0.80848E-02 0.96276E-02 0.11158E-01 0.13138E-01 0.14780E-01 + 0.16254E-01 0.17027E-01 0.17281E-01 0.16884E-01 0.15501E-01 0.10486E-01 + 0.18901E-02 0.14755E-01 0.78455E-01 0.99557E-01 0.18648E+00 0.37153E+00 + 0.71743E+00 0.12956E+01 0.24323E+01 0.45011E+01 0.78873E+01 0.14187E+02 + 0.25063E+02 0.43359E+02 0.72406E+02 0.11954E+03 0.16105E+03 0.19958E+03 + 0.61716E-02 0.78209E-02 0.99298E-02 0.12631E-01 0.16101E-01 0.20574E-01 + 0.23709E-01 0.26071E-01 0.29048E-01 0.31315E-01 0.32981E-01 0.33521E-01 + 0.33754E-01 0.31536E-01 0.25723E-01 0.15364E-01 0.45002E-02 0.39635E-01 + 0.17532E+00 0.20400E+00 0.40566E+00 0.78470E+00 0.14052E+01 0.26149E+01 + 0.47899E+01 0.83005E+01 0.14791E+02 0.25913E+02 0.44913E+02 0.74631E+02 + 0.12229E+03 0.19201E+03 0.25267E+03 0.10807E-01 0.13675E-01 0.17331E-01 + 0.21998E-01 0.27969E-01 0.35632E-01 0.45486E-01 0.51391E-01 0.54611E-01 + 0.58523E-01 0.61062E-01 0.62500E-01 0.62620E-01 0.60106E-01 0.52259E-01 + 0.39057E-01 0.14227E-01 0.28574E-01 0.10010E+00 0.37720E+00 0.46068E+00 + 0.87599E+00 0.15551E+01 0.28649E+01 0.51850E+01 0.88672E+01 0.15622E+02 + 0.27085E+02 0.46522E+02 0.77393E+02 0.12615E+03 0.19646E+03 0.30122E+03 + 0.17003E-01 0.21487E-01 0.27189E-01 0.34448E-01 0.43702E-01 0.55531E-01 + 0.70672E-01 0.90067E-01 0.10040E+00 0.10423E+00 0.10836E+00 0.11051E+00 + 0.11074E+00 0.10709E+00 0.95959E-01 0.77932E-01 0.45093E-01 0.96793E-02 + 0.98284E-01 0.23608E+00 0.90290E+00 0.10282E+01 0.17682E+01 0.32178E+01 + 0.57394E+01 0.96613E+01 0.16784E+02 0.28730E+02 0.48793E+02 0.80365E+02 + 0.13109E+03 0.20294E+03 0.30854E+03 0.26417E-01 0.33344E-01 0.42137E-01 + 0.53306E-01 0.67509E-01 0.85605E-01 0.10868E+00 0.13812E+00 0.17558E+00 + 0.19369E+00 0.19727E+00 0.20061E+00 0.20071E+00 0.19359E+00 0.17730E+00 + 0.15232E+00 0.10775E+00 0.35789E-01 0.76826E-01 0.24602E+00 0.58376E+00 + 0.20406E+01 0.20355E+01 0.36692E+01 0.64532E+01 0.10682E+02 0.18277E+02 + 0.30836E+02 0.51694E+02 0.84150E+02 0.13588E+03 0.21039E+03 0.31789E+03 + 0.37979E-01 0.47887E-01 0.60442E-01 0.76363E-01 0.96560E-01 0.12222E+00 + 0.15484E+00 0.19631E+00 0.24886E+00 0.31515E+00 0.34432E+00 0.34632E+00 + 0.34665E+00 0.33539E+00 0.30892E+00 0.27124E+00 0.20726E+00 0.10769E+00 + 0.42610E-01 0.26017E+00 0.68583E+00 0.13957E+01 0.24256E+01 0.43202E+01 + 0.74722E+01 0.12132E+02 0.20383E+02 0.33799E+02 0.55776E+02 0.89514E+02 + 0.14277E+03 0.21866E+03 0.33032E+03 0.54373E-01 0.68491E-01 0.86351E-01 + 0.10897E+00 0.13762E+00 0.17394E+00 0.21999E+00 0.27839E+00 0.35219E+00 + 0.44506E+00 0.56031E+00 0.60830E+00 0.60703E+00 0.59312E+00 0.55487E+00 + 0.49827E+00 0.40522E+00 0.26502E+00 0.60332E-01 0.22546E+00 0.77435E+00 + 0.16632E+01 0.29056E+01 0.51486E+01 0.87848E+01 0.13998E+02 0.23090E+02 + 0.37591E+02 0.60971E+02 0.96291E+02 0.15141E+03 0.22892E+03 0.34198E+03 + 0.75437E-01 0.94923E-01 0.11956E+00 0.15071E+00 0.19010E+00 0.23997E+00 + 0.30308E+00 0.38290E+00 0.48353E+00 0.60981E+00 0.76623E+00 0.95855E+00 + 0.10324E+01 0.10069E+01 0.95289E+00 0.86893E+00 0.72820E+00 0.52265E+00 + 0.23211E+00 0.15962E+00 0.89475E+00 0.20487E+01 0.36003E+01 0.63419E+01 + 0.10661E+02 0.16644E+02 0.26898E+02 0.42892E+02 0.68200E+02 0.10572E+03 + 0.16347E+03 0.24343E+03 0.35886E+03 0.11258E+00 0.14150E+00 0.17804E+00 + 0.22421E+00 0.28254E+00 0.35631E+00 0.44952E+00 0.56730E+00 0.71564E+00 + 0.90176E+00 0.11327E+01 0.14174E+01 0.17649E+01 0.18705E+01 0.17874E+01 + 0.16747E+01 0.14738E+01 0.11758E+01 0.76584E+00 0.23028E+00 0.76015E+00 + 0.22725E+01 0.42277E+01 0.76201E+01 0.12813E+02 0.19743E+02 0.31419E+02 + 0.49195E+02 0.76754E+02 0.11671E+03 0.17727E+03 0.25949E+03 0.37664E+03 + 0.16422E+00 0.20616E+00 0.25912E+00 0.32599E+00 0.41043E+00 0.51705E+00 + 0.65173E+00 0.82163E+00 0.10355E+01 0.13036E+01 0.16366E+01 0.20478E+01 + 0.25511E+01 0.31311E+01 0.32584E+01 0.30829E+01 0.28013E+01 0.23695E+01 + 0.17717E+01 0.10131E+01 0.36555E+00 0.24133E+01 0.49601E+01 0.92922E+01 + 0.15725E+02 0.23971E+02 0.37608E+02 0.57810E+02 0.88410E+02 0.13166E+03 + 0.19601E+03 0.28139E+03 0.40121E+03 0.23563E+00 0.29541E+00 0.37084E+00 + 0.46604E+00 0.58616E+00 0.73774E+00 0.92906E+00 0.11702E+01 0.14734E+01 + 0.18536E+01 0.23257E+01 0.29093E+01 0.36247E+01 0.44575E+01 0.53816E+01 + 0.55480E+01 0.51106E+01 0.44923E+01 0.36187E+01 0.25111E+01 0.53608E+00 + 0.23212E+01 0.57466E+01 0.11453E+02 0.19668E+02 0.29763E+02 0.46125E+02 + 0.69650E+02 0.10437E+03 0.15203E+03 0.22148E+03 0.31115E+03 0.43478E+03 + 0.35153E+00 0.43999E+00 0.55160E+00 0.69239E+00 0.86996E+00 0.10940E+01 + 0.13765E+01 0.17324E+01 0.21800E+01 0.27411E+01 0.34392E+01 0.43039E+01 + 0.53680E+01 0.66223E+01 0.80471E+01 0.96697E+01 0.97999E+01 0.88686E+01 + 0.76352E+01 0.60465E+01 0.31889E+01 0.85095E+00 0.55269E+01 0.13176E+02 + 0.23862E+02 0.36424E+02 0.56390E+02 0.84200E+02 0.12410E+03 0.17709E+03 + 0.25248E+03 0.34662E+03 0.47362E+03 0.51361E+00 0.64163E+00 0.80311E+00 + 0.10067E+01 0.12634E+01 0.15871E+01 0.19952E+01 0.25090E+01 0.31553E+01 + 0.39654E+01 0.49741E+01 0.62253E+01 0.77684E+01 0.96030E+01 0.11718E+02 + 0.14168E+02 0.16762E+02 0.16712E+02 0.14841E+02 0.12577E+02 0.83981E+01 + 0.25309E+01 0.40522E+01 0.14622E+02 0.28960E+02 0.45091E+02 0.70207E+02 + 0.10403E+03 0.15109E+03 0.21132E+03 0.29471E+03 0.39488E+03 0.52664E+03 + 0.73938E+00 0.92156E+00 0.11513E+01 0.14408E+01 0.18058E+01 0.22659E+01 + 0.28457E+01 0.35756E+01 0.44932E+01 0.56435E+01 0.70765E+01 0.88560E+01 + 0.11054E+02 0.13683E+02 0.16747E+02 0.20334E+02 0.24239E+02 0.28251E+02 + 0.27696E+02 0.24252E+02 0.18149E+02 0.95221E+01 0.00000E+00 0.15009E+02 + 0.34815E+02 0.56185E+02 0.88755E+02 0.13111E+03 0.18818E+03 0.25828E+03 + 0.35250E+03 0.46063E+03 0.59876E+03 0.10896E+01 0.13542E+01 0.16878E+01 + 0.21083E+01 0.26383E+01 0.33062E+01 0.41476E+01 0.52067E+01 0.65381E+01 + 0.82081E+01 0.10290E+02 0.12880E+02 0.16085E+02 0.19944E+02 0.24492E+02 + 0.29879E+02 0.35898E+02 0.42361E+02 0.48882E+02 0.47675E+02 0.38500E+02 + 0.25931E+02 0.12093E+02 0.95665E+01 0.37442E+02 0.66323E+02 0.10946E+03 + 0.16362E+03 0.23416E+03 0.31700E+03 0.42466E+03 0.54152E+03 0.68552E+03 + 0.16290E+01 0.20178E+01 0.25077E+01 0.31253E+01 0.39036E+01 0.48842E+01 + 0.61194E+01 0.76741E+01 0.96288E+01 0.12081E+02 0.15143E+02 0.18956E+02 + 0.23688E+02 0.29419E+02 0.36246E+02 0.44411E+02 0.53741E+02 0.64104E+02 + 0.75173E+02 0.86635E+02 0.79881E+02 0.61112E+02 0.41161E+02 0.95978E+01 + 0.30371E+02 0.70239E+02 0.12867E+03 0.19950E+03 0.28859E+03 0.38820E+03 + 0.51288E+03 0.63922E+03 0.78796E+03 0.23956E+01 0.29552E+01 0.36604E+01 + 0.45489E+01 0.56687E+01 0.70793E+01 0.88561E+01 0.11092E+02 0.13904E+02 + 0.17432E+02 0.21842E+02 0.27338E+02 0.34168E+02 0.42481E+02 0.52451E+02 + 0.64463E+02 0.78384E+02 0.94180E+02 0.11161E+03 0.13052E+03 0.14351E+03 + 0.12681E+03 0.97011E+02 0.50820E+02 0.76180E+01 0.64282E+02 0.14581E+03 + 0.24140E+03 0.35756E+03 0.48101E+03 0.62936E+03 0.76806E+03 0.92247E+03 + 0.48655E-10 0.60526E-09 0.21435E-08 0.60628E-08 0.11294E-07 0.26653E-07 + 0.44152E-07 0.76346E-07 0.14745E-06 0.32633E-06 0.68926E-06 0.14205E-05 + 0.42778E-05 0.14080E-04 0.17884E-03 0.36260E-03 0.17626E-02 0.49818E-02 + 0.10559E-01 0.20545E-01 0.37862E-01 0.66199E-01 0.10797E+00 0.17256E+00 + 0.27027E+00 0.39931E+00 0.59910E+00 0.87760E+00 0.12636E+01 0.17535E+01 + 0.23936E+01 0.31220E+01 0.39940E+01 0.83987E-09 0.15447E-09 0.13836E-08 + 0.53833E-08 0.15876E-07 0.28322E-07 0.66415E-07 0.10322E-06 0.20043E-06 + 0.42139E-06 0.95665E-06 0.18109E-05 0.66132E-05 0.32097E-04 0.24258E-03 + 0.46260E-03 0.22453E-02 0.63328E-02 0.13396E-01 0.26023E-01 0.47888E-01 + 0.83627E-01 0.13624E+00 0.21752E+00 0.34032E+00 0.50225E+00 0.75267E+00 + 0.11011E+01 0.15830E+01 0.21928E+01 0.29870E+01 0.38858E+01 0.49555E+01 + 0.26006E-08 0.20390E-08 0.40868E-09 0.36606E-08 0.14511E-07 0.40144E-07 + 0.70871E-07 0.14777E-06 0.27557E-06 0.52913E-06 0.12310E-05 0.19676E-05 + 0.10529E-04 0.55958E-04 0.44291E-03 0.63191E-03 0.28697E-02 0.80716E-02 + 0.17032E-01 0.33019E-01 0.60661E-01 0.10578E+00 0.17212E+00 0.27447E+00 + 0.42898E+00 0.63242E+00 0.94671E+00 0.13834E+01 0.19862E+01 0.27473E+01 + 0.37356E+01 0.48493E+01 0.61681E+01 0.69326E-08 0.68114E-08 0.56022E-08 + 0.12975E-08 0.96847E-08 0.35832E-07 0.99129E-07 0.17541E-06 0.40856E-06 + 0.74836E-06 0.14640E-05 0.32452E-05 0.22791E-04 0.95964E-04 0.70775E-03 + 0.11913E-02 0.36948E-02 0.10318E-01 0.21707E-01 0.41980E-01 0.76969E-01 + 0.13399E+00 0.21769E+00 0.34672E+00 0.54127E+00 0.79713E+00 0.11920E+01 + 0.17400E+01 0.24953E+01 0.34469E+01 0.46798E+01 0.60640E+01 0.76969E+01 + 0.12071E-07 0.17332E-07 0.17202E-07 0.13833E-07 0.20594E-08 0.24597E-07 + 0.89383E-07 0.21666E-06 0.55677E-06 0.11721E-05 0.22566E-05 0.74517E-05 + 0.42694E-04 0.22158E-03 0.10463E-02 0.19311E-02 0.48928E-02 0.13082E-01 + 0.27748E-01 0.53501E-01 0.97852E-01 0.16999E+00 0.27573E+00 0.43852E+00 + 0.68371E+00 0.10057E+01 0.15024E+01 0.21907E+01 0.31383E+01 0.43300E+01 + 0.58711E+01 0.75964E+01 0.96246E+01 0.32137E-07 0.30248E-07 0.43672E-07 + 0.42910E-07 0.32939E-07 0.49041E-08 0.61009E-07 0.22133E-06 0.62764E-06 + 0.17539E-05 0.38134E-05 0.14350E-04 0.75542E-04 0.39492E-03 0.13721E-02 + 0.28583E-02 0.64711E-02 0.15358E-01 0.34954E-01 0.68374E-01 0.12469E+00 + 0.21610E+00 0.34980E+00 0.55537E+00 0.86462E+00 0.12703E+01 0.18954E+01 + 0.27609E+01 0.39511E+01 0.54455E+01 0.73752E+01 0.95297E+01 0.12056E+02 + 0.42184E-07 0.78395E-07 0.76044E-07 0.10723E-06 0.10527E-06 0.82165E-07 + 0.12975E-07 0.14772E-06 0.73069E-06 0.19848E-05 0.60318E-05 0.25509E-04 + 0.11442E-03 0.62373E-03 0.17399E-02 0.35893E-02 0.84270E-02 0.18341E-01 + 0.38887E-01 0.85739E-01 0.15931E+00 0.27531E+00 0.44457E+00 0.70442E+00 + 0.10949E+01 0.16061E+01 0.23936E+01 0.34827E+01 0.49787E+01 0.68550E+01 + 0.92741E+01 0.11969E+02 0.15123E+02 0.80674E-07 0.10778E-06 0.16492E-06 + 0.19930E-06 0.24378E-06 0.28098E-06 0.21615E-06 0.41201E-07 0.41379E-06 + 0.23592E-05 0.80145E-05 0.56084E-04 0.18206E-03 0.80784E-03 0.20786E-02 + 0.44370E-02 0.98321E-02 0.22012E-01 0.44000E-01 0.91813E-01 0.19924E+00 + 0.35162E+00 0.56616E+00 0.89502E+00 0.13884E+01 0.20334E+01 0.30260E+01 + 0.43975E+01 0.62796E+01 0.86367E+01 0.11673E+02 0.15049E+02 0.18991E+02 + 0.16335E-06 0.21847E-06 0.30110E-06 0.41480E-06 0.63466E-06 0.71789E-06 + 0.98262E-06 0.69331E-06 0.13077E-06 0.11160E-05 0.81304E-05 0.69777E-04 + 0.28191E-03 0.95788E-03 0.24363E-02 0.52499E-02 0.11386E-01 0.24614E-01 + 0.50192E-01 0.99566E-01 0.20876E+00 0.43888E+00 0.72249E+00 0.11391E+01 + 0.17630E+01 0.25769E+01 0.38290E+01 0.55567E+01 0.79256E+01 0.10889E+02 + 0.14701E+02 0.18933E+02 0.23866E+02 0.36023E-06 0.48111E-06 0.58102E-06 + 0.81507E-06 0.11502E-05 0.19432E-05 0.23361E-05 0.31846E-05 0.20566E-05 + 0.31139E-06 0.37518E-05 0.70583E-04 0.34732E-03 0.10971E-02 0.27463E-02 + 0.59153E-02 0.12749E-01 0.27382E-01 0.54358E-01 0.10885E+00 0.22082E+00 + 0.45477E+00 0.90034E+00 0.14528E+01 0.22428E+01 0.32707E+01 0.48509E+01 + 0.70287E+01 0.10012E+02 0.13738E+02 0.18528E+02 0.23836E+02 0.30015E+02 + 0.74732E-06 0.98866E-06 0.13204E-05 0.17273E-05 0.27780E-05 0.42789E-05 + 0.82845E-05 0.11767E-04 0.13828E-04 0.90693E-05 0.99281E-06 0.38525E-04 + 0.31402E-03 0.11150E-02 0.29738E-02 0.64236E-02 0.13744E-01 0.29477E-01 + 0.58633E-01 0.11460E+00 0.23497E+00 0.47430E+00 0.92408E+00 0.18083E+01 + 0.28575E+01 0.41562E+01 0.61513E+01 0.88971E+01 0.12654E+02 0.17341E+02 + 0.23360E+02 0.30018E+02 0.37755E+02 0.15597E-05 0.20309E-05 0.24447E-05 + 0.31546E-05 0.81803E-05 0.16743E-04 0.28482E-04 0.65028E-04 0.96058E-04 + 0.10758E-03 0.72922E-04 0.14519E-04 0.16143E-03 0.94893E-03 0.29946E-02 + 0.67751E-02 0.14695E-01 0.30710E-01 0.61809E-01 0.12030E+00 0.24431E+00 + 0.49661E+00 0.95201E+00 0.18526E+01 0.35511E+01 0.52869E+01 0.78066E+01 + 0.11269E+02 0.16000E+02 0.21894E+02 0.29453E+02 0.37801E+02 0.47491E+02 + 0.56193E-05 0.93845E-05 0.14403E-04 0.32767E-04 0.61445E-04 0.11160E-03 + 0.16406E-03 0.24682E-03 0.35557E-03 0.46797E-03 0.47435E-03 0.35409E-03 + 0.18007E-03 0.52794E-03 0.25645E-02 0.65888E-02 0.15270E-01 0.32317E-01 + 0.64625E-01 0.12443E+00 0.25426E+00 0.51100E+00 0.98169E+00 0.19025E+01 + 0.36281E+01 0.65517E+01 0.99081E+01 0.14272E+02 0.20227E+02 0.27631E+02 + 0.37118E+02 0.47570E+02 0.59683E+02 0.29745E-04 0.57639E-04 0.99666E-04 + 0.15565E-03 0.29019E-03 0.48864E-03 0.75040E-03 0.99770E-03 0.11988E-02 + 0.13992E-02 0.14968E-02 0.14273E-02 0.12151E-02 0.74962E-03 0.14674E-02 + 0.55333E-02 0.14574E-01 0.32924E-01 0.66296E-01 0.12950E+00 0.26389E+00 + 0.52578E+00 0.10006E+01 0.19558E+01 0.37156E+01 0.66731E+01 0.12249E+02 + 0.18072E+02 0.25562E+02 0.34852E+02 0.46742E+02 0.59804E+02 0.74918E+02 + 0.17372E-03 0.22214E-03 0.41792E-03 0.71119E-03 0.11011E-02 0.14773E-02 + 0.19325E-02 0.23167E-02 0.27363E-02 0.31158E-02 0.33942E-02 0.35549E-02 + 0.34466E-02 0.26775E-02 0.11681E-02 0.37941E-02 0.12955E-01 0.32122E-01 + 0.67638E-01 0.13222E+00 0.27135E+00 0.54457E+00 0.10258E+01 0.19987E+01 + 0.38257E+01 0.68358E+01 0.12481E+02 0.22342E+02 0.32364E+02 0.44022E+02 + 0.58921E+02 0.75233E+02 0.94072E+02 0.46075E-03 0.58752E-03 0.75208E-03 + 0.12390E-02 0.19517E-02 0.28978E-02 0.36696E-02 0.45489E-02 0.53225E-02 + 0.60114E-02 0.65229E-02 0.69462E-02 0.70953E-02 0.63437E-02 0.41506E-02 + 0.13640E-02 0.10946E-01 0.30989E-01 0.68781E-01 0.13665E+00 0.28289E+00 + 0.56779E+00 0.10639E+01 0.20634E+01 0.39293E+01 0.70586E+01 0.12820E+02 + 0.22810E+02 0.40070E+02 0.55784E+02 0.74469E+02 0.94847E+02 0.11833E+03 + 0.17002E-02 0.21641E-02 0.27629E-02 0.35394E-02 0.45634E-02 0.59103E-02 + 0.76883E-02 0.90698E-02 0.10579E-01 0.11749E-01 0.12629E-01 0.13310E-01 + 0.14135E-01 0.13587E-01 0.11024E-01 0.60845E-02 0.14357E-01 0.27148E-01 + 0.67465E-01 0.13930E+00 0.29440E+00 0.59390E+00 0.11085E+01 0.21412E+01 + 0.40555E+01 0.72379E+01 0.13224E+02 0.23399E+02 0.40853E+02 0.68949E+02 + 0.94198E+02 0.11961E+03 0.14882E+03 0.40709E-02 0.51706E-02 0.65839E-02 + 0.84060E-02 0.10765E-01 0.12710E-01 0.14951E-01 0.17885E-01 0.20110E-01 + 0.22458E-01 0.23925E-01 0.24873E-01 0.25529E-01 0.25955E-01 0.22944E-01 + 0.17095E-01 0.43412E-02 0.56921E-01 0.65510E-01 0.14280E+00 0.31079E+00 + 0.63130E+00 0.11727E+01 0.22530E+01 0.42369E+01 0.74989E+01 0.13608E+02 + 0.24196E+02 0.41985E+02 0.70374E+02 0.11652E+03 0.15133E+03 0.18766E+03 + 0.77953E-02 0.98830E-02 0.12555E-01 0.15985E-01 0.20400E-01 0.26113E-01 + 0.29540E-01 0.32931E-01 0.37291E-01 0.40361E-01 0.43293E-01 0.44892E-01 + 0.46662E-01 0.46206E-01 0.43314E-01 0.36421E-01 0.21423E-01 0.68908E-02 + 0.16274E+00 0.14504E+00 0.32939E+00 0.67834E+00 0.12559E+01 0.24000E+01 + 0.44771E+01 0.78466E+01 0.14122E+02 0.24920E+02 0.43436E+02 0.72309E+02 + 0.11888E+03 0.18698E+03 0.23709E+03 0.13873E-01 0.17561E-01 0.22266E-01 + 0.28283E-01 0.35996E-01 0.45921E-01 0.58736E-01 0.64624E-01 0.69345E-01 + 0.75264E-01 0.78969E-01 0.82233E-01 0.84072E-01 0.84801E-01 0.80495E-01 + 0.72103E-01 0.53956E-01 0.20402E-01 0.38283E-01 0.38296E+00 0.34751E+00 + 0.73086E+00 0.13554E+01 0.25823E+01 0.47802E+01 0.82878E+01 0.14778E+02 + 0.25848E+02 0.44697E+02 0.74699E+02 0.12195E+03 0.19033E+03 0.29219E+03 + 0.23117E-01 0.29223E-01 0.36993E-01 0.46900E-01 0.59554E-01 0.75770E-01 + 0.96604E-01 0.12344E+00 0.13356E+00 0.13993E+00 0.14744E+00 0.15213E+00 + 0.15609E+00 0.15757E+00 0.15223E+00 0.14198E+00 0.11978E+00 0.79532E-01 + 0.10796E-01 0.99841E-01 0.95736E+00 0.77919E+00 0.14547E+01 0.27850E+01 + 0.51323E+01 0.88068E+01 0.15557E+02 0.26953E+02 0.46198E+02 0.76561E+02 + 0.12547E+03 0.19430E+03 0.29586E+03 0.38168E-01 0.48196E-01 0.60929E-01 + 0.77124E-01 0.97753E-01 0.12410E+00 0.15782E+00 0.20107E+00 0.25658E+00 + 0.27476E+00 0.28330E+00 0.29318E+00 0.29902E+00 0.29992E+00 0.29444E+00 + 0.28250E+00 0.25543E+00 0.20704E+00 0.12625E+00 0.00000E+00 0.27563E+00 + 0.21707E+01 0.15191E+01 0.29750E+01 0.55025E+01 0.93703E+01 0.16426E+02 + 0.28194E+02 0.47879E+02 0.78609E+02 0.12775E+03 0.19840E+03 0.29961E+03 + 0.58109E-01 0.73297E-01 0.92553E-01 0.11699E+00 0.14805E+00 0.18760E+00 + 0.23804E+00 0.30249E+00 0.38486E+00 0.49010E+00 0.52028E+00 0.53055E+00 + 0.54171E+00 0.54162E+00 0.53049E+00 0.51275E+00 0.47546E+00 0.41143E+00 + 0.30855E+00 0.15417E+00 0.18136E+00 0.76569E+00 0.16253E+01 0.32725E+01 + 0.60719E+01 0.10241E+02 0.17767E+02 0.30130E+02 0.50559E+02 0.82031E+02 + 0.13191E+03 0.20279E+03 0.30687E+03 0.88887E-01 0.11200E+00 0.14126E+00 + 0.17835E+00 0.22540E+00 0.28517E+00 0.36122E+00 0.45810E+00 0.58155E+00 + 0.73878E+00 0.93813E+00 0.99326E+00 0.10099E+01 0.10199E+01 0.10066E+01 + 0.98244E+00 0.93247E+00 0.84907E+00 0.71937E+00 0.53238E+00 0.12236E+00 + 0.57578E+00 0.15627E+01 0.34400E+01 0.65619E+01 0.11066E+02 0.19125E+02 + 0.32138E+02 0.53349E+02 0.85515E+02 0.13596E+03 0.20657E+03 0.30921E+03 + 0.13187E+00 0.16598E+00 0.20913E+00 0.26375E+00 0.33293E+00 0.42067E+00 + 0.53205E+00 0.67358E+00 0.85343E+00 0.10819E+01 0.13708E+01 0.17361E+01 + 0.18327E+01 0.18450E+01 0.18412E+01 0.18086E+01 0.17354E+01 0.16182E+01 + 0.14431E+01 0.12020E+01 0.67608E+00 0.19423E+00 0.13710E+01 0.35832E+01 + 0.71673E+01 0.12152E+02 0.20967E+02 0.34912E+02 0.57266E+02 0.90523E+02 + 0.14201E+03 0.21278E+03 0.31443E+03 0.19978E+00 0.25118E+00 0.31615E+00 + 0.39829E+00 0.50224E+00 0.63390E+00 0.80073E+00 0.10123E+01 0.12807E+01 + 0.16208E+01 0.20504E+01 0.25928E+01 0.32769E+01 0.34326E+01 0.34250E+01 + 0.34098E+01 0.33114E+01 0.31457E+01 0.29072E+01 0.25934E+01 0.19081E+01 + 0.80491E+00 0.61666E+00 0.32645E+01 0.74382E+01 0.13003E+02 0.22736E+02 + 0.37781E+02 0.61446E+02 0.95858E+02 0.14833E+03 0.21880E+03 0.31848E+03 + 0.30511E+00 0.38316E+00 0.48175E+00 0.60631E+00 0.76374E+00 0.96296E+00 + 0.12151E+01 0.15344E+01 0.19387E+01 0.24504E+01 0.30961E+01 0.39106E+01 + 0.49370E+01 0.62010E+01 0.64507E+01 0.64275E+01 0.63460E+01 0.61232E+01 + 0.57912E+01 0.53735E+01 0.44598E+01 0.30289E+01 0.12777E+01 0.19578E+01 + 0.69094E+01 0.13196E+02 0.24081E+02 0.40465E+02 0.65687E+02 0.10136E+03 + 0.15479E+03 0.22442E+03 0.32101E+03 0.46607E+00 0.58449E+00 0.73402E+00 + 0.92283E+00 0.11613E+01 0.14627E+01 0.18439E+01 0.23260E+01 0.29358E+01 + 0.37067E+01 0.46787E+01 0.59038E+01 0.74468E+01 0.93537E+01 0.11683E+02 + 0.12140E+02 0.12018E+02 0.11809E+02 0.11362E+02 0.10788E+02 0.95335E+01 + 0.76240E+01 0.54091E+01 0.13521E+01 0.46616E+01 0.11882E+02 0.24256E+02 + 0.42321E+02 0.69445E+02 0.10653E+03 0.16090E+03 0.22905E+03 0.32121E+03 + 0.70900E+00 0.88778E+00 0.11134E+01 0.13981E+01 0.17576E+01 0.22116E+01 + 0.27852E+01 0.35100E+01 0.44261E+01 0.55829E+01 0.70408E+01 0.88770E+01 + 0.11189E+02 0.14053E+02 0.17569E+02 0.21922E+02 0.22659E+02 0.22342E+02 + 0.21904E+02 0.21137E+02 0.19359E+02 0.16727E+02 0.13832E+02 0.85866E+01 + 0.10732E+01 0.74001E+01 0.21764E+02 0.42004E+02 0.71519E+02 0.11024E+03 + 0.16552E+03 0.23132E+03 0.31733E+03 0.10934E+01 0.13666E+01 0.17111E+01 + 0.21459E+01 0.26945E+01 0.33870E+01 0.42614E+01 0.53656E+01 0.67601E+01 + 0.85201E+01 0.10737E+02 0.13529E+02 0.17042E+02 0.21408E+02 0.26791E+02 + 0.33480E+02 0.41613E+02 0.42906E+02 0.42274E+02 0.41595E+02 0.39144E+02 + 0.35456E+02 0.31609E+02 0.24700E+02 0.15145E+02 0.51108E+01 0.11747E+02 + 0.34547E+02 0.66678E+02 0.10664E+03 0.16186E+03 0.22276E+03 0.29834E+03 + 0.16649E+01 0.20760E+01 0.25946E+01 0.32486E+01 0.40737E+01 0.51148E+01 + 0.64288E+01 0.80870E+01 0.10180E+02 0.12820E+02 0.16144E+02 0.20329E+02 + 0.25594E+02 0.32148E+02 0.40256E+02 0.50348E+02 0.62696E+02 0.77737E+02 + 0.80057E+02 0.79043E+02 0.76187E+02 0.71014E+02 0.65664E+02 0.56197E+02 + 0.43566E+02 0.31253E+02 0.10817E+02 0.15539E+02 0.51185E+02 0.92612E+02 + 0.14744E+03 0.20138E+03 0.26294E+03 0.25778E+01 0.32058E+01 0.39975E+01 + 0.49961E+01 0.62551E+01 0.78434E+01 0.98471E+01 0.12375E+02 0.15564E+02 + 0.19586E+02 0.24649E+02 0.31021E+02 0.39039E+02 0.49038E+02 0.61445E+02 + 0.76921E+02 0.95962E+02 0.11931E+03 0.14790E+03 0.15269E+03 0.14852E+03 + 0.14243E+03 0.13527E+03 0.12210E+03 0.10513E+03 0.89901E+02 0.64873E+02 + 0.34342E+02 0.49332E+01 0.46427E+02 0.98006E+02 0.13869E+03 0.17637E+03 + 0.39706E+01 0.49216E+01 0.61205E+01 0.76318E+01 0.95375E+01 0.11941E+02 + 0.14972E+02 0.18794E+02 0.23614E+02 0.29691E+02 0.37343E+02 0.46971E+02 + 0.59086E+02 0.74215E+02 0.93027E+02 0.11653E+03 0.14556E+03 0.18133E+03 + 0.22537E+03 0.27985E+03 0.28540E+03 0.27641E+03 0.26877E+03 0.25052E+03 + 0.22692E+03 0.20736E+03 0.17565E+03 0.13933E+03 0.95404E+02 0.54817E+02 + 0.92125E+01 0.11113E+02 0.13760E+02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.15863E-05 0.59904E-05 0.14755E-05 0.37062E-04 + 0.85154E-04 0.16101E-03 0.30122E-03 0.52371E-03 0.96380E-03 0.17806E-02 + 0.33438E-02 0.58029E-02 0.10194E-01 0.17135E-01 0.29773E-01 0.47468E-01 + 0.78375E-01 0.12480E+00 0.20607E+00 0.32537E+00 0.53168E+00 0.83544E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.21723E-05 + 0.93467E-05 0.21259E-05 0.48849E-04 0.10410E-03 0.30454E-03 0.82618E-03 + 0.20047E-02 0.36814E-02 0.64513E-02 0.11382E-01 0.20503E-01 0.38115E-01 + 0.68302E-01 0.12278E+00 0.19569E+00 0.32302E+00 0.51428E+00 0.84897E+00 + 0.13403E+01 0.21900E+01 0.34408E+01 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.29651E-05 0.14027E-04 0.34480E-05 0.88465E-04 + 0.20525E-03 0.62480E-03 0.17303E-02 0.42494E-02 0.79040E-02 0.14086E-01 + 0.25386E-01 0.45087E-01 0.82126E-01 0.14401E+00 0.25594E+00 0.40776E+00 + 0.67283E+00 0.10709E+01 0.17675E+01 0.27901E+01 0.45580E+01 0.71607E+01 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.40417E-05 + 0.21076E-04 0.67799E-05 0.22665E-03 0.60804E-03 0.15153E-02 0.37011E-02 + 0.83508E-02 0.15935E-01 0.29706E-01 0.56392E-01 0.96931E-01 0.16794E+00 + 0.27793E+00 0.47843E+00 0.76185E+00 0.12565E+01 0.19994E+01 0.32990E+01 + 0.52065E+01 0.85041E+01 0.13358E+02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.61455E-05 0.71659E-04 0.16577E-04 0.58414E-03 + 0.15174E-02 0.32675E-02 0.70663E-02 0.14417E-01 0.26272E-01 0.46807E-01 + 0.84422E-01 0.14601E+00 0.25712E+00 0.43422E+00 0.75653E+00 0.12067E+01 + 0.19948E+01 0.31845E+01 0.52771E+01 0.83754E+01 0.13780E+02 0.21847E+02 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.21228E-04 + 0.18203E-03 0.36115E-04 0.11972E-02 0.26302E-02 0.52574E-02 0.10545E-01 + 0.19984E-01 0.35630E-01 0.62403E-01 0.11033E+00 0.18974E+00 0.33277E+00 + 0.55969E+00 0.97206E+00 0.15473E+01 0.25519E+01 0.40635E+01 0.67128E+01 + 0.10615E+02 0.17386E+02 0.27412E+02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.55020E-04 0.29374E-03 0.41867E-04 0.17565E-02 + 0.35988E-02 0.69361E-02 0.13362E-01 0.24247E-01 0.43267E-01 0.76529E-01 + 0.13705E+00 0.23194E+00 0.39735E+00 0.65018E+00 0.11123E+01 0.17728E+01 + 0.29297E+01 0.46792E+01 0.77613E+01 0.12340E+02 0.20350E+02 0.32374E+02 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.81615E-06 0.26031E-05 0.68573E-05 0.74260E-04 + 0.39909E-03 0.21865E-04 0.21319E-02 0.42926E-02 0.81839E-02 0.15573E-01 + 0.27897E-01 0.49386E-01 0.86729E-01 0.15413E+00 0.25929E+00 0.44135E+00 + 0.71726E+00 0.12211E+01 0.19421E+01 0.32021E+01 0.51026E+01 0.84416E+01 + 0.13382E+02 0.21990E+02 0.34834E+02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.16561E-05 + 0.52663E-05 0.14641E-04 0.78718E-04 0.45692E-03 0.58257E-04 0.24705E-02 + 0.49569E-02 0.93511E-02 0.17565E-01 0.31009E-01 0.54255E-01 0.94133E-01 + 0.16499E+00 0.27715E+00 0.47204E+00 0.76884E+00 0.13103E+01 0.20819E+01 + 0.34305E+01 0.54662E+01 0.90452E+01 0.14348E+02 0.23603E+02 0.37449E+02 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.78252E-05 0.23033E-04 0.51150E-04 + 0.47028E-03 0.24555E-03 0.26746E-02 0.53784E-02 0.10099E-01 0.18821E-01 + 0.32895E-01 0.57311E-01 0.99178E-01 0.17340E+00 0.28980E+00 0.49054E+00 + 0.79406E+00 0.13482E+01 0.21404E+01 0.35255E+01 0.56199E+01 0.93077E+01 + 0.14788E+02 0.24378E+02 0.38798E+02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.30907E-04 0.39568E-03 0.59205E-03 0.26994E-02 + 0.55106E-02 0.10442E-01 0.19534E-01 0.34157E-01 0.59217E-01 0.10186E+00 + 0.17679E+00 0.29502E+00 0.49893E+00 0.80807E+00 0.13717E+01 0.21724E+01 + 0.35698E+01 0.56799E+01 0.93895E+01 0.14889E+02 0.24492E+02 0.38892E+02 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.47903E-04 + 0.19902E-03 0.11038E-02 0.24534E-02 0.52914E-02 0.10260E-01 0.19424E-01 + 0.34114E-01 0.59229E-01 0.10200E+00 0.17707E+00 0.29461E+00 0.49598E+00 + 0.80000E+00 0.13543E+01 0.21396E+01 0.35081E+01 0.55732E+01 0.91999E+01 + 0.14570E+02 0.23933E+02 0.37961E+02 0.00000E+00 0.65068E-08 0.32155E-04 + 0.34278E-04 0.57942E-04 0.63398E-04 0.71661E-04 0.86802E-04 0.11133E-03 + 0.13271E-03 0.17063E-03 0.27463E-03 0.44054E-04 0.14884E-02 0.17295E-02 + 0.45791E-02 0.93883E-02 0.18322E-01 0.32654E-01 0.57108E-01 0.98850E-01 + 0.17207E+00 0.28610E+00 0.48034E+00 0.77309E+00 0.13071E+01 0.20590E+01 + 0.33668E+01 0.53390E+01 0.87978E+01 0.13910E+02 0.22803E+02 0.36105E+02 + 0.12617E-04 0.68242E-04 0.11058E-03 0.11655E-03 0.18383E-03 0.21118E-03 + 0.24674E-03 0.30105E-03 0.36768E-03 0.42835E-03 0.54801E-03 0.87581E-03 + 0.12296E-02 0.30854E-02 0.62835E-03 0.23731E-02 0.62612E-02 0.14173E-01 + 0.27858E-01 0.50313E-01 0.88559E-01 0.15552E+00 0.26042E+00 0.43879E+00 + 0.70878E+00 0.12026E+01 0.18891E+01 0.30810E+01 0.48781E+01 0.80261E+01 + 0.12666E+02 0.20715E+02 0.32730E+02 0.18801E-03 0.24152E-03 0.37459E-03 + 0.41726E-03 0.66857E-03 0.81864E-03 0.93539E-03 0.10390E-02 0.12452E-02 + 0.14862E-02 0.18404E-02 0.23376E-02 0.42966E-02 0.81983E-02 0.25319E-02 + 0.53712E-03 0.26826E-02 0.87197E-02 0.18185E-01 0.35937E-01 0.67735E-01 + 0.12449E+00 0.21319E+00 0.36292E+00 0.58989E+00 0.10098E+01 0.15849E+01 + 0.25836E+01 0.40945E+01 0.67455E+01 0.10651E+02 0.17422E+02 0.27558E+02 + 0.51939E-03 0.63715E-03 0.87279E-03 0.96101E-03 0.15885E-02 0.19665E-02 + 0.22934E-02 0.26177E-02 0.30219E-02 0.37190E-02 0.44707E-02 0.56070E-02 + 0.10328E-01 0.17915E-01 0.11457E-01 0.11080E-01 0.68425E-02 0.00000E+00 + 0.35474E-02 0.12495E-01 0.33488E-01 0.77801E-01 0.14491E+00 0.25740E+00 + 0.43140E+00 0.76128E+00 0.11977E+01 0.19575E+01 0.31148E+01 0.51532E+01 + 0.81520E+01 0.13343E+02 0.21145E+02 0.12110E-02 0.16960E-02 0.22070E-02 + 0.25163E-02 0.41098E-02 0.52666E-02 0.60748E-02 0.66252E-02 0.75168E-02 + 0.88572E-02 0.10555E-01 0.12996E-01 0.23264E-01 0.35451E-01 0.29214E-01 + 0.33098E-01 0.34849E-01 0.34581E-01 0.36063E-01 0.27741E-01 0.65380E-02 + 0.14187E-01 0.47982E-01 0.10507E+00 0.19232E+00 0.37707E+00 0.60962E+00 + 0.10225E+01 0.16710E+01 0.28384E+01 0.45662E+01 0.75745E+01 0.12208E+02 + 0.34218E-02 0.49512E-02 0.65449E-02 0.82522E-02 0.12697E-01 0.14618E-01 + 0.16211E-01 0.17689E-01 0.20031E-01 0.22941E-01 0.26946E-01 0.30069E-01 + 0.48722E-01 0.67204E-01 0.61453E-01 0.71151E-01 0.81799E-01 0.94575E-01 + 0.11659E+00 0.13909E+00 0.16281E+00 0.19424E+00 0.22082E+00 0.25450E+00 + 0.30768E+00 0.27586E+00 0.32711E+00 0.34690E+00 0.27729E+00 0.00000E+00 + 0.12578E+00 0.30085E+00 0.61890E+00 0.76457E-02 0.10801E-01 0.14064E-01 + 0.17805E-01 0.27109E-01 0.30874E-01 0.33932E-01 0.36666E-01 0.40857E-01 + 0.46072E-01 0.53172E-01 0.59176E-01 0.91159E-01 0.11840E+00 0.11484E+00 + 0.13364E+00 0.15689E+00 0.18795E+00 0.23807E+00 0.30163E+00 0.38732E+00 + 0.51455E+00 0.68928E+00 0.95597E+00 0.13782E+01 0.19291E+01 0.29159E+01 + 0.44342E+01 0.67739E+01 0.10380E+02 0.16301E+02 0.25959E+02 0.41432E+02 + 0.16706E-01 0.22775E-01 0.29480E-01 0.37315E-01 0.56106E-01 0.63466E-01 + 0.69340E-01 0.74433E-01 0.81854E-01 0.91043E-01 0.10366E+00 0.11436E+00 + 0.16594E+00 0.20580E+00 0.20512E+00 0.23662E+00 0.27711E+00 0.33277E+00 + 0.42004E+00 0.53677E+00 0.70114E+00 0.94791E+00 0.13044E+01 0.18529E+01 + 0.27161E+01 0.39556E+01 0.60390E+01 0.93009E+01 0.14427E+02 0.22504E+02 + 0.35626E+02 0.56909E+02 0.91175E+02 0.38413E-01 0.49574E-01 0.65196E-01 + 0.81413E-01 0.12042E+00 0.13651E+00 0.14928E+00 0.16015E+00 0.17423E+00 + 0.19145E+00 0.21656E+00 0.23671E+00 0.32114E+00 0.38218E+00 0.38913E+00 + 0.44382E+00 0.51574E+00 0.61567E+00 0.76824E+00 0.97749E+00 0.12769E+01 + 0.17255E+01 0.23848E+01 0.33965E+01 0.49756E+01 0.73236E+01 0.11155E+02 + 0.17178E+02 0.26692E+02 0.41776E+02 0.66141E+02 0.10552E+03 0.16896E+03 + 0.79575E-01 0.10671E+00 0.13935E+00 0.17251E+00 0.25703E+00 0.29220E+00 + 0.31880E+00 0.33969E+00 0.36636E+00 0.39872E+00 0.44546E+00 0.48241E+00 + 0.61894E+00 0.71267E+00 0.73227E+00 0.82298E+00 0.94321E+00 0.11102E+01 + 0.13600E+01 0.17049E+01 0.21987E+01 0.29327E+01 0.40130E+01 0.56582E+01 + 0.82022E+01 0.12025E+02 0.18156E+02 0.27776E+02 0.42961E+02 0.67041E+02 + 0.10576E+03 0.16814E+03 0.26856E+03 0.15958E+00 0.21048E+00 0.28156E+00 + 0.34576E+00 0.51912E+00 0.58608E+00 0.63595E+00 0.67398E+00 0.72690E+00 + 0.78750E+00 0.87241E+00 0.94311E+00 0.11365E+01 0.12760E+01 0.13098E+01 + 0.14478E+01 0.16306E+01 0.18835E+01 0.22563E+01 0.27691E+01 0.34989E+01 + 0.45723E+01 0.61426E+01 0.85105E+01 0.12134E+02 0.17576E+02 0.26195E+02 + 0.39652E+02 0.60813E+02 0.94278E+02 0.14785E+03 0.23388E+03 0.37207E+03 + 0.35277E+00 0.44118E+00 0.58095E+00 0.71091E+00 0.10696E+01 0.11994E+01 + 0.12952E+01 0.13669E+01 0.14643E+01 0.15757E+01 0.17419E+01 0.18699E+01 + 0.21665E+01 0.23799E+01 0.24408E+01 0.26578E+01 0.29449E+01 0.33397E+01 + 0.39130E+01 0.46976E+01 0.58052E+01 0.74148E+01 0.97495E+01 0.13230E+02 + 0.18493E+02 0.26368E+02 0.38679E+02 0.57776E+02 0.87647E+02 0.13469E+03 + 0.20962E+03 0.32945E+03 0.52145E+03 0.87409E+00 0.10478E+01 0.12536E+01 + 0.15765E+01 0.22903E+01 0.24799E+01 0.26340E+01 0.27679E+01 0.29314E+01 + 0.31266E+01 0.33613E+01 0.35765E+01 0.40808E+01 0.44047E+01 0.45032E+01 + 0.48357E+01 0.52740E+01 0.58734E+01 0.67333E+01 0.79014E+01 0.95347E+01 + 0.11879E+02 0.15244E+02 0.20196E+02 0.27593E+02 0.38575E+02 0.55530E+02 + 0.81612E+02 0.12213E+03 0.18557E+03 0.28603E+03 0.44593E+03 0.70125E+03 + 0.20420E+01 0.23639E+01 0.28322E+01 0.33705E+01 0.47701E+01 0.49247E+01 + 0.51124E+01 0.53503E+01 0.56937E+01 0.59943E+01 0.61608E+01 0.64795E+01 + 0.72960E+01 0.77697E+01 0.78993E+01 0.83737E+01 0.89967E+01 0.98446E+01 + 0.11052E+02 0.12679E+02 0.14931E+02 0.18125E+02 0.22657E+02 0.29241E+02 + 0.38949E+02 0.53212E+02 0.74957E+02 0.10808E+03 0.15909E+03 0.23839E+03 + 0.36312E+03 0.56056E+03 0.87443E+03 0.49167E+01 0.60431E+01 0.72525E+01 + 0.84769E+01 0.97080E+01 0.10163E+02 0.10565E+02 0.10953E+02 0.11125E+02 + 0.11251E+02 0.11410E+02 0.11970E+02 0.13335E+02 0.14039E+02 0.14215E+02 + 0.14906E+02 0.15811E+02 0.17038E+02 0.18775E+02 0.21094E+02 0.24276E+02 + 0.28740E+02 0.34998E+02 0.43972E+02 0.57024E+02 0.75983E+02 0.10450E+03 + 0.14746E+03 0.21297E+03 0.31393E+03 0.47150E+03 0.71928E+03 0.11111E+04 + 0.13118E+02 0.14284E+02 0.15459E+02 0.17647E+02 0.19842E+02 0.19913E+02 + 0.19991E+02 0.20094E+02 0.20265E+02 0.20448E+02 0.20677E+02 0.21644E+02 + 0.23900E+02 0.24934E+02 0.25143E+02 0.26122E+02 0.27400E+02 0.29130E+02 + 0.31569E+02 0.34804E+02 0.39203E+02 0.45314E+02 0.53782E+02 0.65776E+02 + 0.82986E+02 0.10767E+03 0.14429E+03 0.19879E+03 0.28096E+03 0.40636E+03 + 0.60030E+03 0.90296E+03 0.13785E+04 0.23637E+02 0.26781E+02 0.29940E+02 + 0.32812E+02 0.35691E+02 0.35793E+02 0.35902E+02 0.36048E+02 0.36295E+02 + 0.36556E+02 0.36882E+02 0.38535E+02 0.42247E+02 0.43752E+02 0.43957E+02 + 0.45314E+02 0.47083E+02 0.49474E+02 0.52847E+02 0.57289E+02 0.63289E+02 + 0.71550E+02 0.82881E+02 0.98739E+02 0.12120E+03 0.15299E+03 0.19952E+03 + 0.26785E+03 0.36962E+03 0.52318E+03 0.75829E+03 0.11219E+04 0.16890E+04 + 0.40984E+02 0.47858E+02 0.54755E+02 0.58273E+02 0.61799E+02 0.61938E+02 + 0.62084E+02 0.62280E+02 0.62628E+02 0.62986E+02 0.63431E+02 0.66165E+02 + 0.72109E+02 0.74256E+02 0.74332E+02 0.76121E+02 0.78451E+02 0.81612E+02 + 0.86095E+02 0.91963E+02 0.99846E+02 0.11063E+03 0.12529E+03 0.14559E+03 + 0.17401E+03 0.21369E+03 0.27100E+03 0.35401E+03 0.47604E+03 0.65791E+03 + 0.93321E+03 0.13547E+04 0.20063E+04 0.69768E+02 0.81455E+02 0.93171E+02 + 0.99127E+02 0.10509E+03 0.10527E+03 0.10546E+03 0.10572E+03 0.10620E+03 + 0.10669E+03 0.10728E+03 0.11175E+03 0.12121E+03 0.12426E+03 0.12399E+03 + 0.12629E+03 0.12927E+03 0.13336E+03 0.13921E+03 0.14683E+03 0.15702E+03 + 0.17093E+03 0.18967E+03 0.21540E+03 0.25103E+03 0.30015E+03 0.37019E+03 + 0.47024E+03 0.61531E+03 0.82871E+03 0.11478E+04 0.16308E+04 0.23700E+04 + 0.11320E+03 0.13214E+03 0.15112E+03 0.16074E+03 0.17036E+03 0.17060E+03 + 0.17082E+03 0.17114E+03 0.17179E+03 0.17241E+03 0.17317E+03 0.18015E+03 + 0.19460E+03 0.19885E+03 0.19776E+03 0.20048E+03 0.20404E+03 0.20897E+03 + 0.21620E+03 0.22556E+03 0.23809E+03 0.25517E+03 0.27805E+03 0.30927E+03 + 0.35212E+03 0.41045E+03 0.49271E+03 0.60864E+03 0.77440E+03 0.10149E+04 + 0.13698E+04 0.19005E+04 0.27036E+04 0.17961E+03 0.20964E+03 0.23972E+03 + 0.25493E+03 0.27011E+03 0.27041E+03 0.27067E+03 0.27105E+03 0.27191E+03 + 0.27269E+03 0.27364E+03 0.28433E+03 0.30612E+03 0.31204E+03 0.30938E+03 + 0.31243E+03 0.31644E+03 0.32213E+03 0.33079E+03 0.34198E+03 0.35699E+03 + 0.37751E+03 0.40491E+03 0.44215E+03 0.49293E+03 0.56125E+03 0.65670E+03 + 0.78947E+03 0.97674E+03 0.12447E+04 0.16348E+04 0.22105E+04 0.30710E+04 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.17614E-04 0.19158E-03 0.91994E-03 + 0.32129E-02 0.93662E-02 0.24154E-01 0.55365E-01 0.11444E+00 0.22486E+00 + 0.41505E+00 0.74524E+00 0.13210E+01 0.23417E+01 0.40998E+01 0.72670E+01 + 0.12725E+02 0.22281E+02 0.39017E+02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.20790E-04 0.22583E-03 0.10832E-02 0.36712E-02 0.10316E-01 0.26202E-01 + 0.63013E-01 0.14004E+00 0.27508E+00 0.50766E+00 0.91139E+00 0.16154E+01 + 0.28632E+01 0.50125E+01 0.88844E+01 0.15556E+02 0.27237E+02 0.47696E+02 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.24831E-04 0.26934E-03 0.12903E-02 + 0.45257E-02 0.13160E-01 0.33020E-01 0.81193E-01 0.19236E+00 0.37776E+00 + 0.69698E+00 0.12510E+01 0.22170E+01 0.39292E+01 0.68781E+01 0.12190E+02 + 0.21344E+02 0.37369E+02 0.65437E+02 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.29958E-04 0.32451E-03 0.15525E-02 0.65596E-02 0.22459E-01 0.56312E-01 + 0.13367E+00 0.32773E+00 0.64338E+00 0.11867E+01 0.21296E+01 0.37733E+01 + 0.66864E+01 0.11703E+02 0.20741E+02 0.36312E+02 0.63573E+02 0.11132E+03 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.44851E-04 0.48545E-03 0.23198E-02 + 0.11251E-01 0.41414E-01 0.97153E-01 0.21687E+00 0.49833E+00 0.97794E+00 + 0.18032E+01 0.32350E+01 0.57306E+01 0.10153E+02 0.17769E+02 0.31487E+02 + 0.55122E+02 0.96498E+02 0.16896E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.14310E-03 0.15487E-02 0.73937E-02 0.25086E-01 0.68652E-01 0.15578E+00 + 0.33313E+00 0.71316E+00 0.13990E+01 0.25785E+01 0.46243E+01 0.81893E+01 + 0.14506E+02 0.25383E+02 0.44974E+02 0.78726E+02 0.13781E+03 0.24128E+03 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.26746E-03 0.28993E-02 0.13837E-01 + 0.41505E-01 0.96775E-01 0.21528E+00 0.44826E+00 0.95032E+00 0.18634E+01 + 0.34329E+01 0.61540E+01 0.10895E+02 0.19294E+02 0.33752E+02 0.59797E+02 + 0.10466E+03 0.18319E+03 0.32071E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.63847E-06 0.11532E-03 0.69676E-03 + 0.28622E-02 0.81978E-02 0.22301E-01 0.53760E-01 0.12032E+00 0.26292E+00 + 0.54340E+00 0.11333E+01 0.22215E+01 0.40904E+01 0.73289E+01 0.12969E+02 + 0.22961E+02 0.40156E+02 0.71131E+02 0.12448E+03 0.21785E+03 0.38136E+03 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.94641E-06 0.18283E-03 0.97647E-03 0.34968E-02 0.99147E-02 0.26466E-01 + 0.62292E-01 0.13634E+00 0.29618E+00 0.61521E+00 0.12816E+01 0.25117E+01 + 0.46222E+01 0.82771E+01 0.14640E+02 0.25910E+02 0.45297E+02 0.80225E+02 + 0.14036E+03 0.24561E+03 0.42991E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.52043E-06 0.13356E-03 0.91251E-03 + 0.36472E-02 0.10681E-01 0.28996E-01 0.67759E-01 0.14525E+00 0.31548E+00 + 0.65664E+00 0.13683E+01 0.26823E+01 0.49337E+01 0.88293E+01 0.15608E+02 + 0.27611E+02 0.48250E+02 0.85442E+02 0.14945E+03 0.26147E+03 0.45760E+03 + 0.00000E+00 0.00000E+00 0.63259E-11 0.61127E-08 0.15802E-07 0.54188E-07 + 0.99015E-07 0.14169E-06 0.18306E-06 0.23959E-06 0.32880E-06 0.31693E-06 + 0.60874E-06 0.12245E-04 0.58593E-03 0.32368E-02 0.10352E-01 0.29552E-01 + 0.69788E-01 0.14858E+00 0.33014E+00 0.68568E+00 0.14209E+01 0.27887E+01 + 0.51282E+01 0.91719E+01 0.16202E+02 0.28651E+02 0.50039E+02 0.88600E+02 + 0.15493E+03 0.27098E+03 0.47416E+03 0.00000E+00 0.00000E+00 0.49739E-09 + 0.47375E-06 0.12032E-05 0.40426E-05 0.74240E-05 0.10612E-04 0.14600E-04 + 0.19237E-04 0.26704E-04 0.31348E-04 0.38658E-04 0.22083E-03 0.10346E-03 + 0.14772E-02 0.70249E-02 0.25768E-01 0.67656E-01 0.14626E+00 0.32875E+00 + 0.68712E+00 0.14305E+01 0.28146E+01 0.51762E+01 0.92523E+01 0.16333E+02 + 0.28868E+02 0.50384E+02 0.89203E+02 0.15592E+03 0.27263E+03 0.47694E+03 + 0.00000E+00 0.00000E+00 0.24927E-08 0.23446E-05 0.58626E-05 0.19337E-04 + 0.35327E-04 0.49940E-04 0.69963E-04 0.91233E-04 0.12546E-03 0.15452E-03 + 0.20106E-03 0.74359E-03 0.76167E-03 0.88752E-03 0.65334E-02 0.23474E-01 + 0.60763E-01 0.13646E+00 0.31227E+00 0.66021E+00 0.14083E+01 0.27841E+01 + 0.51237E+01 0.91541E+01 0.16146E+02 0.28526E+02 0.49743E+02 0.88071E+02 + 0.15386E+03 0.26894E+03 0.47034E+03 0.00000E+00 0.00000E+00 0.98347E-08 + 0.91534E-05 0.22586E-04 0.74353E-04 0.13480E-03 0.18805E-03 0.26448E-03 + 0.33707E-03 0.45229E-03 0.56712E-03 0.75159E-03 0.20356E-02 0.29328E-02 + 0.21468E-02 0.17687E-02 0.13638E-01 0.41710E-01 0.11015E+00 0.27072E+00 + 0.58641E+00 0.12876E+01 0.25755E+01 0.47551E+01 0.84993E+01 0.14984E+02 + 0.26470E+02 0.46107E+02 0.81673E+02 0.14259E+03 0.24912E+03 0.43552E+03 + 0.00000E+00 0.00000E+00 0.35611E-07 0.32852E-04 0.80158E-04 0.25660E-03 + 0.46075E-03 0.63348E-03 0.88552E-03 0.11050E-02 0.14486E-02 0.18036E-02 + 0.23665E-02 0.51026E-02 0.76991E-02 0.86599E-02 0.72984E-02 0.00000E+00 + 0.16736E-01 0.57754E-01 0.19406E+00 0.46244E+00 0.10698E+01 0.21988E+01 + 0.40948E+01 0.73378E+01 0.12940E+02 0.22878E+02 0.39795E+02 0.70595E+02 + 0.12315E+03 0.21503E+03 0.37575E+03 0.00000E+00 0.00000E+00 0.11213E-06 + 0.10268E-03 0.24820E-03 0.78524E-03 0.13951E-02 0.18903E-02 0.26116E-02 + 0.31832E-02 0.40633E-02 0.49784E-02 0.64079E-02 0.11622E-01 0.16860E-01 + 0.20754E-01 0.23472E-01 0.22467E-01 0.15534E-01 0.43586E-02 0.68867E-01 + 0.29013E+00 0.78969E+00 0.17205E+01 0.32644E+01 0.58875E+01 0.10402E+02 + 0.18434E+02 0.32010E+02 0.56963E+02 0.99273E+02 0.17320E+03 0.30248E+03 + 0.00000E+00 0.00000E+00 0.33795E-06 0.30762E-03 0.73779E-03 0.23114E-02 + 0.40674E-02 0.54392E-02 0.74236E-02 0.88623E-02 0.11041E-01 0.13266E-01 + 0.16682E-01 0.26429E-01 0.36507E-01 0.45664E-01 0.55908E-01 0.66173E-01 + 0.77978E-01 0.84610E-01 0.39820E-01 0.25223E-01 0.36023E+00 0.97825E+00 + 0.19764E+01 0.36489E+01 0.65061E+01 0.11637E+02 0.20163E+02 0.36234E+02 + 0.63069E+02 0.10993E+03 0.19185E+03 0.00000E+00 0.00000E+00 0.95174E-06 + 0.86211E-03 0.20546E-02 0.63855E-02 0.11142E-01 0.14730E-01 0.19868E-01 + 0.23272E-01 0.28349E-01 0.33384E-01 0.40995E-01 0.58459E-01 0.76451E-01 + 0.94091E-01 0.11722E+00 0.14625E+00 0.18903E+00 0.24584E+00 0.28200E+00 + 0.29067E+00 0.18650E+00 0.10351E+00 0.52299E+00 0.11850E+01 0.22816E+01 + 0.43626E+01 0.75386E+01 0.14375E+02 0.24982E+02 0.43493E+02 0.75834E+02 + 0.00000E+00 0.00000E+00 0.20009E-05 0.18053E-02 0.42801E-02 0.13243E-01 + 0.22950E-01 0.30040E-01 0.40083E-01 0.46207E-01 0.55210E-01 0.63674E-01 + 0.76305E-01 0.10528E+00 0.13429E+00 0.16372E+00 0.20405E+00 0.25879E+00 + 0.34228E+00 0.46366E+00 0.60098E+00 0.77513E+00 0.94993E+00 0.11320E+01 + 0.15292E+01 0.22762E+01 0.36155E+01 0.57521E+01 0.99062E+01 0.15811E+02 + 0.27423E+02 0.47671E+02 0.83023E+02 0.00000E+00 0.00000E+00 0.40830E-05 + 0.36720E-02 0.86695E-02 0.26725E-01 0.46038E-01 0.59760E-01 0.78988E-01 + 0.89824E-01 0.10554E+00 0.11938E+00 0.13977E+00 0.18616E+00 0.23099E+00 + 0.27673E+00 0.34043E+00 0.42939E+00 0.56599E+00 0.76978E+00 0.10333E+01 + 0.14277E+01 0.19209E+01 0.26638E+01 0.40215E+01 0.64115E+01 0.10571E+02 + 0.17564E+02 0.30121E+02 0.50584E+02 0.87519E+02 0.15185E+03 0.26409E+03 + 0.00000E+00 0.00000E+00 0.87749E-05 0.78714E-02 0.18522E-01 0.56842E-01 + 0.97371E-01 0.12556E+00 0.16471E+00 0.18520E+00 0.21454E+00 0.23856E+00 + 0.27350E+00 0.35041E+00 0.42445E+00 0.49939E+00 0.60468E+00 0.75410E+00 + 0.98288E+00 0.13277E+01 0.18056E+01 0.25433E+01 0.35870E+01 0.52435E+01 + 0.81441E+01 0.13147E+02 0.21758E+02 0.36370E+02 0.62051E+02 0.10517E+03 + 0.18141E+03 0.31402E+03 0.54513E+03 0.00000E+00 0.00000E+00 0.18693E-04 + 0.16734E-01 0.39269E-01 0.12008E+00 0.20469E+00 0.26254E+00 0.34222E+00 + 0.38116E+00 0.43632E+00 0.47779E+00 0.53737E+00 0.66118E+00 0.78160E+00 + 0.90146E+00 0.10700E+01 0.13100E+01 0.16744E+01 0.22228E+01 0.30045E+01 + 0.42196E+01 0.60151E+01 0.88987E+01 0.13842E+02 0.22262E+02 0.36637E+02 + 0.61039E+02 0.10348E+03 0.17538E+03 0.30136E+03 0.52013E+03 0.90092E+03 + 0.00000E+00 0.00000E+00 0.37885E-04 0.33858E-01 0.79281E-01 0.24150E+00 + 0.41018E+00 0.52374E+00 0.67895E+00 0.75030E+00 0.85034E+00 0.91833E+00 + 0.10148E+01 0.11999E+01 0.13799E+01 0.15587E+01 0.18091E+01 0.21643E+01 + 0.26981E+01 0.34951E+01 0.46379E+01 0.64071E+01 0.90532E+01 0.13297E+02 + 0.20463E+02 0.32544E+02 0.53007E+02 0.87626E+02 0.14739E+03 0.24883E+03 + 0.42554E+03 0.73179E+03 0.12640E+04 0.00000E+00 0.00000E+00 0.79527E-04 + 0.70980E-01 0.16592E+00 0.50284E+00 0.85269E+00 0.10845E+01 0.13995E+01 + 0.15366E+01 0.17271E+01 0.18422E+01 0.20036E+01 0.22865E+01 0.25423E+01 + 0.28188E+01 0.32040E+01 0.37476E+01 0.45556E+01 0.57504E+01 0.74655E+01 + 0.10100E+02 0.14058E+02 0.20367E+02 0.30861E+02 0.48349E+02 0.77707E+02 + 0.12713E+03 0.21180E+03 0.35545E+03 0.60434E+03 0.10346E+04 0.17808E+04 + 0.00000E+00 0.00000E+00 0.16442E-03 0.14659E+00 0.34219E+00 0.10351E+01 + 0.17516E+01 0.22211E+01 0.28558E+01 0.31197E+01 0.34834E+01 0.36747E+01 + 0.39389E+01 0.42848E+01 0.46524E+01 0.50711E+01 0.56513E+01 0.64649E+01 + 0.76611E+01 0.94110E+01 0.11911E+02 0.15711E+02 0.21399E+02 0.30378E+02 + 0.45091E+02 0.69314E+02 0.10958E+03 0.17689E+03 0.29132E+03 0.48494E+03 + 0.81858E+03 0.13935E+04 0.23883E+04 0.00000E+00 0.00000E+00 0.30731E-03 + 0.27377E+00 0.63834E+00 0.19282E+01 0.32569E+01 0.41201E+01 0.52814E+01 + 0.57451E+01 0.63799E+01 0.66992E+01 0.71369E+01 0.76114E+01 0.81206E+01 + 0.87151E+01 0.95341E+01 0.10675E+02 0.12338E+02 0.14744E+02 0.18149E+02 + 0.23263E+02 0.30847E+02 0.42679E+02 0.61790E+02 0.92853E+02 0.14392E+03 + 0.22855E+03 0.37124E+03 0.61148E+03 0.10232E+04 0.17298E+04 0.29488E+04 + 0.00000E+00 0.00000E+00 0.57810E-03 0.51464E+00 0.11989E+01 0.36174E+01 + 0.61013E+01 0.77037E+01 0.98516E+01 0.10680E+02 0.11808E+02 0.12419E+02 + 0.13249E+02 0.13849E+02 0.14547E+02 0.15409E+02 0.16592E+02 0.18230E+02 + 0.20598E+02 0.23992E+02 0.28747E+02 0.35805E+02 0.46167E+02 0.62121E+02 + 0.87498E+02 0.12817E+03 0.19420E+03 0.30253E+03 0.48344E+03 0.78614E+03 + 0.13015E+04 0.21819E+04 0.36950E+04 0.00000E+00 0.00000E+00 0.10608E-02 + 0.94388E+00 0.21974E+01 0.66237E+01 0.11159E+02 0.14068E+02 0.17956E+02 + 0.19413E+02 0.21386E+02 0.22481E+02 0.23959E+02 0.24707E+02 0.25646E+02 + 0.26865E+02 0.28530E+02 0.30826E+02 0.34127E+02 0.38814E+02 0.45316E+02 + 0.54857E+02 0.68701E+02 0.89735E+02 0.12268E+03 0.17471E+03 0.25803E+03 + 0.39312E+03 0.61634E+03 0.98687E+03 0.16130E+04 0.26766E+04 0.44964E+04 + 0.00000E+00 0.00000E+00 0.19112E-02 0.16998E+01 0.39549E+01 0.11913E+02 + 0.20052E+02 0.25247E+02 0.32175E+02 0.34711E+02 0.38129E+02 0.39936E+02 + 0.42360E+02 0.43414E+02 0.44725E+02 0.46414E+02 0.48717E+02 0.51878E+02 + 0.56410E+02 0.62799E+02 0.71571E+02 0.84313E+02 0.10258E+03 0.12998E+03 + 0.17225E+03 0.23799E+03 0.34173E+03 0.50774E+03 0.77877E+03 0.12244E+04 + 0.19709E+04 0.32305E+04 0.53739E+04 0.00000E+00 0.00000E+00 0.33133E-02 + 0.29458E+01 0.68510E+01 0.20624E+02 0.34689E+02 0.43635E+02 0.55537E+02 + 0.59809E+02 0.65547E+02 0.68453E+02 0.72329E+02 0.73756E+02 0.75507E+02 + 0.77745E+02 0.80789E+02 0.84961E+02 0.90946E+02 0.99340E+02 0.11074E+03 + 0.12718E+03 0.15046E+03 0.18496E+03 0.23747E+03 0.31788E+03 0.44286E+03 + 0.64000E+03 0.95764E+03 0.14741E+04 0.23308E+04 0.37646E+04 0.61884E+04 + 0.00000E+00 0.00000E+00 0.56396E-02 0.50128E+01 0.11654E+02 0.35067E+02 + 0.58947E+02 0.74089E+02 0.94204E+02 0.10131E+03 0.11082E+03 0.11546E+03 + 0.12162E+03 0.12352E+03 0.12580E+03 0.12869E+03 0.13262E+03 0.13801E+03 + 0.14577E+03 0.15663E+03 0.17123E+03 0.19216E+03 0.22148E+03 0.26449E+03 + 0.32914E+03 0.42669E+03 0.57595E+03 0.80781E+03 0.11761E+04 0.17673E+04 + 0.27371E+04 0.43450E+04 0.70421E+04 0.00000E+00 0.00000E+00 0.91497E-02 + 0.81311E+01 0.18898E+02 0.56843E+02 0.95506E+02 0.11996E+03 0.15240E+03 + 0.16371E+03 0.17882E+03 0.18595E+03 0.19537E+03 0.19776E+03 0.20056E+03 + 0.20404E+03 0.20879E+03 0.21532E+03 0.22485E+03 0.23818E+03 0.25591E+03 + 0.28129E+03 0.31648E+03 0.36774E+03 0.44409E+03 0.55772E+03 0.72894E+03 + 0.99071E+03 0.14003E+04 0.20486E+04 0.30989E+04 0.48214E+04 0.76844E+04 + 0.00000E+00 0.00000E+00 0.14517E-01 0.12898E+02 0.29972E+02 0.90125E+02 + 0.15136E+03 0.19002E+03 0.24125E+03 0.25891E+03 0.28248E+03 0.29328E+03 + 0.30751E+03 0.31043E+03 0.31373E+03 0.31772E+03 0.32321E+03 0.33081E+03 + 0.34215E+03 0.35809E+03 0.37905E+03 0.40915E+03 0.45050E+03 0.51054E+03 + 0.59946E+03 0.73021E+03 0.92434E+03 0.12164E+04 0.16665E+04 0.23679E+04 + 0.34890E+04 0.53051E+04 0.82920E+04 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.14261E-06 0.75596E-04 0.26091E-05 0.14062E-02 0.44393E-02 0.22271E-01 + 0.79237E-01 0.20860E+00 0.52326E+00 0.11169E+01 0.22874E+01 0.47611E+01 + 0.95600E+01 0.19513E+02 0.39149E+02 0.78537E+02 0.15751E+03 0.31584E+03 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.15205E-06 0.82479E-04 0.21836E-05 + 0.15312E-02 0.47758E-02 0.23572E-01 0.85092E-01 0.22703E+00 0.53835E+00 + 0.11489E+01 0.23529E+01 0.48971E+01 0.98328E+01 0.20070E+02 0.40264E+02 + 0.80773E+02 0.16200E+03 0.32482E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.16208E-06 0.91183E-04 0.13135E-05 0.16889E-02 0.52369E-02 0.25640E-01 + 0.92525E-01 0.24967E+00 0.56745E+00 0.12109E+01 0.24795E+01 0.51603E+01 + 0.10361E+02 0.21146E+02 0.42423E+02 0.85103E+02 0.17068E+03 0.34223E+03 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.16995E-06 0.10213E-03 0.59006E-06 + 0.18871E-02 0.59446E-02 0.29733E-01 0.10207E+00 0.27621E+00 0.63902E+00 + 0.13634E+01 0.27915E+01 0.58093E+01 0.11663E+02 0.23804E+02 0.47753E+02 + 0.95795E+02 0.19212E+03 0.38523E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.18885E-06 0.12909E-03 0.52513E-05 0.23800E-02 0.81901E-02 0.45546E-01 + 0.12297E+00 0.39741E+00 0.93742E+00 0.19999E+01 0.40940E+01 0.85195E+01 + 0.17102E+02 0.34906E+02 0.70023E+02 0.14047E+03 0.28172E+03 0.56488E+03 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.21834E-06 0.18985E-03 0.17822E-04 + 0.34933E-02 0.13117E-01 0.80934E-01 0.20787E+00 0.53980E+00 0.12384E+01 + 0.26417E+01 0.54071E+01 0.11252E+02 0.22586E+02 0.46097E+02 0.92471E+02 + 0.18550E+03 0.37203E+03 0.74599E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.21171E-05 0.48888E-03 0.74404E-04 0.71949E-02 0.24113E-01 0.13680E+00 + 0.32755E+00 0.77298E+00 0.17292E+01 0.36884E+01 0.75483E+01 0.15708E+02 + 0.31527E+02 0.64349E+02 0.12908E+03 0.25894E+03 0.51935E+03 0.10414E+04 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.46699E-05 0.24428E-04 0.12947E-04 0.30574E-02 0.46567E-03 + 0.17383E-01 0.44283E-01 0.21597E+00 0.51282E+00 0.11956E+01 0.26560E+01 + 0.56657E+01 0.11593E+02 0.24128E+02 0.48424E+02 0.98843E+02 0.19828E+03 + 0.39777E+03 0.79782E+03 0.15999E+04 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.43742E-05 0.23356E-04 + 0.20864E-03 0.55473E-02 0.14233E-02 0.28787E-01 0.64782E-01 0.27036E+00 + 0.64576E+00 0.15255E+01 0.34386E+01 0.73380E+01 0.15015E+02 0.31258E+02 + 0.62729E+02 0.12807E+03 0.25692E+03 0.51546E+03 0.10340E+04 0.20738E+04 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.37050E-05 0.20962E-04 0.62917E-03 0.63226E-02 0.28876E-02 + 0.33328E-01 0.75022E-01 0.31029E+00 0.73612E+00 0.17295E+01 0.38521E+01 + 0.82278E+01 0.16838E+02 0.35076E+02 0.70390E+02 0.14377E+03 0.28846E+03 + 0.57883E+03 0.11613E+04 0.23297E+04 0.00000E+00 0.00000E+00 0.00000E+00 + 0.64197E-08 0.15907E-07 0.53447E-07 0.92830E-07 0.13284E-06 0.17128E-06 + 0.21640E-06 0.26250E-06 0.76032E-06 0.54447E-07 0.28039E-05 0.16076E-04 + 0.13039E-02 0.57092E-02 0.52165E-02 0.34133E-01 0.79663E-01 0.33352E+00 + 0.79352E+00 0.18402E+01 0.40775E+01 0.87271E+01 0.17870E+02 0.37275E+02 + 0.74814E+02 0.15293E+03 0.30694E+03 0.61615E+03 0.12367E+04 0.24819E+04 + 0.00000E+00 0.00000E+00 0.00000E+00 0.49522E-06 0.12089E-05 0.39970E-05 + 0.70578E-05 0.10098E-04 0.13917E-04 0.18013E-04 0.23616E-04 0.48954E-04 + 0.25441E-04 0.63698E-05 0.39513E-04 0.26273E-03 0.13755E-02 0.47504E-02 + 0.24573E-01 0.71916E-01 0.32713E+00 0.79658E+00 0.18896E+01 0.42104E+01 + 0.90444E+01 0.18541E+02 0.38765E+02 0.77836E+02 0.15933E+03 0.31996E+03 + 0.64268E+03 0.12908E+04 0.25922E+04 0.00000E+00 0.00000E+00 0.00000E+00 + 0.24409E-05 0.58806E-05 0.19157E-04 0.33907E-04 0.47989E-04 0.67412E-04 + 0.86971E-04 0.11581E-03 0.20117E-03 0.16599E-03 0.16156E-03 0.12214E-03 + 0.42235E-02 0.18424E-02 0.92553E-02 0.10895E-01 0.35923E-01 0.28790E+00 + 0.74204E+00 0.17836E+01 0.40022E+01 0.86522E+01 0.17777E+02 0.37310E+02 + 0.74973E+02 0.15383E+03 0.30920E+03 0.62170E+03 0.12499E+04 0.25128E+04 + 0.00000E+00 0.00000E+00 0.00000E+00 0.96318E-05 0.22943E-04 0.73781E-04 + 0.13035E-03 0.18209E-03 0.25689E-03 0.32526E-03 0.42847E-03 0.66157E-03 + 0.67652E-03 0.84590E-03 0.10699E-02 0.84440E-02 0.25906E-02 0.24487E-01 + 0.10140E-01 0.34603E-01 0.19332E+00 0.58382E+00 0.15053E+01 0.34778E+01 + 0.76344E+01 0.15777E+02 0.33406E+02 0.67274E+02 0.13873E+03 0.27948E+03 + 0.56320E+03 0.11349E+04 0.22865E+04 0.00000E+00 0.00000E+00 0.00000E+00 + 0.33984E-04 0.80179E-04 0.25496E-03 0.44805E-03 0.61697E-03 0.86517E-03 + 0.10750E-02 0.13938E-02 0.19782E-02 0.22171E-02 0.30385E-02 0.43692E-02 + 0.16779E-01 0.12745E-01 0.44893E-01 0.14729E-01 0.48764E-02 0.43172E-01 + 0.28037E+00 0.96875E+00 0.23942E+01 0.54678E+01 0.11473E+02 0.24806E+02 + 0.50234E+02 0.10479E+03 0.21220E+03 0.42976E+03 0.87022E+03 0.17616E+04 + 0.00000E+00 0.00000E+00 0.00000E+00 0.10597E-03 0.24799E-03 0.78102E-03 + 0.13624E-02 0.18491E-02 0.25627E-02 0.31138E-02 0.39455E-02 0.52896E-02 + 0.61242E-02 0.86141E-02 0.12825E-01 0.32101E-01 0.31179E-01 0.78607E-01 + 0.55678E-01 0.68497E-01 0.76873E-01 0.26071E-01 0.11746E+00 0.45529E+00 + 0.11766E+01 0.25790E+01 0.58841E+01 0.12088E+02 0.25912E+02 0.53099E+02 + 0.10877E+03 0.22261E+03 0.45521E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.31682E-03 0.73650E-03 0.23010E-02 0.39852E-02 0.53393E-02 0.73108E-02 + 0.87064E-02 0.10793E-01 0.13811E-01 0.16148E-01 0.22780E-01 0.34102E-01 + 0.62469E-01 0.67906E-01 0.14004E+00 0.13106E+00 0.18167E+00 0.36209E+00 + 0.44240E+00 0.45444E+00 0.32006E+00 0.20582E+00 0.11990E+01 0.46783E+01 + 0.10685E+02 0.26959E+02 0.58876E+02 0.12748E+03 0.27396E+03 0.58503E+03 + 0.00000E+00 0.00000E+00 0.00000E+00 0.88644E-03 0.20494E-02 0.63612E-02 + 0.10945E-01 0.14499E-01 0.19622E-01 0.22940E-01 0.27846E-01 0.34322E-01 + 0.40015E-01 0.52857E-01 0.73956E-01 0.11470E+00 0.13127E+00 0.23791E+00 + 0.25373E+00 0.36383E+00 0.78763E+00 0.12214E+01 0.18680E+01 0.28876E+01 + 0.45318E+01 0.77895E+01 0.12310E+02 0.22195E+02 0.36242E+02 0.64039E+02 + 0.11195E+03 0.19287E+03 0.32574E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.18538E-02 0.42668E-02 0.13200E-01 0.22592E-01 0.29637E-01 0.39681E-01 + 0.45673E-01 0.54430E-01 0.64948E-01 0.74853E-01 0.96158E-01 0.13056E+00 + 0.18970E+00 0.22193E+00 0.36813E+00 0.42074E+00 0.60471E+00 0.13360E+01 + 0.21748E+01 0.35835E+01 0.60600E+01 0.10516E+02 0.19243E+02 0.34418E+02 + 0.65183E+02 0.12019E+03 0.22849E+03 0.43490E+03 0.82805E+03 0.15764E+04 + 0.00000E+00 0.00000E+00 0.00000E+00 0.37735E-02 0.86539E-02 0.26651E-01 + 0.45386E-01 0.59056E-01 0.78337E-01 0.88968E-01 0.10433E+00 0.12116E+00 + 0.13757E+00 0.17157E+00 0.22540E+00 0.31030E+00 0.36359E+00 0.56283E+00 + 0.66267E+00 0.94076E+00 0.20516E+01 0.33780E+01 0.56895E+01 0.98711E+01 + 0.17587E+02 0.32612E+02 0.59992E+02 0.11459E+03 0.21621E+03 0.41597E+03 + 0.80218E+03 0.15492E+04 0.29945E+04 0.00000E+00 0.00000E+00 0.00000E+00 + 0.81290E-02 0.18588E-01 0.56705E-01 0.96070E-01 0.12421E+00 0.16356E+00 + 0.18371E+00 0.21253E+00 0.24095E+00 0.26995E+00 0.32707E+00 0.41571E+00 + 0.54409E+00 0.63592E+00 0.92230E+00 0.11071E+01 0.15440E+01 0.32817E+01 + 0.54005E+01 0.91620E+01 0.16053E+02 0.28907E+02 0.53791E+02 0.10019E+03 + 0.19179E+03 0.36561E+03 0.70676E+03 0.13705E+04 0.26632E+04 0.51828E+04 + 0.00000E+00 0.00000E+00 0.00000E+00 0.17196E-01 0.39230E-01 0.11982E+00 + 0.20226E+00 0.26012E+00 0.34035E+00 0.37876E+00 0.43316E+00 0.48132E+00 + 0.53198E+00 0.62574E+00 0.76820E+00 0.96244E+00 0.11130E+01 0.15276E+01 + 0.18376E+01 0.25024E+01 0.51128E+01 0.83063E+01 0.13999E+02 0.24445E+02 + 0.43957E+02 0.81497E+02 0.15214E+03 0.29064E+03 0.55564E+03 0.10748E+04 + 0.20873E+04 0.40647E+04 0.79307E+04 0.00000E+00 0.00000E+00 0.00000E+00 + 0.34657E-01 0.78916E-01 0.24105E+00 0.40579E+00 0.51953E+00 0.67608E+00 + 0.74660E+00 0.84555E+00 0.92391E+00 0.10068E+01 0.11491E+01 0.13609E+01 + 0.16433E+01 0.18685E+01 0.24507E+01 0.29129E+01 0.38561E+01 0.74922E+01 + 0.11903E+02 0.19725E+02 0.34005E+02 0.60568E+02 0.11132E+03 0.20698E+03 + 0.39349E+03 0.75118E+03 0.14505E+04 0.28149E+04 0.54812E+04 0.10699E+05 + 0.00000E+00 0.00000E+00 0.00000E+00 0.72645E-01 0.16516E+00 0.50200E+00 + 0.84415E+00 0.10767E+01 0.13947E+01 0.15305E+01 0.17195E+01 0.18508E+01 + 0.19911E+01 0.22054E+01 0.25175E+01 0.29389E+01 0.32883E+01 0.41357E+01 + 0.48480E+01 0.62331E+01 0.11463E+02 0.17729E+02 0.28749E+02 0.48701E+02 + 0.85564E+02 0.15542E+03 0.28695E+03 0.54185E+03 0.10310E+04 0.19849E+04 + 0.38451E+04 0.74806E+04 0.14599E+05 0.00000E+00 0.00000E+00 0.00000E+00 + 0.15029E+00 0.34128E+00 0.10339E+01 0.17348E+01 0.22064E+01 0.28482E+01 + 0.31097E+01 0.34711E+01 0.36880E+01 0.39198E+01 0.42120E+01 0.46283E+01 + 0.52445E+01 0.57722E+01 0.70008E+01 0.80641E+01 0.10064E+02 0.17450E+02 + 0.26149E+02 0.41264E+02 0.68320E+02 0.11783E+03 0.21075E+03 0.38501E+03 + 0.72052E+03 0.13633E+04 0.26131E+04 0.50466E+04 0.97992E+04 0.19102E+05 + 0.00000E+00 0.00000E+00 0.00000E+00 0.27994E+00 0.63508E+00 0.19255E+01 + 0.32274E+01 0.40947E+01 0.52698E+01 0.57301E+01 0.63622E+01 0.67326E+01 + 0.71373E+01 0.75347E+01 0.80938E+01 0.89673E+01 0.97060E+01 0.11422E+02 + 0.12888E+02 0.15617E+02 0.25471E+02 0.36844E+02 0.56305E+02 0.90653E+02 + 0.15274E+03 0.26798E+03 0.48263E+03 0.89290E+03 0.16761E+04 0.31929E+04 + 0.61400E+04 0.11886E+05 0.23123E+05 0.00000E+00 0.00000E+00 0.00000E+00 + 0.52612E+00 0.11927E+01 0.36126E+01 0.60483E+01 0.76592E+01 0.98342E+01 + 0.10658E+02 0.11782E+02 0.12445E+02 0.13191E+02 0.13745E+02 0.14517E+02 + 0.15782E+02 0.16841E+02 0.19293E+02 0.21368E+02 0.25189E+02 0.38688E+02 + 0.53946E+02 0.79628E+02 0.12424E+03 0.20377E+03 0.34950E+03 0.61856E+03 + 0.11285E+04 0.20971E+04 0.39643E+04 0.75812E+04 0.14619E+05 0.28363E+05 + 0.00000E+00 0.00000E+00 0.00000E+00 0.96476E+00 0.21857E+01 0.66153E+01 + 0.11065E+02 0.13991E+02 0.17930E+02 0.19380E+02 0.21350E+02 0.22433E+02 + 0.23659E+02 0.24469E+02 0.25595E+02 0.27421E+02 0.28892E+02 0.32358E+02 + 0.35208E+02 0.40462E+02 0.58652E+02 0.78777E+02 0.11206E+03 0.16891E+03 + 0.26864E+03 0.44874E+03 0.77768E+03 0.13949E+04 0.25597E+04 0.47926E+04 + 0.91007E+04 0.17460E+05 0.33752E+05 0.00000E+00 0.00000E+00 0.00000E+00 + 0.17371E+01 0.39337E+01 0.11898E+02 0.19887E+02 0.25116E+02 0.32138E+02 + 0.34661E+02 0.38078E+02 0.39841E+02 0.41846E+02 0.43016E+02 0.44640E+02 + 0.47250E+02 0.49244E+02 0.54110E+02 0.57937E+02 0.65081E+02 0.89362E+02 + 0.11567E+03 0.15842E+03 0.23013E+03 0.35377E+03 0.57353E+03 0.96971E+03 + 0.17047E+04 0.30803E+04 0.56992E+04 0.10727E+05 0.20449E+05 0.39346E+05 + 0.00000E+00 0.00000E+00 0.00000E+00 0.30102E+01 0.68138E+01 0.20600E+02 + 0.34410E+02 0.43415E+02 0.55485E+02 0.59738E+02 0.65478E+02 0.68285E+02 + 0.71471E+02 0.73102E+02 0.75366E+02 0.79008E+02 0.81555E+02 0.88234E+02 + 0.93095E+02 0.10248E+03 0.13390E+03 0.16727E+03 0.22057E+03 0.30834E+03 + 0.45696E+03 0.71660E+03 0.11777E+04 0.20222E+04 0.35867E+04 0.65411E+04 + 0.12179E+05 0.23029E+05 0.44049E+05 0.00000E+00 0.00000E+00 0.00000E+00 + 0.51220E+01 0.11590E+02 0.35028E+02 0.58481E+02 0.73728E+02 0.94131E+02 + 0.10121E+03 0.11073E+03 0.11517E+03 0.12020E+03 0.12245E+03 0.12557E+03 + 0.13061E+03 0.13374E+03 0.14286E+03 0.14882E+03 0.16099E+03 0.20121E+03 + 0.24315E+03 0.30906E+03 0.41570E+03 0.59295E+03 0.89702E+03 0.14281E+04 + 0.23867E+04 0.41414E+04 0.74233E+04 0.13639E+05 0.25535E+05 0.48487E+05 + 0.00000E+00 0.00000E+00 0.00000E+00 0.83074E+01 0.18794E+02 0.56781E+02 + 0.94760E+02 0.11939E+03 0.15230E+03 0.16357E+03 0.17870E+03 0.18550E+03 + 0.19312E+03 0.19607E+03 0.20018E+03 0.20698E+03 0.21042E+03 0.22253E+03 + 0.22915E+03 0.24419E+03 0.29346E+03 0.34401E+03 0.42229E+03 0.54686E+03 + 0.75017E+03 0.10925E+04 0.16798E+04 0.27228E+04 0.46061E+04 0.80886E+04 + 0.14626E+05 0.27051E+05 0.50900E+05 0.00000E+00 0.00000E+00 0.00000E+00 + 0.13178E+02 0.29806E+02 0.90028E+02 0.15020E+03 0.18914E+03 0.24112E+03 + 0.25872E+03 0.28232E+03 0.29260E+03 0.30399E+03 0.30779E+03 0.31312E+03 + 0.32223E+03 0.32559E+03 0.34164E+03 0.34827E+03 0.36646E+03 0.42572E+03 + 0.48566E+03 0.57733E+03 0.72108E+03 0.95165E+03 0.13329E+04 0.19744E+04 + 0.30945E+04 0.50853E+04 0.87194E+04 0.15470E+05 0.28194E+05 0.52461E+05 + 0.16412E-09 0.43496E-09 0.13350E-08 0.26869E-08 0.65809E-08 0.11503E-07 + 0.10655E-06 0.30406E-06 0.30455E-06 0.10004E-05 0.28107E-05 0.71416E-04 + 0.35165E-03 0.81566E-04 0.15109E-02 0.24851E-02 0.39197E-02 0.57452E-02 + 0.78286E-02 0.10812E-01 0.14765E-01 0.20269E-01 0.26833E-01 0.35998E-01 + 0.45939E-01 0.61590E-01 0.77441E-01 0.10102E+00 0.12738E+00 0.16701E+00 + 0.21012E+00 0.27475E+00 0.34731E+00 0.43496E-09 0.34736E-09 0.11903E-08 + 0.33325E-08 0.63873E-08 0.17700E-07 0.16591E-06 0.57577E-06 0.49822E-06 + 0.13647E-05 0.36491E-05 0.10025E-03 0.40401E-03 0.10464E-03 0.19411E-02 + 0.31802E-02 0.50013E-02 0.73106E-02 0.99390E-02 0.13700E-01 0.18678E-01 + 0.25597E-01 0.33841E-01 0.45335E-01 0.57774E-01 0.77336E-01 0.97079E-01 + 0.12638E+00 0.15899E+00 0.20785E+00 0.26062E+00 0.33938E+00 0.42679E+00 + 0.13350E-08 0.11903E-08 0.82713E-09 0.23579E-08 0.88371E-08 0.20360E-07 + 0.39535E-06 0.13208E-05 0.61626E-06 0.16685E-05 0.45429E-05 0.12139E-03 + 0.47147E-03 0.11424E-03 0.25053E-02 0.40852E-02 0.64019E-02 0.93273E-02 + 0.12646E-01 0.17391E-01 0.23665E-01 0.32373E-01 0.42735E-01 0.57166E-01 + 0.72750E-01 0.97241E-01 0.12188E+00 0.15840E+00 0.19887E+00 0.25937E+00 + 0.32427E+00 0.42080E+00 0.52699E+00 0.26869E-08 0.33325E-08 0.23579E-08 + 0.17365E-08 0.61732E-08 0.24757E-07 0.55062E-06 0.26945E-05 0.71906E-06 + 0.19146E-05 0.53618E-05 0.14761E-03 0.56242E-03 0.12492E-03 0.27424E-02 + 0.52742E-02 0.82293E-02 0.11941E-01 0.16136E-01 0.22130E-01 0.30044E-01 + 0.41011E-01 0.54048E-01 0.72181E-01 0.91730E-01 0.12244E+00 0.15324E+00 + 0.19884E+00 0.24921E+00 0.32436E+00 0.40458E+00 0.52346E+00 0.65328E+00 + 0.65809E-08 0.63873E-08 0.88371E-08 0.61732E-08 0.37905E-08 0.15511E-07 + 0.74594E-06 0.42057E-05 0.76195E-06 0.19399E-05 0.59007E-05 0.17377E-03 + 0.63071E-03 0.13836E-03 0.29567E-02 0.57758E-02 0.10630E-01 0.15351E-01 + 0.20659E-01 0.28239E-01 0.38232E-01 0.52056E-01 0.68471E-01 0.91269E-01 + 0.11582E+00 0.15436E+00 0.19293E+00 0.24996E+00 0.31280E+00 0.40641E+00 + 0.50589E+00 0.65295E+00 0.81248E+00 0.11503E-07 0.17700E-07 0.20360E-07 + 0.24757E-07 0.15511E-07 0.82053E-08 0.70356E-06 0.51670E-05 0.69005E-06 + 0.17705E-05 0.60000E-05 0.19924E-03 0.71317E-03 0.14661E-03 0.32399E-02 + 0.61293E-02 0.11698E-01 0.19831E-01 0.26557E-01 0.36153E-01 0.48784E-01 + 0.66219E-01 0.86901E-01 0.11560E+00 0.14643E+00 0.19484E+00 0.24318E+00 + 0.31462E+00 0.39316E+00 0.50999E+00 0.63371E+00 0.81620E+00 0.10132E+01 + 0.10655E-06 0.16591E-06 0.39535E-06 0.55062E-06 0.74594E-06 0.70356E-06 + 0.16352E-06 0.26310E-05 0.51140E-05 0.71370E-05 0.62734E-05 0.21263E-03 + 0.75860E-03 0.10763E-03 0.34191E-02 0.64867E-02 0.12111E-01 0.21858E-01 + 0.33973E-01 0.46072E-01 0.61969E-01 0.83854E-01 0.10980E+00 0.14572E+00 + 0.18428E+00 0.24482E+00 0.30515E+00 0.39421E+00 0.49195E+00 0.63725E+00 + 0.79062E+00 0.10165E+01 0.12592E+01 0.30406E-06 0.57577E-06 0.13208E-05 + 0.26945E-05 0.42057E-05 0.51670E-05 0.26310E-05 0.21968E-05 0.11935E-04 + 0.17999E-04 0.20249E-04 0.23416E-03 0.81231E-03 0.72055E-04 0.36496E-02 + 0.68396E-02 0.12700E-01 0.22716E-01 0.38015E-01 0.59082E-01 0.79135E-01 + 0.10665E+00 0.13925E+00 0.18430E+00 0.23257E+00 0.30838E+00 0.38372E+00 + 0.49495E+00 0.61687E+00 0.79792E+00 0.98857E+00 0.12689E+01 0.15691E+01 + 0.30455E-06 0.49822E-06 0.61626E-06 0.71906E-06 0.76195E-06 0.69005E-06 + 0.51140E-05 0.11935E-04 0.17099E-05 0.22027E-05 0.81598E-05 0.32227E-03 + 0.10081E-02 0.19258E-03 0.41936E-02 0.76450E-02 0.13890E-01 0.24681E-01 + 0.40753E-01 0.68833E-01 0.10405E+00 0.13928E+00 0.18091E+00 0.23838E+00 + 0.29985E+00 0.39635E+00 0.49212E+00 0.63347E+00 0.78813E+00 0.10177E+01 + 0.12590E+01 0.16135E+01 0.19919E+01 0.10004E-05 0.13647E-05 0.16685E-05 + 0.19146E-05 0.19399E-05 0.17705E-05 0.71370E-05 0.17999E-04 0.22027E-05 + 0.59765E-05 0.81784E-05 0.38409E-03 0.11826E-02 0.20929E-03 0.46687E-02 + 0.83895E-02 0.14909E-01 0.26284E-01 0.43271E-01 0.72280E-01 0.12052E+00 + 0.18003E+00 0.23267E+00 0.30518E+00 0.38260E+00 0.50415E+00 0.62455E+00 + 0.80216E+00 0.99632E+00 0.12844E+01 0.15867E+01 0.20303E+01 0.25029E+01 + 0.28107E-05 0.36491E-05 0.45429E-05 0.53618E-05 0.59007E-05 0.60000E-05 + 0.62734E-05 0.20249E-04 0.81598E-05 0.81784E-05 0.22181E-04 0.48116E-03 + 0.13708E-02 0.21242E-03 0.52309E-02 0.92547E-02 0.16187E-01 0.28155E-01 + 0.46026E-01 0.76607E-01 0.12635E+00 0.21069E+00 0.30033E+00 0.39178E+00 + 0.48916E+00 0.64222E+00 0.79338E+00 0.10164E+01 0.12600E+01 0.16213E+01 + 0.19998E+01 0.25549E+01 0.31451E+01 0.71416E-04 0.10025E-03 0.12139E-03 + 0.14761E-03 0.17377E-03 0.19924E-03 0.21263E-03 0.23416E-03 0.32227E-03 + 0.38409E-03 0.48116E-03 0.73404E-03 0.71965E-03 0.10231E-02 0.43030E-02 + 0.80655E-02 0.14671E-01 0.26028E-01 0.42694E-01 0.71825E-01 0.11952E+00 + 0.19870E+00 0.32287E+00 0.46074E+00 0.57420E+00 0.75366E+00 0.92917E+00 + 0.11882E+01 0.14715E+01 0.18916E+01 0.23305E+01 0.29733E+01 0.36559E+01 + 0.35165E-03 0.40401E-03 0.47147E-03 0.56242E-03 0.63071E-03 0.71317E-03 + 0.75860E-03 0.81231E-03 0.10081E-02 0.11826E-02 0.13708E-02 0.71965E-03 + 0.30251E-02 0.28780E-02 0.44044E-02 0.86464E-02 0.16072E-01 0.28444E-01 + 0.45837E-01 0.76006E-01 0.12548E+00 0.20752E+00 0.33355E+00 0.54066E+00 + 0.84295E+00 0.11713E+01 0.14326E+01 0.18186E+01 0.22407E+01 0.28669E+01 + 0.35189E+01 0.44721E+01 0.54822E+01 0.81566E-04 0.10464E-03 0.11424E-03 + 0.12492E-03 0.13836E-03 0.14661E-03 0.10763E-03 0.72055E-04 0.19258E-03 + 0.20929E-03 0.21242E-03 0.10231E-02 0.28780E-02 0.73280E-03 0.10100E-01 + 0.16498E-01 0.26905E-01 0.43551E-01 0.66580E-01 0.10506E+00 0.16651E+00 + 0.26673E+00 0.42097E+00 0.67086E+00 0.10285E+01 0.16657E+01 0.21568E+01 + 0.27159E+01 0.33248E+01 0.42282E+01 0.51692E+01 0.65481E+01 0.80065E+01 + 0.15109E-02 0.19411E-02 0.25053E-02 0.27424E-02 0.29567E-02 0.32399E-02 + 0.34191E-02 0.36496E-02 0.41936E-02 0.46687E-02 0.52309E-02 0.43030E-02 + 0.44044E-02 0.10100E-01 0.15776E-01 0.66090E-02 0.13280E-01 0.25373E-01 + 0.41624E-01 0.70305E-01 0.11695E+00 0.19192E+00 0.30924E+00 0.50099E+00 + 0.77316E+00 0.12600E+01 0.19284E+01 0.25889E+01 0.31698E+01 0.40325E+01 + 0.49251E+01 0.62258E+01 0.76028E+01 0.24851E-02 0.31802E-02 0.40852E-02 + 0.52742E-02 0.57758E-02 0.61293E-02 0.64867E-02 0.68396E-02 0.76450E-02 + 0.83895E-02 0.92547E-02 0.80655E-02 0.86464E-02 0.16498E-01 0.66090E-02 + 0.31840E-01 0.12976E-01 0.24117E-01 0.39568E-01 0.67483E-01 0.11301E+00 + 0.18495E+00 0.29741E+00 0.47850E+00 0.73879E+00 0.12030E+01 0.18240E+01 + 0.28810E+01 0.37505E+01 0.47525E+01 0.57846E+01 0.72858E+01 0.88752E+01 + 0.39197E-02 0.50013E-02 0.64019E-02 0.82293E-02 0.10630E-01 0.11698E-01 + 0.12111E-01 0.12700E-01 0.13890E-01 0.14909E-01 0.16187E-01 0.14671E-01 + 0.16072E-01 0.26905E-01 0.13280E-01 0.12976E-01 0.15793E-01 0.24190E-01 + 0.37682E-01 0.63251E-01 0.10602E+00 0.17306E+00 0.27827E+00 0.44502E+00 + 0.68216E+00 0.11153E+01 0.16841E+01 0.26344E+01 0.40417E+01 0.54448E+01 + 0.66012E+01 0.82783E+01 0.10054E+02 0.57452E-02 0.73106E-02 0.93273E-02 + 0.11941E-01 0.15351E-01 0.19831E-01 0.21858E-01 0.22716E-01 0.24681E-01 + 0.26284E-01 0.28155E-01 0.26028E-01 0.28444E-01 0.43551E-01 0.25373E-01 + 0.24117E-01 0.24190E-01 0.30425E-01 0.41545E-01 0.63875E-01 0.10306E+00 + 0.16504E+00 0.26291E+00 0.41595E+00 0.63116E+00 0.10254E+01 0.15452E+01 + 0.24039E+01 0.36566E+01 0.57996E+01 0.74704E+01 0.93174E+01 0.11274E+02 + 0.78286E-02 0.99390E-02 0.12646E-01 0.16136E-01 0.20659E-01 0.26557E-01 + 0.33973E-01 0.38015E-01 0.40753E-01 0.43271E-01 0.46026E-01 0.42694E-01 + 0.45837E-01 0.66580E-01 0.41624E-01 0.39568E-01 0.37682E-01 0.41545E-01 + 0.54419E-01 0.75415E-01 0.11394E+00 0.17551E+00 0.27264E+00 0.42233E+00 + 0.63012E+00 0.10091E+01 0.15002E+01 0.23216E+01 0.35112E+01 0.55064E+01 + 0.83397E+01 0.11029E+02 0.13277E+02 0.10812E-01 0.13700E-01 0.17391E-01 + 0.22130E-01 0.28239E-01 0.36153E-01 0.46072E-01 0.59082E-01 0.68833E-01 + 0.72280E-01 0.76607E-01 0.71825E-01 0.76006E-01 0.10506E+00 0.70305E-01 + 0.67483E-01 0.63251E-01 0.63875E-01 0.75415E-01 0.98538E-01 0.13417E+00 + 0.19370E+00 0.28792E+00 0.43218E+00 0.63022E+00 0.98844E+00 0.14452E+01 + 0.22009E+01 0.33140E+01 0.51572E+01 0.77232E+01 0.11989E+02 0.15314E+02 + 0.14765E-01 0.18678E-01 0.23665E-01 0.30044E-01 0.38232E-01 0.48784E-01 + 0.61969E-01 0.79135E-01 0.10405E+00 0.12052E+00 0.12635E+00 0.11952E+00 + 0.12548E+00 0.16651E+00 0.11695E+00 0.11301E+00 0.10602E+00 0.10306E+00 + 0.11394E+00 0.13417E+00 0.17630E+00 0.23443E+00 0.32694E+00 0.46906E+00 + 0.66271E+00 0.10071E+01 0.14417E+01 0.21507E+01 0.31863E+01 0.49201E+01 + 0.73107E+01 0.11197E+02 0.16800E+02 0.20269E-01 0.25597E-01 0.32373E-01 + 0.41011E-01 0.52056E-01 0.66219E-01 0.83854E-01 0.10665E+00 0.13928E+00 + 0.18003E+00 0.21069E+00 0.19870E+00 0.20752E+00 0.26673E+00 0.19192E+00 + 0.18495E+00 0.17306E+00 0.16504E+00 0.17551E+00 0.19370E+00 0.23443E+00 + 0.30973E+00 0.40493E+00 0.55265E+00 0.75295E+00 0.11007E+01 0.15371E+01 + 0.22374E+01 0.32488E+01 0.49200E+01 0.72621E+01 0.11016E+02 0.16321E+02 + 0.26833E-01 0.33841E-01 0.42735E-01 0.54048E-01 0.68471E-01 0.86901E-01 + 0.10980E+00 0.13925E+00 0.18091E+00 0.23267E+00 0.30033E+00 0.32287E+00 + 0.33355E+00 0.42097E+00 0.30924E+00 0.29741E+00 0.27827E+00 0.26291E+00 + 0.27264E+00 0.28792E+00 0.32694E+00 0.40493E+00 0.53614E+00 0.69348E+00 + 0.90743E+00 0.12677E+01 0.17208E+01 0.24348E+01 0.34521E+01 0.51069E+01 + 0.74090E+01 0.11145E+02 0.16371E+02 0.35998E-01 0.45335E-01 0.57166E-01 + 0.72181E-01 0.91269E-01 0.11560E+00 0.14572E+00 0.18430E+00 0.23838E+00 + 0.30518E+00 0.39178E+00 0.46074E+00 0.54066E+00 0.67086E+00 0.50099E+00 + 0.47850E+00 0.44502E+00 0.41595E+00 0.42233E+00 0.43218E+00 0.46906E+00 + 0.55265E+00 0.69348E+00 0.91776E+00 0.11565E+01 0.15468E+01 0.20395E+01 + 0.28014E+01 0.38716E+01 0.55826E+01 0.79436E+01 0.11732E+02 0.17119E+02 + 0.45939E-01 0.57774E-01 0.72750E-01 0.91730E-01 0.11582E+00 0.14643E+00 + 0.18428E+00 0.23257E+00 0.29985E+00 0.38260E+00 0.48916E+00 0.57420E+00 + 0.84295E+00 0.10285E+01 0.77316E+00 0.73879E+00 0.68216E+00 0.63116E+00 + 0.63012E+00 0.63022E+00 0.66271E+00 0.75295E+00 0.90743E+00 0.11565E+01 + 0.15286E+01 0.19672E+01 0.25212E+01 0.33622E+01 0.45270E+01 0.63568E+01 + 0.88578E+01 0.12819E+02 0.18403E+02 0.61590E-01 0.77336E-01 0.97241E-01 + 0.12244E+00 0.15436E+00 0.19484E+00 0.24482E+00 0.30838E+00 0.39635E+00 + 0.50415E+00 0.64222E+00 0.75366E+00 0.11713E+01 0.16657E+01 0.12600E+01 + 0.12030E+01 0.11153E+01 0.10254E+01 0.10091E+01 0.98844E+00 0.10071E+01 + 0.11007E+01 0.12677E+01 0.15468E+01 0.19672E+01 0.26069E+01 0.32409E+01 + 0.41855E+01 0.54742E+01 0.74604E+01 0.10153E+02 0.14360E+02 0.20233E+02 + 0.77441E-01 0.97079E-01 0.12188E+00 0.15324E+00 0.19293E+00 0.24318E+00 + 0.30515E+00 0.38372E+00 0.49212E+00 0.62455E+00 0.79338E+00 0.92917E+00 + 0.14326E+01 0.21568E+01 0.19284E+01 0.18240E+01 0.16841E+01 0.15452E+01 + 0.15002E+01 0.14452E+01 0.14417E+01 0.15371E+01 0.17208E+01 0.20395E+01 + 0.25212E+01 0.32409E+01 0.42686E+01 0.53575E+01 0.68245E+01 0.90457E+01 + 0.12024E+02 0.16603E+02 0.22932E+02 0.10102E+00 0.12638E+00 0.15840E+00 + 0.19884E+00 0.24996E+00 0.31462E+00 0.39421E+00 0.49495E+00 0.63347E+00 + 0.80216E+00 0.10164E+01 0.11882E+01 0.18186E+01 0.27159E+01 0.25889E+01 + 0.28810E+01 0.26344E+01 0.24039E+01 0.23216E+01 0.22009E+01 0.21507E+01 + 0.22374E+01 0.24348E+01 0.28014E+01 0.33622E+01 0.41855E+01 0.53575E+01 + 0.70558E+01 0.87525E+01 0.11277E+02 0.14624E+02 0.19686E+02 0.26609E+02 + 0.12738E+00 0.15899E+00 0.19887E+00 0.24921E+00 0.31280E+00 0.39316E+00 + 0.49195E+00 0.61687E+00 0.78813E+00 0.99632E+00 0.12600E+01 0.14715E+01 + 0.22407E+01 0.33248E+01 0.31698E+01 0.37505E+01 0.40417E+01 0.36566E+01 + 0.35112E+01 0.33140E+01 0.31863E+01 0.32488E+01 0.34521E+01 0.38716E+01 + 0.45270E+01 0.54742E+01 0.68245E+01 0.87525E+01 0.11548E+02 0.14463E+02 + 0.18287E+02 0.23974E+02 0.31667E+02 0.16701E+00 0.20785E+00 0.25937E+00 + 0.32436E+00 0.40641E+00 0.50999E+00 0.63725E+00 0.79792E+00 0.10177E+01 + 0.12844E+01 0.16213E+01 0.18916E+01 0.28669E+01 0.42282E+01 0.40325E+01 + 0.47525E+01 0.54448E+01 0.57996E+01 0.55064E+01 0.51572E+01 0.49201E+01 + 0.49200E+01 0.51069E+01 0.55826E+01 0.63568E+01 0.74604E+01 0.90457E+01 + 0.11277E+02 0.14463E+02 0.19080E+02 0.23519E+02 0.30014E+02 0.38700E+02 + 0.21012E+00 0.26062E+00 0.32427E+00 0.40458E+00 0.50589E+00 0.63371E+00 + 0.79062E+00 0.98857E+00 0.12590E+01 0.15867E+01 0.19998E+01 0.23305E+01 + 0.35189E+01 0.51692E+01 0.49251E+01 0.57846E+01 0.66012E+01 0.74704E+01 + 0.83397E+01 0.77232E+01 0.73107E+01 0.72621E+01 0.74090E+01 0.79436E+01 + 0.88578E+01 0.10153E+02 0.12024E+02 0.14624E+02 0.18287E+02 0.23519E+02 + 0.30993E+02 0.38510E+02 0.48456E+02 0.27475E+00 0.33938E+00 0.42080E+00 + 0.52346E+00 0.65295E+00 0.81620E+00 0.10165E+01 0.12689E+01 0.16135E+01 + 0.20303E+01 0.25549E+01 0.29733E+01 0.44721E+01 0.65481E+01 0.62258E+01 + 0.72858E+01 0.82783E+01 0.93174E+01 0.11029E+02 0.11989E+02 0.11197E+02 + 0.11016E+02 0.11145E+02 0.11732E+02 0.12819E+02 0.14360E+02 0.16603E+02 + 0.19686E+02 0.23974E+02 0.30014E+02 0.38510E+02 0.50668E+02 0.62212E+02 + 0.34731E+00 0.42679E+00 0.52699E+00 0.65328E+00 0.81248E+00 0.10132E+01 + 0.12592E+01 0.15691E+01 0.19919E+01 0.25029E+01 0.31451E+01 0.36559E+01 + 0.54822E+01 0.80065E+01 0.76028E+01 0.88752E+01 0.10054E+02 0.11274E+02 + 0.13277E+02 0.15314E+02 0.16800E+02 0.16321E+02 0.16371E+02 0.17119E+02 + 0.18403E+02 0.20233E+02 0.22932E+02 0.26609E+02 0.31667E+02 0.38700E+02 + 0.48456E+02 0.62212E+02 0.82005E+02 0.14847E-09 0.37413E-09 0.89594E-09 + 0.24356E-08 0.38515E-08 0.11534E-07 0.89817E-07 0.24950E-06 0.69886E-06 + 0.17581E-05 0.60663E-05 0.48454E-04 0.17764E-03 0.38505E-03 0.12306E-02 + 0.39306E-02 0.94621E-02 0.18863E-01 0.32995E-01 0.52128E-01 0.85124E-01 + 0.13167E+00 0.20592E+00 0.30636E+00 0.42860E+00 0.58399E+00 0.78670E+00 + 0.10618E+01 0.14189E+01 0.19256E+01 0.25923E+01 0.35074E+01 0.47775E+01 + 0.29957E-09 0.31425E-09 0.69705E-09 0.22845E-08 0.51354E-08 0.10540E-07 + 0.10095E-06 0.31904E-06 0.10727E-05 0.24902E-05 0.98936E-05 0.78053E-04 + 0.22867E-03 0.52682E-03 0.14811E-02 0.45754E-02 0.12016E-01 0.23905E-01 + 0.41747E-01 0.65865E-01 0.10744E+00 0.16602E+00 0.25940E+00 0.38558E+00 + 0.53889E+00 0.73344E+00 0.98667E+00 0.13294E+01 0.17727E+01 0.23994E+01 + 0.32189E+01 0.43367E+01 0.58741E+01 0.54650E-09 0.74427E-09 0.77469E-09 + 0.16591E-08 0.41136E-08 0.10256E-07 0.10337E-06 0.32911E-06 0.13908E-05 + 0.60750E-05 0.18113E-04 0.10949E-03 0.28132E-03 0.61706E-03 0.18044E-02 + 0.50960E-02 0.14169E-01 0.30338E-01 0.52878E-01 0.83297E-01 0.13570E+00 + 0.20947E+00 0.32699E+00 0.48559E+00 0.67805E+00 0.92191E+00 0.12388E+01 + 0.16667E+01 0.22186E+01 0.29963E+01 0.40083E+01 0.53807E+01 0.72555E+01 + 0.96042E-09 0.11901E-08 0.15421E-08 0.19422E-08 0.36006E-08 0.10517E-07 + 0.11870E-06 0.31973E-06 0.18523E-05 0.85214E-05 0.29769E-04 0.13441E-03 + 0.33101E-03 0.72120E-03 0.20399E-02 0.57715E-02 0.15039E-01 0.37094E-01 + 0.67090E-01 0.10548E+00 0.17158E+00 0.26452E+00 0.41250E+00 0.61203E+00 + 0.85381E+00 0.11597E+01 0.15567E+01 0.20920E+01 0.27807E+01 0.37485E+01 + 0.50028E+01 0.66958E+01 0.89954E+01 0.18684E-08 0.23155E-08 0.30400E-08 + 0.35275E-08 0.60381E-08 0.10465E-07 0.15282E-06 0.30451E-06 0.14426E-05 + 0.11107E-04 0.47185E-04 0.15913E-03 0.37821E-03 0.81252E-03 0.22918E-02 + 0.63349E-02 0.16157E-01 0.38433E-01 0.85280E-01 0.13377E+00 0.21719E+00 + 0.33435E+00 0.52078E+00 0.77188E+00 0.10758E+01 0.14600E+01 0.19579E+01 + 0.26283E+01 0.34891E+01 0.46964E+01 0.62561E+01 0.83529E+01 0.11187E+02 + 0.35433E-08 0.48270E-08 0.57729E-08 0.76636E-08 0.12352E-07 0.18803E-07 + 0.28764E-06 0.64158E-06 0.10044E-05 0.10374E-04 0.56634E-04 0.18146E-03 + 0.42000E-03 0.88250E-03 0.24674E-02 0.68421E-02 0.17240E-01 0.40149E-01 + 0.87549E-01 0.16993E+00 0.27531E+00 0.42307E+00 0.65806E+00 0.97425E+00 + 0.13564E+01 0.18392E+01 0.24640E+01 0.33046E+01 0.43821E+01 0.58908E+01 + 0.78346E+01 0.10440E+02 0.13946E+02 0.20386E-07 0.26316E-07 0.33479E-07 + 0.72169E-07 0.17762E-06 0.37916E-06 0.39281E-06 0.10240E-05 0.46690E-05 + 0.42570E-05 0.42714E-04 0.16719E-03 0.41318E-03 0.87322E-03 0.24682E-02 + 0.69867E-02 0.17635E-01 0.41472E-01 0.88718E-01 0.18057E+00 0.34657E+00 + 0.53213E+00 0.82726E+00 0.12239E+01 0.17026E+01 0.23065E+01 0.30875E+01 + 0.41369E+01 0.54806E+01 0.73596E+01 0.97752E+01 0.13004E+02 0.17337E+02 + 0.40773E-07 0.55679E-07 0.82900E-07 0.14241E-06 0.49128E-06 0.12689E-05 + 0.20025E-05 0.30761E-05 0.10888E-04 0.16113E-04 0.33148E-04 0.14932E-03 + 0.40214E-03 0.88211E-03 0.24911E-02 0.71776E-02 0.18040E-01 0.42254E-01 + 0.90642E-01 0.18307E+00 0.38718E+00 0.67110E+00 0.10422E+01 0.15403E+01 + 0.21404E+01 0.28966E+01 0.38739E+01 0.51863E+01 0.68639E+01 0.92088E+01 + 0.12217E+02 0.16231E+02 0.21601E+02 0.19527E-07 0.37168E-07 0.60797E-07 + 0.15214E-06 0.31634E-06 0.49557E-06 0.36103E-05 0.11249E-04 0.40087E-04 + 0.61411E-04 0.91821E-04 0.24914E-03 0.56262E-03 0.11636E-02 0.31043E-02 + 0.81229E-02 0.19860E-01 0.45520E-01 0.95408E-01 0.19283E+00 0.40322E+00 + 0.80428E+00 0.13401E+01 0.19737E+01 0.27365E+01 0.36973E+01 0.49386E+01 + 0.66044E+01 0.87332E+01 0.11704E+02 0.15511E+02 0.20582E+02 0.27352E+02 + 0.15436E-06 0.24941E-06 0.42650E-06 0.69892E-06 0.10823E-05 0.14731E-05 + 0.56999E-05 0.17327E-04 0.58257E-04 0.90021E-04 0.13385E-03 0.32194E-03 + 0.66836E-03 0.12760E-02 0.33575E-02 0.88486E-02 0.21099E-01 0.47780E-01 + 0.98313E-01 0.19776E+00 0.41470E+00 0.82163E+00 0.16574E+01 0.25039E+01 + 0.34647E+01 0.46738E+01 0.62348E+01 0.83287E+01 0.11002E+02 0.14731E+02 + 0.19506E+02 0.25855E+02 0.34318E+02 0.29033E-06 0.37372E-06 0.78253E-06 + 0.18004E-05 0.32960E-05 0.45711E-05 0.49768E-05 0.18166E-04 0.70824E-04 + 0.10808E-03 0.16381E-03 0.36454E-03 0.11374E-02 0.14696E-02 0.36345E-02 + 0.94615E-02 0.22273E-01 0.49866E-01 0.10175E+00 0.20278E+00 0.42521E+00 + 0.84249E+00 0.16891E+01 0.31786E+01 0.43881E+01 0.59083E+01 0.78697E+01 + 0.10500E+02 0.13856E+02 0.18535E+02 0.24518E+02 0.32468E+02 0.43050E+02 + 0.20945E-04 0.27495E-04 0.36511E-04 0.57477E-04 0.93669E-04 0.14659E-03 + 0.18940E-03 0.24440E-03 0.27721E-03 0.35613E-03 0.47467E-03 0.50450E-03 + 0.54194E-03 0.22544E-02 0.13892E-02 0.58095E-02 0.16793E-01 0.41348E-01 + 0.87705E-01 0.17890E+00 0.38464E+00 0.77898E+00 0.15841E+01 0.30528E+01 + 0.51714E+01 0.69605E+01 0.92631E+01 0.12352E+02 0.16281E+02 0.21776E+02 + 0.28778E+02 0.38075E+02 0.50433E+02 0.12658E-03 0.16403E-03 0.21433E-03 + 0.29937E-03 0.42479E-03 0.52895E-03 0.66121E-03 0.82587E-03 0.96392E-03 + 0.11866E-02 0.14850E-02 0.17743E-02 0.20839E-02 0.24840E-02 0.21859E-02 + 0.67378E-02 0.14420E-01 0.38862E-01 0.84224E-01 0.17281E+00 0.37480E+00 + 0.75904E+00 0.15626E+01 0.30382E+01 0.54509E+01 0.95535E+01 0.14103E+02 + 0.18747E+02 0.24631E+02 0.32885E+02 0.43366E+02 0.57264E+02 0.75714E+02 + 0.29387E-04 0.37643E-04 0.48559E-04 0.66332E-04 0.91803E-04 0.12502E-03 + 0.10692E-03 0.93366E-04 0.10945E-03 0.15012E-03 0.21593E-03 0.62593E-03 + 0.12892E-02 0.23311E-02 0.58183E-02 0.14671E-01 0.32821E-01 0.66484E-01 + 0.12769E+00 0.24182E+00 0.48723E+00 0.94222E+00 0.18653E+01 0.35421E+01 + 0.63423E+01 0.10996E+02 0.18974E+02 0.27016E+02 0.35417E+02 0.47134E+02 + 0.62070E+02 0.81865E+02 0.10812E+03 0.54499E-03 0.69915E-03 0.90235E-03 + 0.12378E-02 0.17168E-02 0.24133E-02 0.31932E-02 0.36223E-02 0.41420E-02 + 0.48936E-02 0.59121E-02 0.70289E-02 0.85551E-02 0.10714E-01 0.11893E-01 + 0.10805E-01 0.12026E-01 0.25775E-01 0.59540E-01 0.13206E+00 0.31046E+00 + 0.65087E+00 0.13784E+01 0.27117E+01 0.49248E+01 0.86341E+01 0.14849E+02 + 0.25744E+02 0.34964E+02 0.46605E+02 0.61270E+02 0.80699E+02 0.10646E+03 + 0.89747E-03 0.11469E-02 0.14731E-02 0.20065E-02 0.27585E-02 0.38349E-02 + 0.53325E-02 0.68721E-02 0.75608E-02 0.88070E-02 0.10324E-01 0.12045E-01 + 0.14473E-01 0.17862E-01 0.20416E-01 0.20364E-01 0.19113E-01 0.36878E-01 + 0.52874E-01 0.11444E+00 0.27911E+00 0.59855E+00 0.12919E+01 0.25580E+01 + 0.46359E+01 0.81385E+01 0.14026E+02 0.24182E+02 0.41272E+02 0.55114E+02 + 0.72307E+02 0.95081E+02 0.12527E+03 0.14173E-02 0.18058E-02 0.23110E-02 + 0.31309E-02 0.42751E-02 0.58932E-02 0.81309E-02 0.11418E-01 0.14014E-01 + 0.15713E-01 0.18128E-01 0.20633E-01 0.24224E-01 0.29403E-01 0.33993E-01 + 0.36140E-01 0.35589E-01 0.36624E-01 0.55148E-01 0.10234E+00 0.24296E+00 + 0.53135E+00 0.11779E+01 0.23589E+01 0.42702E+01 0.74634E+01 0.12895E+02 + 0.22242E+02 0.37703E+02 0.63619E+02 0.83251E+02 0.10925E+03 0.14371E+03 + 0.20810E-02 0.26436E-02 0.33718E-02 0.45449E-02 0.61666E-02 0.84341E-02 + 0.11544E-01 0.16038E-01 0.22318E-01 0.27133E-01 0.30613E-01 0.34672E-01 + 0.39909E-01 0.47419E-01 0.54527E-01 0.59394E-01 0.61497E-01 0.61114E-01 + 0.73033E-01 0.11204E+00 0.22447E+00 0.47818E+00 0.10738E+01 0.21709E+01 + 0.39203E+01 0.68121E+01 0.11697E+02 0.20273E+02 0.34238E+02 0.59396E+02 + 0.94963E+02 0.12431E+03 0.16320E+03 0.28414E-02 0.36003E-02 0.45783E-02 + 0.61450E-02 0.82935E-02 0.11268E-01 0.15310E-01 0.21067E-01 0.29009E-01 + 0.41222E-01 0.48630E-01 0.54055E-01 0.61599E-01 0.71513E-01 0.80846E-01 + 0.87636E-01 0.91649E-01 0.91418E-01 0.10209E+00 0.13483E+00 0.24037E+00 + 0.47784E+00 0.10524E+01 0.21154E+01 0.37847E+01 0.65118E+01 0.11081E+02 + 0.19076E+02 0.32361E+02 0.55910E+02 0.94985E+02 0.14674E+03 0.19218E+03 + 0.39336E-02 0.49727E-02 0.63073E-02 0.84346E-02 0.11333E-01 0.15313E-01 + 0.20682E-01 0.28234E-01 0.38545E-01 0.54083E-01 0.77178E-01 0.86768E-01 + 0.97221E-01 0.11151E+00 0.12409E+00 0.13379E+00 0.14103E+00 0.14283E+00 + 0.15484E+00 0.18464E+00 0.28240E+00 0.49410E+00 0.10304E+01 0.20402E+01 + 0.36045E+01 0.61253E+01 0.10308E+02 0.17594E+02 0.29605E+02 0.51574E+02 + 0.86952E+02 0.14786E+03 0.22073E+03 0.53879E-02 0.67963E-02 0.86001E-02 + 0.11464E-01 0.15345E-01 0.20638E-01 0.27733E-01 0.37610E-01 0.50971E-01 + 0.70748E-01 0.99630E-01 0.13973E+00 0.15354E+00 0.17338E+00 0.19120E+00 + 0.20417E+00 0.21504E+00 0.21987E+00 0.23611E+00 0.26762E+00 0.32948E+00 + 0.55962E+00 0.10571E+01 0.20198E+01 0.34965E+01 0.58414E+01 0.96884E+01 + 0.16350E+02 0.27236E+02 0.47136E+02 0.79990E+02 0.13498E+03 0.22978E+03 + 0.74230E-02 0.93422E-02 0.11794E-01 0.15673E-01 0.20904E-01 0.27992E-01 + 0.37435E-01 0.50450E-01 0.67882E-01 0.93274E-01 0.12971E+00 0.18034E+00 + 0.24513E+00 0.27060E+00 0.29463E+00 0.31119E+00 0.32379E+00 0.32933E+00 + 0.34946E+00 0.38471E+00 0.43364E+00 0.61681E+00 0.11702E+01 0.21218E+01 + 0.35680E+01 0.58282E+01 0.94894E+01 0.15775E+02 0.25959E+02 0.44504E+02 + 0.75083E+02 0.12727E+03 0.21505E+03 0.98721E-02 0.12397E-01 0.15616E-01 + 0.20696E-01 0.27522E-01 0.36730E-01 0.48943E-01 0.65651E-01 0.87873E-01 + 0.11983E+00 0.16507E+00 0.22706E+00 0.31712E+00 0.41847E+00 0.44737E+00 + 0.47022E+00 0.48537E+00 0.49066E+00 0.51556E+00 0.55658E+00 0.59236E+00 + 0.76307E+00 0.13735E+01 0.23248E+01 0.37655E+01 0.59816E+01 0.95211E+01 + 0.15533E+02 0.25183E+02 0.42640E+02 0.71262E+02 0.12037E+03 0.20383E+03 + 0.13319E-01 0.16683E-01 0.20966E-01 0.27711E-01 0.36741E-01 0.48875E-01 + 0.64895E-01 0.86661E-01 0.11541E+00 0.15626E+00 0.21337E+00 0.29048E+00 + 0.40053E+00 0.56102E+00 0.69164E+00 0.71293E+00 0.73211E+00 0.73033E+00 + 0.75454E+00 0.79729E+00 0.81595E+00 0.98051E+00 0.17103E+01 0.27026E+01 + 0.41995E+01 0.64614E+01 0.10017E+02 0.15979E+02 0.25452E+02 0.42434E+02 + 0.70100E+02 0.11732E+03 0.19842E+03 0.17117E-01 0.21383E-01 0.26806E-01 + 0.35332E-01 0.46723E-01 0.61981E-01 0.82057E-01 0.10920E+00 0.14484E+00 + 0.19508E+00 0.26460E+00 0.35740E+00 0.48797E+00 0.67520E+00 0.91691E+00 + 0.10542E+01 0.10627E+01 0.10572E+01 0.10729E+01 0.11101E+01 0.11029E+01 + 0.12626E+01 0.22187E+01 0.33015E+01 0.49213E+01 0.73180E+01 0.11018E+02 + 0.17130E+02 0.26726E+02 0.43749E+02 0.71265E+02 0.11794E+03 0.19770E+03 + 0.23153E-01 0.28829E-01 0.36039E-01 0.47356E-01 0.62444E-01 0.82601E-01 + 0.10905E+00 0.14465E+00 0.19118E+00 0.25623E+00 0.34542E+00 0.46328E+00 + 0.62690E+00 0.85776E+00 0.11509E+01 0.15106E+01 0.16419E+01 0.16097E+01 + 0.16286E+01 0.16543E+01 0.15996E+01 0.17385E+01 0.21859E+01 0.41674E+01 + 0.59160E+01 0.84630E+01 0.12327E+02 0.18602E+02 0.28334E+02 0.45353E+02 + 0.72647E+02 0.11860E+03 0.19664E+03 0.29435E-01 0.36514E-01 0.45498E-01 + 0.59587E-01 0.78341E-01 0.10335E+00 0.13608E+00 0.18000E+00 0.23717E+00 + 0.31666E+00 0.42488E+00 0.56667E+00 0.76142E+00 0.10327E+01 0.13713E+01 + 0.17785E+01 0.22819E+01 0.23231E+01 0.23079E+01 0.23199E+01 0.21889E+01 + 0.23019E+01 0.27690E+01 0.54909E+01 0.74942E+01 0.10340E+02 0.14563E+02 + 0.21303E+02 0.31584E+02 0.49340E+02 0.77480E+02 0.12443E+03 0.20360E+03 + 0.38925E-01 0.48067E-01 0.59666E-01 0.77837E-01 0.10199E+00 0.13414E+00 + 0.17613E+00 0.23230E+00 0.30515E+00 0.40596E+00 0.54230E+00 0.71951E+00 + 0.96048E+00 0.12920E+01 0.16991E+01 0.21786E+01 0.27579E+01 0.34271E+01 + 0.34045E+01 0.33584E+01 0.31179E+01 0.31715E+01 0.36474E+01 0.74562E+01 + 0.97928E+01 0.13030E+02 0.17723E+02 0.25075E+02 0.36082E+02 0.54838E+02 + 0.84156E+02 0.13256E+03 0.21346E+03 0.49915E-01 0.61310E-01 0.75760E-01 + 0.98378E-01 0.12842E+00 0.16835E+00 0.22044E+00 0.28996E+00 0.37990E+00 + 0.50388E+00 0.67087E+00 0.88663E+00 0.11778E+01 0.15748E+01 0.20564E+01 + 0.26151E+01 0.32782E+01 0.40279E+01 0.49923E+01 0.48309E+01 0.44166E+01 + 0.43967E+01 0.48572E+01 0.10417E+02 0.13190E+02 0.16937E+02 0.22241E+02 + 0.30394E+02 0.42355E+02 0.62442E+02 0.93352E+02 0.14377E+03 0.22718E+03 + 0.66801E-01 0.81530E-01 0.10019E+00 0.12939E+00 0.16815E+00 0.21960E+00 + 0.28662E+00 0.37592E+00 0.49117E+00 0.64950E+00 0.86184E+00 0.11347E+01 + 0.15006E+01 0.19951E+01 0.25881E+01 0.32657E+01 0.40562E+01 0.49302E+01 + 0.61152E+01 0.72577E+01 0.64878E+01 0.63236E+01 0.67435E+01 0.14940E+02 + 0.18280E+02 0.22693E+02 0.28790E+02 0.37984E+02 0.51186E+02 0.73026E+02 + 0.10605E+03 0.15918E+03 0.24604E+03 0.86163E-01 0.10437E+00 0.12744E+00 + 0.16351E+00 0.21137E+00 0.27485E+00 0.35743E+00 0.46732E+00 0.60891E+00 + 0.80300E+00 0.10625E+01 0.13947E+01 0.18378E+01 0.24330E+01 0.31399E+01 + 0.39381E+01 0.48552E+01 0.58489E+01 0.71741E+01 0.88236E+01 0.93377E+01 + 0.88810E+01 0.92876E+01 0.21881E+02 0.26024E+02 0.31348E+02 0.38510E+02 + 0.49108E+02 0.63959E+02 0.88207E+02 0.12412E+03 0.18104E+03 0.27286E+03 + 0.11607E+00 0.13936E+00 0.16887E+00 0.21500E+00 0.27615E+00 0.35721E+00 + 0.46255E+00 0.60256E+00 0.78262E+00 0.10290E+01 0.13575E+01 0.17764E+01 + 0.23326E+01 0.30749E+01 0.39487E+01 0.49228E+01 0.60239E+01 0.71908E+01 + 0.87201E+01 0.10576E+02 0.11973E+02 0.12954E+02 0.13158E+02 0.32620E+02 + 0.37908E+02 0.44467E+02 0.53037E+02 0.65488E+02 0.82473E+02 0.10990E+03 + 0.14960E+03 0.21151E+03 0.30989E+03 0.15194E+00 0.18061E+00 0.21691E+00 + 0.27365E+00 0.34883E+00 0.44847E+00 0.57777E+00 0.74956E+00 0.97018E+00 + 0.12717E+01 0.16730E+01 0.21832E+01 0.28584E+01 0.37559E+01 0.48055E+01 + 0.59643E+01 0.72591E+01 0.86085E+01 0.10353E+02 0.12428E+02 0.13892E+02 + 0.16654E+02 0.18571E+02 0.48829E+02 0.56313E+02 0.64531E+02 0.74943E+02 + 0.89809E+02 0.10952E+03 0.14106E+03 0.18558E+03 0.25387E+03 0.36067E+03 + 0.23612E-09 0.68213E-09 0.12966E-08 0.29805E-08 0.48921E-08 0.12457E-07 + 0.10280E-06 0.26377E-06 0.74005E-06 0.17293E-05 0.52055E-05 0.52808E-05 + 0.21947E-03 0.53658E-03 0.13993E-02 0.33107E-03 0.71358E-02 0.10472E-03 + 0.22513E-01 0.35583E-01 0.79443E-01 0.13259E+00 0.21615E+00 0.33953E+00 + 0.51918E+00 0.76393E+00 0.11468E+01 0.16693E+01 0.24870E+01 0.36766E+01 + 0.55007E+01 0.83559E+01 0.12936E+02 0.30758E-09 0.47311E-09 0.11926E-08 + 0.28715E-08 0.57872E-08 0.10752E-07 0.11357E-06 0.34636E-06 0.10980E-05 + 0.27263E-05 0.91189E-05 0.85948E-05 0.28281E-03 0.73384E-03 0.16815E-02 + 0.38401E-03 0.90587E-02 0.12326E-03 0.28474E-01 0.44946E-01 0.10014E+00 + 0.16696E+00 0.27188E+00 0.42650E+00 0.65113E+00 0.95608E+00 0.14312E+01 + 0.20755E+01 0.30770E+01 0.45190E+01 0.67028E+01 0.10072E+02 0.15384E+02 + 0.61780E-09 0.78550E-09 0.91657E-09 0.21733E-08 0.47899E-08 0.11724E-07 + 0.11166E-06 0.32445E-06 0.14493E-05 0.60074E-05 0.19785E-04 0.11486E-04 + 0.34668E-03 0.86136E-03 0.20461E-02 0.41905E-03 0.10821E-01 0.13250E-03 + 0.36048E-01 0.56814E-01 0.12630E+00 0.21035E+00 0.34215E+00 0.53614E+00 + 0.81740E+00 0.11981E+01 0.17894E+01 0.25872E+01 0.38200E+01 0.55792E+01 + 0.82164E+01 0.12232E+02 0.18466E+02 0.11089E-08 0.13622E-08 0.18306E-08 + 0.22074E-08 0.42738E-08 0.12684E-07 0.14775E-06 0.30020E-06 0.16219E-05 + 0.80209E-05 0.35195E-04 0.13304E-04 0.40763E-03 0.10077E-02 0.23154E-02 + 0.46477E-03 0.11452E-01 0.13627E-03 0.45710E-01 0.71907E-01 0.15943E+00 + 0.26520E+00 0.43093E+00 0.67451E+00 0.10271E+01 0.15033E+01 0.22409E+01 + 0.32318E+01 0.47557E+01 0.69151E+01 0.10123E+02 0.14952E+02 0.22347E+02 + 0.21248E-08 0.26633E-08 0.35732E-08 0.44666E-08 0.62243E-08 0.10667E-07 + 0.23269E-06 0.35849E-06 0.13049E-05 0.10261E-04 0.56396E-04 0.14377E-04 + 0.46661E-03 0.11373E-02 0.26026E-02 0.49677E-03 0.12262E-01 0.10133E-03 + 0.58057E-01 0.91126E-01 0.20141E+00 0.33459E+00 0.54305E+00 0.84911E+00 + 0.12916E+01 0.18879E+01 0.28098E+01 0.40439E+01 0.59344E+01 0.85969E+01 + 0.12524E+02 0.18376E+02 0.27233E+02 0.42285E-08 0.54294E-08 0.65090E-08 + 0.86528E-08 0.12770E-07 0.16768E-07 0.31680E-06 0.71195E-06 0.11486E-05 + 0.93731E-05 0.67851E-04 0.14171E-04 0.51994E-03 0.12387E-02 0.28014E-02 + 0.51535E-03 0.13090E-01 0.77506E-04 0.61243E-01 0.11565E+00 0.25466E+00 + 0.42242E+00 0.68476E+00 0.10695E+01 0.16251E+01 0.23726E+01 0.35265E+01 + 0.50664E+01 0.74184E+01 0.10714E+02 0.15545E+02 0.22687E+02 0.33383E+02 + 0.23937E-07 0.29979E-07 0.46579E-07 0.91832E-07 0.18353E-06 0.33737E-06 + 0.32641E-06 0.12590E-05 0.49676E-05 0.43735E-05 0.53175E-04 0.17741E-04 + 0.52611E-03 0.12627E-02 0.28214E-02 0.29301E-03 0.13253E-01 0.91331E-03 + 0.61433E-01 0.12658E+00 0.31830E+00 0.52810E+00 0.85611E+00 0.13368E+01 + 0.20303E+01 0.29617E+01 0.43987E+01 0.63110E+01 0.92257E+01 0.13293E+02 + 0.19224E+02 0.27937E+02 0.40869E+02 0.48428E-07 0.67716E-07 0.10609E-06 + 0.22100E-06 0.54173E-06 0.11445E-05 0.14153E-05 0.25658E-05 0.11903E-04 + 0.19498E-04 0.46233E-04 0.49076E-04 0.52728E-03 0.13155E-02 0.28630E-02 + 0.18596E-03 0.13457E-01 0.18096E-02 0.62131E-01 0.12748E+00 0.39912E+00 + 0.66190E+00 0.10726E+01 0.16739E+01 0.25407E+01 0.37035E+01 0.54956E+01 + 0.78759E+01 0.11498E+02 0.16534E+02 0.23848E+02 0.34535E+02 0.50278E+02 + 0.28848E-07 0.49568E-07 0.85140E-07 0.19333E-06 0.33005E-06 0.43503E-06 + 0.44388E-05 0.12162E-04 0.41036E-04 0.67123E-04 0.11390E-03 0.16016E-04 + 0.69837E-03 0.16389E-02 0.35250E-02 0.58228E-03 0.15032E-01 0.12877E-03 + 0.66312E-01 0.13567E+00 0.50082E+00 0.85807E+00 0.13832E+01 0.21509E+01 + 0.32561E+01 0.47375E+01 0.70175E+01 0.10042E+02 0.14633E+02 0.21002E+02 + 0.30218E+02 0.43619E+02 0.63239E+02 0.18679E-06 0.34196E-06 0.55150E-06 + 0.79599E-06 0.11108E-05 0.13259E-05 0.74319E-05 0.19469E-04 0.60001E-04 + 0.98552E-04 0.16810E-03 0.16005E-04 0.83988E-03 0.18033E-02 0.38141E-02 + 0.60027E-03 0.15947E-01 0.21069E-03 0.68137E-01 0.13922E+00 0.51089E+00 + 0.10896E+01 0.17519E+01 0.27188E+01 0.41094E+01 0.59717E+01 0.88354E+01 + 0.12629E+02 0.18381E+02 0.26344E+02 0.37834E+02 0.54478E+02 0.78722E+02 + 0.33422E-06 0.48640E-06 0.12154E-05 0.21658E-05 0.33982E-05 0.42746E-05 + 0.69243E-05 0.21555E-04 0.74040E-04 0.11981E-03 0.20979E-03 0.14710E-04 + 0.13233E-02 0.21007E-02 0.41370E-02 0.53485E-03 0.16769E-01 0.55791E-03 + 0.70167E-01 0.14231E+00 0.52231E+00 0.11818E+01 0.22177E+01 0.34342E+01 + 0.51820E+01 0.75201E+01 0.11114E+02 0.15869E+02 0.23072E+02 0.33024E+02 + 0.47356E+02 0.68052E+02 0.98078E+02 0.24346E-04 0.32137E-04 0.43556E-04 + 0.66068E-04 0.98482E-04 0.14333E-03 0.17463E-03 0.22828E-03 0.26045E-03 + 0.32747E-03 0.40430E-03 0.91605E-03 0.41907E-03 0.24248E-02 0.18051E-02 + 0.45573E-02 0.10656E-01 0.14700E-01 0.53457E-01 0.11381E+00 0.44327E+00 + 0.10303E+01 0.23353E+01 0.38561E+01 0.58627E+01 0.85298E+01 0.12664E+02 + 0.18094E+02 0.26367E+02 0.37761E+02 0.54159E+02 0.77816E+02 0.11207E+03 + 0.14612E-03 0.19008E-03 0.24927E-03 0.32971E-03 0.43468E-03 0.51965E-03 + 0.62149E-03 0.78854E-03 0.92219E-03 0.11270E-02 0.13621E-02 0.23916E-02 + 0.17301E-02 0.17036E-02 0.20366E-02 0.13142E-01 0.76972E-02 0.27680E-01 + 0.44624E-01 0.99006E-01 0.39722E+00 0.95456E+00 0.21941E+01 0.47833E+01 + 0.86334E+01 0.12550E+02 0.18661E+02 0.26629E+02 0.38829E+02 0.55557E+02 + 0.79601E+02 0.11421E+03 0.16412E+03 0.33722E-04 0.43334E-04 0.56059E-04 + 0.72593E-04 0.94889E-04 0.12284E-03 0.93212E-04 0.79386E-04 0.11580E-03 + 0.18183E-03 0.34558E-03 0.35237E-03 0.17881E-02 0.36507E-02 0.67397E-02 + 0.63262E-03 0.23870E-01 0.40466E-02 0.85767E-01 0.16589E+00 0.57409E+00 + 0.12828E+01 0.28315E+01 0.59792E+01 0.12363E+02 0.19194E+02 0.28186E+02 + 0.40023E+02 0.57932E+02 0.82558E+02 0.11784E+03 0.16842E+03 0.24109E+03 + 0.62573E-03 0.80490E-03 0.10412E-02 0.13552E-02 0.17781E-02 0.23538E-02 + 0.31060E-02 0.35156E-02 0.40140E-02 0.47440E-02 0.56449E-02 0.79935E-02 + 0.79418E-02 0.92548E-02 0.10977E-01 0.27220E-01 0.15609E-01 0.67187E-01 + 0.28401E-01 0.57670E-01 0.25292E+00 0.66723E+00 0.16513E+01 0.37789E+01 + 0.81189E+01 0.16199E+02 0.24376E+02 0.34823E+02 0.51115E+02 0.73280E+02 + 0.10521E+03 0.15123E+03 0.21762E+03 0.10283E-02 0.13170E-02 0.16946E-02 + 0.21918E-02 0.28540E-02 0.37441E-02 0.49796E-02 0.67222E-02 0.73863E-02 + 0.85631E-02 0.99462E-02 0.13304E-01 0.13663E-01 0.16023E-01 0.19298E-01 + 0.40528E-01 0.27907E-01 0.18227E+00 0.41835E-01 0.64949E-01 0.20803E+00 + 0.54562E+00 0.13866E+01 0.32455E+01 0.71348E+01 0.14478E+02 0.27332E+02 + 0.39075E+02 0.57616E+02 0.82722E+02 0.11896E+03 0.17126E+03 0.24682E+03 + 0.16214E-02 0.20696E-02 0.26523E-02 0.34140E-02 0.44196E-02 0.57579E-02 + 0.76152E-02 0.10754E-01 0.13768E-01 0.15378E-01 0.17575E-01 0.22318E-01 + 0.23146E-01 0.27060E-01 0.32632E-01 0.60617E-01 0.49116E-01 0.13044E+00 + 0.72105E-01 0.92927E-01 0.20322E+00 0.45585E+00 0.11256E+01 0.26570E+01 + 0.59538E+01 0.12170E+02 0.25818E+02 0.41932E+02 0.62215E+02 0.89524E+02 + 0.12906E+03 0.18630E+03 0.26918E+03 0.23768E-02 0.30244E-02 0.38610E-02 + 0.49478E-02 0.63705E-02 0.82459E-02 0.10839E-01 0.15146E-01 0.21205E-01 + 0.26650E-01 0.29819E-01 0.36995E-01 0.38438E-01 0.44338E-01 0.52814E-01 + 0.89765E-01 0.79277E-01 0.18127E+00 0.11987E+00 0.14950E+00 0.28790E+00 + 0.46148E+00 0.99250E+00 0.22428E+01 0.49721E+01 0.10245E+02 0.21745E+02 + 0.43114E+02 0.66402E+02 0.95662E+02 0.13816E+03 0.19985E+03 0.28944E+03 + 0.32408E-02 0.41123E-02 0.52333E-02 0.66807E-02 0.85623E-02 0.11023E-01 + 0.14403E-01 0.19936E-01 0.27621E-01 0.39401E-01 0.47530E-01 0.57272E-01 + 0.59584E-01 0.67383E-01 0.78617E-01 0.12607E+00 0.11402E+00 0.23914E+00 + 0.17063E+00 0.21123E+00 0.37534E+00 0.59667E+00 0.10182E+01 0.21405E+01 + 0.45893E+01 0.93198E+01 0.19831E+02 0.38979E+02 0.75726E+02 0.10888E+03 + 0.15709E+03 0.22716E+03 0.32904E+03 0.44808E-02 0.56719E-02 0.71978E-02 + 0.91593E-02 0.11694E-01 0.14987E-01 0.19490E-01 0.26767E-01 0.36770E-01 + 0.51806E-01 0.73937E-01 0.91372E-01 0.94383E-01 0.10586E+00 0.12112E+00 + 0.18360E+00 0.16963E+00 0.32703E+00 0.25049E+00 0.30958E+00 0.52742E+00 + 0.76064E+00 0.12860E+01 0.21756E+01 0.43718E+01 0.86282E+01 0.17977E+02 + 0.35212E+02 0.71669E+02 0.12227E+03 0.17575E+03 0.25349E+03 0.36653E+03 + 0.61300E-02 0.77420E-02 0.98008E-02 0.12436E-01 0.15827E-01 0.20206E-01 + 0.26171E-01 0.35709E-01 0.48699E-01 0.67894E-01 0.95680E-01 0.14480E+00 + 0.14957E+00 0.16553E+00 0.18715E+00 0.27015E+00 0.25216E+00 0.45253E+00 + 0.36303E+00 0.44589E+00 0.74101E+00 0.10189E+01 0.15616E+01 0.27455E+01 + 0.45370E+01 0.85981E+01 0.17181E+02 0.33413E+02 0.66730E+02 0.13095E+03 + 0.20301E+03 0.29093E+03 0.41849E+03 0.84349E-02 0.10628E-01 0.13422E-01 + 0.16986E-01 0.21551E-01 0.27415E-01 0.35370E-01 0.47962E-01 0.64947E-01 + 0.89651E-01 0.12482E+00 0.18535E+00 0.23940E+00 0.25937E+00 0.28894E+00 + 0.40197E+00 0.37343E+00 0.63206E+00 0.51543E+00 0.62264E+00 0.10008E+01 + 0.13386E+01 0.19406E+01 0.31811E+01 0.57239E+01 0.10745E+02 0.17583E+02 + 0.33538E+02 0.66255E+02 0.12793E+03 0.24811E+03 0.35244E+03 0.50322E+03 + 0.11203E-01 0.14086E-01 0.17750E-01 0.22413E-01 0.28366E-01 0.35984E-01 + 0.46286E-01 0.62478E-01 0.84165E-01 0.11532E+00 0.15909E+00 0.23276E+00 + 0.30729E+00 0.40243E+00 0.43935E+00 0.59556E+00 0.55215E+00 0.88822E+00 + 0.73225E+00 0.86922E+00 0.13506E+01 0.17691E+01 0.24672E+01 0.38315E+01 + 0.65268E+01 0.11837E+02 0.22233E+02 0.42380E+02 0.67873E+02 0.13037E+03 + 0.25109E+03 0.44208E+03 0.62508E+03 0.15094E-01 0.18932E-01 0.23801E-01 + 0.29984E-01 0.37856E-01 0.47894E-01 0.61426E-01 0.82548E-01 0.11064E+00 + 0.15053E+00 0.20590E+00 0.29732E+00 0.38870E+00 0.53897E+00 0.67980E+00 + 0.89070E+00 0.82592E+00 0.12720E+01 0.10438E+01 0.12098E+01 0.17948E+01 + 0.22928E+01 0.30964E+01 0.46177E+01 0.75429E+01 0.13276E+02 0.24112E+02 + 0.45173E+02 0.86466E+02 0.16711E+03 0.26030E+03 0.50085E+03 0.80174E+03 + 0.19369E-01 0.24232E-01 0.30393E-01 0.38203E-01 0.48126E-01 0.60749E-01 + 0.77720E-01 0.10409E+00 0.13896E+00 0.18807E+00 0.25558E+00 0.36551E+00 + 0.47403E+00 0.64958E+00 0.90465E+00 0.13059E+01 0.11914E+01 0.17980E+01 + 0.14591E+01 0.16514E+01 0.23344E+01 0.29016E+01 0.38021E+01 0.54813E+01 + 0.86541E+01 0.14835E+02 0.26218E+02 0.48322E+02 0.90875E+02 0.17368E+03 + 0.33591E+03 0.64504E+03 0.10009E+04 0.26150E-01 0.32617E-01 0.40801E-01 + 0.51162E-01 0.64301E-01 0.80977E-01 0.10335E+00 0.13797E+00 0.18353E+00 + 0.24721E+00 0.33397E+00 0.47313E+00 0.60972E+00 0.82674E+00 0.11363E+01 + 0.18688E+01 0.18266E+01 0.26553E+01 0.21663E+01 0.23956E+01 0.32262E+01 + 0.39026E+01 0.49583E+01 0.68902E+01 0.10464E+02 0.17380E+02 0.29709E+02 + 0.53641E+02 0.98605E+02 0.18573E+03 0.35478E+03 0.68239E+03 0.13072E+04 + 0.33173E-01 0.41235E-01 0.51428E-01 0.64320E-01 0.80648E-01 0.10133E+00 + 0.12904E+00 0.17176E+00 0.22779E+00 0.30567E+00 0.41103E+00 0.57861E+00 + 0.74096E+00 0.99600E+00 0.13541E+01 0.21917E+01 0.25731E+01 0.37899E+01 + 0.30489E+01 0.33237E+01 0.42551E+01 0.49875E+01 0.61342E+01 0.82461E+01 + 0.12128E+02 0.19593E+02 0.32651E+02 0.57848E+02 0.10456E+03 0.19455E+03 + 0.36806E+03 0.70528E+03 0.13526E+04 0.43755E-01 0.54165E-01 0.67317E-01 + 0.83934E-01 0.10496E+00 0.13155E+00 0.16711E+00 0.22179E+00 0.29323E+00 + 0.39204E+00 0.52490E+00 0.73450E+00 0.93513E+00 0.12469E+01 0.16780E+01 + 0.26748E+01 0.31009E+01 0.56474E+01 0.44593E+01 0.47703E+01 0.58321E+01 + 0.66088E+01 0.78464E+01 0.10170E+02 0.14434E+02 0.22591E+02 0.36567E+02 + 0.63343E+02 0.11223E+03 0.20576E+03 0.38475E+03 0.73051E+03 0.14036E+04 + 0.55932E-01 0.68906E-01 0.85284E-01 0.10597E+00 0.13211E+00 0.16514E+00 + 0.20926E+00 0.27696E+00 0.36521E+00 0.48682E+00 0.64959E+00 0.90478E+00 + 0.11473E+01 0.15207E+01 0.20312E+01 0.31996E+01 0.36765E+01 0.65890E+01 + 0.64884E+01 0.67924E+01 0.80393E+01 0.88438E+01 0.10168E+02 0.12733E+02 + 0.17451E+02 0.26447E+02 0.41530E+02 0.70205E+02 0.12171E+03 0.21946E+03 + 0.40496E+03 0.76084E+03 0.14498E+04 0.74579E-01 0.91342E-01 0.11250E+00 + 0.13919E+00 0.17291E+00 0.21547E+00 0.27225E+00 0.35924E+00 0.47236E+00 + 0.62775E+00 0.83487E+00 0.11578E+01 0.14623E+01 0.19276E+01 0.25568E+01 + 0.39824E+01 0.45376E+01 0.79889E+01 0.81290E+01 0.10104E+02 0.11511E+02 + 0.12309E+02 0.13678E+02 0.16508E+02 0.21780E+02 0.31845E+02 0.48329E+02 + 0.79408E+02 0.13420E+03 0.23721E+03 0.43073E+03 0.79902E+03 0.15073E+04 + 0.95780E-01 0.11650E+00 0.14264E+00 0.17561E+00 0.21723E+00 0.26975E+00 + 0.33973E+00 0.44681E+00 0.58581E+00 0.77636E+00 0.10296E+01 0.14228E+01 + 0.17913E+01 0.23513E+01 0.31022E+01 0.47941E+01 0.54238E+01 0.94306E+01 + 0.94978E+01 0.12670E+02 0.16082E+02 0.16948E+02 0.18266E+02 0.21322E+02 + 0.27168E+02 0.38388E+02 0.56374E+02 0.89975E+02 0.14817E+03 0.25640E+03 + 0.45758E+03 0.83724E+03 0.15626E+04 0.12837E+00 0.15488E+00 0.18831E+00 + 0.23046E+00 0.28364E+00 0.35069E+00 0.43995E+00 0.57641E+00 0.75325E+00 + 0.99519E+00 0.13158E+01 0.18123E+01 0.22740E+01 0.29723E+01 0.39013E+01 + 0.59867E+01 0.67230E+01 0.11561E+02 0.11513E+02 0.15128E+02 0.23358E+02 + 0.23910E+02 0.25218E+02 0.28414E+02 0.34884E+02 0.47496E+02 0.67287E+02 + 0.10392E+03 0.16618E+03 0.28047E+03 0.49036E+03 0.88255E+03 0.16261E+04 + 0.16708E+00 0.19969E+00 0.24082E+00 0.29266E+00 0.35804E+00 0.44045E+00 + 0.55003E+00 0.71751E+00 0.93422E+00 0.12303E+01 0.16220E+01 0.22275E+01 + 0.27872E+01 0.36311E+01 0.47477E+01 0.72466E+01 0.80951E+01 0.13804E+02 + 0.13637E+02 0.17719E+02 0.31012E+02 0.33561E+02 0.34653E+02 0.38092E+02 + 0.45251E+02 0.59542E+02 0.81506E+02 0.12186E+03 0.18905E+03 0.31075E+03 + 0.53119E+03 0.93853E+03 0.17039E+04 0.14847E-09 0.29957E-09 0.54650E-09 + 0.96042E-09 0.18684E-08 0.35433E-08 0.20386E-07 0.40773E-07 0.19527E-07 + 0.15436E-06 0.29033E-06 0.20945E-04 0.12658E-03 0.29387E-04 0.54499E-03 + 0.89747E-03 0.14173E-02 0.20810E-02 0.28414E-02 0.39336E-02 0.53879E-02 + 0.74230E-02 0.98721E-02 0.13319E-01 0.17117E-01 0.23153E-01 0.29435E-01 + 0.38925E-01 0.49915E-01 0.66801E-01 0.86163E-01 0.11607E+00 0.15194E+00 + 0.37413E-09 0.31425E-09 0.74427E-09 0.11901E-08 0.23155E-08 0.48270E-08 + 0.26316E-07 0.55679E-07 0.37168E-07 0.24941E-06 0.37372E-06 0.27495E-04 + 0.16403E-03 0.37643E-04 0.69915E-03 0.11469E-02 0.18058E-02 0.26436E-02 + 0.36003E-02 0.49727E-02 0.67963E-02 0.93422E-02 0.12397E-01 0.16683E-01 + 0.21383E-01 0.28829E-01 0.36514E-01 0.48067E-01 0.61310E-01 0.81530E-01 + 0.10437E+00 0.13936E+00 0.18061E+00 0.89594E-09 0.69705E-09 0.77469E-09 + 0.15421E-08 0.30400E-08 0.57729E-08 0.33479E-07 0.82900E-07 0.60797E-07 + 0.42650E-06 0.78253E-06 0.36511E-04 0.21433E-03 0.48559E-04 0.90235E-03 + 0.14731E-02 0.23110E-02 0.33718E-02 0.45783E-02 0.63073E-02 0.86001E-02 + 0.11794E-01 0.15616E-01 0.20966E-01 0.26806E-01 0.36039E-01 0.45498E-01 + 0.59666E-01 0.75760E-01 0.10019E+00 0.12744E+00 0.16887E+00 0.21691E+00 + 0.24356E-08 0.22845E-08 0.16591E-08 0.19422E-08 0.35275E-08 0.76636E-08 + 0.72169E-07 0.14241E-06 0.15214E-06 0.69892E-06 0.18004E-05 0.57477E-04 + 0.29937E-03 0.66332E-04 0.12378E-02 0.20065E-02 0.31309E-02 0.45449E-02 + 0.61450E-02 0.84346E-02 0.11464E-01 0.15673E-01 0.20696E-01 0.27711E-01 + 0.35332E-01 0.47356E-01 0.59587E-01 0.77837E-01 0.98378E-01 0.12939E+00 + 0.16351E+00 0.21500E+00 0.27365E+00 0.38515E-08 0.51354E-08 0.41136E-08 + 0.36006E-08 0.60381E-08 0.12352E-07 0.17762E-06 0.49128E-06 0.31634E-06 + 0.10823E-05 0.32960E-05 0.93669E-04 0.42479E-03 0.91803E-04 0.17168E-02 + 0.27585E-02 0.42751E-02 0.61666E-02 0.82935E-02 0.11333E-01 0.15345E-01 + 0.20904E-01 0.27522E-01 0.36741E-01 0.46723E-01 0.62444E-01 0.78341E-01 + 0.10199E+00 0.12842E+00 0.16815E+00 0.21137E+00 0.27615E+00 0.34883E+00 + 0.11534E-07 0.10540E-07 0.10256E-07 0.10517E-07 0.10465E-07 0.18803E-07 + 0.37916E-06 0.12689E-05 0.49557E-06 0.14731E-05 0.45711E-05 0.14659E-03 + 0.52895E-03 0.12502E-03 0.24133E-02 0.38349E-02 0.58932E-02 0.84341E-02 + 0.11268E-01 0.15313E-01 0.20638E-01 0.27992E-01 0.36730E-01 0.48875E-01 + 0.61981E-01 0.82601E-01 0.10335E+00 0.13414E+00 0.16835E+00 0.21960E+00 + 0.27485E+00 0.35721E+00 0.44847E+00 0.89817E-07 0.10095E-06 0.10337E-06 + 0.11870E-06 0.15282E-06 0.28764E-06 0.39281E-06 0.20025E-05 0.36103E-05 + 0.56999E-05 0.49768E-05 0.18940E-03 0.66121E-03 0.10692E-03 0.31932E-02 + 0.53325E-02 0.81309E-02 0.11544E-01 0.15310E-01 0.20682E-01 0.27733E-01 + 0.37435E-01 0.48943E-01 0.64895E-01 0.82057E-01 0.10905E+00 0.13608E+00 + 0.17613E+00 0.22044E+00 0.28662E+00 0.35743E+00 0.46255E+00 0.57777E+00 + 0.24950E-06 0.31904E-06 0.32911E-06 0.31973E-06 0.30451E-06 0.64158E-06 + 0.10240E-05 0.30761E-05 0.11249E-04 0.17327E-04 0.18166E-04 0.24440E-03 + 0.82587E-03 0.93366E-04 0.36223E-02 0.68721E-02 0.11418E-01 0.16038E-01 + 0.21067E-01 0.28234E-01 0.37610E-01 0.50450E-01 0.65651E-01 0.86661E-01 + 0.10920E+00 0.14465E+00 0.18000E+00 0.23230E+00 0.28996E+00 0.37592E+00 + 0.46732E+00 0.60256E+00 0.74956E+00 0.69886E-06 0.10727E-05 0.13908E-05 + 0.18523E-05 0.14426E-05 0.10044E-05 0.46690E-05 0.10888E-04 0.40087E-04 + 0.58257E-04 0.70824E-04 0.27721E-03 0.96392E-03 0.10945E-03 0.41420E-02 + 0.75608E-02 0.14014E-01 0.22318E-01 0.29009E-01 0.38545E-01 0.50971E-01 + 0.67882E-01 0.87873E-01 0.11541E+00 0.14484E+00 0.19118E+00 0.23717E+00 + 0.30515E+00 0.37990E+00 0.49117E+00 0.60891E+00 0.78262E+00 0.97018E+00 + 0.17581E-05 0.24902E-05 0.60750E-05 0.85214E-05 0.11107E-04 0.10374E-04 + 0.42570E-05 0.16113E-04 0.61411E-04 0.90021E-04 0.10808E-03 0.35613E-03 + 0.11866E-02 0.15012E-03 0.48936E-02 0.88070E-02 0.15713E-01 0.27133E-01 + 0.41222E-01 0.54083E-01 0.70748E-01 0.93274E-01 0.11983E+00 0.15626E+00 + 0.19508E+00 0.25623E+00 0.31666E+00 0.40596E+00 0.50388E+00 0.64950E+00 + 0.80300E+00 0.10290E+01 0.12717E+01 0.60663E-05 0.98936E-05 0.18113E-04 + 0.29769E-04 0.47185E-04 0.56634E-04 0.42714E-04 0.33148E-04 0.91821E-04 + 0.13385E-03 0.16381E-03 0.47467E-03 0.14850E-02 0.21593E-03 0.59121E-02 + 0.10324E-01 0.18128E-01 0.30613E-01 0.48630E-01 0.77178E-01 0.99630E-01 + 0.12971E+00 0.16507E+00 0.21337E+00 0.26460E+00 0.34542E+00 0.42488E+00 + 0.54230E+00 0.67087E+00 0.86184E+00 0.10625E+01 0.13575E+01 0.16730E+01 + 0.48454E-04 0.78053E-04 0.10949E-03 0.13441E-03 0.15913E-03 0.18146E-03 + 0.16719E-03 0.14932E-03 0.24914E-03 0.32194E-03 0.36454E-03 0.50450E-03 + 0.17743E-02 0.62593E-03 0.70289E-02 0.12045E-01 0.20633E-01 0.34672E-01 + 0.54055E-01 0.86768E-01 0.13973E+00 0.18034E+00 0.22706E+00 0.29048E+00 + 0.35740E+00 0.46328E+00 0.56667E+00 0.71951E+00 0.88663E+00 0.11347E+01 + 0.13947E+01 0.17764E+01 0.21832E+01 0.17764E-03 0.22867E-03 0.28132E-03 + 0.33101E-03 0.37821E-03 0.42000E-03 0.41318E-03 0.40214E-03 0.56262E-03 + 0.66836E-03 0.11374E-02 0.54194E-03 0.20839E-02 0.12892E-02 0.85551E-02 + 0.14473E-01 0.24224E-01 0.39909E-01 0.61599E-01 0.97221E-01 0.15354E+00 + 0.24513E+00 0.31712E+00 0.40053E+00 0.48797E+00 0.62690E+00 0.76142E+00 + 0.96048E+00 0.11778E+01 0.15006E+01 0.18378E+01 0.23326E+01 0.28584E+01 + 0.38505E-03 0.52682E-03 0.61706E-03 0.72120E-03 0.81252E-03 0.88250E-03 + 0.87322E-03 0.88211E-03 0.11636E-02 0.12760E-02 0.14696E-02 0.22544E-02 + 0.24840E-02 0.23311E-02 0.10714E-01 0.17862E-01 0.29403E-01 0.47419E-01 + 0.71513E-01 0.11151E+00 0.17338E+00 0.27060E+00 0.41847E+00 0.56102E+00 + 0.67520E+00 0.85776E+00 0.10327E+01 0.12920E+01 0.15748E+01 0.19951E+01 + 0.24330E+01 0.30749E+01 0.37559E+01 0.12306E-02 0.14811E-02 0.18044E-02 + 0.20399E-02 0.22918E-02 0.24674E-02 0.24682E-02 0.24911E-02 0.31043E-02 + 0.33575E-02 0.36345E-02 0.13892E-02 0.21859E-02 0.58183E-02 0.11893E-01 + 0.20416E-01 0.33993E-01 0.54527E-01 0.80846E-01 0.12409E+00 0.19120E+00 + 0.29463E+00 0.44737E+00 0.69164E+00 0.91691E+00 0.11509E+01 0.13713E+01 + 0.16991E+01 0.20564E+01 0.25881E+01 0.31399E+01 0.39487E+01 0.48055E+01 + 0.39306E-02 0.45754E-02 0.50960E-02 0.57715E-02 0.63349E-02 0.68421E-02 + 0.69867E-02 0.71776E-02 0.81229E-02 0.88486E-02 0.94615E-02 0.58095E-02 + 0.67378E-02 0.14671E-01 0.10805E-01 0.20364E-01 0.36140E-01 0.59394E-01 + 0.87636E-01 0.13379E+00 0.20417E+00 0.31119E+00 0.47022E+00 0.71293E+00 + 0.10542E+01 0.15106E+01 0.17785E+01 0.21786E+01 0.26151E+01 0.32657E+01 + 0.39381E+01 0.49228E+01 0.59643E+01 0.94621E-02 0.12016E-01 0.14169E-01 + 0.15039E-01 0.16157E-01 0.17240E-01 0.17635E-01 0.18040E-01 0.19860E-01 + 0.21099E-01 0.22273E-01 0.16793E-01 0.14420E-01 0.32821E-01 0.12026E-01 + 0.19113E-01 0.35589E-01 0.61497E-01 0.91649E-01 0.14103E+00 0.21504E+00 + 0.32379E+00 0.48537E+00 0.73211E+00 0.10627E+01 0.16419E+01 0.22819E+01 + 0.27579E+01 0.32782E+01 0.40562E+01 0.48552E+01 0.60239E+01 0.72591E+01 + 0.18863E-01 0.23905E-01 0.30338E-01 0.37094E-01 0.38433E-01 0.40149E-01 + 0.41472E-01 0.42254E-01 0.45520E-01 0.47780E-01 0.49866E-01 0.41348E-01 + 0.38862E-01 0.66484E-01 0.25775E-01 0.36878E-01 0.36624E-01 0.61114E-01 + 0.91418E-01 0.14283E+00 0.21987E+00 0.32933E+00 0.49066E+00 0.73033E+00 + 0.10572E+01 0.16097E+01 0.23231E+01 0.34271E+01 0.40279E+01 0.49302E+01 + 0.58489E+01 0.71908E+01 0.86085E+01 0.32995E-01 0.41747E-01 0.52878E-01 + 0.67090E-01 0.85280E-01 0.87549E-01 0.88718E-01 0.90642E-01 0.95408E-01 + 0.98313E-01 0.10175E+00 0.87705E-01 0.84224E-01 0.12769E+00 0.59540E-01 + 0.52874E-01 0.55148E-01 0.73033E-01 0.10209E+00 0.15484E+00 0.23611E+00 + 0.34946E+00 0.51556E+00 0.75454E+00 0.10729E+01 0.16286E+01 0.23079E+01 + 0.34045E+01 0.49923E+01 0.61152E+01 0.71741E+01 0.87201E+01 0.10353E+02 + 0.52128E-01 0.65865E-01 0.83297E-01 0.10548E+00 0.13377E+00 0.16993E+00 + 0.18057E+00 0.18307E+00 0.19283E+00 0.19776E+00 0.20278E+00 0.17890E+00 + 0.17281E+00 0.24182E+00 0.13206E+00 0.11444E+00 0.10234E+00 0.11204E+00 + 0.13483E+00 0.18464E+00 0.26762E+00 0.38471E+00 0.55658E+00 0.79729E+00 + 0.11101E+01 0.16543E+01 0.23199E+01 0.33584E+01 0.48309E+01 0.72577E+01 + 0.88236E+01 0.10576E+02 0.12428E+02 0.85124E-01 0.10744E+00 0.13570E+00 + 0.17158E+00 0.21719E+00 0.27531E+00 0.34657E+00 0.38718E+00 0.40322E+00 + 0.41470E+00 0.42521E+00 0.38464E+00 0.37480E+00 0.48723E+00 0.31046E+00 + 0.27911E+00 0.24296E+00 0.22447E+00 0.24037E+00 0.28240E+00 0.32948E+00 + 0.43364E+00 0.59236E+00 0.81595E+00 0.11029E+01 0.15996E+01 0.21889E+01 + 0.31179E+01 0.44166E+01 0.64878E+01 0.93377E+01 0.11973E+02 0.13892E+02 + 0.13167E+00 0.16602E+00 0.20947E+00 0.26452E+00 0.33435E+00 0.42307E+00 + 0.53213E+00 0.67110E+00 0.80428E+00 0.82163E+00 0.84249E+00 0.77898E+00 + 0.75904E+00 0.94222E+00 0.65087E+00 0.59855E+00 0.53135E+00 0.47818E+00 + 0.47784E+00 0.49410E+00 0.55962E+00 0.61681E+00 0.76307E+00 0.98051E+00 + 0.12626E+01 0.17385E+01 0.23019E+01 0.31715E+01 0.43967E+01 0.63236E+01 + 0.88810E+01 0.12954E+02 0.16654E+02 0.20592E+00 0.25940E+00 0.32699E+00 + 0.41250E+00 0.52078E+00 0.65806E+00 0.82726E+00 0.10422E+01 0.13401E+01 + 0.16574E+01 0.16891E+01 0.15841E+01 0.15626E+01 0.18653E+01 0.13784E+01 + 0.12919E+01 0.11779E+01 0.10738E+01 0.10524E+01 0.10304E+01 0.10571E+01 + 0.11702E+01 0.13735E+01 0.17103E+01 0.22187E+01 0.21859E+01 0.27690E+01 + 0.36474E+01 0.48572E+01 0.67435E+01 0.92876E+01 0.13158E+02 0.18571E+02 + 0.30636E+00 0.38558E+00 0.48559E+00 0.61203E+00 0.77188E+00 0.97425E+00 + 0.12239E+01 0.15403E+01 0.19737E+01 0.25039E+01 0.31786E+01 0.30528E+01 + 0.30382E+01 0.35421E+01 0.27117E+01 0.25580E+01 0.23589E+01 0.21709E+01 + 0.21154E+01 0.20402E+01 0.20198E+01 0.21218E+01 0.23248E+01 0.27026E+01 + 0.33015E+01 0.41674E+01 0.54909E+01 0.74562E+01 0.10417E+02 0.14940E+02 + 0.21881E+02 0.32620E+02 0.48829E+02 0.42860E+00 0.53889E+00 0.67805E+00 + 0.85381E+00 0.10758E+01 0.13564E+01 0.17026E+01 0.21404E+01 0.27365E+01 + 0.34647E+01 0.43881E+01 0.51714E+01 0.54509E+01 0.63423E+01 0.49248E+01 + 0.46359E+01 0.42702E+01 0.39203E+01 0.37847E+01 0.36045E+01 0.34965E+01 + 0.35680E+01 0.37655E+01 0.41995E+01 0.49213E+01 0.59160E+01 0.74942E+01 + 0.97928E+01 0.13190E+02 0.18280E+02 0.26024E+02 0.37908E+02 0.56313E+02 + 0.58399E+00 0.73344E+00 0.92191E+00 0.11597E+01 0.14600E+01 0.18392E+01 + 0.23065E+01 0.28966E+01 0.36973E+01 0.46738E+01 0.59083E+01 0.69605E+01 + 0.95535E+01 0.10996E+02 0.86341E+01 0.81385E+01 0.74634E+01 0.68121E+01 + 0.65118E+01 0.61253E+01 0.58414E+01 0.58282E+01 0.59816E+01 0.64614E+01 + 0.73180E+01 0.84630E+01 0.10340E+02 0.13030E+02 0.16937E+02 0.22693E+02 + 0.31348E+02 0.44467E+02 0.64531E+02 0.78670E+00 0.98667E+00 0.12388E+01 + 0.15567E+01 0.19579E+01 0.24640E+01 0.30875E+01 0.38739E+01 0.49386E+01 + 0.62348E+01 0.78697E+01 0.92631E+01 0.14103E+02 0.18974E+02 0.14849E+02 + 0.14026E+02 0.12895E+02 0.11697E+02 0.11081E+02 0.10308E+02 0.96884E+01 + 0.94894E+01 0.95211E+01 0.10017E+02 0.11018E+02 0.12327E+02 0.14563E+02 + 0.17723E+02 0.22241E+02 0.28790E+02 0.38510E+02 0.53037E+02 0.74943E+02 + 0.10618E+01 0.13294E+01 0.16667E+01 0.20920E+01 0.26283E+01 0.33046E+01 + 0.41369E+01 0.51863E+01 0.66044E+01 0.83287E+01 0.10500E+02 0.12352E+02 + 0.18747E+02 0.27016E+02 0.25744E+02 0.24182E+02 0.22242E+02 0.20273E+02 + 0.19076E+02 0.17594E+02 0.16350E+02 0.15775E+02 0.15533E+02 0.15979E+02 + 0.17130E+02 0.18602E+02 0.21303E+02 0.25075E+02 0.30394E+02 0.37984E+02 + 0.49108E+02 0.65488E+02 0.89809E+02 0.14189E+01 0.17727E+01 0.22186E+01 + 0.27807E+01 0.34891E+01 0.43821E+01 0.54806E+01 0.68639E+01 0.87332E+01 + 0.11002E+02 0.13856E+02 0.16281E+02 0.24631E+02 0.35417E+02 0.34964E+02 + 0.41272E+02 0.37703E+02 0.34238E+02 0.32361E+02 0.29605E+02 0.27236E+02 + 0.25959E+02 0.25183E+02 0.25452E+02 0.26726E+02 0.28334E+02 0.31584E+02 + 0.36082E+02 0.42355E+02 0.51186E+02 0.63959E+02 0.82473E+02 0.10952E+03 + 0.19256E+01 0.23994E+01 0.29963E+01 0.37485E+01 0.46964E+01 0.58908E+01 + 0.73596E+01 0.92088E+01 0.11704E+02 0.14731E+02 0.18535E+02 0.21776E+02 + 0.32885E+02 0.47134E+02 0.46605E+02 0.55114E+02 0.63619E+02 0.59396E+02 + 0.55910E+02 0.51574E+02 0.47136E+02 0.44504E+02 0.42640E+02 0.42434E+02 + 0.43749E+02 0.45353E+02 0.49340E+02 0.54838E+02 0.62442E+02 0.73026E+02 + 0.88207E+02 0.10990E+03 0.14106E+03 0.25923E+01 0.32189E+01 0.40083E+01 + 0.50028E+01 0.62561E+01 0.78346E+01 0.97752E+01 0.12217E+02 0.15511E+02 + 0.19506E+02 0.24518E+02 0.28778E+02 0.43366E+02 0.62070E+02 0.61270E+02 + 0.72307E+02 0.83251E+02 0.94963E+02 0.94985E+02 0.86952E+02 0.79990E+02 + 0.75083E+02 0.71262E+02 0.70100E+02 0.71265E+02 0.72647E+02 0.77480E+02 + 0.84156E+02 0.93352E+02 0.10605E+03 0.12412E+03 0.14960E+03 0.18558E+03 + 0.35074E+01 0.43367E+01 0.53807E+01 0.66958E+01 0.83529E+01 0.10440E+02 + 0.13004E+02 0.16231E+02 0.20582E+02 0.25855E+02 0.32468E+02 0.38075E+02 + 0.57264E+02 0.81865E+02 0.80699E+02 0.95081E+02 0.10925E+03 0.12431E+03 + 0.14674E+03 0.14786E+03 0.13498E+03 0.12727E+03 0.12037E+03 0.11732E+03 + 0.11794E+03 0.11860E+03 0.12443E+03 0.13256E+03 0.14377E+03 0.15918E+03 + 0.18104E+03 0.21151E+03 0.25387E+03 0.47775E+01 0.58741E+01 0.72555E+01 + 0.89954E+01 0.11187E+02 0.13946E+02 0.17337E+02 0.21601E+02 0.27352E+02 + 0.34318E+02 0.43050E+02 0.50433E+02 0.75714E+02 0.10812E+03 0.10646E+03 + 0.12527E+03 0.14371E+03 0.16320E+03 0.19218E+03 0.22073E+03 0.22978E+03 + 0.21505E+03 0.20383E+03 0.19842E+03 0.19770E+03 0.19664E+03 0.20360E+03 + 0.21346E+03 0.22718E+03 0.24604E+03 0.27286E+03 0.30989E+03 0.36067E+03 + 0.12257E-09 0.32711E-09 0.69869E-09 0.18279E-08 0.29373E-08 0.60142E-08 + 0.31328E-07 0.65572E-07 0.19771E-06 0.31038E-06 0.60446E-06 0.33978E-05 + 0.23924E-04 0.10721E-03 0.46356E-03 0.14038E-02 0.33903E-02 0.67783E-02 + 0.11887E-01 0.18832E-01 0.30844E-01 0.47868E-01 0.75157E-01 0.11237E+00 + 0.15817E+00 0.21721E+00 0.29557E+00 0.40406E+00 0.54888E+00 0.76054E+00 + 0.10508E+01 0.14681E+01 0.20789E+01 0.32711E-09 0.25942E-09 0.60792E-09 + 0.17413E-08 0.33784E-08 0.67933E-08 0.42539E-07 0.87262E-07 0.26961E-06 + 0.37852E-06 0.86896E-06 0.73360E-05 0.30540E-04 0.13655E-03 0.58918E-03 + 0.17806E-02 0.42920E-02 0.85674E-02 0.15005E-01 0.23741E-01 0.38833E-01 + 0.60188E-01 0.94365E-01 0.14084E+00 0.19785E+00 0.27100E+00 0.36757E+00 + 0.50046E+00 0.67638E+00 0.93127E+00 0.12766E+01 0.17669E+01 0.24742E+01 + 0.69869E-09 0.60792E-09 0.51568E-09 0.16156E-08 0.37808E-08 0.75898E-08 + 0.62336E-07 0.12214E-06 0.32118E-06 0.44032E-06 0.13962E-05 0.12569E-04 + 0.61710E-04 0.17479E-03 0.75182E-03 0.22657E-02 0.54490E-02 0.10855E-01 + 0.18981E-01 0.29988E-01 0.48988E-01 0.75832E-01 0.11873E+00 0.17695E+00 + 0.24813E+00 0.33914E+00 0.45876E+00 0.62254E+00 0.83781E+00 0.11474E+01 + 0.15625E+01 0.21450E+01 0.29745E+01 0.18279E-08 0.17413E-08 0.16156E-08 + 0.12644E-08 0.33077E-08 0.83729E-08 0.82305E-07 0.19953E-06 0.48234E-06 + 0.90658E-06 0.29851E-05 0.24274E-04 0.11919E-03 0.26706E-03 0.10133E-02 + 0.30412E-02 0.72885E-02 0.14478E-01 0.25257E-01 0.39825E-01 0.64947E-01 + 0.10037E+00 0.15692E+00 0.23349E+00 0.32681E+00 0.44572E+00 0.60133E+00 + 0.81330E+00 0.10900E+01 0.14850E+01 0.20090E+01 0.27355E+01 0.37557E+01 + 0.29373E-08 0.33784E-08 0.37808E-08 0.33077E-08 0.28468E-08 0.80301E-08 + 0.11744E-06 0.32062E-06 0.88139E-06 0.21092E-05 0.69855E-05 0.54321E-04 + 0.19375E-03 0.41226E-03 0.12976E-02 0.41036E-02 0.97889E-02 0.19373E-01 + 0.33693E-01 0.52995E-01 0.86251E-01 0.13307E+00 0.20772E+00 0.30859E+00 + 0.43121E+00 0.58704E+00 0.79026E+00 0.10660E+01 0.14239E+01 0.19319E+01 + 0.25999E+01 0.35172E+01 0.47896E+01 0.60142E-08 0.67933E-08 0.75898E-08 + 0.83729E-08 0.80301E-08 0.66475E-08 0.13974E-06 0.47684E-06 0.15637E-05 + 0.39746E-05 0.12871E-04 0.98673E-04 0.26985E-03 0.59243E-03 0.16530E-02 + 0.49330E-02 0.13210E-01 0.26018E-01 0.45077E-01 0.70687E-01 0.11477E+00 + 0.17672E+00 0.27536E+00 0.40843E+00 0.56986E+00 0.77450E+00 0.10407E+01 + 0.14008E+01 0.18662E+01 0.25236E+01 0.33821E+01 0.45514E+01 0.61575E+01 + 0.31328E-07 0.42539E-07 0.62336E-07 0.82305E-07 0.11744E-06 0.13974E-06 + 0.48506E-07 0.25729E-06 0.18630E-05 0.80732E-05 0.22392E-04 0.12842E-03 + 0.31759E-03 0.68955E-03 0.20040E-02 0.56006E-02 0.15041E-01 0.34651E-01 + 0.59891E-01 0.93711E-01 0.15196E+00 0.23366E+00 0.36372E+00 0.53886E+00 + 0.75083E+00 0.10190E+01 0.13670E+01 0.18367E+01 0.24416E+01 0.32932E+01 + 0.43990E+01 0.58954E+01 0.79340E+01 0.65572E-07 0.87262E-07 0.12214E-06 + 0.19953E-06 0.32062E-06 0.47684E-06 0.25729E-06 0.13592E-06 0.14462E-05 + 0.94812E-05 0.36669E-04 0.14775E-03 0.36716E-03 0.78591E-03 0.22796E-02 + 0.64566E-02 0.16344E-01 0.39108E-01 0.80182E-01 0.12500E+00 0.20219E+00 + 0.31019E+00 0.48203E+00 0.71304E+00 0.99188E+00 0.13440E+01 0.18004E+01 + 0.24152E+01 0.32047E+01 0.43131E+01 0.57462E+01 0.76753E+01 0.10286E+02 + 0.19771E-06 0.26961E-06 0.32118E-06 0.48234E-06 0.88139E-06 0.15637E-05 + 0.18630E-05 0.14462E-05 0.47604E-06 0.50864E-05 0.26967E-04 0.12342E-03 + 0.33575E-03 0.75297E-03 0.23415E-02 0.68133E-02 0.17462E-01 0.40607E-01 + 0.88269E-01 0.16532E+00 0.26715E+00 0.40926E+00 0.63542E+00 0.93883E+00 + 0.13040E+01 0.17643E+01 0.23598E+01 0.31610E+01 0.41873E+01 0.56260E+01 + 0.74790E+01 0.99634E+01 0.13309E+02 0.31038E-06 0.37852E-06 0.44032E-06 + 0.90658E-06 0.21092E-05 0.39746E-05 0.80732E-05 0.94812E-05 0.50864E-05 + 0.32489E-05 0.27512E-04 0.13091E-03 0.37550E-03 0.83245E-03 0.25580E-02 + 0.74636E-02 0.18799E-01 0.43707E-01 0.92265E-01 0.18554E+00 0.35954E+00 + 0.54827E+00 0.84829E+00 0.12498E+01 0.17317E+01 0.23382E+01 0.31219E+01 + 0.41751E+01 0.55220E+01 0.74073E+01 0.98288E+01 0.13065E+02 0.17406E+02 + 0.60446E-06 0.86896E-06 0.13962E-05 0.29851E-05 0.69855E-05 0.12871E-04 + 0.22392E-04 0.36669E-04 0.26967E-04 0.27512E-04 0.40848E-04 0.14045E-03 + 0.41622E-03 0.94527E-03 0.28835E-02 0.82598E-02 0.20319E-01 0.46604E-01 + 0.97493E-01 0.19372E+00 0.40392E+00 0.73829E+00 0.11370E+01 0.16689E+01 + 0.23055E+01 0.31052E+01 0.41374E+01 0.55233E+01 0.72932E+01 0.97680E+01 + 0.12940E+02 0.17169E+02 0.22824E+02 0.33978E-05 0.73360E-05 0.12569E-04 + 0.24274E-04 0.54321E-04 0.98673E-04 0.12842E-03 0.14775E-03 0.12342E-03 + 0.13091E-03 0.14045E-03 0.26408E-03 0.32993E-03 0.79496E-03 0.28779E-02 + 0.86200E-02 0.21559E-01 0.49012E-01 0.10031E+00 0.19986E+00 0.41464E+00 + 0.81740E+00 0.15125E+01 0.22125E+01 0.30463E+01 0.40912E+01 0.54381E+01 + 0.72457E+01 0.95507E+01 0.12772E+02 0.16893E+02 0.22377E+02 0.29692E+02 + 0.23924E-04 0.30540E-04 0.61710E-04 0.11919E-03 0.19375E-03 0.26985E-03 + 0.31759E-03 0.36716E-03 0.33575E-03 0.37550E-03 0.41622E-03 0.32993E-03 + 0.10760E-02 0.72988E-03 0.27998E-02 0.91484E-02 0.22911E-01 0.51990E-01 + 0.10490E+00 0.20640E+00 0.43001E+00 0.84166E+00 0.16793E+01 0.29479E+01 + 0.40407E+01 0.54068E+01 0.71649E+01 0.95238E+01 0.12526E+02 0.16726E+02 + 0.22085E+02 0.29208E+02 0.38693E+02 0.10721E-03 0.13655E-03 0.17479E-03 + 0.26706E-03 0.41226E-03 0.59243E-03 0.68955E-03 0.78591E-03 0.75297E-03 + 0.83245E-03 0.94527E-03 0.79496E-03 0.72988E-03 0.36307E-02 0.27714E-02 + 0.98033E-02 0.24920E-01 0.56174E-01 0.11174E+00 0.21663E+00 0.44652E+00 + 0.87565E+00 0.17341E+01 0.32783E+01 0.53871E+01 0.71733E+01 0.94688E+01 + 0.12548E+02 0.16462E+02 0.21938E+02 0.28916E+02 0.38181E+02 0.50498E+02 + 0.46356E-03 0.58918E-03 0.75182E-03 0.10133E-02 0.12976E-02 0.16530E-02 + 0.20040E-02 0.22796E-02 0.23415E-02 0.25580E-02 0.28835E-02 0.28779E-02 + 0.27998E-02 0.27714E-02 0.10173E-01 0.80680E-02 0.23636E-01 0.56117E-01 + 0.11243E+00 0.21743E+00 0.44835E+00 0.87505E+00 0.17482E+01 0.32899E+01 + 0.58258E+01 0.93030E+01 0.12223E+02 0.16141E+02 0.21107E+02 0.28071E+02 + 0.36923E+02 0.48664E+02 0.64258E+02 0.14038E-02 0.17806E-02 0.22657E-02 + 0.30412E-02 0.41036E-02 0.49330E-02 0.56006E-02 0.64566E-02 0.68133E-02 + 0.74636E-02 0.82598E-02 0.86200E-02 0.91484E-02 0.98033E-02 0.80680E-02 + 0.28951E-01 0.18187E-01 0.49289E-01 0.10389E+00 0.20517E+00 0.43157E+00 + 0.84558E+00 0.16955E+01 0.32227E+01 0.56731E+01 0.97584E+01 0.15374E+02 + 0.20217E+02 0.26330E+02 0.34939E+02 0.45838E+02 0.60289E+02 0.79469E+02 + 0.33903E-02 0.42920E-02 0.54490E-02 0.72885E-02 0.97889E-02 0.13210E-01 + 0.15041E-01 0.16344E-01 0.17462E-01 0.18799E-01 0.20319E-01 0.21559E-01 + 0.22911E-01 0.24920E-01 0.23636E-01 0.18187E-01 0.74102E-01 0.40306E-01 + 0.89007E-01 0.18344E+00 0.40293E+00 0.80053E+00 0.16220E+01 0.30835E+01 + 0.54559E+01 0.93137E+01 0.15795E+02 0.24916E+02 0.32282E+02 0.42721E+02 + 0.55868E+02 0.73293E+02 0.96405E+02 0.67783E-02 0.85674E-02 0.10855E-01 + 0.14478E-01 0.19373E-01 0.26018E-01 0.34651E-01 0.39108E-01 0.40607E-01 + 0.43707E-01 0.46604E-01 0.49012E-01 0.51990E-01 0.56174E-01 0.56117E-01 + 0.49289E-01 0.40306E-01 0.17759E+00 0.77831E-01 0.15644E+00 0.35969E+00 + 0.73414E+00 0.15204E+01 0.29036E+01 0.51017E+01 0.87326E+01 0.14683E+02 + 0.24947E+02 0.38716E+02 0.51071E+02 0.66516E+02 0.86983E+02 0.11412E+03 + 0.11887E-01 0.15005E-01 0.18981E-01 0.25257E-01 0.33693E-01 0.45077E-01 + 0.59891E-01 0.80182E-01 0.88269E-01 0.92265E-01 0.97493E-01 0.10031E+00 + 0.10490E+00 0.11174E+00 0.11243E+00 0.10389E+00 0.89007E-01 0.77831E-01 + 0.38276E+00 0.15734E+00 0.34087E+00 0.69795E+00 0.14667E+01 0.28041E+01 + 0.48761E+01 0.82441E+01 0.13867E+02 0.23360E+02 0.38965E+02 0.61697E+02 + 0.79936E+02 0.10411E+03 0.13615E+03 0.18832E-01 0.23741E-01 0.29988E-01 + 0.39825E-01 0.52995E-01 0.70687E-01 0.93711E-01 0.12500E+00 0.16532E+00 + 0.18554E+00 0.19372E+00 0.19986E+00 0.20640E+00 0.21663E+00 0.21743E+00 + 0.20517E+00 0.18344E+00 0.15644E+00 0.15734E+00 0.19901E+00 0.35213E+00 + 0.68632E+00 0.14369E+01 0.27382E+01 0.46974E+01 0.78193E+01 0.12963E+02 + 0.21850E+02 0.36058E+02 0.61512E+02 0.95466E+02 0.12368E+03 0.16109E+03 + 0.30844E-01 0.38833E-01 0.48988E-01 0.64947E-01 0.86251E-01 0.11477E+00 + 0.15196E+00 0.20219E+00 0.26715E+00 0.35954E+00 0.40392E+00 0.41464E+00 + 0.43001E+00 0.44652E+00 0.44835E+00 0.43157E+00 0.40293E+00 0.35969E+00 + 0.34087E+00 0.35213E+00 0.43106E+00 0.69160E+00 0.13456E+01 0.25259E+01 + 0.42647E+01 0.69717E+01 0.11359E+02 0.18886E+02 0.31111E+02 0.52684E+02 + 0.87883E+02 0.13639E+03 0.17670E+03 0.47868E-01 0.60188E-01 0.75832E-01 + 0.10037E+00 0.13307E+00 0.17672E+00 0.23366E+00 0.31019E+00 0.40926E+00 + 0.54827E+00 0.73829E+00 0.81740E+00 0.84166E+00 0.87565E+00 0.87505E+00 + 0.84558E+00 0.80053E+00 0.73414E+00 0.69795E+00 0.68632E+00 0.69160E+00 + 0.88339E+00 0.14407E+01 0.25254E+01 0.41178E+01 0.65459E+01 0.10412E+02 + 0.16976E+02 0.27493E+02 0.46533E+02 0.76795E+02 0.12809E+03 0.19880E+03 + 0.75157E-01 0.94365E-01 0.11873E+00 0.15692E+00 0.20772E+00 0.27536E+00 + 0.36372E+00 0.48203E+00 0.63542E+00 0.84829E+00 0.11370E+01 0.15125E+01 + 0.16793E+01 0.17341E+01 0.17482E+01 0.16955E+01 0.16220E+01 0.15204E+01 + 0.14667E+01 0.14369E+01 0.13456E+01 0.14407E+01 0.18284E+01 0.27569E+01 + 0.41981E+01 0.63854E+01 0.98213E+01 0.15558E+02 0.24677E+02 0.40929E+02 + 0.67424E+02 0.11126E+03 0.18560E+03 0.11237E+00 0.14084E+00 0.17695E+00 + 0.23349E+00 0.30859E+00 0.40843E+00 0.53886E+00 0.71304E+00 0.93883E+00 + 0.12498E+01 0.16689E+01 0.22125E+01 0.29479E+01 0.32783E+01 0.32899E+01 + 0.32227E+01 0.30835E+01 0.29036E+01 0.28041E+01 0.27382E+01 0.25259E+01 + 0.25254E+01 0.27569E+01 0.35960E+01 0.50417E+01 0.72580E+01 0.10710E+02 + 0.16348E+02 0.25293E+02 0.40785E+02 0.66053E+02 0.10880E+03 0.17956E+03 + 0.15817E+00 0.19785E+00 0.24813E+00 0.32681E+00 0.43121E+00 0.56986E+00 + 0.75083E+00 0.99188E+00 0.13040E+01 0.17317E+01 0.23055E+01 0.30463E+01 + 0.40407E+01 0.53871E+01 0.58258E+01 0.56731E+01 0.54559E+01 0.51017E+01 + 0.48761E+01 0.46974E+01 0.42647E+01 0.41178E+01 0.41981E+01 0.50417E+01 + 0.66429E+01 0.91042E+01 0.12889E+02 0.18942E+02 0.28466E+02 0.44560E+02 + 0.70681E+02 0.11446E+03 0.18856E+03 0.21721E+00 0.27100E+00 0.33914E+00 + 0.44572E+00 0.58704E+00 0.77450E+00 0.10190E+01 0.13440E+01 0.17643E+01 + 0.23382E+01 0.31052E+01 0.40912E+01 0.54068E+01 0.71733E+01 0.93030E+01 + 0.97584E+01 0.93137E+01 0.87326E+01 0.82441E+01 0.78193E+01 0.69717E+01 + 0.65459E+01 0.63854E+01 0.72580E+01 0.91042E+01 0.11935E+02 0.16218E+02 + 0.22929E+02 0.33338E+02 0.50565E+02 0.78234E+02 0.12409E+03 0.20097E+03 + 0.29557E+00 0.36757E+00 0.45876E+00 0.60133E+00 0.79026E+00 0.10407E+01 + 0.13670E+01 0.18004E+01 0.23598E+01 0.31219E+01 0.41374E+01 0.54381E+01 + 0.71649E+01 0.94688E+01 0.12223E+02 0.15374E+02 0.15795E+02 0.14683E+02 + 0.13867E+02 0.12963E+02 0.11359E+02 0.10412E+02 0.98213E+01 0.10710E+02 + 0.12889E+02 0.16218E+02 0.21166E+02 0.28761E+02 0.40330E+02 0.59111E+02 + 0.88833E+02 0.13743E+03 0.21800E+03 0.40406E+00 0.50046E+00 0.62254E+00 + 0.81330E+00 0.10660E+01 0.14008E+01 0.18367E+01 0.24152E+01 0.31610E+01 + 0.41751E+01 0.55233E+01 0.72457E+01 0.95238E+01 0.12548E+02 0.16141E+02 + 0.20217E+02 0.24916E+02 0.24947E+02 0.23360E+02 0.21850E+02 0.18886E+02 + 0.16976E+02 0.15558E+02 0.16348E+02 0.18942E+02 0.22929E+02 0.28761E+02 + 0.37533E+02 0.50650E+02 0.71506E+02 0.10397E+03 0.15624E+03 0.24174E+03 + 0.54888E+00 0.67638E+00 0.83781E+00 0.10900E+01 0.14239E+01 0.18662E+01 + 0.24416E+01 0.32047E+01 0.41873E+01 0.55220E+01 0.72932E+01 0.95507E+01 + 0.12526E+02 0.16462E+02 0.21107E+02 0.26330E+02 0.32282E+02 0.38716E+02 + 0.38965E+02 0.36058E+02 0.31111E+02 0.27493E+02 0.24677E+02 0.25293E+02 + 0.28466E+02 0.33338E+02 0.40330E+02 0.50650E+02 0.65730E+02 0.89302E+02 + 0.12523E+03 0.18208E+03 0.27363E+03 0.76054E+00 0.93127E+00 0.11474E+01 + 0.14850E+01 0.19319E+01 0.25236E+01 0.32932E+01 0.43131E+01 0.56260E+01 + 0.74073E+01 0.97680E+01 0.12772E+02 0.16726E+02 0.21938E+02 0.28071E+02 + 0.34939E+02 0.42721E+02 0.51071E+02 0.61697E+02 0.61512E+02 0.52684E+02 + 0.46533E+02 0.40929E+02 0.40785E+02 0.44560E+02 0.50565E+02 0.59111E+02 + 0.71506E+02 0.89302E+02 0.11653E+03 0.15726E+03 0.22051E+03 0.32064E+03 + 0.10508E+01 0.12766E+01 0.15625E+01 0.20090E+01 0.25999E+01 0.33821E+01 + 0.43990E+01 0.57462E+01 0.74790E+01 0.98288E+01 0.12940E+02 0.16893E+02 + 0.22085E+02 0.28916E+02 0.36923E+02 0.45838E+02 0.55868E+02 0.66516E+02 + 0.79936E+02 0.95466E+02 0.87883E+02 0.76795E+02 0.67424E+02 0.66053E+02 + 0.70681E+02 0.78234E+02 0.88833E+02 0.10397E+03 0.12523E+03 0.15726E+03 + 0.20408E+03 0.27540E+03 0.38619E+03 0.14681E+01 0.17669E+01 0.21450E+01 + 0.27355E+01 0.35172E+01 0.45514E+01 0.58954E+01 0.76753E+01 0.99634E+01 + 0.13065E+02 0.17169E+02 0.22377E+02 0.29208E+02 0.38181E+02 0.48664E+02 + 0.60289E+02 0.73293E+02 0.86983E+02 0.10411E+03 0.12368E+03 0.13639E+03 + 0.12809E+03 0.11126E+03 0.10880E+03 0.11446E+03 0.12409E+03 0.13743E+03 + 0.15624E+03 0.18208E+03 0.22051E+03 0.27540E+03 0.35738E+03 0.48229E+03 + 0.20789E+01 0.24742E+01 0.29745E+01 0.37557E+01 0.47896E+01 0.61575E+01 + 0.79340E+01 0.10286E+02 0.13309E+02 0.17406E+02 0.22824E+02 0.29692E+02 + 0.38693E+02 0.50498E+02 0.64258E+02 0.79469E+02 0.96405E+02 0.11412E+03 + 0.13615E+03 0.16109E+03 0.17670E+03 0.19880E+03 0.18560E+03 0.17956E+03 + 0.18856E+03 0.20097E+03 0.21800E+03 0.24174E+03 0.27363E+03 0.32064E+03 + 0.38619E+03 0.48229E+03 0.62589E+03 0.23517E-09 0.49015E-09 0.95154E-09 + 0.19138E-08 0.32882E-08 0.68806E-08 0.36429E-07 0.69963E-07 0.20070E-06 + 0.33186E-06 0.60140E-06 0.28364E-06 0.30695E-04 0.14820E-03 0.52731E-03 + 0.11826E-03 0.25573E-02 0.37638E-04 0.81132E-02 0.12860E-01 0.28895E-01 + 0.48472E-01 0.79541E-01 0.12604E+00 0.19502E+00 0.29158E+00 0.44719E+00 + 0.66968E+00 0.10353E+01 0.16038E+01 0.25413E+01 0.41322E+01 0.69088E+01 + 0.34545E-09 0.47122E-09 0.85695E-09 0.21074E-08 0.37161E-08 0.72269E-08 + 0.54064E-07 0.95348E-07 0.26859E-06 0.40867E-06 0.80459E-06 0.63237E-06 + 0.39216E-04 0.18889E-03 0.67029E-03 0.14869E-03 0.32365E-02 0.44188E-04 + 0.10237E-01 0.16207E-01 0.36320E-01 0.60820E-01 0.99578E-01 0.15734E+00 + 0.24254E+00 0.36080E+00 0.54970E+00 0.81610E+00 0.12479E+01 0.19073E+01 + 0.29747E+01 0.47505E+01 0.77910E+01 0.64468E-09 0.68033E-09 0.91000E-09 + 0.20600E-08 0.42987E-08 0.85813E-08 0.71757E-07 0.13311E-06 0.32333E-06 + 0.49778E-06 0.12059E-05 0.10768E-05 0.78844E-04 0.24192E-03 0.85539E-03 + 0.18755E-03 0.41075E-02 0.51696E-04 0.12946E-01 0.20465E-01 0.45747E-01 + 0.76479E-01 0.12498E+00 0.19699E+00 0.30271E+00 0.44843E+00 0.67941E+00 + 0.10014E+01 0.15170E+01 0.22915E+01 0.35230E+01 0.55331E+01 0.89075E+01 + 0.17960E-08 0.16823E-08 0.16160E-08 0.19586E-08 0.38307E-08 0.97581E-08 + 0.98343E-07 0.22663E-06 0.50143E-06 0.96316E-06 0.22080E-05 0.21965E-05 + 0.14959E-03 0.37212E-03 0.11531E-02 0.24729E-03 0.54908E-02 0.57594E-04 + 0.17217E-01 0.27162E-01 0.60523E-01 0.10100E+00 0.16471E+00 0.25899E+00 + 0.39673E+00 0.58532E+00 0.88206E+00 0.12908E+01 0.19372E+01 0.28913E+01 + 0.43791E+01 0.67547E+01 0.10650E+02 0.31390E-08 0.41912E-08 0.38669E-08 + 0.32994E-08 0.34431E-08 0.93417E-08 0.13974E-06 0.34420E-06 0.94319E-06 + 0.20820E-05 0.60584E-05 0.50189E-05 0.24033E-03 0.57665E-03 0.14764E-02 + 0.32764E-03 0.73697E-02 0.62545E-04 0.22952E-01 0.36125E-01 0.80202E-01 + 0.13359E+00 0.21745E+00 0.34120E+00 0.52133E+00 0.76664E+00 0.11503E+01 + 0.16738E+01 0.24933E+01 0.36850E+01 0.55120E+01 0.83712E+01 0.12956E+02 + 0.77491E-08 0.70333E-08 0.10089E-07 0.84660E-08 0.77856E-08 0.75622E-08 + 0.16539E-06 0.51620E-06 0.16148E-05 0.42475E-05 0.12477E-04 0.86140E-05 + 0.33556E-03 0.82955E-03 0.18778E-02 0.38468E-03 0.99359E-02 0.60553E-04 + 0.30681E-01 0.48146E-01 0.10644E+00 0.17693E+00 0.28748E+00 0.45023E+00 + 0.68644E+00 0.10068E+01 0.15054E+01 0.21808E+01 0.32289E+01 0.47348E+01 + 0.70100E+01 0.10509E+02 0.16006E+02 0.36338E-07 0.56439E-07 0.69672E-07 + 0.91450E-07 0.12089E-06 0.13370E-06 0.69921E-07 0.29012E-06 0.19225E-05 + 0.81327E-05 0.26382E-04 0.78823E-05 0.40185E-03 0.99045E-03 0.22894E-02 + 0.27569E-03 0.11367E-01 0.46127E-03 0.40484E-01 0.63461E-01 0.13998E+00 + 0.23257E+00 0.37763E+00 0.59079E+00 0.89950E+00 0.13166E+01 0.19640E+01 + 0.28350E+01 0.41787E+01 0.60897E+01 0.89429E+01 0.13264E+02 0.19932E+02 + 0.76809E-07 0.10495E-06 0.14503E-06 0.24222E-06 0.33626E-06 0.45236E-06 + 0.17983E-06 0.17384E-06 0.13971E-05 0.94850E-05 0.49818E-04 0.27563E-04 + 0.47437E-03 0.11537E-02 0.26139E-02 0.19757E-03 0.12232E-01 0.10258E-02 + 0.53887E-01 0.84236E-01 0.18502E+00 0.30695E+00 0.49778E+00 0.77775E+00 + 0.11824E+01 0.17275E+01 0.25716E+01 0.37017E+01 0.54366E+01 0.78840E+01 + 0.11502E+02 0.16914E+02 0.25137E+02 0.23500E-06 0.29769E-06 0.37435E-06 + 0.55597E-06 0.95532E-06 0.14876E-05 0.15359E-05 0.12473E-05 0.55846E-06 + 0.49980E-05 0.41313E-04 0.10276E-03 0.46770E-03 0.11893E-02 0.27254E-02 + 0.34600E-03 0.12843E-01 0.24894E-02 0.60110E-01 0.11001E+00 0.24129E+00 + 0.40055E+00 0.64969E+00 0.10147E+01 0.15416E+01 0.22493E+01 0.33441E+01 + 0.48031E+01 0.70359E+01 0.10165E+02 0.14755E+02 0.21554E+02 0.31748E+02 + 0.35685E-06 0.41057E-06 0.57902E-06 0.11187E-05 0.22182E-05 0.35986E-05 + 0.65618E-05 0.81942E-05 0.49107E-05 0.34224E-05 0.38479E-04 0.14300E-03 + 0.53702E-03 0.13450E-02 0.29893E-02 0.49956E-03 0.13731E-01 0.30784E-02 + 0.62370E-01 0.12750E+00 0.32214E+00 0.53283E+00 0.86188E+00 0.13432E+01 + 0.20368E+01 0.29664E+01 0.44026E+01 0.63103E+01 0.92218E+01 0.13281E+02 + 0.19200E+02 0.27893E+02 0.40790E+02 0.74260E-06 0.10534E-05 0.20508E-05 + 0.36492E-05 0.75532E-05 0.12309E-04 0.18763E-04 0.30522E-04 0.24875E-04 + 0.27598E-04 0.49686E-04 0.19965E-03 0.61079E-03 0.15656E-02 0.33807E-02 + 0.70243E-03 0.14779E-01 0.37073E-02 0.65507E-01 0.13248E+00 0.43221E+00 + 0.71142E+00 0.11465E+01 0.17818E+01 0.26956E+01 0.39179E+01 0.58048E+01 + 0.83046E+01 0.12111E+02 0.17398E+02 0.25068E+02 0.36262E+02 0.52725E+02 + 0.54581E-05 0.10054E-04 0.16174E-04 0.31586E-04 0.58169E-04 0.94543E-04 + 0.11535E-03 0.13496E-03 0.11240E-03 0.11389E-03 0.10790E-03 0.71535E-03 + 0.53041E-03 0.15182E-02 0.34703E-02 0.16630E-02 0.15215E-01 0.62734E-02 + 0.65867E-01 0.13450E+00 0.48801E+00 0.93310E+00 0.15014E+01 0.23294E+01 + 0.35189E+01 0.51058E+01 0.75564E+01 0.10793E+02 0.15718E+02 0.22536E+02 + 0.32392E+02 0.46705E+02 0.67614E+02 0.27395E-04 0.44941E-04 0.85584E-04 + 0.13927E-03 0.20039E-03 0.26271E-03 0.29457E-03 0.34249E-03 0.31399E-03 + 0.33555E-03 0.32298E-03 0.91435E-03 0.12993E-02 0.14980E-02 0.34955E-02 + 0.29903E-02 0.15676E-01 0.94068E-02 0.67130E-01 0.13621E+00 0.49385E+00 + 0.11200E+01 0.19738E+01 0.30542E+01 0.46035E+01 0.66642E+01 0.98494E+01 + 0.14044E+02 0.20427E+02 0.29236E+02 0.41939E+02 0.60314E+02 0.87022E+02 + 0.12263E-03 0.15652E-03 0.20661E-03 0.30296E-03 0.43045E-03 0.58239E-03 + 0.64445E-03 0.74377E-03 0.71471E-03 0.76589E-03 0.78148E-03 0.17356E-02 + 0.67320E-03 0.59540E-02 0.35733E-02 0.48373E-02 0.16418E-01 0.13397E-01 + 0.69585E-01 0.13993E+00 0.50545E+00 0.11364E+01 0.25160E+01 0.40199E+01 + 0.60394E+01 0.87167E+01 0.12860E+02 0.18299E+02 0.26581E+02 0.37982E+02 + 0.54390E+02 0.78057E+02 0.11232E+03 0.52965E-03 0.67425E-03 0.86122E-03 + 0.11032E-02 0.13293E-02 0.16215E-02 0.19237E-02 0.21832E-02 0.22618E-02 + 0.24433E-02 0.25943E-02 0.43366E-02 0.21940E-02 0.19498E-02 0.11097E-01 + 0.10673E-01 0.13544E-01 0.25242E-01 0.63869E-01 0.13095E+00 0.47671E+00 + 0.10945E+01 0.24220E+01 0.50702E+01 0.76138E+01 0.10965E+02 0.16176E+02 + 0.22979E+02 0.33373E+02 0.47641E+02 0.68156E+02 0.97700E+02 0.14036E+03 + 0.16021E-02 0.20346E-02 0.25905E-02 0.33062E-02 0.42358E-02 0.48805E-02 + 0.53868E-02 0.62970E-02 0.66329E-02 0.72440E-02 0.77966E-02 0.10759E-01 + 0.80895E-02 0.74615E-02 0.70264E-02 0.87111E-01 0.10567E-01 0.49670E-01 + 0.48259E-01 0.10566E+00 0.40777E+00 0.96714E+00 0.22029E+01 0.47346E+01 + 0.91488E+01 0.13163E+02 0.19469E+02 0.27622E+02 0.40169E+02 0.57327E+02 + 0.82003E+02 0.11754E+03 0.16879E+03 0.38653E-02 0.48985E-02 0.62203E-02 + 0.79142E-02 0.10099E-01 0.12925E-01 0.14725E-01 0.15974E-01 0.17191E-01 + 0.18387E-01 0.19564E-01 0.24879E-01 0.21277E-01 0.21331E-01 0.21626E-01 + 0.48353E-01 0.75249E-01 0.90749E-01 0.39893E-01 0.79732E-01 0.31929E+00 + 0.79735E+00 0.18890E+01 0.41592E+01 0.87505E+01 0.15239E+02 0.22652E+02 + 0.32104E+02 0.46823E+02 0.66844E+02 0.95676E+02 0.13723E+03 0.19719E+03 + 0.77216E-02 0.97674E-02 0.12376E-01 0.15706E-01 0.19979E-01 0.25471E-01 + 0.32649E-01 0.38583E-01 0.40021E-01 0.43048E-01 0.45318E-01 0.54250E-01 + 0.49427E-01 0.50741E-01 0.53125E-01 0.94191E-01 0.58157E-01 0.51435E+00 + 0.65859E-01 0.87003E-01 0.25217E+00 0.61860E+00 0.15098E+01 0.34337E+01 + 0.73539E+01 0.14687E+02 0.25156E+02 0.35631E+02 0.52234E+02 0.74657E+02 + 0.10704E+03 0.15382E+03 0.22144E+03 0.13532E-01 0.17092E-01 0.21617E-01 + 0.27377E-01 0.34734E-01 0.44147E-01 0.56530E-01 0.76162E-01 0.87464E-01 + 0.91082E-01 0.95425E-01 0.10891E+00 0.10083E+00 0.10332E+00 0.10793E+00 + 0.16974E+00 0.12022E+00 0.26686E+00 0.13227E+00 0.14770E+00 0.27728E+00 + 0.55879E+00 0.12872E+01 0.29049E+01 0.63045E+01 0.12548E+02 0.26199E+02 + 0.39901E+02 0.58699E+02 0.83919E+02 0.12044E+03 0.17334E+03 0.25000E+03 + 0.21423E-01 0.27022E-01 0.34125E-01 0.43139E-01 0.54618E-01 0.69247E-01 + 0.88571E-01 0.11890E+00 0.15828E+00 0.18367E+00 0.19014E+00 0.21412E+00 + 0.19983E+00 0.20329E+00 0.21048E+00 0.30427E+00 0.23201E+00 0.44333E+00 + 0.25683E+00 0.27617E+00 0.40505E+00 0.62806E+00 0.12238E+01 0.25832E+01 + 0.54606E+01 0.10875E+02 0.22496E+02 0.43803E+02 0.65521E+02 0.93509E+02 + 0.13415E+03 0.19317E+03 0.27889E+03 0.35060E-01 0.44169E-01 0.55701E-01 + 0.70318E-01 0.88877E-01 0.11246E+00 0.14379E+00 0.19257E+00 0.25612E+00 + 0.34619E+00 0.39800E+00 0.43786E+00 0.41919E+00 0.42490E+00 0.43734E+00 + 0.58499E+00 0.47821E+00 0.79558E+00 0.53834E+00 0.58202E+00 0.77773E+00 + 0.98020E+00 0.14611E+01 0.25624E+01 0.48858E+01 0.93003E+01 0.18761E+02 + 0.35791E+02 0.69071E+02 0.97781E+02 0.13950E+03 0.20012E+03 0.28827E+03 + 0.54372E-01 0.68408E-01 0.86163E-01 0.10863E+00 0.13709E+00 0.17319E+00 + 0.22128E+00 0.29569E+00 0.39271E+00 0.52860E+00 0.71260E+00 0.85638E+00 + 0.82350E+00 0.84008E+00 0.85717E+00 0.10887E+01 0.91763E+00 0.13961E+01 + 0.10168E+01 0.10940E+01 0.14140E+01 0.16798E+01 0.21966E+01 0.33040E+01 + 0.55467E+01 0.98621E+01 0.18516E+02 0.34606E+02 0.66701E+02 0.11644E+03 + 0.16340E+03 0.23123E+03 0.32930E+03 0.85300E-01 0.10717E+00 0.13481E+00 + 0.16974E+00 0.21396E+00 0.26992E+00 0.34469E+00 0.45982E+00 0.61020E+00 + 0.81876E+00 0.10997E+01 0.15475E+01 0.16492E+01 0.16752E+01 0.17187E+01 + 0.20888E+01 0.18080E+01 0.25480E+01 0.19692E+01 0.21040E+01 0.26546E+01 + 0.30969E+01 0.38295E+01 0.52409E+01 0.79125E+01 0.13100E+02 0.22479E+02 + 0.40601E+02 0.74313E+02 0.13829E+03 0.22407E+03 0.30914E+03 0.43025E+03 + 0.12740E+00 0.15983E+00 0.20076E+00 0.25246E+00 0.31781E+00 0.40040E+00 + 0.51096E+00 0.68055E+00 0.90205E+00 0.12071E+01 0.16161E+01 0.22539E+01 + 0.28731E+01 0.31802E+01 0.32415E+01 0.38695E+01 0.33834E+01 0.45313E+01 + 0.35893E+01 0.37757E+01 0.45773E+01 0.52287E+01 0.62710E+01 0.81911E+01 + 0.11687E+02 0.18437E+02 0.29932E+02 0.52291E+02 0.92787E+02 0.16865E+03 + 0.31153E+03 0.47196E+03 0.64453E+03 0.17913E+00 0.22429E+00 0.28128E+00 + 0.35319E+00 0.44402E+00 0.55873E+00 0.71221E+00 0.94705E+00 0.12535E+01 + 0.16735E+01 0.22341E+01 0.30981E+01 0.39423E+01 0.52183E+01 0.57444E+01 + 0.67417E+01 0.59459E+01 0.77293E+01 0.61156E+01 0.63045E+01 0.72629E+01 + 0.80243E+01 0.92717E+01 0.11605E+02 0.15828E+02 0.23945E+02 0.37359E+02 + 0.63317E+02 0.10921E+03 0.19693E+03 0.35721E+03 0.66004E+03 0.94246E+03 + 0.24562E+00 0.30683E+00 0.38406E+00 0.48144E+00 0.60437E+00 0.75946E+00 + 0.96687E+00 0.12837E+01 0.16964E+01 0.22603E+01 0.30103E+01 0.41580E+01 + 0.52778E+01 0.69544E+01 0.92066E+01 0.11536E+02 0.10124E+02 0.13046E+02 + 0.10236E+02 0.10351E+02 0.11348E+02 0.12096E+02 0.13423E+02 0.16069E+02 + 0.20928E+02 0.30297E+02 0.45401E+02 0.74408E+02 0.12470E+03 0.21992E+03 + 0.39773E+03 0.72198E+03 0.13351E+04 0.33360E+00 0.41552E+00 0.51885E+00 + 0.64909E+00 0.81343E+00 0.10206E+01 0.12975E+01 0.17200E+01 0.22696E+01 + 0.30185E+01 0.40121E+01 0.55255E+01 0.69962E+01 0.91838E+01 0.12098E+02 + 0.18309E+02 0.17135E+02 0.21806E+02 0.17124E+02 0.17031E+02 0.17863E+02 + 0.18405E+02 0.19633E+02 0.22483E+02 0.27939E+02 0.38610E+02 0.55398E+02 + 0.87410E+02 0.14181E+03 0.24366E+03 0.43205E+03 0.78188E+03 0.14253E+04 + 0.45497E+00 0.56466E+00 0.70295E+00 0.87721E+00 0.10970E+01 0.13740E+01 + 0.17439E+01 0.23080E+01 0.30407E+01 0.40378E+01 0.53573E+01 0.73600E+01 + 0.93020E+01 0.12175E+02 0.15978E+02 0.24017E+02 0.27433E+02 0.36791E+02 + 0.28744E+02 0.28506E+02 0.28834E+02 0.28858E+02 0.29721E+02 0.32661E+02 + 0.38772E+02 0.51099E+02 0.69996E+02 0.10587E+03 0.16545E+03 0.27561E+03 + 0.47661E+03 0.84935E+03 0.15382E+04 0.61623E+00 0.76128E+00 0.94406E+00 + 0.11745E+01 0.14649E+01 0.18307E+01 0.23191E+01 0.30632E+01 0.40288E+01 + 0.53413E+01 0.70753E+01 0.97022E+01 0.12236E+02 0.15974E+02 0.20894E+02 + 0.31274E+02 0.35529E+02 0.58390E+02 0.47878E+02 0.47053E+02 0.46579E+02 + 0.45403E+02 0.45263E+02 0.47861E+02 0.54395E+02 0.68417E+02 0.89384E+02 + 0.12919E+03 0.19376E+03 0.31149E+03 0.52305E+03 0.91050E+03 0.16315E+04 + 0.85073E+00 0.10450E+01 0.12897E+01 0.15981E+01 0.19866E+01 0.24762E+01 + 0.31294E+01 0.41242E+01 0.54144E+01 0.71664E+01 0.94780E+01 0.12971E+02 + 0.16341E+02 0.21294E+02 0.27790E+02 0.41404E+02 0.46951E+02 0.76547E+02 + 0.77748E+02 0.79748E+02 0.78126E+02 0.74693E+02 0.72615E+02 0.74361E+02 + 0.81295E+02 0.97832E+02 0.12191E+03 0.16804E+03 0.24083E+03 0.37172E+03 + 0.60273E+03 0.10193E+04 0.17847E+04 0.11701E+01 0.14269E+01 0.17507E+01 + 0.21585E+01 0.26724E+01 0.33194E+01 0.41826E+01 0.54965E+01 0.71996E+01 + 0.95109E+01 0.12557E+02 0.17158E+02 0.21579E+02 0.28069E+02 0.36553E+02 + 0.54315E+02 0.61384E+02 0.99657E+02 0.10067E+03 0.12820E+03 0.12896E+03 + 0.12237E+03 0.11630E+03 0.11574E+03 0.12222E+03 0.14125E+03 0.16828E+03 + 0.22125E+03 0.30255E+03 0.44684E+03 0.69660E+03 0.11394E+04 0.19413E+04 + 0.16259E+01 0.19657E+01 0.23940E+01 0.29333E+01 0.36129E+01 0.44686E+01 + 0.56090E+01 0.73454E+01 0.95943E+01 0.12645E+02 0.16664E+02 0.22730E+02 + 0.28541E+02 0.37061E+02 0.48177E+02 0.71432E+02 0.80516E+02 0.13028E+03 + 0.13104E+03 0.16596E+03 0.21474E+03 0.20205E+03 0.18984E+03 0.18451E+03 + 0.18915E+03 0.21092E+03 0.24110E+03 0.30290E+03 0.39502E+03 0.55685E+03 + 0.83123E+03 0.13084E+04 0.21585E+04 0.22877E+01 0.27373E+01 0.33038E+01 + 0.40173E+01 0.49162E+01 0.60480E+01 0.75552E+01 0.98502E+01 0.12821E+02 + 0.16852E+02 0.22156E+02 0.30164E+02 0.37811E+02 0.49020E+02 0.63613E+02 + 0.94147E+02 0.10589E+03 0.17088E+03 0.17130E+03 0.21601E+03 0.34492E+03 + 0.33550E+03 0.31361E+03 0.30008E+03 0.30012E+03 0.32454E+03 0.35757E+03 + 0.43064E+03 0.53636E+03 0.72104E+03 0.10277E+04 0.15502E+04 0.24637E+04 + 0.23612E-09 0.30758E-09 0.61780E-09 0.11089E-08 0.21248E-08 0.42285E-08 + 0.23937E-07 0.48428E-07 0.28848E-07 0.18679E-06 0.33422E-06 0.24346E-04 + 0.14612E-03 0.33722E-04 0.62573E-03 0.10283E-02 0.16214E-02 0.23768E-02 + 0.32408E-02 0.44808E-02 0.61300E-02 0.84349E-02 0.11203E-01 0.15094E-01 + 0.19369E-01 0.26150E-01 0.33173E-01 0.43755E-01 0.55932E-01 0.74579E-01 + 0.95780E-01 0.12837E+00 0.16708E+00 0.68213E-09 0.47311E-09 0.78550E-09 + 0.13622E-08 0.26633E-08 0.54294E-08 0.29979E-07 0.67716E-07 0.49568E-07 + 0.34196E-06 0.48640E-06 0.32137E-04 0.19008E-03 0.43334E-04 0.80490E-03 + 0.13170E-02 0.20696E-02 0.30244E-02 0.41123E-02 0.56719E-02 0.77420E-02 + 0.10628E-01 0.14086E-01 0.18932E-01 0.24232E-01 0.32617E-01 0.41235E-01 + 0.54165E-01 0.68906E-01 0.91342E-01 0.11650E+00 0.15488E+00 0.19969E+00 + 0.12966E-08 0.11926E-08 0.91657E-09 0.18306E-08 0.35732E-08 0.65090E-08 + 0.46579E-07 0.10609E-06 0.85140E-07 0.55150E-06 0.12154E-05 0.43556E-04 + 0.24927E-03 0.56059E-04 0.10412E-02 0.16946E-02 0.26523E-02 0.38610E-02 + 0.52333E-02 0.71978E-02 0.98008E-02 0.13422E-01 0.17750E-01 0.23801E-01 + 0.30393E-01 0.40801E-01 0.51428E-01 0.67317E-01 0.85284E-01 0.11250E+00 + 0.14264E+00 0.18831E+00 0.24082E+00 0.29805E-08 0.28715E-08 0.21733E-08 + 0.22074E-08 0.44666E-08 0.86528E-08 0.91832E-07 0.22100E-06 0.19333E-06 + 0.79599E-06 0.21658E-05 0.66068E-04 0.32971E-03 0.72593E-04 0.13552E-02 + 0.21918E-02 0.34140E-02 0.49478E-02 0.66807E-02 0.91593E-02 0.12436E-01 + 0.16986E-01 0.22413E-01 0.29984E-01 0.38203E-01 0.51162E-01 0.64320E-01 + 0.83934E-01 0.10597E+00 0.13919E+00 0.17561E+00 0.23046E+00 0.29266E+00 + 0.48921E-08 0.57872E-08 0.47899E-08 0.42738E-08 0.62243E-08 0.12770E-07 + 0.18353E-06 0.54173E-06 0.33005E-06 0.11108E-05 0.33982E-05 0.98482E-04 + 0.43468E-03 0.94889E-04 0.17781E-02 0.28540E-02 0.44196E-02 0.63705E-02 + 0.85623E-02 0.11694E-01 0.15827E-01 0.21551E-01 0.28366E-01 0.37856E-01 + 0.48126E-01 0.64301E-01 0.80648E-01 0.10496E+00 0.13211E+00 0.17291E+00 + 0.21723E+00 0.28364E+00 0.35804E+00 0.12457E-07 0.10752E-07 0.11724E-07 + 0.12684E-07 0.10667E-07 0.16768E-07 0.33737E-06 0.11445E-05 0.43503E-06 + 0.13259E-05 0.42746E-05 0.14333E-03 0.51965E-03 0.12284E-03 0.23538E-02 + 0.37441E-02 0.57579E-02 0.82459E-02 0.11023E-01 0.14987E-01 0.20206E-01 + 0.27415E-01 0.35984E-01 0.47894E-01 0.60749E-01 0.80977E-01 0.10133E+00 + 0.13155E+00 0.16514E+00 0.21547E+00 0.26975E+00 0.35069E+00 0.44045E+00 + 0.10280E-06 0.11357E-06 0.11166E-06 0.14775E-06 0.23269E-06 0.31680E-06 + 0.32641E-06 0.14153E-05 0.44388E-05 0.74319E-05 0.69243E-05 0.17463E-03 + 0.62149E-03 0.93212E-04 0.31060E-02 0.49796E-02 0.76152E-02 0.10839E-01 + 0.14403E-01 0.19490E-01 0.26171E-01 0.35370E-01 0.46286E-01 0.61426E-01 + 0.77720E-01 0.10335E+00 0.12904E+00 0.16711E+00 0.20926E+00 0.27225E+00 + 0.33973E+00 0.43995E+00 0.55003E+00 0.26377E-06 0.34636E-06 0.32445E-06 + 0.30020E-06 0.35849E-06 0.71195E-06 0.12590E-05 0.25658E-05 0.12162E-04 + 0.19469E-04 0.21555E-04 0.22828E-03 0.78854E-03 0.79386E-04 0.35156E-02 + 0.67222E-02 0.10754E-01 0.15146E-01 0.19936E-01 0.26767E-01 0.35709E-01 + 0.47962E-01 0.62478E-01 0.82548E-01 0.10409E+00 0.13797E+00 0.17176E+00 + 0.22179E+00 0.27696E+00 0.35924E+00 0.44681E+00 0.57641E+00 0.71751E+00 + 0.74005E-06 0.10980E-05 0.14493E-05 0.16219E-05 0.13049E-05 0.11486E-05 + 0.49676E-05 0.11903E-04 0.41036E-04 0.60001E-04 0.74040E-04 0.26045E-03 + 0.92219E-03 0.11580E-03 0.40140E-02 0.73863E-02 0.13768E-01 0.21205E-01 + 0.27621E-01 0.36770E-01 0.48699E-01 0.64947E-01 0.84165E-01 0.11064E+00 + 0.13896E+00 0.18353E+00 0.22779E+00 0.29323E+00 0.36521E+00 0.47236E+00 + 0.58581E+00 0.75325E+00 0.93422E+00 0.17293E-05 0.27263E-05 0.60074E-05 + 0.80209E-05 0.10261E-04 0.93731E-05 0.43735E-05 0.19498E-04 0.67123E-04 + 0.98552E-04 0.11981E-03 0.32747E-03 0.11270E-02 0.18183E-03 0.47440E-02 + 0.85631E-02 0.15378E-01 0.26650E-01 0.39401E-01 0.51806E-01 0.67894E-01 + 0.89651E-01 0.11532E+00 0.15053E+00 0.18807E+00 0.24721E+00 0.30567E+00 + 0.39204E+00 0.48682E+00 0.62775E+00 0.77636E+00 0.99519E+00 0.12303E+01 + 0.52055E-05 0.91189E-05 0.19785E-04 0.35195E-04 0.56396E-04 0.67851E-04 + 0.53175E-04 0.46233E-04 0.11390E-03 0.16810E-03 0.20979E-03 0.40430E-03 + 0.13621E-02 0.34558E-03 0.56449E-02 0.99462E-02 0.17575E-01 0.29819E-01 + 0.47530E-01 0.73937E-01 0.95680E-01 0.12482E+00 0.15909E+00 0.20590E+00 + 0.25558E+00 0.33397E+00 0.41103E+00 0.52490E+00 0.64959E+00 0.83487E+00 + 0.10296E+01 0.13158E+01 0.16220E+01 0.52808E-05 0.85948E-05 0.11486E-04 + 0.13304E-04 0.14377E-04 0.14171E-04 0.17741E-04 0.49076E-04 0.16016E-04 + 0.16005E-04 0.14710E-04 0.91605E-03 0.23916E-02 0.35237E-03 0.79935E-02 + 0.13304E-01 0.22318E-01 0.36995E-01 0.57272E-01 0.91372E-01 0.14480E+00 + 0.18535E+00 0.23276E+00 0.29732E+00 0.36551E+00 0.47313E+00 0.57861E+00 + 0.73450E+00 0.90478E+00 0.11578E+01 0.14228E+01 0.18123E+01 0.22275E+01 + 0.21947E-03 0.28281E-03 0.34668E-03 0.40763E-03 0.46661E-03 0.51994E-03 + 0.52611E-03 0.52728E-03 0.69837E-03 0.83988E-03 0.13233E-02 0.41907E-03 + 0.17301E-02 0.17881E-02 0.79418E-02 0.13663E-01 0.23146E-01 0.38438E-01 + 0.59584E-01 0.94383E-01 0.14957E+00 0.23940E+00 0.30729E+00 0.38870E+00 + 0.47403E+00 0.60972E+00 0.74096E+00 0.93513E+00 0.11473E+01 0.14623E+01 + 0.17913E+01 0.22740E+01 0.27872E+01 0.53658E-03 0.73384E-03 0.86136E-03 + 0.10077E-02 0.11373E-02 0.12387E-02 0.12627E-02 0.13155E-02 0.16389E-02 + 0.18033E-02 0.21007E-02 0.24248E-02 0.17036E-02 0.36507E-02 0.92548E-02 + 0.16023E-01 0.27060E-01 0.44338E-01 0.67383E-01 0.10586E+00 0.16553E+00 + 0.25937E+00 0.40243E+00 0.53897E+00 0.64958E+00 0.82674E+00 0.99600E+00 + 0.12469E+01 0.15207E+01 0.19276E+01 0.23513E+01 0.29723E+01 0.36311E+01 + 0.13993E-02 0.16815E-02 0.20461E-02 0.23154E-02 0.26026E-02 0.28014E-02 + 0.28214E-02 0.28630E-02 0.35250E-02 0.38141E-02 0.41370E-02 0.18051E-02 + 0.20366E-02 0.67397E-02 0.10977E-01 0.19298E-01 0.32632E-01 0.52814E-01 + 0.78617E-01 0.12112E+00 0.18715E+00 0.28894E+00 0.43935E+00 0.67980E+00 + 0.90465E+00 0.11363E+01 0.13541E+01 0.16780E+01 0.20312E+01 0.25568E+01 + 0.31022E+01 0.39013E+01 0.47477E+01 0.33107E-03 0.38401E-03 0.41905E-03 + 0.46477E-03 0.49677E-03 0.51535E-03 0.29301E-03 0.18596E-03 0.58228E-03 + 0.60027E-03 0.53485E-03 0.45573E-02 0.13142E-01 0.63262E-03 0.27220E-01 + 0.40528E-01 0.60617E-01 0.89765E-01 0.12607E+00 0.18360E+00 0.27015E+00 + 0.40197E+00 0.59556E+00 0.89070E+00 0.13059E+01 0.18688E+01 0.21917E+01 + 0.26748E+01 0.31996E+01 0.39824E+01 0.47941E+01 0.59867E+01 0.72466E+01 + 0.71358E-02 0.90587E-02 0.10821E-01 0.11452E-01 0.12262E-01 0.13090E-01 + 0.13253E-01 0.13457E-01 0.15032E-01 0.15947E-01 0.16769E-01 0.10656E-01 + 0.76972E-02 0.23870E-01 0.15609E-01 0.27907E-01 0.49116E-01 0.79277E-01 + 0.11402E+00 0.16963E+00 0.25216E+00 0.37343E+00 0.55215E+00 0.82592E+00 + 0.11914E+01 0.18266E+01 0.25731E+01 0.31009E+01 0.36765E+01 0.45376E+01 + 0.54238E+01 0.67230E+01 0.80951E+01 0.10472E-03 0.12326E-03 0.13250E-03 + 0.13627E-03 0.10133E-03 0.77506E-04 0.91331E-03 0.18096E-02 0.12877E-03 + 0.21069E-03 0.55791E-03 0.14700E-01 0.27680E-01 0.40466E-02 0.67187E-01 + 0.18227E+00 0.13044E+00 0.18127E+00 0.23914E+00 0.32703E+00 0.45253E+00 + 0.63206E+00 0.88822E+00 0.12720E+01 0.17980E+01 0.26553E+01 0.37899E+01 + 0.56474E+01 0.65890E+01 0.79889E+01 0.94306E+01 0.11561E+02 0.13804E+02 + 0.22513E-01 0.28474E-01 0.36048E-01 0.45710E-01 0.58057E-01 0.61243E-01 + 0.61433E-01 0.62131E-01 0.66312E-01 0.68137E-01 0.70167E-01 0.53457E-01 + 0.44624E-01 0.85767E-01 0.28401E-01 0.41835E-01 0.72105E-01 0.11987E+00 + 0.17063E+00 0.25049E+00 0.36303E+00 0.51543E+00 0.73225E+00 0.10438E+01 + 0.14591E+01 0.21663E+01 0.30489E+01 0.44593E+01 0.64884E+01 0.81290E+01 + 0.94978E+01 0.11513E+02 0.13637E+02 0.35583E-01 0.44946E-01 0.56814E-01 + 0.71907E-01 0.91126E-01 0.11565E+00 0.12658E+00 0.12748E+00 0.13567E+00 + 0.13922E+00 0.14231E+00 0.11381E+00 0.99006E-01 0.16589E+00 0.57670E-01 + 0.64949E-01 0.92927E-01 0.14950E+00 0.21123E+00 0.30958E+00 0.44589E+00 + 0.62264E+00 0.86922E+00 0.12098E+01 0.16514E+01 0.23956E+01 0.33237E+01 + 0.47703E+01 0.67924E+01 0.10104E+02 0.12670E+02 0.15128E+02 0.17719E+02 + 0.79443E-01 0.10014E+00 0.12630E+00 0.15943E+00 0.20141E+00 0.25466E+00 + 0.31830E+00 0.39912E+00 0.50082E+00 0.51089E+00 0.52231E+00 0.44327E+00 + 0.39722E+00 0.57409E+00 0.25292E+00 0.20803E+00 0.20322E+00 0.28790E+00 + 0.37534E+00 0.52742E+00 0.74101E+00 0.10008E+01 0.13506E+01 0.17948E+01 + 0.23344E+01 0.32262E+01 0.42551E+01 0.58321E+01 0.80393E+01 0.11511E+02 + 0.16082E+02 0.23358E+02 0.31012E+02 0.13259E+00 0.16696E+00 0.21035E+00 + 0.26520E+00 0.33459E+00 0.42242E+00 0.52810E+00 0.66190E+00 0.85807E+00 + 0.10896E+01 0.11818E+01 0.10303E+01 0.95456E+00 0.12828E+01 0.66723E+00 + 0.54562E+00 0.45585E+00 0.46148E+00 0.59667E+00 0.76064E+00 0.10189E+01 + 0.13386E+01 0.17691E+01 0.22928E+01 0.29016E+01 0.39026E+01 0.49875E+01 + 0.66088E+01 0.88438E+01 0.12309E+02 0.16948E+02 0.23910E+02 0.33561E+02 + 0.21615E+00 0.27188E+00 0.34215E+00 0.43093E+00 0.54305E+00 0.68476E+00 + 0.85611E+00 0.10726E+01 0.13832E+01 0.17519E+01 0.22177E+01 0.23353E+01 + 0.21941E+01 0.28315E+01 0.16513E+01 0.13866E+01 0.11256E+01 0.99250E+00 + 0.10182E+01 0.12860E+01 0.15616E+01 0.19406E+01 0.24672E+01 0.30964E+01 + 0.38021E+01 0.49583E+01 0.61342E+01 0.78464E+01 0.10168E+02 0.13678E+02 + 0.18266E+02 0.25218E+02 0.34653E+02 0.33953E+00 0.42650E+00 0.53614E+00 + 0.67451E+00 0.84911E+00 0.10695E+01 0.13368E+01 0.16739E+01 0.21509E+01 + 0.27188E+01 0.34342E+01 0.38561E+01 0.47833E+01 0.59792E+01 0.37789E+01 + 0.32455E+01 0.26570E+01 0.22428E+01 0.21405E+01 0.21756E+01 0.27455E+01 + 0.31811E+01 0.38315E+01 0.46177E+01 0.54813E+01 0.68902E+01 0.82461E+01 + 0.10170E+02 0.12733E+02 0.16508E+02 0.21322E+02 0.28414E+02 0.38092E+02 + 0.51918E+00 0.65113E+00 0.81740E+00 0.10271E+01 0.12916E+01 0.16251E+01 + 0.20303E+01 0.25407E+01 0.32561E+01 0.41094E+01 0.51820E+01 0.58627E+01 + 0.86334E+01 0.12363E+02 0.81189E+01 0.71348E+01 0.59538E+01 0.49721E+01 + 0.45893E+01 0.43718E+01 0.45370E+01 0.57239E+01 0.65268E+01 0.75429E+01 + 0.86541E+01 0.10464E+02 0.12128E+02 0.14434E+02 0.17451E+02 0.21780E+02 + 0.27168E+02 0.34884E+02 0.45251E+02 0.76393E+00 0.95608E+00 0.11981E+01 + 0.15033E+01 0.18879E+01 0.23726E+01 0.29617E+01 0.37035E+01 0.47375E+01 + 0.59717E+01 0.75201E+01 0.85298E+01 0.12550E+02 0.19194E+02 0.16199E+02 + 0.14478E+02 0.12170E+02 0.10245E+02 0.93198E+01 0.86282E+01 0.85981E+01 + 0.10745E+02 0.11837E+02 0.13276E+02 0.14835E+02 0.17380E+02 0.19593E+02 + 0.22591E+02 0.26447E+02 0.31845E+02 0.38388E+02 0.47496E+02 0.59542E+02 + 0.11468E+01 0.14312E+01 0.17894E+01 0.22409E+01 0.28098E+01 0.35265E+01 + 0.43987E+01 0.54956E+01 0.70175E+01 0.88354E+01 0.11114E+02 0.12664E+02 + 0.18661E+02 0.28186E+02 0.24376E+02 0.27332E+02 0.25818E+02 0.21745E+02 + 0.19831E+02 0.17977E+02 0.17181E+02 0.17583E+02 0.22233E+02 0.24112E+02 + 0.26218E+02 0.29709E+02 0.32651E+02 0.36567E+02 0.41530E+02 0.48329E+02 + 0.56374E+02 0.67287E+02 0.81506E+02 0.16693E+01 0.20755E+01 0.25872E+01 + 0.32318E+01 0.40439E+01 0.50664E+01 0.63110E+01 0.78759E+01 0.10042E+02 + 0.12629E+02 0.15869E+02 0.18094E+02 0.26629E+02 0.40023E+02 0.34823E+02 + 0.39075E+02 0.41932E+02 0.43114E+02 0.38979E+02 0.35212E+02 0.33413E+02 + 0.33538E+02 0.42380E+02 0.45173E+02 0.48322E+02 0.53641E+02 0.57848E+02 + 0.63343E+02 0.70205E+02 0.79408E+02 0.89975E+02 0.10392E+03 0.12186E+03 + 0.24870E+01 0.30770E+01 0.38200E+01 0.47557E+01 0.59344E+01 0.74184E+01 + 0.92257E+01 0.11498E+02 0.14633E+02 0.18381E+02 0.23072E+02 0.26367E+02 + 0.38829E+02 0.57932E+02 0.51115E+02 0.57616E+02 0.62215E+02 0.66402E+02 + 0.75726E+02 0.71669E+02 0.66730E+02 0.66255E+02 0.67873E+02 0.86466E+02 + 0.90875E+02 0.98605E+02 0.10456E+03 0.11223E+03 0.12171E+03 0.13420E+03 + 0.14817E+03 0.16618E+03 0.18905E+03 0.36766E+01 0.45190E+01 0.55792E+01 + 0.69151E+01 0.85969E+01 0.10714E+02 0.13293E+02 0.16534E+02 0.21002E+02 + 0.26344E+02 0.33024E+02 0.37761E+02 0.55557E+02 0.82558E+02 0.73280E+02 + 0.82722E+02 0.89524E+02 0.95662E+02 0.10888E+03 0.12227E+03 0.13095E+03 + 0.12793E+03 0.13037E+03 0.16711E+03 0.17368E+03 0.18573E+03 0.19455E+03 + 0.20576E+03 0.21946E+03 0.23721E+03 0.25640E+03 0.28047E+03 0.31075E+03 + 0.55007E+01 0.67028E+01 0.82164E+01 0.10123E+02 0.12524E+02 0.15545E+02 + 0.19224E+02 0.23848E+02 0.30218E+02 0.37834E+02 0.47356E+02 0.54159E+02 + 0.79601E+02 0.11784E+03 0.10521E+03 0.11896E+03 0.12906E+03 0.13816E+03 + 0.15709E+03 0.17575E+03 0.20301E+03 0.24811E+03 0.25109E+03 0.26030E+03 + 0.33591E+03 0.35478E+03 0.36806E+03 0.38475E+03 0.40496E+03 0.43073E+03 + 0.45758E+03 0.49036E+03 0.53119E+03 0.83559E+01 0.10072E+02 0.12232E+02 + 0.14952E+02 0.18376E+02 0.22687E+02 0.27937E+02 0.34535E+02 0.43619E+02 + 0.54478E+02 0.68052E+02 0.77816E+02 0.11421E+03 0.16842E+03 0.15123E+03 + 0.17126E+03 0.18630E+03 0.19985E+03 0.22716E+03 0.25349E+03 0.29093E+03 + 0.35244E+03 0.44208E+03 0.50085E+03 0.64504E+03 0.68239E+03 0.70528E+03 + 0.73051E+03 0.76084E+03 0.79902E+03 0.83724E+03 0.88255E+03 0.93853E+03 + 0.12936E+02 0.15384E+02 0.18466E+02 0.22347E+02 0.27233E+02 0.33383E+02 + 0.40869E+02 0.50278E+02 0.63239E+02 0.78722E+02 0.98078E+02 0.11207E+03 + 0.16412E+03 0.24109E+03 0.21762E+03 0.24682E+03 0.26918E+03 0.28944E+03 + 0.32904E+03 0.36653E+03 0.41849E+03 0.50322E+03 0.62508E+03 0.80174E+03 + 0.10009E+04 0.13072E+04 0.13526E+04 0.14036E+04 0.14498E+04 0.15073E+04 + 0.15626E+04 0.16261E+04 0.17039E+04 0.23517E-09 0.34545E-09 0.64468E-09 + 0.17960E-08 0.31390E-08 0.77491E-08 0.36338E-07 0.76809E-07 0.23500E-06 + 0.35685E-06 0.74260E-06 0.54581E-05 0.27395E-04 0.12263E-03 0.52965E-03 + 0.16021E-02 0.38653E-02 0.77216E-02 0.13532E-01 0.21423E-01 0.35060E-01 + 0.54372E-01 0.85300E-01 0.12740E+00 0.17913E+00 0.24562E+00 0.33360E+00 + 0.45497E+00 0.61623E+00 0.85073E+00 0.11701E+01 0.16259E+01 0.22877E+01 + 0.49015E-09 0.47122E-09 0.68033E-09 0.16823E-08 0.41912E-08 0.70333E-08 + 0.56439E-07 0.10495E-06 0.29769E-06 0.41057E-06 0.10534E-05 0.10054E-04 + 0.44941E-04 0.15652E-03 0.67425E-03 0.20346E-02 0.48985E-02 0.97674E-02 + 0.17092E-01 0.27022E-01 0.44169E-01 0.68408E-01 0.10717E+00 0.15983E+00 + 0.22429E+00 0.30683E+00 0.41552E+00 0.56466E+00 0.76128E+00 0.10450E+01 + 0.14269E+01 0.19657E+01 0.27373E+01 0.95154E-09 0.85695E-09 0.91000E-09 + 0.16160E-08 0.38669E-08 0.10089E-07 0.69672E-07 0.14503E-06 0.37435E-06 + 0.57902E-06 0.20508E-05 0.16174E-04 0.85584E-04 0.20661E-03 0.86122E-03 + 0.25905E-02 0.62203E-02 0.12376E-01 0.21617E-01 0.34125E-01 0.55701E-01 + 0.86163E-01 0.13481E+00 0.20076E+00 0.28128E+00 0.38406E+00 0.51885E+00 + 0.70295E+00 0.94406E+00 0.12897E+01 0.17507E+01 0.23940E+01 0.33038E+01 + 0.19138E-08 0.21074E-08 0.20600E-08 0.19586E-08 0.32994E-08 0.84660E-08 + 0.91450E-07 0.24222E-06 0.55597E-06 0.11187E-05 0.36492E-05 0.31586E-04 + 0.13927E-03 0.30296E-03 0.11032E-02 0.33062E-02 0.79142E-02 0.15706E-01 + 0.27377E-01 0.43139E-01 0.70318E-01 0.10863E+00 0.16974E+00 0.25246E+00 + 0.35319E+00 0.48144E+00 0.64909E+00 0.87721E+00 0.11745E+01 0.15981E+01 + 0.21585E+01 0.29333E+01 0.40173E+01 0.32882E-08 0.37161E-08 0.42987E-08 + 0.38307E-08 0.34431E-08 0.77856E-08 0.12089E-06 0.33626E-06 0.95532E-06 + 0.22182E-05 0.75532E-05 0.58169E-04 0.20039E-03 0.43045E-03 0.13293E-02 + 0.42358E-02 0.10099E-01 0.19979E-01 0.34734E-01 0.54618E-01 0.88877E-01 + 0.13709E+00 0.21396E+00 0.31781E+00 0.44402E+00 0.60437E+00 0.81343E+00 + 0.10970E+01 0.14649E+01 0.19866E+01 0.26724E+01 0.36129E+01 0.49162E+01 + 0.68806E-08 0.72269E-08 0.85813E-08 0.97581E-08 0.93417E-08 0.75622E-08 + 0.13370E-06 0.45236E-06 0.14876E-05 0.35986E-05 0.12309E-04 0.94543E-04 + 0.26271E-03 0.58239E-03 0.16215E-02 0.48805E-02 0.12925E-01 0.25471E-01 + 0.44147E-01 0.69247E-01 0.11246E+00 0.17319E+00 0.26992E+00 0.40040E+00 + 0.55873E+00 0.75946E+00 0.10206E+01 0.13740E+01 0.18307E+01 0.24762E+01 + 0.33194E+01 0.44686E+01 0.60480E+01 0.36429E-07 0.54064E-07 0.71757E-07 + 0.98343E-07 0.13974E-06 0.16539E-06 0.69921E-07 0.17983E-06 0.15359E-05 + 0.65618E-05 0.18763E-04 0.11535E-03 0.29457E-03 0.64445E-03 0.19237E-02 + 0.53868E-02 0.14725E-01 0.32649E-01 0.56530E-01 0.88571E-01 0.14379E+00 + 0.22128E+00 0.34469E+00 0.51096E+00 0.71221E+00 0.96687E+00 0.12975E+01 + 0.17439E+01 0.23191E+01 0.31294E+01 0.41826E+01 0.56090E+01 0.75552E+01 + 0.69963E-07 0.95348E-07 0.13311E-06 0.22663E-06 0.34420E-06 0.51620E-06 + 0.29012E-06 0.17384E-06 0.12473E-05 0.81942E-05 0.30522E-04 0.13496E-03 + 0.34249E-03 0.74377E-03 0.21832E-02 0.62970E-02 0.15974E-01 0.38583E-01 + 0.76162E-01 0.11890E+00 0.19257E+00 0.29569E+00 0.45982E+00 0.68055E+00 + 0.94705E+00 0.12837E+01 0.17200E+01 0.23080E+01 0.30632E+01 0.41242E+01 + 0.54965E+01 0.73454E+01 0.98502E+01 0.20070E-06 0.26859E-06 0.32333E-06 + 0.50143E-06 0.94319E-06 0.16148E-05 0.19225E-05 0.13971E-05 0.55846E-06 + 0.49107E-05 0.24875E-04 0.11240E-03 0.31399E-03 0.71471E-03 0.22618E-02 + 0.66329E-02 0.17191E-01 0.40021E-01 0.87464E-01 0.15828E+00 0.25612E+00 + 0.39271E+00 0.61020E+00 0.90205E+00 0.12535E+01 0.16964E+01 0.22696E+01 + 0.30407E+01 0.40288E+01 0.54144E+01 0.71996E+01 0.95943E+01 0.12821E+02 + 0.33186E-06 0.40867E-06 0.49778E-06 0.96316E-06 0.20820E-05 0.42475E-05 + 0.81327E-05 0.94850E-05 0.49980E-05 0.34224E-05 0.27598E-04 0.11389E-03 + 0.33555E-03 0.76589E-03 0.24433E-02 0.72440E-02 0.18387E-01 0.43048E-01 + 0.91082E-01 0.18367E+00 0.34619E+00 0.52860E+00 0.81876E+00 0.12071E+01 + 0.16735E+01 0.22603E+01 0.30185E+01 0.40378E+01 0.53413E+01 0.71664E+01 + 0.95109E+01 0.12645E+02 0.16852E+02 0.60140E-06 0.80459E-06 0.12059E-05 + 0.22080E-05 0.60584E-05 0.12477E-04 0.26382E-04 0.49818E-04 0.41313E-04 + 0.38479E-04 0.49686E-04 0.10790E-03 0.32298E-03 0.78148E-03 0.25943E-02 + 0.77966E-02 0.19564E-01 0.45318E-01 0.95425E-01 0.19014E+00 0.39800E+00 + 0.71260E+00 0.10997E+01 0.16161E+01 0.22341E+01 0.30103E+01 0.40121E+01 + 0.53573E+01 0.70753E+01 0.94780E+01 0.12557E+02 0.16664E+02 0.22156E+02 + 0.28364E-06 0.63237E-06 0.10768E-05 0.21965E-05 0.50189E-05 0.86140E-05 + 0.78823E-05 0.27563E-04 0.10276E-03 0.14300E-03 0.19965E-03 0.71535E-03 + 0.91435E-03 0.17356E-02 0.43366E-02 0.10759E-01 0.24879E-01 0.54250E-01 + 0.10891E+00 0.21412E+00 0.43786E+00 0.85638E+00 0.15475E+01 0.22539E+01 + 0.30981E+01 0.41580E+01 0.55255E+01 0.73600E+01 0.97022E+01 0.12971E+02 + 0.17158E+02 0.22730E+02 0.30164E+02 0.30695E-04 0.39216E-04 0.78844E-04 + 0.14959E-03 0.24033E-03 0.33556E-03 0.40185E-03 0.47437E-03 0.46770E-03 + 0.53702E-03 0.61079E-03 0.53041E-03 0.12993E-02 0.67320E-03 0.21940E-02 + 0.80895E-02 0.21277E-01 0.49427E-01 0.10083E+00 0.19983E+00 0.41919E+00 + 0.82350E+00 0.16492E+01 0.28731E+01 0.39423E+01 0.52778E+01 0.69962E+01 + 0.93020E+01 0.12236E+02 0.16341E+02 0.21579E+02 0.28541E+02 0.37811E+02 + 0.14820E-03 0.18889E-03 0.24192E-03 0.37212E-03 0.57665E-03 0.82955E-03 + 0.99045E-03 0.11537E-02 0.11893E-02 0.13450E-02 0.15656E-02 0.15182E-02 + 0.14980E-02 0.59540E-02 0.19498E-02 0.74615E-02 0.21331E-01 0.50741E-01 + 0.10332E+00 0.20329E+00 0.42490E+00 0.84008E+00 0.16752E+01 0.31802E+01 + 0.52183E+01 0.69544E+01 0.91838E+01 0.12175E+02 0.15974E+02 0.21294E+02 + 0.28069E+02 0.37061E+02 0.49020E+02 0.52731E-03 0.67029E-03 0.85539E-03 + 0.11531E-02 0.14764E-02 0.18778E-02 0.22894E-02 0.26139E-02 0.27254E-02 + 0.29893E-02 0.33807E-02 0.34703E-02 0.34955E-02 0.35733E-02 0.11097E-01 + 0.70264E-02 0.21626E-01 0.53125E-01 0.10793E+00 0.21048E+00 0.43734E+00 + 0.85717E+00 0.17187E+01 0.32415E+01 0.57444E+01 0.92066E+01 0.12098E+02 + 0.15978E+02 0.20894E+02 0.27790E+02 0.36553E+02 0.48177E+02 0.63613E+02 + 0.11826E-03 0.14869E-03 0.18755E-03 0.24729E-03 0.32764E-03 0.38468E-03 + 0.27569E-03 0.19757E-03 0.34600E-03 0.49956E-03 0.70243E-03 0.16630E-02 + 0.29903E-02 0.48373E-02 0.10673E-01 0.87111E-01 0.48353E-01 0.94191E-01 + 0.16974E+00 0.30427E+00 0.58499E+00 0.10887E+01 0.20888E+01 0.38695E+01 + 0.67417E+01 0.11536E+02 0.18309E+02 0.24017E+02 0.31274E+02 0.41404E+02 + 0.54315E+02 0.71432E+02 0.94147E+02 0.25573E-02 0.32365E-02 0.41075E-02 + 0.54908E-02 0.73697E-02 0.99359E-02 0.11367E-01 0.12232E-01 0.12843E-01 + 0.13731E-01 0.14779E-01 0.15215E-01 0.15676E-01 0.16418E-01 0.13544E-01 + 0.10567E-01 0.75249E-01 0.58157E-01 0.12022E+00 0.23201E+00 0.47821E+00 + 0.91763E+00 0.18080E+01 0.33834E+01 0.59459E+01 0.10124E+02 0.17135E+02 + 0.27433E+02 0.35529E+02 0.46951E+02 0.61384E+02 0.80516E+02 0.10589E+03 + 0.37638E-04 0.44188E-04 0.51696E-04 0.57594E-04 0.62545E-04 0.60553E-04 + 0.46127E-03 0.10258E-02 0.24894E-02 0.30784E-02 0.37073E-02 0.62734E-02 + 0.94068E-02 0.13397E-01 0.25242E-01 0.49670E-01 0.90749E-01 0.51435E+00 + 0.26686E+00 0.44333E+00 0.79558E+00 0.13961E+01 0.25480E+01 0.45313E+01 + 0.77293E+01 0.13046E+02 0.21806E+02 0.36791E+02 0.58390E+02 0.76547E+02 + 0.99657E+02 0.13028E+03 0.17088E+03 0.81132E-02 0.10237E-01 0.12946E-01 + 0.17217E-01 0.22952E-01 0.30681E-01 0.40484E-01 0.53887E-01 0.60110E-01 + 0.62370E-01 0.65507E-01 0.65867E-01 0.67130E-01 0.69585E-01 0.63869E-01 + 0.48259E-01 0.39893E-01 0.65859E-01 0.13227E+00 0.25683E+00 0.53834E+00 + 0.10168E+01 0.19692E+01 0.35893E+01 0.61156E+01 0.10236E+02 0.17124E+02 + 0.28744E+02 0.47878E+02 0.77748E+02 0.10067E+03 0.13104E+03 0.17130E+03 + 0.12860E-01 0.16207E-01 0.20465E-01 0.27162E-01 0.36125E-01 0.48146E-01 + 0.63461E-01 0.84236E-01 0.11001E+00 0.12750E+00 0.13248E+00 0.13450E+00 + 0.13621E+00 0.13993E+00 0.13095E+00 0.10566E+00 0.79732E-01 0.87003E-01 + 0.14770E+00 0.27617E+00 0.58202E+00 0.10940E+01 0.21040E+01 0.37757E+01 + 0.63045E+01 0.10351E+02 0.17031E+02 0.28506E+02 0.47053E+02 0.79748E+02 + 0.12820E+03 0.16596E+03 0.21601E+03 0.28895E-01 0.36320E-01 0.45747E-01 + 0.60523E-01 0.80202E-01 0.10644E+00 0.13998E+00 0.18502E+00 0.24129E+00 + 0.32214E+00 0.43221E+00 0.48801E+00 0.49385E+00 0.50545E+00 0.47671E+00 + 0.40777E+00 0.31929E+00 0.25217E+00 0.27728E+00 0.40505E+00 0.77773E+00 + 0.14140E+01 0.26546E+01 0.45773E+01 0.72629E+01 0.11348E+02 0.17863E+02 + 0.28834E+02 0.46579E+02 0.78126E+02 0.12896E+03 0.21474E+03 0.34492E+03 + 0.48472E-01 0.60820E-01 0.76479E-01 0.10100E+00 0.13359E+00 0.17693E+00 + 0.23257E+00 0.30695E+00 0.40055E+00 0.53283E+00 0.71142E+00 0.93310E+00 + 0.11200E+01 0.11364E+01 0.10945E+01 0.96714E+00 0.79735E+00 0.61860E+00 + 0.55879E+00 0.62806E+00 0.98020E+00 0.16798E+01 0.30969E+01 0.52287E+01 + 0.80243E+01 0.12096E+02 0.18405E+02 0.28858E+02 0.45403E+02 0.74693E+02 + 0.12237E+03 0.20205E+03 0.33550E+03 0.79541E-01 0.99578E-01 0.12498E+00 + 0.16471E+00 0.21745E+00 0.28748E+00 0.37763E+00 0.49778E+00 0.64969E+00 + 0.86188E+00 0.11465E+01 0.15014E+01 0.19738E+01 0.25160E+01 0.24220E+01 + 0.22029E+01 0.18890E+01 0.15098E+01 0.12872E+01 0.12238E+01 0.14611E+01 + 0.21966E+01 0.38295E+01 0.62710E+01 0.92717E+01 0.13423E+02 0.19633E+02 + 0.29721E+02 0.45263E+02 0.72615E+02 0.11630E+03 0.18984E+03 0.31361E+03 + 0.12604E+00 0.15734E+00 0.19699E+00 0.25899E+00 0.34120E+00 0.45023E+00 + 0.59079E+00 0.77775E+00 0.10147E+01 0.13432E+01 0.17818E+01 0.23294E+01 + 0.30542E+01 0.40199E+01 0.50702E+01 0.47346E+01 0.41592E+01 0.34337E+01 + 0.29049E+01 0.25832E+01 0.25624E+01 0.33040E+01 0.52409E+01 0.81911E+01 + 0.11605E+02 0.16069E+02 0.22483E+02 0.32661E+02 0.47861E+02 0.74361E+02 + 0.11574E+03 0.18451E+03 0.30008E+03 0.19502E+00 0.24254E+00 0.30271E+00 + 0.39673E+00 0.52133E+00 0.68644E+00 0.89950E+00 0.11824E+01 0.15416E+01 + 0.20368E+01 0.26956E+01 0.35189E+01 0.46035E+01 0.60394E+01 0.76138E+01 + 0.91488E+01 0.87505E+01 0.73539E+01 0.63045E+01 0.54606E+01 0.48858E+01 + 0.55467E+01 0.79125E+01 0.11687E+02 0.15828E+02 0.20928E+02 0.27939E+02 + 0.38772E+02 0.54395E+02 0.81295E+02 0.12222E+03 0.18915E+03 0.30012E+03 + 0.29158E+00 0.36080E+00 0.44843E+00 0.58532E+00 0.76664E+00 0.10068E+01 + 0.13166E+01 0.17275E+01 0.22493E+01 0.29664E+01 0.39179E+01 0.51058E+01 + 0.66642E+01 0.87167E+01 0.10965E+02 0.13163E+02 0.15239E+02 0.14687E+02 + 0.12548E+02 0.10875E+02 0.93003E+01 0.98621E+01 0.13100E+02 0.18437E+02 + 0.23945E+02 0.30297E+02 0.38610E+02 0.51099E+02 0.68417E+02 0.97832E+02 + 0.14125E+03 0.21092E+03 0.32454E+03 0.44719E+00 0.54970E+00 0.67941E+00 + 0.88206E+00 0.11503E+01 0.15054E+01 0.19640E+01 0.25716E+01 0.33441E+01 + 0.44026E+01 0.58048E+01 0.75564E+01 0.98494E+01 0.12860E+02 0.16176E+02 + 0.19469E+02 0.22652E+02 0.25156E+02 0.26199E+02 0.22496E+02 0.18761E+02 + 0.18516E+02 0.22479E+02 0.29932E+02 0.37359E+02 0.45401E+02 0.55398E+02 + 0.69996E+02 0.89384E+02 0.12191E+03 0.16828E+03 0.24110E+03 0.35757E+03 + 0.66968E+00 0.81610E+00 0.10014E+01 0.12908E+01 0.16738E+01 0.21808E+01 + 0.28350E+01 0.37017E+01 0.48031E+01 0.63103E+01 0.83046E+01 0.10793E+02 + 0.14044E+02 0.18299E+02 0.22979E+02 0.27622E+02 0.32104E+02 0.35631E+02 + 0.39901E+02 0.43803E+02 0.35791E+02 0.34606E+02 0.40601E+02 0.52291E+02 + 0.63317E+02 0.74408E+02 0.87410E+02 0.10587E+03 0.12919E+03 0.16804E+03 + 0.22125E+03 0.30290E+03 0.43064E+03 0.10353E+01 0.12479E+01 0.15170E+01 + 0.19372E+01 0.24933E+01 0.32289E+01 0.41787E+01 0.54366E+01 0.70359E+01 + 0.92218E+01 0.12111E+02 0.15718E+02 0.20427E+02 0.26581E+02 0.33373E+02 + 0.40169E+02 0.46823E+02 0.52234E+02 0.58699E+02 0.65521E+02 0.69071E+02 + 0.66701E+02 0.74313E+02 0.92787E+02 0.10921E+03 0.12470E+03 0.14181E+03 + 0.16545E+03 0.19376E+03 0.24083E+03 0.30255E+03 0.39502E+03 0.53636E+03 + 0.16038E+01 0.19073E+01 0.22915E+01 0.28913E+01 0.36850E+01 0.47348E+01 + 0.60897E+01 0.78840E+01 0.10165E+02 0.13281E+02 0.17398E+02 0.22536E+02 + 0.29236E+02 0.37982E+02 0.47641E+02 0.57327E+02 0.66844E+02 0.74657E+02 + 0.83919E+02 0.93509E+02 0.97781E+02 0.11644E+03 0.13829E+03 0.16865E+03 + 0.19693E+03 0.21992E+03 0.24366E+03 0.27561E+03 0.31149E+03 0.37172E+03 + 0.44684E+03 0.55685E+03 0.72104E+03 0.25413E+01 0.29747E+01 0.35230E+01 + 0.43791E+01 0.55120E+01 0.70100E+01 0.89429E+01 0.11502E+02 0.14755E+02 + 0.19200E+02 0.25068E+02 0.32392E+02 0.41939E+02 0.54390E+02 0.68156E+02 + 0.82003E+02 0.95676E+02 0.10704E+03 0.12044E+03 0.13415E+03 0.13950E+03 + 0.16340E+03 0.22407E+03 0.31153E+03 0.35721E+03 0.39773E+03 0.43205E+03 + 0.47661E+03 0.52305E+03 0.60273E+03 0.69660E+03 0.83123E+03 0.10277E+04 + 0.41322E+01 0.47505E+01 0.55331E+01 0.67547E+01 0.83712E+01 0.10509E+02 + 0.13264E+02 0.16914E+02 0.21554E+02 0.27893E+02 0.36262E+02 0.46705E+02 + 0.60314E+02 0.78057E+02 0.97700E+02 0.11754E+03 0.13723E+03 0.15382E+03 + 0.17334E+03 0.19317E+03 0.20012E+03 0.23123E+03 0.30914E+03 0.47196E+03 + 0.66004E+03 0.72198E+03 0.78188E+03 0.84935E+03 0.91050E+03 0.10193E+04 + 0.11394E+04 0.13084E+04 0.15502E+04 0.69088E+01 0.77910E+01 0.89075E+01 + 0.10650E+02 0.12956E+02 0.16006E+02 0.19932E+02 0.25137E+02 0.31748E+02 + 0.40790E+02 0.52725E+02 0.67614E+02 0.87022E+02 0.11232E+03 0.14036E+03 + 0.16879E+03 0.19719E+03 0.22144E+03 0.25000E+03 0.27889E+03 0.28827E+03 + 0.32930E+03 0.43025E+03 0.64453E+03 0.94246E+03 0.13351E+04 0.14253E+04 + 0.15382E+04 0.16315E+04 0.17847E+04 0.19413E+04 0.21585E+04 0.24637E+04 + 0.18496E-09 0.45782E-09 0.92686E-09 0.25247E-08 0.34858E-08 0.82290E-08 + 0.42401E-07 0.83023E-07 0.23768E-06 0.37746E-06 0.70747E-06 0.46863E-06 + 0.35164E-04 0.16957E-03 0.60251E-03 0.13438E-03 0.29151E-02 0.41350E-04 + 0.92337E-02 0.14625E-01 0.32815E-01 0.54992E-01 0.90124E-01 0.14257E+00 + 0.22013E+00 0.32814E+00 0.50133E+00 0.74702E+00 0.11476E+01 0.17641E+01 + 0.27702E+01 0.44588E+01 0.73748E+01 0.45782E-09 0.37749E-09 0.84700E-09 + 0.21495E-08 0.50130E-08 0.78364E-08 0.69255E-07 0.11462E-06 0.29680E-06 + 0.45475E-06 0.94650E-06 0.86674E-06 0.58240E-04 0.21657E-03 0.76710E-03 + 0.16916E-03 0.36931E-02 0.48447E-04 0.11659E-01 0.18443E-01 0.41274E-01 + 0.69052E-01 0.11293E+00 0.17819E+00 0.27417E+00 0.40689E+00 0.61789E+00 + 0.91356E+00 0.13895E+01 0.21094E+01 0.32631E+01 0.51621E+01 0.83780E+01 + 0.92686E-09 0.84700E-09 0.73238E-09 0.20505E-08 0.44994E-08 0.11891E-07 + 0.80912E-07 0.16129E-06 0.39062E-06 0.66744E-06 0.16182E-05 0.13758E-05 + 0.10819E-03 0.28701E-03 0.97989E-03 0.21348E-03 0.46880E-02 0.56497E-04 + 0.14742E-01 0.23283E-01 0.51972E-01 0.86810E-01 0.14172E+00 0.22312E+00 + 0.34235E+00 0.50613E+00 0.76484E+00 0.11234E+01 0.16942E+01 0.25444E+01 + 0.38841E+01 0.60482E+01 0.96425E+01 0.25247E-08 0.21495E-08 0.20505E-08 + 0.15854E-08 0.38088E-08 0.98117E-08 0.11358E-06 0.25587E-06 0.56959E-06 + 0.11997E-05 0.28911E-05 0.29154E-05 0.17434E-03 0.42264E-03 0.12554E-02 + 0.26763E-03 0.59611E-02 0.59451E-04 0.18659E-01 0.29420E-01 0.65489E-01 + 0.10923E+00 0.17804E+00 0.27977E+00 0.42824E+00 0.63119E+00 0.94990E+00 + 0.13877E+01 0.20779E+01 0.30921E+01 0.46658E+01 0.71636E+01 0.11234E+02 + 0.34858E-08 0.50130E-08 0.44994E-08 0.38088E-08 0.31878E-08 0.89924E-08 + 0.14150E-06 0.33838E-06 0.10235E-05 0.21444E-05 0.66017E-05 0.53134E-05 + 0.24866E-03 0.60241E-03 0.15122E-02 0.33664E-03 0.76024E-02 0.61019E-04 + 0.23659E-01 0.37227E-01 0.82618E-01 0.13759E+00 0.22392E+00 0.35128E+00 + 0.53660E+00 0.78886E+00 0.11832E+01 0.17207E+01 0.25615E+01 0.37821E+01 + 0.56506E+01 0.85690E+01 0.13238E+02 0.82290E-08 0.78364E-08 0.11891E-07 + 0.98117E-08 0.89924E-08 0.69245E-08 0.15917E-06 0.49122E-06 0.15388E-05 + 0.38934E-05 0.11610E-04 0.79476E-05 0.32683E-03 0.81590E-03 0.18424E-02 + 0.37709E-03 0.97198E-02 0.54124E-04 0.30043E-01 0.47161E-01 0.10430E+00 + 0.17342E+00 0.28184E+00 0.44145E+00 0.67316E+00 0.98743E+00 0.14769E+01 + 0.21400E+01 0.31700E+01 0.46504E+01 0.68897E+01 0.10337E+02 0.15760E+02 + 0.42401E-07 0.69255E-07 0.80912E-07 0.11358E-06 0.14150E-06 0.15917E-06 + 0.52534E-07 0.23640E-06 0.16199E-05 0.66986E-05 0.22234E-04 0.10963E-04 + 0.37518E-03 0.93193E-03 0.22015E-02 0.22647E-03 0.11112E-01 0.56844E-03 + 0.38152E-01 0.59901E-01 0.13240E+00 0.22020E+00 0.35779E+00 0.56011E+00 + 0.85321E+00 0.12494E+01 0.18648E+01 0.26935E+01 0.39737E+01 0.57971E+01 + 0.85248E+01 0.12668E+02 0.19080E+02 0.83023E-07 0.11462E-06 0.16129E-06 + 0.25587E-06 0.33838E-06 0.49122E-06 0.23640E-06 0.13990E-06 0.13155E-05 + 0.84068E-05 0.42153E-04 0.32469E-04 0.44568E-03 0.11002E-02 0.25081E-02 + 0.17212E-03 0.11938E-01 0.11778E-02 0.51101E-01 0.80019E-01 0.17613E+00 + 0.29253E+00 0.47473E+00 0.74217E+00 0.11289E+01 0.16499E+01 0.24572E+01 + 0.35385E+01 0.52003E+01 0.75465E+01 0.11021E+02 0.16228E+02 0.24156E+02 + 0.23768E-06 0.29680E-06 0.39062E-06 0.56959E-06 0.10235E-05 0.15388E-05 + 0.16199E-05 0.13155E-05 0.46916E-06 0.46835E-05 0.37107E-04 0.10781E-03 + 0.44244E-03 0.11412E-02 0.26387E-02 0.38866E-03 0.12617E-01 0.26370E-02 + 0.59475E-01 0.10517E+00 0.23123E+00 0.38425E+00 0.62377E+00 0.97478E+00 + 0.14816E+01 0.21625E+01 0.32162E+01 0.46209E+01 0.67721E+01 0.97887E+01 + 0.14219E+02 0.20788E+02 0.30654E+02 0.37746E-06 0.45475E-06 0.66744E-06 + 0.11997E-05 0.21444E-05 0.38934E-05 0.66986E-05 0.84068E-05 0.46835E-05 + 0.28900E-05 0.34062E-04 0.16091E-03 0.49229E-03 0.12682E-02 0.28688E-02 + 0.61650E-03 0.13369E-01 0.34332E-02 0.61362E-01 0.12584E+00 0.30972E+00 + 0.51315E+00 0.83104E+00 0.12962E+01 0.19667E+01 0.28654E+01 0.42544E+01 + 0.60997E+01 0.89172E+01 0.12847E+02 0.18581E+02 0.27010E+02 0.39532E+02 + 0.70747E-06 0.94650E-06 0.16182E-05 0.28911E-05 0.66017E-05 0.11610E-04 + 0.22234E-04 0.42153E-04 0.37107E-04 0.34062E-04 0.43496E-04 0.25591E-03 + 0.50443E-03 0.13868E-02 0.30807E-02 0.10608E-02 0.14050E-01 0.46888E-02 + 0.63502E-01 0.12902E+00 0.41416E+00 0.68401E+00 0.11051E+01 0.17201E+01 + 0.26051E+01 0.37886E+01 0.56167E+01 0.80382E+01 0.11728E+02 0.16854E+02 + 0.24294E+02 0.35158E+02 0.51149E+02 0.46863E-06 0.86674E-06 0.13758E-05 + 0.29154E-05 0.53134E-05 0.79476E-05 0.10963E-04 0.32469E-04 0.10781E-03 + 0.16091E-03 0.25591E-03 0.30968E-04 0.11508E-02 0.24752E-02 0.49325E-02 + 0.62323E-03 0.18686E-01 0.46444E-03 0.75148E-01 0.15004E+00 0.53077E+00 + 0.98464E+00 0.15688E+01 0.24188E+01 0.36390E+01 0.52706E+01 0.77810E+01 + 0.11106E+02 0.16152E+02 0.23143E+02 0.33247E+02 0.47913E+02 0.69335E+02 + 0.35164E-04 0.58240E-04 0.10819E-03 0.17434E-03 0.24866E-03 0.32683E-03 + 0.37518E-03 0.44568E-03 0.44244E-03 0.49229E-03 0.50443E-03 0.11508E-02 + 0.12982E-02 0.11370E-02 0.28317E-02 0.39969E-02 0.14046E-01 0.11816E-01 + 0.62986E-01 0.12941E+00 0.47529E+00 0.10855E+01 0.19035E+01 0.29544E+01 + 0.44621E+01 0.64654E+01 0.95674E+01 0.13647E+02 0.19864E+02 0.28442E+02 + 0.40816E+02 0.58721E+02 0.84758E+02 0.16957E-03 0.21657E-03 0.28701E-03 + 0.42264E-03 0.60241E-03 0.81590E-03 0.93193E-03 0.11002E-02 0.11412E-02 + 0.12682E-02 0.13868E-02 0.24752E-02 0.11370E-02 0.50487E-02 0.24172E-02 + 0.73001E-02 0.12863E-01 0.18914E-01 0.60824E-01 0.12581E+00 0.46772E+00 + 0.10669E+01 0.23860E+01 0.38233E+01 0.57673E+01 0.83387E+01 0.12331E+02 + 0.17561E+02 0.25544E+02 0.36525E+02 0.52338E+02 0.75160E+02 0.10822E+03 + 0.60251E-03 0.76710E-03 0.97989E-03 0.12554E-02 0.15122E-02 0.18424E-02 + 0.22015E-02 0.25081E-02 0.26387E-02 0.28688E-02 0.30807E-02 0.49325E-02 + 0.28317E-02 0.24172E-02 0.11525E-01 0.12257E-01 0.11855E-01 0.28525E-01 + 0.59155E-01 0.12346E+00 0.45724E+00 0.10589E+01 0.23561E+01 0.49653E+01 + 0.74721E+01 0.10770E+02 0.15909E+02 0.22609E+02 0.32858E+02 0.46923E+02 + 0.67148E+02 0.96285E+02 0.13837E+03 0.13438E-03 0.16916E-03 0.21348E-03 + 0.26763E-03 0.33664E-03 0.37709E-03 0.22647E-03 0.17212E-03 0.38866E-03 + 0.61650E-03 0.10608E-02 0.62323E-03 0.39969E-02 0.73001E-02 0.12257E-01 + 0.25007E-02 0.35534E-01 0.36271E-02 0.11413E+00 0.20863E+00 0.66415E+00 + 0.14303E+01 0.30553E+01 0.63100E+01 0.12004E+02 0.17079E+02 0.24882E+02 + 0.35138E+02 0.50657E+02 0.71997E+02 0.10257E+03 0.14646E+03 0.20954E+03 + 0.29151E-02 0.36931E-02 0.46880E-02 0.59611E-02 0.76024E-02 0.97198E-02 + 0.11112E-01 0.11938E-01 0.12617E-01 0.13369E-01 0.14050E-01 0.18686E-01 + 0.14046E-01 0.12863E-01 0.11855E-01 0.35534E-01 0.56510E-01 0.67636E-01 + 0.53648E-01 0.11487E+00 0.42873E+00 0.10031E+01 0.22693E+01 0.48649E+01 + 0.10059E+02 0.17675E+02 0.26019E+02 0.36761E+02 0.53322E+02 0.75925E+02 + 0.10840E+03 0.15511E+03 0.22238E+03 0.41350E-04 0.48447E-04 0.56497E-04 + 0.59451E-04 0.61019E-04 0.54124E-04 0.56844E-03 0.11778E-02 0.26370E-02 + 0.34332E-02 0.46888E-02 0.46444E-03 0.11816E-01 0.18914E-01 0.28525E-01 + 0.36271E-02 0.67636E-01 0.12182E-02 0.18086E+00 0.30526E+00 0.85667E+00 + 0.17378E+01 0.35594E+01 0.72089E+01 0.14338E+02 0.27696E+02 0.46472E+02 + 0.64930E+02 0.92837E+02 0.13113E+03 0.18589E+03 0.26424E+03 0.37648E+03 + 0.92337E-02 0.11659E-01 0.14742E-01 0.18659E-01 0.23659E-01 0.30043E-01 + 0.38152E-01 0.51101E-01 0.59475E-01 0.61362E-01 0.63502E-01 0.75148E-01 + 0.62986E-01 0.60824E-01 0.59155E-01 0.11413E+00 0.53648E-01 0.18086E+00 + 0.66792E-01 0.11116E+00 0.37841E+00 0.90080E+00 0.20596E+01 0.44362E+01 + 0.92397E+01 0.18046E+02 0.36641E+02 0.56967E+02 0.82448E+02 0.11695E+03 + 0.16659E+03 0.23805E+03 0.34096E+03 0.14625E-01 0.18443E-01 0.23283E-01 + 0.29420E-01 0.37227E-01 0.47161E-01 0.59901E-01 0.80019E-01 0.10517E+00 + 0.12584E+00 0.12902E+00 0.15004E+00 0.12941E+00 0.12581E+00 0.12346E+00 + 0.20863E+00 0.11487E+00 0.30526E+00 0.11116E+00 0.14118E+00 0.37414E+00 + 0.85727E+00 0.19512E+01 0.41859E+01 0.86667E+01 0.16979E+02 0.34298E+02 + 0.66114E+02 0.10079E+03 0.14256E+03 0.20276E+03 0.28953E+03 0.41460E+03 + 0.32815E-01 0.41274E-01 0.51972E-01 0.65489E-01 0.82618E-01 0.10430E+00 + 0.13240E+00 0.17613E+00 0.23123E+00 0.30972E+00 0.41416E+00 0.53077E+00 + 0.47529E+00 0.46772E+00 0.45724E+00 0.66415E+00 0.42873E+00 0.85667E+00 + 0.37841E+00 0.37414E+00 0.55325E+00 0.97477E+00 0.19932E+01 0.40661E+01 + 0.81275E+01 0.15381E+02 0.30962E+02 0.58900E+02 0.11643E+03 0.21243E+03 + 0.30019E+03 0.42703E+03 0.61032E+03 0.54992E-01 0.69052E-01 0.86810E-01 + 0.10923E+00 0.13759E+00 0.17342E+00 0.22020E+00 0.29253E+00 0.38425E+00 + 0.51315E+00 0.68401E+00 0.98464E+00 0.10855E+01 0.10669E+01 0.10589E+01 + 0.14303E+01 0.10031E+01 0.17378E+01 0.90080E+00 0.85727E+00 0.97477E+00 + 0.12971E+01 0.21926E+01 0.40823E+01 0.77607E+01 0.14177E+02 0.27878E+02 + 0.52177E+02 0.10313E+03 0.19751E+03 0.36131E+03 0.51187E+03 0.73002E+03 + 0.90124E-01 0.11293E+00 0.14172E+00 0.17804E+00 0.22392E+00 0.28184E+00 + 0.35779E+00 0.47473E+00 0.62377E+00 0.83104E+00 0.11051E+01 0.15688E+01 + 0.19035E+01 0.23860E+01 0.23561E+01 0.30553E+01 0.22693E+01 0.35594E+01 + 0.20596E+01 0.19512E+01 0.19932E+01 0.21926E+01 0.29652E+01 0.47369E+01 + 0.81910E+01 0.14128E+02 0.26482E+02 0.48006E+02 0.92963E+02 0.17694E+03 + 0.33886E+03 0.61995E+03 0.87873E+03 0.14257E+00 0.17819E+00 0.22312E+00 + 0.27977E+00 0.35128E+00 0.44145E+00 0.56011E+00 0.74217E+00 0.97478E+00 + 0.12962E+01 0.17201E+01 0.24188E+01 0.29544E+01 0.38233E+01 0.49653E+01 + 0.63100E+01 0.48649E+01 0.72089E+01 0.44362E+01 0.41859E+01 0.40661E+01 + 0.40823E+01 0.47369E+01 0.65195E+01 0.10050E+02 0.16099E+02 0.28131E+02 + 0.48803E+02 0.90773E+02 0.16886E+03 0.32033E+03 0.61165E+03 0.11163E+04 + 0.22013E+00 0.27417E+00 0.34235E+00 0.42824E+00 0.53660E+00 0.67316E+00 + 0.85321E+00 0.11289E+01 0.14816E+01 0.19667E+01 0.26051E+01 0.36390E+01 + 0.44621E+01 0.57673E+01 0.74721E+01 0.12004E+02 0.10059E+02 0.14338E+02 + 0.92397E+01 0.86667E+01 0.81275E+01 0.77607E+01 0.81910E+01 0.10050E+02 + 0.13922E+02 0.20625E+02 0.33271E+02 0.54739E+02 0.96702E+02 0.17350E+03 + 0.32121E+03 0.60664E+03 0.11538E+04 0.32814E+00 0.40689E+00 0.50613E+00 + 0.63119E+00 0.78886E+00 0.98743E+00 0.12494E+01 0.16499E+01 0.21625E+01 + 0.28654E+01 0.37886E+01 0.52706E+01 0.64654E+01 0.83387E+01 0.10770E+02 + 0.17079E+02 0.17675E+02 0.27696E+02 0.18046E+02 0.16979E+02 0.15381E+02 + 0.14177E+02 0.14128E+02 0.16099E+02 0.20625E+02 0.28525E+02 0.42846E+02 + 0.66647E+02 0.11162E+03 0.19214E+03 0.34394E+03 0.63529E+03 0.11973E+04 + 0.50133E+00 0.61789E+00 0.76484E+00 0.94990E+00 0.11832E+01 0.14769E+01 + 0.18648E+01 0.24572E+01 0.32162E+01 0.42544E+01 0.56167E+01 0.77810E+01 + 0.95674E+01 0.12331E+02 0.15909E+02 0.24882E+02 0.26019E+02 0.46472E+02 + 0.36641E+02 0.34298E+02 0.30962E+02 0.27878E+02 0.26482E+02 0.28131E+02 + 0.33271E+02 0.42846E+02 0.59388E+02 0.86724E+02 0.13610E+03 0.22259E+03 + 0.38150E+03 0.67993E+03 0.12508E+04 0.74702E+00 0.91356E+00 0.11234E+01 + 0.13877E+01 0.17207E+01 0.21400E+01 0.26935E+01 0.35385E+01 0.46209E+01 + 0.60997E+01 0.80382E+01 0.11106E+02 0.13647E+02 0.17561E+02 0.22609E+02 + 0.35138E+02 0.36761E+02 0.64930E+02 0.56967E+02 0.66114E+02 0.58900E+02 + 0.52177E+02 0.48006E+02 0.48803E+02 0.54739E+02 0.66647E+02 0.86724E+02 + 0.11927E+03 0.17618E+03 0.27311E+03 0.44656E+03 0.76501E+03 0.13628E+04 + 0.11476E+01 0.13895E+01 0.16942E+01 0.20779E+01 0.25615E+01 0.31700E+01 + 0.39737E+01 0.52003E+01 0.67721E+01 0.89172E+01 0.11728E+02 0.16152E+02 + 0.19864E+02 0.25544E+02 0.32858E+02 0.50657E+02 0.53322E+02 0.92837E+02 + 0.82448E+02 0.10079E+03 0.11643E+03 0.10313E+03 0.92963E+02 0.90773E+02 + 0.96702E+02 0.11162E+03 0.13610E+03 0.17618E+03 0.24348E+03 0.35534E+03 + 0.54954E+03 0.89638E+03 0.15320E+04 0.17641E+01 0.21094E+01 0.25444E+01 + 0.30921E+01 0.37821E+01 0.46504E+01 0.57971E+01 0.75465E+01 0.97887E+01 + 0.12847E+02 0.16854E+02 0.23143E+02 0.28442E+02 0.36525E+02 0.46923E+02 + 0.71997E+02 0.75925E+02 0.13113E+03 0.11695E+03 0.14256E+03 0.21243E+03 + 0.19751E+03 0.17694E+03 0.16886E+03 0.17350E+03 0.19214E+03 0.22259E+03 + 0.27311E+03 0.35534E+03 0.48854E+03 0.71292E+03 0.11023E+04 0.17975E+04 + 0.27702E+01 0.32631E+01 0.38841E+01 0.46658E+01 0.56506E+01 0.68897E+01 + 0.85248E+01 0.11021E+02 0.14219E+02 0.18581E+02 0.24294E+02 0.33247E+02 + 0.40816E+02 0.52338E+02 0.67148E+02 0.10257E+03 0.10840E+03 0.18589E+03 + 0.16659E+03 0.20276E+03 0.30019E+03 0.36131E+03 0.33886E+03 0.32033E+03 + 0.32121E+03 0.34394E+03 0.38150E+03 0.44656E+03 0.54954E+03 0.71292E+03 + 0.98013E+03 0.14301E+04 0.22106E+04 0.44588E+01 0.51621E+01 0.60482E+01 + 0.71636E+01 0.85690E+01 0.10337E+02 0.12668E+02 0.16228E+02 0.20788E+02 + 0.27010E+02 0.35158E+02 0.47913E+02 0.58721E+02 0.75160E+02 0.96285E+02 + 0.14646E+03 0.15511E+03 0.26424E+03 0.23805E+03 0.28953E+03 0.42703E+03 + 0.51187E+03 0.61995E+03 0.61165E+03 0.60664E+03 0.63529E+03 0.67993E+03 + 0.76501E+03 0.89638E+03 0.11023E+04 0.14301E+04 0.19658E+04 0.28678E+04 + 0.73748E+01 0.83780E+01 0.96425E+01 0.11234E+02 0.13238E+02 0.15760E+02 + 0.19080E+02 0.24156E+02 0.30654E+02 0.39532E+02 0.51149E+02 0.69335E+02 + 0.84758E+02 0.10822E+03 0.13837E+03 0.20954E+03 0.22238E+03 0.37648E+03 + 0.34096E+03 0.41460E+03 0.61032E+03 0.73002E+03 0.87873E+03 0.11163E+04 + 0.11538E+04 0.11973E+04 0.12508E+04 0.13628E+04 0.15320E+04 0.17975E+04 + 0.22106E+04 0.28678E+04 0.39418E+04 0.17636E-09 0.46658E-09 0.72155E-09 + 0.11516E-08 0.21019E-08 0.38385E-08 0.20744E-07 0.41193E-07 0.20675E-07 + 0.16138E-06 0.29817E-06 0.20980E-04 0.12671E-03 0.29586E-04 0.54527E-03 + 0.89783E-03 0.14178E-02 0.20816E-02 0.28421E-02 0.39345E-02 0.53890E-02 + 0.74244E-02 0.98737E-02 0.13321E-01 0.17120E-01 0.23157E-01 0.29439E-01 + 0.38931E-01 0.49922E-01 0.66811E-01 0.86175E-01 0.11608E+00 0.15196E+00 + 0.29350E-10 0.25270E-09 0.98093E-09 0.14485E-08 0.26190E-08 0.52387E-08 + 0.26790E-07 0.56352E-07 0.39452E-07 0.26148E-06 0.38396E-06 0.27599E-04 + 0.16453E-03 0.37954E-04 0.70090E-03 0.11496E-02 0.18099E-02 0.26494E-02 + 0.36081E-02 0.49832E-02 0.68105E-02 0.93613E-02 0.12422E-01 0.16716E-01 + 0.21425E-01 0.28885E-01 0.36583E-01 0.48160E-01 0.61422E-01 0.81674E-01 + 0.10455E+00 0.13959E+00 0.18089E+00 0.82101E-09 0.42539E-09 0.49316E-09 + 0.15156E-08 0.31068E-08 0.58593E-08 0.33729E-07 0.83769E-07 0.61847E-07 + 0.43327E-06 0.79977E-06 0.36733E-04 0.21554E-03 0.48854E-04 0.90713E-03 + 0.14808E-02 0.23228E-02 0.33885E-02 0.46009E-02 0.63381E-02 0.86416E-02 + 0.11850E-01 0.15690E-01 0.21064E-01 0.26930E-01 0.36204E-01 0.45703E-01 + 0.59932E-01 0.76088E-01 0.10062E+00 0.12797E+00 0.16954E+00 0.21774E+00 + 0.27104E-08 0.25430E-08 0.12578E-08 0.24069E-09 0.25117E-08 0.63330E-08 + 0.62791E-07 0.12821E-06 0.12134E-06 0.61492E-06 0.15685E-05 0.53090E-04 + 0.28375E-03 0.62717E-04 0.11774E-02 0.19111E-02 0.29852E-02 0.43372E-02 + 0.58687E-02 0.80601E-02 0.10961E-01 0.14993E-01 0.19808E-01 0.26532E-01 + 0.33844E-01 0.45383E-01 0.57131E-01 0.74668E-01 0.94438E-01 0.12431E+00 + 0.15723E+00 0.20697E+00 0.26377E+00 0.70475E-08 0.73465E-08 0.65758E-08 + 0.53227E-08 0.17648E-08 0.45200E-08 0.12576E-06 0.34252E-06 0.17533E-06 + 0.73762E-06 0.24333E-05 0.79765E-04 0.37764E-03 0.80472E-04 0.15411E-02 + 0.24846E-02 0.38609E-02 0.55824E-02 0.75224E-02 0.10296E-01 0.13960E-01 + 0.19041E-01 0.25096E-01 0.33536E-01 0.42683E-01 0.57099E-01 0.71700E-01 + 0.93439E-01 0.11779E+00 0.15444E+00 0.19444E+00 0.25452E+00 0.32224E+00 + 0.16901E-07 0.18492E-07 0.19036E-07 0.22910E-07 0.21101E-07 0.13387E-07 + 0.17710E-06 0.70656E-06 0.43083E-07 0.53746E-06 0.27818E-05 0.11825E-03 + 0.46995E-03 0.10230E-03 0.20354E-02 0.32554E-02 0.50277E-02 0.72275E-02 + 0.96912E-02 0.13210E-01 0.17849E-01 0.24266E-01 0.31899E-01 0.42517E-01 + 0.53994E-01 0.72061E-01 0.90279E-01 0.11735E+00 0.14750E+00 0.19275E+00 + 0.24171E+00 0.31491E+00 0.39645E+00 0.40086E-07 0.43292E-07 0.44731E-07 + 0.56088E-07 0.83638E-07 0.83869E-07 0.36695E-06 0.15339E-05 0.89848E-06 + 0.88317E-06 0.19143E-05 0.15855E-03 0.56737E-03 0.11484E-03 0.27122E-02 + 0.42979E-02 0.65902E-02 0.94092E-02 0.12542E-01 0.17013E-01 0.22893E-01 + 0.31003E-01 0.40636E-01 0.54010E-01 0.68427E-01 0.91105E-01 0.11388E+00 + 0.14767E+00 0.18514E+00 0.24122E+00 0.30149E+00 0.39119E+00 0.49017E+00 + 0.95261E-07 0.10917E-06 0.11215E-06 0.11379E-06 0.17876E-06 0.29918E-06 + 0.29908E-06 0.26016E-05 0.36772E-05 0.55751E-05 0.28282E-05 0.20395E-03 + 0.70195E-03 0.11320E-03 0.32798E-02 0.57284E-02 0.87119E-02 0.12340E-01 + 0.16333E-01 0.22027E-01 0.29498E-01 0.39767E-01 0.51943E-01 0.68809E-01 + 0.86949E-01 0.11547E+00 0.14402E+00 0.18629E+00 0.23303E+00 0.30281E+00 + 0.37736E+00 0.48797E+00 0.60897E+00 0.24050E-06 0.30045E-06 0.33410E-06 + 0.31832E-06 0.29079E-06 0.60824E-06 0.64647E-06 0.25124E-05 0.10710E-04 + 0.16280E-04 0.16388E-04 0.24947E-03 0.83725E-03 0.97967E-04 0.36537E-02 + 0.69162E-02 0.11603E-01 0.16285E-01 0.21379E-01 0.28638E-01 0.38131E-01 + 0.51132E-01 0.66518E-01 0.87788E-01 0.11060E+00 0.14647E+00 0.18224E+00 + 0.23516E+00 0.29350E+00 0.38045E+00 0.47291E+00 0.60967E+00 0.75827E+00 + 0.51862E-06 0.77237E-06 0.10098E-05 0.11616E-05 0.91909E-06 0.77253E-06 + 0.27235E-05 0.33009E-05 0.27559E-04 0.39577E-04 0.45835E-04 0.29257E-03 + 0.98344E-03 0.47011E-04 0.41409E-02 0.75679E-02 0.14035E-01 0.21674E-01 + 0.28183E-01 0.37455E-01 0.49541E-01 0.66007E-01 0.85467E-01 0.11229E+00 + 0.14098E+00 0.18612E+00 0.23095E+00 0.29725E+00 0.37015E+00 0.47867E+00 + 0.59358E+00 0.76317E+00 0.94641E+00 0.13060E-05 0.23343E-05 0.44436E-05 + 0.60150E-05 0.67725E-05 0.57796E-05 0.37761E-05 0.16859E-04 0.60756E-04 + 0.88836E-04 0.10743E-03 0.31885E-03 0.10962E-02 0.11057E-03 0.46341E-02 + 0.83622E-02 0.15108E-01 0.26258E-01 0.37234E-01 0.49055E-01 0.64398E-01 + 0.85176E-01 0.10970E+00 0.14337E+00 0.17928E+00 0.23585E+00 0.29178E+00 + 0.37448E+00 0.46524E+00 0.60023E+00 0.74265E+00 0.95242E+00 0.11781E+01 + 0.44185E-05 0.84357E-05 0.16625E-04 0.33212E-04 0.45754E-04 0.51208E-04 + 0.40964E-04 0.43995E-04 0.12486E-03 0.18767E-03 0.23653E-03 0.30853E-03 + 0.11669E-02 0.46903E-03 0.51176E-02 0.91795E-02 0.16377E-01 0.28106E-01 + 0.45195E-01 0.64686E-01 0.84214E-01 0.11044E+00 0.14136E+00 0.18361E+00 + 0.22851E+00 0.29938E+00 0.36910E+00 0.47213E+00 0.58509E+00 0.75294E+00 + 0.92948E+00 0.11891E+01 0.14672E+01 0.40080E-04 0.64756E-04 0.87688E-04 + 0.11721E-03 0.15925E-03 0.19359E-03 0.19138E-03 0.18313E-03 0.34295E-03 + 0.40202E-03 0.51303E-03 0.16481E-03 0.10860E-02 0.12161E-02 0.55009E-02 + 0.98458E-02 0.17532E-01 0.30034E-01 0.47647E-01 0.77890E-01 0.10987E+00 + 0.14278E+00 0.18151E+00 0.23414E+00 0.28982E+00 0.37794E+00 0.46411E+00 + 0.59141E+00 0.73083E+00 0.93794E+00 0.11551E+01 0.14741E+01 0.18147E+01 + 0.18320E-03 0.25842E-03 0.34304E-03 0.41872E-03 0.48552E-03 0.55721E-03 + 0.58182E-03 0.59365E-03 0.75869E-03 0.16059E-02 0.11251E-02 0.29712E-03 + 0.69712E-03 0.26469E-02 0.55929E-02 0.10284E-01 0.18366E-01 0.31649E-01 + 0.49996E-01 0.80893E-01 0.13099E+00 0.18466E+00 0.23306E+00 0.29827E+00 + 0.36684E+00 0.47594E+00 0.58158E+00 0.73779E+00 0.90880E+00 0.11628E+01 + 0.14283E+01 0.18176E+01 0.22324E+01 0.52841E-03 0.67929E-03 0.85805E-03 + 0.10269E-02 0.11785E-02 0.13065E-02 0.13855E-02 0.14705E-02 0.17552E-02 + 0.20383E-02 0.64828E-02 0.13724E-02 0.41697E-03 0.51371E-02 0.50846E-02 + 0.10133E-01 0.18742E-01 0.32662E-01 0.51614E-01 0.83580E-01 0.13415E+00 + 0.21613E+00 0.29763E+00 0.37759E+00 0.46103E+00 0.59469E+00 0.72251E+00 + 0.91170E+00 0.11187E+01 0.14264E+01 0.17471E+01 0.22164E+01 0.27156E+01 + 0.13662E-02 0.18426E-02 0.21934E-02 0.25767E-02 0.28862E-02 0.31554E-02 + 0.33284E-02 0.35985E-02 0.41728E-02 0.45916E-02 0.52521E-02 0.11418E-01 + 0.33468E-02 0.10146E-01 0.30185E-02 0.84467E-02 0.17737E-01 0.32372E-01 + 0.51409E-01 0.84078E-01 0.13573E+00 0.21615E+00 0.33995E+00 0.48292E+00 + 0.58444E+00 0.74890E+00 0.90310E+00 0.11317E+01 0.13820E+01 0.17543E+01 + 0.21406E+01 0.27052E+01 0.33045E+01 0.36742E-02 0.43393E-02 0.52007E-02 + 0.59306E-02 0.66359E-02 0.71487E-02 0.74140E-02 0.76750E-02 0.89635E-02 + 0.96869E-02 0.10582E-01 0.86421E-02 0.86947E-02 0.18307E-01 0.11735E-02 + 0.50367E-02 0.15433E-01 0.31274E-01 0.50713E-01 0.84144E-01 0.13695E+00 + 0.21847E+00 0.34040E+00 0.53435E+00 0.74410E+00 0.94599E+00 0.11304E+01 + 0.14045E+01 0.17050E+01 0.21521E+01 0.26141E+01 0.32879E+01 0.40024E+01 + 0.86422E-02 0.10313E-01 0.11346E-01 0.12686E-01 0.13993E-01 0.14991E-01 + 0.15608E-01 0.16263E-01 0.17866E-01 0.19327E-01 0.20734E-01 0.17753E-01 + 0.18617E-01 0.33674E-01 0.96161E-02 0.19936E-02 0.10571E-01 0.28573E-01 + 0.49049E-01 0.84315E-01 0.13904E+00 0.22135E+00 0.34705E+00 0.53641E+00 + 0.80143E+00 0.12197E+01 0.14407E+01 0.17703E+01 0.21324E+01 0.26720E+01 + 0.32260E+01 0.40326E+01 0.48872E+01 0.18005E-01 0.22862E-01 0.27917E-01 + 0.29460E-01 0.31446E-01 0.33677E-01 0.34696E-01 0.35908E-01 0.38634E-01 + 0.41024E-01 0.43360E-01 0.38866E-01 0.40436E-01 0.63837E-01 0.49994E-01 + 0.24443E-01 0.10094E-01 0.10663E-01 0.30412E-01 0.65278E-01 0.11857E+00 + 0.19519E+00 0.31225E+00 0.48921E+00 0.72517E+00 0.11509E+01 0.16791E+01 + 0.20419E+01 0.24424E+01 0.30402E+01 0.36478E+01 0.45281E+01 0.54611E+01 + 0.31988E-01 0.40528E-01 0.51425E-01 0.65385E-01 0.68435E-01 0.71144E-01 + 0.73906E-01 0.75630E-01 0.80201E-01 0.84061E-01 0.87771E-01 0.80068E-01 + 0.82601E-01 0.11712E+00 0.71034E-01 0.18726E+00 0.47031E-01 0.23164E-01 + 0.00000E+00 0.37083E-01 0.92197E-01 0.16648E+00 0.27936E+00 0.44249E+00 + 0.66149E+00 0.10533E+01 0.15336E+01 0.23288E+01 0.28631E+01 0.35336E+01 + 0.42049E+01 0.51714E+01 0.61968E+01 0.54340E-01 0.68736E-01 0.87048E-01 + 0.11041E+00 0.14030E+00 0.15297E+00 0.15526E+00 0.15869E+00 0.16576E+00 + 0.17040E+00 0.17602E+00 0.16271E+00 0.16632E+00 0.22054E+00 0.14932E+00 + 0.13998E+00 0.12181E+00 0.96733E-01 0.79015E-01 0.37386E-01 0.25096E-01 + 0.94053E-01 0.19865E+00 0.33998E+00 0.52122E+00 0.86522E+00 0.12567E+01 + 0.18885E+01 0.28192E+01 0.37376E+01 0.44144E+01 0.53748E+01 0.63969E+01 + 0.83548E-01 0.10554E+00 0.13345E+00 0.16895E+00 0.21420E+00 0.27203E+00 + 0.30925E+00 0.31419E+00 0.32795E+00 0.33724E+00 0.34565E+00 0.32217E+00 + 0.32589E+00 0.41147E+00 0.29784E+00 0.28478E+00 0.26120E+00 0.23220E+00 + 0.22033E+00 0.18475E+00 0.12656E+00 0.54576E-01 0.52585E-01 0.16773E+00 + 0.30333E+00 0.58215E+00 0.86555E+00 0.13230E+01 0.19905E+01 0.31119E+01 + 0.41042E+01 0.49499E+01 0.58570E+01 0.12728E+00 0.16060E+00 0.20281E+00 + 0.25636E+00 0.32442E+00 0.41108E+00 0.51853E+00 0.62577E+00 0.64745E+00 + 0.66469E+00 0.68385E+00 0.64087E+00 0.64166E+00 0.78021E+00 0.58957E+00 + 0.56719E+00 0.53101E+00 0.49151E+00 0.48455E+00 0.45260E+00 0.40448E+00 + 0.36074E+00 0.27839E+00 0.18438E+00 0.83754E-01 0.14707E+00 0.28996E+00 + 0.52902E+00 0.90527E+00 0.15346E+01 0.23415E+01 0.33183E+01 0.39456E+01 + 0.19383E+00 0.24432E+00 0.30817E+00 0.38903E+00 0.49157E+00 0.62174E+00 + 0.78305E+00 0.98850E+00 0.12714E+01 0.13289E+01 0.13600E+01 0.12952E+01 + 0.12870E+01 0.15192E+01 0.11827E+01 0.11383E+01 0.10737E+01 0.10089E+01 + 0.10026E+01 0.96711E+00 0.92360E+00 0.91005E+00 0.87725E+00 0.87991E+00 + 0.94666E+00 0.85405E+00 0.98957E+00 0.11284E+01 0.12336E+01 0.12224E+01 + 0.13692E+01 0.17309E+01 0.20952E+01 0.28686E+00 0.36123E+00 0.45522E+00 + 0.57407E+00 0.72452E+00 0.91515E+00 0.11513E+01 0.14512E+01 0.18598E+01 + 0.23629E+01 0.26035E+01 0.24811E+01 0.24870E+01 0.28697E+01 0.22865E+01 + 0.22004E+01 0.20832E+01 0.19708E+01 0.19578E+01 0.19080E+01 0.18618E+01 + 0.18825E+01 0.19087E+01 0.20323E+01 0.23091E+01 0.24874E+01 0.31099E+01 + 0.39726E+01 0.51687E+01 0.68229E+01 0.96025E+01 0.13955E+02 0.20539E+02 + 0.41628E+00 0.52372E+00 0.65930E+00 0.83063E+00 0.10472E+01 0.13211E+01 + 0.16604E+01 0.20902E+01 0.26713E+01 0.33858E+01 0.42944E+01 0.47319E+01 + 0.47293E+01 0.54173E+01 0.43680E+01 0.41895E+01 0.39576E+01 0.37363E+01 + 0.36830E+01 0.35731E+01 0.34785E+01 0.35018E+01 0.35540E+01 0.37787E+01 + 0.42581E+01 0.46703E+01 0.57648E+01 0.73059E+01 0.94913E+01 0.12609E+02 + 0.17650E+02 0.25617E+02 0.37575E+02 0.60129E+00 0.75560E+00 0.95029E+00 + 0.11960E+01 0.15064E+01 0.18986E+01 0.23841E+01 0.29981E+01 0.38233E+01 + 0.48370E+01 0.61214E+01 0.73029E+01 0.89341E+01 0.10126E+02 0.83476E+01 + 0.79896E+01 0.75373E+01 0.71047E+01 0.69576E+01 0.67168E+01 0.65091E+01 + 0.65014E+01 0.65555E+01 0.68948E+01 0.76348E+01 0.83310E+01 0.10038E+02 + 0.12439E+02 0.15846E+02 0.20724E+02 0.28430E+02 0.40404E+02 0.58643E+02 + 0.86099E+00 0.10805E+01 0.13574E+01 0.17067E+01 0.21475E+01 0.27041E+01 + 0.33933E+01 0.42635E+01 0.54273E+01 0.68560E+01 0.86625E+01 0.10353E+02 + 0.15978E+02 0.18725E+02 0.15580E+02 0.15091E+02 0.14239E+02 0.13413E+02 + 0.13071E+02 0.12568E+02 0.12125E+02 0.12015E+02 0.12014E+02 0.12470E+02 + 0.13542E+02 0.14580E+02 0.17095E+02 0.20610E+02 0.25568E+02 0.32629E+02 + 0.43581E+02 0.60322E+02 0.85549E+02 0.13075E+01 0.16381E+01 0.20549E+01 + 0.25806E+01 0.32437E+01 0.40800E+01 0.51174E+01 0.64255E+01 0.81635E+01 + 0.10300E+02 0.12997E+02 0.15599E+02 0.24076E+02 0.33650E+02 0.31654E+02 + 0.30652E+02 0.29403E+02 0.27957E+02 0.27251E+02 0.26271E+02 0.25416E+02 + 0.25155E+02 0.25116E+02 0.25879E+02 0.27683E+02 0.29531E+02 0.33742E+02 + 0.39584E+02 0.47759E+02 0.59312E+02 0.76824E+02 0.10307E+03 0.14210E+03 + 0.17668E+01 0.22091E+01 0.27664E+01 0.34691E+01 0.43552E+01 0.54724E+01 + 0.68565E+01 0.86008E+01 0.10917E+02 0.13760E+02 0.17342E+02 0.20787E+02 + 0.31970E+02 0.44572E+02 0.47603E+02 0.53364E+02 0.50795E+02 0.48376E+02 + 0.47122E+02 0.45013E+02 0.43058E+02 0.42036E+02 0.41283E+02 0.41713E+02 + 0.43613E+02 0.45324E+02 0.50291E+02 0.57139E+02 0.66630E+02 0.79881E+02 + 0.99863E+02 0.12943E+03 0.17268E+03 0.26507E+01 0.33050E+01 0.41295E+01 + 0.51688E+01 0.64788E+01 0.81300E+01 0.10178E+02 0.12758E+02 0.16167E+02 + 0.20357E+02 0.25633E+02 0.30825E+02 0.47438E+02 0.65535E+02 0.71028E+02 + 0.86829E+02 0.10239E+03 0.97661E+02 0.95638E+02 0.92494E+02 0.88674E+02 + 0.86500E+02 0.84802E+02 0.85138E+02 0.87929E+02 0.90402E+02 0.98115E+02 + 0.10869E+03 0.12324E+03 0.14337E+03 0.17323E+03 0.21662E+03 0.27903E+03 + 0.37501E+01 0.46623E+01 0.58115E+01 0.72598E+01 0.90853E+01 0.11386E+02 + 0.14241E+02 0.17838E+02 0.22573E+02 0.28400E+02 0.35734E+02 0.43098E+02 + 0.66385E+02 0.91041E+02 0.99930E+02 0.12251E+03 0.14863E+03 0.17719E+03 + 0.17339E+03 0.16833E+03 0.16350E+03 0.15956E+03 0.15637E+03 0.15639E+03 + 0.16021E+03 0.16350E+03 0.17469E+03 0.19000E+03 0.21093E+03 0.23967E+03 + 0.28182E+03 0.34222E+03 0.42785E+03 0.53035E+01 0.65696E+01 0.81642E+01 + 0.10174E+02 0.12707E+02 0.15899E+02 0.19863E+02 0.24857E+02 0.31408E+02 + 0.39482E+02 0.49639E+02 0.60014E+02 0.92502E+02 0.12607E+03 0.13987E+03 + 0.17187E+03 0.20920E+03 0.25434E+03 0.31325E+03 0.30408E+03 0.29606E+03 + 0.29210E+03 0.28605E+03 0.28507E+03 0.28995E+03 0.29381E+03 0.30964E+03 + 0.33127E+03 0.36076E+03 0.40099E+03 0.45953E+03 0.54238E+03 0.65822E+03 + 0.14559E-09 0.50949E-09 0.10029E-08 0.22788E-08 0.34260E-08 0.66824E-08 + 0.31995E-07 0.66423E-07 0.19897E-06 0.31213E-06 0.60753E-06 0.34093E-05 + 0.23984E-04 0.10742E-03 0.46414E-03 0.14049E-02 0.33921E-02 0.67809E-02 + 0.11891E-01 0.18837E-01 0.30850E-01 0.47877E-01 0.75169E-01 0.11238E+00 + 0.15819E+00 0.21724E+00 0.29561E+00 0.40411E+00 0.54895E+00 0.76064E+00 + 0.10509E+01 0.14683E+01 0.20792E+01 0.25528E-10 0.21013E-09 0.77036E-09 + 0.22025E-08 0.39989E-08 0.75439E-08 0.43564E-07 0.88516E-07 0.27187E-06 + 0.38094E-06 0.87550E-06 0.73952E-05 0.30671E-04 0.13707E-03 0.59103E-03 + 0.17852E-02 0.43025E-02 0.85869E-02 0.15037E-01 0.23792E-01 0.38915E-01 + 0.60310E-01 0.94554E-01 0.14112E+00 0.19823E+00 0.27153E+00 0.36828E+00 + 0.50142E+00 0.67763E+00 0.93294E+00 0.12788E+01 0.17698E+01 0.24781E+01 + 0.63882E-09 0.36622E-09 0.37694E-10 0.14331E-08 0.38095E-08 0.77366E-08 + 0.62716E-07 0.12319E-06 0.32260E-06 0.44210E-06 0.14192E-05 0.12697E-04 + 0.62543E-04 0.17571E-03 0.75570E-03 0.22771E-02 0.54758E-02 0.10908E-01 + 0.19073E-01 0.30131E-01 0.49221E-01 0.76190E-01 0.11929E+00 0.17778E+00 + 0.24928E+00 0.34070E+00 0.46085E+00 0.62533E+00 0.84146E+00 0.11523E+01 + 0.15690E+01 0.21536E+01 0.29859E+01 0.22630E-08 0.19776E-08 0.17476E-08 + 0.51294E-09 0.14915E-08 0.66415E-08 0.75871E-07 0.17476E-06 0.44572E-06 + 0.80079E-06 0.26841E-05 0.20496E-04 0.10869E-03 0.24821E-03 0.96601E-03 + 0.29029E-02 0.69628E-02 0.13840E-01 0.24155E-01 0.38102E-01 0.62155E-01 + 0.96096E-01 0.15027E+00 0.22364E+00 0.31311E+00 0.42717E+00 0.57652E+00 + 0.78013E+00 0.10461E+01 0.14263E+01 0.19313E+01 0.26328E+01 0.36198E+01 + 0.40718E-08 0.60948E-08 0.59625E-08 0.53064E-08 0.43613E-08 0.00000E+00 + 0.96049E-07 0.26210E-06 0.66373E-06 0.15937E-05 0.52737E-05 0.42864E-04 + 0.16988E-03 0.35753E-03 0.12009E-02 0.37152E-02 0.88848E-02 0.17616E-01 + 0.30677E-01 0.48301E-01 0.78680E-01 0.12148E+00 0.18974E+00 0.28203E+00 + 0.39431E+00 0.53711E+00 0.72353E+00 0.97674E+00 0.13060E+01 0.17741E+01 + 0.23912E+01 0.32410E+01 0.44244E+01 0.11091E-07 0.10807E-07 0.16902E-07 + 0.16938E-07 0.18047E-07 0.17021E-07 0.10218E-06 0.27514E-06 0.11378E-05 + 0.23297E-05 0.93925E-05 0.72862E-04 0.22458E-03 0.50067E-03 0.14508E-02 + 0.45941E-02 0.11373E-01 0.22484E-01 0.39055E-01 0.61364E-01 0.99796E-01 + 0.15386E+00 0.24002E+00 0.35632E+00 0.49755E+00 0.67678E+00 0.91019E+00 + 0.12264E+01 0.16358E+01 0.22153E+01 0.29746E+01 0.40124E+01 0.54445E+01 + 0.15662E-07 0.27867E-07 0.28717E-07 0.44083E-07 0.49170E-07 0.55900E-07 + 0.78542E-07 0.39485E-06 0.15241E-05 0.53659E-05 0.15961E-04 0.11026E-03 + 0.28702E-03 0.61758E-03 0.17737E-02 0.51269E-02 0.14425E-01 0.28749E-01 + 0.49789E-01 0.78038E-01 0.12669E+00 0.19501E+00 0.30381E+00 0.45049E+00 + 0.62827E+00 0.85345E+00 0.11461E+01 0.15417E+01 0.20522E+01 0.27723E+01 + 0.37109E+01 0.49858E+01 0.67314E+01 0.31173E-07 0.41577E-07 0.63728E-07 + 0.85313E-07 0.12204E-06 0.14384E-06 0.89837E-08 0.25418E-06 0.20520E-05 + 0.91240E-05 0.25478E-04 0.13681E-03 0.33641E-03 0.72852E-03 0.20730E-02 + 0.58083E-02 0.15331E-01 0.36854E-01 0.63611E-01 0.99429E-01 0.16110E+00 + 0.24755E+00 0.38514E+00 0.57038E+00 0.79444E+00 0.10778E+01 0.14455E+01 + 0.19415E+01 0.25798E+01 0.34779E+01 0.46432E+01 0.62181E+01 0.83607E+01 + 0.63192E-07 0.83547E-07 0.11678E-06 0.18769E-06 0.30675E-06 0.45511E-06 + 0.21428E-06 0.25747E-07 0.14842E-05 0.99137E-05 0.38814E-04 0.15219E-03 + 0.37548E-03 0.79992E-03 0.23100E-02 0.65066E-02 0.16455E-01 0.39270E-01 + 0.81298E-01 0.12668E+00 0.20483E+00 0.31415E+00 0.48807E+00 0.72185E+00 + 0.10040E+01 0.13605E+01 0.18222E+01 0.24442E+01 0.32430E+01 0.43644E+01 + 0.58138E+01 0.77647E+01 0.10405E+02 0.14170E-06 0.18997E-06 0.22730E-06 + 0.34926E-06 0.64959E-06 0.11100E-05 0.11308E-05 0.63224E-06 0.46767E-06 + 0.59473E-05 0.34960E-04 0.15211E-03 0.38286E-03 0.82568E-03 0.24486E-02 + 0.69464E-02 0.17716E-01 0.40912E-01 0.88991E-01 0.16153E+00 0.26063E+00 + 0.39893E+00 0.61891E+00 0.91408E+00 0.12696E+01 0.17179E+01 0.22980E+01 + 0.30786E+01 0.40788E+01 0.54810E+01 0.72878E+01 0.97114E+01 0.12977E+02 + 0.29643E-06 0.37778E-06 0.49270E-06 0.81595E-06 0.15849E-05 0.35148E-05 + 0.55874E-05 0.64038E-05 0.17140E-05 0.57540E-06 0.48822E-05 0.10979E-03 + 0.33750E-03 0.76815E-03 0.24375E-02 0.71863E-02 0.18220E-01 0.42718E-01 + 0.90568E-01 0.18297E+00 0.33019E+00 0.50447E+00 0.78171E+00 0.11530E+01 + 0.15989E+01 0.21604E+01 0.28859E+01 0.38615E+01 0.51092E+01 0.68567E+01 + 0.91024E+01 0.12107E+02 0.16140E+02 0.61502E-06 0.80062E-06 0.10536E-05 + 0.18718E-05 0.52401E-05 0.12082E-04 0.26028E-04 0.45088E-04 0.39263E-04 + 0.34298E-04 0.52251E-04 0.00000E+00 0.18978E-03 0.58035E-03 0.22167E-02 + 0.71209E-02 0.18412E-01 0.43226E-01 0.91865E-01 0.18424E+00 0.38833E+00 + 0.63777E+00 0.98753E+00 0.14548E+01 0.20141E+01 0.27169E+01 0.36239E+01 + 0.48426E+01 0.63989E+01 0.85770E+01 0.11370E+02 0.15097E+02 0.20087E+02 + 0.27716E-05 0.49574E-05 0.78903E-05 0.21551E-04 0.46190E-04 0.82319E-04 + 0.11561E-03 0.16407E-03 0.18858E-03 0.21378E-03 0.23763E-03 0.25938E-03 + 0.17979E-03 0.68212E-04 0.16766E-02 0.64857E-02 0.17782E-01 0.42753E-01 + 0.90664E-01 0.18328E+00 0.38632E+00 0.77175E+00 0.12385E+01 0.18235E+01 + 0.25203E+01 0.33935E+01 0.45190E+01 0.60303E+01 0.79569E+01 0.10654E+02 + 0.14104E+02 0.18699E+02 0.24838E+02 0.25293E-04 0.43121E-04 0.73049E-04 + 0.12290E-03 0.20547E-03 0.31776E-03 0.42829E-03 0.53339E-03 0.59616E-03 + 0.70551E-03 0.81174E-03 0.99943E-03 0.10077E-02 0.10162E-02 0.30409E-03 + 0.50187E-02 0.16093E-01 0.40761E-01 0.86741E-01 0.17729E+00 0.37911E+00 + 0.75725E+00 0.15414E+01 0.22765E+01 0.31413E+01 0.42211E+01 0.56099E+01 + 0.74750E+01 0.98464E+01 0.13171E+02 0.17412E+02 0.23053E+02 0.30572E+02 + 0.55950E-04 0.71387E-04 0.14711E-03 0.32613E-03 0.57903E-03 0.80652E-03 + 0.10396E-02 0.12804E-02 0.14347E-02 0.16896E-02 0.20005E-02 0.22143E-02 + 0.42192E-02 0.31401E-02 0.21676E-02 0.21041E-02 0.12569E-01 0.36261E-01 + 0.80139E-01 0.16625E+00 0.36402E+00 0.73444E+00 0.14996E+01 0.28158E+01 + 0.38789E+01 0.51999E+01 0.68951E+01 0.91719E+01 0.12058E+02 0.16114E+02 + 0.21270E+02 0.28122E+02 0.37242E+02 0.42139E-03 0.53718E-03 0.68802E-03 + 0.98804E-03 0.14694E-02 0.21369E-02 0.25864E-02 0.30945E-02 0.34574E-02 + 0.39797E-02 0.47381E-02 0.53027E-02 0.61126E-02 0.17641E-01 0.72877E-02 + 0.38092E-02 0.55044E-02 0.27421E-01 0.67551E-01 0.14673E+00 0.33371E+00 + 0.68968E+00 0.14304E+01 0.27692E+01 0.48168E+01 0.64382E+01 0.85113E+01 + 0.11297E+02 0.14814E+02 0.19776E+02 0.26057E+02 0.34395E+02 0.45480E+02 + 0.13847E-02 0.17607E-02 0.22473E-02 0.30311E-02 0.38825E-02 0.48388E-02 + 0.60411E-02 0.69568E-02 0.77066E-02 0.85630E-02 0.96885E-02 0.11061E-01 + 0.12520E-01 0.14639E-01 0.39979E-01 0.12686E-01 0.44224E-02 0.15992E-01 + 0.52621E-01 0.12531E+00 0.30294E+00 0.63973E+00 0.13606E+01 0.26543E+01 + 0.47590E+01 0.79551E+01 0.10475E+02 0.13865E+02 0.18121E+02 0.24159E+02 + 0.31766E+02 0.41856E+02 0.55256E+02 0.30884E-02 0.39171E-02 0.49840E-02 + 0.66903E-02 0.90259E-02 0.11093E-01 0.12574E-01 0.14651E-01 0.15822E-01 + 0.17464E-01 0.19448E-01 0.21214E-01 0.23866E-01 0.27283E-01 0.29026E-01 + 0.66501E-01 0.19515E-01 0.00000E+00 0.33697E-01 0.10076E+00 0.27157E+00 + 0.59258E+00 0.12865E+01 0.25475E+01 0.45632E+01 0.78928E+01 0.13032E+02 + 0.17181E+02 0.22359E+02 0.29753E+02 0.39015E+02 0.51295E+02 0.67591E+02 + 0.64544E-02 0.81709E-02 0.10372E-01 0.13872E-01 0.18627E-01 0.25131E-01 + 0.29798E-01 0.32329E-01 0.35248E-01 0.37944E-01 0.41277E-01 0.44687E-01 + 0.48966E-01 0.54896E-01 0.58960E-01 0.59127E-01 0.13858E+00 0.38970E-01 + 0.13581E-01 0.39280E-01 0.19091E+00 0.47509E+00 0.11084E+01 0.22516E+01 + 0.40797E+01 0.70472E+01 0.11992E+02 0.19810E+02 0.25641E+02 0.34081E+02 + 0.44543E+02 0.58409E+02 0.76799E+02 0.11501E-01 0.14534E-01 0.18411E-01 + 0.24549E-01 0.32833E-01 0.44074E-01 0.58947E-01 0.70230E-01 0.73284E-01 + 0.79031E-01 0.84069E-01 0.89262E-01 0.96136E-01 0.10529E+00 0.11175E+00 + 0.11338E+00 0.11039E+00 0.20555E+00 0.77850E-01 0.36082E-01 0.10416E+00 + 0.36282E+00 0.95677E+00 0.20136E+01 0.36541E+01 0.63327E+01 0.10729E+02 + 0.18307E+02 0.30012E+02 0.39806E+02 0.51792E+02 0.67676E+02 0.88734E+02 + 0.19589E-01 0.24722E-01 0.31265E-01 0.41589E-01 0.55458E-01 0.74162E-01 + 0.98844E-01 0.13261E+00 0.15631E+00 0.16294E+00 0.17220E+00 0.17860E+00 + 0.18813E+00 0.20206E+00 0.21182E+00 0.21522E+00 0.21432E+00 0.20345E+00 + 0.19341E+00 0.16738E+00 0.42306E-01 0.18305E+00 0.72828E+00 0.16795E+01 + 0.30914E+01 0.53403E+01 0.90577E+01 0.15436E+02 0.25671E+02 0.43629E+02 + 0.56449E+02 0.73437E+02 0.95954E+02 0.30204E-01 0.38065E-01 0.48073E-01 + 0.63822E-01 0.84898E-01 0.11320E+00 0.15045E+00 0.20101E+00 0.26747E+00 + 0.32013E+00 0.33388E+00 0.34787E+00 0.36182E+00 0.38219E+00 0.39552E+00 + 0.39949E+00 0.39913E+00 0.38898E+00 0.38831E+00 0.37945E+00 0.26702E+00 + 0.74216E-01 0.42805E+00 0.12769E+01 0.24534E+01 0.42568E+01 0.71744E+01 + 0.12287E+02 0.20284E+02 0.35135E+02 0.58028E+02 0.75072E+02 0.97665E+02 + 0.46159E-01 0.58097E-01 0.73269E-01 0.97102E-01 0.12890E+00 0.17144E+00 + 0.22734E+00 0.30273E+00 0.40149E+00 0.54014E+00 0.65385E+00 0.67323E+00 + 0.70245E+00 0.73226E+00 0.74840E+00 0.74914E+00 0.74461E+00 0.72942E+00 + 0.73628E+00 0.74456E+00 0.63719E+00 0.47252E+00 0.00000E+00 0.75518E+00 + 0.16874E+01 0.30222E+01 0.51027E+01 0.87676E+01 0.14379E+02 0.25224E+02 + 0.41921E+02 0.69987E+02 0.90523E+02 0.70562E-01 0.88681E-01 0.11168E+00 + 0.14776E+00 0.19579E+00 0.25984E+00 0.34389E+00 0.45668E+00 0.60401E+00 + 0.80863E+00 0.10877E+01 0.13335E+01 0.13738E+01 0.14339E+01 0.14529E+01 + 0.14405E+01 0.14198E+01 0.13852E+01 0.13925E+01 0.14138E+01 0.12937E+01 + 0.11457E+01 0.67733E+00 0.00000E+00 0.67209E+00 0.14972E+01 0.26749E+01 + 0.48071E+01 0.77291E+01 0.14240E+02 0.23514E+02 0.39028E+02 0.65592E+02 + 0.10489E+00 0.13162E+00 0.16551E+00 0.21862E+00 0.28923E+00 0.38320E+00 + 0.50637E+00 0.67111E+00 0.88595E+00 0.11819E+01 0.15824E+01 0.21072E+01 + 0.26051E+01 0.26865E+01 0.27318E+01 0.26975E+01 0.26406E+01 0.25638E+01 + 0.25587E+01 0.25854E+01 0.24292E+01 0.22860E+01 0.17978E+01 0.11944E+01 + 0.82494E+00 0.59136E+00 0.43877E+00 0.00000E+00 0.00000E+00 0.16954E+01 + 0.27753E+01 0.45828E+01 0.76040E+01 0.15309E+00 0.19173E+00 0.24069E+00 + 0.31734E+00 0.41912E+00 0.55437E+00 0.73145E+00 0.96767E+00 0.12751E+01 + 0.16961E+01 0.22623E+01 0.30002E+01 0.39967E+01 0.50350E+01 0.50642E+01 + 0.50168E+01 0.48876E+01 0.47017E+01 0.46331E+01 0.46161E+01 0.43301E+01 + 0.41069E+01 0.34661E+01 0.28113E+01 0.26611E+01 0.29329E+01 0.36704E+01 + 0.46583E+01 0.71138E+01 0.92997E+01 0.14924E+02 0.24400E+02 0.40300E+02 + 0.22277E+00 0.27830E+00 0.34866E+00 0.45873E+00 0.60474E+00 0.79854E+00 + 0.10521E+01 0.13897E+01 0.18286E+01 0.24267E+01 0.32275E+01 0.42671E+01 + 0.56611E+01 0.75440E+01 0.94488E+01 0.92775E+01 0.90675E+01 0.87052E+01 + 0.84899E+01 0.83551E+01 0.78023E+01 0.73927E+01 0.64445E+01 0.56379E+01 + 0.57347E+01 0.66329E+01 0.84651E+01 0.11150E+02 0.16475E+02 0.23020E+02 + 0.36056E+02 0.57780E+02 0.94375E+02 0.32197E+00 0.40102E+00 0.50115E+00 + 0.65770E+00 0.86524E+00 0.11405E+01 0.15005E+01 0.19790E+01 0.26008E+01 + 0.34451E+01 0.45718E+01 0.60307E+01 0.79767E+01 0.10587E+02 0.13810E+02 + 0.17111E+02 0.16598E+02 0.15993E+02 0.15566E+02 0.15170E+02 0.14103E+02 + 0.13310E+02 0.11783E+02 0.10645E+02 0.11016E+02 0.12712E+02 0.15938E+02 + 0.20719E+02 0.29520E+02 0.41136E+02 0.62630E+02 0.97987E+02 0.15690E+03 + 0.49522E+00 0.61430E+00 0.76511E+00 0.10008E+01 0.13131E+01 0.17271E+01 + 0.22689E+01 0.29881E+01 0.39233E+01 0.51884E+01 0.68728E+01 0.90531E+01 + 0.11951E+02 0.15818E+02 0.20605E+02 0.26391E+02 0.33242E+02 0.31965E+02 + 0.31303E+02 0.30647E+02 0.28662E+02 0.27238E+02 0.24803E+02 0.23303E+02 + 0.24483E+02 0.28035E+02 0.34322E+02 0.43633E+02 0.59664E+02 0.81806E+02 + 0.12034E+03 0.18272E+03 0.28524E+03 0.67989E+00 0.83917E+00 0.10409E+01 + 0.13562E+01 0.17737E+01 0.23267E+01 0.30502E+01 0.40096E+01 0.52558E+01 + 0.69389E+01 0.91756E+01 0.12063E+02 0.15886E+02 0.20968E+02 0.27214E+02 + 0.34696E+02 0.43831E+02 0.54789E+02 0.53105E+02 0.51669E+02 0.47954E+02 + 0.44716E+02 0.39792E+02 0.36377E+02 0.37029E+02 0.40921E+02 0.48201E+02 + 0.58851E+02 0.77268E+02 0.10185E+03 0.14442E+03 0.21213E+03 0.32172E+03 + 0.10420E+01 0.12778E+01 0.15762E+01 0.20426E+01 0.26601E+01 0.34778E+01 + 0.45479E+01 0.59662E+01 0.78101E+01 0.10295E+02 0.13592E+02 0.17851E+02 + 0.23480E+02 0.30940E+02 0.40142E+02 0.51223E+02 0.64799E+02 0.81174E+02 + 0.10285E+03 0.10242E+03 0.95984E+02 0.90665E+02 0.81824E+02 0.75914E+02 + 0.77055E+02 0.83639E+02 0.95717E+02 0.11323E+03 0.14252E+03 0.18168E+03 + 0.24718E+03 0.34930E+03 0.51155E+03 0.15071E+01 0.18358E+01 0.22519E+01 + 0.29019E+01 0.37626E+01 0.49019E+01 0.63938E+01 0.83705E+01 0.10943E+02 + 0.14403E+02 0.18989E+02 0.24920E+02 0.32755E+02 0.43119E+02 0.55948E+02 + 0.71494E+02 0.90623E+02 0.11384E+03 0.14445E+03 0.18365E+03 0.17256E+03 + 0.16438E+03 0.15110E+03 0.14155E+03 0.14318E+03 0.15321E+03 0.17147E+03 + 0.19774E+03 0.24076E+03 0.29798E+03 0.39136E+03 0.53445E+03 0.75806E+03 + 0.21898E+01 0.26461E+01 0.32236E+01 0.41258E+01 0.53199E+01 0.69007E+01 + 0.89718E+01 0.11715E+02 0.15288E+02 0.20086E+02 0.26444E+02 0.34673E+02 + 0.45532E+02 0.59887E+02 0.77711E+02 0.99421E+02 0.12624E+03 0.15896E+03 + 0.20198E+03 0.25700E+03 0.30966E+03 0.29502E+03 0.27477E+03 0.26030E+03 + 0.26188E+03 0.27635E+03 0.30296E+03 0.34100E+03 0.40248E+03 0.48334E+03 + 0.61285E+03 0.80783E+03 0.11072E+04 0.35418E-09 0.73808E-09 0.13055E-08 + 0.23357E-08 0.37935E-08 0.75686E-08 0.37068E-07 0.70767E-07 0.20190E-06 + 0.33354E-06 0.60384E-06 0.29174E-06 0.30757E-04 0.14841E-03 0.52790E-03 + 0.11937E-03 0.25591E-02 0.40327E-04 0.81170E-02 0.12865E-01 0.28904E-01 + 0.48485E-01 0.79559E-01 0.12606E+00 0.19506E+00 0.29164E+00 0.44727E+00 + 0.66980E+00 0.10355E+01 0.16040E+01 0.25417E+01 0.41328E+01 0.69098E+01 + 0.12377E-09 0.52746E-09 0.11265E-08 0.26117E-08 0.43267E-08 0.79355E-08 + 0.55200E-07 0.96614E-07 0.27044E-06 0.41118E-06 0.80947E-06 0.65253E-06 + 0.39367E-04 0.18950E-03 0.67227E-03 0.15025E-03 0.32447E-02 0.47337E-04 + 0.10261E-01 0.16242E-01 0.36399E-01 0.60947E-01 0.99782E-01 0.15766E+00 + 0.24301E+00 0.36150E+00 0.55068E+00 0.81755E+00 0.12501E+01 0.19104E+01 + 0.29790E+01 0.47568E+01 0.78001E+01 0.52181E-09 0.19698E-09 0.36254E-09 + 0.19432E-08 0.43559E-08 0.87413E-08 0.72040E-07 0.13424E-06 0.32487E-06 + 0.50020E-06 0.12204E-05 0.10910E-05 0.79862E-04 0.24320E-03 0.85978E-03 + 0.18866E-03 0.41278E-02 0.52375E-04 0.13009E-01 0.20563E-01 0.45963E-01 + 0.76838E-01 0.12556E+00 0.19790E+00 0.30408E+00 0.45043E+00 0.68239E+00 + 0.10056E+01 0.15232E+01 0.23002E+01 0.35355E+01 0.55510E+01 0.89329E+01 + 0.20007E-08 0.18958E-08 0.17183E-08 0.19245E-09 0.21375E-08 0.79793E-08 + 0.90527E-07 0.20228E-06 0.46431E-06 0.86722E-06 0.20183E-05 0.17680E-05 + 0.13672E-03 0.34580E-03 0.10994E-02 0.23457E-03 0.52449E-02 0.51122E-04 + 0.16464E-01 0.25986E-01 0.57941E-01 0.96717E-01 0.15778E+00 0.24819E+00 + 0.38035E+00 0.56149E+00 0.84675E+00 0.12404E+01 0.18641E+01 0.27868E+01 + 0.42300E+01 0.65418E+01 0.10347E+02 0.46308E-08 0.56808E-08 0.61320E-08 + 0.55684E-08 0.38467E-08 0.18892E-08 0.11650E-06 0.28341E-06 0.70256E-06 + 0.16481E-05 0.44601E-05 0.35306E-05 0.21248E-03 0.50062E-03 0.13680E-02 + 0.28851E-03 0.66858E-02 0.35032E-04 0.20890E-01 0.32915E-01 0.73191E-01 + 0.12200E+00 0.19874E+00 0.31207E+00 0.47721E+00 0.70246E+00 0.10554E+01 + 0.15383E+01 0.22966E+01 0.34042E+01 0.51110E+01 0.77989E+01 0.12139E+02 + 0.99602E-08 0.12563E-07 0.16272E-07 0.17299E-07 0.18607E-07 0.14810E-07 + 0.12590E-06 0.33651E-06 0.11667E-05 0.23215E-05 0.86027E-05 0.46794E-05 + 0.28020E-03 0.70521E-03 0.16513E-02 0.33507E-03 0.85446E-02 0.17928E-04 + 0.26557E-01 0.41763E-01 0.92598E-01 0.15415E+00 0.25075E+00 0.39314E+00 + 0.60007E+00 0.88121E+00 0.13199E+01 0.19159E+01 0.28447E+01 0.41863E+01 + 0.62271E+01 0.93912E+01 0.14410E+02 0.23154E-07 0.26104E-07 0.33760E-07 + 0.43160E-07 0.49175E-07 0.51615E-07 0.11020E-06 0.40456E-06 0.14242E-05 + 0.55699E-05 0.17453E-04 0.31453E-05 0.35886E-03 0.87478E-03 0.20188E-02 + 0.33056E-03 0.10934E-01 0.14959E-03 0.33781E-01 0.53014E-01 0.11717E+00 + 0.19479E+00 0.31648E+00 0.49549E+00 0.75511E+00 0.11067E+01 0.16534E+01 + 0.23919E+01 0.35355E+01 0.51720E+01 0.76335E+01 0.11397E+02 0.17271E+02 + 0.36763E-07 0.53301E-07 0.73505E-07 0.95433E-07 0.12690E-06 0.13611E-06 + 0.53864E-07 0.29224E-06 0.20297E-05 0.86320E-05 0.30646E-04 0.52383E-05 + 0.42511E-03 0.10453E-02 0.23669E-02 0.29345E-03 0.11583E-01 0.46029E-03 + 0.43009E-01 0.67345E-01 0.14834E+00 0.24629E+00 0.39969E+00 0.62505E+00 + 0.95124E+00 0.13917E+01 0.20750E+01 0.29933E+01 0.44085E+01 0.64174E+01 + 0.94103E+01 0.13931E+02 0.20885E+02 0.73749E-07 0.10027E-06 0.13827E-06 + 0.23203E-06 0.32167E-06 0.43120E-06 0.11080E-06 0.10048E-06 0.14302E-05 + 0.98810E-05 0.52398E-04 0.25081E-04 0.48303E-03 0.11708E-02 0.26469E-02 + 0.18448E-03 0.12324E-01 0.96298E-03 0.54673E-01 0.85417E-01 0.18748E+00 + 0.31093E+00 0.50409E+00 0.78744E+00 0.11970E+01 0.17487E+01 0.26028E+01 + 0.37461E+01 0.55009E+01 0.79759E+01 0.11633E+02 0.17101E+02 0.25404E+02 + 0.16769E-06 0.20925E-06 0.27280E-06 0.39726E-06 0.70383E-06 0.10545E-05 + 0.89162E-06 0.49016E-06 0.50809E-06 0.65655E-05 0.53863E-04 0.67305E-04 + 0.51141E-03 0.12534E-02 0.28279E-02 0.59944E-04 0.13150E-01 0.17781E-02 + 0.61069E-01 0.10814E+00 0.23654E+00 0.39200E+00 0.63505E+00 0.99119E+00 + 0.15053E+01 0.21961E+01 0.32644E+01 0.46892E+01 0.68696E+01 0.99278E+01 + 0.14417E+02 0.21072E+02 0.31064E+02 0.33926E-06 0.43474E-06 0.62299E-06 + 0.10201E-05 0.16510E-05 0.32671E-05 0.48859E-05 0.56312E-05 0.11606E-05 + 0.48969E-06 0.27169E-04 0.14709E-03 0.49113E-03 0.12572E-02 0.28558E-02 + 0.52736E-03 0.13285E-01 0.31993E-02 0.61172E-01 0.12559E+00 0.29604E+00 + 0.49060E+00 0.79471E+00 0.12398E+01 0.18815E+01 0.27420E+01 0.40721E+01 + 0.58400E+01 0.85405E+01 0.12310E+02 0.17816E+02 0.25918E+02 0.37972E+02 + 0.71177E-06 0.93133E-06 0.12313E-05 0.26543E-05 0.57348E-05 0.11328E-04 + 0.20604E-04 0.40908E-04 0.35608E-04 0.28611E-04 0.24231E-04 0.29003E-03 + 0.37424E-03 0.11550E-02 0.26760E-02 0.13762E-02 0.13044E-01 0.55546E-02 + 0.60473E-01 0.12406E+00 0.36799E+00 0.61084E+00 0.99045E+00 0.15455E+01 + 0.23449E+01 0.34141E+01 0.50675E+01 0.72578E+01 0.10600E+02 0.15248E+02 + 0.22006E+02 0.31894E+02 0.46493E+02 0.39124E-05 0.64767E-05 0.12307E-04 + 0.27149E-04 0.49705E-04 0.79784E-04 0.10435E-03 0.14825E-03 0.17601E-03 + 0.19754E-03 0.19154E-03 0.62017E-03 0.44307E-04 0.74662E-03 0.22133E-02 + 0.29780E-02 0.11853E-01 0.97297E-02 0.57221E-01 0.11926E+00 0.44774E+00 + 0.74727E+00 0.12160E+01 0.19009E+01 0.28863E+01 0.42000E+01 0.62356E+01 + 0.89215E+01 0.13022E+02 0.18703E+02 0.26938E+02 0.38932E+02 0.56530E+02 + 0.32366E-04 0.58670E-04 0.93632E-04 0.14231E-03 0.21620E-03 0.30873E-03 + 0.39987E-03 0.50514E-03 0.56771E-03 0.66667E-03 0.72665E-03 0.14475E-02 + 0.71367E-03 0.20231E-03 0.91708E-03 0.59293E-02 0.93462E-02 0.16801E-01 + 0.50509E-01 0.10884E+00 0.41792E+00 0.89523E+00 0.14685E+01 0.23052E+01 + 0.35085E+01 0.51053E+01 0.75890E+01 0.10850E+02 0.15840E+02 0.22728E+02 + 0.32688E+02 0.47147E+02 0.68259E+02 0.64044E-04 0.95009E-04 0.22123E-03 + 0.38869E-03 0.59906E-03 0.78674E-03 0.98287E-03 0.12241E-02 0.13852E-02 + 0.16183E-02 0.18582E-02 0.28926E-02 0.33269E-02 0.20881E-02 0.14521E-02 + 0.10564E-01 0.48354E-02 0.27198E-01 0.40189E-01 0.92065E-01 0.37449E+00 + 0.89652E+00 0.17298E+01 0.27363E+01 0.41826E+01 0.60900E+01 0.90756E+01 + 0.12970E+02 0.18953E+02 0.27183E+02 0.39068E+02 0.56282E+02 0.81327E+02 + 0.48220E-03 0.61591E-03 0.79005E-03 0.11070E-02 0.15303E-02 0.20953E-02 + 0.24642E-02 0.29880E-02 0.33637E-02 0.38473E-02 0.44987E-02 0.62956E-02 + 0.55418E-02 0.13801E-01 0.64001E-02 0.19164E-01 0.37576E-02 0.44991E-01 + 0.22173E-01 0.63944E-01 0.30236E+00 0.76458E+00 0.18184E+01 0.31792E+01 + 0.49039E+01 0.71562E+01 0.10720E+02 0.15322E+02 0.22450E+02 0.32206E+02 + 0.46294E+02 0.66676E+02 0.96264E+02 0.15824E-02 0.20151E-02 0.25744E-02 + 0.33003E-02 0.39683E-02 0.47579E-02 0.57806E-02 0.67383E-02 0.75367E-02 + 0.83743E-02 0.92576E-02 0.12545E-01 0.11699E-01 0.12773E-01 0.38641E-01 + 0.31923E-01 0.15816E-01 0.68870E-01 0.00000E+00 0.31314E-01 0.22073E+00 + 0.62624E+00 0.15588E+01 0.35580E+01 0.56624E+01 0.82885E+01 0.12501E+02 + 0.17872E+02 0.26280E+02 0.37731E+02 0.54274E+02 0.78207E+02 0.11292E+03 + 0.35246E-02 0.44757E-02 0.56979E-02 0.72730E-02 0.93174E-02 0.10992E-01 + 0.12182E-01 0.14243E-01 0.15504E-01 0.17133E-01 0.18832E-01 0.23395E-01 + 0.22647E-01 0.24626E-01 0.27493E-01 0.14623E+00 0.34104E-01 0.10342E+00 + 0.29305E-01 0.88841E-02 0.13042E+00 0.46906E+00 0.12925E+01 0.30480E+01 + 0.64950E+01 0.95482E+01 0.14531E+02 0.20784E+02 0.30708E+02 0.44139E+02 + 0.63572E+02 0.91717E+02 0.13254E+03 0.73586E-02 0.93245E-02 0.11838E-01 + 0.15062E-01 0.19218E-01 0.24597E-01 0.29287E-01 0.31725E-01 0.34674E-01 + 0.37341E-01 0.40310E-01 0.48090E-01 0.47105E-01 0.51009E-01 0.56831E-01 + 0.93439E-01 0.22955E+00 0.16929E+00 0.91775E-01 0.93121E-01 0.47986E-01 + 0.16838E+00 0.76074E+00 0.20968E+01 0.49207E+01 0.93178E+01 0.14598E+02 + 0.20997E+02 0.31482E+02 0.45505E+02 0.65904E+02 0.95578E+02 0.13880E+03 + 0.13100E-01 0.16568E-01 0.20988E-01 0.26628E-01 0.33859E-01 0.43156E-01 + 0.55635E-01 0.69460E-01 0.72416E-01 0.77876E-01 0.82463E-01 0.94859E-01 + 0.93180E-01 0.99283E-01 0.10858E+00 0.16274E+00 0.13744E+00 0.76599E+00 + 0.17896E+00 0.20175E+00 0.24642E+00 0.13964E+00 0.24605E+00 0.11898E+01 + 0.32802E+01 0.71088E+01 0.14184E+02 0.20611E+02 0.31648E+02 0.46157E+02 + 0.67436E+02 0.98615E+02 0.14432E+03 0.22297E-01 0.28155E-01 0.35601E-01 + 0.45076E-01 0.57171E-01 0.72643E-01 0.93422E-01 0.12613E+00 0.15516E+00 + 0.16134E+00 0.16940E+00 0.18803E+00 0.18340E+00 0.19263E+00 0.20699E+00 + 0.28807E+00 0.25306E+00 0.44067E+00 0.32828E+00 0.38089E+00 0.54564E+00 + 0.57902E+00 0.45022E+00 0.00000E+00 0.11612E+01 0.32025E+01 0.89499E+01 + 0.15535E+02 0.25616E+02 0.38384E+02 0.57461E+02 0.85903E+02 0.12823E+03 + 0.34351E-01 0.43321E-01 0.54695E-01 0.69129E-01 0.87499E-01 0.11091E+00 + 0.14235E+00 0.19142E+00 0.25637E+00 0.31759E+00 0.32940E+00 0.36327E+00 + 0.35415E+00 0.36713E+00 0.38795E+00 0.50999E+00 0.45616E+00 0.72520E+00 + 0.57376E+00 0.66302E+00 0.97141E+00 0.11629E+01 0.13149E+01 0.13931E+01 + 0.12400E+01 0.11333E+01 0.10421E+01 0.38949E+01 0.11531E+02 0.19830E+02 + 0.32946E+02 0.53467E+02 0.85305E+02 0.52460E-01 0.66068E-01 0.83296E-01 + 0.10512E+00 0.13282E+00 0.16801E+00 0.21528E+00 0.28855E+00 0.38521E+00 + 0.52084E+00 0.64651E+00 0.69950E+00 0.68927E+00 0.70730E+00 0.73602E+00 + 0.92411E+00 0.83218E+00 0.12294E+01 0.10031E+01 0.11382E+01 0.16243E+01 + 0.19996E+01 0.24675E+01 0.31264E+01 0.40579E+01 0.60449E+01 0.77593E+01 + 0.12235E+02 0.15282E+02 0.16213E+02 0.14886E+02 0.10313E+02 0.00000E+00 + 0.80127E-01 0.10077E+00 0.12686E+00 0.15987E+00 0.20169E+00 0.25469E+00 + 0.32587E+00 0.43560E+00 0.57998E+00 0.78052E+00 0.10526E+01 0.13802E+01 + 0.13514E+01 0.13906E+01 0.14316E+01 0.17313E+01 0.15610E+01 0.21703E+01 + 0.17972E+01 0.19898E+01 0.27034E+01 0.32999E+01 0.41370E+01 0.54597E+01 + 0.75997E+01 0.11880E+02 0.17748E+02 0.30424E+02 0.48017E+02 0.82593E+02 + 0.10282E+03 0.12753E+03 0.15715E+03 0.11900E+00 0.14943E+00 0.18788E+00 + 0.23645E+00 0.29789E+00 0.37564E+00 0.48010E+00 0.64050E+00 0.85120E+00 + 0.11416E+01 0.15331E+01 0.21382E+01 0.25677E+01 0.26142E+01 0.26966E+01 + 0.31769E+01 0.28677E+01 0.38010E+01 0.31776E+01 0.34395E+01 0.44397E+01 + 0.53062E+01 0.65868E+01 0.86922E+01 0.12221E+02 0.19080E+02 0.29472E+02 + 0.50755E+02 0.84772E+02 0.14875E+03 0.25236E+03 0.32634E+03 0.42373E+03 + 0.17349E+00 0.21747E+00 0.27298E+00 0.34306E+00 0.43161E+00 0.54353E+00 + 0.69383E+00 0.92395E+00 0.12257E+01 0.16392E+01 0.21937E+01 0.30384E+01 + 0.39054E+01 0.49100E+01 0.50031E+01 0.58372E+01 0.52670E+01 0.67383E+01 + 0.56219E+01 0.59411E+01 0.72366E+01 0.83581E+01 0.10058E+02 0.12912E+02 + 0.17742E+02 0.26988E+02 0.41324E+02 0.69954E+02 0.11733E+03 0.20728E+03 + 0.36853E+03 0.60901E+03 0.79843E+03 0.25210E+00 0.31529E+00 0.39503E+00 + 0.49563E+00 0.62265E+00 0.78301E+00 0.99839E+00 0.13274E+01 0.17583E+01 + 0.23464E+01 0.31317E+01 0.43140E+01 0.55374E+01 0.73459E+01 0.93419E+01 + 0.10676E+02 0.97176E+01 0.12125E+02 0.10108E+02 0.10469E+02 0.12110E+02 + 0.13522E+02 0.15724E+02 0.19501E+02 0.25934E+02 0.38090E+02 0.57034E+02 + 0.94080E+02 0.15589E+03 0.27362E+03 0.48668E+03 0.87340E+03 0.13984E+04 + 0.36373E+00 0.45367E+00 0.56710E+00 0.71017E+00 0.89070E+00 0.11184E+01 + 0.14244E+01 0.18910E+01 0.25017E+01 0.33324E+01 0.44387E+01 0.60873E+01 + 0.78092E+01 0.10325E+02 0.13709E+02 0.19505E+02 0.17687E+02 0.21769E+02 + 0.18243E+02 0.18597E+02 0.20600E+02 0.22310E+02 0.25090E+02 0.30006E+02 + 0.38440E+02 0.54224E+02 0.78701E+02 0.12565E+03 0.20384E+03 0.35096E+03 + 0.62098E+03 0.11099E+04 0.20071E+04 0.55810E+00 0.69359E+00 0.86443E+00 + 0.10798E+01 0.13515E+01 0.16940E+01 0.21547E+01 0.28561E+01 0.37751E+01 + 0.50208E+01 0.66773E+01 0.91146E+01 0.11714E+02 0.15463E+02 0.20477E+02 + 0.29957E+02 0.35146E+02 0.41963E+02 0.35960E+02 0.36472E+02 0.39123E+02 + 0.41422E+02 0.45373E+02 0.52577E+02 0.65000E+02 0.87852E+02 0.12319E+03 + 0.18920E+03 0.29890E+03 0.50189E+03 0.87185E+03 0.15555E+04 0.27980E+04 + 0.76404E+00 0.94526E+00 0.11738E+01 0.14617E+01 0.18249E+01 0.22825E+01 + 0.28977E+01 0.38336E+01 0.50582E+01 0.67163E+01 0.89161E+01 0.12146E+02 + 0.15574E+02 0.20497E+02 0.27045E+02 0.39377E+02 0.47098E+02 0.72034E+02 + 0.60906E+02 0.61500E+02 0.64049E+02 0.65864E+02 0.69623E+02 0.77387E+02 + 0.91330E+02 0.11753E+03 0.15692E+03 0.23009E+03 0.34873E+03 0.56522E+03 + 0.95383E+03 0.16632E+04 0.29760E+04 0.11665E+01 0.14347E+01 0.17728E+01 + 0.21988E+01 0.27358E+01 0.34125E+01 0.43229E+01 0.57067E+01 0.75190E+01 + 0.99676E+01 0.13214E+02 0.17939E+02 0.23038E+02 0.30298E+02 0.39925E+02 + 0.57531E+02 0.69248E+02 0.10617E+03 0.11932E+03 0.11938E+03 0.12368E+03 + 0.12523E+03 0.12972E+03 0.14030E+03 0.15997E+03 0.19705E+03 0.25211E+03 + 0.35236E+03 0.51245E+03 0.79870E+03 0.13047E+04 0.22173E+04 0.38915E+04 + 0.16808E+01 0.20547E+01 0.25258E+01 0.31196E+01 0.38681E+01 0.48109E+01 + 0.60807E+01 0.80097E+01 0.10538E+02 0.13949E+02 0.18471E+02 0.25004E+02 + 0.32161E+02 0.42284E+02 0.55687E+02 0.79605E+02 0.96412E+02 0.14575E+03 + 0.16607E+03 0.21066E+03 0.21652E+03 0.21840E+03 0.22331E+03 0.23704E+03 + 0.26357E+03 0.31400E+03 0.38802E+03 0.52081E+03 0.72975E+03 0.10966E+04 + 0.17353E+04 0.28727E+04 0.49386E+04 0.24308E+01 0.29498E+01 0.36038E+01 + 0.44280E+01 0.54664E+01 0.67748E+01 0.85380E+01 0.11215E+02 0.14727E+02 + 0.19460E+02 0.25732E+02 0.34739E+02 0.44735E+02 0.58796E+02 0.77396E+02 + 0.10989E+03 0.13380E+03 0.19991E+03 0.22991E+03 0.30173E+03 0.37722E+03 + 0.38206E+03 0.38654E+03 0.40356E+03 0.43862E+03 0.50661E+03 0.60519E+03 + 0.78021E+03 0.10509E+04 0.15177E+04 0.23161E+04 0.37162E+04 0.62268E+04 + 0.30443E-09 0.29799E-10 0.79908E-09 0.12967E-08 0.24942E-08 0.52158E-08 + 0.27477E-07 0.58970E-07 0.41382E-07 0.27937E-06 0.39349E-06 0.28837E-04 + 0.17158E-03 0.39356E-04 0.72982E-03 0.11963E-02 0.18824E-02 0.27543E-02 + 0.37494E-02 0.51763E-02 0.70718E-02 0.97171E-02 0.12889E-01 0.17339E-01 + 0.22214E-01 0.29934E-01 0.37892E-01 0.49848E-01 0.63529E-01 0.84394E-01 + 0.10791E+00 0.14389E+00 0.18618E+00 0.14653E-08 0.11814E-08 0.10403E-09 + 0.95227E-09 0.26186E-08 0.53006E-08 0.34297E-07 0.88331E-07 0.60888E-07 + 0.43732E-06 0.87718E-06 0.38241E-04 0.22398E-03 0.50320E-04 0.94130E-03 + 0.15356E-02 0.24075E-02 0.35105E-02 0.47642E-02 0.65607E-02 0.89420E-02 + 0.12258E-01 0.16224E-01 0.21775E-01 0.27831E-01 0.37399E-01 0.47191E-01 + 0.61852E-01 0.78483E-01 0.10371E+00 0.13178E+00 0.17443E+00 0.22374E+00 + 0.40166E-08 0.41432E-08 0.29928E-08 0.15967E-08 0.10420E-08 0.49332E-08 + 0.66407E-07 0.13363E-06 0.11565E-06 0.58123E-06 0.16067E-05 0.56118E-04 + 0.29465E-03 0.64256E-04 0.12209E-02 0.19803E-02 0.30915E-02 0.44893E-02 + 0.60714E-02 0.83355E-02 0.11331E-01 0.15494E-01 0.20463E-01 0.27401E-01 + 0.34943E-01 0.46840E-01 0.58945E-01 0.77009E-01 0.97343E-01 0.12806E+00 + 0.16187E+00 0.21289E+00 0.27106E+00 0.87578E-08 0.10468E-07 0.10385E-07 + 0.95201E-08 0.74091E-08 0.00000E+00 0.13020E-06 0.37065E-06 0.11952E-06 + 0.60157E-06 0.23256E-05 0.83585E-04 0.39104E-03 0.81649E-04 0.15940E-02 + 0.25681E-02 0.39883E-02 0.57635E-02 0.77626E-02 0.10620E-01 0.14395E-01 + 0.19625E-01 0.25860E-01 0.34546E-01 0.43958E-01 0.58787E-01 0.73797E-01 + 0.96144E-01 0.12115E+00 0.15877E+00 0.19978E+00 0.26135E+00 0.33064E+00 + 0.22530E-07 0.23168E-07 0.27191E-07 0.35125E-07 0.33463E-07 0.31800E-07 + 0.16188E-06 0.71791E-06 0.24181E-06 0.94212E-07 0.22053E-05 0.12261E-03 + 0.47734E-03 0.10171E-03 0.20960E-02 0.33505E-02 0.51724E-02 0.74319E-02 + 0.99601E-02 0.13571E-01 0.18331E-01 0.24913E-01 0.32739E-01 0.43628E-01 + 0.55391E-01 0.73909E-01 0.92571E-01 0.12029E+00 0.15116E+00 0.19746E+00 + 0.24754E+00 0.32232E+00 0.40558E+00 0.53713E-07 0.57902E-07 0.58353E-07 + 0.80624E-07 0.12534E-06 0.13094E-06 0.29398E-06 0.14784E-05 0.16790E-05 + 0.23736E-05 0.39686E-06 0.16030E-03 0.57427E-03 0.10856E-03 0.27785E-02 + 0.44018E-02 0.67482E-02 0.96314E-02 0.12833E-01 0.17402E-01 0.23410E-01 + 0.31694E-01 0.41533E-01 0.55187E-01 0.69905E-01 0.93056E-01 0.11630E+00 + 0.15077E+00 0.18899E+00 0.24617E+00 0.30759E+00 0.39898E+00 0.49975E+00 + 0.12521E-06 0.14961E-06 0.15349E-06 0.15211E-06 0.25941E-06 0.42996E-06 + 0.27136E-07 0.20904E-05 0.55346E-05 0.89216E-05 0.75753E-05 0.20357E-03 + 0.70496E-03 0.99940E-04 0.32844E-02 0.58236E-02 0.88592E-02 0.12548E-01 + 0.16605E-01 0.22391E-01 0.29980E-01 0.40410E-01 0.52774E-01 0.69904E-01 + 0.88317E-01 0.11728E+00 0.14624E+00 0.18915E+00 0.23656E+00 0.30736E+00 + 0.38296E+00 0.49509E+00 0.61773E+00 0.31173E-06 0.38030E-06 0.46346E-06 + 0.42991E-06 0.38585E-06 0.81645E-06 0.14753E-05 0.42869E-06 0.14848E-04 + 0.22989E-04 0.25825E-04 0.24329E-03 0.82740E-03 0.72210E-04 0.36412E-02 + 0.68943E-02 0.11709E-01 0.16443E-01 0.21586E-01 0.28919E-01 0.38508E-01 + 0.51635E-01 0.67174E-01 0.88648E-01 0.11167E+00 0.14789E+00 0.18399E+00 + 0.23740E+00 0.29627E+00 0.38402E+00 0.47728E+00 0.61521E+00 0.76508E+00 + 0.65187E-06 0.97853E-06 0.12792E-05 0.15240E-05 0.12043E-05 0.98577E-06 + 0.41088E-05 0.83168E-05 0.36094E-04 0.52433E-04 0.63405E-04 0.27605E-03 + 0.95555E-03 0.00000E+00 0.40921E-02 0.74958E-02 0.13926E-01 0.21663E-01 + 0.28184E-01 0.37480E-01 0.49596E-01 0.66097E-01 0.85604E-01 0.11248E+00 + 0.14123E+00 0.18648E+00 0.23139E+00 0.29780E+00 0.37084E+00 0.47957E+00 + 0.59468E+00 0.76452E+00 0.94805E+00 0.16722E-05 0.29817E-05 0.57233E-05 + 0.77602E-05 0.88269E-05 0.75938E-05 0.52460E-05 0.26249E-04 0.78776E-04 + 0.11599E-03 0.14353E-03 0.28059E-03 0.10304E-02 0.24909E-03 0.45119E-02 + 0.81914E-02 0.14863E-01 0.25904E-01 0.36856E-01 0.48623E-01 0.63901E-01 + 0.84577E-01 0.10899E+00 0.14250E+00 0.17824E+00 0.23455E+00 0.29021E+00 + 0.37249E+00 0.46281E+00 0.59713E+00 0.73884E+00 0.94757E+00 0.11720E+01 + 0.55311E-05 0.10535E-04 0.20721E-04 0.41470E-04 0.56888E-04 0.63107E-04 + 0.52698E-04 0.60789E-04 0.15955E-03 0.24088E-03 0.30754E-03 0.22465E-03 + 0.10281E-02 0.71687E-03 0.48558E-02 0.88149E-02 0.15858E-01 0.27371E-01 + 0.44145E-01 0.63005E-01 0.82210E-01 0.10799E+00 0.13839E+00 0.17993E+00 + 0.22407E+00 0.29377E+00 0.36231E+00 0.46357E+00 0.57461E+00 0.73964E+00 + 0.91320E+00 0.11684E+01 0.14419E+01 0.46913E-04 0.75092E-04 0.10303E-03 + 0.14018E-03 0.19497E-03 0.23849E-03 0.23947E-03 0.23413E-03 0.39645E-03 + 0.50686E-03 0.65402E-03 0.15102E-04 0.80142E-03 0.16756E-02 0.49694E-02 + 0.91169E-02 0.16519E-01 0.28588E-01 0.45621E-01 0.75000E-01 0.10474E+00 + 0.13654E+00 0.17402E+00 0.22490E+00 0.27872E+00 0.36403E+00 0.44730E+00 + 0.57034E+00 0.70516E+00 0.90548E+00 0.11155E+01 0.14239E+01 0.17533E+01 + 0.20408E-03 0.29878E-03 0.40715E-03 0.50004E-03 0.58525E-03 0.67418E-03 + 0.71155E-03 0.73190E-03 0.92618E-03 0.14700E-02 0.13925E-02 0.68965E-03 + 0.10790E-03 0.34921E-02 0.45269E-02 0.88286E-02 0.16384E-01 0.28878E-01 + 0.46079E-01 0.75402E-01 0.12319E+00 0.16967E+00 0.21524E+00 0.27650E+00 + 0.34092E+00 0.44362E+00 0.54283E+00 0.68951E+00 0.85022E+00 0.10890E+01 + 0.13385E+01 0.17043E+01 0.20941E+01 0.67794E-03 0.87388E-03 0.10835E-02 + 0.12819E-02 0.14727E-02 0.16460E-02 0.17760E-02 0.19053E-02 0.22256E-02 + 0.26572E-02 0.49980E-02 0.22880E-02 0.19908E-02 0.70106E-02 0.26975E-02 + 0.69469E-02 0.14456E-01 0.26770E-01 0.43517E-01 0.72121E-01 0.11811E+00 + 0.19293E+00 0.25674E+00 0.32830E+00 0.40292E+00 0.52299E+00 0.63715E+00 + 0.80608E+00 0.99133E+00 0.12666E+01 0.15533E+01 0.19725E+01 0.24187E+01 + 0.16281E-02 0.22085E-02 0.26345E-02 0.30918E-02 0.35107E-02 0.38578E-02 + 0.41436E-02 0.45198E-02 0.51490E-02 0.57138E-02 0.68942E-02 0.12895E-01 + 0.65667E-02 0.13772E-01 0.25101E-02 0.17176E-02 0.87345E-02 0.20112E-01 + 0.34800E-01 0.61104E-01 0.10322E+00 0.17001E+00 0.27467E+00 0.36457E+00 + 0.44652E+00 0.58038E+00 0.70427E+00 0.88779E+00 0.10897E+01 0.13898E+01 + 0.17007E+01 0.21540E+01 0.26359E+01 0.37210E-02 0.46838E-02 0.57858E-02 + 0.65780E-02 0.73948E-02 0.80831E-02 0.85167E-02 0.92207E-02 0.10426E-01 + 0.11400E-01 0.12612E-01 0.12139E-01 0.13818E-01 0.23937E-01 0.11336E-01 + 0.80894E-02 0.00000E+00 0.10419E-01 0.22834E-01 0.46056E-01 0.84299E-01 + 0.14311E+00 0.23544E+00 0.38340E+00 0.48124E+00 0.62853E+00 0.75979E+00 + 0.95440E+00 0.11695E+01 0.14894E+01 0.18186E+01 0.22962E+01 0.28041E+01 + 0.87135E-02 0.99608E-02 0.11573E-01 0.13414E-01 0.14706E-01 0.15992E-01 + 0.16847E-01 0.17588E-01 0.19602E-01 0.21347E-01 0.23226E-01 0.22074E-01 + 0.55906E-01 0.39578E-01 0.24766E-01 0.23214E-01 0.17382E-01 0.58607E-02 + 0.55224E-02 0.25398E-01 0.58492E-01 0.10904E+00 0.18885E+00 0.31318E+00 + 0.48874E+00 0.65418E+00 0.78869E+00 0.98818E+00 0.12103E+01 0.15406E+01 + 0.18773E+01 0.23624E+01 0.28790E+01 0.17900E-01 0.21992E-01 0.23907E-01 + 0.26384E-01 0.29176E-01 0.30988E-01 0.32524E-01 0.33943E-01 0.36914E-01 + 0.39470E-01 0.42497E-01 0.41069E-01 0.47680E-01 0.12607E+00 0.49094E-01 + 0.50258E-01 0.48026E-01 0.42018E-01 0.37837E-01 0.19694E-01 0.11526E-01 + 0.47228E-01 0.10806E+00 0.19856E+00 0.32304E+00 0.56993E+00 0.69186E+00 + 0.87195E+00 0.10757E+01 0.13783E+01 0.16810E+01 0.21104E+01 0.25693E+01 + 0.31256E-01 0.39692E-01 0.48481E-01 0.51174E-01 0.54644E-01 0.58549E-01 + 0.60666E-01 0.63111E-01 0.67210E-01 0.71412E-01 0.75621E-01 0.73568E-01 + 0.82556E-01 0.11294E+00 0.13927E+00 0.92338E-01 0.94212E-01 0.94460E-01 + 0.10159E+00 0.99247E-01 0.84889E-01 0.60484E-01 0.00000E+00 0.52415E-01 + 0.12086E+00 0.27902E+00 0.44448E+00 0.58339E+00 0.74628E+00 0.98601E+00 + 0.12159E+01 0.15294E+01 0.18683E+01 0.49047E-01 0.62176E-01 0.78950E-01 + 0.96121E-01 0.99703E-01 0.10431E+00 0.10891E+00 0.11210E+00 0.11846E+00 + 0.12451E+00 0.13044E+00 0.12701E+00 0.13955E+00 0.17902E+00 0.15148E+00 + 0.19972E+00 0.16122E+00 0.16761E+00 0.18658E+00 0.20014E+00 0.20951E+00 + 0.22300E+00 0.22027E+00 0.21421E+00 0.21241E+00 0.79320E-01 0.00000E+00 + 0.79063E-01 0.18170E+00 0.32631E+00 0.44678E+00 0.58543E+00 0.74364E+00 + 0.76018E-01 0.96229E-01 0.12198E+00 0.15489E+00 0.18818E+00 0.19304E+00 + 0.19826E+00 0.20453E+00 0.21259E+00 0.22010E+00 0.22929E+00 0.22360E+00 + 0.24128E+00 0.29761E+00 0.25378E+00 0.27384E+00 0.27794E+00 0.29363E+00 + 0.33017E+00 0.36704E+00 0.41062E+00 0.47752E+00 0.55462E+00 0.67344E+00 + 0.86779E+00 0.10336E+01 0.14155E+01 0.19547E+01 0.26075E+01 0.28478E+01 + 0.33063E+01 0.39835E+01 0.48184E+01 0.10903E+00 0.13785E+00 0.17448E+00 + 0.22117E+00 0.28084E+00 0.34090E+00 0.34657E+00 0.35444E+00 0.36887E+00 + 0.37828E+00 0.38991E+00 0.37972E+00 0.40255E+00 0.48234E+00 0.41680E+00 + 0.43303E+00 0.44946E+00 0.47314E+00 0.52727E+00 0.58647E+00 0.66242E+00 + 0.78019E+00 0.93158E+00 0.11657E+01 0.15390E+01 0.19688E+01 0.27920E+01 + 0.39665E+01 0.57130E+01 0.79024E+01 0.94284E+01 0.11504E+02 0.14121E+02 + 0.15570E+00 0.19666E+00 0.24862E+00 0.31469E+00 0.39889E+00 0.50647E+00 + 0.61226E+00 0.62314E+00 0.64539E+00 0.66521E+00 0.68154E+00 0.66413E+00 + 0.69450E+00 0.80993E+00 0.71133E+00 0.73377E+00 0.75789E+00 0.79485E+00 + 0.87704E+00 0.97213E+00 0.10997E+01 0.12969E+01 0.15628E+01 0.19709E+01 + 0.26096E+01 0.34258E+01 0.48619E+01 0.70144E+01 0.10161E+02 0.14945E+02 + 0.21256E+02 0.25913E+02 0.31830E+02 0.21543E+00 0.27186E+00 0.34334E+00 + 0.43407E+00 0.54941E+00 0.69635E+00 0.88088E+00 0.10658E+01 0.10971E+01 + 0.11267E+01 0.11603E+01 0.11297E+01 0.11667E+01 0.13332E+01 0.11792E+01 + 0.12053E+01 0.12338E+01 0.12815E+01 0.13931E+01 0.15246E+01 0.17046E+01 + 0.19841E+01 0.23664E+01 0.29501E+01 0.38527E+01 0.50402E+01 0.70588E+01 + 0.10096E+02 0.14672E+02 0.21432E+02 0.32217E+02 0.45777E+02 0.55954E+02 + 0.32052E+00 0.40413E+00 0.50997E+00 0.64406E+00 0.81423E+00 0.10305E+01 + 0.13021E+01 0.16488E+01 0.20147E+01 0.20579E+01 0.21119E+01 0.20837E+01 + 0.21362E+01 0.23857E+01 0.21521E+01 0.21921E+01 0.22388E+01 0.23187E+01 + 0.24970E+01 0.27140E+01 0.30159E+01 0.34779E+01 0.41173E+01 0.50798E+01 + 0.65411E+01 0.85212E+01 0.11752E+02 0.16598E+02 0.23946E+02 0.35080E+02 + 0.52164E+02 0.79157E+02 0.11138E+03 0.46592E+00 0.58705E+00 0.74019E+00 + 0.93397E+00 0.11796E+01 0.14911E+01 0.18822E+01 0.23800E+01 0.30393E+01 + 0.36897E+01 0.37666E+01 0.37250E+01 0.38316E+01 0.42047E+01 0.38408E+01 + 0.38942E+01 0.39589E+01 0.40756E+01 0.43388E+01 0.46638E+01 0.51193E+01 + 0.58126E+01 0.67735E+01 0.82041E+01 0.10345E+02 0.13266E+02 0.17912E+02 + 0.24828E+02 0.35246E+02 0.51103E+02 0.75666E+02 0.11323E+03 0.17212E+03 + 0.66582E+00 0.83822E+00 0.10560E+01 0.13315E+01 0.16801E+01 0.21218E+01 + 0.26760E+01 0.33798E+01 0.43055E+01 0.54672E+01 0.66337E+01 0.65549E+01 + 0.67749E+01 0.73327E+01 0.67560E+01 0.68180E+01 0.68959E+01 0.70513E+01 + 0.74213E+01 0.78809E+01 0.85304E+01 0.95184E+01 0.10886E+02 0.12905E+02 + 0.15889E+02 0.19952E+02 0.26293E+02 0.35635E+02 0.49575E+02 0.70626E+02 + 0.10328E+03 0.15355E+03 0.23011E+03 0.98835E+00 0.12434E+01 0.15653E+01 + 0.19720E+01 0.24864E+01 0.31374E+01 0.39542E+01 0.49899E+01 0.63427E+01 + 0.80400E+01 0.10205E+02 0.12045E+02 0.12384E+02 0.13359E+02 0.12454E+02 + 0.12537E+02 0.12646E+02 0.12877E+02 0.13434E+02 0.14131E+02 0.15120E+02 + 0.16616E+02 0.18680E+02 0.21694E+02 0.26089E+02 0.32056E+02 0.41179E+02 + 0.54466E+02 0.74087E+02 0.10343E+03 0.14845E+03 0.21801E+03 0.32432E+03 + 0.14354E+01 0.18041E+01 0.22696E+01 0.28571E+01 0.35997E+01 0.45386E+01 + 0.57165E+01 0.72084E+01 0.91466E+01 0.11577E+02 0.14670E+02 0.18179E+02 + 0.22154E+02 0.23681E+02 0.22464E+02 0.22552E+02 0.22677E+02 0.22984E+02 + 0.23777E+02 0.24775E+02 0.26199E+02 0.28356E+02 0.31325E+02 0.35628E+02 + 0.41833E+02 0.50202E+02 0.62787E+02 0.80891E+02 0.10730E+03 0.14637E+03 + 0.20557E+03 0.29607E+03 0.43538E+03 0.20512E+01 0.25756E+01 0.32372E+01 + 0.40723E+01 0.51269E+01 0.64588E+01 0.81306E+01 0.10245E+02 0.12981E+02 + 0.16412E+02 0.20766E+02 0.25761E+02 0.39107E+02 0.41377E+02 0.39550E+02 + 0.39956E+02 0.40057E+02 0.40423E+02 0.41508E+02 0.42875E+02 0.44850E+02 + 0.47863E+02 0.52007E+02 0.57988E+02 0.66542E+02 0.77977E+02 0.94948E+02 + 0.11905E+03 0.15376E+03 0.20447E+03 0.28033E+03 0.39496E+03 0.56962E+03 + 0.29956E+01 0.37570E+01 0.47175E+01 0.59292E+01 0.74590E+01 0.93897E+01 + 0.11814E+02 0.14877E+02 0.18825E+02 0.23776E+02 0.30050E+02 0.37333E+02 + 0.59255E+02 0.74207E+02 0.71247E+02 0.72067E+02 0.72706E+02 0.73155E+02 + 0.74689E+02 0.76627E+02 0.79456E+02 0.83801E+02 0.89770E+02 0.98347E+02 + 0.11052E+03 0.12665E+03 0.15029E+03 0.18344E+03 0.23058E+03 0.29854E+03 + 0.39883E+03 0.54845E+03 0.77385E+03 0.44291E+01 0.55473E+01 0.69575E+01 + 0.87359E+01 0.10980E+02 0.13812E+02 0.17369E+02 0.21859E+02 0.27627E+02 + 0.34862E+02 0.44018E+02 0.54768E+02 0.86819E+02 0.11457E+03 0.13037E+03 + 0.13145E+03 0.13293E+03 0.13447E+03 0.13667E+03 0.13945E+03 0.14357E+03 + 0.14992E+03 0.15865E+03 0.17114E+03 0.18874E+03 0.21190E+03 0.24543E+03 + 0.29188E+03 0.35708E+03 0.44987E+03 0.58490E+03 0.78361E+03 0.10793E+04 + 0.64259E+01 0.80351E+01 0.10064E+02 0.12622E+02 0.15849E+02 0.19919E+02 + 0.25032E+02 0.31484E+02 0.39751E+02 0.50119E+02 0.63230E+02 0.78751E+02 + 0.12468E+03 0.16371E+03 0.20099E+03 0.23543E+03 0.23726E+03 0.24055E+03 + 0.24517E+03 0.24898E+03 0.25470E+03 0.26368E+03 0.27603E+03 0.29373E+03 + 0.31856E+03 0.35100E+03 0.39754E+03 0.46129E+03 0.54970E+03 0.67387E+03 + 0.85208E+03 0.11107E+04 0.14905E+04 0.23962E-09 0.28160E-10 0.45500E-09 + 0.18011E-08 0.39373E-08 0.68683E-08 0.46733E-07 0.92329E-07 0.28024E-06 + 0.38831E-06 0.92330E-06 0.81276E-05 0.32008E-04 0.14241E-03 0.61409E-03 + 0.18547E-02 0.44691E-02 0.89178E-02 0.15614E-01 0.24699E-01 0.40389E-01 + 0.62586E-01 0.98103E-01 0.14638E+00 0.20556E+00 0.28147E+00 0.38156E+00 + 0.51920E+00 0.70114E+00 0.96444E+00 0.13205E+01 0.18249E+01 0.25510E+01 + 0.11217E-08 0.92981E-09 0.53519E-09 0.56221E-09 0.27253E-08 0.66499E-08 + 0.62644E-07 0.12697E-06 0.32869E-06 0.44985E-06 0.15726E-05 0.13543E-04 + 0.68316E-04 0.18177E-03 0.78203E-03 0.23567E-02 0.56666E-02 0.11286E-01 + 0.19730E-01 0.31166E-01 0.50905E-01 0.78780E-01 0.12333E+00 0.18376E+00 + 0.25761E+00 0.35199E+00 0.47596E+00 0.64556E+00 0.86820E+00 0.11881E+01 + 0.16163E+01 0.22162E+01 0.30686E+01 0.30976E-08 0.31717E-08 0.31556E-08 + 0.18011E-08 0.82555E-09 0.36647E-08 0.75894E-07 0.18646E-06 0.46516E-06 + 0.86669E-06 0.28703E-05 0.23111E-04 0.11577E-03 0.26094E-03 0.99813E-03 + 0.30003E-02 0.71964E-02 0.14303E-01 0.24958E-01 0.39362E-01 0.64204E-01 + 0.99251E-01 0.15518E+00 0.23092E+00 0.32324E+00 0.44089E+00 0.59487E+00 + 0.80467E+00 0.10786E+01 0.14697E+01 0.19887E+01 0.27088E+01 0.37202E+01 + 0.55697E-08 0.80728E-08 0.88386E-08 0.88912E-08 0.80610E-08 0.59446E-08 + 0.92244E-07 0.26278E-06 0.70812E-06 0.17137E-05 0.56898E-05 0.45853E-04 + 0.17779E-03 0.37195E-03 0.12257E-02 0.38279E-02 0.91561E-02 0.18153E-01 + 0.31609E-01 0.49761E-01 0.81052E-01 0.12512E+00 0.19541E+00 0.29044E+00 + 0.40601E+00 0.55293E+00 0.74468E+00 0.10051E+01 0.13434E+01 0.18241E+01 + 0.24575E+01 0.33286E+01 0.45400E+01 0.15568E-07 0.14736E-07 0.22200E-07 + 0.24767E-07 0.27059E-07 0.31356E-07 0.87214E-07 0.27816E-06 0.11474E-05 + 0.23146E-05 0.96460E-05 0.75640E-04 0.22875E-03 0.51466E-03 0.14750E-02 + 0.46324E-02 0.11666E-01 0.23067E-01 0.40068E-01 0.62951E-01 0.10238E+00 + 0.15784E+00 0.24621E+00 0.36552E+00 0.51031E+00 0.69404E+00 0.93324E+00 + 0.12572E+01 0.16764E+01 0.22698E+01 0.30466E+01 0.41077E+01 0.55702E+01 + 0.20633E-07 0.37657E-07 0.38634E-07 0.61517E-07 0.69720E-07 0.81320E-07 + 0.47554E-07 0.33503E-06 0.14369E-05 0.55123E-05 0.16291E-04 0.10998E-03 + 0.28602E-03 0.61817E-03 0.17929E-02 0.51570E-02 0.14450E-01 0.29349E-01 + 0.50837E-01 0.79690E-01 0.12939E+00 0.19918E+00 0.31033E+00 0.46016E+00 + 0.64170E+00 0.87159E+00 0.11704E+01 0.15741E+01 0.20949E+01 0.28296E+01 + 0.37863E+01 0.50856E+01 0.68633E+01 0.40552E-07 0.54798E-07 0.84030E-07 + 0.11510E-06 0.16525E-06 0.19874E-06 0.51086E-07 0.14971E-06 0.18269E-05 + 0.82764E-05 0.24191E-04 0.13175E-03 0.32919E-03 0.71679E-03 0.20572E-02 + 0.58110E-02 0.15310E-01 0.37357E-01 0.64517E-01 0.10088E+00 0.16352E+00 + 0.25133E+00 0.39112E+00 0.57927E+00 0.80685E+00 0.10946E+01 0.14678E+01 + 0.19714E+01 0.26193E+01 0.35307E+01 0.47127E+01 0.63097E+01 0.84817E+01 + 0.81979E-07 0.10803E-06 0.15123E-06 0.24023E-06 0.40407E-06 0.60601E-06 + 0.37634E-06 0.10960E-06 0.11143E-05 0.80850E-05 0.33447E-04 0.14035E-03 + 0.35539E-03 0.76893E-03 0.22649E-02 0.64311E-02 0.16356E-01 0.39065E-01 + 0.81865E-01 0.12766E+00 0.20659E+00 0.31701E+00 0.49273E+00 0.72892E+00 + 0.10139E+01 0.13738E+01 0.18401E+01 0.24681E+01 0.32744E+01 0.44063E+01 + 0.58691E+01 0.78376E+01 0.10501E+02 0.17942E-06 0.24207E-06 0.28916E-06 + 0.44388E-06 0.82442E-06 0.14264E-05 0.16295E-05 0.11337E-05 0.11488E-06 + 0.29855E-05 0.21964E-04 0.12739E-03 0.34326E-03 0.76329E-03 0.23478E-02 + 0.67897E-02 0.17445E-01 0.40486E-01 0.88208E-01 0.16128E+00 0.26062E+00 + 0.39927E+00 0.61995E+00 0.91604E+00 0.12725E+01 0.17220E+01 0.23034E+01 + 0.30859E+01 0.40885E+01 0.54939E+01 0.73047E+01 0.97333E+01 0.13006E+02 + 0.37674E-06 0.47971E-06 0.62415E-06 0.10431E-05 0.20425E-05 0.45387E-05 + 0.77040E-05 0.94573E-05 0.46647E-05 0.34630E-05 0.19536E-04 0.59970E-04 + 0.25752E-03 0.64507E-03 0.22396E-02 0.68678E-02 0.17699E-01 0.41861E-01 + 0.89099E-01 0.18049E+00 0.32726E+00 0.50082E+00 0.77719E+00 0.11473E+01 + 0.15917E+01 0.21509E+01 0.28735E+01 0.38451E+01 0.50875E+01 0.68279E+01 + 0.90641E+01 0.12055E+02 0.16071E+02 0.77676E-06 0.10121E-05 0.13189E-05 + 0.23730E-05 0.65943E-05 0.15095E-04 0.33931E-04 0.59692E-04 0.59895E-04 + 0.54389E-04 0.93878E-04 0.91298E-04 0.37808E-04 0.34677E-03 0.18569E-02 + 0.65347E-02 0.17460E-01 0.41658E-01 0.89205E-01 0.17984E+00 0.38096E+00 + 0.62401E+00 0.96877E+00 0.14294E+01 0.19803E+01 0.26722E+01 0.35649E+01 + 0.47647E+01 0.62962E+01 0.84406E+01 0.11189E+02 0.14858E+02 0.19770E+02 + 0.33636E-05 0.58776E-05 0.92555E-05 0.25481E-04 0.54318E-04 0.96211E-04 + 0.14075E-03 0.20853E-03 0.25605E-03 0.29388E-03 0.33210E-03 0.43870E-03 + 0.46705E-03 0.37153E-03 0.98718E-03 0.54224E-02 0.16050E-01 0.39938E-01 + 0.86052E-01 0.17553E+00 0.37348E+00 0.75032E+00 0.11925E+01 0.17608E+01 + 0.24368E+01 0.32833E+01 0.43736E+01 0.58384E+01 0.77041E+01 0.10320E+02 + 0.13662E+02 0.18115E+02 0.24064E+02 0.24303E-04 0.44319E-04 0.74840E-04 + 0.12607E-03 0.23020E-03 0.37380E-03 0.52215E-03 0.65887E-03 0.76687E-03 + 0.91296E-03 0.10608E-02 0.15401E-02 0.15368E-02 0.18269E-02 0.95442E-03 + 0.30472E-02 0.12987E-01 0.35738E-01 0.78660E-01 0.16405E+00 0.35664E+00 + 0.72018E+00 0.14402E+01 0.21327E+01 0.29500E+01 0.39691E+01 0.52791E+01 + 0.70390E+01 0.92739E+01 0.12413E+02 0.16412E+02 0.21733E+02 0.28827E+02 + 0.88113E-04 0.11265E-03 0.22910E-03 0.45233E-03 0.74710E-03 0.10457E-02 + 0.13349E-02 0.16529E-02 0.18987E-02 0.22718E-02 0.27123E-02 0.31186E-02 + 0.99262E-02 0.49186E-02 0.48846E-02 0.20441E-02 0.61375E-02 0.26090E-01 + 0.63879E-01 0.13995E+00 0.32058E+00 0.66133E+00 0.13784E+01 0.25029E+01 + 0.34658E+01 0.46587E+01 0.61867E+01 0.82410E+01 0.10839E+02 0.14501E+02 + 0.19147E+02 0.25322E+02 0.33543E+02 0.40412E-03 0.51571E-03 0.66153E-03 + 0.11002E-02 0.17655E-02 0.25336E-02 0.32051E-02 0.38775E-02 0.44312E-02 + 0.51819E-02 0.62258E-02 0.71787E-02 0.89346E-02 0.29889E-01 0.12573E-01 + 0.11896E-01 0.69529E-02 0.78712E-02 0.36672E-01 0.97263E-01 0.25270E+00 + 0.55621E+00 0.12045E+01 0.23962E+01 0.38692E+01 0.52028E+01 0.69017E+01 + 0.91887E+01 0.12060E+02 0.16141E+02 0.21280E+02 0.28105E+02 0.37182E+02 + 0.13569E-02 0.17278E-02 0.22094E-02 0.29878E-02 0.39687E-02 0.53505E-02 + 0.67016E-02 0.80485E-02 0.91150E-02 0.10290E-01 0.12218E-01 0.14059E-01 + 0.16512E-01 0.20762E-01 0.33763E-01 0.25538E-01 0.24158E-01 0.14796E-01 + 0.44903E-02 0.49041E-01 0.17906E+00 0.43750E+00 0.10241E+01 0.20902E+01 + 0.38339E+01 0.57114E+01 0.75676E+01 0.10072E+02 0.13185E+02 0.17660E+02 + 0.23245E+02 0.30655E+02 0.40500E+02 0.31848E-02 0.40463E-02 0.51595E-02 + 0.69488E-02 0.91684E-02 0.10974E-01 0.13397E-01 0.15612E-01 0.17634E-01 + 0.19700E-01 0.21983E-01 0.25586E-01 0.29450E-01 0.35066E-01 0.41782E-01 + 0.46425E-01 0.47766E-01 0.44338E-01 0.35299E-01 0.76918E-02 0.96430E-01 + 0.30921E+00 0.82099E+00 0.17733E+01 0.32833E+01 0.57991E+01 0.81033E+01 + 0.10785E+02 0.14076E+02 0.18877E+02 0.24799E+02 0.32652E+02 0.43077E+02 + 0.64001E-02 0.81164E-02 0.10325E-01 0.13854E-01 0.18681E-01 0.23569E-01 + 0.26472E-01 0.30622E-01 0.33496E-01 0.36997E-01 0.41093E-01 0.45665E-01 + 0.52167E-01 0.60744E-01 0.69824E-01 0.10405E+00 0.88212E-01 0.92571E-01 + 0.98328E-01 0.94615E-01 0.26372E-01 0.12452E+00 0.53429E+00 0.13133E+01 + 0.25300E+01 0.45015E+01 0.78207E+01 0.10507E+02 0.13662E+02 0.18402E+02 + 0.24118E+02 0.31696E+02 0.41752E+02 0.11204E-01 0.14186E-01 0.18009E-01 + 0.24093E-01 0.32360E-01 0.43676E-01 0.52036E-01 0.56673E-01 0.62446E-01 + 0.67404E-01 0.73525E-01 0.80726E-01 0.89771E-01 0.10222E+00 0.11565E+00 + 0.12952E+00 0.36955E+00 0.16075E+00 0.18335E+00 0.20622E+00 0.17622E+00 + 0.90493E-01 0.21453E+00 0.80827E+00 0.17078E+01 0.31321E+01 0.54747E+01 + 0.92726E+01 0.12002E+02 0.16330E+02 0.21343E+02 0.27988E+02 0.36800E+02 + 0.17624E-01 0.22282E-01 0.28240E-01 0.37686E-01 0.50453E-01 0.67815E-01 + 0.91159E-01 0.10319E+00 0.10941E+00 0.11838E+00 0.12696E+00 0.13731E+00 + 0.14995E+00 0.16717E+00 0.18565E+00 0.20510E+00 0.22836E+00 0.97087E+00 + 0.29426E+00 0.34412E+00 0.35048E+00 0.32624E+00 0.11654E+00 0.30822E+00 + 0.89885E+00 0.18101E+01 0.32588E+01 0.58906E+01 0.90964E+01 0.12693E+02 + 0.16533E+02 0.21622E+02 0.28369E+02 0.27375E-01 0.34570E-01 0.43751E-01 + 0.58263E-01 0.77797E-01 0.10422E+00 0.13959E+00 0.18817E+00 0.20066E+00 + 0.21203E+00 0.22565E+00 0.23834E+00 0.25648E+00 0.28076E+00 0.30655E+00 + 0.33411E+00 0.36834E+00 0.40933E+00 0.10559E+01 0.56302E+00 0.62068E+00 + 0.68140E+00 0.60092E+00 0.40052E+00 0.21269E+00 0.00000E+00 0.28555E+00 + 0.94228E+00 0.15756E+01 0.34855E+01 0.45210E+01 0.58931E+01 0.77120E+01 + 0.39347E-01 0.49632E-01 0.62740E-01 0.83402E-01 0.11112E+00 0.14844E+00 + 0.19820E+00 0.26608E+00 0.35120E+00 0.36513E+00 0.38434E+00 0.40287E+00 + 0.42575E+00 0.45821E+00 0.49189E+00 0.52737E+00 0.57210E+00 0.62730E+00 + 0.71757E+00 0.84356E+00 0.94696E+00 0.10835E+01 0.11120E+01 0.11022E+01 + 0.12627E+01 0.16521E+01 0.23943E+01 0.34615E+01 0.57238E+01 0.82208E+01 + 0.11577E+02 0.15031E+02 0.19608E+02 0.56324E-01 0.70975E-01 0.89609E-01 + 0.11894E+00 0.15816E+00 0.21081E+00 0.28079E+00 0.37568E+00 0.50243E+00 + 0.63772E+00 0.66448E+00 0.69568E+00 0.72995E+00 0.77474E+00 0.82016E+00 + 0.86757E+00 0.92844E+00 0.10059E+01 0.11352E+01 0.13197E+01 0.14955E+01 + 0.17501E+01 0.19475E+01 0.22251E+01 0.28956E+01 0.41483E+01 0.63412E+01 + 0.98520E+01 0.16271E+02 0.25554E+02 0.42907E+02 0.57691E+02 0.74971E+02 + 0.78130E-01 0.98345E-01 0.12404E+00 0.16439E+00 0.21827E+00 0.29036E+00 + 0.38595E+00 0.51493E+00 0.68646E+00 0.92475E+00 0.11209E+01 0.11619E+01 + 0.12207E+01 0.12815E+01 0.13393E+01 0.13975E+01 0.14731E+01 0.15711E+01 + 0.17403E+01 0.19855E+01 0.22302E+01 0.25989E+01 0.29504E+01 0.34928E+01 + 0.46403E+01 0.66920E+01 0.10205E+02 0.15891E+02 0.26063E+02 0.41546E+02 + 0.69047E+02 0.11528E+03 0.14910E+03 0.11657E+00 0.14657E+00 0.18465E+00 + 0.24443E+00 0.32407E+00 0.43040E+00 0.57123E+00 0.76056E+00 0.10118E+01 + 0.13578E+01 0.18313E+01 0.21072E+01 0.21920E+01 0.23080E+01 0.23910E+01 + 0.24748E+01 0.25861E+01 0.27351E+01 0.29937E+01 0.33728E+01 0.37854E+01 + 0.44209E+01 0.51495E+01 0.63075E+01 0.84968E+01 0.12247E+02 0.18523E+02 + 0.28726E+02 0.46429E+02 0.74801E+02 0.12347E+03 0.20566E+03 0.32801E+03 + 0.17001E+00 0.21350E+00 0.26869E+00 0.35521E+00 0.47034E+00 0.62372E+00 + 0.82674E+00 0.10987E+01 0.14591E+01 0.19519E+01 0.26219E+01 0.35216E+01 + 0.38742E+01 0.40432E+01 0.42014E+01 0.43140E+01 0.44666E+01 0.46757E+01 + 0.50461E+01 0.55939E+01 0.62115E+01 0.71739E+01 0.83529E+01 0.10240E+02 + 0.13649E+02 0.19350E+02 0.28732E+02 0.43904E+02 0.69751E+02 0.11147E+03 + 0.18383E+03 0.30332E+03 0.50645E+03 0.24388E+00 0.30585E+00 0.38444E+00 + 0.50756E+00 0.67117E+00 0.88894E+00 0.11768E+01 0.15616E+01 0.20705E+01 + 0.27627E+01 0.36986E+01 0.49496E+01 0.66601E+01 0.70048E+01 0.72438E+01 + 0.74469E+01 0.76438E+01 0.79201E+01 0.84283E+01 0.91876E+01 0.10055E+02 + 0.11421E+02 0.13145E+02 0.15911E+02 0.20785E+02 0.28781E+02 0.41740E+02 + 0.62502E+02 0.97333E+02 0.15349E+03 0.24972E+03 0.41265E+03 0.68110E+03 + 0.36373E+00 0.45544E+00 0.57167E+00 0.75367E+00 0.99532E+00 0.13165E+01 + 0.17412E+01 0.23074E+01 0.30560E+01 0.40691E+01 0.54329E+01 0.72506E+01 + 0.97197E+01 0.12706E+02 0.13044E+02 0.13414E+02 0.13769E+02 0.14167E+02 + 0.14914E+02 0.16038E+02 0.17348E+02 0.19419E+02 0.22104E+02 0.26387E+02 + 0.33717E+02 0.45497E+02 0.64269E+02 0.94013E+02 0.14310E+03 0.22196E+03 + 0.35535E+03 0.57986E+03 0.95794E+03 0.53126E+00 0.66395E+00 0.83209E+00 + 0.10952E+01 0.14443E+01 0.19080E+01 0.25206E+01 0.33365E+01 0.44140E+01 + 0.58669E+01 0.78160E+01 0.10407E+02 0.13907E+02 0.18673E+02 0.23113E+02 + 0.23602E+02 0.24293E+02 0.24899E+02 0.25942E+02 0.27530E+02 0.29390E+02 + 0.32354E+02 0.36240E+02 0.42427E+02 0.52824E+02 0.69253E+02 0.95006E+02 + 0.13528E+03 0.20070E+03 0.30499E+03 0.47919E+03 0.76990E+03 0.12602E+04 + 0.76453E+00 0.95328E+00 0.11924E+01 0.15665E+01 0.20626E+01 0.27209E+01 + 0.35906E+01 0.47473E+01 0.62742E+01 0.83264E+01 0.11072E+02 0.14713E+02 + 0.19611E+02 0.26240E+02 0.35005E+02 0.41100E+02 0.41983E+02 0.43265E+02 + 0.44671E+02 0.46838E+02 0.49364E+02 0.53454E+02 0.58842E+02 0.67434E+02 + 0.81720E+02 0.10396E+03 0.13829E+03 0.19120E+03 0.27579E+03 0.40919E+03 + 0.62915E+03 0.99261E+03 0.16006E+04 0.11261E+01 0.14003E+01 0.17476E+01 + 0.22908E+01 0.30107E+01 0.39654E+01 0.52267E+01 0.69023E+01 0.91141E+01 + 0.12079E+02 0.16037E+02 0.21278E+02 0.28303E+02 0.37767E+02 0.50256E+02 + 0.66746E+02 0.74763E+02 0.76485E+02 0.79394E+02 0.82450E+02 0.86010E+02 + 0.91850E+02 0.99584E+02 0.11192E+03 0.13218E+03 0.16327E+03 0.21050E+03 + 0.28220E+03 0.39495E+03 0.57060E+03 0.85611E+03 0.13226E+04 0.20954E+04 + 0.16826E+01 0.20854E+01 0.25954E+01 0.33929E+01 0.44496E+01 0.58504E+01 + 0.77008E+01 0.10157E+02 0.13400E+02 0.17737E+02 0.23515E+02 0.31161E+02 + 0.41382E+02 0.55100E+02 0.73180E+02 0.97018E+02 0.12890E+03 0.13787E+03 + 0.14229E+03 0.14812E+03 0.15322E+03 0.16169E+03 0.17296E+03 0.19092E+03 + 0.22012E+03 0.26431E+03 0.33040E+03 0.42924E+03 0.58204E+03 0.81689E+03 + 0.11929E+04 0.17994E+04 0.27932E+04 0.24728E+01 0.30523E+01 0.37864E+01 + 0.49339E+01 0.64535E+01 0.84675E+01 0.11128E+02 0.14658E+02 0.19316E+02 + 0.25537E+02 0.33814E+02 0.44757E+02 0.59349E+02 0.78880E+02 0.10459E+03 + 0.13843E+03 0.18351E+03 0.24394E+03 0.25055E+03 0.25978E+03 0.26869E+03 + 0.28049E+03 0.29623E+03 0.32149E+03 0.36244E+03 0.42373E+03 0.51414E+03 + 0.64737E+03 0.84995E+03 0.11567E+04 0.16402E+04 0.24092E+04 0.36538E+04 + 0.12093E-09 0.23113E-09 0.77472E-09 0.22481E-08 0.41405E-08 0.75803E-08 + 0.59879E-07 0.10113E-06 0.27709E-06 0.42244E-06 0.84627E-06 0.70575E-06 + 0.42356E-04 0.19699E-03 0.69858E-03 0.15502E-03 0.33699E-02 0.46345E-04 + 0.10653E-01 0.16860E-01 0.37768E-01 0.63224E-01 0.10348E+00 0.16343E+00 + 0.25177E+00 0.37426E+00 0.56958E+00 0.84456E+00 0.12893E+01 0.19663E+01 + 0.30589E+01 0.48707E+01 0.79624E+01 0.10470E-08 0.81583E-09 0.42801E-09 + 0.99924E-09 0.32713E-08 0.79816E-08 0.72274E-07 0.13922E-06 0.33340E-06 + 0.51801E-06 0.13166E-05 0.11250E-05 0.87001E-04 0.25177E-03 0.88988E-03 + 0.19303E-03 0.42703E-02 0.48391E-04 0.13454E-01 0.21264E-01 0.47517E-01 + 0.79422E-01 0.12975E+00 0.20445E+00 0.31402E+00 0.46492E+00 0.70380E+00 + 0.10363E+01 0.15677E+01 0.23637E+01 0.36261E+01 0.56801E+01 0.91171E+01 + 0.30563E-08 0.32009E-08 0.31995E-08 0.21355E-08 0.24403E-09 0.51929E-08 + 0.91450E-07 0.21365E-06 0.48440E-06 0.92637E-06 0.21372E-05 0.19153E-05 + 0.14557E-03 0.36411E-03 0.11363E-02 0.23807E-03 0.54188E-02 0.41500E-04 + 0.17006E-01 0.26838E-01 0.59822E-01 0.99850E-01 0.16287E+00 0.25612E+00 + 0.39241E+00 0.57904E+00 0.87274E+00 0.12775E+01 0.19180E+01 0.28637E+01 + 0.43397E+01 0.66983E+01 0.10569E+02 0.63577E-08 0.82162E-08 0.92826E-08 + 0.90699E-08 0.84752E-08 0.38736E-08 0.11366E-06 0.28754E-06 0.75802E-06 + 0.17625E-05 0.48809E-05 0.33963E-05 0.22120E-03 0.52188E-03 0.13964E-02 + 0.28883E-03 0.68857E-02 0.14456E-04 0.21513E-01 0.33894E-01 0.75357E-01 + 0.12561E+00 0.20459E+00 0.32120E+00 0.49108E+00 0.72264E+00 0.10853E+01 + 0.15810E+01 0.23585E+01 0.34925E+01 0.52371E+01 0.79786E+01 0.12396E+02 + 0.13919E-07 0.17112E-07 0.22980E-07 0.25593E-07 0.27836E-07 0.26906E-07 + 0.11295E-06 0.34242E-06 0.11802E-05 0.23797E-05 0.89717E-05 0.36587E-05 + 0.28622E-03 0.72727E-03 0.16798E-02 0.32043E-03 0.87556E-02 0.64499E-04 + 0.27221E-01 0.42813E-01 0.94927E-01 0.15802E+00 0.25707E+00 0.40302E+00 + 0.61508E+00 0.90306E+00 0.13522E+01 0.19621E+01 0.29119E+01 0.42820E+01 + 0.63635E+01 0.95856E+01 0.14687E+02 0.28990E-07 0.35814E-07 0.45273E-07 + 0.59899E-07 0.70173E-07 0.75055E-07 0.82541E-07 0.33358E-06 0.14024E-05 + 0.57189E-05 0.18227E-04 0.00000E+00 0.35929E-03 0.88022E-03 0.20428E-02 + 0.30106E-03 0.10965E-01 0.24744E-03 0.34445E-01 0.54072E-01 0.11954E+00 + 0.19877E+00 0.32299E+00 0.50573E+00 0.77068E+00 0.11293E+01 0.16870E+01 + 0.24398E+01 0.36052E+01 0.52715E+01 0.77752E+01 0.11599E+02 0.17559E+02 + 0.48280E-07 0.69170E-07 0.98560E-07 0.12930E-06 0.17397E-06 0.19479E-06 + 0.46571E-08 0.20024E-06 0.18260E-05 0.79531E-05 0.30494E-04 0.12238E-04 + 0.41869E-03 0.10367E-02 0.23535E-02 0.23440E-03 0.11534E-01 0.66560E-03 + 0.43524E-01 0.68201E-01 0.15034E+00 0.24974E+00 0.40543E+00 0.63411E+00 + 0.96516E+00 0.14120E+01 0.21052E+01 0.30364E+01 0.44712E+01 0.65067E+01 + 0.95372E+01 0.14113E+02 0.21142E+02 0.95464E-07 0.12950E-06 0.17910E-06 + 0.30019E-06 0.42461E-06 0.57000E-06 0.24558E-06 0.43764E-07 0.11087E-05 + 0.83665E-05 0.47505E-04 0.38779E-04 0.46406E-03 0.11433E-02 0.26040E-02 + 0.76318E-04 0.12196E-01 0.12928E-02 0.54860E-01 0.85826E-01 0.18866E+00 + 0.31317E+00 0.50805E+00 0.79396E+00 0.12072E+01 0.17636E+01 0.26253E+01 + 0.37783E+01 0.55479E+01 0.80427E+01 0.11728E+02 0.17237E+02 0.25596E+02 + 0.21264E-06 0.26637E-06 0.34545E-06 0.50677E-06 0.89398E-06 0.13575E-05 + 0.13508E-05 0.98934E-06 0.20990E-06 0.41146E-05 0.41666E-04 0.92391E-04 + 0.47302E-03 0.11929E-02 0.27274E-02 0.24046E-03 0.12862E-01 0.22997E-02 + 0.60197E-01 0.10749E+00 0.23575E+00 0.39128E+00 0.63459E+00 0.99115E+00 + 0.15058E+01 0.21973E+01 0.32671E+01 0.46932E+01 0.68763E+01 0.99373E+01 + 0.14430E+02 0.21091E+02 0.31089E+02 0.43101E-06 0.55155E-06 0.79358E-06 + 0.13077E-05 0.21276E-05 0.42209E-05 0.68488E-05 0.85715E-05 0.41354E-05 + 0.19631E-05 0.45286E-05 0.19576E-03 0.41254E-03 0.11354E-02 0.26569E-02 + 0.85759E-03 0.12744E-01 0.41267E-02 0.59592E-01 0.12290E+00 0.29176E+00 + 0.48486E+00 0.78695E+00 0.12293E+01 0.18670E+01 0.27219E+01 0.40441E+01 + 0.58008E+01 0.84855E+01 0.12232E+02 0.17705E+02 0.25759E+02 0.37742E+02 + 0.89935E-06 0.11720E-05 0.15320E-05 0.33463E-05 0.72198E-05 0.14196E-04 + 0.27044E-04 0.54926E-04 0.55822E-04 0.49800E-04 0.62317E-04 0.37719E-03 + 0.22366E-03 0.92015E-03 0.23128E-02 0.19507E-02 0.12074E-01 0.71142E-02 + 0.57710E-01 0.11943E+00 0.35559E+00 0.59320E+00 0.96523E+00 0.15095E+01 + 0.22937E+01 0.33416E+01 0.49645E+01 0.71126E+01 0.10394E+02 0.14955E+02 + 0.21590E+02 0.31301E+02 0.45641E+02 0.46752E-05 0.76268E-05 0.14891E-04 + 0.31902E-04 0.58457E-04 0.93227E-04 0.12706E-03 0.18863E-03 0.24135E-03 + 0.27799E-03 0.28644E-03 0.78841E-03 0.24114E-03 0.30247E-03 0.15156E-02 + 0.39986E-02 0.10115E-01 0.12404E-01 0.52467E-01 0.11124E+00 0.41944E+00 + 0.70668E+00 0.11575E+01 0.18167E+01 0.27660E+01 0.40299E+01 0.59928E+01 + 0.85788E+01 0.12534E+02 0.18012E+02 0.25956E+02 0.37536E+02 0.54536E+02 + 0.33365E-04 0.60165E-04 0.95860E-04 0.15140E-03 0.24365E-03 0.36184E-03 + 0.48709E-03 0.62595E-03 0.73385E-03 0.87077E-03 0.97054E-03 0.19835E-02 + 0.12520E-02 0.10278E-02 0.35982E-03 0.77237E-02 0.62473E-02 0.21362E-01 + 0.42320E-01 0.95204E-01 0.38027E+00 0.80645E+00 0.13399E+01 0.21201E+01 + 0.32431E+01 0.47303E+01 0.70527E+01 0.10094E+02 0.14763E+02 0.21202E+02 + 0.30524E+02 0.44071E+02 0.63876E+02 0.10097E-03 0.16429E-03 0.32142E-03 + 0.53048E-03 0.77338E-03 0.10200E-02 0.12657E-02 0.15811E-02 0.18378E-02 + 0.21873E-02 0.25637E-02 0.37397E-02 0.80843E-02 0.39250E-02 0.42076E-02 + 0.14412E-01 0.15746E-02 0.36555E-01 0.23760E-01 0.65007E-01 0.30037E+00 + 0.75861E+00 0.14453E+01 0.23302E+01 0.36044E+01 0.52764E+01 0.79169E+01 + 0.11340E+02 0.16638E+02 0.23910E+02 0.34432E+02 0.49703E+02 0.71968E+02 + 0.46269E-03 0.59178E-03 0.82400E-03 0.12641E-02 0.18501E-02 0.24913E-02 + 0.30395E-02 0.37321E-02 0.43179E-02 0.50317E-02 0.59756E-02 0.80169E-02 + 0.83494E-02 0.27573E-01 0.11786E-01 0.26401E-01 0.16029E-01 0.62134E-01 + 0.85674E-02 0.13827E-01 0.16711E+00 0.51292E+00 0.13445E+01 0.22763E+01 + 0.36201E+01 0.53534E+01 0.81528E+01 0.11717E+02 0.17326E+02 0.24973E+02 + 0.36056E+02 0.52155E+02 0.75627E+02 0.15518E-02 0.19794E-02 0.25340E-02 + 0.32309E-02 0.40924E-02 0.52351E-02 0.64638E-02 0.78078E-02 0.89098E-02 + 0.10073E-01 0.11827E-01 0.15208E-01 0.15777E-01 0.19086E-01 0.30582E-01 + 0.42942E-01 0.35007E-01 0.94435E-01 0.47095E-01 0.44711E-01 0.19461E-01 + 0.25033E+00 0.86198E+00 0.20204E+01 0.33863E+01 0.51021E+01 0.79696E+01 + 0.11522E+02 0.17265E+02 0.25011E+02 0.36287E+02 0.52718E+02 0.76721E+02 + 0.36381E-02 0.46287E-02 0.59065E-02 0.75621E-02 0.93311E-02 0.10823E-01 + 0.12831E-01 0.15225E-01 0.17335E-01 0.19371E-01 0.21461E-01 0.27195E-01 + 0.28416E-01 0.32915E-01 0.40613E-01 0.68185E-01 0.60961E-01 0.13676E+00 + 0.94947E-01 0.11422E+00 0.14415E+00 0.37550E-01 0.34522E+00 0.12880E+01 + 0.27578E+01 0.43330E+01 0.71199E+01 0.10421E+02 0.15998E+02 0.23409E+02 + 0.34276E+02 0.50217E+02 0.73633E+02 0.73037E-02 0.92725E-02 0.11801E-01 + 0.15059E-01 0.19284E-01 0.23383E-01 0.25774E-01 0.29770E-01 0.32945E-01 + 0.36479E-01 0.40205E-01 0.47892E-01 0.50716E-01 0.57849E-01 0.68314E-01 + 0.16489E+00 0.10428E+00 0.20244E+00 0.16891E+00 0.21828E+00 0.37511E+00 + 0.43482E+00 0.36299E+00 0.00000E+00 0.10024E+01 0.20760E+01 0.42908E+01 + 0.66082E+01 0.11041E+02 0.16708E+02 0.25207E+02 0.37925E+02 0.56940E+02 + 0.12775E-01 0.16190E-01 0.20557E-01 0.26162E-01 0.33389E-01 0.42752E-01 + 0.51208E-01 0.55686E-01 0.61511E-01 0.66514E-01 0.72302E-01 0.83851E-01 + 0.87714E-01 0.98240E-01 0.11366E+00 0.16444E+00 0.51649E+00 0.29440E+00 + 0.26826E+00 0.35179E+00 0.64781E+00 0.88401E+00 0.11411E+01 0.13979E+01 + 0.15539E+01 0.17748E+01 0.60824E+00 0.00000E+00 0.23320E+01 0.48756E+01 + 0.90902E+01 0.15930E+02 0.26864E+02 0.20079E-01 0.25407E-01 0.32202E-01 + 0.40888E-01 0.52037E-01 0.66404E-01 0.86098E-01 0.10205E+00 0.10810E+00 + 0.11721E+00 0.12513E+00 0.14193E+00 0.14702E+00 0.16160E+00 0.18294E+00 + 0.25136E+00 0.25544E+00 0.12694E+01 0.39803E+00 0.51769E+00 0.95532E+00 + 0.13633E+01 0.19333E+01 0.27882E+01 0.40472E+01 0.65388E+01 0.77860E+01 + 0.96306E+01 0.10363E+02 0.12348E+02 0.14359E+02 0.16077E+02 0.16918E+02 + 0.31168E-01 0.39388E-01 0.49843E-01 0.63171E-01 0.80214E-01 0.10208E+00 + 0.13198E+00 0.17905E+00 0.19907E+00 0.20998E+00 0.22306E+00 0.24542E+00 + 0.25217E+00 0.27279E+00 0.30277E+00 0.39691E+00 0.40425E+00 0.62630E+00 + 0.60473E+00 0.77510E+00 0.14064E+01 0.20436E+01 0.30233E+01 0.46373E+01 + 0.73762E+01 0.12526E+02 0.20547E+02 0.27349E+02 0.33909E+02 0.44378E+02 + 0.58145E+02 0.76143E+02 0.99546E+02 0.44775E-01 0.56514E-01 0.71419E-01 + 0.90373E-01 0.11454E+00 0.14543E+00 0.18757E+00 0.25341E+00 0.34238E+00 + 0.36243E+00 0.38015E+00 0.41381E+00 0.41953E+00 0.44665E+00 0.48646E+00 + 0.61441E+00 0.62045E+00 0.90544E+00 0.88321E+00 0.11062E+01 0.19309E+01 + 0.27840E+01 0.41364E+01 0.64243E+01 0.10409E+02 0.18033E+02 0.30348E+02 + 0.50866E+02 0.64902E+02 0.86273E+02 0.11515E+03 0.15406E+03 0.20643E+03 + 0.64053E-01 0.80760E-01 0.10193E+00 0.12882E+00 0.16300E+00 0.20657E+00 + 0.26592E+00 0.35809E+00 0.48205E+00 0.63383E+00 0.65836E+00 0.71172E+00 + 0.72073E+00 0.75771E+00 0.81225E+00 0.99079E+00 0.99517E+00 0.13792E+01 + 0.13520E+01 0.16543E+01 0.27663E+01 0.39363E+01 0.58284E+01 0.90767E+01 + 0.14810E+02 0.25809E+02 0.44285E+02 0.80533E+02 0.12002E+03 0.16067E+03 + 0.21638E+03 0.29264E+03 0.39698E+03 0.88800E-01 0.11184E+00 0.14102E+00 + 0.17798E+00 0.22491E+00 0.28456E+00 0.36572E+00 0.49113E+00 0.65906E+00 + 0.89290E+00 0.11120E+01 0.11867E+01 0.12063E+01 0.12561E+01 0.13275E+01 + 0.15749E+01 0.15665E+01 0.20827E+01 0.20290E+01 0.24187E+01 0.38394E+01 + 0.53323E+01 0.77550E+01 0.11919E+02 0.19275E+02 0.33247E+02 0.57641E+02 + 0.10400E+03 0.18720E+03 0.25941E+03 0.34982E+03 0.47438E+03 0.64593E+03 + 0.13240E+00 0.16658E+00 0.20981E+00 0.26452E+00 0.33386E+00 0.42187E+00 + 0.54159E+00 0.72580E+00 0.97202E+00 0.13121E+01 0.17776E+01 0.21454E+01 + 0.21704E+01 0.22697E+01 0.23734E+01 0.27351E+01 0.27207E+01 0.34543E+01 + 0.33916E+01 0.39556E+01 0.59920E+01 0.81452E+01 0.11658E+02 0.17699E+02 + 0.28363E+02 0.48349E+02 0.83709E+02 0.15166E+03 0.27266E+03 0.47148E+03 + 0.63642E+03 0.86526E+03 0.11826E+04 0.19297E+00 0.24250E+00 0.30511E+00 + 0.38427E+00 0.48448E+00 0.61143E+00 0.78418E+00 0.10490E+01 0.14024E+01 + 0.18873E+01 0.25473E+01 0.35184E+01 0.38416E+01 0.39847E+01 0.41746E+01 + 0.47009E+01 0.46628E+01 0.57049E+01 0.56031E+01 0.63906E+01 0.92041E+01 + 0.12164E+02 0.16977E+02 0.25196E+02 0.39599E+02 0.66223E+02 0.11341E+03 + 0.20398E+03 0.36677E+03 0.67500E+03 0.10583E+04 0.14369E+04 0.19639E+04 + 0.27660E+00 0.34716E+00 0.43628E+00 0.54888E+00 0.69132E+00 0.87147E+00 + 0.11166E+01 0.14915E+01 0.19909E+01 0.26726E+01 0.35961E+01 0.49362E+01 + 0.65466E+01 0.69160E+01 0.72044E+01 0.80283E+01 0.79328E+01 0.94163E+01 + 0.92196E+01 0.10294E+02 0.14098E+02 0.18061E+02 0.24454E+02 0.35258E+02 + 0.53986E+02 0.88098E+02 0.14828E+03 0.26240E+03 0.47214E+03 0.86040E+03 + 0.15960E+04 0.22642E+04 0.30880E+04 0.41216E+00 0.51654E+00 0.64832E+00 + 0.81472E+00 0.10250E+01 0.12909E+01 0.16527E+01 0.22047E+01 0.29394E+01 + 0.39382E+01 0.52861E+01 0.72157E+01 0.95647E+01 0.12570E+02 0.12984E+02 + 0.14301E+02 0.14201E+02 0.16378E+02 0.16063E+02 0.17615E+02 0.23054E+02 + 0.28674E+02 0.37664E+02 0.52673E+02 0.78356E+02 0.12435E+03 0.20497E+03 + 0.35571E+03 0.63184E+03 0.11523E+04 0.21146E+04 0.37278E+04 0.50678E+04 + 0.60134E+00 0.75235E+00 0.94292E+00 0.11834E+01 0.14872E+01 0.18710E+01 + 0.23934E+01 0.31888E+01 0.42470E+01 0.56804E+01 0.76090E+01 0.10341E+02 + 0.13697E+02 0.18440E+02 0.23019E+02 0.24942E+02 0.24968E+02 0.28203E+02 + 0.27629E+02 0.29803E+02 0.37374E+02 0.45114E+02 0.57371E+02 0.77568E+02 + 0.11162E+03 0.17155E+03 0.27543E+03 0.46688E+03 0.81504E+03 0.14718E+04 + 0.26895E+04 0.49730E+04 0.79333E+04 0.86422E+00 0.10790E+01 0.13500E+01 + 0.16919E+01 0.21235E+01 0.26684E+01 0.34102E+01 0.45382E+01 0.60383E+01 + 0.80639E+01 0.10784E+02 0.14603E+02 0.19327E+02 0.25941E+02 0.34998E+02 + 0.43144E+02 0.42992E+02 0.48260E+02 0.47169E+02 0.50148E+02 0.60501E+02 + 0.70969E+02 0.87384E+02 0.11408E+03 0.15840E+03 0.23504E+03 0.36603E+03 + 0.60367E+03 0.10315E+04 0.18304E+04 0.33340E+04 0.61012E+04 0.11358E+05 + 0.12709E+01 0.15829E+01 0.19764E+01 0.24728E+01 0.30990E+01 0.38893E+01 + 0.49655E+01 0.66003E+01 0.87734E+01 0.11701E+02 0.15625E+02 0.21093E+02 + 0.27910E+02 0.37379E+02 0.50269E+02 0.70295E+02 0.76291E+02 0.84092E+02 + 0.83144E+02 0.87352E+02 0.10195E+03 0.11658E+03 0.13931E+03 0.17582E+03 + 0.23549E+03 0.33676E+03 0.50723E+03 0.81121E+03 0.13520E+04 0.23498E+04 + 0.42117E+04 0.77046E+04 0.14169E+05 0.18954E+01 0.23536E+01 0.29314E+01 + 0.36601E+01 0.45792E+01 0.57387E+01 0.73185E+01 0.97154E+01 0.12902E+02 + 0.17187E+02 0.22921E+02 0.30855E+02 0.40832E+02 0.54589E+02 0.73233E+02 + 0.10156E+03 0.13332E+03 0.14943E+03 0.14815E+03 0.15547E+03 0.17641E+03 + 0.19724E+03 0.22935E+03 0.28030E+03 0.36230E+03 0.49889E+03 0.72508E+03 + 0.11210E+04 0.18155E+04 0.30799E+04 0.54147E+04 0.97935E+04 0.17939E+05 + 0.27790E+01 0.34383E+01 0.42699E+01 0.53180E+01 0.66401E+01 0.83072E+01 + 0.10579E+02 0.14024E+02 0.18603E+02 0.24751E+02 0.32969E+02 0.44279E+02 + 0.58586E+02 0.78207E+02 0.10470E+03 0.14424E+03 0.18937E+03 0.26224E+03 + 0.25937E+03 0.27132E+03 0.30218E+03 0.33115E+03 0.37554E+03 0.44529E+03 + 0.55599E+03 0.73721E+03 0.10320E+04 0.15385E+04 0.24127E+04 0.39801E+04 + 0.68392E+04 0.12149E+05 0.22155E+05 0.44902E-09 0.34926E-09 0.12627E-09 + 0.51820E-09 0.13312E-08 0.28641E-08 0.19564E-07 0.39806E-07 0.16885E-07 + 0.13822E-06 0.27228E-06 0.20864E-04 0.12629E-03 0.28927E-04 0.54437E-03 + 0.89664E-03 0.14163E-02 0.20797E-02 0.28398E-02 0.39316E-02 0.53855E-02 + 0.74199E-02 0.98682E-02 0.13314E-01 0.17111E-01 0.23145E-01 0.29425E-01 + 0.38912E-01 0.49898E-01 0.66780E-01 0.86135E-01 0.11603E+00 0.15189E+00 + 0.15734E-08 0.13636E-08 0.92927E-09 0.14254E-09 0.85950E-09 0.28961E-08 + 0.24248E-07 0.53127E-07 0.26947E-07 0.19715E-06 0.32805E-06 0.27292E-04 + 0.16331E-03 0.36509E-04 0.69761E-03 0.11449E-02 0.18032E-02 0.26404E-02 + 0.35965E-02 0.49680E-02 0.67905E-02 0.93348E-02 0.12387E-01 0.16672E-01 + 0.21369E-01 0.28810E-01 0.36490E-01 0.48036E-01 0.61272E-01 0.81479E-01 + 0.10431E+00 0.13928E+00 0.18050E+00 0.42802E-08 0.41628E-08 0.34437E-08 + 0.28048E-08 0.12182E-08 0.11532E-08 0.28580E-07 0.75785E-07 0.28316E-07 + 0.25538E-06 0.60148E-06 0.35979E-04 0.21239E-03 0.45833E-04 0.89785E-03 + 0.14670E-02 0.23029E-02 0.33612E-02 0.45652E-02 0.62905E-02 0.85789E-02 + 0.11766E-01 0.15581E-01 0.20921E-01 0.26749E-01 0.35965E-01 0.45406E-01 + 0.59549E-01 0.75611E-01 0.10000E+00 0.12720E+00 0.16856E+00 0.21651E+00 + 0.10298E-07 0.11551E-07 0.10894E-07 0.11511E-07 0.87545E-08 0.62051E-08 + 0.45897E-07 0.10831E-06 0.13655E-07 0.14023E-06 0.90568E-06 0.51266E-04 + 0.27766E-03 0.56406E-04 0.11606E-02 0.18868E-02 0.29504E-02 0.42905E-02 + 0.58079E-02 0.79805E-02 0.10857E-01 0.14855E-01 0.19629E-01 0.26297E-01 + 0.33549E-01 0.44994E-01 0.56648E-01 0.74049E-01 0.93661E-01 0.12331E+00 + 0.15599E+00 0.20537E+00 0.26179E+00 0.23949E-07 0.26336E-07 0.29120E-07 + 0.33041E-07 0.38243E-07 0.30806E-07 0.68524E-07 0.25133E-06 0.38023E-06 + 0.64376E-06 0.59529E-06 0.75667E-04 0.36523E-03 0.67449E-04 0.15080E-02 + 0.24372E-02 0.37944E-02 0.54937E-02 0.74085E-02 0.10147E-01 0.13767E-01 + 0.18785E-01 0.24767E-01 0.33106E-01 0.42145E-01 0.56393E-01 0.70824E-01 + 0.92312E-01 0.11639E+00 0.15263E+00 0.19220E+00 0.25164E+00 0.31868E+00 + 0.52075E-07 0.60823E-07 0.66315E-07 0.89238E-07 0.10935E-06 0.12047E-06 + 0.33864E-07 0.40188E-06 0.17541E-05 0.32795E-05 0.22851E-05 0.10903E-03 + 0.44947E-03 0.75261E-04 0.19695E-02 0.31625E-02 0.48989E-02 0.70576E-02 + 0.94746E-02 0.12930E-01 0.17486E-01 0.23789E-01 0.31291E-01 0.41724E-01 + 0.53004E-01 0.70764E-01 0.88673E-01 0.11528E+00 0.14494E+00 0.18944E+00 + 0.23763E+00 0.30967E+00 0.38998E+00 0.11434E-06 0.13041E-06 0.14374E-06 + 0.18114E-06 0.29999E-06 0.36947E-06 0.28234E-06 0.36888E-06 0.54124E-05 + 0.98150E-05 0.11032E-04 0.14135E-03 0.52868E-03 0.64449E-04 0.25839E-02 + 0.41204E-02 0.63487E-02 0.90952E-02 0.12147E-01 0.16507E-01 0.22246E-01 + 0.30158E-01 0.39565E-01 0.52618E-01 0.66694E-01 0.88848E-01 0.11109E+00 + 0.14409E+00 0.18071E+00 0.23551E+00 0.29445E+00 0.38217E+00 0.47906E+00 + 0.26004E-06 0.29400E-06 0.31313E-06 0.34299E-06 0.52282E-06 0.10025E-05 + 0.18458E-05 0.15538E-05 0.13943E-04 0.24738E-04 0.31003E-04 0.16883E-03 + 0.62684E-03 0.21863E-04 0.31097E-02 0.53830E-02 0.82503E-02 0.11749E-01 + 0.15599E-01 0.21099E-01 0.28321E-01 0.38246E-01 0.50025E-01 0.66343E-01 + 0.83886E-01 0.11150E+00 0.13912E+00 0.18003E+00 0.22528E+00 0.29287E+00 + 0.36509E+00 0.47227E+00 0.58963E+00 0.65572E-06 0.86739E-06 0.82665E-06 + 0.83709E-06 0.86235E-06 0.18988E-05 0.58765E-05 0.11896E-04 0.34686E-04 + 0.57252E-04 0.75230E-04 0.18019E-03 0.70042E-03 0.12659E-03 0.33479E-02 + 0.64620E-02 0.10713E-01 0.15171E-01 0.20015E-01 0.26938E-01 0.36005E-01 + 0.48412E-01 0.63126E-01 0.83446E-01 0.10525E+00 0.13957E+00 0.17375E+00 + 0.22434E+00 0.28015E+00 0.36335E+00 0.45184E+00 0.58274E+00 0.72511E+00 + 0.14501E-05 0.20910E-05 0.28446E-05 0.27023E-05 0.22607E-05 0.24012E-05 + 0.11888E-04 0.36422E-04 0.82128E-04 0.12254E-03 0.16092E-03 0.15906E-03 + 0.72568E-03 0.43194E-03 0.35971E-02 0.67880E-02 0.12887E-01 0.19557E-01 + 0.25631E-01 0.34323E-01 0.45674E-01 0.61119E-01 0.79425E-01 0.10462E+00 + 0.13157E+00 0.17407E+00 0.21619E+00 0.27849E+00 0.34707E+00 0.44919E+00 + 0.55732E+00 0.71688E+00 0.88946E+00 0.30243E-05 0.55358E-05 0.95894E-05 + 0.13238E-04 0.13557E-04 0.95787E-05 0.12591E-04 0.77410E-04 0.17266E-03 + 0.25715E-03 0.33189E-03 0.59797E-04 0.62930E-03 0.10010E-02 0.37036E-02 + 0.70109E-02 0.13174E-01 0.23461E-01 0.32504E-01 0.43350E-01 0.57466E-01 + 0.76529E-01 0.99124E-01 0.13008E+00 0.16308E+00 0.21524E+00 0.26666E+00 + 0.34267E+00 0.42622E+00 0.55051E+00 0.68162E+00 0.87467E+00 0.10825E+01 + 0.10890E-04 0.19361E-04 0.39476E-04 0.78257E-04 0.10460E-03 0.10507E-03 + 0.84955E-04 0.14381E-03 0.33953E-03 0.51933E-03 0.67937E-03 0.25384E-03 + 0.28811E-03 0.20444E-02 0.34381E-02 0.68266E-02 0.13017E-01 0.23328E-01 + 0.38353E-01 0.53659E-01 0.71015E-01 0.94201E-01 0.12171E+00 0.15915E+00 + 0.19891E+00 0.26200E+00 0.32371E+00 0.41493E+00 0.51511E+00 0.66406E+00 + 0.82063E+00 0.10507E+01 0.12974E+01 0.77609E-04 0.12233E-03 0.17769E-03 + 0.25371E-03 0.37942E-03 0.46812E-03 0.47591E-03 0.48088E-03 0.73182E-03 + 0.10513E-02 0.13859E-02 0.10180E-02 0.75378E-03 0.40658E-02 0.24247E-02 + 0.56349E-02 0.11679E-01 0.21742E-01 0.35959E-01 0.61119E-01 0.84280E-01 + 0.11173E+00 0.14441E+00 0.18841E+00 0.23490E+00 0.30917E+00 0.38098E+00 + 0.48710E+00 0.60375E+00 0.77710E+00 0.95863E+00 0.12247E+01 0.15093E+01 + 0.35562E-03 0.55409E-03 0.77513E-03 0.95669E-03 0.11363E-02 0.13113E-02 + 0.14127E-02 0.14770E-02 0.18271E-02 0.25013E-02 0.28172E-02 0.25709E-02 + 0.31177E-02 0.77501E-02 0.00000E+00 0.27786E-02 0.82067E-02 0.17522E-01 + 0.30174E-01 0.52910E-01 0.90881E-01 0.12438E+00 0.16189E+00 0.21151E+00 + 0.26353E+00 0.34758E+00 0.42732E+00 0.54524E+00 0.67513E+00 0.86817E+00 + 0.10694E+01 0.13634E+01 0.16773E+01 0.12041E-02 0.15557E-02 0.18959E-02 + 0.22307E-02 0.25681E-02 0.28876E-02 0.31765E-02 0.34461E-02 0.39068E-02 + 0.48619E-02 0.65009E-02 0.52805E-02 0.69014E-02 0.13314E-01 0.54212E-02 + 0.28179E-02 0.26311E-02 0.10671E-01 0.21276E-01 0.41000E-01 0.74122E-01 + 0.12833E+00 0.17198E+00 0.22628E+00 0.28250E+00 0.37488E+00 0.46010E+00 + 0.58622E+00 0.72568E+00 0.93296E+00 0.11478E+01 0.14604E+01 0.17938E+01 + 0.22864E-02 0.30825E-02 0.37589E-02 0.44389E-02 0.50765E-02 0.56172E-02 + 0.61057E-02 0.66883E-02 0.75147E-02 0.83984E-02 0.10387E-01 0.12500E-01 + 0.12589E-01 0.21285E-01 0.12955E-01 0.12031E-01 0.75911E-02 0.13944E-02 + 0.94183E-02 0.25976E-01 0.54133E-01 0.99173E-01 0.17269E+00 0.23111E+00 + 0.29051E+00 0.39025E+00 0.47861E+00 0.60943E+00 0.75502E+00 0.97145E+00 + 0.11941E+01 0.15162E+01 0.18597E+01 0.49875E-02 0.64037E-02 0.78568E-02 + 0.90283E-02 0.10136E-01 0.11096E-01 0.11807E-01 0.12949E-01 0.14468E-01 + 0.15853E-01 0.17624E-01 0.18626E-01 0.22605E-01 0.34621E-01 0.25814E-01 + 0.27406E-01 0.26483E-01 0.22086E-01 0.17486E-01 0.00000E+00 0.20604E-01 + 0.52548E-01 0.10739E+00 0.19233E+00 0.24958E+00 0.34933E+00 0.43112E+00 + 0.55209E+00 0.68861E+00 0.89160E+00 0.10976E+01 0.13919E+01 0.17067E+01 + 0.11377E-01 0.13166E-01 0.15484E-01 0.17853E-01 0.19734E-01 0.21405E-01 + 0.22603E-01 0.23652E-01 0.26644E-01 0.28790E-01 0.31450E-01 0.31544E-01 + 0.49032E-01 0.54909E-01 0.45006E-01 0.49536E-01 0.52594E-01 0.54152E-01 + 0.59507E-01 0.56604E-01 0.41288E-01 0.12283E-01 0.27736E-01 0.80276E-01 + 0.15011E+00 0.24439E+00 0.31093E+00 0.40869E+00 0.52237E+00 0.69103E+00 + 0.85754E+00 0.10891E+01 0.13390E+01 0.22619E-01 0.27113E-01 0.29785E-01 + 0.33246E-01 0.36714E-01 0.39311E-01 0.41376E-01 0.43505E-01 0.46904E-01 + 0.50687E-01 0.54595E-01 0.54772E-01 0.66834E-01 0.91116E-01 0.75975E-01 + 0.84378E-01 0.92590E-01 0.10174E+00 0.11963E+00 0.13468E+00 0.14659E+00 + 0.16057E+00 0.15936E+00 0.14881E+00 0.13564E+00 0.00000E+00 0.34625E-01 + 0.83084E-01 0.14666E+00 0.23953E+00 0.32170E+00 0.42208E+00 0.53545E+00 + 0.40137E-01 0.50990E-01 0.60381E-01 0.64099E-01 0.68899E-01 0.73660E-01 + 0.76727E-01 0.79850E-01 0.84976E-01 0.90456E-01 0.96052E-01 0.96283E-01 + 0.11122E+00 0.14792E+00 0.13311E+00 0.14265E+00 0.15820E+00 0.17800E+00 + 0.21321E+00 0.25257E+00 0.30068E+00 0.37077E+00 0.45535E+00 0.58114E+00 + 0.77254E+00 0.95435E+00 0.12896E+01 0.14532E+01 0.16367E+01 0.18364E+01 + 0.21734E+01 0.26545E+01 0.32500E+01 0.66705E-01 0.84587E-01 0.10745E+00 + 0.12640E+00 0.13154E+00 0.13816E+00 0.14433E+00 0.14917E+00 0.15753E+00 + 0.16562E+00 0.17394E+00 0.17432E+00 0.19676E+00 0.24250E+00 0.23320E+00 + 0.25485E+00 0.27472E+00 0.31135E+00 0.37320E+00 0.44954E+00 0.55176E+00 + 0.70411E+00 0.91234E+00 0.12299E+01 0.17270E+01 0.23502E+01 0.34568E+01 + 0.48284E+01 0.57261E+01 0.68336E+01 0.83583E+01 0.10374E+02 0.12927E+02 + 0.10988E+00 0.13912E+00 0.17641E+00 0.22411E+00 0.26264E+00 0.27028E+00 + 0.27917E+00 0.28862E+00 0.29963E+00 0.31116E+00 0.32500E+00 0.32584E+00 + 0.36056E+00 0.42783E+00 0.40581E+00 0.54398E+00 0.49016E+00 0.55444E+00 + 0.65895E+00 0.79394E+00 0.98066E+00 0.12590E+01 0.16536E+01 0.22544E+01 + 0.31892E+01 0.44961E+01 0.66096E+01 0.98711E+01 0.13835E+02 0.16681E+02 + 0.20471E+02 0.25405E+02 0.31686E+02 0.16689E+00 0.21105E+00 0.26722E+00 + 0.33885E+00 0.43047E+00 0.50337E+00 0.51316E+00 0.52626E+00 0.54514E+00 + 0.55971E+00 0.57797E+00 0.57803E+00 0.62735E+00 0.72402E+00 0.69164E+00 + 0.74588E+00 0.81420E+00 0.90908E+00 0.10615E+01 0.12604E+01 0.15374E+01 + 0.19481E+01 0.25336E+01 0.34191E+01 0.47827E+01 0.67384E+01 0.99014E+01 + 0.14643E+02 0.22001E+02 0.30635E+02 0.37436E+02 0.46262E+02 0.57515E+02 + 0.25463E+00 0.32167E+00 0.40678E+00 0.51504E+00 0.65311E+00 0.82968E+00 + 0.96788E+00 0.98754E+00 0.10205E+01 0.10507E+01 0.10782E+01 0.10778E+01 + 0.11521E+01 0.12958E+01 0.12506E+01 0.13342E+01 0.14410E+01 0.15900E+01 + 0.18248E+01 0.21340E+01 0.25653E+01 0.31988E+01 0.41025E+01 0.54556E+01 + 0.75142E+01 0.10495E+02 0.15261E+02 0.22517E+02 0.33466E+02 0.50529E+02 + 0.70175E+02 0.86202E+02 0.10668E+03 0.37675E+00 0.47551E+00 0.60069E+00 + 0.75962E+00 0.96182E+00 0.12196E+01 0.15462E+01 0.18049E+01 0.18533E+01 + 0.19056E+01 0.19612E+01 0.19579E+01 0.20649E+01 0.22761E+01 0.22058E+01 + 0.23271E+01 0.24829E+01 0.27011E+01 0.30424E+01 0.34917E+01 0.41164E+01 + 0.50256E+01 0.63156E+01 0.82258E+01 0.11096E+02 0.15249E+02 0.21779E+02 + 0.31770E+02 0.46987E+02 0.70054E+02 0.10651E+03 0.14662E+03 0.18029E+03 + 0.56904E+00 0.71766E+00 0.90575E+00 0.11442E+01 0.14470E+01 0.18320E+01 + 0.23191E+01 0.29418E+01 0.34525E+01 0.35302E+01 0.36285E+01 0.36499E+01 + 0.38085E+01 0.41251E+01 0.40173E+01 0.41988E+01 0.44331E+01 0.47619E+01 + 0.52716E+01 0.59418E+01 0.68692E+01 0.82053E+01 0.10087E+02 0.12840E+02 + 0.16921E+02 0.22800E+02 0.31895E+02 0.45687E+02 0.66833E+02 0.99034E+02 + 0.14850E+03 0.22649E+03 0.30822E+03 0.86619E+00 0.10915E+01 0.13765E+01 + 0.17372E+01 0.21946E+01 0.27752E+01 0.35089E+01 0.44441E+01 0.56622E+01 + 0.66220E+01 0.67691E+01 0.68272E+01 0.71198E+01 0.75990E+01 0.74322E+01 + 0.77061E+01 0.80611E+01 0.85600E+01 0.93268E+01 0.10333E+02 0.11718E+02 + 0.13692E+02 0.16449E+02 0.20432E+02 0.26257E+02 0.34585E+02 0.47263E+02 + 0.66287E+02 0.95190E+02 0.13957E+03 0.20761E+03 0.31216E+03 0.47660E+03 + 0.13178E+01 0.16593E+01 0.20910E+01 0.26369E+01 0.33282E+01 0.42043E+01 + 0.53105E+01 0.67172E+01 0.85385E+01 0.10848E+02 0.12683E+02 0.12764E+02 + 0.13362E+02 0.14090E+02 0.13827E+02 0.14238E+02 0.14773E+02 0.15526E+02 + 0.16678E+02 0.18184E+02 0.20244E+02 0.23155E+02 0.27183E+02 0.32930E+02 + 0.41219E+02 0.52960E+02 0.70553E+02 0.96643E+02 0.13586E+03 0.19550E+03 + 0.28775E+03 0.42872E+03 0.64530E+03 0.19952E+01 0.25104E+01 0.31608E+01 + 0.39832E+01 0.50233E+01 0.63398E+01 0.80010E+01 0.10109E+02 0.12826E+02 + 0.16265E+02 0.20659E+02 0.23843E+02 0.24834E+02 0.26144E+02 0.25717E+02 + 0.26329E+02 0.27126E+02 0.28250E+02 0.29966E+02 0.32203E+02 0.35249E+02 + 0.39515E+02 0.45367E+02 0.53619E+02 0.65366E+02 0.81827E+02 0.10611E+03 + 0.14167E+03 0.19448E+03 0.27394E+03 0.39552E+03 0.58339E+03 0.86946E+03 + 0.30591E+01 0.38457E+01 0.48386E+01 0.60924E+01 0.76778E+01 0.96819E+01 + 0.12210E+02 0.15414E+02 0.19524E+02 0.24722E+02 0.31345E+02 0.39390E+02 + 0.46744E+02 0.48978E+02 0.48656E+02 0.49581E+02 0.50789E+02 0.52496E+02 + 0.55095E+02 0.58474E+02 0.63051E+02 0.69414E+02 0.78070E+02 0.90142E+02 + 0.10711E+03 0.13063E+03 0.16480E+03 0.21417E+03 0.28654E+03 0.39413E+03 + 0.55684E+03 0.80566E+03 0.11896E+04 0.46246E+01 0.58080E+01 0.73014E+01 + 0.91867E+01 0.11568E+02 0.14577E+02 0.18370E+02 0.23171E+02 0.29312E+02 + 0.37070E+02 0.46932E+02 0.58974E+02 0.87063E+02 0.90430E+02 0.90368E+02 + 0.92339E+02 0.94123E+02 0.96654E+02 0.10052E+03 0.10553E+03 0.11229E+03 + 0.12164E+03 0.13426E+03 0.15169E+03 0.17592E+03 0.20912E+03 0.25668E+03 + 0.32447E+03 0.42251E+03 0.56638E+03 0.78121E+03 0.11059E+04 0.16020E+04 + 0.70986E+01 0.89052E+01 0.11184E+02 0.14060E+02 0.17690E+02 0.22275E+02 + 0.28054E+02 0.35361E+02 0.44681E+02 0.56446E+02 0.71376E+02 0.89700E+02 + 0.14364E+03 0.17029E+03 0.17009E+03 0.17415E+03 0.17789E+03 0.18172E+03 + 0.18757E+03 0.19514E+03 0.20533E+03 0.21934E+03 0.23813E+03 0.26386E+03 + 0.29925E+03 0.34723E+03 0.41504E+03 0.51040E+03 0.64645E+03 0.84339E+03 + 0.11335E+04 0.15666E+04 0.22208E+04 0.10818E+02 0.13553E+02 0.17002E+02 + 0.21352E+02 0.26843E+02 0.33774E+02 0.42509E+02 0.53545E+02 0.67588E+02 + 0.85306E+02 0.10776E+03 0.13543E+03 0.21633E+03 0.28130E+03 0.31883E+03 + 0.32486E+03 0.33275E+03 0.34023E+03 0.34901E+03 0.36034E+03 0.37555E+03 + 0.39639E+03 0.42420E+03 0.46200E+03 0.51351E+03 0.58269E+03 0.67923E+03 + 0.81328E+03 0.10020E+04 0.12714E+04 0.16628E+04 0.22392E+04 0.30991E+04 + 0.33487E-09 0.33117E-09 0.10029E-09 0.77479E-09 0.18109E-08 0.44772E-08 + 0.29795E-07 0.63613E-07 0.19481E-06 0.30634E-06 0.59741E-06 0.33715E-05 + 0.23785E-04 0.10671E-03 0.46223E-03 0.14013E-02 0.33862E-02 0.67723E-02 + 0.11879E-01 0.18821E-01 0.30828E-01 0.47848E-01 0.75131E-01 0.11233E+00 + 0.15812E+00 0.21715E+00 0.29548E+00 0.40395E+00 0.54872E+00 0.76033E+00 + 0.10505E+01 0.14677E+01 0.20783E+01 0.13756E-08 0.10169E-08 0.13762E-08 + 0.78887E-09 0.40394E-09 0.30561E-08 0.38470E-07 0.82210E-07 0.26201E-06 + 0.36906E-06 0.84945E-06 0.72270E-05 0.30200E-04 0.13534E-03 0.58593E-03 + 0.17745E-02 0.42821E-02 0.85529E-02 0.14984E-01 0.23713E-01 0.38796E-01 + 0.60139E-01 0.94301E-01 0.14076E+00 0.19773E+00 0.27085E+00 0.36737E+00 + 0.50018E+00 0.67601E+00 0.93077E+00 0.12759E+01 0.17659E+01 0.24729E+01 + 0.33392E-08 0.36394E-08 0.29491E-08 0.40749E-08 0.36884E-08 0.10806E-08 + 0.51218E-07 0.10896E-06 0.30440E-06 0.41991E-06 0.13349E-05 0.12206E-04 + 0.60313E-04 0.17180E-03 0.74357E-03 0.22497E-02 0.54210E-02 0.10812E-01 + 0.18917E-01 0.29899E-01 0.48861E-01 0.75655E-01 0.11848E+00 0.17660E+00 + 0.24766E+00 0.33851E+00 0.45792E+00 0.62139E+00 0.83628E+00 0.11454E+01 + 0.15597E+01 0.21413E+01 0.29695E+01 0.87356E-08 0.90112E-08 0.10279E-07 + 0.10437E-07 0.13690E-07 0.13979E-07 0.51498E-07 0.13984E-06 0.40212E-06 + 0.72486E-06 0.24580E-05 0.19029E-04 0.10350E-03 0.23879E-03 0.94289E-03 + 0.28525E-02 0.68653E-02 0.13674E-01 0.23889E-01 0.37709E-01 0.61560E-01 + 0.95212E-01 0.14896E+00 0.22175E+00 0.31050E+00 0.42365E+00 0.57182E+00 + 0.77383E+00 0.10378E+01 0.14151E+01 0.19163E+01 0.26130E+01 0.35934E+01 + 0.13465E-07 0.22341E-07 0.23576E-07 0.27194E-07 0.35668E-07 0.40290E-07 + 0.42412E-07 0.17894E-06 0.55979E-06 0.13541E-05 0.45467E-05 0.38754E-04 + 0.15795E-03 0.33723E-03 0.11601E-02 0.36177E-02 0.86990E-02 0.17302E-01 + 0.30180E-01 0.47574E-01 0.77585E-01 0.11987E+00 0.18735E+00 0.27859E+00 + 0.38959E+00 0.53074E+00 0.71502E+00 0.96540E+00 0.12909E+01 0.17539E+01 + 0.23645E+01 0.32057E+01 0.43769E+01 0.32814E-07 0.34200E-07 0.57447E-07 + 0.62513E-07 0.78406E-07 0.93751E-07 0.65343E-08 0.12782E-06 0.85204E-06 + 0.18291E-05 0.74682E-05 0.62503E-04 0.20189E-03 0.45740E-03 0.13735E-02 + 0.44486E-02 0.11016E-01 0.21889E-01 0.38121E-01 0.60005E-01 0.97766E-01 + 0.15090E+00 0.23564E+00 0.35006E+00 0.48894E+00 0.66519E+00 0.89473E+00 + 0.12057E+01 0.16084E+01 0.21788E+01 0.29261E+01 0.39480E+01 0.53587E+01 + 0.45262E-07 0.81169E-07 0.87178E-07 0.13912E-06 0.16750E-06 0.20440E-06 + 0.12477E-06 0.15672E-07 0.91118E-06 0.32840E-05 0.10492E-04 0.87165E-04 + 0.24324E-03 0.54169E-03 0.16273E-02 0.48717E-02 0.13921E-01 0.27655E-01 + 0.48097E-01 0.75606E-01 0.12309E+00 0.18981E+00 0.29620E+00 0.43965E+00 + 0.61343E+00 0.83350E+00 0.11195E+01 0.15062E+01 0.20053E+01 0.27096E+01 + 0.36277E+01 0.48754E+01 0.65845E+01 0.87038E-07 0.11637E-06 0.18124E-06 + 0.24782E-06 0.36792E-06 0.45918E-06 0.32827E-06 0.39993E-06 0.53493E-06 + 0.33705E-05 0.11208E-04 0.90505E-04 0.25274E-03 0.58442E-03 0.18239E-02 + 0.53527E-02 0.14546E-01 0.34818E-01 0.60506E-01 0.95015E-01 0.15466E+00 + 0.23834E+00 0.37175E+00 0.55141E+00 0.76859E+00 0.10431E+01 0.13994E+01 + 0.18800E+01 0.24986E+01 0.33695E+01 0.44994E+01 0.60272E+01 0.81071E+01 + 0.17262E-06 0.23337E-06 0.32930E-06 0.55653E-06 0.89071E-06 0.13617E-05 + 0.12322E-05 0.82789E-06 0.89481E-06 0.28004E-05 0.29483E-05 0.59513E-04 + 0.21513E-03 0.53677E-03 0.18489E-02 0.57345E-02 0.15084E-01 0.36966E-01 + 0.75562E-01 0.11866E+00 0.19334E+00 0.29793E+00 0.46483E+00 0.68924E+00 + 0.95984E+00 0.13013E+01 0.17437E+01 0.23398E+01 0.31049E+01 0.41803E+01 + 0.55699E+01 0.74409E+01 0.99743E+01 0.37953E-06 0.50111E-06 0.61425E-06 + 0.96824E-06 0.18930E-05 0.29952E-05 0.42486E-05 0.34746E-05 0.21261E-05 + 0.14554E-04 0.54721E-04 0.24699E-04 0.93644E-04 0.36234E-03 0.16652E-02 + 0.56226E-02 0.15482E-01 0.37115E-01 0.82509E-01 0.14695E+00 0.24009E+00 + 0.37032E+00 0.57842E+00 0.85780E+00 0.11937E+01 0.16167E+01 0.21637E+01 + 0.29002E+01 0.38433E+01 0.51672E+01 0.68724E+01 0.91605E+01 0.12245E+02 + 0.77939E-06 0.10419E-05 0.13973E-05 0.20751E-05 0.37786E-05 0.83442E-05 + 0.13843E-04 0.18998E-04 0.13573E-04 0.21205E-04 0.15669E-03 0.21406E-03 + 0.18788E-03 0.48491E-04 0.11024E-02 0.49829E-02 0.14532E-01 0.36415E-01 + 0.80074E-01 0.16539E+00 0.29400E+00 0.45484E+00 0.71260E+00 0.10580E+01 + 0.14716E+01 0.19912E+01 0.26623E+01 0.35650E+01 0.47179E+01 0.63362E+01 + 0.84136E+01 0.11193E+02 0.14928E+02 0.16276E-05 0.21266E-05 0.25372E-05 + 0.49145E-05 0.13180E-04 0.27038E-04 0.71904E-04 0.11995E-03 0.13965E-03 + 0.10929E-03 0.31922E-03 0.57908E-03 0.77357E-03 0.89980E-03 0.86839E-04 + 0.33536E-02 0.12261E-01 0.33066E-01 0.74596E-01 0.15564E+00 0.34039E+00 + 0.54679E+00 0.86256E+00 0.12848E+01 0.17874E+01 0.24169E+01 0.32278E+01 + 0.43186E+01 0.57081E+01 0.76599E+01 0.10157E+02 0.13490E+02 0.17955E+02 + 0.61370E-05 0.10090E-04 0.15421E-04 0.42641E-04 0.90819E-04 0.15982E-03 + 0.26210E-03 0.43430E-03 0.59414E-03 0.68287E-03 0.85268E-03 0.13525E-02 + 0.19483E-02 0.26350E-02 0.25404E-02 0.00000E+00 0.73441E-02 0.25768E-01 + 0.62603E-01 0.13641E+00 0.30846E+00 0.63021E+00 0.10094E+01 0.15152E+01 + 0.21116E+01 0.28548E+01 0.38096E+01 0.50941E+01 0.67234E+01 0.90194E+01 + 0.11944E+02 0.15841E+02 0.21048E+02 0.30897E-04 0.63429E-04 0.10778E-03 + 0.19434E-03 0.40460E-03 0.71015E-03 0.10368E-02 0.13343E-02 0.16478E-02 + 0.19762E-02 0.23560E-02 0.49396E-02 0.41987E-02 0.57855E-02 0.69838E-02 + 0.61102E-02 0.13597E-02 0.12878E-01 0.41711E-01 0.10317E+00 0.25541E+00 + 0.55179E+00 0.11208E+01 0.17096E+01 0.23940E+01 0.32396E+01 0.43214E+01 + 0.57779E+01 0.76147E+01 0.10219E+02 0.13513E+02 0.17898E+02 0.23747E+02 + 0.18044E-03 0.23106E-03 0.45969E-03 0.84673E-03 0.13343E-02 0.18756E-02 + 0.23805E-02 0.29721E-02 0.35247E-02 0.42831E-02 0.51491E-02 0.61924E-02 + 0.16599E-01 0.10789E-01 0.13566E-01 0.14975E-01 0.13547E-01 0.46712E-02 + 0.14844E-01 0.60265E-01 0.18893E+00 0.44299E+00 0.10140E+01 0.18609E+01 + 0.26270E+01 0.35627E+01 0.47522E+01 0.63567E+01 0.83630E+01 0.11233E+02 + 0.14835E+02 0.19624E+02 0.26001E+02 0.47830E-03 0.61059E-03 0.78364E-03 + 0.14853E-02 0.24900E-02 0.35721E-02 0.46454E-02 0.57211E-02 0.66520E-02 + 0.78621E-02 0.94461E-02 0.11153E-01 0.14490E-01 0.30475E-01 0.22676E-01 + 0.26619E-01 0.28887E-01 0.25758E-01 0.16060E-01 0.12817E-01 0.11476E+00 + 0.32755E+00 0.82561E+00 0.17633E+01 0.28156E+01 0.38319E+01 0.51132E+01 + 0.68456E+01 0.89881E+01 0.12092E+02 0.15947E+02 0.21067E+02 0.27875E+02 + 0.17643E-02 0.22477E-02 0.28760E-02 0.38970E-02 0.53373E-02 0.73730E-02 + 0.92211E-02 0.11134E-01 0.12780E-01 0.14573E-01 0.17401E-01 0.20359E-01 + 0.24343E-01 0.31784E-01 0.39232E-01 0.45358E-01 0.52928E-01 0.57901E-01 + 0.61757E-01 0.55256E-01 0.11066E-01 0.16262E+00 0.56711E+00 0.13343E+01 + 0.25699E+01 0.37639E+01 0.50372E+01 0.67670E+01 0.88632E+01 0.11975E+02 + 0.15767E+02 0.20799E+02 0.27486E+02 0.42227E-02 0.53674E-02 0.68477E-02 + 0.92306E-02 0.12002E-01 0.14591E-01 0.18136E-01 0.21090E-01 0.23988E-01 + 0.26860E-01 0.30056E-01 0.35589E-01 0.41532E-01 0.50183E-01 0.66330E-01 + 0.73090E-01 0.85689E-01 0.99721E-01 0.11849E+00 0.13611E+00 0.10701E+00 + 0.19119E-01 0.28181E+00 0.87898E+00 0.18024E+01 0.33174E+01 0.45477E+01 + 0.61590E+01 0.80430E+01 0.10962E+02 0.14406E+02 0.18973E+02 0.25038E+02 + 0.80836E-02 0.10255E-01 0.13050E-01 0.17524E-01 0.23649E-01 0.29196E-01 + 0.33309E-01 0.39078E-01 0.42976E-01 0.47662E-01 0.53310E-01 0.59694E-01 + 0.69060E-01 0.81320E-01 0.95956E-01 0.25372E+00 0.13469E+00 0.16017E+00 + 0.19747E+00 0.24441E+00 0.25942E+00 0.24580E+00 0.66102E-01 0.32569E+00 + 0.89611E+00 0.17891E+01 0.31627E+01 0.44078E+01 0.57355E+01 0.80305E+01 + 0.10530E+02 0.13843E+02 0.18240E+02 0.14382E-01 0.18214E-01 0.23132E-01 + 0.30964E-01 0.41618E-01 0.56224E-01 0.65229E-01 0.71708E-01 0.79332E-01 + 0.86127E-01 0.93963E-01 0.10446E+00 0.11687E+00 0.13434E+00 0.15524E+00 + 0.18031E+00 0.81909E+00 0.25418E+00 0.31663E+00 0.40263E+00 0.47518E+00 + 0.55670E+00 0.52962E+00 0.40015E+00 0.28244E+00 0.15537E+00 0.00000E+00 + 0.40384E+00 0.52317E+00 0.13626E+01 0.17819E+01 0.23375E+01 0.30745E+01 + 0.23959E-01 0.30300E-01 0.38414E-01 0.51288E-01 0.68705E-01 0.92420E-01 + 0.12455E+00 0.13670E+00 0.14621E+00 0.15834E+00 0.17063E+00 0.18631E+00 + 0.20466E+00 0.23017E+00 0.26078E+00 0.29810E+00 0.34778E+00 0.10404E+01 + 0.51388E+00 0.65801E+00 0.81527E+00 0.10342E+01 0.12243E+01 0.14617E+01 + 0.19786E+01 0.29403E+01 0.45817E+01 0.72079E+01 0.10729E+02 0.13043E+02 + 0.17000E+02 0.22243E+02 0.29195E+02 0.39552E-01 0.49959E-01 0.63244E-01 + 0.84260E-01 0.11256E+00 0.15089E+00 0.20257E+00 0.27175E+00 0.28329E+00 + 0.30115E+00 0.32127E+00 0.34226E+00 0.37169E+00 0.41006E+00 0.45626E+00 + 0.51338E+00 0.59060E+00 0.70356E+00 0.11173E+01 0.10901E+01 0.13779E+01 + 0.18045E+01 0.23181E+01 0.30918E+01 0.45203E+01 0.70225E+01 0.11320E+02 + 0.18242E+02 0.30554E+02 0.42316E+02 0.54929E+02 0.71644E+02 0.93801E+02 + 0.60204E-01 0.75958E-01 0.96041E-01 0.12772E+00 0.17024E+00 0.22755E+00 + 0.30449E+00 0.40958E+00 0.52276E+00 0.54481E+00 0.57513E+00 0.60537E+00 + 0.64416E+00 0.69847E+00 0.76326E+00 0.84322E+00 0.95166E+00 0.10997E+01 + 0.13265E+01 0.16586E+01 0.20815E+01 0.27184E+01 0.35484E+01 0.48373E+01 + 0.71312E+01 0.11074E+02 0.17802E+02 0.28915E+02 0.47911E+02 0.79048E+02 + 0.10728E+03 0.13939E+03 0.18194E+03 0.92074E-01 0.11604E+00 0.14655E+00 + 0.19458E+00 0.25886E+00 0.34518E+00 0.46072E+00 0.61755E+00 0.82928E+00 + 0.10153E+01 0.10605E+01 0.11174E+01 0.11772E+01 0.12581E+01 0.13543E+01 + 0.14734E+01 0.16356E+01 0.18585E+01 0.21984E+01 0.26958E+01 0.33484E+01 + 0.43380E+01 0.56956E+01 0.78285E+01 0.11512E+02 0.17735E+02 0.28234E+02 + 0.45767E+02 0.75566E+02 0.12411E+03 0.20871E+03 0.27041E+03 0.35166E+03 + 0.13657E+00 0.17194E+00 0.21691E+00 0.28758E+00 0.38196E+00 0.50832E+00 + 0.67700E+00 0.90480E+00 0.12110E+01 0.16339E+01 0.19105E+01 0.19922E+01 + 0.21038E+01 0.22205E+01 0.23581E+01 0.25277E+01 0.27591E+01 0.30777E+01 + 0.35618E+01 0.42672E+01 0.52017E+01 0.66164E+01 0.85930E+01 0.11697E+02 + 0.16950E+02 0.25699E+02 0.40296E+02 0.64548E+02 0.10610E+03 0.17366E+03 + 0.28916E+03 0.46541E+03 0.60250E+03 0.20686E+00 0.26015E+00 0.32782E+00 + 0.43409E+00 0.57566E+00 0.76486E+00 0.10168E+01 0.13558E+01 0.18097E+01 + 0.24319E+01 0.32851E+01 0.36570E+01 0.38249E+01 0.40416E+01 0.42441E+01 + 0.44935E+01 0.48341E+01 0.53037E+01 0.60139E+01 0.70433E+01 0.84156E+01 + 0.10483E+02 0.13401E+02 0.17957E+02 0.25516E+02 0.37916E+02 0.58355E+02 + 0.92061E+02 0.14919E+03 0.24435E+03 0.40324E+03 0.67290E+03 0.10346E+04 + 0.31586E+00 0.39676E+00 0.49943E+00 0.66043E+00 0.87470E+00 0.11604E+01 + 0.15405E+01 0.20499E+01 0.27304E+01 0.36570E+01 0.49188E+01 0.66342E+01 + 0.70594E+01 0.74061E+01 0.77740E+01 0.81449E+01 0.86519E+01 0.93515E+01 + 0.10405E+02 0.11922E+02 0.13950E+02 0.16983E+02 0.21276E+02 0.27919E+02 + 0.38733E+02 0.56195E+02 0.84597E+02 0.13100E+03 0.20877E+03 0.33780E+03 + 0.55823E+03 0.92090E+03 0.15403E+04 0.48238E+00 0.60513E+00 0.76080E+00 + 0.10048E+01 0.13290E+01 0.17608E+01 0.23342E+01 0.31012E+01 0.41233E+01 + 0.55075E+01 0.73819E+01 0.99160E+01 0.13113E+02 0.13628E+02 0.14256E+02 + 0.14898E+02 0.15652E+02 0.16694E+02 0.18256E+02 0.20494E+02 0.23481E+02 + 0.27913E+02 0.34176E+02 0.43762E+02 0.59084E+02 0.83429E+02 0.12247E+03 + 0.18553E+03 0.28996E+03 0.46213E+03 0.75371E+03 0.12451E+04 0.20595E+04 + 0.73362E+00 0.91889E+00 0.11537E+01 0.15215E+01 0.20099E+01 0.26593E+01 + 0.35212E+01 0.46714E+01 0.62016E+01 0.82652E+01 0.11046E+02 0.14790E+02 + 0.19894E+02 0.25130E+02 0.26054E+02 0.27230E+02 0.28443E+02 0.29982E+02 + 0.32287E+02 0.35572E+02 0.39944E+02 0.46381E+02 0.55432E+02 0.69129E+02 + 0.90648E+02 0.12429E+03 0.17741E+03 0.26213E+03 0.40063E+03 0.62703E+03 + 0.10068E+04 0.16468E+04 0.27198E+04 0.11310E+01 0.14141E+01 0.17727E+01 + 0.23340E+01 0.30790E+01 0.40686E+01 0.53809E+01 0.71292E+01 0.94527E+01 + 0.12574E+02 0.16766E+02 0.22388E+02 0.30008E+02 0.40422E+02 0.48582E+02 + 0.50332E+02 0.52747E+02 0.55102E+02 0.58563E+02 0.63475E+02 0.69990E+02 + 0.79511E+02 0.92820E+02 0.11273E+03 0.14348E+03 0.19076E+03 0.26424E+03 + 0.37980E+03 0.56603E+03 0.86738E+03 0.13674E+04 0.22032E+04 0.36145E+04 + 0.17214E+01 0.21474E+01 0.26872E+01 0.35315E+01 0.46514E+01 0.61379E+01 + 0.81083E+01 0.10729E+02 0.14209E+02 0.18871E+02 0.25112E+02 0.33459E+02 + 0.44718E+02 0.60007E+02 0.80668E+02 0.92367E+02 0.95892E+02 0.10057E+03 + 0.10568E+03 0.11290E+03 0.12245E+03 0.13631E+03 0.15557E+03 0.18406E+03 + 0.22742E+03 0.29301E+03 0.39333E+03 0.54872E+03 0.79541E+03 0.11898E+04 + 0.18365E+04 0.29070E+04 0.47002E+04 0.26643E+01 0.33148E+01 0.41389E+01 + 0.54276E+01 0.71359E+01 0.94022E+01 0.12405E+02 0.16395E+02 0.21689E+02 + 0.28761E+02 0.38211E+02 0.50818E+02 0.67759E+02 0.90649E+02 0.12144E+03 + 0.16312E+03 0.17840E+03 0.18569E+03 0.19537E+03 0.20622E+03 0.22050E+03 + 0.24113E+03 0.26960E+03 0.31131E+03 0.37385E+03 0.46701E+03 0.60722E+03 + 0.82103E+03 0.11551E+04 0.16821E+04 0.25348E+04 0.39307E+04 0.62474E+04 + 0.41017E+01 0.50865E+01 0.63342E+01 0.82846E+01 0.10870E+02 0.14297E+02 + 0.18836E+02 0.24864E+02 0.32854E+02 0.43511E+02 0.57722E+02 0.76647E+02 + 0.10200E+03 0.13611E+03 0.18184E+03 0.24342E+03 0.32730E+03 0.34203E+03 + 0.35784E+03 0.37692E+03 0.39812E+03 0.42859E+03 0.47042E+03 0.53116E+03 + 0.62110E+03 0.75316E+03 0.94884E+03 0.12425E+04 0.16940E+04 0.23959E+04 + 0.35154E+04 0.53254E+04 0.82970E+04 0.42502E-09 0.23618E-09 0.74597E-10 + 0.93428E-09 0.21243E-08 0.52980E-08 0.34959E-07 0.68113E-07 0.19794E-06 + 0.32798E-06 0.59580E-06 0.26500E-06 0.30553E-04 0.14771E-03 0.52596E-03 + 0.11572E-03 0.25531E-02 0.31455E-04 0.81043E-02 0.12848E-01 0.28874E-01 + 0.48443E-01 0.79499E-01 0.12598E+00 0.19494E+00 0.29146E+00 0.44702E+00 + 0.66942E+00 0.10349E+01 0.16032E+01 0.25404E+01 0.41307E+01 0.69063E+01 + 0.15042E-08 0.14618E-08 0.13591E-08 0.53286E-09 0.74153E-09 0.36933E-08 + 0.49816E-07 0.90470E-07 0.26147E-06 0.39950E-06 0.79020E-06 0.55053E-06 + 0.38868E-04 0.18769E-03 0.66699E-03 0.14252E-03 0.32263E-02 0.29232E-04 + 0.10216E-01 0.16178E-01 0.36270E-01 0.60750E-01 0.99478E-01 0.15720E+00 + 0.24234E+00 0.36051E+00 0.54928E+00 0.81549E+00 0.12470E+01 0.19059E+01 + 0.29726E+01 0.47472E+01 0.77857E+01 0.35179E-08 0.41422E-08 0.44624E-08 + 0.40917E-08 0.32895E-08 0.00000E+00 0.61297E-07 0.12042E-06 0.30742E-06 + 0.47697E-06 0.11639E-05 0.81423E-06 0.77383E-04 0.23892E-03 0.84694E-03 + 0.17311E-03 0.40801E-02 0.17215E-04 0.12885E-01 0.20381E-01 0.45592E-01 + 0.76251E-01 0.12464E+00 0.19650E+00 0.30199E+00 0.44740E+00 0.67794E+00 + 0.99926E+00 0.15139E+01 0.22869E+01 0.35163E+01 0.55228E+01 0.88916E+01 + 0.83003E-08 0.96989E-08 0.11990E-07 0.12751E-07 0.13581E-07 0.11936E-07 + 0.66825E-07 0.16679E-06 0.42140E-06 0.79435E-06 0.18816E-05 0.95996E-06 + 0.13117E-03 0.33532E-03 0.10752E-02 0.20262E-03 0.51584E-02 0.21835E-04 + 0.16247E-01 0.25671E-01 0.57308E-01 0.95732E-01 0.15626E+00 0.24588E+00 + 0.37692E+00 0.55652E+00 0.83952E+00 0.12301E+01 0.18490E+01 0.27651E+01 + 0.41986E+01 0.64961E+01 0.10280E+02 0.16099E-07 0.21457E-07 0.25660E-07 + 0.31311E-07 0.35232E-07 0.37492E-07 0.64991E-07 0.20364E-06 0.59073E-06 + 0.14253E-05 0.39321E-05 0.66081E-06 0.19992E-03 0.47834E-03 0.13257E-02 + 0.22440E-03 0.65195E-02 0.11101E-03 0.20480E-01 0.32325E-01 0.72020E-01 + 0.12019E+00 0.19595E+00 0.30786E+00 0.47097E+00 0.69345E+00 0.10422E+01 + 0.15195E+01 0.22692E+01 0.33649E+01 0.50544E+01 0.77167E+01 0.12020E+02 + 0.30793E-07 0.41145E-07 0.55573E-07 0.65914E-07 0.82842E-07 0.92818E-07 + 0.24302E-07 0.17183E-06 0.89223E-06 0.18695E-05 0.71351E-05 0.33444E-05 + 0.25683E-03 0.65815E-03 0.15713E-02 0.21229E-03 0.82231E-02 0.30940E-03 + 0.25779E-01 0.40652E-01 0.90419E-01 0.15079E+00 0.24560E+00 0.38540E+00 + 0.58863E+00 0.86472E+00 0.12958E+01 0.18815E+01 0.27950E+01 0.41150E+01 + 0.61245E+01 0.92428E+01 0.14195E+02 0.70759E-07 0.78109E-07 0.10510E-06 + 0.14134E-06 0.17047E-06 0.20986E-06 0.79519E-07 0.55536E-07 0.89809E-06 + 0.36437E-05 0.12496E-04 0.16922E-04 0.31471E-03 0.79572E-03 0.18678E-02 + 0.11466E-03 0.10324E-01 0.73438E-03 0.32345E-01 0.50984E-01 0.11325E+00 + 0.18881E+00 0.30738E+00 0.48192E+00 0.73512E+00 0.10779E+01 0.16115E+01 + 0.23321E+01 0.34494E+01 0.50488E+01 0.74564E+01 0.11142E+02 0.16901E+02 + 0.10228E-06 0.15428E-06 0.20702E-06 0.27871E-06 0.38244E-06 0.44461E-06 + 0.30127E-06 0.28079E-06 0.65947E-06 0.39371E-05 0.17097E-04 0.47235E-04 + 0.34084E-03 0.89542E-03 0.21127E-02 0.93378E-04 0.10804E-01 0.16379E-02 + 0.40326E-01 0.63595E-01 0.14123E+00 0.23554E+00 0.38350E+00 0.60097E+00 + 0.91598E+00 0.13411E+01 0.20015E+01 0.28888E+01 0.42579E+01 0.62019E+01 + 0.91018E+01 0.13487E+02 0.20242E+02 0.20393E-06 0.28218E-06 0.39477E-06 + 0.65932E-06 0.93149E-06 0.13050E-05 0.10616E-05 0.77133E-06 0.62834E-06 + 0.77931E-06 0.11295E-04 0.11038E-03 0.32317E-03 0.90186E-03 0.21772E-02 + 0.53712E-03 0.10963E-01 0.31324E-02 0.49581E-01 0.78411E-01 0.17449E+00 + 0.29158E+00 0.47527E+00 0.74506E+00 0.11353E+01 0.16604E+01 0.24752E+01 + 0.35648E+01 0.52406E+01 0.76042E+01 0.11101E+02 0.16338E+02 0.24302E+02 + 0.44899E-06 0.55927E-06 0.75883E-06 0.10890E-05 0.19954E-05 0.30069E-05 + 0.38221E-05 0.35042E-05 0.17131E-05 0.10493E-04 0.32144E-04 0.23341E-03 + 0.22376E-03 0.78421E-03 0.20335E-02 0.12990E-02 0.10855E-01 0.53572E-02 + 0.54339E-01 0.95141E-01 0.21293E+00 0.35725E+00 0.58387E+00 0.91647E+00 + 0.13970E+01 0.20419E+01 0.30425E+01 0.43745E+01 0.64190E+01 0.92860E+01 + 0.13501E+02 0.19758E+02 0.29173E+02 0.91498E-06 0.12291E-05 0.16309E-05 + 0.24998E-05 0.39880E-05 0.78830E-05 0.13011E-04 0.18082E-04 0.13832E-04 + 0.15049E-04 0.12235E-03 0.45460E-03 0.30856E-04 0.43412E-03 0.15062E-02 + 0.26676E-02 0.95515E-02 0.91922E-02 0.50273E-01 0.10711E+00 0.25342E+00 + 0.42885E+00 0.70497E+00 0.11102E+01 0.16953E+01 0.24775E+01 0.36933E+01 + 0.53042E+01 0.77754E+01 0.11223E+02 0.16266E+02 0.23702E+02 0.34791E+02 + 0.18872E-05 0.23427E-05 0.28189E-05 0.67044E-05 0.14448E-04 0.25870E-04 + 0.58904E-04 0.11187E-03 0.14029E-03 0.12616E-03 0.26853E-03 0.84149E-03 + 0.58100E-03 0.33572E-03 0.34947E-03 0.50457E-02 0.67855E-02 0.15584E-01 + 0.42581E-01 0.94021E-01 0.28773E+00 0.49597E+00 0.82533E+00 0.13088E+01 + 0.20069E+01 0.29361E+01 0.43858E+01 0.62953E+01 0.92301E+01 0.13305E+02 + 0.19242E+02 0.27952E+02 0.40846E+02 0.81980E-05 0.12848E-04 0.26317E-04 + 0.52556E-04 0.97821E-04 0.15465E-03 0.23636E-03 0.39277E-03 0.56668E-03 + 0.66639E-03 0.75806E-03 0.16630E-02 0.17073E-02 0.19663E-02 0.20424E-02 + 0.93609E-02 0.12612E-02 0.26515E-01 0.27947E-01 0.70054E-01 0.29480E+00 + 0.53115E+00 0.90869E+00 0.14641E+01 0.22665E+01 0.33264E+01 0.49949E+01 + 0.71734E+01 0.10541E+02 0.15192E+02 0.21954E+02 0.31840E+02 0.46397E+02 + 0.47543E-04 0.86440E-04 0.13839E-03 0.24534E-03 0.43194E-03 0.68420E-03 + 0.96762E-03 0.12723E-02 0.15906E-02 0.19201E-02 0.22365E-02 0.48519E-02 + 0.38877E-02 0.49906E-02 0.64361E-02 0.16736E-01 0.83758E-02 0.44266E-01 + 0.36762E-02 0.30678E-01 0.20250E+00 0.48987E+00 0.89678E+00 0.14980E+01 + 0.23685E+01 0.35039E+01 0.53223E+01 0.76617E+01 0.11324E+02 0.16348E+02 + 0.23652E+02 0.34316E+02 0.49978E+02 0.20695E-03 0.34757E-03 0.61954E-03 + 0.98252E-03 0.13819E-02 0.18297E-02 0.22649E-02 0.28562E-02 0.34193E-02 + 0.41498E-02 0.49622E-02 0.67154E-02 0.17314E-01 0.98191E-02 0.12953E-01 + 0.27248E-01 0.21632E-01 0.67571E-01 0.27393E-01 0.19322E-01 0.70153E-01 + 0.32806E+00 0.76451E+00 0.13810E+01 0.22768E+01 0.34213E+01 0.53079E+01 + 0.76800E+01 0.11476E+02 0.16635E+02 0.24154E+02 0.35144E+02 0.51279E+02 + 0.54767E-03 0.70080E-03 0.10692E-02 0.17326E-02 0.26181E-02 0.35061E-02 + 0.44144E-02 0.55064E-02 0.64951E-02 0.76587E-02 0.91678E-02 0.11883E-01 + 0.13837E-01 0.29772E-01 0.21968E-01 0.40941E-01 0.38314E-01 0.95764E-01 + 0.63335E-01 0.75191E-01 0.73590E-01 0.67933E-01 0.49070E+00 0.10915E+01 + 0.19688E+01 0.30523E+01 0.49235E+01 0.71938E+01 0.10959E+02 0.16009E+02 + 0.23409E+02 0.34271E+02 0.50263E+02 0.20182E-02 0.25758E-02 0.32999E-02 + 0.42536E-02 0.55195E-02 0.72038E-02 0.88816E-02 0.10853E-01 0.12539E-01 + 0.14286E-01 0.16950E-01 0.21360E-01 0.23574E-01 0.30107E-01 0.38296E-01 + 0.62483E-01 0.64185E-01 0.13739E+00 0.11571E+00 0.15435E+00 0.27014E+00 + 0.28373E+00 0.13181E+00 0.32272E+00 0.10336E+01 0.18367E+01 0.34019E+01 + 0.51398E+01 0.82965E+01 0.12411E+02 0.18539E+02 0.27661E+02 0.41257E+02 + 0.48247E-02 0.61417E-02 0.78419E-02 0.10048E-01 0.12235E-01 0.14376E-01 + 0.17337E-01 0.20549E-01 0.23577E-01 0.26455E-01 0.29459E-01 0.36994E-01 + 0.40452E-01 0.48083E-01 0.69852E-01 0.94055E-01 0.99343E-01 0.19172E+00 + 0.18085E+00 0.24876E+00 0.48911E+00 0.67071E+00 0.82234E+00 0.89670E+00 + 0.56657E+00 0.25986E+00 0.71958E+00 0.15015E+01 0.34941E+01 0.58701E+01 + 0.96125E+01 0.15455E+02 0.24522E+02 0.92265E-02 0.11718E-01 0.14920E-01 + 0.19051E-01 0.24416E-01 0.28941E-01 0.32365E-01 0.38011E-01 0.42232E-01 + 0.47012E-01 0.52313E-01 0.61528E-01 0.67563E-01 0.78510E-01 0.94603E-01 + 0.35646E+00 0.15160E+00 0.26904E+00 0.27082E+00 0.37450E+00 0.76255E+00 + 0.11355E+01 0.16543E+01 0.23883E+01 0.33949E+01 0.39820E+01 0.41183E+01 + 0.50770E+01 0.53038E+01 0.61763E+01 0.69239E+01 0.72941E+01 0.68464E+01 + 0.16401E-01 0.20791E-01 0.26411E-01 0.33629E-01 0.42946E-01 0.55034E-01 + 0.64136E-01 0.70396E-01 0.78456E-01 0.85020E-01 0.92617E-01 0.10712E+00 + 0.11476E+00 0.13049E+00 0.15347E+00 0.21422E+00 0.83707E+00 0.38621E+00 + 0.40484E+00 0.55589E+00 0.11341E+01 0.17476E+01 0.27152E+01 0.42971E+01 + 0.69499E+01 0.10630E+02 0.12836E+02 0.16930E+02 0.21277E+02 0.28106E+02 + 0.37132E+02 0.49008E+02 0.64585E+02 0.27301E-01 0.34556E-01 0.43812E-01 + 0.55654E-01 0.70868E-01 0.90496E-01 0.11767E+00 0.13515E+00 0.14442E+00 + 0.15686E+00 0.16850E+00 0.19023E+00 0.20162E+00 0.22478E+00 0.25841E+00 + 0.34297E+00 0.37632E+00 0.10919E+01 0.62289E+00 0.84338E+00 0.16934E+01 + 0.26438E+01 0.42245E+01 0.69891E+01 0.11782E+02 0.21009E+02 0.29109E+02 + 0.39015E+02 0.51169E+02 0.69190E+02 0.93827E+02 0.12749E+03 0.17351E+03 + 0.45039E-01 0.56931E-01 0.72065E-01 0.91366E-01 0.11607E+00 0.14779E+00 + 0.19160E+00 0.26049E+00 0.28101E+00 0.29833E+00 0.31820E+00 0.34821E+00 + 0.36722E+00 0.40235E+00 0.45301E+00 0.57428E+00 0.62814E+00 0.92398E+00 + 0.99450E+00 0.13211E+01 0.25763E+01 0.40187E+01 0.64810E+01 0.10870E+02 + 0.18842E+02 0.33693E+02 0.59433E+02 0.79991E+02 0.10667E+03 0.14539E+03 + 0.19899E+03 0.27318E+03 0.37592E+03 0.68515E-01 0.86501E-01 0.10935E+00 + 0.13841E+00 0.17550E+00 0.22293E+00 0.28824E+00 0.39020E+00 0.51982E+00 + 0.54116E+00 0.57000E+00 0.61467E+00 0.63761E+00 0.68730E+00 0.75865E+00 + 0.92745E+00 0.10024E+01 0.13750E+01 0.15046E+01 0.19477E+01 0.36294E+01 + 0.55657E+01 0.88857E+01 0.14815E+02 0.25649E+02 0.46055E+02 0.82438E+02 + 0.13615E+03 0.18215E+03 0.24844E+03 0.34060E+03 0.46873E+03 0.64693E+03 + 0.10472E+00 0.13206E+00 0.16673E+00 0.21076E+00 0.26679E+00 0.33825E+00 + 0.43646E+00 0.58880E+00 0.79588E+00 0.10098E+01 0.10528E+01 0.11304E+01 + 0.11674E+01 0.12416E+01 0.13476E+01 0.15926E+01 0.17063E+01 0.22285E+01 + 0.24348E+01 0.30710E+01 0.54489E+01 0.81831E+01 0.12872E+02 0.21231E+02 + 0.36476E+02 0.65438E+02 0.11719E+03 0.21681E+03 0.32157E+03 0.43813E+03 + 0.60079E+03 0.82770E+03 0.11444E+04 0.15524E+00 0.19555E+00 0.24663E+00 + 0.31136E+00 0.39359E+00 0.49819E+00 0.64172E+00 0.86325E+00 0.11630E+01 + 0.15788E+01 0.18991E+01 0.20122E+01 0.20891E+01 0.21959E+01 0.23483E+01 + 0.26993E+01 0.28588E+01 0.35851E+01 0.38798E+01 0.47598E+01 0.79913E+01 + 0.11668E+02 0.17930E+02 0.29005E+02 0.49068E+02 0.86805E+02 0.15613E+03 + 0.28552E+03 0.52679E+03 0.71515E+03 0.97857E+03 0.13468E+04 0.18615E+04 + 0.23499E+00 0.29570E+00 0.37251E+00 0.46979E+00 0.59310E+00 0.74970E+00 + 0.96433E+00 0.12942E+01 0.17391E+01 0.23515E+01 0.31942E+01 0.36879E+01 + 0.38010E+01 0.40045E+01 0.42295E+01 0.47446E+01 0.49776E+01 0.60155E+01 + 0.64529E+01 0.77087E+01 0.12235E+02 0.17319E+02 0.25891E+02 0.40893E+02 + 0.67810E+02 0.11786E+03 0.20974E+03 0.38332E+03 0.70292E+03 0.11827E+04 + 0.16127E+04 0.22148E+04 0.30578E+04 0.35857E+00 0.45071E+00 0.56719E+00 + 0.71456E+00 0.90109E+00 0.11376E+01 0.14615E+01 0.19577E+01 0.26251E+01 + 0.35381E+01 0.47864E+01 0.65711E+01 0.70233E+01 0.73490E+01 0.77519E+01 + 0.85177E+01 0.88619E+01 0.10370E+02 0.11024E+02 0.12842E+02 0.19272E+02 + 0.26386E+02 0.38232E+02 0.58691E+02 0.94952E+02 0.16148E+03 0.28291E+03 + 0.51367E+03 0.93638E+03 0.17390E+04 0.26469E+04 0.36229E+04 0.49908E+04 + 0.54719E+00 0.68695E+00 0.86349E+00 0.10866E+01 0.13689E+01 0.17262E+01 + 0.22154E+01 0.29627E+01 0.39657E+01 0.53310E+01 0.71879E+01 0.98095E+01 + 0.13058E+02 0.13541E+02 0.14226E+02 0.15458E+02 0.15964E+02 0.18175E+02 + 0.19143E+02 0.21787E+02 0.30974E+02 0.40969E+02 0.57374E+02 0.85276E+02 + 0.13402E+03 0.22212E+03 0.38153E+03 0.68119E+03 0.12425E+04 0.22783E+04 + 0.42592E+04 0.58576E+04 0.80433E+04 0.83145E+00 0.10423E+01 0.13086E+01 + 0.16449E+01 0.20699E+01 0.26074E+01 0.33430E+01 0.44643E+01 0.59667E+01 + 0.80031E+01 0.10762E+02 0.14616E+02 0.19629E+02 0.24998E+02 0.26006E+02 + 0.28093E+02 0.28908E+02 0.32167E+02 0.33575E+02 0.37418E+02 0.50553E+02 + 0.64601E+02 0.87309E+02 0.12529E+03 0.19057E+03 0.30665E+03 0.51430E+03 + 0.89989E+03 0.16174E+04 0.29635E+04 0.54753E+04 0.93503E+04 0.12782E+05 + 0.12805E+01 0.16026E+01 0.20091E+01 0.25223E+01 0.31705E+01 0.39897E+01 + 0.51101E+01 0.68154E+01 0.90972E+01 0.12180E+02 0.16341E+02 0.22105E+02 + 0.29627E+02 0.40115E+02 0.48509E+02 0.51635E+02 0.53490E+02 0.58369E+02 + 0.60465E+02 0.66159E+02 0.85332E+02 0.10551E+03 0.13762E+03 0.19042E+03 + 0.27959E+03 0.43533E+03 0.71021E+03 0.12136E+04 0.21419E+04 0.38931E+04 + 0.71422E+04 0.13285E+05 0.20509E+05 0.19464E+01 0.24311E+01 0.30428E+01 + 0.38146E+01 0.47890E+01 0.60195E+01 0.77024E+01 0.10259E+02 0.13678E+02 + 0.18284E+02 0.24484E+02 0.33014E+02 0.44169E+02 0.59594E+02 0.80838E+02 + 0.94353E+02 0.97027E+02 0.10550E+03 0.10850E+03 0.11684E+03 0.14455E+03 + 0.17325E+03 0.21827E+03 0.29103E+03 0.41170E+03 0.61856E+03 0.97799E+03 + 0.16262E+04 0.28083E+04 0.50160E+04 0.91898E+04 0.16876E+05 0.31579E+05 + 0.30079E+01 0.37480E+01 0.46817E+01 0.58594E+01 0.73456E+01 0.92218E+01 + 0.11787E+02 0.15680E+02 0.20882E+02 0.27873E+02 0.37268E+02 0.50112E+02 + 0.66955E+02 0.90083E+02 0.12173E+03 0.16766E+03 0.18012E+03 0.19335E+03 + 0.19963E+03 0.21207E+03 0.25301E+03 0.29484E+03 0.35952E+03 0.46233E+03 + 0.62977E+03 0.91132E+03 0.13922E+04 0.22451E+04 0.37798E+04 0.66133E+04 + 0.11923E+05 0.21875E+05 0.40437E+05 0.46217E+01 0.57427E+01 0.71558E+01 + 0.89383E+01 0.11187E+02 0.14024E+02 0.17903E+02 0.23785E+02 0.31638E+02 + 0.42175E+02 0.56310E+02 0.75544E+02 0.10082E+03 0.13532E+03 0.18229E+03 + 0.24946E+03 0.33389E+03 0.35365E+03 0.36483E+03 0.38569E+03 0.44593E+03 + 0.50673E+03 0.59956E+03 0.74485E+03 0.97732E+03 0.13607E+04 0.20038E+04 + 0.31237E+04 0.51091E+04 0.87258E+04 0.15432E+05 0.28054E+05 0.51515E+05 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.28628E-03 + 0.21337E-02 0.91724E-02 0.30749E-01 0.83771E-01 0.20417E+00 0.45185E+00 + 0.89020E+00 0.17380E+01 0.33691E+01 0.64257E+01 0.13146E+02 0.23558E+02 + 0.47329E+02 0.84960E+02 0.15206E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.33815E-03 0.25162E-02 0.10802E-01 0.34750E-01 + 0.91924E-01 0.22074E+00 0.54567E+00 0.10893E+01 0.21262E+01 0.41207E+01 + 0.78583E+01 0.16075E+02 0.28805E+02 0.57869E+02 0.10388E+03 0.18592E+03 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.40434E-03 + 0.30029E-02 0.12870E-01 0.40539E-01 0.10517E+00 0.24649E+00 0.63286E+00 + 0.12736E+01 0.24852E+01 0.48155E+01 0.91819E+01 0.18781E+02 0.33651E+02 + 0.67600E+02 0.12134E+03 0.21718E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.48889E-03 0.36225E-02 0.15495E-01 0.50377E-01 + 0.13213E+00 0.29572E+00 0.63460E+00 0.12746E+01 0.24863E+01 0.48163E+01 + 0.91816E+01 0.18778E+02 0.33642E+02 0.67579E+02 0.12130E+03 0.21710E+03 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.67198E-03 + 0.49670E-02 0.21196E-01 0.56804E-01 0.13251E+00 0.29628E+00 0.63530E+00 + 0.12753E+01 0.24867E+01 0.48156E+01 0.91783E+01 0.18770E+02 0.33621E+02 + 0.67535E+02 0.12122E+03 0.21696E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.68013E-03 0.50131E-02 0.21335E-01 0.57065E-01 + 0.13292E+00 0.29685E+00 0.63594E+00 0.12758E+01 0.24863E+01 0.48131E+01 + 0.91714E+01 0.18754E+02 0.33586E+02 0.67463E+02 0.12110E+03 0.21674E+03 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.89145E-03 + 0.65517E-02 0.27798E-01 0.75228E-01 0.16801E+00 0.35081E+00 0.74015E+00 + 0.14797E+01 0.28818E+01 0.55764E+01 0.10623E+02 0.21720E+02 0.38889E+02 + 0.78117E+02 0.14023E+03 0.25100E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.38081E-04 + 0.58557E-03 0.23662E-02 0.66753E-02 0.16741E-01 0.41321E-01 0.96794E-01 + 0.20850E+00 0.42892E+00 0.89325E+00 0.17661E+01 0.34374E+01 0.66485E+01 + 0.12662E+02 0.25889E+02 0.46337E+02 0.93086E+02 0.16712E+03 0.29917E+03 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.69636E-04 0.10880E-02 0.34069E-02 0.83814E-02 + 0.20527E-01 0.49268E-01 0.11230E+00 0.23702E+00 0.48594E+00 0.10134E+01 + 0.20004E+01 0.38906E+01 0.75217E+01 0.14321E+02 0.29286E+02 0.52397E+02 + 0.10528E+03 0.18907E+03 0.33854E+03 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 + 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.70395E-04 + 0.11285E-02 0.36771E-02 0.92501E-02 0.22810E-01 0.54949E-01 0.12289E+00 + 0.25476E+00 0.52111E+00 0.10861E+01 0.21419E+01 0.41629E+01 0.80450E+01 + 0.15315E+02 0.31333E+02 0.56031E+02 0.11264E+03 0.20238E+03 0.36253E+03 + 0.00000E+00 0.00000E+00 0.88178E-10 0.49711E-08 0.12087E-07 0.32583E-07 + 0.67548E-07 0.10798E-06 0.14582E-06 0.19469E-06 0.21037E-06 0.17863E-06 + 0.00000E+00 0.54588E-06 0.52420E-04 0.88983E-03 0.33852E-02 0.92388E-02 + 0.23504E-01 0.58049E-01 0.12881E+00 0.26660E+00 0.55111E+00 0.11381E+01 + 0.22357E+01 0.43435E+01 0.83933E+01 0.15980E+02 0.32729E+02 0.58490E+02 + 0.11770E+03 0.21166E+03 0.37946E+03 0.00000E+00 0.00000E+00 0.69307E-08 + 0.38650E-06 0.92843E-06 0.24719E-05 0.50658E-05 0.80371E-05 0.10865E-04 + 0.14806E-04 0.17265E-04 0.18547E-04 0.14996E-04 0.80783E-06 0.79239E-04 + 0.99308E-03 0.24200E-02 0.56321E-02 0.18334E-01 0.55369E-01 0.12985E+00 + 0.27011E+00 0.55871E+00 0.11566E+01 0.22694E+01 0.44087E+01 0.85216E+01 + 0.16233E+02 0.33308E+02 0.59477E+02 0.11987E+03 0.21589E+03 0.38753E+03 + 0.00000E+00 0.00000E+00 0.34725E-07 0.19178E-05 0.45556E-05 0.11981E-04 + 0.24243E-04 0.38014E-04 0.50963E-04 0.69435E-04 0.83007E-04 0.96002E-04 + 0.99111E-04 0.75698E-04 0.00000E+00 0.74699E-03 0.27506E-02 0.73411E-02 + 0.20740E-01 0.54063E-01 0.12509E+00 0.26401E+00 0.54625E+00 0.11356E+01 + 0.22633E+01 0.43997E+01 0.85116E+01 0.16231E+02 0.33404E+02 0.59589E+02 + 0.12039E+03 0.21730E+03 0.39081E+03 0.00000E+00 0.00000E+00 0.13697E-06 + 0.75030E-05 0.17652E-04 0.46403E-04 0.93131E-04 0.14431E-03 0.19142E-03 + 0.25914E-03 0.31072E-03 0.36858E-03 0.41617E-03 0.42679E-03 0.44218E-03 + 0.20000E-03 0.14055E-02 0.52317E-02 0.16312E-01 0.40913E-01 0.10359E+00 + 0.23862E+00 0.50339E+00 0.10514E+01 0.21245E+01 0.41437E+01 0.80421E+01 + 0.15384E+02 0.31861E+02 0.56766E+02 0.11526E+03 0.20892E+03 0.37710E+03 + 0.00000E+00 0.00000E+00 0.49591E-06 0.26974E-04 0.62937E-04 0.16215E-03 + 0.32071E-03 0.49108E-03 0.64365E-03 0.86203E-03 0.10287E-02 0.12269E-02 + 0.14268E-02 0.15915E-02 0.19125E-02 0.27945E-02 0.22857E-02 0.00000E+00 + 0.89764E-02 0.28259E-01 0.71877E-01 0.17550E+00 0.42055E+00 0.90944E+00 + 0.18628E+01 0.36657E+01 0.71701E+01 0.13812E+02 0.28959E+02 0.51514E+02 + 0.10555E+03 0.19280E+03 0.35024E+03 0.00000E+00 0.00000E+00 0.15613E-05 + 0.84429E-04 0.19560E-03 0.49968E-03 0.97857E-03 0.14816E-02 0.19182E-02 + 0.25362E-02 0.29895E-02 0.35328E-02 0.41156E-02 0.46931E-02 0.57171E-02 + 0.85099E-02 0.98665E-02 0.10153E-01 0.41858E-02 0.90174E-02 0.40484E-01 + 0.93206E-01 0.25443E+00 0.71653E+00 0.15280E+01 0.30617E+01 0.60781E+01 + 0.11856E+02 0.25366E+02 0.45034E+02 0.93607E+02 0.17300E+03 0.31728E+03 + 0.00000E+00 0.00000E+00 0.47050E-05 0.25322E-03 0.58317E-03 0.14792E-02 + 0.28724E-02 0.43067E-02 0.55140E-02 0.72018E-02 0.83843E-02 0.97945E-02 + 0.11338E-01 0.12965E-01 0.15630E-01 0.22103E-01 0.27043E-01 0.32274E-01 + 0.32419E-01 0.30629E-01 0.12907E-01 0.33690E-01 0.89971E-01 0.33856E+00 + 0.98614E+00 0.20827E+01 0.42993E+01 0.86454E+01 0.19320E+02 0.34216E+02 + 0.73197E+02 0.13832E+03 0.25817E+03 0.00000E+00 0.00000E+00 0.13250E-04 + 0.71026E-03 0.16279E-02 0.41052E-02 0.79156E-02 0.11768E-01 0.14920E-01 + 0.19270E-01 0.22157E-01 0.25552E-01 0.29267E-01 0.33259E-01 0.39360E-01 + 0.52258E-01 0.63216E-01 0.76881E-01 0.88104E-01 0.10574E+00 0.11742E+00 + 0.11599E+00 0.80406E-01 0.41063E-01 0.37989E+00 0.10538E+01 0.25351E+01 + 0.56296E+01 0.14139E+02 0.24964E+02 0.57093E+02 0.11308E+03 0.21852E+03 + 0.00000E+00 0.00000E+00 0.27855E-04 0.14884E-02 0.33978E-02 0.85409E-02 + 0.16384E-01 0.24190E-01 0.30408E-01 0.38887E-01 0.44225E-01 0.50389E-01 + 0.57012E-01 0.64021E-01 0.74904E-01 0.98190E-01 0.11820E+00 0.14398E+00 + 0.17160E+00 0.21744E+00 0.27193E+00 0.33888E+00 0.42069E+00 0.48483E+00 + 0.51786E+00 0.47799E+00 0.11843E+00 0.10264E+01 0.58913E+01 0.10362E+02 + 0.30557E+02 0.69463E+02 0.14645E+03 0.00000E+00 0.00000E+00 0.56836E-04 + 0.30292E-02 0.68931E-02 0.17279E-01 0.33004E-01 0.48443E-01 0.60461E-01 + 0.76668E-01 0.86349E-01 0.97300E-01 0.10875E+00 0.12048E+00 0.13877E+00 + 0.17780E+00 0.21072E+00 0.25331E+00 0.30319E+00 0.38653E+00 0.49661E+00 + 0.65031E+00 0.87791E+00 0.12222E+01 0.16468E+01 0.23562E+01 0.33082E+01 + 0.44238E+01 0.37540E+01 0.65714E+01 0.00000E+00 0.19459E+02 0.64094E+02 + 0.00000E+00 0.00000E+00 0.12214E-03 0.64965E-02 0.14745E-01 0.36842E-01 + 0.70069E-01 0.10232E+00 0.12698E+00 0.15992E+00 0.17869E+00 0.19951E+00 + 0.22066E+00 0.24155E+00 0.27385E+00 0.34168E+00 0.39883E+00 0.47187E+00 + 0.56234E+00 0.71250E+00 0.92047E+00 0.12244E+01 0.17000E+01 0.24757E+01 + 0.35813E+01 0.55062E+01 0.85614E+01 0.13269E+02 0.19228E+02 0.33462E+02 + 0.48174E+02 0.59002E+02 0.64628E+02 0.00000E+00 0.00000E+00 0.26019E-03 + 0.13816E-01 0.31293E-01 0.77981E-01 0.14777E+00 0.21487E+00 0.26542E+00 + 0.33238E+00 0.36889E+00 0.40859E+00 0.44759E+00 0.48428E+00 0.53983E+00 + 0.65275E+00 0.74837E+00 0.86848E+00 0.10210E+01 0.12715E+01 0.16237E+01 + 0.21445E+01 0.29705E+01 0.43432E+01 0.63735E+01 0.99207E+01 0.15744E+02 + 0.25125E+02 0.39625E+02 0.68465E+02 0.11025E+03 0.15945E+03 0.22856E+03 + 0.00000E+00 0.00000E+00 0.52731E-03 0.27963E-01 0.63229E-01 0.15712E+00 + 0.29686E+00 0.43019E+00 0.52933E+00 0.65971E+00 0.72797E+00 0.80070E+00 + 0.86932E+00 0.92978E+00 0.10185E+01 0.11890E+01 0.13343E+01 0.15162E+01 + 0.17485E+01 0.21262E+01 0.26571E+01 0.34404E+01 0.46803E+01 0.67396E+01 + 0.98072E+01 0.15136E+02 0.23940E+02 0.38271E+02 0.61686E+02 0.10565E+03 + 0.17517E+03 0.26345E+03 0.39695E+03 0.00000E+00 0.00000E+00 0.11069E-02 + 0.58636E-01 0.13241E+00 0.32778E+00 0.61791E+00 0.89361E+00 0.10959E+01 + 0.13602E+01 0.14939E+01 0.16338E+01 0.17603E+01 0.18632E+01 0.20095E+01 + 0.22637E+01 0.24795E+01 0.27641E+01 0.31292E+01 0.37158E+01 0.45377E+01 + 0.57431E+01 0.76390E+01 0.10769E+02 0.15429E+02 0.23451E+02 0.36694E+02 + 0.58309E+02 0.94714E+02 0.16048E+03 0.26979E+03 0.41381E+03 0.63881E+03 + 0.00000E+00 0.00000E+00 0.22884E-02 0.12112E+00 0.27322E+00 0.67547E+00 + 0.12712E+01 0.18346E+01 0.22440E+01 0.27766E+01 0.30380E+01 0.33072E+01 + 0.35394E+01 0.37107E+01 0.39321E+01 0.42427E+01 0.45626E+01 0.49972E+01 + 0.55543E+01 0.64405E+01 0.76739E+01 0.94670E+01 0.12259E+02 0.16823E+02 + 0.23569E+02 0.35042E+02 0.53862E+02 0.84463E+02 0.13663E+03 0.22854E+03 + 0.38497E+03 0.59451E+03 0.92641E+03 0.00000E+00 0.00000E+00 0.42772E-02 + 0.22623E+00 0.50988E+00 0.12592E+01 0.23666E+01 0.34097E+01 0.41619E+01 + 0.51362E+01 0.56020E+01 0.60746E+01 0.64760E+01 0.67634E+01 0.71167E+01 + 0.75355E+01 0.79841E+01 0.86040E+01 0.93938E+01 0.10643E+02 0.12366E+02 + 0.14848E+02 0.18668E+02 0.24833E+02 0.33843E+02 0.48961E+02 0.73496E+02 + 0.11305E+03 0.18050E+03 0.29731E+03 0.49766E+03 0.76739E+03 0.11965E+04 + 0.00000E+00 0.00000E+00 0.80458E-02 0.42533E+00 0.95798E+00 0.23639E+01 + 0.44378E+01 0.63853E+01 0.77811E+01 0.95827E+01 0.10425E+02 0.11270E+02 + 0.12003E+02 0.12562E+02 0.13194E+02 0.13708E+02 0.14338E+02 0.15241E+02 + 0.16386E+02 0.18187E+02 0.20654E+02 0.24172E+02 0.29529E+02 0.38060E+02 + 0.50374E+02 0.70733E+02 0.10336E+03 0.15542E+03 0.24391E+03 0.39454E+03 + 0.65392E+03 0.10038E+04 0.15615E+04 0.00000E+00 0.00000E+00 0.14764E-01 + 0.78014E+00 0.17562E+01 0.43305E+01 0.81229E+01 0.11675E+02 0.14208E+02 + 0.17469E+02 0.18966E+02 0.20450E+02 0.21748E+02 0.22758E+02 0.23841E+02 + 0.24453E+02 0.25318E+02 0.26599E+02 0.28212E+02 0.30744E+02 0.34189E+02 + 0.39061E+02 0.46400E+02 0.57940E+02 0.74373E+02 0.10114E+03 0.14343E+03 + 0.21004E+03 0.32239E+03 0.51065E+03 0.83421E+03 0.12699E+04 0.19633E+04 + 0.00000E+00 0.00000E+00 0.26599E-01 0.14050E+01 0.31615E+01 0.77916E+01 + 0.14605E+02 0.20974E+02 0.25497E+02 0.31306E+02 0.33935E+02 0.36514E+02 + 0.38734E+02 0.40404E+02 0.42158E+02 0.43002E+02 0.44200E+02 0.45980E+02 + 0.48206E+02 0.51704E+02 0.56433E+02 0.63077E+02 0.72995E+02 0.88402E+02 + 0.11005E+03 0.14478E+03 0.19884E+03 0.28278E+03 0.42281E+03 0.65382E+03 + 0.10485E+04 0.15774E+04 0.24163E+04 0.00000E+00 0.00000E+00 0.46113E-01 + 0.24351E+01 0.54775E+01 0.13494E+02 0.25279E+02 0.36278E+02 0.44064E+02 + 0.54045E+02 0.58504E+02 0.62844E+02 0.66528E+02 0.69213E+02 0.71976E+02 + 0.73073E+02 0.74651E+02 0.77014E+02 0.79936E+02 0.84564E+02 0.90793E+02 + 0.99505E+02 0.11242E+03 0.13227E+03 0.15980E+03 0.20337E+03 0.27013E+03 + 0.37221E+03 0.54015E+03 0.81314E+03 0.12749E+04 0.18888E+04 0.28569E+04 + 0.00000E+00 0.00000E+00 0.78490E-01 0.41440E+01 0.93188E+01 0.22949E+02 + 0.42974E+02 0.61638E+02 0.74815E+02 0.91682E+02 0.99140E+02 0.10635E+03 + 0.11239E+03 0.11668E+03 0.12101E+03 0.12238E+03 0.12440E+03 0.12746E+03 + 0.13119E+03 0.13718E+03 0.14523E+03 0.15646E+03 0.17302E+03 0.19827E+03 + 0.23290E+03 0.28703E+03 0.36869E+03 0.49161E+03 0.69070E+03 0.10096E+04 + 0.15420E+04 0.22431E+04 0.33403E+04 0.00000E+00 0.00000E+00 0.12734E+00 + 0.67220E+01 0.15113E+02 0.37207E+02 0.69649E+02 0.99853E+02 0.12113E+03 + 0.14834E+03 0.16026E+03 0.17173E+03 0.18123E+03 0.18779E+03 0.19431E+03 + 0.19586E+03 0.19824E+03 0.20194E+03 0.20635E+03 0.21364E+03 0.22343E+03 + 0.23712E+03 0.25730E+03 0.28790E+03 0.32946E+03 0.39380E+03 0.48947E+03 + 0.63124E+03 0.85686E+03 0.12135E+04 0.17992E+04 0.25610E+04 0.37420E+04 + 0.00000E+00 0.00000E+00 0.20204E+00 0.10664E+02 0.23970E+02 0.59000E+02 + 0.11041E+03 0.15824E+03 0.19188E+03 0.23483E+03 0.25353E+03 0.27142E+03 + 0.28610E+03 0.29601E+03 0.30568E+03 0.30729E+03 0.30991E+03 0.31417E+03 + 0.31909E+03 0.32764E+03 0.33913E+03 0.35533E+03 0.37930E+03 0.41560E+03 + 0.46454E+03 0.53982E+03 0.65030E+03 0.81163E+03 0.10636E+04 0.14575E+04 + 0.20919E+04 0.29058E+04 0.41537E+04 0.17636E-09 0.29350E-10 0.82101E-09 + 0.27104E-08 0.70475E-08 0.16901E-07 0.40086E-07 0.95261E-07 0.24050E-06 + 0.51862E-06 0.13060E-05 0.44185E-05 0.40080E-04 0.18320E-03 0.52841E-03 + 0.13662E-02 0.36742E-02 0.86422E-02 0.18005E-01 0.31988E-01 0.54340E-01 + 0.83548E-01 0.12728E+00 0.19383E+00 0.28686E+00 0.41628E+00 0.60129E+00 + 0.86099E+00 0.13075E+01 0.17668E+01 0.26507E+01 0.37501E+01 0.53035E+01 + 0.46658E-09 0.25270E-09 0.42539E-09 0.25430E-08 0.73465E-08 0.18492E-07 + 0.43292E-07 0.10917E-06 0.30045E-06 0.77237E-06 0.23343E-05 0.84357E-05 + 0.64756E-04 0.25842E-03 0.67929E-03 0.18426E-02 0.43393E-02 0.10313E-01 + 0.22862E-01 0.40528E-01 0.68736E-01 0.10554E+00 0.16060E+00 0.24432E+00 + 0.36123E+00 0.52372E+00 0.75560E+00 0.10805E+01 0.16381E+01 0.22091E+01 + 0.33050E+01 0.46623E+01 0.65696E+01 0.72155E-09 0.98093E-09 0.49316E-09 + 0.12578E-08 0.65758E-08 0.19036E-07 0.44731E-07 0.11215E-06 0.33410E-06 + 0.10098E-05 0.44436E-05 0.16625E-04 0.87688E-04 0.34304E-03 0.85805E-03 + 0.21934E-02 0.52007E-02 0.11346E-01 0.27917E-01 0.51425E-01 0.87048E-01 + 0.13345E+00 0.20281E+00 0.30817E+00 0.45522E+00 0.65930E+00 0.95029E+00 + 0.13574E+01 0.20549E+01 0.27664E+01 0.41295E+01 0.58115E+01 0.81642E+01 + 0.11516E-08 0.14485E-08 0.15156E-08 0.24069E-09 0.53227E-08 0.22910E-07 + 0.56088E-07 0.11379E-06 0.31832E-06 0.11616E-05 0.60150E-05 0.33212E-04 + 0.11721E-03 0.41872E-03 0.10269E-02 0.25767E-02 0.59306E-02 0.12686E-01 + 0.29460E-01 0.65385E-01 0.11041E+00 0.16895E+00 0.25636E+00 0.38903E+00 + 0.57407E+00 0.83063E+00 0.11960E+01 0.17067E+01 0.25806E+01 0.34691E+01 + 0.51688E+01 0.72598E+01 0.10174E+02 0.21019E-08 0.26190E-08 0.31068E-08 + 0.25117E-08 0.17648E-08 0.21101E-07 0.83638E-07 0.17876E-06 0.29079E-06 + 0.91909E-06 0.67725E-05 0.45754E-04 0.15925E-03 0.48552E-03 0.11785E-02 + 0.28862E-02 0.66359E-02 0.13993E-01 0.31446E-01 0.68435E-01 0.14030E+00 + 0.21420E+00 0.32442E+00 0.49157E+00 0.72452E+00 0.10472E+01 0.15064E+01 + 0.21475E+01 0.32437E+01 0.43552E+01 0.64788E+01 0.90853E+01 0.12707E+02 + 0.38385E-08 0.52387E-08 0.58593E-08 0.63330E-08 0.45200E-08 0.13387E-07 + 0.83869E-07 0.29918E-06 0.60824E-06 0.77253E-06 0.57796E-05 0.51208E-04 + 0.19359E-03 0.55721E-03 0.13065E-02 0.31554E-02 0.71487E-02 0.14991E-01 + 0.33677E-01 0.71144E-01 0.15297E+00 0.27203E+00 0.41108E+00 0.62174E+00 + 0.91515E+00 0.13211E+01 0.18986E+01 0.27041E+01 0.40800E+01 0.54724E+01 + 0.81300E+01 0.11386E+02 0.15899E+02 0.20744E-07 0.26790E-07 0.33729E-07 + 0.62791E-07 0.12576E-06 0.17710E-06 0.36695E-06 0.29908E-06 0.64647E-06 + 0.27235E-05 0.37761E-05 0.40964E-04 0.19138E-03 0.58182E-03 0.13855E-02 + 0.33284E-02 0.74140E-02 0.15608E-01 0.34696E-01 0.73906E-01 0.15526E+00 + 0.30925E+00 0.51853E+00 0.78305E+00 0.11513E+01 0.16604E+01 0.23841E+01 + 0.33933E+01 0.51174E+01 0.68565E+01 0.10178E+02 0.14241E+02 0.19863E+02 + 0.41193E-07 0.56352E-07 0.83769E-07 0.12821E-06 0.34252E-06 0.70656E-06 + 0.15339E-05 0.26016E-05 0.25124E-05 0.33009E-05 0.16859E-04 0.43995E-04 + 0.18313E-03 0.59365E-03 0.14705E-02 0.35985E-02 0.76750E-02 0.16263E-01 + 0.35908E-01 0.75630E-01 0.15869E+00 0.31419E+00 0.62577E+00 0.98850E+00 + 0.14512E+01 0.20902E+01 0.29981E+01 0.42635E+01 0.64255E+01 0.86008E+01 + 0.12758E+02 0.17838E+02 0.24857E+02 0.20675E-07 0.39452E-07 0.61847E-07 + 0.12134E-06 0.17533E-06 0.43083E-07 0.89848E-06 0.36772E-05 0.10710E-04 + 0.27559E-04 0.60756E-04 0.12486E-03 0.34295E-03 0.75869E-03 0.17552E-02 + 0.41728E-02 0.89635E-02 0.17866E-01 0.38634E-01 0.80201E-01 0.16576E+00 + 0.32795E+00 0.64745E+00 0.12714E+01 0.18598E+01 0.26713E+01 0.38233E+01 + 0.54273E+01 0.81635E+01 0.10917E+02 0.16167E+02 0.22573E+02 0.31408E+02 + 0.16138E-06 0.26148E-06 0.43327E-06 0.61492E-06 0.73762E-06 0.53746E-06 + 0.88317E-06 0.55751E-05 0.16280E-04 0.39577E-04 0.88836E-04 0.18767E-03 + 0.40202E-03 0.16059E-02 0.20383E-02 0.45916E-02 0.96869E-02 0.19327E-01 + 0.41024E-01 0.84061E-01 0.17040E+00 0.33724E+00 0.66469E+00 0.13289E+01 + 0.23629E+01 0.33858E+01 0.48370E+01 0.68560E+01 0.10300E+02 0.13760E+02 + 0.20357E+02 0.28400E+02 0.39482E+02 0.29817E-06 0.38396E-06 0.79977E-06 + 0.15685E-05 0.24333E-05 0.27818E-05 0.19143E-05 0.28282E-05 0.16388E-04 + 0.45835E-04 0.10743E-03 0.23653E-03 0.51303E-03 0.11251E-02 0.64828E-02 + 0.52521E-02 0.10582E-01 0.20734E-01 0.43360E-01 0.87771E-01 0.17602E+00 + 0.34565E+00 0.68385E+00 0.13600E+01 0.26035E+01 0.42944E+01 0.61214E+01 + 0.86625E+01 0.12997E+02 0.17342E+02 0.25633E+02 0.35734E+02 0.49639E+02 + 0.20980E-04 0.27599E-04 0.36733E-04 0.53090E-04 0.79765E-04 0.11825E-03 + 0.15855E-03 0.20395E-03 0.24947E-03 0.29257E-03 0.31885E-03 0.30853E-03 + 0.16481E-03 0.29712E-03 0.13724E-02 0.11418E-01 0.86421E-02 0.17753E-01 + 0.38866E-01 0.80068E-01 0.16271E+00 0.32217E+00 0.64087E+00 0.12952E+01 + 0.24811E+01 0.47319E+01 0.73029E+01 0.10353E+02 0.15599E+02 0.20787E+02 + 0.30825E+02 0.43098E+02 0.60014E+02 0.12671E-03 0.16453E-03 0.21554E-03 + 0.28375E-03 0.37764E-03 0.46995E-03 0.56737E-03 0.70195E-03 0.83725E-03 + 0.98344E-03 0.10962E-02 0.11669E-02 0.10860E-02 0.69712E-03 0.41697E-03 + 0.33468E-02 0.86947E-02 0.18617E-01 0.40436E-01 0.82601E-01 0.16632E+00 + 0.32589E+00 0.64166E+00 0.12870E+01 0.24870E+01 0.47293E+01 0.89341E+01 + 0.15978E+02 0.24076E+02 0.31970E+02 0.47438E+02 0.66385E+02 0.92502E+02 + 0.29586E-04 0.37954E-04 0.48854E-04 0.62717E-04 0.80472E-04 0.10230E-03 + 0.11484E-03 0.11320E-03 0.97967E-04 0.47011E-04 0.11057E-03 0.46903E-03 + 0.12161E-02 0.26469E-02 0.51371E-02 0.10146E-01 0.18307E-01 0.33674E-01 + 0.63837E-01 0.11712E+00 0.22054E+00 0.41147E+00 0.78021E+00 0.15192E+01 + 0.28697E+01 0.54173E+01 0.10126E+02 0.18725E+02 0.33650E+02 0.44572E+02 + 0.65535E+02 0.91041E+02 0.12607E+03 0.54527E-03 0.70090E-03 0.90713E-03 + 0.11774E-02 0.15411E-02 0.20354E-02 0.27122E-02 0.32798E-02 0.36537E-02 + 0.41409E-02 0.46341E-02 0.51176E-02 0.55009E-02 0.55929E-02 0.50846E-02 + 0.30185E-02 0.11735E-02 0.96161E-02 0.49994E-01 0.71034E-01 0.14932E+00 + 0.29784E+00 0.58957E+00 0.11827E+01 0.22865E+01 0.43680E+01 0.83476E+01 + 0.15580E+02 0.31654E+02 0.47603E+02 0.71028E+02 0.99930E+02 0.13987E+03 + 0.89783E-03 0.11496E-02 0.14808E-02 0.19111E-02 0.24846E-02 0.32554E-02 + 0.42979E-02 0.57284E-02 0.69162E-02 0.75679E-02 0.83622E-02 0.91795E-02 + 0.98458E-02 0.10284E-01 0.10133E-01 0.84467E-02 0.50367E-02 0.19936E-02 + 0.24443E-01 0.18726E+00 0.13998E+00 0.28478E+00 0.56719E+00 0.11383E+01 + 0.22004E+01 0.41895E+01 0.79896E+01 0.15091E+02 0.30652E+02 0.53364E+02 + 0.86829E+02 0.12251E+03 0.17187E+03 0.14178E-02 0.18099E-02 0.23228E-02 + 0.29852E-02 0.38609E-02 0.50277E-02 0.65902E-02 0.87119E-02 0.11603E-01 + 0.14035E-01 0.15108E-01 0.16377E-01 0.17532E-01 0.18366E-01 0.18742E-01 + 0.17737E-01 0.15433E-01 0.10571E-01 0.10094E-01 0.47031E-01 0.12181E+00 + 0.26120E+00 0.53101E+00 0.10737E+01 0.20832E+01 0.39576E+01 0.75373E+01 + 0.14239E+02 0.29403E+02 0.50795E+02 0.10239E+03 0.14863E+03 0.20920E+03 + 0.20816E-02 0.26494E-02 0.33885E-02 0.43372E-02 0.55824E-02 0.72275E-02 + 0.94092E-02 0.12340E-01 0.16285E-01 0.21674E-01 0.26258E-01 0.28106E-01 + 0.30034E-01 0.31649E-01 0.32662E-01 0.32372E-01 0.31274E-01 0.28573E-01 + 0.10663E-01 0.23164E-01 0.96733E-01 0.23220E+00 0.49151E+00 0.10089E+01 + 0.19708E+01 0.37363E+01 0.71047E+01 0.13413E+02 0.27957E+02 0.48376E+02 + 0.97661E+02 0.17719E+03 0.25434E+03 0.28421E-02 0.36081E-02 0.46009E-02 + 0.58687E-02 0.75224E-02 0.96912E-02 0.12542E-01 0.16333E-01 0.21379E-01 + 0.28183E-01 0.37234E-01 0.45195E-01 0.47647E-01 0.49996E-01 0.51614E-01 + 0.51409E-01 0.50713E-01 0.49049E-01 0.30412E-01 0.00000E+00 0.79015E-01 + 0.22033E+00 0.48455E+00 0.10026E+01 0.19578E+01 0.36830E+01 0.69576E+01 + 0.13071E+02 0.27251E+02 0.47122E+02 0.95638E+02 0.17339E+03 0.31325E+03 + 0.39345E-02 0.49832E-02 0.63381E-02 0.80601E-02 0.10296E-01 0.13210E-01 + 0.17013E-01 0.22027E-01 0.28638E-01 0.37455E-01 0.49055E-01 0.64686E-01 + 0.77890E-01 0.80893E-01 0.83580E-01 0.84078E-01 0.84144E-01 0.84315E-01 + 0.65278E-01 0.37083E-01 0.37386E-01 0.18475E+00 0.45260E+00 0.96711E+00 + 0.19080E+01 0.35731E+01 0.67168E+01 0.12568E+02 0.26271E+02 0.45013E+02 + 0.92494E+02 0.16833E+03 0.30408E+03 0.53890E-02 0.68105E-02 0.86416E-02 + 0.10961E-01 0.13960E-01 0.17849E-01 0.22893E-01 0.29498E-01 0.38131E-01 + 0.49541E-01 0.64398E-01 0.84214E-01 0.10987E+00 0.13099E+00 0.13415E+00 + 0.13573E+00 0.13695E+00 0.13904E+00 0.11857E+00 0.92197E-01 0.25096E-01 + 0.12656E+00 0.40448E+00 0.92360E+00 0.18618E+01 0.34785E+01 0.65091E+01 + 0.12125E+02 0.25416E+02 0.43058E+02 0.88674E+02 0.16350E+03 0.29606E+03 + 0.74244E-02 0.93613E-02 0.11850E-01 0.14993E-01 0.19041E-01 0.24266E-01 + 0.31003E-01 0.39767E-01 0.51132E-01 0.66007E-01 0.85176E-01 0.11044E+00 + 0.14278E+00 0.18466E+00 0.21613E+00 0.21615E+00 0.21847E+00 0.22135E+00 + 0.19519E+00 0.16648E+00 0.94053E-01 0.54576E-01 0.36074E+00 0.91005E+00 + 0.18825E+01 0.35018E+01 0.65014E+01 0.12015E+02 0.25155E+02 0.42036E+02 + 0.86500E+02 0.15956E+03 0.29210E+03 0.98737E-02 0.12422E-01 0.15690E-01 + 0.19808E-01 0.25096E-01 0.31899E-01 0.40636E-01 0.51943E-01 0.66518E-01 + 0.85467E-01 0.10970E+00 0.14136E+00 0.18151E+00 0.23306E+00 0.29763E+00 + 0.33995E+00 0.34040E+00 0.34705E+00 0.31225E+00 0.27936E+00 0.19865E+00 + 0.52585E-01 0.27839E+00 0.87725E+00 0.19087E+01 0.35540E+01 0.65555E+01 + 0.12014E+02 0.25116E+02 0.41283E+02 0.84802E+02 0.15637E+03 0.28605E+03 + 0.13321E-01 0.16716E-01 0.21064E-01 0.26532E-01 0.33536E-01 0.42517E-01 + 0.54010E-01 0.68809E-01 0.87788E-01 0.11229E+00 0.14337E+00 0.18361E+00 + 0.23414E+00 0.29827E+00 0.37759E+00 0.48292E+00 0.53435E+00 0.53641E+00 + 0.48921E+00 0.44249E+00 0.33998E+00 0.16773E+00 0.18438E+00 0.87991E+00 + 0.20323E+01 0.37787E+01 0.68948E+01 0.12470E+02 0.25879E+02 0.41713E+02 + 0.85138E+02 0.15639E+03 0.28507E+03 0.17120E-01 0.21425E-01 0.26930E-01 + 0.33844E-01 0.42683E-01 0.53994E-01 0.68427E-01 0.86949E-01 0.11060E+00 + 0.14098E+00 0.17928E+00 0.22851E+00 0.28982E+00 0.36684E+00 0.46103E+00 + 0.58444E+00 0.74410E+00 0.80143E+00 0.72517E+00 0.66149E+00 0.52122E+00 + 0.30333E+00 0.83754E-01 0.94666E+00 0.23091E+01 0.42581E+01 0.76348E+01 + 0.13542E+02 0.27683E+02 0.43613E+02 0.87929E+02 0.16021E+03 0.28995E+03 + 0.23157E-01 0.28885E-01 0.36204E-01 0.45383E-01 0.57099E-01 0.72061E-01 + 0.91105E-01 0.11547E+00 0.14647E+00 0.18612E+00 0.23585E+00 0.29938E+00 + 0.37794E+00 0.47594E+00 0.59469E+00 0.74890E+00 0.94599E+00 0.12197E+01 + 0.11509E+01 0.10533E+01 0.86522E+00 0.58215E+00 0.14707E+00 0.85405E+00 + 0.24874E+01 0.46703E+01 0.83310E+01 0.14580E+02 0.29531E+02 0.45324E+02 + 0.90402E+02 0.16350E+03 0.29381E+03 0.29439E-01 0.36583E-01 0.45703E-01 + 0.57131E-01 0.71700E-01 0.90279E-01 0.11388E+00 0.14402E+00 0.18224E+00 + 0.23095E+00 0.29178E+00 0.36910E+00 0.46411E+00 0.58158E+00 0.72251E+00 + 0.90310E+00 0.11304E+01 0.14407E+01 0.16791E+01 0.15336E+01 0.12567E+01 + 0.86555E+00 0.28996E+00 0.98957E+00 0.31099E+01 0.57648E+01 0.10038E+02 + 0.17095E+02 0.33742E+02 0.50291E+02 0.98115E+02 0.17469E+03 0.30964E+03 + 0.38931E-01 0.48160E-01 0.59932E-01 0.74668E-01 0.93439E-01 0.11735E+00 + 0.14767E+00 0.18629E+00 0.23516E+00 0.29725E+00 0.37448E+00 0.47213E+00 + 0.59141E+00 0.73779E+00 0.91170E+00 0.11317E+01 0.14045E+01 0.17703E+01 + 0.20419E+01 0.23288E+01 0.18885E+01 0.13230E+01 0.52902E+00 0.11284E+01 + 0.39726E+01 0.73059E+01 0.12439E+02 0.20610E+02 0.39584E+02 0.57139E+02 + 0.10869E+03 0.19000E+03 0.33127E+03 0.49922E-01 0.61422E-01 0.76088E-01 + 0.94438E-01 0.11779E+00 0.14750E+00 0.18514E+00 0.23303E+00 0.29350E+00 + 0.37015E+00 0.46524E+00 0.58509E+00 0.73083E+00 0.90880E+00 0.11187E+01 + 0.13820E+01 0.17050E+01 0.21324E+01 0.24424E+01 0.28631E+01 0.28192E+01 + 0.19905E+01 0.90527E+00 0.12336E+01 0.51687E+01 0.94913E+01 0.15846E+02 + 0.25568E+02 0.47759E+02 0.66630E+02 0.12324E+03 0.21093E+03 0.36076E+03 + 0.66811E-01 0.81674E-01 0.10062E+00 0.12431E+00 0.15444E+00 0.19275E+00 + 0.24122E+00 0.30281E+00 0.38045E+00 0.47867E+00 0.60023E+00 0.75294E+00 + 0.93794E+00 0.11628E+01 0.14264E+01 0.17543E+01 0.21521E+01 0.26720E+01 + 0.30402E+01 0.35336E+01 0.37376E+01 0.31119E+01 0.15346E+01 0.12224E+01 + 0.68229E+01 0.12609E+02 0.20724E+02 0.32629E+02 0.59312E+02 0.79881E+02 + 0.14337E+03 0.23967E+03 0.40099E+03 0.86175E-01 0.10455E+00 0.12797E+00 + 0.15723E+00 0.19444E+00 0.24171E+00 0.30149E+00 0.37736E+00 0.47291E+00 + 0.59358E+00 0.74265E+00 0.92948E+00 0.11551E+01 0.14283E+01 0.17471E+01 + 0.21406E+01 0.26141E+01 0.32260E+01 0.36478E+01 0.42049E+01 0.44144E+01 + 0.41042E+01 0.23415E+01 0.13692E+01 0.96025E+01 0.17650E+02 0.28430E+02 + 0.43581E+02 0.76824E+02 0.99863E+02 0.17323E+03 0.28182E+03 0.45953E+03 + 0.11608E+00 0.13959E+00 0.16954E+00 0.20697E+00 0.25452E+00 0.31491E+00 + 0.39119E+00 0.48797E+00 0.60967E+00 0.76317E+00 0.95242E+00 0.11891E+01 + 0.14741E+01 0.18176E+01 0.22164E+01 0.27052E+01 0.32879E+01 0.40326E+01 + 0.45281E+01 0.51714E+01 0.53748E+01 0.49499E+01 0.33183E+01 0.17309E+01 + 0.13955E+02 0.25617E+02 0.40404E+02 0.60322E+02 0.10307E+03 0.12943E+03 + 0.21662E+03 0.34222E+03 0.54238E+03 0.15196E+00 0.18089E+00 0.21774E+00 + 0.26377E+00 0.32224E+00 0.39645E+00 0.49017E+00 0.60897E+00 0.75827E+00 + 0.94641E+00 0.11781E+01 0.14672E+01 0.18147E+01 0.22324E+01 0.27156E+01 + 0.33045E+01 0.40024E+01 0.48872E+01 0.54611E+01 0.61968E+01 0.63969E+01 + 0.58570E+01 0.39456E+01 0.20952E+01 0.20539E+02 0.37575E+02 0.58643E+02 + 0.85549E+02 0.14210E+03 0.17268E+03 0.27903E+03 0.42785E+03 0.65822E+03 + 0.14559E-09 0.25528E-10 0.63882E-09 0.22630E-08 0.40718E-08 0.11091E-07 + 0.15662E-07 0.31173E-07 0.63192E-07 0.14170E-06 0.29643E-06 0.61502E-06 + 0.27716E-05 0.25293E-04 0.55950E-04 0.42139E-03 0.13847E-02 0.30884E-02 + 0.64544E-02 0.11501E-01 0.19589E-01 0.30204E-01 0.46159E-01 0.70562E-01 + 0.10489E+00 0.15309E+00 0.22277E+00 0.32197E+00 0.49522E+00 0.67989E+00 + 0.10420E+01 0.15071E+01 0.21898E+01 0.50949E-09 0.21013E-09 0.36622E-09 + 0.19776E-08 0.60948E-08 0.10807E-07 0.27867E-07 0.41577E-07 0.83547E-07 + 0.18997E-06 0.37778E-06 0.80062E-06 0.49574E-05 0.43121E-04 0.71387E-04 + 0.53718E-03 0.17607E-02 0.39171E-02 0.81709E-02 0.14534E-01 0.24722E-01 + 0.38065E-01 0.58097E-01 0.88681E-01 0.13162E+00 0.19173E+00 0.27830E+00 + 0.40102E+00 0.61430E+00 0.83917E+00 0.12778E+01 0.18358E+01 0.26461E+01 + 0.10029E-08 0.77036E-09 0.37694E-10 0.17476E-08 0.59625E-08 0.16902E-07 + 0.28717E-07 0.63728E-07 0.11678E-06 0.22730E-06 0.49270E-06 0.10536E-05 + 0.78903E-05 0.73049E-04 0.14711E-03 0.68802E-03 0.22473E-02 0.49840E-02 + 0.10372E-01 0.18411E-01 0.31265E-01 0.48073E-01 0.73269E-01 0.11168E+00 + 0.16551E+00 0.24069E+00 0.34866E+00 0.50115E+00 0.76511E+00 0.10409E+01 + 0.15762E+01 0.22519E+01 0.32236E+01 0.22788E-08 0.22025E-08 0.14331E-08 + 0.51294E-09 0.53064E-08 0.16938E-07 0.44083E-07 0.85313E-07 0.18769E-06 + 0.34926E-06 0.81595E-06 0.18718E-05 0.21551E-04 0.12290E-03 0.32613E-03 + 0.98804E-03 0.30311E-02 0.66903E-02 0.13872E-01 0.24549E-01 0.41589E-01 + 0.63822E-01 0.97102E-01 0.14776E+00 0.21862E+00 0.31734E+00 0.45873E+00 + 0.65770E+00 0.10008E+01 0.13562E+01 0.20426E+01 0.29019E+01 0.41258E+01 + 0.34260E-08 0.39989E-08 0.38095E-08 0.14915E-08 0.43613E-08 0.18047E-07 + 0.49170E-07 0.12204E-06 0.30675E-06 0.64959E-06 0.15849E-05 0.52401E-05 + 0.46190E-04 0.20547E-03 0.57903E-03 0.14694E-02 0.38825E-02 0.90259E-02 + 0.18627E-01 0.32833E-01 0.55458E-01 0.84898E-01 0.12890E+00 0.19579E+00 + 0.28923E+00 0.41912E+00 0.60474E+00 0.86524E+00 0.13131E+01 0.17737E+01 + 0.26601E+01 0.37626E+01 0.53199E+01 0.66824E-08 0.75439E-08 0.77366E-08 + 0.66415E-08 0.00000E+00 0.17021E-07 0.55900E-07 0.14384E-06 0.45511E-06 + 0.11100E-05 0.35148E-05 0.12082E-04 0.82319E-04 0.31776E-03 0.80652E-03 + 0.21369E-02 0.48388E-02 0.11093E-01 0.25131E-01 0.44074E-01 0.74162E-01 + 0.11320E+00 0.17144E+00 0.25984E+00 0.38320E+00 0.55437E+00 0.79854E+00 + 0.11405E+01 0.17271E+01 0.23267E+01 0.34778E+01 0.49019E+01 0.69007E+01 + 0.31995E-07 0.43564E-07 0.62716E-07 0.75871E-07 0.96049E-07 0.10218E-06 + 0.78542E-07 0.89837E-08 0.21428E-06 0.11308E-05 0.55874E-05 0.26028E-04 + 0.11561E-03 0.42829E-03 0.10396E-02 0.25864E-02 0.60411E-02 0.12574E-01 + 0.29798E-01 0.58947E-01 0.98844E-01 0.15045E+00 0.22734E+00 0.34389E+00 + 0.50637E+00 0.73145E+00 0.10521E+01 0.15005E+01 0.22689E+01 0.30502E+01 + 0.45479E+01 0.63938E+01 0.89718E+01 0.66423E-07 0.88516E-07 0.12319E-06 + 0.17476E-06 0.26210E-06 0.27514E-06 0.39485E-06 0.25418E-06 0.25747E-07 + 0.63224E-06 0.64038E-05 0.45088E-04 0.16407E-03 0.53339E-03 0.12804E-02 + 0.30945E-02 0.69568E-02 0.14651E-01 0.32329E-01 0.70230E-01 0.13261E+00 + 0.20101E+00 0.30273E+00 0.45668E+00 0.67111E+00 0.96767E+00 0.13897E+01 + 0.19790E+01 0.29881E+01 0.40096E+01 0.59662E+01 0.83705E+01 0.11715E+02 + 0.19897E-06 0.27187E-06 0.32260E-06 0.44572E-06 0.66373E-06 0.11378E-05 + 0.15241E-05 0.20520E-05 0.14842E-05 0.46767E-06 0.17140E-05 0.39263E-04 + 0.18858E-03 0.59616E-03 0.14347E-02 0.34574E-02 0.77066E-02 0.15822E-01 + 0.35248E-01 0.73284E-01 0.15631E+00 0.26747E+00 0.40149E+00 0.60401E+00 + 0.88595E+00 0.12751E+01 0.18286E+01 0.26008E+01 0.39233E+01 0.52558E+01 + 0.78101E+01 0.10943E+02 0.15288E+02 0.31213E-06 0.38094E-06 0.44210E-06 + 0.80079E-06 0.15937E-05 0.23297E-05 0.53659E-05 0.91240E-05 0.99137E-05 + 0.59473E-05 0.57540E-06 0.34298E-04 0.21378E-03 0.70551E-03 0.16896E-02 + 0.39797E-02 0.85630E-02 0.17464E-01 0.37944E-01 0.79031E-01 0.16294E+00 + 0.32013E+00 0.54014E+00 0.80863E+00 0.11819E+01 0.16961E+01 0.24267E+01 + 0.34451E+01 0.51884E+01 0.69389E+01 0.10295E+02 0.14403E+02 0.20086E+02 + 0.60753E-06 0.87550E-06 0.14192E-05 0.26841E-05 0.52737E-05 0.93925E-05 + 0.15961E-04 0.25478E-04 0.38814E-04 0.34960E-04 0.48822E-05 0.52251E-04 + 0.23763E-03 0.81174E-03 0.20005E-02 0.47381E-02 0.96885E-02 0.19448E-01 + 0.41277E-01 0.84069E-01 0.17220E+00 0.33388E+00 0.65385E+00 0.10877E+01 + 0.15824E+01 0.22623E+01 0.32275E+01 0.45718E+01 0.68728E+01 0.91756E+01 + 0.13592E+02 0.18989E+02 0.26444E+02 0.34093E-05 0.73952E-05 0.12697E-04 + 0.20496E-04 0.42864E-04 0.72862E-04 0.11026E-03 0.13681E-03 0.15219E-03 + 0.15211E-03 0.10979E-03 0.00000E+00 0.25938E-03 0.99943E-03 0.22143E-02 + 0.53027E-02 0.11061E-01 0.21214E-01 0.44687E-01 0.89262E-01 0.17860E+00 + 0.34787E+00 0.67323E+00 0.13335E+01 0.21072E+01 0.30002E+01 0.42671E+01 + 0.60307E+01 0.90531E+01 0.12063E+02 0.17851E+02 0.24920E+02 0.34673E+02 + 0.23984E-04 0.30671E-04 0.62543E-04 0.10869E-03 0.16988E-03 0.22458E-03 + 0.28702E-03 0.33641E-03 0.37548E-03 0.38286E-03 0.33750E-03 0.18978E-03 + 0.17979E-03 0.10077E-02 0.42192E-02 0.61126E-02 0.12520E-01 0.23866E-01 + 0.48966E-01 0.96136E-01 0.18813E+00 0.36182E+00 0.70245E+00 0.13738E+01 + 0.26051E+01 0.39967E+01 0.56611E+01 0.79767E+01 0.11951E+02 0.15886E+02 + 0.23480E+02 0.32755E+02 0.45532E+02 0.10742E-03 0.13707E-03 0.17571E-03 + 0.24821E-03 0.35753E-03 0.50067E-03 0.61758E-03 0.72852E-03 0.79992E-03 + 0.82568E-03 0.76815E-03 0.58035E-03 0.68212E-04 0.10162E-02 0.31401E-02 + 0.17641E-01 0.14639E-01 0.27283E-01 0.54896E-01 0.10529E+00 0.20206E+00 + 0.38219E+00 0.73226E+00 0.14339E+01 0.26865E+01 0.50350E+01 0.75440E+01 + 0.10587E+02 0.15818E+02 0.20968E+02 0.30940E+02 0.43119E+02 0.59887E+02 + 0.46414E-03 0.59103E-03 0.75570E-03 0.96601E-03 0.12009E-02 0.14508E-02 + 0.17737E-02 0.20730E-02 0.23100E-02 0.24486E-02 0.24375E-02 0.22167E-02 + 0.16766E-02 0.30409E-03 0.21676E-02 0.72877E-02 0.39979E-01 0.29026E-01 + 0.58960E-01 0.11175E+00 0.21182E+00 0.39552E+00 0.74840E+00 0.14529E+01 + 0.27318E+01 0.50642E+01 0.94488E+01 0.13810E+02 0.20605E+02 0.27214E+02 + 0.40142E+02 0.55948E+02 0.77711E+02 0.14049E-02 0.17852E-02 0.22771E-02 + 0.29029E-02 0.37152E-02 0.45941E-02 0.51269E-02 0.58083E-02 0.65066E-02 + 0.69464E-02 0.71863E-02 0.71209E-02 0.64857E-02 0.50187E-02 0.21041E-02 + 0.38092E-02 0.12686E-01 0.66501E-01 0.59127E-01 0.11338E+00 0.21522E+00 + 0.39949E+00 0.74914E+00 0.14405E+01 0.26975E+01 0.50168E+01 0.92775E+01 + 0.17111E+02 0.26391E+02 0.34696E+02 0.51223E+02 0.71494E+02 0.99421E+02 + 0.33921E-02 0.43025E-02 0.54758E-02 0.69628E-02 0.88848E-02 0.11373E-01 + 0.14425E-01 0.15331E-01 0.16455E-01 0.17716E-01 0.18220E-01 0.18412E-01 + 0.17782E-01 0.16093E-01 0.12569E-01 0.55044E-02 0.44224E-02 0.19515E-01 + 0.13858E+00 0.11039E+00 0.21432E+00 0.39913E+00 0.74461E+00 0.14198E+01 + 0.26406E+01 0.48876E+01 0.90675E+01 0.16598E+02 0.33242E+02 0.43831E+02 + 0.64799E+02 0.90623E+02 0.12624E+03 0.67809E-02 0.85869E-02 0.10908E-01 + 0.13840E-01 0.17616E-01 0.22484E-01 0.28749E-01 0.36854E-01 0.39270E-01 + 0.40912E-01 0.42718E-01 0.43226E-01 0.42753E-01 0.40761E-01 0.36261E-01 + 0.27421E-01 0.15992E-01 0.00000E+00 0.38970E-01 0.20555E+00 0.20345E+00 + 0.38898E+00 0.72942E+00 0.13852E+01 0.25638E+01 0.47017E+01 0.87052E+01 + 0.15993E+02 0.31965E+02 0.54789E+02 0.81174E+02 0.11384E+03 0.15896E+03 + 0.11891E-01 0.15037E-01 0.19073E-01 0.24155E-01 0.30677E-01 0.39055E-01 + 0.49789E-01 0.63611E-01 0.81298E-01 0.88991E-01 0.90568E-01 0.91865E-01 + 0.90664E-01 0.86741E-01 0.80139E-01 0.67551E-01 0.52621E-01 0.33697E-01 + 0.13581E-01 0.77850E-01 0.19341E+00 0.38831E+00 0.73628E+00 0.13925E+01 + 0.25587E+01 0.46331E+01 0.84899E+01 0.15566E+02 0.31303E+02 0.53105E+02 + 0.10285E+03 0.14445E+03 0.20198E+03 0.18837E-01 0.23792E-01 0.30131E-01 + 0.38102E-01 0.48301E-01 0.61364E-01 0.78038E-01 0.99429E-01 0.12668E+00 + 0.16153E+00 0.18297E+00 0.18424E+00 0.18328E+00 0.17729E+00 0.16625E+00 + 0.14673E+00 0.12531E+00 0.10076E+00 0.39280E-01 0.36082E-01 0.16738E+00 + 0.37945E+00 0.74456E+00 0.14138E+01 0.25854E+01 0.46161E+01 0.83551E+01 + 0.15170E+02 0.30647E+02 0.51669E+02 0.10242E+03 0.18365E+03 0.25700E+03 + 0.30850E-01 0.38915E-01 0.49221E-01 0.62155E-01 0.78680E-01 0.99796E-01 + 0.12669E+00 0.16110E+00 0.20483E+00 0.26063E+00 0.33019E+00 0.38833E+00 + 0.38632E+00 0.37911E+00 0.36402E+00 0.33371E+00 0.30294E+00 0.27157E+00 + 0.19091E+00 0.10416E+00 0.42306E-01 0.26702E+00 0.63719E+00 0.12937E+01 + 0.24292E+01 0.43301E+01 0.78023E+01 0.14103E+02 0.28662E+02 0.47954E+02 + 0.95984E+02 0.17256E+03 0.30966E+03 0.47877E-01 0.60310E-01 0.76190E-01 + 0.96096E-01 0.12148E+00 0.15386E+00 0.19501E+00 0.24755E+00 0.31415E+00 + 0.39893E+00 0.50447E+00 0.63777E+00 0.77175E+00 0.75725E+00 0.73444E+00 + 0.68968E+00 0.63973E+00 0.59258E+00 0.47509E+00 0.36282E+00 0.18305E+00 + 0.74216E-01 0.47252E+00 0.11457E+01 0.22860E+01 0.41069E+01 0.73927E+01 + 0.13310E+02 0.27238E+02 0.44716E+02 0.90665E+02 0.16438E+03 0.29502E+03 + 0.75169E-01 0.94554E-01 0.11929E+00 0.15027E+00 0.18974E+00 0.24002E+00 + 0.30381E+00 0.38514E+00 0.48807E+00 0.61891E+00 0.78171E+00 0.98753E+00 + 0.12385E+01 0.15414E+01 0.14996E+01 0.14304E+01 0.13606E+01 0.12865E+01 + 0.11084E+01 0.95677E+00 0.72828E+00 0.42805E+00 0.00000E+00 0.67733E+00 + 0.17978E+01 0.34661E+01 0.64445E+01 0.11783E+02 0.24803E+02 0.39792E+02 + 0.81824E+02 0.15110E+03 0.27477E+03 0.11238E+00 0.14112E+00 0.17778E+00 + 0.22364E+00 0.28203E+00 0.35632E+00 0.45049E+00 0.57038E+00 0.72185E+00 + 0.91408E+00 0.11530E+01 0.14548E+01 0.18235E+01 0.22765E+01 0.28158E+01 + 0.27692E+01 0.26543E+01 0.25475E+01 0.22516E+01 0.20136E+01 0.16795E+01 + 0.12769E+01 0.75518E+00 0.00000E+00 0.11944E+01 0.28113E+01 0.56379E+01 + 0.10645E+02 0.23303E+02 0.36377E+02 0.75914E+02 0.14155E+03 0.26030E+03 + 0.15819E+00 0.19823E+00 0.24928E+00 0.31311E+00 0.39431E+00 0.49755E+00 + 0.62827E+00 0.79444E+00 0.10040E+01 0.12696E+01 0.15989E+01 0.20141E+01 + 0.25203E+01 0.31413E+01 0.38789E+01 0.48168E+01 0.47590E+01 0.45632E+01 + 0.40797E+01 0.36541E+01 0.30914E+01 0.24534E+01 0.16874E+01 0.67209E+00 + 0.82494E+00 0.26611E+01 0.57347E+01 0.11016E+02 0.24483E+02 0.37029E+02 + 0.77055E+02 0.14318E+03 0.26188E+03 0.21724E+00 0.27153E+00 0.34070E+00 + 0.42717E+00 0.53711E+00 0.67678E+00 0.85345E+00 0.10778E+01 0.13605E+01 + 0.17179E+01 0.21604E+01 0.27169E+01 0.33935E+01 0.42211E+01 0.51999E+01 + 0.64382E+01 0.79551E+01 0.78928E+01 0.70472E+01 0.63327E+01 0.53403E+01 + 0.42568E+01 0.30222E+01 0.14972E+01 0.59136E+00 0.29329E+01 0.66329E+01 + 0.12712E+02 0.28035E+02 0.40921E+02 0.83639E+02 0.15321E+03 0.27635E+03 + 0.29561E+00 0.36828E+00 0.46085E+00 0.57652E+00 0.72353E+00 0.91019E+00 + 0.11461E+01 0.14455E+01 0.18222E+01 0.22980E+01 0.28859E+01 0.36239E+01 + 0.45190E+01 0.56099E+01 0.68951E+01 0.85113E+01 0.10475E+02 0.13032E+02 + 0.11992E+02 0.10729E+02 0.90577E+01 0.71744E+01 0.51027E+01 0.26749E+01 + 0.43877E+00 0.36704E+01 0.84651E+01 0.15938E+02 0.34322E+02 0.48201E+02 + 0.95717E+02 0.17147E+03 0.30296E+03 0.40411E+00 0.50142E+00 0.62533E+00 + 0.78013E+00 0.97674E+00 0.12264E+01 0.15417E+01 0.19415E+01 0.24442E+01 + 0.30786E+01 0.38615E+01 0.48426E+01 0.60303E+01 0.74750E+01 0.91719E+01 + 0.11297E+02 0.13865E+02 0.17181E+02 0.19810E+02 0.18307E+02 0.15436E+02 + 0.12287E+02 0.87676E+01 0.48071E+01 0.00000E+00 0.46583E+01 0.11150E+02 + 0.20719E+02 0.43633E+02 0.58851E+02 0.11323E+03 0.19774E+03 0.34100E+03 + 0.54895E+00 0.67763E+00 0.84146E+00 0.10461E+01 0.13060E+01 0.16358E+01 + 0.20522E+01 0.25798E+01 0.32430E+01 0.40788E+01 0.51092E+01 0.63989E+01 + 0.79569E+01 0.98464E+01 0.12058E+02 0.14814E+02 0.18121E+02 0.22359E+02 + 0.25641E+02 0.30012E+02 0.25671E+02 0.20284E+02 0.14379E+02 0.77291E+01 + 0.00000E+00 0.71138E+01 0.16475E+02 0.29520E+02 0.59664E+02 0.77268E+02 + 0.14252E+03 0.24076E+03 0.40248E+03 0.76064E+00 0.93294E+00 0.11523E+01 + 0.14263E+01 0.17741E+01 0.22153E+01 0.27723E+01 0.34779E+01 0.43644E+01 + 0.54810E+01 0.68567E+01 0.85770E+01 0.10654E+02 0.13171E+02 0.16114E+02 + 0.19776E+02 0.24159E+02 0.29753E+02 0.34081E+02 0.39806E+02 0.43629E+02 + 0.35135E+02 0.25224E+02 0.14240E+02 0.16954E+01 0.92997E+01 0.23020E+02 + 0.41136E+02 0.81806E+02 0.10185E+03 0.18168E+03 0.29798E+03 0.48334E+03 + 0.10509E+01 0.12788E+01 0.15690E+01 0.19313E+01 0.23912E+01 0.29746E+01 + 0.37109E+01 0.46432E+01 0.58138E+01 0.72878E+01 0.91024E+01 0.11370E+02 + 0.14104E+02 0.17412E+02 0.21270E+02 0.26057E+02 0.31766E+02 0.39015E+02 + 0.44543E+02 0.51792E+02 0.56449E+02 0.58028E+02 0.41921E+02 0.23514E+02 + 0.27753E+01 0.14924E+02 0.36056E+02 0.62630E+02 0.12034E+03 0.14442E+03 + 0.24718E+03 0.39136E+03 0.61285E+03 0.14683E+01 0.17698E+01 0.21536E+01 + 0.26328E+01 0.32410E+01 0.40124E+01 0.49858E+01 0.62181E+01 0.77647E+01 + 0.97114E+01 0.12107E+02 0.15097E+02 0.18699E+02 0.23053E+02 0.28122E+02 + 0.34395E+02 0.41856E+02 0.51295E+02 0.58409E+02 0.67676E+02 0.73437E+02 + 0.75072E+02 0.69987E+02 0.39028E+02 0.45828E+01 0.24400E+02 0.57780E+02 + 0.97987E+02 0.18272E+03 0.21213E+03 0.34930E+03 0.53445E+03 0.80783E+03 + 0.20792E+01 0.24781E+01 0.29859E+01 0.36198E+01 0.44244E+01 0.54445E+01 + 0.67314E+01 0.83607E+01 0.10405E+02 0.12977E+02 0.16140E+02 0.20087E+02 + 0.24838E+02 0.30572E+02 0.37242E+02 0.45480E+02 0.55256E+02 0.67591E+02 + 0.76799E+02 0.88734E+02 0.95954E+02 0.97665E+02 0.90523E+02 0.65592E+02 + 0.76040E+01 0.40300E+02 0.94375E+02 0.15690E+03 0.28524E+03 0.32172E+03 + 0.51155E+03 0.75806E+03 0.11072E+04 0.35418E-09 0.12377E-09 0.52181E-09 + 0.20007E-08 0.46308E-08 0.99602E-08 0.23154E-07 0.36763E-07 0.73749E-07 + 0.16769E-06 0.33926E-06 0.71177E-06 0.39124E-05 0.32366E-04 0.64044E-04 + 0.48220E-03 0.15824E-02 0.35246E-02 0.73586E-02 0.13100E-01 0.22297E-01 + 0.34351E-01 0.52460E-01 0.80127E-01 0.11900E+00 0.17349E+00 0.25210E+00 + 0.36373E+00 0.55810E+00 0.76404E+00 0.11665E+01 0.16808E+01 0.24308E+01 + 0.73808E-09 0.52746E-09 0.19698E-09 0.18958E-08 0.56808E-08 0.12563E-07 + 0.26104E-07 0.53301E-07 0.10027E-06 0.20925E-06 0.43474E-06 0.93133E-06 + 0.64767E-05 0.58670E-04 0.95009E-04 0.61591E-03 0.20151E-02 0.44757E-02 + 0.93245E-02 0.16568E-01 0.28155E-01 0.43321E-01 0.66068E-01 0.10077E+00 + 0.14943E+00 0.21747E+00 0.31529E+00 0.45367E+00 0.69359E+00 0.94526E+00 + 0.14347E+01 0.20547E+01 0.29498E+01 0.13055E-08 0.11265E-08 0.36254E-09 + 0.17183E-08 0.61320E-08 0.16272E-07 0.33760E-07 0.73505E-07 0.13827E-06 + 0.27280E-06 0.62299E-06 0.12313E-05 0.12307E-04 0.93632E-04 0.22123E-03 + 0.79005E-03 0.25744E-02 0.56979E-02 0.11838E-01 0.20988E-01 0.35601E-01 + 0.54695E-01 0.83296E-01 0.12686E+00 0.18788E+00 0.27298E+00 0.39503E+00 + 0.56710E+00 0.86443E+00 0.11738E+01 0.17728E+01 0.25258E+01 0.36038E+01 + 0.23357E-08 0.26117E-08 0.19432E-08 0.19245E-09 0.55684E-08 0.17299E-07 + 0.43160E-07 0.95433E-07 0.23203E-06 0.39726E-06 0.10201E-05 0.26543E-05 + 0.27149E-04 0.14231E-03 0.38869E-03 0.11070E-02 0.33003E-02 0.72730E-02 + 0.15062E-01 0.26628E-01 0.45076E-01 0.69129E-01 0.10512E+00 0.15987E+00 + 0.23645E+00 0.34306E+00 0.49563E+00 0.71017E+00 0.10798E+01 0.14617E+01 + 0.21988E+01 0.31196E+01 0.44280E+01 0.37935E-08 0.43267E-08 0.43559E-08 + 0.21375E-08 0.38467E-08 0.18607E-07 0.49175E-07 0.12690E-06 0.32167E-06 + 0.70383E-06 0.16510E-05 0.57348E-05 0.49705E-04 0.21620E-03 0.59906E-03 + 0.15303E-02 0.39683E-02 0.93174E-02 0.19218E-01 0.33859E-01 0.57171E-01 + 0.87499E-01 0.13282E+00 0.20169E+00 0.29789E+00 0.43161E+00 0.62265E+00 + 0.89070E+00 0.13515E+01 0.18249E+01 0.27358E+01 0.38681E+01 0.54664E+01 + 0.75686E-08 0.79355E-08 0.87413E-08 0.79793E-08 0.18892E-08 0.14810E-07 + 0.51615E-07 0.13611E-06 0.43120E-06 0.10545E-05 0.32671E-05 0.11328E-04 + 0.79784E-04 0.30873E-03 0.78674E-03 0.20953E-02 0.47579E-02 0.10992E-01 + 0.24597E-01 0.43156E-01 0.72643E-01 0.11091E+00 0.16801E+00 0.25469E+00 + 0.37564E+00 0.54353E+00 0.78301E+00 0.11184E+01 0.16940E+01 0.22825E+01 + 0.34125E+01 0.48109E+01 0.67748E+01 0.37068E-07 0.55200E-07 0.72040E-07 + 0.90527E-07 0.11650E-06 0.12590E-06 0.11020E-06 0.53864E-07 0.11080E-06 + 0.89162E-06 0.48859E-05 0.20604E-04 0.10435E-03 0.39987E-03 0.98287E-03 + 0.24642E-02 0.57806E-02 0.12182E-01 0.29287E-01 0.55635E-01 0.93422E-01 + 0.14235E+00 0.21528E+00 0.32587E+00 0.48010E+00 0.69383E+00 0.99839E+00 + 0.14244E+01 0.21547E+01 0.28977E+01 0.43229E+01 0.60807E+01 0.85380E+01 + 0.70767E-07 0.96614E-07 0.13424E-06 0.20228E-06 0.28341E-06 0.33651E-06 + 0.40456E-06 0.29224E-06 0.10048E-06 0.49016E-06 0.56312E-05 0.40908E-04 + 0.14825E-03 0.50514E-03 0.12241E-02 0.29880E-02 0.67383E-02 0.14243E-01 + 0.31725E-01 0.69460E-01 0.12613E+00 0.19142E+00 0.28855E+00 0.43560E+00 + 0.64050E+00 0.92395E+00 0.13274E+01 0.18910E+01 0.28561E+01 0.38336E+01 + 0.57067E+01 0.80097E+01 0.11215E+02 0.20190E-06 0.27044E-06 0.32487E-06 + 0.46431E-06 0.70256E-06 0.11667E-05 0.14242E-05 0.20297E-05 0.14302E-05 + 0.50809E-06 0.11606E-05 0.35608E-04 0.17601E-03 0.56771E-03 0.13852E-02 + 0.33637E-02 0.75367E-02 0.15504E-01 0.34674E-01 0.72416E-01 0.15516E+00 + 0.25637E+00 0.38521E+00 0.57998E+00 0.85120E+00 0.12257E+01 0.17583E+01 + 0.25017E+01 0.37751E+01 0.50582E+01 0.75190E+01 0.10538E+02 0.14727E+02 + 0.33354E-06 0.41118E-06 0.50020E-06 0.86722E-06 0.16481E-05 0.23215E-05 + 0.55699E-05 0.86320E-05 0.98810E-05 0.65655E-05 0.48969E-06 0.28611E-04 + 0.19754E-03 0.66667E-03 0.16183E-02 0.38473E-02 0.83743E-02 0.17133E-01 + 0.37341E-01 0.77876E-01 0.16134E+00 0.31759E+00 0.52084E+00 0.78052E+00 + 0.11416E+01 0.16392E+01 0.23464E+01 0.33324E+01 0.50208E+01 0.67163E+01 + 0.99676E+01 0.13949E+02 0.19460E+02 0.60384E-06 0.80947E-06 0.12204E-05 + 0.20183E-05 0.44601E-05 0.86027E-05 0.17453E-04 0.30646E-04 0.52398E-04 + 0.53863E-04 0.27169E-04 0.24231E-04 0.19154E-03 0.72665E-03 0.18582E-02 + 0.44987E-02 0.92576E-02 0.18832E-01 0.40310E-01 0.82463E-01 0.16940E+00 + 0.32940E+00 0.64651E+00 0.10526E+01 0.15331E+01 0.21937E+01 0.31317E+01 + 0.44387E+01 0.66773E+01 0.89161E+01 0.13214E+02 0.18471E+02 0.25732E+02 + 0.29174E-06 0.65253E-06 0.10910E-05 0.17680E-05 0.35306E-05 0.46794E-05 + 0.31453E-05 0.52383E-05 0.25081E-04 0.67305E-04 0.14709E-03 0.29003E-03 + 0.62017E-03 0.14475E-02 0.28926E-02 0.62956E-02 0.12545E-01 0.23395E-01 + 0.48090E-01 0.94859E-01 0.18803E+00 0.36327E+00 0.69950E+00 0.13802E+01 + 0.21382E+01 0.30384E+01 0.43140E+01 0.60873E+01 0.91146E+01 0.12146E+02 + 0.17939E+02 0.25004E+02 0.34739E+02 0.30757E-04 0.39367E-04 0.79862E-04 + 0.13672E-03 0.21248E-03 0.28020E-03 0.35886E-03 0.42511E-03 0.48303E-03 + 0.51141E-03 0.49113E-03 0.37424E-03 0.44307E-04 0.71367E-03 0.33269E-02 + 0.55418E-02 0.11699E-01 0.22647E-01 0.47105E-01 0.93180E-01 0.18340E+00 + 0.35415E+00 0.68927E+00 0.13514E+01 0.25677E+01 0.39054E+01 0.55374E+01 + 0.78092E+01 0.11714E+02 0.15574E+02 0.23038E+02 0.32161E+02 0.44735E+02 + 0.14841E-03 0.18950E-03 0.24320E-03 0.34580E-03 0.50062E-03 0.70521E-03 + 0.87478E-03 0.10453E-02 0.11708E-02 0.12534E-02 0.12572E-02 0.11550E-02 + 0.74662E-03 0.20231E-03 0.20881E-02 0.13801E-01 0.12773E-01 0.24626E-01 + 0.51009E-01 0.99283E-01 0.19263E+00 0.36713E+00 0.70730E+00 0.13906E+01 + 0.26142E+01 0.49100E+01 0.73459E+01 0.10325E+02 0.15463E+02 0.20497E+02 + 0.30298E+02 0.42284E+02 0.58796E+02 0.52790E-03 0.67227E-03 0.85978E-03 + 0.10994E-02 0.13680E-02 0.16513E-02 0.20188E-02 0.23669E-02 0.26469E-02 + 0.28279E-02 0.28558E-02 0.26760E-02 0.22133E-02 0.91708E-03 0.14521E-02 + 0.64001E-02 0.38641E-01 0.27493E-01 0.56831E-01 0.10858E+00 0.20699E+00 + 0.38795E+00 0.73602E+00 0.14316E+01 0.26966E+01 0.50031E+01 0.93419E+01 + 0.13709E+02 0.20477E+02 0.27045E+02 0.39925E+02 0.55687E+02 0.77396E+02 + 0.11937E-03 0.15025E-03 0.18866E-03 0.23457E-03 0.28851E-03 0.33507E-03 + 0.33056E-03 0.29345E-03 0.18448E-03 0.59944E-04 0.52736E-03 0.13762E-02 + 0.29780E-02 0.59293E-02 0.10564E-01 0.19164E-01 0.31923E-01 0.14623E+00 + 0.93439E-01 0.16274E+00 0.28807E+00 0.50999E+00 0.92411E+00 0.17313E+01 + 0.31769E+01 0.58372E+01 0.10676E+02 0.19505E+02 0.29957E+02 0.39377E+02 + 0.57531E+02 0.79605E+02 0.10989E+03 0.25591E-02 0.32447E-02 0.41278E-02 + 0.52449E-02 0.66858E-02 0.85446E-02 0.10934E-01 0.11583E-01 0.12324E-01 + 0.13150E-01 0.13285E-01 0.13044E-01 0.11853E-01 0.93462E-02 0.48354E-02 + 0.37576E-02 0.15816E-01 0.34104E-01 0.22955E+00 0.13744E+00 0.25306E+00 + 0.45616E+00 0.83218E+00 0.15610E+01 0.28677E+01 0.52670E+01 0.97176E+01 + 0.17687E+02 0.35146E+02 0.47098E+02 0.69248E+02 0.96412E+02 0.13380E+03 + 0.40327E-04 0.47337E-04 0.52375E-04 0.51122E-04 0.35032E-04 0.17928E-04 + 0.14959E-03 0.46029E-03 0.96298E-03 0.17781E-02 0.31993E-02 0.55546E-02 + 0.97297E-02 0.16801E-01 0.27198E-01 0.44991E-01 0.68870E-01 0.10342E+00 + 0.16929E+00 0.76599E+00 0.44067E+00 0.72520E+00 0.12294E+01 0.21703E+01 + 0.38010E+01 0.67383E+01 0.12125E+02 0.21769E+02 0.41963E+02 0.72034E+02 + 0.10617E+03 0.14575E+03 0.19991E+03 0.81170E-02 0.10261E-01 0.13009E-01 + 0.16464E-01 0.20890E-01 0.26557E-01 0.33781E-01 0.43009E-01 0.54673E-01 + 0.61069E-01 0.61172E-01 0.60473E-01 0.57221E-01 0.50509E-01 0.40189E-01 + 0.22173E-01 0.00000E+00 0.29305E-01 0.91775E-01 0.17896E+00 0.32828E+00 + 0.57376E+00 0.10031E+01 0.17972E+01 0.31776E+01 0.56219E+01 0.10108E+02 + 0.18243E+02 0.35960E+02 0.60906E+02 0.11932E+03 0.16607E+03 0.22991E+03 + 0.12865E-01 0.16242E-01 0.20563E-01 0.25986E-01 0.32915E-01 0.41763E-01 + 0.53014E-01 0.67345E-01 0.85417E-01 0.10814E+00 0.12559E+00 0.12406E+00 + 0.11926E+00 0.10884E+00 0.92065E-01 0.63944E-01 0.31314E-01 0.88841E-02 + 0.93121E-01 0.20175E+00 0.38089E+00 0.66302E+00 0.11382E+01 0.19898E+01 + 0.34395E+01 0.59411E+01 0.10469E+02 0.18597E+02 0.36472E+02 0.61500E+02 + 0.11938E+03 0.21066E+03 0.30173E+03 0.28904E-01 0.36399E-01 0.45963E-01 + 0.57941E-01 0.73191E-01 0.92598E-01 0.11717E+00 0.14834E+00 0.18748E+00 + 0.23654E+00 0.29604E+00 0.36799E+00 0.44774E+00 0.41792E+00 0.37449E+00 + 0.30236E+00 0.22073E+00 0.13042E+00 0.47986E-01 0.24642E+00 0.54564E+00 + 0.97141E+00 0.16243E+01 0.27034E+01 0.44397E+01 0.72366E+01 0.12110E+02 + 0.20600E+02 0.39123E+02 0.64049E+02 0.12368E+03 0.21652E+03 0.37722E+03 + 0.48485E-01 0.60947E-01 0.76838E-01 0.96717E-01 0.12200E+00 0.15415E+00 + 0.19479E+00 0.24629E+00 0.31093E+00 0.39200E+00 0.49060E+00 0.61084E+00 + 0.74727E+00 0.89523E+00 0.89652E+00 0.76458E+00 0.62624E+00 0.46906E+00 + 0.16838E+00 0.13964E+00 0.57902E+00 0.11629E+01 0.19996E+01 0.32999E+01 + 0.53062E+01 0.83581E+01 0.13522E+02 0.22310E+02 0.41422E+02 0.65864E+02 + 0.12523E+03 0.21840E+03 0.38206E+03 0.79559E-01 0.99782E-01 0.12556E+00 + 0.15778E+00 0.19874E+00 0.25075E+00 0.31648E+00 0.39969E+00 0.50409E+00 + 0.63505E+00 0.79471E+00 0.99045E+00 0.12160E+01 0.14685E+01 0.17298E+01 + 0.18184E+01 0.15588E+01 0.12925E+01 0.76074E+00 0.24605E+00 0.45022E+00 + 0.13149E+01 0.24675E+01 0.41370E+01 0.65868E+01 0.10058E+02 0.15724E+02 + 0.25090E+02 0.45373E+02 0.69623E+02 0.12972E+03 0.22331E+03 0.38654E+03 + 0.12606E+00 0.15766E+00 0.19790E+00 0.24819E+00 0.31207E+00 0.39314E+00 + 0.49549E+00 0.62505E+00 0.78744E+00 0.99119E+00 0.12398E+01 0.15455E+01 + 0.19009E+01 0.23052E+01 0.27363E+01 0.31792E+01 0.35580E+01 0.30480E+01 + 0.20968E+01 0.11898E+01 0.00000E+00 0.13931E+01 0.31264E+01 0.54597E+01 + 0.86922E+01 0.12912E+02 0.19501E+02 0.30006E+02 0.52577E+02 0.77387E+02 + 0.14030E+03 0.23704E+03 0.40356E+03 0.19506E+00 0.24301E+00 0.30408E+00 + 0.38035E+00 0.47721E+00 0.60007E+00 0.75511E+00 0.95124E+00 0.11970E+01 + 0.15053E+01 0.18815E+01 0.23449E+01 0.28863E+01 0.35085E+01 0.41826E+01 + 0.49039E+01 0.56624E+01 0.64950E+01 0.49207E+01 0.32802E+01 0.11612E+01 + 0.12400E+01 0.40579E+01 0.75997E+01 0.12221E+02 0.17742E+02 0.25934E+02 + 0.38440E+02 0.65000E+02 0.91330E+02 0.15997E+03 0.26357E+03 0.43862E+03 + 0.29164E+00 0.36150E+00 0.45043E+00 0.56149E+00 0.70246E+00 0.88121E+00 + 0.11067E+01 0.13917E+01 0.17487E+01 0.21961E+01 0.27420E+01 0.34141E+01 + 0.42000E+01 0.51053E+01 0.60900E+01 0.71562E+01 0.82885E+01 0.95482E+01 + 0.93178E+01 0.71088E+01 0.32025E+01 0.11333E+01 0.60449E+01 0.11880E+02 + 0.19080E+02 0.26988E+02 0.38090E+02 0.54224E+02 0.87852E+02 0.11753E+03 + 0.19705E+03 0.31400E+03 0.50661E+03 0.44727E+00 0.55068E+00 0.68239E+00 + 0.84675E+00 0.10554E+01 0.13199E+01 0.16534E+01 0.20750E+01 0.26028E+01 + 0.32644E+01 0.40721E+01 0.50675E+01 0.62356E+01 0.75890E+01 0.90756E+01 + 0.10720E+02 0.12501E+02 0.14531E+02 0.14598E+02 0.14184E+02 0.89499E+01 + 0.10421E+01 0.77593E+01 0.17748E+02 0.29472E+02 0.41324E+02 0.57034E+02 + 0.78701E+02 0.12319E+03 0.15692E+03 0.25211E+03 0.38802E+03 0.60519E+03 + 0.66980E+00 0.81755E+00 0.10056E+01 0.12404E+01 0.15383E+01 0.19159E+01 + 0.23919E+01 0.29933E+01 0.37461E+01 0.46892E+01 0.58400E+01 0.72578E+01 + 0.89215E+01 0.10850E+02 0.12970E+02 0.15322E+02 0.17872E+02 0.20784E+02 + 0.20997E+02 0.20611E+02 0.15535E+02 0.38949E+01 0.12235E+02 0.30424E+02 + 0.50755E+02 0.69954E+02 0.94080E+02 0.12565E+03 0.18920E+03 0.23009E+03 + 0.35236E+03 0.52081E+03 0.78021E+03 0.10355E+01 0.12501E+01 0.15232E+01 + 0.18641E+01 0.22966E+01 0.28447E+01 0.35355E+01 0.44085E+01 0.55009E+01 + 0.68696E+01 0.85405E+01 0.10600E+02 0.13022E+02 0.15840E+02 0.18953E+02 + 0.22450E+02 0.26280E+02 0.30708E+02 0.31482E+02 0.31648E+02 0.25616E+02 + 0.11531E+02 0.15282E+02 0.48017E+02 0.84772E+02 0.11733E+03 0.15589E+03 + 0.20384E+03 0.29890E+03 0.34873E+03 0.51245E+03 0.72975E+03 0.10509E+04 + 0.16040E+01 0.19104E+01 0.23002E+01 0.27868E+01 0.34042E+01 0.41863E+01 + 0.51720E+01 0.64174E+01 0.79759E+01 0.99278E+01 0.12310E+02 0.15248E+02 + 0.18703E+02 0.22728E+02 0.27183E+02 0.32206E+02 0.37731E+02 0.44139E+02 + 0.45505E+02 0.46157E+02 0.38384E+02 0.19830E+02 0.16213E+02 0.82593E+02 + 0.14875E+03 0.20728E+03 0.27362E+03 0.35096E+03 0.50189E+03 0.56522E+03 + 0.79870E+03 0.10966E+04 0.15177E+04 0.25417E+01 0.29790E+01 0.35355E+01 + 0.42300E+01 0.51110E+01 0.62271E+01 0.76335E+01 0.94103E+01 0.11633E+02 + 0.14417E+02 0.17816E+02 0.22006E+02 0.26938E+02 0.32688E+02 0.39068E+02 + 0.46294E+02 0.54274E+02 0.63572E+02 0.65904E+02 0.67436E+02 0.57461E+02 + 0.32946E+02 0.14886E+02 0.10282E+03 0.25236E+03 0.36853E+03 0.48668E+03 + 0.62098E+03 0.87185E+03 0.95383E+03 0.13047E+04 0.17353E+04 0.23161E+04 + 0.41328E+01 0.47568E+01 0.55510E+01 0.65418E+01 0.77989E+01 0.93912E+01 + 0.11397E+02 0.13931E+02 0.17101E+02 0.21072E+02 0.25918E+02 0.31894E+02 + 0.38932E+02 0.47147E+02 0.56282E+02 0.66676E+02 0.78207E+02 0.91717E+02 + 0.95578E+02 0.98615E+02 0.85903E+02 0.53467E+02 0.10313E+02 0.12753E+03 + 0.32634E+03 0.60901E+03 0.87340E+03 0.11099E+04 0.15555E+04 0.16632E+04 + 0.22173E+04 0.28727E+04 0.37162E+04 0.69098E+01 0.78001E+01 0.89329E+01 + 0.10347E+02 0.12139E+02 0.14410E+02 0.17271E+02 0.20885E+02 0.25404E+02 + 0.31064E+02 0.37972E+02 0.46493E+02 0.56530E+02 0.68259E+02 0.81327E+02 + 0.96264E+02 0.11292E+03 0.13254E+03 0.13880E+03 0.14432E+03 0.12823E+03 + 0.85305E+02 0.00000E+00 0.15715E+03 0.42373E+03 0.79843E+03 0.13984E+04 + 0.20071E+04 0.27980E+04 0.29760E+04 0.38915E+04 0.49386E+04 0.62268E+04 + 0.00000E+00 0.28080E-09 0.97504E-09 0.27444E-08 0.45243E-08 0.11784E-07 + 0.16242E-07 0.31866E-07 0.64058E-07 0.14291E-06 0.29802E-06 0.61709E-06 + 0.27774E-05 0.25327E-04 0.56001E-04 0.42165E-03 0.13854E-02 0.30896E-02 + 0.64563E-02 0.11504E-01 0.19593E-01 0.30209E-01 0.46166E-01 0.70572E-01 + 0.10490E+00 0.15311E+00 0.22279E+00 0.32201E+00 0.49526E+00 0.67995E+00 + 0.10421E+01 0.15072E+01 0.21899E+01 0.28080E-09 0.00000E+00 0.73365E-09 + 0.24621E-08 0.68212E-08 0.11480E-07 0.28812E-07 0.42533E-07 0.84798E-07 + 0.19171E-06 0.38042E-06 0.80482E-06 0.49871E-05 0.43383E-04 0.71590E-04 + 0.53856E-03 0.17649E-02 0.39261E-02 0.81888E-02 0.14565E-01 0.24772E-01 + 0.38146E-01 0.58214E-01 0.88857E-01 0.13187E+00 0.19210E+00 0.27884E+00 + 0.40177E+00 0.61544E+00 0.84072E+00 0.12800E+01 0.18390E+01 0.26504E+01 + 0.97504E-09 0.73365E-09 0.00000E+00 0.18199E-08 0.60696E-08 0.17281E-07 + 0.28988E-07 0.64230E-07 0.11779E-06 0.22843E-06 0.49739E-06 0.10601E-05 + 0.79612E-05 0.73761E-04 0.14965E-03 0.69156E-03 0.22586E-02 0.50088E-02 + 0.10422E-01 0.18501E-01 0.31415E-01 0.48303E-01 0.73613E-01 0.11221E+00 + 0.16629E+00 0.24181E+00 0.35026E+00 0.50344E+00 0.76855E+00 0.10455E+01 + 0.15830E+01 0.22614E+01 0.32367E+01 0.27444E-08 0.24621E-08 0.18199E-08 + 0.00000E+00 0.44542E-08 0.15420E-07 0.41845E-07 0.79051E-07 0.16340E-06 + 0.32248E-06 0.74846E-06 0.14738E-05 0.18683E-04 0.11382E-03 0.29399E-03 + 0.92664E-03 0.28916E-02 0.63884E-02 0.13256E-01 0.23472E-01 0.39782E-01 + 0.61070E-01 0.92939E-01 0.14147E+00 0.20937E+00 0.30401E+00 0.43958E+00 + 0.63048E+00 0.95987E+00 0.13014E+01 0.19615E+01 0.27891E+01 0.39691E+01 + 0.45243E-08 0.68212E-08 0.60696E-08 0.44542E-08 0.00000E+00 0.11587E-07 + 0.39259E-07 0.95959E-07 0.25143E-06 0.47992E-06 0.13300E-05 0.38899E-05 + 0.36041E-04 0.17431E-03 0.48752E-03 0.12938E-02 0.36316E-02 0.81837E-02 + 0.16922E-01 0.29875E-01 0.50522E-01 0.77415E-01 0.11763E+00 0.17878E+00 + 0.26425E+00 0.38316E+00 0.55318E+00 0.79200E+00 0.12030E+01 0.16264E+01 + 0.24423E+01 0.34592E+01 0.48990E+01 0.11784E-07 0.11480E-07 0.17281E-07 + 0.15420E-07 0.11587E-07 0.00000E+00 0.29127E-07 0.11020E-06 0.26718E-06 + 0.78617E-06 0.20071E-05 0.77023E-05 0.64011E-04 0.26012E-03 0.68078E-03 + 0.17833E-02 0.43195E-02 0.10439E-01 0.21683E-01 0.38142E-01 0.64329E-01 + 0.98359E-01 0.14919E+00 0.22638E+00 0.33418E+00 0.48388E+00 0.69762E+00 + 0.99723E+00 0.15118E+01 0.20391E+01 0.30527E+01 0.43100E+01 0.60795E+01 + 0.16242E-07 0.28812E-07 0.28988E-07 0.41845E-07 0.39259E-07 0.29127E-07 + 0.00000E+00 0.79421E-07 0.37499E-06 0.93894E-06 0.43238E-05 0.15374E-04 + 0.91914E-04 0.35684E-03 0.89714E-03 0.22722E-02 0.52254E-02 0.11544E-01 + 0.27865E-01 0.48804E-01 0.82047E-01 0.12513E+00 0.18940E+00 0.28691E+00 + 0.42292E+00 0.61151E+00 0.88048E+00 0.12569E+01 0.19024E+01 0.25608E+01 + 0.38242E+01 0.53851E+01 0.75716E+01 0.31866E-07 0.42533E-07 0.64230E-07 + 0.79051E-07 0.95959E-07 0.11020E-06 0.79421E-07 0.00000E+00 0.23021E-06 + 0.12168E-05 0.58593E-05 0.31932E-04 0.12623E-03 0.45637E-03 0.10973E-02 + 0.27145E-02 0.62220E-02 0.12984E-01 0.30308E-01 0.62658E-01 0.10494E+00 + 0.15957E+00 0.24094E+00 0.36422E+00 0.53606E+00 0.77403E+00 0.11130E+01 + 0.15868E+01 0.23984E+01 0.32229E+01 0.48031E+01 0.67493E+01 0.94648E+01 + 0.64058E-07 0.84798E-07 0.11779E-06 0.16340E-06 0.25143E-06 0.26718E-06 + 0.37499E-06 0.23021E-06 0.00000E+00 0.68582E-06 0.66871E-05 0.46527E-04 + 0.16903E-03 0.54194E-03 0.12974E-02 0.31261E-02 0.70204E-02 0.14733E-01 + 0.32504E-01 0.70460E-01 0.13438E+00 0.20364E+00 0.30660E+00 0.46241E+00 + 0.67941E+00 0.97951E+00 0.14066E+01 0.20029E+01 0.30238E+01 0.40571E+01 + 0.60363E+01 0.84678E+01 0.11850E+02 0.14291E-06 0.19171E-06 0.22843E-06 + 0.32248E-06 0.47992E-06 0.78617E-06 0.93894E-06 0.12168E-05 0.68582E-06 + 0.00000E+00 0.40629E-05 0.49491E-04 0.20567E-03 0.61980E-03 0.14660E-02 + 0.34928E-02 0.77531E-02 0.15864E-01 0.35306E-01 0.73447E-01 0.15693E+00 + 0.26039E+00 0.39076E+00 0.58777E+00 0.86196E+00 0.12405E+01 0.17789E+01 + 0.25300E+01 0.38157E+01 0.51124E+01 0.75964E+01 0.10643E+02 0.14868E+02 + 0.29802E-06 0.38042E-06 0.49739E-06 0.74846E-06 0.13300E-05 0.20071E-05 + 0.43238E-05 0.58593E-05 0.66871E-05 0.40629E-05 0.00000E+00 0.31237E-04 + 0.19915E-03 0.65852E-03 0.15870E-02 0.37759E-02 0.82762E-02 0.16939E-01 + 0.36934E-01 0.76971E-01 0.16038E+00 0.31621E+00 0.49660E+00 0.74474E+00 + 0.10899E+01 0.15656E+01 0.22418E+01 0.31848E+01 0.47997E+01 0.64216E+01 + 0.95326E+01 0.13343E+02 0.18618E+02 0.61709E-06 0.80482E-06 0.10601E-05 + 0.14738E-05 0.38899E-05 0.77023E-05 0.15374E-04 0.31932E-04 0.46527E-04 + 0.49491E-04 0.31237E-04 0.00000E+00 0.13974E-03 0.61658E-03 0.16425E-02 + 0.40627E-02 0.85848E-02 0.17677E-01 0.38508E-01 0.79478E-01 0.16407E+00 + 0.32111E+00 0.63223E+00 0.94504E+00 0.13799E+01 0.19782E+01 0.28282E+01 + 0.40131E+01 0.60445E+01 0.80760E+01 0.11981E+02 0.16761E+02 0.23369E+02 + 0.27774E-05 0.49871E-05 0.79612E-05 0.18683E-04 0.36041E-04 0.64011E-04 + 0.91914E-04 0.12623E-03 0.16903E-03 0.20567E-03 0.19915E-03 0.13974E-03 + 0.00000E+00 0.44555E-03 0.15059E-02 0.41110E-02 0.91162E-02 0.18146E-01 + 0.39347E-01 0.80809E-01 0.16582E+00 0.32460E+00 0.63632E+00 0.11929E+01 + 0.17382E+01 0.24866E+01 0.35498E+01 0.50320E+01 0.75796E+01 0.10111E+02 + 0.14999E+02 0.20984E+02 0.29249E+02 0.25327E-04 0.43383E-04 0.73761E-04 + 0.11382E-03 0.17431E-03 0.26012E-03 0.35684E-03 0.45637E-03 0.54194E-03 + 0.61980E-03 0.65852E-03 0.61658E-03 0.44555E-03 0.00000E+00 0.10635E-02 + 0.36978E-02 0.87554E-02 0.18017E-01 0.39745E-01 0.81246E-01 0.16464E+00 + 0.32438E+00 0.63508E+00 0.12638E+01 0.21858E+01 0.31201E+01 0.44479E+01 + 0.63002E+01 0.94966E+01 0.12645E+02 0.18771E+02 0.26277E+02 0.36640E+02 + 0.56001E-04 0.71590E-04 0.14965E-03 0.29399E-03 0.48752E-03 0.68078E-03 + 0.89714E-03 0.10973E-02 0.12974E-02 0.14660E-02 0.15870E-02 0.16425E-02 + 0.15059E-02 0.10635E-02 0.00000E+00 0.27140E-02 0.76689E-02 0.16825E-01 + 0.38579E-01 0.79655E-01 0.16161E+00 0.31826E+00 0.62893E+00 0.12473E+01 + 0.23870E+01 0.38880E+01 0.55350E+01 0.78344E+01 0.11826E+02 0.15713E+02 + 0.23354E+02 0.32735E+02 0.45686E+02 0.42165E-03 0.53856E-03 0.69156E-03 + 0.92664E-03 0.12938E-02 0.17833E-02 0.22722E-02 0.27145E-02 0.31261E-02 + 0.34928E-02 0.37759E-02 0.40627E-02 0.41110E-02 0.36978E-02 0.27140E-02 + 0.00000E+00 0.47745E-02 0.13461E-01 0.35091E-01 0.74874E-01 0.15444E+00 + 0.30590E+00 0.60502E+00 0.12156E+01 0.23185E+01 0.43893E+01 0.69624E+01 + 0.98504E+01 0.14910E+02 0.19753E+02 0.29431E+02 0.41347E+02 0.57821E+02 + 0.13854E-02 0.17649E-02 0.22586E-02 0.28916E-02 0.36316E-02 0.43195E-02 + 0.52254E-02 0.62220E-02 0.70204E-02 0.77531E-02 0.82762E-02 0.85848E-02 + 0.91162E-02 0.87554E-02 0.76689E-02 0.47745E-02 0.00000E+00 0.83551E-02 + 0.30380E-01 0.69419E-01 0.14758E+00 0.29527E+00 0.58501E+00 0.11735E+01 + 0.22676E+01 0.42626E+01 0.80491E+01 0.12384E+02 0.18793E+02 0.24806E+02 + 0.37048E+02 0.52177E+02 0.73105E+02 0.30896E-02 0.39261E-02 0.50088E-02 + 0.63884E-02 0.81837E-02 0.10439E-01 0.11544E-01 0.12984E-01 0.14733E-01 + 0.15864E-01 0.16939E-01 0.17677E-01 0.18146E-01 0.18017E-01 0.16825E-01 + 0.13461E-01 0.83551E-02 0.00000E+00 0.23430E-01 0.62774E-01 0.14128E+00 + 0.28773E+00 0.57179E+00 0.11438E+01 0.22050E+01 0.41801E+01 0.78334E+01 + 0.14615E+02 0.24020E+02 0.31551E+02 0.47220E+02 0.66656E+02 0.93570E+02 + 0.64563E-02 0.81888E-02 0.10422E-01 0.13256E-01 0.16922E-01 0.21683E-01 + 0.27865E-01 0.30308E-01 0.32504E-01 0.35306E-01 0.36934E-01 0.38508E-01 + 0.39347E-01 0.39745E-01 0.38579E-01 0.35091E-01 0.30380E-01 0.23430E-01 + 0.00000E+00 0.36444E-01 0.11053E+00 0.24784E+00 0.51226E+00 0.10421E+01 + 0.20274E+01 0.38470E+01 0.73019E+01 0.13589E+02 0.27921E+02 0.38365E+02 + 0.57779E+02 0.82029E+02 0.11570E+03 0.11504E-01 0.14565E-01 0.18501E-01 + 0.23472E-01 0.29875E-01 0.38142E-01 0.48804E-01 0.62658E-01 0.70460E-01 + 0.73447E-01 0.76971E-01 0.79478E-01 0.80809E-01 0.81246E-01 0.79655E-01 + 0.74874E-01 0.69419E-01 0.62774E-01 0.36444E-01 0.00000E+00 0.74363E-01 + 0.20932E+00 0.46450E+00 0.96927E+00 0.19056E+01 0.36061E+01 0.68450E+01 + 0.12878E+02 0.26522E+02 0.45461E+02 0.72656E+02 0.10365E+03 0.14677E+03 + 0.19593E-01 0.24772E-01 0.31415E-01 0.39782E-01 0.50522E-01 0.64329E-01 + 0.82047E-01 0.10494E+00 0.13438E+00 0.15693E+00 0.16038E+00 0.16407E+00 + 0.16582E+00 0.16464E+00 0.16161E+00 0.15444E+00 0.14758E+00 0.14128E+00 + 0.11053E+00 0.74363E-01 0.00000E+00 0.13120E+00 0.37359E+00 0.84577E+00 + 0.17216E+01 0.32773E+01 0.62371E+01 0.11782E+02 0.24834E+02 0.41986E+02 + 0.85945E+02 0.12794E+03 0.18218E+03 0.30209E-01 0.38146E-01 0.48303E-01 + 0.61070E-01 0.77415E-01 0.98359E-01 0.12513E+00 0.15957E+00 0.20364E+00 + 0.26039E+00 0.31621E+00 0.32111E+00 0.32460E+00 0.32438E+00 0.31826E+00 + 0.30590E+00 0.29527E+00 0.28773E+00 0.24784E+00 0.20932E+00 0.13120E+00 + 0.00000E+00 0.23330E+00 0.67693E+00 0.14990E+01 0.29136E+01 0.56017E+01 + 0.10643E+02 0.22886E+02 0.38597E+02 0.79558E+02 0.14702E+03 0.22468E+03 + 0.46166E-01 0.58214E-01 0.73613E-01 0.92939E-01 0.11763E+00 0.14919E+00 + 0.18940E+00 0.24094E+00 0.30660E+00 0.39076E+00 0.49660E+00 0.63223E+00 + 0.63632E+00 0.63508E+00 0.62893E+00 0.60502E+00 0.58501E+00 0.57179E+00 + 0.51226E+00 0.46450E+00 0.37359E+00 0.23330E+00 0.00000E+00 0.42479E+00 + 0.12070E+01 0.24894E+01 0.49206E+01 0.94838E+01 0.20923E+02 0.34833E+02 + 0.73552E+02 0.13696E+03 0.25236E+03 0.70572E-01 0.88857E-01 0.11221E+00 + 0.14147E+00 0.17878E+00 0.22638E+00 0.28691E+00 0.36422E+00 0.46241E+00 + 0.58777E+00 0.74474E+00 0.94504E+00 0.11929E+01 0.12638E+01 0.12473E+01 + 0.12156E+01 0.11735E+01 0.11438E+01 0.10421E+01 0.96927E+00 0.84577E+00 + 0.67693E+00 0.42479E+00 0.00000E+00 0.76670E+00 0.19301E+01 0.41246E+01 + 0.82430E+01 0.19010E+02 0.30959E+02 0.67015E+02 0.12787E+03 0.23685E+03 + 0.10490E+00 0.13187E+00 0.16629E+00 0.20937E+00 0.26425E+00 0.33418E+00 + 0.42292E+00 0.53606E+00 0.67941E+00 0.86196E+00 0.10899E+01 0.13799E+01 + 0.17382E+01 0.21858E+01 0.23870E+01 0.23185E+01 0.22676E+01 0.22050E+01 + 0.20274E+01 0.19056E+01 0.17216E+01 0.14990E+01 0.12070E+01 0.76670E+00 + 0.00000E+00 0.10360E+01 0.29803E+01 0.66384E+01 0.16795E+02 0.26669E+02 + 0.59804E+02 0.11670E+03 0.22171E+03 0.15311E+00 0.19210E+00 0.24181E+00 + 0.30401E+00 0.38316E+00 0.48388E+00 0.61151E+00 0.77403E+00 0.97951E+00 + 0.12405E+01 0.15656E+01 0.19782E+01 0.24866E+01 0.31201E+01 0.38880E+01 + 0.43893E+01 0.42626E+01 0.41801E+01 0.38470E+01 0.36061E+01 0.32773E+01 + 0.29136E+01 0.24894E+01 0.19301E+01 0.10360E+01 0.00000E+00 0.18821E+01 + 0.53709E+01 0.15569E+02 0.23961E+02 0.55774E+02 0.11077E+03 0.21205E+03 + 0.22279E+00 0.27884E+00 0.35026E+00 0.43958E+00 0.55318E+00 0.69762E+00 + 0.88048E+00 0.11130E+01 0.14066E+01 0.17789E+01 0.22418E+01 0.28282E+01 + 0.35498E+01 0.44479E+01 0.55350E+01 0.69624E+01 0.80491E+01 0.78334E+01 + 0.73019E+01 0.68450E+01 0.62371E+01 0.56017E+01 0.49206E+01 0.41246E+01 + 0.29803E+01 0.18821E+01 0.00000E+00 0.33916E+01 0.13941E+02 0.20702E+02 + 0.51633E+02 0.10541E+03 0.20394E+03 0.32201E+00 0.40177E+00 0.50344E+00 + 0.63048E+00 0.79200E+00 0.99723E+00 0.12569E+01 0.15868E+01 0.20029E+01 + 0.25300E+01 0.31848E+01 0.40131E+01 0.50320E+01 0.63002E+01 0.78344E+01 + 0.98504E+01 0.12384E+02 0.14615E+02 0.13589E+02 0.12878E+02 0.11782E+02 + 0.10643E+02 0.94838E+01 0.82430E+01 0.66384E+01 0.53709E+01 0.33916E+01 + 0.00000E+00 0.11321E+02 0.16170E+02 0.46735E+02 0.10008E+03 0.19700E+03 + 0.49526E+00 0.61544E+00 0.76855E+00 0.95987E+00 0.12030E+01 0.15118E+01 + 0.19024E+01 0.23984E+01 0.30238E+01 0.38157E+01 0.47997E+01 0.60445E+01 + 0.75796E+01 0.94966E+01 0.11826E+02 0.14910E+02 0.18793E+02 0.24020E+02 + 0.27921E+02 0.26522E+02 0.24834E+02 0.22886E+02 0.20923E+02 0.19010E+02 + 0.16795E+02 0.15569E+02 0.13941E+02 0.11321E+02 0.00000E+00 0.00000E+00 + 0.27078E+02 0.76089E+02 0.16507E+03 0.67995E+00 0.84072E+00 0.10455E+01 + 0.13014E+01 0.16264E+01 0.20391E+01 0.25608E+01 0.32229E+01 0.40571E+01 + 0.51124E+01 0.64216E+01 0.80760E+01 0.10111E+02 0.12645E+02 0.15713E+02 + 0.19753E+02 0.24806E+02 0.31551E+02 0.38365E+02 0.45461E+02 0.41986E+02 + 0.38597E+02 0.34833E+02 0.30959E+02 0.26669E+02 0.23961E+02 0.20702E+02 + 0.16170E+02 0.00000E+00 0.00000E+00 0.33984E+02 0.92316E+02 0.19410E+03 + 0.10421E+01 0.12800E+01 0.15830E+01 0.19615E+01 0.24423E+01 0.30527E+01 + 0.38242E+01 0.48031E+01 0.60363E+01 0.75964E+01 0.95326E+01 0.11981E+02 + 0.14999E+02 0.18771E+02 0.23354E+02 0.29431E+02 0.37048E+02 0.47220E+02 + 0.57779E+02 0.72656E+02 0.85945E+02 0.79558E+02 0.73552E+02 0.67015E+02 + 0.59804E+02 0.55774E+02 0.51633E+02 0.46735E+02 0.27078E+02 0.33984E+02 + 0.00000E+00 0.58942E+02 0.15939E+03 0.15072E+01 0.18390E+01 0.22614E+01 + 0.27891E+01 0.34592E+01 0.43100E+01 0.53851E+01 0.67493E+01 0.84678E+01 + 0.10643E+02 0.13343E+02 0.16761E+02 0.20984E+02 0.26277E+02 0.32735E+02 + 0.41347E+02 0.52177E+02 0.66656E+02 0.82029E+02 0.10365E+03 0.12794E+03 + 0.14702E+03 0.13696E+03 0.12787E+03 0.11670E+03 0.11077E+03 0.10541E+03 + 0.10008E+03 0.76089E+02 0.92316E+02 0.58942E+02 0.00000E+00 0.97842E+02 + 0.21899E+01 0.26504E+01 0.32367E+01 0.39691E+01 0.48990E+01 0.60795E+01 + 0.75716E+01 0.94648E+01 0.11850E+02 0.14868E+02 0.18618E+02 0.23369E+02 + 0.29249E+02 0.36640E+02 0.45686E+02 0.57821E+02 0.73105E+02 0.93570E+02 + 0.11570E+03 0.14677E+03 0.18218E+03 0.22468E+03 0.25236E+03 0.23685E+03 + 0.22171E+03 0.21205E+03 0.20394E+03 0.19700E+03 0.16507E+03 0.19410E+03 + 0.15939E+03 0.97842E+02 0.00000E+00 0.50586E-09 0.22415E-09 0.41665E-09 + 0.20941E-08 0.62418E-08 0.11449E-07 0.27569E-07 0.44572E-07 0.88157E-07 + 0.19591E-06 0.39467E-06 0.83874E-06 0.53978E-05 0.47627E-04 0.74462E-04 + 0.56010E-03 0.18348E-02 0.40798E-02 0.85070E-02 0.15127E-01 0.25723E-01 + 0.39598E-01 0.60422E-01 0.92207E-01 0.13681E+00 0.19924E+00 0.28910E+00 + 0.41638E+00 0.63745E+00 0.87013E+00 0.13236E+01 0.18997E+01 0.27347E+01 + 0.14723E-08 0.13123E-08 0.57241E-09 0.99388E-09 0.50901E-08 0.15816E-07 + 0.28705E-07 0.64832E-07 0.12149E-06 0.23265E-06 0.52630E-06 0.10999E-05 + 0.84478E-05 0.78778E-04 0.16803E-03 0.71666E-03 0.23395E-02 0.51860E-02 + 0.10788E-01 0.19144E-01 0.32501E-01 0.49963E-01 0.76129E-01 0.11602E+00 + 0.17191E+00 0.24993E+00 0.36193E+00 0.52003E+00 0.79354E+00 0.10790E+01 + 0.16325E+01 0.23304E+01 0.33325E+01 0.35600E-08 0.36777E-08 0.32359E-08 + 0.13934E-08 0.24291E-08 0.13016E-07 0.39026E-07 0.78367E-07 0.17478E-06 + 0.33475E-06 0.78391E-06 0.17550E-05 0.20709E-04 0.12018E-03 0.31724E-03 + 0.97093E-03 0.29922E-02 0.66074E-02 0.13706E-01 0.24262E-01 0.41111E-01 + 0.63099E-01 0.96012E-01 0.14612E+00 0.21622E+00 0.31389E+00 0.45377E+00 + 0.65065E+00 0.99027E+00 0.13420E+01 0.20217E+01 0.28728E+01 0.40855E+01 + 0.60339E-08 0.87877E-08 0.89588E-08 0.78199E-08 0.32930E-08 0.67455E-08 + 0.33483E-07 0.92083E-07 0.24985E-06 0.51308E-06 0.14037E-05 0.42264E-05 + 0.38923E-04 0.18323E-03 0.51551E-03 0.13466E-02 0.37050E-02 0.84413E-02 + 0.17450E-01 0.30797E-01 0.52068E-01 0.79770E-01 0.12119E+00 0.18416E+00 + 0.27217E+00 0.39458E+00 0.56958E+00 0.81529E+00 0.12381E+01 0.16734E+01 + 0.25118E+01 0.35561E+01 0.50336E+01 0.16309E-07 0.15431E-07 0.22665E-07 + 0.22971E-07 0.20453E-07 0.86179E-08 0.16159E-07 0.92857E-07 0.25340E-06 + 0.78015E-06 0.21794E-05 0.81018E-05 0.67124E-04 0.26849E-03 0.69908E-03 + 0.18421E-02 0.43995E-02 0.10531E-01 0.22265E-01 0.39157E-01 0.66029E-01 + 0.10094E+00 0.15308E+00 0.23228E+00 0.34283E+00 0.49637E+00 0.71553E+00 + 0.10227E+01 0.15502E+01 0.20904E+01 0.31287E+01 0.44158E+01 0.62266E+01 + 0.21222E-07 0.38639E-07 0.38958E-07 0.55003E-07 0.58281E-07 0.51576E-07 + 0.21639E-07 0.44572E-07 0.31284E-06 0.87319E-06 0.43836E-05 0.16092E-04 + 0.93343E-04 0.36413E-03 0.91469E-03 0.22988E-02 0.53074E-02 0.11633E-01 + 0.28479E-01 0.49876E-01 0.83842E-01 0.12787E+00 0.19352E+00 0.29313E+00 + 0.43208E+00 0.62471E+00 0.89939E+00 0.12838E+01 0.19430E+01 0.26150E+01 + 0.39044E+01 0.54970E+01 0.77273E+01 0.41252E-07 0.55803E-07 0.84690E-07 + 0.10775E-06 0.13396E-06 0.16689E-06 0.14173E-06 0.54975E-07 0.12247E-06 + 0.10041E-05 0.54012E-05 0.32059E-04 0.12531E-03 0.45645E-03 0.11015E-02 + 0.27315E-02 0.62383E-02 0.13046E-01 0.30347E-01 0.63628E-01 0.10658E+00 + 0.16208E+00 0.24475E+00 0.37000E+00 0.54459E+00 0.78633E+00 0.11307E+01 + 0.16119E+01 0.24364E+01 0.32737E+01 0.48785E+01 0.68548E+01 0.96120E+01 + 0.82860E-07 0.10935E-06 0.15250E-06 0.20829E-06 0.33674E-06 0.37679E-06 + 0.55667E-06 0.40975E-06 0.13225E-06 0.36822E-06 0.55590E-05 0.42986E-04 + 0.16409E-03 0.53127E-03 0.12848E-02 0.31102E-02 0.70045E-02 0.14679E-01 + 0.32455E-01 0.70281E-01 0.13562E+00 0.20557E+00 0.30960E+00 0.46702E+00 + 0.68628E+00 0.98948E+00 0.14210E+01 0.20235E+01 0.30554E+01 0.40992E+01 + 0.60992E+01 0.85566E+01 0.11974E+02 0.18064E-06 0.24390E-06 0.29052E-06 + 0.41016E-06 0.61297E-06 0.10272E-05 0.12831E-05 0.17513E-05 0.11820E-05 + 0.30871E-06 0.23220E-05 0.41402E-04 0.18973E-03 0.59335E-03 0.14271E-02 + 0.34334E-02 0.76569E-02 0.15714E-01 0.35079E-01 0.73005E-01 0.15608E+00 + 0.26072E+00 0.39147E+00 0.58909E+00 0.86417E+00 0.12440E+01 0.17842E+01 + 0.25381E+01 0.38286E+01 0.51298E+01 0.76236E+01 0.10682E+02 0.14925E+02 + 0.37833E-06 0.48249E-06 0.63014E-06 0.95902E-06 0.17181E-05 0.25999E-05 + 0.57356E-05 0.80444E-05 0.97674E-05 0.70915E-05 0.17944E-05 0.17054E-04 + 0.16502E-03 0.60053E-03 0.15019E-02 0.36462E-02 0.80656E-02 0.16599E-01 + 0.36382E-01 0.76035E-01 0.15874E+00 0.31342E+00 0.49376E+00 0.74113E+00 + 0.10853E+01 0.15598E+01 0.22342E+01 0.31751E+01 0.47873E+01 0.64052E+01 + 0.95117E+01 0.13318E+02 0.18588E+02 0.77882E-06 0.10167E-05 0.13264E-05 + 0.18794E-05 0.48980E-05 0.97696E-05 0.19473E-04 0.41491E-04 0.61280E-04 + 0.69379E-04 0.52343E-04 0.24288E-04 0.77344E-04 0.50515E-03 0.14726E-02 + 0.37980E-02 0.81822E-02 0.17020E-01 0.37447E-01 0.77694E-01 0.16101E+00 + 0.31604E+00 0.62008E+00 0.92840E+00 0.13574E+01 0.19474E+01 0.27862E+01 + 0.39561E+01 0.59641E+01 0.79684E+01 0.11830E+02 0.16559E+02 0.23098E+02 + 0.33691E-05 0.59099E-05 0.93370E-05 0.22203E-04 0.42466E-04 0.75598E-04 + 0.10872E-03 0.15374E-03 0.21459E-03 0.27054E-03 0.27831E-03 0.23038E-03 + 0.17441E-03 0.22773E-03 0.11775E-02 0.35998E-02 0.83043E-02 0.16927E-01 + 0.37380E-01 0.77559E-01 0.16046E+00 0.31555E+00 0.62112E+00 0.11513E+01 + 0.16817E+01 0.24092E+01 0.34439E+01 0.48874E+01 0.73736E+01 0.98371E+01 + 0.14610E+02 0.20459E+02 0.28542E+02 0.24329E-04 0.44574E-04 0.75566E-04 + 0.11656E-03 0.19164E-03 0.29830E-03 0.43015E-03 0.55851E-03 0.66868E-03 + 0.78453E-03 0.85535E-03 0.85012E-03 0.75400E-03 0.71936E-03 0.41064E-03 + 0.27222E-02 0.72551E-02 0.15670E-01 0.36146E-01 0.75302E-01 0.15512E+00 + 0.30879E+00 0.60822E+00 0.12178E+01 0.20543E+01 0.29408E+01 0.42024E+01 + 0.59645E+01 0.90164E+01 0.12008E+02 0.17862E+02 0.25047E+02 0.34978E+02 + 0.88172E-04 0.11295E-03 0.23225E-03 0.41226E-03 0.65459E-03 0.88243E-03 + 0.11567E-02 0.14079E-02 0.16740E-02 0.19145E-02 0.21331E-02 0.23068E-02 + 0.23223E-02 0.21756E-02 0.26763E-02 0.51451E-03 0.44480E-02 0.11998E-01 + 0.31149E-01 0.67792E-01 0.14254E+00 0.28734E+00 0.57706E+00 0.11567E+01 + 0.22358E+01 0.35016E+01 0.50100E+01 0.71212E+01 0.10813E+02 0.14373E+02 + 0.21452E+02 0.30173E+02 0.42238E+02 0.40430E-03 0.51694E-03 0.66493E-03 + 0.10160E-02 0.15240E-02 0.22069E-02 0.27394E-02 0.33520E-02 0.39193E-02 + 0.44365E-02 0.49122E-02 0.54692E-02 0.58411E-02 0.59557E-02 0.60697E-02 + 0.64364E-02 0.17697E-02 0.37908E-02 0.20349E-01 0.51681E-01 0.11765E+00 + 0.24701E+00 0.50798E+00 0.10448E+01 0.20360E+01 0.39092E+01 0.57494E+01 + 0.82071E+01 0.12574E+02 0.16675E+02 0.25058E+02 0.35450E+02 0.49856E+02 + 0.13574E-02 0.17318E-02 0.22206E-02 0.28503E-02 0.36137E-02 0.46112E-02 + 0.59422E-02 0.69593E-02 0.81052E-02 0.90949E-02 0.98979E-02 0.10824E-01 + 0.11903E-01 0.12513E-01 0.12780E-01 0.12743E-01 0.11190E-01 0.74973E-02 + 0.63997E-02 0.32216E-01 0.89324E-01 0.20323E+00 0.43531E+00 0.92085E+00 + 0.18345E+01 0.35366E+01 0.65368E+01 0.93816E+01 0.14532E+02 0.19217E+02 + 0.29112E+02 0.41464E+02 0.58639E+02 0.31856E-02 0.40553E-02 0.51853E-02 + 0.66324E-02 0.85275E-02 0.10006E-01 0.11730E-01 0.14025E-01 0.15722E-01 + 0.17608E-01 0.19083E-01 0.20355E-01 0.21862E-01 0.23536E-01 0.24470E-01 + 0.24684E-01 0.28523E-01 0.24030E-01 0.12595E-01 0.73839E-02 0.55423E-01 + 0.15372E+00 0.35685E+00 0.78629E+00 0.16184E+01 0.31598E+01 0.61244E+01 + 0.10615E+02 0.16669E+02 0.21968E+02 0.33607E+02 0.48255E+02 0.68686E+02 + 0.64014E-02 0.81336E-02 0.10375E-01 0.13232E-01 0.16952E-01 0.21820E-01 + 0.24471E-01 0.27233E-01 0.30859E-01 0.33371E-01 0.36042E-01 0.38154E-01 + 0.40993E-01 0.43232E-01 0.45500E-01 0.47154E-01 0.49367E-01 0.12877E+00 + 0.45755E-01 0.34640E-01 0.00000E+00 0.75977E-01 0.23890E+00 0.59243E+00 + 0.12972E+01 0.26297E+01 0.51885E+01 0.10075E+02 0.18340E+02 0.24068E+02 + 0.37439E+02 0.54467E+02 0.78335E+02 0.11206E-01 0.14215E-01 0.18097E-01 + 0.23025E-01 0.29410E-01 0.37716E-01 0.48536E-01 0.52912E-01 0.56951E-01 + 0.62216E-01 0.65699E-01 0.69562E-01 0.73034E-01 0.77241E-01 0.80513E-01 + 0.83830E-01 0.88804E-01 0.96650E-01 0.37924E+00 0.93714E-01 0.73685E-01 + 0.21551E-01 0.99146E-01 0.37410E+00 0.94900E+00 0.20324E+01 0.42079E+01 + 0.83622E+01 0.18736E+02 0.25745E+02 0.40983E+02 0.60668E+02 0.88411E+02 + 0.17626E-01 0.22328E-01 0.28377E-01 0.36031E-01 0.45909E-01 0.58698E-01 + 0.75258E-01 0.96908E-01 0.10351E+00 0.10910E+00 0.11607E+00 0.12099E+00 + 0.12630E+00 0.13212E+00 0.13663E+00 0.14146E+00 0.14922E+00 0.16209E+00 + 0.16464E+00 0.34616E+00 0.16733E+00 0.13752E+00 0.55939E-01 0.14701E+00 + 0.60483E+00 0.14623E+01 0.32445E+01 0.67837E+01 0.15968E+02 0.27235E+02 + 0.44649E+02 0.67485E+02 0.99842E+02 0.27379E-01 0.34638E-01 0.43961E-01 + 0.55725E-01 0.70859E-01 0.90378E-01 0.11553E+00 0.14823E+00 0.19066E+00 + 0.20058E+00 0.20813E+00 0.21746E+00 0.22352E+00 0.22996E+00 0.23706E+00 + 0.24406E+00 0.25595E+00 0.27633E+00 0.28563E+00 0.31519E+00 0.32403E+00 + 0.32688E+00 0.30103E+00 0.19777E+00 0.10195E+00 0.66127E+00 0.19200E+01 + 0.45939E+01 0.12299E+02 0.20923E+02 0.45158E+02 0.70921E+02 0.10772E+03 + 0.39351E-01 0.49734E-01 0.63039E-01 0.79794E-01 0.10129E+00 0.12893E+00 + 0.16440E+00 0.21030E+00 0.26951E+00 0.34666E+00 0.36022E+00 0.37078E+00 + 0.38229E+00 0.38906E+00 0.39638E+00 0.40442E+00 0.41957E+00 0.44701E+00 + 0.46079E+00 0.49812E+00 0.53053E+00 0.56162E+00 0.58395E+00 0.56605E+00 + 0.39813E+00 0.90126E-01 0.73358E+00 0.26624E+01 0.91723E+01 0.15459E+02 + 0.39340E+02 0.74891E+02 0.11728E+03 0.56330E-01 0.71111E-01 0.90031E-01 + 0.11382E+00 0.14427E+00 0.18333E+00 0.23330E+00 0.29772E+00 0.38046E+00 + 0.48767E+00 0.62471E+00 0.64498E+00 0.66034E+00 0.67660E+00 0.68536E+00 + 0.69486E+00 0.71508E+00 0.75363E+00 0.77525E+00 0.83484E+00 0.89724E+00 + 0.97530E+00 0.10761E+01 0.11937E+01 0.12305E+01 0.12999E+01 0.11146E+01 + 0.25804E+00 0.43785E+01 0.73865E+01 0.25528E+02 0.60930E+02 0.11563E+03 + 0.78138E-01 0.98537E-01 0.12462E+00 0.15736E+00 0.19923E+00 0.25278E+00 + 0.32114E+00 0.40898E+00 0.52138E+00 0.66639E+00 0.85076E+00 0.10911E+01 + 0.11120E+01 0.11321E+01 0.11531E+01 0.11607E+01 0.11834E+01 0.12316E+01 + 0.12559E+01 0.13355E+01 0.14243E+01 0.15457E+01 0.17202E+01 0.19647E+01 + 0.21877E+01 0.26025E+01 0.29875E+01 0.30683E+01 0.00000E+00 0.00000E+00 + 0.13373E+02 0.42142E+02 0.10095E+03 0.11658E+00 0.14685E+00 0.18553E+00 + 0.23403E+00 0.29594E+00 0.37504E+00 0.47583E+00 0.60503E+00 0.76993E+00 + 0.98204E+00 0.12509E+01 0.16003E+01 0.20329E+01 0.20606E+01 0.20933E+01 + 0.21250E+01 0.21583E+01 0.22319E+01 0.22755E+01 0.24092E+01 0.25726E+01 + 0.28095E+01 0.31724E+01 0.37309E+01 0.44120E+01 0.56284E+01 0.73144E+01 + 0.94991E+01 0.10005E+02 0.16389E+02 0.14032E+02 0.00000E+00 0.34882E+02 + 0.17002E+00 0.21391E+00 0.26995E+00 0.34016E+00 0.42972E+00 0.54394E+00 + 0.68929E+00 0.87530E+00 0.11121E+01 0.14160E+01 0.18002E+01 0.22980E+01 + 0.29326E+01 0.36804E+01 0.37214E+01 0.37748E+01 0.38488E+01 0.39512E+01 + 0.40119E+01 0.42106E+01 0.44638E+01 0.48428E+01 0.54380E+01 0.63803E+01 + 0.76092E+01 0.97702E+01 0.12949E+02 0.17487E+02 0.21862E+02 0.35137E+02 + 0.44403E+02 0.46303E+02 0.36477E+02 0.24390E+00 0.30644E+00 0.38623E+00 + 0.48616E+00 0.61348E+00 0.77580E+00 0.98196E+00 0.12455E+01 0.15805E+01 + 0.20093E+01 0.25502E+01 0.32494E+01 0.41389E+01 0.52983E+01 0.65328E+01 + 0.65917E+01 0.67229E+01 0.68967E+01 0.69654E+01 0.72387E+01 0.75969E+01 + 0.81485E+01 0.90311E+01 0.10448E+02 0.12344E+02 0.15644E+02 0.20579E+02 + 0.27815E+02 0.36470E+02 0.57340E+02 0.78994E+02 0.97582E+02 0.11491E+03 + 0.36375E+00 0.45629E+00 0.57432E+00 0.72204E+00 0.91017E+00 0.11498E+01 + 0.14539E+01 0.18421E+01 0.23350E+01 0.29652E+01 0.37591E+01 0.47836E+01 + 0.60863E+01 0.77836E+01 0.99561E+01 0.12069E+02 0.12250E+02 0.12613E+02 + 0.12749E+02 0.13161E+02 0.13716E+02 0.14584E+02 0.15984E+02 0.18243E+02 + 0.21316E+02 0.26576E+02 0.34495E+02 0.46253E+02 0.62068E+02 0.95184E+02 + 0.13682E+03 0.18206E+03 0.24191E+03 0.53128E+00 0.66520E+00 0.83591E+00 + 0.10495E+01 0.13214E+01 0.16674E+01 0.21063E+01 0.26661E+01 0.33760E+01 + 0.42826E+01 0.54232E+01 0.68936E+01 0.87619E+01 0.11194E+02 0.14303E+02 + 0.18735E+02 0.21887E+02 0.22376E+02 0.22800E+02 0.23381E+02 0.24167E+02 + 0.25426E+02 0.27482E+02 0.30816E+02 0.35376E+02 0.43098E+02 0.54688E+02 + 0.71880E+02 0.96009E+02 0.14320E+03 0.20699E+03 0.28115E+03 0.38637E+03 + 0.76456E+00 0.95503E+00 0.11979E+01 0.15016E+01 0.18880E+01 0.23795E+01 + 0.30027E+01 0.37969E+01 0.48033E+01 0.60871E+01 0.77011E+01 0.97787E+01 + 0.12417E+02 0.15849E+02 0.20230E+02 0.26465E+02 0.34744E+02 0.39202E+02 + 0.39698E+02 0.40944E+02 0.41984E+02 0.43712E+02 0.46586E+02 0.51286E+02 + 0.57734E+02 0.68587E+02 0.84772E+02 0.10863E+03 0.14263E+03 0.20642E+03 + 0.29534E+03 0.40150E+03 0.55605E+03 0.11261E+01 0.14028E+01 0.17555E+01 + 0.21964E+01 0.27572E+01 0.34705E+01 0.43742E+01 0.55254E+01 0.69832E+01 + 0.88423E+01 0.11177E+02 0.14181E+02 0.17996E+02 0.22958E+02 0.29290E+02 + 0.38299E+02 0.50216E+02 0.67016E+02 0.71247E+02 0.73154E+02 0.75299E+02 + 0.77760E+02 0.81922E+02 0.88770E+02 0.98184E+02 0.11391E+03 0.13720E+03 + 0.17126E+03 0.22030E+03 0.30874E+03 0.43473E+03 0.58754E+03 0.81307E+03 + 0.16827E+01 0.20891E+01 0.26070E+01 0.32545E+01 0.40778E+01 0.51245E+01 + 0.64503E+01 0.81387E+01 0.10276E+02 0.12999E+02 0.16419E+02 0.20819E+02 + 0.26406E+02 0.33677E+02 0.42955E+02 0.56158E+02 0.73578E+02 0.98016E+02 + 0.12908E+03 0.13274E+03 0.13652E+03 0.14101E+03 0.14712E+03 0.15722E+03 + 0.17113E+03 0.19422E+03 0.22813E+03 0.27731E+03 0.34839E+03 0.47227E+03 + 0.65080E+03 0.86868E+03 0.11918E+04 0.24729E+01 0.30578E+01 0.38031E+01 + 0.47346E+01 0.59189E+01 0.74243E+01 0.93305E+01 0.11757E+02 0.14828E+02 + 0.18739E+02 0.23649E+02 0.29964E+02 0.37983E+02 0.48421E+02 0.61739E+02 + 0.80693E+02 0.10563E+03 0.14048E+03 0.18476E+03 0.23653E+03 0.24159E+03 + 0.24979E+03 0.25932E+03 0.27361E+03 0.29335E+03 0.32608E+03 0.37385E+03 + 0.44248E+03 0.54126E+03 0.70948E+03 0.95155E+03 0.12463E+04 0.16822E+04 + 0.48046E-09 0.56161E-09 0.13449E-09 0.11556E-08 0.30313E-08 0.94966E-08 + 0.14327E-07 0.29580E-07 0.61201E-07 0.13891E-06 0.29279E-06 0.61026E-06 + 0.27582E-05 0.25215E-04 0.55832E-04 0.42078E-03 0.13832E-02 0.30857E-02 + 0.64500E-02 0.11495E-01 0.19580E-01 0.30191E-01 0.46142E-01 0.70540E-01 + 0.10486E+00 0.15305E+00 0.22271E+00 0.32190E+00 0.49511E+00 0.67975E+00 + 0.10418E+01 0.15068E+01 0.21894E+01 0.16304E-08 0.12374E-08 0.14242E-08 + 0.37413E-09 0.27427E-08 0.76373E-08 0.23151E-07 0.37419E-07 0.78442E-07 + 0.18276E-06 0.36885E-06 0.78872E-06 0.49115E-05 0.42867E-04 0.71100E-04 + 0.53570E-03 0.17570E-02 0.39105E-02 0.81603E-02 0.14519E-01 0.24700E-01 + 0.38035E-01 0.58057E-01 0.88627E-01 0.13154E+00 0.19163E+00 0.27817E+00 + 0.40084E+00 0.61405E+00 0.83884E+00 0.12773E+01 0.18352E+01 0.26452E+01 + 0.36732E-08 0.40100E-08 0.30623E-08 0.34279E-08 0.85121E-09 0.72231E-08 + 0.19508E-07 0.51818E-07 0.10348E-06 0.21133E-06 0.47059E-06 0.10240E-05 + 0.77446E-05 0.72138E-04 0.14557E-03 0.68394E-03 0.22366E-02 0.49642E-02 + 0.10338E-01 0.18359E-01 0.31186E-01 0.47962E-01 0.73115E-01 0.11146E+00 + 0.16521E+00 0.24026E+00 0.34806E+00 0.50032E+00 0.76392E+00 0.10393E+01 + 0.15739E+01 0.22488E+01 0.32193E+01 0.92210E-08 0.95020E-08 0.10386E-07 + 0.80308E-08 0.92676E-08 0.27151E-08 0.16561E-07 0.52541E-07 0.12890E-06 + 0.28103E-06 0.68563E-06 0.13504E-05 0.17743E-04 0.11046E-03 0.28566E-03 + 0.90979E-03 0.28524E-02 0.63105E-02 0.13111E-01 0.23233E-01 0.39401E-01 + 0.60512E-01 0.92124E-01 0.14025E+00 0.20763E+00 0.30153E+00 0.43606E+00 + 0.62551E+00 0.95250E+00 0.12915E+01 0.19471E+01 0.27690E+01 0.39416E+01 + 0.13914E-07 0.23009E-07 0.23747E-07 0.25934E-07 0.20412E-07 0.22982E-07 + 0.64961E-08 0.39599E-07 0.16686E-06 0.37491E-06 0.11460E-05 0.34985E-05 + 0.33584E-04 0.16648E-03 0.46926E-03 0.12599E-02 0.35710E-02 0.80358E-02 + 0.16651E-01 0.29433E-01 0.49819E-01 0.76392E-01 0.11614E+00 0.17659E+00 + 0.26112E+00 0.37868E+00 0.54683E+00 0.78305E+00 0.11898E+01 0.16087E+01 + 0.24166E+01 0.34235E+01 0.48499E+01 0.33484E-07 0.34917E-07 0.57410E-07 + 0.59481E-07 0.65201E-07 0.51934E-07 0.57580E-07 0.15064E-07 0.11394E-06 + 0.51792E-06 0.15260E-05 0.65614E-05 0.57672E-04 0.24291E-03 0.64969E-03 + 0.17148E-02 0.42069E-02 0.10246E-01 0.21170E-01 0.37311E-01 0.63024E-01 + 0.96470E-01 0.14644E+00 0.22237E+00 0.32842E+00 0.47573E+00 0.68608E+00 + 0.98103E+00 0.14879E+01 0.20071E+01 0.30062E+01 0.42457E+01 0.59914E+01 + 0.45835E-07 0.82035E-07 0.87769E-07 0.14028E-06 0.14950E-06 0.16330E-06 + 0.13252E-06 0.14848E-06 0.48543E-07 0.39722E-06 0.27730E-05 0.11685E-04 + 0.79229E-04 0.32316E-03 0.83559E-03 0.21691E-02 0.50189E-02 0.11217E-01 + 0.26928E-01 0.47309E-01 0.79725E-01 0.12181E+00 0.18461E+00 0.27994E+00 + 0.41298E+00 0.59753E+00 0.86073E+00 0.12292E+01 0.18617E+01 0.25064E+01 + 0.37452E+01 0.52765E+01 0.74225E+01 0.87724E-07 0.11771E-06 0.18227E-06 + 0.23067E-06 0.30805E-06 0.39853E-06 0.42147E-06 0.34029E-06 0.44727E-06 + 0.16747E-06 0.24428E-05 0.19966E-04 0.99139E-04 0.39340E-03 0.99087E-03 + 0.25231E-02 0.59052E-02 0.12410E-01 0.29372E-01 0.59931E-01 0.10076E+00 + 0.15364E+00 0.23248E+00 0.35203E+00 0.51879E+00 0.74973E+00 0.10789E+01 + 0.15392E+01 0.23287E+01 0.31298E+01 0.46682E+01 0.65645E+01 0.92121E+01 + 0.17345E-06 0.23499E-06 0.33168E-06 0.49377E-06 0.74443E-06 0.87498E-06 + 0.13627E-05 0.12278E-05 0.90393E-06 0.14477E-05 0.11527E-05 0.18119E-04 + 0.10785E-03 0.42400E-03 0.11035E-02 0.28017E-02 0.64477E-02 0.13819E-01 + 0.30890E-01 0.67754E-01 0.12689E+00 0.19317E+00 0.29185E+00 0.44136E+00 + 0.64988E+00 0.93824E+00 0.13489E+01 0.19229E+01 0.29074E+01 0.39017E+01 + 0.58122E+01 0.81624E+01 0.11434E+02 0.38069E-06 0.50328E-06 0.61717E-06 + 0.90536E-06 0.14217E-05 0.23283E-05 0.29143E-05 0.43750E-05 0.34823E-05 + 0.23155E-05 0.81149E-05 0.80814E-05 0.82874E-04 0.40203E-03 0.11256E-02 + 0.29448E-02 0.68297E-02 0.14320E-01 0.32569E-01 0.69016E-01 0.14936E+00 + 0.24182E+00 0.36492E+00 0.55127E+00 0.81116E+00 0.11700E+01 0.16810E+01 + 0.23946E+01 0.36204E+01 0.48517E+01 0.72224E+01 0.10135E+02 0.14180E+02 + 0.78089E-06 0.10462E-05 0.14055E-05 0.18624E-05 0.31739E-05 0.54130E-05 + 0.10499E-04 0.15095E-04 0.19305E-04 0.15697E-04 0.11484E-04 0.61419E-04 + 0.26872E-04 0.26406E-03 0.98746E-03 0.28344E-02 0.67553E-02 0.14442E-01 + 0.32774E-01 0.69694E-01 0.14820E+00 0.29583E+00 0.45222E+00 0.68290E+00 + 0.10048E+01 0.14485E+01 0.20803E+01 0.29630E+01 0.44822E+01 0.59986E+01 + 0.89304E+01 0.12531E+02 0.17522E+02 0.16296E-05 0.21336E-05 0.25471E-05 + 0.40128E-05 0.96250E-05 0.19773E-04 0.37738E-04 0.86071E-04 0.12349E-03 + 0.15136E-03 0.13811E-03 0.14165E-03 0.25658E-03 0.93331E-04 0.55853E-03 + 0.23665E-02 0.59871E-02 0.13424E-01 0.31619E-01 0.67868E-01 0.14414E+00 + 0.28806E+00 0.55134E+00 0.83365E+00 0.12283E+01 0.17709E+01 0.25441E+01 + 0.36253E+01 0.54946E+01 0.73429E+01 0.10944E+02 0.15370E+02 0.21502E+02 + 0.61417E-05 0.10135E-04 0.15547E-04 0.37612E-04 0.71099E-04 0.12737E-03 + 0.18689E-03 0.28727E-03 0.44450E-03 0.59542E-03 0.66783E-03 0.66090E-03 + 0.84255E-03 0.86187E-03 0.46684E-03 0.10628E-02 0.43128E-02 0.10882E-01 + 0.27737E-01 0.61516E-01 0.13362E+00 0.27062E+00 0.54508E+00 0.98949E+00 + 0.14643E+01 0.21150E+01 0.30443E+01 0.43462E+01 0.66147E+01 0.88273E+01 + 0.13195E+02 0.18578E+02 0.26038E+02 0.30912E-04 0.63768E-04 0.10883E-03 + 0.16876E-03 0.32747E-03 0.54637E-03 0.84078E-03 0.11037E-02 0.13521E-02 + 0.16419E-02 0.18704E-02 0.20233E-02 0.22540E-02 0.30581E-02 0.25370E-02 + 0.16538E-02 0.62149E-03 0.55974E-02 0.20360E-01 0.49659E-01 0.11310E+00 + 0.23927E+00 0.49037E+00 0.10124E+01 0.16822E+01 0.24419E+01 0.35307E+01 + 0.50615E+01 0.77645E+01 0.10345E+02 0.15552E+02 0.22002E+02 0.30953E+02 + 0.18050E-03 0.23160E-03 0.46515E-03 0.77740E-03 0.11986E-02 0.15837E-02 + 0.20508E-02 0.25027E-02 0.30003E-02 0.34992E-02 0.40239E-02 0.45522E-02 + 0.49992E-02 0.57571E-02 0.78995E-02 0.59234E-02 0.50481E-02 0.21324E-02 + 0.96560E-02 0.33402E-01 0.87025E-01 0.19662E+00 0.42309E+00 0.89121E+00 + 0.17859E+01 0.27508E+01 0.40056E+01 0.57782E+01 0.89637E+01 0.11919E+02 + 0.18065E+02 0.25727E+02 0.36386E+02 0.47843E-03 0.61196E-03 0.78767E-03 + 0.13588E-02 0.21265E-02 0.31510E-02 0.39114E-02 0.48401E-02 0.57668E-02 + 0.66119E-02 0.74562E-02 0.84682E-02 0.94017E-02 0.10349E-01 0.12242E-01 + 0.13012E-01 0.12856E-01 0.12304E-01 0.36194E-02 0.14105E-01 0.58006E-01 + 0.15088E+00 0.34775E+00 0.76646E+00 0.15692E+01 0.30539E+01 0.44890E+01 + 0.65280E+01 0.10268E+02 0.13623E+02 0.20851E+02 0.29929E+02 0.42602E+02 + 0.17647E-02 0.22526E-02 0.28906E-02 0.37138E-02 0.48180E-02 0.62902E-02 + 0.82214E-02 0.95996E-02 0.11213E-01 0.12714E-01 0.14005E-01 0.15695E-01 + 0.17616E-01 0.19361E-01 0.21219E-01 0.26357E-01 0.26625E-01 0.29078E-01 + 0.24946E-01 0.15774E-01 0.14638E-01 0.84831E-01 0.24072E+00 0.58725E+00 + 0.12737E+01 0.25733E+01 0.47480E+01 0.70124E+01 0.11298E+02 0.14948E+02 + 0.23252E+02 0.33805E+02 0.48602E+02 0.42234E-02 0.53788E-02 0.68821E-02 + 0.88098E-02 0.11331E-01 0.13213E-01 0.15702E-01 0.18929E-01 0.21241E-01 + 0.23853E-01 0.26069E-01 0.28029E-01 0.31130E-01 0.34286E-01 0.37366E-01 + 0.40996E-01 0.95087E-01 0.52867E-01 0.53781E-01 0.54028E-01 0.38022E-01 + 0.84027E-02 0.12196E+00 0.38930E+00 0.95603E+00 0.20251E+01 0.41720E+01 + 0.72905E+01 0.12161E+02 0.16037E+02 0.25500E+02 0.37695E+02 0.54891E+02 + 0.80848E-02 0.10276E-01 0.13115E-01 0.16736E-01 0.21459E-01 0.27552E-01 + 0.30485E-01 0.34360E-01 0.39255E-01 0.42664E-01 0.46366E-01 0.49785E-01 + 0.53913E-01 0.58547E-01 0.63462E-01 0.69297E-01 0.77515E-01 0.33724E+00 + 0.97265E-01 0.10939E+00 0.11106E+00 0.93149E-01 0.29406E-01 0.14634E+00 + 0.56225E+00 0.13729E+01 0.30438E+01 0.64128E+01 0.12393E+02 0.16277E+02 + 0.26829E+02 0.40685E+02 0.60369E+02 0.14384E-01 0.18251E-01 0.23245E-01 + 0.29589E-01 0.37820E-01 0.48548E-01 0.62077E-01 0.66419E-01 0.72073E-01 + 0.79081E-01 0.83868E-01 0.89310E-01 0.94871E-01 0.10218E+00 0.10913E+00 + 0.11816E+00 0.13120E+00 0.15130E+00 0.45149E+00 0.19643E+00 0.22216E+00 + 0.24221E+00 0.24331E+00 0.18434E+00 0.42645E-01 0.50363E+00 0.15945E+01 + 0.39450E+01 0.10965E+02 0.14519E+02 0.25785E+02 0.41012E+02 0.62891E+02 + 0.23961E-01 0.30361E-01 0.38601E-01 0.49033E-01 0.62514E-01 0.79992E-01 + 0.10267E+00 0.13072E+00 0.13713E+00 0.14544E+00 0.15538E+00 0.16309E+00 + 0.17238E+00 0.18316E+00 0.19376E+00 0.20791E+00 0.22867E+00 0.26098E+00 + 0.29508E+00 0.37599E+00 0.40937E+00 0.48678E+00 0.58370E+00 0.69341E+00 + 0.73413E+00 0.76136E+00 0.51482E+00 0.43397E+00 0.49112E+01 0.80761E+01 + 0.18938E+02 0.34465E+02 0.57241E+02 0.39555E-01 0.50057E-01 0.63550E-01 + 0.80587E-01 0.10252E+00 0.13086E+00 0.16744E+00 0.21514E+00 0.27231E+00 + 0.28252E+00 0.29529E+00 0.31062E+00 0.32293E+00 0.33801E+00 0.35615E+00 + 0.37889E+00 0.41247E+00 0.46487E+00 0.52038E+00 0.63660E+00 0.73934E+00 + 0.90737E+00 0.11524E+01 0.15173E+01 0.19551E+01 0.26921E+01 0.36654E+01 + 0.47858E+01 0.39363E+01 0.67088E+01 0.00000E+00 0.13336E+02 0.33889E+02 + 0.60208E-01 0.76110E-01 0.96501E-01 0.12219E+00 0.15518E+00 0.19765E+00 + 0.25226E+00 0.32309E+00 0.41481E+00 0.52210E+00 0.53747E+00 0.55679E+00 + 0.57852E+00 0.59744E+00 0.62090E+00 0.65312E+00 0.70122E+00 0.77666E+00 + 0.85867E+00 0.10014E+01 0.11881E+01 0.14512E+01 0.18479E+01 0.24670E+01 + 0.32892E+01 0.47015E+01 0.68106E+01 0.98280E+01 0.12416E+02 0.20923E+02 + 0.24450E+02 0.17088E+02 0.00000E+00 0.92079E-01 0.11627E+00 0.14724E+00 + 0.18621E+00 0.23613E+00 0.30022E+00 0.38236E+00 0.48851E+00 0.62530E+00 + 0.80350E+00 0.10043E+01 0.10331E+01 0.10677E+01 0.11071E+01 0.11425E+01 + 0.11916E+01 0.12653E+01 0.13810E+01 0.15107E+01 0.17348E+01 0.20339E+01 + 0.24624E+01 0.31193E+01 0.41675E+01 0.56296E+01 0.81433E+01 0.12078E+02 + 0.18106E+02 0.26034E+02 0.43911E+02 0.63376E+02 0.80795E+02 0.83117E+02 + 0.13658E+00 0.17227E+00 0.21792E+00 0.27528E+00 0.34863E+00 0.44260E+00 + 0.56271E+00 0.71741E+00 0.91599E+00 0.11735E+01 0.15035E+01 0.18702E+01 + 0.19196E+01 0.19813E+01 0.20504E+01 0.21206E+01 0.22271E+01 0.23950E+01 + 0.25848E+01 0.29131E+01 0.33542E+01 0.39885E+01 0.49637E+01 0.65251E+01 + 0.87327E+01 0.12502E+02 0.18468E+02 0.27772E+02 0.41384E+02 0.69072E+02 + 0.10606E+03 0.14649E+03 0.20081E+03 0.20687E+00 0.26064E+00 0.32937E+00 + 0.41558E+00 0.52571E+00 0.66657E+00 0.84621E+00 0.10770E+01 0.13723E+01 + 0.17539E+01 0.22408E+01 0.28800E+01 0.35487E+01 0.36389E+01 0.37544E+01 + 0.38904E+01 0.40492E+01 0.43000E+01 0.45867E+01 0.50809E+01 0.57478E+01 + 0.67068E+01 0.81785E+01 0.10530E+02 0.13868E+02 0.19505E+02 0.28443E+02 + 0.42468E+02 0.64163E+02 0.10541E+03 0.16704E+03 0.24057E+03 0.34650E+03 + 0.31587E+00 0.39751E+00 0.50177E+00 0.63245E+00 0.79922E+00 0.10121E+01 + 0.12833E+01 0.16309E+01 0.20747E+01 0.26463E+01 0.33734E+01 0.43240E+01 + 0.55553E+01 0.67800E+01 0.69507E+01 0.71959E+01 0.74802E+01 0.78586E+01 + 0.82941E+01 0.90428E+01 0.10054E+02 0.11506E+02 0.13723E+02 0.17242E+02 + 0.22226E+02 0.30534E+02 0.43639E+02 0.64162E+02 0.96796E+02 0.15611E+03 + 0.24915E+03 0.36752E+03 0.54264E+03 0.48240E+00 0.60625E+00 0.76434E+00 + 0.96236E+00 0.12148E+01 0.15368E+01 0.19463E+01 0.24704E+01 0.31382E+01 + 0.39963E+01 0.50849E+01 0.65037E+01 0.83354E+01 0.10770E+02 0.12944E+02 + 0.13306E+02 0.13843E+02 0.14468E+02 0.15125E+02 0.16254E+02 0.17779E+02 + 0.19960E+02 0.23270E+02 0.28482E+02 0.35816E+02 0.47865E+02 0.66699E+02 + 0.95979E+02 0.14307E+03 0.22584E+03 0.35903E+03 0.53154E+03 0.79818E+03 + 0.73364E+00 0.92059E+00 0.11591E+01 0.14576E+01 0.18379E+01 0.23227E+01 + 0.29384E+01 0.37255E+01 0.47270E+01 0.60112E+01 0.76365E+01 0.97499E+01 + 0.12471E+02 0.16076E+02 0.20781E+02 0.24632E+02 0.25423E+02 0.26647E+02 + 0.27650E+02 0.29336E+02 0.31612E+02 0.34854E+02 0.39747E+02 0.47383E+02 + 0.58034E+02 0.75285E+02 0.10193E+03 0.14291E+03 0.20894E+03 0.32184E+03 + 0.50565E+03 0.74541E+03 0.11183E+04 0.11311E+01 0.14167E+01 0.17809E+01 + 0.22366E+01 0.28169E+01 0.35559E+01 0.44938E+01 0.56917E+01 0.72135E+01 + 0.91623E+01 0.11625E+02 0.14821E+02 0.18927E+02 0.24354E+02 0.31412E+02 + 0.41718E+02 0.47611E+02 0.49445E+02 0.51586E+02 0.54144E+02 0.57594E+02 + 0.62494E+02 0.69842E+02 0.81210E+02 0.96920E+02 0.12200E+03 0.16022E+03 + 0.21830E+03 0.31154E+03 0.46697E+03 0.72116E+03 0.10532E+04 0.15701E+04 + 0.17215E+01 0.21514E+01 0.26994E+01 0.33850E+01 0.42574E+01 0.53681E+01 + 0.67767E+01 0.85741E+01 0.10855E+02 0.13774E+02 0.17455E+02 0.22226E+02 + 0.28345E+02 0.36417E+02 0.46884E+02 0.62108E+02 0.82610E+02 0.90993E+02 + 0.94268E+02 0.99103E+02 0.10422E+03 0.11148E+03 0.12231E+03 0.13893E+03 + 0.16170E+03 0.19755E+03 0.25147E+03 0.33226E+03 0.46088E+03 0.67052E+03 + 0.10124E+04 0.14572E+04 0.21475E+04 0.26644E+01 0.33209E+01 0.41575E+01 + 0.52040E+01 0.65351E+01 0.82288E+01 0.10376E+02 0.13114E+02 0.16586E+02 + 0.21023E+02 0.26617E+02 0.33855E+02 0.43129E+02 0.55342E+02 0.71145E+02 + 0.94064E+02 0.12476E+03 0.16851E+03 0.17590E+03 0.18402E+03 0.19318E+03 + 0.20414E+03 0.22042E+03 0.24524E+03 0.27893E+03 0.33133E+03 0.40906E+03 + 0.52392E+03 0.70493E+03 0.99345E+03 0.14611E+04 0.20654E+04 0.29979E+04 + 0.41017E+01 0.50958E+01 0.63625E+01 0.79462E+01 0.99605E+01 0.12523E+02 + 0.15770E+02 0.19907E+02 0.25152E+02 0.31849E+02 0.40283E+02 0.51188E+02 + 0.65144E+02 0.83504E+02 0.10721E+03 0.14152E+03 0.18726E+03 0.25203E+03 + 0.32738E+03 0.33941E+03 0.35570E+03 0.37375E+03 0.39801E+03 0.43478E+03 + 0.48430E+03 0.56047E+03 0.67205E+03 0.83463E+03 0.10878E+04 0.14830E+04 + 0.21173E+04 0.29292E+04 0.41716E+04 0.28418E-09 0.40303E-09 0.19295E-08 + 0.44620E-08 0.13072E-07 0.18612E-07 0.36939E-07 0.76924E-07 0.16883E-06 + 0.35944E-06 0.74234E-06 0.30292E-05 0.23363E-04 0.84797E-04 0.38917E-03 + 0.13074E-02 0.30698E-02 0.61716E-02 0.10807E-01 0.17003E-01 0.26417E-01 + 0.37979E-01 0.54373E-01 0.75437E-01 0.11258E+00 0.16422E+00 0.23563E+00 + 0.35153E+00 0.51361E+00 0.73938E+00 0.10896E+01 0.16290E+01 0.23956E+01 + 0.12097E-08 0.65617E-09 0.10129E-08 0.46919E-08 0.11474E-07 0.31131E-07 + 0.48803E-07 0.99048E-07 0.22610E-06 0.45449E-06 0.96146E-06 0.54119E-05 + 0.40239E-04 0.10820E-03 0.49598E-03 0.16630E-02 0.38972E-02 0.78209E-02 + 0.13675E-01 0.21487E-01 0.33344E-01 0.47887E-01 0.68491E-01 0.94923E-01 + 0.14150E+00 0.20616E+00 0.29541E+00 0.43999E+00 0.64163E+00 0.92156E+00 + 0.13542E+01 0.20178E+01 0.29552E+01 0.32125E-08 0.28558E-08 0.14973E-08 + 0.25389E-08 0.12414E-07 0.29233E-07 0.68878E-07 0.13198E-06 0.26696E-06 + 0.57624E-06 0.12411E-05 0.85601E-05 0.68986E-04 0.20459E-03 0.63425E-03 + 0.21212E-02 0.49584E-02 0.99298E-02 0.17331E-01 0.27189E-01 0.42137E-01 + 0.60442E-01 0.86351E-01 0.11956E+00 0.17804E+00 0.25912E+00 0.37084E+00 + 0.55160E+00 0.80311E+00 0.11513E+01 0.16878E+01 0.25077E+01 0.36604E+01 + 0.79130E-08 0.80588E-08 0.72687E-08 0.41336E-08 0.67170E-08 0.30619E-07 + 0.80832E-07 0.16653E-06 0.35152E-06 0.84600E-06 0.16017E-05 0.18883E-04 + 0.10690E-03 0.37290E-03 0.93441E-03 0.27135E-02 0.63236E-02 0.12631E-01 + 0.21998E-01 0.34448E-01 0.53306E-01 0.76363E-01 0.10897E+00 0.15071E+00 + 0.22421E+00 0.32599E+00 0.46604E+00 0.69239E+00 0.10067E+01 0.14408E+01 + 0.21083E+01 0.31253E+01 0.45489E+01 0.18500E-07 0.20631E-07 0.21287E-07 + 0.19850E-07 0.11483E-07 0.14928E-07 0.78927E-07 0.24598E-06 0.47530E-06 + 0.14069E-05 0.40119E-05 0.36543E-04 0.17107E-03 0.59462E-03 0.14033E-02 + 0.34319E-02 0.80848E-02 0.16101E-01 0.27969E-01 0.43702E-01 0.67509E-01 + 0.96560E-01 0.13762E+00 0.19010E+00 0.28254E+00 0.41043E+00 0.58616E+00 + 0.86996E+00 0.12634E+01 0.18058E+01 0.26383E+01 0.39036E+01 0.56687E+01 + 0.33348E-07 0.46378E-07 0.51896E-07 0.53938E-07 0.49236E-07 0.28644E-07 + 0.45120E-07 0.24082E-06 0.73112E-06 0.19466E-05 0.78501E-05 0.64216E-04 + 0.26532E-03 0.81572E-03 0.20208E-02 0.43371E-02 0.96276E-02 0.20574E-01 + 0.35632E-01 0.55531E-01 0.85605E-01 0.12222E+00 0.17394E+00 0.23997E+00 + 0.35631E+00 0.51705E+00 0.73774E+00 0.10940E+01 0.15871E+01 0.22659E+01 + 0.33062E+01 0.48842E+01 0.70793E+01 0.68730E-07 0.83107E-07 0.11577E-06 + 0.12996E-06 0.13347E-06 0.11965E-06 0.69849E-07 0.15058E-06 0.78188E-06 + 0.37917E-05 0.14259E-04 0.92224E-04 0.37577E-03 0.10610E-02 0.25634E-02 + 0.55206E-02 0.11158E-01 0.23709E-01 0.45486E-01 0.70672E-01 0.10868E+00 + 0.15484E+00 0.21999E+00 0.30308E+00 0.44952E+00 0.65173E+00 0.92906E+00 + 0.13765E+01 0.19952E+01 0.28457E+01 0.41476E+01 0.61194E+01 0.88561E+01 + 0.11773E-06 0.16232E-06 0.20724E-06 0.27609E-06 0.32108E-06 0.32403E-06 + 0.27399E-06 0.19535E-06 0.48766E-06 0.48615E-05 0.26588E-04 0.12285E-03 + 0.48116E-03 0.12687E-02 0.31009E-02 0.65415E-02 0.13138E-01 0.26071E-01 + 0.51391E-01 0.90067E-01 0.13812E+00 0.19631E+00 0.27839E+00 0.38290E+00 + 0.56730E+00 0.82163E+00 0.11702E+01 0.17324E+01 0.25090E+01 0.35756E+01 + 0.52067E+01 0.76741E+01 0.11092E+02 0.21754E-06 0.30427E-06 0.47884E-06 + 0.66585E-06 0.86355E-06 0.94489E-06 0.87043E-06 0.68283E-06 0.65358E-06 + 0.28415E-05 0.35746E-04 0.15066E-03 0.55092E-03 0.14615E-02 0.35470E-02 + 0.75135E-02 0.14780E-01 0.29048E-01 0.54611E-01 0.10040E+00 0.17558E+00 + 0.24886E+00 0.35219E+00 0.48353E+00 0.71564E+00 0.10355E+01 0.14734E+01 + 0.21800E+01 0.31553E+01 0.44932E+01 0.65381E+01 0.96288E+01 0.13904E+02 + 0.44379E-06 0.57889E-06 0.81965E-06 0.14198E-05 0.21168E-05 0.27943E-05 + 0.29640E-05 0.23892E-05 0.17882E-05 0.35164E-05 0.20326E-04 0.15926E-03 + 0.58103E-03 0.15888E-02 0.39000E-02 0.82113E-02 0.16254E-01 0.31315E-01 + 0.58523E-01 0.10423E+00 0.19369E+00 0.31515E+00 0.44506E+00 0.60981E+00 + 0.90176E+00 0.13036E+01 0.18536E+01 0.27411E+01 0.39654E+01 0.56435E+01 + 0.82081E+01 0.12081E+02 0.17432E+02 0.10218E-05 0.12803E-05 0.16192E-05 + 0.25796E-05 0.44928E-05 0.73555E-05 0.10501E-04 0.11491E-04 0.76323E-05 + 0.83884E-05 0.26706E-04 0.82394E-04 0.50874E-03 0.15806E-02 0.40564E-02 + 0.86076E-02 0.17027E-01 0.32981E-01 0.61062E-01 0.10836E+00 0.19727E+00 + 0.34432E+00 0.56031E+00 0.76623E+00 0.11327E+01 0.16366E+01 0.23257E+01 + 0.34392E+01 0.49741E+01 0.70765E+01 0.10290E+02 0.15143E+02 0.21842E+02 + 0.18475E-05 0.20202E-05 0.39045E-05 0.88430E-05 0.15656E-04 0.32298E-04 + 0.68872E-04 0.93327E-04 0.97770E-04 0.83019E-04 0.87819E-04 0.92142E-04 + 0.27018E-03 0.13865E-02 0.40294E-02 0.86592E-02 0.17281E-01 0.33521E-01 + 0.62500E-01 0.11051E+00 0.20061E+00 0.34632E+00 0.60830E+00 0.95855E+00 + 0.14174E+01 0.20478E+01 0.29093E+01 0.43039E+01 0.62253E+01 0.88560E+01 + 0.12880E+02 0.18956E+02 0.27338E+02 0.71143E-05 0.12448E-04 0.25583E-04 + 0.48645E-04 0.83324E-04 0.13184E-03 0.20952E-03 0.34369E-03 0.44748E-03 + 0.46660E-03 0.42290E-03 0.44128E-03 0.20171E-03 0.85497E-03 0.36330E-02 + 0.85945E-02 0.16884E-01 0.33754E-01 0.62620E-01 0.11074E+00 0.20071E+00 + 0.34665E+00 0.60703E+00 0.10324E+01 0.17649E+01 0.25511E+01 0.36247E+01 + 0.53680E+01 0.77684E+01 0.11054E+02 0.16085E+02 0.23688E+02 0.34168E+02 + 0.35797E-04 0.61020E-04 0.11558E-03 0.25011E-03 0.43922E-03 0.67390E-03 + 0.87399E-03 0.10743E-02 0.12809E-02 0.14176E-02 0.14589E-02 0.15048E-02 + 0.16000E-02 0.51207E-03 0.21281E-02 0.69580E-02 0.15501E-01 0.31536E-01 + 0.60106E-01 0.10709E+00 0.19359E+00 0.33539E+00 0.59312E+00 0.10069E+01 + 0.18705E+01 0.31311E+01 0.44575E+01 0.66223E+01 0.96030E+01 0.13683E+02 + 0.19944E+02 0.29419E+02 0.42481E+02 0.27341E-03 0.48430E-03 0.76459E-03 + 0.11039E-02 0.14559E-02 0.18282E-02 0.22055E-02 0.26276E-02 0.30499E-02 + 0.34779E-02 0.38377E-02 0.40308E-02 0.42767E-02 0.49452E-02 0.12983E-02 + 0.29114E-02 0.10486E-01 0.25723E-01 0.52259E-01 0.95959E-01 0.17730E+00 + 0.30892E+00 0.55487E+00 0.95289E+00 0.17874E+01 0.32584E+01 0.53816E+01 + 0.80471E+01 0.11718E+02 0.16747E+02 0.24492E+02 0.36246E+02 0.52451E+02 + 0.48301E-03 0.71800E-03 0.13074E-02 0.20908E-02 0.29943E-02 0.37884E-02 + 0.46691E-02 0.55610E-02 0.63738E-02 0.71694E-02 0.80222E-02 0.87164E-02 + 0.92337E-02 0.98445E-02 0.13348E-01 0.42237E-02 0.18901E-02 0.15364E-01 + 0.39057E-01 0.77932E-01 0.15232E+00 0.27124E+00 0.49827E+00 0.86893E+00 + 0.16747E+01 0.30829E+01 0.55480E+01 0.96697E+01 0.14168E+02 0.20334E+02 + 0.29879E+02 0.44411E+02 0.64463E+02 0.23427E-02 0.29976E-02 0.38859E-02 + 0.51515E-02 0.68285E-02 0.87249E-02 0.10271E-01 0.11912E-01 0.13465E-01 + 0.14851E-01 0.16633E-01 0.18433E-01 0.19841E-01 0.20608E-01 0.20832E-01 + 0.32459E-01 0.14755E-01 0.45002E-02 0.14227E-01 0.45093E-01 0.10775E+00 + 0.20726E+00 0.40522E+00 0.72820E+00 0.14738E+01 0.28013E+01 0.51106E+01 + 0.97999E+01 0.16762E+02 0.24239E+02 0.35898E+02 0.53741E+02 0.78384E+02 + 0.66030E-02 0.84230E-02 0.10781E-01 0.13466E-01 0.15882E-01 0.19070E-01 + 0.22666E-01 0.25608E-01 0.28582E-01 0.31158E-01 0.33405E-01 0.37355E-01 + 0.40568E-01 0.42984E-01 0.43853E-01 0.45610E-01 0.78455E-01 0.39635E-01 + 0.28574E-01 0.96793E-02 0.35789E-01 0.10769E+00 0.26502E+00 0.52265E+00 + 0.11758E+01 0.23695E+01 0.44923E+01 0.88686E+01 0.16712E+02 0.28251E+02 + 0.42361E+02 0.64104E+02 0.94180E+02 0.13959E-01 0.17760E-01 0.22659E-01 + 0.29003E-01 0.35675E-01 0.39879E-01 0.45397E-01 0.51558E-01 0.56424E-01 + 0.61311E-01 0.66059E-01 0.71290E-01 0.77557E-01 0.82860E-01 0.86514E-01 + 0.91370E-01 0.99557E-01 0.17532E+00 0.10010E+00 0.98284E-01 0.76826E-01 + 0.42610E-01 0.60332E-01 0.23211E+00 0.76584E+00 0.17717E+01 0.36187E+01 + 0.76352E+01 0.14841E+02 0.27696E+02 0.48882E+02 0.75173E+02 0.11161E+03 + 0.27104E-01 0.34412E-01 0.43786E-01 0.55863E-01 0.71498E-01 0.87035E-01 + 0.93627E-01 0.10222E+00 0.11170E+00 0.11893E+00 0.12652E+00 0.13479E+00 + 0.14533E+00 0.15389E+00 0.16150E+00 0.17215E+00 0.18648E+00 0.20400E+00 + 0.37720E+00 0.23608E+00 0.24602E+00 0.26017E+00 0.22546E+00 0.15962E+00 + 0.23028E+00 0.10131E+01 0.25111E+01 0.60465E+01 0.12577E+02 0.24252E+02 + 0.47675E+02 0.86635E+02 0.13052E+03 0.49862E-01 0.63190E-01 0.80227E-01 + 0.10208E+00 0.13023E+00 0.16666E+00 0.20172E+00 0.21237E+00 0.22610E+00 + 0.24141E+00 0.25423E+00 0.26988E+00 0.28738E+00 0.30301E+00 0.31874E+00 + 0.34095E+00 0.37153E+00 0.40566E+00 0.46068E+00 0.90290E+00 0.58376E+00 + 0.68583E+00 0.77435E+00 0.89475E+00 0.76015E+00 0.36555E+00 0.53608E+00 + 0.31889E+01 0.83981E+01 0.18149E+02 0.38500E+02 0.79881E+02 0.14351E+03 + 0.87046E-01 0.11014E+00 0.13959E+00 0.17722E+00 0.22548E+00 0.28763E+00 + 0.36805E+00 0.44412E+00 0.46239E+00 0.48554E+00 0.51161E+00 0.53426E+00 + 0.56146E+00 0.59145E+00 0.62030E+00 0.66106E+00 0.71743E+00 0.78470E+00 + 0.87599E+00 0.10282E+01 0.20406E+01 0.13957E+01 0.16632E+01 0.20487E+01 + 0.22725E+01 0.24133E+01 0.23212E+01 0.85095E+00 0.25309E+01 0.95221E+01 + 0.25931E+02 0.61112E+02 0.12681E+03 0.14178E+00 0.17916E+00 0.22671E+00 + 0.28730E+00 0.36475E+00 0.46404E+00 0.59185E+00 0.75709E+00 0.91135E+00 + 0.94029E+00 0.97644E+00 0.10167E+01 0.10536E+01 0.10955E+01 0.11411E+01 + 0.12058E+01 0.12956E+01 0.14052E+01 0.15551E+01 0.17682E+01 0.20355E+01 + 0.24256E+01 0.29056E+01 0.36003E+01 0.42277E+01 0.49601E+01 0.57466E+01 + 0.55269E+01 0.40522E+01 0.00000E+00 0.12093E+02 0.41161E+02 0.97011E+02 + 0.22630E+00 0.28564E+00 0.36094E+00 0.45671E+00 0.57877E+00 0.73470E+00 + 0.93460E+00 0.11918E+01 0.15240E+01 0.18334E+01 0.18901E+01 0.19595E+01 + 0.20365E+01 0.21039E+01 0.21789E+01 0.22852E+01 0.24323E+01 0.26149E+01 + 0.28649E+01 0.32178E+01 0.36692E+01 0.43202E+01 0.51486E+01 0.63419E+01 + 0.76201E+01 0.92922E+01 0.11453E+02 0.13176E+02 0.14622E+02 0.15009E+02 + 0.95665E+01 0.95978E+01 0.50820E+02 0.35397E+00 0.44631E+00 0.56332E+00 + 0.71183E+00 0.90064E+00 0.11412E+01 0.14486E+01 0.18423E+01 0.23485E+01 + 0.30018E+01 0.36086E+01 0.37150E+01 0.38453E+01 0.39855E+01 0.41032E+01 + 0.42701E+01 0.45011E+01 0.47899E+01 0.51850E+01 0.57394E+01 0.64532E+01 + 0.74722E+01 0.87848E+01 0.10661E+02 0.12813E+02 0.15725E+02 0.19668E+02 + 0.23862E+02 0.28960E+02 0.34815E+02 0.37442E+02 0.30371E+02 0.76180E+01 + 0.52232E+00 0.65787E+00 0.82939E+00 0.10468E+01 0.13227E+01 0.16734E+01 + 0.21202E+01 0.26907E+01 0.34210E+01 0.43588E+01 0.55671E+01 0.66830E+01 + 0.68682E+01 0.70889E+01 0.73196E+01 0.75570E+01 0.78873E+01 0.83005E+01 + 0.88672E+01 0.96613E+01 0.10682E+02 0.12132E+02 0.13998E+02 0.16644E+02 + 0.19743E+02 0.23971E+02 0.29763E+02 0.36424E+02 0.45091E+02 0.56185E+02 + 0.66323E+02 0.70239E+02 0.64282E+02 0.78259E+00 0.98459E+00 0.12401E+01 + 0.15633E+01 0.19731E+01 0.24929E+01 0.31537E+01 0.39950E+01 0.50686E+01 + 0.64417E+01 0.82030E+01 0.10465E+02 0.12545E+02 0.12863E+02 0.13237E+02 + 0.13704E+02 0.14187E+02 0.14791E+02 0.15622E+02 0.16784E+02 0.18277E+02 + 0.20383E+02 0.23090E+02 0.26898E+02 0.31419E+02 0.37608E+02 0.46125E+02 + 0.56390E+02 0.70207E+02 0.88755E+02 0.10946E+03 0.12867E+03 0.14581E+03 + 0.11446E+01 0.14384E+01 0.18096E+01 0.22789E+01 0.28732E+01 0.36260E+01 + 0.45811E+01 0.57942E+01 0.73384E+01 0.93069E+01 0.11822E+02 0.15038E+02 + 0.19160E+02 0.22920E+02 0.23436E+02 0.24163E+02 0.25063E+02 0.25913E+02 + 0.27085E+02 0.28730E+02 0.30836E+02 0.33799E+02 0.37591E+02 0.42892E+02 + 0.49195E+02 0.57810E+02 0.69650E+02 0.84200E+02 0.10403E+03 0.13111E+03 + 0.16362E+03 0.19950E+03 0.24140E+03 0.16452E+01 0.20648E+01 0.25947E+01 + 0.32642E+01 0.41108E+01 0.51824E+01 0.65397E+01 0.82609E+01 0.10447E+02 + 0.13226E+02 0.16765E+02 0.21275E+02 0.27030E+02 0.34371E+02 0.41012E+02 + 0.41994E+02 0.43359E+02 0.44913E+02 0.46522E+02 0.48793E+02 0.51694E+02 + 0.55776E+02 0.60971E+02 0.68200E+02 0.76754E+02 0.88410E+02 0.10437E+03 + 0.12410E+03 0.15109E+03 0.18818E+03 0.23416E+03 0.28859E+03 0.35756E+03 + 0.22783E+01 0.28553E+01 0.35834E+01 0.45028E+01 0.56646E+01 0.71331E+01 + 0.89917E+01 0.11345E+02 0.14328E+02 0.18113E+02 0.22921E+02 0.29027E+02 + 0.36790E+02 0.46650E+02 0.59162E+02 0.70650E+02 0.72406E+02 0.74631E+02 + 0.77393E+02 0.80365E+02 0.84150E+02 0.89514E+02 0.96291E+02 0.10572E+03 + 0.11671E+03 0.13166E+03 0.15203E+03 0.17709E+03 0.21132E+03 0.25828E+03 + 0.31700E+03 0.38820E+03 0.48101E+03 0.31025E+01 0.38813E+01 0.48639E+01 + 0.61040E+01 0.76701E+01 0.96485E+01 0.12150E+02 0.15312E+02 0.19316E+02 + 0.24387E+02 0.30814E+02 0.38957E+02 0.49276E+02 0.62334E+02 0.78835E+02 + 0.10004E+03 0.11954E+03 0.12229E+03 0.12615E+03 0.13109E+03 0.13588E+03 + 0.14277E+03 0.15141E+03 0.16347E+03 0.17727E+03 0.19601E+03 0.22148E+03 + 0.25248E+03 0.29471E+03 0.35250E+03 0.42466E+03 0.51288E+03 0.62936E+03 + 0.40344E+01 0.50368E+01 0.63009E+01 0.78957E+01 0.99089E+01 0.12450E+02 + 0.15661E+02 0.19717E+02 0.24845E+02 0.31330E+02 0.39533E+02 0.49901E+02 + 0.63007E+02 0.79531E+02 0.10032E+03 0.12689E+03 0.16105E+03 0.19201E+03 + 0.19646E+03 0.20294E+03 0.21039E+03 0.21866E+03 0.22892E+03 0.24343E+03 + 0.25949E+03 0.28139E+03 0.31115E+03 0.34662E+03 0.39488E+03 0.46063E+03 + 0.54152E+03 0.63922E+03 0.76806E+03 0.51426E+01 0.64041E+01 0.79949E+01 + 0.10001E+02 0.12533E+02 0.15727E+02 0.19759E+02 0.24850E+02 0.31278E+02 + 0.39400E+02 0.49657E+02 0.62594E+02 0.78905E+02 0.99409E+02 0.12511E+03 + 0.15780E+03 0.19958E+03 0.25267E+03 0.30122E+03 0.30854E+03 0.31789E+03 + 0.33032E+03 0.34198E+03 0.35886E+03 0.37664E+03 0.40121E+03 0.43478E+03 + 0.47362E+03 0.52664E+03 0.59876E+03 0.68552E+03 0.78796E+03 0.92247E+03 + 0.30443E-09 0.14653E-08 0.40166E-08 0.87578E-08 0.22530E-07 0.53713E-07 + 0.12521E-06 0.31173E-06 0.65187E-06 0.16722E-05 0.55311E-05 0.46913E-04 + 0.20408E-03 0.67794E-03 0.16281E-02 0.37210E-02 0.87135E-02 0.17900E-01 + 0.31256E-01 0.49047E-01 0.76018E-01 0.10903E+00 0.15570E+00 0.21543E+00 + 0.32052E+00 0.46592E+00 0.66582E+00 0.98835E+00 0.14354E+01 0.20512E+01 + 0.29956E+01 0.44291E+01 0.64259E+01 0.29799E-10 0.11814E-08 0.41432E-08 + 0.10468E-07 0.23168E-07 0.57902E-07 0.14961E-06 0.38030E-06 0.97853E-06 + 0.29817E-05 0.10535E-04 0.75092E-04 0.29878E-03 0.87388E-03 0.22085E-02 + 0.46838E-02 0.99608E-02 0.21992E-01 0.39692E-01 0.62176E-01 0.96229E-01 + 0.13785E+00 0.19666E+00 0.27186E+00 0.40413E+00 0.58705E+00 0.83822E+00 + 0.12434E+01 0.18041E+01 0.25756E+01 0.37570E+01 0.55473E+01 0.80351E+01 + 0.79908E-09 0.10403E-09 0.29928E-08 0.10385E-07 0.27191E-07 0.58353E-07 + 0.15349E-06 0.46346E-06 0.12792E-05 0.57233E-05 0.20721E-04 0.10303E-03 + 0.40715E-03 0.10835E-02 0.26345E-02 0.57858E-02 0.11573E-01 0.23907E-01 + 0.48481E-01 0.78950E-01 0.12198E+00 0.17448E+00 0.24862E+00 0.34334E+00 + 0.50997E+00 0.74019E+00 0.10560E+01 0.15653E+01 0.22696E+01 0.32372E+01 + 0.47175E+01 0.69575E+01 0.10064E+02 0.12967E-08 0.95227E-09 0.15967E-08 + 0.95201E-08 0.35125E-07 0.80624E-07 0.15211E-06 0.42991E-06 0.15240E-05 + 0.77602E-05 0.41470E-04 0.14018E-03 0.50004E-03 0.12819E-02 0.30918E-02 + 0.65780E-02 0.13414E-01 0.26384E-01 0.51174E-01 0.96121E-01 0.15489E+00 + 0.22117E+00 0.31469E+00 0.43407E+00 0.64406E+00 0.93397E+00 0.13315E+01 + 0.19720E+01 0.28571E+01 0.40723E+01 0.59292E+01 0.87359E+01 0.12622E+02 + 0.24942E-08 0.26186E-08 0.10420E-08 0.74091E-08 0.33463E-07 0.12534E-06 + 0.25941E-06 0.38585E-06 0.12043E-05 0.88269E-05 0.56888E-04 0.19497E-03 + 0.58525E-03 0.14727E-02 0.35107E-02 0.73948E-02 0.14706E-01 0.29176E-01 + 0.54644E-01 0.99703E-01 0.18818E+00 0.28084E+00 0.39889E+00 0.54941E+00 + 0.81423E+00 0.11796E+01 0.16801E+01 0.24864E+01 0.35997E+01 0.51269E+01 + 0.74590E+01 0.10980E+02 0.15849E+02 0.52158E-08 0.53006E-08 0.49332E-08 + 0.00000E+00 0.31800E-07 0.13094E-06 0.42996E-06 0.81645E-06 0.98577E-06 + 0.75938E-05 0.63107E-04 0.23849E-03 0.67418E-03 0.16460E-02 0.38578E-02 + 0.80831E-02 0.15992E-01 0.30988E-01 0.58549E-01 0.10431E+00 0.19304E+00 + 0.34090E+00 0.50647E+00 0.69635E+00 0.10305E+01 0.14911E+01 0.21218E+01 + 0.31374E+01 0.45386E+01 0.64588E+01 0.93897E+01 0.13812E+02 0.19919E+02 + 0.27477E-07 0.34297E-07 0.66407E-07 0.13020E-06 0.16188E-06 0.29398E-06 + 0.27136E-07 0.14753E-05 0.41088E-05 0.52460E-05 0.52698E-04 0.23947E-03 + 0.71155E-03 0.17760E-02 0.41436E-02 0.85167E-02 0.16847E-01 0.32524E-01 + 0.60666E-01 0.10891E+00 0.19826E+00 0.34657E+00 0.61226E+00 0.88088E+00 + 0.13021E+01 0.18822E+01 0.26760E+01 0.39542E+01 0.57165E+01 0.81306E+01 + 0.11814E+02 0.17369E+02 0.25032E+02 0.58970E-07 0.88331E-07 0.13363E-06 + 0.37065E-06 0.71791E-06 0.14784E-05 0.20904E-05 0.42869E-06 0.83168E-05 + 0.26249E-04 0.60789E-04 0.23413E-03 0.73190E-03 0.19053E-02 0.45198E-02 + 0.92207E-02 0.17588E-01 0.33943E-01 0.63111E-01 0.11210E+00 0.20453E+00 + 0.35444E+00 0.62314E+00 0.10658E+01 0.16488E+01 0.23800E+01 0.33798E+01 + 0.49899E+01 0.72084E+01 0.10245E+02 0.14877E+02 0.21859E+02 0.31484E+02 + 0.41382E-07 0.60888E-07 0.11565E-06 0.11952E-06 0.24181E-06 0.16790E-05 + 0.55346E-05 0.14848E-04 0.36094E-04 0.78776E-04 0.15955E-03 0.39645E-03 + 0.92618E-03 0.22256E-02 0.51490E-02 0.10426E-01 0.19602E-01 0.36914E-01 + 0.67210E-01 0.11846E+00 0.21259E+00 0.36887E+00 0.64539E+00 0.10971E+01 + 0.20147E+01 0.30393E+01 0.43055E+01 0.63427E+01 0.91466E+01 0.12981E+02 + 0.18825E+02 0.27627E+02 0.39751E+02 0.27937E-06 0.43732E-06 0.58123E-06 + 0.60157E-06 0.94212E-07 0.23736E-05 0.89216E-05 0.22989E-04 0.52433E-04 + 0.11599E-03 0.24088E-03 0.50686E-03 0.14700E-02 0.26572E-02 0.57138E-02 + 0.11400E-01 0.21347E-01 0.39470E-01 0.71412E-01 0.12451E+00 0.22010E+00 + 0.37828E+00 0.66521E+00 0.11267E+01 0.20579E+01 0.36897E+01 0.54672E+01 + 0.80400E+01 0.11577E+02 0.16412E+02 0.23776E+02 0.34862E+02 0.50119E+02 + 0.39349E-06 0.87718E-06 0.16067E-05 0.23256E-05 0.22053E-05 0.39686E-06 + 0.75753E-05 0.25825E-04 0.63405E-04 0.14353E-03 0.30754E-03 0.65402E-03 + 0.13925E-02 0.49980E-02 0.68942E-02 0.12612E-01 0.23226E-01 0.42497E-01 + 0.75621E-01 0.13044E+00 0.22929E+00 0.38991E+00 0.68154E+00 0.11603E+01 + 0.21119E+01 0.37666E+01 0.66337E+01 0.10205E+02 0.14670E+02 0.20766E+02 + 0.30050E+02 0.44018E+02 0.63230E+02 0.28837E-04 0.38241E-04 0.56118E-04 + 0.83585E-04 0.12261E-03 0.16030E-03 0.20357E-03 0.24329E-03 0.27605E-03 + 0.28059E-03 0.22465E-03 0.15102E-04 0.68965E-03 0.22880E-02 0.12895E-01 + 0.12139E-01 0.22074E-01 0.41069E-01 0.73568E-01 0.12701E+00 0.22360E+00 + 0.37972E+00 0.66413E+00 0.11297E+01 0.20837E+01 0.37250E+01 0.65549E+01 + 0.12045E+02 0.18179E+02 0.25761E+02 0.37333E+02 0.54768E+02 0.78751E+02 + 0.17158E-03 0.22398E-03 0.29465E-03 0.39104E-03 0.47734E-03 0.57427E-03 + 0.70496E-03 0.82740E-03 0.95555E-03 0.10304E-02 0.10281E-02 0.80142E-03 + 0.10790E-03 0.19908E-02 0.65667E-02 0.13818E-01 0.55906E-01 0.47680E-01 + 0.82556E-01 0.13955E+00 0.24128E+00 0.40255E+00 0.69450E+00 0.11667E+01 + 0.21362E+01 0.38316E+01 0.67749E+01 0.12384E+02 0.22154E+02 0.39107E+02 + 0.59255E+02 0.86819E+02 0.12468E+03 0.39356E-04 0.50320E-04 0.64256E-04 + 0.81649E-04 0.10171E-03 0.10856E-03 0.99940E-04 0.72210E-04 0.00000E+00 + 0.24909E-03 0.71687E-03 0.16756E-02 0.34921E-02 0.70106E-02 0.13772E-01 + 0.23937E-01 0.39578E-01 0.12607E+00 0.11294E+00 0.17902E+00 0.29761E+00 + 0.48234E+00 0.80993E+00 0.13332E+01 0.23857E+01 0.42047E+01 0.73327E+01 + 0.13359E+02 0.23681E+02 0.41377E+02 0.74207E+02 0.11457E+03 0.16371E+03 + 0.72982E-03 0.94130E-03 0.12209E-02 0.15940E-02 0.20960E-02 0.27785E-02 + 0.32844E-02 0.36412E-02 0.40921E-02 0.45119E-02 0.48558E-02 0.49694E-02 + 0.45269E-02 0.26975E-02 0.25101E-02 0.11336E-01 0.24766E-01 0.49094E-01 + 0.13927E+00 0.15148E+00 0.25378E+00 0.41680E+00 0.71133E+00 0.11792E+01 + 0.21521E+01 0.38408E+01 0.67560E+01 0.12454E+02 0.22464E+02 0.39550E+02 + 0.71247E+02 0.13037E+03 0.20099E+03 0.11963E-02 0.15356E-02 0.19803E-02 + 0.25681E-02 0.33505E-02 0.44018E-02 0.58236E-02 0.68943E-02 0.74958E-02 + 0.81914E-02 0.88149E-02 0.91169E-02 0.88286E-02 0.69469E-02 0.17176E-02 + 0.80894E-02 0.23214E-01 0.50258E-01 0.92338E-01 0.19972E+00 0.27384E+00 + 0.43303E+00 0.73377E+00 0.12053E+01 0.21921E+01 0.38942E+01 0.68180E+01 + 0.12537E+02 0.22552E+02 0.39956E+02 0.72067E+02 0.13145E+03 0.23543E+03 + 0.18824E-02 0.24075E-02 0.30915E-02 0.39883E-02 0.51724E-02 0.67482E-02 + 0.88592E-02 0.11709E-01 0.13926E-01 0.14863E-01 0.15858E-01 0.16519E-01 + 0.16384E-01 0.14456E-01 0.87345E-02 0.00000E+00 0.17382E-01 0.48026E-01 + 0.94212E-01 0.16122E+00 0.27794E+00 0.44946E+00 0.75789E+00 0.12338E+01 + 0.22388E+01 0.39589E+01 0.68959E+01 0.12646E+02 0.22677E+02 0.40057E+02 + 0.72706E+02 0.13293E+03 0.23726E+03 0.27543E-02 0.35105E-02 0.44893E-02 + 0.57635E-02 0.74319E-02 0.96314E-02 0.12548E-01 0.16443E-01 0.21663E-01 + 0.25904E-01 0.27371E-01 0.28588E-01 0.28878E-01 0.26770E-01 0.20112E-01 + 0.10419E-01 0.58607E-02 0.42018E-01 0.94460E-01 0.16761E+00 0.29363E+00 + 0.47314E+00 0.79485E+00 0.12815E+01 0.23187E+01 0.40756E+01 0.70513E+01 + 0.12877E+02 0.22984E+02 0.40423E+02 0.73155E+02 0.13447E+03 0.24055E+03 + 0.37494E-02 0.47642E-02 0.60714E-02 0.77626E-02 0.99601E-02 0.12833E-01 + 0.16605E-01 0.21586E-01 0.28184E-01 0.36856E-01 0.44145E-01 0.45621E-01 + 0.46079E-01 0.43517E-01 0.34800E-01 0.22834E-01 0.55224E-02 0.37837E-01 + 0.10159E+00 0.18658E+00 0.33017E+00 0.52727E+00 0.87704E+00 0.13931E+01 + 0.24970E+01 0.43388E+01 0.74213E+01 0.13434E+02 0.23777E+02 0.41508E+02 + 0.74689E+02 0.13667E+03 0.24517E+03 0.51763E-02 0.65607E-02 0.83355E-02 + 0.10620E-01 0.13571E-01 0.17402E-01 0.22391E-01 0.28919E-01 0.37480E-01 + 0.48623E-01 0.63005E-01 0.75000E-01 0.75402E-01 0.72121E-01 0.61104E-01 + 0.46056E-01 0.25398E-01 0.19694E-01 0.99247E-01 0.20014E+00 0.36704E+00 + 0.58647E+00 0.97213E+00 0.15246E+01 0.27140E+01 0.46638E+01 0.78809E+01 + 0.14131E+02 0.24775E+02 0.42875E+02 0.76627E+02 0.13945E+03 0.24898E+03 + 0.70718E-02 0.89420E-02 0.11331E-01 0.14395E-01 0.18331E-01 0.23410E-01 + 0.29980E-01 0.38508E-01 0.49596E-01 0.63901E-01 0.82210E-01 0.10474E+00 + 0.12319E+00 0.11811E+00 0.10322E+00 0.84299E-01 0.58492E-01 0.11526E-01 + 0.84889E-01 0.20951E+00 0.41062E+00 0.66242E+00 0.10997E+01 0.17046E+01 + 0.30159E+01 0.51193E+01 0.85304E+01 0.15120E+02 0.26199E+02 0.44850E+02 + 0.79456E+02 0.14357E+03 0.25470E+03 0.97171E-02 0.12258E-01 0.15494E-01 + 0.19625E-01 0.24913E-01 0.31694E-01 0.40410E-01 0.51635E-01 0.66097E-01 + 0.84577E-01 0.10799E+00 0.13654E+00 0.16967E+00 0.19293E+00 0.17001E+00 + 0.14311E+00 0.10904E+00 0.47228E-01 0.60484E-01 0.22300E+00 0.47752E+00 + 0.78019E+00 0.12969E+01 0.19841E+01 0.34779E+01 0.58126E+01 0.95184E+01 + 0.16616E+02 0.28356E+02 0.47863E+02 0.83801E+02 0.14992E+03 0.26368E+03 + 0.12889E-01 0.16224E-01 0.20463E-01 0.25860E-01 0.32739E-01 0.41533E-01 + 0.52774E-01 0.67174E-01 0.85604E-01 0.10899E+00 0.13839E+00 0.17402E+00 + 0.21524E+00 0.25674E+00 0.27467E+00 0.23544E+00 0.18885E+00 0.10806E+00 + 0.00000E+00 0.22027E+00 0.55462E+00 0.93158E+00 0.15628E+01 0.23664E+01 + 0.41173E+01 0.67735E+01 0.10886E+02 0.18680E+02 0.31325E+02 0.52007E+02 + 0.89770E+02 0.15865E+03 0.27603E+03 0.17339E-01 0.21775E-01 0.27401E-01 + 0.34546E-01 0.43628E-01 0.55187E-01 0.69904E-01 0.88648E-01 0.11248E+00 + 0.14250E+00 0.17993E+00 0.22490E+00 0.27650E+00 0.32830E+00 0.36457E+00 + 0.38340E+00 0.31318E+00 0.19856E+00 0.52415E-01 0.21421E+00 0.67344E+00 + 0.11657E+01 0.19709E+01 0.29501E+01 0.50798E+01 0.82041E+01 0.12905E+02 + 0.21694E+02 0.35628E+02 0.57988E+02 0.98347E+02 0.17114E+03 0.29373E+03 + 0.22214E-01 0.27831E-01 0.34943E-01 0.43958E-01 0.55391E-01 0.69905E-01 + 0.88317E-01 0.11167E+00 0.14123E+00 0.17824E+00 0.22407E+00 0.27872E+00 + 0.34092E+00 0.40292E+00 0.44652E+00 0.48124E+00 0.48874E+00 0.32304E+00 + 0.12086E+00 0.21241E+00 0.86779E+00 0.15390E+01 0.26096E+01 0.38527E+01 + 0.65411E+01 0.10345E+02 0.15889E+02 0.26089E+02 0.41833E+02 0.66542E+02 + 0.11052E+03 0.18874E+03 0.31856E+03 0.29934E-01 0.37399E-01 0.46840E-01 + 0.58787E-01 0.73909E-01 0.93056E-01 0.11728E+00 0.14789E+00 0.18648E+00 + 0.23455E+00 0.29377E+00 0.36403E+00 0.44362E+00 0.52299E+00 0.58038E+00 + 0.62853E+00 0.65418E+00 0.56993E+00 0.27902E+00 0.79320E-01 0.10336E+01 + 0.19688E+01 0.34258E+01 0.50402E+01 0.85212E+01 0.13266E+02 0.19952E+02 + 0.32056E+02 0.50202E+02 0.77977E+02 0.12665E+03 0.21190E+03 0.35100E+03 + 0.37892E-01 0.47191E-01 0.58945E-01 0.73797E-01 0.92571E-01 0.11630E+00 + 0.14624E+00 0.18399E+00 0.23139E+00 0.29021E+00 0.36231E+00 0.44730E+00 + 0.54283E+00 0.63715E+00 0.70427E+00 0.75979E+00 0.78869E+00 0.69186E+00 + 0.44448E+00 0.00000E+00 0.14155E+01 0.27920E+01 0.48619E+01 0.70588E+01 + 0.11752E+02 0.17912E+02 0.26293E+02 0.41179E+02 0.62787E+02 0.94948E+02 + 0.15029E+03 0.24543E+03 0.39754E+03 0.49848E-01 0.61852E-01 0.77009E-01 + 0.96144E-01 0.12029E+00 0.15077E+00 0.18915E+00 0.23740E+00 0.29780E+00 + 0.37249E+00 0.46357E+00 0.57034E+00 0.68951E+00 0.80608E+00 0.88779E+00 + 0.95440E+00 0.98818E+00 0.87195E+00 0.58339E+00 0.79063E-01 0.19547E+01 + 0.39665E+01 0.70144E+01 0.10096E+02 0.16598E+02 0.24828E+02 0.35635E+02 + 0.54466E+02 0.80891E+02 0.11905E+03 0.18344E+03 0.29188E+03 0.46129E+03 + 0.63529E-01 0.78483E-01 0.97343E-01 0.12115E+00 0.15116E+00 0.18899E+00 + 0.23656E+00 0.29627E+00 0.37084E+00 0.46281E+00 0.57461E+00 0.70516E+00 + 0.85022E+00 0.99133E+00 0.10897E+01 0.11695E+01 0.12103E+01 0.10757E+01 + 0.74628E+00 0.18170E+00 0.26075E+01 0.57130E+01 0.10161E+02 0.14672E+02 + 0.23946E+02 0.35246E+02 0.49575E+02 0.74087E+02 0.10730E+03 0.15376E+03 + 0.23058E+03 0.35708E+03 0.54970E+03 0.84394E-01 0.10371E+00 0.12806E+00 + 0.15877E+00 0.19746E+00 0.24617E+00 0.30736E+00 0.38402E+00 0.47957E+00 + 0.59713E+00 0.73964E+00 0.90548E+00 0.10890E+01 0.12666E+01 0.13898E+01 + 0.14894E+01 0.15406E+01 0.13783E+01 0.98601E+00 0.32631E+00 0.28478E+01 + 0.79024E+01 0.14945E+02 0.21432E+02 0.35080E+02 0.51103E+02 0.70626E+02 + 0.10343E+03 0.14637E+03 0.20447E+03 0.29854E+03 0.44987E+03 0.67387E+03 + 0.10791E+00 0.13178E+00 0.16187E+00 0.19978E+00 0.24754E+00 0.30759E+00 + 0.38296E+00 0.47728E+00 0.59468E+00 0.73884E+00 0.91320E+00 0.11155E+01 + 0.13385E+01 0.15533E+01 0.17007E+01 0.18186E+01 0.18773E+01 0.16810E+01 + 0.12159E+01 0.44678E+00 0.33063E+01 0.94284E+01 0.21256E+02 0.32217E+02 + 0.52164E+02 0.75666E+02 0.10328E+03 0.14845E+03 0.20557E+03 0.28033E+03 + 0.39883E+03 0.58490E+03 0.85208E+03 0.14389E+00 0.17443E+00 0.21289E+00 + 0.26135E+00 0.32232E+00 0.39898E+00 0.49509E+00 0.61521E+00 0.76452E+00 + 0.94757E+00 0.11684E+01 0.14239E+01 0.17043E+01 0.19725E+01 0.21540E+01 + 0.22962E+01 0.23624E+01 0.21104E+01 0.15294E+01 0.58543E+00 0.39835E+01 + 0.11504E+02 0.25913E+02 0.45777E+02 0.79157E+02 0.11323E+03 0.15355E+03 + 0.21801E+03 0.29607E+03 0.39496E+03 0.54845E+03 0.78361E+03 0.11107E+04 + 0.18618E+00 0.22374E+00 0.27106E+00 0.33064E+00 0.40558E+00 0.49975E+00 + 0.61773E+00 0.76508E+00 0.94805E+00 0.11720E+01 0.14419E+01 0.17533E+01 + 0.20941E+01 0.24187E+01 0.26359E+01 0.28041E+01 0.28790E+01 0.25693E+01 + 0.18683E+01 0.74364E+00 0.48184E+01 0.14121E+02 0.31830E+02 0.55954E+02 + 0.11138E+03 0.17212E+03 0.23011E+03 0.32432E+03 0.43538E+03 0.56962E+03 + 0.77385E+03 0.10793E+04 0.14905E+04 0.23962E-09 0.11217E-08 0.30976E-08 + 0.55697E-08 0.15568E-07 0.20633E-07 0.40552E-07 0.81979E-07 0.17942E-06 + 0.37674E-06 0.77676E-06 0.33636E-05 0.24303E-04 0.88113E-04 0.40412E-03 + 0.13569E-02 0.31848E-02 0.64001E-02 0.11204E-01 0.17624E-01 0.27375E-01 + 0.39347E-01 0.56324E-01 0.78130E-01 0.11657E+00 0.17001E+00 0.24388E+00 + 0.36373E+00 0.53126E+00 0.76453E+00 0.11261E+01 0.16826E+01 0.24728E+01 + 0.28160E-10 0.92981E-09 0.31717E-08 0.80728E-08 0.14736E-07 0.37657E-07 + 0.54798E-07 0.10803E-06 0.24207E-06 0.47971E-06 0.10121E-05 0.58776E-05 + 0.44319E-04 0.11265E-03 0.51571E-03 0.17278E-02 0.40463E-02 0.81164E-02 + 0.14186E-01 0.22282E-01 0.34570E-01 0.49632E-01 0.70975E-01 0.98345E-01 + 0.14657E+00 0.21350E+00 0.30585E+00 0.45544E+00 0.66395E+00 0.95328E+00 + 0.14003E+01 0.20854E+01 0.30523E+01 0.45500E-09 0.53519E-09 0.31556E-08 + 0.88386E-08 0.22200E-07 0.38634E-07 0.84030E-07 0.15123E-06 0.28916E-06 + 0.62415E-06 0.13189E-05 0.92555E-05 0.74840E-04 0.22910E-03 0.66153E-03 + 0.22094E-02 0.51595E-02 0.10325E-01 0.18009E-01 0.28240E-01 0.43751E-01 + 0.62740E-01 0.89609E-01 0.12404E+00 0.18465E+00 0.26869E+00 0.38444E+00 + 0.57167E+00 0.83209E+00 0.11924E+01 0.17476E+01 0.25954E+01 0.37864E+01 + 0.18011E-08 0.56221E-09 0.18011E-08 0.88912E-08 0.24767E-07 0.61517E-07 + 0.11510E-06 0.24023E-06 0.44388E-06 0.10431E-05 0.23730E-05 0.25481E-04 + 0.12607E-03 0.45233E-03 0.11002E-02 0.29878E-02 0.69488E-02 0.13854E-01 + 0.24093E-01 0.37686E-01 0.58263E-01 0.83402E-01 0.11894E+00 0.16439E+00 + 0.24443E+00 0.35521E+00 0.50756E+00 0.75367E+00 0.10952E+01 0.15665E+01 + 0.22908E+01 0.33929E+01 0.49339E+01 0.39373E-08 0.27253E-08 0.82555E-09 + 0.80610E-08 0.27059E-07 0.69720E-07 0.16525E-06 0.40407E-06 0.82442E-06 + 0.20425E-05 0.65943E-05 0.54318E-04 0.23020E-03 0.74710E-03 0.17655E-02 + 0.39687E-02 0.91684E-02 0.18681E-01 0.32360E-01 0.50453E-01 0.77797E-01 + 0.11112E+00 0.15816E+00 0.21827E+00 0.32407E+00 0.47034E+00 0.67117E+00 + 0.99532E+00 0.14443E+01 0.20626E+01 0.30107E+01 0.44496E+01 0.64535E+01 + 0.68683E-08 0.66499E-08 0.36647E-08 0.59446E-08 0.31356E-07 0.81320E-07 + 0.19874E-06 0.60601E-06 0.14264E-05 0.45387E-05 0.15095E-04 0.96211E-04 + 0.37380E-03 0.10457E-02 0.25336E-02 0.53505E-02 0.10974E-01 0.23569E-01 + 0.43676E-01 0.67815E-01 0.10422E+00 0.14844E+00 0.21081E+00 0.29036E+00 + 0.43040E+00 0.62372E+00 0.88894E+00 0.13165E+01 0.19080E+01 0.27209E+01 + 0.39654E+01 0.58504E+01 0.84675E+01 0.46733E-07 0.62644E-07 0.75894E-07 + 0.92244E-07 0.87214E-07 0.47554E-07 0.51086E-07 0.37634E-06 0.16295E-05 + 0.77040E-05 0.33931E-04 0.14075E-03 0.52215E-03 0.13349E-02 0.32051E-02 + 0.67016E-02 0.13397E-01 0.26472E-01 0.52036E-01 0.91159E-01 0.13959E+00 + 0.19820E+00 0.28079E+00 0.38595E+00 0.57123E+00 0.82674E+00 0.11768E+01 + 0.17412E+01 0.25206E+01 0.35906E+01 0.52267E+01 0.77008E+01 0.11128E+02 + 0.92329E-07 0.12697E-06 0.18646E-06 0.26278E-06 0.27816E-06 0.33503E-06 + 0.14971E-06 0.10960E-06 0.11337E-05 0.94573E-05 0.59692E-04 0.20853E-03 + 0.65887E-03 0.16529E-02 0.38775E-02 0.80485E-02 0.15612E-01 0.30622E-01 + 0.56673E-01 0.10319E+00 0.18817E+00 0.26608E+00 0.37568E+00 0.51493E+00 + 0.76056E+00 0.10987E+01 0.15616E+01 0.23074E+01 0.33365E+01 0.47473E+01 + 0.69023E+01 0.10157E+02 0.14658E+02 0.28024E-06 0.32869E-06 0.46516E-06 + 0.70812E-06 0.11474E-05 0.14369E-05 0.18269E-05 0.11143E-05 0.11488E-06 + 0.46647E-05 0.59895E-04 0.25605E-03 0.76687E-03 0.18987E-02 0.44312E-02 + 0.91150E-02 0.17634E-01 0.33496E-01 0.62446E-01 0.10941E+00 0.20066E+00 + 0.35120E+00 0.50243E+00 0.68646E+00 0.10118E+01 0.14591E+01 0.20705E+01 + 0.30560E+01 0.44140E+01 0.62742E+01 0.91141E+01 0.13400E+02 0.19316E+02 + 0.38831E-06 0.44985E-06 0.86669E-06 0.17137E-05 0.23146E-05 0.55123E-05 + 0.82764E-05 0.80850E-05 0.29855E-05 0.34630E-05 0.54389E-04 0.29388E-03 + 0.91296E-03 0.22718E-02 0.51819E-02 0.10290E-01 0.19700E-01 0.36997E-01 + 0.67404E-01 0.11838E+00 0.21203E+00 0.36513E+00 0.63772E+00 0.92475E+00 + 0.13578E+01 0.19519E+01 0.27627E+01 0.40691E+01 0.58669E+01 0.83264E+01 + 0.12079E+02 0.17737E+02 0.25537E+02 0.92330E-06 0.15726E-05 0.28703E-05 + 0.56898E-05 0.96460E-05 0.16291E-04 0.24191E-04 0.33447E-04 0.21964E-04 + 0.19536E-04 0.93878E-04 0.33210E-03 0.10608E-02 0.27123E-02 0.62258E-02 + 0.12218E-01 0.21983E-01 0.41093E-01 0.73525E-01 0.12696E+00 0.22565E+00 + 0.38434E+00 0.66448E+00 0.11209E+01 0.18313E+01 0.26219E+01 0.36986E+01 + 0.54329E+01 0.78160E+01 0.11072E+02 0.16037E+02 0.23515E+02 0.33814E+02 + 0.81276E-05 0.13543E-04 0.23111E-04 0.45853E-04 0.75640E-04 0.10998E-03 + 0.13175E-03 0.14035E-03 0.12739E-03 0.59970E-04 0.91298E-04 0.43870E-03 + 0.15401E-02 0.31186E-02 0.71787E-02 0.14059E-01 0.25586E-01 0.45665E-01 + 0.80726E-01 0.13731E+00 0.23834E+00 0.40287E+00 0.69568E+00 0.11619E+01 + 0.21072E+01 0.35216E+01 0.49496E+01 0.72506E+01 0.10407E+02 0.14713E+02 + 0.21278E+02 0.31161E+02 0.44757E+02 0.32008E-04 0.68316E-04 0.11577E-03 + 0.17779E-03 0.22875E-03 0.28602E-03 0.32919E-03 0.35539E-03 0.34326E-03 + 0.25752E-03 0.37808E-04 0.46705E-03 0.15368E-02 0.99262E-02 0.89346E-02 + 0.16512E-01 0.29450E-01 0.52167E-01 0.89771E-01 0.14995E+00 0.25648E+00 + 0.42575E+00 0.72995E+00 0.12207E+01 0.21920E+01 0.38742E+01 0.66601E+01 + 0.97197E+01 0.13907E+02 0.19611E+02 0.28303E+02 0.41382E+02 0.59349E+02 + 0.14241E-03 0.18177E-03 0.26094E-03 0.37195E-03 0.51466E-03 0.61817E-03 + 0.71679E-03 0.76893E-03 0.76329E-03 0.64507E-03 0.34677E-03 0.37153E-03 + 0.18269E-02 0.49186E-02 0.29889E-01 0.20762E-01 0.35066E-01 0.60744E-01 + 0.10222E+00 0.16717E+00 0.28076E+00 0.45821E+00 0.77474E+00 0.12815E+01 + 0.23080E+01 0.40432E+01 0.70048E+01 0.12706E+02 0.18673E+02 0.26240E+02 + 0.37767E+02 0.55100E+02 0.78880E+02 0.61409E-03 0.78203E-03 0.99813E-03 + 0.12257E-02 0.14750E-02 0.17929E-02 0.20572E-02 0.22649E-02 0.23478E-02 + 0.22396E-02 0.18569E-02 0.98718E-03 0.95442E-03 0.48846E-02 0.12573E-01 + 0.33763E-01 0.41782E-01 0.69824E-01 0.11565E+00 0.18565E+00 0.30655E+00 + 0.49189E+00 0.82016E+00 0.13393E+01 0.23910E+01 0.42014E+01 0.72438E+01 + 0.13044E+02 0.23113E+02 0.35005E+02 0.50256E+02 0.73180E+02 0.10459E+03 + 0.18547E-02 0.23567E-02 0.30003E-02 0.38279E-02 0.46324E-02 0.51570E-02 + 0.58110E-02 0.64311E-02 0.67897E-02 0.68678E-02 0.65347E-02 0.54224E-02 + 0.30472E-02 0.20441E-02 0.11896E-01 0.25538E-01 0.46425E-01 0.10405E+00 + 0.12952E+00 0.20510E+00 0.33411E+00 0.52737E+00 0.86757E+00 0.13975E+01 + 0.24748E+01 0.43140E+01 0.74469E+01 0.13414E+02 0.23602E+02 0.41100E+02 + 0.66746E+02 0.97018E+02 0.13843E+03 0.44691E-02 0.56666E-02 0.71964E-02 + 0.91561E-02 0.11666E-01 0.14450E-01 0.15310E-01 0.16356E-01 0.17445E-01 + 0.17699E-01 0.17460E-01 0.16050E-01 0.12987E-01 0.61375E-02 0.69529E-02 + 0.24158E-01 0.47766E-01 0.88212E-01 0.36955E+00 0.22836E+00 0.36834E+00 + 0.57210E+00 0.92844E+00 0.14731E+01 0.25861E+01 0.44666E+01 0.76438E+01 + 0.13769E+02 0.24293E+02 0.41983E+02 0.74763E+02 0.12890E+03 0.18351E+03 + 0.89178E-02 0.11286E-01 0.14303E-01 0.18153E-01 0.23067E-01 0.29349E-01 + 0.37357E-01 0.39065E-01 0.40486E-01 0.41861E-01 0.41658E-01 0.39938E-01 + 0.35738E-01 0.26090E-01 0.78712E-02 0.14796E-01 0.44338E-01 0.92571E-01 + 0.16075E+00 0.97087E+00 0.40933E+00 0.62730E+00 0.10059E+01 0.15711E+01 + 0.27351E+01 0.46757E+01 0.79201E+01 0.14167E+02 0.24899E+02 0.43265E+02 + 0.76485E+02 0.13787E+03 0.24394E+03 0.15614E-01 0.19730E-01 0.24958E-01 + 0.31609E-01 0.40068E-01 0.50837E-01 0.64517E-01 0.81865E-01 0.88208E-01 + 0.89099E-01 0.89205E-01 0.86052E-01 0.78660E-01 0.63879E-01 0.36672E-01 + 0.44903E-02 0.35299E-01 0.98328E-01 0.18335E+00 0.29426E+00 0.10559E+01 + 0.71757E+00 0.11352E+01 0.17403E+01 0.29937E+01 0.50461E+01 0.84283E+01 + 0.14914E+02 0.25942E+02 0.44671E+02 0.79394E+02 0.14229E+03 0.25055E+03 + 0.24699E-01 0.31166E-01 0.39362E-01 0.49761E-01 0.62951E-01 0.79690E-01 + 0.10088E+00 0.12766E+00 0.16128E+00 0.18049E+00 0.17984E+00 0.17553E+00 + 0.16405E+00 0.13995E+00 0.97263E-01 0.49041E-01 0.76918E-02 0.94615E-01 + 0.20622E+00 0.34412E+00 0.56302E+00 0.84356E+00 0.13197E+01 0.19855E+01 + 0.33728E+01 0.55939E+01 0.91876E+01 0.16038E+02 0.27530E+02 0.46838E+02 + 0.82450E+02 0.14812E+03 0.25978E+03 0.40389E-01 0.50905E-01 0.64204E-01 + 0.81052E-01 0.10238E+00 0.12939E+00 0.16352E+00 0.20659E+00 0.26062E+00 + 0.32726E+00 0.38096E+00 0.37348E+00 0.35664E+00 0.32058E+00 0.25270E+00 + 0.17906E+00 0.96430E-01 0.26372E-01 0.17622E+00 0.35048E+00 0.62068E+00 + 0.94696E+00 0.14955E+01 0.22302E+01 0.37854E+01 0.62115E+01 0.10055E+02 + 0.17348E+02 0.29390E+02 0.49364E+02 0.86010E+02 0.15322E+03 0.26869E+03 + 0.62586E-01 0.78780E-01 0.99251E-01 0.12512E+00 0.15784E+00 0.19918E+00 + 0.25133E+00 0.31701E+00 0.39927E+00 0.50082E+00 0.62401E+00 0.75032E+00 + 0.72018E+00 0.66133E+00 0.55621E+00 0.43750E+00 0.30921E+00 0.12452E+00 + 0.90493E-01 0.32624E+00 0.68140E+00 0.10835E+01 0.17501E+01 0.25989E+01 + 0.44209E+01 0.71739E+01 0.11421E+02 0.19419E+02 0.32354E+02 0.53454E+02 + 0.91850E+02 0.16169E+03 0.28049E+03 0.98103E-01 0.12333E+00 0.15518E+00 + 0.19541E+00 0.24621E+00 0.31033E+00 0.39112E+00 0.49273E+00 0.61995E+00 + 0.77719E+00 0.96877E+00 0.11925E+01 0.14402E+01 0.13784E+01 0.12045E+01 + 0.10241E+01 0.82099E+00 0.53429E+00 0.21453E+00 0.11654E+00 0.60092E+00 + 0.11120E+01 0.19475E+01 0.29504E+01 0.51495E+01 0.83529E+01 0.13145E+02 + 0.22104E+02 0.36240E+02 0.58842E+02 0.99584E+02 0.17296E+03 0.29623E+03 + 0.14638E+00 0.18376E+00 0.23092E+00 0.29044E+00 0.36552E+00 0.46016E+00 + 0.57927E+00 0.72892E+00 0.91604E+00 0.11473E+01 0.14294E+01 0.17608E+01 + 0.21327E+01 0.25029E+01 0.23962E+01 0.20902E+01 0.17733E+01 0.13133E+01 + 0.80827E+00 0.30822E+00 0.40052E+00 0.11022E+01 0.22251E+01 0.34928E+01 + 0.63075E+01 0.10240E+02 0.15911E+02 0.26387E+02 0.42427E+02 0.67434E+02 + 0.11192E+03 0.19092E+03 0.32149E+03 0.20556E+00 0.25761E+00 0.32324E+00 + 0.40601E+00 0.51031E+00 0.64170E+00 0.80685E+00 0.10139E+01 0.12725E+01 + 0.15917E+01 0.19803E+01 0.24368E+01 0.29500E+01 0.34658E+01 0.38692E+01 + 0.38339E+01 0.32833E+01 0.25300E+01 0.17078E+01 0.89885E+00 0.21269E+00 + 0.12627E+01 0.28956E+01 0.46403E+01 0.84968E+01 0.13649E+02 0.20785E+02 + 0.33717E+02 0.52824E+02 0.81720E+02 0.13218E+03 0.22012E+03 0.36244E+03 + 0.28147E+00 0.35199E+00 0.44089E+00 0.55293E+00 0.69404E+00 0.87159E+00 + 0.10946E+01 0.13738E+01 0.17220E+01 0.21509E+01 0.26722E+01 0.32833E+01 + 0.39691E+01 0.46587E+01 0.52028E+01 0.57114E+01 0.57991E+01 0.45015E+01 + 0.31321E+01 0.18101E+01 0.00000E+00 0.16521E+01 0.41483E+01 0.66920E+01 + 0.12247E+02 0.19350E+02 0.28781E+02 0.45497E+02 0.69253E+02 0.10396E+03 + 0.16327E+03 0.26431E+03 0.42373E+03 0.38156E+00 0.47596E+00 0.59487E+00 + 0.74468E+00 0.93324E+00 0.11704E+01 0.14678E+01 0.18401E+01 0.23034E+01 + 0.28735E+01 0.35649E+01 0.43736E+01 0.52791E+01 0.61867E+01 0.69017E+01 + 0.75676E+01 0.81033E+01 0.78207E+01 0.54747E+01 0.32588E+01 0.28555E+00 + 0.23943E+01 0.63412E+01 0.10205E+02 0.18523E+02 0.28732E+02 0.41740E+02 + 0.64269E+02 0.95006E+02 0.13829E+03 0.21050E+03 0.33040E+03 0.51414E+03 + 0.51920E+00 0.64556E+00 0.80467E+00 0.10051E+01 0.12572E+01 0.15741E+01 + 0.19714E+01 0.24681E+01 0.30859E+01 0.38451E+01 0.47647E+01 0.58384E+01 + 0.70390E+01 0.82410E+01 0.91887E+01 0.10072E+02 0.10785E+02 0.10507E+02 + 0.92726E+01 0.58906E+01 0.94228E+00 0.34615E+01 0.98520E+01 0.15891E+02 + 0.28726E+02 0.43904E+02 0.62502E+02 0.94013E+02 0.13528E+03 0.19120E+03 + 0.28220E+03 0.42924E+03 0.64737E+03 0.70114E+00 0.86820E+00 0.10786E+01 + 0.13434E+01 0.16764E+01 0.20949E+01 0.26193E+01 0.32744E+01 0.40885E+01 + 0.50875E+01 0.62962E+01 0.77041E+01 0.92739E+01 0.10839E+02 0.12060E+02 + 0.13185E+02 0.14076E+02 0.13662E+02 0.12002E+02 0.90964E+01 0.15756E+01 + 0.57238E+01 0.16271E+02 0.26063E+02 0.46429E+02 0.69751E+02 0.97333E+02 + 0.14310E+03 0.20070E+03 0.27579E+03 0.39495E+03 0.58204E+03 0.84995E+03 + 0.96444E+00 0.11881E+01 0.14697E+01 0.18241E+01 0.22698E+01 0.28296E+01 + 0.35307E+01 0.44063E+01 0.54939E+01 0.68279E+01 0.84406E+01 0.10320E+02 + 0.12413E+02 0.14501E+02 0.16141E+02 0.17660E+02 0.18877E+02 0.18402E+02 + 0.16330E+02 0.12693E+02 0.34855E+01 0.82208E+01 0.25554E+02 0.41546E+02 + 0.74801E+02 0.11147E+03 0.15349E+03 0.22196E+03 0.30499E+03 0.40919E+03 + 0.57060E+03 0.81689E+03 0.11567E+04 0.13205E+01 0.16163E+01 0.19887E+01 + 0.24575E+01 0.30466E+01 0.37863E+01 0.47127E+01 0.58691E+01 0.73047E+01 + 0.90641E+01 0.11189E+02 0.13662E+02 0.16412E+02 0.19147E+02 0.21280E+02 + 0.23245E+02 0.24799E+02 0.24118E+02 0.21343E+02 0.16533E+02 0.45210E+01 + 0.11577E+02 0.42907E+02 0.69047E+02 0.12347E+03 0.18383E+03 0.24972E+03 + 0.35535E+03 0.47919E+03 0.62915E+03 0.85611E+03 0.11929E+04 0.16402E+04 + 0.18249E+01 0.22162E+01 0.27088E+01 0.33286E+01 0.41077E+01 0.50856E+01 + 0.63097E+01 0.78376E+01 0.97333E+01 0.12055E+02 0.14858E+02 0.18115E+02 + 0.21733E+02 0.25322E+02 0.28105E+02 0.30655E+02 0.32652E+02 0.31696E+02 + 0.27988E+02 0.21622E+02 0.58931E+01 0.15031E+02 0.57691E+02 0.11528E+03 + 0.20566E+03 0.30332E+03 0.41265E+03 0.57986E+03 0.76990E+03 0.99261E+03 + 0.13226E+04 0.17994E+04 0.24092E+04 0.25510E+01 0.30686E+01 0.37202E+01 + 0.45400E+01 0.55702E+01 0.68633E+01 0.84817E+01 0.10501E+02 0.13006E+02 + 0.16071E+02 0.19770E+02 0.24064E+02 0.28827E+02 0.33543E+02 0.37182E+02 + 0.40500E+02 0.43077E+02 0.41752E+02 0.36800E+02 0.28369E+02 0.77120E+01 + 0.19608E+02 0.74971E+02 0.14910E+03 0.32801E+03 0.50645E+03 0.68110E+03 + 0.95794E+03 0.12602E+04 0.16006E+04 0.20954E+04 0.27932E+04 0.36538E+04 + 0.12093E-09 0.10470E-08 0.30563E-08 0.63577E-08 0.13919E-07 0.28990E-07 + 0.48280E-07 0.95464E-07 0.21264E-06 0.43101E-06 0.89935E-06 0.46752E-05 + 0.33365E-04 0.10097E-03 0.46269E-03 0.15518E-02 0.36381E-02 0.73037E-02 + 0.12775E-01 0.20079E-01 0.31168E-01 0.44775E-01 0.64053E-01 0.88800E-01 + 0.13240E+00 0.19297E+00 0.27660E+00 0.41216E+00 0.60134E+00 0.86422E+00 + 0.12709E+01 0.18954E+01 0.27790E+01 0.23113E-09 0.81583E-09 0.32009E-08 + 0.82162E-08 0.17112E-07 0.35814E-07 0.69170E-07 0.12950E-06 0.26637E-06 + 0.55155E-06 0.11720E-05 0.76268E-05 0.60165E-04 0.16429E-03 0.59178E-03 + 0.19794E-02 0.46287E-02 0.92725E-02 0.16190E-01 0.25407E-01 0.39388E-01 + 0.56514E-01 0.80760E-01 0.11184E+00 0.16658E+00 0.24250E+00 0.34716E+00 + 0.51654E+00 0.75235E+00 0.10790E+01 0.15829E+01 0.23536E+01 0.34383E+01 + 0.77472E-09 0.42801E-09 0.31995E-08 0.92826E-08 0.22980E-07 0.45273E-07 + 0.98560E-07 0.17910E-06 0.34545E-06 0.79358E-06 0.15320E-05 0.14891E-04 + 0.95860E-04 0.32142E-03 0.82400E-03 0.25340E-02 0.59065E-02 0.11801E-01 + 0.20557E-01 0.32202E-01 0.49843E-01 0.71419E-01 0.10193E+00 0.14102E+00 + 0.20981E+00 0.30511E+00 0.43628E+00 0.64832E+00 0.94292E+00 0.13500E+01 + 0.19764E+01 0.29314E+01 0.42699E+01 0.22481E-08 0.99924E-09 0.21355E-08 + 0.90699E-08 0.25593E-07 0.59899E-07 0.12930E-06 0.30019E-06 0.50677E-06 + 0.13077E-05 0.33463E-05 0.31902E-04 0.15140E-03 0.53048E-03 0.12641E-02 + 0.32309E-02 0.75621E-02 0.15059E-01 0.26162E-01 0.40888E-01 0.63171E-01 + 0.90373E-01 0.12882E+00 0.17798E+00 0.26452E+00 0.38427E+00 0.54888E+00 + 0.81472E+00 0.11834E+01 0.16919E+01 0.24728E+01 0.36601E+01 0.53180E+01 + 0.41405E-08 0.32713E-08 0.24403E-09 0.84752E-08 0.27836E-07 0.70173E-07 + 0.17397E-06 0.42461E-06 0.89398E-06 0.21276E-05 0.72198E-05 0.58457E-04 + 0.24365E-03 0.77338E-03 0.18501E-02 0.40924E-02 0.93311E-02 0.19284E-01 + 0.33389E-01 0.52037E-01 0.80214E-01 0.11454E+00 0.16300E+00 0.22491E+00 + 0.33386E+00 0.48448E+00 0.69132E+00 0.10250E+01 0.14872E+01 0.21235E+01 + 0.30990E+01 0.45792E+01 0.66401E+01 0.75803E-08 0.79816E-08 0.51929E-08 + 0.38736E-08 0.26906E-07 0.75055E-07 0.19479E-06 0.57000E-06 0.13575E-05 + 0.42209E-05 0.14196E-04 0.93227E-04 0.36184E-03 0.10200E-02 0.24913E-02 + 0.52351E-02 0.10823E-01 0.23383E-01 0.42752E-01 0.66404E-01 0.10208E+00 + 0.14543E+00 0.20657E+00 0.28456E+00 0.42187E+00 0.61143E+00 0.87147E+00 + 0.12909E+01 0.18710E+01 0.26684E+01 0.38893E+01 0.57387E+01 0.83072E+01 + 0.59879E-07 0.72274E-07 0.91450E-07 0.11366E-06 0.11295E-06 0.82541E-07 + 0.46571E-08 0.24558E-06 0.13508E-05 0.68488E-05 0.27044E-04 0.12706E-03 + 0.48709E-03 0.12657E-02 0.30395E-02 0.64638E-02 0.12831E-01 0.25774E-01 + 0.51208E-01 0.86098E-01 0.13198E+00 0.18757E+00 0.26592E+00 0.36572E+00 + 0.54159E+00 0.78418E+00 0.11166E+01 0.16527E+01 0.23934E+01 0.34102E+01 + 0.49655E+01 0.73185E+01 0.10579E+02 0.10113E-06 0.13922E-06 0.21365E-06 + 0.28754E-06 0.34242E-06 0.33358E-06 0.20024E-06 0.43764E-07 0.98934E-06 + 0.85715E-05 0.54926E-04 0.18863E-03 0.62595E-03 0.15811E-02 0.37321E-02 + 0.78078E-02 0.15225E-01 0.29770E-01 0.55686E-01 0.10205E+00 0.17905E+00 + 0.25341E+00 0.35809E+00 0.49113E+00 0.72580E+00 0.10490E+01 0.14915E+01 + 0.22047E+01 0.31888E+01 0.45382E+01 0.66003E+01 0.97154E+01 0.14024E+02 + 0.27709E-06 0.33340E-06 0.48440E-06 0.75802E-06 0.11802E-05 0.14024E-05 + 0.18260E-05 0.11087E-05 0.20990E-06 0.41354E-05 0.55822E-04 0.24135E-03 + 0.73385E-03 0.18378E-02 0.43179E-02 0.89098E-02 0.17335E-01 0.32945E-01 + 0.61511E-01 0.10810E+00 0.19907E+00 0.34238E+00 0.48205E+00 0.65906E+00 + 0.97202E+00 0.14024E+01 0.19909E+01 0.29394E+01 0.42470E+01 0.60383E+01 + 0.87734E+01 0.12902E+02 0.18603E+02 0.42244E-06 0.51801E-06 0.92637E-06 + 0.17625E-05 0.23797E-05 0.57189E-05 0.79531E-05 0.83665E-05 0.41146E-05 + 0.19631E-05 0.49800E-04 0.27799E-03 0.87077E-03 0.21873E-02 0.50317E-02 + 0.10073E-01 0.19371E-01 0.36479E-01 0.66514E-01 0.11721E+00 0.20998E+00 + 0.36243E+00 0.63383E+00 0.89290E+00 0.13121E+01 0.18873E+01 0.26726E+01 + 0.39382E+01 0.56804E+01 0.80639E+01 0.11701E+02 0.17187E+02 0.24751E+02 + 0.84627E-06 0.13166E-05 0.21372E-05 0.48809E-05 0.89717E-05 0.18227E-04 + 0.30494E-04 0.47505E-04 0.41666E-04 0.45286E-05 0.62317E-04 0.28644E-03 + 0.97054E-03 0.25637E-02 0.59756E-02 0.11827E-01 0.21461E-01 0.40205E-01 + 0.72302E-01 0.12513E+00 0.22306E+00 0.38015E+00 0.65836E+00 0.11120E+01 + 0.17776E+01 0.25473E+01 0.35961E+01 0.52861E+01 0.76090E+01 0.10784E+02 + 0.15625E+02 0.22921E+02 0.32969E+02 0.70575E-06 0.11250E-05 0.19153E-05 + 0.33963E-05 0.36587E-05 0.00000E+00 0.12238E-04 0.38779E-04 0.92391E-04 + 0.19576E-03 0.37719E-03 0.78841E-03 0.19835E-02 0.37397E-02 0.80169E-02 + 0.15208E-01 0.27195E-01 0.47892E-01 0.83851E-01 0.14193E+00 0.24542E+00 + 0.41381E+00 0.71172E+00 0.11867E+01 0.21454E+01 0.35184E+01 0.49362E+01 + 0.72157E+01 0.10341E+02 0.14603E+02 0.21093E+02 0.30855E+02 0.44279E+02 + 0.42356E-04 0.87001E-04 0.14557E-03 0.22120E-03 0.28622E-03 0.35929E-03 + 0.41869E-03 0.46406E-03 0.47302E-03 0.41254E-03 0.22366E-03 0.24114E-03 + 0.12520E-02 0.80843E-02 0.83494E-02 0.15777E-01 0.28416E-01 0.50716E-01 + 0.87714E-01 0.14702E+00 0.25217E+00 0.41953E+00 0.72073E+00 0.12063E+01 + 0.21704E+01 0.38416E+01 0.65466E+01 0.95647E+01 0.13697E+02 0.19327E+02 + 0.27910E+02 0.40832E+02 0.58586E+02 0.19699E-03 0.25177E-03 0.36411E-03 + 0.52188E-03 0.72727E-03 0.88022E-03 0.10367E-02 0.11433E-02 0.11929E-02 + 0.11354E-02 0.92015E-03 0.30247E-03 0.10278E-02 0.39250E-02 0.27573E-01 + 0.19086E-01 0.32915E-01 0.57849E-01 0.98240E-01 0.16160E+00 0.27279E+00 + 0.44665E+00 0.75771E+00 0.12561E+01 0.22697E+01 0.39847E+01 0.69160E+01 + 0.12570E+02 0.18440E+02 0.25941E+02 0.37379E+02 0.54589E+02 0.78207E+02 + 0.69858E-03 0.88988E-03 0.11363E-02 0.13964E-02 0.16798E-02 0.20428E-02 + 0.23535E-02 0.26040E-02 0.27274E-02 0.26569E-02 0.23128E-02 0.15156E-02 + 0.35982E-03 0.42076E-02 0.11786E-01 0.30582E-01 0.40613E-01 0.68314E-01 + 0.11366E+00 0.18294E+00 0.30277E+00 0.48646E+00 0.81225E+00 0.13275E+01 + 0.23734E+01 0.41746E+01 0.72044E+01 0.12984E+02 0.23019E+02 0.34998E+02 + 0.50269E+02 0.73233E+02 0.10470E+03 0.15502E-03 0.19303E-03 0.23807E-03 + 0.28883E-03 0.32043E-03 0.30106E-03 0.23440E-03 0.76318E-04 0.24046E-03 + 0.85759E-03 0.19507E-02 0.39986E-02 0.77237E-02 0.14412E-01 0.26401E-01 + 0.42942E-01 0.68185E-01 0.16489E+00 0.16444E+00 0.25136E+00 0.39691E+00 + 0.61441E+00 0.99079E+00 0.15749E+01 0.27351E+01 0.47009E+01 0.80283E+01 + 0.14301E+02 0.24942E+02 0.43144E+02 0.70295E+02 0.10156E+03 0.14424E+03 + 0.33699E-02 0.42703E-02 0.54188E-02 0.68857E-02 0.87556E-02 0.10965E-01 + 0.11534E-01 0.12196E-01 0.12862E-01 0.12744E-01 0.12074E-01 0.10115E-01 + 0.62473E-02 0.15746E-02 0.16029E-01 0.35007E-01 0.60961E-01 0.10428E+00 + 0.51649E+00 0.25544E+00 0.40425E+00 0.62045E+00 0.99517E+00 0.15665E+01 + 0.27207E+01 0.46628E+01 0.79328E+01 0.14201E+02 0.24968E+02 0.42992E+02 + 0.76291E+02 0.13332E+03 0.18937E+03 0.46345E-04 0.48391E-04 0.41500E-04 + 0.14456E-04 0.64499E-04 0.24744E-03 0.66560E-03 0.12928E-02 0.22997E-02 + 0.41267E-02 0.71142E-02 0.12404E-01 0.21362E-01 0.36555E-01 0.62134E-01 + 0.94435E-01 0.13676E+00 0.20244E+00 0.29440E+00 0.12694E+01 0.62630E+00 + 0.90544E+00 0.13792E+01 0.20827E+01 0.34543E+01 0.57049E+01 0.94163E+01 + 0.16378E+02 0.28203E+02 0.48260E+02 0.84092E+02 0.14943E+03 0.26224E+03 + 0.10653E-01 0.13454E-01 0.17006E-01 0.21513E-01 0.27221E-01 0.34445E-01 + 0.43524E-01 0.54860E-01 0.60197E-01 0.59592E-01 0.57710E-01 0.52467E-01 + 0.42320E-01 0.23760E-01 0.85674E-02 0.47095E-01 0.94947E-01 0.16891E+00 + 0.26826E+00 0.39803E+00 0.60473E+00 0.88321E+00 0.13520E+01 0.20290E+01 + 0.33916E+01 0.56031E+01 0.92196E+01 0.16063E+02 0.27629E+02 0.47169E+02 + 0.83144E+02 0.14815E+03 0.25937E+03 0.16860E-01 0.21264E-01 0.26838E-01 + 0.33894E-01 0.42813E-01 0.54072E-01 0.68201E-01 0.85826E-01 0.10749E+00 + 0.12290E+00 0.11943E+00 0.11124E+00 0.95204E-01 0.65007E-01 0.13827E-01 + 0.44711E-01 0.11422E+00 0.21828E+00 0.35179E+00 0.51769E+00 0.77510E+00 + 0.11062E+01 0.16543E+01 0.24187E+01 0.39556E+01 0.63906E+01 0.10294E+02 + 0.17615E+02 0.29803E+02 0.50148E+02 0.87352E+02 0.15547E+03 0.27132E+03 + 0.37768E-01 0.47517E-01 0.59822E-01 0.75357E-01 0.94927E-01 0.11954E+00 + 0.15034E+00 0.18866E+00 0.23575E+00 0.29176E+00 0.35559E+00 0.41944E+00 + 0.38027E+00 0.30037E+00 0.16711E+00 0.19461E-01 0.14415E+00 0.37511E+00 + 0.64781E+00 0.95532E+00 0.14064E+01 0.19309E+01 0.27663E+01 0.38394E+01 + 0.59920E+01 0.92041E+01 0.14098E+02 0.23054E+02 0.37374E+02 0.60501E+02 + 0.10195E+03 0.17641E+03 0.30218E+03 0.63224E-01 0.79422E-01 0.99850E-01 + 0.12561E+00 0.15802E+00 0.19877E+00 0.24974E+00 0.31317E+00 0.39128E+00 + 0.48486E+00 0.59320E+00 0.70668E+00 0.80645E+00 0.75861E+00 0.51292E+00 + 0.25033E+00 0.37550E-01 0.43482E+00 0.88401E+00 0.13633E+01 0.20436E+01 + 0.27840E+01 0.39363E+01 0.53323E+01 0.81452E+01 0.12164E+02 0.18061E+02 + 0.28674E+02 0.45114E+02 0.70969E+02 0.11658E+03 0.19724E+03 0.33115E+03 + 0.10348E+00 0.12975E+00 0.16287E+00 0.20459E+00 0.25707E+00 0.32299E+00 + 0.40543E+00 0.50805E+00 0.63459E+00 0.78695E+00 0.96523E+00 0.11575E+01 + 0.13399E+01 0.14453E+01 0.13445E+01 0.86198E+00 0.34522E+00 0.36299E+00 + 0.11411E+01 0.19333E+01 0.30233E+01 0.41364E+01 0.58284E+01 0.77550E+01 + 0.11658E+02 0.16977E+02 0.24454E+02 0.37664E+02 0.57371E+02 0.87384E+02 + 0.13931E+03 0.22935E+03 0.37554E+03 0.16343E+00 0.20445E+00 0.25612E+00 + 0.32120E+00 0.40302E+00 0.50573E+00 0.63411E+00 0.79396E+00 0.99115E+00 + 0.12293E+01 0.15095E+01 0.18167E+01 0.21201E+01 0.23302E+01 0.22763E+01 + 0.20204E+01 0.12880E+01 0.00000E+00 0.13979E+01 0.27882E+01 0.46373E+01 + 0.64243E+01 0.90767E+01 0.11919E+02 0.17699E+02 0.25196E+02 0.35258E+02 + 0.52673E+02 0.77568E+02 0.11408E+03 0.17582E+03 0.28030E+03 0.44529E+03 + 0.25177E+00 0.31402E+00 0.39241E+00 0.49108E+00 0.61508E+00 0.77068E+00 + 0.96516E+00 0.12072E+01 0.15058E+01 0.18670E+01 0.22937E+01 0.27660E+01 + 0.32431E+01 0.36044E+01 0.36201E+01 0.33863E+01 0.27578E+01 0.10024E+01 + 0.15539E+01 0.40472E+01 0.73762E+01 0.10409E+02 0.14810E+02 0.19275E+02 + 0.28363E+02 0.39599E+02 0.53986E+02 0.78356E+02 0.11162E+03 0.15840E+03 + 0.23549E+03 0.36230E+03 0.55599E+03 0.37426E+00 0.46492E+00 0.57904E+00 + 0.72264E+00 0.90306E+00 0.11293E+01 0.14120E+01 0.17636E+01 0.21973E+01 + 0.27219E+01 0.33416E+01 0.40299E+01 0.47303E+01 0.52764E+01 0.53534E+01 + 0.51021E+01 0.43330E+01 0.20760E+01 0.17748E+01 0.65388E+01 0.12526E+02 + 0.18033E+02 0.25809E+02 0.33247E+02 0.48349E+02 0.66223E+02 0.88098E+02 + 0.12435E+03 0.17155E+03 0.23504E+03 0.33676E+03 0.49889E+03 0.73721E+03 + 0.56958E+00 0.70380E+00 0.87274E+00 0.10853E+01 0.13522E+01 0.16870E+01 + 0.21052E+01 0.26253E+01 0.32671E+01 0.40441E+01 0.49645E+01 0.59928E+01 + 0.70527E+01 0.79169E+01 0.81528E+01 0.79696E+01 0.71199E+01 0.42908E+01 + 0.60824E+00 0.77860E+01 0.20547E+02 0.30348E+02 0.44285E+02 0.57641E+02 + 0.83709E+02 0.11341E+03 0.14828E+03 0.20497E+03 0.27543E+03 0.36603E+03 + 0.50723E+03 0.72508E+03 0.10320E+04 0.84456E+00 0.10363E+01 0.12775E+01 + 0.15810E+01 0.19621E+01 0.24398E+01 0.30364E+01 0.37783E+01 0.46932E+01 + 0.58008E+01 0.71126E+01 0.85788E+01 0.10094E+02 0.11340E+02 0.11717E+02 + 0.11522E+02 0.10421E+02 0.66082E+01 0.00000E+00 0.96306E+01 0.27349E+02 + 0.50866E+02 0.80533E+02 0.10400E+03 0.15166E+03 0.20398E+03 0.26240E+03 + 0.35571E+03 0.46688E+03 0.60367E+03 0.81121E+03 0.11210E+04 0.15385E+04 + 0.12893E+01 0.15677E+01 0.19180E+01 0.23585E+01 0.29119E+01 0.36052E+01 + 0.44712E+01 0.55479E+01 0.68763E+01 0.84855E+01 0.10394E+02 0.12534E+02 + 0.14763E+02 0.16638E+02 0.17326E+02 0.17265E+02 0.15998E+02 0.11041E+02 + 0.23320E+01 0.10363E+02 0.33909E+02 0.64902E+02 0.12002E+03 0.18720E+03 + 0.27266E+03 0.36677E+03 0.47214E+03 0.63184E+03 0.81504E+03 0.10315E+04 + 0.13520E+04 0.18155E+04 0.24127E+04 0.19663E+01 0.23637E+01 0.28637E+01 + 0.34925E+01 0.42820E+01 0.52715E+01 0.65067E+01 0.80427E+01 0.99373E+01 + 0.12232E+02 0.14955E+02 0.18012E+02 0.21202E+02 0.23910E+02 0.24973E+02 + 0.25011E+02 0.23409E+02 0.16708E+02 0.48756E+01 0.12348E+02 0.44378E+02 + 0.86273E+02 0.16067E+03 0.25941E+03 0.47148E+03 0.67500E+03 0.86040E+03 + 0.11523E+04 0.14718E+04 0.18304E+04 0.23498E+04 0.30799E+04 0.39801E+04 + 0.30589E+01 0.36261E+01 0.43397E+01 0.52371E+01 0.63635E+01 0.77752E+01 + 0.95372E+01 0.11728E+02 0.14430E+02 0.17705E+02 0.21590E+02 0.25956E+02 + 0.30524E+02 0.34432E+02 0.36056E+02 0.36287E+02 0.34276E+02 0.25207E+02 + 0.90902E+01 0.14359E+02 0.58145E+02 0.11515E+03 0.21638E+03 0.34982E+03 + 0.63642E+03 0.10583E+04 0.15960E+04 0.21146E+04 0.26895E+04 0.33340E+04 + 0.42117E+04 0.54147E+04 0.68392E+04 0.48707E+01 0.56801E+01 0.66983E+01 + 0.79786E+01 0.95856E+01 0.11599E+02 0.14113E+02 0.17237E+02 0.21091E+02 + 0.25759E+02 0.31301E+02 0.37536E+02 0.44071E+02 0.49703E+02 0.52155E+02 + 0.52718E+02 0.50217E+02 0.37925E+02 0.15930E+02 0.16077E+02 0.76143E+02 + 0.15406E+03 0.29264E+03 0.47438E+03 0.86526E+03 0.14369E+04 0.22642E+04 + 0.37278E+04 0.49730E+04 0.61012E+04 0.77046E+04 0.97935E+04 0.12149E+05 + 0.79624E+01 0.91171E+01 0.10569E+02 0.12396E+02 0.14687E+02 0.17559E+02 + 0.21142E+02 0.25596E+02 0.31089E+02 0.37742E+02 0.45641E+02 0.54536E+02 + 0.63876E+02 0.71968E+02 0.75627E+02 0.76721E+02 0.73633E+02 0.56940E+02 + 0.26864E+02 0.16918E+02 0.99546E+02 0.20643E+03 0.39698E+03 0.64593E+03 + 0.11826E+04 0.19639E+04 0.30880E+04 0.50678E+04 0.79333E+04 0.11358E+05 + 0.14169E+05 0.17939E+05 0.22155E+05 0.50586E-09 0.14723E-08 0.35600E-08 + 0.60339E-08 0.16309E-07 0.21222E-07 0.41252E-07 0.82860E-07 0.18064E-06 + 0.37833E-06 0.77882E-06 0.33691E-05 0.24329E-04 0.88172E-04 0.40430E-03 + 0.13574E-02 0.31856E-02 0.64014E-02 0.11206E-01 0.17626E-01 0.27379E-01 + 0.39351E-01 0.56330E-01 0.78138E-01 0.11658E+00 0.17002E+00 0.24390E+00 + 0.36375E+00 0.53128E+00 0.76456E+00 0.11261E+01 0.16827E+01 0.24729E+01 + 0.22415E-09 0.13123E-08 0.36777E-08 0.87877E-08 0.15431E-07 0.38639E-07 + 0.55803E-07 0.10935E-06 0.24390E-06 0.48249E-06 0.10167E-05 0.59099E-05 + 0.44574E-04 0.11295E-03 0.51694E-03 0.17318E-02 0.40553E-02 0.81336E-02 + 0.14215E-01 0.22328E-01 0.34638E-01 0.49734E-01 0.71111E-01 0.98537E-01 + 0.14685E+00 0.21391E+00 0.30644E+00 0.45629E+00 0.66520E+00 0.95503E+00 + 0.14028E+01 0.20891E+01 0.30578E+01 0.41665E-09 0.57241E-09 0.32359E-08 + 0.89588E-08 0.22665E-07 0.38958E-07 0.84690E-07 0.15250E-06 0.29052E-06 + 0.63014E-06 0.13264E-05 0.93370E-05 0.75566E-04 0.23225E-03 0.66493E-03 + 0.22206E-02 0.51853E-02 0.10375E-01 0.18097E-01 0.28377E-01 0.43961E-01 + 0.63039E-01 0.90031E-01 0.12462E+00 0.18553E+00 0.26995E+00 0.38623E+00 + 0.57432E+00 0.83591E+00 0.11979E+01 0.17555E+01 0.26070E+01 0.38031E+01 + 0.20941E-08 0.99388E-09 0.13934E-08 0.78199E-08 0.22971E-07 0.55003E-07 + 0.10775E-06 0.20829E-06 0.41016E-06 0.95902E-06 0.18794E-05 0.22203E-04 + 0.11656E-03 0.41226E-03 0.10160E-02 0.28503E-02 0.66324E-02 0.13232E-01 + 0.23025E-01 0.36031E-01 0.55725E-01 0.79794E-01 0.11382E+00 0.15736E+00 + 0.23403E+00 0.34016E+00 0.48616E+00 0.72204E+00 0.10495E+01 0.15016E+01 + 0.21964E+01 0.32545E+01 0.47346E+01 0.62418E-08 0.50901E-08 0.24291E-08 + 0.32930E-08 0.20453E-07 0.58281E-07 0.13396E-06 0.33674E-06 0.61297E-06 + 0.17181E-05 0.48980E-05 0.42466E-04 0.19164E-03 0.65459E-03 0.15240E-02 + 0.36137E-02 0.85275E-02 0.16952E-01 0.29410E-01 0.45909E-01 0.70859E-01 + 0.10129E+00 0.14427E+00 0.19923E+00 0.29594E+00 0.42972E+00 0.61348E+00 + 0.91017E+00 0.13214E+01 0.18880E+01 0.27572E+01 0.40778E+01 0.59189E+01 + 0.11449E-07 0.15816E-07 0.13016E-07 0.67455E-08 0.86179E-08 0.51576E-07 + 0.16689E-06 0.37679E-06 0.10272E-05 0.25999E-05 0.97696E-05 0.75598E-04 + 0.29830E-03 0.88243E-03 0.22069E-02 0.46112E-02 0.10006E-01 0.21820E-01 + 0.37716E-01 0.58698E-01 0.90378E-01 0.12893E+00 0.18333E+00 0.25278E+00 + 0.37504E+00 0.54394E+00 0.77580E+00 0.11498E+01 0.16674E+01 0.23795E+01 + 0.34705E+01 0.51245E+01 0.74243E+01 0.27569E-07 0.28705E-07 0.39026E-07 + 0.33483E-07 0.16159E-07 0.21639E-07 0.14173E-06 0.55667E-06 0.12831E-05 + 0.57356E-05 0.19473E-04 0.10872E-03 0.43015E-03 0.11567E-02 0.27394E-02 + 0.59422E-02 0.11730E-01 0.24471E-01 0.48536E-01 0.75258E-01 0.11553E+00 + 0.16440E+00 0.23330E+00 0.32114E+00 0.47583E+00 0.68929E+00 0.98196E+00 + 0.14539E+01 0.21063E+01 0.30027E+01 0.43742E+01 0.64503E+01 0.93305E+01 + 0.44572E-07 0.64832E-07 0.78367E-07 0.92083E-07 0.92857E-07 0.44572E-07 + 0.54975E-07 0.40975E-06 0.17513E-05 0.80444E-05 0.41491E-04 0.15374E-03 + 0.55851E-03 0.14079E-02 0.33520E-02 0.69593E-02 0.14025E-01 0.27233E-01 + 0.52912E-01 0.96908E-01 0.14823E+00 0.21030E+00 0.29772E+00 0.40898E+00 + 0.60503E+00 0.87530E+00 0.12455E+01 0.18421E+01 0.26661E+01 0.37969E+01 + 0.55254E+01 0.81387E+01 0.11757E+02 0.88157E-07 0.12149E-06 0.17478E-06 + 0.24985E-06 0.25340E-06 0.31284E-06 0.12247E-06 0.13225E-06 0.11820E-05 + 0.97674E-05 0.61280E-04 0.21459E-03 0.66868E-03 0.16740E-02 0.39193E-02 + 0.81052E-02 0.15722E-01 0.30859E-01 0.56951E-01 0.10351E+00 0.19066E+00 + 0.26951E+00 0.38046E+00 0.52138E+00 0.76993E+00 0.11121E+01 0.15805E+01 + 0.23350E+01 0.33760E+01 0.48033E+01 0.69832E+01 0.10276E+02 0.14828E+02 + 0.19591E-06 0.23265E-06 0.33475E-06 0.51308E-06 0.78015E-06 0.87319E-06 + 0.10041E-05 0.36822E-06 0.30871E-06 0.70915E-05 0.69379E-04 0.27054E-03 + 0.78453E-03 0.19145E-02 0.44365E-02 0.90949E-02 0.17608E-01 0.33371E-01 + 0.62216E-01 0.10910E+00 0.20058E+00 0.34666E+00 0.48767E+00 0.66639E+00 + 0.98204E+00 0.14160E+01 0.20093E+01 0.29652E+01 0.42826E+01 0.60871E+01 + 0.88423E+01 0.12999E+02 0.18739E+02 0.39467E-06 0.52630E-06 0.78391E-06 + 0.14037E-05 0.21794E-05 0.43836E-05 0.54012E-05 0.55590E-05 0.23220E-05 + 0.17944E-05 0.52343E-04 0.27831E-03 0.85535E-03 0.21331E-02 0.49122E-02 + 0.98979E-02 0.19083E-01 0.36042E-01 0.65699E-01 0.11607E+00 0.20813E+00 + 0.36022E+00 0.62471E+00 0.85076E+00 0.12509E+01 0.18002E+01 0.25502E+01 + 0.37591E+01 0.54232E+01 0.77011E+01 0.11177E+02 0.16419E+02 0.23649E+02 + 0.83874E-06 0.10999E-05 0.17550E-05 0.42264E-05 0.81018E-05 0.16092E-04 + 0.32059E-04 0.42986E-04 0.41402E-04 0.17054E-04 0.24288E-04 0.23038E-03 + 0.85012E-03 0.23068E-02 0.54692E-02 0.10824E-01 0.20355E-01 0.38154E-01 + 0.69562E-01 0.12099E+00 0.21746E+00 0.37078E+00 0.64498E+00 0.10911E+01 + 0.16003E+01 0.22980E+01 0.32494E+01 0.47836E+01 0.68936E+01 0.97787E+01 + 0.14181E+02 0.20819E+02 0.29964E+02 0.53978E-05 0.84478E-05 0.20709E-04 + 0.38923E-04 0.67124E-04 0.93343E-04 0.12531E-03 0.16409E-03 0.18973E-03 + 0.16502E-03 0.77344E-04 0.17441E-03 0.75400E-03 0.23223E-02 0.58411E-02 + 0.11903E-01 0.21862E-01 0.40993E-01 0.73034E-01 0.12630E+00 0.22352E+00 + 0.38229E+00 0.66034E+00 0.11120E+01 0.20329E+01 0.29326E+01 0.41389E+01 + 0.60863E+01 0.87619E+01 0.12417E+02 0.17996E+02 0.26406E+02 0.37983E+02 + 0.47627E-04 0.78778E-04 0.12018E-03 0.18323E-03 0.26849E-03 0.36413E-03 + 0.45645E-03 0.53127E-03 0.59335E-03 0.60053E-03 0.50515E-03 0.22773E-03 + 0.71936E-03 0.21756E-02 0.59557E-02 0.12513E-01 0.23536E-01 0.43232E-01 + 0.77241E-01 0.13212E+00 0.22996E+00 0.38906E+00 0.67660E+00 0.11321E+01 + 0.20606E+01 0.36804E+01 0.52983E+01 0.77836E+01 0.11194E+02 0.15849E+02 + 0.22958E+02 0.33677E+02 0.48421E+02 0.74462E-04 0.16803E-03 0.31724E-03 + 0.51551E-03 0.69908E-03 0.91469E-03 0.11015E-02 0.12848E-02 0.14271E-02 + 0.15019E-02 0.14726E-02 0.11775E-02 0.41064E-03 0.26763E-02 0.60697E-02 + 0.12780E-01 0.24470E-01 0.45500E-01 0.80513E-01 0.13663E+00 0.23706E+00 + 0.39638E+00 0.68536E+00 0.11531E+01 0.20933E+01 0.37214E+01 0.65328E+01 + 0.99561E+01 0.14303E+02 0.20230E+02 0.29290E+02 0.42955E+02 0.61739E+02 + 0.56010E-03 0.71666E-03 0.97093E-03 0.13466E-02 0.18421E-02 0.22988E-02 + 0.27315E-02 0.31102E-02 0.34334E-02 0.36462E-02 0.37980E-02 0.35998E-02 + 0.27222E-02 0.51451E-03 0.64364E-02 0.12743E-01 0.24684E-01 0.47154E-01 + 0.83830E-01 0.14146E+00 0.24406E+00 0.40442E+00 0.69486E+00 0.11607E+01 + 0.21250E+01 0.37748E+01 0.65917E+01 0.12069E+02 0.18735E+02 0.26465E+02 + 0.38299E+02 0.56158E+02 0.80693E+02 0.18348E-02 0.23395E-02 0.29922E-02 + 0.37050E-02 0.43995E-02 0.53074E-02 0.62383E-02 0.70045E-02 0.76569E-02 + 0.80656E-02 0.81822E-02 0.83043E-02 0.72551E-02 0.44480E-02 0.17697E-02 + 0.11190E-01 0.28523E-01 0.49367E-01 0.88804E-01 0.14922E+00 0.25595E+00 + 0.41957E+00 0.71508E+00 0.11834E+01 0.21583E+01 0.38488E+01 0.67229E+01 + 0.12250E+02 0.21887E+02 0.34744E+02 0.50216E+02 0.73578E+02 0.10563E+03 + 0.40798E-02 0.51860E-02 0.66074E-02 0.84413E-02 0.10531E-01 0.11633E-01 + 0.13046E-01 0.14679E-01 0.15714E-01 0.16599E-01 0.17020E-01 0.16927E-01 + 0.15670E-01 0.11998E-01 0.37908E-02 0.74973E-02 0.24030E-01 0.12877E+00 + 0.96650E-01 0.16209E+00 0.27633E+00 0.44701E+00 0.75363E+00 0.12316E+01 + 0.22319E+01 0.39512E+01 0.68967E+01 0.12613E+02 0.22376E+02 0.39202E+02 + 0.67016E+02 0.98016E+02 0.14048E+03 0.85070E-02 0.10788E-01 0.13706E-01 + 0.17450E-01 0.22265E-01 0.28479E-01 0.30347E-01 0.32455E-01 0.35079E-01 + 0.36382E-01 0.37447E-01 0.37380E-01 0.36146E-01 0.31149E-01 0.20349E-01 + 0.63997E-02 0.12595E-01 0.45755E-01 0.37924E+00 0.16464E+00 0.28563E+00 + 0.46079E+00 0.77525E+00 0.12559E+01 0.22755E+01 0.40119E+01 0.69654E+01 + 0.12749E+02 0.22800E+02 0.39698E+02 0.71247E+02 0.12908E+03 0.18476E+03 + 0.15127E-01 0.19144E-01 0.24262E-01 0.30797E-01 0.39157E-01 0.49876E-01 + 0.63628E-01 0.70281E-01 0.73005E-01 0.76035E-01 0.77694E-01 0.77559E-01 + 0.75302E-01 0.67792E-01 0.51681E-01 0.32216E-01 0.73839E-02 0.34640E-01 + 0.93714E-01 0.34616E+00 0.31519E+00 0.49812E+00 0.83484E+00 0.13355E+01 + 0.24092E+01 0.42106E+01 0.72387E+01 0.13161E+02 0.23381E+02 0.40944E+02 + 0.73154E+02 0.13274E+03 0.23653E+03 0.25723E-01 0.32501E-01 0.41111E-01 + 0.52068E-01 0.66029E-01 0.83842E-01 0.10658E+00 0.13562E+00 0.15608E+00 + 0.15874E+00 0.16101E+00 0.16046E+00 0.15512E+00 0.14254E+00 0.11765E+00 + 0.89324E-01 0.55423E-01 0.00000E+00 0.73685E-01 0.16733E+00 0.32403E+00 + 0.53053E+00 0.89724E+00 0.14243E+01 0.25726E+01 0.44638E+01 0.75969E+01 + 0.13716E+02 0.24167E+02 0.41984E+02 0.75299E+02 0.13652E+03 0.24159E+03 + 0.39598E-01 0.49963E-01 0.63099E-01 0.79770E-01 0.10094E+00 0.12787E+00 + 0.16208E+00 0.20557E+00 0.26072E+00 0.31342E+00 0.31604E+00 0.31555E+00 + 0.30879E+00 0.28734E+00 0.24701E+00 0.20323E+00 0.15372E+00 0.75977E-01 + 0.21551E-01 0.13752E+00 0.32688E+00 0.56162E+00 0.97530E+00 0.15457E+01 + 0.28095E+01 0.48428E+01 0.81485E+01 0.14584E+02 0.25426E+02 0.43712E+02 + 0.77760E+02 0.14101E+03 0.24979E+03 0.60422E-01 0.76129E-01 0.96012E-01 + 0.12119E+00 0.15308E+00 0.19352E+00 0.24475E+00 0.30960E+00 0.39147E+00 + 0.49376E+00 0.62008E+00 0.62112E+00 0.60822E+00 0.57706E+00 0.50798E+00 + 0.43531E+00 0.35685E+00 0.23890E+00 0.99146E-01 0.55939E-01 0.30103E+00 + 0.58395E+00 0.10761E+01 0.17202E+01 0.31724E+01 0.54380E+01 0.90311E+01 + 0.15984E+02 0.27482E+02 0.46586E+02 0.81922E+02 0.14712E+03 0.25932E+03 + 0.92207E-01 0.11602E+00 0.14612E+00 0.18416E+00 0.23228E+00 0.29313E+00 + 0.37000E+00 0.46702E+00 0.58909E+00 0.74113E+00 0.92840E+00 0.11513E+01 + 0.12178E+01 0.11567E+01 0.10448E+01 0.92085E+00 0.78629E+00 0.59243E+00 + 0.37410E+00 0.14701E+00 0.19777E+00 0.56605E+00 0.11937E+01 0.19647E+01 + 0.37309E+01 0.63803E+01 0.10448E+02 0.18243E+02 0.30816E+02 0.51286E+02 + 0.88770E+02 0.15722E+03 0.27361E+03 0.13681E+00 0.17191E+00 0.21622E+00 + 0.27217E+00 0.34283E+00 0.43208E+00 0.54459E+00 0.68628E+00 0.86417E+00 + 0.10853E+01 0.13574E+01 0.16817E+01 0.20543E+01 0.22358E+01 0.20360E+01 + 0.18345E+01 0.16184E+01 0.12972E+01 0.94900E+00 0.60483E+00 0.10195E+00 + 0.39813E+00 0.12305E+01 0.21877E+01 0.44120E+01 0.76092E+01 0.12344E+02 + 0.21316E+02 0.35376E+02 0.57734E+02 0.98184E+02 0.17113E+03 0.29335E+03 + 0.19924E+00 0.24993E+00 0.31389E+00 0.39458E+00 0.49637E+00 0.62471E+00 + 0.78633E+00 0.98948E+00 0.12440E+01 0.15598E+01 0.19474E+01 0.24092E+01 + 0.29408E+01 0.35016E+01 0.39092E+01 0.35366E+01 0.31598E+01 0.26297E+01 + 0.20324E+01 0.14623E+01 0.66127E+00 0.90126E-01 0.12999E+01 0.26025E+01 + 0.56284E+01 0.97702E+01 0.15644E+02 0.26576E+02 0.43098E+02 0.68587E+02 + 0.11391E+03 0.19422E+03 0.32608E+03 0.28910E+00 0.36193E+00 0.45377E+00 + 0.56958E+00 0.71553E+00 0.89939E+00 0.11307E+01 0.14210E+01 0.17842E+01 + 0.22342E+01 0.27862E+01 0.34439E+01 0.42024E+01 0.50100E+01 0.57494E+01 + 0.65368E+01 0.61244E+01 0.51885E+01 0.42079E+01 0.32445E+01 0.19200E+01 + 0.73358E+00 0.11146E+01 0.29875E+01 0.73144E+01 0.12949E+02 0.20579E+02 + 0.34495E+02 0.54688E+02 0.84772E+02 0.13720E+03 0.22813E+03 0.37385E+03 + 0.41638E+00 0.52003E+00 0.65065E+00 0.81529E+00 0.10227E+01 0.12838E+01 + 0.16119E+01 0.20235E+01 0.25381E+01 0.31751E+01 0.39561E+01 0.48874E+01 + 0.59645E+01 0.71212E+01 0.82071E+01 0.93816E+01 0.10615E+02 0.10075E+02 + 0.83622E+01 0.67837E+01 0.45939E+01 0.26624E+01 0.25804E+00 0.30683E+01 + 0.94991E+01 0.17487E+02 0.27815E+02 0.46253E+02 0.71880E+02 0.10863E+03 + 0.17126E+03 0.27731E+03 0.44248E+03 0.63745E+00 0.79354E+00 0.99027E+00 + 0.12381E+01 0.15502E+01 0.19430E+01 0.24364E+01 0.30554E+01 0.38286E+01 + 0.47873E+01 0.59641E+01 0.73736E+01 0.90164E+01 0.10813E+02 0.12574E+02 + 0.14532E+02 0.16669E+02 0.18340E+02 0.18736E+02 0.15968E+02 0.12299E+02 + 0.91723E+01 0.43785E+01 0.00000E+00 0.10005E+02 0.21862E+02 0.36470E+02 + 0.62068E+02 0.96009E+02 0.14263E+03 0.22030E+03 0.34839E+03 0.54126E+03 + 0.87013E+00 0.10790E+01 0.13420E+01 0.16734E+01 0.20904E+01 0.26150E+01 + 0.32737E+01 0.40992E+01 0.51298E+01 0.64052E+01 0.79684E+01 0.98371E+01 + 0.12008E+02 0.14373E+02 0.16675E+02 0.19217E+02 0.21968E+02 0.24068E+02 + 0.25745E+02 0.27235E+02 0.20923E+02 0.15459E+02 0.73865E+01 0.00000E+00 + 0.16389E+02 0.35137E+02 0.57340E+02 0.95184E+02 0.14320E+03 0.20642E+03 + 0.30874E+03 0.47227E+03 0.70948E+03 0.13236E+01 0.16325E+01 0.20217E+01 + 0.25118E+01 0.31287E+01 0.39044E+01 0.48785E+01 0.60992E+01 0.76236E+01 + 0.95117E+01 0.11830E+02 0.14610E+02 0.17862E+02 0.21452E+02 0.25058E+02 + 0.29112E+02 0.33607E+02 0.37439E+02 0.40983E+02 0.44649E+02 0.45158E+02 + 0.39340E+02 0.25528E+02 0.13373E+02 0.14032E+02 0.44403E+02 0.78994E+02 + 0.13682E+03 0.20699E+03 0.29534E+03 0.43473E+03 0.65080E+03 0.95155E+03 + 0.18997E+01 0.23304E+01 0.28728E+01 0.35561E+01 0.44158E+01 0.54970E+01 + 0.68548E+01 0.85566E+01 0.10682E+02 0.13318E+02 0.16559E+02 0.20459E+02 + 0.25047E+02 0.30173E+02 0.35450E+02 0.41464E+02 0.48255E+02 0.54467E+02 + 0.60668E+02 0.67485E+02 0.70921E+02 0.74891E+02 0.60930E+02 0.42142E+02 + 0.00000E+00 0.46303E+02 0.97582E+02 0.18206E+03 0.28115E+03 0.40150E+03 + 0.58754E+03 0.86868E+03 0.12463E+04 0.27347E+01 0.33325E+01 0.40855E+01 + 0.50336E+01 0.62266E+01 0.77273E+01 0.96120E+01 0.11974E+02 0.14925E+02 + 0.18588E+02 0.23098E+02 0.28542E+02 0.34978E+02 0.42238E+02 0.49856E+02 + 0.58639E+02 0.68686E+02 0.78335E+02 0.88411E+02 0.99842E+02 0.10772E+03 + 0.11728E+03 0.11563E+03 0.10095E+03 0.34882E+02 0.36477E+02 0.11491E+03 + 0.24191E+03 0.38637E+03 0.55605E+03 0.81307E+03 0.11918E+04 0.16822E+04 + 0.00000E+00 0.10061E-08 0.33255E-08 0.92496E-08 0.15491E-07 0.37425E-07 + 0.57874E-07 0.11374E-06 0.24947E-06 0.50083E-06 0.10602E-05 0.63841E-05 + 0.48906E-04 0.11754E-03 0.53780E-03 0.18010E-02 0.42158E-02 0.84527E-02 + 0.14769E-01 0.23193E-01 0.35973E-01 0.51638E-01 0.73824E-01 0.10228E+00 + 0.15240E+00 0.22196E+00 0.31790E+00 0.47326E+00 0.68974E+00 0.98996E+00 + 0.14535E+01 0.21635E+01 0.31649E+01 0.10061E-08 0.00000E+00 0.24303E-08 + 0.80095E-08 0.23545E-07 0.38904E-07 0.86422E-07 0.15845E-06 0.29644E-06 + 0.66877E-06 0.13751E-05 0.99026E-05 0.80710E-04 0.25515E-03 0.68935E-03 + 0.23012E-02 0.53715E-02 0.10744E-01 0.18735E-01 0.29370E-01 0.45490E-01 + 0.65219E-01 0.93134E-01 0.12889E+00 0.19186E+00 0.27912E+00 0.39929E+00 + 0.59364E+00 0.86386E+00 0.12376E+01 0.18132E+01 0.26918E+01 0.39252E+01 + 0.33255E-08 0.24303E-08 0.00000E+00 0.58417E-08 0.20661E-07 0.56213E-07 + 0.10782E-06 0.22542E-06 0.42746E-06 0.10077E-05 0.22320E-05 0.24543E-04 + 0.12314E-03 0.44142E-03 0.10776E-02 0.29512E-02 0.68643E-02 0.13690E-01 + 0.23812E-01 0.37254E-01 0.57603E-01 0.82466E-01 0.11761E+00 0.16259E+00 + 0.24175E+00 0.35134E+00 0.50208E+00 0.74559E+00 0.10836E+01 0.15500E+01 + 0.22668E+01 0.33577E+01 0.48832E+01 0.92496E-08 0.80095E-08 0.58417E-08 + 0.00000E+00 0.15747E-07 0.52749E-07 0.12913E-06 0.33775E-06 0.65929E-06 + 0.18246E-05 0.53294E-05 0.45914E-04 0.20305E-03 0.69003E-03 0.15985E-02 + 0.37226E-02 0.88032E-02 0.17493E-01 0.30338E-01 0.47344E-01 0.73055E-01 + 0.10441E+00 0.14869E+00 0.20529E+00 0.30493E+00 0.44268E+00 0.63195E+00 + 0.93746E+00 0.13608E+01 0.19440E+01 0.28387E+01 0.41973E+01 0.60909E+01 + 0.15491E-07 0.23545E-07 0.20661E-07 0.15747E-07 0.00000E+00 0.38883E-07 + 0.14958E-06 0.34235E-06 0.10318E-05 0.28465E-05 0.10318E-04 0.79465E-04 + 0.30957E-03 0.90762E-03 0.22919E-02 0.47342E-02 0.10164E-01 0.22427E-01 + 0.38753E-01 0.60294E-01 0.92814E-01 0.13238E+00 0.18821E+00 0.25947E+00 + 0.38494E+00 0.55827E+00 0.79612E+00 0.11798E+01 0.17108E+01 0.24412E+01 + 0.35600E+01 0.52561E+01 0.76136E+01 0.37425E-07 0.38904E-07 0.56213E-07 + 0.52749E-07 0.38883E-07 0.00000E+00 0.10641E-06 0.49390E-06 0.11961E-05 + 0.58902E-05 0.20552E-04 0.11093E-03 0.44177E-03 0.11718E-02 0.27839E-02 + 0.60758E-02 0.11898E-01 0.24666E-01 0.49657E-01 0.76979E-01 0.11815E+00 + 0.16810E+00 0.23853E+00 0.32829E+00 0.48639E+00 0.70458E+00 0.10037E+01 + 0.14860E+01 0.21527E+01 0.30686E+01 0.44700E+01 0.65910E+01 0.95329E+01 + 0.57874E-07 0.86422E-07 0.10782E-06 0.12913E-06 0.14958E-06 0.10641E-06 + 0.00000E+00 0.29675E-06 0.15389E-05 0.75780E-05 0.42189E-04 0.15389E-03 + 0.56179E-03 0.14181E-02 0.33706E-02 0.70107E-02 0.14177E-01 0.27399E-01 + 0.53068E-01 0.98544E-01 0.15073E+00 0.21382E+00 0.30269E+00 0.41580E+00 + 0.61513E+00 0.88991E+00 0.12663E+01 0.18730E+01 0.27108E+01 0.38604E+01 + 0.56177E+01 0.82744E+01 0.11953E+02 0.11374E-06 0.15845E-06 0.22542E-06 + 0.33775E-06 0.34235E-06 0.49390E-06 0.29675E-06 0.00000E+00 0.84923E-06 + 0.86464E-05 0.58054E-04 0.21125E-03 0.66077E-03 0.16680E-02 0.39214E-02 + 0.81011E-02 0.15740E-01 0.30960E-01 0.57013E-01 0.10349E+00 0.19274E+00 + 0.27247E+00 0.38466E+00 0.52716E+00 0.77858E+00 0.11248E+01 0.15985E+01 + 0.23619E+01 0.34151E+01 0.48592E+01 0.70647E+01 0.10396E+02 0.15001E+02 + 0.24947E-06 0.29644E-06 0.42746E-06 0.65929E-06 0.10318E-05 0.11961E-05 + 0.15389E-05 0.84923E-06 0.00000E+00 0.53203E-05 0.61613E-04 0.25568E-03 + 0.76067E-03 0.18806E-02 0.43929E-02 0.90369E-02 0.17509E-01 0.33239E-01 + 0.62064E-01 0.10880E+00 0.20002E+00 0.34780E+00 0.48943E+00 0.66890E+00 + 0.98609E+00 0.14222E+01 0.20185E+01 0.29794E+01 0.43040E+01 0.61179E+01 + 0.88884E+01 0.13069E+02 0.18841E+02 0.50083E-06 0.66877E-06 0.10077E-05 + 0.18246E-05 0.28465E-05 0.58902E-05 0.75780E-05 0.86464E-05 0.53203E-05 + 0.00000E+00 0.38606E-04 0.24548E-03 0.80091E-03 0.20546E-02 0.48020E-02 + 0.97378E-02 0.18844E-01 0.35682E-01 0.65165E-01 0.11528E+00 0.20687E+00 + 0.35825E+00 0.62293E+00 0.84872E+00 0.12488E+01 0.17980E+01 0.25481E+01 + 0.37575E+01 0.54229E+01 0.77022E+01 0.11181E+02 0.16430E+02 0.23668E+02 + 0.10602E-05 0.13751E-05 0.22320E-05 0.53294E-05 0.10318E-04 0.20552E-04 + 0.42189E-04 0.58054E-04 0.61613E-04 0.38606E-04 0.00000E+00 0.17033E-03 + 0.74437E-03 0.21446E-02 0.52280E-02 0.10470E-01 0.19856E-01 0.37409E-01 + 0.68447E-01 0.11932E+00 0.21483E+00 0.36687E+00 0.63908E+00 0.10760E+01 + 0.15802E+01 0.22713E+01 0.32140E+01 0.47352E+01 0.68281E+01 0.96902E+01 + 0.14059E+02 0.20648E+02 0.29728E+02 0.63841E-05 0.99026E-05 0.24543E-04 + 0.45914E-04 0.79465E-04 0.11093E-03 0.15389E-03 0.21125E-03 0.25568E-03 + 0.24548E-03 0.17033E-03 0.00000E+00 0.54100E-03 0.20052E-02 0.53700E-02 + 0.11207E-01 0.20798E-01 0.39549E-01 0.70875E-01 0.12310E+00 0.21883E+00 + 0.37513E+00 0.64943E+00 0.10957E+01 0.19927E+01 0.28602E+01 0.40420E+01 + 0.59521E+01 0.85776E+01 0.12166E+02 0.17646E+02 0.25911E+02 0.37294E+02 + 0.48906E-04 0.80710E-04 0.12314E-03 0.20305E-03 0.30957E-03 0.44177E-03 + 0.56179E-03 0.66077E-03 0.76067E-03 0.80091E-03 0.74437E-03 0.54100E-03 + 0.00000E+00 0.14977E-02 0.50276E-02 0.11163E-01 0.21585E-01 0.40345E-01 + 0.73181E-01 0.12618E+00 0.22123E+00 0.37632E+00 0.65725E+00 0.11023E+01 + 0.20155E+01 0.35845E+01 0.50609E+01 0.74536E+01 0.10739E+02 0.15228E+02 + 0.22089E+02 0.32443E+02 0.46693E+02 0.11754E-03 0.25515E-03 0.44142E-03 + 0.69003E-03 0.90762E-03 0.11718E-02 0.14181E-02 0.16680E-02 0.18806E-02 + 0.20546E-02 0.21446E-02 0.20052E-02 0.14977E-02 0.00000E+00 0.38090E-02 + 0.98550E-02 0.20318E-01 0.39622E-01 0.72135E-01 0.12464E+00 0.21957E+00 + 0.37093E+00 0.64763E+00 0.10964E+01 0.20042E+01 0.35874E+01 0.62819E+01 + 0.92657E+01 0.13360E+02 0.18950E+02 0.27513E+02 0.40448E+02 0.58247E+02 + 0.53780E-03 0.68935E-03 0.10776E-02 0.15985E-02 0.22919E-02 0.27839E-02 + 0.33706E-02 0.39214E-02 0.43929E-02 0.48020E-02 0.52280E-02 0.53700E-02 + 0.50276E-02 0.38090E-02 0.00000E+00 0.60908E-02 0.15995E-01 0.34940E-01 + 0.66597E-01 0.11711E+00 0.20905E+00 0.35405E+00 0.62105E+00 0.10523E+01 + 0.19603E+01 0.35135E+01 0.62011E+01 0.11387E+02 0.16457E+02 0.23378E+02 + 0.34012E+02 0.50109E+02 0.72259E+02 0.18010E-02 0.23012E-02 0.29512E-02 + 0.37226E-02 0.47342E-02 0.60758E-02 0.70107E-02 0.81011E-02 0.90369E-02 + 0.97378E-02 0.10470E-01 0.11207E-01 0.11163E-01 0.98550E-02 0.60908E-02 + 0.00000E+00 0.96847E-02 0.28562E-01 0.59730E-01 0.10866E+00 0.19830E+00 + 0.33777E+00 0.59659E+00 0.10115E+01 0.19007E+01 0.34608E+01 0.61046E+01 + 0.11317E+02 0.20322E+02 0.28900E+02 0.42122E+02 0.62176E+02 0.89762E+02 + 0.42158E-02 0.53715E-02 0.68643E-02 0.88032E-02 0.10164E-01 0.11898E-01 + 0.14177E-01 0.15740E-01 0.17509E-01 0.18844E-01 0.19856E-01 0.20798E-01 + 0.21585E-01 0.20318E-01 0.15995E-01 0.96847E-02 0.00000E+00 0.19216E-01 + 0.50378E-01 0.98207E-01 0.18647E+00 0.32134E+00 0.57379E+00 0.97451E+00 + 0.18495E+01 0.33830E+01 0.60480E+01 0.11224E+02 0.20302E+02 0.35826E+02 + 0.52289E+02 0.77304E+02 0.11170E+03 0.84527E-02 0.10744E-01 0.13690E-01 + 0.17493E-01 0.22427E-01 0.24666E-01 0.27399E-01 0.30960E-01 0.33239E-01 + 0.35682E-01 0.37409E-01 0.39549E-01 0.40345E-01 0.39622E-01 0.34940E-01 + 0.28562E-01 0.19216E-01 0.00000E+00 0.30503E-01 0.75972E-01 0.16126E+00 + 0.28860E+00 0.53089E+00 0.91085E+00 0.17648E+01 0.32586E+01 0.58542E+01 + 0.11066E+02 0.20029E+02 0.35601E+02 0.64590E+02 0.95720E+02 0.13849E+03 + 0.14769E-01 0.18735E-01 0.23812E-01 0.30338E-01 0.38753E-01 0.49657E-01 + 0.53068E-01 0.57013E-01 0.62064E-01 0.65165E-01 0.68447E-01 0.70875E-01 + 0.73181E-01 0.72135E-01 0.66597E-01 0.59730E-01 0.50378E-01 0.30503E-01 + 0.00000E+00 0.43581E-01 0.12695E+00 0.24746E+00 0.48160E+00 0.84277E+00 + 0.16829E+01 0.31473E+01 0.56850E+01 0.10829E+02 0.19892E+02 0.35307E+02 + 0.64551E+02 0.11887E+03 0.17214E+03 0.23193E-01 0.29370E-01 0.37254E-01 + 0.47344E-01 0.60294E-01 0.76979E-01 0.98544E-01 0.10349E+00 0.10880E+00 + 0.11528E+00 0.11932E+00 0.12310E+00 0.12618E+00 0.12464E+00 0.11711E+00 + 0.10866E+00 0.98207E-01 0.75972E-01 0.43581E-01 0.00000E+00 0.84555E-01 + 0.20152E+00 0.43345E+00 0.78317E+00 0.16264E+01 0.30854E+01 0.56002E+01 + 0.10732E+02 0.19749E+02 0.35454E+02 0.64694E+02 0.11990E+03 0.21529E+03 + 0.35973E-01 0.45490E-01 0.57603E-01 0.73055E-01 0.92814E-01 0.11815E+00 + 0.15073E+00 0.19274E+00 0.20002E+00 0.20687E+00 0.21483E+00 0.21883E+00 + 0.22123E+00 0.21957E+00 0.20905E+00 0.19830E+00 0.18647E+00 0.16126E+00 + 0.12695E+00 0.84555E-01 0.00000E+00 0.10982E+00 0.33588E+00 0.66657E+00 + 0.15096E+01 0.29564E+01 0.54355E+01 0.10545E+02 0.19487E+02 0.35026E+02 + 0.64784E+02 0.11995E+03 0.21665E+03 0.51638E-01 0.65219E-01 0.82466E-01 + 0.10441E+00 0.13238E+00 0.16810E+00 0.21382E+00 0.27247E+00 0.34780E+00 + 0.35825E+00 0.36687E+00 0.37513E+00 0.37632E+00 0.37093E+00 0.35405E+00 + 0.33777E+00 0.32134E+00 0.28860E+00 0.24746E+00 0.20152E+00 0.10982E+00 + 0.00000E+00 0.23243E+00 0.55858E+00 0.14336E+01 0.29132E+01 0.54204E+01 + 0.10619E+02 0.19644E+02 0.35234E+02 0.65126E+02 0.12191E+03 0.21923E+03 + 0.73824E-01 0.93134E-01 0.11761E+00 0.14869E+00 0.18821E+00 0.23853E+00 + 0.30269E+00 0.38466E+00 0.48943E+00 0.62293E+00 0.63908E+00 0.64943E+00 + 0.65725E+00 0.64763E+00 0.62105E+00 0.59659E+00 0.57379E+00 0.53089E+00 + 0.48160E+00 0.43345E+00 0.33588E+00 0.23243E+00 0.00000E+00 0.30747E+00 + 0.12091E+01 0.27091E+01 0.52212E+01 0.10493E+02 0.19565E+02 0.35135E+02 + 0.65039E+02 0.12191E+03 0.22159E+03 0.10228E+00 0.12889E+00 0.16259E+00 + 0.20529E+00 0.25947E+00 0.32829E+00 0.41580E+00 0.52716E+00 0.66890E+00 + 0.84872E+00 0.10760E+01 0.10957E+01 0.11023E+01 0.10964E+01 0.10523E+01 + 0.10115E+01 0.97451E+00 0.91085E+00 0.84277E+00 0.78317E+00 0.66657E+00 + 0.55858E+00 0.30747E+00 0.00000E+00 0.97615E+00 0.25591E+01 0.51607E+01 + 0.10656E+02 0.19987E+02 0.35836E+02 0.66235E+02 0.12389E+03 0.22448E+03 + 0.15240E+00 0.19186E+00 0.24175E+00 0.30493E+00 0.38494E+00 0.48639E+00 + 0.61513E+00 0.77858E+00 0.98609E+00 0.12488E+01 0.15802E+01 0.19927E+01 + 0.20155E+01 0.20042E+01 0.19603E+01 0.19007E+01 0.18495E+01 0.17648E+01 + 0.16829E+01 0.16264E+01 0.15096E+01 0.14336E+01 0.12091E+01 0.97615E+00 + 0.00000E+00 0.15495E+01 0.40624E+01 0.95572E+01 0.18794E+02 0.34370E+02 + 0.64473E+02 0.12174E+03 0.22125E+03 0.22196E+00 0.27912E+00 0.35134E+00 + 0.44268E+00 0.55827E+00 0.70458E+00 0.88991E+00 0.11248E+01 0.14222E+01 + 0.17980E+01 0.22713E+01 0.28602E+01 0.35845E+01 0.35874E+01 0.35135E+01 + 0.34608E+01 0.33830E+01 0.32586E+01 0.31473E+01 0.30854E+01 0.29564E+01 + 0.29132E+01 0.27091E+01 0.25591E+01 0.15495E+01 0.00000E+00 0.24598E+01 + 0.80607E+01 0.17338E+02 0.32817E+02 0.62957E+02 0.12040E+03 0.21960E+03 + 0.31790E+00 0.39929E+00 0.50208E+00 0.63195E+00 0.79612E+00 0.10037E+01 + 0.12663E+01 0.15985E+01 0.20185E+01 0.25481E+01 0.32140E+01 0.40420E+01 + 0.50609E+01 0.62819E+01 0.62011E+01 0.61046E+01 0.60480E+01 0.58542E+01 + 0.56850E+01 0.56002E+01 0.54355E+01 0.54204E+01 0.52212E+01 0.51607E+01 + 0.40624E+01 0.24598E+01 0.00000E+00 0.58571E+01 0.15355E+02 0.30963E+02 + 0.61569E+02 0.11992E+03 0.21980E+03 0.47326E+00 0.59364E+00 0.74559E+00 + 0.93746E+00 0.11798E+01 0.14860E+01 0.18730E+01 0.23619E+01 0.29794E+01 + 0.37575E+01 0.47352E+01 0.59521E+01 0.74536E+01 0.92657E+01 0.11387E+02 + 0.11317E+02 0.11224E+02 0.11066E+02 0.10829E+02 0.10732E+02 0.10545E+02 + 0.10619E+02 0.10493E+02 0.10656E+02 0.95572E+01 0.80607E+01 0.58571E+01 + 0.00000E+00 0.92972E+01 0.24373E+02 0.54613E+02 0.11277E+03 0.21152E+03 + 0.68974E+00 0.86386E+00 0.10836E+01 0.13608E+01 0.17108E+01 0.21527E+01 + 0.27108E+01 0.34151E+01 0.43040E+01 0.54229E+01 0.68281E+01 0.85776E+01 + 0.10739E+02 0.13360E+02 0.16457E+02 0.20322E+02 0.20302E+02 0.20029E+02 + 0.19892E+02 0.19749E+02 0.19487E+02 0.19644E+02 0.19565E+02 0.19987E+02 + 0.18794E+02 0.17338E+02 0.15355E+02 0.92972E+01 0.00000E+00 0.14758E+02 + 0.45140E+02 0.10403E+03 0.20287E+03 0.98996E+00 0.12376E+01 0.15500E+01 + 0.19440E+01 0.24412E+01 0.30686E+01 0.38604E+01 0.48592E+01 0.61179E+01 + 0.77022E+01 0.96902E+01 0.12166E+02 0.15228E+02 0.18950E+02 0.23378E+02 + 0.28900E+02 0.35826E+02 0.35601E+02 0.35307E+02 0.35454E+02 0.35026E+02 + 0.35234E+02 0.35135E+02 0.35836E+02 0.34370E+02 0.32817E+02 0.30963E+02 + 0.24373E+02 0.14758E+02 0.00000E+00 0.31236E+02 0.92125E+02 0.19266E+03 + 0.14535E+01 0.18132E+01 0.22668E+01 0.28387E+01 0.35600E+01 0.44700E+01 + 0.56177E+01 0.70647E+01 0.88884E+01 0.11181E+02 0.14059E+02 0.17646E+02 + 0.22089E+02 0.27513E+02 0.34012E+02 0.42122E+02 0.52289E+02 0.64590E+02 + 0.64551E+02 0.64694E+02 0.64784E+02 0.65126E+02 0.65039E+02 0.66235E+02 + 0.64473E+02 0.62957E+02 0.61569E+02 0.54613E+02 0.45140E+02 0.31236E+02 + 0.00000E+00 0.61981E+02 0.16249E+03 0.21635E+01 0.26918E+01 0.33577E+01 + 0.41973E+01 0.52561E+01 0.65910E+01 0.82744E+01 0.10396E+02 0.13069E+02 + 0.16430E+02 0.20648E+02 0.25911E+02 0.32443E+02 0.40448E+02 0.50109E+02 + 0.62176E+02 0.77304E+02 0.95720E+02 0.11887E+03 0.11990E+03 0.11995E+03 + 0.12191E+03 0.12191E+03 0.12389E+03 0.12174E+03 0.12040E+03 0.11992E+03 + 0.11277E+03 0.10403E+03 0.92125E+02 0.61981E+02 0.00000E+00 0.98389E+02 + 0.31649E+01 0.39252E+01 0.48832E+01 0.60909E+01 0.76136E+01 0.95329E+01 + 0.11953E+02 0.15001E+02 0.18841E+02 0.23668E+02 0.29728E+02 0.37294E+02 + 0.46693E+02 0.58247E+02 0.72259E+02 0.89762E+02 0.11170E+03 0.13849E+03 + 0.17214E+03 0.21529E+03 0.21665E+03 0.21923E+03 0.22159E+03 0.22448E+03 + 0.22125E+03 0.21960E+03 0.21980E+03 0.21152E+03 0.20287E+03 0.19266E+03 + 0.16249E+03 0.98389E+02 0.00000E+00 0.37274E-09 0.31548E-09 0.20343E-08 + 0.45022E-08 0.13863E-07 0.19277E-07 0.38944E-07 0.79951E-07 0.17661E-06 + 0.37308E-06 0.77202E-06 0.33509E-05 0.24245E-04 0.87978E-04 0.40372E-03 + 0.13559E-02 0.31829E-02 0.63971E-02 0.11200E-01 0.17618E-01 0.27367E-01 + 0.39336E-01 0.56311E-01 0.78114E-01 0.11655E+00 0.16998E+00 0.24385E+00 + 0.36369E+00 0.53121E+00 0.76446E+00 0.11260E+01 0.16825E+01 0.24727E+01 + 0.12672E-08 0.92981E-09 0.72336E-09 0.48437E-08 0.11494E-07 0.32784E-07 + 0.50568E-07 0.10287E-06 0.23477E-06 0.47077E-06 0.10002E-05 0.58349E-05 + 0.44115E-04 0.11232E-03 0.51472E-03 0.17253E-02 0.40417E-02 0.81091E-02 + 0.14175E-01 0.22268E-01 0.34550E-01 0.49608E-01 0.70944E-01 0.98306E-01 + 0.14652E+00 0.21344E+00 0.30577E+00 0.45534E+00 0.66382E+00 0.95312E+00 + 0.14001E+01 0.20851E+01 0.30520E+01 0.37590E-08 0.30399E-08 0.22140E-08 + 0.17666E-08 0.12815E-07 0.29239E-07 0.71945E-07 0.13774E-06 0.27300E-06 + 0.60187E-06 0.12894E-05 0.91186E-05 0.74080E-04 0.22728E-03 0.65857E-03 + 0.22016E-02 0.51442E-02 0.10298E-01 0.17968E-01 0.28182E-01 0.43667E-01 + 0.62624E-01 0.89457E-01 0.12383E+00 0.18438E+00 0.26831E+00 0.38392E+00 + 0.57095E+00 0.83109E+00 0.11911E+01 0.17457E+01 0.25926E+01 0.37825E+01 + 0.93469E-08 0.97045E-08 0.80186E-08 0.63898E-08 0.42064E-08 0.30282E-07 + 0.80217E-07 0.17313E-06 0.36758E-06 0.89324E-06 0.17415E-05 0.21236E-04 + 0.11358E-03 0.40263E-03 0.99753E-03 0.28173E-02 0.65622E-02 0.13103E-01 + 0.22812E-01 0.35711E-01 0.55248E-01 0.79128E-01 0.11290E+00 0.15611E+00 + 0.23222E+00 0.33758E+00 0.48253E+00 0.71678E+00 0.10420E+01 0.14910E+01 + 0.21812E+01 0.32322E+01 0.47028E+01 0.21868E-07 0.23254E-07 0.24252E-07 + 0.20275E-07 0.15215E-07 0.11129E-07 0.75924E-07 0.24948E-06 0.50400E-06 + 0.15236E-05 0.44819E-05 0.39888E-04 0.18378E-03 0.63422E-03 0.14867E-02 + 0.35547E-02 0.83951E-02 0.16710E-01 0.29015E-01 0.45320E-01 0.69986E-01 + 0.10008E+00 0.14260E+00 0.19695E+00 0.29268E+00 0.42505E+00 0.60700E+00 + 0.90075E+00 0.13079E+01 0.18691E+01 0.27302E+01 0.40383E+01 0.58627E+01 + 0.36216E-07 0.54635E-07 0.58262E-07 0.61135E-07 0.50065E-07 0.37570E-07 + 0.35453E-07 0.21822E-06 0.75181E-06 0.20818E-05 0.85678E-05 0.69269E-04 + 0.28170E-03 0.84913E-03 0.21311E-02 0.44979E-02 0.98370E-02 0.21363E-01 + 0.36978E-01 0.57603E-01 0.88766E-01 0.12670E+00 0.18026E+00 0.24865E+00 + 0.36913E+00 0.53559E+00 0.76408E+00 0.11328E+01 0.16433E+01 0.23457E+01 + 0.34220E+01 0.50541E+01 0.73238E+01 0.79740E-07 0.90601E-07 0.13475E-06 + 0.14649E-06 0.15212E-06 0.12489E-06 0.95141E-07 0.11721E-06 0.72765E-06 + 0.40986E-05 0.15592E-04 0.96406E-04 0.39518E-03 0.11002E-02 0.26368E-02 + 0.57310E-02 0.11429E-01 0.24034E-01 0.47217E-01 0.73324E-01 0.11271E+00 + 0.16053E+00 0.22802E+00 0.31405E+00 0.46573E+00 0.67511E+00 0.96222E+00 + 0.14254E+01 0.20660E+01 0.29462E+01 0.42934E+01 0.63334E+01 0.91639E+01 + 0.12734E-06 0.18684E-06 0.23839E-06 0.31583E-06 0.38631E-06 0.39042E-06 + 0.31091E-06 0.29251E-06 0.34028E-06 0.45485E-05 0.28973E-04 0.12725E-03 + 0.49524E-03 0.13011E-02 0.31835E-02 0.66723E-02 0.13480E-01 0.26474E-01 + 0.51828E-01 0.93444E-01 0.14324E+00 0.20350E+00 0.28851E+00 0.39672E+00 + 0.58767E+00 0.85105E+00 0.12119E+01 0.17940E+01 0.25981E+01 0.37020E+01 + 0.53902E+01 0.79435E+01 0.11480E+02 0.24737E-06 0.34577E-06 0.53371E-06 + 0.77428E-06 0.94278E-06 0.12872E-05 0.11202E-05 0.81545E-06 0.98869E-06 + 0.17553E-05 0.33245E-04 0.15300E-03 0.55395E-03 0.14820E-02 0.36075E-02 + 0.76440E-02 0.14962E-01 0.29524E-01 0.55099E-01 0.10085E+00 0.18195E+00 + 0.25780E+00 0.36475E+00 0.50065E+00 0.74095E+00 0.10720E+01 0.15253E+01 + 0.22567E+01 0.32662E+01 0.46508E+01 0.67670E+01 0.99650E+01 0.14388E+02 + 0.51814E-06 0.65019E-06 0.94473E-06 0.15495E-05 0.24216E-05 0.30891E-05 + 0.41183E-05 0.31590E-05 0.20433E-05 0.53069E-05 0.13068E-04 0.14923E-03 + 0.57156E-03 0.15885E-02 0.39259E-02 0.82898E-02 0.16424E-01 0.31511E-01 + 0.59091E-01 0.10472E+00 0.19405E+00 0.32628E+00 0.46068E+00 0.63108E+00 + 0.93321E+00 0.13491E+01 0.19181E+01 0.28367E+01 0.41036E+01 0.58398E+01 + 0.84932E+01 0.12501E+02 0.18038E+02 0.10960E-05 0.14600E-05 0.20102E-05 + 0.33381E-05 0.58517E-05 0.10906E-04 0.15309E-04 0.18416E-04 0.14414E-04 + 0.99049E-05 0.37893E-04 0.58367E-04 0.47697E-03 0.15551E-02 0.40512E-02 + 0.86180E-02 0.17092E-01 0.33146E-01 0.61224E-01 0.10891E+00 0.19764E+00 + 0.34445E+00 0.57968E+00 0.79254E+00 0.11717E+01 0.16930E+01 0.24058E+01 + 0.35580E+01 0.51460E+01 0.73213E+01 0.10646E+02 0.15667E+02 0.22598E+02 + 0.21951E-05 0.26134E-05 0.46700E-05 0.10695E-04 0.20873E-04 0.40709E-04 + 0.88370E-04 0.12325E-03 0.14430E-03 0.12711E-03 0.11578E-03 0.15191E-03 + 0.17540E-03 0.12689E-02 0.39177E-02 0.85330E-02 0.17088E-01 0.33287E-01 + 0.62258E-01 0.11001E+00 0.20016E+00 0.34511E+00 0.60619E+00 0.98815E+00 + 0.14621E+01 0.21133E+01 0.30030E+01 0.44445E+01 0.64305E+01 0.91497E+01 + 0.13310E+02 0.19594E+02 0.28261E+02 0.10886E-04 0.18208E-04 0.41281E-04 + 0.77116E-04 0.13243E-03 0.19429E-03 0.29228E-03 0.44662E-03 0.58394E-03 + 0.63797E-03 0.60588E-03 0.73064E-03 0.50647E-03 0.43855E-03 0.30965E-02 + 0.79034E-02 0.15971E-01 0.32535E-01 0.60758E-01 0.10802E+00 0.19633E+00 + 0.34036E+00 0.59723E+00 0.10168E+01 0.18028E+01 0.26107E+01 0.37144E+01 + 0.55094E+01 0.79823E+01 0.11368E+02 0.16556E+02 0.24401E+02 0.35218E+02 + 0.70077E-04 0.11640E-03 0.18752E-03 0.35131E-03 0.57351E-03 0.85967E-03 + 0.11128E-02 0.13542E-02 0.16236E-02 0.18213E-02 0.19210E-02 0.20250E-02 + 0.28857E-02 0.13268E-02 0.10923E-02 0.55917E-02 0.13646E-01 0.29064E-01 + 0.56716E-01 0.10213E+00 0.18600E+00 0.32361E+00 0.57628E+00 0.98077E+00 + 0.18304E+01 0.31798E+01 0.45376E+01 0.67599E+01 0.98214E+01 0.14014E+02 + 0.20456E+02 0.30217E+02 0.43677E+02 0.26123E-03 0.50493E-03 0.82839E-03 + 0.12401E-02 0.16320E-02 0.20827E-02 0.25242E-02 0.30040E-02 0.34750E-02 + 0.39529E-02 0.43889E-02 0.46683E-02 0.49250E-02 0.82411E-02 0.22592E-02 + 0.17933E-02 0.90752E-02 0.23940E-01 0.49889E-01 0.92625E-01 0.17262E+00 + 0.30169E+00 0.54390E+00 0.93769E+00 0.17644E+01 0.32225E+01 0.55137E+01 + 0.82593E+01 0.12042E+02 0.17223E+02 0.25213E+02 0.37343E+02 0.54072E+02 + 0.63678E-03 0.85820E-03 0.14523E-02 0.22403E-02 0.32207E-02 0.39885E-02 + 0.48840E-02 0.57762E-02 0.65773E-02 0.73566E-02 0.82302E-02 0.89181E-02 + 0.93407E-02 0.96342E-02 0.19552E-01 0.36486E-02 0.29104E-02 0.17024E-01 + 0.41623E-01 0.81753E-01 0.15806E+00 0.27964E+00 0.51081E+00 0.88739E+00 + 0.17063E+01 0.31304E+01 0.56189E+01 0.10108E+02 0.14787E+02 0.21197E+02 + 0.31112E+02 0.46202E+02 0.67010E+02 0.23430E-02 0.29961E-02 0.38486E-02 + 0.49801E-02 0.64757E-02 0.83217E-02 0.96922E-02 0.11238E-01 0.12664E-01 + 0.13860E-01 0.15337E-01 0.16899E-01 0.17923E-01 0.18099E-01 0.16966E-01 + 0.36813E-01 0.81878E-02 0.46197E-02 0.27025E-01 0.63202E-01 0.13383E+00 + 0.24507E+00 0.46096E+00 0.81088E+00 0.15990E+01 0.29967E+01 0.54053E+01 + 0.10250E+02 0.18002E+02 0.25893E+02 0.38155E+02 0.56869E+02 0.82683E+02 + 0.55924E-02 0.71303E-02 0.91199E-02 0.11538E-01 0.13446E-01 0.15957E-01 + 0.19036E-01 0.21311E-01 0.23782E-01 0.25847E-01 0.27539E-01 0.29981E-01 + 0.32215E-01 0.32953E-01 0.31450E-01 0.29276E-01 0.66257E-01 0.12997E-01 + 0.73337E-02 0.39602E-01 0.10489E+00 0.20601E+00 0.40754E+00 0.73176E+00 + 0.14883E+01 0.28404E+01 0.52147E+01 0.99641E+01 0.18384E+02 0.31684E+02 + 0.46869E+02 0.70108E+02 0.10216E+03 0.10680E-01 0.13583E-01 0.17318E-01 + 0.22149E-01 0.27822E-01 0.30774E-01 0.34626E-01 0.39302E-01 0.42580E-01 + 0.46042E-01 0.49039E-01 0.52461E-01 0.55429E-01 0.57309E-01 0.56137E-01 + 0.54461E-01 0.52050E-01 0.11140E+00 0.23579E-01 0.38806E-02 0.62863E-01 + 0.15202E+00 0.33722E+00 0.63224E+00 0.13552E+01 0.26499E+01 0.49408E+01 + 0.96571E+01 0.17903E+02 0.32369E+02 0.57446E+02 0.86289E+02 0.12605E+03 + 0.18964E-01 0.24067E-01 0.30607E-01 0.39022E-01 0.49897E-01 0.62385E-01 + 0.66684E-01 0.72244E-01 0.78906E-01 0.83387E-01 0.88224E-01 0.92638E-01 + 0.97964E-01 0.10041E+00 0.99712E-01 0.99229E-01 0.98453E-01 0.91467E-01 + 0.20611E+00 0.56144E-01 0.61598E-02 0.66524E-01 0.22981E+00 0.48664E+00 + 0.11670E+01 0.23902E+01 0.45613E+01 0.91372E+01 0.17288E+02 0.31383E+02 + 0.58573E+02 0.10566E+03 0.15487E+03 0.31539E-01 0.39956E-01 0.50705E-01 + 0.64480E-01 0.82192E-01 0.10507E+00 0.13098E+00 0.13725E+00 0.14525E+00 + 0.15463E+00 0.16144E+00 0.16908E+00 0.17698E+00 0.18114E+00 0.18147E+00 + 0.18328E+00 0.18646E+00 0.18297E+00 0.17799E+00 0.45182E+00 0.13369E+00 + 0.88005E-01 0.39599E-01 0.23713E+00 0.84974E+00 0.19636E+01 0.39570E+01 + 0.82863E+01 0.16075E+02 0.29821E+02 0.56186E+02 0.10692E+03 0.18823E+03 + 0.51989E-01 0.65766E-01 0.83312E-01 0.10572E+00 0.13442E+00 0.17131E+00 + 0.21889E+00 0.27237E+00 0.28214E+00 0.29419E+00 0.30813E+00 0.31810E+00 + 0.32859E+00 0.33751E+00 0.34014E+00 0.34646E+00 0.35707E+00 0.36231E+00 + 0.36911E+00 0.38664E+00 0.10140E+01 0.37727E+00 0.31043E+00 0.20954E+00 + 0.28955E+00 0.12263E+01 0.29407E+01 0.68835E+01 0.14047E+02 0.26860E+02 + 0.52278E+02 0.10105E+03 0.18785E+03 0.79033E-01 0.99846E-01 0.12630E+00 + 0.15999E+00 0.20299E+00 0.25803E+00 0.32869E+00 0.41973E+00 0.52139E+00 + 0.53571E+00 0.55288E+00 0.57135E+00 0.58380E+00 0.59359E+00 0.59700E+00 + 0.60673E+00 0.62413E+00 0.63677E+00 0.65615E+00 0.69160E+00 0.71271E+00 + 0.75877E+00 0.74859E+00 0.73919E+00 0.33262E+00 0.45964E+00 0.19466E+01 + 0.56016E+01 0.12292E+02 0.24325E+02 0.48732E+02 0.96815E+02 0.18133E+03 + 0.12071E+00 0.15233E+00 0.19243E+00 0.24339E+00 0.30828E+00 0.39107E+00 + 0.49695E+00 0.63274E+00 0.80742E+00 0.10016E+01 0.10271E+01 0.10561E+01 + 0.10864E+01 0.11015E+01 0.11081E+01 0.11259E+01 0.11575E+01 0.11869E+01 + 0.12330E+01 0.13116E+01 0.13875E+01 0.15208E+01 0.16214E+01 0.17825E+01 + 0.15645E+01 0.10560E+01 0.00000E+00 0.30900E+01 0.88916E+01 0.19512E+02 + 0.41834E+02 0.87024E+02 0.16832E+03 0.17883E+00 0.22543E+00 0.28444E+00 + 0.35931E+00 0.45442E+00 0.57544E+00 0.72976E+00 0.92692E+00 0.11794E+01 + 0.15031E+01 0.18612E+01 0.19022E+01 0.19476E+01 0.19891E+01 0.19968E+01 + 0.20222E+01 0.20701E+01 0.21179E+01 0.21955E+01 0.23275E+01 0.24699E+01 + 0.27109E+01 0.29441E+01 0.33092E+01 0.33011E+01 0.31044E+01 0.25145E+01 + 0.00000E+00 0.49050E+01 0.14114E+02 0.34418E+02 0.76621E+02 0.15349E+03 + 0.27051E+00 0.34063E+00 0.42934E+00 0.54175E+00 0.68428E+00 0.86525E+00 + 0.10955E+01 0.13888E+01 0.17630E+01 0.22410E+01 0.28522E+01 0.35222E+01 + 0.35880E+01 0.36534E+01 0.37037E+01 0.37428E+01 0.38180E+01 0.38983E+01 + 0.40300E+01 0.42515E+01 0.45065E+01 0.49253E+01 0.53790E+01 0.60755E+01 + 0.64203E+01 0.67374E+01 0.68993E+01 0.53220E+01 0.18385E+01 0.51907E+01 + 0.22406E+02 0.60096E+02 0.12974E+03 0.41249E+00 0.51886E+00 0.65332E+00 + 0.82343E+00 0.10389E+01 0.13121E+01 0.16588E+01 0.20996E+01 0.26605E+01 + 0.33748E+01 0.42851E+01 0.54417E+01 0.67026E+01 0.67980E+01 0.68819E+01 + 0.70172E+01 0.71352E+01 0.72667E+01 0.74841E+01 0.78464E+01 0.82791E+01 + 0.89753E+01 0.97728E+01 0.10978E+02 0.11870E+02 0.12971E+02 0.14260E+02 + 0.14081E+02 0.12672E+02 0.87553E+01 0.41201E+01 0.35566E+02 0.95398E+02 + 0.62898E+00 0.79025E+00 0.99397E+00 0.12515E+01 0.15773E+01 0.19899E+01 + 0.25127E+01 0.31760E+01 0.40184E+01 0.50885E+01 0.64489E+01 0.81736E+01 + 0.10357E+02 0.12711E+02 0.12832E+02 0.13052E+02 0.13376E+02 0.13582E+02 + 0.13928E+02 0.14503E+02 0.15205E+02 0.16319E+02 0.17633E+02 0.19596E+02 + 0.21299E+02 0.23553E+02 0.26474E+02 0.28295E+02 0.29802E+02 0.30172E+02 + 0.23165E+02 0.00000E+00 0.47049E+02 0.95487E+00 0.11981E+01 0.15053E+01 + 0.18932E+01 0.23838E+01 0.30040E+01 0.37892E+01 0.47839E+01 0.60447E+01 + 0.76438E+01 0.96720E+01 0.12239E+02 0.15484E+02 0.19562E+02 0.23914E+02 + 0.24232E+02 0.24746E+02 0.25329E+02 0.25860E+02 0.26746E+02 0.27840E+02 + 0.29569E+02 0.31640E+02 0.34709E+02 0.37588E+02 0.41496E+02 0.46736E+02 + 0.51364E+02 0.56893E+02 0.63076E+02 0.63865E+02 0.51479E+02 0.20764E+02 + 0.14691E+01 0.18405E+01 0.23093E+01 0.29012E+01 0.36489E+01 0.45938E+01 + 0.57889E+01 0.73006E+01 0.92144E+01 0.11638E+02 0.14708E+02 0.18588E+02 + 0.23488E+02 0.29645E+02 0.37339E+02 0.45799E+02 0.46573E+02 0.47529E+02 + 0.48876E+02 0.50259E+02 0.51983E+02 0.54689E+02 0.57964E+02 0.62780E+02 + 0.67536E+02 0.74068E+02 0.82949E+02 0.91992E+02 0.10377E+03 0.11883E+03 + 0.13142E+03 0.13517E+03 0.12842E+03 0.22302E+01 0.27892E+01 0.34944E+01 + 0.43843E+01 0.55079E+01 0.69269E+01 0.87199E+01 0.10987E+02 0.13852E+02 + 0.17478E+02 0.22064E+02 0.27854E+02 0.35158E+02 0.44333E+02 0.55806E+02 + 0.70468E+02 0.86666E+02 0.88056E+02 0.90177E+02 0.93242E+02 0.95845E+02 + 0.99940E+02 0.10492E+03 0.11221E+03 0.11959E+03 0.12978E+03 0.14371E+03 + 0.15878E+03 0.17900E+03 0.20590E+03 0.23391E+03 0.25828E+03 0.28162E+03 + 0.34412E+01 0.42947E+01 0.53709E+01 0.67287E+01 0.84420E+01 0.10605E+02 + 0.13337E+02 0.16786E+02 0.21146E+02 0.26655E+02 0.33617E+02 0.42401E+02 + 0.53477E+02 0.67390E+02 0.84803E+02 0.10699E+03 0.13543E+03 0.16648E+03 + 0.16967E+03 0.17458E+03 0.18050E+03 0.18681E+03 0.19450E+03 0.20573E+03 + 0.21730E+03 0.23333E+03 0.25527E+03 0.27995E+03 0.31351E+03 0.35891E+03 + 0.41089E+03 0.46711E+03 0.53615E+03 0.52780E+01 0.65700E+01 0.81990E+01 + 0.10254E+02 0.12845E+02 0.16116E+02 0.20244E+02 0.25456E+02 0.32037E+02 + 0.40345E+02 0.50839E+02 0.64071E+02 0.80746E+02 0.10170E+03 0.12793E+03 + 0.16128E+03 0.20387E+03 0.25791E+03 0.31782E+03 0.32512E+03 0.33446E+03 + 0.34766E+03 0.35931E+03 0.37630E+03 0.39397E+03 0.41847E+03 0.45202E+03 + 0.49053E+03 0.54316E+03 0.61477E+03 0.70033E+03 0.80049E+03 0.93164E+03 + 0.48655E-10 0.83987E-09 0.26006E-08 0.69326E-08 0.12071E-07 0.32137E-07 + 0.42184E-07 0.80674E-07 0.16335E-06 0.36023E-06 0.74732E-06 0.15597E-05 + 0.56193E-05 0.29745E-04 0.17372E-03 0.46075E-03 0.17002E-02 0.40709E-02 + 0.77953E-02 0.13873E-01 0.23117E-01 0.38168E-01 0.58109E-01 0.88887E-01 + 0.13187E+00 0.19978E+00 0.30511E+00 0.46607E+00 0.70900E+00 0.10934E+01 + 0.16649E+01 0.25778E+01 0.39706E+01 0.60526E-09 0.15447E-09 0.20390E-08 + 0.68114E-08 0.17332E-07 0.30248E-07 0.78395E-07 0.10778E-06 0.21847E-06 + 0.48111E-06 0.98866E-06 0.20309E-05 0.93845E-05 0.57639E-04 0.22214E-03 + 0.58752E-03 0.21641E-02 0.51706E-02 0.98830E-02 0.17561E-01 0.29223E-01 + 0.48196E-01 0.73297E-01 0.11200E+00 0.16598E+00 0.25118E+00 0.38316E+00 + 0.58449E+00 0.88778E+00 0.13666E+01 0.20760E+01 0.32058E+01 0.49216E+01 + 0.21435E-08 0.13836E-08 0.40868E-09 0.56022E-08 0.17202E-07 0.43672E-07 + 0.76044E-07 0.16492E-06 0.30110E-06 0.58102E-06 0.13204E-05 0.24447E-05 + 0.14403E-04 0.99666E-04 0.41792E-03 0.75208E-03 0.27629E-02 0.65839E-02 + 0.12555E-01 0.22266E-01 0.36993E-01 0.60929E-01 0.92553E-01 0.14126E+00 + 0.20913E+00 0.31615E+00 0.48175E+00 0.73402E+00 0.11134E+01 0.17111E+01 + 0.25946E+01 0.39975E+01 0.61205E+01 0.60628E-08 0.53833E-08 0.36606E-08 + 0.12975E-08 0.13833E-07 0.42910E-07 0.10723E-06 0.19930E-06 0.41480E-06 + 0.81507E-06 0.17273E-05 0.31546E-05 0.32767E-04 0.15565E-03 0.71119E-03 + 0.12390E-02 0.35394E-02 0.84060E-02 0.15985E-01 0.28283E-01 0.46900E-01 + 0.77124E-01 0.11699E+00 0.17835E+00 0.26375E+00 0.39829E+00 0.60631E+00 + 0.92283E+00 0.13981E+01 0.21459E+01 0.32486E+01 0.49961E+01 0.76318E+01 + 0.11294E-07 0.15876E-07 0.14511E-07 0.96847E-08 0.20594E-08 0.32939E-07 + 0.10527E-06 0.24378E-06 0.63466E-06 0.11502E-05 0.27780E-05 0.81803E-05 + 0.61445E-04 0.29019E-03 0.11011E-02 0.19517E-02 0.45634E-02 0.10765E-01 + 0.20400E-01 0.35996E-01 0.59554E-01 0.97753E-01 0.14805E+00 0.22540E+00 + 0.33293E+00 0.50224E+00 0.76374E+00 0.11613E+01 0.17576E+01 0.26945E+01 + 0.40737E+01 0.62551E+01 0.95375E+01 0.26653E-07 0.28322E-07 0.40144E-07 + 0.35832E-07 0.24597E-07 0.49041E-08 0.82165E-07 0.28098E-06 0.71789E-06 + 0.19432E-05 0.42789E-05 0.16743E-04 0.11160E-03 0.48864E-03 0.14773E-02 + 0.28978E-02 0.59103E-02 0.12710E-01 0.26113E-01 0.45921E-01 0.75770E-01 + 0.12410E+00 0.18760E+00 0.28517E+00 0.42067E+00 0.63390E+00 0.96296E+00 + 0.14627E+01 0.22116E+01 0.33870E+01 0.51148E+01 0.78434E+01 0.11941E+02 + 0.44152E-07 0.66415E-07 0.70871E-07 0.99129E-07 0.89383E-07 0.61009E-07 + 0.12975E-07 0.21615E-06 0.98262E-06 0.23361E-05 0.82845E-05 0.28482E-04 + 0.16406E-03 0.75040E-03 0.19325E-02 0.36696E-02 0.76883E-02 0.14951E-01 + 0.29540E-01 0.58736E-01 0.96604E-01 0.15782E+00 0.23804E+00 0.36122E+00 + 0.53205E+00 0.80073E+00 0.12151E+01 0.18439E+01 0.27852E+01 0.42614E+01 + 0.64288E+01 0.98471E+01 0.14972E+02 0.76346E-07 0.10322E-06 0.14777E-06 + 0.17541E-06 0.21666E-06 0.22133E-06 0.14772E-06 0.41201E-07 0.69331E-06 + 0.31846E-05 0.11767E-04 0.65028E-04 0.24682E-03 0.99770E-03 0.23167E-02 + 0.45489E-02 0.90698E-02 0.17885E-01 0.32931E-01 0.64624E-01 0.12344E+00 + 0.20107E+00 0.30249E+00 0.45810E+00 0.67358E+00 0.10123E+01 0.15344E+01 + 0.23260E+01 0.35100E+01 0.53656E+01 0.80870E+01 0.12375E+02 0.18794E+02 + 0.14745E-06 0.20043E-06 0.27557E-06 0.40856E-06 0.55677E-06 0.62764E-06 + 0.73069E-06 0.41379E-06 0.13077E-06 0.20566E-05 0.13828E-04 0.96058E-04 + 0.35557E-03 0.11988E-02 0.27363E-02 0.53225E-02 0.10579E-01 0.20110E-01 + 0.37291E-01 0.69345E-01 0.13356E+00 0.25658E+00 0.38486E+00 0.58155E+00 + 0.85343E+00 0.12807E+01 0.19387E+01 0.29358E+01 0.44261E+01 0.67601E+01 + 0.10180E+02 0.15564E+02 0.23614E+02 0.32633E-06 0.42139E-06 0.52913E-06 + 0.74836E-06 0.11721E-05 0.17539E-05 0.19848E-05 0.23592E-05 0.11160E-05 + 0.31139E-06 0.90693E-05 0.10758E-03 0.46797E-03 0.13992E-02 0.31158E-02 + 0.60114E-02 0.11749E-01 0.22458E-01 0.40361E-01 0.75264E-01 0.13993E+00 + 0.27476E+00 0.49010E+00 0.73878E+00 0.10819E+01 0.16208E+01 0.24504E+01 + 0.37067E+01 0.55829E+01 0.85201E+01 0.12820E+02 0.19586E+02 0.29691E+02 + 0.68926E-06 0.95665E-06 0.12310E-05 0.14640E-05 0.22566E-05 0.38134E-05 + 0.60318E-05 0.80145E-05 0.81304E-05 0.37518E-05 0.99281E-06 0.72922E-04 + 0.47435E-03 0.14968E-02 0.33942E-02 0.65229E-02 0.12629E-01 0.23925E-01 + 0.43293E-01 0.78969E-01 0.14744E+00 0.28330E+00 0.52028E+00 0.93813E+00 + 0.13708E+01 0.20504E+01 0.30961E+01 0.46787E+01 0.70408E+01 0.10737E+02 + 0.16144E+02 0.24649E+02 0.37343E+02 0.14205E-05 0.18109E-05 0.19676E-05 + 0.32452E-05 0.74517E-05 0.14350E-04 0.25509E-04 0.56084E-04 0.69777E-04 + 0.70583E-04 0.38525E-04 0.14519E-04 0.35409E-03 0.14273E-02 0.35549E-02 + 0.69462E-02 0.13310E-01 0.24873E-01 0.44892E-01 0.82233E-01 0.15213E+00 + 0.29318E+00 0.53055E+00 0.99326E+00 0.17361E+01 0.25928E+01 0.39106E+01 + 0.59038E+01 0.88770E+01 0.13529E+02 0.20329E+02 0.31021E+02 0.46971E+02 + 0.42778E-05 0.66132E-05 0.10529E-04 0.22791E-04 0.42694E-04 0.75542E-04 + 0.11442E-03 0.18206E-03 0.28191E-03 0.34732E-03 0.31402E-03 0.16143E-03 + 0.18007E-03 0.12151E-02 0.34466E-02 0.70953E-02 0.14135E-01 0.25529E-01 + 0.46662E-01 0.84072E-01 0.15609E+00 0.29902E+00 0.54171E+00 0.10099E+01 + 0.18327E+01 0.32769E+01 0.49370E+01 0.74468E+01 0.11189E+02 0.17042E+02 + 0.25594E+02 0.39039E+02 0.59086E+02 0.14080E-04 0.32097E-04 0.55958E-04 + 0.95964E-04 0.22158E-03 0.39492E-03 0.62373E-03 0.80784E-03 0.95788E-03 + 0.10971E-02 0.11150E-02 0.94893E-03 0.52794E-03 0.74962E-03 0.26775E-02 + 0.63437E-02 0.13587E-01 0.25955E-01 0.46206E-01 0.84801E-01 0.15757E+00 + 0.29992E+00 0.54162E+00 0.10199E+01 0.18450E+01 0.34326E+01 0.62010E+01 + 0.93537E+01 0.14053E+02 0.21408E+02 0.32148E+02 0.49038E+02 0.74215E+02 + 0.17884E-03 0.24258E-03 0.44291E-03 0.70775E-03 0.10463E-02 0.13721E-02 + 0.17399E-02 0.20786E-02 0.24363E-02 0.27463E-02 0.29738E-02 0.29946E-02 + 0.25645E-02 0.14674E-02 0.11681E-02 0.41506E-02 0.11024E-01 0.22944E-01 + 0.43314E-01 0.80495E-01 0.15223E+00 0.29444E+00 0.53049E+00 0.10066E+01 + 0.18412E+01 0.34250E+01 0.64507E+01 0.11683E+02 0.17569E+02 0.26791E+02 + 0.40256E+02 0.61445E+02 0.93027E+02 0.36260E-03 0.46260E-03 0.63191E-03 + 0.11913E-02 0.19311E-02 0.28583E-02 0.35893E-02 0.44370E-02 0.52499E-02 + 0.59153E-02 0.64236E-02 0.67751E-02 0.65888E-02 0.55333E-02 0.37941E-02 + 0.13640E-02 0.60845E-02 0.17095E-01 0.36421E-01 0.72103E-01 0.14198E+00 + 0.28250E+00 0.51275E+00 0.98244E+00 0.18086E+01 0.34098E+01 0.64275E+01 + 0.12140E+02 0.21922E+02 0.33480E+02 0.50348E+02 0.76921E+02 0.11653E+03 + 0.17626E-02 0.22453E-02 0.28697E-02 0.36948E-02 0.48928E-02 0.64711E-02 + 0.84270E-02 0.98321E-02 0.11386E-01 0.12749E-01 0.13744E-01 0.14695E-01 + 0.15270E-01 0.14574E-01 0.12955E-01 0.10946E-01 0.14357E-01 0.43412E-02 + 0.21423E-01 0.53956E-01 0.11978E+00 0.25543E+00 0.47546E+00 0.93247E+00 + 0.17354E+01 0.33114E+01 0.63460E+01 0.12018E+02 0.22659E+02 0.41613E+02 + 0.62696E+02 0.95962E+02 0.14556E+03 0.49818E-02 0.63328E-02 0.80716E-02 + 0.10318E-01 0.13082E-01 0.15358E-01 0.18341E-01 0.22012E-01 0.24614E-01 + 0.27382E-01 0.29477E-01 0.30710E-01 0.32317E-01 0.32924E-01 0.32122E-01 + 0.30989E-01 0.27148E-01 0.56921E-01 0.68908E-02 0.20402E-01 0.79532E-01 + 0.20704E+00 0.41143E+00 0.84907E+00 0.16182E+01 0.31457E+01 0.61232E+01 + 0.11809E+02 0.22342E+02 0.42906E+02 0.77737E+02 0.11931E+03 0.18133E+03 + 0.10559E-01 0.13396E-01 0.17032E-01 0.21707E-01 0.27748E-01 0.34954E-01 + 0.38887E-01 0.44000E-01 0.50192E-01 0.54358E-01 0.58633E-01 0.61809E-01 + 0.64625E-01 0.66296E-01 0.67638E-01 0.68781E-01 0.67465E-01 0.65510E-01 + 0.16274E+00 0.38283E-01 0.10796E-01 0.12625E+00 0.30855E+00 0.71937E+00 + 0.14431E+01 0.29072E+01 0.57912E+01 0.11362E+02 0.21904E+02 0.42274E+02 + 0.80057E+02 0.14790E+03 0.22537E+03 0.20545E-01 0.26023E-01 0.33019E-01 + 0.41980E-01 0.53501E-01 0.68374E-01 0.85739E-01 0.91813E-01 0.99566E-01 + 0.10885E+00 0.11460E+00 0.12030E+00 0.12443E+00 0.12950E+00 0.13222E+00 + 0.13665E+00 0.13930E+00 0.14280E+00 0.14504E+00 0.38296E+00 0.99841E-01 + 0.00000E+00 0.15417E+00 0.53238E+00 0.12020E+01 0.25934E+01 0.53735E+01 + 0.10788E+02 0.21137E+02 0.41595E+02 0.79043E+02 0.15269E+03 0.27985E+03 + 0.37862E-01 0.47888E-01 0.60661E-01 0.76969E-01 0.97852E-01 0.12469E+00 + 0.15931E+00 0.19924E+00 0.20876E+00 0.22082E+00 0.23497E+00 0.24431E+00 + 0.25426E+00 0.26389E+00 0.27135E+00 0.28289E+00 0.29440E+00 0.31079E+00 + 0.32939E+00 0.34751E+00 0.95736E+00 0.27563E+00 0.18136E+00 0.12236E+00 + 0.67608E+00 0.19081E+01 0.44598E+01 0.95335E+01 0.19359E+02 0.39144E+02 + 0.76187E+02 0.14852E+03 0.28540E+03 0.66199E-01 0.83627E-01 0.10578E+00 + 0.13399E+00 0.16999E+00 0.21610E+00 0.27531E+00 0.35162E+00 0.43888E+00 + 0.45477E+00 0.47430E+00 0.49661E+00 0.51100E+00 0.52578E+00 0.54457E+00 + 0.56779E+00 0.59390E+00 0.63130E+00 0.67834E+00 0.73086E+00 0.77919E+00 + 0.21707E+01 0.76569E+00 0.57578E+00 0.19423E+00 0.80491E+00 0.30289E+01 + 0.76240E+01 0.16727E+02 0.35456E+02 0.71014E+02 0.14243E+03 0.27641E+03 + 0.10797E+00 0.13624E+00 0.17212E+00 0.21769E+00 0.27573E+00 0.34980E+00 + 0.44457E+00 0.56616E+00 0.72249E+00 0.90034E+00 0.92408E+00 0.95201E+00 + 0.98169E+00 0.10006E+01 0.10258E+01 0.10639E+01 0.11085E+01 0.11727E+01 + 0.12559E+01 0.13554E+01 0.14547E+01 0.15191E+01 0.16253E+01 0.15627E+01 + 0.13710E+01 0.61666E+00 0.12777E+01 0.54091E+01 0.13832E+02 0.31609E+02 + 0.65664E+02 0.13527E+03 0.26877E+03 0.17256E+00 0.21752E+00 0.27447E+00 + 0.34672E+00 0.43852E+00 0.55537E+00 0.70442E+00 0.89502E+00 0.11391E+01 + 0.14528E+01 0.18083E+01 0.18526E+01 0.19025E+01 0.19558E+01 0.19987E+01 + 0.20634E+01 0.21412E+01 0.22530E+01 0.24000E+01 0.25823E+01 0.27850E+01 + 0.29750E+01 0.32725E+01 0.34400E+01 0.35832E+01 0.32645E+01 0.19578E+01 + 0.13521E+01 0.85866E+01 0.24700E+02 0.56197E+02 0.12210E+03 0.25052E+03 + 0.27027E+00 0.34032E+00 0.42898E+00 0.54127E+00 0.68371E+00 0.86462E+00 + 0.10949E+01 0.13884E+01 0.17630E+01 0.22428E+01 0.28575E+01 0.35511E+01 + 0.36281E+01 0.37156E+01 0.38257E+01 0.39293E+01 0.40555E+01 0.42369E+01 + 0.44771E+01 0.47802E+01 0.51323E+01 0.55025E+01 0.60719E+01 0.65619E+01 + 0.71673E+01 0.74382E+01 0.69094E+01 0.46616E+01 0.10732E+01 0.15145E+02 + 0.43566E+02 0.10513E+03 0.22692E+03 0.39931E+00 0.50225E+00 0.63242E+00 + 0.79713E+00 0.10057E+01 0.12703E+01 0.16061E+01 0.20334E+01 0.25769E+01 + 0.32707E+01 0.41562E+01 0.52869E+01 0.65517E+01 0.66731E+01 0.68358E+01 + 0.70586E+01 0.72379E+01 0.74989E+01 0.78466E+01 0.82878E+01 0.88068E+01 + 0.93703E+01 0.10241E+02 0.11066E+02 0.12152E+02 0.13003E+02 0.13196E+02 + 0.11882E+02 0.74001E+01 0.51108E+01 0.31253E+02 0.89901E+02 0.20736E+03 + 0.59910E+00 0.75267E+00 0.94671E+00 0.11920E+01 0.15024E+01 0.18954E+01 + 0.23936E+01 0.30260E+01 0.38290E+01 0.48509E+01 0.61513E+01 0.78066E+01 + 0.99081E+01 0.12249E+02 0.12481E+02 0.12820E+02 0.13224E+02 0.13608E+02 + 0.14122E+02 0.14778E+02 0.15557E+02 0.16426E+02 0.17767E+02 0.19125E+02 + 0.20967E+02 0.22736E+02 0.24081E+02 0.24256E+02 0.21764E+02 0.11747E+02 + 0.10817E+02 0.64873E+02 0.17565E+03 0.87760E+00 0.11011E+01 0.13834E+01 + 0.17400E+01 0.21907E+01 0.27609E+01 0.34827E+01 0.43975E+01 0.55567E+01 + 0.70287E+01 0.88971E+01 0.11269E+02 0.14272E+02 0.18072E+02 0.22342E+02 + 0.22810E+02 0.23399E+02 0.24196E+02 0.24920E+02 0.25848E+02 0.26953E+02 + 0.28194E+02 0.30130E+02 0.32138E+02 0.34912E+02 0.37781E+02 0.40465E+02 + 0.42321E+02 0.42004E+02 0.34547E+02 0.15539E+02 0.34342E+02 0.13933E+03 + 0.12636E+01 0.15830E+01 0.19862E+01 0.24953E+01 0.31383E+01 0.39511E+01 + 0.49787E+01 0.62796E+01 0.79256E+01 0.10012E+02 0.12654E+02 0.16000E+02 + 0.20227E+02 0.25562E+02 0.32364E+02 0.40070E+02 0.40853E+02 0.41985E+02 + 0.43436E+02 0.44697E+02 0.46198E+02 0.47879E+02 0.50559E+02 0.53349E+02 + 0.57266E+02 0.61446E+02 0.65687E+02 0.69445E+02 0.71519E+02 0.66678E+02 + 0.51185E+02 0.49332E+01 0.95404E+02 0.17535E+01 0.21928E+01 0.27473E+01 + 0.34469E+01 0.43300E+01 0.54455E+01 0.68550E+01 0.86367E+01 0.10889E+02 + 0.13738E+02 0.17341E+02 0.21894E+02 0.27631E+02 0.34852E+02 0.44022E+02 + 0.55784E+02 0.68949E+02 0.70374E+02 0.72309E+02 0.74699E+02 0.76561E+02 + 0.78609E+02 0.82031E+02 0.85515E+02 0.90523E+02 0.95858E+02 0.10136E+03 + 0.10653E+03 0.11024E+03 0.10664E+03 0.92612E+02 0.46427E+02 0.54817E+02 + 0.23936E+01 0.29870E+01 0.37356E+01 0.46798E+01 0.58711E+01 0.73752E+01 + 0.92741E+01 0.11673E+02 0.14701E+02 0.18528E+02 0.23360E+02 0.29453E+02 + 0.37118E+02 0.46742E+02 0.58921E+02 0.74469E+02 0.94198E+02 0.11652E+03 + 0.11888E+03 0.12195E+03 0.12547E+03 0.12775E+03 0.13191E+03 0.13596E+03 + 0.14201E+03 0.14833E+03 0.15479E+03 0.16090E+03 0.16552E+03 0.16186E+03 + 0.14744E+03 0.98006E+02 0.92125E+01 0.31220E+01 0.38858E+01 0.48493E+01 + 0.60640E+01 0.75964E+01 0.95297E+01 0.11969E+02 0.15049E+02 0.18933E+02 + 0.23836E+02 0.30018E+02 0.37801E+02 0.47570E+02 0.59804E+02 0.75233E+02 + 0.94847E+02 0.11961E+03 0.15133E+03 0.18698E+03 0.19033E+03 0.19430E+03 + 0.19840E+03 0.20279E+03 0.20657E+03 0.21278E+03 0.21880E+03 0.22442E+03 + 0.22905E+03 0.23132E+03 0.22276E+03 0.20138E+03 0.13869E+03 0.11113E+02 + 0.39940E+01 0.49555E+01 0.61681E+01 0.76969E+01 0.96246E+01 0.12056E+02 + 0.15123E+02 0.18991E+02 0.23866E+02 0.30015E+02 0.37755E+02 0.47491E+02 + 0.59683E+02 0.74918E+02 0.94072E+02 0.11833E+03 0.14882E+03 0.18766E+03 + 0.23709E+03 0.29219E+03 0.29586E+03 0.29961E+03 0.30687E+03 0.30921E+03 + 0.31443E+03 0.31848E+03 0.32101E+03 0.32121E+03 0.31733E+03 0.29834E+03 + 0.26294E+03 0.17637E+03 0.13760E+02 0.44902E-09 0.15734E-08 0.42802E-08 + 0.10298E-07 0.23949E-07 0.52075E-07 0.11434E-06 0.26004E-06 0.65572E-06 + 0.14501E-05 0.30243E-05 0.10890E-04 0.77609E-04 0.35562E-03 0.12041E-02 + 0.22864E-02 0.49875E-02 0.11377E-01 0.22619E-01 0.40137E-01 0.66705E-01 + 0.10988E+00 0.16689E+00 0.25463E+00 0.37675E+00 0.56904E+00 0.86619E+00 + 0.13178E+01 0.19952E+01 0.30591E+01 0.46246E+01 0.70986E+01 0.10818E+02 + 0.34926E-09 0.13636E-08 0.41628E-08 0.11551E-07 0.26336E-07 0.60823E-07 + 0.13041E-06 0.29400E-06 0.86739E-06 0.20910E-05 0.55358E-05 0.19361E-04 + 0.12233E-03 0.55409E-03 0.15557E-02 0.30825E-02 0.64037E-02 0.13166E-01 + 0.27113E-01 0.50990E-01 0.84587E-01 0.13912E+00 0.21105E+00 0.32167E+00 + 0.47551E+00 0.71766E+00 0.10915E+01 0.16593E+01 0.25104E+01 0.38457E+01 + 0.58080E+01 0.89052E+01 0.13553E+02 0.12627E-09 0.92927E-09 0.34437E-08 + 0.10894E-07 0.29120E-07 0.66315E-07 0.14374E-06 0.31313E-06 0.82665E-06 + 0.28446E-05 0.95894E-05 0.39476E-04 0.17769E-03 0.77513E-03 0.18959E-02 + 0.37589E-02 0.78568E-02 0.15484E-01 0.29785E-01 0.60381E-01 0.10745E+00 + 0.17641E+00 0.26722E+00 0.40678E+00 0.60069E+00 0.90575E+00 0.13765E+01 + 0.20910E+01 0.31608E+01 0.48386E+01 0.73014E+01 0.11184E+02 0.17002E+02 + 0.51820E-09 0.14254E-09 0.28048E-08 0.11511E-07 0.33041E-07 0.89238E-07 + 0.18114E-06 0.34299E-06 0.83709E-06 0.27023E-05 0.13238E-04 0.78257E-04 + 0.25371E-03 0.95669E-03 0.22307E-02 0.44389E-02 0.90283E-02 0.17853E-01 + 0.33246E-01 0.64099E-01 0.12640E+00 0.22411E+00 0.33885E+00 0.51504E+00 + 0.75962E+00 0.11442E+01 0.17372E+01 0.26369E+01 0.39832E+01 0.60924E+01 + 0.91867E+01 0.14060E+02 0.21352E+02 0.13312E-08 0.85950E-09 0.12182E-08 + 0.87545E-08 0.38243E-07 0.10935E-06 0.29999E-06 0.52282E-06 0.86235E-06 + 0.22607E-05 0.13557E-04 0.10460E-03 0.37942E-03 0.11363E-02 0.25681E-02 + 0.50765E-02 0.10136E-01 0.19734E-01 0.36714E-01 0.68899E-01 0.13154E+00 + 0.26264E+00 0.43047E+00 0.65311E+00 0.96182E+00 0.14470E+01 0.21946E+01 + 0.33282E+01 0.50233E+01 0.76778E+01 0.11568E+02 0.17690E+02 0.26843E+02 + 0.28641E-08 0.28961E-08 0.11532E-08 0.62051E-08 0.30806E-07 0.12047E-06 + 0.36947E-06 0.10025E-05 0.18988E-05 0.24012E-05 0.95787E-05 0.10507E-03 + 0.46812E-03 0.13113E-02 0.28876E-02 0.56172E-02 0.11096E-01 0.21405E-01 + 0.39311E-01 0.73660E-01 0.13816E+00 0.27028E+00 0.50337E+00 0.82968E+00 + 0.12196E+01 0.18320E+01 0.27752E+01 0.42043E+01 0.63398E+01 0.96819E+01 + 0.14577E+02 0.22275E+02 0.33774E+02 0.19564E-07 0.24248E-07 0.28580E-07 + 0.45897E-07 0.68524E-07 0.33864E-07 0.28234E-06 0.18458E-05 0.58765E-05 + 0.11888E-04 0.12591E-04 0.84955E-04 0.47591E-03 0.14127E-02 0.31765E-02 + 0.61057E-02 0.11807E-01 0.22603E-01 0.41376E-01 0.76727E-01 0.14433E+00 + 0.27917E+00 0.51316E+00 0.96788E+00 0.15462E+01 0.23191E+01 0.35089E+01 + 0.53105E+01 0.80010E+01 0.12210E+02 0.18370E+02 0.28054E+02 0.42509E+02 + 0.39806E-07 0.53127E-07 0.75785E-07 0.10831E-06 0.25133E-06 0.40188E-06 + 0.36888E-06 0.15538E-05 0.11896E-04 0.36422E-04 0.77410E-04 0.14381E-03 + 0.48088E-03 0.14770E-02 0.34461E-02 0.66883E-02 0.12949E-01 0.23652E-01 + 0.43505E-01 0.79850E-01 0.14917E+00 0.28862E+00 0.52626E+00 0.98754E+00 + 0.18049E+01 0.29418E+01 0.44441E+01 0.67172E+01 0.10109E+02 0.15414E+02 + 0.23171E+02 0.35361E+02 0.53545E+02 0.16885E-07 0.26947E-07 0.28316E-07 + 0.13655E-07 0.38023E-06 0.17541E-05 0.54124E-05 0.13943E-04 0.34686E-04 + 0.82128E-04 0.17266E-03 0.33953E-03 0.73182E-03 0.18271E-02 0.39068E-02 + 0.75147E-02 0.14468E-01 0.26644E-01 0.46904E-01 0.84976E-01 0.15753E+00 + 0.29963E+00 0.54514E+00 0.10205E+01 0.18533E+01 0.34525E+01 0.56622E+01 + 0.85385E+01 0.12826E+02 0.19524E+02 0.29312E+02 0.44681E+02 0.67588E+02 + 0.13822E-06 0.19715E-06 0.25538E-06 0.14023E-06 0.64376E-06 0.32795E-05 + 0.98150E-05 0.24738E-04 0.57252E-04 0.12254E-03 0.25715E-03 0.51933E-03 + 0.10513E-02 0.25013E-02 0.48619E-02 0.83984E-02 0.15853E-01 0.28790E-01 + 0.50687E-01 0.90456E-01 0.16562E+00 0.31116E+00 0.55971E+00 0.10507E+01 + 0.19056E+01 0.35302E+01 0.66220E+01 0.10848E+02 0.16265E+02 0.24722E+02 + 0.37070E+02 0.56446E+02 0.85306E+02 0.27228E-06 0.32805E-06 0.60148E-06 + 0.90568E-06 0.59529E-06 0.22851E-05 0.11032E-04 0.31003E-04 0.75230E-04 + 0.16092E-03 0.33189E-03 0.67937E-03 0.13859E-02 0.28172E-02 0.65009E-02 + 0.10387E-01 0.17624E-01 0.31450E-01 0.54595E-01 0.96052E-01 0.17394E+00 + 0.32500E+00 0.57797E+00 0.10782E+01 0.19612E+01 0.36285E+01 0.67691E+01 + 0.12683E+02 0.20659E+02 0.31345E+02 0.46932E+02 0.71376E+02 0.10776E+03 + 0.20864E-04 0.27292E-04 0.35979E-04 0.51266E-04 0.75667E-04 0.10903E-03 + 0.14135E-03 0.16883E-03 0.18019E-03 0.15906E-03 0.59797E-04 0.25384E-03 + 0.10180E-02 0.25709E-02 0.52805E-02 0.12500E-01 0.18626E-01 0.31544E-01 + 0.54772E-01 0.96283E-01 0.17432E+00 0.32584E+00 0.57803E+00 0.10778E+01 + 0.19579E+01 0.36499E+01 0.68272E+01 0.12764E+02 0.23843E+02 0.39390E+02 + 0.58974E+02 0.89700E+02 0.13543E+03 0.12629E-03 0.16331E-03 0.21239E-03 + 0.27766E-03 0.36523E-03 0.44947E-03 0.52868E-03 0.62684E-03 0.70042E-03 + 0.72568E-03 0.62930E-03 0.28811E-03 0.75378E-03 0.31177E-02 0.69014E-02 + 0.12589E-01 0.22605E-01 0.49032E-01 0.66834E-01 0.11122E+00 0.19676E+00 + 0.36056E+00 0.62735E+00 0.11521E+01 0.20649E+01 0.38085E+01 0.71198E+01 + 0.13362E+02 0.24834E+02 0.46744E+02 0.87063E+02 0.14364E+03 0.21633E+03 + 0.28927E-04 0.36509E-04 0.45833E-04 0.56406E-04 0.67449E-04 0.75261E-04 + 0.64449E-04 0.21863E-04 0.12659E-03 0.43194E-03 0.10010E-02 0.20444E-02 + 0.40658E-02 0.77501E-02 0.13314E-01 0.21285E-01 0.34621E-01 0.54909E-01 + 0.91116E-01 0.14792E+00 0.24250E+00 0.42783E+00 0.72402E+00 0.12958E+01 + 0.22761E+01 0.41251E+01 0.75990E+01 0.14090E+02 0.26144E+02 0.48978E+02 + 0.90430E+02 0.17029E+03 0.28130E+03 0.54437E-03 0.69761E-03 0.89785E-03 + 0.11606E-02 0.15080E-02 0.19695E-02 0.25839E-02 0.31097E-02 0.33479E-02 + 0.35971E-02 0.37036E-02 0.34381E-02 0.24247E-02 0.00000E+00 0.54212E-02 + 0.12955E-01 0.25814E-01 0.45006E-01 0.75975E-01 0.13311E+00 0.23320E+00 + 0.40581E+00 0.69164E+00 0.12506E+01 0.22058E+01 0.40173E+01 0.74322E+01 + 0.13827E+02 0.25717E+02 0.48656E+02 0.90368E+02 0.17009E+03 0.31883E+03 + 0.89664E-03 0.11449E-02 0.14670E-02 0.18868E-02 0.24372E-02 0.31625E-02 + 0.41204E-02 0.53830E-02 0.64620E-02 0.67880E-02 0.70109E-02 0.68266E-02 + 0.56349E-02 0.27786E-02 0.28179E-02 0.12031E-01 0.27406E-01 0.49536E-01 + 0.84378E-01 0.14265E+00 0.25485E+00 0.54398E+00 0.74588E+00 0.13342E+01 + 0.23271E+01 0.41988E+01 0.77061E+01 0.14238E+02 0.26329E+02 0.49581E+02 + 0.92339E+02 0.17415E+03 0.32486E+03 0.14163E-02 0.18032E-02 0.23029E-02 + 0.29504E-02 0.37944E-02 0.48989E-02 0.63487E-02 0.82503E-02 0.10713E-01 + 0.12887E-01 0.13174E-01 0.13017E-01 0.11679E-01 0.82067E-02 0.26311E-02 + 0.75911E-02 0.26483E-01 0.52594E-01 0.92590E-01 0.15820E+00 0.27472E+00 + 0.49016E+00 0.81420E+00 0.14410E+01 0.24829E+01 0.44331E+01 0.80611E+01 + 0.14773E+02 0.27126E+02 0.50789E+02 0.94123E+02 0.17789E+03 0.33275E+03 + 0.20797E-02 0.26404E-02 0.33612E-02 0.42905E-02 0.54937E-02 0.70576E-02 + 0.90952E-02 0.11749E-01 0.15171E-01 0.19557E-01 0.23461E-01 0.23328E-01 + 0.21742E-01 0.17522E-01 0.10671E-01 0.13944E-02 0.22086E-01 0.54152E-01 + 0.10174E+00 0.17800E+00 0.31135E+00 0.55444E+00 0.90908E+00 0.15900E+01 + 0.27011E+01 0.47619E+01 0.85600E+01 0.15526E+02 0.28250E+02 0.52496E+02 + 0.96654E+02 0.18172E+03 0.34023E+03 0.28398E-02 0.35965E-02 0.45652E-02 + 0.58079E-02 0.74085E-02 0.94746E-02 0.12147E-01 0.15599E-01 0.20015E-01 + 0.25631E-01 0.32504E-01 0.38353E-01 0.35959E-01 0.30174E-01 0.21276E-01 + 0.94183E-02 0.17486E-01 0.59507E-01 0.11963E+00 0.21321E+00 0.37320E+00 + 0.65895E+00 0.10615E+01 0.18248E+01 0.30424E+01 0.52716E+01 0.93268E+01 + 0.16678E+02 0.29966E+02 0.55095E+02 0.10052E+03 0.18757E+03 0.34901E+03 + 0.39316E-02 0.49680E-02 0.62905E-02 0.79805E-02 0.10147E-01 0.12930E-01 + 0.16507E-01 0.21099E-01 0.26938E-01 0.34323E-01 0.43350E-01 0.53659E-01 + 0.61119E-01 0.52910E-01 0.41000E-01 0.25976E-01 0.00000E+00 0.56604E-01 + 0.13468E+00 0.25257E+00 0.44954E+00 0.79394E+00 0.12604E+01 0.21340E+01 + 0.34917E+01 0.59418E+01 0.10333E+02 0.18184E+02 0.32203E+02 0.58474E+02 + 0.10553E+03 0.19514E+03 0.36034E+03 0.53855E-02 0.67905E-02 0.85789E-02 + 0.10857E-01 0.13767E-01 0.17486E-01 0.22246E-01 0.28321E-01 0.36005E-01 + 0.45674E-01 0.57466E-01 0.71015E-01 0.84280E-01 0.90881E-01 0.74122E-01 + 0.54133E-01 0.20604E-01 0.41288E-01 0.14659E+00 0.30068E+00 0.55176E+00 + 0.98066E+00 0.15374E+01 0.25653E+01 0.41164E+01 0.68692E+01 0.11718E+02 + 0.20244E+02 0.35249E+02 0.63051E+02 0.11229E+03 0.20533E+03 0.37555E+03 + 0.74199E-02 0.93348E-02 0.11766E-01 0.14855E-01 0.18785E-01 0.23789E-01 + 0.30158E-01 0.38246E-01 0.48412E-01 0.61119E-01 0.76529E-01 0.94201E-01 + 0.11173E+00 0.12438E+00 0.12833E+00 0.99173E-01 0.52548E-01 0.12283E-01 + 0.16057E+00 0.37077E+00 0.70411E+00 0.12590E+01 0.19481E+01 0.31988E+01 + 0.50256E+01 0.82053E+01 0.13692E+02 0.23155E+02 0.39515E+02 0.69414E+02 + 0.12164E+03 0.21934E+03 0.39639E+03 0.98682E-02 0.12387E-01 0.15581E-01 + 0.19629E-01 0.24767E-01 0.31291E-01 0.39565E-01 0.50025E-01 0.63126E-01 + 0.79425E-01 0.99124E-01 0.12171E+00 0.14441E+00 0.16189E+00 0.17198E+00 + 0.17269E+00 0.10739E+00 0.27736E-01 0.15936E+00 0.45535E+00 0.91234E+00 + 0.16536E+01 0.25336E+01 0.41025E+01 0.63156E+01 0.10087E+02 0.16449E+02 + 0.27183E+02 0.45367E+02 0.78070E+02 0.13426E+03 0.23813E+03 0.42420E+03 + 0.13314E-01 0.16672E-01 0.20921E-01 0.26297E-01 0.33106E-01 0.41724E-01 + 0.52618E-01 0.66343E-01 0.83446E-01 0.10462E+00 0.13008E+00 0.15915E+00 + 0.18841E+00 0.21151E+00 0.22628E+00 0.23111E+00 0.19233E+00 0.80276E-01 + 0.14881E+00 0.58114E+00 0.12299E+01 0.22544E+01 0.34191E+01 0.54556E+01 + 0.82258E+01 0.12840E+02 0.20432E+02 0.32930E+02 0.53619E+02 0.90142E+02 + 0.15169E+03 0.26386E+03 0.46200E+03 0.17111E-01 0.21369E-01 0.26749E-01 + 0.33549E-01 0.42145E-01 0.53004E-01 0.66694E-01 0.83886E-01 0.10525E+00 + 0.13157E+00 0.16308E+00 0.19891E+00 0.23490E+00 0.26353E+00 0.28250E+00 + 0.29051E+00 0.24958E+00 0.15011E+00 0.13564E+00 0.77254E+00 0.17270E+01 + 0.31892E+01 0.47827E+01 0.75142E+01 0.11096E+02 0.16921E+02 0.26257E+02 + 0.41219E+02 0.65366E+02 0.10711E+03 0.17592E+03 0.29925E+03 0.51351E+03 + 0.23145E-01 0.28810E-01 0.35965E-01 0.44994E-01 0.56393E-01 0.70764E-01 + 0.88848E-01 0.11150E+00 0.13957E+00 0.17407E+00 0.21524E+00 0.26200E+00 + 0.30917E+00 0.34758E+00 0.37488E+00 0.39025E+00 0.34933E+00 0.24439E+00 + 0.00000E+00 0.95435E+00 0.23502E+01 0.44961E+01 0.67384E+01 0.10495E+02 + 0.15249E+02 0.22800E+02 0.34585E+02 0.52960E+02 0.81827E+02 0.13063E+03 + 0.20912E+03 0.34723E+03 0.58269E+03 0.29425E-01 0.36490E-01 0.45406E-01 + 0.56648E-01 0.70824E-01 0.88673E-01 0.11109E+00 0.13912E+00 0.17375E+00 + 0.21619E+00 0.26666E+00 0.32371E+00 0.38098E+00 0.42732E+00 0.46010E+00 + 0.47861E+00 0.43112E+00 0.31093E+00 0.34625E-01 0.12896E+01 0.34568E+01 + 0.66096E+01 0.99014E+01 0.15261E+02 0.21779E+02 0.31895E+02 0.47263E+02 + 0.70553E+02 0.10611E+03 0.16480E+03 0.25668E+03 0.41504E+03 0.67923E+03 + 0.38912E-01 0.48036E-01 0.59549E-01 0.74049E-01 0.92312E-01 0.11528E+00 + 0.14409E+00 0.18003E+00 0.22434E+00 0.27849E+00 0.34267E+00 0.41493E+00 + 0.48710E+00 0.54524E+00 0.58622E+00 0.60943E+00 0.55209E+00 0.40869E+00 + 0.83084E-01 0.14532E+01 0.48284E+01 0.98711E+01 0.14643E+02 0.22517E+02 + 0.31770E+02 0.45687E+02 0.66287E+02 0.96643E+02 0.14167E+03 0.21417E+03 + 0.32447E+03 0.51040E+03 0.81328E+03 0.49898E-01 0.61272E-01 0.75611E-01 + 0.93661E-01 0.11639E+00 0.14494E+00 0.18071E+00 0.22528E+00 0.28015E+00 + 0.34707E+00 0.42622E+00 0.51511E+00 0.60375E+00 0.67513E+00 0.72568E+00 + 0.75502E+00 0.68861E+00 0.52237E+00 0.14666E+00 0.16367E+01 0.57261E+01 + 0.13835E+02 0.22001E+02 0.33466E+02 0.46987E+02 0.66833E+02 0.95190E+02 + 0.13586E+03 0.19448E+03 0.28654E+03 0.42251E+03 0.64645E+03 0.10020E+04 + 0.66780E-01 0.81479E-01 0.10000E+00 0.12331E+00 0.15263E+00 0.18944E+00 + 0.23551E+00 0.29287E+00 0.36335E+00 0.44919E+00 0.55051E+00 0.66406E+00 + 0.77710E+00 0.86817E+00 0.93296E+00 0.97145E+00 0.89160E+00 0.69103E+00 + 0.23953E+00 0.18364E+01 0.68336E+01 0.16681E+02 0.30635E+02 0.50529E+02 + 0.70054E+02 0.99034E+02 0.13957E+03 0.19550E+03 0.27394E+03 0.39413E+03 + 0.56638E+03 0.84339E+03 0.12714E+04 0.86135E-01 0.10431E+00 0.12720E+00 + 0.15599E+00 0.19220E+00 0.23763E+00 0.29445E+00 0.36509E+00 0.45184E+00 + 0.55732E+00 0.68162E+00 0.82063E+00 0.95863E+00 0.10694E+01 0.11478E+01 + 0.11941E+01 0.10976E+01 0.85754E+00 0.32170E+00 0.21734E+01 0.83583E+01 + 0.20471E+02 0.37436E+02 0.70175E+02 0.10651E+03 0.14850E+03 0.20761E+03 + 0.28775E+03 0.39552E+03 0.55684E+03 0.78121E+03 0.11335E+04 0.16628E+04 + 0.11603E+00 0.13928E+00 0.16856E+00 0.20537E+00 0.25164E+00 0.30967E+00 + 0.38217E+00 0.47227E+00 0.58274E+00 0.71688E+00 0.87467E+00 0.10507E+01 + 0.12247E+01 0.13634E+01 0.14604E+01 0.15162E+01 0.13919E+01 0.10891E+01 + 0.42208E+00 0.26545E+01 0.10374E+02 0.25405E+02 0.46262E+02 0.86202E+02 + 0.14662E+03 0.22649E+03 0.31216E+03 0.42872E+03 0.58339E+03 0.80566E+03 + 0.11059E+04 0.15666E+04 0.22392E+04 0.15189E+00 0.18050E+00 0.21651E+00 + 0.26179E+00 0.31868E+00 0.38998E+00 0.47906E+00 0.58963E+00 0.72511E+00 + 0.88946E+00 0.10825E+01 0.12974E+01 0.15093E+01 0.16773E+01 0.17938E+01 + 0.18597E+01 0.17067E+01 0.13390E+01 0.53545E+00 0.32500E+01 0.12927E+02 + 0.31686E+02 0.57515E+02 0.10668E+03 0.18029E+03 0.30822E+03 0.47660E+03 + 0.64530E+03 0.86946E+03 0.11896E+04 0.16020E+04 0.22208E+04 0.30991E+04 + 0.33487E-09 0.13756E-08 0.33392E-08 0.87356E-08 0.13465E-07 0.32814E-07 + 0.45262E-07 0.87038E-07 0.17262E-06 0.37953E-06 0.77939E-06 0.16276E-05 + 0.61370E-05 0.30897E-04 0.18044E-03 0.47830E-03 0.17643E-02 0.42227E-02 + 0.80836E-02 0.14382E-01 0.23959E-01 0.39552E-01 0.60204E-01 0.92074E-01 + 0.13657E+00 0.20686E+00 0.31586E+00 0.48238E+00 0.73362E+00 0.11310E+01 + 0.17214E+01 0.26643E+01 0.41017E+01 0.33117E-09 0.10169E-08 0.36394E-08 + 0.90112E-08 0.22341E-07 0.34200E-07 0.81169E-07 0.11637E-06 0.23337E-06 + 0.50111E-06 0.10419E-05 0.21266E-05 0.10090E-04 0.63429E-04 0.23106E-03 + 0.61059E-03 0.22477E-02 0.53674E-02 0.10255E-01 0.18214E-01 0.30300E-01 + 0.49959E-01 0.75958E-01 0.11604E+00 0.17194E+00 0.26015E+00 0.39676E+00 + 0.60513E+00 0.91889E+00 0.14141E+01 0.21474E+01 0.33148E+01 0.50865E+01 + 0.10029E-09 0.13762E-08 0.29491E-08 0.10279E-07 0.23576E-07 0.57447E-07 + 0.87178E-07 0.18124E-06 0.32930E-06 0.61425E-06 0.13973E-05 0.25372E-05 + 0.15421E-04 0.10778E-03 0.45969E-03 0.78364E-03 0.28760E-02 0.68477E-02 + 0.13050E-01 0.23132E-01 0.38414E-01 0.63244E-01 0.96041E-01 0.14655E+00 + 0.21691E+00 0.32782E+00 0.49943E+00 0.76080E+00 0.11537E+01 0.17727E+01 + 0.26872E+01 0.41389E+01 0.63342E+01 0.77479E-09 0.78887E-09 0.40749E-08 + 0.10437E-07 0.27194E-07 0.62513E-07 0.13912E-06 0.24782E-06 0.55653E-06 + 0.96824E-06 0.20751E-05 0.49145E-05 0.42641E-04 0.19434E-03 0.84673E-03 + 0.14853E-02 0.38970E-02 0.92306E-02 0.17524E-01 0.30964E-01 0.51288E-01 + 0.84260E-01 0.12772E+00 0.19458E+00 0.28758E+00 0.43409E+00 0.66043E+00 + 0.10048E+01 0.15215E+01 0.23340E+01 0.35315E+01 0.54276E+01 0.82846E+01 + 0.18109E-08 0.40394E-09 0.36884E-08 0.13690E-07 0.35668E-07 0.78406E-07 + 0.16750E-06 0.36792E-06 0.89071E-06 0.18930E-05 0.37786E-05 0.13180E-04 + 0.90819E-04 0.40460E-03 0.13343E-02 0.24900E-02 0.53373E-02 0.12002E-01 + 0.23649E-01 0.41618E-01 0.68705E-01 0.11256E+00 0.17024E+00 0.25886E+00 + 0.38196E+00 0.57566E+00 0.87470E+00 0.13290E+01 0.20099E+01 0.30790E+01 + 0.46514E+01 0.71359E+01 0.10870E+02 0.44772E-08 0.30561E-08 0.10806E-08 + 0.13979E-07 0.40290E-07 0.93751E-07 0.20440E-06 0.45918E-06 0.13617E-05 + 0.29952E-05 0.83442E-05 0.27038E-04 0.15982E-03 0.71015E-03 0.18756E-02 + 0.35721E-02 0.73730E-02 0.14591E-01 0.29196E-01 0.56224E-01 0.92420E-01 + 0.15089E+00 0.22755E+00 0.34518E+00 0.50832E+00 0.76486E+00 0.11604E+01 + 0.17608E+01 0.26593E+01 0.40686E+01 0.61379E+01 0.94022E+01 0.14297E+02 + 0.29795E-07 0.38470E-07 0.51218E-07 0.51498E-07 0.42412E-07 0.65343E-08 + 0.12477E-06 0.32827E-06 0.12322E-05 0.42486E-05 0.13843E-04 0.71904E-04 + 0.26210E-03 0.10368E-02 0.23805E-02 0.46454E-02 0.92211E-02 0.18136E-01 + 0.33309E-01 0.65229E-01 0.12455E+00 0.20257E+00 0.30449E+00 0.46072E+00 + 0.67700E+00 0.10168E+01 0.15405E+01 0.23342E+01 0.35212E+01 0.53809E+01 + 0.81083E+01 0.12405E+02 0.18836E+02 0.63613E-07 0.82210E-07 0.10896E-06 + 0.13984E-06 0.17894E-06 0.12782E-06 0.15672E-07 0.39993E-06 0.82789E-06 + 0.34746E-05 0.18998E-04 0.11995E-03 0.43430E-03 0.13343E-02 0.29721E-02 + 0.57211E-02 0.11134E-01 0.21090E-01 0.39078E-01 0.71708E-01 0.13670E+00 + 0.27175E+00 0.40958E+00 0.61755E+00 0.90480E+00 0.13558E+01 0.20499E+01 + 0.31012E+01 0.46714E+01 0.71292E+01 0.10729E+02 0.16395E+02 0.24864E+02 + 0.19481E-06 0.26201E-06 0.30440E-06 0.40212E-06 0.55979E-06 0.85204E-06 + 0.91118E-06 0.53493E-06 0.89481E-06 0.21261E-05 0.13573E-04 0.13965E-03 + 0.59414E-03 0.16478E-02 0.35247E-02 0.66520E-02 0.12780E-01 0.23988E-01 + 0.42976E-01 0.79332E-01 0.14621E+00 0.28329E+00 0.52276E+00 0.82928E+00 + 0.12110E+01 0.18097E+01 0.27304E+01 0.41233E+01 0.62016E+01 0.94527E+01 + 0.14209E+02 0.21689E+02 0.32854E+02 0.30634E-06 0.36906E-06 0.41991E-06 + 0.72486E-06 0.13541E-05 0.18291E-05 0.32840E-05 0.33705E-05 0.28004E-05 + 0.14554E-04 0.21205E-04 0.10929E-03 0.68287E-03 0.19762E-02 0.42831E-02 + 0.78621E-02 0.14573E-01 0.26860E-01 0.47662E-01 0.86127E-01 0.15834E+00 + 0.30115E+00 0.54481E+00 0.10153E+01 0.16339E+01 0.24319E+01 0.36570E+01 + 0.55075E+01 0.82652E+01 0.12574E+02 0.18871E+02 0.28761E+02 0.43511E+02 + 0.59741E-06 0.84945E-06 0.13349E-05 0.24580E-05 0.45467E-05 0.74682E-05 + 0.10492E-04 0.11208E-04 0.29483E-05 0.54721E-04 0.15669E-03 0.31922E-03 + 0.85268E-03 0.23560E-02 0.51491E-02 0.94461E-02 0.17401E-01 0.30056E-01 + 0.53310E-01 0.93963E-01 0.17063E+00 0.32127E+00 0.57513E+00 0.10605E+01 + 0.19105E+01 0.32851E+01 0.49188E+01 0.73819E+01 0.11046E+02 0.16766E+02 + 0.25112E+02 0.38211E+02 0.57722E+02 0.33715E-05 0.72270E-05 0.12206E-04 + 0.19029E-04 0.38754E-04 0.62503E-04 0.87165E-04 0.90505E-04 0.59513E-04 + 0.24699E-04 0.21406E-03 0.57908E-03 0.13525E-02 0.49396E-02 0.61924E-02 + 0.11153E-01 0.20359E-01 0.35589E-01 0.59694E-01 0.10446E+00 0.18631E+00 + 0.34226E+00 0.60537E+00 0.11174E+01 0.19922E+01 0.36570E+01 0.66342E+01 + 0.99160E+01 0.14790E+02 0.22388E+02 0.33459E+02 0.50818E+02 0.76647E+02 + 0.23785E-04 0.30200E-04 0.60313E-04 0.10350E-03 0.15795E-03 0.20189E-03 + 0.24324E-03 0.25274E-03 0.21513E-03 0.93644E-04 0.18788E-03 0.77357E-03 + 0.19483E-02 0.41987E-02 0.16599E-01 0.14490E-01 0.24343E-01 0.41532E-01 + 0.69060E-01 0.11687E+00 0.20466E+00 0.37169E+00 0.64416E+00 0.11772E+01 + 0.21038E+01 0.38249E+01 0.70594E+01 0.13113E+02 0.19894E+02 0.30008E+02 + 0.44718E+02 0.67759E+02 0.10200E+03 0.10671E-03 0.13534E-03 0.17180E-03 + 0.23879E-03 0.33723E-03 0.45740E-03 0.54169E-03 0.58442E-03 0.53677E-03 + 0.36234E-03 0.48491E-04 0.89980E-03 0.26350E-02 0.57855E-02 0.10789E-01 + 0.30475E-01 0.31784E-01 0.50183E-01 0.81320E-01 0.13434E+00 0.23017E+00 + 0.41006E+00 0.69847E+00 0.12581E+01 0.22205E+01 0.40416E+01 0.74061E+01 + 0.13628E+02 0.25130E+02 0.40422E+02 0.60007E+02 0.90649E+02 0.13611E+03 + 0.46223E-03 0.58593E-03 0.74357E-03 0.94289E-03 0.11601E-02 0.13735E-02 + 0.16273E-02 0.18239E-02 0.18489E-02 0.16652E-02 0.11024E-02 0.86839E-04 + 0.25404E-02 0.69838E-02 0.13566E-01 0.22676E-01 0.39232E-01 0.66330E-01 + 0.95956E-01 0.15524E+00 0.26078E+00 0.45626E+00 0.76326E+00 0.13543E+01 + 0.23581E+01 0.42441E+01 0.77740E+01 0.14256E+02 0.26054E+02 0.48582E+02 + 0.80668E+02 0.12144E+03 0.18184E+03 0.14013E-02 0.17745E-02 0.22497E-02 + 0.28525E-02 0.36177E-02 0.44486E-02 0.48717E-02 0.53527E-02 0.57345E-02 + 0.56226E-02 0.49829E-02 0.33536E-02 0.00000E+00 0.61102E-02 0.14975E-01 + 0.26619E-01 0.45358E-01 0.73090E-01 0.25372E+00 0.18031E+00 0.29810E+00 + 0.51338E+00 0.84322E+00 0.14734E+01 0.25277E+01 0.44935E+01 0.81449E+01 + 0.14898E+02 0.27230E+02 0.50332E+02 0.92367E+02 0.16312E+03 0.24342E+03 + 0.33862E-02 0.42821E-02 0.54210E-02 0.68653E-02 0.86990E-02 0.11016E-01 + 0.13921E-01 0.14546E-01 0.15084E-01 0.15482E-01 0.14532E-01 0.12261E-01 + 0.73441E-02 0.13597E-02 0.13547E-01 0.28887E-01 0.52928E-01 0.85689E-01 + 0.13469E+00 0.81909E+00 0.34778E+00 0.59060E+00 0.95166E+00 0.16356E+01 + 0.27591E+01 0.48341E+01 0.86519E+01 0.15652E+02 0.28443E+02 0.52747E+02 + 0.95892E+02 0.17840E+03 0.32730E+03 0.67723E-02 0.85529E-02 0.10812E-01 + 0.13674E-01 0.17302E-01 0.21889E-01 0.27655E-01 0.34818E-01 0.36966E-01 + 0.37115E-01 0.36415E-01 0.33066E-01 0.25768E-01 0.12878E-01 0.46712E-02 + 0.25758E-01 0.57901E-01 0.99721E-01 0.16017E+00 0.25418E+00 0.10404E+01 + 0.70356E+00 0.10997E+01 0.18585E+01 0.30777E+01 0.53037E+01 0.93515E+01 + 0.16694E+02 0.29982E+02 0.55102E+02 0.10057E+03 0.18569E+03 0.34203E+03 + 0.11879E-01 0.14984E-01 0.18917E-01 0.23889E-01 0.30180E-01 0.38121E-01 + 0.48097E-01 0.60506E-01 0.75562E-01 0.82509E-01 0.80074E-01 0.74596E-01 + 0.62603E-01 0.41711E-01 0.14844E-01 0.16060E-01 0.61757E-01 0.11849E+00 + 0.19747E+00 0.31663E+00 0.51388E+00 0.11173E+01 0.13265E+01 0.21984E+01 + 0.35618E+01 0.60139E+01 0.10405E+02 0.18256E+02 0.32287E+02 0.58563E+02 + 0.10568E+03 0.19537E+03 0.35784E+03 0.18821E-01 0.23713E-01 0.29899E-01 + 0.37709E-01 0.47574E-01 0.60005E-01 0.75606E-01 0.95015E-01 0.11866E+00 + 0.14695E+00 0.16539E+00 0.15564E+00 0.13641E+00 0.10317E+00 0.60265E-01 + 0.12817E-01 0.55256E-01 0.13611E+00 0.24441E+00 0.40263E+00 0.65801E+00 + 0.10901E+01 0.16586E+01 0.26958E+01 0.42672E+01 0.70433E+01 0.11922E+02 + 0.20494E+02 0.35572E+02 0.63475E+02 0.11290E+03 0.20622E+03 0.37692E+03 + 0.30828E-01 0.38796E-01 0.48861E-01 0.61560E-01 0.77585E-01 0.97766E-01 + 0.12309E+00 0.15466E+00 0.19334E+00 0.24009E+00 0.29400E+00 0.34039E+00 + 0.30846E+00 0.25541E+00 0.18893E+00 0.11476E+00 0.11066E-01 0.10701E+00 + 0.25942E+00 0.47518E+00 0.81527E+00 0.13779E+01 0.20815E+01 0.33484E+01 + 0.52017E+01 0.84156E+01 0.13950E+02 0.23481E+02 0.39944E+02 0.69990E+02 + 0.12245E+03 0.22050E+03 0.39812E+03 0.47848E-01 0.60139E-01 0.75655E-01 + 0.95212E-01 0.11987E+00 0.15090E+00 0.18981E+00 0.23834E+00 0.29793E+00 + 0.37032E+00 0.45484E+00 0.54679E+00 0.63021E+00 0.55179E+00 0.44299E+00 + 0.32755E+00 0.16262E+00 0.19119E-01 0.24580E+00 0.55670E+00 0.10342E+01 + 0.18045E+01 0.27184E+01 0.43380E+01 0.66164E+01 0.10483E+02 0.16983E+02 + 0.27913E+02 0.46381E+02 0.79511E+02 0.13631E+03 0.24113E+03 0.42859E+03 + 0.75131E-01 0.94301E-01 0.11848E+00 0.14896E+00 0.18735E+00 0.23564E+00 + 0.29620E+00 0.37175E+00 0.46483E+00 0.57842E+00 0.71260E+00 0.86256E+00 + 0.10094E+01 0.11208E+01 0.10140E+01 0.82561E+00 0.56711E+00 0.28181E+00 + 0.66102E-01 0.52962E+00 0.12243E+01 0.23181E+01 0.35484E+01 0.56956E+01 + 0.85930E+01 0.13401E+02 0.21276E+02 0.34176E+02 0.55432E+02 0.92820E+02 + 0.15557E+03 0.26960E+03 0.47042E+03 0.11233E+00 0.14076E+00 0.17660E+00 + 0.22175E+00 0.27859E+00 0.35006E+00 0.43965E+00 0.55141E+00 0.68924E+00 + 0.85780E+00 0.10580E+01 0.12848E+01 0.15152E+01 0.17096E+01 0.18609E+01 + 0.17633E+01 0.13343E+01 0.87898E+00 0.32569E+00 0.40015E+00 0.14617E+01 + 0.30918E+01 0.48373E+01 0.78285E+01 0.11697E+02 0.17957E+02 0.27919E+02 + 0.43762E+02 0.69129E+02 0.11273E+03 0.18406E+03 0.31131E+03 0.53116E+03 + 0.15812E+00 0.19773E+00 0.24766E+00 0.31050E+00 0.38959E+00 0.48894E+00 + 0.61343E+00 0.76859E+00 0.95984E+00 0.11937E+01 0.14716E+01 0.17874E+01 + 0.21116E+01 0.23940E+01 0.26270E+01 0.28156E+01 0.25699E+01 0.18024E+01 + 0.89611E+00 0.28244E+00 0.19786E+01 0.45203E+01 0.71312E+01 0.11512E+02 + 0.16950E+02 0.25516E+02 0.38733E+02 0.59084E+02 0.90648E+02 0.14348E+03 + 0.22742E+03 0.37385E+03 0.62110E+03 0.21715E+00 0.27085E+00 0.33851E+00 + 0.42365E+00 0.53074E+00 0.66519E+00 0.83350E+00 0.10431E+01 0.13013E+01 + 0.16167E+01 0.19912E+01 0.24169E+01 0.28548E+01 0.32396E+01 0.35627E+01 + 0.38319E+01 0.37639E+01 0.33174E+01 0.17891E+01 0.15537E+00 0.29403E+01 + 0.70225E+01 0.11074E+02 0.17735E+02 0.25699E+02 0.37916E+02 0.56195E+02 + 0.83429E+02 0.12429E+03 0.19076E+03 0.29301E+03 0.46701E+03 0.75316E+03 + 0.29548E+00 0.36737E+00 0.45792E+00 0.57182E+00 0.71502E+00 0.89473E+00 + 0.11195E+01 0.13994E+01 0.17437E+01 0.21637E+01 0.26623E+01 0.32278E+01 + 0.38096E+01 0.43214E+01 0.47522E+01 0.51132E+01 0.50372E+01 0.45477E+01 + 0.31627E+01 0.00000E+00 0.45817E+01 0.11320E+02 0.17802E+02 0.28234E+02 + 0.40296E+02 0.58355E+02 0.84597E+02 0.12247E+03 0.17741E+03 0.26424E+03 + 0.39333E+03 0.60722E+03 0.94884E+03 0.40395E+00 0.50018E+00 0.62139E+00 + 0.77383E+00 0.96540E+00 0.12057E+01 0.15062E+01 0.18800E+01 0.23398E+01 + 0.29002E+01 0.35650E+01 0.43186E+01 0.50941E+01 0.57779E+01 0.63567E+01 + 0.68456E+01 0.67670E+01 0.61590E+01 0.44078E+01 0.40384E+00 0.72079E+01 + 0.18242E+02 0.28915E+02 0.45767E+02 0.64548E+02 0.92061E+02 0.13100E+03 + 0.18553E+03 0.26213E+03 0.37980E+03 0.54872E+03 0.82103E+03 0.12425E+04 + 0.54872E+00 0.67601E+00 0.83628E+00 0.10378E+01 0.12909E+01 0.16084E+01 + 0.20053E+01 0.24986E+01 0.31049E+01 0.38433E+01 0.47179E+01 0.57081E+01 + 0.67234E+01 0.76147E+01 0.83630E+01 0.89881E+01 0.88632E+01 0.80430E+01 + 0.57355E+01 0.52317E+00 0.10729E+02 0.30554E+02 0.47911E+02 0.75566E+02 + 0.10610E+03 0.14919E+03 0.20877E+03 0.28996E+03 0.40063E+03 0.56603E+03 + 0.79541E+03 0.11551E+04 0.16940E+04 0.76033E+00 0.93077E+00 0.11454E+01 + 0.14151E+01 0.17539E+01 0.21788E+01 0.27096E+01 0.33695E+01 0.41803E+01 + 0.51672E+01 0.63362E+01 0.76599E+01 0.90194E+01 0.10219E+02 0.11233E+02 + 0.12092E+02 0.11975E+02 0.10962E+02 0.80305E+01 0.13626E+01 0.13043E+02 + 0.42316E+02 0.79048E+02 0.12411E+03 0.17366E+03 0.24435E+03 0.33780E+03 + 0.46213E+03 0.62703E+03 0.86738E+03 0.11898E+04 0.16821E+04 0.23959E+04 + 0.10505E+01 0.12759E+01 0.15597E+01 0.19163E+01 0.23645E+01 0.29261E+01 + 0.36277E+01 0.44994E+01 0.55699E+01 0.68724E+01 0.84136E+01 0.10157E+02 + 0.11944E+02 0.13513E+02 0.14835E+02 0.15947E+02 0.15767E+02 0.14406E+02 + 0.10530E+02 0.17819E+01 0.17000E+02 0.54929E+02 0.10728E+03 0.20871E+03 + 0.28916E+03 0.40324E+03 0.55823E+03 0.75371E+03 0.10068E+04 0.13674E+04 + 0.18365E+04 0.25348E+04 0.35154E+04 0.14677E+01 0.17659E+01 0.21413E+01 + 0.26130E+01 0.32057E+01 0.39480E+01 0.48754E+01 0.60272E+01 0.74409E+01 + 0.91605E+01 0.11193E+02 0.13490E+02 0.15841E+02 0.17898E+02 0.19624E+02 + 0.21067E+02 0.20799E+02 0.18973E+02 0.13843E+02 0.23375E+01 0.22243E+02 + 0.71644E+02 0.13939E+03 0.27041E+03 0.46541E+03 0.67290E+03 0.92090E+03 + 0.12451E+04 0.16468E+04 0.22032E+04 0.29070E+04 0.39307E+04 0.53254E+04 + 0.20783E+01 0.24729E+01 0.29695E+01 0.35934E+01 0.43769E+01 0.53587E+01 + 0.65845E+01 0.81071E+01 0.99743E+01 0.12245E+02 0.14928E+02 0.17955E+02 + 0.21048E+02 0.23747E+02 0.26001E+02 0.27875E+02 0.27486E+02 0.25038E+02 + 0.18240E+02 0.30745E+01 0.29195E+02 0.93801E+02 0.18194E+03 0.35166E+03 + 0.60250E+03 0.10346E+04 0.15403E+04 0.20595E+04 0.27198E+04 0.36145E+04 + 0.47002E+04 0.62474E+04 0.82970E+04 0.42502E-09 0.15042E-08 0.35179E-08 + 0.83003E-08 0.16099E-07 0.30793E-07 0.70759E-07 0.10228E-06 0.20393E-06 + 0.44899E-06 0.91498E-06 0.18872E-05 0.81980E-05 0.47543E-04 0.20695E-03 + 0.54767E-03 0.20182E-02 0.48247E-02 0.92265E-02 0.16401E-01 0.27301E-01 + 0.45039E-01 0.68515E-01 0.10472E+00 0.15524E+00 0.23499E+00 0.35857E+00 + 0.54719E+00 0.83145E+00 0.12805E+01 0.19464E+01 0.30079E+01 0.46217E+01 + 0.23618E-09 0.14618E-08 0.41422E-08 0.96989E-08 0.21457E-07 0.41145E-07 + 0.78109E-07 0.15428E-06 0.28218E-06 0.55927E-06 0.12291E-05 0.23427E-05 + 0.12848E-04 0.86440E-04 0.34757E-03 0.70080E-03 0.25758E-02 0.61417E-02 + 0.11718E-01 0.20791E-01 0.34556E-01 0.56931E-01 0.86501E-01 0.13206E+00 + 0.19555E+00 0.29570E+00 0.45071E+00 0.68695E+00 0.10423E+01 0.16026E+01 + 0.24311E+01 0.37480E+01 0.57427E+01 0.74597E-10 0.13591E-08 0.44624E-08 + 0.11990E-07 0.25660E-07 0.55573E-07 0.10510E-06 0.20702E-06 0.39477E-06 + 0.75883E-06 0.16309E-05 0.28189E-05 0.26317E-04 0.13839E-03 0.61954E-03 + 0.10692E-02 0.32999E-02 0.78419E-02 0.14920E-01 0.26411E-01 0.43812E-01 + 0.72065E-01 0.10935E+00 0.16673E+00 0.24663E+00 0.37251E+00 0.56719E+00 + 0.86349E+00 0.13086E+01 0.20091E+01 0.30428E+01 0.46817E+01 0.71558E+01 + 0.93428E-09 0.53286E-09 0.40917E-08 0.12751E-07 0.31311E-07 0.65914E-07 + 0.14134E-06 0.27871E-06 0.65932E-06 0.10890E-05 0.24998E-05 0.67044E-05 + 0.52556E-04 0.24534E-03 0.98252E-03 0.17326E-02 0.42536E-02 0.10048E-01 + 0.19051E-01 0.33629E-01 0.55654E-01 0.91366E-01 0.13841E+00 0.21076E+00 + 0.31136E+00 0.46979E+00 0.71456E+00 0.10866E+01 0.16449E+01 0.25223E+01 + 0.38146E+01 0.58594E+01 0.89383E+01 0.21243E-08 0.74153E-09 0.32895E-08 + 0.13581E-07 0.35232E-07 0.82842E-07 0.17047E-06 0.38244E-06 0.93149E-06 + 0.19954E-05 0.39880E-05 0.14448E-04 0.97821E-04 0.43194E-03 0.13819E-02 + 0.26181E-02 0.55195E-02 0.12235E-01 0.24416E-01 0.42946E-01 0.70868E-01 + 0.11607E+00 0.17550E+00 0.26679E+00 0.39359E+00 0.59310E+00 0.90109E+00 + 0.13689E+01 0.20699E+01 0.31705E+01 0.47890E+01 0.73456E+01 0.11187E+02 + 0.52980E-08 0.36933E-08 0.00000E+00 0.11936E-07 0.37492E-07 0.92818E-07 + 0.20986E-06 0.44461E-06 0.13050E-05 0.30069E-05 0.78830E-05 0.25870E-04 + 0.15465E-03 0.68420E-03 0.18297E-02 0.35061E-02 0.72038E-02 0.14376E-01 + 0.28941E-01 0.55034E-01 0.90496E-01 0.14779E+00 0.22293E+00 0.33825E+00 + 0.49819E+00 0.74970E+00 0.11376E+01 0.17262E+01 0.26074E+01 0.39897E+01 + 0.60195E+01 0.92218E+01 0.14024E+02 0.34959E-07 0.49816E-07 0.61297E-07 + 0.66825E-07 0.64991E-07 0.24302E-07 0.79519E-07 0.30127E-06 0.10616E-05 + 0.38221E-05 0.13011E-04 0.58904E-04 0.23636E-03 0.96762E-03 0.22649E-02 + 0.44144E-02 0.88816E-02 0.17337E-01 0.32365E-01 0.64136E-01 0.11767E+00 + 0.19160E+00 0.28824E+00 0.43646E+00 0.64172E+00 0.96433E+00 0.14615E+01 + 0.22154E+01 0.33430E+01 0.51101E+01 0.77024E+01 0.11787E+02 0.17903E+02 + 0.68113E-07 0.90470E-07 0.12042E-06 0.16679E-06 0.20364E-06 0.17183E-06 + 0.55536E-07 0.28079E-06 0.77133E-06 0.35042E-05 0.18082E-04 0.11187E-03 + 0.39277E-03 0.12723E-02 0.28562E-02 0.55064E-02 0.10853E-01 0.20549E-01 + 0.38011E-01 0.70396E-01 0.13515E+00 0.26049E+00 0.39020E+00 0.58880E+00 + 0.86325E+00 0.12942E+01 0.19577E+01 0.29627E+01 0.44643E+01 0.68154E+01 + 0.10259E+02 0.15680E+02 0.23785E+02 0.19794E-06 0.26147E-06 0.30742E-06 + 0.42140E-06 0.59073E-06 0.89223E-06 0.89809E-06 0.65947E-06 0.62834E-06 + 0.17131E-05 0.13832E-04 0.14029E-03 0.56668E-03 0.15906E-02 0.34193E-02 + 0.64951E-02 0.12539E-01 0.23577E-01 0.42232E-01 0.78456E-01 0.14442E+00 + 0.28101E+00 0.51982E+00 0.79588E+00 0.11630E+01 0.17391E+01 0.26251E+01 + 0.39657E+01 0.59667E+01 0.90972E+01 0.13678E+02 0.20882E+02 0.31638E+02 + 0.32798E-06 0.39950E-06 0.47697E-06 0.79435E-06 0.14253E-05 0.18695E-05 + 0.36437E-05 0.39371E-05 0.77931E-06 0.10493E-04 0.15049E-04 0.12616E-03 + 0.66639E-03 0.19201E-02 0.41498E-02 0.76587E-02 0.14286E-01 0.26455E-01 + 0.47012E-01 0.85020E-01 0.15686E+00 0.29833E+00 0.54116E+00 0.10098E+01 + 0.15788E+01 0.23515E+01 0.35381E+01 0.53310E+01 0.80031E+01 0.12180E+02 + 0.18284E+02 0.27873E+02 0.42175E+02 0.59580E-06 0.79020E-06 0.11639E-05 + 0.18816E-05 0.39321E-05 0.71351E-05 0.12496E-04 0.17097E-04 0.11295E-04 + 0.32144E-04 0.12235E-03 0.26853E-03 0.75806E-03 0.22365E-02 0.49622E-02 + 0.91678E-02 0.16950E-01 0.29459E-01 0.52313E-01 0.92617E-01 0.16850E+00 + 0.31820E+00 0.57000E+00 0.10528E+01 0.18991E+01 0.31942E+01 0.47864E+01 + 0.71879E+01 0.10762E+02 0.16341E+02 0.24484E+02 0.37268E+02 0.56310E+02 + 0.26500E-06 0.55053E-06 0.81423E-06 0.95996E-06 0.66081E-06 0.33444E-05 + 0.16922E-04 0.47235E-04 0.11038E-03 0.23341E-03 0.45460E-03 0.84149E-03 + 0.16630E-02 0.48519E-02 0.67154E-02 0.11883E-01 0.21360E-01 0.36994E-01 + 0.61528E-01 0.10712E+00 0.19023E+00 0.34821E+00 0.61467E+00 0.11304E+01 + 0.20122E+01 0.36879E+01 0.65711E+01 0.98095E+01 0.14616E+02 0.22105E+02 + 0.33014E+02 0.50112E+02 0.75544E+02 0.30553E-04 0.38868E-04 0.77383E-04 + 0.13117E-03 0.19992E-03 0.25683E-03 0.31471E-03 0.34084E-03 0.32317E-03 + 0.22376E-03 0.30856E-04 0.58100E-03 0.17073E-02 0.38877E-02 0.17314E-01 + 0.13837E-01 0.23574E-01 0.40452E-01 0.67563E-01 0.11476E+00 0.20162E+00 + 0.36722E+00 0.63761E+00 0.11674E+01 0.20891E+01 0.38010E+01 0.70233E+01 + 0.13058E+02 0.19629E+02 0.29627E+02 0.44169E+02 0.66955E+02 0.10082E+03 + 0.14771E-03 0.18769E-03 0.23892E-03 0.33532E-03 0.47834E-03 0.65815E-03 + 0.79572E-03 0.89542E-03 0.90186E-03 0.78421E-03 0.43412E-03 0.33572E-03 + 0.19663E-02 0.49906E-02 0.98191E-02 0.29772E-01 0.30107E-01 0.48083E-01 + 0.78510E-01 0.13049E+00 0.22478E+00 0.40235E+00 0.68730E+00 0.12416E+01 + 0.21959E+01 0.40045E+01 0.73490E+01 0.13541E+02 0.24998E+02 0.40115E+02 + 0.59594E+02 0.90083E+02 0.13532E+03 0.52596E-03 0.66699E-03 0.84694E-03 + 0.10752E-02 0.13257E-02 0.15713E-02 0.18678E-02 0.21127E-02 0.21772E-02 + 0.20335E-02 0.15062E-02 0.34947E-03 0.20424E-02 0.64361E-02 0.12953E-01 + 0.21968E-01 0.38296E-01 0.69852E-01 0.94603E-01 0.15347E+00 0.25841E+00 + 0.45301E+00 0.75865E+00 0.13476E+01 0.23483E+01 0.42295E+01 0.77519E+01 + 0.14226E+02 0.26006E+02 0.48509E+02 0.80838E+02 0.12173E+03 0.18229E+03 + 0.11572E-03 0.14252E-03 0.17311E-03 0.20262E-03 0.22440E-03 0.21229E-03 + 0.11466E-03 0.93378E-04 0.53712E-03 0.12990E-02 0.26676E-02 0.50457E-02 + 0.93609E-02 0.16736E-01 0.27248E-01 0.40941E-01 0.62483E-01 0.94055E-01 + 0.35646E+00 0.21422E+00 0.34297E+00 0.57428E+00 0.92745E+00 0.15926E+01 + 0.26993E+01 0.47446E+01 0.85177E+01 0.15458E+02 0.28093E+02 0.51635E+02 + 0.94353E+02 0.16766E+03 0.24946E+03 0.25531E-02 0.32263E-02 0.40801E-02 + 0.51584E-02 0.65195E-02 0.82231E-02 0.10324E-01 0.10804E-01 0.10963E-01 + 0.10855E-01 0.95515E-02 0.67855E-02 0.12612E-02 0.83758E-02 0.21632E-01 + 0.38314E-01 0.64185E-01 0.99343E-01 0.15160E+00 0.83707E+00 0.37632E+00 + 0.62814E+00 0.10024E+01 0.17063E+01 0.28588E+01 0.49776E+01 0.88619E+01 + 0.15964E+02 0.28908E+02 0.53490E+02 0.97027E+02 0.18012E+03 0.33389E+03 + 0.31455E-04 0.29232E-04 0.17215E-04 0.21835E-04 0.11101E-03 0.30940E-03 + 0.73438E-03 0.16379E-02 0.31324E-02 0.53572E-02 0.91922E-02 0.15584E-01 + 0.26515E-01 0.44266E-01 0.67571E-01 0.95764E-01 0.13739E+00 0.19172E+00 + 0.26904E+00 0.38621E+00 0.10919E+01 0.92398E+00 0.13750E+01 0.22285E+01 + 0.35851E+01 0.60155E+01 0.10370E+02 0.18175E+02 0.32167E+02 0.58369E+02 + 0.10550E+03 0.19335E+03 0.35365E+03 0.81043E-02 0.10216E-01 0.12885E-01 + 0.16247E-01 0.20480E-01 0.25779E-01 0.32345E-01 0.40326E-01 0.49581E-01 + 0.54339E-01 0.50273E-01 0.42581E-01 0.27947E-01 0.36762E-02 0.27393E-01 + 0.63335E-01 0.11571E+00 0.18085E+00 0.27082E+00 0.40484E+00 0.62289E+00 + 0.99450E+00 0.15046E+01 0.24348E+01 0.38798E+01 0.64529E+01 0.11024E+02 + 0.19143E+02 0.33575E+02 0.60465E+02 0.10850E+03 0.19963E+03 0.36483E+03 + 0.12848E-01 0.16178E-01 0.20381E-01 0.25671E-01 0.32325E-01 0.40652E-01 + 0.50984E-01 0.63595E-01 0.78411E-01 0.95141E-01 0.10711E+00 0.94021E-01 + 0.70054E-01 0.30678E-01 0.19322E-01 0.75191E-01 0.15435E+00 0.24876E+00 + 0.37450E+00 0.55589E+00 0.84338E+00 0.13211E+01 0.19477E+01 0.30710E+01 + 0.47598E+01 0.77087E+01 0.12842E+02 0.21787E+02 0.37418E+02 0.66159E+02 + 0.11684E+03 0.21207E+03 0.38569E+03 0.28874E-01 0.36270E-01 0.45592E-01 + 0.57308E-01 0.72020E-01 0.90419E-01 0.11325E+00 0.14123E+00 0.17449E+00 + 0.21293E+00 0.25342E+00 0.28773E+00 0.29480E+00 0.20250E+00 0.70153E-01 + 0.73590E-01 0.27014E+00 0.48911E+00 0.76255E+00 0.11341E+01 0.16934E+01 + 0.25763E+01 0.36294E+01 0.54489E+01 0.79913E+01 0.12235E+02 0.19272E+02 + 0.30974E+02 0.50553E+02 0.85332E+02 0.14455E+03 0.25301E+03 0.44593E+03 + 0.48443E-01 0.60750E-01 0.76251E-01 0.95732E-01 0.12019E+00 0.15079E+00 + 0.18881E+00 0.23554E+00 0.29158E+00 0.35725E+00 0.42885E+00 0.49597E+00 + 0.53115E+00 0.48987E+00 0.32806E+00 0.67933E-01 0.28373E+00 0.67071E+00 + 0.11355E+01 0.17476E+01 0.26438E+01 0.40187E+01 0.55657E+01 0.81831E+01 + 0.11668E+02 0.17319E+02 0.26386E+02 0.40969E+02 0.64601E+02 0.10551E+03 + 0.17325E+03 0.29484E+03 0.50673E+03 0.79499E-01 0.99478E-01 0.12464E+00 + 0.15626E+00 0.19595E+00 0.24560E+00 0.30738E+00 0.38350E+00 0.47527E+00 + 0.58387E+00 0.70497E+00 0.82533E+00 0.90869E+00 0.89678E+00 0.76451E+00 + 0.49070E+00 0.13181E+00 0.82234E+00 0.16543E+01 0.27152E+01 0.42245E+01 + 0.64810E+01 0.88857E+01 0.12872E+02 0.17930E+02 0.25891E+02 0.38232E+02 + 0.57374E+02 0.87309E+02 0.13762E+03 0.21827E+03 0.35952E+03 0.59956E+03 + 0.12598E+00 0.15720E+00 0.19650E+00 0.24588E+00 0.30786E+00 0.38540E+00 + 0.48192E+00 0.60097E+00 0.74506E+00 0.91647E+00 0.11102E+01 0.13088E+01 + 0.14641E+01 0.14980E+01 0.13810E+01 0.10915E+01 0.32272E+00 0.89670E+00 + 0.23883E+01 0.42971E+01 0.69891E+01 0.10870E+02 0.14815E+02 0.21231E+02 + 0.29005E+02 0.40893E+02 0.58691E+02 0.85276E+02 0.12529E+03 0.19042E+03 + 0.29103E+03 0.46233E+03 0.74485E+03 0.19494E+00 0.24234E+00 0.30199E+00 + 0.37692E+00 0.47097E+00 0.58863E+00 0.73512E+00 0.91598E+00 0.11353E+01 + 0.13970E+01 0.16953E+01 0.20069E+01 0.22665E+01 0.23685E+01 0.22768E+01 + 0.19688E+01 0.10336E+01 0.56657E+00 0.33949E+01 0.69499E+01 0.11782E+02 + 0.18842E+02 0.25649E+02 0.36476E+02 0.49068E+02 0.67810E+02 0.94952E+02 + 0.13402E+03 0.19057E+03 0.27959E+03 0.41170E+03 0.62977E+03 0.97732E+03 + 0.29146E+00 0.36051E+00 0.44740E+00 0.55652E+00 0.69345E+00 0.86472E+00 + 0.10779E+01 0.13411E+01 0.16604E+01 0.20419E+01 0.24775E+01 0.29361E+01 + 0.33264E+01 0.35039E+01 0.34213E+01 0.30523E+01 0.18367E+01 0.25986E+00 + 0.39820E+01 0.10630E+02 0.21009E+02 0.33693E+02 0.46055E+02 0.65438E+02 + 0.86805E+02 0.11786E+03 0.16148E+03 0.22212E+03 0.30665E+03 0.43533E+03 + 0.61856E+03 0.91132E+03 0.13607E+04 0.44702E+00 0.54928E+00 0.67794E+00 + 0.83952E+00 0.10422E+01 0.12958E+01 0.16115E+01 0.20015E+01 0.24752E+01 + 0.30425E+01 0.36933E+01 0.43858E+01 0.49949E+01 0.53223E+01 0.53079E+01 + 0.49235E+01 0.34019E+01 0.71958E+00 0.41183E+01 0.12836E+02 0.29109E+02 + 0.59433E+02 0.82438E+02 0.11719E+03 0.15613E+03 0.20974E+03 0.28291E+03 + 0.38153E+03 0.51430E+03 0.71021E+03 0.97799E+03 0.13922E+04 0.20038E+04 + 0.66942E+00 0.81549E+00 0.99926E+00 0.12301E+01 0.15195E+01 0.18815E+01 + 0.23321E+01 0.28888E+01 0.35648E+01 0.43745E+01 0.53042E+01 0.62953E+01 + 0.71734E+01 0.76617E+01 0.76800E+01 0.71938E+01 0.51398E+01 0.15015E+01 + 0.50770E+01 0.16930E+02 0.39015E+02 0.79991E+02 0.13615E+03 0.21681E+03 + 0.28552E+03 0.38332E+03 0.51367E+03 0.68119E+03 0.89989E+03 0.12136E+04 + 0.16262E+04 0.22451E+04 0.31237E+04 0.10349E+01 0.12470E+01 0.15139E+01 + 0.18490E+01 0.22692E+01 0.27950E+01 0.34494E+01 0.42579E+01 0.52406E+01 + 0.64190E+01 0.77754E+01 0.92301E+01 0.10541E+02 0.11324E+02 0.11476E+02 + 0.10959E+02 0.82965E+01 0.34941E+01 0.53038E+01 0.21277E+02 0.51169E+02 + 0.10667E+03 0.18215E+03 0.32157E+03 0.52679E+03 0.70292E+03 0.93638E+03 + 0.12425E+04 0.16174E+04 0.21419E+04 0.28083E+04 0.37798E+04 0.51091E+04 + 0.16032E+01 0.19059E+01 0.22869E+01 0.27651E+01 0.33649E+01 0.41150E+01 + 0.50488E+01 0.62019E+01 0.76042E+01 0.92860E+01 0.11223E+02 0.13305E+02 + 0.15192E+02 0.16348E+02 0.16635E+02 0.16009E+02 0.12411E+02 0.58701E+01 + 0.61763E+01 0.28106E+02 0.69190E+02 0.14539E+03 0.24844E+03 0.43813E+03 + 0.71515E+03 0.11827E+04 0.17390E+04 0.22783E+04 0.29635E+04 0.38931E+04 + 0.50160E+04 0.66133E+04 0.87258E+04 0.25404E+01 0.29726E+01 0.35163E+01 + 0.41986E+01 0.50544E+01 0.61245E+01 0.74564E+01 0.91018E+01 0.11101E+02 + 0.13501E+02 0.16266E+02 0.19242E+02 0.21954E+02 0.23652E+02 0.24154E+02 + 0.23409E+02 0.18539E+02 0.96125E+01 0.69239E+01 0.37132E+02 0.93827E+02 + 0.19899E+03 0.34060E+03 0.60079E+03 0.97857E+03 0.16127E+04 0.26469E+04 + 0.42592E+04 0.54753E+04 0.71422E+04 0.91898E+04 0.11923E+05 0.15432E+05 + 0.41307E+01 0.47472E+01 0.55228E+01 0.64961E+01 0.77167E+01 0.92428E+01 + 0.11142E+02 0.13487E+02 0.16338E+02 0.19758E+02 0.23702E+02 0.27952E+02 + 0.31840E+02 0.34316E+02 0.35144E+02 0.34271E+02 0.27661E+02 0.15455E+02 + 0.72941E+01 0.49008E+02 0.12749E+03 0.27318E+03 0.46873E+03 0.82770E+03 + 0.13468E+04 0.22148E+04 0.36229E+04 0.58576E+04 0.93503E+04 0.13285E+05 + 0.16876E+05 0.21875E+05 0.28054E+05 0.69063E+01 0.77857E+01 0.88916E+01 + 0.10280E+02 0.12020E+02 0.14195E+02 0.16901E+02 0.20242E+02 0.24302E+02 + 0.29173E+02 0.34791E+02 0.40846E+02 0.46397E+02 0.49978E+02 0.51279E+02 + 0.50263E+02 0.41257E+02 0.24522E+02 0.68464E+01 0.64585E+02 0.17351E+03 + 0.37592E+03 0.64693E+03 0.11444E+04 0.18615E+04 0.30578E+04 0.49908E+04 + 0.80433E+04 0.12782E+05 0.20509E+05 0.31579E+05 0.40437E+05 0.51515E+05 + 0.48046E-09 0.16304E-08 0.36732E-08 0.92210E-08 0.13914E-07 0.33484E-07 + 0.45835E-07 0.87724E-07 0.17345E-06 0.38069E-06 0.78089E-06 0.16296E-05 + 0.61417E-05 0.30912E-04 0.18050E-03 0.47843E-03 0.17647E-02 0.42234E-02 + 0.80848E-02 0.14384E-01 0.23961E-01 0.39555E-01 0.60208E-01 0.92079E-01 + 0.13658E+00 0.20687E+00 0.31587E+00 0.48240E+00 0.73364E+00 0.11311E+01 + 0.17215E+01 0.26644E+01 0.41017E+01 0.56161E-09 0.12374E-08 0.40100E-08 + 0.95020E-08 0.23009E-07 0.34917E-07 0.82035E-07 0.11771E-06 0.23499E-06 + 0.50328E-06 0.10462E-05 0.21336E-05 0.10135E-04 0.63768E-04 0.23160E-03 + 0.61196E-03 0.22526E-02 0.53788E-02 0.10276E-01 0.18251E-01 0.30361E-01 + 0.50057E-01 0.76110E-01 0.11627E+00 0.17227E+00 0.26064E+00 0.39751E+00 + 0.60625E+00 0.92059E+00 0.14167E+01 0.21514E+01 0.33209E+01 0.50958E+01 + 0.13449E-09 0.14242E-08 0.30623E-08 0.10386E-07 0.23747E-07 0.57410E-07 + 0.87769E-07 0.18227E-06 0.33168E-06 0.61717E-06 0.14055E-05 0.25471E-05 + 0.15547E-04 0.10883E-03 0.46515E-03 0.78767E-03 0.28906E-02 0.68821E-02 + 0.13115E-01 0.23245E-01 0.38601E-01 0.63550E-01 0.96501E-01 0.14724E+00 + 0.21792E+00 0.32937E+00 0.50177E+00 0.76434E+00 0.11591E+01 0.17809E+01 + 0.26994E+01 0.41575E+01 0.63625E+01 0.11556E-08 0.37413E-09 0.34279E-08 + 0.80308E-08 0.25934E-07 0.59481E-07 0.14028E-06 0.23067E-06 0.49377E-06 + 0.90536E-06 0.18624E-05 0.40128E-05 0.37612E-04 0.16876E-03 0.77740E-03 + 0.13588E-02 0.37138E-02 0.88098E-02 0.16736E-01 0.29589E-01 0.49033E-01 + 0.80587E-01 0.12219E+00 0.18621E+00 0.27528E+00 0.41558E+00 0.63245E+00 + 0.96236E+00 0.14576E+01 0.22366E+01 0.33850E+01 0.52040E+01 0.79462E+01 + 0.30313E-08 0.27427E-08 0.85121E-09 0.92676E-08 0.20412E-07 0.65201E-07 + 0.14950E-06 0.30805E-06 0.74443E-06 0.14217E-05 0.31739E-05 0.96250E-05 + 0.71099E-04 0.32747E-03 0.11986E-02 0.21265E-02 0.48180E-02 0.11331E-01 + 0.21459E-01 0.37820E-01 0.62514E-01 0.10252E+00 0.15518E+00 0.23613E+00 + 0.34863E+00 0.52571E+00 0.79922E+00 0.12148E+01 0.18379E+01 0.28169E+01 + 0.42574E+01 0.65351E+01 0.99605E+01 0.94966E-08 0.76373E-08 0.72231E-08 + 0.27151E-08 0.22982E-07 0.51934E-07 0.16330E-06 0.39853E-06 0.87498E-06 + 0.23283E-05 0.54130E-05 0.19773E-04 0.12737E-03 0.54637E-03 0.15837E-02 + 0.31510E-02 0.62902E-02 0.13213E-01 0.27552E-01 0.48548E-01 0.79992E-01 + 0.13086E+00 0.19765E+00 0.30022E+00 0.44260E+00 0.66657E+00 0.10121E+01 + 0.15368E+01 0.23227E+01 0.35559E+01 0.53681E+01 0.82288E+01 0.12523E+02 + 0.14327E-07 0.23151E-07 0.19508E-07 0.16561E-07 0.64961E-08 0.57580E-07 + 0.13252E-06 0.42147E-06 0.13627E-05 0.29143E-05 0.10499E-04 0.37738E-04 + 0.18689E-03 0.84078E-03 0.20508E-02 0.39114E-02 0.82214E-02 0.15702E-01 + 0.30485E-01 0.62077E-01 0.10267E+00 0.16744E+00 0.25226E+00 0.38236E+00 + 0.56271E+00 0.84621E+00 0.12833E+01 0.19463E+01 0.29384E+01 0.44938E+01 + 0.67767E+01 0.10376E+02 0.15770E+02 0.29580E-07 0.37419E-07 0.51818E-07 + 0.52541E-07 0.39599E-07 0.15064E-07 0.14848E-06 0.34029E-06 0.12278E-05 + 0.43750E-05 0.15095E-04 0.86071E-04 0.28727E-03 0.11037E-02 0.25027E-02 + 0.48401E-02 0.95996E-02 0.18929E-01 0.34360E-01 0.66419E-01 0.13072E+00 + 0.21514E+00 0.32309E+00 0.48851E+00 0.71741E+00 0.10770E+01 0.16309E+01 + 0.24704E+01 0.37255E+01 0.56917E+01 0.85741E+01 0.13114E+02 0.19907E+02 + 0.61201E-07 0.78442E-07 0.10348E-06 0.12890E-06 0.16686E-06 0.11394E-06 + 0.48543E-07 0.44727E-06 0.90393E-06 0.34823E-05 0.19305E-04 0.12349E-03 + 0.44450E-03 0.13521E-02 0.30003E-02 0.57668E-02 0.11213E-01 0.21241E-01 + 0.39255E-01 0.72073E-01 0.13713E+00 0.27231E+00 0.41481E+00 0.62530E+00 + 0.91599E+00 0.13723E+01 0.20747E+01 0.31382E+01 0.47270E+01 0.72135E+01 + 0.10855E+02 0.16586E+02 0.25152E+02 0.13891E-06 0.18276E-06 0.21133E-06 + 0.28103E-06 0.37491E-06 0.51792E-06 0.39722E-06 0.16747E-06 0.14477E-05 + 0.23155E-05 0.15697E-04 0.15136E-03 0.59542E-03 0.16419E-02 0.34992E-02 + 0.66119E-02 0.12714E-01 0.23853E-01 0.42664E-01 0.79081E-01 0.14544E+00 + 0.28252E+00 0.52210E+00 0.80350E+00 0.11735E+01 0.17539E+01 0.26463E+01 + 0.39963E+01 0.60112E+01 0.91623E+01 0.13774E+02 0.21023E+02 0.31849E+02 + 0.29279E-06 0.36885E-06 0.47059E-06 0.68563E-06 0.11460E-05 0.15260E-05 + 0.27730E-05 0.24428E-05 0.11527E-05 0.81149E-05 0.11484E-04 0.13811E-03 + 0.66783E-03 0.18704E-02 0.40239E-02 0.74562E-02 0.14005E-01 0.26069E-01 + 0.46366E-01 0.83868E-01 0.15538E+00 0.29529E+00 0.53747E+00 0.10043E+01 + 0.15035E+01 0.22408E+01 0.33734E+01 0.50849E+01 0.76365E+01 0.11625E+02 + 0.17455E+02 0.26617E+02 0.40283E+02 0.61026E-06 0.78872E-06 0.10240E-05 + 0.13504E-05 0.34985E-05 0.65614E-05 0.11685E-04 0.19966E-04 0.18119E-04 + 0.80814E-05 0.61419E-04 0.14165E-03 0.66090E-03 0.20233E-02 0.45522E-02 + 0.84682E-02 0.15695E-01 0.28029E-01 0.49785E-01 0.89310E-01 0.16309E+00 + 0.31062E+00 0.55679E+00 0.10331E+01 0.18702E+01 0.28800E+01 0.43240E+01 + 0.65037E+01 0.97499E+01 0.14821E+02 0.22226E+02 0.33855E+02 0.51188E+02 + 0.27582E-05 0.49115E-05 0.77446E-05 0.17743E-04 0.33584E-04 0.57672E-04 + 0.79229E-04 0.99139E-04 0.10785E-03 0.82874E-04 0.26872E-04 0.25658E-03 + 0.84255E-03 0.22540E-02 0.49992E-02 0.94017E-02 0.17616E-01 0.31130E-01 + 0.53913E-01 0.94871E-01 0.17238E+00 0.32293E+00 0.57852E+00 0.10677E+01 + 0.19196E+01 0.35487E+01 0.55553E+01 0.83354E+01 0.12471E+02 0.18927E+02 + 0.28345E+02 0.43129E+02 0.65144E+02 0.25215E-04 0.42867E-04 0.72138E-04 + 0.11046E-03 0.16648E-03 0.24291E-03 0.32316E-03 0.39340E-03 0.42400E-03 + 0.40203E-03 0.26406E-03 0.93331E-04 0.86187E-03 0.30581E-02 0.57571E-02 + 0.10349E-01 0.19361E-01 0.34286E-01 0.58547E-01 0.10218E+00 0.18316E+00 + 0.33801E+00 0.59744E+00 0.11071E+01 0.19813E+01 0.36389E+01 0.67800E+01 + 0.10770E+02 0.16076E+02 0.24354E+02 0.36417E+02 0.55342E+02 0.83504E+02 + 0.55832E-04 0.71100E-04 0.14557E-03 0.28566E-03 0.46926E-03 0.64969E-03 + 0.83559E-03 0.99087E-03 0.11035E-02 0.11256E-02 0.98746E-03 0.55853E-03 + 0.46684E-03 0.25370E-02 0.78995E-02 0.12242E-01 0.21219E-01 0.37366E-01 + 0.63462E-01 0.10913E+00 0.19376E+00 0.35615E+00 0.62090E+00 0.11425E+01 + 0.20504E+01 0.37544E+01 0.69507E+01 0.12944E+02 0.20781E+02 0.31412E+02 + 0.46884E+02 0.71145E+02 0.10721E+03 0.42078E-03 0.53570E-03 0.68394E-03 + 0.90979E-03 0.12599E-02 0.17148E-02 0.21691E-02 0.25231E-02 0.28017E-02 + 0.29448E-02 0.28344E-02 0.23665E-02 0.10628E-02 0.16538E-02 0.59234E-02 + 0.13012E-01 0.26357E-01 0.40996E-01 0.69297E-01 0.11816E+00 0.20791E+00 + 0.37889E+00 0.65312E+00 0.11916E+01 0.21206E+01 0.38904E+01 0.71959E+01 + 0.13306E+02 0.24632E+02 0.41718E+02 0.62108E+02 0.94064E+02 0.14152E+03 + 0.13832E-02 0.17570E-02 0.22366E-02 0.28524E-02 0.35710E-02 0.42069E-02 + 0.50189E-02 0.59052E-02 0.64477E-02 0.68297E-02 0.67553E-02 0.59871E-02 + 0.43128E-02 0.62149E-03 0.50481E-02 0.12856E-01 0.26625E-01 0.95087E-01 + 0.77515E-01 0.13120E+00 0.22867E+00 0.41247E+00 0.70122E+00 0.12653E+01 + 0.22271E+01 0.40492E+01 0.74802E+01 0.13843E+02 0.25423E+02 0.47611E+02 + 0.82610E+02 0.12476E+03 0.18726E+03 0.30857E-02 0.39105E-02 0.49642E-02 + 0.63105E-02 0.80358E-02 0.10246E-01 0.11217E-01 0.12410E-01 0.13819E-01 + 0.14320E-01 0.14442E-01 0.13424E-01 0.10882E-01 0.55974E-02 0.21324E-02 + 0.12304E-01 0.29078E-01 0.52867E-01 0.33724E+00 0.15130E+00 0.26098E+00 + 0.46487E+00 0.77666E+00 0.13810E+01 0.23950E+01 0.43000E+01 0.78586E+01 + 0.14468E+02 0.26647E+02 0.49445E+02 0.90993E+02 0.16851E+03 0.25203E+03 + 0.64500E-02 0.81603E-02 0.10338E-01 0.13111E-01 0.16651E-01 0.21170E-01 + 0.26928E-01 0.29372E-01 0.30890E-01 0.32569E-01 0.32774E-01 0.31619E-01 + 0.27737E-01 0.20360E-01 0.96560E-02 0.36194E-02 0.24946E-01 0.53781E-01 + 0.97265E-01 0.45149E+00 0.29508E+00 0.52038E+00 0.85867E+00 0.15107E+01 + 0.25848E+01 0.45867E+01 0.82941E+01 0.15125E+02 0.27650E+02 0.51586E+02 + 0.94268E+02 0.17590E+03 0.32738E+03 0.11495E-01 0.14519E-01 0.18359E-01 + 0.23233E-01 0.29433E-01 0.37311E-01 0.47309E-01 0.59931E-01 0.67754E-01 + 0.69016E-01 0.69694E-01 0.67868E-01 0.61516E-01 0.49659E-01 0.33402E-01 + 0.14105E-01 0.15774E-01 0.54028E-01 0.10939E+00 0.19643E+00 0.37599E+00 + 0.63660E+00 0.10014E+01 0.17348E+01 0.29131E+01 0.50809E+01 0.90428E+01 + 0.16254E+02 0.29336E+02 0.54144E+02 0.99103E+02 0.18402E+03 0.33941E+03 + 0.19580E-01 0.24700E-01 0.31186E-01 0.39401E-01 0.49819E-01 0.63024E-01 + 0.79725E-01 0.10076E+00 0.12689E+00 0.14936E+00 0.14820E+00 0.14414E+00 + 0.13362E+00 0.11310E+00 0.87025E-01 0.58006E-01 0.14638E-01 0.38022E-01 + 0.11106E+00 0.22216E+00 0.40937E+00 0.73934E+00 0.11881E+01 0.20339E+01 + 0.33542E+01 0.57478E+01 0.10054E+02 0.17779E+02 0.31612E+02 0.57594E+02 + 0.10422E+03 0.19318E+03 0.35570E+03 0.30191E-01 0.38035E-01 0.47962E-01 + 0.60512E-01 0.76392E-01 0.96470E-01 0.12181E+00 0.15364E+00 0.19317E+00 + 0.24182E+00 0.29583E+00 0.28806E+00 0.27062E+00 0.23927E+00 0.19662E+00 + 0.15088E+00 0.84831E-01 0.84027E-02 0.93149E-01 0.24221E+00 0.48678E+00 + 0.90737E+00 0.14512E+01 0.24624E+01 0.39885E+01 0.67068E+01 0.11506E+02 + 0.19960E+02 0.34854E+02 0.62494E+02 0.11148E+03 0.20414E+03 0.37375E+03 + 0.46142E-01 0.58057E-01 0.73115E-01 0.92124E-01 0.11614E+00 0.14644E+00 + 0.18461E+00 0.23248E+00 0.29185E+00 0.36492E+00 0.45222E+00 0.55134E+00 + 0.54508E+00 0.49037E+00 0.42309E+00 0.34775E+00 0.24072E+00 0.12196E+00 + 0.29406E-01 0.24331E+00 0.58370E+00 0.11524E+01 0.18479E+01 0.31193E+01 + 0.49637E+01 0.81785E+01 0.13723E+02 0.23270E+02 0.39747E+02 0.69842E+02 + 0.12231E+03 0.22042E+03 0.39801E+03 0.70540E-01 0.88627E-01 0.11146E+00 + 0.14025E+00 0.17659E+00 0.22237E+00 0.27994E+00 0.35203E+00 0.44136E+00 + 0.55127E+00 0.68290E+00 0.83365E+00 0.98949E+00 0.10124E+01 0.89121E+00 + 0.76646E+00 0.58725E+00 0.38930E+00 0.14634E+00 0.18434E+00 0.69341E+00 + 0.15173E+01 0.24670E+01 0.41675E+01 0.65251E+01 0.10530E+02 0.17242E+02 + 0.28482E+02 0.47383E+02 0.81210E+02 0.13893E+03 0.24524E+03 0.43478E+03 + 0.10486E+00 0.13154E+00 0.16521E+00 0.20763E+00 0.26112E+00 0.32842E+00 + 0.41298E+00 0.51879E+00 0.64988E+00 0.81116E+00 0.10048E+01 0.12283E+01 + 0.14643E+01 0.16822E+01 0.17859E+01 0.15692E+01 0.12737E+01 0.95603E+00 + 0.56225E+00 0.42645E-01 0.73413E+00 0.19551E+01 0.32892E+01 0.56296E+01 + 0.87327E+01 0.13868E+02 0.22226E+02 0.35816E+02 0.58034E+02 0.96920E+02 + 0.16170E+03 0.27893E+03 0.48430E+03 0.15305E+00 0.19163E+00 0.24026E+00 + 0.30153E+00 0.37868E+00 0.47573E+00 0.59753E+00 0.74973E+00 0.93824E+00 + 0.11700E+01 0.14485E+01 0.17709E+01 0.21150E+01 0.24419E+01 0.27508E+01 + 0.30539E+01 0.25733E+01 0.20251E+01 0.13729E+01 0.50363E+00 0.76136E+00 + 0.26921E+01 0.47015E+01 0.81433E+01 0.12502E+02 0.19505E+02 0.30534E+02 + 0.47865E+02 0.75285E+02 0.12200E+03 0.19755E+03 0.33133E+03 0.56047E+03 + 0.22271E+00 0.27817E+00 0.34806E+00 0.43606E+00 0.54683E+00 0.68608E+00 + 0.86073E+00 0.10789E+01 0.13489E+01 0.16810E+01 0.20803E+01 0.25441E+01 + 0.30443E+01 0.35307E+01 0.40056E+01 0.44890E+01 0.47480E+01 0.41720E+01 + 0.30438E+01 0.15945E+01 0.51482E+00 0.36654E+01 0.68106E+01 0.12078E+02 + 0.18468E+02 0.28443E+02 0.43639E+02 0.66699E+02 0.10193E+03 0.16022E+03 + 0.25147E+03 0.40906E+03 0.67205E+03 0.32190E+00 0.40084E+00 0.50032E+00 + 0.62551E+00 0.78305E+00 0.98103E+00 0.12292E+01 0.15392E+01 0.19229E+01 + 0.23946E+01 0.29630E+01 0.36253E+01 0.43462E+01 0.50615E+01 0.57782E+01 + 0.65280E+01 0.70124E+01 0.72905E+01 0.64128E+01 0.39450E+01 0.43397E+00 + 0.47858E+01 0.98280E+01 0.18106E+02 0.27772E+02 0.42468E+02 0.64162E+02 + 0.95979E+02 0.14291E+03 0.21830E+03 0.33226E+03 0.52392E+03 0.83463E+03 + 0.49511E+00 0.61405E+00 0.76392E+00 0.95250E+00 0.11898E+01 0.14879E+01 + 0.18617E+01 0.23287E+01 0.29074E+01 0.36204E+01 0.44822E+01 0.54946E+01 + 0.66147E+01 0.77645E+01 0.89637E+01 0.10268E+02 0.11298E+02 0.12161E+02 + 0.12393E+02 0.10965E+02 0.49112E+01 0.39363E+01 0.12416E+02 0.26034E+02 + 0.41384E+02 0.64163E+02 0.96796E+02 0.14307E+03 0.20894E+03 0.31154E+03 + 0.46088E+03 0.70493E+03 0.10878E+04 0.67975E+00 0.83884E+00 0.10393E+01 + 0.12915E+01 0.16087E+01 0.20071E+01 0.25064E+01 0.31298E+01 0.39017E+01 + 0.48517E+01 0.59986E+01 0.73429E+01 0.88273E+01 0.10345E+02 0.11919E+02 + 0.13623E+02 0.14948E+02 0.16037E+02 0.16277E+02 0.14519E+02 0.80761E+01 + 0.67088E+01 0.20923E+02 0.43911E+02 0.69072E+02 0.10541E+03 0.15611E+03 + 0.22584E+03 0.32184E+03 0.46697E+03 0.67052E+03 0.99345E+03 0.14830E+04 + 0.10418E+01 0.12773E+01 0.15739E+01 0.19471E+01 0.24166E+01 0.30062E+01 + 0.37452E+01 0.46682E+01 0.58122E+01 0.72224E+01 0.89304E+01 0.10944E+02 + 0.13195E+02 0.15552E+02 0.18065E+02 0.20851E+02 0.23252E+02 0.25500E+02 + 0.26829E+02 0.25785E+02 0.18938E+02 0.00000E+00 0.24450E+02 0.63376E+02 + 0.10606E+03 0.16704E+03 0.24915E+03 0.35903E+03 0.50565E+03 0.72116E+03 + 0.10124E+04 0.14611E+04 0.21173E+04 0.15068E+01 0.18352E+01 0.22488E+01 + 0.27690E+01 0.34235E+01 0.42457E+01 0.52765E+01 0.65645E+01 0.81624E+01 + 0.10135E+02 0.12531E+02 0.15370E+02 0.18578E+02 0.22002E+02 0.25727E+02 + 0.29929E+02 0.33805E+02 0.37695E+02 0.40685E+02 0.41012E+02 0.34465E+02 + 0.13336E+02 0.17088E+02 0.80795E+02 0.14649E+03 0.24057E+03 0.36752E+03 + 0.53154E+03 0.74541E+03 0.10532E+04 0.14572E+04 0.20654E+04 0.29292E+04 + 0.21894E+01 0.26452E+01 0.32193E+01 0.39416E+01 0.48499E+01 0.59914E+01 + 0.74225E+01 0.92121E+01 0.11434E+02 0.14180E+02 0.17522E+02 0.21502E+02 + 0.26038E+02 0.30953E+02 0.36386E+02 0.42602E+02 0.48602E+02 0.54891E+02 + 0.60369E+02 0.62891E+02 0.57241E+02 0.33889E+02 0.00000E+00 0.83117E+02 + 0.20081E+03 0.34650E+03 0.54264E+03 0.79818E+03 0.11183E+04 0.15701E+04 + 0.21475E+04 0.29979E+04 0.41716E+04 0.37274E-09 0.12672E-08 0.37590E-08 + 0.93469E-08 0.21868E-07 0.36216E-07 0.79740E-07 0.12734E-06 0.24737E-06 + 0.51814E-06 0.10960E-05 0.21951E-05 0.10886E-04 0.70077E-04 0.26123E-03 + 0.63678E-03 0.23430E-02 0.55924E-02 0.10680E-01 0.18964E-01 0.31539E-01 + 0.51989E-01 0.79033E-01 0.12071E+00 0.17883E+00 0.27051E+00 0.41249E+00 + 0.62898E+00 0.95487E+00 0.14691E+01 0.22302E+01 0.34412E+01 0.52780E+01 + 0.31548E-09 0.92981E-09 0.30399E-08 0.97045E-08 0.23254E-07 0.54635E-07 + 0.90601E-07 0.18684E-06 0.34577E-06 0.65019E-06 0.14600E-05 0.26134E-05 + 0.18208E-04 0.11640E-03 0.50493E-03 0.85820E-03 0.29961E-02 0.71303E-02 + 0.13583E-01 0.24067E-01 0.39956E-01 0.65766E-01 0.99846E-01 0.15233E+00 + 0.22543E+00 0.34063E+00 0.51886E+00 0.79025E+00 0.11981E+01 0.18405E+01 + 0.27892E+01 0.42947E+01 0.65700E+01 0.20343E-08 0.72336E-09 0.22140E-08 + 0.80186E-08 0.24252E-07 0.58262E-07 0.13475E-06 0.23839E-06 0.53371E-06 + 0.94473E-06 0.20102E-05 0.46700E-05 0.41281E-04 0.18752E-03 0.82839E-03 + 0.14523E-02 0.38486E-02 0.91199E-02 0.17318E-01 0.30607E-01 0.50705E-01 + 0.83312E-01 0.12630E+00 0.19243E+00 0.28444E+00 0.42934E+00 0.65332E+00 + 0.99397E+00 0.15053E+01 0.23093E+01 0.34944E+01 0.53709E+01 0.81990E+01 + 0.45022E-08 0.48437E-08 0.17666E-08 0.63898E-08 0.20275E-07 0.61135E-07 + 0.14649E-06 0.31583E-06 0.77428E-06 0.15495E-05 0.33381E-05 0.10695E-04 + 0.77116E-04 0.35131E-03 0.12401E-02 0.22403E-02 0.49801E-02 0.11538E-01 + 0.22149E-01 0.39022E-01 0.64480E-01 0.10572E+00 0.15999E+00 0.24339E+00 + 0.35931E+00 0.54175E+00 0.82343E+00 0.12515E+01 0.18932E+01 0.29012E+01 + 0.43843E+01 0.67287E+01 0.10254E+02 0.13863E-07 0.11494E-07 0.12815E-07 + 0.42064E-08 0.15215E-07 0.50065E-07 0.15212E-06 0.38631E-06 0.94278E-06 + 0.24216E-05 0.58517E-05 0.20873E-04 0.13243E-03 0.57351E-03 0.16320E-02 + 0.32207E-02 0.64757E-02 0.13446E-01 0.27822E-01 0.49897E-01 0.82192E-01 + 0.13442E+00 0.20299E+00 0.30828E+00 0.45442E+00 0.68428E+00 0.10389E+01 + 0.15773E+01 0.23838E+01 0.36489E+01 0.55079E+01 0.84420E+01 0.12845E+02 + 0.19277E-07 0.32784E-07 0.29239E-07 0.30282E-07 0.11129E-07 0.37570E-07 + 0.12489E-06 0.39042E-06 0.12872E-05 0.30891E-05 0.10906E-04 0.40709E-04 + 0.19429E-03 0.85967E-03 0.20827E-02 0.39885E-02 0.83217E-02 0.15957E-01 + 0.30774E-01 0.62385E-01 0.10507E+00 0.17131E+00 0.25803E+00 0.39107E+00 + 0.57544E+00 0.86525E+00 0.13121E+01 0.19899E+01 0.30040E+01 0.45938E+01 + 0.69269E+01 0.10605E+02 0.16116E+02 0.38944E-07 0.50568E-07 0.71945E-07 + 0.80217E-07 0.75924E-07 0.35453E-07 0.95141E-07 0.31091E-06 0.11202E-05 + 0.41183E-05 0.15309E-04 0.88370E-04 0.29228E-03 0.11128E-02 0.25242E-02 + 0.48840E-02 0.96922E-02 0.19036E-01 0.34626E-01 0.66684E-01 0.13098E+00 + 0.21889E+00 0.32869E+00 0.49695E+00 0.72976E+00 0.10955E+01 0.16588E+01 + 0.25127E+01 0.37892E+01 0.57889E+01 0.87199E+01 0.13337E+02 0.20244E+02 + 0.79951E-07 0.10287E-06 0.13774E-06 0.17313E-06 0.24948E-06 0.21822E-06 + 0.11721E-06 0.29251E-06 0.81545E-06 0.31590E-05 0.18416E-04 0.12325E-03 + 0.44662E-03 0.13542E-02 0.30040E-02 0.57762E-02 0.11238E-01 0.21311E-01 + 0.39302E-01 0.72244E-01 0.13725E+00 0.27237E+00 0.41973E+00 0.63274E+00 + 0.92692E+00 0.13888E+01 0.20996E+01 0.31760E+01 0.47839E+01 0.73006E+01 + 0.10987E+02 0.16786E+02 0.25456E+02 0.17661E-06 0.23477E-06 0.27300E-06 + 0.36758E-06 0.50400E-06 0.75181E-06 0.72765E-06 0.34028E-06 0.98869E-06 + 0.20433E-05 0.14414E-04 0.14430E-03 0.58394E-03 0.16236E-02 0.34750E-02 + 0.65773E-02 0.12664E-01 0.23782E-01 0.42580E-01 0.78906E-01 0.14525E+00 + 0.28214E+00 0.52139E+00 0.80742E+00 0.11794E+01 0.17630E+01 0.26605E+01 + 0.40184E+01 0.60447E+01 0.92144E+01 0.13852E+02 0.21146E+02 0.32037E+02 + 0.37308E-06 0.47077E-06 0.60187E-06 0.89324E-06 0.15236E-05 0.20818E-05 + 0.40986E-05 0.45485E-05 0.17553E-05 0.53069E-05 0.99049E-05 0.12711E-03 + 0.63797E-03 0.18213E-02 0.39529E-02 0.73566E-02 0.13860E-01 0.25847E-01 + 0.46042E-01 0.83387E-01 0.15463E+00 0.29419E+00 0.53571E+00 0.10016E+01 + 0.15031E+01 0.22410E+01 0.33748E+01 0.50885E+01 0.76438E+01 0.11638E+02 + 0.17478E+02 0.26655E+02 0.40345E+02 0.77202E-06 0.10002E-05 0.12894E-05 + 0.17415E-05 0.44819E-05 0.85678E-05 0.15592E-04 0.28973E-04 0.33245E-04 + 0.13068E-04 0.37893E-04 0.11578E-03 0.60588E-03 0.19210E-02 0.43889E-02 + 0.82302E-02 0.15337E-01 0.27539E-01 0.49039E-01 0.88224E-01 0.16144E+00 + 0.30813E+00 0.55288E+00 0.10271E+01 0.18612E+01 0.28522E+01 0.42851E+01 + 0.64489E+01 0.96720E+01 0.14708E+02 0.22064E+02 0.33617E+02 0.50839E+02 + 0.33509E-05 0.58349E-05 0.91186E-05 0.21236E-04 0.39888E-04 0.69269E-04 + 0.96406E-04 0.12725E-03 0.15300E-03 0.14923E-03 0.58367E-04 0.15191E-03 + 0.73064E-03 0.20250E-02 0.46683E-02 0.89181E-02 0.16899E-01 0.29981E-01 + 0.52461E-01 0.92638E-01 0.16908E+00 0.31810E+00 0.57135E+00 0.10561E+01 + 0.19022E+01 0.35222E+01 0.54417E+01 0.81736E+01 0.12239E+02 0.18588E+02 + 0.27854E+02 0.42401E+02 0.64071E+02 0.24245E-04 0.44115E-04 0.74080E-04 + 0.11358E-03 0.18378E-03 0.28170E-03 0.39518E-03 0.49524E-03 0.55395E-03 + 0.57156E-03 0.47697E-03 0.17540E-03 0.50647E-03 0.28857E-02 0.49250E-02 + 0.93407E-02 0.17923E-01 0.32215E-01 0.55429E-01 0.97964E-01 0.17698E+00 + 0.32859E+00 0.58380E+00 0.10864E+01 0.19476E+01 0.35880E+01 0.67026E+01 + 0.10357E+02 0.15484E+02 0.23488E+02 0.35158E+02 0.53477E+02 0.80746E+02 + 0.87978E-04 0.11232E-03 0.22728E-03 0.40263E-03 0.63422E-03 0.84913E-03 + 0.11002E-02 0.13011E-02 0.14820E-02 0.15885E-02 0.15551E-02 0.12689E-02 + 0.43855E-03 0.13268E-02 0.82411E-02 0.96342E-02 0.18099E-01 0.32953E-01 + 0.57309E-01 0.10041E+00 0.18114E+00 0.33751E+00 0.59359E+00 0.11015E+01 + 0.19891E+01 0.36534E+01 0.67980E+01 0.12711E+02 0.19562E+02 0.29645E+02 + 0.44333E+02 0.67390E+02 0.10170E+03 0.40372E-03 0.51472E-03 0.65857E-03 + 0.99753E-03 0.14867E-02 0.21311E-02 0.26368E-02 0.31835E-02 0.36075E-02 + 0.39259E-02 0.40512E-02 0.39177E-02 0.30965E-02 0.10923E-02 0.22592E-02 + 0.19552E-01 0.16966E-01 0.31450E-01 0.56137E-01 0.99712E-01 0.18147E+00 + 0.34014E+00 0.59700E+00 0.11081E+01 0.19968E+01 0.37037E+01 0.68819E+01 + 0.12832E+02 0.23914E+02 0.37339E+02 0.55806E+02 0.84803E+02 0.12793E+03 + 0.13559E-02 0.17253E-02 0.22016E-02 0.28173E-02 0.35547E-02 0.44979E-02 + 0.57310E-02 0.66723E-02 0.76440E-02 0.82898E-02 0.86180E-02 0.85330E-02 + 0.79034E-02 0.55917E-02 0.17933E-02 0.36486E-02 0.36813E-01 0.29276E-01 + 0.54461E-01 0.99229E-01 0.18328E+00 0.34646E+00 0.60673E+00 0.11259E+01 + 0.20222E+01 0.37428E+01 0.70172E+01 0.13052E+02 0.24232E+02 0.45799E+02 + 0.70468E+02 0.10699E+03 0.16128E+03 0.31829E-02 0.40417E-02 0.51442E-02 + 0.65622E-02 0.83951E-02 0.98370E-02 0.11429E-01 0.13480E-01 0.14962E-01 + 0.16424E-01 0.17092E-01 0.17088E-01 0.15971E-01 0.13646E-01 0.90752E-02 + 0.29104E-02 0.81878E-02 0.66257E-01 0.52050E-01 0.98453E-01 0.18646E+00 + 0.35707E+00 0.62413E+00 0.11575E+01 0.20701E+01 0.38180E+01 0.71352E+01 + 0.13376E+02 0.24746E+02 0.46573E+02 0.86666E+02 0.13543E+03 0.20387E+03 + 0.63971E-02 0.81091E-02 0.10298E-01 0.13103E-01 0.16710E-01 0.21363E-01 + 0.24034E-01 0.26474E-01 0.29524E-01 0.31511E-01 0.33146E-01 0.33287E-01 + 0.32535E-01 0.29064E-01 0.23940E-01 0.17024E-01 0.46197E-02 0.12997E-01 + 0.11140E+00 0.91467E-01 0.18297E+00 0.36231E+00 0.63677E+00 0.11869E+01 + 0.21179E+01 0.38983E+01 0.72667E+01 0.13582E+02 0.25329E+02 0.47529E+02 + 0.88056E+02 0.16648E+03 0.25791E+03 0.11200E-01 0.14175E-01 0.17968E-01 + 0.22812E-01 0.29015E-01 0.36978E-01 0.47217E-01 0.51828E-01 0.55099E-01 + 0.59091E-01 0.61224E-01 0.62258E-01 0.60758E-01 0.56716E-01 0.49889E-01 + 0.41623E-01 0.27025E-01 0.73337E-02 0.23579E-01 0.20611E+00 0.17799E+00 + 0.36911E+00 0.65615E+00 0.12330E+01 0.21955E+01 0.40300E+01 0.74841E+01 + 0.13928E+02 0.25860E+02 0.48876E+02 0.90177E+02 0.16967E+03 0.31782E+03 + 0.17618E-01 0.22268E-01 0.28182E-01 0.35711E-01 0.45320E-01 0.57603E-01 + 0.73324E-01 0.93444E-01 0.10085E+00 0.10472E+00 0.10891E+00 0.11001E+00 + 0.10802E+00 0.10213E+00 0.92625E-01 0.81753E-01 0.63202E-01 0.39602E-01 + 0.38806E-02 0.56144E-01 0.45182E+00 0.38664E+00 0.69160E+00 0.13116E+01 + 0.23275E+01 0.42515E+01 0.78464E+01 0.14503E+02 0.26746E+02 0.50259E+02 + 0.93242E+02 0.17458E+03 0.32512E+03 0.27367E-01 0.34550E-01 0.43667E-01 + 0.55248E-01 0.69986E-01 0.88766E-01 0.11271E+00 0.14324E+00 0.18195E+00 + 0.19405E+00 0.19764E+00 0.20016E+00 0.19633E+00 0.18600E+00 0.17262E+00 + 0.15806E+00 0.13383E+00 0.10489E+00 0.62863E-01 0.61598E-02 0.13369E+00 + 0.10140E+01 0.71271E+00 0.13875E+01 0.24699E+01 0.45065E+01 0.82791E+01 + 0.15205E+02 0.27840E+02 0.51983E+02 0.95845E+02 0.18050E+03 0.33446E+03 + 0.39336E-01 0.49608E-01 0.62624E-01 0.79128E-01 0.10008E+00 0.12670E+00 + 0.16053E+00 0.20350E+00 0.25780E+00 0.32628E+00 0.34445E+00 0.34511E+00 + 0.34036E+00 0.32361E+00 0.30169E+00 0.27964E+00 0.24507E+00 0.20601E+00 + 0.15202E+00 0.66524E-01 0.88005E-01 0.37727E+00 0.75877E+00 0.15208E+01 + 0.27109E+01 0.49253E+01 0.89753E+01 0.16319E+02 0.29569E+02 0.54689E+02 + 0.99940E+02 0.18681E+03 0.34766E+03 0.56311E-01 0.70944E-01 0.89457E-01 + 0.11290E+00 0.14260E+00 0.18026E+00 0.22802E+00 0.28851E+00 0.36475E+00 + 0.46068E+00 0.57968E+00 0.60619E+00 0.59723E+00 0.57628E+00 0.54390E+00 + 0.51081E+00 0.46096E+00 0.40754E+00 0.33722E+00 0.22981E+00 0.39599E-01 + 0.31043E+00 0.74859E+00 0.16214E+01 0.29441E+01 0.53790E+01 0.97728E+01 + 0.17633E+02 0.31640E+02 0.57964E+02 0.10492E+03 0.19450E+03 0.35931E+03 + 0.78114E-01 0.98306E-01 0.12383E+00 0.15611E+00 0.19695E+00 0.24865E+00 + 0.31405E+00 0.39672E+00 0.50065E+00 0.63108E+00 0.79254E+00 0.98815E+00 + 0.10168E+01 0.98077E+00 0.93769E+00 0.88739E+00 0.81088E+00 0.73176E+00 + 0.63224E+00 0.48664E+00 0.23713E+00 0.20954E+00 0.73919E+00 0.17825E+01 + 0.33092E+01 0.60755E+01 0.10978E+02 0.19596E+02 0.34709E+02 0.62780E+02 + 0.11221E+03 0.20573E+03 0.37630E+03 0.11655E+00 0.14652E+00 0.18438E+00 + 0.23222E+00 0.29268E+00 0.36913E+00 0.46573E+00 0.58767E+00 0.74095E+00 + 0.93321E+00 0.11717E+01 0.14621E+01 0.18028E+01 0.18304E+01 0.17644E+01 + 0.17063E+01 0.15990E+01 0.14883E+01 0.13552E+01 0.11670E+01 0.84974E+00 + 0.28955E+00 0.33262E+00 0.15645E+01 0.33011E+01 0.64203E+01 0.11870E+02 + 0.21299E+02 0.37588E+02 0.67536E+02 0.11959E+03 0.21730E+03 0.39397E+03 + 0.16998E+00 0.21344E+00 0.26831E+00 0.33758E+00 0.42505E+00 0.53559E+00 + 0.67511E+00 0.85105E+00 0.10720E+01 0.13491E+01 0.16930E+01 0.21133E+01 + 0.26107E+01 0.31798E+01 0.32225E+01 0.31304E+01 0.29967E+01 0.28404E+01 + 0.26499E+01 0.23902E+01 0.19636E+01 0.12263E+01 0.45964E+00 0.10560E+01 + 0.31044E+01 0.67374E+01 0.12971E+02 0.23553E+02 0.41496E+02 0.74068E+02 + 0.12978E+03 0.23333E+03 0.41847E+03 0.24385E+00 0.30577E+00 0.38392E+00 + 0.48253E+00 0.60700E+00 0.76408E+00 0.96222E+00 0.12119E+01 0.15253E+01 + 0.19181E+01 0.24058E+01 0.30030E+01 0.37144E+01 0.45376E+01 0.55137E+01 + 0.56189E+01 0.54053E+01 0.52147E+01 0.49408E+01 0.45613E+01 0.39570E+01 + 0.29407E+01 0.19466E+01 0.00000E+00 0.25145E+01 0.68993E+01 0.14260E+02 + 0.26474E+02 0.46736E+02 0.82949E+02 0.14371E+03 0.25527E+03 0.45202E+03 + 0.36369E+00 0.45534E+00 0.57095E+00 0.71678E+00 0.90075E+00 0.11328E+01 + 0.14254E+01 0.17940E+01 0.22567E+01 0.28367E+01 0.35580E+01 0.44445E+01 + 0.55094E+01 0.67599E+01 0.82593E+01 0.10108E+02 0.10250E+02 0.99641E+01 + 0.96571E+01 0.91372E+01 0.82863E+01 0.68835E+01 0.56016E+01 0.30900E+01 + 0.00000E+00 0.53220E+01 0.14081E+02 0.28295E+02 0.51364E+02 0.91992E+02 + 0.15878E+03 0.27995E+03 0.49053E+03 0.53121E+00 0.66382E+00 0.83109E+00 + 0.10420E+01 0.13079E+01 0.16433E+01 0.20660E+01 0.25981E+01 0.32662E+01 + 0.41036E+01 0.51460E+01 0.64305E+01 0.79823E+01 0.98214E+01 0.12042E+02 + 0.14787E+02 0.18002E+02 0.18384E+02 0.17903E+02 0.17288E+02 0.16075E+02 + 0.14047E+02 0.12292E+02 0.88916E+01 0.49050E+01 0.18385E+01 0.12672E+02 + 0.29802E+02 0.56893E+02 0.10377E+03 0.17900E+03 0.31351E+03 0.54316E+03 + 0.76446E+00 0.95312E+00 0.11911E+01 0.14910E+01 0.18691E+01 0.23457E+01 + 0.29462E+01 0.37020E+01 0.46508E+01 0.58398E+01 0.73213E+01 0.91497E+01 + 0.11368E+02 0.14014E+02 0.17223E+02 0.21197E+02 0.25893E+02 0.31684E+02 + 0.32369E+02 0.31383E+02 0.29821E+02 0.26860E+02 0.24325E+02 0.19512E+02 + 0.14114E+02 0.51907E+01 0.87553E+01 0.30172E+02 0.63076E+02 0.11883E+03 + 0.20590E+03 0.35891E+03 0.61477E+03 0.11260E+01 0.14001E+01 0.17457E+01 + 0.21812E+01 0.27302E+01 0.34220E+01 0.42934E+01 0.53902E+01 0.67670E+01 + 0.84932E+01 0.10646E+02 0.13310E+02 0.16556E+02 0.20456E+02 0.25213E+02 + 0.31112E+02 0.38155E+02 0.46869E+02 0.57446E+02 0.58573E+02 0.56186E+02 + 0.52278E+02 0.48732E+02 0.41834E+02 0.34418E+02 0.22406E+02 0.41201E+01 + 0.23165E+02 0.63865E+02 0.13142E+03 0.23391E+03 0.41089E+03 0.70033E+03 + 0.16825E+01 0.20851E+01 0.25926E+01 0.32322E+01 0.40383E+01 0.50541E+01 + 0.63334E+01 0.79435E+01 0.99650E+01 0.12501E+02 0.15667E+02 0.19594E+02 + 0.24401E+02 0.30217E+02 0.37343E+02 0.46202E+02 0.56869E+02 0.70108E+02 + 0.86289E+02 0.10566E+03 0.10692E+03 0.10105E+03 0.96815E+02 0.87024E+02 + 0.76621E+02 0.60096E+02 0.35566E+02 0.00000E+00 0.51479E+02 0.13517E+03 + 0.25828E+03 0.46711E+03 0.80049E+03 0.24727E+01 0.30520E+01 0.37825E+01 + 0.47028E+01 0.58627E+01 0.73238E+01 0.91639E+01 0.11480E+02 0.14388E+02 + 0.18038E+02 0.22598E+02 0.28261E+02 0.35218E+02 0.43677E+02 0.54072E+02 + 0.67010E+02 0.82683E+02 0.10216E+03 0.12605E+03 0.15487E+03 0.18823E+03 + 0.18785E+03 0.18133E+03 0.16832E+03 0.15349E+03 0.12974E+03 0.95398E+02 + 0.47049E+02 0.20764E+02 0.12842E+03 0.28162E+03 0.53615E+03 0.93164E+03 + 0.00000E+00 0.78970E-09 0.25712E-08 0.76194E-08 0.12433E-07 0.31274E-07 + 0.43944E-07 0.85462E-07 0.17070E-06 0.37686E-06 0.77592E-06 0.16230E-05 + 0.61261E-05 0.30861E-04 0.18029E-03 0.47799E-03 0.17634E-02 0.42210E-02 + 0.80808E-02 0.14378E-01 0.23953E-01 0.39544E-01 0.60194E-01 0.92061E-01 + 0.13656E+00 0.20684E+00 0.31584E+00 0.48235E+00 0.73358E+00 0.11310E+01 + 0.17214E+01 0.26643E+01 0.41016E+01 0.78970E-09 0.00000E+00 0.18602E-08 + 0.66789E-08 0.18951E-07 0.31065E-07 0.76590E-07 0.11231E-06 0.22839E-06 + 0.49435E-06 0.10330E-05 0.21151E-05 0.10056E-04 0.63289E-04 0.23069E-03 + 0.60985E-03 0.22455E-02 0.53632E-02 0.10248E-01 0.18204E-01 0.30287E-01 + 0.49941E-01 0.75934E-01 0.11601E+00 0.17191E+00 0.26010E+00 0.39670E+00 + 0.60505E+00 0.91879E+00 0.14140E+01 0.21473E+01 0.33146E+01 0.50863E+01 + 0.25712E-08 0.18602E-08 0.00000E+00 0.51354E-08 0.16829E-07 0.47694E-07 + 0.78041E-07 0.16949E-06 0.31606E-06 0.59864E-06 0.13741E-05 0.25104E-05 + 0.15302E-04 0.10716E-03 0.45737E-03 0.78112E-03 0.28682E-02 0.68315E-02 + 0.13023E-01 0.23087E-01 0.38348E-01 0.63146E-01 0.95899E-01 0.14635E+00 + 0.21662E+00 0.32743E+00 0.49886E+00 0.75996E+00 0.11525E+01 0.17709E+01 + 0.26845E+01 0.41349E+01 0.63282E+01 0.76194E-08 0.66789E-08 0.51354E-08 + 0.00000E+00 0.12228E-07 0.41407E-07 0.11545E-06 0.20395E-06 0.45285E-06 + 0.85932E-06 0.17986E-05 0.38148E-05 0.36482E-04 0.16563E-03 0.76332E-03 + 0.13348E-02 0.36759E-02 0.87254E-02 0.16584E-01 0.29333E-01 0.48626E-01 + 0.79941E-01 0.12124E+00 0.18479E+00 0.27324E+00 0.41255E+00 0.62792E+00 + 0.95558E+00 0.14475E+01 0.22212E+01 0.33620E+01 0.51691E+01 0.78937E+01 + 0.12433E-07 0.18951E-07 0.16829E-07 0.12228E-07 0.00000E+00 0.30733E-07 + 0.10389E-06 0.24923E-06 0.65683E-06 0.12874E-05 0.29889E-05 0.91023E-05 + 0.68079E-04 0.31663E-03 0.11711E-02 0.20788E-02 0.47454E-02 0.11181E-01 + 0.21177E-01 0.37347E-01 0.61768E-01 0.10135E+00 0.15346E+00 0.23359E+00 + 0.34496E+00 0.52029E+00 0.79111E+00 0.12027E+01 0.18199E+01 0.27896E+01 + 0.42168E+01 0.64734E+01 0.98679E+01 0.31274E-07 0.31065E-07 0.47694E-07 + 0.41407E-07 0.30733E-07 0.00000E+00 0.77030E-07 0.27740E-06 0.68638E-06 + 0.20321E-05 0.48293E-05 0.18379E-04 0.12080E-03 0.52342E-03 0.15399E-02 + 0.30675E-02 0.61503E-02 0.13015E-01 0.27121E-01 0.47666E-01 0.78613E-01 + 0.12871E+00 0.19450E+00 0.29559E+00 0.43594E+00 0.65678E+00 0.99761E+00 + 0.15151E+01 0.22904E+01 0.35072E+01 0.52955E+01 0.81189E+01 0.12358E+02 + 0.43944E-07 0.76590E-07 0.78041E-07 0.11545E-06 0.10389E-06 0.77030E-07 + 0.00000E+00 0.20060E-06 0.96127E-06 0.22505E-05 0.89865E-05 0.32898E-04 + 0.17306E-03 0.79818E-03 0.19843E-02 0.37907E-02 0.80060E-02 0.15349E-01 + 0.30004E-01 0.60993E-01 0.10026E+00 0.16372E+00 0.24686E+00 0.37449E+00 + 0.55145E+00 0.82974E+00 0.12589E+01 0.19102E+01 0.28848E+01 0.44132E+01 + 0.66568E+01 0.10195E+02 0.15497E+02 0.85462E-07 0.11231E-06 0.16949E-06 + 0.20395E-06 0.24923E-06 0.27740E-06 0.20060E-06 0.00000E+00 0.61136E-06 + 0.30757E-05 0.11807E-04 0.72258E-04 0.25900E-03 0.10375E-02 0.23841E-02 + 0.46521E-02 0.92775E-02 0.18400E-01 0.33520E-01 0.65264E-01 0.12814E+00 + 0.20863E+00 0.31373E+00 0.47499E+00 0.69822E+00 0.10491E+01 0.15899E+01 + 0.24099E+01 0.36361E+01 0.55576E+01 0.83749E+01 0.12814E+02 0.19458E+02 + 0.17070E-06 0.22839E-06 0.31606E-06 0.45285E-06 0.65683E-06 0.68638E-06 + 0.96127E-06 0.61136E-06 0.00000E+00 0.16979E-05 0.13262E-04 0.95772E-04 + 0.37657E-03 0.12256E-02 0.28002E-02 0.54488E-02 0.10726E-01 0.20419E-01 + 0.38018E-01 0.70105E-01 0.13436E+00 0.26616E+00 0.39906E+00 0.60284E+00 + 0.88446E+00 0.13270E+01 0.20085E+01 0.30412E+01 0.45843E+01 0.70008E+01 + 0.10542E+02 0.16115E+02 0.24448E+02 0.37686E-06 0.49435E-06 0.59864E-06 + 0.85932E-06 0.12874E-05 0.20321E-05 0.22505E-05 0.30757E-05 0.16979E-05 + 0.00000E+00 0.76993E-05 0.10381E-03 0.47347E-03 0.14197E-02 0.31521E-02 + 0.61021E-02 0.11926E-01 0.22638E-01 0.40742E-01 0.76197E-01 0.14088E+00 + 0.27581E+00 0.50815E+00 0.76578E+00 0.11211E+01 0.16793E+01 0.25385E+01 + 0.38395E+01 0.57825E+01 0.88236E+01 0.13276E+02 0.20279E+02 0.30741E+02 + 0.77592E-06 0.10330E-05 0.13741E-05 0.17986E-05 0.29889E-05 0.48293E-05 + 0.89865E-05 0.11807E-04 0.13262E-04 0.76993E-05 0.00000E+00 0.65752E-04 + 0.46038E-03 0.14915E-02 0.34204E-02 0.65789E-02 0.12734E-01 0.24136E-01 + 0.43490E-01 0.79391E-01 0.14860E+00 0.28456E+00 0.52154E+00 0.97242E+00 + 0.14205E+01 0.21243E+01 0.32074E+01 0.48463E+01 0.72921E+01 0.11119E+02 + 0.16718E+02 0.25523E+02 0.38663E+02 0.16230E-05 0.21151E-05 0.25104E-05 + 0.38148E-05 0.91023E-05 0.18379E-04 0.32898E-04 0.72258E-04 0.95772E-04 + 0.10381E-03 0.65752E-04 0.00000E+00 0.30899E-03 0.13656E-02 0.34969E-02 + 0.69197E-02 0.13357E-01 0.24818E-01 0.44889E-01 0.82158E-01 0.15217E+00 + 0.29396E+00 0.53089E+00 0.99371E+00 0.17965E+01 0.26832E+01 0.40472E+01 + 0.61103E+01 0.91880E+01 0.14003E+02 0.21043E+02 0.32110E+02 0.48619E+02 + 0.61261E-05 0.10056E-04 0.15302E-04 0.36482E-04 0.68079E-04 0.12080E-03 + 0.17306E-03 0.25900E-03 0.37657E-03 0.47347E-03 0.46038E-03 0.30899E-03 + 0.00000E+00 0.97580E-03 0.31128E-02 0.66805E-02 0.13635E-01 0.25054E-01 + 0.45781E-01 0.82654E-01 0.15420E+00 0.29598E+00 0.53776E+00 0.10039E+01 + 0.18231E+01 0.33752E+01 0.50899E+01 0.76831E+01 0.11550E+02 0.17602E+02 + 0.26446E+02 0.40353E+02 0.61088E+02 0.30861E-04 0.63289E-04 0.10716E-03 + 0.16563E-03 0.31663E-03 0.52342E-03 0.79818E-03 0.10375E-02 0.12256E-02 + 0.14197E-02 0.14915E-02 0.13656E-02 0.97580E-03 0.00000E+00 0.20237E-02 + 0.54875E-02 0.12467E-01 0.24436E-01 0.44331E-01 0.82171E-01 0.15379E+00 + 0.29416E+00 0.53249E+00 0.10082E+01 0.18270E+01 0.34047E+01 0.63728E+01 + 0.96257E+01 0.14476E+02 0.22074E+02 0.33171E+02 0.50629E+02 0.76655E+02 + 0.18029E-03 0.23069E-03 0.45737E-03 0.76332E-03 0.11711E-02 0.15399E-02 + 0.19843E-02 0.23841E-02 0.28002E-02 0.31521E-02 0.34204E-02 0.34969E-02 + 0.31128E-02 0.20237E-02 0.00000E+00 0.34754E-02 0.10191E-01 0.21916E-01 + 0.42021E-01 0.78811E-01 0.15001E+00 0.29178E+00 0.52611E+00 0.10002E+01 + 0.18352E+01 0.34157E+01 0.64364E+01 0.12064E+02 0.18151E+02 0.27690E+02 + 0.41618E+02 0.63543E+02 0.96223E+02 0.47799E-03 0.60985E-03 0.78112E-03 + 0.13348E-02 0.20788E-02 0.30675E-02 0.37907E-02 0.46521E-02 0.54488E-02 + 0.61021E-02 0.65789E-02 0.69197E-02 0.66805E-02 0.54875E-02 0.34754E-02 + 0.00000E+00 0.70356E-02 0.18484E-01 0.38516E-01 0.75249E-01 0.14676E+00 + 0.28989E+00 0.52370E+00 0.99919E+00 0.18338E+01 0.34552E+01 0.64963E+01 + 0.12245E+02 0.22839E+02 0.34839E+02 0.52345E+02 0.79913E+02 0.12099E+03 + 0.17634E-02 0.22455E-02 0.28682E-02 0.36759E-02 0.47454E-02 0.61503E-02 + 0.80060E-02 0.92775E-02 0.10726E-01 0.11926E-01 0.12734E-01 0.13357E-01 + 0.13635E-01 0.12467E-01 0.10191E-01 0.70356E-02 0.00000E+00 0.11192E-01 + 0.30808E-01 0.67051E-01 0.13846E+00 0.28262E+00 0.51496E+00 0.99118E+00 + 0.18228E+01 0.34434E+01 0.65602E+01 0.12342E+02 0.23153E+02 0.43807E+02 + 0.65804E+02 0.10046E+03 0.15208E+03 0.42210E-02 0.53632E-02 0.68315E-02 + 0.87254E-02 0.11181E-01 0.13015E-01 0.15349E-01 0.18400E-01 0.20419E-01 + 0.22638E-01 0.24136E-01 0.24818E-01 0.25054E-01 0.24436E-01 0.21916E-01 + 0.18484E-01 0.11192E-01 0.00000E+00 0.19544E-01 0.55889E-01 0.12836E+00 + 0.27582E+00 0.50927E+00 0.99138E+00 0.18272E+01 0.34573E+01 0.65932E+01 + 0.12548E+02 0.23460E+02 0.44613E+02 0.83031E+02 0.12669E+03 0.19166E+03 + 0.80808E-02 0.10248E-01 0.13023E-01 0.16584E-01 0.21177E-01 0.27121E-01 + 0.30004E-01 0.33520E-01 0.38018E-01 0.40742E-01 0.43490E-01 0.44889E-01 + 0.45781E-01 0.44331E-01 0.42021E-01 0.38516E-01 0.30808E-01 0.19544E-01 + 0.00000E+00 0.36661E-01 0.11090E+00 0.26339E+00 0.49941E+00 0.99127E+00 + 0.18360E+01 0.34846E+01 0.66514E+01 0.12658E+02 0.23916E+02 0.45321E+02 + 0.84701E+02 0.16011E+03 0.24197E+03 0.14378E-01 0.18204E-01 0.23087E-01 + 0.29333E-01 0.37347E-01 0.47666E-01 0.60993E-01 0.65264E-01 0.70105E-01 + 0.76197E-01 0.79391E-01 0.82158E-01 0.82654E-01 0.82171E-01 0.78811E-01 + 0.75249E-01 0.67051E-01 0.55889E-01 0.36661E-01 0.00000E+00 0.76100E-01 + 0.23471E+00 0.47331E+00 0.97734E+00 0.18332E+01 0.35061E+01 0.67144E+01 + 0.12783E+02 0.24140E+02 0.46244E+02 0.86070E+02 0.16342E+03 0.30588E+03 + 0.23953E-01 0.30287E-01 0.38348E-01 0.48626E-01 0.61768E-01 0.78613E-01 + 0.10026E+00 0.12814E+00 0.13436E+00 0.14088E+00 0.14860E+00 0.15217E+00 + 0.15420E+00 0.15379E+00 0.15001E+00 0.14676E+00 0.13846E+00 0.12836E+00 + 0.11090E+00 0.76100E-01 0.00000E+00 0.16344E+00 0.40054E+00 0.91414E+00 + 0.17755E+01 0.34678E+01 0.67134E+01 0.12841E+02 0.24277E+02 0.46546E+02 + 0.87577E+02 0.16575E+03 0.31170E+03 0.39544E-01 0.49941E-01 0.63146E-01 + 0.79941E-01 0.10135E+00 0.12871E+00 0.16372E+00 0.20863E+00 0.26616E+00 + 0.27581E+00 0.28456E+00 0.29396E+00 0.29598E+00 0.29416E+00 0.29178E+00 + 0.28989E+00 0.28262E+00 0.27582E+00 0.26339E+00 0.23471E+00 0.16344E+00 + 0.00000E+00 0.22561E+00 0.73932E+00 0.15903E+01 0.32837E+01 0.65442E+01 + 0.12700E+02 0.24171E+02 0.46529E+02 0.87663E+02 0.16801E+03 0.31510E+03 + 0.60194E-01 0.75934E-01 0.95899E-01 0.12124E+00 0.15346E+00 0.19450E+00 + 0.24686E+00 0.31373E+00 0.39906E+00 0.50815E+00 0.52154E+00 0.53089E+00 + 0.53776E+00 0.53249E+00 0.52611E+00 0.52370E+00 0.51496E+00 0.50927E+00 + 0.49941E+00 0.47331E+00 0.40054E+00 0.22561E+00 0.00000E+00 0.53719E+00 + 0.14083E+01 0.31555E+01 0.65157E+01 0.12833E+02 0.24543E+02 0.47321E+02 + 0.89012E+02 0.17039E+03 0.32263E+03 0.92061E-01 0.11601E+00 0.14635E+00 + 0.18479E+00 0.23359E+00 0.29559E+00 0.37449E+00 0.47499E+00 0.60284E+00 + 0.76578E+00 0.97242E+00 0.99371E+00 0.10039E+01 0.10082E+01 0.10002E+01 + 0.99919E+00 0.99118E+00 0.99138E+00 0.99127E+00 0.97734E+00 0.91414E+00 + 0.73932E+00 0.53719E+00 0.00000E+00 0.85274E+00 0.26082E+01 0.60108E+01 + 0.12412E+02 0.24251E+02 0.47307E+02 0.89328E+02 0.17136E+03 0.32458E+03 + 0.13656E+00 0.17191E+00 0.21662E+00 0.27324E+00 0.34496E+00 0.43594E+00 + 0.55145E+00 0.69822E+00 0.88446E+00 0.11211E+01 0.14205E+01 0.17965E+01 + 0.18231E+01 0.18270E+01 0.18352E+01 0.18338E+01 0.18228E+01 0.18272E+01 + 0.18360E+01 0.18332E+01 0.17755E+01 0.15903E+01 0.14083E+01 0.85274E+00 + 0.00000E+00 0.18049E+01 0.53231E+01 0.11927E+02 0.24081E+02 0.47734E+02 + 0.90556E+02 0.17402E+03 0.32928E+03 0.20684E+00 0.26010E+00 0.32743E+00 + 0.41255E+00 0.52029E+00 0.65678E+00 0.82974E+00 0.10491E+01 0.13270E+01 + 0.16793E+01 0.21243E+01 0.26832E+01 0.33752E+01 0.34047E+01 0.34157E+01 + 0.34552E+01 0.34434E+01 0.34573E+01 0.34846E+01 0.35061E+01 0.34678E+01 + 0.32837E+01 0.31555E+01 0.26082E+01 0.18049E+01 0.00000E+00 0.35813E+01 + 0.10328E+02 0.22720E+02 0.46913E+02 0.90439E+02 0.17530E+03 0.33252E+03 + 0.31584E+00 0.39670E+00 0.49886E+00 0.62792E+00 0.79111E+00 0.99761E+00 + 0.12589E+01 0.15899E+01 0.20085E+01 0.25385E+01 0.32074E+01 0.40472E+01 + 0.50899E+01 0.63728E+01 0.64364E+01 0.64963E+01 0.65602E+01 0.65932E+01 + 0.66514E+01 0.67144E+01 0.67134E+01 0.65442E+01 0.65157E+01 0.60108E+01 + 0.53231E+01 0.35813E+01 0.00000E+00 0.68219E+01 0.19375E+02 0.44079E+02 + 0.88260E+02 0.17460E+03 0.33393E+03 0.48235E+00 0.60505E+00 0.75996E+00 + 0.95558E+00 0.12027E+01 0.15151E+01 0.19102E+01 0.24099E+01 0.30412E+01 + 0.38395E+01 0.48463E+01 0.61103E+01 0.76831E+01 0.96257E+01 0.12064E+02 + 0.12245E+02 0.12342E+02 0.12548E+02 0.12658E+02 0.12783E+02 0.12841E+02 + 0.12700E+02 0.12833E+02 0.12412E+02 0.11927E+02 0.10328E+02 0.68219E+01 + 0.00000E+00 0.12634E+02 0.37853E+02 0.82693E+02 0.17075E+03 0.33260E+03 + 0.73358E+00 0.91879E+00 0.11525E+01 0.14475E+01 0.18199E+01 0.22904E+01 + 0.28848E+01 0.36361E+01 0.45843E+01 0.57825E+01 0.72921E+01 0.91880E+01 + 0.11550E+02 0.14476E+02 0.18151E+02 0.22839E+02 0.23153E+02 0.23460E+02 + 0.23916E+02 0.24140E+02 0.24277E+02 0.24171E+02 0.24543E+02 0.24251E+02 + 0.24081E+02 0.22720E+02 0.19375E+02 0.12634E+02 0.00000E+00 0.25786E+02 + 0.71356E+02 0.16156E+03 0.32666E+03 0.11310E+01 0.14140E+01 0.17709E+01 + 0.22212E+01 0.27896E+01 0.35072E+01 0.44132E+01 0.55576E+01 0.70008E+01 + 0.88236E+01 0.11119E+02 0.14003E+02 0.17602E+02 0.22074E+02 0.27690E+02 + 0.34839E+02 0.43807E+02 0.44613E+02 0.45321E+02 0.46244E+02 0.46546E+02 + 0.46529E+02 0.47321E+02 0.47307E+02 0.47734E+02 0.46913E+02 0.44079E+02 + 0.37853E+02 0.25786E+02 0.00000E+00 0.45479E+02 0.13711E+03 0.30455E+03 + 0.17214E+01 0.21473E+01 0.26845E+01 0.33620E+01 0.42168E+01 0.52955E+01 + 0.66568E+01 0.83749E+01 0.10542E+02 0.13276E+02 0.16718E+02 0.21043E+02 + 0.26446E+02 0.33171E+02 0.41618E+02 0.52345E+02 0.65804E+02 0.83031E+02 + 0.84701E+02 0.86070E+02 0.87577E+02 0.87663E+02 0.89012E+02 0.89328E+02 + 0.90556E+02 0.90439E+02 0.88260E+02 0.82693E+02 0.71356E+02 0.45479E+02 + 0.00000E+00 0.93850E+02 0.26497E+03 0.26643E+01 0.33146E+01 0.41349E+01 + 0.51691E+01 0.64734E+01 0.81189E+01 0.10195E+02 0.12814E+02 0.16115E+02 + 0.20279E+02 0.25523E+02 0.32110E+02 0.40353E+02 0.50629E+02 0.63543E+02 + 0.79913E+02 0.10046E+03 0.12669E+03 0.16011E+03 0.16342E+03 0.16575E+03 + 0.16801E+03 0.17039E+03 0.17136E+03 0.17402E+03 0.17530E+03 0.17460E+03 + 0.17075E+03 0.16156E+03 0.13711E+03 0.93850E+02 0.00000E+00 0.17190E+03 + 0.41016E+01 0.50863E+01 0.63282E+01 0.78937E+01 0.98679E+01 0.12358E+02 + 0.15497E+02 0.19458E+02 0.24448E+02 0.30741E+02 0.38663E+02 0.48619E+02 + 0.61088E+02 0.76655E+02 0.96223E+02 0.12099E+03 0.15208E+03 0.19166E+03 + 0.24197E+03 0.30588E+03 0.31170E+03 0.31510E+03 0.32263E+03 0.32458E+03 + 0.32928E+03 0.33252E+03 0.33393E+03 0.33260E+03 0.32666E+03 0.30455E+03 + 0.26497E+03 0.17190E+03 0.00000E+00 diff --git a/etc/HUCM-SBM/kernels_z.asc b/etc/HUCM-SBM/kernels_z.asc new file mode 100755 index 0000000..4d6615f --- /dev/null +++ b/etc/HUCM-SBM/kernels_z.asc @@ -0,0 +1,545 @@ + 0.00000E+00 0.27000E-09 0.17200E-08 0.40100E-08 0.80800E-08 0.15400E-07 + 0.27400E-07 0.46500E-07 0.75100E-07 0.12300E-06 0.19000E-06 0.35900E-06 + 0.85600E-06 0.24000E-05 0.64100E-05 0.13100E-04 0.25200E-04 0.45800E-04 + 0.96800E-04 0.26700E-03 0.20000E-02 0.47500E+00 0.95600E+00 0.19100E+01 + 0.37400E+01 0.70600E+01 0.13100E+02 0.24000E+02 0.43300E+02 0.76000E+02 + 0.12900E+03 0.21000E+03 0.33300E+03 0.27000E-09 0.00000E+00 0.74200E-09 + 0.43500E-08 0.98900E-08 0.20100E-07 0.37200E-07 0.64400E-07 0.10700E-06 + 0.17800E-06 0.29400E-06 0.55700E-06 0.14400E-05 0.50900E-05 0.19700E-04 + 0.90900E-04 0.40000E-03 0.13500E-02 0.39500E-02 0.10800E-01 0.29800E-01 + 0.47700E+00 0.95900E+00 0.19100E+01 0.37500E+01 0.70700E+01 0.13100E+02 + 0.24000E+02 0.43300E+02 0.76000E+02 0.12900E+03 0.21000E+03 0.33300E+03 + 0.17200E-08 0.74200E-09 0.00000E+00 0.29700E-08 0.11100E-07 0.25200E-07 + 0.49400E-07 0.88100E-07 0.15100E-06 0.25500E-06 0.44700E-06 0.89500E-06 + 0.26300E-05 0.14100E-04 0.79400E-04 0.32700E-03 0.11700E-02 0.34900E-02 + 0.95200E-02 0.24700E-01 0.64000E-01 0.47900E+00 0.96300E+00 0.19200E+01 + 0.37600E+01 0.70800E+01 0.13100E+02 0.24100E+02 0.43400E+02 0.76100E+02 + 0.12900E+03 0.21000E+03 0.33400E+03 0.40100E-08 0.43500E-08 0.29700E-08 + 0.00000E+00 0.94300E-08 0.28100E-07 0.62100E-07 0.11700E-06 0.21000E-06 + 0.37000E-06 0.70600E-06 0.16100E-05 0.57600E-05 0.45600E-04 0.30900E-03 + 0.11200E-02 0.31500E-02 0.79300E-02 0.18900E-01 0.44000E-01 0.10300E+00 + 0.48200E+00 0.96700E+00 0.19300E+01 0.37700E+01 0.71000E+01 0.13200E+02 + 0.24100E+02 0.43400E+02 0.76200E+02 0.12900E+03 0.21000E+03 0.33400E+03 + 0.80800E-08 0.98900E-08 0.11100E-07 0.94300E-08 0.00000E+00 0.22500E-07 + 0.67200E-07 0.14300E-06 0.28000E-06 0.57200E-06 0.13300E-05 0.43100E-05 + 0.27300E-04 0.17800E-03 0.71800E-03 0.21000E-02 0.53100E-02 0.12500E-01 + 0.28200E-01 0.62500E-01 0.13900E+00 0.48500E+00 0.97300E+00 0.19400E+01 + 0.37900E+01 0.71200E+01 0.13200E+02 0.24100E+02 0.43500E+02 0.76300E+02 + 0.12900E+03 0.21000E+03 0.33400E+03 0.15400E-07 0.20100E-07 0.25200E-07 + 0.28100E-07 0.22500E-07 0.00000E+00 0.57300E-07 0.15500E-06 0.35700E-06 + 0.88400E-06 0.29600E-05 0.15900E-04 0.86200E-04 0.36100E-03 0.11700E-02 + 0.30900E-02 0.74000E-02 0.16700E-01 0.36600E-01 0.78900E-01 0.16900E+00 + 0.49000E+00 0.98000E+00 0.19500E+01 0.38000E+01 0.71500E+01 0.13200E+02 + 0.24200E+02 0.43600E+02 0.76400E+02 0.12900E+03 0.21000E+03 0.33400E+03 + 0.27400E-07 0.37200E-07 0.49400E-07 0.62100E-07 0.67200E-07 0.57300E-07 + 0.00000E+00 0.12600E-06 0.38900E-06 0.12700E-05 0.68300E-05 0.39500E-04 + 0.16600E-03 0.57100E-03 0.16400E-02 0.40700E-02 0.93500E-02 0.20600E-01 + 0.44100E-01 0.92900E-01 0.19600E+00 0.49500E+00 0.98900E+00 0.19600E+01 + 0.38300E+01 0.71800E+01 0.13300E+02 0.24300E+02 0.43700E+02 0.76500E+02 + 0.12900E+03 0.21000E+03 0.33400E+03 0.46500E-07 0.64400E-07 0.88100E-07 + 0.11700E-06 0.14300E-06 0.15500E-06 0.12600E-06 0.00000E+00 0.30600E-06 + 0.14100E-05 0.11800E-04 0.67300E-04 0.25200E-03 0.77900E-03 0.20800E-02 + 0.49500E-02 0.11100E-01 0.23900E-01 0.50300E-01 0.10500E+00 0.21600E+00 + 0.50200E+00 0.10000E+01 0.19800E+01 0.38500E+01 0.72200E+01 0.13300E+02 + 0.24400E+02 0.43800E+02 0.76600E+02 0.12900E+03 0.21100E+03 0.33500E+03 + 0.75100E-07 0.10700E-06 0.15100E-06 0.21000E-06 0.28000E-06 0.35700E-06 + 0.38900E-06 0.30600E-06 0.00000E+00 0.91900E-06 0.12900E-04 0.89000E-04 + 0.33100E-03 0.97500E-03 0.24800E-02 0.57400E-02 0.12600E-01 0.26700E-01 + 0.55600E-01 0.11400E+00 0.23200E+00 0.51000E+00 0.10100E+01 0.20000E+01 + 0.38800E+01 0.72600E+01 0.13400E+02 0.24500E+02 0.43900E+02 0.76800E+02 + 0.13000E+03 0.21100E+03 0.33500E+03 0.12300E-06 0.17800E-06 0.25500E-06 + 0.37000E-06 0.57200E-06 0.88400E-06 0.12700E-05 0.14100E-05 0.91900E-06 + 0.00000E+00 0.58200E-05 0.90300E-04 0.38600E-03 0.11400E-02 0.28400E-02 + 0.64500E-02 0.14000E-01 0.29200E-01 0.60100E-01 0.12200E+00 0.24600E+00 + 0.52000E+00 0.10300E+01 0.20200E+01 0.39200E+01 0.73200E+01 0.13500E+02 + 0.24600E+02 0.44100E+02 0.77000E+02 0.13000E+03 0.21100E+03 0.33500E+03 + 0.19000E-06 0.29400E-06 0.44700E-06 0.70600E-06 0.13300E-05 0.29600E-05 + 0.68300E-05 0.11800E-04 0.12900E-04 0.58200E-05 0.00000E+00 0.50100E-04 + 0.37800E-03 0.12300E-02 0.31200E-02 0.70600E-02 0.15200E-01 0.31600E-01 + 0.64300E-01 0.12900E+00 0.25900E+00 0.53200E+00 0.10500E+01 0.20500E+01 + 0.39700E+01 0.73900E+01 0.13600E+02 0.24700E+02 0.44300E+02 0.77300E+02 + 0.13000E+03 0.21200E+03 0.33500E+03 0.35900E-06 0.55700E-06 0.89500E-06 + 0.16100E-05 0.43100E-05 0.15900E-04 0.39500E-04 0.67300E-04 0.89000E-04 + 0.90300E-04 0.50100E-04 0.00000E+00 0.24600E-03 0.11700E-02 0.32300E-02 + 0.75100E-02 0.16200E-01 0.33600E-01 0.68100E-01 0.13600E+00 0.27000E+00 + 0.54500E+00 0.10700E+01 0.20900E+01 0.40200E+01 0.74600E+01 0.13700E+02 + 0.24800E+02 0.44500E+02 0.77500E+02 0.13000E+03 0.21200E+03 0.33500E+03 + 0.85600E-06 0.14400E-05 0.26300E-05 0.57600E-05 0.27300E-04 0.86200E-04 + 0.16600E-03 0.25200E-03 0.33100E-03 0.38600E-03 0.37800E-03 0.24600E-03 + 0.00000E+00 0.10400E-02 0.32900E-02 0.79800E-02 0.17500E-01 0.36300E-01 + 0.73400E-01 0.14600E+00 0.28600E+00 0.56000E+00 0.10900E+01 0.21300E+01 + 0.40800E+01 0.75500E+01 0.13800E+02 0.25000E+02 0.44700E+02 0.77800E+02 + 0.13100E+03 0.21200E+03 0.33500E+03 0.24000E-05 0.50900E-05 0.14100E-04 + 0.45600E-04 0.17800E-03 0.36100E-03 0.57100E-03 0.77900E-03 0.97500E-03 + 0.11400E-02 0.12300E-02 0.11700E-02 0.10400E-02 0.00000E+00 0.23400E-02 + 0.72700E-02 0.17300E-01 0.37000E-01 0.75600E-01 0.15000E+00 0.29500E+00 + 0.57500E+00 0.11200E+01 0.21700E+01 0.41500E+01 0.76400E+01 0.13900E+02 + 0.25200E+02 0.44900E+02 0.78000E+02 0.13100E+03 0.21200E+03 0.33500E+03 + 0.64100E-05 0.19700E-04 0.79400E-04 0.30900E-03 0.71800E-03 0.11700E-02 + 0.16400E-02 0.20800E-02 0.24800E-02 0.28400E-02 0.31200E-02 0.32300E-02 + 0.32900E-02 0.23400E-02 0.00000E+00 0.50900E-02 0.15500E-01 0.36100E-01 + 0.76300E-01 0.15400E+00 0.30300E+00 0.59000E+00 0.11400E+01 0.22100E+01 + 0.42200E+01 0.77400E+01 0.14100E+02 0.25400E+02 0.45100E+02 0.78200E+02 + 0.13100E+03 0.21200E+03 0.33400E+03 0.13100E-04 0.90900E-04 0.32700E-03 + 0.11200E-02 0.21000E-02 0.30900E-02 0.40700E-02 0.49500E-02 0.57400E-02 + 0.64500E-02 0.70600E-02 0.75100E-02 0.79800E-02 0.72700E-02 0.50900E-02 + 0.60000E-03 0.10700E-01 0.32100E-01 0.73700E-01 0.15400E+00 0.30700E+00 + 0.60200E+00 0.11700E+01 0.22500E+01 0.42900E+01 0.78500E+01 0.14200E+02 + 0.25500E+02 0.45300E+02 0.78300E+02 0.13100E+03 0.21100E+03 0.33200E+03 + 0.25200E-04 0.40000E-03 0.11700E-02 0.31500E-02 0.53100E-02 0.74000E-02 + 0.93500E-02 0.11100E-01 0.12600E-01 0.14000E-01 0.15200E-01 0.16200E-01 + 0.17500E-01 0.17300E-01 0.15500E-01 0.10700E-01 0.13000E-02 0.21900E-01 + 0.64800E-01 0.14700E+00 0.30600E+00 0.60900E+00 0.11900E+01 0.23000E+01 + 0.43600E+01 0.79500E+01 0.14300E+02 0.25700E+02 0.45400E+02 0.78400E+02 + 0.13100E+03 0.21000E+03 0.33000E+03 0.45800E-04 0.13500E-02 0.34900E-02 + 0.79300E-02 0.12500E-01 0.16700E-01 0.20600E-01 0.23900E-01 0.26700E-01 + 0.29200E-01 0.31600E-01 0.33600E-01 0.36300E-01 0.37000E-01 0.36100E-01 + 0.32100E-01 0.21900E-01 0.20000E-02 0.43700E-01 0.12900E+00 0.29100E+00 + 0.60300E+00 0.12000E+01 0.23300E+01 0.44300E+01 0.80500E+01 0.14500E+02 + 0.25800E+02 0.45600E+02 0.78400E+02 0.13000E+03 0.20900E+03 0.32700E+03 + 0.96800E-04 0.39500E-02 0.95200E-02 0.18900E-01 0.28200E-01 0.36600E-01 + 0.44100E-01 0.50300E-01 0.55600E-01 0.60100E-01 0.64300E-01 0.68100E-01 + 0.73400E-01 0.75600E-01 0.76300E-01 0.73700E-01 0.64800E-01 0.43700E-01 + 0.60000E-02 0.86300E-01 0.25300E+00 0.57300E+00 0.11800E+01 0.23400E+01 + 0.44700E+01 0.81300E+01 0.14600E+02 0.26000E+02 0.45600E+02 0.78200E+02 + 0.12900E+03 0.20700E+03 0.32300E+03 0.26700E-03 0.10800E-01 0.24700E-01 + 0.44000E-01 0.62500E-01 0.78900E-01 0.92900E-01 0.10500E+00 0.11400E+00 + 0.12200E+00 0.12900E+00 0.13600E+00 0.14600E+00 0.15000E+00 0.15400E+00 + 0.15400E+00 0.14700E+00 0.12900E+00 0.86300E-01 0.10000E-01 0.16900E+00 + 0.49700E+00 0.11200E+01 0.23100E+01 0.44800E+01 0.81700E+01 0.14600E+02 + 0.26000E+02 0.45600E+02 0.77900E+02 0.12800E+03 0.20400E+03 0.31700E+03 + 0.20000E-02 0.29800E-01 0.64000E-01 0.10300E+00 0.13900E+00 0.16900E+00 + 0.19600E+00 0.21600E+00 0.23200E+00 0.24600E+00 0.25900E+00 0.27000E+00 + 0.28600E+00 0.29500E+00 0.30300E+00 0.30700E+00 0.30600E+00 0.29100E+00 + 0.25300E+00 0.16900E+00 0.25000E-01 0.33200E+00 0.97300E+00 0.21900E+01 + 0.44100E+01 0.81300E+01 0.14600E+02 0.26000E+02 0.45500E+02 0.77400E+02 + 0.12700E+03 0.20000E+03 0.31000E+03 0.47500E+00 0.47700E+00 0.47900E+00 + 0.48200E+00 0.48500E+00 0.49000E+00 0.49500E+00 0.50200E+00 0.51000E+00 + 0.52000E+00 0.53200E+00 0.54500E+00 0.56000E+00 0.57500E+00 0.59000E+00 + 0.60200E+00 0.60900E+00 0.60300E+00 0.57300E+00 0.49700E+00 0.33200E+00 + 0.55000E-01 0.65100E+00 0.18900E+01 0.41500E+01 0.78900E+01 0.14400E+02 + 0.25700E+02 0.45000E+02 0.76300E+02 0.12500E+03 0.19500E+03 0.30000E+03 + 0.95600E+00 0.95900E+00 0.96300E+00 0.96700E+00 0.97300E+00 0.98000E+00 + 0.98900E+00 0.10000E+01 0.10100E+01 0.10300E+01 0.10500E+01 0.10700E+01 + 0.10900E+01 0.11200E+01 0.11400E+01 0.11700E+01 0.11900E+01 0.12000E+01 + 0.11800E+01 0.11200E+01 0.97300E+00 0.65100E+00 0.14000E+00 0.12600E+01 + 0.35500E+01 0.72800E+01 0.13700E+02 0.24900E+02 0.43900E+02 0.74400E+02 + 0.12100E+03 0.18800E+03 0.28600E+03 0.19100E+01 0.19100E+01 0.19200E+01 + 0.19300E+01 0.19400E+01 0.19500E+01 0.19600E+01 0.19800E+01 0.20000E+01 + 0.20200E+01 0.20500E+01 0.20900E+01 0.21300E+01 0.21700E+01 0.22100E+01 + 0.22500E+01 0.23000E+01 0.23300E+01 0.23400E+01 0.23100E+01 0.21900E+01 + 0.18900E+01 0.12600E+01 0.40000E+00 0.23000E+01 0.59800E+01 0.12300E+02 + 0.23300E+02 0.41700E+02 0.71200E+02 0.11500E+03 0.17800E+03 0.26800E+03 + 0.37400E+01 0.37500E+01 0.37600E+01 0.37700E+01 0.37900E+01 0.38000E+01 + 0.38300E+01 0.38500E+01 0.38800E+01 0.39200E+01 0.39700E+01 0.40200E+01 + 0.40800E+01 0.41500E+01 0.42200E+01 0.42900E+01 0.43600E+01 0.44300E+01 + 0.44700E+01 0.44800E+01 0.44100E+01 0.41500E+01 0.35500E+01 0.23000E+01 + 0.20000E+01 0.35900E+01 0.97300E+01 0.20400E+02 0.38200E+02 0.66300E+02 + 0.10800E+03 0.16500E+03 0.24500E+03 0.70600E+01 0.70700E+01 0.70800E+01 + 0.71000E+01 0.71200E+01 0.71500E+01 0.71800E+01 0.72200E+01 0.72600E+01 + 0.73200E+01 0.73900E+01 0.74600E+01 0.75500E+01 0.76400E+01 0.77400E+01 + 0.78500E+01 0.79500E+01 0.80500E+01 0.81300E+01 0.81700E+01 0.81300E+01 + 0.78900E+01 0.72800E+01 0.59800E+01 0.35900E+01 0.40000E+01 0.60900E+01 + 0.16600E+02 0.34000E+02 0.61000E+02 0.99700E+02 0.15200E+03 0.22200E+03 + 0.13100E+02 0.13100E+02 0.13100E+02 0.13200E+02 0.13200E+02 0.13200E+02 + 0.13300E+02 0.13300E+02 0.13400E+02 0.13500E+02 0.13600E+02 0.13700E+02 + 0.13800E+02 0.13900E+02 0.14100E+02 0.14200E+02 0.14300E+02 0.14500E+02 + 0.14600E+02 0.14600E+02 0.14600E+02 0.14400E+02 0.13700E+02 0.12300E+02 + 0.97300E+01 0.60900E+01 0.55000E+01 0.10400E+02 0.27500E+02 0.53300E+02 + 0.89000E+02 0.13500E+03 0.19500E+03 0.24000E+02 0.24000E+02 0.24100E+02 + 0.24100E+02 0.24100E+02 0.24200E+02 0.24300E+02 0.24400E+02 0.24500E+02 + 0.24600E+02 0.24700E+02 0.24800E+02 0.25000E+02 0.25200E+02 0.25400E+02 + 0.25500E+02 0.25700E+02 0.25800E+02 0.26000E+02 0.26000E+02 0.26000E+02 + 0.25700E+02 0.24900E+02 0.23300E+02 0.20400E+02 0.16600E+02 0.10400E+02 + 0.80000E+01 0.16700E+02 0.41200E+02 0.73500E+02 0.11200E+03 0.15900E+03 + 0.43300E+02 0.43300E+02 0.43400E+02 0.43400E+02 0.43500E+02 0.43600E+02 + 0.43700E+02 0.43800E+02 0.43900E+02 0.44100E+02 0.44300E+02 0.44500E+02 + 0.44700E+02 0.44900E+02 0.45100E+02 0.45300E+02 0.45400E+02 0.45600E+02 + 0.45600E+02 0.45600E+02 0.45500E+02 0.45000E+02 0.43900E+02 0.41700E+02 + 0.38200E+02 0.34000E+02 0.27500E+02 0.16700E+02 0.12000E+02 0.23400E+02 + 0.51900E+02 0.82300E+02 0.11500E+03 0.76000E+02 0.76000E+02 0.76100E+02 + 0.76200E+02 0.76300E+02 0.76400E+02 0.76500E+02 0.76600E+02 0.76800E+02 + 0.77000E+02 0.77300E+02 0.77500E+02 0.77800E+02 0.78000E+02 0.78200E+02 + 0.78300E+02 0.78400E+02 0.78400E+02 0.78200E+02 0.77900E+02 0.77400E+02 + 0.76300E+02 0.74400E+02 0.71200E+02 0.66300E+02 0.61000E+02 0.53300E+02 + 0.41200E+02 0.23400E+02 0.14000E+02 0.25800E+02 0.48600E+02 0.66800E+02 + 0.12900E+03 0.12900E+03 0.12900E+03 0.12900E+03 0.12900E+03 0.12900E+03 + 0.12900E+03 0.12900E+03 0.13000E+03 0.13000E+03 0.13000E+03 0.13000E+03 + 0.13100E+03 0.13100E+03 0.13100E+03 0.13100E+03 0.13100E+03 0.13000E+03 + 0.12900E+03 0.12800E+03 0.12700E+03 0.12500E+03 0.12100E+03 0.11500E+03 + 0.10800E+03 0.99700E+02 0.89000E+02 0.73500E+02 0.51900E+02 0.25800E+02 + 0.15000E+02 0.17900E+02 0.25300E+02 0.21000E+03 0.21000E+03 0.21000E+03 + 0.21000E+03 0.21000E+03 0.21000E+03 0.21000E+03 0.21100E+03 0.21100E+03 + 0.21100E+03 0.21200E+03 0.21200E+03 0.21200E+03 0.21200E+03 0.21200E+03 + 0.21100E+03 0.21000E+03 0.20900E+03 0.20700E+03 0.20400E+03 0.20000E+03 + 0.19500E+03 0.18800E+03 0.17800E+03 0.16500E+03 0.15200E+03 0.13500E+03 + 0.11200E+03 0.82300E+02 0.48600E+02 0.17900E+02 0.16000E+02 0.22000E+01 + 0.33300E+03 0.33300E+03 0.33400E+03 0.33400E+03 0.33400E+03 0.33400E+03 + 0.33400E+03 0.33500E+03 0.33500E+03 0.33500E+03 0.33500E+03 0.33500E+03 + 0.33500E+03 0.33500E+03 0.33400E+03 0.33200E+03 0.33000E+03 0.32700E+03 + 0.32300E+03 0.31700E+03 0.31000E+03 0.30000E+03 0.28600E+03 0.26800E+03 + 0.24500E+03 0.22200E+03 0.19500E+03 0.15900E+03 0.11500E+03 0.66800E+02 + 0.25300E+02 0.22000E+01 0.17000E+02 0.00000E+00 0.27000E-09 0.17100E-08 + 0.39100E-08 0.80800E-08 0.15200E-07 0.26400E-07 0.44700E-07 0.72500E-07 + 0.11500E-06 0.19000E-06 0.32800E-06 0.78100E-06 0.24000E-05 0.64500E-05 + 0.14100E-04 0.27500E-04 0.55500E-04 0.13400E-03 0.54300E-03 0.66900E-02 + 0.47500E+00 0.95600E+00 0.19100E+01 0.37400E+01 0.70600E+01 0.13100E+02 + 0.24000E+02 0.43300E+02 0.76000E+02 0.12900E+03 0.21000E+03 0.33300E+03 + 0.27000E-09 0.00000E+00 0.74000E-09 0.43000E-08 0.98900E-08 0.19900E-07 + 0.36000E-07 0.63500E-07 0.10300E-06 0.16800E-06 0.28400E-06 0.54100E-06 + 0.14000E-05 0.53400E-05 0.26600E-04 0.16200E-03 0.64400E-03 0.19500E-02 + 0.52700E-02 0.13600E-01 0.37400E-01 0.47700E+00 0.95900E+00 0.19100E+01 + 0.37500E+01 0.70700E+01 0.13100E+02 0.24000E+02 0.43300E+02 0.76000E+02 + 0.12900E+03 0.21000E+03 0.33300E+03 0.17100E-08 0.74000E-09 0.00000E+00 + 0.29700E-08 0.11100E-07 0.24900E-07 0.48000E-07 0.87600E-07 0.14600E-06 + 0.24800E-06 0.43700E-06 0.91900E-06 0.28100E-05 0.17600E-04 0.10500E-03 + 0.48200E-03 0.16600E-02 0.46700E-02 0.12100E-01 0.29900E-01 0.74200E-01 + 0.47900E+00 0.96300E+00 0.19200E+01 0.37600E+01 0.70800E+01 0.13100E+02 + 0.24100E+02 0.43400E+02 0.76100E+02 0.12900E+03 0.21000E+03 0.33400E+03 + 0.39100E-08 0.43000E-08 0.29700E-08 0.00000E+00 0.92200E-08 0.27600E-07 + 0.60400E-07 0.11400E-06 0.20800E-06 0.38500E-06 0.73800E-06 0.17600E-05 + 0.68500E-05 0.64100E-04 0.39400E-03 0.13600E-02 0.37400E-02 0.92200E-02 + 0.21600E-01 0.49400E-01 0.11300E+00 0.48200E+00 0.96700E+00 0.19300E+01 + 0.37700E+01 0.71000E+01 0.13200E+02 0.24100E+02 0.43400E+02 0.76200E+02 + 0.12900E+03 0.21000E+03 0.33400E+03 0.80800E-08 0.98900E-08 0.11100E-07 + 0.92200E-08 0.00000E+00 0.22500E-07 0.67100E-07 0.14300E-06 0.28600E-06 + 0.61100E-06 0.15200E-05 0.55300E-05 0.36800E-04 0.21300E-03 0.81300E-03 + 0.23500E-02 0.59000E-02 0.13700E-01 0.30600E-01 0.67200E-01 0.14800E+00 + 0.48500E+00 0.97300E+00 0.19400E+01 0.37900E+01 0.71200E+01 0.13200E+02 + 0.24100E+02 0.43500E+02 0.76300E+02 0.12900E+03 0.21000E+03 0.33400E+03 + 0.15200E-07 0.19900E-07 0.24900E-07 0.27600E-07 0.22500E-07 0.00000E+00 + 0.56400E-07 0.15500E-06 0.36800E-06 0.97600E-06 0.38300E-05 0.21200E-04 + 0.10300E-03 0.40200E-03 0.12600E-02 0.33200E-02 0.79000E-02 0.17700E-01 + 0.38600E-01 0.82800E-01 0.17600E+00 0.49000E+00 0.98000E+00 0.19500E+01 + 0.38000E+01 0.71500E+01 0.13200E+02 0.24200E+02 0.43600E+02 0.76400E+02 + 0.12900E+03 0.21000E+03 0.33400E+03 0.26400E-07 0.36000E-07 0.48000E-07 + 0.60400E-07 0.67100E-07 0.56400E-07 0.00000E+00 0.12600E-06 0.39600E-06 + 0.14600E-05 0.91300E-05 0.47900E-04 0.18600E-03 0.61200E-03 0.17300E-02 + 0.42700E-02 0.97900E-02 0.21400E-01 0.45700E-01 0.96200E-01 0.20100E+00 + 0.49500E+00 0.98900E+00 0.19600E+01 0.38300E+01 0.71800E+01 0.13300E+02 + 0.24300E+02 0.43700E+02 0.76500E+02 0.12900E+03 0.21000E+03 0.33400E+03 + 0.44700E-07 0.63500E-07 0.87600E-07 0.11400E-06 0.14300E-06 0.15500E-06 + 0.12600E-06 0.00000E+00 0.30300E-06 0.16200E-05 0.15100E-04 0.77500E-04 + 0.27300E-03 0.81600E-03 0.21500E-02 0.51100E-02 0.11400E-01 0.24500E-01 + 0.51500E-01 0.10700E+00 0.22000E+00 0.50200E+00 0.10000E+01 0.19800E+01 + 0.38500E+01 0.72200E+01 0.13300E+02 0.24400E+02 0.43800E+02 0.76600E+02 + 0.12900E+03 0.21100E+03 0.33500E+03 0.72500E-07 0.10300E-06 0.14600E-06 + 0.20800E-06 0.28600E-06 0.36800E-06 0.39600E-06 0.30300E-06 0.00000E+00 + 0.99600E-06 0.16200E-04 0.10000E-03 0.35300E-03 0.10100E-02 0.25500E-02 + 0.58600E-02 0.12800E-01 0.27200E-01 0.56400E-01 0.11600E+00 0.23500E+00 + 0.51000E+00 0.10100E+01 0.20000E+01 0.38800E+01 0.72600E+01 0.13400E+02 + 0.24500E+02 0.43900E+02 0.76800E+02 0.13000E+03 0.21100E+03 0.33500E+03 + 0.11500E-06 0.16800E-06 0.24800E-06 0.38500E-06 0.61100E-06 0.97600E-06 + 0.14600E-05 0.16200E-05 0.99600E-06 0.00000E+00 0.72700E-05 0.10100E-03 + 0.40500E-03 0.11700E-02 0.29000E-02 0.65500E-02 0.14100E-01 0.29600E-01 + 0.60900E-01 0.12300E+00 0.24800E+00 0.52000E+00 0.10300E+01 0.20200E+01 + 0.39200E+01 0.73200E+01 0.13500E+02 0.24600E+02 0.44100E+02 0.77000E+02 + 0.13000E+03 0.21100E+03 0.33500E+03 0.19000E-06 0.28400E-06 0.43700E-06 + 0.73800E-06 0.15200E-05 0.38300E-05 0.91300E-05 0.15100E-04 0.16200E-04 + 0.72700E-05 0.00000E+00 0.56900E-04 0.39600E-03 0.12500E-02 0.31500E-02 + 0.71400E-02 0.15300E-01 0.31800E-01 0.64800E-01 0.13000E+00 0.26000E+00 + 0.53200E+00 0.10500E+01 0.20500E+01 0.39700E+01 0.73900E+01 0.13600E+02 + 0.24700E+02 0.44300E+02 0.77300E+02 0.13000E+03 0.21200E+03 0.33500E+03 + 0.32800E-06 0.54100E-06 0.91900E-06 0.17600E-05 0.55300E-05 0.21200E-04 + 0.47900E-04 0.77500E-04 0.10000E-03 0.10100E-03 0.56900E-04 0.00000E+00 + 0.25900E-03 0.11900E-02 0.32700E-02 0.75500E-02 0.16300E-01 0.33800E-01 + 0.68400E-01 0.13700E+00 0.27100E+00 0.54500E+00 0.10700E+01 0.20900E+01 + 0.40200E+01 0.74600E+01 0.13700E+02 0.24800E+02 0.44500E+02 0.77500E+02 + 0.13000E+03 0.21200E+03 0.33500E+03 0.78100E-06 0.14000E-05 0.28100E-05 + 0.68500E-05 0.36800E-04 0.10300E-03 0.18600E-03 0.27300E-03 0.35300E-03 + 0.40500E-03 0.39600E-03 0.25900E-03 0.00000E+00 0.10400E-02 0.32900E-02 + 0.79800E-02 0.17500E-01 0.36300E-01 0.73400E-01 0.14600E+00 0.28600E+00 + 0.56000E+00 0.10900E+01 0.21300E+01 0.40800E+01 0.75500E+01 0.13800E+02 + 0.25000E+02 0.44700E+02 0.77800E+02 0.13100E+03 0.21200E+03 0.33500E+03 + 0.24000E-05 0.53400E-05 0.17600E-04 0.64100E-04 0.21300E-03 0.40200E-03 + 0.61200E-03 0.81600E-03 0.10100E-02 0.11700E-02 0.12500E-02 0.11900E-02 + 0.10400E-02 0.00000E+00 0.23400E-02 0.72700E-02 0.17300E-01 0.37000E-01 + 0.75600E-01 0.15000E+00 0.29500E+00 0.57500E+00 0.11200E+01 0.21700E+01 + 0.41500E+01 0.76400E+01 0.13900E+02 0.25200E+02 0.44900E+02 0.78000E+02 + 0.13100E+03 0.21200E+03 0.33500E+03 0.64500E-05 0.26600E-04 0.10500E-03 + 0.39400E-03 0.81300E-03 0.12600E-02 0.17300E-02 0.21500E-02 0.25500E-02 + 0.29000E-02 0.31500E-02 0.32700E-02 0.32900E-02 0.23400E-02 0.00000E+00 + 0.50900E-02 0.15500E-01 0.36100E-01 0.76300E-01 0.15400E+00 0.30300E+00 + 0.59000E+00 0.11400E+01 0.22100E+01 0.42200E+01 0.77400E+01 0.14100E+02 + 0.25400E+02 0.45100E+02 0.78200E+02 0.13100E+03 0.21200E+03 0.33400E+03 + 0.14100E-04 0.16200E-03 0.48200E-03 0.13600E-02 0.23500E-02 0.33200E-02 + 0.42700E-02 0.51100E-02 0.58600E-02 0.65500E-02 0.71400E-02 0.75500E-02 + 0.79800E-02 0.72700E-02 0.50900E-02 0.60000E-03 0.10700E-01 0.32100E-01 + 0.73700E-01 0.15400E+00 0.30700E+00 0.60200E+00 0.11700E+01 0.22500E+01 + 0.42900E+01 0.78500E+01 0.14200E+02 0.25500E+02 0.45300E+02 0.78300E+02 + 0.13100E+03 0.21100E+03 0.33200E+03 0.27500E-04 0.64400E-03 0.16600E-02 + 0.37400E-02 0.59000E-02 0.79000E-02 0.97900E-02 0.11400E-01 0.12800E-01 + 0.14100E-01 0.15300E-01 0.16300E-01 0.17500E-01 0.17300E-01 0.15500E-01 + 0.10700E-01 0.13000E-02 0.21900E-01 0.64800E-01 0.14700E+00 0.30600E+00 + 0.60900E+00 0.11900E+01 0.23000E+01 0.43600E+01 0.79500E+01 0.14300E+02 + 0.25700E+02 0.45400E+02 0.78400E+02 0.13100E+03 0.21000E+03 0.33000E+03 + 0.55500E-04 0.19500E-02 0.46700E-02 0.92200E-02 0.13700E-01 0.17700E-01 + 0.21400E-01 0.24500E-01 0.27200E-01 0.29600E-01 0.31800E-01 0.33800E-01 + 0.36300E-01 0.37000E-01 0.36100E-01 0.32100E-01 0.21900E-01 0.20000E-02 + 0.43700E-01 0.12900E+00 0.29100E+00 0.60300E+00 0.12000E+01 0.23300E+01 + 0.44300E+01 0.80500E+01 0.14500E+02 0.25800E+02 0.45600E+02 0.78400E+02 + 0.13000E+03 0.20900E+03 0.32700E+03 0.13400E-03 0.52700E-02 0.12100E-01 + 0.21600E-01 0.30600E-01 0.38600E-01 0.45700E-01 0.51500E-01 0.56400E-01 + 0.60900E-01 0.64800E-01 0.68400E-01 0.73400E-01 0.75600E-01 0.76300E-01 + 0.73700E-01 0.64800E-01 0.43700E-01 0.60000E-02 0.86300E-01 0.25300E+00 + 0.57300E+00 0.11800E+01 0.23400E+01 0.44700E+01 0.81300E+01 0.14600E+02 + 0.26000E+02 0.45600E+02 0.78200E+02 0.12900E+03 0.20700E+03 0.32300E+03 + 0.54300E-03 0.13600E-01 0.29900E-01 0.49400E-01 0.67200E-01 0.82800E-01 + 0.96200E-01 0.10700E+00 0.11600E+00 0.12300E+00 0.13000E+00 0.13700E+00 + 0.14600E+00 0.15000E+00 0.15400E+00 0.15400E+00 0.14700E+00 0.12900E+00 + 0.86300E-01 0.10000E-01 0.16900E+00 0.49700E+00 0.11200E+01 0.23100E+01 + 0.44800E+01 0.81700E+01 0.14600E+02 0.26000E+02 0.45600E+02 0.77900E+02 + 0.12800E+03 0.20400E+03 0.31700E+03 0.66900E-02 0.37400E-01 0.74200E-01 + 0.11300E+00 0.14800E+00 0.17600E+00 0.20100E+00 0.22000E+00 0.23500E+00 + 0.24800E+00 0.26000E+00 0.27100E+00 0.28600E+00 0.29500E+00 0.30300E+00 + 0.30700E+00 0.30600E+00 0.29100E+00 0.25300E+00 0.16900E+00 0.25000E-01 + 0.33200E+00 0.97300E+00 0.21900E+01 0.44100E+01 0.81300E+01 0.14600E+02 + 0.26000E+02 0.45500E+02 0.77400E+02 0.12700E+03 0.20000E+03 0.31000E+03 + 0.47500E+00 0.47700E+00 0.47900E+00 0.48200E+00 0.48500E+00 0.49000E+00 + 0.49500E+00 0.50200E+00 0.51000E+00 0.52000E+00 0.53200E+00 0.54500E+00 + 0.56000E+00 0.57500E+00 0.59000E+00 0.60200E+00 0.60900E+00 0.60300E+00 + 0.57300E+00 0.49700E+00 0.33200E+00 0.55000E-01 0.65100E+00 0.18900E+01 + 0.41500E+01 0.78900E+01 0.14400E+02 0.25700E+02 0.45000E+02 0.76300E+02 + 0.12500E+03 0.19500E+03 0.30000E+03 0.95600E+00 0.95900E+00 0.96300E+00 + 0.96700E+00 0.97300E+00 0.98000E+00 0.98900E+00 0.10000E+01 0.10100E+01 + 0.10300E+01 0.10500E+01 0.10700E+01 0.10900E+01 0.11200E+01 0.11400E+01 + 0.11700E+01 0.11900E+01 0.12000E+01 0.11800E+01 0.11200E+01 0.97300E+00 + 0.65100E+00 0.14000E+00 0.12600E+01 0.35500E+01 0.72800E+01 0.13700E+02 + 0.24900E+02 0.43900E+02 0.74400E+02 0.12100E+03 0.18800E+03 0.28600E+03 + 0.19100E+01 0.19100E+01 0.19200E+01 0.19300E+01 0.19400E+01 0.19500E+01 + 0.19600E+01 0.19800E+01 0.20000E+01 0.20200E+01 0.20500E+01 0.20900E+01 + 0.21300E+01 0.21700E+01 0.22100E+01 0.22500E+01 0.23000E+01 0.23300E+01 + 0.23400E+01 0.23100E+01 0.21900E+01 0.18900E+01 0.12600E+01 0.40000E+00 + 0.23000E+01 0.59800E+01 0.12300E+02 0.23300E+02 0.41700E+02 0.71200E+02 + 0.11500E+03 0.17800E+03 0.26800E+03 0.37400E+01 0.37500E+01 0.37600E+01 + 0.37700E+01 0.37900E+01 0.38000E+01 0.38300E+01 0.38500E+01 0.38800E+01 + 0.39200E+01 0.39700E+01 0.40200E+01 0.40800E+01 0.41500E+01 0.42200E+01 + 0.42900E+01 0.43600E+01 0.44300E+01 0.44700E+01 0.44800E+01 0.44100E+01 + 0.41500E+01 0.35500E+01 0.23000E+01 0.20000E+01 0.35900E+01 0.97300E+01 + 0.20400E+02 0.38200E+02 0.66300E+02 0.10800E+03 0.16500E+03 0.24500E+03 + 0.70600E+01 0.70700E+01 0.70800E+01 0.71000E+01 0.71200E+01 0.71500E+01 + 0.71800E+01 0.72200E+01 0.72600E+01 0.73200E+01 0.73900E+01 0.74600E+01 + 0.75500E+01 0.76400E+01 0.77400E+01 0.78500E+01 0.79500E+01 0.80500E+01 + 0.81300E+01 0.81700E+01 0.81300E+01 0.78900E+01 0.72800E+01 0.59800E+01 + 0.35900E+01 0.40000E+01 0.60900E+01 0.16600E+02 0.34000E+02 0.61000E+02 + 0.99700E+02 0.15200E+03 0.22200E+03 0.13100E+02 0.13100E+02 0.13100E+02 + 0.13200E+02 0.13200E+02 0.13200E+02 0.13300E+02 0.13300E+02 0.13400E+02 + 0.13500E+02 0.13600E+02 0.13700E+02 0.13800E+02 0.13900E+02 0.14100E+02 + 0.14200E+02 0.14300E+02 0.14500E+02 0.14600E+02 0.14600E+02 0.14600E+02 + 0.14400E+02 0.13700E+02 0.12300E+02 0.97300E+01 0.60900E+01 0.55000E+01 + 0.10400E+02 0.27500E+02 0.53300E+02 0.89000E+02 0.13500E+03 0.19500E+03 + 0.24000E+02 0.24000E+02 0.24100E+02 0.24100E+02 0.24100E+02 0.24200E+02 + 0.24300E+02 0.24400E+02 0.24500E+02 0.24600E+02 0.24700E+02 0.24800E+02 + 0.25000E+02 0.25200E+02 0.25400E+02 0.25500E+02 0.25700E+02 0.25800E+02 + 0.26000E+02 0.26000E+02 0.26000E+02 0.25700E+02 0.24900E+02 0.23300E+02 + 0.20400E+02 0.16600E+02 0.10400E+02 0.80000E+01 0.16700E+02 0.41200E+02 + 0.73500E+02 0.11200E+03 0.15900E+03 0.43300E+02 0.43300E+02 0.43400E+02 + 0.43400E+02 0.43500E+02 0.43600E+02 0.43700E+02 0.43800E+02 0.43900E+02 + 0.44100E+02 0.44300E+02 0.44500E+02 0.44700E+02 0.44900E+02 0.45100E+02 + 0.45300E+02 0.45400E+02 0.45600E+02 0.45600E+02 0.45600E+02 0.45500E+02 + 0.45000E+02 0.43900E+02 0.41700E+02 0.38200E+02 0.34000E+02 0.27500E+02 + 0.16700E+02 0.12000E+02 0.23400E+02 0.51900E+02 0.82300E+02 0.11500E+03 + 0.76000E+02 0.76000E+02 0.76100E+02 0.76200E+02 0.76300E+02 0.76400E+02 + 0.76500E+02 0.76600E+02 0.76800E+02 0.77000E+02 0.77300E+02 0.77500E+02 + 0.77800E+02 0.78000E+02 0.78200E+02 0.78300E+02 0.78400E+02 0.78400E+02 + 0.78200E+02 0.77900E+02 0.77400E+02 0.76300E+02 0.74400E+02 0.71200E+02 + 0.66300E+02 0.61000E+02 0.53300E+02 0.41200E+02 0.23400E+02 0.14000E+02 + 0.25800E+02 0.48600E+02 0.66800E+02 0.12900E+03 0.12900E+03 0.12900E+03 + 0.12900E+03 0.12900E+03 0.12900E+03 0.12900E+03 0.12900E+03 0.13000E+03 + 0.13000E+03 0.13000E+03 0.13000E+03 0.13100E+03 0.13100E+03 0.13100E+03 + 0.13100E+03 0.13100E+03 0.13000E+03 0.12900E+03 0.12800E+03 0.12700E+03 + 0.12500E+03 0.12100E+03 0.11500E+03 0.10800E+03 0.99700E+02 0.89000E+02 + 0.73500E+02 0.51900E+02 0.25800E+02 0.15000E+02 0.17900E+02 0.25300E+02 + 0.21000E+03 0.21000E+03 0.21000E+03 0.21000E+03 0.21000E+03 0.21000E+03 + 0.21000E+03 0.21100E+03 0.21100E+03 0.21100E+03 0.21200E+03 0.21200E+03 + 0.21200E+03 0.21200E+03 0.21200E+03 0.21100E+03 0.21000E+03 0.20900E+03 + 0.20700E+03 0.20400E+03 0.20000E+03 0.19500E+03 0.18800E+03 0.17800E+03 + 0.16500E+03 0.15200E+03 0.13500E+03 0.11200E+03 0.82300E+02 0.48600E+02 + 0.17900E+02 0.16000E+02 0.22000E+01 0.33300E+03 0.33300E+03 0.33400E+03 + 0.33400E+03 0.33400E+03 0.33400E+03 0.33400E+03 0.33500E+03 0.33500E+03 + 0.33500E+03 0.33500E+03 0.33500E+03 0.33500E+03 0.33500E+03 0.33400E+03 + 0.33200E+03 0.33000E+03 0.32700E+03 0.32300E+03 0.31700E+03 0.31000E+03 + 0.30000E+03 0.28600E+03 0.26800E+03 0.24500E+03 0.22200E+03 0.19500E+03 + 0.15900E+03 0.11500E+03 0.66800E+02 0.25300E+02 0.22000E+01 0.17000E+02 + 0.00000E+00 0.26400E-09 0.16800E-08 0.39100E-08 0.78500E-08 0.14900E-07 + 0.26400E-07 0.44500E-07 0.71200E-07 0.11500E-06 0.17500E-06 0.29800E-06 + 0.64300E-06 0.20300E-05 0.60100E-05 0.15000E-04 0.34900E-04 0.87100E-04 + 0.29500E-03 0.24100E-02 0.15000E-01 0.47500E+00 0.95600E+00 0.19100E+01 + 0.37400E+01 0.70600E+01 0.13100E+02 0.24000E+02 0.43300E+02 0.76000E+02 + 0.12900E+03 0.21000E+03 0.33300E+03 0.26400E-09 0.00000E+00 0.72400E-09 + 0.42500E-08 0.96300E-08 0.19500E-07 0.36000E-07 0.62000E-07 0.10300E-06 + 0.16800E-06 0.27700E-06 0.51700E-06 0.12700E-05 0.53300E-05 0.40900E-04 + 0.26700E-03 0.95800E-03 0.26800E-02 0.69000E-02 0.17700E-01 0.47400E-01 + 0.47700E+00 0.95900E+00 0.19100E+01 0.37500E+01 0.70700E+01 0.13100E+02 + 0.24000E+02 0.43300E+02 0.76000E+02 0.12900E+03 0.21000E+03 0.33300E+03 + 0.16800E-08 0.72400E-09 0.00000E+00 0.29000E-08 0.10900E-07 0.24500E-07 + 0.47700E-07 0.85200E-07 0.14600E-06 0.24800E-06 0.44700E-06 0.94300E-06 + 0.30000E-05 0.21700E-04 0.14400E-03 0.69900E-03 0.22700E-02 0.60800E-02 + 0.15100E-01 0.36000E-01 0.85700E-01 0.47900E+00 0.96300E+00 0.19200E+01 + 0.37600E+01 0.70800E+01 0.13100E+02 0.24100E+02 0.43400E+02 0.76100E+02 + 0.12900E+03 0.21000E+03 0.33400E+03 0.39100E-08 0.42500E-08 0.29000E-08 + 0.00000E+00 0.92200E-08 0.27400E-07 0.58900E-07 0.11400E-06 0.20800E-06 + 0.38500E-06 0.79700E-06 0.19900E-05 0.85200E-05 0.86800E-04 0.48200E-03 + 0.16300E-02 0.44100E-02 0.10700E-01 0.24700E-01 0.55500E-01 0.12400E+00 + 0.48200E+00 0.96700E+00 0.19300E+01 0.37700E+01 0.71000E+01 0.13200E+02 + 0.24100E+02 0.43400E+02 0.76200E+02 0.12900E+03 0.21000E+03 0.33400E+03 + 0.78500E-08 0.96300E-08 0.10900E-07 0.92200E-08 0.00000E+00 0.22000E-07 + 0.65500E-07 0.14300E-06 0.29200E-06 0.65300E-06 0.18000E-05 0.79700E-05 + 0.49400E-04 0.24700E-03 0.91300E-03 0.26100E-02 0.65200E-02 0.15100E-01 + 0.33500E-01 0.72500E-01 0.15700E+00 0.48500E+00 0.97300E+00 0.19400E+01 + 0.37900E+01 0.71200E+01 0.13200E+02 0.24100E+02 0.43500E+02 0.76300E+02 + 0.12900E+03 0.21000E+03 0.33400E+03 0.14900E-07 0.19500E-07 0.24500E-07 + 0.27400E-07 0.22000E-07 0.00000E+00 0.55200E-07 0.15600E-06 0.38200E-06 + 0.11400E-05 0.53100E-05 0.28200E-04 0.12100E-03 0.43900E-03 0.13600E-02 + 0.35700E-02 0.84600E-02 0.18900E-01 0.40900E-01 0.87100E-01 0.18400E+00 + 0.49000E+00 0.98000E+00 0.19500E+01 0.38000E+01 0.71500E+01 0.13200E+02 + 0.24200E+02 0.43600E+02 0.76400E+02 0.12900E+03 0.21000E+03 0.33400E+03 + 0.26400E-07 0.36000E-07 0.47700E-07 0.58900E-07 0.65500E-07 0.55200E-07 + 0.00000E+00 0.13000E-06 0.42300E-06 0.18200E-05 0.12300E-04 0.58000E-04 + 0.20700E-03 0.65000E-03 0.18100E-02 0.44700E-02 0.10200E-01 0.22300E-01 + 0.47500E-01 0.99600E-01 0.20600E+00 0.49500E+00 0.98900E+00 0.19600E+01 + 0.38300E+01 0.71800E+01 0.13300E+02 0.24300E+02 0.43700E+02 0.76500E+02 + 0.12900E+03 0.21000E+03 0.33400E+03 0.44500E-07 0.62000E-07 0.85200E-07 + 0.11400E-06 0.14300E-06 0.15600E-06 0.13000E-06 0.00000E+00 0.30700E-06 + 0.20200E-05 0.19100E-04 0.88800E-04 0.29600E-03 0.85300E-03 0.22200E-02 + 0.52600E-02 0.11800E-01 0.25200E-01 0.52900E-01 0.10900E+00 0.22400E+00 + 0.50200E+00 0.10000E+01 0.19800E+01 0.38500E+01 0.72200E+01 0.13300E+02 + 0.24400E+02 0.43800E+02 0.76600E+02 0.12900E+03 0.21100E+03 0.33500E+03 + 0.71200E-07 0.10300E-06 0.14600E-06 0.20800E-06 0.29200E-06 0.38200E-06 + 0.42300E-06 0.30700E-06 0.00000E+00 0.11100E-05 0.20200E-04 0.11200E-03 + 0.37400E-03 0.10400E-02 0.26000E-02 0.59900E-02 0.13100E-01 0.27700E-01 + 0.57300E-01 0.11700E+00 0.23700E+00 0.51000E+00 0.10100E+01 0.20000E+01 + 0.38800E+01 0.72600E+01 0.13400E+02 0.24500E+02 0.43900E+02 0.76800E+02 + 0.13000E+03 0.21100E+03 0.33500E+03 0.11500E-06 0.16800E-06 0.24800E-06 + 0.38500E-06 0.65300E-06 0.11400E-05 0.18200E-05 0.20200E-05 0.11100E-05 + 0.00000E+00 0.93600E-05 0.11200E-03 0.42800E-03 0.12000E-02 0.29400E-02 + 0.66400E-02 0.14300E-01 0.29900E-01 0.61400E-01 0.12500E+00 0.25000E+00 + 0.52000E+00 0.10300E+01 0.20200E+01 0.39200E+01 0.73200E+01 0.13500E+02 + 0.24600E+02 0.44100E+02 0.77000E+02 0.13000E+03 0.21100E+03 0.33500E+03 + 0.17500E-06 0.27700E-06 0.44700E-06 0.79700E-06 0.18000E-05 0.53100E-05 + 0.12300E-04 0.19100E-04 0.20200E-04 0.93600E-05 0.00000E+00 0.64600E-04 + 0.41500E-03 0.12800E-02 0.31900E-02 0.72000E-02 0.15500E-01 0.32100E-01 + 0.65100E-01 0.13100E+00 0.26100E+00 0.53200E+00 0.10500E+01 0.20500E+01 + 0.39700E+01 0.73900E+01 0.13600E+02 0.24700E+02 0.44300E+02 0.77300E+02 + 0.13000E+03 0.21200E+03 0.33500E+03 0.29800E-06 0.51700E-06 0.94300E-06 + 0.19900E-05 0.79700E-05 0.28200E-04 0.58000E-04 0.88800E-04 0.11200E-03 + 0.11200E-03 0.64600E-04 0.00000E+00 0.27200E-03 0.12100E-02 0.32900E-02 + 0.76100E-02 0.16400E-01 0.34000E-01 0.68800E-01 0.13700E+00 0.27200E+00 + 0.54500E+00 0.10700E+01 0.20900E+01 0.40200E+01 0.74600E+01 0.13700E+02 + 0.24800E+02 0.44500E+02 0.77500E+02 0.13000E+03 0.21200E+03 0.33500E+03 + 0.64300E-06 0.12700E-05 0.30000E-05 0.85200E-05 0.49400E-04 0.12100E-03 + 0.20700E-03 0.29600E-03 0.37400E-03 0.42800E-03 0.41500E-03 0.27200E-03 + 0.00000E+00 0.10400E-02 0.32900E-02 0.79800E-02 0.17500E-01 0.36300E-01 + 0.73400E-01 0.14600E+00 0.28600E+00 0.56000E+00 0.10900E+01 0.21300E+01 + 0.40800E+01 0.75500E+01 0.13800E+02 0.25000E+02 0.44700E+02 0.77800E+02 + 0.13100E+03 0.21200E+03 0.33500E+03 0.20300E-05 0.53300E-05 0.21700E-04 + 0.86800E-04 0.24700E-03 0.43900E-03 0.65000E-03 0.85300E-03 0.10400E-02 + 0.12000E-02 0.12800E-02 0.12100E-02 0.10400E-02 0.00000E+00 0.23400E-02 + 0.72700E-02 0.17300E-01 0.37000E-01 0.75600E-01 0.15000E+00 0.29500E+00 + 0.57500E+00 0.11200E+01 0.21700E+01 0.41500E+01 0.76400E+01 0.13900E+02 + 0.25200E+02 0.44900E+02 0.78000E+02 0.13100E+03 0.21200E+03 0.33500E+03 + 0.60100E-05 0.40900E-04 0.14400E-03 0.48200E-03 0.91300E-03 0.13600E-02 + 0.18100E-02 0.22200E-02 0.26000E-02 0.29400E-02 0.31900E-02 0.32900E-02 + 0.32900E-02 0.23400E-02 0.00000E+00 0.50900E-02 0.15500E-01 0.36100E-01 + 0.76300E-01 0.15400E+00 0.30300E+00 0.59000E+00 0.11400E+01 0.22100E+01 + 0.42200E+01 0.77400E+01 0.14100E+02 0.25400E+02 0.45100E+02 0.78200E+02 + 0.13100E+03 0.21200E+03 0.33400E+03 0.15000E-04 0.26700E-03 0.69900E-03 + 0.16300E-02 0.26100E-02 0.35700E-02 0.44700E-02 0.52600E-02 0.59900E-02 + 0.66400E-02 0.72000E-02 0.76100E-02 0.79800E-02 0.72700E-02 0.50900E-02 + 0.60000E-03 0.10700E-01 0.32100E-01 0.73700E-01 0.15400E+00 0.30700E+00 + 0.60200E+00 0.11700E+01 0.22500E+01 0.42900E+01 0.78500E+01 0.14200E+02 + 0.25500E+02 0.45300E+02 0.78300E+02 0.13100E+03 0.21100E+03 0.33200E+03 + 0.34900E-04 0.95800E-03 0.22700E-02 0.44100E-02 0.65200E-02 0.84600E-02 + 0.10200E-01 0.11800E-01 0.13100E-01 0.14300E-01 0.15500E-01 0.16400E-01 + 0.17500E-01 0.17300E-01 0.15500E-01 0.10700E-01 0.13000E-02 0.21900E-01 + 0.64800E-01 0.14700E+00 0.30600E+00 0.60900E+00 0.11900E+01 0.23000E+01 + 0.43600E+01 0.79500E+01 0.14300E+02 0.25700E+02 0.45400E+02 0.78400E+02 + 0.13100E+03 0.21000E+03 0.33000E+03 0.87100E-04 0.26800E-02 0.60800E-02 + 0.10700E-01 0.15100E-01 0.18900E-01 0.22300E-01 0.25200E-01 0.27700E-01 + 0.29900E-01 0.32100E-01 0.34000E-01 0.36300E-01 0.37000E-01 0.36100E-01 + 0.32100E-01 0.21900E-01 0.20000E-02 0.43700E-01 0.12900E+00 0.29100E+00 + 0.60300E+00 0.12000E+01 0.23300E+01 0.44300E+01 0.80500E+01 0.14500E+02 + 0.25800E+02 0.45600E+02 0.78400E+02 0.13000E+03 0.20900E+03 0.32700E+03 + 0.29500E-03 0.69000E-02 0.15100E-01 0.24700E-01 0.33500E-01 0.40900E-01 + 0.47500E-01 0.52900E-01 0.57300E-01 0.61400E-01 0.65100E-01 0.68800E-01 + 0.73400E-01 0.75600E-01 0.76300E-01 0.73700E-01 0.64800E-01 0.43700E-01 + 0.60000E-02 0.86300E-01 0.25300E+00 0.57300E+00 0.11800E+01 0.23400E+01 + 0.44700E+01 0.81300E+01 0.14600E+02 0.26000E+02 0.45600E+02 0.78200E+02 + 0.12900E+03 0.20700E+03 0.32300E+03 0.24100E-02 0.17700E-01 0.36000E-01 + 0.55500E-01 0.72500E-01 0.87100E-01 0.99600E-01 0.10900E+00 0.11700E+00 + 0.12500E+00 0.13100E+00 0.13700E+00 0.14600E+00 0.15000E+00 0.15400E+00 + 0.15400E+00 0.14700E+00 0.12900E+00 0.86300E-01 0.10000E-01 0.16900E+00 + 0.49700E+00 0.11200E+01 0.23100E+01 0.44800E+01 0.81700E+01 0.14600E+02 + 0.26000E+02 0.45600E+02 0.77900E+02 0.12800E+03 0.20400E+03 0.31700E+03 + 0.15000E-01 0.47400E-01 0.85700E-01 0.12400E+00 0.15700E+00 0.18400E+00 + 0.20600E+00 0.22400E+00 0.23700E+00 0.25000E+00 0.26100E+00 0.27200E+00 + 0.28600E+00 0.29500E+00 0.30300E+00 0.30700E+00 0.30600E+00 0.29100E+00 + 0.25300E+00 0.16900E+00 0.25000E-01 0.33200E+00 0.97300E+00 0.21900E+01 + 0.44100E+01 0.81300E+01 0.14600E+02 0.26000E+02 0.45500E+02 0.77400E+02 + 0.12700E+03 0.20000E+03 0.31000E+03 0.47500E+00 0.47700E+00 0.47900E+00 + 0.48200E+00 0.48500E+00 0.49000E+00 0.49500E+00 0.50200E+00 0.51000E+00 + 0.52000E+00 0.53200E+00 0.54500E+00 0.56000E+00 0.57500E+00 0.59000E+00 + 0.60200E+00 0.60900E+00 0.60300E+00 0.57300E+00 0.49700E+00 0.33200E+00 + 0.55000E-01 0.65100E+00 0.18900E+01 0.41500E+01 0.78900E+01 0.14400E+02 + 0.25700E+02 0.45000E+02 0.76300E+02 0.12500E+03 0.19500E+03 0.30000E+03 + 0.95600E+00 0.95900E+00 0.96300E+00 0.96700E+00 0.97300E+00 0.98000E+00 + 0.98900E+00 0.10000E+01 0.10100E+01 0.10300E+01 0.10500E+01 0.10700E+01 + 0.10900E+01 0.11200E+01 0.11400E+01 0.11700E+01 0.11900E+01 0.12000E+01 + 0.11800E+01 0.11200E+01 0.97300E+00 0.65100E+00 0.14000E+00 0.12600E+01 + 0.35500E+01 0.72800E+01 0.13700E+02 0.24900E+02 0.43900E+02 0.74400E+02 + 0.12100E+03 0.18800E+03 0.28600E+03 0.19100E+01 0.19100E+01 0.19200E+01 + 0.19300E+01 0.19400E+01 0.19500E+01 0.19600E+01 0.19800E+01 0.20000E+01 + 0.20200E+01 0.20500E+01 0.20900E+01 0.21300E+01 0.21700E+01 0.22100E+01 + 0.22500E+01 0.23000E+01 0.23300E+01 0.23400E+01 0.23100E+01 0.21900E+01 + 0.18900E+01 0.12600E+01 0.40000E+00 0.23000E+01 0.59800E+01 0.12300E+02 + 0.23300E+02 0.41700E+02 0.71200E+02 0.11500E+03 0.17800E+03 0.26800E+03 + 0.37400E+01 0.37500E+01 0.37600E+01 0.37700E+01 0.37900E+01 0.38000E+01 + 0.38300E+01 0.38500E+01 0.38800E+01 0.39200E+01 0.39700E+01 0.40200E+01 + 0.40800E+01 0.41500E+01 0.42200E+01 0.42900E+01 0.43600E+01 0.44300E+01 + 0.44700E+01 0.44800E+01 0.44100E+01 0.41500E+01 0.35500E+01 0.23000E+01 + 0.20000E+01 0.35900E+01 0.97300E+01 0.20400E+02 0.38200E+02 0.66300E+02 + 0.10800E+03 0.16500E+03 0.24500E+03 0.70600E+01 0.70700E+01 0.70800E+01 + 0.71000E+01 0.71200E+01 0.71500E+01 0.71800E+01 0.72200E+01 0.72600E+01 + 0.73200E+01 0.73900E+01 0.74600E+01 0.75500E+01 0.76400E+01 0.77400E+01 + 0.78500E+01 0.79500E+01 0.80500E+01 0.81300E+01 0.81700E+01 0.81300E+01 + 0.78900E+01 0.72800E+01 0.59800E+01 0.35900E+01 0.40000E+01 0.60900E+01 + 0.16600E+02 0.34000E+02 0.61000E+02 0.99700E+02 0.15200E+03 0.22200E+03 + 0.13100E+02 0.13100E+02 0.13100E+02 0.13200E+02 0.13200E+02 0.13200E+02 + 0.13300E+02 0.13300E+02 0.13400E+02 0.13500E+02 0.13600E+02 0.13700E+02 + 0.13800E+02 0.13900E+02 0.14100E+02 0.14200E+02 0.14300E+02 0.14500E+02 + 0.14600E+02 0.14600E+02 0.14600E+02 0.14400E+02 0.13700E+02 0.12300E+02 + 0.97300E+01 0.60900E+01 0.55000E+01 0.10400E+02 0.27500E+02 0.53300E+02 + 0.89000E+02 0.13500E+03 0.19500E+03 0.24000E+02 0.24000E+02 0.24100E+02 + 0.24100E+02 0.24100E+02 0.24200E+02 0.24300E+02 0.24400E+02 0.24500E+02 + 0.24600E+02 0.24700E+02 0.24800E+02 0.25000E+02 0.25200E+02 0.25400E+02 + 0.25500E+02 0.25700E+02 0.25800E+02 0.26000E+02 0.26000E+02 0.26000E+02 + 0.25700E+02 0.24900E+02 0.23300E+02 0.20400E+02 0.16600E+02 0.10400E+02 + 0.80000E+01 0.16700E+02 0.41200E+02 0.73500E+02 0.11200E+03 0.15900E+03 + 0.43300E+02 0.43300E+02 0.43400E+02 0.43400E+02 0.43500E+02 0.43600E+02 + 0.43700E+02 0.43800E+02 0.43900E+02 0.44100E+02 0.44300E+02 0.44500E+02 + 0.44700E+02 0.44900E+02 0.45100E+02 0.45300E+02 0.45400E+02 0.45600E+02 + 0.45600E+02 0.45600E+02 0.45500E+02 0.45000E+02 0.43900E+02 0.41700E+02 + 0.38200E+02 0.34000E+02 0.27500E+02 0.16700E+02 0.12000E+02 0.23400E+02 + 0.51900E+02 0.82300E+02 0.11500E+03 0.76000E+02 0.76000E+02 0.76100E+02 + 0.76200E+02 0.76300E+02 0.76400E+02 0.76500E+02 0.76600E+02 0.76800E+02 + 0.77000E+02 0.77300E+02 0.77500E+02 0.77800E+02 0.78000E+02 0.78200E+02 + 0.78300E+02 0.78400E+02 0.78400E+02 0.78200E+02 0.77900E+02 0.77400E+02 + 0.76300E+02 0.74400E+02 0.71200E+02 0.66300E+02 0.61000E+02 0.53300E+02 + 0.41200E+02 0.23400E+02 0.14000E+02 0.25800E+02 0.48600E+02 0.66800E+02 + 0.12900E+03 0.12900E+03 0.12900E+03 0.12900E+03 0.12900E+03 0.12900E+03 + 0.12900E+03 0.12900E+03 0.13000E+03 0.13000E+03 0.13000E+03 0.13000E+03 + 0.13100E+03 0.13100E+03 0.13100E+03 0.13100E+03 0.13100E+03 0.13000E+03 + 0.12900E+03 0.12800E+03 0.12700E+03 0.12500E+03 0.12100E+03 0.11500E+03 + 0.10800E+03 0.99700E+02 0.89000E+02 0.73500E+02 0.51900E+02 0.25800E+02 + 0.15000E+02 0.17900E+02 0.25300E+02 0.21000E+03 0.21000E+03 0.21000E+03 + 0.21000E+03 0.21000E+03 0.21000E+03 0.21000E+03 0.21100E+03 0.21100E+03 + 0.21100E+03 0.21200E+03 0.21200E+03 0.21200E+03 0.21200E+03 0.21200E+03 + 0.21100E+03 0.21000E+03 0.20900E+03 0.20700E+03 0.20400E+03 0.20000E+03 + 0.19500E+03 0.18800E+03 0.17800E+03 0.16500E+03 0.15200E+03 0.13500E+03 + 0.11200E+03 0.82300E+02 0.48600E+02 0.17900E+02 0.16000E+02 0.22000E+01 + 0.33300E+03 0.33300E+03 0.33400E+03 0.33400E+03 0.33400E+03 0.33400E+03 + 0.33400E+03 0.33500E+03 0.33500E+03 0.33500E+03 0.33500E+03 0.33500E+03 + 0.33500E+03 0.33500E+03 0.33400E+03 0.33200E+03 0.33000E+03 0.32700E+03 + 0.32300E+03 0.31700E+03 0.31000E+03 0.30000E+03 0.28600E+03 0.26800E+03 + 0.24500E+03 0.22200E+03 0.19500E+03 0.15900E+03 0.11500E+03 0.66800E+02 + 0.25300E+02 0.22000E+01 0.17000E+02 diff --git a/etc/HUCM-SBM/masses.asc b/etc/HUCM-SBM/masses.asc new file mode 100755 index 0000000..8efd96a --- /dev/null +++ b/etc/HUCM-SBM/masses.asc @@ -0,0 +1,39 @@ + 0.33510E-10 0.67021E-10 0.13404E-09 0.26808E-09 0.53617E-09 0.10723E-08 + 0.21447E-08 0.42893E-08 0.85786E-08 0.17157E-07 0.34315E-07 0.68629E-07 + 0.13726E-06 0.27452E-06 0.54903E-06 0.10981E-05 0.21961E-05 0.43923E-05 + 0.87845E-05 0.17569E-04 0.35138E-04 0.70276E-04 0.14055E-03 0.28110E-03 + 0.56221E-03 0.11244E-02 0.22488E-02 0.44977E-02 0.89954E-02 0.17991E-01 + 0.35981E-01 0.71963E-01 0.14393E+00 0.33510E-10 0.67021E-10 0.13404E-09 + 0.26808E-09 0.53617E-09 0.10723E-08 0.21447E-08 0.42893E-08 0.85786E-08 + 0.17157E-07 0.34315E-07 0.68629E-07 0.13726E-06 0.27452E-06 0.54903E-06 + 0.10981E-05 0.21961E-05 0.43923E-05 0.87845E-05 0.17569E-04 0.35138E-04 + 0.70276E-04 0.14055E-03 0.28110E-03 0.56221E-03 0.11244E-02 0.22488E-02 + 0.44977E-02 0.89954E-02 0.17991E-01 0.35981E-01 0.71963E-01 0.14393E+00 + 0.33510E-10 0.67021E-10 0.13404E-09 0.26808E-09 0.53617E-09 0.10723E-08 + 0.21447E-08 0.42893E-08 0.85786E-08 0.17157E-07 0.34315E-07 0.68629E-07 + 0.13726E-06 0.27452E-06 0.54903E-06 0.10981E-05 0.21961E-05 0.43923E-05 + 0.87845E-05 0.17569E-04 0.35138E-04 0.70276E-04 0.14055E-03 0.28110E-03 + 0.56221E-03 0.11244E-02 0.22488E-02 0.44977E-02 0.89954E-02 0.17991E-01 + 0.35981E-01 0.71963E-01 0.14393E+00 0.33510E-10 0.67021E-10 0.13404E-09 + 0.26808E-09 0.53617E-09 0.10723E-08 0.21447E-08 0.42893E-08 0.85786E-08 + 0.17157E-07 0.34315E-07 0.68629E-07 0.13726E-06 0.27452E-06 0.54903E-06 + 0.10981E-05 0.21961E-05 0.43923E-05 0.87845E-05 0.17569E-04 0.35138E-04 + 0.70276E-04 0.14055E-03 0.28110E-03 0.56221E-03 0.11244E-02 0.22488E-02 + 0.44977E-02 0.89954E-02 0.17991E-01 0.35981E-01 0.71963E-01 0.14393E+00 + 0.33510E-10 0.67021E-10 0.13404E-09 0.26808E-09 0.53617E-09 0.10723E-08 + 0.21447E-08 0.42893E-08 0.85786E-08 0.17157E-07 0.34315E-07 0.68629E-07 + 0.13726E-06 0.27452E-06 0.54903E-06 0.10981E-05 0.21961E-05 0.43923E-05 + 0.87845E-05 0.17569E-04 0.35138E-04 0.70276E-04 0.14055E-03 0.28110E-03 + 0.56221E-03 0.11244E-02 0.22488E-02 0.44977E-02 0.89954E-02 0.17991E-01 + 0.35981E-01 0.71963E-01 0.14393E+00 0.33510E-10 0.67021E-10 0.13404E-09 + 0.26808E-09 0.53617E-09 0.10723E-08 0.21447E-08 0.42893E-08 0.85786E-08 + 0.17157E-07 0.34315E-07 0.68629E-07 0.13726E-06 0.27452E-06 0.54903E-06 + 0.10981E-05 0.21961E-05 0.43923E-05 0.87845E-05 0.17569E-04 0.35138E-04 + 0.70276E-04 0.14055E-03 0.28110E-03 0.56221E-03 0.11244E-02 0.22488E-02 + 0.44977E-02 0.89954E-02 0.17991E-01 0.35981E-01 0.71963E-01 0.14393E+00 + 0.33510E-10 0.67021E-10 0.13404E-09 0.26808E-09 0.53617E-09 0.10723E-08 + 0.21447E-08 0.42893E-08 0.85786E-08 0.17157E-07 0.34315E-07 0.68629E-07 + 0.13726E-06 0.27452E-06 0.54903E-06 0.10981E-05 0.21961E-05 0.43923E-05 + 0.87845E-05 0.17569E-04 0.35138E-04 0.70276E-04 0.14055E-03 0.28110E-03 + 0.56221E-03 0.11244E-02 0.22488E-02 0.44977E-02 0.89954E-02 0.17991E-01 + 0.35981E-01 0.71963E-01 0.14393E+00 diff --git a/etc/HUCM-SBM/mavail.nest2.3.km.big.asc b/etc/HUCM-SBM/mavail.nest2.3.km.big.asc new file mode 100755 index 0000000..633b743 --- /dev/null +++ b/etc/HUCM-SBM/mavail.nest2.3.km.big.asc @@ -0,0 +1,29440 @@ + 1 1 1.000000 + 2 1 1.000000 + 3 1 1.000000 + 4 1 1.000000 + 5 1 1.000000 + 6 1 1.000000 + 7 1 1.000000 + 8 1 1.000000 + 9 1 1.000000 + 10 1 1.000000 + 11 1 1.000000 + 12 1 1.000000 + 13 1 1.000000 + 14 1 1.000000 + 15 1 1.000000 + 16 1 1.000000 + 17 1 1.000000 + 18 1 1.000000 + 19 1 1.000000 + 20 1 1.000000 + 21 1 1.000000 + 22 1 1.000000 + 23 1 1.000000 + 24 1 1.000000 + 25 1 1.000000 + 26 1 1.000000 + 27 1 1.000000 + 28 1 1.000000 + 29 1 1.000000 + 30 1 1.000000 + 31 1 1.000000 + 32 1 1.000000 + 33 1 1.000000 + 34 1 1.000000 + 35 1 1.000000 + 36 1 1.000000 + 37 1 1.000000 + 38 1 1.000000 + 39 1 1.000000 + 40 1 1.000000 + 41 1 1.000000 + 42 1 1.000000 + 43 1 1.000000 + 44 1 1.000000 + 45 1 1.000000 + 46 1 1.000000 + 47 1 1.000000 + 48 1 1.000000 + 49 1 1.000000 + 50 1 1.000000 + 51 1 1.000000 + 52 1 1.000000 + 53 1 1.000000 + 54 1 1.000000 + 55 1 1.000000 + 56 1 1.000000 + 57 1 1.000000 + 58 1 1.000000 + 59 1 1.000000 + 60 1 1.000000 + 61 1 1.000000 + 62 1 1.000000 + 63 1 1.000000 + 64 1 1.000000 + 65 1 1.000000 + 66 1 1.000000 + 67 1 1.000000 + 68 1 1.000000 + 69 1 1.000000 + 70 1 1.000000 + 71 1 1.000000 + 72 1 1.000000 + 73 1 1.000000 + 74 1 1.000000 + 75 1 1.000000 + 76 1 1.000000 + 77 1 1.000000 + 78 1 1.000000 + 79 1 1.000000 + 80 1 1.000000 + 81 1 1.000000 + 82 1 1.000000 + 83 1 1.000000 + 84 1 1.000000 + 85 1 1.000000 + 86 1 1.000000 + 87 1 1.000000 + 88 1 1.000000 + 89 1 1.000000 + 90 1 1.000000 + 91 1 1.000000 + 92 1 1.000000 + 93 1 1.000000 + 94 1 1.000000 + 95 1 1.000000 + 96 1 1.000000 + 97 1 1.000000 + 98 1 1.000000 + 99 1 1.000000 + 100 1 1.000000 + 101 1 1.000000 + 102 1 1.000000 + 103 1 1.000000 + 104 1 1.000000 + 105 1 1.000000 + 106 1 1.000000 + 107 1 1.000000 + 108 1 1.000000 + 109 1 1.000000 + 110 1 1.000000 + 111 1 1.000000 + 112 1 1.000000 + 113 1 1.000000 + 114 1 1.000000 + 115 1 1.000000 + 116 1 1.000000 + 117 1 1.000000 + 118 1 1.000000 + 119 1 1.000000 + 120 1 1.000000 + 121 1 1.000000 + 122 1 1.000000 + 123 1 1.000000 + 124 1 1.000000 + 125 1 1.000000 + 126 1 1.000000 + 127 1 1.000000 + 128 1 1.000000 + 129 1 1.000000 + 130 1 1.000000 + 131 1 1.000000 + 132 1 1.000000 + 133 1 1.000000 + 134 1 1.000000 + 135 1 1.000000 + 136 1 0.3774336 + 137 1 0.3774336 + 138 1 0.3774336 + 139 1 0.3774336 + 140 1 0.3774336 + 141 1 0.3774336 + 142 1 0.3774336 + 143 1 0.3774336 + 144 1 0.3774336 + 145 1 0.3774336 + 146 1 0.3776203 + 147 1 0.3945956 + 148 1 0.4123625 + 149 1 0.4308669 + 150 1 0.4500514 + 151 1 0.4698581 + 152 1 0.4902281 + 153 1 0.5111030 + 154 1 0.5324251 + 155 1 0.5541376 + 156 1 0.5761859 + 157 1 0.5985166 + 158 1 0.6210780 + 159 1 0.6500947 + 160 1 0.6727968 + 1 2 1.000000 + 2 2 1.000000 + 3 2 1.000000 + 4 2 1.000000 + 5 2 1.000000 + 6 2 1.000000 + 7 2 1.000000 + 8 2 1.000000 + 9 2 1.000000 + 10 2 1.000000 + 11 2 1.000000 + 12 2 1.000000 + 13 2 1.000000 + 14 2 1.000000 + 15 2 1.000000 + 16 2 1.000000 + 17 2 1.000000 + 18 2 1.000000 + 19 2 1.000000 + 20 2 1.000000 + 21 2 1.000000 + 22 2 1.000000 + 23 2 1.000000 + 24 2 1.000000 + 25 2 1.000000 + 26 2 1.000000 + 27 2 1.000000 + 28 2 1.000000 + 29 2 1.000000 + 30 2 1.000000 + 31 2 1.000000 + 32 2 1.000000 + 33 2 1.000000 + 34 2 1.000000 + 35 2 1.000000 + 36 2 1.000000 + 37 2 1.000000 + 38 2 1.000000 + 39 2 1.000000 + 40 2 1.000000 + 41 2 1.000000 + 42 2 1.000000 + 43 2 1.000000 + 44 2 1.000000 + 45 2 1.000000 + 46 2 1.000000 + 47 2 1.000000 + 48 2 1.000000 + 49 2 1.000000 + 50 2 1.000000 + 51 2 1.000000 + 52 2 1.000000 + 53 2 1.000000 + 54 2 1.000000 + 55 2 1.000000 + 56 2 1.000000 + 57 2 1.000000 + 58 2 1.000000 + 59 2 1.000000 + 60 2 1.000000 + 61 2 1.000000 + 62 2 1.000000 + 63 2 1.000000 + 64 2 1.000000 + 65 2 1.000000 + 66 2 1.000000 + 67 2 1.000000 + 68 2 1.000000 + 69 2 1.000000 + 70 2 1.000000 + 71 2 1.000000 + 72 2 1.000000 + 73 2 1.000000 + 74 2 1.000000 + 75 2 1.000000 + 76 2 1.000000 + 77 2 1.000000 + 78 2 1.000000 + 79 2 1.000000 + 80 2 1.000000 + 81 2 1.000000 + 82 2 1.000000 + 83 2 1.000000 + 84 2 1.000000 + 85 2 1.000000 + 86 2 1.000000 + 87 2 1.000000 + 88 2 1.000000 + 89 2 1.000000 + 90 2 1.000000 + 91 2 1.000000 + 92 2 1.000000 + 93 2 1.000000 + 94 2 1.000000 + 95 2 1.000000 + 96 2 1.000000 + 97 2 1.000000 + 98 2 1.000000 + 99 2 1.000000 + 100 2 1.000000 + 101 2 1.000000 + 102 2 1.000000 + 103 2 1.000000 + 104 2 1.000000 + 105 2 1.000000 + 106 2 1.000000 + 107 2 1.000000 + 108 2 1.000000 + 109 2 1.000000 + 110 2 1.000000 + 111 2 1.000000 + 112 2 1.000000 + 113 2 1.000000 + 114 2 1.000000 + 115 2 1.000000 + 116 2 1.000000 + 117 2 1.000000 + 118 2 1.000000 + 119 2 1.000000 + 120 2 1.000000 + 121 2 1.000000 + 122 2 1.000000 + 123 2 1.000000 + 124 2 1.000000 + 125 2 1.000000 + 126 2 1.000000 + 127 2 1.000000 + 128 2 1.000000 + 129 2 1.000000 + 130 2 1.000000 + 131 2 1.000000 + 132 2 1.000000 + 133 2 1.000000 + 134 2 1.000000 + 135 2 1.000000 + 136 2 0.3774336 + 137 2 0.3774336 + 138 2 0.3774336 + 139 2 0.3774336 + 140 2 0.3774336 + 141 2 0.3774336 + 142 2 0.3774336 + 143 2 0.3774336 + 144 2 0.3774336 + 145 2 0.3835852 + 146 2 0.4006226 + 147 2 0.4184501 + 148 2 0.4370132 + 149 2 0.4562555 + 150 2 0.4761186 + 151 2 0.4965447 + 152 2 0.5174756 + 153 2 0.5388540 + 154 2 0.5606239 + 155 2 0.5827309 + 156 2 0.6051226 + 157 2 0.6277490 + 158 2 0.6505605 + 159 2 0.6735123 + 160 2 0.6965595 + 1 3 1.000000 + 2 3 1.000000 + 3 3 1.000000 + 4 3 1.000000 + 5 3 1.000000 + 6 3 1.000000 + 7 3 1.000000 + 8 3 1.000000 + 9 3 1.000000 + 10 3 1.000000 + 11 3 1.000000 + 12 3 1.000000 + 13 3 1.000000 + 14 3 1.000000 + 15 3 1.000000 + 16 3 1.000000 + 17 3 1.000000 + 18 3 1.000000 + 19 3 1.000000 + 20 3 1.000000 + 21 3 1.000000 + 22 3 1.000000 + 23 3 1.000000 + 24 3 1.000000 + 25 3 1.000000 + 26 3 1.000000 + 27 3 1.000000 + 28 3 1.000000 + 29 3 1.000000 + 30 3 1.000000 + 31 3 1.000000 + 32 3 1.000000 + 33 3 1.000000 + 34 3 1.000000 + 35 3 1.000000 + 36 3 1.000000 + 37 3 1.000000 + 38 3 1.000000 + 39 3 1.000000 + 40 3 1.000000 + 41 3 1.000000 + 42 3 1.000000 + 43 3 1.000000 + 44 3 1.000000 + 45 3 1.000000 + 46 3 1.000000 + 47 3 1.000000 + 48 3 1.000000 + 49 3 1.000000 + 50 3 1.000000 + 51 3 1.000000 + 52 3 1.000000 + 53 3 1.000000 + 54 3 1.000000 + 55 3 1.000000 + 56 3 1.000000 + 57 3 1.000000 + 58 3 1.000000 + 59 3 1.000000 + 60 3 1.000000 + 61 3 1.000000 + 62 3 1.000000 + 63 3 1.000000 + 64 3 1.000000 + 65 3 1.000000 + 66 3 1.000000 + 67 3 1.000000 + 68 3 1.000000 + 69 3 1.000000 + 70 3 1.000000 + 71 3 1.000000 + 72 3 1.000000 + 73 3 1.000000 + 74 3 1.000000 + 75 3 1.000000 + 76 3 1.000000 + 77 3 1.000000 + 78 3 1.000000 + 79 3 1.000000 + 80 3 1.000000 + 81 3 1.000000 + 82 3 1.000000 + 83 3 1.000000 + 84 3 1.000000 + 85 3 1.000000 + 86 3 1.000000 + 87 3 1.000000 + 88 3 1.000000 + 89 3 1.000000 + 90 3 1.000000 + 91 3 1.000000 + 92 3 1.000000 + 93 3 1.000000 + 94 3 1.000000 + 95 3 1.000000 + 96 3 1.000000 + 97 3 1.000000 + 98 3 1.000000 + 99 3 1.000000 + 100 3 1.000000 + 101 3 1.000000 + 102 3 1.000000 + 103 3 1.000000 + 104 3 1.000000 + 105 3 1.000000 + 106 3 1.000000 + 107 3 1.000000 + 108 3 1.000000 + 109 3 1.000000 + 110 3 1.000000 + 111 3 1.000000 + 112 3 1.000000 + 113 3 1.000000 + 114 3 1.000000 + 115 3 1.000000 + 116 3 1.000000 + 117 3 1.000000 + 118 3 1.000000 + 119 3 1.000000 + 120 3 1.000000 + 121 3 1.000000 + 122 3 1.000000 + 123 3 1.000000 + 124 3 1.000000 + 125 3 1.000000 + 126 3 1.000000 + 127 3 1.000000 + 128 3 1.000000 + 129 3 1.000000 + 130 3 1.000000 + 131 3 1.000000 + 132 3 1.000000 + 133 3 1.000000 + 134 3 1.000000 + 135 3 1.000000 + 136 3 1.000000 + 137 3 1.000000 + 138 3 1.000000 + 139 3 1.000000 + 140 3 1.000000 + 141 3 1.000000 + 142 3 1.000000 + 143 3 1.000000 + 144 3 1.000000 + 145 3 1.000000 + 146 3 1.000000 + 147 3 0.4433591 + 148 3 0.4627028 + 149 3 0.4826676 + 150 3 0.5031958 + 151 3 0.5242288 + 152 3 0.5457097 + 153 3 0.5675830 + 154 3 0.5897943 + 155 3 0.6122918 + 156 3 0.6350259 + 157 3 0.6579487 + 158 3 0.6810153 + 159 3 0.7041820 + 160 3 0.7274079 + 1 4 1.000000 + 2 4 1.000000 + 3 4 1.000000 + 4 4 1.000000 + 5 4 1.000000 + 6 4 1.000000 + 7 4 1.000000 + 8 4 1.000000 + 9 4 1.000000 + 10 4 1.000000 + 11 4 1.000000 + 12 4 1.000000 + 13 4 1.000000 + 14 4 1.000000 + 15 4 1.000000 + 16 4 1.000000 + 17 4 1.000000 + 18 4 1.000000 + 19 4 1.000000 + 20 4 1.000000 + 21 4 1.000000 + 22 4 1.000000 + 23 4 1.000000 + 24 4 1.000000 + 25 4 1.000000 + 26 4 1.000000 + 27 4 1.000000 + 28 4 1.000000 + 29 4 1.000000 + 30 4 1.000000 + 31 4 1.000000 + 32 4 1.000000 + 33 4 1.000000 + 34 4 1.000000 + 35 4 1.000000 + 36 4 1.000000 + 37 4 1.000000 + 38 4 1.000000 + 39 4 1.000000 + 40 4 1.000000 + 41 4 1.000000 + 42 4 1.000000 + 43 4 1.000000 + 44 4 1.000000 + 45 4 1.000000 + 46 4 1.000000 + 47 4 1.000000 + 48 4 1.000000 + 49 4 1.000000 + 50 4 1.000000 + 51 4 1.000000 + 52 4 1.000000 + 53 4 1.000000 + 54 4 1.000000 + 55 4 1.000000 + 56 4 1.000000 + 57 4 1.000000 + 58 4 1.000000 + 59 4 1.000000 + 60 4 1.000000 + 61 4 1.000000 + 62 4 1.000000 + 63 4 1.000000 + 64 4 1.000000 + 65 4 1.000000 + 66 4 1.000000 + 67 4 1.000000 + 68 4 1.000000 + 69 4 1.000000 + 70 4 1.000000 + 71 4 1.000000 + 72 4 1.000000 + 73 4 1.000000 + 74 4 1.000000 + 75 4 1.000000 + 76 4 1.000000 + 77 4 1.000000 + 78 4 1.000000 + 79 4 1.000000 + 80 4 1.000000 + 81 4 1.000000 + 82 4 1.000000 + 83 4 1.000000 + 84 4 1.000000 + 85 4 1.000000 + 86 4 1.000000 + 87 4 1.000000 + 88 4 1.000000 + 89 4 1.000000 + 90 4 1.000000 + 91 4 1.000000 + 92 4 1.000000 + 93 4 1.000000 + 94 4 1.000000 + 95 4 1.000000 + 96 4 1.000000 + 97 4 1.000000 + 98 4 1.000000 + 99 4 1.000000 + 100 4 1.000000 + 101 4 1.000000 + 102 4 1.000000 + 103 4 1.000000 + 104 4 1.000000 + 105 4 1.000000 + 106 4 1.000000 + 107 4 1.000000 + 108 4 1.000000 + 109 4 1.000000 + 110 4 1.000000 + 111 4 1.000000 + 112 4 1.000000 + 113 4 1.000000 + 114 4 1.000000 + 115 4 1.000000 + 116 4 1.000000 + 117 4 1.000000 + 118 4 1.000000 + 119 4 1.000000 + 120 4 1.000000 + 121 4 1.000000 + 122 4 1.000000 + 123 4 1.000000 + 124 4 1.000000 + 125 4 1.000000 + 126 4 1.000000 + 127 4 1.000000 + 128 4 1.000000 + 129 4 1.000000 + 130 4 1.000000 + 131 4 1.000000 + 132 4 1.000000 + 133 4 1.000000 + 134 4 1.000000 + 135 4 1.000000 + 136 4 1.000000 + 137 4 1.000000 + 138 4 1.000000 + 139 4 1.000000 + 140 4 1.000000 + 141 4 1.000000 + 142 4 1.000000 + 143 4 1.000000 + 144 4 1.000000 + 145 4 1.000000 + 146 4 1.000000 + 147 4 0.4692184 + 148 4 0.4893239 + 149 4 0.5099931 + 150 4 0.5311691 + 151 4 0.5527938 + 152 4 0.5748112 + 153 4 0.5971687 + 154 4 0.6198133 + 155 4 0.6426957 + 156 4 0.6657688 + 157 4 0.6889876 + 158 4 0.7123100 + 159 4 0.7356960 + 160 4 0.7591071 + 1 5 1.000000 + 2 5 1.000000 + 3 5 1.000000 + 4 5 1.000000 + 5 5 1.000000 + 6 5 1.000000 + 7 5 1.000000 + 8 5 1.000000 + 9 5 1.000000 + 10 5 1.000000 + 11 5 1.000000 + 12 5 1.000000 + 13 5 1.000000 + 14 5 1.000000 + 15 5 1.000000 + 16 5 1.000000 + 17 5 1.000000 + 18 5 1.000000 + 19 5 1.000000 + 20 5 1.000000 + 21 5 1.000000 + 22 5 1.000000 + 23 5 1.000000 + 24 5 1.000000 + 25 5 1.000000 + 26 5 1.000000 + 27 5 1.000000 + 28 5 1.000000 + 29 5 1.000000 + 30 5 1.000000 + 31 5 1.000000 + 32 5 1.000000 + 33 5 1.000000 + 34 5 1.000000 + 35 5 1.000000 + 36 5 1.000000 + 37 5 1.000000 + 38 5 1.000000 + 39 5 1.000000 + 40 5 1.000000 + 41 5 1.000000 + 42 5 1.000000 + 43 5 1.000000 + 44 5 1.000000 + 45 5 1.000000 + 46 5 1.000000 + 47 5 1.000000 + 48 5 1.000000 + 49 5 1.000000 + 50 5 1.000000 + 51 5 1.000000 + 52 5 1.000000 + 53 5 1.000000 + 54 5 1.000000 + 55 5 1.000000 + 56 5 1.000000 + 57 5 1.000000 + 58 5 1.000000 + 59 5 1.000000 + 60 5 1.000000 + 61 5 1.000000 + 62 5 1.000000 + 63 5 1.000000 + 64 5 1.000000 + 65 5 1.000000 + 66 5 1.000000 + 67 5 1.000000 + 68 5 1.000000 + 69 5 1.000000 + 70 5 1.000000 + 71 5 1.000000 + 72 5 1.000000 + 73 5 1.000000 + 74 5 1.000000 + 75 5 1.000000 + 76 5 1.000000 + 77 5 1.000000 + 78 5 1.000000 + 79 5 1.000000 + 80 5 1.000000 + 81 5 1.000000 + 82 5 1.000000 + 83 5 1.000000 + 84 5 1.000000 + 85 5 1.000000 + 86 5 1.000000 + 87 5 1.000000 + 88 5 1.000000 + 89 5 1.000000 + 90 5 1.000000 + 91 5 1.000000 + 92 5 1.000000 + 93 5 1.000000 + 94 5 1.000000 + 95 5 1.000000 + 96 5 1.000000 + 97 5 1.000000 + 98 5 1.000000 + 99 5 1.000000 + 100 5 1.000000 + 101 5 1.000000 + 102 5 1.000000 + 103 5 1.000000 + 104 5 1.000000 + 105 5 1.000000 + 106 5 1.000000 + 107 5 1.000000 + 108 5 1.000000 + 109 5 1.000000 + 110 5 1.000000 + 111 5 1.000000 + 112 5 1.000000 + 113 5 1.000000 + 114 5 1.000000 + 115 5 1.000000 + 116 5 1.000000 + 117 5 1.000000 + 118 5 1.000000 + 119 5 1.000000 + 120 5 1.000000 + 121 5 1.000000 + 122 5 1.000000 + 123 5 1.000000 + 124 5 1.000000 + 125 5 1.000000 + 126 5 1.000000 + 127 5 1.000000 + 128 5 1.000000 + 129 5 1.000000 + 130 5 1.000000 + 131 5 1.000000 + 132 5 1.000000 + 133 5 1.000000 + 134 5 1.000000 + 135 5 1.000000 + 136 5 1.000000 + 137 5 1.000000 + 138 5 1.000000 + 139 5 1.000000 + 140 5 1.000000 + 141 5 1.000000 + 142 5 1.000000 + 143 5 1.000000 + 144 5 1.000000 + 145 5 1.000000 + 146 5 1.000000 + 147 5 7.7765370E-03 + 148 5 2.5421187E-02 + 149 5 4.3496072E-02 + 150 5 6.1952472E-02 + 151 5 0.5821167 + 152 5 0.6046569 + 153 5 0.6274858 + 154 5 0.6505536 + 155 5 0.6738132 + 156 5 0.6972204 + 157 5 0.7207330 + 158 5 0.7443123 + 159 5 0.7679194 + 160 5 0.7915205 + 1 6 1.000000 + 2 6 1.000000 + 3 6 1.000000 + 4 6 1.000000 + 5 6 1.000000 + 6 6 1.000000 + 7 6 1.000000 + 8 6 1.000000 + 9 6 1.000000 + 10 6 1.000000 + 11 6 1.000000 + 12 6 1.000000 + 13 6 1.000000 + 14 6 1.000000 + 15 6 1.000000 + 16 6 1.000000 + 17 6 1.000000 + 18 6 1.000000 + 19 6 1.000000 + 20 6 1.000000 + 21 6 1.000000 + 22 6 1.000000 + 23 6 1.000000 + 24 6 1.000000 + 25 6 1.000000 + 26 6 1.000000 + 27 6 1.000000 + 28 6 1.000000 + 29 6 1.000000 + 30 6 1.000000 + 31 6 1.000000 + 32 6 1.000000 + 33 6 1.000000 + 34 6 1.000000 + 35 6 1.000000 + 36 6 1.000000 + 37 6 1.000000 + 38 6 1.000000 + 39 6 1.000000 + 40 6 1.000000 + 41 6 1.000000 + 42 6 1.000000 + 43 6 1.000000 + 44 6 1.000000 + 45 6 1.000000 + 46 6 1.000000 + 47 6 1.000000 + 48 6 1.000000 + 49 6 1.000000 + 50 6 1.000000 + 51 6 1.000000 + 52 6 1.000000 + 53 6 1.000000 + 54 6 1.000000 + 55 6 1.000000 + 56 6 1.000000 + 57 6 1.000000 + 58 6 1.000000 + 59 6 1.000000 + 60 6 1.000000 + 61 6 1.000000 + 62 6 1.000000 + 63 6 1.000000 + 64 6 1.000000 + 65 6 1.000000 + 66 6 1.000000 + 67 6 1.000000 + 68 6 1.000000 + 69 6 1.000000 + 70 6 1.000000 + 71 6 1.000000 + 72 6 1.000000 + 73 6 1.000000 + 74 6 1.000000 + 75 6 1.000000 + 76 6 1.000000 + 77 6 1.000000 + 78 6 1.000000 + 79 6 1.000000 + 80 6 1.000000 + 81 6 1.000000 + 82 6 1.000000 + 83 6 1.000000 + 84 6 1.000000 + 85 6 1.000000 + 86 6 1.000000 + 87 6 1.000000 + 88 6 1.000000 + 89 6 1.000000 + 90 6 1.000000 + 91 6 1.000000 + 92 6 1.000000 + 93 6 1.000000 + 94 6 1.000000 + 95 6 1.000000 + 96 6 1.000000 + 97 6 1.000000 + 98 6 1.000000 + 99 6 1.000000 + 100 6 1.000000 + 101 6 1.000000 + 102 6 1.000000 + 103 6 1.000000 + 104 6 1.000000 + 105 6 1.000000 + 106 6 1.000000 + 107 6 1.000000 + 108 6 1.000000 + 109 6 1.000000 + 110 6 1.000000 + 111 6 1.000000 + 112 6 1.000000 + 113 6 1.000000 + 114 6 1.000000 + 115 6 1.000000 + 116 6 1.000000 + 117 6 1.000000 + 118 6 1.000000 + 119 6 1.000000 + 120 6 1.000000 + 121 6 1.000000 + 122 6 1.000000 + 123 6 1.000000 + 124 6 1.000000 + 125 6 1.000000 + 126 6 1.000000 + 127 6 1.000000 + 128 6 1.000000 + 129 6 1.000000 + 130 6 1.000000 + 131 6 1.000000 + 132 6 1.000000 + 133 6 1.000000 + 134 6 1.000000 + 135 6 1.000000 + 136 6 1.000000 + 137 6 1.000000 + 138 6 1.000000 + 139 6 1.000000 + 140 6 1.000000 + 141 6 1.000000 + 142 6 1.000000 + 143 6 1.000000 + 144 6 1.000000 + 145 6 1.000000 + 146 6 1.000000 + 147 6 3.0972566E-02 + 148 6 4.9224537E-02 + 149 6 6.7860588E-02 + 150 6 8.6832948E-02 + 151 6 0.6120681 + 152 6 0.6351151 + 153 6 0.6584025 + 154 6 0.6818828 + 155 6 0.7055119 + 156 6 0.7292479 + 157 6 0.7530517 + 158 6 0.7768860 + 159 6 0.8007167 + 160 6 0.8245111 + 1 7 1.000000 + 2 7 1.000000 + 3 7 1.000000 + 4 7 1.000000 + 5 7 1.000000 + 6 7 1.000000 + 7 7 1.000000 + 8 7 1.000000 + 9 7 1.000000 + 10 7 1.000000 + 11 7 1.000000 + 12 7 1.000000 + 13 7 1.000000 + 14 7 1.000000 + 15 7 1.000000 + 16 7 1.000000 + 17 7 1.000000 + 18 7 1.000000 + 19 7 1.000000 + 20 7 1.000000 + 21 7 1.000000 + 22 7 1.000000 + 23 7 1.000000 + 24 7 1.000000 + 25 7 1.000000 + 26 7 1.000000 + 27 7 1.000000 + 28 7 1.000000 + 29 7 1.000000 + 30 7 1.000000 + 31 7 1.000000 + 32 7 1.000000 + 33 7 1.000000 + 34 7 1.000000 + 35 7 1.000000 + 36 7 1.000000 + 37 7 1.000000 + 38 7 1.000000 + 39 7 1.000000 + 40 7 1.000000 + 41 7 1.000000 + 42 7 1.000000 + 43 7 1.000000 + 44 7 1.000000 + 45 7 1.000000 + 46 7 1.000000 + 47 7 1.000000 + 48 7 1.000000 + 49 7 1.000000 + 50 7 1.000000 + 51 7 1.000000 + 52 7 1.000000 + 53 7 1.000000 + 54 7 1.000000 + 55 7 1.000000 + 56 7 1.000000 + 57 7 1.000000 + 58 7 1.000000 + 59 7 1.000000 + 60 7 1.000000 + 61 7 1.000000 + 62 7 1.000000 + 63 7 1.000000 + 64 7 1.000000 + 65 7 1.000000 + 66 7 1.000000 + 67 7 1.000000 + 68 7 1.000000 + 69 7 1.000000 + 70 7 1.000000 + 71 7 1.000000 + 72 7 1.000000 + 73 7 1.000000 + 74 7 1.000000 + 75 7 1.000000 + 76 7 1.000000 + 77 7 1.000000 + 78 7 1.000000 + 79 7 1.000000 + 80 7 1.000000 + 81 7 1.000000 + 82 7 1.000000 + 83 7 1.000000 + 84 7 1.000000 + 85 7 1.000000 + 86 7 1.000000 + 87 7 1.000000 + 88 7 1.000000 + 89 7 1.000000 + 90 7 1.000000 + 91 7 1.000000 + 92 7 1.000000 + 93 7 1.000000 + 94 7 1.000000 + 95 7 1.000000 + 96 7 1.000000 + 97 7 1.000000 + 98 7 1.000000 + 99 7 1.000000 + 100 7 1.000000 + 101 7 1.000000 + 102 7 1.000000 + 103 7 1.000000 + 104 7 1.000000 + 105 7 1.000000 + 106 7 1.000000 + 107 7 1.000000 + 108 7 1.000000 + 109 7 1.000000 + 110 7 1.000000 + 111 7 1.000000 + 112 7 1.000000 + 113 7 1.000000 + 114 7 1.000000 + 115 7 1.000000 + 116 7 1.000000 + 117 7 1.000000 + 118 7 1.000000 + 119 7 1.000000 + 120 7 1.000000 + 121 7 1.000000 + 122 7 1.000000 + 123 7 1.000000 + 124 7 1.000000 + 125 7 1.000000 + 126 7 1.000000 + 127 7 1.000000 + 128 7 1.000000 + 129 7 1.000000 + 130 7 1.000000 + 131 7 1.000000 + 132 7 1.000000 + 133 7 1.000000 + 134 7 1.000000 + 135 7 1.000000 + 136 7 1.000000 + 137 7 1.000000 + 138 7 1.000000 + 139 7 1.000000 + 140 7 1.000000 + 141 7 1.000000 + 142 7 1.000000 + 143 7 1.000000 + 144 7 1.000000 + 145 7 1.000000 + 146 7 1.000000 + 147 7 5.4654084E-02 + 148 7 7.3493227E-02 + 149 7 9.2671916E-02 + 150 7 0.1121434 + 151 7 0.6425098 + 152 7 0.6660485 + 153 7 0.6897818 + 154 7 0.7136648 + 155 7 0.7376558 + 156 7 0.7617151 + 157 7 0.7858063 + 158 7 0.8098955 + 159 7 0.8339502 + 160 7 0.8579410 + 1 8 1.000000 + 2 8 1.000000 + 3 8 1.000000 + 4 8 1.000000 + 5 8 1.000000 + 6 8 1.000000 + 7 8 1.000000 + 8 8 1.000000 + 9 8 1.000000 + 10 8 1.000000 + 11 8 1.000000 + 12 8 1.000000 + 13 8 1.000000 + 14 8 1.000000 + 15 8 1.000000 + 16 8 1.000000 + 17 8 1.000000 + 18 8 1.000000 + 19 8 1.000000 + 20 8 1.000000 + 21 8 1.000000 + 22 8 1.000000 + 23 8 1.000000 + 24 8 1.000000 + 25 8 1.000000 + 26 8 1.000000 + 27 8 1.000000 + 28 8 1.000000 + 29 8 1.000000 + 30 8 1.000000 + 31 8 1.000000 + 32 8 1.000000 + 33 8 1.000000 + 34 8 1.000000 + 35 8 1.000000 + 36 8 1.000000 + 37 8 1.000000 + 38 8 1.000000 + 39 8 1.000000 + 40 8 1.000000 + 41 8 1.000000 + 42 8 1.000000 + 43 8 1.000000 + 44 8 1.000000 + 45 8 1.000000 + 46 8 1.000000 + 47 8 1.000000 + 48 8 1.000000 + 49 8 1.000000 + 50 8 1.000000 + 51 8 1.000000 + 52 8 1.000000 + 53 8 1.000000 + 54 8 1.000000 + 55 8 1.000000 + 56 8 1.000000 + 57 8 1.000000 + 58 8 1.000000 + 59 8 1.000000 + 60 8 1.000000 + 61 8 1.000000 + 62 8 1.000000 + 63 8 1.000000 + 64 8 1.000000 + 65 8 1.000000 + 66 8 1.000000 + 67 8 1.000000 + 68 8 1.000000 + 69 8 1.000000 + 70 8 1.000000 + 71 8 1.000000 + 72 8 1.000000 + 73 8 1.000000 + 74 8 1.000000 + 75 8 1.000000 + 76 8 1.000000 + 77 8 1.000000 + 78 8 1.000000 + 79 8 1.000000 + 80 8 1.000000 + 81 8 1.000000 + 82 8 1.000000 + 83 8 1.000000 + 84 8 1.000000 + 85 8 1.000000 + 86 8 1.000000 + 87 8 1.000000 + 88 8 1.000000 + 89 8 1.000000 + 90 8 1.000000 + 91 8 1.000000 + 92 8 1.000000 + 93 8 1.000000 + 94 8 1.000000 + 95 8 1.000000 + 96 8 1.000000 + 97 8 1.000000 + 98 8 1.000000 + 99 8 1.000000 + 100 8 1.000000 + 101 8 1.000000 + 102 8 1.000000 + 103 8 1.000000 + 104 8 1.000000 + 105 8 1.000000 + 106 8 1.000000 + 107 8 1.000000 + 108 8 1.000000 + 109 8 1.000000 + 110 8 1.000000 + 111 8 1.000000 + 112 8 1.000000 + 113 8 1.000000 + 114 8 1.000000 + 115 8 1.000000 + 116 8 1.000000 + 117 8 1.000000 + 118 8 1.000000 + 119 8 1.000000 + 120 8 1.000000 + 121 8 1.000000 + 122 8 1.000000 + 123 8 1.000000 + 124 8 1.000000 + 125 8 1.000000 + 126 8 1.000000 + 127 8 1.000000 + 128 8 1.000000 + 129 8 1.000000 + 130 8 1.000000 + 131 8 1.000000 + 132 8 1.000000 + 133 8 1.000000 + 134 8 1.000000 + 135 8 1.000000 + 136 8 1.000000 + 137 8 1.000000 + 138 8 1.000000 + 139 8 1.000000 + 140 8 1.000000 + 141 8 1.000000 + 142 8 1.000000 + 143 8 1.000000 + 144 8 1.000000 + 145 8 1.000000 + 146 8 1.000000 + 147 8 7.8695573E-02 + 148 8 9.8102689E-02 + 149 8 0.1178062 + 150 8 0.1377607 + 151 8 0.6732976 + 152 8 0.6973140 + 153 8 0.7214814 + 154 8 0.7457579 + 155 8 0.7701037 + 156 8 0.7944816 + 157 8 0.8188584 + 158 8 0.8432012 + 159 8 0.8674814 + 160 8 0.8916714 + 1 9 1.000000 + 2 9 1.000000 + 3 9 1.000000 + 4 9 1.000000 + 5 9 1.000000 + 6 9 1.000000 + 7 9 1.000000 + 8 9 1.000000 + 9 9 1.000000 + 10 9 1.000000 + 11 9 1.000000 + 12 9 1.000000 + 13 9 1.000000 + 14 9 1.000000 + 15 9 1.000000 + 16 9 1.000000 + 17 9 1.000000 + 18 9 1.000000 + 19 9 1.000000 + 20 9 1.000000 + 21 9 1.000000 + 22 9 1.000000 + 23 9 1.000000 + 24 9 1.000000 + 25 9 1.000000 + 26 9 1.000000 + 27 9 1.000000 + 28 9 1.000000 + 29 9 1.000000 + 30 9 1.000000 + 31 9 1.000000 + 32 9 1.000000 + 33 9 1.000000 + 34 9 1.000000 + 35 9 1.000000 + 36 9 1.000000 + 37 9 1.000000 + 38 9 1.000000 + 39 9 1.000000 + 40 9 1.000000 + 41 9 1.000000 + 42 9 1.000000 + 43 9 1.000000 + 44 9 1.000000 + 45 9 1.000000 + 46 9 1.000000 + 47 9 1.000000 + 48 9 1.000000 + 49 9 1.000000 + 50 9 1.000000 + 51 9 1.000000 + 52 9 1.000000 + 53 9 1.000000 + 54 9 1.000000 + 55 9 1.000000 + 56 9 1.000000 + 57 9 1.000000 + 58 9 1.000000 + 59 9 1.000000 + 60 9 1.000000 + 61 9 1.000000 + 62 9 1.000000 + 63 9 1.000000 + 64 9 1.000000 + 65 9 1.000000 + 66 9 1.000000 + 67 9 1.000000 + 68 9 1.000000 + 69 9 1.000000 + 70 9 1.000000 + 71 9 1.000000 + 72 9 1.000000 + 73 9 1.000000 + 74 9 1.000000 + 75 9 1.000000 + 76 9 1.000000 + 77 9 1.000000 + 78 9 1.000000 + 79 9 1.000000 + 80 9 1.000000 + 81 9 1.000000 + 82 9 1.000000 + 83 9 1.000000 + 84 9 1.000000 + 85 9 1.000000 + 86 9 1.000000 + 87 9 1.000000 + 88 9 1.000000 + 89 9 1.000000 + 90 9 1.000000 + 91 9 1.000000 + 92 9 1.000000 + 93 9 1.000000 + 94 9 1.000000 + 95 9 1.000000 + 96 9 1.000000 + 97 9 1.000000 + 98 9 1.000000 + 99 9 1.000000 + 100 9 1.000000 + 101 9 1.000000 + 102 9 1.000000 + 103 9 1.000000 + 104 9 1.000000 + 105 9 1.000000 + 106 9 1.000000 + 107 9 1.000000 + 108 9 1.000000 + 109 9 1.000000 + 110 9 1.000000 + 111 9 1.000000 + 112 9 1.000000 + 113 9 1.000000 + 114 9 1.000000 + 115 9 1.000000 + 116 9 1.000000 + 117 9 1.000000 + 118 9 1.000000 + 119 9 1.000000 + 120 9 1.000000 + 121 9 1.000000 + 122 9 1.000000 + 123 9 1.000000 + 124 9 1.000000 + 125 9 1.000000 + 126 9 1.000000 + 127 9 1.000000 + 128 9 1.000000 + 129 9 1.000000 + 130 9 1.000000 + 131 9 1.000000 + 132 9 1.000000 + 133 9 1.000000 + 134 9 1.000000 + 135 9 1.000000 + 136 9 1.000000 + 137 9 1.000000 + 138 9 1.000000 + 139 9 1.000000 + 140 9 1.000000 + 141 9 1.000000 + 142 9 1.000000 + 143 9 1.000000 + 144 9 1.000000 + 145 9 1.000000 + 146 9 1.000000 + 147 9 0.1029636 + 148 9 0.1229202 + 149 9 0.1431323 + 150 9 0.1635553 + 151 9 0.7042807 + 152 9 0.7287624 + 153 9 0.7533547 + 154 9 0.7780169 + 155 9 0.8027121 + 156 9 0.8274058 + 157 9 0.8520662 + 158 9 0.8766639 + 159 9 0.9011718 + 160 9 0.9255646 + 1 10 1.000000 + 2 10 1.000000 + 3 10 1.000000 + 4 10 1.000000 + 5 10 1.000000 + 6 10 1.000000 + 7 10 1.000000 + 8 10 1.000000 + 9 10 1.000000 + 10 10 1.000000 + 11 10 1.000000 + 12 10 1.000000 + 13 10 1.000000 + 14 10 1.000000 + 15 10 1.000000 + 16 10 1.000000 + 17 10 1.000000 + 18 10 1.000000 + 19 10 1.000000 + 20 10 1.000000 + 21 10 1.000000 + 22 10 1.000000 + 23 10 1.000000 + 24 10 1.000000 + 25 10 1.000000 + 26 10 1.000000 + 27 10 1.000000 + 28 10 1.000000 + 29 10 1.000000 + 30 10 1.000000 + 31 10 1.000000 + 32 10 1.000000 + 33 10 1.000000 + 34 10 1.000000 + 35 10 1.000000 + 36 10 1.000000 + 37 10 1.000000 + 38 10 1.000000 + 39 10 1.000000 + 40 10 1.000000 + 41 10 1.000000 + 42 10 1.000000 + 43 10 1.000000 + 44 10 1.000000 + 45 10 1.000000 + 46 10 1.000000 + 47 10 1.000000 + 48 10 1.000000 + 49 10 1.000000 + 50 10 1.000000 + 51 10 1.000000 + 52 10 1.000000 + 53 10 1.000000 + 54 10 1.000000 + 55 10 1.000000 + 56 10 1.000000 + 57 10 1.000000 + 58 10 1.000000 + 59 10 1.000000 + 60 10 1.000000 + 61 10 1.000000 + 62 10 1.000000 + 63 10 1.000000 + 64 10 1.000000 + 65 10 1.000000 + 66 10 1.000000 + 67 10 1.000000 + 68 10 1.000000 + 69 10 1.000000 + 70 10 1.000000 + 71 10 1.000000 + 72 10 1.000000 + 73 10 1.000000 + 74 10 1.000000 + 75 10 1.000000 + 76 10 1.000000 + 77 10 1.000000 + 78 10 1.000000 + 79 10 1.000000 + 80 10 1.000000 + 81 10 1.000000 + 82 10 1.000000 + 83 10 1.000000 + 84 10 1.000000 + 85 10 1.000000 + 86 10 1.000000 + 87 10 1.000000 + 88 10 1.000000 + 89 10 1.000000 + 90 10 1.000000 + 91 10 1.000000 + 92 10 1.000000 + 93 10 1.000000 + 94 10 1.000000 + 95 10 1.000000 + 96 10 1.000000 + 97 10 1.000000 + 98 10 1.000000 + 99 10 1.000000 + 100 10 1.000000 + 101 10 1.000000 + 102 10 1.000000 + 103 10 1.000000 + 104 10 1.000000 + 105 10 1.000000 + 106 10 1.000000 + 107 10 1.000000 + 108 10 1.000000 + 109 10 1.000000 + 110 10 1.000000 + 111 10 1.000000 + 112 10 1.000000 + 113 10 1.000000 + 114 10 1.000000 + 115 10 1.000000 + 116 10 1.000000 + 117 10 1.000000 + 118 10 1.000000 + 119 10 1.000000 + 120 10 1.000000 + 121 10 1.000000 + 122 10 1.000000 + 123 10 1.000000 + 124 10 1.000000 + 125 10 1.000000 + 126 10 1.000000 + 127 10 1.000000 + 128 10 1.000000 + 129 10 1.000000 + 130 10 1.000000 + 131 10 1.000000 + 132 10 1.000000 + 133 10 1.000000 + 134 10 1.000000 + 135 10 1.000000 + 136 10 1.000000 + 137 10 1.000000 + 138 10 1.000000 + 139 10 1.000000 + 140 10 1.000000 + 141 10 1.000000 + 142 10 1.000000 + 143 10 1.000000 + 144 10 1.000000 + 145 10 1.000000 + 146 10 1.000000 + 147 10 0.1236145 + 148 10 0.1478052 + 149 10 0.1685115 + 150 10 0.1893912 + 151 10 0.7353002 + 152 10 0.7602381 + 153 10 0.7852476 + 154 10 0.8102909 + 155 10 0.8353330 + 156 10 0.8603414 + 157 10 0.8852865 + 158 10 0.9101411 + 159 10 0.9348805 + 160 10 0.9594811 + 1 11 1.000000 + 2 11 1.000000 + 3 11 1.000000 + 4 11 1.000000 + 5 11 1.000000 + 6 11 1.000000 + 7 11 1.000000 + 8 11 1.000000 + 9 11 1.000000 + 10 11 1.000000 + 11 11 1.000000 + 12 11 1.000000 + 13 11 1.000000 + 14 11 1.000000 + 15 11 1.000000 + 16 11 1.000000 + 17 11 1.000000 + 18 11 1.000000 + 19 11 1.000000 + 20 11 1.000000 + 21 11 1.000000 + 22 11 1.000000 + 23 11 1.000000 + 24 11 1.000000 + 25 11 1.000000 + 26 11 1.000000 + 27 11 1.000000 + 28 11 1.000000 + 29 11 1.000000 + 30 11 1.000000 + 31 11 1.000000 + 32 11 1.000000 + 33 11 1.000000 + 34 11 1.000000 + 35 11 1.000000 + 36 11 1.000000 + 37 11 1.000000 + 38 11 1.000000 + 39 11 1.000000 + 40 11 1.000000 + 41 11 1.000000 + 42 11 1.000000 + 43 11 1.000000 + 44 11 1.000000 + 45 11 1.000000 + 46 11 1.000000 + 47 11 1.000000 + 48 11 1.000000 + 49 11 1.000000 + 50 11 1.000000 + 51 11 1.000000 + 52 11 1.000000 + 53 11 1.000000 + 54 11 1.000000 + 55 11 1.000000 + 56 11 1.000000 + 57 11 1.000000 + 58 11 1.000000 + 59 11 1.000000 + 60 11 1.000000 + 61 11 1.000000 + 62 11 1.000000 + 63 11 1.000000 + 64 11 1.000000 + 65 11 1.000000 + 66 11 1.000000 + 67 11 1.000000 + 68 11 1.000000 + 69 11 1.000000 + 70 11 1.000000 + 71 11 1.000000 + 72 11 1.000000 + 73 11 1.000000 + 74 11 1.000000 + 75 11 1.000000 + 76 11 1.000000 + 77 11 1.000000 + 78 11 1.000000 + 79 11 1.000000 + 80 11 1.000000 + 81 11 1.000000 + 82 11 1.000000 + 83 11 1.000000 + 84 11 1.000000 + 85 11 1.000000 + 86 11 1.000000 + 87 11 1.000000 + 88 11 1.000000 + 89 11 1.000000 + 90 11 1.000000 + 91 11 1.000000 + 92 11 1.000000 + 93 11 1.000000 + 94 11 1.000000 + 95 11 1.000000 + 96 11 1.000000 + 97 11 1.000000 + 98 11 1.000000 + 99 11 1.000000 + 100 11 1.000000 + 101 11 1.000000 + 102 11 1.000000 + 103 11 1.000000 + 104 11 1.000000 + 105 11 1.000000 + 106 11 1.000000 + 107 11 1.000000 + 108 11 1.000000 + 109 11 1.000000 + 110 11 1.000000 + 111 11 1.000000 + 112 11 1.000000 + 113 11 1.000000 + 114 11 1.000000 + 115 11 1.000000 + 116 11 1.000000 + 117 11 1.000000 + 118 11 1.000000 + 119 11 1.000000 + 120 11 1.000000 + 121 11 1.000000 + 122 11 1.000000 + 123 11 1.000000 + 124 11 1.000000 + 125 11 1.000000 + 126 11 1.000000 + 127 11 1.000000 + 128 11 1.000000 + 129 11 1.000000 + 130 11 1.000000 + 131 11 1.000000 + 132 11 1.000000 + 133 11 1.000000 + 134 11 1.000000 + 135 11 1.000000 + 136 11 1.000000 + 137 11 1.000000 + 138 11 1.000000 + 139 11 1.000000 + 140 11 1.000000 + 141 11 1.000000 + 142 11 1.000000 + 143 11 1.000000 + 144 11 1.000000 + 145 11 1.000000 + 146 11 1.000000 + 147 11 0.1484919 + 148 11 0.1694195 + 149 11 0.1937987 + 150 11 0.2151254 + 151 11 0.7661914 + 152 11 0.7915793 + 153 11 0.8170024 + 154 11 0.8424252 + 155 11 0.8678143 + 156 11 0.8931394 + 157 11 0.9183727 + 158 11 0.9434893 + 159 11 0.9684660 + 160 11 0.9932810 + 1 12 1.000000 + 2 12 1.000000 + 3 12 1.000000 + 4 12 1.000000 + 5 12 1.000000 + 6 12 1.000000 + 7 12 1.000000 + 8 12 1.000000 + 9 12 1.000000 + 10 12 1.000000 + 11 12 1.000000 + 12 12 1.000000 + 13 12 1.000000 + 14 12 1.000000 + 15 12 1.000000 + 16 12 1.000000 + 17 12 1.000000 + 18 12 1.000000 + 19 12 1.000000 + 20 12 1.000000 + 21 12 1.000000 + 22 12 1.000000 + 23 12 1.000000 + 24 12 1.000000 + 25 12 1.000000 + 26 12 1.000000 + 27 12 1.000000 + 28 12 1.000000 + 29 12 1.000000 + 30 12 1.000000 + 31 12 1.000000 + 32 12 1.000000 + 33 12 1.000000 + 34 12 1.000000 + 35 12 1.000000 + 36 12 1.000000 + 37 12 1.000000 + 38 12 1.000000 + 39 12 1.000000 + 40 12 1.000000 + 41 12 1.000000 + 42 12 1.000000 + 43 12 1.000000 + 44 12 1.000000 + 45 12 1.000000 + 46 12 1.000000 + 47 12 1.000000 + 48 12 1.000000 + 49 12 1.000000 + 50 12 1.000000 + 51 12 1.000000 + 52 12 1.000000 + 53 12 1.000000 + 54 12 1.000000 + 55 12 1.000000 + 56 12 1.000000 + 57 12 1.000000 + 58 12 1.000000 + 59 12 1.000000 + 60 12 1.000000 + 61 12 1.000000 + 62 12 1.000000 + 63 12 1.000000 + 64 12 1.000000 + 65 12 1.000000 + 66 12 1.000000 + 67 12 1.000000 + 68 12 1.000000 + 69 12 1.000000 + 70 12 1.000000 + 71 12 1.000000 + 72 12 1.000000 + 73 12 1.000000 + 74 12 1.000000 + 75 12 1.000000 + 76 12 1.000000 + 77 12 1.000000 + 78 12 1.000000 + 79 12 1.000000 + 80 12 1.000000 + 81 12 1.000000 + 82 12 1.000000 + 83 12 1.000000 + 84 12 1.000000 + 85 12 1.000000 + 86 12 1.000000 + 87 12 1.000000 + 88 12 1.000000 + 89 12 1.000000 + 90 12 1.000000 + 91 12 1.000000 + 92 12 1.000000 + 93 12 1.000000 + 94 12 1.000000 + 95 12 1.000000 + 96 12 1.000000 + 97 12 1.000000 + 98 12 1.000000 + 99 12 1.000000 + 100 12 1.000000 + 101 12 1.000000 + 102 12 1.000000 + 103 12 1.000000 + 104 12 1.000000 + 105 12 1.000000 + 106 12 1.000000 + 107 12 1.000000 + 108 12 1.000000 + 109 12 1.000000 + 110 12 1.000000 + 111 12 1.000000 + 112 12 1.000000 + 113 12 1.000000 + 114 12 1.000000 + 115 12 1.000000 + 116 12 1.000000 + 117 12 1.000000 + 118 12 1.000000 + 119 12 1.000000 + 120 12 1.000000 + 121 12 1.000000 + 122 12 1.000000 + 123 12 1.000000 + 124 12 1.000000 + 125 12 1.000000 + 126 12 1.000000 + 127 12 1.000000 + 128 12 1.000000 + 129 12 1.000000 + 130 12 1.000000 + 131 12 1.000000 + 132 12 1.000000 + 133 12 1.000000 + 134 12 1.000000 + 135 12 1.000000 + 136 12 1.000000 + 137 12 1.000000 + 138 12 1.000000 + 139 12 1.000000 + 140 12 1.000000 + 141 12 1.000000 + 142 12 1.000000 + 143 12 1.000000 + 144 12 1.000000 + 145 12 1.000000 + 146 12 1.000000 + 147 12 0.1692008 + 148 12 0.1945309 + 149 12 0.2161610 + 150 12 0.7709856 + 151 12 0.7967830 + 152 12 0.8226188 + 153 12 0.8484560 + 154 12 0.8742601 + 155 12 0.8999999 + 156 12 0.9256471 + 157 12 0.9511757 + 158 12 0.9765620 + 159 12 1.000000 + 160 12 1.000000 + 1 13 1.000000 + 2 13 1.000000 + 3 13 1.000000 + 4 13 1.000000 + 5 13 1.000000 + 6 13 1.000000 + 7 13 1.000000 + 8 13 1.000000 + 9 13 1.000000 + 10 13 1.000000 + 11 13 1.000000 + 12 13 1.000000 + 13 13 1.000000 + 14 13 1.000000 + 15 13 1.000000 + 16 13 1.000000 + 17 13 1.000000 + 18 13 1.000000 + 19 13 1.000000 + 20 13 1.000000 + 21 13 1.000000 + 22 13 1.000000 + 23 13 1.000000 + 24 13 1.000000 + 25 13 1.000000 + 26 13 1.000000 + 27 13 1.000000 + 28 13 1.000000 + 29 13 1.000000 + 30 13 1.000000 + 31 13 1.000000 + 32 13 1.000000 + 33 13 1.000000 + 34 13 1.000000 + 35 13 1.000000 + 36 13 1.000000 + 37 13 1.000000 + 38 13 1.000000 + 39 13 1.000000 + 40 13 1.000000 + 41 13 1.000000 + 42 13 1.000000 + 43 13 1.000000 + 44 13 1.000000 + 45 13 1.000000 + 46 13 1.000000 + 47 13 1.000000 + 48 13 1.000000 + 49 13 1.000000 + 50 13 1.000000 + 51 13 1.000000 + 52 13 1.000000 + 53 13 1.000000 + 54 13 1.000000 + 55 13 1.000000 + 56 13 1.000000 + 57 13 1.000000 + 58 13 1.000000 + 59 13 1.000000 + 60 13 1.000000 + 61 13 1.000000 + 62 13 1.000000 + 63 13 1.000000 + 64 13 1.000000 + 65 13 1.000000 + 66 13 1.000000 + 67 13 1.000000 + 68 13 1.000000 + 69 13 1.000000 + 70 13 1.000000 + 71 13 1.000000 + 72 13 1.000000 + 73 13 1.000000 + 74 13 1.000000 + 75 13 1.000000 + 76 13 1.000000 + 77 13 1.000000 + 78 13 1.000000 + 79 13 1.000000 + 80 13 1.000000 + 81 13 1.000000 + 82 13 1.000000 + 83 13 1.000000 + 84 13 1.000000 + 85 13 1.000000 + 86 13 1.000000 + 87 13 1.000000 + 88 13 1.000000 + 89 13 1.000000 + 90 13 1.000000 + 91 13 1.000000 + 92 13 1.000000 + 93 13 1.000000 + 94 13 1.000000 + 95 13 1.000000 + 96 13 1.000000 + 97 13 1.000000 + 98 13 1.000000 + 99 13 1.000000 + 100 13 1.000000 + 101 13 1.000000 + 102 13 1.000000 + 103 13 1.000000 + 104 13 1.000000 + 105 13 1.000000 + 106 13 1.000000 + 107 13 1.000000 + 108 13 1.000000 + 109 13 1.000000 + 110 13 1.000000 + 111 13 1.000000 + 112 13 1.000000 + 113 13 1.000000 + 114 13 1.000000 + 115 13 1.000000 + 116 13 1.000000 + 117 13 1.000000 + 118 13 1.000000 + 119 13 1.000000 + 120 13 1.000000 + 121 13 1.000000 + 122 13 1.000000 + 123 13 1.000000 + 124 13 1.000000 + 125 13 1.000000 + 126 13 1.000000 + 127 13 1.000000 + 128 13 1.000000 + 129 13 1.000000 + 130 13 1.000000 + 131 13 1.000000 + 132 13 1.000000 + 133 13 1.000000 + 134 13 1.000000 + 135 13 1.000000 + 136 13 1.000000 + 137 13 1.000000 + 138 13 1.000000 + 139 13 1.000000 + 140 13 1.000000 + 141 13 1.000000 + 142 13 1.000000 + 143 13 1.000000 + 144 13 1.000000 + 145 13 1.000000 + 146 13 1.000000 + 147 13 0.7140472 + 148 13 0.7401835 + 149 13 0.7664897 + 150 13 0.7980375 + 151 13 0.8243545 + 152 13 0.8531830 + 153 13 0.8794389 + 154 13 0.9056313 + 155 13 0.9317302 + 156 13 0.9577089 + 157 13 0.9835427 + 158 13 1.000000 + 159 13 1.000000 + 160 13 1.000000 + 1 14 1.000000 + 2 14 1.000000 + 3 14 1.000000 + 4 14 1.000000 + 5 14 1.000000 + 6 14 1.000000 + 7 14 1.000000 + 8 14 1.000000 + 9 14 1.000000 + 10 14 1.000000 + 11 14 1.000000 + 12 14 1.000000 + 13 14 1.000000 + 14 14 1.000000 + 15 14 1.000000 + 16 14 1.000000 + 17 14 1.000000 + 18 14 1.000000 + 19 14 1.000000 + 20 14 1.000000 + 21 14 1.000000 + 22 14 1.000000 + 23 14 1.000000 + 24 14 1.000000 + 25 14 1.000000 + 26 14 1.000000 + 27 14 1.000000 + 28 14 1.000000 + 29 14 1.000000 + 30 14 1.000000 + 31 14 1.000000 + 32 14 1.000000 + 33 14 1.000000 + 34 14 1.000000 + 35 14 1.000000 + 36 14 1.000000 + 37 14 1.000000 + 38 14 1.000000 + 39 14 1.000000 + 40 14 1.000000 + 41 14 1.000000 + 42 14 1.000000 + 43 14 1.000000 + 44 14 1.000000 + 45 14 1.000000 + 46 14 1.000000 + 47 14 1.000000 + 48 14 1.000000 + 49 14 1.000000 + 50 14 1.000000 + 51 14 1.000000 + 52 14 1.000000 + 53 14 1.000000 + 54 14 1.000000 + 55 14 1.000000 + 56 14 1.000000 + 57 14 1.000000 + 58 14 1.000000 + 59 14 1.000000 + 60 14 1.000000 + 61 14 1.000000 + 62 14 1.000000 + 63 14 1.000000 + 64 14 1.000000 + 65 14 1.000000 + 66 14 1.000000 + 67 14 1.000000 + 68 14 1.000000 + 69 14 1.000000 + 70 14 1.000000 + 71 14 1.000000 + 72 14 1.000000 + 73 14 1.000000 + 74 14 1.000000 + 75 14 1.000000 + 76 14 1.000000 + 77 14 1.000000 + 78 14 1.000000 + 79 14 1.000000 + 80 14 1.000000 + 81 14 1.000000 + 82 14 1.000000 + 83 14 1.000000 + 84 14 1.000000 + 85 14 1.000000 + 86 14 1.000000 + 87 14 1.000000 + 88 14 1.000000 + 89 14 1.000000 + 90 14 1.000000 + 91 14 1.000000 + 92 14 1.000000 + 93 14 1.000000 + 94 14 1.000000 + 95 14 1.000000 + 96 14 1.000000 + 97 14 1.000000 + 98 14 1.000000 + 99 14 1.000000 + 100 14 1.000000 + 101 14 1.000000 + 102 14 1.000000 + 103 14 1.000000 + 104 14 1.000000 + 105 14 1.000000 + 106 14 1.000000 + 107 14 1.000000 + 108 14 1.000000 + 109 14 1.000000 + 110 14 1.000000 + 111 14 1.000000 + 112 14 1.000000 + 113 14 1.000000 + 114 14 1.000000 + 115 14 1.000000 + 116 14 1.000000 + 117 14 1.000000 + 118 14 1.000000 + 119 14 1.000000 + 120 14 1.000000 + 121 14 1.000000 + 122 14 1.000000 + 123 14 1.000000 + 124 14 1.000000 + 125 14 1.000000 + 126 14 1.000000 + 127 14 1.000000 + 128 14 1.000000 + 129 14 1.000000 + 130 14 1.000000 + 131 14 1.000000 + 132 14 1.000000 + 133 14 1.000000 + 134 14 1.000000 + 135 14 1.000000 + 136 14 1.000000 + 137 14 1.000000 + 138 14 1.000000 + 139 14 1.000000 + 140 14 1.000000 + 141 14 1.000000 + 142 14 1.000000 + 143 14 1.000000 + 144 14 1.000000 + 145 14 1.000000 + 146 14 1.000000 + 147 14 0.7405369 + 148 14 0.7673366 + 149 14 0.7942728 + 150 14 0.8212990 + 151 14 0.8483724 + 152 14 0.8811646 + 153 14 0.9097776 + 154 14 0.9363691 + 155 14 0.9628401 + 156 14 0.9891646 + 157 14 1.000000 + 158 14 1.000000 + 159 14 1.000000 + 160 14 1.000000 + 1 15 1.000000 + 2 15 1.000000 + 3 15 1.000000 + 4 15 1.000000 + 5 15 1.000000 + 6 15 1.000000 + 7 15 1.000000 + 8 15 1.000000 + 9 15 1.000000 + 10 15 1.000000 + 11 15 1.000000 + 12 15 1.000000 + 13 15 1.000000 + 14 15 1.000000 + 15 15 1.000000 + 16 15 1.000000 + 17 15 1.000000 + 18 15 1.000000 + 19 15 1.000000 + 20 15 1.000000 + 21 15 1.000000 + 22 15 1.000000 + 23 15 1.000000 + 24 15 1.000000 + 25 15 1.000000 + 26 15 1.000000 + 27 15 1.000000 + 28 15 1.000000 + 29 15 1.000000 + 30 15 1.000000 + 31 15 1.000000 + 32 15 1.000000 + 33 15 1.000000 + 34 15 1.000000 + 35 15 1.000000 + 36 15 1.000000 + 37 15 1.000000 + 38 15 1.000000 + 39 15 1.000000 + 40 15 1.000000 + 41 15 1.000000 + 42 15 1.000000 + 43 15 1.000000 + 44 15 1.000000 + 45 15 1.000000 + 46 15 1.000000 + 47 15 1.000000 + 48 15 1.000000 + 49 15 1.000000 + 50 15 1.000000 + 51 15 1.000000 + 52 15 1.000000 + 53 15 1.000000 + 54 15 1.000000 + 55 15 1.000000 + 56 15 1.000000 + 57 15 1.000000 + 58 15 1.000000 + 59 15 1.000000 + 60 15 1.000000 + 61 15 1.000000 + 62 15 1.000000 + 63 15 1.000000 + 64 15 1.000000 + 65 15 1.000000 + 66 15 1.000000 + 67 15 1.000000 + 68 15 1.000000 + 69 15 1.000000 + 70 15 1.000000 + 71 15 1.000000 + 72 15 1.000000 + 73 15 1.000000 + 74 15 1.000000 + 75 15 1.000000 + 76 15 1.000000 + 77 15 1.000000 + 78 15 1.000000 + 79 15 1.000000 + 80 15 1.000000 + 81 15 1.000000 + 82 15 1.000000 + 83 15 1.000000 + 84 15 1.000000 + 85 15 1.000000 + 86 15 1.000000 + 87 15 1.000000 + 88 15 1.000000 + 89 15 1.000000 + 90 15 1.000000 + 91 15 1.000000 + 92 15 1.000000 + 93 15 1.000000 + 94 15 1.000000 + 95 15 1.000000 + 96 15 1.000000 + 97 15 1.000000 + 98 15 1.000000 + 99 15 1.000000 + 100 15 1.000000 + 101 15 1.000000 + 102 15 1.000000 + 103 15 1.000000 + 104 15 1.000000 + 105 15 1.000000 + 106 15 1.000000 + 107 15 1.000000 + 108 15 1.000000 + 109 15 1.000000 + 110 15 1.000000 + 111 15 1.000000 + 112 15 1.000000 + 113 15 1.000000 + 114 15 1.000000 + 115 15 1.000000 + 116 15 1.000000 + 117 15 1.000000 + 118 15 1.000000 + 119 15 1.000000 + 120 15 1.000000 + 121 15 1.000000 + 122 15 1.000000 + 123 15 1.000000 + 124 15 1.000000 + 125 15 1.000000 + 126 15 1.000000 + 127 15 1.000000 + 128 15 1.000000 + 129 15 1.000000 + 130 15 1.000000 + 131 15 1.000000 + 132 15 1.000000 + 133 15 1.000000 + 134 15 1.000000 + 135 15 1.000000 + 136 15 1.000000 + 137 15 1.000000 + 138 15 1.000000 + 139 15 1.000000 + 140 15 1.000000 + 141 15 1.000000 + 142 15 1.000000 + 143 15 1.000000 + 144 15 1.000000 + 145 15 1.000000 + 146 15 1.000000 + 147 15 0.7658646 + 148 15 0.7933344 + 149 15 0.8209105 + 150 15 0.8485454 + 151 15 0.8761973 + 152 15 0.9038268 + 153 15 0.9313996 + 154 15 0.9663005 + 155 15 0.9931617 + 156 15 1.000000 + 157 15 1.000000 + 158 15 1.000000 + 159 15 1.000000 + 160 15 1.000000 + 1 16 1.000000 + 2 16 1.000000 + 3 16 1.000000 + 4 16 1.000000 + 5 16 1.000000 + 6 16 1.000000 + 7 16 1.000000 + 8 16 1.000000 + 9 16 1.000000 + 10 16 1.000000 + 11 16 1.000000 + 12 16 1.000000 + 13 16 1.000000 + 14 16 1.000000 + 15 16 1.000000 + 16 16 1.000000 + 17 16 1.000000 + 18 16 1.000000 + 19 16 1.000000 + 20 16 1.000000 + 21 16 1.000000 + 22 16 1.000000 + 23 16 1.000000 + 24 16 1.000000 + 25 16 1.000000 + 26 16 1.000000 + 27 16 1.000000 + 28 16 1.000000 + 29 16 1.000000 + 30 16 1.000000 + 31 16 1.000000 + 32 16 1.000000 + 33 16 1.000000 + 34 16 1.000000 + 35 16 1.000000 + 36 16 1.000000 + 37 16 1.000000 + 38 16 1.000000 + 39 16 1.000000 + 40 16 1.000000 + 41 16 1.000000 + 42 16 1.000000 + 43 16 1.000000 + 44 16 1.000000 + 45 16 1.000000 + 46 16 1.000000 + 47 16 1.000000 + 48 16 1.000000 + 49 16 1.000000 + 50 16 1.000000 + 51 16 1.000000 + 52 16 1.000000 + 53 16 1.000000 + 54 16 1.000000 + 55 16 1.000000 + 56 16 1.000000 + 57 16 1.000000 + 58 16 1.000000 + 59 16 1.000000 + 60 16 1.000000 + 61 16 1.000000 + 62 16 1.000000 + 63 16 1.000000 + 64 16 1.000000 + 65 16 1.000000 + 66 16 1.000000 + 67 16 1.000000 + 68 16 1.000000 + 69 16 1.000000 + 70 16 1.000000 + 71 16 1.000000 + 72 16 1.000000 + 73 16 1.000000 + 74 16 1.000000 + 75 16 1.000000 + 76 16 1.000000 + 77 16 1.000000 + 78 16 1.000000 + 79 16 1.000000 + 80 16 1.000000 + 81 16 1.000000 + 82 16 1.000000 + 83 16 1.000000 + 84 16 1.000000 + 85 16 1.000000 + 86 16 1.000000 + 87 16 1.000000 + 88 16 1.000000 + 89 16 1.000000 + 90 16 1.000000 + 91 16 1.000000 + 92 16 1.000000 + 93 16 1.000000 + 94 16 1.000000 + 95 16 1.000000 + 96 16 1.000000 + 97 16 1.000000 + 98 16 1.000000 + 99 16 1.000000 + 100 16 1.000000 + 101 16 1.000000 + 102 16 1.000000 + 103 16 1.000000 + 104 16 1.000000 + 105 16 1.000000 + 106 16 1.000000 + 107 16 1.000000 + 108 16 1.000000 + 109 16 1.000000 + 110 16 1.000000 + 111 16 1.000000 + 112 16 1.000000 + 113 16 1.000000 + 114 16 1.000000 + 115 16 1.000000 + 116 16 1.000000 + 117 16 1.000000 + 118 16 1.000000 + 119 16 1.000000 + 120 16 1.000000 + 121 16 1.000000 + 122 16 1.000000 + 123 16 1.000000 + 124 16 1.000000 + 125 16 1.000000 + 126 16 1.000000 + 127 16 1.000000 + 128 16 1.000000 + 129 16 1.000000 + 130 16 1.000000 + 131 16 1.000000 + 132 16 1.000000 + 133 16 1.000000 + 134 16 1.000000 + 135 16 1.000000 + 136 16 1.000000 + 137 16 1.000000 + 138 16 1.000000 + 139 16 1.000000 + 140 16 1.000000 + 141 16 1.000000 + 142 16 1.000000 + 143 16 1.000000 + 144 16 1.000000 + 145 16 1.000000 + 146 16 1.000000 + 147 16 0.7897985 + 148 16 0.8179514 + 149 16 0.8461835 + 150 16 0.8744472 + 151 16 0.9026992 + 152 16 0.9309011 + 153 16 0.9590171 + 154 16 0.9870168 + 155 16 1.000000 + 156 16 1.000000 + 157 16 1.000000 + 158 16 1.000000 + 159 16 1.000000 + 160 16 1.000000 + 1 17 1.000000 + 2 17 1.000000 + 3 17 1.000000 + 4 17 1.000000 + 5 17 1.000000 + 6 17 1.000000 + 7 17 1.000000 + 8 17 1.000000 + 9 17 1.000000 + 10 17 1.000000 + 11 17 1.000000 + 12 17 1.000000 + 13 17 1.000000 + 14 17 1.000000 + 15 17 1.000000 + 16 17 1.000000 + 17 17 1.000000 + 18 17 1.000000 + 19 17 1.000000 + 20 17 1.000000 + 21 17 1.000000 + 22 17 1.000000 + 23 17 1.000000 + 24 17 1.000000 + 25 17 1.000000 + 26 17 1.000000 + 27 17 1.000000 + 28 17 1.000000 + 29 17 1.000000 + 30 17 1.000000 + 31 17 1.000000 + 32 17 1.000000 + 33 17 1.000000 + 34 17 1.000000 + 35 17 1.000000 + 36 17 1.000000 + 37 17 1.000000 + 38 17 1.000000 + 39 17 1.000000 + 40 17 1.000000 + 41 17 1.000000 + 42 17 1.000000 + 43 17 1.000000 + 44 17 1.000000 + 45 17 1.000000 + 46 17 1.000000 + 47 17 1.000000 + 48 17 1.000000 + 49 17 1.000000 + 50 17 1.000000 + 51 17 1.000000 + 52 17 1.000000 + 53 17 1.000000 + 54 17 1.000000 + 55 17 1.000000 + 56 17 1.000000 + 57 17 1.000000 + 58 17 1.000000 + 59 17 1.000000 + 60 17 1.000000 + 61 17 1.000000 + 62 17 1.000000 + 63 17 1.000000 + 64 17 1.000000 + 65 17 1.000000 + 66 17 1.000000 + 67 17 1.000000 + 68 17 1.000000 + 69 17 1.000000 + 70 17 1.000000 + 71 17 1.000000 + 72 17 1.000000 + 73 17 1.000000 + 74 17 1.000000 + 75 17 1.000000 + 76 17 1.000000 + 77 17 1.000000 + 78 17 1.000000 + 79 17 1.000000 + 80 17 1.000000 + 81 17 1.000000 + 82 17 1.000000 + 83 17 1.000000 + 84 17 1.000000 + 85 17 1.000000 + 86 17 1.000000 + 87 17 1.000000 + 88 17 1.000000 + 89 17 1.000000 + 90 17 1.000000 + 91 17 1.000000 + 92 17 1.000000 + 93 17 1.000000 + 94 17 1.000000 + 95 17 1.000000 + 96 17 1.000000 + 97 17 1.000000 + 98 17 1.000000 + 99 17 1.000000 + 100 17 1.000000 + 101 17 1.000000 + 102 17 1.000000 + 103 17 1.000000 + 104 17 1.000000 + 105 17 1.000000 + 106 17 1.000000 + 107 17 1.000000 + 108 17 1.000000 + 109 17 1.000000 + 110 17 1.000000 + 111 17 1.000000 + 112 17 1.000000 + 113 17 1.000000 + 114 17 1.000000 + 115 17 1.000000 + 116 17 1.000000 + 117 17 1.000000 + 118 17 1.000000 + 119 17 1.000000 + 120 17 1.000000 + 121 17 1.000000 + 122 17 1.000000 + 123 17 1.000000 + 124 17 1.000000 + 125 17 1.000000 + 126 17 1.000000 + 127 17 1.000000 + 128 17 1.000000 + 129 17 1.000000 + 130 17 1.000000 + 131 17 1.000000 + 132 17 1.000000 + 133 17 1.000000 + 134 17 1.000000 + 135 17 1.000000 + 136 17 1.000000 + 137 17 1.000000 + 138 17 1.000000 + 139 17 1.000000 + 140 17 1.000000 + 141 17 1.000000 + 142 17 1.000000 + 143 17 1.000000 + 144 17 1.000000 + 145 17 1.000000 + 146 17 1.000000 + 147 17 0.8121023 + 148 17 0.8409586 + 149 17 0.8698698 + 150 17 0.8987878 + 151 17 0.9276696 + 152 17 0.9564744 + 153 17 0.9851669 + 154 17 1.000000 + 155 17 1.000000 + 156 17 1.000000 + 157 17 1.000000 + 158 17 1.000000 + 159 17 1.000000 + 160 17 1.000000 + 1 18 1.000000 + 2 18 1.000000 + 3 18 1.000000 + 4 18 1.000000 + 5 18 1.000000 + 6 18 1.000000 + 7 18 1.000000 + 8 18 1.000000 + 9 18 1.000000 + 10 18 1.000000 + 11 18 1.000000 + 12 18 1.000000 + 13 18 1.000000 + 14 18 1.000000 + 15 18 1.000000 + 16 18 1.000000 + 17 18 1.000000 + 18 18 1.000000 + 19 18 1.000000 + 20 18 1.000000 + 21 18 1.000000 + 22 18 1.000000 + 23 18 1.000000 + 24 18 1.000000 + 25 18 1.000000 + 26 18 1.000000 + 27 18 1.000000 + 28 18 1.000000 + 29 18 1.000000 + 30 18 1.000000 + 31 18 1.000000 + 32 18 1.000000 + 33 18 1.000000 + 34 18 1.000000 + 35 18 1.000000 + 36 18 1.000000 + 37 18 1.000000 + 38 18 1.000000 + 39 18 1.000000 + 40 18 1.000000 + 41 18 1.000000 + 42 18 1.000000 + 43 18 1.000000 + 44 18 1.000000 + 45 18 1.000000 + 46 18 1.000000 + 47 18 1.000000 + 48 18 1.000000 + 49 18 1.000000 + 50 18 1.000000 + 51 18 1.000000 + 52 18 1.000000 + 53 18 1.000000 + 54 18 1.000000 + 55 18 1.000000 + 56 18 1.000000 + 57 18 1.000000 + 58 18 1.000000 + 59 18 1.000000 + 60 18 1.000000 + 61 18 1.000000 + 62 18 1.000000 + 63 18 1.000000 + 64 18 1.000000 + 65 18 1.000000 + 66 18 1.000000 + 67 18 1.000000 + 68 18 1.000000 + 69 18 1.000000 + 70 18 1.000000 + 71 18 1.000000 + 72 18 1.000000 + 73 18 1.000000 + 74 18 1.000000 + 75 18 1.000000 + 76 18 1.000000 + 77 18 1.000000 + 78 18 1.000000 + 79 18 1.000000 + 80 18 1.000000 + 81 18 1.000000 + 82 18 1.000000 + 83 18 1.000000 + 84 18 1.000000 + 85 18 1.000000 + 86 18 1.000000 + 87 18 1.000000 + 88 18 1.000000 + 89 18 1.000000 + 90 18 1.000000 + 91 18 1.000000 + 92 18 1.000000 + 93 18 1.000000 + 94 18 1.000000 + 95 18 1.000000 + 96 18 1.000000 + 97 18 1.000000 + 98 18 1.000000 + 99 18 1.000000 + 100 18 1.000000 + 101 18 1.000000 + 102 18 1.000000 + 103 18 1.000000 + 104 18 1.000000 + 105 18 1.000000 + 106 18 1.000000 + 107 18 1.000000 + 108 18 1.000000 + 109 18 1.000000 + 110 18 1.000000 + 111 18 1.000000 + 112 18 1.000000 + 113 18 1.000000 + 114 18 1.000000 + 115 18 1.000000 + 116 18 1.000000 + 117 18 1.000000 + 118 18 1.000000 + 119 18 1.000000 + 120 18 1.000000 + 121 18 1.000000 + 122 18 1.000000 + 123 18 1.000000 + 124 18 1.000000 + 125 18 1.000000 + 126 18 1.000000 + 127 18 1.000000 + 128 18 1.000000 + 129 18 1.000000 + 130 18 1.000000 + 131 18 1.000000 + 132 18 1.000000 + 133 18 1.000000 + 134 18 1.000000 + 135 18 1.000000 + 136 18 1.000000 + 137 18 1.000000 + 138 18 1.000000 + 139 18 1.000000 + 140 18 1.000000 + 141 18 1.000000 + 142 18 1.000000 + 143 18 1.000000 + 144 18 1.000000 + 145 18 1.000000 + 146 18 1.000000 + 147 18 0.8325422 + 148 18 0.8621252 + 149 18 0.8917441 + 150 18 0.9213491 + 151 18 0.9508950 + 152 18 0.9803402 + 153 18 1.000000 + 154 18 1.000000 + 155 18 1.000000 + 156 18 1.000000 + 157 18 1.000000 + 158 18 1.000000 + 159 18 1.000000 + 160 18 1.000000 + 1 19 1.000000 + 2 19 1.000000 + 3 19 1.000000 + 4 19 1.000000 + 5 19 1.000000 + 6 19 1.000000 + 7 19 1.000000 + 8 19 1.000000 + 9 19 1.000000 + 10 19 1.000000 + 11 19 1.000000 + 12 19 1.000000 + 13 19 1.000000 + 14 19 1.000000 + 15 19 1.000000 + 16 19 1.000000 + 17 19 1.000000 + 18 19 1.000000 + 19 19 1.000000 + 20 19 1.000000 + 21 19 1.000000 + 22 19 1.000000 + 23 19 1.000000 + 24 19 1.000000 + 25 19 1.000000 + 26 19 1.000000 + 27 19 1.000000 + 28 19 1.000000 + 29 19 1.000000 + 30 19 1.000000 + 31 19 1.000000 + 32 19 1.000000 + 33 19 1.000000 + 34 19 1.000000 + 35 19 1.000000 + 36 19 1.000000 + 37 19 1.000000 + 38 19 1.000000 + 39 19 1.000000 + 40 19 1.000000 + 41 19 1.000000 + 42 19 1.000000 + 43 19 1.000000 + 44 19 1.000000 + 45 19 1.000000 + 46 19 1.000000 + 47 19 1.000000 + 48 19 1.000000 + 49 19 1.000000 + 50 19 1.000000 + 51 19 1.000000 + 52 19 1.000000 + 53 19 1.000000 + 54 19 1.000000 + 55 19 1.000000 + 56 19 1.000000 + 57 19 1.000000 + 58 19 1.000000 + 59 19 1.000000 + 60 19 1.000000 + 61 19 1.000000 + 62 19 1.000000 + 63 19 1.000000 + 64 19 1.000000 + 65 19 1.000000 + 66 19 1.000000 + 67 19 1.000000 + 68 19 1.000000 + 69 19 1.000000 + 70 19 1.000000 + 71 19 1.000000 + 72 19 1.000000 + 73 19 1.000000 + 74 19 1.000000 + 75 19 1.000000 + 76 19 1.000000 + 77 19 1.000000 + 78 19 1.000000 + 79 19 1.000000 + 80 19 1.000000 + 81 19 1.000000 + 82 19 1.000000 + 83 19 1.000000 + 84 19 1.000000 + 85 19 1.000000 + 86 19 1.000000 + 87 19 1.000000 + 88 19 1.000000 + 89 19 1.000000 + 90 19 1.000000 + 91 19 1.000000 + 92 19 1.000000 + 93 19 1.000000 + 94 19 1.000000 + 95 19 1.000000 + 96 19 1.000000 + 97 19 1.000000 + 98 19 1.000000 + 99 19 1.000000 + 100 19 1.000000 + 101 19 1.000000 + 102 19 1.000000 + 103 19 1.000000 + 104 19 1.000000 + 105 19 1.000000 + 106 19 1.000000 + 107 19 1.000000 + 108 19 1.000000 + 109 19 1.000000 + 110 19 1.000000 + 111 19 1.000000 + 112 19 1.000000 + 113 19 1.000000 + 114 19 1.000000 + 115 19 1.000000 + 116 19 1.000000 + 117 19 1.000000 + 118 19 1.000000 + 119 19 1.000000 + 120 19 1.000000 + 121 19 1.000000 + 122 19 1.000000 + 123 19 1.000000 + 124 19 1.000000 + 125 19 1.000000 + 126 19 1.000000 + 127 19 1.000000 + 128 19 1.000000 + 129 19 1.000000 + 130 19 1.000000 + 131 19 1.000000 + 132 19 1.000000 + 133 19 1.000000 + 134 19 1.000000 + 135 19 1.000000 + 136 19 1.000000 + 137 19 1.000000 + 138 19 1.000000 + 139 19 1.000000 + 140 19 1.000000 + 141 19 0.6727265 + 142 19 0.7016218 + 143 19 0.7309313 + 144 19 0.7605816 + 145 19 0.7905020 + 146 19 0.8206249 + 147 19 0.8508853 + 148 19 0.8812234 + 149 19 0.9115827 + 150 19 0.9419113 + 151 19 0.9721615 + 152 19 1.000000 + 153 19 1.000000 + 154 19 1.000000 + 155 19 1.000000 + 156 19 1.000000 + 157 19 1.000000 + 158 19 1.000000 + 159 19 1.000000 + 160 19 1.000000 + 1 20 1.000000 + 2 20 1.000000 + 3 20 1.000000 + 4 20 1.000000 + 5 20 1.000000 + 6 20 1.000000 + 7 20 1.000000 + 8 20 1.000000 + 9 20 1.000000 + 10 20 1.000000 + 11 20 1.000000 + 12 20 1.000000 + 13 20 1.000000 + 14 20 1.000000 + 15 20 1.000000 + 16 20 1.000000 + 17 20 1.000000 + 18 20 1.000000 + 19 20 1.000000 + 20 20 1.000000 + 21 20 1.000000 + 22 20 1.000000 + 23 20 1.000000 + 24 20 1.000000 + 25 20 1.000000 + 26 20 1.000000 + 27 20 1.000000 + 28 20 1.000000 + 29 20 1.000000 + 30 20 1.000000 + 31 20 1.000000 + 32 20 1.000000 + 33 20 1.000000 + 34 20 1.000000 + 35 20 1.000000 + 36 20 1.000000 + 37 20 1.000000 + 38 20 1.000000 + 39 20 1.000000 + 40 20 1.000000 + 41 20 1.000000 + 42 20 1.000000 + 43 20 1.000000 + 44 20 1.000000 + 45 20 1.000000 + 46 20 1.000000 + 47 20 1.000000 + 48 20 1.000000 + 49 20 1.000000 + 50 20 1.000000 + 51 20 1.000000 + 52 20 1.000000 + 53 20 1.000000 + 54 20 1.000000 + 55 20 1.000000 + 56 20 1.000000 + 57 20 1.000000 + 58 20 1.000000 + 59 20 1.000000 + 60 20 1.000000 + 61 20 1.000000 + 62 20 1.000000 + 63 20 1.000000 + 64 20 1.000000 + 65 20 1.000000 + 66 20 1.000000 + 67 20 1.000000 + 68 20 1.000000 + 69 20 1.000000 + 70 20 1.000000 + 71 20 1.000000 + 72 20 1.000000 + 73 20 1.000000 + 74 20 1.000000 + 75 20 1.000000 + 76 20 1.000000 + 77 20 1.000000 + 78 20 1.000000 + 79 20 1.000000 + 80 20 1.000000 + 81 20 1.000000 + 82 20 1.000000 + 83 20 1.000000 + 84 20 1.000000 + 85 20 1.000000 + 86 20 1.000000 + 87 20 1.000000 + 88 20 1.000000 + 89 20 1.000000 + 90 20 1.000000 + 91 20 1.000000 + 92 20 1.000000 + 93 20 1.000000 + 94 20 1.000000 + 95 20 1.000000 + 96 20 1.000000 + 97 20 1.000000 + 98 20 1.000000 + 99 20 1.000000 + 100 20 1.000000 + 101 20 1.000000 + 102 20 1.000000 + 103 20 1.000000 + 104 20 1.000000 + 105 20 1.000000 + 106 20 1.000000 + 107 20 1.000000 + 108 20 1.000000 + 109 20 1.000000 + 110 20 1.000000 + 111 20 1.000000 + 112 20 1.000000 + 113 20 1.000000 + 114 20 1.000000 + 115 20 1.000000 + 116 20 1.000000 + 117 20 1.000000 + 118 20 1.000000 + 119 20 1.000000 + 120 20 1.000000 + 121 20 1.000000 + 122 20 1.000000 + 123 20 1.000000 + 124 20 1.000000 + 125 20 1.000000 + 126 20 1.000000 + 127 20 1.000000 + 128 20 1.000000 + 129 20 1.000000 + 130 20 1.000000 + 131 20 1.000000 + 132 20 1.000000 + 133 20 1.000000 + 134 20 1.000000 + 135 20 1.000000 + 136 20 1.000000 + 137 20 1.000000 + 138 20 1.000000 + 139 20 1.000000 + 140 20 1.000000 + 141 20 0.6840030 + 142 20 0.7136800 + 143 20 0.7437782 + 144 20 0.7742224 + 145 20 0.8049387 + 146 20 0.8358564 + 147 20 0.8669084 + 148 20 0.8980314 + 149 20 0.9291662 + 150 20 0.9602580 + 151 20 0.9912567 + 152 20 1.000000 + 153 20 1.000000 + 154 20 1.000000 + 155 20 1.000000 + 156 20 1.000000 + 157 20 1.000000 + 158 20 1.000000 + 159 20 1.000000 + 160 20 1.000000 + 1 21 1.000000 + 2 21 1.000000 + 3 21 1.000000 + 4 21 1.000000 + 5 21 1.000000 + 6 21 1.000000 + 7 21 1.000000 + 8 21 1.000000 + 9 21 1.000000 + 10 21 1.000000 + 11 21 1.000000 + 12 21 1.000000 + 13 21 1.000000 + 14 21 1.000000 + 15 21 1.000000 + 16 21 1.000000 + 17 21 1.000000 + 18 21 1.000000 + 19 21 1.000000 + 20 21 1.000000 + 21 21 1.000000 + 22 21 1.000000 + 23 21 1.000000 + 24 21 1.000000 + 25 21 1.000000 + 26 21 1.000000 + 27 21 1.000000 + 28 21 1.000000 + 29 21 1.000000 + 30 21 1.000000 + 31 21 1.000000 + 32 21 1.000000 + 33 21 1.000000 + 34 21 1.000000 + 35 21 1.000000 + 36 21 1.000000 + 37 21 1.000000 + 38 21 1.000000 + 39 21 1.000000 + 40 21 1.000000 + 41 21 1.000000 + 42 21 1.000000 + 43 21 1.000000 + 44 21 1.000000 + 45 21 1.000000 + 46 21 1.000000 + 47 21 1.000000 + 48 21 1.000000 + 49 21 1.000000 + 50 21 1.000000 + 51 21 1.000000 + 52 21 1.000000 + 53 21 1.000000 + 54 21 1.000000 + 55 21 1.000000 + 56 21 1.000000 + 57 21 1.000000 + 58 21 1.000000 + 59 21 1.000000 + 60 21 1.000000 + 61 21 1.000000 + 62 21 1.000000 + 63 21 1.000000 + 64 21 1.000000 + 65 21 1.000000 + 66 21 1.000000 + 67 21 1.000000 + 68 21 1.000000 + 69 21 1.000000 + 70 21 1.000000 + 71 21 1.000000 + 72 21 1.000000 + 73 21 1.000000 + 74 21 1.000000 + 75 21 1.000000 + 76 21 1.000000 + 77 21 1.000000 + 78 21 1.000000 + 79 21 1.000000 + 80 21 1.000000 + 81 21 1.000000 + 82 21 1.000000 + 83 21 1.000000 + 84 21 1.000000 + 85 21 1.000000 + 86 21 1.000000 + 87 21 1.000000 + 88 21 1.000000 + 89 21 1.000000 + 90 21 1.000000 + 91 21 1.000000 + 92 21 1.000000 + 93 21 1.000000 + 94 21 1.000000 + 95 21 1.000000 + 96 21 1.000000 + 97 21 1.000000 + 98 21 1.000000 + 99 21 1.000000 + 100 21 1.000000 + 101 21 1.000000 + 102 21 1.000000 + 103 21 1.000000 + 104 21 1.000000 + 105 21 1.000000 + 106 21 1.000000 + 107 21 1.000000 + 108 21 1.000000 + 109 21 1.000000 + 110 21 1.000000 + 111 21 1.000000 + 112 21 1.000000 + 113 21 1.000000 + 114 21 1.000000 + 115 21 1.000000 + 116 21 1.000000 + 117 21 1.000000 + 118 21 1.000000 + 119 21 1.000000 + 120 21 1.000000 + 121 21 1.000000 + 122 21 1.000000 + 123 21 1.000000 + 124 21 1.000000 + 125 21 1.000000 + 126 21 1.000000 + 127 21 1.000000 + 128 21 1.000000 + 129 21 1.000000 + 130 21 1.000000 + 131 21 1.000000 + 132 21 1.000000 + 133 21 1.000000 + 134 21 1.000000 + 135 21 1.000000 + 136 21 1.000000 + 137 21 1.000000 + 138 21 1.000000 + 139 21 1.000000 + 140 21 1.000000 + 141 21 0.6927347 + 142 21 0.7231745 + 143 21 0.7540520 + 144 21 0.7852886 + 145 21 0.8168077 + 146 21 0.8485355 + 147 21 0.8804013 + 148 21 0.9123384 + 149 21 0.9442840 + 150 21 0.9761797 + 151 21 1.000000 + 152 21 1.000000 + 153 21 1.000000 + 154 21 1.000000 + 155 21 1.000000 + 156 21 1.000000 + 157 21 1.000000 + 158 21 1.000000 + 159 21 1.000000 + 160 21 1.000000 + 1 22 1.000000 + 2 22 1.000000 + 3 22 1.000000 + 4 22 1.000000 + 5 22 1.000000 + 6 22 1.000000 + 7 22 1.000000 + 8 22 1.000000 + 9 22 1.000000 + 10 22 1.000000 + 11 22 1.000000 + 12 22 1.000000 + 13 22 1.000000 + 14 22 1.000000 + 15 22 1.000000 + 16 22 1.000000 + 17 22 1.000000 + 18 22 1.000000 + 19 22 1.000000 + 20 22 1.000000 + 21 22 1.000000 + 22 22 1.000000 + 23 22 1.000000 + 24 22 1.000000 + 25 22 1.000000 + 26 22 1.000000 + 27 22 1.000000 + 28 22 1.000000 + 29 22 1.000000 + 30 22 1.000000 + 31 22 1.000000 + 32 22 1.000000 + 33 22 1.000000 + 34 22 1.000000 + 35 22 1.000000 + 36 22 1.000000 + 37 22 1.000000 + 38 22 1.000000 + 39 22 1.000000 + 40 22 1.000000 + 41 22 1.000000 + 42 22 1.000000 + 43 22 1.000000 + 44 22 1.000000 + 45 22 1.000000 + 46 22 1.000000 + 47 22 1.000000 + 48 22 1.000000 + 49 22 1.000000 + 50 22 1.000000 + 51 22 1.000000 + 52 22 1.000000 + 53 22 1.000000 + 54 22 1.000000 + 55 22 1.000000 + 56 22 1.000000 + 57 22 1.000000 + 58 22 1.000000 + 59 22 1.000000 + 60 22 1.000000 + 61 22 1.000000 + 62 22 1.000000 + 63 22 1.000000 + 64 22 1.000000 + 65 22 1.000000 + 66 22 1.000000 + 67 22 1.000000 + 68 22 1.000000 + 69 22 1.000000 + 70 22 1.000000 + 71 22 1.000000 + 72 22 1.000000 + 73 22 1.000000 + 74 22 1.000000 + 75 22 1.000000 + 76 22 1.000000 + 77 22 1.000000 + 78 22 1.000000 + 79 22 1.000000 + 80 22 1.000000 + 81 22 1.000000 + 82 22 1.000000 + 83 22 1.000000 + 84 22 1.000000 + 85 22 1.000000 + 86 22 1.000000 + 87 22 1.000000 + 88 22 1.000000 + 89 22 1.000000 + 90 22 1.000000 + 91 22 1.000000 + 92 22 1.000000 + 93 22 1.000000 + 94 22 1.000000 + 95 22 1.000000 + 96 22 1.000000 + 97 22 1.000000 + 98 22 1.000000 + 99 22 1.000000 + 100 22 1.000000 + 101 22 1.000000 + 102 22 1.000000 + 103 22 1.000000 + 104 22 1.000000 + 105 22 1.000000 + 106 22 1.000000 + 107 22 1.000000 + 108 22 1.000000 + 109 22 1.000000 + 110 22 1.000000 + 111 22 1.000000 + 112 22 1.000000 + 113 22 1.000000 + 114 22 1.000000 + 115 22 1.000000 + 116 22 1.000000 + 117 22 1.000000 + 118 22 1.000000 + 119 22 1.000000 + 120 22 1.000000 + 121 22 1.000000 + 122 22 1.000000 + 123 22 1.000000 + 124 22 1.000000 + 125 22 1.000000 + 126 22 1.000000 + 127 22 1.000000 + 128 22 1.000000 + 129 22 1.000000 + 130 22 1.000000 + 131 22 1.000000 + 132 22 1.000000 + 133 22 1.000000 + 134 22 1.000000 + 135 22 1.000000 + 136 22 1.000000 + 137 22 1.000000 + 138 22 1.000000 + 139 22 1.000000 + 140 22 1.000000 + 141 22 0.6987673 + 142 22 0.7299426 + 143 22 0.7615815 + 144 22 0.7936025 + 145 22 0.8259263 + 146 22 0.8584740 + 147 22 0.8911723 + 148 22 0.9239494 + 149 22 0.9567386 + 150 22 0.9894779 + 151 22 1.000000 + 152 22 1.000000 + 153 22 1.000000 + 154 22 1.000000 + 155 22 1.000000 + 156 22 1.000000 + 157 22 1.000000 + 158 22 1.000000 + 159 22 1.000000 + 160 22 1.000000 + 1 23 1.000000 + 2 23 1.000000 + 3 23 1.000000 + 4 23 1.000000 + 5 23 1.000000 + 6 23 1.000000 + 7 23 1.000000 + 8 23 1.000000 + 9 23 1.000000 + 10 23 1.000000 + 11 23 1.000000 + 12 23 1.000000 + 13 23 1.000000 + 14 23 1.000000 + 15 23 1.000000 + 16 23 1.000000 + 17 23 1.000000 + 18 23 1.000000 + 19 23 1.000000 + 20 23 1.000000 + 21 23 1.000000 + 22 23 1.000000 + 23 23 1.000000 + 24 23 1.000000 + 25 23 1.000000 + 26 23 1.000000 + 27 23 1.000000 + 28 23 1.000000 + 29 23 1.000000 + 30 23 1.000000 + 31 23 1.000000 + 32 23 1.000000 + 33 23 1.000000 + 34 23 1.000000 + 35 23 1.000000 + 36 23 1.000000 + 37 23 1.000000 + 38 23 1.000000 + 39 23 1.000000 + 40 23 1.000000 + 41 23 1.000000 + 42 23 1.000000 + 43 23 1.000000 + 44 23 1.000000 + 45 23 1.000000 + 46 23 1.000000 + 47 23 1.000000 + 48 23 1.000000 + 49 23 1.000000 + 50 23 1.000000 + 51 23 1.000000 + 52 23 1.000000 + 53 23 1.000000 + 54 23 1.000000 + 55 23 1.000000 + 56 23 1.000000 + 57 23 1.000000 + 58 23 1.000000 + 59 23 1.000000 + 60 23 1.000000 + 61 23 1.000000 + 62 23 1.000000 + 63 23 1.000000 + 64 23 1.000000 + 65 23 1.000000 + 66 23 1.000000 + 67 23 1.000000 + 68 23 1.000000 + 69 23 1.000000 + 70 23 1.000000 + 71 23 1.000000 + 72 23 1.000000 + 73 23 1.000000 + 74 23 1.000000 + 75 23 1.000000 + 76 23 1.000000 + 77 23 1.000000 + 78 23 1.000000 + 79 23 1.000000 + 80 23 1.000000 + 81 23 1.000000 + 82 23 1.000000 + 83 23 1.000000 + 84 23 1.000000 + 85 23 1.000000 + 86 23 1.000000 + 87 23 1.000000 + 88 23 1.000000 + 89 23 1.000000 + 90 23 1.000000 + 91 23 1.000000 + 92 23 1.000000 + 93 23 1.000000 + 94 23 1.000000 + 95 23 1.000000 + 96 23 1.000000 + 97 23 1.000000 + 98 23 1.000000 + 99 23 1.000000 + 100 23 1.000000 + 101 23 1.000000 + 102 23 1.000000 + 103 23 1.000000 + 104 23 1.000000 + 105 23 1.000000 + 106 23 1.000000 + 107 23 1.000000 + 108 23 1.000000 + 109 23 1.000000 + 110 23 1.000000 + 111 23 1.000000 + 112 23 1.000000 + 113 23 1.000000 + 114 23 1.000000 + 115 23 1.000000 + 116 23 1.000000 + 117 23 1.000000 + 118 23 1.000000 + 119 23 1.000000 + 120 23 1.000000 + 121 23 1.000000 + 122 23 1.000000 + 123 23 1.000000 + 124 23 1.000000 + 125 23 1.000000 + 126 23 1.000000 + 127 23 1.000000 + 128 23 1.000000 + 129 23 1.000000 + 130 23 1.000000 + 131 23 1.000000 + 132 23 1.000000 + 133 23 1.000000 + 134 23 1.000000 + 135 23 1.000000 + 136 23 1.000000 + 137 23 1.000000 + 138 23 1.000000 + 139 23 1.000000 + 140 23 1.000000 + 141 23 0.7398331 + 142 23 0.7338598 + 143 23 0.7662327 + 144 23 0.7990207 + 145 23 0.8321409 + 146 23 0.8655111 + 147 23 0.8990527 + 148 23 0.9326898 + 149 23 0.9663511 + 150 23 0.9999697 + 151 23 1.000000 + 152 23 1.000000 + 153 23 1.000000 + 154 23 1.000000 + 155 23 1.000000 + 156 23 1.000000 + 157 23 1.000000 + 158 23 1.000000 + 159 23 1.000000 + 160 23 1.000000 + 1 24 1.000000 + 2 24 1.000000 + 3 24 1.000000 + 4 24 1.000000 + 5 24 1.000000 + 6 24 1.000000 + 7 24 1.000000 + 8 24 1.000000 + 9 24 1.000000 + 10 24 1.000000 + 11 24 1.000000 + 12 24 1.000000 + 13 24 1.000000 + 14 24 1.000000 + 15 24 1.000000 + 16 24 1.000000 + 17 24 1.000000 + 18 24 1.000000 + 19 24 1.000000 + 20 24 1.000000 + 21 24 1.000000 + 22 24 1.000000 + 23 24 1.000000 + 24 24 1.000000 + 25 24 1.000000 + 26 24 1.000000 + 27 24 1.000000 + 28 24 1.000000 + 29 24 1.000000 + 30 24 1.000000 + 31 24 1.000000 + 32 24 1.000000 + 33 24 1.000000 + 34 24 1.000000 + 35 24 1.000000 + 36 24 1.000000 + 37 24 1.000000 + 38 24 1.000000 + 39 24 1.000000 + 40 24 1.000000 + 41 24 1.000000 + 42 24 1.000000 + 43 24 1.000000 + 44 24 1.000000 + 45 24 1.000000 + 46 24 1.000000 + 47 24 1.000000 + 48 24 1.000000 + 49 24 1.000000 + 50 24 1.000000 + 51 24 1.000000 + 52 24 1.000000 + 53 24 1.000000 + 54 24 1.000000 + 55 24 1.000000 + 56 24 1.000000 + 57 24 1.000000 + 58 24 1.000000 + 59 24 1.000000 + 60 24 1.000000 + 61 24 1.000000 + 62 24 1.000000 + 63 24 1.000000 + 64 24 1.000000 + 65 24 1.000000 + 66 24 1.000000 + 67 24 1.000000 + 68 24 1.000000 + 69 24 1.000000 + 70 24 1.000000 + 71 24 1.000000 + 72 24 1.000000 + 73 24 1.000000 + 74 24 1.000000 + 75 24 1.000000 + 76 24 1.000000 + 77 24 1.000000 + 78 24 1.000000 + 79 24 1.000000 + 80 24 1.000000 + 81 24 1.000000 + 82 24 1.000000 + 83 24 1.000000 + 84 24 1.000000 + 85 24 1.000000 + 86 24 1.000000 + 87 24 1.000000 + 88 24 1.000000 + 89 24 1.000000 + 90 24 1.000000 + 91 24 1.000000 + 92 24 1.000000 + 93 24 1.000000 + 94 24 1.000000 + 95 24 1.000000 + 96 24 1.000000 + 97 24 1.000000 + 98 24 1.000000 + 99 24 1.000000 + 100 24 1.000000 + 101 24 1.000000 + 102 24 1.000000 + 103 24 1.000000 + 104 24 1.000000 + 105 24 1.000000 + 106 24 1.000000 + 107 24 1.000000 + 108 24 1.000000 + 109 24 1.000000 + 110 24 1.000000 + 111 24 1.000000 + 112 24 1.000000 + 113 24 1.000000 + 114 24 1.000000 + 115 24 1.000000 + 116 24 1.000000 + 117 24 1.000000 + 118 24 1.000000 + 119 24 1.000000 + 120 24 1.000000 + 121 24 1.000000 + 122 24 1.000000 + 123 24 1.000000 + 124 24 1.000000 + 125 24 1.000000 + 126 24 1.000000 + 127 24 1.000000 + 128 24 1.000000 + 129 24 1.000000 + 130 24 1.000000 + 131 24 1.000000 + 132 24 1.000000 + 133 24 1.000000 + 134 24 1.000000 + 135 24 1.000000 + 136 24 1.000000 + 137 24 1.000000 + 138 24 1.000000 + 139 24 1.000000 + 140 24 1.000000 + 141 24 0.7436889 + 142 24 0.7348472 + 143 24 0.7679127 + 144 24 0.8014379 + 145 24 0.8353350 + 146 24 0.8695182 + 147 24 0.9039042 + 148 24 0.9384124 + 149 24 0.9729658 + 150 24 1.000000 + 151 24 1.000000 + 152 24 1.000000 + 153 24 1.000000 + 154 24 1.000000 + 155 24 1.000000 + 156 24 1.000000 + 157 24 1.000000 + 158 24 1.000000 + 159 24 1.000000 + 160 24 1.000000 + 1 25 1.000000 + 2 25 1.000000 + 3 25 1.000000 + 4 25 1.000000 + 5 25 1.000000 + 6 25 1.000000 + 7 25 1.000000 + 8 25 1.000000 + 9 25 1.000000 + 10 25 1.000000 + 11 25 1.000000 + 12 25 1.000000 + 13 25 1.000000 + 14 25 1.000000 + 15 25 1.000000 + 16 25 1.000000 + 17 25 1.000000 + 18 25 1.000000 + 19 25 1.000000 + 20 25 1.000000 + 21 25 1.000000 + 22 25 1.000000 + 23 25 1.000000 + 24 25 1.000000 + 25 25 1.000000 + 26 25 1.000000 + 27 25 1.000000 + 28 25 1.000000 + 29 25 1.000000 + 30 25 1.000000 + 31 25 1.000000 + 32 25 1.000000 + 33 25 1.000000 + 34 25 1.000000 + 35 25 1.000000 + 36 25 1.000000 + 37 25 1.000000 + 38 25 1.000000 + 39 25 1.000000 + 40 25 1.000000 + 41 25 1.000000 + 42 25 1.000000 + 43 25 1.000000 + 44 25 1.000000 + 45 25 1.000000 + 46 25 1.000000 + 47 25 1.000000 + 48 25 1.000000 + 49 25 1.000000 + 50 25 1.000000 + 51 25 1.000000 + 52 25 1.000000 + 53 25 1.000000 + 54 25 1.000000 + 55 25 1.000000 + 56 25 1.000000 + 57 25 1.000000 + 58 25 1.000000 + 59 25 1.000000 + 60 25 1.000000 + 61 25 1.000000 + 62 25 1.000000 + 63 25 1.000000 + 64 25 1.000000 + 65 25 1.000000 + 66 25 1.000000 + 67 25 1.000000 + 68 25 1.000000 + 69 25 1.000000 + 70 25 1.000000 + 71 25 1.000000 + 72 25 1.000000 + 73 25 1.000000 + 74 25 1.000000 + 75 25 1.000000 + 76 25 1.000000 + 77 25 1.000000 + 78 25 1.000000 + 79 25 1.000000 + 80 25 1.000000 + 81 25 1.000000 + 82 25 1.000000 + 83 25 1.000000 + 84 25 1.000000 + 85 25 1.000000 + 86 25 1.000000 + 87 25 1.000000 + 88 25 1.000000 + 89 25 1.000000 + 90 25 1.000000 + 91 25 1.000000 + 92 25 1.000000 + 93 25 1.000000 + 94 25 1.000000 + 95 25 1.000000 + 96 25 1.000000 + 97 25 1.000000 + 98 25 1.000000 + 99 25 1.000000 + 100 25 1.000000 + 101 25 1.000000 + 102 25 1.000000 + 103 25 1.000000 + 104 25 1.000000 + 105 25 1.000000 + 106 25 1.000000 + 107 25 1.000000 + 108 25 1.000000 + 109 25 1.000000 + 110 25 1.000000 + 111 25 1.000000 + 112 25 1.000000 + 113 25 1.000000 + 114 25 1.000000 + 115 25 1.000000 + 116 25 1.000000 + 117 25 1.000000 + 118 25 1.000000 + 119 25 1.000000 + 120 25 1.000000 + 121 25 1.000000 + 122 25 1.000000 + 123 25 1.000000 + 124 25 1.000000 + 125 25 1.000000 + 126 25 1.000000 + 127 25 1.000000 + 128 25 1.000000 + 129 25 1.000000 + 130 25 1.000000 + 131 25 1.000000 + 132 25 1.000000 + 133 25 1.000000 + 134 25 1.000000 + 135 25 1.000000 + 136 25 1.000000 + 137 25 1.000000 + 138 25 1.000000 + 139 25 1.000000 + 140 25 1.000000 + 141 25 0.7448387 + 142 25 0.7705190 + 143 25 0.7665757 + 144 25 0.8007925 + 145 25 0.8354321 + 146 25 0.8704052 + 147 25 0.9056236 + 148 25 0.9410006 + 149 25 0.9764548 + 150 25 1.000000 + 151 25 1.000000 + 152 25 1.000000 + 153 25 1.000000 + 154 25 1.000000 + 155 25 1.000000 + 156 25 1.000000 + 157 25 1.000000 + 158 25 1.000000 + 159 25 1.000000 + 160 25 1.000000 + 1 26 1.000000 + 2 26 1.000000 + 3 26 1.000000 + 4 26 1.000000 + 5 26 1.000000 + 6 26 1.000000 + 7 26 1.000000 + 8 26 1.000000 + 9 26 1.000000 + 10 26 1.000000 + 11 26 1.000000 + 12 26 1.000000 + 13 26 1.000000 + 14 26 1.000000 + 15 26 1.000000 + 16 26 1.000000 + 17 26 1.000000 + 18 26 1.000000 + 19 26 1.000000 + 20 26 1.000000 + 21 26 1.000000 + 22 26 1.000000 + 23 26 1.000000 + 24 26 1.000000 + 25 26 1.000000 + 26 26 1.000000 + 27 26 1.000000 + 28 26 1.000000 + 29 26 1.000000 + 30 26 1.000000 + 31 26 1.000000 + 32 26 1.000000 + 33 26 1.000000 + 34 26 1.000000 + 35 26 1.000000 + 36 26 1.000000 + 37 26 1.000000 + 38 26 1.000000 + 39 26 1.000000 + 40 26 1.000000 + 41 26 1.000000 + 42 26 1.000000 + 43 26 1.000000 + 44 26 1.000000 + 45 26 1.000000 + 46 26 1.000000 + 47 26 1.000000 + 48 26 1.000000 + 49 26 1.000000 + 50 26 1.000000 + 51 26 1.000000 + 52 26 1.000000 + 53 26 1.000000 + 54 26 1.000000 + 55 26 1.000000 + 56 26 1.000000 + 57 26 1.000000 + 58 26 1.000000 + 59 26 1.000000 + 60 26 1.000000 + 61 26 1.000000 + 62 26 1.000000 + 63 26 1.000000 + 64 26 1.000000 + 65 26 1.000000 + 66 26 1.000000 + 67 26 1.000000 + 68 26 1.000000 + 69 26 1.000000 + 70 26 1.000000 + 71 26 1.000000 + 72 26 1.000000 + 73 26 1.000000 + 74 26 1.000000 + 75 26 1.000000 + 76 26 1.000000 + 77 26 1.000000 + 78 26 1.000000 + 79 26 1.000000 + 80 26 1.000000 + 81 26 1.000000 + 82 26 1.000000 + 83 26 1.000000 + 84 26 1.000000 + 85 26 1.000000 + 86 26 1.000000 + 87 26 1.000000 + 88 26 1.000000 + 89 26 1.000000 + 90 26 1.000000 + 91 26 1.000000 + 92 26 1.000000 + 93 26 1.000000 + 94 26 1.000000 + 95 26 1.000000 + 96 26 1.000000 + 97 26 1.000000 + 98 26 1.000000 + 99 26 1.000000 + 100 26 1.000000 + 101 26 1.000000 + 102 26 1.000000 + 103 26 1.000000 + 104 26 1.000000 + 105 26 1.000000 + 106 26 1.000000 + 107 26 1.000000 + 108 26 1.000000 + 109 26 1.000000 + 110 26 1.000000 + 111 26 1.000000 + 112 26 1.000000 + 113 26 1.000000 + 114 26 1.000000 + 115 26 1.000000 + 116 26 1.000000 + 117 26 1.000000 + 118 26 1.000000 + 119 26 1.000000 + 120 26 1.000000 + 121 26 1.000000 + 122 26 1.000000 + 123 26 1.000000 + 124 26 1.000000 + 125 26 1.000000 + 126 26 1.000000 + 127 26 1.000000 + 128 26 1.000000 + 129 26 1.000000 + 130 26 1.000000 + 131 26 1.000000 + 132 26 1.000000 + 133 26 1.000000 + 134 26 1.000000 + 135 26 1.000000 + 136 26 1.000000 + 137 26 1.000000 + 138 26 1.000000 + 139 26 1.000000 + 140 26 0.7198799 + 141 26 0.7433107 + 142 26 0.7689097 + 143 26 0.7622245 + 144 26 0.7970699 + 145 26 0.8324012 + 146 26 0.8681245 + 147 26 0.9041462 + 148 26 0.9403762 + 149 26 0.9767257 + 150 26 1.000000 + 151 26 1.000000 + 152 26 1.000000 + 153 26 1.000000 + 154 26 1.000000 + 155 26 1.000000 + 156 26 1.000000 + 157 26 1.000000 + 158 26 1.000000 + 159 26 1.000000 + 160 26 1.000000 + 1 27 1.000000 + 2 27 1.000000 + 3 27 1.000000 + 4 27 1.000000 + 5 27 1.000000 + 6 27 1.000000 + 7 27 1.000000 + 8 27 1.000000 + 9 27 1.000000 + 10 27 1.000000 + 11 27 1.000000 + 12 27 1.000000 + 13 27 1.000000 + 14 27 1.000000 + 15 27 1.000000 + 16 27 1.000000 + 17 27 1.000000 + 18 27 1.000000 + 19 27 1.000000 + 20 27 1.000000 + 21 27 1.000000 + 22 27 1.000000 + 23 27 1.000000 + 24 27 1.000000 + 25 27 1.000000 + 26 27 1.000000 + 27 27 1.000000 + 28 27 1.000000 + 29 27 1.000000 + 30 27 1.000000 + 31 27 1.000000 + 32 27 1.000000 + 33 27 1.000000 + 34 27 1.000000 + 35 27 1.000000 + 36 27 1.000000 + 37 27 1.000000 + 38 27 1.000000 + 39 27 1.000000 + 40 27 1.000000 + 41 27 1.000000 + 42 27 1.000000 + 43 27 1.000000 + 44 27 1.000000 + 45 27 1.000000 + 46 27 1.000000 + 47 27 1.000000 + 48 27 1.000000 + 49 27 1.000000 + 50 27 1.000000 + 51 27 1.000000 + 52 27 1.000000 + 53 27 1.000000 + 54 27 1.000000 + 55 27 1.000000 + 56 27 1.000000 + 57 27 1.000000 + 58 27 1.000000 + 59 27 1.000000 + 60 27 1.000000 + 61 27 1.000000 + 62 27 1.000000 + 63 27 1.000000 + 64 27 1.000000 + 65 27 1.000000 + 66 27 1.000000 + 67 27 1.000000 + 68 27 1.000000 + 69 27 1.000000 + 70 27 1.000000 + 71 27 1.000000 + 72 27 1.000000 + 73 27 1.000000 + 74 27 1.000000 + 75 27 1.000000 + 76 27 1.000000 + 77 27 1.000000 + 78 27 1.000000 + 79 27 1.000000 + 80 27 1.000000 + 81 27 1.000000 + 82 27 1.000000 + 83 27 1.000000 + 84 27 1.000000 + 85 27 1.000000 + 86 27 1.000000 + 87 27 1.000000 + 88 27 1.000000 + 89 27 1.000000 + 90 27 1.000000 + 91 27 1.000000 + 92 27 1.000000 + 93 27 1.000000 + 94 27 1.000000 + 95 27 1.000000 + 96 27 1.000000 + 97 27 1.000000 + 98 27 1.000000 + 99 27 1.000000 + 100 27 1.000000 + 101 27 1.000000 + 102 27 1.000000 + 103 27 1.000000 + 104 27 1.000000 + 105 27 1.000000 + 106 27 1.000000 + 107 27 1.000000 + 108 27 1.000000 + 109 27 1.000000 + 110 27 1.000000 + 111 27 1.000000 + 112 27 1.000000 + 113 27 1.000000 + 114 27 1.000000 + 115 27 1.000000 + 116 27 1.000000 + 117 27 1.000000 + 118 27 1.000000 + 119 27 1.000000 + 120 27 1.000000 + 121 27 1.000000 + 122 27 1.000000 + 123 27 1.000000 + 124 27 1.000000 + 125 27 1.000000 + 126 27 1.000000 + 127 27 1.000000 + 128 27 1.000000 + 129 27 1.000000 + 130 27 1.000000 + 131 27 1.000000 + 132 27 1.000000 + 133 27 1.000000 + 134 27 1.000000 + 135 27 1.000000 + 136 27 1.000000 + 137 27 1.000000 + 138 27 1.000000 + 139 27 1.000000 + 140 27 0.7161000 + 141 27 0.7391818 + 142 27 0.7645891 + 143 27 0.7920381 + 144 27 0.7903068 + 145 27 0.8262591 + 146 27 0.8626739 + 147 27 0.8994528 + 148 27 0.9365004 + 149 27 0.9737223 + 150 27 1.000000 + 151 27 1.000000 + 152 27 1.000000 + 153 27 1.000000 + 154 27 1.000000 + 155 27 1.000000 + 156 27 1.000000 + 157 27 1.000000 + 158 27 1.000000 + 159 27 1.000000 + 160 27 1.000000 + 1 28 1.000000 + 2 28 1.000000 + 3 28 1.000000 + 4 28 1.000000 + 5 28 1.000000 + 6 28 1.000000 + 7 28 1.000000 + 8 28 1.000000 + 9 28 1.000000 + 10 28 1.000000 + 11 28 1.000000 + 12 28 1.000000 + 13 28 1.000000 + 14 28 1.000000 + 15 28 1.000000 + 16 28 1.000000 + 17 28 1.000000 + 18 28 1.000000 + 19 28 1.000000 + 20 28 1.000000 + 21 28 1.000000 + 22 28 1.000000 + 23 28 1.000000 + 24 28 1.000000 + 25 28 1.000000 + 26 28 1.000000 + 27 28 1.000000 + 28 28 1.000000 + 29 28 1.000000 + 30 28 1.000000 + 31 28 1.000000 + 32 28 1.000000 + 33 28 1.000000 + 34 28 1.000000 + 35 28 1.000000 + 36 28 1.000000 + 37 28 1.000000 + 38 28 1.000000 + 39 28 1.000000 + 40 28 1.000000 + 41 28 1.000000 + 42 28 1.000000 + 43 28 1.000000 + 44 28 1.000000 + 45 28 1.000000 + 46 28 1.000000 + 47 28 1.000000 + 48 28 1.000000 + 49 28 1.000000 + 50 28 1.000000 + 51 28 1.000000 + 52 28 1.000000 + 53 28 1.000000 + 54 28 1.000000 + 55 28 1.000000 + 56 28 1.000000 + 57 28 1.000000 + 58 28 1.000000 + 59 28 1.000000 + 60 28 1.000000 + 61 28 1.000000 + 62 28 1.000000 + 63 28 1.000000 + 64 28 1.000000 + 65 28 1.000000 + 66 28 1.000000 + 67 28 1.000000 + 68 28 1.000000 + 69 28 1.000000 + 70 28 1.000000 + 71 28 1.000000 + 72 28 1.000000 + 73 28 1.000000 + 74 28 1.000000 + 75 28 1.000000 + 76 28 1.000000 + 77 28 1.000000 + 78 28 1.000000 + 79 28 1.000000 + 80 28 1.000000 + 81 28 1.000000 + 82 28 1.000000 + 83 28 1.000000 + 84 28 1.000000 + 85 28 1.000000 + 86 28 1.000000 + 87 28 1.000000 + 88 28 1.000000 + 89 28 1.000000 + 90 28 1.000000 + 91 28 1.000000 + 92 28 1.000000 + 93 28 1.000000 + 94 28 1.000000 + 95 28 1.000000 + 96 28 1.000000 + 97 28 1.000000 + 98 28 1.000000 + 99 28 1.000000 + 100 28 1.000000 + 101 28 1.000000 + 102 28 1.000000 + 103 28 1.000000 + 104 28 1.000000 + 105 28 1.000000 + 106 28 1.000000 + 107 28 1.000000 + 108 28 1.000000 + 109 28 1.000000 + 110 28 1.000000 + 111 28 1.000000 + 112 28 1.000000 + 113 28 1.000000 + 114 28 1.000000 + 115 28 1.000000 + 116 28 1.000000 + 117 28 1.000000 + 118 28 1.000000 + 119 28 1.000000 + 120 28 1.000000 + 121 28 1.000000 + 122 28 1.000000 + 123 28 1.000000 + 124 28 1.000000 + 125 28 1.000000 + 126 28 1.000000 + 127 28 1.000000 + 128 28 1.000000 + 129 28 1.000000 + 130 28 1.000000 + 131 28 1.000000 + 132 28 1.000000 + 133 28 1.000000 + 134 28 1.000000 + 135 28 1.000000 + 136 28 1.000000 + 137 28 1.000000 + 138 28 1.000000 + 139 28 1.000000 + 140 28 0.7099695 + 141 28 0.7325763 + 142 28 0.7576700 + 143 28 0.7849611 + 144 28 0.8141755 + 145 28 0.8170735 + 146 28 0.8541003 + 147 28 0.8915695 + 148 28 0.9293801 + 149 28 0.9674324 + 150 28 1.000000 + 151 28 1.000000 + 152 28 1.000000 + 153 28 1.000000 + 154 28 1.000000 + 155 28 1.000000 + 156 28 1.000000 + 157 28 1.000000 + 158 28 1.000000 + 159 28 1.000000 + 160 28 1.000000 + 1 29 1.000000 + 2 29 1.000000 + 3 29 1.000000 + 4 29 1.000000 + 5 29 1.000000 + 6 29 1.000000 + 7 29 1.000000 + 8 29 1.000000 + 9 29 1.000000 + 10 29 1.000000 + 11 29 1.000000 + 12 29 1.000000 + 13 29 1.000000 + 14 29 1.000000 + 15 29 1.000000 + 16 29 1.000000 + 17 29 1.000000 + 18 29 1.000000 + 19 29 1.000000 + 20 29 1.000000 + 21 29 1.000000 + 22 29 1.000000 + 23 29 1.000000 + 24 29 1.000000 + 25 29 1.000000 + 26 29 1.000000 + 27 29 1.000000 + 28 29 1.000000 + 29 29 1.000000 + 30 29 1.000000 + 31 29 1.000000 + 32 29 1.000000 + 33 29 1.000000 + 34 29 1.000000 + 35 29 1.000000 + 36 29 1.000000 + 37 29 1.000000 + 38 29 1.000000 + 39 29 1.000000 + 40 29 1.000000 + 41 29 1.000000 + 42 29 1.000000 + 43 29 1.000000 + 44 29 1.000000 + 45 29 1.000000 + 46 29 1.000000 + 47 29 1.000000 + 48 29 1.000000 + 49 29 1.000000 + 50 29 1.000000 + 51 29 1.000000 + 52 29 1.000000 + 53 29 1.000000 + 54 29 1.000000 + 55 29 1.000000 + 56 29 1.000000 + 57 29 1.000000 + 58 29 1.000000 + 59 29 1.000000 + 60 29 1.000000 + 61 29 1.000000 + 62 29 1.000000 + 63 29 1.000000 + 64 29 1.000000 + 65 29 1.000000 + 66 29 1.000000 + 67 29 1.000000 + 68 29 1.000000 + 69 29 1.000000 + 70 29 1.000000 + 71 29 1.000000 + 72 29 1.000000 + 73 29 1.000000 + 74 29 1.000000 + 75 29 1.000000 + 76 29 1.000000 + 77 29 1.000000 + 78 29 1.000000 + 79 29 1.000000 + 80 29 1.000000 + 81 29 1.000000 + 82 29 1.000000 + 83 29 1.000000 + 84 29 1.000000 + 85 29 1.000000 + 86 29 1.000000 + 87 29 1.000000 + 88 29 1.000000 + 89 29 1.000000 + 90 29 1.000000 + 91 29 1.000000 + 92 29 1.000000 + 93 29 1.000000 + 94 29 1.000000 + 95 29 1.000000 + 96 29 1.000000 + 97 29 1.000000 + 98 29 1.000000 + 99 29 1.000000 + 100 29 1.000000 + 101 29 1.000000 + 102 29 1.000000 + 103 29 1.000000 + 104 29 1.000000 + 105 29 1.000000 + 106 29 1.000000 + 107 29 1.000000 + 108 29 1.000000 + 109 29 1.000000 + 110 29 1.000000 + 111 29 1.000000 + 112 29 1.000000 + 113 29 1.000000 + 114 29 1.000000 + 115 29 1.000000 + 116 29 1.000000 + 117 29 1.000000 + 118 29 1.000000 + 119 29 1.000000 + 120 29 1.000000 + 121 29 1.000000 + 122 29 1.000000 + 123 29 1.000000 + 124 29 1.000000 + 125 29 1.000000 + 126 29 1.000000 + 127 29 1.000000 + 128 29 1.000000 + 129 29 1.000000 + 130 29 1.000000 + 131 29 1.000000 + 132 29 1.000000 + 133 29 1.000000 + 134 29 1.000000 + 135 29 1.000000 + 136 29 1.000000 + 137 29 1.000000 + 138 29 1.000000 + 139 29 1.000000 + 140 29 0.7016643 + 141 29 0.7236626 + 142 29 0.7483093 + 143 29 0.7753121 + 144 29 0.8043939 + 145 29 0.8049595 + 146 29 0.8424999 + 147 29 0.8805715 + 148 29 0.9190688 + 149 29 0.9578878 + 150 29 0.9969248 + 151 29 1.000000 + 152 29 1.000000 + 153 29 1.000000 + 154 29 1.000000 + 155 29 1.000000 + 156 29 1.000000 + 157 29 1.000000 + 158 29 1.000000 + 159 29 1.000000 + 160 29 1.000000 + 1 30 1.000000 + 2 30 1.000000 + 3 30 1.000000 + 4 30 1.000000 + 5 30 1.000000 + 6 30 1.000000 + 7 30 1.000000 + 8 30 1.000000 + 9 30 1.000000 + 10 30 1.000000 + 11 30 1.000000 + 12 30 1.000000 + 13 30 1.000000 + 14 30 1.000000 + 15 30 1.000000 + 16 30 1.000000 + 17 30 1.000000 + 18 30 1.000000 + 19 30 1.000000 + 20 30 1.000000 + 21 30 1.000000 + 22 30 1.000000 + 23 30 1.000000 + 24 30 1.000000 + 25 30 1.000000 + 26 30 1.000000 + 27 30 1.000000 + 28 30 1.000000 + 29 30 1.000000 + 30 30 1.000000 + 31 30 1.000000 + 32 30 1.000000 + 33 30 1.000000 + 34 30 1.000000 + 35 30 1.000000 + 36 30 1.000000 + 37 30 1.000000 + 38 30 1.000000 + 39 30 1.000000 + 40 30 1.000000 + 41 30 1.000000 + 42 30 1.000000 + 43 30 1.000000 + 44 30 1.000000 + 45 30 1.000000 + 46 30 1.000000 + 47 30 1.000000 + 48 30 1.000000 + 49 30 1.000000 + 50 30 1.000000 + 51 30 1.000000 + 52 30 1.000000 + 53 30 1.000000 + 54 30 1.000000 + 55 30 1.000000 + 56 30 1.000000 + 57 30 1.000000 + 58 30 1.000000 + 59 30 1.000000 + 60 30 1.000000 + 61 30 1.000000 + 62 30 1.000000 + 63 30 1.000000 + 64 30 1.000000 + 65 30 1.000000 + 66 30 1.000000 + 67 30 1.000000 + 68 30 1.000000 + 69 30 1.000000 + 70 30 1.000000 + 71 30 1.000000 + 72 30 1.000000 + 73 30 1.000000 + 74 30 1.000000 + 75 30 1.000000 + 76 30 1.000000 + 77 30 1.000000 + 78 30 1.000000 + 79 30 1.000000 + 80 30 1.000000 + 81 30 1.000000 + 82 30 1.000000 + 83 30 1.000000 + 84 30 1.000000 + 85 30 1.000000 + 86 30 1.000000 + 87 30 1.000000 + 88 30 1.000000 + 89 30 1.000000 + 90 30 1.000000 + 91 30 1.000000 + 92 30 1.000000 + 93 30 1.000000 + 94 30 1.000000 + 95 30 1.000000 + 96 30 1.000000 + 97 30 1.000000 + 98 30 1.000000 + 99 30 1.000000 + 100 30 1.000000 + 101 30 1.000000 + 102 30 1.000000 + 103 30 1.000000 + 104 30 1.000000 + 105 30 1.000000 + 106 30 1.000000 + 107 30 1.000000 + 108 30 1.000000 + 109 30 1.000000 + 110 30 1.000000 + 111 30 1.000000 + 112 30 1.000000 + 113 30 1.000000 + 114 30 1.000000 + 115 30 1.000000 + 116 30 1.000000 + 117 30 1.000000 + 118 30 1.000000 + 119 30 1.000000 + 120 30 1.000000 + 121 30 1.000000 + 122 30 1.000000 + 123 30 1.000000 + 124 30 1.000000 + 125 30 1.000000 + 126 30 1.000000 + 127 30 1.000000 + 128 30 1.000000 + 129 30 1.000000 + 130 30 1.000000 + 131 30 1.000000 + 132 30 1.000000 + 133 30 1.000000 + 134 30 0.6404513 + 135 30 0.6381855 + 136 30 0.6406677 + 137 30 0.6475625 + 138 30 0.6585340 + 139 30 0.6732523 + 140 30 0.6913943 + 141 30 0.7126458 + 142 30 0.7367046 + 143 30 0.7632788 + 144 30 0.7920892 + 145 30 0.8228693 + 146 30 0.8280165 + 147 30 0.8665810 + 148 30 0.9056675 + 149 30 0.9451677 + 150 30 0.9849728 + 151 30 1.000000 + 152 30 1.000000 + 153 30 1.000000 + 154 30 1.000000 + 155 30 0.8053008 + 156 30 0.8477330 + 157 30 1.000000 + 158 30 1.000000 + 159 30 1.000000 + 160 30 1.000000 + 1 31 1.000000 + 2 31 1.000000 + 3 31 1.000000 + 4 31 1.000000 + 5 31 1.000000 + 6 31 1.000000 + 7 31 1.000000 + 8 31 1.000000 + 9 31 1.000000 + 10 31 1.000000 + 11 31 1.000000 + 12 31 1.000000 + 13 31 1.000000 + 14 31 1.000000 + 15 31 1.000000 + 16 31 1.000000 + 17 31 1.000000 + 18 31 1.000000 + 19 31 1.000000 + 20 31 1.000000 + 21 31 1.000000 + 22 31 1.000000 + 23 31 1.000000 + 24 31 1.000000 + 25 31 1.000000 + 26 31 1.000000 + 27 31 1.000000 + 28 31 1.000000 + 29 31 1.000000 + 30 31 1.000000 + 31 31 1.000000 + 32 31 1.000000 + 33 31 1.000000 + 34 31 1.000000 + 35 31 1.000000 + 36 31 1.000000 + 37 31 1.000000 + 38 31 1.000000 + 39 31 1.000000 + 40 31 1.000000 + 41 31 1.000000 + 42 31 1.000000 + 43 31 1.000000 + 44 31 1.000000 + 45 31 1.000000 + 46 31 1.000000 + 47 31 1.000000 + 48 31 1.000000 + 49 31 1.000000 + 50 31 1.000000 + 51 31 1.000000 + 52 31 1.000000 + 53 31 1.000000 + 54 31 1.000000 + 55 31 1.000000 + 56 31 1.000000 + 57 31 1.000000 + 58 31 1.000000 + 59 31 1.000000 + 60 31 1.000000 + 61 31 1.000000 + 62 31 1.000000 + 63 31 1.000000 + 64 31 1.000000 + 65 31 1.000000 + 66 31 1.000000 + 67 31 1.000000 + 68 31 1.000000 + 69 31 1.000000 + 70 31 1.000000 + 71 31 1.000000 + 72 31 1.000000 + 73 31 1.000000 + 74 31 1.000000 + 75 31 1.000000 + 76 31 1.000000 + 77 31 1.000000 + 78 31 1.000000 + 79 31 1.000000 + 80 31 1.000000 + 81 31 1.000000 + 82 31 1.000000 + 83 31 1.000000 + 84 31 1.000000 + 85 31 1.000000 + 86 31 1.000000 + 87 31 1.000000 + 88 31 1.000000 + 89 31 1.000000 + 90 31 1.000000 + 91 31 1.000000 + 92 31 1.000000 + 93 31 1.000000 + 94 31 1.000000 + 95 31 1.000000 + 96 31 1.000000 + 97 31 1.000000 + 98 31 1.000000 + 99 31 1.000000 + 100 31 1.000000 + 101 31 1.000000 + 102 31 1.000000 + 103 31 1.000000 + 104 31 1.000000 + 105 31 1.000000 + 106 31 1.000000 + 107 31 1.000000 + 108 31 1.000000 + 109 31 1.000000 + 110 31 1.000000 + 111 31 1.000000 + 112 31 1.000000 + 113 31 1.000000 + 114 31 1.000000 + 115 31 1.000000 + 116 31 1.000000 + 117 31 1.000000 + 118 31 1.000000 + 119 31 1.000000 + 120 31 1.000000 + 121 31 1.000000 + 122 31 1.000000 + 123 31 1.000000 + 124 31 1.000000 + 125 31 1.000000 + 126 31 1.000000 + 127 31 1.000000 + 128 31 1.000000 + 129 31 1.000000 + 130 31 1.000000 + 131 31 1.000000 + 132 31 1.000000 + 133 31 1.000000 + 134 31 0.6366085 + 135 31 0.6326945 + 136 31 0.6336288 + 137 31 0.6390885 + 138 31 0.6487488 + 139 31 0.6622899 + 140 31 0.6793967 + 141 31 0.6997619 + 142 31 0.7230867 + 143 31 0.7490832 + 144 31 0.7774736 + 145 31 0.8079909 + 146 31 0.8108389 + 147 31 0.8497673 + 148 31 0.8893239 + 149 31 0.9293970 + 150 31 0.9698744 + 151 31 1.000000 + 152 31 1.000000 + 153 31 1.000000 + 154 31 0.7611928 + 155 31 0.8040794 + 156 31 0.8387139 + 157 31 0.8730593 + 158 31 1.000000 + 159 31 1.000000 + 160 31 1.000000 + 1 32 1.000000 + 2 32 1.000000 + 3 32 1.000000 + 4 32 1.000000 + 5 32 1.000000 + 6 32 1.000000 + 7 32 1.000000 + 8 32 1.000000 + 9 32 1.000000 + 10 32 1.000000 + 11 32 1.000000 + 12 32 1.000000 + 13 32 1.000000 + 14 32 1.000000 + 15 32 1.000000 + 16 32 1.000000 + 17 32 1.000000 + 18 32 1.000000 + 19 32 1.000000 + 20 32 1.000000 + 21 32 1.000000 + 22 32 1.000000 + 23 32 1.000000 + 24 32 1.000000 + 25 32 1.000000 + 26 32 1.000000 + 27 32 1.000000 + 28 32 1.000000 + 29 32 1.000000 + 30 32 1.000000 + 31 32 1.000000 + 32 32 1.000000 + 33 32 1.000000 + 34 32 1.000000 + 35 32 1.000000 + 36 32 1.000000 + 37 32 1.000000 + 38 32 1.000000 + 39 32 1.000000 + 40 32 1.000000 + 41 32 1.000000 + 42 32 1.000000 + 43 32 1.000000 + 44 32 1.000000 + 45 32 1.000000 + 46 32 1.000000 + 47 32 1.000000 + 48 32 1.000000 + 49 32 1.000000 + 50 32 1.000000 + 51 32 1.000000 + 52 32 1.000000 + 53 32 1.000000 + 54 32 1.000000 + 55 32 1.000000 + 56 32 1.000000 + 57 32 1.000000 + 58 32 1.000000 + 59 32 1.000000 + 60 32 1.000000 + 61 32 1.000000 + 62 32 1.000000 + 63 32 1.000000 + 64 32 1.000000 + 65 32 1.000000 + 66 32 1.000000 + 67 32 1.000000 + 68 32 1.000000 + 69 32 1.000000 + 70 32 1.000000 + 71 32 1.000000 + 72 32 1.000000 + 73 32 1.000000 + 74 32 1.000000 + 75 32 1.000000 + 76 32 1.000000 + 77 32 1.000000 + 78 32 1.000000 + 79 32 1.000000 + 80 32 1.000000 + 81 32 1.000000 + 82 32 1.000000 + 83 32 1.000000 + 84 32 1.000000 + 85 32 1.000000 + 86 32 1.000000 + 87 32 1.000000 + 88 32 1.000000 + 89 32 1.000000 + 90 32 1.000000 + 91 32 1.000000 + 92 32 1.000000 + 93 32 1.000000 + 94 32 1.000000 + 95 32 1.000000 + 96 32 1.000000 + 97 32 1.000000 + 98 32 1.000000 + 99 32 1.000000 + 100 32 1.000000 + 101 32 1.000000 + 102 32 1.000000 + 103 32 1.000000 + 104 32 1.000000 + 105 32 1.000000 + 106 32 1.000000 + 107 32 1.000000 + 108 32 1.000000 + 109 32 1.000000 + 110 32 1.000000 + 111 32 1.000000 + 112 32 1.000000 + 113 32 1.000000 + 114 32 1.000000 + 115 32 1.000000 + 116 32 1.000000 + 117 32 1.000000 + 118 32 1.000000 + 119 32 1.000000 + 120 32 1.000000 + 121 32 1.000000 + 122 32 1.000000 + 123 32 1.000000 + 124 32 1.000000 + 125 32 1.000000 + 126 32 1.000000 + 127 32 1.000000 + 128 32 1.000000 + 129 32 1.000000 + 130 32 1.000000 + 131 32 1.000000 + 132 32 1.000000 + 133 32 1.000000 + 134 32 0.6318103 + 135 32 0.6262090 + 136 32 0.6255352 + 137 32 0.6294798 + 138 32 0.6377320 + 139 32 0.6499828 + 140 32 0.6659274 + 141 32 0.6852675 + 142 32 0.7077122 + 143 32 0.7329786 + 144 32 0.7607931 + 145 32 0.7908906 + 146 32 0.8230166 + 147 32 0.8303428 + 148 32 0.8702306 + 149 32 0.9107476 + 150 32 0.9517792 + 151 32 0.9932082 + 152 32 0.6763933 + 153 32 0.7195538 + 154 32 0.7554131 + 155 32 0.7911988 + 156 32 0.8268245 + 157 32 0.8622109 + 158 32 1.000000 + 159 32 1.000000 + 160 32 1.000000 + 1 33 1.000000 + 2 33 1.000000 + 3 33 1.000000 + 4 33 1.000000 + 5 33 1.000000 + 6 33 1.000000 + 7 33 1.000000 + 8 33 1.000000 + 9 33 1.000000 + 10 33 1.000000 + 11 33 1.000000 + 12 33 1.000000 + 13 33 1.000000 + 14 33 1.000000 + 15 33 1.000000 + 16 33 1.000000 + 17 33 1.000000 + 18 33 1.000000 + 19 33 1.000000 + 20 33 1.000000 + 21 33 1.000000 + 22 33 1.000000 + 23 33 1.000000 + 24 33 1.000000 + 25 33 1.000000 + 26 33 1.000000 + 27 33 1.000000 + 28 33 1.000000 + 29 33 1.000000 + 30 33 1.000000 + 31 33 1.000000 + 32 33 1.000000 + 33 33 1.000000 + 34 33 1.000000 + 35 33 1.000000 + 36 33 1.000000 + 37 33 1.000000 + 38 33 1.000000 + 39 33 1.000000 + 40 33 1.000000 + 41 33 1.000000 + 42 33 1.000000 + 43 33 1.000000 + 44 33 1.000000 + 45 33 1.000000 + 46 33 1.000000 + 47 33 1.000000 + 48 33 1.000000 + 49 33 1.000000 + 50 33 1.000000 + 51 33 1.000000 + 52 33 1.000000 + 53 33 1.000000 + 54 33 1.000000 + 55 33 1.000000 + 56 33 1.000000 + 57 33 1.000000 + 58 33 1.000000 + 59 33 1.000000 + 60 33 1.000000 + 61 33 1.000000 + 62 33 1.000000 + 63 33 1.000000 + 64 33 1.000000 + 65 33 1.000000 + 66 33 1.000000 + 67 33 1.000000 + 68 33 1.000000 + 69 33 1.000000 + 70 33 1.000000 + 71 33 1.000000 + 72 33 1.000000 + 73 33 1.000000 + 74 33 1.000000 + 75 33 1.000000 + 76 33 1.000000 + 77 33 1.000000 + 78 33 1.000000 + 79 33 1.000000 + 80 33 1.000000 + 81 33 1.000000 + 82 33 1.000000 + 83 33 1.000000 + 84 33 1.000000 + 85 33 1.000000 + 86 33 1.000000 + 87 33 1.000000 + 88 33 1.000000 + 89 33 1.000000 + 90 33 1.000000 + 91 33 1.000000 + 92 33 1.000000 + 93 33 1.000000 + 94 33 1.000000 + 95 33 1.000000 + 96 33 1.000000 + 97 33 1.000000 + 98 33 1.000000 + 99 33 1.000000 + 100 33 1.000000 + 101 33 1.000000 + 102 33 1.000000 + 103 33 1.000000 + 104 33 1.000000 + 105 33 1.000000 + 106 33 1.000000 + 107 33 1.000000 + 108 33 1.000000 + 109 33 1.000000 + 110 33 1.000000 + 111 33 1.000000 + 112 33 1.000000 + 113 33 1.000000 + 114 33 1.000000 + 115 33 1.000000 + 116 33 1.000000 + 117 33 1.000000 + 118 33 1.000000 + 119 33 1.000000 + 120 33 1.000000 + 121 33 1.000000 + 122 33 1.000000 + 123 33 1.000000 + 124 33 1.000000 + 125 33 1.000000 + 126 33 1.000000 + 127 33 1.000000 + 128 33 1.000000 + 129 33 1.000000 + 130 33 1.000000 + 131 33 1.000000 + 132 33 1.000000 + 133 33 1.000000 + 134 33 0.6186270 + 135 33 0.6121396 + 136 33 0.6166087 + 137 33 0.6189718 + 138 33 0.6257300 + 139 33 0.6365873 + 140 33 0.6512517 + 141 33 0.6694346 + 142 33 0.6908555 + 143 33 0.7152389 + 144 33 0.7423182 + 145 33 0.7718332 + 146 33 0.8035324 + 147 33 0.8085570 + 148 33 0.8486198 + 149 33 0.8894321 + 150 33 0.9308786 + 151 33 0.9802168 + 152 33 1.000000 + 153 33 1.000000 + 154 33 0.7389016 + 155 33 0.7755496 + 156 33 0.8121102 + 157 33 1.000000 + 158 33 1.000000 + 159 33 1.000000 + 160 33 1.000000 + 1 34 1.000000 + 2 34 1.000000 + 3 34 1.000000 + 4 34 1.000000 + 5 34 1.000000 + 6 34 1.000000 + 7 34 1.000000 + 8 34 1.000000 + 9 34 1.000000 + 10 34 1.000000 + 11 34 1.000000 + 12 34 1.000000 + 13 34 1.000000 + 14 34 1.000000 + 15 34 1.000000 + 16 34 1.000000 + 17 34 1.000000 + 18 34 1.000000 + 19 34 1.000000 + 20 34 1.000000 + 21 34 1.000000 + 22 34 1.000000 + 23 34 1.000000 + 24 34 1.000000 + 25 34 1.000000 + 26 34 1.000000 + 27 34 1.000000 + 28 34 1.000000 + 29 34 1.000000 + 30 34 1.000000 + 31 34 1.000000 + 32 34 1.000000 + 33 34 1.000000 + 34 34 1.000000 + 35 34 1.000000 + 36 34 1.000000 + 37 34 1.000000 + 38 34 1.000000 + 39 34 1.000000 + 40 34 1.000000 + 41 34 1.000000 + 42 34 1.000000 + 43 34 1.000000 + 44 34 1.000000 + 45 34 1.000000 + 46 34 1.000000 + 47 34 1.000000 + 48 34 1.000000 + 49 34 1.000000 + 50 34 1.000000 + 51 34 1.000000 + 52 34 1.000000 + 53 34 1.000000 + 54 34 1.000000 + 55 34 1.000000 + 56 34 1.000000 + 57 34 1.000000 + 58 34 1.000000 + 59 34 1.000000 + 60 34 1.000000 + 61 34 1.000000 + 62 34 1.000000 + 63 34 1.000000 + 64 34 1.000000 + 65 34 1.000000 + 66 34 1.000000 + 67 34 1.000000 + 68 34 1.000000 + 69 34 1.000000 + 70 34 1.000000 + 71 34 1.000000 + 72 34 1.000000 + 73 34 1.000000 + 74 34 1.000000 + 75 34 1.000000 + 76 34 1.000000 + 77 34 1.000000 + 78 34 1.000000 + 79 34 1.000000 + 80 34 1.000000 + 81 34 1.000000 + 82 34 1.000000 + 83 34 1.000000 + 84 34 1.000000 + 85 34 1.000000 + 86 34 1.000000 + 87 34 1.000000 + 88 34 1.000000 + 89 34 1.000000 + 90 34 1.000000 + 91 34 1.000000 + 92 34 1.000000 + 93 34 1.000000 + 94 34 1.000000 + 95 34 1.000000 + 96 34 1.000000 + 97 34 1.000000 + 98 34 1.000000 + 99 34 1.000000 + 100 34 1.000000 + 101 34 1.000000 + 102 34 1.000000 + 103 34 1.000000 + 104 34 1.000000 + 105 34 1.000000 + 106 34 1.000000 + 107 34 1.000000 + 108 34 1.000000 + 109 34 1.000000 + 110 34 1.000000 + 111 34 1.000000 + 112 34 1.000000 + 113 34 1.000000 + 114 34 1.000000 + 115 34 1.000000 + 116 34 1.000000 + 117 34 1.000000 + 118 34 1.000000 + 119 34 1.000000 + 120 34 1.000000 + 121 34 1.000000 + 122 34 1.000000 + 123 34 1.000000 + 124 34 1.000000 + 125 34 1.000000 + 126 34 1.000000 + 127 34 1.000000 + 128 34 1.000000 + 129 34 1.000000 + 130 34 1.000000 + 131 34 1.000000 + 132 34 1.000000 + 133 34 1.000000 + 134 34 0.6118198 + 135 34 0.6036952 + 136 34 0.6004416 + 137 34 0.6018087 + 138 34 0.6129860 + 139 34 0.6223601 + 140 34 0.6356364 + 141 34 0.6525397 + 142 34 0.6727993 + 143 34 0.6961515 + 144 34 0.7223372 + 145 34 0.7511045 + 146 34 0.7822073 + 147 34 0.7846907 + 148 34 0.8247586 + 149 34 0.8719033 + 150 34 0.9136474 + 151 34 0.9559958 + 152 34 0.9988273 + 153 34 1.000000 + 154 34 1.000000 + 155 34 1.000000 + 156 34 1.000000 + 157 34 1.000000 + 158 34 1.000000 + 159 34 1.000000 + 160 34 1.000000 + 1 35 1.000000 + 2 35 1.000000 + 3 35 1.000000 + 4 35 1.000000 + 5 35 1.000000 + 6 35 1.000000 + 7 35 1.000000 + 8 35 1.000000 + 9 35 1.000000 + 10 35 1.000000 + 11 35 1.000000 + 12 35 1.000000 + 13 35 1.000000 + 14 35 1.000000 + 15 35 1.000000 + 16 35 1.000000 + 17 35 1.000000 + 18 35 1.000000 + 19 35 1.000000 + 20 35 1.000000 + 21 35 1.000000 + 22 35 1.000000 + 23 35 1.000000 + 24 35 1.000000 + 25 35 1.000000 + 26 35 1.000000 + 27 35 1.000000 + 28 35 1.000000 + 29 35 1.000000 + 30 35 1.000000 + 31 35 1.000000 + 32 35 1.000000 + 33 35 1.000000 + 34 35 1.000000 + 35 35 1.000000 + 36 35 1.000000 + 37 35 1.000000 + 38 35 1.000000 + 39 35 1.000000 + 40 35 1.000000 + 41 35 1.000000 + 42 35 1.000000 + 43 35 1.000000 + 44 35 1.000000 + 45 35 1.000000 + 46 35 1.000000 + 47 35 1.000000 + 48 35 1.000000 + 49 35 1.000000 + 50 35 1.000000 + 51 35 1.000000 + 52 35 1.000000 + 53 35 1.000000 + 54 35 1.000000 + 55 35 1.000000 + 56 35 1.000000 + 57 35 1.000000 + 58 35 1.000000 + 59 35 1.000000 + 60 35 1.000000 + 61 35 1.000000 + 62 35 1.000000 + 63 35 1.000000 + 64 35 1.000000 + 65 35 1.000000 + 66 35 1.000000 + 67 35 1.000000 + 68 35 1.000000 + 69 35 1.000000 + 70 35 1.000000 + 71 35 1.000000 + 72 35 1.000000 + 73 35 1.000000 + 74 35 1.000000 + 75 35 1.000000 + 76 35 1.000000 + 77 35 1.000000 + 78 35 1.000000 + 79 35 1.000000 + 80 35 1.000000 + 81 35 1.000000 + 82 35 1.000000 + 83 35 1.000000 + 84 35 1.000000 + 85 35 1.000000 + 86 35 1.000000 + 87 35 1.000000 + 88 35 1.000000 + 89 35 1.000000 + 90 35 1.000000 + 91 35 1.000000 + 92 35 1.000000 + 93 35 1.000000 + 94 35 1.000000 + 95 35 1.000000 + 96 35 1.000000 + 97 35 1.000000 + 98 35 1.000000 + 99 35 1.000000 + 100 35 1.000000 + 101 35 1.000000 + 102 35 1.000000 + 103 35 1.000000 + 104 35 1.000000 + 105 35 1.000000 + 106 35 1.000000 + 107 35 1.000000 + 108 35 1.000000 + 109 35 1.000000 + 110 35 1.000000 + 111 35 1.000000 + 112 35 1.000000 + 113 35 1.000000 + 114 35 1.000000 + 115 35 1.000000 + 116 35 1.000000 + 117 35 1.000000 + 118 35 1.000000 + 119 35 1.000000 + 120 35 1.000000 + 121 35 1.000000 + 122 35 1.000000 + 123 35 0.9900660 + 124 35 0.9333216 + 125 35 0.8796699 + 126 35 0.8788580 + 127 35 0.8246064 + 128 35 0.7760823 + 129 35 0.7333471 + 130 35 0.6963972 + 131 35 0.6651728 + 132 35 0.6395659 + 133 35 0.6194301 + 134 35 0.6045872 + 135 35 0.5948351 + 136 35 0.5899547 + 137 35 0.5897133 + 138 35 0.5938712 + 139 35 0.6075480 + 140 35 0.6193432 + 141 35 0.6348560 + 142 35 0.6538285 + 143 35 0.6760085 + 144 35 0.7011481 + 145 35 0.7290047 + 146 35 0.7593405 + 147 35 0.7971511 + 148 35 0.8039933 + 149 35 0.8449856 + 150 35 0.8868372 + 151 35 0.9294304 + 152 35 0.9726427 + 153 35 1.000000 + 154 35 1.000000 + 155 35 1.000000 + 156 35 1.000000 + 157 35 1.000000 + 158 35 1.000000 + 159 35 1.000000 + 160 35 1.000000 + 1 36 1.000000 + 2 36 1.000000 + 3 36 1.000000 + 4 36 1.000000 + 5 36 1.000000 + 6 36 1.000000 + 7 36 1.000000 + 8 36 1.000000 + 9 36 1.000000 + 10 36 1.000000 + 11 36 1.000000 + 12 36 1.000000 + 13 36 1.000000 + 14 36 1.000000 + 15 36 1.000000 + 16 36 1.000000 + 17 36 1.000000 + 18 36 1.000000 + 19 36 1.000000 + 20 36 1.000000 + 21 36 1.000000 + 22 36 1.000000 + 23 36 1.000000 + 24 36 1.000000 + 25 36 1.000000 + 26 36 1.000000 + 27 36 1.000000 + 28 36 1.000000 + 29 36 1.000000 + 30 36 1.000000 + 31 36 1.000000 + 32 36 1.000000 + 33 36 1.000000 + 34 36 1.000000 + 35 36 1.000000 + 36 36 1.000000 + 37 36 1.000000 + 38 36 1.000000 + 39 36 1.000000 + 40 36 1.000000 + 41 36 1.000000 + 42 36 1.000000 + 43 36 1.000000 + 44 36 1.000000 + 45 36 1.000000 + 46 36 1.000000 + 47 36 1.000000 + 48 36 1.000000 + 49 36 1.000000 + 50 36 1.000000 + 51 36 1.000000 + 52 36 1.000000 + 53 36 1.000000 + 54 36 1.000000 + 55 36 1.000000 + 56 36 1.000000 + 57 36 1.000000 + 58 36 1.000000 + 59 36 1.000000 + 60 36 1.000000 + 61 36 1.000000 + 62 36 1.000000 + 63 36 1.000000 + 64 36 1.000000 + 65 36 1.000000 + 66 36 1.000000 + 67 36 1.000000 + 68 36 1.000000 + 69 36 1.000000 + 70 36 1.000000 + 71 36 1.000000 + 72 36 1.000000 + 73 36 1.000000 + 74 36 1.000000 + 75 36 1.000000 + 76 36 1.000000 + 77 36 1.000000 + 78 36 1.000000 + 79 36 1.000000 + 80 36 1.000000 + 81 36 1.000000 + 82 36 1.000000 + 83 36 1.000000 + 84 36 1.000000 + 85 36 1.000000 + 86 36 1.000000 + 87 36 1.000000 + 88 36 1.000000 + 89 36 1.000000 + 90 36 1.000000 + 91 36 1.000000 + 92 36 1.000000 + 93 36 1.000000 + 94 36 1.000000 + 95 36 1.000000 + 96 36 1.000000 + 97 36 1.000000 + 98 36 1.000000 + 99 36 1.000000 + 100 36 1.000000 + 101 36 1.000000 + 102 36 1.000000 + 103 36 1.000000 + 104 36 1.000000 + 105 36 1.000000 + 106 36 1.000000 + 107 36 1.000000 + 108 36 1.000000 + 109 36 1.000000 + 110 36 1.000000 + 111 36 1.000000 + 112 36 1.000000 + 113 36 1.000000 + 114 36 1.000000 + 115 36 1.000000 + 116 36 1.000000 + 117 36 1.000000 + 118 36 1.000000 + 119 36 1.000000 + 120 36 1.000000 + 121 36 1.000000 + 122 36 1.000000 + 123 36 0.9913577 + 124 36 0.9346268 + 125 36 0.8807800 + 126 36 0.8814753 + 127 36 0.8263713 + 128 36 0.7768489 + 129 36 0.7329810 + 130 36 0.6947788 + 131 36 0.6621977 + 132 36 0.6351469 + 133 36 0.6134962 + 134 36 0.5970846 + 135 36 0.5857283 + 136 36 0.5792246 + 137 36 0.5773591 + 138 36 0.5799088 + 139 36 0.5866466 + 140 36 0.6026211 + 141 36 0.6166477 + 142 36 0.6342200 + 143 36 0.6550988 + 144 36 0.6830802 + 145 36 0.7099553 + 146 36 0.7394421 + 147 36 0.7713105 + 148 36 0.7756119 + 149 36 0.8163818 + 150 36 0.8581483 + 151 36 0.9007968 + 152 36 0.9442064 + 153 36 0.9882511 + 154 36 1.000000 + 155 36 1.000000 + 156 36 1.000000 + 157 36 1.000000 + 158 36 1.000000 + 159 36 1.000000 + 160 36 1.000000 + 1 37 1.000000 + 2 37 1.000000 + 3 37 1.000000 + 4 37 1.000000 + 5 37 1.000000 + 6 37 1.000000 + 7 37 1.000000 + 8 37 1.000000 + 9 37 1.000000 + 10 37 1.000000 + 11 37 1.000000 + 12 37 1.000000 + 13 37 1.000000 + 14 37 1.000000 + 15 37 1.000000 + 16 37 1.000000 + 17 37 1.000000 + 18 37 1.000000 + 19 37 1.000000 + 20 37 1.000000 + 21 37 1.000000 + 22 37 1.000000 + 23 37 1.000000 + 24 37 1.000000 + 25 37 1.000000 + 26 37 1.000000 + 27 37 1.000000 + 28 37 1.000000 + 29 37 1.000000 + 30 37 1.000000 + 31 37 1.000000 + 32 37 1.000000 + 33 37 1.000000 + 34 37 1.000000 + 35 37 1.000000 + 36 37 1.000000 + 37 37 1.000000 + 38 37 1.000000 + 39 37 1.000000 + 40 37 1.000000 + 41 37 1.000000 + 42 37 1.000000 + 43 37 1.000000 + 44 37 1.000000 + 45 37 1.000000 + 46 37 1.000000 + 47 37 1.000000 + 48 37 1.000000 + 49 37 1.000000 + 50 37 1.000000 + 51 37 1.000000 + 52 37 1.000000 + 53 37 1.000000 + 54 37 1.000000 + 55 37 1.000000 + 56 37 1.000000 + 57 37 1.000000 + 58 37 1.000000 + 59 37 1.000000 + 60 37 1.000000 + 61 37 1.000000 + 62 37 1.000000 + 63 37 1.000000 + 64 37 1.000000 + 65 37 1.000000 + 66 37 1.000000 + 67 37 1.000000 + 68 37 1.000000 + 69 37 1.000000 + 70 37 1.000000 + 71 37 1.000000 + 72 37 1.000000 + 73 37 1.000000 + 74 37 1.000000 + 75 37 1.000000 + 76 37 1.000000 + 77 37 1.000000 + 78 37 1.000000 + 79 37 1.000000 + 80 37 1.000000 + 81 37 1.000000 + 82 37 1.000000 + 83 37 1.000000 + 84 37 1.000000 + 85 37 1.000000 + 86 37 1.000000 + 87 37 1.000000 + 88 37 1.000000 + 89 37 1.000000 + 90 37 1.000000 + 91 37 1.000000 + 92 37 1.000000 + 93 37 1.000000 + 94 37 1.000000 + 95 37 1.000000 + 96 37 1.000000 + 97 37 1.000000 + 98 37 1.000000 + 99 37 1.000000 + 100 37 1.000000 + 101 37 1.000000 + 102 37 1.000000 + 103 37 1.000000 + 104 37 1.000000 + 105 37 1.000000 + 106 37 1.000000 + 107 37 1.000000 + 108 37 1.000000 + 109 37 1.000000 + 110 37 1.000000 + 111 37 1.000000 + 112 37 1.000000 + 113 37 1.000000 + 114 37 1.000000 + 115 37 1.000000 + 116 37 1.000000 + 117 37 1.000000 + 118 37 1.000000 + 119 37 1.000000 + 120 37 1.000000 + 121 37 1.000000 + 122 37 1.000000 + 123 37 1.000000 + 124 37 0.9436445 + 125 37 0.8890309 + 126 37 0.8302470 + 127 37 0.8273762 + 128 37 0.7769719 + 129 37 0.7320827 + 130 37 0.6927314 + 131 37 0.6588875 + 132 37 0.6304738 + 133 37 0.6073760 + 134 37 0.5894486 + 135 37 0.5765241 + 136 37 0.5684159 + 137 37 0.5649266 + 138 37 0.5658492 + 139 37 0.5739095 + 140 37 0.5830185 + 141 37 0.5959312 + 142 37 0.6173345 + 143 37 0.6368591 + 144 37 0.6595621 + 145 37 0.6852195 + 146 37 0.7136110 + 147 37 0.7445186 + 148 37 0.7460538 + 149 37 0.7864057 + 150 37 0.8278890 + 151 37 0.8703949 + 152 37 0.9138063 + 153 37 0.9459772 + 154 37 0.9896995 + 155 37 1.000000 + 156 37 1.000000 + 157 37 1.000000 + 158 37 1.000000 + 159 37 1.000000 + 160 37 1.000000 + 1 38 1.000000 + 2 38 1.000000 + 3 38 1.000000 + 4 38 1.000000 + 5 38 1.000000 + 6 38 1.000000 + 7 38 1.000000 + 8 38 1.000000 + 9 38 1.000000 + 10 38 1.000000 + 11 38 1.000000 + 12 38 1.000000 + 13 38 1.000000 + 14 38 1.000000 + 15 38 1.000000 + 16 38 1.000000 + 17 38 1.000000 + 18 38 1.000000 + 19 38 1.000000 + 20 38 1.000000 + 21 38 1.000000 + 22 38 1.000000 + 23 38 1.000000 + 24 38 1.000000 + 25 38 1.000000 + 26 38 1.000000 + 27 38 1.000000 + 28 38 1.000000 + 29 38 1.000000 + 30 38 1.000000 + 31 38 1.000000 + 32 38 1.000000 + 33 38 1.000000 + 34 38 1.000000 + 35 38 1.000000 + 36 38 1.000000 + 37 38 1.000000 + 38 38 1.000000 + 39 38 1.000000 + 40 38 1.000000 + 41 38 1.000000 + 42 38 1.000000 + 43 38 1.000000 + 44 38 1.000000 + 45 38 1.000000 + 46 38 1.000000 + 47 38 1.000000 + 48 38 1.000000 + 49 38 1.000000 + 50 38 1.000000 + 51 38 1.000000 + 52 38 1.000000 + 53 38 1.000000 + 54 38 1.000000 + 55 38 1.000000 + 56 38 1.000000 + 57 38 1.000000 + 58 38 1.000000 + 59 38 1.000000 + 60 38 1.000000 + 61 38 1.000000 + 62 38 1.000000 + 63 38 1.000000 + 64 38 1.000000 + 65 38 1.000000 + 66 38 1.000000 + 67 38 1.000000 + 68 38 1.000000 + 69 38 1.000000 + 70 38 1.000000 + 71 38 1.000000 + 72 38 1.000000 + 73 38 1.000000 + 74 38 1.000000 + 75 38 1.000000 + 76 38 1.000000 + 77 38 1.000000 + 78 38 1.000000 + 79 38 1.000000 + 80 38 1.000000 + 81 38 1.000000 + 82 38 1.000000 + 83 38 1.000000 + 84 38 1.000000 + 85 38 1.000000 + 86 38 1.000000 + 87 38 1.000000 + 88 38 1.000000 + 89 38 1.000000 + 90 38 1.000000 + 91 38 1.000000 + 92 38 1.000000 + 93 38 1.000000 + 94 38 1.000000 + 95 38 1.000000 + 96 38 1.000000 + 97 38 1.000000 + 98 38 1.000000 + 99 38 1.000000 + 100 38 1.000000 + 101 38 1.000000 + 102 38 1.000000 + 103 38 1.000000 + 104 38 1.000000 + 105 38 1.000000 + 106 38 1.000000 + 107 38 1.000000 + 108 38 1.000000 + 109 38 1.000000 + 110 38 1.000000 + 111 38 1.000000 + 112 38 1.000000 + 113 38 1.000000 + 114 38 1.000000 + 115 38 1.000000 + 116 38 1.000000 + 117 38 1.000000 + 118 38 1.000000 + 119 38 1.000000 + 120 38 1.000000 + 121 38 1.000000 + 122 38 1.000000 + 123 38 0.9983504 + 124 38 0.9414072 + 125 38 0.8869331 + 126 38 0.8354938 + 127 38 0.8338966 + 128 38 0.7820950 + 129 38 0.7357152 + 130 38 0.6947957 + 131 38 0.6593209 + 132 38 0.6292282 + 133 38 0.6044172 + 134 38 0.5847554 + 135 38 0.5700860 + 136 38 0.5602349 + 137 38 0.5550146 + 138 38 0.5542293 + 139 38 0.5576788 + 140 38 0.5651594 + 141 38 0.5764671 + 142 38 0.5913982 + 143 38 0.6145812 + 144 38 0.6358404 + 145 38 0.6601461 + 146 38 0.6872925 + 147 38 0.7170745 + 148 38 0.7492891 + 149 38 0.7553787 + 150 38 0.7863678 + 151 38 0.8274539 + 152 38 0.8695104 + 153 38 0.9124178 + 154 38 0.9560496 + 155 38 1.000000 + 156 38 1.000000 + 157 38 1.000000 + 158 38 1.000000 + 159 38 1.000000 + 160 38 1.000000 + 1 39 1.000000 + 2 39 1.000000 + 3 39 1.000000 + 4 39 1.000000 + 5 39 1.000000 + 6 39 1.000000 + 7 39 1.000000 + 8 39 1.000000 + 9 39 1.000000 + 10 39 1.000000 + 11 39 1.000000 + 12 39 1.000000 + 13 39 1.000000 + 14 39 1.000000 + 15 39 1.000000 + 16 39 1.000000 + 17 39 1.000000 + 18 39 1.000000 + 19 39 1.000000 + 20 39 1.000000 + 21 39 1.000000 + 22 39 1.000000 + 23 39 1.000000 + 24 39 1.000000 + 25 39 1.000000 + 26 39 1.000000 + 27 39 1.000000 + 28 39 1.000000 + 29 39 1.000000 + 30 39 1.000000 + 31 39 1.000000 + 32 39 1.000000 + 33 39 1.000000 + 34 39 1.000000 + 35 39 1.000000 + 36 39 1.000000 + 37 39 1.000000 + 38 39 1.000000 + 39 39 1.000000 + 40 39 1.000000 + 41 39 1.000000 + 42 39 1.000000 + 43 39 1.000000 + 44 39 1.000000 + 45 39 1.000000 + 46 39 1.000000 + 47 39 1.000000 + 48 39 1.000000 + 49 39 1.000000 + 50 39 1.000000 + 51 39 1.000000 + 52 39 1.000000 + 53 39 1.000000 + 54 39 1.000000 + 55 39 1.000000 + 56 39 1.000000 + 57 39 1.000000 + 58 39 1.000000 + 59 39 1.000000 + 60 39 1.000000 + 61 39 1.000000 + 62 39 1.000000 + 63 39 1.000000 + 64 39 1.000000 + 65 39 1.000000 + 66 39 1.000000 + 67 39 1.000000 + 68 39 1.000000 + 69 39 1.000000 + 70 39 1.000000 + 71 39 1.000000 + 72 39 1.000000 + 73 39 1.000000 + 74 39 1.000000 + 75 39 1.000000 + 76 39 1.000000 + 77 39 1.000000 + 78 39 1.000000 + 79 39 1.000000 + 80 39 1.000000 + 81 39 1.000000 + 82 39 1.000000 + 83 39 1.000000 + 84 39 1.000000 + 85 39 1.000000 + 86 39 1.000000 + 87 39 1.000000 + 88 39 1.000000 + 89 39 1.000000 + 90 39 1.000000 + 91 39 1.000000 + 92 39 1.000000 + 93 39 1.000000 + 94 39 1.000000 + 95 39 1.000000 + 96 39 1.000000 + 97 39 1.000000 + 98 39 1.000000 + 99 39 1.000000 + 100 39 1.000000 + 101 39 1.000000 + 102 39 1.000000 + 103 39 1.000000 + 104 39 1.000000 + 105 39 1.000000 + 106 39 1.000000 + 107 39 1.000000 + 108 39 1.000000 + 109 39 1.000000 + 110 39 1.000000 + 111 39 1.000000 + 112 39 1.000000 + 113 39 1.000000 + 114 39 1.000000 + 115 39 1.000000 + 116 39 1.000000 + 117 39 1.000000 + 118 39 1.000000 + 119 39 1.000000 + 120 39 1.000000 + 121 39 1.000000 + 122 39 1.000000 + 123 39 1.000000 + 124 39 0.9385988 + 125 39 0.8843333 + 126 39 0.8329121 + 127 39 0.7848114 + 128 39 0.7802198 + 129 39 0.7331351 + 130 39 0.6913612 + 131 39 0.6548921 + 132 39 0.6236767 + 133 39 0.5976257 + 134 39 0.5766203 + 135 39 0.5605189 + 136 39 0.5491608 + 137 39 0.5423742 + 138 39 0.5399790 + 139 39 0.5417907 + 140 39 0.5476215 + 141 39 0.5572850 + 142 39 0.5705934 + 143 39 0.5873608 + 144 39 0.6121568 + 145 39 0.6349953 + 146 39 0.6607624 + 147 39 0.6809831 + 148 39 0.7111307 + 149 39 0.7137132 + 150 39 0.7529075 + 151 39 0.7932970 + 152 39 0.8347784 + 153 39 0.8772383 + 154 39 0.9205537 + 155 39 0.9645965 + 156 39 1.000000 + 157 39 1.000000 + 158 39 1.000000 + 159 39 1.000000 + 160 39 1.000000 + 1 40 1.000000 + 2 40 1.000000 + 3 40 1.000000 + 4 40 1.000000 + 5 40 1.000000 + 6 40 1.000000 + 7 40 1.000000 + 8 40 1.000000 + 9 40 1.000000 + 10 40 1.000000 + 11 40 1.000000 + 12 40 1.000000 + 13 40 1.000000 + 14 40 1.000000 + 15 40 1.000000 + 16 40 1.000000 + 17 40 1.000000 + 18 40 1.000000 + 19 40 1.000000 + 20 40 1.000000 + 21 40 1.000000 + 22 40 1.000000 + 23 40 1.000000 + 24 40 1.000000 + 25 40 1.000000 + 26 40 1.000000 + 27 40 1.000000 + 28 40 1.000000 + 29 40 1.000000 + 30 40 1.000000 + 31 40 1.000000 + 32 40 1.000000 + 33 40 1.000000 + 34 40 1.000000 + 35 40 1.000000 + 36 40 1.000000 + 37 40 1.000000 + 38 40 1.000000 + 39 40 1.000000 + 40 40 1.000000 + 41 40 1.000000 + 42 40 1.000000 + 43 40 1.000000 + 44 40 1.000000 + 45 40 1.000000 + 46 40 1.000000 + 47 40 1.000000 + 48 40 1.000000 + 49 40 1.000000 + 50 40 1.000000 + 51 40 1.000000 + 52 40 1.000000 + 53 40 1.000000 + 54 40 1.000000 + 55 40 1.000000 + 56 40 1.000000 + 57 40 1.000000 + 58 40 1.000000 + 59 40 1.000000 + 60 40 1.000000 + 61 40 1.000000 + 62 40 1.000000 + 63 40 1.000000 + 64 40 1.000000 + 65 40 1.000000 + 66 40 1.000000 + 67 40 1.000000 + 68 40 1.000000 + 69 40 1.000000 + 70 40 1.000000 + 71 40 1.000000 + 72 40 1.000000 + 73 40 1.000000 + 74 40 1.000000 + 75 40 1.000000 + 76 40 1.000000 + 77 40 1.000000 + 78 40 1.000000 + 79 40 1.000000 + 80 40 1.000000 + 81 40 1.000000 + 82 40 1.000000 + 83 40 1.000000 + 84 40 1.000000 + 85 40 1.000000 + 86 40 1.000000 + 87 40 1.000000 + 88 40 1.000000 + 89 40 1.000000 + 90 40 1.000000 + 91 40 1.000000 + 92 40 1.000000 + 93 40 1.000000 + 94 40 1.000000 + 95 40 1.000000 + 96 40 1.000000 + 97 40 1.000000 + 98 40 1.000000 + 99 40 1.000000 + 100 40 1.000000 + 101 40 1.000000 + 102 40 1.000000 + 103 40 1.000000 + 104 40 1.000000 + 105 40 1.000000 + 106 40 1.000000 + 107 40 1.000000 + 108 40 1.000000 + 109 40 1.000000 + 110 40 1.000000 + 111 40 1.000000 + 112 40 1.000000 + 113 40 1.000000 + 114 40 1.000000 + 115 40 1.000000 + 116 40 1.000000 + 117 40 1.000000 + 118 40 1.000000 + 119 40 1.000000 + 120 40 1.000000 + 121 40 1.000000 + 122 40 1.000000 + 123 40 1.000000 + 124 40 0.9578593 + 125 40 0.9024769 + 126 40 0.8299463 + 127 40 0.7817539 + 128 40 0.7781030 + 129 40 0.7304032 + 130 40 0.6878652 + 131 40 0.6504902 + 132 40 0.6182362 + 133 40 0.5910255 + 134 40 0.5687499 + 135 40 0.5512801 + 136 40 0.5384688 + 137 40 0.5301580 + 138 40 0.5261808 + 139 40 0.5263678 + 140 40 0.5305468 + 141 40 0.5385454 + 142 40 0.5501919 + 143 40 0.5653166 + 144 40 0.5837500 + 145 40 0.6026717 + 146 40 0.6261340 + 147 40 0.6523238 + 148 40 0.6810603 + 149 40 0.6806180 + 150 40 0.7188089 + 151 40 0.7582971 + 152 40 0.7989882 + 153 40 0.8407765 + 154 40 0.8835469 + 155 40 0.9271755 + 156 40 0.9715304 + 157 40 1.000000 + 158 40 1.000000 + 159 40 1.000000 + 160 40 1.000000 + 1 41 1.000000 + 2 41 1.000000 + 3 41 1.000000 + 4 41 1.000000 + 5 41 1.000000 + 6 41 1.000000 + 7 41 1.000000 + 8 41 1.000000 + 9 41 1.000000 + 10 41 1.000000 + 11 41 1.000000 + 12 41 1.000000 + 13 41 1.000000 + 14 41 1.000000 + 15 41 1.000000 + 16 41 1.000000 + 17 41 1.000000 + 18 41 1.000000 + 19 41 1.000000 + 20 41 1.000000 + 21 41 1.000000 + 22 41 1.000000 + 23 41 1.000000 + 24 41 1.000000 + 25 41 1.000000 + 26 41 1.000000 + 27 41 1.000000 + 28 41 1.000000 + 29 41 1.000000 + 30 41 1.000000 + 31 41 1.000000 + 32 41 1.000000 + 33 41 1.000000 + 34 41 1.000000 + 35 41 1.000000 + 36 41 1.000000 + 37 41 1.000000 + 38 41 1.000000 + 39 41 1.000000 + 40 41 1.000000 + 41 41 1.000000 + 42 41 1.000000 + 43 41 1.000000 + 44 41 1.000000 + 45 41 1.000000 + 46 41 1.000000 + 47 41 1.000000 + 48 41 1.000000 + 49 41 1.000000 + 50 41 1.000000 + 51 41 1.000000 + 52 41 1.000000 + 53 41 1.000000 + 54 41 1.000000 + 55 41 1.000000 + 56 41 1.000000 + 57 41 1.000000 + 58 41 1.000000 + 59 41 1.000000 + 60 41 1.000000 + 61 41 1.000000 + 62 41 1.000000 + 63 41 1.000000 + 64 41 1.000000 + 65 41 1.000000 + 66 41 1.000000 + 67 41 1.000000 + 68 41 1.000000 + 69 41 1.000000 + 70 41 1.000000 + 71 41 1.000000 + 72 41 1.000000 + 73 41 1.000000 + 74 41 1.000000 + 75 41 1.000000 + 76 41 1.000000 + 77 41 1.000000 + 78 41 1.000000 + 79 41 1.000000 + 80 41 1.000000 + 81 41 1.000000 + 82 41 1.000000 + 83 41 1.000000 + 84 41 1.000000 + 85 41 1.000000 + 86 41 1.000000 + 87 41 1.000000 + 88 41 1.000000 + 89 41 1.000000 + 90 41 1.000000 + 91 41 1.000000 + 92 41 1.000000 + 93 41 1.000000 + 94 41 1.000000 + 95 41 1.000000 + 96 41 1.000000 + 97 41 1.000000 + 98 41 1.000000 + 99 41 1.000000 + 100 41 1.000000 + 101 41 1.000000 + 102 41 1.000000 + 103 41 1.000000 + 104 41 1.000000 + 105 41 1.000000 + 106 41 1.000000 + 107 41 1.000000 + 108 41 1.000000 + 109 41 1.000000 + 110 41 1.000000 + 111 41 1.000000 + 112 41 1.000000 + 113 41 1.000000 + 114 41 1.000000 + 115 41 1.000000 + 116 41 1.000000 + 117 41 1.000000 + 118 41 1.000000 + 119 41 1.000000 + 120 41 1.000000 + 121 41 1.000000 + 122 41 1.000000 + 123 41 1.000000 + 124 41 0.9559616 + 125 41 0.9008235 + 126 41 0.8481203 + 127 41 0.7784233 + 128 41 0.7335677 + 129 41 0.7275503 + 130 41 0.6843382 + 131 41 0.6461473 + 132 41 0.6129426 + 133 41 0.5846554 + 134 41 0.5611885 + 135 41 0.5424222 + 136 41 0.5282211 + 137 41 0.5184385 + 138 41 0.5129210 + 139 41 0.5115116 + 140 41 0.5140514 + 141 41 0.5203825 + 142 41 0.5303481 + 143 41 0.5374604 + 144 41 0.5535382 + 145 41 0.5726951 + 146 41 0.5992261 + 147 41 0.6238037 + 148 41 0.6509940 + 149 41 0.6806284 + 150 41 0.6843904 + 151 41 0.7227836 + 152 41 0.7624775 + 153 41 0.8033767 + 154 41 0.8453742 + 155 41 0.8883532 + 156 41 0.9321867 + 157 41 0.9767417 + 158 41 1.000000 + 159 41 1.000000 + 160 41 1.000000 + 1 42 1.000000 + 2 42 1.000000 + 3 42 1.000000 + 4 42 1.000000 + 5 42 1.000000 + 6 42 1.000000 + 7 42 1.000000 + 8 42 1.000000 + 9 42 1.000000 + 10 42 1.000000 + 11 42 1.000000 + 12 42 1.000000 + 13 42 1.000000 + 14 42 1.000000 + 15 42 1.000000 + 16 42 1.000000 + 17 42 1.000000 + 18 42 1.000000 + 19 42 1.000000 + 20 42 1.000000 + 21 42 1.000000 + 22 42 1.000000 + 23 42 1.000000 + 24 42 1.000000 + 25 42 1.000000 + 26 42 1.000000 + 27 42 1.000000 + 28 42 1.000000 + 29 42 1.000000 + 30 42 1.000000 + 31 42 1.000000 + 32 42 1.000000 + 33 42 1.000000 + 34 42 1.000000 + 35 42 1.000000 + 36 42 1.000000 + 37 42 1.000000 + 38 42 1.000000 + 39 42 1.000000 + 40 42 1.000000 + 41 42 1.000000 + 42 42 1.000000 + 43 42 1.000000 + 44 42 1.000000 + 45 42 1.000000 + 46 42 1.000000 + 47 42 1.000000 + 48 42 1.000000 + 49 42 1.000000 + 50 42 1.000000 + 51 42 1.000000 + 52 42 1.000000 + 53 42 1.000000 + 54 42 1.000000 + 55 42 1.000000 + 56 42 1.000000 + 57 42 1.000000 + 58 42 1.000000 + 59 42 1.000000 + 60 42 1.000000 + 61 42 1.000000 + 62 42 1.000000 + 63 42 1.000000 + 64 42 1.000000 + 65 42 1.000000 + 66 42 1.000000 + 67 42 1.000000 + 68 42 1.000000 + 69 42 1.000000 + 70 42 1.000000 + 71 42 1.000000 + 72 42 1.000000 + 73 42 1.000000 + 74 42 1.000000 + 75 42 1.000000 + 76 42 1.000000 + 77 42 1.000000 + 78 42 1.000000 + 79 42 1.000000 + 80 42 1.000000 + 81 42 1.000000 + 82 42 1.000000 + 83 42 1.000000 + 84 42 1.000000 + 85 42 1.000000 + 86 42 1.000000 + 87 42 1.000000 + 88 42 1.000000 + 89 42 1.000000 + 90 42 1.000000 + 91 42 1.000000 + 92 42 1.000000 + 93 42 1.000000 + 94 42 1.000000 + 95 42 1.000000 + 96 42 1.000000 + 97 42 1.000000 + 98 42 1.000000 + 99 42 1.000000 + 100 42 1.000000 + 101 42 1.000000 + 102 42 1.000000 + 103 42 1.000000 + 104 42 1.000000 + 105 42 1.000000 + 106 42 1.000000 + 107 42 1.000000 + 108 42 1.000000 + 109 42 1.000000 + 110 42 1.000000 + 111 42 1.000000 + 112 42 1.000000 + 113 42 1.000000 + 114 42 1.000000 + 115 42 1.000000 + 116 42 1.000000 + 117 42 1.000000 + 118 42 1.000000 + 119 42 1.000000 + 120 42 1.000000 + 121 42 1.000000 + 122 42 1.000000 + 123 42 1.000000 + 124 42 0.9537481 + 125 42 0.8989109 + 126 42 0.8463349 + 127 42 0.7965164 + 128 42 0.7298798 + 129 42 0.7245985 + 130 42 0.6808026 + 131 42 0.6418856 + 132 42 0.6078196 + 133 42 0.5785432 + 134 42 0.5539673 + 135 42 0.5339819 + 136 42 0.5184613 + 137 42 0.5072697 + 138 42 0.5002645 + 139 42 0.4972997 + 140 42 0.4982293 + 141 42 0.4972900 + 142 42 0.5050042 + 143 42 0.5160978 + 144 42 0.5304214 + 145 42 0.5478281 + 146 42 0.5681701 + 147 42 0.5956538 + 148 42 0.6211841 + 149 42 0.6492183 + 150 42 0.6499542 + 151 42 0.6870738 + 152 42 0.7255771 + 153 42 0.7653794 + 154 42 0.8063836 + 155 42 0.8484811 + 156 42 0.8915529 + 157 42 0.9354715 + 158 42 0.9801003 + 159 42 1.000000 + 160 42 1.000000 + 1 43 1.000000 + 2 43 1.000000 + 3 43 1.000000 + 4 43 1.000000 + 5 43 1.000000 + 6 43 1.000000 + 7 43 1.000000 + 8 43 1.000000 + 9 43 1.000000 + 10 43 1.000000 + 11 43 1.000000 + 12 43 1.000000 + 13 43 1.000000 + 14 43 1.000000 + 15 43 1.000000 + 16 43 1.000000 + 17 43 1.000000 + 18 43 1.000000 + 19 43 1.000000 + 20 43 1.000000 + 21 43 1.000000 + 22 43 1.000000 + 23 43 1.000000 + 24 43 1.000000 + 25 43 1.000000 + 26 43 1.000000 + 27 43 1.000000 + 28 43 1.000000 + 29 43 1.000000 + 30 43 1.000000 + 31 43 1.000000 + 32 43 1.000000 + 33 43 1.000000 + 34 43 1.000000 + 35 43 1.000000 + 36 43 1.000000 + 37 43 1.000000 + 38 43 1.000000 + 39 43 1.000000 + 40 43 1.000000 + 41 43 1.000000 + 42 43 1.000000 + 43 43 1.000000 + 44 43 1.000000 + 45 43 1.000000 + 46 43 1.000000 + 47 43 1.000000 + 48 43 1.000000 + 49 43 1.000000 + 50 43 1.000000 + 51 43 1.000000 + 52 43 1.000000 + 53 43 1.000000 + 54 43 1.000000 + 55 43 1.000000 + 56 43 1.000000 + 57 43 1.000000 + 58 43 1.000000 + 59 43 1.000000 + 60 43 1.000000 + 61 43 1.000000 + 62 43 1.000000 + 63 43 1.000000 + 64 43 1.000000 + 65 43 1.000000 + 66 43 1.000000 + 67 43 1.000000 + 68 43 1.000000 + 69 43 1.000000 + 70 43 1.000000 + 71 43 1.000000 + 72 43 1.000000 + 73 43 1.000000 + 74 43 1.000000 + 75 43 1.000000 + 76 43 1.000000 + 77 43 1.000000 + 78 43 1.000000 + 79 43 1.000000 + 80 43 1.000000 + 81 43 1.000000 + 82 43 1.000000 + 83 43 1.000000 + 84 43 1.000000 + 85 43 1.000000 + 86 43 1.000000 + 87 43 1.000000 + 88 43 1.000000 + 89 43 1.000000 + 90 43 1.000000 + 91 43 1.000000 + 92 43 1.000000 + 93 43 1.000000 + 94 43 1.000000 + 95 43 1.000000 + 96 43 1.000000 + 97 43 1.000000 + 98 43 1.000000 + 99 43 1.000000 + 100 43 1.000000 + 101 43 1.000000 + 102 43 1.000000 + 103 43 1.000000 + 104 43 1.000000 + 105 43 1.000000 + 106 43 1.000000 + 107 43 1.000000 + 108 43 1.000000 + 109 43 1.000000 + 110 43 1.000000 + 111 43 1.000000 + 112 43 1.000000 + 113 43 1.000000 + 114 43 1.000000 + 115 43 1.000000 + 116 43 1.000000 + 117 43 1.000000 + 118 43 1.000000 + 119 43 1.000000 + 120 43 1.000000 + 121 43 1.000000 + 122 43 1.000000 + 123 43 1.000000 + 124 43 0.9716058 + 125 43 0.8967717 + 126 43 0.8443831 + 127 43 0.7945828 + 128 43 0.7477880 + 129 43 0.7413356 + 130 43 0.6772730 + 131 43 0.6377202 + 132 43 0.6028824 + 133 43 0.5727050 + 134 43 0.5471060 + 135 43 0.5259835 + 136 43 0.5092202 + 137 43 0.4966898 + 138 43 0.4882585 + 139 43 0.4837910 + 140 43 0.4776137 + 141 43 0.4801420 + 142 43 0.4861507 + 143 43 0.4955008 + 144 43 0.5080546 + 145 43 0.5236769 + 146 43 0.5422334 + 147 43 0.5635898 + 148 43 0.5918571 + 149 43 0.6181802 + 150 43 0.6157796 + 151 43 0.6514670 + 152 43 0.6886034 + 153 43 0.7271157 + 154 43 0.7669180 + 155 43 0.8079117 + 156 43 0.8499871 + 157 43 0.8930231 + 158 43 0.9368903 + 159 43 0.9814517 + 160 43 1.000000 + 1 44 1.000000 + 2 44 1.000000 + 3 44 1.000000 + 4 44 1.000000 + 5 44 1.000000 + 6 44 1.000000 + 7 44 1.000000 + 8 44 1.000000 + 9 44 1.000000 + 10 44 1.000000 + 11 44 1.000000 + 12 44 1.000000 + 13 44 1.000000 + 14 44 1.000000 + 15 44 1.000000 + 16 44 1.000000 + 17 44 1.000000 + 18 44 1.000000 + 19 44 1.000000 + 20 44 1.000000 + 21 44 1.000000 + 22 44 1.000000 + 23 44 1.000000 + 24 44 1.000000 + 25 44 1.000000 + 26 44 1.000000 + 27 44 1.000000 + 28 44 1.000000 + 29 44 1.000000 + 30 44 1.000000 + 31 44 1.000000 + 32 44 1.000000 + 33 44 1.000000 + 34 44 1.000000 + 35 44 1.000000 + 36 44 1.000000 + 37 44 1.000000 + 38 44 1.000000 + 39 44 1.000000 + 40 44 1.000000 + 41 44 1.000000 + 42 44 1.000000 + 43 44 1.000000 + 44 44 1.000000 + 45 44 1.000000 + 46 44 1.000000 + 47 44 1.000000 + 48 44 1.000000 + 49 44 1.000000 + 50 44 1.000000 + 51 44 1.000000 + 52 44 1.000000 + 53 44 1.000000 + 54 44 1.000000 + 55 44 1.000000 + 56 44 1.000000 + 57 44 1.000000 + 58 44 1.000000 + 59 44 1.000000 + 60 44 1.000000 + 61 44 1.000000 + 62 44 1.000000 + 63 44 1.000000 + 64 44 1.000000 + 65 44 1.000000 + 66 44 1.000000 + 67 44 1.000000 + 68 44 1.000000 + 69 44 1.000000 + 70 44 1.000000 + 71 44 1.000000 + 72 44 1.000000 + 73 44 1.000000 + 74 44 1.000000 + 75 44 1.000000 + 76 44 1.000000 + 77 44 1.000000 + 78 44 1.000000 + 79 44 1.000000 + 80 44 1.000000 + 81 44 1.000000 + 82 44 1.000000 + 83 44 1.000000 + 84 44 1.000000 + 85 44 1.000000 + 86 44 1.000000 + 87 44 1.000000 + 88 44 1.000000 + 89 44 1.000000 + 90 44 1.000000 + 91 44 1.000000 + 92 44 1.000000 + 93 44 1.000000 + 94 44 1.000000 + 95 44 1.000000 + 96 44 1.000000 + 97 44 1.000000 + 98 44 1.000000 + 99 44 1.000000 + 100 44 1.000000 + 101 44 1.000000 + 102 44 1.000000 + 103 44 1.000000 + 104 44 1.000000 + 105 44 1.000000 + 106 44 1.000000 + 107 44 1.000000 + 108 44 1.000000 + 109 44 1.000000 + 110 44 1.000000 + 111 44 1.000000 + 112 44 1.000000 + 113 44 1.000000 + 114 44 0.5014600 + 115 44 0.5014600 + 116 44 0.5014600 + 117 44 1.000000 + 118 44 1.000000 + 119 44 1.000000 + 120 44 1.000000 + 121 44 1.000000 + 122 44 1.000000 + 123 44 1.000000 + 124 44 0.9660218 + 125 44 0.9134505 + 126 44 0.8422902 + 127 44 0.7925717 + 128 44 0.7456945 + 129 44 0.7020026 + 130 44 0.6934583 + 131 44 0.6336577 + 132 44 0.5981379 + 133 44 0.5671488 + 134 44 0.5406142 + 135 44 0.5184398 + 136 44 0.5005152 + 137 44 0.4867215 + 138 44 0.4718549 + 139 44 0.4655301 + 140 44 0.4628920 + 141 44 0.4638061 + 142 44 0.4681401 + 143 44 0.4757635 + 144 44 0.4865498 + 145 44 0.5003740 + 146 44 0.5171140 + 147 44 0.5366471 + 148 44 0.5632102 + 149 44 0.5877344 + 150 44 0.5821212 + 151 44 0.6162387 + 152 44 0.6518522 + 153 44 0.6888998 + 154 44 0.7273085 + 155 44 0.7669899 + 156 44 0.8078444 + 157 44 0.8497602 + 158 44 0.8926156 + 159 44 0.9362800 + 160 44 0.9806138 + 1 45 1.000000 + 2 45 1.000000 + 3 45 1.000000 + 4 45 1.000000 + 5 45 1.000000 + 6 45 1.000000 + 7 45 1.000000 + 8 45 1.000000 + 9 45 1.000000 + 10 45 1.000000 + 11 45 1.000000 + 12 45 1.000000 + 13 45 1.000000 + 14 45 1.000000 + 15 45 1.000000 + 16 45 1.000000 + 17 45 1.000000 + 18 45 1.000000 + 19 45 1.000000 + 20 45 1.000000 + 21 45 1.000000 + 22 45 1.000000 + 23 45 1.000000 + 24 45 1.000000 + 25 45 1.000000 + 26 45 1.000000 + 27 45 1.000000 + 28 45 1.000000 + 29 45 1.000000 + 30 45 1.000000 + 31 45 1.000000 + 32 45 1.000000 + 33 45 1.000000 + 34 45 1.000000 + 35 45 1.000000 + 36 45 1.000000 + 37 45 1.000000 + 38 45 1.000000 + 39 45 1.000000 + 40 45 1.000000 + 41 45 1.000000 + 42 45 1.000000 + 43 45 1.000000 + 44 45 1.000000 + 45 45 1.000000 + 46 45 1.000000 + 47 45 1.000000 + 48 45 1.000000 + 49 45 1.000000 + 50 45 1.000000 + 51 45 1.000000 + 52 45 1.000000 + 53 45 1.000000 + 54 45 1.000000 + 55 45 1.000000 + 56 45 1.000000 + 57 45 1.000000 + 58 45 1.000000 + 59 45 1.000000 + 60 45 1.000000 + 61 45 1.000000 + 62 45 1.000000 + 63 45 1.000000 + 64 45 1.000000 + 65 45 1.000000 + 66 45 1.000000 + 67 45 1.000000 + 68 45 1.000000 + 69 45 1.000000 + 70 45 1.000000 + 71 45 1.000000 + 72 45 1.000000 + 73 45 1.000000 + 74 45 1.000000 + 75 45 1.000000 + 76 45 1.000000 + 77 45 1.000000 + 78 45 1.000000 + 79 45 1.000000 + 80 45 1.000000 + 81 45 1.000000 + 82 45 1.000000 + 83 45 1.000000 + 84 45 1.000000 + 85 45 1.000000 + 86 45 1.000000 + 87 45 1.000000 + 88 45 1.000000 + 89 45 1.000000 + 90 45 1.000000 + 91 45 1.000000 + 92 45 1.000000 + 93 45 1.000000 + 94 45 1.000000 + 95 45 1.000000 + 96 45 1.000000 + 97 45 1.000000 + 98 45 1.000000 + 99 45 1.000000 + 100 45 1.000000 + 101 45 1.000000 + 102 45 1.000000 + 103 45 1.000000 + 104 45 1.000000 + 105 45 1.000000 + 106 45 1.000000 + 107 45 1.000000 + 108 45 1.000000 + 109 45 1.000000 + 110 45 1.000000 + 111 45 1.000000 + 112 45 1.000000 + 113 45 1.000000 + 114 45 0.5014600 + 115 45 0.5014600 + 116 45 1.000000 + 117 45 1.000000 + 118 45 1.000000 + 119 45 1.000000 + 120 45 1.000000 + 121 45 1.000000 + 122 45 1.000000 + 123 45 1.000000 + 124 45 0.9605988 + 125 45 0.9082873 + 126 45 0.8578063 + 127 45 0.7905009 + 128 45 0.7436075 + 129 45 0.6997410 + 130 45 0.6916888 + 131 45 0.6492437 + 132 45 0.5935872 + 133 45 0.5618748 + 134 45 0.5344935 + 135 45 0.5113534 + 136 45 0.4923517 + 137 45 0.4722612 + 138 45 0.4608111 + 139 45 0.4530906 + 140 45 0.4489709 + 141 45 0.4483243 + 142 45 0.4510261 + 143 45 0.4569549 + 144 45 0.4659925 + 145 45 0.4780242 + 146 45 0.4929366 + 147 45 0.5106189 + 148 45 0.5309596 + 149 45 0.5580713 + 150 45 0.5831771 + 151 45 0.5816371 + 152 45 0.6155937 + 153 45 0.6510249 + 154 45 0.6878678 + 155 45 0.7260467 + 156 45 0.7654727 + 157 45 0.8060444 + 158 45 0.8476483 + 159 45 0.8901613 + 160 45 0.9334512 + 1 46 1.000000 + 2 46 1.000000 + 3 46 1.000000 + 4 46 1.000000 + 5 46 1.000000 + 6 46 1.000000 + 7 46 1.000000 + 8 46 1.000000 + 9 46 1.000000 + 10 46 1.000000 + 11 46 1.000000 + 12 46 1.000000 + 13 46 1.000000 + 14 46 1.000000 + 15 46 1.000000 + 16 46 1.000000 + 17 46 1.000000 + 18 46 1.000000 + 19 46 1.000000 + 20 46 1.000000 + 21 46 1.000000 + 22 46 1.000000 + 23 46 1.000000 + 24 46 1.000000 + 25 46 1.000000 + 26 46 1.000000 + 27 46 1.000000 + 28 46 1.000000 + 29 46 1.000000 + 30 46 1.000000 + 31 46 1.000000 + 32 46 1.000000 + 33 46 1.000000 + 34 46 1.000000 + 35 46 1.000000 + 36 46 1.000000 + 37 46 1.000000 + 38 46 1.000000 + 39 46 1.000000 + 40 46 1.000000 + 41 46 1.000000 + 42 46 1.000000 + 43 46 1.000000 + 44 46 1.000000 + 45 46 1.000000 + 46 46 1.000000 + 47 46 1.000000 + 48 46 1.000000 + 49 46 1.000000 + 50 46 1.000000 + 51 46 1.000000 + 52 46 1.000000 + 53 46 1.000000 + 54 46 1.000000 + 55 46 1.000000 + 56 46 1.000000 + 57 46 1.000000 + 58 46 1.000000 + 59 46 1.000000 + 60 46 1.000000 + 61 46 1.000000 + 62 46 1.000000 + 63 46 1.000000 + 64 46 1.000000 + 65 46 1.000000 + 66 46 1.000000 + 67 46 1.000000 + 68 46 1.000000 + 69 46 1.000000 + 70 46 1.000000 + 71 46 1.000000 + 72 46 1.000000 + 73 46 1.000000 + 74 46 1.000000 + 75 46 1.000000 + 76 46 1.000000 + 77 46 1.000000 + 78 46 1.000000 + 79 46 1.000000 + 80 46 1.000000 + 81 46 1.000000 + 82 46 1.000000 + 83 46 1.000000 + 84 46 1.000000 + 85 46 1.000000 + 86 46 1.000000 + 87 46 1.000000 + 88 46 1.000000 + 89 46 1.000000 + 90 46 1.000000 + 91 46 1.000000 + 92 46 1.000000 + 93 46 1.000000 + 94 46 1.000000 + 95 46 1.000000 + 96 46 1.000000 + 97 46 1.000000 + 98 46 1.000000 + 99 46 1.000000 + 100 46 1.000000 + 101 46 1.000000 + 102 46 1.000000 + 103 46 1.000000 + 104 46 1.000000 + 105 46 1.000000 + 106 46 1.000000 + 107 46 1.000000 + 108 46 1.000000 + 109 46 1.000000 + 110 46 1.000000 + 111 46 1.000000 + 112 46 1.000000 + 113 46 1.000000 + 114 46 1.000000 + 115 46 1.000000 + 116 46 1.000000 + 117 46 1.000000 + 118 46 1.000000 + 119 46 1.000000 + 120 46 1.000000 + 121 46 1.000000 + 122 46 1.000000 + 123 46 1.000000 + 124 46 0.9553110 + 125 46 0.9033293 + 126 46 0.8530242 + 127 46 0.8048819 + 128 46 0.7415386 + 129 46 0.6975648 + 130 46 0.6567427 + 131 46 0.6471049 + 132 46 0.6085346 + 133 46 0.5568770 + 134 46 0.5287369 + 135 46 0.5047191 + 136 46 0.4795392 + 137 46 0.4631112 + 138 46 0.4504381 + 139 46 0.4413968 + 140 46 0.4358642 + 141 46 0.4337191 + 142 46 0.4348432 + 143 46 0.4391220 + 144 46 0.4464450 + 145 46 0.4567050 + 146 46 0.4697978 + 147 46 0.4856216 + 148 46 0.5040750 + 149 46 0.5250558 + 150 46 0.5525464 + 151 46 0.5478796 + 152 46 0.5800703 + 153 46 0.6137554 + 154 46 0.6488847 + 155 46 0.6853933 + 156 46 0.7232035 + 157 46 0.7622240 + 158 46 0.8023522 + 159 46 0.8434735 + 160 46 0.8854640 + 1 47 1.000000 + 2 47 1.000000 + 3 47 1.000000 + 4 47 1.000000 + 5 47 1.000000 + 6 47 1.000000 + 7 47 1.000000 + 8 47 1.000000 + 9 47 1.000000 + 10 47 1.000000 + 11 47 1.000000 + 12 47 1.000000 + 13 47 1.000000 + 14 47 1.000000 + 15 47 1.000000 + 16 47 1.000000 + 17 47 1.000000 + 18 47 1.000000 + 19 47 1.000000 + 20 47 1.000000 + 21 47 1.000000 + 22 47 1.000000 + 23 47 1.000000 + 24 47 1.000000 + 25 47 1.000000 + 26 47 1.000000 + 27 47 1.000000 + 28 47 1.000000 + 29 47 1.000000 + 30 47 1.000000 + 31 47 1.000000 + 32 47 1.000000 + 33 47 1.000000 + 34 47 1.000000 + 35 47 1.000000 + 36 47 1.000000 + 37 47 1.000000 + 38 47 1.000000 + 39 47 1.000000 + 40 47 1.000000 + 41 47 1.000000 + 42 47 1.000000 + 43 47 1.000000 + 44 47 1.000000 + 45 47 1.000000 + 46 47 1.000000 + 47 47 1.000000 + 48 47 1.000000 + 49 47 1.000000 + 50 47 1.000000 + 51 47 1.000000 + 52 47 1.000000 + 53 47 1.000000 + 54 47 1.000000 + 55 47 1.000000 + 56 47 1.000000 + 57 47 1.000000 + 58 47 1.000000 + 59 47 1.000000 + 60 47 1.000000 + 61 47 1.000000 + 62 47 1.000000 + 63 47 1.000000 + 64 47 1.000000 + 65 47 1.000000 + 66 47 1.000000 + 67 47 1.000000 + 68 47 1.000000 + 69 47 1.000000 + 70 47 1.000000 + 71 47 1.000000 + 72 47 1.000000 + 73 47 1.000000 + 74 47 1.000000 + 75 47 1.000000 + 76 47 1.000000 + 77 47 1.000000 + 78 47 1.000000 + 79 47 1.000000 + 80 47 1.000000 + 81 47 1.000000 + 82 47 1.000000 + 83 47 1.000000 + 84 47 1.000000 + 85 47 1.000000 + 86 47 1.000000 + 87 47 1.000000 + 88 47 1.000000 + 89 47 1.000000 + 90 47 1.000000 + 91 47 1.000000 + 92 47 1.000000 + 93 47 1.000000 + 94 47 1.000000 + 95 47 1.000000 + 96 47 1.000000 + 97 47 1.000000 + 98 47 1.000000 + 99 47 1.000000 + 100 47 1.000000 + 101 47 1.000000 + 102 47 1.000000 + 103 47 1.000000 + 104 47 1.000000 + 105 47 1.000000 + 106 47 1.000000 + 107 47 1.000000 + 108 47 1.000000 + 109 47 1.000000 + 110 47 1.000000 + 111 47 0.9701962 + 112 47 1.000000 + 113 47 1.000000 + 114 47 1.000000 + 115 47 1.000000 + 116 47 1.000000 + 117 47 1.000000 + 118 47 1.000000 + 119 47 1.000000 + 120 47 1.000000 + 121 47 1.000000 + 122 47 1.000000 + 123 47 1.000000 + 124 47 0.9501376 + 125 47 0.8985488 + 126 47 0.8484898 + 127 47 0.8004414 + 128 47 0.7548201 + 129 47 0.6954798 + 130 47 0.6544673 + 131 47 0.6451835 + 132 47 0.6060507 + 133 47 0.5711560 + 134 47 0.5233328 + 135 47 0.4932318 + 136 47 0.4720036 + 137 47 0.4545406 + 138 47 0.4407264 + 139 47 0.4304433 + 140 47 0.4235723 + 141 47 0.4199981 + 142 47 0.4196073 + 143 47 0.4222914 + 144 47 0.4279461 + 145 47 0.4364703 + 146 47 0.4477678 + 147 47 0.4617439 + 148 47 0.4783058 + 149 47 0.4973611 + 150 47 0.5188159 + 151 47 0.5151522 + 152 47 0.5454921 + 153 47 0.5773283 + 154 47 0.6106201 + 155 47 0.6453146 + 156 47 0.6813450 + 157 47 0.7186310 + 158 47 0.7570803 + 159 47 0.7965882 + 160 47 0.8370386 + 1 48 1.000000 + 2 48 1.000000 + 3 48 1.000000 + 4 48 1.000000 + 5 48 1.000000 + 6 48 1.000000 + 7 48 1.000000 + 8 48 1.000000 + 9 48 1.000000 + 10 48 1.000000 + 11 48 1.000000 + 12 48 1.000000 + 13 48 1.000000 + 14 48 1.000000 + 15 48 1.000000 + 16 48 1.000000 + 17 48 1.000000 + 18 48 1.000000 + 19 48 1.000000 + 20 48 1.000000 + 21 48 1.000000 + 22 48 1.000000 + 23 48 1.000000 + 24 48 1.000000 + 25 48 1.000000 + 26 48 1.000000 + 27 48 1.000000 + 28 48 1.000000 + 29 48 1.000000 + 30 48 1.000000 + 31 48 1.000000 + 32 48 1.000000 + 33 48 1.000000 + 34 48 1.000000 + 35 48 1.000000 + 36 48 1.000000 + 37 48 1.000000 + 38 48 1.000000 + 39 48 1.000000 + 40 48 1.000000 + 41 48 1.000000 + 42 48 1.000000 + 43 48 1.000000 + 44 48 1.000000 + 45 48 1.000000 + 46 48 1.000000 + 47 48 1.000000 + 48 48 1.000000 + 49 48 1.000000 + 50 48 1.000000 + 51 48 1.000000 + 52 48 1.000000 + 53 48 1.000000 + 54 48 1.000000 + 55 48 1.000000 + 56 48 1.000000 + 57 48 1.000000 + 58 48 1.000000 + 59 48 1.000000 + 60 48 1.000000 + 61 48 1.000000 + 62 48 1.000000 + 63 48 1.000000 + 64 48 1.000000 + 65 48 1.000000 + 66 48 1.000000 + 67 48 1.000000 + 68 48 1.000000 + 69 48 1.000000 + 70 48 1.000000 + 71 48 1.000000 + 72 48 1.000000 + 73 48 1.000000 + 74 48 1.000000 + 75 48 1.000000 + 76 48 1.000000 + 77 48 1.000000 + 78 48 1.000000 + 79 48 1.000000 + 80 48 1.000000 + 81 48 1.000000 + 82 48 1.000000 + 83 48 1.000000 + 84 48 1.000000 + 85 48 1.000000 + 86 48 1.000000 + 87 48 1.000000 + 88 48 1.000000 + 89 48 1.000000 + 90 48 1.000000 + 91 48 1.000000 + 92 48 1.000000 + 93 48 1.000000 + 94 48 1.000000 + 95 48 1.000000 + 96 48 1.000000 + 97 48 1.000000 + 98 48 1.000000 + 99 48 1.000000 + 100 48 1.000000 + 101 48 1.000000 + 102 48 1.000000 + 103 48 1.000000 + 104 48 1.000000 + 105 48 1.000000 + 106 48 1.000000 + 107 48 1.000000 + 108 48 1.000000 + 109 48 1.000000 + 110 48 1.000000 + 111 48 0.9701962 + 112 48 1.000000 + 113 48 1.000000 + 114 48 1.000000 + 115 48 1.000000 + 116 48 1.000000 + 117 48 1.000000 + 118 48 1.000000 + 119 48 1.000000 + 120 48 1.000000 + 121 48 1.000000 + 122 48 1.000000 + 123 48 0.9793654 + 124 48 0.9450603 + 125 48 0.8939232 + 126 48 0.8441740 + 127 48 0.7962902 + 128 48 0.7506843 + 129 48 0.7077052 + 130 48 0.6523511 + 131 48 0.6434762 + 132 48 0.6038543 + 133 48 0.5683497 + 134 48 0.5313619 + 135 48 0.4870113 + 136 48 0.4649434 + 137 48 0.4465293 + 138 48 0.4316574 + 139 48 0.4202134 + 140 48 0.4120829 + 141 48 0.4071543 + 142 48 0.4053189 + 143 48 0.4064721 + 144 48 0.4105148 + 145 48 0.4173521 + 146 48 0.4268924 + 147 48 0.4390481 + 148 48 0.4537331 + 149 48 0.4708627 + 150 48 0.4903518 + 151 48 0.4836086 + 152 48 0.5120375 + 153 48 0.5419459 + 154 48 0.5733031 + 155 48 0.6060667 + 156 48 0.6401799 + 157 48 0.6755738 + 158 48 0.7121657 + 159 48 0.7498605 + 160 48 0.7885522 + 1 49 1.000000 + 2 49 1.000000 + 3 49 1.000000 + 4 49 1.000000 + 5 49 1.000000 + 6 49 1.000000 + 7 49 1.000000 + 8 49 1.000000 + 9 49 1.000000 + 10 49 1.000000 + 11 49 1.000000 + 12 49 1.000000 + 13 49 1.000000 + 14 49 1.000000 + 15 49 1.000000 + 16 49 1.000000 + 17 49 1.000000 + 18 49 1.000000 + 19 49 1.000000 + 20 49 1.000000 + 21 49 1.000000 + 22 49 1.000000 + 23 49 1.000000 + 24 49 1.000000 + 25 49 1.000000 + 26 49 1.000000 + 27 49 1.000000 + 28 49 1.000000 + 29 49 1.000000 + 30 49 1.000000 + 31 49 1.000000 + 32 49 1.000000 + 33 49 1.000000 + 34 49 1.000000 + 35 49 1.000000 + 36 49 1.000000 + 37 49 1.000000 + 38 49 1.000000 + 39 49 1.000000 + 40 49 1.000000 + 41 49 1.000000 + 42 49 1.000000 + 43 49 1.000000 + 44 49 1.000000 + 45 49 1.000000 + 46 49 1.000000 + 47 49 1.000000 + 48 49 1.000000 + 49 49 1.000000 + 50 49 1.000000 + 51 49 1.000000 + 52 49 1.000000 + 53 49 1.000000 + 54 49 1.000000 + 55 49 1.000000 + 56 49 1.000000 + 57 49 1.000000 + 58 49 1.000000 + 59 49 1.000000 + 60 49 1.000000 + 61 49 1.000000 + 62 49 1.000000 + 63 49 1.000000 + 64 49 1.000000 + 65 49 1.000000 + 66 49 1.000000 + 67 49 1.000000 + 68 49 1.000000 + 69 49 1.000000 + 70 49 1.000000 + 71 49 1.000000 + 72 49 1.000000 + 73 49 1.000000 + 74 49 1.000000 + 75 49 1.000000 + 76 49 1.000000 + 77 49 1.000000 + 78 49 1.000000 + 79 49 1.000000 + 80 49 1.000000 + 81 49 1.000000 + 82 49 1.000000 + 83 49 1.000000 + 84 49 1.000000 + 85 49 1.000000 + 86 49 1.000000 + 87 49 1.000000 + 88 49 1.000000 + 89 49 1.000000 + 90 49 1.000000 + 91 49 1.000000 + 92 49 1.000000 + 93 49 1.000000 + 94 49 1.000000 + 95 49 1.000000 + 96 49 1.000000 + 97 49 1.000000 + 98 49 1.000000 + 99 49 1.000000 + 100 49 1.000000 + 101 49 1.000000 + 102 49 1.000000 + 103 49 1.000000 + 104 49 1.000000 + 105 49 1.000000 + 106 49 1.000000 + 107 49 1.000000 + 108 49 1.000000 + 109 49 1.000000 + 110 49 1.000000 + 111 49 0.9701962 + 112 49 0.9701962 + 113 49 1.000000 + 114 49 1.000000 + 115 49 1.000000 + 116 49 1.000000 + 117 49 1.000000 + 118 49 1.000000 + 119 49 1.000000 + 120 49 1.000000 + 121 49 1.000000 + 122 49 1.000000 + 123 49 0.9756066 + 124 49 0.9400665 + 125 49 0.8894323 + 126 49 0.8400517 + 127 49 0.7923968 + 128 49 0.7468766 + 129 49 0.7038384 + 130 49 0.6635677 + 131 49 0.6419773 + 132 49 0.6019369 + 133 49 0.5601655 + 134 49 0.5277696 + 135 49 0.4992455 + 136 49 0.4583326 + 137 49 0.4390518 + 138 49 0.4232056 + 139 49 0.4106833 + 140 49 0.4013740 + 141 49 0.3951692 + 142 49 0.3919638 + 143 49 0.3916573 + 144 49 0.3941534 + 145 49 0.3993619 + 146 49 0.4071955 + 147 49 0.4175719 + 148 49 0.4304108 + 149 49 0.4456334 + 150 49 0.4631612 + 151 49 0.4497514 + 152 49 0.4798514 + 153 49 0.5077788 + 154 49 0.5371310 + 155 49 0.5678735 + 156 49 0.5999601 + 157 49 0.6333318 + 158 49 0.6679151 + 159 49 0.7036259 + 160 49 0.7403672 + 1 50 1.000000 + 2 50 1.000000 + 3 50 1.000000 + 4 50 1.000000 + 5 50 1.000000 + 6 50 1.000000 + 7 50 1.000000 + 8 50 1.000000 + 9 50 1.000000 + 10 50 1.000000 + 11 50 1.000000 + 12 50 1.000000 + 13 50 1.000000 + 14 50 1.000000 + 15 50 1.000000 + 16 50 1.000000 + 17 50 1.000000 + 18 50 1.000000 + 19 50 1.000000 + 20 50 1.000000 + 21 50 1.000000 + 22 50 1.000000 + 23 50 1.000000 + 24 50 1.000000 + 25 50 1.000000 + 26 50 1.000000 + 27 50 1.000000 + 28 50 1.000000 + 29 50 1.000000 + 30 50 1.000000 + 31 50 1.000000 + 32 50 1.000000 + 33 50 1.000000 + 34 50 1.000000 + 35 50 1.000000 + 36 50 1.000000 + 37 50 1.000000 + 38 50 1.000000 + 39 50 1.000000 + 40 50 1.000000 + 41 50 1.000000 + 42 50 1.000000 + 43 50 1.000000 + 44 50 1.000000 + 45 50 1.000000 + 46 50 1.000000 + 47 50 1.000000 + 48 50 1.000000 + 49 50 1.000000 + 50 50 1.000000 + 51 50 1.000000 + 52 50 1.000000 + 53 50 1.000000 + 54 50 1.000000 + 55 50 1.000000 + 56 50 1.000000 + 57 50 1.000000 + 58 50 1.000000 + 59 50 1.000000 + 60 50 1.000000 + 61 50 1.000000 + 62 50 1.000000 + 63 50 1.000000 + 64 50 1.000000 + 65 50 1.000000 + 66 50 1.000000 + 67 50 1.000000 + 68 50 1.000000 + 69 50 1.000000 + 70 50 1.000000 + 71 50 1.000000 + 72 50 1.000000 + 73 50 1.000000 + 74 50 1.000000 + 75 50 1.000000 + 76 50 1.000000 + 77 50 1.000000 + 78 50 1.000000 + 79 50 1.000000 + 80 50 1.000000 + 81 50 1.000000 + 82 50 1.000000 + 83 50 1.000000 + 84 50 1.000000 + 85 50 1.000000 + 86 50 1.000000 + 87 50 1.000000 + 88 50 1.000000 + 89 50 1.000000 + 90 50 1.000000 + 91 50 1.000000 + 92 50 1.000000 + 93 50 1.000000 + 94 50 1.000000 + 95 50 1.000000 + 96 50 1.000000 + 97 50 1.000000 + 98 50 1.000000 + 99 50 1.000000 + 100 50 1.000000 + 101 50 1.000000 + 102 50 1.000000 + 103 50 1.000000 + 104 50 1.000000 + 105 50 1.000000 + 106 50 1.000000 + 107 50 1.000000 + 108 50 1.000000 + 109 50 1.000000 + 110 50 1.000000 + 111 50 0.9701962 + 112 50 0.9701962 + 113 50 1.000000 + 114 50 1.000000 + 115 50 1.000000 + 116 50 1.000000 + 117 50 1.000000 + 118 50 1.000000 + 119 50 1.000000 + 120 50 1.000000 + 121 50 1.000000 + 122 50 1.000000 + 123 50 0.9512876 + 124 50 0.9183872 + 125 50 0.8850605 + 126 50 0.8361020 + 127 50 0.7887340 + 128 50 0.7433636 + 129 50 0.7003358 + 130 50 0.6599361 + 131 50 0.6223922 + 132 50 0.5943781 + 133 50 0.5575503 + 134 50 0.5245484 + 135 50 0.4953100 + 136 50 0.4521419 + 137 50 0.4320768 + 138 50 0.4153393 + 139 50 0.4018215 + 140 50 0.3914155 + 141 50 0.3840154 + 142 50 0.3795186 + 143 50 0.3778273 + 144 50 0.3788489 + 145 50 0.3824948 + 146 50 0.3886826 + 147 50 0.3973329 + 148 50 0.4083697 + 149 50 0.4217196 + 150 50 0.4373093 + 151 50 0.4209726 + 152 50 0.4490478 + 153 50 0.4749647 + 154 50 0.5022658 + 155 50 0.5309249 + 156 50 0.5609039 + 157 50 0.5921527 + 158 50 0.6246073 + 159 50 0.6581928 + 160 50 0.6928219 + 1 51 1.000000 + 2 51 1.000000 + 3 51 1.000000 + 4 51 1.000000 + 5 51 1.000000 + 6 51 1.000000 + 7 51 1.000000 + 8 51 1.000000 + 9 51 1.000000 + 10 51 1.000000 + 11 51 1.000000 + 12 51 1.000000 + 13 51 1.000000 + 14 51 1.000000 + 15 51 1.000000 + 16 51 1.000000 + 17 51 1.000000 + 18 51 1.000000 + 19 51 1.000000 + 20 51 1.000000 + 21 51 1.000000 + 22 51 1.000000 + 23 51 1.000000 + 24 51 1.000000 + 25 51 1.000000 + 26 51 1.000000 + 27 51 1.000000 + 28 51 1.000000 + 29 51 1.000000 + 30 51 1.000000 + 31 51 1.000000 + 32 51 1.000000 + 33 51 1.000000 + 34 51 1.000000 + 35 51 1.000000 + 36 51 1.000000 + 37 51 1.000000 + 38 51 1.000000 + 39 51 1.000000 + 40 51 1.000000 + 41 51 1.000000 + 42 51 1.000000 + 43 51 1.000000 + 44 51 1.000000 + 45 51 1.000000 + 46 51 1.000000 + 47 51 1.000000 + 48 51 1.000000 + 49 51 1.000000 + 50 51 1.000000 + 51 51 1.000000 + 52 51 1.000000 + 53 51 1.000000 + 54 51 1.000000 + 55 51 1.000000 + 56 51 1.000000 + 57 51 1.000000 + 58 51 1.000000 + 59 51 1.000000 + 60 51 1.000000 + 61 51 1.000000 + 62 51 1.000000 + 63 51 1.000000 + 64 51 1.000000 + 65 51 1.000000 + 66 51 1.000000 + 67 51 1.000000 + 68 51 1.000000 + 69 51 1.000000 + 70 51 1.000000 + 71 51 1.000000 + 72 51 1.000000 + 73 51 1.000000 + 74 51 1.000000 + 75 51 1.000000 + 76 51 1.000000 + 77 51 1.000000 + 78 51 1.000000 + 79 51 1.000000 + 80 51 1.000000 + 81 51 1.000000 + 82 51 1.000000 + 83 51 1.000000 + 84 51 1.000000 + 85 51 1.000000 + 86 51 1.000000 + 87 51 1.000000 + 88 51 1.000000 + 89 51 1.000000 + 90 51 1.000000 + 91 51 1.000000 + 92 51 1.000000 + 93 51 1.000000 + 94 51 1.000000 + 95 51 1.000000 + 96 51 1.000000 + 97 51 1.000000 + 98 51 1.000000 + 99 51 1.000000 + 100 51 1.000000 + 101 51 1.000000 + 102 51 1.000000 + 103 51 1.000000 + 104 51 1.000000 + 105 51 1.000000 + 106 51 1.000000 + 107 51 1.000000 + 108 51 1.000000 + 109 51 1.000000 + 110 51 1.000000 + 111 51 0.9701962 + 112 51 0.9701962 + 113 51 1.000000 + 114 51 1.000000 + 115 51 1.000000 + 116 51 1.000000 + 117 51 1.000000 + 118 51 1.000000 + 119 51 1.000000 + 120 51 1.000000 + 121 51 1.000000 + 122 51 1.000000 + 123 51 0.9625601 + 124 51 0.9306959 + 125 51 0.8631243 + 126 51 0.8323063 + 127 51 0.7852792 + 128 51 0.7611635 + 129 51 0.7188740 + 130 51 0.6790037 + 131 51 0.6357327 + 132 51 0.6269036 + 133 51 0.5907431 + 134 51 0.5451458 + 135 51 0.5153933 + 136 51 0.4891303 + 137 51 0.4495121 + 138 51 0.4080229 + 139 51 0.3935916 + 140 51 0.3821708 + 141 51 0.3736569 + 142 51 0.3679494 + 143 51 0.3649523 + 144 51 0.3645751 + 145 51 0.3667318 + 146 51 0.3713418 + 147 51 0.3783285 + 148 51 0.3876196 + 149 51 0.3991444 + 150 51 0.4128345 + 151 51 0.4286210 + 152 51 0.4163147 + 153 51 0.4436092 + 154 51 0.4688381 + 155 51 0.4953773 + 156 51 0.5231954 + 157 51 0.5522501 + 158 51 0.5824867 + 159 51 0.6138378 + 160 51 0.6462253 + 1 52 1.000000 + 2 52 1.000000 + 3 52 1.000000 + 4 52 1.000000 + 5 52 1.000000 + 6 52 1.000000 + 7 52 1.000000 + 8 52 1.000000 + 9 52 1.000000 + 10 52 1.000000 + 11 52 1.000000 + 12 52 1.000000 + 13 52 1.000000 + 14 52 1.000000 + 15 52 1.000000 + 16 52 1.000000 + 17 52 1.000000 + 18 52 1.000000 + 19 52 1.000000 + 20 52 1.000000 + 21 52 1.000000 + 22 52 1.000000 + 23 52 1.000000 + 24 52 1.000000 + 25 52 1.000000 + 26 52 1.000000 + 27 52 1.000000 + 28 52 1.000000 + 29 52 1.000000 + 30 52 1.000000 + 31 52 1.000000 + 32 52 1.000000 + 33 52 1.000000 + 34 52 1.000000 + 35 52 1.000000 + 36 52 1.000000 + 37 52 1.000000 + 38 52 1.000000 + 39 52 1.000000 + 40 52 1.000000 + 41 52 1.000000 + 42 52 1.000000 + 43 52 1.000000 + 44 52 1.000000 + 45 52 1.000000 + 46 52 1.000000 + 47 52 1.000000 + 48 52 1.000000 + 49 52 1.000000 + 50 52 1.000000 + 51 52 1.000000 + 52 52 1.000000 + 53 52 1.000000 + 54 52 1.000000 + 55 52 1.000000 + 56 52 1.000000 + 57 52 1.000000 + 58 52 1.000000 + 59 52 1.000000 + 60 52 1.000000 + 61 52 1.000000 + 62 52 1.000000 + 63 52 1.000000 + 64 52 1.000000 + 65 52 1.000000 + 66 52 1.000000 + 67 52 1.000000 + 68 52 1.000000 + 69 52 1.000000 + 70 52 1.000000 + 71 52 1.000000 + 72 52 1.000000 + 73 52 1.000000 + 74 52 1.000000 + 75 52 1.000000 + 76 52 1.000000 + 77 52 1.000000 + 78 52 1.000000 + 79 52 1.000000 + 80 52 1.000000 + 81 52 1.000000 + 82 52 1.000000 + 83 52 1.000000 + 84 52 1.000000 + 85 52 1.000000 + 86 52 1.000000 + 87 52 1.000000 + 88 52 1.000000 + 89 52 1.000000 + 90 52 1.000000 + 91 52 1.000000 + 92 52 1.000000 + 93 52 1.000000 + 94 52 1.000000 + 95 52 1.000000 + 96 52 1.000000 + 97 52 1.000000 + 98 52 1.000000 + 99 52 1.000000 + 100 52 1.000000 + 101 52 1.000000 + 102 52 1.000000 + 103 52 1.000000 + 104 52 1.000000 + 105 52 1.000000 + 106 52 1.000000 + 107 52 1.000000 + 108 52 1.000000 + 109 52 1.000000 + 110 52 1.000000 + 111 52 0.9701962 + 112 52 0.9701962 + 113 52 1.000000 + 114 52 1.000000 + 115 52 1.000000 + 116 52 1.000000 + 117 52 1.000000 + 118 52 1.000000 + 119 52 1.000000 + 120 52 1.000000 + 121 52 1.000000 + 122 52 1.000000 + 123 52 0.9785058 + 124 52 0.9313118 + 125 52 0.8984261 + 126 52 0.8660119 + 127 52 0.8049063 + 128 52 0.7608474 + 129 52 0.7187942 + 130 52 0.6728970 + 131 52 0.6352068 + 132 52 0.6266344 + 133 52 0.5900692 + 134 52 0.5570514 + 135 52 0.5154563 + 136 52 0.4885473 + 137 52 0.4649310 + 138 52 0.4283313 + 139 52 0.4128279 + 140 52 0.4001568 + 141 52 0.3902214 + 142 52 0.3829282 + 143 52 0.3529933 + 144 52 0.3512965 + 145 52 0.3520409 + 146 52 0.3551472 + 147 52 0.3605411 + 148 52 0.3681515 + 149 52 0.3779109 + 150 52 0.3897532 + 151 52 0.4036134 + 152 52 0.3885987 + 153 52 0.4105687 + 154 52 0.4369455 + 155 52 0.4613527 + 156 52 0.4869840 + 157 52 0.5138032 + 158 52 0.5417628 + 159 52 0.5708033 + 160 52 0.6008548 + 1 53 1.000000 + 2 53 1.000000 + 3 53 1.000000 + 4 53 1.000000 + 5 53 1.000000 + 6 53 1.000000 + 7 53 1.000000 + 8 53 1.000000 + 9 53 1.000000 + 10 53 1.000000 + 11 53 1.000000 + 12 53 1.000000 + 13 53 1.000000 + 14 53 1.000000 + 15 53 1.000000 + 16 53 1.000000 + 17 53 1.000000 + 18 53 1.000000 + 19 53 1.000000 + 20 53 1.000000 + 21 53 1.000000 + 22 53 1.000000 + 23 53 1.000000 + 24 53 1.000000 + 25 53 1.000000 + 26 53 1.000000 + 27 53 1.000000 + 28 53 1.000000 + 29 53 1.000000 + 30 53 1.000000 + 31 53 1.000000 + 32 53 1.000000 + 33 53 1.000000 + 34 53 1.000000 + 35 53 1.000000 + 36 53 1.000000 + 37 53 1.000000 + 38 53 1.000000 + 39 53 1.000000 + 40 53 1.000000 + 41 53 1.000000 + 42 53 1.000000 + 43 53 1.000000 + 44 53 1.000000 + 45 53 1.000000 + 46 53 1.000000 + 47 53 1.000000 + 48 53 1.000000 + 49 53 1.000000 + 50 53 1.000000 + 51 53 1.000000 + 52 53 1.000000 + 53 53 1.000000 + 54 53 1.000000 + 55 53 1.000000 + 56 53 1.000000 + 57 53 1.000000 + 58 53 1.000000 + 59 53 1.000000 + 60 53 1.000000 + 61 53 1.000000 + 62 53 1.000000 + 63 53 1.000000 + 64 53 1.000000 + 65 53 1.000000 + 66 53 1.000000 + 67 53 1.000000 + 68 53 1.000000 + 69 53 1.000000 + 70 53 1.000000 + 71 53 1.000000 + 72 53 1.000000 + 73 53 1.000000 + 74 53 1.000000 + 75 53 1.000000 + 76 53 1.000000 + 77 53 1.000000 + 78 53 1.000000 + 79 53 1.000000 + 80 53 1.000000 + 81 53 1.000000 + 82 53 1.000000 + 83 53 1.000000 + 84 53 1.000000 + 85 53 1.000000 + 86 53 1.000000 + 87 53 1.000000 + 88 53 1.000000 + 89 53 1.000000 + 90 53 1.000000 + 91 53 1.000000 + 92 53 1.000000 + 93 53 1.000000 + 94 53 1.000000 + 95 53 1.000000 + 96 53 1.000000 + 97 53 1.000000 + 98 53 1.000000 + 99 53 1.000000 + 100 53 1.000000 + 101 53 1.000000 + 102 53 1.000000 + 103 53 1.000000 + 104 53 1.000000 + 105 53 1.000000 + 106 53 1.000000 + 107 53 1.000000 + 108 53 1.000000 + 109 53 1.000000 + 110 53 1.000000 + 111 53 0.9701962 + 112 53 0.5014600 + 113 53 1.000000 + 114 53 1.000000 + 115 53 1.000000 + 116 53 1.000000 + 117 53 1.000000 + 118 53 1.000000 + 119 53 1.000000 + 120 53 1.000000 + 121 53 1.000000 + 122 53 1.000000 + 123 53 0.9779620 + 124 53 0.9319053 + 125 53 0.9004772 + 126 53 0.8510634 + 127 53 0.8210801 + 128 53 0.7766770 + 129 53 0.7131337 + 130 53 0.6730806 + 131 53 0.6353871 + 132 53 0.6271319 + 133 53 0.5902422 + 134 53 0.5567767 + 135 53 0.5266873 + 136 53 0.4999074 + 137 53 0.4644898 + 138 53 0.4432832 + 139 53 0.4094922 + 140 53 0.3959551 + 141 53 0.3850459 + 142 53 0.3766730 + 143 53 0.3707487 + 144 53 0.3671908 + 145 53 0.3659219 + 146 53 0.3400619 + 147 53 0.3439384 + 148 53 0.3499410 + 149 53 0.3580033 + 150 53 0.3680611 + 151 53 0.3800516 + 152 53 0.3624569 + 153 53 0.3824429 + 154 53 0.4066555 + 155 53 0.4289420 + 156 53 0.4523854 + 157 53 0.4769550 + 158 53 0.5026092 + 159 53 0.5292957 + 160 53 0.5569506 + 1 54 1.000000 + 2 54 1.000000 + 3 54 1.000000 + 4 54 1.000000 + 5 54 1.000000 + 6 54 1.000000 + 7 54 1.000000 + 8 54 1.000000 + 9 54 1.000000 + 10 54 1.000000 + 11 54 1.000000 + 12 54 1.000000 + 13 54 1.000000 + 14 54 1.000000 + 15 54 1.000000 + 16 54 1.000000 + 17 54 1.000000 + 18 54 1.000000 + 19 54 1.000000 + 20 54 1.000000 + 21 54 1.000000 + 22 54 1.000000 + 23 54 1.000000 + 24 54 1.000000 + 25 54 1.000000 + 26 54 1.000000 + 27 54 1.000000 + 28 54 1.000000 + 29 54 1.000000 + 30 54 1.000000 + 31 54 1.000000 + 32 54 1.000000 + 33 54 1.000000 + 34 54 1.000000 + 35 54 1.000000 + 36 54 1.000000 + 37 54 1.000000 + 38 54 1.000000 + 39 54 1.000000 + 40 54 1.000000 + 41 54 1.000000 + 42 54 1.000000 + 43 54 1.000000 + 44 54 1.000000 + 45 54 1.000000 + 46 54 1.000000 + 47 54 1.000000 + 48 54 1.000000 + 49 54 1.000000 + 50 54 1.000000 + 51 54 1.000000 + 52 54 1.000000 + 53 54 1.000000 + 54 54 1.000000 + 55 54 1.000000 + 56 54 1.000000 + 57 54 1.000000 + 58 54 1.000000 + 59 54 1.000000 + 60 54 1.000000 + 61 54 0.5958440 + 62 54 0.6096405 + 63 54 0.6223648 + 64 54 0.6417501 + 65 54 0.6518058 + 66 54 0.6598130 + 67 54 0.6760266 + 68 54 0.6807351 + 69 54 0.6830207 + 70 54 0.6828364 + 71 54 0.6802022 + 72 54 0.6752067 + 73 54 0.6680071 + 74 54 0.6588302 + 75 54 0.6452689 + 76 54 1.000000 + 77 54 1.000000 + 78 54 1.000000 + 79 54 1.000000 + 80 54 1.000000 + 81 54 1.000000 + 82 54 1.000000 + 83 54 1.000000 + 84 54 1.000000 + 85 54 1.000000 + 86 54 1.000000 + 87 54 1.000000 + 88 54 1.000000 + 89 54 1.000000 + 90 54 1.000000 + 91 54 1.000000 + 92 54 1.000000 + 93 54 1.000000 + 94 54 1.000000 + 95 54 1.000000 + 96 54 1.000000 + 97 54 1.000000 + 98 54 1.000000 + 99 54 1.000000 + 100 54 1.000000 + 101 54 1.000000 + 102 54 1.000000 + 103 54 1.000000 + 104 54 1.000000 + 105 54 1.000000 + 106 54 1.000000 + 107 54 1.000000 + 108 54 1.000000 + 109 54 1.000000 + 110 54 1.000000 + 111 54 1.000000 + 112 54 1.000000 + 113 54 1.000000 + 114 54 1.000000 + 115 54 1.000000 + 116 54 1.000000 + 117 54 1.000000 + 118 54 1.000000 + 119 54 1.000000 + 120 54 1.000000 + 121 54 1.000000 + 122 54 1.000000 + 123 54 0.9777924 + 124 54 0.9328820 + 125 54 0.9029221 + 126 54 0.8544365 + 127 54 0.8066333 + 128 54 0.7729400 + 129 54 0.7301723 + 130 54 0.6739058 + 131 54 0.6362749 + 132 54 0.6010457 + 133 54 0.5912527 + 134 54 0.5574174 + 135 54 0.5268402 + 136 54 0.4994577 + 137 54 0.4751930 + 138 54 0.4539597 + 139 54 0.4071306 + 140 54 0.3928050 + 141 54 0.3810001 + 142 54 0.3716249 + 143 54 0.3645940 + 144 54 0.3598257 + 145 54 0.3572434 + 146 54 0.3567759 + 147 54 0.3583562 + 148 54 0.3619217 + 149 54 0.3393913 + 150 54 0.3477366 + 151 54 0.3579247 + 152 54 0.3378948 + 153 54 0.3559440 + 154 54 0.3751097 + 155 54 0.3982056 + 156 54 0.4194831 + 157 54 0.4418147 + 158 54 0.4651635 + 159 54 0.4894829 + 160 54 0.5147161 + 1 55 1.000000 + 2 55 1.000000 + 3 55 1.000000 + 4 55 1.000000 + 5 55 1.000000 + 6 55 1.000000 + 7 55 1.000000 + 8 55 1.000000 + 9 55 1.000000 + 10 55 1.000000 + 11 55 1.000000 + 12 55 1.000000 + 13 55 1.000000 + 14 55 1.000000 + 15 55 1.000000 + 16 55 1.000000 + 17 55 1.000000 + 18 55 1.000000 + 19 55 1.000000 + 20 55 1.000000 + 21 55 1.000000 + 22 55 1.000000 + 23 55 1.000000 + 24 55 1.000000 + 25 55 1.000000 + 26 55 1.000000 + 27 55 1.000000 + 28 55 1.000000 + 29 55 1.000000 + 30 55 1.000000 + 31 55 1.000000 + 32 55 1.000000 + 33 55 1.000000 + 34 55 1.000000 + 35 55 1.000000 + 36 55 1.000000 + 37 55 1.000000 + 38 55 1.000000 + 39 55 1.000000 + 40 55 1.000000 + 41 55 1.000000 + 42 55 1.000000 + 43 55 1.000000 + 44 55 1.000000 + 45 55 1.000000 + 46 55 1.000000 + 47 55 1.000000 + 48 55 1.000000 + 49 55 1.000000 + 50 55 1.000000 + 51 55 1.000000 + 52 55 1.000000 + 53 55 1.000000 + 54 55 1.000000 + 55 55 1.000000 + 56 55 1.000000 + 57 55 1.000000 + 58 55 1.000000 + 59 55 1.000000 + 60 55 1.000000 + 61 55 0.5861806 + 62 55 0.6070521 + 63 55 0.6195778 + 64 55 0.6306765 + 65 55 0.6400170 + 66 55 0.6570939 + 67 55 0.6634902 + 68 55 0.6675950 + 69 55 0.6693017 + 70 55 0.6685674 + 71 55 0.6654161 + 72 55 0.6599392 + 73 55 0.6522971 + 74 55 0.6427181 + 75 55 0.6287860 + 76 55 1.000000 + 77 55 1.000000 + 78 55 1.000000 + 79 55 1.000000 + 80 55 1.000000 + 81 55 1.000000 + 82 55 1.000000 + 83 55 1.000000 + 84 55 1.000000 + 85 55 1.000000 + 86 55 1.000000 + 87 55 1.000000 + 88 55 1.000000 + 89 55 1.000000 + 90 55 1.000000 + 91 55 1.000000 + 92 55 1.000000 + 93 55 1.000000 + 94 55 1.000000 + 95 55 1.000000 + 96 55 1.000000 + 97 55 1.000000 + 98 55 1.000000 + 99 55 1.000000 + 100 55 1.000000 + 101 55 1.000000 + 102 55 1.000000 + 103 55 1.000000 + 104 55 1.000000 + 105 55 1.000000 + 106 55 1.000000 + 107 55 1.000000 + 108 55 0.9701962 + 109 55 1.000000 + 110 55 1.000000 + 111 55 1.000000 + 112 55 1.000000 + 113 55 1.000000 + 114 55 1.000000 + 115 55 1.000000 + 116 55 1.000000 + 117 55 1.000000 + 118 55 1.000000 + 119 55 1.000000 + 120 55 1.000000 + 121 55 1.000000 + 122 55 1.000000 + 123 55 0.9780588 + 124 55 0.9343034 + 125 55 0.8897619 + 126 55 0.8582790 + 127 55 0.8113344 + 128 55 0.7757255 + 129 55 0.7332479 + 130 55 0.6926250 + 131 55 0.6540889 + 132 55 0.6026486 + 133 55 0.5931002 + 134 55 0.5589677 + 135 55 0.5279777 + 136 55 0.5000692 + 137 55 0.4751676 + 138 55 0.4531885 + 139 55 0.4340408 + 140 55 0.4013973 + 141 55 0.3780846 + 142 55 0.3677832 + 143 55 0.3597209 + 144 55 0.3538176 + 145 55 0.3499975 + 146 55 0.3481897 + 147 55 0.3483279 + 148 55 0.3503499 + 149 55 0.3541973 + 150 55 0.3598138 + 151 55 0.3372055 + 152 55 0.3238938 + 153 55 0.3310704 + 154 55 0.3482723 + 155 55 0.3691761 + 156 55 0.3883305 + 157 55 0.4084588 + 158 55 0.4295285 + 159 55 0.4514979 + 160 55 0.4743144 + 1 56 1.000000 + 2 56 1.000000 + 3 56 1.000000 + 4 56 1.000000 + 5 56 1.000000 + 6 56 1.000000 + 7 56 1.000000 + 8 56 1.000000 + 9 56 1.000000 + 10 56 1.000000 + 11 56 1.000000 + 12 56 1.000000 + 13 56 1.000000 + 14 56 1.000000 + 15 56 1.000000 + 16 56 1.000000 + 17 56 1.000000 + 18 56 1.000000 + 19 56 1.000000 + 20 56 1.000000 + 21 56 1.000000 + 22 56 1.000000 + 23 56 1.000000 + 24 56 1.000000 + 25 56 1.000000 + 26 56 1.000000 + 27 56 1.000000 + 28 56 1.000000 + 29 56 1.000000 + 30 56 1.000000 + 31 56 1.000000 + 32 56 1.000000 + 33 56 1.000000 + 34 56 1.000000 + 35 56 1.000000 + 36 56 1.000000 + 37 56 1.000000 + 38 56 1.000000 + 39 56 1.000000 + 40 56 1.000000 + 41 56 1.000000 + 42 56 1.000000 + 43 56 1.000000 + 44 56 1.000000 + 45 56 1.000000 + 46 56 1.000000 + 47 56 1.000000 + 48 56 1.000000 + 49 56 1.000000 + 50 56 1.000000 + 51 56 1.000000 + 52 56 1.000000 + 53 56 1.000000 + 54 56 1.000000 + 55 56 1.000000 + 56 56 1.000000 + 57 56 1.000000 + 58 56 1.000000 + 59 56 1.000000 + 60 56 1.000000 + 61 56 0.5841510 + 62 56 0.5970340 + 63 56 0.6088541 + 64 56 0.6192450 + 65 56 0.6369785 + 66 56 0.6448773 + 67 56 0.6506690 + 68 56 0.6541926 + 69 56 0.6553462 + 70 56 0.6540914 + 71 56 0.6504555 + 72 56 0.6445342 + 73 56 0.6364900 + 74 56 0.6241769 + 75 56 0.6122996 + 76 56 1.000000 + 77 56 1.000000 + 78 56 1.000000 + 79 56 1.000000 + 80 56 1.000000 + 81 56 1.000000 + 82 56 1.000000 + 83 56 1.000000 + 84 56 1.000000 + 85 56 1.000000 + 86 56 1.000000 + 87 56 1.000000 + 88 56 1.000000 + 89 56 1.000000 + 90 56 1.000000 + 91 56 1.000000 + 92 56 1.000000 + 93 56 1.000000 + 94 56 1.000000 + 95 56 1.000000 + 96 56 1.000000 + 97 56 1.000000 + 98 56 1.000000 + 99 56 1.000000 + 100 56 1.000000 + 101 56 1.000000 + 102 56 1.000000 + 103 56 1.000000 + 104 56 1.000000 + 105 56 1.000000 + 106 56 1.000000 + 107 56 1.000000 + 108 56 1.000000 + 109 56 1.000000 + 110 56 1.000000 + 111 56 1.000000 + 112 56 1.000000 + 113 56 1.000000 + 114 56 1.000000 + 115 56 1.000000 + 116 56 1.000000 + 117 56 1.000000 + 118 56 1.000000 + 119 56 1.000000 + 120 56 1.000000 + 121 56 1.000000 + 122 56 1.000000 + 123 56 0.9788274 + 124 56 0.9362346 + 125 56 0.8927828 + 126 56 0.8626546 + 127 56 0.8098770 + 128 56 0.7641093 + 129 56 0.7371185 + 130 56 0.6967048 + 131 56 0.6582515 + 132 56 0.6219442 + 133 56 0.5957913 + 134 56 0.5614310 + 135 56 0.5300984 + 136 56 0.5017357 + 137 56 0.4762709 + 138 56 0.4536217 + 139 56 0.4336989 + 140 56 0.3988887 + 141 56 0.3861363 + 142 56 0.3756426 + 143 56 0.3561289 + 144 56 0.3491639 + 145 56 0.3441792 + 146 56 0.3411045 + 147 56 0.3398736 + 148 56 0.3404250 + 149 56 0.3427002 + 150 56 0.3466435 + 151 56 0.3522016 + 152 56 0.3272009 + 153 56 0.3238938 + 154 56 0.3238938 + 155 56 0.3393466 + 156 56 0.3589541 + 157 56 0.3769344 + 158 56 0.3957745 + 159 56 0.4154362 + 160 56 0.4358720 + 1 57 1.000000 + 2 57 1.000000 + 3 57 1.000000 + 4 57 1.000000 + 5 57 1.000000 + 6 57 1.000000 + 7 57 1.000000 + 8 57 1.000000 + 9 57 1.000000 + 10 57 1.000000 + 11 57 1.000000 + 12 57 1.000000 + 13 57 1.000000 + 14 57 1.000000 + 15 57 1.000000 + 16 57 1.000000 + 17 57 1.000000 + 18 57 1.000000 + 19 57 1.000000 + 20 57 1.000000 + 21 57 1.000000 + 22 57 1.000000 + 23 57 1.000000 + 24 57 1.000000 + 25 57 1.000000 + 26 57 1.000000 + 27 57 1.000000 + 28 57 1.000000 + 29 57 1.000000 + 30 57 1.000000 + 31 57 1.000000 + 32 57 1.000000 + 33 57 1.000000 + 34 57 1.000000 + 35 57 1.000000 + 36 57 1.000000 + 37 57 1.000000 + 38 57 1.000000 + 39 57 1.000000 + 40 57 1.000000 + 41 57 1.000000 + 42 57 1.000000 + 43 57 1.000000 + 44 57 1.000000 + 45 57 1.000000 + 46 57 1.000000 + 47 57 1.000000 + 48 57 1.000000 + 49 57 1.000000 + 50 57 1.000000 + 51 57 1.000000 + 52 57 1.000000 + 53 57 1.000000 + 54 57 1.000000 + 55 57 1.000000 + 56 57 1.000000 + 57 57 1.000000 + 58 57 0.5100849 + 59 57 0.5288848 + 60 57 0.5616121 + 61 57 0.5744694 + 62 57 0.5866554 + 63 57 0.5977749 + 64 57 1.000000 + 65 57 1.000000 + 66 57 1.000000 + 67 57 0.6375790 + 68 57 0.6405454 + 69 57 0.6411731 + 70 57 0.6394288 + 71 57 0.6353438 + 72 57 0.6290162 + 73 57 0.6206114 + 74 57 0.6079803 + 75 57 0.5958401 + 76 57 0.5824716 + 77 57 0.5682801 + 78 57 0.5537164 + 79 57 0.5392671 + 80 57 0.5254454 + 81 57 0.5127794 + 82 57 0.4844734 + 83 57 0.3634524 + 84 57 0.3611884 + 85 57 0.3615246 + 86 57 1.000000 + 87 57 1.000000 + 88 57 1.000000 + 89 57 1.000000 + 90 57 1.000000 + 91 57 1.000000 + 92 57 1.000000 + 93 57 1.000000 + 94 57 1.000000 + 95 57 0.5505835 + 96 57 0.5831632 + 97 57 0.1958508 + 98 57 0.2293709 + 99 57 0.2639317 + 100 57 0.2989450 + 101 57 0.7900614 + 102 57 0.8267401 + 103 57 0.8620049 + 104 57 1.000000 + 105 57 1.000000 + 106 57 1.000000 + 107 57 1.000000 + 108 57 1.000000 + 109 57 1.000000 + 110 57 1.000000 + 111 57 1.000000 + 112 57 1.000000 + 113 57 1.000000 + 114 57 1.000000 + 115 57 1.000000 + 116 57 1.000000 + 117 57 1.000000 + 118 57 1.000000 + 119 57 1.000000 + 120 57 1.000000 + 121 57 1.000000 + 122 57 1.000000 + 123 57 0.9801665 + 124 57 0.9387438 + 125 57 0.8963917 + 126 57 0.8609879 + 127 57 0.8152028 + 128 57 0.7701796 + 129 57 0.7262203 + 130 57 0.7016656 + 131 57 0.6633424 + 132 57 0.6270426 + 133 57 0.6168148 + 134 57 0.5648161 + 135 57 0.5332081 + 136 57 0.5044594 + 137 57 0.4785008 + 138 57 0.4552522 + 139 57 0.4346264 + 140 57 0.4165319 + 141 57 0.3841380 + 142 57 0.3727662 + 143 57 0.3634612 + 144 57 0.3561455 + 145 57 0.3507471 + 146 57 0.3355141 + 147 57 0.3329858 + 148 57 0.3321380 + 149 57 0.3329126 + 150 57 0.3352544 + 151 57 0.3391102 + 152 57 0.3238938 + 153 57 0.3238938 + 154 57 0.3238938 + 155 57 0.3238938 + 156 57 0.3313552 + 157 57 0.3472608 + 158 57 0.3639412 + 159 57 0.3813613 + 160 57 0.3994785 + 1 58 1.000000 + 2 58 1.000000 + 3 58 1.000000 + 4 58 1.000000 + 5 58 1.000000 + 6 58 1.000000 + 7 58 1.000000 + 8 58 1.000000 + 9 58 1.000000 + 10 58 1.000000 + 11 58 1.000000 + 12 58 1.000000 + 13 58 1.000000 + 14 58 1.000000 + 15 58 1.000000 + 16 58 1.000000 + 17 58 1.000000 + 18 58 1.000000 + 19 58 1.000000 + 20 58 1.000000 + 21 58 1.000000 + 22 58 1.000000 + 23 58 1.000000 + 24 58 1.000000 + 25 58 1.000000 + 26 58 1.000000 + 27 58 1.000000 + 28 58 1.000000 + 29 58 1.000000 + 30 58 1.000000 + 31 58 1.000000 + 32 58 1.000000 + 33 58 1.000000 + 34 58 1.000000 + 35 58 1.000000 + 36 58 1.000000 + 37 58 1.000000 + 38 58 1.000000 + 39 58 1.000000 + 40 58 1.000000 + 41 58 1.000000 + 42 58 1.000000 + 43 58 1.000000 + 44 58 1.000000 + 45 58 1.000000 + 46 58 1.000000 + 47 58 1.000000 + 48 58 1.000000 + 49 58 1.000000 + 50 58 1.000000 + 51 58 1.000000 + 52 58 1.000000 + 53 58 1.000000 + 54 58 1.000000 + 55 58 1.000000 + 56 58 1.000000 + 57 58 1.000000 + 58 58 0.5088246 + 59 58 0.5198755 + 60 58 0.5457537 + 61 58 0.5644315 + 62 58 0.5759243 + 63 58 0.5863493 + 64 58 1.000000 + 65 58 1.000000 + 66 58 1.000000 + 67 58 0.6242371 + 68 58 0.6266719 + 69 58 0.6268035 + 70 58 0.6246027 + 71 58 0.6201050 + 72 58 0.6134121 + 73 58 0.6026158 + 74 58 0.5917925 + 75 58 0.5794401 + 76 58 0.5659090 + 77 58 0.5516019 + 78 58 0.5369654 + 79 58 0.5224807 + 80 58 0.5086543 + 81 58 0.4960061 + 82 58 0.4962248 + 83 58 0.4742193 + 84 58 0.4718266 + 85 58 0.3480550 + 86 58 1.000000 + 87 58 1.000000 + 88 58 1.000000 + 89 58 1.000000 + 90 58 1.000000 + 91 58 1.000000 + 92 58 1.000000 + 93 58 1.000000 + 94 58 1.000000 + 95 58 9.8587066E-02 + 96 58 0.1290011 + 97 58 0.1832583 + 98 58 0.2166823 + 99 58 0.2511442 + 100 58 0.2860644 + 101 58 0.3208564 + 102 58 0.3549363 + 103 58 1.000000 + 104 58 1.000000 + 105 58 1.000000 + 106 58 1.000000 + 107 58 1.000000 + 108 58 1.000000 + 109 58 1.000000 + 110 58 1.000000 + 111 58 1.000000 + 112 58 1.000000 + 113 58 1.000000 + 114 58 1.000000 + 115 58 1.000000 + 116 58 1.000000 + 117 58 1.000000 + 118 58 1.000000 + 119 58 1.000000 + 120 58 1.000000 + 121 58 1.000000 + 122 58 0.9851261 + 123 58 0.9475474 + 124 58 0.9085619 + 125 58 0.9006606 + 126 58 0.8661148 + 127 58 0.8211756 + 128 58 0.7769092 + 129 58 0.7336153 + 130 58 0.6915489 + 131 58 0.6694023 + 132 58 0.6331558 + 133 58 0.6231788 + 134 58 0.5872300 + 135 58 0.5541072 + 136 58 0.5082507 + 137 58 0.4818631 + 138 58 0.4580810 + 139 58 0.4368196 + 140 58 0.4179890 + 141 58 0.4014967 + 142 58 0.3713132 + 143 58 0.3610987 + 144 58 0.3527650 + 145 58 0.3462396 + 146 58 0.3414541 + 147 58 0.3383444 + 148 58 0.3368501 + 149 58 0.3369141 + 150 58 0.3384820 + 151 58 0.3278593 + 152 58 0.3238938 + 153 58 0.3238938 + 154 58 0.3238938 + 155 58 0.3288524 + 156 58 0.3240954 + 157 58 0.3249294 + 158 58 0.3340408 + 159 58 0.3493056 + 160 58 0.3651889 + 1 59 1.000000 + 2 59 1.000000 + 3 59 1.000000 + 4 59 1.000000 + 5 59 1.000000 + 6 59 1.000000 + 7 59 1.000000 + 8 59 1.000000 + 9 59 1.000000 + 10 59 1.000000 + 11 59 1.000000 + 12 59 1.000000 + 13 59 1.000000 + 14 59 1.000000 + 15 59 1.000000 + 16 59 1.000000 + 17 59 1.000000 + 18 59 1.000000 + 19 59 1.000000 + 20 59 1.000000 + 21 59 1.000000 + 22 59 1.000000 + 23 59 1.000000 + 24 59 1.000000 + 25 59 1.000000 + 26 59 1.000000 + 27 59 1.000000 + 28 59 1.000000 + 29 59 1.000000 + 30 59 1.000000 + 31 59 1.000000 + 32 59 1.000000 + 33 59 1.000000 + 34 59 1.000000 + 35 59 1.000000 + 36 59 1.000000 + 37 59 1.000000 + 38 59 1.000000 + 39 59 1.000000 + 40 59 1.000000 + 41 59 1.000000 + 42 59 1.000000 + 43 59 1.000000 + 44 59 1.000000 + 45 59 1.000000 + 46 59 1.000000 + 47 59 1.000000 + 48 59 1.000000 + 49 59 1.000000 + 50 59 1.000000 + 51 59 1.000000 + 52 59 1.000000 + 53 59 1.000000 + 54 59 1.000000 + 55 59 1.000000 + 56 59 1.000000 + 57 59 1.000000 + 58 59 0.4999684 + 59 59 0.5104594 + 60 59 0.5354546 + 61 59 0.5476251 + 62 59 0.5648500 + 63 59 0.5745879 + 64 59 1.000000 + 65 59 1.000000 + 66 59 1.000000 + 67 59 0.6106632 + 68 59 0.6125939 + 69 59 0.6122604 + 70 59 0.6096385 + 71 59 0.6047670 + 72 59 0.5977502 + 73 59 0.5866829 + 74 59 0.5756457 + 75 59 0.5631337 + 76 59 0.5494956 + 77 59 0.5351303 + 78 59 0.5204809 + 79 59 0.5060220 + 80 59 0.4922536 + 81 59 0.4906312 + 82 59 0.4811295 + 83 59 0.4594001 + 84 59 0.4572415 + 85 59 0.4580067 + 86 59 1.000000 + 87 59 1.000000 + 88 59 1.000000 + 89 59 1.000000 + 90 59 1.000000 + 91 59 1.000000 + 92 59 1.000000 + 93 59 1.000000 + 94 59 1.000000 + 95 59 8.7350771E-02 + 96 59 0.1178579 + 97 59 0.1527123 + 98 59 0.2051157 + 99 59 0.2394747 + 100 59 0.2742914 + 101 59 0.3089885 + 102 59 0.9539959 + 103 59 0.9918688 + 104 59 1.000000 + 105 59 1.000000 + 106 59 1.000000 + 107 59 1.000000 + 108 59 1.000000 + 109 59 1.000000 + 110 59 1.000000 + 111 59 1.000000 + 112 59 1.000000 + 113 59 1.000000 + 114 59 1.000000 + 115 59 1.000000 + 116 59 1.000000 + 117 59 1.000000 + 118 59 1.000000 + 119 59 1.000000 + 120 59 1.000000 + 121 59 1.000000 + 122 59 0.9820281 + 123 59 0.9457885 + 124 59 0.9081072 + 125 59 0.8629555 + 126 59 0.8230925 + 127 59 0.7948855 + 128 59 0.7843693 + 129 59 0.7417544 + 130 59 0.7002743 + 131 59 0.6601391 + 132 59 0.6403280 + 133 59 0.6306272 + 134 59 0.5945093 + 135 59 0.5611060 + 136 59 0.5303789 + 137 59 0.4863721 + 138 59 0.4621183 + 139 59 0.4402836 + 140 59 0.4207799 + 141 59 0.4035169 + 142 59 0.3712733 + 143 59 0.3602227 + 144 59 0.3509456 + 145 59 0.3433704 + 146 59 0.3374281 + 147 59 0.3330551 + 148 59 0.3301909 + 149 59 0.3287780 + 150 59 0.3287620 + 151 59 0.3300906 + 152 59 0.3238938 + 153 59 0.3238938 + 154 59 0.3238938 + 155 59 0.3266275 + 156 59 0.3368217 + 157 59 0.3245367 + 158 59 0.3257002 + 159 59 0.3370059 + 160 59 0.3516392 + 1 60 1.000000 + 2 60 1.000000 + 3 60 1.000000 + 4 60 1.000000 + 5 60 1.000000 + 6 60 1.000000 + 7 60 1.000000 + 8 60 1.000000 + 9 60 1.000000 + 10 60 1.000000 + 11 60 1.000000 + 12 60 1.000000 + 13 60 1.000000 + 14 60 1.000000 + 15 60 1.000000 + 16 60 1.000000 + 17 60 1.000000 + 18 60 1.000000 + 19 60 1.000000 + 20 60 1.000000 + 21 60 1.000000 + 22 60 1.000000 + 23 60 1.000000 + 24 60 1.000000 + 25 60 1.000000 + 26 60 1.000000 + 27 60 1.000000 + 28 60 1.000000 + 29 60 1.000000 + 30 60 1.000000 + 31 60 1.000000 + 32 60 1.000000 + 33 60 1.000000 + 34 60 1.000000 + 35 60 1.000000 + 36 60 1.000000 + 37 60 1.000000 + 38 60 1.000000 + 39 60 1.000000 + 40 60 1.000000 + 41 60 1.000000 + 42 60 1.000000 + 43 60 1.000000 + 44 60 1.000000 + 45 60 1.000000 + 46 60 1.000000 + 47 60 1.000000 + 48 60 1.000000 + 49 60 1.000000 + 50 60 1.000000 + 51 60 1.000000 + 52 60 1.000000 + 53 60 1.000000 + 54 60 1.000000 + 55 60 1.000000 + 56 60 1.000000 + 57 60 1.000000 + 58 60 1.000000 + 59 60 1.000000 + 60 60 1.000000 + 61 60 1.000000 + 62 60 1.000000 + 63 60 1.000000 + 64 60 1.000000 + 65 60 1.000000 + 66 60 1.000000 + 67 60 0.5968781 + 68 60 0.5983344 + 69 60 0.5975698 + 70 60 0.5945636 + 71 60 0.5893584 + 72 60 0.5820624 + 73 60 0.5707752 + 74 60 0.5595755 + 75 60 0.5469583 + 76 60 0.5332698 + 77 60 0.5189062 + 78 60 0.5043047 + 79 60 0.4899346 + 80 60 0.4869658 + 81 60 0.4759093 + 82 60 0.4666999 + 83 60 0.4453345 + 84 60 0.4434832 + 85 60 0.4445497 + 86 60 0.4489368 + 87 60 0.4560336 + 88 60 0.4677415 + 89 60 0.4834695 + 90 60 0.5032920 + 91 60 0.2400960 + 92 60 0.2640435 + 93 60 0.2912309 + 94 60 0.3214152 + 95 60 7.7290148E-02 + 96 60 0.1078916 + 97 60 0.1426419 + 98 60 0.1947285 + 99 60 0.2080269 + 100 60 0.8586847 + 101 60 0.8986046 + 102 60 0.9376740 + 103 60 0.9752440 + 104 60 1.000000 + 105 60 1.000000 + 106 60 1.000000 + 107 60 1.000000 + 108 60 1.000000 + 109 60 1.000000 + 110 60 1.000000 + 111 60 1.000000 + 112 60 1.000000 + 113 60 1.000000 + 114 60 1.000000 + 115 60 1.000000 + 116 60 1.000000 + 117 60 1.000000 + 118 60 1.000000 + 119 60 1.000000 + 120 60 1.000000 + 121 60 1.000000 + 122 60 0.9791936 + 123 60 0.9443017 + 124 60 0.9079394 + 125 60 0.8636203 + 126 60 0.8249114 + 127 60 0.7980207 + 128 60 0.7571996 + 129 60 0.7171760 + 130 60 0.6781856 + 131 60 0.6702024 + 132 60 0.6319966 + 133 60 0.6144106 + 134 60 0.6029653 + 135 60 0.5693284 + 136 60 0.5382606 + 137 60 0.5097117 + 138 60 0.4673828 + 139 60 0.4450325 + 140 60 0.4249142 + 141 60 0.4069392 + 142 60 0.3910173 + 143 60 0.3608257 + 144 60 0.3506735 + 145 60 0.3421178 + 146 60 0.3350906 + 147 60 0.3295283 + 148 60 0.3253708 + 149 60 0.3238938 + 150 60 0.3238938 + 151 60 0.3238938 + 152 60 0.3238938 + 153 60 0.3238938 + 154 60 0.3238938 + 155 60 0.3238938 + 156 60 0.3238938 + 157 60 0.3306323 + 158 60 0.3238938 + 159 60 0.3238938 + 160 60 0.3238938 + 1 61 1.000000 + 2 61 1.000000 + 3 61 1.000000 + 4 61 1.000000 + 5 61 1.000000 + 6 61 1.000000 + 7 61 1.000000 + 8 61 1.000000 + 9 61 1.000000 + 10 61 1.000000 + 11 61 1.000000 + 12 61 1.000000 + 13 61 1.000000 + 14 61 1.000000 + 15 61 1.000000 + 16 61 1.000000 + 17 61 1.000000 + 18 61 1.000000 + 19 61 1.000000 + 20 61 1.000000 + 21 61 1.000000 + 22 61 1.000000 + 23 61 1.000000 + 24 61 1.000000 + 25 61 1.000000 + 26 61 1.000000 + 27 61 1.000000 + 28 61 1.000000 + 29 61 1.000000 + 30 61 1.000000 + 31 61 1.000000 + 32 61 1.000000 + 33 61 1.000000 + 34 61 1.000000 + 35 61 1.000000 + 36 61 1.000000 + 37 61 1.000000 + 38 61 1.000000 + 39 61 1.000000 + 40 61 1.000000 + 41 61 0.7086197 + 42 61 0.6453915 + 43 61 0.6020586 + 44 61 0.5675123 + 45 61 0.5372990 + 46 61 0.5114251 + 47 61 0.4898400 + 48 61 0.4724401 + 49 61 0.4590639 + 50 61 0.4494997 + 51 61 0.4434839 + 52 61 0.4407081 + 53 61 1.000000 + 54 61 1.000000 + 55 61 1.000000 + 56 61 1.000000 + 57 61 1.000000 + 58 61 1.000000 + 59 61 1.000000 + 60 61 1.000000 + 61 61 1.000000 + 62 61 1.000000 + 63 61 1.000000 + 64 61 1.000000 + 65 61 1.000000 + 66 61 1.000000 + 67 61 0.5829053 + 68 61 0.5839194 + 69 61 0.5827582 + 70 61 0.5794069 + 71 61 0.5739115 + 72 61 0.5645875 + 73 61 0.5549287 + 74 61 0.5436196 + 75 61 0.5309528 + 76 61 0.5172728 + 77 61 0.5029715 + 78 61 0.4884808 + 79 61 0.4846403 + 80 61 0.4725464 + 81 61 0.4618323 + 82 61 0.4529911 + 83 61 0.4320793 + 84 61 0.4306102 + 85 61 0.4320520 + 86 61 0.4367970 + 87 61 0.4443012 + 88 61 0.4563178 + 89 61 0.4723116 + 90 61 0.4923517 + 91 61 0.5164148 + 92 61 0.2548743 + 93 61 0.2821020 + 94 61 0.3122754 + 95 61 0.3450868 + 96 61 0.3801703 + 97 61 0.7047687 + 98 61 0.7652244 + 99 61 0.8044904 + 100 61 0.8442240 + 101 61 0.8837649 + 102 61 0.9224596 + 103 61 0.9596735 + 104 61 0.9948028 + 105 61 1.000000 + 106 61 1.000000 + 107 61 1.000000 + 108 61 1.000000 + 109 61 1.000000 + 110 61 1.000000 + 111 61 1.000000 + 112 61 1.000000 + 113 61 1.000000 + 114 61 1.000000 + 115 61 1.000000 + 116 61 1.000000 + 117 61 1.000000 + 118 61 1.000000 + 119 61 1.000000 + 120 61 1.000000 + 121 61 1.000000 + 122 61 0.9766498 + 123 61 0.9431127 + 124 61 0.9014556 + 125 61 0.8645961 + 126 61 0.8270622 + 127 61 0.8015026 + 128 61 0.7616839 + 129 61 0.7225788 + 130 61 0.6844177 + 131 61 0.6473954 + 132 61 0.6116675 + 133 61 0.6070950 + 134 61 0.6126464 + 135 61 0.5788203 + 136 61 0.5474551 + 137 61 0.5185052 + 138 61 0.4919103 + 139 61 0.4510880 + 140 61 0.4304087 + 141 61 0.4117756 + 142 61 0.3950999 + 143 61 0.3629096 + 144 61 0.3519436 + 145 61 0.3424699 + 146 61 0.3344218 + 147 61 0.3277364 + 148 61 0.3238938 + 149 61 0.3238938 + 150 61 0.3238938 + 151 61 0.3238938 + 152 61 0.3238938 + 153 61 0.3238938 + 154 61 0.3238938 + 155 61 0.3238938 + 156 61 0.3238938 + 157 61 0.3268665 + 158 61 0.3268143 + 159 61 0.3268677 + 160 61 0.3238938 + 1 62 1.000000 + 2 62 1.000000 + 3 62 1.000000 + 4 62 1.000000 + 5 62 1.000000 + 6 62 1.000000 + 7 62 1.000000 + 8 62 1.000000 + 9 62 1.000000 + 10 62 1.000000 + 11 62 1.000000 + 12 62 1.000000 + 13 62 1.000000 + 14 62 1.000000 + 15 62 1.000000 + 16 62 1.000000 + 17 62 1.000000 + 18 62 1.000000 + 19 62 1.000000 + 20 62 1.000000 + 21 62 1.000000 + 22 62 1.000000 + 23 62 1.000000 + 24 62 1.000000 + 25 62 1.000000 + 26 62 1.000000 + 27 62 1.000000 + 28 62 1.000000 + 29 62 1.000000 + 30 62 1.000000 + 31 62 1.000000 + 32 62 1.000000 + 33 62 1.000000 + 34 62 1.000000 + 35 62 1.000000 + 36 62 1.000000 + 37 62 1.000000 + 38 62 1.000000 + 39 62 1.000000 + 40 62 1.000000 + 41 62 0.7039987 + 42 62 0.6408679 + 43 62 0.6017965 + 44 62 0.5668942 + 45 62 0.5319044 + 46 62 0.5058236 + 47 62 0.4839797 + 48 62 0.4662711 + 49 62 0.4525413 + 50 62 0.4425811 + 51 62 0.4361306 + 52 62 0.4328848 + 53 62 1.000000 + 54 62 1.000000 + 55 62 1.000000 + 56 62 1.000000 + 57 62 1.000000 + 58 62 1.000000 + 59 62 1.000000 + 60 62 1.000000 + 61 62 1.000000 + 62 62 1.000000 + 63 62 1.000000 + 64 62 1.000000 + 65 62 1.000000 + 66 62 1.000000 + 67 62 0.5687709 + 68 62 0.5693765 + 69 62 0.5678567 + 70 62 0.5642012 + 71 62 0.5584605 + 72 62 0.5489583 + 73 62 0.5391813 + 74 62 0.5278184 + 75 62 0.5151598 + 76 62 0.5015482 + 77 62 0.4873716 + 78 62 0.4831032 + 79 62 0.4704627 + 80 62 0.4587514 + 81 62 0.4484565 + 82 62 0.4400615 + 83 62 0.4196937 + 84 62 0.4186813 + 85 62 0.4205735 + 86 62 0.4257496 + 87 62 0.4337249 + 88 62 0.4461161 + 89 62 0.4624393 + 90 62 0.4827552 + 91 62 0.5070357 + 92 62 0.5351645 + 93 62 0.5669391 + 94 62 0.6020760 + 95 62 0.6179124 + 96 62 0.6565053 + 97 62 0.6929618 + 98 62 0.7527678 + 99 62 0.7916620 + 100 62 0.8309940 + 101 62 0.8701156 + 102 62 0.9083887 + 103 62 0.9451935 + 104 62 0.9799425 + 105 62 1.000000 + 106 62 1.000000 + 107 62 1.000000 + 108 62 1.000000 + 109 62 1.000000 + 110 62 1.000000 + 111 62 1.000000 + 112 62 1.000000 + 113 62 1.000000 + 114 62 1.000000 + 115 62 1.000000 + 116 62 1.000000 + 117 62 1.000000 + 118 62 1.000000 + 119 62 1.000000 + 120 62 1.000000 + 121 62 1.000000 + 122 62 0.9744200 + 123 62 0.9359937 + 124 62 0.9015172 + 125 62 0.8659074 + 126 62 0.8295705 + 127 62 0.8053561 + 128 62 0.7665722 + 129 62 0.7284188 + 130 62 0.6911226 + 131 62 0.6548744 + 132 62 0.6198290 + 133 62 0.5861065 + 134 62 0.5747505 + 135 62 0.5896327 + 136 62 0.5580112 + 137 62 0.5286996 + 138 62 0.5016429 + 139 62 0.4767740 + 140 62 0.4372885 + 141 62 0.4180454 + 142 62 0.4006648 + 143 62 0.3850596 + 144 62 0.3547594 + 145 62 0.3444227 + 146 62 0.3354099 + 147 62 0.3276591 + 148 62 0.3238938 + 149 62 0.3238938 + 150 62 0.3238938 + 151 62 0.3238938 + 152 62 0.3238938 + 153 62 0.3238938 + 154 62 0.3238938 + 155 62 0.3238938 + 156 62 0.3238938 + 157 62 0.3238938 + 158 62 0.3238938 + 159 62 0.3238938 + 160 62 0.3238938 + 1 63 1.000000 + 2 63 1.000000 + 3 63 1.000000 + 4 63 1.000000 + 5 63 1.000000 + 6 63 1.000000 + 7 63 1.000000 + 8 63 1.000000 + 9 63 1.000000 + 10 63 1.000000 + 11 63 1.000000 + 12 63 1.000000 + 13 63 1.000000 + 14 63 1.000000 + 15 63 1.000000 + 16 63 1.000000 + 17 63 1.000000 + 18 63 1.000000 + 19 63 1.000000 + 20 63 1.000000 + 21 63 1.000000 + 22 63 1.000000 + 23 63 1.000000 + 24 63 1.000000 + 25 63 1.000000 + 26 63 1.000000 + 27 63 1.000000 + 28 63 1.000000 + 29 63 1.000000 + 30 63 1.000000 + 31 63 1.000000 + 32 63 1.000000 + 33 63 1.000000 + 34 63 1.000000 + 35 63 1.000000 + 36 63 1.000000 + 37 63 1.000000 + 38 63 1.000000 + 39 63 1.000000 + 40 63 1.000000 + 41 63 0.6987110 + 42 63 0.6357223 + 43 63 0.5966223 + 44 63 0.5616201 + 45 63 0.5307953 + 46 63 0.5041749 + 47 63 0.4775312 + 48 63 0.4595286 + 49 63 0.4454573 + 50 63 0.4351109 + 51 63 0.4282334 + 52 63 0.4245229 + 53 63 0.4319862 + 54 63 0.4344009 + 55 63 0.4388978 + 56 63 0.4450435 + 57 63 0.4523852 + 58 63 1.000000 + 59 63 1.000000 + 60 63 1.000000 + 61 63 1.000000 + 62 63 1.000000 + 63 63 1.000000 + 64 63 0.5358284 + 65 63 0.5423657 + 66 63 0.5522662 + 67 63 0.5545030 + 68 63 0.5547355 + 69 63 0.5528975 + 70 63 0.5489815 + 71 63 0.5430418 + 72 63 0.5334153 + 73 63 0.5235741 + 74 63 0.5122138 + 75 63 0.4996234 + 76 63 0.4861420 + 77 63 0.4818507 + 78 63 0.4691177 + 79 63 0.4568896 + 80 63 0.4456378 + 81 63 0.4358405 + 82 63 0.4279694 + 83 63 0.4082376 + 84 63 0.4077591 + 85 63 0.4101757 + 86 63 0.4158568 + 87 63 0.4243664 + 88 63 0.4371991 + 89 63 0.4539142 + 90 63 0.4745645 + 91 63 0.4991158 + 92 63 0.5274472 + 93 63 0.5388874 + 94 63 0.5719928 + 95 63 0.6078936 + 96 63 0.6461726 + 97 63 0.6825087 + 98 63 0.7416346 + 99 63 0.7801324 + 100 63 0.8190287 + 101 63 0.8576902 + 102 63 0.8954936 + 103 63 0.9318354 + 104 63 0.9788567 + 105 63 1.000000 + 106 63 1.000000 + 107 63 1.000000 + 108 63 1.000000 + 109 63 1.000000 + 110 63 1.000000 + 111 63 1.000000 + 112 63 1.000000 + 113 63 1.000000 + 114 63 1.000000 + 115 63 1.000000 + 116 63 1.000000 + 117 63 1.000000 + 118 63 1.000000 + 119 63 1.000000 + 120 63 1.000000 + 121 63 1.000000 + 122 63 0.9725242 + 123 63 0.9350960 + 124 63 0.9019183 + 125 63 0.8675753 + 126 63 0.8324586 + 127 63 0.8096034 + 128 63 0.7718882 + 129 63 0.7347230 + 130 63 0.6983286 + 131 63 0.6628921 + 132 63 0.6285658 + 133 63 0.5954702 + 134 63 0.5847847 + 135 63 0.5510345 + 136 63 0.5699828 + 137 63 0.5403467 + 138 63 0.5128629 + 139 63 0.4874690 + 140 63 0.4640934 + 141 63 0.4257770 + 142 63 0.4077338 + 143 63 0.3913721 + 144 63 0.3591335 + 145 63 0.3479809 + 146 63 0.3380513 + 147 63 0.3292847 + 148 63 0.3238938 + 149 63 0.3238938 + 150 63 0.3238938 + 151 63 0.3238938 + 152 63 0.3238938 + 153 63 0.3238938 + 154 63 0.3238938 + 155 63 0.3238938 + 156 63 0.3238938 + 157 63 0.3238938 + 158 63 0.3238938 + 159 63 0.3238938 + 160 63 0.3238938 + 1 64 1.000000 + 2 64 1.000000 + 3 64 1.000000 + 4 64 1.000000 + 5 64 1.000000 + 6 64 1.000000 + 7 64 1.000000 + 8 64 1.000000 + 9 64 1.000000 + 10 64 1.000000 + 11 64 1.000000 + 12 64 1.000000 + 13 64 1.000000 + 14 64 1.000000 + 15 64 1.000000 + 16 64 1.000000 + 17 64 1.000000 + 18 64 1.000000 + 19 64 1.000000 + 20 64 1.000000 + 21 64 1.000000 + 22 64 1.000000 + 23 64 1.000000 + 24 64 1.000000 + 25 64 1.000000 + 26 64 1.000000 + 27 64 1.000000 + 28 64 1.000000 + 29 64 1.000000 + 30 64 1.000000 + 31 64 1.000000 + 32 64 1.000000 + 33 64 1.000000 + 34 64 1.000000 + 35 64 1.000000 + 36 64 1.000000 + 37 64 1.000000 + 38 64 1.000000 + 39 64 1.000000 + 40 64 0.7369896 + 41 64 0.6927279 + 42 64 0.6299295 + 43 64 0.5908287 + 44 64 0.5557504 + 45 64 0.5247807 + 46 64 0.4979486 + 47 64 0.4752287 + 48 64 0.4521914 + 49 64 0.4377922 + 50 64 0.4270709 + 51 64 0.4197759 + 52 64 0.4239387 + 53 64 0.4234542 + 54 64 0.4254369 + 55 64 0.4294797 + 56 64 0.4351518 + 57 64 0.4420055 + 58 64 1.000000 + 59 64 1.000000 + 60 64 1.000000 + 61 64 1.000000 + 62 64 1.000000 + 63 64 1.000000 + 64 64 0.5221955 + 65 64 0.5283240 + 66 64 0.5327271 + 67 64 0.5401322 + 68 64 0.5400307 + 69 64 0.5379156 + 70 64 0.5337849 + 71 64 0.5261654 + 72 64 0.5180001 + 73 64 0.5081511 + 74 64 0.4968519 + 75 64 0.4843902 + 76 64 0.4804336 + 77 64 0.4680183 + 78 64 0.4557174 + 79 64 0.4439785 + 80 64 0.4332649 + 81 64 0.4240440 + 82 64 0.4167766 + 83 64 0.3977737 + 84 64 0.3979049 + 85 64 0.4009218 + 86 64 0.4071804 + 87 64 0.4162880 + 88 64 0.4296286 + 89 64 0.4467978 + 90 64 0.4678404 + 91 64 0.4927155 + 92 64 0.5007280 + 93 64 0.5306422 + 94 64 0.5636145 + 95 64 0.5992903 + 96 64 0.6372548 + 97 64 0.6734418 + 98 64 0.7318566 + 99 64 0.7699300 + 100 64 0.8083553 + 101 64 0.8465143 + 102 64 0.8837984 + 103 64 0.9322214 + 104 64 0.9674048 + 105 64 1.000000 + 106 64 1.000000 + 107 64 1.000000 + 108 64 1.000000 + 109 64 1.000000 + 110 64 1.000000 + 111 64 1.000000 + 112 64 1.000000 + 113 64 1.000000 + 114 64 1.000000 + 115 64 1.000000 + 116 64 1.000000 + 117 64 1.000000 + 118 64 1.000000 + 119 64 1.000000 + 120 64 1.000000 + 121 64 0.9984850 + 122 64 0.9648250 + 123 64 0.9345431 + 124 64 0.9026763 + 125 64 0.8696188 + 126 64 0.8357449 + 127 64 0.8142628 + 128 64 0.7776523 + 129 64 0.7415139 + 130 64 0.7060612 + 131 64 0.6714767 + 132 64 0.6379104 + 133 64 0.6054806 + 134 64 0.5954729 + 135 64 0.5622008 + 136 64 0.5307466 + 137 64 0.5204706 + 138 64 0.5256233 + 139 64 0.4997343 + 140 64 0.4757670 + 141 64 0.4536483 + 142 64 0.4163355 + 143 64 0.3992535 + 144 64 0.3650857 + 145 64 0.3531565 + 146 64 0.3423497 + 147 64 0.3326079 + 148 64 0.3238938 + 149 64 0.3238938 + 150 64 0.3238938 + 151 64 0.3238938 + 152 64 0.3238938 + 153 64 0.3238938 + 154 64 0.3238938 + 155 64 0.3238938 + 156 64 0.3238938 + 157 64 0.3238938 + 158 64 0.3238938 + 159 64 0.3238938 + 160 64 0.3238938 + 1 65 1.000000 + 2 65 1.000000 + 3 65 1.000000 + 4 65 1.000000 + 5 65 1.000000 + 6 65 1.000000 + 7 65 1.000000 + 8 65 1.000000 + 9 65 1.000000 + 10 65 1.000000 + 11 65 1.000000 + 12 65 1.000000 + 13 65 1.000000 + 14 65 1.000000 + 15 65 1.000000 + 16 65 1.000000 + 17 65 1.000000 + 18 65 1.000000 + 19 65 1.000000 + 20 65 1.000000 + 21 65 1.000000 + 22 65 1.000000 + 23 65 1.000000 + 24 65 1.000000 + 25 65 1.000000 + 26 65 1.000000 + 27 65 1.000000 + 28 65 1.000000 + 29 65 1.000000 + 30 65 1.000000 + 31 65 1.000000 + 32 65 1.000000 + 33 65 1.000000 + 34 65 1.000000 + 35 65 1.000000 + 36 65 1.000000 + 37 65 1.000000 + 38 65 1.000000 + 39 65 1.000000 + 40 65 0.7300877 + 41 65 0.6860210 + 42 65 0.6234646 + 43 65 0.5843936 + 44 65 0.5492656 + 45 65 0.5181718 + 46 65 0.4911481 + 47 65 0.4681727 + 48 65 0.4491678 + 49 65 0.4339975 + 50 65 0.4184432 + 51 65 0.4190122 + 52 65 0.4153264 + 53 65 0.4144530 + 54 65 0.4160198 + 55 65 0.4196241 + 56 65 0.4248394 + 57 65 0.4312217 + 58 65 0.4383166 + 59 65 0.4456666 + 60 65 0.4656687 + 61 65 1.000000 + 62 65 1.000000 + 63 65 1.000000 + 64 65 0.5083514 + 65 65 0.5141056 + 66 65 0.5181725 + 67 65 0.5203887 + 68 65 0.5252966 + 69 65 0.5229496 + 70 65 0.5186518 + 71 65 0.5109460 + 72 65 0.5027575 + 73 65 0.4929577 + 74 65 0.4817805 + 75 65 0.4784649 + 76 65 0.4667261 + 77 65 0.4547529 + 78 65 0.4429608 + 79 65 0.4317899 + 80 65 0.4216937 + 81 65 0.4131290 + 82 65 0.4065454 + 83 65 0.3883644 + 84 65 0.3891822 + 85 65 0.3928741 + 86 65 0.3997839 + 87 65 0.4095518 + 88 65 0.4234658 + 89 65 0.4411509 + 90 65 0.4626428 + 91 65 0.4672878 + 92 65 0.4939345 + 93 65 0.5238276 + 94 65 0.5566788 + 95 65 0.5921336 + 96 65 0.6297800 + 97 65 0.6657877 + 98 65 0.7234579 + 99 65 0.7610775 + 100 65 0.7989949 + 101 65 0.8366069 + 102 65 0.8857412 + 103 65 0.9223912 + 104 65 0.9571480 + 105 65 0.9895205 + 106 65 1.000000 + 107 65 1.000000 + 108 65 1.000000 + 109 65 1.000000 + 110 65 1.000000 + 111 65 1.000000 + 112 65 1.000000 + 113 65 1.000000 + 114 65 1.000000 + 115 65 1.000000 + 116 65 1.000000 + 117 65 1.000000 + 118 65 1.000000 + 119 65 1.000000 + 120 65 1.000000 + 121 65 0.9959440 + 122 65 0.9633071 + 123 65 0.9343485 + 124 65 0.9038043 + 125 65 0.8720505 + 126 65 0.8394454 + 127 65 0.8193497 + 128 65 0.7838819 + 129 65 0.7488105 + 130 65 0.7143424 + 131 65 0.6806530 + 132 65 0.6478894 + 133 65 0.6161671 + 134 65 0.6068475 + 135 65 0.5740961 + 136 65 0.5430645 + 137 65 0.5137024 + 138 65 0.5052350 + 139 65 0.5136228 + 140 65 0.4890885 + 141 65 0.4663073 + 142 65 0.4265045 + 143 65 0.4087321 + 144 65 0.3923709 + 145 65 0.3599685 + 146 65 0.3483156 + 147 65 0.3376302 + 148 65 0.3278615 + 149 65 0.3238938 + 150 65 0.3238938 + 151 65 0.3238938 + 152 65 0.3238938 + 153 65 0.3238938 + 154 65 0.3238938 + 155 65 0.3238938 + 156 65 0.3238938 + 157 65 0.3238938 + 158 65 0.3238938 + 159 65 0.3238938 + 160 65 0.3238938 + 1 66 1.000000 + 2 66 1.000000 + 3 66 1.000000 + 4 66 1.000000 + 5 66 1.000000 + 6 66 1.000000 + 7 66 1.000000 + 8 66 1.000000 + 9 66 1.000000 + 10 66 1.000000 + 11 66 1.000000 + 12 66 1.000000 + 13 66 1.000000 + 14 66 1.000000 + 15 66 1.000000 + 16 66 1.000000 + 17 66 1.000000 + 18 66 1.000000 + 19 66 1.000000 + 20 66 1.000000 + 21 66 1.000000 + 22 66 1.000000 + 23 66 1.000000 + 24 66 1.000000 + 25 66 1.000000 + 26 66 1.000000 + 27 66 1.000000 + 28 66 1.000000 + 29 66 1.000000 + 30 66 1.000000 + 31 66 1.000000 + 32 66 1.000000 + 33 66 1.000000 + 34 66 1.000000 + 35 66 1.000000 + 36 66 1.000000 + 37 66 1.000000 + 38 66 1.000000 + 39 66 1.000000 + 40 66 0.7223938 + 41 66 0.6785629 + 42 66 0.6163035 + 43 66 0.5772946 + 44 66 0.5421453 + 45 66 0.5109522 + 46 66 0.4837563 + 47 66 0.4605429 + 48 66 0.4412388 + 49 66 0.4257145 + 50 66 0.4137847 + 51 66 0.4102440 + 52 66 0.4062208 + 53 66 0.4049779 + 54 66 0.4061481 + 55 66 0.4093325 + 56 66 0.4141094 + 57 66 0.4200393 + 58 66 0.4266729 + 59 66 0.4335578 + 60 66 0.4402448 + 61 66 1.000000 + 62 66 1.000000 + 63 66 1.000000 + 64 66 0.4943217 + 65 66 0.4997392 + 66 66 0.5035113 + 67 66 0.5054793 + 68 66 0.5105729 + 69 66 0.5080398 + 70 66 0.5036253 + 71 66 0.4958891 + 72 66 0.4877345 + 73 66 0.4780440 + 74 66 0.4670498 + 75 66 0.4648646 + 76 66 0.4535694 + 77 66 0.4421149 + 78 66 0.4309098 + 79 66 0.4203861 + 80 66 0.4109876 + 81 66 0.4031596 + 82 66 0.3973394 + 83 66 0.3800743 + 84 66 0.3816543 + 85 66 0.3860960 + 86 66 0.3937289 + 87 66 0.4042191 + 88 66 0.4187709 + 89 66 0.4185634 + 90 66 0.4384501 + 91 66 0.4618386 + 92 66 0.4885867 + 93 66 0.5184754 + 94 66 0.5512136 + 95 66 0.5864481 + 96 66 0.6237700 + 97 66 0.6595671 + 98 66 0.7164564 + 99 66 0.7535905 + 100 66 0.7909609 + 101 66 0.8401533 + 102 66 0.8776672 + 103 66 0.9138196 + 104 66 0.9480965 + 105 66 0.9800266 + 106 66 1.000000 + 107 66 1.000000 + 108 66 1.000000 + 109 66 1.000000 + 110 66 1.000000 + 111 66 1.000000 + 112 66 1.000000 + 113 66 1.000000 + 114 66 1.000000 + 115 66 1.000000 + 116 66 1.000000 + 117 66 1.000000 + 118 66 1.000000 + 119 66 1.000000 + 120 66 1.000000 + 121 66 0.9937729 + 122 66 0.9621487 + 123 66 0.9345190 + 124 66 0.9053102 + 125 66 0.8748794 + 126 66 0.8435683 + 127 66 0.8116980 + 128 66 0.7905877 + 129 66 0.7566272 + 130 66 0.7231882 + 131 66 0.6904410 + 132 66 0.6585262 + 133 66 0.6275573 + 134 66 0.6189368 + 135 66 0.5867518 + 136 66 0.5561841 + 137 66 0.5271874 + 138 66 0.4997029 + 139 66 0.4736633 + 140 66 0.4704459 + 141 66 0.4806834 + 142 66 0.4588423 + 143 66 0.4198420 + 144 66 0.4027187 + 145 66 0.3684419 + 146 66 0.3559650 + 147 66 0.3443583 + 148 66 0.3335748 + 149 66 0.3238938 + 150 66 0.3238938 + 151 66 0.3238938 + 152 66 0.3238938 + 153 66 0.3238938 + 154 66 0.3238938 + 155 66 0.3238938 + 156 66 0.3238938 + 157 66 0.3238938 + 158 66 0.3238938 + 159 66 0.3238938 + 160 66 0.3238938 + 1 67 1.000000 + 2 67 1.000000 + 3 67 1.000000 + 4 67 1.000000 + 5 67 1.000000 + 6 67 1.000000 + 7 67 1.000000 + 8 67 1.000000 + 9 67 1.000000 + 10 67 1.000000 + 11 67 1.000000 + 12 67 1.000000 + 13 67 1.000000 + 14 67 1.000000 + 15 67 1.000000 + 16 67 1.000000 + 17 67 1.000000 + 18 67 1.000000 + 19 67 1.000000 + 20 67 1.000000 + 21 67 1.000000 + 22 67 1.000000 + 23 67 1.000000 + 24 67 1.000000 + 25 67 1.000000 + 26 67 1.000000 + 27 67 1.000000 + 28 67 0.9911504 + 29 67 0.9911504 + 30 67 0.9911504 + 31 67 0.9911504 + 32 67 0.9911504 + 33 67 0.9911504 + 34 67 0.9911504 + 35 67 0.9911504 + 36 67 0.9192486 + 37 67 0.8639046 + 38 67 0.8109919 + 39 67 0.7608707 + 40 67 0.7138785 + 41 67 0.6703262 + 42 67 0.6084219 + 43 67 0.5695104 + 44 67 0.5343702 + 45 67 0.5031033 + 46 67 0.4757581 + 47 67 0.4523249 + 48 67 0.4327371 + 49 67 0.4168712 + 50 67 0.4134856 + 51 67 0.4055328 + 52 67 0.3966160 + 53 67 0.3950264 + 54 67 0.3958216 + 55 67 0.3986075 + 56 67 0.4029676 + 57 67 0.4084669 + 58 67 0.4146618 + 59 67 0.4211049 + 60 67 0.4361607 + 61 67 1.000000 + 62 67 1.000000 + 63 67 1.000000 + 64 67 0.4801353 + 65 67 0.4852570 + 66 67 0.4887774 + 67 67 0.4905445 + 68 67 0.4904602 + 69 67 0.4932305 + 70 67 0.4887516 + 71 67 0.4810434 + 72 67 0.4729812 + 73 67 0.4634610 + 74 67 0.4621199 + 75 67 0.4518000 + 76 67 0.4410242 + 77 67 0.4301662 + 78 67 0.4196277 + 79 67 0.4098315 + 80 67 0.4012109 + 81 67 0.3942003 + 82 67 0.3892235 + 83 67 0.3729675 + 84 67 0.3753856 + 85 67 0.3806501 + 86 67 0.3890771 + 87 67 0.4003502 + 88 67 0.3972611 + 89 67 0.4140088 + 90 67 0.4342276 + 91 67 0.4578458 + 92 67 0.4847146 + 93 67 0.5146108 + 94 67 0.5472413 + 95 67 0.5822527 + 96 67 0.6192393 + 97 67 0.6577525 + 98 67 0.7108622 + 99 67 0.7474756 + 100 67 0.7961218 + 101 67 0.8339329 + 102 67 0.8709041 + 103 67 0.9065083 + 104 67 0.9402521 + 105 67 0.9716823 + 106 67 1.000000 + 107 67 1.000000 + 108 67 1.000000 + 109 67 1.000000 + 110 67 1.000000 + 111 67 1.000000 + 112 67 1.000000 + 113 67 1.000000 + 114 67 1.000000 + 115 67 1.000000 + 116 67 1.000000 + 117 67 1.000000 + 118 67 1.000000 + 119 67 1.000000 + 120 67 1.000000 + 121 67 0.9857343 + 122 67 0.9613520 + 123 67 0.9350563 + 124 67 0.9071956 + 125 67 0.8781086 + 126 67 0.8481187 + 127 67 0.8175310 + 128 67 0.7977769 + 129 67 0.7649720 + 130 67 0.7326110 + 131 67 0.7008550 + 132 67 0.6698390 + 133 67 0.6396719 + 134 67 0.6317644 + 135 67 0.6001947 + 136 67 0.5701367 + 137 67 0.5415449 + 138 67 0.5143645 + 139 67 0.4885316 + 140 67 0.4639762 + 141 67 0.4616843 + 142 67 0.4742554 + 143 67 0.4531031 + 144 67 0.4147497 + 145 67 0.3980261 + 146 67 0.3653183 + 147 67 0.3528031 + 148 67 0.3410180 + 149 67 0.3299253 + 150 67 0.3238938 + 151 67 0.3238938 + 152 67 0.3238938 + 153 67 0.3238938 + 154 67 0.3238938 + 155 67 0.3238938 + 156 67 0.3238938 + 157 67 0.3238938 + 158 67 0.3238938 + 159 67 0.3238938 + 160 67 0.3238938 + 1 68 1.000000 + 2 68 1.000000 + 3 68 1.000000 + 4 68 1.000000 + 5 68 1.000000 + 6 68 1.000000 + 7 68 1.000000 + 8 68 1.000000 + 9 68 1.000000 + 10 68 1.000000 + 11 68 1.000000 + 12 68 1.000000 + 13 68 1.000000 + 14 68 1.000000 + 15 68 1.000000 + 16 68 1.000000 + 17 68 1.000000 + 18 68 1.000000 + 19 68 1.000000 + 20 68 1.000000 + 21 68 1.000000 + 22 68 1.000000 + 23 68 1.000000 + 24 68 1.000000 + 25 68 1.000000 + 26 68 1.000000 + 27 68 1.000000 + 28 68 0.9911504 + 29 68 0.9911504 + 30 68 0.9911504 + 31 68 0.9911504 + 32 68 0.9911504 + 33 68 0.9911504 + 34 68 0.9911504 + 35 68 0.9790227 + 36 68 0.9074664 + 37 68 0.8529002 + 38 68 0.8006487 + 39 68 0.7510731 + 40 68 0.7045141 + 41 68 0.6612862 + 42 68 0.5997976 + 43 68 0.5610209 + 44 68 0.5259220 + 45 68 0.4946100 + 46 68 0.4671387 + 47 68 0.4435059 + 48 68 0.4236510 + 49 68 0.4162200 + 50 68 0.4046009 + 51 68 0.3963280 + 52 68 0.3911276 + 53 68 0.3845958 + 54 68 0.3850406 + 55 68 0.3874525 + 56 68 0.3914201 + 57 68 0.3965139 + 58 68 0.4022953 + 59 68 0.4083234 + 60 68 0.4234876 + 61 68 0.4440630 + 62 68 0.4522468 + 63 68 0.4595944 + 64 68 0.4658233 + 65 68 0.4706931 + 66 68 0.4740081 + 67 68 0.4756236 + 68 68 0.4754473 + 69 68 0.4734412 + 70 68 0.4728120 + 71 68 0.4664597 + 72 68 0.4585505 + 73 68 0.4582441 + 74 68 0.4491404 + 75 68 0.4393330 + 76 68 0.4291541 + 77 68 0.4189717 + 78 68 0.4091796 + 79 68 0.4001917 + 80 68 0.3924301 + 81 68 0.3863168 + 82 68 0.3822630 + 83 68 0.3671091 + 84 68 0.3704391 + 85 68 0.3765986 + 86 68 0.3858895 + 87 68 0.3798430 + 88 68 0.3936780 + 89 68 0.4108871 + 90 68 0.4314673 + 91 68 0.4553376 + 92 68 0.4823427 + 93 68 0.5122537 + 94 68 0.5447769 + 95 68 0.5795583 + 96 68 0.6161954 + 97 68 0.6542449 + 98 68 0.7066768 + 99 68 0.7542285 + 100 68 0.7918140 + 101 68 0.8290641 + 102 68 0.8654457 + 103 68 0.9004509 + 104 68 0.9336064 + 105 68 0.9644791 + 106 68 0.9926846 + 107 68 1.000000 + 108 68 1.000000 + 109 68 1.000000 + 110 68 1.000000 + 111 68 1.000000 + 112 68 1.000000 + 113 68 1.000000 + 114 68 1.000000 + 115 68 1.000000 + 116 68 1.000000 + 117 68 1.000000 + 118 68 1.000000 + 119 68 1.000000 + 120 68 1.000000 + 121 68 0.9839951 + 122 68 0.9609114 + 123 68 0.9359555 + 124 68 0.9094567 + 125 68 0.8817344 + 126 68 0.8530941 + 127 68 0.8238235 + 128 68 0.8054481 + 129 68 0.7738476 + 130 68 0.7426153 + 131 68 0.7119027 + 132 68 0.6818389 + 133 68 0.6525267 + 134 68 0.6453467 + 135 68 0.6144471 + 136 68 0.5849472 + 137 68 0.5568037 + 138 68 0.5299643 + 139 68 0.5043688 + 140 68 0.4799502 + 141 68 0.4566386 + 142 68 0.4343610 + 143 68 0.4695160 + 144 68 0.4487983 + 145 68 0.4109382 + 146 68 0.3763995 + 147 68 0.3629792 + 148 68 0.3501959 + 149 68 0.3380179 + 150 68 0.3264181 + 151 68 0.3238938 + 152 68 0.3238938 + 153 68 0.3238938 + 154 68 0.3238938 + 155 68 0.3238938 + 156 68 0.3238938 + 157 68 0.3238938 + 158 68 0.3238938 + 159 68 0.3238938 + 160 68 0.3238938 + 1 69 1.000000 + 2 69 1.000000 + 3 69 1.000000 + 4 69 1.000000 + 5 69 1.000000 + 6 69 1.000000 + 7 69 1.000000 + 8 69 1.000000 + 9 69 1.000000 + 10 69 1.000000 + 11 69 1.000000 + 12 69 1.000000 + 13 69 1.000000 + 14 69 1.000000 + 15 69 1.000000 + 16 69 1.000000 + 17 69 1.000000 + 18 69 1.000000 + 19 69 1.000000 + 20 69 1.000000 + 21 69 1.000000 + 22 69 1.000000 + 23 69 1.000000 + 24 69 1.000000 + 25 69 1.000000 + 26 69 1.000000 + 27 69 1.000000 + 28 69 0.9911504 + 29 69 0.9911504 + 30 69 0.9911504 + 31 69 0.9911504 + 32 69 0.9911504 + 33 69 0.9911504 + 34 69 0.9911504 + 35 69 0.9651382 + 36 69 0.8945729 + 37 69 0.8408508 + 38 69 0.7893217 + 39 69 0.7403498 + 40 69 0.6942762 + 41 69 0.6514191 + 42 69 0.5904108 + 43 69 0.5518075 + 44 69 0.5167838 + 45 69 0.4854564 + 46 69 0.4578847 + 47 69 0.4340740 + 48 69 0.4139702 + 49 69 0.4071137 + 50 69 0.3952382 + 51 69 0.3866669 + 52 69 0.3811324 + 53 69 0.3783236 + 54 69 0.3738070 + 55 69 0.3758728 + 56 69 0.3794754 + 57 69 0.3841915 + 58 69 0.3895884 + 59 69 0.3952314 + 60 69 0.4105609 + 61 69 0.4305060 + 62 69 0.4383766 + 63 69 0.4454396 + 64 69 0.4514202 + 65 69 0.4560843 + 66 69 0.4592438 + 67 69 0.4607602 + 68 69 0.4585912 + 69 69 0.4565983 + 70 69 0.4516649 + 71 69 0.4502127 + 72 69 0.4425427 + 73 69 0.4434001 + 74 69 0.4348346 + 75 69 0.4256640 + 76 69 0.4162139 + 77 69 0.4068444 + 78 69 0.3996328 + 79 69 0.3915339 + 80 69 0.3847117 + 81 69 0.3795762 + 82 69 0.3765242 + 83 69 0.3625635 + 84 69 0.3668779 + 85 69 0.3740028 + 86 69 0.3662288 + 87 69 0.3771067 + 88 69 0.3915295 + 89 69 0.4092310 + 90 69 0.4301969 + 91 69 0.4543372 + 92 69 0.4814887 + 93 69 0.5114180 + 94 69 0.5438288 + 95 69 0.5783688 + 96 69 0.6146374 + 97 69 0.6521983 + 98 69 0.7038931 + 99 69 0.7518564 + 100 69 0.7888890 + 101 69 0.8255339 + 102 69 0.8612763 + 103 69 0.8956298 + 104 69 0.9281409 + 105 69 0.9583983 + 106 69 1.000000 + 107 69 1.000000 + 108 69 1.000000 + 109 69 1.000000 + 110 69 1.000000 + 111 69 1.000000 + 112 69 1.000000 + 113 69 1.000000 + 114 69 1.000000 + 115 69 1.000000 + 116 69 1.000000 + 117 69 1.000000 + 118 69 1.000000 + 119 69 1.000000 + 120 69 1.000000 + 121 69 0.9826013 + 122 69 0.9608135 + 123 69 0.9372038 + 124 69 0.9120812 + 125 69 0.8857460 + 126 69 0.8584847 + 127 69 0.8305671 + 128 69 0.8135939 + 129 69 0.7832479 + 130 69 0.7531976 + 131 69 0.7235852 + 132 69 0.6945301 + 133 69 0.6661285 + 134 69 0.6596933 + 135 69 0.6295218 + 136 69 0.6006333 + 137 69 0.5729854 + 138 69 0.5465280 + 139 69 0.5212033 + 140 69 0.4969475 + 141 69 0.4736945 + 142 69 0.4513760 + 143 69 0.4299237 + 144 69 0.4440434 + 145 69 0.4255992 + 146 69 0.3892342 + 147 69 0.3749026 + 148 69 0.3611145 + 149 69 0.3478455 + 150 69 0.3350758 + 151 69 0.3238938 + 152 69 0.3238938 + 153 69 0.3238938 + 154 69 0.3238938 + 155 69 0.3238938 + 156 69 0.3238938 + 157 69 0.3238938 + 158 69 0.3238938 + 159 69 0.3238938 + 160 69 0.3238938 + 1 70 1.000000 + 2 70 1.000000 + 3 70 1.000000 + 4 70 1.000000 + 5 70 1.000000 + 6 70 1.000000 + 7 70 1.000000 + 8 70 1.000000 + 9 70 1.000000 + 10 70 1.000000 + 11 70 1.000000 + 12 70 1.000000 + 13 70 1.000000 + 14 70 1.000000 + 15 70 1.000000 + 16 70 1.000000 + 17 70 1.000000 + 18 70 1.000000 + 19 70 1.000000 + 20 70 1.000000 + 21 70 1.000000 + 22 70 1.000000 + 23 70 1.000000 + 24 70 1.000000 + 25 70 1.000000 + 26 70 1.000000 + 27 70 1.000000 + 28 70 0.9911504 + 29 70 0.9911504 + 30 70 0.9911504 + 31 70 0.9911504 + 32 70 0.9911504 + 33 70 0.9911504 + 34 70 0.9911504 + 35 70 0.9500163 + 36 70 0.8805405 + 37 70 0.8277296 + 38 70 0.7769871 + 39 70 0.7286769 + 40 70 0.6831428 + 41 70 0.6407050 + 42 70 0.5802438 + 43 70 0.5418543 + 44 70 0.5069425 + 45 70 0.4756302 + 46 70 0.4479854 + 47 70 0.4240195 + 48 70 0.4130858 + 49 70 0.3975059 + 50 70 0.3853988 + 51 70 0.3765529 + 52 70 0.3707078 + 53 70 0.3675578 + 54 70 0.3667594 + 55 70 0.3638747 + 56 70 0.3671434 + 57 70 0.3715132 + 58 70 0.3765579 + 59 70 0.3908556 + 60 70 0.3974050 + 61 70 0.4167609 + 62 70 0.4243602 + 63 70 0.4292645 + 64 70 0.4349701 + 65 70 0.4394130 + 66 70 0.4424141 + 67 70 0.4438423 + 68 70 0.4436180 + 69 70 0.4417145 + 70 70 0.4369700 + 71 70 0.4360804 + 72 70 0.4380350 + 73 70 0.4308451 + 74 70 0.4228588 + 75 70 0.4143603 + 76 70 0.4056705 + 77 70 0.3971418 + 78 70 0.3891496 + 79 70 0.3820853 + 80 70 0.3763465 + 81 70 0.3723277 + 82 70 0.3704099 + 83 70 0.3593943 + 84 70 0.3647641 + 85 70 0.3552216 + 86 70 0.3642025 + 87 70 0.3758041 + 88 70 0.3908475 + 89 70 0.4090678 + 90 70 0.4304391 + 91 70 0.4548611 + 92 70 0.4821637 + 93 70 0.5121089 + 94 70 0.5443981 + 95 70 0.5786793 + 96 70 0.6145562 + 97 70 0.6515974 + 98 70 0.7177201 + 99 70 0.7508875 + 100 70 0.7873244 + 101 70 0.8233165 + 102 70 0.8583696 + 103 70 0.8920171 + 104 70 0.9238273 + 105 70 0.9534105 + 106 70 0.9991980 + 107 70 1.000000 + 108 70 1.000000 + 109 70 1.000000 + 110 70 1.000000 + 111 70 1.000000 + 112 70 1.000000 + 113 70 1.000000 + 114 70 1.000000 + 115 70 1.000000 + 116 70 1.000000 + 117 70 1.000000 + 118 70 1.000000 + 119 70 1.000000 + 120 70 1.000000 + 121 70 0.9883880 + 122 70 0.9610392 + 123 70 0.9387825 + 124 70 0.9150505 + 125 70 0.8901248 + 126 70 0.8642728 + 127 70 0.8377458 + 128 70 0.8221984 + 129 70 0.7931593 + 130 70 0.7643476 + 131 70 0.7358937 + 132 70 0.7079074 + 133 70 0.6804767 + 134 70 0.6748062 + 135 70 0.6454245 + 136 70 0.6172041 + 137 70 0.5901034 + 138 70 0.5640726 + 139 70 0.5390558 + 140 70 0.5149919 + 141 70 0.4918181 + 142 70 0.4694704 + 143 70 0.4478851 + 144 70 0.4270017 + 145 70 0.4425133 + 146 70 0.3795006 + 147 70 0.3885896 + 148 70 0.3737806 + 149 70 0.3594043 + 150 70 0.3454499 + 151 70 0.3238938 + 152 70 0.3238938 + 153 70 0.3238938 + 154 70 0.3238938 + 155 70 0.3238938 + 156 70 0.3238938 + 157 70 0.3238938 + 158 70 0.3238938 + 159 70 0.3238938 + 160 70 0.3238938 + 1 71 1.000000 + 2 71 1.000000 + 3 71 1.000000 + 4 71 1.000000 + 5 71 1.000000 + 6 71 1.000000 + 7 71 1.000000 + 8 71 1.000000 + 9 71 1.000000 + 10 71 1.000000 + 11 71 1.000000 + 12 71 1.000000 + 13 71 1.000000 + 14 71 1.000000 + 15 71 1.000000 + 16 71 1.000000 + 17 71 1.000000 + 18 71 1.000000 + 19 71 1.000000 + 20 71 1.000000 + 21 71 1.000000 + 22 71 1.000000 + 23 71 1.000000 + 24 71 1.000000 + 25 71 1.000000 + 26 71 1.000000 + 27 71 1.000000 + 28 71 0.9911504 + 29 71 0.9911504 + 30 71 0.9911504 + 31 71 0.9911504 + 32 71 0.9911504 + 33 71 0.9911504 + 34 71 0.9866188 + 35 71 0.9336360 + 36 71 0.8653495 + 37 71 0.8135170 + 38 71 0.7636247 + 39 71 0.7160355 + 40 71 0.6710954 + 41 71 0.6291276 + 42 71 0.5692816 + 43 71 0.5311484 + 44 71 0.4963850 + 45 71 0.4651213 + 46 71 0.4374313 + 47 71 0.4224341 + 48 71 0.4031314 + 49 71 0.3873990 + 50 71 0.3750874 + 51 71 0.3659929 + 52 71 0.3598616 + 53 71 0.3563957 + 54 71 0.3552575 + 55 71 0.3560773 + 56 71 0.3544360 + 57 71 0.3584946 + 58 71 0.3632224 + 59 71 0.3777223 + 60 71 0.3822177 + 61 71 0.4008918 + 62 71 0.4081711 + 63 71 0.4147133 + 64 71 0.4202598 + 65 71 0.4245931 + 66 71 0.4275407 + 67 71 0.4289784 + 68 71 0.4288323 + 69 71 0.4270809 + 70 71 0.4225928 + 71 71 0.4264519 + 72 71 0.4255350 + 73 71 0.4189033 + 74 71 0.4115740 + 75 71 0.4038268 + 76 71 0.3959768 + 77 71 0.3883694 + 78 71 0.3813706 + 79 71 0.3753606 + 80 71 0.3707249 + 81 71 0.3678435 + 82 71 0.3670835 + 83 71 0.3558784 + 84 71 0.3451260 + 85 71 0.3521780 + 86 71 0.3636147 + 87 71 0.3759685 + 88 71 0.3916595 + 89 71 0.4104189 + 90 71 0.4322084 + 91 71 0.4569185 + 92 71 0.4843716 + 93 71 0.5143242 + 94 71 0.5464765 + 95 71 0.5804765 + 96 71 0.6159325 + 97 71 0.6639738 + 98 71 0.7184927 + 99 71 0.7512919 + 100 71 0.7870875 + 101 71 0.8223779 + 102 71 0.8566886 + 103 71 0.8895745 + 104 71 0.9206265 + 105 71 0.9494764 + 106 71 0.9937912 + 107 71 1.000000 + 108 71 1.000000 + 109 71 1.000000 + 110 71 1.000000 + 111 71 1.000000 + 112 71 1.000000 + 113 71 1.000000 + 114 71 1.000000 + 115 71 1.000000 + 116 71 1.000000 + 117 71 1.000000 + 118 71 1.000000 + 119 71 1.000000 + 120 71 1.000000 + 121 71 0.9881471 + 122 71 0.9681864 + 123 71 0.9406628 + 124 71 0.9183373 + 125 71 0.8948439 + 126 71 0.8704324 + 127 71 0.8453346 + 128 71 0.8312369 + 129 71 0.8035594 + 130 71 0.7760447 + 131 71 0.7488108 + 132 71 0.7219560 + 133 71 0.6955596 + 134 71 0.6906756 + 135 71 0.6621500 + 136 71 0.6346595 + 137 71 0.6081614 + 138 71 0.5826058 + 139 71 0.5579380 + 140 71 0.5340987 + 141 71 0.5110271 + 142 71 0.4886645 + 143 71 0.4669511 + 144 71 0.4458318 + 145 71 0.4252561 + 146 71 0.4200847 + 147 71 0.3808520 + 148 71 0.3628176 + 149 71 0.3726899 + 150 71 0.3239419 + 151 71 0.3238938 + 152 71 0.3238938 + 153 71 0.3238938 + 154 71 0.3238938 + 155 71 0.3238938 + 156 71 0.3238938 + 157 71 0.3238938 + 158 71 0.3238938 + 159 71 0.3238938 + 160 71 0.3238938 + 1 72 1.000000 + 2 72 1.000000 + 3 72 1.000000 + 4 72 1.000000 + 5 72 1.000000 + 6 72 1.000000 + 7 72 1.000000 + 8 72 1.000000 + 9 72 1.000000 + 10 72 1.000000 + 11 72 1.000000 + 12 72 1.000000 + 13 72 1.000000 + 14 72 1.000000 + 15 72 1.000000 + 16 72 1.000000 + 17 72 1.000000 + 18 72 1.000000 + 19 72 1.000000 + 20 72 1.000000 + 21 72 1.000000 + 22 72 1.000000 + 23 72 1.000000 + 24 72 1.000000 + 25 72 1.000000 + 26 72 1.000000 + 27 72 1.000000 + 28 72 0.9911504 + 29 72 0.9911504 + 30 72 0.9911504 + 31 72 0.9911504 + 32 72 0.9911504 + 33 72 0.9911504 + 34 72 0.9676619 + 35 72 0.9159848 + 36 72 0.8489873 + 37 72 0.7982002 + 38 72 0.7492213 + 39 72 0.7024127 + 40 72 0.6581219 + 41 72 0.6166745 + 42 72 0.5575135 + 43 72 0.5196795 + 44 72 0.4851040 + 45 72 0.4539220 + 46 72 0.4262167 + 47 72 0.4120143 + 48 72 0.3926515 + 49 72 0.3767971 + 50 72 0.3643098 + 51 72 0.3549949 + 52 72 0.3486054 + 53 72 0.3448507 + 54 72 0.3434001 + 55 72 0.3438908 + 56 72 0.3459345 + 57 72 0.3434387 + 58 72 0.3477949 + 59 72 0.3624267 + 60 72 0.3684681 + 61 72 0.3741772 + 62 72 0.3937220 + 63 72 0.4001138 + 64 72 0.4055537 + 65 72 0.4098327 + 66 72 0.4127844 + 67 72 0.4142920 + 68 72 0.4142872 + 69 72 0.4127530 + 70 72 0.4085894 + 71 72 0.4136584 + 72 72 0.4136374 + 73 72 0.4076411 + 74 72 0.4010469 + 75 72 0.3941301 + 76 72 0.3872003 + 77 72 0.3805939 + 78 72 0.3746679 + 79 72 0.3697909 + 80 72 0.3663353 + 81 72 0.3646667 + 82 72 0.3651371 + 83 72 0.3385087 + 84 72 0.3439966 + 85 72 0.3519749 + 86 72 0.3626644 + 87 72 0.3758281 + 88 72 0.3922106 + 89 72 0.4132993 + 90 72 0.4355143 + 91 72 0.4605119 + 92 72 0.4881076 + 93 72 0.5180529 + 94 72 0.5500460 + 95 72 0.5837373 + 96 72 0.6297176 + 97 72 0.6671253 + 98 72 0.7206565 + 99 72 0.7530298 + 100 72 0.7881352 + 101 72 0.8226714 + 102 72 0.8561852 + 103 72 0.8882529 + 104 72 0.9184880 + 105 72 0.9465449 + 106 72 0.9893348 + 107 72 1.000000 + 108 72 1.000000 + 109 72 1.000000 + 110 72 1.000000 + 111 72 1.000000 + 112 72 1.000000 + 113 72 1.000000 + 114 72 1.000000 + 115 72 1.000000 + 116 72 1.000000 + 117 72 1.000000 + 118 72 1.000000 + 119 72 1.000000 + 120 72 1.000000 + 121 72 0.9881887 + 122 72 0.9694614 + 123 72 0.9428092 + 124 72 0.9219056 + 125 72 0.8998689 + 126 72 0.8769292 + 127 72 0.8533001 + 128 72 0.8406758 + 129 72 0.8144155 + 130 72 0.7882584 + 131 72 0.7623083 + 132 72 0.7366516 + 133 72 0.7113559 + 134 72 0.7072833 + 135 72 0.6796834 + 136 72 0.6529881 + 137 72 0.6271524 + 138 72 0.6021245 + 139 72 0.5778502 + 140 72 0.5542709 + 141 72 0.5313290 + 142 72 0.5089680 + 143 72 0.4871337 + 144 72 0.4657763 + 145 72 0.4448516 + 146 72 0.4243225 + 147 72 0.4012187 + 148 72 0.3824019 + 149 72 0.3637407 + 150 72 0.3238938 + 151 72 0.3238938 + 152 72 0.3238938 + 153 72 0.3238938 + 154 72 0.3238938 + 155 72 0.3238938 + 156 72 0.3238938 + 157 72 0.3238938 + 158 72 0.3238938 + 159 72 0.3238938 + 160 72 0.3238938 + 1 73 1.000000 + 2 73 1.000000 + 3 73 1.000000 + 4 73 1.000000 + 5 73 1.000000 + 6 73 1.000000 + 7 73 1.000000 + 8 73 1.000000 + 9 73 1.000000 + 10 73 1.000000 + 11 73 1.000000 + 12 73 1.000000 + 13 73 1.000000 + 14 73 1.000000 + 15 73 1.000000 + 16 73 1.000000 + 17 73 1.000000 + 18 73 1.000000 + 19 73 1.000000 + 20 73 1.000000 + 21 73 1.000000 + 22 73 1.000000 + 23 73 1.000000 + 24 73 1.000000 + 25 73 1.000000 + 26 73 1.000000 + 27 73 1.000000 + 28 73 0.9911504 + 29 73 0.9911504 + 30 73 0.9911504 + 31 73 0.9911504 + 32 73 0.9911504 + 33 73 0.9911504 + 34 73 0.9473687 + 35 73 0.8970620 + 36 73 0.8314520 + 37 73 0.7817748 + 38 73 0.7337714 + 39 73 0.6878026 + 40 73 0.6442157 + 41 73 0.6033390 + 42 73 0.5449346 + 43 73 0.5074437 + 44 73 0.4730946 + 45 73 0.4420293 + 46 73 0.4239487 + 47 73 0.4010396 + 48 73 0.3816507 + 49 73 0.3657072 + 50 73 0.3530765 + 51 73 0.3435710 + 52 73 0.3369528 + 53 73 0.3329387 + 54 73 0.3312059 + 55 73 0.3296658 + 56 73 0.3313084 + 57 73 0.3340904 + 58 73 0.3337099 + 59 73 0.3486578 + 60 73 0.3545552 + 61 73 0.3601516 + 62 73 0.3792112 + 63 73 0.3855060 + 64 73 0.3908958 + 65 73 0.3951783 + 66 73 0.3981953 + 67 73 0.3998357 + 68 73 0.4000371 + 69 73 0.3978414 + 70 73 0.4041967 + 71 73 0.4014335 + 72 73 0.3976487 + 73 73 0.3971249 + 74 73 0.3913445 + 75 73 0.3853379 + 76 73 0.3794076 + 77 73 0.3738817 + 78 73 0.3691068 + 79 73 0.3654397 + 80 73 0.3632391 + 81 73 0.3628558 + 82 73 0.3481818 + 83 73 0.3377599 + 84 73 0.3442656 + 85 73 0.3532047 + 86 73 0.3647799 + 87 73 0.3791368 + 88 73 0.3958049 + 89 73 0.4156994 + 90 73 0.4383611 + 91 73 0.4656351 + 92 73 0.4933582 + 93 73 0.5232749 + 94 73 0.5550811 + 95 73 0.5884285 + 96 73 0.6347867 + 97 73 0.6716717 + 98 73 0.7241633 + 99 73 0.7560502 + 100 73 0.7904134 + 101 73 0.8241406 + 102 73 0.8568004 + 103 73 0.8879918 + 104 73 0.9173506 + 105 73 0.9445550 + 106 73 0.9857690 + 107 73 1.000000 + 108 73 1.000000 + 109 73 1.000000 + 110 73 1.000000 + 111 73 1.000000 + 112 73 1.000000 + 113 73 1.000000 + 114 73 1.000000 + 115 73 1.000000 + 116 73 1.000000 + 117 73 1.000000 + 118 73 1.000000 + 119 73 1.000000 + 120 73 1.000000 + 121 73 0.9884673 + 122 73 0.9709700 + 123 73 0.9520061 + 124 73 0.9257112 + 125 73 0.9051554 + 126 73 0.8837199 + 127 73 0.8615987 + 128 73 0.8504710 + 129 73 0.8256858 + 130 73 0.8009484 + 131 73 0.7763484 + 132 73 0.7519576 + 133 73 0.7278323 + 134 73 0.7245982 + 135 73 0.6979974 + 136 73 0.6721663 + 137 73 0.6470562 + 138 73 0.6226128 + 139 73 0.5987806 + 140 73 0.5755016 + 141 73 0.5527192 + 142 73 0.5303800 + 143 73 0.5084345 + 144 73 0.4868382 + 145 73 0.4655544 + 146 73 0.4445539 + 147 73 0.4042864 + 148 73 0.4033402 + 149 73 0.3837466 + 150 73 0.3328169 + 151 73 0.3238938 + 152 73 0.3238938 + 153 73 0.3238938 + 154 73 0.3238938 + 155 73 0.3238938 + 156 73 0.3238938 + 157 73 0.3238938 + 158 73 0.3238938 + 159 73 0.3238938 + 160 73 0.3238938 + 1 74 1.000000 + 2 74 1.000000 + 3 74 1.000000 + 4 74 1.000000 + 5 74 1.000000 + 6 74 1.000000 + 7 74 1.000000 + 8 74 1.000000 + 9 74 1.000000 + 10 74 1.000000 + 11 74 1.000000 + 12 74 1.000000 + 13 74 1.000000 + 14 74 1.000000 + 15 74 1.000000 + 16 74 1.000000 + 17 74 1.000000 + 18 74 1.000000 + 19 74 1.000000 + 20 74 1.000000 + 21 74 1.000000 + 22 74 1.000000 + 23 74 1.000000 + 24 74 1.000000 + 25 74 1.000000 + 26 74 1.000000 + 27 74 1.000000 + 28 74 0.9911504 + 29 74 0.9911504 + 30 74 0.9911504 + 31 74 0.9911504 + 32 74 0.9911504 + 33 74 0.9752379 + 34 74 0.9257554 + 35 74 0.8768803 + 36 74 0.8127522 + 37 74 0.7642469 + 38 74 0.7172782 + 39 74 0.6722061 + 40 74 0.6293777 + 41 74 0.5891212 + 42 74 0.5315443 + 43 74 0.4944407 + 44 74 0.4603573 + 45 74 0.4294435 + 46 74 0.4123412 + 47 74 0.3895174 + 48 74 0.3701393 + 49 74 0.3541415 + 50 74 0.3413998 + 51 74 0.3317359 + 52 74 0.3249209 + 53 74 0.3189305 + 54 74 0.3168610 + 55 74 0.3166928 + 56 74 0.3180532 + 57 74 0.3205516 + 58 74 0.3333360 + 59 74 0.3347077 + 60 74 0.3405135 + 61 74 0.3460496 + 62 74 0.3646792 + 63 74 0.3709339 + 64 74 0.3763326 + 65 74 0.3806804 + 66 74 0.3838258 + 67 74 0.3856646 + 68 74 0.3861399 + 69 74 0.3843250 + 70 74 0.3919601 + 71 74 0.3898419 + 72 74 0.3868003 + 73 74 0.3874238 + 74 74 0.3825358 + 75 74 0.3775182 + 76 74 0.3726662 + 77 74 0.3682988 + 78 74 0.3647517 + 79 74 0.3623688 + 80 74 0.3614952 + 81 74 0.3464957 + 82 74 0.3474340 + 83 74 0.3384036 + 84 74 0.3459612 + 85 74 0.3558891 + 86 74 0.3683722 + 87 74 0.3835376 + 88 74 0.4008929 + 89 74 0.4213502 + 90 74 0.4444327 + 91 74 0.4700026 + 92 74 0.4978626 + 93 74 0.5299606 + 94 74 0.5615444 + 95 74 0.6056909 + 96 74 0.3381011 + 97 74 0.6775580 + 98 74 0.7289544 + 99 74 0.7633815 + 100 74 0.7938563 + 101 74 0.8267171 + 102 74 0.8584642 + 103 74 0.8887200 + 104 74 0.9171428 + 105 74 0.9434350 + 106 74 0.9830245 + 107 74 1.000000 + 108 74 1.000000 + 109 74 1.000000 + 110 74 1.000000 + 111 74 1.000000 + 112 74 1.000000 + 113 74 1.000000 + 114 74 1.000000 + 115 74 1.000000 + 116 74 1.000000 + 117 74 1.000000 + 118 74 1.000000 + 119 74 1.000000 + 120 74 1.000000 + 121 74 0.9889290 + 122 74 0.9726588 + 123 74 0.9550170 + 124 74 0.9297017 + 125 74 0.9106506 + 126 74 0.8907511 + 127 74 0.8701781 + 128 74 0.8605699 + 129 74 0.8373176 + 130 74 0.8140635 + 131 74 0.7908808 + 132 74 0.7678266 + 133 74 0.7687831 + 134 74 0.7425773 + 135 74 0.7170523 + 136 74 0.6921582 + 137 74 0.6678406 + 138 74 0.6440424 + 139 74 0.6207048 + 140 74 0.5977691 + 141 74 0.5751803 + 142 74 0.5528867 + 143 74 0.5308424 + 144 74 0.5090095 + 145 74 0.4873584 + 146 74 0.4658685 + 147 74 0.4244027 + 148 74 0.4256658 + 149 74 0.4050525 + 150 74 0.3545052 + 151 74 0.3379132 + 152 74 0.3238938 + 153 74 0.3238938 + 154 74 0.3238938 + 155 74 0.3238938 + 156 74 0.3238938 + 157 74 0.3238938 + 158 74 0.3238938 + 159 74 0.3238938 + 160 74 0.3238938 + 1 75 1.000000 + 2 75 1.000000 + 3 75 1.000000 + 4 75 1.000000 + 5 75 1.000000 + 6 75 1.000000 + 7 75 1.000000 + 8 75 1.000000 + 9 75 1.000000 + 10 75 1.000000 + 11 75 1.000000 + 12 75 1.000000 + 13 75 1.000000 + 14 75 1.000000 + 15 75 1.000000 + 16 75 1.000000 + 17 75 1.000000 + 18 75 1.000000 + 19 75 1.000000 + 20 75 1.000000 + 21 75 1.000000 + 22 75 1.000000 + 23 75 1.000000 + 24 75 1.000000 + 25 75 1.000000 + 26 75 1.000000 + 27 75 1.000000 + 28 75 0.9911504 + 29 75 0.9911504 + 30 75 0.9911504 + 31 75 0.9911504 + 32 75 0.9911504 + 33 75 0.9507372 + 34 75 0.9028561 + 35 75 0.8554648 + 36 75 0.7929095 + 37 75 0.7456336 + 38 75 0.6997565 + 39 75 0.6556353 + 40 75 0.6136162 + 41 75 0.5740293 + 42 75 0.5371803 + 43 75 0.4806766 + 44 75 0.4468979 + 45 75 0.4262255 + 46 75 0.4001592 + 47 75 0.3774604 + 48 75 0.3581308 + 49 75 0.3421144 + 50 75 0.3292961 + 51 75 0.3195086 + 52 75 0.3106684 + 53 75 0.3061493 + 54 75 0.3038561 + 55 75 0.3034494 + 56 75 0.3045638 + 57 75 0.3068165 + 58 75 0.3198721 + 59 75 0.3248560 + 60 75 0.3263784 + 61 75 0.3319111 + 62 75 0.3501696 + 63 75 0.3564447 + 64 75 0.3619144 + 65 75 0.3663913 + 66 75 0.3697316 + 67 75 0.3718368 + 68 75 0.3726554 + 69 75 0.3807594 + 70 75 0.3803439 + 71 75 0.3789504 + 72 75 0.3767330 + 73 75 0.3738891 + 74 75 0.3746893 + 75 75 0.3707387 + 76 75 0.3670422 + 77 75 0.3639090 + 78 75 0.3616633 + 79 75 0.3606367 + 80 75 0.3611587 + 81 75 0.3459156 + 82 75 0.3480567 + 83 75 0.3404681 + 84 75 0.3491052 + 85 75 0.3600433 + 86 75 0.3734480 + 87 75 0.3894294 + 88 75 0.4074675 + 89 75 0.4284800 + 90 75 0.4519691 + 91 75 0.4777871 + 92 75 0.5057302 + 93 75 0.5355400 + 94 75 0.5669128 + 95 75 0.6139502 + 96 75 0.6490220 + 97 75 0.6847197 + 98 75 0.7349591 + 99 75 0.7685807 + 100 75 0.7983884 + 101 75 0.8303234 + 102 75 0.8610974 + 103 75 0.8903558 + 104 75 0.9177826 + 105 75 0.9605775 + 106 75 0.9810202 + 107 75 0.9992597 + 108 75 1.000000 + 109 75 1.000000 + 110 75 1.000000 + 111 75 1.000000 + 112 75 1.000000 + 113 75 1.000000 + 114 75 1.000000 + 115 75 1.000000 + 116 75 1.000000 + 117 75 1.000000 + 118 75 1.000000 + 119 75 1.000000 + 120 75 1.000000 + 121 75 0.9895115 + 122 75 0.9744656 + 123 75 0.9581514 + 124 75 0.9407577 + 125 75 0.9162933 + 126 75 0.8979617 + 127 75 0.8789766 + 128 75 0.8709095 + 129 75 0.8492487 + 130 75 0.8275414 + 131 75 0.8058445 + 132 75 0.7841989 + 133 75 0.7860826 + 134 75 0.7611656 + 135 75 0.7367951 + 136 75 0.7129135 + 137 75 0.6894593 + 138 75 0.6663703 + 139 75 0.6435836 + 140 75 0.6210388 + 141 75 0.5986809 + 142 75 0.5764593 + 143 75 0.5543332 + 144 75 0.5322691 + 145 75 0.5102456 + 146 75 0.4882507 + 147 75 0.4662863 + 148 75 0.4262660 + 149 75 0.3950244 + 150 75 0.3774354 + 151 75 0.3594548 + 152 75 0.3411900 + 153 75 0.3238938 + 154 75 0.3238938 + 155 75 0.3238938 + 156 75 0.3238938 + 157 75 0.3238938 + 158 75 0.3238938 + 159 75 0.3238938 + 160 75 0.3238938 + 1 76 1.000000 + 2 76 1.000000 + 3 76 1.000000 + 4 76 1.000000 + 5 76 1.000000 + 6 76 1.000000 + 7 76 1.000000 + 8 76 1.000000 + 9 76 1.000000 + 10 76 1.000000 + 11 76 1.000000 + 12 76 1.000000 + 13 76 1.000000 + 14 76 1.000000 + 15 76 1.000000 + 16 76 1.000000 + 17 76 1.000000 + 18 76 1.000000 + 19 76 1.000000 + 20 76 1.000000 + 21 76 1.000000 + 22 76 1.000000 + 23 76 1.000000 + 24 76 1.000000 + 25 76 1.000000 + 26 76 1.000000 + 27 76 1.000000 + 28 76 0.9911504 + 29 76 0.9911504 + 30 76 0.9911504 + 31 76 0.9911504 + 32 76 0.9712340 + 33 76 0.9249564 + 34 76 0.8787200 + 35 76 0.8328586 + 36 76 0.7719597 + 37 76 0.7259643 + 38 76 0.6812307 + 39 76 0.6381111 + 40 76 0.5969505 + 41 76 0.5580789 + 42 76 0.5218043 + 43 76 0.4661649 + 44 76 0.4327292 + 45 76 0.4132302 + 46 76 0.3874181 + 47 76 0.3648855 + 48 76 0.3456431 + 49 76 0.3296449 + 50 76 0.3148696 + 51 76 0.3049242 + 52 76 0.2977385 + 53 76 0.2930546 + 54 76 0.2905745 + 55 76 0.2899665 + 56 76 0.2908741 + 57 76 0.2929217 + 58 76 0.3063083 + 59 76 0.3111990 + 60 76 0.3121897 + 61 76 0.3177793 + 62 76 0.3228581 + 63 76 0.3420872 + 64 76 0.3476931 + 65 76 0.3523667 + 66 76 0.3559705 + 67 76 0.3584122 + 68 76 0.3596459 + 69 76 0.3691239 + 70 76 0.3694145 + 71 76 0.3688262 + 72 76 0.3675141 + 73 76 0.3656736 + 74 76 0.3678724 + 75 76 0.3650659 + 76 76 0.3626001 + 77 76 0.3607750 + 78 76 0.3599021 + 79 76 0.3602995 + 80 76 0.3452188 + 81 76 0.3466989 + 82 76 0.3362645 + 83 76 0.3439746 + 84 76 0.3537119 + 85 76 0.3656737 + 86 76 0.3800064 + 87 76 0.3968031 + 88 76 0.4155118 + 89 76 0.4370635 + 90 76 0.4609360 + 91 76 0.4869730 + 92 76 0.5149634 + 93 76 0.5446466 + 94 76 0.5869510 + 95 76 0.6207129 + 96 76 0.6580575 + 97 76 0.7093879 + 98 76 0.7420974 + 99 76 0.7748541 + 100 76 0.8072592 + 101 76 0.8348693 + 102 76 0.8646081 + 103 76 0.8928088 + 104 76 0.9191787 + 105 76 0.9600898 + 106 76 0.9796671 + 107 76 0.9970993 + 108 76 1.000000 + 109 76 1.000000 + 110 76 1.000000 + 111 76 1.000000 + 112 76 1.000000 + 113 76 1.000000 + 114 76 1.000000 + 115 76 1.000000 + 116 76 1.000000 + 117 76 1.000000 + 118 76 1.000000 + 119 76 1.000000 + 120 76 1.000000 + 121 76 0.9901467 + 122 76 0.9763223 + 123 76 0.9613406 + 124 76 0.9453713 + 125 76 0.9220144 + 126 76 0.9052817 + 127 76 0.8879235 + 128 76 0.8814183 + 129 76 0.8614061 + 130 76 0.8413098 + 131 76 0.8211675 + 132 76 0.8010026 + 133 76 0.8038406 + 134 76 0.7802947 + 135 76 0.7571598 + 136 76 0.7343687 + 137 76 0.7118519 + 138 76 0.6895394 + 139 76 0.6673634 + 140 76 0.6452613 + 141 76 0.6231756 + 142 76 0.6010578 + 143 76 0.5788696 + 144 76 0.5565836 + 145 76 0.5341855 + 146 76 0.5116744 + 147 76 0.4890626 + 148 76 0.4478440 + 149 76 0.3737573 + 150 76 0.4016091 + 151 76 0.3821428 + 152 76 0.3623846 + 153 76 0.3424599 + 154 76 0.3238938 + 155 76 0.3238938 + 156 76 0.3238938 + 157 76 0.3238938 + 158 76 0.3238938 + 159 76 0.3238938 + 160 76 0.3238938 + 1 77 1.000000 + 2 77 1.000000 + 3 77 1.000000 + 4 77 1.000000 + 5 77 1.000000 + 6 77 1.000000 + 7 77 1.000000 + 8 77 1.000000 + 9 77 1.000000 + 10 77 1.000000 + 11 77 1.000000 + 12 77 1.000000 + 13 77 1.000000 + 14 77 1.000000 + 15 77 1.000000 + 16 77 1.000000 + 17 77 1.000000 + 18 77 1.000000 + 19 77 1.000000 + 20 77 1.000000 + 21 77 1.000000 + 22 77 1.000000 + 23 77 1.000000 + 24 77 1.000000 + 25 77 1.000000 + 26 77 1.000000 + 27 77 1.000000 + 28 77 0.9911504 + 29 77 0.9911504 + 30 77 0.9911504 + 31 77 0.9866201 + 32 77 0.9424778 + 33 77 0.8979757 + 34 77 0.8534158 + 35 77 0.8091212 + 36 77 0.7499534 + 37 77 0.7052841 + 38 77 0.6617389 + 39 77 0.6196672 + 40 77 0.5794098 + 41 77 0.5412962 + 42 77 0.5056360 + 43 77 0.4509264 + 44 77 0.4282810 + 45 77 0.3996558 + 46 77 0.3741412 + 47 77 0.3518150 + 48 77 0.3326991 + 49 77 0.3146961 + 50 77 0.3017723 + 51 77 0.2917700 + 52 77 0.2889381 + 53 77 0.2889381 + 54 77 0.2889381 + 55 77 0.2889381 + 56 77 0.2889381 + 57 77 0.2889381 + 58 77 0.2926874 + 59 77 0.2975352 + 60 77 0.3026466 + 61 77 0.3037001 + 62 77 0.3089458 + 63 77 0.3279145 + 64 77 0.3337247 + 65 77 0.3386642 + 66 77 0.3426027 + 67 77 0.3454532 + 68 77 0.3569273 + 69 77 0.3581618 + 70 77 0.3592393 + 71 77 0.3595377 + 72 77 0.3592115 + 73 77 0.3584546 + 74 77 0.3574943 + 75 77 0.3605645 + 76 77 0.3594025 + 77 77 0.3589555 + 78 77 0.3595225 + 79 77 0.3449492 + 80 77 0.3460980 + 81 77 0.3488744 + 82 77 0.3400511 + 83 77 0.3489377 + 84 77 0.3597872 + 85 77 0.3727778 + 86 77 0.3880368 + 87 77 0.4056384 + 88 77 0.4249978 + 89 77 0.4470641 + 90 77 0.4712891 + 91 77 0.4975074 + 92 77 0.5255023 + 93 77 0.5550094 + 94 77 0.5977616 + 95 77 0.6311055 + 96 77 0.6651588 + 97 77 0.7183760 + 98 77 0.7502788 + 99 77 0.7821088 + 100 77 0.8134855 + 101 77 0.8402570 + 102 77 0.8688970 + 103 77 0.8959773 + 104 77 0.9212299 + 105 77 0.9602151 + 106 77 0.9788677 + 107 77 0.9954354 + 108 77 1.000000 + 109 77 1.000000 + 110 77 1.000000 + 111 77 1.000000 + 112 77 1.000000 + 113 77 1.000000 + 114 77 1.000000 + 115 77 1.000000 + 116 77 1.000000 + 117 77 1.000000 + 118 77 1.000000 + 119 77 1.000000 + 120 77 1.000000 + 121 77 0.9907581 + 122 77 0.9781525 + 123 77 0.9645075 + 124 77 0.9499748 + 125 77 0.9346946 + 126 77 0.9126335 + 127 77 0.8969398 + 128 77 0.8920150 + 129 77 0.8737085 + 130 77 0.8552858 + 131 77 0.8367663 + 132 77 0.8181552 + 133 77 0.8219751 + 134 77 0.7998837 + 135 77 0.7780671 + 136 77 0.7564467 + 137 77 0.7349432 + 138 77 0.7134779 + 139 77 0.6919767 + 140 77 0.6703719 + 141 77 0.6486040 + 142 77 0.6266255 + 143 77 0.6043995 + 144 77 0.5819050 + 145 77 0.5591351 + 146 77 0.5360997 + 147 77 0.5128232 + 148 77 0.4704296 + 149 77 0.4203391 + 150 77 0.3806988 + 151 77 0.4059697 + 152 77 0.3846244 + 153 77 0.3631228 + 154 77 0.3416042 + 155 77 0.3238938 + 156 77 0.3238938 + 157 77 0.3238938 + 158 77 0.3238938 + 159 77 0.3238938 + 160 77 0.3238938 + 1 78 1.000000 + 2 78 1.000000 + 3 78 1.000000 + 4 78 1.000000 + 5 78 1.000000 + 6 78 1.000000 + 7 78 1.000000 + 8 78 1.000000 + 9 78 1.000000 + 10 78 1.000000 + 11 78 1.000000 + 12 78 1.000000 + 13 78 1.000000 + 14 78 1.000000 + 15 78 0.9911504 + 16 78 0.9911504 + 17 78 0.9911504 + 18 78 0.9911504 + 19 78 0.9911504 + 20 78 0.9911504 + 21 78 0.9911504 + 22 78 0.9911504 + 23 78 0.9911504 + 24 78 0.9911504 + 25 78 0.9911504 + 26 78 0.9911504 + 27 78 0.9911504 + 28 78 0.9911504 + 29 78 0.9911504 + 30 78 0.9911504 + 31 78 0.9548802 + 32 78 0.9126073 + 33 78 0.8698951 + 34 78 0.8270323 + 35 78 0.7843298 + 36 78 0.7269582 + 37 78 0.6836516 + 38 78 0.6413346 + 39 78 0.6003496 + 40 78 0.5610350 + 41 78 0.5237182 + 42 78 0.4887087 + 43 78 0.4349915 + 44 78 0.4137166 + 45 78 0.3855321 + 46 78 0.3603565 + 47 78 0.3361072 + 48 78 0.3171068 + 49 78 0.3012030 + 50 78 0.3037046 + 51 78 0.2936711 + 52 78 0.2889381 + 53 78 0.2889381 + 54 78 0.2889381 + 55 78 0.2889381 + 56 78 0.2889381 + 57 78 0.2889381 + 58 78 0.2926569 + 59 78 0.2970945 + 60 78 0.3018110 + 61 78 0.2942192 + 62 78 0.2952037 + 63 78 0.3139809 + 64 78 0.3200670 + 65 78 0.3253447 + 66 78 0.3296904 + 67 78 0.3330235 + 68 78 0.3459140 + 69 78 0.3479408 + 70 78 0.3498858 + 71 78 0.3511516 + 72 78 0.3518918 + 73 78 0.3522971 + 74 78 0.3525908 + 75 78 0.3572965 + 76 78 0.3575076 + 77 78 0.3585048 + 78 78 0.3447501 + 79 78 0.3458734 + 80 78 0.3483630 + 81 78 0.3524645 + 82 78 0.3452879 + 83 78 0.3553620 + 84 78 0.3673279 + 85 78 0.3813438 + 86 78 0.3975179 + 87 78 0.4159062 + 88 78 0.4358874 + 89 78 0.4584359 + 90 78 0.4829733 + 91 78 0.5093269 + 92 78 0.5372744 + 93 78 0.5777423 + 94 78 0.6097206 + 95 78 0.6425875 + 96 78 0.6760061 + 97 78 0.7248825 + 98 78 0.7560859 + 99 78 0.7902390 + 100 78 0.8205238 + 101 78 0.8499225 + 102 78 0.8738554 + 103 78 0.8997525 + 104 78 0.9238276 + 105 78 0.9608455 + 106 78 0.9785161 + 107 78 0.9941645 + 108 78 1.000000 + 109 78 1.000000 + 110 78 1.000000 + 111 78 0.9995939 + 112 78 1.000000 + 113 78 1.000000 + 114 78 1.000000 + 115 78 1.000000 + 116 78 1.000000 + 117 78 1.000000 + 118 78 1.000000 + 119 78 1.000000 + 120 78 1.000000 + 121 78 0.9912645 + 122 78 0.9798753 + 123 78 0.9675702 + 124 78 0.9544852 + 125 78 0.9407417 + 126 78 0.9199313 + 127 78 0.9059385 + 128 78 0.9026112 + 129 78 0.8860651 + 130 78 0.8693776 + 131 78 0.8525481 + 132 78 0.8355622 + 133 78 0.8403941 + 134 78 0.8198400 + 135 78 0.7994246 + 136 78 0.7790568 + 137 78 0.7586445 + 138 78 0.7380998 + 139 78 0.7173396 + 140 78 0.6962910 + 141 78 0.6748914 + 142 78 0.6530911 + 143 78 0.6308572 + 144 78 0.6081725 + 145 78 0.5850386 + 146 78 0.5614758 + 147 78 0.5375222 + 148 78 0.4939857 + 149 78 0.4446741 + 150 78 0.4025491 + 151 78 0.4309213 + 152 78 0.4078968 + 153 78 0.3847298 + 154 78 0.3615754 + 155 78 0.3385828 + 156 78 0.3238938 + 157 78 0.3238938 + 158 78 0.3238938 + 159 78 0.3238938 + 160 78 0.3238938 + 1 79 1.000000 + 2 79 1.000000 + 3 79 1.000000 + 4 79 1.000000 + 5 79 1.000000 + 6 79 1.000000 + 7 79 1.000000 + 8 79 1.000000 + 9 79 1.000000 + 10 79 1.000000 + 11 79 1.000000 + 12 79 1.000000 + 13 79 1.000000 + 14 79 1.000000 + 15 79 1.000000 + 16 79 0.9911504 + 17 79 0.9911504 + 18 79 0.9911504 + 19 79 0.9911504 + 20 79 0.9911504 + 21 79 0.9911504 + 22 79 0.9911504 + 23 79 0.9911504 + 24 79 0.9911504 + 25 79 0.9911504 + 26 79 0.9911504 + 27 79 0.9911504 + 28 79 0.9911504 + 29 79 0.9911504 + 30 79 0.9618215 + 31 79 0.9221685 + 32 79 0.8817573 + 33 79 0.8408356 + 34 79 0.7996777 + 35 79 0.7585813 + 36 79 0.7030591 + 37 79 0.6611423 + 38 79 0.6200836 + 39 79 0.5802185 + 40 79 0.5418796 + 41 79 0.5053922 + 42 79 0.4710657 + 43 79 0.4290549 + 44 79 0.3985975 + 45 79 0.3880240 + 46 79 0.3611662 + 47 79 0.3396212 + 48 79 0.3210442 + 49 79 0.3054162 + 50 79 0.2926625 + 51 79 0.2889381 + 52 79 0.2889381 + 53 79 0.2889381 + 54 79 0.2889381 + 55 79 0.2889381 + 56 79 0.2889381 + 57 79 0.2889381 + 58 79 0.2889381 + 59 79 0.2889381 + 60 79 0.2906686 + 61 79 0.2954198 + 62 79 0.2956522 + 63 79 0.3002176 + 64 79 0.3194067 + 65 79 0.3124689 + 66 79 0.3172974 + 67 79 0.3311512 + 68 79 0.3356281 + 69 79 0.3385279 + 70 79 0.3414215 + 71 79 0.3437344 + 72 79 0.3456196 + 73 79 0.3472638 + 74 79 0.3488857 + 75 79 0.3507284 + 76 79 0.3569698 + 77 79 0.3594731 + 78 79 0.3456810 + 79 79 0.3481767 + 80 79 0.3520350 + 81 79 0.3574822 + 82 79 0.3519791 + 83 79 0.3632431 + 84 79 0.3763207 + 85 79 0.3913488 + 86 79 0.4084179 + 87 79 0.4275651 + 88 79 0.4487768 + 89 79 0.4711193 + 90 79 0.4959214 + 91 79 0.5223561 + 92 79 0.5501975 + 93 79 0.5911272 + 94 79 0.6227313 + 95 79 0.6550551 + 96 79 0.6877726 + 97 79 0.7352995 + 98 79 0.7655915 + 99 79 0.7955799 + 100 79 0.8282579 + 101 79 0.8564219 + 102 79 0.8793660 + 103 79 0.9040182 + 104 79 0.9434070 + 105 79 0.9618680 + 106 79 0.9785001 + 107 79 0.9931757 + 108 79 1.000000 + 109 79 1.000000 + 110 79 1.000000 + 111 79 0.9974436 + 112 79 1.000000 + 113 79 1.000000 + 114 79 1.000000 + 115 79 1.000000 + 116 79 1.000000 + 117 79 1.000000 + 118 79 1.000000 + 119 79 1.000000 + 120 79 1.000000 + 121 79 0.9915800 + 122 79 0.9814034 + 123 79 0.9704415 + 124 79 0.9588139 + 125 79 0.9466237 + 126 79 0.9270846 + 127 79 0.9148263 + 128 79 0.9131119 + 129 79 0.8983785 + 130 79 0.8834850 + 131 79 0.8684105 + 132 79 0.8531203 + 133 79 0.8589948 + 134 79 0.8400602 + 135 79 0.8211291 + 136 79 0.8020954 + 137 79 0.7828542 + 138 79 0.7633051 + 139 79 0.7433559 + 140 79 0.7229260 + 141 79 0.7019478 + 142 79 0.6803708 + 143 79 0.6581628 + 144 79 0.6353117 + 145 79 0.6118274 + 146 79 0.5877402 + 147 79 0.5631026 + 148 79 0.4892647 + 149 79 0.4698796 + 150 79 0.4252292 + 151 79 0.4070958 + 152 79 0.4321824 + 153 79 0.4072652 + 154 79 0.3823945 + 155 79 0.3577340 + 156 79 0.3334386 + 157 79 0.3238938 + 158 79 0.3238938 + 159 79 0.3238938 + 160 79 0.3238938 + 1 80 1.000000 + 2 80 1.000000 + 3 80 1.000000 + 4 80 1.000000 + 5 80 1.000000 + 6 80 1.000000 + 7 80 1.000000 + 8 80 1.000000 + 9 80 1.000000 + 10 80 1.000000 + 11 80 1.000000 + 12 80 1.000000 + 13 80 1.000000 + 14 80 1.000000 + 15 80 1.000000 + 16 80 1.000000 + 17 80 0.9911504 + 18 80 0.9911504 + 19 80 0.9911504 + 20 80 0.9911504 + 21 80 0.9911504 + 22 80 0.9911504 + 23 80 0.9911504 + 24 80 0.9911504 + 25 80 0.9911504 + 26 80 0.9911504 + 27 80 0.9911504 + 28 80 0.9911504 + 29 80 0.9631815 + 30 80 0.9264243 + 31 80 0.8886567 + 32 80 0.8500839 + 33 80 0.8109387 + 34 80 0.7714800 + 35 80 0.7319912 + 36 80 0.6783577 + 37 80 0.6378479 + 38 80 0.5980684 + 39 80 0.5593469 + 40 80 0.5220101 + 41 80 0.4863792 + 42 80 0.4712628 + 43 80 0.4317919 + 44 80 0.4025609 + 45 80 0.3732704 + 46 80 0.3492844 + 47 80 0.3281251 + 48 80 0.3098388 + 49 80 0.2944164 + 50 80 0.2889381 + 51 80 0.2889381 + 52 80 0.2889381 + 53 80 0.2889381 + 54 80 0.2889381 + 55 80 0.2889381 + 56 80 0.2889381 + 57 80 0.2889381 + 58 80 0.2889381 + 59 80 0.2889381 + 60 80 0.2889381 + 61 80 0.2889381 + 62 80 0.2896409 + 63 80 0.2897821 + 64 80 0.3087783 + 65 80 0.3142171 + 66 80 0.3188671 + 67 80 0.3333701 + 68 80 0.3379537 + 69 80 0.3299892 + 70 80 0.3339113 + 71 80 0.3373502 + 72 80 0.3404565 + 73 80 0.3434139 + 74 80 0.3464349 + 75 80 0.3497551 + 76 80 0.3578372 + 77 80 0.3452168 + 78 80 0.3479838 + 79 80 0.3518793 + 80 80 0.3571267 + 81 80 0.3639317 + 82 80 0.3601184 + 83 80 0.3725666 + 84 80 0.3867412 + 85 80 0.4027598 + 86 80 0.4206933 + 87 80 0.4405622 + 88 80 0.4623365 + 89 80 0.4850446 + 90 80 0.5100543 + 91 80 0.5365090 + 92 80 0.5752164 + 93 80 0.6055246 + 94 80 0.6366849 + 95 80 0.6683956 + 96 80 0.7003408 + 97 80 0.7464417 + 98 80 0.7757549 + 99 80 0.8046470 + 100 80 0.8328001 + 101 80 0.8634287 + 102 80 0.8890027 + 103 80 0.9086507 + 104 80 0.9458412 + 105 80 0.9631634 + 106 80 0.9787021 + 107 80 0.9923542 + 108 80 1.000000 + 109 80 1.000000 + 110 80 1.000000 + 111 80 0.9952671 + 112 80 1.000000 + 113 80 1.000000 + 114 80 1.000000 + 115 80 1.000000 + 116 80 1.000000 + 117 80 1.000000 + 118 80 1.000000 + 119 80 1.000000 + 120 80 0.9998150 + 121 80 0.9916150 + 122 80 0.9826474 + 123 80 0.9730306 + 124 80 0.9628680 + 125 80 0.9522461 + 126 80 0.9412329 + 127 80 0.9235049 + 128 80 0.9234156 + 129 80 0.9105446 + 130 80 0.8975012 + 131 80 0.8842442 + 132 80 0.8948953 + 133 80 0.8776659 + 134 80 0.8604304 + 135 80 0.8430656 + 136 80 0.8254483 + 137 80 0.8074577 + 138 80 0.7889811 + 139 80 0.7699149 + 140 80 0.7501694 + 141 80 0.7296709 + 142 80 0.7083665 + 143 80 0.6862242 + 144 80 0.6632369 + 145 80 0.6394210 + 146 80 0.6148191 + 147 80 0.5894979 + 148 80 0.5164458 + 149 80 0.4958962 + 150 80 0.4743398 + 151 80 0.4293948 + 152 80 0.4574565 + 153 80 0.4307083 + 154 80 0.4040444 + 155 80 0.3776442 + 156 80 0.3516755 + 157 80 0.3262903 + 158 80 0.3238938 + 159 80 0.3238938 + 160 80 0.3238938 + 1 81 1.000000 + 2 81 1.000000 + 3 81 1.000000 + 4 81 1.000000 + 5 81 1.000000 + 6 81 1.000000 + 7 81 1.000000 + 8 81 1.000000 + 9 81 1.000000 + 10 81 1.000000 + 11 81 1.000000 + 12 81 1.000000 + 13 81 1.000000 + 14 81 1.000000 + 15 81 1.000000 + 16 81 1.000000 + 17 81 1.000000 + 18 81 0.9911504 + 19 81 0.9911504 + 20 81 0.9911504 + 21 81 0.9911504 + 22 81 0.9911504 + 23 81 0.9911504 + 24 81 0.9911504 + 25 81 0.9911504 + 26 81 0.9911504 + 27 81 0.9911504 + 28 81 0.9590697 + 29 81 0.9253649 + 30 81 0.8904659 + 31 81 0.8545356 + 32 81 0.8177632 + 33 81 0.7803662 + 34 81 0.7425861 + 35 81 0.7046924 + 36 81 0.6669752 + 37 81 0.6138759 + 38 81 0.5753866 + 39 81 0.5567659 + 40 81 0.5213854 + 41 81 0.4875406 + 42 81 0.4555250 + 43 81 0.4378916 + 44 81 0.3870008 + 45 81 0.3609442 + 46 81 0.3375009 + 47 81 0.3167776 + 48 81 0.2988302 + 49 81 0.2889381 + 50 81 0.2889381 + 51 81 0.2889381 + 52 81 0.2889381 + 53 81 0.2889381 + 54 81 0.2889381 + 55 81 0.2889381 + 56 81 0.2889381 + 57 81 0.2889381 + 58 81 0.2889381 + 59 81 0.2889381 + 60 81 0.2889381 + 61 81 0.2889381 + 62 81 0.2889381 + 63 81 0.2889381 + 64 81 0.2990114 + 65 81 0.3048761 + 66 81 0.3100228 + 67 81 0.3259741 + 68 81 0.3313379 + 69 81 0.3353185 + 70 81 0.3395131 + 71 81 0.3320597 + 72 81 0.3364608 + 73 81 0.3408017 + 74 81 0.3452889 + 75 81 0.3501493 + 76 81 0.3601516 + 77 81 0.3474922 + 78 81 0.3516780 + 79 81 0.3569927 + 80 81 0.3636401 + 81 81 0.3575641 + 82 81 0.3696894 + 83 81 0.3833054 + 84 81 0.3985530 + 85 81 0.4155304 + 86 81 0.4342889 + 87 81 0.4548321 + 88 81 0.4771154 + 89 81 0.5001294 + 90 81 0.5252823 + 91 81 0.5516869 + 92 81 0.5908533 + 93 81 0.6208220 + 94 81 0.6514637 + 95 81 0.6824851 + 96 81 0.7297027 + 97 81 0.7581807 + 98 81 0.7864435 + 99 81 0.8141723 + 100 81 0.8410695 + 101 81 0.8668674 + 102 81 0.8949755 + 103 81 0.9135217 + 104 81 0.9484802 + 105 81 0.9646071 + 106 81 0.9790006 + 107 81 0.9915801 + 108 81 1.000000 + 109 81 1.000000 + 110 81 1.000000 + 111 81 0.9929504 + 112 81 1.000000 + 113 81 1.000000 + 114 81 1.000000 + 115 81 1.000000 + 116 81 1.000000 + 117 81 1.000000 + 118 81 1.000000 + 119 81 1.000000 + 120 81 0.9984281 + 121 81 0.9912776 + 122 81 0.9835142 + 123 81 0.9752436 + 124 81 0.9665531 + 125 81 0.9575121 + 126 81 0.9481713 + 127 81 0.9442516 + 128 81 0.9334179 + 129 81 0.9224542 + 130 81 0.9113135 + 131 81 0.8999323 + 132 81 0.9116289 + 133 81 0.8962886 + 134 81 0.8808298 + 135 81 0.8651105 + 136 81 0.8489898 + 137 81 0.8323307 + 138 81 0.8150042 + 139 81 0.7968953 + 140 81 0.7779028 + 141 81 0.7579460 + 142 81 0.7369682 + 143 81 0.7149372 + 144 81 0.6918494 + 145 81 0.6677287 + 146 81 0.6426288 + 147 81 0.5881165 + 148 81 0.5647124 + 149 81 0.5226561 + 150 81 0.4998247 + 151 81 0.4523992 + 152 81 0.4309090 + 153 81 0.4550337 + 154 81 0.4265054 + 155 81 0.3982987 + 156 81 0.3705937 + 157 81 0.3435540 + 158 81 0.3238938 + 159 81 0.3238938 + 160 81 0.3238938 + 1 82 1.000000 + 2 82 1.000000 + 3 82 1.000000 + 4 82 1.000000 + 5 82 1.000000 + 6 82 1.000000 + 7 82 1.000000 + 8 82 1.000000 + 9 82 1.000000 + 10 82 1.000000 + 11 82 1.000000 + 12 82 1.000000 + 13 82 1.000000 + 14 82 1.000000 + 15 82 1.000000 + 16 82 1.000000 + 17 82 1.000000 + 18 82 1.000000 + 19 82 0.9911504 + 20 82 0.9911504 + 21 82 0.9911504 + 22 82 0.9911504 + 23 82 0.9875963 + 24 82 0.9911504 + 25 82 0.9911504 + 26 82 0.9790358 + 27 82 0.9498264 + 28 82 0.9192114 + 29 82 0.8872861 + 30 82 0.8541719 + 31 82 0.8200147 + 32 82 0.7849895 + 33 82 0.7492957 + 34 82 0.7131608 + 35 82 0.6768365 + 36 82 0.6405995 + 37 82 0.6091631 + 38 82 0.5730971 + 39 82 0.5378253 + 40 82 0.5036484 + 41 82 0.4708641 + 42 82 0.4511110 + 43 82 0.4206886 + 44 82 0.3741398 + 45 82 0.3487920 + 46 82 0.3259426 + 47 82 0.3057063 + 48 82 0.2889381 + 49 82 0.2889381 + 50 82 0.2889381 + 51 82 0.2889381 + 52 82 0.2889381 + 53 82 0.2889381 + 54 82 0.2889381 + 55 82 0.2889381 + 56 82 0.2889381 + 57 82 0.2889381 + 58 82 0.2889381 + 59 82 0.2889381 + 60 82 0.2889381 + 61 82 0.2889381 + 62 82 0.2889381 + 63 82 0.2889381 + 64 82 0.2889381 + 65 82 0.2965663 + 66 82 0.3130715 + 67 82 0.3197612 + 68 82 0.3259616 + 69 82 0.3308826 + 70 82 0.3361065 + 71 82 0.3410618 + 72 82 0.3458977 + 73 82 0.3394760 + 74 82 0.3454911 + 75 82 0.3519493 + 76 82 0.3416844 + 77 82 0.3511504 + 78 82 0.3567737 + 79 82 0.3635182 + 80 82 0.3715682 + 81 82 0.3673141 + 82 82 0.3806632 + 83 82 0.3954211 + 84 82 0.4117081 + 85 82 0.4296022 + 86 82 0.4491365 + 87 82 0.4702982 + 88 82 0.4930274 + 89 82 0.5172192 + 90 82 0.5415032 + 91 82 0.5785608 + 92 82 0.6073469 + 93 82 0.6368966 + 94 82 0.6669402 + 95 82 0.6971932 + 96 82 0.7428930 + 97 82 0.7703809 + 98 82 0.7975211 + 99 82 0.8240169 + 100 82 0.8495935 + 101 82 0.8740061 + 102 82 0.8970437 + 103 82 0.9385947 + 104 82 0.9511951 + 105 82 0.9660723 + 106 82 0.9792711 + 107 82 0.9907320 + 108 82 1.000000 + 109 82 1.000000 + 110 82 0.9808674 + 111 82 0.9903790 + 112 82 0.9976858 + 113 82 1.000000 + 114 82 1.000000 + 115 82 1.000000 + 116 82 1.000000 + 117 82 1.000000 + 118 82 1.000000 + 119 82 1.000000 + 120 82 0.9965847 + 121 82 0.9904750 + 122 82 0.9839115 + 123 82 0.9769858 + 124 82 0.9697717 + 125 82 0.9623225 + 126 82 0.9546711 + 127 82 0.9588897 + 128 82 0.9430107 + 129 82 0.9339961 + 130 82 0.9248059 + 131 82 0.9153557 + 132 82 0.9281210 + 133 82 0.9147391 + 134 82 0.9011306 + 135 82 0.8871337 + 136 82 0.8725886 + 137 82 0.8573399 + 138 82 0.8412425 + 139 82 0.8241656 + 140 82 0.8059973 + 141 82 0.7866482 + 142 82 0.7660558 + 143 82 0.7441874 + 144 82 0.7210416 + 145 82 0.6966496 + 146 82 0.6710772 + 147 82 0.6178634 + 148 82 0.5933970 + 149 82 0.5500857 + 150 82 0.5259681 + 151 82 0.5008759 + 152 82 0.4532833 + 153 82 0.4297060 + 154 82 0.4497547 + 155 82 0.4196791 + 156 82 0.3901804 + 157 82 0.3614326 + 158 82 0.3335872 + 159 82 0.3238938 + 160 82 0.3238938 + 1 83 1.000000 + 2 83 1.000000 + 3 83 0.8576471 + 4 83 0.8576471 + 5 83 0.8576471 + 6 83 1.000000 + 7 83 1.000000 + 8 83 1.000000 + 9 83 1.000000 + 10 83 1.000000 + 11 83 1.000000 + 12 83 1.000000 + 13 83 1.000000 + 14 83 1.000000 + 15 83 1.000000 + 16 83 1.000000 + 17 83 1.000000 + 18 83 1.000000 + 19 83 1.000000 + 20 83 0.9911504 + 21 83 0.9911504 + 22 83 0.9739021 + 23 83 0.9445969 + 24 83 0.9868744 + 25 83 0.9621680 + 26 83 0.9359961 + 27 83 0.9083990 + 28 83 0.8794379 + 29 83 0.8491952 + 30 83 0.8177775 + 31 83 0.7853168 + 32 83 0.7519707 + 33 83 0.7179223 + 34 83 0.6833835 + 35 83 0.6689907 + 36 83 0.6355181 + 37 83 0.5874036 + 38 83 0.5528188 + 39 83 0.5189093 + 40 83 0.4859662 + 41 83 0.4542769 + 42 83 0.4329849 + 43 83 0.4065872 + 44 83 0.3615441 + 45 83 0.3369561 + 46 83 0.3147523 + 47 83 0.2950526 + 48 83 0.2889381 + 49 83 0.2889381 + 50 83 0.2889381 + 51 83 0.2889381 + 52 83 0.2889381 + 53 83 0.2889381 + 54 83 0.2889381 + 55 83 0.2889381 + 56 83 0.2889381 + 57 83 0.2889381 + 58 83 0.2889381 + 59 83 0.2889381 + 60 83 0.2889381 + 61 83 0.2889381 + 62 83 0.2889381 + 63 83 0.2889381 + 64 83 0.2889381 + 65 83 0.2894065 + 66 83 0.3073547 + 67 83 0.3148391 + 68 83 0.3219273 + 69 83 0.3278337 + 70 83 0.3341337 + 71 83 0.3402603 + 72 83 0.3463595 + 73 83 0.3526030 + 74 83 0.3591862 + 75 83 0.3551836 + 76 83 0.3449430 + 77 83 0.3561993 + 78 83 0.3632695 + 79 83 0.3714450 + 80 83 0.3808900 + 81 83 0.3784529 + 82 83 0.3929986 + 83 83 0.4088627 + 84 83 0.4261451 + 85 83 0.4449045 + 86 83 0.4651560 + 87 83 0.4868706 + 88 83 0.5099748 + 89 83 0.5343521 + 90 83 0.5586049 + 91 83 0.5961004 + 92 83 0.6245701 + 93 83 0.6536170 + 94 83 0.6829780 + 95 83 0.7123802 + 96 83 0.7564788 + 97 83 0.7828987 + 98 83 0.8088443 + 99 83 0.8340379 + 100 83 0.8582294 + 101 83 0.8811978 + 102 83 0.9027554 + 103 83 0.9380214 + 104 83 0.9538541 + 105 83 0.9674306 + 106 83 0.9793873 + 107 83 0.9896873 + 108 83 0.9983274 + 109 83 1.000000 + 110 83 0.9788504 + 111 83 0.9874383 + 112 83 0.9940155 + 113 83 0.9987755 + 114 83 1.000000 + 115 83 1.000000 + 116 83 1.000000 + 117 83 1.000000 + 118 83 1.000000 + 119 83 0.9988795 + 120 83 0.9941928 + 121 83 0.9891154 + 122 83 0.9837458 + 123 83 0.9781635 + 124 83 0.9724284 + 125 83 0.9665787 + 126 83 0.9606292 + 127 83 0.9663237 + 128 83 0.9520868 + 129 83 0.9450576 + 130 83 0.9378611 + 131 83 0.9303905 + 132 83 0.9442489 + 133 83 0.9328893 + 134 83 0.9212003 + 135 83 0.9089993 + 136 83 0.8961061 + 137 83 0.8823456 + 138 83 0.8675545 + 139 83 0.8515867 + 140 83 0.8343155 + 141 83 0.8156435 + 142 83 0.7955003 + 143 83 0.7738513 + 144 83 0.7506972 + 145 83 0.7260761 + 146 83 0.7000633 + 147 83 0.6481102 + 148 83 0.6226044 + 149 83 0.5781060 + 150 83 0.5527014 + 151 83 0.5262366 + 152 83 0.4762441 + 153 83 0.4513147 + 154 83 0.4737670 + 155 83 0.4417669 + 156 83 0.4104218 + 157 83 0.3799165 + 158 83 0.3504110 + 159 83 0.3238938 + 160 83 0.3238938 + 1 84 1.000000 + 2 84 1.000000 + 3 84 1.000000 + 4 84 1.000000 + 5 84 1.000000 + 6 84 1.000000 + 7 84 1.000000 + 8 84 1.000000 + 9 84 1.000000 + 10 84 1.000000 + 11 84 1.000000 + 12 84 1.000000 + 13 84 1.000000 + 14 84 1.000000 + 15 84 1.000000 + 16 84 1.000000 + 17 84 1.000000 + 18 84 1.000000 + 19 84 1.000000 + 20 84 0.9814795 + 21 84 0.9556103 + 22 84 0.9301637 + 23 84 0.9025149 + 24 84 0.9416451 + 25 84 0.9182956 + 26 84 0.8935510 + 27 84 0.8674418 + 28 84 0.8400177 + 29 84 0.8113489 + 30 84 0.7815286 + 31 84 0.7506733 + 32 84 0.7029278 + 33 84 0.6708968 + 34 84 0.6603872 + 35 84 0.6290591 + 36 84 0.5977258 + 37 84 0.5524240 + 38 84 0.5198923 + 39 84 0.4879374 + 40 84 0.4568307 + 41 84 0.4234732 + 42 84 0.4078215 + 43 84 0.3928406 + 44 84 0.3493706 + 45 84 0.3255929 + 46 84 0.3040845 + 47 84 0.2889381 + 48 84 0.2889381 + 49 84 0.2889381 + 50 84 0.2889381 + 51 84 0.2889381 + 52 84 0.2889381 + 53 84 0.2889381 + 54 84 0.2889381 + 55 84 0.2889381 + 56 84 0.2889381 + 57 84 0.2889381 + 58 84 0.2889381 + 59 84 0.2889381 + 60 84 0.2889381 + 61 84 0.2889381 + 62 84 0.2889381 + 63 84 0.2889381 + 64 84 0.2889381 + 65 84 0.2889381 + 66 84 0.3029930 + 67 84 0.3113180 + 68 84 0.3193376 + 69 84 0.3262660 + 70 84 0.3336807 + 71 84 0.3410148 + 72 84 0.3484100 + 73 84 0.3560345 + 74 84 0.3640742 + 75 84 0.3546630 + 76 84 0.3613599 + 77 84 0.3626357 + 78 84 0.3711531 + 79 84 0.3807507 + 80 84 0.3915730 + 81 84 0.3909357 + 82 84 0.4066404 + 83 84 0.4235651 + 84 84 0.4417894 + 85 84 0.4613532 + 86 84 0.4822539 + 87 84 0.5044473 + 88 84 0.5278470 + 89 84 0.5523266 + 90 84 0.5764634 + 91 84 0.6143227 + 92 84 0.6423879 + 93 84 0.6708429 + 94 84 0.6994346 + 95 84 0.7279000 + 96 84 0.7703131 + 97 84 0.7955883 + 98 84 0.8202654 + 99 84 0.8440890 + 100 84 0.8668323 + 101 84 0.8882985 + 102 84 0.9083245 + 103 84 0.9411159 + 104 84 0.9558666 + 105 84 0.9685527 + 106 84 0.9792235 + 107 84 0.9883230 + 108 84 0.9958667 + 109 84 1.000000 + 110 84 0.9763710 + 111 84 0.9840142 + 112 84 0.9898418 + 113 84 0.9940527 + 114 84 0.9968510 + 115 84 0.9984425 + 116 84 1.000000 + 117 84 1.000000 + 118 84 0.9985155 + 119 84 0.9950003 + 120 84 0.9911624 + 121 84 0.9871081 + 122 84 0.9829257 + 123 84 0.9786835 + 124 84 0.9744280 + 125 84 0.9701824 + 126 84 0.9659457 + 127 84 0.9731079 + 128 84 0.9605387 + 129 84 0.9555259 + 130 84 0.9503610 + 131 84 0.9449148 + 132 84 0.9598900 + 133 84 0.9506110 + 134 84 0.9409052 + 135 84 0.9305697 + 136 84 0.9194005 + 137 84 0.9072036 + 138 84 0.8937958 + 139 84 0.8790134 + 140 84 0.8627158 + 141 84 0.8447926 + 142 84 0.8251669 + 143 84 0.8038000 + 144 84 0.7806939 + 145 84 0.7558929 + 146 84 0.7036787 + 147 84 0.6787524 + 148 84 0.6522417 + 149 84 0.6066335 + 150 84 0.5799513 + 151 84 0.5521178 + 152 84 0.4997428 + 153 84 0.4734508 + 154 84 0.4465604 + 155 84 0.4645408 + 156 84 0.4313023 + 157 84 0.3989953 + 158 84 0.3677876 + 159 84 0.3378182 + 160 84 0.3238938 + 1 85 1.000000 + 2 85 1.000000 + 3 85 1.000000 + 4 85 1.000000 + 5 85 1.000000 + 6 85 1.000000 + 7 85 1.000000 + 8 85 1.000000 + 9 85 1.000000 + 10 85 1.000000 + 11 85 1.000000 + 12 85 1.000000 + 13 85 1.000000 + 14 85 1.000000 + 15 85 1.000000 + 16 85 1.000000 + 17 85 1.000000 + 18 85 1.000000 + 19 85 1.000000 + 20 85 0.9373856 + 21 85 0.9118537 + 22 85 0.8877713 + 23 85 0.8616250 + 24 85 0.8085111 + 25 85 0.8754352 + 26 85 0.8519817 + 27 85 0.8073808 + 28 85 0.7816326 + 29 85 0.7547263 + 30 85 0.7267413 + 31 85 0.6977785 + 32 85 0.6900207 + 33 85 0.6611143 + 34 85 0.6317472 + 35 85 0.6021132 + 36 85 0.5724267 + 37 85 0.5292675 + 38 85 0.4982812 + 39 85 0.4677748 + 40 85 0.4345228 + 41 85 0.4175060 + 42 85 0.3919421 + 43 85 0.3681909 + 44 85 0.3465106 + 45 85 0.3049072 + 46 85 0.2889381 + 47 85 0.2889381 + 48 85 0.2889381 + 49 85 0.2889381 + 50 85 0.2889381 + 51 85 0.2889381 + 52 85 0.2889381 + 53 85 0.2889381 + 54 85 0.2889381 + 55 85 0.2889381 + 56 85 0.2889381 + 57 85 0.2889381 + 58 85 0.2889381 + 59 85 0.2889381 + 60 85 0.2889381 + 61 85 0.2889381 + 62 85 0.2889381 + 63 85 0.2889381 + 64 85 0.2889381 + 65 85 0.2889381 + 66 85 0.3001034 + 67 85 0.3093063 + 68 85 0.3182933 + 69 85 0.3262715 + 70 85 0.3348305 + 71 85 0.3433979 + 72 85 0.3521125 + 73 85 0.3611359 + 74 85 0.3706473 + 75 85 0.3610789 + 76 85 0.3691068 + 77 85 0.3778276 + 78 85 0.3803978 + 79 85 0.3913988 + 80 85 0.3889055 + 81 85 0.4047047 + 82 85 0.4215209 + 83 85 0.4394502 + 84 85 0.4585533 + 85 85 0.4788509 + 86 85 0.5003248 + 87 85 0.5229154 + 88 85 0.5465238 + 89 85 0.5710143 + 90 85 0.6072679 + 91 85 0.6330884 + 92 85 0.6606558 + 93 85 0.6884282 + 94 85 0.7161602 + 95 85 0.7597331 + 96 85 0.7842471 + 97 85 0.8082997 + 98 85 0.8316351 + 99 85 0.8540219 + 100 85 0.8752558 + 101 85 0.8951644 + 102 85 0.9292412 + 103 85 0.9439160 + 104 85 0.9572300 + 105 85 0.9650564 + 106 85 0.9786554 + 107 85 0.9865180 + 108 85 0.9929335 + 109 85 0.9648173 + 110 85 0.9733155 + 111 85 0.9799970 + 112 85 0.9850590 + 113 85 0.9887048 + 114 85 0.9911414 + 115 85 0.9925768 + 116 85 1.000000 + 117 85 0.9958715 + 118 85 0.9932654 + 119 85 0.9904051 + 120 85 0.9874059 + 121 85 0.9843657 + 122 85 0.9813638 + 123 85 0.9784570 + 124 85 0.9756794 + 125 85 0.9730400 + 126 85 0.9705224 + 127 85 0.9791427 + 128 85 0.9751785 + 129 85 0.9652917 + 130 85 0.9621897 + 131 85 0.9817758 + 132 85 0.9749228 + 133 85 0.9677764 + 134 85 0.9601128 + 135 85 0.9517053 + 136 85 0.9423296 + 137 85 0.9317687 + 138 85 0.9198194 + 139 85 0.9062989 + 140 85 0.8910510 + 141 85 0.8739518 + 142 85 0.8549157 + 143 85 0.8338996 + 144 85 0.8109053 + 145 85 0.7859815 + 146 85 0.7353999 + 147 85 0.7096840 + 148 85 0.6822128 + 149 85 0.6355820 + 150 85 0.6076434 + 151 85 0.5784556 + 152 85 0.5237297 + 153 85 0.4960728 + 154 85 0.4677829 + 155 85 0.4879798 + 156 85 0.4528065 + 157 85 0.4186584 + 158 85 0.3857110 + 159 85 0.3541085 + 160 85 0.3239643 + 1 86 1.000000 + 2 86 1.000000 + 3 86 1.000000 + 4 86 1.000000 + 5 86 1.000000 + 6 86 1.000000 + 7 86 1.000000 + 8 86 1.000000 + 9 86 1.000000 + 10 86 1.000000 + 11 86 1.000000 + 12 86 1.000000 + 13 86 1.000000 + 14 86 1.000000 + 15 86 1.000000 + 16 86 1.000000 + 17 86 0.9907109 + 18 86 0.9784494 + 19 86 0.9651760 + 20 86 0.8952737 + 21 86 0.8737949 + 22 86 0.8469774 + 23 86 0.8221827 + 24 86 0.7496343 + 25 86 0.8112986 + 26 86 0.7891577 + 27 86 0.7658342 + 28 86 0.7413599 + 29 86 0.7157817 + 30 86 0.6891680 + 31 86 0.6850871 + 32 86 0.6584693 + 33 86 0.6312358 + 34 86 0.6035404 + 35 86 0.5755595 + 36 86 0.5474907 + 37 86 0.5064732 + 38 86 0.4770298 + 39 86 0.4444245 + 40 86 0.4158293 + 41 86 0.4008363 + 42 86 0.3765193 + 43 86 0.3539039 + 44 86 0.3332436 + 45 86 0.2934050 + 46 86 0.2889381 + 47 86 0.2889381 + 48 86 0.2889381 + 49 86 0.2889381 + 50 86 0.2889381 + 51 86 0.2889381 + 52 86 0.2889381 + 53 86 0.2889381 + 54 86 0.2889381 + 55 86 0.2889381 + 56 86 0.2889381 + 57 86 0.2889381 + 58 86 0.2889381 + 59 86 0.2889381 + 60 86 0.2889381 + 61 86 0.2889381 + 62 86 0.2889381 + 63 86 0.2889381 + 64 86 0.2889381 + 65 86 0.2889381 + 66 86 0.2889381 + 67 86 0.3089113 + 68 86 0.3188917 + 69 86 0.3279361 + 70 86 0.3376583 + 71 86 0.3474750 + 72 86 0.3575203 + 73 86 0.3679502 + 74 86 0.3602887 + 75 86 0.3690819 + 76 86 0.3784156 + 77 86 0.3884416 + 78 86 0.4038882 + 79 86 0.4150236 + 80 86 0.4027395 + 81 86 0.4196864 + 82 86 0.4375563 + 83 86 0.4564257 + 84 86 0.4763350 + 85 86 0.4972883 + 86 86 0.5192506 + 87 86 0.5421482 + 88 86 0.5658724 + 89 86 0.5902784 + 90 86 0.6268392 + 91 86 0.6522502 + 92 86 0.6792246 + 93 86 0.7062198 + 94 86 0.7330011 + 95 86 0.7747778 + 96 86 0.7981272 + 97 86 0.8208806 + 98 86 0.8428040 + 99 86 0.8636886 + 100 86 0.8833542 + 101 86 0.9016536 + 102 86 0.9331016 + 103 86 0.9462867 + 104 86 0.9581270 + 105 86 0.9685876 + 106 86 0.9733618 + 107 86 0.9841546 + 108 86 0.9894140 + 109 86 0.9622392 + 110 86 0.9695727 + 111 86 0.9752806 + 112 86 0.9795643 + 113 86 0.9826329 + 114 86 0.9846957 + 115 86 0.9859614 + 116 86 0.9956644 + 117 86 0.9893774 + 118 86 0.9872264 + 119 86 0.9850109 + 120 86 0.9828408 + 121 86 0.9808056 + 122 86 0.9789762 + 123 86 0.9773989 + 124 86 0.9760956 + 125 86 0.9750615 + 126 86 0.9742658 + 127 86 0.9843326 + 128 86 0.9823366 + 129 86 0.9742497 + 130 86 0.9732374 + 131 86 0.9938433 + 132 86 0.9892302 + 133 86 0.9842612 + 134 86 0.9786909 + 135 86 0.9722705 + 136 86 0.9647525 + 137 86 0.9558963 + 138 86 0.9454778 + 139 86 0.9332951 + 140 86 0.9191736 + 141 86 0.9029761 + 142 86 0.8846060 + 143 86 0.8640144 + 144 86 0.8412015 + 145 86 0.7915372 + 146 86 0.7672383 + 147 86 0.7407969 + 148 86 0.7124218 + 149 86 0.6648642 + 150 86 0.6357012 + 151 86 0.6051847 + 152 86 0.5736516 + 153 86 0.5191387 + 154 86 0.4894512 + 155 86 0.4594322 + 156 86 0.4749182 + 157 86 0.4388947 + 158 86 0.4041744 + 159 86 0.3709067 + 160 86 0.3392076 + 1 87 1.000000 + 2 87 1.000000 + 3 87 1.000000 + 4 87 1.000000 + 5 87 1.000000 + 6 87 1.000000 + 7 87 1.000000 + 8 87 1.000000 + 9 87 1.000000 + 10 87 1.000000 + 11 87 1.000000 + 12 87 0.9965928 + 13 87 0.9875289 + 14 87 0.9779514 + 15 87 0.9677906 + 16 87 0.9569736 + 17 87 0.9454259 + 18 87 0.9330720 + 19 87 0.9198339 + 20 87 0.9056329 + 21 87 0.8099468 + 22 87 0.7875412 + 23 87 0.7593955 + 24 87 0.7118006 + 25 87 0.6816248 + 26 87 0.7475926 + 27 87 0.7253368 + 28 87 0.7019986 + 29 87 0.7006065 + 30 87 0.6770761 + 31 87 0.6527426 + 32 87 0.6277022 + 33 87 0.6020715 + 34 87 0.5759888 + 35 87 0.5496138 + 36 87 0.5231282 + 37 87 0.4967316 + 38 87 0.4563337 + 39 87 0.4249486 + 40 87 0.3977040 + 41 87 0.3847634 + 42 87 0.3617266 + 43 87 0.3402868 + 44 87 0.3206923 + 45 87 0.2889381 + 46 87 0.2889381 + 47 87 0.2889381 + 48 87 0.2889381 + 49 87 0.2889381 + 50 87 0.2889381 + 51 87 0.2889381 + 52 87 0.2889381 + 53 87 0.2889381 + 54 87 0.2889381 + 55 87 0.2889381 + 56 87 0.2889381 + 57 87 0.2889381 + 58 87 0.2889381 + 59 87 0.2889381 + 60 87 0.2889381 + 61 87 0.2889381 + 62 87 0.2889381 + 63 87 0.2889381 + 64 87 0.2889381 + 65 87 0.2889381 + 66 87 0.2889381 + 67 87 0.3102359 + 68 87 0.3212250 + 69 87 0.3313402 + 70 87 0.3422332 + 71 87 0.3533022 + 72 87 0.3646773 + 73 87 0.3765088 + 74 87 0.3686211 + 75 87 0.3786736 + 76 87 0.3892752 + 77 87 0.4005611 + 78 87 0.4175709 + 79 87 0.4298475 + 80 87 0.4298667 + 81 87 0.4357934 + 82 87 0.4546503 + 83 87 0.4743856 + 84 87 0.4950209 + 85 87 0.5165430 + 86 87 0.5389019 + 87 87 0.5620117 + 88 87 0.5857523 + 89 87 0.6099725 + 90 87 0.6467469 + 91 87 0.6716542 + 92 87 0.6979374 + 93 87 0.7240605 + 94 87 0.7498001 + 95 87 0.7896960 + 96 87 0.8117998 + 97 87 0.8331791 + 98 87 0.8536217 + 99 87 0.8729420 + 100 87 0.8909845 + 101 87 0.9235093 + 102 87 0.9364410 + 103 87 0.9480966 + 104 87 0.9584301 + 105 87 0.9674277 + 106 87 0.9751092 + 107 87 0.9811200 + 108 87 0.9851989 + 109 87 0.9588783 + 110 87 0.9650387 + 111 87 0.9697635 + 112 87 0.9732611 + 113 87 0.9757439 + 114 87 0.9774237 + 115 87 0.9785100 + 116 87 0.9880552 + 117 87 0.9820232 + 118 87 0.9803191 + 119 87 0.9787402 + 120 87 0.9773895 + 121 87 0.9763508 + 122 87 0.9756851 + 123 87 0.9754296 + 124 87 0.9755946 + 125 87 0.9761632 + 126 87 0.9889763 + 127 87 0.9885894 + 128 87 0.9885699 + 129 87 0.9823000 + 130 87 0.9833970 + 131 87 1.000000 + 132 87 1.000000 + 133 87 0.9999453 + 134 87 0.9965140 + 135 87 0.9921332 + 136 87 0.9865307 + 137 87 0.9794447 + 138 87 0.9706278 + 139 87 0.9598568 + 140 87 0.9469391 + 141 87 0.9317217 + 142 87 0.9140972 + 143 87 0.8940086 + 144 87 0.8714539 + 145 87 0.8238258 + 146 87 0.7990776 + 147 87 0.7719847 + 148 87 0.7427719 + 149 87 0.6943907 + 150 87 0.6640480 + 151 87 0.6322388 + 152 87 0.5993262 + 153 87 0.5426049 + 154 87 0.5115306 + 155 87 0.4801031 + 156 87 0.4976213 + 157 87 0.4596933 + 158 87 0.4231711 + 159 87 0.3882094 + 160 87 0.3549269 + 1 88 1.000000 + 2 88 1.000000 + 3 88 1.000000 + 4 88 1.000000 + 5 88 1.000000 + 6 88 1.000000 + 7 88 1.000000 + 8 88 1.000000 + 9 88 1.000000 + 10 88 0.9761167 + 11 88 0.9668100 + 12 88 0.9572465 + 13 88 0.9473630 + 14 88 0.9370922 + 15 88 0.9263629 + 16 88 0.9151021 + 17 88 0.9032349 + 18 88 0.8906840 + 19 88 0.8497471 + 20 88 0.8352399 + 21 88 0.7704915 + 22 88 0.7488217 + 23 88 0.7208478 + 24 88 0.6754867 + 25 88 0.6467090 + 26 88 0.7074302 + 27 88 0.6861024 + 28 88 0.6878605 + 29 88 0.6665230 + 30 88 0.6443768 + 31 88 0.6214886 + 32 88 0.5979419 + 33 88 0.5738410 + 34 88 0.5493085 + 35 88 0.5244892 + 36 88 0.4995466 + 37 88 0.4746652 + 38 88 0.4325792 + 39 88 0.4062199 + 40 88 0.3803363 + 41 88 0.3694675 + 42 88 0.3477408 + 43 88 0.3275155 + 44 88 0.3090314 + 45 88 0.2925119 + 46 88 0.2889381 + 47 88 0.2889381 + 48 88 0.2889381 + 49 88 0.2889381 + 50 88 0.2889381 + 51 88 0.2889381 + 52 88 0.2889381 + 53 88 0.2889381 + 54 88 0.2889381 + 55 88 0.2889381 + 56 88 0.2889381 + 57 88 0.2889381 + 58 88 0.2889381 + 59 88 0.2889381 + 60 88 0.2889381 + 61 88 0.2889381 + 62 88 0.2889381 + 63 88 0.2889381 + 64 88 0.2889381 + 65 88 0.2889381 + 66 88 0.2934325 + 67 88 0.2983121 + 68 88 0.3253782 + 69 88 0.3365562 + 70 88 0.3486138 + 71 88 0.3609248 + 72 88 0.3736161 + 73 88 0.1030747 + 74 88 0.1123887 + 75 88 0.1220702 + 76 88 0.1322247 + 77 88 0.4141470 + 78 88 0.4326733 + 79 88 0.4308027 + 80 88 0.4476407 + 81 88 0.4652420 + 82 88 0.4726914 + 83 88 0.4932101 + 84 88 0.5144832 + 85 88 0.5364808 + 86 88 0.5591385 + 87 88 0.5823596 + 88 88 0.6060135 + 89 88 0.6410175 + 90 88 0.6668336 + 91 88 0.6927787 + 92 88 0.7166356 + 93 88 0.7417915 + 94 88 0.7829177 + 95 88 0.8043318 + 96 88 0.8251119 + 97 88 0.8450447 + 98 88 0.8639409 + 99 88 0.8816386 + 100 88 0.8980064 + 101 88 0.9277666 + 102 88 0.9391289 + 103 88 0.9492204 + 104 88 0.9580171 + 105 88 0.9655287 + 106 88 0.9717948 + 107 88 0.9728101 + 108 88 0.9481966 + 109 88 0.9546318 + 110 88 0.9596136 + 111 88 0.9633521 + 112 88 0.9660593 + 113 88 0.9679514 + 114 88 0.9692421 + 115 88 0.9701417 + 116 88 0.9795040 + 117 88 0.9737344 + 118 88 0.9724709 + 119 88 0.9715206 + 120 88 0.9709813 + 121 88 0.9709300 + 122 88 0.9714192 + 123 88 0.9724772 + 124 88 0.9741026 + 125 88 0.9762673 + 126 88 0.9903175 + 127 88 0.9918311 + 128 88 0.9937919 + 129 88 0.9893504 + 130 88 1.000000 + 131 88 1.000000 + 132 88 1.000000 + 133 88 1.000000 + 134 88 1.000000 + 135 88 1.000000 + 136 88 1.000000 + 137 88 1.000000 + 138 88 0.9951296 + 139 88 0.9858424 + 140 88 0.9742051 + 141 88 0.9600487 + 142 88 0.9432514 + 143 88 0.9237487 + 144 88 0.8782786 + 145 88 0.8559101 + 146 88 0.8308021 + 147 88 0.8031412 + 148 88 0.7731678 + 149 88 0.7240748 + 150 88 0.6926066 + 151 88 0.6595525 + 152 88 0.6253002 + 153 88 0.5664284 + 154 88 0.5339860 + 155 88 0.5011631 + 156 88 0.5208995 + 157 88 0.4810433 + 158 88 0.4426947 + 159 88 0.4060135 + 160 88 0.3741572 + 1 89 1.000000 + 2 89 1.000000 + 3 89 1.000000 + 4 89 1.000000 + 5 89 1.000000 + 6 89 1.000000 + 7 89 1.000000 + 8 89 1.000000 + 9 89 1.000000 + 10 89 0.9423632 + 11 89 0.9319561 + 12 89 0.9214069 + 13 89 0.9106534 + 14 89 0.8996291 + 15 89 0.8882635 + 16 89 0.8764836 + 17 89 0.8349462 + 18 89 0.8216003 + 19 89 0.8076550 + 20 89 0.7930316 + 21 89 0.7776507 + 22 89 0.7121173 + 23 89 0.6896724 + 24 89 0.6608711 + 25 89 0.6133174 + 26 89 0.6688534 + 27 89 0.6734102 + 28 89 0.6540552 + 29 89 0.6339274 + 30 89 0.6130679 + 31 89 0.5915332 + 32 89 0.5693976 + 33 89 0.5467519 + 34 89 0.5237058 + 35 89 0.5003886 + 36 89 0.4769487 + 37 89 0.4496695 + 38 89 0.4133521 + 39 89 0.3884297 + 40 89 0.3766889 + 41 89 0.3551270 + 42 89 0.3347392 + 43 89 0.3157650 + 44 89 0.2984363 + 45 89 0.2889381 + 46 89 0.2889381 + 47 89 0.2889381 + 48 89 0.2889381 + 49 89 0.2889381 + 50 89 0.2889381 + 51 89 0.2889381 + 52 89 0.2889381 + 53 89 0.2889381 + 54 89 0.2889381 + 55 89 0.2889381 + 56 89 0.2889381 + 57 89 0.2889381 + 58 89 0.2889381 + 59 89 0.2889381 + 60 89 0.2889381 + 61 89 0.2889381 + 62 89 0.2889381 + 63 89 0.2889381 + 64 89 0.2889381 + 65 89 0.2889381 + 66 89 0.2987687 + 67 89 0.3042563 + 68 89 0.3314274 + 69 89 0.3436454 + 70 89 0.3568472 + 71 89 0.3703763 + 72 89 0.3843548 + 73 89 0.1120296 + 74 89 0.1223270 + 75 89 0.1330010 + 76 89 0.1441440 + 77 89 0.4291471 + 78 89 0.4435053 + 79 89 0.4489423 + 80 89 0.4665889 + 81 89 0.4849231 + 82 89 0.5039906 + 83 89 0.5127674 + 84 89 0.5345830 + 85 89 0.5569568 + 86 89 0.5798110 + 87 89 0.6030378 + 88 89 0.6264994 + 89 89 0.6616434 + 90 89 0.6869377 + 91 89 0.7121675 + 92 89 0.7351568 + 93 89 0.7592521 + 94 89 0.7983804 + 95 89 0.8185318 + 96 89 0.8379120 + 97 89 0.8563294 + 98 89 0.8736175 + 99 89 0.8896387 + 100 89 0.9203049 + 101 89 0.9312848 + 102 89 0.9410397 + 103 89 0.9495361 + 104 89 0.9567724 + 105 89 0.9627796 + 106 89 0.9676163 + 107 89 0.9713689 + 108 89 0.9401124 + 109 89 0.9494039 + 110 89 0.9532077 + 111 89 0.9559588 + 112 89 0.9578754 + 113 89 0.9591750 + 114 89 0.9600746 + 115 89 0.9607839 + 116 89 0.9699414 + 117 89 0.9644440 + 118 89 0.9636164 + 119 89 0.9632886 + 120 89 0.9635531 + 121 89 0.9644802 + 122 89 0.9661148 + 123 89 0.9684759 + 124 89 0.9715529 + 125 89 0.9753054 + 126 89 0.9905752 + 127 89 0.9939849 + 128 89 0.9979249 + 129 89 1.000000 + 130 89 1.000000 + 131 89 1.000000 + 132 89 1.000000 + 133 89 1.000000 + 134 89 1.000000 + 135 89 1.000000 + 136 89 1.000000 + 137 89 1.000000 + 138 89 1.000000 + 139 89 1.000000 + 140 89 1.000000 + 141 89 0.9878214 + 142 89 0.9719363 + 143 89 0.9531060 + 144 89 0.9100784 + 145 89 0.8876707 + 146 89 0.8623007 + 147 89 0.8341647 + 148 89 0.8035175 + 149 89 0.7538304 + 150 89 0.7213029 + 151 89 0.6870608 + 152 89 0.6515186 + 153 89 0.5905658 + 154 89 0.5567825 + 155 89 0.5225844 + 156 89 0.4883540 + 157 89 0.5029344 + 158 89 0.4627387 + 159 89 0.4243165 + 160 89 0.3910023 + 1 90 1.000000 + 2 90 1.000000 + 3 90 1.000000 + 4 90 1.000000 + 5 90 1.000000 + 6 90 1.000000 + 7 90 1.000000 + 8 90 1.000000 + 9 90 1.000000 + 10 90 1.000000 + 11 90 0.9022328 + 12 90 0.8907699 + 13 90 0.8773670 + 14 90 0.8655469 + 15 90 0.8534939 + 16 90 0.8098257 + 17 90 0.7964550 + 18 90 0.7826751 + 19 90 0.7684076 + 20 90 0.7535750 + 21 90 0.7380979 + 22 90 0.6775289 + 23 90 0.6556901 + 24 90 0.6325212 + 25 90 0.5815684 + 26 90 0.5802338 + 27 90 0.6403462 + 28 90 0.6220151 + 29 90 0.6029983 + 30 90 0.5833312 + 31 90 0.5630628 + 32 90 0.5422567 + 33 90 0.5209936 + 34 90 0.4993708 + 35 90 0.4775035 + 36 90 0.4555246 + 37 90 0.4294960 + 38 90 0.3952509 + 39 90 0.3717606 + 40 90 0.3620451 + 41 90 0.3419158 + 42 90 0.3228942 + 43 90 0.3052080 + 44 90 0.2890792 + 45 90 0.2889381 + 46 90 0.2889381 + 47 90 0.2889381 + 48 90 0.2889381 + 49 90 0.2889381 + 50 90 0.2889381 + 51 90 0.2889381 + 52 90 0.2889381 + 53 90 0.2889381 + 54 90 0.2889381 + 55 90 0.2889381 + 56 90 0.2889381 + 57 90 0.2889381 + 58 90 0.2889381 + 59 90 0.2889381 + 60 90 0.2889381 + 61 90 0.2889381 + 62 90 0.2889381 + 63 90 0.2889381 + 64 90 0.2889381 + 65 90 0.2951220 + 66 90 0.3061130 + 67 90 0.3172680 + 68 90 0.3243682 + 69 90 0.3526568 + 70 90 0.3669672 + 71 90 0.3816746 + 72 90 0.3968966 + 73 90 0.1224034 + 74 90 0.1336260 + 75 90 0.1452292 + 76 90 0.4308314 + 77 90 0.4454915 + 78 90 0.4608500 + 79 90 0.4682555 + 80 90 0.4866041 + 81 90 0.5055619 + 82 90 0.5251525 + 83 90 0.5453698 + 84 90 0.5551710 + 85 90 0.5778173 + 86 90 0.6007615 + 87 90 0.6238861 + 88 90 0.6470468 + 89 90 0.6822264 + 90 90 0.7068940 + 91 90 0.7313069 + 92 90 0.7552841 + 93 90 0.4541436 + 94 90 0.8133346 + 95 90 0.8321444 + 96 90 0.8500534 + 97 90 0.8668910 + 98 90 0.8825139 + 99 90 0.8968087 + 100 90 0.9245956 + 101 90 0.9339409 + 102 90 0.9420564 + 103 90 0.9489318 + 104 90 0.9545884 + 105 90 0.9590765 + 106 90 0.9624746 + 107 90 0.9323940 + 108 90 0.9384791 + 109 90 0.9431083 + 110 90 0.9457376 + 111 90 0.9475057 + 112 90 0.9486345 + 113 90 0.9493446 + 114 90 0.9498532 + 115 90 0.9599937 + 116 90 0.9593061 + 117 90 0.9540930 + 118 90 0.9536980 + 119 90 0.9539877 + 120 90 0.9550490 + 121 90 0.9569456 + 122 90 0.9597158 + 123 90 0.9633698 + 124 90 0.9678872 + 125 90 0.9732164 + 126 90 0.9896884 + 127 90 0.9949859 + 128 90 1.000000 + 129 90 1.000000 + 130 90 1.000000 + 131 90 1.000000 + 132 90 1.000000 + 133 90 1.000000 + 134 90 1.000000 + 135 90 1.000000 + 136 90 1.000000 + 137 90 1.000000 + 138 90 1.000000 + 139 90 1.000000 + 140 90 1.000000 + 141 90 1.000000 + 142 90 1.000000 + 143 90 0.9603539 + 144 90 0.9413345 + 145 90 0.9189942 + 146 90 0.8934671 + 147 90 0.8649566 + 148 90 0.8337312 + 149 90 0.7835739 + 150 90 0.7500628 + 151 90 0.7147015 + 152 90 0.6779283 + 153 90 0.6401849 + 154 90 0.5798856 + 155 90 0.5443397 + 156 90 0.5087420 + 157 90 0.5253558 + 158 90 0.4832975 + 159 90 0.4431157 + 160 90 0.4083190 + 1 91 1.000000 + 2 91 1.000000 + 3 91 1.000000 + 4 91 1.000000 + 5 91 0.9931387 + 6 91 0.9866109 + 7 91 0.9805424 + 8 91 0.9749753 + 9 91 0.9717432 + 10 91 0.9669306 + 11 91 0.8750462 + 12 91 0.8625612 + 13 91 0.8500407 + 14 91 0.8054237 + 15 91 0.7918041 + 16 91 0.7780117 + 17 91 0.7639761 + 18 91 0.7466722 + 19 91 0.7320102 + 20 91 0.7168891 + 21 91 0.7012305 + 22 91 0.6849563 + 23 91 0.6237589 + 24 91 0.6012126 + 25 91 0.5790862 + 26 91 0.5544444 + 27 91 0.6092822 + 28 91 0.5918813 + 29 91 0.5738848 + 30 91 0.5553225 + 31 91 0.5362369 + 32 91 0.5166844 + 33 91 0.4967351 + 34 91 0.4764750 + 35 91 0.4560069 + 36 91 0.4314935 + 37 91 0.4106413 + 38 91 0.3899751 + 39 91 0.3563852 + 40 91 0.3486782 + 41 91 0.3299984 + 42 91 0.3123707 + 43 91 0.2960097 + 44 91 0.2889381 + 45 91 0.2889381 + 46 91 0.2889381 + 47 91 0.2889381 + 48 91 0.2889381 + 49 91 0.2889381 + 50 91 0.2889381 + 51 91 0.2889381 + 52 91 0.2889381 + 53 91 0.2889381 + 54 91 0.2889381 + 55 91 0.2889381 + 56 91 0.2889381 + 57 91 0.2889381 + 58 91 0.2889381 + 59 91 0.2889381 + 60 91 0.2889381 + 61 91 0.2889381 + 62 91 0.2889381 + 63 91 0.2889381 + 64 91 0.2922406 + 65 91 0.3037541 + 66 91 0.3155422 + 67 91 0.3275878 + 68 91 0.3353807 + 69 91 0.3487827 + 70 91 0.3789927 + 71 91 0.3948228 + 72 91 0.3902292 + 73 91 0.4039251 + 74 91 0.1462487 + 75 91 0.1587054 + 76 91 0.4474916 + 77 91 0.4630976 + 78 91 0.4638358 + 79 91 0.4886307 + 80 91 0.5075662 + 81 91 0.5270282 + 82 91 0.5470214 + 83 91 0.5675212 + 84 91 0.5884741 + 85 91 0.5988988 + 86 91 0.6218247 + 87 91 0.6447383 + 88 91 0.6783897 + 89 91 0.7025990 + 90 91 0.7265369 + 91 91 0.7500335 + 92 91 0.4512514 + 93 91 0.4825872 + 94 91 0.4982665 + 95 91 0.8450226 + 96 91 0.8613929 + 97 91 0.8765912 + 98 91 0.8904979 + 99 91 0.9190581 + 100 91 0.9279433 + 101 91 0.9356201 + 102 91 0.9420688 + 103 91 0.9473028 + 104 91 0.9513645 + 105 91 0.9543248 + 106 91 0.9562802 + 107 91 0.9270502 + 108 91 0.9316097 + 109 91 0.9350395 + 110 91 0.9371291 + 111 91 0.9379224 + 112 91 0.9382706 + 113 91 0.9383962 + 114 91 0.9385182 + 115 91 0.9481873 + 116 91 0.9475446 + 117 91 0.9426304 + 118 91 0.9426666 + 119 91 0.9435698 + 120 91 0.9454216 + 121 91 0.9482795 + 122 91 0.9521752 + 123 91 0.9571103 + 124 91 0.9630555 + 125 91 0.9813210 + 126 91 0.9876071 + 127 91 0.9947802 + 128 91 1.000000 + 129 91 1.000000 + 130 91 1.000000 + 131 91 1.000000 + 132 91 1.000000 + 133 91 1.000000 + 134 91 1.000000 + 135 91 1.000000 + 136 91 1.000000 + 137 91 1.000000 + 138 91 1.000000 + 139 91 1.000000 + 140 91 1.000000 + 141 91 1.000000 + 142 91 1.000000 + 143 91 0.9905473 + 144 91 0.9719346 + 145 91 0.9497744 + 146 91 0.9242012 + 147 91 0.8954247 + 148 91 0.8637238 + 149 91 0.8132253 + 150 91 0.7788160 + 151 91 0.7424127 + 152 91 0.7044771 + 153 91 0.6654755 + 154 91 0.6032612 + 155 91 0.5664023 + 156 91 0.5294638 + 157 91 0.5482976 + 158 91 0.3764178 + 159 91 0.3392331 + 160 91 0.4261070 + 1 92 1.000000 + 2 92 0.9990373 + 3 92 0.9898399 + 4 92 0.9808220 + 5 92 0.9720818 + 6 92 0.9637041 + 7 92 0.9557602 + 8 92 0.9483048 + 9 92 0.9413792 + 10 92 0.9350107 + 11 92 0.8511886 + 12 92 0.8376938 + 13 92 0.7905171 + 14 92 0.7760456 + 15 92 0.7615573 + 16 92 0.7469872 + 17 92 0.7322666 + 18 92 0.7173244 + 19 92 0.7020890 + 20 92 0.6864856 + 21 92 0.6670409 + 22 92 0.6506134 + 23 92 0.5939161 + 24 92 0.5994955 + 25 92 0.5597969 + 26 92 0.5305542 + 27 92 0.5056933 + 28 92 0.5637623 + 29 92 0.5467033 + 30 92 0.5291662 + 31 92 0.5111883 + 32 92 0.4928185 + 33 92 0.4741189 + 34 92 0.4551660 + 35 92 0.4322658 + 36 92 0.4127398 + 37 92 0.3932624 + 38 92 0.3739702 + 39 92 0.3424598 + 40 92 0.3367389 + 41 92 0.3195256 + 42 92 0.3033198 + 43 92 0.2889381 + 44 92 0.2889381 + 45 92 0.2889381 + 46 92 0.2889381 + 47 92 0.2889381 + 48 92 0.2889381 + 49 92 0.2889381 + 50 92 0.2889381 + 51 92 0.2889381 + 52 92 0.2889381 + 53 92 0.2889381 + 54 92 0.2889381 + 55 92 0.2889381 + 56 92 0.2889381 + 57 92 0.2889381 + 58 92 0.2889381 + 59 92 0.2889381 + 60 92 0.2889381 + 61 92 0.2889381 + 62 92 0.2889381 + 63 92 0.2889381 + 64 92 0.3024160 + 65 92 0.3145870 + 66 92 0.3271172 + 67 92 0.3399925 + 68 92 0.3484159 + 69 92 0.3628913 + 70 92 0.3929241 + 71 92 0.4098048 + 72 92 0.4046113 + 73 92 0.4191970 + 74 92 0.4341490 + 75 92 0.4495369 + 76 92 0.4654242 + 77 92 0.4818653 + 78 92 0.4842072 + 79 92 0.5099428 + 80 92 0.5293403 + 81 92 0.5491809 + 82 92 0.5694494 + 83 92 0.5901037 + 84 92 0.6110737 + 85 92 0.6322625 + 86 92 0.6428309 + 87 92 0.6654243 + 88 92 0.6990276 + 89 92 0.7225932 + 90 92 0.7457001 + 91 92 0.7681849 + 92 92 0.4658316 + 93 92 0.4973011 + 94 92 0.8411164 + 95 92 0.8570256 + 96 92 0.8717955 + 97 92 0.8853010 + 98 92 0.8974453 + 99 92 0.9230348 + 100 92 0.9302365 + 101 92 0.9362155 + 102 92 0.9409760 + 103 92 0.9445531 + 104 92 0.9470104 + 105 92 0.9484387 + 106 92 0.9162281 + 107 92 0.9204720 + 108 92 0.9235265 + 109 92 0.9256178 + 110 92 0.9269800 + 111 92 0.9271481 + 112 92 0.9267265 + 113 92 0.9262770 + 114 92 0.9260190 + 115 92 0.9352074 + 116 92 0.9346149 + 117 92 0.9300141 + 118 92 0.9304816 + 119 92 0.9319953 + 120 92 0.9346321 + 121 92 0.9384435 + 122 92 0.9434541 + 123 92 0.9496582 + 124 92 0.9570177 + 125 92 0.9762456 + 126 92 0.9842898 + 127 92 0.9933227 + 128 92 1.000000 + 129 92 1.000000 + 130 92 1.000000 + 131 92 1.000000 + 132 92 1.000000 + 133 92 1.000000 + 134 92 1.000000 + 135 92 1.000000 + 136 92 1.000000 + 137 92 1.000000 + 138 92 1.000000 + 139 92 1.000000 + 140 92 1.000000 + 141 92 1.000000 + 142 92 1.000000 + 143 92 1.000000 + 144 92 1.000000 + 145 92 0.9799129 + 146 92 0.9544094 + 147 92 0.9254809 + 148 92 0.8934157 + 149 92 0.8427083 + 150 92 0.8074955 + 151 92 0.7701359 + 152 92 0.7311147 + 153 92 0.6909223 + 154 92 0.6268760 + 155 92 0.5887452 + 156 92 0.5504984 + 157 92 0.5125436 + 158 92 0.3955354 + 159 92 0.3567680 + 160 92 0.4443671 + 1 93 0.9965577 + 2 93 0.9858925 + 3 93 0.9752085 + 4 93 0.9646236 + 5 93 0.9542499 + 6 93 0.9441859 + 7 93 0.9345171 + 8 93 0.9253119 + 9 93 0.9166225 + 10 93 0.9084874 + 11 93 0.8656685 + 12 93 0.7806703 + 13 93 0.7651185 + 14 93 0.7496845 + 15 93 0.7343122 + 16 93 0.7189392 + 17 93 0.7035006 + 18 93 0.6879271 + 19 93 0.6721487 + 20 93 0.6560940 + 21 93 0.6396905 + 22 93 0.6228654 + 23 93 0.6293600 + 24 93 0.5750424 + 25 93 0.5372453 + 26 93 0.5086007 + 27 93 0.4851004 + 28 93 0.5377316 + 29 93 0.5215378 + 30 93 0.5049555 + 31 93 0.4880175 + 32 93 0.4707677 + 33 93 0.4532612 + 34 93 0.4355658 + 35 93 0.4138179 + 36 93 0.3956189 + 37 93 0.3774935 + 38 93 0.3595628 + 39 93 0.3301219 + 40 93 0.3263590 + 41 93 0.3106311 + 42 93 0.2958764 + 43 93 0.2889381 + 44 93 0.2889381 + 45 93 0.2889381 + 46 93 0.2889381 + 47 93 0.2889381 + 48 93 0.2889381 + 49 93 0.2889381 + 50 93 0.2889381 + 51 93 0.2889381 + 52 93 0.2889381 + 53 93 0.2889381 + 54 93 0.2889381 + 55 93 0.2889381 + 56 93 0.2889381 + 57 93 0.2889381 + 58 93 0.2889381 + 59 93 0.2889381 + 60 93 0.2889381 + 61 93 0.2889381 + 62 93 0.2889381 + 63 93 0.2889381 + 64 93 0.3149187 + 65 93 0.3276812 + 66 93 0.3408805 + 67 93 0.3545088 + 68 93 0.3634871 + 69 93 0.3789486 + 70 93 0.3934040 + 71 93 0.4265870 + 72 93 0.4206163 + 73 93 0.4359846 + 74 93 0.4517224 + 75 93 0.4678871 + 76 93 0.4845270 + 77 93 0.4852207 + 78 93 0.5054947 + 79 93 0.5320544 + 80 93 0.5517823 + 81 93 0.5718693 + 82 93 0.5922806 + 83 93 0.6129573 + 84 93 0.6338141 + 85 93 0.6547394 + 86 93 0.6756013 + 87 93 0.6857725 + 88 93 0.7192205 + 89 93 0.7420416 + 90 93 0.7642215 + 91 93 0.7856030 + 92 93 0.8235807 + 93 93 0.5092178 + 94 93 0.8536583 + 95 93 0.8680187 + 96 93 0.8811334 + 97 93 0.8928988 + 98 93 0.9191688 + 99 93 0.9258843 + 100 93 0.9313729 + 101 93 0.9356310 + 102 93 0.9386869 + 103 93 0.9405974 + 104 93 0.9414463 + 105 93 0.9413429 + 106 93 0.9099884 + 107 93 0.9125929 + 108 93 0.9141668 + 109 93 0.9149446 + 110 93 0.9151651 + 111 93 0.9190021 + 112 93 0.9139546 + 113 93 0.9129426 + 114 93 1.000000 + 115 93 1.000000 + 116 93 1.000000 + 117 93 0.9162107 + 118 93 0.9171113 + 119 93 0.9192338 + 120 93 0.9226507 + 121 93 0.9274082 + 122 93 0.9335236 + 123 93 0.9409841 + 124 93 0.9497434 + 125 93 0.9699211 + 126 93 0.9797046 + 127 93 0.9905794 + 128 93 1.000000 + 129 93 1.000000 + 130 93 1.000000 + 131 93 1.000000 + 132 93 1.000000 + 133 93 1.000000 + 134 93 1.000000 + 135 93 1.000000 + 136 93 1.000000 + 137 93 1.000000 + 138 93 1.000000 + 139 93 1.000000 + 140 93 1.000000 + 141 93 1.000000 + 142 93 1.000000 + 143 93 1.000000 + 144 93 1.000000 + 145 93 1.000000 + 146 93 0.9840059 + 147 93 0.9550452 + 148 93 0.9227319 + 149 93 0.8719511 + 150 93 0.8360362 + 151 93 0.7978146 + 152 93 0.7577929 + 153 93 0.7164846 + 154 93 0.6506972 + 155 93 0.6113423 + 156 93 0.5718259 + 157 93 0.5325766 + 158 93 0.4150944 + 159 93 0.3747371 + 160 93 0.4630986 + 1 94 0.9870091 + 2 94 0.9751455 + 3 94 0.9631662 + 4 94 0.9512001 + 5 94 0.9393696 + 6 94 0.9277863 + 7 94 0.9165487 + 8 94 0.9057371 + 9 94 0.8954162 + 10 94 0.8495238 + 11 94 0.8385480 + 12 94 0.7612680 + 13 94 0.7425835 + 14 94 0.7261924 + 15 94 0.7099315 + 16 94 0.6937428 + 17 94 0.6775637 + 18 94 0.6613287 + 19 94 0.6449696 + 20 94 0.6284177 + 21 94 0.6116023 + 22 94 0.6217472 + 23 94 0.6069787 + 24 94 0.5919833 + 25 94 0.5167361 + 26 94 0.4947385 + 27 94 0.4663629 + 28 94 0.4428554 + 29 94 0.4984394 + 30 94 0.4827507 + 31 94 0.4667950 + 32 94 0.4506110 + 33 94 0.4342485 + 34 94 0.4140458 + 35 94 0.3971341 + 36 94 0.3802350 + 37 94 0.3634436 + 38 94 0.3468674 + 39 94 0.3306248 + 40 94 0.3176496 + 41 94 0.3034274 + 42 94 0.2901551 + 43 94 0.2889381 + 44 94 0.2889381 + 45 94 0.2889381 + 46 94 0.2889381 + 47 94 0.2889381 + 48 94 0.2889381 + 49 94 0.2889381 + 50 94 0.2889381 + 51 94 0.2889381 + 52 94 0.2889381 + 53 94 0.2889381 + 54 94 0.2889381 + 55 94 0.2889381 + 56 94 0.2889381 + 57 94 0.2889381 + 58 94 0.2889381 + 59 94 0.2889381 + 60 94 0.2889381 + 61 94 0.2889381 + 62 94 0.2889381 + 63 94 0.2936524 + 64 94 0.3298042 + 65 94 0.3430750 + 66 94 0.3568550 + 67 94 0.3711420 + 68 94 0.3859558 + 69 94 0.3969301 + 70 94 0.4122474 + 71 94 0.4065863 + 72 94 0.4381782 + 73 94 0.4542075 + 74 94 0.4706067 + 75 94 0.4874203 + 76 94 0.5046832 + 77 94 0.5069022 + 78 94 0.5275597 + 79 94 0.5483427 + 80 94 0.5747375 + 81 94 0.5949329 + 82 94 0.6153520 + 83 94 0.6359171 + 84 94 0.6565285 + 85 94 0.6770623 + 86 94 0.6973751 + 87 94 0.7173048 + 88 94 0.7388005 + 89 94 0.7607800 + 90 94 0.7819415 + 91 94 0.8021350 + 92 94 0.8377964 + 93 94 0.8532221 + 94 94 0.8675906 + 95 94 0.8778776 + 96 94 0.8892883 + 97 94 0.9162664 + 98 94 0.9225073 + 99 94 0.9275088 + 100 94 0.9312593 + 101 94 0.9337806 + 102 94 0.9351212 + 103 94 0.9353606 + 104 94 0.9346019 + 105 94 0.9002667 + 106 94 0.9023641 + 107 94 0.9033563 + 108 94 0.9034788 + 109 94 0.9029713 + 110 94 0.9020787 + 111 94 0.9010453 + 112 94 0.9037728 + 113 94 0.8983578 + 114 94 1.000000 + 115 94 1.000000 + 116 94 1.000000 + 117 94 0.9011956 + 118 94 0.9025325 + 119 94 0.9052639 + 120 94 0.9094573 + 121 94 0.9151530 + 122 94 0.9223633 + 123 94 0.9310671 + 124 94 0.9522003 + 125 94 0.9623281 + 126 94 0.9738304 + 127 94 0.9865258 + 128 94 1.000000 + 129 94 1.000000 + 130 94 1.000000 + 131 94 1.000000 + 132 94 1.000000 + 133 94 1.000000 + 134 94 1.000000 + 135 94 1.000000 + 136 94 1.000000 + 137 94 1.000000 + 138 94 1.000000 + 139 94 1.000000 + 140 94 1.000000 + 141 94 1.000000 + 142 94 1.000000 + 143 94 1.000000 + 144 94 1.000000 + 145 94 1.000000 + 146 94 1.000000 + 147 94 0.9840422 + 148 94 0.9516027 + 149 94 0.9008850 + 150 94 0.8643778 + 151 94 0.8253957 + 152 94 0.7844654 + 153 94 0.7421227 + 154 94 0.6746927 + 155 94 0.6341680 + 156 94 0.5934255 + 157 94 0.5529165 + 158 94 0.4350900 + 159 94 0.3931386 + 160 94 0.4823026 + 1 95 0.9794144 + 2 95 0.9665394 + 3 95 0.9534517 + 4 95 0.9402861 + 5 95 0.9271741 + 6 95 0.9142389 + 7 95 0.9015892 + 8 95 0.8893190 + 9 95 0.8407232 + 10 95 0.8274529 + 11 95 0.8147821 + 12 95 0.8027384 + 13 95 0.7252986 + 14 95 0.7054042 + 15 95 0.6882597 + 16 95 0.6712515 + 17 95 0.6543199 + 18 95 0.6374031 + 19 95 0.6204354 + 20 95 0.6033505 + 21 95 0.5860813 + 22 95 0.5984474 + 23 95 0.5836852 + 24 95 0.5688093 + 25 95 0.5191665 + 26 95 0.4819003 + 27 95 0.4494698 + 28 95 0.4273148 + 29 95 0.4774275 + 30 95 0.4625819 + 31 95 0.4475597 + 32 95 0.4323963 + 33 95 0.4171374 + 34 95 0.3979731 + 35 95 0.3822845 + 36 95 0.3666638 + 37 95 0.3511944 + 38 95 0.3359710 + 39 95 0.3346443 + 40 95 0.3106966 + 41 95 0.2980027 + 42 95 0.2889381 + 43 95 0.2889381 + 44 95 0.2889381 + 45 95 0.2889381 + 46 95 0.2889381 + 47 95 0.2889381 + 48 95 0.2889381 + 49 95 0.2889381 + 50 95 0.2889381 + 51 95 0.2889381 + 52 95 0.2889381 + 53 95 0.2889381 + 54 95 0.2889381 + 55 95 0.2889381 + 56 95 0.2889381 + 57 95 0.2889381 + 58 95 0.2889381 + 59 95 0.2889381 + 60 95 0.2889381 + 61 95 0.2889381 + 62 95 0.2970277 + 63 95 0.3233572 + 64 95 0.3375414 + 65 95 0.3607850 + 66 95 0.3750402 + 67 95 0.3898751 + 68 95 0.4053142 + 69 95 0.4167890 + 70 95 0.4328382 + 71 95 0.4263756 + 72 95 0.4572138 + 73 95 0.4737692 + 74 95 0.4906931 + 75 95 0.5080165 + 76 95 0.5085009 + 77 95 0.5293515 + 78 95 0.5502508 + 79 95 0.5712204 + 80 95 0.5980421 + 81 95 0.6182068 + 82 95 0.6384953 + 83 95 0.6588146 + 84 95 0.6790494 + 85 95 0.6990639 + 86 95 0.7187052 + 87 95 0.7378042 + 88 95 0.7688230 + 89 95 0.7786497 + 90 95 0.7987081 + 91 95 0.8358749 + 92 95 0.8509293 + 93 95 0.8649231 + 94 95 0.8777240 + 95 95 0.8864869 + 96 95 0.8961518 + 97 95 0.9200170 + 98 95 0.9245585 + 99 95 0.9278204 + 100 95 0.9298156 + 101 95 0.9305881 + 102 95 0.9302096 + 103 95 0.9287782 + 104 95 0.9264178 + 105 95 0.8929416 + 106 95 0.8933060 + 107 95 0.8927184 + 108 95 0.8914207 + 109 95 0.8896598 + 110 95 0.8876846 + 111 95 0.8857431 + 112 95 0.8879801 + 113 95 0.8863109 + 114 95 0.8811697 + 115 95 0.8889107 + 116 95 0.8885095 + 117 95 0.8849542 + 118 95 0.8867312 + 119 95 0.8900716 + 120 95 0.8950382 + 121 95 0.9016662 + 122 95 0.9099609 + 123 95 0.9198950 + 124 95 0.9417421 + 125 95 0.9534557 + 126 95 0.9666539 + 127 95 1.000000 + 128 95 1.000000 + 129 95 1.000000 + 130 95 1.000000 + 131 95 1.000000 + 132 95 1.000000 + 133 95 1.000000 + 134 95 1.000000 + 135 95 1.000000 + 136 95 1.000000 + 137 95 1.000000 + 138 95 1.000000 + 139 95 1.000000 + 140 95 1.000000 + 141 95 1.000000 + 142 95 1.000000 + 143 95 1.000000 + 144 95 1.000000 + 145 95 1.000000 + 146 95 1.000000 + 147 95 1.000000 + 148 95 0.9632670 + 149 95 0.9294482 + 150 95 0.8924637 + 151 95 0.8528286 + 152 95 0.8110876 + 153 95 0.7677985 + 154 95 0.6988311 + 155 95 0.6571966 + 156 95 0.6152781 + 157 95 0.5735481 + 158 95 0.4012880 + 159 95 0.4168342 + 160 95 0.5019789 + 1 96 0.9735416 + 2 96 0.9598339 + 3 96 0.9458156 + 4 96 0.9316266 + 5 96 0.9174053 + 6 96 0.9032828 + 7 96 0.8893795 + 8 96 0.8385710 + 9 96 0.8232093 + 10 96 0.8083705 + 11 96 0.7941098 + 12 96 0.7804652 + 13 96 0.7084820 + 14 96 0.6900715 + 15 96 0.6718746 + 16 96 0.6513029 + 17 96 0.6336154 + 18 96 0.6160047 + 19 96 0.5984096 + 20 96 0.5807662 + 21 96 0.5925197 + 22 96 0.5776979 + 23 96 0.5629141 + 24 96 0.5481264 + 25 96 0.5332943 + 26 96 0.4669678 + 27 96 0.4457484 + 28 96 0.4184550 + 29 96 0.3916023 + 30 96 0.4444481 + 31 96 0.4303206 + 32 96 0.4161421 + 33 96 0.3983487 + 34 96 0.3837966 + 35 96 0.3693097 + 36 96 0.3549529 + 37 96 0.3407998 + 38 96 0.3269327 + 39 96 0.3273045 + 40 96 0.3169528 + 41 96 0.2944197 + 42 96 0.2889381 + 43 96 0.2889381 + 44 96 0.2889381 + 45 96 0.2889381 + 46 96 0.2889381 + 47 96 0.2889381 + 48 96 0.2889381 + 49 96 0.2889381 + 50 96 0.2889381 + 51 96 0.2889381 + 52 96 0.2889381 + 53 96 0.2889381 + 54 96 0.2889381 + 55 96 0.2889381 + 56 96 0.2889381 + 57 96 0.2889381 + 58 96 0.2889381 + 59 96 0.2889381 + 60 96 0.2913874 + 61 96 0.3024595 + 62 96 0.3139678 + 63 96 0.3411184 + 64 96 0.3557225 + 65 96 0.3708706 + 66 96 0.3954106 + 67 96 0.4106673 + 68 96 0.4265999 + 69 96 0.4384564 + 70 96 0.4567816 + 71 96 0.4476275 + 72 96 0.4626905 + 73 96 0.4945571 + 74 96 0.5118567 + 75 96 0.5295422 + 76 96 0.5314338 + 77 96 0.5524155 + 78 96 0.5734093 + 79 96 0.5944206 + 80 96 0.6215284 + 81 96 0.6415212 + 82 96 0.6615412 + 83 96 0.6814801 + 84 96 0.7012083 + 85 96 0.7205799 + 86 96 0.7394314 + 87 96 0.7575879 + 88 96 0.7879424 + 89 96 0.7954980 + 90 96 0.8143755 + 91 96 0.8491389 + 92 96 0.8628517 + 93 96 0.8753581 + 94 96 0.8865416 + 95 96 0.8963103 + 96 96 0.9182891 + 97 96 0.9224223 + 98 96 0.9252381 + 99 96 0.9267423 + 100 96 0.9269711 + 101 96 0.9259899 + 102 96 0.9238929 + 103 96 0.9207977 + 104 96 0.8844032 + 105 96 0.8841103 + 106 96 0.8827767 + 107 96 0.8806441 + 108 96 0.8779618 + 109 96 0.8749820 + 110 96 0.8719583 + 111 96 0.8691410 + 112 96 0.8667745 + 113 96 0.8686872 + 114 96 0.8766091 + 115 96 0.8709638 + 116 96 0.8706468 + 117 96 0.8674779 + 118 96 0.8697010 + 119 96 0.8736526 + 120 96 0.8793902 + 121 96 0.8869441 + 122 96 0.8963130 + 123 96 0.9185005 + 124 96 0.9300241 + 125 96 0.9433017 + 126 96 0.9581725 + 127 96 0.9935145 + 128 96 1.000000 + 129 96 1.000000 + 130 96 1.000000 + 131 96 1.000000 + 132 96 1.000000 + 133 96 1.000000 + 134 96 1.000000 + 135 96 1.000000 + 136 96 1.000000 + 137 96 1.000000 + 138 96 1.000000 + 139 96 1.000000 + 140 96 1.000000 + 141 96 1.000000 + 142 96 1.000000 + 143 96 1.000000 + 144 96 1.000000 + 145 96 1.000000 + 146 96 1.000000 + 147 96 1.000000 + 148 96 0.9915626 + 149 96 0.9575825 + 150 96 0.9202405 + 151 96 0.8800644 + 152 96 0.8376175 + 153 96 0.7934763 + 154 96 0.7482156 + 155 96 0.6804031 + 156 96 0.6373628 + 157 96 0.5944563 + 158 96 0.4187447 + 159 96 0.4362418 + 160 96 0.3921610 + 1 97 0.9691759 + 2 97 0.9548028 + 3 97 0.9400234 + 4 97 0.9249799 + 5 97 0.9098154 + 6 97 0.8946680 + 7 97 0.8422570 + 8 97 0.8250850 + 9 97 0.8083093 + 10 97 0.7920166 + 11 97 0.7762730 + 12 97 0.7611250 + 13 97 0.7466026 + 14 97 0.6746625 + 15 97 0.6555780 + 16 97 0.6367146 + 17 97 0.6152831 + 18 97 0.5969750 + 19 97 0.5787405 + 20 97 0.5894691 + 21 97 0.5743315 + 22 97 0.5593700 + 23 97 0.5445459 + 24 97 0.5298229 + 25 97 0.5151663 + 26 97 0.4840580 + 27 97 0.4336231 + 28 97 0.4070555 + 29 97 0.3861688 + 30 97 0.3593936 + 31 97 0.4150583 + 32 97 0.4018379 + 33 97 0.3849634 + 34 97 0.3715216 + 35 97 0.3582214 + 36 97 0.3451210 + 37 97 0.3322843 + 38 97 0.3197823 + 39 97 0.3218169 + 40 97 0.3129429 + 41 97 0.2927127 + 42 97 0.2889381 + 43 97 0.2889381 + 44 97 0.2889381 + 45 97 0.2889381 + 46 97 0.2889381 + 47 97 0.2889381 + 48 97 0.2889381 + 49 97 0.2889381 + 50 97 0.2889381 + 51 97 0.2889381 + 52 97 0.2889381 + 53 97 0.2889381 + 54 97 0.2889381 + 55 97 0.2889381 + 56 97 0.2889381 + 57 97 0.2889381 + 58 97 0.2891647 + 59 97 0.2993895 + 60 97 0.3102206 + 61 97 0.3215584 + 62 97 0.3333144 + 63 97 0.3611528 + 64 97 0.3760801 + 65 97 0.3915801 + 66 97 0.4076578 + 67 97 0.4334519 + 68 97 0.4497332 + 69 97 0.4668074 + 70 97 0.4806969 + 71 97 0.4702331 + 72 97 0.4856491 + 73 97 0.5012997 + 74 97 0.5339621 + 75 97 0.5339813 + 76 97 0.5549717 + 77 97 0.5759318 + 78 97 0.5968705 + 79 97 0.6177748 + 80 97 0.6450250 + 81 97 0.6647040 + 82 97 0.6843189 + 83 97 0.7037456 + 84 97 0.7228420 + 85 97 0.7414505 + 86 97 0.7593986 + 87 97 0.7880704 + 88 97 0.8060900 + 89 97 0.8231695 + 90 97 0.8475948 + 91 97 0.8611335 + 92 97 0.8734482 + 93 97 0.8844180 + 94 97 0.8939435 + 95 97 0.9196485 + 96 97 0.9209667 + 97 97 0.9234045 + 98 97 0.9244756 + 99 97 0.9242103 + 100 97 0.9226671 + 101 97 0.9199337 + 102 97 0.9161245 + 103 97 0.8767983 + 104 97 0.8758399 + 105 97 0.8737432 + 106 97 0.8707498 + 107 97 0.8671107 + 108 97 0.5287319 + 109 97 0.5251563 + 110 97 0.8548843 + 111 97 0.8512250 + 112 97 0.8481888 + 113 97 0.8498115 + 114 97 0.8569818 + 115 97 0.8554588 + 116 97 0.8515309 + 117 97 0.8487686 + 118 97 0.8514441 + 119 97 0.8560091 + 120 97 0.8625163 + 121 97 0.8709902 + 122 97 0.8814245 + 123 97 0.9041026 + 124 97 0.9170532 + 125 97 0.9318712 + 126 97 0.9681926 + 127 97 0.9840308 + 128 97 1.000000 + 129 97 1.000000 + 130 97 1.000000 + 131 97 1.000000 + 132 97 1.000000 + 133 97 1.000000 + 134 97 1.000000 + 135 97 1.000000 + 136 97 1.000000 + 137 97 1.000000 + 138 97 1.000000 + 139 97 1.000000 + 140 97 1.000000 + 141 97 1.000000 + 142 97 1.000000 + 143 97 1.000000 + 144 97 1.000000 + 145 97 1.000000 + 146 97 1.000000 + 147 97 1.000000 + 148 97 1.000000 + 149 97 0.9852347 + 150 97 0.9476582 + 151 97 0.9070595 + 152 97 0.8640147 + 153 97 0.8191205 + 154 97 0.7729707 + 155 97 0.7037631 + 156 97 0.5140519 + 157 97 0.4750247 + 158 97 0.4364666 + 159 97 0.4560681 + 160 97 0.4104389 + 1 98 0.9661183 + 2 98 0.9512358 + 3 98 0.9358550 + 4 98 0.9201177 + 5 98 0.9041694 + 6 98 0.8508679 + 7 98 0.8322443 + 8 98 0.8138382 + 9 98 0.7957696 + 10 98 0.7781362 + 11 98 0.7610155 + 12 98 0.7444627 + 13 98 0.7285169 + 14 98 0.7131997 + 15 98 0.6414775 + 16 98 0.6217881 + 17 98 0.5991483 + 18 98 0.5801436 + 19 98 0.5894788 + 20 98 0.5738035 + 21 98 0.5584289 + 22 98 0.5433202 + 23 98 0.5284446 + 24 98 0.5137707 + 25 98 0.4992700 + 26 98 0.4694942 + 27 98 0.4530156 + 28 98 0.3973397 + 29 98 0.3777056 + 30 98 0.3573311 + 31 98 0.4063909 + 32 98 0.3859913 + 33 98 0.3734693 + 34 98 0.3611249 + 35 98 0.3490042 + 36 98 0.3371589 + 37 98 0.3256446 + 38 98 0.3145222 + 39 98 0.3181854 + 40 98 0.3108102 + 41 98 0.2928878 + 42 98 0.2889381 + 43 98 0.2889381 + 44 98 0.2889381 + 45 98 0.2889381 + 46 98 0.2889381 + 47 98 0.2889381 + 48 98 0.2889381 + 49 98 0.2889381 + 50 98 0.2889381 + 51 98 0.2889381 + 52 98 0.2889381 + 53 98 0.2889381 + 54 98 0.2889381 + 55 98 0.2889381 + 56 98 0.2889381 + 57 98 0.2889381 + 58 98 0.3099362 + 59 98 0.3204695 + 60 98 0.3315487 + 61 98 0.3430884 + 62 98 0.3550167 + 63 98 0.3833930 + 64 98 0.3985382 + 65 98 0.4142740 + 66 98 0.4306180 + 67 98 0.4476031 + 68 98 0.4746091 + 69 98 0.4919413 + 70 98 0.4804460 + 71 98 0.4940675 + 72 98 0.5096602 + 73 98 0.5255069 + 74 98 0.5416135 + 75 98 0.5581248 + 76 98 0.5789518 + 77 98 0.5997344 + 78 98 0.6204653 + 79 98 0.6411148 + 80 98 0.6683593 + 81 98 0.6875854 + 82 98 0.7066614 + 83 98 0.7254482 + 84 98 0.7437916 + 85 98 0.7615219 + 86 98 0.7784605 + 87 98 0.8063396 + 88 98 0.8231317 + 89 98 0.8388520 + 90 98 0.8709371 + 91 98 0.8717443 + 92 98 0.8826136 + 93 98 0.8920065 + 94 98 0.8998423 + 95 98 0.9223316 + 96 98 0.9248175 + 97 98 0.9228963 + 98 98 0.9222114 + 99 98 0.9201708 + 100 98 0.9168569 + 101 98 0.9123777 + 102 98 0.9068680 + 103 98 0.8685374 + 104 98 0.8656805 + 105 98 0.8618205 + 106 98 0.8572090 + 107 98 0.5192991 + 108 98 0.5147151 + 109 98 0.5101584 + 110 98 0.5058523 + 111 98 0.8319915 + 112 98 0.8283195 + 113 98 0.8256770 + 114 98 0.8361275 + 115 98 0.8344995 + 116 98 0.8347706 + 117 98 0.8288342 + 118 98 0.8319700 + 119 98 0.8371519 + 120 98 0.8444277 + 121 98 0.8538166 + 122 98 0.8653065 + 123 98 0.8884861 + 124 98 0.9028430 + 125 98 0.9191785 + 126 98 0.9555715 + 127 98 0.9733058 + 128 98 0.9925571 + 129 98 1.000000 + 130 98 1.000000 + 131 98 1.000000 + 132 98 1.000000 + 133 98 1.000000 + 134 98 1.000000 + 135 98 1.000000 + 136 98 1.000000 + 137 98 1.000000 + 138 98 1.000000 + 139 98 1.000000 + 140 98 1.000000 + 141 98 1.000000 + 142 98 1.000000 + 143 98 1.000000 + 144 98 1.000000 + 145 98 1.000000 + 146 98 1.000000 + 147 98 1.000000 + 148 98 1.000000 + 149 98 1.000000 + 150 98 0.9746718 + 151 98 0.7569886 + 152 98 0.7184102 + 153 98 0.6780452 + 154 98 0.6364383 + 155 98 0.5739564 + 156 98 0.5339842 + 157 98 0.4940034 + 158 98 0.4544424 + 159 98 0.4763114 + 160 98 0.4291365 + 1 99 0.9641862 + 2 99 0.9489387 + 3 99 0.9331053 + 4 99 0.9168259 + 5 99 0.8634183 + 6 99 0.8437654 + 7 99 0.8241068 + 8 99 0.8045904 + 9 99 0.7853461 + 10 99 0.7664827 + 11 99 0.7480879 + 12 99 0.7302275 + 13 99 0.7129489 + 14 99 0.6962814 + 15 99 0.6293833 + 16 99 0.6088886 + 17 99 0.5886535 + 18 99 0.5653341 + 19 99 0.5762488 + 20 99 0.5602589 + 21 99 0.5446503 + 22 99 0.5293932 + 23 99 0.5144606 + 24 99 0.4998269 + 25 99 0.4854689 + 26 99 0.4713668 + 27 99 0.4409783 + 28 99 0.3955550 + 29 99 0.3707822 + 30 99 0.3517698 + 31 99 0.3321350 + 32 99 0.3802192 + 33 99 0.3638118 + 34 99 0.3525595 + 35 99 0.3416174 + 36 99 0.3310315 + 37 99 0.3208507 + 38 99 0.3111263 + 39 99 0.3163865 + 40 99 0.3105332 + 41 99 0.3057709 + 42 99 0.2895953 + 43 99 0.2889381 + 44 99 0.2889381 + 45 99 0.2889381 + 46 99 0.2889381 + 47 99 0.2889381 + 48 99 0.2889381 + 49 99 0.2889381 + 50 99 0.2909832 + 51 99 0.2889381 + 52 99 0.2889381 + 53 99 0.2889381 + 54 99 0.2889381 + 55 99 0.2940806 + 56 99 0.3010962 + 57 99 0.3085749 + 58 99 0.3332232 + 59 99 0.3440245 + 60 99 0.3552960 + 61 99 0.3669692 + 62 99 0.3789876 + 63 99 0.4077391 + 64 99 0.4229886 + 65 99 0.4388373 + 66 99 0.4553148 + 67 99 0.4724650 + 68 99 0.4903437 + 69 99 0.5185193 + 70 99 0.5054848 + 71 99 0.5189902 + 72 99 0.5345779 + 73 99 0.5504373 + 74 99 0.5481656 + 75 99 0.5673111 + 76 99 0.6032052 + 77 99 0.6236534 + 78 99 0.6440241 + 79 99 0.6642709 + 80 99 0.6913618 + 81 99 0.7099995 + 82 99 0.7284067 + 83 99 0.7464314 + 84 99 0.7639056 + 85 99 0.7806507 + 86 99 0.7964784 + 87 99 0.8234645 + 88 99 0.8389454 + 89 99 0.8723418 + 90 99 0.8826347 + 91 99 0.8917723 + 92 99 0.8902549 + 93 99 0.8980401 + 94 99 0.9212502 + 95 99 0.9235053 + 96 99 0.9242888 + 97 99 0.9236144 + 98 99 0.9183971 + 99 99 0.9145836 + 100 99 0.9095055 + 101 99 0.9032933 + 102 99 0.8622164 + 103 99 0.8586240 + 104 99 0.8539127 + 105 99 0.8483338 + 106 99 0.8421491 + 107 99 0.5051373 + 108 99 0.4994679 + 109 99 0.4939658 + 110 99 0.4888566 + 111 99 0.8114454 + 112 99 0.8071724 + 113 99 0.8040957 + 114 99 0.8140547 + 115 99 0.8123484 + 116 99 0.8126968 + 117 99 0.8111420 + 118 99 0.8151485 + 119 99 0.8170978 + 120 99 0.8251417 + 121 99 0.8354412 + 122 99 0.8581572 + 123 99 0.8716716 + 124 99 0.8874137 + 125 99 0.9240457 + 126 99 0.9417688 + 127 99 0.9613585 + 128 99 0.9825369 + 129 99 1.000000 + 130 99 1.000000 + 131 99 1.000000 + 132 99 1.000000 + 133 99 1.000000 + 134 99 1.000000 + 135 99 1.000000 + 136 99 1.000000 + 137 99 1.000000 + 138 99 1.000000 + 139 99 1.000000 + 140 99 1.000000 + 141 99 1.000000 + 142 99 1.000000 + 143 99 1.000000 + 144 99 1.000000 + 145 99 1.000000 + 146 99 1.000000 + 147 99 1.000000 + 148 99 1.000000 + 149 99 1.000000 + 150 99 1.000000 + 151 99 1.000000 + 152 99 1.000000 + 153 99 1.000000 + 154 99 1.000000 + 155 99 1.000000 + 156 99 1.000000 + 157 99 1.000000 + 158 99 0.4785559 + 159 99 0.4374806 + 160 99 0.4482539 + 1 100 0.9632136 + 2 100 0.9477335 + 3 100 0.9315861 + 4 100 0.8788865 + 5 100 0.8586706 + 6 100 0.8381935 + 7 100 0.8176222 + 8 100 0.7971135 + 9 100 0.7768061 + 10 100 0.7568195 + 11 100 0.7372513 + 12 100 0.7181771 + 13 100 0.6996541 + 14 100 0.6817188 + 15 100 0.6643938 + 16 100 0.5978295 + 17 100 0.5768401 + 18 100 0.5851032 + 19 100 0.5649557 + 20 100 0.5486628 + 21 100 0.5328272 + 22 100 0.5174255 + 23 100 0.5024358 + 24 100 0.4878387 + 25 100 0.4736171 + 26 100 0.4597567 + 27 100 0.4308096 + 28 100 0.4153835 + 29 100 0.3653072 + 30 100 0.3476004 + 31 100 0.3265637 + 32 100 0.3076280 + 33 100 0.3609920 + 34 100 0.3457551 + 35 100 0.3359963 + 36 100 0.3266794 + 37 100 0.3178473 + 38 100 0.3095431 + 39 100 0.3163700 + 40 100 0.3120641 + 41 100 0.3088862 + 42 100 0.2951452 + 43 100 0.2925978 + 44 100 0.2911930 + 45 100 0.2909859 + 46 100 0.2920202 + 47 100 0.2943272 + 48 100 0.2979217 + 49 100 0.3028017 + 50 100 0.3089478 + 51 100 0.3163218 + 52 100 0.2988898 + 53 100 0.3048768 + 54 100 0.3115216 + 55 100 0.3187203 + 56 100 0.3263652 + 57 100 0.3343478 + 58 100 0.3589183 + 59 100 0.3699434 + 60 100 0.3813487 + 61 100 0.3930817 + 62 100 0.4051041 + 63 100 0.4340585 + 64 100 0.4492935 + 65 100 0.4651255 + 66 100 0.4815981 + 67 100 0.4987676 + 68 100 0.5166993 + 69 100 0.5354671 + 70 100 0.5316428 + 71 100 0.5471452 + 72 100 0.5602442 + 73 100 0.5759311 + 74 100 0.5748577 + 75 100 0.5936445 + 76 100 0.6123067 + 77 100 0.6475200 + 78 100 0.6673796 + 79 100 0.6870787 + 80 100 0.7138686 + 81 100 0.7317860 + 82 100 0.7494010 + 83 100 0.7665467 + 84 100 0.7830435 + 85 100 0.7987023 + 86 100 0.8133281 + 87 100 0.8393266 + 88 100 0.8740842 + 89 100 0.8840596 + 90 100 0.8929092 + 91 100 0.9004822 + 92 100 0.8962924 + 93 100 0.9203244 + 94 100 0.9224938 + 95 100 0.9231129 + 96 100 0.9221844 + 97 100 0.9197437 + 98 100 0.9158567 + 99 100 0.9074180 + 100 100 0.9005892 + 101 100 0.8568578 + 102 100 0.8525783 + 103 100 0.8470534 + 104 100 0.8405346 + 105 100 0.8332852 + 106 100 0.8255741 + 107 100 0.8176745 + 108 100 0.4829974 + 109 100 0.4765873 + 110 100 0.7955610 + 111 100 0.7895990 + 112 100 0.7847617 + 113 100 0.7901177 + 114 100 0.7869294 + 115 100 0.7890217 + 116 100 0.7894701 + 117 100 0.7883377 + 118 100 0.7927685 + 119 100 0.7995883 + 120 100 0.8046829 + 121 100 0.8158877 + 122 100 0.8389162 + 123 100 0.8536848 + 124 100 0.8900702 + 125 100 0.9073464 + 126 100 0.9268087 + 127 100 0.9482136 + 128 100 0.9712776 + 129 100 0.9956748 + 130 100 1.000000 + 131 100 1.000000 + 132 100 1.000000 + 133 100 1.000000 + 134 100 1.000000 + 135 100 1.000000 + 136 100 1.000000 + 137 100 1.000000 + 138 100 1.000000 + 139 100 1.000000 + 140 100 1.000000 + 141 100 1.000000 + 142 100 1.000000 + 143 100 1.000000 + 144 100 1.000000 + 145 100 1.000000 + 146 100 1.000000 + 147 100 1.000000 + 148 100 1.000000 + 149 100 1.000000 + 150 100 1.000000 + 151 100 1.000000 + 152 100 1.000000 + 153 100 1.000000 + 154 100 1.000000 + 155 100 1.000000 + 156 100 1.000000 + 157 100 1.000000 + 158 100 0.4970993 + 159 100 0.4550467 + 160 100 0.4677908 + 1 101 0.9630493 + 2 101 0.9474573 + 3 101 0.9311233 + 4 101 0.8759629 + 5 101 0.8551353 + 6 101 0.8339507 + 7 101 0.8125824 + 8 101 0.7911931 + 9 101 0.7699299 + 10 101 0.7489219 + 11 101 0.7282763 + 12 101 0.7080799 + 13 101 0.6883970 + 14 101 0.6692740 + 15 101 0.6507398 + 16 101 0.5884272 + 17 101 0.5943925 + 18 101 0.5763179 + 19 101 0.5588201 + 20 101 0.5388398 + 21 101 0.5227883 + 22 101 0.5072490 + 23 101 0.4922063 + 24 101 0.4776461 + 25 101 0.4635584 + 26 101 0.4499348 + 27 101 0.4223647 + 28 101 0.4075384 + 29 101 0.3870294 + 30 101 0.3447256 + 31 101 0.3249761 + 32 101 0.3076213 + 33 101 0.2899026 + 34 101 0.3458425 + 35 101 0.3320554 + 36 101 0.3240210 + 37 101 0.3165567 + 38 101 0.3096976 + 39 101 0.3180637 + 40 101 0.3153306 + 41 101 0.3137687 + 42 101 0.3134590 + 43 101 0.3016790 + 44 101 0.3020307 + 45 101 0.3035585 + 46 101 0.3062853 + 47 101 0.3102198 + 48 101 0.3153556 + 49 101 0.3216705 + 50 101 0.3291253 + 51 101 0.3376669 + 52 101 0.3230969 + 53 101 0.3301626 + 54 101 0.3377369 + 55 101 0.3457153 + 56 101 0.3539948 + 57 101 0.3624745 + 58 101 0.3868729 + 59 101 0.3980751 + 60 101 0.4095528 + 61 101 0.4212709 + 62 101 0.4332094 + 63 101 0.4621878 + 64 101 0.4772860 + 65 101 0.4929691 + 66 101 0.5092955 + 67 101 0.5263343 + 68 101 0.5441627 + 69 101 0.5628633 + 70 101 0.5479736 + 71 101 0.5738571 + 72 101 0.5864956 + 73 101 0.5833678 + 74 101 0.6017126 + 75 101 0.6199654 + 76 101 0.6381169 + 77 101 0.6561359 + 78 101 0.6903698 + 79 101 0.7093801 + 80 101 0.7357222 + 81 101 0.7527953 + 82 101 0.7695008 + 83 101 0.7856581 + 84 101 0.8010765 + 85 101 0.8155569 + 86 101 0.8288969 + 87 101 0.8538216 + 88 101 0.8857312 + 89 101 0.8943313 + 90 101 0.9016853 + 91 101 0.9076508 + 92 101 0.9306903 + 93 101 0.9215236 + 94 101 0.9221376 + 95 101 0.9211113 + 96 101 0.9184688 + 97 101 0.9142666 + 98 101 0.9085914 + 99 101 0.8986572 + 100 101 0.8900952 + 101 101 0.8475159 + 102 101 0.8412393 + 103 101 0.8338318 + 104 101 0.8255564 + 105 101 0.8166859 + 106 101 0.8074977 + 107 101 0.7982720 + 108 101 0.7892860 + 109 101 0.7808141 + 110 101 0.7731242 + 111 101 0.7664734 + 112 101 0.7611085 + 113 101 0.7656463 + 114 101 0.7623112 + 115 101 0.7645416 + 116 101 0.7651142 + 117 101 0.7681734 + 118 101 0.7693008 + 119 101 0.7766992 + 120 101 0.7866631 + 121 101 0.8091899 + 122 101 0.8185520 + 123 101 0.8345569 + 124 101 0.8706630 + 125 101 0.8895590 + 126 101 0.9107207 + 127 101 0.9338999 + 128 101 0.9588078 + 129 101 0.9851130 + 130 101 1.000000 + 131 101 1.000000 + 132 101 1.000000 + 133 101 1.000000 + 134 101 1.000000 + 135 101 1.000000 + 136 101 1.000000 + 137 101 1.000000 + 138 101 0.8882353 + 139 101 0.8882353 + 140 101 1.000000 + 141 101 1.000000 + 142 101 1.000000 + 143 101 1.000000 + 144 101 1.000000 + 145 101 1.000000 + 146 101 1.000000 + 147 101 1.000000 + 148 101 1.000000 + 149 101 1.000000 + 150 101 1.000000 + 151 101 1.000000 + 152 101 1.000000 + 153 101 1.000000 + 154 101 1.000000 + 155 101 1.000000 + 156 101 1.000000 + 157 101 1.000000 + 158 101 0.5158511 + 159 101 0.4728613 + 160 101 0.4877470 + 1 102 0.9146956 + 2 102 0.9479623 + 3 102 0.8946702 + 4 102 0.8739659 + 5 102 0.8526343 + 6 102 0.8308515 + 7 102 0.8087934 + 8 102 0.7866279 + 9 102 0.7645103 + 10 102 0.7425776 + 11 102 0.7209468 + 12 102 0.6997138 + 13 102 0.6789527 + 14 102 0.6587186 + 15 102 0.6390474 + 16 102 0.6199611 + 17 102 0.5876122 + 18 102 0.5691088 + 19 102 0.5512387 + 20 102 0.5339970 + 21 102 0.5143605 + 22 102 0.4986937 + 23 102 0.4836045 + 24 102 0.4690856 + 25 102 0.4551328 + 26 102 0.4417446 + 27 102 0.4154941 + 28 102 0.4012555 + 29 102 0.3873222 + 30 102 0.3684353 + 31 102 0.3245191 + 32 102 0.3086917 + 33 102 0.2926822 + 34 102 0.3428989 + 35 102 0.3350045 + 36 102 0.3229573 + 37 102 0.3168813 + 38 102 0.3114935 + 39 102 0.3213731 + 40 102 0.3202382 + 41 102 0.3203221 + 42 102 0.3216900 + 43 102 0.3124731 + 44 102 0.3146241 + 45 102 0.3179344 + 46 102 0.3224042 + 47 102 0.3280190 + 48 102 0.3347502 + 49 102 0.3425529 + 50 102 0.3513687 + 51 102 0.3611243 + 52 102 0.3717380 + 53 102 0.3575822 + 54 102 0.3661095 + 55 102 0.3748811 + 56 102 0.3837960 + 57 102 0.3927615 + 58 102 0.4016942 + 59 102 0.4282317 + 60 102 0.4397202 + 61 102 0.4513480 + 62 102 0.4631137 + 63 102 0.4919348 + 64 102 0.5067745 + 65 102 0.5221757 + 66 102 0.5382135 + 67 102 0.5549725 + 68 102 0.5725408 + 69 102 0.5910125 + 70 102 0.5743564 + 71 102 0.5904068 + 72 102 0.5933135 + 73 102 0.6109635 + 74 102 0.6285627 + 75 102 0.6461108 + 76 102 0.6635850 + 77 102 0.6809397 + 78 102 0.6981071 + 79 102 0.7310267 + 80 102 0.7567783 + 81 102 0.7728885 + 82 102 0.7885745 + 83 102 0.8036421 + 84 102 0.8178896 + 85 102 0.8311080 + 86 102 0.8430871 + 87 102 0.8875452 + 88 102 0.8959165 + 89 102 0.9030879 + 90 102 0.9089021 + 91 102 0.9324673 + 92 102 0.9329157 + 93 102 0.9210930 + 94 102 0.9201429 + 95 102 0.9174696 + 96 102 0.9131178 + 97 102 0.9071646 + 98 102 0.8997179 + 99 102 0.8909158 + 100 102 0.8433748 + 101 102 0.8364333 + 102 102 0.8282124 + 103 102 0.8189751 + 104 102 0.8089959 + 105 102 0.7985564 + 106 102 0.7879423 + 107 102 0.7774393 + 108 102 0.7673302 + 109 102 0.7578923 + 110 102 0.7493944 + 111 102 0.7420949 + 112 102 0.7362403 + 113 102 0.7400009 + 114 102 0.7365490 + 115 102 0.7389375 + 116 102 0.7396570 + 117 102 0.7430024 + 118 102 0.7447715 + 119 102 0.7527605 + 120 102 0.7634429 + 121 102 0.7860504 + 122 102 0.8010299 + 123 102 0.8368359 + 124 102 0.8502370 + 125 102 0.8707158 + 126 102 0.8935382 + 127 102 0.9184510 + 128 102 0.9451607 + 129 102 0.9733319 + 130 102 1.000000 + 131 102 1.000000 + 132 102 1.000000 + 133 102 1.000000 + 134 102 1.000000 + 135 102 1.000000 + 136 102 0.8882353 + 137 102 0.8882353 + 138 102 0.8882353 + 139 102 0.8882353 + 140 102 1.000000 + 141 102 1.000000 + 142 102 1.000000 + 143 102 1.000000 + 144 102 1.000000 + 145 102 1.000000 + 146 102 1.000000 + 147 102 1.000000 + 148 102 1.000000 + 149 102 1.000000 + 150 102 1.000000 + 151 102 1.000000 + 152 102 1.000000 + 153 102 1.000000 + 154 102 1.000000 + 155 102 1.000000 + 156 102 1.000000 + 157 102 1.000000 + 158 102 0.5348001 + 159 102 0.4909154 + 160 102 0.5175780 + 1 103 0.9222202 + 2 103 0.8661832 + 3 103 0.8937593 + 4 103 0.8727416 + 5 103 0.8510054 + 6 103 0.8287242 + 7 103 0.8060758 + 8 103 0.7832320 + 9 103 0.7603543 + 10 103 0.7375876 + 11 103 0.7150581 + 12 103 0.6928706 + 13 103 0.6711085 + 14 103 0.6498351 + 15 103 0.6290948 + 16 103 0.6366991 + 17 103 0.6206298 + 18 103 0.5633002 + 19 103 0.5450782 + 20 103 0.5275452 + 21 103 0.5073722 + 22 103 0.4915894 + 23 103 0.4764628 + 24 103 0.4619916 + 25 103 0.4481777 + 26 103 0.4350266 + 27 103 0.4225470 + 28 103 0.3963839 + 29 103 0.3831638 + 30 103 0.3617380 + 31 103 0.3497504 + 32 103 0.3107331 + 33 103 0.2963804 + 34 103 0.2889381 + 35 103 0.3347006 + 36 103 0.3287201 + 37 103 0.3187067 + 38 103 0.3148170 + 39 103 0.3261855 + 40 103 0.3266734 + 41 103 0.3284305 + 42 103 0.3315065 + 43 103 0.3359417 + 44 103 0.3288420 + 45 103 0.3339747 + 46 103 0.3402299 + 47 103 0.3475701 + 48 103 0.3559419 + 49 103 0.3652778 + 50 103 0.3754962 + 51 103 0.3865066 + 52 103 0.3982094 + 53 103 0.4104993 + 54 103 0.3964239 + 55 103 0.4059963 + 56 103 0.4155442 + 57 103 0.4249809 + 58 103 0.4342336 + 59 103 0.4601921 + 60 103 0.4716295 + 61 103 0.4830938 + 62 103 0.4946006 + 63 103 0.5230841 + 64 103 0.5375452 + 65 103 0.5525345 + 66 103 0.5681451 + 67 103 0.5844758 + 68 103 0.6016304 + 69 103 0.5915604 + 70 103 0.6057720 + 71 103 0.5954363 + 72 103 0.6247571 + 73 103 0.6385611 + 74 103 0.6552455 + 75 103 0.6719239 + 76 103 0.6885598 + 77 103 0.7050951 + 78 103 0.7214478 + 79 103 0.7375138 + 80 103 0.7769043 + 81 103 0.7919420 + 82 103 0.8065064 + 83 103 0.8203917 + 84 103 0.8333837 + 85 103 0.8452650 + 86 103 0.8779488 + 87 103 0.8975725 + 88 103 0.9045779 + 89 103 0.9102760 + 90 103 0.9343422 + 91 103 0.9347081 + 92 103 0.9335967 + 93 103 0.9309406 + 94 103 0.9164844 + 95 103 0.9121691 + 96 103 0.9061195 + 97 103 0.8984325 + 98 103 0.8892367 + 99 103 0.8422804 + 100 103 0.8350297 + 101 103 0.8236301 + 102 103 0.8135207 + 103 103 0.8025090 + 104 103 0.7908803 + 105 103 0.7789256 + 106 103 0.7669374 + 107 103 0.7552081 + 108 103 0.7440249 + 109 103 0.7336666 + 110 103 0.7244049 + 111 103 0.7164981 + 112 103 0.7189793 + 113 103 0.7132173 + 114 103 0.7096791 + 115 103 0.7085353 + 116 103 0.7131327 + 117 103 0.7167835 + 118 103 0.7192135 + 119 103 0.7278042 + 120 103 0.7488236 + 121 103 0.7619453 + 122 103 0.7963219 + 123 103 0.8133174 + 124 103 0.8331752 + 125 103 0.8557242 + 126 103 0.8752966 + 127 103 0.9019026 + 128 103 0.9303727 + 129 103 0.9603674 + 130 103 0.9915026 + 131 103 1.000000 + 132 103 1.000000 + 133 103 1.000000 + 134 103 0.8882353 + 135 103 0.8882353 + 136 103 0.8882353 + 137 103 0.8882353 + 138 103 0.8882353 + 139 103 0.8882353 + 140 103 1.000000 + 141 103 1.000000 + 142 103 1.000000 + 143 103 1.000000 + 144 103 1.000000 + 145 103 1.000000 + 146 103 1.000000 + 147 103 1.000000 + 148 103 1.000000 + 149 103 1.000000 + 150 103 1.000000 + 151 103 1.000000 + 152 103 1.000000 + 153 103 1.000000 + 154 103 1.000000 + 155 103 1.000000 + 156 103 1.000000 + 157 103 1.000000 + 158 103 1.000000 + 159 103 1.000000 + 160 103 0.5376756 + 1 104 0.8963037 + 2 104 0.8722799 + 3 104 0.8467659 + 4 104 0.8721523 + 5 104 0.8501005 + 6 104 0.8274119 + 7 104 0.8042644 + 8 104 0.7808322 + 9 104 0.7572823 + 10 104 0.7337666 + 11 104 0.7104194 + 12 104 0.6873540 + 13 104 0.6646630 + 14 104 0.6424186 + 15 104 0.6206731 + 16 104 0.6289635 + 17 104 0.6121047 + 18 104 0.5961900 + 19 104 0.5401693 + 20 104 0.5223617 + 21 104 0.5053067 + 22 104 0.4857684 + 23 104 0.4706149 + 24 104 0.4561993 + 25 104 0.4425305 + 26 104 0.4296201 + 27 104 0.4174841 + 28 104 0.3927700 + 29 104 0.3802553 + 30 104 0.3593371 + 31 104 0.3483531 + 32 104 0.3377463 + 33 104 0.3008889 + 34 104 0.2889381 + 35 104 0.2889381 + 36 104 0.3310512 + 37 104 0.3272294 + 38 104 0.3195385 + 39 104 0.3323735 + 40 104 0.3345057 + 41 104 0.3379599 + 42 104 0.3427707 + 43 104 0.3489596 + 44 104 0.3445323 + 45 104 0.3515193 + 46 104 0.3595942 + 47 104 0.3686945 + 48 104 0.3787424 + 49 104 0.3896458 + 50 104 0.4013018 + 51 104 0.4135973 + 52 104 0.4264150 + 53 104 0.4396373 + 54 104 0.4284335 + 55 104 0.4388082 + 56 104 0.4489826 + 57 104 0.4588728 + 58 104 0.4684179 + 59 104 0.4937061 + 60 104 0.5050350 + 61 104 0.5162638 + 62 104 0.5274293 + 63 104 0.5554016 + 64 104 0.5693692 + 65 104 0.5838217 + 66 104 0.5988701 + 67 104 0.6146311 + 68 104 0.6312224 + 69 104 0.6193773 + 70 104 0.6328553 + 71 104 0.6236413 + 72 104 0.6413695 + 73 104 0.6659998 + 74 104 0.6816078 + 75 104 0.6972581 + 76 104 0.7129032 + 77 104 0.7284718 + 78 104 0.7438684 + 79 104 0.7589754 + 80 104 0.7820030 + 81 104 0.7947235 + 82 104 0.8231966 + 83 104 0.8358150 + 84 104 0.8474765 + 85 104 0.8579545 + 86 104 0.8875247 + 87 104 0.9060763 + 88 104 0.9116696 + 89 104 0.9361777 + 90 104 0.9365328 + 91 104 0.9354087 + 92 104 0.9327139 + 93 104 0.9283939 + 94 104 0.9111476 + 95 104 0.9052033 + 96 104 0.8974731 + 97 104 0.8880748 + 98 104 0.8392201 + 99 104 0.8315137 + 100 104 0.8222085 + 101 104 0.8115599 + 102 104 0.7971956 + 103 104 0.7844666 + 104 104 0.7712446 + 105 104 0.7578290 + 106 104 0.7445207 + 107 104 0.7316160 + 108 104 0.7194073 + 109 104 0.7081763 + 110 104 0.6981944 + 111 104 0.6897213 + 112 104 0.6912932 + 113 104 0.6853359 + 114 104 0.6817405 + 115 104 0.6806751 + 116 104 0.6855786 + 117 104 0.6895542 + 118 104 0.6926625 + 119 104 0.7018660 + 120 104 0.7228500 + 121 104 0.7554542 + 122 104 0.7706741 + 123 104 0.7889687 + 124 104 0.8102003 + 125 104 0.8341938 + 126 104 0.8607349 + 127 104 0.8895668 + 128 104 0.9203907 + 129 104 0.9462589 + 130 104 0.9626639 + 131 104 0.8072693 + 132 104 0.8395323 + 133 104 0.8714209 + 134 104 0.8882353 + 135 104 0.8882353 + 136 104 0.8882353 + 137 104 0.8882353 + 138 104 0.8882353 + 139 104 0.8882353 + 140 104 1.000000 + 141 104 1.000000 + 142 104 1.000000 + 143 104 1.000000 + 144 104 1.000000 + 145 104 1.000000 + 146 104 1.000000 + 147 104 1.000000 + 148 104 1.000000 + 149 104 1.000000 + 150 104 1.000000 + 151 104 1.000000 + 152 104 1.000000 + 153 104 1.000000 + 154 104 1.000000 + 155 104 1.000000 + 156 104 1.000000 + 157 104 1.000000 + 158 104 1.000000 + 159 104 1.000000 + 160 104 0.5582314 + 1 105 0.9013691 + 2 105 0.8779471 + 3 105 0.8530018 + 4 105 0.8720733 + 5 105 0.8497853 + 6 105 0.8267716 + 7 105 0.8032076 + 8 105 0.7792704 + 9 105 0.7551295 + 10 105 0.7309434 + 11 105 0.7068532 + 12 105 0.6829811 + 13 105 0.6594288 + 14 105 0.6362763 + 15 105 0.6411538 + 16 105 0.6226566 + 17 105 0.6050709 + 18 105 0.5884420 + 19 105 0.5363478 + 20 105 0.5182831 + 21 105 0.5010324 + 22 105 0.4846093 + 23 105 0.4658974 + 24 105 0.4515464 + 25 105 0.4380297 + 26 105 0.4253655 + 27 105 0.4135765 + 28 105 0.4026890 + 29 105 0.3784448 + 30 105 0.3580311 + 31 105 0.3480373 + 32 105 0.3385633 + 33 105 0.3296160 + 34 105 0.2952438 + 35 105 0.2889381 + 36 105 0.2889381 + 37 105 0.3321878 + 38 105 0.3307566 + 39 105 0.3397965 + 40 105 0.3435916 + 41 105 0.3487633 + 42 105 0.3553299 + 43 105 0.3632948 + 44 105 0.3726464 + 45 105 0.3703910 + 46 105 0.3803095 + 47 105 0.3911943 + 48 105 0.4029429 + 49 105 0.4154390 + 50 105 0.4285542 + 51 105 0.4421555 + 52 105 0.4561069 + 53 105 0.4702750 + 54 105 0.4845354 + 55 105 0.4730419 + 56 105 0.4838305 + 57 105 0.4941559 + 58 105 0.5039636 + 59 105 0.5285040 + 60 105 0.5396686 + 61 105 0.5505964 + 62 105 0.5613441 + 63 105 0.5886400 + 64 105 0.6020068 + 65 105 0.6158049 + 66 105 0.6301650 + 67 105 0.6452212 + 68 105 0.6611083 + 69 105 0.6473964 + 70 105 0.6397326 + 71 105 0.6516749 + 72 105 0.6682710 + 73 105 0.6814505 + 74 105 0.7075074 + 75 105 0.7219809 + 76 105 0.7364911 + 77 105 0.7509543 + 78 105 0.7652632 + 79 105 0.7792860 + 80 105 0.8014351 + 81 105 0.8130016 + 82 105 0.8239820 + 83 105 0.8498394 + 84 105 0.8601040 + 85 105 0.8908241 + 86 105 0.8956012 + 87 105 0.9130193 + 88 105 0.9378685 + 89 105 0.9382624 + 90 105 0.9371966 + 91 105 0.9345565 + 92 105 0.9302614 + 93 105 0.9242684 + 94 105 0.9165732 + 95 105 0.8965765 + 96 105 0.8871887 + 97 105 0.8367459 + 98 105 0.8287563 + 99 105 0.8189880 + 100 105 0.8076917 + 101 105 0.7951378 + 102 105 0.7816129 + 103 105 0.7648892 + 104 105 0.7501304 + 105 105 0.7353103 + 106 105 0.7207351 + 107 105 0.7067073 + 108 105 0.6935225 + 109 105 0.6814649 + 110 105 0.6708074 + 111 105 0.6618084 + 112 105 0.6625206 + 113 105 0.6564009 + 114 105 0.6527777 + 115 105 0.6518157 + 116 105 0.6570360 + 117 105 0.6613551 + 118 105 0.6651577 + 119 105 0.6841477 + 120 105 0.6959852 + 121 105 0.7278314 + 122 105 0.7442506 + 123 105 0.7638202 + 124 105 0.7863994 + 125 105 0.8118094 + 126 105 0.8398319 + 127 105 0.7006540 + 128 105 1.000000 + 129 105 1.000000 + 130 105 1.000000 + 131 105 1.000000 + 132 105 1.000000 + 133 105 1.000000 + 134 105 1.000000 + 135 105 1.000000 + 136 105 1.000000 + 137 105 1.000000 + 138 105 1.000000 + 139 105 1.000000 + 140 105 1.000000 + 141 105 1.000000 + 142 105 1.000000 + 143 105 1.000000 + 144 105 1.000000 + 145 105 1.000000 + 146 105 1.000000 + 147 105 1.000000 + 148 105 1.000000 + 149 105 1.000000 + 150 105 1.000000 + 151 105 1.000000 + 152 105 1.000000 + 153 105 1.000000 + 154 105 1.000000 + 155 105 1.000000 + 156 105 1.000000 + 157 105 1.000000 + 158 105 1.000000 + 159 105 1.000000 + 160 105 0.5792413 + 1 106 0.5656257 + 2 106 0.5460057 + 3 106 0.8587978 + 4 106 0.8329876 + 5 106 0.8499390 + 6 106 0.8266740 + 7 106 0.8027690 + 8 106 0.7784015 + 9 106 0.7537439 + 10 106 0.7289592 + 11 106 0.7041955 + 12 106 0.6795827 + 13 106 0.6552306 + 14 106 0.6312288 + 15 106 0.6367576 + 16 106 0.6175874 + 17 106 0.5993317 + 18 106 0.5820453 + 19 106 0.5657743 + 20 106 0.5151513 + 21 106 0.4977189 + 22 106 0.4811809 + 23 106 0.4621519 + 24 106 0.4478748 + 25 106 0.4345179 + 26 106 0.4221059 + 27 106 0.4106684 + 28 106 0.4002385 + 29 106 0.3744354 + 30 106 0.3637154 + 31 106 0.3486557 + 32 106 0.3403001 + 33 106 0.3326178 + 34 106 0.3256162 + 35 106 0.2940598 + 36 106 0.2889381 + 37 106 0.2889381 + 38 106 0.3383249 + 39 106 0.3532483 + 40 106 0.3537781 + 41 106 0.3606822 + 42 106 0.3690195 + 43 106 0.3787755 + 44 106 0.3899175 + 45 106 0.4023940 + 46 106 0.4021741 + 47 106 0.4148574 + 48 106 0.4283207 + 49 106 0.4424213 + 50 106 0.4570083 + 51 106 0.4719262 + 52 106 0.4870197 + 53 106 0.5021396 + 54 106 0.5171500 + 55 106 0.5319317 + 56 106 0.5197921 + 57 106 0.5305305 + 58 106 0.5405724 + 59 106 0.5498989 + 60 106 0.5752507 + 61 106 0.5858184 + 62 106 0.5960793 + 63 106 0.6225466 + 64 106 0.6352145 + 65 106 0.6482500 + 66 106 0.6618052 + 67 106 0.6760324 + 68 106 0.6910836 + 69 106 0.6542907 + 70 106 0.6686643 + 71 106 0.6793720 + 72 106 0.6947080 + 73 106 0.7100731 + 74 106 0.7328175 + 75 106 0.7459751 + 76 106 0.7592155 + 77 106 0.7724451 + 78 106 0.7855436 + 79 106 0.7983674 + 80 106 0.8195046 + 81 106 0.8298218 + 82 106 0.8395332 + 83 106 0.8483989 + 84 106 0.8790600 + 85 106 0.8987322 + 86 106 0.9021505 + 87 106 0.9393551 + 88 106 0.9398050 + 89 106 0.9388437 + 90 106 0.9363293 + 91 106 0.9321538 + 92 106 0.9262468 + 93 106 0.9185774 + 94 106 0.9091542 + 95 106 0.8863035 + 96 106 0.8346295 + 97 106 0.8265519 + 98 106 0.8165111 + 99 106 0.8047465 + 100 106 0.7915246 + 101 106 0.7771295 + 102 106 0.7618616 + 103 106 0.7460302 + 104 106 0.7275876 + 105 106 0.7114180 + 106 106 0.6956297 + 107 106 0.6805304 + 108 106 0.6664188 + 109 106 0.6535813 + 110 106 0.6422918 + 111 106 0.6414096 + 112 106 0.6327111 + 113 106 0.6264606 + 114 106 0.6228378 + 115 106 0.6220037 + 116 106 0.6241015 + 117 106 0.6322300 + 118 106 0.6496739 + 119 106 0.6555991 + 120 106 0.6852236 + 121 106 0.6994861 + 122 106 0.7170824 + 123 106 0.7379035 + 124 106 0.7618042 + 125 106 0.6283298 + 126 106 0.6544521 + 127 106 0.6679921 + 128 106 1.000000 + 129 106 1.000000 + 130 106 1.000000 + 131 106 1.000000 + 132 106 1.000000 + 133 106 1.000000 + 134 106 1.000000 + 135 106 1.000000 + 136 106 1.000000 + 137 106 1.000000 + 138 106 1.000000 + 139 106 1.000000 + 140 106 1.000000 + 141 106 1.000000 + 142 106 1.000000 + 143 106 1.000000 + 144 106 1.000000 + 145 106 1.000000 + 146 106 1.000000 + 147 106 1.000000 + 148 106 1.000000 + 149 106 1.000000 + 150 106 1.000000 + 151 106 1.000000 + 152 106 1.000000 + 153 106 1.000000 + 154 106 1.000000 + 155 106 1.000000 + 156 106 1.000000 + 157 106 1.000000 + 158 106 1.000000 + 159 106 1.000000 + 160 106 0.5252980 + 1 107 0.5692623 + 2 107 0.5501364 + 3 107 0.8641537 + 4 107 0.8388520 + 5 107 0.8122326 + 6 107 0.8270022 + 7 107 0.8028240 + 8 107 0.7780939 + 9 107 0.7529870 + 10 107 0.7276695 + 11 107 0.7022954 + 12 107 0.6770021 + 13 107 0.6519076 + 14 107 0.6539939 + 15 107 0.6333647 + 16 107 0.6135758 + 17 107 0.5947034 + 18 107 0.5768110 + 19 107 0.5599528 + 20 107 0.5441772 + 21 107 0.4952153 + 22 107 0.4785733 + 23 107 0.4629180 + 24 107 0.4450314 + 25 107 0.4318417 + 26 107 0.4196883 + 27 107 0.4086074 + 28 107 0.3986388 + 29 107 0.3742514 + 30 107 0.3643311 + 31 107 0.3500624 + 32 107 0.3428110 + 33 107 0.3363770 + 34 107 0.3307732 + 35 107 0.3260044 + 36 107 0.3220657 + 37 107 0.2920404 + 38 107 0.2889381 + 39 107 0.3631060 + 40 107 0.3696170 + 41 107 0.3735504 + 42 107 0.3836671 + 43 107 0.3952216 + 44 107 0.4081607 + 45 107 0.4224099 + 46 107 0.4249792 + 47 107 0.4394627 + 48 107 0.4546420 + 49 107 0.4703492 + 50 107 0.4864092 + 51 107 0.5026436 + 52 107 0.5188780 + 53 107 0.5349482 + 54 107 0.5507056 + 55 107 0.5660230 + 56 107 0.5808000 + 57 107 0.5676917 + 58 107 0.5779390 + 59 107 0.5872989 + 60 107 0.6114975 + 61 107 0.6216526 + 62 107 0.6313663 + 63 107 0.6568680 + 64 107 0.6687496 + 65 107 0.6809268 + 66 107 0.6935719 + 67 107 0.7068577 + 68 107 0.6991333 + 69 107 0.6842480 + 70 107 0.6971999 + 71 107 0.7065818 + 72 107 0.7205437 + 73 107 0.7345721 + 74 107 0.7447076 + 75 107 0.7691411 + 76 107 0.7809885 + 77 107 0.7928653 + 78 107 0.8046414 + 79 107 0.8161607 + 80 107 0.8361599 + 81 107 0.8451433 + 82 107 0.8535084 + 83 107 0.8849209 + 84 107 0.8884101 + 85 107 0.9143077 + 86 107 0.9283243 + 87 107 0.9411205 + 88 107 0.9402730 + 89 107 0.9379250 + 90 107 0.9339392 + 91 107 0.9282147 + 92 107 0.9206901 + 93 107 0.9113453 + 94 107 0.9002024 + 95 107 0.8458193 + 96 107 0.8246595 + 97 107 0.8145592 + 98 107 0.8025342 + 99 107 0.7888405 + 100 107 0.7737594 + 101 107 0.7575888 + 102 107 0.7406421 + 103 107 0.7232403 + 104 107 0.7057083 + 105 107 0.6862066 + 106 107 0.6692594 + 107 107 0.6531395 + 108 107 0.6381499 + 109 107 0.6245784 + 110 107 0.6126994 + 111 107 0.6108438 + 112 107 0.6019160 + 113 107 0.5955657 + 114 107 0.5919704 + 115 107 0.5912877 + 116 107 0.5936568 + 117 107 0.6022248 + 118 107 0.6193457 + 119 107 0.6432527 + 120 107 0.6551082 + 121 107 0.6704521 + 122 107 0.6892046 + 123 107 0.5597770 + 124 107 0.5821077 + 125 107 0.6070635 + 126 107 0.6203362 + 127 107 0.6508036 + 128 107 1.000000 + 129 107 1.000000 + 130 107 1.000000 + 131 107 1.000000 + 132 107 1.000000 + 133 107 1.000000 + 134 107 1.000000 + 135 107 1.000000 + 136 107 1.000000 + 137 107 1.000000 + 138 107 1.000000 + 139 107 1.000000 + 140 107 1.000000 + 141 107 1.000000 + 142 107 1.000000 + 143 107 1.000000 + 144 107 1.000000 + 145 107 1.000000 + 146 107 1.000000 + 147 107 1.000000 + 148 107 1.000000 + 149 107 1.000000 + 150 107 1.000000 + 151 107 1.000000 + 152 107 1.000000 + 153 107 1.000000 + 154 107 1.000000 + 155 107 1.000000 + 156 107 1.000000 + 157 107 1.000000 + 158 107 1.000000 + 159 107 1.000000 + 160 107 0.5431606 + 1 108 0.5725453 + 2 108 0.5539002 + 3 108 0.8690692 + 4 108 0.8442667 + 5 108 0.8180974 + 6 108 0.7907218 + 7 108 0.8032604 + 8 108 0.7782290 + 9 108 0.7527329 + 10 108 0.7269418 + 11 108 0.7010152 + 12 108 0.6750962 + 13 108 0.6493106 + 14 108 0.6520026 + 15 108 0.6308138 + 16 108 0.6104562 + 17 108 0.5910149 + 18 108 0.5725628 + 19 108 0.5551635 + 20 108 0.5388730 + 21 108 0.5237426 + 22 108 0.4766413 + 23 108 0.4609630 + 24 108 0.4463781 + 25 108 0.4298540 + 26 108 0.4179651 + 27 108 0.4072451 + 28 108 0.3977412 + 29 108 0.3860036 + 30 108 0.3655891 + 31 108 0.3521135 + 32 108 0.3459531 + 33 108 0.3407508 + 34 108 0.3365246 + 35 108 0.3332837 + 36 108 0.3310263 + 37 108 0.3297379 + 38 108 0.3034090 + 39 108 0.3151509 + 40 108 0.3818833 + 41 108 0.3916209 + 42 108 0.3990951 + 43 108 0.4124482 + 44 108 0.4271823 + 45 108 0.4432007 + 46 108 0.4603826 + 47 108 0.4647842 + 48 108 0.4816698 + 49 108 0.4989738 + 50 108 0.5164967 + 51 108 0.5340384 + 52 108 0.5514048 + 53 108 0.5684152 + 54 108 0.5849097 + 55 108 0.6007535 + 56 108 0.6158428 + 57 108 0.6301084 + 58 108 0.6157599 + 59 108 0.6251209 + 60 108 0.6481262 + 61 108 0.6578240 + 62 108 0.6669404 + 63 108 0.6913569 + 64 108 0.7023777 + 65 108 0.7136134 + 66 108 0.7252573 + 67 108 0.7151406 + 68 108 0.7309464 + 69 108 0.7137476 + 70 108 0.7251927 + 71 108 0.7331713 + 72 108 0.7456588 + 73 108 0.7582481 + 74 108 0.7709525 + 75 108 0.7913984 + 76 108 0.8017401 + 77 108 0.8121572 + 78 108 0.8225078 + 79 108 0.8326264 + 80 108 0.8513710 + 81 108 0.8589444 + 82 108 0.8907315 + 83 108 0.8938844 + 84 108 0.9195588 + 85 108 0.9184659 + 86 108 0.9160797 + 87 108 0.9270730 + 88 108 0.9392835 + 89 108 0.9355235 + 90 108 0.9300496 + 91 108 0.9227673 + 92 108 0.9136235 + 93 108 0.9026085 + 94 108 0.8473732 + 95 108 0.8373128 + 96 108 0.8128775 + 97 108 0.8008224 + 98 108 0.7868820 + 99 108 0.7713277 + 100 108 0.7544540 + 101 108 0.7365744 + 102 108 0.7180136 + 103 108 0.6991041 + 104 108 0.6801808 + 105 108 0.6615762 + 106 108 0.6416814 + 107 108 0.6245924 + 108 108 0.6087725 + 109 108 0.5945123 + 110 108 0.5909493 + 111 108 0.5793136 + 112 108 0.5701893 + 113 108 0.5637693 + 114 108 0.5602273 + 115 108 0.5597190 + 116 108 0.5623776 + 117 108 0.5803512 + 118 108 0.6053784 + 119 108 0.6115142 + 120 108 0.6243567 + 121 108 0.6407635 + 122 108 0.6606510 + 123 108 0.5355379 + 124 108 0.5446880 + 125 108 0.5716478 + 126 108 0.6010819 + 127 108 0.6327477 + 128 108 1.000000 + 129 108 1.000000 + 130 108 1.000000 + 131 108 1.000000 + 132 108 1.000000 + 133 108 1.000000 + 134 108 1.000000 + 135 108 1.000000 + 136 108 1.000000 + 137 108 1.000000 + 138 108 1.000000 + 139 108 1.000000 + 140 108 1.000000 + 141 108 1.000000 + 142 108 1.000000 + 143 108 1.000000 + 144 108 1.000000 + 145 108 1.000000 + 146 108 1.000000 + 147 108 1.000000 + 148 108 1.000000 + 149 108 1.000000 + 150 108 1.000000 + 151 108 1.000000 + 152 108 1.000000 + 153 108 1.000000 + 154 108 1.000000 + 155 108 1.000000 + 156 108 1.000000 + 157 108 1.000000 + 158 108 1.000000 + 159 108 1.000000 + 160 108 0.5684000 + 1 109 0.5754800 + 2 109 0.5573002 + 3 109 0.8735468 + 4 109 0.8492318 + 5 109 0.8235036 + 6 109 0.7965127 + 7 109 0.7684297 + 8 109 0.7786997 + 9 109 0.7528687 + 10 109 0.7266579 + 11 109 0.7002299 + 12 109 0.6737344 + 13 109 0.6473044 + 14 109 0.6506577 + 15 109 0.6289563 + 16 109 0.6080737 + 17 109 0.5881063 + 18 109 0.5691367 + 19 109 0.5512378 + 20 109 0.5344734 + 21 109 0.5189034 + 22 109 0.5045829 + 23 109 0.4595537 + 24 109 0.4450299 + 25 109 0.4284143 + 26 109 0.4167947 + 27 109 0.4064402 + 28 109 0.3974038 + 29 109 0.3861244 + 30 109 0.3673501 + 31 109 0.3546694 + 32 109 0.3495867 + 33 109 0.3455990 + 34 109 0.3427296 + 35 109 0.3409914 + 36 109 0.3403850 + 37 109 0.3408972 + 38 109 0.3424987 + 39 109 0.3582984 + 40 109 0.3372184 + 41 109 0.4061813 + 42 109 0.4151250 + 43 109 0.4302685 + 44 109 0.4467877 + 45 109 0.4645622 + 46 109 0.4834483 + 47 109 0.5032787 + 48 109 0.5091676 + 49 109 0.5280479 + 50 109 0.5470140 + 51 109 0.5658439 + 52 109 0.5843246 + 53 109 0.6022595 + 54 109 0.6194765 + 55 109 0.6358337 + 56 109 0.6512234 + 57 109 0.6655774 + 58 109 0.6788658 + 59 109 0.6630738 + 60 109 0.6712133 + 61 109 0.6940694 + 62 109 0.7025474 + 63 109 0.7257781 + 64 109 0.7358763 + 65 109 0.7461014 + 66 109 0.7339707 + 67 109 0.7478034 + 68 109 0.7621390 + 69 109 0.7426493 + 70 109 0.7525158 + 71 109 0.7590262 + 72 109 0.7699535 + 73 109 0.7810146 + 74 109 0.7922232 + 75 109 0.7990901 + 76 109 0.8214222 + 77 109 0.8302813 + 78 109 0.8391143 + 79 109 0.8477464 + 80 109 0.8651270 + 81 109 0.8968460 + 82 109 0.9247641 + 83 109 0.9244691 + 84 109 0.9233685 + 85 109 0.9211770 + 86 109 0.9176173 + 87 109 0.9275619 + 88 109 0.9232130 + 89 109 0.9172073 + 90 109 0.9246957 + 91 109 0.9158511 + 92 109 0.9050905 + 93 109 0.8493728 + 94 109 0.8392978 + 95 109 0.8271011 + 96 109 0.8129258 + 97 109 0.7854053 + 98 109 0.7696186 + 99 109 0.7522713 + 100 109 0.7336730 + 101 109 0.7141492 + 102 109 0.6940392 + 103 109 0.6736844 + 104 109 0.6534307 + 105 109 0.6336177 + 106 109 0.6145790 + 107 109 0.5949489 + 108 109 0.5783461 + 109 109 0.5634408 + 110 109 0.5588011 + 111 109 0.5468758 + 112 109 0.5375874 + 113 109 0.5311254 + 114 109 0.5276623 + 115 109 0.5273488 + 116 109 0.5394378 + 117 109 0.5650185 + 118 109 0.5719172 + 119 109 0.5791904 + 120 109 0.5930046 + 121 109 0.6104558 + 122 109 0.6152914 + 123 109 0.4971229 + 124 109 0.5224257 + 125 109 0.5504628 + 126 109 0.5810257 + 127 109 0.6138698 + 128 109 1.000000 + 129 109 1.000000 + 130 109 1.000000 + 131 109 1.000000 + 132 109 1.000000 + 133 109 1.000000 + 134 109 1.000000 + 135 109 1.000000 + 136 109 1.000000 + 137 109 1.000000 + 138 109 1.000000 + 139 109 1.000000 + 140 109 1.000000 + 141 109 1.000000 + 142 109 1.000000 + 143 109 1.000000 + 144 109 1.000000 + 145 109 1.000000 + 146 109 1.000000 + 147 109 1.000000 + 148 109 1.000000 + 149 109 1.000000 + 150 109 1.000000 + 151 109 1.000000 + 152 109 1.000000 + 153 109 1.000000 + 154 109 1.000000 + 155 109 1.000000 + 156 109 1.000000 + 157 109 1.000000 + 158 109 1.000000 + 159 109 1.000000 + 160 109 0.5864953 + 1 110 0.5780718 + 2 110 0.5603409 + 3 110 0.8775900 + 4 110 0.8537490 + 5 110 0.8284518 + 6 110 0.8018372 + 7 110 0.7740667 + 8 110 0.7453189 + 9 110 0.7532935 + 10 110 0.7267098 + 11 110 0.6998266 + 12 110 0.6727989 + 13 110 0.6726862 + 14 110 0.6498286 + 15 110 0.6276553 + 16 110 0.6062875 + 17 110 0.5858319 + 18 110 0.5663819 + 19 110 0.5480192 + 20 110 0.5308175 + 21 110 0.5148442 + 22 110 0.5001624 + 23 110 0.4868333 + 24 110 0.4441017 + 25 110 0.4309424 + 26 110 0.4160429 + 27 110 0.4060567 + 28 110 0.3942468 + 29 110 0.3866689 + 30 110 0.3805575 + 31 110 0.3575951 + 32 110 0.3535760 + 33 110 0.3507861 + 34 110 0.3492522 + 35 110 0.3489904 + 36 110 0.3500037 + 37 110 0.3522787 + 38 110 0.3557849 + 39 110 0.3731952 + 40 110 0.3814208 + 41 110 0.3650092 + 42 110 0.3737077 + 43 110 0.4484969 + 44 110 0.4667826 + 45 110 0.4862929 + 46 110 0.5068597 + 47 110 0.5282918 + 48 110 0.5503783 + 49 110 0.5573302 + 50 110 0.5777104 + 51 110 0.5978012 + 52 110 0.6173716 + 53 110 0.6362094 + 54 110 0.6541307 + 55 110 0.6709853 + 56 110 0.6866629 + 57 110 0.7010951 + 58 110 0.7142580 + 59 110 0.7261681 + 60 110 0.7088047 + 61 110 0.7301389 + 62 110 0.7379490 + 63 110 0.7599137 + 64 110 0.7690420 + 65 110 0.7553898 + 66 110 0.7674388 + 67 110 0.7797533 + 68 110 0.7925679 + 69 110 0.7708302 + 70 110 0.7790631 + 71 110 0.7840536 + 72 110 0.7933499 + 73 110 0.8028086 + 74 110 0.8124433 + 75 110 0.8222311 + 76 110 0.8400059 + 77 110 0.8472207 + 78 110 0.8544540 + 79 110 0.8615220 + 80 110 0.9036954 + 81 110 0.9301673 + 82 110 0.9293779 + 83 110 0.9280315 + 84 110 0.9258295 + 85 110 0.9224780 + 86 110 0.9176941 + 87 110 0.9265338 + 88 110 0.9208722 + 89 110 0.9134911 + 90 110 0.9042675 + 91 110 0.8446522 + 92 110 0.8362368 + 93 110 0.8417191 + 94 110 0.8295399 + 95 110 0.8152616 + 96 110 0.7990384 + 97 110 0.7683766 + 98 110 0.7508139 + 99 110 0.7317417 + 100 110 0.7114846 + 101 110 0.6903824 + 102 110 0.6687852 + 103 110 0.6470475 + 104 110 0.6255221 + 105 110 0.6045579 + 106 110 0.5844939 + 107 110 0.5656574 + 108 110 0.5483605 + 109 110 0.5405016 + 110 110 0.5257702 + 111 110 0.5135893 + 112 110 0.5041666 + 113 110 0.4976904 + 114 110 0.4943295 + 115 110 0.5035602 + 116 110 0.5226989 + 117 110 1.000000 + 118 110 1.000000 + 119 110 1.000000 + 120 110 1.000000 + 121 110 1.000000 + 122 110 1.000000 + 123 110 1.000000 + 124 110 1.000000 + 125 110 1.000000 + 126 110 1.000000 + 127 110 1.000000 + 128 110 1.000000 + 129 110 1.000000 + 130 110 1.000000 + 131 110 1.000000 + 132 110 1.000000 + 133 110 1.000000 + 134 110 1.000000 + 135 110 1.000000 + 136 110 1.000000 + 137 110 1.000000 + 138 110 1.000000 + 139 110 1.000000 + 140 110 1.000000 + 141 110 1.000000 + 142 110 1.000000 + 143 110 1.000000 + 144 110 1.000000 + 145 110 1.000000 + 146 110 1.000000 + 147 110 1.000000 + 148 110 1.000000 + 149 110 1.000000 + 150 110 1.000000 + 151 110 1.000000 + 152 110 1.000000 + 153 110 1.000000 + 154 110 1.000000 + 155 110 1.000000 + 156 110 1.000000 + 157 110 1.000000 + 158 110 1.000000 + 159 110 1.000000 + 160 110 1.000000 + 1 111 0.5803278 + 2 111 0.5630285 + 3 111 0.8812046 + 4 111 0.8578223 + 5 111 0.8329433 + 6 111 0.8066953 + 7 111 0.7792295 + 8 111 0.7507173 + 9 111 0.7213403 + 10 111 0.7270022 + 11 111 0.6997045 + 12 111 0.6721833 + 13 111 0.6726631 + 14 111 0.6493960 + 15 111 0.6267869 + 16 111 0.6049682 + 17 111 0.5840576 + 18 111 0.5641590 + 19 111 0.5453640 + 20 111 0.5277563 + 21 111 0.5114116 + 22 111 0.4964010 + 23 111 0.4827933 + 24 111 0.4706558 + 25 111 0.4304616 + 26 111 0.4155824 + 27 111 0.4059663 + 28 111 0.3945290 + 29 111 0.3875077 + 30 111 0.3820598 + 31 111 0.3664980 + 32 111 0.3577915 + 33 111 0.3561810 + 34 111 0.3559606 + 35 111 0.3571487 + 36 111 0.3597486 + 37 111 0.3637474 + 38 111 0.3691121 + 39 111 0.3757879 + 40 111 0.3982957 + 41 111 0.4100353 + 42 111 0.4231973 + 43 111 0.4107492 + 44 111 0.4869788 + 45 111 0.5081953 + 46 111 0.5304124 + 47 111 0.5534137 + 48 111 0.5769652 + 49 111 0.5865895 + 50 111 0.6083475 + 51 111 0.6296657 + 52 111 0.6502949 + 53 111 0.6700091 + 54 111 0.6886126 + 55 111 0.7059480 + 56 111 0.7219008 + 57 111 0.7364036 + 58 111 0.7494351 + 59 111 0.7610216 + 60 111 0.7712304 + 61 111 0.7658046 + 62 111 0.7729280 + 63 111 0.7792087 + 64 111 0.7789878 + 65 111 0.7895470 + 66 111 0.8000841 + 67 111 0.8108559 + 68 111 0.8221148 + 69 111 0.7981915 + 70 111 0.8047506 + 71 111 0.8081820 + 72 111 0.8157907 + 73 111 0.8235856 + 74 111 0.8315825 + 75 111 0.8397588 + 76 111 0.8432024 + 77 111 0.8629772 + 78 111 0.8685380 + 79 111 0.9263583 + 80 111 0.9363068 + 81 111 0.9347076 + 82 111 0.9328260 + 83 111 0.9303545 + 84 111 0.9269863 + 85 111 0.9224204 + 86 111 0.9163677 + 87 111 0.9240496 + 88 111 0.9170469 + 89 111 0.9082707 + 90 111 0.8492277 + 91 111 0.8410737 + 92 111 0.8306509 + 93 111 0.8179788 + 94 111 0.8031292 + 95 111 0.7862254 + 96 111 0.7836618 + 97 111 0.7498115 + 98 111 0.7305412 + 99 111 0.7098120 + 100 111 0.6879621 + 101 111 0.6653453 + 102 111 0.6423237 + 103 111 0.6192624 + 104 111 0.5965237 + 105 111 0.5744636 + 106 111 0.5534275 + 107 111 0.5337464 + 108 111 0.5157353 + 109 111 0.5082068 + 110 111 0.4919187 + 111 111 0.4795138 + 112 111 0.4699854 + 113 111 0.4635201 + 114 111 0.4602829 + 115 111 0.4856429 + 116 111 0.4700416 + 117 111 1.000000 + 118 111 1.000000 + 119 111 1.000000 + 120 111 1.000000 + 121 111 1.000000 + 122 111 1.000000 + 123 111 1.000000 + 124 111 1.000000 + 125 111 1.000000 + 126 111 1.000000 + 127 111 1.000000 + 128 111 1.000000 + 129 111 1.000000 + 130 111 1.000000 + 131 111 1.000000 + 132 111 1.000000 + 133 111 1.000000 + 134 111 1.000000 + 135 111 1.000000 + 136 111 1.000000 + 137 111 1.000000 + 138 111 1.000000 + 139 111 1.000000 + 140 111 1.000000 + 141 111 1.000000 + 142 111 1.000000 + 143 111 1.000000 + 144 111 1.000000 + 145 111 1.000000 + 146 111 1.000000 + 147 111 1.000000 + 148 111 1.000000 + 149 111 1.000000 + 150 111 1.000000 + 151 111 1.000000 + 152 111 1.000000 + 153 111 1.000000 + 154 111 1.000000 + 155 111 1.000000 + 156 111 1.000000 + 157 111 1.000000 + 158 111 1.000000 + 159 111 1.000000 + 160 111 1.000000 + 1 112 0.5822565 + 2 112 0.5653706 + 3 112 0.8843977 + 4 112 0.8614576 + 5 112 0.8369830 + 6 112 0.8110898 + 7 112 0.7839195 + 8 112 0.7556345 + 9 112 0.7264115 + 10 112 0.6964326 + 11 112 0.6658810 + 12 112 0.6970119 + 13 112 0.6728965 + 14 112 0.6492522 + 15 112 0.6262383 + 16 112 0.6039985 + 17 112 0.5826613 + 18 112 0.5623413 + 19 112 0.5431412 + 20 112 0.5251538 + 21 112 0.5084643 + 22 112 0.4931525 + 23 112 0.4792944 + 24 112 0.4669650 + 25 112 0.4562383 + 26 112 0.4471897 + 27 112 0.4060487 + 28 112 0.3949852 + 29 112 0.3885191 + 30 112 0.3837315 + 31 112 0.3806829 + 32 112 0.3621090 + 33 112 0.3616592 + 34 112 0.3627291 + 35 112 0.3653386 + 36 112 0.3694912 + 37 112 0.3751732 + 38 112 0.3823483 + 39 112 0.3909577 + 40 112 0.4149469 + 41 112 0.4287112 + 42 112 0.4439663 + 43 112 0.4605842 + 44 112 0.4747052 + 45 112 0.4665431 + 46 112 0.5539108 + 47 112 0.5784423 + 48 112 0.6034199 + 49 112 0.6285720 + 50 112 0.6387020 + 51 112 0.6612079 + 52 112 0.6828606 + 53 112 0.7034214 + 54 112 0.7226838 + 55 112 0.7404820 + 56 112 0.7566984 + 57 112 0.7712658 + 58 112 0.7841662 + 59 112 0.7954319 + 60 112 0.8051406 + 61 112 0.8134103 + 62 112 0.8072902 + 63 112 0.7901035 + 64 112 0.8136511 + 65 112 0.8227578 + 66 112 0.8317835 + 67 112 0.8410021 + 68 112 0.8506831 + 69 112 0.8246543 + 70 112 0.8295141 + 71 112 0.8313605 + 72 112 0.8372393 + 73 112 0.8433236 + 74 112 0.8496314 + 75 112 0.8561417 + 76 112 0.8627971 + 77 112 0.9039202 + 78 112 0.9329912 + 79 112 0.9437175 + 80 112 0.9409575 + 81 112 0.9382062 + 82 112 0.9351558 + 83 112 0.9314912 + 84 112 0.9268984 + 85 112 0.9210684 + 86 112 0.9137060 + 87 112 0.9201815 + 88 112 0.8593770 + 89 112 0.8536651 + 90 112 0.8457934 + 91 112 0.8356783 + 92 112 0.8232921 + 93 112 0.8086597 + 94 112 0.7918615 + 95 112 0.7730311 + 96 112 0.7523507 + 97 112 0.7300472 + 98 112 0.6932366 + 99 112 0.6705154 + 100 112 0.6467767 + 101 112 0.6391132 + 102 112 0.6147274 + 103 112 0.5904005 + 104 112 0.5665047 + 105 112 0.5434026 + 106 112 0.5214448 + 107 112 0.5009680 + 108 112 0.4915718 + 109 112 0.4736277 + 110 112 0.4582476 + 111 112 0.4278102 + 112 112 0.4184892 + 113 112 0.4123918 + 114 112 1.000000 + 115 112 1.000000 + 116 112 1.000000 + 117 112 1.000000 + 118 112 1.000000 + 119 112 1.000000 + 120 112 1.000000 + 121 112 1.000000 + 122 112 1.000000 + 123 112 1.000000 + 124 112 1.000000 + 125 112 1.000000 + 126 112 1.000000 + 127 112 1.000000 + 128 112 1.000000 + 129 112 1.000000 + 130 112 1.000000 + 131 112 1.000000 + 132 112 1.000000 + 133 112 1.000000 + 134 112 1.000000 + 135 112 1.000000 + 136 112 1.000000 + 137 112 1.000000 + 138 112 1.000000 + 139 112 1.000000 + 140 112 1.000000 + 141 112 1.000000 + 142 112 1.000000 + 143 112 1.000000 + 144 112 1.000000 + 145 112 1.000000 + 146 112 1.000000 + 147 112 1.000000 + 148 112 1.000000 + 149 112 1.000000 + 150 112 1.000000 + 151 112 1.000000 + 152 112 1.000000 + 153 112 1.000000 + 154 112 1.000000 + 155 112 1.000000 + 156 112 1.000000 + 157 112 1.000000 + 158 112 1.000000 + 159 112 1.000000 + 160 112 1.000000 + 1 113 0.5838673 + 2 113 0.5673757 + 3 113 0.8871784 + 4 113 0.8646623 + 5 113 0.8405769 + 6 113 0.8150254 + 7 113 0.7881395 + 8 113 0.7600728 + 9 113 0.7309951 + 10 113 0.7010857 + 11 113 0.6705253 + 12 113 0.6662439 + 13 113 0.6732940 + 14 113 0.3450269 + 15 113 0.3249259 + 16 113 0.3054746 + 17 113 0.2867929 + 18 113 0.2689891 + 19 113 0.2521607 + 20 113 0.5228863 + 21 113 0.5058740 + 22 113 0.4902834 + 23 113 0.4761988 + 24 113 0.4637021 + 25 113 0.4528743 + 26 113 0.4437971 + 27 113 0.4334497 + 28 113 0.3955028 + 29 113 0.3895882 + 30 113 0.3854566 + 31 113 0.3831707 + 32 113 0.3664118 + 33 113 0.3671024 + 34 113 0.3694380 + 35 113 0.3734394 + 36 113 0.3791098 + 37 113 0.3864329 + 38 113 0.3953692 + 39 113 0.4058538 + 40 113 0.4312507 + 41 113 0.4469641 + 42 113 0.4642278 + 43 113 0.4828963 + 44 113 0.5027934 + 45 113 0.5205247 + 46 113 0.5427826 + 47 113 0.6311254 + 48 113 0.6295475 + 49 113 0.6559570 + 50 113 0.6821203 + 51 113 0.6922176 + 52 113 0.7148565 + 53 113 0.7362320 + 54 113 0.7561281 + 55 113 0.7743722 + 56 113 0.7908427 + 57 113 0.8054716 + 58 113 0.8182438 + 59 113 0.8291975 + 60 113 0.8384197 + 61 113 0.8214121 + 62 113 0.8433687 + 63 113 0.8525398 + 64 113 0.8472349 + 65 113 0.8549123 + 66 113 0.8624393 + 67 113 0.8701071 + 68 113 0.8782018 + 69 113 0.8501637 + 70 113 0.8533119 + 71 113 0.8535587 + 72 113 0.8576795 + 73 113 0.8620190 + 74 113 0.8946288 + 75 113 0.8978548 + 76 113 0.9311033 + 77 113 0.9262358 + 78 113 0.9392748 + 79 113 0.9486846 + 80 113 0.9446967 + 81 113 0.9407159 + 82 113 0.9364273 + 83 113 0.9315079 + 84 113 0.9256365 + 85 113 0.9184980 + 86 113 0.9097897 + 87 113 0.8636129 + 88 113 0.8580287 + 89 113 0.8504087 + 90 113 0.8406208 + 91 113 0.8285851 + 92 113 0.8142771 + 93 113 0.7977290 + 94 113 0.7790284 + 95 113 0.7583180 + 96 113 0.7357916 + 97 113 0.7116862 + 98 113 0.6718743 + 99 113 0.6476607 + 100 113 0.6224872 + 101 113 0.5967366 + 102 113 0.5707991 + 103 113 0.5450633 + 104 113 0.5199129 + 105 113 0.4957196 + 106 113 0.4728416 + 107 113 0.4516179 + 108 113 0.4409629 + 109 113 0.4227210 + 110 113 0.4072063 + 111 113 0.3946461 + 112 113 0.4032117 + 113 113 0.4037315 + 114 113 1.000000 + 115 113 1.000000 + 116 113 1.000000 + 117 113 1.000000 + 118 113 1.000000 + 119 113 1.000000 + 120 113 1.000000 + 121 113 1.000000 + 122 113 1.000000 + 123 113 1.000000 + 124 113 1.000000 + 125 113 1.000000 + 126 113 1.000000 + 127 113 1.000000 + 128 113 1.000000 + 129 113 1.000000 + 130 113 1.000000 + 131 113 1.000000 + 132 113 1.000000 + 133 113 1.000000 + 134 113 1.000000 + 135 113 1.000000 + 136 113 1.000000 + 137 113 1.000000 + 138 113 1.000000 + 139 113 1.000000 + 140 113 1.000000 + 141 113 1.000000 + 142 113 1.000000 + 143 113 1.000000 + 144 113 1.000000 + 145 113 1.000000 + 146 113 1.000000 + 147 113 1.000000 + 148 113 1.000000 + 149 113 1.000000 + 150 113 1.000000 + 151 113 1.000000 + 152 113 1.000000 + 153 113 1.000000 + 154 113 1.000000 + 155 113 1.000000 + 156 113 1.000000 + 157 113 1.000000 + 158 113 1.000000 + 159 113 1.000000 + 160 113 1.000000 + 1 114 0.5851708 + 2 114 0.5690534 + 3 114 0.8895573 + 4 114 0.8674469 + 5 114 0.8437333 + 6 114 0.8185093 + 7 114 0.7918953 + 8 114 0.7640359 + 9 114 0.7350943 + 10 114 0.3931000 + 11 114 0.3668237 + 12 114 0.3638229 + 13 114 0.3406498 + 14 114 0.3451617 + 15 114 0.3247549 + 16 114 0.3049811 + 17 114 0.2859699 + 18 114 0.2678393 + 19 114 0.2506967 + 20 114 0.2346397 + 21 114 0.2197586 + 22 114 0.4876728 + 23 114 0.4733804 + 24 114 0.4607366 + 25 114 0.4498293 + 26 114 0.4407459 + 27 114 0.4335747 + 28 114 0.4217041 + 29 114 0.3906097 + 30 114 0.3871276 + 31 114 0.3855964 + 32 114 0.3811083 + 33 114 0.3724002 + 34 114 0.3759758 + 35 114 0.3813381 + 36 114 0.3884893 + 37 114 0.3974101 + 38 114 0.4080565 + 39 114 0.4203578 + 40 114 0.4470913 + 41 114 0.4646783 + 42 114 0.4838662 + 43 114 0.5044921 + 44 114 0.5263613 + 45 114 0.5492481 + 46 114 0.5702210 + 47 114 0.5948516 + 48 114 0.6196019 + 49 114 0.7102875 + 50 114 0.7391088 + 51 114 0.7365687 + 52 114 0.7460922 + 53 114 0.7682500 + 54 114 0.7887551 + 55 114 0.8074293 + 56 114 0.8241463 + 57 114 0.8388375 + 58 114 0.8514900 + 59 114 0.8621463 + 60 114 0.8472918 + 61 114 0.8564173 + 62 114 0.8638310 + 63 114 0.8839308 + 64 114 0.9057354 + 65 114 0.8859250 + 66 114 0.8919773 + 67 114 0.8981100 + 68 114 0.9046229 + 69 114 0.8746833 + 70 114 0.8761213 + 71 114 0.9035926 + 72 114 0.9045948 + 73 114 0.9058027 + 74 114 0.9072533 + 75 114 0.9383796 + 76 114 0.9375815 + 77 114 0.9370542 + 78 114 0.9449009 + 79 114 0.9528756 + 80 114 0.9475840 + 81 114 0.9423034 + 82 114 0.9367118 + 83 114 0.9304817 + 84 114 0.9232835 + 85 114 0.8604767 + 86 114 0.8543163 + 87 114 0.8624559 + 88 114 0.8550000 + 89 114 0.8455034 + 90 114 0.8338351 + 91 114 0.8199169 + 92 114 0.8037280 + 93 114 0.7853060 + 94 114 0.7647467 + 95 114 0.7422014 + 96 114 0.7178739 + 97 114 0.6920128 + 98 114 0.6491349 + 99 114 0.6234903 + 100 114 0.5969403 + 101 114 0.5698813 + 102 114 0.5427154 + 103 114 0.5158417 + 104 114 0.4896516 + 105 114 0.4645256 + 106 114 0.4408262 + 107 114 0.4282448 + 108 114 1.000000 + 109 114 1.000000 + 110 114 1.000000 + 111 114 1.000000 + 112 114 1.000000 + 113 114 1.000000 + 114 114 1.000000 + 115 114 1.000000 + 116 114 1.000000 + 117 114 1.000000 + 118 114 1.000000 + 119 114 1.000000 + 120 114 1.000000 + 121 114 1.000000 + 122 114 1.000000 + 123 114 1.000000 + 124 114 1.000000 + 125 114 1.000000 + 126 114 1.000000 + 127 114 1.000000 + 128 114 1.000000 + 129 114 1.000000 + 130 114 1.000000 + 131 114 1.000000 + 132 114 1.000000 + 133 114 1.000000 + 134 114 1.000000 + 135 114 1.000000 + 136 114 1.000000 + 137 114 1.000000 + 138 114 1.000000 + 139 114 1.000000 + 140 114 1.000000 + 141 114 1.000000 + 142 114 1.000000 + 143 114 1.000000 + 144 114 1.000000 + 145 114 1.000000 + 146 114 1.000000 + 147 114 1.000000 + 148 114 1.000000 + 149 114 1.000000 + 150 114 1.000000 + 151 114 1.000000 + 152 114 1.000000 + 153 114 1.000000 + 154 114 1.000000 + 155 114 1.000000 + 156 114 1.000000 + 157 114 1.000000 + 158 114 1.000000 + 159 114 1.000000 + 160 114 1.000000 + 1 115 0.5861785 + 2 115 0.5704157 + 3 115 0.8915471 + 4 115 0.8698220 + 5 115 0.8464628 + 6 115 0.4930433 + 7 115 0.4703955 + 8 115 0.4466237 + 9 115 0.4218613 + 10 115 0.3962539 + 11 115 0.3699535 + 12 115 0.3676134 + 13 115 0.3444442 + 14 115 0.3215438 + 15 115 0.2990848 + 16 115 0.3045463 + 17 115 0.2852184 + 18 115 0.2667732 + 19 115 0.2493276 + 20 115 0.2329892 + 21 115 0.2178567 + 22 115 0.2040228 + 23 115 0.1915746 + 24 115 0.4579504 + 25 115 0.4469801 + 26 115 0.4379092 + 27 115 0.4308306 + 28 115 0.4188841 + 29 115 0.4158804 + 30 115 0.4149745 + 31 115 0.3878594 + 32 115 0.3841748 + 33 115 0.3885200 + 34 115 0.3822377 + 35 115 0.3889287 + 36 115 0.3975227 + 37 115 0.4079964 + 38 115 0.4203011 + 39 115 0.4343587 + 40 115 0.4623610 + 41 115 0.4817463 + 42 115 0.5027751 + 43 115 0.5252675 + 44 115 0.5490100 + 45 115 0.5737562 + 46 115 0.5965360 + 47 115 0.6229613 + 48 115 0.6494228 + 49 115 0.6756048 + 50 115 0.7011932 + 51 115 0.7911241 + 52 115 0.8186727 + 53 115 0.8279481 + 54 115 0.8500790 + 55 115 0.8700903 + 56 115 0.8564497 + 57 115 0.8712077 + 58 115 0.8837528 + 59 115 0.8716787 + 60 115 0.8819309 + 61 115 0.8901616 + 62 115 0.8965524 + 63 115 0.9142797 + 64 115 0.9339982 + 65 115 0.9409622 + 66 115 0.9784864 + 67 115 0.9545562 + 68 115 0.9586377 + 69 115 0.9255116 + 70 115 0.9242019 + 71 115 0.9203063 + 72 115 0.9197140 + 73 115 0.9508111 + 74 115 0.9480128 + 75 115 0.9456035 + 76 115 0.9435409 + 77 115 0.9417402 + 78 115 0.9400744 + 79 115 0.9563540 + 80 115 0.9496889 + 81 115 0.9430445 + 82 115 0.9360927 + 83 115 0.8727281 + 84 115 0.8677691 + 85 115 0.8614396 + 86 115 0.8534065 + 87 115 0.8433597 + 88 115 0.8504241 + 89 115 0.8390819 + 90 115 0.8255662 + 91 115 0.8098020 + 92 115 0.7917702 + 93 115 0.7715145 + 94 115 0.7491375 + 95 115 0.7247995 + 96 115 0.6987135 + 97 115 0.6711394 + 98 115 0.6423765 + 99 115 0.5981029 + 100 115 0.5702335 + 101 115 0.5419208 + 102 115 0.5135782 + 103 115 0.4856161 + 104 115 0.4584351 + 105 115 0.4324217 + 106 115 0.4180958 + 107 115 0.3940182 + 108 115 1.000000 + 109 115 1.000000 + 110 115 1.000000 + 111 115 1.000000 + 112 115 1.000000 + 113 115 1.000000 + 114 115 1.000000 + 115 115 1.000000 + 116 115 1.000000 + 117 115 1.000000 + 118 115 1.000000 + 119 115 1.000000 + 120 115 1.000000 + 121 115 1.000000 + 122 115 1.000000 + 123 115 1.000000 + 124 115 1.000000 + 125 115 1.000000 + 126 115 1.000000 + 127 115 1.000000 + 128 115 1.000000 + 129 115 1.000000 + 130 115 1.000000 + 131 115 1.000000 + 132 115 1.000000 + 133 115 1.000000 + 134 115 1.000000 + 135 115 1.000000 + 136 115 1.000000 + 137 115 1.000000 + 138 115 1.000000 + 139 115 1.000000 + 140 115 1.000000 + 141 115 1.000000 + 142 115 1.000000 + 143 115 1.000000 + 144 115 1.000000 + 145 115 1.000000 + 146 115 1.000000 + 147 115 1.000000 + 148 115 1.000000 + 149 115 1.000000 + 150 115 1.000000 + 151 115 1.000000 + 152 115 1.000000 + 153 115 1.000000 + 154 115 1.000000 + 155 115 1.000000 + 156 115 1.000000 + 157 115 1.000000 + 158 115 1.000000 + 159 115 1.000000 + 160 115 1.000000 + 1 116 0.5869037 + 2 116 0.5714750 + 3 116 0.5545802 + 4 116 0.5362245 + 5 116 0.5164402 + 6 116 0.4952862 + 7 116 0.4728479 + 8 116 0.4492329 + 9 116 0.4245684 + 10 116 0.3989947 + 11 116 0.3941789 + 12 116 0.3709594 + 13 116 0.3477840 + 14 116 0.3248412 + 15 116 0.3023118 + 16 116 0.2803653 + 17 116 0.2591604 + 18 116 0.2657224 + 19 116 0.2479821 + 20 116 0.2313695 + 21 116 0.2159934 + 22 116 0.2019545 + 23 116 0.1893482 + 24 116 0.1782655 + 25 116 0.1687946 + 26 116 0.1610215 + 27 116 0.4281999 + 28 116 0.4161918 + 29 116 0.4134933 + 30 116 0.4129784 + 31 116 0.4147195 + 32 116 0.3869799 + 33 116 0.3922751 + 34 116 0.3881281 + 35 116 0.3961140 + 36 116 0.4061109 + 37 116 0.4180920 + 38 116 0.4320017 + 39 116 0.4477547 + 40 116 0.4769612 + 41 116 0.4980699 + 42 116 0.5208575 + 43 116 0.5451269 + 44 116 0.5706466 + 45 116 0.5971522 + 46 116 0.6243501 + 47 116 0.6497560 + 48 116 0.6778200 + 49 116 0.7055017 + 50 116 0.7324694 + 51 116 0.7584021 + 52 116 0.7829999 + 53 116 0.8059968 + 54 116 0.8766103 + 55 116 0.8969103 + 56 116 0.9148030 + 57 116 0.9072383 + 58 116 0.9219566 + 59 116 0.9341375 + 60 116 0.9438766 + 61 116 0.9513255 + 62 116 0.9566784 + 63 116 0.9601676 + 64 116 0.9890839 + 65 116 0.9940597 + 66 116 0.9985999 + 67 116 1.000000 + 68 116 0.9791742 + 69 116 0.9445903 + 70 116 0.9417582 + 71 116 0.9364207 + 72 116 0.9646978 + 73 116 0.9602360 + 74 116 0.9561390 + 75 116 0.9524145 + 76 116 0.9490249 + 77 116 0.9458876 + 78 116 0.9428777 + 79 116 0.9591903 + 80 116 0.8917868 + 81 116 0.8869236 + 82 116 0.8817641 + 83 116 0.8759517 + 84 116 0.8691285 + 85 116 0.8609427 + 86 116 0.8510571 + 87 116 0.8391559 + 88 116 0.8444398 + 89 116 0.8312798 + 90 116 0.8159486 + 91 116 0.7983710 + 92 116 0.7785322 + 93 116 0.7564803 + 94 116 0.7323241 + 95 116 0.7062321 + 96 116 0.6784269 + 97 116 0.6491787 + 98 116 0.6187991 + 99 116 0.5715987 + 100 116 0.5424635 + 101 116 0.5129486 + 102 116 0.4834793 + 103 116 0.4544764 + 104 116 0.4263490 + 105 116 0.3994910 + 106 116 0.3836811 + 107 116 0.3590801 + 108 116 1.000000 + 109 116 1.000000 + 110 116 1.000000 + 111 116 1.000000 + 112 116 1.000000 + 113 116 1.000000 + 114 116 1.000000 + 115 116 1.000000 + 116 116 1.000000 + 117 116 1.000000 + 118 116 1.000000 + 119 116 1.000000 + 120 116 1.000000 + 121 116 1.000000 + 122 116 1.000000 + 123 116 1.000000 + 124 116 1.000000 + 125 116 1.000000 + 126 116 1.000000 + 127 116 1.000000 + 128 116 1.000000 + 129 116 1.000000 + 130 116 1.000000 + 131 116 1.000000 + 132 116 1.000000 + 133 116 1.000000 + 134 116 1.000000 + 135 116 1.000000 + 136 116 1.000000 + 137 116 1.000000 + 138 116 1.000000 + 139 116 1.000000 + 140 116 1.000000 + 141 116 1.000000 + 142 116 1.000000 + 143 116 1.000000 + 144 116 1.000000 + 145 116 1.000000 + 146 116 1.000000 + 147 116 1.000000 + 148 116 1.000000 + 149 116 1.000000 + 150 116 1.000000 + 151 116 1.000000 + 152 116 1.000000 + 153 116 1.000000 + 154 116 1.000000 + 155 116 1.000000 + 156 116 1.000000 + 157 116 1.000000 + 158 116 1.000000 + 159 116 1.000000 + 160 116 1.000000 + 1 117 0.5873591 + 2 117 0.5722445 + 3 117 0.5556586 + 4 117 0.5375981 + 5 117 0.5180859 + 6 117 0.4971706 + 7 117 0.4749286 + 8 117 0.4514591 + 9 117 0.4268814 + 10 117 0.4013310 + 11 117 0.3970616 + 12 117 0.3738661 + 13 117 0.3506729 + 14 117 0.3276759 + 15 117 0.3050629 + 16 117 0.2830121 + 17 117 0.2616914 + 18 117 0.2412575 + 19 117 0.2465977 + 20 117 0.2297152 + 21 117 0.2140994 + 22 117 1.000000 + 23 117 1.000000 + 24 117 1.000000 + 25 117 1.000000 + 26 117 1.000000 + 27 117 1.000000 + 28 117 1.000000 + 29 117 1.000000 + 30 117 1.000000 + 31 117 1.000000 + 32 117 1.000000 + 33 117 1.000000 + 34 117 0.4041684 + 35 117 0.4028054 + 36 117 0.4141648 + 37 117 0.4276058 + 38 117 0.4430667 + 39 117 0.4604539 + 40 117 0.4796400 + 41 117 0.5135612 + 42 117 0.5380269 + 43 117 0.5639867 + 44 117 0.5911913 + 45 117 0.6193590 + 46 117 0.6481780 + 47 117 0.6751694 + 48 117 0.7047345 + 49 117 0.7338177 + 50 117 0.7620705 + 51 117 0.7891580 + 52 117 0.8147689 + 53 117 0.8386250 + 54 117 0.8604907 + 55 117 0.8397357 + 56 117 0.8568758 + 57 117 0.9366212 + 58 117 0.9509627 + 59 117 0.9626416 + 60 117 0.9717594 + 61 117 0.9784715 + 62 117 0.9829806 + 63 117 0.9855256 + 64 117 0.9986671 + 65 117 1.000000 + 66 117 1.000000 + 67 117 1.000000 + 68 117 1.000000 + 69 117 0.9896869 + 70 117 0.9901021 + 71 117 0.9812239 + 72 117 0.9751636 + 73 117 0.9693820 + 74 117 0.9639400 + 75 117 0.9588513 + 76 117 0.9540831 + 77 117 0.8895259 + 78 117 0.9001243 + 79 117 0.9115908 + 80 117 0.8993365 + 81 117 0.8925636 + 82 117 0.8855169 + 83 117 0.8778365 + 84 117 0.8691611 + 85 117 0.8591338 + 86 117 0.8474138 + 87 117 0.8336803 + 88 117 0.8371885 + 89 117 0.8222368 + 90 117 0.8051182 + 91 117 0.7857584 + 92 117 0.7641451 + 93 117 0.7403304 + 94 117 0.7144300 + 95 117 1.000000 + 96 117 1.000000 + 97 117 1.000000 + 98 117 0.5942842 + 99 117 0.5440764 + 100 117 0.5137267 + 101 117 1.000000 + 102 117 1.000000 + 103 117 1.000000 + 104 117 1.000000 + 105 117 1.000000 + 106 117 1.000000 + 107 117 1.000000 + 108 117 1.000000 + 109 117 1.000000 + 110 117 1.000000 + 111 117 1.000000 + 112 117 1.000000 + 113 117 1.000000 + 114 117 1.000000 + 115 117 1.000000 + 116 117 1.000000 + 117 117 1.000000 + 118 117 1.000000 + 119 117 1.000000 + 120 117 1.000000 + 121 117 1.000000 + 122 117 1.000000 + 123 117 1.000000 + 124 117 1.000000 + 125 117 1.000000 + 126 117 1.000000 + 127 117 1.000000 + 128 117 1.000000 + 129 117 1.000000 + 130 117 1.000000 + 131 117 1.000000 + 132 117 1.000000 + 133 117 1.000000 + 134 117 1.000000 + 135 117 1.000000 + 136 117 1.000000 + 137 117 1.000000 + 138 117 1.000000 + 139 117 1.000000 + 140 117 1.000000 + 141 117 1.000000 + 142 117 1.000000 + 143 117 1.000000 + 144 117 1.000000 + 145 117 1.000000 + 146 117 1.000000 + 147 117 1.000000 + 148 117 1.000000 + 149 117 1.000000 + 150 117 1.000000 + 151 117 1.000000 + 152 117 1.000000 + 153 117 1.000000 + 154 117 1.000000 + 155 117 1.000000 + 156 117 1.000000 + 157 117 1.000000 + 158 117 1.000000 + 159 117 1.000000 + 160 117 1.000000 + 1 118 0.5875599 + 2 118 0.5727388 + 3 118 0.5564429 + 4 118 0.5386592 + 5 118 0.5194018 + 6 118 0.4987102 + 7 118 0.4766504 + 8 118 0.4533138 + 9 118 0.4288123 + 10 118 0.4032753 + 11 118 0.3995243 + 12 118 0.3763416 + 13 118 0.3531185 + 14 118 0.3300543 + 15 118 0.3073437 + 16 118 0.2851738 + 17 118 0.2637215 + 18 118 0.2431535 + 19 118 0.2236244 + 20 118 0.2052785 + 21 118 0.1882501 + 22 118 1.000000 + 23 118 1.000000 + 24 118 1.000000 + 25 118 1.000000 + 26 118 1.000000 + 27 118 1.000000 + 28 118 1.000000 + 29 118 1.000000 + 30 118 1.000000 + 31 118 1.000000 + 32 118 1.000000 + 33 118 1.000000 + 34 118 0.4317108 + 35 118 0.4452811 + 36 118 0.4216035 + 37 118 0.4364562 + 38 118 0.4534135 + 39 118 0.4723735 + 40 118 0.4931986 + 41 118 0.5281419 + 42 118 0.5542073 + 43 118 0.5817733 + 44 118 0.6105745 + 45 118 0.6403121 + 46 118 0.6706579 + 47 118 0.7012584 + 48 118 0.7301212 + 49 118 0.7605143 + 50 118 0.7899667 + 51 118 0.8181316 + 52 118 0.8446862 + 53 118 0.8459600 + 54 118 0.8699775 + 55 118 0.8916401 + 56 118 0.8941488 + 57 118 0.9088985 + 58 118 0.9209688 + 59 118 0.9304186 + 60 118 0.9373674 + 61 118 0.9419869 + 62 118 1.000000 + 63 118 1.000000 + 64 118 1.000000 + 65 118 1.000000 + 66 118 1.000000 + 67 118 1.000000 + 68 118 1.000000 + 69 118 1.000000 + 70 118 1.000000 + 71 118 1.000000 + 72 118 0.9239661 + 73 118 0.9182790 + 74 118 0.9130574 + 75 118 0.9083076 + 76 118 0.9039879 + 77 118 0.9000102 + 78 118 0.9085777 + 79 118 0.9028892 + 80 118 0.9113821 + 81 118 0.8970012 + 82 118 0.8880739 + 83 118 0.8785344 + 84 118 0.8680174 + 85 118 0.8561636 + 86 118 0.8426263 + 87 118 0.8270803 + 88 118 0.8288138 + 89 118 0.8120937 + 90 118 0.7932131 + 91 118 0.7720985 + 92 118 0.7487404 + 93 118 0.7231936 + 94 118 0.6955803 + 95 118 1.000000 + 96 118 1.000000 + 97 118 1.000000 + 98 118 0.5689422 + 99 118 0.5156342 + 100 118 0.4841186 + 101 118 1.000000 + 102 118 1.000000 + 103 118 1.000000 + 104 118 1.000000 + 105 118 1.000000 + 106 118 1.000000 + 107 118 1.000000 + 108 118 1.000000 + 109 118 1.000000 + 110 118 1.000000 + 111 118 1.000000 + 112 118 1.000000 + 113 118 1.000000 + 114 118 1.000000 + 115 118 1.000000 + 116 118 1.000000 + 117 118 1.000000 + 118 118 1.000000 + 119 118 1.000000 + 120 118 1.000000 + 121 118 1.000000 + 122 118 1.000000 + 123 118 1.000000 + 124 118 1.000000 + 125 118 1.000000 + 126 118 1.000000 + 127 118 1.000000 + 128 118 1.000000 + 129 118 1.000000 + 130 118 1.000000 + 131 118 1.000000 + 132 118 1.000000 + 133 118 1.000000 + 134 118 1.000000 + 135 118 1.000000 + 136 118 1.000000 + 137 118 1.000000 + 138 118 1.000000 + 139 118 1.000000 + 140 118 1.000000 + 141 118 1.000000 + 142 118 1.000000 + 143 118 1.000000 + 144 118 1.000000 + 145 118 1.000000 + 146 118 1.000000 + 147 118 1.000000 + 148 118 1.000000 + 149 118 1.000000 + 150 118 1.000000 + 151 118 1.000000 + 152 118 1.000000 + 153 118 1.000000 + 154 118 1.000000 + 155 118 1.000000 + 156 118 1.000000 + 157 118 1.000000 + 158 118 1.000000 + 159 118 1.000000 + 160 118 1.000000 + 1 119 0.5875209 + 2 119 0.5729737 + 3 119 0.5569479 + 4 119 0.5394232 + 5 119 0.5204038 + 6 119 0.4999201 + 7 119 0.4780289 + 8 119 0.4548127 + 9 119 0.4303757 + 10 119 0.4048412 + 11 119 0.4015793 + 12 119 0.3783964 + 13 119 0.3551306 + 14 119 0.3319854 + 15 119 0.3091630 + 16 119 0.2868583 + 17 119 0.2652580 + 18 119 0.2445380 + 19 119 0.2248641 + 20 119 0.2063905 + 21 119 0.1892613 + 22 119 1.000000 + 23 119 1.000000 + 24 119 1.000000 + 25 119 1.000000 + 26 119 1.000000 + 27 119 1.000000 + 28 119 1.000000 + 29 119 1.000000 + 30 119 1.000000 + 31 119 1.000000 + 32 119 1.000000 + 33 119 1.000000 + 34 119 0.4320582 + 35 119 0.4464622 + 36 119 0.4634211 + 37 119 0.4693538 + 38 119 0.4893227 + 39 119 0.4834411 + 40 119 0.5058368 + 41 119 0.5417439 + 42 119 0.5693331 + 43 119 0.5984245 + 44 119 0.6287377 + 45 119 0.6599585 + 46 119 0.6917419 + 47 119 0.7237213 + 48 119 0.7539443 + 49 119 0.7855659 + 50 119 0.7922043 + 51 119 0.8226779 + 52 119 0.8514243 + 53 119 0.8781362 + 54 119 0.9025544 + 55 119 0.9244730 + 56 119 0.9437474 + 57 119 0.9602970 + 58 119 0.9558529 + 59 119 0.9651674 + 60 119 0.9718364 + 61 119 0.9760334 + 62 119 0.9779774 + 63 119 0.9779252 + 64 119 0.9761601 + 65 119 1.000000 + 66 119 1.000000 + 67 119 1.000000 + 68 119 1.000000 + 69 119 0.9895709 + 70 119 0.9825422 + 71 119 0.9733501 + 72 119 0.9670921 + 73 119 0.9611832 + 74 119 0.9556807 + 75 119 0.9212065 + 76 119 0.9151308 + 77 119 0.9093731 + 78 119 0.9158965 + 79 119 0.9084451 + 80 119 0.9162779 + 81 119 0.9003889 + 82 119 0.8895893 + 83 119 0.8781986 + 84 119 0.8658513 + 85 119 0.8521832 + 86 119 0.8368440 + 87 119 0.8195040 + 88 119 0.8194616 + 89 119 0.8009925 + 90 119 0.7803728 + 91 119 0.7575282 + 92 119 0.7324505 + 93 119 0.7051990 + 94 119 0.6759003 + 95 119 1.000000 + 96 119 1.000000 + 97 119 1.000000 + 98 119 0.5428824 + 99 119 0.5072632 + 100 119 0.4537335 + 101 119 0.4441294 + 102 119 1.000000 + 103 119 1.000000 + 104 119 1.000000 + 105 119 1.000000 + 106 119 1.000000 + 107 119 1.000000 + 108 119 1.000000 + 109 119 1.000000 + 110 119 1.000000 + 111 119 1.000000 + 112 119 1.000000 + 113 119 1.000000 + 114 119 1.000000 + 115 119 1.000000 + 116 119 1.000000 + 117 119 1.000000 + 118 119 1.000000 + 119 119 1.000000 + 120 119 1.000000 + 121 119 1.000000 + 122 119 1.000000 + 123 119 1.000000 + 124 119 1.000000 + 125 119 1.000000 + 126 119 1.000000 + 127 119 1.000000 + 128 119 1.000000 + 129 119 1.000000 + 130 119 1.000000 + 131 119 1.000000 + 132 119 1.000000 + 133 119 1.000000 + 134 119 1.000000 + 135 119 1.000000 + 136 119 1.000000 + 137 119 1.000000 + 138 119 1.000000 + 139 119 1.000000 + 140 119 1.000000 + 141 119 1.000000 + 142 119 1.000000 + 143 119 1.000000 + 144 119 1.000000 + 145 119 1.000000 + 146 119 1.000000 + 147 119 1.000000 + 148 119 1.000000 + 149 119 1.000000 + 150 119 1.000000 + 151 119 1.000000 + 152 119 1.000000 + 153 119 1.000000 + 154 119 1.000000 + 155 119 1.000000 + 156 119 1.000000 + 157 119 1.000000 + 158 119 1.000000 + 159 119 1.000000 + 160 119 1.000000 + 1 120 0.5872579 + 2 120 0.5729655 + 3 120 0.5571912 + 4 120 0.5399070 + 5 120 0.5211089 + 6 120 0.5008176 + 7 120 0.4790806 + 8 120 0.4559722 + 9 120 0.4315884 + 10 120 0.4261031 + 11 120 0.4032401 + 12 120 0.3800448 + 13 120 0.3567228 + 14 120 0.3334828 + 15 120 0.3105334 + 16 120 0.2880777 + 17 120 0.2663117 + 18 120 0.2454219 + 19 120 0.2255837 + 20 120 0.2069623 + 21 120 0.1897118 + 22 120 1.000000 + 23 120 1.000000 + 24 120 1.000000 + 25 120 1.000000 + 26 120 1.000000 + 27 120 1.000000 + 28 120 1.000000 + 29 120 1.000000 + 30 120 1.000000 + 31 120 1.000000 + 32 120 1.000000 + 33 120 1.000000 + 34 120 0.4321673 + 35 120 0.4474005 + 36 120 0.4652498 + 37 120 0.4734251 + 38 120 0.4945700 + 39 120 0.5178865 + 40 120 0.5432093 + 41 120 0.5813540 + 42 120 0.5833497 + 43 120 0.6138897 + 44 120 0.6456345 + 45 120 0.6782559 + 46 120 0.7113950 + 47 120 0.7211246 + 48 120 0.7534800 + 49 120 0.7873464 + 50 120 0.8200901 + 51 120 0.8513351 + 52 120 0.8807344 + 53 120 0.9079754 + 54 120 0.9327943 + 55 120 0.9549824 + 56 120 0.9743912 + 57 120 0.9909380 + 58 120 1.000000 + 59 120 0.9975719 + 60 120 1.000000 + 61 120 0.6531364 + 62 120 0.6835681 + 63 120 0.6818605 + 64 120 0.6785077 + 65 120 0.6853537 + 66 120 0.6923501 + 67 120 1.000000 + 68 120 1.000000 + 69 120 1.000000 + 70 120 0.9994584 + 71 120 0.9888380 + 72 120 0.9809034 + 73 120 0.9732537 + 74 120 0.9659575 + 75 120 0.9590322 + 76 120 0.9524472 + 77 120 0.9461199 + 78 120 0.9222319 + 79 120 0.9130375 + 80 120 0.9202795 + 81 120 0.9084182 + 82 120 0.8902146 + 83 120 0.8769828 + 84 120 0.8628144 + 85 120 0.8473445 + 86 120 1.000000 + 87 120 1.000000 + 88 120 1.000000 + 89 120 1.000000 + 90 120 1.000000 + 91 120 1.000000 + 92 120 0.7154070 + 93 120 0.6864743 + 94 120 0.6555139 + 95 120 1.000000 + 96 120 1.000000 + 97 120 1.000000 + 98 120 1.000000 + 99 120 1.000000 + 100 120 1.000000 + 101 120 1.000000 + 102 120 1.000000 + 103 120 1.000000 + 104 120 1.000000 + 105 120 1.000000 + 106 120 1.000000 + 107 120 1.000000 + 108 120 1.000000 + 109 120 1.000000 + 110 120 1.000000 + 111 120 1.000000 + 112 120 1.000000 + 113 120 1.000000 + 114 120 1.000000 + 115 120 1.000000 + 116 120 1.000000 + 117 120 1.000000 + 118 120 1.000000 + 119 120 1.000000 + 120 120 1.000000 + 121 120 1.000000 + 122 120 1.000000 + 123 120 1.000000 + 124 120 1.000000 + 125 120 1.000000 + 126 120 1.000000 + 127 120 1.000000 + 128 120 1.000000 + 129 120 1.000000 + 130 120 1.000000 + 131 120 1.000000 + 132 120 1.000000 + 133 120 1.000000 + 134 120 1.000000 + 135 120 1.000000 + 136 120 1.000000 + 137 120 1.000000 + 138 120 1.000000 + 139 120 1.000000 + 140 120 1.000000 + 141 120 1.000000 + 142 120 1.000000 + 143 120 1.000000 + 144 120 1.000000 + 145 120 1.000000 + 146 120 1.000000 + 147 120 1.000000 + 148 120 1.000000 + 149 120 1.000000 + 150 120 1.000000 + 151 120 1.000000 + 152 120 1.000000 + 153 120 1.000000 + 154 120 1.000000 + 155 120 1.000000 + 156 120 1.000000 + 157 120 1.000000 + 158 120 1.000000 + 159 120 1.000000 + 160 120 1.000000 + 1 121 0.5867876 + 2 121 0.5727308 + 3 121 0.5571896 + 4 121 0.5401286 + 5 121 0.5215346 + 6 121 0.5014206 + 7 121 0.4798245 + 8 121 0.4568111 + 9 121 0.4324690 + 10 121 0.4273665 + 11 121 0.4045239 + 12 121 0.3813028 + 13 121 0.3579109 + 14 121 0.3345620 + 15 121 0.3114704 + 16 121 0.2888471 + 17 121 0.2668979 + 18 121 0.2458188 + 19 121 0.2257967 + 20 121 0.2070066 + 21 121 0.1896134 + 22 121 1.000000 + 23 121 1.000000 + 24 121 1.000000 + 25 121 1.000000 + 26 121 1.000000 + 27 121 1.000000 + 28 121 1.000000 + 29 121 1.000000 + 30 121 1.000000 + 31 121 1.000000 + 32 121 1.000000 + 33 121 1.000000 + 34 121 1.000000 + 35 121 0.4480027 + 36 121 0.4667318 + 37 121 0.4880933 + 38 121 0.4993254 + 39 121 0.5238405 + 40 121 0.5504053 + 41 121 0.5788046 + 42 121 0.5970259 + 43 121 0.6307765 + 44 121 0.6657590 + 45 121 0.7016103 + 46 121 0.7379369 + 47 121 0.7743212 + 48 121 0.7789816 + 49 121 0.8121930 + 50 121 0.8457829 + 51 121 0.8777711 + 52 121 0.9078040 + 53 121 0.9355666 + 54 121 0.9607913 + 55 121 0.9832655 + 56 121 0.6488268 + 57 121 0.6921933 + 58 121 0.7034141 + 59 121 0.7119678 + 60 121 0.7179570 + 61 121 0.7049525 + 62 121 0.7049451 + 63 121 0.7029290 + 64 121 0.6991683 + 65 121 0.6939448 + 66 121 0.7004452 + 67 121 0.7066460 + 68 121 1.000000 + 69 121 1.000000 + 70 121 1.000000 + 71 121 1.000000 + 72 121 0.9940259 + 73 121 0.9846910 + 74 121 0.9756514 + 75 121 0.9669363 + 76 121 0.9585250 + 77 121 0.9642686 + 78 121 0.9540645 + 79 121 0.9441025 + 80 121 0.9341359 + 81 121 0.9390818 + 82 121 0.9258462 + 83 121 0.8750370 + 84 121 0.8590580 + 85 121 0.8417963 + 86 121 1.000000 + 87 121 1.000000 + 88 121 1.000000 + 89 121 1.000000 + 90 121 1.000000 + 91 121 1.000000 + 92 121 0.3866530 + 93 121 0.6953864 + 94 121 0.6618122 + 95 121 1.000000 + 96 121 1.000000 + 97 121 1.000000 + 98 121 1.000000 + 99 121 1.000000 + 100 121 1.000000 + 101 121 1.000000 + 102 121 1.000000 + 103 121 1.000000 + 104 121 1.000000 + 105 121 1.000000 + 106 121 1.000000 + 107 121 1.000000 + 108 121 1.000000 + 109 121 1.000000 + 110 121 1.000000 + 111 121 1.000000 + 112 121 1.000000 + 113 121 1.000000 + 114 121 1.000000 + 115 121 1.000000 + 116 121 1.000000 + 117 121 1.000000 + 118 121 1.000000 + 119 121 1.000000 + 120 121 1.000000 + 121 121 1.000000 + 122 121 1.000000 + 123 121 1.000000 + 124 121 1.000000 + 125 121 1.000000 + 126 121 1.000000 + 127 121 1.000000 + 128 121 1.000000 + 129 121 1.000000 + 130 121 1.000000 + 131 121 1.000000 + 132 121 1.000000 + 133 121 1.000000 + 134 121 1.000000 + 135 121 1.000000 + 136 121 1.000000 + 137 121 1.000000 + 138 121 1.000000 + 139 121 1.000000 + 140 121 1.000000 + 141 121 1.000000 + 142 121 1.000000 + 143 121 1.000000 + 144 121 1.000000 + 145 121 1.000000 + 146 121 1.000000 + 147 121 1.000000 + 148 121 1.000000 + 149 121 1.000000 + 150 121 1.000000 + 151 121 1.000000 + 152 121 1.000000 + 153 121 1.000000 + 154 121 1.000000 + 155 121 1.000000 + 156 121 1.000000 + 157 121 1.000000 + 158 121 1.000000 + 159 121 1.000000 + 160 121 1.000000 + 1 122 0.5861265 + 2 122 0.5722873 + 3 122 0.5569617 + 4 122 0.5401065 + 5 122 0.5217012 + 6 122 0.5017488 + 7 122 0.4802798 + 8 122 0.4573494 + 9 122 0.4330383 + 10 122 0.4282854 + 11 122 0.4054495 + 12 122 0.3821895 + 13 122 0.3587142 + 14 122 0.3352417 + 15 122 0.3119924 + 16 122 0.2891852 + 17 122 0.2670349 + 18 122 0.2457476 + 19 122 0.2255206 + 20 122 0.2065405 + 21 122 0.1889823 + 22 122 1.000000 + 23 122 1.000000 + 24 122 1.000000 + 25 122 1.000000 + 26 122 1.000000 + 27 122 1.000000 + 28 122 1.000000 + 29 122 1.000000 + 30 122 1.000000 + 31 122 1.000000 + 32 122 1.000000 + 33 122 1.000000 + 34 122 1.000000 + 35 122 0.4256637 + 36 122 0.4452884 + 37 122 0.4676660 + 38 122 0.4927097 + 39 122 0.5072905 + 40 122 0.5353807 + 41 122 0.5654022 + 42 122 0.6087208 + 43 122 0.6435363 + 44 122 0.6795563 + 45 122 0.7164078 + 46 122 0.7536887 + 47 122 0.7909743 + 48 122 0.8278279 + 49 122 0.8629495 + 50 122 0.8979585 + 51 122 0.9311594 + 52 122 0.9621847 + 53 122 0.9907082 + 54 122 1.000000 + 55 122 1.000000 + 56 122 0.6969142 + 57 122 0.7109728 + 58 122 0.7222354 + 59 122 0.7307460 + 60 122 0.7366035 + 61 122 0.7399576 + 62 122 0.7251155 + 63 122 0.7228338 + 64 122 0.7187115 + 65 122 0.7130286 + 66 122 0.7182197 + 67 122 1.000000 + 68 122 1.000000 + 69 122 1.000000 + 70 122 1.000000 + 71 122 1.000000 + 72 122 1.000000 + 73 122 0.9955857 + 74 122 0.9848568 + 75 122 0.9744005 + 76 122 0.9642079 + 77 122 0.9677230 + 78 122 0.9557555 + 79 122 0.9440100 + 80 122 0.9322481 + 81 122 0.9364595 + 82 122 0.9212672 + 83 122 0.9055048 + 84 122 0.8820274 + 85 122 0.8632907 + 86 122 1.000000 + 87 122 1.000000 + 88 122 1.000000 + 89 122 1.000000 + 90 122 1.000000 + 91 122 1.000000 + 92 122 0.7055654 + 93 122 0.6725725 + 94 122 0.6374857 + 95 122 1.000000 + 96 122 1.000000 + 97 122 1.000000 + 98 122 1.000000 + 99 122 1.000000 + 100 122 1.000000 + 101 122 1.000000 + 102 122 1.000000 + 103 122 1.000000 + 104 122 1.000000 + 105 122 1.000000 + 106 122 1.000000 + 107 122 1.000000 + 108 122 1.000000 + 109 122 1.000000 + 110 122 1.000000 + 111 122 1.000000 + 112 122 1.000000 + 113 122 1.000000 + 114 122 1.000000 + 115 122 1.000000 + 116 122 1.000000 + 117 122 1.000000 + 118 122 1.000000 + 119 122 1.000000 + 120 122 1.000000 + 121 122 1.000000 + 122 122 1.000000 + 123 122 1.000000 + 124 122 1.000000 + 125 122 1.000000 + 126 122 1.000000 + 127 122 1.000000 + 128 122 1.000000 + 129 122 1.000000 + 130 122 1.000000 + 131 122 1.000000 + 132 122 1.000000 + 133 122 1.000000 + 134 122 1.000000 + 135 122 1.000000 + 136 122 1.000000 + 137 122 1.000000 + 138 122 1.000000 + 139 122 1.000000 + 140 122 1.000000 + 141 122 1.000000 + 142 122 1.000000 + 143 122 1.000000 + 144 122 1.000000 + 145 122 1.000000 + 146 122 1.000000 + 147 122 1.000000 + 148 122 1.000000 + 149 122 1.000000 + 150 122 1.000000 + 151 122 1.000000 + 152 122 1.000000 + 153 122 1.000000 + 154 122 1.000000 + 155 122 1.000000 + 156 122 1.000000 + 157 122 1.000000 + 158 122 1.000000 + 159 122 1.000000 + 160 122 1.000000 + 1 123 0.5852913 + 2 123 0.5716531 + 3 123 0.5565257 + 4 123 0.5398601 + 5 123 0.5216275 + 6 123 0.5018232 + 7 123 0.4804681 + 8 123 0.4576090 + 9 123 0.4333186 + 10 123 0.4288803 + 11 123 0.4060386 + 12 123 0.3827263 + 13 123 0.3591545 + 14 123 0.3355445 + 15 123 0.3121223 + 16 123 0.2891145 + 17 123 0.2667446 + 18 123 0.2452300 + 19 123 0.2247775 + 20 123 0.2055853 + 21 123 0.1878395 + 22 123 1.000000 + 23 123 1.000000 + 24 123 1.000000 + 25 123 1.000000 + 26 123 1.000000 + 27 123 1.000000 + 28 123 1.000000 + 29 123 1.000000 + 30 123 1.000000 + 31 123 1.000000 + 32 123 1.000000 + 33 123 1.000000 + 34 123 1.000000 + 35 123 0.4284660 + 36 123 0.4489472 + 37 123 0.4722190 + 38 123 0.4981844 + 39 123 0.5267061 + 40 123 0.5442306 + 41 123 0.5753989 + 42 123 0.6191683 + 43 123 0.6550119 + 44 123 0.6920316 + 45 123 0.7298475 + 46 123 0.7680497 + 47 123 0.8062075 + 48 123 0.8438785 + 49 123 0.8806168 + 50 123 0.9155481 + 51 123 0.9493816 + 52 123 0.9809698 + 53 123 1.000000 + 54 123 1.000000 + 55 123 0.6972908 + 56 123 0.7143570 + 57 123 0.7285699 + 58 123 0.7399118 + 59 123 0.7484226 + 60 123 1.000000 + 61 123 1.000000 + 62 123 1.000000 + 63 123 1.000000 + 64 123 1.000000 + 65 123 1.000000 + 66 123 1.000000 + 67 123 1.000000 + 68 123 1.000000 + 69 123 1.000000 + 70 123 1.000000 + 71 123 1.000000 + 72 123 1.000000 + 73 123 1.000000 + 74 123 0.9936640 + 75 123 0.9815190 + 76 123 0.9695916 + 77 123 1.000000 + 78 123 1.000000 + 79 123 1.000000 + 80 123 0.9301962 + 81 123 0.9337465 + 82 123 0.9166162 + 83 123 0.8989428 + 84 123 0.8803391 + 85 123 0.8536484 + 86 123 0.8314149 + 87 123 0.8071163 + 88 123 0.7804320 + 89 123 0.7742873 + 90 123 0.7465666 + 91 123 0.7165475 + 92 123 1.000000 + 93 123 1.000000 + 94 123 1.000000 + 95 123 1.000000 + 96 123 1.000000 + 97 123 1.000000 + 98 123 1.000000 + 99 123 1.000000 + 100 123 1.000000 + 101 123 1.000000 + 102 123 1.000000 + 103 123 1.000000 + 104 123 1.000000 + 105 123 1.000000 + 106 123 1.000000 + 107 123 1.000000 + 108 123 1.000000 + 109 123 1.000000 + 110 123 1.000000 + 111 123 1.000000 + 112 123 1.000000 + 113 123 1.000000 + 114 123 1.000000 + 115 123 1.000000 + 116 123 1.000000 + 117 123 1.000000 + 118 123 1.000000 + 119 123 1.000000 + 120 123 1.000000 + 121 123 1.000000 + 122 123 1.000000 + 123 123 1.000000 + 124 123 1.000000 + 125 123 1.000000 + 126 123 1.000000 + 127 123 1.000000 + 128 123 1.000000 + 129 123 1.000000 + 130 123 1.000000 + 131 123 1.000000 + 132 123 1.000000 + 133 123 1.000000 + 134 123 1.000000 + 135 123 1.000000 + 136 123 1.000000 + 137 123 1.000000 + 138 123 1.000000 + 139 123 1.000000 + 140 123 1.000000 + 141 123 1.000000 + 142 123 1.000000 + 143 123 1.000000 + 144 123 1.000000 + 145 123 1.000000 + 146 123 1.000000 + 147 123 1.000000 + 148 123 1.000000 + 149 123 1.000000 + 150 123 1.000000 + 151 123 1.000000 + 152 123 1.000000 + 153 123 1.000000 + 154 123 1.000000 + 155 123 1.000000 + 156 123 1.000000 + 157 123 1.000000 + 158 123 1.000000 + 159 123 1.000000 + 160 123 1.000000 + 1 124 0.5842992 + 2 124 0.5708456 + 3 124 0.5559008 + 4 124 0.5394092 + 5 124 0.5213349 + 6 124 0.5016648 + 7 124 0.4804111 + 8 124 0.4576125 + 9 124 0.4333331 + 10 124 0.4291737 + 11 124 0.4063134 + 12 124 0.3829365 + 13 124 0.3592553 + 14 124 0.3354943 + 15 124 0.3118843 + 16 124 0.2886598 + 17 124 0.2660533 + 18 124 0.2442912 + 19 124 0.2235927 + 20 124 0.2041662 + 21 124 0.1862092 + 22 124 1.000000 + 23 124 1.000000 + 24 124 1.000000 + 25 124 1.000000 + 26 124 1.000000 + 27 124 1.000000 + 28 124 1.000000 + 29 124 1.000000 + 30 124 1.000000 + 31 124 1.000000 + 32 124 1.000000 + 33 124 1.000000 + 34 124 1.000000 + 35 124 0.4303286 + 36 124 0.4516403 + 37 124 0.4757801 + 38 124 0.5026396 + 39 124 0.5320717 + 40 124 0.5638872 + 41 124 0.5841552 + 42 124 0.6181019 + 43 124 0.6651990 + 44 124 0.7031833 + 45 124 0.7419298 + 46 124 0.7810228 + 47 124 0.8200260 + 48 124 0.8584922 + 49 124 0.8959724 + 50 124 0.9316751 + 51 124 0.9661378 + 52 124 0.9982913 + 53 124 1.000000 + 54 124 0.6931387 + 55 124 0.7132948 + 56 124 0.7306142 + 57 124 0.7450157 + 58 124 0.7564770 + 59 124 1.000000 + 60 124 1.000000 + 61 124 1.000000 + 62 124 1.000000 + 63 124 1.000000 + 64 124 1.000000 + 65 124 1.000000 + 66 124 1.000000 + 67 124 1.000000 + 68 124 1.000000 + 69 124 1.000000 + 70 124 1.000000 + 71 124 1.000000 + 72 124 1.000000 + 73 124 1.000000 + 74 124 1.000000 + 75 124 0.9883782 + 76 124 0.9896370 + 77 124 1.000000 + 78 124 1.000000 + 79 124 1.000000 + 80 124 0.9280834 + 81 124 0.9125183 + 82 124 0.9119997 + 83 124 0.8924330 + 84 124 0.8719634 + 85 124 0.8501994 + 86 124 0.8200617 + 87 124 0.7940462 + 88 124 0.7656691 + 89 124 0.7346466 + 90 124 0.7284320 + 91 124 0.6968182 + 92 124 1.000000 + 93 124 1.000000 + 94 124 1.000000 + 95 124 1.000000 + 96 124 1.000000 + 97 124 1.000000 + 98 124 1.000000 + 99 124 1.000000 + 100 124 1.000000 + 101 124 1.000000 + 102 124 1.000000 + 103 124 1.000000 + 104 124 1.000000 + 105 124 1.000000 + 106 124 1.000000 + 107 124 1.000000 + 108 124 1.000000 + 109 124 1.000000 + 110 124 1.000000 + 111 124 1.000000 + 112 124 1.000000 + 113 124 1.000000 + 114 124 1.000000 + 115 124 1.000000 + 116 124 1.000000 + 117 124 1.000000 + 118 124 1.000000 + 119 124 1.000000 + 120 124 1.000000 + 121 124 1.000000 + 122 124 1.000000 + 123 124 1.000000 + 124 124 1.000000 + 125 124 1.000000 + 126 124 1.000000 + 127 124 1.000000 + 128 124 1.000000 + 129 124 1.000000 + 130 124 1.000000 + 131 124 1.000000 + 132 124 1.000000 + 133 124 1.000000 + 134 124 1.000000 + 135 124 1.000000 + 136 124 1.000000 + 137 124 1.000000 + 138 124 1.000000 + 139 124 1.000000 + 140 124 1.000000 + 141 124 1.000000 + 142 124 1.000000 + 143 124 1.000000 + 144 124 1.000000 + 145 124 1.000000 + 146 124 1.000000 + 147 124 1.000000 + 148 124 1.000000 + 149 124 1.000000 + 150 124 1.000000 + 151 124 1.000000 + 152 124 1.000000 + 153 124 1.000000 + 154 124 1.000000 + 155 124 1.000000 + 156 124 1.000000 + 157 124 1.000000 + 158 124 1.000000 + 159 124 1.000000 + 160 124 1.000000 + 1 125 0.5831674 + 2 125 0.5698834 + 3 125 0.5551063 + 4 125 0.5387740 + 5 125 0.5208440 + 6 125 0.5012952 + 7 125 0.4801318 + 8 125 0.4573836 + 9 125 0.4331064 + 10 125 0.4291901 + 11 125 0.4062994 + 12 125 0.3828461 + 13 125 0.3590431 + 14 125 0.3351175 + 15 125 0.3113057 + 16 125 0.2878489 + 17 125 0.2649884 + 18 125 0.2429606 + 19 125 0.2219950 + 20 125 0.2023122 + 21 125 0.1841204 + 22 125 1.000000 + 23 125 1.000000 + 24 125 1.000000 + 25 125 1.000000 + 26 125 1.000000 + 27 125 1.000000 + 28 125 1.000000 + 29 125 1.000000 + 30 125 1.000000 + 31 125 1.000000 + 32 125 1.000000 + 33 125 1.000000 + 34 125 1.000000 + 35 125 0.4312569 + 36 125 0.4533704 + 37 125 0.4783494 + 38 125 0.5060750 + 39 125 0.5363889 + 40 125 0.5690911 + 41 125 0.6039401 + 42 125 0.6266856 + 43 125 0.6741022 + 44 125 0.7130165 + 45 125 0.7526618 + 46 125 0.7926173 + 47 125 0.8324413 + 48 125 0.8716835 + 49 125 0.9098923 + 50 125 0.9463589 + 51 125 0.9814499 + 52 125 1.000000 + 53 125 1.000000 + 54 125 1.000000 + 55 125 1.000000 + 56 125 0.7457194 + 57 125 1.000000 + 58 125 1.000000 + 59 125 1.000000 + 60 125 1.000000 + 61 125 1.000000 + 62 125 1.000000 + 63 125 1.000000 + 64 125 1.000000 + 65 125 1.000000 + 66 125 1.000000 + 67 125 1.000000 + 68 125 1.000000 + 69 125 1.000000 + 70 125 1.000000 + 71 125 1.000000 + 72 125 1.000000 + 73 125 1.000000 + 74 125 1.000000 + 75 125 0.9950597 + 76 125 0.9941622 + 77 125 1.000000 + 78 125 1.000000 + 79 125 1.000000 + 80 125 0.9260068 + 81 125 0.9087293 + 82 125 0.9075195 + 83 125 0.8860774 + 84 125 0.8637582 + 85 125 0.8401713 + 86 125 0.8149303 + 87 125 0.7811311 + 88 125 0.7510679 + 89 125 0.7183794 + 90 125 0.7104339 + 91 125 0.6772243 + 92 125 1.000000 + 93 125 1.000000 + 94 125 1.000000 + 95 125 1.000000 + 96 125 1.000000 + 97 125 1.000000 + 98 125 1.000000 + 99 125 1.000000 + 100 125 1.000000 + 101 125 1.000000 + 102 125 1.000000 + 103 125 1.000000 + 104 125 1.000000 + 105 125 1.000000 + 106 125 1.000000 + 107 125 1.000000 + 108 125 1.000000 + 109 125 1.000000 + 110 125 1.000000 + 111 125 1.000000 + 112 125 1.000000 + 113 125 1.000000 + 114 125 1.000000 + 115 125 1.000000 + 116 125 1.000000 + 117 125 1.000000 + 118 125 1.000000 + 119 125 1.000000 + 120 125 1.000000 + 121 125 1.000000 + 122 125 1.000000 + 123 125 1.000000 + 124 125 1.000000 + 125 125 1.000000 + 126 125 1.000000 + 127 125 1.000000 + 128 125 1.000000 + 129 125 1.000000 + 130 125 1.000000 + 131 125 1.000000 + 132 125 1.000000 + 133 125 1.000000 + 134 125 1.000000 + 135 125 1.000000 + 136 125 1.000000 + 137 125 1.000000 + 138 125 1.000000 + 139 125 1.000000 + 140 125 1.000000 + 141 125 1.000000 + 142 125 1.000000 + 143 125 1.000000 + 144 125 1.000000 + 145 125 1.000000 + 146 125 1.000000 + 147 125 1.000000 + 148 125 1.000000 + 149 125 1.000000 + 150 125 1.000000 + 151 125 1.000000 + 152 125 1.000000 + 153 125 1.000000 + 154 125 1.000000 + 155 125 1.000000 + 156 125 1.000000 + 157 125 1.000000 + 158 125 1.000000 + 159 125 1.000000 + 160 125 1.000000 + 1 126 0.5819126 + 2 126 0.5687843 + 3 126 0.5541607 + 4 126 0.5379748 + 5 126 0.5201762 + 6 126 0.5007373 + 7 126 0.4796534 + 8 126 0.4569465 + 9 126 0.4510867 + 10 126 0.4289545 + 11 126 0.4060220 + 12 126 0.3824813 + 13 126 0.3585450 + 14 126 0.3344431 + 15 126 0.3104163 + 16 126 0.2867125 + 17 126 0.2635813 + 18 126 0.2412695 + 19 126 0.2200169 + 20 126 0.2000559 + 21 126 0.1816055 + 22 126 1.000000 + 23 126 1.000000 + 24 126 1.000000 + 25 126 1.000000 + 26 126 1.000000 + 27 126 1.000000 + 28 126 1.000000 + 29 126 1.000000 + 30 126 1.000000 + 31 126 1.000000 + 32 126 1.000000 + 33 126 1.000000 + 34 126 1.000000 + 35 126 0.4312629 + 36 126 0.4541474 + 37 126 0.4799348 + 38 126 0.5084957 + 39 126 0.5396615 + 40 126 0.5732213 + 41 126 0.6089234 + 42 126 0.6464748 + 43 126 0.6713744 + 44 126 0.7215421 + 45 126 0.7620565 + 46 126 0.8028479 + 47 126 0.8434709 + 48 126 0.8834723 + 49 126 0.9223985 + 50 126 0.9598064 + 51 126 0.9953464 + 52 126 1.000000 + 53 126 1.000000 + 54 126 1.000000 + 55 126 1.000000 + 56 126 1.000000 + 57 126 1.000000 + 58 126 1.000000 + 59 126 1.000000 + 60 126 1.000000 + 61 126 1.000000 + 62 126 1.000000 + 63 126 1.000000 + 64 126 1.000000 + 65 126 1.000000 + 66 126 1.000000 + 67 126 1.000000 + 68 126 1.000000 + 69 126 1.000000 + 70 126 1.000000 + 71 126 1.000000 + 72 126 1.000000 + 73 126 1.000000 + 74 126 1.000000 + 75 126 1.000000 + 76 126 1.000000 + 77 126 1.000000 + 78 126 1.000000 + 79 126 1.000000 + 80 126 1.000000 + 81 126 1.000000 + 82 126 1.000000 + 83 126 0.8799717 + 84 126 0.8558207 + 85 126 0.8304269 + 86 126 0.8034044 + 87 126 0.7743782 + 88 126 0.7367281 + 89 126 1.000000 + 90 126 1.000000 + 91 126 1.000000 + 92 126 1.000000 + 93 126 1.000000 + 94 126 1.000000 + 95 126 1.000000 + 96 126 1.000000 + 97 126 1.000000 + 98 126 1.000000 + 99 126 1.000000 + 100 126 1.000000 + 101 126 1.000000 + 102 126 1.000000 + 103 126 1.000000 + 104 126 1.000000 + 105 126 1.000000 + 106 126 1.000000 + 107 126 1.000000 + 108 126 1.000000 + 109 126 1.000000 + 110 126 1.000000 + 111 126 1.000000 + 112 126 1.000000 + 113 126 1.000000 + 114 126 1.000000 + 115 126 1.000000 + 116 126 1.000000 + 117 126 1.000000 + 118 126 1.000000 + 119 126 1.000000 + 120 126 1.000000 + 121 126 1.000000 + 122 126 1.000000 + 123 126 1.000000 + 124 126 1.000000 + 125 126 1.000000 + 126 126 1.000000 + 127 126 1.000000 + 128 126 1.000000 + 129 126 1.000000 + 130 126 1.000000 + 131 126 1.000000 + 132 126 1.000000 + 133 126 1.000000 + 134 126 1.000000 + 135 126 1.000000 + 136 126 1.000000 + 137 126 1.000000 + 138 126 1.000000 + 139 126 1.000000 + 140 126 1.000000 + 141 126 1.000000 + 142 126 1.000000 + 143 126 1.000000 + 144 126 1.000000 + 145 126 1.000000 + 146 126 1.000000 + 147 126 1.000000 + 148 126 1.000000 + 149 126 1.000000 + 150 126 1.000000 + 151 126 1.000000 + 152 126 1.000000 + 153 126 1.000000 + 154 126 1.000000 + 155 126 1.000000 + 156 126 1.000000 + 157 126 1.000000 + 158 126 1.000000 + 159 126 1.000000 + 160 126 1.000000 + 1 127 0.5805516 + 2 127 0.5675661 + 3 127 0.5530835 + 4 127 0.5370311 + 5 127 0.5193528 + 6 127 0.5000130 + 7 127 0.4789993 + 8 127 0.4563257 + 9 127 0.4506329 + 10 127 0.4284928 + 11 127 0.4055087 + 12 127 0.3818706 + 13 127 0.3577906 + 14 127 0.3335013 + 15 127 0.3092471 + 16 127 0.2852826 + 17 127 0.2618655 + 18 127 0.2392517 + 19 127 0.2176931 + 20 127 0.1974321 + 21 127 0.1787004 + 22 127 1.000000 + 23 127 1.000000 + 24 127 1.000000 + 25 127 1.000000 + 26 127 1.000000 + 27 127 1.000000 + 28 127 1.000000 + 29 127 1.000000 + 30 127 1.000000 + 31 127 1.000000 + 32 127 1.000000 + 33 127 1.000000 + 34 127 1.000000 + 35 127 0.4303640 + 36 127 0.4539864 + 37 127 0.4805493 + 38 127 0.5099134 + 39 127 0.5418995 + 40 127 0.5762869 + 41 127 0.6128137 + 42 127 0.6511783 + 43 127 0.6910402 + 44 127 0.7430457 + 45 127 0.7701331 + 46 127 0.8117357 + 47 127 0.8531386 + 48 127 0.8938845 + 49 127 0.9335194 + 50 127 0.9715983 + 51 127 1.000000 + 52 127 1.000000 + 53 127 1.000000 + 54 127 1.000000 + 55 127 1.000000 + 56 127 1.000000 + 57 127 1.000000 + 58 127 1.000000 + 59 127 1.000000 + 60 127 1.000000 + 61 127 1.000000 + 62 127 1.000000 + 63 127 1.000000 + 64 127 1.000000 + 65 127 1.000000 + 66 127 1.000000 + 67 127 1.000000 + 68 127 1.000000 + 69 127 1.000000 + 70 127 1.000000 + 71 127 1.000000 + 72 127 1.000000 + 73 127 1.000000 + 74 127 1.000000 + 75 127 1.000000 + 76 127 1.000000 + 77 127 1.000000 + 78 127 1.000000 + 79 127 1.000000 + 80 127 1.000000 + 81 127 1.000000 + 82 127 1.000000 + 83 127 0.8742044 + 84 127 0.8482402 + 85 127 0.8210562 + 86 127 0.8135955 + 87 127 0.7823660 + 88 127 0.7486999 + 89 127 1.000000 + 90 127 1.000000 + 91 127 1.000000 + 92 127 1.000000 + 93 127 1.000000 + 94 127 1.000000 + 95 127 1.000000 + 96 127 1.000000 + 97 127 1.000000 + 98 127 1.000000 + 99 127 1.000000 + 100 127 1.000000 + 101 127 1.000000 + 102 127 1.000000 + 103 127 1.000000 + 104 127 1.000000 + 105 127 1.000000 + 106 127 1.000000 + 107 127 1.000000 + 108 127 1.000000 + 109 127 1.000000 + 110 127 1.000000 + 111 127 1.000000 + 112 127 1.000000 + 113 127 1.000000 + 114 127 1.000000 + 115 127 1.000000 + 116 127 1.000000 + 117 127 1.000000 + 118 127 1.000000 + 119 127 1.000000 + 120 127 1.000000 + 121 127 1.000000 + 122 127 1.000000 + 123 127 1.000000 + 124 127 1.000000 + 125 127 1.000000 + 126 127 1.000000 + 127 127 1.000000 + 128 127 1.000000 + 129 127 1.000000 + 130 127 1.000000 + 131 127 1.000000 + 132 127 1.000000 + 133 127 1.000000 + 134 127 1.000000 + 135 127 1.000000 + 136 127 1.000000 + 137 127 1.000000 + 138 127 1.000000 + 139 127 1.000000 + 140 127 1.000000 + 141 127 1.000000 + 142 127 1.000000 + 143 127 1.000000 + 144 127 1.000000 + 145 127 1.000000 + 146 127 1.000000 + 147 127 1.000000 + 148 127 1.000000 + 149 127 1.000000 + 150 127 1.000000 + 151 127 1.000000 + 152 127 1.000000 + 153 127 1.000000 + 154 127 1.000000 + 155 127 1.000000 + 156 127 1.000000 + 157 127 1.000000 + 158 127 1.000000 + 159 127 1.000000 + 160 127 1.000000 + 1 128 0.5791005 + 2 128 0.5662463 + 3 128 0.5518933 + 4 128 0.5359634 + 5 128 0.5183944 + 6 128 0.4991443 + 7 128 0.4781931 + 8 128 0.4555463 + 9 128 0.4499889 + 10 128 0.4278317 + 11 128 0.4047870 + 12 128 0.3810425 + 13 128 0.3568100 + 14 128 0.3323231 + 15 128 0.3078310 + 16 128 0.2835933 + 17 128 0.2598758 + 18 128 0.2369439 + 19 128 0.2150605 + 20 128 0.1944791 + 21 128 0.1754430 + 22 128 0.1581825 + 23 128 0.1429122 + 24 128 0.1298310 + 25 128 0.1191210 + 26 128 0.1109469 + 27 128 0.1026524 + 28 128 0.3635854 + 29 128 0.3632175 + 30 128 0.3662260 + 31 128 0.3689190 + 32 128 0.3743936 + 33 128 0.3892716 + 34 128 0.4073472 + 35 128 0.4285836 + 36 128 0.4529087 + 37 128 0.4802124 + 38 128 0.5103457 + 39 128 0.5431191 + 40 128 0.5783027 + 41 128 0.6156256 + 42 128 0.6547768 + 43 128 0.6954091 + 44 128 0.7474417 + 45 128 0.7912319 + 46 128 0.8193073 + 47 128 0.8614713 + 48 128 0.9029496 + 49 128 0.9432857 + 50 128 0.9820349 + 51 128 1.000000 + 52 128 1.000000 + 53 128 1.000000 + 54 128 1.000000 + 55 128 1.000000 + 56 128 1.000000 + 57 128 1.000000 + 58 128 1.000000 + 59 128 1.000000 + 60 128 1.000000 + 61 128 1.000000 + 62 128 1.000000 + 63 128 1.000000 + 64 128 1.000000 + 65 128 1.000000 + 66 128 1.000000 + 67 128 1.000000 + 68 128 1.000000 + 69 128 1.000000 + 70 128 1.000000 + 71 128 1.000000 + 72 128 1.000000 + 73 128 1.000000 + 74 128 1.000000 + 75 128 1.000000 + 76 128 1.000000 + 77 128 1.000000 + 78 128 1.000000 + 79 128 1.000000 + 80 128 1.000000 + 81 128 1.000000 + 82 128 1.000000 + 83 128 1.000000 + 84 128 1.000000 + 85 128 1.000000 + 86 128 1.000000 + 87 128 1.000000 + 88 128 1.000000 + 89 128 1.000000 + 90 128 1.000000 + 91 128 1.000000 + 92 128 1.000000 + 93 128 1.000000 + 94 128 1.000000 + 95 128 1.000000 + 96 128 1.000000 + 97 128 1.000000 + 98 128 1.000000 + 99 128 1.000000 + 100 128 1.000000 + 101 128 1.000000 + 102 128 1.000000 + 103 128 1.000000 + 104 128 1.000000 + 105 128 1.000000 + 106 128 1.000000 + 107 128 1.000000 + 108 128 1.000000 + 109 128 1.000000 + 110 128 1.000000 + 111 128 1.000000 + 112 128 1.000000 + 113 128 1.000000 + 114 128 1.000000 + 115 128 1.000000 + 116 128 1.000000 + 117 128 1.000000 + 118 128 1.000000 + 119 128 1.000000 + 120 128 1.000000 + 121 128 1.000000 + 122 128 1.000000 + 123 128 1.000000 + 124 128 1.000000 + 125 128 1.000000 + 126 128 1.000000 + 127 128 1.000000 + 128 128 1.000000 + 129 128 1.000000 + 130 128 1.000000 + 131 128 1.000000 + 132 128 1.000000 + 133 128 1.000000 + 134 128 1.000000 + 135 128 1.000000 + 136 128 1.000000 + 137 128 1.000000 + 138 128 1.000000 + 139 128 1.000000 + 140 128 1.000000 + 141 128 1.000000 + 142 128 1.000000 + 143 128 1.000000 + 144 128 1.000000 + 145 128 1.000000 + 146 128 1.000000 + 147 128 1.000000 + 148 128 1.000000 + 149 128 1.000000 + 150 128 1.000000 + 151 128 1.000000 + 152 128 1.000000 + 153 128 1.000000 + 154 128 1.000000 + 155 128 1.000000 + 156 128 1.000000 + 157 128 1.000000 + 158 128 1.000000 + 159 128 1.000000 + 160 128 1.000000 + 1 129 0.5775754 + 2 129 0.5648422 + 3 129 0.5506082 + 4 129 0.5347908 + 5 129 0.5173224 + 6 129 0.4981540 + 7 129 0.4772581 + 8 129 0.4546326 + 9 129 0.4491805 + 10 129 0.4269978 + 11 129 0.4038847 + 12 129 0.3800263 + 13 129 0.3556333 + 14 129 0.3309408 + 15 129 0.3062008 + 16 129 0.2816791 + 17 129 0.2576483 + 18 129 0.2343839 + 19 129 0.2121581 + 20 129 0.1912365 + 21 129 0.1718743 + 22 129 0.1543127 + 23 129 0.1387779 + 24 129 0.1254789 + 25 129 0.1146062 + 26 129 0.1063320 + 27 129 9.8056071E-02 + 28 129 0.3582928 + 29 129 0.3580678 + 30 129 0.3613058 + 31 129 0.3680622 + 32 129 0.3700868 + 33 129 0.3854608 + 34 129 0.4040969 + 35 129 0.4259506 + 36 129 0.4509410 + 37 129 0.4789488 + 38 129 0.5098155 + 39 129 0.5433421 + 40 129 0.5792898 + 41 129 0.6173781 + 42 129 0.6572894 + 43 129 0.6986687 + 44 129 0.7411280 + 45 129 0.7951474 + 46 129 0.8398792 + 47 129 0.8685014 + 48 129 0.9107009 + 49 129 0.9517336 + 50 129 0.9911541 + 51 129 1.000000 + 52 129 1.000000 + 53 129 1.000000 + 54 129 1.000000 + 55 129 1.000000 + 56 129 1.000000 + 57 129 1.000000 + 58 129 1.000000 + 59 129 1.000000 + 60 129 1.000000 + 61 129 1.000000 + 62 129 1.000000 + 63 129 1.000000 + 64 129 1.000000 + 65 129 1.000000 + 66 129 1.000000 + 67 129 1.000000 + 68 129 1.000000 + 69 129 1.000000 + 70 129 1.000000 + 71 129 1.000000 + 72 129 1.000000 + 73 129 1.000000 + 74 129 1.000000 + 75 129 1.000000 + 76 129 1.000000 + 77 129 1.000000 + 78 129 1.000000 + 79 129 1.000000 + 80 129 1.000000 + 81 129 1.000000 + 82 129 1.000000 + 83 129 1.000000 + 84 129 1.000000 + 85 129 1.000000 + 86 129 1.000000 + 87 129 1.000000 + 88 129 1.000000 + 89 129 1.000000 + 90 129 1.000000 + 91 129 1.000000 + 92 129 1.000000 + 93 129 1.000000 + 94 129 1.000000 + 95 129 1.000000 + 96 129 1.000000 + 97 129 1.000000 + 98 129 1.000000 + 99 129 1.000000 + 100 129 1.000000 + 101 129 1.000000 + 102 129 1.000000 + 103 129 1.000000 + 104 129 1.000000 + 105 129 1.000000 + 106 129 1.000000 + 107 129 1.000000 + 108 129 1.000000 + 109 129 1.000000 + 110 129 1.000000 + 111 129 1.000000 + 112 129 1.000000 + 113 129 1.000000 + 114 129 1.000000 + 115 129 1.000000 + 116 129 1.000000 + 117 129 1.000000 + 118 129 1.000000 + 119 129 1.000000 + 120 129 1.000000 + 121 129 1.000000 + 122 129 1.000000 + 123 129 1.000000 + 124 129 1.000000 + 125 129 1.000000 + 126 129 1.000000 + 127 129 1.000000 + 128 129 1.000000 + 129 129 1.000000 + 130 129 1.000000 + 131 129 1.000000 + 132 129 1.000000 + 133 129 1.000000 + 134 129 1.000000 + 135 129 1.000000 + 136 129 1.000000 + 137 129 1.000000 + 138 129 1.000000 + 139 129 1.000000 + 140 129 1.000000 + 141 129 1.000000 + 142 129 1.000000 + 143 129 1.000000 + 144 129 1.000000 + 145 129 1.000000 + 146 129 1.000000 + 147 129 1.000000 + 148 129 1.000000 + 149 129 1.000000 + 150 129 1.000000 + 151 129 1.000000 + 152 129 1.000000 + 153 129 1.000000 + 154 129 1.000000 + 155 129 1.000000 + 156 129 1.000000 + 157 129 1.000000 + 158 129 1.000000 + 159 129 1.000000 + 160 129 1.000000 + 1 130 0.7430810 + 2 130 0.7300634 + 3 130 0.5492455 + 4 130 0.5335323 + 5 130 0.5161564 + 6 130 0.4970625 + 7 130 0.4762163 + 8 130 0.4536082 + 9 130 0.4482325 + 10 130 0.4260172 + 11 130 0.4028297 + 12 130 0.3788513 + 13 130 0.3542919 + 14 130 0.3293866 + 15 130 0.3043909 + 16 130 0.2795756 + 17 130 0.2552205 + 18 130 0.2316095 + 19 130 0.2090258 + 20 130 0.1877456 + 21 130 0.1680359 + 22 130 0.1501502 + 23 130 0.1343251 + 24 130 0.1207802 + 25 130 0.1097153 + 26 130 0.1013098 + 27 130 0.3560454 + 28 130 0.3524594 + 29 130 0.3523389 + 30 130 0.3557679 + 31 130 0.3627994 + 32 130 0.3650809 + 33 130 0.3809105 + 34 130 0.4000672 + 35 130 0.4224984 + 36 130 0.4481147 + 37 130 0.4767880 + 38 130 0.5083510 + 39 130 0.5425954 + 40 130 0.5792734 + 41 130 0.6180968 + 42 130 0.6587405 + 43 130 0.7008433 + 44 130 0.7440114 + 45 130 0.7979921 + 46 130 0.8432919 + 47 130 0.8884441 + 48 130 0.9329857 + 49 130 0.9589007 + 50 130 0.9989937 + 51 130 1.000000 + 52 130 1.000000 + 53 130 1.000000 + 54 130 1.000000 + 55 130 1.000000 + 56 130 1.000000 + 57 130 1.000000 + 58 130 1.000000 + 59 130 1.000000 + 60 130 1.000000 + 61 130 1.000000 + 62 130 1.000000 + 63 130 1.000000 + 64 130 1.000000 + 65 130 1.000000 + 66 130 1.000000 + 67 130 1.000000 + 68 130 1.000000 + 69 130 1.000000 + 70 130 1.000000 + 71 130 1.000000 + 72 130 1.000000 + 73 130 1.000000 + 74 130 1.000000 + 75 130 1.000000 + 76 130 1.000000 + 77 130 1.000000 + 78 130 1.000000 + 79 130 1.000000 + 80 130 1.000000 + 81 130 1.000000 + 82 130 1.000000 + 83 130 1.000000 + 84 130 1.000000 + 85 130 1.000000 + 86 130 1.000000 + 87 130 1.000000 + 88 130 1.000000 + 89 130 1.000000 + 90 130 1.000000 + 91 130 1.000000 + 92 130 1.000000 + 93 130 1.000000 + 94 130 1.000000 + 95 130 1.000000 + 96 130 1.000000 + 97 130 1.000000 + 98 130 1.000000 + 99 130 1.000000 + 100 130 1.000000 + 101 130 1.000000 + 102 130 1.000000 + 103 130 1.000000 + 104 130 1.000000 + 105 130 1.000000 + 106 130 1.000000 + 107 130 1.000000 + 108 130 1.000000 + 109 130 1.000000 + 110 130 1.000000 + 111 130 1.000000 + 112 130 1.000000 + 113 130 1.000000 + 114 130 1.000000 + 115 130 1.000000 + 116 130 1.000000 + 117 130 1.000000 + 118 130 1.000000 + 119 130 1.000000 + 120 130 1.000000 + 121 130 1.000000 + 122 130 1.000000 + 123 130 1.000000 + 124 130 1.000000 + 125 130 1.000000 + 126 130 1.000000 + 127 130 1.000000 + 128 130 1.000000 + 129 130 1.000000 + 130 130 1.000000 + 131 130 1.000000 + 132 130 1.000000 + 133 130 1.000000 + 134 130 1.000000 + 135 130 1.000000 + 136 130 1.000000 + 137 130 1.000000 + 138 130 1.000000 + 139 130 1.000000 + 140 130 1.000000 + 141 130 1.000000 + 142 130 1.000000 + 143 130 1.000000 + 144 130 1.000000 + 145 130 1.000000 + 146 130 1.000000 + 147 130 1.000000 + 148 130 1.000000 + 149 130 1.000000 + 150 130 1.000000 + 151 130 1.000000 + 152 130 1.000000 + 153 130 1.000000 + 154 130 1.000000 + 155 130 1.000000 + 156 130 1.000000 + 157 130 1.000000 + 158 130 1.000000 + 159 130 1.000000 + 160 130 1.000000 + 1 131 0.7414010 + 2 131 0.7284902 + 3 131 0.5478225 + 4 131 0.5322060 + 5 131 0.5149158 + 6 131 0.4958909 + 7 131 0.4750902 + 8 131 0.4524967 + 9 131 0.4471694 + 10 131 0.4249165 + 11 131 0.4016495 + 12 131 0.3775466 + 13 131 0.3528157 + 14 131 0.3276928 + 15 131 0.3024354 + 16 131 0.2773189 + 17 131 0.2526298 + 18 131 0.2286604 + 19 131 0.2057043 + 20 131 0.1840483 + 21 131 0.1639718 + 22 131 0.1457387 + 23 131 0.1295984 + 24 131 0.1157804 + 25 131 0.1044935 + 26 131 0.3594179 + 27 131 0.3528026 + 28 131 0.3461352 + 29 131 0.3460796 + 30 131 0.3496587 + 31 131 0.3509450 + 32 131 0.3594199 + 33 131 0.3756634 + 34 131 0.3952980 + 35 131 0.4182647 + 36 131 0.4444659 + 37 131 0.4737650 + 38 131 0.5059852 + 39 131 0.5409105 + 40 131 0.5782840 + 41 131 0.6178110 + 42 131 0.6591587 + 43 131 0.7019603 + 44 131 0.7458186 + 45 131 0.7903091 + 46 131 0.8456576 + 47 131 0.8913516 + 48 131 0.9364091 + 49 131 0.9803689 + 50 131 1.000000 + 51 131 1.000000 + 52 131 1.000000 + 53 131 1.000000 + 54 131 1.000000 + 55 131 1.000000 + 56 131 1.000000 + 57 131 1.000000 + 58 131 1.000000 + 59 131 1.000000 + 60 131 1.000000 + 61 131 1.000000 + 62 131 1.000000 + 63 131 0.9937255 + 64 131 1.000000 + 65 131 1.000000 + 66 131 1.000000 + 67 131 1.000000 + 68 131 1.000000 + 69 131 1.000000 + 70 131 1.000000 + 71 131 1.000000 + 72 131 1.000000 + 73 131 1.000000 + 74 131 1.000000 + 75 131 1.000000 + 76 131 1.000000 + 77 131 1.000000 + 78 131 1.000000 + 79 131 1.000000 + 80 131 1.000000 + 81 131 1.000000 + 82 131 1.000000 + 83 131 1.000000 + 84 131 1.000000 + 85 131 1.000000 + 86 131 1.000000 + 87 131 1.000000 + 88 131 1.000000 + 89 131 1.000000 + 90 131 1.000000 + 91 131 1.000000 + 92 131 1.000000 + 93 131 1.000000 + 94 131 1.000000 + 95 131 1.000000 + 96 131 1.000000 + 97 131 1.000000 + 98 131 1.000000 + 99 131 1.000000 + 100 131 1.000000 + 101 131 1.000000 + 102 131 1.000000 + 103 131 1.000000 + 104 131 1.000000 + 105 131 1.000000 + 106 131 1.000000 + 107 131 1.000000 + 108 131 1.000000 + 109 131 1.000000 + 110 131 1.000000 + 111 131 1.000000 + 112 131 1.000000 + 113 131 1.000000 + 114 131 1.000000 + 115 131 1.000000 + 116 131 1.000000 + 117 131 1.000000 + 118 131 1.000000 + 119 131 1.000000 + 120 131 1.000000 + 121 131 1.000000 + 122 131 1.000000 + 123 131 1.000000 + 124 131 1.000000 + 125 131 1.000000 + 126 131 1.000000 + 127 131 1.000000 + 128 131 1.000000 + 129 131 1.000000 + 130 131 1.000000 + 131 131 1.000000 + 132 131 1.000000 + 133 131 1.000000 + 134 131 1.000000 + 135 131 1.000000 + 136 131 1.000000 + 137 131 1.000000 + 138 131 1.000000 + 139 131 1.000000 + 140 131 1.000000 + 141 131 1.000000 + 142 131 1.000000 + 143 131 1.000000 + 144 131 1.000000 + 145 131 1.000000 + 146 131 1.000000 + 147 131 1.000000 + 148 131 1.000000 + 149 131 1.000000 + 150 131 1.000000 + 151 131 1.000000 + 152 131 1.000000 + 153 131 1.000000 + 154 131 1.000000 + 155 131 1.000000 + 156 131 1.000000 + 157 131 1.000000 + 158 131 1.000000 + 159 131 1.000000 + 160 131 1.000000 + 1 132 0.7396894 + 2 132 0.7268784 + 3 132 0.5463555 + 4 132 0.5308290 + 5 132 0.5136192 + 6 132 0.4946590 + 7 132 0.4739008 + 8 132 0.4513206 + 9 132 0.4460152 + 10 132 0.4237206 + 11 132 0.4003708 + 12 132 0.3761403 + 13 132 0.3512352 + 14 132 0.3258909 + 15 132 0.3003675 + 16 132 0.2749441 + 17 132 0.2499131 + 18 132 0.2255757 + 19 132 0.2022342 + 20 132 0.1801872 + 21 132 0.1597249 + 22 132 0.1411237 + 23 132 0.1246438 + 24 132 0.3764083 + 25 132 0.3629814 + 26 132 0.3527843 + 27 132 0.3460170 + 28 132 0.3393723 + 29 132 0.3393408 + 30 132 0.3430281 + 31 132 0.3445652 + 32 132 0.3531509 + 33 132 0.3697634 + 34 132 0.3898323 + 35 132 0.4132911 + 36 132 0.4400346 + 37 132 0.4699171 + 38 132 0.5027552 + 39 132 0.5383229 + 40 132 0.5763568 + 41 132 0.6165543 + 42 132 0.6585770 + 43 132 0.7020530 + 44 132 0.7465804 + 45 132 0.7917323 + 46 132 0.8470043 + 47 132 0.8932437 + 48 132 0.9388281 + 49 132 0.9832963 + 50 132 1.000000 + 51 132 1.000000 + 52 132 1.000000 + 53 132 1.000000 + 54 132 1.000000 + 55 132 1.000000 + 56 132 1.000000 + 57 132 1.000000 + 58 132 1.000000 + 59 132 1.000000 + 60 132 1.000000 + 61 132 1.000000 + 62 132 1.000000 + 63 132 1.000000 + 64 132 1.000000 + 65 132 1.000000 + 66 132 1.000000 + 67 132 1.000000 + 68 132 1.000000 + 69 132 1.000000 + 70 132 1.000000 + 71 132 1.000000 + 72 132 1.000000 + 73 132 1.000000 + 74 132 1.000000 + 75 132 1.000000 + 76 132 1.000000 + 77 132 1.000000 + 78 132 1.000000 + 79 132 1.000000 + 80 132 1.000000 + 81 132 1.000000 + 82 132 1.000000 + 83 132 1.000000 + 84 132 1.000000 + 85 132 1.000000 + 86 132 1.000000 + 87 132 1.000000 + 88 132 1.000000 + 89 132 1.000000 + 90 132 1.000000 + 91 132 1.000000 + 92 132 1.000000 + 93 132 1.000000 + 94 132 1.000000 + 95 132 1.000000 + 96 132 1.000000 + 97 132 1.000000 + 98 132 1.000000 + 99 132 1.000000 + 100 132 1.000000 + 101 132 1.000000 + 102 132 1.000000 + 103 132 1.000000 + 104 132 1.000000 + 105 132 1.000000 + 106 132 1.000000 + 107 132 1.000000 + 108 132 1.000000 + 109 132 1.000000 + 110 132 1.000000 + 111 132 1.000000 + 112 132 1.000000 + 113 132 1.000000 + 114 132 1.000000 + 115 132 1.000000 + 116 132 1.000000 + 117 132 1.000000 + 118 132 1.000000 + 119 132 1.000000 + 120 132 1.000000 + 121 132 1.000000 + 122 132 1.000000 + 123 132 1.000000 + 124 132 1.000000 + 125 132 1.000000 + 126 132 1.000000 + 127 132 1.000000 + 128 132 1.000000 + 129 132 1.000000 + 130 132 1.000000 + 131 132 1.000000 + 132 132 1.000000 + 133 132 1.000000 + 134 132 1.000000 + 135 132 1.000000 + 136 132 1.000000 + 137 132 1.000000 + 138 132 1.000000 + 139 132 1.000000 + 140 132 1.000000 + 141 132 1.000000 + 142 132 1.000000 + 143 132 1.000000 + 144 132 1.000000 + 145 132 1.000000 + 146 132 1.000000 + 147 132 1.000000 + 148 132 1.000000 + 149 132 1.000000 + 150 132 1.000000 + 151 132 1.000000 + 152 132 1.000000 + 153 132 1.000000 + 154 132 1.000000 + 155 132 1.000000 + 156 132 1.000000 + 157 132 1.000000 + 158 132 1.000000 + 159 132 1.000000 + 160 132 1.000000 + 1 133 0.7379593 + 2 133 0.7252424 + 3 133 0.5448591 + 4 133 0.5294178 + 5 133 0.5122840 + 6 133 0.4933853 + 7 133 0.4726681 + 8 133 0.4501005 + 9 133 0.4447933 + 10 133 0.4224542 + 11 133 0.3990195 + 12 133 0.3746598 + 13 133 0.3495791 + 14 133 0.3240120 + 15 133 0.2982201 + 16 133 0.2724855 + 17 133 0.2471072 + 18 133 0.2223935 + 19 133 0.1986559 + 20 133 0.1762039 + 21 133 0.1553391 + 22 133 0.1363498 + 23 133 0.3868604 + 24 133 0.3700514 + 25 133 0.3562985 + 26 133 0.3458392 + 27 133 0.3388802 + 28 133 0.3322245 + 29 133 0.3321752 + 30 133 0.3359280 + 31 133 0.3376768 + 32 133 0.3463232 + 33 133 0.3632588 + 34 133 0.3837163 + 35 133 0.4076222 + 36 133 0.4348633 + 37 133 0.4652869 + 38 133 0.4987007 + 39 133 0.5348721 + 40 133 0.5735294 + 41 133 0.6143641 + 42 133 0.6570322 + 43 133 0.7011567 + 44 133 0.7463325 + 45 133 0.7921297 + 46 133 0.8381013 + 47 133 0.8941498 + 48 133 0.9402705 + 49 133 0.9852633 + 50 133 1.000000 + 51 133 1.000000 + 52 133 1.000000 + 53 133 1.000000 + 54 133 1.000000 + 55 133 1.000000 + 56 133 1.000000 + 57 133 1.000000 + 58 133 1.000000 + 59 133 1.000000 + 60 133 0.9937255 + 61 133 1.000000 + 62 133 1.000000 + 63 133 1.000000 + 64 133 1.000000 + 65 133 1.000000 + 66 133 1.000000 + 67 133 1.000000 + 68 133 1.000000 + 69 133 1.000000 + 70 133 1.000000 + 71 133 1.000000 + 72 133 1.000000 + 73 133 1.000000 + 74 133 1.000000 + 75 133 1.000000 + 76 133 1.000000 + 77 133 1.000000 + 78 133 1.000000 + 79 133 1.000000 + 80 133 1.000000 + 81 133 1.000000 + 82 133 1.000000 + 83 133 1.000000 + 84 133 1.000000 + 85 133 1.000000 + 86 133 1.000000 + 87 133 1.000000 + 88 133 1.000000 + 89 133 1.000000 + 90 133 1.000000 + 91 133 1.000000 + 92 133 1.000000 + 93 133 1.000000 + 94 133 1.000000 + 95 133 1.000000 + 96 133 1.000000 + 97 133 1.000000 + 98 133 1.000000 + 99 133 1.000000 + 100 133 1.000000 + 101 133 1.000000 + 102 133 1.000000 + 103 133 1.000000 + 104 133 1.000000 + 105 133 1.000000 + 106 133 1.000000 + 107 133 1.000000 + 108 133 1.000000 + 109 133 1.000000 + 110 133 1.000000 + 111 133 1.000000 + 112 133 1.000000 + 113 133 1.000000 + 114 133 1.000000 + 115 133 1.000000 + 116 133 1.000000 + 117 133 1.000000 + 118 133 1.000000 + 119 133 1.000000 + 120 133 1.000000 + 121 133 1.000000 + 122 133 1.000000 + 123 133 1.000000 + 124 133 1.000000 + 125 133 1.000000 + 126 133 1.000000 + 127 133 1.000000 + 128 133 1.000000 + 129 133 1.000000 + 130 133 1.000000 + 131 133 1.000000 + 132 133 1.000000 + 133 133 1.000000 + 134 133 1.000000 + 135 133 1.000000 + 136 133 1.000000 + 137 133 1.000000 + 138 133 1.000000 + 139 133 1.000000 + 140 133 1.000000 + 141 133 1.000000 + 142 133 1.000000 + 143 133 1.000000 + 144 133 1.000000 + 145 133 1.000000 + 146 133 1.000000 + 147 133 1.000000 + 148 133 1.000000 + 149 133 1.000000 + 150 133 1.000000 + 151 133 1.000000 + 152 133 1.000000 + 153 133 1.000000 + 154 133 1.000000 + 155 133 1.000000 + 156 133 1.000000 + 157 133 1.000000 + 158 133 1.000000 + 159 133 1.000000 + 160 133 1.000000 + 1 134 0.7362233 + 2 134 0.7235955 + 3 134 0.5433478 + 4 134 0.5279880 + 5 134 0.5109273 + 6 134 0.4920879 + 7 134 0.4714107 + 8 134 0.4488576 + 9 134 0.4435249 + 10 134 0.4211402 + 11 134 0.3976204 + 12 134 0.3731318 + 13 134 0.3478758 + 14 134 0.3220857 + 15 134 0.2960240 + 16 134 0.2699768 + 17 134 0.2442472 + 18 134 0.2191509 + 19 134 0.1950086 + 20 134 0.1721400 + 21 134 0.4233432 + 22 134 0.4007714 + 23 134 0.3807242 + 24 134 0.3635066 + 25 134 0.3493954 + 26 134 0.3386376 + 27 134 0.3314484 + 28 134 0.3247460 + 29 134 0.3246370 + 30 134 0.3284113 + 31 134 0.3303318 + 32 134 0.3389877 + 33 134 0.3561995 + 34 134 0.3769986 + 35 134 0.4013048 + 36 134 0.4289979 + 37 134 0.4599183 + 38 134 0.4938653 + 39 134 0.5305998 + 40 134 0.5698432 + 41 134 0.6112808 + 42 134 0.6545634 + 43 134 0.6993100 + 44 134 0.7451122 + 45 134 0.7915384 + 46 134 0.8381398 + 47 134 0.8941017 + 48 134 0.9407660 + 49 134 0.9862977 + 50 134 0.8424932 + 51 134 0.8796597 + 52 134 0.9155741 + 53 134 1.000000 + 54 134 1.000000 + 55 134 1.000000 + 56 134 1.000000 + 57 134 1.000000 + 58 134 1.000000 + 59 134 1.000000 + 60 134 1.000000 + 61 134 1.000000 + 62 134 1.000000 + 63 134 1.000000 + 64 134 1.000000 + 65 134 1.000000 + 66 134 1.000000 + 67 134 1.000000 + 68 134 1.000000 + 69 134 1.000000 + 70 134 1.000000 + 71 134 1.000000 + 72 134 1.000000 + 73 134 1.000000 + 74 134 1.000000 + 75 134 1.000000 + 76 134 1.000000 + 77 134 1.000000 + 78 134 1.000000 + 79 134 1.000000 + 80 134 1.000000 + 81 134 1.000000 + 82 134 1.000000 + 83 134 1.000000 + 84 134 1.000000 + 85 134 1.000000 + 86 134 1.000000 + 87 134 1.000000 + 88 134 1.000000 + 89 134 1.000000 + 90 134 1.000000 + 91 134 1.000000 + 92 134 1.000000 + 93 134 1.000000 + 94 134 1.000000 + 95 134 1.000000 + 96 134 1.000000 + 97 134 1.000000 + 98 134 1.000000 + 99 134 1.000000 + 100 134 1.000000 + 101 134 1.000000 + 102 134 1.000000 + 103 134 1.000000 + 104 134 1.000000 + 105 134 1.000000 + 106 134 1.000000 + 107 134 1.000000 + 108 134 1.000000 + 109 134 1.000000 + 110 134 1.000000 + 111 134 1.000000 + 112 134 1.000000 + 113 134 1.000000 + 114 134 1.000000 + 115 134 1.000000 + 116 134 1.000000 + 117 134 1.000000 + 118 134 1.000000 + 119 134 1.000000 + 120 134 1.000000 + 121 134 1.000000 + 122 134 1.000000 + 123 134 1.000000 + 124 134 1.000000 + 125 134 1.000000 + 126 134 1.000000 + 127 134 1.000000 + 128 134 1.000000 + 129 134 1.000000 + 130 134 1.000000 + 131 134 1.000000 + 132 134 1.000000 + 133 134 1.000000 + 134 134 1.000000 + 135 134 1.000000 + 136 134 1.000000 + 137 134 1.000000 + 138 134 1.000000 + 139 134 1.000000 + 140 134 1.000000 + 141 134 1.000000 + 142 134 1.000000 + 143 134 1.000000 + 144 134 1.000000 + 145 134 1.000000 + 146 134 1.000000 + 147 134 1.000000 + 148 134 1.000000 + 149 134 1.000000 + 150 134 1.000000 + 151 134 1.000000 + 152 134 1.000000 + 153 134 1.000000 + 154 134 1.000000 + 155 134 1.000000 + 156 134 1.000000 + 157 134 1.000000 + 158 134 1.000000 + 159 134 1.000000 + 160 134 1.000000 + 1 135 0.7344937 + 2 135 0.7219505 + 3 135 0.8783298 + 4 135 0.8605468 + 5 135 0.8407754 + 6 135 0.8189199 + 7 135 0.7949047 + 8 135 0.4476095 + 9 135 0.4422310 + 10 135 0.4198007 + 11 135 0.3961965 + 12 135 0.3715804 + 13 135 0.3461510 + 14 135 0.3201402 + 15 135 0.2938104 + 16 135 0.2674499 + 17 135 0.2413672 + 18 135 0.2158843 + 19 135 0.4704420 + 20 135 0.4433329 + 21 135 0.4180647 + 22 135 0.3950000 + 23 135 0.3744818 + 24 135 0.3568276 + 25 135 0.3423264 + 26 135 0.3312351 + 27 135 0.3237770 + 28 135 0.3169921 + 29 135 0.3167802 + 30 135 0.3205316 + 31 135 0.3225836 + 32 135 0.3311975 + 33 135 0.3486367 + 34 135 0.3697289 + 35 135 0.3943877 + 36 135 0.4224863 + 37 135 0.4538574 + 38 135 0.4882945 + 39 135 0.5255507 + 40 135 0.5653414 + 41 135 0.6073469 + 42 135 0.6512126 + 43 135 0.6965540 + 44 135 0.7429599 + 45 135 0.7899978 + 46 135 0.8372166 + 47 135 0.8841560 + 48 135 0.7628171 + 49 135 0.8036583 + 50 135 0.8430986 + 51 135 0.8807567 + 52 135 0.9162743 + 53 135 1.000000 + 54 135 1.000000 + 55 135 1.000000 + 56 135 1.000000 + 57 135 1.000000 + 58 135 1.000000 + 59 135 1.000000 + 60 135 1.000000 + 61 135 1.000000 + 62 135 1.000000 + 63 135 1.000000 + 64 135 1.000000 + 65 135 1.000000 + 66 135 1.000000 + 67 135 1.000000 + 68 135 1.000000 + 69 135 1.000000 + 70 135 1.000000 + 71 135 1.000000 + 72 135 1.000000 + 73 135 1.000000 + 74 135 1.000000 + 75 135 1.000000 + 76 135 1.000000 + 77 135 1.000000 + 78 135 1.000000 + 79 135 1.000000 + 80 135 1.000000 + 81 135 1.000000 + 82 135 1.000000 + 83 135 1.000000 + 84 135 1.000000 + 85 135 1.000000 + 86 135 1.000000 + 87 135 1.000000 + 88 135 1.000000 + 89 135 1.000000 + 90 135 1.000000 + 91 135 1.000000 + 92 135 1.000000 + 93 135 1.000000 + 94 135 1.000000 + 95 135 1.000000 + 96 135 1.000000 + 97 135 1.000000 + 98 135 1.000000 + 99 135 1.000000 + 100 135 1.000000 + 101 135 1.000000 + 102 135 1.000000 + 103 135 1.000000 + 104 135 1.000000 + 105 135 1.000000 + 106 135 1.000000 + 107 135 1.000000 + 108 135 1.000000 + 109 135 1.000000 + 110 135 1.000000 + 111 135 1.000000 + 112 135 1.000000 + 113 135 1.000000 + 114 135 1.000000 + 115 135 1.000000 + 116 135 1.000000 + 117 135 1.000000 + 118 135 1.000000 + 119 135 1.000000 + 120 135 1.000000 + 121 135 1.000000 + 122 135 1.000000 + 123 135 1.000000 + 124 135 1.000000 + 125 135 1.000000 + 126 135 1.000000 + 127 135 1.000000 + 128 135 1.000000 + 129 135 1.000000 + 130 135 1.000000 + 131 135 1.000000 + 132 135 1.000000 + 133 135 1.000000 + 134 135 1.000000 + 135 135 1.000000 + 136 135 1.000000 + 137 135 1.000000 + 138 135 1.000000 + 139 135 1.000000 + 140 135 1.000000 + 141 135 1.000000 + 142 135 1.000000 + 143 135 1.000000 + 144 135 1.000000 + 145 135 1.000000 + 146 135 1.000000 + 147 135 1.000000 + 148 135 1.000000 + 149 135 1.000000 + 150 135 1.000000 + 151 135 1.000000 + 152 135 1.000000 + 153 135 1.000000 + 154 135 1.000000 + 155 135 1.000000 + 156 135 1.000000 + 157 135 1.000000 + 158 135 1.000000 + 159 135 1.000000 + 160 135 1.000000 + 1 136 0.7327802 + 2 136 0.7203192 + 3 136 0.8765814 + 4 136 0.8588874 + 5 136 0.8391968 + 6 136 0.8174100 + 7 136 0.7934441 + 8 136 0.7672406 + 9 136 0.7609057 + 10 136 0.7347519 + 11 136 0.3947699 + 12 136 0.3700294 + 13 136 0.3444300 + 14 136 0.3182015 + 15 136 0.2916064 + 16 136 0.5560969 + 17 136 0.5253331 + 18 136 0.4952263 + 19 136 0.4661676 + 20 136 0.4385525 + 21 136 0.4127695 + 22 136 0.3891945 + 23 136 0.3681830 + 24 136 0.3500663 + 25 136 0.3351448 + 26 136 0.3236857 + 27 136 0.3159212 + 28 136 0.3090165 + 29 136 0.3086593 + 30 136 0.3055600 + 31 136 0.3144848 + 32 136 0.3230049 + 33 136 0.3406224 + 34 136 0.3619583 + 35 136 0.3869207 + 36 136 0.4153769 + 37 136 0.4471527 + 38 136 0.4820348 + 39 136 0.5197704 + 40 136 0.5600698 + 41 136 0.6026065 + 42 136 0.6470232 + 43 136 0.6929317 + 44 136 0.7399182 + 45 136 0.7875481 + 46 136 0.6697800 + 47 136 0.7119269 + 48 136 0.7534242 + 49 136 0.8030017 + 50 136 0.8429449 + 51 136 0.8811129 + 52 136 0.9171472 + 53 136 1.000000 + 54 136 1.000000 + 55 136 1.000000 + 56 136 1.000000 + 57 136 1.000000 + 58 136 1.000000 + 59 136 1.000000 + 60 136 1.000000 + 61 136 1.000000 + 62 136 1.000000 + 63 136 1.000000 + 64 136 1.000000 + 65 136 1.000000 + 66 136 1.000000 + 67 136 1.000000 + 68 136 1.000000 + 69 136 1.000000 + 70 136 1.000000 + 71 136 1.000000 + 72 136 1.000000 + 73 136 1.000000 + 74 136 1.000000 + 75 136 1.000000 + 76 136 1.000000 + 77 136 1.000000 + 78 136 1.000000 + 79 136 1.000000 + 80 136 1.000000 + 81 136 1.000000 + 82 136 1.000000 + 83 136 1.000000 + 84 136 1.000000 + 85 136 1.000000 + 86 136 1.000000 + 87 136 1.000000 + 88 136 1.000000 + 89 136 1.000000 + 90 136 1.000000 + 91 136 1.000000 + 92 136 1.000000 + 93 136 1.000000 + 94 136 1.000000 + 95 136 1.000000 + 96 136 1.000000 + 97 136 1.000000 + 98 136 1.000000 + 99 136 1.000000 + 100 136 1.000000 + 101 136 1.000000 + 102 136 1.000000 + 103 136 1.000000 + 104 136 1.000000 + 105 136 1.000000 + 106 136 1.000000 + 107 136 1.000000 + 108 136 1.000000 + 109 136 1.000000 + 110 136 1.000000 + 111 136 1.000000 + 112 136 1.000000 + 113 136 1.000000 + 114 136 1.000000 + 115 136 1.000000 + 116 136 1.000000 + 117 136 1.000000 + 118 136 1.000000 + 119 136 1.000000 + 120 136 1.000000 + 121 136 1.000000 + 122 136 1.000000 + 123 136 1.000000 + 124 136 1.000000 + 125 136 1.000000 + 126 136 1.000000 + 127 136 1.000000 + 128 136 1.000000 + 129 136 1.000000 + 130 136 1.000000 + 131 136 1.000000 + 132 136 1.000000 + 133 136 1.000000 + 134 136 1.000000 + 135 136 1.000000 + 136 136 1.000000 + 137 136 1.000000 + 138 136 1.000000 + 139 136 1.000000 + 140 136 1.000000 + 141 136 1.000000 + 142 136 1.000000 + 143 136 1.000000 + 144 136 1.000000 + 145 136 1.000000 + 146 136 1.000000 + 147 136 1.000000 + 148 136 1.000000 + 149 136 1.000000 + 150 136 1.000000 + 151 136 1.000000 + 152 136 1.000000 + 153 136 1.000000 + 154 136 1.000000 + 155 136 1.000000 + 156 136 1.000000 + 157 136 1.000000 + 158 136 1.000000 + 159 136 1.000000 + 160 136 1.000000 + 1 137 0.7310929 + 2 137 0.7187120 + 3 137 0.8748583 + 4 137 0.8572517 + 5 137 0.8376426 + 6 137 0.8159249 + 7 137 0.7920110 + 8 137 0.7658358 + 9 137 0.7594050 + 10 137 0.7332026 + 11 137 0.7055474 + 12 137 0.3685000 + 13 137 0.3427355 + 14 137 0.6158645 + 15 137 0.5846123 + 16 137 0.5532163 + 17 137 0.5220444 + 18 137 0.4914850 + 19 137 0.4619390 + 20 137 0.4338110 + 21 137 0.4075021 + 22 137 0.3834010 + 23 137 0.3618768 + 24 137 0.3432730 + 25 137 0.3279023 + 26 137 0.3160427 + 27 137 0.3079347 + 28 137 0.3037799 + 29 137 0.3003275 + 30 137 0.2972200 + 31 137 0.3060883 + 32 137 0.3144633 + 33 137 0.3322086 + 34 137 0.3537382 + 35 137 0.3789547 + 36 137 0.4077196 + 37 137 0.4398528 + 38 137 0.4751346 + 39 137 0.5133070 + 40 137 0.5540740 + 41 137 0.5971057 + 42 137 0.6420403 + 43 137 0.6884867 + 44 137 0.7360291 + 45 137 0.6244568 + 46 137 0.6673634 + 47 137 0.7100475 + 48 137 0.7520978 + 49 137 0.8016009 + 50 137 0.8420583 + 51 137 0.8807526 + 52 137 0.9173248 + 53 137 1.000000 + 54 137 1.000000 + 55 137 1.000000 + 56 137 1.000000 + 57 137 1.000000 + 58 137 1.000000 + 59 137 1.000000 + 60 137 1.000000 + 61 137 1.000000 + 62 137 1.000000 + 63 137 1.000000 + 64 137 1.000000 + 65 137 1.000000 + 66 137 1.000000 + 67 137 1.000000 + 68 137 1.000000 + 69 137 1.000000 + 70 137 1.000000 + 71 137 1.000000 + 72 137 1.000000 + 73 137 1.000000 + 74 137 1.000000 + 75 137 1.000000 + 76 137 1.000000 + 77 137 1.000000 + 78 137 1.000000 + 79 137 1.000000 + 80 137 1.000000 + 81 137 1.000000 + 82 137 1.000000 + 83 137 1.000000 + 84 137 1.000000 + 85 137 1.000000 + 86 137 1.000000 + 87 137 1.000000 + 88 137 1.000000 + 89 137 1.000000 + 90 137 1.000000 + 91 137 1.000000 + 92 137 1.000000 + 93 137 1.000000 + 94 137 1.000000 + 95 137 1.000000 + 96 137 1.000000 + 97 137 1.000000 + 98 137 1.000000 + 99 137 1.000000 + 100 137 1.000000 + 101 137 1.000000 + 102 137 1.000000 + 103 137 1.000000 + 104 137 1.000000 + 105 137 1.000000 + 106 137 1.000000 + 107 137 1.000000 + 108 137 1.000000 + 109 137 1.000000 + 110 137 1.000000 + 111 137 1.000000 + 112 137 1.000000 + 113 137 1.000000 + 114 137 1.000000 + 115 137 1.000000 + 116 137 1.000000 + 117 137 1.000000 + 118 137 1.000000 + 119 137 1.000000 + 120 137 1.000000 + 121 137 1.000000 + 122 137 1.000000 + 123 137 1.000000 + 124 137 1.000000 + 125 137 1.000000 + 126 137 1.000000 + 127 137 1.000000 + 128 137 1.000000 + 129 137 1.000000 + 130 137 1.000000 + 131 137 1.000000 + 132 137 1.000000 + 133 137 1.000000 + 134 137 1.000000 + 135 137 1.000000 + 136 137 1.000000 + 137 137 1.000000 + 138 137 1.000000 + 139 137 1.000000 + 140 137 1.000000 + 141 137 1.000000 + 142 137 1.000000 + 143 137 1.000000 + 144 137 1.000000 + 145 137 1.000000 + 146 137 1.000000 + 147 137 1.000000 + 148 137 1.000000 + 149 137 1.000000 + 150 137 1.000000 + 151 137 1.000000 + 152 137 1.000000 + 153 137 1.000000 + 154 137 1.000000 + 155 137 1.000000 + 156 137 1.000000 + 157 137 1.000000 + 158 137 1.000000 + 159 137 1.000000 + 160 137 1.000000 + 1 138 0.7294411 + 2 138 0.7171384 + 3 138 0.8731720 + 4 138 0.8556527 + 5 138 0.8361255 + 6 138 0.8144793 + 7 138 0.7906213 + 8 138 0.7644802 + 9 138 0.7579356 + 10 138 0.7316893 + 11 138 0.7039481 + 12 138 0.6748852 + 13 138 0.6447179 + 14 138 0.6137082 + 15 138 0.5821596 + 16 138 0.5504120 + 17 138 0.5188367 + 18 138 0.4878273 + 19 138 0.4577924 + 20 138 0.4291471 + 21 138 0.4023040 + 22 138 0.3776636 + 23 138 0.3556088 + 24 138 0.3364953 + 25 138 0.3206481 + 26 138 0.3083562 + 27 138 0.2998692 + 28 138 0.2953958 + 29 138 0.2918364 + 30 138 0.2889381 + 31 138 0.2974463 + 32 138 0.3056246 + 33 138 0.3234474 + 34 138 0.3451198 + 35 138 0.3705403 + 36 138 0.3995644 + 37 138 0.4320070 + 38 138 0.4676427 + 39 138 0.5062078 + 40 138 0.5474022 + 41 138 0.5908914 + 42 138 0.4933568 + 43 138 0.5349714 + 44 138 0.5775774 + 45 138 0.6207879 + 46 138 0.6642029 + 47 138 0.7074143 + 48 138 0.7500119 + 49 138 0.7915873 + 50 138 0.8404661 + 51 138 0.8797003 + 52 138 0.9168285 + 53 138 1.000000 + 54 138 1.000000 + 55 138 1.000000 + 56 138 1.000000 + 57 138 1.000000 + 58 138 1.000000 + 59 138 1.000000 + 60 138 1.000000 + 61 138 1.000000 + 62 138 1.000000 + 63 138 1.000000 + 64 138 1.000000 + 65 138 1.000000 + 66 138 1.000000 + 67 138 1.000000 + 68 138 1.000000 + 69 138 1.000000 + 70 138 1.000000 + 71 138 1.000000 + 72 138 1.000000 + 73 138 1.000000 + 74 138 1.000000 + 75 138 1.000000 + 76 138 1.000000 + 77 138 1.000000 + 78 138 1.000000 + 79 138 1.000000 + 80 138 1.000000 + 81 138 1.000000 + 82 138 1.000000 + 83 138 1.000000 + 84 138 1.000000 + 85 138 1.000000 + 86 138 1.000000 + 87 138 1.000000 + 88 138 1.000000 + 89 138 1.000000 + 90 138 1.000000 + 91 138 1.000000 + 92 138 1.000000 + 93 138 1.000000 + 94 138 1.000000 + 95 138 1.000000 + 96 138 1.000000 + 97 138 1.000000 + 98 138 1.000000 + 99 138 1.000000 + 100 138 1.000000 + 101 138 1.000000 + 102 138 1.000000 + 103 138 1.000000 + 104 138 1.000000 + 105 138 1.000000 + 106 138 1.000000 + 107 138 1.000000 + 108 138 1.000000 + 109 138 1.000000 + 110 138 1.000000 + 111 138 1.000000 + 112 138 1.000000 + 113 138 1.000000 + 114 138 1.000000 + 115 138 1.000000 + 116 138 1.000000 + 117 138 1.000000 + 118 138 1.000000 + 119 138 1.000000 + 120 138 1.000000 + 121 138 1.000000 + 122 138 1.000000 + 123 138 1.000000 + 124 138 1.000000 + 125 138 1.000000 + 126 138 1.000000 + 127 138 1.000000 + 128 138 1.000000 + 129 138 1.000000 + 130 138 1.000000 + 131 138 1.000000 + 132 138 1.000000 + 133 138 1.000000 + 134 138 1.000000 + 135 138 1.000000 + 136 138 1.000000 + 137 138 1.000000 + 138 138 1.000000 + 139 138 1.000000 + 140 138 1.000000 + 141 138 1.000000 + 142 138 1.000000 + 143 138 1.000000 + 144 138 1.000000 + 145 138 1.000000 + 146 138 1.000000 + 147 138 1.000000 + 148 138 1.000000 + 149 138 1.000000 + 150 138 1.000000 + 151 138 1.000000 + 152 138 1.000000 + 153 138 1.000000 + 154 138 1.000000 + 155 138 1.000000 + 156 138 1.000000 + 157 138 1.000000 + 158 138 1.000000 + 159 138 1.000000 + 160 138 1.000000 + 1 139 1.000000 + 2 139 1.000000 + 3 139 0.8715332 + 4 139 0.8541014 + 5 139 0.8346575 + 6 139 0.8130862 + 7 139 0.7892891 + 8 139 0.7631885 + 9 139 0.7347323 + 10 139 0.7302294 + 11 139 0.7024097 + 12 139 0.6732218 + 13 139 0.6428783 + 14 139 0.6116381 + 15 139 0.5798022 + 16 139 0.5477118 + 17 139 0.5157394 + 18 139 0.4842841 + 19 139 0.4537619 + 20 139 0.4245973 + 21 139 0.3972131 + 22 139 0.3720230 + 23 139 0.3494215 + 24 139 0.3297780 + 25 139 0.3134291 + 26 139 0.3006745 + 27 139 0.2917739 + 28 139 0.2889381 + 29 139 0.2889381 + 30 139 0.2889381 + 31 139 0.2889381 + 32 139 0.2965401 + 33 139 0.3143893 + 34 139 0.3361538 + 35 139 1.000000 + 36 139 1.000000 + 37 139 1.000000 + 38 139 1.000000 + 39 139 1.000000 + 40 139 1.000000 + 41 139 1.000000 + 42 139 1.000000 + 43 139 1.000000 + 44 139 1.000000 + 45 139 1.000000 + 46 139 1.000000 + 47 139 1.000000 + 48 139 1.000000 + 49 139 1.000000 + 50 139 1.000000 + 51 139 1.000000 + 52 139 1.000000 + 53 139 1.000000 + 54 139 1.000000 + 55 139 1.000000 + 56 139 1.000000 + 57 139 1.000000 + 58 139 1.000000 + 59 139 1.000000 + 60 139 1.000000 + 61 139 1.000000 + 62 139 1.000000 + 63 139 1.000000 + 64 139 1.000000 + 65 139 1.000000 + 66 139 1.000000 + 67 139 1.000000 + 68 139 1.000000 + 69 139 1.000000 + 70 139 1.000000 + 71 139 1.000000 + 72 139 1.000000 + 73 139 1.000000 + 74 139 1.000000 + 75 139 1.000000 + 76 139 1.000000 + 77 139 1.000000 + 78 139 1.000000 + 79 139 1.000000 + 80 139 1.000000 + 81 139 1.000000 + 82 139 1.000000 + 83 139 1.000000 + 84 139 1.000000 + 85 139 1.000000 + 86 139 1.000000 + 87 139 1.000000 + 88 139 1.000000 + 89 139 1.000000 + 90 139 1.000000 + 91 139 1.000000 + 92 139 1.000000 + 93 139 1.000000 + 94 139 1.000000 + 95 139 1.000000 + 96 139 1.000000 + 97 139 1.000000 + 98 139 1.000000 + 99 139 1.000000 + 100 139 1.000000 + 101 139 1.000000 + 102 139 1.000000 + 103 139 1.000000 + 104 139 1.000000 + 105 139 1.000000 + 106 139 1.000000 + 107 139 1.000000 + 108 139 1.000000 + 109 139 1.000000 + 110 139 1.000000 + 111 139 1.000000 + 112 139 1.000000 + 113 139 1.000000 + 114 139 1.000000 + 115 139 1.000000 + 116 139 1.000000 + 117 139 1.000000 + 118 139 1.000000 + 119 139 1.000000 + 120 139 1.000000 + 121 139 1.000000 + 122 139 1.000000 + 123 139 1.000000 + 124 139 1.000000 + 125 139 1.000000 + 126 139 1.000000 + 127 139 1.000000 + 128 139 1.000000 + 129 139 1.000000 + 130 139 1.000000 + 131 139 1.000000 + 132 139 1.000000 + 133 139 1.000000 + 134 139 1.000000 + 135 139 1.000000 + 136 139 1.000000 + 137 139 1.000000 + 138 139 1.000000 + 139 139 1.000000 + 140 139 1.000000 + 141 139 1.000000 + 142 139 1.000000 + 143 139 1.000000 + 144 139 1.000000 + 145 139 1.000000 + 146 139 1.000000 + 147 139 1.000000 + 148 139 1.000000 + 149 139 1.000000 + 150 139 1.000000 + 151 139 1.000000 + 152 139 1.000000 + 153 139 1.000000 + 154 139 1.000000 + 155 139 1.000000 + 156 139 1.000000 + 157 139 1.000000 + 158 139 1.000000 + 159 139 1.000000 + 160 139 1.000000 + 1 140 1.000000 + 2 140 1.000000 + 3 140 0.8699505 + 4 140 0.8526081 + 5 140 0.8332497 + 6 140 0.8117567 + 7 140 0.7880260 + 8 140 0.7619736 + 9 140 0.7335414 + 10 140 0.7288393 + 11 140 0.7009485 + 12 140 0.6716449 + 13 140 0.6411356 + 14 140 0.6096752 + 15 140 0.5775632 + 16 140 0.5451392 + 17 140 0.5127785 + 18 140 0.4808840 + 19 140 0.4498781 + 20 140 0.4201939 + 21 140 0.3922650 + 22 140 0.3665161 + 23 140 0.3433548 + 24 140 0.3231623 + 25 140 0.3062879 + 26 140 0.2930430 + 27 140 0.2889381 + 28 140 0.2889381 + 29 140 0.2889381 + 30 140 0.2889381 + 31 140 0.2889381 + 32 140 0.2889381 + 33 140 0.3050842 + 34 140 0.3268896 + 35 140 1.000000 + 36 140 1.000000 + 37 140 1.000000 + 38 140 1.000000 + 39 140 1.000000 + 40 140 1.000000 + 41 140 1.000000 + 42 140 1.000000 + 43 140 1.000000 + 44 140 1.000000 + 45 140 1.000000 + 46 140 1.000000 + 47 140 1.000000 + 48 140 1.000000 + 49 140 1.000000 + 50 140 1.000000 + 51 140 1.000000 + 52 140 1.000000 + 53 140 1.000000 + 54 140 1.000000 + 55 140 1.000000 + 56 140 1.000000 + 57 140 1.000000 + 58 140 1.000000 + 59 140 1.000000 + 60 140 1.000000 + 61 140 1.000000 + 62 140 1.000000 + 63 140 1.000000 + 64 140 1.000000 + 65 140 1.000000 + 66 140 1.000000 + 67 140 1.000000 + 68 140 1.000000 + 69 140 1.000000 + 70 140 1.000000 + 71 140 1.000000 + 72 140 1.000000 + 73 140 1.000000 + 74 140 1.000000 + 75 140 1.000000 + 76 140 1.000000 + 77 140 1.000000 + 78 140 1.000000 + 79 140 1.000000 + 80 140 1.000000 + 81 140 1.000000 + 82 140 1.000000 + 83 140 1.000000 + 84 140 1.000000 + 85 140 1.000000 + 86 140 1.000000 + 87 140 1.000000 + 88 140 1.000000 + 89 140 1.000000 + 90 140 1.000000 + 91 140 1.000000 + 92 140 1.000000 + 93 140 1.000000 + 94 140 1.000000 + 95 140 1.000000 + 96 140 1.000000 + 97 140 1.000000 + 98 140 1.000000 + 99 140 1.000000 + 100 140 1.000000 + 101 140 1.000000 + 102 140 1.000000 + 103 140 1.000000 + 104 140 1.000000 + 105 140 1.000000 + 106 140 1.000000 + 107 140 1.000000 + 108 140 1.000000 + 109 140 1.000000 + 110 140 1.000000 + 111 140 1.000000 + 112 140 1.000000 + 113 140 1.000000 + 114 140 1.000000 + 115 140 1.000000 + 116 140 1.000000 + 117 140 1.000000 + 118 140 1.000000 + 119 140 1.000000 + 120 140 1.000000 + 121 140 1.000000 + 122 140 1.000000 + 123 140 1.000000 + 124 140 1.000000 + 125 140 1.000000 + 126 140 1.000000 + 127 140 1.000000 + 128 140 1.000000 + 129 140 1.000000 + 130 140 1.000000 + 131 140 1.000000 + 132 140 1.000000 + 133 140 1.000000 + 134 140 1.000000 + 135 140 1.000000 + 136 140 1.000000 + 137 140 1.000000 + 138 140 1.000000 + 139 140 1.000000 + 140 140 1.000000 + 141 140 1.000000 + 142 140 1.000000 + 143 140 1.000000 + 144 140 1.000000 + 145 140 1.000000 + 146 140 1.000000 + 147 140 1.000000 + 148 140 1.000000 + 149 140 1.000000 + 150 140 1.000000 + 151 140 1.000000 + 152 140 1.000000 + 153 140 1.000000 + 154 140 1.000000 + 155 140 1.000000 + 156 140 1.000000 + 157 140 1.000000 + 158 140 1.000000 + 159 140 1.000000 + 160 140 1.000000 + 1 141 1.000000 + 2 141 1.000000 + 3 141 0.5333300 + 4 141 0.8511811 + 5 141 0.8319113 + 6 141 0.8105009 + 7 141 0.7868424 + 8 141 0.7608469 + 9 141 0.7324491 + 10 141 0.7275326 + 11 141 0.6995797 + 12 141 0.6701704 + 13 141 0.6395064 + 14 141 0.6078383 + 15 141 0.5754618 + 16 141 0.5427161 + 17 141 0.5099773 + 18 141 0.4776519 + 19 141 0.4461680 + 20 141 0.4159667 + 21 141 0.3874908 + 22 141 0.3611771 + 23 141 0.3374443 + 24 141 0.3166868 + 25 141 0.2992656 + 26 141 0.2889381 + 27 141 0.2889381 + 28 141 0.2889381 + 29 141 0.2889381 + 30 141 0.2889381 + 31 141 0.2889381 + 32 141 0.2889381 + 33 141 0.2955798 + 34 141 0.3173751 + 35 141 1.000000 + 36 141 1.000000 + 37 141 1.000000 + 38 141 1.000000 + 39 141 1.000000 + 40 141 1.000000 + 41 141 1.000000 + 42 141 1.000000 + 43 141 1.000000 + 44 141 1.000000 + 45 141 1.000000 + 46 141 1.000000 + 47 141 1.000000 + 48 141 1.000000 + 49 141 1.000000 + 50 141 1.000000 + 51 141 1.000000 + 52 141 1.000000 + 53 141 1.000000 + 54 141 1.000000 + 55 141 1.000000 + 56 141 1.000000 + 57 141 1.000000 + 58 141 1.000000 + 59 141 1.000000 + 60 141 1.000000 + 61 141 1.000000 + 62 141 1.000000 + 63 141 1.000000 + 64 141 1.000000 + 65 141 1.000000 + 66 141 1.000000 + 67 141 1.000000 + 68 141 1.000000 + 69 141 1.000000 + 70 141 1.000000 + 71 141 1.000000 + 72 141 1.000000 + 73 141 1.000000 + 74 141 1.000000 + 75 141 1.000000 + 76 141 1.000000 + 77 141 1.000000 + 78 141 1.000000 + 79 141 1.000000 + 80 141 1.000000 + 81 141 1.000000 + 82 141 1.000000 + 83 141 1.000000 + 84 141 1.000000 + 85 141 1.000000 + 86 141 1.000000 + 87 141 1.000000 + 88 141 1.000000 + 89 141 1.000000 + 90 141 1.000000 + 91 141 1.000000 + 92 141 1.000000 + 93 141 1.000000 + 94 141 1.000000 + 95 141 1.000000 + 96 141 1.000000 + 97 141 1.000000 + 98 141 1.000000 + 99 141 1.000000 + 100 141 1.000000 + 101 141 1.000000 + 102 141 1.000000 + 103 141 1.000000 + 104 141 1.000000 + 105 141 1.000000 + 106 141 1.000000 + 107 141 1.000000 + 108 141 1.000000 + 109 141 1.000000 + 110 141 1.000000 + 111 141 1.000000 + 112 141 1.000000 + 113 141 1.000000 + 114 141 1.000000 + 115 141 1.000000 + 116 141 1.000000 + 117 141 1.000000 + 118 141 1.000000 + 119 141 1.000000 + 120 141 1.000000 + 121 141 1.000000 + 122 141 1.000000 + 123 141 1.000000 + 124 141 1.000000 + 125 141 1.000000 + 126 141 1.000000 + 127 141 1.000000 + 128 141 1.000000 + 129 141 1.000000 + 130 141 1.000000 + 131 141 1.000000 + 132 141 1.000000 + 133 141 1.000000 + 134 141 1.000000 + 135 141 1.000000 + 136 141 1.000000 + 137 141 1.000000 + 138 141 1.000000 + 139 141 1.000000 + 140 141 1.000000 + 141 141 1.000000 + 142 141 1.000000 + 143 141 1.000000 + 144 141 1.000000 + 145 141 1.000000 + 146 141 1.000000 + 147 141 1.000000 + 148 141 1.000000 + 149 141 1.000000 + 150 141 1.000000 + 151 141 1.000000 + 152 141 1.000000 + 153 141 1.000000 + 154 141 1.000000 + 155 141 1.000000 + 156 141 1.000000 + 157 141 1.000000 + 158 141 1.000000 + 159 141 1.000000 + 160 141 1.000000 + 1 142 1.000000 + 2 142 1.000000 + 3 142 0.5320873 + 4 142 0.5173427 + 5 142 0.5008628 + 6 142 0.4825398 + 7 142 0.4622774 + 8 142 0.7598172 + 9 142 0.7314651 + 10 142 0.7263218 + 11 142 0.6983165 + 12 142 0.6688126 + 13 142 0.6380064 + 14 142 0.6061428 + 15 142 0.5735153 + 16 142 0.5404609 + 17 142 0.5073562 + 18 142 0.4746100 + 19 142 0.4426558 + 20 142 0.4119413 + 21 142 0.3829191 + 22 142 0.3560359 + 23 142 0.3317229 + 24 142 0.3103858 + 25 142 0.2923983 + 26 142 0.2889381 + 27 142 0.2889381 + 28 142 0.2889381 + 29 142 0.2889381 + 30 142 0.2889381 + 31 142 0.2889381 + 32 142 0.2889381 + 33 142 0.2889381 + 34 142 0.3076568 + 35 142 1.000000 + 36 142 1.000000 + 37 142 1.000000 + 38 142 1.000000 + 39 142 1.000000 + 40 142 1.000000 + 41 142 1.000000 + 42 142 1.000000 + 43 142 1.000000 + 44 142 1.000000 + 45 142 1.000000 + 46 142 1.000000 + 47 142 1.000000 + 48 142 1.000000 + 49 142 1.000000 + 50 142 1.000000 + 51 142 1.000000 + 52 142 1.000000 + 53 142 1.000000 + 54 142 1.000000 + 55 142 1.000000 + 56 142 1.000000 + 57 142 1.000000 + 58 142 1.000000 + 59 142 1.000000 + 60 142 1.000000 + 61 142 1.000000 + 62 142 1.000000 + 63 142 1.000000 + 64 142 1.000000 + 65 142 1.000000 + 66 142 1.000000 + 67 142 1.000000 + 68 142 1.000000 + 69 142 1.000000 + 70 142 1.000000 + 71 142 1.000000 + 72 142 1.000000 + 73 142 1.000000 + 74 142 1.000000 + 75 142 1.000000 + 76 142 1.000000 + 77 142 1.000000 + 78 142 1.000000 + 79 142 1.000000 + 80 142 1.000000 + 81 142 1.000000 + 82 142 1.000000 + 83 142 1.000000 + 84 142 1.000000 + 85 142 1.000000 + 86 142 1.000000 + 87 142 1.000000 + 88 142 1.000000 + 89 142 1.000000 + 90 142 1.000000 + 91 142 1.000000 + 92 142 1.000000 + 93 142 1.000000 + 94 142 1.000000 + 95 142 1.000000 + 96 142 1.000000 + 97 142 1.000000 + 98 142 1.000000 + 99 142 1.000000 + 100 142 1.000000 + 101 142 1.000000 + 102 142 1.000000 + 103 142 1.000000 + 104 142 1.000000 + 105 142 1.000000 + 106 142 1.000000 + 107 142 1.000000 + 108 142 1.000000 + 109 142 1.000000 + 110 142 1.000000 + 111 142 1.000000 + 112 142 1.000000 + 113 142 1.000000 + 114 142 1.000000 + 115 142 1.000000 + 116 142 1.000000 + 117 142 1.000000 + 118 142 1.000000 + 119 142 1.000000 + 120 142 1.000000 + 121 142 1.000000 + 122 142 1.000000 + 123 142 1.000000 + 124 142 1.000000 + 125 142 1.000000 + 126 142 1.000000 + 127 142 1.000000 + 128 142 1.000000 + 129 142 1.000000 + 130 142 1.000000 + 131 142 1.000000 + 132 142 1.000000 + 133 142 1.000000 + 134 142 1.000000 + 135 142 1.000000 + 136 142 1.000000 + 137 142 1.000000 + 138 142 1.000000 + 139 142 1.000000 + 140 142 1.000000 + 141 142 1.000000 + 142 142 1.000000 + 143 142 1.000000 + 144 142 1.000000 + 145 142 1.000000 + 146 142 1.000000 + 147 142 1.000000 + 148 142 1.000000 + 149 142 1.000000 + 150 142 1.000000 + 151 142 1.000000 + 152 142 1.000000 + 153 142 1.000000 + 154 142 1.000000 + 155 142 1.000000 + 156 142 1.000000 + 157 142 1.000000 + 158 142 1.000000 + 159 142 1.000000 + 160 142 1.000000 + 1 143 1.000000 + 2 143 1.000000 + 3 143 0.5309109 + 4 143 0.5162486 + 5 143 0.4998512 + 6 143 0.4816080 + 7 143 0.4614191 + 8 143 0.7588926 + 9 143 0.7305973 + 10 143 0.7252169 + 11 143 0.6971696 + 12 143 0.6675825 + 13 143 0.6366472 + 14 143 0.6046029 + 15 143 0.5717385 + 16 143 0.5383896 + 17 143 0.5049319 + 18 143 0.4717769 + 19 143 0.4393616 + 20 143 0.4081403 + 21 143 0.3785739 + 22 143 0.3511195 + 23 143 0.3262190 + 24 143 0.3042903 + 25 143 0.2889381 + 26 143 0.2889381 + 27 143 0.2889381 + 28 143 0.2889381 + 29 143 0.2889381 + 30 143 0.2889381 + 31 143 0.2889381 + 32 143 0.2889381 + 33 143 0.2889381 + 34 143 0.2977789 + 35 143 1.000000 + 36 143 1.000000 + 37 143 1.000000 + 38 143 1.000000 + 39 143 1.000000 + 40 143 1.000000 + 41 143 1.000000 + 42 143 1.000000 + 43 143 1.000000 + 44 143 1.000000 + 45 143 1.000000 + 46 143 1.000000 + 47 143 1.000000 + 48 143 1.000000 + 49 143 1.000000 + 50 143 1.000000 + 51 143 1.000000 + 52 143 1.000000 + 53 143 1.000000 + 54 143 1.000000 + 55 143 1.000000 + 56 143 1.000000 + 57 143 1.000000 + 58 143 1.000000 + 59 143 1.000000 + 60 143 1.000000 + 61 143 1.000000 + 62 143 1.000000 + 63 143 1.000000 + 64 143 1.000000 + 65 143 1.000000 + 66 143 1.000000 + 67 143 1.000000 + 68 143 1.000000 + 69 143 1.000000 + 70 143 1.000000 + 71 143 1.000000 + 72 143 1.000000 + 73 143 1.000000 + 74 143 1.000000 + 75 143 1.000000 + 76 143 1.000000 + 77 143 1.000000 + 78 143 1.000000 + 79 143 1.000000 + 80 143 1.000000 + 81 143 1.000000 + 82 143 1.000000 + 83 143 1.000000 + 84 143 1.000000 + 85 143 1.000000 + 86 143 1.000000 + 87 143 1.000000 + 88 143 1.000000 + 89 143 1.000000 + 90 143 1.000000 + 91 143 1.000000 + 92 143 1.000000 + 93 143 1.000000 + 94 143 1.000000 + 95 143 1.000000 + 96 143 1.000000 + 97 143 1.000000 + 98 143 1.000000 + 99 143 1.000000 + 100 143 1.000000 + 101 143 1.000000 + 102 143 1.000000 + 103 143 1.000000 + 104 143 1.000000 + 105 143 1.000000 + 106 143 1.000000 + 107 143 1.000000 + 108 143 1.000000 + 109 143 1.000000 + 110 143 1.000000 + 111 143 1.000000 + 112 143 1.000000 + 113 143 1.000000 + 114 143 1.000000 + 115 143 1.000000 + 116 143 1.000000 + 117 143 1.000000 + 118 143 1.000000 + 119 143 1.000000 + 120 143 1.000000 + 121 143 1.000000 + 122 143 1.000000 + 123 143 1.000000 + 124 143 1.000000 + 125 143 1.000000 + 126 143 1.000000 + 127 143 1.000000 + 128 143 1.000000 + 129 143 1.000000 + 130 143 1.000000 + 131 143 1.000000 + 132 143 1.000000 + 133 143 1.000000 + 134 143 1.000000 + 135 143 1.000000 + 136 143 1.000000 + 137 143 1.000000 + 138 143 1.000000 + 139 143 1.000000 + 140 143 1.000000 + 141 143 1.000000 + 142 143 1.000000 + 143 143 1.000000 + 144 143 1.000000 + 145 143 1.000000 + 146 143 1.000000 + 147 143 1.000000 + 148 143 1.000000 + 149 143 1.000000 + 150 143 1.000000 + 151 143 1.000000 + 152 143 1.000000 + 153 143 1.000000 + 154 143 1.000000 + 155 143 1.000000 + 156 143 1.000000 + 157 143 1.000000 + 158 143 1.000000 + 159 143 1.000000 + 160 143 1.000000 + 1 144 1.000000 + 2 144 1.000000 + 3 144 0.5416598 + 4 144 0.5152281 + 5 144 0.4989167 + 6 144 0.4807576 + 7 144 0.4606489 + 8 144 0.7580793 + 9 144 0.7298521 + 10 144 0.7242261 + 11 144 0.6961474 + 12 144 0.6664902 + 13 144 0.6354393 + 14 144 0.6032285 + 15 144 0.5701429 + 16 144 0.5365148 + 17 144 0.5027190 + 18 144 0.4691682 + 19 144 0.4363028 + 20 144 0.4045827 + 21 144 0.3744766 + 22 144 0.3464507 + 23 144 0.3209578 + 24 144 0.2984277 + 25 144 0.2889381 + 26 144 0.2889381 + 27 144 0.2889381 + 28 144 0.2889381 + 29 144 0.2889381 + 30 144 0.2889381 + 31 144 0.2889381 + 32 144 0.2889381 + 33 144 0.2889381 + 34 144 0.2889381 + 35 144 1.000000 + 36 144 1.000000 + 37 144 1.000000 + 38 144 1.000000 + 39 144 1.000000 + 40 144 1.000000 + 41 144 1.000000 + 42 144 1.000000 + 43 144 1.000000 + 44 144 1.000000 + 45 144 1.000000 + 46 144 1.000000 + 47 144 1.000000 + 48 144 1.000000 + 49 144 1.000000 + 50 144 1.000000 + 51 144 1.000000 + 52 144 1.000000 + 53 144 1.000000 + 54 144 1.000000 + 55 144 1.000000 + 56 144 1.000000 + 57 144 1.000000 + 58 144 1.000000 + 59 144 1.000000 + 60 144 1.000000 + 61 144 1.000000 + 62 144 1.000000 + 63 144 1.000000 + 64 144 1.000000 + 65 144 1.000000 + 66 144 1.000000 + 67 144 1.000000 + 68 144 1.000000 + 69 144 1.000000 + 70 144 1.000000 + 71 144 1.000000 + 72 144 1.000000 + 73 144 1.000000 + 74 144 1.000000 + 75 144 1.000000 + 76 144 1.000000 + 77 144 1.000000 + 78 144 1.000000 + 79 144 1.000000 + 80 144 1.000000 + 81 144 1.000000 + 82 144 1.000000 + 83 144 1.000000 + 84 144 1.000000 + 85 144 1.000000 + 86 144 1.000000 + 87 144 1.000000 + 88 144 1.000000 + 89 144 1.000000 + 90 144 1.000000 + 91 144 1.000000 + 92 144 1.000000 + 93 144 1.000000 + 94 144 1.000000 + 95 144 1.000000 + 96 144 1.000000 + 97 144 1.000000 + 98 144 1.000000 + 99 144 1.000000 + 100 144 1.000000 + 101 144 1.000000 + 102 144 1.000000 + 103 144 1.000000 + 104 144 1.000000 + 105 144 1.000000 + 106 144 1.000000 + 107 144 1.000000 + 108 144 1.000000 + 109 144 1.000000 + 110 144 1.000000 + 111 144 1.000000 + 112 144 1.000000 + 113 144 1.000000 + 114 144 1.000000 + 115 144 1.000000 + 116 144 1.000000 + 117 144 1.000000 + 118 144 1.000000 + 119 144 1.000000 + 120 144 1.000000 + 121 144 1.000000 + 122 144 1.000000 + 123 144 1.000000 + 124 144 1.000000 + 125 144 1.000000 + 126 144 1.000000 + 127 144 1.000000 + 128 144 1.000000 + 129 144 1.000000 + 130 144 1.000000 + 131 144 1.000000 + 132 144 1.000000 + 133 144 1.000000 + 134 144 1.000000 + 135 144 1.000000 + 136 144 1.000000 + 137 144 1.000000 + 138 144 1.000000 + 139 144 1.000000 + 140 144 1.000000 + 141 144 1.000000 + 142 144 1.000000 + 143 144 1.000000 + 144 144 1.000000 + 145 144 1.000000 + 146 144 1.000000 + 147 144 1.000000 + 148 144 1.000000 + 149 144 1.000000 + 150 144 1.000000 + 151 144 1.000000 + 152 144 1.000000 + 153 144 1.000000 + 154 144 1.000000 + 155 144 1.000000 + 156 144 1.000000 + 157 144 1.000000 + 158 144 1.000000 + 159 144 1.000000 + 160 144 1.000000 + 1 145 1.000000 + 2 145 1.000000 + 3 145 1.000000 + 4 145 1.000000 + 5 145 1.000000 + 6 145 1.000000 + 7 145 1.000000 + 8 145 1.000000 + 9 145 1.000000 + 10 145 1.000000 + 11 145 1.000000 + 12 145 1.000000 + 13 145 1.000000 + 14 145 1.000000 + 15 145 1.000000 + 16 145 1.000000 + 17 145 1.000000 + 18 145 1.000000 + 19 145 1.000000 + 20 145 1.000000 + 21 145 1.000000 + 22 145 1.000000 + 23 145 1.000000 + 24 145 1.000000 + 25 145 1.000000 + 26 145 1.000000 + 27 145 1.000000 + 28 145 1.000000 + 29 145 1.000000 + 30 145 1.000000 + 31 145 1.000000 + 32 145 1.000000 + 33 145 1.000000 + 34 145 1.000000 + 35 145 1.000000 + 36 145 1.000000 + 37 145 1.000000 + 38 145 1.000000 + 39 145 1.000000 + 40 145 1.000000 + 41 145 1.000000 + 42 145 1.000000 + 43 145 1.000000 + 44 145 1.000000 + 45 145 1.000000 + 46 145 1.000000 + 47 145 1.000000 + 48 145 1.000000 + 49 145 1.000000 + 50 145 1.000000 + 51 145 1.000000 + 52 145 1.000000 + 53 145 1.000000 + 54 145 1.000000 + 55 145 1.000000 + 56 145 1.000000 + 57 145 1.000000 + 58 145 1.000000 + 59 145 1.000000 + 60 145 1.000000 + 61 145 1.000000 + 62 145 1.000000 + 63 145 1.000000 + 64 145 1.000000 + 65 145 1.000000 + 66 145 1.000000 + 67 145 1.000000 + 68 145 1.000000 + 69 145 1.000000 + 70 145 1.000000 + 71 145 1.000000 + 72 145 1.000000 + 73 145 1.000000 + 74 145 1.000000 + 75 145 1.000000 + 76 145 1.000000 + 77 145 1.000000 + 78 145 1.000000 + 79 145 1.000000 + 80 145 1.000000 + 81 145 1.000000 + 82 145 1.000000 + 83 145 1.000000 + 84 145 1.000000 + 85 145 1.000000 + 86 145 1.000000 + 87 145 1.000000 + 88 145 1.000000 + 89 145 1.000000 + 90 145 1.000000 + 91 145 1.000000 + 92 145 1.000000 + 93 145 1.000000 + 94 145 1.000000 + 95 145 1.000000 + 96 145 1.000000 + 97 145 1.000000 + 98 145 1.000000 + 99 145 1.000000 + 100 145 1.000000 + 101 145 1.000000 + 102 145 1.000000 + 103 145 1.000000 + 104 145 1.000000 + 105 145 1.000000 + 106 145 1.000000 + 107 145 1.000000 + 108 145 1.000000 + 109 145 1.000000 + 110 145 1.000000 + 111 145 1.000000 + 112 145 1.000000 + 113 145 1.000000 + 114 145 1.000000 + 115 145 1.000000 + 116 145 1.000000 + 117 145 1.000000 + 118 145 1.000000 + 119 145 1.000000 + 120 145 1.000000 + 121 145 1.000000 + 122 145 1.000000 + 123 145 1.000000 + 124 145 1.000000 + 125 145 1.000000 + 126 145 1.000000 + 127 145 1.000000 + 128 145 1.000000 + 129 145 1.000000 + 130 145 1.000000 + 131 145 1.000000 + 132 145 1.000000 + 133 145 1.000000 + 134 145 1.000000 + 135 145 1.000000 + 136 145 1.000000 + 137 145 1.000000 + 138 145 1.000000 + 139 145 1.000000 + 140 145 1.000000 + 141 145 1.000000 + 142 145 1.000000 + 143 145 1.000000 + 144 145 1.000000 + 145 145 1.000000 + 146 145 1.000000 + 147 145 1.000000 + 148 145 1.000000 + 149 145 1.000000 + 150 145 1.000000 + 151 145 1.000000 + 152 145 1.000000 + 153 145 1.000000 + 154 145 1.000000 + 155 145 1.000000 + 156 145 1.000000 + 157 145 1.000000 + 158 145 1.000000 + 159 145 1.000000 + 160 145 1.000000 + 1 146 1.000000 + 2 146 1.000000 + 3 146 1.000000 + 4 146 1.000000 + 5 146 1.000000 + 6 146 1.000000 + 7 146 1.000000 + 8 146 1.000000 + 9 146 1.000000 + 10 146 1.000000 + 11 146 1.000000 + 12 146 1.000000 + 13 146 1.000000 + 14 146 1.000000 + 15 146 1.000000 + 16 146 1.000000 + 17 146 1.000000 + 18 146 1.000000 + 19 146 1.000000 + 20 146 1.000000 + 21 146 1.000000 + 22 146 1.000000 + 23 146 1.000000 + 24 146 1.000000 + 25 146 1.000000 + 26 146 1.000000 + 27 146 1.000000 + 28 146 1.000000 + 29 146 1.000000 + 30 146 1.000000 + 31 146 1.000000 + 32 146 1.000000 + 33 146 1.000000 + 34 146 1.000000 + 35 146 1.000000 + 36 146 1.000000 + 37 146 1.000000 + 38 146 1.000000 + 39 146 1.000000 + 40 146 1.000000 + 41 146 1.000000 + 42 146 1.000000 + 43 146 1.000000 + 44 146 1.000000 + 45 146 1.000000 + 46 146 1.000000 + 47 146 1.000000 + 48 146 1.000000 + 49 146 1.000000 + 50 146 1.000000 + 51 146 1.000000 + 52 146 1.000000 + 53 146 1.000000 + 54 146 1.000000 + 55 146 1.000000 + 56 146 1.000000 + 57 146 1.000000 + 58 146 1.000000 + 59 146 1.000000 + 60 146 1.000000 + 61 146 1.000000 + 62 146 1.000000 + 63 146 1.000000 + 64 146 1.000000 + 65 146 1.000000 + 66 146 1.000000 + 67 146 1.000000 + 68 146 1.000000 + 69 146 1.000000 + 70 146 1.000000 + 71 146 1.000000 + 72 146 1.000000 + 73 146 1.000000 + 74 146 1.000000 + 75 146 1.000000 + 76 146 1.000000 + 77 146 1.000000 + 78 146 1.000000 + 79 146 1.000000 + 80 146 1.000000 + 81 146 1.000000 + 82 146 1.000000 + 83 146 1.000000 + 84 146 1.000000 + 85 146 1.000000 + 86 146 1.000000 + 87 146 1.000000 + 88 146 1.000000 + 89 146 1.000000 + 90 146 1.000000 + 91 146 1.000000 + 92 146 1.000000 + 93 146 1.000000 + 94 146 1.000000 + 95 146 1.000000 + 96 146 1.000000 + 97 146 1.000000 + 98 146 1.000000 + 99 146 1.000000 + 100 146 1.000000 + 101 146 1.000000 + 102 146 1.000000 + 103 146 1.000000 + 104 146 1.000000 + 105 146 1.000000 + 106 146 1.000000 + 107 146 1.000000 + 108 146 1.000000 + 109 146 1.000000 + 110 146 1.000000 + 111 146 1.000000 + 112 146 1.000000 + 113 146 1.000000 + 114 146 1.000000 + 115 146 1.000000 + 116 146 1.000000 + 117 146 1.000000 + 118 146 1.000000 + 119 146 1.000000 + 120 146 1.000000 + 121 146 1.000000 + 122 146 1.000000 + 123 146 1.000000 + 124 146 1.000000 + 125 146 1.000000 + 126 146 1.000000 + 127 146 1.000000 + 128 146 1.000000 + 129 146 1.000000 + 130 146 1.000000 + 131 146 1.000000 + 132 146 1.000000 + 133 146 1.000000 + 134 146 1.000000 + 135 146 1.000000 + 136 146 1.000000 + 137 146 1.000000 + 138 146 1.000000 + 139 146 1.000000 + 140 146 1.000000 + 141 146 1.000000 + 142 146 1.000000 + 143 146 1.000000 + 144 146 1.000000 + 145 146 1.000000 + 146 146 1.000000 + 147 146 1.000000 + 148 146 1.000000 + 149 146 1.000000 + 150 146 1.000000 + 151 146 1.000000 + 152 146 1.000000 + 153 146 1.000000 + 154 146 1.000000 + 155 146 1.000000 + 156 146 1.000000 + 157 146 1.000000 + 158 146 1.000000 + 159 146 1.000000 + 160 146 1.000000 + 1 147 1.000000 + 2 147 1.000000 + 3 147 1.000000 + 4 147 1.000000 + 5 147 1.000000 + 6 147 1.000000 + 7 147 1.000000 + 8 147 1.000000 + 9 147 1.000000 + 10 147 1.000000 + 11 147 1.000000 + 12 147 1.000000 + 13 147 1.000000 + 14 147 1.000000 + 15 147 1.000000 + 16 147 1.000000 + 17 147 1.000000 + 18 147 1.000000 + 19 147 1.000000 + 20 147 1.000000 + 21 147 1.000000 + 22 147 1.000000 + 23 147 1.000000 + 24 147 1.000000 + 25 147 1.000000 + 26 147 1.000000 + 27 147 1.000000 + 28 147 1.000000 + 29 147 1.000000 + 30 147 1.000000 + 31 147 1.000000 + 32 147 1.000000 + 33 147 1.000000 + 34 147 1.000000 + 35 147 1.000000 + 36 147 1.000000 + 37 147 1.000000 + 38 147 1.000000 + 39 147 1.000000 + 40 147 1.000000 + 41 147 1.000000 + 42 147 1.000000 + 43 147 1.000000 + 44 147 1.000000 + 45 147 1.000000 + 46 147 1.000000 + 47 147 1.000000 + 48 147 1.000000 + 49 147 1.000000 + 50 147 1.000000 + 51 147 1.000000 + 52 147 1.000000 + 53 147 1.000000 + 54 147 1.000000 + 55 147 1.000000 + 56 147 1.000000 + 57 147 1.000000 + 58 147 1.000000 + 59 147 1.000000 + 60 147 1.000000 + 61 147 1.000000 + 62 147 1.000000 + 63 147 1.000000 + 64 147 1.000000 + 65 147 1.000000 + 66 147 1.000000 + 67 147 1.000000 + 68 147 1.000000 + 69 147 1.000000 + 70 147 1.000000 + 71 147 1.000000 + 72 147 1.000000 + 73 147 1.000000 + 74 147 1.000000 + 75 147 1.000000 + 76 147 1.000000 + 77 147 1.000000 + 78 147 1.000000 + 79 147 1.000000 + 80 147 1.000000 + 81 147 1.000000 + 82 147 1.000000 + 83 147 1.000000 + 84 147 1.000000 + 85 147 1.000000 + 86 147 1.000000 + 87 147 1.000000 + 88 147 1.000000 + 89 147 1.000000 + 90 147 1.000000 + 91 147 1.000000 + 92 147 1.000000 + 93 147 1.000000 + 94 147 1.000000 + 95 147 1.000000 + 96 147 1.000000 + 97 147 1.000000 + 98 147 1.000000 + 99 147 1.000000 + 100 147 1.000000 + 101 147 1.000000 + 102 147 1.000000 + 103 147 1.000000 + 104 147 1.000000 + 105 147 1.000000 + 106 147 1.000000 + 107 147 1.000000 + 108 147 1.000000 + 109 147 1.000000 + 110 147 1.000000 + 111 147 1.000000 + 112 147 1.000000 + 113 147 1.000000 + 114 147 1.000000 + 115 147 1.000000 + 116 147 1.000000 + 117 147 1.000000 + 118 147 1.000000 + 119 147 1.000000 + 120 147 1.000000 + 121 147 1.000000 + 122 147 1.000000 + 123 147 1.000000 + 124 147 1.000000 + 125 147 1.000000 + 126 147 1.000000 + 127 147 1.000000 + 128 147 1.000000 + 129 147 1.000000 + 130 147 1.000000 + 131 147 1.000000 + 132 147 1.000000 + 133 147 1.000000 + 134 147 1.000000 + 135 147 1.000000 + 136 147 1.000000 + 137 147 1.000000 + 138 147 1.000000 + 139 147 1.000000 + 140 147 1.000000 + 141 147 1.000000 + 142 147 1.000000 + 143 147 1.000000 + 144 147 1.000000 + 145 147 1.000000 + 146 147 1.000000 + 147 147 1.000000 + 148 147 1.000000 + 149 147 1.000000 + 150 147 1.000000 + 151 147 1.000000 + 152 147 1.000000 + 153 147 1.000000 + 154 147 1.000000 + 155 147 1.000000 + 156 147 1.000000 + 157 147 1.000000 + 158 147 1.000000 + 159 147 1.000000 + 160 147 1.000000 + 1 148 1.000000 + 2 148 1.000000 + 3 148 1.000000 + 4 148 1.000000 + 5 148 1.000000 + 6 148 1.000000 + 7 148 1.000000 + 8 148 1.000000 + 9 148 1.000000 + 10 148 1.000000 + 11 148 1.000000 + 12 148 1.000000 + 13 148 1.000000 + 14 148 1.000000 + 15 148 1.000000 + 16 148 1.000000 + 17 148 1.000000 + 18 148 1.000000 + 19 148 1.000000 + 20 148 1.000000 + 21 148 1.000000 + 22 148 1.000000 + 23 148 1.000000 + 24 148 1.000000 + 25 148 1.000000 + 26 148 1.000000 + 27 148 1.000000 + 28 148 1.000000 + 29 148 1.000000 + 30 148 1.000000 + 31 148 1.000000 + 32 148 1.000000 + 33 148 1.000000 + 34 148 1.000000 + 35 148 1.000000 + 36 148 1.000000 + 37 148 1.000000 + 38 148 1.000000 + 39 148 1.000000 + 40 148 1.000000 + 41 148 1.000000 + 42 148 1.000000 + 43 148 1.000000 + 44 148 1.000000 + 45 148 1.000000 + 46 148 1.000000 + 47 148 1.000000 + 48 148 1.000000 + 49 148 1.000000 + 50 148 1.000000 + 51 148 1.000000 + 52 148 1.000000 + 53 148 1.000000 + 54 148 1.000000 + 55 148 1.000000 + 56 148 1.000000 + 57 148 1.000000 + 58 148 1.000000 + 59 148 1.000000 + 60 148 1.000000 + 61 148 1.000000 + 62 148 1.000000 + 63 148 1.000000 + 64 148 1.000000 + 65 148 1.000000 + 66 148 1.000000 + 67 148 1.000000 + 68 148 1.000000 + 69 148 1.000000 + 70 148 1.000000 + 71 148 1.000000 + 72 148 1.000000 + 73 148 1.000000 + 74 148 1.000000 + 75 148 1.000000 + 76 148 1.000000 + 77 148 1.000000 + 78 148 1.000000 + 79 148 1.000000 + 80 148 1.000000 + 81 148 1.000000 + 82 148 1.000000 + 83 148 1.000000 + 84 148 1.000000 + 85 148 1.000000 + 86 148 1.000000 + 87 148 1.000000 + 88 148 1.000000 + 89 148 1.000000 + 90 148 1.000000 + 91 148 1.000000 + 92 148 1.000000 + 93 148 1.000000 + 94 148 1.000000 + 95 148 1.000000 + 96 148 1.000000 + 97 148 1.000000 + 98 148 1.000000 + 99 148 1.000000 + 100 148 1.000000 + 101 148 1.000000 + 102 148 1.000000 + 103 148 1.000000 + 104 148 1.000000 + 105 148 1.000000 + 106 148 1.000000 + 107 148 1.000000 + 108 148 1.000000 + 109 148 1.000000 + 110 148 1.000000 + 111 148 1.000000 + 112 148 1.000000 + 113 148 1.000000 + 114 148 1.000000 + 115 148 1.000000 + 116 148 1.000000 + 117 148 1.000000 + 118 148 1.000000 + 119 148 1.000000 + 120 148 1.000000 + 121 148 1.000000 + 122 148 1.000000 + 123 148 1.000000 + 124 148 1.000000 + 125 148 1.000000 + 126 148 1.000000 + 127 148 1.000000 + 128 148 1.000000 + 129 148 1.000000 + 130 148 1.000000 + 131 148 1.000000 + 132 148 1.000000 + 133 148 1.000000 + 134 148 1.000000 + 135 148 1.000000 + 136 148 1.000000 + 137 148 1.000000 + 138 148 1.000000 + 139 148 1.000000 + 140 148 1.000000 + 141 148 1.000000 + 142 148 1.000000 + 143 148 1.000000 + 144 148 1.000000 + 145 148 1.000000 + 146 148 1.000000 + 147 148 1.000000 + 148 148 1.000000 + 149 148 1.000000 + 150 148 1.000000 + 151 148 1.000000 + 152 148 1.000000 + 153 148 1.000000 + 154 148 1.000000 + 155 148 1.000000 + 156 148 1.000000 + 157 148 1.000000 + 158 148 1.000000 + 159 148 1.000000 + 160 148 1.000000 + 1 149 1.000000 + 2 149 1.000000 + 3 149 1.000000 + 4 149 1.000000 + 5 149 1.000000 + 6 149 1.000000 + 7 149 1.000000 + 8 149 1.000000 + 9 149 1.000000 + 10 149 1.000000 + 11 149 1.000000 + 12 149 1.000000 + 13 149 1.000000 + 14 149 1.000000 + 15 149 1.000000 + 16 149 1.000000 + 17 149 1.000000 + 18 149 1.000000 + 19 149 1.000000 + 20 149 1.000000 + 21 149 1.000000 + 22 149 1.000000 + 23 149 1.000000 + 24 149 1.000000 + 25 149 1.000000 + 26 149 1.000000 + 27 149 1.000000 + 28 149 1.000000 + 29 149 1.000000 + 30 149 1.000000 + 31 149 1.000000 + 32 149 1.000000 + 33 149 1.000000 + 34 149 1.000000 + 35 149 1.000000 + 36 149 1.000000 + 37 149 1.000000 + 38 149 1.000000 + 39 149 1.000000 + 40 149 1.000000 + 41 149 1.000000 + 42 149 1.000000 + 43 149 1.000000 + 44 149 1.000000 + 45 149 1.000000 + 46 149 1.000000 + 47 149 1.000000 + 48 149 1.000000 + 49 149 1.000000 + 50 149 1.000000 + 51 149 1.000000 + 52 149 1.000000 + 53 149 1.000000 + 54 149 1.000000 + 55 149 1.000000 + 56 149 1.000000 + 57 149 1.000000 + 58 149 1.000000 + 59 149 1.000000 + 60 149 1.000000 + 61 149 1.000000 + 62 149 1.000000 + 63 149 1.000000 + 64 149 1.000000 + 65 149 1.000000 + 66 149 1.000000 + 67 149 1.000000 + 68 149 1.000000 + 69 149 1.000000 + 70 149 1.000000 + 71 149 1.000000 + 72 149 1.000000 + 73 149 1.000000 + 74 149 1.000000 + 75 149 1.000000 + 76 149 1.000000 + 77 149 1.000000 + 78 149 1.000000 + 79 149 1.000000 + 80 149 1.000000 + 81 149 1.000000 + 82 149 1.000000 + 83 149 1.000000 + 84 149 1.000000 + 85 149 1.000000 + 86 149 1.000000 + 87 149 1.000000 + 88 149 1.000000 + 89 149 1.000000 + 90 149 1.000000 + 91 149 1.000000 + 92 149 1.000000 + 93 149 1.000000 + 94 149 1.000000 + 95 149 1.000000 + 96 149 1.000000 + 97 149 1.000000 + 98 149 1.000000 + 99 149 1.000000 + 100 149 1.000000 + 101 149 1.000000 + 102 149 1.000000 + 103 149 1.000000 + 104 149 1.000000 + 105 149 1.000000 + 106 149 1.000000 + 107 149 1.000000 + 108 149 1.000000 + 109 149 1.000000 + 110 149 1.000000 + 111 149 1.000000 + 112 149 1.000000 + 113 149 1.000000 + 114 149 1.000000 + 115 149 1.000000 + 116 149 1.000000 + 117 149 1.000000 + 118 149 1.000000 + 119 149 1.000000 + 120 149 1.000000 + 121 149 1.000000 + 122 149 1.000000 + 123 149 1.000000 + 124 149 1.000000 + 125 149 1.000000 + 126 149 1.000000 + 127 149 1.000000 + 128 149 1.000000 + 129 149 1.000000 + 130 149 1.000000 + 131 149 1.000000 + 132 149 1.000000 + 133 149 1.000000 + 134 149 1.000000 + 135 149 1.000000 + 136 149 1.000000 + 137 149 1.000000 + 138 149 1.000000 + 139 149 1.000000 + 140 149 1.000000 + 141 149 1.000000 + 142 149 1.000000 + 143 149 1.000000 + 144 149 1.000000 + 145 149 1.000000 + 146 149 1.000000 + 147 149 1.000000 + 148 149 1.000000 + 149 149 1.000000 + 150 149 1.000000 + 151 149 1.000000 + 152 149 1.000000 + 153 149 1.000000 + 154 149 1.000000 + 155 149 1.000000 + 156 149 1.000000 + 157 149 1.000000 + 158 149 1.000000 + 159 149 1.000000 + 160 149 1.000000 + 1 150 1.000000 + 2 150 1.000000 + 3 150 1.000000 + 4 150 1.000000 + 5 150 1.000000 + 6 150 1.000000 + 7 150 1.000000 + 8 150 1.000000 + 9 150 1.000000 + 10 150 1.000000 + 11 150 1.000000 + 12 150 1.000000 + 13 150 1.000000 + 14 150 1.000000 + 15 150 1.000000 + 16 150 1.000000 + 17 150 1.000000 + 18 150 1.000000 + 19 150 1.000000 + 20 150 1.000000 + 21 150 1.000000 + 22 150 1.000000 + 23 150 1.000000 + 24 150 1.000000 + 25 150 1.000000 + 26 150 1.000000 + 27 150 1.000000 + 28 150 1.000000 + 29 150 1.000000 + 30 150 1.000000 + 31 150 1.000000 + 32 150 1.000000 + 33 150 1.000000 + 34 150 1.000000 + 35 150 1.000000 + 36 150 1.000000 + 37 150 1.000000 + 38 150 1.000000 + 39 150 1.000000 + 40 150 1.000000 + 41 150 1.000000 + 42 150 1.000000 + 43 150 1.000000 + 44 150 1.000000 + 45 150 1.000000 + 46 150 1.000000 + 47 150 1.000000 + 48 150 1.000000 + 49 150 1.000000 + 50 150 1.000000 + 51 150 1.000000 + 52 150 1.000000 + 53 150 1.000000 + 54 150 1.000000 + 55 150 1.000000 + 56 150 1.000000 + 57 150 1.000000 + 58 150 1.000000 + 59 150 1.000000 + 60 150 1.000000 + 61 150 1.000000 + 62 150 1.000000 + 63 150 1.000000 + 64 150 1.000000 + 65 150 1.000000 + 66 150 1.000000 + 67 150 1.000000 + 68 150 1.000000 + 69 150 1.000000 + 70 150 1.000000 + 71 150 1.000000 + 72 150 1.000000 + 73 150 1.000000 + 74 150 1.000000 + 75 150 1.000000 + 76 150 1.000000 + 77 150 1.000000 + 78 150 1.000000 + 79 150 1.000000 + 80 150 1.000000 + 81 150 1.000000 + 82 150 1.000000 + 83 150 1.000000 + 84 150 1.000000 + 85 150 1.000000 + 86 150 1.000000 + 87 150 1.000000 + 88 150 1.000000 + 89 150 1.000000 + 90 150 1.000000 + 91 150 1.000000 + 92 150 1.000000 + 93 150 1.000000 + 94 150 1.000000 + 95 150 1.000000 + 96 150 1.000000 + 97 150 1.000000 + 98 150 1.000000 + 99 150 1.000000 + 100 150 1.000000 + 101 150 1.000000 + 102 150 1.000000 + 103 150 1.000000 + 104 150 1.000000 + 105 150 1.000000 + 106 150 1.000000 + 107 150 1.000000 + 108 150 1.000000 + 109 150 1.000000 + 110 150 1.000000 + 111 150 1.000000 + 112 150 1.000000 + 113 150 1.000000 + 114 150 1.000000 + 115 150 1.000000 + 116 150 1.000000 + 117 150 1.000000 + 118 150 1.000000 + 119 150 1.000000 + 120 150 1.000000 + 121 150 1.000000 + 122 150 1.000000 + 123 150 1.000000 + 124 150 1.000000 + 125 150 1.000000 + 126 150 1.000000 + 127 150 1.000000 + 128 150 1.000000 + 129 150 1.000000 + 130 150 1.000000 + 131 150 1.000000 + 132 150 1.000000 + 133 150 1.000000 + 134 150 1.000000 + 135 150 1.000000 + 136 150 1.000000 + 137 150 1.000000 + 138 150 1.000000 + 139 150 1.000000 + 140 150 1.000000 + 141 150 1.000000 + 142 150 1.000000 + 143 150 1.000000 + 144 150 1.000000 + 145 150 1.000000 + 146 150 1.000000 + 147 150 1.000000 + 148 150 1.000000 + 149 150 1.000000 + 150 150 1.000000 + 151 150 1.000000 + 152 150 1.000000 + 153 150 1.000000 + 154 150 1.000000 + 155 150 1.000000 + 156 150 1.000000 + 157 150 1.000000 + 158 150 1.000000 + 159 150 1.000000 + 160 150 1.000000 + 1 151 1.000000 + 2 151 1.000000 + 3 151 1.000000 + 4 151 1.000000 + 5 151 1.000000 + 6 151 1.000000 + 7 151 1.000000 + 8 151 1.000000 + 9 151 1.000000 + 10 151 1.000000 + 11 151 1.000000 + 12 151 1.000000 + 13 151 1.000000 + 14 151 1.000000 + 15 151 1.000000 + 16 151 1.000000 + 17 151 1.000000 + 18 151 1.000000 + 19 151 1.000000 + 20 151 1.000000 + 21 151 1.000000 + 22 151 1.000000 + 23 151 1.000000 + 24 151 1.000000 + 25 151 1.000000 + 26 151 1.000000 + 27 151 1.000000 + 28 151 1.000000 + 29 151 1.000000 + 30 151 1.000000 + 31 151 1.000000 + 32 151 1.000000 + 33 151 1.000000 + 34 151 1.000000 + 35 151 1.000000 + 36 151 1.000000 + 37 151 1.000000 + 38 151 1.000000 + 39 151 1.000000 + 40 151 1.000000 + 41 151 1.000000 + 42 151 1.000000 + 43 151 1.000000 + 44 151 1.000000 + 45 151 1.000000 + 46 151 1.000000 + 47 151 1.000000 + 48 151 1.000000 + 49 151 1.000000 + 50 151 1.000000 + 51 151 1.000000 + 52 151 1.000000 + 53 151 1.000000 + 54 151 1.000000 + 55 151 1.000000 + 56 151 1.000000 + 57 151 1.000000 + 58 151 1.000000 + 59 151 1.000000 + 60 151 1.000000 + 61 151 1.000000 + 62 151 1.000000 + 63 151 1.000000 + 64 151 1.000000 + 65 151 1.000000 + 66 151 1.000000 + 67 151 1.000000 + 68 151 1.000000 + 69 151 1.000000 + 70 151 1.000000 + 71 151 1.000000 + 72 151 1.000000 + 73 151 1.000000 + 74 151 1.000000 + 75 151 1.000000 + 76 151 1.000000 + 77 151 1.000000 + 78 151 1.000000 + 79 151 1.000000 + 80 151 1.000000 + 81 151 1.000000 + 82 151 1.000000 + 83 151 1.000000 + 84 151 1.000000 + 85 151 1.000000 + 86 151 1.000000 + 87 151 1.000000 + 88 151 1.000000 + 89 151 1.000000 + 90 151 1.000000 + 91 151 1.000000 + 92 151 1.000000 + 93 151 1.000000 + 94 151 1.000000 + 95 151 1.000000 + 96 151 1.000000 + 97 151 1.000000 + 98 151 1.000000 + 99 151 1.000000 + 100 151 1.000000 + 101 151 1.000000 + 102 151 1.000000 + 103 151 1.000000 + 104 151 1.000000 + 105 151 1.000000 + 106 151 1.000000 + 107 151 1.000000 + 108 151 1.000000 + 109 151 1.000000 + 110 151 1.000000 + 111 151 1.000000 + 112 151 1.000000 + 113 151 1.000000 + 114 151 1.000000 + 115 151 1.000000 + 116 151 1.000000 + 117 151 1.000000 + 118 151 1.000000 + 119 151 1.000000 + 120 151 1.000000 + 121 151 1.000000 + 122 151 1.000000 + 123 151 1.000000 + 124 151 1.000000 + 125 151 1.000000 + 126 151 1.000000 + 127 151 1.000000 + 128 151 1.000000 + 129 151 1.000000 + 130 151 1.000000 + 131 151 1.000000 + 132 151 1.000000 + 133 151 1.000000 + 134 151 1.000000 + 135 151 1.000000 + 136 151 1.000000 + 137 151 1.000000 + 138 151 1.000000 + 139 151 1.000000 + 140 151 1.000000 + 141 151 1.000000 + 142 151 1.000000 + 143 151 1.000000 + 144 151 1.000000 + 145 151 1.000000 + 146 151 1.000000 + 147 151 1.000000 + 148 151 1.000000 + 149 151 1.000000 + 150 151 1.000000 + 151 151 1.000000 + 152 151 1.000000 + 153 151 1.000000 + 154 151 1.000000 + 155 151 1.000000 + 156 151 1.000000 + 157 151 1.000000 + 158 151 1.000000 + 159 151 1.000000 + 160 151 1.000000 + 1 152 1.000000 + 2 152 1.000000 + 3 152 1.000000 + 4 152 1.000000 + 5 152 1.000000 + 6 152 1.000000 + 7 152 1.000000 + 8 152 1.000000 + 9 152 1.000000 + 10 152 1.000000 + 11 152 1.000000 + 12 152 1.000000 + 13 152 1.000000 + 14 152 1.000000 + 15 152 1.000000 + 16 152 1.000000 + 17 152 1.000000 + 18 152 1.000000 + 19 152 1.000000 + 20 152 1.000000 + 21 152 1.000000 + 22 152 1.000000 + 23 152 1.000000 + 24 152 1.000000 + 25 152 1.000000 + 26 152 1.000000 + 27 152 1.000000 + 28 152 1.000000 + 29 152 1.000000 + 30 152 1.000000 + 31 152 1.000000 + 32 152 1.000000 + 33 152 1.000000 + 34 152 1.000000 + 35 152 1.000000 + 36 152 1.000000 + 37 152 1.000000 + 38 152 1.000000 + 39 152 1.000000 + 40 152 1.000000 + 41 152 1.000000 + 42 152 1.000000 + 43 152 1.000000 + 44 152 1.000000 + 45 152 1.000000 + 46 152 1.000000 + 47 152 1.000000 + 48 152 1.000000 + 49 152 1.000000 + 50 152 1.000000 + 51 152 1.000000 + 52 152 1.000000 + 53 152 1.000000 + 54 152 1.000000 + 55 152 1.000000 + 56 152 1.000000 + 57 152 1.000000 + 58 152 1.000000 + 59 152 1.000000 + 60 152 1.000000 + 61 152 1.000000 + 62 152 1.000000 + 63 152 1.000000 + 64 152 1.000000 + 65 152 1.000000 + 66 152 1.000000 + 67 152 1.000000 + 68 152 1.000000 + 69 152 1.000000 + 70 152 1.000000 + 71 152 1.000000 + 72 152 1.000000 + 73 152 1.000000 + 74 152 1.000000 + 75 152 1.000000 + 76 152 1.000000 + 77 152 1.000000 + 78 152 1.000000 + 79 152 1.000000 + 80 152 1.000000 + 81 152 1.000000 + 82 152 1.000000 + 83 152 1.000000 + 84 152 1.000000 + 85 152 1.000000 + 86 152 1.000000 + 87 152 1.000000 + 88 152 1.000000 + 89 152 1.000000 + 90 152 1.000000 + 91 152 1.000000 + 92 152 1.000000 + 93 152 1.000000 + 94 152 1.000000 + 95 152 1.000000 + 96 152 1.000000 + 97 152 1.000000 + 98 152 1.000000 + 99 152 1.000000 + 100 152 1.000000 + 101 152 1.000000 + 102 152 1.000000 + 103 152 1.000000 + 104 152 1.000000 + 105 152 1.000000 + 106 152 1.000000 + 107 152 1.000000 + 108 152 1.000000 + 109 152 1.000000 + 110 152 1.000000 + 111 152 1.000000 + 112 152 1.000000 + 113 152 1.000000 + 114 152 1.000000 + 115 152 1.000000 + 116 152 1.000000 + 117 152 1.000000 + 118 152 1.000000 + 119 152 1.000000 + 120 152 1.000000 + 121 152 1.000000 + 122 152 1.000000 + 123 152 1.000000 + 124 152 1.000000 + 125 152 1.000000 + 126 152 1.000000 + 127 152 1.000000 + 128 152 1.000000 + 129 152 1.000000 + 130 152 1.000000 + 131 152 1.000000 + 132 152 1.000000 + 133 152 1.000000 + 134 152 1.000000 + 135 152 1.000000 + 136 152 1.000000 + 137 152 1.000000 + 138 152 1.000000 + 139 152 1.000000 + 140 152 1.000000 + 141 152 1.000000 + 142 152 1.000000 + 143 152 1.000000 + 144 152 1.000000 + 145 152 1.000000 + 146 152 1.000000 + 147 152 1.000000 + 148 152 1.000000 + 149 152 1.000000 + 150 152 1.000000 + 151 152 1.000000 + 152 152 1.000000 + 153 152 1.000000 + 154 152 1.000000 + 155 152 1.000000 + 156 152 1.000000 + 157 152 1.000000 + 158 152 1.000000 + 159 152 1.000000 + 160 152 1.000000 + 1 153 1.000000 + 2 153 1.000000 + 3 153 1.000000 + 4 153 1.000000 + 5 153 1.000000 + 6 153 1.000000 + 7 153 1.000000 + 8 153 1.000000 + 9 153 1.000000 + 10 153 1.000000 + 11 153 1.000000 + 12 153 1.000000 + 13 153 1.000000 + 14 153 1.000000 + 15 153 1.000000 + 16 153 1.000000 + 17 153 1.000000 + 18 153 1.000000 + 19 153 1.000000 + 20 153 1.000000 + 21 153 1.000000 + 22 153 1.000000 + 23 153 1.000000 + 24 153 1.000000 + 25 153 1.000000 + 26 153 1.000000 + 27 153 1.000000 + 28 153 1.000000 + 29 153 1.000000 + 30 153 1.000000 + 31 153 1.000000 + 32 153 1.000000 + 33 153 1.000000 + 34 153 1.000000 + 35 153 1.000000 + 36 153 1.000000 + 37 153 1.000000 + 38 153 1.000000 + 39 153 1.000000 + 40 153 1.000000 + 41 153 1.000000 + 42 153 1.000000 + 43 153 1.000000 + 44 153 1.000000 + 45 153 1.000000 + 46 153 1.000000 + 47 153 1.000000 + 48 153 1.000000 + 49 153 1.000000 + 50 153 1.000000 + 51 153 1.000000 + 52 153 1.000000 + 53 153 1.000000 + 54 153 1.000000 + 55 153 1.000000 + 56 153 1.000000 + 57 153 1.000000 + 58 153 1.000000 + 59 153 1.000000 + 60 153 1.000000 + 61 153 1.000000 + 62 153 1.000000 + 63 153 1.000000 + 64 153 1.000000 + 65 153 1.000000 + 66 153 1.000000 + 67 153 1.000000 + 68 153 1.000000 + 69 153 1.000000 + 70 153 1.000000 + 71 153 1.000000 + 72 153 1.000000 + 73 153 1.000000 + 74 153 1.000000 + 75 153 1.000000 + 76 153 1.000000 + 77 153 1.000000 + 78 153 1.000000 + 79 153 1.000000 + 80 153 1.000000 + 81 153 1.000000 + 82 153 1.000000 + 83 153 1.000000 + 84 153 1.000000 + 85 153 1.000000 + 86 153 1.000000 + 87 153 1.000000 + 88 153 1.000000 + 89 153 1.000000 + 90 153 1.000000 + 91 153 1.000000 + 92 153 1.000000 + 93 153 1.000000 + 94 153 1.000000 + 95 153 1.000000 + 96 153 1.000000 + 97 153 1.000000 + 98 153 1.000000 + 99 153 1.000000 + 100 153 1.000000 + 101 153 1.000000 + 102 153 1.000000 + 103 153 1.000000 + 104 153 1.000000 + 105 153 1.000000 + 106 153 1.000000 + 107 153 1.000000 + 108 153 1.000000 + 109 153 1.000000 + 110 153 1.000000 + 111 153 1.000000 + 112 153 1.000000 + 113 153 1.000000 + 114 153 1.000000 + 115 153 1.000000 + 116 153 1.000000 + 117 153 1.000000 + 118 153 1.000000 + 119 153 1.000000 + 120 153 1.000000 + 121 153 1.000000 + 122 153 1.000000 + 123 153 1.000000 + 124 153 1.000000 + 125 153 1.000000 + 126 153 1.000000 + 127 153 1.000000 + 128 153 1.000000 + 129 153 1.000000 + 130 153 1.000000 + 131 153 1.000000 + 132 153 1.000000 + 133 153 1.000000 + 134 153 1.000000 + 135 153 1.000000 + 136 153 1.000000 + 137 153 1.000000 + 138 153 1.000000 + 139 153 1.000000 + 140 153 1.000000 + 141 153 1.000000 + 142 153 1.000000 + 143 153 1.000000 + 144 153 1.000000 + 145 153 1.000000 + 146 153 1.000000 + 147 153 1.000000 + 148 153 1.000000 + 149 153 1.000000 + 150 153 1.000000 + 151 153 1.000000 + 152 153 1.000000 + 153 153 1.000000 + 154 153 1.000000 + 155 153 1.000000 + 156 153 1.000000 + 157 153 1.000000 + 158 153 1.000000 + 159 153 1.000000 + 160 153 1.000000 + 1 154 1.000000 + 2 154 1.000000 + 3 154 1.000000 + 4 154 1.000000 + 5 154 1.000000 + 6 154 1.000000 + 7 154 1.000000 + 8 154 1.000000 + 9 154 1.000000 + 10 154 1.000000 + 11 154 1.000000 + 12 154 1.000000 + 13 154 1.000000 + 14 154 1.000000 + 15 154 1.000000 + 16 154 1.000000 + 17 154 1.000000 + 18 154 1.000000 + 19 154 1.000000 + 20 154 1.000000 + 21 154 1.000000 + 22 154 1.000000 + 23 154 1.000000 + 24 154 1.000000 + 25 154 1.000000 + 26 154 1.000000 + 27 154 1.000000 + 28 154 1.000000 + 29 154 1.000000 + 30 154 1.000000 + 31 154 1.000000 + 32 154 1.000000 + 33 154 1.000000 + 34 154 1.000000 + 35 154 1.000000 + 36 154 1.000000 + 37 154 1.000000 + 38 154 1.000000 + 39 154 1.000000 + 40 154 1.000000 + 41 154 1.000000 + 42 154 1.000000 + 43 154 1.000000 + 44 154 1.000000 + 45 154 1.000000 + 46 154 1.000000 + 47 154 1.000000 + 48 154 1.000000 + 49 154 1.000000 + 50 154 1.000000 + 51 154 1.000000 + 52 154 1.000000 + 53 154 1.000000 + 54 154 1.000000 + 55 154 1.000000 + 56 154 1.000000 + 57 154 1.000000 + 58 154 1.000000 + 59 154 1.000000 + 60 154 1.000000 + 61 154 1.000000 + 62 154 1.000000 + 63 154 1.000000 + 64 154 1.000000 + 65 154 1.000000 + 66 154 1.000000 + 67 154 1.000000 + 68 154 1.000000 + 69 154 1.000000 + 70 154 1.000000 + 71 154 1.000000 + 72 154 1.000000 + 73 154 1.000000 + 74 154 1.000000 + 75 154 1.000000 + 76 154 1.000000 + 77 154 1.000000 + 78 154 1.000000 + 79 154 1.000000 + 80 154 1.000000 + 81 154 1.000000 + 82 154 1.000000 + 83 154 1.000000 + 84 154 1.000000 + 85 154 1.000000 + 86 154 1.000000 + 87 154 1.000000 + 88 154 1.000000 + 89 154 1.000000 + 90 154 1.000000 + 91 154 1.000000 + 92 154 1.000000 + 93 154 1.000000 + 94 154 1.000000 + 95 154 1.000000 + 96 154 1.000000 + 97 154 1.000000 + 98 154 1.000000 + 99 154 1.000000 + 100 154 1.000000 + 101 154 1.000000 + 102 154 1.000000 + 103 154 1.000000 + 104 154 1.000000 + 105 154 1.000000 + 106 154 1.000000 + 107 154 1.000000 + 108 154 1.000000 + 109 154 1.000000 + 110 154 1.000000 + 111 154 1.000000 + 112 154 1.000000 + 113 154 1.000000 + 114 154 1.000000 + 115 154 1.000000 + 116 154 1.000000 + 117 154 1.000000 + 118 154 1.000000 + 119 154 1.000000 + 120 154 1.000000 + 121 154 1.000000 + 122 154 1.000000 + 123 154 1.000000 + 124 154 1.000000 + 125 154 1.000000 + 126 154 1.000000 + 127 154 1.000000 + 128 154 1.000000 + 129 154 1.000000 + 130 154 1.000000 + 131 154 1.000000 + 132 154 1.000000 + 133 154 1.000000 + 134 154 1.000000 + 135 154 1.000000 + 136 154 1.000000 + 137 154 1.000000 + 138 154 1.000000 + 139 154 1.000000 + 140 154 1.000000 + 141 154 1.000000 + 142 154 1.000000 + 143 154 1.000000 + 144 154 1.000000 + 145 154 1.000000 + 146 154 1.000000 + 147 154 1.000000 + 148 154 1.000000 + 149 154 1.000000 + 150 154 1.000000 + 151 154 1.000000 + 152 154 1.000000 + 153 154 1.000000 + 154 154 1.000000 + 155 154 1.000000 + 156 154 1.000000 + 157 154 1.000000 + 158 154 1.000000 + 159 154 1.000000 + 160 154 1.000000 + 1 155 1.000000 + 2 155 1.000000 + 3 155 1.000000 + 4 155 1.000000 + 5 155 1.000000 + 6 155 1.000000 + 7 155 1.000000 + 8 155 1.000000 + 9 155 1.000000 + 10 155 1.000000 + 11 155 1.000000 + 12 155 1.000000 + 13 155 1.000000 + 14 155 1.000000 + 15 155 1.000000 + 16 155 1.000000 + 17 155 1.000000 + 18 155 1.000000 + 19 155 1.000000 + 20 155 1.000000 + 21 155 1.000000 + 22 155 1.000000 + 23 155 1.000000 + 24 155 1.000000 + 25 155 1.000000 + 26 155 1.000000 + 27 155 1.000000 + 28 155 1.000000 + 29 155 1.000000 + 30 155 1.000000 + 31 155 1.000000 + 32 155 1.000000 + 33 155 1.000000 + 34 155 1.000000 + 35 155 1.000000 + 36 155 1.000000 + 37 155 1.000000 + 38 155 1.000000 + 39 155 1.000000 + 40 155 1.000000 + 41 155 1.000000 + 42 155 1.000000 + 43 155 1.000000 + 44 155 1.000000 + 45 155 1.000000 + 46 155 1.000000 + 47 155 1.000000 + 48 155 1.000000 + 49 155 1.000000 + 50 155 1.000000 + 51 155 1.000000 + 52 155 1.000000 + 53 155 1.000000 + 54 155 1.000000 + 55 155 1.000000 + 56 155 1.000000 + 57 155 1.000000 + 58 155 1.000000 + 59 155 1.000000 + 60 155 1.000000 + 61 155 1.000000 + 62 155 1.000000 + 63 155 1.000000 + 64 155 1.000000 + 65 155 1.000000 + 66 155 1.000000 + 67 155 1.000000 + 68 155 1.000000 + 69 155 1.000000 + 70 155 1.000000 + 71 155 1.000000 + 72 155 1.000000 + 73 155 1.000000 + 74 155 1.000000 + 75 155 1.000000 + 76 155 1.000000 + 77 155 1.000000 + 78 155 1.000000 + 79 155 1.000000 + 80 155 1.000000 + 81 155 1.000000 + 82 155 1.000000 + 83 155 1.000000 + 84 155 1.000000 + 85 155 1.000000 + 86 155 1.000000 + 87 155 1.000000 + 88 155 1.000000 + 89 155 1.000000 + 90 155 1.000000 + 91 155 1.000000 + 92 155 1.000000 + 93 155 1.000000 + 94 155 1.000000 + 95 155 1.000000 + 96 155 1.000000 + 97 155 1.000000 + 98 155 1.000000 + 99 155 1.000000 + 100 155 1.000000 + 101 155 1.000000 + 102 155 1.000000 + 103 155 1.000000 + 104 155 1.000000 + 105 155 1.000000 + 106 155 1.000000 + 107 155 1.000000 + 108 155 1.000000 + 109 155 1.000000 + 110 155 1.000000 + 111 155 1.000000 + 112 155 1.000000 + 113 155 1.000000 + 114 155 1.000000 + 115 155 1.000000 + 116 155 1.000000 + 117 155 1.000000 + 118 155 1.000000 + 119 155 1.000000 + 120 155 1.000000 + 121 155 1.000000 + 122 155 1.000000 + 123 155 1.000000 + 124 155 1.000000 + 125 155 1.000000 + 126 155 1.000000 + 127 155 1.000000 + 128 155 1.000000 + 129 155 1.000000 + 130 155 1.000000 + 131 155 1.000000 + 132 155 1.000000 + 133 155 1.000000 + 134 155 1.000000 + 135 155 1.000000 + 136 155 1.000000 + 137 155 1.000000 + 138 155 1.000000 + 139 155 1.000000 + 140 155 1.000000 + 141 155 1.000000 + 142 155 1.000000 + 143 155 1.000000 + 144 155 1.000000 + 145 155 1.000000 + 146 155 1.000000 + 147 155 1.000000 + 148 155 1.000000 + 149 155 1.000000 + 150 155 1.000000 + 151 155 1.000000 + 152 155 1.000000 + 153 155 1.000000 + 154 155 1.000000 + 155 155 1.000000 + 156 155 1.000000 + 157 155 1.000000 + 158 155 1.000000 + 159 155 1.000000 + 160 155 1.000000 + 1 156 1.000000 + 2 156 1.000000 + 3 156 1.000000 + 4 156 1.000000 + 5 156 1.000000 + 6 156 1.000000 + 7 156 1.000000 + 8 156 1.000000 + 9 156 1.000000 + 10 156 1.000000 + 11 156 1.000000 + 12 156 1.000000 + 13 156 1.000000 + 14 156 1.000000 + 15 156 1.000000 + 16 156 1.000000 + 17 156 1.000000 + 18 156 1.000000 + 19 156 1.000000 + 20 156 1.000000 + 21 156 1.000000 + 22 156 1.000000 + 23 156 1.000000 + 24 156 1.000000 + 25 156 1.000000 + 26 156 1.000000 + 27 156 1.000000 + 28 156 1.000000 + 29 156 1.000000 + 30 156 1.000000 + 31 156 1.000000 + 32 156 1.000000 + 33 156 1.000000 + 34 156 1.000000 + 35 156 1.000000 + 36 156 1.000000 + 37 156 1.000000 + 38 156 1.000000 + 39 156 1.000000 + 40 156 1.000000 + 41 156 1.000000 + 42 156 1.000000 + 43 156 1.000000 + 44 156 1.000000 + 45 156 1.000000 + 46 156 1.000000 + 47 156 1.000000 + 48 156 1.000000 + 49 156 1.000000 + 50 156 1.000000 + 51 156 1.000000 + 52 156 1.000000 + 53 156 1.000000 + 54 156 1.000000 + 55 156 1.000000 + 56 156 1.000000 + 57 156 1.000000 + 58 156 1.000000 + 59 156 1.000000 + 60 156 1.000000 + 61 156 1.000000 + 62 156 1.000000 + 63 156 1.000000 + 64 156 1.000000 + 65 156 1.000000 + 66 156 1.000000 + 67 156 1.000000 + 68 156 1.000000 + 69 156 1.000000 + 70 156 1.000000 + 71 156 1.000000 + 72 156 1.000000 + 73 156 1.000000 + 74 156 1.000000 + 75 156 1.000000 + 76 156 1.000000 + 77 156 1.000000 + 78 156 1.000000 + 79 156 1.000000 + 80 156 1.000000 + 81 156 1.000000 + 82 156 1.000000 + 83 156 1.000000 + 84 156 1.000000 + 85 156 1.000000 + 86 156 1.000000 + 87 156 1.000000 + 88 156 1.000000 + 89 156 1.000000 + 90 156 1.000000 + 91 156 1.000000 + 92 156 1.000000 + 93 156 1.000000 + 94 156 1.000000 + 95 156 1.000000 + 96 156 1.000000 + 97 156 1.000000 + 98 156 1.000000 + 99 156 1.000000 + 100 156 1.000000 + 101 156 1.000000 + 102 156 1.000000 + 103 156 1.000000 + 104 156 1.000000 + 105 156 1.000000 + 106 156 1.000000 + 107 156 1.000000 + 108 156 1.000000 + 109 156 1.000000 + 110 156 1.000000 + 111 156 1.000000 + 112 156 1.000000 + 113 156 1.000000 + 114 156 1.000000 + 115 156 1.000000 + 116 156 1.000000 + 117 156 1.000000 + 118 156 1.000000 + 119 156 1.000000 + 120 156 1.000000 + 121 156 1.000000 + 122 156 1.000000 + 123 156 1.000000 + 124 156 1.000000 + 125 156 1.000000 + 126 156 1.000000 + 127 156 1.000000 + 128 156 1.000000 + 129 156 1.000000 + 130 156 1.000000 + 131 156 1.000000 + 132 156 1.000000 + 133 156 1.000000 + 134 156 1.000000 + 135 156 1.000000 + 136 156 1.000000 + 137 156 1.000000 + 138 156 1.000000 + 139 156 1.000000 + 140 156 1.000000 + 141 156 1.000000 + 142 156 1.000000 + 143 156 1.000000 + 144 156 1.000000 + 145 156 1.000000 + 146 156 1.000000 + 147 156 1.000000 + 148 156 1.000000 + 149 156 1.000000 + 150 156 1.000000 + 151 156 1.000000 + 152 156 1.000000 + 153 156 1.000000 + 154 156 1.000000 + 155 156 1.000000 + 156 156 1.000000 + 157 156 1.000000 + 158 156 1.000000 + 159 156 1.000000 + 160 156 1.000000 + 1 157 1.000000 + 2 157 1.000000 + 3 157 1.000000 + 4 157 1.000000 + 5 157 1.000000 + 6 157 1.000000 + 7 157 1.000000 + 8 157 1.000000 + 9 157 1.000000 + 10 157 1.000000 + 11 157 1.000000 + 12 157 1.000000 + 13 157 1.000000 + 14 157 1.000000 + 15 157 1.000000 + 16 157 1.000000 + 17 157 1.000000 + 18 157 1.000000 + 19 157 1.000000 + 20 157 1.000000 + 21 157 1.000000 + 22 157 1.000000 + 23 157 1.000000 + 24 157 1.000000 + 25 157 1.000000 + 26 157 1.000000 + 27 157 1.000000 + 28 157 1.000000 + 29 157 1.000000 + 30 157 1.000000 + 31 157 1.000000 + 32 157 1.000000 + 33 157 1.000000 + 34 157 1.000000 + 35 157 1.000000 + 36 157 1.000000 + 37 157 1.000000 + 38 157 1.000000 + 39 157 1.000000 + 40 157 1.000000 + 41 157 1.000000 + 42 157 1.000000 + 43 157 1.000000 + 44 157 1.000000 + 45 157 1.000000 + 46 157 1.000000 + 47 157 1.000000 + 48 157 1.000000 + 49 157 1.000000 + 50 157 1.000000 + 51 157 1.000000 + 52 157 1.000000 + 53 157 1.000000 + 54 157 1.000000 + 55 157 1.000000 + 56 157 1.000000 + 57 157 1.000000 + 58 157 1.000000 + 59 157 1.000000 + 60 157 1.000000 + 61 157 1.000000 + 62 157 1.000000 + 63 157 1.000000 + 64 157 1.000000 + 65 157 1.000000 + 66 157 1.000000 + 67 157 1.000000 + 68 157 1.000000 + 69 157 1.000000 + 70 157 1.000000 + 71 157 1.000000 + 72 157 1.000000 + 73 157 1.000000 + 74 157 1.000000 + 75 157 1.000000 + 76 157 1.000000 + 77 157 1.000000 + 78 157 1.000000 + 79 157 1.000000 + 80 157 1.000000 + 81 157 1.000000 + 82 157 1.000000 + 83 157 1.000000 + 84 157 1.000000 + 85 157 1.000000 + 86 157 1.000000 + 87 157 1.000000 + 88 157 1.000000 + 89 157 1.000000 + 90 157 1.000000 + 91 157 1.000000 + 92 157 1.000000 + 93 157 1.000000 + 94 157 1.000000 + 95 157 1.000000 + 96 157 1.000000 + 97 157 1.000000 + 98 157 1.000000 + 99 157 1.000000 + 100 157 1.000000 + 101 157 1.000000 + 102 157 1.000000 + 103 157 1.000000 + 104 157 1.000000 + 105 157 1.000000 + 106 157 1.000000 + 107 157 1.000000 + 108 157 1.000000 + 109 157 1.000000 + 110 157 1.000000 + 111 157 1.000000 + 112 157 1.000000 + 113 157 1.000000 + 114 157 1.000000 + 115 157 1.000000 + 116 157 1.000000 + 117 157 1.000000 + 118 157 1.000000 + 119 157 1.000000 + 120 157 1.000000 + 121 157 1.000000 + 122 157 1.000000 + 123 157 1.000000 + 124 157 1.000000 + 125 157 1.000000 + 126 157 1.000000 + 127 157 1.000000 + 128 157 1.000000 + 129 157 1.000000 + 130 157 1.000000 + 131 157 1.000000 + 132 157 1.000000 + 133 157 1.000000 + 134 157 1.000000 + 135 157 1.000000 + 136 157 1.000000 + 137 157 1.000000 + 138 157 1.000000 + 139 157 1.000000 + 140 157 1.000000 + 141 157 1.000000 + 142 157 1.000000 + 143 157 1.000000 + 144 157 1.000000 + 145 157 1.000000 + 146 157 1.000000 + 147 157 1.000000 + 148 157 1.000000 + 149 157 1.000000 + 150 157 1.000000 + 151 157 1.000000 + 152 157 1.000000 + 153 157 1.000000 + 154 157 1.000000 + 155 157 1.000000 + 156 157 1.000000 + 157 157 1.000000 + 158 157 1.000000 + 159 157 1.000000 + 160 157 1.000000 + 1 158 1.000000 + 2 158 1.000000 + 3 158 1.000000 + 4 158 1.000000 + 5 158 1.000000 + 6 158 1.000000 + 7 158 1.000000 + 8 158 1.000000 + 9 158 1.000000 + 10 158 1.000000 + 11 158 1.000000 + 12 158 1.000000 + 13 158 1.000000 + 14 158 1.000000 + 15 158 1.000000 + 16 158 1.000000 + 17 158 1.000000 + 18 158 1.000000 + 19 158 1.000000 + 20 158 1.000000 + 21 158 1.000000 + 22 158 1.000000 + 23 158 1.000000 + 24 158 1.000000 + 25 158 1.000000 + 26 158 1.000000 + 27 158 1.000000 + 28 158 1.000000 + 29 158 1.000000 + 30 158 1.000000 + 31 158 1.000000 + 32 158 1.000000 + 33 158 1.000000 + 34 158 1.000000 + 35 158 1.000000 + 36 158 1.000000 + 37 158 1.000000 + 38 158 1.000000 + 39 158 1.000000 + 40 158 1.000000 + 41 158 1.000000 + 42 158 1.000000 + 43 158 1.000000 + 44 158 1.000000 + 45 158 1.000000 + 46 158 1.000000 + 47 158 1.000000 + 48 158 1.000000 + 49 158 1.000000 + 50 158 1.000000 + 51 158 1.000000 + 52 158 1.000000 + 53 158 1.000000 + 54 158 1.000000 + 55 158 1.000000 + 56 158 1.000000 + 57 158 1.000000 + 58 158 1.000000 + 59 158 1.000000 + 60 158 1.000000 + 61 158 1.000000 + 62 158 1.000000 + 63 158 1.000000 + 64 158 1.000000 + 65 158 1.000000 + 66 158 1.000000 + 67 158 1.000000 + 68 158 1.000000 + 69 158 1.000000 + 70 158 1.000000 + 71 158 1.000000 + 72 158 1.000000 + 73 158 1.000000 + 74 158 1.000000 + 75 158 1.000000 + 76 158 1.000000 + 77 158 1.000000 + 78 158 1.000000 + 79 158 1.000000 + 80 158 1.000000 + 81 158 1.000000 + 82 158 1.000000 + 83 158 1.000000 + 84 158 1.000000 + 85 158 1.000000 + 86 158 1.000000 + 87 158 1.000000 + 88 158 1.000000 + 89 158 1.000000 + 90 158 1.000000 + 91 158 1.000000 + 92 158 1.000000 + 93 158 1.000000 + 94 158 1.000000 + 95 158 1.000000 + 96 158 1.000000 + 97 158 1.000000 + 98 158 1.000000 + 99 158 1.000000 + 100 158 1.000000 + 101 158 1.000000 + 102 158 1.000000 + 103 158 1.000000 + 104 158 1.000000 + 105 158 1.000000 + 106 158 1.000000 + 107 158 1.000000 + 108 158 1.000000 + 109 158 1.000000 + 110 158 1.000000 + 111 158 1.000000 + 112 158 1.000000 + 113 158 1.000000 + 114 158 1.000000 + 115 158 1.000000 + 116 158 1.000000 + 117 158 1.000000 + 118 158 1.000000 + 119 158 1.000000 + 120 158 1.000000 + 121 158 1.000000 + 122 158 1.000000 + 123 158 1.000000 + 124 158 1.000000 + 125 158 1.000000 + 126 158 1.000000 + 127 158 1.000000 + 128 158 1.000000 + 129 158 1.000000 + 130 158 1.000000 + 131 158 1.000000 + 132 158 1.000000 + 133 158 1.000000 + 134 158 1.000000 + 135 158 1.000000 + 136 158 1.000000 + 137 158 1.000000 + 138 158 1.000000 + 139 158 1.000000 + 140 158 1.000000 + 141 158 1.000000 + 142 158 1.000000 + 143 158 1.000000 + 144 158 1.000000 + 145 158 1.000000 + 146 158 1.000000 + 147 158 1.000000 + 148 158 1.000000 + 149 158 1.000000 + 150 158 1.000000 + 151 158 1.000000 + 152 158 1.000000 + 153 158 1.000000 + 154 158 1.000000 + 155 158 1.000000 + 156 158 1.000000 + 157 158 1.000000 + 158 158 1.000000 + 159 158 1.000000 + 160 158 1.000000 + 1 159 1.000000 + 2 159 1.000000 + 3 159 1.000000 + 4 159 1.000000 + 5 159 1.000000 + 6 159 1.000000 + 7 159 1.000000 + 8 159 1.000000 + 9 159 1.000000 + 10 159 1.000000 + 11 159 1.000000 + 12 159 1.000000 + 13 159 1.000000 + 14 159 1.000000 + 15 159 1.000000 + 16 159 1.000000 + 17 159 1.000000 + 18 159 1.000000 + 19 159 1.000000 + 20 159 1.000000 + 21 159 1.000000 + 22 159 1.000000 + 23 159 1.000000 + 24 159 1.000000 + 25 159 1.000000 + 26 159 1.000000 + 27 159 1.000000 + 28 159 1.000000 + 29 159 1.000000 + 30 159 1.000000 + 31 159 1.000000 + 32 159 1.000000 + 33 159 1.000000 + 34 159 1.000000 + 35 159 1.000000 + 36 159 1.000000 + 37 159 1.000000 + 38 159 1.000000 + 39 159 1.000000 + 40 159 1.000000 + 41 159 1.000000 + 42 159 1.000000 + 43 159 1.000000 + 44 159 1.000000 + 45 159 1.000000 + 46 159 1.000000 + 47 159 1.000000 + 48 159 1.000000 + 49 159 1.000000 + 50 159 1.000000 + 51 159 1.000000 + 52 159 1.000000 + 53 159 1.000000 + 54 159 1.000000 + 55 159 1.000000 + 56 159 1.000000 + 57 159 1.000000 + 58 159 1.000000 + 59 159 1.000000 + 60 159 1.000000 + 61 159 1.000000 + 62 159 1.000000 + 63 159 1.000000 + 64 159 1.000000 + 65 159 1.000000 + 66 159 1.000000 + 67 159 1.000000 + 68 159 1.000000 + 69 159 1.000000 + 70 159 1.000000 + 71 159 1.000000 + 72 159 1.000000 + 73 159 1.000000 + 74 159 1.000000 + 75 159 1.000000 + 76 159 1.000000 + 77 159 1.000000 + 78 159 1.000000 + 79 159 1.000000 + 80 159 1.000000 + 81 159 1.000000 + 82 159 1.000000 + 83 159 1.000000 + 84 159 1.000000 + 85 159 1.000000 + 86 159 1.000000 + 87 159 1.000000 + 88 159 1.000000 + 89 159 1.000000 + 90 159 1.000000 + 91 159 1.000000 + 92 159 1.000000 + 93 159 1.000000 + 94 159 1.000000 + 95 159 1.000000 + 96 159 1.000000 + 97 159 1.000000 + 98 159 1.000000 + 99 159 1.000000 + 100 159 1.000000 + 101 159 1.000000 + 102 159 1.000000 + 103 159 1.000000 + 104 159 1.000000 + 105 159 1.000000 + 106 159 1.000000 + 107 159 1.000000 + 108 159 1.000000 + 109 159 1.000000 + 110 159 1.000000 + 111 159 1.000000 + 112 159 1.000000 + 113 159 1.000000 + 114 159 1.000000 + 115 159 1.000000 + 116 159 1.000000 + 117 159 1.000000 + 118 159 1.000000 + 119 159 1.000000 + 120 159 1.000000 + 121 159 1.000000 + 122 159 1.000000 + 123 159 1.000000 + 124 159 1.000000 + 125 159 1.000000 + 126 159 1.000000 + 127 159 1.000000 + 128 159 1.000000 + 129 159 1.000000 + 130 159 1.000000 + 131 159 1.000000 + 132 159 1.000000 + 133 159 1.000000 + 134 159 1.000000 + 135 159 1.000000 + 136 159 1.000000 + 137 159 1.000000 + 138 159 1.000000 + 139 159 1.000000 + 140 159 1.000000 + 141 159 1.000000 + 142 159 1.000000 + 143 159 1.000000 + 144 159 1.000000 + 145 159 1.000000 + 146 159 1.000000 + 147 159 1.000000 + 148 159 1.000000 + 149 159 1.000000 + 150 159 1.000000 + 151 159 1.000000 + 152 159 1.000000 + 153 159 1.000000 + 154 159 1.000000 + 155 159 1.000000 + 156 159 1.000000 + 157 159 1.000000 + 158 159 1.000000 + 159 159 1.000000 + 160 159 1.000000 + 1 160 1.000000 + 2 160 1.000000 + 3 160 1.000000 + 4 160 1.000000 + 5 160 1.000000 + 6 160 1.000000 + 7 160 1.000000 + 8 160 1.000000 + 9 160 1.000000 + 10 160 1.000000 + 11 160 1.000000 + 12 160 1.000000 + 13 160 1.000000 + 14 160 1.000000 + 15 160 1.000000 + 16 160 1.000000 + 17 160 1.000000 + 18 160 1.000000 + 19 160 1.000000 + 20 160 1.000000 + 21 160 1.000000 + 22 160 1.000000 + 23 160 1.000000 + 24 160 1.000000 + 25 160 1.000000 + 26 160 1.000000 + 27 160 1.000000 + 28 160 1.000000 + 29 160 1.000000 + 30 160 1.000000 + 31 160 1.000000 + 32 160 1.000000 + 33 160 1.000000 + 34 160 1.000000 + 35 160 1.000000 + 36 160 1.000000 + 37 160 1.000000 + 38 160 1.000000 + 39 160 1.000000 + 40 160 1.000000 + 41 160 1.000000 + 42 160 1.000000 + 43 160 1.000000 + 44 160 1.000000 + 45 160 1.000000 + 46 160 1.000000 + 47 160 1.000000 + 48 160 1.000000 + 49 160 1.000000 + 50 160 1.000000 + 51 160 1.000000 + 52 160 1.000000 + 53 160 1.000000 + 54 160 1.000000 + 55 160 1.000000 + 56 160 1.000000 + 57 160 1.000000 + 58 160 1.000000 + 59 160 1.000000 + 60 160 1.000000 + 61 160 1.000000 + 62 160 1.000000 + 63 160 1.000000 + 64 160 1.000000 + 65 160 1.000000 + 66 160 1.000000 + 67 160 1.000000 + 68 160 1.000000 + 69 160 1.000000 + 70 160 1.000000 + 71 160 1.000000 + 72 160 1.000000 + 73 160 1.000000 + 74 160 1.000000 + 75 160 1.000000 + 76 160 1.000000 + 77 160 1.000000 + 78 160 1.000000 + 79 160 1.000000 + 80 160 1.000000 + 81 160 1.000000 + 82 160 1.000000 + 83 160 1.000000 + 84 160 1.000000 + 85 160 1.000000 + 86 160 1.000000 + 87 160 1.000000 + 88 160 1.000000 + 89 160 1.000000 + 90 160 1.000000 + 91 160 1.000000 + 92 160 1.000000 + 93 160 1.000000 + 94 160 1.000000 + 95 160 1.000000 + 96 160 1.000000 + 97 160 1.000000 + 98 160 1.000000 + 99 160 1.000000 + 100 160 1.000000 + 101 160 1.000000 + 102 160 1.000000 + 103 160 1.000000 + 104 160 1.000000 + 105 160 1.000000 + 106 160 1.000000 + 107 160 1.000000 + 108 160 1.000000 + 109 160 1.000000 + 110 160 1.000000 + 111 160 1.000000 + 112 160 1.000000 + 113 160 1.000000 + 114 160 1.000000 + 115 160 1.000000 + 116 160 1.000000 + 117 160 1.000000 + 118 160 1.000000 + 119 160 1.000000 + 120 160 1.000000 + 121 160 1.000000 + 122 160 1.000000 + 123 160 1.000000 + 124 160 1.000000 + 125 160 1.000000 + 126 160 1.000000 + 127 160 1.000000 + 128 160 1.000000 + 129 160 1.000000 + 130 160 1.000000 + 131 160 1.000000 + 132 160 1.000000 + 133 160 1.000000 + 134 160 1.000000 + 135 160 1.000000 + 136 160 1.000000 + 137 160 1.000000 + 138 160 1.000000 + 139 160 1.000000 + 140 160 1.000000 + 141 160 1.000000 + 142 160 1.000000 + 143 160 1.000000 + 144 160 1.000000 + 145 160 1.000000 + 146 160 1.000000 + 147 160 1.000000 + 148 160 1.000000 + 149 160 1.000000 + 150 160 1.000000 + 151 160 1.000000 + 152 160 1.000000 + 153 160 1.000000 + 154 160 1.000000 + 155 160 1.000000 + 156 160 1.000000 + 157 160 1.000000 + 158 160 1.000000 + 159 160 1.000000 + 160 160 1.000000 + 1 161 1.000000 + 2 161 1.000000 + 3 161 1.000000 + 4 161 1.000000 + 5 161 1.000000 + 6 161 1.000000 + 7 161 1.000000 + 8 161 1.000000 + 9 161 1.000000 + 10 161 1.000000 + 11 161 1.000000 + 12 161 1.000000 + 13 161 1.000000 + 14 161 1.000000 + 15 161 1.000000 + 16 161 1.000000 + 17 161 1.000000 + 18 161 1.000000 + 19 161 1.000000 + 20 161 1.000000 + 21 161 1.000000 + 22 161 1.000000 + 23 161 1.000000 + 24 161 1.000000 + 25 161 1.000000 + 26 161 1.000000 + 27 161 1.000000 + 28 161 1.000000 + 29 161 1.000000 + 30 161 1.000000 + 31 161 1.000000 + 32 161 1.000000 + 33 161 1.000000 + 34 161 1.000000 + 35 161 1.000000 + 36 161 1.000000 + 37 161 1.000000 + 38 161 1.000000 + 39 161 1.000000 + 40 161 1.000000 + 41 161 1.000000 + 42 161 1.000000 + 43 161 1.000000 + 44 161 1.000000 + 45 161 1.000000 + 46 161 1.000000 + 47 161 1.000000 + 48 161 1.000000 + 49 161 1.000000 + 50 161 1.000000 + 51 161 1.000000 + 52 161 1.000000 + 53 161 1.000000 + 54 161 1.000000 + 55 161 1.000000 + 56 161 1.000000 + 57 161 1.000000 + 58 161 1.000000 + 59 161 1.000000 + 60 161 1.000000 + 61 161 1.000000 + 62 161 1.000000 + 63 161 1.000000 + 64 161 1.000000 + 65 161 1.000000 + 66 161 1.000000 + 67 161 1.000000 + 68 161 1.000000 + 69 161 1.000000 + 70 161 1.000000 + 71 161 1.000000 + 72 161 1.000000 + 73 161 1.000000 + 74 161 1.000000 + 75 161 1.000000 + 76 161 1.000000 + 77 161 1.000000 + 78 161 1.000000 + 79 161 1.000000 + 80 161 1.000000 + 81 161 1.000000 + 82 161 1.000000 + 83 161 1.000000 + 84 161 1.000000 + 85 161 1.000000 + 86 161 1.000000 + 87 161 1.000000 + 88 161 1.000000 + 89 161 1.000000 + 90 161 1.000000 + 91 161 1.000000 + 92 161 1.000000 + 93 161 1.000000 + 94 161 1.000000 + 95 161 1.000000 + 96 161 1.000000 + 97 161 1.000000 + 98 161 1.000000 + 99 161 1.000000 + 100 161 1.000000 + 101 161 1.000000 + 102 161 1.000000 + 103 161 1.000000 + 104 161 1.000000 + 105 161 1.000000 + 106 161 1.000000 + 107 161 1.000000 + 108 161 1.000000 + 109 161 1.000000 + 110 161 1.000000 + 111 161 1.000000 + 112 161 1.000000 + 113 161 1.000000 + 114 161 1.000000 + 115 161 1.000000 + 116 161 1.000000 + 117 161 1.000000 + 118 161 1.000000 + 119 161 1.000000 + 120 161 1.000000 + 121 161 1.000000 + 122 161 1.000000 + 123 161 1.000000 + 124 161 1.000000 + 125 161 1.000000 + 126 161 1.000000 + 127 161 1.000000 + 128 161 1.000000 + 129 161 1.000000 + 130 161 1.000000 + 131 161 1.000000 + 132 161 1.000000 + 133 161 1.000000 + 134 161 1.000000 + 135 161 1.000000 + 136 161 1.000000 + 137 161 1.000000 + 138 161 1.000000 + 139 161 1.000000 + 140 161 1.000000 + 141 161 1.000000 + 142 161 1.000000 + 143 161 1.000000 + 144 161 1.000000 + 145 161 1.000000 + 146 161 1.000000 + 147 161 1.000000 + 148 161 1.000000 + 149 161 1.000000 + 150 161 1.000000 + 151 161 1.000000 + 152 161 1.000000 + 153 161 1.000000 + 154 161 1.000000 + 155 161 1.000000 + 156 161 1.000000 + 157 161 1.000000 + 158 161 1.000000 + 159 161 1.000000 + 160 161 1.000000 + 1 162 1.000000 + 2 162 1.000000 + 3 162 1.000000 + 4 162 1.000000 + 5 162 1.000000 + 6 162 1.000000 + 7 162 1.000000 + 8 162 1.000000 + 9 162 1.000000 + 10 162 1.000000 + 11 162 1.000000 + 12 162 1.000000 + 13 162 1.000000 + 14 162 1.000000 + 15 162 1.000000 + 16 162 1.000000 + 17 162 1.000000 + 18 162 1.000000 + 19 162 1.000000 + 20 162 1.000000 + 21 162 1.000000 + 22 162 1.000000 + 23 162 1.000000 + 24 162 1.000000 + 25 162 1.000000 + 26 162 1.000000 + 27 162 1.000000 + 28 162 1.000000 + 29 162 1.000000 + 30 162 1.000000 + 31 162 1.000000 + 32 162 1.000000 + 33 162 1.000000 + 34 162 1.000000 + 35 162 1.000000 + 36 162 1.000000 + 37 162 1.000000 + 38 162 1.000000 + 39 162 1.000000 + 40 162 1.000000 + 41 162 1.000000 + 42 162 1.000000 + 43 162 1.000000 + 44 162 1.000000 + 45 162 1.000000 + 46 162 1.000000 + 47 162 1.000000 + 48 162 1.000000 + 49 162 1.000000 + 50 162 1.000000 + 51 162 1.000000 + 52 162 1.000000 + 53 162 1.000000 + 54 162 1.000000 + 55 162 1.000000 + 56 162 1.000000 + 57 162 1.000000 + 58 162 1.000000 + 59 162 1.000000 + 60 162 1.000000 + 61 162 1.000000 + 62 162 1.000000 + 63 162 1.000000 + 64 162 1.000000 + 65 162 1.000000 + 66 162 1.000000 + 67 162 1.000000 + 68 162 1.000000 + 69 162 1.000000 + 70 162 1.000000 + 71 162 1.000000 + 72 162 1.000000 + 73 162 1.000000 + 74 162 1.000000 + 75 162 1.000000 + 76 162 1.000000 + 77 162 1.000000 + 78 162 1.000000 + 79 162 1.000000 + 80 162 1.000000 + 81 162 1.000000 + 82 162 1.000000 + 83 162 1.000000 + 84 162 1.000000 + 85 162 1.000000 + 86 162 1.000000 + 87 162 1.000000 + 88 162 1.000000 + 89 162 1.000000 + 90 162 1.000000 + 91 162 1.000000 + 92 162 1.000000 + 93 162 1.000000 + 94 162 1.000000 + 95 162 1.000000 + 96 162 1.000000 + 97 162 1.000000 + 98 162 1.000000 + 99 162 1.000000 + 100 162 1.000000 + 101 162 1.000000 + 102 162 1.000000 + 103 162 1.000000 + 104 162 1.000000 + 105 162 1.000000 + 106 162 1.000000 + 107 162 1.000000 + 108 162 1.000000 + 109 162 1.000000 + 110 162 1.000000 + 111 162 1.000000 + 112 162 1.000000 + 113 162 1.000000 + 114 162 1.000000 + 115 162 1.000000 + 116 162 1.000000 + 117 162 1.000000 + 118 162 1.000000 + 119 162 1.000000 + 120 162 1.000000 + 121 162 1.000000 + 122 162 1.000000 + 123 162 1.000000 + 124 162 1.000000 + 125 162 1.000000 + 126 162 1.000000 + 127 162 1.000000 + 128 162 1.000000 + 129 162 1.000000 + 130 162 1.000000 + 131 162 1.000000 + 132 162 1.000000 + 133 162 1.000000 + 134 162 1.000000 + 135 162 1.000000 + 136 162 1.000000 + 137 162 1.000000 + 138 162 1.000000 + 139 162 1.000000 + 140 162 1.000000 + 141 162 1.000000 + 142 162 1.000000 + 143 162 1.000000 + 144 162 1.000000 + 145 162 1.000000 + 146 162 1.000000 + 147 162 1.000000 + 148 162 1.000000 + 149 162 1.000000 + 150 162 1.000000 + 151 162 1.000000 + 152 162 1.000000 + 153 162 1.000000 + 154 162 1.000000 + 155 162 1.000000 + 156 162 1.000000 + 157 162 1.000000 + 158 162 1.000000 + 159 162 1.000000 + 160 162 1.000000 + 1 163 1.000000 + 2 163 1.000000 + 3 163 1.000000 + 4 163 1.000000 + 5 163 1.000000 + 6 163 1.000000 + 7 163 1.000000 + 8 163 1.000000 + 9 163 1.000000 + 10 163 1.000000 + 11 163 1.000000 + 12 163 1.000000 + 13 163 1.000000 + 14 163 1.000000 + 15 163 1.000000 + 16 163 1.000000 + 17 163 1.000000 + 18 163 1.000000 + 19 163 1.000000 + 20 163 1.000000 + 21 163 1.000000 + 22 163 1.000000 + 23 163 1.000000 + 24 163 1.000000 + 25 163 1.000000 + 26 163 1.000000 + 27 163 1.000000 + 28 163 1.000000 + 29 163 1.000000 + 30 163 1.000000 + 31 163 1.000000 + 32 163 1.000000 + 33 163 1.000000 + 34 163 1.000000 + 35 163 1.000000 + 36 163 1.000000 + 37 163 1.000000 + 38 163 1.000000 + 39 163 1.000000 + 40 163 1.000000 + 41 163 1.000000 + 42 163 1.000000 + 43 163 1.000000 + 44 163 1.000000 + 45 163 1.000000 + 46 163 1.000000 + 47 163 1.000000 + 48 163 1.000000 + 49 163 1.000000 + 50 163 1.000000 + 51 163 1.000000 + 52 163 1.000000 + 53 163 1.000000 + 54 163 1.000000 + 55 163 1.000000 + 56 163 1.000000 + 57 163 1.000000 + 58 163 1.000000 + 59 163 1.000000 + 60 163 1.000000 + 61 163 1.000000 + 62 163 1.000000 + 63 163 1.000000 + 64 163 1.000000 + 65 163 1.000000 + 66 163 1.000000 + 67 163 1.000000 + 68 163 1.000000 + 69 163 1.000000 + 70 163 1.000000 + 71 163 1.000000 + 72 163 1.000000 + 73 163 1.000000 + 74 163 1.000000 + 75 163 1.000000 + 76 163 1.000000 + 77 163 1.000000 + 78 163 1.000000 + 79 163 1.000000 + 80 163 1.000000 + 81 163 1.000000 + 82 163 1.000000 + 83 163 1.000000 + 84 163 1.000000 + 85 163 1.000000 + 86 163 1.000000 + 87 163 1.000000 + 88 163 1.000000 + 89 163 1.000000 + 90 163 1.000000 + 91 163 1.000000 + 92 163 1.000000 + 93 163 1.000000 + 94 163 1.000000 + 95 163 1.000000 + 96 163 1.000000 + 97 163 1.000000 + 98 163 1.000000 + 99 163 1.000000 + 100 163 1.000000 + 101 163 1.000000 + 102 163 1.000000 + 103 163 1.000000 + 104 163 1.000000 + 105 163 1.000000 + 106 163 1.000000 + 107 163 1.000000 + 108 163 1.000000 + 109 163 1.000000 + 110 163 1.000000 + 111 163 1.000000 + 112 163 1.000000 + 113 163 1.000000 + 114 163 1.000000 + 115 163 1.000000 + 116 163 1.000000 + 117 163 1.000000 + 118 163 1.000000 + 119 163 1.000000 + 120 163 1.000000 + 121 163 1.000000 + 122 163 1.000000 + 123 163 1.000000 + 124 163 1.000000 + 125 163 1.000000 + 126 163 1.000000 + 127 163 1.000000 + 128 163 1.000000 + 129 163 1.000000 + 130 163 1.000000 + 131 163 1.000000 + 132 163 1.000000 + 133 163 1.000000 + 134 163 1.000000 + 135 163 1.000000 + 136 163 1.000000 + 137 163 1.000000 + 138 163 1.000000 + 139 163 1.000000 + 140 163 1.000000 + 141 163 1.000000 + 142 163 1.000000 + 143 163 1.000000 + 144 163 1.000000 + 145 163 1.000000 + 146 163 1.000000 + 147 163 1.000000 + 148 163 1.000000 + 149 163 1.000000 + 150 163 1.000000 + 151 163 1.000000 + 152 163 1.000000 + 153 163 1.000000 + 154 163 1.000000 + 155 163 1.000000 + 156 163 1.000000 + 157 163 1.000000 + 158 163 1.000000 + 159 163 1.000000 + 160 163 1.000000 + 1 164 1.000000 + 2 164 1.000000 + 3 164 1.000000 + 4 164 1.000000 + 5 164 1.000000 + 6 164 1.000000 + 7 164 1.000000 + 8 164 1.000000 + 9 164 1.000000 + 10 164 1.000000 + 11 164 1.000000 + 12 164 1.000000 + 13 164 1.000000 + 14 164 1.000000 + 15 164 1.000000 + 16 164 1.000000 + 17 164 1.000000 + 18 164 1.000000 + 19 164 1.000000 + 20 164 1.000000 + 21 164 1.000000 + 22 164 1.000000 + 23 164 1.000000 + 24 164 1.000000 + 25 164 1.000000 + 26 164 1.000000 + 27 164 1.000000 + 28 164 1.000000 + 29 164 1.000000 + 30 164 1.000000 + 31 164 1.000000 + 32 164 1.000000 + 33 164 1.000000 + 34 164 1.000000 + 35 164 1.000000 + 36 164 1.000000 + 37 164 1.000000 + 38 164 1.000000 + 39 164 1.000000 + 40 164 1.000000 + 41 164 1.000000 + 42 164 1.000000 + 43 164 1.000000 + 44 164 1.000000 + 45 164 1.000000 + 46 164 1.000000 + 47 164 1.000000 + 48 164 1.000000 + 49 164 1.000000 + 50 164 1.000000 + 51 164 1.000000 + 52 164 1.000000 + 53 164 1.000000 + 54 164 1.000000 + 55 164 1.000000 + 56 164 1.000000 + 57 164 1.000000 + 58 164 1.000000 + 59 164 1.000000 + 60 164 1.000000 + 61 164 1.000000 + 62 164 1.000000 + 63 164 1.000000 + 64 164 1.000000 + 65 164 1.000000 + 66 164 1.000000 + 67 164 1.000000 + 68 164 1.000000 + 69 164 1.000000 + 70 164 1.000000 + 71 164 1.000000 + 72 164 1.000000 + 73 164 1.000000 + 74 164 1.000000 + 75 164 1.000000 + 76 164 1.000000 + 77 164 1.000000 + 78 164 1.000000 + 79 164 1.000000 + 80 164 1.000000 + 81 164 1.000000 + 82 164 1.000000 + 83 164 1.000000 + 84 164 1.000000 + 85 164 1.000000 + 86 164 1.000000 + 87 164 1.000000 + 88 164 1.000000 + 89 164 1.000000 + 90 164 1.000000 + 91 164 1.000000 + 92 164 1.000000 + 93 164 1.000000 + 94 164 1.000000 + 95 164 1.000000 + 96 164 1.000000 + 97 164 1.000000 + 98 164 1.000000 + 99 164 1.000000 + 100 164 1.000000 + 101 164 1.000000 + 102 164 1.000000 + 103 164 1.000000 + 104 164 1.000000 + 105 164 1.000000 + 106 164 1.000000 + 107 164 1.000000 + 108 164 1.000000 + 109 164 1.000000 + 110 164 1.000000 + 111 164 1.000000 + 112 164 1.000000 + 113 164 1.000000 + 114 164 1.000000 + 115 164 1.000000 + 116 164 1.000000 + 117 164 1.000000 + 118 164 1.000000 + 119 164 1.000000 + 120 164 1.000000 + 121 164 1.000000 + 122 164 1.000000 + 123 164 1.000000 + 124 164 1.000000 + 125 164 1.000000 + 126 164 1.000000 + 127 164 1.000000 + 128 164 1.000000 + 129 164 1.000000 + 130 164 1.000000 + 131 164 1.000000 + 132 164 1.000000 + 133 164 1.000000 + 134 164 1.000000 + 135 164 1.000000 + 136 164 1.000000 + 137 164 1.000000 + 138 164 1.000000 + 139 164 1.000000 + 140 164 1.000000 + 141 164 1.000000 + 142 164 1.000000 + 143 164 1.000000 + 144 164 1.000000 + 145 164 1.000000 + 146 164 1.000000 + 147 164 1.000000 + 148 164 1.000000 + 149 164 1.000000 + 150 164 1.000000 + 151 164 1.000000 + 152 164 1.000000 + 153 164 1.000000 + 154 164 1.000000 + 155 164 1.000000 + 156 164 1.000000 + 157 164 1.000000 + 158 164 1.000000 + 159 164 1.000000 + 160 164 1.000000 + 1 165 1.000000 + 2 165 1.000000 + 3 165 1.000000 + 4 165 1.000000 + 5 165 1.000000 + 6 165 1.000000 + 7 165 1.000000 + 8 165 1.000000 + 9 165 1.000000 + 10 165 1.000000 + 11 165 1.000000 + 12 165 1.000000 + 13 165 1.000000 + 14 165 1.000000 + 15 165 1.000000 + 16 165 1.000000 + 17 165 1.000000 + 18 165 1.000000 + 19 165 1.000000 + 20 165 1.000000 + 21 165 1.000000 + 22 165 1.000000 + 23 165 1.000000 + 24 165 1.000000 + 25 165 1.000000 + 26 165 1.000000 + 27 165 1.000000 + 28 165 1.000000 + 29 165 1.000000 + 30 165 1.000000 + 31 165 1.000000 + 32 165 1.000000 + 33 165 1.000000 + 34 165 1.000000 + 35 165 1.000000 + 36 165 1.000000 + 37 165 1.000000 + 38 165 1.000000 + 39 165 1.000000 + 40 165 1.000000 + 41 165 1.000000 + 42 165 1.000000 + 43 165 1.000000 + 44 165 1.000000 + 45 165 1.000000 + 46 165 1.000000 + 47 165 1.000000 + 48 165 1.000000 + 49 165 1.000000 + 50 165 1.000000 + 51 165 1.000000 + 52 165 1.000000 + 53 165 1.000000 + 54 165 1.000000 + 55 165 1.000000 + 56 165 1.000000 + 57 165 1.000000 + 58 165 1.000000 + 59 165 1.000000 + 60 165 1.000000 + 61 165 1.000000 + 62 165 1.000000 + 63 165 1.000000 + 64 165 1.000000 + 65 165 1.000000 + 66 165 1.000000 + 67 165 1.000000 + 68 165 1.000000 + 69 165 1.000000 + 70 165 1.000000 + 71 165 1.000000 + 72 165 1.000000 + 73 165 1.000000 + 74 165 1.000000 + 75 165 1.000000 + 76 165 1.000000 + 77 165 1.000000 + 78 165 1.000000 + 79 165 1.000000 + 80 165 1.000000 + 81 165 1.000000 + 82 165 1.000000 + 83 165 1.000000 + 84 165 1.000000 + 85 165 1.000000 + 86 165 1.000000 + 87 165 1.000000 + 88 165 1.000000 + 89 165 1.000000 + 90 165 1.000000 + 91 165 1.000000 + 92 165 1.000000 + 93 165 1.000000 + 94 165 1.000000 + 95 165 1.000000 + 96 165 1.000000 + 97 165 1.000000 + 98 165 1.000000 + 99 165 1.000000 + 100 165 1.000000 + 101 165 1.000000 + 102 165 1.000000 + 103 165 1.000000 + 104 165 1.000000 + 105 165 1.000000 + 106 165 1.000000 + 107 165 1.000000 + 108 165 1.000000 + 109 165 1.000000 + 110 165 1.000000 + 111 165 1.000000 + 112 165 1.000000 + 113 165 1.000000 + 114 165 1.000000 + 115 165 1.000000 + 116 165 1.000000 + 117 165 1.000000 + 118 165 1.000000 + 119 165 1.000000 + 120 165 1.000000 + 121 165 1.000000 + 122 165 1.000000 + 123 165 1.000000 + 124 165 1.000000 + 125 165 1.000000 + 126 165 1.000000 + 127 165 1.000000 + 128 165 1.000000 + 129 165 1.000000 + 130 165 1.000000 + 131 165 1.000000 + 132 165 1.000000 + 133 165 1.000000 + 134 165 1.000000 + 135 165 1.000000 + 136 165 1.000000 + 137 165 1.000000 + 138 165 1.000000 + 139 165 1.000000 + 140 165 1.000000 + 141 165 1.000000 + 142 165 1.000000 + 143 165 1.000000 + 144 165 1.000000 + 145 165 1.000000 + 146 165 1.000000 + 147 165 1.000000 + 148 165 1.000000 + 149 165 1.000000 + 150 165 1.000000 + 151 165 1.000000 + 152 165 1.000000 + 153 165 1.000000 + 154 165 1.000000 + 155 165 1.000000 + 156 165 1.000000 + 157 165 1.000000 + 158 165 1.000000 + 159 165 1.000000 + 160 165 1.000000 + 1 166 1.000000 + 2 166 1.000000 + 3 166 1.000000 + 4 166 1.000000 + 5 166 1.000000 + 6 166 1.000000 + 7 166 1.000000 + 8 166 1.000000 + 9 166 1.000000 + 10 166 1.000000 + 11 166 1.000000 + 12 166 1.000000 + 13 166 1.000000 + 14 166 1.000000 + 15 166 1.000000 + 16 166 1.000000 + 17 166 1.000000 + 18 166 1.000000 + 19 166 1.000000 + 20 166 1.000000 + 21 166 1.000000 + 22 166 1.000000 + 23 166 1.000000 + 24 166 1.000000 + 25 166 1.000000 + 26 166 1.000000 + 27 166 1.000000 + 28 166 1.000000 + 29 166 1.000000 + 30 166 1.000000 + 31 166 1.000000 + 32 166 1.000000 + 33 166 1.000000 + 34 166 1.000000 + 35 166 1.000000 + 36 166 1.000000 + 37 166 1.000000 + 38 166 1.000000 + 39 166 1.000000 + 40 166 1.000000 + 41 166 1.000000 + 42 166 1.000000 + 43 166 1.000000 + 44 166 1.000000 + 45 166 1.000000 + 46 166 1.000000 + 47 166 1.000000 + 48 166 1.000000 + 49 166 1.000000 + 50 166 1.000000 + 51 166 1.000000 + 52 166 1.000000 + 53 166 1.000000 + 54 166 1.000000 + 55 166 1.000000 + 56 166 1.000000 + 57 166 1.000000 + 58 166 1.000000 + 59 166 1.000000 + 60 166 1.000000 + 61 166 1.000000 + 62 166 1.000000 + 63 166 1.000000 + 64 166 1.000000 + 65 166 1.000000 + 66 166 1.000000 + 67 166 1.000000 + 68 166 1.000000 + 69 166 1.000000 + 70 166 1.000000 + 71 166 1.000000 + 72 166 1.000000 + 73 166 1.000000 + 74 166 1.000000 + 75 166 1.000000 + 76 166 1.000000 + 77 166 1.000000 + 78 166 1.000000 + 79 166 1.000000 + 80 166 1.000000 + 81 166 1.000000 + 82 166 1.000000 + 83 166 1.000000 + 84 166 1.000000 + 85 166 1.000000 + 86 166 1.000000 + 87 166 1.000000 + 88 166 1.000000 + 89 166 1.000000 + 90 166 1.000000 + 91 166 1.000000 + 92 166 1.000000 + 93 166 1.000000 + 94 166 1.000000 + 95 166 1.000000 + 96 166 1.000000 + 97 166 1.000000 + 98 166 1.000000 + 99 166 1.000000 + 100 166 1.000000 + 101 166 1.000000 + 102 166 1.000000 + 103 166 1.000000 + 104 166 1.000000 + 105 166 1.000000 + 106 166 1.000000 + 107 166 1.000000 + 108 166 1.000000 + 109 166 1.000000 + 110 166 1.000000 + 111 166 1.000000 + 112 166 1.000000 + 113 166 1.000000 + 114 166 1.000000 + 115 166 1.000000 + 116 166 1.000000 + 117 166 1.000000 + 118 166 1.000000 + 119 166 1.000000 + 120 166 1.000000 + 121 166 1.000000 + 122 166 1.000000 + 123 166 1.000000 + 124 166 1.000000 + 125 166 1.000000 + 126 166 1.000000 + 127 166 1.000000 + 128 166 1.000000 + 129 166 1.000000 + 130 166 1.000000 + 131 166 1.000000 + 132 166 1.000000 + 133 166 1.000000 + 134 166 1.000000 + 135 166 1.000000 + 136 166 1.000000 + 137 166 1.000000 + 138 166 1.000000 + 139 166 1.000000 + 140 166 1.000000 + 141 166 1.000000 + 142 166 1.000000 + 143 166 1.000000 + 144 166 1.000000 + 145 166 1.000000 + 146 166 1.000000 + 147 166 1.000000 + 148 166 1.000000 + 149 166 1.000000 + 150 166 1.000000 + 151 166 1.000000 + 152 166 1.000000 + 153 166 1.000000 + 154 166 1.000000 + 155 166 1.000000 + 156 166 1.000000 + 157 166 1.000000 + 158 166 1.000000 + 159 166 1.000000 + 160 166 1.000000 + 1 167 1.000000 + 2 167 1.000000 + 3 167 1.000000 + 4 167 1.000000 + 5 167 1.000000 + 6 167 1.000000 + 7 167 1.000000 + 8 167 1.000000 + 9 167 1.000000 + 10 167 1.000000 + 11 167 1.000000 + 12 167 1.000000 + 13 167 1.000000 + 14 167 1.000000 + 15 167 1.000000 + 16 167 1.000000 + 17 167 1.000000 + 18 167 1.000000 + 19 167 1.000000 + 20 167 1.000000 + 21 167 1.000000 + 22 167 1.000000 + 23 167 1.000000 + 24 167 1.000000 + 25 167 1.000000 + 26 167 1.000000 + 27 167 1.000000 + 28 167 1.000000 + 29 167 1.000000 + 30 167 1.000000 + 31 167 1.000000 + 32 167 1.000000 + 33 167 1.000000 + 34 167 1.000000 + 35 167 1.000000 + 36 167 1.000000 + 37 167 1.000000 + 38 167 1.000000 + 39 167 1.000000 + 40 167 1.000000 + 41 167 1.000000 + 42 167 1.000000 + 43 167 1.000000 + 44 167 1.000000 + 45 167 1.000000 + 46 167 1.000000 + 47 167 1.000000 + 48 167 1.000000 + 49 167 1.000000 + 50 167 1.000000 + 51 167 1.000000 + 52 167 1.000000 + 53 167 1.000000 + 54 167 1.000000 + 55 167 1.000000 + 56 167 1.000000 + 57 167 1.000000 + 58 167 1.000000 + 59 167 1.000000 + 60 167 1.000000 + 61 167 1.000000 + 62 167 1.000000 + 63 167 1.000000 + 64 167 1.000000 + 65 167 1.000000 + 66 167 1.000000 + 67 167 1.000000 + 68 167 1.000000 + 69 167 1.000000 + 70 167 1.000000 + 71 167 1.000000 + 72 167 1.000000 + 73 167 1.000000 + 74 167 1.000000 + 75 167 1.000000 + 76 167 1.000000 + 77 167 1.000000 + 78 167 1.000000 + 79 167 1.000000 + 80 167 1.000000 + 81 167 1.000000 + 82 167 1.000000 + 83 167 1.000000 + 84 167 1.000000 + 85 167 1.000000 + 86 167 1.000000 + 87 167 1.000000 + 88 167 1.000000 + 89 167 1.000000 + 90 167 1.000000 + 91 167 1.000000 + 92 167 1.000000 + 93 167 1.000000 + 94 167 1.000000 + 95 167 1.000000 + 96 167 1.000000 + 97 167 1.000000 + 98 167 1.000000 + 99 167 1.000000 + 100 167 1.000000 + 101 167 1.000000 + 102 167 1.000000 + 103 167 1.000000 + 104 167 1.000000 + 105 167 1.000000 + 106 167 1.000000 + 107 167 1.000000 + 108 167 1.000000 + 109 167 1.000000 + 110 167 1.000000 + 111 167 1.000000 + 112 167 1.000000 + 113 167 1.000000 + 114 167 1.000000 + 115 167 1.000000 + 116 167 1.000000 + 117 167 1.000000 + 118 167 1.000000 + 119 167 1.000000 + 120 167 1.000000 + 121 167 1.000000 + 122 167 1.000000 + 123 167 1.000000 + 124 167 1.000000 + 125 167 1.000000 + 126 167 1.000000 + 127 167 1.000000 + 128 167 1.000000 + 129 167 1.000000 + 130 167 1.000000 + 131 167 1.000000 + 132 167 1.000000 + 133 167 1.000000 + 134 167 1.000000 + 135 167 1.000000 + 136 167 1.000000 + 137 167 1.000000 + 138 167 1.000000 + 139 167 1.000000 + 140 167 1.000000 + 141 167 1.000000 + 142 167 1.000000 + 143 167 1.000000 + 144 167 1.000000 + 145 167 1.000000 + 146 167 1.000000 + 147 167 1.000000 + 148 167 1.000000 + 149 167 1.000000 + 150 167 1.000000 + 151 167 1.000000 + 152 167 1.000000 + 153 167 1.000000 + 154 167 1.000000 + 155 167 1.000000 + 156 167 1.000000 + 157 167 1.000000 + 158 167 1.000000 + 159 167 1.000000 + 160 167 1.000000 + 1 168 1.000000 + 2 168 1.000000 + 3 168 1.000000 + 4 168 1.000000 + 5 168 1.000000 + 6 168 1.000000 + 7 168 1.000000 + 8 168 1.000000 + 9 168 1.000000 + 10 168 1.000000 + 11 168 1.000000 + 12 168 1.000000 + 13 168 1.000000 + 14 168 1.000000 + 15 168 1.000000 + 16 168 1.000000 + 17 168 1.000000 + 18 168 1.000000 + 19 168 1.000000 + 20 168 1.000000 + 21 168 1.000000 + 22 168 1.000000 + 23 168 1.000000 + 24 168 1.000000 + 25 168 1.000000 + 26 168 1.000000 + 27 168 1.000000 + 28 168 1.000000 + 29 168 1.000000 + 30 168 1.000000 + 31 168 1.000000 + 32 168 1.000000 + 33 168 1.000000 + 34 168 1.000000 + 35 168 1.000000 + 36 168 1.000000 + 37 168 1.000000 + 38 168 1.000000 + 39 168 1.000000 + 40 168 1.000000 + 41 168 1.000000 + 42 168 1.000000 + 43 168 1.000000 + 44 168 1.000000 + 45 168 1.000000 + 46 168 1.000000 + 47 168 1.000000 + 48 168 1.000000 + 49 168 1.000000 + 50 168 1.000000 + 51 168 1.000000 + 52 168 1.000000 + 53 168 1.000000 + 54 168 1.000000 + 55 168 1.000000 + 56 168 1.000000 + 57 168 1.000000 + 58 168 1.000000 + 59 168 1.000000 + 60 168 1.000000 + 61 168 1.000000 + 62 168 1.000000 + 63 168 1.000000 + 64 168 1.000000 + 65 168 1.000000 + 66 168 1.000000 + 67 168 1.000000 + 68 168 1.000000 + 69 168 1.000000 + 70 168 1.000000 + 71 168 1.000000 + 72 168 1.000000 + 73 168 1.000000 + 74 168 1.000000 + 75 168 1.000000 + 76 168 1.000000 + 77 168 1.000000 + 78 168 1.000000 + 79 168 1.000000 + 80 168 1.000000 + 81 168 1.000000 + 82 168 1.000000 + 83 168 1.000000 + 84 168 1.000000 + 85 168 1.000000 + 86 168 1.000000 + 87 168 1.000000 + 88 168 1.000000 + 89 168 1.000000 + 90 168 1.000000 + 91 168 1.000000 + 92 168 1.000000 + 93 168 1.000000 + 94 168 1.000000 + 95 168 1.000000 + 96 168 1.000000 + 97 168 1.000000 + 98 168 1.000000 + 99 168 1.000000 + 100 168 1.000000 + 101 168 1.000000 + 102 168 1.000000 + 103 168 1.000000 + 104 168 1.000000 + 105 168 1.000000 + 106 168 1.000000 + 107 168 1.000000 + 108 168 1.000000 + 109 168 1.000000 + 110 168 1.000000 + 111 168 1.000000 + 112 168 1.000000 + 113 168 1.000000 + 114 168 1.000000 + 115 168 1.000000 + 116 168 1.000000 + 117 168 1.000000 + 118 168 1.000000 + 119 168 1.000000 + 120 168 1.000000 + 121 168 1.000000 + 122 168 1.000000 + 123 168 1.000000 + 124 168 1.000000 + 125 168 1.000000 + 126 168 1.000000 + 127 168 1.000000 + 128 168 1.000000 + 129 168 1.000000 + 130 168 1.000000 + 131 168 1.000000 + 132 168 1.000000 + 133 168 1.000000 + 134 168 1.000000 + 135 168 1.000000 + 136 168 1.000000 + 137 168 1.000000 + 138 168 1.000000 + 139 168 1.000000 + 140 168 1.000000 + 141 168 1.000000 + 142 168 1.000000 + 143 168 1.000000 + 144 168 1.000000 + 145 168 1.000000 + 146 168 1.000000 + 147 168 1.000000 + 148 168 1.000000 + 149 168 1.000000 + 150 168 1.000000 + 151 168 1.000000 + 152 168 1.000000 + 153 168 1.000000 + 154 168 1.000000 + 155 168 1.000000 + 156 168 1.000000 + 157 168 1.000000 + 158 168 1.000000 + 159 168 1.000000 + 160 168 1.000000 + 1 169 1.000000 + 2 169 1.000000 + 3 169 1.000000 + 4 169 1.000000 + 5 169 1.000000 + 6 169 1.000000 + 7 169 1.000000 + 8 169 1.000000 + 9 169 1.000000 + 10 169 1.000000 + 11 169 1.000000 + 12 169 1.000000 + 13 169 1.000000 + 14 169 1.000000 + 15 169 1.000000 + 16 169 1.000000 + 17 169 1.000000 + 18 169 1.000000 + 19 169 1.000000 + 20 169 1.000000 + 21 169 1.000000 + 22 169 1.000000 + 23 169 1.000000 + 24 169 1.000000 + 25 169 1.000000 + 26 169 1.000000 + 27 169 1.000000 + 28 169 1.000000 + 29 169 1.000000 + 30 169 1.000000 + 31 169 1.000000 + 32 169 1.000000 + 33 169 1.000000 + 34 169 1.000000 + 35 169 1.000000 + 36 169 1.000000 + 37 169 1.000000 + 38 169 1.000000 + 39 169 1.000000 + 40 169 1.000000 + 41 169 1.000000 + 42 169 1.000000 + 43 169 1.000000 + 44 169 1.000000 + 45 169 1.000000 + 46 169 1.000000 + 47 169 1.000000 + 48 169 1.000000 + 49 169 1.000000 + 50 169 1.000000 + 51 169 1.000000 + 52 169 1.000000 + 53 169 1.000000 + 54 169 1.000000 + 55 169 1.000000 + 56 169 1.000000 + 57 169 1.000000 + 58 169 1.000000 + 59 169 1.000000 + 60 169 1.000000 + 61 169 1.000000 + 62 169 1.000000 + 63 169 1.000000 + 64 169 1.000000 + 65 169 1.000000 + 66 169 1.000000 + 67 169 1.000000 + 68 169 1.000000 + 69 169 1.000000 + 70 169 1.000000 + 71 169 1.000000 + 72 169 1.000000 + 73 169 1.000000 + 74 169 1.000000 + 75 169 1.000000 + 76 169 1.000000 + 77 169 1.000000 + 78 169 1.000000 + 79 169 1.000000 + 80 169 1.000000 + 81 169 1.000000 + 82 169 1.000000 + 83 169 1.000000 + 84 169 1.000000 + 85 169 1.000000 + 86 169 1.000000 + 87 169 1.000000 + 88 169 1.000000 + 89 169 1.000000 + 90 169 1.000000 + 91 169 1.000000 + 92 169 1.000000 + 93 169 1.000000 + 94 169 1.000000 + 95 169 1.000000 + 96 169 1.000000 + 97 169 1.000000 + 98 169 1.000000 + 99 169 1.000000 + 100 169 1.000000 + 101 169 1.000000 + 102 169 1.000000 + 103 169 1.000000 + 104 169 1.000000 + 105 169 1.000000 + 106 169 1.000000 + 107 169 1.000000 + 108 169 1.000000 + 109 169 1.000000 + 110 169 1.000000 + 111 169 1.000000 + 112 169 1.000000 + 113 169 1.000000 + 114 169 1.000000 + 115 169 1.000000 + 116 169 1.000000 + 117 169 1.000000 + 118 169 1.000000 + 119 169 1.000000 + 120 169 1.000000 + 121 169 1.000000 + 122 169 1.000000 + 123 169 1.000000 + 124 169 1.000000 + 125 169 1.000000 + 126 169 1.000000 + 127 169 1.000000 + 128 169 1.000000 + 129 169 1.000000 + 130 169 1.000000 + 131 169 1.000000 + 132 169 1.000000 + 133 169 1.000000 + 134 169 1.000000 + 135 169 1.000000 + 136 169 1.000000 + 137 169 1.000000 + 138 169 1.000000 + 139 169 1.000000 + 140 169 1.000000 + 141 169 1.000000 + 142 169 1.000000 + 143 169 1.000000 + 144 169 1.000000 + 145 169 1.000000 + 146 169 1.000000 + 147 169 1.000000 + 148 169 1.000000 + 149 169 1.000000 + 150 169 1.000000 + 151 169 1.000000 + 152 169 1.000000 + 153 169 1.000000 + 154 169 1.000000 + 155 169 1.000000 + 156 169 1.000000 + 157 169 1.000000 + 158 169 1.000000 + 159 169 1.000000 + 160 169 1.000000 + 1 170 1.000000 + 2 170 1.000000 + 3 170 1.000000 + 4 170 1.000000 + 5 170 1.000000 + 6 170 1.000000 + 7 170 1.000000 + 8 170 1.000000 + 9 170 1.000000 + 10 170 1.000000 + 11 170 1.000000 + 12 170 1.000000 + 13 170 1.000000 + 14 170 1.000000 + 15 170 1.000000 + 16 170 1.000000 + 17 170 1.000000 + 18 170 1.000000 + 19 170 1.000000 + 20 170 1.000000 + 21 170 1.000000 + 22 170 1.000000 + 23 170 1.000000 + 24 170 1.000000 + 25 170 1.000000 + 26 170 1.000000 + 27 170 1.000000 + 28 170 1.000000 + 29 170 1.000000 + 30 170 1.000000 + 31 170 1.000000 + 32 170 1.000000 + 33 170 1.000000 + 34 170 1.000000 + 35 170 1.000000 + 36 170 1.000000 + 37 170 1.000000 + 38 170 1.000000 + 39 170 1.000000 + 40 170 1.000000 + 41 170 1.000000 + 42 170 1.000000 + 43 170 1.000000 + 44 170 1.000000 + 45 170 1.000000 + 46 170 1.000000 + 47 170 1.000000 + 48 170 1.000000 + 49 170 1.000000 + 50 170 1.000000 + 51 170 1.000000 + 52 170 1.000000 + 53 170 1.000000 + 54 170 1.000000 + 55 170 1.000000 + 56 170 1.000000 + 57 170 1.000000 + 58 170 1.000000 + 59 170 1.000000 + 60 170 1.000000 + 61 170 1.000000 + 62 170 1.000000 + 63 170 1.000000 + 64 170 1.000000 + 65 170 1.000000 + 66 170 1.000000 + 67 170 1.000000 + 68 170 1.000000 + 69 170 1.000000 + 70 170 1.000000 + 71 170 1.000000 + 72 170 1.000000 + 73 170 1.000000 + 74 170 1.000000 + 75 170 1.000000 + 76 170 1.000000 + 77 170 1.000000 + 78 170 1.000000 + 79 170 1.000000 + 80 170 1.000000 + 81 170 1.000000 + 82 170 1.000000 + 83 170 1.000000 + 84 170 1.000000 + 85 170 1.000000 + 86 170 1.000000 + 87 170 1.000000 + 88 170 1.000000 + 89 170 1.000000 + 90 170 1.000000 + 91 170 1.000000 + 92 170 1.000000 + 93 170 1.000000 + 94 170 1.000000 + 95 170 1.000000 + 96 170 1.000000 + 97 170 1.000000 + 98 170 1.000000 + 99 170 1.000000 + 100 170 1.000000 + 101 170 1.000000 + 102 170 1.000000 + 103 170 1.000000 + 104 170 1.000000 + 105 170 1.000000 + 106 170 1.000000 + 107 170 1.000000 + 108 170 1.000000 + 109 170 1.000000 + 110 170 1.000000 + 111 170 1.000000 + 112 170 1.000000 + 113 170 1.000000 + 114 170 1.000000 + 115 170 1.000000 + 116 170 1.000000 + 117 170 1.000000 + 118 170 1.000000 + 119 170 1.000000 + 120 170 1.000000 + 121 170 1.000000 + 122 170 1.000000 + 123 170 1.000000 + 124 170 1.000000 + 125 170 1.000000 + 126 170 1.000000 + 127 170 1.000000 + 128 170 1.000000 + 129 170 1.000000 + 130 170 1.000000 + 131 170 1.000000 + 132 170 1.000000 + 133 170 1.000000 + 134 170 1.000000 + 135 170 1.000000 + 136 170 1.000000 + 137 170 1.000000 + 138 170 1.000000 + 139 170 1.000000 + 140 170 1.000000 + 141 170 1.000000 + 142 170 1.000000 + 143 170 1.000000 + 144 170 1.000000 + 145 170 1.000000 + 146 170 1.000000 + 147 170 1.000000 + 148 170 1.000000 + 149 170 1.000000 + 150 170 1.000000 + 151 170 1.000000 + 152 170 1.000000 + 153 170 1.000000 + 154 170 1.000000 + 155 170 1.000000 + 156 170 1.000000 + 157 170 1.000000 + 158 170 1.000000 + 159 170 1.000000 + 160 170 1.000000 + 1 171 1.000000 + 2 171 1.000000 + 3 171 1.000000 + 4 171 1.000000 + 5 171 1.000000 + 6 171 1.000000 + 7 171 1.000000 + 8 171 1.000000 + 9 171 1.000000 + 10 171 1.000000 + 11 171 1.000000 + 12 171 1.000000 + 13 171 1.000000 + 14 171 1.000000 + 15 171 1.000000 + 16 171 1.000000 + 17 171 1.000000 + 18 171 1.000000 + 19 171 1.000000 + 20 171 1.000000 + 21 171 1.000000 + 22 171 1.000000 + 23 171 1.000000 + 24 171 1.000000 + 25 171 1.000000 + 26 171 1.000000 + 27 171 1.000000 + 28 171 1.000000 + 29 171 1.000000 + 30 171 1.000000 + 31 171 1.000000 + 32 171 1.000000 + 33 171 1.000000 + 34 171 1.000000 + 35 171 1.000000 + 36 171 1.000000 + 37 171 1.000000 + 38 171 1.000000 + 39 171 1.000000 + 40 171 1.000000 + 41 171 1.000000 + 42 171 1.000000 + 43 171 1.000000 + 44 171 1.000000 + 45 171 1.000000 + 46 171 1.000000 + 47 171 1.000000 + 48 171 1.000000 + 49 171 1.000000 + 50 171 1.000000 + 51 171 1.000000 + 52 171 1.000000 + 53 171 1.000000 + 54 171 1.000000 + 55 171 1.000000 + 56 171 1.000000 + 57 171 1.000000 + 58 171 1.000000 + 59 171 1.000000 + 60 171 1.000000 + 61 171 1.000000 + 62 171 1.000000 + 63 171 1.000000 + 64 171 1.000000 + 65 171 1.000000 + 66 171 1.000000 + 67 171 1.000000 + 68 171 1.000000 + 69 171 1.000000 + 70 171 1.000000 + 71 171 1.000000 + 72 171 1.000000 + 73 171 1.000000 + 74 171 1.000000 + 75 171 1.000000 + 76 171 1.000000 + 77 171 1.000000 + 78 171 1.000000 + 79 171 1.000000 + 80 171 1.000000 + 81 171 1.000000 + 82 171 1.000000 + 83 171 1.000000 + 84 171 1.000000 + 85 171 1.000000 + 86 171 1.000000 + 87 171 1.000000 + 88 171 1.000000 + 89 171 1.000000 + 90 171 1.000000 + 91 171 1.000000 + 92 171 1.000000 + 93 171 1.000000 + 94 171 1.000000 + 95 171 1.000000 + 96 171 1.000000 + 97 171 1.000000 + 98 171 1.000000 + 99 171 1.000000 + 100 171 1.000000 + 101 171 1.000000 + 102 171 1.000000 + 103 171 1.000000 + 104 171 1.000000 + 105 171 1.000000 + 106 171 1.000000 + 107 171 1.000000 + 108 171 1.000000 + 109 171 1.000000 + 110 171 1.000000 + 111 171 1.000000 + 112 171 1.000000 + 113 171 1.000000 + 114 171 1.000000 + 115 171 1.000000 + 116 171 1.000000 + 117 171 1.000000 + 118 171 1.000000 + 119 171 1.000000 + 120 171 1.000000 + 121 171 1.000000 + 122 171 1.000000 + 123 171 1.000000 + 124 171 1.000000 + 125 171 1.000000 + 126 171 1.000000 + 127 171 1.000000 + 128 171 1.000000 + 129 171 1.000000 + 130 171 1.000000 + 131 171 1.000000 + 132 171 1.000000 + 133 171 1.000000 + 134 171 1.000000 + 135 171 1.000000 + 136 171 1.000000 + 137 171 1.000000 + 138 171 1.000000 + 139 171 1.000000 + 140 171 1.000000 + 141 171 1.000000 + 142 171 1.000000 + 143 171 1.000000 + 144 171 1.000000 + 145 171 1.000000 + 146 171 1.000000 + 147 171 1.000000 + 148 171 1.000000 + 149 171 1.000000 + 150 171 1.000000 + 151 171 1.000000 + 152 171 1.000000 + 153 171 1.000000 + 154 171 1.000000 + 155 171 1.000000 + 156 171 1.000000 + 157 171 1.000000 + 158 171 1.000000 + 159 171 1.000000 + 160 171 1.000000 + 1 172 1.000000 + 2 172 1.000000 + 3 172 1.000000 + 4 172 1.000000 + 5 172 1.000000 + 6 172 1.000000 + 7 172 1.000000 + 8 172 1.000000 + 9 172 1.000000 + 10 172 1.000000 + 11 172 1.000000 + 12 172 1.000000 + 13 172 1.000000 + 14 172 1.000000 + 15 172 1.000000 + 16 172 1.000000 + 17 172 1.000000 + 18 172 1.000000 + 19 172 1.000000 + 20 172 1.000000 + 21 172 1.000000 + 22 172 1.000000 + 23 172 1.000000 + 24 172 1.000000 + 25 172 1.000000 + 26 172 1.000000 + 27 172 1.000000 + 28 172 1.000000 + 29 172 1.000000 + 30 172 1.000000 + 31 172 1.000000 + 32 172 1.000000 + 33 172 1.000000 + 34 172 1.000000 + 35 172 1.000000 + 36 172 1.000000 + 37 172 1.000000 + 38 172 1.000000 + 39 172 1.000000 + 40 172 1.000000 + 41 172 1.000000 + 42 172 1.000000 + 43 172 1.000000 + 44 172 1.000000 + 45 172 1.000000 + 46 172 1.000000 + 47 172 1.000000 + 48 172 1.000000 + 49 172 1.000000 + 50 172 1.000000 + 51 172 1.000000 + 52 172 1.000000 + 53 172 1.000000 + 54 172 1.000000 + 55 172 1.000000 + 56 172 1.000000 + 57 172 1.000000 + 58 172 1.000000 + 59 172 1.000000 + 60 172 1.000000 + 61 172 1.000000 + 62 172 1.000000 + 63 172 1.000000 + 64 172 1.000000 + 65 172 1.000000 + 66 172 1.000000 + 67 172 1.000000 + 68 172 1.000000 + 69 172 1.000000 + 70 172 1.000000 + 71 172 1.000000 + 72 172 1.000000 + 73 172 1.000000 + 74 172 1.000000 + 75 172 1.000000 + 76 172 1.000000 + 77 172 1.000000 + 78 172 1.000000 + 79 172 1.000000 + 80 172 1.000000 + 81 172 1.000000 + 82 172 1.000000 + 83 172 1.000000 + 84 172 1.000000 + 85 172 1.000000 + 86 172 1.000000 + 87 172 1.000000 + 88 172 1.000000 + 89 172 1.000000 + 90 172 1.000000 + 91 172 1.000000 + 92 172 1.000000 + 93 172 1.000000 + 94 172 1.000000 + 95 172 1.000000 + 96 172 1.000000 + 97 172 1.000000 + 98 172 1.000000 + 99 172 1.000000 + 100 172 1.000000 + 101 172 1.000000 + 102 172 1.000000 + 103 172 1.000000 + 104 172 1.000000 + 105 172 1.000000 + 106 172 1.000000 + 107 172 1.000000 + 108 172 1.000000 + 109 172 1.000000 + 110 172 1.000000 + 111 172 1.000000 + 112 172 1.000000 + 113 172 1.000000 + 114 172 1.000000 + 115 172 1.000000 + 116 172 1.000000 + 117 172 1.000000 + 118 172 1.000000 + 119 172 1.000000 + 120 172 1.000000 + 121 172 1.000000 + 122 172 1.000000 + 123 172 1.000000 + 124 172 1.000000 + 125 172 1.000000 + 126 172 1.000000 + 127 172 1.000000 + 128 172 1.000000 + 129 172 1.000000 + 130 172 1.000000 + 131 172 1.000000 + 132 172 1.000000 + 133 172 1.000000 + 134 172 1.000000 + 135 172 1.000000 + 136 172 1.000000 + 137 172 1.000000 + 138 172 1.000000 + 139 172 1.000000 + 140 172 1.000000 + 141 172 1.000000 + 142 172 1.000000 + 143 172 1.000000 + 144 172 1.000000 + 145 172 1.000000 + 146 172 1.000000 + 147 172 1.000000 + 148 172 1.000000 + 149 172 1.000000 + 150 172 1.000000 + 151 172 1.000000 + 152 172 1.000000 + 153 172 1.000000 + 154 172 1.000000 + 155 172 1.000000 + 156 172 1.000000 + 157 172 1.000000 + 158 172 1.000000 + 159 172 1.000000 + 160 172 1.000000 + 1 173 1.000000 + 2 173 1.000000 + 3 173 1.000000 + 4 173 1.000000 + 5 173 1.000000 + 6 173 1.000000 + 7 173 1.000000 + 8 173 1.000000 + 9 173 1.000000 + 10 173 1.000000 + 11 173 1.000000 + 12 173 1.000000 + 13 173 1.000000 + 14 173 1.000000 + 15 173 1.000000 + 16 173 1.000000 + 17 173 1.000000 + 18 173 1.000000 + 19 173 1.000000 + 20 173 1.000000 + 21 173 1.000000 + 22 173 1.000000 + 23 173 1.000000 + 24 173 1.000000 + 25 173 1.000000 + 26 173 1.000000 + 27 173 1.000000 + 28 173 1.000000 + 29 173 1.000000 + 30 173 1.000000 + 31 173 1.000000 + 32 173 1.000000 + 33 173 1.000000 + 34 173 1.000000 + 35 173 1.000000 + 36 173 1.000000 + 37 173 1.000000 + 38 173 1.000000 + 39 173 1.000000 + 40 173 1.000000 + 41 173 1.000000 + 42 173 1.000000 + 43 173 1.000000 + 44 173 1.000000 + 45 173 1.000000 + 46 173 1.000000 + 47 173 1.000000 + 48 173 1.000000 + 49 173 1.000000 + 50 173 1.000000 + 51 173 1.000000 + 52 173 1.000000 + 53 173 1.000000 + 54 173 1.000000 + 55 173 1.000000 + 56 173 1.000000 + 57 173 1.000000 + 58 173 1.000000 + 59 173 1.000000 + 60 173 1.000000 + 61 173 1.000000 + 62 173 1.000000 + 63 173 1.000000 + 64 173 1.000000 + 65 173 1.000000 + 66 173 1.000000 + 67 173 1.000000 + 68 173 1.000000 + 69 173 1.000000 + 70 173 1.000000 + 71 173 1.000000 + 72 173 1.000000 + 73 173 1.000000 + 74 173 1.000000 + 75 173 1.000000 + 76 173 1.000000 + 77 173 1.000000 + 78 173 1.000000 + 79 173 1.000000 + 80 173 1.000000 + 81 173 1.000000 + 82 173 1.000000 + 83 173 1.000000 + 84 173 1.000000 + 85 173 1.000000 + 86 173 1.000000 + 87 173 1.000000 + 88 173 1.000000 + 89 173 1.000000 + 90 173 1.000000 + 91 173 1.000000 + 92 173 1.000000 + 93 173 1.000000 + 94 173 1.000000 + 95 173 1.000000 + 96 173 1.000000 + 97 173 1.000000 + 98 173 1.000000 + 99 173 1.000000 + 100 173 1.000000 + 101 173 1.000000 + 102 173 1.000000 + 103 173 1.000000 + 104 173 1.000000 + 105 173 1.000000 + 106 173 1.000000 + 107 173 1.000000 + 108 173 1.000000 + 109 173 1.000000 + 110 173 1.000000 + 111 173 1.000000 + 112 173 1.000000 + 113 173 1.000000 + 114 173 1.000000 + 115 173 1.000000 + 116 173 1.000000 + 117 173 1.000000 + 118 173 1.000000 + 119 173 1.000000 + 120 173 1.000000 + 121 173 1.000000 + 122 173 1.000000 + 123 173 1.000000 + 124 173 1.000000 + 125 173 1.000000 + 126 173 1.000000 + 127 173 1.000000 + 128 173 1.000000 + 129 173 1.000000 + 130 173 1.000000 + 131 173 1.000000 + 132 173 1.000000 + 133 173 1.000000 + 134 173 1.000000 + 135 173 1.000000 + 136 173 1.000000 + 137 173 1.000000 + 138 173 1.000000 + 139 173 1.000000 + 140 173 1.000000 + 141 173 1.000000 + 142 173 1.000000 + 143 173 1.000000 + 144 173 1.000000 + 145 173 1.000000 + 146 173 1.000000 + 147 173 1.000000 + 148 173 1.000000 + 149 173 1.000000 + 150 173 1.000000 + 151 173 1.000000 + 152 173 1.000000 + 153 173 1.000000 + 154 173 1.000000 + 155 173 1.000000 + 156 173 1.000000 + 157 173 1.000000 + 158 173 1.000000 + 159 173 1.000000 + 160 173 1.000000 + 1 174 1.000000 + 2 174 1.000000 + 3 174 1.000000 + 4 174 1.000000 + 5 174 1.000000 + 6 174 1.000000 + 7 174 1.000000 + 8 174 1.000000 + 9 174 1.000000 + 10 174 1.000000 + 11 174 1.000000 + 12 174 1.000000 + 13 174 1.000000 + 14 174 1.000000 + 15 174 1.000000 + 16 174 1.000000 + 17 174 1.000000 + 18 174 1.000000 + 19 174 1.000000 + 20 174 1.000000 + 21 174 1.000000 + 22 174 1.000000 + 23 174 1.000000 + 24 174 1.000000 + 25 174 1.000000 + 26 174 1.000000 + 27 174 1.000000 + 28 174 1.000000 + 29 174 1.000000 + 30 174 1.000000 + 31 174 1.000000 + 32 174 1.000000 + 33 174 1.000000 + 34 174 1.000000 + 35 174 1.000000 + 36 174 1.000000 + 37 174 1.000000 + 38 174 1.000000 + 39 174 1.000000 + 40 174 1.000000 + 41 174 1.000000 + 42 174 1.000000 + 43 174 1.000000 + 44 174 1.000000 + 45 174 1.000000 + 46 174 1.000000 + 47 174 1.000000 + 48 174 1.000000 + 49 174 1.000000 + 50 174 1.000000 + 51 174 1.000000 + 52 174 1.000000 + 53 174 1.000000 + 54 174 1.000000 + 55 174 1.000000 + 56 174 1.000000 + 57 174 1.000000 + 58 174 1.000000 + 59 174 1.000000 + 60 174 1.000000 + 61 174 1.000000 + 62 174 1.000000 + 63 174 1.000000 + 64 174 1.000000 + 65 174 1.000000 + 66 174 1.000000 + 67 174 1.000000 + 68 174 1.000000 + 69 174 1.000000 + 70 174 1.000000 + 71 174 1.000000 + 72 174 1.000000 + 73 174 1.000000 + 74 174 1.000000 + 75 174 1.000000 + 76 174 1.000000 + 77 174 1.000000 + 78 174 1.000000 + 79 174 1.000000 + 80 174 1.000000 + 81 174 1.000000 + 82 174 1.000000 + 83 174 1.000000 + 84 174 1.000000 + 85 174 1.000000 + 86 174 1.000000 + 87 174 1.000000 + 88 174 1.000000 + 89 174 1.000000 + 90 174 1.000000 + 91 174 1.000000 + 92 174 1.000000 + 93 174 1.000000 + 94 174 1.000000 + 95 174 1.000000 + 96 174 1.000000 + 97 174 1.000000 + 98 174 1.000000 + 99 174 1.000000 + 100 174 1.000000 + 101 174 1.000000 + 102 174 1.000000 + 103 174 1.000000 + 104 174 1.000000 + 105 174 1.000000 + 106 174 1.000000 + 107 174 1.000000 + 108 174 1.000000 + 109 174 1.000000 + 110 174 1.000000 + 111 174 1.000000 + 112 174 1.000000 + 113 174 1.000000 + 114 174 1.000000 + 115 174 1.000000 + 116 174 1.000000 + 117 174 1.000000 + 118 174 1.000000 + 119 174 1.000000 + 120 174 1.000000 + 121 174 1.000000 + 122 174 1.000000 + 123 174 1.000000 + 124 174 1.000000 + 125 174 1.000000 + 126 174 1.000000 + 127 174 1.000000 + 128 174 1.000000 + 129 174 1.000000 + 130 174 1.000000 + 131 174 1.000000 + 132 174 1.000000 + 133 174 1.000000 + 134 174 1.000000 + 135 174 1.000000 + 136 174 1.000000 + 137 174 1.000000 + 138 174 1.000000 + 139 174 1.000000 + 140 174 1.000000 + 141 174 1.000000 + 142 174 1.000000 + 143 174 1.000000 + 144 174 1.000000 + 145 174 1.000000 + 146 174 1.000000 + 147 174 1.000000 + 148 174 1.000000 + 149 174 1.000000 + 150 174 1.000000 + 151 174 1.000000 + 152 174 1.000000 + 153 174 1.000000 + 154 174 1.000000 + 155 174 1.000000 + 156 174 1.000000 + 157 174 1.000000 + 158 174 1.000000 + 159 174 1.000000 + 160 174 1.000000 + 1 175 1.000000 + 2 175 1.000000 + 3 175 1.000000 + 4 175 1.000000 + 5 175 1.000000 + 6 175 1.000000 + 7 175 1.000000 + 8 175 1.000000 + 9 175 1.000000 + 10 175 1.000000 + 11 175 1.000000 + 12 175 1.000000 + 13 175 1.000000 + 14 175 1.000000 + 15 175 1.000000 + 16 175 1.000000 + 17 175 1.000000 + 18 175 1.000000 + 19 175 1.000000 + 20 175 1.000000 + 21 175 1.000000 + 22 175 1.000000 + 23 175 1.000000 + 24 175 1.000000 + 25 175 1.000000 + 26 175 1.000000 + 27 175 1.000000 + 28 175 1.000000 + 29 175 1.000000 + 30 175 1.000000 + 31 175 1.000000 + 32 175 1.000000 + 33 175 1.000000 + 34 175 1.000000 + 35 175 1.000000 + 36 175 1.000000 + 37 175 1.000000 + 38 175 1.000000 + 39 175 1.000000 + 40 175 1.000000 + 41 175 1.000000 + 42 175 1.000000 + 43 175 1.000000 + 44 175 1.000000 + 45 175 1.000000 + 46 175 1.000000 + 47 175 1.000000 + 48 175 1.000000 + 49 175 1.000000 + 50 175 1.000000 + 51 175 1.000000 + 52 175 1.000000 + 53 175 1.000000 + 54 175 1.000000 + 55 175 1.000000 + 56 175 1.000000 + 57 175 1.000000 + 58 175 1.000000 + 59 175 1.000000 + 60 175 1.000000 + 61 175 1.000000 + 62 175 1.000000 + 63 175 1.000000 + 64 175 1.000000 + 65 175 1.000000 + 66 175 1.000000 + 67 175 1.000000 + 68 175 1.000000 + 69 175 1.000000 + 70 175 1.000000 + 71 175 1.000000 + 72 175 1.000000 + 73 175 1.000000 + 74 175 1.000000 + 75 175 1.000000 + 76 175 1.000000 + 77 175 1.000000 + 78 175 1.000000 + 79 175 1.000000 + 80 175 1.000000 + 81 175 1.000000 + 82 175 1.000000 + 83 175 1.000000 + 84 175 1.000000 + 85 175 1.000000 + 86 175 1.000000 + 87 175 1.000000 + 88 175 1.000000 + 89 175 1.000000 + 90 175 1.000000 + 91 175 1.000000 + 92 175 1.000000 + 93 175 1.000000 + 94 175 1.000000 + 95 175 1.000000 + 96 175 1.000000 + 97 175 1.000000 + 98 175 1.000000 + 99 175 1.000000 + 100 175 1.000000 + 101 175 1.000000 + 102 175 1.000000 + 103 175 1.000000 + 104 175 1.000000 + 105 175 1.000000 + 106 175 1.000000 + 107 175 1.000000 + 108 175 1.000000 + 109 175 1.000000 + 110 175 1.000000 + 111 175 1.000000 + 112 175 1.000000 + 113 175 1.000000 + 114 175 1.000000 + 115 175 1.000000 + 116 175 1.000000 + 117 175 1.000000 + 118 175 1.000000 + 119 175 1.000000 + 120 175 1.000000 + 121 175 1.000000 + 122 175 1.000000 + 123 175 1.000000 + 124 175 1.000000 + 125 175 1.000000 + 126 175 1.000000 + 127 175 1.000000 + 128 175 1.000000 + 129 175 1.000000 + 130 175 1.000000 + 131 175 1.000000 + 132 175 1.000000 + 133 175 1.000000 + 134 175 1.000000 + 135 175 1.000000 + 136 175 1.000000 + 137 175 1.000000 + 138 175 1.000000 + 139 175 1.000000 + 140 175 1.000000 + 141 175 1.000000 + 142 175 1.000000 + 143 175 1.000000 + 144 175 1.000000 + 145 175 1.000000 + 146 175 1.000000 + 147 175 1.000000 + 148 175 1.000000 + 149 175 1.000000 + 150 175 1.000000 + 151 175 1.000000 + 152 175 1.000000 + 153 175 1.000000 + 154 175 1.000000 + 155 175 1.000000 + 156 175 1.000000 + 157 175 1.000000 + 158 175 1.000000 + 159 175 1.000000 + 160 175 1.000000 + 1 176 1.000000 + 2 176 1.000000 + 3 176 1.000000 + 4 176 1.000000 + 5 176 1.000000 + 6 176 1.000000 + 7 176 1.000000 + 8 176 1.000000 + 9 176 1.000000 + 10 176 1.000000 + 11 176 1.000000 + 12 176 1.000000 + 13 176 1.000000 + 14 176 1.000000 + 15 176 1.000000 + 16 176 1.000000 + 17 176 1.000000 + 18 176 1.000000 + 19 176 1.000000 + 20 176 1.000000 + 21 176 1.000000 + 22 176 1.000000 + 23 176 1.000000 + 24 176 1.000000 + 25 176 1.000000 + 26 176 1.000000 + 27 176 1.000000 + 28 176 1.000000 + 29 176 1.000000 + 30 176 1.000000 + 31 176 1.000000 + 32 176 1.000000 + 33 176 1.000000 + 34 176 1.000000 + 35 176 1.000000 + 36 176 1.000000 + 37 176 1.000000 + 38 176 1.000000 + 39 176 1.000000 + 40 176 1.000000 + 41 176 1.000000 + 42 176 1.000000 + 43 176 1.000000 + 44 176 1.000000 + 45 176 1.000000 + 46 176 1.000000 + 47 176 1.000000 + 48 176 1.000000 + 49 176 1.000000 + 50 176 1.000000 + 51 176 1.000000 + 52 176 1.000000 + 53 176 1.000000 + 54 176 1.000000 + 55 176 1.000000 + 56 176 1.000000 + 57 176 1.000000 + 58 176 1.000000 + 59 176 1.000000 + 60 176 1.000000 + 61 176 1.000000 + 62 176 1.000000 + 63 176 1.000000 + 64 176 1.000000 + 65 176 1.000000 + 66 176 1.000000 + 67 176 1.000000 + 68 176 1.000000 + 69 176 1.000000 + 70 176 1.000000 + 71 176 1.000000 + 72 176 1.000000 + 73 176 1.000000 + 74 176 1.000000 + 75 176 1.000000 + 76 176 1.000000 + 77 176 1.000000 + 78 176 1.000000 + 79 176 1.000000 + 80 176 1.000000 + 81 176 1.000000 + 82 176 1.000000 + 83 176 1.000000 + 84 176 1.000000 + 85 176 1.000000 + 86 176 1.000000 + 87 176 1.000000 + 88 176 1.000000 + 89 176 1.000000 + 90 176 1.000000 + 91 176 1.000000 + 92 176 1.000000 + 93 176 1.000000 + 94 176 1.000000 + 95 176 1.000000 + 96 176 1.000000 + 97 176 1.000000 + 98 176 1.000000 + 99 176 1.000000 + 100 176 1.000000 + 101 176 1.000000 + 102 176 1.000000 + 103 176 1.000000 + 104 176 1.000000 + 105 176 1.000000 + 106 176 1.000000 + 107 176 1.000000 + 108 176 1.000000 + 109 176 1.000000 + 110 176 1.000000 + 111 176 1.000000 + 112 176 1.000000 + 113 176 1.000000 + 114 176 1.000000 + 115 176 1.000000 + 116 176 1.000000 + 117 176 1.000000 + 118 176 1.000000 + 119 176 1.000000 + 120 176 1.000000 + 121 176 1.000000 + 122 176 1.000000 + 123 176 1.000000 + 124 176 1.000000 + 125 176 1.000000 + 126 176 1.000000 + 127 176 1.000000 + 128 176 1.000000 + 129 176 1.000000 + 130 176 1.000000 + 131 176 1.000000 + 132 176 1.000000 + 133 176 1.000000 + 134 176 1.000000 + 135 176 1.000000 + 136 176 1.000000 + 137 176 1.000000 + 138 176 1.000000 + 139 176 1.000000 + 140 176 1.000000 + 141 176 1.000000 + 142 176 1.000000 + 143 176 1.000000 + 144 176 1.000000 + 145 176 1.000000 + 146 176 1.000000 + 147 176 1.000000 + 148 176 1.000000 + 149 176 1.000000 + 150 176 1.000000 + 151 176 1.000000 + 152 176 1.000000 + 153 176 1.000000 + 154 176 1.000000 + 155 176 1.000000 + 156 176 1.000000 + 157 176 1.000000 + 158 176 1.000000 + 159 176 1.000000 + 160 176 1.000000 + 1 177 1.000000 + 2 177 1.000000 + 3 177 1.000000 + 4 177 1.000000 + 5 177 1.000000 + 6 177 1.000000 + 7 177 1.000000 + 8 177 1.000000 + 9 177 1.000000 + 10 177 1.000000 + 11 177 1.000000 + 12 177 1.000000 + 13 177 1.000000 + 14 177 1.000000 + 15 177 1.000000 + 16 177 1.000000 + 17 177 1.000000 + 18 177 1.000000 + 19 177 1.000000 + 20 177 1.000000 + 21 177 1.000000 + 22 177 1.000000 + 23 177 1.000000 + 24 177 1.000000 + 25 177 1.000000 + 26 177 1.000000 + 27 177 1.000000 + 28 177 1.000000 + 29 177 1.000000 + 30 177 1.000000 + 31 177 1.000000 + 32 177 1.000000 + 33 177 1.000000 + 34 177 1.000000 + 35 177 1.000000 + 36 177 1.000000 + 37 177 1.000000 + 38 177 1.000000 + 39 177 1.000000 + 40 177 1.000000 + 41 177 1.000000 + 42 177 1.000000 + 43 177 1.000000 + 44 177 1.000000 + 45 177 1.000000 + 46 177 1.000000 + 47 177 1.000000 + 48 177 1.000000 + 49 177 1.000000 + 50 177 1.000000 + 51 177 1.000000 + 52 177 1.000000 + 53 177 1.000000 + 54 177 1.000000 + 55 177 1.000000 + 56 177 1.000000 + 57 177 1.000000 + 58 177 1.000000 + 59 177 1.000000 + 60 177 1.000000 + 61 177 1.000000 + 62 177 1.000000 + 63 177 1.000000 + 64 177 1.000000 + 65 177 1.000000 + 66 177 1.000000 + 67 177 1.000000 + 68 177 1.000000 + 69 177 1.000000 + 70 177 1.000000 + 71 177 1.000000 + 72 177 1.000000 + 73 177 1.000000 + 74 177 1.000000 + 75 177 1.000000 + 76 177 1.000000 + 77 177 1.000000 + 78 177 1.000000 + 79 177 1.000000 + 80 177 1.000000 + 81 177 1.000000 + 82 177 1.000000 + 83 177 1.000000 + 84 177 1.000000 + 85 177 1.000000 + 86 177 1.000000 + 87 177 1.000000 + 88 177 1.000000 + 89 177 1.000000 + 90 177 1.000000 + 91 177 1.000000 + 92 177 1.000000 + 93 177 1.000000 + 94 177 1.000000 + 95 177 1.000000 + 96 177 1.000000 + 97 177 1.000000 + 98 177 1.000000 + 99 177 1.000000 + 100 177 1.000000 + 101 177 1.000000 + 102 177 1.000000 + 103 177 1.000000 + 104 177 1.000000 + 105 177 1.000000 + 106 177 1.000000 + 107 177 1.000000 + 108 177 1.000000 + 109 177 1.000000 + 110 177 1.000000 + 111 177 1.000000 + 112 177 1.000000 + 113 177 1.000000 + 114 177 1.000000 + 115 177 1.000000 + 116 177 1.000000 + 117 177 1.000000 + 118 177 1.000000 + 119 177 1.000000 + 120 177 1.000000 + 121 177 1.000000 + 122 177 1.000000 + 123 177 1.000000 + 124 177 1.000000 + 125 177 1.000000 + 126 177 1.000000 + 127 177 1.000000 + 128 177 1.000000 + 129 177 1.000000 + 130 177 1.000000 + 131 177 1.000000 + 132 177 1.000000 + 133 177 1.000000 + 134 177 1.000000 + 135 177 1.000000 + 136 177 1.000000 + 137 177 1.000000 + 138 177 1.000000 + 139 177 1.000000 + 140 177 1.000000 + 141 177 1.000000 + 142 177 1.000000 + 143 177 1.000000 + 144 177 1.000000 + 145 177 1.000000 + 146 177 1.000000 + 147 177 1.000000 + 148 177 1.000000 + 149 177 1.000000 + 150 177 1.000000 + 151 177 1.000000 + 152 177 1.000000 + 153 177 1.000000 + 154 177 1.000000 + 155 177 1.000000 + 156 177 1.000000 + 157 177 1.000000 + 158 177 1.000000 + 159 177 1.000000 + 160 177 1.000000 + 1 178 1.000000 + 2 178 1.000000 + 3 178 1.000000 + 4 178 1.000000 + 5 178 1.000000 + 6 178 1.000000 + 7 178 1.000000 + 8 178 1.000000 + 9 178 1.000000 + 10 178 1.000000 + 11 178 1.000000 + 12 178 1.000000 + 13 178 1.000000 + 14 178 1.000000 + 15 178 1.000000 + 16 178 1.000000 + 17 178 1.000000 + 18 178 1.000000 + 19 178 1.000000 + 20 178 1.000000 + 21 178 1.000000 + 22 178 1.000000 + 23 178 1.000000 + 24 178 1.000000 + 25 178 1.000000 + 26 178 1.000000 + 27 178 1.000000 + 28 178 1.000000 + 29 178 1.000000 + 30 178 1.000000 + 31 178 1.000000 + 32 178 1.000000 + 33 178 1.000000 + 34 178 1.000000 + 35 178 1.000000 + 36 178 1.000000 + 37 178 1.000000 + 38 178 1.000000 + 39 178 1.000000 + 40 178 1.000000 + 41 178 1.000000 + 42 178 1.000000 + 43 178 1.000000 + 44 178 1.000000 + 45 178 1.000000 + 46 178 1.000000 + 47 178 1.000000 + 48 178 1.000000 + 49 178 1.000000 + 50 178 1.000000 + 51 178 1.000000 + 52 178 1.000000 + 53 178 1.000000 + 54 178 1.000000 + 55 178 1.000000 + 56 178 1.000000 + 57 178 1.000000 + 58 178 1.000000 + 59 178 1.000000 + 60 178 1.000000 + 61 178 1.000000 + 62 178 1.000000 + 63 178 1.000000 + 64 178 1.000000 + 65 178 1.000000 + 66 178 1.000000 + 67 178 1.000000 + 68 178 1.000000 + 69 178 1.000000 + 70 178 1.000000 + 71 178 1.000000 + 72 178 1.000000 + 73 178 1.000000 + 74 178 1.000000 + 75 178 1.000000 + 76 178 1.000000 + 77 178 1.000000 + 78 178 1.000000 + 79 178 1.000000 + 80 178 1.000000 + 81 178 1.000000 + 82 178 1.000000 + 83 178 1.000000 + 84 178 1.000000 + 85 178 1.000000 + 86 178 1.000000 + 87 178 1.000000 + 88 178 1.000000 + 89 178 1.000000 + 90 178 1.000000 + 91 178 1.000000 + 92 178 1.000000 + 93 178 1.000000 + 94 178 1.000000 + 95 178 1.000000 + 96 178 1.000000 + 97 178 1.000000 + 98 178 1.000000 + 99 178 1.000000 + 100 178 1.000000 + 101 178 1.000000 + 102 178 1.000000 + 103 178 1.000000 + 104 178 1.000000 + 105 178 1.000000 + 106 178 1.000000 + 107 178 1.000000 + 108 178 1.000000 + 109 178 1.000000 + 110 178 1.000000 + 111 178 1.000000 + 112 178 1.000000 + 113 178 1.000000 + 114 178 1.000000 + 115 178 1.000000 + 116 178 1.000000 + 117 178 1.000000 + 118 178 1.000000 + 119 178 1.000000 + 120 178 1.000000 + 121 178 1.000000 + 122 178 1.000000 + 123 178 1.000000 + 124 178 1.000000 + 125 178 1.000000 + 126 178 1.000000 + 127 178 1.000000 + 128 178 1.000000 + 129 178 1.000000 + 130 178 1.000000 + 131 178 1.000000 + 132 178 1.000000 + 133 178 1.000000 + 134 178 1.000000 + 135 178 1.000000 + 136 178 1.000000 + 137 178 1.000000 + 138 178 1.000000 + 139 178 1.000000 + 140 178 1.000000 + 141 178 1.000000 + 142 178 1.000000 + 143 178 1.000000 + 144 178 1.000000 + 145 178 1.000000 + 146 178 1.000000 + 147 178 1.000000 + 148 178 1.000000 + 149 178 1.000000 + 150 178 1.000000 + 151 178 1.000000 + 152 178 1.000000 + 153 178 1.000000 + 154 178 1.000000 + 155 178 1.000000 + 156 178 1.000000 + 157 178 1.000000 + 158 178 1.000000 + 159 178 1.000000 + 160 178 1.000000 + 1 179 1.000000 + 2 179 1.000000 + 3 179 1.000000 + 4 179 1.000000 + 5 179 1.000000 + 6 179 1.000000 + 7 179 1.000000 + 8 179 1.000000 + 9 179 1.000000 + 10 179 1.000000 + 11 179 1.000000 + 12 179 1.000000 + 13 179 1.000000 + 14 179 1.000000 + 15 179 1.000000 + 16 179 1.000000 + 17 179 1.000000 + 18 179 1.000000 + 19 179 1.000000 + 20 179 1.000000 + 21 179 1.000000 + 22 179 1.000000 + 23 179 1.000000 + 24 179 1.000000 + 25 179 1.000000 + 26 179 1.000000 + 27 179 1.000000 + 28 179 1.000000 + 29 179 1.000000 + 30 179 1.000000 + 31 179 1.000000 + 32 179 1.000000 + 33 179 1.000000 + 34 179 1.000000 + 35 179 1.000000 + 36 179 1.000000 + 37 179 1.000000 + 38 179 1.000000 + 39 179 1.000000 + 40 179 1.000000 + 41 179 1.000000 + 42 179 1.000000 + 43 179 1.000000 + 44 179 1.000000 + 45 179 1.000000 + 46 179 1.000000 + 47 179 1.000000 + 48 179 1.000000 + 49 179 1.000000 + 50 179 1.000000 + 51 179 1.000000 + 52 179 1.000000 + 53 179 1.000000 + 54 179 1.000000 + 55 179 1.000000 + 56 179 1.000000 + 57 179 1.000000 + 58 179 1.000000 + 59 179 1.000000 + 60 179 1.000000 + 61 179 1.000000 + 62 179 1.000000 + 63 179 1.000000 + 64 179 1.000000 + 65 179 1.000000 + 66 179 1.000000 + 67 179 1.000000 + 68 179 1.000000 + 69 179 1.000000 + 70 179 1.000000 + 71 179 1.000000 + 72 179 1.000000 + 73 179 1.000000 + 74 179 1.000000 + 75 179 1.000000 + 76 179 1.000000 + 77 179 1.000000 + 78 179 1.000000 + 79 179 1.000000 + 80 179 1.000000 + 81 179 1.000000 + 82 179 1.000000 + 83 179 1.000000 + 84 179 1.000000 + 85 179 1.000000 + 86 179 1.000000 + 87 179 1.000000 + 88 179 1.000000 + 89 179 1.000000 + 90 179 1.000000 + 91 179 1.000000 + 92 179 1.000000 + 93 179 1.000000 + 94 179 1.000000 + 95 179 1.000000 + 96 179 1.000000 + 97 179 1.000000 + 98 179 1.000000 + 99 179 1.000000 + 100 179 1.000000 + 101 179 1.000000 + 102 179 1.000000 + 103 179 1.000000 + 104 179 1.000000 + 105 179 1.000000 + 106 179 1.000000 + 107 179 1.000000 + 108 179 1.000000 + 109 179 1.000000 + 110 179 1.000000 + 111 179 1.000000 + 112 179 1.000000 + 113 179 1.000000 + 114 179 1.000000 + 115 179 1.000000 + 116 179 1.000000 + 117 179 1.000000 + 118 179 1.000000 + 119 179 1.000000 + 120 179 1.000000 + 121 179 1.000000 + 122 179 1.000000 + 123 179 1.000000 + 124 179 1.000000 + 125 179 1.000000 + 126 179 1.000000 + 127 179 1.000000 + 128 179 1.000000 + 129 179 1.000000 + 130 179 1.000000 + 131 179 1.000000 + 132 179 1.000000 + 133 179 1.000000 + 134 179 1.000000 + 135 179 1.000000 + 136 179 1.000000 + 137 179 1.000000 + 138 179 1.000000 + 139 179 1.000000 + 140 179 1.000000 + 141 179 1.000000 + 142 179 1.000000 + 143 179 1.000000 + 144 179 1.000000 + 145 179 1.000000 + 146 179 1.000000 + 147 179 1.000000 + 148 179 1.000000 + 149 179 1.000000 + 150 179 1.000000 + 151 179 1.000000 + 152 179 1.000000 + 153 179 1.000000 + 154 179 1.000000 + 155 179 1.000000 + 156 179 1.000000 + 157 179 1.000000 + 158 179 1.000000 + 159 179 1.000000 + 160 179 1.000000 + 1 180 1.000000 + 2 180 1.000000 + 3 180 1.000000 + 4 180 1.000000 + 5 180 1.000000 + 6 180 1.000000 + 7 180 1.000000 + 8 180 1.000000 + 9 180 1.000000 + 10 180 1.000000 + 11 180 1.000000 + 12 180 1.000000 + 13 180 1.000000 + 14 180 1.000000 + 15 180 1.000000 + 16 180 1.000000 + 17 180 1.000000 + 18 180 1.000000 + 19 180 1.000000 + 20 180 1.000000 + 21 180 1.000000 + 22 180 1.000000 + 23 180 1.000000 + 24 180 1.000000 + 25 180 1.000000 + 26 180 1.000000 + 27 180 1.000000 + 28 180 1.000000 + 29 180 1.000000 + 30 180 1.000000 + 31 180 1.000000 + 32 180 1.000000 + 33 180 1.000000 + 34 180 1.000000 + 35 180 1.000000 + 36 180 1.000000 + 37 180 1.000000 + 38 180 1.000000 + 39 180 1.000000 + 40 180 1.000000 + 41 180 1.000000 + 42 180 1.000000 + 43 180 1.000000 + 44 180 1.000000 + 45 180 1.000000 + 46 180 1.000000 + 47 180 1.000000 + 48 180 1.000000 + 49 180 1.000000 + 50 180 1.000000 + 51 180 1.000000 + 52 180 1.000000 + 53 180 1.000000 + 54 180 1.000000 + 55 180 1.000000 + 56 180 1.000000 + 57 180 1.000000 + 58 180 1.000000 + 59 180 1.000000 + 60 180 1.000000 + 61 180 1.000000 + 62 180 1.000000 + 63 180 1.000000 + 64 180 1.000000 + 65 180 1.000000 + 66 180 1.000000 + 67 180 1.000000 + 68 180 1.000000 + 69 180 1.000000 + 70 180 1.000000 + 71 180 1.000000 + 72 180 1.000000 + 73 180 1.000000 + 74 180 1.000000 + 75 180 1.000000 + 76 180 1.000000 + 77 180 1.000000 + 78 180 1.000000 + 79 180 1.000000 + 80 180 1.000000 + 81 180 1.000000 + 82 180 1.000000 + 83 180 1.000000 + 84 180 1.000000 + 85 180 1.000000 + 86 180 1.000000 + 87 180 1.000000 + 88 180 1.000000 + 89 180 1.000000 + 90 180 1.000000 + 91 180 1.000000 + 92 180 1.000000 + 93 180 1.000000 + 94 180 1.000000 + 95 180 1.000000 + 96 180 1.000000 + 97 180 1.000000 + 98 180 1.000000 + 99 180 1.000000 + 100 180 1.000000 + 101 180 1.000000 + 102 180 1.000000 + 103 180 1.000000 + 104 180 1.000000 + 105 180 1.000000 + 106 180 1.000000 + 107 180 1.000000 + 108 180 1.000000 + 109 180 1.000000 + 110 180 1.000000 + 111 180 1.000000 + 112 180 1.000000 + 113 180 1.000000 + 114 180 1.000000 + 115 180 1.000000 + 116 180 1.000000 + 117 180 1.000000 + 118 180 1.000000 + 119 180 1.000000 + 120 180 1.000000 + 121 180 1.000000 + 122 180 1.000000 + 123 180 1.000000 + 124 180 1.000000 + 125 180 1.000000 + 126 180 1.000000 + 127 180 1.000000 + 128 180 1.000000 + 129 180 1.000000 + 130 180 1.000000 + 131 180 1.000000 + 132 180 1.000000 + 133 180 1.000000 + 134 180 1.000000 + 135 180 1.000000 + 136 180 1.000000 + 137 180 1.000000 + 138 180 1.000000 + 139 180 1.000000 + 140 180 1.000000 + 141 180 1.000000 + 142 180 1.000000 + 143 180 1.000000 + 144 180 1.000000 + 145 180 1.000000 + 146 180 1.000000 + 147 180 1.000000 + 148 180 1.000000 + 149 180 1.000000 + 150 180 1.000000 + 151 180 1.000000 + 152 180 1.000000 + 153 180 1.000000 + 154 180 1.000000 + 155 180 1.000000 + 156 180 1.000000 + 157 180 1.000000 + 158 180 1.000000 + 159 180 1.000000 + 160 180 1.000000 + 1 181 1.000000 + 2 181 1.000000 + 3 181 1.000000 + 4 181 1.000000 + 5 181 1.000000 + 6 181 1.000000 + 7 181 1.000000 + 8 181 1.000000 + 9 181 1.000000 + 10 181 1.000000 + 11 181 1.000000 + 12 181 1.000000 + 13 181 1.000000 + 14 181 1.000000 + 15 181 1.000000 + 16 181 1.000000 + 17 181 1.000000 + 18 181 1.000000 + 19 181 1.000000 + 20 181 1.000000 + 21 181 1.000000 + 22 181 1.000000 + 23 181 1.000000 + 24 181 1.000000 + 25 181 1.000000 + 26 181 1.000000 + 27 181 1.000000 + 28 181 1.000000 + 29 181 1.000000 + 30 181 1.000000 + 31 181 1.000000 + 32 181 1.000000 + 33 181 1.000000 + 34 181 1.000000 + 35 181 1.000000 + 36 181 1.000000 + 37 181 1.000000 + 38 181 1.000000 + 39 181 1.000000 + 40 181 1.000000 + 41 181 1.000000 + 42 181 1.000000 + 43 181 1.000000 + 44 181 1.000000 + 45 181 1.000000 + 46 181 1.000000 + 47 181 1.000000 + 48 181 1.000000 + 49 181 1.000000 + 50 181 1.000000 + 51 181 1.000000 + 52 181 1.000000 + 53 181 1.000000 + 54 181 1.000000 + 55 181 1.000000 + 56 181 1.000000 + 57 181 1.000000 + 58 181 1.000000 + 59 181 1.000000 + 60 181 1.000000 + 61 181 1.000000 + 62 181 1.000000 + 63 181 1.000000 + 64 181 1.000000 + 65 181 1.000000 + 66 181 1.000000 + 67 181 1.000000 + 68 181 1.000000 + 69 181 1.000000 + 70 181 1.000000 + 71 181 1.000000 + 72 181 1.000000 + 73 181 1.000000 + 74 181 1.000000 + 75 181 1.000000 + 76 181 1.000000 + 77 181 1.000000 + 78 181 1.000000 + 79 181 1.000000 + 80 181 1.000000 + 81 181 1.000000 + 82 181 1.000000 + 83 181 1.000000 + 84 181 1.000000 + 85 181 1.000000 + 86 181 1.000000 + 87 181 1.000000 + 88 181 1.000000 + 89 181 1.000000 + 90 181 1.000000 + 91 181 1.000000 + 92 181 1.000000 + 93 181 1.000000 + 94 181 1.000000 + 95 181 1.000000 + 96 181 1.000000 + 97 181 1.000000 + 98 181 1.000000 + 99 181 1.000000 + 100 181 1.000000 + 101 181 1.000000 + 102 181 1.000000 + 103 181 1.000000 + 104 181 1.000000 + 105 181 1.000000 + 106 181 1.000000 + 107 181 1.000000 + 108 181 1.000000 + 109 181 1.000000 + 110 181 1.000000 + 111 181 1.000000 + 112 181 1.000000 + 113 181 1.000000 + 114 181 1.000000 + 115 181 1.000000 + 116 181 1.000000 + 117 181 1.000000 + 118 181 1.000000 + 119 181 1.000000 + 120 181 1.000000 + 121 181 1.000000 + 122 181 1.000000 + 123 181 1.000000 + 124 181 1.000000 + 125 181 1.000000 + 126 181 1.000000 + 127 181 1.000000 + 128 181 1.000000 + 129 181 1.000000 + 130 181 1.000000 + 131 181 1.000000 + 132 181 1.000000 + 133 181 1.000000 + 134 181 1.000000 + 135 181 1.000000 + 136 181 1.000000 + 137 181 1.000000 + 138 181 1.000000 + 139 181 1.000000 + 140 181 1.000000 + 141 181 1.000000 + 142 181 1.000000 + 143 181 1.000000 + 144 181 1.000000 + 145 181 1.000000 + 146 181 1.000000 + 147 181 1.000000 + 148 181 1.000000 + 149 181 1.000000 + 150 181 1.000000 + 151 181 1.000000 + 152 181 1.000000 + 153 181 1.000000 + 154 181 1.000000 + 155 181 1.000000 + 156 181 1.000000 + 157 181 1.000000 + 158 181 1.000000 + 159 181 1.000000 + 160 181 1.000000 + 1 182 1.000000 + 2 182 1.000000 + 3 182 1.000000 + 4 182 1.000000 + 5 182 1.000000 + 6 182 1.000000 + 7 182 1.000000 + 8 182 1.000000 + 9 182 1.000000 + 10 182 1.000000 + 11 182 1.000000 + 12 182 1.000000 + 13 182 1.000000 + 14 182 1.000000 + 15 182 1.000000 + 16 182 1.000000 + 17 182 1.000000 + 18 182 1.000000 + 19 182 1.000000 + 20 182 1.000000 + 21 182 1.000000 + 22 182 1.000000 + 23 182 1.000000 + 24 182 1.000000 + 25 182 1.000000 + 26 182 1.000000 + 27 182 1.000000 + 28 182 1.000000 + 29 182 1.000000 + 30 182 1.000000 + 31 182 1.000000 + 32 182 1.000000 + 33 182 1.000000 + 34 182 1.000000 + 35 182 1.000000 + 36 182 1.000000 + 37 182 1.000000 + 38 182 1.000000 + 39 182 1.000000 + 40 182 1.000000 + 41 182 1.000000 + 42 182 1.000000 + 43 182 1.000000 + 44 182 1.000000 + 45 182 1.000000 + 46 182 1.000000 + 47 182 1.000000 + 48 182 1.000000 + 49 182 1.000000 + 50 182 1.000000 + 51 182 1.000000 + 52 182 1.000000 + 53 182 1.000000 + 54 182 1.000000 + 55 182 1.000000 + 56 182 1.000000 + 57 182 1.000000 + 58 182 1.000000 + 59 182 1.000000 + 60 182 1.000000 + 61 182 1.000000 + 62 182 1.000000 + 63 182 1.000000 + 64 182 1.000000 + 65 182 1.000000 + 66 182 1.000000 + 67 182 1.000000 + 68 182 1.000000 + 69 182 1.000000 + 70 182 1.000000 + 71 182 1.000000 + 72 182 1.000000 + 73 182 1.000000 + 74 182 1.000000 + 75 182 1.000000 + 76 182 1.000000 + 77 182 1.000000 + 78 182 1.000000 + 79 182 1.000000 + 80 182 1.000000 + 81 182 1.000000 + 82 182 1.000000 + 83 182 1.000000 + 84 182 1.000000 + 85 182 1.000000 + 86 182 1.000000 + 87 182 1.000000 + 88 182 1.000000 + 89 182 1.000000 + 90 182 1.000000 + 91 182 1.000000 + 92 182 1.000000 + 93 182 1.000000 + 94 182 1.000000 + 95 182 1.000000 + 96 182 1.000000 + 97 182 1.000000 + 98 182 1.000000 + 99 182 1.000000 + 100 182 1.000000 + 101 182 1.000000 + 102 182 1.000000 + 103 182 1.000000 + 104 182 1.000000 + 105 182 1.000000 + 106 182 1.000000 + 107 182 1.000000 + 108 182 1.000000 + 109 182 1.000000 + 110 182 1.000000 + 111 182 1.000000 + 112 182 1.000000 + 113 182 1.000000 + 114 182 1.000000 + 115 182 1.000000 + 116 182 1.000000 + 117 182 1.000000 + 118 182 1.000000 + 119 182 1.000000 + 120 182 1.000000 + 121 182 1.000000 + 122 182 1.000000 + 123 182 1.000000 + 124 182 1.000000 + 125 182 1.000000 + 126 182 1.000000 + 127 182 1.000000 + 128 182 1.000000 + 129 182 1.000000 + 130 182 1.000000 + 131 182 1.000000 + 132 182 1.000000 + 133 182 1.000000 + 134 182 1.000000 + 135 182 1.000000 + 136 182 1.000000 + 137 182 1.000000 + 138 182 1.000000 + 139 182 1.000000 + 140 182 1.000000 + 141 182 1.000000 + 142 182 1.000000 + 143 182 1.000000 + 144 182 1.000000 + 145 182 1.000000 + 146 182 1.000000 + 147 182 1.000000 + 148 182 1.000000 + 149 182 1.000000 + 150 182 1.000000 + 151 182 1.000000 + 152 182 1.000000 + 153 182 1.000000 + 154 182 1.000000 + 155 182 1.000000 + 156 182 1.000000 + 157 182 1.000000 + 158 182 1.000000 + 159 182 1.000000 + 160 182 1.000000 + 1 183 1.000000 + 2 183 1.000000 + 3 183 1.000000 + 4 183 1.000000 + 5 183 1.000000 + 6 183 1.000000 + 7 183 1.000000 + 8 183 1.000000 + 9 183 1.000000 + 10 183 1.000000 + 11 183 1.000000 + 12 183 1.000000 + 13 183 1.000000 + 14 183 1.000000 + 15 183 1.000000 + 16 183 1.000000 + 17 183 1.000000 + 18 183 1.000000 + 19 183 1.000000 + 20 183 1.000000 + 21 183 1.000000 + 22 183 1.000000 + 23 183 1.000000 + 24 183 1.000000 + 25 183 1.000000 + 26 183 1.000000 + 27 183 1.000000 + 28 183 1.000000 + 29 183 1.000000 + 30 183 1.000000 + 31 183 1.000000 + 32 183 1.000000 + 33 183 1.000000 + 34 183 1.000000 + 35 183 1.000000 + 36 183 1.000000 + 37 183 1.000000 + 38 183 1.000000 + 39 183 1.000000 + 40 183 1.000000 + 41 183 1.000000 + 42 183 1.000000 + 43 183 1.000000 + 44 183 1.000000 + 45 183 1.000000 + 46 183 1.000000 + 47 183 1.000000 + 48 183 1.000000 + 49 183 1.000000 + 50 183 1.000000 + 51 183 1.000000 + 52 183 1.000000 + 53 183 1.000000 + 54 183 1.000000 + 55 183 1.000000 + 56 183 1.000000 + 57 183 1.000000 + 58 183 1.000000 + 59 183 1.000000 + 60 183 1.000000 + 61 183 1.000000 + 62 183 1.000000 + 63 183 1.000000 + 64 183 1.000000 + 65 183 1.000000 + 66 183 1.000000 + 67 183 1.000000 + 68 183 1.000000 + 69 183 1.000000 + 70 183 1.000000 + 71 183 1.000000 + 72 183 1.000000 + 73 183 1.000000 + 74 183 1.000000 + 75 183 1.000000 + 76 183 1.000000 + 77 183 1.000000 + 78 183 1.000000 + 79 183 1.000000 + 80 183 1.000000 + 81 183 1.000000 + 82 183 1.000000 + 83 183 1.000000 + 84 183 1.000000 + 85 183 1.000000 + 86 183 1.000000 + 87 183 1.000000 + 88 183 1.000000 + 89 183 1.000000 + 90 183 1.000000 + 91 183 1.000000 + 92 183 1.000000 + 93 183 1.000000 + 94 183 1.000000 + 95 183 1.000000 + 96 183 1.000000 + 97 183 1.000000 + 98 183 1.000000 + 99 183 1.000000 + 100 183 1.000000 + 101 183 1.000000 + 102 183 1.000000 + 103 183 1.000000 + 104 183 1.000000 + 105 183 1.000000 + 106 183 1.000000 + 107 183 1.000000 + 108 183 1.000000 + 109 183 1.000000 + 110 183 1.000000 + 111 183 1.000000 + 112 183 1.000000 + 113 183 1.000000 + 114 183 1.000000 + 115 183 1.000000 + 116 183 1.000000 + 117 183 1.000000 + 118 183 1.000000 + 119 183 1.000000 + 120 183 1.000000 + 121 183 1.000000 + 122 183 1.000000 + 123 183 1.000000 + 124 183 1.000000 + 125 183 1.000000 + 126 183 1.000000 + 127 183 1.000000 + 128 183 1.000000 + 129 183 1.000000 + 130 183 1.000000 + 131 183 1.000000 + 132 183 1.000000 + 133 183 1.000000 + 134 183 1.000000 + 135 183 1.000000 + 136 183 1.000000 + 137 183 1.000000 + 138 183 1.000000 + 139 183 1.000000 + 140 183 1.000000 + 141 183 1.000000 + 142 183 1.000000 + 143 183 1.000000 + 144 183 1.000000 + 145 183 1.000000 + 146 183 1.000000 + 147 183 1.000000 + 148 183 1.000000 + 149 183 1.000000 + 150 183 1.000000 + 151 183 1.000000 + 152 183 1.000000 + 153 183 1.000000 + 154 183 1.000000 + 155 183 1.000000 + 156 183 1.000000 + 157 183 1.000000 + 158 183 1.000000 + 159 183 1.000000 + 160 183 1.000000 + 1 184 1.000000 + 2 184 1.000000 + 3 184 1.000000 + 4 184 1.000000 + 5 184 1.000000 + 6 184 1.000000 + 7 184 1.000000 + 8 184 1.000000 + 9 184 1.000000 + 10 184 1.000000 + 11 184 1.000000 + 12 184 1.000000 + 13 184 1.000000 + 14 184 1.000000 + 15 184 1.000000 + 16 184 1.000000 + 17 184 1.000000 + 18 184 1.000000 + 19 184 1.000000 + 20 184 1.000000 + 21 184 1.000000 + 22 184 1.000000 + 23 184 1.000000 + 24 184 1.000000 + 25 184 1.000000 + 26 184 1.000000 + 27 184 1.000000 + 28 184 1.000000 + 29 184 1.000000 + 30 184 1.000000 + 31 184 1.000000 + 32 184 1.000000 + 33 184 1.000000 + 34 184 1.000000 + 35 184 1.000000 + 36 184 1.000000 + 37 184 1.000000 + 38 184 1.000000 + 39 184 1.000000 + 40 184 1.000000 + 41 184 1.000000 + 42 184 1.000000 + 43 184 1.000000 + 44 184 1.000000 + 45 184 1.000000 + 46 184 1.000000 + 47 184 1.000000 + 48 184 1.000000 + 49 184 1.000000 + 50 184 1.000000 + 51 184 1.000000 + 52 184 1.000000 + 53 184 1.000000 + 54 184 1.000000 + 55 184 1.000000 + 56 184 1.000000 + 57 184 1.000000 + 58 184 1.000000 + 59 184 1.000000 + 60 184 1.000000 + 61 184 1.000000 + 62 184 1.000000 + 63 184 1.000000 + 64 184 1.000000 + 65 184 1.000000 + 66 184 1.000000 + 67 184 1.000000 + 68 184 1.000000 + 69 184 1.000000 + 70 184 1.000000 + 71 184 1.000000 + 72 184 1.000000 + 73 184 1.000000 + 74 184 1.000000 + 75 184 1.000000 + 76 184 1.000000 + 77 184 1.000000 + 78 184 1.000000 + 79 184 1.000000 + 80 184 1.000000 + 81 184 1.000000 + 82 184 1.000000 + 83 184 1.000000 + 84 184 1.000000 + 85 184 1.000000 + 86 184 1.000000 + 87 184 1.000000 + 88 184 1.000000 + 89 184 1.000000 + 90 184 1.000000 + 91 184 1.000000 + 92 184 1.000000 + 93 184 1.000000 + 94 184 1.000000 + 95 184 1.000000 + 96 184 1.000000 + 97 184 1.000000 + 98 184 1.000000 + 99 184 1.000000 + 100 184 1.000000 + 101 184 1.000000 + 102 184 1.000000 + 103 184 1.000000 + 104 184 1.000000 + 105 184 1.000000 + 106 184 1.000000 + 107 184 1.000000 + 108 184 1.000000 + 109 184 1.000000 + 110 184 1.000000 + 111 184 1.000000 + 112 184 1.000000 + 113 184 1.000000 + 114 184 1.000000 + 115 184 1.000000 + 116 184 1.000000 + 117 184 1.000000 + 118 184 1.000000 + 119 184 1.000000 + 120 184 1.000000 + 121 184 1.000000 + 122 184 1.000000 + 123 184 1.000000 + 124 184 1.000000 + 125 184 1.000000 + 126 184 1.000000 + 127 184 1.000000 + 128 184 1.000000 + 129 184 1.000000 + 130 184 1.000000 + 131 184 1.000000 + 132 184 1.000000 + 133 184 1.000000 + 134 184 1.000000 + 135 184 1.000000 + 136 184 1.000000 + 137 184 1.000000 + 138 184 1.000000 + 139 184 1.000000 + 140 184 1.000000 + 141 184 1.000000 + 142 184 1.000000 + 143 184 1.000000 + 144 184 1.000000 + 145 184 1.000000 + 146 184 1.000000 + 147 184 1.000000 + 148 184 1.000000 + 149 184 1.000000 + 150 184 1.000000 + 151 184 1.000000 + 152 184 1.000000 + 153 184 1.000000 + 154 184 1.000000 + 155 184 1.000000 + 156 184 1.000000 + 157 184 1.000000 + 158 184 1.000000 + 159 184 1.000000 + 160 184 1.000000 diff --git a/etc/HUCM-SBM/termvels.asc b/etc/HUCM-SBM/termvels.asc new file mode 100755 index 0000000..30fd3a8 --- /dev/null +++ b/etc/HUCM-SBM/termvels.asc @@ -0,0 +1,40 @@ + 0.50000E-01 0.78000E-01 0.12000E+00 0.19000E+00 0.31000E+00 0.49000E+00 + 0.77000E+00 0.12000E+01 0.19000E+01 0.30000E+01 0.48000E+01 0.74000E+01 + 0.11000E+02 0.17000E+02 0.26000E+02 0.37000E+02 0.52000E+02 0.71000E+02 + 0.94000E+02 0.12000E+03 0.16000E+03 0.21000E+03 0.26000E+03 0.33000E+03 + 0.41000E+03 0.48000E+03 0.57000E+03 0.66000E+03 0.75000E+03 0.82000E+03 + 0.88000E+03 0.90000E+03 0.90000E+03 0.30000E-01 0.40000E-01 0.60000E-01 + 0.80000E-01 0.11000E+00 0.15000E+00 0.60000E+00 0.10000E+01 0.20000E+00 + 0.25000E+00 0.40000E+00 0.60000E+01 0.10000E+02 0.15000E+01 0.20000E+02 + 0.25000E+02 0.31000E+02 0.37000E+02 0.41000E+02 0.46000E+02 0.51000E+02 + 0.55000E+02 0.59000E+02 0.62000E+02 0.64000E+02 0.67000E+02 0.68000E+02 + 0.69000E+02 0.70000E+02 0.71000E+02 0.71500E+02 0.71750E+02 0.72000E+02 + 0.30000E-01 0.40000E-01 0.50000E-01 0.70000E-01 0.90000E-01 0.12000E+00 + 0.50000E+00 0.80000E+00 0.16000E+01 0.18000E+01 0.20000E+01 0.30000E+01 + 0.40000E+01 0.50000E+01 0.80000E+01 0.13000E+02 0.19000E+02 0.26000E+02 + 0.32000E+02 0.38000E+02 0.47000E+02 0.55000E+02 0.65000E+02 0.73000E+02 + 0.77000E+02 0.79000E+02 0.80000E+02 0.81000E+02 0.81000E+02 0.82000E+02 + 0.82000E+02 0.82000E+02 0.82000E+02 0.35000E-01 0.45000E-01 0.55000E-01 + 0.75000E-01 0.95000E-01 0.13000E+00 0.60000E+00 0.90000E+00 0.17000E+01 + 0.20000E+01 0.25000E+01 0.38000E+00 0.50000E+01 0.70000E+01 0.90000E+01 + 0.11000E+01 0.14000E+02 0.17000E+00 0.21000E+02 0.25000E+02 0.32000E+02 + 0.38000E+02 0.44000E+02 0.49000E+02 0.53000E+02 0.55000E+02 0.58000E+02 + 0.59000E+02 0.61000E+02 0.62000E+02 0.63000E+02 0.64000E+02 0.65000E+02 + 0.20000E-01 0.31000E-01 0.49000E-01 0.77000E-01 0.12000E+00 0.19000E+00 + 0.30000E+00 0.48000E+00 0.76000E+00 0.12000E+01 0.19000E+01 0.30000E+01 + 0.48000E+01 0.75000E+01 0.11000E+02 0.16000E+02 0.21000E+02 0.26000E+02 + 0.34000E+02 0.41000E+02 0.49000E+02 0.57000E+02 0.65000E+02 0.73000E+02 + 0.81000E+02 0.87000E+02 0.93000E+02 0.99000E+02 0.11000E+03 0.11000E+03 + 0.12000E+03 0.13000E+03 0.14000E+03 0.39000E-01 0.62000E-01 0.97000E-01 + 0.15000E+00 0.24000E+00 0.38000E+00 0.61000E+00 0.96000E+00 0.15000E+01 + 0.24000E+01 0.38000E+01 0.61000E+01 0.96000E+01 0.15000E+02 0.23000E+02 + 0.31000E+02 0.39000E+02 0.49000E+02 0.59000E+02 0.68000E+02 0.79000E+02 + 0.88000E+02 0.10000E+03 0.11000E+03 0.13000E+03 0.15000E+03 0.17000E+03 + 0.20000E+03 0.23000E+03 0.26000E+03 0.30000E+03 0.35000E+03 0.40000E+03 + 0.53000E-01 0.84000E-01 0.13000E+00 0.21000E+00 0.33000E+00 0.52000E+00 + 0.82000E+00 0.13000E+01 0.21000E+01 0.33000E+01 0.52000E+01 0.82000E+01 + 0.13000E+02 0.20000E+02 0.28000E+02 0.36000E+02 0.46000E+02 0.56000E+02 + 0.67000E+02 0.80000E+02 0.97000E+02 0.12000E+03 0.14000E+03 0.17000E+03 + 0.20000E+03 0.24000E+03 0.29000E+03 0.35000E+03 0.42000E+03 0.51000E+03 + 0.61000E+03 0.74000E+03 0.89000E+03 + diff --git a/etc/HUCM-SBM/termvels.asc-dendrite b/etc/HUCM-SBM/termvels.asc-dendrite new file mode 100755 index 0000000..9f429e9 --- /dev/null +++ b/etc/HUCM-SBM/termvels.asc-dendrite @@ -0,0 +1,40 @@ + 0.50000E-01 0.78000E-01 0.12000E+00 0.19000E+00 0.31000E+00 0.49000E+00 + 0.77000E+00 0.12000E+01 0.19000E+01 0.30000E+01 0.48000E+01 0.74000E+01 + 0.11000E+02 0.17000E+02 0.26000E+02 0.37000E+02 0.52000E+02 0.71000E+02 + 0.94000E+02 0.12000E+03 0.16000E+03 0.21000E+03 0.26000E+03 0.33000E+03 + 0.41000E+03 0.48000E+03 0.57000E+03 0.66000E+03 0.75000E+03 0.82000E+03 + 0.88000E+03 0.90000E+03 0.90000E+03 0.30000E-01 0.40000E-01 0.60000E-01 + 0.80000E-01 0.11000E+00 0.15000E+00 0.60000E+00 0.10000E+01 0.20000E+01 + 0.25000E+01 0.40000E+01 0.60000E+01 0.10000E+02 0.15000E+02 0.20000E+02 + 0.25000E+02 0.31000E+02 0.37000E+02 0.41000E+02 0.46000E+02 0.51000E+02 + 0.55000E+02 0.59000E+02 0.62000E+02 0.64000E+02 0.67000E+02 0.68000E+02 + 0.69000E+02 0.70000E+02 0.71000E+02 0.71500E+02 0.71750E+02 0.72000E+02 + 0.30000E-01 0.40000E-01 0.50000E-01 0.70000E-01 0.90000E-01 0.12000E+00 + 0.50000E+00 0.80000E+00 0.16000E+01 0.18000E+01 0.20000E+01 0.30000E+01 + 0.40000E+01 0.50000E+01 0.80000E+01 0.13000E+02 0.19000E+02 0.26000E+02 + 0.32000E+02 0.38000E+02 0.47000E+02 0.55000E+02 0.65000E+02 0.73000E+02 + 0.77000E+02 0.79000E+02 0.80000E+02 0.81000E+02 0.81000E+02 0.82000E+02 + 0.82000E+02 0.82000E+02 0.82000E+02 0.35000E-01 0.45000E-01 0.55000E-01 + 0.75000E-01 0.95000E-01 0.13000E+00 0.60000E+00 0.90000E+00 0.17000E+01 + 0.20000E+01 0.25000E+01 0.38000E+01 0.50000E+01 0.70000E+01 0.90000E+01 + 0.11000E+02 0.12000E+02 0.13000E+02 0.15000E+02 0.16000E+02 0.18000E+02 + 0.19000E+02 0.21000E+02 0.23000E+02 0.25000E+02 0.28000E+02 0.31000E+02 + 0.34000E+02 0.37000E+02 0.40000E+02 0.44000E+02 0.49000E+02 0.53000E+02 + 0.20000E-01 0.31000E-01 0.49000E-01 0.77000E-01 0.12000E+00 0.19000E+00 + 0.30000E+00 0.48000E+00 0.76000E+00 0.12000E+01 0.19000E+01 0.30000E+01 + 0.48000E+01 0.75000E+01 0.11000E+02 0.16000E+02 0.21000E+02 0.26000E+02 + 0.34000E+02 0.41000E+02 0.49000E+02 0.57000E+02 0.65000E+02 0.73000E+02 + 0.81000E+02 0.87000E+02 0.93000E+02 0.99000E+02 0.11000E+03 0.11000E+03 + 0.12000E+03 0.13000E+03 0.14000E+03 0.39000E-01 0.62000E-01 0.97000E-01 + 0.15000E+00 0.24000E+00 0.38000E+00 0.61000E+00 0.96000E+00 0.15000E+01 + 0.24000E+01 0.38000E+01 0.61000E+01 0.96000E+01 0.15000E+02 0.23000E+02 + 0.31000E+02 0.39000E+02 0.49000E+02 0.59000E+02 0.68000E+02 0.79000E+02 + 0.88000E+02 0.10000E+03 0.11000E+03 0.13000E+03 0.15000E+03 0.17000E+03 + 0.20000E+03 0.23000E+03 0.26000E+03 0.30000E+03 0.35000E+03 0.40000E+03 + 0.53000E-01 0.84000E-01 0.13000E+00 0.21000E+00 0.33000E+00 0.52000E+00 + 0.82000E+00 0.13000E+01 0.21000E+01 0.33000E+01 0.52000E+01 0.82000E+01 + 0.13000E+02 0.20000E+02 0.28000E+02 0.36000E+02 0.46000E+02 0.56000E+02 + 0.67000E+02 0.80000E+02 0.97000E+02 0.12000E+03 0.14000E+03 0.17000E+03 + 0.20000E+03 0.24000E+03 0.29000E+03 0.35000E+03 0.42000E+03 0.51000E+03 + 0.61000E+03 0.74000E+03 0.89000E+03 + diff --git a/etc/HUCM-SBM/termvels.asc-orig b/etc/HUCM-SBM/termvels.asc-orig new file mode 100755 index 0000000..30fd3a8 --- /dev/null +++ b/etc/HUCM-SBM/termvels.asc-orig @@ -0,0 +1,40 @@ + 0.50000E-01 0.78000E-01 0.12000E+00 0.19000E+00 0.31000E+00 0.49000E+00 + 0.77000E+00 0.12000E+01 0.19000E+01 0.30000E+01 0.48000E+01 0.74000E+01 + 0.11000E+02 0.17000E+02 0.26000E+02 0.37000E+02 0.52000E+02 0.71000E+02 + 0.94000E+02 0.12000E+03 0.16000E+03 0.21000E+03 0.26000E+03 0.33000E+03 + 0.41000E+03 0.48000E+03 0.57000E+03 0.66000E+03 0.75000E+03 0.82000E+03 + 0.88000E+03 0.90000E+03 0.90000E+03 0.30000E-01 0.40000E-01 0.60000E-01 + 0.80000E-01 0.11000E+00 0.15000E+00 0.60000E+00 0.10000E+01 0.20000E+00 + 0.25000E+00 0.40000E+00 0.60000E+01 0.10000E+02 0.15000E+01 0.20000E+02 + 0.25000E+02 0.31000E+02 0.37000E+02 0.41000E+02 0.46000E+02 0.51000E+02 + 0.55000E+02 0.59000E+02 0.62000E+02 0.64000E+02 0.67000E+02 0.68000E+02 + 0.69000E+02 0.70000E+02 0.71000E+02 0.71500E+02 0.71750E+02 0.72000E+02 + 0.30000E-01 0.40000E-01 0.50000E-01 0.70000E-01 0.90000E-01 0.12000E+00 + 0.50000E+00 0.80000E+00 0.16000E+01 0.18000E+01 0.20000E+01 0.30000E+01 + 0.40000E+01 0.50000E+01 0.80000E+01 0.13000E+02 0.19000E+02 0.26000E+02 + 0.32000E+02 0.38000E+02 0.47000E+02 0.55000E+02 0.65000E+02 0.73000E+02 + 0.77000E+02 0.79000E+02 0.80000E+02 0.81000E+02 0.81000E+02 0.82000E+02 + 0.82000E+02 0.82000E+02 0.82000E+02 0.35000E-01 0.45000E-01 0.55000E-01 + 0.75000E-01 0.95000E-01 0.13000E+00 0.60000E+00 0.90000E+00 0.17000E+01 + 0.20000E+01 0.25000E+01 0.38000E+00 0.50000E+01 0.70000E+01 0.90000E+01 + 0.11000E+01 0.14000E+02 0.17000E+00 0.21000E+02 0.25000E+02 0.32000E+02 + 0.38000E+02 0.44000E+02 0.49000E+02 0.53000E+02 0.55000E+02 0.58000E+02 + 0.59000E+02 0.61000E+02 0.62000E+02 0.63000E+02 0.64000E+02 0.65000E+02 + 0.20000E-01 0.31000E-01 0.49000E-01 0.77000E-01 0.12000E+00 0.19000E+00 + 0.30000E+00 0.48000E+00 0.76000E+00 0.12000E+01 0.19000E+01 0.30000E+01 + 0.48000E+01 0.75000E+01 0.11000E+02 0.16000E+02 0.21000E+02 0.26000E+02 + 0.34000E+02 0.41000E+02 0.49000E+02 0.57000E+02 0.65000E+02 0.73000E+02 + 0.81000E+02 0.87000E+02 0.93000E+02 0.99000E+02 0.11000E+03 0.11000E+03 + 0.12000E+03 0.13000E+03 0.14000E+03 0.39000E-01 0.62000E-01 0.97000E-01 + 0.15000E+00 0.24000E+00 0.38000E+00 0.61000E+00 0.96000E+00 0.15000E+01 + 0.24000E+01 0.38000E+01 0.61000E+01 0.96000E+01 0.15000E+02 0.23000E+02 + 0.31000E+02 0.39000E+02 0.49000E+02 0.59000E+02 0.68000E+02 0.79000E+02 + 0.88000E+02 0.10000E+03 0.11000E+03 0.13000E+03 0.15000E+03 0.17000E+03 + 0.20000E+03 0.23000E+03 0.26000E+03 0.30000E+03 0.35000E+03 0.40000E+03 + 0.53000E-01 0.84000E-01 0.13000E+00 0.21000E+00 0.33000E+00 0.52000E+00 + 0.82000E+00 0.13000E+01 0.21000E+01 0.33000E+01 0.52000E+01 0.82000E+01 + 0.13000E+02 0.20000E+02 0.28000E+02 0.36000E+02 0.46000E+02 0.56000E+02 + 0.67000E+02 0.80000E+02 0.97000E+02 0.12000E+03 0.14000E+03 0.17000E+03 + 0.20000E+03 0.24000E+03 0.29000E+03 0.35000E+03 0.42000E+03 0.51000E+03 + 0.61000E+03 0.74000E+03 0.89000E+03 + diff --git a/etc/HUCM-SBM/termvels.asc-snowhigh b/etc/HUCM-SBM/termvels.asc-snowhigh new file mode 100755 index 0000000..bb9d9d0 --- /dev/null +++ b/etc/HUCM-SBM/termvels.asc-snowhigh @@ -0,0 +1,40 @@ + 0.50000E-01 0.78000E-01 0.12000E+00 0.19000E+00 0.31000E+00 0.49000E+00 + 0.77000E+00 0.12000E+01 0.19000E+01 0.30000E+01 0.48000E+01 0.74000E+01 + 0.11000E+02 0.17000E+02 0.26000E+02 0.37000E+02 0.52000E+02 0.71000E+02 + 0.94000E+02 0.12000E+03 0.16000E+03 0.21000E+03 0.26000E+03 0.33000E+03 + 0.41000E+03 0.48000E+03 0.57000E+03 0.66000E+03 0.75000E+03 0.82000E+03 + 0.88000E+03 0.90000E+03 0.90000E+03 0.30000E-01 0.40000E-01 0.60000E-01 + 0.80000E-01 0.11000E+00 0.15000E+00 0.60000E+00 0.10000E+01 0.20000E+01 + 0.25000E+01 0.40000E+01 0.60000E+01 0.10000E+02 0.15000E+02 0.20000E+02 + 0.25000E+02 0.31000E+02 0.37000E+02 0.41000E+02 0.46000E+02 0.51000E+02 + 0.55000E+02 0.59000E+02 0.62000E+02 0.64000E+02 0.67000E+02 0.68000E+02 + 0.69000E+02 0.70000E+02 0.71000E+02 0.71500E+02 0.71750E+02 0.72000E+02 + 0.30000E-01 0.40000E-01 0.50000E-01 0.70000E-01 0.90000E-01 0.12000E+00 + 0.50000E+00 0.80000E+00 0.16000E+01 0.18000E+01 0.20000E+01 0.30000E+01 + 0.40000E+01 0.50000E+01 0.80000E+01 0.13000E+02 0.19000E+02 0.26000E+02 + 0.32000E+02 0.38000E+02 0.47000E+02 0.55000E+02 0.65000E+02 0.73000E+02 + 0.77000E+02 0.79000E+02 0.80000E+02 0.81000E+02 0.81000E+02 0.82000E+02 + 0.82000E+02 0.82000E+02 0.82000E+02 0.35000E-01 0.45000E-01 0.55000E-01 + 0.75000E-01 0.95000E-01 0.13000E+00 0.60000E+00 0.90000E+00 0.17000E+01 + 0.20000E+01 0.25000E+01 0.38000E+01 0.50000E+01 0.70000E+01 0.90000E+01 + 0.11000E+02 0.14000E+02 0.17000E+02 0.21000E+02 0.25000E+02 0.32000E+02 + 0.38000E+02 0.44000E+02 0.49000E+02 0.53000E+02 0.55000E+02 0.58000E+02 + 0.59000E+02 0.61000E+02 0.62000E+02 0.63000E+02 0.64000E+02 0.65000E+02 + 0.20000E-01 0.31000E-01 0.49000E-01 0.77000E-01 0.12000E+00 0.19000E+00 + 0.30000E+00 0.48000E+00 0.76000E+00 0.12000E+01 0.19000E+01 0.30000E+01 + 0.48000E+01 0.75000E+01 0.11000E+02 0.16000E+02 0.25000E+02 0.36000E+02 + 0.54000E+02 0.80000E+02 0.10000E+03 0.12100E+03 0.13500E+03 0.14700E+03 + 0.15500E+03 0.15800E+03 0.16000E+03 0.16000E+03 0.16000E+03 0.16000E+03 + 0.16000E+03 0.16000E+03 0.16000E+03 0.39000E-01 0.62000E-01 0.97000E-01 + 0.15000E+00 0.24000E+00 0.38000E+00 0.61000E+00 0.96000E+00 0.15000E+01 + 0.24000E+01 0.38000E+01 0.61000E+01 0.96000E+01 0.15000E+02 0.23000E+02 + 0.31000E+02 0.39000E+02 0.49000E+02 0.59000E+02 0.68000E+02 0.79000E+02 + 0.88000E+02 0.10000E+03 0.11000E+03 0.13000E+03 0.15000E+03 0.17000E+03 + 0.20000E+03 0.23000E+03 0.26000E+03 0.30000E+03 0.35000E+03 0.40000E+03 + 0.53000E-01 0.84000E-01 0.13000E+00 0.21000E+00 0.33000E+00 0.52000E+00 + 0.82000E+00 0.13000E+01 0.21000E+01 0.33000E+01 0.52000E+01 0.82000E+01 + 0.13000E+02 0.20000E+02 0.28000E+02 0.36000E+02 0.46000E+02 0.56000E+02 + 0.67000E+02 0.80000E+02 0.97000E+02 0.12000E+03 0.14000E+03 0.17000E+03 + 0.20000E+03 0.24000E+03 0.29000E+03 0.35000E+03 0.42000E+03 0.51000E+03 + 0.61000E+03 0.74000E+03 0.89000E+03 + diff --git a/etc/SiB-Veg-Morphology.txt b/etc/SiB-Veg-Morphology.txt new file mode 100755 index 0000000..0cfe4b3 --- /dev/null +++ b/etc/SiB-Veg-Morphology.txt @@ -0,0 +1,15 @@ + 2.0000000E-02 0.2236735 0.4273469 0.6310204 0.8346939 1.038367 1.242041 1.445714 1.649388 1.853061 2.056735 2.260408 2.464082 2.667755 2.871428 3.075102 3.278775 3.482448 3.686122 3.889795 4.093469 4.297142 4.500815 4.704489 4.908162 5.111835 5.315509 5.519182 5.722856 5.926529 6.130202 6.333876 6.537549 6.741222 6.944896 7.148569 7.352242 7.555916 7.759589 7.963263 8.166936 8.370609 8.574283 8.777956 8.981629 9.185303 9.388976 9.592649 9.796323 9.999996 + 9.9999998E-03 3.0204082E-02 5.0408162E-02 7.0612244E-02 9.0816326E-02 0.1110204 0.1312245 0.1514286 0.1716326 0.1918367 0.2120408 0.2322449 0.2524490 0.2726530 0.2928571 0.3130612 0.3332652 0.3534693 0.3736734 0.3938774 0.4140815 0.4342856 0.4544896 0.4746937 0.4948978 0.5151019 0.5353059 0.5555100 0.5757141 0.5959181 0.6161222 0.6363263 0.6565303 0.6767344 0.6969385 0.7171425 0.7373466 0.7575507 0.7777547 0.7979588 0.8181629 0.8383669 0.8585710 0.8787751 0.8989791 0.9191832 0.9393873 0.9595913 0.9797954 0.9999995 + 2.168803 0.3184853 0.3260169 0.2874734 0.2832814 1.5080852E-02 1.5080852E-02 1.5080852E-02 6.6403178E-03 8.5049048E-03 1.5080852E-02 1.5080852E-02 0.000000 1.369723 0.1414108 0.1854745 0.2126299 0.2176232 1.7211568E-02 1.7211568E-02 1.7211568E-02 7.2362842E-03 8.6270440E-03 1.7211568E-02 1.7211568E-02 0.000000 1.005665 0.1313859 0.2060171 0.2514950 0.2619379 1.8186180E-02 1.8186180E-02 1.8186180E-02 7.5396658E-03 8.8123567E-03 1.8186180E-02 1.8186180E-02 0.000000 1.057895 0.1406181 0.2308947 0.2841775 0.2973475 1.8944882E-02 1.8944882E-02 1.8944882E-02 7.7730441E-03 8.9768702E-03 1.8944882E-02 1.8944882E-02 0.000000 1.132810 0.1516396 0.2531929 0.3116659 0.3270053 1.9518971E-02 1.9518971E-02 1.9518971E-02 7.9469699E-03 9.1025587E-03 1.9518971E-02 1.9518971E-02 0.000000 1.203614 0.1614516 0.2724858 0.3357208 0.3524741 2.0021595E-02 2.0021595E-02 2.0021595E-02 8.1146695E-03 9.2225336E-03 2.0021595E-02 2.0021595E-02 4.1971289E-05 1.269360 0.1707828 0.2903248 0.3560411 0.3741500 2.0511167E-02 2.0511167E-02 2.0511167E-02 8.2531190E-03 9.3098190E-03 2.0511167E-02 2.0511167E-02 7.3782448E+28 1.328040 0.1796568 0.3057858 0.3740303 0.3934719 2.0885823E-02 2.0885823E-02 2.0885823E-02 8.3885100E-03 9.3942462E-03 2.0885823E-02 2.0885823E-02 6.2766508E+07 1.379568 0.1877325 0.3201333 0.3909364 0.4108124 2.1252677E-02 2.1252677E-02 2.1252677E-02 8.4960805E-03 9.4765322E-03 2.1252677E-02 2.1252677E-02 2.0106920E-19 1.427223 0.1952072 0.3336552 0.4061470 0.4264001 2.1613628E-02 2.1613628E-02 2.1613628E-02 8.6016897E-03 9.5571559E-03 2.1613628E-02 2.1613628E-02 1.0274630E+27 1.471885 0.2023043 0.3455797 0.4197990 0.4413211 2.1915890E-02 2.1915890E-02 2.1915890E-02 8.7057492E-03 9.6364561E-03 2.1915890E-02 2.1915890E-02 7.3714734E+28 1.509757 0.2092192 0.3569679 0.4319850 0.4547603 2.2213938E-02 2.2213938E-02 2.2213938E-02 8.7826047E-03 9.7146807E-03 2.2213938E-02 2.2213938E-02 5.5238592E+31 1.547823 0.2149934 0.3679248 0.4437116 0.4667776 2.2453861E-02 2.2453861E-02 2.2453861E-02 8.8842809E-03 9.7624147E-03 2.2453861E-02 2.2453861E-02 1.3563156E-19 1.581985 0.2213488 0.3775063 0.4550642 0.4784085 2.2745345E-02 2.2745345E-02 2.2745345E-02 8.9589506E-03 9.8389117E-03 2.2745345E-02 2.2745345E-02 2.7741601E+26 1.612432 0.2266239 0.3867639 0.4651302 0.4887103 2.2979278E-02 2.2979278E-02 2.2979278E-02 9.0327226E-03 9.8850206E-03 2.2979278E-02 2.2979278E-02 3.8720593E+12 1.643950 0.2325899 0.3957481 0.4749123 0.4987177 2.3210749E-02 2.3210749E-02 2.3210749E-02 9.1188941E-03 9.9602705E-03 2.3210749E-02 2.3210749E-02 5.3075265E-02 1.669752 0.2375067 0.4044994 0.4844550 0.5084748 2.3440089E-02 2.3440089E-02 2.3440089E-02 9.1780433E-03 1.0005147E-02 2.3440089E-02 2.3440089E-02 3.1716121E+30 1.696942 0.2422720 0.4119702 0.4937872 0.5180150 2.3667578E-02 2.3667578E-02 2.3667578E-02 9.2497757E-03 1.0049486E-02 2.3667578E-02 2.3667578E-02 1.3563156E-19 1.723317 0.2478351 0.4203354 0.5019204 0.5263225 2.3837414E-02 2.3837414E-02 2.3837414E-02 9.3209893E-03 1.0093343E-02 2.3837414E-02 2.3837414E-02 2.4637106E+11 1.746576 0.2523651 0.4274463 0.5098778 0.5344488 2.4061654E-02 2.4061654E-02 2.4061654E-02 9.3917446E-03 1.0166861E-02 2.4061654E-02 2.4061654E-02 1.3563156E-19 1.769166 0.2567921 0.4344033 0.5176817 0.5424178 2.4228241E-02 2.4228241E-02 2.4228241E-02 9.4620921E-03 1.0209950E-02 2.4228241E-02 2.4228241E-02 1.0031143E+09 1.788732 0.2611271 0.4412236 0.5243039 0.5502415 2.4449931E-02 2.4449931E-02 2.4449931E-02 9.5052477E-03 1.0252683E-02 2.4449931E-02 2.4449931E-02 829.3931 1.807730 0.2653803 0.4479219 0.5318392 0.5568613 2.4613889E-02 2.4613889E-02 2.4613889E-02 9.5748305E-03 1.0295092E-02 2.4613889E-02 2.4613889E-02 2.9050706E+32 1.828678 0.2685799 0.4533677 0.5382099 0.5644388 2.4776638E-02 2.4776638E-02 2.4776638E-02 9.6171657E-03 1.0337206E-02 2.4776638E-02 2.4776638E-02 1.3563156E-19 1.846719 0.2726844 0.4598491 0.5444656 0.5708227 2.4939317E-02 2.4939317E-02 2.4939317E-02 9.6861264E-03 1.0379047E-02 2.4939317E-02 2.4939317E-02 0.000000 1.864337 0.2767302 0.4650834 0.5506194 0.5771028 2.5099989E-02 2.5099989E-02 2.5099989E-02 9.7277695E-03 1.0420640E-02 2.5099989E-02 2.5099989E-02 0.000000 1.879080 0.2797133 0.4713876 0.5566805 0.5832856 2.5259735E-02 2.5259735E-02 2.5259735E-02 9.7962199E-03 1.0462002E-02 2.5259735E-02 2.5259735E-02 0.000000 1.898453 0.2836458 0.4764434 0.5626569 0.5893809 2.5418632E-02 2.5418632E-02 2.5418632E-02 9.8372735E-03 1.0503152E-02 2.5418632E-02 2.5418632E-02 0.000000 1.912493 0.2875353 0.4814180 0.5685576 0.5953959 2.5576746E-02 2.5576746E-02 2.5576746E-02 9.8780422E-03 1.0544105E-02 2.5576746E-02 2.5576746E-02 0.000000 1.926216 0.2903528 0.4863178 0.5732921 0.6002182 2.5734141E-02 2.5734141E-02 2.5734141E-02 9.9458490E-03 1.0584876E-02 2.5734141E-02 2.5734141E-02 0.000000 1.942174 0.2941556 0.4911486 0.5790503 0.6060861 2.5890870E-02 2.5890870E-02 2.5890870E-02 9.9861464E-03 1.0594805E-02 2.5890870E-02 2.5890870E-02 0.000000 1.957874 0.2968799 0.4959155 0.5836430 0.6107637 2.5988957E-02 2.5988957E-02 2.5988957E-02 1.0026210E-02 1.0635198E-02 2.5988957E-02 2.5988957E-02 0.000000 1.970786 0.2995605 0.5006231 0.5892780 0.6165053 2.6144363E-02 2.6144363E-02 2.6144363E-02 1.0066054E-02 1.0675445E-02 2.6144363E-02 2.6144363E-02 0.000000 1.983458 0.3032544 0.5052757 0.5937485 0.6210578 2.6299244E-02 2.6299244E-02 2.6299244E-02 1.0105692E-02 1.0715556E-02 2.6299244E-02 2.6299244E-02 0.000000 1.995908 0.3058587 0.5098771 0.5981617 0.6255511 2.6395250E-02 2.6395250E-02 2.6395250E-02 1.0172694E-02 1.0755539E-02 2.6395250E-02 2.6395250E-02 0.000000 2.008145 0.3084274 0.5144306 0.6036426 0.6299886 2.6549056E-02 2.6549056E-02 2.6549056E-02 1.0211999E-02 1.0795401E-02 2.6549056E-02 2.6549056E-02 0.000000 2.020188 0.3120345 0.5189408 0.6079571 0.6343746 2.6643839E-02 2.6643839E-02 2.6643839E-02 1.0251130E-02 1.0804224E-02 2.6643839E-02 2.6643839E-02 0.000000 2.029457 0.3145407 0.5234076 0.6122252 0.6387123 2.6796704E-02 2.6796704E-02 2.6796704E-02 1.0290098E-02 1.0843824E-02 2.6796704E-02 2.6796704E-02 0.000000 2.041134 0.3170162 0.5265932 0.6164451 0.6430047 2.6890391E-02 2.6890391E-02 2.6890391E-02 1.0328912E-02 1.0883325E-02 2.6890391E-02 2.6890391E-02 0.000000 2.050045 0.3194629 0.5309788 0.6206271 0.6472542 2.7042432E-02 2.7042432E-02 2.7042432E-02 1.0367580E-02 1.0922734E-02 2.7042432E-02 2.7042432E-02 0.000000 2.061396 0.3218842 0.5340785 0.6236284 0.6514653 2.7135134E-02 2.7135134E-02 2.7135134E-02 1.0406110E-02 1.0930975E-02 2.7135134E-02 2.7135134E-02 0.000000 2.072597 0.3242784 0.5383922 0.6277298 0.6556367 2.7286446E-02 2.7286446E-02 2.7286446E-02 1.0444509E-02 1.0970172E-02 2.7286446E-02 2.7286446E-02 0.000000 2.083658 0.3277544 0.5426754 0.6317954 0.6597721 2.7378261E-02 2.7378261E-02 2.7378261E-02 1.0482783E-02 1.1009292E-02 2.7378261E-02 2.7378261E-02 0.000000 2.089351 0.3301060 0.5456648 0.6358279 0.6638749 2.7469622E-02 2.7469622E-02 2.7469622E-02 1.0520941E-02 1.1017156E-02 2.7469622E-02 2.7469622E-02 0.000000 2.100145 0.3324357 0.5486185 0.6386757 0.6667666 2.7620982E-02 2.7620982E-02 2.7620982E-02 1.0558985E-02 1.1056093E-02 2.7620982E-02 2.7620982E-02 0.000000 2.110819 0.3347446 0.5528127 0.6426438 0.6708011 2.7711546E-02 2.7711546E-02 2.7711546E-02 1.0596923E-02 1.1094967E-02 2.7711546E-02 2.7711546E-02 0.000000 2.116110 0.3370337 0.5557041 0.6465837 0.6736243 2.7801715E-02 2.7801715E-02 2.7801715E-02 1.0634759E-02 1.1102495E-02 2.7801715E-02 2.7801715E-02 0.000000 2.126553 0.3393041 0.5585647 0.6493362 0.6775991 2.7891504E-02 2.7891504E-02 2.7891504E-02 1.0644399E-02 1.1141211E-02 2.7891504E-02 2.7891504E-02 0.000000 2.136893 0.3415566 0.5626807 0.6532210 0.6815498 2.8040648E-02 2.8040648E-02 2.8040648E-02 1.0682007E-02 1.1179875E-02 2.8040648E-02 2.8040648E-02 0.000000 2.141835 0.3437920 0.5654873 0.6559137 0.6842833 2.8129799E-02 2.8129799E-02 2.8129799E-02 1.0719529E-02 1.1187104E-02 2.8129799E-02 2.8129799E-02 0.000000 2.170998 0.3158652 0.3217360 0.2782751 0.2730259 1.5158880E-02 1.5158880E-02 1.5158880E-02 6.7078327E-03 8.3306916E-03 1.5158880E-02 1.5158880E-02 0.000000 1.088098 0.1314197 0.2023975 0.2485483 0.2589287 1.9259553E-02 1.9259553E-02 1.9259553E-02 7.9816300E-03 9.0777408E-03 1.9259553E-02 1.9259553E-02 0.000000 1.082761 0.1576432 0.2610762 0.3249007 0.3413832 2.1189995E-02 2.1189995E-02 2.1189995E-02 8.5713994E-03 9.5199887E-03 2.1189995E-02 2.1189995E-02 0.000000 1.226308 0.1847042 0.3095035 0.3831951 0.4028866 2.2538044E-02 2.2538044E-02 2.2538044E-02 8.9984415E-03 9.8447101E-03 2.2538044E-02 2.2538044E-02 0.000000 1.356863 0.2078371 0.3505727 0.4302016 0.4519882 2.3613630E-02 2.3613630E-02 2.3613630E-02 9.3561653E-03 1.0095501E-02 2.3613630E-02 2.3613630E-02 0.000000 1.468300 0.2286484 0.3847708 0.4686053 0.4922834 2.4544496E-02 2.4544496E-02 2.4544496E-02 9.6502788E-03 1.0337570E-02 2.4544496E-02 2.4544496E-02 0.000000 1.565664 0.2477193 0.4143294 0.5004531 0.5248340 2.5340222E-02 2.5340222E-02 2.5340222E-02 9.9101840E-03 1.0543557E-02 2.5340222E-02 2.5340222E-02 0.000000 1.647983 0.2637202 0.4398985 0.5283720 0.5544072 2.6060481E-02 2.6060481E-02 2.6060481E-02 1.0137444E-02 1.0714578E-02 2.6060481E-02 2.6060481E-02 0.000000 1.719454 0.2788084 0.4629816 0.5538575 0.5804198 2.6709488E-02 2.6709488E-02 2.6709488E-02 1.0332876E-02 1.0882199E-02 2.6709488E-02 2.6709488E-02 0.000000 1.786190 0.2921962 0.4838580 0.5761232 0.6019955 2.7289093E-02 2.7289093E-02 2.7289093E-02 1.0524866E-02 1.1016062E-02 2.7289093E-02 2.7289093E-02 0.000000 1.844343 0.3039728 0.5027067 0.5953071 0.6226557 2.7801355E-02 2.7801355E-02 2.7801355E-02 1.0714193E-02 1.1147586E-02 2.7801355E-02 2.7801355E-02 0.000000 1.894462 0.3163557 0.5196463 0.6137646 0.6402873 2.8304726E-02 2.8304726E-02 2.8304726E-02 1.0873083E-02 1.1277214E-02 2.8304726E-02 2.8304726E-02 0.000000 1.941996 0.3261946 0.5360052 0.6304956 0.6572926 2.8741481E-02 2.8741481E-02 2.8741481E-02 1.1029960E-02 1.1405285E-02 2.8741481E-02 2.8741481E-02 0.000000 1.982285 0.3368081 0.5506237 0.6444088 0.6726016 2.9233050E-02 2.9233050E-02 2.9233050E-02 1.1156535E-02 1.1532061E-02 2.9233050E-02 2.9233050E-02 0.000000 2.020689 0.3460270 0.5635382 0.6590335 0.6874642 2.9598301E-02 2.9598301E-02 2.9598301E-02 1.1310205E-02 1.1625855E-02 2.9598301E-02 2.9598301E-02 0.000000 2.057490 0.3538468 0.5760713 0.6721088 0.7007417 3.0020053E-02 3.0020053E-02 3.0020053E-02 1.1433799E-02 1.1750494E-02 3.0020053E-02 3.0020053E-02 0.000000 2.092912 0.3625996 0.5882775 0.6836615 0.7124666 3.0376600E-02 3.0376600E-02 3.0376600E-02 1.1556146E-02 1.1842218E-02 3.0376600E-02 3.0376600E-02 0.000000 2.121864 0.3699935 0.5988790 0.6961101 0.7238824 3.0729501E-02 3.0729501E-02 3.0729501E-02 1.1677407E-02 1.1933048E-02 3.0729501E-02 3.0729501E-02 0.000000 2.149705 0.3772091 0.6105529 0.7058938 0.7337978 3.1079203E-02 3.1079203E-02 3.1079203E-02 1.1797716E-02 1.2023087E-02 3.1079203E-02 3.1079203E-02 0.000000 2.176568 0.3854809 0.6206677 0.7166459 0.7446960 3.1426083E-02 3.1426083E-02 3.1426083E-02 1.1917190E-02 1.2112424E-02 3.1426083E-02 3.1426083E-02 0.000000 2.202556 0.3911939 0.6292211 0.7259698 0.7541415 3.1707834E-02 3.1707834E-02 3.1707834E-02 1.2006445E-02 1.2201132E-02 3.1707834E-02 3.1707834E-02 0.000000 2.222383 0.3979973 0.6389423 0.7350986 0.7621387 3.2051068E-02 3.2051068E-02 3.2051068E-02 1.2124415E-02 1.2289280E-02 3.2051068E-02 3.2051068E-02 0.000000 2.246871 0.4046933 0.6471221 0.7428150 0.7712004 3.2328110E-02 3.2328110E-02 3.2328110E-02 1.2212132E-02 1.2376923E-02 3.2328110E-02 3.2328110E-02 0.000000 2.265297 0.4100404 0.6551406 0.7516066 0.7801037 3.2602962E-02 3.2602962E-02 3.2602962E-02 1.2299146E-02 1.2464113E-02 3.2602962E-02 3.2602962E-02 0.000000 2.285836 0.4152833 0.6630161 0.7590079 0.7863285 3.2875817E-02 3.2875817E-02 3.2875817E-02 1.2415356E-02 1.2518004E-02 3.2875817E-02 3.2875817E-02 0.000000 2.305834 0.4204316 0.6707581 0.7662697 0.7949419 3.3146858E-02 3.3146858E-02 3.3146858E-02 1.2501217E-02 1.2604319E-02 3.3146858E-02 3.3146858E-02 0.000000 2.322595 0.4267716 0.6769732 0.7734045 0.8008863 3.3417471E-02 3.3417471E-02 3.3417471E-02 1.2586537E-02 1.2690301E-02 3.3417471E-02 3.3417471E-02 0.000000 2.338886 0.4317628 0.6844784 0.7804248 0.8079852 3.3685219E-02 3.3685219E-02 3.3685219E-02 1.2673087E-02 1.2742852E-02 3.3685219E-02 3.3685219E-02 0.000000 2.326441 0.4366817 0.6918848 0.7860706 0.8149720 3.3887345E-02 3.3887345E-02 3.3887345E-02 1.2757448E-02 1.2828166E-02 3.3887345E-02 3.3887345E-02 0.000000 2.342144 0.4402342 0.6977717 0.7928784 0.8205718 3.4152221E-02 3.4152221E-02 3.4152221E-02 1.2841383E-02 1.2879957E-02 3.4152221E-02 3.4152221E-02 0.000000 2.351975 0.4450186 0.7035621 0.7995952 0.8260734 3.4351368E-02 3.4351368E-02 3.4351368E-02 1.2924925E-02 1.2964709E-02 3.4351368E-02 3.4351368E-02 0.000000 2.366958 0.4497486 0.7092655 0.8049524 0.8314821 3.4613784E-02 3.4613784E-02 3.4613784E-02 1.2977725E-02 1.3015842E-02 3.4613784E-02 3.4613784E-02 0.000000 2.376655 0.4544246 0.7148831 0.8102238 0.8368041 3.4810334E-02 3.4810334E-02 3.4810334E-02 1.3060492E-02 1.3066649E-02 3.4810334E-02 3.4810334E-02 0.000000 2.385505 0.4590522 0.7204256 0.8154139 0.8420435 3.5005651E-02 3.5005651E-02 3.5005651E-02 1.3142946E-02 1.3150671E-02 3.5005651E-02 3.5005651E-02 0.000000 2.394058 0.4623038 0.7258949 0.8205294 0.8472081 3.5199802E-02 3.5199802E-02 3.5199802E-02 1.3225109E-02 1.3200938E-02 3.5199802E-02 3.5199802E-02 0.000000 2.402333 0.4655026 0.7312963 0.8255774 0.8523036 3.5392858E-02 3.5392858E-02 3.5392858E-02 1.3276359E-02 1.3250931E-02 3.5392858E-02 3.5392858E-02 0.000000 2.410347 0.4699930 0.7366371 0.8305590 0.8573319 3.5650264E-02 3.5650264E-02 3.5650264E-02 1.3357930E-02 1.3300668E-02 3.5650264E-02 3.5650264E-02 0.000000 2.418115 0.4744472 0.7419168 0.8354787 0.8609892 3.5841446E-02 3.5841446E-02 3.5841446E-02 1.3408507E-02 1.3383919E-02 3.5841446E-02 3.5841446E-02 0.000000 2.425651 0.4775156 0.7456736 0.8390420 0.8645781 3.6031712E-02 3.6031712E-02 3.6031712E-02 1.3489556E-02 1.3433232E-02 3.6031712E-02 3.6031712E-02 0.000000 2.432971 0.4805427 0.7508414 0.8425449 0.8694258 3.6155939E-02 3.6155939E-02 3.6155939E-02 1.3539530E-02 1.3482325E-02 3.6155939E-02 3.6155939E-02 0.000000 2.440080 0.4848912 0.7544854 0.8472945 0.8742200 3.6344364E-02 3.6344364E-02 3.6344364E-02 1.3620120E-02 1.3531211E-02 3.6344364E-02 3.6344364E-02 0.000000 2.446993 0.4878463 0.7595565 0.8519974 0.8776461 3.6532048E-02 3.6532048E-02 3.6532048E-02 1.3669550E-02 1.3579899E-02 3.6532048E-02 3.6532048E-02 0.000000 2.453722 0.4907664 0.7645817 0.8553452 0.8810194 3.6718998E-02 3.6718998E-02 3.6718998E-02 1.3749734E-02 1.3628398E-02 3.6718998E-02 3.6718998E-02 0.000000 2.460424 0.4936532 0.7665951 0.8586448 0.8856687 3.6905248E-02 3.6905248E-02 3.6905248E-02 1.3798670E-02 1.3676720E-02 3.6905248E-02 3.6905248E-02 0.000000 2.466810 0.4965085 0.7715325 0.8632112 0.8889493 3.7090834E-02 3.7090834E-02 3.7090834E-02 1.3847357E-02 1.3724871E-02 3.7090834E-02 3.7090834E-02 0.000000 2.473035 0.5007151 0.7764329 0.8677369 0.8921859 3.7209362E-02 3.7209362E-02 3.7209362E-02 1.3926982E-02 1.3772859E-02 3.7209362E-02 3.7209362E-02 0.000000 2.479108 0.5035157 0.7783091 0.8695927 0.8967134 3.7393607E-02 3.7393607E-02 3.7393607E-02 1.3975242E-02 1.3820694E-02 3.7393607E-02 3.7393607E-02 0.000000 2.479409 0.5062890 0.7831360 0.8740412 0.8985381 3.7577286E-02 3.7577286E-02 3.7577286E-02 1.4023283E-02 1.3868381E-02 3.7577286E-02 3.7577286E-02 0.000000 2.485192 0.5090364 0.7864283 0.8771370 0.9029890 3.7693687E-02 3.7693687E-02 3.7693687E-02 1.4071112E-02 1.3915927E-02 3.7693687E-02 3.7693687E-02 0.000000 2.490843 0.5117592 0.7896845 0.8801951 0.9047356 3.7876200E-02 3.7876200E-02 3.7876200E-02 1.4150104E-02 1.3963339E-02 3.7876200E-02 3.7876200E-02 0.000000 2.170882 0.3147879 0.3202190 0.2750367 0.2692680 1.5268145E-02 1.5268145E-02 1.5268145E-02 6.7591141E-03 8.3088679E-03 1.5268145E-02 1.5268145E-02 0.000000 1.052390 0.1361051 0.2150622 0.2676126 0.2797064 2.0491939E-02 2.0491939E-02 2.0491939E-02 8.4655555E-03 9.4062090E-03 2.0491939E-02 2.0491939E-02 0.000000 1.128025 0.1749678 0.2898066 0.3619718 0.3811160 2.3007285E-02 2.3007285E-02 2.3007285E-02 9.2515452E-03 1.0011975E-02 2.3007285E-02 2.3007285E-02 0.000000 1.302091 0.2098875 0.3509157 0.4334374 0.4553096 2.4791040E-02 2.4791040E-02 2.4791040E-02 9.8356316E-03 1.0462369E-02 2.4791040E-02 2.4791040E-02 0.000000 1.454536 0.2410184 0.3996281 0.4891543 0.5133020 2.6225349E-02 2.6225349E-02 2.6225349E-02 1.0289423E-02 1.0803440E-02 2.6225349E-02 2.6225349E-02 0.000000 1.580734 0.2674339 0.4419705 0.5334244 0.5595737 2.7383192E-02 2.7383192E-02 2.7383192E-02 1.0646060E-02 1.1102387E-02 2.7383192E-02 2.7383192E-02 0.000000 1.689688 0.2899853 0.4770384 0.5715650 0.5984777 2.8392700E-02 2.8392700E-02 2.8392700E-02 1.0993019E-02 1.1362426E-02 2.8392700E-02 2.8392700E-02 0.000000 1.782662 0.3101399 0.5077128 0.6043235 0.6318414 2.9257750E-02 2.9257750E-02 2.9257750E-02 1.1276047E-02 1.1616999E-02 2.9257750E-02 2.9257750E-02 0.000000 1.861632 0.3282038 0.5344051 0.6320980 0.6600949 3.0104989E-02 3.0104989E-02 3.0104989E-02 1.1553534E-02 1.1803460E-02 3.0104989E-02 3.0104989E-02 0.000000 1.930360 0.3443573 0.5586309 0.6574594 0.6846795 3.0815167E-02 3.0815167E-02 3.0815167E-02 1.1797654E-02 1.2018462E-02 3.0815167E-02 3.0815167E-02 0.000000 1.992347 0.3598786 0.5806092 0.6794671 0.7070096 3.1513318E-02 3.1513318E-02 3.1513318E-02 1.2008730E-02 1.2198391E-02 3.1513318E-02 3.1513318E-02 0.000000 2.050935 0.3725281 0.5991544 0.6994441 0.7272674 3.2140404E-02 3.2140404E-02 3.2140404E-02 1.2246278E-02 1.2375941E-02 3.2140404E-02 3.2140404E-02 0.000000 2.096278 0.3859152 0.6183494 0.7175142 0.7455810 3.2694645E-02 3.2694645E-02 3.2694645E-02 1.2421856E-02 1.2518670E-02 3.2694645E-02 3.2694645E-02 0.000000 2.144422 0.3977234 0.6342869 0.7337666 0.7620430 3.3241123E-02 3.3241123E-02 3.3241123E-02 1.2626704E-02 1.2692524E-02 3.3241123E-02 3.3241123E-02 0.000000 2.185225 0.4079612 0.6497205 0.7482670 0.7767261 3.3782184E-02 3.3782184E-02 3.3782184E-02 1.2797833E-02 1.2831859E-02 3.3782184E-02 3.3782184E-02 0.000000 2.218863 0.4191643 0.6633393 0.7623158 0.7909457 3.4251943E-02 3.4251943E-02 3.4251943E-02 1.2967159E-02 1.2969800E-02 3.4251943E-02 3.4251943E-02 0.000000 2.253599 0.4275803 0.6765724 0.7759808 0.8034987 3.4716323E-02 3.4716323E-02 3.4716323E-02 1.3104445E-02 1.3106539E-02 3.4716323E-02 3.4716323E-02 0.000000 2.284243 0.4370427 0.6894758 0.7867780 0.8156922 3.5110958E-02 3.5110958E-02 3.5110958E-02 1.3270742E-02 1.3208622E-02 3.5110958E-02 3.5110958E-02 0.000000 2.310924 0.4450087 0.7006608 0.7985277 0.8262868 3.5566267E-02 3.5566267E-02 3.5566267E-02 1.3405129E-02 1.3343278E-02 3.5566267E-02 3.5566267E-02 0.000000 2.339237 0.4541059 0.7115734 0.8087327 0.8365979 3.5952371E-02 3.5952371E-02 3.5952371E-02 1.3538257E-02 1.3443292E-02 3.5952371E-02 3.5952371E-02 0.000000 2.338463 0.4603983 0.7208031 0.8186846 0.8453519 3.6335342E-02 3.6335342E-02 3.6335342E-02 1.3670263E-02 1.3576339E-02 3.6335342E-02 3.6335342E-02 0.000000 2.359826 0.4691999 0.7312541 0.8271266 0.8538685 3.6714450E-02 3.6714450E-02 3.6714450E-02 1.3801263E-02 1.3674698E-02 3.6714450E-02 3.6714450E-02 0.000000 2.375417 0.4751912 0.7400541 0.8366519 0.8634856 3.7090581E-02 3.7090581E-02 3.7090581E-02 1.3931360E-02 1.3772301E-02 3.7090581E-02 3.7090581E-02 0.000000 2.389735 0.4810461 0.7486663 0.8446975 0.8702856 3.7397470E-02 3.7397470E-02 3.7397470E-02 1.4060644E-02 1.3869219E-02 3.7397470E-02 3.7397470E-02 0.000000 2.403363 0.4881430 0.7571131 0.8525673 0.8782253 3.7701502E-02 3.7701502E-02 3.7701502E-02 1.4157799E-02 1.3999890E-02 3.7701502E-02 3.7701502E-02 0.000000 2.416359 0.4937702 0.7654057 0.8589737 0.8860051 3.8069852E-02 3.8069852E-02 3.8069852E-02 1.4285580E-02 1.4095707E-02 3.8069852E-02 3.8069852E-02 0.000000 2.428777 0.5006763 0.7720703 0.8665426 0.8923116 3.8369045E-02 3.8369045E-02 3.8369045E-02 1.4381182E-02 1.4156440E-02 3.8369045E-02 3.8369045E-02 0.000000 2.440668 0.5061145 0.7785965 0.8739790 0.8984808 3.8667500E-02 3.8667500E-02 3.8667500E-02 1.4476060E-02 1.4251165E-02 3.8667500E-02 3.8667500E-02 0.000000 2.452065 0.5114666 0.7864959 0.8799747 0.9045191 3.8962618E-02 3.8962618E-02 3.8962618E-02 1.4601999E-02 1.4345452E-02 3.8962618E-02 3.8962618E-02 0.000000 2.463166 0.5167395 0.7927806 0.8858507 0.9104404 3.9255843E-02 3.9255843E-02 3.9255843E-02 1.4695657E-02 1.4439335E-02 3.9255843E-02 3.9255843E-02 0.000000 2.473695 0.5219392 0.7989602 0.8916172 0.9162478 3.9479427E-02 3.9479427E-02 3.9479427E-02 1.4788736E-02 1.4532847E-02 3.9479427E-02 3.9479427E-02 0.000000 2.478209 0.5256577 0.8050372 0.8972846 0.9206094 3.9769091E-02 3.9769091E-02 3.9769091E-02 1.4881274E-02 1.4591037E-02 3.9769091E-02 3.9769091E-02 0.000000 2.487975 0.5307230 0.8110205 0.9015218 0.9248731 4.0057234E-02 4.0057234E-02 4.0057234E-02 1.4973306E-02 1.4683804E-02 4.0057234E-02 4.0057234E-02 0.000000 2.497401 0.5343039 0.8153960 0.9056653 0.9303921 4.0276963E-02 4.0276963E-02 4.0276963E-02 1.5064868E-02 1.4776280E-02 4.0276963E-02 4.0276963E-02 0.000000 2.500862 0.5392492 0.8212055 0.9110618 0.9358248 4.0561933E-02 4.0561933E-02 4.0561933E-02 1.5155989E-02 1.4833281E-02 4.0561933E-02 4.0561933E-02 0.000000 2.509665 0.5441442 0.8269410 0.9163778 0.9384733 4.0777087E-02 4.0777087E-02 4.0777087E-02 1.5246696E-02 1.4925156E-02 4.0777087E-02 4.0777087E-02 0.000000 2.512528 0.5475532 0.8326032 0.9202780 0.9437516 4.1059505E-02 4.1059505E-02 4.1059505E-02 1.5337015E-02 1.4981456E-02 4.1059505E-02 4.1059505E-02 0.000000 2.520781 0.5509113 0.8366641 0.9241081 0.9476025 4.1271988E-02 4.1271988E-02 4.1271988E-02 1.5394590E-02 1.5072807E-02 4.1271988E-02 4.1271988E-02 0.000000 2.522963 0.5556651 0.8406538 0.9292160 0.9513845 4.1483179E-02 4.1483179E-02 4.1483179E-02 1.5484136E-02 1.5128483E-02 4.1483179E-02 4.1483179E-02 0.000000 2.530713 0.5589283 0.8461211 0.9315656 0.9551043 4.1693151E-02 4.1693151E-02 4.1693151E-02 1.5573360E-02 1.5183845E-02 4.1693151E-02 4.1693151E-02 0.000000 2.532559 0.5621468 0.8499860 0.9365505 0.9587606 4.1901965E-02 4.1901965E-02 4.1901965E-02 1.5629724E-02 1.5274491E-02 4.1901965E-02 4.1901965E-02 0.000000 2.534186 0.5667827 0.8537922 0.9387748 0.9609943 4.2109683E-02 4.2109683E-02 4.2109683E-02 1.5718294E-02 1.5329321E-02 4.2109683E-02 4.2109683E-02 0.000000 2.535604 0.5684596 0.8590969 0.9436519 0.9659024 4.2316355E-02 4.2316355E-02 4.2316355E-02 1.5806597E-02 1.5383881E-02 4.2316355E-02 4.2316355E-02 0.000000 2.542517 0.5730249 0.8612422 0.9457656 0.9680244 4.2523649E-02 4.2523649E-02 4.2523649E-02 1.5861915E-02 1.5473943E-02 4.2523649E-02 4.2523649E-02 0.000000 2.543553 0.5760910 0.8664454 0.9505427 0.9714621 4.2728636E-02 4.2728636E-02 4.2728636E-02 1.5949663E-02 1.5528047E-02 4.2728636E-02 4.2728636E-02 0.000000 2.544410 0.5791230 0.8684879 0.9525563 0.9748551 4.2932730E-02 4.2932730E-02 4.2932730E-02 1.6004348E-02 1.5583822E-02 4.2932730E-02 4.2932730E-02 0.000000 2.550799 0.5821223 0.8736070 0.9572476 0.9768293 4.3135967E-02 4.3135967E-02 4.3135967E-02 1.6091594E-02 1.5637461E-02 4.3135967E-02 4.3135967E-02 0.000000 2.551326 0.5850928 0.8755567 0.9591703 0.9787579 4.3338384E-02 4.3338384E-02 4.3338384E-02 1.6145701E-02 1.5690884E-02 4.3338384E-02 4.3338384E-02 0.000000 2.551697 0.5880314 0.8805935 0.9610494 0.9833909 4.3469857E-02 4.3469857E-02 4.3469857E-02 1.6199514E-02 1.5780130E-02 4.3469857E-02 4.3469857E-02 0.000000 2.551920 0.5909417 0.8824581 0.9656191 0.9852360 4.3670639E-02 4.3670639E-02 4.3670639E-02 1.6286070E-02 1.5833195E-02 4.3670639E-02 4.3670639E-02 0.000000 2.171805 0.3141548 0.3192374 0.2731750 0.2673467 1.5305019E-02 1.5305019E-02 1.5305019E-02 6.7997421E-03 8.3272774E-03 1.5305019E-02 1.5305019E-02 0.000000 1.040590 0.1399902 0.2237224 0.2798789 0.2929575 2.1435464E-02 2.1435464E-02 2.1435464E-02 8.8223098E-03 9.6540144E-03 2.1435464E-02 2.1435464E-02 0.000000 1.156776 0.1865653 0.3081520 0.3857835 0.4055528 2.4396867E-02 2.4396867E-02 2.4396867E-02 9.7699696E-03 1.0388450E-02 2.4396867E-02 2.4396867E-02 0.000000 1.349102 0.2277292 0.3768687 0.4651193 0.4887290 2.6482625E-02 2.6482625E-02 2.6482625E-02 1.0450887E-02 1.0930509E-02 2.6482625E-02 2.6482625E-02 0.000000 1.511879 0.2630599 0.4318687 0.5260518 0.5520524 2.8139286E-02 2.8139286E-02 2.8139286E-02 1.0994682E-02 1.1359014E-02 2.8139286E-02 2.8139286E-02 0.000000 1.647682 0.2924515 0.4779698 0.5760490 0.6030521 2.9504260E-02 2.9504260E-02 2.9504260E-02 1.1436787E-02 1.1711439E-02 2.9504260E-02 2.9504260E-02 0.000000 1.760943 0.3188022 0.5175760 0.6174082 0.6451611 3.0649429E-02 3.0649429E-02 3.0649429E-02 1.1838581E-02 1.2022818E-02 3.0649429E-02 3.0649429E-02 0.000000 1.859979 0.3415561 0.5513290 0.6519040 0.6802308 3.1704996E-02 3.1704996E-02 3.1704996E-02 1.2173250E-02 1.2327773E-02 3.1704996E-02 3.1704996E-02 0.000000 1.942018 0.3620823 0.5808743 0.6822960 0.7098829 3.2615334E-02 3.2615334E-02 3.2615334E-02 1.2501282E-02 1.2562316E-02 3.2615334E-02 3.2615334E-02 0.000000 2.015950 0.3793799 0.6064706 0.7089242 0.7368818 3.3508468E-02 3.3508468E-02 3.3508468E-02 1.2765760E-02 1.2792527E-02 3.3508468E-02 3.3508468E-02 0.000000 2.080289 0.3959476 0.6296467 0.7320089 0.7602669 3.4257852E-02 3.4257852E-02 3.4257852E-02 1.3054247E-02 1.3019370E-02 3.4257852E-02 3.4257852E-02 0.000000 2.138367 0.4106942 0.6505704 0.7529335 0.7814561 3.4994818E-02 3.4994818E-02 3.4994818E-02 1.3278173E-02 1.3209939E-02 3.4994818E-02 3.4994818E-02 0.000000 2.188097 0.4249471 0.6707611 0.7718413 0.7993163 3.5656318E-02 3.5656318E-02 3.5656318E-02 1.3498685E-02 1.3431781E-02 3.5656318E-02 3.5656318E-02 0.000000 2.232537 0.4375037 0.6875221 0.7875700 0.8164963 3.6242694E-02 3.6242694E-02 3.6242694E-02 1.3716366E-02 1.3583903E-02 3.6242694E-02 3.6242694E-02 0.000000 2.274755 0.4496961 0.7037238 0.8039936 0.8318130 3.6821660E-02 3.6821660E-02 3.6821660E-02 1.3931675E-02 1.3768079E-02 3.6821660E-02 3.6821660E-02 0.000000 2.309600 0.4602514 0.7194582 0.8173706 0.8440242 3.7392687E-02 3.7392687E-02 3.7392687E-02 1.4113624E-02 1.3916451E-02 3.7392687E-02 3.7392687E-02 0.000000 2.319825 0.4705169 0.7318815 0.8316056 0.8583974 3.7890684E-02 3.7890684E-02 3.7890684E-02 1.4293554E-02 1.4097726E-02 3.7890684E-02 3.7890684E-02 0.000000 2.346521 0.4805333 0.7453836 0.8428730 0.8697665 3.8382702E-02 3.8382702E-02 3.8382702E-02 1.4471729E-02 1.4243303E-02 3.8382702E-02 3.8382702E-02 0.000000 2.372435 0.4903335 0.7570916 0.8537976 0.8807875 3.8871080E-02 3.8871080E-02 3.8871080E-02 1.4648370E-02 1.4387676E-02 3.8871080E-02 3.8871080E-02 0.000000 2.391140 0.4985653 0.7670157 0.8644161 0.8901719 3.9353527E-02 3.9353527E-02 3.9353527E-02 1.4791750E-02 1.4496102E-02 3.9353527E-02 3.9353527E-02 0.000000 2.408757 0.5066097 0.7781534 0.8747650 0.8992759 3.9763816E-02 3.9763816E-02 3.9763816E-02 1.4965717E-02 1.4638346E-02 3.9763816E-02 3.9763816E-02 0.000000 2.430973 0.5144875 0.7890577 0.8822282 0.9067881 4.0171374E-02 4.0171374E-02 4.0171374E-02 1.5106478E-02 1.4779761E-02 4.0171374E-02 4.0171374E-02 0.000000 2.446755 0.5222166 0.7967363 0.8921099 0.9167469 4.0573303E-02 4.0573303E-02 4.0573303E-02 1.5246071E-02 1.4885184E-02 4.0573303E-02 4.0573303E-02 0.000000 2.456290 0.5283973 0.8072289 0.8991349 0.9238182 4.0971797E-02 4.0971797E-02 4.0971797E-02 1.5384604E-02 1.5025079E-02 4.0971797E-02 4.0971797E-02 0.000000 2.470545 0.5344388 0.8145111 0.9059651 0.9306971 4.1298293E-02 4.1298293E-02 4.1298293E-02 1.5489724E-02 1.5128912E-02 4.1298293E-02 4.1298293E-02 0.000000 2.478513 0.5417880 0.8216126 0.9126211 0.9373959 4.1690603E-02 4.1690603E-02 4.1690603E-02 1.5626319E-02 1.5232005E-02 4.1690603E-02 4.1690603E-02 0.000000 2.491492 0.5475997 0.8285541 0.9191132 0.9439341 4.2011034E-02 4.2011034E-02 4.2011034E-02 1.5762117E-02 1.5334419E-02 4.2011034E-02 4.2011034E-02 0.000000 2.498270 0.5533104 0.8368844 0.9254606 0.9503223 4.2328700E-02 4.2328700E-02 4.2328700E-02 1.5864450E-02 1.5436206E-02 4.2328700E-02 4.2328700E-02 0.000000 2.510171 0.5589243 0.8435450 0.9316728 0.9538544 4.2715285E-02 4.2715285E-02 4.2715285E-02 1.5998753E-02 1.5537417E-02 4.2715285E-02 4.2715285E-02 0.000000 2.515937 0.5644506 0.8485333 0.9377562 0.9599746 4.2958695E-02 4.2958695E-02 4.2958695E-02 1.6099539E-02 1.5640002E-02 4.2958695E-02 4.2958695E-02 0.000000 2.521099 0.5684331 0.8549467 0.9437247 0.9659787 4.3339673E-02 4.3339673E-02 4.3339673E-02 1.6199591E-02 1.5740180E-02 4.3339673E-02 4.3339673E-02 0.000000 2.525968 0.5737983 0.8612536 0.9482260 0.9691351 4.3578487E-02 4.3578487E-02 4.3578487E-02 1.6332017E-02 1.5839901E-02 4.3578487E-02 4.3578487E-02 0.000000 2.536124 0.5790942 0.8674566 0.9526216 0.9749238 4.3885440E-02 4.3885440E-02 4.3885440E-02 1.6430821E-02 1.5939195E-02 4.3885440E-02 4.3885440E-02 0.000000 2.540235 0.5843279 0.8735698 0.9582839 0.9778719 4.4190608E-02 4.4190608E-02 4.4190608E-02 1.6529027E-02 1.6038094E-02 4.4190608E-02 4.4190608E-02 0.000000 2.544000 0.5880155 0.8764631 0.9611271 0.9834718 4.4423420E-02 4.4423420E-02 4.4423420E-02 1.6628793E-02 1.6136624E-02 4.4423420E-02 4.4423420E-02 0.000000 2.547442 0.5916381 0.8823979 0.9666132 0.9862363 4.4725187E-02 4.4725187E-02 4.4725187E-02 1.6725954E-02 1.6198384E-02 4.4725187E-02 4.4725187E-02 0.000000 2.550579 0.5966910 0.8882561 0.9692835 0.9889156 4.4954523E-02 4.4954523E-02 4.4954523E-02 1.6822619E-02 1.6296169E-02 4.4954523E-02 4.4954523E-02 0.000000 2.547724 0.6002007 0.8908935 0.9746156 0.9942757 4.5253284E-02 4.5253284E-02 4.5253284E-02 1.6918816E-02 1.6393656E-02 4.5253284E-02 4.5253284E-02 0.000000 2.556011 0.6036555 0.8966056 0.9771341 0.9968017 4.5479517E-02 4.5479517E-02 4.5479517E-02 1.7014574E-02 1.6454218E-02 4.5479517E-02 4.5479517E-02 0.000000 2.558009 0.6085617 0.8990946 0.9809545 0.9992562 4.5706011E-02 4.5706011E-02 4.5706011E-02 1.7076300E-02 1.6551089E-02 4.5706011E-02 4.5706011E-02 0.000000 2.560071 0.6104139 0.9046769 0.9847103 1.001643 4.5929234E-02 4.5929234E-02 4.5929234E-02 1.7171184E-02 1.6610935E-02 4.5929234E-02 4.5929234E-02 0.000000 2.556180 0.6152335 0.9070332 0.9870284 1.006735 4.6151116E-02 4.6151116E-02 4.6151116E-02 1.7265698E-02 1.6707258E-02 4.6151116E-02 4.6151116E-02 0.000000 2.557792 0.6169929 0.9124995 0.9892856 1.008999 4.6371717E-02 4.6371717E-02 4.6371717E-02 1.7359860E-02 1.6766461E-02 4.6371717E-02 4.6371717E-02 0.000000 2.559198 0.6217358 0.9147402 0.9942459 1.011205 4.6591103E-02 4.6591103E-02 4.6591103E-02 1.7419841E-02 1.6825337E-02 4.6591103E-02 4.6591103E-02 0.000000 2.560408 0.6234070 0.9201016 0.9963925 1.013358 4.6809327E-02 4.6809327E-02 4.6809327E-02 1.7513294E-02 1.6920913E-02 4.6809327E-02 4.6809327E-02 0.000000 2.561433 0.6280804 0.9222305 0.9984866 1.015458 4.7026444E-02 4.7026444E-02 4.7026444E-02 1.7572496E-02 1.6979231E-02 4.7026444E-02 4.7026444E-02 0.000000 2.556543 0.6296738 0.9243076 1.000531 1.017506 4.7242507E-02 4.7242507E-02 4.7242507E-02 1.7665306E-02 1.7074399E-02 4.7242507E-02 4.7242507E-02 0.000000 2.562956 0.6342844 0.9295287 1.005295 1.019507 4.7457557E-02 4.7457557E-02 4.7457557E-02 1.7757848E-02 1.7132208E-02 4.7457557E-02 4.7457557E-02 0.000000 2.557731 0.6358070 0.9315123 1.007248 1.022854 4.7671642E-02 4.7671642E-02 4.7671642E-02 1.7816022E-02 1.7189754E-02 4.7671642E-02 4.7671642E-02 0.000000 2.558090 0.6388273 0.9334509 1.009157 1.026162 4.7884803E-02 4.7884803E-02 4.7884803E-02 1.7873855E-02 1.7247049E-02 4.7884803E-02 4.7884803E-02 0.000000 2.172070 0.3138311 0.3187477 0.2720585 0.2661182 1.5376310E-02 1.5376310E-02 1.5376310E-02 6.8353643E-03 8.3123362E-03 1.5376310E-02 1.5376310E-02 0.000000 1.038786 0.1432525 0.2295257 0.2888002 0.3024556 2.2119928E-02 2.2119928E-02 2.2119928E-02 9.1122594E-03 9.8896138E-03 2.2119928E-02 2.2119928E-02 0.000000 1.177029 0.1948350 0.3220289 0.4031387 0.4242716 2.5447579E-02 2.5447579E-02 2.5447579E-02 1.0216865E-02 1.0719852E-02 2.5447579E-02 2.5447579E-02 0.000000 1.377921 0.2408820 0.3966706 0.4874684 0.5115835 2.7816514E-02 2.7816514E-02 2.7816514E-02 1.0990881E-02 1.1320105E-02 2.7816514E-02 2.7816514E-02 0.000000 1.549089 0.2789617 0.4562885 0.5538930 0.5793739 2.9679962E-02 2.9679962E-02 2.9679962E-02 1.1593356E-02 1.1802550E-02 2.9679962E-02 2.9679962E-02 0.000000 1.693018 0.3119394 0.5055602 0.6057875 0.6333400 3.1179892E-02 3.1179892E-02 3.1179892E-02 1.2089672E-02 1.2238757E-02 3.1179892E-02 3.1179892E-02 0.000000 1.814140 0.3396159 0.5468010 0.6498085 0.6769201 3.2515086E-02 3.2515086E-02 3.2515086E-02 1.2543336E-02 1.2600124E-02 3.2515086E-02 3.2515086E-02 0.000000 1.913332 0.3646369 0.5832016 0.6855417 0.7143891 3.3693187E-02 3.3693187E-02 3.3693187E-02 1.2929084E-02 1.2921046E-02 3.3693187E-02 3.3693187E-02 0.000000 2.000094 0.3861447 0.6138996 0.7169824 0.7450470 3.4716822E-02 3.4716822E-02 3.4716822E-02 1.3274970E-02 1.3202741E-02 3.4716822E-02 3.4716822E-02 0.000000 2.075962 0.4054928 0.6404732 0.7445049 0.7729226 3.5589930E-02 3.5589930E-02 3.5589930E-02 1.3583870E-02 1.3479735E-02 3.5589930E-02 3.5589930E-02 0.000000 2.141975 0.4240984 0.6658955 0.7683499 0.7970577 3.6512114E-02 3.6512114E-02 3.6512114E-02 1.3887610E-02 1.3718997E-02 3.6512114E-02 3.6512114E-02 0.000000 2.198856 0.4395318 0.6875911 0.7912183 0.8176235 3.7287999E-02 3.7287999E-02 3.7287999E-02 1.4155892E-02 1.3954970E-02 3.7287999E-02 3.7287999E-02 0.000000 2.247137 0.4544233 0.7084914 0.8094584 0.8373383 3.7984774E-02 3.7984774E-02 3.7984774E-02 1.4420477E-02 1.4153728E-02 3.7984774E-02 3.7984774E-02 0.000000 2.292664 0.4675318 0.7258471 0.8269852 0.8537354 3.8672090E-02 3.8672090E-02 3.8672090E-02 1.4650229E-02 1.4349913E-02 3.8672090E-02 3.8672090E-02 0.000000 2.335875 0.4802392 0.7426054 0.8426130 0.8681936 3.9281409E-02 3.9281409E-02 3.9281409E-02 1.4877082E-02 1.4543931E-02 3.9281409E-02 3.9281409E-02 0.000000 2.343638 0.4912388 0.7573852 0.8564141 0.8821068 3.9882176E-02 3.9882176E-02 3.9882176E-02 1.5069342E-02 1.4736110E-02 3.9882176E-02 3.9882176E-02 0.000000 2.373238 0.5019232 0.7717115 0.8697485 0.8942207 4.0476702E-02 4.0476702E-02 4.0476702E-02 1.5291451E-02 1.4926720E-02 4.0476702E-02 4.0476702E-02 0.000000 2.395244 0.5123363 0.7841504 0.8813601 0.9059192 4.1063052E-02 4.1063052E-02 4.1063052E-02 1.5479308E-02 1.5080551E-02 4.1063052E-02 4.1063052E-02 0.000000 2.421392 0.5225134 0.7962276 0.8926064 0.9172492 4.1505735E-02 4.1505735E-02 4.1505735E-02 1.5632736E-02 1.5232914E-02 4.1505735E-02 4.1505735E-02 0.000000 2.440742 0.5310660 0.8079893 0.9022012 0.9255627 4.2011574E-02 4.2011574E-02 4.2011574E-02 1.5816940E-02 1.5383979E-02 4.2011574E-02 4.2011574E-02 0.000000 2.453515 0.5394134 0.8179486 0.9115006 0.9349217 4.2514071E-02 4.2514071E-02 4.2514071E-02 1.5999686E-02 1.5533890E-02 4.2514071E-02 4.2514071E-02 0.000000 2.470727 0.5475808 0.8276432 0.9191893 0.9440137 4.2941298E-02 4.2941298E-02 4.2941298E-02 1.6148189E-02 1.5684675E-02 4.2941298E-02 4.2941298E-02 0.000000 2.481403 0.5555900 0.8371018 0.9279832 0.9515064 4.3364070E-02 4.3364070E-02 4.3364070E-02 1.6295299E-02 1.5832627E-02 4.3364070E-02 4.3364070E-02 0.000000 2.496873 0.5619975 0.8463464 0.9365631 0.9587794 4.3782804E-02 4.3782804E-02 4.3782804E-02 1.6474295E-02 1.5943544E-02 4.3782804E-02 4.3782804E-02 0.000000 2.505946 0.5682592 0.8538488 0.9435925 0.9644833 4.4197850E-02 4.4197850E-02 4.4197850E-02 1.6587932E-02 1.6089799E-02 4.4197850E-02 4.4197850E-02 0.000000 2.514318 0.5743885 0.8611662 0.9504365 0.9699932 4.4609532E-02 4.4609532E-02 4.4609532E-02 1.6731631E-02 1.6198955E-02 4.4609532E-02 4.4609532E-02 0.000000 2.521897 0.5803971 0.8683099 0.9543926 0.9767025 4.4947177E-02 4.4947177E-02 4.4947177E-02 1.6874367E-02 1.6343815E-02 4.4947177E-02 4.4947177E-02 0.000000 2.529011 0.5862970 0.8753020 0.9609087 0.9818810 4.5281608E-02 4.5281608E-02 4.5281608E-02 1.7016217E-02 1.6451491E-02 4.5281608E-02 4.5281608E-02 0.000000 2.535579 0.5920928 0.8821482 0.9672832 0.9869111 4.5686115E-02 4.5686115E-02 4.5686115E-02 1.7123606E-02 1.6558465E-02 4.5686115E-02 4.5686115E-02 0.000000 2.541641 0.5977951 0.8888619 0.9721544 0.9904254 4.5943365E-02 4.5943365E-02 4.5943365E-02 1.7263798E-02 1.6664788E-02 4.5943365E-02 4.5943365E-02 0.000000 2.547235 0.6034129 0.8938771 0.9769023 0.9965716 4.6340898E-02 4.6340898E-02 4.6340898E-02 1.7369483E-02 1.6770510E-02 4.6340898E-02 4.6340898E-02 0.000000 2.552392 0.6089486 0.8987714 0.9815301 0.9998356 4.6592832E-02 4.6592832E-02 4.6592832E-02 1.7474366E-02 1.6875671E-02 4.6592832E-02 4.6592832E-02 0.000000 2.551434 0.6129014 0.9051354 0.9860480 1.004370 4.6914116E-02 4.6914116E-02 4.6914116E-02 1.7612455E-02 1.6980309E-02 4.6914116E-02 4.6914116E-02 0.000000 2.555478 0.6167785 0.9098151 0.9890853 1.008801 4.7233291E-02 4.7233291E-02 4.7233291E-02 1.7715953E-02 1.7084461E-02 4.7233291E-02 4.7233291E-02 0.000000 2.559460 0.6220976 0.9143965 0.9947843 1.011747 4.7550496E-02 4.7550496E-02 4.7550496E-02 1.7818788E-02 1.7188158E-02 4.7550496E-02 4.7550496E-02 0.000000 2.557384 0.6273566 0.9204802 0.9976310 1.014603 4.7793504E-02 4.7793504E-02 4.7793504E-02 1.7920999E-02 1.7291430E-02 4.7793504E-02 4.7793504E-02 0.000000 2.560712 0.6295086 0.9232911 1.000390 1.017367 4.8106965E-02 4.8106965E-02 4.8106965E-02 1.8023429E-02 1.7394304E-02 4.8106965E-02 4.8106965E-02 0.000000 2.563745 0.6346502 0.9292086 1.005834 1.020048 4.8346180E-02 4.8346180E-02 4.8346180E-02 1.8123450E-02 1.7459327E-02 4.8346180E-02 4.8346180E-02 0.000000 2.560766 0.6382098 0.9318563 1.008434 1.022651 4.8585169E-02 4.8585169E-02 4.8585169E-02 1.8224614E-02 1.7561398E-02 4.8585169E-02 4.8585169E-02 0.000000 2.557517 0.6417180 0.9360283 1.010960 1.027969 4.8893690E-02 4.8893690E-02 4.8893690E-02 1.8324669E-02 1.7663142E-02 4.8893690E-02 4.8893690E-02 0.000000 2.559752 0.6451722 0.9401346 1.013417 1.030433 4.9127761E-02 4.9127761E-02 4.9127761E-02 1.8424258E-02 1.7726887E-02 4.9127761E-02 4.9127761E-02 0.000000 2.561752 0.6485785 0.9425671 1.015808 1.032827 4.9360286E-02 4.9360286E-02 4.9360286E-02 1.8523403E-02 1.7827956E-02 4.9360286E-02 4.9360286E-02 0.000000 2.557784 0.6519393 0.9465464 1.018134 1.029904 4.9591340E-02 4.9591340E-02 4.9591340E-02 1.8587511E-02 1.7928755E-02 4.9591340E-02 4.9591340E-02 0.000000 2.553599 0.6552601 0.9504634 1.020401 1.032337 4.9822621E-02 4.9822621E-02 4.9822621E-02 1.8685775E-02 1.7991399E-02 4.9822621E-02 4.9822621E-02 0.000000 2.554527 0.6569875 0.9527139 1.024006 1.034714 5.0050344E-02 5.0050344E-02 5.0050344E-02 1.8783661E-02 1.8091626E-02 5.0050344E-02 5.0050344E-02 0.000000 2.555667 0.6617770 0.9549084 1.027555 1.034264 5.0277878E-02 5.0277878E-02 5.0277878E-02 1.8881187E-02 1.8153604E-02 5.0277878E-02 5.0277878E-02 0.000000 2.550869 0.6634231 0.9602809 1.029663 1.036537 5.0505068E-02 5.0505068E-02 5.0505068E-02 1.8943533E-02 1.8215245E-02 5.0505068E-02 5.0505068E-02 0.000000 2.545893 0.6665873 0.9623763 1.031718 1.035986 5.0727755E-02 5.0727755E-02 5.0727755E-02 1.9040331E-02 1.8314688E-02 5.0727755E-02 5.0727755E-02 0.000000 2.546504 0.6697179 0.9644178 1.028374 1.046790 5.0952986E-02 5.0952986E-02 5.0952986E-02 1.9101886E-02 1.8375745E-02 5.0952986E-02 5.0952986E-02 0.000000 2.546955 0.6712536 0.9664171 1.030477 1.049565 5.1175620E-02 5.1175620E-02 5.1175620E-02 1.9198023E-02 1.8474752E-02 5.1175620E-02 5.1175620E-02 0.000000 2.171996 0.3134094 0.3183615 0.2710857 0.2650087 1.5394880E-02 1.5394880E-02 1.5394880E-02 6.8448680E-03 8.3214110E-03 1.5394880E-02 1.5394880E-02 0.000000 1.036046 0.1458752 0.2344835 0.2953510 0.3095367 2.2720339E-02 2.2720339E-02 2.2720339E-02 9.3659591E-03 1.0057776E-02 2.2720339E-02 2.2720339E-02 0.000000 1.190869 0.2017103 0.3329884 0.4165150 0.4379894 2.6342701E-02 2.6342701E-02 2.6342701E-02 1.0568880E-02 1.0979764E-02 2.6342701E-02 2.6342701E-02 0.000000 1.401253 0.2504840 0.4109456 0.5052289 0.5297319 2.8924547E-02 2.8924547E-02 2.8924547E-02 1.1432181E-02 1.1667144E-02 2.8924547E-02 2.8924547E-02 0.000000 1.580077 0.2919491 0.4734924 0.5746002 0.6004641 3.0925086E-02 3.0925086E-02 3.0925086E-02 1.2089940E-02 1.2202012E-02 3.0925086E-02 3.0925086E-02 0.000000 1.726798 0.3261473 0.5254394 0.6290683 0.6558583 3.2615200E-02 3.2615200E-02 3.2615200E-02 1.2669715E-02 1.2655849E-02 3.2615200E-02 3.2615200E-02 0.000000 1.850213 0.3559622 0.5691721 0.6742790 0.7017584 3.4070354E-02 3.4070354E-02 3.4070354E-02 1.3143053E-02 1.3065685E-02 3.4070354E-02 3.4070354E-02 0.000000 1.951288 0.3818677 0.6066205 0.7121722 0.7401783 3.5295766E-02 3.5295766E-02 3.5295766E-02 1.3543928E-02 1.3434074E-02 3.5295766E-02 3.5295766E-02 0.000000 2.039669 0.4053535 0.6395528 0.7444434 0.7728646 3.6428470E-02 3.6428470E-02 3.6428470E-02 1.3935988E-02 1.3728224E-02 3.6428470E-02 3.6428470E-02 0.000000 2.116939 0.4253706 0.6668797 0.7726741 0.8001637 3.7405927E-02 3.7405927E-02 3.7405927E-02 1.4290025E-02 1.4051286E-02 3.7405927E-02 3.7405927E-02 0.000000 2.184166 0.4445887 0.6929935 0.7971276 0.8235919 3.8364463E-02 3.8364463E-02 3.8364463E-02 1.4606807E-02 1.4301225E-02 3.8364463E-02 3.8364463E-02 0.000000 2.242099 0.4618580 0.7152711 0.8179806 0.8446490 3.9174497E-02 3.9174497E-02 3.9174497E-02 1.4886804E-02 1.4582243E-02 3.9174497E-02 3.9174497E-02 0.000000 2.291292 0.4758862 0.7367144 0.8379567 0.8648095 3.9969213E-02 3.9969213E-02 3.9969213E-02 1.5162483E-02 1.4790244E-02 3.9969213E-02 3.9969213E-02 0.000000 2.337652 0.4907694 0.7545212 0.8545922 0.8815941 4.0684633E-02 4.0684633E-02 4.0684633E-02 1.5434592E-02 1.5030606E-02 4.0684633E-02 4.0684633E-02 0.000000 2.353795 0.5038737 0.7717062 0.8705851 0.8950645 4.1387778E-02 4.1387778E-02 4.1387778E-02 1.5671132E-02 1.5233256E-02 4.1387778E-02 4.1387778E-02 0.000000 2.380408 0.5166171 0.7868608 0.8833846 0.9092944 4.2012572E-02 4.2012572E-02 4.2012572E-02 1.5904797E-02 1.5433736E-02 4.2012572E-02 4.2012572E-02 0.000000 2.404629 0.5276378 0.8015401 0.8970188 0.9216895 4.2630609E-02 4.2630609E-02 4.2630609E-02 1.6103080E-02 1.5634261E-02 4.2630609E-02 4.2630609E-02 0.000000 2.432776 0.5369425 0.8142900 0.9088960 0.9323043 4.3170255E-02 4.3170255E-02 4.3170255E-02 1.6331969E-02 1.5831260E-02 4.3170255E-02 4.3170255E-02 0.000000 2.453913 0.5474079 0.8266617 0.9190516 0.9425204 4.3773092E-02 4.3773092E-02 4.3773092E-02 1.6525788E-02 1.5990617E-02 4.3773092E-02 4.3773092E-02 0.000000 2.468306 0.5562073 0.8371659 0.9302149 0.9523939 4.4299610E-02 4.4299610E-02 4.4299610E-02 1.6686514E-02 1.6148455E-02 4.4299610E-02 4.4299610E-02 0.000000 2.481371 0.5647908 0.8473614 0.9383709 0.9605972 4.4749636E-02 4.4749636E-02 4.4749636E-02 1.6876671E-02 1.6304938E-02 4.4749636E-02 4.4749636E-02 0.000000 2.499018 0.5731837 0.8572822 0.9462459 0.9685149 4.5265190E-02 4.5265190E-02 4.5265190E-02 1.7065311E-02 1.6460208E-02 4.5265190E-02 4.5265190E-02 0.000000 2.510085 0.5799308 0.8669561 0.9538679 0.9761779 4.5706600E-02 4.5706600E-02 4.5706600E-02 1.7218880E-02 1.6614387E-02 4.5706600E-02 4.5706600E-02 0.000000 2.520288 0.5879933 0.8748465 0.9612591 0.9808608 4.6141457E-02 4.6141457E-02 4.6141457E-02 1.7370997E-02 1.6767586E-02 4.6141457E-02 4.6141457E-02 0.000000 2.529543 0.5944250 0.8825227 0.9684419 0.9880758 4.6572126E-02 4.6572126E-02 4.6572126E-02 1.7521789E-02 1.6919896E-02 4.6572126E-02 4.6572126E-02 0.000000 2.538216 0.6007179 0.8900056 0.9754347 0.9951018 4.6998963E-02 4.6998963E-02 4.6998963E-02 1.7671371E-02 1.7034272E-02 4.6998963E-02 4.6998963E-02 0.000000 2.540539 0.6068847 0.8973120 0.9795057 0.9991848 4.7350150E-02 4.7350150E-02 4.7350150E-02 1.7819840E-02 1.7184930E-02 4.7350150E-02 4.7350150E-02 0.000000 2.547939 0.6129338 0.9044563 0.9861572 1.003097 4.7697727E-02 4.7697727E-02 4.7697727E-02 1.7968662E-02 1.7297581E-02 4.7697727E-02 4.7697727E-02 0.000000 2.549075 0.6188787 0.9098655 0.9899047 1.009624 4.8114426E-02 4.8114426E-02 4.8114426E-02 1.8113654E-02 1.7446861E-02 4.8114426E-02 4.8114426E-02 0.000000 2.555392 0.6232039 0.9151332 0.9962692 1.013238 4.8455708E-02 4.8455708E-02 4.8455708E-02 1.8225420E-02 1.7558038E-02 4.8455708E-02 4.8455708E-02 0.000000 2.555176 0.6289521 0.9218548 0.9997393 1.016717 4.8793670E-02 4.8793670E-02 4.8793670E-02 1.8370163E-02 1.7668517E-02 4.8793670E-02 4.8793670E-02 0.000000 2.560528 0.6346161 0.9268623 1.004468 1.020068 4.9131192E-02 4.9131192E-02 4.9131192E-02 1.8479615E-02 1.7778343E-02 4.9131192E-02 4.9131192E-02 0.000000 2.559736 0.6386685 0.9317534 1.009082 1.023301 4.9464159E-02 4.9464159E-02 4.9464159E-02 1.8588217E-02 1.7887561E-02 4.9464159E-02 4.9464159E-02 0.000000 2.558545 0.6426415 0.9365360 1.012206 1.026425 4.9721528E-02 4.9721528E-02 4.9721528E-02 1.8730704E-02 1.7996209E-02 4.9721528E-02 4.9721528E-02 0.000000 2.562716 0.6480759 0.9412209 1.015223 1.029450 5.0050780E-02 5.0050780E-02 5.0050780E-02 1.8837824E-02 1.8104324E-02 5.0050780E-02 5.0050780E-02 0.000000 2.560806 0.6519023 0.9441996 1.018144 1.029913 5.0377410E-02 5.0377410E-02 5.0377410E-02 1.8944237E-02 1.8211940E-02 5.0377410E-02 5.0377410E-02 0.000000 2.558568 0.6556647 0.9503046 1.020974 1.032952 5.0628211E-02 5.0628211E-02 5.0628211E-02 1.9049983E-02 1.8319089E-02 5.0628211E-02 5.0628211E-02 0.000000 2.556021 0.6593623 0.9531053 1.023722 1.033134 5.0951187E-02 5.0951187E-02 5.0951187E-02 1.9155100E-02 1.8425798E-02 5.0951187E-02 5.0951187E-02 0.000000 2.553183 0.6630007 0.9558226 1.029176 1.036010 5.1197898E-02 5.1197898E-02 5.1197898E-02 1.9259620E-02 1.8532094E-02 5.1197898E-02 5.1197898E-02 0.000000 2.555385 0.6665832 0.9616945 1.031766 1.036036 5.1516760E-02 5.1516760E-02 5.1516760E-02 1.9363578E-02 1.8638002E-02 5.1516760E-02 5.1516760E-02 0.000000 2.551983 0.6701130 0.9642617 1.028966 1.048076 5.1759880E-02 5.1759880E-02 5.1759880E-02 1.9467002E-02 1.8705094E-02 5.1759880E-02 5.1759880E-02 0.000000 2.554089 0.6735929 0.9667595 1.031591 1.050670 5.2001279E-02 5.2001279E-02 5.2001279E-02 1.9569920E-02 1.8810213E-02 5.2001279E-02 5.2001279E-02 0.000000 2.550207 0.6770256 0.9691917 1.034150 1.050408 5.2241046E-02 5.2241046E-02 5.2241046E-02 1.9674903E-02 1.8876426E-02 5.2241046E-02 5.2241046E-02 0.000000 2.546104 0.6788441 0.9748056 1.033875 1.052875 5.2479256E-02 5.2479256E-02 5.2479256E-02 1.9741552E-02 1.8980838E-02 5.2479256E-02 5.2479256E-02 0.000000 2.541789 0.6837587 0.9771145 1.036315 1.052492 5.2715976E-02 5.2715976E-02 5.2715976E-02 1.9843014E-02 1.9084960E-02 5.2715976E-02 5.2715976E-02 0.000000 2.537274 0.6854889 0.9793658 1.035927 1.054845 5.2951276E-02 5.2951276E-02 5.2951276E-02 1.9944064E-02 1.9150028E-02 5.2951276E-02 5.2951276E-02 0.000000 2.532568 0.6871762 0.9815665 1.047582 1.054352 5.3187106E-02 5.3187106E-02 5.3187106E-02 2.0044720E-02 1.9253546E-02 5.3187106E-02 5.3187106E-02 0.000000 2.527679 0.6919824 0.9837108 1.049806 1.056602 5.3419936E-02 5.3419936E-02 5.3419936E-02 2.0109478E-02 1.9317916E-02 5.3419936E-02 5.3419936E-02 0.000000 2.522616 0.6935931 0.9858050 1.049192 1.056010 5.3651527E-02 5.3651527E-02 5.3651527E-02 2.0209344E-02 1.9420888E-02 5.3651527E-02 5.3651527E-02 0.000000 2.517387 0.6951663 0.9878515 1.051321 1.058166 5.3883560E-02 5.3883560E-02 5.3883560E-02 2.0273251E-02 1.9484617E-02 5.3883560E-02 5.3883560E-02 0.000000 2.171720 0.3133281 0.3180822 0.2705147 0.2642847 1.5409350E-02 1.5409350E-02 1.5409350E-02 6.8757138E-03 8.3284657E-03 1.5409350E-02 1.5409350E-02 0.000000 1.033966 0.1483476 0.2377648 0.3005015 0.3155753 2.3189748E-02 2.3189748E-02 2.3189748E-02 9.5858658E-03 1.0205029E-02 2.3189748E-02 2.3189748E-02 0.000000 1.201912 0.2070357 0.3407822 0.4266581 0.4483788 2.7151352E-02 2.7151352E-02 2.7151352E-02 1.0883600E-02 1.1232423E-02 2.7151352E-02 2.7151352E-02 0.000000 1.421235 0.2589643 0.4226021 0.5192848 0.5440853 2.9877666E-02 2.9877666E-02 2.9877666E-02 1.1805098E-02 1.1974256E-02 2.9877666E-02 2.9877666E-02 0.000000 1.602692 0.3016172 0.4877866 0.5901434 0.6174173 3.2071546E-02 3.2071546E-02 3.2071546E-02 1.2545691E-02 1.2560309E-02 3.2071546E-02 3.2071546E-02 0.000000 1.753921 0.3389969 0.5421947 0.6468908 0.6751450 3.3883661E-02 3.3883661E-02 3.3883661E-02 1.3145776E-02 1.3063486E-02 3.3883661E-02 3.3883661E-02 0.000000 1.876687 0.3696940 0.5869475 0.6942357 0.7220004 3.5386808E-02 3.5386808E-02 3.5386808E-02 1.3666977E-02 1.3487716E-02 3.5386808E-02 3.5386808E-02 0.000000 1.984311 0.3975646 0.6252338 0.7329206 0.7599515 3.6721006E-02 3.6721006E-02 3.6721006E-02 1.4114029E-02 1.3868885E-02 3.6721006E-02 3.6721006E-02 0.000000 2.074045 0.4204537 0.6602649 0.7658504 0.7932661 3.7891559E-02 3.7891559E-02 3.7891559E-02 1.4520051E-02 1.4243212E-02 3.7891559E-02 3.7891559E-02 0.000000 2.149835 0.4423015 0.6882080 0.7933792 0.8223808 3.8971797E-02 3.8971797E-02 3.8971797E-02 1.4886589E-02 1.4542658E-02 3.8971797E-02 3.8971797E-02 0.000000 2.215355 0.4620342 0.7148785 0.8183046 0.8449776 3.9962865E-02 3.9962865E-02 3.9962865E-02 1.5246837E-02 1.4837206E-02 3.9962865E-02 3.9962865E-02 0.000000 2.274110 0.4797498 0.7376329 0.8408652 0.8664342 4.0869042E-02 4.0869042E-02 4.0869042E-02 1.5537138E-02 1.5127878E-02 4.0869042E-02 4.0869042E-02 0.000000 2.324011 0.4955199 0.7580376 0.8599176 0.8856438 4.1689672E-02 4.1689672E-02 4.1689672E-02 1.5855256E-02 1.5379740E-02 4.1689672E-02 4.1689672E-02 0.000000 2.343086 0.5093938 0.7776961 0.8768788 0.9014069 4.2427640E-02 4.2427640E-02 4.2427640E-02 1.6103912E-02 1.5630534E-02 4.2427640E-02 4.2427640E-02 0.000000 2.377934 0.5228167 0.7937195 0.8931727 0.9178234 4.3156147E-02 4.3156147E-02 4.3156147E-02 1.6381867E-02 1.5840814E-02 4.3156147E-02 4.3156147E-02 0.000000 2.404577 0.5344363 0.8091719 0.9062330 0.9309744 4.3802675E-02 4.3802675E-02 4.3802675E-02 1.6625782E-02 1.6084913E-02 4.3802675E-02 4.3802675E-02 0.000000 2.434875 0.5457019 0.8226031 0.9187781 0.9408947 4.4439755E-02 4.4439755E-02 4.4439755E-02 1.6831439E-02 1.6290756E-02 4.4439755E-02 4.4439755E-02 0.000000 2.452482 0.5566671 0.8355889 0.9308813 0.9530674 4.5068584E-02 4.5068584E-02 4.5068584E-02 1.7067941E-02 1.6458092E-02 4.5068584E-02 4.5068584E-02 0.000000 2.474055 0.5673671 0.8481894 0.9398810 0.9621179 4.5691900E-02 4.5691900E-02 4.5691900E-02 1.7268578E-02 1.6660292E-02 4.5691900E-02 4.5691900E-02 0.000000 2.488681 0.5763643 0.8604472 0.9512348 0.9707981 4.6163615E-02 4.6163615E-02 4.6163615E-02 1.7467065E-02 1.6824121E-02 4.6163615E-02 4.6163615E-02 0.000000 2.502107 0.5851398 0.8692794 0.9595584 0.9791571 4.6700321E-02 4.6700321E-02 4.6700321E-02 1.7663635E-02 1.7023504E-02 4.6700321E-02 4.6700321E-02 0.000000 2.514459 0.5922247 0.8793814 0.9675900 0.9872230 4.7231395E-02 4.7231395E-02 4.7231395E-02 1.7858488E-02 1.7184546E-02 4.7231395E-02 4.7231395E-02 0.000000 2.525685 0.6006116 0.8892288 0.9753600 0.9936493 4.7685087E-02 4.7685087E-02 4.7685087E-02 1.8018411E-02 1.7344343E-02 4.7685087E-02 4.7685087E-02 0.000000 2.536160 0.6088389 0.8972687 0.9801455 0.9998284 4.8133716E-02 4.8133716E-02 4.8133716E-02 1.8174220E-02 1.7503014E-02 4.8133716E-02 4.8133716E-02 0.000000 2.540142 0.6154093 0.9050900 0.9874569 1.004401 4.8579350E-02 4.8579350E-02 4.8579350E-02 1.8365800E-02 1.7660664E-02 4.8579350E-02 4.8579350E-02 0.000000 2.543377 0.6218382 0.9127122 0.9945745 1.011541 4.9018972E-02 4.9018972E-02 4.9018972E-02 1.8485971E-02 1.7779656E-02 4.9018972E-02 4.9018972E-02 0.000000 2.551631 0.6281325 0.9185643 0.9987454 1.015723 4.9454618E-02 4.9454618E-02 4.9454618E-02 1.8673997E-02 1.7935416E-02 4.9454618E-02 4.9454618E-02 0.000000 2.553557 0.6343057 0.9242376 1.002741 1.019727 4.9815107E-02 4.9815107E-02 4.9815107E-02 1.8791584E-02 1.8090408E-02 4.9815107E-02 4.9815107E-02 0.000000 2.560265 0.6388339 0.9313480 1.009348 1.023569 5.0168522E-02 5.0168522E-02 5.0168522E-02 1.8942760E-02 1.8206634E-02 5.0168522E-02 5.0168522E-02 0.000000 2.561036 0.6432517 0.9367147 1.013039 1.027265 5.0595921E-02 5.0595921E-02 5.0595921E-02 1.9092958E-02 1.8322011E-02 5.0595921E-02 5.0595921E-02 0.000000 2.561307 0.6491043 0.9419462 1.016591 1.028245 5.0945129E-02 5.0945129E-02 5.0945129E-02 1.9207252E-02 1.8474847E-02 5.0945129E-02 5.0945129E-02 0.000000 2.561111 0.6548721 0.9470496 1.020012 1.031916 5.1291093E-02 5.1291093E-02 5.1291093E-02 1.9355614E-02 1.8588787E-02 5.1291093E-02 5.1291093E-02 0.000000 2.560482 0.6590056 0.9520302 1.023312 1.032695 5.1560171E-02 5.1560171E-02 5.1560171E-02 1.9468037E-02 1.8702039E-02 5.1560171E-02 5.1560171E-02 0.000000 2.559448 0.6630551 0.9552866 1.026504 1.036136 5.1900595E-02 5.1900595E-02 5.1900595E-02 1.9617360E-02 1.8814648E-02 5.1900595E-02 5.1900595E-02 0.000000 2.558034 0.6685849 0.9616673 1.029587 1.036699 5.2238576E-02 5.2238576E-02 5.2238576E-02 1.9728115E-02 1.8926652E-02 5.2238576E-02 5.2238576E-02 0.000000 2.555850 0.6709234 0.9647155 1.030125 1.049221 5.2499741E-02 5.2499741E-02 5.2499741E-02 1.9838085E-02 1.9038089E-02 5.2499741E-02 5.2499741E-02 0.000000 2.553711 0.6763175 0.9676723 1.033226 1.049496 5.2833110E-02 5.2833110E-02 5.2833110E-02 1.9947318E-02 1.9148994E-02 5.2833110E-02 5.2833110E-02 0.000000 2.551256 0.6785152 0.9705352 1.033469 1.052475 5.3166308E-02 5.3166308E-02 5.3166308E-02 2.0055853E-02 1.9259401E-02 5.3166308E-02 5.3166308E-02 0.000000 2.548505 0.6837896 0.9765619 1.036403 1.052580 5.3421009E-02 5.3421009E-02 5.3421009E-02 2.0163726E-02 1.9369334E-02 5.3421009E-02 5.3421009E-02 0.000000 2.545472 0.6858624 0.9792621 1.036487 1.055400 5.3673647E-02 5.3673647E-02 5.3673647E-02 2.0270975E-02 1.9478824E-02 5.3673647E-02 5.3673647E-02 0.000000 2.542173 0.6894557 0.9818903 1.048569 1.055352 5.3925909E-02 5.3925909E-02 5.3925909E-02 2.0377632E-02 1.9587893E-02 5.3925909E-02 5.3925909E-02 0.000000 2.538623 0.6929940 0.9844421 1.051215 1.055235 5.4174393E-02 5.4174393E-02 5.4174393E-02 2.0483727E-02 1.9657416E-02 5.4174393E-02 5.4174393E-02 0.000000 2.534835 0.6949011 0.9869255 1.051004 1.057846 5.4496374E-02 5.4496374E-02 5.4496374E-02 2.0589286E-02 1.9767931E-02 5.4496374E-02 5.4496374E-02 0.000000 2.530820 0.6999268 0.9893439 1.053521 1.057599 5.4741483E-02 5.4741483E-02 5.4741483E-02 2.0694338E-02 1.9875845E-02 5.4741483E-02 5.4741483E-02 0.000000 2.526590 0.7017386 0.9917035 1.053185 1.057293 5.4984972E-02 5.4984972E-02 5.4984972E-02 2.0798905E-02 1.9944057E-02 5.4984972E-02 5.4984972E-02 0.000000 2.516389 0.7035042 0.9940027 1.055586 1.056931 5.5226915E-02 5.5226915E-02 5.5226915E-02 2.0867063E-02 2.0051248E-02 5.5226915E-02 5.5226915E-02 0.000000 2.517092 0.7084097 0.9962455 1.055139 1.068777 5.5467378E-02 5.5467378E-02 5.5467378E-02 2.0970674E-02 2.0118646E-02 5.5467378E-02 5.5467378E-02 0.000000 2.512251 0.7100962 0.9984337 1.057434 1.071045 5.5630665E-02 5.5630665E-02 5.5630665E-02 2.1037823E-02 2.0225184E-02 5.5630665E-02 5.5630665E-02 0.000000 2.507233 0.7117392 1.000574 1.056885 1.070454 5.5868268E-02 5.5868268E-02 5.5868268E-02 2.1140561E-02 2.0331452E-02 5.5868268E-02 5.5868268E-02 0.000000 2.502045 0.7133441 1.002663 1.056288 1.069814 5.6106649E-02 5.6106649E-02 5.6106649E-02 2.1242915E-02 2.0397779E-02 5.6106649E-02 5.6106649E-02 0.000000 2.172201 0.3130313 0.3175758 0.2698874 0.2636918 1.5467435E-02 1.5467435E-02 1.5467435E-02 6.8819853E-03 8.3341636E-03 1.5467435E-02 1.5467435E-02 0.000000 1.033383 0.1503350 0.2411317 0.3049553 0.3201451 2.3643268E-02 2.3643268E-02 2.3643268E-02 9.7733093E-03 1.0347880E-02 2.3643268E-02 2.3643268E-02 0.000000 1.212990 0.2117085 0.3476907 0.4348949 0.4577813 2.7821407E-02 2.7821407E-02 2.7821407E-02 1.1191441E-02 1.1448201E-02 2.7821407E-02 2.7821407E-02 0.000000 1.434733 0.2657166 0.4320988 0.5311512 0.5561945 3.0743549E-02 3.0743549E-02 3.0743549E-02 1.2169873E-02 1.2242807E-02 3.0743549E-02 3.0743549E-02 0.000000 1.620422 0.3103982 0.4996907 0.6043832 0.6307706 3.3062737E-02 3.3062737E-02 3.3062737E-02 1.2934292E-02 1.2878943E-02 3.3062737E-02 3.3062737E-02 0.000000 1.773357 0.3486388 0.5551152 0.6621368 0.6906370 3.4925755E-02 3.4925755E-02 3.4925755E-02 1.3581420E-02 1.3396908E-02 3.4925755E-02 3.4925755E-02 0.000000 1.900011 0.3812210 0.6020015 0.7102845 0.7382703 3.6538165E-02 3.6538165E-02 3.6538165E-02 1.4118331E-02 1.3868048E-02 3.6538165E-02 3.6538165E-02 0.000000 2.008896 0.4097248 0.6423674 0.7496197 0.7781114 3.7976712E-02 3.7976712E-02 3.7976712E-02 1.4610625E-02 1.4295501E-02 3.7976712E-02 3.7976712E-02 0.000000 2.099693 0.4344146 0.6766425 0.7830965 0.8107035 3.9183054E-02 3.9183054E-02 3.9183054E-02 1.5061088E-02 1.4680957E-02 3.9183054E-02 3.9183054E-02 0.000000 2.173724 0.4567601 0.7065133 0.8123641 0.8389831 4.0294260E-02 4.0294260E-02 4.0294260E-02 1.5438959E-02 1.5025347E-02 4.0294260E-02 4.0294260E-02 0.000000 2.242694 0.4755748 0.7322054 0.8364133 0.8632581 4.1380834E-02 4.1380834E-02 4.1380834E-02 1.5809799E-02 1.5329183E-02 4.1380834E-02 4.1380834E-02 0.000000 2.302146 0.4936460 0.7553459 0.8593376 0.8837386 4.2310815E-02 4.2310815E-02 4.2310815E-02 1.6142132E-02 1.5630554E-02 4.2310815E-02 4.2310815E-02 0.000000 2.329877 0.5097274 0.7775887 0.8773838 0.9019166 4.3156985E-02 4.3156985E-02 4.3156985E-02 1.6436361E-02 1.5890323E-02 4.3156985E-02 4.3156985E-02 0.000000 2.367254 0.5252849 0.7960759 0.8946137 0.9192734 4.3987393E-02 4.3987393E-02 4.3987393E-02 1.6728243E-02 1.6146746E-02 4.3987393E-02 4.3987393E-02 0.000000 2.397142 0.5389789 0.8138937 0.9098269 0.9332433 4.4734810E-02 4.4734810E-02 4.4734810E-02 1.6980745E-02 1.6400369E-02 4.4734810E-02 4.4734810E-02 0.000000 2.429805 0.5508329 0.8280780 0.9244432 0.9465954 4.5471087E-02 4.5471087E-02 4.5471087E-02 1.7263385E-02 1.6614843E-02 4.5471087E-02 4.5471087E-02 0.000000 2.454973 0.5623211 0.8417361 0.9358436 0.9580577 4.6127714E-02 4.6127714E-02 4.6127714E-02 1.7509369E-02 1.6863890E-02 4.6127714E-02 4.6127714E-02 0.000000 2.472973 0.5734938 0.8549362 0.9467734 0.9690483 4.6701603E-02 4.6701603E-02 4.6701603E-02 1.7718600E-02 1.7036935E-02 4.6701603E-02 4.6701603E-02 0.000000 2.489285 0.5843937 0.8677360 0.9572938 0.9782540 4.7339007E-02 4.7339007E-02 4.7339007E-02 1.7960811E-02 1.7245123E-02 4.7339007E-02 4.7339007E-02 0.000000 2.504236 0.5920723 0.8770553 0.9674503 0.9870844 4.7896948E-02 4.7896948E-02 4.7896948E-02 1.8163033E-02 1.7451713E-02 4.7896948E-02 4.7896948E-02 0.000000 2.517971 0.6024964 0.8891767 0.9759120 0.9942042 4.8448037E-02 4.8448037E-02 4.8448037E-02 1.8366292E-02 1.7619289E-02 4.8448037E-02 4.8448037E-02 0.000000 2.530452 0.6097184 0.8978630 0.9827012 1.001015 4.8921630E-02 4.8921630E-02 4.8921630E-02 1.8532041E-02 1.7823068E-02 4.8921630E-02 4.8921630E-02 0.000000 2.536395 0.6167422 0.9062761 0.9892158 1.008937 4.9460478E-02 4.9460478E-02 4.9460478E-02 1.8730536E-02 1.7987851E-02 4.9460478E-02 4.9460478E-02 0.000000 2.541426 0.6235837 0.9144426 0.9968644 1.013837 4.9921725E-02 4.9921725E-02 4.9921725E-02 1.8892683E-02 1.8151375E-02 4.9921725E-02 4.9921725E-02 0.000000 2.551330 0.6317875 0.9223880 1.001523 1.018508 5.0377987E-02 5.0377987E-02 5.0377987E-02 1.9088117E-02 1.8313756E-02 5.0377987E-02 5.0377987E-02 0.000000 2.554781 0.6383223 0.9301257 1.008741 1.022963 5.0829850E-02 5.0829850E-02 5.0829850E-02 1.9212259E-02 1.8475097E-02 5.0829850E-02 5.0829850E-02 0.000000 2.557192 0.6431845 0.9344746 1.013000 1.027228 5.1202871E-02 5.1202871E-02 5.1202871E-02 1.9405041E-02 1.8597120E-02 5.1202871E-02 5.1202871E-02 0.000000 2.559266 0.6494505 0.9418494 1.017080 1.028767 5.1645733E-02 5.1645733E-02 5.1645733E-02 1.9526370E-02 1.8756526E-02 5.1645733E-02 5.1645733E-02 0.000000 2.560747 0.6556049 0.9490663 1.020993 1.032970 5.2010693E-02 5.2010693E-02 5.2010693E-02 1.9684179E-02 1.8876558E-02 5.2010693E-02 5.2010693E-02 0.000000 2.561682 0.6616521 0.9529119 1.024755 1.034248 5.2371968E-02 5.2371968E-02 5.2371968E-02 1.9838331E-02 1.9034328E-02 5.2371968E-02 5.2371968E-02 0.000000 2.562108 0.6660436 0.9566106 1.028373 1.035386 5.2729804E-02 5.2729804E-02 5.2729804E-02 1.9956049E-02 1.9152645E-02 5.2729804E-02 5.2729804E-02 0.000000 2.556320 0.6703357 0.9634094 1.029364 1.048470 5.3161062E-02 5.3161062E-02 5.3161062E-02 2.0108186E-02 1.9309022E-02 5.3161062E-02 5.3161062E-02 0.000000 2.555829 0.6761009 0.9668525 1.032972 1.049247 5.3438149E-02 5.3438149E-02 5.3438149E-02 2.0259457E-02 1.9425852E-02 5.3438149E-02 5.3438149E-02 0.000000 2.554497 0.6786489 0.9701726 1.033694 1.052699 5.3787239E-02 5.3787239E-02 5.3787239E-02 2.0374248E-02 1.9541970E-02 5.3787239E-02 5.3787239E-02 0.000000 2.553171 0.6842543 0.9766321 1.037084 1.053253 5.4134991E-02 5.4134991E-02 5.4134991E-02 2.0488137E-02 1.9657416E-02 5.4134991E-02 5.4134991E-02 0.000000 2.551483 0.6866392 0.9797418 1.041512 1.053706 5.4403223E-02 5.4403223E-02 5.4403223E-02 2.0601178E-02 1.9774528E-02 5.4403223E-02 5.4403223E-02 0.000000 2.543697 0.6921073 0.9827576 1.050057 1.056858 5.4744232E-02 5.4744232E-02 5.4744232E-02 2.0749282E-02 1.9888803E-02 5.4744232E-02 5.4744232E-02 0.000000 2.541345 0.6943480 0.9856771 1.050293 1.057127 5.5007521E-02 5.5007521E-02 5.5007521E-02 2.0860825E-02 2.0002523E-02 5.5007521E-02 5.5007521E-02 0.000000 2.538691 0.6996894 0.9885095 1.053237 1.057313 5.5344094E-02 5.5344094E-02 5.5344094E-02 2.0971648E-02 2.0115718E-02 5.5344094E-02 5.5344094E-02 0.000000 2.529989 0.7018022 0.9912626 1.053309 1.057419 5.5602942E-02 5.5602942E-02 5.5602942E-02 2.1081794E-02 2.0228418E-02 5.5602942E-02 5.5602942E-02 0.000000 2.526777 0.7038540 0.9939370 1.053305 1.057451 5.5859689E-02 5.5859689E-02 5.5859689E-02 2.1191293E-02 2.0340649E-02 5.5859689E-02 5.5859689E-02 0.000000 2.517545 0.7090365 0.9965366 1.056024 1.069654 5.6116529E-02 5.6116529E-02 5.6116529E-02 2.1300180E-02 2.0452440E-02 5.6116529E-02 5.6116529E-02 0.000000 2.519180 0.7109798 0.9990680 1.055882 1.069464 5.6369767E-02 5.6369767E-02 5.6369767E-02 2.1372259E-02 2.0563811E-02 5.6369767E-02 5.6369767E-02 0.000000 2.509443 0.7128712 1.001533 1.055675 1.069210 5.6621190E-02 5.6621190E-02 5.6621190E-02 2.1479951E-02 2.0634936E-02 5.6621190E-02 5.6621190E-02 0.000000 2.505256 0.7179106 1.003931 1.058202 1.071704 5.6870881E-02 5.6870881E-02 5.6870881E-02 2.1587117E-02 2.0745462E-02 5.6870881E-02 5.6870881E-02 0.000000 2.500860 0.7197118 1.006275 1.057877 1.071329 5.7120752E-02 5.7120752E-02 5.7120752E-02 2.1695493E-02 2.0855632E-02 5.7120752E-02 5.7120752E-02 0.000000 2.496263 0.7214676 1.008558 1.058895 1.070899 5.7367034E-02 5.7367034E-02 5.7367034E-02 2.1801850E-02 2.0925416E-02 5.7367034E-02 5.7367034E-02 0.000000 2.491479 0.7231756 1.010789 1.069314 1.070415 5.7611801E-02 5.7611801E-02 5.7611801E-02 2.1872796E-02 2.1034857E-02 5.7611801E-02 5.7611801E-02 0.000000 2.480741 0.7264560 1.012965 1.068757 1.069881 5.7855114E-02 5.7855114E-02 5.7855114E-02 2.1978155E-02 2.1143993E-02 5.7855114E-02 5.7855114E-02 0.000000 2.475603 0.7296972 1.015092 1.070962 1.072108 5.8097042E-02 5.8097042E-02 5.8097042E-02 2.2046478E-02 2.1212600E-02 5.8097042E-02 5.8097042E-02 0.000000 2.172591 0.3128070 0.3173647 0.2694780 0.2633094 1.5477172E-02 1.5477172E-02 1.5477172E-02 6.9105965E-03 8.3388938E-03 1.5477172E-02 1.5477172E-02 0.000000 1.034783 0.1513703 0.2440523 0.3089162 0.3242104 2.4028812E-02 2.4028812E-02 2.4028812E-02 9.9563813E-03 1.0472147E-02 2.4028812E-02 2.4028812E-02 0.000000 1.218992 0.2159139 0.3539702 0.4424315 0.4645297 2.8413162E-02 2.8413162E-02 2.8413162E-02 1.1436384E-02 1.1627750E-02 2.8413162E-02 2.8413162E-02 0.000000 1.446623 0.2719067 0.4408279 0.5400702 0.5663731 3.1527102E-02 3.1527102E-02 3.1527102E-02 1.2468827E-02 1.2473551E-02 3.1527102E-02 3.1527102E-02 0.000000 1.636298 0.3185473 0.5107294 0.6154253 0.6431546 3.3903852E-02 3.3903852E-02 3.3903852E-02 1.3283267E-02 1.3158723E-02 3.3903852E-02 3.3903852E-02 0.000000 1.790716 0.3575685 0.5670694 0.6751724 0.7038767 3.5876237E-02 3.5876237E-02 3.5876237E-02 1.3978201E-02 1.3724239E-02 3.5876237E-02 3.5876237E-02 0.000000 1.921102 0.3907815 0.6146931 0.7227907 0.7509392 3.7594724E-02 3.7594724E-02 3.7594724E-02 1.4561124E-02 1.4207671E-02 3.7594724E-02 3.7594724E-02 0.000000 2.025933 0.4198142 0.6556703 0.7639045 0.7913017 3.9070219E-02 3.9070219E-02 3.9070219E-02 1.5066448E-02 1.4681094E-02 3.9070219E-02 3.9070219E-02 0.000000 2.117550 0.4449483 0.6904590 0.7978500 0.8243298 4.0375400E-02 4.0375400E-02 4.0375400E-02 1.5528521E-02 1.5076723E-02 4.0375400E-02 4.0375400E-02 0.000000 2.197627 0.4676820 0.7207658 0.8262334 0.8529821 4.1511912E-02 4.1511912E-02 4.1511912E-02 1.5916442E-02 1.5430259E-02 4.1511912E-02 4.1511912E-02 0.000000 2.264582 0.4881864 0.7482992 0.8506137 0.8775844 4.2625889E-02 4.2625889E-02 4.2625889E-02 1.6296647E-02 1.5780261E-02 4.2625889E-02 4.2625889E-02 0.000000 2.321869 0.5065800 0.7717924 0.8725217 0.8996817 4.3579727E-02 4.3579727E-02 4.3579727E-02 1.6672861E-02 1.6087754E-02 4.3579727E-02 4.3579727E-02 0.000000 2.347738 0.5229441 0.7913476 0.8934664 0.9167807 4.4515897E-02 4.4515897E-02 4.4515897E-02 1.6975049E-02 1.6354760E-02 4.4515897E-02 4.4515897E-02 0.000000 2.383404 0.5387653 0.8100839 0.9096080 0.9330254 4.5295078E-02 4.5295078E-02 4.5295078E-02 1.7272312E-02 1.6654864E-02 4.5295078E-02 4.5295078E-02 0.000000 2.418726 0.5512457 0.8281339 0.9250330 0.9471890 4.6133287E-02 4.6133287E-02 4.6133287E-02 1.7565420E-02 1.6878298E-02 4.6133287E-02 4.6133287E-02 0.000000 2.446234 0.5647441 0.8440598 0.9384958 0.9607282 4.6814509E-02 4.6814509E-02 4.6814509E-02 1.7820872E-02 1.7135890E-02 4.6814509E-02 4.6814509E-02 0.000000 2.466310 0.5764213 0.8579133 0.9500611 0.9709869 4.7556780E-02 4.7556780E-02 4.7556780E-02 1.8073229E-02 1.7353849E-02 4.7556780E-02 4.7556780E-02 0.000000 2.484472 0.5862921 0.8697398 0.9611504 0.9807571 4.8144884E-02 4.8144884E-02 4.8144884E-02 1.8322440E-02 1.7607085E-02 4.8144884E-02 4.8144884E-02 0.000000 2.501080 0.5973466 0.8827076 0.9704489 0.9900946 4.8796136E-02 4.8796136E-02 4.8796136E-02 1.8534400E-02 1.7783174E-02 4.8796136E-02 4.8796136E-02 0.000000 2.516312 0.6066516 0.8921643 0.9793689 0.9990525 4.9368843E-02 4.9368843E-02 4.9368843E-02 1.8778503E-02 1.7995061E-02 4.9368843E-02 4.9368843E-02 0.000000 2.530151 0.6157159 0.9044377 0.9879490 1.004897 4.9932789E-02 4.9932789E-02 4.9932789E-02 1.8985726E-02 1.8205382E-02 4.9932789E-02 4.9932789E-02 0.000000 2.537329 0.6230520 0.9132501 0.9962277 1.013201 5.0491814E-02 5.0491814E-02 5.0491814E-02 1.9155916E-02 1.8376114E-02 5.0491814E-02 5.0491814E-02 0.000000 2.543489 0.6317062 0.9217865 1.001463 1.018449 5.0968327E-02 5.0968327E-02 5.0968327E-02 1.9359088E-02 1.8545324E-02 5.0968327E-02 5.0968327E-02 0.000000 2.548727 0.6386555 0.9300672 1.009211 1.023435 5.1513728E-02 5.1513728E-02 5.1513728E-02 1.9525385E-02 1.8751610E-02 5.1513728E-02 5.1513728E-02 0.000000 2.553126 0.6454375 0.9349163 1.013956 1.028186 5.1979907E-02 5.1979907E-02 5.1979907E-02 1.9727759E-02 1.8918311E-02 5.1979907E-02 5.1979907E-02 0.000000 2.556397 0.6520631 0.9427528 1.018488 1.030279 5.2366689E-02 5.2366689E-02 5.2366689E-02 1.9890768E-02 1.9083863E-02 5.2366689E-02 5.2366689E-02 0.000000 2.559279 0.6570022 0.9504013 1.022819 1.032161 5.2823186E-02 5.2823186E-02 5.2823186E-02 2.0052303E-02 1.9209541E-02 5.2823186E-02 5.2823186E-02 0.000000 2.561512 0.6633559 0.9546453 1.026971 1.036638 5.3202577E-02 5.3202577E-02 5.3202577E-02 2.0212473E-02 1.9372966E-02 5.3202577E-02 5.3202577E-02 0.000000 2.557410 0.6695917 0.9619492 1.028385 1.047809 5.3651176E-02 5.3651176E-02 5.3651176E-02 2.0371385E-02 1.9535512E-02 5.3651176E-02 5.3651176E-02 0.000000 2.558485 0.6757187 0.9658641 1.032487 1.048769 5.4022435E-02 5.4022435E-02 5.4022435E-02 2.0493386E-02 1.9658094E-02 5.4022435E-02 5.4022435E-02 0.000000 2.559045 0.6786063 0.9696317 1.033673 1.052680 5.4388087E-02 5.4388087E-02 5.4388087E-02 2.0649957E-02 1.9821282E-02 5.4388087E-02 5.4388087E-02 0.000000 2.558703 0.6845303 0.9765077 1.034727 1.053666 5.4750308E-02 5.4750308E-02 5.4750308E-02 2.0805519E-02 1.9942174E-02 5.4750308E-02 5.4750308E-02 0.000000 2.552545 0.6872143 0.9800093 1.047752 1.054527 5.5109322E-02 5.5109322E-02 5.5109322E-02 2.0924160E-02 2.0101687E-02 5.5109322E-02 5.5109322E-02 0.000000 2.545963 0.6929653 0.9833944 1.051250 1.055272 5.5389654E-02 5.5389654E-02 5.5389654E-02 2.1041777E-02 2.0221056E-02 5.5389654E-02 5.5389654E-02 0.000000 2.544741 0.6954712 0.9866622 1.051849 1.055908 5.5742688E-02 5.5742688E-02 5.5742688E-02 2.1194536E-02 2.0339696E-02 5.5742688E-02 5.5742688E-02 0.000000 2.543152 0.7010660 0.9898239 1.052344 1.056442 5.6095123E-02 5.6095123E-02 5.6095123E-02 2.1310341E-02 2.0457648E-02 5.6095123E-02 5.6095123E-02 0.000000 2.535456 0.7034158 0.9928892 1.055536 1.056881 5.6367368E-02 5.6367368E-02 5.6367368E-02 2.1461535E-02 2.0574955E-02 5.6367368E-02 5.6367368E-02 0.000000 2.527431 0.7088801 0.9958601 1.055844 1.069477 5.6713287E-02 5.6713287E-02 5.6713287E-02 2.1575727E-02 2.0691652E-02 5.6713287E-02 5.6713287E-02 0.000000 2.524859 0.7110914 0.9987386 1.056066 1.069648 5.6980569E-02 5.6980569E-02 5.6980569E-02 2.1690849E-02 2.0807775E-02 5.6980569E-02 5.6980569E-02 0.000000 2.516233 0.7132371 1.001540 1.056208 1.069738 5.7323705E-02 5.7323705E-02 5.7323705E-02 2.1803726E-02 2.0923356E-02 5.7323705E-02 5.7323705E-02 0.000000 2.518427 0.7185196 1.004258 1.059069 1.069750 5.7586331E-02 5.7586331E-02 5.7586331E-02 2.1917475E-02 2.1038424E-02 5.7586331E-02 5.7586331E-02 0.000000 2.509232 0.7205499 1.006901 1.059063 1.069689 5.7846840E-02 5.7846840E-02 5.7846840E-02 2.2028947E-02 2.1153005E-02 5.7846840E-02 5.7846840E-02 0.000000 2.499786 0.7225250 1.009475 1.068466 1.072370 5.8105327E-02 5.8105327E-02 5.8105327E-02 2.2103146E-02 2.1267127E-02 5.8105327E-02 5.8105327E-02 0.000000 2.495879 0.7260544 1.011979 1.071055 1.069364 5.8361892E-02 5.8361892E-02 5.8361892E-02 2.2213342E-02 2.1380814E-02 5.8361892E-02 5.8361892E-02 0.000000 2.491750 0.7295348 1.014419 1.070772 1.071917 5.8616616E-02 5.8616616E-02 5.8616616E-02 2.2322970E-02 2.1453682E-02 5.8616616E-02 5.8616616E-02 0.000000 2.481635 0.7313609 1.016801 1.070429 1.068791 5.8869582E-02 5.8869582E-02 5.8869582E-02 2.2432059E-02 2.1566490E-02 5.8869582E-02 5.8869582E-02 0.000000 2.471316 0.7331415 1.015825 1.070029 1.071227 5.9120875E-02 5.9120875E-02 5.9120875E-02 2.2503782E-02 2.1639248E-02 5.9120875E-02 5.9120875E-02 0.000000 2.466581 0.7348795 1.018089 1.069575 1.067992 5.9371851E-02 5.9371851E-02 5.9371851E-02 2.2611810E-02 2.1750148E-02 5.9371851E-02 5.9371851E-02 0.000000 2.461664 0.7381943 1.020301 1.071879 1.068766 5.9540827E-02 5.9540827E-02 5.9540827E-02 2.2719368E-02 2.1862485E-02 5.9540827E-02 5.9540827E-02 0.000000 2.450791 0.7414693 1.022463 1.071324 1.079365 5.9789300E-02 5.9789300E-02 5.9789300E-02 2.2789482E-02 2.1933123E-02 5.9789300E-02 5.9789300E-02 0.000000 2.172916 0.3129181 0.3172649 0.2689404 0.2627953 1.5485428E-02 1.5485428E-02 1.5485428E-02 6.9151605E-03 8.3429059E-03 1.5485428E-02 1.5485428E-02 0.000000 1.032404 0.1527517 0.2458921 0.3117545 0.3279037 2.4348158E-02 2.4348158E-02 2.4348158E-02 1.0108561E-02 1.0563034E-02 2.4348158E-02 2.4348158E-02 0.000000 1.225929 0.2189197 0.3587956 0.4484932 0.4717173 2.8930442E-02 2.8930442E-02 2.8930442E-02 1.1676529E-02 1.1803522E-02 2.8930442E-02 2.8930442E-02 0.000000 1.457332 0.2766791 0.4478550 0.5494100 0.5748145 3.2169856E-02 3.2169856E-02 3.2169856E-02 1.2763891E-02 1.2699965E-02 3.2169856E-02 3.2169856E-02 0.000000 1.648493 0.3240300 0.5186648 0.6257455 0.6524894 3.4659259E-02 3.4659259E-02 3.4659259E-02 1.3626126E-02 1.3400091E-02 3.4659259E-02 3.4659259E-02 0.000000 1.804111 0.3647895 0.5770065 0.6862371 0.7138929 3.6739919E-02 3.6739919E-02 3.6739919E-02 1.4337040E-02 1.4012477E-02 3.6739919E-02 3.6739919E-02 0.000000 1.935502 0.3997602 0.6252524 0.7356687 0.7639884 3.8494326E-02 3.8494326E-02 3.8494326E-02 1.4933342E-02 1.4542032E-02 3.8494326E-02 3.8494326E-02 0.000000 2.046337 0.4292776 0.6667479 0.7760448 0.8035786 4.0069897E-02 4.0069897E-02 4.0069897E-02 1.5482612E-02 1.5026175E-02 4.0069897E-02 4.0069897E-02 0.000000 2.138779 0.4548207 0.7019666 0.8091162 0.8369988 4.1402221E-02 4.1402221E-02 4.1402221E-02 1.5955297E-02 1.5431116E-02 4.1402221E-02 4.1402221E-02 0.000000 2.214199 0.4779076 0.7326471 0.8391244 0.8659955 4.2634696E-02 4.2634696E-02 4.2634696E-02 1.6385498E-02 1.5794924E-02 4.2634696E-02 4.2634696E-02 0.000000 2.284414 0.4987230 0.7605106 0.8651151 0.8895636 4.3771841E-02 4.3771841E-02 4.3771841E-02 1.6776716E-02 1.6150866E-02 4.3771841E-02 4.3771841E-02 0.000000 2.316507 0.5173900 0.7842879 0.8859769 0.9105791 4.4746447E-02 4.4746447E-02 4.4746447E-02 1.7125599E-02 1.6502116E-02 4.4746447E-02 4.4746447E-02 0.000000 2.363341 0.5339952 0.8056007 0.9058367 0.9278831 4.5703828E-02 4.5703828E-02 4.5703828E-02 1.7468596E-02 1.6812682E-02 4.5703828E-02 4.5703828E-02 0.000000 2.396683 0.5500389 0.8245760 0.9208316 0.9456744 4.6571422E-02 4.6571422E-02 4.6571422E-02 1.7772628E-02 1.7082546E-02 4.6571422E-02 4.6571422E-02 0.000000 2.432382 0.5627023 0.8413118 0.9377896 0.9586574 4.7352687E-02 4.7352687E-02 4.7352687E-02 1.8072462E-02 1.7349022E-02 4.7352687E-02 4.7352687E-02 0.000000 2.454777 0.5763850 0.8558761 0.9500610 0.9709882 4.8121039E-02 4.8121039E-02 4.8121039E-02 1.8368255E-02 1.7612619E-02 4.8121039E-02 4.8121039E-02 0.000000 2.480616 0.5882254 0.8698924 0.9617755 0.9813854 4.8804834E-02 4.8804834E-02 4.8804834E-02 1.8626044E-02 1.7835971E-02 4.8804834E-02 4.8804834E-02 0.000000 2.499069 0.5982332 0.8834304 0.9716313 0.9912823 4.9480513E-02 4.9480513E-02 4.9480513E-02 1.8880643E-02 1.8094786E-02 4.9480513E-02 4.9480513E-02 0.000000 2.510297 0.6094341 0.8965512 0.9810526 1.000742 5.0145041E-02 5.0145041E-02 5.0145041E-02 1.9097511E-02 1.8313624E-02 5.0145041E-02 5.0145041E-02 0.000000 2.525618 0.6188654 0.9061363 0.9900854 1.009811 5.0728247E-02 5.0728247E-02 5.0728247E-02 1.9311622E-02 1.8530523E-02 5.0728247E-02 5.0728247E-02 0.000000 2.534135 0.6280503 0.9153725 0.9987755 1.015757 5.1304843E-02 5.1304843E-02 5.1304843E-02 1.9523265E-02 1.8707255E-02 5.1304843E-02 5.1304843E-02 0.000000 2.541513 0.6354864 0.9242889 1.004384 1.021377 5.1798627E-02 5.1798627E-02 5.1798627E-02 1.9735221E-02 1.8920749E-02 5.1798627E-02 5.1798627E-02 0.000000 2.547863 0.6427141 0.9329221 1.012479 1.026708 5.2359991E-02 5.2359991E-02 5.2359991E-02 1.9942593E-02 1.9094145E-02 5.2359991E-02 5.2359991E-02 0.000000 2.553283 0.6497479 0.9413027 1.017539 1.029261 5.2840896E-02 5.2840896E-02 5.2840896E-02 2.0112623E-02 1.9304909E-02 5.2840896E-02 5.2840896E-02 0.000000 2.557490 0.6566130 0.9494487 1.022358 1.031664 5.3318083E-02 5.3318083E-02 5.3318083E-02 2.0316407E-02 1.9475566E-02 5.3318083E-02 5.3318083E-02 0.000000 2.561237 0.6633200 0.9541558 1.026961 1.036626 5.3788416E-02 5.3788416E-02 5.3788416E-02 2.0482956E-02 1.9644976E-02 5.3788416E-02 5.3788416E-02 0.000000 2.558539 0.6698838 0.9618882 1.028819 1.047937 5.4255068E-02 5.4255068E-02 5.4255068E-02 2.0647924E-02 1.9776301E-02 5.4255068E-02 5.4255068E-02 0.000000 2.560912 0.6763163 0.9662027 1.033339 1.049613 5.4640137E-02 5.4640137E-02 5.4640137E-02 2.0811439E-02 1.9943472E-02 5.4640137E-02 5.4640137E-02 0.000000 2.556937 0.6810573 0.9703411 1.034918 1.053912 5.5096257E-02 5.5096257E-02 5.5096257E-02 2.0973602E-02 2.0109681E-02 5.5096257E-02 5.5096257E-02 0.000000 2.552395 0.6856779 0.9775651 1.036342 1.055261 5.5472862E-02 5.5472862E-02 5.5472862E-02 2.1134514E-02 2.0275006E-02 5.5472862E-02 5.5472862E-02 0.000000 2.552626 0.6917683 0.9813926 1.049667 1.056466 5.5845581E-02 5.5845581E-02 5.5845581E-02 2.1258103E-02 2.0399826E-02 5.5845581E-02 5.5845581E-02 0.000000 2.552775 0.6945950 0.9850821 1.050694 1.057534 5.6216933E-02 5.6216933E-02 5.6216933E-02 2.1416686E-02 2.0563468E-02 5.6216933E-02 5.6216933E-02 0.000000 2.546715 0.7004893 0.9886369 1.051594 1.058478 5.6583218E-02 5.6583218E-02 5.6583218E-02 2.1574261E-02 2.0686530E-02 5.6583218E-02 5.6583218E-02 0.000000 2.540226 0.7031226 0.9920720 1.055167 1.056509 5.6869958E-02 5.6869958E-02 5.6869958E-02 2.1696212E-02 2.0808753E-02 5.6869958E-02 5.6869958E-02 0.000000 2.539097 0.7088536 0.9953889 1.055838 1.069472 5.7231694E-02 5.7231694E-02 5.7231694E-02 2.1815622E-02 2.0930188E-02 5.7231694E-02 5.7231694E-02 0.000000 2.531832 0.7113172 0.9986011 1.056404 1.069983 5.7588607E-02 5.7588607E-02 5.7588607E-02 2.1935623E-02 2.1091020E-02 5.7588607E-02 5.7588607E-02 0.000000 2.524214 0.7137014 1.001711 1.056874 1.070396 5.7866182E-02 5.7866182E-02 5.7866182E-02 2.2089716E-02 2.1211101E-02 5.7866182E-02 5.7866182E-02 0.000000 2.519146 0.7192142 1.004728 1.057252 1.070715 5.8141019E-02 5.8141019E-02 5.8141019E-02 2.2206388E-02 2.1330522E-02 5.8141019E-02 5.8141019E-02 0.000000 2.513323 0.7214588 1.007652 1.058941 1.070947 5.8490157E-02 5.8490157E-02 5.8490157E-02 2.2322241E-02 2.1449324E-02 5.8490157E-02 5.8490157E-02 0.000000 2.504730 0.7236367 1.010491 1.069987 1.071097 5.8760036E-02 5.8760036E-02 5.8760036E-02 2.2437321E-02 2.1567537E-02 5.8760036E-02 5.8760036E-02 0.000000 2.501629 0.7289655 1.013252 1.070031 1.071169 5.9104692E-02 5.9104692E-02 5.9104692E-02 2.2551663E-02 2.1685584E-02 5.9104692E-02 5.9104692E-02 0.000000 2.492488 0.7310238 1.015935 1.070000 1.068357 5.9371401E-02 5.9371401E-02 5.9371401E-02 2.2665309E-02 2.1801548E-02 5.9371401E-02 5.9371401E-02 0.000000 2.483098 0.7330256 1.018549 1.069898 1.071096 5.9634693E-02 5.9634693E-02 5.9634693E-02 2.2778289E-02 2.1919368E-02 5.9634693E-02 5.9634693E-02 0.000000 2.479244 0.7349746 1.017792 1.069730 1.068149 5.9895981E-02 5.9895981E-02 5.9895981E-02 2.2853607E-02 2.1994773E-02 5.9895981E-02 5.9895981E-02 0.000000 2.469389 0.7384914 1.020268 1.072309 1.074073 6.0155340E-02 6.0155340E-02 6.0155340E-02 2.2965299E-02 2.2110414E-02 6.0155340E-02 6.0155340E-02 0.000000 2.459319 0.7419596 1.022684 1.069206 1.077228 6.0412847E-02 6.0412847E-02 6.0412847E-02 2.3076413E-02 2.2225628E-02 6.0412847E-02 6.0412847E-02 0.000000 2.454819 0.7437654 1.025037 1.071667 1.079656 6.0590904E-02 6.0590904E-02 6.0590904E-02 2.3186980E-02 2.2340436E-02 6.0590904E-02 6.0590904E-02 0.000000 2.444349 0.7455270 1.024030 1.068454 1.076385 6.0844868E-02 6.0844868E-02 6.0844868E-02 2.3297023E-02 2.2413833E-02 6.0844868E-02 6.0844868E-02 0.000000 2.439100 0.7472463 1.026271 1.070807 1.078704 6.1097212E-02 6.1097212E-02 6.1097212E-02 2.3369286E-02 2.2527816E-02 6.1097212E-02 6.1097212E-02 0.000000 2.428243 0.7489253 1.028460 1.067493 1.075330 6.1270081E-02 6.1270081E-02 6.1270081E-02 2.3440981E-02 2.2600308E-02 6.1270081E-02 6.1270081E-02 0.000000 2.172302 0.3127238 0.3170783 0.2686999 0.2625732 1.5492546E-02 1.5492546E-02 1.5492546E-02 6.9191437E-03 8.3463658E-03 1.5492546E-02 1.5492546E-02 0.000000 1.032487 0.1539381 0.2482244 0.3150697 0.3305226 2.4659287E-02 2.4659287E-02 2.4659287E-02 1.0257737E-02 1.0682216E-02 2.4659287E-02 2.4659287E-02 0.000000 1.232143 0.2225073 0.3632513 0.4541466 0.4775113 2.9435866E-02 2.9435866E-02 2.9435866E-02 1.1883509E-02 1.1976261E-02 2.9435866E-02 2.9435866E-02 0.000000 1.467143 0.2811092 0.4544305 0.5561148 0.5827485 3.2797005E-02 3.2797005E-02 3.2797005E-02 1.3022355E-02 1.2889640E-02 3.2797005E-02 3.2797005E-02 0.000000 1.659634 0.3302195 0.5260699 0.6343586 0.6612419 3.5398133E-02 3.5398133E-02 3.5398133E-02 1.3932968E-02 1.3671366E-02 3.5398133E-02 3.5398133E-02 0.000000 1.818766 0.3715835 0.5850607 0.6954865 0.7232727 3.7518542E-02 3.7518542E-02 3.7518542E-02 1.4658499E-02 1.4296507E-02 3.7518542E-02 3.7518542E-02 0.000000 1.948605 0.4057984 0.6351918 0.7454259 0.7738678 3.9375946E-02 3.9375946E-02 3.9375946E-02 1.5299316E-02 1.4837054E-02 3.9375946E-02 3.9375946E-02 0.000000 2.060198 0.4369652 0.6771634 0.7862160 0.8138600 4.0980835E-02 4.0980835E-02 4.0980835E-02 1.5859801E-02 1.5330996E-02 4.0980835E-02 4.0980835E-02 0.000000 2.153277 0.4641798 0.7127809 0.8209218 0.8476235 4.2337272E-02 4.2337272E-02 4.2337272E-02 1.6342206E-02 1.5782399E-02 4.2337272E-02 4.2337272E-02 0.000000 2.229238 0.4862314 0.7438008 0.8499467 0.8769181 4.3594066E-02 4.3594066E-02 4.3594066E-02 1.6783295E-02 1.6188659E-02 4.3594066E-02 4.3594066E-02 0.000000 2.299937 0.5073076 0.7719686 0.8748873 0.9007411 4.4752184E-02 4.4752184E-02 4.4752184E-02 1.7214017E-02 1.6552402E-02 4.4752184E-02 4.4752184E-02 0.000000 2.332708 0.5276185 0.7960067 0.8959665 0.9206352 4.5818366E-02 4.5818366E-02 4.5818366E-02 1.7570194E-02 1.6874032E-02 4.5818366E-02 4.5818366E-02 0.000000 2.375007 0.5444444 0.8160324 0.9146852 0.9394851 4.6791300E-02 4.6791300E-02 4.6791300E-02 1.7920056E-02 1.7191013E-02 4.6791300E-02 4.6791300E-02 0.000000 2.413716 0.5592436 0.8352017 0.9325441 0.9547433 4.7675066E-02 4.7675066E-02 4.7675066E-02 1.8265048E-02 1.7504161E-02 4.7675066E-02 4.7675066E-02 0.000000 2.444190 0.5735296 0.8536608 0.9469610 0.9692409 4.8471056E-02 4.8471056E-02 4.8471056E-02 1.8570678E-02 1.7776389E-02 4.8471056E-02 4.8471056E-02 0.000000 2.466884 0.5859032 0.8683919 0.9607357 0.9803437 4.9254730E-02 4.9254730E-02 4.9254730E-02 1.8837420E-02 1.8045498E-02 4.9254730E-02 4.9254730E-02 0.000000 2.487374 0.5978774 0.8825667 0.9712139 0.9908646 4.9951900E-02 4.9951900E-02 4.9951900E-02 1.9100271E-02 1.8311933E-02 4.9951900E-02 4.9951900E-02 0.000000 2.506068 0.6095110 0.8946772 0.9811894 1.000881 5.0638780E-02 5.0638780E-02 5.0638780E-02 1.9359717E-02 1.8537737E-02 5.0638780E-02 5.0638780E-02 0.000000 2.523039 0.6193315 0.9063474 0.9907198 1.010449 5.1315848E-02 5.1315848E-02 5.1315848E-02 1.9618727E-02 1.8761177E-02 5.1315848E-02 5.1315848E-02 0.000000 2.533032 0.6288686 0.9160425 0.9998592 1.016844 5.1983565E-02 5.1983565E-02 5.1983565E-02 1.9837106E-02 1.8982522E-02 5.1983565E-02 5.1983565E-02 0.000000 2.541745 0.6366236 0.9253756 1.005874 1.022871 5.2494492E-02 5.2494492E-02 5.2494492E-02 2.0052852E-02 1.9202011E-02 5.2494492E-02 5.2494492E-02 0.000000 2.549309 0.6456807 0.9343889 1.014339 1.028571 5.3074010E-02 5.3074010E-02 5.3074010E-02 2.0266231E-02 1.9419841E-02 5.3074010E-02 5.3074010E-02 0.000000 2.555837 0.6545371 0.9431180 1.019740 1.031621 5.3645428E-02 5.3645428E-02 5.3645428E-02 2.0477470E-02 1.9597085E-02 5.3645428E-02 5.3645428E-02 0.000000 2.561069 0.6616594 0.9515856 1.024873 1.034372 5.4136761E-02 5.4136761E-02 5.4136761E-02 2.0650940E-02 1.9775013E-02 5.4136761E-02 5.4136761E-02 0.000000 2.560022 0.6686057 0.9565865 1.029763 1.036884 5.4620117E-02 5.4620117E-02 5.4620117E-02 2.0822434E-02 1.9988628E-02 5.4620117E-02 5.4620117E-02 0.000000 2.558179 0.6738273 0.9645935 1.032107 1.048397 5.5097941E-02 5.5097941E-02 5.5097941E-02 2.1028135E-02 2.0161651E-02 5.5097941E-02 5.5097941E-02 0.000000 2.561342 0.6788924 0.9691632 1.034131 1.053136 5.5494964E-02 5.5494964E-02 5.5494964E-02 2.1196235E-02 2.0333447E-02 5.5494964E-02 5.5494964E-02 0.000000 2.558101 0.6853877 0.9767851 1.035972 1.054898 5.5964664E-02 5.5964664E-02 5.5964664E-02 2.1362791E-02 2.0464377E-02 5.5964664E-02 5.5964664E-02 0.000000 2.559578 0.6917623 0.9809855 1.049689 1.056488 5.6352716E-02 5.6352716E-02 5.6352716E-02 2.1527916E-02 2.0633887E-02 5.6352716E-02 5.6352716E-02 0.000000 2.555099 0.6948546 0.9850210 1.051075 1.055126 5.6736413E-02 5.6736413E-02 5.6736413E-02 2.1693422E-02 2.0802440E-02 5.6736413E-02 5.6736413E-02 0.000000 2.550086 0.7009979 0.9889007 1.052311 1.056411 5.7117879E-02 5.7117879E-02 5.7117879E-02 2.1819735E-02 2.0930056E-02 5.7117879E-02 5.7117879E-02 0.000000 2.544575 0.7038638 0.9926407 1.053411 1.058957 5.7569996E-02 5.7569996E-02 5.7569996E-02 2.1982867E-02 2.1096796E-02 5.7569996E-02 5.7569996E-02 0.000000 2.538601 0.7098150 0.9962469 1.057176 1.070795 5.7865459E-02 5.7865459E-02 5.7865459E-02 2.2143316E-02 2.1262780E-02 5.7865459E-02 5.7865459E-02 0.000000 2.532194 0.7124842 0.9997275 1.058028 1.068778 5.8234125E-02 5.8234125E-02 5.8234125E-02 2.2266032E-02 2.1387702E-02 5.8234125E-02 5.8234125E-02 0.000000 2.531146 0.7182602 1.003093 1.058769 1.069456 5.8599655E-02 5.8599655E-02 5.8599655E-02 2.2387668E-02 2.1511786E-02 5.8599655E-02 5.8599655E-02 0.000000 2.518191 0.7207581 1.006349 1.056610 1.070028 5.8885161E-02 5.8885161E-02 5.8885161E-02 2.2508288E-02 2.1635961E-02 5.8885161E-02 5.8885161E-02 0.000000 2.515976 0.7231755 1.009504 1.069397 1.070501 5.9167642E-02 5.9167642E-02 5.9167642E-02 2.2664860E-02 2.1757292E-02 5.9167642E-02 5.9167642E-02 0.000000 2.508057 0.7287346 1.012559 1.069745 1.070880 5.9524156E-02 5.9524156E-02 5.9524156E-02 2.2783669E-02 2.1920558E-02 5.9524156E-02 5.9524156E-02 0.000000 2.499817 0.7310084 1.015523 1.070004 1.068362 5.9802886E-02 5.9802886E-02 5.9802886E-02 2.2901613E-02 2.2041818E-02 5.9802886E-02 5.9802886E-02 0.000000 2.497053 0.7332146 1.018402 1.070179 1.068570 6.0154863E-02 6.0154863E-02 6.0154863E-02 2.3018742E-02 2.2162449E-02 6.0154863E-02 6.0154863E-02 0.000000 2.482460 0.7353618 1.017903 1.070274 1.068701 6.0426984E-02 6.0426984E-02 6.0426984E-02 2.3135096E-02 2.2282485E-02 6.0426984E-02 6.0426984E-02 0.000000 2.479146 0.7406767 1.020621 1.070295 1.078352 6.0696777E-02 6.0696777E-02 6.0696777E-02 2.3250712E-02 2.2401955E-02 6.0696777E-02 6.0696777E-02 0.000000 2.469803 0.7427053 1.023268 1.070245 1.078254 6.0964350E-02 6.0964350E-02 6.0964350E-02 2.3365626E-02 2.2479825E-02 6.0964350E-02 6.0964350E-02 0.000000 2.460222 0.7446793 1.025843 1.070128 1.078088 6.1229810E-02 6.1229810E-02 6.1229810E-02 2.3479873E-02 2.2598177E-02 6.1229810E-02 6.1229810E-02 0.000000 2.456183 0.7466016 1.025046 1.069947 1.077857 6.1493248E-02 6.1493248E-02 6.1493248E-02 2.3556113E-02 2.2716047E-02 6.1493248E-02 6.1493248E-02 0.000000 2.440374 0.7484745 1.027489 1.069705 1.077564 6.1754756E-02 6.1754756E-02 6.1754756E-02 2.3669064E-02 2.2833459E-02 6.1754756E-02 6.1754756E-02 0.000000 2.435539 0.7503006 1.026565 1.069406 1.077212 6.2016811E-02 6.2016811E-02 6.2016811E-02 2.3781434E-02 2.2950433E-02 6.2016811E-02 6.2016811E-02 0.000000 2.430861 0.7520854 1.028888 1.078638 1.073985 6.2196642E-02 6.2196642E-02 6.2196642E-02 2.3893252E-02 2.3025587E-02 6.2196642E-02 6.2196642E-02 0.000000 2.420214 0.7538242 1.031157 1.078158 1.073524 6.2374637E-02 6.2374637E-02 6.2374637E-02 2.3966976E-02 2.3141680E-02 6.2374637E-02 6.2374637E-02 0.000000 2.409386 0.7587825 1.033377 1.077626 1.073013 6.2629305E-02 6.2629305E-02 6.2629305E-02 2.4077704E-02 2.3257395E-02 6.2629305E-02 6.2629305E-02 0.000000 2.171650 0.3124651 0.3170506 0.2683845 0.2622741 1.5498766E-02 1.5498766E-02 1.5498766E-02 6.9460352E-03 8.3493907E-03 1.5498766E-02 1.5498766E-02 0.000000 1.035182 0.1549711 0.2496004 0.3174005 0.3329112 2.4907747E-02 2.4907747E-02 2.4907747E-02 1.0376655E-02 1.0768731E-02 2.4907747E-02 2.4907747E-02 0.000000 1.235875 0.2250174 0.3664125 0.4585095 0.4819769 2.9870452E-02 2.9870452E-02 2.9870452E-02 1.2087019E-02 1.2114082E-02 2.9870452E-02 2.9870452E-02 0.000000 1.471922 0.2852708 0.4595001 0.5624170 0.5891757 3.3349689E-02 3.3349689E-02 3.3349689E-02 1.3276781E-02 1.3109579E-02 3.3349689E-02 3.3349689E-02 0.000000 1.669953 0.3349899 0.5330595 0.6413648 0.6695370 3.6059368E-02 3.6059368E-02 3.6059368E-02 1.4204029E-02 1.3871154E-02 3.6059368E-02 3.6059368E-02 0.000000 1.827607 0.3768392 0.5939701 0.7042369 0.7321467 3.8281698E-02 3.8281698E-02 3.8281698E-02 1.4974949E-02 1.4542212E-02 3.8281698E-02 3.8281698E-02 0.000000 1.960695 0.4126991 0.6432711 0.7546461 0.7819430 4.0173154E-02 4.0173154E-02 4.0173154E-02 1.5627678E-02 1.5128237E-02 4.0173154E-02 4.0173154E-02 0.000000 2.072966 0.4442511 0.6856448 0.7945479 0.8235675 4.1803230E-02 4.1803230E-02 4.1803230E-02 1.6198441E-02 1.5633482E-02 4.1803230E-02 4.1803230E-02 0.000000 2.166622 0.4704493 0.7215961 0.8295573 0.8563411 4.3255694E-02 4.3255694E-02 4.3255694E-02 1.6725250E-02 1.6091393E-02 4.3255694E-02 4.3255694E-02 0.000000 2.243070 0.4954828 0.7543799 0.8601550 0.8845667 4.4533059E-02 4.4533059E-02 4.4533059E-02 1.7172635E-02 1.6505253E-02 4.4533059E-02 4.4533059E-02 0.000000 2.314210 0.5168281 0.7813337 0.8840128 0.9085990 4.5712750E-02 4.5712750E-02 4.5712750E-02 1.7611070E-02 1.6875861E-02 4.5712750E-02 4.5712750E-02 0.000000 2.342096 0.5345375 0.8040819 0.9066265 0.9300269 4.6794657E-02 4.6794657E-02 4.6794657E-02 1.7975250E-02 1.7240969E-02 4.6794657E-02 4.6794657E-02 0.000000 2.384756 0.5515312 0.8273451 0.9255352 0.9476970 4.7783885E-02 4.7783885E-02 4.7783885E-02 1.8330479E-02 1.7564090E-02 4.7783885E-02 4.7783885E-02 0.000000 2.423779 0.5679383 0.8467112 0.9408597 0.9631077 4.8683133E-02 4.8683133E-02 4.8683133E-02 1.8681061E-02 1.7883083E-02 4.8683133E-02 4.8683133E-02 0.000000 2.454541 0.5823786 0.8622395 0.9554194 0.9777447 4.9493250E-02 4.9493250E-02 4.9493250E-02 1.8992076E-02 1.8160600E-02 4.9493250E-02 4.9493250E-02 0.000000 2.477498 0.5963771 0.8771076 0.9693244 0.9889699 5.0362933E-02 5.0362933E-02 5.0362933E-02 1.9298716E-02 1.8434772E-02 5.0362933E-02 5.0362933E-02 0.000000 2.498235 0.6084928 0.8914084 0.9799196 0.9996083 5.1072773E-02 5.1072773E-02 5.1072773E-02 1.9566363E-02 1.8706072E-02 5.1072773E-02 5.1072773E-02 0.000000 2.511505 0.6187447 0.9052169 0.9900022 1.006958 5.1770333E-02 5.1770333E-02 5.1770333E-02 1.9832907E-02 1.8974883E-02 5.1770333E-02 5.1770333E-02 0.000000 2.528661 0.6286691 0.9154183 0.9996368 1.016622 5.2457619E-02 5.2457619E-02 5.2457619E-02 2.0058202E-02 1.9202715E-02 5.2457619E-02 5.2457619E-02 0.000000 2.538838 0.6383060 0.9252077 1.006099 1.023097 5.3062811E-02 5.3062811E-02 5.3062811E-02 2.0316022E-02 1.9428305E-02 5.3062811E-02 5.3062811E-02 0.000000 2.547727 0.6476884 0.9346350 1.014972 1.029206 5.3657986E-02 5.3657986E-02 5.3657986E-02 2.0535566E-02 1.9651903E-02 5.3657986E-02 5.3657986E-02 0.000000 2.549752 0.6552953 0.9437417 1.020739 1.032693 5.4171305E-02 5.4171305E-02 5.4171305E-02 2.0752607E-02 1.9876052E-02 5.4171305E-02 5.4171305E-02 0.000000 2.556087 0.6626830 0.9525552 1.026210 1.035813 5.4750521E-02 5.4750521E-02 5.4750521E-02 2.0931398E-02 2.0056915E-02 5.4750521E-02 5.4750521E-02 0.000000 2.561764 0.6698736 0.9594901 1.028866 1.047986 5.5247668E-02 5.5247668E-02 5.5247668E-02 2.1144006E-02 2.0275643E-02 5.5247668E-02 5.5247668E-02 0.000000 2.560846 0.6768854 0.9661760 1.031407 1.050445 5.5738509E-02 5.5738509E-02 5.5738509E-02 2.1354744E-02 2.0453358E-02 5.5738509E-02 5.5738509E-02 0.000000 2.559124 0.6837344 0.9710142 1.036498 1.052681 5.6225821E-02 5.6225821E-02 5.6225821E-02 2.1527469E-02 2.0629643E-02 5.6225821E-02 5.6225821E-02 0.000000 2.556666 0.6872808 0.9788892 1.047932 1.054711 5.6630019E-02 5.6630019E-02 5.6630019E-02 2.1700153E-02 2.0804614E-02 5.6630019E-02 5.6630019E-02 0.000000 2.556403 0.6938366 0.9833260 1.049725 1.056555 5.7107236E-02 5.7107236E-02 5.7107236E-02 2.1871358E-02 2.0978378E-02 5.7107236E-02 5.7107236E-02 0.000000 2.555065 0.7002638 0.9875775 1.051343 1.058225 5.7577718E-02 5.7577718E-02 5.7577718E-02 2.2039386E-02 2.1151030E-02 5.7577718E-02 5.7577718E-02 0.000000 2.550679 0.7033962 0.9916644 1.055594 1.056942 5.7890553E-02 5.7890553E-02 5.7890553E-02 2.2206016E-02 2.1282367E-02 5.7890553E-02 5.7890553E-02 0.000000 2.545753 0.7095958 0.9955965 1.056902 1.070526 5.8352537E-02 5.8352537E-02 5.8352537E-02 2.2371346E-02 2.1452932E-02 5.8352537E-02 5.8352537E-02 0.000000 2.540326 0.7124984 0.9993812 1.055278 1.068823 5.8656864E-02 5.8656864E-02 5.8656864E-02 2.2498617E-02 2.1623624E-02 5.8656864E-02 5.8656864E-02 0.000000 2.534431 0.7184937 1.003032 1.056319 1.069797 5.9111446E-02 5.9111446E-02 5.9111446E-02 2.2624608E-02 2.1750631E-02 5.9111446E-02 5.9111446E-02 0.000000 2.522336 0.7211998 1.006559 1.057240 1.070650 5.9409186E-02 5.9409186E-02 5.9409186E-02 2.2786377E-02 2.1919312E-02 5.9409186E-02 5.9409186E-02 0.000000 2.521359 0.7238135 1.009966 1.070275 1.071388 5.9780307E-02 5.9780307E-02 5.9780307E-02 2.2947157E-02 2.2045834E-02 5.9780307E-02 5.9780307E-02 0.000000 2.513790 0.7295533 1.013263 1.070872 1.069210 6.0147956E-02 6.0147956E-02 6.0147956E-02 2.3069875E-02 2.2171518E-02 6.0147956E-02 6.0147956E-02 0.000000 2.506268 0.7320006 1.016459 1.071368 1.069741 6.0435060E-02 6.0435060E-02 6.0435060E-02 2.3191584E-02 2.2337360E-02 6.0435060E-02 6.0435060E-02 0.000000 2.498402 0.7343730 1.016259 1.071769 1.067370 6.0719188E-02 6.0719188E-02 6.0719188E-02 2.3312340E-02 2.2461584E-02 6.0719188E-02 6.0719188E-02 0.000000 2.490219 0.7382895 1.019258 1.072080 1.070100 6.1000496E-02 6.1000496E-02 6.1000496E-02 2.3432191E-02 2.2585101E-02 6.1000496E-02 6.1000496E-02 0.000000 2.481733 0.7421395 1.022171 1.069496 1.077516 6.1279126E-02 6.1279126E-02 6.1279126E-02 2.3551187E-02 2.2707948E-02 6.1279126E-02 6.1279126E-02 0.000000 2.472958 0.7443088 1.025001 1.069643 1.077611 6.1555211E-02 6.1555211E-02 6.1555211E-02 2.3669370E-02 2.2830164E-02 6.1555211E-02 6.1555211E-02 0.000000 2.463917 0.7464168 1.024448 1.069715 1.077629 6.1909281E-02 6.1909281E-02 6.1909281E-02 2.3786779E-02 2.2951776E-02 6.1909281E-02 6.1909281E-02 0.000000 2.454616 0.7484667 1.027123 1.069715 1.077575 6.2181000E-02 6.2181000E-02 6.2181000E-02 2.3903454E-02 2.3072820E-02 6.2181000E-02 6.2181000E-02 0.000000 2.445072 0.7504615 1.029727 1.069648 1.074631 6.2372141E-02 6.2372141E-02 6.2372141E-02 2.4019429E-02 2.3193322E-02 6.2372141E-02 6.2372141E-02 0.000000 2.434922 0.7524076 1.028954 1.079092 1.074442 6.2639467E-02 6.2639467E-02 6.2639467E-02 2.4134735E-02 2.3271754E-02 6.2639467E-02 6.2639467E-02 0.000000 2.430682 0.7543004 1.031425 1.078819 1.074191 6.2904797E-02 6.2904797E-02 6.2904797E-02 2.4213079E-02 2.3391178E-02 6.2904797E-02 6.2904797E-02 0.000000 2.420454 0.7594070 1.030523 1.078486 1.073882 6.3168213E-02 6.3168213E-02 6.3168213E-02 2.4325864E-02 2.3510138E-02 6.3168213E-02 6.3168213E-02 0.000000 2.410025 0.7612098 1.032878 1.078097 1.070697 6.3429788E-02 6.3429788E-02 6.3429788E-02 2.4400705E-02 2.3586908E-02 6.3429788E-02 6.3429788E-02 0.000000 2.405185 0.7629693 1.031853 1.077654 1.067460 6.3689604E-02 6.3689604E-02 6.3689604E-02 2.4515163E-02 2.3707762E-02 6.3689604E-02 6.3689604E-02 0.000000 2.388603 0.7646873 1.034095 1.077158 1.066990 6.3868865E-02 6.3868865E-02 6.3868865E-02 2.4627386E-02 2.3825355E-02 6.3868865E-02 6.3868865E-02 0.000000 2.171857 0.3126001 0.3169694 0.2684030 0.2619140 1.5550787E-02 1.5550787E-02 1.5550787E-02 6.9491798E-03 8.3520655E-03 1.5550787E-02 1.5550787E-02 0.000000 1.034486 0.1558811 0.2515743 0.3195507 0.3351153 2.5149280E-02 2.5149280E-02 2.5149280E-02 1.0493284E-02 1.0853544E-02 2.5149280E-02 2.5149280E-02 0.000000 1.241071 0.2273482 0.3703395 0.4626056 0.4861696 3.0234946E-02 3.0234946E-02 3.0234946E-02 1.2257940E-02 1.2249536E-02 3.0234946E-02 3.0234946E-02 0.000000 1.480461 0.2881936 0.4642730 0.5683979 0.5952730 3.3826180E-02 3.3826180E-02 3.3826180E-02 1.3497042E-02 1.3259875E-02 3.3826180E-02 3.3826180E-02 0.000000 1.677270 0.3395033 0.5397152 0.6479969 0.6762769 3.6640286E-02 3.6640286E-02 3.6640286E-02 1.4471072E-02 1.4102197E-02 3.6640286E-02 3.6640286E-02 0.000000 1.838148 0.3818040 0.5998648 0.7113721 0.7393774 3.8898695E-02 3.8898695E-02 3.8898695E-02 1.5254993E-02 1.4784668E-02 3.8898695E-02 3.8898695E-02 0.000000 1.971971 0.4193001 0.6509403 0.7621834 0.7895656 4.0885180E-02 4.0885180E-02 4.0885180E-02 1.5951406E-02 1.5380563E-02 4.0885180E-02 4.0885180E-02 0.000000 2.084860 0.4499016 0.6936876 0.8036882 0.8302258 4.2542011E-02 4.2542011E-02 4.2542011E-02 1.6532000E-02 1.5894383E-02 4.2542011E-02 4.2542011E-02 0.000000 2.176379 0.4777068 0.7314073 0.8389987 0.8645582 4.4015888E-02 4.4015888E-02 4.4015888E-02 1.7067714E-02 1.6396562E-02 4.4015888E-02 4.4015888E-02 0.000000 2.255934 0.5016240 0.7615355 0.8672305 0.8930199 4.5383915E-02 4.5383915E-02 4.5383915E-02 1.7522715E-02 1.6817722E-02 4.5383915E-02 4.5383915E-02 0.000000 2.321989 0.5231686 0.7902014 0.8926083 0.9172592 4.6581391E-02 4.6581391E-02 4.6581391E-02 1.7969590E-02 1.7194923E-02 4.6581391E-02 4.6581391E-02 0.000000 2.355899 0.5424777 0.8146741 0.9140736 0.9388726 4.7679774E-02 4.7679774E-02 4.7679774E-02 1.8372085E-02 1.7566251E-02 4.7679774E-02 4.7679774E-02 0.000000 2.393384 0.5611013 0.8350707 0.9331406 0.9553445 4.8684612E-02 4.8684612E-02 4.8684612E-02 1.8734260E-02 1.7932832E-02 4.8684612E-02 4.8684612E-02 0.000000 2.432694 0.5762187 0.8545929 0.9486026 0.9708909 4.9597420E-02 4.9597420E-02 4.9597420E-02 1.9090511E-02 1.8257441E-02 4.9597420E-02 4.9597420E-02 0.000000 2.458261 0.5908046 0.8702558 0.9632943 0.9829101 5.0495449E-02 5.0495449E-02 5.0495449E-02 1.9406654E-02 1.8540032E-02 5.0495449E-02 5.0495449E-02 0.000000 2.481281 0.6034389 0.8868207 0.9773204 0.9956219 5.1302113E-02 5.1302113E-02 5.1302113E-02 1.9685430E-02 1.8819062E-02 5.1302113E-02 5.1302113E-02 0.000000 2.502219 0.6156597 0.8996700 0.9880220 1.004975 5.2022021E-02 5.2022021E-02 5.2022021E-02 1.9992692E-02 1.9095024E-02 5.2022021E-02 5.2022021E-02 0.000000 2.521200 0.6275282 0.9135916 0.9982075 1.015191 5.2729782E-02 5.2729782E-02 5.2729782E-02 2.0260870E-02 1.9368326E-02 5.2729782E-02 5.2729782E-02 0.000000 2.532998 0.6360201 0.9238892 1.005164 1.022161 5.3428870E-02 5.3428870E-02 5.3428870E-02 2.0489946E-02 1.9600201E-02 5.3428870E-02 5.3428870E-02 0.000000 2.543342 0.6472822 0.9337708 1.014482 1.028713 5.4043077E-02 5.4043077E-02 5.4043077E-02 2.0751636E-02 1.9832013E-02 5.4043077E-02 5.4043077E-02 0.000000 2.552389 0.6552055 0.9432894 1.020652 1.032599 5.4645970E-02 5.4645970E-02 5.4645970E-02 2.0974664E-02 2.0059479E-02 5.4645970E-02 5.4645970E-02 0.000000 2.554239 0.6628816 0.9524783 1.026491 1.036115 5.5240657E-02 5.5240657E-02 5.5240657E-02 2.1195062E-02 2.0285051E-02 5.5240657E-02 5.5240657E-02 0.000000 2.561005 0.6703360 0.9613723 1.029528 1.048638 5.5827919E-02 5.5827919E-02 5.5827919E-02 2.1413077E-02 2.0508923E-02 5.5827919E-02 5.5827919E-02 0.000000 2.561086 0.6775905 0.9667578 1.032399 1.051427 5.6334827E-02 5.6334827E-02 5.6334827E-02 2.1592589E-02 2.0691371E-02 5.6334827E-02 5.6334827E-02 0.000000 2.560283 0.6846635 0.9735122 1.035028 1.053969 5.6833517E-02 5.6833517E-02 5.6833517E-02 2.1808259E-02 2.0912180E-02 5.6833517E-02 5.6833517E-02 0.000000 2.558671 0.6915737 0.9800327 1.049487 1.056285 5.7327859E-02 5.7327859E-02 5.7327859E-02 2.1985516E-02 2.1091580E-02 5.7327859E-02 5.7327859E-02 0.000000 2.556317 0.6951632 0.9847191 1.051544 1.055602 5.7737969E-02 5.7737969E-02 5.7737969E-02 2.2159310E-02 2.1269590E-02 5.7737969E-02 5.7737969E-02 0.000000 2.552835 0.7017700 0.9892029 1.053409 1.057523 5.8142610E-02 5.8142610E-02 5.8142610E-02 2.2331402E-02 2.1446316E-02 5.8142610E-02 5.8142610E-02 0.000000 2.549116 0.7066578 0.9935088 1.055098 1.068744 5.8619119E-02 5.8619119E-02 5.8619119E-02 2.2501918E-02 2.1622874E-02 5.8619119E-02 5.8619119E-02 0.000000 2.544812 0.7114236 0.9976428 1.056626 1.070205 5.9014101E-02 5.9014101E-02 5.9014101E-02 2.2670968E-02 2.1755401E-02 5.9014101E-02 5.9014101E-02 0.000000 2.539965 0.7160683 1.001618 1.058003 1.071513 5.9405603E-02 5.9405603E-02 5.9405603E-02 2.2838656E-02 2.1929452E-02 5.9405603E-02 5.9405603E-02 0.000000 2.534613 0.7206056 1.005449 1.056446 1.069869 5.9792440E-02 5.9792440E-02 5.9792440E-02 2.2967987E-02 2.2101851E-02 5.9792440E-02 5.9792440E-02 0.000000 2.523026 0.7234405 1.009142 1.069794 1.070903 6.0175065E-02 6.0175065E-02 6.0175065E-02 2.3133136E-02 2.2232475E-02 6.0175065E-02 6.0175065E-02 0.000000 2.522114 0.7293865 1.012710 1.070668 1.071815 6.0476411E-02 6.0476411E-02 6.0476411E-02 2.3297176E-02 2.2403089E-02 6.0476411E-02 6.0476411E-02 0.000000 2.509629 0.7320285 1.016160 1.071427 1.069802 6.0851868E-02 6.0851868E-02 6.0851868E-02 2.3422869E-02 2.2531856E-02 6.0851868E-02 6.0851868E-02 0.000000 2.508296 0.7345842 1.016200 1.069267 1.067682 6.1224114E-02 6.1224114E-02 6.1224114E-02 2.3547450E-02 2.2700915E-02 6.1224114E-02 6.1224114E-02 0.000000 2.495053 0.7386751 1.019427 1.069814 1.074828 6.1515324E-02 6.1515324E-02 6.1515324E-02 2.3670979E-02 2.2828043E-02 6.1515324E-02 6.1515324E-02 0.000000 2.487241 0.7426900 1.022555 1.070266 1.078276 6.1803453E-02 6.1803453E-02 6.1803453E-02 2.3793513E-02 2.2954378E-02 6.1803453E-02 6.1803453E-02 0.000000 2.479106 0.7450154 1.025590 1.070628 1.078582 6.2091127E-02 6.2091127E-02 6.2091127E-02 2.3915106E-02 2.3079971E-02 6.2091127E-02 6.2091127E-02 0.000000 2.464890 0.7472715 1.025231 1.070905 1.075981 6.2373839E-02 6.2373839E-02 6.2373839E-02 2.4035806E-02 2.3204854E-02 6.2373839E-02 6.2373839E-02 0.000000 2.461936 0.7494622 1.028090 1.068292 1.076119 6.2732399E-02 6.2732399E-02 6.2732399E-02 2.4157608E-02 2.3329070E-02 6.2732399E-02 6.2732399E-02 0.000000 2.447155 0.7515909 1.027562 1.076372 1.073359 6.3010067E-02 6.3010067E-02 6.3010067E-02 2.4275383E-02 2.3452651E-02 6.3010067E-02 6.3010067E-02 0.000000 2.443308 0.7536649 1.030265 1.077981 1.073347 6.3285351E-02 6.3285351E-02 6.3285351E-02 2.4392381E-02 2.3575630E-02 6.3285351E-02 6.3285351E-02 0.000000 2.433772 0.7589400 1.032901 1.077875 1.073266 6.3479602E-02 6.3479602E-02 6.3479602E-02 2.4511477E-02 2.3700867E-02 6.3479602E-02 6.3479602E-02 0.000000 2.424006 0.7609047 1.032147 1.077703 1.070300 6.3750342E-02 6.3750342E-02 6.3750342E-02 2.4628257E-02 2.3822701E-02 6.3750342E-02 6.3750342E-02 0.000000 2.414016 0.7628189 1.034646 1.077468 1.070091 6.4019017E-02 6.4019017E-02 6.4019017E-02 2.4744373E-02 2.3944015E-02 6.4019017E-02 6.4019017E-02 0.000000 2.403815 0.7646849 1.033766 1.077172 1.067005 6.4285696E-02 6.4285696E-02 6.4285696E-02 2.4823725E-02 2.4022846E-02 6.4285696E-02 6.4285696E-02 0.000000 2.393412 0.7665048 1.036143 1.073999 1.070513 6.4550482E-02 6.4550482E-02 6.4550482E-02 2.4937414E-02 2.4143122E-02 6.4550482E-02 6.4550482E-02 0.000000 2.382817 0.7682809 1.035143 1.073592 1.075937 6.4813443E-02 6.4813443E-02 6.4813443E-02 2.5013812E-02 2.4262952E-02 6.4813443E-02 6.4813443E-02 0.000000 2.372038 0.7700151 1.037406 1.073132 1.075432 6.4995423E-02 6.4995423E-02 6.4995423E-02 2.5126318E-02 2.4340179E-02 6.4995423E-02 6.4995423E-02 0.000000 2.172039 0.3124712 0.3168449 0.2679800 0.2617001 1.5555697E-02 1.5555697E-02 1.5555697E-02 6.9520082E-03 8.3544524E-03 1.5555697E-02 1.5555697E-02 0.000000 1.033507 0.1566905 0.2526533 0.3215538 0.3371691 2.5385827E-02 2.5385827E-02 2.5385827E-02 1.0607977E-02 1.0936913E-02 2.5385827E-02 2.5385827E-02 0.000000 1.245902 0.2295337 0.3730620 0.4664840 0.4901395 3.0653477E-02 3.0653477E-02 3.0653477E-02 1.2426124E-02 1.2382982E-02 3.0653477E-02 3.0653477E-02 0.000000 1.486369 0.2919569 0.4688011 0.5730186 0.5999808 3.4293123E-02 3.4293123E-02 3.4293123E-02 1.3714140E-02 1.3441388E-02 3.4293123E-02 3.4293123E-02 0.000000 1.684039 0.3438064 0.5448344 0.6543246 0.6827076 3.7211385E-02 3.7211385E-02 3.7211385E-02 1.4702900E-02 1.4296218E-02 3.7211385E-02 3.7211385E-02 0.000000 1.848085 0.3865301 0.6067744 0.7181697 0.7462664 3.9570082E-02 3.9570082E-02 3.9570082E-02 1.5531152E-02 1.4989047E-02 3.9570082E-02 3.9570082E-02 0.000000 1.982584 0.4243809 0.6568878 0.7693542 0.7968177 4.1515332E-02 4.1515332E-02 4.1515332E-02 1.6238242E-02 1.5631720E-02 4.1515332E-02 4.1515332E-02 0.000000 2.093427 0.4552676 0.7013724 0.8111660 0.8377788 4.3266043E-02 4.3266043E-02 4.3266043E-02 1.6830066E-02 1.6151892E-02 4.3266043E-02 4.3266043E-02 0.000000 2.185367 0.4833219 0.7379335 0.8454385 0.8723696 4.4831894E-02 4.4831894E-02 4.4831894E-02 1.7371735E-02 1.6661709E-02 4.4831894E-02 4.4831894E-02 0.000000 2.268001 0.5074506 0.7697677 0.8751934 0.9010501 4.6149563E-02 4.6149563E-02 4.6149563E-02 1.7867852E-02 1.7089553E-02 4.6149563E-02 4.6149563E-02 0.000000 2.334409 0.5291837 0.7971513 0.9007701 0.9241343 4.7361858E-02 4.7361858E-02 4.7361858E-02 1.8320514E-02 1.7510286E-02 4.7361858E-02 4.7361858E-02 0.000000 2.363318 0.5500976 0.8217989 0.9210606 0.9445532 4.8475396E-02 4.8475396E-02 4.8475396E-02 1.8730123E-02 1.7887603E-02 4.8475396E-02 4.8475396E-02 0.000000 2.401091 0.5674326 0.8423535 0.9402753 0.9625230 4.9494632E-02 4.9494632E-02 4.9494632E-02 1.9097814E-02 1.8259864E-02 4.9494632E-02 4.9494632E-02 0.000000 2.440657 0.5826789 0.8620191 0.9558699 0.9781989 5.0495457E-02 5.0495457E-02 5.0495457E-02 1.9459272E-02 1.8589629E-02 5.0495457E-02 5.0495457E-02 0.000000 2.466456 0.5973845 0.8793723 0.9706793 0.9903312 5.1328689E-02 5.1328689E-02 5.1328689E-02 1.9782647E-02 1.8876890E-02 5.1328689E-02 5.1328689E-02 0.000000 2.489691 0.6101252 0.8944943 0.9820721 1.001769 5.2221209E-02 5.2221209E-02 5.2221209E-02 2.0063065E-02 1.9199174E-02 5.2221209E-02 5.2221209E-02 0.000000 2.510832 0.6224497 0.9074503 0.9928665 1.012604 5.2951306E-02 5.2951306E-02 5.2951306E-02 2.0374589E-02 1.9479623E-02 5.2951306E-02 5.2951306E-02 0.000000 2.524321 0.6344108 0.9214803 1.003134 1.020128 5.3671021E-02 5.3671021E-02 5.3671021E-02 2.0646621E-02 1.9759530E-02 5.3671021E-02 5.3671021E-02 0.000000 2.536276 0.6429815 0.9318652 1.012943 1.027176 5.4378811E-02 5.4378811E-02 5.4378811E-02 2.0915128E-02 1.9995391E-02 5.4378811E-02 5.4378811E-02 0.000000 2.546771 0.6543283 0.9418362 1.019559 1.031424 5.4999191E-02 5.4999191E-02 5.4999191E-02 2.1144405E-02 2.0228736E-02 5.4999191E-02 5.4999191E-02 0.000000 2.550256 0.6623200 0.9514362 1.025797 1.035368 5.5610113E-02 5.5610113E-02 5.5610113E-02 2.1370631E-02 2.0459836E-02 5.5610113E-02 5.5610113E-02 0.000000 2.557917 0.6700619 0.9590890 1.029175 1.048294 5.6214754E-02 5.6214754E-02 5.6214754E-02 2.1594105E-02 2.0688927E-02 5.6214754E-02 5.6214754E-02 0.000000 2.559084 0.6775791 0.9664326 1.032408 1.051437 5.6734044E-02 5.6734044E-02 5.6734044E-02 2.1817001E-02 2.0916212E-02 5.6734044E-02 5.6734044E-02 0.000000 2.559275 0.6848936 0.9735007 1.035369 1.054306 5.7324093E-02 5.7324093E-02 5.7324093E-02 2.2037594E-02 2.1101700E-02 5.7324093E-02 5.7324093E-02 0.000000 2.558576 0.6920266 0.9803146 1.050121 1.056927 5.7828959E-02 5.7828959E-02 5.7828959E-02 2.2254514E-02 2.1325741E-02 5.7828959E-02 5.7828959E-02 0.000000 2.557063 0.6974042 0.9852651 1.052457 1.056527 5.8250729E-02 5.8250729E-02 5.8250729E-02 2.2432737E-02 2.1508012E-02 5.8250729E-02 5.8250729E-02 0.000000 2.554373 0.7026189 0.9899973 1.054583 1.058714 5.8743369E-02 5.8743369E-02 5.8743369E-02 2.2609036E-02 2.1689169E-02 5.8743369E-02 5.8743369E-02 0.000000 2.551373 0.7092806 0.9945328 1.056518 1.070148 5.9153512E-02 5.9153512E-02 5.9153512E-02 2.2783561E-02 2.1868676E-02 5.9153512E-02 5.9153512E-02 0.000000 2.547737 0.7126148 0.9988805 1.055482 1.069026 5.9637018E-02 5.9637018E-02 5.9637018E-02 2.2956438E-02 2.2046886E-02 5.9637018E-02 5.9637018E-02 0.000000 2.543512 0.7190178 1.003061 1.057076 1.070546 5.9959732E-02 5.9959732E-02 5.9959732E-02 2.3127785E-02 2.2223942E-02 5.9959732E-02 5.9959732E-02 0.000000 2.532977 0.7220986 1.007081 1.064466 1.071913 6.0432807E-02 6.0432807E-02 6.0432807E-02 2.3297710E-02 2.2358939E-02 6.0432807E-02 6.0432807E-02 0.000000 2.527692 0.7282791 1.010954 1.069196 1.070328 6.0746398E-02 6.0746398E-02 6.0746398E-02 2.3428999E-02 2.2533825E-02 6.0746398E-02 6.0746398E-02 0.000000 2.519050 0.7311416 1.014686 1.070248 1.068610 6.1211474E-02 6.1211474E-02 6.1211474E-02 2.3558903E-02 2.2707788E-02 6.1211474E-02 6.1211474E-02 0.000000 2.509511 0.7339057 1.014997 1.071174 1.069579 6.1517037E-02 6.1517037E-02 6.1517037E-02 2.3724942E-02 2.2839606E-02 6.1517037E-02 6.1517037E-02 0.000000 2.502849 0.7365745 1.018478 1.071984 1.068996 6.1821036E-02 6.1821036E-02 6.1821036E-02 2.3889894E-02 2.3011809E-02 6.1821036E-02 6.1821036E-02 0.000000 2.495794 0.7423885 1.021851 1.069874 1.077891 6.2197860E-02 6.2197860E-02 6.2197860E-02 2.4016239E-02 2.3141794E-02 6.2197860E-02 6.2197860E-02 0.000000 2.482601 0.7448880 1.025113 1.070472 1.078430 6.2571555E-02 6.2571555E-02 6.2571555E-02 2.4141492E-02 2.3270901E-02 6.2571555E-02 6.2571555E-02 0.000000 2.474835 0.7473089 1.024969 1.070974 1.076050 6.2863752E-02 6.2863752E-02 6.2863752E-02 2.4266487E-02 2.3440814E-02 6.2863752E-02 6.2863752E-02 0.000000 2.466742 0.7496557 1.028033 1.068576 1.076399 6.3152932E-02 6.3152932E-02 6.3152932E-02 2.4388397E-02 2.3568388E-02 6.3152932E-02 6.3152932E-02 0.000000 2.452565 0.7519326 1.027699 1.078494 1.073841 6.3439250E-02 6.3439250E-02 6.3439250E-02 2.4512211E-02 2.3698052E-02 6.3439250E-02 6.3439250E-02 0.000000 2.449649 0.7541475 1.030587 1.078649 1.074021 6.3722849E-02 6.3722849E-02 6.3722849E-02 2.4633570E-02 2.3824152E-02 6.3722849E-02 6.3722849E-02 0.000000 2.440310 0.7595576 1.030083 1.078725 1.071304 6.4003862E-02 6.4003862E-02 6.4003862E-02 2.4754090E-02 2.3949584E-02 6.4003862E-02 6.4003862E-02 0.000000 2.431056 0.7616502 1.032817 1.078727 1.071333 6.4282410E-02 6.4282410E-02 6.4282410E-02 2.4875103E-02 2.4074381E-02 6.4282410E-02 6.4282410E-02 0.000000 2.415774 0.7636863 1.032155 1.075837 1.068474 6.4558610E-02 6.4558610E-02 6.4558610E-02 2.4994412E-02 2.4198575E-02 6.4558610E-02 6.4558610E-02 0.000000 2.411815 0.7656687 1.034742 1.075701 1.065548 6.4832561E-02 6.4832561E-02 6.4832561E-02 2.5110876E-02 2.4322193E-02 6.4832561E-02 6.4832561E-02 0.000000 2.396072 0.7675999 1.033947 1.075502 1.077870 6.5104373E-02 6.5104373E-02 6.5104373E-02 2.5193222E-02 2.4445266E-02 6.5104373E-02 6.5104373E-02 0.000000 2.385896 0.7694824 1.036407 1.072423 1.074734 6.5294802E-02 6.5294802E-02 6.5294802E-02 2.5308911E-02 2.4525538E-02 6.5294802E-02 6.5294802E-02 0.000000 2.375516 0.7713185 1.035483 1.072106 1.074368 6.5483123E-02 6.5483123E-02 6.5483123E-02 2.5386170E-02 2.4647523E-02 6.5483123E-02 6.5483123E-02 0.000000 2.364942 0.7731102 1.037823 1.071734 1.071119 6.5748878E-02 6.5748878E-02 6.5748878E-02 2.5502615E-02 2.4769034E-02 6.5748878E-02 6.5748878E-02 0.000000 2.354179 0.7748594 1.036784 1.068493 1.070644 6.6012837E-02 6.6012837E-02 6.6012837E-02 2.5617693E-02 2.4847630E-02 6.6012837E-02 6.6012837E-02 0.000000 2.172201 0.3123082 0.3166848 0.2679108 0.2614456 1.5560114E-02 1.5560114E-02 1.5560114E-02 6.9545712E-03 8.3566010E-03 1.5560114E-02 1.5560114E-02 0.000000 1.035358 0.1580479 0.2536201 0.3226571 0.3390985 2.5618147E-02 2.5618147E-02 2.5618147E-02 1.0692865E-02 1.0987891E-02 2.5618147E-02 2.5618147E-02 0.000000 1.248501 0.2315961 0.3756186 0.4701818 0.4939247 3.0941773E-02 3.0941773E-02 3.0941773E-02 1.2593700E-02 1.2514710E-02 3.0941773E-02 3.0941773E-02 0.000000 1.491892 0.2945362 0.4731274 0.5785113 0.6044574 3.4751926E-02 3.4751926E-02 3.4751926E-02 1.3897366E-02 1.3586981E-02 3.4751926E-02 3.4751926E-02 0.000000 1.692704 0.3467907 0.5497153 0.6603958 0.6876851 3.7706584E-02 3.7706584E-02 3.7706584E-02 1.4931490E-02 1.4487893E-02 3.7706584E-02 3.7706584E-02 0.000000 1.857521 0.3910577 0.6120879 0.7234611 0.7516253 4.0095165E-02 4.0095165E-02 4.0095165E-02 1.5771341E-02 1.5226262E-02 4.0095165E-02 4.0095165E-02 0.000000 1.990093 0.4292424 0.6639406 0.7749609 0.8037632 4.2133760E-02 4.2133760E-02 4.2133760E-02 1.6488183E-02 1.5842227E-02 4.2133760E-02 4.2133760E-02 0.000000 2.101390 0.4603978 0.7073249 0.8183187 0.8450049 4.3907683E-02 4.3907683E-02 4.3907683E-02 1.7122006E-02 1.6406504E-02 4.3907683E-02 4.3907683E-02 0.000000 2.196390 0.4900534 0.7441304 0.8515283 0.8785121 4.5493286E-02 4.5493286E-02 4.5493286E-02 1.7671393E-02 1.6923701E-02 4.5493286E-02 4.5493286E-02 0.000000 2.273983 0.5144126 0.7761776 0.8828005 0.9073840 4.6899557E-02 4.6899557E-02 4.6899557E-02 1.8173648E-02 1.7395394E-02 4.6899557E-02 4.6899557E-02 0.000000 2.323225 0.5363468 0.8037462 0.9072265 0.9306348 4.8127826E-02 4.8127826E-02 4.8127826E-02 1.8633313E-02 1.7822513E-02 4.8127826E-02 4.8127826E-02 0.000000 2.370544 0.5559986 0.8285607 0.9276671 0.9498398 4.9257208E-02 4.9257208E-02 4.9257208E-02 1.9048531E-02 1.8205617E-02 4.9257208E-02 4.9257208E-02 0.000000 2.413586 0.5734708 0.8492596 0.9470178 0.9693018 5.0289333E-02 5.0289333E-02 5.0289333E-02 1.9421289E-02 1.8545033E-02 5.0289333E-02 5.0289333E-02 0.000000 2.447831 0.5903242 0.8690609 0.9627362 0.9823520 5.1300842E-02 5.1300842E-02 5.1300842E-02 1.9790038E-02 1.8918104E-02 5.1300842E-02 5.1300842E-02 0.000000 2.473841 0.6036586 0.8849658 0.9776588 0.9945825 5.2220028E-02 5.2220028E-02 5.2220028E-02 2.0150665E-02 1.9209867E-02 5.2220028E-02 5.2220028E-02 0.000000 2.497273 0.6165001 0.9001890 0.9891506 1.006107 5.2974131E-02 5.2974131E-02 5.2974131E-02 2.0435147E-02 1.9536702E-02 5.2974131E-02 5.2974131E-02 0.000000 2.512943 0.6289176 0.9148291 1.000038 1.017027 5.3790715E-02 5.3790715E-02 5.3790715E-02 2.0750746E-02 1.9823587E-02 5.3790715E-02 5.3790715E-02 0.000000 2.526570 0.6409681 0.9257618 1.009007 1.024627 5.4518465E-02 5.4518465E-02 5.4518465E-02 2.1026466E-02 2.0105293E-02 5.4518465E-02 5.4518465E-02 0.000000 2.538670 0.6496097 0.9378243 1.017506 1.029222 5.5232812E-02 5.5232812E-02 5.5232812E-02 2.1262338E-02 2.0344740E-02 5.5232812E-02 5.5232812E-02 0.000000 2.549303 0.6594868 0.9478710 1.024190 1.033630 5.5860937E-02 5.5860937E-02 5.5860937E-02 2.1530962E-02 2.0581540E-02 5.5860937E-02 5.5860937E-02 0.000000 2.552915 0.6690960 0.9559267 1.030491 1.040356 5.6481931E-02 5.6481931E-02 5.6481931E-02 2.1762062E-02 2.0855956E-02 5.6481931E-02 5.6481931E-02 0.000000 2.560674 0.6769000 0.9652602 1.031501 1.050541 5.7094250E-02 5.7094250E-02 5.7094250E-02 2.1990381E-02 2.1048302E-02 5.7094250E-02 5.7094250E-02 0.000000 2.561954 0.6844765 0.9710444 1.034817 1.053762 5.7619691E-02 5.7619691E-02 5.7619691E-02 2.2214467E-02 2.1278722E-02 5.7619691E-02 5.7619691E-02 0.000000 2.556516 0.6918501 0.9797918 1.049905 1.056709 5.8137428E-02 5.8137428E-02 5.8137428E-02 2.2436198E-02 2.1507425E-02 5.8137428E-02 5.8137428E-02 0.000000 2.561652 0.6974496 0.9850346 1.052539 1.056611 5.8648109E-02 5.8648109E-02 5.8648109E-02 2.2618869E-02 2.1694314E-02 5.8648109E-02 5.8648109E-02 0.000000 2.554079 0.7028691 0.9900334 1.054944 1.056285 5.9152313E-02 5.9152313E-02 5.9152313E-02 2.2836378E-02 2.1920016E-02 5.9152313E-02 5.9152313E-02 0.000000 2.551852 0.7097210 0.9948158 1.057139 1.067953 5.9651855E-02 5.9651855E-02 5.9651855E-02 2.3014979E-02 2.2103515E-02 5.9651855E-02 5.9651855E-02 0.000000 2.548931 0.7132312 0.9993963 1.056345 1.069879 6.0067125E-02 6.0067125E-02 6.0067125E-02 2.3191735E-02 2.2285592E-02 6.0067125E-02 6.0067125E-02 0.000000 2.539612 0.7197980 1.003787 1.058169 1.068814 6.0476962E-02 6.0476962E-02 6.0476962E-02 2.3366781E-02 2.2466356E-02 6.0476962E-02 6.0476962E-02 0.000000 2.535454 0.7230316 1.008009 1.069287 1.070393 6.0959537E-02 6.0959537E-02 6.0959537E-02 2.3540234E-02 2.2645907E-02 6.0959537E-02 6.0959537E-02 0.000000 2.530746 0.7293588 1.012070 1.070670 1.069007 6.1281815E-02 6.1281815E-02 6.1281815E-02 2.3674782E-02 2.2824334E-02 6.1281815E-02 6.1281815E-02 0.000000 2.519760 0.7323555 1.015980 1.071908 1.070288 6.1755538E-02 6.1755538E-02 6.1755538E-02 2.3845296E-02 2.2960350E-02 6.1755538E-02 6.1755538E-02 0.000000 2.513614 0.7352478 1.016459 1.070200 1.068627 6.2071450E-02 6.2071450E-02 6.2071450E-02 2.4014521E-02 2.3136649E-02 6.2071450E-02 6.2071450E-02 0.000000 2.507424 0.7412673 1.020096 1.071177 1.079225 6.2459484E-02 6.2459484E-02 6.2459484E-02 2.4146957E-02 2.3270492E-02 6.2459484E-02 6.2459484E-02 0.000000 2.495039 0.7439625 1.023614 1.069227 1.077202 6.2843874E-02 6.2843874E-02 6.2843874E-02 2.4274681E-02 2.3444939E-02 6.2843874E-02 6.2843874E-02 0.000000 2.482261 0.7465679 1.023712 1.069977 1.077889 6.3146196E-02 6.3146196E-02 6.3146196E-02 2.4401203E-02 2.3576863E-02 6.3146196E-02 6.3146196E-02 0.000000 2.474885 0.7490890 1.027003 1.067814 1.075650 6.3445061E-02 6.3445061E-02 6.3445061E-02 2.4567414E-02 2.3710702E-02 6.3445061E-02 6.3445061E-02 0.000000 2.467160 0.7515308 1.026886 1.077365 1.073313 6.3740656E-02 6.3740656E-02 6.3740656E-02 2.4693104E-02 2.3882698E-02 6.3740656E-02 6.3740656E-02 0.000000 2.453331 0.7539020 1.029978 1.078334 1.073704 6.4033143E-02 6.4033143E-02 6.4033143E-02 2.4819620E-02 2.4012068E-02 6.4033143E-02 6.4033143E-02 0.000000 2.444967 0.7594603 1.032983 1.078610 1.071188 6.4322688E-02 6.4322688E-02 6.4322688E-02 2.4942113E-02 2.4140662E-02 6.4322688E-02 6.4322688E-02 0.000000 2.435932 0.7616941 1.032582 1.075980 1.071409 6.4609431E-02 6.4609431E-02 6.4609431E-02 2.5064625E-02 2.4268519E-02 6.4609431E-02 6.4609431E-02 0.000000 2.426971 0.7638645 1.032099 1.076093 1.068734 6.4893514E-02 6.4893514E-02 6.4893514E-02 2.5187245E-02 2.4395676E-02 6.4893514E-02 6.4893514E-02 0.000000 2.417746 0.7659748 1.034855 1.073311 1.065983 6.5175056E-02 6.5175056E-02 6.5175056E-02 2.5308946E-02 2.4522169E-02 6.5175056E-02 6.5175056E-02 0.000000 2.402491 0.7680280 1.034219 1.073279 1.075630 6.5454185E-02 6.5454185E-02 6.5454185E-02 2.5390277E-02 2.4648029E-02 6.5454185E-02 6.5454185E-02 0.000000 2.392778 0.7700270 1.036832 1.073179 1.075480 6.5731004E-02 6.5731004E-02 6.5731004E-02 2.5510741E-02 2.4773290E-02 6.5731004E-02 6.5731004E-02 0.000000 2.382839 0.7719743 1.036054 1.070197 1.072436 6.6005617E-02 6.6005617E-02 6.6005617E-02 2.5629655E-02 2.4897976E-02 6.6005617E-02 6.6005617E-02 0.000000 2.372685 0.7738725 1.038534 1.069973 1.069332 6.6280417E-02 6.6280417E-02 6.6280417E-02 2.5747884E-02 2.4979582E-02 6.6280417E-02 6.6280417E-02 0.000000 2.362322 0.7757236 1.037629 1.066871 1.068995 6.6471018E-02 6.6471018E-02 6.6471018E-02 2.5865458E-02 2.5103133E-02 6.6471018E-02 6.6471018E-02 0.000000 2.345987 0.7742414 1.036664 1.070894 1.068603 6.6659540E-02 6.6659540E-02 6.6659540E-02 2.5943963E-02 2.5226187E-02 6.6659540E-02 6.6659540E-02 0.000000 2.341025 0.7760023 1.038967 1.075788 1.065328 6.6925801E-02 6.6925801E-02 6.6925801E-02 2.6021786E-02 2.5348766E-02 6.6925801E-02 6.6925801E-02 0.000000 2.172346 0.3123391 0.3164951 0.2678086 0.2613527 1.5564113E-02 1.5564113E-02 1.5564113E-02 6.9803377E-03 8.3585475E-03 1.5564113E-02 1.5564113E-02 0.000000 1.033955 0.1587064 0.2552667 0.3244335 0.3409236 2.5788996E-02 2.5788996E-02 2.5788996E-02 1.0804371E-02 1.1068859E-02 2.5788996E-02 2.5788996E-02 0.000000 1.250840 0.2326649 0.3780357 0.4737282 0.4975551 3.1286176E-02 3.1286176E-02 3.1286176E-02 1.2727373E-02 1.2611968E-02 3.1286176E-02 3.1286176E-02 0.000000 1.494907 0.2969815 0.4761087 0.5827155 0.6098646 3.5203714E-02 3.5203714E-02 3.5203714E-02 1.4109285E-02 1.3730616E-02 3.5203714E-02 3.5203714E-02 0.000000 1.698646 0.3507654 0.5543976 0.6650775 0.6924340 3.8193278E-02 3.8193278E-02 3.8193278E-02 1.5157280E-02 1.4642521E-02 3.8193278E-02 3.8193278E-02 0.000000 1.861589 0.3954179 0.6171764 0.7297327 0.7567343 4.0680028E-02 4.0680028E-02 4.0680028E-02 1.6008319E-02 1.5390056E-02 4.0680028E-02 4.0680028E-02 0.000000 1.997129 0.4339190 0.6693588 0.7815650 0.8091645 4.2743936E-02 4.2743936E-02 4.2743936E-02 1.6770111E-02 1.6050100E-02 4.2743936E-02 4.2743936E-02 0.000000 2.111472 0.4653286 0.7130166 0.8239100 0.8506455 4.4538278E-02 4.4538278E-02 4.4538278E-02 1.7376628E-02 1.6658626E-02 4.4538278E-02 4.4538278E-02 0.000000 2.204209 0.4952125 0.7500505 0.8586320 0.8843569 4.6144329E-02 4.6144329E-02 4.6144329E-02 1.7968649E-02 1.7182972E-02 4.6144329E-02 4.6144329E-02 0.000000 2.284827 0.5197598 0.7837971 0.8887801 0.9134091 4.7565397E-02 4.7565397E-02 4.7565397E-02 1.8477343E-02 1.7661121E-02 4.7565397E-02 4.7565397E-02 0.000000 2.329036 0.5418591 0.8100410 0.9133660 0.9354605 4.8807822E-02 4.8807822E-02 4.8807822E-02 1.8941846E-02 1.8094089E-02 4.8807822E-02 4.8807822E-02 0.000000 2.376613 0.5616582 0.8350106 0.9339465 0.9561564 4.9951218E-02 4.9951218E-02 4.9951218E-02 1.9362455E-02 1.8482495E-02 4.9951218E-02 4.9951218E-02 0.000000 2.419883 0.5792601 0.8558474 0.9534262 0.9730040 5.1069930E-02 5.1069930E-02 5.1069930E-02 1.9742616E-02 1.8865261E-02 5.1069930E-02 5.1069930E-02 0.000000 2.454339 0.5947433 0.8757765 0.9692561 0.9889049 5.2018337E-02 5.2018337E-02 5.2018337E-02 2.0113340E-02 1.9204564E-02 5.2018337E-02 5.2018337E-02 0.000000 2.480543 0.6096692 0.8917927 0.9815390 1.001236 5.2947901E-02 5.2947901E-02 5.2947901E-02 2.0478293E-02 1.9539503E-02 5.2947901E-02 5.2947901E-02 0.000000 2.504155 0.6226065 0.9071205 0.9931170 1.012856 5.3788573E-02 5.3788573E-02 5.3788573E-02 2.0802410E-02 1.9873068E-02 5.3788573E-02 5.3788573E-02 0.000000 2.519991 0.6351135 0.9218585 1.004080 1.021077 5.4613445E-02 5.4613445E-02 5.4613445E-02 2.1085855E-02 2.0161750E-02 5.4613445E-02 5.4613445E-02 0.000000 2.533762 0.6457097 0.9328768 1.014513 1.028746 5.5347934E-02 5.5347934E-02 5.5347934E-02 2.1364963E-02 2.0447293E-02 5.5347934E-02 5.5347934E-02 0.000000 2.546009 0.6559604 0.9434190 1.021687 1.030939 5.6072395E-02 5.6072395E-02 5.6072395E-02 2.1641864E-02 2.0690199E-02 5.6072395E-02 5.6072395E-02 0.000000 2.551075 0.6643500 0.9535357 1.028432 1.035442 5.6632645E-02 5.6632645E-02 5.6632645E-02 2.1915751E-02 2.0930335E-02 5.6632645E-02 5.6632645E-02 0.000000 2.554464 0.6740186 0.9632762 1.032493 1.048784 5.7337008E-02 5.7337008E-02 5.7337008E-02 2.2148233E-02 2.1208210E-02 5.7337008E-02 5.7337008E-02 0.000000 2.562652 0.6834462 0.9694344 1.036195 1.052386 5.7877157E-02 5.7877157E-02 5.7877157E-02 2.2377741E-02 2.1443807E-02 5.7877157E-02 5.7877157E-02 0.000000 2.558302 0.6895040 0.9785212 1.048890 1.055682 5.8485486E-02 5.8485486E-02 5.8485486E-02 2.2604555E-02 2.1637743E-02 5.8485486E-02 5.8485486E-02 0.000000 2.558690 0.6953388 0.9840767 1.051845 1.055908 5.9009176E-02 5.9009176E-02 5.9009176E-02 2.2791922E-02 2.1868924E-02 5.9009176E-02 5.9009176E-02 0.000000 2.558179 0.7025624 0.9893634 1.054547 1.055883 5.9525184E-02 5.9525184E-02 5.9525184E-02 2.3013944E-02 2.2098934E-02 5.9525184E-02 5.9525184E-02 0.000000 2.556406 0.7096184 0.9944121 1.057018 1.067835 5.9959196E-02 5.9959196E-02 5.9959196E-02 2.3196725E-02 2.2286518E-02 5.9959196E-02 5.9959196E-02 0.000000 2.554260 0.7133179 0.9992386 1.056483 1.070015 6.0462635E-02 6.0462635E-02 6.0462635E-02 2.3414724E-02 2.2472488E-02 6.0462635E-02 6.0462635E-02 0.000000 2.545657 0.7200604 1.003858 1.058549 1.069189 6.0960378E-02 6.0960378E-02 6.0960378E-02 2.3556244E-02 2.2656975E-02 6.0960378E-02 6.0960378E-02 0.000000 2.536405 0.7234617 1.008294 1.069879 1.070991 6.1374888E-02 6.1374888E-02 6.1374888E-02 2.3770729E-02 2.2840088E-02 6.1374888E-02 6.1374888E-02 0.000000 2.526550 0.7299389 1.012554 1.068660 1.069816 6.1784189E-02 6.1784189E-02 6.1784189E-02 2.3908662E-02 2.3021933E-02 6.1784189E-02 6.1784189E-02 0.000000 2.521901 0.7330785 1.016654 1.070093 1.068486 6.2191200E-02 6.2191200E-02 6.2191200E-02 2.4082514E-02 2.3202596E-02 6.2191200E-02 6.2191200E-02 0.000000 2.516303 0.7361048 1.017304 1.071380 1.069822 6.2591501E-02 6.2591501E-02 6.2591501E-02 2.4255827E-02 2.3382166E-02 6.2591501E-02 6.2591501E-02 0.000000 2.504843 0.7422518 1.021106 1.069722 1.077742 6.2908992E-02 6.2908992E-02 6.2908992E-02 2.4387714E-02 2.3519011E-02 6.2908992E-02 6.2908992E-02 0.000000 2.498699 0.7450655 1.024782 1.070748 1.078703 6.3300923E-02 6.3300923E-02 6.3300923E-02 2.4521139E-02 2.3699338E-02 6.3300923E-02 6.3300923E-02 0.000000 2.486362 0.7477826 1.025026 1.068847 1.076723 6.3689098E-02 6.3689098E-02 6.3689098E-02 2.4689544E-02 2.3834027E-02 6.3689098E-02 6.3689098E-02 0.000000 2.479400 0.7504093 1.028456 1.069645 1.074631 6.3994832E-02 6.3994832E-02 6.3994832E-02 2.4820747E-02 2.4009664E-02 6.3994832E-02 6.3994832E-02 0.000000 2.466290 0.7529548 1.028469 1.077074 1.075254 6.4297006E-02 6.4297006E-02 6.4297006E-02 2.4985293E-02 2.4142466E-02 6.4297006E-02 6.4297006E-02 0.000000 2.452828 0.7554170 1.031686 1.077570 1.072959 6.4595819E-02 6.4595819E-02 6.4595819E-02 2.5112119E-02 2.4274366E-02 6.4595819E-02 6.4595819E-02 0.000000 2.444810 0.7610676 1.031493 1.077971 1.070571 6.4891443E-02 6.4891443E-02 6.4891443E-02 2.5240663E-02 2.4447622E-02 6.4891443E-02 6.4891443E-02 0.000000 2.436102 0.7633868 1.034522 1.075462 1.068097 6.5184042E-02 6.5184042E-02 6.5184042E-02 2.5364552E-02 2.4577934E-02 6.5184042E-02 6.5184042E-02 0.000000 2.421670 0.7656385 1.034147 1.075690 1.065538 6.5473773E-02 6.5473773E-02 6.5473773E-02 2.5489397E-02 2.4707479E-02 6.5473773E-02 6.5473773E-02 0.000000 2.418517 0.7678261 1.033687 1.073019 1.075375 6.5760761E-02 6.5760761E-02 6.5760761E-02 2.5612790E-02 2.4836292E-02 6.5760761E-02 6.5760761E-02 0.000000 2.403539 0.7699532 1.036466 1.073093 1.075395 6.6045150E-02 6.6045150E-02 6.6045150E-02 2.5696991E-02 2.4964415E-02 6.6045150E-02 6.6045150E-02 0.000000 2.388308 0.7720226 1.035849 1.070277 1.072515 6.6329308E-02 6.6329308E-02 6.6329308E-02 2.5818666E-02 2.5091877E-02 6.6329308E-02 6.6329308E-02 0.000000 2.384399 0.7740372 1.038481 1.070212 1.069567 6.6608563E-02 6.6608563E-02 6.6608563E-02 2.5939569E-02 2.5218712E-02 6.6608563E-02 6.6608563E-02 0.000000 2.368701 0.7727134 1.037722 1.067267 1.069381 6.6885546E-02 6.6885546E-02 6.6885546E-02 2.6021253E-02 2.5344947E-02 6.6885546E-02 6.6885546E-02 0.000000 2.358563 0.7746235 1.036896 1.075519 1.066303 6.7080565E-02 6.7080565E-02 6.7080565E-02 2.6140660E-02 2.5470614E-02 6.7080565E-02 6.7080565E-02 0.000000 2.348222 0.7764862 1.039333 1.076452 1.065995 6.7273371E-02 6.7273371E-02 6.7273371E-02 2.6259391E-02 2.5552887E-02 6.7273371E-02 6.7273371E-02 0.000000 2.331903 0.7783037 1.038385 1.073243 1.062808 6.7543969E-02 6.7543969E-02 6.7543969E-02 2.6338866E-02 2.5677422E-02 6.7543969E-02 6.7543969E-02 0.000000 2.326685 0.7800781 1.037379 1.072807 1.059568 6.7812651E-02 6.7812651E-02 6.7812651E-02 2.6456283E-02 2.5758499E-02 6.7812651E-02 6.7812651E-02 0.000000 2.172478 0.3123459 0.3165064 0.2676785 0.2612312 1.5567755E-02 1.5567755E-02 1.5567755E-02 6.9824848E-03 8.3603216E-03 1.5567755E-02 1.5567755E-02 0.000000 1.035458 0.1593049 0.2560617 0.3261235 0.3426602 2.5956389E-02 2.5956389E-02 2.5956389E-02 1.0886295E-02 1.1117594E-02 2.5956389E-02 2.5956389E-02 0.000000 1.254900 0.2345334 0.3803343 0.4761547 0.5000351 3.1563103E-02 3.1563103E-02 3.1563103E-02 1.2889309E-02 1.2707703E-02 3.1563103E-02 3.1563103E-02 0.000000 1.502024 0.2993140 0.4789370 0.5856491 0.6128508 3.5584055E-02 3.5584055E-02 3.5584055E-02 1.4256238E-02 1.3872537E-02 3.5584055E-02 3.5584055E-02 0.000000 1.704264 0.3534596 0.5576284 0.6695669 0.6969901 3.8674053E-02 3.8674053E-02 3.8674053E-02 1.5348297E-02 1.4830252E-02 3.8674053E-02 3.8674053E-02 0.000000 1.870241 0.3984015 0.6220748 0.7345688 0.7616298 4.1186649E-02 4.1186649E-02 4.1186649E-02 1.6242497E-02 1.5589260E-02 4.1186649E-02 4.1186649E-02 0.000000 2.006329 0.4371434 0.6745676 0.7866805 0.8143351 4.3274082E-02 4.3274082E-02 4.3274082E-02 1.6980106E-02 1.6255671E-02 4.3274082E-02 4.3274082E-02 0.000000 2.115872 0.4700894 0.7184820 0.8292579 0.8560434 4.5088191E-02 4.5088191E-02 4.5088191E-02 1.7661843E-02 1.6871605E-02 4.5088191E-02 4.5088191E-02 0.000000 2.211570 0.4988100 0.7557339 0.8641754 0.8899458 4.6783119E-02 4.6783119E-02 4.6783119E-02 1.8225860E-02 1.7402451E-02 4.6783119E-02 4.6783119E-02 0.000000 2.289755 0.5235049 0.7881718 0.8944954 0.9178232 4.8147652E-02 4.8147652E-02 4.8147652E-02 1.8741660E-02 1.7886477E-02 4.8147652E-02 4.8147652E-02 0.000000 2.334330 0.5457346 0.8160802 0.9192293 0.9413620 4.9478538E-02 4.9478538E-02 4.9478538E-02 1.9211644E-02 1.8324774E-02 4.9478538E-02 4.9478538E-02 0.000000 2.382146 0.5671110 0.8411986 0.9399422 0.9621911 5.0633822E-02 5.0633822E-02 5.0633822E-02 1.9675003E-02 1.8756479E-02 5.0633822E-02 5.0633822E-02 0.000000 2.425627 0.5848381 0.8621635 0.9568199 0.9791552 5.1763687E-02 5.1763687E-02 5.1763687E-02 2.0057231E-02 1.9144107E-02 5.1763687E-02 5.1763687E-02 0.000000 2.454827 0.6004285 0.8822121 0.9727417 0.9924029 5.2722670E-02 5.2722670E-02 5.2722670E-02 2.0432360E-02 1.9487826E-02 5.2722670E-02 5.2722670E-02 0.000000 2.481034 0.6154552 0.8983336 0.9878619 1.004817 5.3664450E-02 5.3664450E-02 5.3664450E-02 2.0801481E-02 1.9829288E-02 5.3664450E-02 5.3664450E-02 0.000000 2.504791 0.6284835 0.9137605 0.9995284 1.016518 5.4513332E-02 5.4513332E-02 5.4513332E-02 2.1093301E-02 2.0164687E-02 5.4513332E-02 5.4513332E-02 0.000000 2.526281 0.6410754 0.9253997 1.007802 1.024809 5.5345014E-02 5.5345014E-02 5.5345014E-02 2.1416236E-02 2.0457031E-02 5.5345014E-02 5.5345014E-02 0.000000 2.534649 0.6502009 0.9396931 1.018304 1.030077 5.6089405E-02 5.6089405E-02 5.6089405E-02 2.1700319E-02 2.0746091E-02 5.6089405E-02 5.6089405E-02 0.000000 2.547017 0.6620681 0.9503114 1.025542 1.035090 5.6820463E-02 5.6820463E-02 5.6820463E-02 2.1980705E-02 2.1032274E-02 5.6820463E-02 5.6820463E-02 0.000000 2.552196 0.6705199 0.9572699 1.029868 1.048979 5.7388946E-02 5.7388946E-02 5.7388946E-02 2.2255892E-02 2.1275636E-02 5.7388946E-02 5.7388946E-02 0.000000 2.561391 0.6786833 0.9670719 1.033986 1.052998 5.8097981E-02 5.8097981E-02 5.8097981E-02 2.2491083E-02 2.1516412E-02 5.8097981E-02 5.8097981E-02 0.000000 2.558235 0.6865888 0.9765281 1.041411 1.053882 5.8644108E-02 5.8644108E-02 5.8644108E-02 2.2723192E-02 2.1754565E-02 5.8644108E-02 5.8644108E-02 0.000000 2.559704 0.6942646 0.9824240 1.050411 1.057251 5.9258457E-02 5.9258457E-02 5.9258457E-02 2.2952512E-02 2.1991644E-02 5.9258457E-02 5.9258457E-02 0.000000 2.560182 0.7017273 0.9880226 1.053432 1.057549 5.9788972E-02 5.9788972E-02 5.9788972E-02 2.3179295E-02 2.2226125E-02 5.9788972E-02 5.9788972E-02 0.000000 2.559349 0.7090037 0.9933599 1.056198 1.069835 6.0310733E-02 6.0310733E-02 6.0310733E-02 2.3366485E-02 2.2458892E-02 6.0310733E-02 6.0310733E-02 0.000000 2.552286 0.7129077 0.9984484 1.055938 1.069479 6.0747862E-02 6.0747862E-02 6.0747862E-02 2.3551358E-02 2.2648931E-02 6.0747862E-02 6.0747862E-02 0.000000 2.550209 0.7198391 1.003316 1.058261 1.068906 6.1256219E-02 6.1256219E-02 6.1256219E-02 2.3771552E-02 2.2837291E-02 6.1256219E-02 6.1256219E-02 0.000000 2.541672 0.7234156 1.007979 1.069834 1.070946 6.1758708E-02 6.1758708E-02 6.1758708E-02 2.3914862E-02 2.3024101E-02 6.1758708E-02 6.1758708E-02 0.000000 2.532480 0.7300562 1.012453 1.068835 1.069993 6.2101804E-02 6.2101804E-02 6.2101804E-02 2.4131421E-02 2.3209481E-02 6.2101804E-02 6.2101804E-02 0.000000 2.522684 0.7333522 1.016751 1.070474 1.068872 6.2593982E-02 6.2593982E-02 6.2593982E-02 2.4271751E-02 2.3393536E-02 6.2593982E-02 6.2593982E-02 0.000000 2.523441 0.7365172 1.017587 1.071957 1.068432 6.2924318E-02 6.2924318E-02 6.2924318E-02 2.4447666E-02 2.3576360E-02 6.2924318E-02 6.2924318E-02 0.000000 2.512518 0.7427987 1.021568 1.070482 1.078492 6.3407123E-02 6.3407123E-02 6.3407123E-02 2.4621733E-02 2.3760859E-02 6.3407123E-02 6.3407123E-02 0.000000 2.501107 0.7457380 1.025404 1.068873 1.076803 6.3728169E-02 6.3728169E-02 6.3728169E-02 2.4756514E-02 2.3941431E-02 6.3728169E-02 6.3728169E-02 0.000000 2.489235 0.7485734 1.025803 1.069946 1.074985 6.4044870E-02 6.4044870E-02 6.4044870E-02 2.4890998E-02 2.4078988E-02 6.4044870E-02 6.4044870E-02 0.000000 2.476939 0.7513114 1.029379 1.074768 1.075867 6.4436533E-02 6.4436533E-02 6.4436533E-02 2.5060264E-02 2.4215432E-02 6.4436533E-02 6.4436533E-02 0.000000 2.470016 0.7539623 1.029530 1.078445 1.073816 6.4824566E-02 6.4824566E-02 6.4824566E-02 2.5193434E-02 2.4393005E-02 6.4824566E-02 6.4824566E-02 0.000000 2.456943 0.7597858 1.032882 1.076256 1.071661 6.5129898E-02 6.5129898E-02 6.5129898E-02 2.5359521E-02 2.4527488E-02 6.5129898E-02 6.5129898E-02 0.000000 2.449292 0.7622707 1.032813 1.076788 1.069406 6.5431781E-02 6.5431781E-02 6.5431781E-02 2.5488649E-02 2.4703389E-02 6.5431781E-02 6.5431781E-02 0.000000 2.435155 0.7646794 1.032638 1.077225 1.067060 6.5730393E-02 6.5730393E-02 6.5730393E-02 2.5616197E-02 2.4836123E-02 6.5730393E-02 6.5730393E-02 0.000000 2.426828 0.7670161 1.035694 1.074752 1.075719 6.6025905E-02 6.6025905E-02 6.6025905E-02 2.5742723E-02 2.4968017E-02 6.6025905E-02 6.6025905E-02 0.000000 2.418203 0.7692847 1.035339 1.072196 1.074513 6.6320732E-02 6.6320732E-02 6.6320732E-02 2.5868278E-02 2.5099114E-02 6.6320732E-02 6.6320732E-02 0.000000 2.403517 0.7714887 1.034894 1.069562 1.071812 6.6610202E-02 6.6610202E-02 6.6610202E-02 2.5992911E-02 2.5229452E-02 6.6610202E-02 6.6610202E-02 0.000000 2.388562 0.7736315 1.037697 1.069670 1.071862 6.6896997E-02 6.6896997E-02 6.6896997E-02 2.6078165E-02 2.5359070E-02 6.6896997E-02 6.6896997E-02 0.000000 2.379134 0.7757162 1.037098 1.066887 1.069013 6.7181252E-02 6.7181252E-02 6.7181252E-02 2.6201030E-02 2.5488004E-02 6.7181252E-02 6.7181252E-02 0.000000 2.369465 0.7744569 1.036426 1.071965 1.068920 6.7383185E-02 6.7383185E-02 6.7383185E-02 2.6284512E-02 2.5616286E-02 6.7383185E-02 6.7383185E-02 0.000000 2.353783 0.7764309 1.039009 1.076390 1.065933 6.7582652E-02 6.7582652E-02 6.7582652E-02 2.6405770E-02 2.5743945E-02 6.7582652E-02 6.7582652E-02 0.000000 2.343667 0.7783548 1.038200 1.073324 1.062889 6.7859761E-02 6.7859761E-02 6.7859761E-02 2.6526298E-02 2.5872670E-02 6.7859761E-02 6.7859761E-02 0.000000 2.333341 0.7802310 1.037328 1.073026 1.059788 6.8134740E-02 6.8134740E-02 6.8134740E-02 2.6648937E-02 2.5999360E-02 6.8134740E-02 6.8134740E-02 0.000000 2.322540 0.7820616 1.039724 1.069843 1.056630 6.8327531E-02 6.8327531E-02 6.8327531E-02 2.6729295E-02 2.6082316E-02 6.8327531E-02 6.8327531E-02 0.000000 2.311814 0.7838511 1.038733 1.069433 1.053421 6.8518229E-02 6.8518229E-02 6.8518229E-02 2.6808936E-02 2.6207887E-02 6.8518229E-02 6.8518229E-02 0.000000 2.172597 0.3123322 0.3164964 0.2675247 0.2610855 1.5571092E-02 1.5571092E-02 1.5571092E-02 6.9844625E-03 8.3619487E-03 1.5571092E-02 1.5571092E-02 0.000000 1.033752 0.1598520 0.2567880 0.3269542 0.3435086 2.6120748E-02 2.6120748E-02 2.6120748E-02 1.0966960E-02 1.1196737E-02 2.6120748E-02 2.6120748E-02 0.000000 1.258777 0.2363275 0.3825314 0.4784672 0.5023963 3.1899236E-02 3.1899236E-02 3.1899236E-02 1.3019311E-02 1.2835282E-02 3.1899236E-02 3.1899236E-02 0.000000 1.504526 0.3015471 0.4828173 0.5895454 0.6168207 3.5958566E-02 3.5958566E-02 3.5958566E-02 1.4432495E-02 1.4012949E-02 3.5958566E-02 3.5958566E-02 0.000000 1.707244 0.3560375 0.5619880 0.6738926 0.7013810 3.9079521E-02 3.9079521E-02 3.9079521E-02 1.5536878E-02 1.4981121E-02 3.9079521E-02 3.9079521E-02 0.000000 1.873624 0.4024911 0.6254517 0.7392228 0.7663413 4.1616704E-02 4.1616704E-02 4.1616704E-02 1.6441062E-02 1.5784757E-02 4.1616704E-02 4.1616704E-02 0.000000 2.010058 0.4402210 0.6781884 0.7915991 0.8193069 4.3795887E-02 4.3795887E-02 4.3795887E-02 1.7220734E-02 1.6459215E-02 4.3795887E-02 4.3795887E-02 0.000000 2.125163 0.4747036 0.7237546 0.8343949 0.8612318 4.5702074E-02 4.5702074E-02 4.5702074E-02 1.7876077E-02 1.7082345E-02 4.5702074E-02 4.5702074E-02 0.000000 2.218540 0.5036250 0.7612159 0.8681839 0.8953133 4.7340617E-02 4.7340617E-02 4.7340617E-02 1.8480849E-02 1.7619502E-02 4.7340617E-02 4.7340617E-02 0.000000 2.299716 0.5284925 0.7938292 0.8986520 0.9220018 4.8791960E-02 4.8791960E-02 4.8791960E-02 1.9002542E-02 1.8109227E-02 4.8791960E-02 4.8791960E-02 0.000000 2.339180 0.5508718 0.8218945 0.9221659 0.9470234 5.0137065E-02 5.0137065E-02 5.0137065E-02 1.9512981E-02 1.8591024E-02 5.0137065E-02 5.0137065E-02 0.000000 2.387218 0.5709195 0.8471543 0.9443396 0.9652440 5.1305491E-02 5.1305491E-02 5.1305491E-02 1.9946044E-02 1.8989258E-02 5.1305491E-02 5.1305491E-02 0.000000 2.430894 0.5902286 0.8682401 0.9626853 0.9823031 5.2371748E-02 5.2371748E-02 5.2371748E-02 2.0368220E-02 1.9420270E-02 5.2371748E-02 5.2371748E-02 0.000000 2.460273 0.6044234 0.8868338 0.9787098 0.9970185 5.3417426E-02 5.3417426E-02 5.3417426E-02 2.0711739E-02 1.9770565E-02 5.3417426E-02 5.3417426E-02 0.000000 2.486641 0.6210496 0.9046265 0.9911659 1.008128 5.4368254E-02 5.4368254E-02 5.4368254E-02 2.1084674E-02 2.0113936E-02 5.4368254E-02 5.4368254E-02 0.000000 2.510554 0.6341617 0.9169692 1.002906 1.019902 5.5148344E-02 5.5148344E-02 5.5148344E-02 2.1416031E-02 2.0453244E-02 5.5148344E-02 5.5148344E-02 0.000000 2.526509 0.6452963 0.9318677 1.014022 1.028260 5.5989828E-02 5.5989828E-02 5.5989828E-02 2.1707762E-02 2.0749137E-02 5.5989828E-02 5.5989828E-02 0.000000 2.540678 0.6560280 0.9430339 1.021813 1.031073 5.6740589E-02 5.6740589E-02 5.6740589E-02 2.2031710E-02 2.1041606E-02 5.6740589E-02 5.6740589E-02 0.000000 2.547472 0.6664079 0.9537120 1.029112 1.036174 5.7480156E-02 5.7480156E-02 5.7480156E-02 2.2276701E-02 2.1331066E-02 5.7480156E-02 5.7480156E-02 0.000000 2.552756 0.6764771 0.9639599 1.030982 1.050030 5.8129441E-02 5.8129441E-02 5.8129441E-02 2.2554638E-02 2.1618931E-02 5.8129441E-02 5.8129441E-02 0.000000 2.556311 0.6846968 0.9705808 1.035178 1.054121 5.8768012E-02 5.8768012E-02 5.8768012E-02 2.2792313E-02 2.1862082E-02 5.8768012E-02 5.8768012E-02 0.000000 2.558966 0.6926582 0.9800907 1.048261 1.055075 5.9397917E-02 5.9397917E-02 5.9397917E-02 2.3063924E-02 2.2103466E-02 5.9397917E-02 5.9397917E-02 0.000000 2.560523 0.7003815 0.9860334 1.051626 1.058514 5.9940912E-02 5.9940912E-02 5.9940912E-02 2.3258429E-02 2.2342669E-02 5.9940912E-02 5.9940912E-02 0.000000 2.555342 0.7063017 0.9916797 1.054710 1.068505 6.0475245E-02 6.0475245E-02 6.0475245E-02 2.3487426E-02 2.2579897E-02 6.0475245E-02 6.0475245E-02 0.000000 2.554557 0.7120228 0.9970569 1.057539 1.068301 6.1001886E-02 6.1001886E-02 6.1001886E-02 2.3676606E-02 2.2774084E-02 6.1001886E-02 6.1001886E-02 0.000000 2.553314 0.7191582 1.002191 1.057341 1.070810 6.1521459E-02 6.1521459E-02 6.1521459E-02 2.3900919E-02 2.2966377E-02 6.1521459E-02 6.1521459E-02 0.000000 2.545548 0.7229191 1.007097 1.069186 1.070292 6.2036932E-02 6.2036932E-02 6.2036932E-02 2.4085602E-02 2.3198416E-02 6.2036932E-02 6.2036932E-02 0.000000 2.537071 0.7297379 1.011798 1.068421 1.069575 6.2466063E-02 6.2466063E-02 6.2466063E-02 2.4269000E-02 2.3387475E-02 6.2466063E-02 6.2466063E-02 0.000000 2.527936 0.7331933 1.016309 1.070279 1.068675 6.2889308E-02 6.2889308E-02 6.2889308E-02 2.4449997E-02 2.3575047E-02 6.2889308E-02 6.2889308E-02 0.000000 2.518194 0.7365144 1.017344 1.071968 1.068436 6.3307077E-02 6.3307077E-02 6.3307077E-02 2.4628898E-02 2.3764059E-02 6.3307077E-02 6.3307077E-02 0.000000 2.513209 0.7429385 1.021510 1.070687 1.078695 6.3719735E-02 6.3719735E-02 6.3719735E-02 2.4768256E-02 2.3948926E-02 6.3719735E-02 6.3719735E-02 0.000000 2.508102 0.7460113 1.025520 1.069261 1.077186 6.4048670E-02 6.4048670E-02 6.4048670E-02 2.4944516E-02 2.4090575E-02 6.4048670E-02 6.4048670E-02 0.000000 2.496731 0.7489719 1.026083 1.067698 1.075538 6.4530998E-02 6.4530998E-02 6.4530998E-02 2.5117952E-02 2.4273034E-02 6.4530998E-02 6.4530998E-02 0.000000 2.484904 0.7518278 1.026506 1.078413 1.073761 6.4851001E-02 6.4851001E-02 6.4851001E-02 2.5255086E-02 2.4454456E-02 6.4851001E-02 6.4851001E-02 0.000000 2.472645 0.7545899 1.030109 1.079304 1.071863 6.5166816E-02 6.5166816E-02 6.5166816E-02 2.5387170E-02 2.4592591E-02 6.5166816E-02 6.5166816E-02 0.000000 2.459988 0.7605194 1.030283 1.077259 1.069853 6.5478690E-02 6.5478690E-02 6.5478690E-02 2.5558453E-02 2.4772039E-02 6.5478690E-02 6.5478690E-02 0.000000 2.446946 0.7631037 1.033658 1.075106 1.067738 6.5866329E-02 6.5866329E-02 6.5866329E-02 2.5689492E-02 2.4908142E-02 6.5866329E-02 6.5866329E-02 0.000000 2.438957 0.7656065 1.033611 1.075673 1.065521 6.6171050E-02 6.6171050E-02 6.6171050E-02 2.5819359E-02 2.5085844E-02 6.6171050E-02 6.6171050E-02 0.000000 2.430975 0.7680323 1.036782 1.073325 1.075677 6.6474535E-02 6.6474535E-02 6.6474535E-02 2.5948122E-02 2.5220133E-02 6.6474535E-02 6.6474535E-02 0.000000 2.416896 0.7703856 1.036537 1.073708 1.073173 6.6772431E-02 6.6772431E-02 6.6772431E-02 2.6075834E-02 2.5353555E-02 6.6772431E-02 6.6772431E-02 0.000000 2.402517 0.7726702 1.036201 1.071187 1.073411 6.7067310E-02 6.7067310E-02 6.7067310E-02 2.6202550E-02 2.5486147E-02 6.7067310E-02 6.7067310E-02 0.000000 2.393634 0.7748898 1.035779 1.068587 1.070739 6.7279473E-02 6.7279473E-02 6.7279473E-02 2.6328318E-02 2.5617955E-02 6.7279473E-02 6.7279473E-02 0.000000 2.384482 0.7737597 1.038599 1.065910 1.067992 6.7568660E-02 6.7568660E-02 6.7568660E-02 2.6414542E-02 2.5749017E-02 6.7568660E-02 6.7568660E-02 0.000000 2.369294 0.7758560 1.038018 1.075629 1.065168 6.7855254E-02 6.7855254E-02 6.7855254E-02 2.6538497E-02 2.5881041E-02 6.7855254E-02 6.7855254E-02 0.000000 2.353861 0.7778965 1.037362 1.075546 1.062281 6.8139352E-02 6.8139352E-02 6.8139352E-02 2.6664428E-02 2.6010912E-02 6.8139352E-02 6.8139352E-02 0.000000 2.343980 0.7798841 1.036637 1.072569 1.059329 6.8421073E-02 6.8421073E-02 6.8421073E-02 2.6786709E-02 2.6140142E-02 6.8421073E-02 6.8421073E-02 0.000000 2.333879 0.7818212 1.039171 1.069530 1.056316 6.8620279E-02 6.8620279E-02 6.8620279E-02 2.6908241E-02 2.6268760E-02 6.8620279E-02 6.8620279E-02 0.000000 2.323294 0.7837128 1.038315 1.069256 1.053244 6.8817183E-02 6.8817183E-02 6.8817183E-02 2.6990214E-02 2.6396791E-02 6.8817183E-02 6.8817183E-02 0.000000 2.312767 0.7855546 1.037397 1.068925 1.052936 6.9092214E-02 6.9092214E-02 6.9092214E-02 2.7071422E-02 2.6524263E-02 6.9092214E-02 6.9092214E-02 0.000000 2.296270 0.7873524 1.036420 1.065711 1.062314 6.9287598E-02 6.9287598E-02 6.9287598E-02 2.7190803E-02 2.6609335E-02 6.9287598E-02 6.9287598E-02 0.000000 2.172706 0.3120785 0.3164680 0.2673505 0.2609188 1.5574163E-02 1.5574163E-02 1.5574163E-02 6.9862930E-03 8.3634472E-03 1.5574163E-02 1.5574163E-02 0.000000 1.035001 0.1603547 0.2582346 0.3285041 0.3451018 2.6282439E-02 2.6282439E-02 2.6282439E-02 1.1046506E-02 1.1243714E-02 2.6282439E-02 2.6282439E-02 0.000000 1.260554 0.2371561 0.3846405 0.4816736 0.5056790 3.2104608E-02 3.2104608E-02 3.2104608E-02 1.3147734E-02 1.2928565E-02 3.2104608E-02 3.2104608E-02 0.000000 1.509020 0.3036952 0.4854036 0.5933201 0.6195290 3.6261722E-02 3.6261722E-02 3.6261722E-02 1.4606963E-02 1.4152027E-02 3.6261722E-02 3.6261722E-02 0.000000 1.714709 0.3585117 0.5649329 0.6780761 0.7056271 3.9478749E-02 3.9478749E-02 3.9478749E-02 1.5723299E-02 1.5130360E-02 3.9478749E-02 3.9478749E-02 0.000000 1.881700 0.4052302 0.6300364 0.7424831 0.7708929 4.2108893E-02 4.2108893E-02 4.2108893E-02 1.6639287E-02 1.5942479E-02 4.2108893E-02 4.2108893E-02 0.000000 2.018628 0.4444752 0.6830559 0.7950751 0.8228181 4.4310294E-02 4.4310294E-02 4.4310294E-02 1.7458932E-02 1.6660973E-02 4.4310294E-02 4.4310294E-02 0.000000 2.128866 0.4778383 0.7274088 0.8393517 0.8649185 4.6163283E-02 4.6163283E-02 4.6163283E-02 1.8121421E-02 1.7291101E-02 4.6163283E-02 4.6163283E-02 0.000000 2.225170 0.5069139 0.7665178 0.8733137 0.8978255 4.7889423E-02 4.7889423E-02 4.7889423E-02 1.8732967E-02 1.7834391E-02 4.7889423E-02 4.7889423E-02 0.000000 2.303872 0.5333341 0.7977949 0.9026015 0.9273248 4.9356651E-02 4.9356651E-02 4.9356651E-02 1.9260364E-02 1.8367821E-02 4.9356651E-02 4.9356651E-02 0.000000 2.349137 0.5558578 0.8275169 0.9275838 0.9497591 5.0640311E-02 5.0640311E-02 5.0640311E-02 1.9743294E-02 1.8816644E-02 5.0640311E-02 5.0640311E-02 0.000000 2.391889 0.5745626 0.8513619 0.9485176 0.9708103 5.1892702E-02 5.1892702E-02 5.1892702E-02 2.0213688E-02 1.9258263E-02 5.1892702E-02 5.1892702E-02 0.000000 2.435750 0.5924805 0.8725525 0.9655950 0.9865993 5.2969262E-02 5.2969262E-02 5.2969262E-02 2.0604366E-02 1.9654913E-02 5.2969262E-02 5.2969262E-02 0.000000 2.465289 0.6097472 0.8912372 0.9817029 1.001402 5.4026522E-02 5.4026522E-02 5.4026522E-02 2.1023454E-02 2.0048637E-02 5.4026522E-02 5.4026522E-02 0.000000 2.491811 0.6234323 0.9075332 0.9942358 1.013979 5.4908417E-02 5.4908417E-02 5.4908417E-02 2.1364057E-02 2.0395979E-02 5.4908417E-02 5.4908417E-02 0.000000 2.510213 0.6366015 0.9231277 1.006043 1.023046 5.5847578E-02 5.5847578E-02 5.5847578E-02 2.1700479E-02 2.0739084E-02 5.5847578E-02 5.5847578E-02 0.000000 2.526273 0.6493288 0.9349079 1.017227 1.028919 5.6621831E-02 5.6621831E-02 5.6621831E-02 2.2032114E-02 2.1038422E-02 5.6621831E-02 5.6621831E-02 0.000000 2.540550 0.6616732 0.9461365 1.025075 1.034585 5.7381250E-02 5.7381250E-02 5.7381250E-02 2.2320848E-02 2.1334197E-02 5.7381250E-02 5.7381250E-02 0.000000 2.547446 0.6705558 0.9568694 1.029953 1.049065 5.8125362E-02 5.8125362E-02 5.8125362E-02 2.2605343E-02 2.1627806E-02 5.8125362E-02 5.8125362E-02 0.000000 2.558208 0.6791084 0.9671756 1.034605 1.050819 5.8857758E-02 5.8857758E-02 5.8857758E-02 2.2849042E-02 2.1876452E-02 5.8857758E-02 5.8857758E-02 0.000000 2.562178 0.6873677 0.9770910 1.048193 1.054979 5.9425816E-02 5.9425816E-02 5.9425816E-02 2.3089113E-02 2.2163711E-02 5.9425816E-02 5.9425816E-02 0.000000 2.559195 0.6953669 0.9834059 1.051935 1.056000 6.0060907E-02 6.0060907E-02 6.0060907E-02 2.3363171E-02 2.2407778E-02 6.0060907E-02 6.0060907E-02 0.000000 2.560833 0.7031267 0.9893888 1.052571 1.056712 6.0686413E-02 6.0686413E-02 6.0686413E-02 2.3559742E-02 2.2649575E-02 6.0686413E-02 6.0686413E-02 0.000000 2.555728 0.7106768 0.9950775 1.055716 1.069311 6.1225813E-02 6.1225813E-02 6.1225813E-02 2.3790874E-02 2.2889318E-02 6.1225813E-02 6.1225813E-02 0.000000 2.554993 0.7180281 1.000499 1.058606 1.069302 6.1757322E-02 6.1757322E-02 6.1757322E-02 2.4019539E-02 2.3085756E-02 6.1757322E-02 6.1757322E-02 0.000000 2.548063 0.7219986 1.005670 1.063429 1.071864 6.2205918E-02 6.2205918E-02 6.2205918E-02 2.4209661E-02 2.3321796E-02 6.2205918E-02 6.2205918E-02 0.000000 2.540355 0.7290033 1.010613 1.070255 1.071399 6.2645368E-02 6.2645368E-02 6.2645368E-02 2.4394123E-02 2.3514587E-02 6.2645368E-02 6.2645368E-02 0.000000 2.531933 0.7326341 1.015350 1.069537 1.070734 6.3156955E-02 6.3156955E-02 6.3156955E-02 2.4617849E-02 2.3708543E-02 6.3156955E-02 6.3156955E-02 0.000000 2.522852 0.7361182 1.016602 1.071443 1.067078 6.3584045E-02 6.3584045E-02 6.3584045E-02 2.4762355E-02 2.3898084E-02 6.3584045E-02 6.3584045E-02 0.000000 2.518504 0.7426938 1.020961 1.070368 1.078381 6.4005524E-02 6.4005524E-02 6.4005524E-02 2.4943486E-02 2.4086192E-02 6.4005524E-02 6.4005524E-02 0.000000 2.508198 0.7459089 1.025160 1.069134 1.077062 6.4421773E-02 6.4421773E-02 6.4421773E-02 2.5121480E-02 2.4272971E-02 6.4421773E-02 6.4421773E-02 0.000000 2.497360 0.7490028 1.025896 1.067754 1.075593 6.4833134E-02 6.4833134E-02 6.4833134E-02 2.5262943E-02 2.4458513E-02 6.4833134E-02 6.4833134E-02 0.000000 2.491804 0.7519838 1.026483 1.078636 1.073986 6.5160610E-02 6.5160610E-02 6.5160610E-02 2.5436934E-02 2.4642898E-02 6.5160610E-02 6.5160610E-02 0.000000 2.480015 0.7548636 1.030240 1.079686 1.072248 6.5483563E-02 6.5483563E-02 6.5483563E-02 2.5612799E-02 2.4783783E-02 6.5483563E-02 6.5483563E-02 0.000000 2.467793 0.7609046 1.030558 1.077790 1.070390 6.5881737E-02 6.5881737E-02 6.5881737E-02 2.5747664E-02 2.4965981E-02 6.5881737E-02 6.5881737E-02 0.000000 2.455166 0.7635936 1.034070 1.075781 1.068420 6.6278398E-02 6.6278398E-02 6.6278398E-02 2.5881190E-02 2.5104634E-02 6.6278398E-02 6.6278398E-02 0.000000 2.442156 0.7661954 1.034152 1.073664 1.068625 6.6589125E-02 6.6589125E-02 6.6589125E-02 2.6013449E-02 2.5284909E-02 6.6589125E-02 6.6589125E-02 0.000000 2.428401 0.7687151 1.034125 1.071446 1.073776 6.6896245E-02 6.6896245E-02 6.6896245E-02 2.6144510E-02 2.5421578E-02 6.6896245E-02 6.6896245E-02 0.000000 2.420446 0.7711573 1.037318 1.071952 1.074220 6.7199945E-02 6.7199945E-02 6.7199945E-02 2.6274437E-02 2.5557298E-02 6.7199945E-02 6.7199945E-02 0.000000 2.406392 0.7735264 1.037093 1.069551 1.071745 6.7500405E-02 6.7500405E-02 6.7500405E-02 2.6403287E-02 2.5735043E-02 6.7500405E-02 6.7500405E-02 0.000000 2.397816 0.7725401 1.036776 1.067065 1.069185 6.7797773E-02 6.7797773E-02 6.7797773E-02 2.6531113E-02 2.5870739E-02 6.7797773E-02 6.7797773E-02 0.000000 2.383174 0.7747712 1.036372 1.075596 1.066539 6.8012148E-02 6.8012148E-02 6.8012148E-02 2.6660768E-02 2.6004169E-02 6.8012148E-02 6.8012148E-02 0.000000 2.368262 0.7769402 1.039211 1.074270 1.063822 6.8303712E-02 6.8303712E-02 6.8303712E-02 2.6786625E-02 2.6136830E-02 6.8303712E-02 6.8303712E-02 0.000000 2.353090 0.7790501 1.038646 1.074283 1.061032 6.8512402E-02 6.8512402E-02 6.8512402E-02 2.6911598E-02 2.6268758E-02 6.8512402E-02 6.8512402E-02 0.000000 2.343457 0.7811040 1.038007 1.071399 1.058174 6.8798684E-02 6.8798684E-02 6.8798684E-02 2.6996884E-02 2.6399991E-02 6.8798684E-02 6.8798684E-02 0.000000 2.333592 0.7831075 1.037297 1.071274 1.055251 6.9082536E-02 6.9082536E-02 6.9082536E-02 2.7120164E-02 2.6530556E-02 6.9082536E-02 6.9082536E-02 0.000000 2.323231 0.7850559 1.036519 1.068260 1.052266 6.9286413E-02 6.9286413E-02 6.9286413E-02 2.7203748E-02 2.6662072E-02 6.9286413E-02 6.9286413E-02 0.000000 2.312917 0.7869557 1.039006 1.065183 1.060380 6.9485426E-02 6.9485426E-02 6.9485426E-02 2.7325477E-02 2.6747808E-02 6.9485426E-02 6.9485426E-02 0.000000 2.296623 0.7855043 1.038102 1.062053 1.058607 6.9762833E-02 6.9762833E-02 6.9762833E-02 2.7446501E-02 2.6876422E-02 6.9762833E-02 6.9762833E-02 0.000000 2.285919 0.7873110 1.037139 1.061692 1.055364 7.0038207E-02 7.0038207E-02 7.0038207E-02 2.7527804E-02 2.7004480E-02 7.0038207E-02 7.0038207E-02 0.000000 2.172806 0.3122539 0.3164236 0.2671587 0.2607340 1.5577001E-02 1.5577001E-02 1.5577001E-02 6.9879931E-03 8.3648320E-03 1.5577001E-02 1.5577001E-02 0.000000 1.036151 0.1608185 0.2588514 0.3299984 0.3466382 2.6441762E-02 2.6441762E-02 2.6441762E-02 1.1125057E-02 1.1289923E-02 2.6441762E-02 2.6441762E-02 0.000000 1.262190 0.2388262 0.3866730 0.4837974 0.5078511 3.2369025E-02 3.2369025E-02 3.2369025E-02 1.3274751E-02 1.3020771E-02 3.2369025E-02 3.2369025E-02 0.000000 1.513337 0.3057691 0.4878902 0.5958726 0.6232647 3.6561210E-02 3.6561210E-02 3.6561210E-02 1.4747968E-02 1.4255261E-02 3.6561210E-02 3.6561210E-02 0.000000 1.717233 0.3620666 0.5690519 0.6809486 0.7097471 3.9872412E-02 3.9872412E-02 3.9872412E-02 1.5907794E-02 1.5278142E-02 3.9872412E-02 3.9872412E-02 0.000000 1.884572 0.4078674 0.6331334 0.7468402 0.7753043 4.2527236E-02 4.2527236E-02 4.2527236E-02 1.6833261E-02 1.6098510E-02 4.2527236E-02 4.2527236E-02 0.000000 2.021794 0.4473177 0.6877886 0.7996692 0.8274649 4.4747248E-02 4.4747248E-02 4.4747248E-02 1.7660962E-02 1.6824188E-02 4.4747248E-02 4.4747248E-02 0.000000 2.137565 0.4808521 0.7323643 0.8428457 0.8684427 4.6688545E-02 4.6688545E-02 4.6688545E-02 1.8330762E-02 1.7460611E-02 4.6688545E-02 4.6688545E-02 0.000000 2.228812 0.5114689 0.7701764 0.8782749 0.9028258 4.8357837E-02 4.8357837E-02 4.8357837E-02 1.8947681E-02 1.8047355E-02 4.8357837E-02 4.8357837E-02 0.000000 2.313172 0.5366242 0.8031004 0.9077076 0.9311216 4.9911905E-02 4.9911905E-02 4.9911905E-02 1.9515451E-02 1.8586345E-02 4.9911905E-02 4.9911905E-02 0.000000 2.353269 0.5592599 0.8314340 0.9328195 0.9550275 5.1207907E-02 5.1207907E-02 5.1207907E-02 2.0003282E-02 1.9040050E-02 5.1207907E-02 5.1207907E-02 0.000000 2.396208 0.5795340 0.8553868 0.9538659 0.9734499 5.2470807E-02 5.2470807E-02 5.2470807E-02 2.0478286E-02 1.9486265E-02 5.2470807E-02 5.2470807E-02 0.000000 2.440238 0.5975589 0.8766748 0.9710404 0.9906976 5.3559490E-02 5.3559490E-02 5.3559490E-02 2.0872988E-02 1.9889435E-02 5.3559490E-02 5.3559490E-02 0.000000 2.469932 0.6149255 0.8970250 0.9858668 1.004199 5.4623552E-02 5.4623552E-02 5.4623552E-02 2.1259835E-02 2.0284889E-02 5.4623552E-02 5.4623552E-02 0.000000 2.496597 0.6286958 0.9134122 0.9998573 1.016849 5.5589385E-02 5.5589385E-02 5.5589385E-02 2.1641644E-02 2.0635854E-02 5.5589385E-02 5.5589385E-02 0.000000 2.515131 0.6419461 0.9258994 1.010353 1.025976 5.6463454E-02 5.6463454E-02 5.6463454E-02 2.1981673E-02 2.0982418E-02 5.6463454E-02 5.6463454E-02 0.000000 2.531306 0.6547465 0.9409506 1.020213 1.029353 5.7244897E-02 5.7244897E-02 5.7244897E-02 2.2277988E-02 2.1325195E-02 5.7244897E-02 5.7244897E-02 0.000000 2.545700 0.6640458 0.9522448 1.028117 1.035098 5.8085609E-02 5.8085609E-02 5.8085609E-02 2.2606261E-02 2.1625176E-02 5.8085609E-02 5.8085609E-02 0.000000 2.552701 0.6760997 0.9630483 1.030499 1.049555 5.8759369E-02 5.8759369E-02 5.8759369E-02 2.2856399E-02 2.1920335E-02 5.8759369E-02 5.8759369E-02 0.000000 2.557834 0.6847069 0.9701699 1.035225 1.054169 5.9421357E-02 5.9421357E-02 5.9421357E-02 2.3139542E-02 2.2172339E-02 5.9421357E-02 5.9421357E-02 0.000000 2.561888 0.6930203 0.9801356 1.048781 1.055602 6.0149420E-02 6.0149420E-02 6.0149420E-02 2.3419213E-02 2.2462482E-02 6.0149420E-02 6.0149420E-02 0.000000 2.558983 0.7010652 0.9864945 1.052583 1.056689 6.0711779E-02 6.0711779E-02 6.0711779E-02 2.3658345E-02 2.2709150E-02 6.0711779E-02 6.0711779E-02 0.000000 2.560697 0.7088757 0.9925227 1.056071 1.069711 6.1264485E-02 6.1264485E-02 6.1264485E-02 2.3894422E-02 2.2953466E-02 6.1264485E-02 6.1264485E-02 0.000000 2.555247 0.7132711 0.9982517 1.056482 1.070017 6.1808385E-02 6.1808385E-02 6.1808385E-02 2.4090098E-02 2.3195652E-02 6.1808385E-02 6.1808385E-02 0.000000 2.549222 0.7206552 1.003708 1.056635 1.070060 6.2346935E-02 6.2346935E-02 6.2346935E-02 2.4320936E-02 2.3394275E-02 6.2346935E-02 6.2346935E-02 0.000000 2.548105 0.7262583 1.008918 1.068735 1.069864 6.2875882E-02 6.2875882E-02 6.2875882E-02 2.4512213E-02 2.3632621E-02 6.2875882E-02 6.2875882E-02 0.000000 2.540455 0.7316848 1.013899 1.071077 1.069450 6.3398004E-02 6.3398004E-02 6.3398004E-02 2.4738166E-02 2.3830276E-02 6.3398004E-02 6.3398004E-02 0.000000 2.532087 0.7353440 1.015375 1.070406 1.068837 6.3756108E-02 6.3756108E-02 6.3756108E-02 2.4887392E-02 2.4023358E-02 6.3756108E-02 6.3756108E-02 0.000000 2.517293 0.7420815 1.019950 1.069548 1.077572 6.4265735E-02 6.4265735E-02 6.4265735E-02 2.5108095E-02 2.4214843E-02 6.4265735E-02 6.4265735E-02 0.000000 2.512969 0.7454486 1.024345 1.068518 1.076455 6.4611666E-02 6.4611666E-02 6.4611666E-02 2.5254402E-02 2.4447059E-02 6.4611666E-02 6.4611666E-02 0.000000 2.502706 0.7486846 1.025266 1.067330 1.075177 6.5110490E-02 6.5110490E-02 6.5110490E-02 2.5432982E-02 2.4593478E-02 6.5110490E-02 6.5110490E-02 0.000000 2.491908 0.7517987 1.029334 1.078399 1.073748 6.5445803E-02 6.5445803E-02 6.5445803E-02 2.5613202E-02 2.4780827E-02 6.5445803E-02 6.5445803E-02 0.000000 2.480617 0.7548033 1.029946 1.079616 1.072179 6.5776207E-02 6.5776207E-02 6.5776207E-02 2.5752246E-02 2.4966978E-02 6.5776207E-02 6.5776207E-02 0.000000 2.468861 0.7609618 1.030418 1.077880 1.070481 6.6181570E-02 6.6181570E-02 6.6181570E-02 2.5889747E-02 2.5109407E-02 6.6181570E-02 6.6181570E-02 0.000000 2.456673 0.7637617 1.034074 1.076020 1.068661 6.6584788E-02 6.6584788E-02 6.6584788E-02 2.6025793E-02 2.5293298E-02 6.6584788E-02 6.6584788E-02 0.000000 2.449853 0.7664680 1.034292 1.074045 1.070331 6.6901974E-02 6.6901974E-02 6.6901974E-02 2.6199004E-02 2.5476210E-02 6.6901974E-02 6.6901974E-02 0.000000 2.436495 0.7690866 1.034395 1.071963 1.074285 6.7215271E-02 6.7215271E-02 6.7215271E-02 2.6332438E-02 2.5615323E-02 6.7215271E-02 6.7215271E-02 0.000000 2.423125 0.7716224 1.034388 1.069779 1.072028 6.7524888E-02 6.7524888E-02 6.7524888E-02 2.6464645E-02 2.5753405E-02 6.7524888E-02 6.7524888E-02 0.000000 2.409415 0.7740802 1.037602 1.067502 1.069674 6.7831025E-02 6.7831025E-02 6.7831025E-02 2.6598524E-02 2.5935290E-02 6.7831025E-02 6.7831025E-02 0.000000 2.395384 0.7731772 1.037395 1.065132 1.067225 6.8133838E-02 6.8133838E-02 6.8133838E-02 2.6728394E-02 2.6071750E-02 6.8133838E-02 6.8133838E-02 0.000000 2.386830 0.7754883 1.037095 1.077985 1.064694 6.8433516E-02 6.8433516E-02 6.8433516E-02 2.6857216E-02 2.6207330E-02 6.8433516E-02 6.8433516E-02 0.000000 2.372209 0.7777333 1.036708 1.075348 1.062082 6.8649955E-02 6.8649955E-02 6.8649955E-02 2.6985042E-02 2.6342075E-02 6.8649955E-02 6.8649955E-02 0.000000 2.363092 0.7799159 1.036238 1.072633 1.059394 6.8943709E-02 6.8943709E-02 6.8943709E-02 2.7073041E-02 2.6476027E-02 6.8943709E-02 6.8943709E-02 0.000000 2.347940 0.7820389 1.039016 1.069845 1.056633 6.9154352E-02 6.9154352E-02 6.9154352E-02 2.7198965E-02 2.6610836E-02 6.9154352E-02 6.9154352E-02 0.000000 2.332543 0.7841079 1.038393 1.066982 1.053804 6.9445707E-02 6.9445707E-02 6.9445707E-02 2.7324025E-02 2.6743246E-02 6.9445707E-02 6.9445707E-02 0.000000 2.322414 0.7861194 1.037697 1.066882 1.053023 6.9731988E-02 6.9731988E-02 6.9731988E-02 2.7448261E-02 2.6874971E-02 6.9731988E-02 6.9731988E-02 0.000000 2.312328 0.7880796 1.036934 1.063895 1.060474 6.9935180E-02 6.9935180E-02 6.9935180E-02 2.7532659E-02 2.7006038E-02 6.9935180E-02 6.9935180E-02 0.000000 2.296247 0.7866844 1.036105 1.060847 1.057365 7.0135981E-02 7.0135981E-02 7.0135981E-02 2.7655309E-02 2.7136479E-02 7.0135981E-02 7.0135981E-02 0.000000 2.285746 0.7885464 1.035210 1.060565 1.057026 7.0415311E-02 7.0415311E-02 7.0415311E-02 2.7738111E-02 2.7222553E-02 7.0415311E-02 7.0415311E-02 0.000000 2.275054 0.7903669 1.034261 1.057405 1.053802 7.0611656E-02 7.0611656E-02 7.0611656E-02 2.7859306E-02 2.7351758E-02 7.0611656E-02 7.0611656E-02 0.000000 2.172899 0.3119715 0.3163652 0.2669514 0.2605334 1.5579634E-02 1.5579634E-02 1.5579634E-02 6.9895783E-03 8.3661191E-03 1.5579634E-02 1.5579634E-02 0.000000 1.037213 0.1612481 0.2594224 0.3306529 0.3473064 2.6598979E-02 2.6598979E-02 2.6598979E-02 1.1202714E-02 1.1367006E-02 2.6598979E-02 2.6598979E-02 0.000000 1.263704 0.2395379 0.3886383 0.4858437 0.5099415 3.2630116E-02 3.2630116E-02 3.2630116E-02 1.3369781E-02 1.3112008E-02 3.2630116E-02 3.2630116E-02 0.000000 1.515296 0.3077777 0.4902891 0.5983266 0.6257624 3.6921483E-02 3.6921483E-02 3.6921483E-02 1.4887315E-02 1.4391971E-02 3.6921483E-02 3.6921483E-02 0.000000 1.721942 0.3643771 0.5704833 0.6837049 0.7125428 4.0194213E-02 4.0194213E-02 4.0194213E-02 1.6057687E-02 1.5388900E-02 4.0194213E-02 4.0194213E-02 0.000000 1.889720 0.4104149 0.6361136 0.7510735 0.7795944 4.2938728E-02 4.2938728E-02 4.2938728E-02 1.7025253E-02 1.6253024E-02 4.2938728E-02 4.2938728E-02 0.000000 2.027303 0.4500633 0.6909796 0.8041334 0.8306816 4.5177810E-02 4.5177810E-02 4.5177810E-02 1.7860783E-02 1.7022789E-02 4.5177810E-02 4.5177810E-02 0.000000 2.140738 0.4851198 0.7357289 0.8461955 0.8731371 4.7135301E-02 4.7135301E-02 4.7135301E-02 1.8571693E-02 1.7665865E-02 4.7135301E-02 4.7135301E-02 0.000000 2.237577 0.5145199 0.7736909 0.8817635 0.9076760 4.8820384E-02 4.8820384E-02 4.8820384E-02 1.9194789E-02 1.8258598E-02 4.8820384E-02 4.8820384E-02 0.000000 2.316733 0.5397947 0.8082617 0.9113209 0.9347551 5.0386067E-02 5.0386067E-02 5.0386067E-02 1.9735299E-02 1.8764513E-02 5.0386067E-02 5.0386067E-02 0.000000 2.357104 0.5625376 0.8351943 0.9351880 0.9574063 5.1766980E-02 5.1766980E-02 5.1766980E-02 2.0260664E-02 1.9261472E-02 5.1766980E-02 5.1766980E-02 0.000000 2.405766 0.5843870 0.8608049 0.9563221 0.9772855 5.2965995E-02 5.2965995E-02 5.2965995E-02 2.0704284E-02 1.9714428E-02 5.2965995E-02 5.2965995E-02 0.000000 2.444407 0.6025146 0.8821982 0.9735768 0.9932433 5.4140765E-02 5.4140765E-02 5.4140765E-02 2.1138746E-02 2.0119499E-02 5.4140765E-02 5.4140765E-02 0.000000 2.474245 0.6169515 0.8994886 0.9898517 1.006813 5.5136155E-02 5.5136155E-02 5.5136155E-02 2.1529257E-02 2.0518823E-02 5.5136155E-02 5.5136155E-02 0.000000 2.501044 0.6322999 0.9159459 1.002532 1.019529 5.6111868E-02 5.6111868E-02 5.6111868E-02 2.1916537E-02 2.0913329E-02 5.6111868E-02 5.6111868E-02 0.000000 2.519702 0.6456127 0.9316849 1.014481 1.028717 5.6991830E-02 5.6991830E-02 5.6991830E-02 2.2258017E-02 2.1263491E-02 5.6991830E-02 5.6991830E-02 0.000000 2.535985 0.6569237 0.9435997 1.023006 1.032356 5.7856124E-02 5.7856124E-02 5.7856124E-02 2.2557184E-02 2.1569243E-02 5.7856124E-02 5.7856124E-02 0.000000 2.544792 0.6693832 0.9549488 1.028384 1.044132 5.8626585E-02 5.8626585E-02 5.8626585E-02 2.2851281E-02 2.1871574E-02 5.8626585E-02 5.8626585E-02 0.000000 2.551882 0.6783625 0.9658043 1.033613 1.052632 5.9384413E-02 5.9384413E-02 5.9384413E-02 2.3140894E-02 2.2170143E-02 5.9384413E-02 5.9384413E-02 0.000000 2.557083 0.6870071 0.9745967 1.046344 1.054519 6.0051490E-02 6.0051490E-02 6.0051490E-02 2.3426512E-02 2.2465736E-02 6.0051490E-02 6.0051490E-02 0.000000 2.561214 0.6953560 0.9829886 1.051950 1.056016 6.0706917E-02 6.0706917E-02 6.0706917E-02 2.3671133E-02 2.2717470E-02 6.0706917E-02 6.0706917E-02 0.000000 2.558382 0.7034352 0.9893854 1.053019 1.057167 6.1274003E-02 6.1274003E-02 6.1274003E-02 2.3912298E-02 2.2966515E-02 6.1274003E-02 6.1274003E-02 0.000000 2.554426 0.7112783 0.9954529 1.056566 1.070151 6.1833449E-02 6.1833449E-02 6.1833449E-02 2.4152337E-02 2.3213131E-02 6.1833449E-02 6.1833449E-02 0.000000 2.554764 0.7189034 1.001222 1.057033 1.070508 6.2460605E-02 6.2460605E-02 6.2460605E-02 2.4384988E-02 2.3457546E-02 6.2460605E-02 6.2460605E-02 0.000000 2.548799 0.7231156 1.006718 1.069493 1.070602 6.2922761E-02 6.2922761E-02 6.2922761E-02 2.4618961E-02 2.3702789E-02 6.2922761E-02 6.2922761E-02 0.000000 2.541982 0.7303536 1.011963 1.069292 1.070456 6.3455731E-02 6.3455731E-02 6.3455731E-02 2.4812987E-02 2.3943320E-02 6.3455731E-02 6.3455731E-02 0.000000 2.534383 0.7341993 1.016978 1.068869 1.067283 6.3981727E-02 6.3981727E-02 6.3981727E-02 2.5001287E-02 2.4140125E-02 6.3981727E-02 6.3981727E-02 0.000000 2.526064 0.7411126 1.018482 1.071053 1.079106 6.4422213E-02 6.4422213E-02 6.4422213E-02 2.5189376E-02 2.4335148E-02 6.4422213E-02 6.4422213E-02 0.000000 2.522431 0.7446429 1.023091 1.070240 1.078205 6.4856417E-02 6.4856417E-02 6.4856417E-02 2.5374806E-02 2.4528524E-02 6.4856417E-02 6.4856417E-02 0.000000 2.512784 0.7480308 1.024210 1.069254 1.077127 6.5284766E-02 6.5284766E-02 6.5284766E-02 2.5559239E-02 2.4720371E-02 6.5284766E-02 6.5284766E-02 0.000000 2.502562 0.7512869 1.028461 1.072947 1.075887 6.5707661E-02 6.5707661E-02 6.5707661E-02 2.5741234E-02 2.4910795E-02 6.5707661E-02 6.5707661E-02 0.000000 2.491802 0.7544243 1.029247 1.079117 1.071676 6.6045880E-02 6.6045880E-02 6.6045880E-02 2.5883161E-02 2.5099896E-02 6.6045880E-02 6.6045880E-02 0.000000 2.474773 0.7607071 1.029882 1.077548 1.070146 6.6381291E-02 6.6381291E-02 6.6381291E-02 2.6023408E-02 2.5287762E-02 6.6381291E-02 6.6381291E-02 0.000000 2.463052 0.7636245 1.033692 1.075845 1.068485 6.6789143E-02 6.6789143E-02 6.6789143E-02 2.6200613E-02 2.5474472E-02 6.6789143E-02 6.6789143E-02 0.000000 2.450893 0.7664415 1.034054 1.074020 1.070043 6.7192771E-02 6.7192771E-02 6.7192771E-02 2.6337853E-02 2.5617220E-02 6.7192771E-02 6.7192771E-02 0.000000 2.443740 0.7691644 1.034292 1.072079 1.074400 6.7512497E-02 6.7512497E-02 6.7512497E-02 2.6512353E-02 2.5758779E-02 6.7512497E-02 6.7512497E-02 0.000000 2.430754 0.7717989 1.034414 1.070031 1.072276 6.7828268E-02 6.7828268E-02 6.7828268E-02 2.6649725E-02 2.5944017E-02 6.7828268E-02 6.7828268E-02 0.000000 2.417409 0.7743500 1.037750 1.067881 1.070047 6.8140283E-02 6.8140283E-02 6.8140283E-02 2.6782962E-02 2.6126878E-02 6.8140283E-02 6.8140283E-02 0.000000 2.403722 0.7735352 1.037659 1.065634 1.067722 6.8448745E-02 6.8448745E-02 6.8448745E-02 2.6915008E-02 2.6265614E-02 6.8448745E-02 6.8448745E-02 0.000000 2.389713 0.7759302 1.037469 1.075760 1.065302 6.8753831E-02 6.8753831E-02 6.8753831E-02 2.7045928E-02 2.6403395E-02 6.8753831E-02 6.8753831E-02 0.000000 2.375398 0.7782550 1.037187 1.073232 1.062799 6.9055721E-02 6.9055721E-02 6.9055721E-02 2.7175773E-02 2.6540276E-02 6.9055721E-02 6.9055721E-02 0.000000 2.360792 0.7805135 1.036816 1.073449 1.060214 6.9276899E-02 6.9276899E-02 6.9276899E-02 2.7304601E-02 2.6677873E-02 6.9276899E-02 6.9276899E-02 0.000000 2.345916 0.7827088 1.039690 1.070759 1.057553 6.9492556E-02 6.9492556E-02 6.9492556E-02 2.7393460E-02 2.6813008E-02 6.9492556E-02 6.9492556E-02 0.000000 2.336559 0.7848464 1.035827 1.067996 1.054820 6.9785960E-02 6.9785960E-02 6.9785960E-02 2.7520342E-02 2.6947362E-02 6.9785960E-02 6.9785960E-02 0.000000 2.326686 0.7869237 1.038547 1.065159 1.060180 7.0076734E-02 7.0076734E-02 7.0076734E-02 2.7607264E-02 2.7080977E-02 7.0076734E-02 7.0076734E-02 0.000000 2.311051 0.7856418 1.037866 1.062259 1.058810 7.0284165E-02 7.0284165E-02 7.0284165E-02 2.7732376E-02 2.7213885E-02 7.0284165E-02 7.0284165E-02 0.000000 2.300974 0.7876106 1.037116 1.059297 1.055784 7.0489056E-02 7.0489056E-02 7.0489056E-02 2.7856681E-02 2.7346114E-02 7.0489056E-02 7.0489056E-02 0.000000 2.290689 0.7895300 1.036300 1.056275 1.052695 7.0772439E-02 7.0772439E-02 7.0772439E-02 2.7941016E-02 2.7477700E-02 7.0772439E-02 7.0772439E-02 0.000000 2.274412 0.7914063 1.035418 1.053197 1.049544 7.0972607E-02 7.0972607E-02 7.0972607E-02 2.8024537E-02 2.7608668E-02 7.0972607E-02 7.0972607E-02 0.000000 2.257948 0.7899166 1.034481 1.052882 1.046341 7.1170531E-02 7.1170531E-02 7.1170531E-02 2.8146543E-02 2.7739046E-02 7.1170531E-02 7.1170531E-02 0.000000 2.172984 0.3121217 0.3162945 0.2671233 0.2605140 1.5628736E-02 1.5628736E-02 1.5628736E-02 7.0145442E-03 8.3673177E-03 1.5628736E-02 1.5628736E-02 0.000000 1.035111 0.1616476 0.2599530 0.3320538 0.3487472 2.6695656E-02 2.6695656E-02 2.6695656E-02 1.1279569E-02 1.1411950E-02 2.6695656E-02 2.6695656E-02 0.000000 1.265106 0.2411124 0.3894999 0.4878216 0.5119644 3.2824725E-02 3.2824725E-02 3.2824725E-02 1.3494300E-02 1.3168796E-02 3.2824725E-02 3.2824725E-02 0.000000 1.517116 0.3097293 0.4926104 0.6018143 0.6281709 3.7211679E-02 3.7211679E-02 3.7211679E-02 1.5025165E-02 1.4492854E-02 3.7211679E-02 3.7211679E-02 0.000000 1.726492 0.3666197 0.5744129 0.6875551 0.7152355 4.0509377E-02 4.0509377E-02 4.0509377E-02 1.6205790E-02 1.5534074E-02 4.0509377E-02 4.0509377E-02 0.000000 1.894685 0.4128828 0.6403611 0.7539551 0.7812473 4.3274973E-02 4.3274973E-02 4.3274973E-02 1.7215457E-02 1.6406165E-02 4.3274973E-02 4.3274973E-02 0.000000 2.032612 0.4540366 0.6940574 0.8071991 0.8350724 4.5604389E-02 4.5604389E-02 4.5604389E-02 1.8025143E-02 1.7182883E-02 4.5604389E-02 4.5604389E-02 0.000000 2.143688 0.4879359 0.7389726 0.8507192 0.8763838 4.7575749E-02 4.7575749E-02 4.7575749E-02 1.8741282E-02 1.7831936E-02 4.7575749E-02 4.7575749E-02 0.000000 2.240722 0.5174699 0.7785706 0.8851154 0.9097155 4.9274348E-02 4.9274348E-02 4.9274348E-02 1.9404715E-02 1.8430052E-02 4.9274348E-02 4.9274348E-02 0.000000 2.320046 0.5442929 0.8102574 0.9147889 0.9382454 5.0853372E-02 5.0853372E-02 5.0853372E-02 1.9950081E-02 1.8979339E-02 5.0853372E-02 5.0853372E-02 0.000000 2.360675 0.5671642 0.8403574 0.9401119 0.9623644 5.2244570E-02 5.2244570E-02 5.2244570E-02 2.0479964E-02 1.9481100E-02 5.2244570E-02 5.2244570E-02 0.000000 2.409506 0.5861662 0.8629701 0.9613502 0.9809685 5.3455412E-02 5.3455412E-02 5.3455412E-02 2.0927541E-02 1.9938515E-02 5.3455412E-02 5.3455412E-02 0.000000 2.448292 0.6043562 0.8844385 0.9786965 0.9956265 5.4636873E-02 5.4636873E-02 5.4636873E-02 2.1365697E-02 2.0347562E-02 5.4636873E-02 5.4636873E-02 0.000000 2.478266 0.6218792 0.9049589 0.9922974 1.009264 5.5640291E-02 5.5640291E-02 5.5640291E-02 2.1761375E-02 2.0750659E-02 5.5640291E-02 5.5640291E-02 0.000000 2.499547 0.6357791 0.9214994 1.005041 1.022043 5.6624342E-02 5.6624342E-02 5.6624342E-02 2.2150271E-02 2.1148758E-02 5.6624342E-02 5.6624342E-02 0.000000 2.523821 0.6491517 0.9341154 1.017049 1.028727 5.7589356E-02 5.7589356E-02 5.7589356E-02 2.2494633E-02 2.1502199E-02 5.7589356E-02 5.7589356E-02 0.000000 2.534666 0.6620713 0.9460865 1.025629 1.035182 5.8381699E-02 5.8381699E-02 5.8381699E-02 2.2833411E-02 2.1810066E-02 5.8381699E-02 5.8381699E-02 0.000000 2.543559 0.6714687 0.9574846 1.031247 1.047556 5.9158150E-02 5.9158150E-02 5.9158150E-02 2.3130139E-02 2.2116126E-02 5.9158150E-02 5.9158150E-02 0.000000 2.556439 0.6836281 0.9683894 1.033771 1.052735 5.9921850E-02 5.9921850E-02 5.9921850E-02 2.3422260E-02 2.2458469E-02 5.9921850E-02 5.9921850E-02 0.000000 2.555995 0.6923258 0.9788519 1.047873 1.054684 6.0594030E-02 6.0594030E-02 6.0594030E-02 2.3672855E-02 2.2715678E-02 6.0594030E-02 6.0594030E-02 0.000000 2.560199 0.7007192 0.9856625 1.052142 1.056243 6.1254434E-02 6.1254434E-02 6.1254434E-02 2.3957068E-02 2.3011180E-02 6.1254434E-02 6.1254434E-02 0.000000 2.557435 0.7088478 0.9921022 1.056060 1.069701 6.1828293E-02 6.1828293E-02 6.1828293E-02 2.4201788E-02 2.3262691E-02 6.1828293E-02 6.1828293E-02 0.000000 2.559286 0.7135342 0.9982088 1.056869 1.070400 6.2468827E-02 6.2468827E-02 6.2468827E-02 2.4441330E-02 2.3511693E-02 6.2468827E-02 6.2468827E-02 0.000000 2.553926 0.7211882 1.004011 1.057392 1.070807 6.3021988E-02 6.3021988E-02 6.3021988E-02 2.4640443E-02 2.3761239E-02 6.3021988E-02 6.3021988E-02 0.000000 2.548018 0.7286438 1.009545 1.069809 1.070950 6.3487992E-02 6.3487992E-02 6.3487992E-02 2.4875909E-02 2.3963884E-02 6.3487992E-02 6.3487992E-02 0.000000 2.541255 0.7326919 1.014821 1.069654 1.070853 6.4024836E-02 6.4024836E-02 6.4024836E-02 2.5068613E-02 2.4206452E-02 6.4024836E-02 6.4024836E-02 0.000000 2.533706 0.7365628 1.016576 1.069275 1.070799 6.4554565E-02 6.4554565E-02 6.4554565E-02 2.5261665E-02 2.4447292E-02 6.4554565E-02 6.4554565E-02 0.000000 2.525435 0.7434996 1.021407 1.071502 1.079501 6.4998470E-02 6.4998470E-02 6.4998470E-02 2.5488518E-02 2.4644203E-02 6.4998470E-02 6.4998470E-02 0.000000 2.516062 0.7470506 1.022738 1.070732 1.075817 6.5435968E-02 6.5435968E-02 6.5435968E-02 2.5637377E-02 2.4839416E-02 6.5435968E-02 6.5435968E-02 0.000000 2.506453 0.7504585 1.027186 1.069790 1.074777 6.5867499E-02 6.5867499E-02 6.5867499E-02 2.5822528E-02 2.5033051E-02 6.5867499E-02 6.5867499E-02 0.000000 2.496265 0.7537376 1.028157 1.078204 1.073575 6.6295750E-02 6.6295750E-02 6.6295750E-02 2.6005870E-02 2.5225222E-02 6.6295750E-02 6.6295750E-02 0.000000 2.485543 0.7601524 1.032276 1.076810 1.069403 6.6636428E-02 6.6636428E-02 6.6636428E-02 2.6148992E-02 2.5416028E-02 6.6636428E-02 6.6636428E-02 0.000000 2.474319 0.7631946 1.032938 1.075275 1.067910 6.6972002E-02 6.6972002E-02 6.6972002E-02 2.6328988E-02 2.5605557E-02 6.6972002E-02 6.6972002E-02 0.000000 2.456855 0.7661289 1.033453 1.073606 1.066336 6.7382634E-02 6.7382634E-02 6.7382634E-02 2.6468843E-02 2.5750943E-02 6.7382634E-02 6.7382634E-02 0.000000 2.444726 0.7689624 1.033835 1.071815 1.074140 6.7708977E-02 6.7708977E-02 6.7708977E-02 2.6648702E-02 2.5939826E-02 6.7708977E-02 6.7708977E-02 0.000000 2.437582 0.7717011 1.034092 1.069908 1.072155 6.8111129E-02 6.8111129E-02 6.8111129E-02 2.6785584E-02 2.6082993E-02 6.8111129E-02 6.8111129E-02 0.000000 2.424623 0.7743508 1.037557 1.067892 1.070059 6.8429269E-02 6.8429269E-02 6.8429269E-02 2.6921114E-02 2.6268283E-02 6.8429269E-02 6.8429269E-02 0.000000 2.411301 0.7736291 1.037587 1.065773 1.067859 6.8743594E-02 6.8743594E-02 6.8743594E-02 2.7055360E-02 2.6409287E-02 6.8743594E-02 6.8743594E-02 0.000000 2.397636 0.7761123 1.037513 1.076015 1.065557 6.9054306E-02 6.9054306E-02 6.9054306E-02 2.7188392E-02 2.6549261E-02 6.9054306E-02 6.9054306E-02 0.000000 2.383646 0.7785209 1.037340 1.073600 1.063168 6.9283918E-02 6.9283918E-02 6.9283918E-02 2.7320271E-02 2.6733322E-02 6.9283918E-02 6.9283918E-02 0.000000 2.369351 0.7808590 1.037074 1.071097 1.060693 6.9507658E-02 6.9507658E-02 6.9507658E-02 2.7451057E-02 2.6871391E-02 6.9507658E-02 6.9507658E-02 0.000000 2.354762 0.7831331 1.036718 1.071338 1.055316 6.9808811E-02 6.9808811E-02 6.9808811E-02 2.7580801E-02 2.7008576E-02 6.9808811E-02 6.9808811E-02 0.000000 2.339902 0.7853396 1.036279 1.068673 1.052683 7.0107020E-02 7.0107020E-02 7.0107020E-02 2.7709553E-02 2.7144922E-02 7.0107020E-02 7.0107020E-02 0.000000 2.324783 0.7874857 1.039089 1.065930 1.062531 7.0402414E-02 7.0402414E-02 7.0402414E-02 2.7798213E-02 2.7280465E-02 7.0402414E-02 7.0402414E-02 0.000000 2.320687 0.7862687 1.035160 1.063122 1.059657 7.0614219E-02 7.0614219E-02 7.0614219E-02 2.7885890E-02 2.7415248E-02 7.0614219E-02 7.0614219E-02 0.000000 2.305063 0.7883001 1.037826 1.060246 1.056715 7.0823319E-02 7.0823319E-02 7.0823319E-02 2.8011845E-02 2.7549300E-02 7.0823319E-02 7.0823319E-02 0.000000 2.289219 0.7902827 1.037089 1.057308 1.053707 7.1110860E-02 7.1110860E-02 7.1110860E-02 2.8136978E-02 2.7682660E-02 7.1110860E-02 7.1110860E-02 0.000000 2.273157 0.7922135 1.036286 1.054310 1.050639 7.1314961E-02 7.1314961E-02 7.1314961E-02 2.8261324E-02 2.7815355E-02 7.1314961E-02 7.1314961E-02 0.000000 2.268460 0.7907808 1.035416 1.053958 1.047505 7.1516678E-02 7.1516678E-02 7.1516678E-02 2.8306231E-02 2.7903307E-02 7.1516678E-02 7.1516678E-02 0.000000 2.252004 0.7926164 1.034491 1.060662 1.044323 7.1797326E-02 7.1797326E-02 7.1797326E-02 2.8429016E-02 2.8034696E-02 7.1797326E-02 7.1797326E-02 0.000000 2.173064 0.3120392 0.3162130 0.2668902 0.2604822 1.5631031E-02 1.5631031E-02 1.5631031E-02 7.0159370E-03 8.3684381E-03 1.5631031E-02 1.5631031E-02 0.000000 1.036024 0.1620203 0.2612349 0.3326223 0.3493274 2.6849164E-02 2.6849164E-02 2.6849164E-02 1.1326889E-02 1.1456323E-02 2.6849164E-02 2.6849164E-02 0.000000 1.268366 0.2417336 0.3913503 0.4897385 0.5139243 3.3079967E-02 3.3079967E-02 3.3079967E-02 1.3586888E-02 1.3258277E-02 3.3079967E-02 3.3079967E-02 0.000000 1.521019 0.3116288 0.4948626 0.6041070 0.6316481 3.7498206E-02 3.7498206E-02 3.7498206E-02 1.5161656E-02 1.4592676E-02 3.7498206E-02 3.7498206E-02 0.000000 1.728519 0.3676168 0.5769669 0.6901210 0.7190565 4.0888701E-02 4.0888701E-02 4.0888701E-02 1.6385358E-02 1.5644154E-02 4.0888701E-02 4.0888701E-02 0.000000 1.896992 0.4152797 0.6431481 0.7567357 0.7853231 4.3606121E-02 4.3606121E-02 4.3606121E-02 1.7370228E-02 1.6558064E-02 4.3606121E-02 4.3606121E-02 0.000000 2.035160 0.4552963 0.6984591 0.8101549 0.8367603 4.5952279E-02 4.5952279E-02 4.5952279E-02 1.8220613E-02 1.7341571E-02 4.5952279E-02 4.5952279E-02 0.000000 2.151737 0.4906670 0.7435728 0.8538244 0.8795131 4.8010468E-02 4.8010468E-02 4.8010468E-02 1.8943474E-02 1.7996458E-02 4.8010468E-02 4.8010468E-02 0.000000 2.243660 0.5203294 0.7818452 0.8896719 0.9143099 4.9722165E-02 4.9722165E-02 4.9722165E-02 1.9579854E-02 1.8599829E-02 4.9722165E-02 4.9722165E-02 0.000000 2.328619 0.5458283 0.8151717 0.9181294 0.9416087 5.1313478E-02 5.1313478E-02 5.1313478E-02 2.0162594E-02 1.9153873E-02 5.1313478E-02 5.1313478E-02 0.000000 2.364012 0.5687718 0.8423154 0.9421969 0.9644582 5.2715294E-02 5.2715294E-02 5.2715294E-02 2.0696871E-02 1.9659957E-02 5.2715294E-02 5.2715294E-02 0.000000 2.413001 0.5908056 0.8681169 0.9635162 0.9831395 5.3937517E-02 5.3937517E-02 5.3937517E-02 2.1148294E-02 2.0121386E-02 5.3937517E-02 5.3937517E-02 0.000000 2.451924 0.6090919 0.8896858 0.9809318 1.000631 5.5125520E-02 5.5125520E-02 5.5125520E-02 2.1590041E-02 2.0573812E-02 5.5125520E-02 5.5125520E-02 0.000000 2.482025 0.6236649 0.9071291 0.9945994 1.012959 5.6138840E-02 5.6138840E-02 5.6138840E-02 2.1990882E-02 2.0980589E-02 5.6138840E-02 5.6138840E-02 0.000000 2.503422 0.6406803 0.9237296 1.007401 1.024411 5.7130691E-02 5.7130691E-02 5.7130691E-02 2.2381214E-02 2.1382196E-02 5.7130691E-02 5.7130691E-02 0.000000 2.522133 0.6525763 0.9380044 1.019465 1.031320 5.8100414E-02 5.8100414E-02 5.8100414E-02 2.2728374E-02 2.1738693E-02 5.8100414E-02 5.8100414E-02 0.000000 2.538747 0.6639954 0.9516411 1.028096 1.035074 5.8898881E-02 5.8898881E-02 5.8898881E-02 2.3069805E-02 2.2050887E-02 5.8898881E-02 5.8898881E-02 0.000000 2.547733 0.6765614 0.9631054 1.031174 1.050223 5.9682444E-02 5.9682444E-02 5.9682444E-02 2.3368942E-02 2.2358464E-02 5.9682444E-02 5.9682444E-02 0.000000 2.554672 0.6856297 0.9708224 1.036538 1.052673 6.0450390E-02 6.0450390E-02 6.0450390E-02 2.3663359E-02 2.2703635E-02 6.0450390E-02 6.0450390E-02 0.000000 2.560329 0.6943610 0.9813293 1.050632 1.054682 6.1127618E-02 6.1127618E-02 6.1127618E-02 2.3916030E-02 2.2963269E-02 6.1127618E-02 6.1127618E-02 0.000000 2.558879 0.7027869 0.9881790 1.052165 1.056302 6.1792836E-02 6.1792836E-02 6.1792836E-02 2.4203802E-02 2.3261257E-02 6.1792836E-02 6.1792836E-02 0.000000 2.556179 0.7109464 0.9946575 1.056138 1.069730 6.2371641E-02 6.2371641E-02 6.2371641E-02 2.4448480E-02 2.3515020E-02 6.2371641E-02 6.2371641E-02 0.000000 2.552349 0.7188575 1.000802 1.057001 1.070477 6.3016601E-02 6.3016601E-02 6.3016601E-02 2.4690196E-02 2.3769015E-02 6.3016601E-02 6.3016601E-02 0.000000 2.552773 0.7233439 1.006642 1.069819 1.070933 6.3573822E-02 6.3573822E-02 6.3573822E-02 2.4892077E-02 2.4017794E-02 6.3573822E-02 6.3573822E-02 0.000000 2.546918 0.7308243 1.012206 1.069951 1.068313 6.4043529E-02 6.4043529E-02 6.4043529E-02 2.5126539E-02 2.4264434E-02 6.4043529E-02 6.4043529E-02 0.000000 2.540205 0.7348958 1.017516 1.069839 1.068264 6.4584129E-02 6.4584129E-02 6.4584129E-02 2.5361288E-02 2.4466878E-02 6.4584129E-02 6.4584129E-02 0.000000 2.526942 0.7420226 1.019299 1.069503 1.077529 6.5117463E-02 6.5117463E-02 6.5117463E-02 2.5516540E-02 2.4709644E-02 6.5117463E-02 6.5117463E-02 0.000000 2.518712 0.7457491 1.024159 1.068963 1.076895 6.5485269E-02 6.5485269E-02 6.5485269E-02 2.5745498E-02 2.4908282E-02 6.5485269E-02 6.5485269E-02 0.000000 2.509360 0.7493199 1.025517 1.068236 1.076070 6.6005342E-02 6.6005342E-02 6.6005342E-02 2.5895629E-02 2.5105173E-02 6.6005342E-02 6.6005342E-02 0.000000 2.499785 0.7527507 1.026685 1.076886 1.075067 6.6362500E-02 6.6362500E-02 6.6362500E-02 2.6120624E-02 2.5343155E-02 6.6362500E-02 6.6362500E-02 0.000000 2.489634 0.7593059 1.030987 1.078501 1.071082 6.6790879E-02 6.6790879E-02 6.6790879E-02 2.6266767E-02 2.5494209E-02 6.6790879E-02 6.6790879E-02 0.000000 2.478945 0.7624810 1.031818 1.077142 1.069765 6.7213945E-02 6.7213945E-02 6.7213945E-02 2.6411043E-02 2.5686570E-02 6.7213945E-02 6.7213945E-02 0.000000 2.467753 0.7655401 1.032496 1.075639 1.065488 6.7552112E-02 6.7552112E-02 6.7552112E-02 2.6595106E-02 2.5879286E-02 6.7552112E-02 6.7552112E-02 0.000000 2.456092 0.7684908 1.036354 1.074003 1.076347 6.7885391E-02 6.7885391E-02 6.7885391E-02 2.6774714E-02 2.6069397E-02 6.7885391E-02 6.7885391E-02 0.000000 2.443629 0.7713400 1.036758 1.072243 1.071680 6.8214074E-02 6.8214074E-02 6.8214074E-02 2.6914088E-02 2.6215097E-02 6.8214074E-02 6.8214074E-02 0.000000 2.431079 0.7740938 1.037035 1.067550 1.069723 6.8538420E-02 6.8538420E-02 6.8538420E-02 2.7051998E-02 2.6402894E-02 6.8538420E-02 6.8538420E-02 0.000000 2.418144 0.7734708 1.037195 1.065564 1.067651 6.8858676E-02 6.8858676E-02 6.8858676E-02 2.7188526E-02 2.6546244E-02 6.8858676E-02 6.8858676E-02 0.000000 2.404844 0.7760470 1.037242 1.075936 1.065479 6.9177672E-02 6.9177672E-02 6.9177672E-02 2.7323747E-02 2.6733542E-02 6.9177672E-02 6.9177672E-02 0.000000 2.391199 0.7785438 1.037185 1.073640 1.063209 6.9490790E-02 6.9490790E-02 6.9490790E-02 2.7457731E-02 2.6874719E-02 6.9490790E-02 6.9490790E-02 0.000000 2.377228 0.7809655 1.037028 1.071250 1.058025 6.9800422E-02 6.9800422E-02 6.9800422E-02 2.7590539E-02 2.7014893E-02 6.9800422E-02 6.9800422E-02 0.000000 2.362947 0.7833191 1.036776 1.068772 1.055578 7.0106737E-02 7.0106737E-02 7.0106737E-02 2.7722230E-02 2.7197843E-02 7.0106737E-02 7.0106737E-02 0.000000 2.348377 0.7856011 1.036436 1.066207 1.050231 7.0409909E-02 7.0409909E-02 7.0409909E-02 2.7852859E-02 2.7336227E-02 7.0409909E-02 7.0409909E-02 0.000000 2.333531 0.7878192 1.039341 1.063568 1.060154 7.0629165E-02 7.0629165E-02 7.0629165E-02 2.7943276E-02 2.7473748E-02 7.0629165E-02 7.0629165E-02 0.000000 2.318142 0.7866703 1.035500 1.060855 1.057373 7.0845425E-02 7.0845425E-02 7.0845425E-02 2.8071886E-02 2.7610447E-02 7.0845425E-02 7.0845425E-02 0.000000 2.308551 0.7887672 1.038254 1.058071 1.054520 7.1139850E-02 7.1139850E-02 7.1139850E-02 2.8160293E-02 2.7746363E-02 7.1139850E-02 7.1139850E-02 0.000000 2.292941 0.7908126 1.034265 1.055221 1.051598 7.1431659E-02 7.1431659E-02 7.1431659E-02 2.8287061E-02 2.7881531E-02 7.1431659E-02 7.1431659E-02 0.000000 2.282886 0.7894861 1.036874 1.052308 1.048608 7.1558639E-02 7.1558639E-02 7.1558639E-02 2.8412988E-02 2.8015986E-02 7.1558639E-02 7.1558639E-02 0.000000 2.266834 0.7914270 1.032744 1.060488 1.045557 7.1845427E-02 7.1845427E-02 7.1845427E-02 2.8501982E-02 2.8105551E-02 7.1845427E-02 7.1845427E-02 0.000000 2.250582 0.7933174 1.035225 1.058781 1.042450 7.2129935E-02 7.2129935E-02 7.2129935E-02 2.8586959E-02 2.8238609E-02 7.2129935E-02 7.2129935E-02 0.000000 2.239916 0.7833670 1.030972 1.055602 1.039287 7.2249539E-02 7.2249539E-02 7.2249539E-02 2.8710637E-02 2.8371042E-02 7.2249539E-02 7.2249539E-02 0.000000 2.173138 0.3119473 0.3161217 0.2668429 0.2602443 1.5633181E-02 1.5633181E-02 1.5633181E-02 7.0172464E-03 8.3694886E-03 1.5633181E-02 1.5633181E-02 0.000000 1.036877 0.1623689 0.2616989 0.3331540 0.3506930 2.6942283E-02 2.6942283E-02 2.6942283E-02 1.1402289E-02 1.1500177E-02 2.6942283E-02 2.6942283E-02 0.000000 1.269587 0.2432327 0.3931537 0.4916010 0.5158287 3.3268981E-02 3.3268981E-02 3.3268981E-02 1.3678377E-02 1.3347044E-02 3.3268981E-02 3.3268981E-02 0.000000 1.524816 0.3124063 0.4970532 0.6063266 0.6339090 3.7714649E-02 3.7714649E-02 3.7714649E-02 1.5296911E-02 1.4691530E-02 3.7714649E-02 3.7714649E-02 0.000000 1.732794 0.3697366 0.5794459 0.6926055 0.7215774 4.1195538E-02 4.1195538E-02 4.1195538E-02 1.6530450E-02 1.5787184E-02 4.1195538E-02 4.1195538E-02 0.000000 1.901650 0.4176131 0.6458521 0.7606735 0.7880449 4.4003047E-02 4.4003047E-02 4.4003047E-02 1.7523300E-02 1.6708836E-02 4.4003047E-02 4.4003047E-02 0.000000 2.040130 0.4591282 0.6999203 0.8142952 0.8409437 4.6366617E-02 4.6366617E-02 4.6366617E-02 1.8380376E-02 1.7461499E-02 4.6366617E-02 4.6366617E-02 0.000000 2.154318 0.4933219 0.7466138 0.8568243 0.8825372 4.8367344E-02 4.8367344E-02 4.8367344E-02 1.9108927E-02 1.8159568E-02 4.8367344E-02 4.8367344E-02 0.000000 2.251810 0.5231078 0.7850183 0.8914645 0.9161115 5.0164394E-02 5.0164394E-02 5.0164394E-02 1.9785536E-02 1.8768070E-02 5.0164394E-02 5.0164394E-02 0.000000 2.331518 0.5501550 0.8169340 0.9213551 0.9434999 5.1767621E-02 5.1767621E-02 5.1767621E-02 2.0373037E-02 1.9365672E-02 5.1767621E-02 5.1767621E-02 0.000000 2.367680 0.5732169 0.8472441 0.9468745 0.9664296 5.3181618E-02 5.3181618E-02 5.3181618E-02 2.0911593E-02 1.9878680E-02 5.3181618E-02 5.3181618E-02 0.000000 2.416277 0.5923823 0.8700351 0.9655540 0.9851844 5.4410860E-02 5.4410860E-02 5.4410860E-02 2.1366760E-02 2.0342041E-02 5.4410860E-02 5.4410860E-02 0.000000 2.455333 0.6107249 0.8916689 0.9830379 1.002743 5.5607330E-02 5.5607330E-02 5.5607330E-02 2.1813907E-02 2.0798413E-02 5.5607330E-02 5.5607330E-02 0.000000 2.485550 0.6283914 0.9107586 0.9995298 1.016522 5.6628961E-02 5.6628961E-02 5.6628961E-02 2.2216275E-02 2.1208787E-02 5.6628961E-02 5.6628961E-02 0.000000 2.507057 0.6424150 0.9258304 1.009625 1.026641 5.7627570E-02 5.7627570E-02 5.7627570E-02 2.2609605E-02 2.1573339E-02 5.7627570E-02 5.7627570E-02 0.000000 2.525866 0.6559010 0.9417630 1.021744 1.030996 5.8603965E-02 5.8603965E-02 5.8603965E-02 2.2959482E-02 2.1933276E-02 5.8603965E-02 5.8603965E-02 0.000000 2.536888 0.6689273 0.9538456 1.030426 1.040447 5.9409264E-02 5.9409264E-02 5.9409264E-02 2.3303492E-02 2.2288481E-02 5.9409264E-02 5.9409264E-02 0.000000 2.551651 0.6784152 0.9653572 1.033726 1.052745 6.0197610E-02 6.0197610E-02 6.0197610E-02 2.3604969E-02 2.2598777E-02 6.0197610E-02 6.0197610E-02 0.000000 2.558662 0.6890972 0.9747409 1.048465 1.055255 6.0970888E-02 6.0970888E-02 6.0970888E-02 2.3901613E-02 2.2946710E-02 6.0970888E-02 6.0970888E-02 0.000000 2.558672 0.6978648 0.9836687 1.050449 1.057324 6.1653003E-02 6.1653003E-02 6.1653003E-02 2.4158249E-02 2.3208706E-02 6.1653003E-02 6.1653003E-02 0.000000 2.563018 0.7063286 0.9905534 1.054829 1.067081 6.2325574E-02 6.2325574E-02 6.2325574E-02 2.4445647E-02 2.3509121E-02 6.2325574E-02 6.2325574E-02 0.000000 2.560384 0.7129270 0.9970703 1.056062 1.069604 6.2906496E-02 6.2906496E-02 6.2906496E-02 2.4692498E-02 2.3767898E-02 6.2906496E-02 6.2906496E-02 0.000000 2.556199 0.7208695 1.003248 1.056977 1.070399 6.3476987E-02 6.3476987E-02 6.3476987E-02 2.4936659E-02 2.4021141E-02 6.3476987E-02 6.3476987E-02 0.000000 2.551335 0.7285903 1.009122 1.069760 1.070901 6.4037949E-02 6.4037949E-02 6.4037949E-02 2.5137933E-02 2.4271969E-02 6.4037949E-02 6.4037949E-02 0.000000 2.545530 0.7328833 1.014718 1.069935 1.068328 6.4590193E-02 6.4590193E-02 6.4590193E-02 2.5376795E-02 2.4520598E-02 6.4590193E-02 6.4590193E-02 0.000000 2.538864 0.7385961 1.016766 1.069864 1.075917 6.5134414E-02 6.5134414E-02 6.5134414E-02 2.5612656E-02 2.4724824E-02 6.5134414E-02 6.5134414E-02 0.000000 2.525645 0.7441279 1.021871 1.069571 1.077546 6.5591812E-02 6.5591812E-02 6.5591812E-02 2.5768712E-02 2.4969468E-02 6.5591812E-02 6.5591812E-02 0.000000 2.522809 0.7478742 1.023456 1.069072 1.076949 6.6042066E-02 6.6042066E-02 6.6042066E-02 2.5999162E-02 2.5212426E-02 6.6042066E-02 6.6042066E-02 0.000000 2.508129 0.7514641 1.028142 1.076819 1.073339 6.6487774E-02 6.6487774E-02 6.6487774E-02 2.6150528E-02 2.5368314E-02 6.6487774E-02 6.6487774E-02 0.000000 2.498590 0.7549136 1.029334 1.076986 1.072373 6.6924766E-02 6.6924766E-02 6.6924766E-02 2.6338320E-02 2.5608033E-02 6.6924766E-02 6.6924766E-02 0.000000 2.482701 0.7614899 1.030350 1.075813 1.071243 6.7276135E-02 6.7276135E-02 6.7276135E-02 2.6524225E-02 2.5803454E-02 6.7276135E-02 6.7276135E-02 0.000000 2.472040 0.7646820 1.034517 1.074486 1.067144 6.7701846E-02 6.7701846E-02 6.7701846E-02 2.6672417E-02 2.5999280E-02 6.7701846E-02 6.7701846E-02 0.000000 2.460881 0.7677574 1.035220 1.073016 1.075375 6.8122491E-02 6.8122491E-02 6.8122491E-02 2.6854729E-02 2.6148973E-02 6.8122491E-02 6.8122491E-02 0.000000 2.449245 0.7707237 1.035776 1.071412 1.073691 6.8458207E-02 6.8458207E-02 6.8458207E-02 2.6996646E-02 2.6340542E-02 6.8458207E-02 6.8458207E-02 0.000000 2.436789 0.7735879 1.036198 1.069685 1.071879 6.8789244E-02 6.8789244E-02 6.8789244E-02 2.7175885E-02 2.6530934E-02 6.8789244E-02 6.8789244E-02 0.000000 2.424266 0.7730694 1.036493 1.065022 1.067119 6.9115870E-02 6.9115870E-02 6.9115870E-02 2.7314790E-02 2.6678290E-02 6.9115870E-02 6.9115870E-02 0.000000 2.411353 0.7757439 1.036669 1.075537 1.065078 6.9441311E-02 6.9441311E-02 6.9441311E-02 2.7452286E-02 2.6866350E-02 6.9441311E-02 6.9441311E-02 0.000000 2.398072 0.7783336 1.036733 1.073365 1.062933 6.9760263E-02 6.9760263E-02 6.9760263E-02 2.7588451E-02 2.7009776E-02 6.9760263E-02 6.9760263E-02 0.000000 2.384446 0.7808434 1.036691 1.071094 1.060690 7.0075490E-02 7.0075490E-02 7.0075490E-02 2.7723353E-02 2.7195850E-02 7.0075490E-02 7.0075490E-02 0.000000 2.370493 0.7832806 1.036549 1.068728 1.055534 7.0387162E-02 7.0387162E-02 7.0387162E-02 2.7857058E-02 2.7337236E-02 7.0387162E-02 7.0387162E-02 0.000000 2.356228 0.7856420 1.036312 1.066271 1.050295 7.0614576E-02 7.0614576E-02 7.0614576E-02 2.7989626E-02 2.7477644E-02 7.0614576E-02 7.0614576E-02 0.000000 2.341673 0.7879356 1.039316 1.063734 1.060318 7.0838638E-02 7.0838638E-02 7.0838638E-02 2.8081859E-02 2.7617125E-02 7.0838638E-02 7.0838638E-02 0.000000 2.326569 0.7868583 1.035570 1.061119 1.057632 7.1140535E-02 7.1140535E-02 7.1140535E-02 2.8212268E-02 2.7755721E-02 7.1140535E-02 7.1140535E-02 0.000000 2.311455 0.7890236 1.035078 1.058429 1.054871 7.1439534E-02 7.1439534E-02 7.1439534E-02 2.8302362E-02 2.7893474E-02 7.1439534E-02 7.1439534E-02 0.000000 2.296092 0.7911346 1.034509 1.055669 1.052037 7.1654573E-02 7.1654573E-02 7.1654573E-02 2.8430808E-02 2.8030425E-02 7.1654573E-02 7.1654573E-02 0.000000 2.280492 0.7898698 1.033862 1.052842 1.046303 7.1866833E-02 7.1866833E-02 7.1866833E-02 2.8561698E-02 2.8166613E-02 7.1866833E-02 7.1866833E-02 0.000000 2.270446 0.7918706 1.033149 1.062506 1.043336 7.2157726E-02 7.2157726E-02 7.2157726E-02 2.8688541E-02 2.8302066E-02 7.2157726E-02 7.2157726E-02 0.000000 2.260189 0.7938181 1.032368 1.059461 1.040308 7.2283469E-02 7.2283469E-02 7.2283469E-02 2.8735492E-02 2.8436823E-02 7.2283469E-02 7.2283469E-02 0.000000 2.243944 0.7839385 1.031524 1.056356 1.037220 7.2569475E-02 7.2569475E-02 7.2569475E-02 2.8860651E-02 2.8570911E-02 7.2569475E-02 7.2569475E-02 0.000000 2.227505 0.7858472 1.030618 1.053194 1.034074 7.2771780E-02 7.2771780E-02 7.2771780E-02 2.8985059E-02 2.8659886E-02 7.2771780E-02 7.2771780E-02 0.000000 2.173207 0.3120693 0.3162478 0.2667859 0.2603868 1.5635200E-02 1.5635200E-02 1.5635200E-02 7.0184814E-03 8.3704758E-03 1.5635200E-02 1.5635200E-02 0.000000 1.037675 0.1626959 0.2621340 0.3344494 0.3512031 2.7092770E-02 2.7092770E-02 2.7092770E-02 1.1477098E-02 1.1543555E-02 2.7092770E-02 2.7092770E-02 0.000000 1.272691 0.2437812 0.3938637 0.4934147 0.5176831 3.3456720E-02 3.3456720E-02 3.3456720E-02 1.3799927E-02 1.3401346E-02 3.3456720E-02 3.3456720E-02 0.000000 1.526304 0.3142155 0.4979829 0.6084865 0.6361061 3.7994638E-02 3.7994638E-02 3.7994638E-02 1.5398656E-02 1.4789495E-02 3.7994638E-02 3.7994638E-02 0.000000 1.736955 0.3718065 0.5818589 0.6962172 0.7240242 4.1498672E-02 4.1498672E-02 4.1498672E-02 1.6676323E-02 1.5893189E-02 4.1498672E-02 4.1498672E-02 0.000000 1.906176 0.4198893 0.6484816 0.7632838 0.7906842 4.4325471E-02 4.4325471E-02 4.4325471E-02 1.7674819E-02 1.6821625E-02 4.4325471E-02 4.4325471E-02 0.000000 2.044955 0.4602470 0.7041551 0.8170660 0.8437405 4.6704788E-02 4.6704788E-02 4.6704788E-02 1.8573001E-02 1.7617615E-02 4.6704788E-02 4.6704788E-02 0.000000 2.156741 0.4959081 0.7495671 0.8597291 0.8854662 4.8791472E-02 4.8791472E-02 4.8791472E-02 1.9307550E-02 1.8321386E-02 4.8791472E-02 4.8791472E-02 0.000000 2.254392 0.5258130 0.7880962 0.8958173 0.9204962 5.0603468E-02 5.0603468E-02 5.0603468E-02 1.9954005E-02 1.8973527E-02 5.0603468E-02 5.0603468E-02 0.000000 2.334240 0.5515214 0.8216454 0.9244796 0.9479979 5.2141946E-02 5.2141946E-02 5.2141946E-02 2.0545810E-02 1.9537175E-02 5.2141946E-02 5.2141946E-02 0.000000 2.370626 0.5761179 0.8489837 0.9487298 0.9710263 5.3565647E-02 5.3565647E-02 5.3565647E-02 2.1088241E-02 2.0054381E-02 5.3565647E-02 5.3565647E-02 0.000000 2.419356 0.5968517 0.8749672 0.9702132 0.9898701 5.4878172E-02 5.4878172E-02 5.4878172E-02 2.1583125E-02 2.0521501E-02 5.4878172E-02 5.4878172E-02 0.000000 2.453082 0.6152846 0.8951162 0.9864034 1.004739 5.6084912E-02 5.6084912E-02 5.6084912E-02 2.2035548E-02 2.0981424E-02 5.6084912E-02 5.6084912E-02 0.000000 2.483237 0.6299836 0.9142770 1.001580 1.018577 5.7114441E-02 5.7114441E-02 5.7114441E-02 2.2439398E-02 2.1395041E-02 5.7114441E-02 5.7114441E-02 0.000000 2.510475 0.6455894 0.9310089 1.014508 1.028745 5.8117755E-02 5.8117755E-02 5.8117755E-02 2.2835644E-02 2.1802373E-02 5.8117755E-02 5.8117755E-02 0.000000 2.529376 0.6591302 0.9437993 1.023901 1.033314 5.9023511E-02 5.9023511E-02 5.9023511E-02 2.3188166E-02 2.2166159E-02 5.9023511E-02 5.9023511E-02 0.000000 2.540487 0.6706453 0.9559284 1.030162 1.046485 5.9912130E-02 5.9912130E-02 5.9912130E-02 2.3534685E-02 2.2524284E-02 5.9912130E-02 5.9912130E-02 0.000000 2.549633 0.6817380 0.9674862 1.033372 1.052343 6.0705535E-02 6.0705535E-02 6.0705535E-02 2.3838438E-02 2.2837237E-02 6.0705535E-02 6.0705535E-02 0.000000 2.556700 0.6924626 0.9785347 1.048095 1.054909 6.1483979E-02 6.1483979E-02 6.1483979E-02 2.4137253E-02 2.3146389E-02 6.1483979E-02 6.1483979E-02 0.000000 2.556772 0.7012686 0.9858776 1.052922 1.057035 6.2095102E-02 6.2095102E-02 6.2095102E-02 2.4393296E-02 2.3452174E-02 6.2095102E-02 6.2095102E-02 0.000000 2.561179 0.7097727 0.9928021 1.054561 1.068173 6.2848456E-02 6.2848456E-02 6.2848456E-02 2.4647238E-02 2.3757774E-02 6.2848456E-02 6.2848456E-02 0.000000 2.558602 0.7179978 0.9993526 1.055845 1.069339 6.3433535E-02 6.3433535E-02 6.3433535E-02 2.4934430E-02 2.4015820E-02 6.3433535E-02 6.3433535E-02 0.000000 2.554456 0.7227697 1.005566 1.069073 1.070179 6.4008005E-02 6.4008005E-02 6.4008005E-02 2.5140438E-02 2.4271131E-02 6.4008005E-02 6.4008005E-02 0.000000 2.549641 0.7305174 1.011472 1.069559 1.070727 6.4572781E-02 6.4572781E-02 6.4572781E-02 2.5383711E-02 2.4523960E-02 6.4572781E-02 6.4572781E-02 0.000000 2.543884 0.7348331 1.017099 1.069775 1.068200 6.5128677E-02 6.5128677E-02 6.5128677E-02 2.5623813E-02 2.4774529E-02 6.5128677E-02 6.5128677E-02 0.000000 2.531502 0.7421855 1.019173 1.069745 1.077769 6.5596975E-02 6.5596975E-02 6.5596975E-02 2.5822138E-02 2.4980497E-02 6.5596975E-02 6.5596975E-02 0.000000 2.524084 0.7461210 1.024305 1.069492 1.077417 6.6057444E-02 6.6057444E-02 6.6057444E-02 2.6017874E-02 2.5226971E-02 6.6057444E-02 6.6057444E-02 0.000000 2.515505 0.7498864 1.025916 1.069034 1.076856 6.6592343E-02 6.6592343E-02 6.6592343E-02 2.6249772E-02 2.5471710E-02 6.6592343E-02 6.6592343E-02 0.000000 2.506630 0.7534986 1.027320 1.077912 1.073281 6.6958718E-02 6.6958718E-02 6.6958718E-02 2.6402337E-02 2.5671938E-02 6.6958718E-02 6.6958718E-02 0.000000 2.497125 0.7602246 1.031843 1.076937 1.069531 6.7398444E-02 6.7398444E-02 6.7398444E-02 2.6594225E-02 2.5872119E-02 6.7398444E-02 6.7398444E-02 0.000000 2.481267 0.7635587 1.032885 1.075796 1.068436 6.7832306E-02 6.7832306E-02 6.7832306E-02 2.6781246E-02 2.6069351E-02 6.7832306E-02 6.7832306E-02 0.000000 2.464864 0.7667669 1.033756 1.074500 1.074041 6.8180569E-02 6.8180569E-02 6.8180569E-02 2.6927648E-02 2.6265107E-02 6.8180569E-02 6.8180569E-02 0.000000 2.453728 0.7698579 1.034474 1.073061 1.075368 6.8523467E-02 6.8523467E-02 6.8523467E-02 2.7072234E-02 2.6416110E-02 6.8523467E-02 6.8523467E-02 0.000000 2.442117 0.7728392 1.035047 1.071488 1.070883 6.8941645E-02 6.8941645E-02 6.8941645E-02 2.7254047E-02 2.6610708E-02 6.8941645E-02 6.8941645E-02 0.000000 2.429673 0.7724320 1.038812 1.066975 1.069099 6.9277622E-02 6.9277622E-02 6.9277622E-02 2.7395375E-02 2.6802391E-02 6.9277622E-02 6.9277622E-02 0.000000 2.417172 0.7752103 1.035802 1.077657 1.064367 6.9606811E-02 6.9606811E-02 6.9606811E-02 2.7574241E-02 2.6949309E-02 6.9606811E-02 6.9606811E-02 0.000000 2.404279 0.7778982 1.039319 1.075615 1.062352 6.9931768E-02 6.9931768E-02 6.9931768E-02 2.7712675E-02 2.7138695E-02 6.9931768E-02 6.9931768E-02 0.000000 2.391017 0.7805008 1.036073 1.073467 1.060233 7.0171945E-02 7.0171945E-02 7.0171945E-02 2.7849754E-02 2.7283281E-02 7.0171945E-02 7.0171945E-02 0.000000 2.377409 0.7830261 1.039374 1.071218 1.055196 7.0489027E-02 7.0489027E-02 7.0489027E-02 2.7985547E-02 2.7470628E-02 7.0489027E-02 7.0489027E-02 0.000000 2.363469 0.7854710 1.035919 1.068876 1.052888 7.0802517E-02 7.0802517E-02 7.0802517E-02 2.8080868E-02 2.7613126E-02 7.0802517E-02 7.0802517E-02 0.000000 2.343441 0.7878439 1.039026 1.063617 1.060203 7.1112588E-02 7.1112588E-02 7.1112588E-02 2.8214237E-02 2.7754622E-02 7.1112588E-02 7.1112588E-02 0.000000 2.334681 0.7868420 1.035379 1.061104 1.057619 7.1419418E-02 7.1419418E-02 7.1419418E-02 2.8346505E-02 2.7895167E-02 7.1419418E-02 7.1419418E-02 0.000000 2.319578 0.7890791 1.038316 1.058512 1.054953 7.1560808E-02 7.1560808E-02 7.1560808E-02 2.8438341E-02 2.8034810E-02 7.1560808E-02 7.1560808E-02 0.000000 2.304475 0.7912585 1.034502 1.055846 1.049379 7.1861438E-02 7.1861438E-02 7.1861438E-02 2.8571866E-02 2.8173592E-02 7.1861438E-02 7.1861438E-02 0.000000 2.289125 0.7900587 1.033945 1.050291 1.046564 7.2159246E-02 7.2159246E-02 7.2159246E-02 2.8701236E-02 2.8311551E-02 7.2159246E-02 7.2159246E-02 0.000000 2.273534 0.7921219 1.033309 1.062851 1.043681 7.2291650E-02 7.2291650E-02 7.2291650E-02 2.8790148E-02 2.8448727E-02 7.2291650E-02 7.2291650E-02 0.000000 2.263500 0.7941288 1.032607 1.059886 1.040733 7.2584055E-02 7.2584055E-02 7.2584055E-02 2.8878115E-02 2.8585156E-02 7.2584055E-02 7.2584055E-02 0.000000 2.247469 0.7843172 1.031837 1.056858 1.037723 7.2792523E-02 7.2792523E-02 7.2792523E-02 2.9004790E-02 2.8720869E-02 7.2792523E-02 7.2792523E-02 0.000000 2.237014 0.7862825 1.031003 1.053770 1.034651 7.2998509E-02 7.2998509E-02 7.2998509E-02 2.9130667E-02 2.8855897E-02 7.2998509E-02 7.2998509E-02 0.000000 2.220582 0.7848984 1.030107 1.050625 1.031523 7.3283710E-02 7.3283710E-02 7.3283710E-02 2.9216086E-02 2.8990271E-02 7.3283710E-02 7.3283710E-02 0.000000 2.173272 0.3119615 0.3161401 0.2665240 0.2601303 1.5637102E-02 1.5637102E-02 1.5637102E-02 7.0196479E-03 8.3714062E-03 1.5637102E-02 1.5637102E-02 0.000000 1.035329 0.1630035 0.2625431 0.3349193 0.3516826 2.7182940E-02 2.7182940E-02 2.7182940E-02 1.1522360E-02 1.1586498E-02 2.7182940E-02 2.7182940E-02 0.000000 1.273767 0.2452196 0.3955847 0.4941720 0.5184534 3.3640888E-02 3.3640888E-02 3.3640888E-02 1.3889558E-02 1.3488781E-02 3.3640888E-02 3.3640888E-02 0.000000 1.527702 0.3149062 0.5000655 0.6105887 0.6382458 3.8204804E-02 3.8204804E-02 3.8204804E-02 1.5531654E-02 1.4886645E-02 3.8204804E-02 3.8204804E-02 0.000000 1.738629 0.3738315 0.5842122 0.6985642 0.7264038 4.1729283E-02 4.1729283E-02 4.1729283E-02 1.6785454E-02 1.5998198E-02 4.1729283E-02 4.1729283E-02 0.000000 1.908082 0.4221138 0.6510438 0.7658201 0.7945191 4.4643983E-02 4.4643983E-02 4.4643983E-02 1.7824905E-02 1.6933262E-02 4.4643983E-02 4.4643983E-02 0.000000 2.047060 0.4626333 0.7054556 0.8197565 0.8464580 4.7038600E-02 4.7038600E-02 4.7038600E-02 1.8694870E-02 1.7772665E-02 4.7038600E-02 4.7038600E-02 0.000000 2.164327 0.4984321 0.7524410 0.8625488 0.8883089 4.9140461E-02 4.9140461E-02 4.9140461E-02 1.9469511E-02 1.8482016E-02 4.9140461E-02 4.9140461E-02 0.000000 2.256822 0.5284539 0.7910901 0.8974172 0.9221040 5.0962642E-02 5.0962642E-02 5.0962642E-02 2.0156158E-02 1.9100448E-02 5.0962642E-02 5.0962642E-02 0.000000 2.336801 0.5557060 0.8232175 0.9275081 0.9496868 5.2510891E-02 5.2510891E-02 5.2510891E-02 2.0752497E-02 1.9709550E-02 5.2510891E-02 5.2510891E-02 0.000000 2.373401 0.5789456 0.8521754 0.9504845 0.9727885 5.3945590E-02 5.3945590E-02 5.3945590E-02 2.1262834E-02 2.0228602E-02 5.3945590E-02 5.3945590E-02 0.000000 2.422256 0.5982627 0.8766788 0.9720359 0.9916993 5.5339940E-02 5.5339940E-02 5.5339940E-02 2.1762948E-02 2.0739295E-02 5.5339940E-02 5.5339940E-02 0.000000 2.456101 0.6167492 0.8984655 0.9896650 1.006628 5.6479204E-02 5.6479204E-02 5.6479204E-02 2.2216855E-02 2.1162791E-02 5.6479204E-02 5.6479204E-02 0.000000 2.486358 0.6345462 0.9161083 1.003520 1.020522 5.7591762E-02 5.7591762E-02 5.7591762E-02 2.2623517E-02 2.1621097E-02 5.7591762E-02 5.7591762E-02 0.000000 2.513697 0.6486808 0.9328890 1.016501 1.030744 5.8601767E-02 5.8601767E-02 5.8601767E-02 2.3022406E-02 2.1991123E-02 5.8601767E-02 5.8601767E-02 0.000000 2.527010 0.6622745 0.9457288 1.025939 1.032743 5.9436962E-02 5.9436962E-02 5.9436962E-02 2.3377335E-02 2.2356473E-02 5.9436962E-02 5.9436962E-02 0.000000 2.543881 0.6738362 0.9579005 1.029626 1.048694 6.0330492E-02 6.0330492E-02 6.0330492E-02 2.3726132E-02 2.2717232E-02 6.0330492E-02 6.0330492E-02 0.000000 2.553107 0.6849728 0.9695011 1.035670 1.051818 6.1128911E-02 6.1128911E-02 6.1128911E-02 2.4031958E-02 2.3073995E-02 6.1128911E-02 6.1128911E-02 0.000000 2.560239 0.6941569 0.9805937 1.050391 1.054440 6.1914399E-02 6.1914399E-02 6.1914399E-02 2.4332797E-02 2.3385644E-02 6.1914399E-02 6.1914399E-02 0.000000 2.560379 0.7029926 0.9879706 1.052479 1.056620 6.2606312E-02 6.2606312E-02 6.2606312E-02 2.4629915E-02 2.3696661E-02 6.2606312E-02 6.2606312E-02 0.000000 2.559116 0.7115250 0.9949303 1.056962 1.067735 6.3206904E-02 6.3206904E-02 6.3206904E-02 2.4885241E-02 2.3959739E-02 6.3206904E-02 6.3206904E-02 0.000000 2.556592 0.7197799 1.001518 1.058296 1.068946 6.3874491E-02 6.3874491E-02 6.3874491E-02 2.5133962E-02 2.4261825E-02 6.3874491E-02 6.3874491E-02 0.000000 2.552483 0.7261811 1.007760 1.068701 1.069831 6.4531691E-02 6.4531691E-02 6.4531691E-02 2.5381988E-02 2.4519157E-02 6.4531691E-02 6.4531691E-02 0.000000 2.547716 0.7323449 1.013697 1.069227 1.070422 6.5020919E-02 6.5020919E-02 6.5020919E-02 2.5626544E-02 2.4773940E-02 6.5020919E-02 6.5020919E-02 0.000000 2.542002 0.7366853 1.016057 1.069483 1.070745 6.5580182E-02 6.5580182E-02 6.5580182E-02 2.5867438E-02 2.5026403E-02 6.5580182E-02 6.5580182E-02 0.000000 2.535423 0.7440572 1.021456 1.069494 1.077471 6.6051580E-02 6.6051580E-02 6.6051580E-02 2.6067166E-02 2.5234070E-02 6.6051580E-02 6.6051580E-02 0.000000 2.522285 0.7480119 1.023312 1.069280 1.077155 6.6596709E-02 6.6596709E-02 6.6596709E-02 2.6264256E-02 2.5482332E-02 6.6596709E-02 6.6596709E-02 0.000000 2.513729 0.7517956 1.028250 1.078457 1.073808 6.6972680E-02 6.6972680E-02 6.6972680E-02 2.6458904E-02 2.5685890E-02 6.6972680E-02 6.6972680E-02 0.000000 2.499114 0.7554258 1.029677 1.077695 1.073088 6.7501321E-02 6.7501321E-02 6.7501321E-02 2.6654089E-02 2.5889250E-02 6.7501321E-02 6.7501321E-02 0.000000 2.489643 0.7621719 1.030912 1.076752 1.069372 6.7863792E-02 6.7863792E-02 6.7863792E-02 2.6805488E-02 2.6132686E-02 6.7863792E-02 6.7863792E-02 0.000000 2.479587 0.7655222 1.031969 1.075642 1.065491 6.8220079E-02 6.8220079E-02 6.8220079E-02 2.6993619E-02 2.6331406E-02 6.8220079E-02 6.8220079E-02 0.000000 2.463212 0.7687460 1.036182 1.071557 1.073888 6.8650797E-02 6.8650797E-02 6.8650797E-02 2.7179914E-02 2.6528614E-02 6.8650797E-02 6.8650797E-02 0.000000 2.446327 0.7718520 1.036920 1.070149 1.072394 6.9076307E-02 6.9076307E-02 6.9076307E-02 2.7325520E-02 2.6682468E-02 6.9076307E-02 6.9076307E-02 0.000000 2.440146 0.7748478 1.037513 1.068608 1.070763 6.9419399E-02 6.9419399E-02 6.9419399E-02 2.7469391E-02 2.6876740E-02 6.9419399E-02 6.9419399E-02 0.000000 2.422304 0.7744516 1.037971 1.073701 1.066175 6.9755182E-02 6.9755182E-02 6.9755182E-02 2.7611628E-02 2.7069770E-02 6.9755182E-02 6.9755182E-02 0.000000 2.409823 0.7772433 1.038300 1.074742 1.064298 7.0086434E-02 7.0086434E-02 7.0086434E-02 2.7752323E-02 2.7217872E-02 7.0086434E-02 7.0086434E-02 0.000000 2.396950 0.7799440 1.038509 1.072724 1.059487 7.0413388E-02 7.0413388E-02 7.0413388E-02 2.7930750E-02 2.7408551E-02 7.0413388E-02 7.0413388E-02 0.000000 2.383706 0.7825590 1.038605 1.070599 1.057393 7.0736289E-02 7.0736289E-02 7.0736289E-02 2.8068664E-02 2.7554268E-02 7.0736289E-02 7.0736289E-02 0.000000 2.370114 0.7850951 1.038593 1.068374 1.052383 7.0974343E-02 7.0974343E-02 7.0974343E-02 2.8165987E-02 2.7742855E-02 7.0974343E-02 7.0974343E-02 0.000000 2.356190 0.7875514 1.038481 1.066052 1.062651 7.1208596E-02 7.1208596E-02 7.1208596E-02 2.8301306E-02 2.7886435E-02 7.1208596E-02 7.1208596E-02 0.000000 2.341957 0.7866291 1.038273 1.060822 1.057342 7.1520381E-02 7.1520381E-02 7.1520381E-02 2.8435450E-02 2.8028993E-02 7.1520381E-02 7.1520381E-02 0.000000 2.327156 0.7889414 1.037973 1.058332 1.054776 7.1828865E-02 7.1828865E-02 7.1828865E-02 2.8571824E-02 2.8170578E-02 7.1828865E-02 7.1828865E-02 0.000000 2.312329 0.7911924 1.034254 1.055763 1.049298 7.2134212E-02 7.2134212E-02 7.2134212E-02 2.8703935E-02 2.8311240E-02 7.2134212E-02 7.2134212E-02 0.000000 2.297239 0.7900609 1.033782 1.050301 1.046574 7.2273850E-02 7.2273850E-02 7.2273850E-02 2.8835030E-02 2.8451020E-02 7.2273850E-02 7.2273850E-02 0.000000 2.281898 0.7921893 1.033235 1.060118 1.043779 7.2573200E-02 7.2573200E-02 7.2573200E-02 2.8925562E-02 2.8589962E-02 7.2573200E-02 7.2573200E-02 0.000000 2.266315 0.7942585 1.032615 1.057238 1.040915 7.2788343E-02 7.2788343E-02 7.2788343E-02 2.9015090E-02 2.8728103E-02 7.2788343E-02 7.2788343E-02 0.000000 2.250509 0.7845120 1.031923 1.057119 1.037985 7.3000751E-02 7.3000751E-02 7.3000751E-02 2.9143322E-02 2.8865479E-02 7.3000751E-02 7.3000751E-02 0.000000 2.240268 0.7865361 1.031163 1.054109 1.034992 7.3292129E-02 7.3292129E-02 7.3292129E-02 2.9270709E-02 2.9002124E-02 7.3292129E-02 7.3292129E-02 0.000000 2.229820 0.7852082 1.030339 1.051037 1.029117 7.3417820E-02 7.3417820E-02 7.3417820E-02 2.9317804E-02 2.9138923E-02 7.3417820E-02 7.3417820E-02 0.000000 2.213391 0.7838319 1.029453 1.047907 1.023195 7.3704377E-02 7.3704377E-02 7.3704377E-02 2.9443523E-02 2.9272800E-02 7.3704377E-02 7.3704377E-02 0.000000 2.172444 0.3118470 0.3160253 0.2666470 0.2600609 1.5638895E-02 1.5638895E-02 1.5638895E-02 7.0207524E-03 8.3722835E-03 1.5638895E-02 1.5638895E-02 0.000000 1.036032 0.1632935 0.2629286 0.3357618 0.3529612 2.7271781E-02 2.7271781E-02 2.7271781E-02 1.1567015E-02 1.1629040E-02 2.7271781E-02 2.7271781E-02 0.000000 1.274781 0.2457087 0.3962164 0.4958999 0.5202205 3.3822957E-02 3.3822957E-02 3.3822957E-02 1.3978333E-02 1.3541720E-02 3.3822957E-02 3.3822957E-02 0.000000 1.529021 0.3166419 0.5021030 0.6126410 0.6403334 3.8479324E-02 3.8479324E-02 3.8479324E-02 1.5631149E-02 1.4983045E-02 3.8479324E-02 3.8479324E-02 0.000000 1.740207 0.3746215 0.5852000 0.7008529 0.7287244 4.2025730E-02 4.2025730E-02 4.2025730E-02 1.6926749E-02 1.6102284E-02 4.2025730E-02 4.2025730E-02 0.000000 1.909878 0.4242914 0.6535448 0.7682893 0.7957458 4.4958893E-02 4.4958893E-02 4.4958893E-02 1.7974978E-02 1.7080976E-02 4.4958893E-02 4.4958893E-02 0.000000 2.049046 0.4649678 0.7095563 0.8223757 0.8491008 4.7368396E-02 4.7368396E-02 4.7368396E-02 1.8884638E-02 1.7888915E-02 4.7368396E-02 4.7368396E-02 0.000000 2.166478 0.5008997 0.7552428 0.8652896 0.8910733 4.9483068E-02 4.9483068E-02 4.9483068E-02 1.9632433E-02 1.8641558E-02 4.9483068E-02 4.9483068E-02 0.000000 2.261821 0.5310323 0.7940097 0.9015990 0.9249751 5.1316783E-02 5.1316783E-02 5.1316783E-02 2.0321168E-02 1.9264802E-02 5.1316783E-02 5.1316783E-02 0.000000 2.321781 0.5569327 0.8277670 0.9291021 0.9512870 5.2949548E-02 5.2949548E-02 5.2949548E-02 2.0921603E-02 1.9878445E-02 5.2949548E-02 5.2949548E-02 0.000000 2.376020 0.5802312 0.8552834 0.9548712 0.9744614 5.4393496E-02 5.4393496E-02 5.4393496E-02 2.1471784E-02 2.0401455E-02 5.4393496E-02 5.4393496E-02 0.000000 2.424995 0.6025948 0.8798664 0.9737667 0.9934364 5.5645023E-02 5.5645023E-02 5.5645023E-02 2.1977374E-02 2.0915870E-02 5.5645023E-02 5.5645023E-02 0.000000 2.458947 0.6211652 0.9001453 0.9914531 1.008420 5.6867842E-02 5.6867842E-02 5.6867842E-02 2.2396101E-02 2.1382973E-02 5.6867842E-02 5.6867842E-02 0.000000 2.489307 0.6359785 0.9194317 1.005362 1.022367 5.7986829E-02 5.7986829E-02 5.7986829E-02 2.2842508E-02 2.1802353E-02 5.7986829E-02 5.7986829E-02 0.000000 2.511085 0.6501530 0.9346717 1.018393 1.030168 5.9002966E-02 5.9002966E-02 5.9002966E-02 2.3206970E-02 2.2217905E-02 5.9002966E-02 5.9002966E-02 0.000000 2.530135 0.6637855 0.9507744 1.027878 1.034836 5.9921797E-02 5.9921797E-02 5.9921797E-02 2.3601618E-02 2.2586182E-02 5.9921797E-02 5.9921797E-02 0.000000 2.547088 0.6769481 0.9630076 1.031751 1.050796 6.0742509E-02 6.0742509E-02 6.0742509E-02 2.3915257E-02 2.2949742E-02 6.0742509E-02 6.0742509E-02 0.000000 2.550683 0.6865515 0.9714161 1.041257 1.053975 6.1545793E-02 6.1545793E-02 6.1545793E-02 2.4261614E-02 2.3267640E-02 6.1545793E-02 6.1545793E-02 0.000000 2.557865 0.6957653 0.9825468 1.052576 1.056652 6.2336314E-02 6.2336314E-02 6.2336314E-02 2.4564544E-02 2.3581540E-02 6.2336314E-02 6.2336314E-02 0.000000 2.563789 0.7062200 0.9899577 1.054714 1.066076 6.3032493E-02 6.3032493E-02 6.3032493E-02 2.4864024E-02 2.3894681E-02 6.3032493E-02 6.3032493E-02 0.000000 2.562586 0.7131891 0.9969535 1.056452 1.069991 6.3715801E-02 6.3715801E-02 6.3715801E-02 2.5118325E-02 2.4201792E-02 6.3715801E-02 6.3715801E-02 0.000000 2.554377 0.7214723 1.003569 1.059058 1.071246 6.4308457E-02 6.4308457E-02 6.4308457E-02 2.5371497E-02 2.4463821E-02 6.4308457E-02 6.4308457E-02 0.000000 2.556053 0.7295030 1.009847 1.068211 1.069365 6.4890161E-02 6.4890161E-02 6.4890161E-02 2.5620764E-02 2.4722980E-02 6.4890161E-02 6.4890161E-02 0.000000 2.545579 0.7340837 1.015812 1.068776 1.067190 6.5461867E-02 6.5461867E-02 6.5461867E-02 2.5866149E-02 2.4979532E-02 6.5461867E-02 6.5461867E-02 0.000000 2.539908 0.7416762 1.018199 1.069072 1.077105 6.6024400E-02 6.6024400E-02 6.6024400E-02 2.6070066E-02 2.5233706E-02 6.6024400E-02 6.6024400E-02 0.000000 2.527606 0.7458362 1.023625 1.069121 1.077053 6.6580504E-02 6.6580504E-02 6.6580504E-02 2.6271073E-02 2.5485707E-02 6.6580504E-02 6.6580504E-02 0.000000 2.520267 0.7498093 1.025505 1.068947 1.076770 6.6966727E-02 6.6966727E-02 6.6966727E-02 2.6469396E-02 2.5735717E-02 6.6966727E-02 6.6966727E-02 0.000000 2.511733 0.7536146 1.027160 1.078086 1.073457 6.7504987E-02 6.7504987E-02 6.7504987E-02 2.6668033E-02 2.5942601E-02 6.7504987E-02 6.7504987E-02 0.000000 2.502925 0.7605211 1.031918 1.077354 1.069952 6.7876488E-02 6.7876488E-02 6.7876488E-02 2.6861459E-02 2.6146110E-02 6.7876488E-02 6.7876488E-02 0.000000 2.487709 0.7640235 1.033178 1.076442 1.069089 6.8321422E-02 6.8321422E-02 6.8321422E-02 2.7052740E-02 2.6391175E-02 6.8321422E-02 6.8321422E-02 0.000000 2.471906 0.7673894 1.034254 1.075362 1.077738 6.8760306E-02 6.8760306E-02 6.8760306E-02 2.7203094E-02 2.6547905E-02 6.8760306E-02 6.8760306E-02 0.000000 2.461335 0.7706283 1.035168 1.071308 1.073589 6.9113165E-02 6.9113165E-02 6.9113165E-02 2.7390435E-02 2.6747968E-02 6.9113165E-02 6.9113165E-02 0.000000 2.444473 0.7737487 1.035923 1.069930 1.069295 6.9463514E-02 6.9463514E-02 6.9463514E-02 2.7576027E-02 2.6944941E-02 6.9463514E-02 6.9463514E-02 0.000000 2.432526 0.7734710 1.036533 1.065598 1.067690 6.9806144E-02 6.9806144E-02 6.9806144E-02 2.7720861E-02 2.7140558E-02 6.9806144E-02 6.9806144E-02 0.000000 2.420484 0.7763728 1.037006 1.076407 1.065953 7.0143893E-02 7.0143893E-02 7.0143893E-02 2.7864031E-02 2.7334906E-02 7.0143893E-02 7.0143893E-02 0.000000 2.402244 0.7791773 1.037350 1.071698 1.061277 7.0477046E-02 7.0477046E-02 7.0477046E-02 2.8005637E-02 2.7484164E-02 7.0477046E-02 7.0477046E-02 0.000000 2.389388 0.7818904 1.037574 1.069704 1.056493 7.0805855E-02 7.0805855E-02 7.0805855E-02 2.8145762E-02 2.7632128E-02 7.0805855E-02 7.0805855E-02 0.000000 2.376161 0.7845196 1.037684 1.067598 1.054425 7.1130551E-02 7.1130551E-02 7.1130551E-02 2.8284486E-02 2.7822921E-02 7.1130551E-02 7.1130551E-02 0.000000 2.362582 0.7870638 1.037686 1.065397 1.062009 7.1451351E-02 7.1451351E-02 7.1451351E-02 2.8421884E-02 2.8012723E-02 7.1451351E-02 7.1451351E-02 0.000000 2.348675 0.7862253 1.037587 1.063101 1.059639 7.1768448E-02 7.1768448E-02 7.1768448E-02 2.8561359E-02 2.8157357E-02 7.1768448E-02 7.1768448E-02 0.000000 2.334455 0.7886168 1.037392 1.060717 1.054349 7.1919508E-02 7.1919508E-02 7.1919508E-02 2.8696457E-02 2.8300948E-02 7.1919508E-02 7.1919508E-02 0.000000 2.319656 0.7909428 1.037105 1.055428 1.051802 7.2229601E-02 7.2229601E-02 7.2229601E-02 2.8790869E-02 2.8443549E-02 7.2229601E-02 7.2229601E-02 0.000000 2.304840 0.7898834 1.036731 1.052882 1.046343 7.2536506E-02 7.2536506E-02 7.2536506E-02 2.8923701E-02 2.8585205E-02 7.2536506E-02 7.2536506E-02 0.000000 2.289763 0.7920798 1.032936 1.062808 1.043639 7.2677456E-02 7.2677456E-02 7.2677456E-02 2.9015874E-02 2.8725961E-02 7.2677456E-02 7.2677456E-02 0.000000 2.274428 0.7942141 1.032401 1.060014 1.040862 7.2978295E-02 7.2978295E-02 7.2978295E-02 2.9146647E-02 2.8865861E-02 7.2978295E-02 7.2978295E-02 0.000000 2.258858 0.7845303 1.031790 1.054322 1.038016 7.3276363E-02 7.3276363E-02 7.3276363E-02 2.9276481E-02 2.9004943E-02 7.3276363E-02 7.3276363E-02 0.000000 2.243060 0.7866157 1.031109 1.051391 1.032282 7.3408499E-02 7.3408499E-02 7.3408499E-02 2.9365668E-02 2.9144043E-02 7.3408499E-02 7.3408499E-02 0.000000 2.232826 0.7853464 1.030359 1.048396 1.029305 7.3701262E-02 7.3701262E-02 7.3701262E-02 2.9453922E-02 2.9280173E-02 7.3701262E-02 7.3701262E-02 0.000000 2.222385 0.7840262 1.029545 1.045339 1.023457 7.3828094E-02 7.3828094E-02 7.3828094E-02 2.9581092E-02 2.9418675E-02 7.3828094E-02 7.3828094E-02 0.000000 2.205960 0.7858997 1.028667 1.042228 1.032965 7.4115977E-02 7.4115977E-02 7.4115977E-02 2.9667623E-02 2.9554751E-02 7.4115977E-02 7.4115977E-02 0.000000 2.172502 0.3119485 0.3161302 0.2663702 0.2599842 1.5640594E-02 1.5640594E-02 1.5640594E-02 7.0217997E-03 8.3731152E-03 1.5640594E-02 1.5640594E-02 0.000000 1.036694 0.1635674 0.2632927 0.3365808 0.3533889 2.7359400E-02 2.7359400E-02 2.7359400E-02 1.1640204E-02 1.1639297E-02 2.7359400E-02 2.7359400E-02 0.000000 1.275737 0.2461713 0.3978700 0.4975918 0.5219507 3.4003101E-02 3.4003101E-02 3.4003101E-02 1.4066320E-02 1.3628034E-02 3.4003101E-02 3.4003101E-02 0.000000 1.532482 0.3172610 0.5040995 0.6146447 0.6412167 3.8685665E-02 3.8685665E-02 3.8685665E-02 1.5729608E-02 1.5078754E-02 3.8685665E-02 3.8685665E-02 0.000000 1.741698 0.3765657 0.5874480 0.7018775 0.7309873 4.2319302E-02 4.2319302E-02 4.2319302E-02 1.7066985E-02 1.6205519E-02 4.2319302E-02 4.2319302E-02 0.000000 1.914081 0.4251498 0.6559902 0.7706973 0.7981809 4.5270476E-02 4.5270476E-02 4.5270476E-02 1.8121000E-02 1.7190650E-02 4.5270476E-02 4.5270476E-02 0.000000 2.056111 0.4672548 0.7107227 0.8249279 0.8516776 4.7694478E-02 4.7694478E-02 4.7694478E-02 1.9003488E-02 1.8041966E-02 4.7694478E-02 4.7694478E-02 0.000000 2.168510 0.5019315 0.7565047 0.8679622 0.8924367 4.9823251E-02 4.9823251E-02 4.9823251E-02 1.9791285E-02 1.8761601E-02 4.9823251E-02 4.9823251E-02 0.000000 2.266697 0.5335557 0.7968582 0.9030387 0.9277687 5.1666584E-02 5.1666584E-02 5.1666584E-02 2.0484593E-02 1.9428058E-02 5.1666584E-02 5.1666584E-02 0.000000 2.324132 0.5610015 0.8291813 0.9333166 0.9555305 5.3311061E-02 5.3311061E-02 5.3311061E-02 2.1089025E-02 2.0006742E-02 5.3311061E-02 5.3311061E-02 0.000000 2.378498 0.5844094 0.8567633 0.9564530 0.9760481 5.4761477E-02 5.4761477E-02 5.4761477E-02 2.1644428E-02 2.0573046E-02 5.4761477E-02 5.4761477E-02 0.000000 2.427585 0.6038679 0.8829748 0.9767806 0.9950840 5.6098651E-02 5.6098651E-02 5.6098651E-02 2.2151845E-02 2.1091104E-02 5.6098651E-02 5.6098651E-02 0.000000 2.461642 0.6224852 0.9033216 0.9931548 1.010123 5.7329420E-02 5.7329420E-02 5.7329420E-02 2.2610318E-02 2.1521086E-02 5.7329420E-02 5.7329420E-02 0.000000 2.492097 0.6388718 0.9226712 1.007112 1.024124 5.8376465E-02 5.8376465E-02 5.8376465E-02 2.3022601E-02 2.1985149E-02 5.8376465E-02 5.8376465E-02 0.000000 2.513965 0.6546464 0.9379701 1.020191 1.029323 5.9399560E-02 5.9399560E-02 5.9399560E-02 2.3426779E-02 2.2402398E-02 5.9399560E-02 5.9399560E-02 0.000000 2.533093 0.6667793 0.9525139 1.029722 1.036830 6.0322907E-02 6.0322907E-02 6.0322907E-02 2.3786509E-02 2.2773312E-02 6.0322907E-02 6.0322907E-02 0.000000 2.544430 0.6784191 0.9647897 1.033777 1.050006 6.1226513E-02 6.1226513E-02 6.1226513E-02 2.4139853E-02 2.3139391E-02 6.1226513E-02 6.1226513E-02 0.000000 2.553791 0.6896328 0.9748572 1.049231 1.056031 6.2037222E-02 6.2037222E-02 6.2037222E-02 2.4450788E-02 2.3459587E-02 6.2037222E-02 6.2037222E-02 0.000000 2.561031 0.7004653 0.9844028 1.051866 1.055966 6.2752075E-02 6.2752075E-02 6.2752075E-02 2.4755320E-02 2.3820354E-02 6.2752075E-02 6.2752075E-02 0.000000 2.561287 0.7093754 0.9918508 1.054051 1.067670 6.3452400E-02 6.3452400E-02 6.3452400E-02 2.5017964E-02 2.4090905E-02 6.3452400E-02 6.3452400E-02 0.000000 2.560135 0.7179697 0.9988751 1.055837 1.069332 6.4139657E-02 6.4139657E-02 6.4139657E-02 2.5314268E-02 2.4400052E-02 6.4139657E-02 6.4139657E-02 0.000000 2.551974 0.7230779 1.005526 1.069518 1.070629 6.4815097E-02 6.4815097E-02 6.4815097E-02 2.5568033E-02 2.4706289E-02 6.4815097E-02 6.4815097E-02 0.000000 2.553682 0.7311355 1.011831 1.070422 1.068790 6.5400451E-02 6.5400451E-02 6.5400451E-02 2.5818158E-02 2.4967382E-02 6.5400451E-02 6.5400451E-02 0.000000 2.543250 0.7357388 1.014532 1.071026 1.069467 6.5896124E-02 6.5896124E-02 6.5896124E-02 2.6026495E-02 2.5225805E-02 6.5896124E-02 6.5896124E-02 0.000000 2.537619 0.7433515 1.020240 1.071360 1.079363 6.6384368E-02 6.6384368E-02 6.6384368E-02 2.6270185E-02 2.5481794E-02 6.6384368E-02 6.6384368E-02 0.000000 2.531118 0.7475300 1.022388 1.068637 1.076523 6.6940784E-02 6.6940784E-02 6.6940784E-02 2.6511101E-02 2.5735553E-02 6.6940784E-02 6.6940784E-02 0.000000 2.523400 0.7515209 1.027594 1.075952 1.073453 6.7489311E-02 6.7489311E-02 6.7489311E-02 2.6674757E-02 2.5945982E-02 6.7489311E-02 6.7489311E-02 0.000000 2.509537 0.7553436 1.029271 1.077601 1.072994 6.7870460E-02 6.7870460E-02 6.7870460E-02 2.6910441E-02 2.6152840E-02 6.7870460E-02 6.7870460E-02 0.000000 2.494985 0.7622692 1.030739 1.076900 1.069522 6.8324447E-02 6.8324447E-02 6.8324447E-02 2.7066188E-02 2.6401082E-02 6.8324447E-02 6.8324447E-02 0.000000 2.485573 0.7657872 1.032014 1.073197 1.065871 6.8771869E-02 6.8771869E-02 6.8771869E-02 2.7258549E-02 2.6605882E-02 6.8771869E-02 6.8771869E-02 0.000000 2.469797 0.7691682 1.036432 1.072147 1.074469 6.9132768E-02 6.9132768E-02 6.9132768E-02 2.7448878E-02 2.6807267E-02 6.9132768E-02 6.9132768E-02 0.000000 2.453473 0.7724215 1.034040 1.070942 1.073174 6.9490768E-02 6.9490768E-02 6.9490768E-02 2.7598230E-02 2.7007069E-02 6.9490768E-02 6.9490768E-02 0.000000 2.442050 0.7722702 1.038136 1.066773 1.068905 6.9840610E-02 6.9840610E-02 6.9840610E-02 2.7745679E-02 2.7205391E-02 6.9840610E-02 6.9840610E-02 0.000000 2.430477 0.7752889 1.035439 1.077786 1.064497 7.0266001E-02 7.0266001E-02 7.0266001E-02 2.7930522E-02 2.7358489E-02 7.0266001E-02 7.0266001E-02 0.000000 2.418455 0.7782035 1.039253 1.073221 1.062789 7.0605755E-02 7.0605755E-02 7.0605755E-02 2.8074550E-02 2.7554026E-02 7.0605755E-02 7.0605755E-02 0.000000 2.400233 0.7810205 1.036287 1.071363 1.058140 7.0859872E-02 7.0859872E-02 7.0859872E-02 2.8216988E-02 2.7748344E-02 7.0859872E-02 7.0859872E-02 0.000000 2.381615 0.7837481 1.036525 1.069391 1.053382 7.1190469E-02 7.1190469E-02 7.1190469E-02 2.8357921E-02 2.7897412E-02 7.1190469E-02 7.1190469E-02 0.000000 2.368404 0.7863851 1.036648 1.064484 1.054177 7.1516901E-02 7.1516901E-02 7.1516901E-02 2.8500702E-02 2.8089413E-02 7.1516901E-02 7.1516901E-02 0.000000 2.354839 0.7856353 1.036664 1.062305 1.058858 7.1839392E-02 7.1839392E-02 7.1839392E-02 2.8639024E-02 2.8236128E-02 7.1839392E-02 7.1839392E-02 0.000000 2.340946 0.7881100 1.036577 1.060032 1.056507 7.2158135E-02 7.2158135E-02 7.2158135E-02 2.8776070E-02 2.8381724E-02 7.2158135E-02 7.2158135E-02 0.000000 2.326467 0.7905149 1.036394 1.057670 1.054064 7.2391942E-02 7.2391942E-02 7.2391942E-02 2.8872322E-02 2.8570665E-02 7.2391942E-02 7.2391942E-02 0.000000 2.311943 0.7895312 1.036117 1.052405 1.048705 7.2622225E-02 7.2622225E-02 7.2622225E-02 2.9006954E-02 2.8714254E-02 7.2622225E-02 7.2622225E-02 0.000000 2.297140 0.7917990 1.032418 1.062438 1.043269 7.2930649E-02 7.2930649E-02 7.2930649E-02 2.9140487E-02 2.8856881E-02 7.2930649E-02 7.2930649E-02 0.000000 2.282070 0.7940015 1.035308 1.059735 1.040583 7.3154427E-02 7.3154427E-02 7.3154427E-02 2.9272974E-02 2.8998591E-02 7.3154427E-02 7.3154427E-02 0.000000 2.266745 0.7843784 1.031447 1.056958 1.037824 7.3375143E-02 7.3375143E-02 7.3375143E-02 2.9364713E-02 2.9140266E-02 7.3375143E-02 7.3375143E-02 0.000000 2.251183 0.7865277 1.030847 1.054110 1.034994 7.3674619E-02 7.3674619E-02 7.3674619E-02 2.9455421E-02 2.9278817E-02 7.3674619E-02 7.3674619E-02 0.000000 2.235393 0.7853196 1.030176 1.048367 1.029276 7.3807925E-02 7.3807925E-02 7.3807925E-02 2.9584957E-02 2.9419668E-02 7.3807925E-02 7.3807925E-02 0.000000 2.219385 0.7840580 1.029435 1.045387 1.023505 7.4102022E-02 7.4102022E-02 7.4102022E-02 2.9713621E-02 2.9558027E-02 7.4102022E-02 7.4102022E-02 0.000000 2.208948 0.7859874 1.028630 1.042350 1.033084 7.4229963E-02 7.4229963E-02 7.4229963E-02 2.9761668E-02 2.9695656E-02 7.4229963E-02 7.4229963E-02 0.000000 2.198312 0.7879290 1.024425 1.039255 1.029919 7.4519120E-02 7.4519120E-02 7.4519120E-02 2.9889304E-02 2.9789677E-02 7.4519120E-02 7.4519120E-02 0.000000 2.172556 0.3118223 0.3160032 0.2664796 0.2600960 1.5642202E-02 1.5642202E-02 1.5642202E-02 7.0227953E-03 8.3739031E-03 1.5642202E-02 1.5642202E-02 0.000000 1.037320 0.1638267 0.2644321 0.3369776 0.3546227 2.7445892E-02 2.7445892E-02 2.7445892E-02 1.1683818E-02 1.1681082E-02 2.7445892E-02 2.7445892E-02 0.000000 1.276641 0.2475374 0.3984368 0.4982337 0.5226035 3.4117080E-02 3.4117080E-02 3.4117080E-02 1.4122210E-02 1.3679801E-02 3.4117080E-02 3.4117080E-02 0.000000 1.535880 0.3189362 0.5048445 0.6166048 0.6443704 3.8888227E-02 3.8888227E-02 3.8888227E-02 1.5859812E-02 1.5138336E-02 3.8888227E-02 3.8888227E-02 0.000000 1.745495 0.3784761 0.5896512 0.7052662 0.7331995 4.2542290E-02 4.2542290E-02 4.2542290E-02 1.7172564E-02 1.6307965E-02 4.2542290E-02 4.2542290E-02 0.000000 1.918199 0.4272429 0.6569979 0.7730493 0.8005595 4.5507740E-02 4.5507740E-02 4.5507740E-02 1.8268010E-02 1.7299404E-02 4.5507740E-02 4.5507740E-02 0.000000 2.057889 0.4694986 0.7132708 0.8261257 0.8528833 4.8017118E-02 4.8017118E-02 4.8017118E-02 1.9155860E-02 1.8156165E-02 4.8017118E-02 4.8017118E-02 0.000000 2.170434 0.5042978 0.7606576 0.8705674 0.8963956 5.0156526E-02 5.0156526E-02 5.0156526E-02 1.9948762E-02 1.8919097E-02 5.0156526E-02 5.0156526E-02 0.000000 2.268750 0.5346045 0.7981333 0.9057432 0.9291445 5.2012350E-02 5.2012350E-02 5.2012350E-02 2.0646540E-02 1.9590300E-02 5.2012350E-02 5.2012350E-02 0.000000 2.326360 0.5621116 0.8320585 0.9347572 0.9569772 5.3666599E-02 5.3666599E-02 5.3666599E-02 2.1254884E-02 2.0173240E-02 5.3666599E-02 5.3666599E-02 0.000000 2.380846 0.5855730 0.8612782 0.9579578 0.9803035 5.5124950E-02 5.5124950E-02 5.5124950E-02 2.1814080E-02 2.0743463E-02 5.5124950E-02 5.5124950E-02 0.000000 2.430041 0.6065802 0.8844407 0.9797172 0.9966519 5.6470320E-02 5.6470320E-02 5.6470320E-02 2.2324596E-02 2.1265095E-02 5.6470320E-02 5.6470320E-02 0.000000 2.464196 0.6252607 0.9064231 0.9947721 1.011744 5.7631195E-02 5.7631195E-02 5.7631195E-02 2.2785952E-02 2.1738647E-02 5.7631195E-02 5.7631195E-02 0.000000 2.494743 0.6417058 0.9242392 1.008779 1.025792 5.8761045E-02 5.8761045E-02 5.8761045E-02 2.3200845E-02 2.2165388E-02 5.8761045E-02 5.8761045E-02 0.000000 2.516696 0.6559817 0.9411882 1.021904 1.031167 5.9790280E-02 5.9790280E-02 5.9790280E-02 2.3607478E-02 2.2585465E-02 5.9790280E-02 5.9790280E-02 0.000000 2.535900 0.6697084 0.9541699 1.028925 1.048056 6.0718663E-02 6.0718663E-02 6.0718663E-02 2.3969438E-02 2.2958962E-02 6.0718663E-02 6.0718663E-02 0.000000 2.547310 0.6813903 0.9664838 1.032937 1.051915 6.1549265E-02 6.1549265E-02 6.1549265E-02 2.4325030E-02 2.3327509E-02 6.1549265E-02 6.1549265E-02 0.000000 2.551030 0.6926432 0.9782143 1.048380 1.055199 6.2364630E-02 6.2364630E-02 6.2364630E-02 2.4637636E-02 2.3694571E-02 6.2364630E-02 6.2364630E-02 0.000000 2.558313 0.7019257 0.9861709 1.053854 1.057979 6.3162103E-02 6.3162103E-02 6.3162103E-02 2.4944583E-02 2.4012949E-02 6.3162103E-02 6.3162103E-02 0.000000 2.558619 0.7108620 0.9936536 1.056086 1.069681 6.3866466E-02 6.3866466E-02 6.3866466E-02 2.5247801E-02 2.4327597E-02 6.3866466E-02 6.3866466E-02 0.000000 2.557515 0.7194845 1.000711 1.057918 1.068575 6.4557560E-02 6.4557560E-02 6.4557560E-02 2.5506433E-02 2.4596596E-02 6.4557560E-02 6.4557560E-02 0.000000 2.554729 0.7262207 1.007388 1.068782 1.069914 6.5157376E-02 6.5157376E-02 6.5157376E-02 2.5761705E-02 2.4904758E-02 6.5157376E-02 6.5157376E-02 0.000000 2.551137 0.7326919 1.013723 1.069724 1.068116 6.5745920E-02 6.5745920E-02 6.5745920E-02 2.6013283E-02 2.5167599E-02 6.5745920E-02 6.5745920E-02 0.000000 2.546502 0.7389308 1.016452 1.070366 1.078431 6.6326410E-02 6.6326410E-02 6.6326410E-02 2.6261494E-02 2.5427710E-02 6.6326410E-02 6.6326410E-02 0.000000 2.535152 0.7449490 1.022187 1.070736 1.075876 6.6894636E-02 6.6894636E-02 6.6894636E-02 2.6467966E-02 2.5685335E-02 6.6894636E-02 6.6894636E-02 0.000000 2.522923 0.7491454 1.024356 1.068052 1.075890 6.7374296E-02 6.7374296E-02 6.7374296E-02 2.6674226E-02 2.5942445E-02 6.7374296E-02 6.7374296E-02 0.000000 2.515222 0.7531573 1.026278 1.077487 1.072854 6.7845635E-02 6.7845635E-02 6.7845635E-02 2.6913606E-02 2.6152857E-02 6.7845635E-02 6.7845635E-02 0.000000 2.507159 0.7602554 1.031285 1.077012 1.069608 6.8309285E-02 6.8309285E-02 6.8309285E-02 2.7072821E-02 2.6404459E-02 6.8309285E-02 6.8309285E-02 0.000000 2.492635 0.7639369 1.032778 1.076340 1.068987 6.8765774E-02 6.8765774E-02 6.8765774E-02 2.7307402E-02 2.6612435E-02 6.8765774E-02 6.8765774E-02 0.000000 2.477477 0.7674701 1.034071 1.075487 1.077862 6.9135226E-02 6.9135226E-02 6.9135226E-02 2.7461868E-02 2.6816837E-02 6.9135226E-02 6.9135226E-02 0.000000 2.467500 0.7708655 1.035188 1.071646 1.073923 6.9501303E-02 6.9501303E-02 6.9501303E-02 2.7614132E-02 2.7063170E-02 6.9501303E-02 6.9501303E-02 0.000000 2.451200 0.7741328 1.036134 1.067653 1.069826 6.9939479E-02 6.9939479E-02 6.9939479E-02 2.7803479E-02 2.7220557E-02 6.9939479E-02 6.9939479E-02 0.000000 2.439789 0.7739924 1.036924 1.066662 1.068408 7.0291400E-02 7.0291400E-02 7.0291400E-02 2.7991019E-02 2.7420096E-02 7.0291400E-02 7.0291400E-02 0.000000 2.422457 0.7770240 1.037566 1.074469 1.064024 7.0718914E-02 7.0718914E-02 7.0718914E-02 2.8137589E-02 2.7618220E-02 7.0718914E-02 7.0718914E-02 0.000000 2.410454 0.7799511 1.038071 1.072755 1.059519 7.0979610E-02 7.0979610E-02 7.0979610E-02 2.8282449E-02 2.7815016E-02 7.0979610E-02 7.0979610E-02 0.000000 2.398029 0.7827799 1.038445 1.070919 1.057716 7.1316496E-02 7.1316496E-02 7.1316496E-02 2.8425695E-02 2.7966429E-02 7.1316496E-02 7.1316496E-02 0.000000 2.379427 0.7855181 1.038699 1.066140 1.050164 7.1567751E-02 7.1567751E-02 7.1567751E-02 2.8570764E-02 2.8160712E-02 7.1567751E-02 7.1567751E-02 0.000000 2.360449 0.7848620 1.038837 1.064083 1.060662 7.1895875E-02 7.1895875E-02 7.1895875E-02 2.8711203E-02 2.8309587E-02 7.1895875E-02 7.1895875E-02 0.000000 2.346901 0.7874244 1.035531 1.059104 1.055597 7.2220005E-02 7.2220005E-02 7.2220005E-02 2.8850276E-02 2.8457262E-02 7.2220005E-02 7.2220005E-02 0.000000 2.333020 0.7899092 1.035457 1.056853 1.053264 7.2540335E-02 7.2540335E-02 7.2540335E-02 2.8988054E-02 2.8648242E-02 7.2540335E-02 7.2540335E-02 0.000000 2.318543 0.7923249 1.035286 1.054513 1.050840 7.2775595E-02 7.2775595E-02 7.2775595E-02 2.9124599E-02 2.8793762E-02 7.2775595E-02 7.2775595E-02 0.000000 2.304030 0.7913513 1.035022 1.060428 1.045498 7.3007286E-02 7.3007286E-02 7.3007286E-02 2.9220276E-02 2.8938251E-02 7.3007286E-02 7.3007286E-02 0.000000 2.289238 0.7936253 1.034672 1.059236 1.040083 7.3317178E-02 7.3317178E-02 7.3317178E-02 2.9314756E-02 2.9083189E-02 7.3317178E-02 7.3317178E-02 0.000000 2.274176 0.7840613 1.030900 1.056549 1.037415 7.3460631E-02 7.3460631E-02 7.3460631E-02 2.9447865E-02 2.9268570E-02 7.3460631E-02 7.3460631E-02 0.000000 2.258863 0.7862772 1.030385 1.053789 1.034670 7.3764302E-02 7.3764302E-02 7.3764302E-02 2.9579960E-02 2.9411862E-02 7.3764302E-02 7.3764302E-02 0.000000 2.243309 0.7851331 1.029795 1.050957 1.029038 7.3983356E-02 7.3983356E-02 7.3983356E-02 2.9671233E-02 2.9507836E-02 7.3983356E-02 7.3983356E-02 0.000000 2.227525 0.7839327 1.029132 1.045229 1.023346 7.4199572E-02 7.4199572E-02 7.4199572E-02 2.9761508E-02 2.9647775E-02 7.4199572E-02 7.4199572E-02 0.000000 2.217305 0.7859208 1.028401 1.042268 1.033004 7.4494965E-02 7.4494965E-02 7.4494965E-02 2.9891403E-02 2.9788999E-02 7.4494965E-02 7.4494965E-02 0.000000 2.201090 0.7879183 1.024268 1.039247 1.029911 7.4623987E-02 7.4623987E-02 7.4623987E-02 3.0018171E-02 2.9926104E-02 7.4623987E-02 7.4623987E-02 0.000000 2.190462 0.7865597 1.023407 1.036165 1.026762 7.4832387E-02 7.4832387E-02 7.4832387E-02 3.0067619E-02 3.0018870E-02 7.4832387E-02 7.4832387E-02 0.000000 2.172607 0.3119130 0.3158710 0.2663869 0.2598118 1.5643727E-02 1.5643727E-02 1.5643727E-02 7.0237434E-03 8.3746510E-03 1.5643727E-02 1.5643727E-02 0.000000 1.037913 0.1640726 0.2647597 0.3373538 0.3550074 2.7532414E-02 2.7532414E-02 2.7532414E-02 1.1726947E-02 1.1722551E-02 2.7532414E-02 2.7532414E-02 0.000000 1.277497 0.2479550 0.4000345 0.4998609 0.5242678 3.4293681E-02 3.4293681E-02 3.4293681E-02 1.4208721E-02 1.3731020E-02 3.4293681E-02 3.4293681E-02 0.000000 1.536997 0.3194953 0.5067673 0.6185293 0.6451676 3.9088544E-02 3.9088544E-02 3.9088544E-02 1.5956486E-02 1.5232732E-02 3.9088544E-02 3.9088544E-02 0.000000 1.749223 0.3791540 0.5904958 0.7061935 0.7341357 4.2761188E-02 4.2761188E-02 4.2761188E-02 1.7277071E-02 1.6409677E-02 4.2761188E-02 4.2761188E-02 0.000000 1.919725 0.4293005 0.6593459 0.7753499 0.8028861 4.5743600E-02 4.5743600E-02 4.5743600E-02 1.8378902E-02 1.7407302E-02 4.5743600E-02 4.5743600E-02 0.000000 2.059576 0.4703605 0.7157664 0.8298528 0.8566507 4.8336565E-02 4.8336565E-02 4.8336565E-02 1.9307062E-02 1.8269401E-02 4.8336565E-02 4.8336565E-02 0.000000 2.177585 0.5066210 0.7617978 0.8731143 0.8976306 5.0415747E-02 5.0415747E-02 5.0415747E-02 2.0104960E-02 1.9037040E-02 5.0415747E-02 5.0415747E-02 0.000000 2.270699 0.5384557 0.8023688 0.9083844 0.9318060 5.2279945E-02 5.2279945E-02 5.2279945E-02 2.0807115E-02 1.9714680E-02 5.2279945E-02 5.2279945E-02 0.000000 2.328475 0.5646256 0.8348742 0.9361294 0.9583555 5.3944528E-02 5.3944528E-02 5.3944528E-02 2.1419285E-02 2.0338725E-02 5.3944528E-02 5.3944528E-02 0.000000 2.383075 0.5881637 0.8626198 0.9621221 0.9817436 5.5484228E-02 5.5484228E-02 5.5484228E-02 2.1983730E-02 2.0912794E-02 5.5484228E-02 5.5484228E-02 0.000000 2.432378 0.6092392 0.8874081 0.9812087 1.000911 5.6837611E-02 5.6837611E-02 5.6837611E-02 2.2495745E-02 2.1397568E-02 5.6837611E-02 5.6837611E-02 0.000000 2.466622 0.6279811 0.9078709 0.9976953 1.016071 5.8004871E-02 5.8004871E-02 5.8004871E-02 2.2959918E-02 2.1874556E-02 5.8004871E-02 5.8004871E-02 0.000000 2.497257 0.6429429 0.9257336 1.010369 1.027387 5.9140913E-02 5.9140913E-02 5.9140913E-02 2.3377363E-02 2.2344351E-02 5.9140913E-02 5.9140913E-02 0.000000 2.519291 0.6572546 0.9427246 1.023538 1.032925 6.0175855E-02 6.0175855E-02 6.0175855E-02 2.3786394E-02 2.2767203E-02 6.0175855E-02 6.0175855E-02 0.000000 2.538566 0.6710153 0.9557488 1.030720 1.047040 6.1109427E-02 6.1109427E-02 6.1109427E-02 2.4152538E-02 2.3143234E-02 6.1109427E-02 6.1109427E-02 0.000000 2.544349 0.6843004 0.9681023 1.034786 1.053740 6.2025338E-02 6.2025338E-02 6.2025338E-02 2.4508996E-02 2.3514198E-02 6.2025338E-02 6.2025338E-02 0.000000 2.553511 0.6940101 0.9798682 1.050233 1.054280 6.2765040E-02 6.2765040E-02 6.2765040E-02 2.4824347E-02 2.3883536E-02 6.2765040E-02 6.2765040E-02 0.000000 2.561168 0.7033192 0.9878579 1.052961 1.057110 6.3488036E-02 6.3488036E-02 6.3488036E-02 2.5130352E-02 2.4204023E-02 6.3488036E-02 6.3488036E-02 0.000000 2.561530 0.7122808 0.9953698 1.055238 1.068793 6.4275078E-02 6.4275078E-02 6.4275078E-02 2.5434330E-02 2.4520699E-02 6.4275078E-02 6.4275078E-02 0.000000 2.560478 0.7209274 1.002461 1.057115 1.070538 6.4890712E-02 6.4890712E-02 6.4890712E-02 2.5696540E-02 2.4833970E-02 6.4890712E-02 6.4890712E-02 0.000000 2.557732 0.7292936 1.009166 1.067955 1.069107 6.5493770E-02 6.5493770E-02 6.5493770E-02 2.5953291E-02 2.5101585E-02 6.5493770E-02 6.5493770E-02 0.000000 2.554187 0.7341803 1.015528 1.068933 1.067350 6.6164993E-02 6.6164993E-02 6.6164993E-02 2.6206285E-02 2.5366137E-02 6.6164993E-02 6.6164993E-02 0.000000 2.543835 0.7420550 1.018280 1.069612 1.077639 6.6668525E-02 6.6668525E-02 6.6668525E-02 2.6455857E-02 2.5627904E-02 6.6668525E-02 6.6668525E-02 0.000000 2.532521 0.7464748 1.024043 1.070019 1.077938 6.7239575E-02 6.7239575E-02 6.7239575E-02 2.6666356E-02 2.5888812E-02 6.7239575E-02 6.7239575E-02 0.000000 2.526090 0.7506884 1.026235 1.068775 1.075163 6.7801818E-02 6.7801818E-02 6.7801818E-02 2.6909687E-02 2.6146103E-02 6.7801818E-02 6.7801818E-02 0.000000 2.518415 0.7547172 1.028180 1.079594 1.072159 6.8195678E-02 6.8195678E-02 6.8195678E-02 2.7072610E-02 2.6401270E-02 6.8195678E-02 6.8195678E-02 0.000000 2.498838 0.7618337 1.029896 1.076327 1.068944 6.8741985E-02 6.8741985E-02 6.8741985E-02 2.7310671E-02 2.6612615E-02 6.8741985E-02 6.8741985E-02 0.000000 2.490116 0.7655303 1.031403 1.075684 1.065535 6.9120534E-02 6.9120534E-02 6.9120534E-02 2.7468411E-02 2.6820205E-02 6.9120534E-02 6.9120534E-02 0.000000 2.474983 0.7690781 1.036037 1.072039 1.074364 6.9495164E-02 6.9495164E-02 6.9495164E-02 2.7662851E-02 2.7069563E-02 6.9495164E-02 6.9495164E-02 0.000000 2.459256 0.7724876 1.037170 1.071047 1.073278 6.9941431E-02 6.9941431E-02 6.9941431E-02 2.7855193E-02 2.7273590E-02 6.9941431E-02 6.9941431E-02 0.000000 2.448753 0.7724824 1.038134 1.067082 1.069205 7.0381813E-02 7.0381813E-02 7.0381813E-02 2.8006347E-02 2.7475964E-02 7.0381813E-02 7.0381813E-02 0.000000 2.437355 0.7756386 1.035617 1.075441 1.064983 7.0735753E-02 7.0735753E-02 7.0735753E-02 2.8155539E-02 2.7632821E-02 7.0735753E-02 7.0735753E-02 0.000000 2.420042 0.7786826 1.039599 1.073880 1.063452 7.1084313E-02 7.1084313E-02 7.1084313E-02 2.8302891E-02 2.7876180E-02 7.1084313E-02 7.1084313E-02 0.000000 2.402277 0.7816216 1.036792 1.069362 1.056149 7.1427815E-02 7.1427815E-02 7.1427815E-02 2.8491152E-02 2.8030040E-02 7.1427815E-02 7.1427815E-02 0.000000 2.389868 0.7844642 1.037181 1.067544 1.054371 7.1685337E-02 7.1685337E-02 7.1685337E-02 2.8635351E-02 2.8182456E-02 7.1685337E-02 7.1685337E-02 0.000000 2.377062 0.7872102 1.037447 1.065616 1.062225 7.2019450E-02 7.2019450E-02 7.2019450E-02 2.8778004E-02 2.8377825E-02 7.2019450E-02 7.2019450E-02 0.000000 2.358098 0.7865625 1.037597 1.063580 1.057280 7.2267950E-02 7.2267950E-02 7.2267950E-02 2.8879611E-02 2.8572069E-02 7.2267950E-02 7.2267950E-02 0.000000 2.338781 0.7891350 1.037639 1.058623 1.055063 7.2593667E-02 7.2593667E-02 7.2593667E-02 2.9019365E-02 2.8720751E-02 7.2593667E-02 7.2593667E-02 0.000000 2.324917 0.7916336 1.034244 1.053573 1.049917 7.2915547E-02 7.2915547E-02 7.2915547E-02 2.9157808E-02 2.8868271E-02 7.2915547E-02 7.2915547E-02 0.000000 2.310442 0.7907399 1.034084 1.055146 1.047508 7.3070653E-02 7.3070653E-02 7.3070653E-02 2.9295003E-02 2.9014688E-02 7.3070653E-02 7.3070653E-02 0.000000 2.295940 0.7930890 1.033827 1.058521 1.042191 7.3385268E-02 7.3385268E-02 7.3385268E-02 2.9431010E-02 2.9160682E-02 7.3385268E-02 7.3385268E-02 0.000000 2.281156 0.7835829 1.033486 1.055930 1.036795 7.3696584E-02 7.3696584E-02 7.3696584E-02 2.9565886E-02 2.9350281E-02 7.3696584E-02 7.3696584E-02 0.000000 2.266103 0.7858685 1.033061 1.053260 1.034141 7.3841244E-02 7.3841244E-02 7.3841244E-02 2.9659837E-02 2.9493682E-02 7.3841244E-02 7.3841244E-02 0.000000 2.250798 0.7847914 1.029222 1.050516 1.031414 7.4146263E-02 7.4146263E-02 7.4146263E-02 2.9752685E-02 2.9636176E-02 7.4146263E-02 7.4146263E-02 0.000000 2.235251 0.7869589 1.028641 1.047700 1.025804 7.4284680E-02 7.4284680E-02 7.4284680E-02 2.9885130E-02 2.9777801E-02 7.4284680E-02 7.4284680E-02 0.000000 2.219475 0.7857044 1.027987 1.044813 1.032732 7.4583955E-02 7.4583955E-02 7.4583955E-02 2.9974809E-02 2.9874837E-02 7.4583955E-02 7.4583955E-02 0.000000 2.209259 0.7877602 1.027264 1.039044 1.029714 7.4716665E-02 7.4716665E-02 7.4716665E-02 3.0065944E-02 3.0014463E-02 7.4716665E-02 7.4716665E-02 0.000000 2.198832 0.7864576 1.026476 1.036036 1.026636 7.5010665E-02 7.5010665E-02 7.5010665E-02 3.0194892E-02 3.0152321E-02 7.5010665E-02 7.5010665E-02 0.000000 2.182428 0.7851057 1.022282 1.030150 1.020672 7.5138114E-02 7.5138114E-02 7.5138114E-02 3.0282957E-02 3.0293548E-02 7.5138114E-02 7.5138114E-02 0.000000 2.172656 0.3117770 0.3159598 0.2662888 0.2599121 1.5645178E-02 1.5645178E-02 1.5645178E-02 7.0481831E-03 8.3753634E-03 1.5645178E-02 1.5645178E-02 0.000000 1.038476 0.1649632 0.2650709 0.3385146 0.3553728 2.7616868E-02 2.7616868E-02 2.7616868E-02 1.1769623E-02 1.1763728E-02 2.7616868E-02 2.7616868E-02 0.000000 1.278310 0.2483527 0.4005468 0.5014605 0.5259039 3.4468766E-02 3.4468766E-02 3.4468766E-02 1.4294605E-02 1.3781724E-02 3.4468766E-02 3.4468766E-02 0.000000 1.538057 0.3211215 0.5074410 0.6192788 0.6470870 3.9286770E-02 3.9286770E-02 3.9286770E-02 1.6052322E-02 1.5290951E-02 3.9286770E-02 3.9286770E-02 0.000000 1.750494 0.3810027 0.5926184 0.7082860 0.7362574 4.2977538E-02 4.2977538E-02 4.2977538E-02 1.7414404E-02 1.6510706E-02 4.2977538E-02 4.2977538E-02 0.000000 1.921174 0.4300415 0.6616495 0.7776055 0.8051663 4.6046149E-02 4.6046149E-02 4.6046149E-02 1.8488659E-02 1.7514400E-02 4.6046149E-02 4.6046149E-02 0.000000 2.061178 0.4725255 0.7167721 0.8309415 0.8577445 4.8581924E-02 4.8581924E-02 4.8581924E-02 1.9422045E-02 1.8381737E-02 4.8581924E-02 4.8581924E-02 0.000000 2.179322 0.5075130 0.7643661 0.8742842 0.9001409 5.0742913E-02 5.0742913E-02 5.0742913E-02 2.0259963E-02 1.9153994E-02 5.0742913E-02 5.0742913E-02 0.000000 2.272553 0.5394108 0.8035275 0.9096289 0.9344065 5.2618317E-02 5.2618317E-02 5.2618317E-02 2.0930422E-02 1.9875064E-02 5.2618317E-02 5.2618317E-02 0.000000 2.330485 0.5670949 0.8360986 0.9401445 0.9610345 5.4291755E-02 5.4291755E-02 5.4291755E-02 2.1582322E-02 2.0463530E-02 5.4291755E-02 5.4291755E-02 0.000000 2.385196 0.5907073 0.8654553 0.9634919 0.9831181 5.5839587E-02 5.5839587E-02 5.5839587E-02 2.2150330E-02 2.1040987E-02 5.5839587E-02 5.5839587E-02 0.000000 2.434596 0.6103431 0.8903140 0.9826325 1.002339 5.7126176E-02 5.7126176E-02 5.7126176E-02 2.2665394E-02 2.1569218E-02 5.7126176E-02 5.7126176E-02 0.000000 2.468930 0.6291264 0.9092524 1.000551 1.017548 5.8374293E-02 5.8374293E-02 5.8374293E-02 2.3132324E-02 2.2049356E-02 5.8374293E-02 5.8374293E-02 0.000000 2.499649 0.6456625 0.9287566 1.014667 1.028910 5.9439670E-02 5.9439670E-02 5.9439670E-02 2.3552267E-02 2.2481062E-02 5.9439670E-02 5.9439670E-02 0.000000 2.521620 0.6615751 0.9441956 1.025101 1.034608 6.0479239E-02 6.0479239E-02 6.0479239E-02 2.3963641E-02 2.2947703E-02 6.0479239E-02 6.0479239E-02 0.000000 2.535421 0.6738274 0.9572566 1.029665 1.048735 6.1495516E-02 6.1495516E-02 6.1495516E-02 2.4329996E-02 2.3326216E-02 6.1495516E-02 6.1495516E-02 0.000000 2.546952 0.6855797 0.9696479 1.036556 1.052694 6.2338218E-02 6.2338218E-02 6.2338218E-02 2.4690280E-02 2.3702387E-02 6.2338218E-02 6.2338218E-02 0.000000 2.556171 0.6953161 0.9814489 1.052006 1.056076 6.3160546E-02 6.3160546E-02 6.3160546E-02 2.5005426E-02 2.4071122E-02 6.3160546E-02 6.3160546E-02 0.000000 2.558161 0.7062413 0.9894699 1.054780 1.068142 6.3966468E-02 6.3966468E-02 6.3966468E-02 2.5317064E-02 2.4393676E-02 6.3966468E-02 6.3966468E-02 0.000000 2.558568 0.7136368 0.9970151 1.057101 1.070633 6.4599477E-02 6.4599477E-02 6.4599477E-02 2.5622329E-02 2.4712339E-02 6.4599477E-02 6.4599477E-02 0.000000 2.557559 0.7223073 1.004134 1.067101 1.069607 6.5297745E-02 6.5297745E-02 6.5297745E-02 2.5884727E-02 2.5027523E-02 6.5297745E-02 6.5297745E-02 0.000000 2.554843 0.7306956 1.010869 1.069853 1.068216 6.5983683E-02 6.5983683E-02 6.5983683E-02 2.6142921E-02 2.5296876E-02 6.5983683E-02 6.5983683E-02 0.000000 2.551335 0.7356039 1.013963 1.070868 1.069307 6.6580698E-02 6.6580698E-02 6.6580698E-02 2.6397299E-02 2.5605960E-02 6.6580698E-02 6.6580698E-02 0.000000 2.541020 0.7434970 1.020034 1.068772 1.076762 6.7084745E-02 6.7084745E-02 6.7084745E-02 2.6651002E-02 2.5871145E-02 6.7084745E-02 6.7084745E-02 0.000000 2.535501 0.7479342 1.022516 1.069215 1.077092 6.7578763E-02 6.7578763E-02 6.7578763E-02 2.6859788E-02 2.6132476E-02 6.7578763E-02 6.7578763E-02 0.000000 2.517577 0.7521681 1.028033 1.078993 1.074349 6.8143643E-02 6.8143643E-02 6.8143643E-02 2.7065476E-02 2.6391439E-02 6.8143643E-02 6.8143643E-02 0.000000 2.509916 0.7578399 1.029998 1.075970 1.071375 6.8539836E-02 6.8539836E-02 6.8539836E-02 2.7307253E-02 2.6606368E-02 6.8539836E-02 6.8539836E-02 0.000000 2.501910 0.7633437 1.031736 1.075553 1.068192 6.9088578E-02 6.9088578E-02 6.9088578E-02 2.7468484E-02 2.6817337E-02 6.9088578E-02 6.9088578E-02 0.000000 2.487440 0.7670551 1.033265 1.074938 1.077322 6.9472305E-02 6.9472305E-02 6.9472305E-02 2.7666209E-02 2.7069891E-02 6.9472305E-02 6.9472305E-02 0.000000 2.472330 0.7706169 1.034593 1.071322 1.073604 6.9846459E-02 6.9846459E-02 6.9846459E-02 2.7861649E-02 2.7276948E-02 6.9846459E-02 6.9846459E-02 0.000000 2.456628 0.7740400 1.035746 1.067540 1.069715 7.0375651E-02 7.0375651E-02 7.0375651E-02 2.8015729E-02 2.7482200E-02 7.0375651E-02 7.0375651E-02 0.000000 2.440369 0.7740456 1.036725 1.067335 1.068493 7.0737250E-02 7.0737250E-02 7.0737250E-02 2.8206980E-02 2.7685771E-02 7.0737250E-02 7.0737250E-02 0.000000 2.428981 0.7772142 1.037546 1.074738 1.064295 7.1093060E-02 7.1093060E-02 7.1093060E-02 2.8357012E-02 2.7887767E-02 7.1093060E-02 7.1093060E-02 0.000000 2.417465 0.7802702 1.038218 1.073198 1.059965 7.1443431E-02 7.1443431E-02 7.1443431E-02 2.8547905E-02 2.8044114E-02 7.1443431E-02 7.1443431E-02 0.000000 2.399717 0.7832237 1.038752 1.068702 1.055508 7.1788676E-02 7.1788676E-02 7.1788676E-02 2.8694533E-02 2.8243158E-02 7.1788676E-02 7.1788676E-02 0.000000 2.381545 0.7860736 1.035826 1.066905 1.052343 7.2047800E-02 7.2047800E-02 7.2047800E-02 2.8839504E-02 2.8440904E-02 7.2047800E-02 7.2047800E-02 0.000000 2.368753 0.7855254 1.036105 1.062175 1.058731 7.2302192E-02 7.2302192E-02 7.2302192E-02 2.8982906E-02 2.8592989E-02 7.2302192E-02 7.2302192E-02 0.000000 2.355583 0.7881906 1.036267 1.060161 1.056634 7.2633550E-02 7.2633550E-02 7.2633550E-02 2.9124826E-02 2.8788274E-02 7.2633550E-02 7.2633550E-02 0.000000 2.336279 0.7907765 1.036321 1.055226 1.051606 7.2960816E-02 7.2960816E-02 7.2960816E-02 2.9225642E-02 2.8937871E-02 7.2960816E-02 7.2960816E-02 0.000000 2.327930 0.7899639 1.036270 1.050200 1.046477 7.3284201E-02 7.3284201E-02 7.3284201E-02 2.9364778E-02 2.9131887E-02 7.3284201E-02 7.3284201E-02 0.000000 2.307956 0.7923951 1.032783 1.060425 1.044088 7.3440582E-02 7.3440582E-02 7.3440582E-02 2.9462865E-02 2.9277725E-02 7.3440582E-02 7.3440582E-02 0.000000 2.293464 0.7947530 1.032541 1.057933 1.041612 7.3756620E-02 7.3756620E-02 7.3756620E-02 2.9599488E-02 2.9425655E-02 7.3756620E-02 7.3756620E-02 0.000000 2.272904 0.7853048 1.032210 1.052529 1.033407 7.3987536E-02 7.3987536E-02 7.3987536E-02 2.9734965E-02 2.9570850E-02 7.3987536E-02 7.3987536E-02 0.000000 2.257862 0.7842978 1.031795 1.049873 1.030773 7.4215144E-02 7.4215144E-02 7.4215144E-02 2.9870275E-02 2.9715074E-02 7.4215144E-02 7.4215144E-02 0.000000 2.242565 0.7865318 1.031300 1.047142 1.028066 7.4521482E-02 7.4521482E-02 7.4521482E-02 2.9962508E-02 2.9859765E-02 7.4521482E-02 7.4521482E-02 0.000000 2.232806 0.7853420 1.027392 1.044343 1.031417 7.4661002E-02 7.4661002E-02 7.4661002E-02 3.0055972E-02 3.0001326E-02 7.4661002E-02 7.4661002E-02 0.000000 2.217036 0.7874586 1.026747 1.041476 1.032159 7.4961528E-02 7.4961528E-02 7.4961528E-02 3.0187309E-02 3.0142069E-02 7.4961528E-02 7.4961528E-02 0.000000 2.201041 0.7862145 1.026033 1.035722 1.026329 7.5095274E-02 7.5095274E-02 7.5095274E-02 3.0277677E-02 3.0285582E-02 7.5095274E-02 7.5095274E-02 0.000000 2.190624 0.7849186 1.021912 1.032731 1.023265 7.5308368E-02 7.5308368E-02 7.5308368E-02 3.0367104E-02 3.0424256E-02 7.5308368E-02 7.5308368E-02 0.000000 2.174045 0.7868828 1.021068 1.026863 1.017310 7.5518914E-02 7.5518914E-02 7.5518914E-02 3.0495746E-02 3.0564262E-02 7.5518914E-02 7.5518914E-02 0.000000 2.172702 0.3118587 0.3160443 0.2663820 0.2596174 1.5646562E-02 1.5646562E-02 1.5646562E-02 7.0490474E-03 8.3760414E-03 1.5646562E-02 1.5646562E-02 0.000000 1.039010 0.1651864 0.2653669 0.3388553 0.3557205 2.7759917E-02 2.7759917E-02 2.7759917E-02 1.1811879E-02 1.1772566E-02 2.7759917E-02 2.7759917E-02 0.000000 1.279082 0.2496635 0.4010345 0.5020137 0.5264664 3.4577738E-02 3.4577738E-02 3.4577738E-02 1.4348351E-02 1.3866194E-02 3.4577738E-02 3.4577738E-02 0.000000 1.539065 0.3216300 0.5093018 0.6211313 0.6489730 3.9483055E-02 3.9483055E-02 3.9483055E-02 1.6147377E-02 1.5384211E-02 3.9483055E-02 3.9483055E-02 0.000000 1.751703 0.3816194 0.5947065 0.7103398 0.7383398 4.3261539E-02 4.3261539E-02 4.3261539E-02 1.7517045E-02 1.6611099E-02 4.3261539E-02 4.3261539E-02 0.000000 1.925065 0.4320338 0.6625211 0.7798151 0.8061216 4.6274632E-02 4.6274632E-02 4.6274632E-02 1.8631974E-02 1.7620753E-02 4.6274632E-02 4.6274632E-02 0.000000 2.065303 0.4746571 0.7206217 0.8332750 0.8601027 4.8822623E-02 4.8822623E-02 4.8822623E-02 1.9571053E-02 1.8531520E-02 4.8822623E-02 4.8822623E-02 0.000000 2.180975 0.5097576 0.7668876 0.8767241 0.9026000 5.1069710E-02 5.1069710E-02 5.1069710E-02 2.0378180E-02 1.9308891E-02 5.1069710E-02 5.1069710E-02 0.000000 2.277033 0.5403226 0.8046335 0.9121585 0.9356012 5.2953422E-02 5.2953422E-02 5.2953422E-02 2.1088429E-02 1.9995239E-02 5.2953422E-02 5.2953422E-02 0.000000 2.332400 0.5680605 0.8388039 0.9413986 0.9636585 5.4635506E-02 5.4635506E-02 5.4635506E-02 2.1709418E-02 2.0627083E-02 5.4635506E-02 5.4635506E-02 0.000000 2.387216 0.5917203 0.8682361 0.9648010 0.9844318 5.6117434E-02 5.6117434E-02 5.6117434E-02 2.2278851E-02 2.1208255E-02 5.6117434E-02 5.6117434E-02 0.000000 2.436710 0.6129056 0.8915887 0.9839938 1.003705 5.7485152E-02 5.7485152E-02 5.7485152E-02 2.2833640E-02 2.1739718E-02 5.7485152E-02 5.7485152E-02 0.000000 2.471130 0.6317469 0.9137470 1.001960 1.018960 5.8662746E-02 5.8662746E-02 5.8662746E-02 2.3303268E-02 2.2223100E-02 5.8662746E-02 5.8662746E-02 0.000000 2.501929 0.6483337 0.9317192 1.016121 1.030365 5.9811641E-02 5.9811641E-02 5.9811641E-02 2.3725655E-02 2.2657620E-02 5.9811641E-02 5.9811641E-02 0.000000 2.523971 0.6627404 0.9456027 1.026596 1.033447 6.0855884E-02 6.0855884E-02 6.0855884E-02 2.4139326E-02 2.3085603E-02 6.0855884E-02 6.0855884E-02 0.000000 2.537839 0.6765885 0.9603162 1.031308 1.050360 6.1799128E-02 6.1799128E-02 6.1799128E-02 2.4508629E-02 2.3507997E-02 6.1799128E-02 6.1799128E-02 0.000000 2.549434 0.6868035 0.9711282 1.046234 1.054367 6.2646374E-02 6.2646374E-02 6.2646374E-02 2.4871239E-02 2.3886455E-02 6.2646374E-02 6.2646374E-02 0.000000 2.558707 0.6997344 0.9829643 1.050914 1.057797 6.3472725E-02 6.3472725E-02 6.3472725E-02 2.5188100E-02 2.4215315E-02 6.3472725E-02 6.3472725E-02 0.000000 2.560751 0.7091134 0.9910152 1.056524 1.067354 6.4282455E-02 6.4282455E-02 6.4282455E-02 2.5500385E-02 2.4582000E-02 6.4282455E-02 6.4282455E-02 0.000000 2.561209 0.7181323 0.9985868 1.056094 1.069587 6.4998083E-02 6.4998083E-02 6.4998083E-02 2.5768865E-02 2.4902612E-02 6.4998083E-02 6.4998083E-02 0.000000 2.554508 0.7236302 1.005735 1.067481 1.068600 6.5699913E-02 6.5699913E-02 6.5699913E-02 2.6071111E-02 2.5219671E-02 6.5699913E-02 6.5699913E-02 0.000000 2.551820 0.7320380 1.012496 1.068864 1.070056 6.6311866E-02 6.6311866E-02 6.6311866E-02 2.6330715E-02 2.5490729E-02 6.6311866E-02 6.6311866E-02 0.000000 2.548349 0.7385803 1.015615 1.069913 1.075908 6.6909216E-02 6.6909216E-02 6.6909216E-02 2.6589284E-02 2.5758604E-02 6.6909216E-02 6.6909216E-02 0.000000 2.543826 0.7448779 1.021713 1.070662 1.075804 6.7495853E-02 6.7495853E-02 6.7495853E-02 2.6802570E-02 2.6068637E-02 6.7495853E-02 6.7495853E-02 0.000000 2.526819 0.7493320 1.024215 1.068330 1.076165 6.7992598E-02 6.7992598E-02 6.7992598E-02 2.7051294E-02 2.6331518E-02 6.7992598E-02 6.7992598E-02 0.000000 2.520452 0.7535823 1.026447 1.078081 1.073453 6.8480007E-02 6.8480007E-02 6.8480007E-02 2.7258106E-02 2.6548538E-02 6.8480007E-02 6.8480007E-02 0.000000 2.512814 0.7609026 1.031741 1.077906 1.070510 6.8958789E-02 6.8958789E-02 6.8958789E-02 2.7462017E-02 2.6808163E-02 6.8958789E-02 6.8958789E-02 0.000000 2.493291 0.7647904 1.033500 1.074696 1.067358 6.9432549E-02 6.9432549E-02 6.9432549E-02 2.7663242E-02 2.7064104E-02 6.9432549E-02 6.9432549E-02 0.000000 2.484620 0.7685161 1.035043 1.074108 1.073626 6.9815874E-02 6.9815874E-02 6.9815874E-02 2.7861977E-02 2.7274368E-02 6.9815874E-02 6.9815874E-02 0.000000 2.469535 0.7720916 1.036396 1.070520 1.072760 7.0272855E-02 7.0272855E-02 7.0272855E-02 2.8019162E-02 2.7482660E-02 7.0272855E-02 7.0272855E-02 0.000000 2.453854 0.7722421 1.037562 1.066762 1.068895 7.0723392E-02 7.0723392E-02 7.0723392E-02 2.8213346E-02 2.7689116E-02 7.0723392E-02 7.0723392E-02 0.000000 2.443029 0.7755436 1.038557 1.075327 1.064868 7.1086884E-02 7.1086884E-02 7.1086884E-02 2.8405514E-02 2.7893858E-02 7.1086884E-02 7.1086884E-02 0.000000 2.426237 0.7787244 1.039394 1.073949 1.063521 7.1444511E-02 7.1444511E-02 7.1444511E-02 2.8559700E-02 2.8096996E-02 7.1444511E-02 7.1444511E-02 0.000000 2.408960 0.7817920 1.036755 1.069604 1.056394 7.1796641E-02 7.1796641E-02 7.1796641E-02 2.8708832E-02 2.8298633E-02 7.1796641E-02 7.1796641E-02 0.000000 2.397008 0.7847558 1.037302 1.067955 1.054781 7.2143592E-02 7.2143592E-02 7.2143592E-02 2.8856184E-02 2.8454486E-02 7.2143592E-02 7.2143592E-02 0.000000 2.378850 0.7876163 1.037717 1.066179 1.062778 7.2404265E-02 7.2404265E-02 7.2404265E-02 2.9001856E-02 2.8653296E-02 7.2404265E-02 7.2404265E-02 0.000000 2.360290 0.7870764 1.038009 1.061470 1.057979 7.2660170E-02 7.2660170E-02 7.2660170E-02 2.9145941E-02 2.8850863E-02 7.2660170E-02 7.2660170E-02 0.000000 2.347135 0.7897514 1.038185 1.056656 1.053071 7.2993077E-02 7.2993077E-02 7.2993077E-02 2.9288525E-02 2.9002622E-02 7.2993077E-02 7.2993077E-02 0.000000 2.333625 0.7923476 1.034915 1.054562 1.050888 7.3321849E-02 7.3321849E-02 7.3321849E-02 2.9429687E-02 2.9153815E-02 7.3321849E-02 7.3321849E-02 0.000000 2.319496 0.7915453 1.034876 1.062121 1.045776 7.3565021E-02 7.3565021E-02 7.3565021E-02 2.9569501E-02 2.9301560E-02 7.3565021E-02 7.3565021E-02 0.000000 2.305312 0.7939821 1.034738 1.059732 1.040581 7.3804326E-02 7.3804326E-02 7.3804326E-02 2.9668180E-02 2.9496402E-02 7.3804326E-02 7.3804326E-02 0.000000 2.290835 0.7845884 1.031169 1.054427 1.038122 7.4121743E-02 7.4121743E-02 7.4121743E-02 2.9765559E-02 2.9643452E-02 7.4121743E-02 7.4121743E-02 0.000000 2.276067 0.7869573 1.030848 1.051867 1.032758 7.4272059E-02 7.4272059E-02 7.4272059E-02 2.9902155E-02 2.9791506E-02 7.4272059E-02 7.4272059E-02 0.000000 2.255248 0.7859585 1.030442 1.046397 1.027320 7.4582748E-02 7.4582748E-02 7.4582748E-02 3.0035410E-02 2.9935164E-02 7.4582748E-02 7.4582748E-02 0.000000 2.239958 0.7848970 1.026620 1.043684 1.025809 7.4726410E-02 7.4726410E-02 7.4726410E-02 3.0131388E-02 3.0078897E-02 7.4726410E-02 7.4726410E-02 0.000000 2.224425 0.7870167 1.026057 1.040901 1.031597 7.5030953E-02 7.5030953E-02 7.5030953E-02 3.0224221E-02 3.0222891E-02 7.5030953E-02 7.5030953E-02 0.000000 2.214438 0.7858337 1.025420 1.038050 1.028672 7.5168528E-02 7.5168528E-02 7.5168528E-02 3.0356092E-02 3.0365799E-02 7.5168528E-02 7.5168528E-02 0.000000 2.198453 0.7845963 1.024714 1.032312 1.022855 7.5467452E-02 7.5467452E-02 7.5467452E-02 3.0487042E-02 3.0505968E-02 7.5467452E-02 7.5467452E-02 0.000000 2.182259 0.7866161 1.023940 1.029334 1.019797 7.5599447E-02 7.5599447E-02 7.5599447E-02 3.0536814E-02 3.0648308E-02 7.5599447E-02 7.5599447E-02 0.000000 2.165680 0.7852774 1.019762 1.023485 1.013860 7.5893208E-02 7.5893208E-02 7.5893208E-02 3.0665958E-02 3.0742981E-02 7.5893208E-02 7.5893208E-02 0.000000 2.172746 0.3117144 0.3158986 0.2660782 0.2597080 1.5647881E-02 1.5647881E-02 1.5647881E-02 7.0498739E-03 8.3766887E-03 1.5647881E-02 1.5647881E-02 0.000000 1.036413 0.1653991 0.2656489 0.3391800 0.3568843 2.7783146E-02 2.7783146E-02 2.7783146E-02 1.1853740E-02 1.1813175E-02 2.7783146E-02 2.7783146E-02 0.000000 1.279817 0.2500255 0.4025638 0.5035633 0.5280514 3.4749988E-02 3.4749988E-02 3.4749988E-02 1.4433041E-02 1.3916017E-02 3.4749988E-02 3.4749988E-02 0.000000 1.540025 0.3232120 0.5111362 0.6229542 0.6496660 3.9677527E-02 3.9677527E-02 3.9677527E-02 1.6241703E-02 1.5441236E-02 3.9677527E-02 3.9677527E-02 0.000000 1.752853 0.3834158 0.5954397 0.7123577 0.7403860 4.3473415E-02 4.3473415E-02 4.3473415E-02 1.7618809E-02 1.6710900E-02 4.3473415E-02 4.3473415E-02 0.000000 1.928895 0.4339985 0.6647471 0.7807226 0.8083172 4.6572272E-02 4.6572272E-02 4.6572272E-02 1.8739734E-02 1.7726408E-02 4.6572272E-02 4.6572272E-02 0.000000 2.069358 0.4754086 0.7215393 0.8355656 0.8624152 4.9133293E-02 4.9133293E-02 4.9133293E-02 1.9686371E-02 1.8642310E-02 4.9133293E-02 4.9133293E-02 0.000000 2.182552 0.5119684 0.7678801 0.8791153 0.9036763 5.1317997E-02 5.1317997E-02 5.1317997E-02 2.0495201E-02 1.9424131E-02 5.1317997E-02 5.1317997E-02 0.000000 2.281431 0.5440603 0.8087224 0.9146360 0.9367439 5.3212561E-02 5.3212561E-02 5.3212561E-02 2.1245314E-02 2.0114468E-02 5.3212561E-02 5.3212561E-02 0.000000 2.334226 0.5704476 0.8414608 0.9425941 0.9648616 5.4900534E-02 5.4900534E-02 5.4900534E-02 2.1871757E-02 2.0749891E-02 5.4900534E-02 5.4900534E-02 0.000000 2.389143 0.5941780 0.8694094 0.9660538 0.9856891 5.6389932E-02 5.6389932E-02 5.6389932E-02 2.2442771E-02 2.1334320E-02 5.6389932E-02 5.6389932E-02 0.000000 2.438726 0.6154261 0.8928081 0.9852969 1.005012 5.7840541E-02 5.7840541E-02 5.7840541E-02 2.2963487E-02 2.1869322E-02 5.7840541E-02 5.7840541E-02 0.000000 2.473229 0.6343240 0.9150160 1.003310 1.020313 5.9024323E-02 5.9024323E-02 5.9024323E-02 2.3435529E-02 2.2354871E-02 5.9024323E-02 5.9024323E-02 0.000000 2.504105 0.6494174 0.9330261 1.017513 1.029224 6.0179025E-02 6.0179025E-02 6.0179025E-02 2.3897622E-02 2.2833144E-02 6.0179025E-02 6.0179025E-02 0.000000 2.526214 0.6638561 0.9485556 1.028025 1.034994 6.1228540E-02 6.1228540E-02 6.1228540E-02 2.4276501E-02 2.3263752E-02 6.1228540E-02 6.1228540E-02 0.000000 2.540148 0.6777345 0.9633153 1.032885 1.051918 6.2100876E-02 6.2100876E-02 6.2100876E-02 2.4646927E-02 2.3691485E-02 6.2100876E-02 6.2100876E-02 0.000000 2.551804 0.6895559 0.9725434 1.046383 1.055973 6.3028671E-02 6.3028671E-02 6.3028671E-02 2.5009107E-02 2.4069354E-02 6.3028671E-02 6.3028671E-02 0.000000 2.555412 0.7009342 0.9844124 1.052545 1.056654 6.3859217E-02 6.3859217E-02 6.3859217E-02 2.5367929E-02 2.4400292E-02 6.3859217E-02 6.3859217E-02 0.000000 2.557498 0.7103369 0.9924935 1.055404 1.069008 6.4593807E-02 6.4593807E-02 6.4593807E-02 2.5643721E-02 2.4769075E-02 6.4593807E-02 6.4593807E-02 0.000000 2.557997 0.7193817 1.000096 1.057810 1.068470 6.5312870E-02 6.5312870E-02 6.5312870E-02 2.5952036E-02 2.5091600E-02 6.5312870E-02 6.5312870E-02 0.000000 2.557076 0.7265022 1.007268 1.069193 1.070330 6.6017948E-02 6.6017948E-02 6.6017948E-02 2.6255799E-02 2.5367755E-02 6.6017948E-02 6.6017948E-02 0.000000 2.554423 0.7333287 1.014056 1.070611 1.069014 6.6632584E-02 6.6632584E-02 6.6632584E-02 2.6516784E-02 2.5683234E-02 6.6632584E-02 6.6632584E-02 0.000000 2.550992 0.7415035 1.017201 1.068885 1.076923 6.7232788E-02 6.7232788E-02 6.7232788E-02 2.6776567E-02 2.5997629E-02 6.7232788E-02 6.7232788E-02 0.000000 2.534987 0.7462020 1.023321 1.069668 1.077593 6.7822143E-02 6.7822143E-02 6.7822143E-02 2.6991045E-02 2.6264722E-02 6.7822143E-02 6.7822143E-02 0.000000 2.529533 0.7506723 1.025845 1.068775 1.075164 6.8321407E-02 6.8321407E-02 6.8321407E-02 2.7202060E-02 2.6529122E-02 6.8321407E-02 6.8321407E-02 0.000000 2.522783 0.7549386 1.028097 1.077092 1.072481 6.8811223E-02 6.8811223E-02 6.8811223E-02 2.7448894E-02 2.6792578E-02 6.8811223E-02 6.8811223E-02 0.000000 2.504042 0.7622762 1.030100 1.076945 1.069569 6.9295101E-02 6.9295101E-02 6.9295101E-02 2.7614783E-02 2.7008465E-02 6.9295101E-02 6.9295101E-02 0.000000 2.496085 0.7661783 1.031873 1.073762 1.067166 6.9768757E-02 6.9768757E-02 6.9768757E-02 2.7856112E-02 2.7222022E-02 6.9768757E-02 6.9768757E-02 0.000000 2.481667 0.7699176 1.033436 1.073201 1.075508 7.0154130E-02 7.0154130E-02 7.0154130E-02 2.8016603E-02 2.7477300E-02 7.0154130E-02 7.0154130E-02 0.000000 2.466605 0.7735063 1.034797 1.069640 1.071838 7.0613183E-02 7.0613183E-02 7.0613183E-02 2.8213901E-02 2.7686805E-02 7.0613183E-02 7.0613183E-02 0.000000 2.450944 0.7736675 1.035981 1.065909 1.067997 7.1065724E-02 7.1065724E-02 7.1065724E-02 2.8409012E-02 2.7894437E-02 7.1065724E-02 7.1065724E-02 0.000000 2.440131 0.7769812 1.036991 1.074437 1.063993 7.1431048E-02 7.1431048E-02 7.1431048E-02 2.8565988E-02 2.8100327E-02 7.1431048E-02 7.1431048E-02 0.000000 2.423357 0.7801736 1.037841 1.073080 1.059846 7.1790457E-02 7.1790457E-02 7.1790457E-02 2.8717762E-02 2.8304584E-02 7.1790457E-02 7.1790457E-02 0.000000 2.411875 0.7832554 1.038542 1.068756 1.055564 7.2144300E-02 7.2144300E-02 7.2144300E-02 2.8867619E-02 2.8507313E-02 7.2144300E-02 7.2144300E-02 0.000000 2.388380 0.7862262 1.035774 1.064300 1.053930 7.2411522E-02 7.2411522E-02 7.2411522E-02 2.9015677E-02 2.8708607E-02 7.2411522E-02 7.2411522E-02 0.000000 2.376017 0.7857919 1.036202 1.062549 1.059098 7.2673649E-02 7.2673649E-02 7.2673649E-02 2.9162033E-02 2.8863985E-02 7.2673649E-02 7.2673649E-02 0.000000 2.363250 0.7885650 1.036506 1.060683 1.054318 7.3012471E-02 7.3012471E-02 7.3012471E-02 2.9306784E-02 2.9020010E-02 7.3012471E-02 7.3012471E-02 0.000000 2.344328 0.7912534 1.036693 1.055890 1.049424 7.3346891E-02 7.3346891E-02 7.3346891E-02 2.9450016E-02 2.9215287E-02 7.3346891E-02 7.3346891E-02 0.000000 2.325051 0.7905402 1.036769 1.052935 1.047257 7.3677130E-02 7.3677130E-02 7.3677130E-02 2.9591808E-02 2.9412448E-02 7.3677130E-02 7.3677130E-02 0.000000 2.310923 0.7930604 1.033402 1.058499 1.042170 7.3839888E-02 7.3839888E-02 7.3839888E-02 2.9732235E-02 2.9562585E-02 7.3839888E-02 7.3839888E-02 0.000000 2.296750 0.7837208 1.033274 1.056127 1.036992 7.4162237E-02 7.4162237E-02 7.4162237E-02 2.9872263E-02 2.9711559E-02 7.4162237E-02 7.4162237E-02 0.000000 2.282277 0.7861662 1.033052 1.053666 1.034548 7.4399121E-02 7.4399121E-02 7.4399121E-02 2.9968988E-02 2.9860809E-02 7.4399121E-02 7.4399121E-02 0.000000 2.267517 0.7852411 1.029405 1.048292 1.029202 7.4632458E-02 7.4632458E-02 7.4632458E-02 3.0066900E-02 3.0006004E-02 7.4632458E-02 7.4632458E-02 0.000000 2.252491 0.7842497 1.029009 1.045665 1.023785 7.4944422E-02 7.4944422E-02 7.4944422E-02 3.0202435E-02 3.0151676E-02 7.4944422E-02 7.4944422E-02 0.000000 2.237208 0.7864370 1.028531 1.040144 1.030857 7.5089157E-02 7.5089157E-02 7.5089157E-02 3.0336903E-02 3.0299248E-02 7.5089157E-02 7.5089157E-02 0.000000 2.221681 0.7853179 1.024640 1.037376 1.028014 7.5394914E-02 7.5394914E-02 7.5394914E-02 3.0430246E-02 3.0441837E-02 7.5394914E-02 7.5394914E-02 0.000000 2.205917 0.7841415 1.024011 1.034537 1.025101 7.5533502E-02 7.5533502E-02 7.5533502E-02 3.0522540E-02 3.0585855E-02 7.5533502E-02 7.5533502E-02 0.000000 2.189938 0.7862195 1.023312 1.031634 1.022122 7.5669184E-02 7.5669184E-02 7.5669184E-02 3.0654000E-02 3.0728225E-02 7.5669184E-02 7.5669184E-02 0.000000 2.173570 0.7849367 1.019203 1.025856 1.016250 7.5966537E-02 7.5966537E-02 7.5966537E-02 3.0704165E-02 3.0869797E-02 7.5966537E-02 7.5966537E-02 0.000000 2.157170 0.7836041 1.018374 1.032628 1.010326 7.6096803E-02 7.6096803E-02 7.6096803E-02 3.0833798E-02 3.1010605E-02 7.6096803E-02 7.6096803E-02 0.000000 2.172788 0.3117886 0.3157492 0.2661627 0.2597943 1.5649140E-02 1.5649140E-02 1.5649140E-02 7.0506651E-03 8.3773071E-03 1.5649140E-02 1.5649140E-02 0.000000 1.036896 0.1656021 0.2659180 0.3398928 0.3572011 2.7865089E-02 2.7865089E-02 2.7865089E-02 1.1895232E-02 1.1853549E-02 2.7865089E-02 2.7865089E-02 0.000000 1.282489 0.2503721 0.4030087 0.5040679 0.5285645 3.4856133E-02 3.4856133E-02 3.4856133E-02 1.4517226E-02 1.3965416E-02 3.4856133E-02 3.4856133E-02 0.000000 1.543168 0.3236772 0.5117233 0.6236064 0.6514912 3.9802223E-02 3.9802223E-02 3.9802223E-02 1.6302288E-02 1.5533510E-02 3.9802223E-02 3.9802223E-02 0.000000 1.756350 0.3839802 0.5974646 0.7143424 0.7423985 4.3683216E-02 4.3683216E-02 4.3683216E-02 1.7719747E-02 1.6773231E-02 4.3683216E-02 4.3683216E-02 0.000000 1.930151 0.4346470 0.6669396 0.7828532 0.8104724 4.6795912E-02 4.6795912E-02 4.6795912E-02 1.8846555E-02 1.7831411E-02 4.6795912E-02 4.6795912E-02 0.000000 2.070748 0.4774782 0.7224191 0.8365182 0.8633745 4.9368486E-02 4.9368486E-02 4.9368486E-02 1.9833421E-02 1.8752357E-02 4.9368486E-02 4.9368486E-02 0.000000 2.184056 0.5127502 0.7703165 0.8801402 0.9047066 5.1563382E-02 5.1563382E-02 5.1563382E-02 2.0646906E-02 1.9538553E-02 5.1563382E-02 5.1563382E-02 0.000000 2.283038 0.5448978 0.8097362 0.9157258 0.9391913 5.3466890E-02 5.3466890E-02 5.3466890E-02 2.1364927E-02 2.0232810E-02 5.3466890E-02 5.3466890E-02 0.000000 2.335970 0.5727993 0.8425310 0.9437445 0.9660143 5.5237848E-02 5.5237848E-02 5.5237848E-02 2.2031311E-02 2.0871747E-02 5.5237848E-02 5.5237848E-02 0.000000 2.390983 0.5965984 0.8705308 0.9686216 0.9882710 5.6735266E-02 5.6735266E-02 5.6735266E-02 2.2605509E-02 2.1459378E-02 5.6735266E-02 5.6735266E-02 0.000000 2.440653 0.6163983 0.8955527 0.9893001 1.006265 5.8115780E-02 5.8115780E-02 5.8115780E-02 2.3129096E-02 2.1997306E-02 5.8115780E-02 5.8115780E-02 0.000000 2.475235 0.6353307 0.9162283 1.004604 1.021610 5.9383564E-02 5.9383564E-02 5.9383564E-02 2.3603734E-02 2.2526599E-02 5.9383564E-02 5.9383564E-02 0.000000 2.500540 0.6520002 0.9342787 1.018848 1.030655 6.0465135E-02 6.0465135E-02 6.0465135E-02 2.4030659E-02 2.2966331E-02 6.0465135E-02 6.0465135E-02 0.000000 2.522690 0.6664833 0.9514550 1.029400 1.036479 6.1519437E-02 6.1519437E-02 6.1519437E-02 2.4449572E-02 2.3440890E-02 6.1519437E-02 6.1519437E-02 0.000000 2.536668 0.6788334 0.9646392 1.034400 1.050623 6.2474746E-02 6.2474746E-02 6.2474746E-02 2.4823381E-02 2.3829168E-02 6.2474746E-02 6.2474746E-02 0.000000 2.548368 0.6922601 0.9755239 1.047907 1.054721 6.3407011E-02 6.3407011E-02 6.3407011E-02 2.5187528E-02 2.4209058E-02 6.3407011E-02 6.3407011E-02 0.000000 2.557725 0.7020851 0.9858015 1.054112 1.055447 6.4162686E-02 6.4162686E-02 6.4162686E-02 2.5508750E-02 2.4584135E-02 6.4162686E-02 6.4162686E-02 0.000000 2.559862 0.7115107 0.9939128 1.057012 1.067788 6.4900801E-02 6.4900801E-02 6.4900801E-02 2.5823770E-02 2.4912482E-02 6.4900801E-02 6.4900801E-02 0.000000 2.560408 0.7205756 1.001543 1.056665 1.070096 6.5702647E-02 6.5702647E-02 6.5702647E-02 2.6133640E-02 2.5236707E-02 6.5702647E-02 6.5702647E-02 0.000000 2.559531 0.7293260 1.008740 1.068029 1.069183 6.6333711E-02 6.6333711E-02 6.6333711E-02 2.6400261E-02 2.5557244E-02 6.6333711E-02 6.6333711E-02 0.000000 2.556912 0.7345615 1.015553 1.069481 1.067904 6.6948712E-02 6.6948712E-02 6.6948712E-02 2.6665285E-02 2.5876131E-02 6.6948712E-02 6.6948712E-02 0.000000 2.547763 0.7427583 1.018720 1.070598 1.078613 6.7551702E-02 6.7551702E-02 6.7551702E-02 2.6923381E-02 2.6147617E-02 6.7551702E-02 6.7551702E-02 0.000000 2.537549 0.7474732 1.024864 1.068605 1.076492 6.8143718E-02 6.8143718E-02 6.8143718E-02 2.7177837E-02 2.6416106E-02 6.8143718E-02 6.8143718E-02 0.000000 2.526365 0.7519594 1.027409 1.078738 1.074092 6.8645433E-02 6.8645433E-02 6.8645433E-02 2.7389972E-02 2.6683437E-02 6.8645433E-02 6.8645433E-02 0.000000 2.519633 0.7578715 1.029681 1.076033 1.071439 6.9137596E-02 6.9137596E-02 6.9137596E-02 2.7598878E-02 2.6946550E-02 6.9137596E-02 6.9137596E-02 0.000000 2.506688 0.7635952 1.031703 1.075913 1.068556 6.9624171E-02 6.9624171E-02 6.9624171E-02 2.7804805E-02 2.7207358E-02 6.9624171E-02 6.9624171E-02 0.000000 2.492986 0.7675112 1.033497 1.072757 1.075123 7.0100009E-02 7.0100009E-02 7.0100009E-02 2.8007977E-02 2.7422177E-02 7.0100009E-02 7.0100009E-02 0.000000 2.478590 0.7712639 1.035073 1.069404 1.071663 7.0487387E-02 7.0487387E-02 7.0487387E-02 2.8208589E-02 2.7678777E-02 7.0487387E-02 7.0487387E-02 0.000000 2.463550 0.7748653 1.036458 1.068688 1.070844 7.0867486E-02 7.0867486E-02 7.0867486E-02 2.8406821E-02 2.7889468E-02 7.0867486E-02 7.0867486E-02 0.000000 2.447909 0.7750368 1.037654 1.077486 1.064197 7.1321853E-02 7.1321853E-02 7.1321853E-02 2.8566748E-02 2.8098259E-02 7.1321853E-02 7.1321853E-02 0.000000 2.437106 0.7783623 1.038679 1.073473 1.063044 7.1770072E-02 7.1770072E-02 7.1770072E-02 2.8721314E-02 2.8305274E-02 7.1770072E-02 7.1770072E-02 0.000000 2.420349 0.7815660 1.036218 1.069311 1.056099 7.2049916E-02 7.2049916E-02 7.2049916E-02 2.8873820E-02 2.8510628E-02 7.2049916E-02 7.2049916E-02 0.000000 2.403104 0.7846579 1.036931 1.067834 1.054659 7.2405338E-02 7.2405338E-02 7.2405338E-02 2.9024387E-02 2.8714428E-02 7.2405338E-02 7.2405338E-02 0.000000 2.391183 0.7876391 1.037504 1.066221 1.059990 7.2674021E-02 7.2674021E-02 7.2674021E-02 2.9212818E-02 2.8872194E-02 7.2674021E-02 7.2674021E-02 0.000000 2.367275 0.7872129 1.037945 1.061667 1.055344 7.3019080E-02 7.3019080E-02 7.3019080E-02 2.9359894E-02 2.9074589E-02 7.3019080E-02 7.3019080E-02 0.000000 2.354520 0.7899956 1.038261 1.057000 1.053410 7.3359422E-02 7.3359422E-02 7.3359422E-02 2.9465558E-02 2.9272117E-02 7.3359422E-02 7.3359422E-02 0.000000 2.341390 0.7893770 1.035124 1.052229 1.048534 7.3695317E-02 7.3695317E-02 7.3695317E-02 2.9609421E-02 2.9427230E-02 7.3695317E-02 7.3695317E-02 0.000000 2.327628 0.7919878 1.035211 1.062725 1.043558 7.3863454E-02 7.3863454E-02 7.3863454E-02 2.9751830E-02 2.9579375E-02 7.3863454E-02 7.3863454E-02 0.000000 2.308001 0.7945164 1.035193 1.057631 1.041311 7.4190959E-02 7.4190959E-02 7.4190959E-02 2.9893491E-02 2.9730281E-02 7.4190959E-02 7.4190959E-02 0.000000 2.288054 0.7852285 1.031739 1.052445 1.036146 7.4514657E-02 7.4514657E-02 7.4514657E-02 3.0031446E-02 2.9925777E-02 7.4514657E-02 7.4514657E-02 0.000000 2.273587 0.7843807 1.031526 1.049997 1.030897 7.4670814E-02 7.4670814E-02 7.4670814E-02 3.0131938E-02 3.0074051E-02 7.4670814E-02 7.4670814E-02 0.000000 2.258838 0.7867668 1.031224 1.047464 1.025573 7.4987300E-02 7.4987300E-02 7.4987300E-02 3.0229148E-02 3.0222412E-02 7.4987300E-02 7.4987300E-02 0.000000 2.243819 0.7857211 1.027500 1.044856 1.032774 7.5136356E-02 7.5136356E-02 7.5136356E-02 3.0365227E-02 3.0369541E-02 7.5136356E-02 7.5136356E-02 0.000000 2.228543 0.7879764 1.027031 1.039349 1.030012 7.5446285E-02 7.5446285E-02 7.5446285E-02 3.0500226E-02 3.0513775E-02 7.5446285E-02 7.5446285E-02 0.000000 2.213019 0.7868645 1.026484 1.033769 1.024353 7.5588860E-02 7.5588860E-02 7.5588860E-02 3.0594034E-02 3.0660164E-02 7.5588860E-02 7.5588860E-02 0.000000 2.197264 0.7856950 1.022522 1.030947 1.021449 7.5892806E-02 7.5892806E-02 7.5892806E-02 3.0686785E-02 3.0804100E-02 7.5892806E-02 7.5892806E-02 0.000000 2.181290 0.7844707 1.021831 1.028062 1.018480 7.6029442E-02 7.6029442E-02 7.6029442E-02 3.0818742E-02 3.0947188E-02 7.6029442E-02 7.6029442E-02 0.000000 2.164922 0.7865048 1.021073 1.030064 1.012626 7.6163262E-02 7.6163262E-02 7.6163262E-02 3.0869288E-02 3.1089466E-02 7.6163262E-02 7.6163262E-02 0.000000 2.154307 0.7851785 1.016907 1.031833 1.006715 7.6459073E-02 7.6459073E-02 7.6459073E-02 3.0999398E-02 3.1185351E-02 7.6459073E-02 7.6459073E-02 0.000000 2.171939 0.3116373 0.3158222 0.2662434 0.2594867 1.5650343E-02 1.5650343E-02 1.5650343E-02 7.0514232E-03 8.3778994E-03 1.5650343E-02 1.5650343E-02 0.000000 1.037358 0.1657962 0.2661751 0.3405927 0.3575037 2.7946306E-02 2.7946306E-02 2.7946306E-02 1.1936378E-02 1.1893704E-02 2.7946306E-02 2.7946306E-02 0.000000 1.283159 0.2516398 0.4045013 0.5055746 0.5301058 3.5025921E-02 3.5025921E-02 3.5025921E-02 1.4569207E-02 1.4014417E-02 3.5025921E-02 3.5025921E-02 0.000000 1.544043 0.3252226 0.5122848 0.6253740 0.6532901 3.9993301E-02 3.9993301E-02 3.9993301E-02 1.6395221E-02 1.5591389E-02 3.9993301E-02 3.9993301E-02 0.000000 1.759800 0.3857319 0.5994627 0.7150808 0.7431439 4.3820702E-02 4.3820702E-02 4.3820702E-02 1.7819911E-02 1.6871877E-02 4.3820702E-02 4.3820702E-02 0.000000 1.931351 0.4352679 0.6677033 0.7849492 0.8113107 4.7017299E-02 4.7017299E-02 4.7017299E-02 1.8987333E-02 1.7935799E-02 4.7017299E-02 4.7017299E-02 0.000000 2.072075 0.4795213 0.7247096 0.8400262 0.8656064 4.9601171E-02 4.9601171E-02 4.9601171E-02 1.9944217E-02 1.8861709E-02 4.9601171E-02 4.9601171E-02 0.000000 2.188163 0.5148986 0.7727157 0.8824458 0.9083682 5.1806036E-02 5.1806036E-02 5.1806036E-02 2.0761805E-02 1.9652205E-02 5.1806036E-02 5.1806036E-02 0.000000 2.284574 0.5457004 0.8107076 0.9167708 0.9415965 5.3793382E-02 5.3793382E-02 5.3793382E-02 2.1483408E-02 2.0350315E-02 5.3793382E-02 5.3793382E-02 0.000000 2.337639 0.5736498 0.8450996 0.9475590 0.9671198 5.5496585E-02 5.5496585E-02 5.5496585E-02 2.2153141E-02 2.1032805E-02 5.5496585E-02 5.5496585E-02 0.000000 2.392744 0.5974912 0.8731681 0.9711424 0.9908056 5.7079442E-02 5.7079442E-02 5.7079442E-02 2.2730174E-02 2.1624966E-02 5.7079442E-02 5.7079442E-02 0.000000 2.442497 0.6188422 0.8982518 0.9905002 1.007468 5.8387622E-02 5.8387622E-02 5.8387622E-02 2.3256317E-02 2.2165131E-02 5.8387622E-02 5.8387622E-02 0.000000 2.477154 0.6362965 0.9173912 1.005847 1.022855 5.9661131E-02 5.9661131E-02 5.9661131E-02 2.3733271E-02 2.2656290E-02 5.9661131E-02 5.9661131E-02 0.000000 2.502530 0.6545470 0.9354805 1.020129 1.029255 6.0747597E-02 6.0747597E-02 6.0747597E-02 2.4201432E-02 2.3139872E-02 6.0747597E-02 6.0747597E-02 0.000000 2.524741 0.6690707 0.9526939 1.030717 1.042462 6.1806582E-02 6.1806582E-02 6.1806582E-02 2.4620924E-02 2.3575339E-02 6.1806582E-02 6.1806582E-02 0.000000 2.538779 0.6814588 0.9659123 1.033084 1.052062 6.2766485E-02 6.2766485E-02 6.2766485E-02 2.4996215E-02 2.3965672E-02 6.2766485E-02 6.2766485E-02 0.000000 2.550535 0.6933420 0.9784524 1.049372 1.056204 6.3702807E-02 6.3702807E-02 6.3702807E-02 2.5362741E-02 2.4389723E-02 6.3702807E-02 6.3702807E-02 0.000000 2.559940 0.7031903 0.9871354 1.052826 1.056974 6.4541198E-02 6.4541198E-02 6.4541198E-02 2.5685752E-02 2.4724521E-02 6.4541198E-02 6.4541198E-02 0.000000 2.562125 0.7126382 0.9952727 1.055766 1.069316 6.5203689E-02 6.5203689E-02 6.5203689E-02 2.6002374E-02 2.5097184E-02 6.5203689E-02 6.5203689E-02 0.000000 2.562716 0.7217276 1.002931 1.062191 1.068850 6.6008888E-02 6.6008888E-02 6.6008888E-02 2.6275188E-02 2.5423257E-02 6.6008888E-02 6.6008888E-02 0.000000 2.556139 0.7304954 1.010155 1.069612 1.067973 6.6642657E-02 6.6642657E-02 6.6642657E-02 2.6543083E-02 2.5745571E-02 6.6642657E-02 6.6642657E-02 0.000000 2.553544 0.7357516 1.016994 1.071097 1.066731 6.7260511E-02 6.7260511E-02 6.7260511E-02 2.6809245E-02 2.6023295E-02 6.7260511E-02 6.7260511E-02 0.000000 2.544425 0.7439642 1.020182 1.069437 1.077418 6.7866214E-02 6.7866214E-02 6.7866214E-02 2.7068501E-02 2.6339514E-02 6.7866214E-02 6.7866214E-02 0.000000 2.534241 0.7486951 1.023045 1.067477 1.075326 6.8460830E-02 6.8460830E-02 6.8460830E-02 2.7324073E-02 2.6611131E-02 6.8460830E-02 6.8460830E-02 0.000000 2.523086 0.7532005 1.028913 1.077587 1.072955 6.8964936E-02 6.8964936E-02 6.8964936E-02 2.7576271E-02 2.6878215E-02 6.8964936E-02 6.8964936E-02 0.000000 2.516372 0.7607564 1.031204 1.077729 1.070331 6.9462404E-02 6.9462404E-02 6.9462404E-02 2.7747098E-02 2.7142746E-02 6.9462404E-02 6.9462404E-02 0.000000 2.503451 0.7648633 1.033248 1.074814 1.067477 6.9948621E-02 6.9948621E-02 6.9948621E-02 2.7993171E-02 2.7361089E-02 6.9948621E-02 6.9948621E-02 0.000000 2.489772 0.7687928 1.035054 1.071684 1.074015 7.0426583E-02 7.0426583E-02 7.0426583E-02 2.8158037E-02 2.7620982E-02 7.0426583E-02 7.0426583E-02 0.000000 2.475399 0.7725584 1.036654 1.071175 1.073405 7.0815921E-02 7.0815921E-02 7.0815921E-02 2.8359521E-02 2.7878882E-02 7.0815921E-02 7.0815921E-02 0.000000 2.460380 0.7728857 1.038051 1.067667 1.066951 7.1197905E-02 7.1197905E-02 7.1197905E-02 2.8561933E-02 2.8090740E-02 7.1197905E-02 7.1197905E-02 0.000000 2.444757 0.7763537 1.035939 1.073605 1.065980 7.1573012E-02 7.1573012E-02 7.1573012E-02 2.8719459E-02 2.8300663E-02 7.1573012E-02 7.1573012E-02 0.000000 2.428186 0.7796906 1.036977 1.072441 1.059204 7.2022945E-02 7.2022945E-02 7.2022945E-02 2.8874764E-02 2.8508784E-02 7.2022945E-02 7.2022945E-02 0.000000 2.417223 0.7829053 1.037854 1.071125 1.055103 7.2304316E-02 7.2304316E-02 7.2304316E-02 2.9067619E-02 2.8715216E-02 7.2304316E-02 7.2304316E-02 0.000000 2.399994 0.7860069 1.038582 1.066838 1.052276 7.2661281E-02 7.2661281E-02 7.2661281E-02 2.9218933E-02 2.8875491E-02 7.2661281E-02 7.2661281E-02 0.000000 2.382307 0.7856932 1.039168 1.062425 1.058978 7.3012911E-02 7.3012911E-02 7.3012911E-02 2.9368402E-02 2.9080223E-02 7.3012911E-02 7.3012911E-02 0.000000 2.369971 0.7885799 1.036290 1.060714 1.054349 7.3359497E-02 7.3359497E-02 7.3359497E-02 2.9516131E-02 2.9280018E-02 7.3359497E-02 7.3359497E-02 0.000000 2.351449 0.7913757 1.036617 1.053248 1.049598 7.3701322E-02 7.3701322E-02 7.3701322E-02 2.9662214E-02 2.9437400E-02 7.3701322E-02 7.3701322E-02 0.000000 2.332549 0.7907640 1.036826 1.053974 1.047568 7.3875114E-02 7.3875114E-02 7.3875114E-02 2.9766856E-02 2.9636523E-02 7.3875114E-02 7.3875114E-02 0.000000 2.318789 0.7933805 1.033585 1.058940 1.042611 7.4208014E-02 7.4208014E-02 7.4208014E-02 2.9910294E-02 2.9791549E-02 7.4208014E-02 7.4208014E-02 0.000000 2.304952 0.7841446 1.033577 1.056691 1.037557 7.4536875E-02 7.4536875E-02 7.4536875E-02 3.0052373E-02 2.9986449E-02 7.4536875E-02 7.4536875E-02 0.000000 2.290802 0.7866802 1.033468 1.051520 1.032411 7.4697949E-02 7.4697949E-02 7.4697949E-02 3.0192679E-02 3.0136630E-02 7.4697949E-02 7.4697949E-02 0.000000 2.270559 0.7858405 1.029930 1.046257 1.027180 7.5019158E-02 7.5019158E-02 7.5019158E-02 3.0331722E-02 3.0288756E-02 7.5019158E-02 7.5019158E-02 0.000000 2.255818 0.7849306 1.029637 1.043743 1.024741 7.5172722E-02 7.5172722E-02 7.5172722E-02 3.0389359E-02 3.0435735E-02 7.5172722E-02 7.5172722E-02 0.000000 2.235024 0.7871948 1.025921 1.041149 1.031841 7.5486995E-02 7.5486995E-02 7.5486995E-02 3.0525969E-02 3.0583959E-02 7.5486995E-02 7.5486995E-02 0.000000 2.219754 0.7861499 1.025460 1.035656 1.026266 7.5633727E-02 7.5633727E-02 7.5633727E-02 3.0661486E-02 3.0730449E-02 7.5633727E-02 7.5633727E-02 0.000000 2.204234 0.7850444 1.021581 1.030094 1.020619 7.5941674E-02 7.5941674E-02 7.5941674E-02 3.0755749E-02 3.0875999E-02 7.5941674E-02 7.5941674E-02 0.000000 2.188487 0.7871910 1.020968 1.027288 1.017725 7.6082148E-02 7.6082148E-02 7.6082148E-02 3.0848943E-02 3.1020651E-02 7.6082148E-02 7.6082148E-02 0.000000 2.178298 0.7859733 1.020281 1.024419 1.014770 7.6301984E-02 7.6301984E-02 7.6301984E-02 3.0981384E-02 3.1164443E-02 7.6301984E-02 7.6301984E-02 0.000000 2.167712 0.7847030 1.016188 1.031224 1.008928 7.6519050E-02 7.6519050E-02 7.6519050E-02 3.1032305E-02 3.1307414E-02 7.6519050E-02 7.6519050E-02 0.000000 2.151320 0.7833825 1.015371 1.028140 1.003026 7.6651052E-02 7.6651052E-02 7.6651052E-02 3.1162880E-02 3.1449594E-02 7.6651052E-02 7.6651052E-02 0.000000 2.171978 0.3117048 0.3158920 0.2661241 0.2595654 1.5651498E-02 1.5651498E-02 1.5651498E-02 7.0521510E-03 8.3784666E-03 1.5651498E-02 1.5651498E-02 0.000000 1.037799 0.1659819 0.2664211 0.3408766 0.3586285 2.8026843E-02 2.8026843E-02 2.8026843E-02 1.1977199E-02 1.1901442E-02 2.8026843E-02 2.8026843E-02 0.000000 1.283799 0.2519575 0.4049095 0.5060373 0.5305762 3.5129577E-02 3.5129577E-02 3.5129577E-02 1.4620639E-02 1.4063044E-02 3.5129577E-02 3.5129577E-02 0.000000 1.547111 0.3256503 0.5140476 0.6271167 0.6538969 4.0184334E-02 4.0184334E-02 4.0184334E-02 1.6487550E-02 1.5682794E-02 4.0184334E-02 4.0184334E-02 0.000000 1.760804 0.3862510 0.6001064 0.7170069 0.7450973 4.4026606E-02 4.4026606E-02 4.4026606E-02 1.7919345E-02 1.6932990E-02 4.4026606E-02 4.4026606E-02 0.000000 1.932499 0.4371567 0.6698340 0.7857477 0.8133970 4.7236566E-02 4.7236566E-02 4.7236566E-02 1.9092498E-02 1.8001704E-02 4.7236566E-02 4.7236566E-02 0.000000 2.073346 0.4801847 0.7269677 0.8409024 0.8678023 4.9833026E-02 4.9833026E-02 4.9833026E-02 2.0054085E-02 1.8931784E-02 4.9833026E-02 4.9833026E-02 0.000000 2.192210 0.5170202 0.7735901 0.8847136 0.9093173 5.2046113E-02 5.2046113E-02 5.2046113E-02 2.0911656E-02 1.9767419E-02 5.2046113E-02 5.2046113E-02 0.000000 2.286044 0.5479091 0.8131617 0.9204597 0.9426028 5.4043554E-02 5.4043554E-02 5.4043554E-02 2.1638785E-02 2.0467032E-02 5.4043554E-02 5.4043554E-02 0.000000 2.339236 0.5744662 0.8476292 0.9486175 0.9695492 5.5752397E-02 5.5752397E-02 5.5752397E-02 2.2273840E-02 2.1152999E-02 5.5752397E-02 5.5752397E-02 0.000000 2.394431 0.5983484 0.8757645 0.9722500 0.9919172 5.7342183E-02 5.7342183E-02 5.7342183E-02 2.2853652E-02 2.1747034E-02 5.7342183E-02 5.7342183E-02 0.000000 2.444263 0.6212524 0.8993293 0.9916530 1.008623 5.8656253E-02 5.8656253E-02 5.8656253E-02 2.3419589E-02 2.2291247E-02 5.8656253E-02 5.8656253E-02 0.000000 2.478993 0.6387569 0.9200996 1.007040 1.024054 5.9935261E-02 5.9935261E-02 5.9935261E-02 2.3899041E-02 2.2826241E-02 5.9935261E-02 5.9935261E-02 0.000000 2.504435 0.6555074 0.9382401 1.021361 1.030582 6.1026625E-02 6.1026625E-02 6.1026625E-02 2.4330407E-02 2.3271007E-02 6.1026625E-02 6.1026625E-02 0.000000 2.526707 0.6700597 0.9538842 1.029468 1.045804 6.2092651E-02 6.2092651E-02 6.2092651E-02 2.4753150E-02 2.3711542E-02 6.2092651E-02 6.2092651E-02 0.000000 2.540802 0.6840460 0.9671391 1.034486 1.053447 6.3133188E-02 6.3133188E-02 6.3133188E-02 2.5128553E-02 2.4143096E-02 6.3133188E-02 6.3133188E-02 0.000000 2.552613 0.6943819 0.9797064 1.050783 1.054838 6.3994877E-02 6.3994877E-02 6.3994877E-02 2.5499038E-02 2.4527142E-02 6.3994877E-02 6.3994877E-02 0.000000 2.556345 0.7042529 0.9884177 1.054277 1.063367 6.4836919E-02 6.4836919E-02 6.4836919E-02 2.5823029E-02 2.4906192E-02 6.4836919E-02 6.4836919E-02 0.000000 2.558566 0.7137223 0.9965844 1.057256 1.070787 6.5582089E-02 6.5582089E-02 6.5582089E-02 2.6141087E-02 2.5238171E-02 6.5582089E-02 6.5582089E-02 0.000000 2.559192 0.7228305 1.004268 1.069246 1.070357 6.6313446E-02 6.6313446E-02 6.6313446E-02 2.6415212E-02 2.5608737E-02 6.6313446E-02 6.6313446E-02 0.000000 2.558392 0.7316201 1.011517 1.071137 1.069514 6.6947572E-02 6.6947572E-02 6.6947572E-02 2.6725866E-02 2.5891457E-02 6.6947572E-02 6.6947572E-02 0.000000 2.550076 0.7368935 1.015083 1.069844 1.073469 6.7568213E-02 6.7568213E-02 6.7568213E-02 2.6990457E-02 2.6212402E-02 6.7568213E-02 6.7568213E-02 0.000000 2.546744 0.7451243 1.021590 1.068216 1.076164 6.8176575E-02 6.8176575E-02 6.8176575E-02 2.7250949E-02 2.6530264E-02 6.8176575E-02 6.8176575E-02 0.000000 2.530832 0.7498708 1.024471 1.069097 1.076921 6.8773724E-02 6.8773724E-02 6.8773724E-02 2.7468681E-02 2.6803272E-02 6.8773724E-02 6.8773724E-02 0.000000 2.525467 0.7543912 1.027052 1.079195 1.071758 6.9282942E-02 6.9282942E-02 6.9282942E-02 2.7721927E-02 2.7071794E-02 6.9282942E-02 6.9282942E-02 0.000000 2.513006 0.7619634 1.032674 1.076541 1.069162 6.9780320E-02 6.9780320E-02 6.9780320E-02 2.7932838E-02 2.7337715E-02 6.9780320E-02 6.9780320E-02 0.000000 2.500109 0.7660838 1.031414 1.073653 1.067672 7.0268691E-02 7.0268691E-02 7.0268691E-02 2.8140696E-02 2.7557313E-02 7.0268691E-02 7.0268691E-02 0.000000 2.486452 0.7700264 1.036560 1.073367 1.075672 7.0748739E-02 7.0748739E-02 7.0748739E-02 2.8306391E-02 2.7818518E-02 7.0748739E-02 7.0748739E-02 0.000000 2.472098 0.7738045 1.034847 1.067248 1.069430 7.1139991E-02 7.1139991E-02 7.1139991E-02 2.8551459E-02 2.8033521E-02 7.1139991E-02 7.1139991E-02 0.000000 2.457098 0.7741421 1.036261 1.068566 1.068654 7.1523815E-02 7.1523815E-02 7.1523815E-02 2.8712135E-02 2.8290695E-02 7.1523815E-02 7.1523815E-02 0.000000 2.441494 0.7776216 1.037486 1.075315 1.062053 7.1900696E-02 7.1900696E-02 7.1900696E-02 2.8870409E-02 2.8457357E-02 7.1900696E-02 7.1900696E-02 0.000000 2.430712 0.7809696 1.038539 1.071343 1.058121 7.2271071E-02 7.2271071E-02 7.2271071E-02 2.9066069E-02 2.8710939E-02 7.2271071E-02 7.2271071E-02 0.000000 2.413987 0.7841972 1.039430 1.067217 1.054043 7.2635360E-02 7.2635360E-02 7.2635360E-02 2.9220045E-02 2.8873853E-02 7.2635360E-02 7.2635360E-02 0.000000 2.396773 0.7873059 1.036841 1.065780 1.062387 7.2993919E-02 7.2993919E-02 7.2993919E-02 2.9372036E-02 2.9081091E-02 7.2993919E-02 7.2993919E-02 0.000000 2.379100 0.7870002 1.037439 1.061388 1.057900 7.3347084E-02 7.3347084E-02 7.3347084E-02 2.9522162E-02 2.9283263E-02 7.3347084E-02 7.3347084E-02 0.000000 2.360993 0.7898962 1.037903 1.056875 1.053287 7.3695168E-02 7.3695168E-02 7.3695168E-02 2.9670529E-02 2.9442968E-02 7.3695168E-02 7.3695168E-02 0.000000 2.348266 0.7893848 1.034906 1.052250 1.048555 7.3874906E-02 7.3874906E-02 7.3874906E-02 2.9818811E-02 2.9644288E-02 7.3874906E-02 7.3874906E-02 0.000000 2.329378 0.7920970 1.035126 1.060051 1.043714 7.4213475E-02 7.4213475E-02 7.4213475E-02 2.9962128E-02 2.9845873E-02 7.4213475E-02 7.4213475E-02 0.000000 2.315622 0.7947218 1.035233 1.057917 1.041597 7.4547738E-02 7.4547738E-02 7.4547738E-02 3.0066920E-02 2.9999072E-02 7.4547738E-02 7.4547738E-02 0.000000 2.296014 0.7855341 1.031898 1.052854 1.033733 7.4713968E-02 7.4713968E-02 7.4713968E-02 3.0209126E-02 3.0150322E-02 7.4713968E-02 7.4713968E-02 0.000000 2.281868 0.7847759 1.031799 1.050526 1.031425 7.5040117E-02 7.5040117E-02 7.5040117E-02 3.0349987E-02 3.0304294E-02 7.5040117E-02 7.5040117E-02 0.000000 2.267417 0.7839434 1.028269 1.045278 1.023397 7.5280473E-02 7.5280473E-02 7.5280473E-02 3.0489573E-02 3.0453045E-02 7.5280473E-02 7.5280473E-02 0.000000 2.252683 0.7862821 1.027984 1.039955 1.030673 7.5517192E-02 7.5517192E-02 7.5517192E-02 3.0547639E-02 3.0648543E-02 7.5517192E-02 7.5517192E-02 0.000000 2.237677 0.7853073 1.024276 1.037376 1.028015 7.5668246E-02 7.5668246E-02 7.5668246E-02 3.0684767E-02 3.0796763E-02 7.5668246E-02 7.5668246E-02 0.000000 2.216631 0.7842687 1.023822 1.034718 1.025279 7.5980373E-02 7.5980373E-02 7.5980373E-02 3.0820791E-02 3.0943982E-02 7.5980373E-02 7.5980373E-02 0.000000 2.201117 0.7864786 1.023291 1.029171 1.019639 7.6124839E-02 7.6124839E-02 7.6124839E-02 3.0915499E-02 3.1090248E-02 7.6124839E-02 7.6124839E-02 0.000000 2.185374 0.7853221 1.019341 1.023562 1.013936 7.6430865E-02 7.6430865E-02 7.6430865E-02 3.1009126E-02 3.1189986E-02 7.6430865E-02 7.6430865E-02 0.000000 2.175009 0.7841102 1.018664 1.033294 1.010992 7.6569289E-02 7.6569289E-02 7.6569289E-02 3.1142041E-02 3.1334408E-02 7.6569289E-02 7.6569289E-02 0.000000 2.158823 0.7861577 1.017920 1.027451 1.007984 7.6704845E-02 7.6704845E-02 7.6704845E-02 3.1193327E-02 3.1477995E-02 7.6704845E-02 7.6704845E-02 0.000000 2.142431 0.7848431 1.013767 1.024378 1.002093 7.7002592E-02 7.7002592E-02 7.7002592E-02 3.1324357E-02 3.1620786E-02 7.7002592E-02 7.7002592E-02 0.000000 2.172014 0.3117695 0.3157328 0.2660016 0.2596406 1.5652603E-02 1.5652603E-02 1.5652603E-02 7.0528500E-03 8.3790105E-03 1.5652603E-02 1.5652603E-02 0.000000 1.038220 0.1661598 0.2674589 0.3411486 0.3589064 2.8106745E-02 2.8106745E-02 2.8106745E-02 1.2017716E-02 1.1941157E-02 2.8106745E-02 2.8106745E-02 0.000000 1.286387 0.2522621 0.4053006 0.5064808 0.5320800 3.5232067E-02 3.5232067E-02 3.5232067E-02 1.4703370E-02 1.4111318E-02 3.5232067E-02 3.5232067E-02 0.000000 1.547913 0.3260605 0.5145641 0.6276920 0.6556472 4.0304042E-02 4.0304042E-02 4.0304042E-02 1.6579315E-02 1.5737824E-02 4.0304042E-02 4.0304042E-02 0.000000 1.761768 0.3879642 0.6020548 0.7189045 0.7470218 4.4230789E-02 4.4230789E-02 4.4230789E-02 1.8018942E-02 1.7030619E-02 4.4230789E-02 4.4230789E-02 0.000000 1.933600 0.4390252 0.6719377 0.7877802 0.8154530 4.7453832E-02 4.7453832E-02 4.7453832E-02 1.9196875E-02 1.8104896E-02 4.7453832E-02 4.7453832E-02 0.000000 2.074564 0.4808215 0.7277439 0.8417437 0.8686494 5.0060526E-02 5.0060526E-02 5.0060526E-02 2.0163080E-02 1.9039784E-02 5.0060526E-02 5.0060526E-02 0.000000 2.193531 0.5177130 0.7759209 0.8856206 0.9102312 5.2358180E-02 5.2358180E-02 5.2358180E-02 2.1024669E-02 1.9879706E-02 5.2358180E-02 5.2358180E-02 0.000000 2.287453 0.5500931 0.8155788 0.9214250 0.9435747 5.4289363E-02 5.4289363E-02 5.4289363E-02 2.1755435E-02 2.0583006E-02 5.4289363E-02 5.4289363E-02 0.000000 2.346256 0.5767215 0.8485768 0.9496350 0.9719390 5.6083396E-02 5.6083396E-02 5.6083396E-02 2.2393471E-02 2.1272395E-02 5.6083396E-02 5.6083396E-02 0.000000 2.398819 0.6006684 0.8767582 0.9733150 0.9929887 5.7602018E-02 5.7602018E-02 5.7602018E-02 2.3013096E-02 2.1870106E-02 5.7602018E-02 5.7602018E-02 0.000000 2.445956 0.6221138 0.9003649 0.9927646 1.009734 5.8921855E-02 5.8921855E-02 5.8921855E-02 2.3544466E-02 2.2416463E-02 5.8921855E-02 5.8921855E-02 0.000000 2.480757 0.6411847 0.9227671 1.008188 1.025203 6.0206242E-02 6.0206242E-02 6.0206242E-02 2.4026144E-02 2.2954077E-02 6.0206242E-02 6.0206242E-02 0.000000 2.506263 0.6564311 0.9409563 1.022547 1.031856 6.1380334E-02 6.1380334E-02 6.1380334E-02 2.4498194E-02 2.3442796E-02 6.1380334E-02 6.1380334E-02 0.000000 2.528593 0.6710111 0.9550291 1.030773 1.047094 6.2373180E-02 6.2373180E-02 6.2373180E-02 2.4885273E-02 2.3885751E-02 6.2373180E-02 6.2373180E-02 0.000000 2.542743 0.6850238 0.9683139 1.035838 1.051988 6.3417941E-02 6.3417941E-02 6.3417941E-02 2.5263581E-02 2.4319645E-02 6.3417941E-02 6.3417941E-02 0.000000 2.548902 0.6953826 0.9809151 1.052143 1.056214 6.4283423E-02 6.4283423E-02 6.4283423E-02 2.5633439E-02 2.4705825E-02 6.4283423E-02 6.4283423E-02 0.000000 2.558381 0.7068704 0.9896519 1.055675 1.069326 6.5129042E-02 6.5129042E-02 6.5129042E-02 2.5997367E-02 2.5086921E-02 6.5129042E-02 6.5129042E-02 0.000000 2.560647 0.7179632 0.9978466 1.055899 1.069396 6.5877505E-02 6.5877505E-02 6.5877505E-02 2.6278382E-02 2.5420761E-02 6.5877505E-02 6.5877505E-02 0.000000 2.555578 0.7238976 1.005553 1.067875 1.068999 6.6611685E-02 6.6611685E-02 6.6611685E-02 2.6595324E-02 2.5750259E-02 6.6611685E-02 6.6611685E-02 0.000000 2.554397 0.7327031 1.012827 1.069797 1.068191 6.7248680E-02 6.7248680E-02 6.7248680E-02 2.6865644E-02 2.6077837E-02 6.7248680E-02 6.7248680E-02 0.000000 2.552267 0.7412265 1.016417 1.068535 1.076579 6.7872040E-02 6.7872040E-02 6.7872040E-02 2.7170295E-02 2.6400454E-02 6.7872040E-02 6.7872040E-02 0.000000 2.543212 0.7462416 1.022944 1.069748 1.077673 6.8483002E-02 6.8483002E-02 6.8483002E-02 2.7393006E-02 2.6677998E-02 6.8483002E-02 6.8483002E-02 0.000000 2.533088 0.7510031 1.025844 1.071457 1.075637 6.9082633E-02 6.9082633E-02 6.9082633E-02 2.7611749E-02 2.6950676E-02 6.9082633E-02 6.9082633E-02 0.000000 2.521989 0.7555382 1.028444 1.077924 1.073321 6.9513954E-02 6.9513954E-02 6.9513954E-02 2.7866021E-02 2.7220471E-02 6.9513954E-02 6.9513954E-02 0.000000 2.509543 0.7631260 1.030769 1.075296 1.067935 7.0094138E-02 7.0094138E-02 7.0094138E-02 2.8077865E-02 2.7487626E-02 7.0094138E-02 7.0094138E-02 0.000000 2.502440 0.7672597 1.032846 1.075253 1.077633 7.0503756E-02 7.0503756E-02 7.0503756E-02 2.8286619E-02 2.7752357E-02 7.0503756E-02 7.0503756E-02 0.000000 2.483033 0.7712149 1.034683 1.069354 1.071615 7.1066707E-02 7.1066707E-02 7.1066707E-02 2.8495776E-02 2.8014850E-02 7.1066707E-02 7.1066707E-02 0.000000 2.468700 0.7750052 1.036312 1.068896 1.071049 7.1459830E-02 7.1459830E-02 7.1459830E-02 2.8699251E-02 2.8231014E-02 7.1459830E-02 7.1459830E-02 0.000000 2.453718 0.7753527 1.037737 1.075099 1.064640 7.1845457E-02 7.1845457E-02 7.1845457E-02 2.8860683E-02 2.8445037E-02 7.1845457E-02 7.1845457E-02 0.000000 2.443547 0.7788433 1.038977 1.074137 1.060889 7.2224066E-02 7.2224066E-02 7.2224066E-02 2.9019687E-02 2.8657069E-02 7.2224066E-02 7.2224066E-02 0.000000 2.421580 0.7822021 1.036717 1.070185 1.056979 7.2596118E-02 7.2596118E-02 7.2596118E-02 2.9216109E-02 2.8867241E-02 7.2596118E-02 7.2596118E-02 0.000000 2.410649 0.7854394 1.037620 1.066079 1.050104 7.2962016E-02 7.2962016E-02 7.2962016E-02 2.9370766E-02 2.9077165E-02 7.2962016E-02 7.2962016E-02 0.000000 2.393448 0.7852535 1.038372 1.061838 1.058401 7.3322140E-02 7.3322140E-02 7.3322140E-02 2.9563224E-02 2.9281830E-02 7.3322140E-02 7.3322140E-02 0.000000 2.375788 0.7882600 1.035646 1.060288 1.056760 7.3676810E-02 7.3676810E-02 7.3676810E-02 2.9714044E-02 2.9443927E-02 7.3676810E-02 7.3676810E-02 0.000000 2.363474 0.7911688 1.036125 1.055794 1.049332 7.3862821E-02 7.3862821E-02 7.3862821E-02 2.9824687E-02 2.9647546E-02 7.3862821E-02 7.3862821E-02 0.000000 2.339198 0.7906643 1.036474 1.054350 1.047444 7.4207343E-02 7.4207343E-02 7.4207343E-02 2.9970156E-02 2.9851278E-02 7.4207343E-02 7.4207343E-02 0.000000 2.325829 0.7933820 1.033366 1.058951 1.042623 7.4547276E-02 7.4547276E-02 7.4547276E-02 3.0117121E-02 3.0005556E-02 7.4547276E-02 7.4547276E-02 0.000000 2.312349 0.7842450 1.033483 1.056831 1.037698 7.4718915E-02 7.4718915E-02 7.4718915E-02 3.0221317E-02 3.0159811E-02 7.4718915E-02 7.4718915E-02 0.000000 2.298531 0.7868745 1.033494 1.051783 1.032675 7.5050235E-02 7.5050235E-02 7.5050235E-02 3.0364081E-02 3.0360479E-02 7.5050235E-02 7.5050235E-02 0.000000 2.278611 0.7861243 1.030068 1.046638 1.027562 7.5295530E-02 7.5295530E-02 7.5295530E-02 3.0505488E-02 3.0511133E-02 7.5295530E-02 7.5295530E-02 0.000000 2.258387 0.7852383 1.026547 1.044235 1.028863 7.5536981E-02 7.5536981E-02 7.5536981E-02 3.0645603E-02 3.0663736E-02 7.5536981E-02 7.5536981E-02 0.000000 2.243659 0.7876443 1.026269 1.038926 1.029599 7.5774752E-02 7.5774752E-02 7.5774752E-02 3.0704090E-02 3.0859141E-02 7.5774752E-02 7.5774752E-02 0.000000 2.228659 0.7866765 1.025906 1.033535 1.024126 7.6009020E-02 7.6009020E-02 7.6009020E-02 3.0841725E-02 3.1008091E-02 7.6009020E-02 7.6009020E-02 0.000000 2.213398 0.7856448 1.022119 1.030894 1.021398 7.6157644E-02 7.6157644E-02 7.6157644E-02 3.0978242E-02 3.1156028E-02 7.6157644E-02 7.6157644E-02 0.000000 2.197892 0.7845522 1.021595 1.028183 1.018598 7.6467678E-02 7.6467678E-02 7.6467678E-02 3.1033084E-02 3.1303000E-02 7.6467678E-02 7.6467678E-02 0.000000 2.182154 0.7834014 1.020997 1.030939 1.012906 7.6609939E-02 7.6609939E-02 7.6609939E-02 3.1167436E-02 3.1403337E-02 7.6609939E-02 7.6609939E-02 0.000000 2.166008 0.7855068 1.016983 1.032272 1.007150 7.6749191E-02 7.6749191E-02 7.6749191E-02 3.1260446E-02 3.1548437E-02 7.6749191E-02 7.6749191E-02 0.000000 2.149825 0.7842483 1.012906 1.026440 1.004154 7.7050522E-02 7.7050522E-02 7.7050522E-02 3.1352457E-02 3.1692691E-02 7.7050522E-02 7.7050522E-02 0.000000 2.133437 0.7829359 1.012100 1.023377 0.9982744 7.7184170E-02 7.7184170E-02 7.7184170E-02 3.1483926E-02 3.1790264E-02 7.7184170E-02 7.7184170E-02 0.000000 2.172049 0.3118315 0.3157967 0.2660722 0.2593228 1.5653664E-02 1.5653664E-02 1.5653664E-02 7.0535219E-03 8.3795320E-03 1.5653664E-02 1.5653664E-02 0.000000 1.038625 0.1663304 0.2676856 0.3414094 0.3591731 2.8186047E-02 2.8186047E-02 2.8186047E-02 1.2057944E-02 1.1948429E-02 2.8186047E-02 2.8186047E-02 0.000000 1.286976 0.2525545 0.4056759 0.5079346 0.5325133 3.5333458E-02 3.5333458E-02 3.5333458E-02 1.4753833E-02 1.4159258E-02 3.5333458E-02 3.5333458E-02 0.000000 1.548683 0.3275595 0.5162879 0.6282443 0.6562066 4.0490635E-02 4.0490635E-02 4.0490635E-02 1.6639378E-02 1.5792398E-02 4.0490635E-02 4.0490635E-02 0.000000 1.762692 0.3884439 0.6026493 0.7195583 0.7476818 4.4433352E-02 4.4433352E-02 4.4433352E-02 1.8082088E-02 1.7090645E-02 4.4433352E-02 4.4433352E-02 0.000000 1.937175 0.4395768 0.6726143 0.7897847 0.8161959 4.7596958E-02 4.7596958E-02 4.7596958E-02 1.9300506E-02 1.8207582E-02 4.7596958E-02 4.7596958E-02 0.000000 2.078338 0.4827915 0.7299427 0.8438534 0.8694636 5.0287094E-02 5.0287094E-02 5.0287094E-02 2.0271247E-02 1.9147201E-02 5.0287094E-02 5.0287094E-02 0.000000 2.194798 0.5197840 0.7782215 0.8864928 0.9111078 5.2593634E-02 5.2593634E-02 5.2593634E-02 2.1136781E-02 1.9991348E-02 5.2593634E-02 5.2593634E-02 0.000000 2.288805 0.5508072 0.8164411 0.9223536 0.9445071 5.4532710E-02 5.4532710E-02 5.4532710E-02 2.1872712E-02 2.0698275E-02 5.4532710E-02 5.4532710E-02 0.000000 2.347728 0.5789500 0.8494881 0.9506141 0.9729222 5.6334317E-02 5.6334317E-02 5.6334317E-02 2.2548942E-02 2.1391032E-02 5.6334317E-02 5.6334317E-02 0.000000 2.403144 0.6029611 0.8777141 0.9743427 0.9940173 5.7859100E-02 5.7859100E-02 5.7859100E-02 2.3134446E-02 2.1991743E-02 5.7859100E-02 5.7859100E-02 0.000000 2.447582 0.6229427 0.9029425 0.9938320 1.010804 5.9184588E-02 5.9184588E-02 5.9184588E-02 2.3668231E-02 2.2581937E-02 5.9184588E-02 5.9184588E-02 0.000000 2.482451 0.6420479 0.9238022 1.009294 1.026312 6.0474243E-02 6.0474243E-02 6.0474243E-02 2.4154082E-02 2.3081018E-02 6.0474243E-02 6.0474243E-02 0.000000 2.508019 0.6573203 0.9420249 1.023688 1.033085 6.1653122E-02 6.1653122E-02 6.1653122E-02 2.4626108E-02 2.3572097E-02 6.1653122E-02 6.1653122E-02 0.000000 2.530404 0.6719272 0.9561315 1.029257 1.048338 6.2650532E-02 6.2650532E-02 6.2650532E-02 2.5014624E-02 2.4017185E-02 6.2650532E-02 6.2650532E-02 0.000000 2.544608 0.6859655 0.9694479 1.037142 1.053274 6.3699432E-02 6.3699432E-02 6.3699432E-02 2.5431475E-02 2.4453133E-02 6.3699432E-02 6.3699432E-02 0.000000 2.550816 0.6979303 0.9820795 1.050662 1.057542 6.4568624E-02 6.4568624E-02 6.4568624E-02 2.5766551E-02 2.4841197E-02 6.4568624E-02 6.4568624E-02 0.000000 2.560337 0.7094496 0.9908433 1.054231 1.067851 6.5417752E-02 6.5417752E-02 6.5417752E-02 2.6131991E-02 2.5224091E-02 6.5417752E-02 6.5417752E-02 0.000000 2.562646 0.7189745 0.9990610 1.057285 1.070763 6.6169433E-02 6.6169433E-02 6.6169433E-02 2.6414333E-02 2.5602432E-02 6.6169433E-02 6.6169433E-02 0.000000 2.557617 0.7265288 1.006792 1.069262 1.070400 6.6906370E-02 6.6906370E-02 6.6906370E-02 2.6732512E-02 2.5935439E-02 6.6906370E-02 6.6906370E-02 0.000000 2.556468 0.7337499 1.014089 1.068406 1.066817 6.7546166E-02 6.7546166E-02 6.7546166E-02 2.7042875E-02 2.6263246E-02 6.7546166E-02 6.7546166E-02 0.000000 2.548620 0.7422882 1.017699 1.069984 1.078009 6.8172194E-02 6.8172194E-02 6.8172194E-02 2.7309872E-02 2.6544068E-02 6.8172194E-02 6.8172194E-02 0.000000 2.539592 0.7473186 1.024248 1.068418 1.076309 6.8785697E-02 6.8785697E-02 6.8785697E-02 2.7533619E-02 2.6866449E-02 6.8785697E-02 6.8785697E-02 0.000000 2.535256 0.7520984 1.027168 1.078944 1.074301 6.9390669E-02 6.9390669E-02 6.9390669E-02 2.7792489E-02 2.7140561E-02 6.9390669E-02 6.9390669E-02 0.000000 2.518420 0.7599061 1.029786 1.076600 1.072012 6.9821656E-02 6.9821656E-02 6.9821656E-02 2.8008630E-02 2.7411748E-02 6.9821656E-02 6.9821656E-02 0.000000 2.511758 0.7642471 1.032129 1.076818 1.066649 7.0404083E-02 7.0404083E-02 7.0404083E-02 2.8221387E-02 2.7680250E-02 7.0404083E-02 7.0404083E-02 0.000000 2.498904 0.7683937 1.034221 1.073978 1.073499 7.0815682E-02 7.0815682E-02 7.0815682E-02 2.8431021E-02 2.7902178E-02 7.0815682E-02 7.0815682E-02 0.000000 2.485294 0.7723612 1.036080 1.070923 1.073158 7.1218543E-02 7.1218543E-02 7.1218543E-02 2.8641190E-02 2.8165812E-02 7.1218543E-02 7.1218543E-02 0.000000 2.465208 0.7728768 1.037721 1.067671 1.066956 7.1775660E-02 7.1775660E-02 7.1775660E-02 2.8845485E-02 2.8383007E-02 7.1775660E-02 7.1775660E-02 0.000000 2.456019 0.7765204 1.035837 1.073845 1.063398 7.2163045E-02 7.2163045E-02 7.2163045E-02 2.9007658E-02 2.8598035E-02 7.2163045E-02 7.2163045E-02 0.000000 2.440079 0.7800219 1.037089 1.072903 1.059669 7.2543353E-02 7.2543353E-02 7.2543353E-02 2.9167380E-02 2.8855588E-02 7.2543353E-02 7.2543353E-02 0.000000 2.423910 0.7833939 1.038168 1.068970 1.055780 7.2917037E-02 7.2917037E-02 7.2917037E-02 2.9364545E-02 2.9068392E-02 7.2917037E-02 7.2917037E-02 0.000000 2.407214 0.7866377 1.035755 1.064883 1.057305 7.3284514E-02 7.3284514E-02 7.3284514E-02 2.9519873E-02 2.9275684E-02 7.3284514E-02 7.3284514E-02 0.000000 2.390027 0.7864597 1.036518 1.063484 1.057188 7.3564477E-02 7.3564477E-02 7.3564477E-02 2.9673176E-02 2.9440248E-02 7.3564477E-02 7.3564477E-02 0.000000 2.372380 0.7894754 1.037138 1.056310 1.052734 7.3838793E-02 7.3838793E-02 7.3838793E-02 2.9865460E-02 2.9646276E-02 7.3838793E-02 7.3838793E-02 0.000000 2.354297 0.7923937 1.034291 1.054656 1.050981 7.4189581E-02 7.4189581E-02 7.4189581E-02 2.9973796E-02 2.9852301E-02 7.4189581E-02 7.4189581E-02 0.000000 2.341592 0.7918960 1.034649 1.062621 1.043454 7.4535482E-02 7.4535482E-02 7.4535482E-02 3.0122988E-02 3.0008331E-02 7.4535482E-02 7.4535482E-02 0.000000 2.322443 0.7946218 1.034888 1.057792 1.041472 7.4712813E-02 7.4712813E-02 7.4712813E-02 3.0229265E-02 3.0211871E-02 7.4712813E-02 7.4712813E-02 0.000000 2.303193 0.7855299 1.031678 1.052858 1.033737 7.5049549E-02 7.5049549E-02 7.5049549E-02 3.0374018E-02 3.0367780E-02 7.5049549E-02 7.5049549E-02 0.000000 2.289385 0.7848653 1.031697 1.050652 1.031552 7.5300023E-02 7.5300023E-02 7.5300023E-02 3.0517329E-02 3.0567324E-02 7.5300023E-02 7.5300023E-02 0.000000 2.275255 0.7841219 1.028281 1.045521 1.023641 7.5546414E-02 7.5546414E-02 7.5546414E-02 3.0659270E-02 3.0720320E-02 7.5546414E-02 7.5546414E-02 0.000000 2.260819 0.7865453 1.028103 1.040309 1.031020 7.5788915E-02 7.5788915E-02 7.5788915E-02 3.0759694E-02 3.0872129E-02 7.5788915E-02 7.5788915E-02 0.000000 2.240317 0.7856513 1.024497 1.037837 1.028466 7.6027714E-02 7.6027714E-02 7.6027714E-02 3.0858802E-02 3.1022809E-02 7.6027714E-02 7.6027714E-02 0.000000 2.219542 0.7846897 1.024141 1.032462 1.023003 7.6180674E-02 7.6180674E-02 7.6180674E-02 3.0996932E-02 3.1172413E-02 7.6180674E-02 7.6180674E-02 0.000000 2.204284 0.7869737 1.023702 1.027014 1.017459 7.6494887E-02 7.6494887E-02 7.6494887E-02 3.1093616E-02 3.1320993E-02 7.6494887E-02 7.6494887E-02 0.000000 2.188785 0.7858875 1.019844 1.024318 1.014672 7.6641142E-02 7.6641142E-02 7.6641142E-02 3.1189151E-02 3.1468589E-02 7.6641142E-02 7.6641142E-02 0.000000 2.172873 0.7847430 1.015910 1.031288 1.008993 7.6866686E-02 7.6866686E-02 7.6866686E-02 3.1323966E-02 3.1615254E-02 7.6866686E-02 7.6866686E-02 0.000000 2.162688 0.7835431 1.015245 1.028360 1.003246 7.7089280E-02 7.7089280E-02 7.7089280E-02 3.1376977E-02 3.1761017E-02 7.7089280E-02 7.7089280E-02 0.000000 2.146508 0.7822863 1.014511 1.025368 1.000260 7.7226482E-02 7.7226482E-02 7.7226482E-02 3.1509783E-02 3.1905923E-02 7.7226482E-02 7.7226482E-02 0.000000 2.135905 0.7842996 1.010371 1.019483 0.9972147 7.7360898E-02 7.7360898E-02 7.7360898E-02 3.1601220E-02 3.2004051E-02 7.7360898E-02 7.7360898E-02 0.000000 2.172082 0.3116688 0.3156322 0.2659436 0.2593919 1.5654685E-02 1.5654685E-02 1.5654685E-02 7.0541692E-03 8.3800340E-03 1.5654685E-02 1.5654685E-02 0.000000 1.039012 0.1664943 0.2679031 0.3424695 0.3594291 2.8204879E-02 2.8204879E-02 2.8204879E-02 1.2097903E-02 1.1987756E-02 2.8204879E-02 2.8204879E-02 0.000000 1.287541 0.2537777 0.4071080 0.5083438 0.5339844 3.5499092E-02 3.5499092E-02 3.5499092E-02 1.4803832E-02 1.4206884E-02 3.5499092E-02 3.5499092E-02 0.000000 1.549421 0.3279392 0.5167666 0.6299215 0.6579145 4.0607516E-02 4.0607516E-02 4.0607516E-02 1.6730083E-02 1.5846541E-02 4.0607516E-02 4.0607516E-02 0.000000 1.763578 0.3889051 0.6045524 0.7201869 0.7483164 4.4634379E-02 4.4634379E-02 4.4634379E-02 1.8178489E-02 1.7187372E-02 4.4634379E-02 4.4634379E-02 0.000000 1.938188 0.4401073 0.6732648 0.7904946 0.8181959 4.7810454E-02 4.7810454E-02 4.7810454E-02 1.9368332E-02 1.8271668E-02 4.7810454E-02 4.7810454E-02 0.000000 2.082069 0.4847415 0.7321157 0.8459363 0.8715642 5.0512392E-02 5.0512392E-02 5.0512392E-02 2.0378629E-02 1.9254070E-02 5.0512392E-02 5.0512392E-02 0.000000 2.196016 0.5204262 0.7789997 0.8899862 0.9146314 5.2752290E-02 5.2752290E-02 5.2752290E-02 2.1248041E-02 2.0062923E-02 5.2752290E-02 5.2752290E-02 0.000000 2.295550 0.5514947 0.8172709 0.9232500 0.9481191 5.4773718E-02 5.4773718E-02 5.4773718E-02 2.1987436E-02 2.0812878E-02 5.4773718E-02 5.4773718E-02 0.000000 2.349142 0.5796790 0.8519129 0.9529170 0.9738717 5.6582764E-02 5.6582764E-02 5.6582764E-02 2.2666652E-02 2.1508954E-02 5.6582764E-02 5.6582764E-02 0.000000 2.404638 0.6037267 0.8802010 0.9753307 0.9950084 5.8113582E-02 5.8113582E-02 5.8113582E-02 2.3254786E-02 2.2112615E-02 5.8113582E-02 5.8113582E-02 0.000000 2.449145 0.6252609 0.9054854 0.9948605 1.011835 5.9445109E-02 5.9445109E-02 5.9445109E-02 2.3790941E-02 2.2705575E-02 5.9445109E-02 5.9445109E-02 0.000000 2.484079 0.6428772 0.9247993 1.010360 1.027380 6.0739417E-02 6.0739417E-02 6.0739417E-02 2.4277603E-02 2.3207115E-02 6.0739417E-02 6.0739417E-02 0.000000 2.509707 0.6612813 0.9430570 1.024791 1.034271 6.1925288E-02 6.1925288E-02 6.1925288E-02 2.4752889E-02 2.3703346E-02 6.1925288E-02 6.1925288E-02 0.000000 2.526471 0.6759397 0.9571939 1.030475 1.049539 6.2924884E-02 6.2924884E-02 6.2924884E-02 2.5141887E-02 2.4147701E-02 6.2924884E-02 6.2924884E-02 0.000000 2.546401 0.6868733 0.9705401 1.045400 1.054516 6.3977830E-02 6.3977830E-02 6.3977830E-02 2.5563139E-02 2.4585668E-02 6.3977830E-02 6.3977830E-02 0.000000 2.552657 0.7004461 0.9832000 1.051927 1.056029 6.4850658E-02 6.4850658E-02 6.4850658E-02 2.5898438E-02 2.4975583E-02 6.4850658E-02 6.4850658E-02 0.000000 2.556497 0.7104015 0.9919898 1.055533 1.069138 6.5703213E-02 6.5703213E-02 6.5703213E-02 2.6265362E-02 2.5360247E-02 6.5703213E-02 6.5703213E-02 0.000000 2.558838 0.7199445 1.000230 1.055830 1.069274 6.6380590E-02 6.6380590E-02 6.6380590E-02 2.6590535E-02 2.5740284E-02 6.6380590E-02 6.6380590E-02 0.000000 2.559577 0.7291260 1.007987 1.067792 1.068944 6.7197680E-02 6.7197680E-02 6.7197680E-02 2.6907187E-02 2.6075060E-02 6.7197680E-02 6.7197680E-02 0.000000 2.558459 0.7347549 1.015306 1.069775 1.068202 6.7840226E-02 6.7840226E-02 6.7840226E-02 2.7179983E-02 2.6404371E-02 6.7840226E-02 6.7840226E-02 0.000000 2.550644 0.7433126 1.018940 1.071384 1.079389 6.8468861E-02 6.8468861E-02 6.8468861E-02 2.7448097E-02 2.6688140E-02 6.8468861E-02 6.8468861E-02 0.000000 2.541647 0.7483578 1.022205 1.067038 1.074896 6.9084853E-02 6.9084853E-02 6.9084853E-02 2.7711961E-02 2.7010271E-02 6.9084853E-02 6.9084853E-02 0.000000 2.531579 0.7531521 1.028445 1.077545 1.072914 6.9611982E-02 6.9611982E-02 6.9611982E-02 2.7932756E-02 2.7285658E-02 6.9611982E-02 6.9611982E-02 0.000000 2.520531 0.7609750 1.031082 1.078046 1.070652 7.0125721E-02 7.0125721E-02 7.0125721E-02 2.8149828E-02 2.7558075E-02 7.0125721E-02 7.0125721E-02 0.000000 2.508119 0.7653291 1.033445 1.075467 1.065317 7.0629433E-02 7.0629433E-02 7.0629433E-02 2.8402837E-02 2.7827768E-02 7.0629433E-02 7.0629433E-02 0.000000 2.495286 0.7694882 1.035553 1.072651 1.074968 7.1123891E-02 7.1123891E-02 7.1123891E-02 2.8577331E-02 2.8094957E-02 7.1123891E-02 7.1123891E-02 0.000000 2.481696 0.7734676 1.034103 1.069621 1.071821 7.1528614E-02 7.1528614E-02 7.1528614E-02 2.8785141E-02 2.8315531E-02 7.1528614E-02 7.1528614E-02 0.000000 2.467402 0.7739931 1.035758 1.066815 1.068469 7.1925148E-02 7.1925148E-02 7.1925148E-02 2.8990241E-02 2.8578155E-02 7.1925148E-02 7.1925148E-02 0.000000 2.446682 0.7776477 1.037211 1.075366 1.062104 7.2395414E-02 7.2395414E-02 7.2395414E-02 2.9153140E-02 2.8794272E-02 7.2395414E-02 7.2395414E-02 0.000000 2.436526 0.7811598 1.038477 1.071615 1.058395 7.2777279E-02 7.2777279E-02 7.2777279E-02 2.9313564E-02 2.9008338E-02 7.2777279E-02 7.2777279E-02 0.000000 2.420371 0.7845413 1.039568 1.067701 1.054527 7.3070914E-02 7.3070914E-02 7.3070914E-02 2.9511457E-02 2.9220492E-02 7.3070914E-02 7.3070914E-02 0.000000 2.403690 0.7877946 1.037168 1.063634 1.060223 7.3439747E-02 7.3439747E-02 7.3439747E-02 2.9667441E-02 2.9431883E-02 7.3439747E-02 7.3439747E-02 0.000000 2.386516 0.7876245 1.037943 1.059431 1.055920 7.3802702E-02 7.3802702E-02 7.3802702E-02 2.9822910E-02 2.9640444E-02 7.3802702E-02 7.3802702E-02 0.000000 2.368880 0.7906525 1.035239 1.055098 1.051482 7.4160114E-02 7.4160114E-02 7.4160114E-02 2.9973025E-02 2.9848916E-02 7.4160114E-02 7.4160114E-02 0.000000 2.350809 0.7902613 1.035735 1.050644 1.046913 7.4512303E-02 7.4512303E-02 7.4512303E-02 3.0124504E-02 3.0007381E-02 7.4512303E-02 7.4512303E-02 0.000000 2.332333 0.7930856 1.032770 1.058562 1.042233 7.4695617E-02 7.4695617E-02 7.4695617E-02 3.0273013E-02 3.0212974E-02 7.4695617E-02 7.4695617E-02 0.000000 2.318971 0.7840437 1.033018 1.056577 1.037444 7.5038046E-02 7.5038046E-02 7.5038046E-02 3.0379806E-02 3.0370966E-02 7.5038046E-02 7.5038046E-02 0.000000 2.305509 0.7867715 1.033154 1.051657 1.032549 7.5293943E-02 7.5293943E-02 7.5293943E-02 3.0525109E-02 3.0572573E-02 7.5293943E-02 7.5293943E-02 0.000000 2.285928 0.7861148 1.029848 1.046634 1.027558 7.5545520E-02 7.5545520E-02 7.5545520E-02 3.0668955E-02 3.0727513E-02 7.5545520E-02 7.5545520E-02 0.000000 2.266022 0.7853177 1.026439 1.044348 1.031256 7.5792976E-02 7.5792976E-02 7.5792976E-02 3.0811416E-02 3.0881193E-02 7.5792976E-02 7.5792976E-02 0.000000 2.251595 0.7878084 1.026269 1.039150 1.029819 7.6036513E-02 7.6036513E-02 7.6036513E-02 3.0872054E-02 3.1033672E-02 7.6036513E-02 7.6036513E-02 0.000000 2.236881 0.7869213 1.026007 1.033865 1.024449 7.6276317E-02 7.6276317E-02 7.6276317E-02 3.1011861E-02 3.1185007E-02 7.6276317E-02 7.6276317E-02 0.000000 2.221893 0.7859665 1.022318 1.031326 1.021819 7.6512568E-02 7.6512568E-02 7.6512568E-02 3.1150473E-02 3.1335253E-02 7.6512568E-02 7.6512568E-02 0.000000 2.206640 0.7849473 1.021886 1.025896 1.016290 7.6662995E-02 7.6662995E-02 7.6662995E-02 3.1247584E-02 3.1484462E-02 7.6662995E-02 7.6662995E-02 0.000000 2.185365 0.7838668 1.018038 1.032992 1.010691 7.6975018E-02 7.6975018E-02 7.6975018E-02 3.1343535E-02 3.1632677E-02 7.6975018E-02 7.6975018E-02 0.000000 2.175235 0.7860398 1.017448 1.027311 1.007845 7.7118985E-02 7.7118985E-02 7.7118985E-02 3.1478800E-02 3.1779941E-02 7.7118985E-02 7.7118985E-02 0.000000 2.159272 0.7848458 1.013451 1.024393 1.002108 7.7259891E-02 7.7259891E-02 7.7259891E-02 3.1532161E-02 3.1926300E-02 7.7259891E-02 7.7259891E-02 0.000000 2.143093 0.7835985 1.012723 1.021408 0.9963142 7.7480450E-02 7.7480450E-02 7.7480450E-02 3.1665403E-02 3.2074828E-02 7.7480450E-02 7.7480450E-02 0.000000 2.126712 0.7822967 1.011929 1.018362 0.9932799 7.7698283E-02 7.7698283E-02 7.7698283E-02 3.1716712E-02 3.2219406E-02 7.7698283E-02 7.7698283E-02 0.000000 2.172114 0.3117259 0.3156910 0.2658124 0.2594582 1.5655665E-02 1.5655665E-02 1.5655665E-02 7.0547927E-03 8.3805174E-03 1.5655665E-02 1.5655665E-02 0.000000 1.039385 0.1666517 0.2681122 0.3427107 0.3596750 2.8283032E-02 2.8283032E-02 2.8283032E-02 1.2137605E-02 1.2026926E-02 2.8283032E-02 2.8283032E-02 0.000000 1.288084 0.2540497 0.4074554 0.5097654 0.5343853 3.5598531E-02 3.5598531E-02 3.5598531E-02 1.4885353E-02 1.4254212E-02 3.5598531E-02 3.5598531E-02 0.000000 1.550131 0.3283045 0.5172257 0.6315804 0.6584324 4.0791608E-02 4.0791608E-02 4.0791608E-02 1.6786903E-02 1.5900275E-02 4.0791608E-02 4.0791608E-02 0.000000 1.764430 0.3905687 0.6051032 0.7220123 0.7501678 4.4763103E-02 4.4763103E-02 4.4763103E-02 1.8276529E-02 1.7246420E-02 4.4763103E-02 4.4763103E-02 0.000000 1.941685 0.4419184 0.6752949 0.7911780 0.8201710 4.8022270E-02 4.8022270E-02 4.8022270E-02 1.9470526E-02 1.8373346E-02 4.8022270E-02 4.8022270E-02 0.000000 2.083148 0.4853110 0.7328101 0.8466865 0.8736386 5.0732553E-02 5.0732553E-02 5.0732553E-02 2.0485267E-02 1.9321512E-02 5.0732553E-02 5.0732553E-02 0.000000 2.197186 0.5224531 0.7797492 0.8907964 0.9154457 5.2983411E-02 5.2983411E-02 5.2983411E-02 2.1358494E-02 2.0173300E-02 5.2983411E-02 5.2983411E-02 0.000000 2.296800 0.5536023 0.8195948 0.9268051 0.9489856 5.5012513E-02 5.5012513E-02 5.5012513E-02 2.2101294E-02 2.0926854E-02 5.5012513E-02 5.5012513E-02 0.000000 2.350502 0.5803815 0.8543078 0.9551901 0.9747850 5.6828860E-02 5.6828860E-02 5.6828860E-02 2.2783447E-02 2.1627165E-02 5.6828860E-02 5.6828860E-02 0.000000 2.406074 0.6044649 0.8826568 0.9776553 0.9959641 5.8365591E-02 5.8365591E-02 5.8365591E-02 2.3374164E-02 2.2232765E-02 5.8365591E-02 5.8365591E-02 0.000000 2.450649 0.6275534 0.9064122 0.9958526 1.012832 5.9703354E-02 5.9703354E-02 5.9703354E-02 2.3912648E-02 2.2828450E-02 5.9703354E-02 5.9703354E-02 0.000000 2.485646 0.6452149 0.9257608 1.011388 1.028409 6.1001912E-02 6.1001912E-02 6.1001912E-02 2.4400078E-02 2.3332408E-02 6.1001912E-02 6.1001912E-02 0.000000 2.511331 0.6621099 0.9440516 1.025851 1.032644 6.2192641E-02 6.2192641E-02 6.2192641E-02 2.4879837E-02 2.3830898E-02 6.2192641E-02 6.2192641E-02 0.000000 2.528146 0.6767936 0.9582186 1.031648 1.050699 6.3196376E-02 6.3196376E-02 6.3196376E-02 2.5309501E-02 2.4319477E-02 6.3196376E-02 6.3196376E-02 0.000000 2.542433 0.6893291 0.9715962 1.046128 1.055715 6.4253286E-02 6.4253286E-02 6.4253286E-02 2.5692377E-02 2.4717297E-02 6.4253286E-02 6.4253286E-02 0.000000 2.554428 0.7013448 0.9842811 1.053150 1.057268 6.5129682E-02 6.5129682E-02 6.5129682E-02 2.6067641E-02 2.5109036E-02 6.5129682E-02 6.5129682E-02 0.000000 2.558307 0.7113203 0.9930963 1.056792 1.067573 6.5985605E-02 6.5985605E-02 6.5985605E-02 2.6397539E-02 2.5495442E-02 6.5985605E-02 6.5985605E-02 0.000000 2.560688 0.7208831 1.001361 1.057125 1.070550 6.6665694E-02 6.6665694E-02 6.6665694E-02 2.6723968E-02 2.5878815E-02 6.6665694E-02 6.6665694E-02 0.000000 2.561465 0.7300823 1.009140 1.069086 1.070252 6.7405902E-02 6.7405902E-02 6.7405902E-02 2.7041880E-02 2.6213666E-02 6.7405902E-02 6.7405902E-02 0.000000 2.554628 0.7357306 1.016484 1.071099 1.066733 6.8131022E-02 6.8131022E-02 6.8131022E-02 2.7315823E-02 2.6544459E-02 6.8131022E-02 6.8131022E-02 0.000000 2.546839 0.7443017 1.020133 1.069927 1.077903 6.8762213E-02 6.8762213E-02 6.8762213E-02 2.7585035E-02 2.6873074E-02 6.8762213E-02 6.8762213E-02 0.000000 2.543626 0.7493614 1.023419 1.068420 1.076256 6.9383547E-02 6.9383547E-02 6.9383547E-02 2.7849950E-02 2.7196741E-02 6.9383547E-02 6.9383547E-02 0.000000 2.527823 0.7541697 1.026372 1.078919 1.071480 6.9829740E-02 6.9829740E-02 6.9829740E-02 2.8071696E-02 2.7473520E-02 6.9829740E-02 6.9829740E-02 0.000000 2.522150 0.7620075 1.032333 1.076623 1.069245 7.0426330E-02 7.0426330E-02 7.0426330E-02 2.8289685E-02 2.7747285E-02 7.0426330E-02 7.0426330E-02 0.000000 2.504400 0.7663743 1.031395 1.074068 1.069613 7.0851140E-02 7.0851140E-02 7.0851140E-02 2.8546939E-02 2.8018283E-02 7.0851140E-02 7.0851140E-02 0.000000 2.497359 0.7705455 1.033517 1.071276 1.073562 7.1428552E-02 7.1428552E-02 7.1428552E-02 2.8719071E-02 2.8242463E-02 7.1428552E-02 7.1428552E-02 0.000000 2.478016 0.7745366 1.035403 1.068270 1.070435 7.1835108E-02 7.1835108E-02 7.1835108E-02 2.8927701E-02 2.8508447E-02 7.1835108E-02 7.1835108E-02 0.000000 2.463741 0.7750717 1.037071 1.077565 1.064276 7.2233401E-02 7.2233401E-02 7.2233401E-02 2.9133588E-02 2.8727761E-02 7.2233401E-02 7.2233401E-02 0.000000 2.448812 0.7787369 1.038538 1.074009 1.060760 7.2623983E-02 7.2623983E-02 7.2623983E-02 2.9297201E-02 2.8989453E-02 7.2623983E-02 7.2623983E-02 0.000000 2.432889 0.7822593 1.036490 1.070277 1.057072 7.3007382E-02 7.3007382E-02 7.3007382E-02 2.9458312E-02 2.9160483E-02 7.3007382E-02 7.3007382E-02 0.000000 2.416749 0.7856500 1.037593 1.066378 1.050406 7.3384039E-02 7.3384039E-02 7.3384039E-02 2.9617082E-02 2.9418770E-02 7.3384039E-02 7.3384039E-02 0.000000 2.400081 0.7856079 1.038533 1.062334 1.058889 7.3754385E-02 7.3754385E-02 7.3754385E-02 2.9815169E-02 2.9585119E-02 7.3754385E-02 7.3754385E-02 0.000000 2.382919 0.7887502 1.035988 1.058149 1.054601 7.4118800E-02 7.4118800E-02 7.4118800E-02 2.9967804E-02 2.9841084E-02 7.4118800E-02 7.4118800E-02 0.000000 2.365295 0.7917874 1.036630 1.053835 1.050176 7.4395739E-02 7.4395739E-02 7.4395739E-02 3.0121636E-02 3.0002680E-02 7.4395739E-02 7.4395739E-02 0.000000 2.347235 0.7914031 1.033798 1.060553 1.045625 7.4667253E-02 7.4667253E-02 7.4667253E-02 3.0232402E-02 3.0209804E-02 7.4667253E-02 7.4667253E-02 0.000000 2.334549 0.7942352 1.034181 1.057281 1.040961 7.5015672E-02 7.5015672E-02 7.5015672E-02 3.0381432E-02 3.0370018E-02 7.5015672E-02 7.5015672E-02 0.000000 2.315412 0.7852354 1.031101 1.052482 1.033361 7.5195193E-02 7.5195193E-02 7.5195193E-02 3.0528825E-02 3.0573735E-02 7.5195193E-02 7.5195193E-02 0.000000 2.296178 0.7846691 1.031246 1.050404 1.031303 7.5534284E-02 7.5534284E-02 7.5534284E-02 3.0674666E-02 3.0730709E-02 7.5534284E-02 7.5534284E-02 0.000000 2.282385 0.7840191 1.031283 1.045394 1.023514 7.5786933E-02 7.5786933E-02 7.5786933E-02 3.0819036E-02 3.0886337E-02 7.5786933E-02 7.5786933E-02 0.000000 2.268267 0.7865312 1.027882 1.040299 1.031010 7.6035433E-02 7.6035433E-02 7.6035433E-02 3.0921746E-02 3.1040689E-02 7.6035433E-02 7.6035433E-02 0.000000 2.248065 0.7857217 1.024384 1.037938 1.028564 7.6279983E-02 7.6279983E-02 7.6279983E-02 3.1023050E-02 3.1239446E-02 7.6279983E-02 7.6279983E-02 0.000000 2.227576 0.7848406 1.024129 1.032668 1.023205 7.6520771E-02 7.6520771E-02 7.6520771E-02 3.1163342E-02 3.1391490E-02 7.6520771E-02 7.6520771E-02 0.000000 2.212590 0.7872015 1.023788 1.027323 1.017760 7.6675549E-02 7.6675549E-02 7.6675549E-02 3.1262062E-02 3.1542432E-02 7.6675549E-02 7.6675549E-02 0.000000 2.197345 0.7861886 1.020024 1.025114 1.015068 7.6991752E-02 7.6991752E-02 7.6991752E-02 3.1359561E-02 3.1692319E-02 7.6991752E-02 7.6991752E-02 0.000000 2.181856 0.7851143 1.016177 1.031775 1.006657 7.7139720E-02 7.7139720E-02 7.7139720E-02 3.1496316E-02 3.1841200E-02 7.7139720E-02 7.7139720E-02 0.000000 2.165946 0.7839815 1.015596 1.028934 1.003819 7.7284478E-02 7.7284478E-02 7.7284478E-02 3.1591561E-02 3.1989120E-02 7.7284478E-02 7.7284478E-02 0.000000 2.149987 0.7827893 1.014943 1.023199 1.000916 7.7591360E-02 7.7591360E-02 7.7591360E-02 3.1685729E-02 3.2093160E-02 7.7591360E-02 7.7591360E-02 0.000000 2.133811 0.7848644 1.010882 1.017396 0.9923157 7.7730149E-02 7.7730149E-02 7.7730149E-02 3.1781055E-02 3.2239139E-02 7.7730149E-02 7.7730149E-02 0.000000 2.117435 0.7834781 1.006753 1.014362 0.9892926 7.7866092E-02 7.7866092E-02 7.7866092E-02 3.1873330E-02 3.2384276E-02 7.7866092E-02 7.7866092E-02 0.000000 2.172145 0.3115587 0.3157475 0.2658748 0.2593270 1.5656609E-02 1.5656609E-02 1.5656609E-02 7.0553939E-03 8.3809821E-03 1.5656609E-02 1.5656609E-02 0.000000 1.039742 0.1668033 0.2683133 0.3429427 0.3607501 2.8360689E-02 2.8360689E-02 2.8360689E-02 1.2177067E-02 1.2033589E-02 2.8360689E-02 2.8360689E-02 0.000000 1.288605 0.2543108 0.4077898 0.5101448 0.5347712 3.5697043E-02 3.5697043E-02 3.5697043E-02 1.4934532E-02 1.4301259E-02 3.5697043E-02 3.5697043E-02 0.000000 1.550813 0.3297657 0.5188990 0.6320736 0.6601031 4.0905956E-02 4.0905956E-02 4.0905956E-02 1.6876627E-02 1.5989838E-02 4.0905956E-02 4.0905956E-02 0.000000 1.767656 0.3909974 0.6056336 0.7238173 0.7519986 4.4961222E-02 4.4961222E-02 4.4961222E-02 1.8372824E-02 1.7342346E-02 4.4961222E-02 4.4961222E-02 0.000000 1.942623 0.4424117 0.6773046 0.7931064 0.8208386 4.8159964E-02 4.8159964E-02 4.8159964E-02 1.9572087E-02 1.8436354E-02 4.8159964E-02 4.8159964E-02 0.000000 2.084187 0.4858599 0.7334765 0.8474097 0.8743666 5.0880820E-02 5.0880820E-02 5.0880820E-02 2.0591199E-02 1.9427298E-02 5.0880820E-02 5.0880820E-02 0.000000 2.198311 0.5230507 0.7819676 0.8915778 0.9162310 5.3214487E-02 5.3214487E-02 5.3214487E-02 2.1468176E-02 2.0283131E-02 5.3214487E-02 5.3214487E-02 0.000000 2.298003 0.5556893 0.8218922 0.9276378 0.9498216 5.5249207E-02 5.5249207E-02 5.5249207E-02 2.2214331E-02 2.1040231E-02 5.5249207E-02 5.5249207E-02 0.000000 2.351811 0.5825360 0.8551247 0.9560687 0.9756663 5.6996312E-02 5.6996312E-02 5.6996312E-02 2.2899373E-02 2.1742610E-02 5.6996312E-02 5.6996312E-02 0.000000 2.407457 0.6066785 0.8835140 0.9799482 0.9968865 5.8615249E-02 5.8615249E-02 5.8615249E-02 2.3492629E-02 2.2352226E-02 5.8615249E-02 5.8615249E-02 0.000000 2.452097 0.6282985 0.9073064 0.9968103 1.013790 5.9958369E-02 5.9958369E-02 5.9958369E-02 2.4033403E-02 2.2950595E-02 5.9958369E-02 5.9958369E-02 0.000000 2.481529 0.6475275 0.9266887 1.012384 1.029407 6.1261859E-02 6.1261859E-02 6.1261859E-02 2.4524529E-02 2.3456937E-02 6.1261859E-02 6.1261859E-02 0.000000 2.512896 0.6629098 0.9450117 1.026879 1.033751 6.2378976E-02 6.2378976E-02 6.2378976E-02 2.5003385E-02 2.3957649E-02 6.2378976E-02 6.2378976E-02 0.000000 2.529759 0.6776179 0.9608260 1.032783 1.051820 6.3465148E-02 6.3465148E-02 6.3465148E-02 2.5434682E-02 2.4448363E-02 6.3465148E-02 6.3465148E-02 0.000000 2.544095 0.6917540 0.9726135 1.047274 1.054082 6.4446896E-02 6.4446896E-02 6.4446896E-02 2.5820531E-02 2.4848066E-02 6.4446896E-02 6.4446896E-02 0.000000 2.556135 0.7022129 0.9853252 1.051540 1.055671 6.5405846E-02 6.5405846E-02 6.5405846E-02 2.6197305E-02 2.5284277E-02 6.5405846E-02 6.5405846E-02 0.000000 2.560051 0.7122077 0.9941656 1.055216 1.068775 6.6185452E-02 6.6185452E-02 6.6185452E-02 2.6528582E-02 2.5672609E-02 6.6185452E-02 6.6185452E-02 0.000000 2.562470 0.7217904 1.002456 1.063043 1.068974 6.6947818E-02 6.6947818E-02 6.6947818E-02 2.6856240E-02 2.6014941E-02 6.6947818E-02 6.6947818E-02 0.000000 2.557544 0.7310063 1.010255 1.070338 1.068708 6.7690879E-02 6.7690879E-02 6.7690879E-02 2.7175389E-02 2.6394648E-02 6.7690879E-02 6.7690879E-02 0.000000 2.556474 0.7366701 1.014324 1.069570 1.072481 6.8338558E-02 6.8338558E-02 6.8338558E-02 2.7450461E-02 2.6685132E-02 6.8338558E-02 6.8338558E-02 0.000000 2.548716 0.7452576 1.021287 1.068427 1.076372 6.8972081E-02 6.8972081E-02 6.8972081E-02 2.7720749E-02 2.7013503E-02 6.8972081E-02 6.8972081E-02 0.000000 2.539774 0.7503313 1.024593 1.066949 1.074751 6.9515310E-02 6.9515310E-02 6.9515310E-02 2.7986692E-02 2.7338520E-02 6.9515310E-02 6.9515310E-02 0.000000 2.529756 0.7551533 1.027563 1.077428 1.072821 7.0124865E-02 7.0124865E-02 7.0124865E-02 2.8209375E-02 2.7616531E-02 7.0124865E-02 7.0124865E-02 0.000000 2.518335 0.7630056 1.030230 1.075155 1.067792 7.0723653E-02 7.0723653E-02 7.0723653E-02 2.8428260E-02 2.7891485E-02 7.0723653E-02 7.0723653E-02 0.000000 2.506375 0.7673847 1.032619 1.075443 1.077822 7.1150415E-02 7.1150415E-02 7.1150415E-02 2.8647088E-02 2.8163634E-02 7.1150415E-02 7.1150415E-02 0.000000 2.487812 0.7715677 1.034755 1.069856 1.072109 7.1567506E-02 7.1567506E-02 7.1567506E-02 2.8859502E-02 2.8433204E-02 7.1567506E-02 7.1567506E-02 0.000000 2.480033 0.7722845 1.036659 1.066869 1.069003 7.2138198E-02 7.2138198E-02 7.2138198E-02 2.9068932E-02 2.8655926E-02 7.2138198E-02 7.2138198E-02 0.000000 2.460002 0.7761146 1.038341 1.076142 1.065689 7.2538204E-02 7.2538204E-02 7.2538204E-02 2.9275594E-02 2.8876221E-02 7.2538204E-02 7.2538204E-02 0.000000 2.445088 0.7797903 1.036495 1.072605 1.059369 7.2930448E-02 7.2930448E-02 7.2930448E-02 2.9439906E-02 2.9139783E-02 7.2930448E-02 7.2930448E-02 0.000000 2.429174 0.7833254 1.037786 1.068892 1.055701 7.3315434E-02 7.3315434E-02 7.3315434E-02 2.9601691E-02 2.9356049E-02 7.3315434E-02 7.3315434E-02 0.000000 2.413048 0.7867222 1.038901 1.065012 1.058337 7.3693626E-02 7.3693626E-02 7.3693626E-02 2.9761113E-02 2.9569993E-02 7.3693626E-02 7.3693626E-02 0.000000 2.396392 0.7866879 1.036522 1.060985 1.057506 7.3983669E-02 7.3983669E-02 7.3983669E-02 2.9918646E-02 2.9782094E-02 7.3983669E-02 7.3983669E-02 0.000000 2.379243 0.7898389 1.037319 1.056819 1.053234 7.4267566E-02 7.4267566E-02 7.4267566E-02 3.0074343E-02 2.9994186E-02 7.4267566E-02 7.4267566E-02 0.000000 2.361627 0.7895678 1.034637 1.052523 1.048823 7.4627601E-02 7.4627601E-02 7.4627601E-02 3.0227529E-02 3.0155653E-02 7.4627601E-02 7.4627601E-02 0.000000 2.343580 0.7925074 1.035152 1.060624 1.044289 7.4982323E-02 7.4982323E-02 7.4982323E-02 3.0378865E-02 3.0364910E-02 7.4982323E-02 7.4982323E-02 0.000000 2.325126 0.7835579 1.032204 1.055951 1.036817 7.5167865E-02 7.5167865E-02 7.5167865E-02 3.0528454E-02 3.0570794E-02 7.5167865E-02 7.5167865E-02 0.000000 2.311771 0.7863888 1.032471 1.053993 1.034879 7.5512670E-02 7.5512670E-02 7.5512670E-02 3.0676389E-02 3.0729892E-02 7.5512670E-02 7.5512670E-02 0.000000 2.298326 0.7858303 1.029290 1.046270 1.027193 7.5770766E-02 7.5770766E-02 7.5770766E-02 3.0822759E-02 3.0887557E-02 7.5770766E-02 7.5770766E-02 0.000000 2.272974 0.7851268 1.029335 1.044105 1.027669 7.6024465E-02 7.6024465E-02 7.6024465E-02 3.0927379E-02 3.1089418E-02 7.6024465E-02 7.6024465E-02 0.000000 2.258867 0.7877058 1.025941 1.039023 1.029695 7.6191664E-02 7.6191664E-02 7.6191664E-02 3.1030510E-02 3.1244496E-02 7.6191664E-02 7.6191664E-02 0.000000 2.244453 0.7869031 1.025787 1.033849 1.024433 7.6519519E-02 7.6519519E-02 7.6519519E-02 3.1172555E-02 3.1398345E-02 7.6519519E-02 7.6519519E-02 0.000000 2.229751 0.7860286 1.022199 1.031416 1.021907 7.6678842E-02 7.6678842E-02 7.6678842E-02 3.1313322E-02 3.1551018E-02 7.6678842E-02 7.6678842E-02 0.000000 2.208991 0.7850861 1.021865 1.023270 1.013653 7.6999404E-02 7.6999404E-02 7.6999404E-02 3.1372059E-02 3.1702578E-02 7.6999404E-02 7.6999404E-02 0.000000 2.193749 0.7840788 1.018109 1.033273 1.010971 7.7151559E-02 7.7151559E-02 7.7151559E-02 3.1510368E-02 3.1853072E-02 7.7151559E-02 7.7151559E-02 0.000000 2.178264 0.7863221 1.017607 1.027682 1.005395 7.7300325E-02 7.7300325E-02 7.7300325E-02 3.1647570E-02 3.2002550E-02 7.7300325E-02 7.7300325E-02 0.000000 2.162354 0.7851950 1.013695 1.024852 0.9997460 7.7611066E-02 7.7611066E-02 7.7611066E-02 3.1702701E-02 3.2154050E-02 7.7611066E-02 7.7611066E-02 0.000000 2.146399 0.7840119 1.013048 1.021949 0.9968548 7.7753559E-02 7.7753559E-02 7.7753559E-02 3.1840008E-02 3.2301541E-02 7.7753559E-02 7.7753559E-02 0.000000 2.130226 0.7826802 1.008990 1.016159 0.9910838 7.7893071E-02 7.7893071E-02 7.7893071E-02 3.1893037E-02 3.2402050E-02 7.7893071E-02 7.7893071E-02 0.000000 2.119634 0.7813855 1.008206 1.010312 0.9852560 7.8029729E-02 7.8029729E-02 7.8029729E-02 3.2026283E-02 3.2547735E-02 7.8029729E-02 7.8029729E-02 0.000000 2.172175 0.3116114 0.3158019 0.2659348 0.2591934 1.5680896E-02 1.5680896E-02 1.5680896E-02 7.0559741E-03 8.3814310E-03 1.5680896E-02 1.5680896E-02 0.000000 1.040087 0.1669492 0.2685070 0.3431662 0.3609785 2.8437879E-02 2.8437879E-02 2.8437879E-02 1.2216300E-02 1.2072433E-02 2.8437879E-02 2.8437879E-02 0.000000 1.289108 0.2545623 0.4091866 0.5105104 0.5362017 3.5794675E-02 3.5794675E-02 3.5794675E-02 1.4983315E-02 1.4348038E-02 3.5794675E-02 3.5794675E-02 0.000000 1.551470 0.3301059 0.5193257 0.6325488 0.6605845 4.1019101E-02 4.1019101E-02 4.1019101E-02 1.6932415E-02 1.6042862E-02 4.1019101E-02 4.1019101E-02 0.000000 1.768445 0.3914109 0.6074799 0.7243806 0.7525672 4.5087017E-02 4.5087017E-02 4.5087017E-02 1.8434081E-02 1.7400511E-02 4.5087017E-02 4.5087017E-02 0.000000 1.943525 0.4441910 0.6778879 0.7950130 0.8214787 4.8368577E-02 4.8368577E-02 4.8368577E-02 1.9675592E-02 1.8537130E-02 4.8368577E-02 4.8368577E-02 0.000000 2.085187 0.4877537 0.7355791 0.8494134 0.8750691 5.1099513E-02 5.1099513E-02 5.1099513E-02 2.0696459E-02 1.9493587E-02 5.1099513E-02 5.1099513E-02 0.000000 2.202071 0.5236273 0.7841644 0.8923320 0.9169890 5.3441983E-02 5.3441983E-02 5.3441983E-02 2.1577129E-02 2.0352786E-02 5.3441983E-02 5.3441983E-02 0.000000 2.299162 0.5563081 0.8226376 0.9284418 0.9506287 5.5483907E-02 5.5483907E-02 5.5483907E-02 2.2326587E-02 2.1153040E-02 5.5483907E-02 5.5483907E-02 0.000000 2.353073 0.5846720 0.8559132 0.9569172 0.9765174 5.7239711E-02 5.7239711E-02 5.7239711E-02 2.3014467E-02 2.1859186E-02 5.7239711E-02 5.7239711E-02 0.000000 2.408790 0.6088704 0.8843418 0.9808373 0.9977775 5.8862679E-02 5.8862679E-02 5.8862679E-02 2.3610221E-02 2.2471037E-02 5.8862679E-02 5.8862679E-02 0.000000 2.453495 0.6290181 0.9081700 0.9991176 1.016109 6.0211051E-02 6.0211051E-02 6.0211051E-02 2.4155224E-02 2.3072051E-02 6.0211051E-02 6.0211051E-02 0.000000 2.482982 0.6482752 0.9291819 1.016121 1.030368 6.1519381E-02 6.1519381E-02 6.1519381E-02 2.4646336E-02 2.3580739E-02 6.1519381E-02 6.1519381E-02 0.000000 2.514404 0.6636826 0.9459415 1.027869 1.034822 6.2641099E-02 6.2641099E-02 6.2641099E-02 2.5126686E-02 2.4083640E-02 6.2641099E-02 6.2641099E-02 0.000000 2.531314 0.6784145 0.9633997 1.033881 1.050113 6.3731343E-02 6.3731343E-02 6.3731343E-02 2.5561552E-02 2.4576455E-02 6.3731343E-02 6.3731343E-02 0.000000 2.545696 0.6925732 0.9735966 1.048383 1.055204 6.4716823E-02 6.4716823E-02 6.4716823E-02 2.5947651E-02 2.4978016E-02 6.4716823E-02 6.4716823E-02 0.000000 2.552072 0.7030520 0.9863343 1.052684 1.056831 6.5599859E-02 6.5599859E-02 6.5599859E-02 2.6325909E-02 2.5416065E-02 6.5599859E-02 6.5599859E-02 0.000000 2.561732 0.7130657 0.9951971 1.056394 1.069939 6.6384561E-02 6.6384561E-02 6.6384561E-02 2.6661338E-02 2.5807647E-02 6.6384561E-02 6.6384561E-02 0.000000 2.558456 0.7226649 1.003510 1.069059 1.070169 6.7227088E-02 6.7227088E-02 6.7227088E-02 2.6987404E-02 2.6150171E-02 6.7227088E-02 6.7227088E-02 0.000000 2.559297 0.7318997 1.011334 1.068740 1.069933 6.7892924E-02 6.7892924E-02 6.7892924E-02 2.7307769E-02 2.6531445E-02 6.7892924E-02 6.7892924E-02 0.000000 2.552505 0.7408113 1.015421 1.070810 1.078873 6.8542995E-02 6.8542995E-02 6.8542995E-02 2.7583947E-02 2.6866782E-02 6.8542995E-02 6.8542995E-02 0.000000 2.550527 0.7461821 1.022408 1.069695 1.077622 6.9181435E-02 6.9181435E-02 6.9181435E-02 2.7855294E-02 2.7196698E-02 6.9181435E-02 6.9181435E-02 0.000000 2.535853 0.7512696 1.025728 1.073110 1.073206 6.9805093E-02 6.9805093E-02 6.9805093E-02 2.8082993E-02 2.7479311E-02 6.9805093E-02 6.9805093E-02 0.000000 2.525858 0.7561048 1.028715 1.075894 1.071300 7.0416905E-02 7.0416905E-02 7.0416905E-02 2.8306512E-02 2.7758537E-02 7.0416905E-02 7.0416905E-02 0.000000 2.514451 0.7639712 1.031399 1.076465 1.069114 7.0855878E-02 7.0855878E-02 7.0855878E-02 2.8568961E-02 2.8034661E-02 7.0855878E-02 7.0855878E-02 0.000000 2.502510 0.7683623 1.033807 1.073955 1.073477 7.1446516E-02 7.1446516E-02 7.1446516E-02 2.8785447E-02 2.8307945E-02 7.1446516E-02 7.1446516E-02 0.000000 2.489738 0.7725568 1.035959 1.071209 1.073440 7.1865439E-02 7.1865439E-02 7.1865439E-02 2.8998679E-02 2.8578613E-02 7.1865439E-02 7.1865439E-02 0.000000 2.470429 0.7732832 1.037873 1.065429 1.067523 7.2275318E-02 7.2275318E-02 7.2275318E-02 2.9169215E-02 2.8846869E-02 7.2275318E-02 7.2275318E-02 0.000000 2.461965 0.7771238 1.036245 1.074675 1.064233 7.2676800E-02 7.2676800E-02 7.2676800E-02 2.9416319E-02 2.9069806E-02 7.2676800E-02 7.2676800E-02 0.000000 2.441289 0.7808096 1.037736 1.071157 1.057934 7.3070459E-02 7.3070459E-02 7.3070459E-02 2.9581318E-02 2.9286621E-02 7.3070459E-02 7.3070459E-02 0.000000 2.431165 0.7843539 1.039039 1.067458 1.054286 7.3456809E-02 7.3456809E-02 7.3456809E-02 2.9743765E-02 2.9505249E-02 7.3456809E-02 7.3456809E-02 0.000000 2.409272 0.7877600 1.036837 1.063600 1.060191 7.3836327E-02 7.3836327E-02 7.3836327E-02 2.9904330E-02 2.9720077E-02 7.3836327E-02 7.3836327E-02 0.000000 2.392630 0.7877331 1.037799 1.059592 1.056078 7.4209422E-02 7.4209422E-02 7.4209422E-02 3.0062551E-02 2.9933717E-02 7.4209422E-02 7.4209422E-02 0.000000 2.375492 0.7908962 1.035271 1.055444 1.051821 7.4576482E-02 7.4576482E-02 7.4576482E-02 3.0218298E-02 3.0143932E-02 7.4576482E-02 7.4576482E-02 0.000000 2.357887 0.7906319 1.035932 1.054024 1.047423 7.4937873E-02 7.4937873E-02 7.4937873E-02 3.0372065E-02 3.0355595E-02 7.4937873E-02 7.4937873E-02 0.000000 2.339849 0.7935764 1.033124 1.059234 1.040083 7.5129762E-02 7.5129762E-02 7.5129762E-02 3.0523965E-02 3.0516781E-02 7.5129762E-02 7.5129762E-02 0.000000 2.326910 0.7846661 1.033521 1.054574 1.038271 7.5480573E-02 7.5480573E-02 7.5480573E-02 3.0674102E-02 3.0725036E-02 7.5480573E-02 7.5480573E-02 0.000000 2.308054 0.7842032 1.030463 1.049800 1.030700 7.5662211E-02 7.5662211E-02 7.5662211E-02 3.0822570E-02 3.0884830E-02 7.5662211E-02 7.5662211E-02 0.000000 2.288834 0.7869550 1.030624 1.047750 1.025856 7.6003559E-02 7.6003559E-02 7.6003559E-02 3.0929191E-02 3.1043174E-02 7.6003559E-02 7.6003559E-02 0.000000 2.275056 0.7862566 1.027341 1.039946 1.030665 7.6175973E-02 7.6175973E-02 7.6175973E-02 3.1034237E-02 3.1245766E-02 7.6175973E-02 7.6175973E-02 0.000000 2.255171 0.7855354 1.023956 1.037700 1.028333 7.6508798E-02 7.6508798E-02 7.6508798E-02 3.1178113E-02 3.1401493E-02 7.6508798E-02 7.6508798E-02 0.000000 2.234982 0.7847385 1.023808 1.032542 1.023082 7.6672882E-02 7.6672882E-02 7.6672882E-02 3.1320635E-02 3.1601749E-02 7.6672882E-02 7.6672882E-02 0.000000 2.220285 0.7871795 1.023568 1.027301 1.017739 7.6997995E-02 7.6997995E-02 7.6997995E-02 3.1421456E-02 3.1755108E-02 7.6997995E-02 7.6997995E-02 0.000000 2.205307 0.7862433 1.019899 1.025744 1.015145 7.7154510E-02 7.7154510E-02 7.7154510E-02 3.1520974E-02 3.1907339E-02 7.7154510E-02 7.7154510E-02 0.000000 2.190074 0.7852421 1.016146 1.031947 1.006829 7.7307463E-02 7.7307463E-02 7.7307463E-02 3.1659730E-02 3.2061536E-02 7.7307463E-02 7.7307463E-02 0.000000 2.174412 0.7841791 1.015654 1.026369 1.004084 7.7622227E-02 7.7622227E-02 7.7622227E-02 3.1716343E-02 3.2211576E-02 7.7622227E-02 7.7622227E-02 0.000000 2.158685 0.7830573 1.015085 1.020720 0.9984456 7.7768579E-02 7.7768579E-02 7.7768579E-02 3.1855110E-02 3.2360628E-02 7.7768579E-02 7.7768579E-02 0.000000 2.142729 0.7818753 1.011104 1.017828 0.9927470 7.7911802E-02 7.7911802E-02 7.7911802E-02 3.1950127E-02 3.2462627E-02 7.7911802E-02 7.7911802E-02 0.000000 2.126560 0.7838672 1.007053 1.014874 0.9898036 7.8052029E-02 7.8052029E-02 7.8052029E-02 3.2044102E-02 3.2609776E-02 7.8052029E-02 7.8052029E-02 0.000000 2.110189 0.7825747 1.006274 1.009036 0.9846895 7.8354925E-02 7.8354925E-02 7.8354925E-02 3.2137074E-02 3.2709848E-02 7.8354925E-02 7.8354925E-02 0.000000 2.172204 0.3116622 0.3156284 0.2659926 0.2592524 1.5705166E-02 1.5705166E-02 1.5705166E-02 7.0565348E-03 8.3818631E-03 1.5705166E-02 1.5705166E-02 0.000000 1.037303 0.1670898 0.2686936 0.3433815 0.3611986 2.8454512E-02 2.8454512E-02 2.8454512E-02 1.2225626E-02 1.2078736E-02 2.8454512E-02 2.8454512E-02 0.000000 1.289591 0.2548048 0.4094979 0.5118958 0.5365608 3.5891473E-02 3.5891473E-02 3.5891473E-02 1.5031719E-02 1.4394565E-02 3.5891473E-02 3.5891473E-02 0.000000 1.554339 0.3304340 0.5209710 0.6341573 0.6622225 4.1199889E-02 4.1199889E-02 4.1199889E-02 1.7021259E-02 1.6095534E-02 4.1199889E-02 4.1199889E-02 0.000000 1.771613 0.3930336 0.6079740 0.7249241 0.7531159 4.5282517E-02 4.5282517E-02 4.5282517E-02 1.8529302E-02 1.7458243E-02 4.5282517E-02 4.5282517E-02 0.000000 1.944396 0.4446513 0.6784508 0.7956276 0.8233841 4.8577409E-02 4.8577409E-02 4.8577409E-02 1.9740647E-02 1.8599158E-02 4.8577409E-02 4.8577409E-02 0.000000 2.086154 0.4882661 0.7376606 0.8513961 0.8770711 5.1316597E-02 5.1316597E-02 5.1316597E-02 2.0765189E-02 1.9598396E-02 5.1316597E-02 5.1316597E-02 0.000000 2.205795 0.5255965 0.7848387 0.8943903 0.9190639 5.3667713E-02 5.3667713E-02 5.3667713E-02 2.1650653E-02 2.0461533E-02 5.3667713E-02 5.3667713E-02 0.000000 2.300280 0.5569057 0.8233600 0.9292186 0.9514086 5.5640943E-02 5.5640943E-02 5.5640943E-02 2.2438096E-02 2.1265311E-02 5.5640943E-02 5.5640943E-02 0.000000 2.354290 0.5853060 0.8566748 0.9577372 0.9787127 5.7479180E-02 5.7479180E-02 5.7479180E-02 2.3091627E-02 2.1933874E-02 5.7479180E-02 5.7479180E-02 0.000000 2.410076 0.6095369 0.8851415 0.9816969 1.000021 5.9030864E-02 5.9030864E-02 5.9030864E-02 2.3726985E-02 2.2589223E-02 5.9030864E-02 5.9030864E-02 0.000000 2.454841 0.6297136 0.9090046 1.001395 1.018397 6.0461514E-02 6.0461514E-02 6.0461514E-02 2.4272932E-02 2.3151366E-02 6.0461514E-02 6.0461514E-02 0.000000 2.484384 0.6489980 0.9316470 1.017050 1.028723 6.1774597E-02 6.1774597E-02 6.1774597E-02 2.4767246E-02 2.3706682E-02 6.1774597E-02 6.1774597E-02 0.000000 2.510204 0.6644298 0.9468381 1.028826 1.035860 6.2900834E-02 6.2900834E-02 6.2900834E-02 2.5251931E-02 2.4208909E-02 6.2900834E-02 6.2900834E-02 0.000000 2.532815 0.6791849 0.9643241 1.034944 1.051163 6.3995071E-02 6.3995071E-02 6.3995071E-02 2.5686137E-02 2.4703793E-02 6.3995071E-02 6.3995071E-02 0.000000 2.547242 0.6933655 0.9777952 1.049456 1.056290 6.4905003E-02 6.4905003E-02 6.4905003E-02 2.6073784E-02 2.5107181E-02 6.4905003E-02 6.4905003E-02 0.000000 2.553340 0.7038636 0.9873105 1.053791 1.058730 6.5791123E-02 6.5791123E-02 6.5791123E-02 2.6414864E-02 2.5547044E-02 6.5791123E-02 6.5791123E-02 0.000000 2.563355 0.7138957 0.9961990 1.057536 1.071065 6.6658139E-02 6.6658139E-02 6.6658139E-02 2.6790189E-02 2.5940489E-02 6.6658139E-02 6.6658139E-02 0.000000 2.560114 0.7235157 1.004534 1.067396 1.068516 6.7503646E-02 6.7503646E-02 6.7503646E-02 2.7117509E-02 2.6284546E-02 6.7503646E-02 6.7503646E-02 0.000000 2.555249 0.7327644 1.012376 1.069914 1.068310 6.8172157E-02 6.8172157E-02 6.8172157E-02 2.7439069E-02 2.6668943E-02 6.8172157E-02 6.8172157E-02 0.000000 2.554224 0.7416922 1.016486 1.069201 1.077237 6.8824768E-02 6.8824768E-02 6.8824768E-02 2.7716337E-02 2.7004041E-02 6.8824768E-02 6.8824768E-02 0.000000 2.546519 0.7470770 1.023489 1.068114 1.076011 6.9465995E-02 6.9465995E-02 6.9465995E-02 2.7988721E-02 2.7335312E-02 6.9465995E-02 6.9465995E-02 0.000000 2.537627 0.7521815 1.026827 1.079082 1.074440 7.0091970E-02 7.0091970E-02 7.0091970E-02 2.8217366E-02 2.7619164E-02 7.0091970E-02 7.0091970E-02 0.000000 2.521894 0.7602885 1.029831 1.077141 1.069740 7.0625082E-02 7.0625082E-02 7.0625082E-02 2.8441787E-02 2.7899582E-02 7.0625082E-02 7.0625082E-02 0.000000 2.516268 0.7649060 1.032531 1.074914 1.067579 7.1146928E-02 7.1146928E-02 7.1146928E-02 2.8705304E-02 2.8176859E-02 7.1146928E-02 7.1146928E-02 0.000000 2.504349 0.7693089 1.034952 1.072427 1.074748 7.1577244E-02 7.1577244E-02 7.1577244E-02 2.8922627E-02 2.8451258E-02 7.1577244E-02 7.1577244E-02 0.000000 2.491597 0.7735146 1.037121 1.069704 1.069077 7.2160311E-02 7.2160311E-02 7.2160311E-02 2.9136661E-02 2.8723007E-02 7.2160311E-02 7.2160311E-02 0.000000 2.472305 0.7742503 1.035727 1.069948 1.066007 7.2571918E-02 7.2571918E-02 7.2571918E-02 2.9307924E-02 2.8992314E-02 7.2571918E-02 7.2571918E-02 0.000000 2.452307 0.7781011 1.037434 1.073167 1.062736 7.2975054E-02 7.2975054E-02 7.2975054E-02 2.9516021E-02 2.9214693E-02 7.2975054E-02 7.2975054E-02 0.000000 2.442837 0.7817968 1.038938 1.069666 1.056458 7.3370300E-02 7.3370300E-02 7.3370300E-02 2.9721493E-02 2.9435661E-02 7.3370300E-02 7.3370300E-02 0.000000 2.421528 0.7853500 1.036925 1.068814 1.052828 7.3758185E-02 7.3758185E-02 7.3758185E-02 2.9885327E-02 2.9698282E-02 7.3758185E-02 7.3758185E-02 0.000000 2.411206 0.7854604 1.038062 1.062146 1.058705 7.4139170E-02 7.4139170E-02 7.4139170E-02 3.0044002E-02 2.9870361E-02 7.4139170E-02 7.4139170E-02 0.000000 2.388796 0.7887455 1.035700 1.058156 1.054608 7.4513689E-02 7.4513689E-02 7.4513689E-02 3.0204635E-02 3.0127818E-02 7.4513689E-02 7.4513689E-02 0.000000 2.377450 0.7919174 1.036521 1.054025 1.050365 7.4718177E-02 7.4718177E-02 7.4718177E-02 3.0360971E-02 3.0297251E-02 7.4718177E-02 7.4718177E-02 0.000000 2.354075 0.7916598 1.033855 1.062325 1.043159 7.5080723E-02 7.5080723E-02 7.5080723E-02 3.0515308E-02 3.0505627E-02 7.5080723E-02 7.5080723E-02 0.000000 2.341828 0.7946119 1.034394 1.057799 1.041480 7.5437874E-02 7.5437874E-02 7.5437874E-02 3.0667761E-02 3.0716095E-02 7.5437874E-02 7.5437874E-02 0.000000 2.323112 0.7857403 1.031462 1.053153 1.034036 7.5625554E-02 7.5625554E-02 7.5625554E-02 3.0818434E-02 3.0878123E-02 7.5625554E-02 7.5625554E-02 0.000000 2.304261 0.7852849 1.031747 1.048392 1.029304 7.5972632E-02 7.5972632E-02 7.5972632E-02 3.0927161E-02 3.1038603E-02 7.5972632E-02 7.5972632E-02 0.000000 2.290837 0.7847403 1.028581 1.043527 1.024474 7.6150522E-02 7.6150522E-02 7.6150522E-02 3.1034213E-02 3.1243239E-02 7.6150522E-02 7.6150522E-02 0.000000 2.265497 0.7873517 1.028642 1.041388 1.032076 7.6488562E-02 7.6488562E-02 7.6488562E-02 3.1180006E-02 3.1400926E-02 7.6488562E-02 7.6488562E-02 0.000000 2.251402 0.7866372 1.025263 1.033507 1.024099 7.6657631E-02 7.6657631E-02 7.6657631E-02 3.1324364E-02 3.1603064E-02 7.6657631E-02 7.6657631E-02 0.000000 2.237000 0.7858468 1.021783 1.031183 1.021681 7.6987512E-02 7.6987512E-02 7.6987512E-02 3.1426940E-02 3.1758238E-02 7.6987512E-02 7.6987512E-02 0.000000 2.222309 0.7849844 1.021550 1.025960 1.016353 7.7148587E-02 7.7148587E-02 7.7148587E-02 3.1528141E-02 3.1912211E-02 7.7148587E-02 7.7148587E-02 0.000000 2.201555 0.7840536 1.017891 1.033247 1.010946 7.7305913E-02 7.7305913E-02 7.7305913E-02 3.1668514E-02 3.2068077E-02 7.7305913E-02 7.7305913E-02 0.000000 2.180546 0.7863697 1.017480 1.027751 1.005463 7.7624865E-02 7.7624865E-02 7.7624865E-02 3.1769354E-02 3.2219734E-02 7.7624865E-02 7.7624865E-02 0.000000 2.164884 0.7819960 1.013657 1.025010 0.9999046 7.7775240E-02 7.7775240E-02 7.7775240E-02 3.1866953E-02 3.2370348E-02 7.7775240E-02 7.7775240E-02 0.000000 2.149160 0.7841962 1.013093 1.022198 0.9970996 7.7922329E-02 7.7922329E-02 7.7922329E-02 3.1963408E-02 3.2519959E-02 7.7922329E-02 7.7922329E-02 0.000000 2.133208 0.7829279 1.009116 1.013663 0.9885954 7.8066267E-02 7.8066267E-02 7.8066267E-02 3.2058764E-02 3.2668620E-02 7.8066267E-02 7.8066267E-02 0.000000 2.117044 0.7816944 1.008409 1.010719 0.9856629 7.8372747E-02 7.8372747E-02 7.8372747E-02 3.2193750E-02 3.2770135E-02 7.8372747E-02 7.8372747E-02 0.000000 2.106455 0.7804093 1.004293 1.007713 0.9924700 7.8510843E-02 7.8510843E-02 7.8510843E-02 3.2246362E-02 3.2916948E-02 7.8510843E-02 7.8510843E-02 0.000000 2.172231 0.3117111 0.3156788 0.2656559 0.2593092 1.5706016E-02 1.5706016E-02 1.5706016E-02 7.0570768E-03 8.3822813E-03 1.5706016E-02 1.5706016E-02 0.000000 1.037621 0.1672255 0.2688736 0.3439955 0.3614109 2.8530784E-02 2.8530784E-02 2.8530784E-02 1.2264403E-02 1.2117287E-02 2.8530784E-02 2.8530784E-02 0.000000 1.290058 0.2550389 0.4097982 0.5122368 0.5379676 3.5987481E-02 3.5987481E-02 3.5987481E-02 1.5079762E-02 1.4406047E-02 3.5987481E-02 3.5987481E-02 0.000000 1.554950 0.3307509 0.5213690 0.6357516 0.6626731 4.1310873E-02 4.1310873E-02 4.1310873E-02 1.7076112E-02 1.6147872E-02 4.1310873E-02 4.1310873E-02 0.000000 1.772347 0.3934200 0.6097885 0.7266729 0.7548898 4.5405667E-02 4.5405667E-02 4.5405667E-02 1.8589439E-02 1.7515564E-02 4.5405667E-02 4.5405667E-02 0.000000 1.945235 0.4450960 0.6804032 0.7962214 0.8252738 4.8709184E-02 4.8709184E-02 4.8709184E-02 1.9840410E-02 1.8699126E-02 4.8709184E-02 4.8709184E-02 0.000000 2.087085 0.4901283 0.7382625 0.8520485 0.8790492 5.1532153E-02 5.1532153E-02 5.1532153E-02 2.0869147E-02 1.9663636E-02 5.1532153E-02 5.1532153E-02 0.000000 2.206805 0.5275499 0.7854903 0.8964282 0.9211157 5.3893395E-02 5.3893395E-02 5.3893395E-02 2.1758366E-02 2.0569816E-02 5.3893395E-02 5.3893395E-02 0.000000 2.301358 0.5589345 0.8255841 0.9299698 0.9521628 5.5871844E-02 5.5871844E-02 5.5871844E-02 2.2512039E-02 2.1336745E-02 5.5871844E-02 5.5871844E-02 0.000000 2.355464 0.5859191 0.8589658 0.9585304 0.9808821 5.7640120E-02 5.7640120E-02 5.7640120E-02 2.3205124E-02 2.2048656E-02 5.7640120E-02 5.7640120E-02 0.000000 2.411317 0.6101816 0.8874861 0.9825285 1.002238 5.9274059E-02 5.9274059E-02 5.9274059E-02 2.3842957E-02 2.2706820E-02 5.9274059E-02 5.9274059E-02 0.000000 2.456143 0.6319125 0.9113982 1.002262 1.019265 6.0709860E-02 6.0709860E-02 6.0709860E-02 2.4389807E-02 2.3271464E-02 6.0709860E-02 6.0709860E-02 0.000000 2.485738 0.6496972 0.9324864 1.017948 1.029689 6.2030014E-02 6.2030014E-02 6.2030014E-02 2.4888452E-02 2.3829106E-02 6.2030014E-02 6.2030014E-02 0.000000 2.511608 0.6667107 0.9509235 1.029757 1.034091 6.3158289E-02 6.3158289E-02 6.3158289E-02 2.5372613E-02 2.4333486E-02 6.3158289E-02 6.3158289E-02 0.000000 2.534265 0.6815009 0.9652221 1.033201 1.052180 6.4256452E-02 6.4256452E-02 6.4256452E-02 2.5771433E-02 2.4830412E-02 6.4256452E-02 6.4256452E-02 0.000000 2.548735 0.6941324 0.9787166 1.050496 1.054549 6.5169901E-02 6.5169901E-02 6.5169901E-02 2.6198976E-02 2.5235601E-02 6.5169901E-02 6.5169901E-02 0.000000 2.554869 0.7046494 0.9882553 1.054865 1.066421 6.6059329E-02 6.6059329E-02 6.6059329E-02 2.6541440E-02 2.5677253E-02 6.6059329E-02 6.6059329E-02 0.000000 2.559198 0.7162976 0.9971659 1.055848 1.069348 6.6929176E-02 6.6929176E-02 6.6929176E-02 2.6918050E-02 2.6072536E-02 6.6929176E-02 6.6929176E-02 0.000000 2.561716 0.7243365 1.005523 1.068506 1.069637 6.7697644E-02 6.7697644E-02 6.7697644E-02 2.7207680E-02 2.6418105E-02 6.7697644E-02 6.7697644E-02 0.000000 2.556883 0.7336051 1.013386 1.071052 1.069461 6.8448752E-02 6.8448752E-02 6.8448752E-02 2.7530292E-02 2.6803954E-02 6.8448752E-02 6.8448752E-02 0.000000 2.555884 0.7425454 1.017513 1.070366 1.078387 6.9103859E-02 6.9103859E-02 6.9103859E-02 2.7847677E-02 2.7140439E-02 6.9103859E-02 6.9103859E-02 0.000000 2.542451 0.7479437 1.024536 1.069305 1.074364 6.9747835E-02 6.9747835E-02 6.9747835E-02 2.8081829E-02 2.7473047E-02 6.9747835E-02 6.9747835E-02 0.000000 2.539341 0.7530614 1.027891 1.077448 1.072817 7.0295259E-02 7.0295259E-02 7.0295259E-02 2.8350655E-02 2.7758116E-02 7.0295259E-02 7.0295259E-02 0.000000 2.523632 0.7611823 1.030912 1.078350 1.070959 7.0830323E-02 7.0830323E-02 7.0830323E-02 2.8579323E-02 2.8039711E-02 7.0830323E-02 7.0830323E-02 0.000000 2.518024 0.7658118 1.033630 1.073325 1.066002 7.1435131E-02 7.1435131E-02 7.1435131E-02 2.8840536E-02 2.8318124E-02 7.1435131E-02 7.1435131E-02 0.000000 2.500355 0.7702259 1.036068 1.070860 1.073153 7.1867287E-02 7.1867287E-02 7.1867287E-02 2.9019048E-02 2.8593622E-02 7.1867287E-02 7.1867287E-02 0.000000 2.487619 0.7744426 1.034922 1.068160 1.070328 7.2289541E-02 7.2289541E-02 7.2289541E-02 2.9273503E-02 2.8866436E-02 7.2289541E-02 7.2289541E-02 0.000000 2.474118 0.7751874 1.036865 1.077738 1.064451 7.2784081E-02 7.2784081E-02 7.2784081E-02 2.9445477E-02 2.9137643E-02 7.2784081E-02 7.2784081E-02 0.000000 2.454137 0.7790483 1.038586 1.071619 1.061200 7.3188737E-02 7.3188737E-02 7.3188737E-02 2.9614471E-02 2.9361101E-02 7.3188737E-02 7.3188737E-02 0.000000 2.438900 0.7827535 1.036775 1.070962 1.057761 7.3585443E-02 7.3585443E-02 7.3585443E-02 2.9822120E-02 2.9581882E-02 7.3585443E-02 7.3585443E-02 0.000000 2.423382 0.7863154 1.038101 1.064473 1.055123 7.3974729E-02 7.3974729E-02 7.3974729E-02 3.0023204E-02 2.9846961E-02 7.3974729E-02 7.3974729E-02 0.000000 2.407295 0.7864333 1.035919 1.063474 1.057179 7.4275210E-02 7.4275210E-02 7.4275210E-02 3.0186448E-02 3.0017924E-02 7.4275210E-02 7.4275210E-02 0.000000 2.390676 0.7897269 1.036902 1.056679 1.053097 7.4650943E-02 7.4650943E-02 7.4650943E-02 3.0345503E-02 3.0279338E-02 7.4650943E-02 7.4650943E-02 0.000000 2.367781 0.7895901 1.034395 1.052566 1.048866 7.5020559E-02 7.5020559E-02 7.5020559E-02 3.0502416E-02 3.0445436E-02 7.5020559E-02 7.5020559E-02 0.000000 2.355976 0.7926562 1.035075 1.060836 1.044501 7.5302303E-02 7.5302303E-02 7.5302303E-02 3.0657314E-02 3.0657632E-02 7.5302303E-02 7.5302303E-02 0.000000 2.332177 0.7838342 1.032283 1.056323 1.037191 7.5578459E-02 7.5578459E-02 7.5578459E-02 3.0810310E-02 3.0867392E-02 7.5578459E-02 7.5578459E-02 0.000000 2.319243 0.7867820 1.032698 1.051690 1.032583 7.5931579E-02 7.5931579E-02 7.5931579E-02 3.0921251E-02 3.1030109E-02 7.5931579E-02 7.5931579E-02 0.000000 2.300404 0.7863342 1.029655 1.046940 1.027866 7.6115228E-02 7.6115228E-02 7.6115228E-02 3.1030409E-02 3.1191263E-02 7.6115228E-02 7.6115228E-02 0.000000 2.281202 0.7857345 1.026497 1.042091 1.032834 7.6458745E-02 7.6458745E-02 7.6458745E-02 3.1178214E-02 3.1396624E-02 7.6458745E-02 7.6458745E-02 0.000000 2.267434 0.7851061 1.026565 1.037143 1.027788 7.6633044E-02 7.6633044E-02 7.6633044E-02 3.1324491E-02 3.1600725E-02 7.6633044E-02 7.6633044E-02 0.000000 2.247564 0.7843973 1.026530 1.034921 1.025476 7.6967910E-02 7.6967910E-02 7.6967910E-02 3.1428907E-02 3.1757783E-02 7.6967910E-02 7.6967910E-02 0.000000 2.227388 0.7869220 1.023058 1.026968 1.017416 7.7133767E-02 7.7133767E-02 7.7133767E-02 3.1531867E-02 3.1913571E-02 7.7133767E-02 7.7133767E-02 0.000000 2.212698 0.7860658 1.019490 1.025266 1.014924 7.7295661E-02 7.7295661E-02 7.7295661E-02 3.1673927E-02 3.2071181E-02 7.7295661E-02 7.7295661E-02 0.000000 2.197733 0.7851409 1.015837 1.031823 1.006706 7.7618986E-02 7.7618986E-02 7.7618986E-02 3.1776391E-02 3.2224514E-02 7.7618986E-02 7.7618986E-02 0.000000 2.182508 0.7841508 1.015436 1.026339 1.004055 7.7773556E-02 7.7773556E-02 7.7773556E-02 3.1875547E-02 3.2376744E-02 7.7773556E-02 7.7773556E-02 0.000000 2.166849 0.7830986 1.014955 1.020780 0.9985058 7.7924676E-02 7.7924676E-02 7.7924676E-02 3.2014128E-02 3.2527920E-02 7.7924676E-02 7.7924676E-02 0.000000 2.151128 0.7819834 1.011058 1.017974 0.9928933 7.8072481E-02 7.8072481E-02 7.8072481E-02 3.2070290E-02 3.2678086E-02 7.8072481E-02 7.8072481E-02 0.000000 2.135179 0.7807187 1.007087 1.015103 0.9872171 7.8382686E-02 7.8382686E-02 7.8382686E-02 3.2206669E-02 3.2827284E-02 7.8382686E-02 7.8382686E-02 0.000000 2.119017 0.7828074 1.006385 1.009344 0.9854020 7.8524359E-02 7.8524359E-02 7.8524359E-02 3.2260612E-02 3.2929268E-02 7.8524359E-02 7.8524359E-02 0.000000 2.102651 0.7815270 1.005616 1.003523 0.9882347 7.8663111E-02 7.8663111E-02 7.8663111E-02 3.2394964E-02 3.3076603E-02 7.8663111E-02 7.8663111E-02 0.000000 2.172258 0.3117583 0.3155017 0.2657096 0.2591692 1.5706835E-02 1.5706835E-02 1.5706835E-02 7.0576011E-03 8.3826846E-03 1.5706835E-02 1.5706835E-02 0.000000 1.037929 0.1673566 0.2690474 0.3446029 0.3616158 2.8606664E-02 2.8606664E-02 2.8606664E-02 1.2302985E-02 1.2123264E-02 2.8606664E-02 2.8606664E-02 0.000000 1.290508 0.2562142 0.4100882 0.5135991 0.5383028 3.6083978E-02 3.6083978E-02 3.6083978E-02 1.5159639E-02 1.4452062E-02 3.6083978E-02 3.6083978E-02 0.000000 1.555540 0.3321712 0.5217535 0.6361805 0.6631067 4.1420825E-02 4.1420825E-02 4.1420825E-02 1.7130511E-02 1.6199891E-02 4.1420825E-02 4.1420825E-02 0.000000 1.773058 0.3950200 0.6102502 0.7284076 0.7566475 4.5527551E-02 4.5527551E-02 4.5527551E-02 1.8683689E-02 1.7572489E-02 4.5527551E-02 4.5527551E-02 0.000000 1.946045 0.4468335 0.6809294 0.7980683 0.8258522 4.8914772E-02 4.8914772E-02 4.8914772E-02 1.9939654E-02 1.8760264E-02 4.8914772E-02 4.8914772E-02 0.000000 2.087983 0.4906081 0.7388442 0.8526795 0.8796851 5.1672105E-02 5.1672105E-02 5.1672105E-02 2.0972528E-02 1.9769857E-02 5.1672105E-02 5.1672105E-02 0.000000 2.207780 0.5280725 0.7861205 0.8971106 0.9218016 5.4040447E-02 5.4040447E-02 5.4040447E-02 2.1867041E-02 2.0637803E-02 5.4040447E-02 5.4040447E-02 0.000000 2.302403 0.5594945 0.8277877 0.9320484 0.9556169 5.6103107E-02 5.6103107E-02 5.6103107E-02 2.2622107E-02 2.1447947E-02 5.6103107E-02 5.6103107E-02 0.000000 2.356598 0.5879946 0.8612318 0.9592981 0.9816532 5.7875749E-02 5.7875749E-02 5.7875749E-02 2.3317903E-02 2.2162911E-02 5.7875749E-02 5.7875749E-02 0.000000 2.412516 0.6108055 0.8898075 0.9833336 1.003046 5.9438627E-02 5.9438627E-02 5.9438627E-02 2.3920629E-02 2.2782600E-02 5.9438627E-02 5.9438627E-02 0.000000 2.451948 0.6340923 0.9137675 1.003101 1.020106 6.0956188E-02 6.0956188E-02 6.0956188E-02 2.4508689E-02 2.3390964E-02 6.0956188E-02 6.0956188E-02 0.000000 2.487046 0.6503742 0.9332989 1.018819 1.027850 6.2202856E-02 6.2202856E-02 6.2202856E-02 2.5006160E-02 2.3950901E-02 6.2202856E-02 6.2202856E-02 0.000000 2.512965 0.6689711 0.9517647 1.030656 1.041402 6.3413575E-02 6.3413575E-02 6.3413575E-02 2.5494402E-02 2.4457403E-02 6.3413575E-02 6.3413575E-02 0.000000 2.535665 0.6837956 0.9660890 1.034199 1.053166 6.4436533E-02 6.4436533E-02 6.4436533E-02 2.5894176E-02 2.4956344E-02 6.4436533E-02 6.4436533E-02 0.000000 2.544481 0.6948753 0.9796090 1.051505 1.055570 6.5432496E-02 6.5432496E-02 6.5432496E-02 2.6284680E-02 2.5363309E-02 6.5432496E-02 6.5432496E-02 0.000000 2.556347 0.7085940 0.9891706 1.055906 1.069556 6.6327423E-02 6.6327423E-02 6.6327423E-02 2.6669888E-02 2.5808284E-02 6.6327423E-02 6.6327423E-02 0.000000 2.560712 0.7186766 0.9981042 1.056922 1.070407 6.7197800E-02 6.7197800E-02 6.7197800E-02 2.7044963E-02 2.6203826E-02 6.7197800E-02 6.7197800E-02 0.000000 2.557530 0.7267383 1.006481 1.069583 1.070725 6.7889035E-02 6.7889035E-02 6.7889035E-02 2.7335761E-02 2.6550885E-02 6.7889035E-02 6.7889035E-02 0.000000 2.558463 0.7344149 1.014364 1.069345 1.067768 6.8642579E-02 6.8642579E-02 6.8642579E-02 2.7659528E-02 2.6938161E-02 6.8642579E-02 6.8642579E-02 0.000000 2.551737 0.7433723 1.018510 1.068686 1.076680 6.9302738E-02 6.9302738E-02 6.9302738E-02 2.7938815E-02 2.7276013E-02 6.9302738E-02 6.9302738E-02 0.000000 2.544082 0.7487838 1.022249 1.067653 1.075502 6.9946341E-02 6.9946341E-02 6.9946341E-02 2.8213121E-02 2.7609939E-02 6.9946341E-02 6.9946341E-02 0.000000 2.535237 0.7539144 1.028923 1.078600 1.071159 7.0495777E-02 7.0495777E-02 7.0495777E-02 2.8443521E-02 2.7896211E-02 7.0495777E-02 7.0495777E-02 0.000000 2.525312 0.7620488 1.031959 1.076703 1.069325 7.1113765E-02 7.1113765E-02 7.1113765E-02 2.8712600E-02 2.8178962E-02 7.1113765E-02 7.1113765E-02 0.000000 2.513952 0.7666899 1.031375 1.074519 1.075031 7.1558274E-02 7.1558274E-02 7.1558274E-02 2.8935101E-02 2.8458497E-02 7.1558274E-02 7.1558274E-02 0.000000 2.502072 0.7711152 1.033825 1.072075 1.071521 7.2154574E-02 7.2154574E-02 7.2154574E-02 2.9153973E-02 2.8735075E-02 7.2154574E-02 7.2154574E-02 0.000000 2.483582 0.7720571 1.036017 1.066575 1.068715 7.2578557E-02 7.2578557E-02 7.2578557E-02 2.9369498E-02 2.9008940E-02 7.2578557E-02 7.2578557E-02 0.000000 2.470098 0.7760961 1.037970 1.076135 1.065682 7.2993293E-02 7.2993293E-02 7.2993293E-02 2.9581925E-02 2.9279679E-02 7.2993293E-02 7.2993293E-02 0.000000 2.455906 0.7799668 1.036377 1.072860 1.059626 7.3399439E-02 7.3399439E-02 7.3399439E-02 2.9751595E-02 2.9505460E-02 7.3399439E-02 7.3399439E-02 0.000000 2.434902 0.7836841 1.037904 1.069393 1.053387 7.3797584E-02 7.3797584E-02 7.3797584E-02 2.9918790E-02 2.9727133E-02 7.3797584E-02 7.3797584E-02 0.000000 2.425176 0.7872517 1.035912 1.065746 1.062356 7.4188247E-02 7.4188247E-02 7.4188247E-02 3.0123619E-02 2.9993471E-02 7.4188247E-02 7.4188247E-02 0.000000 2.403321 0.7873769 1.037070 1.059119 1.055615 7.4571908E-02 7.4571908E-02 7.4571908E-02 3.0285506E-02 3.0210234E-02 7.4571908E-02 7.4571908E-02 0.000000 2.386714 0.7906821 1.038063 1.055163 1.051547 7.4949011E-02 7.4949011E-02 7.4949011E-02 3.0445095E-02 3.0425789E-02 7.4949011E-02 7.4949011E-02 0.000000 2.369608 0.7905519 1.035564 1.051584 1.047328 7.5155787E-02 7.5155787E-02 7.5155787E-02 3.0602526E-02 3.0594995E-02 7.5155787E-02 7.5155787E-02 0.000000 2.346254 0.7936226 1.032920 1.059307 1.040157 7.5520746E-02 7.5520746E-02 7.5520746E-02 3.0757925E-02 3.0807121E-02 7.5520746E-02 7.5520746E-02 0.000000 2.334023 0.7848366 1.033472 1.054808 1.035682 7.5880229E-02 7.5880229E-02 7.5880229E-02 3.0871158E-02 3.1017642E-02 7.5880229E-02 7.5880229E-02 0.000000 2.315315 0.7844900 1.030561 1.050186 1.031088 7.6069959E-02 7.6069959E-02 7.6069959E-02 3.1022785E-02 3.1181041E-02 7.6069959E-02 7.6069959E-02 0.000000 2.296483 0.7840482 1.030862 1.045451 1.023572 7.6419219E-02 7.6419219E-02 7.6419219E-02 3.1172702E-02 3.1388540E-02 7.6419219E-02 7.6419219E-02 0.000000 2.283068 0.7867579 1.027711 1.040615 1.031320 7.6599032E-02 7.6599032E-02 7.6599032E-02 3.1320997E-02 3.1548928E-02 7.6599032E-02 7.6599032E-02 0.000000 2.257745 0.7861361 1.024451 1.035677 1.026289 7.6856658E-02 7.6856658E-02 7.6856658E-02 3.1427335E-02 3.1753726E-02 7.6856658E-02 7.6856658E-02 0.000000 2.243662 0.7854338 1.024422 1.030646 1.021158 7.7109993E-02 7.7109993E-02 7.7109993E-02 3.1532135E-02 3.1911403E-02 7.7109993E-02 7.7109993E-02 0.000000 2.229271 0.7846552 1.020957 1.025532 1.015936 7.7276662E-02 7.7276662E-02 7.7276662E-02 3.1675957E-02 3.2070834E-02 7.7276662E-02 7.7276662E-02 0.000000 2.214586 0.7838042 1.020737 1.032932 1.010632 7.7604569E-02 7.7604569E-02 7.7604569E-02 3.1780116E-02 3.2225914E-02 7.7604569E-02 7.7604569E-02 0.000000 2.193845 0.7861964 1.017084 1.027534 1.008068 7.7763520E-02 7.7763520E-02 7.7763520E-02 3.1880893E-02 3.2379825E-02 7.7763520E-02 7.7763520E-02 0.000000 2.178447 0.7852119 1.013353 1.024887 0.9997817 7.7918842E-02 7.7918842E-02 7.7918842E-02 3.2021035E-02 3.2532617E-02 7.7918842E-02 7.7918842E-02 0.000000 2.157185 0.7841652 1.012877 1.022164 0.9970664 7.8070685E-02 7.8070685E-02 7.8070685E-02 3.2078695E-02 3.2684345E-02 7.8070685E-02 7.8070685E-02 0.000000 2.141465 0.7829635 1.008984 1.013716 0.9886480 7.8384757E-02 7.8384757E-02 7.8384757E-02 3.2216512E-02 3.2835055E-02 7.8384757E-02 7.8384757E-02 0.000000 2.125519 0.7817935 1.008357 1.010854 0.9857979 7.8530155E-02 7.8530155E-02 7.8530155E-02 3.2271836E-02 3.2984786E-02 7.8530155E-02 7.8530155E-02 0.000000 2.109361 0.7805694 1.004317 1.007927 0.9926788 7.8672491E-02 7.8672491E-02 7.8672491E-02 3.2407530E-02 3.3133585E-02 7.8672491E-02 7.8672491E-02 0.000000 2.092997 0.7792934 1.003554 1.002115 0.9896092 7.8811899E-02 7.8811899E-02 7.8811899E-02 3.2460708E-02 3.3235077E-02 7.8811899E-02 7.8811899E-02 0.000000 2.172283 0.3115819 0.3155486 0.2657614 0.2590272 1.5707629E-02 1.5707629E-02 1.5707629E-02 7.0581082E-03 8.3830748E-03 1.5707629E-02 1.5707629E-02 0.000000 1.038225 0.1674831 0.2692153 0.3447971 0.3626551 2.8621919E-02 2.8621919E-02 2.8621919E-02 1.2341385E-02 1.2161552E-02 2.8621919E-02 2.8621919E-02 0.000000 1.290942 0.2564335 0.4114468 0.5139179 0.5386267 3.6177665E-02 3.6177665E-02 3.6177665E-02 1.5207049E-02 1.4497859E-02 3.6177665E-02 3.6177665E-02 0.000000 1.558349 0.3324681 0.5233619 0.6365951 0.6647016 4.1529790E-02 4.1529790E-02 4.1529790E-02 1.7218165E-02 1.6251605E-02 4.1529790E-02 4.1529790E-02 0.000000 1.773743 0.3953821 0.6106967 0.7288994 0.7571440 4.5721296E-02 4.5721296E-02 4.5721296E-02 1.8742803E-02 1.7666655E-02 4.5721296E-02 4.5721296E-02 0.000000 1.949358 0.4472504 0.6828493 0.7998980 0.8264118 4.9044970E-02 4.9044970E-02 4.9044970E-02 2.0002946E-02 1.8820966E-02 4.9044970E-02 4.9044970E-02 0.000000 2.091465 0.4910724 0.7394071 0.8545998 0.8803006 5.1810518E-02 5.1810518E-02 5.1810518E-02 2.1039311E-02 1.9834165E-02 5.1810518E-02 5.1810518E-02 0.000000 2.208722 0.5285804 0.7882309 0.8977714 0.9224656 5.4185819E-02 5.4185819E-02 5.4185819E-02 2.1936908E-02 2.0745151E-02 5.4185819E-02 5.4185819E-02 0.000000 2.303409 0.5614902 0.8284406 0.9341030 0.9563248 5.6331005E-02 5.6331005E-02 5.6331005E-02 2.2731528E-02 2.1518240E-02 5.6331005E-02 5.6331005E-02 0.000000 2.357695 0.5885699 0.8619227 0.9627726 0.9824001 5.8109630E-02 5.8109630E-02 5.8109630E-02 2.3429997E-02 2.2235751E-02 5.8109630E-02 5.8109630E-02 0.000000 2.413676 0.6129174 0.8905335 0.9841136 1.003828 5.9678707E-02 5.9678707E-02 5.9678707E-02 2.4035070E-02 2.2899024E-02 5.9678707E-02 5.9678707E-02 0.000000 2.453164 0.6347249 0.9145255 1.003914 1.020921 6.1122715E-02 6.1122715E-02 6.1122715E-02 2.4625225E-02 2.3509894E-02 6.1122715E-02 6.1122715E-02 0.000000 2.488311 0.6525750 0.9340861 1.019662 1.028753 6.2373552E-02 6.2373552E-02 6.2373552E-02 2.5124693E-02 2.4072096E-02 6.2373552E-02 6.2373552E-02 0.000000 2.514278 0.6696512 0.9525797 1.028972 1.045319 6.3588001E-02 6.3588001E-02 6.3588001E-02 2.5614735E-02 2.4580691E-02 6.3588001E-02 6.3588001E-02 0.000000 2.537020 0.6844971 0.9669319 1.035168 1.051330 6.4614333E-02 6.4614333E-02 6.4614333E-02 2.6016081E-02 2.5039053E-02 6.4614333E-02 6.4614333E-02 0.000000 2.545876 0.6955953 0.9804771 1.049693 1.056561 6.5692887E-02 6.5692887E-02 6.5692887E-02 2.6408060E-02 2.5490338E-02 6.5692887E-02 6.5692887E-02 0.000000 2.557777 0.7093370 0.9900578 1.054123 1.067747 6.6590734E-02 6.6590734E-02 6.6590734E-02 2.6794586E-02 2.5937242E-02 6.6590734E-02 6.6590734E-02 0.000000 2.562177 0.7194360 0.9990137 1.057964 1.068624 6.7384221E-02 6.7384221E-02 6.7384221E-02 2.7170973E-02 2.6334390E-02 6.7384221E-02 6.7384221E-02 0.000000 2.559027 0.7291178 1.007410 1.067819 1.068971 6.8158016E-02 6.8158016E-02 6.8158016E-02 2.7462918E-02 2.6684493E-02 6.8158016E-02 6.8158016E-02 0.000000 2.554249 0.7352046 1.015312 1.070416 1.068852 6.8833873E-02 6.8833873E-02 6.8833873E-02 2.7748689E-02 2.7071601E-02 6.8833873E-02 6.8833873E-02 0.000000 2.553289 0.7441742 1.019478 1.069783 1.077762 6.9496505E-02 6.9496505E-02 6.9496505E-02 2.8028907E-02 2.7410802E-02 6.9496505E-02 6.9496505E-02 0.000000 2.545660 0.7495987 1.023232 1.068775 1.076607 7.0142232E-02 7.0142232E-02 7.0142232E-02 2.8304102E-02 2.7746025E-02 7.0142232E-02 7.0142232E-02 0.000000 2.531079 0.7547417 1.026616 1.076897 1.072286 7.0774555E-02 7.0774555E-02 7.0774555E-02 2.8578093E-02 2.8033482E-02 7.0774555E-02 7.0774555E-02 0.000000 2.521173 0.7628894 1.029664 1.075021 1.067658 7.1313545E-02 7.1313545E-02 7.1313545E-02 2.8844872E-02 2.8317375E-02 7.1313545E-02 7.1313545E-02 0.000000 2.509825 0.7675418 1.032405 1.072859 1.075226 7.1841009E-02 7.1841009E-02 7.1841009E-02 2.9068198E-02 2.8598012E-02 7.1841009E-02 7.1841009E-02 0.000000 2.497958 0.7719779 1.034868 1.070437 1.072682 7.2276510E-02 7.2276510E-02 7.2276510E-02 2.9287865E-02 2.8875660E-02 7.2276510E-02 7.2276510E-02 0.000000 2.485261 0.7729290 1.037075 1.064960 1.067064 7.2783425E-02 7.2783425E-02 7.2783425E-02 2.9464368E-02 2.9151281E-02 7.2783425E-02 7.2783425E-02 0.000000 2.466020 0.7769779 1.035717 1.074496 1.064054 7.3281273E-02 7.3281273E-02 7.3281273E-02 2.9717313E-02 2.9423954E-02 7.3281273E-02 7.3281273E-02 0.000000 2.446066 0.7808580 1.037460 1.071238 1.058017 7.3688984E-02 7.3688984E-02 7.3688984E-02 2.9888349E-02 2.9648906E-02 7.3688984E-02 7.3688984E-02 0.000000 2.436623 0.7845840 1.038999 1.067789 1.054616 7.4088626E-02 7.4088626E-02 7.4088626E-02 3.0056054E-02 2.9872721E-02 7.4088626E-02 7.4088626E-02 0.000000 2.415353 0.7848564 1.037018 1.064160 1.060740 7.4398853E-02 7.4398853E-02 7.4398853E-02 3.0220952E-02 3.0136630E-02 7.4398853E-02 7.4398853E-02 0.000000 2.405068 0.7882926 1.034853 1.060371 1.056842 7.4701861E-02 7.4701861E-02 7.4701861E-02 3.0383382E-02 3.0356964E-02 7.4701861E-02 7.4701861E-02 0.000000 2.382692 0.7916063 1.035853 1.053611 1.049958 7.5080127E-02 7.5080127E-02 7.5080127E-02 3.0543497E-02 3.0573441E-02 7.5080127E-02 7.5080127E-02 0.000000 2.365597 0.7914826 1.036704 1.062099 1.045756 7.5452186E-02 7.5452186E-02 7.5452186E-02 3.0701436E-02 3.0742725E-02 7.5452186E-02 7.5452186E-02 0.000000 2.348031 0.7945607 1.034069 1.057741 1.041422 7.5654000E-02 7.5654000E-02 7.5654000E-02 3.0857328E-02 3.0955620E-02 7.5654000E-02 7.5654000E-02 0.000000 2.324252 0.7858101 1.031292 1.053255 1.034138 7.6014534E-02 7.6014534E-02 7.6014534E-02 3.1011287E-02 3.1166894E-02 7.6014534E-02 7.6014534E-02 0.000000 2.311325 0.7854708 1.031723 1.048646 1.026741 7.6287530E-02 7.6287530E-02 7.6287530E-02 3.1163422E-02 3.1330962E-02 7.6287530E-02 7.6287530E-02 0.000000 2.298282 0.7850362 1.028697 1.043925 1.027523 7.6555461E-02 7.6555461E-02 7.6555461E-02 3.1313833E-02 3.1539179E-02 7.6555461E-02 7.6555461E-02 0.000000 2.273308 0.7877517 1.028889 1.039101 1.029772 7.6736152E-02 7.6736152E-02 7.6736152E-02 3.1422190E-02 3.1700201E-02 7.6736152E-02 7.6736152E-02 0.000000 2.259556 0.7871364 1.025636 1.034176 1.024751 7.7077173E-02 7.7077173E-02 7.7077173E-02 3.1528924E-02 3.1905685E-02 7.7077173E-02 7.7077173E-02 0.000000 2.245479 0.7864404 1.022274 1.029158 1.019628 7.7248871E-02 7.7248871E-02 7.7248871E-02 3.1674590E-02 3.2067012E-02 7.7248871E-02 7.7248871E-02 0.000000 2.219532 0.7856679 1.018816 1.024057 1.014419 7.7498943E-02 7.7498943E-02 7.7498943E-02 3.1780515E-02 3.2223914E-02 7.7498943E-02 7.7498943E-02 0.000000 2.204849 0.7848228 1.018602 1.031419 1.009125 7.7745095E-02 7.7745095E-02 7.7745095E-02 3.1882986E-02 3.2379571E-02 7.7745095E-02 7.7745095E-02 0.000000 2.189896 0.7839088 1.018299 1.028860 1.003746 7.7904806E-02 7.7904806E-02 7.7904806E-02 3.2024752E-02 3.2534052E-02 7.7904806E-02 7.7904806E-02 0.000000 2.174499 0.7829260 1.014569 1.020568 0.9982941 7.8060858E-02 7.8060858E-02 7.8060858E-02 3.2083970E-02 3.2687400E-02 7.8060858E-02 7.8060858E-02 0.000000 2.159022 0.7818835 1.010761 1.017851 0.9927709 7.8378975E-02 7.8378975E-02 7.8378975E-02 3.2223292E-02 3.2839675E-02 7.8378975E-02 7.8378975E-02 0.000000 2.143304 0.7806854 1.006873 1.015066 0.9871804 7.8528248E-02 7.8528248E-02 7.8528248E-02 3.2280054E-02 3.2990914E-02 7.8528248E-02 7.8528248E-02 0.000000 2.127361 0.7828376 1.006251 1.009389 0.9871944 7.8674316E-02 7.8674316E-02 7.8674316E-02 3.2417141E-02 3.3141173E-02 7.8674316E-02 7.8674316E-02 0.000000 2.111210 0.7816181 1.005558 1.003647 0.9883561 7.8817308E-02 7.8817308E-02 7.8817308E-02 3.2471649E-02 3.3290483E-02 7.8817308E-02 7.8817308E-02 0.000000 2.094847 0.7803466 1.003099 1.000667 0.9852937 7.8957357E-02 7.8957357E-02 7.8957357E-02 3.2606680E-02 3.3392418E-02 7.8957357E-02 7.8957357E-02 0.000000 2.172308 0.3116259 0.3155940 0.2658115 0.2590783 1.5708394E-02 1.5708394E-02 1.5708394E-02 7.0703910E-03 8.3834529E-03 1.5708394E-02 1.5708394E-02 0.000000 1.038512 0.1676055 0.2693776 0.3449848 0.3628469 2.8697016E-02 2.8697016E-02 2.8697016E-02 1.2349802E-02 1.2167231E-02 2.8697016E-02 2.8697016E-02 0.000000 1.291362 0.2566458 0.4117185 0.5142263 0.5389401 3.6270674E-02 3.6270674E-02 3.6270674E-02 1.5254146E-02 1.4543450E-02 3.6270674E-02 3.6270674E-02 0.000000 1.558900 0.3327554 0.5237222 0.6381496 0.6651078 4.1706886E-02 4.1706886E-02 4.1706886E-02 1.7271753E-02 1.6303029E-02 4.1706886E-02 4.1706886E-02 0.000000 1.774405 0.3957326 0.6124691 0.7293754 0.7576246 4.5840833E-02 4.5840833E-02 4.5840833E-02 1.8836174E-02 1.7722890E-02 4.5840833E-02 4.5840833E-02 0.000000 1.950116 0.4489642 0.6833428 0.8004369 0.8269569 4.9246810E-02 4.9246810E-02 4.9246810E-02 2.0065675E-02 1.8919829E-02 4.9246810E-02 4.9246810E-02 0.000000 2.094921 0.4915220 0.7414151 0.8565019 0.8808967 5.2021731E-02 5.2021731E-02 5.2021731E-02 2.1141557E-02 1.9937338E-02 5.2021731E-02 5.2021731E-02 0.000000 2.209634 0.5290703 0.7903240 0.8984115 0.9231112 5.4404836E-02 5.4404836E-02 5.4404836E-02 2.2042708E-02 2.0812128E-02 5.4404836E-02 5.4404836E-02 0.000000 2.304382 0.5620164 0.8290731 0.9347859 0.9570107 5.6481130E-02 5.6481130E-02 5.6481130E-02 2.2840330E-02 2.1629415E-02 5.6481130E-02 5.6481130E-02 0.000000 2.358756 0.5906122 0.8625921 0.9634941 0.9831241 5.8265008E-02 5.8265008E-02 5.8265008E-02 2.3541432E-02 2.2348957E-02 5.8265008E-02 5.8265008E-02 0.000000 2.414797 0.6150130 0.8912370 0.9848697 1.004587 5.9916317E-02 5.9916317E-02 5.9916317E-02 2.4150841E-02 2.3014938E-02 5.9916317E-02 5.9916317E-02 0.000000 2.454339 0.6353382 0.9152638 1.004703 1.021711 6.1287262E-02 6.1287262E-02 6.1287262E-02 2.4741039E-02 2.3586538E-02 6.1287262E-02 6.1287262E-02 0.000000 2.489535 0.6547610 0.9348491 1.020480 1.029634 6.2620632E-02 6.2620632E-02 6.2620632E-02 2.5244905E-02 2.4150653E-02 6.2620632E-02 6.2620632E-02 0.000000 2.515548 0.6703107 0.9533699 1.029879 1.046213 6.3760310E-02 6.3760310E-02 6.3760310E-02 2.5695950E-02 2.4703380E-02 6.3760310E-02 6.3760310E-02 0.000000 2.538332 0.6851773 0.9677458 1.036109 1.052258 6.4869121E-02 6.4869121E-02 6.4869121E-02 2.6137182E-02 2.5163632E-02 6.4869121E-02 6.4869121E-02 0.000000 2.547226 0.6978775 0.9813136 1.050642 1.057523 6.5792166E-02 6.5792166E-02 6.5792166E-02 2.6530614E-02 2.5616715E-02 6.5792166E-02 6.5792166E-02 0.000000 2.559161 0.7100542 0.9909210 1.055104 1.068716 6.6772185E-02 6.6772185E-02 6.6772185E-02 2.6918439E-02 2.6022365E-02 6.6772185E-02 6.6772185E-02 0.000000 2.557869 0.7201685 0.9998959 1.056181 1.069622 6.7568302E-02 6.7568302E-02 6.7568302E-02 2.7257171E-02 2.6464261E-02 6.7568302E-02 6.7568302E-02 0.000000 2.560477 0.7298675 1.008311 1.068833 1.069996 6.8424739E-02 6.8424739E-02 6.8424739E-02 2.7589189E-02 2.6815746E-02 6.8424739E-02 6.8424739E-02 0.000000 2.555727 0.7359683 1.016236 1.071457 1.067096 6.9103085E-02 6.9103085E-02 6.9103085E-02 2.7876033E-02 2.7204307E-02 6.9103085E-02 6.9103085E-02 0.000000 2.549040 0.7449524 1.020414 1.068039 1.075992 6.9768451E-02 6.9768451E-02 6.9768451E-02 2.8157270E-02 2.7544839E-02 6.9768451E-02 6.9768451E-02 0.000000 2.547188 0.7503895 1.024187 1.067058 1.074859 7.0416436E-02 7.0416436E-02 7.0416436E-02 2.8433438E-02 2.7881343E-02 7.0416436E-02 7.0416436E-02 0.000000 2.532630 0.7555448 1.027586 1.077983 1.073381 7.0969917E-02 7.0969917E-02 7.0969917E-02 2.8708506E-02 2.8169965E-02 7.0969917E-02 7.0969917E-02 0.000000 2.522746 0.7637053 1.030649 1.076128 1.068774 7.1510740E-02 7.1510740E-02 7.1510740E-02 2.8976180E-02 2.8454985E-02 7.1510740E-02 7.1510740E-02 0.000000 2.511414 0.7683687 1.033409 1.073986 1.073508 7.2039962E-02 7.2039962E-02 7.2039962E-02 2.9160639E-02 2.8736711E-02 7.2039962E-02 7.2039962E-02 0.000000 2.493795 0.7728154 1.035885 1.068766 1.070983 7.2558492E-02 7.2558492E-02 7.2558492E-02 2.9420767E-02 2.9015409E-02 7.2558492E-02 7.2558492E-02 0.000000 2.481113 0.7737754 1.038103 1.066126 1.068212 7.2985627E-02 7.2985627E-02 7.2985627E-02 2.9597975E-02 2.9290592E-02 7.2985627E-02 7.2985627E-02 0.000000 2.467661 0.7778340 1.036756 1.075651 1.062392 7.3403381E-02 7.3403381E-02 7.3403381E-02 2.9813431E-02 2.9565630E-02 7.3403381E-02 7.3403381E-02 0.000000 2.447722 0.7817234 1.038512 1.069583 1.056374 7.3812418E-02 7.3812418E-02 7.3812418E-02 3.0021673E-02 2.9793493E-02 7.3812418E-02 7.3812418E-02 0.000000 2.432512 0.7854578 1.036734 1.066147 1.050174 7.4213341E-02 7.4213341E-02 7.4213341E-02 3.0191731E-02 3.0015806E-02 7.4213341E-02 7.4213341E-02 0.000000 2.417031 0.7857375 1.038091 1.062538 1.059091 7.4606679E-02 7.4606679E-02 7.4606679E-02 3.0357236E-02 3.0283678E-02 7.4606679E-02 7.4606679E-02 0.000000 2.395200 0.7891819 1.035940 1.058766 1.052379 7.4992925E-02 7.4992925E-02 7.4992925E-02 3.0520251E-02 3.0500742E-02 7.4992925E-02 7.4992925E-02 0.000000 2.384393 0.7891873 1.036952 1.054843 1.048337 7.5290419E-02 7.5290419E-02 7.5290419E-02 3.0680934E-02 3.0719521E-02 7.5290419E-02 7.5290419E-02 0.000000 2.361525 0.7923865 1.034472 1.060485 1.044150 7.5581491E-02 7.5581491E-02 7.5581491E-02 3.0839421E-02 3.0889519E-02 7.5581491E-02 7.5581491E-02 0.000000 2.343972 0.7836860 1.035179 1.056140 1.037008 7.5948767E-02 7.5948767E-02 7.5948767E-02 3.0995844E-02 3.1103173E-02 7.5948767E-02 7.5948767E-02 0.000000 2.325708 0.7867560 1.032413 1.051667 1.032560 7.6145865E-02 7.6145865E-02 7.6145865E-02 3.1150321E-02 3.1315185E-02 7.6145865E-02 7.6145865E-02 0.000000 2.313059 0.7864240 1.029517 1.047068 1.027995 7.6502196E-02 7.6502196E-02 7.6502196E-02 3.1262588E-02 3.1479914E-02 7.6502196E-02 7.6502196E-02 0.000000 2.288459 0.7859338 1.026498 1.042363 1.033100 7.6688692E-02 7.6688692E-02 7.6688692E-02 3.1373039E-02 3.1688835E-02 7.6688692E-02 7.6688692E-02 0.000000 2.275058 0.7854093 1.026697 1.037552 1.028188 7.7035211E-02 7.7035211E-02 7.7035211E-02 3.1522196E-02 3.1850487E-02 7.7035211E-02 7.7035211E-02 0.000000 2.255529 0.7847994 1.023450 1.032639 1.023178 7.7212177E-02 7.7212177E-02 7.7212177E-02 3.1669796E-02 3.2059692E-02 7.7212177E-02 7.7212177E-02 0.000000 2.235676 0.7874187 1.023435 1.027634 1.018064 7.7467270E-02 7.7467270E-02 7.7467270E-02 3.1777564E-02 3.2218490E-02 7.7467270E-02 7.7467270E-02 0.000000 2.221296 0.7833412 1.019980 1.030359 1.012865 7.7718221E-02 7.7718221E-02 7.7718221E-02 3.1881809E-02 3.2375973E-02 7.7718221E-02 7.7718221E-02 0.000000 2.206618 0.7858128 1.016432 1.029872 1.007581 7.7882528E-02 7.7882528E-02 7.7882528E-02 3.2025270E-02 3.2532204E-02 7.7882528E-02 7.7882528E-02 0.000000 2.185888 0.7849044 1.016133 1.024496 1.002212 7.8042977E-02 7.8042977E-02 7.8042977E-02 3.2086115E-02 3.2687239E-02 7.8042977E-02 7.8042977E-02 0.000000 2.170491 0.7839303 1.012413 1.021863 0.9967697 7.8365304E-02 7.8365304E-02 7.8365304E-02 3.2226998E-02 3.2841139E-02 7.8365304E-02 7.8365304E-02 0.000000 2.149237 0.7827982 1.011948 1.016331 0.9884406 7.8518622E-02 7.8518622E-02 7.8518622E-02 3.2325987E-02 3.2993946E-02 7.8518622E-02 7.8518622E-02 0.000000 2.133523 0.7816946 1.008064 1.010732 0.9856759 7.8668579E-02 7.8668579E-02 7.8668579E-02 3.2423794E-02 3.3145715E-02 7.8668579E-02 7.8668579E-02 0.000000 2.117585 0.7805339 1.004105 1.007887 0.9926400 7.8815304E-02 7.8815304E-02 7.8815304E-02 3.2520469E-02 3.3296488E-02 7.8815304E-02 7.8815304E-02 0.000000 2.101431 0.7793186 1.003418 1.002153 0.9896472 7.8958936E-02 7.8958936E-02 7.8958936E-02 3.2616064E-02 3.3446305E-02 7.8958936E-02 7.8958936E-02 0.000000 2.085074 0.7780513 1.004373 0.9963638 0.9809422 7.9099603E-02 7.9099603E-02 7.9099603E-02 3.2669783E-02 3.3548675E-02 7.9099603E-02 7.9099603E-02 0.000000 2.172332 0.3116685 0.3156378 0.2656637 0.2591277 1.5709138E-02 1.5709138E-02 1.5709138E-02 7.0826672E-03 8.3838189E-03 1.5709138E-02 1.5709138E-02 0.000000 1.038789 0.1677240 0.2703436 0.3451664 0.3630325 2.8711455E-02 2.8711455E-02 2.8711455E-02 1.2387827E-02 1.2172768E-02 2.8711455E-02 2.8711455E-02 0.000000 1.291768 0.2568512 0.4119816 0.5145248 0.5403048 3.6364917E-02 3.6364917E-02 3.6364917E-02 1.5300945E-02 1.4588846E-02 3.6364917E-02 3.6364917E-02 0.000000 1.559432 0.3330337 0.5240710 0.6385385 0.6666782 4.1814078E-02 4.1814078E-02 4.1814078E-02 1.7324943E-02 1.6354175E-02 4.1814078E-02 4.1814078E-02 0.000000 1.775046 0.3960721 0.6128882 0.7310632 0.7580901 4.5959275E-02 4.5959275E-02 4.5959275E-02 1.8894356E-02 1.7778780E-02 4.5959275E-02 4.5959275E-02 0.000000 1.953380 0.4493562 0.6838207 0.8009591 0.8287743 4.9374480E-02 4.9374480E-02 4.9374480E-02 2.0163398E-02 1.8979754E-02 4.9374480E-02 4.9374480E-02 0.000000 2.095734 0.4933295 0.7434081 0.8570756 0.8814746 5.2231688E-02 5.2231688E-02 5.2231688E-02 2.1243302E-02 2.0000769E-02 5.2231688E-02 5.2231688E-02 0.000000 2.210516 0.5309636 0.7908976 0.9003652 0.9237350 5.4622464E-02 5.4622464E-02 5.4622464E-02 2.2147959E-02 2.0918628E-02 5.4622464E-02 5.4622464E-02 0.000000 2.308055 0.5625264 0.8296860 0.9354482 0.9576758 5.6629613E-02 5.6629613E-02 5.6629613E-02 2.2948543E-02 2.1697976E-02 5.6629613E-02 5.6629613E-02 0.000000 2.359782 0.5911536 0.8632411 0.9641938 0.9838262 5.8495544E-02 5.8495544E-02 5.8495544E-02 2.3614842E-02 2.2461707E-02 5.8495544E-02 5.8495544E-02 0.000000 2.415883 0.6155826 0.8919193 0.9856033 1.005323 6.0074739E-02 6.0074739E-02 6.0074739E-02 2.4262723E-02 2.3088919E-02 6.0074739E-02 6.0074739E-02 0.000000 2.455476 0.6359330 0.9159762 1.005468 1.022478 6.1527900E-02 6.1527900E-02 6.1527900E-02 2.4820071E-02 2.3707168E-02 6.1527900E-02 6.1527900E-02 0.000000 2.490720 0.6553797 0.9355894 1.021274 1.030486 6.2865876E-02 6.2865876E-02 6.2865876E-02 2.5360724E-02 2.4270656E-02 6.2865876E-02 6.2865876E-02 0.000000 2.516778 0.6709506 0.9541366 1.030757 1.047081 6.4009480E-02 6.4009480E-02 6.4009480E-02 2.5814708E-02 2.4783067E-02 6.4009480E-02 6.4009480E-02 0.000000 2.533919 0.6858373 0.9685355 1.037023 1.053160 6.5121956E-02 6.5121956E-02 6.5121956E-02 2.6257515E-02 2.5287611E-02 6.5121956E-02 6.5121956E-02 0.000000 2.548534 0.7001410 0.9821310 1.051565 1.055663 6.6048287E-02 6.6048287E-02 6.6048287E-02 2.6655180E-02 2.5742469E-02 6.6048287E-02 6.6048287E-02 0.000000 2.554786 0.7107503 0.9917564 1.056058 1.069658 6.6951439E-02 6.6951439E-02 6.6951439E-02 2.7041478E-02 2.6149940E-02 6.6951439E-02 6.6951439E-02 0.000000 2.559242 0.7208819 1.000751 1.057165 1.070591 6.7830130E-02 6.7830130E-02 6.7830130E-02 2.7342455E-02 2.6550025E-02 6.7830130E-02 6.7830130E-02 0.000000 2.561881 0.7305954 1.009186 1.069819 1.068183 6.8528846E-02 6.8528846E-02 6.8528846E-02 2.7714612E-02 2.6946316E-02 6.8528846E-02 6.8528846E-02 0.000000 2.557160 0.7367097 1.013834 1.069658 1.073049 6.9292441E-02 6.9292441E-02 6.9292441E-02 2.8002510E-02 2.7336309E-02 6.9292441E-02 6.9292441E-02 0.000000 2.550494 0.7457080 1.021324 1.069075 1.077013 6.9957428E-02 6.9957428E-02 6.9957428E-02 2.8284751E-02 2.7678153E-02 6.9957428E-02 6.9957428E-02 0.000000 2.542910 0.7511575 1.025114 1.071814 1.073082 7.0526570E-02 7.0526570E-02 7.0526570E-02 2.8565217E-02 2.8015919E-02 7.0526570E-02 7.0526570E-02 0.000000 2.534132 0.7579552 1.028528 1.076217 1.071627 7.1162827E-02 7.1162827E-02 7.1162827E-02 2.8838007E-02 2.8305694E-02 7.1162827E-02 7.1162827E-02 0.000000 2.518506 0.7644977 1.031606 1.074383 1.067044 7.1786664E-02 7.1786664E-02 7.1786664E-02 2.9066917E-02 2.8591827E-02 7.1786664E-02 7.1786664E-02 0.000000 2.512954 0.7691719 1.034378 1.072262 1.074587 7.2236404E-02 7.2236404E-02 7.2236404E-02 2.9291779E-02 2.8874623E-02 7.2236404E-02 7.2236404E-02 0.000000 2.495352 0.7736290 1.036870 1.069881 1.069252 7.2675139E-02 7.2675139E-02 7.2675139E-02 2.9512918E-02 2.9155046E-02 7.2675139E-02 7.2675139E-02 0.000000 2.476914 0.7745976 1.035778 1.075754 1.066496 7.3185250E-02 7.3185250E-02 7.3185250E-02 2.9730622E-02 2.9432315E-02 7.3185250E-02 7.3185250E-02 0.000000 2.463478 0.7786657 1.037766 1.073946 1.060698 7.3686160E-02 7.3686160E-02 7.3686160E-02 2.9905699E-02 2.9706478E-02 7.3686160E-02 7.3686160E-02 0.000000 2.449327 0.7825642 1.036206 1.070722 1.057520 7.4096717E-02 7.4096717E-02 7.4096717E-02 3.0117622E-02 2.9933879E-02 7.4096717E-02 7.4096717E-02 0.000000 2.428347 0.7863068 1.037766 1.064477 1.055065 7.4417196E-02 7.4417196E-02 7.4417196E-02 3.0286349E-02 3.0157028E-02 7.4417196E-02 7.4417196E-02 0.000000 2.412879 0.7865937 1.039134 1.060885 1.057408 7.4729875E-02 7.4729875E-02 7.4729875E-02 3.0492513E-02 3.0425798E-02 7.4729875E-02 7.4729875E-02 0.000000 2.396838 0.7900459 1.036993 1.057129 1.053539 7.5117283E-02 7.5117283E-02 7.5117283E-02 3.0656107E-02 3.0601213E-02 7.5117283E-02 7.5117283E-02 0.000000 2.374482 0.7900578 1.034680 1.050405 1.046681 7.5497992E-02 7.5497992E-02 7.5497992E-02 3.0817345E-02 3.0864712E-02 7.5497992E-02 7.5497992E-02 0.000000 2.363183 0.7932647 1.035542 1.058837 1.042510 7.5790182E-02 7.5790182E-02 7.5790182E-02 3.0976374E-02 3.1035414E-02 7.5790182E-02 7.5790182E-02 0.000000 2.339858 0.7845973 1.032923 1.054506 1.038203 7.6076299E-02 7.6076299E-02 7.6076299E-02 3.1093003E-02 3.1249816E-02 7.6076299E-02 7.6076299E-02 0.000000 2.327380 0.7843727 1.030167 1.050043 1.030945 7.6439038E-02 7.6439038E-02 7.6439038E-02 3.1247940E-02 3.1462558E-02 7.6439038E-02 7.6439038E-02 0.000000 2.303173 0.7840464 1.030613 1.045459 1.023580 7.6631650E-02 7.6631650E-02 7.6631650E-02 3.1360622E-02 3.1627934E-02 7.6631650E-02 7.6631650E-02 0.000000 2.290148 0.7868654 1.027601 1.040766 1.031468 7.6983958E-02 7.6983958E-02 7.6983958E-02 3.1511907E-02 3.1837553E-02 7.6983958E-02 7.6983958E-02 0.000000 2.270967 0.7863474 1.024472 1.035965 1.026570 7.7166460E-02 7.7166460E-02 7.7166460E-02 3.1661533E-02 3.1999823E-02 7.7166460E-02 7.7166460E-02 0.000000 2.251446 0.7857437 1.024568 1.031064 1.021566 7.7344246E-02 7.7344246E-02 7.7344246E-02 3.1771235E-02 3.2209609E-02 7.7344246E-02 7.7344246E-02 0.000000 2.237380 0.7850590 1.021220 1.023258 1.013642 7.7682808E-02 7.7682808E-02 7.7682808E-02 3.1877331E-02 3.2368995E-02 7.7682808E-02 7.7682808E-02 0.000000 2.217223 0.7842975 1.021113 1.030747 1.011277 7.7851929E-02 7.7851929E-02 7.7851929E-02 3.2022566E-02 3.2527056E-02 7.7851929E-02 7.7851929E-02 0.000000 2.196769 0.7834631 1.017568 1.028290 1.003178 7.8016981E-02 7.8016981E-02 7.8016981E-02 3.2085113E-02 3.2683849E-02 7.8016981E-02 7.8016981E-02 0.000000 2.181824 0.7825559 1.013938 1.022923 1.000642 7.8343704E-02 7.8343704E-02 7.8343704E-02 3.2227628E-02 3.2839436E-02 7.8343704E-02 7.8343704E-02 0.000000 2.166429 0.7849037 1.010219 1.017472 0.9923932 7.8501254E-02 7.8501254E-02 7.8501254E-02 3.2328181E-02 3.2993872E-02 7.8501254E-02 7.8501254E-02 0.000000 2.150959 0.7837778 1.009759 1.014776 0.9897070 7.8655258E-02 7.8655258E-02 7.8655258E-02 3.2427490E-02 3.3147208E-02 7.8655258E-02 7.8655258E-02 0.000000 2.135247 0.7826760 1.005883 1.009186 0.9840290 7.8805879E-02 7.8805879E-02 7.8805879E-02 3.2525614E-02 3.3299495E-02 7.8805879E-02 7.8805879E-02 0.000000 2.119312 0.7815199 1.005271 1.003525 0.9882379 7.8953251E-02 7.8953251E-02 7.8953251E-02 3.2622598E-02 3.3450775E-02 7.8953251E-02 7.8953251E-02 0.000000 2.103160 0.7803092 1.002875 1.000624 0.9852523 7.9097509E-02 7.9097509E-02 7.9097509E-02 3.2718491E-02 3.3554554E-02 7.9097509E-02 7.9097509E-02 0.000000 2.086805 0.7790461 0.9989868 0.9948436 0.9822026 7.9238787E-02 7.9238787E-02 7.9238787E-02 3.2813337E-02 3.3703893E-02 7.9238787E-02 7.9238787E-02 0.000000 2.172355 0.3114876 0.3156803 0.2655144 0.2591754 1.5709857E-02 1.5709857E-02 1.5709857E-02 7.0831305E-03 8.3841728E-03 1.5709857E-02 1.5709857E-02 0.000000 1.039057 0.1678386 0.2704960 0.3453423 0.3632122 2.8785845E-02 2.8785845E-02 2.8785845E-02 1.2425694E-02 1.2210689E-02 2.8785845E-02 2.8785845E-02 0.000000 1.292161 0.2570502 0.4122362 0.5158495 0.5405990 3.6457516E-02 3.6457516E-02 3.6457516E-02 1.5347458E-02 1.4599066E-02 3.6457516E-02 3.6457516E-02 0.000000 1.559948 0.3344218 0.5256485 0.6400703 0.6670598 4.1920412E-02 4.1920412E-02 4.1920412E-02 1.7377751E-02 1.6405057E-02 4.1920412E-02 4.1920412E-02 0.000000 1.775666 0.3976323 0.6146367 0.7315106 0.7597886 4.6148166E-02 4.6148166E-02 4.6148166E-02 1.8952081E-02 1.7834341E-02 4.6148166E-02 4.6148166E-02 0.000000 1.954090 0.4497382 0.6856995 0.8027409 0.8305770 4.9500935E-02 4.9500935E-02 4.9500935E-02 2.0260697E-02 1.9039292E-02 4.9500935E-02 4.9500935E-02 0.000000 2.096522 0.4937528 0.7439214 0.8576320 0.8833587 5.2365988E-02 5.2365988E-02 5.2365988E-02 2.1308377E-02 2.0063765E-02 5.2365988E-02 5.2365988E-02 0.000000 2.211370 0.5314249 0.7914538 0.9023015 0.9243402 5.4763358E-02 5.4763358E-02 5.4763358E-02 2.2215979E-02 2.0984678E-02 5.4763358E-02 5.4763358E-02 0.000000 2.311699 0.5630211 0.8302806 0.9360907 0.9583212 5.6852855E-02 5.6852855E-02 5.6852855E-02 2.3019081E-02 2.1806225E-02 5.6852855E-02 5.6852855E-02 0.000000 2.360777 0.5916789 0.8638706 0.9648728 0.9845076 5.8647580E-02 5.8647580E-02 5.8647580E-02 2.3724997E-02 2.2532923E-02 5.8647580E-02 5.8647580E-02 0.000000 2.416935 0.6161354 0.8925812 0.9876920 1.006037 6.0231414E-02 6.0231414E-02 6.0231414E-02 2.4373963E-02 2.3203809E-02 6.0231414E-02 6.0231414E-02 0.000000 2.456580 0.6365103 0.9166675 1.006210 1.023222 6.1766852E-02 6.1766852E-02 6.1766852E-02 2.4895763E-02 2.3824444E-02 6.1766852E-02 6.1766852E-02 0.000000 2.491869 0.6559802 0.9363078 1.022044 1.031314 6.3030772E-02 6.3030772E-02 6.3030772E-02 2.5438035E-02 2.4390135E-02 6.3030772E-02 6.3030772E-02 0.000000 2.517970 0.6715717 0.9548807 1.028837 1.047925 6.4256832E-02 6.4256832E-02 6.4256832E-02 2.5894331E-02 2.4904562E-02 6.4256832E-02 6.4256832E-02 0.000000 2.535149 0.6864782 0.9693047 1.040704 1.054036 6.5293580E-02 6.5293580E-02 6.5293580E-02 2.6338505E-02 2.5368268E-02 6.5293580E-02 6.5293580E-02 0.000000 2.549801 0.7008006 0.9829214 1.052462 1.056571 6.6304751E-02 6.6304751E-02 6.6304751E-02 2.6776118E-02 2.5869278E-02 6.6304751E-02 6.6304751E-02 0.000000 2.556085 0.7114264 0.9925678 1.054190 1.067764 6.7208387E-02 6.7208387E-02 6.7208387E-02 2.7124844E-02 2.6276900E-02 6.7208387E-02 6.7208387E-02 0.000000 2.560573 0.7215753 1.001583 1.060511 1.068724 6.8009861E-02 6.8009861E-02 6.8009861E-02 2.7465874E-02 2.6680104E-02 6.8009861E-02 6.8009861E-02 0.000000 2.557505 0.7313023 1.010037 1.070777 1.069152 6.8791188E-02 6.8791188E-02 6.8791188E-02 2.7800068E-02 2.7076229E-02 6.8791188E-02 6.8791188E-02 0.000000 2.558549 0.7390460 1.014702 1.070641 1.078707 6.9477029E-02 6.9477029E-02 6.9477029E-02 2.8128156E-02 2.7467636E-02 6.9477029E-02 6.9477029E-02 0.000000 2.551905 0.7464423 1.022213 1.070082 1.078005 7.0144124E-02 7.0144124E-02 7.0144124E-02 2.8411387E-02 2.7766736E-02 7.0144124E-02 7.0144124E-02 0.000000 2.544344 0.7519037 1.026014 1.078740 1.074096 7.0796162E-02 7.0796162E-02 7.0796162E-02 2.8692938E-02 2.8105583E-02 7.0796162E-02 7.0796162E-02 0.000000 2.529828 0.7603452 1.029444 1.077243 1.069844 7.1434505E-02 7.1434505E-02 7.1434505E-02 2.8927037E-02 2.8440701E-02 7.1434505E-02 7.1434505E-02 0.000000 2.519983 0.7652678 1.032536 1.075429 1.065280 7.1897805E-02 7.1897805E-02 7.1897805E-02 2.9156689E-02 2.8727928E-02 7.1897805E-02 7.1897805E-02 0.000000 2.508676 0.7699525 1.035325 1.073328 1.075636 7.2511837E-02 7.2511837E-02 7.2511837E-02 2.9422017E-02 2.9011782E-02 7.2511837E-02 7.2511837E-02 0.000000 2.496862 0.7744197 1.034504 1.068149 1.070318 7.2952256E-02 7.2952256E-02 7.2952256E-02 2.9604081E-02 2.9291799E-02 7.2952256E-02 7.2952256E-02 0.000000 2.478440 0.7753969 1.036747 1.075211 1.064754 7.3382415E-02 7.3382415E-02 7.3382415E-02 2.9823955E-02 2.9571410E-02 7.3382415E-02 7.3382415E-02 0.000000 2.459243 0.7794742 1.038747 1.072212 1.058975 7.3803082E-02 7.3803082E-02 7.3803082E-02 3.0036407E-02 2.9848034E-02 7.3803082E-02 7.3803082E-02 0.000000 2.445107 0.7833844 1.037199 1.069003 1.055814 7.4214913E-02 7.4214913E-02 7.4214913E-02 3.0210659E-02 3.0074475E-02 7.4214913E-02 7.4214913E-02 0.000000 2.429912 0.7871321 1.038769 1.065599 1.062212 7.4618518E-02 7.4618518E-02 7.4618518E-02 3.0379940E-02 3.0301532E-02 7.4618518E-02 7.4618518E-02 0.000000 2.408676 0.7874259 1.036818 1.059200 1.055695 7.5014442E-02 7.5014442E-02 7.5014442E-02 3.0546524E-02 3.0569209E-02 7.5014442E-02 7.5014442E-02 0.000000 2.392646 0.7908895 1.038016 1.055461 1.051839 7.5403169E-02 7.5403169E-02 7.5403169E-02 3.0710580E-02 3.0744715E-02 7.5403169E-02 7.5403169E-02 0.000000 2.376080 0.7909078 1.035710 1.057349 1.047825 7.5620778E-02 7.5620778E-02 7.5620778E-02 3.0872265E-02 3.1009050E-02 7.5620778E-02 7.5620778E-02 0.000000 2.353230 0.7941186 1.033249 1.057158 1.040838 7.5996250E-02 7.5996250E-02 7.5996250E-02 3.1031726E-02 3.1180447E-02 7.5996250E-02 7.5996250E-02 0.000000 2.341474 0.7854838 1.030639 1.052839 1.033719 7.6283425E-02 7.6283425E-02 7.6283425E-02 3.1189092E-02 3.1395584E-02 7.6283425E-02 7.6283425E-02 0.000000 2.323220 0.7852663 1.031224 1.048389 1.029301 7.6564834E-02 7.6564834E-02 7.6564834E-02 3.1344477E-02 3.1609043E-02 7.6564834E-02 7.6564834E-02 0.000000 2.304801 0.7849469 1.028344 1.043818 1.025077 7.6840788E-02 7.6840788E-02 7.6840788E-02 3.1498000E-02 3.1775065E-02 7.6840788E-02 7.6840788E-02 0.000000 2.285999 0.7877716 1.028674 1.039137 1.029808 7.7111579E-02 7.7111579E-02 7.7111579E-02 3.1649753E-02 3.1939436E-02 7.7111579E-02 7.7111579E-02 0.000000 2.266826 0.7872600 1.025552 1.034349 1.024920 7.7294916E-02 7.7294916E-02 7.7294916E-02 3.1718813E-02 3.2151245E-02 7.7294916E-02 7.7294916E-02 0.000000 2.253093 0.7866624 1.022314 1.026642 1.019923 7.7638745E-02 7.7638745E-02 7.7638745E-02 3.1869520E-02 3.2312553E-02 7.7638745E-02 7.7638745E-02 0.000000 2.227469 0.7859836 1.018974 1.024483 1.014835 7.7812910E-02 7.7812910E-02 7.7812910E-02 3.2016613E-02 3.2518573E-02 7.7812910E-02 7.7812910E-02 0.000000 2.213095 0.7852278 1.018872 1.031951 1.006834 7.7982791E-02 7.7982791E-02 7.7982791E-02 3.2080941E-02 3.2677196E-02 7.7982791E-02 7.7982791E-02 0.000000 2.198429 0.7843989 1.015335 1.026675 1.004390 7.8231342E-02 7.8231342E-02 7.8231342E-02 3.2225158E-02 3.2834545E-02 7.8231342E-02 7.8231342E-02 0.000000 2.177707 0.7835007 1.015048 1.021314 0.9962217 7.8476079E-02 7.8476079E-02 7.8476079E-02 3.2327343E-02 3.2990675E-02 7.8476079E-02 7.8476079E-02 0.000000 2.162313 0.7824417 1.011335 1.018700 0.9908013 7.8634314E-02 7.8634314E-02 7.8634314E-02 3.2428220E-02 3.3145640E-02 7.8634314E-02 7.8634314E-02 0.000000 2.141062 0.7814072 1.007541 1.010365 0.9853097 7.8788996E-02 7.8788996E-02 7.8788996E-02 3.2527849E-02 3.3299498E-02 7.8788996E-02 7.8788996E-02 0.000000 2.125354 0.7803127 1.003667 1.007606 0.9923660 7.8940265E-02 7.8940265E-02 7.8940265E-02 3.2626282E-02 3.3452295E-02 7.8940265E-02 7.8940265E-02 0.000000 2.109421 0.7791607 1.003060 1.001954 0.9894532 7.9088271E-02 7.9088271E-02 7.9088271E-02 3.2723568E-02 3.3604074E-02 7.9088271E-02 7.9088271E-02 0.000000 2.093273 0.7812731 1.004074 0.9962427 0.9808249 7.9233147E-02 7.9233147E-02 7.9233147E-02 3.2819759E-02 3.3708289E-02 7.9233147E-02 7.9233147E-02 0.000000 2.076921 0.7766948 1.000195 0.9932894 0.9777809 7.9375029E-02 7.9375029E-02 7.9375029E-02 3.2876164E-02 3.3858109E-02 7.9375029E-02 7.9375029E-02 0.000000 2.172377 0.3115275 0.3154955 0.2655597 0.2590268 1.5710553E-02 1.5710553E-02 1.5710553E-02 7.0835799E-03 8.3845165E-03 1.5710553E-02 1.5710553E-02 0.000000 1.039317 0.1679497 0.2706437 0.3455126 0.3633863 2.8799538E-02 2.8799538E-02 2.8799538E-02 1.2433525E-02 1.2215965E-02 2.8799538E-02 2.8799538E-02 0.000000 1.292542 0.2581967 0.4124830 0.5161301 0.5408842 3.6549523E-02 3.6549523E-02 3.6549523E-02 1.5393700E-02 1.4644055E-02 3.6549523E-02 3.6549523E-02 0.000000 1.560448 0.3346840 0.5259767 0.6404361 0.6674297 4.2025927E-02 4.2025927E-02 4.2025927E-02 1.7464053E-02 1.6455684E-02 4.2025927E-02 4.2025927E-02 0.000000 1.776266 0.3979522 0.6150311 0.7331726 0.7614750 4.6264607E-02 4.6264607E-02 4.6264607E-02 1.9044248E-02 1.7889585E-02 4.6264607E-02 4.6264607E-02 0.000000 1.954778 0.4501068 0.6861494 0.8032325 0.8310722 4.9699411E-02 4.9699411E-02 4.9699411E-02 2.0321943E-02 1.9098461E-02 4.9699411E-02 4.9699411E-02 0.000000 2.097285 0.4955379 0.7444192 0.8581747 0.8852275 5.2499000E-02 5.2499000E-02 5.2499000E-02 2.1372905E-02 2.0165846E-02 5.2499000E-02 5.2499000E-02 0.000000 2.212197 0.5332936 0.7919936 0.9028867 0.9262744 5.4902844E-02 5.4902844E-02 5.4902844E-02 2.2320149E-02 2.1050269E-02 5.4902844E-02 5.4902844E-02 0.000000 2.312585 0.5649592 0.8323912 0.9367145 0.9589478 5.6998316E-02 5.6998316E-02 5.6998316E-02 2.3088990E-02 2.1875739E-02 5.6998316E-02 5.6998316E-02 0.000000 2.361742 0.5921889 0.8660383 0.9655322 0.9851694 5.8875054E-02 5.8875054E-02 5.8875054E-02 2.3797093E-02 2.2603611E-02 5.8875054E-02 5.8875054E-02 0.000000 2.417955 0.6166745 0.8932238 0.9897612 1.006731 6.0464036E-02 6.0464036E-02 6.0464036E-02 2.4449406E-02 2.3318252E-02 6.0464036E-02 6.0464036E-02 0.000000 2.457648 0.6386032 0.9173388 1.006932 1.023948 6.1928350E-02 6.1928350E-02 6.1928350E-02 2.5007764E-02 2.3899328E-02 6.1928350E-02 6.1928350E-02 0.000000 2.492983 0.6565635 0.9386107 1.022793 1.032119 6.3193850E-02 6.3193850E-02 6.3193850E-02 2.5516808E-02 2.4466867E-02 6.3193850E-02 6.3193850E-02 0.000000 2.519126 0.6737390 0.9556035 1.029669 1.048745 6.4423390E-02 6.4423390E-02 6.4423390E-02 2.6011642E-02 2.5025530E-02 6.4423390E-02 6.4423390E-02 0.000000 2.536342 0.6871008 0.9700507 1.048098 1.054888 6.5463282E-02 6.5463282E-02 6.5463282E-02 2.6457347E-02 2.5491057E-02 6.5463282E-02 6.5463282E-02 0.000000 2.551031 0.7014415 0.9836894 1.053334 1.057455 6.6477217E-02 6.6477217E-02 6.6477217E-02 2.6857536E-02 2.5950927E-02 6.6477217E-02 6.6477217E-02 0.000000 2.557344 0.7120833 0.9933580 1.055092 1.068654 6.7383558E-02 6.7383558E-02 6.7383558E-02 2.7207384E-02 2.6403271E-02 6.7383558E-02 6.7383558E-02 0.000000 2.561863 0.7222466 1.002391 1.066429 1.069640 6.8187520E-02 6.8187520E-02 6.8187520E-02 2.7588530E-02 2.6807934E-02 6.8187520E-02 6.8187520E-02 0.000000 2.558825 0.7319896 1.010864 1.068900 1.070095 6.8971202E-02 6.8971202E-02 6.8971202E-02 2.7884666E-02 2.7205514E-02 6.8971202E-02 6.8971202E-02 0.000000 2.559487 0.7413639 1.015545 1.068787 1.076830 6.9740109E-02 6.9740109E-02 6.9740109E-02 2.8213704E-02 2.7554384E-02 6.9740109E-02 6.9740109E-02 0.000000 2.553273 0.7471560 1.023072 1.068253 1.076150 7.0409469E-02 7.0409469E-02 7.0409469E-02 2.8501073E-02 2.7898630E-02 7.0409469E-02 7.0409469E-02 0.000000 2.539978 0.7526329 1.026889 1.076898 1.075083 7.0982650E-02 7.0982650E-02 7.0982650E-02 2.8780289E-02 2.8238708E-02 7.0982650E-02 7.0982650E-02 0.000000 2.531240 0.7610833 1.030334 1.078242 1.070851 7.1541712E-02 7.1541712E-02 7.1541712E-02 2.9015152E-02 2.8575012E-02 7.1541712E-02 7.1541712E-02 0.000000 2.521416 0.7660167 1.033443 1.073627 1.067367 7.2169170E-02 7.2169170E-02 7.2169170E-02 2.9285243E-02 2.8863320E-02 7.2169170E-02 7.2169170E-02 0.000000 2.504353 0.7707117 1.036243 1.071546 1.073828 7.2622173E-02 7.2622173E-02 7.2622173E-02 2.9511591E-02 2.9148970E-02 7.2622173E-02 7.2622173E-02 0.000000 2.492554 0.7719036 1.035437 1.069205 1.068528 7.3064022E-02 7.3064022E-02 7.3064022E-02 2.9734157E-02 2.9431026E-02 7.3064022E-02 7.3064022E-02 0.000000 2.479920 0.7761741 1.037689 1.076259 1.065807 7.3577218E-02 7.3577218E-02 7.3577218E-02 2.9913684E-02 2.9709755E-02 7.3577218E-02 7.3577218E-02 0.000000 2.460740 0.7802604 1.036376 1.073274 1.060044 7.4081086E-02 7.4081086E-02 7.4081086E-02 3.0129977E-02 2.9985998E-02 7.4081086E-02 7.4081086E-02 0.000000 2.440837 0.7841789 1.038164 1.067252 1.054079 7.4412487E-02 7.4412487E-02 7.4412487E-02 3.0342784E-02 3.0215379E-02 7.4412487E-02 7.4412487E-02 0.000000 2.431430 0.7879348 1.036416 1.063868 1.060455 7.4735425E-02 7.4735425E-02 7.4735425E-02 3.0512664E-02 3.0441174E-02 7.4735425E-02 7.4735425E-02 0.000000 2.410205 0.7882355 1.037803 1.060307 1.056781 7.5132512E-02 7.5132512E-02 7.5132512E-02 3.0679826E-02 3.0711176E-02 7.5132512E-02 7.5132512E-02 0.000000 2.388406 0.7917070 1.035675 1.053763 1.050107 7.5522363E-02 7.5522363E-02 7.5522363E-02 3.0844441E-02 3.0887406E-02 7.5522363E-02 7.5522363E-02 0.000000 2.371849 0.7917316 1.036718 1.062446 1.043280 7.5905427E-02 7.5905427E-02 7.5905427E-02 3.1006668E-02 3.1152569E-02 7.5905427E-02 7.5905427E-02 0.000000 2.354788 0.7831485 1.034265 1.055448 1.039137 7.6117501E-02 7.6117501E-02 7.6117501E-02 3.1166652E-02 3.1324651E-02 7.6117501E-02 7.6117501E-02 0.000000 2.331481 0.7863466 1.031660 1.053969 1.034856 7.6488011E-02 7.6488011E-02 7.6488011E-02 3.1324521E-02 3.1540513E-02 7.6488011E-02 7.6488011E-02 0.000000 2.319007 0.7861360 1.028918 1.046701 1.027627 7.6687999E-02 7.6687999E-02 7.6687999E-02 3.1480402E-02 3.1754684E-02 7.6687999E-02 7.6687999E-02 0.000000 2.300599 0.7857612 1.029380 1.042145 1.032888 7.7047348E-02 7.7047348E-02 7.7047348E-02 3.1593934E-02 3.1921335E-02 7.7047348E-02 7.7047348E-02 0.000000 2.281803 0.7853457 1.026381 1.037477 1.028116 7.7236533E-02 7.7236533E-02 7.7236533E-02 3.1705603E-02 3.2089353E-02 7.7236533E-02 7.7236533E-02 0.000000 2.268418 0.7848391 1.023265 1.032700 1.023238 7.7585891E-02 7.7585891E-02 7.7585891E-02 3.1858332E-02 3.2298710E-02 7.7585891E-02 7.7585891E-02 0.000000 2.243127 0.7875566 1.023374 1.027825 1.018251 7.7765368E-02 7.7765368E-02 7.7765368E-02 3.2007370E-02 3.2460604E-02 7.7765368E-02 7.7765368E-02 0.000000 2.229070 0.7835726 1.020039 1.032649 1.010350 7.7940308E-02 7.7940308E-02 7.7940308E-02 3.2073561E-02 3.2667253E-02 7.7940308E-02 7.7940308E-02 0.000000 2.208922 0.7861333 1.016601 1.027467 1.008003 7.8110926E-02 7.8110926E-02 7.8110926E-02 3.2219559E-02 3.2826435E-02 7.8110926E-02 7.8110926E-02 0.000000 2.188478 0.7819934 1.013072 1.025028 0.9999234 7.8443028E-02 7.8443028E-02 7.8443028E-02 3.2323450E-02 3.2984331E-02 7.8443028E-02 7.8443028E-02 0.000000 2.173360 0.7844169 1.012790 1.019674 0.9945884 7.8605689E-02 7.8605689E-02 7.8605689E-02 3.2425966E-02 3.3140995E-02 7.8605689E-02 7.8605689E-02 0.000000 2.158147 0.7833645 1.009081 1.014246 0.9891777 7.8764610E-02 7.8764610E-02 7.8764610E-02 3.2527164E-02 3.3296485E-02 7.8764610E-02 7.8764610E-02 0.000000 2.142680 0.7823315 1.008631 1.011566 0.9836959 7.8919947E-02 7.8919947E-02 7.8919947E-02 3.2627106E-02 3.3450857E-02 7.8919947E-02 7.8919947E-02 0.000000 2.126975 0.7812415 1.004764 1.003169 0.9907172 7.9071857E-02 7.9071857E-02 7.9071857E-02 3.2725845E-02 3.3604153E-02 7.9071857E-02 7.9071857E-02 0.000000 2.111049 0.7800940 1.002424 1.000350 0.9849859 7.9220481E-02 7.9220481E-02 7.9220481E-02 3.2823429E-02 3.3709832E-02 7.9220481E-02 7.9220481E-02 0.000000 2.094901 0.7788916 0.9986154 0.9946478 0.9820128 7.9365969E-02 7.9365969E-02 7.9365969E-02 3.2922011E-02 3.3861067E-02 7.9365969E-02 7.9365969E-02 0.000000 2.078548 0.7776366 0.9947441 0.9888868 0.9761525 7.9674542E-02 7.9674542E-02 7.9674542E-02 3.3017319E-02 3.3968106E-02 7.9674542E-02 7.9674542E-02 0.000000 + 1.359098 3.126073 3.758258 4.270298 4.574834 0.6206647 0.6206647 0.6206647 0.3313197 0.3868467 0.6206647 0.6206647 0.000000 15.33334 14.01824 13.43445 10.89046 11.01383 0.6229802 0.6229802 0.6229802 0.3323244 0.3894241 0.6229802 0.6229802 0.000000 20.49780 15.21951 14.22736 11.36914 11.44528 0.6239660 0.6239660 0.6239660 0.3326345 0.3898696 0.6239660 0.6239660 0.000000 21.55775 15.55243 14.50383 11.56302 11.62531 0.6245177 0.6245177 0.6245177 0.3328156 0.3900875 0.6245177 0.6245177 0.000000 22.06276 15.71469 14.65466 11.67522 11.72960 0.6250263 0.6250263 0.6250263 0.3329900 0.3902673 0.6250263 0.6250263 0.000000 22.38154 15.82053 14.75577 11.74991 11.80049 0.6254168 0.6254168 0.6254168 0.3330927 0.3903850 0.6254168 0.6254168 7.5632118E+28 22.60497 15.89335 14.82639 11.80822 11.85538 0.6256513 0.6256513 0.6256513 0.3332015 0.3905272 0.6256513 0.6256513 7.7767882E+31 22.77845 15.94668 14.88368 11.85457 11.89859 0.6259918 0.6259918 0.6259918 0.3332742 0.3906389 0.6259918 0.6259918 3.0439684E+32 22.92249 15.98970 14.92889 11.89045 11.93428 0.6262443 0.6262443 0.6262443 0.3333741 0.3907273 0.6262443 0.6262443 2.0619763E-19 23.04094 16.02518 14.96528 11.92136 11.96501 0.6264269 0.6264269 0.6264269 0.3334517 0.3907972 0.6264269 0.6264269 5.1444947E+22 23.14001 16.05493 14.99847 11.94898 11.98989 0.6266621 0.6266621 0.6266621 0.3335110 0.3908519 0.6266621 0.6266621 5.3720872E+13 23.23376 16.08019 15.02630 11.97446 12.01271 0.6268495 0.6268495 0.6268495 0.3336100 0.3908941 0.6268495 0.6268495 1.7121419E+29 23.31026 16.10577 15.04985 11.99607 12.03426 0.6271058 0.6271058 0.6271058 0.3336411 0.3909917 0.6271058 0.6271058 1.3563156E-19 23.38151 16.12444 15.07322 12.01452 12.05268 0.6272177 0.6272177 0.6272177 0.3337158 0.3910137 0.6272177 0.6272177 2.7557773E+23 23.44903 16.14449 15.09360 12.03281 12.07091 0.6274086 0.6274086 0.6274086 0.3337807 0.3910940 0.6274086 0.6274086 1.7566334E+28 23.50472 16.15864 15.11147 12.04884 12.08689 0.6275726 0.6275726 0.6275726 0.3338094 0.3911009 0.6275726 0.6275726 1.5097470E-19 23.56352 16.17475 15.12719 12.06292 12.10095 0.6277127 0.6277127 0.6277127 0.3338853 0.3911676 0.6277127 0.6277127 1.3563156E-19 23.61242 16.18928 15.14422 12.07533 12.11336 0.6278316 0.6278316 0.6278316 0.3339269 0.3912287 0.6278316 0.6278316 1.4246445E-19 23.65674 16.19883 15.15648 12.08867 12.12664 0.6280403 0.6280403 0.6280403 0.3339622 0.3912846 0.6280403 0.6280403 9.6831590E+11 23.70147 16.21082 15.17041 12.10068 12.13863 0.6281226 0.6281226 0.6281226 0.3339918 0.3912698 0.6281226 0.6281226 1.3563156E-19 23.74258 16.22175 15.18306 12.11154 12.14946 0.6282979 0.6282979 0.6282979 0.3340163 0.3913168 0.6282979 0.6282979 2.0140434E-09 23.78483 16.23173 15.19456 12.12367 12.15927 0.6283499 0.6283499 0.6283499 0.3340908 0.3913599 0.6283499 0.6283499 1.9516647E-19 23.82413 16.24087 15.20505 12.13255 12.17040 0.6284974 0.6284974 0.6284974 0.3341061 0.3913994 0.6284974 0.6284974 2.7206824E+23 23.85650 16.25270 15.21759 12.14288 12.17846 0.6286325 0.6286325 0.6286325 0.3341722 0.3914357 0.6286325 0.6286325 1.3563156E-19 23.89081 16.26037 15.22631 12.15242 12.18799 0.6287563 0.6287563 0.6287563 0.3341797 0.3914688 0.6287563 0.6287563 0.000000 23.92295 16.26742 15.23721 12.16126 12.19681 0.6288694 0.6288694 0.6288694 0.3342385 0.3914991 0.6288694 0.6288694 0.000000 23.95730 16.27728 15.24448 12.16945 12.20499 0.6289726 0.6289726 0.6289726 0.3342394 0.3915267 0.6289726 0.6289726 0.000000 23.98148 16.28323 15.25402 12.17706 12.21260 0.6290667 0.6290667 0.6290667 0.3342919 0.3915518 0.6290667 0.6290667 0.000000 24.01233 16.28871 15.26295 12.18412 12.21966 0.6291522 0.6291522 0.6291522 0.3343415 0.3915746 0.6291522 0.6291522 0.000000 24.04162 16.29706 15.27133 12.19288 12.22837 0.6292295 0.6292295 0.6292295 0.3343338 0.3915951 0.6292295 0.6292295 0.000000 24.06537 16.30169 15.27920 12.19897 12.23448 0.6292992 0.6292992 0.6292992 0.3343782 0.3916796 0.6292992 0.6292992 0.000000 24.08782 16.30922 15.28659 12.20681 12.24229 0.6294701 0.6294701 0.6294701 0.3344202 0.3916962 0.6294701 0.6294701 0.000000 24.11312 16.31637 15.29354 12.21208 12.24758 0.6295258 0.6295258 0.6295258 0.3344600 0.3917108 0.6295258 0.6295258 0.000000 24.13727 16.31993 15.30008 12.21912 12.25460 0.6295752 0.6295752 0.6295752 0.3344976 0.3917237 0.6295752 0.6295752 0.000000 24.16033 16.32642 15.30624 12.22581 12.26126 0.6297266 0.6297266 0.6297266 0.3344786 0.3917349 0.6297266 0.6297266 0.000000 24.18239 16.33260 15.31205 12.23003 12.26759 0.6297642 0.6297642 0.6297642 0.3345123 0.3917446 0.6297642 0.6297642 0.000000 24.20351 16.33532 15.31752 12.23607 12.27361 0.6299043 0.6299043 0.6299043 0.3345442 0.3918187 0.6299043 0.6299043 0.000000 24.22770 16.34096 15.32269 12.24181 12.27933 0.6299311 0.6299311 0.6299311 0.3345742 0.3918254 0.6299311 0.6299311 0.000000 24.24708 16.34634 15.33028 12.24728 12.28478 0.6300609 0.6300609 0.6300609 0.3346026 0.3918307 0.6300609 0.6300609 0.000000 24.26961 16.35149 15.33486 12.25248 12.28997 0.6300781 0.6300781 0.6300781 0.3346294 0.3918347 0.6300781 0.6300781 0.000000 24.28745 16.35642 15.34189 12.25953 12.29492 0.6301985 0.6301985 0.6301985 0.3346547 0.3919034 0.6301985 0.6301985 0.000000 24.30460 16.36113 15.34596 12.26424 12.29963 0.6302068 0.6302068 0.6302068 0.3346786 0.3919049 0.6302068 0.6302068 0.000000 24.32110 16.36255 15.34979 12.26873 12.30413 0.6303188 0.6303188 0.6303188 0.3347010 0.3919052 0.6303188 0.6303188 0.000000 24.34471 16.36688 15.35608 12.27301 12.30842 0.6304266 0.6304266 0.6304266 0.3347221 0.3919705 0.6304266 0.6304266 0.000000 24.35996 16.37103 15.36215 12.27916 12.31452 0.6304231 0.6304231 0.6304231 0.3347419 0.3919687 0.6304231 0.6304231 0.000000 24.37465 16.37502 15.36534 12.28305 12.31842 0.6305234 0.6305234 0.6305234 0.3347604 0.3919658 0.6305234 0.6305234 0.000000 24.39648 16.37884 15.37100 12.28676 12.32414 0.6306202 0.6306202 0.6306202 0.3347778 0.3920279 0.6306202 0.6306202 0.000000 24.41011 16.38251 15.37645 12.29234 12.32769 0.6307136 0.6307136 0.6307136 0.3348484 0.3920231 0.6307136 0.6307136 0.000000 24.42325 16.38602 15.37910 12.29571 12.33107 0.6306962 0.6306962 0.6306962 0.3348635 0.3920175 0.6306962 0.6306962 0.000000 24.44354 16.38940 15.38421 12.30095 12.33629 0.6307831 0.6307831 0.6307831 0.3348775 0.3920768 0.6307831 0.6307831 0.000000 1.466071 3.624801 4.304134 4.915641 5.258056 0.6225852 0.6225852 0.6225852 0.3319975 0.3885281 0.6225852 0.6225852 0.000000 18.66890 15.19548 14.18806 11.38931 11.46535 0.6250148 0.6250148 0.6250148 0.3330217 0.3903700 0.6250148 0.6250148 0.000000 21.61298 15.78016 14.70200 11.74054 11.79124 0.6262805 0.6262805 0.6262805 0.3334679 0.3907914 0.6262805 0.6262805 0.000000 22.39489 15.97244 14.90153 11.89047 11.93427 0.6272212 0.6272212 0.6272212 0.3337698 0.3910656 0.6272212 0.6272212 0.000000 22.81858 16.07956 15.01281 11.98017 12.02095 0.6279545 0.6279545 0.6279545 0.3339756 0.3913036 0.6279545 0.6279545 0.000000 23.10594 16.14955 15.09067 12.04493 12.08303 0.6285149 0.6285149 0.6285149 0.3341655 0.3914388 0.6285149 0.6285149 0.000000 23.31831 16.19798 15.14899 12.09659 12.13452 0.6290274 0.6290274 0.6290274 0.3343243 0.3915699 0.6290274 0.6290274 0.000000 23.49261 16.23958 15.19640 12.13773 12.17329 0.6294554 0.6294554 0.6294554 0.3344751 0.3917154 0.6294554 0.6294554 0.000000 23.63903 16.27124 15.23473 12.17041 12.20597 0.6298444 0.6298444 0.6298444 0.3346322 0.3918213 0.6298444 0.6298444 0.000000 23.75817 16.29902 15.26710 12.19960 12.23726 0.6302246 0.6302246 0.6302246 0.3347510 0.3919614 0.6302246 0.6302246 0.000000 23.86518 16.32446 15.29550 12.22697 12.26243 0.6306178 0.6306178 0.6306178 0.3348386 0.3920756 0.6306178 0.6306178 0.000000 23.96412 16.34230 15.32129 12.24943 12.28694 0.6309322 0.6309322 0.6309322 0.3349545 0.3921681 0.6309322 0.6309322 0.000000 24.04963 16.36292 15.34273 12.27006 12.30751 0.6312872 0.6312872 0.6312872 0.3350483 0.3922421 0.6312872 0.6312872 0.000000 24.13228 16.37751 15.36328 12.29154 12.32688 0.6314782 0.6314782 0.6314782 0.3351773 0.3923003 0.6314782 0.6314782 0.000000 24.20562 16.39274 15.38346 12.30820 12.34355 0.6318337 0.6318337 0.6318337 0.3352355 0.3924104 0.6318337 0.6318337 0.000000 24.27114 16.40887 15.40107 12.32457 12.35989 0.6320389 0.6320389 0.6320389 0.3353333 0.3924425 0.6320389 0.6320389 0.000000 24.33000 16.42024 15.41649 12.34091 12.37619 0.6323125 0.6323125 0.6323125 0.3354182 0.3925294 0.6323125 0.6323125 0.000000 24.39080 16.43301 15.43256 12.35354 12.39076 0.6325518 0.6325518 0.6325518 0.3354915 0.3926066 0.6325518 0.6325518 0.000000 24.44647 16.44441 15.44446 12.36856 12.40571 0.6327605 0.6327605 0.6327605 0.3355545 0.3926750 0.6327605 0.6327605 0.000000 24.49765 16.45181 15.45742 12.38029 12.41743 0.6329415 0.6329415 0.6329415 0.3356081 0.3927354 0.6329415 0.6329415 0.000000 24.54486 16.46380 15.47154 12.39275 12.42986 0.6332035 0.6332035 0.6332035 0.3357070 0.3927886 0.6332035 0.6332035 0.000000 24.59592 16.47205 15.48205 12.40414 12.44308 0.6333366 0.6333366 0.6333366 0.3357443 0.3928351 0.6333366 0.6333366 0.000000 24.63640 16.47948 15.49395 12.41645 12.45348 0.6335545 0.6335545 0.6335545 0.3358281 0.3928755 0.6335545 0.6335545 0.000000 24.68132 16.48889 15.50491 12.42600 12.46304 0.6337530 0.6337530 0.6337530 0.3359053 0.3929102 0.6337530 0.6337530 0.000000 24.71998 16.49759 15.51501 12.43664 12.47546 0.6339337 0.6339337 0.6339337 0.3359227 0.3930052 0.6339337 0.6339337 0.000000 24.75628 16.50566 15.52434 12.44654 12.48353 0.6340979 0.6340979 0.6340979 0.3359882 0.3930299 0.6340979 0.6340979 0.000000 24.79399 16.51048 15.53531 12.45579 12.49456 0.6342467 0.6342467 0.6342467 0.3360483 0.3930500 0.6342467 0.6342467 0.000000 24.82970 16.51746 15.54328 12.46444 12.50319 0.6343813 0.6343813 0.6343813 0.3361034 0.3931313 0.6343813 0.6343813 0.000000 24.92466 16.52394 15.55067 12.47434 12.51127 0.6346075 0.6346075 0.6346075 0.3361540 0.3931432 0.6346075 0.6346075 0.000000 24.95787 16.53260 15.55982 12.48191 12.52062 0.6347162 0.6347162 0.6347162 0.3362002 0.3932168 0.6347162 0.6347162 0.000000 24.99662 16.53821 15.56845 12.48901 12.52949 0.6349180 0.6349180 0.6349180 0.3362424 0.3932214 0.6349180 0.6349180 0.000000 25.02680 16.54345 15.57661 12.49747 12.53791 0.6350040 0.6350040 0.6350040 0.3363341 0.3932881 0.6350040 0.6350040 0.000000 25.06487 16.54834 15.58431 12.50551 12.54591 0.6351843 0.6351843 0.6351843 0.3363688 0.3933517 0.6351843 0.6351843 0.000000 25.09956 16.55290 15.59160 12.51315 12.55354 0.6353547 0.6353547 0.6353547 0.3364001 0.3933470 0.6353547 0.6353547 0.000000 25.13304 16.55970 15.59851 12.52044 12.56080 0.6355157 0.6355157 0.6355157 0.3364282 0.3934047 0.6355157 0.6355157 0.000000 25.16538 16.56619 15.60506 12.52738 12.56773 0.6356679 0.6356679 0.6356679 0.3365064 0.3934598 0.6356679 0.6356679 0.000000 25.19666 16.56988 15.61127 12.53401 12.57434 0.6357075 0.6357075 0.6357075 0.3365285 0.3935123 0.6357075 0.6357075 0.000000 25.22694 16.57332 15.61717 12.54034 12.58238 0.6358434 0.6358434 0.6358434 0.3366010 0.3934972 0.6358434 0.6358434 0.000000 25.25628 16.57902 15.62497 12.54813 12.59012 0.6359717 0.6359717 0.6359717 0.3366177 0.3935449 0.6359717 0.6359717 0.000000 25.28473 16.58449 15.63029 12.55564 12.59589 0.6361968 0.6361968 0.6361968 0.3366850 0.3935905 0.6361968 0.6361968 0.000000 25.31235 16.58726 15.63753 12.56116 12.60141 0.6363110 0.6363110 0.6363110 0.3366967 0.3936340 0.6363110 0.6363110 0.000000 25.33918 16.59230 15.64233 12.56645 12.60840 0.6364186 0.6364186 0.6364186 0.3367593 0.3936754 0.6364186 0.6364186 0.000000 25.36526 16.59714 15.64689 12.57324 12.61516 0.6365200 0.6365200 0.6365200 0.3367666 0.3937148 0.6365200 0.6365200 0.000000 25.39121 16.60179 15.65557 12.57980 12.62001 0.6366154 0.6366154 0.6366154 0.3368248 0.3937525 0.6366154 0.6366154 0.000000 25.41592 16.60626 15.65969 12.58445 12.62634 0.6367050 0.6367050 0.6367050 0.3368809 0.3937883 0.6367050 0.6367050 0.000000 25.43999 16.60813 15.66362 12.58890 12.63248 0.6368927 0.6368927 0.6368927 0.3368822 0.3938224 0.6368927 0.6368927 0.000000 25.46346 16.61228 15.67165 12.59658 12.63676 0.6369715 0.6369715 0.6369715 0.3369345 0.3938548 0.6369715 0.6369715 0.000000 25.49311 16.61627 15.67519 12.60067 12.64421 0.6370453 0.6370453 0.6370453 0.3369850 0.3938857 0.6370453 0.6370453 0.000000 25.51543 16.62012 15.68070 12.60630 12.64815 0.6372175 0.6372175 0.6372175 0.3370338 0.3939150 0.6372175 0.6372175 0.000000 25.53722 16.62383 15.68604 12.61176 12.65526 0.6372817 0.6372817 0.6372817 0.3370280 0.3939429 0.6372817 0.6372817 0.000000 1.501583 3.796059 4.486538 5.131632 5.487844 0.6230988 0.6230988 0.6230988 0.3322231 0.3889951 0.6230988 0.6230988 0.000000 19.35273 15.42551 14.36895 11.52352 11.59008 0.6260323 0.6260323 0.6260323 0.3333868 0.3907494 0.6260323 0.6260323 0.000000 21.89635 15.91229 14.83294 11.84968 11.89374 0.6276192 0.6276192 0.6276192 0.3339411 0.3912280 0.6276192 0.6276192 0.000000 22.63718 16.08569 15.01519 11.99172 12.03245 0.6287357 0.6287357 0.6287357 0.3342792 0.3915299 0.6287357 0.6287357 0.000000 23.05215 16.18001 15.12618 12.08153 12.11955 0.6295754 0.6295754 0.6295754 0.3345692 0.3918121 0.6295754 0.6295754 0.000000 23.34408 16.24483 15.19899 12.14902 12.18457 0.6303519 0.6303519 0.6303519 0.3348605 0.3920270 0.6303519 0.6303519 0.000000 23.56341 16.29467 15.25737 12.19963 12.23514 0.6310088 0.6310088 0.6310088 0.3350419 0.3922167 0.6310088 0.6310088 0.000000 23.74231 16.33341 15.30392 12.24114 12.27660 0.6316375 0.6316375 0.6316375 0.3352516 0.3923395 0.6316375 0.6316375 0.000000 23.89596 16.36523 15.34360 12.27785 12.31324 0.6320817 0.6320817 0.6320817 0.3354001 0.3925425 0.6320817 0.6320817 0.000000 24.02950 16.39268 15.37679 12.30830 12.34564 0.6325940 0.6325940 0.6325940 0.3355541 0.3926388 0.6325940 0.6325940 0.000000 24.14523 16.41445 15.40558 12.33641 12.37366 0.6329885 0.6329885 0.6329885 0.3357225 0.3927673 0.6329885 0.6329885 0.000000 24.24374 16.43756 15.43392 12.36141 12.39860 0.6333916 0.6333916 0.6333916 0.3358043 0.3928679 0.6333916 0.6333916 0.000000 24.34395 16.45415 15.45523 12.38423 12.42137 0.6338183 0.6338183 0.6338183 0.3359659 0.3930103 0.6338183 0.6338183 0.000000 24.42482 16.47060 15.47781 12.40557 12.44265 0.6341747 0.6341747 0.6341747 0.3360500 0.3930667 0.6341747 0.6341747 0.000000 24.50367 16.48730 15.49727 12.42593 12.46296 0.6344706 0.6344706 0.6344706 0.3361670 0.3931709 0.6344706 0.6344706 0.000000 24.58171 16.49916 15.51651 12.44385 12.48085 0.6348184 0.6348184 0.6348184 0.3362659 0.3932593 0.6348184 0.6348184 0.000000 24.64891 16.51459 15.53347 12.45971 12.49849 0.6351193 0.6351193 0.6351193 0.3364021 0.3933339 0.6351193 0.6351193 0.000000 24.71362 16.52575 15.54849 12.47741 12.51434 0.6354830 0.6354830 0.6354830 0.3364707 0.3934613 0.6354830 0.6354830 0.000000 24.77652 16.53816 15.56412 12.49169 12.53039 0.6357051 0.6357051 0.6357051 0.3365797 0.3935122 0.6357051 0.6357051 0.000000 24.83109 16.54678 15.57824 12.50639 12.54505 0.6359978 0.6359978 0.6359978 0.3366770 0.3936181 0.6359978 0.6359978 0.000000 24.94334 16.55944 15.59328 12.51983 12.56021 0.6362600 0.6362600 0.6362600 0.3367637 0.3936497 0.6362600 0.6362600 0.000000 24.99876 16.56606 15.60487 12.53393 12.57425 0.6364944 0.6364944 0.6364944 0.3368409 0.3937379 0.6364944 0.6364944 0.000000 25.06002 16.57687 15.61763 12.54527 12.58559 0.6367036 0.6367036 0.6367036 0.3369092 0.3938184 0.6367036 0.6367036 0.000000 25.11613 16.58688 15.62942 12.55746 12.59945 0.6369930 0.6369930 0.6369930 0.3369695 0.3938916 0.6369930 0.6369930 0.000000 25.16940 16.59369 15.64033 12.56883 12.61079 0.6372608 0.6372608 0.6372608 0.3370751 0.3938933 0.6372608 0.6372608 0.000000 25.22009 16.60233 15.65045 12.58117 12.62139 0.6374055 0.6374055 0.6374055 0.3371209 0.3939538 0.6374055 0.6374055 0.000000 25.26844 16.60795 15.66200 12.59110 12.63300 0.6376349 0.6376349 0.6376349 0.3372131 0.3940735 0.6376349 0.6376349 0.000000 25.31463 16.61547 15.67288 12.60042 12.64397 0.6378472 0.6378472 0.6378472 0.3372991 0.3941228 0.6378472 0.6378472 0.000000 25.35885 16.62248 15.68099 12.61086 12.65438 0.6380435 0.6380435 0.6380435 0.3373269 0.3941672 0.6380435 0.6380435 0.000000 25.40182 16.62904 15.69067 12.62075 12.66424 0.6382248 0.6382248 0.6382248 0.3374021 0.3942069 0.6382248 0.6382248 0.000000 25.44254 16.63518 15.69983 12.63015 12.67362 0.6384946 0.6384946 0.6384946 0.3374723 0.3942421 0.6384946 0.6384946 0.000000 25.48848 16.64328 15.70849 12.63909 12.68418 0.6386487 0.6386487 0.6386487 0.3375378 0.3943380 0.6386487 0.6386487 0.000000 25.52616 16.64865 15.71670 12.64927 12.69431 0.6387905 0.6387905 0.6387905 0.3375989 0.3943652 0.6387905 0.6387905 0.000000 25.56249 16.65602 15.72657 12.65904 12.70240 0.6390227 0.6390227 0.6390227 0.3376559 0.3943886 0.6390227 0.6390227 0.000000 25.60427 16.66074 15.73395 12.66676 12.71012 0.6391419 0.6391419 0.6391419 0.3377090 0.3944732 0.6391419 0.6391419 0.000000 25.63813 16.66517 15.74097 12.67414 12.72075 0.6393524 0.6393524 0.6393524 0.3377583 0.3944898 0.6393524 0.6393524 0.000000 25.67757 16.67163 15.74764 12.68284 12.72779 0.6394514 0.6394514 0.6394514 0.3378041 0.3945678 0.6394514 0.6394514 0.000000 25.70926 16.67781 15.75605 12.69123 12.73615 0.6396426 0.6396426 0.6396426 0.3378988 0.3945782 0.6396426 0.6396426 0.000000 25.74605 16.68146 15.76413 12.69768 12.74421 0.6398248 0.6398248 0.6398248 0.3379380 0.3946503 0.6398248 0.6398248 0.000000 25.77577 16.68715 15.76988 12.70712 12.75200 0.6399984 0.6399984 0.6399984 0.3379743 0.3947196 0.6399984 0.6399984 0.000000 25.81124 16.69262 15.77740 12.71304 12.75952 0.6401640 0.6401640 0.6401640 0.3380597 0.3947217 0.6401640 0.6401640 0.000000 25.84586 16.69562 15.78465 12.72196 12.76840 0.6403217 0.6403217 0.6403217 0.3380902 0.3947858 0.6403217 0.6403217 0.000000 25.87967 16.70292 15.78963 12.72739 12.77384 0.6404720 0.6404720 0.6404720 0.3381182 0.3948475 0.6404720 0.6404720 0.000000 25.90613 16.70555 15.79840 12.73584 12.78225 0.6406152 0.6406152 0.6406152 0.3381956 0.3948424 0.6406152 0.6406152 0.000000 25.93846 16.71023 15.80293 12.74085 12.78886 0.6407517 0.6407517 0.6407517 0.3382185 0.3948996 0.6407517 0.6407517 0.000000 25.97010 16.71474 15.81126 12.74888 12.79526 0.6408817 0.6408817 0.6408817 0.3382911 0.3949546 0.6408817 0.6408817 0.000000 25.99453 16.71909 15.81538 12.75350 12.80306 0.6410055 0.6410055 0.6410055 0.3383095 0.3950075 0.6410055 0.6410055 0.000000 26.02489 16.72328 15.82331 12.76115 12.81067 0.6411232 0.6411232 0.6411232 0.3383777 0.3950585 0.6411232 0.6411232 0.000000 26.05465 16.72732 15.82706 12.76861 12.81495 0.6413359 0.6413359 0.6413359 0.3384437 0.3950432 0.6413359 0.6413359 0.000000 26.08385 16.73123 15.83461 12.77272 12.82221 0.6414424 0.6414424 0.6414424 0.3384559 0.3950904 0.6414424 0.6414424 0.000000 1.517400 3.889846 4.587061 5.249490 5.610135 0.6234630 0.6234630 0.6234630 0.3323409 0.3891805 0.6234630 0.6234630 0.000000 19.66543 15.53298 14.45639 11.59153 11.65365 0.6266226 0.6266226 0.6266226 0.3336690 0.3910112 0.6266226 0.6266226 0.000000 22.03707 15.97881 14.90177 11.90768 11.95139 0.6284841 0.6284841 0.6284841 0.3343009 0.3915499 0.6284841 0.6284841 0.000000 22.76078 16.14246 15.07907 12.04915 12.08722 0.6298176 0.6298176 0.6298176 0.3347258 0.3918995 0.6298176 0.6298176 0.000000 23.18079 16.23499 15.18732 12.14112 12.17669 0.6308458 0.6308458 0.6308458 0.3350538 0.3921890 0.6308458 0.6308458 0.000000 23.47564 16.30067 15.26261 12.20702 12.24254 0.6317285 0.6317285 0.6317285 0.3353542 0.3924521 0.6317285 0.6317285 0.000000 23.70540 16.34747 15.31956 12.25970 12.29515 0.6325441 0.6325441 0.6325441 0.3355799 0.3926729 0.6325441 0.6325441 0.000000 23.88869 16.38602 15.36692 12.30461 12.33997 0.6331860 0.6331860 0.6331860 0.3358199 0.3928145 0.6331860 0.6331860 0.000000 24.04973 16.41734 15.40691 12.34207 12.37932 0.6338276 0.6338276 0.6338276 0.3359886 0.3930266 0.6338276 0.6338276 0.000000 24.18565 16.44686 15.44262 12.37495 12.41212 0.6343025 0.6343025 0.6343025 0.3362082 0.3931902 0.6343025 0.6343025 0.000000 24.30709 16.47049 15.47357 12.40509 12.44218 0.6348529 0.6348529 0.6348529 0.3363287 0.3933143 0.6348529 0.6348529 0.000000 24.41464 16.49228 15.50126 12.43188 12.46892 0.6352921 0.6352921 0.6352921 0.3365180 0.3934709 0.6352921 0.6352921 0.000000 24.51534 16.51036 15.52435 12.45628 12.49509 0.6357421 0.6357421 0.6357421 0.3366752 0.3935344 0.6357421 0.6357421 0.000000 24.60778 16.52806 15.54837 12.48083 12.51776 0.6362163 0.6362163 0.6362163 0.3368050 0.3937043 0.6362163 0.6362163 0.000000 24.69017 16.54319 15.56918 12.50062 12.53930 0.6366215 0.6366215 0.6366215 0.3369112 0.3937881 0.6366215 0.6366215 0.000000 24.77126 16.55873 15.58731 12.52148 12.56184 0.6369664 0.6369664 0.6369664 0.3370495 0.3939187 0.6369664 0.6369664 0.000000 24.89848 16.57239 15.60764 12.53843 12.57877 0.6373616 0.6373616 0.6373616 0.3371694 0.3939680 0.6373616 0.6373616 0.000000 24.97514 16.58444 15.62371 12.55702 12.59730 0.6377097 0.6377097 0.6377097 0.3372730 0.3940678 0.6377097 0.6377097 0.000000 25.04831 16.59511 15.64024 12.57396 12.61420 0.6380157 0.6380157 0.6380157 0.3373619 0.3941545 0.6380157 0.6380157 0.000000 25.12162 16.60699 15.65738 12.58945 12.63135 0.6382840 0.6382840 0.6382840 0.3374902 0.3942941 0.6382840 0.6382840 0.000000 25.19045 16.61775 15.67098 12.60367 12.64722 0.6386204 0.6386204 0.6386204 0.3375540 0.3943582 0.6386204 0.6386204 0.000000 25.24838 16.62753 15.68337 12.62013 12.66360 0.6389256 0.6389256 0.6389256 0.3376593 0.3944124 0.6389256 0.6389256 0.000000 25.30969 16.63644 15.69892 12.63217 12.67564 0.6392022 0.6392022 0.6392022 0.3377546 0.3945223 0.6392022 0.6392022 0.000000 25.37520 16.64690 15.70924 12.64664 12.69006 0.6394528 0.6394528 0.6394528 0.3378407 0.3945593 0.6394528 0.6394528 0.000000 25.43036 16.65663 15.72286 12.66026 12.70363 0.6397809 0.6397809 0.6397809 0.3379704 0.3946532 0.6397809 0.6397809 0.000000 25.48966 16.66337 15.73565 12.67309 12.71643 0.6399851 0.6399851 0.6399851 0.3380401 0.3947399 0.6399851 0.6399851 0.000000 25.53972 16.67183 15.74768 12.68521 12.72852 0.6402702 0.6402702 0.6402702 0.3381024 0.3948199 0.6402702 0.6402702 0.000000 25.59429 16.67974 15.75696 12.69668 12.73997 0.6405360 0.6405360 0.6405360 0.3382100 0.3948937 0.6405360 0.6405360 0.000000 25.64008 16.68714 15.76766 12.70755 12.75404 0.6406829 0.6406829 0.6406829 0.3382593 0.3949617 0.6406829 0.6406829 0.000000 25.69066 16.69407 15.77981 12.71787 12.76435 0.6410151 0.6410151 0.6410151 0.3383545 0.3950243 0.6410151 0.6410151 0.000000 25.73890 16.70280 15.78938 12.72768 12.77414 0.6411299 0.6411299 0.6411299 0.3384442 0.3950818 0.6411299 0.6411299 0.000000 25.78598 16.70889 15.79845 12.73864 12.78665 0.6414313 0.6414313 0.6414313 0.3384767 0.3951344 0.6414313 0.6414313 0.000000 25.82490 16.71461 15.80706 12.74914 12.79553 0.6416184 0.6416184 0.6416184 0.3385561 0.3951825 0.6416184 0.6416184 0.000000 25.86903 16.72000 15.81523 12.75762 12.80717 0.6417925 0.6417925 0.6417925 0.3386309 0.3952263 0.6417925 0.6417925 0.000000 25.91181 16.72726 15.82698 12.76892 12.81526 0.6420546 0.6420546 0.6420546 0.3387012 0.3952661 0.6420546 0.6420546 0.000000 25.95334 16.73420 15.83437 12.77666 12.82615 0.6422049 0.6422049 0.6422049 0.3387673 0.3953661 0.6422049 0.6422049 0.000000 25.99369 16.73867 15.84140 12.78724 12.83668 0.6424441 0.6424441 0.6424441 0.3388294 0.3953983 0.6424441 0.6424441 0.000000 26.03947 16.74505 15.85204 12.79432 12.84376 0.6425731 0.6425731 0.6425731 0.3388878 0.3954271 0.6425731 0.6425731 0.000000 26.07113 16.75117 15.85843 12.80426 12.85366 0.6427919 0.6427919 0.6427919 0.3389426 0.3955166 0.6427919 0.6427919 0.000000 26.10710 16.75490 15.86843 12.81234 12.86328 0.6430011 0.6430011 0.6430011 0.3390454 0.3955389 0.6430011 0.6430011 0.000000 26.14330 16.76270 15.87424 12.82014 12.87262 0.6432014 0.6432014 0.6432014 0.3390935 0.3956222 0.6432014 0.6432014 0.000000 26.18511 16.76599 15.88368 12.82926 12.87859 0.6433930 0.6433930 0.6433930 0.3391385 0.3956386 0.6433930 0.6433930 0.000000 26.21958 16.77335 15.88897 12.83813 12.88743 0.6435764 0.6435764 0.6435764 0.3391806 0.3957161 0.6435764 0.6435764 0.000000 26.25327 16.77626 15.89790 12.84364 12.89604 0.6437520 0.6437520 0.6437520 0.3392710 0.3957910 0.6437520 0.6437520 0.000000 26.28620 16.78322 15.90274 12.85206 12.90442 0.6439200 0.6439200 0.6439200 0.3393075 0.3957995 0.6439200 0.6439200 0.000000 26.31842 16.78579 15.91121 12.86026 12.91260 0.6440808 0.6440808 0.6440808 0.3393926 0.3958694 0.6440808 0.6440808 0.000000 26.35641 16.79240 15.91947 12.86826 12.92057 0.6442348 0.6442348 0.6442348 0.3394240 0.3958731 0.6442348 0.6442348 0.000000 26.38085 16.79466 15.92370 12.87297 12.92835 0.6443822 0.6443822 0.6443822 0.3394531 0.3959384 0.6443822 0.6443822 0.000000 26.41756 16.80095 15.93156 12.88060 12.93441 0.6445233 0.6445233 0.6445233 0.3395309 0.3960014 0.6445233 0.6445233 0.000000 26.44723 16.80501 15.93924 12.88805 12.94031 0.6446582 0.6446582 0.6446582 0.3396064 0.3960623 0.6446582 0.6446582 0.000000 1.528423 3.949626 4.650209 5.324492 5.688831 0.6235963 0.6235963 0.6235963 0.3324080 0.3893734 0.6235963 0.6235963 0.000000 19.83262 15.59550 14.51323 11.63346 11.69334 0.6271822 0.6271822 0.6271822 0.3338899 0.3911349 0.6271822 0.6271822 0.000000 22.12418 16.02181 14.94291 11.94437 11.98527 0.6292706 0.6292706 0.6292706 0.3345489 0.3917600 0.6292706 0.6292706 0.000000 22.84883 16.17900 15.11734 12.08818 12.12613 0.6307187 0.6307187 0.6307187 0.3350266 0.3921950 0.6307187 0.6307187 0.000000 23.26911 16.27227 15.22493 12.17847 12.21622 0.6318588 0.6318588 0.6318588 0.3354208 0.3925353 0.6318588 0.6318588 0.000000 23.56340 16.33473 15.30163 12.24844 12.28388 0.6328933 0.6328933 0.6328933 0.3357631 0.3927622 0.6328933 0.6328933 0.000000 23.79188 16.38433 15.36197 12.30220 12.33957 0.6337101 0.6337101 0.6337101 0.3360149 0.3929980 0.6337101 0.6337101 0.000000 23.98593 16.42216 15.40942 12.34965 12.38494 0.6344284 0.6344284 0.6344284 0.3362693 0.3932097 0.6344284 0.6344284 0.000000 24.14832 16.45539 15.45169 12.38926 12.42637 0.6351222 0.6351222 0.6351222 0.3364976 0.3934180 0.6351222 0.6351222 0.000000 24.28909 16.48366 15.48929 12.42396 12.46101 0.6358405 0.6358405 0.6358405 0.3367164 0.3935717 0.6358405 0.6358405 0.000000 24.41478 16.50604 15.51952 12.45566 12.49264 0.6363062 0.6363062 0.6363062 0.3368844 0.3937461 0.6363062 0.6363062 0.000000 24.52984 16.52909 15.54868 12.48203 12.52256 0.6368572 0.6368572 0.6368572 0.3370634 0.3938835 0.6368572 0.6368572 0.000000 24.63746 16.54833 15.57315 12.50949 12.54816 0.6374086 0.6374086 0.6374086 0.3372070 0.3940544 0.6374086 0.6374086 0.000000 24.73275 16.56700 15.59830 12.53334 12.57370 0.6378722 0.6378722 0.6378722 0.3373731 0.3941983 0.6378722 0.6378722 0.000000 24.81778 16.58305 15.62018 12.55593 12.59794 0.6383629 0.6383629 0.6383629 0.3375129 0.3943188 0.6383629 0.6383629 0.000000 24.96377 16.59935 15.64151 12.57768 12.61963 0.6387877 0.6387877 0.6387877 0.3376822 0.3944187 0.6387877 0.6387877 0.000000 25.05146 16.61373 15.66046 12.59723 12.64080 0.6391544 0.6391544 0.6391544 0.3377790 0.3945004 0.6391544 0.6391544 0.000000 25.13768 16.62647 15.67952 12.61656 12.66007 0.6394700 0.6394700 0.6394700 0.3379100 0.3946306 0.6394700 0.6394700 0.000000 25.21108 16.63779 15.69676 12.63420 12.67767 0.6399430 0.6399430 0.6399430 0.3380770 0.3947460 0.6399430 0.6399430 0.000000 25.28634 16.65020 15.71243 12.65204 12.69709 0.6402730 0.6402730 0.6402730 0.3381774 0.3948482 0.6402730 0.6402730 0.000000 25.36446 16.66148 15.72879 12.66854 12.71355 0.6405658 0.6405658 0.6405658 0.3382646 0.3949383 0.6405658 0.6405658 0.000000 25.43107 16.67175 15.74389 12.68552 12.72884 0.6409257 0.6409257 0.6409257 0.3383918 0.3950176 0.6409257 0.6409257 0.000000 25.50081 16.68113 15.75786 12.69978 12.74470 0.6412545 0.6412545 0.6412545 0.3385079 0.3950867 0.6412545 0.6412545 0.000000 25.56045 16.69197 15.77081 12.71309 12.75959 0.6415549 0.6415549 0.6415549 0.3385622 0.3952109 0.6415549 0.6415549 0.000000 25.62383 16.70205 15.78488 12.72716 12.77522 0.6418291 0.6418291 0.6418291 0.3387106 0.3952622 0.6418291 0.6418291 0.000000 25.68445 16.71144 15.79809 12.74043 12.79005 0.6420794 0.6420794 0.6420794 0.3387987 0.3953698 0.6420794 0.6420794 0.000000 25.74196 16.72022 15.81054 12.75619 12.80256 0.6424074 0.6424074 0.6424074 0.3388788 0.3954059 0.6424074 0.6424074 0.000000 25.79765 16.72844 15.82227 12.76806 12.81599 0.6427144 0.6427144 0.6427144 0.3389516 0.3954992 0.6427144 0.6427144 0.000000 25.85120 16.73614 15.83336 12.77931 12.82880 0.6429023 0.6429023 0.6429023 0.3390688 0.3955860 0.6429023 0.6429023 0.000000 25.90278 16.74336 15.84385 12.79160 12.84261 0.6432714 0.6432714 0.6432714 0.3391282 0.3956667 0.6432714 0.6432714 0.000000 25.95255 16.75015 15.85575 12.80335 12.85276 0.6434245 0.6434245 0.6434245 0.3392327 0.3957418 0.6434245 0.6434245 0.000000 26.00062 16.75653 15.86713 12.81460 12.86554 0.6437604 0.6437604 0.6437604 0.3393315 0.3958115 0.6437604 0.6437604 0.000000 26.05365 16.76467 15.87608 12.82541 12.87631 0.6439822 0.6439822 0.6439822 0.3393738 0.3958761 0.6439822 0.6439822 0.000000 26.09743 16.77245 15.88652 12.83735 12.88666 0.6441898 0.6441898 0.6441898 0.3394621 0.3959360 0.6441898 0.6441898 0.000000 26.14097 16.77777 15.89655 12.84575 12.89815 0.6443843 0.6443843 0.6443843 0.3395456 0.3959915 0.6443843 0.6443843 0.000000 26.18970 16.78279 15.90425 12.85691 12.90927 0.6446650 0.6446650 0.6446650 0.3396246 0.3960426 0.6446650 0.6446650 0.000000 26.23072 16.79172 15.91543 12.86771 12.92003 0.6448352 0.6448352 0.6448352 0.3396992 0.3960898 0.6448352 0.6448352 0.000000 26.27061 16.79617 15.92243 12.87507 12.93045 0.6450925 0.6450925 0.6450925 0.3397698 0.3961966 0.6450925 0.6450925 0.000000 26.31588 16.80246 15.93293 12.88523 12.94057 0.6453391 0.6453391 0.6453391 0.3398364 0.3962362 0.6453391 0.6453391 0.000000 26.36012 16.80850 15.94121 12.89508 12.94733 0.6454773 0.6454773 0.6454773 0.3398993 0.3962723 0.6454773 0.6454773 0.000000 26.39695 16.81431 15.94919 12.90466 12.95687 0.6457040 0.6457040 0.6457040 0.3399588 0.3963685 0.6457040 0.6457040 0.000000 26.43288 16.81990 15.95880 12.91396 12.96614 0.6459213 0.6459213 0.6459213 0.3400148 0.3963982 0.6459213 0.6459213 0.000000 26.47437 16.82528 15.96625 12.92301 12.99640 0.6461299 0.6461299 0.6461299 0.3401183 0.3964248 0.6461299 0.6461299 0.000000 26.51503 16.83047 15.97346 12.93182 13.00581 0.6463300 0.6463300 0.6463300 0.3401681 0.3965118 0.6463300 0.6463300 0.000000 26.54687 16.83751 15.98231 12.93888 13.01500 0.6465220 0.6465220 0.6465220 0.3402149 0.3965327 0.6465220 0.6465220 0.000000 26.57952 16.84029 15.99093 12.94572 13.02711 0.6467063 0.6467063 0.6467063 0.3402590 0.3966141 0.6467063 0.6467063 0.000000 26.61784 16.84697 15.99559 12.95388 13.03588 0.6468832 0.6468832 0.6468832 0.3403508 0.3966930 0.6468832 0.6468832 0.000000 26.65549 16.85146 16.00380 12.96185 13.04759 0.6470530 0.6470530 0.6470530 0.3403895 0.3967062 0.6470530 0.6470530 0.000000 26.68612 16.85579 16.01180 12.99049 13.03736 0.6472160 0.6472160 0.6472160 0.3404762 0.3967801 0.6472160 0.6472160 0.000000 26.71614 16.86199 16.01962 12.99862 13.04460 0.6473725 0.6473725 0.6473725 0.3405100 0.3967887 0.6473725 0.6473725 0.000000 1.536967 3.994766 4.695651 5.380116 5.747819 0.6237788 0.6237788 0.6237788 0.3325015 0.3894648 0.6237788 0.6237788 0.000000 19.95708 15.63780 14.54947 11.66388 11.72173 0.6275539 0.6275539 0.6275539 0.3340536 0.3913018 0.6275539 0.6275539 0.000000 22.18905 16.04989 14.97083 11.97036 12.01118 0.6298746 0.6298746 0.6298746 0.3348147 0.3919846 0.6298746 0.6298746 0.000000 22.90642 16.20763 15.14771 12.11512 12.15302 0.6314781 0.6314781 0.6314781 0.3353220 0.3924195 0.6314781 0.6314781 0.000000 23.32520 16.29742 15.25640 12.20740 12.24507 0.6327867 0.6327867 0.6327867 0.3357649 0.3927954 0.6327867 0.6327867 0.000000 23.62655 16.36263 15.33347 12.27842 12.31586 0.6338268 0.6338268 0.6338268 0.3360814 0.3931048 0.6338268 0.6338268 0.000000 23.86080 16.41135 15.39372 12.33475 12.37203 0.6347182 0.6347182 0.6347182 0.3364008 0.3933446 0.6347182 0.6347182 0.000000 24.05960 16.45100 15.44335 12.38230 12.41946 0.6355889 0.6355889 0.6355889 0.3367126 0.3935511 0.6355889 0.6355889 0.000000 24.22612 16.48293 15.48494 12.42369 12.46076 0.6363101 0.6363101 0.6363101 0.3369378 0.3938123 0.6363101 0.6363101 0.000000 24.37050 16.51252 15.52407 12.45992 12.49873 0.6370400 0.6370400 0.6370400 0.3371480 0.3939484 0.6370400 0.6370400 0.000000 24.49936 16.53608 15.55569 12.49295 12.53343 0.6376098 0.6376098 0.6376098 0.3373558 0.3941657 0.6376098 0.6376098 0.000000 24.61721 16.55754 15.58604 12.52408 12.56445 0.6382536 0.6382536 0.6382536 0.3375706 0.3942773 0.6382536 0.6382536 0.000000 24.72728 16.58019 15.61161 12.55076 12.59108 0.6387866 0.6387866 0.6387866 0.3377471 0.3944842 0.6387866 0.6387866 0.000000 24.82481 16.59715 15.63769 12.57727 12.61752 0.6393276 0.6393276 0.6393276 0.3378908 0.3945967 0.6393276 0.6393276 0.000000 24.97501 16.61394 15.66044 12.60069 12.64425 0.6397875 0.6397875 0.6397875 0.3380585 0.3947483 0.6397875 0.6397875 0.000000 25.07959 16.62848 15.68254 12.62488 12.66669 0.6402782 0.6402782 0.6402782 0.3382015 0.3948773 0.6402782 0.6402782 0.000000 25.17434 16.64349 15.70223 12.64511 12.68855 0.6407067 0.6407067 0.6407067 0.3383746 0.3949864 0.6407067 0.6407067 0.000000 25.25537 16.65913 15.72194 12.66507 12.71009 0.6411811 0.6411811 0.6411811 0.3384764 0.3950778 0.6411811 0.6411811 0.000000 25.33745 16.67098 15.73981 12.68496 12.72992 0.6415055 0.6415055 0.6415055 0.3386128 0.3952174 0.6415055 0.6415055 0.000000 25.42171 16.68384 15.75812 12.70169 12.74823 0.6418865 0.6418865 0.6418865 0.3387851 0.3953427 0.6418865 0.6418865 0.000000 25.50069 16.69555 15.77499 12.72034 12.76682 0.6423277 0.6423277 0.6423277 0.3388915 0.3954548 0.6423277 0.6423277 0.000000 25.56872 16.70623 15.79058 12.73776 12.78419 0.6426325 0.6426325 0.6426325 0.3389852 0.3955549 0.6426325 0.6426325 0.000000 25.63975 16.71822 15.80502 12.75410 12.80049 0.6430041 0.6430041 0.6430041 0.3391185 0.3956441 0.6430041 0.6430041 0.000000 25.70737 16.72716 15.82042 12.76945 12.81896 0.6433453 0.6433453 0.6433453 0.3392409 0.3957233 0.6433453 0.6433453 0.000000 25.77129 16.73755 15.83487 12.78391 12.83338 0.6436587 0.6436587 0.6436587 0.3393534 0.3957931 0.6436587 0.6436587 0.000000 25.83292 16.74725 15.84846 12.79755 12.84700 0.6439464 0.6439464 0.6439464 0.3394566 0.3959181 0.6439464 0.6439464 0.000000 25.89856 16.75632 15.86127 12.81362 12.86300 0.6443093 0.6443093 0.6443093 0.3395513 0.3959714 0.6443093 0.6443093 0.000000 25.95524 16.76481 15.87335 12.82584 12.87830 0.6446499 0.6446499 0.6446499 0.3396380 0.3960808 0.6446499 0.6446499 0.000000 26.01629 16.77278 15.88672 12.84056 12.88987 0.6448712 0.6448712 0.6448712 0.3397174 0.3961197 0.6448712 0.6448712 0.000000 26.06877 16.78238 15.89947 12.85157 12.90396 0.6451719 0.6451719 0.6451719 0.3398407 0.3962155 0.6451719 0.6451719 0.000000 26.12461 16.78941 15.90972 12.86517 12.91750 0.6454546 0.6454546 0.6454546 0.3399066 0.3963052 0.6454546 0.6454546 0.000000 26.17337 16.79603 15.92137 12.87670 12.93053 0.6457204 0.6457204 0.6457204 0.3400172 0.3963892 0.6457204 0.6457204 0.000000 26.22700 16.80435 15.93252 12.88776 12.94309 0.6459703 0.6459703 0.6459703 0.3401220 0.3964676 0.6459703 0.6459703 0.000000 26.27910 16.81230 15.94321 12.89993 12.95521 0.6463032 0.6463032 0.6463032 0.3401708 0.3965409 0.6463032 0.6463032 0.000000 26.32331 16.81784 15.95348 12.91168 12.96692 0.6465241 0.6465241 0.6465241 0.3402650 0.3966093 0.6465241 0.6465241 0.000000 26.37266 16.82513 15.96523 12.92305 12.99644 0.6467317 0.6467317 0.6467317 0.3403544 0.3966731 0.6467317 0.6467317 0.000000 26.42075 16.83212 15.97283 12.93405 13.00819 0.6470243 0.6470243 0.6470243 0.3404392 0.3967326 0.6470243 0.6470243 0.000000 26.46766 16.83882 15.98385 12.94471 13.02274 0.6472076 0.6472076 0.6472076 0.3405196 0.3967879 0.6472076 0.6472076 0.000000 26.51345 16.84525 15.99452 12.95200 13.03384 0.6474767 0.6474767 0.6474767 0.3405959 0.3968392 0.6474767 0.6474767 0.000000 26.55014 16.85144 16.00113 12.96203 13.04778 0.6476380 0.6476380 0.6476380 0.3406682 0.3968868 0.6476380 0.6476380 0.000000 26.59379 16.85739 16.01119 12.99278 13.03886 0.6478861 0.6478861 0.6478861 0.3407368 0.3969937 0.6478861 0.6478861 0.000000 26.63011 16.86312 16.02096 13.00293 13.04885 0.6481243 0.6481243 0.6481243 0.3408018 0.3970343 0.6481243 0.6481243 0.000000 26.67192 16.86863 16.03046 13.01282 13.06166 0.6483532 0.6483532 0.6483532 0.3408633 0.3971344 0.6483532 0.6483532 0.000000 26.71290 16.87594 16.03600 13.02560 13.07115 0.6485732 0.6485732 0.6485732 0.3409717 0.3971685 0.6485732 0.6485732 0.000000 26.75306 16.87908 16.04500 13.03502 13.08349 0.6487845 0.6487845 0.6487845 0.3410269 0.3971997 0.6487845 0.6487845 0.000000 26.79247 16.88601 16.05378 13.04736 13.09254 0.6489877 0.6489877 0.6489877 0.3410791 0.3972906 0.6489877 0.6489877 0.000000 26.83114 16.89276 16.06233 13.03696 13.10445 0.6491832 0.6491832 0.6491832 0.3411284 0.3973161 0.6491832 0.6491832 0.000000 26.86912 16.89539 16.07067 13.04553 13.11309 0.6493710 0.6493710 0.6493710 0.3412249 0.3974017 0.6493710 0.6493710 0.000000 26.90644 16.90182 16.07881 13.05698 13.12461 0.6495518 0.6495518 0.6495518 0.3412688 0.3974219 0.6495518 0.6495518 0.000000 26.94312 16.90808 16.08676 13.06518 13.13288 0.6497256 0.6497256 0.6497256 0.3413600 0.3975024 0.6497256 0.6497256 0.000000 1.544039 4.025961 4.729888 5.420106 5.790936 0.6239209 0.6239209 0.6239209 0.3325204 0.3895357 0.6239209 0.6239209 0.000000 20.05019 15.66605 14.58044 11.68691 11.74133 0.6279390 0.6279390 0.6279390 0.3341927 0.3914385 0.6279390 0.6279390 0.000000 22.23689 16.07291 14.99550 11.99170 12.03241 0.6303081 0.6303081 0.6303081 0.3350304 0.3921250 0.6303081 0.6303081 0.000000 22.94562 16.22681 15.17031 12.13629 12.17413 0.6321262 0.6321262 0.6321262 0.3356051 0.3926112 0.6321262 0.6321262 0.000000 23.37125 16.31949 15.27949 12.23198 12.26743 0.6334614 0.6334614 0.6334614 0.3360304 0.3930113 0.6334614 0.6334614 0.000000 23.67355 16.38071 15.35653 12.30345 12.33880 0.6345857 0.6345857 0.6345857 0.3364182 0.3933283 0.6345857 0.6345857 0.000000 23.91668 16.43135 15.41897 12.35988 12.39711 0.6356331 0.6356331 0.6356331 0.3367432 0.3936296 0.6356331 0.6356331 0.000000 24.11109 16.46976 15.47037 12.40918 12.44814 0.6365313 0.6365313 0.6365313 0.3370520 0.3938892 0.6365313 0.6365313 0.000000 24.28111 16.50577 15.51107 12.45204 12.49087 0.6373665 0.6373665 0.6373665 0.3373208 0.3940671 0.6373665 0.6373665 0.000000 24.43235 16.53380 15.55149 12.49135 12.52829 0.6380933 0.6380933 0.6380933 0.3375694 0.3943100 0.6380933 0.6380933 0.000000 24.56752 16.55839 15.58429 12.52545 12.56583 0.6387527 0.6387527 0.6387527 0.3377591 0.3945000 0.6387527 0.6387527 0.000000 24.68759 16.58072 15.61564 12.55579 12.59781 0.6393743 0.6393743 0.6393743 0.3380048 0.3946462 0.6393743 0.6393743 0.000000 24.79961 16.60165 15.64433 12.58510 12.62703 0.6399803 0.6399803 0.6399803 0.3381575 0.3948199 0.6399803 0.6399803 0.000000 24.96159 16.62176 15.66903 12.61237 12.65590 0.6405876 0.6405876 0.6405876 0.3383793 0.3949618 0.6405876 0.6405876 0.000000 25.06989 16.63916 15.69465 12.63652 12.67999 0.6411088 0.6411088 0.6411088 0.3385191 0.3951404 0.6411088 0.6411088 0.000000 25.17414 16.65662 15.71740 12.66134 12.70474 0.6416559 0.6416559 0.6416559 0.3386844 0.3952305 0.6416559 0.6416559 0.000000 25.26353 16.67209 15.73978 12.68386 12.73045 0.6421369 0.6421369 0.6421369 0.3388781 0.3953635 0.6421369 0.6421369 0.000000 25.36047 16.68586 15.76002 12.70437 12.75091 0.6425599 0.6425599 0.6425599 0.3389996 0.3955414 0.6425599 0.6425599 0.000000 25.44394 16.69817 15.77840 12.72639 12.77285 0.6429311 0.6429311 0.6429311 0.3391542 0.3956381 0.6429311 0.6429311 0.000000 25.52888 16.71141 15.79515 12.74361 12.79323 0.6434548 0.6434548 0.6434548 0.3392921 0.3957833 0.6434548 0.6434548 0.000000 25.60906 16.72348 15.81448 12.76269 12.81224 0.6438367 0.6438367 0.6438367 0.3394151 0.3958507 0.6438367 0.6438367 0.000000 25.68499 16.73670 15.83048 12.78053 12.83003 0.6441806 0.6441806 0.6441806 0.3395244 0.3959690 0.6441806 0.6441806 0.000000 25.75649 16.74680 15.84533 12.79726 12.84827 0.6445885 0.6445885 0.6445885 0.3396723 0.3960755 0.6445885 0.6445885 0.000000 25.82504 16.75607 15.86109 12.81614 12.86552 0.6449644 0.6449644 0.6449644 0.3398087 0.3961713 0.6449644 0.6449644 0.000000 25.89705 16.76673 15.87589 12.83095 12.88340 0.6453109 0.6453109 0.6453109 0.3398837 0.3962571 0.6453109 0.6453109 0.000000 25.96615 16.77669 15.88982 12.84493 12.89735 0.6456304 0.6456304 0.6456304 0.3400505 0.3963972 0.6456304 0.6456304 0.000000 26.02605 16.78601 15.90488 12.86128 12.91363 0.6459249 0.6459249 0.6459249 0.3401068 0.3964652 0.6459249 0.6459249 0.000000 26.09010 16.79475 15.91920 12.87691 12.92921 0.6462940 0.6462940 0.6462940 0.3402560 0.3965253 0.6462940 0.6462940 0.000000 26.14404 16.80503 15.93091 12.88880 12.94413 0.6466413 0.6466413 0.6466413 0.3403468 0.3966412 0.6466413 0.6466413 0.000000 26.20364 16.81481 15.94392 12.90318 12.95846 0.6468709 0.6468709 0.6468709 0.3404303 0.3967501 0.6468709 0.6468709 0.000000 26.26131 16.82206 15.95635 12.91701 12.98999 0.6471791 0.6471791 0.6471791 0.3405573 0.3967893 0.6471791 0.6471791 0.000000 26.31720 16.82889 15.96823 12.93031 13.00419 0.6474696 0.6474696 0.6474696 0.3406276 0.3968854 0.6474696 0.6474696 0.000000 26.37142 16.83737 15.97962 12.94314 13.02104 0.6478404 0.6478404 0.6478404 0.3407420 0.3969756 0.6478404 0.6478404 0.000000 26.42410 16.84547 15.99242 12.95551 13.03433 0.6480985 0.6480985 0.6480985 0.3408006 0.3970604 0.6480985 0.6480985 0.000000 26.47532 16.85121 16.00103 12.96746 13.05034 0.6483418 0.6483418 0.6483418 0.3409039 0.3971400 0.6483418 0.6483418 0.000000 26.52361 16.86066 16.01297 12.99725 13.04327 0.6486678 0.6486678 0.6486678 0.3410021 0.3972147 0.6486678 0.6486678 0.000000 26.57207 16.86578 16.02452 13.00925 13.05815 0.6488839 0.6488839 0.6488839 0.3410954 0.3972846 0.6488839 0.6488839 0.000000 26.61932 16.87462 16.03571 13.02403 13.06961 0.6490877 0.6490877 0.6490877 0.3411841 0.3973502 0.6490877 0.6490877 0.000000 26.66544 16.87920 16.04285 13.03536 13.08383 0.6493760 0.6493760 0.6493760 0.3412685 0.3974115 0.6493760 0.6493760 0.000000 26.71049 16.88750 16.05337 13.04952 13.09466 0.6496528 0.6496528 0.6496528 0.3413487 0.3974689 0.6496528 0.6496528 0.000000 26.75453 16.89358 16.06359 13.04076 13.10829 0.6499188 0.6499188 0.6499188 0.3414250 0.3975224 0.6499188 0.6499188 0.000000 26.79760 16.89943 16.07351 13.05095 13.12164 0.6501745 0.6501745 0.6501745 0.3414975 0.3976348 0.6501745 0.6501745 0.000000 26.83978 16.90703 16.08316 13.06395 13.13165 0.6503246 0.6503246 0.6503246 0.3415664 0.3976812 0.6503246 0.6503246 0.000000 26.88108 16.91050 16.09255 13.07363 13.14450 0.6505613 0.6505613 0.6505613 0.3416319 0.3977243 0.6505613 0.6505613 0.000000 26.92158 16.91770 16.10169 13.08616 13.15712 0.6507890 0.6507890 0.6507890 0.3416941 0.3978265 0.6507890 0.6507890 0.000000 26.96762 16.92470 16.11060 13.09538 13.16952 0.6510081 0.6510081 0.6510081 0.3418027 0.3978633 0.6510081 0.6510081 0.000000 26.99861 16.92764 16.11928 13.10747 13.15974 0.6512191 0.6512191 0.6512191 0.3418588 0.3979594 0.6512191 0.6512191 0.000000 27.03677 16.93430 16.12775 13.11628 13.16842 0.6515175 0.6515175 0.6515175 0.3419614 0.3979905 0.6515175 0.6515175 0.000000 27.07426 16.94079 16.13601 13.12797 13.17994 0.6517130 0.6517130 0.6517130 0.3420117 0.3980188 0.6517130 0.6517130 0.000000 27.11111 16.94712 16.14408 13.13948 13.19127 0.6519013 0.6519013 0.6519013 0.3420595 0.3981067 0.6519013 0.6519013 0.000000 1.547544 4.053623 4.760561 5.453918 5.825231 0.6239221 0.6239221 0.6239221 0.3325819 0.3895930 0.6239221 0.6239221 0.000000 20.11784 15.68845 14.60063 11.70399 11.75821 0.6281735 0.6281735 0.6281735 0.3343267 0.3915280 0.6281735 0.6281735 0.000000 22.26769 16.08983 15.01323 12.00896 12.04708 0.6307513 0.6307513 0.6307513 0.3351676 0.3922674 0.6307513 0.6307513 0.000000 22.98299 16.24320 15.18870 12.15270 12.19052 0.6326397 0.6326397 0.6326397 0.3357972 0.3927936 0.6326397 0.6326397 0.000000 23.40896 16.33501 15.29785 12.24916 12.28670 0.6340809 0.6340809 0.6340809 0.3363030 0.3932092 0.6340809 0.6340809 0.000000 23.71564 16.39821 15.37716 12.32291 12.35824 0.6353727 0.6353727 0.6353727 0.3367010 0.3935919 0.6353727 0.6353727 0.000000 23.95816 16.44748 15.43883 12.38115 12.41833 0.6364531 0.6364531 0.6364531 0.3370783 0.3938833 0.6364531 0.6364531 0.000000 24.15584 16.48725 15.48934 12.43193 12.46899 0.6373642 0.6373642 0.6373642 0.3373787 0.3941256 0.6373642 0.6373642 0.000000 24.32864 16.52168 15.53379 12.47604 12.51481 0.6382999 0.6382999 0.6382999 0.3376336 0.3943456 0.6382999 0.6382999 0.000000 24.48607 16.55074 15.57299 12.51464 12.55508 0.6391149 0.6391149 0.6391149 0.3379162 0.3945611 0.6391149 0.6391149 0.000000 24.61961 16.57870 15.60907 12.55148 12.59180 0.6397510 0.6397510 0.6397510 0.3381365 0.3947849 0.6397510 0.6397510 0.000000 24.74159 16.60175 15.64126 12.58268 12.62633 0.6404433 0.6404433 0.6404433 0.3383575 0.3949619 0.6404433 0.6404433 0.000000 24.90942 16.62329 15.66857 12.61446 12.65798 0.6411131 0.6411131 0.6411131 0.3385871 0.3951637 0.6411131 0.6411131 0.000000 25.02797 16.64159 15.69612 12.64241 12.68586 0.6416780 0.6416780 0.6416780 0.3387799 0.3953316 0.6416780 0.6416780 0.000000 25.14510 16.65954 15.72027 12.66885 12.71386 0.6422532 0.6422532 0.6422532 0.3389925 0.3954702 0.6422532 0.6422532 0.000000 25.24383 16.67746 15.74570 12.69258 12.73916 0.6427499 0.6427499 0.6427499 0.3391259 0.3956470 0.6427499 0.6427499 0.000000 25.34156 16.69338 15.76860 12.71725 12.76375 0.6432774 0.6432774 0.6432774 0.3392864 0.3957372 0.6432774 0.6432774 0.000000 25.43975 16.70757 15.78934 12.73987 12.78631 0.6438430 0.6438430 0.6438430 0.3394763 0.3959348 0.6438430 0.6438430 0.000000 25.53121 16.72028 15.80820 12.76071 12.80868 0.6442550 0.6442550 0.6442550 0.3395958 0.3960504 0.6442550 0.6442550 0.000000 25.61725 16.73605 15.82939 12.77998 12.82948 0.6447170 0.6447170 0.6447170 0.3397489 0.3961496 0.6447170 0.6447170 0.000000 25.69847 16.74627 15.84512 12.79944 12.85045 0.6451350 0.6451350 0.6451350 0.3398863 0.3962975 0.6451350 0.6451350 0.000000 25.77477 16.75977 15.86348 12.81922 12.87016 0.6456112 0.6456112 0.6456112 0.3400600 0.3963684 0.6456112 0.6456112 0.000000 25.85432 16.77230 15.88065 12.83786 12.88719 0.6459528 0.6459528 0.6459528 0.3401699 0.3964903 0.6459528 0.6459528 0.000000 25.93033 16.78396 15.89673 12.85391 12.90630 0.6463590 0.6463590 0.6463590 0.3403184 0.3966007 0.6463590 0.6463590 0.000000 25.99656 16.79274 15.91184 12.87215 12.92447 0.6467345 0.6467345 0.6467345 0.3404054 0.3967006 0.6467345 0.6467345 0.000000 26.06643 16.80293 15.92607 12.88643 12.94178 0.6470817 0.6470817 0.6470817 0.3405830 0.3967907 0.6470817 0.6470817 0.000000 26.13231 16.81453 15.94330 12.90303 12.95831 0.6475000 0.6475000 0.6475000 0.3406504 0.3969349 0.6475000 0.6475000 0.000000 26.19688 16.82347 15.95596 12.91891 12.99201 0.6477968 0.6477968 0.6477968 0.3408095 0.3970075 0.6477968 0.6477968 0.000000 26.25918 16.83187 15.96796 12.93413 13.00826 0.6481680 0.6481680 0.6481680 0.3409102 0.3971352 0.6481680 0.6481680 0.000000 26.31937 16.83978 15.98309 12.94873 13.02704 0.6485180 0.6485180 0.6485180 0.3410033 0.3971926 0.6485180 0.6485180 0.000000 26.37762 16.84925 15.99761 12.96276 13.04527 0.6488483 0.6488483 0.6488483 0.3411392 0.3973059 0.6488483 0.6488483 0.000000 26.44049 16.85829 16.00785 12.99431 13.04038 0.6490636 0.6490636 0.6490636 0.3412184 0.3973500 0.6490636 0.6490636 0.000000 26.49523 16.86491 16.02131 13.00826 13.05719 0.6494544 0.6494544 0.6494544 0.3412914 0.3974507 0.6494544 0.6494544 0.000000 26.54676 16.87516 16.03429 13.02490 13.07048 0.6497325 0.6497325 0.6497325 0.3414082 0.3975455 0.6497325 0.6497325 0.000000 26.59831 16.88106 16.04312 13.03799 13.08642 0.6499952 0.6499952 0.6499952 0.3415193 0.3976348 0.6499952 0.6499952 0.000000 26.64848 16.89061 16.05524 13.04049 13.10196 0.6503392 0.6503392 0.6503392 0.3416251 0.3977190 0.6503392 0.6503392 0.000000 26.70373 16.89589 16.06696 13.04649 13.11407 0.6505737 0.6505737 0.6505737 0.3416762 0.3977982 0.6505737 0.6505737 0.000000 26.75137 16.90483 16.07831 13.06122 13.12890 0.6508908 0.6508908 0.6508908 0.3417722 0.3978727 0.6508908 0.6508908 0.000000 26.79786 16.90956 16.08931 13.07254 13.14340 0.6511000 0.6511000 0.6511000 0.3418635 0.3979428 0.6511000 0.6511000 0.000000 26.84962 16.91795 16.09998 13.08663 13.15761 0.6513929 0.6513929 0.6513929 0.3419506 0.3980087 0.6513929 0.6513929 0.000000 26.89399 16.92609 16.11034 13.10042 13.17152 0.6516745 0.6516745 0.6516745 0.3420335 0.3980706 0.6516745 0.6516745 0.000000 26.94373 16.93011 16.12041 13.11087 13.16310 0.6519454 0.6519454 0.6519454 0.3421125 0.3981286 0.6519454 0.6519454 0.000000 26.97826 16.93779 16.13020 13.12412 13.17615 0.6522061 0.6522061 0.6522061 0.3422370 0.3981830 0.6522061 0.6522061 0.000000 27.02607 16.94526 16.13972 13.13712 13.18896 0.6524571 0.6524571 0.6524571 0.3423087 0.3982959 0.6524571 0.6524571 0.000000 27.06673 16.94868 16.14899 13.14682 13.19850 0.6526988 0.6526988 0.6526988 0.3423769 0.3983434 0.6526988 0.6526988 0.000000 27.10660 16.95576 16.15803 13.15936 13.21084 0.6529316 0.6529316 0.6529316 0.3424419 0.3983876 0.6529316 0.6529316 0.000000 27.14571 16.96265 16.16683 13.17015 13.22296 0.6531559 0.6531559 0.6531559 0.3425038 0.3984907 0.6531559 0.6531559 0.000000 27.18410 16.96937 16.17543 13.16180 13.23488 0.6533721 0.6533721 0.6533721 0.3426116 0.3985289 0.6533721 0.6533721 0.000000 27.22810 16.97402 16.18381 13.17345 13.24661 0.6535805 0.6535805 0.6535805 0.3426675 0.3985643 0.6535805 0.6535805 0.000000 27.26514 16.97852 16.19200 13.18188 13.25512 0.6537815 0.6537815 0.6537815 0.3427696 0.3986587 0.6537815 0.6537815 0.000000 1.550388 4.075965 4.782992 5.480160 5.851845 0.6240174 0.6240174 0.6240174 0.3325781 0.3896405 0.6240174 0.6240174 0.000000 20.16346 15.71169 14.61639 11.71691 11.77099 0.6284022 0.6284022 0.6284022 0.3344144 0.3916137 0.6284022 0.6284022 0.000000 22.30244 16.10247 15.02609 12.02150 12.06209 0.6311432 0.6311432 0.6311432 0.3353514 0.3924255 0.6311432 0.6311432 0.000000 23.01178 16.25509 15.20191 12.16864 12.20416 0.6330734 0.6330734 0.6330734 0.3360254 0.3929823 0.6330734 0.6330734 0.000000 23.43748 16.34591 15.31084 12.26532 12.30074 0.6347047 0.6347047 0.6347047 0.3365504 0.3934064 0.6347047 0.6347047 0.000000 23.74799 16.41092 15.39223 12.33893 12.37426 0.6360417 0.6360417 0.6360417 0.3369527 0.3937837 0.6360417 0.6360417 0.000000 23.98952 16.46160 15.45553 12.40068 12.43778 0.6371420 0.6371420 0.6371420 0.3373246 0.3941256 0.6371420 0.6371420 0.000000 24.19803 16.50250 15.50738 12.45084 12.48968 0.6381579 0.6381579 0.6381579 0.3376652 0.3943465 0.6381579 0.6381579 0.000000 24.37302 16.53786 15.55295 12.49605 12.53654 0.6390812 0.6390812 0.6390812 0.3379550 0.3946047 0.6390812 0.6390812 0.000000 24.52486 16.56772 15.59312 12.53739 12.57774 0.6399754 0.6399754 0.6399754 0.3382680 0.3948541 0.6399754 0.6399754 0.000000 24.66395 16.59390 15.62782 12.57503 12.61528 0.6406824 0.6406824 0.6406824 0.3385155 0.3950441 0.6406824 0.6406824 0.000000 24.79111 16.61761 15.66081 12.60868 12.64887 0.6414377 0.6414377 0.6414377 0.3387093 0.3952489 0.6414377 0.6414377 0.000000 24.96554 16.63974 15.69310 12.63772 12.68285 0.6420642 0.6420642 0.6420642 0.3389612 0.3954762 0.6420642 0.6420642 0.000000 25.09134 16.65858 15.72123 12.66796 12.71299 0.6427816 0.6427816 0.6427816 0.3391744 0.3956037 0.6427816 0.6427816 0.000000 25.20069 16.67929 15.74593 12.69496 12.74153 0.6433049 0.6433049 0.6433049 0.3393545 0.3958280 0.6433049 0.6433049 0.000000 25.30766 16.69534 15.76978 12.72084 12.76734 0.6439454 0.6439454 0.6439454 0.3395568 0.3959613 0.6439454 0.6439454 0.000000 25.41399 16.71165 15.79316 12.74596 12.79398 0.6444149 0.6444149 0.6444149 0.3397335 0.3961344 0.6444149 0.6444149 0.000000 25.51265 16.72842 15.81635 12.76902 12.81855 0.6450183 0.6450183 0.6450183 0.3398876 0.3962226 0.6450183 0.6450183 0.000000 25.60511 16.74146 15.83562 12.79185 12.84131 0.6454665 0.6454665 0.6454665 0.3400723 0.3964186 0.6454665 0.6454665 0.000000 25.69210 16.75533 15.85716 12.81308 12.86248 0.6459622 0.6459622 0.6459622 0.3401882 0.3965339 0.6459622 0.6459622 0.000000 25.77362 16.76801 15.87328 12.83288 12.88534 0.6464119 0.6464119 0.6464119 0.3403383 0.3966337 0.6464119 0.6464119 0.000000 25.85790 16.78175 15.89197 12.85141 12.90382 0.6468202 0.6468202 0.6468202 0.3405238 0.3967823 0.6468202 0.6468202 0.000000 25.93822 16.79240 15.90945 12.87191 12.92424 0.6472880 0.6472880 0.6472880 0.3406453 0.3969179 0.6472880 0.6472880 0.000000 26.01496 16.80430 15.92583 12.88826 12.94361 0.6476238 0.6476238 0.6476238 0.3408045 0.3969785 0.6476238 0.6476238 0.000000 26.08845 16.81540 15.94505 12.90676 12.96204 0.6480251 0.6480251 0.6480251 0.3409021 0.3970910 0.6480251 0.6480251 0.000000 26.15761 16.82579 15.95953 12.92439 12.99785 0.6484936 0.6484936 0.6484936 0.3410392 0.3971932 0.6484936 0.6484936 0.000000 26.22526 16.83756 15.97321 12.94122 13.01898 0.6488382 0.6488382 0.6488382 0.3411664 0.3973487 0.6488382 0.6488382 0.000000 26.29041 16.84669 15.98990 12.95732 13.03627 0.6492541 0.6492541 0.6492541 0.3412845 0.3974326 0.6492541 0.6492541 0.000000 26.35971 16.85528 16.00213 12.99053 13.04521 0.6495502 0.6495502 0.6495502 0.3413940 0.3975082 0.6495502 0.6495502 0.000000 26.42043 16.86337 16.01746 13.00639 13.05536 0.6499206 0.6499206 0.6499206 0.3415453 0.3976387 0.6499206 0.6499206 0.000000 26.47918 16.87499 16.03218 13.02482 13.07040 0.6502705 0.6502705 0.6502705 0.3416394 0.3976994 0.6502705 0.6502705 0.000000 26.53448 16.88217 16.04264 13.04273 13.08800 0.6506012 0.6506012 0.6506012 0.3417266 0.3978158 0.6506012 0.6506012 0.000000 26.59593 16.89291 16.05628 13.03761 13.10512 0.6509140 0.6509140 0.6509140 0.3418567 0.3978633 0.6509140 0.6509140 0.000000 26.65576 16.89931 16.06944 13.05108 13.12178 0.6513051 0.6513051 0.6513051 0.3419806 0.3979672 0.6513051 0.6513051 0.000000 26.70771 16.90930 16.08214 13.06720 13.13802 0.6515850 0.6515850 0.6515850 0.3420493 0.3980652 0.6515850 0.6515850 0.000000 26.75825 16.91503 16.09441 13.08292 13.15386 0.6518498 0.6518498 0.6518498 0.3421618 0.3981578 0.6518498 0.6518498 0.000000 26.81384 16.92435 16.10629 13.09519 13.16933 0.6521955 0.6521955 0.6521955 0.3422198 0.3982453 0.6521955 0.6521955 0.000000 26.86817 16.92949 16.11778 13.11017 13.16242 0.6524326 0.6524326 0.6524326 0.3423221 0.3983279 0.6524326 0.6524326 0.000000 26.91498 16.93823 16.12893 13.12483 13.17686 0.6527519 0.6527519 0.6527519 0.3424196 0.3984058 0.6527519 0.6527519 0.000000 26.96703 16.94670 16.13974 13.13917 13.19098 0.6529642 0.6529642 0.6529642 0.3425127 0.3984793 0.6529642 0.6529642 0.000000 27.00369 16.95107 16.15024 13.15014 13.20480 0.6532597 0.6532597 0.6532597 0.3426015 0.3985486 0.6532597 0.6532597 0.000000 27.05358 16.95906 16.16044 13.16391 13.21834 0.6535441 0.6535441 0.6535441 0.3426862 0.3986139 0.6535441 0.6535441 0.000000 27.10251 16.96681 16.17036 13.15855 13.22859 0.6538179 0.6538179 0.6538179 0.3428159 0.3986753 0.6538179 0.6538179 0.000000 27.14424 16.97245 16.18001 13.16846 13.24464 0.6540816 0.6540816 0.6540816 0.3428930 0.3987331 0.6540816 0.6540816 0.000000 27.18513 16.97789 16.18941 13.18116 13.25439 0.6543359 0.6543359 0.6543359 0.3429666 0.3988490 0.6543359 0.6543359 0.000000 27.23151 16.98504 16.19856 13.19362 13.26998 0.6545808 0.6545808 0.6545808 0.3430368 0.3988999 0.6545808 0.6545808 0.000000 27.27712 16.99200 16.21107 13.20587 13.27928 0.6548170 0.6548170 0.6548170 0.3431524 0.3990091 0.6548170 0.6548170 0.000000 27.31569 16.99879 16.21977 13.21790 13.29445 0.6550449 0.6550449 0.6550449 0.3432162 0.3990537 0.6550449 0.6550449 0.000000 27.35357 17.00352 16.22827 13.22671 13.29699 0.6553583 0.6553583 0.6553583 0.3432770 0.3990953 0.6553583 0.6553583 0.000000 27.39707 17.00811 16.23656 13.23836 13.29658 0.6555702 0.6555702 0.6555702 0.3433835 0.3991955 0.6555702 0.6555702 0.000000 1.552752 4.090787 4.800732 5.504549 5.876568 0.6240982 0.6240982 0.6240982 0.3326227 0.3896808 0.6240982 0.6240982 0.000000 20.21851 15.72699 14.63321 11.72991 11.78078 0.6286496 0.6286496 0.6286496 0.3345193 0.3917361 0.6286496 0.6286496 0.000000 22.32565 16.11585 15.03879 12.03310 12.07117 0.6315165 0.6315165 0.6315165 0.3354855 0.3925430 0.6315165 0.6315165 0.000000 23.03431 16.26708 15.21431 12.17856 12.21631 0.6335707 0.6335707 0.6335707 0.3361960 0.3931229 0.6335707 0.6335707 0.000000 23.46391 16.35963 15.32538 12.27754 12.31499 0.6352686 0.6352686 0.6352686 0.3367344 0.3936151 0.6352686 0.6352686 0.000000 23.77753 16.42301 15.40576 12.35288 12.39013 0.6366376 0.6366376 0.6366376 0.3371894 0.3939824 0.6366376 0.6366376 0.000000 24.02168 16.47208 15.47046 12.41409 12.45121 0.6378500 0.6378500 0.6378500 0.3376044 0.3943057 0.6378500 0.6378500 0.000000 24.22447 16.51404 15.52346 12.46730 12.50610 0.6388581 0.6388581 0.6388581 0.3379292 0.3945667 0.6388581 0.6388581 0.000000 24.40166 16.55028 15.57000 12.51528 12.55394 0.6398633 0.6398633 0.6398633 0.3382506 0.3948599 0.6398633 0.6398633 0.000000 24.56285 16.58089 15.61100 12.55567 12.59599 0.6407278 0.6407278 0.6407278 0.3385395 0.3951403 0.6407278 0.6407278 0.000000 24.69981 16.60772 15.64646 12.59235 12.63598 0.6414992 0.6414992 0.6414992 0.3388119 0.3953583 0.6414992 0.6414992 0.000000 24.88534 16.63201 15.68010 12.62840 12.67189 0.6423116 0.6423116 0.6423116 0.3390797 0.3955245 0.6423116 0.6423116 0.000000 25.01258 16.65464 15.71086 12.65973 12.70643 0.6429903 0.6429903 0.6429903 0.3393004 0.3957111 0.6429903 0.6429903 0.000000 25.14330 16.67396 15.73957 12.69215 12.73548 0.6436552 0.6436552 0.6436552 0.3395322 0.3959241 0.6436552 0.6436552 0.000000 25.25384 16.69505 15.76685 12.71801 12.76613 0.6443216 0.6443216 0.6443216 0.3397294 0.3961045 0.6443216 0.6443216 0.000000 25.36935 16.71150 15.79319 12.74596 12.79398 0.6449031 0.6449031 0.6449031 0.3398966 0.3962566 0.6449031 0.6449031 0.000000 25.46928 16.72815 15.81697 12.77150 12.82102 0.6455086 0.6455086 0.6455086 0.3400881 0.3964470 0.6455086 0.6455086 0.000000 25.56891 16.74522 15.83855 12.79653 12.84597 0.6460482 0.6460482 0.6460482 0.3402562 0.3965517 0.6460482 0.6460482 0.000000 25.66899 16.75857 15.85821 12.81971 12.86909 0.6465293 0.6465293 0.6465293 0.3404537 0.3966998 0.6465293 0.6465293 0.000000 25.75624 16.77272 15.88009 12.84127 12.89060 0.6470553 0.6470553 0.6470553 0.3406323 0.3968298 0.6470553 0.6470553 0.000000 25.84567 16.78567 15.90043 12.86139 12.91376 0.6475339 0.6475339 0.6475339 0.3407938 0.3970065 0.6475339 0.6475339 0.000000 25.93066 16.79963 15.91940 12.88333 12.93562 0.6480663 0.6480663 0.6480663 0.3409398 0.3971053 0.6480663 0.6480663 0.000000 26.01166 16.81260 15.93715 12.90100 12.95630 0.6484627 0.6484627 0.6484627 0.3410717 0.3972533 0.6484627 0.6484627 0.000000 26.08905 16.82469 15.95380 12.92070 12.99391 0.6489198 0.6489198 0.6489198 0.3412406 0.3973261 0.6489198 0.6489198 0.000000 26.16178 16.83598 15.96946 12.93943 13.01706 0.6493440 0.6493440 0.6493440 0.3413478 0.3974501 0.6493440 0.6493440 0.000000 26.23273 16.84655 15.98798 12.95728 13.03622 0.6497378 0.6497378 0.6497378 0.3414937 0.3975633 0.6497378 0.6497378 0.000000 26.30739 16.85646 16.00189 12.99221 13.03833 0.6501036 0.6501036 0.6501036 0.3416294 0.3977291 0.6501036 0.6501036 0.000000 26.37306 16.86578 16.01878 13.00969 13.05860 0.6505393 0.6505393 0.6505393 0.3417557 0.3978232 0.6505393 0.6505393 0.000000 26.44284 16.87653 16.03495 13.02963 13.07514 0.6508550 0.6508550 0.6508550 0.3418731 0.3979086 0.6508550 0.6508550 0.000000 26.51044 16.88676 16.04676 13.04896 13.09413 0.6512437 0.6512437 0.6512437 0.3419823 0.3979861 0.6512437 0.6512437 0.000000 26.56793 16.89454 16.06166 13.04499 13.11256 0.6516113 0.6516113 0.6516113 0.3421332 0.3981182 0.6516113 0.6516113 0.000000 26.62510 16.90581 16.07600 13.06276 13.13046 0.6519590 0.6519590 0.6519590 0.3422275 0.3981811 0.6519590 0.6519590 0.000000 26.68692 16.91273 16.08981 13.08004 13.14787 0.6522882 0.6522882 0.6522882 0.3423150 0.3982993 0.6522882 0.6522882 0.000000 26.74711 16.92319 16.10312 13.09377 13.16791 0.6526947 0.6526947 0.6526947 0.3424453 0.3984112 0.6526947 0.6526947 0.000000 26.79941 16.92938 16.11597 13.11015 13.16240 0.6529899 0.6529899 0.6529899 0.3425696 0.3985171 0.6529899 0.6529899 0.000000 26.85664 16.93912 16.12840 13.12613 13.17814 0.6532698 0.6532698 0.6532698 0.3426880 0.3985555 0.6532698 0.6532698 0.000000 26.91253 16.94853 16.14042 13.14172 13.19349 0.6536293 0.6536293 0.6536293 0.3427522 0.3986504 0.6536293 0.6536293 0.000000 26.96398 16.95379 16.15206 13.15696 13.20849 0.6539748 0.6539748 0.6539748 0.3428601 0.3987403 0.6539748 0.6539748 0.000000 27.01255 16.96262 16.16334 13.17033 13.22315 0.6542129 0.6542129 0.6542129 0.3429632 0.3988253 0.6542129 0.6542129 0.000000 27.06473 16.97117 16.17429 13.16438 13.23749 0.6545326 0.6545326 0.6545326 0.3430616 0.3989056 0.6545326 0.6545326 0.000000 27.10953 16.97566 16.18492 13.17832 13.25153 0.6547465 0.6547465 0.6547465 0.3431556 0.3989816 0.6547465 0.6547465 0.000000 27.15963 16.98372 16.19524 13.19198 13.26832 0.6550429 0.6550429 0.6550429 0.3432454 0.3990535 0.6550429 0.6550429 0.000000 27.20877 16.99155 16.20529 13.20537 13.27878 0.6553285 0.6553285 0.6553285 0.3433312 0.3991213 0.6553285 0.6553285 0.000000 27.25071 16.99916 16.21863 13.21850 13.29506 0.6556037 0.6556037 0.6556037 0.3434617 0.3992467 0.6556037 0.6556037 0.000000 27.29808 17.00468 16.22814 13.22835 13.30143 0.6558690 0.6558690 0.6558690 0.3435400 0.3993071 0.6558690 0.6558690 0.000000 27.34464 17.01002 16.23741 13.24403 13.30218 0.6561249 0.6561249 0.6561249 0.3436148 0.3993639 0.6561249 0.6561249 0.000000 27.38411 17.01704 16.24644 13.25344 13.31144 0.6564650 0.6564650 0.6564650 0.3436862 0.3994175 0.6564650 0.6564650 0.000000 27.42914 17.02390 16.25881 13.26869 13.32648 0.6567031 0.6567031 0.6567031 0.3437545 0.3995289 0.6567031 0.6567031 0.000000 27.46578 17.03058 16.26740 13.27768 13.33532 0.6569330 0.6569330 0.6569330 0.3438680 0.3995761 0.6569330 0.6569330 0.000000 27.50933 17.03710 16.27579 13.29255 13.34996 0.6572478 0.6572478 0.6572478 0.3439784 0.3996814 0.6572478 0.6572478 0.000000 1.557366 4.107114 4.817110 5.522511 5.894780 0.6241677 0.6241677 0.6241677 0.3326616 0.3897155 0.6241677 0.6241677 0.000000 20.25490 15.74002 14.64327 11.73746 11.79132 0.6288238 0.6288238 0.6288238 0.3345937 0.3917681 0.6288238 0.6288238 0.000000 22.34458 16.12293 15.04875 12.04203 12.08010 0.6317873 0.6317873 0.6317873 0.3356326 0.3926269 0.6317873 0.6317873 0.000000 23.05210 16.27649 15.22377 12.19010 12.22562 0.6339471 0.6339471 0.6339471 0.3363725 0.3932891 0.6339471 0.6339471 0.000000 23.48520 16.36756 15.33681 12.28881 12.32624 0.6356982 0.6356982 0.6356982 0.3369192 0.3937140 0.6356982 0.6356982 0.000000 23.79729 16.43235 15.41867 12.36564 12.40285 0.6371924 0.6371924 0.6371924 0.3374226 0.3941327 0.6371924 0.6371924 0.000000 24.04809 16.48526 15.48210 12.42806 12.46513 0.6384049 0.6384049 0.6384049 0.3378249 0.3944990 0.6384049 0.6384049 0.000000 24.25288 16.52536 15.53618 12.48227 12.52102 0.6395004 0.6395004 0.6395004 0.3381835 0.3947970 0.6395004 0.6395004 0.000000 24.43179 16.55980 15.58362 12.52932 12.56972 0.6405805 0.6405805 0.6405805 0.3385340 0.3950581 0.6405805 0.6405805 0.000000 24.59448 16.59358 15.62541 12.57225 12.61254 0.6415107 0.6415107 0.6415107 0.3388483 0.3953032 0.6415107 0.6415107 0.000000 24.73281 16.62097 15.66157 12.61131 12.65319 0.6423404 0.6423404 0.6423404 0.3390920 0.3955473 0.6423404 0.6423404 0.000000 24.92061 16.64340 15.69583 12.64793 12.69136 0.6431052 0.6431052 0.6431052 0.3393802 0.3958011 0.6431052 0.6431052 0.000000 25.05841 16.66651 15.72923 12.68145 12.72480 0.6438316 0.6438316 0.6438316 0.3396195 0.3960092 0.6438316 0.6438316 0.000000 25.18116 16.68853 15.75841 12.71105 12.75758 0.6445398 0.6445398 0.6445398 0.3398175 0.3961784 0.6445398 0.6445398 0.000000 25.29973 16.70773 15.78411 12.74062 12.78707 0.6452458 0.6452458 0.6452458 0.3400305 0.3963772 0.6452458 0.6452458 0.000000 25.41621 16.72675 15.81087 12.76737 12.81692 0.6458640 0.6458640 0.6458640 0.3402629 0.3965465 0.6458640 0.6458640 0.000000 25.52384 16.74371 15.83505 12.79488 12.84433 0.6465033 0.6465033 0.6465033 0.3404679 0.3966897 0.6465033 0.6465033 0.000000 25.62430 16.75890 15.85897 12.82025 12.86963 0.6470745 0.6470745 0.6470745 0.3406485 0.3968728 0.6470745 0.6470745 0.000000 25.71793 16.77467 15.88093 12.84377 12.89309 0.6475853 0.6475853 0.6475853 0.3408075 0.3970350 0.6475853 0.6475853 0.000000 25.81306 16.78906 15.90310 12.86564 12.91799 0.6480421 0.6480421 0.6480421 0.3409972 0.3971784 0.6480421 0.6480421 0.000000 25.90318 16.80432 15.92372 12.88915 12.94142 0.6486436 0.6486436 0.6486436 0.3411691 0.3973049 0.6486436 0.6486436 0.000000 25.98883 16.81640 15.94296 12.90825 12.96353 0.6491038 0.6491038 0.6491038 0.3413251 0.3974159 0.6491038 0.6491038 0.000000 26.07047 16.82752 15.96097 12.92926 13.00304 0.6495239 0.6495239 0.6495239 0.3414665 0.3975753 0.6495239 0.6495239 0.000000 26.14711 16.83981 15.97787 12.94919 13.02752 0.6500033 0.6500033 0.6500033 0.3416443 0.3977217 0.6500033 0.6500033 0.000000 26.22809 16.85130 15.99752 12.96813 13.05105 0.6504486 0.6504486 0.6504486 0.3418096 0.3977937 0.6504486 0.6504486 0.000000 26.30602 16.86406 16.01249 13.00492 13.05392 0.6508626 0.6508626 0.6508626 0.3419141 0.3979170 0.6508626 0.6508626 0.000000 26.37470 16.87614 16.03035 13.02659 13.07215 0.6513432 0.6513432 0.6513432 0.3420576 0.3980300 0.6513432 0.6513432 0.000000 26.44727 16.88560 16.04372 13.04753 13.09274 0.6517015 0.6517015 0.6517015 0.3421912 0.3981956 0.6517015 0.6517015 0.000000 26.50951 16.89451 16.06007 13.04508 13.11265 0.6521301 0.6521301 0.6521301 0.3423158 0.3982900 0.6521301 0.6521301 0.000000 26.57735 16.90684 16.07576 13.06423 13.13502 0.6525354 0.6525354 0.6525354 0.3424320 0.3983762 0.6525354 0.6525354 0.000000 26.64316 16.91475 16.09083 13.08280 13.15374 0.6529189 0.6529189 0.6529189 0.3425892 0.3985164 0.6529189 0.6529189 0.000000 26.70707 16.92613 16.10532 13.10083 13.17039 0.6531876 0.6531876 0.6531876 0.3426900 0.3985873 0.6531876 0.6531876 0.000000 26.76922 16.93319 16.11929 13.11529 13.16747 0.6536261 0.6536261 0.6536261 0.3427838 0.3986515 0.6536261 0.6536261 0.000000 26.82972 16.94373 16.13275 13.13235 13.18731 0.6539522 0.6539522 0.6539522 0.3429199 0.3987708 0.6539522 0.6539522 0.000000 26.88233 16.95005 16.14575 13.14899 13.20368 0.6542616 0.6542616 0.6542616 0.3430497 0.3988839 0.6542616 0.6542616 0.000000 26.94618 16.95988 16.15831 13.16829 13.21964 0.6546489 0.6546489 0.6546489 0.3431736 0.3989911 0.6546489 0.6546489 0.000000 26.99436 16.96937 16.17047 13.16212 13.23521 0.6550210 0.6550210 0.6550210 0.3432433 0.3990928 0.6550210 0.6550210 0.000000 27.04910 16.97475 16.18225 13.17723 13.25043 0.6552850 0.6552850 0.6552850 0.3433563 0.3991277 0.6552850 0.6552850 0.000000 27.10263 16.98366 16.19366 13.19199 13.26834 0.6556292 0.6556292 0.6556292 0.3434644 0.3992192 0.6556292 0.6556292 0.000000 27.14872 16.99228 16.20473 13.20644 13.28290 0.6558670 0.6558670 0.6558670 0.3435676 0.3993058 0.6558670 0.6558670 0.000000 27.20634 17.00065 16.21906 13.22058 13.29716 0.6561860 0.6561860 0.6561860 0.3436664 0.3993879 0.6561860 0.6561860 0.000000 27.25033 17.00502 16.22950 13.23443 13.29271 0.6564932 0.6564932 0.6564932 0.3437608 0.3994657 0.6564932 0.6564932 0.000000 27.29966 17.01292 16.23965 13.24800 13.30610 0.6567894 0.6567894 0.6567894 0.3438511 0.3996005 0.6567894 0.6567894 0.000000 27.34807 17.02060 16.24953 13.26132 13.31922 0.6570750 0.6570750 0.6570750 0.3439375 0.3996702 0.6570750 0.6570750 0.000000 27.38932 17.02807 16.26270 13.27439 13.33209 0.6573504 0.6573504 0.6573504 0.3440682 0.3997361 0.6573504 0.6573504 0.000000 27.44231 17.03535 16.27207 13.28723 13.34473 0.6576161 0.6576161 0.6576161 0.3441472 0.3997984 0.6576161 0.6576161 0.000000 27.48052 17.04243 16.28475 13.29985 13.35714 0.6578726 0.6578726 0.6578726 0.3442228 0.3998572 0.6578726 0.6578726 0.000000 27.51932 17.04934 16.29365 13.29380 13.37234 0.6582127 0.6582127 0.6582127 0.3442951 0.3999736 0.6582127 0.6582127 0.000000 27.56368 17.05607 16.30234 13.30573 13.38433 0.6585442 0.6585442 0.6585442 0.3444121 0.4000259 0.6585442 0.6585442 0.000000 27.60735 17.05895 16.31083 13.31745 13.39613 0.6587750 0.6587750 0.6587750 0.3444782 0.4000752 0.6587750 0.6587750 0.000000 1.561702 4.122390 4.829543 5.539391 5.911888 0.6242285 0.6242285 0.6242285 0.3326403 0.3897458 0.6242285 0.6242285 0.000000 20.27362 15.75130 14.65568 11.74631 11.80006 0.6290467 0.6290467 0.6290467 0.3346970 0.3918460 0.6290467 0.6290467 0.000000 22.36594 16.13199 15.05992 12.05137 12.08940 0.6320803 0.6320803 0.6320803 0.3357452 0.3927483 0.6320803 0.6320803 0.000000 23.07627 16.28389 15.23389 12.19936 12.23486 0.6343285 0.6343285 0.6343285 0.3365091 0.3933563 0.6343285 0.6343285 0.000000 23.50247 16.37646 15.34581 12.29975 12.33512 0.6361206 0.6361206 0.6361206 0.3371129 0.3939054 0.6361206 0.6361206 0.000000 23.82140 16.44239 15.42651 12.37591 12.41311 0.6376270 0.6376270 0.6376270 0.3376086 0.3943069 0.6376270 0.6376270 0.000000 24.07001 16.49345 15.49360 12.43945 12.47834 0.6389351 0.6389351 0.6389351 0.3380479 0.3946486 0.6389351 0.6389351 0.000000 24.27661 16.53441 15.54859 12.49639 12.53333 0.6401111 0.6401111 0.6401111 0.3384377 0.3949812 0.6401111 0.6401111 0.000000 24.45708 16.57207 15.59681 12.54421 12.58455 0.6411593 0.6411593 0.6411593 0.3387634 0.3952726 0.6411593 0.6411593 0.000000 24.62112 16.60147 15.63707 12.58608 12.62973 0.6421506 0.6421506 0.6421506 0.3391014 0.3955446 0.6421506 0.6421506 0.000000 24.76068 16.62945 15.67604 12.62746 12.67095 0.6430346 0.6430346 0.6430346 0.3393663 0.3958127 0.6430346 0.6430346 0.000000 24.95768 16.65707 15.71294 12.66294 12.70800 0.6438481 0.6438481 0.6438481 0.3396734 0.3960246 0.6438481 0.6438481 0.000000 25.09663 16.68054 15.74265 12.69698 12.74356 0.6446184 0.6446184 0.6446184 0.3399299 0.3962527 0.6446184 0.6446184 0.000000 25.22038 16.70065 15.77231 12.73031 12.77678 0.6453665 0.6453665 0.6453665 0.3401436 0.3964404 0.6453665 0.6453665 0.000000 25.33988 16.72019 15.80248 12.76027 12.80667 0.6461089 0.6461089 0.6461089 0.3403710 0.3966563 0.6461089 0.6461089 0.000000 25.45724 16.73734 15.82960 12.78740 12.83689 0.6466634 0.6466634 0.6466634 0.3405664 0.3968414 0.6466634 0.6466634 0.000000 25.56570 16.75461 15.85412 12.81525 12.86465 0.6473341 0.6473341 0.6473341 0.3407837 0.3969995 0.6473341 0.6473341 0.000000 25.67364 16.77222 15.87640 12.84095 12.89338 0.6479347 0.6479347 0.6479347 0.3409760 0.3971336 0.6479347 0.6479347 0.000000 25.76791 16.78823 15.90061 12.86477 12.91713 0.6484731 0.6484731 0.6484731 0.3411959 0.3973089 0.6484731 0.6484731 0.000000 25.86368 16.80286 15.92305 12.89003 12.94230 0.6490524 0.6490524 0.6490524 0.3413458 0.3974648 0.6490524 0.6490524 0.000000 25.95443 16.81626 15.94393 12.91071 12.96598 0.6495813 0.6495813 0.6495813 0.3415274 0.3976031 0.6495813 0.6495813 0.000000 26.04722 16.83061 15.96343 12.93314 13.00719 0.6501604 0.6501604 0.6501604 0.3416926 0.3977254 0.6501604 0.6501604 0.000000 26.12809 16.84397 15.98168 12.95437 13.03308 0.6506022 0.6506022 0.6506022 0.3418922 0.3978955 0.6506022 0.6506022 0.000000 26.20641 16.85642 16.00069 12.99240 13.03852 0.6511016 0.6511016 0.6511016 0.3420285 0.3979897 0.6511016 0.6511016 0.000000 26.28787 16.86807 16.01868 13.01606 13.06181 0.6515662 0.6515662 0.6515662 0.3421523 0.3981338 0.6515662 0.6515662 0.000000 26.36625 16.87898 16.03758 13.03573 13.08422 0.6519987 0.6519987 0.6519987 0.3423137 0.3982663 0.6519987 0.6519987 0.000000 26.44180 16.89318 16.05192 13.03831 13.10583 0.6524964 0.6524964 0.6524964 0.3424642 0.3983882 0.6524964 0.6524964 0.000000 26.51157 16.90279 16.06917 13.05903 13.12670 0.6528717 0.6528717 0.6528717 0.3426047 0.3985002 0.6528717 0.6528717 0.000000 26.57722 16.91184 16.08569 13.07907 13.14690 0.6532217 0.6532217 0.6532217 0.3427359 0.3986030 0.6532217 0.6532217 0.000000 26.64542 16.92427 16.10154 13.09541 13.16957 0.6537366 0.6537366 0.6537366 0.3428583 0.3987589 0.6537366 0.6537366 0.000000 26.71156 16.93232 16.11676 13.11424 13.16644 0.6540406 0.6540406 0.6540406 0.3429727 0.3988450 0.6540406 0.6540406 0.000000 26.77579 16.94379 16.13141 13.13560 13.18748 0.6545120 0.6545120 0.6545120 0.3431281 0.3989235 0.6545120 0.6545120 0.000000 26.83824 16.95097 16.14552 13.15339 13.20498 0.6547759 0.6547759 0.6547759 0.3432762 0.3990563 0.6547759 0.6547759 0.000000 26.90537 16.96161 16.15912 13.17071 13.22201 0.6552091 0.6552091 0.6552091 0.3433690 0.3991210 0.6552091 0.6552091 0.000000 26.95826 16.97186 16.17226 13.16547 13.23860 0.6555312 0.6555312 0.6555312 0.3434555 0.3992407 0.6555312 0.6555312 0.000000 27.01433 16.97796 16.18496 13.18154 13.25781 0.6558371 0.6558371 0.6558371 0.3435844 0.3993544 0.6558371 0.6558371 0.000000 27.07059 16.98754 16.19725 13.19721 13.27361 0.6562209 0.6562209 0.6562209 0.3437076 0.3994011 0.6562209 0.6562209 0.000000 27.12555 16.99680 16.21273 13.21252 13.29208 0.6565898 0.6565898 0.6565898 0.3438253 0.3995036 0.6565898 0.6565898 0.000000 27.17929 17.00389 16.22426 13.22748 13.29655 0.6569448 0.6569448 0.6569448 0.3439379 0.3996009 0.6569448 0.6569448 0.000000 27.23188 17.01072 16.23544 13.24514 13.30328 0.6572866 0.6572866 0.6572866 0.3440456 0.3996933 0.6572866 0.6572866 0.000000 27.28338 17.01916 16.24630 13.25947 13.31740 0.6576157 0.6576157 0.6576157 0.3441486 0.3997810 0.6576157 0.6576157 0.000000 27.33385 17.02735 16.26041 13.27351 13.33122 0.6578403 0.6578403 0.6578403 0.3442473 0.3998643 0.6578403 0.6578403 0.000000 27.38334 17.03531 16.27067 13.28727 13.34477 0.6581461 0.6581461 0.6581461 0.3443416 0.3999433 0.6581461 0.6581461 0.000000 27.43190 17.04305 16.28065 13.30077 13.36105 0.6585336 0.6585336 0.6585336 0.3444320 0.4000182 0.6585336 0.6585336 0.000000 27.47816 17.05058 16.29391 13.29553 13.37408 0.6588182 0.6588182 0.6588182 0.3445185 0.4001500 0.6588182 0.6588182 0.000000 27.51864 17.05791 16.30337 13.30825 13.38688 0.6590928 0.6590928 0.6590928 0.3446493 0.4002173 0.6590928 0.6590928 0.000000 27.56459 17.06137 16.31613 13.32074 13.39945 0.6593580 0.6593580 0.6593580 0.3447286 0.4002810 0.6593580 0.6593580 0.000000 27.60978 17.06833 16.32512 13.33301 13.41481 0.6596141 0.6596141 0.6596141 0.3448522 0.4004019 0.6596141 0.6596141 0.000000 27.64798 17.07513 16.33742 13.34507 13.42997 0.6598616 0.6598616 0.6598616 0.3449249 0.4004589 0.6598616 0.6598616 0.000000 27.69802 17.08176 16.34599 13.35693 13.44193 0.6601925 0.6601925 0.6601925 0.3449945 0.4005127 0.6601925 0.6601925 0.000000 1.563207 4.131096 4.841137 5.550373 5.928121 0.6241689 0.6241689 0.6241689 0.3326709 0.3897727 0.6241689 0.6241689 0.000000 20.30455 15.76117 14.66232 11.75371 11.80738 0.6292192 0.6292192 0.6292192 0.3347786 0.3919068 0.6292192 0.6292192 0.000000 22.37887 16.13951 15.06600 12.05903 12.09703 0.6324086 0.6324086 0.6324086 0.3358823 0.3928456 0.6324086 0.6324086 0.000000 23.08739 16.29301 15.24214 12.20679 12.24229 0.6347302 0.6347302 0.6347302 0.3366648 0.3935255 0.6347302 0.6347302 0.000000 23.52113 16.38367 15.35286 12.30874 12.34410 0.6365526 0.6365526 0.6365526 0.3372690 0.3939995 0.6365526 0.6365526 0.000000 23.83780 16.45065 15.43740 12.38611 12.42327 0.6381658 0.6381658 0.6381658 0.3378068 0.3944460 0.6381658 0.6381658 0.000000 24.08834 16.49986 15.50299 12.45061 12.48946 0.6394596 0.6394596 0.6394596 0.3382285 0.3948254 0.6394596 0.6394596 0.000000 24.29659 16.54420 15.55884 12.50657 12.54703 0.6407101 0.6407101 0.6407101 0.3386475 0.3951903 0.6407101 0.6407101 0.000000 24.48226 16.57993 15.60555 12.55514 12.59720 0.6418224 0.6418224 0.6418224 0.3389984 0.3954458 0.6418224 0.6418224 0.000000 24.64376 16.61235 15.65088 12.60111 12.64301 0.6427700 0.6427700 0.6427700 0.3393584 0.3957430 0.6427700 0.6427700 0.000000 24.79158 16.64076 15.68823 12.64132 12.68479 0.6437042 0.6437042 0.6437042 0.3396430 0.3960336 0.6437042 0.6437042 0.000000 24.98330 16.66644 15.72355 12.67897 12.72235 0.6445627 0.6445627 0.6445627 0.3399167 0.3962660 0.6445627 0.6445627 0.000000 25.13040 16.68805 15.75787 12.71345 12.75998 0.6453737 0.6453737 0.6453737 0.3401892 0.3964495 0.6453737 0.6453737 0.000000 25.25506 16.71078 15.78793 12.74717 12.79360 0.6461588 0.6461588 0.6461588 0.3404177 0.3966545 0.6461588 0.6461588 0.000000 25.38284 16.73064 15.81845 12.77752 12.82703 0.6468374 0.6468374 0.6468374 0.3406586 0.3968864 0.6468374 0.6468374 0.000000 25.50034 16.75026 15.84393 12.80500 12.85601 0.6475211 0.6475211 0.6475211 0.3409166 0.3970864 0.6475211 0.6475211 0.000000 25.60949 16.76778 15.87074 12.83317 12.88564 0.6482206 0.6482206 0.6482206 0.3410954 0.3972585 0.6482206 0.6482206 0.000000 25.71087 16.78350 15.89333 12.85917 12.91156 0.6488482 0.6488482 0.6488482 0.3412985 0.3974057 0.6488482 0.6488482 0.000000 25.81293 16.80183 15.91781 12.88638 12.93866 0.6494119 0.6494119 0.6494119 0.3415283 0.3975933 0.6494119 0.6494119 0.000000 25.90929 16.81459 15.94051 12.90880 12.96408 0.6500146 0.6500146 0.6500146 0.3416878 0.3977607 0.6500146 0.6500146 0.000000 26.00060 16.83025 15.96164 12.93280 13.00683 0.6505657 0.6505657 0.6505657 0.3418783 0.3979100 0.6505657 0.6505657 0.000000 26.09270 16.84477 15.98138 12.95546 13.03425 0.6510701 0.6510701 0.6510701 0.3420518 0.3980427 0.6510701 0.6510701 0.000000 26.17519 16.85829 15.99987 12.99494 13.04103 0.6515321 0.6515321 0.6515321 0.3422100 0.3981604 0.6515321 0.6515321 0.000000 26.26047 16.87090 16.02096 13.01990 13.06558 0.6520504 0.6520504 0.6520504 0.3424032 0.3983263 0.6520504 0.6520504 0.000000 26.34235 16.88270 16.03913 13.04389 13.08917 0.6525329 0.6525329 0.6525329 0.3425344 0.3984174 0.6525329 0.6525329 0.000000 26.42113 16.89376 16.05637 13.04430 13.11187 0.6529827 0.6529827 0.6529827 0.3427026 0.3985586 0.6529827 0.6529827 0.000000 26.49709 16.90807 16.07459 13.06603 13.13684 0.6534964 0.6534964 0.6534964 0.3428597 0.3986888 0.6534964 0.6534964 0.000000 26.56873 16.91782 16.09200 13.08702 13.15800 0.6539818 0.6539818 0.6539818 0.3430064 0.3988088 0.6539818 0.6539818 0.000000 26.63947 16.92895 16.10868 13.10731 13.15962 0.6543468 0.6543468 0.6543468 0.3431436 0.3989193 0.6543468 0.6543468 0.000000 26.70798 16.93954 16.12468 13.12697 13.17899 0.6547815 0.6547815 0.6547815 0.3432719 0.3990824 0.6547815 0.6547815 0.000000 26.77442 16.94964 16.14005 13.14605 13.19777 0.6551933 0.6551933 0.6551933 0.3433919 0.3991757 0.6551933 0.6551933 0.000000 26.83893 16.95928 16.15484 13.16767 13.21903 0.6555839 0.6555839 0.6555839 0.3435525 0.3992611 0.6555839 0.6555839 0.000000 26.90800 16.97040 16.16909 13.16364 13.23675 0.6559544 0.6559544 0.6559544 0.3436573 0.3994005 0.6559544 0.6559544 0.000000 26.96113 16.97731 16.18283 13.18076 13.25400 0.6563993 0.6563993 0.6563993 0.3437552 0.3994718 0.6563993 0.6563993 0.000000 27.02678 16.98765 16.19609 13.19744 13.27384 0.6567332 0.6567332 0.6567332 0.3438949 0.3995976 0.6567332 0.6567332 0.000000 27.07832 16.99763 16.21250 13.21672 13.29327 0.6570505 0.6570505 0.6570505 0.3440284 0.3996561 0.6570505 0.6570505 0.000000 27.14109 17.00540 16.22490 13.23259 13.29415 0.6574450 0.6574450 0.6574450 0.3441560 0.3997698 0.6574450 0.6574450 0.000000 27.19625 17.01286 16.23692 13.24808 13.30618 0.6578243 0.6578243 0.6578243 0.3442780 0.3998779 0.6578243 0.6578243 0.000000 27.25018 17.02191 16.24856 13.26323 13.32110 0.6581894 0.6581894 0.6581894 0.3443948 0.3999807 0.6581894 0.6581894 0.000000 27.30924 17.03067 16.26341 13.27805 13.33869 0.6585408 0.6585408 0.6585408 0.3445066 0.4000784 0.6585408 0.6585408 0.000000 27.35461 17.03918 16.27438 13.29560 13.35297 0.6587871 0.6587871 0.6587871 0.3446136 0.4001713 0.6587871 0.6587871 0.000000 27.41152 17.04743 16.28857 13.29318 13.36995 0.6591136 0.6591136 0.6591136 0.3447160 0.4002596 0.6591136 0.6591136 0.000000 27.45349 17.05545 16.29893 13.30505 13.38366 0.6594285 0.6594285 0.6594285 0.3448142 0.4003436 0.6594285 0.6594285 0.000000 27.50210 17.05956 16.30900 13.31841 13.39710 0.6598243 0.6598243 0.6598243 0.3449083 0.4004233 0.6598243 0.6598243 0.000000 27.54982 17.06716 16.32234 13.33150 13.41329 0.6601174 0.6601174 0.6601174 0.3449984 0.4004991 0.6601174 0.6601174 0.000000 27.59669 17.07455 16.33190 13.34436 13.42625 0.6604004 0.6604004 0.6604004 0.3450848 0.4005710 0.6604004 0.6604004 0.000000 27.64275 17.08175 16.34473 13.35699 13.44199 0.6606737 0.6606737 0.6606737 0.3452151 0.4006996 0.6606737 0.6606737 0.000000 27.68804 17.08877 16.35381 13.37239 13.44267 0.6609377 0.6609377 0.6609377 0.3452944 0.4007643 0.6609377 0.6609377 0.000000 27.73260 17.09561 16.36618 13.38459 13.44852 0.6611930 0.6611930 0.6611930 0.3454179 0.4008257 0.6611930 0.6611930 0.000000 27.77645 17.10229 16.37483 13.39659 13.46034 0.6615311 0.6615311 0.6615311 0.3454906 0.4009440 0.6615311 0.6615311 0.000000 1.564533 4.141991 4.852053 5.565700 5.941100 0.6242167 0.6242167 0.6242167 0.3326984 0.3897966 0.6242167 0.6242167 0.000000 20.33352 15.76992 14.67195 11.75993 11.81353 0.6293492 0.6293492 0.6293492 0.3348415 0.3919528 0.6293492 0.6293492 0.000000 22.38967 16.14580 15.07403 12.06531 12.10330 0.6325694 0.6325694 0.6325694 0.3359942 0.3929220 0.6325694 0.6325694 0.000000 23.10115 16.29747 15.24886 12.21492 12.25039 0.6350594 0.6350594 0.6350594 0.3367911 0.3936043 0.6350594 0.6350594 0.000000 23.53717 16.38949 15.36100 12.31615 12.35151 0.6369039 0.6369039 0.6369039 0.3374454 0.3941306 0.6369039 0.6369039 0.000000 23.85142 16.45746 15.44409 12.39464 12.43179 0.6385147 0.6385147 0.6385147 0.3379702 0.3946193 0.6385147 0.6385147 0.000000 24.10374 16.50748 15.51305 12.46006 12.49889 0.6399933 0.6399933 0.6399933 0.3384243 0.3949696 0.6399933 0.6399933 0.000000 24.31740 16.55246 15.56733 12.51678 12.55722 0.6412122 0.6412122 0.6412122 0.3388705 0.3953649 0.6412122 0.6412122 0.000000 24.50424 16.58874 15.61696 12.56776 12.60805 0.6422849 0.6422849 0.6422849 0.3392449 0.3956471 0.6422849 0.6422849 0.000000 24.66314 16.62162 15.66066 12.61257 12.65445 0.6433854 0.6433854 0.6433854 0.3395744 0.3959679 0.6433854 0.6433854 0.000000 24.81197 16.65045 15.70067 12.65331 12.69840 0.6443663 0.6443663 0.6443663 0.3398775 0.3962161 0.6443663 0.6443663 0.000000 25.01249 16.67422 15.73643 12.69308 12.73804 0.6452667 0.6452667 0.6452667 0.3401678 0.3964679 0.6452667 0.6452667 0.000000 25.16053 16.69845 15.77115 12.72797 12.77446 0.6461155 0.6461155 0.6461155 0.3404553 0.3966691 0.6461155 0.6461155 0.000000 25.28601 16.72148 15.80158 12.76207 12.80846 0.6468375 0.6468375 0.6468375 0.3406975 0.3968904 0.6468375 0.6468375 0.000000 25.41455 16.74162 15.83045 12.79276 12.84224 0.6476453 0.6476453 0.6476453 0.3409509 0.3971371 0.6476453 0.6476453 0.000000 25.53278 16.76148 15.85824 12.82373 12.87311 0.6482613 0.6482613 0.6482613 0.3412202 0.3972883 0.6482613 0.6482613 0.000000 25.64262 16.77924 15.88535 12.85218 12.90148 0.6489879 0.6489879 0.6489879 0.3414099 0.3974735 0.6489879 0.6489879 0.000000 25.75126 16.79518 15.90823 12.87845 12.93077 0.6496408 0.6496408 0.6496408 0.3416230 0.3976331 0.6496408 0.6496408 0.000000 25.85387 16.81370 15.93296 12.90281 12.95811 0.6502284 0.6502284 0.6502284 0.3418126 0.3978322 0.6502284 0.6502284 0.000000 25.95077 16.82667 15.95591 12.92855 13.00228 0.6508532 0.6508532 0.6508532 0.3420304 0.3980105 0.6508532 0.6508532 0.000000 26.04915 16.84249 15.97728 12.95278 13.03137 0.6514251 0.6514251 0.6514251 0.3422292 0.3981701 0.6514251 0.6514251 0.000000 26.13508 16.85718 15.99912 12.99359 13.03970 0.6519493 0.6519493 0.6519493 0.3424105 0.3983127 0.6519493 0.6519493 0.000000 26.22451 16.87086 16.01968 13.01993 13.06562 0.6525249 0.6525249 0.6525249 0.3425761 0.3984397 0.6525249 0.6525249 0.000000 26.31020 16.88362 16.03909 13.04521 13.09046 0.6529660 0.6529660 0.6529660 0.3427274 0.3986144 0.6529660 0.6529660 0.000000 26.39247 16.89557 16.05746 13.04674 13.11433 0.6534653 0.6534653 0.6534653 0.3428654 0.3987141 0.6534653 0.6534653 0.000000 26.47162 16.90873 16.07671 13.06954 13.14039 0.6540251 0.6540251 0.6540251 0.3430400 0.3988633 0.6540251 0.6540251 0.000000 26.54629 16.92119 16.09509 13.09153 13.16257 0.6544597 0.6544597 0.6544597 0.3432032 0.3990013 0.6544597 0.6544597 0.000000 26.61976 16.93107 16.11265 13.11276 13.16499 0.6549594 0.6549594 0.6549594 0.3433558 0.3991287 0.6549594 0.6549594 0.000000 26.69082 16.94425 16.12948 13.13638 13.18825 0.6553386 0.6553386 0.6553386 0.3434987 0.3992464 0.6553386 0.6553386 0.000000 26.75962 16.95302 16.14562 13.15629 13.20784 0.6558800 0.6558800 0.6558800 0.3436325 0.3993549 0.6558800 0.6558800 0.000000 26.83270 16.96514 16.16114 13.16064 13.22684 0.6562111 0.6562111 0.6562111 0.3437577 0.3995161 0.6562111 0.6562111 0.000000 26.89747 16.97297 16.17606 13.17513 13.24832 0.6567070 0.6567070 0.6567070 0.3439232 0.3996080 0.6567070 0.6567070 0.000000 26.96361 16.98418 16.19044 13.19293 13.26929 0.6569963 0.6569963 0.6569963 0.3440810 0.3996924 0.6569963 0.6569963 0.000000 27.02633 16.99497 16.20789 13.21025 13.28675 0.6574523 0.6574523 0.6574523 0.3441837 0.3998308 0.6574523 0.6574523 0.000000 27.08587 17.00539 16.22127 13.22711 13.29727 0.6578900 0.6578900 0.6578900 0.3442797 0.3999014 0.6578900 0.6578900 0.000000 27.14392 17.01169 16.23421 13.24659 13.30471 0.6582179 0.6582179 0.6582179 0.3444175 0.4000265 0.6582179 0.6582179 0.000000 27.20688 17.02141 16.24673 13.26264 13.32052 0.6585298 0.6585298 0.6585298 0.3445492 0.4001456 0.6585298 0.6585298 0.000000 27.26221 17.03082 16.26241 13.27832 13.33895 0.6589189 0.6589189 0.6589189 0.3446753 0.4001982 0.6589189 0.6589189 0.000000 27.31630 17.03993 16.27416 13.29669 13.35404 0.6592934 0.6592934 0.6592934 0.3447960 0.4003061 0.6592934 0.6592934 0.000000 27.37552 17.04876 16.28910 13.29325 13.37179 0.6596540 0.6596540 0.6596540 0.3449116 0.4004088 0.6596540 0.6596540 0.000000 27.42104 17.05732 16.30016 13.30760 13.38622 0.6600016 0.6600016 0.6600016 0.3450223 0.4005066 0.6600016 0.6600016 0.000000 27.47039 17.06195 16.31444 13.32165 13.40337 0.6603367 0.6603367 0.6603367 0.3451284 0.4005996 0.6603367 0.6603367 0.000000 27.52007 17.07004 16.32489 13.33541 13.41723 0.6606599 0.6606599 0.6606599 0.3452301 0.4006881 0.6606599 0.6606599 0.000000 27.57506 17.07790 16.33858 13.35189 13.43384 0.6609718 0.6609718 0.6609718 0.3453276 0.4007724 0.6609718 0.6609718 0.000000 27.61662 17.08554 16.34847 13.36513 13.45020 0.6612729 0.6612729 0.6612729 0.3454211 0.4008526 0.6612729 0.6612729 0.000000 27.66986 17.09299 16.36162 13.37812 13.44214 0.6615637 0.6615637 0.6615637 0.3455581 0.4009288 0.6615637 0.6615637 0.000000 27.71602 17.10024 16.37101 13.39389 13.45769 0.6619360 0.6619360 0.6619360 0.3456441 0.4010614 0.6619360 0.6619360 0.000000 27.76140 17.10730 16.38368 13.40643 13.47004 0.6622986 0.6622986 0.6622986 0.3457738 0.4011302 0.6622986 0.6622986 0.000000 27.80604 17.11419 16.39261 13.41876 13.48515 0.6625609 0.6625609 0.6625609 0.3458528 0.4011956 0.6625609 0.6625609 0.000000 27.84997 17.12092 16.40484 13.43391 13.49709 0.6628146 0.6628146 0.6628146 0.3459286 0.4013177 0.6628146 0.6628146 0.000000 1.565714 4.152328 4.862411 5.575416 5.953498 0.6242598 0.6242598 0.6242598 0.3327233 0.3898181 0.6242598 0.6242598 0.000000 20.34633 15.77294 14.68054 11.76824 11.81873 0.6294425 0.6294425 0.6294425 0.3349427 0.3920521 0.6294425 0.6294425 0.000000 22.40443 16.15106 15.08088 12.07045 12.10844 0.6328906 0.6328906 0.6328906 0.3360840 0.3929802 0.6328906 0.6328906 0.000000 23.11292 16.30414 15.25433 12.21961 12.25725 0.6353260 0.6353260 0.6353260 0.3369448 0.3937265 0.6353260 0.6353260 0.000000 23.54649 16.39715 15.36781 12.32223 12.35958 0.6372889 0.6372889 0.6372889 0.3375934 0.3942373 0.6372889 0.6372889 0.000000 23.86275 16.46308 15.45191 12.40370 12.44081 0.6389930 0.6389930 0.6389930 0.3381553 0.3947013 0.6389930 0.6389930 0.000000 24.12077 16.51386 15.51929 12.46990 12.50689 0.6404468 0.6404468 0.6404468 0.3386398 0.3951496 0.6404468 0.6404468 0.000000 24.33567 16.55944 15.57663 12.52551 12.56594 0.6417313 0.6417313 0.6417313 0.3390601 0.3955095 0.6417313 0.6417313 0.000000 24.51984 16.59379 15.62685 12.57885 12.61910 0.6428604 0.6428604 0.6428604 0.3394567 0.3958170 0.6428604 0.6428604 0.000000 24.68708 16.62719 15.67107 12.62248 12.66602 0.6439109 0.6439109 0.6439109 0.3398056 0.3960965 0.6439109 0.6439109 0.000000 24.88309 16.65647 15.71153 12.66538 12.71043 0.6449360 0.6449360 0.6449360 0.3401260 0.3963650 0.6449360 0.6449360 0.000000 25.04089 16.68293 15.74770 12.70557 12.75211 0.6458759 0.6458759 0.6458759 0.3404317 0.3966351 0.6458759 0.6458759 0.000000 25.18065 16.70748 15.78280 12.74085 12.78731 0.6467604 0.6467604 0.6467604 0.3407331 0.3969162 0.6467604 0.6467604 0.000000 25.31386 16.72859 15.81359 12.77530 12.82483 0.6475152 0.6475152 0.6475152 0.3409881 0.3970897 0.6475152 0.6475152 0.000000 25.44311 16.75119 15.84475 12.80633 12.85891 0.6482559 0.6482559 0.6482559 0.3412033 0.3973506 0.6482559 0.6482559 0.000000 25.56199 16.77129 15.87283 12.83760 12.89006 0.6490929 0.6490929 0.6490929 0.3414835 0.3975151 0.6490929 0.6490929 0.000000 25.67916 16.78927 15.89826 12.86634 12.91870 0.6497483 0.6497483 0.6497483 0.3416834 0.3977126 0.6497483 0.6497483 0.000000 25.78829 16.80543 15.92525 12.89442 12.94823 0.6504248 0.6504248 0.6504248 0.3419060 0.3978838 0.6504248 0.6504248 0.000000 25.89141 16.82412 15.94830 12.92057 12.99376 0.6510347 0.6510347 0.6510347 0.3421537 0.3980936 0.6510347 0.6510347 0.000000 25.98881 16.83932 15.97147 12.94653 13.02466 0.6516801 0.6516801 0.6516801 0.3423305 0.3982821 0.6516801 0.6516801 0.000000 26.08764 16.85328 15.99493 12.97096 13.04215 0.6522715 0.6522715 0.6522715 0.3425370 0.3983894 0.6522715 0.6522715 0.000000 26.17393 16.86813 16.01509 13.01643 13.06217 0.6528141 0.6528141 0.6528141 0.3427257 0.3986031 0.6528141 0.6528141 0.000000 26.26378 16.88195 16.03770 13.04308 13.08837 0.6534070 0.6534070 0.6534070 0.3428984 0.3987389 0.6534070 0.6534070 0.000000 26.35630 16.89486 16.05543 13.04591 13.11349 0.6539590 0.6539590 0.6539590 0.3430563 0.3988601 0.6539590 0.6539590 0.000000 26.43250 16.90891 16.07581 13.06986 13.14071 0.6544737 0.6544737 0.6544737 0.3432493 0.3990295 0.6544737 0.6544737 0.000000 26.51686 16.92218 16.09522 13.09291 13.16705 0.6549541 0.6549541 0.6549541 0.3433812 0.3991248 0.6549541 0.6549541 0.000000 26.59329 16.93281 16.11375 13.11514 13.17037 0.6554030 0.6554030 0.6554030 0.3435501 0.3992701 0.6554030 0.6554030 0.000000 26.66706 16.94668 16.13147 13.13970 13.19152 0.6559161 0.6559161 0.6559161 0.3437083 0.3994045 0.6559161 0.6559161 0.000000 26.74477 16.95609 16.14844 13.16048 13.21500 0.6564017 0.6564017 0.6564017 0.3438564 0.3995289 0.6564017 0.6564017 0.000000 26.81383 16.96881 16.16472 13.16170 13.23480 0.6567687 0.6567687 0.6567687 0.3439952 0.3996440 0.6567687 0.6567687 0.000000 26.88080 16.97720 16.18036 13.18077 13.25704 0.6572981 0.6572981 0.6572981 0.3441735 0.3997503 0.6572981 0.6572981 0.000000 26.95216 16.98893 16.19542 13.19928 13.27570 0.6576195 0.6576195 0.6576195 0.3442954 0.3999093 0.6576195 0.6576195 0.000000 27.01366 17.00021 16.21350 13.22029 13.29688 0.6581055 0.6581055 0.6581055 0.3444097 0.3999996 0.6581055 0.6581055 0.000000 27.07499 17.00732 16.22748 13.23779 13.29604 0.6584793 0.6584793 0.6584793 0.3445647 0.4001434 0.6584793 0.6584793 0.000000 27.14104 17.01781 16.24098 13.25788 13.31584 0.6588346 0.6588346 0.6588346 0.3447129 0.4002196 0.6588346 0.6588346 0.000000 27.20558 17.02794 16.25759 13.27451 13.33221 0.6592649 0.6592649 0.6592649 0.3448545 0.4003500 0.6592649 0.6592649 0.000000 27.26240 17.03773 16.27021 13.29378 13.35118 0.6596786 0.6596786 0.6596786 0.3449424 0.4004741 0.6596786 0.6596786 0.000000 27.31790 17.04720 16.28598 13.29991 13.36978 0.6600766 0.6600766 0.6600766 0.3450722 0.4005318 0.6600766 0.6600766 0.000000 27.37844 17.05637 16.29782 13.30640 13.38502 0.6604598 0.6604598 0.6604598 0.3451965 0.4006445 0.6604598 0.6604598 0.000000 27.43150 17.06157 16.30932 13.32121 13.40293 0.6608289 0.6608289 0.6608289 0.3453156 0.4007518 0.6608289 0.6608289 0.000000 27.48202 17.07020 16.32401 13.33869 13.41752 0.6611847 0.6611847 0.6611847 0.3454298 0.4008541 0.6611847 0.6611847 0.000000 27.53281 17.07858 16.33837 13.35287 13.43482 0.6615277 0.6615277 0.6615277 0.3455392 0.4009515 0.6615277 0.6615277 0.000000 27.58259 17.08672 16.34890 13.36977 13.45185 0.6618587 0.6618587 0.6618587 0.3456442 0.4010443 0.6618587 0.6618587 0.000000 27.63770 17.09464 16.36266 13.38340 13.44735 0.6621782 0.6621782 0.6621782 0.3457922 0.4011328 0.6621782 0.6621782 0.000000 27.68562 17.10233 16.37264 13.39677 13.46052 0.6624866 0.6624866 0.6624866 0.3458887 0.4012170 0.6624866 0.6624866 0.000000 27.73268 17.10983 16.38586 13.41290 13.47642 0.6627846 0.6627846 0.6627846 0.3459814 0.4012973 0.6627846 0.6627846 0.000000 27.77893 17.11713 16.39533 13.42580 13.49209 0.6630726 0.6630726 0.6630726 0.3460703 0.4014336 0.6630726 0.6630726 0.000000 27.82439 17.12424 16.40806 13.44149 13.50455 0.6634418 0.6634418 0.6634418 0.3461556 0.4015062 0.6634418 0.6634418 0.000000 27.87537 17.13479 16.42057 13.44929 13.51680 0.6638017 0.6638017 0.6638017 0.3462846 0.4015754 0.6638017 0.6638017 0.000000 27.91311 17.14155 16.42936 13.44795 13.53184 0.6640618 0.6640618 0.6640618 0.3464102 0.4016411 0.6640618 0.6640618 0.000000 1.566773 4.159332 4.872306 5.584655 5.962862 0.6242988 0.6242988 0.6242988 0.3326905 0.3898376 0.6242988 0.6242988 0.000000 20.37236 15.77998 14.68409 11.77267 11.82313 0.6296126 0.6296126 0.6296126 0.3349754 0.3920742 0.6296126 0.6296126 0.000000 22.41770 16.15921 15.08675 12.07464 12.11265 0.6330598 0.6330598 0.6330598 0.3362080 0.3930878 0.6330598 0.6330598 0.000000 23.12802 16.30987 15.26164 12.22545 12.26095 0.6355383 0.6355383 0.6355383 0.3370229 0.3938295 0.6355383 0.6355383 0.000000 23.55856 16.40084 15.37348 12.32923 12.36655 0.6376128 0.6376128 0.6376128 0.3377165 0.3943869 0.6376128 0.6376128 0.000000 23.88066 16.46768 15.45854 12.40968 12.44866 0.6393032 0.6393032 0.6393032 0.3383137 0.3948887 0.6393032 0.6393032 0.000000 24.13575 16.51919 15.52670 12.47670 12.51548 0.6408305 0.6408305 0.6408305 0.3387754 0.3953044 0.6408305 0.6408305 0.000000 24.34793 16.56535 15.58468 12.53477 12.57516 0.6421769 0.6421769 0.6421769 0.3392715 0.3956276 0.6421769 0.6421769 0.000000 24.53697 16.60021 15.63545 12.58692 12.62887 0.6433595 0.6433595 0.6433595 0.3396379 0.3959592 0.6433595 0.6433595 0.000000 24.70147 16.63404 15.67801 12.63277 12.67628 0.6444568 0.6444568 0.6444568 0.3400053 0.3962599 0.6444568 0.6444568 0.000000 24.90609 16.66369 15.72105 12.67611 12.72276 0.6455231 0.6455231 0.6455231 0.3403421 0.3965475 0.6455231 0.6455231 0.000000 25.06471 16.69048 15.75762 12.71669 12.76321 0.6465001 0.6465001 0.6465001 0.3406625 0.3968349 0.6465001 0.6465001 0.000000 25.20520 16.71533 15.79307 12.75234 12.80196 0.6473208 0.6473208 0.6473208 0.3409771 0.3970687 0.6473208 0.6473208 0.000000 25.33910 16.73890 15.82420 12.78713 12.83664 0.6482035 0.6482035 0.6482035 0.3412442 0.3973197 0.6482035 0.6482035 0.000000 25.46899 16.75956 15.85567 12.82163 12.87102 0.6489722 0.6489722 0.6489722 0.3414706 0.3975313 0.6489722 0.6489722 0.000000 25.58849 16.77989 15.88403 12.85316 12.90247 0.6497386 0.6497386 0.6497386 0.3417113 0.3977084 0.6497386 0.6497386 0.000000 25.70623 16.79809 15.90973 12.88214 12.93445 0.6504183 0.6504183 0.6504183 0.3419704 0.3979176 0.6504183 0.6504183 0.000000 25.81585 16.81652 15.93697 12.90892 12.96421 0.6511173 0.6511173 0.6511173 0.3422017 0.3980998 0.6511173 0.6511173 0.000000 25.91949 16.83332 15.96216 12.93682 13.01425 0.6517482 0.6517482 0.6517482 0.3424085 0.3983198 0.6517482 0.6517482 0.000000 26.02393 16.85073 15.98554 12.96299 13.04549 0.6525081 0.6525081 0.6525081 0.3425933 0.3985179 0.6525081 0.6525081 0.000000 26.12190 16.86483 16.00733 13.00642 13.05541 0.6530231 0.6530231 0.6530231 0.3428071 0.3986346 0.6530231 0.6530231 0.000000 26.20980 16.87782 16.03141 13.03456 13.08308 0.6536776 0.6536776 0.6536776 0.3430029 0.3987951 0.6536776 0.6536776 0.000000 26.30649 16.89377 16.05049 13.04200 13.10955 0.6541924 0.6541924 0.6541924 0.3431821 0.3990009 0.6541924 0.6541924 0.000000 26.39290 16.90877 16.07209 13.06719 13.13802 0.6547600 0.6547600 0.6547600 0.3433949 0.3991300 0.6547600 0.6547600 0.000000 26.47587 16.92097 16.09262 13.09139 13.16551 0.6552895 0.6552895 0.6552895 0.3435453 0.3992455 0.6552895 0.6552895 0.000000 26.55403 16.93241 16.11218 13.11468 13.16992 0.6558776 0.6558776 0.6558776 0.3437314 0.3994094 0.6558776 0.6558776 0.000000 26.63076 16.94702 16.13086 13.14022 13.19204 0.6563398 0.6563398 0.6563398 0.3438573 0.3995615 0.6563398 0.6563398 0.000000 26.71119 16.95713 16.14871 13.16193 13.21643 0.6567723 0.6567723 0.6567723 0.3440688 0.3997025 0.6567723 0.6567723 0.000000 26.78915 16.97048 16.16582 13.16396 13.23709 0.6572701 0.6572701 0.6572701 0.3441738 0.3998333 0.6572701 0.6572701 0.000000 26.86482 16.97947 16.18223 13.18685 13.26013 0.6577420 0.6577420 0.6577420 0.3443654 0.3999544 0.6577420 0.6577420 0.000000 26.93201 16.99175 16.19800 13.20611 13.28258 0.6581895 0.6581895 0.6581895 0.3445001 0.4000666 0.6581895 0.6581895 0.000000 26.99560 17.00355 16.21675 13.22480 13.30144 0.6586145 0.6586145 0.6586145 0.3446265 0.4001705 0.6586145 0.6586145 0.000000 27.06516 17.01115 16.23137 13.24601 13.30414 0.6591105 0.6591105 0.6591105 0.3447929 0.4003270 0.6591105 0.6591105 0.000000 27.12668 17.02210 16.24546 13.26369 13.32156 0.6594943 0.6594943 0.6594943 0.3449518 0.4004155 0.6594943 0.6594943 0.000000 27.19290 17.03266 16.26263 13.28396 13.34152 0.6598594 0.6598594 0.6598594 0.3450562 0.4005574 0.6598594 0.6598594 0.000000 27.25130 17.04285 16.27578 13.30077 13.36105 0.6602987 0.6602987 0.6602987 0.3452016 0.4006321 0.6602987 0.6602987 0.000000 27.31458 17.05270 16.29205 13.30160 13.37718 0.6607211 0.6607211 0.6607211 0.3452933 0.4007610 0.6607211 0.6607211 0.000000 27.37652 17.06223 16.30437 13.31724 13.39593 0.6611276 0.6611276 0.6611276 0.3454267 0.4008838 0.6611276 0.6611276 0.000000 27.43090 17.06779 16.31984 13.33252 13.41433 0.6615191 0.6615191 0.6615191 0.3455544 0.4009407 0.6615191 0.6615191 0.000000 27.48266 17.07674 16.33142 13.35046 13.43240 0.6618962 0.6618962 0.6618962 0.3456769 0.4010525 0.6618962 0.6618962 0.000000 27.54091 17.08543 16.34619 13.36509 13.45016 0.6622597 0.6622597 0.6622597 0.3457943 0.4011590 0.6622597 0.6622597 0.000000 27.58553 17.09386 16.36062 13.38241 13.44638 0.6626103 0.6626103 0.6626103 0.3459069 0.4012606 0.6626103 0.6626103 0.000000 27.64169 17.10205 16.37124 13.39644 13.46020 0.6629487 0.6629487 0.6629487 0.3460622 0.4013575 0.6629487 0.6629487 0.000000 27.69689 17.11001 16.38507 13.41321 13.47672 0.6632753 0.6632753 0.6632753 0.3461658 0.4014499 0.6632753 0.6632753 0.000000 27.73864 17.11776 16.39512 13.42671 13.49299 0.6635907 0.6635907 0.6635907 0.3462653 0.4015381 0.6635907 0.6635907 0.000000 27.79205 17.12892 16.40842 13.44298 13.50602 0.6638955 0.6638955 0.6638955 0.3464078 0.4016221 0.6638955 0.6638955 0.000000 27.83837 17.13626 16.42146 13.44698 13.52181 0.6642808 0.6642808 0.6642808 0.3464995 0.4017022 0.6642808 0.6642808 0.000000 27.88391 17.14341 16.43076 13.45048 13.53438 0.6646561 0.6646561 0.6646561 0.3465875 0.4018382 0.6646561 0.6646561 0.000000 27.93495 17.15038 16.44332 13.46575 13.54973 0.6649314 0.6649314 0.6649314 0.3467189 0.4019109 0.6649314 0.6649314 0.000000 27.97171 17.15719 16.45567 13.47784 13.56487 0.6651978 0.6651978 0.6651978 0.3468001 0.4020396 0.6651978 0.6651978 0.000000 1.567729 4.165941 4.878915 5.593493 5.971817 0.6243342 0.6243342 0.6243342 0.3327113 0.3898554 0.6243342 0.6243342 0.000000 20.38275 15.78635 14.69110 11.77641 11.82685 0.6297550 0.6297550 0.6297550 0.3350499 0.3921524 0.6297550 0.6297550 0.000000 22.42400 16.16287 15.09178 12.08047 12.11844 0.6332950 0.6332950 0.6332950 0.3362614 0.3931813 0.6332950 0.6332950 0.000000 23.13174 16.31480 15.26804 12.23256 12.26801 0.6358069 0.6358069 0.6358069 0.3371867 0.3939153 0.6358069 0.6358069 0.000000 23.56910 16.40667 15.38084 12.33526 12.37256 0.6378829 0.6378829 0.6378829 0.3378699 0.3944525 0.6378829 0.6378829 0.000000 23.88843 16.47419 15.46418 12.41656 12.45552 0.6396573 0.6396573 0.6396573 0.3384483 0.3949906 0.6396573 0.6396573 0.000000 24.14498 16.52625 15.53306 12.48428 12.52304 0.6412534 0.6412534 0.6412534 0.3389890 0.3954366 0.6412534 0.6412534 0.000000 24.36610 16.57034 15.59165 12.54294 12.58332 0.6426579 0.6426579 0.6426579 0.3394054 0.3957858 0.6426579 0.6426579 0.000000 24.55221 16.60812 15.64295 12.59561 12.63754 0.6437915 0.6437915 0.6437915 0.3398429 0.3961401 0.6437915 0.6437915 0.000000 24.72114 16.64228 15.68812 12.64193 12.68707 0.6450317 0.6450317 0.6450317 0.3402277 0.3964610 0.6450317 0.6450317 0.000000 24.92702 16.67224 15.72943 12.68568 12.73231 0.6460388 0.6460388 0.6460388 0.3405798 0.3967666 0.6460388 0.6460388 0.000000 25.08640 16.69705 15.76638 12.72663 12.77314 0.6470510 0.6470510 0.6470510 0.3408639 0.3970072 0.6470510 0.6470510 0.000000 25.22757 16.72219 15.80217 12.76584 12.81223 0.6479038 0.6479038 0.6479038 0.3411911 0.3972561 0.6479038 0.6479038 0.000000 25.36954 16.74602 15.83362 12.80092 12.85037 0.6488154 0.6488154 0.6488154 0.3414697 0.3975209 0.6488154 0.6488154 0.000000 25.49938 16.76692 15.86537 12.83254 12.88502 0.6496108 0.6496108 0.6496108 0.3417068 0.3977452 0.6496108 0.6496108 0.000000 25.61938 16.78747 15.89401 12.86434 12.91672 0.6504016 0.6504016 0.6504016 0.3420067 0.3979342 0.6504016 0.6504016 0.000000 25.73037 16.80587 15.92381 12.89668 12.94894 0.6511042 0.6511042 0.6511042 0.3422253 0.3981544 0.6511042 0.6511042 0.000000 25.84764 16.82654 15.94745 12.92367 12.99707 0.6518242 0.6518242 0.6518242 0.3424650 0.3983469 0.6518242 0.6518242 0.000000 25.95171 16.84147 15.97286 12.95178 13.03029 0.6524750 0.6524750 0.6524750 0.3426797 0.3985147 0.6524750 0.6524750 0.000000 26.05656 16.85903 16.00020 12.99626 13.04234 0.6532528 0.6532528 0.6532528 0.3428719 0.3987220 0.6532528 0.6532528 0.000000 26.14834 16.87530 16.02217 13.02603 13.07163 0.6537856 0.6537856 0.6537856 0.3430927 0.3989091 0.6537856 0.6537856 0.000000 26.24959 16.89041 16.04272 13.04144 13.10264 0.6544562 0.6544562 0.6544562 0.3432949 0.3990779 0.6544562 0.6544562 0.000000 26.34015 16.90449 16.06566 13.06167 13.12937 0.6549867 0.6549867 0.6549867 0.3434804 0.3992299 0.6549867 0.6549867 0.000000 26.42690 16.91765 16.08742 13.08710 13.15810 0.6555688 0.6555688 0.6555688 0.3436506 0.3993666 0.6555688 0.6555688 0.000000 26.50864 16.92998 16.10810 13.11154 13.16379 0.6561123 0.6561123 0.6561123 0.3438550 0.3994893 0.6561123 0.6561123 0.000000 26.59494 16.94540 16.12781 13.13813 13.18999 0.6567133 0.6567133 0.6567133 0.3440464 0.3996600 0.6567133 0.6567133 0.000000 26.67193 16.95626 16.14661 13.16083 13.21535 0.6571883 0.6571883 0.6571883 0.3441776 0.3998185 0.6571883 0.6571883 0.000000 26.75261 16.97030 16.16460 13.16379 13.23691 0.6576330 0.6576330 0.6576330 0.3443937 0.3999658 0.6576330 0.6576330 0.000000 26.83081 16.97993 16.18184 13.18752 13.26080 0.6582348 0.6582348 0.6582348 0.3445035 0.4001026 0.6582348 0.6582348 0.000000 26.90670 16.99281 16.19837 13.20757 13.28405 0.6586251 0.6586251 0.6586251 0.3446994 0.4002295 0.6586251 0.6586251 0.000000 26.96619 17.00516 16.21784 13.22701 13.29775 0.6591755 0.6591755 0.6591755 0.3448384 0.4003474 0.6591755 0.6591755 0.000000 27.03779 17.01328 16.23312 13.24891 13.30700 0.6595184 0.6595184 0.6595184 0.3449690 0.4004566 0.6595184 0.6595184 0.000000 27.10753 17.02472 16.24785 13.27029 13.32807 0.6600240 0.6600240 0.6600240 0.3451393 0.4005578 0.6600240 0.6600240 0.000000 27.17554 17.03573 16.26561 13.28815 13.34865 0.6605090 0.6605090 0.6605090 0.3453020 0.4007117 0.6605090 0.6605090 0.000000 27.24192 17.04635 16.27932 13.30138 13.36576 0.6608832 0.6608832 0.6608832 0.3454101 0.4008584 0.6608832 0.6608832 0.000000 27.30047 17.05660 16.29611 13.30682 13.38545 0.6612394 0.6612394 0.6612394 0.3455591 0.4009379 0.6612394 0.6612394 0.000000 27.36389 17.06283 16.30893 13.32599 13.40473 0.6616703 0.6616703 0.6616703 0.3456543 0.4010713 0.6616703 0.6616703 0.000000 27.41967 17.07243 16.32487 13.34177 13.42364 0.6620848 0.6620848 0.6620848 0.3457910 0.4011384 0.6620848 0.6620848 0.000000 27.47905 17.08173 16.34043 13.35719 13.44219 0.6624840 0.6624840 0.6624840 0.3459220 0.4012598 0.6624840 0.6624840 0.000000 27.53226 17.09074 16.35209 13.37526 13.44082 0.6628688 0.6628688 0.6628688 0.3460476 0.4013756 0.6628688 0.6628688 0.000000 27.58434 17.09948 16.36693 13.39302 13.45684 0.6632397 0.6632397 0.6632397 0.3461680 0.4014862 0.6632397 0.6632397 0.000000 27.64161 17.10796 16.38144 13.41048 13.47405 0.6635975 0.6635975 0.6635975 0.3462836 0.4015917 0.6635975 0.6635975 0.000000 27.69786 17.11620 16.39213 13.42464 13.48798 0.6639429 0.6639429 0.6639429 0.3464415 0.4016924 0.6639429 0.6639429 0.000000 27.74687 17.12421 16.40604 13.44155 13.50462 0.6642763 0.6642763 0.6642763 0.3465480 0.4017885 0.6642763 0.6642763 0.000000 27.79497 17.13562 16.41966 13.44200 13.51801 0.6646889 0.6646889 0.6646889 0.3466971 0.4018803 0.6646889 0.6646889 0.000000 27.84846 17.14320 16.42952 13.45025 13.53414 0.6650906 0.6650906 0.6650906 0.3467953 0.4019678 0.6650906 0.6650906 0.000000 27.89485 17.15058 16.44262 13.46606 13.55004 0.6653913 0.6653913 0.6653913 0.3468896 0.4020514 0.6653913 0.6653913 0.000000 27.94045 17.15777 16.45547 13.47867 13.56571 0.6656821 0.6656821 0.6656821 0.3469802 0.4021311 0.6656821 0.6656821 0.000000 27.98423 17.16479 16.46461 13.49404 13.58118 0.6660537 0.6660537 0.6660537 0.3471139 0.4022666 0.6660537 0.6660537 0.000000 28.02830 17.17164 16.47701 13.50622 13.59644 0.6664159 0.6664159 0.6664159 0.3472442 0.4023390 0.6664159 0.6664159 0.000000 1.568598 4.172215 4.885189 5.601988 5.980424 0.6243667 0.6243667 0.6243667 0.3327305 0.3898717 0.6243667 0.6243667 0.000000 20.40668 15.79216 14.69749 11.78260 11.83295 0.6298730 0.6298730 0.6298730 0.3351132 0.3921558 0.6298730 0.6298730 0.000000 22.42924 16.16591 15.09611 12.08559 12.12353 0.6333888 0.6333888 0.6333888 0.3363529 0.3931965 0.6333888 0.6333888 0.000000 23.14422 16.31905 15.27077 12.23672 12.27218 0.6360330 0.6360330 0.6360330 0.3372797 0.3939857 0.6360330 0.6360330 0.000000 23.58285 16.41178 15.38474 12.34048 12.37777 0.6382083 0.6382083 0.6382083 0.3380033 0.3945656 0.6382083 0.6382083 0.000000 23.90326 16.47719 15.47141 12.42258 12.46153 0.6400613 0.6400613 0.6400613 0.3386135 0.3950736 0.6400613 0.6400613 0.000000 24.16076 16.53253 15.54088 12.49096 12.52971 0.6416214 0.6416214 0.6416214 0.3391286 0.3955486 0.6416214 0.6416214 0.000000 24.37501 16.57454 15.59771 12.55019 12.59055 0.6429816 0.6429816 0.6429816 0.3396182 0.3959228 0.6429816 0.6429816 0.000000 24.56583 16.61279 15.64950 12.60505 12.64527 0.6442628 0.6442628 0.6442628 0.3400237 0.3962988 0.6442628 0.6442628 0.000000 24.73192 16.64733 15.69512 12.65178 12.69687 0.6454463 0.6454463 0.6454463 0.3404249 0.3966389 0.6454463 0.6454463 0.000000 24.94617 16.67764 15.73683 12.69754 12.74087 0.6464912 0.6464912 0.6464912 0.3407416 0.3968987 0.6464912 0.6464912 0.000000 25.10627 16.70501 15.77414 12.73718 12.78525 0.6475369 0.6475369 0.6475369 0.3410890 0.3972179 0.6475369 0.6475369 0.000000 25.24807 16.72818 15.81025 12.77510 12.82464 0.6485170 0.6485170 0.6485170 0.3413783 0.3974183 0.6485170 0.6485170 0.000000 25.39063 16.75442 15.84398 12.81048 12.86148 0.6493595 0.6493595 0.6493595 0.3417175 0.3976963 0.6493595 0.6493595 0.000000 25.52102 16.77340 15.87404 12.84552 12.89795 0.6501804 0.6501804 0.6501804 0.3419646 0.3979327 0.6501804 0.6501804 0.000000 25.64155 16.79415 15.90679 12.87755 12.92989 0.6510900 0.6510900 0.6510900 0.3422243 0.3981331 0.6510900 0.6510900 0.000000 25.75965 16.81482 15.93297 12.90702 12.96232 0.6518140 0.6518140 0.6518140 0.3425007 0.3983638 0.6518140 0.6518140 0.000000 25.87072 16.83360 15.96064 12.93731 13.01477 0.6525540 0.6525540 0.6525540 0.3426994 0.3985662 0.6525540 0.6525540 0.000000 25.98181 16.85073 15.98623 12.96561 13.04831 0.6532233 0.6532233 0.6532233 0.3429703 0.3987432 0.6532233 0.6532233 0.000000 26.08704 16.86642 16.01001 13.01442 13.06021 0.6539239 0.6539239 0.6539239 0.3431695 0.3988977 0.6539239 0.6539239 0.000000 26.18561 16.88284 16.03589 13.04447 13.08975 0.6545675 0.6545675 0.6545675 0.3433968 0.3990931 0.6545675 0.6545675 0.000000 26.28070 16.89809 16.05660 13.05340 13.12102 0.6551595 0.6551595 0.6551595 0.3435567 0.3992698 0.6551595 0.6551595 0.000000 26.37158 16.91231 16.07969 13.08016 13.14801 0.6557984 0.6557984 0.6557984 0.3437965 0.3994294 0.6557984 0.6557984 0.000000 26.46507 16.92754 16.10160 13.10582 13.16642 0.6563942 0.6563942 0.6563942 0.3439722 0.3995733 0.6563942 0.6563942 0.000000 26.54699 16.94191 16.12242 13.13048 13.18548 0.6569508 0.6569508 0.6569508 0.3441818 0.3997639 0.6569508 0.6569508 0.000000 26.62716 16.95357 16.14226 13.15730 13.20885 0.6574712 0.6574712 0.6574712 0.3443301 0.3999409 0.6574712 0.6574712 0.000000 26.71078 16.96836 16.16120 13.16131 13.23441 0.6579584 0.6579584 0.6579584 0.3445141 0.4000448 0.6579584 0.6579584 0.000000 26.79169 16.97868 16.17932 13.18594 13.25921 0.6585072 0.6585072 0.6585072 0.3446868 0.4001981 0.6585072 0.6585072 0.000000 26.87010 16.99220 16.19667 13.20682 13.28330 0.6590272 0.6590272 0.6590272 0.3448490 0.4003406 0.6590272 0.6590272 0.000000 26.94620 17.00515 16.21691 13.22705 13.29780 0.6595203 0.6595203 0.6595203 0.3450013 0.4004731 0.6595203 0.6595203 0.000000 27.01212 17.01383 16.23290 13.24969 13.30778 0.6599885 0.6599885 0.6599885 0.3451920 0.4005962 0.6599885 0.6599885 0.000000 27.07758 17.02578 16.24829 13.27177 13.32953 0.6605250 0.6605250 0.6605250 0.3453265 0.4007710 0.6605250 0.6605250 0.000000 27.14749 17.03728 16.26668 13.29333 13.35075 0.6608561 0.6608561 0.6608561 0.3454530 0.4008771 0.6608561 0.6608561 0.000000 27.21565 17.04835 16.28453 13.29295 13.37148 0.6613500 0.6613500 0.6613500 0.3456192 0.4009754 0.6613500 0.6613500 0.000000 27.28218 17.05903 16.29833 13.31010 13.39175 0.6618243 0.6618243 0.6618243 0.3457783 0.4011266 0.6618243 0.6618243 0.000000 27.34718 17.06567 16.31521 13.32981 13.41159 0.6622802 0.6622802 0.6622802 0.3458833 0.4012108 0.6622802 0.6622802 0.000000 27.41073 17.07565 16.32811 13.34911 13.43103 0.6626276 0.6626276 0.6626276 0.3460291 0.4013484 0.6626276 0.6626276 0.000000 27.46523 17.08530 16.34414 13.36502 13.45009 0.6630497 0.6630497 0.6630497 0.3461688 0.4014198 0.6630497 0.6630497 0.000000 27.51976 17.09465 16.35625 13.38357 13.44753 0.6634563 0.6634563 0.6634563 0.3463028 0.4015452 0.6634563 0.6634563 0.000000 27.57935 17.10371 16.37151 13.39878 13.46548 0.6638482 0.6638482 0.6638482 0.3464313 0.4016649 0.6638482 0.6638482 0.000000 27.63779 17.11250 16.38642 13.41667 13.48013 0.6642261 0.6642261 0.6642261 0.3465546 0.4017793 0.6642261 0.6642261 0.000000 27.68889 17.12104 16.40100 13.43427 13.49745 0.6646812 0.6646812 0.6646812 0.3466730 0.4018885 0.6646812 0.6646812 0.000000 27.73896 17.13294 16.41177 13.45158 13.51448 0.6650330 0.6650330 0.6650330 0.3468334 0.4019929 0.6650330 0.6650330 0.000000 27.79432 17.14099 16.42574 13.44734 13.53123 0.6653728 0.6653728 0.6653728 0.3469425 0.4020925 0.6653728 0.6653728 0.000000 27.84875 17.14882 16.43942 13.46078 13.54772 0.6657010 0.6657010 0.6657010 0.3470473 0.4021877 0.6657010 0.6657010 0.000000 27.89605 17.15644 16.45284 13.47693 13.56397 0.6660183 0.6660183 0.6660183 0.3471480 0.4022787 0.6660183 0.6660183 0.000000 27.94250 17.16387 16.46250 13.49284 13.57998 0.6664151 0.6664151 0.6664151 0.3472449 0.4023655 0.6664151 0.6664151 0.000000 27.98710 17.17111 16.47542 13.50555 13.59577 0.6668017 0.6668017 0.6668017 0.3473845 0.4024485 0.6668017 0.6668017 0.000000 28.03194 17.17816 16.48809 13.51803 13.60834 0.6670886 0.6670886 0.6670886 0.3475204 0.4025277 0.6670886 0.6670886 0.000000 28.08230 17.18505 16.50055 13.53329 13.60283 0.6674562 0.6674562 0.6674562 0.3476063 0.4026624 0.6674562 0.6674562 0.000000 1.569392 4.181073 4.891175 5.610190 5.988732 0.6243966 0.6243966 0.6243966 0.3327482 0.3898867 0.6243966 0.6243966 0.000000 20.41530 15.79749 14.69918 11.78524 11.83559 0.6299693 0.6299693 0.6299693 0.3351666 0.3922173 0.6299693 0.6299693 0.000000 22.43926 16.17212 15.09982 12.08767 12.12565 0.6336626 0.6336626 0.6336626 0.3364308 0.3932658 0.6336626 0.6336626 0.000000 23.15069 16.32271 15.27571 12.24023 12.27780 0.6363251 0.6363251 0.6363251 0.3373567 0.3940424 0.6363251 0.6363251 0.000000 23.58642 16.41625 15.39055 12.34498 12.38227 0.6384910 0.6384910 0.6384910 0.3381190 0.3946629 0.6384910 0.6384910 0.000000 23.90844 16.48229 15.47543 12.42973 12.46679 0.6403176 0.6403176 0.6403176 0.3387595 0.3952039 0.6403176 0.6403176 0.000000 24.16723 16.53552 15.54556 12.49866 12.53737 0.6419404 0.6419404 0.6419404 0.3392482 0.3956425 0.6419404 0.6419404 0.000000 24.39026 16.58056 15.60520 12.55663 12.59869 0.6434531 0.6434531 0.6434531 0.3397589 0.3960406 0.6434531 0.6434531 0.000000 24.57806 16.61915 15.65524 12.61195 12.65551 0.6446806 0.6446806 0.6446806 0.3401825 0.3964373 0.6446806 0.6446806 0.000000 24.74846 16.65167 15.70339 12.66076 12.70419 0.6459040 0.6459040 0.6459040 0.3405997 0.3967327 0.6459040 0.6459040 0.000000 24.95666 16.68231 15.74336 12.70523 12.75179 0.6470818 0.6470818 0.6470818 0.3409805 0.3970722 0.6470818 0.6470818 0.000000 25.12455 16.71220 15.78305 12.74683 12.79328 0.6480618 0.6480618 0.6480618 0.3412905 0.3973436 0.6480618 0.6480618 0.000000 25.26694 16.73779 15.81944 12.78664 12.83456 0.6490704 0.6490704 0.6490704 0.3416408 0.3976204 0.6490704 0.6490704 0.000000 25.41004 16.75989 15.85343 12.82228 12.87167 0.6499392 0.6499392 0.6499392 0.3418913 0.3978485 0.6499392 0.6499392 0.000000 25.54095 16.78333 15.88568 12.85755 12.90685 0.6508796 0.6508796 0.6508796 0.3421974 0.3980966 0.6508796 0.6508796 0.000000 25.66867 16.80423 15.91478 12.88981 12.94210 0.6516202 0.6516202 0.6516202 0.3424658 0.3983079 0.6516202 0.6516202 0.000000 25.78715 16.82297 15.94501 12.91949 12.99260 0.6524600 0.6524600 0.6524600 0.3427013 0.3985486 0.6524600 0.6524600 0.000000 25.89861 16.83987 15.97286 12.94997 13.02834 0.6532188 0.6532188 0.6532188 0.3429566 0.3987604 0.6532188 0.6532188 0.000000 26.01006 16.85918 15.99863 12.99659 13.04267 0.6539060 0.6539060 0.6539060 0.3431858 0.3989464 0.6539060 0.6539060 0.000000 26.10785 16.87700 16.02258 13.02842 13.07706 0.6545292 0.6545292 0.6545292 0.3434404 0.3991707 0.6545292 0.6545292 0.000000 26.20799 16.89352 16.04491 13.03931 13.10685 0.6552823 0.6552823 0.6552823 0.3436737 0.3993126 0.6552823 0.6552823 0.000000 26.30989 16.90888 16.06948 13.06754 13.13837 0.6558892 0.6558892 0.6558892 0.3438397 0.3994967 0.6558892 0.6558892 0.000000 26.40107 16.92320 16.09272 13.09760 13.16869 0.6564486 0.6564486 0.6564486 0.3440849 0.3996634 0.6564486 0.6564486 0.000000 26.49484 16.93659 16.11477 13.12348 13.17557 0.6570578 0.6570578 0.6570578 0.3442660 0.3998141 0.6570578 0.6570578 0.000000 26.57695 16.94914 16.13572 13.14836 13.20309 0.6576271 0.6576271 0.6576271 0.3444325 0.4000110 0.6576271 0.6576271 0.000000 26.66376 16.96474 16.15569 13.16151 13.22665 0.6582522 0.6582522 0.6582522 0.3446336 0.4001335 0.6582522 0.6582522 0.000000 26.74760 16.97581 16.17476 13.17918 13.25241 0.6588432 0.6588432 0.6588432 0.3448222 0.4003041 0.6588432 0.6588432 0.000000 26.82872 16.99002 16.19300 13.20399 13.27740 0.6593104 0.6593104 0.6593104 0.3449515 0.4004629 0.6593104 0.6593104 0.000000 26.90734 17.00361 16.21405 13.22504 13.30473 0.6598406 0.6598406 0.6598406 0.3451655 0.4006108 0.6598406 0.6598406 0.000000 26.97568 17.01287 16.23081 13.24847 13.30658 0.6603437 0.6603437 0.6603437 0.3453218 0.4007486 0.6603437 0.6603437 0.000000 27.04963 17.02538 16.24691 13.27129 13.32906 0.6608213 0.6608213 0.6608213 0.3454688 0.4008767 0.6608213 0.6608213 0.000000 27.12158 17.03740 16.26596 13.29355 13.35097 0.6612753 0.6612753 0.6612753 0.3456545 0.4009960 0.6612753 0.6612753 0.000000 27.18533 17.04896 16.28444 13.29380 13.37234 0.6617984 0.6617984 0.6617984 0.3457846 0.4011069 0.6617984 0.6617984 0.000000 27.25364 17.06009 16.29883 13.31155 13.39322 0.6623005 0.6623005 0.6623005 0.3459070 0.4012699 0.6623005 0.6623005 0.000000 27.32031 17.06716 16.31626 13.33184 13.41364 0.6626915 0.6626915 0.6626915 0.3460693 0.4013654 0.6626915 0.6626915 0.000000 27.38544 17.07754 16.32969 13.35168 13.43363 0.6630642 0.6630642 0.6630642 0.3462248 0.4015138 0.6630642 0.6630642 0.000000 27.44911 17.08757 16.34621 13.37111 13.45077 0.6635103 0.6635103 0.6635103 0.3463736 0.4015956 0.6635103 0.6635103 0.000000 27.50994 17.09728 16.36230 13.39016 13.45403 0.6639398 0.6639398 0.6639398 0.3465163 0.4017309 0.6639398 0.6639398 0.000000 27.56456 17.10668 16.37449 13.40584 13.46947 0.6643534 0.6643534 0.6643534 0.3466532 0.4018601 0.6643534 0.6643534 0.000000 27.62425 17.11580 16.38983 13.42419 13.48754 0.6647521 0.6647521 0.6647521 0.3467845 0.4019239 0.6647521 0.6647521 0.000000 27.67652 17.12825 16.40481 13.44221 13.50528 0.6651367 0.6651367 0.6651367 0.3469105 0.4020419 0.6651367 0.6651367 0.000000 27.73396 17.13682 16.41945 13.44035 13.52271 0.6655980 0.6655980 0.6655980 0.3470315 0.4021547 0.6655980 0.6655980 0.000000 27.79038 17.14515 16.43029 13.45592 13.53984 0.6659561 0.6659561 0.6659561 0.3471477 0.4022625 0.6659561 0.6659561 0.000000 27.84581 17.15325 16.44432 13.46971 13.55671 0.6663920 0.6663920 0.6663920 0.3472593 0.4023655 0.6663920 0.6663920 0.000000 27.89405 17.16112 16.45806 13.48622 13.57331 0.6667262 0.6667262 0.6667262 0.3474132 0.4024641 0.6667262 0.6667262 0.000000 27.94141 17.16879 16.47153 13.49949 13.58967 0.6670492 0.6670492 0.6670492 0.3475163 0.4025582 0.6670492 0.6670492 0.000000 27.98686 17.17625 16.48475 13.51550 13.60579 0.6674513 0.6674513 0.6674513 0.3476619 0.4026482 0.6674513 0.6674513 0.000000 28.03251 17.18353 16.49423 13.53128 13.60234 0.6678431 0.6678431 0.6678431 0.3477572 0.4027933 0.6678431 0.6678431 0.000000 28.08365 17.19418 16.50696 13.54685 13.61620 0.6681353 0.6681353 0.6681353 0.3478488 0.4028755 0.6681353 0.6681353 0.000000 28.12781 17.20110 16.51947 13.55922 13.63134 0.6684183 0.6684183 0.6684183 0.3479833 0.4029540 0.6684183 0.6684183 0.000000 1.570122 4.183936 4.896911 5.618137 5.996781 0.6244242 0.6244242 0.6244242 0.3327647 0.3899006 0.6244242 0.6244242 0.000000 20.42323 15.80238 14.70457 11.78744 11.83780 0.6300463 0.6300463 0.6300463 0.3352111 0.3922718 0.6300463 0.6300463 0.000000 22.44848 16.17415 15.10300 12.09166 12.12962 0.6338024 0.6338024 0.6338024 0.3364962 0.3933247 0.6338024 0.6338024 0.000000 23.15627 16.32586 15.28006 12.24530 12.28075 0.6365829 0.6365829 0.6365829 0.3374718 0.3941515 0.6365829 0.6365829 0.000000 23.59804 16.41725 15.39311 12.35084 12.38616 0.6387354 0.6387354 0.6387354 0.3382186 0.3947462 0.6387354 0.6387354 0.000000 23.92099 16.48682 15.48125 12.43434 12.47140 0.6406338 0.6406338 0.6406338 0.3388881 0.3953187 0.6406338 0.6406338 0.000000 24.18059 16.54052 15.54958 12.50387 12.54258 0.6423156 0.6423156 0.6423156 0.3394007 0.3957838 0.6423156 0.6423156 0.000000 24.39667 16.58596 15.60975 12.56410 12.60612 0.6437789 0.6437789 0.6437789 0.3399314 0.3962045 0.6437789 0.6437789 0.000000 24.59276 16.62249 15.66242 12.61813 12.66168 0.6451487 0.6451487 0.6451487 0.3403722 0.3965577 0.6451487 0.6451487 0.000000 24.75655 16.65771 15.70881 12.66733 12.71239 0.6463120 0.6463120 0.6463120 0.3407541 0.3968709 0.6463120 0.6463120 0.000000 24.97294 16.68861 15.75121 12.71216 12.75871 0.6475236 0.6475236 0.6475236 0.3411484 0.3972261 0.6475236 0.6475236 0.000000 25.14145 16.71651 15.79119 12.75409 12.80371 0.6485341 0.6485341 0.6485341 0.3414706 0.3975119 0.6485341 0.6485341 0.000000 25.28438 16.74236 15.82784 12.79419 12.84368 0.6495702 0.6495702 0.6495702 0.3418317 0.3978018 0.6495702 0.6495702 0.000000 25.42800 16.76470 15.86011 12.83168 12.88261 0.6504641 0.6504641 0.6504641 0.3421415 0.3980418 0.6504641 0.6504641 0.000000 25.55939 16.78835 15.89262 12.86563 12.91801 0.6513320 0.6513320 0.6513320 0.3424074 0.3983010 0.6513320 0.6513320 0.000000 25.68757 16.80944 15.92580 12.89967 12.95347 0.6521893 0.6521893 0.6521893 0.3426843 0.3985226 0.6521893 0.6521893 0.000000 25.80644 16.82837 15.95241 12.93110 13.00812 0.6530484 0.6530484 0.6530484 0.3429764 0.3987111 0.6530484 0.6530484 0.000000 25.91831 16.84949 15.98046 12.96177 13.04416 0.6537312 0.6537312 0.6537312 0.3431901 0.3989320 0.6537312 0.6537312 0.000000 26.03015 16.86490 16.00643 13.01256 13.05838 0.6545297 0.6545297 0.6545297 0.3434747 0.3991265 0.6545297 0.6545297 0.000000 26.13476 16.88288 16.03428 13.04465 13.08993 0.6552626 0.6552626 0.6552626 0.3436870 0.3993588 0.6552626 0.6552626 0.000000 26.23521 16.89953 16.05677 13.05540 13.12305 0.6558434 0.6558434 0.6558434 0.3438781 0.3995083 0.6558434 0.6558434 0.000000 26.33739 16.91502 16.08149 13.08384 13.15481 0.6565579 0.6565579 0.6565579 0.3440981 0.3996996 0.6565579 0.6565579 0.000000 26.42886 16.92947 16.10487 13.11105 13.16332 0.6572238 0.6572238 0.6572238 0.3443004 0.3998732 0.6572238 0.6572238 0.000000 26.52131 16.94683 16.12704 13.14022 13.19205 0.6578454 0.6578454 0.6578454 0.3445346 0.4000304 0.6578454 0.6578454 0.000000 26.61157 16.95947 16.14813 13.16839 13.21976 0.6584264 0.6584264 0.6584264 0.3447060 0.4002334 0.6584264 0.6584264 0.000000 26.69221 16.97325 16.16822 13.17336 13.24655 0.6589703 0.6589703 0.6589703 0.3449116 0.4003618 0.6589703 0.6589703 0.000000 26.77628 16.98630 16.18741 13.19610 13.27250 0.6594799 0.6594799 0.6594799 0.3450569 0.4005381 0.6594799 0.6594799 0.000000 26.85761 17.00059 16.20934 13.22108 13.29768 0.6601416 0.6601416 0.6601416 0.3452857 0.4007023 0.6601416 0.6601416 0.000000 26.94276 17.01049 16.22692 13.24534 13.30349 0.6605899 0.6605899 0.6605899 0.3454086 0.4008554 0.6605899 0.6605899 0.000000 27.01120 17.02359 16.24378 13.26894 13.32675 0.6611940 0.6611940 0.6611940 0.3456162 0.4009379 0.6611940 0.6611940 0.000000 27.08532 17.03616 16.26355 13.29193 13.34938 0.6615892 0.6615892 0.6615892 0.3457669 0.4011311 0.6615892 0.6615892 0.000000 27.15742 17.04824 16.27914 13.29289 13.37143 0.6621432 0.6621432 0.6621432 0.3459088 0.4012550 0.6621432 0.6621432 0.000000 27.22762 17.05986 16.29770 13.31129 13.39296 0.6626745 0.6626745 0.6626745 0.3460895 0.4013704 0.6626745 0.6626745 0.000000 27.29607 17.06738 16.31572 13.33218 13.41398 0.6630933 0.6630933 0.6630933 0.3462623 0.4015376 0.6630933 0.6630933 0.000000 27.36286 17.07819 16.32971 13.35259 13.43455 0.6634924 0.6634924 0.6634924 0.3464277 0.4016374 0.6634924 0.6634924 0.000000 27.42181 17.08862 16.34674 13.37257 13.44311 0.6639634 0.6639634 0.6639634 0.3465391 0.4017300 0.6639634 0.6639634 0.000000 27.48417 17.09871 16.36334 13.39213 13.45597 0.6644166 0.6644166 0.6644166 0.3466909 0.4018755 0.6644166 0.6644166 0.000000 27.54646 17.10847 16.37951 13.41131 13.47487 0.6648529 0.6648529 0.6648529 0.3468364 0.4020145 0.6648529 0.6648529 0.000000 27.60746 17.11793 16.39177 13.43013 13.49339 0.6652732 0.6652732 0.6652732 0.3469760 0.4020878 0.6652732 0.6652732 0.000000 27.66723 17.13070 16.40717 13.44861 13.51157 0.6656784 0.6656784 0.6656784 0.3471100 0.4022149 0.6656784 0.6656784 0.000000 27.71958 17.13958 16.42221 13.44257 13.52942 0.6660693 0.6660693 0.6660693 0.3472386 0.4023363 0.6660693 0.6660693 0.000000 27.77711 17.14820 16.43692 13.46002 13.54696 0.6665364 0.6665364 0.6665364 0.3473621 0.4024524 0.6665364 0.6665364 0.000000 27.82733 17.15657 16.45131 13.47717 13.56421 0.6669005 0.6669005 0.6669005 0.3475273 0.4025635 0.6669005 0.6669005 0.000000 27.88283 17.16470 16.46191 13.49404 13.58119 0.6673419 0.6673419 0.6673419 0.3476413 0.4026697 0.6673419 0.6673419 0.000000 27.93740 17.17262 16.47571 13.51065 13.59790 0.6676817 0.6676817 0.6676817 0.3477509 0.4027713 0.6676817 0.6676817 0.000000 27.98375 17.18033 16.48924 13.52401 13.61211 0.6680102 0.6680102 0.6680102 0.3478563 0.4028685 0.6680102 0.6680102 0.000000 28.03026 17.18783 16.50251 13.54012 13.60957 0.6684175 0.6684175 0.6684175 0.3480040 0.4029615 0.6684175 0.6684175 0.000000 28.08221 17.19870 16.51552 13.55600 13.62521 0.6688142 0.6688142 0.6688142 0.3481015 0.4030505 0.6688142 0.6688142 0.000000 28.12714 17.20582 16.52830 13.56867 13.63767 0.6691115 0.6691115 0.6691115 0.3482415 0.4031943 0.6691115 0.6691115 0.000000 28.17134 17.21277 16.54086 13.58413 13.65288 0.6694888 0.6694888 0.6694888 0.3483317 0.4032756 0.6694888 0.6694888 0.000000 1.570794 4.192324 4.902428 5.625861 6.004603 0.6244498 0.6244498 0.6244498 0.3327801 0.3899134 0.6244498 0.6244498 0.000000 20.43054 15.80691 14.70955 11.79228 11.84256 0.6301060 0.6301060 0.6301060 0.3352474 0.3922539 0.6301060 0.6301060 0.000000 22.45699 16.17945 15.10571 12.09518 12.13313 0.6339167 0.6339167 0.6339167 0.3366036 0.3933743 0.6339167 0.6339167 0.000000 23.16600 16.32856 15.28389 12.24986 12.28528 0.6367064 0.6367064 0.6367064 0.3375737 0.3941844 0.6367064 0.6367064 0.000000 23.60428 16.42071 15.40033 12.35614 12.39143 0.6390474 0.6390474 0.6390474 0.3383556 0.3948810 0.6390474 0.6390474 0.000000 23.92839 16.49084 15.48647 12.43837 12.47544 0.6409125 0.6409125 0.6409125 0.3390011 0.3954195 0.6409125 0.6409125 0.000000 24.18897 16.54500 15.55532 12.50848 12.54895 0.6426509 0.6426509 0.6426509 0.3395367 0.3958462 0.6426509 0.6426509 0.000000 24.40970 16.58834 15.61592 12.57093 12.61122 0.6441621 0.6441621 0.6441621 0.3400358 0.3962890 0.6441621 0.6441621 0.000000 24.59900 16.62768 15.66895 12.62535 12.66721 0.6455731 0.6455731 0.6455731 0.3404935 0.3966615 0.6455731 0.6455731 0.000000 24.77071 16.66318 15.71358 12.67490 12.71993 0.6467726 0.6467726 0.6467726 0.3409402 0.3970547 0.6467726 0.6467726 0.000000 24.98804 16.69432 15.75838 12.72167 12.76818 0.6479191 0.6479191 0.6479191 0.3412974 0.3973622 0.6479191 0.6479191 0.000000 25.15013 16.72025 15.79662 12.76386 12.81185 0.6490554 0.6490554 0.6490554 0.3416809 0.3976618 0.6490554 0.6490554 0.000000 25.30058 16.74635 15.83356 12.80421 12.85366 0.6500215 0.6500215 0.6500215 0.3420029 0.3979643 0.6500215 0.6500215 0.000000 25.44467 16.77317 15.87001 12.84036 12.89282 0.6510351 0.6510351 0.6510351 0.3423223 0.3982159 0.6510351 0.6510351 0.000000 25.57652 16.79486 15.90271 12.87609 12.92844 0.6519246 0.6519246 0.6519246 0.3425970 0.3984238 0.6519246 0.6519246 0.000000 25.70512 16.81612 15.93225 12.90880 12.96410 0.6528018 0.6528018 0.6528018 0.3428819 0.3986554 0.6528018 0.6528018 0.000000 25.82437 16.83725 15.96287 12.94195 13.01973 0.6535850 0.6535850 0.6535850 0.3431815 0.3989149 0.6535850 0.6535850 0.000000 25.94320 16.85444 15.99109 12.99053 13.04045 0.6543795 0.6543795 0.6543795 0.3434508 0.3991444 0.6543795 0.6543795 0.000000 26.05536 16.87401 16.01722 13.02459 13.07022 0.6551002 0.6551002 0.6551002 0.3436933 0.3993470 0.6551002 0.6551002 0.000000 26.16022 16.89208 16.04337 13.03910 13.10509 0.6558484 0.6558484 0.6558484 0.3439117 0.3995256 0.6558484 0.6558484 0.000000 26.26096 16.90884 16.06786 13.06760 13.13843 0.6565369 0.6565369 0.6565369 0.3441567 0.3997436 0.6565369 0.6565369 0.000000 26.36341 16.92443 16.09271 13.09933 13.17043 0.6572646 0.6572646 0.6572646 0.3443820 0.3999417 0.6572646 0.6572646 0.000000 26.46157 16.93897 16.11622 13.12674 13.17878 0.6579430 0.6579430 0.6579430 0.3445894 0.4001216 0.6579430 0.6579430 0.000000 26.54777 16.95257 16.13853 13.15613 13.20770 0.6584840 0.6584840 0.6584840 0.3447804 0.4002850 0.6584840 0.6584840 0.000000 26.63826 16.96914 16.15973 13.16248 13.23560 0.6591689 0.6591689 0.6591689 0.3449565 0.4004332 0.6591689 0.6591689 0.000000 26.72550 16.98109 16.17995 13.18927 13.26258 0.6597236 0.6597236 0.6597236 0.3451665 0.4005674 0.6597236 0.6597236 0.000000 26.80976 16.99612 16.19925 13.21521 13.29175 0.6602436 0.6602436 0.6602436 0.3453636 0.4007491 0.6602436 0.6602436 0.000000 26.89127 17.00672 16.22129 13.23732 13.29559 0.6608232 0.6608232 0.6608232 0.3455487 0.4009185 0.6608232 0.6608232 0.000000 26.96234 17.02046 16.23897 13.26175 13.31966 0.6613727 0.6613727 0.6613727 0.3457229 0.4010765 0.6613727 0.6613727 0.000000 27.03880 17.03362 16.25950 13.28551 13.34306 0.6618941 0.6618941 0.6618941 0.3458867 0.4012240 0.6618941 0.6618941 0.000000 27.11308 17.04626 16.27580 13.29539 13.36584 0.6623896 0.6623896 0.6623896 0.3460410 0.4013617 0.6623896 0.6623896 0.000000 27.18532 17.05839 16.29503 13.30939 13.39104 0.6629516 0.6629516 0.6629516 0.3462334 0.4014901 0.6629516 0.6629516 0.000000 27.26197 17.06639 16.31367 13.33091 13.41271 0.6634907 0.6634907 0.6634907 0.3464172 0.4016098 0.6634907 0.6634907 0.000000 27.33055 17.07766 16.32824 13.35193 13.43388 0.6639173 0.6639173 0.6639173 0.3465462 0.4017214 0.6639173 0.6639173 0.000000 27.39746 17.08852 16.34583 13.37247 13.44329 0.6643239 0.6643239 0.6643239 0.3467145 0.4018849 0.6643239 0.6643239 0.000000 27.45514 17.09901 16.36294 13.39258 13.45641 0.6648020 0.6648020 0.6648020 0.3468290 0.4020410 0.6648020 0.6648020 0.000000 27.51891 17.10915 16.37960 13.41227 13.47581 0.6652619 0.6652619 0.6652619 0.3469836 0.4021307 0.6652619 0.6652619 0.000000 27.58130 17.11896 16.39234 13.43158 13.49482 0.6657048 0.6657048 0.6657048 0.3471318 0.4022138 0.6657048 0.6657048 0.000000 27.64239 17.13208 16.40818 13.45052 13.51345 0.6661316 0.6661316 0.6661316 0.3472741 0.4023502 0.6661316 0.6661316 0.000000 27.70225 17.14128 16.42364 13.44785 13.53174 0.6665429 0.6665429 0.6665429 0.3474106 0.4024806 0.6665429 0.6665429 0.000000 27.76095 17.15020 16.43875 13.46571 13.54969 0.6669398 0.6669398 0.6669398 0.3475417 0.4026053 0.6669398 0.6669398 0.000000 27.81854 17.15886 16.45352 13.48028 13.56734 0.6674126 0.6674126 0.6674126 0.3476676 0.4027247 0.6674126 0.6674126 0.000000 27.87510 17.16727 16.46448 13.49753 13.58469 0.6678721 0.6678721 0.6678721 0.3478351 0.4028389 0.6678721 0.6678721 0.000000 27.92440 17.17545 16.48211 13.51449 13.60177 0.6682292 0.6682292 0.6682292 0.3479514 0.4029481 0.6682292 0.6682292 0.000000 27.97171 17.18341 16.49248 13.53119 13.60243 0.6685743 0.6685743 0.6685743 0.3481095 0.4030527 0.6685743 0.6685743 0.000000 28.02538 17.19471 16.50606 13.54764 13.61697 0.6689975 0.6689975 0.6689975 0.3482170 0.4031529 0.6689975 0.6689975 0.000000 28.07193 17.20224 16.51938 13.56384 13.63294 0.6694096 0.6694096 0.6694096 0.3483205 0.4032487 0.6694096 0.6694096 0.000000 28.11768 17.20959 16.53244 13.57982 13.64866 0.6697218 0.6697218 0.6697218 0.3484662 0.4033404 0.6697218 0.6697218 0.000000 28.16890 17.21675 16.54527 13.59559 13.66417 0.6701133 0.6701133 0.6701133 0.3486081 0.4034282 0.6701133 0.6701133 0.000000 28.21939 17.22726 16.55787 13.60813 13.67946 0.6704949 0.6704949 0.6704949 0.3487002 0.4035122 0.6704949 0.6704949 0.000000 1.571417 4.194773 4.907753 5.628338 6.009671 0.6243606 0.6243606 0.6243606 0.3327388 0.3899255 0.6243606 0.6243606 0.000000 20.45174 15.81111 14.71417 11.79376 11.84405 0.6302582 0.6302582 0.6302582 0.3352765 0.3922961 0.6302582 0.6302582 0.000000 22.46488 16.18071 15.11126 12.09829 12.13624 0.6341136 0.6341136 0.6341136 0.3366476 0.3934806 0.6341136 0.6341136 0.000000 23.17503 16.33086 15.28727 12.25181 12.28936 0.6369056 0.6369056 0.6369056 0.3376634 0.3942716 0.6369056 0.6369056 0.000000 23.60977 16.42373 15.40187 12.35898 12.39622 0.6393281 0.6393281 0.6393281 0.3384791 0.3949396 0.6393281 0.6393281 0.000000 23.93498 16.49441 15.48876 12.44375 12.48262 0.6412579 0.6412579 0.6412579 0.3390999 0.3955073 0.6412579 0.6412579 0.000000 24.19648 16.54644 15.56051 12.51434 12.55303 0.6429499 0.6429499 0.6429499 0.3397084 0.3959586 0.6429499 0.6429499 0.000000 24.42181 16.59272 15.62152 12.57547 12.61747 0.6445071 0.6445071 0.6445071 0.3402257 0.3964224 0.6445071 0.6445071 0.000000 24.61167 16.63237 15.67276 12.63198 12.67548 0.6459577 0.6459577 0.6459577 0.3406487 0.3968132 0.6459577 0.6459577 0.000000 24.78387 16.66584 15.72196 12.68187 12.72688 0.6471921 0.6471921 0.6471921 0.3411093 0.3971597 0.6471921 0.6471921 0.000000 25.00210 16.69728 15.76291 12.72731 12.77383 0.6483696 0.6483696 0.6483696 0.3414789 0.3974820 0.6483696 0.6483696 0.000000 25.16473 16.72788 15.80547 12.76981 12.81938 0.6495333 0.6495333 0.6495333 0.3418733 0.3977949 0.6495333 0.6495333 0.000000 25.31565 16.75413 15.84262 12.81043 12.86300 0.6505245 0.6505245 0.6505245 0.3422053 0.3981095 0.6505245 0.6505245 0.000000 25.46020 16.77686 15.87537 12.84996 12.90238 0.6515607 0.6515607 0.6515607 0.3425337 0.3983723 0.6515607 0.6515607 0.000000 25.59921 16.80083 15.90830 12.88590 12.93821 0.6524711 0.6524711 0.6524711 0.3428168 0.3985905 0.6524711 0.6524711 0.000000 25.72093 16.82225 15.94188 12.91879 12.99186 0.6532730 0.6532730 0.6532730 0.3431093 0.3988317 0.6532730 0.6532730 0.000000 25.84770 16.84148 15.97266 12.95212 13.03065 0.6541685 0.6541685 0.6541685 0.3433674 0.3991000 0.6541685 0.6541685 0.000000 25.96685 16.86286 16.00104 13.00160 13.05068 0.6549796 0.6549796 0.6549796 0.3436434 0.3993377 0.6549796 0.6549796 0.000000 26.07277 16.87855 16.02733 13.03904 13.08442 0.6557158 0.6557158 0.6557158 0.3438921 0.3994870 0.6557158 0.6557158 0.000000 26.18440 16.89676 16.05177 13.05190 13.11952 0.6564785 0.6564785 0.6564785 0.3441646 0.3997341 0.6564785 0.6564785 0.000000 26.28540 16.91365 16.07825 13.08215 13.15310 0.6571807 0.6571807 0.6571807 0.3443670 0.3998981 0.6571807 0.6571807 0.000000 26.38812 16.92936 16.10324 13.11101 13.16328 0.6579210 0.6579210 0.6579210 0.3445975 0.4001028 0.6579210 0.6579210 0.000000 26.48009 16.94787 16.12687 13.14170 13.19351 0.6585190 0.6585190 0.6585190 0.3448098 0.4002891 0.6585190 0.6585190 0.000000 26.57289 16.96156 16.14930 13.17129 13.22261 0.6591641 0.6591641 0.6591641 0.3450532 0.4004585 0.6591641 0.6591641 0.000000 26.66359 16.97440 16.17063 13.17747 13.25070 0.6598597 0.6598597 0.6598597 0.3452337 0.4006729 0.6598597 0.6598597 0.000000 26.75103 16.99024 16.19096 13.20443 13.27785 0.6604249 0.6604249 0.6604249 0.3454478 0.4008126 0.6604249 0.6604249 0.000000 26.83548 17.00534 16.21395 13.23053 13.30388 0.6609549 0.6609549 0.6609549 0.3456488 0.4009391 0.6609549 0.6609549 0.000000 26.91718 17.01601 16.23251 13.25280 13.31085 0.6615438 0.6615438 0.6615438 0.3457904 0.4011135 0.6615438 0.6615438 0.000000 26.99468 17.02982 16.25385 13.27739 13.33806 0.6621023 0.6621023 0.6621023 0.3460155 0.4012763 0.6621023 0.6621023 0.000000 27.07129 17.04304 16.27091 13.30132 13.36161 0.6626324 0.6626324 0.6626324 0.3461828 0.4014285 0.6626324 0.6626324 0.000000 27.14571 17.05573 16.29085 13.30590 13.38453 0.6631362 0.6631362 0.6631362 0.3463404 0.4015706 0.6631362 0.6631362 0.000000 27.21809 17.06425 16.30663 13.32810 13.40987 0.6637061 0.6637061 0.6637061 0.3465359 0.4017033 0.6637061 0.6637061 0.000000 27.28857 17.07600 16.32535 13.34975 13.43168 0.6642526 0.6642526 0.6642526 0.3466759 0.4018272 0.6642526 0.6642526 0.000000 27.36356 17.08732 16.34353 13.37090 13.44522 0.6646867 0.6646867 0.6646867 0.3468547 0.4020024 0.6646867 0.6646867 0.000000 27.43058 17.09823 16.36119 13.39157 13.45542 0.6651908 0.6651908 0.6651908 0.3469791 0.4021101 0.6651908 0.6651908 0.000000 27.48831 17.10878 16.37837 13.41180 13.47535 0.6655853 0.6655853 0.6655853 0.3471432 0.4022699 0.6655853 0.6655853 0.000000 27.55218 17.11897 16.39160 13.43162 13.49486 0.6660519 0.6660519 0.6660519 0.3473004 0.4023632 0.6660519 0.6660519 0.000000 27.61466 17.13244 16.40790 13.45105 13.51397 0.6665011 0.6665011 0.6665011 0.3474512 0.4025092 0.6665011 0.6665011 0.000000 27.67583 17.14197 16.42381 13.44882 13.53271 0.6669340 0.6669340 0.6669340 0.3475959 0.4026489 0.6669340 0.6669340 0.000000 27.73577 17.15122 16.43933 13.46711 13.55110 0.6674412 0.6674412 0.6674412 0.3477348 0.4027234 0.6674412 0.6674412 0.000000 27.79453 17.16018 16.45450 13.48507 13.56916 0.6679334 0.6679334 0.6679334 0.3478683 0.4028513 0.6679334 0.6679334 0.000000 27.85220 17.16888 16.46933 13.49973 13.58991 0.6683218 0.6683218 0.6683218 0.3479965 0.4029737 0.6683218 0.6683218 0.000000 27.90882 17.17734 16.48383 13.51707 13.60738 0.6686970 0.6686970 0.6686970 0.3481198 0.4030909 0.6686970 0.6686970 0.000000 27.96444 17.18556 16.49455 13.53413 13.60366 0.6690595 0.6690595 0.6690595 0.3482845 0.4032031 0.6690595 0.6690595 0.000000 28.00550 17.19711 16.51193 13.55092 13.62020 0.6694991 0.6694991 0.6694991 0.3484446 0.4033106 0.6694991 0.6694991 0.000000 28.05921 17.20488 16.52209 13.56746 13.63648 0.6699271 0.6699271 0.6699271 0.3485543 0.4034135 0.6699271 0.6699271 0.000000 28.11206 17.21245 16.53545 13.58376 13.65252 0.6702546 0.6702546 0.6702546 0.3486598 0.4035121 0.6702546 0.6702546 0.000000 28.16410 17.21983 16.54856 13.59983 13.66832 0.6706608 0.6706608 0.6706608 0.3487613 0.4036065 0.6706608 0.6706608 0.000000 28.20286 17.23055 16.56144 13.60535 13.68390 0.6710566 0.6710566 0.6710566 0.3489510 0.4037554 0.6710566 0.6710566 0.000000 28.25338 17.23757 16.57408 13.61028 13.69926 0.6713537 0.6713537 0.6713537 0.3490450 0.4038419 0.6713537 0.6713537 0.000000 1.571995 4.199925 4.912909 5.635692 6.014563 0.6243829 0.6243829 0.6243829 0.3327523 0.3899367 0.6243829 0.6243829 0.000000 20.45803 15.81501 14.71434 11.79794 11.84817 0.6302882 0.6302882 0.6302882 0.3353529 0.3923330 0.6302882 0.6302882 0.000000 22.46656 16.18530 15.11319 12.10103 12.13898 0.6341840 0.6341840 0.6341840 0.3367353 0.3935137 0.6341840 0.6341840 0.000000 23.17850 16.33280 15.29023 12.25551 12.29096 0.6370795 0.6370795 0.6370795 0.3377422 0.3943493 0.6370795 0.6370795 0.000000 23.61906 16.42928 15.40556 12.36335 12.39865 0.6394781 0.6394781 0.6394781 0.3385387 0.3950517 0.6394781 0.6394781 0.000000 23.94503 16.49758 15.49302 12.44867 12.48569 0.6415721 0.6415721 0.6415721 0.3392368 0.3955834 0.6415721 0.6415721 0.000000 24.20719 16.55260 15.56292 12.51971 12.56014 0.6433155 0.6433155 0.6433155 0.3398153 0.3960584 0.6433155 0.6433155 0.000000 24.42549 16.59667 15.62441 12.58124 12.62322 0.6448175 0.6448175 0.6448175 0.3403505 0.3965424 0.6448175 0.6448175 0.000000 24.62348 16.63663 15.67822 12.63642 12.67993 0.6463062 0.6463062 0.6463062 0.3408391 0.3969509 0.6463062 0.6463062 0.000000 24.78901 16.67265 15.72563 12.68831 12.73330 0.6475742 0.6475742 0.6475742 0.3412628 0.3973131 0.6475742 0.6475742 0.000000 25.01522 16.70427 15.77099 12.73566 12.78213 0.6487814 0.6487814 0.6487814 0.3416444 0.3976494 0.6487814 0.6487814 0.000000 25.17837 16.73065 15.80975 12.77840 12.82793 0.6499717 0.6499717 0.6499717 0.3420494 0.3979749 0.6499717 0.6499717 0.000000 25.32974 16.75713 15.84717 12.81924 12.86866 0.6509870 0.6509870 0.6509870 0.3423910 0.3982389 0.6509870 0.6509870 0.000000 25.47472 16.78430 15.88406 12.85897 12.90982 0.6520451 0.6520451 0.6520451 0.3427281 0.3985125 0.6520451 0.6520451 0.000000 25.61412 16.80424 15.91718 12.89511 12.94739 0.6529757 0.6529757 0.6529757 0.3430192 0.3987407 0.6529757 0.6529757 0.000000 25.74287 16.82789 15.94901 12.92819 13.00188 0.6537963 0.6537963 0.6537963 0.3433192 0.3989910 0.6537963 0.6537963 0.000000 25.86333 16.84929 15.97809 12.96169 13.04407 0.6547089 0.6547089 0.6547089 0.3435841 0.3992679 0.6547089 0.6547089 0.000000 25.98281 16.86676 16.00666 13.01516 13.06095 0.6555358 0.6555358 0.6555358 0.3438664 0.3995136 0.6555358 0.6555358 0.000000 26.09435 16.88657 16.03683 13.04972 13.09800 0.6562870 0.6562870 0.6562870 0.3441211 0.3996705 0.6562870 0.6562870 0.000000 26.20094 16.90488 16.06142 13.06252 13.13332 0.6570635 0.6570635 0.6570635 0.3443990 0.3999246 0.6570635 0.6570635 0.000000 26.30869 16.92186 16.08803 13.09604 13.16711 0.6577789 0.6577789 0.6577789 0.3446067 0.4000953 0.6577789 0.6577789 0.000000 26.41164 16.93766 16.11314 13.12510 13.17717 0.6585315 0.6585315 0.6585315 0.3448421 0.4003063 0.6585315 0.6585315 0.000000 26.51027 16.95240 16.13690 13.15600 13.20758 0.6591413 0.6591413 0.6591413 0.3450591 0.4004986 0.6591413 0.6591413 0.000000 26.59679 16.97002 16.15944 13.16373 13.23686 0.6597975 0.6597975 0.6597975 0.3453069 0.4006738 0.6597975 0.6597975 0.000000 26.68769 16.98294 16.18089 13.19179 13.26816 0.6605034 0.6605034 0.6605034 0.3454916 0.4008332 0.6605034 0.6605034 0.000000 26.77533 16.99885 16.20132 13.21891 13.29549 0.6610787 0.6610787 0.6610787 0.3456623 0.4010384 0.6610787 0.6610787 0.000000 26.86631 17.01026 16.22441 13.24517 13.30333 0.6616184 0.6616184 0.6616184 0.3459144 0.4011700 0.6616184 0.6616184 0.000000 26.94817 17.02476 16.24307 13.27064 13.32842 0.6623076 0.6623076 0.6623076 0.3460598 0.4013490 0.6623076 0.6623076 0.000000 27.02576 17.03863 16.26451 13.29539 13.35278 0.6627834 0.6627834 0.6627834 0.3462881 0.4015164 0.6627834 0.6627834 0.000000 27.10251 17.05191 16.28521 13.30088 13.37646 0.6634129 0.6634129 0.6634129 0.3464119 0.4016132 0.6634129 0.6634129 0.000000 27.17706 17.06098 16.30169 13.32079 13.40252 0.6639245 0.6639245 0.6639245 0.3466197 0.4018193 0.6639245 0.6639245 0.000000 27.24957 17.07324 16.32108 13.34312 13.42500 0.6644111 0.6644111 0.6644111 0.3468182 0.4019561 0.6644111 0.6644111 0.000000 27.32016 17.08505 16.33988 13.36489 13.44997 0.6649649 0.6649649 0.6649649 0.3469612 0.4020839 0.6649649 0.6649649 0.000000 27.38897 17.09642 16.35461 13.38616 13.45008 0.6654965 0.6654965 0.6654965 0.3470961 0.4022034 0.6654965 0.6654965 0.000000 27.45472 17.10739 16.37235 13.40695 13.47354 0.6660073 0.6660073 0.6660073 0.3472701 0.4023742 0.6660073 0.6660073 0.000000 27.52015 17.11798 16.38961 13.43032 13.49358 0.6664985 0.6664985 0.6664985 0.3474367 0.4024782 0.6664985 0.6664985 0.000000 27.58411 17.13183 16.40640 13.45026 13.51320 0.6669711 0.6669711 0.6669711 0.3475965 0.4026343 0.6669711 0.6669711 0.000000 27.64668 17.14172 16.42278 13.44852 13.53241 0.6674263 0.6674263 0.6674263 0.3477497 0.4027244 0.6674263 0.6674263 0.000000 27.70793 17.15130 16.43874 13.46726 13.55125 0.6678649 0.6678649 0.6678649 0.3478968 0.4028673 0.6678649 0.6678649 0.000000 27.76793 17.16059 16.45433 13.48565 13.57274 0.6682878 0.6682878 0.6682878 0.3480381 0.4030041 0.6682878 0.6682878 0.000000 27.82677 17.16960 16.46955 13.50370 13.59091 0.6686959 0.6686959 0.6686959 0.3481738 0.4030761 0.6686959 0.6686959 0.000000 27.88450 17.17834 16.48443 13.52144 13.61178 0.6690897 0.6690897 0.6690897 0.3483043 0.4032015 0.6690897 0.6690897 0.000000 27.94117 17.18683 16.49551 13.53888 13.60835 0.6695595 0.6695595 0.6695595 0.3484758 0.4033216 0.6695595 0.6695595 0.000000 27.99577 17.19864 16.51324 13.55603 13.62525 0.6700162 0.6700162 0.6700162 0.3485964 0.4034366 0.6700162 0.6700162 0.000000 28.04417 17.20667 16.52372 13.57292 13.64187 0.6703714 0.6703714 0.6703714 0.3487584 0.4035469 0.6703714 0.6703714 0.000000 28.09793 17.21448 16.54087 13.58955 13.65823 0.6707149 0.6707149 0.6707149 0.3488700 0.4036525 0.6707149 0.6707149 0.000000 28.14457 17.22562 16.55081 13.60594 13.67434 0.6712252 0.6712252 0.6712252 0.3489774 0.4037537 0.6712252 0.6712252 0.000000 28.19665 17.23302 16.56743 13.60275 13.69022 0.6715467 0.6715467 0.6715467 0.3491268 0.4039091 0.6715467 0.6715467 0.000000 28.24794 17.24024 16.57688 13.61686 13.70587 0.6718580 0.6718580 0.6718580 0.3492722 0.4040020 0.6718580 0.6718580 0.000000 28.29224 17.26701 16.59303 13.63224 13.72131 0.6723369 0.6723369 0.6723369 0.3493680 0.4040909 0.6723369 0.6723369 0.000000 1.572535 4.204925 4.917912 5.640365 6.021852 0.6244037 0.6244037 0.6244037 0.3327650 0.3899472 0.6244037 0.6244037 0.000000 20.46390 15.81866 14.71836 11.80185 11.84910 0.6304134 0.6304134 0.6304134 0.3353691 0.3923651 0.6304134 0.6304134 0.000000 22.47341 16.18595 15.11479 12.10345 12.14140 0.6343407 0.6343407 0.6343407 0.3368144 0.3935397 0.6343407 0.6343407 0.000000 23.18143 16.33761 15.29283 12.25883 12.29427 0.6373335 0.6373335 0.6373335 0.3378108 0.3944182 0.6373335 0.6373335 0.000000 23.62326 16.43158 15.40887 12.36734 12.40262 0.6397040 0.6397040 0.6397040 0.3386388 0.3950895 0.6397040 0.6397040 0.000000 23.95024 16.50039 15.49686 12.45132 12.49018 0.6417574 0.6417574 0.6417574 0.3393615 0.3956486 0.6417574 0.6417574 0.000000 24.21324 16.55327 15.56951 12.52287 12.56331 0.6435513 0.6435513 0.6435513 0.3399602 0.3962100 0.6435513 0.6435513 0.000000 24.43606 16.60024 15.62908 12.58656 12.62852 0.6451945 0.6451945 0.6451945 0.3405123 0.3966501 0.6451945 0.6451945 0.000000 24.62720 16.64048 15.68322 12.64376 12.68722 0.6466216 0.6466216 0.6466216 0.3409654 0.3970757 0.6466216 0.6466216 0.000000 24.80051 16.67447 15.73300 12.69426 12.74086 0.6479221 0.6479221 0.6479221 0.3414022 0.3973903 0.6479221 0.6479221 0.000000 25.02964 16.70638 15.77451 12.74028 12.78995 0.6491579 0.6491579 0.6491579 0.3417953 0.3977404 0.6491579 0.6491579 0.000000 25.19114 16.73737 15.81755 12.78648 12.83598 0.6503739 0.6503739 0.6503739 0.3422104 0.3980784 0.6503739 0.6503739 0.000000 25.34295 16.76400 15.85517 12.82753 12.87692 0.6514126 0.6514126 0.6514126 0.3425614 0.3983538 0.6514126 0.6514126 0.000000 25.48832 16.78708 15.89029 12.86435 12.91674 0.6524917 0.6524917 0.6524917 0.3429069 0.3986377 0.6524917 0.6524917 0.000000 25.62810 16.81137 15.92552 12.90379 12.95604 0.6534417 0.6534417 0.6534417 0.3432058 0.3989372 0.6534417 0.6534417 0.000000 25.75718 16.83308 15.95562 12.93704 13.01448 0.6542804 0.6542804 0.6542804 0.3435129 0.3991963 0.6542804 0.6542804 0.000000 25.88459 16.85260 15.98676 12.97071 13.05059 0.6552095 0.6552095 0.6552095 0.3437844 0.3994199 0.6552095 0.6552095 0.000000 25.99778 16.87422 16.01547 13.02502 13.07065 0.6560519 0.6560519 0.6560519 0.3440728 0.3996733 0.6560519 0.6560519 0.000000 26.10959 16.89215 16.04393 13.04036 13.10791 0.6568176 0.6568176 0.6568176 0.3443332 0.3998377 0.6568176 0.6568176 0.000000 26.22294 16.91056 16.07051 13.07564 13.14345 0.6576075 0.6576075 0.6576075 0.3446165 0.4000985 0.6576075 0.6576075 0.000000 26.32446 16.92765 16.09724 13.10628 13.16014 0.6583356 0.6583356 0.6583356 0.3448293 0.4002758 0.6583356 0.6583356 0.000000 26.42767 16.94548 16.12247 13.13861 13.19047 0.6591000 0.6591000 0.6591000 0.3450695 0.4004928 0.6591000 0.6591000 0.000000 26.52494 16.96031 16.14635 13.16970 13.22105 0.6598133 0.6598133 0.6598133 0.3452910 0.4006909 0.6598133 0.6598133 0.000000 26.61962 16.97419 16.16901 13.17729 13.25051 0.6604800 0.6604800 0.6604800 0.3455429 0.4008716 0.6604800 0.6604800 0.000000 26.71071 16.99099 16.19056 13.20551 13.28198 0.6611041 0.6611041 0.6611041 0.3457318 0.4010364 0.6611041 0.6611041 0.000000 26.79852 17.00509 16.21468 13.23278 13.30128 0.6616891 0.6616891 0.6616891 0.3459063 0.4012465 0.6616891 0.6616891 0.000000 26.88968 17.01846 16.23429 13.25919 13.31715 0.6623293 0.6623293 0.6623293 0.3461620 0.4013829 0.6623293 0.6623293 0.000000 26.96378 17.03301 16.25661 13.28482 13.34238 0.6629358 0.6629358 0.6629358 0.3463110 0.4015067 0.6629358 0.6629358 0.000000 27.04937 17.04694 16.27457 13.30061 13.36988 0.6635112 0.6635112 0.6635112 0.3465426 0.4017383 0.6635112 0.6635112 0.000000 27.12626 17.06029 16.29536 13.31502 13.39369 0.6640576 0.6640576 0.6640576 0.3467166 0.4018394 0.6640576 0.6640576 0.000000 27.20726 17.06942 16.31546 13.33805 13.41689 0.6646675 0.6646675 0.6646675 0.3468806 0.4019899 0.6646675 0.6646675 0.000000 27.27988 17.08174 16.33140 13.36050 13.44252 0.6651615 0.6651615 0.6651615 0.3470820 0.4021307 0.6651615 0.6651615 0.000000 27.35058 17.09359 16.35028 13.38239 13.44638 0.6656319 0.6656319 0.6656319 0.3472279 0.4023218 0.6656319 0.6656319 0.000000 27.41949 17.10501 16.36860 13.40378 13.46746 0.6661703 0.6661703 0.6661703 0.3474122 0.4024450 0.6661703 0.6661703 0.000000 27.48529 17.11603 16.38641 13.42470 13.48805 0.6666876 0.6666876 0.6666876 0.3475422 0.4025601 0.6666876 0.6666876 0.000000 27.55081 17.13029 16.40372 13.44819 13.51117 0.6671851 0.6671851 0.6671851 0.3477114 0.4027267 0.6671851 0.6671851 0.000000 27.61485 17.14056 16.42059 13.44700 13.53089 0.6676639 0.6676639 0.6676639 0.3478736 0.4028270 0.6676639 0.6676639 0.000000 27.67750 17.15050 16.43702 13.46622 13.55020 0.6681249 0.6681249 0.6681249 0.3480292 0.4029795 0.6681249 0.6681249 0.000000 27.73882 17.16012 16.45304 13.48506 13.56915 0.6685693 0.6685693 0.6685693 0.3481786 0.4030665 0.6685693 0.6685693 0.000000 27.79890 17.16945 16.46868 13.50354 13.59074 0.6689978 0.6689978 0.6689978 0.3483221 0.4032063 0.6689978 0.6689978 0.000000 27.85780 17.17850 16.48396 13.52168 13.61202 0.6695005 0.6695005 0.6695005 0.3484600 0.4033401 0.6695005 0.6695005 0.000000 27.91558 17.18728 16.49541 13.53951 13.60897 0.6699888 0.6699888 0.6699888 0.3486386 0.4034683 0.6699888 0.6699888 0.000000 27.97127 17.19937 16.51350 13.55704 13.62623 0.6703742 0.6703742 0.6703742 0.3487661 0.4035912 0.6703742 0.6703742 0.000000 28.02692 17.20765 16.52780 13.57428 13.64321 0.6707466 0.6707466 0.6707466 0.3489346 0.4037089 0.6707466 0.6707466 0.000000 28.08162 17.21571 16.54180 13.59126 13.65990 0.6711956 0.6711956 0.6711956 0.3490525 0.4038218 0.6711956 0.6711956 0.000000 28.13542 17.22709 16.55552 13.60798 13.67931 0.6716325 0.6716325 0.6716325 0.3491661 0.4039299 0.6716325 0.6716325 0.000000 28.18209 17.23472 16.56898 13.60356 13.69550 0.6719694 0.6719694 0.6719694 0.3492754 0.4040336 0.6719694 0.6719694 0.000000 28.22795 17.24215 16.58218 13.61945 13.71146 0.6724727 0.6724727 0.6724727 0.3494722 0.4041331 0.6724727 0.6724727 0.000000 28.27928 17.26920 16.59513 13.63512 13.72719 0.6727883 0.6727883 0.6727883 0.3495735 0.4042284 0.6727883 0.6727883 0.000000 28.32986 17.27649 16.60785 13.65056 13.74270 0.6731824 0.6731824 0.6731824 0.3496711 0.4043779 0.6731824 0.6731824 0.000000 1.573039 4.206913 4.919882 5.644900 6.023890 0.6244233 0.6244233 0.6244233 0.3327769 0.3899570 0.6244233 0.6244233 0.000000 20.46938 15.82208 14.72212 11.80250 11.85270 0.6304188 0.6304188 0.6304188 0.3353796 0.3923927 0.6304188 0.6304188 0.000000 22.47418 16.18998 15.11932 12.10558 12.14353 0.6344799 0.6344799 0.6344799 0.3368326 0.3936242 0.6344799 0.6344799 0.000000 23.18878 16.33895 15.29792 12.26183 12.29727 0.6374630 0.6374630 0.6374630 0.3379224 0.3944790 0.6374630 0.6374630 0.000000 23.62693 16.43358 15.41182 12.36901 12.40624 0.6399060 0.6399060 0.6399060 0.3387285 0.3951825 0.6399060 0.6399060 0.000000 23.95488 16.50288 15.50033 12.45545 12.49429 0.6420171 0.6420171 0.6420171 0.3394751 0.3957676 0.6420171 0.6420171 0.000000 24.21867 16.55871 15.57112 12.52743 12.56785 0.6438586 0.6438586 0.6438586 0.3400426 0.3962872 0.6438586 0.6438586 0.000000 24.44596 16.60346 15.63334 12.59148 12.63342 0.6454440 0.6454440 0.6454440 0.3406115 0.3967463 0.6454440 0.6454440 0.000000 24.63757 16.64398 15.68780 12.64732 12.69080 0.6469068 0.6469068 0.6469068 0.3411290 0.3971256 0.6469068 0.6469068 0.000000 24.81130 16.68050 15.73579 12.69979 12.74476 0.6483353 0.6483353 0.6483353 0.3415780 0.3975178 0.6483353 0.6483353 0.000000 25.04121 16.71034 15.78166 12.74768 12.79414 0.6495983 0.6495983 0.6495983 0.3419820 0.3978811 0.6495983 0.6495983 0.000000 25.20315 16.73936 15.82091 12.79092 12.84043 0.6507429 0.6507429 0.6507429 0.3423577 0.3982309 0.6507429 0.6507429 0.000000 25.36279 16.76621 15.86074 12.83379 12.88472 0.6518042 0.6518042 0.6518042 0.3427176 0.3985171 0.6518042 0.6518042 0.000000 25.50789 16.79369 15.89607 12.87237 12.92473 0.6529036 0.6529036 0.6529036 0.3430713 0.3988109 0.6529036 0.6529036 0.000000 25.64124 16.81602 15.92957 12.90890 12.96421 0.6538725 0.6538725 0.6538725 0.3433778 0.3990580 0.6538725 0.6538725 0.000000 25.77065 16.83788 15.96366 12.94541 13.02344 0.6548226 0.6548226 0.6548226 0.3436917 0.3993257 0.6548226 0.6548226 0.000000 25.89837 16.85954 15.99494 12.99740 13.04656 0.6556737 0.6556737 0.6556737 0.3439697 0.3995574 0.6556737 0.6556737 0.000000 26.01842 16.87926 16.02379 13.03750 13.08292 0.6565310 0.6565310 0.6565310 0.3442640 0.3998183 0.6565310 0.6565310 0.000000 26.13043 16.89731 16.05054 13.05276 13.12039 0.6573107 0.6573107 0.6573107 0.3445300 0.4000506 0.6573107 0.6573107 0.000000 26.24401 16.91583 16.07909 13.08514 13.15613 0.6582063 0.6582063 0.6582063 0.3448184 0.4002572 0.6582063 0.6582063 0.000000 26.34577 16.93302 16.10595 13.11905 13.17121 0.6588541 0.6588541 0.6588541 0.3450838 0.4004407 0.6588541 0.6588541 0.000000 26.44918 16.94902 16.13130 13.15157 13.20323 0.6596299 0.6596299 0.6596299 0.3452809 0.4006637 0.6596299 0.6596299 0.000000 26.54660 16.96778 16.15529 13.16088 13.23398 0.6603541 0.6603541 0.6603541 0.3455542 0.4008674 0.6603541 0.6603541 0.000000 26.64147 16.98174 16.17806 13.19029 13.26361 0.6610312 0.6610312 0.6610312 0.3457628 0.4010534 0.6610312 0.6610312 0.000000 26.73274 16.99860 16.19971 13.21867 13.29525 0.6616651 0.6616651 0.6616651 0.3459556 0.4012233 0.6616651 0.6616651 0.000000 26.82708 17.01089 16.22393 13.24609 13.30424 0.6623508 0.6623508 0.6623508 0.3461811 0.4014382 0.6623508 0.6623508 0.000000 26.91203 17.02621 16.24363 13.27266 13.33041 0.6629996 0.6629996 0.6629996 0.3463930 0.4015793 0.6629996 0.6629996 0.000000 26.99256 17.04082 16.26604 13.29843 13.35578 0.6635236 0.6635236 0.6635236 0.3465456 0.4017076 0.6635236 0.6635236 0.000000 27.07197 17.05481 16.28764 13.30479 13.38341 0.6641977 0.6641977 0.6641977 0.3467803 0.4018838 0.6641977 0.6641977 0.000000 27.14899 17.06453 16.30497 13.32858 13.41037 0.6647518 0.6647518 0.6647518 0.3469574 0.4020487 0.6647518 0.6647518 0.000000 27.23010 17.07740 16.32515 13.35174 13.43369 0.6652786 0.6652786 0.6652786 0.3471244 0.4022031 0.6652786 0.6652786 0.000000 27.30914 17.08978 16.34469 13.37430 13.44139 0.6658700 0.6658700 0.6658700 0.3473286 0.4023477 0.6658700 0.6658700 0.000000 27.37995 17.10168 16.36364 13.39632 13.46010 0.6664373 0.6664373 0.6664373 0.3475239 0.4025424 0.6664373 0.6664373 0.000000 27.44896 17.11315 16.38203 13.41782 13.48425 0.6668921 0.6668921 0.6668921 0.3476643 0.4026691 0.6668921 0.6668921 0.000000 27.51479 17.12784 16.39639 13.44187 13.50495 0.6674156 0.6674156 0.6674156 0.3478433 0.4027877 0.6674156 0.6674156 0.000000 27.58040 17.13851 16.41728 13.44133 13.52817 0.6679190 0.6679190 0.6679190 0.3479685 0.4029575 0.6679190 0.6679190 0.000000 27.64452 17.14883 16.43070 13.46104 13.54799 0.6684036 0.6684036 0.6684036 0.3481331 0.4030611 0.6684036 0.6684036 0.000000 27.70723 17.15881 16.45069 13.48035 13.56741 0.6689598 0.6689598 0.6689598 0.3482911 0.4032166 0.6689598 0.6689598 0.000000 27.76863 17.16847 16.46328 13.49928 13.58946 0.6694095 0.6694095 0.6694095 0.3484427 0.4033067 0.6694095 0.6694095 0.000000 27.82877 17.17784 16.48246 13.51785 13.60816 0.6698431 0.6698431 0.6698431 0.3486344 0.4034494 0.6698431 0.6698431 0.000000 27.89399 17.18693 16.49431 13.53907 13.60854 0.6702616 0.6702616 0.6702616 0.3487744 0.4035860 0.6702616 0.6702616 0.000000 27.94557 17.19930 16.51277 13.55698 13.62618 0.6706657 0.6706657 0.6706657 0.3489090 0.4037169 0.6706657 0.6706657 0.000000 28.00126 17.20786 16.52395 13.57460 13.64352 0.6712339 0.6712339 0.6712339 0.3490843 0.4038424 0.6712339 0.6712339 0.000000 28.05696 17.21618 16.54177 13.59193 13.66354 0.6716109 0.6716109 0.6716109 0.3492088 0.4039627 0.6716109 0.6716109 0.000000 28.11171 17.22781 16.55582 13.61201 13.68031 0.6719754 0.6719754 0.6719754 0.3493286 0.4040781 0.6719754 0.6719754 0.000000 28.16554 17.23568 16.56959 13.60488 13.69682 0.6725054 0.6725054 0.6725054 0.3494897 0.4041887 0.6725054 0.6725054 0.000000 28.21226 17.24334 16.58308 13.62107 13.71308 0.6728465 0.6728465 0.6728465 0.3496465 0.4042948 0.6728465 0.6728465 0.000000 28.26440 17.27065 16.59632 13.63703 13.72910 0.6732652 0.6732652 0.6732652 0.3497534 0.4043966 0.6732652 0.6732652 0.000000 28.30951 17.27815 16.60932 13.65276 13.74490 0.6736733 0.6736733 0.6736733 0.3498565 0.4044942 0.6736733 0.6736733 0.000000 28.36012 17.28905 16.62208 13.66827 13.76049 0.6739830 0.6739830 0.6739830 0.3500014 0.4045879 0.6739830 0.6739830 0.000000 1.573512 4.211653 4.924629 5.651838 6.030912 0.6244418 0.6244418 0.6244418 0.3327882 0.3899663 0.6244418 0.6244418 0.000000 20.48892 15.82529 14.72565 11.80595 11.85609 0.6305214 0.6305214 0.6305214 0.3354391 0.3924162 0.6305214 0.6305214 0.000000 22.48020 16.19013 15.12036 12.10983 12.14773 0.6346030 0.6346030 0.6346030 0.3368965 0.3936374 0.6346030 0.6346030 0.000000 23.19569 16.34320 15.29990 12.26453 12.29997 0.6376760 0.6376760 0.6376760 0.3379731 0.3945323 0.6376760 0.6376760 0.000000 23.63458 16.43530 15.41445 12.37232 12.40954 0.6401873 0.6401873 0.6401873 0.3388602 0.3952668 0.6401873 0.6401873 0.000000 23.96316 16.50508 15.50347 12.45924 12.49627 0.6422526 0.6422526 0.6422526 0.3395783 0.3958772 0.6422526 0.6422526 0.000000 24.22750 16.56129 15.57696 12.53162 12.57203 0.6441402 0.6441402 0.6441402 0.3402154 0.3963545 0.6441402 0.6441402 0.000000 24.44770 16.60637 15.63725 12.59602 12.63796 0.6457647 0.6457647 0.6457647 0.3407495 0.3968320 0.6457647 0.6457647 0.000000 24.64733 16.64716 15.69201 12.65384 12.69729 0.6472613 0.6472613 0.6472613 0.3412308 0.3972902 0.6472613 0.6472613 0.000000 24.82144 16.68164 15.74234 12.70493 12.75150 0.6487193 0.6487193 0.6487193 0.3416920 0.3976338 0.6487193 0.6487193 0.000000 25.05210 16.71398 15.78639 12.75468 12.80110 0.6500085 0.6500085 0.6500085 0.3421561 0.3980098 0.6500085 0.6500085 0.000000 25.21445 16.74535 15.82786 12.79813 12.84761 0.6510813 0.6510813 0.6510813 0.3425412 0.3983091 0.6510813 0.6510813 0.000000 25.37447 16.77233 15.86590 12.83962 12.89210 0.6522593 0.6522593 0.6522593 0.3429097 0.3986677 0.6522593 0.6522593 0.000000 25.51993 16.79574 15.90336 12.87996 12.93230 0.6532837 0.6532837 0.6532837 0.3432711 0.3989096 0.6532837 0.6532837 0.000000 25.65363 16.82032 15.93702 12.91666 12.97194 0.6542708 0.6542708 0.6542708 0.3435847 0.3992271 0.6542708 0.6542708 0.000000 25.78997 16.84231 15.97125 12.95333 13.03507 0.6553313 0.6553313 0.6553313 0.3439051 0.3995030 0.6553313 0.6553313 0.000000 25.91135 16.86410 16.00268 13.00918 13.05507 0.6561977 0.6561977 0.6561977 0.3441891 0.3997423 0.6561977 0.6561977 0.000000 26.03169 16.88394 16.03167 13.04637 13.09471 0.6570691 0.6570691 0.6570691 0.3444891 0.3999495 0.6570691 0.6570691 0.000000 26.14394 16.90406 16.05855 13.06160 13.13238 0.6578621 0.6578621 0.6578621 0.3447603 0.4001885 0.6578621 0.6578621 0.000000 26.25777 16.92267 16.08722 13.09725 13.16833 0.6586774 0.6586774 0.6586774 0.3450059 0.4004016 0.6586774 0.6586774 0.000000 26.36621 16.93994 16.11419 13.12826 13.18332 0.6595216 0.6595216 0.6595216 0.3452760 0.4006517 0.6595216 0.6595216 0.000000 26.46983 16.95602 16.13966 13.16097 13.21550 0.6602162 0.6602162 0.6602162 0.3455250 0.4008200 0.6602162 0.6602162 0.000000 26.56739 16.97295 16.16376 13.17323 13.24642 0.6608590 0.6608590 0.6608590 0.3457550 0.4010291 0.6608590 0.6608590 0.000000 26.66243 16.98889 16.18663 13.20280 13.27621 0.6616375 0.6616375 0.6616375 0.3459677 0.4012203 0.6616375 0.6616375 0.000000 26.75387 17.00582 16.21197 13.23132 13.29693 0.6622809 0.6622809 0.6622809 0.3461643 0.4013952 0.6622809 0.6622809 0.000000 26.84202 17.01818 16.23269 13.25890 13.31687 0.6629753 0.6629753 0.6629753 0.3463934 0.4016147 0.6629753 0.6629753 0.000000 26.93348 17.03355 16.25605 13.28561 13.34317 0.6635417 0.6635417 0.6635417 0.3466088 0.4017604 0.6635417 0.6635417 0.000000 27.01410 17.04823 16.27499 13.29311 13.37166 0.6642554 0.6642554 0.6642554 0.3468115 0.4019527 0.6642554 0.6642554 0.000000 27.09995 17.06227 16.29667 13.31772 13.39642 0.6647559 0.6647559 0.6647559 0.3470025 0.4021328 0.6647559 0.6647559 0.000000 27.17709 17.07205 16.31762 13.34163 13.42351 0.6654078 0.6654078 0.6654078 0.3472292 0.4022422 0.6654078 0.6654078 0.000000 27.25201 17.08498 16.33787 13.36490 13.44998 0.6660319 0.6660319 0.6660319 0.3473991 0.4024005 0.6660319 0.6660319 0.000000 27.33116 17.09740 16.35396 13.39059 13.45446 0.6665399 0.6665399 0.6665399 0.3475595 0.4025488 0.6665399 0.6665399 0.000000 27.40837 17.10936 16.37297 13.41272 13.47626 0.6670238 0.6670238 0.6670238 0.3477573 0.4027469 0.6670238 0.6670238 0.000000 27.46977 17.12088 16.39143 13.43435 13.49754 0.6675748 0.6675748 0.6675748 0.3479467 0.4028770 0.6675748 0.6675748 0.000000 27.54333 17.13560 16.40937 13.44826 13.52132 0.6681044 0.6681044 0.6681044 0.3481281 0.4029990 0.6681044 0.6681044 0.000000 27.60901 17.14631 16.42681 13.45771 13.54166 0.6686136 0.6686136 0.6686136 0.3483020 0.4031719 0.6686136 0.6686136 0.000000 27.67321 17.15667 16.44379 13.47752 13.56457 0.6691038 0.6691038 0.6691038 0.3484226 0.4032786 0.6691038 0.6691038 0.000000 27.73599 17.16670 16.46034 13.49692 13.58408 0.6695760 0.6695760 0.6695760 0.3485827 0.4034371 0.6695760 0.6695760 0.000000 27.79745 17.17640 16.47648 13.51593 13.60623 0.6701202 0.6701202 0.6701202 0.3487825 0.4035302 0.6701202 0.6701202 0.000000 27.85765 17.18581 16.49223 13.53459 13.60412 0.6706481 0.6706481 0.6706481 0.3489302 0.4036756 0.6706481 0.6706481 0.000000 27.91667 17.19849 16.50761 13.55591 13.62513 0.6710715 0.6710715 0.6710715 0.3490721 0.4038150 0.6710715 0.6710715 0.000000 27.97351 17.20734 16.52265 13.57391 13.64284 0.6714802 0.6714802 0.6714802 0.3492086 0.4039486 0.6714802 0.6714802 0.000000 28.03026 17.21593 16.54083 13.59162 13.66323 0.6718752 0.6718752 0.6718752 0.3493399 0.4040766 0.6718752 0.6718752 0.000000 28.08601 17.22782 16.55522 13.61205 13.68035 0.6724342 0.6724342 0.6724342 0.3494663 0.4041995 0.6724342 0.6724342 0.000000 28.14079 17.23593 16.56931 13.60821 13.69719 0.6728032 0.6728032 0.6728032 0.3496337 0.4043173 0.6728032 0.6728032 0.000000 28.19466 17.24384 16.58311 13.62473 13.71377 0.6732485 0.6732485 0.6732485 0.3497964 0.4044303 0.6732485 0.6732485 0.000000 28.24766 17.27139 16.59665 13.63803 13.73010 0.6736823 0.6736823 0.6736823 0.3499092 0.4045387 0.6736823 0.6736823 0.000000 28.29358 17.27912 16.60993 13.65405 13.74619 0.6740165 0.6740165 0.6740165 0.3500179 0.4046428 0.6740165 0.6740165 0.000000 28.33872 17.29024 16.62296 13.66984 13.76507 0.6745168 0.6745168 0.6745168 0.3502136 0.4047426 0.6745168 0.6745168 0.000000 28.38935 17.30117 16.63576 13.68541 13.78374 0.6748303 0.6748303 0.6748303 0.3503145 0.4048384 0.6748303 0.6748303 0.000000 1.576569 4.216283 4.929265 5.653609 6.035265 0.6244592 0.6244592 0.6244592 0.3327989 0.3899751 0.6244592 0.6244592 0.000000 20.49375 15.82831 14.72898 11.80769 11.85637 0.6306141 0.6306141 0.6306141 0.3354937 0.3924358 0.6306141 0.6306141 0.000000 22.48587 16.19371 15.12438 12.11145 12.14937 0.6347112 0.6347112 0.6347112 0.3369536 0.3937100 0.6347112 0.6347112 0.000000 23.20219 16.34405 15.30161 12.26697 12.30240 0.6377680 0.6377680 0.6377680 0.3380679 0.3945786 0.6377680 0.6377680 0.000000 23.64178 16.43965 15.41937 12.37534 12.41256 0.6403467 0.6403467 0.6403467 0.3389314 0.3953432 0.6403467 0.6403467 0.000000 23.97095 16.50703 15.50631 12.46273 12.50155 0.6424660 0.6424660 0.6424660 0.3396719 0.3959143 0.6424660 0.6424660 0.000000 24.23582 16.56360 15.57791 12.53550 12.57590 0.6443982 0.6443982 0.6443982 0.3402768 0.3964758 0.6443982 0.6443982 0.000000 24.45649 16.60899 15.64082 12.60023 12.64216 0.6460604 0.6460604 0.6460604 0.3408769 0.3969078 0.6460604 0.6460604 0.000000 24.65287 16.65005 15.69587 12.65668 12.70179 0.6475897 0.6475897 0.6475897 0.3413714 0.3973816 0.6475897 0.6475897 0.000000 24.87737 16.68703 15.74440 12.71134 12.75788 0.6489798 0.6489798 0.6489798 0.3418442 0.3977391 0.6489798 0.6489798 0.000000 25.06238 16.71951 15.79076 12.75809 12.80770 0.6502951 0.6502951 0.6502951 0.3422693 0.3981274 0.6502951 0.6502951 0.000000 25.22511 16.74669 15.83245 12.80496 12.85441 0.6515819 0.6515819 0.6515819 0.3426638 0.3984378 0.6515819 0.6515819 0.000000 25.38550 16.77388 15.87265 12.84664 12.89909 0.6526853 0.6526853 0.6526853 0.3430895 0.3987449 0.6526853 0.6526853 0.000000 25.53130 16.80166 15.90834 12.88715 12.93947 0.6537285 0.6537285 0.6537285 0.3434099 0.3990579 0.6537285 0.6537285 0.000000 25.67202 16.82635 15.94408 12.92402 12.99742 0.6547329 0.6547329 0.6547329 0.3437788 0.3993226 0.6547329 0.6547329 0.000000 25.80195 16.84844 15.97468 12.96084 13.04315 0.6557156 0.6557156 0.6557156 0.3440574 0.3996066 0.6557156 0.6557156 0.000000 25.92362 16.86832 16.00627 13.01739 13.06315 0.6566902 0.6566902 0.6566902 0.3443955 0.3998536 0.6566902 0.6566902 0.000000 26.05078 16.89026 16.03914 13.04206 13.10300 0.6575754 0.6575754 0.6575754 0.3446530 0.4001286 0.6575754 0.6575754 0.000000 26.16321 16.91047 16.06614 13.07000 13.14087 0.6583812 0.6583812 0.6583812 0.3449295 0.4003741 0.6583812 0.6583812 0.000000 26.27077 16.92722 16.09493 13.10583 13.16067 0.6592086 0.6592086 0.6592086 0.3451800 0.4005934 0.6592086 0.6592086 0.000000 26.37944 16.94651 16.12202 13.14011 13.19195 0.6599719 0.6599719 0.6599719 0.3454546 0.4007888 0.6599719 0.6599719 0.000000 26.48969 16.96267 16.14759 13.17164 13.22429 0.6607692 0.6607692 0.6607692 0.3457080 0.4010229 0.6607692 0.6607692 0.000000 26.58099 16.97776 16.17179 13.18514 13.25841 0.6615137 0.6615137 0.6615137 0.3459421 0.4012372 0.6615137 0.6615137 0.000000 26.68260 16.99567 16.19477 13.21485 13.29139 0.6622101 0.6622101 0.6622101 0.3461587 0.4014333 0.6622101 0.6622101 0.000000 26.77420 17.00891 16.22020 13.24352 13.30171 0.6628625 0.6628625 0.6628625 0.3464061 0.4016129 0.6628625 0.6628625 0.000000 26.86884 17.02510 16.24102 13.27124 13.32902 0.6634746 0.6634746 0.6634746 0.3466385 0.4017771 0.6634746 0.6634746 0.000000 26.95410 17.04053 16.26447 13.29810 13.35545 0.6642308 0.6642308 0.6642308 0.3468571 0.4019272 0.6642308 0.6642308 0.000000 27.03480 17.05526 16.28703 13.30545 13.38408 0.6647710 0.6647710 0.6647710 0.3470629 0.4021237 0.6647710 0.6647710 0.000000 27.11447 17.06567 16.30525 13.33017 13.41197 0.6654600 0.6654600 0.6654600 0.3472570 0.4023078 0.6654600 0.6654600 0.000000 27.19804 17.07920 16.32627 13.35420 13.43618 0.6660286 0.6660286 0.6660286 0.3474399 0.4024212 0.6660286 0.6660286 0.000000 27.27937 17.09217 16.34660 13.37759 13.44163 0.6665694 0.6665694 0.6665694 0.3476591 0.4026423 0.6665694 0.6665694 0.000000 27.35231 17.10465 16.36628 13.40339 13.46707 0.6671740 0.6671740 0.6671740 0.3478221 0.4027941 0.6671740 0.6671740 0.000000 27.42962 17.11665 16.38536 13.42563 13.49195 0.6677541 0.6677541 0.6677541 0.3479761 0.4029365 0.6677541 0.6677541 0.000000 27.49735 17.13183 16.40388 13.45039 13.51333 0.6683110 0.6683110 0.6683110 0.3481680 0.4030700 0.6683110 0.6683110 0.000000 27.56471 17.14297 16.42187 13.45031 13.53422 0.6688462 0.6688462 0.6688462 0.3483517 0.4031952 0.6688462 0.6688462 0.000000 27.63675 17.15373 16.43937 13.47361 13.55764 0.6693611 0.6693611 0.6693611 0.3485279 0.4033712 0.6693611 0.6693611 0.000000 27.70101 17.16413 16.45641 13.49351 13.58065 0.6698566 0.6698566 0.6698566 0.3486969 0.4035396 0.6698566 0.6698566 0.000000 27.76386 17.17420 16.47301 13.51299 13.60027 0.6703340 0.6703340 0.6703340 0.3488591 0.4036423 0.6703340 0.6703340 0.000000 27.82538 17.18394 16.48920 13.53210 13.60167 0.6707941 0.6707941 0.6707941 0.3490149 0.4037383 0.6707941 0.6707941 0.000000 27.88564 17.19694 16.50500 13.55085 13.62013 0.6712379 0.6712379 0.6712379 0.3491646 0.4038864 0.6712379 0.6712379 0.000000 27.94471 17.20609 16.52043 13.56925 13.64122 0.6718438 0.6718438 0.6718438 0.3493086 0.4040284 0.6718438 0.6718438 0.000000 28.00156 17.21498 16.53551 13.59034 13.65901 0.6722571 0.6722571 0.6722571 0.3494928 0.4041645 0.6722571 0.6722571 0.000000 28.05836 17.22714 16.55026 13.60813 13.67947 0.6726565 0.6726565 0.6726565 0.3496259 0.4042951 0.6726565 0.6726565 0.000000 28.11414 17.23552 16.56817 13.60471 13.69666 0.6732196 0.6732196 0.6732196 0.3497997 0.4044203 0.6732196 0.6732196 0.000000 28.16896 17.24367 16.58230 13.62156 13.71357 0.6735927 0.6735927 0.6735927 0.3499231 0.4045405 0.6735927 0.6735927 0.000000 28.22287 17.27146 16.59615 13.64111 13.73022 0.6739538 0.6739538 0.6739538 0.3500419 0.4046558 0.6739538 0.6739538 0.000000 28.27590 17.27942 16.60972 13.65744 13.74962 0.6744797 0.6744797 0.6744797 0.3502019 0.4047665 0.6744797 0.6744797 0.000000 28.32185 17.29077 16.62304 13.67353 13.76578 0.6748179 0.6748179 0.6748179 0.3503576 0.4048728 0.6748179 0.6748179 0.000000 28.36701 17.30191 16.63610 13.68939 13.78474 0.6753216 0.6753216 0.6753216 0.3504639 0.4049748 0.6753216 0.6753216 0.000000 28.41767 17.30906 16.64893 13.70503 13.77973 0.6756389 0.6756389 0.6756389 0.3506117 0.4050727 0.6756389 0.6756389 0.000000 1.576988 4.217937 4.930903 5.660333 6.039515 0.6244757 0.6244757 0.6244757 0.3328090 0.3899834 0.6244757 0.6244757 0.000000 20.49830 15.83115 14.73211 11.80925 11.85938 0.6306977 0.6306977 0.6306977 0.3354898 0.3925178 0.6306977 0.6306977 0.000000 22.49122 16.19709 15.12496 12.11286 12.15079 0.6348058 0.6348058 0.6348058 0.3370043 0.3937122 0.6348058 0.6348058 0.000000 23.20341 16.34784 15.30308 12.26916 12.30665 0.6379462 0.6379462 0.6379462 0.3381552 0.3946184 0.6379462 0.6379462 0.000000 23.64857 16.44089 15.42145 12.38005 12.41531 0.6404873 0.6404873 0.6404873 0.3389944 0.3954122 0.6404873 0.6404873 0.000000 23.97415 16.51140 15.50887 12.46593 12.50475 0.6426588 0.6426588 0.6426588 0.3397566 0.3960070 0.6426588 0.6426588 0.000000 24.23579 16.56567 15.58313 12.53908 12.57947 0.6446341 0.6446341 0.6446341 0.3404298 0.3965251 0.6446341 0.6446341 0.000000 24.46479 16.61377 15.64628 12.60414 12.64773 0.6463330 0.6463330 0.6463330 0.3409944 0.3970375 0.6463330 0.6463330 0.000000 24.65792 16.65267 15.69943 12.66254 12.70597 0.6478939 0.6478939 0.6478939 0.3415018 0.3974634 0.6478939 0.6478939 0.000000 24.88668 16.68761 15.75028 12.71416 12.76072 0.6493118 0.6493118 0.6493118 0.3419858 0.3978967 0.6493118 0.6493118 0.000000 25.07210 16.72035 15.79683 12.76439 12.81397 0.6506518 0.6506518 0.6506518 0.3424208 0.3982346 0.6506518 0.6506518 0.000000 25.23520 16.75207 15.83670 12.80986 12.86087 0.6518655 0.6518655 0.6518655 0.3428243 0.3985560 0.6518655 0.6518655 0.000000 25.39593 16.77938 15.87710 12.85331 12.90573 0.6529896 0.6529896 0.6529896 0.3432092 0.3989346 0.6529896 0.6529896 0.000000 25.54205 16.80519 15.91297 12.89399 12.94628 0.6541456 0.6541456 0.6541456 0.3435856 0.3991949 0.6541456 0.6541456 0.000000 25.68309 16.82796 15.94887 12.93101 13.00802 0.6551668 0.6551668 0.6551668 0.3439129 0.3994681 0.6551668 0.6551668 0.000000 25.81329 16.85223 15.98152 12.96798 13.05085 0.6561649 0.6561649 0.6561649 0.3442460 0.3997598 0.6561649 0.6561649 0.000000 25.94182 16.87424 16.01325 13.02522 13.07393 0.6570608 0.6570608 0.6570608 0.3445418 0.4000140 0.6570608 0.6570608 0.000000 26.06265 16.89429 16.04438 13.04331 13.11089 0.6579596 0.6579596 0.6579596 0.3448525 0.4002956 0.6579596 0.6579596 0.000000 26.17529 16.91264 16.07336 13.08109 13.15203 0.6588706 0.6588706 0.6588706 0.3451339 0.4004870 0.6588706 0.6588706 0.000000 26.28955 16.93145 16.10226 13.11709 13.16929 0.6597095 0.6597095 0.6597095 0.3454366 0.4007726 0.6597095 0.6597095 0.000000 26.39841 16.94891 16.12946 13.15154 13.20320 0.6604838 0.6604838 0.6604838 0.3456681 0.4009737 0.6604838 0.6604838 0.000000 26.50884 16.96899 16.15513 13.16258 13.23570 0.6611999 0.6611999 0.6611999 0.3459256 0.4011530 0.6611999 0.6611999 0.000000 26.60026 16.98415 16.17944 13.19359 13.26998 0.6619543 0.6619543 0.6619543 0.3461636 0.4013724 0.6619543 0.6619543 0.000000 26.70202 17.00212 16.20610 13.22345 13.30008 0.6627513 0.6627513 0.6627513 0.3464308 0.4015735 0.6627513 0.6627513 0.000000 26.79378 17.01543 16.22803 13.25226 13.31032 0.6635034 0.6635034 0.6635034 0.3466346 0.4017577 0.6635034 0.6635034 0.000000 26.88222 17.03168 16.25251 13.28316 13.34076 0.6641237 0.6641237 0.6641237 0.3468235 0.4019264 0.6641237 0.6641237 0.000000 26.96603 17.04716 16.27247 13.29406 13.37031 0.6647065 0.6647065 0.6647065 0.3470921 0.4021403 0.6647065 0.6647065 0.000000 27.05474 17.06195 16.29512 13.31736 13.39606 0.6654353 0.6654353 0.6654353 0.3472543 0.4023407 0.6654353 0.6654353 0.000000 27.14083 17.07243 16.31695 13.34219 13.42408 0.6660410 0.6660410 0.6660410 0.3474978 0.4024694 0.6660410 0.6660410 0.000000 27.21820 17.08600 16.33804 13.36933 13.45143 0.6666166 0.6666166 0.6666166 0.3476836 0.4026457 0.6666166 0.6666166 0.000000 27.29964 17.09903 16.35491 13.39283 13.45668 0.6672540 0.6672540 0.6672540 0.3478590 0.4028112 0.6672540 0.6672540 0.000000 27.37898 17.11155 16.37817 13.41574 13.47923 0.6678648 0.6678648 0.6678648 0.3480709 0.4029665 0.6678648 0.6678648 0.000000 27.44871 17.12722 16.39381 13.44112 13.50421 0.6684508 0.6684508 0.6684508 0.3482737 0.4031122 0.6684508 0.6684508 0.000000 27.51785 17.13881 16.41589 13.44182 13.52867 0.6689240 0.6689240 0.6689240 0.3484217 0.4033077 0.6689240 0.6689240 0.000000 27.58530 17.15000 16.43045 13.46567 13.54966 0.6694649 0.6694649 0.6694649 0.3486077 0.4034360 0.6694649 0.6694649 0.000000 27.65741 17.16080 16.45150 13.48608 13.57318 0.6700744 0.6700744 0.6700744 0.3487860 0.4035563 0.6700744 0.6700744 0.000000 27.72801 17.17124 16.46859 13.50606 13.59629 0.6705751 0.6705751 0.6705751 0.3489571 0.4037275 0.6705751 0.6705751 0.000000 27.79092 17.18134 16.48524 13.52862 13.60552 0.6710575 0.6710575 0.6710575 0.3491214 0.4038331 0.6710575 0.6710575 0.000000 27.85249 17.19468 16.50148 13.54781 13.61716 0.6715225 0.6715225 0.6715225 0.3492791 0.4039903 0.6715225 0.6715225 0.000000 27.91281 17.20415 16.51733 13.56664 13.63569 0.6719710 0.6719710 0.6719710 0.3494308 0.4041410 0.6719710 0.6719710 0.000000 27.97088 17.21334 16.53280 13.58514 13.65388 0.6724925 0.6724925 0.6724925 0.3496223 0.4042272 0.6724925 0.6724925 0.000000 28.02879 17.22579 16.54793 13.60632 13.67471 0.6729990 0.6729990 0.6729990 0.3497625 0.4043658 0.6729990 0.6729990 0.000000 28.08563 17.23444 16.56619 13.60330 13.69524 0.6734027 0.6734027 0.6734027 0.3498974 0.4044988 0.6734027 0.6734027 0.000000 28.14145 17.24285 16.57720 13.62050 13.71250 0.6738814 0.6738814 0.6738814 0.3500273 0.4046264 0.6738814 0.6738814 0.000000 28.19630 17.27088 16.59484 13.63741 13.72949 0.6743470 0.6743470 0.6743470 0.3501979 0.4047489 0.6743470 0.6743470 0.000000 28.25024 17.27909 16.60872 13.65405 13.74620 0.6747120 0.6747120 0.6747120 0.3503638 0.4048665 0.6747120 0.6747120 0.000000 28.30330 17.29066 16.62234 13.67342 13.76567 0.6752415 0.6752415 0.6752415 0.3504799 0.4049794 0.6752415 0.6752415 0.000000 28.35554 17.30203 16.63569 13.68957 13.78492 0.6755835 0.6755835 0.6755835 0.3505917 0.4050878 0.6755835 0.6755835 0.000000 28.40072 17.30940 16.64879 13.70549 13.78018 0.6760907 0.6760907 0.6760907 0.3507902 0.4051919 0.6760907 0.6760907 0.000000 28.44515 17.31681 16.66511 13.72119 13.79563 0.6764115 0.6764115 0.6764115 0.3508941 0.4053495 0.6764115 0.6764115 0.000000 1.577383 4.222376 4.935349 5.661909 6.041114 0.6244913 0.6244913 0.6244913 0.3328186 0.3899913 0.6244913 0.6244913 0.000000 20.50260 15.83385 14.73098 11.81214 11.85932 0.6307728 0.6307728 0.6307728 0.3355358 0.3925307 0.6307728 0.6307728 0.000000 22.49627 16.19666 15.12855 12.11644 12.15433 0.6349926 0.6349926 0.6349926 0.3371021 0.3937746 0.6349926 0.6349926 0.000000 23.20432 16.34828 15.30713 12.27113 12.30658 0.6381089 0.6381089 0.6381089 0.3381836 0.3947167 0.6381089 0.6381089 0.000000 23.65054 16.44193 15.42330 12.38062 12.41783 0.6407115 0.6407115 0.6407115 0.3391010 0.3954743 0.6407115 0.6407115 0.000000 23.97696 16.51287 15.51357 12.46888 12.50769 0.6429323 0.6429323 0.6429323 0.3398331 0.3960921 0.6429323 0.6429323 0.000000 24.24323 16.56750 15.58581 12.54415 12.58450 0.6448497 0.6448497 0.6448497 0.3405235 0.3966296 0.6448497 0.6448497 0.000000 24.47265 16.61590 15.64709 12.60776 12.64968 0.6465841 0.6465841 0.6465841 0.3411027 0.3970956 0.6465841 0.6465841 0.000000 24.66615 16.65737 15.70482 12.66645 12.71151 0.6481757 0.6481757 0.6481757 0.3416226 0.3975363 0.6481757 0.6481757 0.000000 24.89550 16.69246 15.75380 12.71994 12.76647 0.6496206 0.6496206 0.6496206 0.3421175 0.3979826 0.6496206 0.6496206 0.000000 25.08131 16.72534 15.79855 12.77037 12.81676 0.6509845 0.6509845 0.6509845 0.3425622 0.3983322 0.6509845 0.6509845 0.000000 25.24475 16.75503 15.84263 12.81445 12.86702 0.6522198 0.6522198 0.6522198 0.3429743 0.3986642 0.6522198 0.6522198 0.000000 25.40581 16.78250 15.88123 12.85965 12.91205 0.6534577 0.6534577 0.6534577 0.3433670 0.3989908 0.6534577 0.6534577 0.000000 25.55225 16.80845 15.91920 12.90049 12.95276 0.6545370 0.6545370 0.6545370 0.3437505 0.3993215 0.6545370 0.6545370 0.000000 25.69358 16.83341 15.95335 12.93767 13.01514 0.6555745 0.6555745 0.6555745 0.3440844 0.3996028 0.6555745 0.6555745 0.000000 25.82404 16.85575 15.98803 12.99262 13.03878 0.6565875 0.6565875 0.6565875 0.3444234 0.3999020 0.6565875 0.6565875 0.000000 25.95283 16.87787 16.01988 13.03582 13.08127 0.6575903 0.6575903 0.6575903 0.3447247 0.4001632 0.6575903 0.6575903 0.000000 26.08045 16.89803 16.04929 13.05386 13.12150 0.6585017 0.6585017 0.6585017 0.3450406 0.4003908 0.6585017 0.6585017 0.000000 26.19325 16.91844 16.08023 13.08873 13.15975 0.6593322 0.6593322 0.6593322 0.3453268 0.4006490 0.6593322 0.6593322 0.000000 26.30770 16.93732 16.10924 13.12490 13.17698 0.6601824 0.6601824 0.6601824 0.3455865 0.4008800 0.6601824 0.6601824 0.000000 26.41673 16.95486 16.13655 13.15952 13.21408 0.6609674 0.6609674 0.6609674 0.3458697 0.4011469 0.6609674 0.6609674 0.000000 26.51934 16.97310 16.16232 13.17354 13.24674 0.6617849 0.6617849 0.6617849 0.3461311 0.4013314 0.6617849 0.6617849 0.000000 26.61887 16.99024 16.18673 13.20470 13.28117 0.6625486 0.6625486 0.6625486 0.3463729 0.4015556 0.6625486 0.6625486 0.000000 26.71441 17.00639 16.21347 13.23470 13.29301 0.6632633 0.6632633 0.6632633 0.3465967 0.4017613 0.6632633 0.6632633 0.000000 26.81268 17.02165 16.23550 13.26364 13.32454 0.6639331 0.6639331 0.6639331 0.3468509 0.4019500 0.6639331 0.6639331 0.000000 26.90761 17.03795 16.26006 13.29468 13.35210 0.6646523 0.6646523 0.6646523 0.3470898 0.4021229 0.6646523 0.6646523 0.000000 26.99148 17.05349 16.28365 13.30317 13.38178 0.6653333 0.6653333 0.6653333 0.3472680 0.4023408 0.6653333 0.6653333 0.000000 27.07398 17.06465 16.30283 13.32887 13.41066 0.6659789 0.6659789 0.6659789 0.3475264 0.4024858 0.6659789 0.6659789 0.000000 27.16019 17.07886 16.32474 13.35381 13.43579 0.6665918 0.6665918 0.6665918 0.3476797 0.4026774 0.6665918 0.6665918 0.000000 27.24397 17.09249 16.34590 13.37806 13.44211 0.6672640 0.6672640 0.6672640 0.3479145 0.4028573 0.6672640 0.6672640 0.000000 27.31920 17.10556 16.36636 13.40468 13.46834 0.6679076 0.6679076 0.6679076 0.3481388 0.4029673 0.6679076 0.6679076 0.000000 27.39863 17.11813 16.38617 13.43070 13.49397 0.6684349 0.6684349 0.6684349 0.3483070 0.4031848 0.6684349 0.6684349 0.000000 27.46841 17.13383 16.40537 13.44510 13.51606 0.6690267 0.6690267 0.6690267 0.3484659 0.4033337 0.6690267 0.6690267 0.000000 27.54391 17.14547 16.42401 13.45667 13.54062 0.6695058 0.6695058 0.6695058 0.3486623 0.4034736 0.6695058 0.6695058 0.000000 27.61142 17.15670 16.44212 13.47764 13.56469 0.6701415 0.6701415 0.6701415 0.3488505 0.4036049 0.6701415 0.6701415 0.000000 27.67733 17.16754 16.45973 13.49814 13.58531 0.6706669 0.6706669 0.6706669 0.3490310 0.4037866 0.6706669 0.6706669 0.000000 27.74799 17.17802 16.47688 13.52118 13.61152 0.6712618 0.6712618 0.6712618 0.3492042 0.4039022 0.6712618 0.6712618 0.000000 27.81723 17.19172 16.49358 13.54084 13.61028 0.6717490 0.6717490 0.6717490 0.3493704 0.4040689 0.6717490 0.6717490 0.000000 27.87886 17.20153 16.51335 13.56311 13.63222 0.6722187 0.6722187 0.6722187 0.3495301 0.4042287 0.6722187 0.6722187 0.000000 27.93922 17.21104 16.52925 13.58202 13.65083 0.6726718 0.6726718 0.6726718 0.3496836 0.4043236 0.6726718 0.6726718 0.000000 27.99731 17.22026 16.54477 13.60060 13.66909 0.6731976 0.6731976 0.6731976 0.3498312 0.4044705 0.6731976 0.6731976 0.000000 28.05526 17.23273 16.55993 13.60252 13.68999 0.6737083 0.6737083 0.6737083 0.3500188 0.4046115 0.6737083 0.6737083 0.000000 28.11214 17.24142 16.57477 13.61860 13.71060 0.6741163 0.6741163 0.6741163 0.3502010 0.4047468 0.6741163 0.6741163 0.000000 28.16800 17.26967 16.59275 13.63585 13.72793 0.6746871 0.6746871 0.6746871 0.3503325 0.4048187 0.6746871 0.6746871 0.000000 28.22289 17.27813 16.60696 13.65283 13.74498 0.6750683 0.6750683 0.6750683 0.3504592 0.4049434 0.6750683 0.6750683 0.000000 28.27685 17.28995 16.62089 13.66954 13.76476 0.6755253 0.6755253 0.6755253 0.3506266 0.4051210 0.6755253 0.6755253 0.000000 28.32994 17.30155 16.63453 13.68897 13.78432 0.6759703 0.6759703 0.6759703 0.3507895 0.4052359 0.6759703 0.6759703 0.000000 28.37595 17.30914 16.64792 13.70518 13.77988 0.6763160 0.6763160 0.6763160 0.3509029 0.4053464 0.6763160 0.6763160 0.000000 28.42741 17.31676 16.66451 13.72116 13.79560 0.6768264 0.6768264 0.6768264 0.3510121 0.4054525 0.6768264 0.6768264 0.000000 28.47186 17.32776 16.67740 13.73692 13.81110 0.6772385 0.6772385 0.6772385 0.3512079 0.4056119 0.6772385 0.6772385 0.000000 1.577757 4.223855 4.939713 5.665928 6.047740 0.6245061 0.6245061 0.6245061 0.3328277 0.3899988 0.6245061 0.6245061 0.000000 20.50666 15.83640 14.73379 11.81488 11.86202 0.6308401 0.6308401 0.6308401 0.3355779 0.3925405 0.6308401 0.6308401 0.000000 22.50105 16.19970 15.12875 12.11747 12.15537 0.6350627 0.6350627 0.6350627 0.3371415 0.3938324 0.6350627 0.6350627 0.000000 23.20981 16.35169 15.30817 12.27290 12.31040 0.6382571 0.6382571 0.6382571 0.3382574 0.3947448 0.6382571 0.6382571 0.000000 23.65218 16.44563 15.42747 12.38486 12.42202 0.6409193 0.6409193 0.6409193 0.3392003 0.3955299 0.6409193 0.6409193 0.000000 23.98356 16.51415 15.51564 12.47160 12.51041 0.6431878 0.6431878 0.6431878 0.3399525 0.3961701 0.6431878 0.6431878 0.000000 24.25028 16.57164 15.58825 12.54546 12.58584 0.6450462 0.6450462 0.6450462 0.3406090 0.3967264 0.6450462 0.6450462 0.000000 24.47255 16.61780 15.65202 12.61113 12.65472 0.6469126 0.6469126 0.6469126 0.3412023 0.3972085 0.6469126 0.6469126 0.000000 24.67395 16.65720 15.70573 12.67008 12.71514 0.6485333 0.6485333 0.6485333 0.3417344 0.3976632 0.6485333 0.6485333 0.000000 24.90387 16.69483 15.75706 12.72544 12.77195 0.6500037 0.6500037 0.6500037 0.3422400 0.3980598 0.6500037 0.6500037 0.000000 25.09005 16.72789 15.80404 12.77286 12.82244 0.6512949 0.6512949 0.6512949 0.3426941 0.3984208 0.6512949 0.6512949 0.000000 25.25382 16.75775 15.84630 12.82033 12.86975 0.6525511 0.6525511 0.6525511 0.3431146 0.3988247 0.6525511 0.6525511 0.000000 25.41520 16.78538 15.88703 12.86413 12.91498 0.6538079 0.6538079 0.6538079 0.3435149 0.3991604 0.6538079 0.6538079 0.000000 25.56193 16.81354 15.92514 12.90669 12.95893 0.6549044 0.6549044 0.6549044 0.3439052 0.3994384 0.6549044 0.6549044 0.000000 25.70354 16.83859 15.95942 12.94401 13.02193 0.6559578 0.6559578 0.6559578 0.3442455 0.3997276 0.6559578 0.6559578 0.000000 25.83426 16.86103 15.99423 12.99956 13.04869 0.6569854 0.6569854 0.6569854 0.3445903 0.4000340 0.6569854 0.6569854 0.000000 25.96987 16.88125 16.02621 13.04296 13.08829 0.6579090 0.6579090 0.6579090 0.3448971 0.4003021 0.6579090 0.6579090 0.000000 26.08992 16.90348 16.05573 13.06099 13.13177 0.6589255 0.6589255 0.6589255 0.3452179 0.4005361 0.6589255 0.6589255 0.000000 26.20414 16.92397 16.08678 13.09910 13.17021 0.6598599 0.6598599 0.6598599 0.3455088 0.4008002 0.6598599 0.6598599 0.000000 26.31879 16.94293 16.11590 13.13545 13.18737 0.6606292 0.6606292 0.6606292 0.3457729 0.4010369 0.6606292 0.6606292 0.000000 26.42802 16.96054 16.14330 13.17023 13.22158 0.6615160 0.6615160 0.6615160 0.3460602 0.4012489 0.6615160 0.6615160 0.000000 26.53078 16.97694 16.16918 13.18416 13.25742 0.6623430 0.6623430 0.6623430 0.3463255 0.4014985 0.6623430 0.6623430 0.000000 26.63048 16.99605 16.19368 13.21545 13.29200 0.6630246 0.6630246 0.6630246 0.3465709 0.4017275 0.6630246 0.6630246 0.000000 26.73256 17.01039 16.22051 13.24558 13.30375 0.6638388 0.6638388 0.6638388 0.3467982 0.4019377 0.6638388 0.6638388 0.000000 26.83096 17.02758 16.24263 13.27467 13.33240 0.6645168 0.6645168 0.6645168 0.3470557 0.4021307 0.6645168 0.6645168 0.000000 26.91967 17.04394 16.26726 13.30433 13.36308 0.6651533 0.6651533 0.6651533 0.3472511 0.4023078 0.6651533 0.6651533 0.000000 27.00365 17.05953 16.29094 13.31121 13.39288 0.6659319 0.6659319 0.6659319 0.3475255 0.4024703 0.6659319 0.6659319 0.000000 27.09890 17.07074 16.31373 13.34001 13.42188 0.6664945 0.6664945 0.6664945 0.3476937 0.4026783 0.6664945 0.6664945 0.000000 27.17890 17.08501 16.33570 13.36506 13.45015 0.6672041 0.6672041 0.6672041 0.3479425 0.4028736 0.6672041 0.6672041 0.000000 27.26278 17.09868 16.35340 13.39242 13.45627 0.6678827 0.6678827 0.6678827 0.3481337 0.4029980 0.6678827 0.6678827 0.000000 27.34439 17.11180 16.37393 13.41614 13.47963 0.6684428 0.6684428 0.6684428 0.3483142 0.4031703 0.6684428 0.6684428 0.000000 27.41762 17.12803 16.39380 13.44228 13.50535 0.6689762 0.6689762 0.6689762 0.3485309 0.4033321 0.6689762 0.6689762 0.000000 27.48744 17.14016 16.41657 13.44663 13.53052 0.6695738 0.6695738 0.6695738 0.3487383 0.4035429 0.6695738 0.6695738 0.000000 27.56302 17.15184 16.43177 13.46818 13.55218 0.6701478 0.6701478 0.6701478 0.3489369 0.4036272 0.6701478 0.6701478 0.000000 27.63688 17.16311 16.45343 13.49220 13.57934 0.6706994 0.6706994 0.6706994 0.3490812 0.4038199 0.6706994 0.6706994 0.000000 27.70285 17.17399 16.47109 13.51279 13.60006 0.6713190 0.6713190 0.6713190 0.3492637 0.4040044 0.6713190 0.6713190 0.000000 27.76730 17.18450 16.48829 13.53293 13.60249 0.6718298 0.6718298 0.6718298 0.3494389 0.4041227 0.6718298 0.6718298 0.000000 27.83660 17.19823 16.50504 13.55267 13.62489 0.6724106 0.6724106 0.6724106 0.3496528 0.4042338 0.6724106 0.6724106 0.000000 27.90454 17.20808 16.52137 13.57502 13.64394 0.6728849 0.6728849 0.6728849 0.3498143 0.4043961 0.6728849 0.6728849 0.000000 27.96495 17.21762 16.54079 13.59702 13.66558 0.6733425 0.6733425 0.6733425 0.3499695 0.4045517 0.6733425 0.6733425 0.000000 28.02305 17.23040 16.55635 13.61153 13.68391 0.6739609 0.6739609 0.6739609 0.3501189 0.4047010 0.6739609 0.6739609 0.000000 28.08104 17.23937 16.57156 13.61587 13.70489 0.6743873 0.6743873 0.6743873 0.3502626 0.4048442 0.6743873 0.6743873 0.000000 28.13796 17.26784 16.58643 13.63349 13.72556 0.6747993 0.6747993 0.6747993 0.3504009 0.4049238 0.6747993 0.6747993 0.000000 28.19385 17.27657 16.60099 13.65082 13.74296 0.6753739 0.6753739 0.6753739 0.3505795 0.4050559 0.6753739 0.6753739 0.000000 28.24877 17.28865 16.61870 13.66785 13.76007 0.6757590 0.6757590 0.6757590 0.3507531 0.4051827 0.6757590 0.6757590 0.000000 28.30276 17.29692 16.63266 13.68462 13.77993 0.6763075 0.6763075 0.6763075 0.3508767 0.4053046 0.6763075 0.6763075 0.000000 28.35588 17.30832 16.64634 13.70113 13.77884 0.6766681 0.6766681 0.6766681 0.3510410 0.4054792 0.6766681 0.6766681 0.000000 28.40191 17.31616 16.65976 13.72039 13.79485 0.6771929 0.6771929 0.6771929 0.3512010 0.4055916 0.6771929 0.6771929 0.000000 28.44714 17.32737 16.67292 13.73643 13.81062 0.6775311 0.6775311 0.6775311 0.3513117 0.4056997 0.6775311 0.6775311 0.000000 28.49786 17.33840 16.68930 13.75525 13.82914 0.6780341 0.6780341 0.6780341 0.3514636 0.4058035 0.6780341 0.6780341 0.000000 1.578111 4.228134 4.941101 5.669870 6.049174 0.6245202 0.6245202 0.6245202 0.3327809 0.3900059 0.6245202 0.6245202 0.000000 20.51052 15.83417 14.73645 11.81450 11.86458 0.6309002 0.6309002 0.6309002 0.3356164 0.3925475 0.6309002 0.6309002 0.000000 22.50558 16.20258 15.13199 12.11832 12.15625 0.6351218 0.6351218 0.6351218 0.3371758 0.3938858 0.6351218 0.6351218 0.000000 23.21502 16.35179 15.31182 12.27658 12.31199 0.6383919 0.6383919 0.6383919 0.3383251 0.3948320 0.6383919 0.6383919 0.000000 23.65796 16.44630 15.42890 12.38695 12.42412 0.6411117 0.6411117 0.6411117 0.3392416 0.3955794 0.6411117 0.6411117 0.000000 23.98983 16.51790 15.51750 12.47410 12.51291 0.6433270 0.6433270 0.6433270 0.3400645 0.3962414 0.6433270 0.6433270 0.000000 24.25698 16.57307 15.59273 12.55005 12.59040 0.6453234 0.6453234 0.6453234 0.3407370 0.3968160 0.6453234 0.6453234 0.000000 24.47963 16.62191 15.65453 12.61596 12.65784 0.6471249 0.6471249 0.6471249 0.3412939 0.3973138 0.6471249 0.6471249 0.000000 24.68137 16.66146 15.71061 12.67513 12.71853 0.6487746 0.6487746 0.6487746 0.3418874 0.3977198 0.6487746 0.6487746 0.000000 24.91182 16.69698 15.76212 12.72744 12.77557 0.6502705 0.6502705 0.6502705 0.3423538 0.3981908 0.6502705 0.6502705 0.000000 25.09835 16.73023 15.80725 12.77830 12.82785 0.6515844 0.6515844 0.6515844 0.3428171 0.3985627 0.6515844 0.6515844 0.000000 25.26245 16.76240 15.84971 12.82594 12.87534 0.6529557 0.6529557 0.6529557 0.3432458 0.3989148 0.6529557 0.6529557 0.000000 25.42412 16.79013 15.89255 12.86834 12.92073 0.6541361 0.6541361 0.6541361 0.3436535 0.3992597 0.6541361 0.6541361 0.000000 25.57115 16.81633 15.92889 12.90952 12.96483 0.6553432 0.6553432 0.6553432 0.3440506 0.3996071 0.6553432 0.6553432 0.000000 25.71248 16.83947 15.96522 12.95007 13.02843 0.6564115 0.6564115 0.6564115 0.3443969 0.3998429 0.6564115 0.6564115 0.000000 25.85059 16.86406 16.00015 13.00933 13.05522 0.6573601 0.6573601 0.6573601 0.3447475 0.4001565 0.6573601 0.6573601 0.000000 25.97982 16.88637 16.03224 13.04979 13.09807 0.6583893 0.6583893 0.6583893 0.3450595 0.4004312 0.6583893 0.6583893 0.000000 26.10008 16.90868 16.06188 13.06781 13.13866 0.6593256 0.6593256 0.6593256 0.3453852 0.4006715 0.6593256 0.6593256 0.000000 26.22099 16.92730 16.09304 13.10609 13.16718 0.6601794 0.6601794 0.6601794 0.3456806 0.4009413 0.6601794 0.6601794 0.000000 26.33581 16.94828 16.12226 13.14259 13.19440 0.6611430 0.6611430 0.6611430 0.3459491 0.4011835 0.6611430 0.6611430 0.000000 26.44521 16.96596 16.14976 13.16022 13.23180 0.6619482 0.6619482 0.6619482 0.3462403 0.4014008 0.6619482 0.6619482 0.000000 26.54808 16.98243 16.17573 13.19142 13.26778 0.6626936 0.6626936 0.6626936 0.3465094 0.4016552 0.6626936 0.6626936 0.000000 26.64792 17.00160 16.20391 13.22285 13.29947 0.6634755 0.6634755 0.6634755 0.3467584 0.4018292 0.6634755 0.6634755 0.000000 26.75013 17.01600 16.22724 13.25614 13.31416 0.6642980 0.6642980 0.6642980 0.3469891 0.4020439 0.6642980 0.6642980 0.000000 26.84231 17.03325 16.25300 13.28536 13.34293 0.6650746 0.6650746 0.6650746 0.3472497 0.4022412 0.6650746 0.6650746 0.000000 26.94385 17.04966 16.27415 13.29516 13.37372 0.6657186 0.6657186 0.6657186 0.3474948 0.4024225 0.6657186 0.6657186 0.000000 27.02788 17.06346 16.29790 13.32489 13.40364 0.6665043 0.6665043 0.6665043 0.3476790 0.4026481 0.6665043 0.6665043 0.000000 27.11060 17.07657 16.32077 13.35081 13.43276 0.6670738 0.6670738 0.6670738 0.3479429 0.4028597 0.6670738 0.6670738 0.000000 27.19701 17.09089 16.34281 13.37597 13.44005 0.6677898 0.6677898 0.6677898 0.3481480 0.4029995 0.6677898 0.6677898 0.000000 27.28098 17.10460 16.36410 13.40344 13.46713 0.6684745 0.6684745 0.6684745 0.3483416 0.4031863 0.6684745 0.6684745 0.000000 27.36269 17.11777 16.38468 13.43027 13.49355 0.6689512 0.6689512 0.6689512 0.3485707 0.4033618 0.6689512 0.6689512 0.000000 27.44229 17.13404 16.40461 13.44480 13.51639 0.6695799 0.6695799 0.6695799 0.3487437 0.4035268 0.6695799 0.6695799 0.000000 27.51215 17.14620 16.42393 13.45770 13.54165 0.6701830 0.6701830 0.6701830 0.3489533 0.4036820 0.6701830 0.6701830 0.000000 27.58152 17.15792 16.44268 13.47933 13.56639 0.6707622 0.6707622 0.6707622 0.3491081 0.4038863 0.6707622 0.6707622 0.000000 27.65544 17.16923 16.46090 13.50344 13.59065 0.6713190 0.6713190 0.6713190 0.3493005 0.4040233 0.6713190 0.6713190 0.000000 27.72774 17.18015 16.48211 13.52410 13.61295 0.6719434 0.6719434 0.6719434 0.3494850 0.4041521 0.6719434 0.6719434 0.000000 27.79225 17.19426 16.49935 13.54732 13.61667 0.6725476 0.6725476 0.6725476 0.3496621 0.4043314 0.6725476 0.6725476 0.000000 27.85533 17.20446 16.51614 13.56713 13.63618 0.6730443 0.6730443 0.6730443 0.3498322 0.4044450 0.6730443 0.6730443 0.000000 27.92333 17.21434 16.53252 13.58957 13.65826 0.6735231 0.6735231 0.6735231 0.3500411 0.4046097 0.6735231 0.6735231 0.000000 27.97647 17.22745 16.54851 13.61166 13.67998 0.6739849 0.6739849 0.6739849 0.3501982 0.4047098 0.6739849 0.6739849 0.000000 28.04190 17.23672 16.56758 13.60938 13.69837 0.6746073 0.6746073 0.6746073 0.3503947 0.4048614 0.6746073 0.6746073 0.000000 28.09993 17.24572 16.58283 13.62738 13.71643 0.6750378 0.6750378 0.6750378 0.3505400 0.4050069 0.6750378 0.6750378 0.000000 28.16314 17.27442 16.59774 13.64803 13.74017 0.6755419 0.6755419 0.6755419 0.3506799 0.4051466 0.6755419 0.6755419 0.000000 28.21906 17.28676 16.61234 13.66541 13.75763 0.6760320 0.6760320 0.6760320 0.3508147 0.4052808 0.6760320 0.6760320 0.000000 28.27401 17.29529 16.62662 13.68251 13.77481 0.6764209 0.6764209 0.6764209 0.3509898 0.4054097 0.6764209 0.6764209 0.000000 28.32178 17.30693 16.64408 13.69934 13.78519 0.6769729 0.6769729 0.6769729 0.3511600 0.4055336 0.6769729 0.6769729 0.000000 28.37492 17.31501 16.65779 13.71591 13.79042 0.6773371 0.6773371 0.6773371 0.3512806 0.4056526 0.6773371 0.6773371 0.000000 28.42722 17.32645 16.67124 13.73523 13.80945 0.6778651 0.6778651 0.6778651 0.3514419 0.4057670 0.6778651 0.6778651 0.000000 28.47247 17.33768 16.68789 13.75133 13.82526 0.6782942 0.6782942 0.6782942 0.3515991 0.4058769 0.6782942 0.6782942 0.000000 28.52252 17.34517 16.70084 13.77022 13.84383 0.6787127 0.6787127 0.6787127 0.3517072 0.4059826 0.6787127 0.6787127 0.000000 1.578447 4.229466 4.942419 5.671213 6.055651 0.6245336 0.6245336 0.6245336 0.3327892 0.3900127 0.6245336 0.6245336 0.000000 20.51418 15.83648 14.73899 11.81697 11.86702 0.6308459 0.6308459 0.6308459 0.3356515 0.3926176 0.6308459 0.6308459 0.000000 22.50989 16.20171 15.13506 12.12140 12.15929 0.6352754 0.6352754 0.6352754 0.3372581 0.3938701 0.6352754 0.6352754 0.000000 23.21998 16.35488 15.31251 12.27798 12.31341 0.6385142 0.6385142 0.6385142 0.3383872 0.3948497 0.6385142 0.6385142 0.000000 23.66346 16.44965 15.43014 12.38886 12.42603 0.6411892 0.6411892 0.6411892 0.3393278 0.3956232 0.6411892 0.6411892 0.000000 23.99165 16.51882 15.52154 12.47640 12.51700 0.6435502 0.6435502 0.6435502 0.3401190 0.3963065 0.6435502 0.6435502 0.000000 24.25942 16.57432 15.59248 12.55268 12.59303 0.6455838 0.6455838 0.6455838 0.3408075 0.3968358 0.6455838 0.6455838 0.000000 24.48637 16.62343 15.65683 12.61887 12.66076 0.6473197 0.6473197 0.6473197 0.3414277 0.3973492 0.6473197 0.6473197 0.000000 24.68479 16.66553 15.71527 12.67830 12.72333 0.6489976 0.6489976 0.6489976 0.3419829 0.3978313 0.6489976 0.6489976 0.000000 24.91939 16.70118 15.76490 12.73246 12.77896 0.6505183 0.6505183 0.6505183 0.3425086 0.3982520 0.6505183 0.6505183 0.000000 25.10626 16.73455 15.81024 12.78349 12.83302 0.6519495 0.6519495 0.6519495 0.3429805 0.3986348 0.6519495 0.6519495 0.000000 25.27067 16.76469 15.85485 12.83129 12.88068 0.6532454 0.6532454 0.6532454 0.3433684 0.3989967 0.6532454 0.6532454 0.000000 25.43263 16.79257 15.89395 12.87386 12.92623 0.6545378 0.6545378 0.6545378 0.3437834 0.3993504 0.6545378 0.6545378 0.000000 25.57992 16.81890 15.93238 12.91518 12.97047 0.6556671 0.6556671 0.6556671 0.3441870 0.3997059 0.6556671 0.6556671 0.000000 25.72151 16.84420 15.97075 12.95586 13.03779 0.6567505 0.6567505 0.6567505 0.3445394 0.4000102 0.6567505 0.6567505 0.000000 25.85985 16.86687 16.00393 13.01568 13.06148 0.6578058 0.6578058 0.6578058 0.3448954 0.4002699 0.6578058 0.6578058 0.000000 25.98931 16.89127 16.03801 13.04735 13.10450 0.6588475 0.6588475 0.6588475 0.3452126 0.4005511 0.6588475 0.6588475 0.000000 26.10976 16.90974 16.06776 13.07743 13.14526 0.6597953 0.6597953 0.6597953 0.3455431 0.4008578 0.6597953 0.6597953 0.000000 26.23087 16.93041 16.09902 13.11278 13.16808 0.6606601 0.6606601 0.6606601 0.3458429 0.4010730 0.6606601 0.6606601 0.000000 26.34588 16.94955 16.12834 13.15252 13.20418 0.6615422 0.6615422 0.6615422 0.3461626 0.4013206 0.6615422 0.6615422 0.000000 26.46189 16.97114 16.15594 13.16856 13.24172 0.6623573 0.6623573 0.6623573 0.3464107 0.4015429 0.6623573 0.6623573 0.000000 26.56486 16.98768 16.18200 13.20141 13.27481 0.6632029 0.6632029 0.6632029 0.3466834 0.4018020 0.6632029 0.6632029 0.000000 26.66484 17.00503 16.21026 13.23297 13.30154 0.6639934 0.6639934 0.6639934 0.3469360 0.4020401 0.6639934 0.6639934 0.000000 26.76082 17.02137 16.23368 13.26336 13.32426 0.6647334 0.6647334 0.6647334 0.3472166 0.4021996 0.6647334 0.6647334 0.000000 26.86585 17.03867 16.25952 13.29575 13.35315 0.6655177 0.6655177 0.6655177 0.3474337 0.4024010 0.6655177 0.6655177 0.000000 26.95480 17.05513 16.28430 13.30543 13.38406 0.6662595 0.6662595 0.6662595 0.3476817 0.4026454 0.6662595 0.6662595 0.000000 27.03892 17.06715 16.30458 13.33228 13.41409 0.6669620 0.6669620 0.6669620 0.3479152 0.4028155 0.6669620 0.6669620 0.000000 27.13438 17.08216 16.32751 13.36130 13.44333 0.6676282 0.6676282 0.6676282 0.3481353 0.4029717 0.6676282 0.6676282 0.000000 27.21457 17.09652 16.34962 13.38656 13.45346 0.6683505 0.6683505 0.6683505 0.3483430 0.4031740 0.6683505 0.6683505 0.000000 27.29864 17.11028 16.37097 13.41413 13.47766 0.6689517 0.6689517 0.6689517 0.3485853 0.4033640 0.6689517 0.6689517 0.000000 27.38043 17.12711 16.39162 13.44107 13.50417 0.6695240 0.6695240 0.6695240 0.3487706 0.4035427 0.6695240 0.6695240 0.000000 27.45244 17.13979 16.41161 13.44619 13.53009 0.6701581 0.6701581 0.6701581 0.3489459 0.4037107 0.6701581 0.6701581 0.000000 27.53000 17.15200 16.43099 13.46844 13.55245 0.6707666 0.6707666 0.6707666 0.3491577 0.4038688 0.6707666 0.6707666 0.000000 27.60572 17.16376 16.45329 13.49313 13.58027 0.6713510 0.6713510 0.6713510 0.3493604 0.4040175 0.6713510 0.6713510 0.000000 27.67343 17.17510 16.47155 13.51434 13.60162 0.6719127 0.6719127 0.6719127 0.3495548 0.4042157 0.6719127 0.6719127 0.000000 27.74579 17.18606 16.48932 13.53508 13.60460 0.6725418 0.6725418 0.6725418 0.3497412 0.4043472 0.6725418 0.6725418 0.000000 27.81663 17.20020 16.50661 13.55838 13.62755 0.6731506 0.6731506 0.6731506 0.3499201 0.4044708 0.6731506 0.6731506 0.000000 27.87976 17.21043 16.52345 13.58127 13.65010 0.6736517 0.6736517 0.6736517 0.3500920 0.4046451 0.6736517 0.6736517 0.000000 27.94153 17.22034 16.54335 13.60079 13.66927 0.6741349 0.6741349 0.6741349 0.3502571 0.4048122 0.6741349 0.6741349 0.000000 28.00095 17.23347 16.55938 13.60209 13.69106 0.6746892 0.6746892 0.6746892 0.3504159 0.4049724 0.6746892 0.6746892 0.000000 28.06016 17.24278 16.57502 13.62049 13.71250 0.6752273 0.6752273 0.6752273 0.3506140 0.4050684 0.6752273 0.6752273 0.000000 28.11823 17.27168 16.59378 13.64151 13.73062 0.6756617 0.6756617 0.6756617 0.3508063 0.4052161 0.6756617 0.6756617 0.000000 28.17522 17.28073 16.60873 13.65925 13.75144 0.6762575 0.6762575 0.6762575 0.3509477 0.4053580 0.6762575 0.6762575 0.000000 28.23742 17.29310 16.62335 13.67967 13.77196 0.6766633 0.6766633 0.6766633 0.3510840 0.4054942 0.6766633 0.6766633 0.000000 28.29240 17.30523 16.64113 13.69683 13.78795 0.6772314 0.6772314 0.6772314 0.3512604 0.4056251 0.6772314 0.6772314 0.000000 28.34645 17.31333 16.65516 13.71372 13.78828 0.6776112 0.6776112 0.6776112 0.3514321 0.4057509 0.6776112 0.6776112 0.000000 28.39337 17.32499 16.66890 13.73035 13.80463 0.6781541 0.6781541 0.6781541 0.3515540 0.4058718 0.6781541 0.6781541 0.000000 28.44569 17.33645 16.68238 13.74973 13.82370 0.6785100 0.6785100 0.6785100 0.3516716 0.4059881 0.6785100 0.6785100 0.000000 28.49721 17.34416 16.69561 13.76589 13.83956 0.6790299 0.6790299 0.6790299 0.3518751 0.4060999 0.6790299 0.6790299 0.000000 28.54726 17.35523 16.71204 13.78485 13.85818 0.6793640 0.6793640 0.6793640 0.3519845 0.4062646 0.6793640 0.6793640 0.000000 1.578767 4.233611 4.946573 5.677547 6.056946 0.6245464 0.6245464 0.6245464 0.3327972 0.3900192 0.6245464 0.6245464 0.000000 20.53201 15.83867 14.74140 11.81932 11.86644 0.6310006 0.6310006 0.6310006 0.3356835 0.3926194 0.6310006 0.6310006 0.000000 22.51399 16.20433 15.13480 12.12196 12.15987 0.6353148 0.6353148 0.6353148 0.3372830 0.3939156 0.6353148 0.6353148 0.000000 23.22469 16.35469 15.31304 12.27923 12.31671 0.6386246 0.6386246 0.6386246 0.3384438 0.3949272 0.6386246 0.6386246 0.000000 23.66869 16.45001 15.43375 12.39059 12.42777 0.6413541 0.6413541 0.6413541 0.3394080 0.3956617 0.6413541 0.6413541 0.000000 23.99319 16.51959 15.52303 12.48034 12.51912 0.6436594 0.6436594 0.6436594 0.3402177 0.3963656 0.6436594 0.6436594 0.000000 24.26157 16.57791 15.59655 12.55511 12.59547 0.6457304 0.6457304 0.6457304 0.3409213 0.3969123 0.6457304 0.6457304 0.000000 24.49279 16.62478 15.66110 12.62158 12.66514 0.6475953 0.6475953 0.6475953 0.3415543 0.3974407 0.6475953 0.6475953 0.000000 24.68789 16.66480 15.71551 12.68125 12.72791 0.6492999 0.6492999 0.6492999 0.3420711 0.3979357 0.6492999 0.6492999 0.000000 24.92661 16.70296 15.76746 12.73725 12.78373 0.6508440 0.6508440 0.6508440 0.3426066 0.3983680 0.6508440 0.6508440 0.000000 25.11381 16.73650 15.81500 12.78846 12.83796 0.6522960 0.6522960 0.6522960 0.3430873 0.3987611 0.6522960 0.6522960 0.000000 25.27851 16.76680 15.85976 12.83642 12.88579 0.6535163 0.6535163 0.6535163 0.3435315 0.3991322 0.6535163 0.6535163 0.000000 25.44074 16.79482 15.89900 12.87914 12.93149 0.6548261 0.6548261 0.6548261 0.3439533 0.3994944 0.6548261 0.6548261 0.000000 25.58830 16.82334 15.93756 12.92060 12.99377 0.6559715 0.6559715 0.6559715 0.3443150 0.3997967 0.6559715 0.6559715 0.000000 25.73012 16.84872 15.97416 12.96141 13.04376 0.6570695 0.6570695 0.6570695 0.3447212 0.4001083 0.6570695 0.6570695 0.000000 25.86869 16.87148 16.00748 13.02178 13.06747 0.6582308 0.6582308 0.6582308 0.3450824 0.4003749 0.6582308 0.6582308 0.000000 25.99837 16.89398 16.04354 13.04617 13.11067 0.6591924 0.6591924 0.6591924 0.3454044 0.4006624 0.6591924 0.6591924 0.000000 26.12551 16.91450 16.07339 13.08369 13.15467 0.6601519 0.6601519 0.6601519 0.3456920 0.4009749 0.6601519 0.6601519 0.000000 26.24678 16.93525 16.10475 13.12228 13.17441 0.6611192 0.6611192 0.6611192 0.3460434 0.4011958 0.6611192 0.6611192 0.000000 26.36195 16.95445 16.13417 13.15910 13.21368 0.6620113 0.6620113 0.6620113 0.3463200 0.4014486 0.6620113 0.6620113 0.000000 26.47167 16.97421 16.16186 13.17512 13.24832 0.6628358 0.6628358 0.6628358 0.3465719 0.4017355 0.6628358 0.6628358 0.000000 26.57478 16.99272 16.18801 13.20809 13.28459 0.6636901 0.6636901 0.6636901 0.3468482 0.4019396 0.6636901 0.6636901 0.000000 26.67491 17.00824 16.21635 13.24281 13.30102 0.6644889 0.6644889 0.6644889 0.3471042 0.4021226 0.6644889 0.6644889 0.000000 26.78375 17.02652 16.23985 13.27333 13.33109 0.6652368 0.6652368 0.6652368 0.3473880 0.4023459 0.6652368 0.6652368 0.000000 26.87618 17.04387 16.26577 13.30432 13.36308 0.6660286 0.6660286 0.6660286 0.3476546 0.4025513 0.6660286 0.6660286 0.000000 26.96368 17.06038 16.29062 13.31542 13.39411 0.6667774 0.6667774 0.6667774 0.3478591 0.4027403 0.6667774 0.6667774 0.000000 27.06211 17.07245 16.31451 13.34237 13.42426 0.6674867 0.6674867 0.6674867 0.3481416 0.4029731 0.6674867 0.6674867 0.000000 27.14503 17.08751 16.33750 13.37149 13.44511 0.6681594 0.6681594 0.6681594 0.3483181 0.4031918 0.6681594 0.6681594 0.000000 27.23163 17.10191 16.35967 13.39685 13.46063 0.6688877 0.6688877 0.6688877 0.3485744 0.4033385 0.6688877 0.6688877 0.000000 27.31578 17.11572 16.38107 13.42453 13.48789 0.6694949 0.6694949 0.6694949 0.3487730 0.4035317 0.6694949 0.6694949 0.000000 27.39766 17.13259 16.40177 13.45157 13.51450 0.6700729 0.6700729 0.6700729 0.3489607 0.4037135 0.6700729 0.6700729 0.000000 27.46971 17.14531 16.42182 13.45655 13.54050 0.6707125 0.6707125 0.6707125 0.3491841 0.4038845 0.6707125 0.6707125 0.000000 27.54734 17.15755 16.44125 13.47888 13.56594 0.6713262 0.6713262 0.6713262 0.3493979 0.4040454 0.6713262 0.6713262 0.000000 27.61685 17.16935 16.46010 13.50364 13.59086 0.6719156 0.6719156 0.6719156 0.3496026 0.4041969 0.6719156 0.6719156 0.000000 27.69716 17.18073 16.48191 13.52792 13.61234 0.6725708 0.6725708 0.6725708 0.3497989 0.4043395 0.6725708 0.6725708 0.000000 27.76331 17.19528 16.49972 13.54874 13.61807 0.6732044 0.6732044 0.6732044 0.3499871 0.4045318 0.6732044 0.6732044 0.000000 27.82793 17.20590 16.51705 13.56913 13.64110 0.6737290 0.6737290 0.6737290 0.3501678 0.4047160 0.6737290 0.6737290 0.000000 27.89738 17.21616 16.53394 13.59210 13.66371 0.6742346 0.6742346 0.6742346 0.3503414 0.4048346 0.6742346 0.6742346 0.000000 27.96546 17.22964 16.55041 13.61263 13.68295 0.6747220 0.6747220 0.6747220 0.3505082 0.4049461 0.6747220 0.6747220 0.000000 28.02489 17.23926 16.56994 13.61579 13.70481 0.6753685 0.6753685 0.6753685 0.3506686 0.4051087 0.6753685 0.6753685 0.000000 28.08414 17.26837 16.58563 13.63424 13.72632 0.6758223 0.6758223 0.6758223 0.3508230 0.4052647 0.6758223 0.6758223 0.000000 28.14224 17.27771 16.60095 13.65236 13.74451 0.6763486 0.6763486 0.6763486 0.3510168 0.4054146 0.6763486 0.6763486 0.000000 28.19926 17.29036 16.61940 13.67313 13.76539 0.6768600 0.6768600 0.6768600 0.3512050 0.4055584 0.6768600 0.6768600 0.000000 28.25524 17.30276 16.63406 13.69063 13.78599 0.6772695 0.6772695 0.6772695 0.3513427 0.4056967 0.6772695 0.6772695 0.000000 28.31025 17.31111 16.64841 13.71083 13.78546 0.6778409 0.6778409 0.6778409 0.3514754 0.4058296 0.6778409 0.6778409 0.000000 28.36432 17.32302 16.66593 13.72778 13.80212 0.6782241 0.6782241 0.6782241 0.3516484 0.4059573 0.6782241 0.6782241 0.000000 28.41751 17.33472 16.67971 13.74447 13.81851 0.6787702 0.6787702 0.6787702 0.3518167 0.4060801 0.6787702 0.6787702 0.000000 28.46985 17.34264 16.69321 13.76091 13.83466 0.6793044 0.6793044 0.6793044 0.3519357 0.4061982 0.6793044 0.6793044 0.000000 28.52070 17.35393 16.70992 13.78014 13.85355 0.6796523 0.6796523 0.6796523 0.3521403 0.4063118 0.6796523 0.6796523 0.000000 28.57144 17.36502 16.72293 13.77844 13.87221 0.6801642 0.6801642 0.6801642 0.3522510 0.4064210 0.6801642 0.6801642 0.000000 1.579072 4.234818 4.950669 5.678764 6.058180 0.6245586 0.6245586 0.6245586 0.3328048 0.3900254 0.6245586 0.6245586 0.000000 20.53532 15.84076 14.74370 11.82008 11.86866 0.6310417 0.6310417 0.6310417 0.3357125 0.3926189 0.6310417 0.6310417 0.000000 22.51228 16.20682 15.13760 12.12476 12.16264 0.6354498 0.6354498 0.6354498 0.3373038 0.3939576 0.6354498 0.6354498 0.000000 23.22431 16.35750 15.31620 12.28242 12.31783 0.6388264 0.6388264 0.6388264 0.3385472 0.3949358 0.6388264 0.6388264 0.000000 23.66925 16.45306 15.43466 12.39217 12.42936 0.6415064 0.6415064 0.6415064 0.3394825 0.3957590 0.6415064 0.6415064 0.000000 23.99861 16.52285 15.52434 12.48229 12.52107 0.6438542 0.6438542 0.6438542 0.3403102 0.3964192 0.6438542 0.6438542 0.000000 24.26736 16.57884 15.60045 12.55912 12.59944 0.6459605 0.6459605 0.6459605 0.3409786 0.3969829 0.6459605 0.6459605 0.000000 24.49891 16.62837 15.66302 12.62580 12.66933 0.6478554 0.6478554 0.6478554 0.3416244 0.3975258 0.6478554 0.6478554 0.000000 24.69431 16.66852 15.71977 12.68566 12.73067 0.6495858 0.6495858 0.6495858 0.3422016 0.3980335 0.6495858 0.6495858 0.000000 24.93350 16.70457 15.77188 12.74184 12.78830 0.6510574 0.6510574 0.6510574 0.3426975 0.3984770 0.6510574 0.6510574 0.000000 25.12101 16.73828 15.81957 12.79162 12.84113 0.6525303 0.6525303 0.6525303 0.3431866 0.3988801 0.6525303 0.6525303 0.000000 25.28599 16.77086 15.86250 12.83819 12.89068 0.6538638 0.6538638 0.6538638 0.3436385 0.3992603 0.6538638 0.6538638 0.000000 25.44849 16.79898 15.90384 12.88419 12.93652 0.6550964 0.6550964 0.6550964 0.3440672 0.3995697 0.6550964 0.6550964 0.000000 25.60303 16.82553 15.94252 12.92579 12.99930 0.6563506 0.6563506 0.6563506 0.3444831 0.3999407 0.6563506 0.6563506 0.000000 25.74500 16.85103 15.97736 12.96673 13.04949 0.6574625 0.6574625 0.6574625 0.3448471 0.4001986 0.6574625 0.6574625 0.000000 25.88375 16.87590 16.01267 13.02763 13.07631 0.6585441 0.6585441 0.6585441 0.3452135 0.4005324 0.6585441 0.6585441 0.000000 26.01358 16.89650 16.04698 13.05204 13.11967 0.6595179 0.6595179 0.6595179 0.3455405 0.4008259 0.6595179 0.6595179 0.000000 26.13435 16.91907 16.07879 13.08972 13.16384 0.6605806 0.6605806 0.6605806 0.3458799 0.4010838 0.6605806 0.6605806 0.000000 26.25580 16.93989 16.11025 13.12846 13.18352 0.6615582 0.6615582 0.6615582 0.3461882 0.4013701 0.6615582 0.6615582 0.000000 26.37114 16.95916 16.13976 13.16851 13.21989 0.6623687 0.6623687 0.6623687 0.3464688 0.4016278 0.6623687 0.6623687 0.000000 26.48103 16.97707 16.16754 13.18444 13.25771 0.6632935 0.6632935 0.6632935 0.3467713 0.4018598 0.6632935 0.6632935 0.000000 26.58426 16.99754 16.19378 13.21754 13.29412 0.6641564 0.6641564 0.6641564 0.3470511 0.4020684 0.6641564 0.6641564 0.000000 26.69091 17.01313 16.22220 13.24935 13.30747 0.6649632 0.6649632 0.6649632 0.3473102 0.4023152 0.6649632 0.6649632 0.000000 26.79351 17.03146 16.24578 13.28303 13.34064 0.6657189 0.6657189 0.6657189 0.3475506 0.4025424 0.6657189 0.6657189 0.000000 26.89242 17.04886 16.27176 13.29419 13.37275 0.6665179 0.6665179 0.6665179 0.3478201 0.4027516 0.6665179 0.6665179 0.000000 26.97998 17.06358 16.29669 13.32513 13.40389 0.6672736 0.6672736 0.6672736 0.3480737 0.4029442 0.6672736 0.6672736 0.000000 27.07219 17.07754 16.32064 13.35218 13.43415 0.6679896 0.6679896 0.6679896 0.3483126 0.4031216 0.6679896 0.6679896 0.000000 27.16153 17.09264 16.34370 13.38141 13.44542 0.6686686 0.6686686 0.6686686 0.3485379 0.4033436 0.6686686 0.6686686 0.000000 27.24821 17.10709 16.36593 13.40988 13.47348 0.6694028 0.6694028 0.6694028 0.3487505 0.4034936 0.6694028 0.6694028 0.000000 27.33245 17.12094 16.38740 13.43465 13.49785 0.6701051 0.6701051 0.6701051 0.3489514 0.4036900 0.6701051 0.6701051 0.000000 27.41440 17.13784 16.40816 13.44067 13.52753 0.6706885 0.6706885 0.6706885 0.3491873 0.4038748 0.6706885 0.6706885 0.000000 27.48650 17.15061 16.42826 13.46663 13.55063 0.6712443 0.6712443 0.6712443 0.3494128 0.4040487 0.6712443 0.6712443 0.000000 27.56419 17.16289 16.45123 13.49201 13.57915 0.6719519 0.6719519 0.6719519 0.3496285 0.4042124 0.6719519 0.6719519 0.000000 27.64003 17.17473 16.47014 13.51388 13.60116 0.6725461 0.6725461 0.6725461 0.3498352 0.4043666 0.6725461 0.6725461 0.000000 27.70787 17.18615 16.48850 13.53524 13.60772 0.6732059 0.6732059 0.6732059 0.3499878 0.4045699 0.6732059 0.6732059 0.000000 27.78661 17.20072 16.50636 13.55913 13.63126 0.6737553 0.6737553 0.6737553 0.3501779 0.4047066 0.6737553 0.6737553 0.000000 27.85127 17.21137 16.52374 13.58259 13.65138 0.6742844 0.6742844 0.6742844 0.3504058 0.4048353 0.6742844 0.6742844 0.000000 27.91450 17.22520 16.54415 13.60564 13.67406 0.6747943 0.6747943 0.6747943 0.3505811 0.4050142 0.6747943 0.6747943 0.000000 27.97532 17.23516 16.56065 13.60440 13.69635 0.6754620 0.6754620 0.6754620 0.3507496 0.4051858 0.6754620 0.6754620 0.000000 28.04207 17.24482 16.57676 13.62623 13.71528 0.6759361 0.6759361 0.6759361 0.3509116 0.4053504 0.6759361 0.6759361 0.000000 28.10761 17.27413 16.59595 13.64771 13.73685 0.6763939 0.6763939 0.6763939 0.3510675 0.4054509 0.6763939 0.6763939 0.000000 28.16575 17.28708 16.61131 13.66589 13.75810 0.6770117 0.6770117 0.6770117 0.3512627 0.4056028 0.6770117 0.6770117 0.000000 28.22279 17.29619 16.62633 13.68374 13.77906 0.6774388 0.6774388 0.6774388 0.3514523 0.4057488 0.6774388 0.6774388 0.000000 28.27880 17.30838 16.64449 13.70129 13.77900 0.6780272 0.6780272 0.6780272 0.3515914 0.4058889 0.6780272 0.6780272 0.000000 28.33383 17.31699 16.65887 13.72155 13.79599 0.6784266 0.6784266 0.6784266 0.3517255 0.4060237 0.6784266 0.6784266 0.000000 28.38793 17.32893 16.67296 13.74155 13.81566 0.6789882 0.6789882 0.6789882 0.3518998 0.4061533 0.6789882 0.6789882 0.000000 28.44114 17.34064 16.69022 13.75829 13.83210 0.6793624 0.6793624 0.6793624 0.3520694 0.4062780 0.6793624 0.6793624 0.000000 28.49350 17.35215 16.70376 13.77480 13.84830 0.6798996 0.6798996 0.6798996 0.3521897 0.4063978 0.6798996 0.6798996 0.000000 28.54436 17.35991 16.71704 13.78579 13.86723 0.6804252 0.6804252 0.6804252 0.3523954 0.4065132 0.6804252 0.6804252 0.000000 28.58886 17.37103 16.73352 13.78918 13.88595 0.6807654 0.6807654 0.6807654 0.3525073 0.4066811 0.6807654 0.6807654 0.000000 1.581976 4.238850 4.951808 5.679925 6.064473 0.6245703 0.6245703 0.6245703 0.3328122 0.3900313 0.6245703 0.6245703 0.000000 20.53848 15.84276 14.74589 11.82074 11.87077 0.6310773 0.6310773 0.6310773 0.3357387 0.3926162 0.6310773 0.6310773 0.000000 22.51601 16.20561 15.13709 12.12508 12.16298 0.6354719 0.6354719 0.6354719 0.3373732 0.3939961 0.6354719 0.6354719 0.000000 23.22861 16.35707 15.31922 12.28339 12.31881 0.6389154 0.6389154 0.6389154 0.3385940 0.3950047 0.6389154 0.6389154 0.000000 23.66958 16.45316 15.43543 12.39552 12.43267 0.6417474 0.6417474 0.6417474 0.3395516 0.3957876 0.6417474 0.6417474 0.000000 24.00379 16.52596 15.52787 12.48408 12.52464 0.6440361 0.6440361 0.6440361 0.3403466 0.3964675 0.6440361 0.6440361 0.000000 24.27290 16.57964 15.60193 12.55946 12.60153 0.6461767 0.6461767 0.6461767 0.3410799 0.3970478 0.6461767 0.6461767 0.000000 24.50101 16.62941 15.66477 12.62815 12.67002 0.6481008 0.6481008 0.6481008 0.3417377 0.3976049 0.6481008 0.6481008 0.000000 24.70045 16.67208 15.72385 12.68989 12.73325 0.6497604 0.6497604 0.6497604 0.3423254 0.3981250 0.6497604 0.6497604 0.000000 24.94009 16.70825 15.77407 12.74301 12.79268 0.6513504 0.6513504 0.6513504 0.3428304 0.3985176 0.6513504 0.6513504 0.000000 25.12790 16.74207 15.82195 12.79459 12.84410 0.6527485 0.6527485 0.6527485 0.3433276 0.3989308 0.6527485 0.6527485 0.000000 25.29316 16.77263 15.86505 12.84290 12.89537 0.6541945 0.6541945 0.6541945 0.3437867 0.3993202 0.6541945 0.6541945 0.000000 25.45591 16.80297 15.90847 12.88904 12.94136 0.6554433 0.6554433 0.6554433 0.3442218 0.3996989 0.6554433 0.6554433 0.000000 25.61069 16.82756 15.94728 12.93077 13.00776 0.6567122 0.6567122 0.6567122 0.3445958 0.4000165 0.6567122 0.6567122 0.000000 25.75287 16.85318 15.98223 12.97183 13.04987 0.6578376 0.6578376 0.6578376 0.3449654 0.4003421 0.6578376 0.6578376 0.000000 25.89183 16.87814 16.01765 13.03639 13.08184 0.6589317 0.6589317 0.6589317 0.3453370 0.4006821 0.6589317 0.6589317 0.000000 26.02187 16.90082 16.05022 13.05768 13.12536 0.6599172 0.6599172 0.6599172 0.3456688 0.4009213 0.6599172 0.6599172 0.000000 26.14280 16.92346 16.08398 13.09858 13.16969 0.6608989 0.6608989 0.6608989 0.3460126 0.4012449 0.6608989 0.6608989 0.000000 26.26443 16.94434 16.11552 13.13747 13.18936 0.6619781 0.6619781 0.6619781 0.3463251 0.4014765 0.6619781 0.6619781 0.000000 26.37994 16.96368 16.14512 13.17026 13.22890 0.6627982 0.6627982 0.6627982 0.3466564 0.4017392 0.6627982 0.6627982 0.000000 26.49641 16.98165 16.17299 13.19050 13.26686 0.6637318 0.6637318 0.6637318 0.3469624 0.4019758 0.6637318 0.6637318 0.000000 26.59973 17.00218 16.19931 13.22372 13.30340 0.6646031 0.6646031 0.6646031 0.3472455 0.4022484 0.6646031 0.6646031 0.000000 26.70650 17.01782 16.22781 13.25868 13.31666 0.6654178 0.6654178 0.6654178 0.3475078 0.4024400 0.6654178 0.6654178 0.000000 26.80922 17.03620 16.25503 13.29249 13.34995 0.6661810 0.6661810 0.6661810 0.3477511 0.4026711 0.6661810 0.6661810 0.000000 26.90823 17.05366 16.27753 13.30355 13.38216 0.6669871 0.6669871 0.6669871 0.3479772 0.4028842 0.6669871 0.6669871 0.000000 26.99586 17.06658 16.30252 13.33160 13.41341 0.6677496 0.6677496 0.6677496 0.3482797 0.4030805 0.6677496 0.6677496 0.000000 27.08816 17.08244 16.32654 13.36175 13.44378 0.6684719 0.6684719 0.6684719 0.3484750 0.4033202 0.6684719 0.6684719 0.000000 27.17759 17.09758 16.34966 13.39107 13.45495 0.6691571 0.6691571 0.6691571 0.3487489 0.4034867 0.6691571 0.6691571 0.000000 27.26436 17.11207 16.37196 13.41663 13.48011 0.6698972 0.6698972 0.6698972 0.3489639 0.4036399 0.6698972 0.6698972 0.000000 27.34867 17.12958 16.39348 13.44451 13.51053 0.6706051 0.6706051 0.6706051 0.3491670 0.4038393 0.6706051 0.6706051 0.000000 27.43070 17.14290 16.41780 13.45338 13.53432 0.6712829 0.6712829 0.6712829 0.3494050 0.4040270 0.6712829 0.6712829 0.000000 27.50911 17.15570 16.43795 13.47644 13.56349 0.6718438 0.6718438 0.6718438 0.3496325 0.4042038 0.6718438 0.6718438 0.000000 27.58060 17.16802 16.45748 13.49892 13.58910 0.6725561 0.6725561 0.6725561 0.3498046 0.4043703 0.6725561 0.6725561 0.000000 27.65649 17.17990 16.47643 13.52384 13.61270 0.6731550 0.6731550 0.6731550 0.3500132 0.4045852 0.6731550 0.6731550 0.000000 27.73065 17.19491 16.49485 13.54827 13.61761 0.6737307 0.6737307 0.6737307 0.3502132 0.4047329 0.6737307 0.6737307 0.000000 27.79691 17.20595 16.51623 13.56924 13.64122 0.6742847 0.6742847 0.6742847 0.3504051 0.4048721 0.6742847 0.6742847 0.000000 27.86789 17.21663 16.53365 13.59578 13.66438 0.6748181 0.6748181 0.6748181 0.3505893 0.4050609 0.6748181 0.6748181 0.000000 27.93742 17.23049 16.55062 13.60562 13.68414 0.6755083 0.6755083 0.6755083 0.3508116 0.4051844 0.6755083 0.6755083 0.000000 27.99825 17.24048 16.57064 13.61747 13.70649 0.6760038 0.6760038 0.6760038 0.3509817 0.4053582 0.6760038 0.6760038 0.000000 28.05879 17.26999 16.58678 13.63639 13.72847 0.6764818 0.6764818 0.6764818 0.3511452 0.4054674 0.6764818 0.6764818 0.000000 28.11811 17.27967 16.60254 13.65793 13.75011 0.6771190 0.6771190 0.6771190 0.3513026 0.4056276 0.6771190 0.6771190 0.000000 28.18253 17.29265 16.62140 13.67914 13.77143 0.6775646 0.6775646 0.6775646 0.3514542 0.4057815 0.6775646 0.6775646 0.000000 28.23960 17.30536 16.63645 13.69705 13.78214 0.6781706 0.6781706 0.6781706 0.3516902 0.4059294 0.6781706 0.6781706 0.000000 28.30190 17.31400 16.65464 13.71466 13.78921 0.6785870 0.6785870 0.6785870 0.3518308 0.4060715 0.6785870 0.6785870 0.000000 28.35695 17.32620 16.66905 13.73498 13.80921 0.6791648 0.6791648 0.6791648 0.3519662 0.4062082 0.6791648 0.6791648 0.000000 28.41107 17.33816 16.68663 13.75504 13.82893 0.6795546 0.6795546 0.6795546 0.3521418 0.4063396 0.6795546 0.6795546 0.000000 28.46430 17.34635 16.70046 13.77184 13.84542 0.6801066 0.6801066 0.6801066 0.3523126 0.4064660 0.6801066 0.6801066 0.000000 28.51043 17.35788 16.71402 13.78841 13.86165 0.6805593 0.6805593 0.6805593 0.3524341 0.4065876 0.6805593 0.6805593 0.000000 28.55503 17.36922 16.73078 13.78685 13.88064 0.6810006 0.6810006 0.6810006 0.3526409 0.4067047 0.6810006 0.6810006 0.000000 28.60580 17.38035 16.74384 13.80260 13.89940 0.6815180 0.6815180 0.6815180 0.3527541 0.4068173 0.6815180 0.6815180 0.000000 1.582254 4.239951 4.952898 5.683563 6.065598 0.6245815 0.6245815 0.6245815 0.3328192 0.3900370 0.6245815 0.6245815 0.000000 20.54150 15.84466 14.74799 11.82279 11.86990 0.6311078 0.6311078 0.6311078 0.3357623 0.3926771 0.6311078 0.6311078 0.000000 22.51958 16.20789 15.13965 12.12764 12.16551 0.6355904 0.6355904 0.6355904 0.3374388 0.3940315 0.6355904 0.6355904 0.000000 23.22784 16.35965 15.31934 12.28422 12.32170 0.6389948 0.6389948 0.6389948 0.3386363 0.3950052 0.6389948 0.6389948 0.000000 23.67415 16.45596 15.43859 12.39681 12.43397 0.6418768 0.6418768 0.6418768 0.3396158 0.3958754 0.6418768 0.6418768 0.000000 24.00874 16.52632 15.52889 12.48753 12.52629 0.6442058 0.6442058 0.6442058 0.3404280 0.3965742 0.6442058 0.6442058 0.000000 24.27819 16.58279 15.60326 12.56314 12.60347 0.6463798 0.6463798 0.6463798 0.3411753 0.3971701 0.6463798 0.6463798 0.000000 24.50286 16.63032 15.66852 12.63033 12.67387 0.6483324 0.6483324 0.6483324 0.3417956 0.3976783 0.6483324 0.6483324 0.000000 24.70633 16.67320 15.72567 12.69065 12.73729 0.6500168 0.6500168 0.6500168 0.3423937 0.3982105 0.6500168 0.6500168 0.000000 24.94640 16.71178 15.77609 12.74723 12.79529 0.6516286 0.6516286 0.6516286 0.3429568 0.3986138 0.6516286 0.6516286 0.000000 25.13450 16.74571 15.82415 12.79898 12.84846 0.6530460 0.6530460 0.6530460 0.3434619 0.3990367 0.6530460 0.6530460 0.000000 25.30001 16.77424 15.86937 12.84743 12.89988 0.6545094 0.6545094 0.6545094 0.3438798 0.3994347 0.6545094 0.6545094 0.000000 25.46301 16.80472 15.91100 12.89370 12.94600 0.6557739 0.6557739 0.6557739 0.3443215 0.3997604 0.6557739 0.6557739 0.000000 25.61802 16.83148 15.94994 12.93556 13.01288 0.6570571 0.6570571 0.6570571 0.3447493 0.4001461 0.6570571 0.6570571 0.000000 25.76041 16.85717 15.98691 12.99471 13.04393 0.6581959 0.6581959 0.6581959 0.3451242 0.4004784 0.6581959 0.6581959 0.000000 25.89957 16.88023 16.02243 13.04180 13.08716 0.6592098 0.6592098 0.6592098 0.3455007 0.4007642 0.6592098 0.6592098 0.000000 26.02981 16.90496 16.05510 13.06311 13.13391 0.6602989 0.6602989 0.6602989 0.3458370 0.4010695 0.6602989 0.6602989 0.000000 26.15741 16.92767 16.08895 13.10416 13.16991 0.6612911 0.6612911 0.6612911 0.3461850 0.4013385 0.6612911 0.6612911 0.000000 26.27917 16.94861 16.12059 13.14319 13.19499 0.6622888 0.6622888 0.6622888 0.3465014 0.4016351 0.6622888 0.6622888 0.000000 26.39482 16.96802 16.15028 13.16154 13.23466 0.6632095 0.6632095 0.6632095 0.3468363 0.4018429 0.6632095 0.6632095 0.000000 26.50499 16.98605 16.17823 13.19633 13.27274 0.6641517 0.6641517 0.6641517 0.3470991 0.4021437 0.6641517 0.6641517 0.000000 26.61482 17.00663 16.20822 13.23270 13.29578 0.6650312 0.6650312 0.6650312 0.3473855 0.4023610 0.6650312 0.6650312 0.000000 26.71534 17.02233 16.23321 13.26778 13.32563 0.6658536 0.6658536 0.6658536 0.3476510 0.4025568 0.6658536 0.6658536 0.000000 26.82453 17.04076 16.26050 13.29867 13.35603 0.6666242 0.6666242 0.6666242 0.3479437 0.4027919 0.6666242 0.6666242 0.000000 26.91730 17.05827 16.28662 13.30968 13.39135 0.6674372 0.6674372 0.6674372 0.3481725 0.4030087 0.6674372 0.6674372 0.000000 27.01134 17.07125 16.30813 13.34083 13.42271 0.6682063 0.6682063 0.6682063 0.3484315 0.4032086 0.6682063 0.6682063 0.000000 27.10373 17.08714 16.33574 13.37107 13.45175 0.6689349 0.6689349 0.6689349 0.3486755 0.4034516 0.6689349 0.6689349 0.000000 27.19324 17.10233 16.35540 13.39749 13.46126 0.6696262 0.6696262 0.6696262 0.3489516 0.4036214 0.6696262 0.6696262 0.000000 27.28010 17.11687 16.38126 13.42916 13.49247 0.6703719 0.6703719 0.6703719 0.3491230 0.4038363 0.6703719 0.6703719 0.000000 27.36448 17.13441 16.40284 13.44428 13.51700 0.6710852 0.6710852 0.6710852 0.3493743 0.4039803 0.6710852 0.6710852 0.000000 27.44658 17.14777 16.42371 13.45990 13.54685 0.6717683 0.6717683 0.6717683 0.3496143 0.4042291 0.6717683 0.6717683 0.000000 27.51875 17.16061 16.44391 13.48601 13.57311 0.6724231 0.6724231 0.6724231 0.3497981 0.4043504 0.6724231 0.6724231 0.000000 27.59658 17.17296 16.46349 13.51154 13.59881 0.6730515 0.6730515 0.6730515 0.3500178 0.4045776 0.6730515 0.6730515 0.000000 27.67253 17.18487 16.48598 13.53356 13.60311 0.6736550 0.6736550 0.6736550 0.3502283 0.4047370 0.6736550 0.6736550 0.000000 27.74674 17.19991 16.50443 13.55806 13.62725 0.6742353 0.6742353 0.6742353 0.3504301 0.4048872 0.6742353 0.6742353 0.000000 27.81931 17.21099 16.52238 13.58211 13.65092 0.6747937 0.6747937 0.6747937 0.3506237 0.4050866 0.6747937 0.6747937 0.000000 27.88408 17.22523 16.54332 13.60572 13.67414 0.6755075 0.6755075 0.6755075 0.3508096 0.4052199 0.6755075 0.6755075 0.000000 27.95365 17.23558 16.56033 13.60796 13.69694 0.6760254 0.6760254 0.6760254 0.3509882 0.4053456 0.6760254 0.6760254 0.000000 28.01449 17.24560 16.57691 13.62732 13.71637 0.6765248 0.6765248 0.6765248 0.3512051 0.4055216 0.6765248 0.6765248 0.000000 28.08132 17.27529 16.59656 13.64927 13.74141 0.6771823 0.6771823 0.6771823 0.3513701 0.4056905 0.6771823 0.6771823 0.000000 28.14068 17.28859 16.61235 13.66789 13.76012 0.6776474 0.6776474 0.6776474 0.3515290 0.4058527 0.6776474 0.6776474 0.000000 28.19887 17.30159 16.63124 13.68916 13.78451 0.6781843 0.6781843 0.6781843 0.3516820 0.4060085 0.6781843 0.6781843 0.000000 28.25598 17.31052 16.64633 13.71011 13.78475 0.6787060 0.6787060 0.6787060 0.3519193 0.4061010 0.6787060 0.6787060 0.000000 28.31204 17.32298 16.66455 13.72778 13.80212 0.6793007 0.6793007 0.6793007 0.3520612 0.4062450 0.6793007 0.6793007 0.000000 28.37337 17.33520 16.67899 13.74516 13.81919 0.6797067 0.6797067 0.6797067 0.3521980 0.4063835 0.6797067 0.6797067 0.000000 28.42751 17.34363 16.69313 13.76527 13.83896 0.6802743 0.6802743 0.6802743 0.3523748 0.4065167 0.6802743 0.6802743 0.000000 28.48076 17.35540 16.71045 13.78514 13.85847 0.6806548 0.6806548 0.6806548 0.3525468 0.4067018 0.6806548 0.6806548 0.000000 28.52621 17.36695 16.72404 13.78098 13.87475 0.6811976 0.6811976 0.6811976 0.3526695 0.4068251 0.6811976 0.6811976 0.000000 28.57776 17.37476 16.73737 13.79997 13.89079 0.6817288 0.6817288 0.6817288 0.3528774 0.4069437 0.6817288 0.6817288 0.000000 28.62854 17.38592 16.75390 13.81576 13.90960 0.6820747 0.6820747 0.6820747 0.3529917 0.4070579 0.6820747 0.6820747 0.000000 1.582519 4.241004 4.956841 5.687154 6.066673 0.6245922 0.6245922 0.6245922 0.3328259 0.3900424 0.6245922 0.6245922 0.000000 20.54439 15.84649 14.74593 11.82475 11.87184 0.6311334 0.6311334 0.6311334 0.3357834 0.3926703 0.6311334 0.6311334 0.000000 22.51738 16.21008 15.14210 12.13009 12.16563 0.6357015 0.6357015 0.6357015 0.3374482 0.3940638 0.6357015 0.6357015 0.000000 23.23178 16.36211 15.32211 12.28703 12.32244 0.6391670 0.6391670 0.6391670 0.3386743 0.3950662 0.6391670 0.6391670 0.000000 23.67851 16.45583 15.43909 12.39797 12.43515 0.6419956 0.6419956 0.6419956 0.3396752 0.3958952 0.6419956 0.6419956 0.000000 24.01348 16.52657 15.52977 12.48904 12.52780 0.6443641 0.6443641 0.6443641 0.3405042 0.3966128 0.6443641 0.6443641 0.000000 24.28327 16.58581 15.60668 12.56667 12.60698 0.6465706 0.6465706 0.6465706 0.3412653 0.3972245 0.6465706 0.6465706 0.000000 24.50823 16.63348 15.66997 12.63406 12.67757 0.6484542 0.6484542 0.6484542 0.3418972 0.3977463 0.6484542 0.6484542 0.000000 24.71196 16.67419 15.72733 12.69455 12.74116 0.6502596 0.6502596 0.6502596 0.3425053 0.3982903 0.6502596 0.6502596 0.000000 24.94530 16.71295 15.77999 12.75129 12.79775 0.6517974 0.6517974 0.6517974 0.3430770 0.3987042 0.6517974 0.6517974 0.000000 25.13732 16.74704 15.82818 12.80319 12.85266 0.6533290 0.6533290 0.6533290 0.3435414 0.3991365 0.6533290 0.6533290 0.000000 25.30659 16.77784 15.87353 12.85178 12.90421 0.6548092 0.6548092 0.6548092 0.3440147 0.3995429 0.6548092 0.6548092 0.000000 25.46982 16.80632 15.91335 12.89818 12.95047 0.6560892 0.6560892 0.6560892 0.3444626 0.3998764 0.6560892 0.6560892 0.000000 25.62505 16.83524 15.95243 12.94016 13.01780 0.6572935 0.6572935 0.6572935 0.3448483 0.4002085 0.6572935 0.6572935 0.000000 25.76764 16.86102 15.99141 12.99976 13.04890 0.6585380 0.6585380 0.6585380 0.3452761 0.4005475 0.6585380 0.6585380 0.000000 25.90700 16.88415 16.02703 13.04702 13.09536 0.6595641 0.6595641 0.6595641 0.3456573 0.4008396 0.6595641 0.6595641 0.000000 26.04397 16.90895 16.05980 13.06833 13.13919 0.6606641 0.6606641 0.6606641 0.3459981 0.4011507 0.6606641 0.6606641 0.000000 26.16518 16.92978 16.09374 13.10953 13.16185 0.6616667 0.6616667 0.6616667 0.3463031 0.4014252 0.6616667 0.6616667 0.000000 26.28711 16.94888 16.12547 13.15178 13.20344 0.6626740 0.6626740 0.6626740 0.3466704 0.4017268 0.6626740 0.6626740 0.000000 26.40935 16.97219 16.15524 13.17007 13.24324 0.6636037 0.6636037 0.6636037 0.3469622 0.4019990 0.6636037 0.6636037 0.000000 26.51807 16.99029 16.18328 13.20498 13.28145 0.6645543 0.6645543 0.6645543 0.3472750 0.4022446 0.6645543 0.6645543 0.000000 26.62317 17.00716 16.21334 13.24147 13.29970 0.6654417 0.6654417 0.6654417 0.3475181 0.4024663 0.6654417 0.6654417 0.000000 26.73018 17.02667 16.23841 13.27363 13.33139 0.6662717 0.6662717 0.6662717 0.3478331 0.4027253 0.6662717 0.6662717 0.000000 26.83312 17.04515 16.26576 13.30377 13.36488 0.6670496 0.6670496 0.6670496 0.3481286 0.4029641 0.6670496 0.6670496 0.000000 26.93235 17.06270 16.29195 13.31859 13.39731 0.6679590 0.6679590 0.6679590 0.3483602 0.4031844 0.6679590 0.6679590 0.000000 27.02645 17.07573 16.31707 13.34983 13.43178 0.6686448 0.6686448 0.6686448 0.3486217 0.4033877 0.6686448 0.6686448 0.000000 27.11262 17.09167 16.34120 13.37717 13.44123 0.6694689 0.6694689 0.6694689 0.3488681 0.4035753 0.6694689 0.6694689 0.000000 27.20852 17.10690 16.36444 13.40969 13.47330 0.6700768 0.6700768 0.6700768 0.3491006 0.4037483 0.6700768 0.6700768 0.000000 27.29545 17.12148 16.38684 13.43544 13.49863 0.6708282 0.6708282 0.6708282 0.3493203 0.4039663 0.6708282 0.6708282 0.000000 27.37992 17.13906 16.40848 13.44533 13.52922 0.6715468 0.6715468 0.6715468 0.3495736 0.4041715 0.6715468 0.6715468 0.000000 27.45441 17.15245 16.42940 13.46916 13.55616 0.6722350 0.6722350 0.6722350 0.3498156 0.4043648 0.6722350 0.6722350 0.000000 27.54056 17.16533 16.45314 13.49534 13.58250 0.6728947 0.6728947 0.6728947 0.3500015 0.4045469 0.6728947 0.6728947 0.000000 27.61217 17.17772 16.47277 13.52095 13.61130 0.6735278 0.6735278 0.6735278 0.3502230 0.4047186 0.6735278 0.6735278 0.000000 27.68818 17.19322 16.49181 13.54603 13.61542 0.6741360 0.6741360 0.6741360 0.3503899 0.4048805 0.6741360 0.6741360 0.000000 27.76244 17.20473 16.51379 13.56762 13.63666 0.6747207 0.6747207 0.6747207 0.3505935 0.4050910 0.6747207 0.6747207 0.000000 27.82879 17.21584 16.53178 13.59174 13.66336 0.6754595 0.6754595 0.6754595 0.3508341 0.4052349 0.6754595 0.6754595 0.000000 27.90613 17.23011 16.54928 13.61205 13.68367 0.6760011 0.6760011 0.6760011 0.3510216 0.4053706 0.6760011 0.6760011 0.000000 27.96844 17.24049 16.56980 13.61751 13.70653 0.6765230 0.6765230 0.6765230 0.3512018 0.4055561 0.6765230 0.6765230 0.000000 28.03034 17.27037 16.58642 13.63693 13.72901 0.6772018 0.6772018 0.6772018 0.3514202 0.4057340 0.6772018 0.6772018 0.000000 28.09095 17.28041 16.60264 13.65893 13.75112 0.6776873 0.6776873 0.6776873 0.3515867 0.4058475 0.6776873 0.6776873 0.000000 28.15658 17.29374 16.62193 13.68059 13.77289 0.6782436 0.6782436 0.6782436 0.3517471 0.4060117 0.6782436 0.6782436 0.000000 28.22107 17.30654 16.64085 13.69893 13.78015 0.6787839 0.6787839 0.6787839 0.3519014 0.4061694 0.6787839 0.6787839 0.000000 28.27819 17.31572 16.65597 13.71994 13.79441 0.6793089 0.6793089 0.6793089 0.3521400 0.4062639 0.6793089 0.6793089 0.000000 28.33428 17.32821 16.67075 13.74065 13.81479 0.6798193 0.6798193 0.6798193 0.3522832 0.4064097 0.6798193 0.6798193 0.000000 28.38938 17.34045 16.68868 13.75809 13.83191 0.6804032 0.6804032 0.6804032 0.3524213 0.4065500 0.6804032 0.6804032 0.000000 28.44354 17.35246 16.70286 13.77526 13.84875 0.6807992 0.6807992 0.6807992 0.3526441 0.4066850 0.6807992 0.6807992 0.000000 28.49681 17.36425 16.71674 13.77902 13.86830 0.6813569 0.6813569 0.6813569 0.3527725 0.4068717 0.6813569 0.6813569 0.000000 28.54852 17.37228 16.73381 13.79084 13.88761 0.6819025 0.6819025 0.6819025 0.3529412 0.4069966 0.6819025 0.6819025 0.000000 28.60008 17.38366 16.75062 13.80987 13.90369 0.6822622 0.6822622 0.6822622 0.3531054 0.4071169 0.6822622 0.6822622 0.000000 28.65087 17.39484 16.76372 13.82569 13.92255 0.6827849 0.6827849 0.6827849 0.3532209 0.4072894 0.6827849 0.6827849 0.000000 1.582774 4.242013 4.957839 5.688169 6.072820 0.6246025 0.6246025 0.6246025 0.3328324 0.3900476 0.6246025 0.6246025 0.000000 20.54716 15.84824 14.74785 11.82664 11.87369 0.6311545 0.6311545 0.6311545 0.3358021 0.3927274 0.6311545 0.6311545 0.000000 22.52066 16.21218 15.14445 12.13008 12.16795 0.6358056 0.6358056 0.6358056 0.3375068 0.3940933 0.6358056 0.6358056 0.000000 23.23554 16.36138 15.32201 12.28971 12.32509 0.6392285 0.6392285 0.6392285 0.3387600 0.3951237 0.6392285 0.6392285 0.000000 23.68270 16.45840 15.44200 12.40092 12.43808 0.6421046 0.6421046 0.6421046 0.3397809 0.3959747 0.6421046 0.6421046 0.000000 24.01391 16.52932 15.53288 12.49041 12.53096 0.6446102 0.6446102 0.6446102 0.3405755 0.3966469 0.6446102 0.6446102 0.000000 24.28422 16.58623 15.60774 12.56832 12.61035 0.6467499 0.6467499 0.6467499 0.3413501 0.3972742 0.6467499 0.6467499 0.000000 24.51337 16.63415 15.67127 12.63763 12.68112 0.6486607 0.6486607 0.6486607 0.3419933 0.3978092 0.6486607 0.6486607 0.000000 24.71735 16.67735 15.73094 12.69829 12.74489 0.6504894 0.6504894 0.6504894 0.3426112 0.3983648 0.6504894 0.6504894 0.000000 24.95110 16.71399 15.78374 12.75520 12.80163 0.6520481 0.6520481 0.6520481 0.3431428 0.3987890 0.6520481 0.6520481 0.000000 25.13988 16.74824 15.83206 12.80724 12.85669 0.6535981 0.6535981 0.6535981 0.3436634 0.3992304 0.6535981 0.6535981 0.000000 25.31290 16.78129 15.87558 12.85596 12.90838 0.6550949 0.6550949 0.6550949 0.3441434 0.3995841 0.6550949 0.6550949 0.000000 25.47636 16.80986 15.91746 12.90250 12.95477 0.6563900 0.6563900 0.6563900 0.3445974 0.3999862 0.6563900 0.6563900 0.000000 25.63180 16.83886 15.95666 12.94459 13.02255 0.6576080 0.6576080 0.6576080 0.3449887 0.4003253 0.6576080 0.6576080 0.000000 25.77459 16.86471 15.99573 13.00777 13.05370 0.6588651 0.6588651 0.6588651 0.3454215 0.4006707 0.6588651 0.6588651 0.000000 25.91413 16.88791 16.03146 13.05205 13.10031 0.6599029 0.6599029 0.6599029 0.3457601 0.4009687 0.6599029 0.6599029 0.000000 26.05129 16.91082 16.06432 13.07646 13.14428 0.6610137 0.6610137 0.6610137 0.3461525 0.4012853 0.6610137 0.6610137 0.000000 26.17264 16.93174 16.09836 13.11778 13.16998 0.6620264 0.6620264 0.6620264 0.3464616 0.4015649 0.6620264 0.6620264 0.000000 26.29473 16.95285 16.13017 13.15709 13.20867 0.6630430 0.6630430 0.6630430 0.3468325 0.4018117 0.6630430 0.6630430 0.000000 26.41712 16.97431 16.16002 13.17538 13.24860 0.6639816 0.6639816 0.6639816 0.3471278 0.4020886 0.6639816 0.6639816 0.000000 26.52596 16.99437 16.18814 13.21343 13.28997 0.6649405 0.6649405 0.6649405 0.3473974 0.4023387 0.6649405 0.6649405 0.000000 26.63758 17.01130 16.21827 13.24700 13.30516 0.6658357 0.6658357 0.6658357 0.3476903 0.4026237 0.6658357 0.6658357 0.000000 26.74469 17.03086 16.24341 13.28232 13.33994 0.6666731 0.6666731 0.6666731 0.3480081 0.4028275 0.6666731 0.6666731 0.000000 26.84138 17.04939 16.27084 13.29497 13.37354 0.6674580 0.6674580 0.6674580 0.3482602 0.4030700 0.6674580 0.6674580 0.000000 26.94706 17.06330 16.29709 13.32730 13.40607 0.6683739 0.6683739 0.6683739 0.3485406 0.4032939 0.6683739 0.6683739 0.000000 27.03489 17.08006 16.32227 13.35563 13.44064 0.6690662 0.6690662 0.6690662 0.3488046 0.4035006 0.6690662 0.6690662 0.000000 27.12746 17.09604 16.34647 13.38606 13.45298 0.6698962 0.6698962 0.6698962 0.3490534 0.4037500 0.6698962 0.6698962 0.000000 27.21714 17.11131 16.36976 13.41567 13.47917 0.6706882 0.6706882 0.6706882 0.3492882 0.4039262 0.6706882 0.6706882 0.000000 27.31045 17.12955 16.39222 13.44452 13.51055 0.6712668 0.6712668 0.6712668 0.3495100 0.4041470 0.6712668 0.6712668 0.000000 27.38869 17.14354 16.41741 13.45430 13.53823 0.6719906 0.6719906 0.6719906 0.3497654 0.4043549 0.6719906 0.6719906 0.000000 27.46951 17.15697 16.43838 13.47820 13.56526 0.6726838 0.6726838 0.6726838 0.3500094 0.4044928 0.6726838 0.6726838 0.000000 27.54945 17.16988 16.45867 13.50446 13.59168 0.6733484 0.6733484 0.6733484 0.3501972 0.4046776 0.6733484 0.6733484 0.000000 27.62739 17.18231 16.48183 13.53014 13.60416 0.6739862 0.6739862 0.6739862 0.3504206 0.4048519 0.6739862 0.6739862 0.000000 27.70345 17.19784 16.50092 13.55230 13.62454 0.6746871 0.6746871 0.6746871 0.3506346 0.4050741 0.6746871 0.6746871 0.000000 27.77776 17.20938 16.51946 13.57995 13.64881 0.6753641 0.6753641 0.6753641 0.3507946 0.4052291 0.6753641 0.6753641 0.000000 27.85042 17.22052 16.54097 13.60114 13.66963 0.6759307 0.6759307 0.6759307 0.3510368 0.4053753 0.6759307 0.6759307 0.000000 27.91527 17.23481 16.55851 13.60400 13.69595 0.6764763 0.6764763 0.6764763 0.3512259 0.4055708 0.6764763 0.6764763 0.000000 27.98387 17.24522 16.57559 13.62684 13.71589 0.6771777 0.6771777 0.6771777 0.3514528 0.4057009 0.6771777 0.6771777 0.000000 28.05206 17.27528 16.59572 13.64928 13.74143 0.6776846 0.6776846 0.6776846 0.3516274 0.4058809 0.6776846 0.6776846 0.000000 28.11270 17.28893 16.61197 13.66837 13.76060 0.6782613 0.6782613 0.6782613 0.3517955 0.4059965 0.6782613 0.6782613 0.000000 28.17211 17.30228 16.63129 13.69008 13.78544 0.6788210 0.6788210 0.6788210 0.3519572 0.4061626 0.6788210 0.6788210 0.000000 28.23037 17.31153 16.64678 13.71146 13.78608 0.6793646 0.6793646 0.6793646 0.3521579 0.4063222 0.6793646 0.6793646 0.000000 28.29377 17.32430 16.66539 13.72954 13.80384 0.6798928 0.6798928 0.6798928 0.3523527 0.4064757 0.6798928 0.6798928 0.000000 28.35614 17.33681 16.68020 13.75031 13.82427 0.6804936 0.6804936 0.6804936 0.3524973 0.4066233 0.6804936 0.6804936 0.000000 28.41126 17.34552 16.69470 13.77080 13.84440 0.6809059 0.6809059 0.6809059 0.3526814 0.4067652 0.6809059 0.6809059 0.000000 28.46544 17.35756 16.71235 13.78802 13.86128 0.6814792 0.6814792 0.6814792 0.3528605 0.4069018 0.6814792 0.6814792 0.000000 28.51804 17.36937 16.72972 13.78710 13.88088 0.6819526 0.6819526 0.6819526 0.3529902 0.4070333 0.6819526 0.6819526 0.000000 28.56418 17.38097 16.74336 13.80344 13.90024 0.6824138 0.6824138 0.6824138 0.3532045 0.4071599 0.6824138 0.6824138 0.000000 28.61576 17.39236 16.75673 13.81953 13.91637 0.6829503 0.6829503 0.6829503 0.3533252 0.4072817 0.6829503 0.6829503 0.000000 28.66032 17.40003 16.77331 13.83837 13.93226 0.6834755 0.6834755 0.6834755 0.3534864 0.4074557 0.6834755 0.6834755 0.000000 1.583017 4.245860 4.961697 5.691673 6.073808 0.6246124 0.6246124 0.6246124 0.3328386 0.3900526 0.6246124 0.6246124 0.000000 20.54981 15.84992 14.74970 11.82548 11.87547 0.6312788 0.6312788 0.6312788 0.3358186 0.3927171 0.6312788 0.6312788 0.000000 22.52379 16.21061 15.14353 12.13234 12.16790 0.6357987 0.6357987 0.6357987 0.3375622 0.3941200 0.6357987 0.6357987 0.000000 23.23916 16.36365 15.32457 12.29022 12.32562 0.6393837 0.6393837 0.6393837 0.3387901 0.3951779 0.6393837 0.6393837 0.000000 23.68672 16.46088 15.44228 12.40377 12.44089 0.6422043 0.6422043 0.6422043 0.3398314 0.3959866 0.6422043 0.6422043 0.000000 24.01827 16.53197 15.53587 12.49348 12.53223 0.6447472 0.6447472 0.6447472 0.3406924 0.3967400 0.6447472 0.6447472 0.000000 24.28498 16.58655 15.60867 12.56985 12.61188 0.6469180 0.6469180 0.6469180 0.3414299 0.3973192 0.6469180 0.6469180 0.000000 24.51832 16.63707 15.67460 12.63771 12.68123 0.6489519 0.6489519 0.6489519 0.3420843 0.3979295 0.6489519 0.6489519 0.000000 24.71531 16.68038 15.73441 12.70190 12.74524 0.6507072 0.6507072 0.6507072 0.3427117 0.3984341 0.6507072 0.6507072 0.000000 24.95668 16.71713 15.78531 12.75735 12.80538 0.6522862 0.6522862 0.6522862 0.3432517 0.3988685 0.6522862 0.6522862 0.000000 25.14572 16.75147 15.83380 12.81114 12.86058 0.6538542 0.6538542 0.6538542 0.3437796 0.3993189 0.6538542 0.6538542 0.000000 25.31897 16.78251 15.87748 12.86000 12.91240 0.6553671 0.6553671 0.6553671 0.3442663 0.3996808 0.6553671 0.6553671 0.000000 25.48265 16.81327 15.92143 12.90665 12.95891 0.6566769 0.6566769 0.6566769 0.3447262 0.4000902 0.6566769 0.6566769 0.000000 25.63829 16.83827 15.96073 12.94887 13.02713 0.6579085 0.6579085 0.6579085 0.3451230 0.4004361 0.6579085 0.6579085 0.000000 25.78791 16.86426 15.99990 13.01246 13.05832 0.6591779 0.6591779 0.6591779 0.3455607 0.4007877 0.6591779 0.6591779 0.000000 25.92099 16.89155 16.03573 13.04011 13.10507 0.6602272 0.6602272 0.6602272 0.3459040 0.4010916 0.6602272 0.6602272 0.000000 26.05832 16.91256 16.06868 13.08132 13.15228 0.6613486 0.6613486 0.6613486 0.3463005 0.4014136 0.6613486 0.6613486 0.000000 26.18632 16.93550 16.10280 13.12278 13.17491 0.6623711 0.6623711 0.6623711 0.3466136 0.4016982 0.6623711 0.6623711 0.000000 26.30853 16.95667 16.13470 13.16530 13.21675 0.6634878 0.6634878 0.6634878 0.3469414 0.4019498 0.6634878 0.6634878 0.000000 26.42459 16.97629 16.16463 13.18354 13.25680 0.6643441 0.6643441 0.6643441 0.3472403 0.4022311 0.6643441 0.6643441 0.000000 26.53355 16.99830 16.19282 13.21867 13.29526 0.6653110 0.6653110 0.6653110 0.3475598 0.4024853 0.6653110 0.6653110 0.000000 26.64529 17.01528 16.22303 13.25235 13.31043 0.6662139 0.6662139 0.6662139 0.3478556 0.4027743 0.6662139 0.6662139 0.000000 26.75252 17.03489 16.25181 13.29081 13.34831 0.6670586 0.6670586 0.6670586 0.3481301 0.4029818 0.6670586 0.6670586 0.000000 26.85567 17.05347 16.27574 13.30339 13.38201 0.6679401 0.6679401 0.6679401 0.3484311 0.4032279 0.6679401 0.6679401 0.000000 26.95510 17.06743 16.30205 13.33281 13.41464 0.6687727 0.6687727 0.6687727 0.3487141 0.4034552 0.6687727 0.6687727 0.000000 27.04933 17.08423 16.32730 13.36423 13.44932 0.6695606 0.6695606 0.6695606 0.3489346 0.4036652 0.6695606 0.6695606 0.000000 27.14198 17.10026 16.35155 13.39476 13.45858 0.6703071 0.6703071 0.6703071 0.3492317 0.4038592 0.6703071 0.6703071 0.000000 27.23174 17.11557 16.37841 13.42446 13.48783 0.6711046 0.6711046 0.6711046 0.3494688 0.4040968 0.6711046 0.6711046 0.000000 27.31882 17.13384 16.40092 13.44523 13.51630 0.6718664 0.6718664 0.6718664 0.3496927 0.4042622 0.6718664 0.6718664 0.000000 27.40972 17.14787 16.42266 13.46009 13.54705 0.6725064 0.6725064 0.6725064 0.3499501 0.4044729 0.6725064 0.6725064 0.000000 27.48428 17.16133 16.44367 13.48704 13.57415 0.6732044 0.6732044 0.6732044 0.3501960 0.4046715 0.6732044 0.6732044 0.000000 27.56428 17.17428 16.46402 13.51337 13.60065 0.6739619 0.6739619 0.6739619 0.3503858 0.4048589 0.6739619 0.6739619 0.000000 27.64227 17.18674 16.48722 13.53913 13.60861 0.6746040 0.6746040 0.6746040 0.3506109 0.4050356 0.6746040 0.6746040 0.000000 27.71838 17.20230 16.50635 13.56435 13.63346 0.6752208 0.6752208 0.6752208 0.3508267 0.4052023 0.6752208 0.6752208 0.000000 27.79274 17.21387 16.52841 13.58908 13.65779 0.6758139 0.6758139 0.6758139 0.3510336 0.4053597 0.6758139 0.6758139 0.000000 27.86544 17.22857 16.54648 13.61335 13.68164 0.6763846 0.6763846 0.6763846 0.3512321 0.4055658 0.6763846 0.6763846 0.000000 27.93660 17.23936 16.56753 13.61603 13.70505 0.6771097 0.6771097 0.6771097 0.3514228 0.4057059 0.6771097 0.6771097 0.000000 27.99894 17.26960 16.58465 13.63596 13.72804 0.6776392 0.6776392 0.6776392 0.3516511 0.4058955 0.6776392 0.6776392 0.000000 28.06091 17.28002 16.60134 13.65845 13.75064 0.6782374 0.6782374 0.6782374 0.3518273 0.4060202 0.6782374 0.6782374 0.000000 28.12784 17.29370 16.62109 13.68058 13.77287 0.6788175 0.6788175 0.6788175 0.3519967 0.4061950 0.6788175 0.6788175 0.000000 28.19354 17.30684 16.64044 13.69936 13.78539 0.6793806 0.6793806 0.6793806 0.3521599 0.4063629 0.6793806 0.6793806 0.000000 28.25182 17.31635 16.65597 13.72079 13.79525 0.6799273 0.6799273 0.6799273 0.3524067 0.4065244 0.6799273 0.6799273 0.000000 28.30900 17.32914 16.67114 13.74191 13.81603 0.6804587 0.6804587 0.6804587 0.3525579 0.4066796 0.6804587 0.6804587 0.000000 28.36513 17.34168 16.68944 13.75974 13.83352 0.6809752 0.6809752 0.6809752 0.3527038 0.4068288 0.6809752 0.6809752 0.000000 28.42027 17.35397 16.70397 13.78029 13.85370 0.6815648 0.6815648 0.6815648 0.3528891 0.4069724 0.6815648 0.6815648 0.000000 28.48072 17.36603 16.72165 13.77983 13.87360 0.6819668 0.6819668 0.6819668 0.3530693 0.4071107 0.6819668 0.6819668 0.000000 28.52708 17.37431 16.73558 13.79943 13.89026 0.6825300 0.6825300 0.6825300 0.3532001 0.4072437 0.6825300 0.6825300 0.000000 28.57948 17.38593 16.75270 13.81581 13.90966 0.6830809 0.6830809 0.6830809 0.3534155 0.4073718 0.6830809 0.6830809 0.000000 28.63108 17.39735 16.76609 13.83195 13.92883 0.6835330 0.6835330 0.6835330 0.3535374 0.4074952 0.6835330 0.6835330 0.000000 28.68189 17.40858 16.77924 13.84785 13.94477 0.6839738 0.6839738 0.6839738 0.3537441 0.4076140 0.6839738 0.6839738 0.000000 1.583251 4.246789 4.962615 5.695138 6.074756 0.6246219 0.6246219 0.6246219 0.3328446 0.3900574 0.6246219 0.6246219 0.000000 20.55236 15.85153 14.75148 11.82722 11.87718 0.6312914 0.6312914 0.6312914 0.3358331 0.3927050 0.6312914 0.6312914 0.000000 22.52681 16.21255 15.14570 12.13216 12.17004 0.6358898 0.6358898 0.6358898 0.3375620 0.3941442 0.6358898 0.6358898 0.000000 23.24263 16.36584 15.32702 12.29063 12.32808 0.6394293 0.6394293 0.6394293 0.3388682 0.3952288 0.6394293 0.6394293 0.000000 23.69058 16.46046 15.44496 12.40459 12.44172 0.6423953 0.6423953 0.6423953 0.3398779 0.3960584 0.6423953 0.6423953 0.000000 24.01834 16.53190 15.53640 12.49643 12.53338 0.6448745 0.6448745 0.6448745 0.3407547 0.3967658 0.6448745 0.6448745 0.000000 24.28947 16.58924 15.61172 12.57299 12.61330 0.6470758 0.6470758 0.6470758 0.3415051 0.3974225 0.6470758 0.6470758 0.000000 24.52307 16.63751 15.67780 12.64102 12.68453 0.6491355 0.6491355 0.6491355 0.3421704 0.3979829 0.6491355 0.6491355 0.000000 24.72030 16.68102 15.73567 12.70210 12.74870 0.6509134 0.6509134 0.6509134 0.3428071 0.3984987 0.6509134 0.6509134 0.000000 24.96204 16.72016 15.78676 12.75936 12.80898 0.6525123 0.6525123 0.6525123 0.3433553 0.3989429 0.6525123 0.6525123 0.000000 25.15133 16.75459 15.83542 12.81331 12.86432 0.6540979 0.6540979 0.6540979 0.3438905 0.3994021 0.6540979 0.6540979 0.000000 25.32480 16.78360 15.88119 12.86388 12.91627 0.6556266 0.6556266 0.6556266 0.3443836 0.3997720 0.6556266 0.6556266 0.000000 25.48869 16.81449 15.92525 12.91066 12.96290 0.6569509 0.6569509 0.6569509 0.3448494 0.4001887 0.6569509 0.6569509 0.000000 25.64454 16.84164 15.96465 12.95298 13.03469 0.6581957 0.6581957 0.6581957 0.3452515 0.4005412 0.6581957 0.6581957 0.000000 25.79433 16.86770 16.00392 13.01700 13.06278 0.6594771 0.6594771 0.6594771 0.3456467 0.4008387 0.6594771 0.6594771 0.000000 25.93418 16.89307 16.03984 13.04518 13.10968 0.6605377 0.6605377 0.6605377 0.3460418 0.4012085 0.6605377 0.6605377 0.000000 26.06509 16.91613 16.07289 13.08602 13.15703 0.6616694 0.6616694 0.6616694 0.3463955 0.4015357 0.6616694 0.6616694 0.000000 26.19322 16.93913 16.10709 13.12761 13.18269 0.6627015 0.6627015 0.6627015 0.3467594 0.4018254 0.6627015 0.6627015 0.000000 26.31558 16.96036 16.13906 13.17027 13.22163 0.6638271 0.6638271 0.6638271 0.3470908 0.4020816 0.6638271 0.6638271 0.000000 26.43179 16.98003 16.16908 13.18849 13.26179 0.6647825 0.6647825 0.6647825 0.3473932 0.4023672 0.6647825 0.6647825 0.000000 26.54726 17.00209 16.19735 13.22373 13.30341 0.6656669 0.6656669 0.6656669 0.3477158 0.4026256 0.6656669 0.6656669 0.000000 26.65909 17.01913 16.22762 13.26055 13.31851 0.6665772 0.6665772 0.6665772 0.3480146 0.4028594 0.6665772 0.6665772 0.000000 26.76006 17.03879 16.25647 13.29609 13.35349 0.6674290 0.6674290 0.6674290 0.3482919 0.4030708 0.6674290 0.6674290 0.000000 26.86967 17.05741 16.28401 13.30863 13.39029 0.6684067 0.6684067 0.6684067 0.3485956 0.4033205 0.6684067 0.6684067 0.000000 26.96127 17.07141 16.30684 13.34114 13.42302 0.6691561 0.6691561 0.6691561 0.3488811 0.4035512 0.6691561 0.6691561 0.000000 27.06347 17.08826 16.33567 13.37265 13.44400 0.6700392 0.6700392 0.6700392 0.3491040 0.4037645 0.6700392 0.6700392 0.000000 27.14988 17.10433 16.35998 13.40327 13.46696 0.6707024 0.6707024 0.6707024 0.3494034 0.4040200 0.6707024 0.6707024 0.000000 27.24602 17.11968 16.38337 13.43306 13.49629 0.6715053 0.6715053 0.6715053 0.3496426 0.4042022 0.6715053 0.6715053 0.000000 27.33317 17.13798 16.40594 13.44097 13.52783 0.6722723 0.6722723 0.6722723 0.3498687 0.4044287 0.6722723 0.6722723 0.000000 27.41784 17.15204 16.42772 13.46867 13.55567 0.6730061 0.6730061 0.6730061 0.3501280 0.4045841 0.6730061 0.6730061 0.000000 27.49873 17.16555 16.45228 13.49569 13.58286 0.6737087 0.6737087 0.6737087 0.3503758 0.4048433 0.6737087 0.6737087 0.000000 27.57878 17.17853 16.47266 13.52209 13.61245 0.6743824 0.6743824 0.6743824 0.3506128 0.4049752 0.6743824 0.6743824 0.000000 27.65683 17.19458 16.49243 13.54792 13.61727 0.6750289 0.6750289 0.6750289 0.3507944 0.4052121 0.6750289 0.6750289 0.000000 27.73299 17.20660 16.51508 13.57322 13.64218 0.6756501 0.6756501 0.6756501 0.3510118 0.4053236 0.6756501 0.6756501 0.000000 27.80739 17.21820 16.53370 13.59802 13.66657 0.6763352 0.6763352 0.6763352 0.3512204 0.4055408 0.6763352 0.6763352 0.000000 27.88013 17.23293 16.55528 13.60300 13.69048 0.6769976 0.6769976 0.6769976 0.3514656 0.4056915 0.6769976 0.6769976 0.000000 27.94506 17.24375 16.57290 13.62489 13.71395 0.6775509 0.6775509 0.6775509 0.3516578 0.4058912 0.6775509 0.6775509 0.000000 28.01369 17.27415 16.59352 13.64785 13.73999 0.6782593 0.6782593 0.6782593 0.3518424 0.4060254 0.6782593 0.6782593 0.000000 28.08195 17.28818 16.61024 13.66743 13.75965 0.6787733 0.6787733 0.6787733 0.3520200 0.4062093 0.6787733 0.6787733 0.000000 28.14265 17.30188 16.62656 13.68960 13.78496 0.6793568 0.6793568 0.6793568 0.3521909 0.4063860 0.6793568 0.6793568 0.000000 28.20212 17.31147 16.64594 13.71142 13.78604 0.6799231 0.6799231 0.6799231 0.3524002 0.4065558 0.6799231 0.6799231 0.000000 28.26668 17.32457 16.66496 13.72992 13.80422 0.6804730 0.6804730 0.6804730 0.3526033 0.4066620 0.6804730 0.6804730 0.000000 28.33014 17.33738 16.68016 13.75109 13.82504 0.6810074 0.6810074 0.6810074 0.3527559 0.4068190 0.6810074 0.6810074 0.000000 28.38629 17.34639 16.69503 13.77198 13.84555 0.6816140 0.6816140 0.6816140 0.3529477 0.4069700 0.6816140 0.6816140 0.000000 28.44145 17.35870 16.71303 13.78191 13.86279 0.6820323 0.6820323 0.6820323 0.3531341 0.4071153 0.6820323 0.6820323 0.000000 28.49567 17.37078 16.73074 13.78896 13.88573 0.6826111 0.6826111 0.6826111 0.3532709 0.4072551 0.6826111 0.6826111 0.000000 28.54827 17.38264 16.74470 13.80563 13.90243 0.6831769 0.6831769 0.6831769 0.3534474 0.4073898 0.6831769 0.6831769 0.000000 28.60070 17.39428 16.75838 13.82501 13.91887 0.6835567 0.6835567 0.6835567 0.3536193 0.4075760 0.6835567 0.6835567 0.000000 28.65230 17.40218 16.77525 13.84416 13.94109 0.6840982 0.6840982 0.6840982 0.3537867 0.4077009 0.6840982 0.6840982 0.000000 28.70313 17.41307 16.79187 13.86010 13.95707 0.6846282 0.6846282 0.6846282 0.3539498 0.4078211 0.6846282 0.6846282 0.000000 1.583476 4.250561 4.963498 5.696037 6.078225 0.6246310 0.6246310 0.6246310 0.3328504 0.3900621 0.6246310 0.6246310 0.000000 20.55481 15.85308 14.75318 11.82889 11.87595 0.6313002 0.6313002 0.6313002 0.3358455 0.3927571 0.6313002 0.6313002 0.000000 22.52970 16.21441 15.14778 12.13425 12.17210 0.6359749 0.6359749 0.6359749 0.3376114 0.3941659 0.6359749 0.6359749 0.000000 23.24597 16.36485 15.32663 12.29302 12.32842 0.6395693 0.6395693 0.6395693 0.3388913 0.3952124 0.6395693 0.6395693 0.000000 23.68987 16.46275 15.44755 12.40531 12.44246 0.6424777 0.6424777 0.6424777 0.3399206 0.3960631 0.6424777 0.6424777 0.000000 24.02238 16.53435 15.53683 12.49746 12.53620 0.6450912 0.6450912 0.6450912 0.3408127 0.3968509 0.6450912 0.6450912 0.000000 24.29379 16.59183 15.61466 12.57602 12.61630 0.6473209 0.6473209 0.6473209 0.3415759 0.3974590 0.6473209 0.6473209 0.000000 24.52764 16.64022 15.67874 12.64422 12.68771 0.6493087 0.6493087 0.6493087 0.3422519 0.3980319 0.6493087 0.6493087 0.000000 24.72510 16.68157 15.73682 12.70545 12.75204 0.6511086 0.6511086 0.6511086 0.3428977 0.3985586 0.6511086 0.6511086 0.000000 24.96720 16.72087 15.79011 12.76286 12.81246 0.6528217 0.6528217 0.6528217 0.3434539 0.3990125 0.6528217 0.6528217 0.000000 25.15673 16.75545 15.83888 12.81536 12.86793 0.6543298 0.6543298 0.6543298 0.3439962 0.3994803 0.6543298 0.6543298 0.000000 25.33042 16.78670 15.88477 12.86764 12.92001 0.6558740 0.6558740 0.6558740 0.3444956 0.3998581 0.6558740 0.6558740 0.000000 25.50130 16.81560 15.92893 12.91453 12.96676 0.6572125 0.6572125 0.6572125 0.3449671 0.4002819 0.6572125 0.6572125 0.000000 25.65055 16.84488 15.96844 12.95696 13.03896 0.6585627 0.6585627 0.6585627 0.3453745 0.4006410 0.6585627 0.6585627 0.000000 25.80051 16.87101 16.00593 13.02138 13.06709 0.6597633 0.6597633 0.6597633 0.3457745 0.4009445 0.6597633 0.6597633 0.000000 25.94053 16.89448 16.04381 13.04960 13.11721 0.6609266 0.6609266 0.6609266 0.3461740 0.4013198 0.6609266 0.6609266 0.000000 26.07161 16.91958 16.07694 13.09364 13.16470 0.6619768 0.6619768 0.6619768 0.3465317 0.4015924 0.6619768 0.6619768 0.000000 26.19988 16.94264 16.11123 13.13536 13.18729 0.6631094 0.6631094 0.6631094 0.3468995 0.4018871 0.6631094 0.6631094 0.000000 26.32238 16.96392 16.14328 13.16993 13.22938 0.6641527 0.6641527 0.6641527 0.3472344 0.4022075 0.6641527 0.6641527 0.000000 26.44515 16.98365 16.17337 13.19327 13.26966 0.6651164 0.6651164 0.6651164 0.3475401 0.4024381 0.6651164 0.6651164 0.000000 26.55429 17.00576 16.20530 13.23165 13.30354 0.6660988 0.6660988 0.6660988 0.3478658 0.4027598 0.6660988 0.6660988 0.000000 26.66624 17.02285 16.23206 13.26859 13.32643 0.6670162 0.6670162 0.6670162 0.3481675 0.4029974 0.6670162 0.6670162 0.000000 26.77369 17.04255 16.26097 13.30424 13.36151 0.6679645 0.6679645 0.6679645 0.3484476 0.4032124 0.6679645 0.6679645 0.000000 26.87703 17.06121 16.28858 13.31670 13.39540 0.6687692 0.6687692 0.6687692 0.3487538 0.4034655 0.6687692 0.6687692 0.000000 26.97504 17.07527 16.31500 13.34929 13.43124 0.6695250 0.6695250 0.6695250 0.3490418 0.4036995 0.6695250 0.6695250 0.000000 27.07100 17.09216 16.34035 13.37790 13.44195 0.6704139 0.6704139 0.6704139 0.3493130 0.4039159 0.6704139 0.6704139 0.000000 27.17012 17.10826 16.36472 13.41160 13.47518 0.6712608 0.6712608 0.6712608 0.3495687 0.4041161 0.6712608 0.6712608 0.000000 27.25371 17.12727 16.38817 13.44148 13.50458 0.6718912 0.6718912 0.6718912 0.3498101 0.4043594 0.6718912 0.6718912 0.000000 27.34723 17.14198 16.41078 13.44930 13.53321 0.6726633 0.6726633 0.6726633 0.3500382 0.4045886 0.6726633 0.6726633 0.000000 27.43196 17.15608 16.43611 13.47707 13.56412 0.6734019 0.6734019 0.6734019 0.3502995 0.4047466 0.6734019 0.6734019 0.000000 27.51289 17.16962 16.45722 13.50416 13.59138 0.6741093 0.6741093 0.6741093 0.3505491 0.4049504 0.6741093 0.6741093 0.000000 27.59299 17.18263 16.47765 13.53063 13.60369 0.6747875 0.6747875 0.6747875 0.3507879 0.4051427 0.6747875 0.6747875 0.000000 27.67108 17.19871 16.50094 13.55653 13.62575 0.6755266 0.6755266 0.6755266 0.3510165 0.4053242 0.6755266 0.6755266 0.000000 27.74729 17.21077 16.52015 13.58190 13.65071 0.6762397 0.6762397 0.6762397 0.3512356 0.4054956 0.6762397 0.6762397 0.000000 27.82173 17.22593 16.54229 13.60677 13.67516 0.6768407 0.6768407 0.6768407 0.3514456 0.4057150 0.6768407 0.6768407 0.000000 27.89452 17.23715 16.56043 13.61014 13.69913 0.6774192 0.6774192 0.6774192 0.3516473 0.4058678 0.6774192 0.6774192 0.000000 27.96575 17.26774 16.58155 13.63357 13.72565 0.6781515 0.6781515 0.6781515 0.3518409 0.4060121 0.6781515 0.6781515 0.000000 28.02813 17.27856 16.59874 13.65361 13.74576 0.6786882 0.6786882 0.6786882 0.3520270 0.4062057 0.6786882 0.6786882 0.000000 28.09016 17.29261 16.61896 13.67919 13.77148 0.6792932 0.6792932 0.6792932 0.3522060 0.4063915 0.6792932 0.6792932 0.000000 28.16340 17.30611 16.63531 13.69843 13.78079 0.6798800 0.6798800 0.6798800 0.3524231 0.4065129 0.6798800 0.6798800 0.000000 28.22290 17.31595 16.65472 13.72031 13.79478 0.6805367 0.6805367 0.6805367 0.3526337 0.4066845 0.6805367 0.6805367 0.000000 28.28123 17.32907 16.67030 13.74185 13.81597 0.6810024 0.6810024 0.6810024 0.3527933 0.4068495 0.6810024 0.6810024 0.000000 28.33846 17.34192 16.68899 13.76008 13.83386 0.6816269 0.6816269 0.6816269 0.3529471 0.4070081 0.6816269 0.6816269 0.000000 28.40088 17.35450 16.70388 13.78403 13.85739 0.6820623 0.6820623 0.6820623 0.3531847 0.4071608 0.6820623 0.6820623 0.000000 28.45606 17.36683 16.72192 13.78090 13.87468 0.6826574 0.6826574 0.6826574 0.3533276 0.4073077 0.6826574 0.6826574 0.000000 28.51029 17.37539 16.73619 13.80085 13.89467 0.6832389 0.6832389 0.6832389 0.3534655 0.4074491 0.6832389 0.6832389 0.000000 28.56291 17.38727 16.75362 13.81756 13.91440 0.6836336 0.6836336 0.6836336 0.3536876 0.4075852 0.6836336 0.6836336 0.000000 28.61534 17.39893 16.76733 13.83401 13.93089 0.6841895 0.6841895 0.6841895 0.3538161 0.4077164 0.6841895 0.6841895 0.000000 28.66696 17.41004 16.78422 13.85320 13.95015 0.6847335 0.6847335 0.6847335 0.3540289 0.4078992 0.6847335 0.6847335 0.000000 28.71155 17.42128 16.79741 13.87216 13.96919 0.6852658 0.6852658 0.6852658 0.3541487 0.4080209 0.6852658 0.6852658 0.000000 1.583692 4.251420 4.964346 5.696900 6.081660 0.6245834 0.6245834 0.6245834 0.3328560 0.3900666 0.6245834 0.6245834 0.000000 20.55716 15.85457 14.75482 11.83049 11.87753 0.6313055 0.6313055 0.6313055 0.3358561 0.3927420 0.6313055 0.6313055 0.000000 22.53249 16.21621 15.14663 12.13627 12.17181 0.6360544 0.6360544 0.6360544 0.3376581 0.3941852 0.6360544 0.6360544 0.000000 23.24918 16.36688 15.32891 12.29532 12.33070 0.6397023 0.6397023 0.6397023 0.3389626 0.3952573 0.6397023 0.6397023 0.000000 23.69345 16.46496 15.44753 12.40785 12.44498 0.6426520 0.6426520 0.6426520 0.3400102 0.3961281 0.6426520 0.6426520 0.000000 24.02627 16.53411 15.53950 12.49839 12.53892 0.6452005 0.6452005 0.6452005 0.3408668 0.3968692 0.6452005 0.6452005 0.000000 24.29795 16.59186 15.61526 12.57720 12.61920 0.6474593 0.6474593 0.6474593 0.3416424 0.3975542 0.6474593 0.6474593 0.000000 24.52830 16.64284 15.67958 12.64730 12.69077 0.6494719 0.6494719 0.6494719 0.3423288 0.3981389 0.6494719 0.6494719 0.000000 24.72972 16.68429 15.73993 12.70868 12.75525 0.6512934 0.6512934 0.6512934 0.3429837 0.3986141 0.6512934 0.6512934 0.000000 24.97217 16.72148 15.79334 12.76623 12.81582 0.6530254 0.6530254 0.6530254 0.3435478 0.3990775 0.6530254 0.6530254 0.000000 25.16194 16.75620 15.84223 12.81887 12.87142 0.6545507 0.6545507 0.6545507 0.3440970 0.3995538 0.6545507 0.6545507 0.000000 25.33583 16.78968 15.88823 12.86970 12.92208 0.6561100 0.6561100 0.6561100 0.3446026 0.3999393 0.6561100 0.6561100 0.000000 25.50690 16.81866 15.93057 12.91518 12.97048 0.6574623 0.6574623 0.6574623 0.3450797 0.4003700 0.6574623 0.6574623 0.000000 25.65635 16.84802 15.97209 12.96080 13.04310 0.6588250 0.6588250 0.6588250 0.3454923 0.4007355 0.6588250 0.6588250 0.000000 25.80647 16.87422 16.00781 13.02562 13.07434 0.6600373 0.6600373 0.6600373 0.3458970 0.4010450 0.6600373 0.6600373 0.000000 25.94666 16.89775 16.04765 13.05387 13.12152 0.6612114 0.6612114 0.6612114 0.3463008 0.4014257 0.6612114 0.6612114 0.000000 26.08443 16.92291 16.08086 13.09804 13.16914 0.6623628 0.6623628 0.6623628 0.3466625 0.4017035 0.6623628 0.6623628 0.000000 26.20629 16.94602 16.11523 13.13988 13.19175 0.6635042 0.6635042 0.6635042 0.3470339 0.4020029 0.6635042 0.6635042 0.000000 26.33539 16.96737 16.14736 13.16082 13.23394 0.6644653 0.6644653 0.6644653 0.3473723 0.4023277 0.6644653 0.6644653 0.000000 26.45183 16.98714 16.17752 13.20094 13.27434 0.6655275 0.6655275 0.6655275 0.3476812 0.4025625 0.6655275 0.6655275 0.000000 26.56747 17.00554 16.20952 13.23639 13.29470 0.6665172 0.6665172 0.6665172 0.3480100 0.4028291 0.6665172 0.6665172 0.000000 26.67314 17.02644 16.23635 13.27343 13.33119 0.6674416 0.6674416 0.6674416 0.3483146 0.4030706 0.6674416 0.6674416 0.000000 26.78705 17.04619 16.26532 13.29587 13.36937 0.6683068 0.6683068 0.6683068 0.3486434 0.4033481 0.6683068 0.6683068 0.000000 26.89049 17.06490 16.29299 13.32460 13.40336 0.6691180 0.6691180 0.6691180 0.3489521 0.4036045 0.6691180 0.6691180 0.000000 26.98854 17.07899 16.31948 13.35429 13.43627 0.6700583 0.6700583 0.6700583 0.3491966 0.4038417 0.6700583 0.6700583 0.000000 27.08458 17.09592 16.34488 13.38598 13.45290 0.6707746 0.6707746 0.6707746 0.3494700 0.4040612 0.6707746 0.6707746 0.000000 27.17746 17.11207 16.36930 13.41676 13.48025 0.6716269 0.6716269 0.6716269 0.3497280 0.4042643 0.6716269 0.6716269 0.000000 27.27373 17.13111 16.39281 13.44974 13.51271 0.6724401 0.6724401 0.6724401 0.3500170 0.4044523 0.6724401 0.6724401 0.000000 27.35472 17.14586 16.41897 13.45746 13.54141 0.6732170 0.6732170 0.6732170 0.3502016 0.4046842 0.6732170 0.6732170 0.000000 27.44580 17.15999 16.44085 13.48530 13.57240 0.6739601 0.6739601 0.6739601 0.3504648 0.4049028 0.6739601 0.6739601 0.000000 27.52048 17.17356 16.46200 13.51246 13.59974 0.6746719 0.6746719 0.6746719 0.3507163 0.4051091 0.6746719 0.6746719 0.000000 27.60691 17.18661 16.48596 13.53900 13.60849 0.6753543 0.6753543 0.6753543 0.3509568 0.4053037 0.6753543 0.6753543 0.000000 27.68505 17.20271 16.50580 13.56497 13.63406 0.6760093 0.6760093 0.6760093 0.3511871 0.4054875 0.6760093 0.6760093 0.000000 27.76130 17.21480 16.52854 13.59040 13.65908 0.6766385 0.6766385 0.6766385 0.3514078 0.4056611 0.6766385 0.6766385 0.000000 27.83579 17.22999 16.54723 13.61229 13.68359 0.6772436 0.6772436 0.6772436 0.3516194 0.4058252 0.6772436 0.6772436 0.000000 27.90862 17.24123 16.56888 13.61859 13.71060 0.6780012 0.6780012 0.6780012 0.3518226 0.4060374 0.6780012 0.6780012 0.000000 27.97257 17.27198 16.58657 13.64207 13.73119 0.6785617 0.6785617 0.6785617 0.3520177 0.4061838 0.6785617 0.6785617 0.000000 28.04227 17.28640 16.60726 13.66513 13.75735 0.6792769 0.6792769 0.6792769 0.3522052 0.4063793 0.6792769 0.6792769 0.000000 28.11059 17.29691 16.62405 13.68481 13.78013 0.6797978 0.6797978 0.6797978 0.3524305 0.4065669 0.6797978 0.6797978 0.000000 28.17135 17.31042 16.64388 13.71008 13.78472 0.6804751 0.6804751 0.6804751 0.3526488 0.4066902 0.6804751 0.6804751 0.000000 28.23713 17.32385 16.66332 13.72901 13.80333 0.6809604 0.6809604 0.6809604 0.3528158 0.4068635 0.6809604 0.6809604 0.000000 28.30174 17.33699 16.67893 13.75061 13.82456 0.6816036 0.6816036 0.6816036 0.3529767 0.4069733 0.6816036 0.6816036 0.000000 28.35898 17.34631 16.69419 13.77189 13.84547 0.6820567 0.6820567 0.6820567 0.3531764 0.4071337 0.6820567 0.6820567 0.000000 28.41517 17.35891 16.71257 13.78162 13.86309 0.6826689 0.6826689 0.6826689 0.3533704 0.4072880 0.6826689 0.6826689 0.000000 28.47037 17.37127 16.73062 13.78961 13.88638 0.6832668 0.6832668 0.6832668 0.3535145 0.4074365 0.6832668 0.6832668 0.000000 28.52393 17.38339 16.74492 13.80960 13.90343 0.6836771 0.6836771 0.6836771 0.3537426 0.4075795 0.6836771 0.6836771 0.000000 28.57724 17.39529 16.75892 13.82932 13.92320 0.6842481 0.6842481 0.6842481 0.3538767 0.4077172 0.6842481 0.6842481 0.000000 28.62968 17.40697 16.77610 13.84581 13.94273 0.6848064 0.6848064 0.6848064 0.3540506 0.4079063 0.6848064 0.6848064 0.000000 28.68131 17.41455 16.79301 13.86205 13.95902 0.6853527 0.6853527 0.6853527 0.3542201 0.4080341 0.6853527 0.6853527 0.000000 28.73216 17.42581 16.80622 13.88105 13.97734 0.6857143 0.6857143 0.6857143 0.3543851 0.4082135 0.6857143 0.6857143 0.000000 1.583899 4.252247 4.968066 5.697732 6.082503 0.6245354 0.6245354 0.6245354 0.3328614 0.3900709 0.6245354 0.6245354 0.000000 20.57372 15.85601 14.75640 11.83204 11.87906 0.6314145 0.6314145 0.6314145 0.3359185 0.3927912 0.6314145 0.6314145 0.000000 22.53517 16.21793 15.14856 12.13586 12.17372 0.6361285 0.6361285 0.6361285 0.3377021 0.3942024 0.6361285 0.6361285 0.000000 23.24742 16.36883 15.32835 12.29548 12.33088 0.6397270 0.6397270 0.6397270 0.3389792 0.3952994 0.6397270 0.6397270 0.000000 23.69248 16.46430 15.44993 12.41030 12.44740 0.6427189 0.6427189 0.6427189 0.3400457 0.3961899 0.6427189 0.6427189 0.000000 24.03001 16.53639 15.54208 12.50104 12.53977 0.6453015 0.6453015 0.6453015 0.3409671 0.3969470 0.6453015 0.6453015 0.000000 24.30196 16.59427 15.61576 12.57829 12.62030 0.6475888 0.6475888 0.6475888 0.3417544 0.3975829 0.6475888 0.6475888 0.000000 24.52881 16.64300 15.68245 12.64861 12.69208 0.6496257 0.6496257 0.6496257 0.3424506 0.3981796 0.6496257 0.6496257 0.000000 24.73417 16.68691 15.74293 12.71181 12.75836 0.6515636 0.6515636 0.6515636 0.3430652 0.3986654 0.6515636 0.6515636 0.000000 24.97696 16.72419 15.79646 12.76949 12.81748 0.6532190 0.6532190 0.6532190 0.3436854 0.3991995 0.6532190 0.6532190 0.000000 25.16695 16.75901 15.84546 12.82225 12.87324 0.6548547 0.6548547 0.6548547 0.3441930 0.3996227 0.6548547 0.6548547 0.000000 25.34105 16.79257 15.89156 12.87165 12.92403 0.6563350 0.6563350 0.6563350 0.3447048 0.4000765 0.6563350 0.6563350 0.000000 25.51231 16.82162 15.93210 12.91879 12.99184 0.6577010 0.6577010 0.6577010 0.3451875 0.4004533 0.6577010 0.6577010 0.000000 25.66864 16.85105 15.97562 12.96452 13.04710 0.6590760 0.6590760 0.6590760 0.3456050 0.4008251 0.6590760 0.6590760 0.000000 25.81223 16.87731 16.01144 13.02973 13.07838 0.6602997 0.6602997 0.6602997 0.3460143 0.4011404 0.6602997 0.6602997 0.000000 25.95257 16.90091 16.04766 13.05800 13.12569 0.6615757 0.6615757 0.6615757 0.3464223 0.4015265 0.6615757 0.6615757 0.000000 26.08927 16.92612 16.08466 13.10229 13.17259 0.6627365 0.6627365 0.6627365 0.3468348 0.4018093 0.6627365 0.6627365 0.000000 26.21248 16.94930 16.11910 13.14426 13.19606 0.6637958 0.6637958 0.6637958 0.3471631 0.4021133 0.6637958 0.6637958 0.000000 26.34171 16.97069 16.15131 13.16824 13.24140 0.6647655 0.6647655 0.6647655 0.3475049 0.4024425 0.6647655 0.6647655 0.000000 26.46471 16.99052 16.18154 13.20543 13.28191 0.6658355 0.6658355 0.6658355 0.3478170 0.4026815 0.6658355 0.6658355 0.000000 26.57402 17.00897 16.21360 13.24401 13.30222 0.6668327 0.6668327 0.6668327 0.3481487 0.4029519 0.6668327 0.6668327 0.000000 26.68618 17.02992 16.24050 13.28116 13.33881 0.6677642 0.6677642 0.6677642 0.3484562 0.4031971 0.6677642 0.6677642 0.000000 26.79381 17.04971 16.26953 13.29550 13.37407 0.6686360 0.6686360 0.6686360 0.3487876 0.4034780 0.6686360 0.6686360 0.000000 26.90369 17.06478 16.29726 13.32936 13.41116 0.6695430 0.6695430 0.6695430 0.3490988 0.4037378 0.6695430 0.6695430 0.000000 26.99547 17.08260 16.32381 13.36213 13.44417 0.6703999 0.6703999 0.6703999 0.3493457 0.4039781 0.6703999 0.6703999 0.000000 27.09158 17.09957 16.34927 13.39390 13.45774 0.6712999 0.6712999 0.6712999 0.3496214 0.4042006 0.6712999 0.6712999 0.000000 27.18454 17.11575 16.37374 13.42477 13.49112 0.6719797 0.6719797 0.6719797 0.3498815 0.4044066 0.6719797 0.6719797 0.000000 27.28089 17.13482 16.40080 13.44370 13.52068 0.6727980 0.6727980 0.6727980 0.3501726 0.4045973 0.6727980 0.6727980 0.000000 27.37453 17.14961 16.42351 13.46546 13.54945 0.6735798 0.6735798 0.6735798 0.3504046 0.4048318 0.6735798 0.6735798 0.000000 27.45171 17.16378 16.44543 13.49336 13.58052 0.6743277 0.6743277 0.6743277 0.3506243 0.4050530 0.6743277 0.6743277 0.000000 27.54036 17.17738 16.47012 13.51761 13.60793 0.6750440 0.6750440 0.6750440 0.3508775 0.4052039 0.6750440 0.6750440 0.000000 27.61429 17.19401 16.49063 13.54721 13.61657 0.6757308 0.6757308 0.6757308 0.3511198 0.4054586 0.6757308 0.6757308 0.000000 27.69875 17.20659 16.51400 13.57324 13.64220 0.6763901 0.6763901 0.6763901 0.3513517 0.4055871 0.6763901 0.6763901 0.000000 27.76878 17.21870 16.53329 13.59874 13.66728 0.6771989 0.6771989 0.6771989 0.3515740 0.4058204 0.6771989 0.6771989 0.000000 27.84957 17.23391 16.55549 13.60287 13.69483 0.6778076 0.6778076 0.6778076 0.3517872 0.4059865 0.6778076 0.6778076 0.000000 27.91617 17.24518 16.57371 13.62687 13.71592 0.6783935 0.6783935 0.6783935 0.3519918 0.4061436 0.6783935 0.6783935 0.000000 27.98641 17.27608 16.59489 13.65041 13.74256 0.6791326 0.6791326 0.6791326 0.3521884 0.4063492 0.6791326 0.6791326 0.000000 28.05614 17.29053 16.61215 13.67352 13.76578 0.6796763 0.6796763 0.6796763 0.3524222 0.4065464 0.6796763 0.6796763 0.000000 28.11824 17.30464 16.63243 13.69623 13.78861 0.6803752 0.6803752 0.6803752 0.3526487 0.4066789 0.6803752 0.6803752 0.000000 28.19153 17.31460 16.64884 13.71557 13.79010 0.6808811 0.6808811 0.6808811 0.3528235 0.4068610 0.6808811 0.6808811 0.000000 28.25108 17.32806 16.66830 13.74055 13.81469 0.6815438 0.6815438 0.6815438 0.3529918 0.4069792 0.6815438 0.6815438 0.000000 28.30945 17.34122 16.68740 13.75920 13.83299 0.6820157 0.6820157 0.6820157 0.3531985 0.4071476 0.6820157 0.6820157 0.000000 28.36672 17.35411 16.70268 13.78053 13.85394 0.6826458 0.6826458 0.6826458 0.3533993 0.4073095 0.6826458 0.6826458 0.000000 28.42919 17.36674 16.72108 13.78081 13.87458 0.6832607 0.6832607 0.6832607 0.3535499 0.4074654 0.6832607 0.6832607 0.000000 28.49066 17.37557 16.73571 13.80111 13.89493 0.6836874 0.6836874 0.6836874 0.3537397 0.4076154 0.6836874 0.6836874 0.000000 28.54421 17.39126 16.75348 13.81817 13.91501 0.6842740 0.6842740 0.6842740 0.3539242 0.4077599 0.6842740 0.6842740 0.000000 28.59753 17.39963 16.76750 13.83495 13.93182 0.6848474 0.6848474 0.6848474 0.3541039 0.4078991 0.6848474 0.6848474 0.000000 28.64999 17.41098 16.78470 13.85743 13.95441 0.6854082 0.6854082 0.6854082 0.3542788 0.4080332 0.6854082 0.6854082 0.000000 28.70164 17.42246 16.79818 13.87371 13.97074 0.6857836 0.6857836 0.6857836 0.3544048 0.4082187 0.6857836 0.6857836 0.000000 28.74624 17.43373 16.81486 13.88976 13.96920 0.6863207 0.6863207 0.6863207 0.3546152 0.4083432 0.6863207 0.6863207 0.000000 1.584100 4.253043 4.968853 5.703595 6.083316 0.6245436 0.6245436 0.6245436 0.3328666 0.3900751 0.6245436 0.6245436 0.000000 20.57590 15.85739 14.75793 11.83205 11.88053 0.6314130 0.6314130 0.6314130 0.3359255 0.3927733 0.6314130 0.6314130 0.000000 22.53775 16.21960 15.15043 12.13773 12.17329 0.6361974 0.6361974 0.6361974 0.3377436 0.3942823 0.6361974 0.6361974 0.000000 23.25040 16.37072 15.33047 12.29555 12.33300 0.6398470 0.6398470 0.6398470 0.3390443 0.3953389 0.6398470 0.6398470 0.000000 23.69580 16.46636 15.44975 12.41075 12.44788 0.6428784 0.6428784 0.6428784 0.3401284 0.3962486 0.6428784 0.6428784 0.000000 24.03362 16.53860 15.54223 12.50360 12.54054 0.6454929 0.6454929 0.6454929 0.3410138 0.3969584 0.6454929 0.6454929 0.000000 24.30582 16.59414 15.61841 12.58102 12.62131 0.6477098 0.6477098 0.6477098 0.3418129 0.3976705 0.6477098 0.6477098 0.000000 24.53291 16.64309 15.68523 12.64981 12.69330 0.6497705 0.6497705 0.6497705 0.3425193 0.3982166 0.6497705 0.6497705 0.000000 24.73847 16.68718 15.74375 12.71483 12.76137 0.6517290 0.6517290 0.6517290 0.3431912 0.3987743 0.6517290 0.6517290 0.000000 24.98159 16.72682 15.79746 12.77264 12.81904 0.6534971 0.6534971 0.6534971 0.3437703 0.3992559 0.6534971 0.6534971 0.000000 25.17180 16.76172 15.84661 12.82553 12.87494 0.6550546 0.6550546 0.6550546 0.3442847 0.3996873 0.6550546 0.6550546 0.000000 25.34609 16.79326 15.89285 12.87504 12.92741 0.6565496 0.6565496 0.6565496 0.3448025 0.4001485 0.6565496 0.6565496 0.000000 25.51753 16.82448 15.93542 12.92229 12.99557 0.6579289 0.6579289 0.6579289 0.3452905 0.4005320 0.6579289 0.6579289 0.000000 25.67404 16.85196 15.97527 12.96811 13.05411 0.6593161 0.6593161 0.6593161 0.3457130 0.4009100 0.6593161 0.6593161 0.000000 25.81778 16.87831 16.01494 13.03684 13.08229 0.6605510 0.6605510 0.6605510 0.3461739 0.4012311 0.6605510 0.6605510 0.000000 25.95828 16.90396 16.05125 13.06200 13.13280 0.6618372 0.6618372 0.6618372 0.3465390 0.4016223 0.6618372 0.6618372 0.000000 26.09511 16.92924 16.08832 13.10642 13.16106 0.6630074 0.6630074 0.6630074 0.3469553 0.4019100 0.6630074 0.6630074 0.000000 26.22495 16.95054 16.12284 13.15158 13.20326 0.6640758 0.6640758 0.6640758 0.3472872 0.4022187 0.6640758 0.6640758 0.000000 26.34781 16.97392 16.15512 13.17249 13.24568 0.6651442 0.6651442 0.6651442 0.3476788 0.4025521 0.6651442 0.6651442 0.000000 26.47094 16.99380 16.18543 13.20978 13.28630 0.6661316 0.6661316 0.6661316 0.3479939 0.4027952 0.6661316 0.6661316 0.000000 26.58034 17.01230 16.21756 13.24846 13.30660 0.6671361 0.6671361 0.6671361 0.3482822 0.4030694 0.6671361 0.6671361 0.000000 26.69898 17.03329 16.24452 13.28571 13.34628 0.6680745 0.6680745 0.6680745 0.3486385 0.4033182 0.6680745 0.6680745 0.000000 26.80034 17.05312 16.27361 13.30302 13.38164 0.6690424 0.6690424 0.6690424 0.3489265 0.4036025 0.6690424 0.6690424 0.000000 26.91031 17.06823 16.30140 13.33397 13.41581 0.6699553 0.6699553 0.6699553 0.3492401 0.4038655 0.6699553 0.6699553 0.000000 27.00216 17.08609 16.32800 13.36982 13.45193 0.6707289 0.6707289 0.6707289 0.3494893 0.4041089 0.6707289 0.6707289 0.000000 27.10467 17.10310 16.35352 13.40168 13.46541 0.6716344 0.6716344 0.6716344 0.3498130 0.4043343 0.6716344 0.6716344 0.000000 27.19769 17.11932 16.38155 13.43264 13.49588 0.6724970 0.6724970 0.6724970 0.3500295 0.4045432 0.6724970 0.6724970 0.000000 27.28780 17.13842 16.40515 13.44163 13.52850 0.6732315 0.6732315 0.6732315 0.3503226 0.4047366 0.6732315 0.6732315 0.000000 27.38151 17.15324 16.42790 13.47331 13.55735 0.6740180 0.6740180 0.6740180 0.3506020 0.4049737 0.6740180 0.6740180 0.000000 27.46502 17.16744 16.45336 13.49830 13.58548 0.6747704 0.6747704 0.6747704 0.3508234 0.4051973 0.6747704 0.6747704 0.000000 27.54744 17.18108 16.47460 13.52858 13.61192 0.6754911 0.6754911 0.6754911 0.3510331 0.4053507 0.6754911 0.6754911 0.000000 27.62770 17.19774 16.49864 13.55226 13.62451 0.6762700 0.6762700 0.6762700 0.3512771 0.4056076 0.6762700 0.6762700 0.000000 27.70593 17.21034 16.51856 13.58136 13.65019 0.6769331 0.6769331 0.6769331 0.3515106 0.4057384 0.6769331 0.6769331 0.000000 27.78854 17.22602 16.54136 13.60693 13.67532 0.6775701 0.6775701 0.6775701 0.3517345 0.4059737 0.6775701 0.6775701 0.000000 27.85684 17.23772 16.56013 13.61094 13.69994 0.6782703 0.6782703 0.6782703 0.3519492 0.4061419 0.6782703 0.6782703 0.000000 27.93600 17.26880 16.58185 13.63499 13.72707 0.6789473 0.6789473 0.6789473 0.3521553 0.4063010 0.6789473 0.6789473 0.000000 27.99998 17.28006 16.59960 13.65858 13.75077 0.6795149 0.6795149 0.6795149 0.3523982 0.4065084 0.6795149 0.6795149 0.000000 28.06975 17.29454 16.62036 13.68174 13.77405 0.6802366 0.6802366 0.6802366 0.3526332 0.4067075 0.6802366 0.6802366 0.000000 28.13813 17.30843 16.64067 13.70450 13.77923 0.6807641 0.6807641 0.6807641 0.3528162 0.4068418 0.6807641 0.6807641 0.000000 28.19894 17.32222 16.65709 13.72689 13.80126 0.6814475 0.6814475 0.6814475 0.3529923 0.4069688 0.6814475 0.6814475 0.000000 28.26476 17.33569 16.67313 13.74592 13.81995 0.6819390 0.6819390 0.6819390 0.3532065 0.4071455 0.6819390 0.6819390 0.000000 28.32942 17.34532 16.69226 13.77063 13.84424 0.6825879 0.6825879 0.6825879 0.3534144 0.4073155 0.6825879 0.6825879 0.000000 28.38670 17.35823 16.71102 13.78827 13.86224 0.6832206 0.6832206 0.6832206 0.3535717 0.4074791 0.6832206 0.6832206 0.000000 28.44293 17.37088 16.72944 13.78914 13.88591 0.6836645 0.6836645 0.6836645 0.3537680 0.4076365 0.6836645 0.6836645 0.000000 28.49817 17.38328 16.74409 13.80948 13.90331 0.6842675 0.6842675 0.6842675 0.3539588 0.4077880 0.6842675 0.6842675 0.000000 28.55173 17.39545 16.75843 13.82955 13.92343 0.6848566 0.6848566 0.6848566 0.3540999 0.4079340 0.6848566 0.6848566 0.000000 28.60506 17.40738 16.77593 13.84637 13.94329 0.6854324 0.6854324 0.6854324 0.3543249 0.4080746 0.6854324 0.6854324 0.000000 28.65754 17.41874 16.79314 13.86293 13.96291 0.6858222 0.6858222 0.6858222 0.3544565 0.4082101 0.6858222 0.6858222 0.000000 28.70919 17.42670 16.80664 13.88222 13.97100 0.6863732 0.6863732 0.6863732 0.3546721 0.4083969 0.6863732 0.6863732 0.000000 28.76006 17.43799 16.81989 13.90130 13.98056 0.6869125 0.6869125 0.6869125 0.3547948 0.4085227 0.6869125 0.6869125 0.000000 1.584293 4.253812 4.972516 5.704368 6.086658 0.6245515 0.6245515 0.6245515 0.3328716 0.3900791 0.6245515 0.6245515 0.000000 20.57800 15.85873 14.75940 11.83202 11.88194 0.6314084 0.6314084 0.6314084 0.3359309 0.3928198 0.6314084 0.6314084 0.000000 22.54025 16.21765 15.15223 12.13720 12.17507 0.6362616 0.6362616 0.6362616 0.3377304 0.3942952 0.6362616 0.6362616 0.000000 23.25328 16.36946 15.33252 12.29763 12.33504 0.6399609 0.6399609 0.6399609 0.3391065 0.3953758 0.6399609 0.6399609 0.000000 23.69900 16.46556 15.45199 12.41113 12.44828 0.6430308 0.6430308 0.6430308 0.3401572 0.3963043 0.6430308 0.6430308 0.000000 24.03710 16.53813 15.54463 12.50426 12.54299 0.6455783 0.6455783 0.6455783 0.3410570 0.3970296 0.6455783 0.6455783 0.000000 24.30955 16.59640 15.62096 12.58365 12.62393 0.6479197 0.6479197 0.6479197 0.3418678 0.3976922 0.6479197 0.6479197 0.000000 24.53686 16.64545 15.68791 12.65259 12.69607 0.6500027 0.6500027 0.6500027 0.3425841 0.3983119 0.6500027 0.6500027 0.000000 24.74261 16.68963 15.74449 12.71612 12.76106 0.6518854 0.6518854 0.6518854 0.3432645 0.3988177 0.6518854 0.6518854 0.000000 24.98605 16.72717 15.79836 12.77569 12.82208 0.6536714 0.6536714 0.6536714 0.3438510 0.3993083 0.6536714 0.6536714 0.000000 25.17648 16.76434 15.84766 12.82870 12.87810 0.6553386 0.6553386 0.6553386 0.3444200 0.3998087 0.6553386 0.6553386 0.000000 25.35840 16.79387 15.89404 12.87832 12.93068 0.6567543 0.6567543 0.6567543 0.3448957 0.4002162 0.6567543 0.6567543 0.000000 25.52258 16.82725 15.93864 12.92567 13.00231 0.6582392 0.6582392 0.6582392 0.3453890 0.4006063 0.6582392 0.6582392 0.000000 25.67925 16.85277 15.97858 12.97159 13.05072 0.6595457 0.6595457 0.6595457 0.3458165 0.4009904 0.6595457 0.6595457 0.000000 25.82314 16.87922 16.01834 13.04069 13.08608 0.6608832 0.6608832 0.6608832 0.3462818 0.4013171 0.6608832 0.6608832 0.000000 25.97037 16.90693 16.05472 13.06588 13.13672 0.6620878 0.6620878 0.6620878 0.3466978 0.4017135 0.6620878 0.6620878 0.000000 26.10075 16.92837 16.09188 13.11041 13.16273 0.6632674 0.6632674 0.6632674 0.3470710 0.4020060 0.6632674 0.6632674 0.000000 26.23072 16.95169 16.12647 13.15570 13.20731 0.6643445 0.6643445 0.6643445 0.3474064 0.4023192 0.6643445 0.6643445 0.000000 26.36017 16.97513 16.15882 13.17661 13.24984 0.6655115 0.6655115 0.6655115 0.3478012 0.4026567 0.6655115 0.6655115 0.000000 26.47696 16.99697 16.18920 13.21702 13.29360 0.6665063 0.6665063 0.6665063 0.3481195 0.4029039 0.6665063 0.6665063 0.000000 26.59285 17.01551 16.22139 13.25581 13.31385 0.6675177 0.6675177 0.6675177 0.3484569 0.4031819 0.6675177 0.6675177 0.000000 26.70519 17.03655 16.25197 13.29316 13.35062 0.6684627 0.6684627 0.6684627 0.3487697 0.4034342 0.6684627 0.6684627 0.000000 26.81301 17.05642 16.27757 13.30741 13.38907 0.6694368 0.6694368 0.6694368 0.3491061 0.4037218 0.6694368 0.6694368 0.000000 26.91671 17.07158 16.30541 13.34144 13.42333 0.6702663 0.6702663 0.6702663 0.3493762 0.4039880 0.6702663 0.6702663 0.000000 27.01495 17.08948 16.33559 13.37437 13.44815 0.6712237 0.6712237 0.6712237 0.3496735 0.4042344 0.6712237 0.6712237 0.000000 27.11121 17.10652 16.36115 13.40631 13.47294 0.6719567 0.6719567 0.6719567 0.3499536 0.4044627 0.6719567 0.6719567 0.000000 27.21062 17.12640 16.38572 13.44036 13.50349 0.6728246 0.6728246 0.6728246 0.3502178 0.4046744 0.6728246 0.6728246 0.000000 27.30079 17.14191 16.40936 13.44927 13.53319 0.6736525 0.6736525 0.6736525 0.3504673 0.4048705 0.6736525 0.6736525 0.000000 27.38826 17.15676 16.43566 13.47804 13.56510 0.6744437 0.6744437 0.6744437 0.3507486 0.4051100 0.6744437 0.6744437 0.000000 27.47809 17.17100 16.45767 13.50607 13.59631 0.6752005 0.6752005 0.6752005 0.3510171 0.4053361 0.6752005 0.6752005 0.000000 27.55429 17.18466 16.48243 13.53343 13.60299 0.6759254 0.6759254 0.6759254 0.3512285 0.4054918 0.6759254 0.6759254 0.000000 27.64086 17.20135 16.50303 13.56316 13.63229 0.6766204 0.6766204 0.6766204 0.3514740 0.4056934 0.6766204 0.6766204 0.000000 27.71914 17.21398 16.52299 13.58933 13.65803 0.6772876 0.6772876 0.6772876 0.3517092 0.4058839 0.6772876 0.6772876 0.000000 27.79552 17.22968 16.54583 13.60696 13.68322 0.6781038 0.6781038 0.6781038 0.3519345 0.4061213 0.6781038 0.6781038 0.000000 27.87639 17.24141 16.56810 13.61887 13.71088 0.6787200 0.6787200 0.6787200 0.3521506 0.4062915 0.6787200 0.6787200 0.000000 27.94306 17.27263 16.58638 13.64297 13.73508 0.6793129 0.6793129 0.6793129 0.3524030 0.4064525 0.6793129 0.6793129 0.000000 28.01332 17.28749 16.60763 13.66660 13.75883 0.6800588 0.6800588 0.6800588 0.3526023 0.4066618 0.6800588 0.6800588 0.000000 28.08312 17.30199 16.62495 13.68982 13.78518 0.6806091 0.6806091 0.6806091 0.3527938 0.4068058 0.6806091 0.6806091 0.000000 28.14527 17.31234 16.64529 13.71263 13.78722 0.6813142 0.6813142 0.6813142 0.3529781 0.4069988 0.6813142 0.6813142 0.000000 28.21861 17.32615 16.66521 13.73506 13.80929 0.6819134 0.6819134 0.6819134 0.3532001 0.4071276 0.6819134 0.6819134 0.000000 28.27820 17.33965 16.68127 13.75714 13.83099 0.6824949 0.6824949 0.6824949 0.3534155 0.4073060 0.6824949 0.6824949 0.000000 28.33662 17.35286 16.70042 13.77890 13.85235 0.6831464 0.6831464 0.6831464 0.3535799 0.4074775 0.6831464 0.6831464 0.000000 28.39393 17.36579 16.71575 13.77960 13.87338 0.6836082 0.6836082 0.6836082 0.3537829 0.4076426 0.6836082 0.6836082 0.000000 28.45643 17.37491 16.73420 13.80029 13.89111 0.6842284 0.6842284 0.6842284 0.3539802 0.4078016 0.6842284 0.6842284 0.000000 28.51100 17.38733 16.75232 13.81770 13.91454 0.6848338 0.6848338 0.6848338 0.3541276 0.4079546 0.6848338 0.6848338 0.000000 28.57150 17.39951 16.76668 13.83482 13.93170 0.6854253 0.6854253 0.6854253 0.3543586 0.4081020 0.6854253 0.6854253 0.000000 28.62484 17.41112 16.78420 13.85763 13.95461 0.6858304 0.6858304 0.6858304 0.3544959 0.4082440 0.6858304 0.6858304 0.000000 28.67733 17.42283 16.79798 13.87423 13.97125 0.6863958 0.6863958 0.6863958 0.3547170 0.4083809 0.6863958 0.6863958 0.000000 28.72899 17.43434 16.81495 13.89058 13.97000 0.6869490 0.6869490 0.6869490 0.3548449 0.4085128 0.6869490 0.6869490 0.000000 28.77987 17.44565 16.82821 13.90968 13.98580 0.6874903 0.6874903 0.6874903 0.3550570 0.4086961 0.6874903 0.6874903 0.000000 1.584479 4.257434 4.973249 5.705113 6.089974 0.6245592 0.6245592 0.6245592 0.3328765 0.3900830 0.6245592 0.6245592 0.000000 20.58003 15.86002 14.76082 11.83341 11.88045 0.6315081 0.6315081 0.6315081 0.3359348 0.3927993 0.6315081 0.6315081 0.000000 22.54266 16.21921 15.15082 12.13895 12.17680 0.6363211 0.6363211 0.6363211 0.3377672 0.3943063 0.6363211 0.6363211 0.000000 23.25121 16.37123 15.33176 12.29963 12.33501 0.6400690 0.6400690 0.6400690 0.3391146 0.3954103 0.6400690 0.6400690 0.000000 23.70210 16.46749 15.45415 12.41335 12.45047 0.6430771 0.6430771 0.6430771 0.3402336 0.3962938 0.6430771 0.6430771 0.000000 24.03636 16.54019 15.54462 12.50485 12.54536 0.6457548 0.6457548 0.6457548 0.3411467 0.3970976 0.6457548 0.6457548 0.000000 24.30926 16.59857 15.62342 12.58447 12.62646 0.6481216 0.6481216 0.6481216 0.3419686 0.3977730 0.6481216 0.6481216 0.000000 24.54068 16.64773 15.68837 12.65529 12.69875 0.6502265 0.6502265 0.6502265 0.3426942 0.3983416 0.6502265 0.6502265 0.000000 24.74662 16.68975 15.74720 12.71731 12.76388 0.6520333 0.6520333 0.6520333 0.3433339 0.3989190 0.6520333 0.6520333 0.000000 24.99037 16.72963 15.80119 12.77545 12.82502 0.6538368 0.6538368 0.6538368 0.3439278 0.3994181 0.6538368 0.6538368 0.000000 25.18100 16.76474 15.85059 12.83177 12.88116 0.6555196 0.6555196 0.6555196 0.3445032 0.3998652 0.6555196 0.6555196 0.000000 25.36310 16.79648 15.89706 12.88150 12.93385 0.6570425 0.6570425 0.6570425 0.3449847 0.4002798 0.6570425 0.6570425 0.000000 25.52746 16.82788 15.94176 12.92895 13.00581 0.6585396 0.6585396 0.6585396 0.3454833 0.4006765 0.6585396 0.6585396 0.000000 25.68429 16.85552 15.98178 12.99281 13.04207 0.6598573 0.6598573 0.6598573 0.3459155 0.4010664 0.6598573 0.6598573 0.000000 25.82833 16.88203 16.02162 13.04443 13.09283 0.6612052 0.6612052 0.6612052 0.3463852 0.4014585 0.6612052 0.6612052 0.000000 25.97571 16.90979 16.05809 13.07273 13.14052 0.6623281 0.6623281 0.6623281 0.3468052 0.4018001 0.6623281 0.6623281 0.000000 26.10621 16.93130 16.09532 13.11737 13.16958 0.6635169 0.6635169 0.6635169 0.3471821 0.4020974 0.6635169 0.6635169 0.000000 26.23631 16.95467 16.12998 13.15969 13.21427 0.6646932 0.6646932 0.6646932 0.3475211 0.4024150 0.6646932 0.6646932 0.000000 26.36588 16.97626 16.16241 13.18364 13.25690 0.6657776 0.6657776 0.6657776 0.3479190 0.4027567 0.6657776 0.6657776 0.000000 26.48920 17.00004 16.19285 13.22112 13.29774 0.6668699 0.6668699 0.6668699 0.3482865 0.4030077 0.6668699 0.6668699 0.000000 26.59876 17.01863 16.22510 13.26000 13.31797 0.6678881 0.6678881 0.6678881 0.3486266 0.4032894 0.6678881 0.6678881 0.000000 26.71120 17.03971 16.25575 13.29745 13.35483 0.6688395 0.6688395 0.6688395 0.3489420 0.4035453 0.6688395 0.6688395 0.000000 26.82547 17.05962 16.28495 13.31467 13.39336 0.6697304 0.6697304 0.6697304 0.3492349 0.4038362 0.6697304 0.6697304 0.000000 26.92924 17.07482 16.31284 13.34878 13.43072 0.6706551 0.6706551 0.6706551 0.3495075 0.4041054 0.6706551 0.6706551 0.000000 27.02753 17.09276 16.33953 13.38180 13.44581 0.6715289 0.6715289 0.6715289 0.3498070 0.4043548 0.6715289 0.6715289 0.000000 27.12386 17.10984 16.36515 13.41382 13.47736 0.6724449 0.6724449 0.6724449 0.3500892 0.4045860 0.6724449 0.6724449 0.000000 27.21702 17.12975 16.38976 13.44795 13.51096 0.6732289 0.6732289 0.6732289 0.3504009 0.4048003 0.6732289 0.6732289 0.000000 27.31355 17.14530 16.41695 13.45678 13.54073 0.6739733 0.6739733 0.6739733 0.3506070 0.4049991 0.6739733 0.6739733 0.000000 27.40737 17.16018 16.43979 13.48561 13.57271 0.6747691 0.6747691 0.6747691 0.3508901 0.4052411 0.6747691 0.6747691 0.000000 27.48465 17.17444 16.46184 13.51371 13.60099 0.6755304 0.6755304 0.6755304 0.3511604 0.4054695 0.6755304 0.6755304 0.000000 27.57346 17.19170 16.48665 13.54113 13.61058 0.6763475 0.6763475 0.6763475 0.3514187 0.4056276 0.6763475 0.6763475 0.000000 27.64753 17.20485 16.51077 13.56793 13.63697 0.6771344 0.6771344 0.6771344 0.3516658 0.4058314 0.6771344 0.6771344 0.000000 27.73212 17.21751 16.53076 13.59717 13.66574 0.6778053 0.6778053 0.6778053 0.3519024 0.4060241 0.6778053 0.6778053 0.000000 27.80854 17.23323 16.55016 13.60201 13.69098 0.6784499 0.6784499 0.6784499 0.3521292 0.4062634 0.6784499 0.6784499 0.000000 27.88318 17.24499 16.57247 13.62665 13.71571 0.6792446 0.6792446 0.6792446 0.3523467 0.4064357 0.6792446 0.6792446 0.000000 27.96241 17.27635 16.59425 13.65080 13.74295 0.6798410 0.6798410 0.6798410 0.3525556 0.4065986 0.6798410 0.6798410 0.000000 28.02642 17.29124 16.61206 13.67449 13.76976 0.6805027 0.6805027 0.6805027 0.3527562 0.4068097 0.6805027 0.6805027 0.000000 28.08999 17.30577 16.63287 13.69775 13.78731 0.6811434 0.6811434 0.6811434 0.3529491 0.4069555 0.6811434 0.6811434 0.000000 28.16468 17.31613 16.64978 13.72061 13.79507 0.6818514 0.6818514 0.6818514 0.3531793 0.4071502 0.6818514 0.6818514 0.000000 28.22554 17.32996 16.66973 13.74309 13.81718 0.6823665 0.6823665 0.6823665 0.3534025 0.4072807 0.6823665 0.6823665 0.000000 28.28516 17.34349 16.68927 13.76522 13.83892 0.6830378 0.6830378 0.6830378 0.3535744 0.4074607 0.6830378 0.6830378 0.000000 28.35610 17.35672 16.70844 13.78702 13.86032 0.6836052 0.6836052 0.6836052 0.3537845 0.4076338 0.6836052 0.6836052 0.000000 28.41342 17.36967 16.72380 13.78760 13.88139 0.6841565 0.6841565 0.6841565 0.3539886 0.4078005 0.6841565 0.6841565 0.000000 28.46969 17.38236 16.73881 13.80535 13.90215 0.6847792 0.6847792 0.6847792 0.3541425 0.4079609 0.6847792 0.6847792 0.000000 28.52426 17.39480 16.75696 13.82874 13.92262 0.6853871 0.6853871 0.6853871 0.3543797 0.4081154 0.6853871 0.6853871 0.000000 28.57853 17.40700 16.77479 13.84590 13.94283 0.6858078 0.6858078 0.6858078 0.3545229 0.4082642 0.6858078 0.6858078 0.000000 28.63188 17.41861 16.79233 13.86278 13.96277 0.6863884 0.6863884 0.6863884 0.3547498 0.4084076 0.6863884 0.6863884 0.000000 28.68438 17.42681 16.80613 13.88240 13.97639 0.6869560 0.6869560 0.6869560 0.3548833 0.4085458 0.6869560 0.6869560 0.000000 28.73605 17.43834 16.81966 13.90177 13.98102 0.6875113 0.6875113 0.6875113 0.3551006 0.4086790 0.6875113 0.6875113 0.000000 28.78694 17.44967 16.84265 13.91792 13.99685 0.6880549 0.6880549 0.6880549 0.3552252 0.4088635 0.6880549 0.6880549 0.000000 1.584659 4.258151 4.973957 5.705833 6.090704 0.6245666 0.6245666 0.6245666 0.3328535 0.3900868 0.6245666 0.6245666 0.000000 20.58199 15.86127 14.76219 11.83475 11.88177 0.6314977 0.6314977 0.6314977 0.3359908 0.3928434 0.6314977 0.6314977 0.000000 22.54498 16.22071 15.15250 12.14064 12.17847 0.6363762 0.6363762 0.6363762 0.3378018 0.3943155 0.6363762 0.6363762 0.000000 23.25390 16.37293 15.33367 12.29950 12.33693 0.6400703 0.6400703 0.6400703 0.3391714 0.3954425 0.6400703 0.6400703 0.000000 23.70509 16.46935 15.45375 12.41548 12.45259 0.6432166 0.6432166 0.6432166 0.3402565 0.3963441 0.6432166 0.6432166 0.000000 24.03961 16.53960 15.54687 12.50717 12.54766 0.6458262 0.6458262 0.6458262 0.3412333 0.3970999 0.6458262 0.6458262 0.000000 24.30886 16.60068 15.62359 12.58522 12.62891 0.6482192 0.6482192 0.6482192 0.3420166 0.3977882 0.6482192 0.6482192 0.000000 24.54437 16.64994 15.68875 12.65790 12.70134 0.6503466 0.6503466 0.6503466 0.3427517 0.3984300 0.6503466 0.6503466 0.000000 24.75050 16.69205 15.74983 12.72006 12.76660 0.6522679 0.6522679 0.6522679 0.3433997 0.3989552 0.6522679 0.6522679 0.000000 24.99454 16.72982 15.80392 12.77831 12.82787 0.6540878 0.6540878 0.6540878 0.3440007 0.3994629 0.6540878 0.6540878 0.000000 25.18537 16.76507 15.85343 12.83474 12.88412 0.6556918 0.6556918 0.6556918 0.3445825 0.3999178 0.6556918 0.6556918 0.000000 25.36765 16.79902 15.89999 12.88458 12.93692 0.6573215 0.6573215 0.6573215 0.3450698 0.4004000 0.6573215 0.6573215 0.000000 25.53218 16.82843 15.94478 12.93213 13.00921 0.6587382 0.6587382 0.6587382 0.3455735 0.4008028 0.6587382 0.6587382 0.000000 25.68917 16.85819 15.98489 12.99631 13.04551 0.6601593 0.6601593 0.6601593 0.3460576 0.4011383 0.6601593 0.6601593 0.000000 25.83336 16.88476 16.02481 13.04806 13.09640 0.6614258 0.6614258 0.6614258 0.3464843 0.4015358 0.6614258 0.6614258 0.000000 25.98087 16.91061 16.06136 13.07638 13.14421 0.6627408 0.6627408 0.6627408 0.3469083 0.4018824 0.6627408 0.6627408 0.000000 26.11150 16.93413 16.09866 13.12114 13.17329 0.6638472 0.6638472 0.6638472 0.3472889 0.4022438 0.6638472 0.6638472 0.000000 26.24820 16.95756 16.13339 13.16665 13.21808 0.6650316 0.6650316 0.6650316 0.3476777 0.4025064 0.6650316 0.6650316 0.000000 26.37140 16.97919 16.16588 13.18752 13.26082 0.6660333 0.6660333 0.6660333 0.3480324 0.4028521 0.6660333 0.6660333 0.000000 26.49484 17.00302 16.19639 13.22510 13.30480 0.6671330 0.6671330 0.6671330 0.3484028 0.4031070 0.6671330 0.6671330 0.000000 26.61088 17.02166 16.22870 13.26711 13.32498 0.6681581 0.6681581 0.6681581 0.3487456 0.4033923 0.6681581 0.6681581 0.000000 26.71702 17.04278 16.25941 13.30465 13.36192 0.6691161 0.6691161 0.6691161 0.3490636 0.4036516 0.6691161 0.6691161 0.000000 26.83138 17.06273 16.28867 13.31882 13.39754 0.6701024 0.6701024 0.6701024 0.3493591 0.4039457 0.6701024 0.6701024 0.000000 26.93524 17.07797 16.31661 13.35300 13.43498 0.6710327 0.6710327 0.6710327 0.3496340 0.4042180 0.6710327 0.6710327 0.000000 27.03358 17.09595 16.34336 13.38609 13.45301 0.6719120 0.6719120 0.6719120 0.3499813 0.4044704 0.6719120 0.6719120 0.000000 27.13630 17.11306 16.36902 13.42120 13.48463 0.6727444 0.6727444 0.6727444 0.3502201 0.4047043 0.6727444 0.6727444 0.000000 27.22952 17.13300 16.39368 13.45240 13.51532 0.6736220 0.6736220 0.6736220 0.3505338 0.4049213 0.6736220 0.6736220 0.000000 27.31981 17.14858 16.42092 13.46118 13.54814 0.6744593 0.6744593 0.6744593 0.3507871 0.4051227 0.6744593 0.6744593 0.000000 27.41369 17.16350 16.44380 13.49305 13.58020 0.6752594 0.6752594 0.6752594 0.3510267 0.4053671 0.6752594 0.6752594 0.000000 27.49729 17.17779 16.46939 13.52121 13.61156 0.6760249 0.6760249 0.6760249 0.3512987 0.4055978 0.6760249 0.6760249 0.000000 27.57986 17.19508 16.49074 13.54870 13.61804 0.6767580 0.6767580 0.6767580 0.3515587 0.4057583 0.6767580 0.6767580 0.000000 27.66653 17.20826 16.51489 13.57557 13.64746 0.6774610 0.6774610 0.6774610 0.3518074 0.4059643 0.6774610 0.6774610 0.000000 27.73862 17.22448 16.53493 13.60186 13.67331 0.6782234 0.6782234 0.6782234 0.3520456 0.4061590 0.6782234 0.6782234 0.000000 27.82134 17.23669 16.55783 13.60961 13.69860 0.6789592 0.6789592 0.6789592 0.3522739 0.4064003 0.6789592 0.6789592 0.000000 27.89602 17.26823 16.57671 13.63429 13.72637 0.6795825 0.6795825 0.6795825 0.3524929 0.4065745 0.6795825 0.6795825 0.000000 27.96797 17.27996 16.59852 13.65849 13.75068 0.6803569 0.6803569 0.6803569 0.3527031 0.4067393 0.6803569 0.6803569 0.000000 28.03305 17.29488 16.61983 13.68223 13.77454 0.6809345 0.6809345 0.6809345 0.3529498 0.4069522 0.6809345 0.6809345 0.000000 28.10916 17.30919 16.64067 13.70554 13.78024 0.6816655 0.6816655 0.6816655 0.3531886 0.4070998 0.6816655 0.6816655 0.000000 28.17136 17.32337 16.65760 13.72845 13.80278 0.6822023 0.6822023 0.6822023 0.3533753 0.4072962 0.6822023 0.6822023 0.000000 28.23850 17.33723 16.67757 13.75098 13.82493 0.6828944 0.6828944 0.6828944 0.3535551 0.4074284 0.6828944 0.6828944 0.000000 28.30439 17.34722 16.69368 13.77316 13.84671 0.6834815 0.6834815 0.6834815 0.3537727 0.4076099 0.6834815 0.6834815 0.000000 28.36285 17.36402 16.71288 13.77942 13.86814 0.6840516 0.6840516 0.6840516 0.3539839 0.4077846 0.6840516 0.6840516 0.000000 28.42019 17.37345 16.73171 13.79545 13.88925 0.6846923 0.6846923 0.6846923 0.3541446 0.4079528 0.6846923 0.6846923 0.000000 28.48272 17.38616 16.74675 13.81621 13.91005 0.6853175 0.6853175 0.6853175 0.3543883 0.4081146 0.6853175 0.6853175 0.000000 28.53730 17.39862 16.76491 13.83369 13.93057 0.6857547 0.6857547 0.6857547 0.3545378 0.4082706 0.6857547 0.6857547 0.000000 28.59783 17.41049 16.77931 13.85386 13.95382 0.6863509 0.6863509 0.6863509 0.3547263 0.4084208 0.6863509 0.6863509 0.000000 28.65120 17.42246 16.79687 13.87376 13.97079 0.6869337 0.6869337 0.6869337 0.3549098 0.4085655 0.6869337 0.6869337 0.000000 28.70370 17.43421 16.81414 13.89042 13.96985 0.6875036 0.6875036 0.6875036 0.3550885 0.4087051 0.6875036 0.6875036 0.000000 28.75539 17.44575 16.82769 13.90983 13.98595 0.6880611 0.6880611 0.6880611 0.3552625 0.4088396 0.6880611 0.6880611 0.000000 28.80628 17.45709 16.84752 13.92902 14.00777 0.6886067 0.6886067 0.6886067 0.3554762 0.4090253 0.6886067 0.6886067 0.000000 1.584833 4.258843 4.974641 5.709061 6.091410 0.6245738 0.6245738 0.6245738 0.3328303 0.3900904 0.6245738 0.6245738 0.000000 20.58388 15.86247 14.75947 11.83605 11.88305 0.6315919 0.6315919 0.6315919 0.3359918 0.3928864 0.6315919 0.6315919 0.000000 22.54723 16.22217 15.15413 12.14227 12.17780 0.6364271 0.6364271 0.6364271 0.3378344 0.3943229 0.6364271 0.6364271 0.000000 23.25650 16.37458 15.33552 12.30138 12.33677 0.6401677 0.6401677 0.6401677 0.3392257 0.3954724 0.6401677 0.6401677 0.000000 23.70798 16.47115 15.45578 12.41566 12.45464 0.6433501 0.6433501 0.6433501 0.3403271 0.3963918 0.6433501 0.6433501 0.000000 24.03866 16.54153 15.54905 12.50941 12.54812 0.6459891 0.6459891 0.6459891 0.3412669 0.3971622 0.6459891 0.6459891 0.000000 24.31223 16.60027 15.62369 12.58761 12.63129 0.6483099 0.6483099 0.6483099 0.3420613 0.3978628 0.6483099 0.6483099 0.000000 24.54794 16.64974 15.69119 12.65876 12.70386 0.6504592 0.6504592 0.6504592 0.3428058 0.3984531 0.6504592 0.6504592 0.000000 24.75065 16.69428 15.75238 12.72271 12.76925 0.6524945 0.6524945 0.6524945 0.3434619 0.3990495 0.6524945 0.6524945 0.000000 24.99859 16.73213 15.80657 12.78109 12.83063 0.6542365 0.6542365 0.6542365 0.3441182 0.3995042 0.6542365 0.6542365 0.000000 25.18961 16.76745 15.85618 12.83762 12.88700 0.6559491 0.6559491 0.6559491 0.3446581 0.4000276 0.6559491 0.6559491 0.000000 25.37206 16.80147 15.90283 12.88756 12.93989 0.6574988 0.6574988 0.6574988 0.3451985 0.4004558 0.6574988 0.6574988 0.000000 25.53675 16.83096 15.94771 12.93522 13.01250 0.6589279 0.6589279 0.6589279 0.3456597 0.4008649 0.6589279 0.6589279 0.000000 25.69389 16.86077 15.98790 12.99970 13.04885 0.6603603 0.6603603 0.6603603 0.3461484 0.4012663 0.6603603 0.6603603 0.000000 25.84484 16.88740 16.02790 13.05159 13.09987 0.6616371 0.6616371 0.6616371 0.3465794 0.4016090 0.6616371 0.6616371 0.000000 25.98587 16.91135 16.06452 13.07993 13.15087 0.6629617 0.6629617 0.6629617 0.3470072 0.4019606 0.6629617 0.6629617 0.000000 26.12313 16.93688 16.10190 13.12479 13.17689 0.6641677 0.6641677 0.6641677 0.3473914 0.4023266 0.6641677 0.6641677 0.000000 26.25343 16.96036 16.13670 13.17042 13.22179 0.6652696 0.6652696 0.6652696 0.3478299 0.4026526 0.6652696 0.6652696 0.000000 26.37675 16.98204 16.16926 13.19129 13.26766 0.6664593 0.6664593 0.6664593 0.3481414 0.4029431 0.6664593 0.6664593 0.000000 26.50030 17.00591 16.20341 13.23199 13.30337 0.6674758 0.6674758 0.6674758 0.3485147 0.4032018 0.6674758 0.6674758 0.000000 26.61642 17.02460 16.23220 13.27106 13.32887 0.6685076 0.6685076 0.6685076 0.3488603 0.4034907 0.6685076 0.6685076 0.000000 26.72903 17.04575 16.26296 13.29665 13.36890 0.6695611 0.6695611 0.6695611 0.3491808 0.4037534 0.6695611 0.6695611 0.000000 26.83710 17.06390 16.29227 13.32584 13.40460 0.6704639 0.6704639 0.6704639 0.3494788 0.4040506 0.6704639 0.6704639 0.000000 26.94739 17.08103 16.32027 13.36010 13.44213 0.6713110 0.6713110 0.6713110 0.3498017 0.4043260 0.6713110 0.6713110 0.000000 27.03945 17.09904 16.34707 13.39327 13.45712 0.6722844 0.6722844 0.6722844 0.3501055 0.4045812 0.6722844 0.6722844 0.000000 27.14223 17.11619 16.37278 13.42545 13.49179 0.6732103 0.6732103 0.6732103 0.3503918 0.4048179 0.6732103 0.6732103 0.000000 27.24182 17.13616 16.40100 13.44764 13.52254 0.6740041 0.6740041 0.6740041 0.3506620 0.4050376 0.6740041 0.6740041 0.000000 27.33217 17.15177 16.42477 13.46843 13.55544 0.6747579 0.6747579 0.6747579 0.3509625 0.4052415 0.6747579 0.6747579 0.000000 27.41981 17.16672 16.45119 13.49739 13.58456 0.6755625 0.6755625 0.6755625 0.3512039 0.4054883 0.6755625 0.6755625 0.000000 27.50973 17.18104 16.47332 13.52859 13.61200 0.6764202 0.6764202 0.6764202 0.3514775 0.4057213 0.6764202 0.6764202 0.000000 27.59235 17.19835 16.49472 13.55615 13.62538 0.6772451 0.6772451 0.6772451 0.3516940 0.4058840 0.6772451 0.6772451 0.000000 27.67278 17.21156 16.51891 13.58308 13.65188 0.6779519 0.6779519 0.6779519 0.3519443 0.4061494 0.6779519 0.6779519 0.000000 27.75745 17.22780 16.54245 13.61244 13.68075 0.6786304 0.6786304 0.6786304 0.3521840 0.4062889 0.6786304 0.6786304 0.000000 27.82767 17.24004 16.56192 13.61708 13.70610 0.6793696 0.6793696 0.6793696 0.3524137 0.4065322 0.6793696 0.6793696 0.000000 27.90865 17.27172 16.58429 13.64181 13.73093 0.6800837 0.6800837 0.6800837 0.3526789 0.4067083 0.6800837 0.6800837 0.000000 27.97437 17.28705 16.60613 13.66606 13.75828 0.6806868 0.6806868 0.6806868 0.3528905 0.4068750 0.6806868 0.6806868 0.000000 28.05198 17.30199 16.62400 13.68985 13.78521 0.6814420 0.6814420 0.6814420 0.3531384 0.4070896 0.6814420 0.6814420 0.000000 28.11561 17.31275 16.64487 13.71320 13.78779 0.6820018 0.6820018 0.6820018 0.3533338 0.4072390 0.6820018 0.6820018 0.000000 28.18409 17.32695 16.66529 13.73616 13.81037 0.6827157 0.6827157 0.6827157 0.3535218 0.4074370 0.6827157 0.6827157 0.000000 28.25125 17.34083 16.68183 13.75874 13.83255 0.6834105 0.6834105 0.6834105 0.3537472 0.4075708 0.6834105 0.6834105 0.000000 28.31091 17.35439 16.70142 13.78398 13.85735 0.6839135 0.6839135 0.6839135 0.3539659 0.4077540 0.6839135 0.6839135 0.000000 28.37564 17.36767 16.71719 13.78503 13.87584 0.6845731 0.6845731 0.6845731 0.3541338 0.4079302 0.6845731 0.6845731 0.000000 28.43925 17.38066 16.73604 13.80317 13.89998 0.6852162 0.6852162 0.6852162 0.3543843 0.4080998 0.6852162 0.6852162 0.000000 28.49554 17.39339 16.75455 13.82396 13.91782 0.6856706 0.6856706 0.6856706 0.3545403 0.4082631 0.6856706 0.6856706 0.000000 28.55013 17.40233 16.77273 13.84445 13.94138 0.6862834 0.6862834 0.6862834 0.3547351 0.4084204 0.6862834 0.6862834 0.000000 28.60442 17.41421 16.78716 13.86168 13.95865 0.6868820 0.6868820 0.6868820 0.3549246 0.4085720 0.6868820 0.6868820 0.000000 28.65780 17.42620 16.80473 13.88162 13.97170 0.6874670 0.6874670 0.6874670 0.3551090 0.4087181 0.6874670 0.6874670 0.000000 28.71032 17.43796 16.81857 13.90131 13.98057 0.6880389 0.6880389 0.6880389 0.3552885 0.4088590 0.6880389 0.6880389 0.000000 28.76201 17.44952 16.84179 13.91776 13.99670 0.6885985 0.6885985 0.6885985 0.3554634 0.4090507 0.6885985 0.6885985 0.000000 28.81291 17.46088 16.85933 13.93698 14.01258 0.6891462 0.6891462 0.6891462 0.3556339 0.4091817 0.6891462 0.6891462 0.000000 1.585001 4.262394 4.975303 5.712266 6.092093 0.6245807 0.6245807 0.6245807 0.3328348 0.3900940 0.6245807 0.6245807 0.000000 20.58572 15.86364 14.76076 11.83731 11.88429 0.6315762 0.6315762 0.6315762 0.3359913 0.3928626 0.6315762 0.6315762 0.000000 22.54940 16.22358 15.15571 12.14152 12.17937 0.6364740 0.6364740 0.6364740 0.3378650 0.3943934 0.6364740 0.6364740 0.000000 23.25901 16.37311 15.33458 12.30114 12.33857 0.6402601 0.6402601 0.6402601 0.3392775 0.3955002 0.6402601 0.6402601 0.000000 23.71078 16.47012 15.45526 12.41766 12.45477 0.6433784 0.6433784 0.6433784 0.3403949 0.3964370 0.6433784 0.6433784 0.000000 24.04170 16.54340 15.54884 12.50978 12.54851 0.6461455 0.6461455 0.6461455 0.3412976 0.3972217 0.6461455 0.6461455 0.000000 24.31550 16.60225 15.62593 12.58993 12.63190 0.6484904 0.6484904 0.6484904 0.3421523 0.3979343 0.6484904 0.6484904 0.000000 24.55140 16.65181 15.69355 12.65954 12.70629 0.6506603 0.6506603 0.6506603 0.3429055 0.3985350 0.6506603 0.6506603 0.000000 24.75070 16.69644 15.75485 12.72529 12.77181 0.6526188 0.6526188 0.6526188 0.3435692 0.3990790 0.6526188 0.6526188 0.000000 25.00250 16.73437 15.80914 12.78378 12.83331 0.6544714 0.6544714 0.6544714 0.3441840 0.3996032 0.6544714 0.6544714 0.000000 25.19371 16.76977 15.85884 12.83885 12.88979 0.6561980 0.6561980 0.6561980 0.3447300 0.4000730 0.6561980 0.6561980 0.000000 25.37633 16.80385 15.90559 12.89046 12.94278 0.6576678 0.6576678 0.6576678 0.3453235 0.4005080 0.6576678 0.6576678 0.000000 25.54117 16.83340 15.95055 12.93821 13.01571 0.6592013 0.6592013 0.6592013 0.3457895 0.4009234 0.6592013 0.6592013 0.000000 25.69847 16.86328 15.99082 13.00614 13.05210 0.6605526 0.6605526 0.6605526 0.3462825 0.4013304 0.6605526 0.6605526 0.000000 25.84955 16.88997 16.03090 13.04295 13.10323 0.6619309 0.6619309 0.6619309 0.3467174 0.4017381 0.6619309 0.6619309 0.000000 25.99071 16.91397 16.06760 13.08337 13.15436 0.6631734 0.6631734 0.6631734 0.3471022 0.4020347 0.6631734 0.6631734 0.000000 26.12809 16.93955 16.10504 13.13143 13.18343 0.6643882 0.6643882 0.6643882 0.3475364 0.4024052 0.6643882 0.6643882 0.000000 26.25851 16.96308 16.13991 13.17145 13.22842 0.6655886 0.6655886 0.6655886 0.3479317 0.4027355 0.6655886 0.6655886 0.000000 26.38839 16.98481 16.17253 13.19495 13.27136 0.6666956 0.6666956 0.6666956 0.3482924 0.4030299 0.6666956 0.6666956 0.000000 26.50559 17.00684 16.20675 13.23575 13.29407 0.6678090 0.6678090 0.6678090 0.3486224 0.4032925 0.6678090 0.6678090 0.000000 26.62179 17.02745 16.23560 13.27491 13.33265 0.6688472 0.6688472 0.6688472 0.3489707 0.4036434 0.6688472 0.6688472 0.000000 26.73450 17.04865 16.26642 13.29419 13.37276 0.6698176 0.6698176 0.6698176 0.3492938 0.4039092 0.6698176 0.6698176 0.000000 26.84900 17.06499 16.29578 13.32975 13.41156 0.6707264 0.6707264 0.6707264 0.3496398 0.4041512 0.6707264 0.6707264 0.000000 26.95301 17.08400 16.32383 13.36409 13.44917 0.6717567 0.6717567 0.6717567 0.3499649 0.4044295 0.6717567 0.6717567 0.000000 27.05146 17.10205 16.35068 13.39733 13.46112 0.6725579 0.6725579 0.6725579 0.3502253 0.4046875 0.6725579 0.6725579 0.000000 27.14799 17.11923 16.37995 13.43260 13.49584 0.6734889 0.6734889 0.6734889 0.3505590 0.4049270 0.6734889 0.6734889 0.000000 27.24764 17.13923 16.40470 13.44575 13.52965 0.6743760 0.6743760 0.6743760 0.3508311 0.4051492 0.6743760 0.6743760 0.000000 27.34435 17.15487 16.42852 13.47557 13.56262 0.6752223 0.6752223 0.6752223 0.3510881 0.4053556 0.6752223 0.6752223 0.000000 27.43203 17.16985 16.45498 13.50458 13.59181 0.6760311 0.6760311 0.6760311 0.3513764 0.4056048 0.6760311 0.6760311 0.000000 27.51570 17.18420 16.47715 13.53287 13.60244 0.6768048 0.6768048 0.6768048 0.3516517 0.4058400 0.6768048 0.6768048 0.000000 27.60464 17.20154 16.50206 13.56347 13.63260 0.6775460 0.6775460 0.6775460 0.3519147 0.4060050 0.6775460 0.6775460 0.000000 27.68511 17.21477 16.52281 13.59047 13.65915 0.6782567 0.6782567 0.6782567 0.3521664 0.4062724 0.6782567 0.6782567 0.000000 27.76355 17.23104 16.54639 13.61072 13.68510 0.6791139 0.6791139 0.6791139 0.3524075 0.4064140 0.6791139 0.6791139 0.000000 27.84635 17.24330 16.56936 13.62442 13.71348 0.6797691 0.6797691 0.6797691 0.3526386 0.4066592 0.6797691 0.6797691 0.000000 27.91482 17.27510 16.59176 13.64921 13.74136 0.6804866 0.6804866 0.6804866 0.3528603 0.4068372 0.6804866 0.6804866 0.000000 27.98682 17.29046 16.61016 13.67350 13.76577 0.6811801 0.6811801 0.6811801 0.3530731 0.4070058 0.6811801 0.6811801 0.000000 28.05821 17.30543 16.63153 13.69734 13.78216 0.6818512 0.6818512 0.6818512 0.3532777 0.4072221 0.6818512 0.6818512 0.000000 28.12811 17.31621 16.64896 13.72074 13.79521 0.6825011 0.6825011 0.6825011 0.3534743 0.4074298 0.6825011 0.6825011 0.000000 28.19662 17.33043 16.66940 13.74375 13.81782 0.6832177 0.6832177 0.6832177 0.3537525 0.4075729 0.6832177 0.6832177 0.000000 28.25754 17.34433 16.68943 13.76938 13.84005 0.6837416 0.6837416 0.6837416 0.3539346 0.4077648 0.6837416 0.6837416 0.000000 28.32973 17.35792 16.70905 13.78865 13.86190 0.6844209 0.6844209 0.6844209 0.3541099 0.4078930 0.6844209 0.6844209 0.000000 28.38822 17.37122 16.72483 13.78963 13.88640 0.6850830 0.6850830 0.6850830 0.3543676 0.4080707 0.6850830 0.6850830 0.000000 28.44560 17.38423 16.74370 13.81077 13.90459 0.6856421 0.6856421 0.6856421 0.3545304 0.4082418 0.6856421 0.6856421 0.000000 28.50817 17.39698 16.75878 13.83159 13.92847 0.6861855 0.6861855 0.6861855 0.3547317 0.4084065 0.6861855 0.6861855 0.000000 28.56275 17.40913 16.77699 13.84914 13.94907 0.6868006 0.6868006 0.6868006 0.3549275 0.4085652 0.6868006 0.6868006 0.000000 28.62330 17.42136 16.79487 13.87236 13.96939 0.6874014 0.6874014 0.6874014 0.3551179 0.4087181 0.6874014 0.6874014 0.000000 28.67669 17.43336 16.81247 13.88935 13.96880 0.6879886 0.6879886 0.6879886 0.3553032 0.4088655 0.6879886 0.6879886 0.000000 28.72922 17.44515 16.82632 13.90907 13.98521 0.6885627 0.6885627 0.6885627 0.3554836 0.4090077 0.6885627 0.6885627 0.000000 28.78092 17.45320 16.84637 13.92855 14.00732 0.6891243 0.6891243 0.6891243 0.3556594 0.4092006 0.6891243 0.6891243 0.000000 28.83183 17.46810 16.86394 13.94480 14.02323 0.6896740 0.6896740 0.6896740 0.3558747 0.4093328 0.6896740 0.6896740 0.000000 1.585164 4.263043 4.978848 5.712918 6.095314 0.6245875 0.6245875 0.6245875 0.3328391 0.3900974 0.6245875 0.6245875 0.000000 20.58749 15.86477 14.76200 11.83853 11.88549 0.6316654 0.6316654 0.6316654 0.3360432 0.3929034 0.6316654 0.6316654 0.000000 22.55151 16.22140 15.15724 12.14305 12.18088 0.6365171 0.6365171 0.6365171 0.3378936 0.3943975 0.6365171 0.6365171 0.000000 23.26145 16.37466 15.33632 12.30290 12.34031 0.6403477 0.6403477 0.6403477 0.3392758 0.3955260 0.6403477 0.6403477 0.000000 23.71349 16.47181 15.45716 12.41771 12.45484 0.6435007 0.6435007 0.6435007 0.3404097 0.3964799 0.6435007 0.6435007 0.000000 24.04466 16.54521 15.55088 12.51189 12.55060 0.6461980 0.6461980 0.6461980 0.3413753 0.3972786 0.6461980 0.6461980 0.000000 24.31866 16.60173 15.62811 12.59218 12.63244 0.6486644 0.6486644 0.6486644 0.3422402 0.3979408 0.6486644 0.6486644 0.000000 24.55475 16.65149 15.69584 12.66193 12.70702 0.6508544 0.6508544 0.6508544 0.3429533 0.3986140 0.6508544 0.6508544 0.000000 24.75422 16.69628 15.75518 12.72779 12.77430 0.6528305 0.6528305 0.6528305 0.3436732 0.3991668 0.6528305 0.6528305 0.000000 25.00629 16.73655 15.80963 12.78639 12.83592 0.6546047 0.6546047 0.6546047 0.3442944 0.3996989 0.6546047 0.6546047 0.000000 25.19769 16.77202 15.86143 12.84000 12.89250 0.6563459 0.6563459 0.6563459 0.3448463 0.4001150 0.6563459 0.6563459 0.000000 25.38046 16.80408 15.90827 12.89328 12.94559 0.6579216 0.6579216 0.6579216 0.3453974 0.4006172 0.6579216 0.6579216 0.000000 25.54546 16.83578 15.95141 12.94112 13.01882 0.6594664 0.6594664 0.6594664 0.3459156 0.4010383 0.6594664 0.6594664 0.000000 25.70291 16.86370 15.99366 13.00935 13.05526 0.6608281 0.6608281 0.6608281 0.3463657 0.4013908 0.6608281 0.6608281 0.000000 25.85412 16.89246 16.03382 13.03895 13.10650 0.6622160 0.6622160 0.6622160 0.3468047 0.4018036 0.6622160 0.6622160 0.000000 25.99541 16.91652 16.07058 13.08673 13.15774 0.6634675 0.6634675 0.6634675 0.3472400 0.4021645 0.6634675 0.6634675 0.000000 26.13289 16.94215 16.10810 13.13489 13.18683 0.6646905 0.6646905 0.6646905 0.3476775 0.4024800 0.6646905 0.6646905 0.000000 26.26343 16.96572 16.14303 13.16109 13.23192 0.6658985 0.6658985 0.6658985 0.3480295 0.4028144 0.6658985 0.6658985 0.000000 26.39342 16.98750 16.17572 13.20155 13.27496 0.6670127 0.6670127 0.6670127 0.3484395 0.4031128 0.6670127 0.6670127 0.000000 26.50916 17.00770 16.21000 13.24243 13.30066 0.6680432 0.6680432 0.6680432 0.3487721 0.4034377 0.6680432 0.6680432 0.000000 26.62700 17.03023 16.23890 13.28169 13.33933 0.6690879 0.6690879 0.6690879 0.3491229 0.4037333 0.6690879 0.6690879 0.000000 26.74616 17.05146 16.26977 13.30092 13.37652 0.6701537 0.6701537 0.6701537 0.3494484 0.4040024 0.6701537 0.6701537 0.000000 26.85438 17.06785 16.29919 13.33356 13.41539 0.6711572 0.6711572 0.6711572 0.3497967 0.4042475 0.6711572 0.6711572 0.000000 26.95847 17.08688 16.32729 13.37097 13.45196 0.6720152 0.6720152 0.6720152 0.3500783 0.4045287 0.6720152 0.6720152 0.000000 27.06329 17.10497 16.35419 13.40429 13.46798 0.6729988 0.6729988 0.6729988 0.3503863 0.4047895 0.6729988 0.6729988 0.000000 27.15988 17.12581 16.38350 13.43662 13.50278 0.6739345 0.6739345 0.6739345 0.3506766 0.4050317 0.6739345 0.6739345 0.000000 27.25328 17.14221 16.40829 13.44974 13.53366 0.6747377 0.6747377 0.6747377 0.3509958 0.4052565 0.6747377 0.6747377 0.000000 27.35004 17.15789 16.43566 13.47962 13.56669 0.6755005 0.6755005 0.6755005 0.3512546 0.4054653 0.6755005 0.6755005 0.000000 27.44408 17.17289 16.45866 13.51167 13.59895 0.6764015 0.6764015 0.6764015 0.3514995 0.4057168 0.6764015 0.6764015 0.000000 27.52149 17.18728 16.48435 13.54002 13.60949 0.6772671 0.6772671 0.6772671 0.3517764 0.4059543 0.6772671 0.6772671 0.000000 27.61047 17.20464 16.50582 13.56769 13.63674 0.6780120 0.6780120 0.6780120 0.3520411 0.4061214 0.6780120 0.6780120 0.000000 27.69726 17.21790 16.53008 13.59774 13.66631 0.6787263 0.6787263 0.6787263 0.3522943 0.4063908 0.6787263 0.6787263 0.000000 27.77574 17.23419 16.55021 13.60334 13.69529 0.6794121 0.6794121 0.6794121 0.3525368 0.4065345 0.6794121 0.6794121 0.000000 27.85230 17.26618 16.57322 13.63166 13.72074 0.6802455 0.6802455 0.6802455 0.3527693 0.4067816 0.6802455 0.6802455 0.000000 27.93334 17.27840 16.59565 13.65352 13.74568 0.6808789 0.6808789 0.6808789 0.3529924 0.4069614 0.6808789 0.6808789 0.000000 27.99908 17.29378 16.61755 13.68083 13.77314 0.6816628 0.6816628 0.6816628 0.3532066 0.4071318 0.6816628 0.6816628 0.000000 28.07050 17.30853 16.63548 13.70471 13.77944 0.6822498 0.6822498 0.6822498 0.3534570 0.4073499 0.6822498 0.6822498 0.000000 28.14043 17.32313 16.65639 13.72816 13.80251 0.6829896 0.6829896 0.6829896 0.3536993 0.4075592 0.6829896 0.6829896 0.000000 28.20270 17.33738 16.67686 13.75121 13.82516 0.6835353 0.6835353 0.6835353 0.3538896 0.4077039 0.6835353 0.6835353 0.000000 28.27616 17.34774 16.69345 13.77389 13.84742 0.6842356 0.6842356 0.6842356 0.3540729 0.4078974 0.6842356 0.6842356 0.000000 28.33585 17.36490 16.71309 13.77852 13.87230 0.6849175 0.6849175 0.6849175 0.3543380 0.4080272 0.6849175 0.6849175 0.000000 28.40062 17.37467 16.73235 13.80003 13.89086 0.6855820 0.6855820 0.6855820 0.3545080 0.4082064 0.6855820 0.6855820 0.000000 28.46427 17.39125 16.75125 13.81824 13.91508 0.6860570 0.6860570 0.6860570 0.3547162 0.4083789 0.6860570 0.6860570 0.000000 28.51991 17.40047 16.76635 13.83910 13.93600 0.6866894 0.6866894 0.6866894 0.3549185 0.4085450 0.6866894 0.6866894 0.000000 28.57518 17.41263 16.78457 13.85966 13.95663 0.6873067 0.6873067 0.6873067 0.3551151 0.4087051 0.6873067 0.6873067 0.000000 28.62950 17.42488 16.79903 13.87695 13.97699 0.6879097 0.6879097 0.6879097 0.3553064 0.4088593 0.6879097 0.6879097 0.000000 28.68290 17.43690 16.81664 13.89995 13.97627 0.6884990 0.6884990 0.6884990 0.3554927 0.4090080 0.6884990 0.6884990 0.000000 28.73544 17.44870 16.84007 13.91671 13.99568 0.6890752 0.6890752 0.6890752 0.3556739 0.4092073 0.6890752 0.6890752 0.000000 28.78714 17.46029 16.85791 13.93623 14.01186 0.6896389 0.6896389 0.6896389 0.3558505 0.4093455 0.6896389 0.6896389 0.000000 28.83806 17.47169 16.87552 13.95552 14.03077 0.6900183 0.6900183 0.6900183 0.3560227 0.4095347 0.6900183 0.6900183 0.000000 + 1269.805 1837.409 1272.053 208.2833 208.4686 1407.480 1407.480 1407.480 1068.228 1771.183 1407.480 1407.480 0.000000 172.5979 334.4393 225.9878 38.55458 38.65576 380.4521 380.4521 380.4521 321.8696 518.9452 380.4521 380.4521 0.000000 112.4106 231.9879 155.1631 26.65950 26.72612 282.2101 282.2101 282.2101 242.2185 388.9676 282.2101 282.2101 0.000000 87.68925 188.5035 125.4906 21.65905 21.71515 237.2703 237.2703 237.2703 204.9863 328.5291 237.2703 237.2703 0.000000 73.89696 163.3089 108.4175 18.77021 18.81976 210.0122 210.0122 210.0122 182.1409 291.5470 210.0122 210.0122 0.000000 64.94051 146.4751 97.04727 16.83755 16.88369 191.1596 191.1596 191.1596 166.2168 265.8246 191.1596 191.1596 1.7487732E-19 58.56982 134.2145 88.78371 15.43338 15.47646 177.0801 177.0801 177.0801 154.2740 246.5625 177.0801 177.0801 1.4263371E-19 53.76711 124.7754 82.45055 14.35361 14.39386 166.0478 166.0478 166.0478 144.8623 231.4029 166.0478 166.0478 2.6104843E+20 49.99426 117.2289 77.38987 13.48830 13.52804 157.0754 157.0754 157.0754 137.1939 219.0497 157.0754 157.0754 7.7594923E+26 46.93007 111.0157 73.22423 12.77623 12.81548 149.5828 149.5828 149.5828 130.7752 208.7184 149.5828 149.5828 1.7120534E+29 44.37946 105.7749 69.72826 12.17729 12.21407 143.2069 143.2069 143.2069 125.2938 199.9026 143.2069 143.2069 7.1479174E+22 42.22591 101.2650 66.73099 11.66472 11.69920 137.6840 137.6840 137.6840 120.5463 192.2581 137.6840 137.6840 5.5285247E+13 40.36395 97.35995 64.12295 11.21810 11.25228 132.8454 132.8454 132.8454 116.3648 185.5532 132.8454 132.8454 1.6047109E-19 38.74266 93.90124 61.83701 10.82416 10.85803 128.5418 128.5418 128.5418 112.6569 179.5874 128.5418 128.5418 1.3563156E-19 37.31607 90.84210 59.80322 10.47492 10.50853 124.6953 124.6953 124.6953 109.3317 174.2502 124.6953 124.6953 1.3563156E-19 36.03919 88.07732 57.97770 10.16109 10.19442 121.2220 121.2220 121.2220 106.3221 169.4178 121.2220 121.2220 5.2376943E+28 34.90160 85.59461 56.32660 9.876926 9.909996 118.0637 118.0637 118.0637 103.5909 165.0319 118.0637 118.0637 1.3563156E-19 33.86717 83.33465 54.83389 9.617950 9.650747 115.1745 115.1745 115.1745 101.0869 161.0185 115.1745 115.1745 4.0365219E+15 32.92497 81.24724 53.45695 9.382211 9.414779 112.5261 112.5261 112.5261 98.78251 157.3265 112.5261 112.5261 1.3563156E-19 32.06686 79.34309 52.19962 9.165077 9.197413 110.0706 110.0706 110.0706 96.65186 153.9043 110.0706 110.0706 1.3563167E-19 31.27721 77.58261 51.03724 8.964156 8.996257 107.8004 107.8004 107.8004 94.67362 150.7375 107.8004 107.8004 2.8956634E+32 30.55207 75.94823 49.95817 8.779067 8.809353 105.6777 105.6777 105.6777 92.83732 147.7873 105.6777 105.6777 1.9341669E+31 29.87934 74.42527 48.95269 8.604956 8.636643 103.7018 103.7018 103.7018 91.11322 145.0295 103.7018 103.7018 5.3616977E+31 29.24830 73.01826 48.02229 8.443570 8.473495 101.8494 101.8494 101.8494 89.50314 142.4436 101.8494 101.8494 1.6025148E-19 28.66315 71.68257 47.14046 8.292162 8.321918 100.1070 100.1070 100.1070 87.98181 140.0120 100.1070 100.1070 0.000000 28.11483 70.42630 46.32051 8.149703 8.179289 98.46533 98.46533 98.46533 86.55405 137.7195 98.46533 98.46533 0.000000 27.60404 69.25824 45.53829 8.015321 8.044742 96.91409 96.91409 96.91409 85.19769 135.5532 96.91409 96.91409 0.000000 27.11416 68.13847 44.80816 7.888255 7.917511 95.44507 95.44507 95.44507 83.91951 133.5014 95.44507 95.44507 0.000000 26.66014 67.07768 44.11678 7.767838 7.796937 94.05105 94.05105 94.05105 82.70633 131.5543 94.05105 94.05105 0.000000 26.23060 66.08679 43.46072 7.654941 7.683915 92.72568 92.72568 92.72568 81.54597 129.7030 92.72568 92.72568 0.000000 25.81911 65.12909 42.83701 7.546144 7.574963 91.46334 91.46334 91.46334 80.44704 127.9483 91.46334 91.46334 0.000000 25.42813 64.23238 42.24299 7.443875 7.472569 90.26656 90.26656 90.26656 79.39849 126.2660 90.26656 90.26656 0.000000 25.06019 63.37710 41.67630 7.344885 7.373423 89.11580 89.11580 89.11580 78.39648 124.6585 89.11580 89.11580 0.000000 24.70952 62.54470 41.13485 7.251632 7.280044 88.01467 88.01467 88.01467 77.43756 123.1203 88.01467 88.01467 0.000000 24.37477 61.76330 40.61675 7.162380 7.190668 86.96692 86.96692 86.96692 76.51225 121.6466 86.96692 86.96692 0.000000 24.05477 61.01472 40.12032 7.075476 7.105009 85.95461 85.95461 85.95461 75.63061 120.2327 85.95461 85.95461 0.000000 23.74843 60.28169 39.64402 6.993400 7.022805 84.98943 84.98943 84.98943 74.78368 118.8827 84.98943 84.98943 0.000000 23.45883 59.59231 39.18652 6.914541 6.943820 84.05428 84.05428 84.05428 73.96917 117.5767 84.05428 84.05428 0.000000 23.17700 58.92952 38.75497 6.838699 6.867844 83.16111 83.16111 83.16111 73.18501 116.3195 83.16111 83.16111 0.000000 22.91019 58.29161 38.33133 6.765659 6.794681 82.29349 82.29349 82.29349 72.42929 115.1080 82.29349 82.29349 0.000000 22.64970 57.67694 37.93135 6.696572 6.724151 81.46358 81.46358 81.46358 71.70030 113.9474 81.46358 81.46358 0.000000 22.39888 57.08421 37.53744 6.628636 6.656101 80.65549 80.65549 80.65549 70.99645 112.8193 80.65549 80.65549 0.000000 22.15714 56.49758 37.15708 6.563030 6.590381 79.88152 79.88152 79.88152 70.31628 111.7292 79.88152 79.88152 0.000000 21.93163 55.94488 36.79763 6.499617 6.526850 79.13312 79.13312 79.13312 69.65845 110.6828 79.13312 79.13312 0.000000 21.70638 55.41045 36.45012 6.439549 6.466703 78.40144 78.40144 78.40144 69.02174 109.6625 78.40144 78.40144 0.000000 21.48869 54.89326 36.10581 6.380149 6.407193 77.70010 77.70010 77.70010 68.40500 108.6744 77.70010 77.70010 0.000000 21.28571 54.39238 35.78025 6.322597 6.350824 77.02038 77.02038 77.02038 67.80717 107.7242 77.02038 77.02038 0.000000 21.08185 53.90694 35.46479 6.268042 6.294904 76.36116 76.36116 76.36116 67.23316 106.7952 76.36116 76.36116 0.000000 20.88437 53.43613 35.15098 6.213889 6.240638 75.71472 75.71472 75.71472 66.67027 105.8936 75.71472 75.71472 0.000000 20.70038 52.97921 34.85418 6.162549 6.189221 75.09350 75.09350 75.09350 66.12357 105.0255 75.09350 75.09350 0.000000 1174.938 1574.972 1103.040 178.7770 178.9779 987.1253 987.1253 987.1253 693.8489 1173.979 987.1253 987.1253 0.000000 138.5180 234.0904 160.2816 26.90192 26.96836 220.3240 220.3240 220.3240 179.2350 291.3378 220.3240 220.3240 0.000000 84.23626 152.6450 103.5040 17.54591 17.59219 158.5227 158.5227 158.5227 132.0831 213.2262 158.5227 158.5227 0.000000 63.24807 120.0319 80.96862 13.80994 13.84976 131.3963 131.3963 131.3963 110.7245 178.1359 131.3963 131.3963 0.000000 51.90810 101.7951 68.42056 11.72177 11.75813 115.3044 115.3044 115.3044 97.82694 157.0549 115.3044 115.3044 0.000000 44.71443 89.85420 60.27071 10.36077 10.39415 104.3389 104.3389 104.3389 88.94033 142.5623 104.3389 104.3389 0.000000 39.69384 81.31723 54.47054 9.390760 9.423283 96.24624 96.24624 96.24624 82.32407 131.7998 96.24624 96.24624 0.000000 35.97276 74.87283 50.09354 8.655941 8.686042 89.94942 89.94942 89.94942 77.14412 123.3904 89.94942 89.94942 0.000000 33.08792 69.77570 46.64341 8.074749 8.104169 84.86595 84.86595 84.86595 72.94238 116.5719 84.86595 84.86595 0.000000 30.76847 65.63205 43.83915 7.602287 7.632591 80.64868 80.64868 80.64868 69.43730 110.9001 80.64868 80.64868 0.000000 28.86393 62.18473 41.50570 7.209487 7.237794 77.07542 77.07542 77.07542 66.45233 106.0770 77.07542 77.07542 0.000000 27.26954 59.23457 39.52784 6.874474 6.903648 73.99165 73.99165 73.99165 63.87374 101.9069 73.99165 73.99165 0.000000 25.90541 56.71078 37.81814 6.585561 6.614229 71.29911 71.29911 71.29911 61.61153 98.25234 71.29911 71.29911 0.000000 24.73025 54.48655 36.32885 6.334651 6.361598 68.90945 68.90945 68.90945 59.61002 95.01328 68.90945 68.90945 0.000000 23.69926 52.53019 35.01847 6.111064 6.137601 66.78545 66.78545 66.78545 57.81255 92.12193 66.78545 66.78545 0.000000 22.78565 50.79541 33.84815 5.912215 5.938389 64.86551 64.86551 64.86551 56.19499 89.50753 64.86551 64.86551 0.000000 21.96902 49.22035 32.79445 5.734106 5.759955 63.12862 63.12862 63.12862 54.72468 87.13914 63.12862 63.12862 0.000000 21.24111 47.80440 31.84637 5.571300 5.597984 61.54239 61.54239 61.54239 53.38005 84.97478 61.54239 61.54239 0.000000 20.58157 46.51266 30.97447 5.424839 5.451219 60.08573 60.08573 60.08573 52.14373 82.98614 60.08573 60.08573 0.000000 19.98044 45.31524 30.18167 5.289303 5.315362 58.74149 58.74149 58.74149 51.00156 81.15017 58.74149 58.74149 0.000000 19.42968 44.23553 29.45803 5.165349 5.191123 57.50115 57.50115 57.50115 49.94669 79.44787 57.50115 57.50115 0.000000 18.92970 43.22435 28.78162 5.050531 5.077135 56.34126 56.34126 56.34126 48.95966 77.86341 56.34126 56.34126 0.000000 18.46086 42.28450 28.15984 4.944824 4.970079 55.26397 55.26397 55.26397 48.04190 76.38348 55.26397 55.26397 0.000000 18.03257 41.41959 27.58019 4.845163 4.870157 54.25494 54.25494 54.25494 47.18164 74.99681 54.25494 54.25494 0.000000 17.63060 40.61061 27.03802 4.752887 4.778711 53.30707 53.30707 53.30707 46.36837 73.69961 53.30707 53.30707 0.000000 17.25516 39.85171 26.52941 4.666271 4.690816 52.41425 52.41425 52.41425 45.60625 72.47184 52.41425 52.41425 0.000000 16.90672 39.12646 26.05740 4.584746 4.610106 51.57081 51.57081 51.57081 44.88620 71.31223 51.57081 51.57081 0.000000 16.57954 38.45335 25.60610 4.507817 4.532953 50.77299 50.77299 50.77299 44.20320 70.22022 50.77299 50.77299 0.000000 16.35570 37.81710 25.17947 4.436046 4.459983 50.02145 50.02145 50.02145 43.55627 69.17896 50.02145 50.02145 0.000000 16.06678 37.22536 24.78153 4.367080 4.391812 49.30239 49.30239 49.30239 42.94126 68.19490 49.30239 49.30239 0.000000 15.80019 36.65316 24.40396 4.301584 4.327091 48.62287 48.62287 48.62287 42.35553 67.25266 48.62287 48.62287 0.000000 15.54136 36.10897 24.04502 4.240215 4.265534 47.97005 47.97005 47.97005 41.80108 66.35950 47.97005 47.97005 0.000000 15.29584 35.59060 23.70325 4.181751 4.206885 47.35146 47.35146 47.35146 41.26719 65.50653 47.35146 47.35146 0.000000 15.06831 35.09599 23.37723 4.125964 4.150919 46.75990 46.75990 46.75990 40.75634 64.68539 46.75990 46.75990 0.000000 14.85181 34.63376 23.06580 4.072649 4.097429 46.19338 46.19338 46.19338 40.26687 63.90414 46.19338 46.19338 0.000000 14.64550 34.19168 22.76786 4.021620 4.046229 45.65014 45.65014 45.65014 39.80146 63.15496 45.65014 45.65014 0.000000 14.44859 33.75801 22.48241 3.972718 3.997161 45.12380 45.12380 45.12380 39.35038 62.43565 45.12380 45.12380 0.000000 14.26041 33.34188 22.20862 3.925795 3.950994 44.62251 44.62251 44.62251 38.92070 61.73904 44.62251 44.62251 0.000000 14.08033 32.95222 21.95140 3.881608 3.906666 44.14012 44.14012 44.14012 38.50308 61.07373 44.14012 44.14012 0.000000 13.90779 32.57768 21.69854 3.839130 3.863135 43.67997 43.67997 43.67997 38.10468 60.43288 43.67997 43.67997 0.000000 13.74230 32.20732 21.46078 3.797371 3.821221 43.23190 43.23190 43.23190 37.71645 59.81495 43.23190 43.23190 0.000000 13.58338 31.86025 21.22621 3.757119 3.781714 42.79943 42.79943 42.79943 37.34560 59.21860 42.79943 42.79943 0.000000 13.43061 31.52561 20.99998 3.719155 3.743619 42.38168 42.38168 42.38168 36.98336 58.64255 42.38168 42.38168 0.000000 13.27894 31.20267 20.79262 3.682513 3.705964 41.97778 41.97778 41.97778 36.63695 58.08564 41.97778 41.97778 0.000000 13.13720 30.89074 20.58152 3.646260 3.670446 41.58697 41.58697 41.58697 36.30173 57.54682 41.58697 41.58697 0.000000 13.00056 30.57957 20.37738 3.611195 3.636105 41.21302 41.21302 41.21302 35.97320 57.02509 41.21302 41.21302 0.000000 12.86872 30.28788 20.19061 3.578935 3.602006 40.84626 40.84626 40.84626 35.65861 56.51954 40.84626 40.84626 0.000000 12.74722 30.00546 19.99916 3.546037 3.570692 40.49058 40.49058 40.49058 35.35351 56.02934 40.49058 40.49058 0.000000 12.62416 29.73181 19.81894 3.514972 3.538651 40.14986 40.14986 40.14986 35.05743 55.55369 40.14986 40.14986 0.000000 12.50513 29.46646 19.64423 3.484850 3.509264 39.81468 39.81468 39.81468 34.76610 55.09187 39.81468 39.81468 0.000000 1148.285 1501.206 1055.534 170.4866 170.6949 868.8746 868.8746 868.8746 588.5657 1005.969 868.8746 868.8746 0.000000 128.6353 205.3781 141.5731 23.59629 23.65558 175.2660 175.2660 175.2660 139.1073 227.3129 175.2660 175.2660 0.000000 76.22814 130.0800 88.84866 14.96102 15.00131 123.7094 123.7094 123.7094 101.0885 163.7882 123.7094 123.7094 0.000000 56.32458 100.5737 68.32704 11.58243 11.61862 101.5803 101.5803 101.5803 84.18468 135.8185 101.5803 101.5803 0.000000 45.68317 84.24572 57.08322 9.722818 9.755585 88.62105 88.62105 88.62105 74.08929 119.2070 88.62105 88.62105 0.000000 38.99380 73.71794 49.83937 8.525129 8.555047 79.87770 79.87770 79.87770 67.18508 107.8779 79.87770 79.87770 0.000000 34.35792 66.27925 44.73926 7.676661 7.705569 73.46609 73.46609 73.46609 62.06408 99.51024 73.46609 73.46609 0.000000 30.93983 60.68718 40.91507 7.039138 7.067161 68.50774 68.50774 68.50774 58.07420 92.99259 68.50774 68.50774 0.000000 28.30634 56.30210 37.92509 6.540157 6.567412 64.51498 64.51498 64.51498 54.84217 87.73765 64.51498 64.51498 0.000000 26.20649 52.75492 35.50674 6.135371 6.163190 61.21887 61.21887 61.21887 52.15665 83.36651 61.21887 61.21887 0.000000 24.48542 49.80328 33.50302 5.800240 5.827395 58.42879 58.42879 58.42879 49.87872 79.66329 58.42879 58.42879 0.000000 23.04188 47.32402 31.81851 5.516600 5.543151 56.03054 56.03054 56.03054 47.90535 76.46751 56.03054 56.03054 0.000000 21.82562 45.17536 30.36062 5.272875 5.298881 53.94136 53.94136 53.94136 46.18519 73.67714 53.94136 53.94136 0.000000 20.76677 43.31048 29.10145 5.060842 5.086355 52.09522 52.09522 52.09522 44.65548 71.20216 52.09522 52.09522 0.000000 19.84716 41.67561 27.99036 4.874477 4.899542 50.44722 50.44722 50.44722 43.29235 68.99595 50.44722 50.44722 0.000000 19.04142 40.20728 27.00701 4.708235 4.732876 48.96930 48.96930 48.96930 42.06297 67.00827 48.96930 48.96930 0.000000 18.31994 38.90998 26.12394 4.558712 4.583973 47.62954 47.62954 47.62954 40.95055 65.20464 47.62954 47.62954 0.000000 17.67518 37.72552 25.32512 4.425229 4.449123 46.41209 46.41209 46.41209 39.92990 63.56306 46.41209 46.41209 0.000000 17.09551 36.65768 24.60411 4.302680 4.327206 45.29057 45.29057 45.29057 38.99609 62.05093 45.29057 45.29057 2.7091864E-29 16.56519 35.66952 23.94431 4.191319 4.215512 44.26116 44.26116 44.26116 38.13398 60.66096 44.26116 44.26116 0.000000 16.16553 34.78096 23.34339 4.088810 4.113630 43.30779 43.30779 43.30779 37.33463 59.36811 43.30779 43.30779 0.000000 15.72892 33.93968 22.78259 3.994926 4.019451 42.42158 42.42158 42.42158 36.59058 58.17040 42.42158 42.42158 0.000000 15.32653 33.17897 22.26809 3.906905 3.931116 41.59468 41.59468 41.59468 35.89557 57.05244 41.59468 41.59468 0.000000 14.95972 32.47095 21.78925 3.825767 3.850610 40.82505 40.82505 40.82505 35.24428 56.00556 40.82505 40.82505 0.000000 14.61925 31.79987 21.34206 3.749944 3.774502 40.10259 40.10259 40.10259 34.63599 55.01756 40.10259 40.10259 0.000000 14.30217 31.18062 20.92317 3.679725 3.703153 39.41816 39.41816 39.41816 34.05917 54.09177 39.41816 39.41816 0.000000 14.00600 30.58931 20.53513 3.612898 3.636949 38.77645 38.77645 38.77645 33.51800 53.22252 38.77645 38.77645 0.000000 13.72857 30.04157 20.16984 3.549920 3.574574 38.16917 38.16917 38.16917 33.00576 52.39556 38.16917 38.16917 0.000000 13.46807 29.52448 19.81977 3.491252 3.515674 37.59380 37.59380 37.59380 32.51625 51.61149 37.59380 37.59380 0.000000 13.21808 29.03522 19.49383 3.435735 3.459927 37.04732 37.04732 37.04732 32.05453 50.86662 37.04732 37.04732 0.000000 12.98649 28.57136 19.18489 3.383090 3.407063 36.53149 36.53149 36.53149 31.61495 50.15771 36.53149 36.53149 0.000000 12.77337 28.13980 18.89155 3.333069 3.357659 36.03581 36.03581 36.03581 31.19572 49.48636 36.03581 36.03581 0.000000 12.56595 27.72036 18.61251 3.286258 3.310653 35.56256 35.56256 35.56256 30.79529 48.84101 35.56256 35.56256 0.000000 12.36914 27.32946 18.35166 3.241652 3.265048 35.11386 35.11386 35.11386 30.41224 48.22388 35.11386 35.11386 0.000000 12.18775 26.94768 18.09785 3.198298 3.221502 34.68062 34.68062 34.68062 30.04531 47.63729 34.68062 34.68062 0.000000 12.00962 26.58263 17.85524 3.156845 3.181447 34.26921 34.26921 34.26921 29.69336 47.07061 34.26921 34.26921 0.000000 11.84540 26.24177 17.62304 3.117916 3.141549 33.87041 33.87041 33.87041 29.35538 46.53089 33.87041 33.87041 0.000000 11.68322 25.91516 17.40536 3.080606 3.104075 33.49103 33.49103 33.49103 29.03382 46.00797 33.49103 33.49103 0.000000 11.53028 25.59333 17.19660 3.044053 3.068115 33.12608 33.12608 33.12608 28.72103 45.50904 33.12608 33.12608 0.000000 11.38170 25.29249 16.99134 3.010416 3.033565 32.77464 32.77464 32.77464 28.41965 45.02858 32.77464 32.77464 0.000000 11.24476 25.00323 16.79868 2.976602 3.000338 32.43587 32.43587 32.43587 28.13232 44.56123 32.43587 32.43587 0.000000 11.11352 24.71650 16.61329 2.945506 2.969108 32.10900 32.10900 32.10900 27.85171 44.11438 32.10900 32.10900 0.000000 10.98763 24.45658 16.43000 2.914092 2.937519 31.79333 31.79333 31.79333 27.58059 43.68283 31.79333 31.79333 0.000000 10.86137 24.18968 16.26252 2.885230 2.908529 31.48792 31.48792 31.48792 27.32167 43.26161 31.48792 31.48792 0.000000 10.74520 23.94003 16.09172 2.855937 2.879812 31.19271 31.19271 31.19271 27.06791 42.85814 31.19271 31.19271 0.000000 10.63343 23.69884 15.93585 2.829051 2.852060 30.90691 30.90691 30.90691 26.82536 42.46655 30.90691 30.90691 0.000000 10.52052 23.46564 15.77611 2.801639 2.825956 30.63001 30.63001 30.63001 26.58713 42.08817 30.63001 30.63001 0.000000 10.41684 23.23996 15.63057 2.776512 2.800706 30.36154 30.36154 30.36154 26.35925 41.72133 30.36154 30.36154 0.000000 10.31684 23.02143 15.48071 2.752190 2.774812 30.10474 30.10474 30.10474 26.13812 41.36147 30.10474 30.10474 0.000000 10.22032 22.80967 15.34441 2.727230 2.751142 29.85184 29.85184 29.85184 25.92028 41.01602 29.85184 29.85184 0.000000 1134.698 1463.667 1031.366 166.2693 166.4789 808.7169 808.7169 808.7169 534.9730 920.4088 808.7169 808.7169 0.000000 123.5600 190.6961 132.0105 21.90828 21.96406 152.3116 152.3116 152.3116 118.6791 194.7220 152.3116 152.3116 0.000000 72.13705 118.5575 81.36843 13.64097 13.68058 105.9696 105.9696 105.9696 85.30481 138.6202 105.9696 105.9696 0.000000 52.78735 90.59193 61.88153 10.44599 10.47937 86.38725 86.38725 86.38725 70.67307 114.2757 86.38725 86.38725 0.000000 42.51025 75.28674 51.28917 8.703338 8.733407 75.02818 75.02818 75.02818 61.99999 99.93465 75.02818 75.02818 0.000000 36.07575 65.49234 44.52068 7.586036 7.614796 67.41207 67.41207 67.41207 56.09776 90.21378 67.41207 67.41207 0.000000 31.64098 58.59193 39.76987 6.800644 6.828280 61.85870 61.85870 61.85870 51.73992 83.06330 61.85870 61.85870 0.000000 28.37716 53.43804 36.22905 6.214161 6.240843 57.57402 57.57402 57.57402 48.35434 77.51113 57.57402 57.57402 0.000000 25.87338 49.41095 33.47016 5.755662 5.782711 54.14332 54.14332 54.14332 45.61774 73.04618 54.14332 54.14332 0.000000 23.87795 46.17593 31.25275 5.385955 5.412199 51.30848 51.30848 51.30848 43.35125 69.34513 51.30848 51.30848 0.000000 22.24974 43.49239 29.42103 5.080756 5.106304 48.92368 48.92368 48.92368 41.42459 66.21022 48.92368 48.92368 0.000000 20.89070 41.23298 27.87852 4.823128 4.848040 46.87342 46.87342 46.87342 39.76944 63.51402 46.87342 46.87342 0.000000 19.74093 39.29019 26.55278 4.602282 4.627657 45.08990 45.08990 45.08990 38.32103 61.15304 45.08990 45.08990 0.000000 18.75199 37.60794 25.41037 4.411542 4.435393 43.52057 43.52057 43.52057 37.03884 59.07568 43.52057 43.52057 0.000000 17.88822 36.12557 24.40438 4.242391 4.266726 42.12156 42.12156 42.12156 35.89272 57.21661 42.12156 42.12156 0.000000 17.13255 34.81711 23.50977 4.093578 4.118421 40.86399 40.86399 40.86399 34.86349 55.54787 40.86399 40.86399 0.000000 16.53692 33.64361 22.71915 3.959101 3.983474 39.72933 39.72933 39.72933 33.92934 54.03022 39.72933 39.72933 0.000000 15.94406 32.58341 21.99972 3.839245 3.863220 38.69514 38.69514 38.69514 33.07614 52.65000 38.69514 38.69514 0.000000 15.40308 31.61937 21.35138 3.730225 3.753822 37.74678 37.74678 37.74678 32.29256 51.38371 37.74678 37.74678 0.000000 14.92352 30.74739 20.76443 3.630502 3.654612 36.87329 36.87329 36.87329 31.57298 50.22071 36.87329 36.87329 0.000000 14.48626 29.94630 20.22013 3.538816 3.563422 36.06899 36.06899 36.06899 30.90258 49.13942 36.06899 36.06899 0.000000 14.07950 29.20697 19.71788 3.455780 3.480072 35.32145 35.32145 35.32145 30.28220 48.13408 35.32145 35.32145 0.000000 13.71091 28.52180 19.26294 3.377223 3.401166 34.62474 34.62474 34.62474 29.70295 47.20035 34.62474 34.62474 0.000000 13.37173 27.89345 18.82990 3.305691 3.329347 33.97292 33.97292 33.97292 29.16036 46.32212 33.97292 33.97292 0.000000 13.05554 27.30734 18.43588 3.238940 3.262317 33.36514 33.36514 33.36514 28.65398 45.50179 33.36514 33.36514 0.000000 12.76717 26.75009 18.06737 3.176455 3.199569 32.78947 32.78947 32.78947 28.17377 44.72964 32.78947 32.78947 0.000000 12.49257 26.23550 17.72168 3.117802 3.140657 32.25019 32.25019 32.25019 27.72029 44.00101 32.25019 32.25019 0.000000 12.24126 25.75128 17.39166 3.062594 3.085204 31.74034 31.74034 31.74034 27.29434 43.31187 31.74034 31.74034 0.000000 12.00007 25.29457 17.08519 3.010507 3.034418 31.25319 31.25319 31.25319 26.88721 42.65870 31.25319 31.25319 0.000000 11.77880 24.86282 16.80035 2.961256 2.984917 30.79827 30.79827 30.79827 26.50348 42.03739 30.79827 30.79827 0.000000 11.56704 24.46206 16.52604 2.914586 2.938007 30.35829 30.35829 30.35829 26.13825 41.44723 30.35829 30.35829 0.000000 11.37024 24.07373 16.26576 2.871003 2.894959 29.94627 29.94627 29.94627 25.78687 40.88478 29.94627 29.94627 0.000000 11.17873 23.70446 16.01837 2.829571 2.852574 29.54951 29.54951 29.54951 25.45435 40.34787 29.54951 29.54951 0.000000 11.00253 23.35269 15.78277 2.789403 2.813654 29.17027 29.17027 29.17027 25.13632 39.83459 29.17027 29.17027 0.000000 10.83537 23.02502 15.56714 2.752483 2.775099 28.81082 28.81082 28.81082 24.83105 39.34319 28.81082 28.81082 0.000000 10.67651 22.71213 15.35244 2.715840 2.739687 28.46283 28.46283 28.46283 24.53897 38.87596 28.46283 28.46283 0.000000 10.52534 22.40515 15.14706 2.682156 2.705831 28.13236 28.13236 28.13236 24.25852 38.42380 28.13236 28.13236 0.000000 10.38653 22.11871 14.95917 2.648537 2.672003 27.81142 27.81142 27.81142 23.98893 37.98930 27.81142 27.81142 0.000000 10.24379 21.84410 14.77043 2.617642 2.640946 27.50615 27.50615 27.50615 23.72949 37.57505 27.50615 27.50615 0.000000 10.11001 21.57293 14.59787 2.587319 2.611143 27.21199 27.21199 27.21199 23.48252 37.17249 27.21199 27.21199 0.000000 9.984248 21.32722 14.42358 2.558173 2.582511 26.92877 26.92877 26.92877 23.24149 36.78812 26.92877 26.92877 0.000000 9.868937 21.07608 14.26441 2.530793 2.553601 26.65556 26.65556 26.65556 23.00885 36.41365 26.65556 26.65556 0.000000 9.753435 20.84888 14.10276 2.504435 2.527100 26.39176 26.39176 26.39176 22.78410 36.05565 26.39176 26.39176 0.000000 9.642588 20.61533 13.95530 2.477723 2.501563 26.13683 26.13683 26.13683 22.56967 35.70969 26.13683 26.13683 0.000000 9.536105 20.40447 13.80481 2.453237 2.476932 25.89027 25.89027 25.89027 22.35937 35.37148 25.89027 25.89027 0.000000 9.433722 20.18649 13.66773 2.429601 2.453153 25.65161 25.65161 25.65161 22.15855 35.04763 25.65161 25.65161 0.000000 9.340222 19.99009 13.53536 2.406766 2.430182 25.42043 25.42043 25.42043 21.96115 34.73037 25.42043 25.42043 0.000000 9.240294 19.78595 13.39924 2.383410 2.407970 25.19632 25.19632 25.19632 21.76971 34.42632 25.19632 25.19632 0.000000 9.153810 19.60243 13.27557 2.362056 2.385821 24.97893 24.97893 24.97893 21.58671 34.13139 24.97893 24.97893 0.000000 9.065550 19.41773 13.15588 2.341378 2.364359 24.76790 24.76790 24.76790 21.40905 33.84513 24.76790 24.76790 0.000000 1126.210 1440.192 1016.248 163.6317 163.8430 771.0664 771.0664 771.0664 501.4567 866.9557 771.0664 771.0664 0.000000 120.3511 181.4837 126.0307 20.85023 20.90422 137.9633 137.9633 137.9633 105.9018 174.3287 137.9633 137.9633 0.000000 69.57373 111.3452 76.67261 12.81333 12.85025 94.87736 94.87736 94.87736 75.42585 122.8741 94.87736 94.87736 0.000000 50.58320 84.33776 57.83210 9.734640 9.767401 76.88236 76.88236 76.88236 62.21290 100.8012 76.88236 76.88236 0.000000 40.52897 69.67930 47.64952 8.062615 8.093464 66.52145 66.52145 66.52145 54.43249 87.88349 66.52145 66.52145 0.000000 34.24989 60.32386 41.17658 6.998624 7.026555 59.61303 59.61303 59.61303 49.15954 79.16047 59.61303 59.61303 0.000000 29.93124 53.78114 36.65657 6.252163 6.280172 54.58853 54.58853 54.58853 45.27787 72.76998 54.58853 54.58853 0.000000 26.77155 48.89734 33.29052 5.697484 5.723212 50.72739 50.72739 50.72739 42.26806 67.82603 50.72739 50.72739 0.000000 24.34453 45.10299 30.68134 5.265011 5.290991 47.64414 47.64414 47.64414 39.84463 63.85384 47.64414 47.64414 0.000000 22.41708 42.05079 28.58920 4.917112 4.942262 45.11086 45.11086 45.11086 37.83800 60.56669 45.11086 45.11086 0.000000 20.84675 39.52349 26.85815 4.630524 4.654948 42.96988 42.96988 42.96988 36.13707 57.79116 42.96988 42.96988 0.000000 19.54145 37.40998 25.40899 4.388086 4.413832 41.14044 41.14044 41.14044 34.67398 55.40255 41.14044 41.14044 0.000000 18.43884 35.59598 24.16574 4.182428 4.206573 39.55132 39.55132 39.55132 33.39466 53.32226 39.55132 39.55132 0.000000 17.48851 34.02798 23.09614 4.003335 4.027854 38.15020 38.15020 38.15020 32.26655 51.48520 38.15020 38.15020 0.000000 16.65939 32.64848 22.15567 3.846468 3.871362 36.90685 36.90685 36.90685 31.25895 49.84674 36.90685 36.90685 0.000000 16.02134 31.43259 21.32609 3.707837 3.732231 35.79013 35.79013 35.79013 30.35489 48.37297 35.79013 35.79013 0.000000 15.38143 30.34358 20.58338 3.583569 3.608355 34.77932 34.77932 34.77932 29.53143 47.03758 34.77932 34.77932 0.000000 14.81994 29.36094 19.91878 3.472169 3.496507 33.85886 33.85886 33.85886 28.78295 45.82408 33.85886 33.85886 0.000000 14.30810 28.46848 19.31563 3.370956 3.394869 33.02330 33.02330 33.02330 28.09924 44.71143 33.02330 33.02330 0.000000 13.85005 27.66215 18.76505 3.279255 3.303606 32.25035 32.25035 32.25035 27.46542 43.68615 32.25035 32.25035 0.000000 13.43421 26.92219 18.26486 3.195061 3.219037 31.53515 31.53515 31.53515 26.87815 42.73715 31.53515 31.53515 0.000000 13.05170 26.23994 17.80397 3.118176 3.141024 30.87480 30.87480 30.87480 26.33503 41.85424 30.87480 30.87480 0.000000 12.70575 25.60822 17.37747 3.046238 3.069535 30.25937 30.25937 30.25937 25.82812 41.03172 30.25937 30.25937 0.000000 12.38091 25.02951 16.98132 2.979357 3.003090 29.68387 29.68387 29.68387 25.35036 40.26597 29.68387 29.68387 0.000000 12.08554 24.49011 16.61679 2.917698 2.941879 29.14405 29.14405 29.14405 24.90698 39.54355 29.14405 29.14405 0.000000 11.81119 23.98577 16.27608 2.860024 2.884648 28.63628 28.63628 28.63628 24.48717 38.86749 28.63628 28.63628 0.000000 11.55215 23.51282 15.95675 2.807344 2.830242 28.16094 28.16094 28.16094 24.09085 38.22597 28.16094 28.16094 0.000000 11.31309 23.06811 15.65660 2.756437 2.779791 27.71171 27.71171 27.71171 23.71583 37.62304 27.71171 27.71171 0.000000 11.08914 22.64897 15.37380 2.708436 2.732240 27.28254 27.28254 27.28254 23.36315 37.05175 27.28254 27.28254 0.000000 10.87885 22.25299 15.10675 2.663765 2.688032 26.88220 26.88220 26.88220 23.02524 36.50937 26.88220 26.88220 0.000000 10.68093 21.87807 14.85840 2.621479 2.644798 26.49489 26.49489 26.49489 22.70648 35.99347 26.49489 26.49489 0.000000 10.49427 21.52244 14.62303 2.581377 2.605162 26.13254 26.13254 26.13254 22.40263 35.50191 26.13254 26.13254 0.000000 10.32314 21.19195 14.39524 2.543273 2.566832 25.78361 25.78361 25.78361 22.10967 35.03280 25.78361 25.78361 0.000000 10.15376 20.87750 14.18272 2.507669 2.530347 25.45017 25.45017 25.45017 21.83229 34.58443 25.45017 25.45017 0.000000 9.995267 20.57051 13.98025 2.472435 2.496239 25.13108 25.13108 25.13108 21.56668 34.15527 25.13108 25.13108 0.000000 9.849866 20.27733 13.78286 2.440077 2.463687 24.82853 24.82853 24.82853 21.31201 33.74396 24.82853 24.82853 0.000000 9.706644 20.01134 13.60244 2.409158 2.432583 24.53511 24.53511 24.53511 21.06731 33.34925 24.53511 24.53511 0.000000 9.570215 19.74267 13.42171 2.378296 2.402819 24.25641 24.25641 24.25641 20.83261 32.97348 24.25641 24.25641 0.000000 9.445129 19.49211 13.25659 2.349962 2.374302 23.98825 23.98825 23.98825 20.60634 32.60871 23.98825 23.98825 0.000000 9.325845 19.25169 13.09427 2.322785 2.345647 23.72719 23.72719 23.72719 20.38856 32.25749 23.72719 23.72719 0.000000 9.206956 19.02079 12.93837 2.296686 2.319384 23.47870 23.47870 23.47870 20.17857 31.92234 23.47870 23.47870 0.000000 9.093146 18.79876 12.79249 2.271597 2.294137 23.23905 23.23905 23.23905 19.97592 31.59574 23.23905 23.23905 0.000000 8.989039 18.58504 12.64821 2.247456 2.282941 23.00770 23.00770 23.00770 19.78280 31.28037 23.00770 23.00770 0.000000 8.889337 18.37908 12.50924 2.224202 2.259872 22.78398 22.78398 22.78398 19.59353 30.97888 22.78398 22.78398 0.000000 8.787045 18.18724 12.37914 2.201174 2.237640 22.56789 22.56789 22.56789 19.41039 30.68404 22.56789 22.56789 0.000000 8.690381 17.98875 12.25367 2.178943 2.217533 22.35863 22.35863 22.35863 19.23306 30.40191 22.35863 22.35863 0.000000 8.602266 17.81021 12.12485 2.158056 2.196827 22.15587 22.15587 22.15587 19.06379 30.12866 22.15587 22.15587 0.000000 8.517582 17.63107 12.00788 2.137870 2.178151 21.95971 21.95971 21.95971 18.89713 29.86060 21.95971 21.95971 0.000000 8.431282 17.45774 11.89481 2.130307 2.149966 21.76906 21.76906 21.76906 18.73795 29.60376 21.76906 21.76906 0.000000 8.348064 17.29643 11.78540 2.111668 2.130845 21.58418 21.58418 21.58418 18.58089 29.35131 21.58418 21.58418 0.000000 1120.302 1423.848 1005.718 161.7964 162.0096 744.8624 744.8624 744.8624 478.1255 829.6846 744.8624 744.8624 0.000000 118.1238 175.0541 121.8471 20.11310 20.16542 127.9568 127.9568 127.9568 96.99454 160.1288 127.9568 127.9568 0.000000 67.79097 106.2985 73.39242 12.23571 12.27225 87.14286 87.14286 87.14286 68.54601 111.9069 87.14286 87.14286 0.000000 49.04029 79.98694 55.01645 9.237279 9.269522 70.25694 70.25694 70.25694 56.31894 91.40803 70.25694 70.25694 0.000000 39.13900 65.75810 45.12306 7.616406 7.646639 60.59440 60.59440 60.59440 49.15931 79.48116 60.59440 60.59440 0.000000 32.97621 56.73144 38.85281 6.588130 6.616741 54.17178 54.17178 54.17178 44.31816 71.46298 54.17178 54.17178 0.000000 28.74511 50.42355 34.48498 5.869721 5.896976 49.51939 49.51939 49.51939 40.77198 65.60068 49.51939 49.51939 0.000000 25.65428 45.73763 31.24622 5.336008 5.362125 45.95817 45.95817 45.95817 38.02925 61.07510 45.95817 45.95817 0.000000 23.28342 42.09309 28.73392 4.921665 4.946810 43.11538 43.11538 43.11538 35.81989 57.45028 43.11538 43.11538 0.000000 21.40288 39.17719 26.72904 4.588957 4.614280 40.78361 40.78361 40.78361 33.99276 54.45051 40.78361 40.78361 0.000000 19.87249 36.76696 25.07289 4.315323 4.340847 38.81991 38.81991 38.81991 32.44910 51.92527 38.81991 38.81991 0.000000 18.60168 34.74403 23.68854 4.086041 4.110839 37.14384 37.14384 37.14384 31.12276 49.75007 37.14384 37.14384 0.000000 17.52917 33.02981 22.50248 3.889270 3.913402 35.68588 35.68588 35.68588 29.96403 47.86168 35.68588 35.68588 0.000000 16.60557 31.53114 21.48341 3.719802 3.743350 34.40557 34.40557 34.40557 28.93976 46.19128 34.40557 34.40557 0.000000 15.88773 30.22315 20.58837 3.570745 3.595482 33.26675 33.26675 33.26675 28.02863 44.70658 33.26675 33.26675 0.000000 15.19556 29.06233 19.79974 3.439982 3.463360 32.24838 32.24838 32.24838 27.20848 43.37207 32.24838 32.24838 0.000000 14.58680 28.03228 19.09440 3.322119 3.345840 31.32720 31.32720 31.32720 26.46798 42.16264 31.32720 31.32720 0.000000 14.03661 27.11262 18.46384 3.216563 3.240630 30.49251 30.49251 30.49251 25.78926 41.06134 30.49251 30.49251 0.000000 13.54712 26.26993 17.89210 3.121505 3.145151 29.72478 29.72478 29.72478 25.16946 40.05581 29.72478 29.72478 0.000000 13.10491 25.50926 17.37549 3.033990 3.057989 29.02175 29.02175 29.02175 24.60030 39.12970 29.02175 29.02175 0.000000 12.70665 24.81175 16.90205 2.955148 2.978770 28.37536 28.37536 28.37536 24.07093 38.27289 28.37536 28.37536 0.000000 12.33684 24.16915 16.46612 2.882510 2.905777 27.77200 27.77200 27.77200 23.57866 37.47698 27.77200 27.77200 0.000000 12.00260 23.58267 16.06301 2.815307 2.838237 27.21299 27.21299 27.21299 23.12216 36.73494 27.21299 27.21299 0.000000 11.69447 23.03034 15.69337 2.752899 2.776957 26.69075 26.69075 26.69075 22.69484 36.04084 26.69075 26.69075 0.000000 11.40580 22.52342 15.34923 2.694741 2.718469 26.20109 26.20109 26.20109 22.29363 35.38961 26.20109 26.20109 0.000000 11.14084 22.04973 15.02779 2.640371 2.663783 25.74068 25.74068 25.74068 21.91590 34.78048 25.74068 25.74068 0.000000 10.89945 21.60579 14.72666 2.590747 2.613900 25.30991 25.30991 25.30991 21.55939 34.20253 25.30991 25.30991 0.000000 10.66896 21.18864 14.44381 2.542810 2.567050 24.90295 24.90295 24.90295 21.22175 33.65961 24.90295 24.90295 0.000000 10.45841 20.79563 14.18170 2.498952 2.521578 24.51443 24.51443 24.51443 20.90241 33.14187 24.51443 24.51443 0.000000 10.25578 20.43188 13.93443 2.456262 2.479965 24.14888 24.14888 24.14888 20.60125 32.65377 24.14888 24.14888 0.000000 10.06789 20.08066 13.69652 2.417145 2.440614 23.80144 23.80144 23.80144 20.31216 32.18961 23.80144 23.80144 0.000000 9.888017 19.74765 13.47514 2.379444 2.403328 23.47031 23.47031 23.47031 20.03922 31.74745 23.47031 23.47031 0.000000 9.723214 19.43838 13.26503 2.343639 2.367933 23.15469 23.15469 23.15469 19.77868 31.32557 23.15469 23.15469 0.000000 9.567472 19.14426 13.06528 2.310198 2.334275 22.85622 22.85622 22.85622 19.52696 30.92243 22.85622 22.85622 0.000000 9.414999 18.85720 12.87504 2.278352 2.302214 22.56759 22.56759 22.56759 19.28850 30.53664 22.56759 22.56759 0.000000 9.275249 18.59003 12.69757 2.247977 2.283456 22.29113 22.29113 22.29113 19.05990 30.16697 22.29113 22.29113 0.000000 9.142555 18.33475 12.52031 2.218962 2.254673 22.02891 22.02891 22.02891 18.84047 29.81227 22.02891 22.02891 0.000000 9.016390 18.09054 12.35846 2.191207 2.228495 21.77412 21.77412 21.77412 18.62959 29.47156 21.77412 21.77412 0.000000 8.896273 17.85662 12.20355 2.163429 2.202151 21.53212 21.53212 21.53212 18.42672 29.14390 21.53212 21.53212 0.000000 8.775052 17.63226 12.04743 2.137952 2.178231 21.29631 21.29631 21.29631 18.23132 28.82846 21.29631 21.29631 0.000000 8.665707 17.41683 11.90508 2.125528 2.144820 21.07197 21.07197 21.07197 18.04295 28.52761 21.07197 21.07197 0.000000 8.556368 17.20974 11.76835 2.102355 2.121447 20.85565 20.85565 20.85565 17.86118 28.23437 20.85565 20.85565 0.000000 8.456465 17.01047 11.63690 2.080078 2.100240 20.64685 20.64685 20.64685 17.68506 27.95433 20.64685 20.64685 0.000000 8.360822 16.82496 11.50295 2.059876 2.078598 20.44514 20.44514 20.44514 17.51779 27.68072 20.44514 20.44514 0.000000 8.269170 16.63349 11.38115 2.039217 2.059006 20.25012 20.25012 20.25012 17.35358 27.41610 20.25012 20.25012 0.000000 8.181266 16.46124 11.26371 2.020530 2.038892 20.06140 20.06140 20.06140 17.19459 27.16301 20.06140 20.06140 0.000000 8.096886 16.29502 11.15037 1.992804 2.020730 19.87846 19.87846 19.87846 17.04053 26.91491 19.87846 19.87846 0.000000 8.015821 16.12195 11.04092 1.974155 2.001975 19.70134 19.70134 19.70134 16.89353 26.67742 19.70134 19.70134 0.000000 7.937885 15.96685 10.93514 1.957308 1.985087 19.52957 19.52957 19.52957 16.74857 26.44413 19.52957 19.52957 0.000000 7.862901 15.81681 10.83282 1.939863 1.967544 19.36273 19.36273 19.36273 16.61016 26.22065 19.36273 19.36273 0.000000 1115.905 1411.655 997.8700 160.4267 160.6421 725.3356 725.3356 725.3356 460.7145 801.9109 725.3356 725.3356 0.000000 116.4640 170.2443 118.7421 19.56351 19.61287 120.5041 120.5041 120.5041 90.35516 149.5453 120.5041 120.5041 0.000000 66.46066 102.5299 70.95844 11.80597 11.84224 81.37141 81.37141 81.37141 63.41574 103.7267 81.37141 81.37141 0.000000 47.88457 76.72841 52.91402 8.866488 8.898308 65.31677 65.31677 65.31677 51.92695 84.40607 65.31677 65.31677 0.000000 38.10622 62.84583 43.23453 7.284802 7.313129 56.16783 56.16783 56.16783 45.22451 73.21677 56.16783 56.16783 0.000000 32.02482 54.03500 37.11399 6.282731 6.309504 50.11149 50.11149 50.11149 40.71351 65.71854 50.11149 50.11149 0.000000 27.86350 47.91378 32.86591 5.583958 5.610607 45.74112 45.74112 45.74112 37.41303 60.25453 45.74112 45.74112 0.000000 24.81534 43.36345 29.72184 5.066733 5.093326 42.39817 42.39817 42.39817 34.86458 56.04494 42.39817 42.39817 0.000000 22.48657 39.85218 27.28034 4.665848 4.691380 39.73864 39.73864 39.73864 32.81800 52.66952 39.73864 39.73864 0.000000 20.64488 37.02661 25.34036 4.345373 4.369014 37.55595 37.55595 37.55595 31.12765 49.89248 37.55595 37.55595 0.000000 19.14773 34.70380 23.74000 4.081306 4.106084 35.72412 35.72412 35.72412 29.69768 47.54933 35.72412 35.72412 0.000000 17.90239 32.75681 22.40384 3.859406 3.884341 34.15878 34.15878 34.15878 28.47324 45.53683 34.15878 34.15878 0.000000 16.85213 31.09912 21.26596 3.670832 3.695078 32.80215 32.80215 32.80215 27.40113 43.78727 32.80215 32.80215 0.000000 16.03493 29.66966 20.27884 3.507813 3.532296 31.61214 31.61214 31.61214 26.46023 42.24359 31.61214 31.61214 0.000000 15.25881 28.41484 19.42289 3.364565 3.388443 30.55384 30.55384 30.55384 25.61783 40.87349 30.55384 30.55384 0.000000 14.58782 27.31114 18.66456 3.238998 3.262354 29.60846 29.60846 29.60846 24.86213 39.63890 29.60846 29.60846 0.000000 13.98707 26.32455 17.99187 3.126683 3.151133 28.75416 28.75416 28.75416 24.18087 38.52519 28.75416 28.75416 0.000000 13.45754 25.43590 17.38642 3.025459 3.049414 27.97696 27.97696 27.97696 23.55664 37.51444 27.97696 27.97696 0.000000 12.97931 24.63018 16.83779 2.935106 2.958634 27.26547 27.26547 27.26547 22.98692 36.58497 27.26547 27.26547 0.000000 12.55225 23.90346 16.33774 2.851289 2.875860 26.61800 26.61800 26.61800 22.46180 35.73273 26.61800 26.61800 0.000000 12.16395 23.23749 15.88874 2.775819 2.799986 26.01656 26.01656 26.01656 21.97559 34.94102 26.01656 26.01656 0.000000 11.80913 22.63220 15.47126 2.706331 2.730114 25.45850 25.45850 25.45850 21.52361 34.20923 25.45850 25.45850 0.000000 11.47998 22.06515 15.08545 2.642081 2.666203 24.94197 24.94197 24.94197 21.10444 33.52722 24.94197 24.94197 0.000000 11.17959 21.53881 14.73187 2.583793 2.606905 24.45935 24.45935 24.45935 20.71282 32.88947 24.45935 24.45935 0.000000 10.90712 21.05600 14.40285 2.528226 2.552378 24.00681 24.00681 24.00681 20.34182 32.29130 24.00681 24.00681 0.000000 10.65453 20.60505 14.09569 2.476303 2.500121 23.58166 23.58166 23.58166 19.99813 31.73204 23.58166 23.58166 0.000000 10.41438 20.18268 13.81225 2.428939 2.452475 23.18099 23.18099 23.18099 19.66865 31.20148 23.18099 23.18099 0.000000 10.19540 19.78596 13.54630 2.384480 2.407748 22.80534 22.80534 22.80534 19.36214 30.70000 22.80534 22.80534 0.000000 9.982968 19.41948 13.29202 2.341378 2.365654 22.45014 22.45014 22.45014 19.06912 30.22822 22.45014 22.45014 0.000000 9.790978 19.07380 13.05615 2.301929 2.325944 22.10983 22.10983 22.10983 18.79082 29.78054 22.10983 22.10983 0.000000 9.610650 18.74018 12.83324 2.264642 2.299995 21.78945 21.78945 21.78945 18.52854 29.35172 21.78945 21.78945 0.000000 9.440926 18.42395 12.62216 2.229328 2.264953 21.48446 21.48446 21.48446 18.27610 28.94638 21.48446 21.48446 0.000000 9.280873 18.13043 12.42193 2.195821 2.233065 21.19652 21.19652 21.19652 18.03757 28.55971 21.19652 21.19652 0.000000 9.129673 17.85142 12.23550 2.163969 2.201495 20.91870 20.91870 20.91870 17.80655 28.19028 20.91870 20.91870 0.000000 8.986593 17.57913 12.05047 2.133646 2.172784 20.65294 20.65294 20.65294 17.58833 27.83681 20.65294 20.65294 0.000000 8.849241 17.33238 11.88155 2.115723 2.134929 20.40121 20.40121 20.40121 17.37916 27.49817 20.40121 20.40121 0.000000 8.720422 17.08392 11.72034 2.088521 2.108759 20.15703 20.15703 20.15703 17.17840 27.17330 20.15703 20.15703 0.000000 8.597974 16.85900 11.56631 2.063767 2.082521 19.92236 19.92236 19.92236 16.98550 26.86129 19.92236 19.92236 0.000000 8.481431 16.63102 11.41154 2.038889 2.058671 19.69968 19.69968 19.69968 16.79994 26.56127 19.69968 19.69968 0.000000 8.370371 16.42492 11.27042 2.016287 2.034605 19.48541 19.48541 19.48541 16.62124 26.27249 19.48541 19.48541 0.000000 8.264411 16.22095 11.13507 1.984890 2.012768 19.27888 19.27888 19.27888 16.44899 25.99422 19.27888 19.27888 0.000000 8.163208 16.02496 11.00512 1.962841 1.991838 19.07993 19.07993 19.07993 16.28278 25.72877 19.07993 19.07993 0.000000 8.066446 15.84259 10.88023 1.942821 1.970516 18.88525 18.88525 18.88525 16.12226 25.46904 18.88525 18.88525 0.000000 7.973840 15.65486 10.76006 1.922418 1.951235 18.69982 18.69982 18.69982 15.96711 25.21868 18.69982 18.69982 0.000000 7.885127 15.48594 10.64433 1.903934 1.932703 18.52056 18.52056 18.52056 15.81701 24.97946 18.52056 18.52056 0.000000 7.804817 15.32312 10.53279 1.884985 1.914875 18.34712 18.34712 18.34712 15.67395 24.74515 18.34712 18.34712 0.000000 7.717140 15.15401 10.42517 1.867860 1.887969 18.17918 18.17918 18.17918 15.53314 24.52105 18.17918 18.17918 0.000000 7.638689 15.00237 10.32127 1.850201 1.870126 18.01906 18.01906 18.01906 15.39885 24.30107 18.01906 18.01906 0.000000 7.563287 14.85585 10.22087 1.834287 1.854059 17.86126 17.86126 17.86126 15.26637 24.08772 17.86126 17.86126 0.000000 7.490761 14.71415 10.12378 1.818927 1.838550 17.70795 17.70795 17.70795 15.13775 23.88345 17.70795 17.70795 0.000000 1112.458 1402.154 991.7609 159.3602 159.5754 710.0648 710.0648 710.0648 447.1494 780.2402 710.0648 710.0648 0.000000 115.1625 166.4912 116.3027 19.13357 19.18279 114.6801 114.6801 114.6801 85.17509 141.2825 114.6801 114.6801 0.000000 65.41389 99.58089 69.05164 11.47064 11.50471 76.86987 76.86987 76.86987 59.40598 97.34477 76.86987 76.86987 0.000000 46.98992 74.18940 51.27345 8.576514 8.607981 61.45724 61.45724 61.45724 48.49331 78.94244 61.45724 61.45724 0.000000 37.30121 60.56132 41.75909 7.024071 7.053398 52.71330 52.71330 52.71330 42.15445 68.32784 52.71330 52.71330 0.000000 31.28702 51.94243 35.76195 6.043608 6.069949 46.94712 46.94712 46.94712 37.89795 61.23978 46.94712 46.94712 0.000000 27.17172 45.95323 31.59947 5.361125 5.387280 42.79133 42.79133 42.79133 34.79256 56.08142 42.79133 42.79133 0.000000 24.16368 41.51854 28.52247 4.856715 4.881682 39.61833 39.61833 39.61833 32.39513 52.11375 39.61833 39.61833 0.000000 21.86747 38.09026 26.14848 4.466280 4.491249 37.10129 37.10129 37.10129 30.47201 48.94087 37.10129 37.10129 0.000000 20.05654 35.34453 24.25280 4.153593 4.178586 35.03866 35.03866 35.03866 28.88846 46.32949 35.03866 35.03866 0.000000 18.57880 33.10020 22.70185 3.897930 3.922086 33.30602 33.30602 33.30602 27.55011 44.13219 33.30602 33.30602 0.000000 17.35338 31.21209 21.40313 3.682512 3.707671 31.83058 31.83058 31.83058 26.40197 42.24569 31.83058 31.83058 0.000000 16.39824 29.60609 20.29268 3.500437 3.524890 30.55240 30.55240 30.55240 25.40331 40.60796 30.55240 30.55240 0.000000 15.52838 28.21334 19.34030 3.342427 3.366223 29.42877 29.42877 29.42877 24.52100 39.16492 29.42877 29.42877 0.000000 14.77163 27.00002 18.50530 3.204460 3.228471 28.43388 28.43388 28.43388 23.73782 37.88040 28.43388 28.43388 0.000000 14.10657 25.93365 17.77571 3.082145 3.106370 27.54211 27.54211 27.54211 23.03066 36.73068 27.54211 27.54211 0.000000 13.52306 24.98111 17.12442 2.974249 2.997963 26.73971 26.73971 26.73971 22.39274 35.68711 26.73971 26.73971 0.000000 13.00297 24.12376 16.53860 2.877115 2.900348 26.01372 26.01372 26.01372 21.81391 34.74390 26.01372 26.01372 0.000000 12.53972 23.34688 16.00812 2.789083 2.812598 25.34657 25.34657 25.34657 21.28010 33.87684 25.34657 25.34657 0.000000 12.12098 22.65446 15.53390 2.708835 2.732627 24.73636 24.73636 24.73636 20.79176 33.07877 24.73636 24.73636 0.000000 11.74039 22.00529 15.09117 2.635979 2.660065 24.17277 24.17277 24.17277 20.33896 32.34424 24.17277 24.17277 0.000000 11.38917 21.42270 14.69249 2.569603 2.593312 23.65298 23.65298 23.65298 19.92107 31.65907 23.65298 23.65298 0.000000 11.07531 20.88460 14.32442 2.508287 2.530956 23.16628 23.16628 23.16628 19.52878 31.02387 23.16628 23.16628 0.000000 10.78647 20.38568 13.98327 2.450774 2.474438 22.71454 22.71454 22.71454 19.16423 30.43008 22.71454 22.71454 0.000000 10.51439 19.91425 13.66595 2.398513 2.421863 22.29127 22.29127 22.29127 18.81958 29.87329 22.29127 22.29127 0.000000 10.26720 19.48098 13.36984 2.348485 2.372803 21.89352 21.89352 21.89352 18.50022 29.34974 21.89352 21.89352 0.000000 10.03491 19.08228 13.10079 2.302866 2.326884 21.52179 21.52179 21.52179 18.19401 28.85933 21.52179 21.52179 0.000000 9.820518 18.70134 12.84056 2.260060 2.295447 21.16790 21.16790 21.16790 17.90931 28.39289 21.16790 21.16790 0.000000 9.620134 18.34275 12.59572 2.219795 2.255495 20.83580 20.83580 20.83580 17.63659 27.95425 20.83580 20.83580 0.000000 9.432395 18.00445 12.37259 2.181827 2.219192 20.52087 20.52087 20.52087 17.37815 27.53503 20.52087 20.52087 0.000000 9.256111 17.69123 12.16193 2.145954 2.184973 20.22166 20.22166 20.22166 17.13468 27.13948 20.22166 20.22166 0.000000 9.095222 17.39466 11.95502 2.122875 2.142141 19.93387 19.93387 19.93387 16.90034 26.75983 19.93387 19.93387 0.000000 8.938820 17.10684 11.76621 2.091128 2.111387 19.66510 19.66510 19.66510 16.67663 26.40062 19.66510 19.66510 0.000000 8.789315 16.84599 11.58696 2.062223 2.080961 19.40576 19.40576 19.40576 16.46510 26.05749 19.40576 19.40576 0.000000 8.649467 16.58515 11.40907 2.033546 2.053274 19.15762 19.15762 19.15762 16.26264 25.72923 19.15762 19.15762 0.000000 8.516953 16.34891 11.24674 2.001312 2.026941 18.92282 18.92282 18.92282 16.06860 25.41416 18.92282 18.92282 0.000000 8.396040 16.11101 11.09188 1.972806 2.000613 18.69506 18.69506 18.69506 15.88011 25.11256 18.69506 18.69506 0.000000 8.276520 15.89580 10.94395 1.948972 1.976699 18.47903 18.47903 18.47903 15.70122 24.82293 18.47903 18.47903 0.000000 8.162794 15.67766 10.80246 1.925035 1.953865 18.26880 18.26880 18.26880 15.52916 24.54447 18.26880 18.26880 0.000000 8.059232 15.48057 10.66695 1.903274 1.932037 18.06910 18.06910 18.06910 15.36348 24.27647 18.06910 18.06910 0.000000 7.955873 15.29158 10.53701 1.882443 1.911147 17.87678 17.87678 17.87678 15.20378 24.01827 17.87678 17.87678 0.000000 7.861937 15.09814 10.41229 1.861324 1.881362 17.69120 17.69120 17.69120 15.04972 23.76927 17.69120 17.69120 0.000000 7.761566 14.92388 10.29245 1.842180 1.862035 17.51227 17.51227 17.51227 14.90312 23.52892 17.51227 17.51227 0.000000 7.675958 14.75625 10.17716 1.823801 1.843475 17.33947 17.33947 17.33947 14.75931 23.29947 17.33947 17.33947 0.000000 7.589435 14.58314 10.06619 1.804993 1.824462 17.17243 17.17243 17.17243 14.62020 23.07493 17.17243 17.17243 0.000000 7.506497 14.42764 9.959217 1.788009 1.807303 17.01069 17.01069 17.01069 14.48524 22.85765 17.01069 17.01069 0.000000 7.426931 14.27765 9.856056 1.771092 1.790782 16.85427 16.85427 16.85427 14.35474 22.64992 16.85427 16.85427 0.000000 7.350532 14.13289 9.756462 1.746861 1.774864 16.70271 16.70271 16.70271 14.23008 22.44598 16.70271 16.70271 0.000000 7.281792 13.98728 9.660254 1.731566 1.759514 16.55576 16.55576 16.55576 14.10734 22.24819 16.55576 16.55576 0.000000 7.211192 13.84640 9.567237 1.715712 1.743547 16.41319 16.41319 16.41319 13.99027 22.05890 16.41319 16.41319 0.000000 1109.677 1394.488 986.8220 158.4986 158.7134 697.7723 697.7723 697.7723 436.1806 762.7555 697.7723 697.7723 0.000000 114.1014 163.4864 114.3314 18.78571 18.83478 109.9818 109.9818 109.9818 80.99091 134.6161 109.9818 109.9818 0.000000 64.58108 97.19437 67.50666 11.19871 11.23451 73.23716 73.23716 73.23716 56.17544 92.19786 73.23716 73.23716 0.000000 46.26583 72.13178 49.94260 8.343969 8.373606 58.34055 58.34055 58.34055 45.72638 74.53538 58.34055 58.34055 0.000000 36.64876 58.70778 40.56090 6.814705 6.842327 49.92766 49.92766 49.92766 39.67731 64.38364 49.92766 49.92766 0.000000 30.68902 50.24458 34.66399 5.850346 5.876318 44.39096 44.39096 44.39096 35.62472 57.62149 44.39096 44.39096 0.000000 26.61028 44.37303 30.57713 5.182090 5.207855 40.40797 40.40797 40.40797 32.67311 52.71409 40.40797 40.40797 0.000000 23.64285 40.03143 27.55989 4.686920 4.712499 37.37539 37.37539 37.37539 30.40079 48.94107 37.37539 37.37539 0.000000 21.37255 36.67920 25.23456 4.304914 4.330387 34.96950 34.96950 34.96950 28.58028 45.93160 34.96950 34.96950 0.000000 19.57595 33.99731 23.37964 4.000194 4.024695 33.00435 33.00435 33.00435 27.08282 43.45751 33.00435 33.00435 0.000000 18.12033 31.79744 21.85772 3.750476 3.774130 31.35463 31.35463 31.35463 25.81832 41.37281 31.35463 31.35463 0.000000 16.91415 29.95709 20.58935 3.541083 3.563983 29.95124 29.95124 29.95124 24.73064 39.58984 29.95124 29.95124 0.000000 15.97890 28.39302 19.51628 3.361882 3.386570 28.73333 28.73333 28.73333 23.78855 38.04231 28.73333 28.73333 0.000000 15.11785 27.03767 18.58719 3.208701 3.232723 27.66995 27.66995 27.66995 22.95737 36.67595 27.66995 27.66995 0.000000 14.37174 25.86635 17.77317 3.074337 3.098525 26.72231 26.72231 26.72231 22.21656 35.46735 26.72231 26.72231 0.000000 13.72269 24.82148 17.05750 2.956026 2.979638 25.88008 25.88008 25.88008 21.55335 34.37938 25.88008 25.88008 0.000000 13.14906 23.89638 16.42344 2.851052 2.874890 25.11661 25.11661 25.11661 20.95273 33.39902 25.11661 25.11661 0.000000 12.64127 23.07213 15.85800 2.756593 2.780657 24.42900 24.42900 24.42900 20.40535 32.50342 24.42900 24.42900 0.000000 12.18524 22.31835 15.34199 2.671723 2.695322 23.79743 23.79743 23.79743 19.90623 31.69014 23.79743 23.79743 0.000000 11.77316 21.63922 14.88095 2.594425 2.617586 23.21977 23.21977 23.21977 19.44388 30.93871 23.21977 23.21977 0.000000 11.39517 21.01757 14.45071 2.523654 2.547773 22.68662 22.68662 22.68662 19.01852 30.24414 22.68662 22.68662 0.000000 11.05835 20.45309 14.06345 2.458550 2.482256 22.19211 22.19211 22.19211 18.62586 29.60268 22.19211 22.19211 0.000000 10.74971 19.92480 13.70606 2.399690 2.423044 21.73511 21.73511 21.73511 18.25730 29.00522 21.73511 21.73511 0.000000 10.46575 19.44195 13.37496 2.343892 2.368178 21.30540 21.30540 21.30540 17.91494 28.44374 21.30540 21.30540 0.000000 10.20354 18.99283 13.07518 2.293207 2.317158 20.90568 20.90568 20.90568 17.59074 27.92036 20.90568 20.90568 0.000000 9.958036 18.57377 12.78789 2.245929 2.281419 20.53304 20.53304 20.53304 17.28858 27.42834 20.53304 20.53304 0.000000 9.732071 18.18829 12.51908 2.201702 2.238894 20.17933 20.17933 20.17933 17.00358 26.96762 20.17933 20.17933 0.000000 9.521474 17.82007 12.27464 2.160213 2.197770 19.84795 19.84795 19.84795 16.73412 26.52946 19.84795 19.84795 0.000000 9.329716 17.47361 12.03732 2.131958 2.155881 19.53183 19.53183 19.53183 16.47879 26.11459 19.53183 19.53183 0.000000 9.145358 17.14684 11.82113 2.095714 2.116014 19.23464 19.23464 19.23464 16.23870 25.72390 19.23464 19.23464 0.000000 8.972294 16.85084 11.61709 2.062747 2.081487 18.95251 18.95251 18.95251 16.00808 25.34907 18.95251 18.95251 0.000000 8.807723 16.55815 11.41672 2.031621 2.050082 18.68403 18.68403 18.68403 15.78833 24.99560 18.68403 18.68403 0.000000 8.659046 16.29297 11.23396 1.992452 2.020369 18.42809 18.42809 18.42809 15.58084 24.65568 18.42809 18.42809 0.000000 8.518881 16.02876 11.06047 1.963212 1.992208 18.18636 18.18636 18.18636 15.38256 24.33377 18.18636 18.18636 0.000000 8.381681 15.78951 10.89553 1.936580 1.965475 17.95268 17.95268 17.95268 15.19058 24.02587 17.95268 17.95268 0.000000 8.251708 15.54943 10.73846 1.911256 1.940063 17.72874 17.72874 17.72874 15.00876 23.73096 17.72874 17.72874 0.000000 8.133191 15.33221 10.58865 1.885979 1.915870 17.51673 17.51673 17.51673 14.83211 23.44814 17.51673 17.51673 0.000000 8.020797 15.11272 10.44558 1.862991 1.883045 17.31071 17.31071 17.31071 14.66452 23.17657 17.31071 17.31071 0.000000 7.909308 14.91439 10.30877 1.841046 1.860887 17.11523 17.11523 17.11523 14.50306 22.91552 17.11523 17.11523 0.000000 7.807867 14.72449 10.17776 1.820071 1.839702 16.92455 16.92455 16.92455 14.34785 22.66431 16.92455 16.92455 0.000000 7.700540 14.53074 10.05218 1.798857 1.819427 16.74352 16.74352 16.74352 14.19800 22.42230 16.74352 16.74352 0.000000 7.608505 14.35608 9.931671 1.779638 1.800002 16.56903 16.56903 16.56903 14.05371 22.18895 16.56903 16.56903 0.000000 7.520741 14.18827 9.815883 1.753324 1.780208 16.40069 16.40069 16.40069 13.91647 21.96373 16.40069 16.40069 0.000000 7.432271 14.02116 9.704543 1.734415 1.763487 16.23813 16.23813 16.23813 13.78180 21.74616 16.23813 16.23813 0.000000 7.347561 13.86018 9.597364 1.717302 1.745148 16.08101 16.08101 16.08101 13.65154 21.53842 16.08101 16.08101 0.000000 7.271046 13.71056 9.494088 1.700842 1.729780 15.92903 15.92903 15.92903 13.52545 21.33487 15.92903 15.92903 0.000000 7.197835 13.56626 9.401093 1.684996 1.712727 15.78191 15.78191 15.78191 13.40535 21.14015 15.78191 15.78191 0.000000 7.123065 13.42698 9.304936 1.669731 1.698561 15.63928 15.63928 15.63928 13.28691 20.94938 15.63928 15.63928 0.000000 7.051238 13.28690 9.212052 1.653933 1.679269 15.50361 15.50361 15.50361 13.17202 20.76400 15.50361 15.50361 0.000000 6.986836 13.15139 9.122263 1.639736 1.660493 15.36941 15.36941 15.36941 13.06250 20.58678 15.36941 15.36941 0.000000 1107.375 1388.126 982.7305 157.7878 158.0026 687.5981 687.5981 687.5981 427.1222 748.2839 687.5981 687.5981 0.000000 113.2438 160.9797 112.7134 18.49957 18.54587 106.0959 106.0959 106.0959 77.53020 129.1039 106.0959 106.0959 0.000000 63.88458 95.23273 66.23415 10.97432 11.00802 70.23087 70.23087 70.23087 53.49779 87.93472 70.23087 70.23087 0.000000 45.66454 70.43758 48.84472 8.149003 8.179920 55.76489 55.76489 55.76489 43.43122 70.88435 55.76489 55.76489 0.000000 36.11138 57.19373 39.57956 6.640341 6.669013 47.62143 47.62143 47.62143 37.62301 61.12061 47.62143 47.62143 0.000000 30.19642 48.84437 33.75681 5.690409 5.717274 42.27363 42.27363 42.27363 33.74276 54.62754 42.27363 42.27363 0.000000 26.15133 43.05756 29.73232 5.031903 5.057284 38.43765 38.43765 38.43765 30.92156 49.92324 38.43765 38.43765 0.000000 23.20230 38.79345 26.76435 4.546358 4.571543 35.51724 35.51724 35.51724 28.74928 46.31532 35.51724 35.51724 0.000000 20.95397 35.50446 24.47922 4.172249 4.196355 33.20708 33.20708 33.20708 27.01369 43.44107 33.20708 33.20708 0.000000 19.18277 32.87571 22.65789 3.872390 3.896450 31.31803 31.31803 31.31803 25.58436 41.07962 31.31803 31.31803 0.000000 17.73896 30.72124 21.16471 3.626766 3.651698 29.73730 29.73730 29.73730 24.38038 39.09338 29.73730 29.73730 0.000000 16.62579 28.92029 19.92117 3.422516 3.446634 28.39373 28.39373 28.39373 23.34966 37.39136 28.39373 28.39373 0.000000 15.63097 27.39076 18.86464 3.247886 3.272885 27.22835 27.22835 27.22835 22.45147 35.91483 27.22835 27.22835 0.000000 14.78271 26.06627 17.95508 3.098770 3.121519 26.20851 26.20851 26.20851 21.66203 34.61874 26.20851 26.20851 0.000000 14.04554 24.92230 17.16344 2.966607 2.991023 25.30673 25.30673 25.30673 20.95869 33.46632 25.30673 25.30673 0.000000 13.40589 23.90243 16.46815 2.851690 2.875528 24.49934 24.49934 24.49934 20.32669 32.43257 24.49934 24.49934 0.000000 12.83774 22.99992 15.84816 2.749115 2.773138 23.77395 23.77395 23.77395 19.75713 31.50152 23.77395 23.77395 0.000000 12.33652 22.19626 15.29106 2.657549 2.681072 23.11477 23.11477 23.11477 19.23819 30.65127 23.11477 23.11477 0.000000 11.89214 21.46162 14.78706 2.574678 2.597732 22.51258 22.51258 22.51258 18.76518 29.87632 22.51258 22.51258 0.000000 11.48204 20.80004 14.33694 2.499234 2.521848 21.96223 21.96223 21.96223 18.32962 29.16354 21.96223 21.96223 0.000000 11.11777 20.19472 13.92546 2.430185 2.453719 21.45418 21.45418 21.45418 17.92671 28.50803 21.45418 21.45418 0.000000 10.78553 19.64532 13.54753 2.367964 2.391123 20.98635 20.98635 20.98635 17.55192 27.89685 20.98635 20.98635 0.000000 10.48116 19.13830 13.19888 2.309304 2.333360 20.54833 20.54833 20.54833 17.20303 27.33067 20.54833 20.54833 0.000000 10.20120 18.66860 12.87596 2.256154 2.291565 20.14217 20.14217 20.14217 16.87905 26.79867 20.14217 20.14217 0.000000 9.940158 18.23185 12.57583 2.206754 2.243903 19.76163 19.76163 19.76163 16.57281 26.30293 19.76163 19.76163 0.000000 9.700548 17.82445 12.30371 2.160688 2.198240 19.40441 19.40441 19.40441 16.28697 25.83701 19.40441 19.40441 0.000000 9.482969 17.44327 12.04181 2.128419 2.147726 19.06792 19.06792 19.06792 16.01741 25.40023 19.06792 19.06792 0.000000 9.275478 17.08563 11.80373 2.088606 2.108838 18.75311 18.75311 18.75311 15.76259 24.98548 18.75311 18.75311 0.000000 9.086617 16.75563 11.58011 2.052450 2.071093 18.45270 18.45270 18.45270 15.52118 24.59285 18.45270 18.45270 0.000000 8.910004 16.44469 11.36219 2.018468 2.036801 18.17049 18.17049 18.17049 15.29202 24.22039 18.17049 18.17049 0.000000 8.737724 16.14478 11.16363 1.976665 2.004490 17.90247 17.90247 17.90247 15.07626 23.86919 17.90247 17.90247 0.000000 8.577303 15.87319 10.97589 1.946280 1.973988 17.64727 17.64727 17.64727 14.86857 23.53212 17.64727 17.64727 0.000000 8.430972 15.60365 10.79805 1.917536 1.945141 17.40417 17.40417 17.40417 14.67037 23.21339 17.40417 17.40417 0.000000 8.293049 15.35958 10.62928 1.889135 1.919044 17.17465 17.17465 17.17465 14.48278 22.90903 17.17465 17.17465 0.000000 8.158036 15.11553 10.46886 1.863291 1.883346 16.95262 16.95262 16.95262 14.30353 22.61795 16.95262 16.95262 0.000000 8.034936 14.89470 10.31611 1.838725 1.858540 16.74022 16.74022 16.74022 14.13152 22.33652 16.74022 16.74022 0.000000 7.918378 14.68414 10.17048 1.815343 1.834921 16.53906 16.53906 16.53906 13.96464 22.06924 16.53906 16.53906 0.000000 7.805491 14.47139 10.03141 1.793058 1.812405 16.34603 16.34603 16.34603 13.80638 21.81264 16.34603 16.34603 0.000000 7.696889 14.27921 9.898458 1.771222 1.790911 16.15816 16.15816 16.15816 13.65418 21.56599 16.15816 16.15816 0.000000 7.597108 14.09524 9.771187 1.742401 1.770370 15.97983 15.97983 15.97983 13.50766 21.32867 15.97983 15.97983 0.000000 7.497467 13.90755 9.649198 1.722834 1.750717 15.80575 15.80575 15.80575 13.36646 21.09999 15.80575 15.80575 0.000000 7.407048 13.73843 9.532156 1.704088 1.733049 15.64019 15.64019 15.64019 13.23026 20.87984 15.64019 15.64019 0.000000 7.320837 13.57597 9.419720 1.686113 1.713850 15.48058 15.48058 15.48058 13.09875 20.66688 15.48058 15.48058 0.000000 7.233896 13.41975 9.318177 1.668859 1.697683 15.32647 15.32647 15.32647 12.97366 20.46395 15.32647 15.32647 0.000000 7.155325 13.26386 9.214092 1.651205 1.678557 15.17753 15.17753 15.17753 12.85073 20.26532 15.17753 15.17753 0.000000 7.080221 13.11357 9.113820 1.636345 1.657079 15.03348 15.03348 15.03348 12.73175 20.07314 15.03348 15.03348 0.000000 7.003723 12.97397 9.017148 1.619935 1.640468 14.89635 14.89635 14.89635 12.61649 19.88706 14.89635 14.89635 0.000000 6.934950 12.83925 8.930250 1.606237 1.626635 14.76127 14.76127 14.76127 12.50476 19.70922 14.76127 14.76127 0.000000 6.863476 12.70913 8.840117 1.590933 1.611138 14.63033 14.63033 14.63033 12.39831 19.53437 14.63033 14.63033 0.000000 6.800275 12.58337 8.753004 1.578271 1.598344 14.50558 14.50558 14.50558 12.29502 19.36715 14.50558 14.50558 0.000000 1105.451 1382.770 979.2805 157.1849 157.3995 679.0065 679.0065 679.0065 419.4728 736.0634 679.0065 679.0065 0.000000 112.5073 158.8629 111.3309 18.25495 18.30379 102.8104 102.8104 102.8104 74.60491 124.4388 102.8104 102.8104 0.000000 63.29536 93.55343 65.15612 10.78402 10.81756 67.68766 67.68766 67.68766 51.23824 84.33193 67.68766 67.68766 0.000000 45.15501 69.00225 47.91339 7.986282 8.015471 53.58564 53.58564 53.58564 41.49501 67.80379 53.58564 53.58564 0.000000 35.65602 55.89666 38.74717 6.493454 6.521862 45.66926 45.66926 45.66926 35.88866 58.35740 45.66926 45.66926 0.000000 29.77433 47.65636 32.99394 5.555647 5.582226 40.48539 40.48539 40.48539 32.15388 52.09627 40.48539 40.48539 0.000000 25.76242 41.96387 29.01485 4.906259 4.931338 36.76882 36.76882 36.76882 29.43933 47.56759 36.76882 36.76882 0.000000 22.83579 37.75289 26.08872 4.427885 4.452735 33.94717 33.94717 33.94717 27.35458 44.09902 33.94717 33.94717 0.000000 20.60566 34.50657 23.83766 4.058676 4.083359 31.71797 31.71797 31.71797 25.69069 41.33393 31.71797 31.71797 0.000000 18.84953 31.93282 22.04486 3.764635 3.788316 29.89654 29.89654 29.89654 24.32091 39.06569 29.89654 29.89654 0.000000 17.41858 29.81645 20.57606 3.524013 3.547688 28.37389 28.37389 28.37389 23.16628 37.16191 28.37389 28.37389 0.000000 16.31826 28.03947 19.35359 3.323314 3.347033 27.07706 27.07706 27.07706 22.18050 35.53531 27.07706 27.07706 0.000000 15.33334 26.53930 18.32059 3.152593 3.175581 25.95658 25.95658 25.95658 21.32194 34.12190 25.95658 25.95658 0.000000 14.49317 25.24939 17.42727 3.004704 3.028555 24.97638 24.97638 24.97638 20.56494 32.87850 24.97638 24.97638 0.000000 13.76977 24.12018 16.64540 2.876522 2.899742 24.11016 24.11016 24.11016 19.89343 31.77661 24.11016 24.11016 0.000000 13.13651 23.12944 15.96329 2.763103 2.787193 23.33483 23.33483 23.33483 19.29283 30.78863 23.33483 23.33483 0.000000 12.58025 22.24594 15.35531 2.663248 2.686797 22.63867 22.63867 22.63867 18.74938 29.89599 22.63867 22.63867 0.000000 12.08444 21.45194 14.81363 2.573512 2.596556 22.00649 22.00649 22.00649 18.25440 29.08725 22.00649 22.00649 0.000000 11.63608 20.74092 14.32399 2.492330 2.514904 21.42899 21.42899 21.42899 17.80038 28.34748 21.42899 21.42899 0.000000 11.23924 20.09409 13.88293 2.418448 2.441910 20.89867 20.89867 20.89867 17.38526 27.66728 20.89867 20.89867 0.000000 10.87916 19.50957 13.47990 2.352123 2.375182 20.41495 20.41495 20.41495 17.00135 27.03894 20.41495 20.41495 0.000000 10.55082 18.96570 13.10984 2.289964 2.313889 19.96390 19.96390 19.96390 16.64485 26.45607 19.96390 19.96390 0.000000 10.25009 18.46368 12.76855 2.233800 2.269383 19.54448 19.54448 19.54448 16.31255 25.91629 19.54448 19.54448 0.000000 9.970988 18.00519 12.45256 2.181798 2.219158 19.15558 19.15558 19.15558 16.00407 25.41146 19.15558 19.15558 0.000000 9.720613 17.57902 12.16666 2.133476 2.172612 18.79168 18.79168 18.79168 15.71477 24.93615 18.79168 18.79168 0.000000 9.489012 17.18811 11.89283 2.099665 2.119997 18.45001 18.45001 18.45001 15.44045 24.49225 18.45001 18.45001 0.000000 9.269115 16.82271 11.64425 2.059433 2.078138 18.13096 18.13096 18.13096 15.18393 24.07404 18.13096 18.13096 0.000000 9.069232 16.47386 11.40404 2.021812 2.040175 17.82719 17.82719 17.82719 14.94148 23.68186 17.82719 17.82719 0.000000 8.876130 16.14578 11.18551 1.976752 2.004576 17.54250 17.54250 17.54250 14.71182 23.30800 17.54250 17.54250 0.000000 8.701700 15.84890 10.97982 1.943428 1.972360 17.27271 17.27271 17.27271 14.49355 22.95342 17.27271 17.27271 0.000000 8.538249 15.55661 10.78581 1.912035 1.940843 17.01638 17.01638 17.01638 14.28835 22.61916 17.01638 17.01638 0.000000 8.384776 15.29197 10.60240 1.882404 1.910488 16.77021 16.77021 16.77021 14.09056 22.29836 16.77021 16.77021 0.000000 8.240402 15.02934 10.42870 1.853228 1.873177 16.54049 16.54049 16.54049 13.90208 21.99246 16.54049 16.54049 0.000000 8.104350 14.79163 10.26390 1.826693 1.847556 16.31886 16.31886 16.31886 13.72403 21.70293 16.31886 16.31886 0.000000 7.971159 14.55400 10.10728 1.801519 1.822116 16.10700 16.10700 16.10700 13.55367 21.42607 16.10700 16.10700 0.000000 7.854533 14.33902 9.958184 1.778740 1.797937 15.90660 15.90660 15.90660 13.39045 21.16078 15.90660 15.90660 0.000000 7.733565 14.13406 9.816052 1.746924 1.774923 15.71457 15.71457 15.71457 13.23184 20.90687 15.71457 15.71457 0.000000 7.624550 13.92700 9.680376 1.725093 1.752990 15.52800 15.52800 15.52800 13.08146 20.66018 15.52800 15.52800 0.000000 7.521082 13.74003 9.550679 1.704255 1.733216 15.35091 15.35091 15.35091 12.93686 20.42570 15.35091 15.35091 0.000000 7.418067 13.56108 9.426542 1.684344 1.713218 15.17841 15.17841 15.17841 12.79766 20.20011 15.17841 15.17841 0.000000 7.329216 13.38955 9.314127 1.665295 1.694092 15.01461 15.01461 15.01461 12.66353 19.98283 15.01461 15.01461 0.000000 7.235468 13.21401 9.199955 1.647053 1.667895 14.85676 14.85676 14.85676 12.53416 19.77337 14.85676 14.85676 0.000000 7.150568 13.05607 9.090301 1.629566 1.650215 14.70451 14.70451 14.70451 12.40925 19.57369 14.70451 14.70451 0.000000 7.069561 12.90421 8.984895 1.612786 1.633247 14.55752 14.55752 14.55752 12.28856 19.37845 14.55752 14.55752 0.000000 6.987567 12.75808 8.889835 1.596671 1.616947 14.41548 14.41548 14.41548 12.17375 19.18972 14.41548 14.41548 0.000000 6.918301 12.61732 8.792096 1.581180 1.601275 14.27811 14.27811 14.27811 12.06076 19.00714 14.27811 14.27811 0.000000 6.841991 12.48161 8.704174 1.566279 1.586194 14.14500 14.14500 14.14500 11.95132 18.83037 14.14500 14.14500 0.000000 6.769651 12.35065 8.613223 1.544609 1.572761 14.01843 14.01843 14.01843 11.84524 18.66147 14.01843 14.01843 0.000000 6.704801 12.22420 8.525398 1.530678 1.558763 13.89578 13.89578 13.89578 11.74421 18.49540 13.89578 13.89578 0.000000 6.642653 12.09159 8.440517 1.517239 1.545262 13.77467 13.77467 13.77467 11.64431 18.33427 13.77467 13.77467 0.000000 1103.803 1378.178 976.3130 156.6689 156.8834 671.6329 671.6329 671.6329 412.8850 725.5754 671.6329 671.6329 0.000000 111.8600 157.0462 110.1583 18.04691 18.09567 99.99432 99.99432 99.99432 72.09788 120.4408 99.99432 99.99432 0.000000 62.79581 92.12674 64.23952 10.62180 10.65523 65.50701 65.50701 65.50701 49.29649 81.24363 65.50701 65.50701 0.000000 44.72793 67.76615 47.11992 7.846029 7.875045 51.71609 51.71609 51.71609 39.83068 65.15236 51.71609 51.71609 0.000000 35.26379 54.79219 38.02947 6.367979 6.394865 43.99402 43.99402 43.99402 34.40120 55.99276 43.99402 43.99402 0.000000 29.41945 46.64462 32.32874 5.439366 5.465677 38.94680 38.94680 38.94680 30.78764 49.92567 38.94680 38.94680 0.000000 25.42744 41.01028 28.40231 4.797839 4.823701 35.33657 35.33657 35.33657 28.16778 45.54333 35.33657 35.33657 0.000000 22.52011 36.85555 25.51180 4.326612 4.350189 32.59994 32.59994 32.59994 26.15811 42.19345 32.59994 32.59994 0.000000 20.30561 33.66544 23.28980 3.962381 3.986750 30.43582 30.43582 30.43582 24.55197 39.52757 30.43582 30.43582 0.000000 18.56245 31.10993 21.51564 3.671629 3.696737 28.67293 28.67293 28.67293 23.23464 37.34179 28.67293 28.67293 0.000000 17.14256 29.02684 20.07324 3.435403 3.459580 27.19998 27.19998 27.19998 22.12444 35.50861 27.19998 27.19998 0.000000 16.05993 27.29667 18.87387 3.236973 3.261113 25.94692 25.94692 25.94692 21.17685 33.93990 25.94692 25.94692 0.000000 15.08281 25.82114 17.84640 3.068963 3.093118 24.86468 24.86468 24.86468 20.35255 32.58070 24.86468 24.86468 0.000000 14.24984 24.54481 16.96719 2.924959 2.948424 23.91841 23.91841 23.91841 19.62596 31.38562 23.91841 23.91841 0.000000 13.53284 23.43551 16.20734 2.798877 2.821710 23.08262 23.08262 23.08262 18.98164 30.32706 23.08262 23.08262 0.000000 12.90504 22.45489 15.53632 2.687366 2.711036 22.33197 22.33197 22.33197 18.40308 29.37835 22.33197 22.33197 0.000000 12.35396 21.58791 14.93848 2.589222 2.612348 21.66094 21.66094 21.66094 17.88207 28.52151 21.66094 21.66094 0.000000 11.86850 20.81648 14.40170 2.501059 2.525040 21.05196 21.05196 21.05196 17.40715 27.74243 21.05196 21.05196 0.000000 11.42418 20.11916 13.92484 2.421324 2.444800 20.49586 20.49586 20.49586 16.97509 27.03290 20.49586 20.49586 0.000000 11.03120 19.48500 13.49159 2.350052 2.373096 19.98791 19.98791 19.98791 16.57510 26.38069 19.98791 19.98791 0.000000 10.67469 18.90517 13.09581 2.283680 2.307561 19.51956 19.51956 19.51956 16.20748 25.77837 19.51956 19.51956 0.000000 10.35493 18.37926 12.73249 2.223907 2.259569 19.08832 19.08832 19.08832 15.86617 25.21916 19.08832 19.08832 0.000000 10.05475 17.89426 12.39753 2.168790 2.206266 18.68494 18.68494 18.68494 15.55036 24.70202 18.68494 18.68494 0.000000 9.780805 17.44521 12.09132 2.128582 2.147887 18.31113 18.31113 18.31113 15.25293 24.21626 18.31113 18.31113 0.000000 9.533054 17.02794 11.80703 2.083126 2.102046 17.96127 17.96127 17.96127 14.97396 23.76388 17.96127 17.96127 0.000000 9.303925 16.63892 11.54594 2.039639 2.059418 17.63266 17.63266 17.63266 14.71372 23.33888 17.63266 17.63266 0.000000 9.091374 16.28772 11.29477 1.991755 2.019663 17.32603 17.32603 17.32603 14.46810 22.93855 17.32603 17.32603 0.000000 8.891186 15.94639 11.06656 1.954736 1.982489 17.03411 17.03411 17.03411 14.23595 22.56054 17.03411 17.03411 0.000000 8.702494 15.62551 10.85233 1.920028 1.947643 16.75819 16.75819 16.75819 14.01635 22.20282 16.75819 16.75819 0.000000 8.530007 15.33519 10.65072 1.886248 1.916137 16.50161 16.50161 16.50161 13.80794 21.86623 16.50161 16.50161 0.000000 8.368405 15.04939 10.46057 1.855540 1.875512 16.25321 16.25321 16.25321 13.60977 21.54389 16.25321 16.25321 0.000000 8.216696 14.79072 10.28089 1.827716 1.847425 16.02171 16.02171 16.02171 13.42305 21.23686 16.02171 16.02171 0.000000 8.074003 14.53410 10.11074 1.800321 1.819746 15.79642 15.79642 15.79642 13.24496 20.94717 15.79642 15.79642 0.000000 7.944329 14.30182 9.949329 1.774382 1.793528 15.58604 15.58604 15.58604 13.07282 20.66766 15.58604 15.58604 0.000000 7.812680 14.08110 9.795962 1.740701 1.768654 15.38271 15.38271 15.38271 12.90808 20.40301 15.38271 15.38271 0.000000 7.691421 13.85970 9.650002 1.717180 1.746177 15.18812 15.18812 15.18812 12.75219 20.14962 15.18812 15.18812 0.000000 7.577820 13.65957 9.510872 1.694795 1.723686 15.00394 15.00394 15.00394 12.60265 19.90423 15.00394 15.00394 0.000000 7.470152 13.46853 9.384656 1.673463 1.703408 14.82726 14.82726 14.82726 12.45904 19.67109 14.82726 14.82726 0.000000 7.367972 13.28040 9.257688 1.653108 1.677979 14.65756 14.65756 14.65756 12.32095 19.44705 14.65756 14.65756 0.000000 7.270891 13.10023 9.136180 1.634739 1.655450 14.49439 14.49439 14.49439 12.18804 19.23152 14.49439 14.49439 0.000000 7.178555 12.93288 9.019766 1.616138 1.636640 14.33733 14.33733 14.33733 12.05998 19.02395 14.33733 14.33733 0.000000 7.090635 12.77235 8.914484 1.598331 1.618627 14.18361 14.18361 14.18361 11.93646 18.82387 14.18361 14.18361 0.000000 7.006850 12.61819 8.807215 1.581266 1.601360 14.03765 14.03765 14.03765 11.81722 18.63081 14.03765 14.03765 0.000000 6.926927 12.47001 8.704106 1.564897 1.585885 13.89896 13.89896 13.89896 11.70201 18.44436 13.89896 13.89896 0.000000 6.849657 12.32740 8.611160 1.541843 1.569970 13.76280 13.76280 13.76280 11.59059 18.26649 13.76280 13.76280 0.000000 6.772065 12.19008 8.515578 1.526624 1.554673 13.63114 13.63114 13.63114 11.48443 18.09215 13.63114 13.63114 0.000000 6.702298 12.04732 8.429637 1.511980 1.539957 13.50372 13.50372 13.50372 11.38014 17.92336 13.50372 13.50372 0.000000 6.635538 11.91968 8.340704 1.497878 1.526873 13.38031 13.38031 13.38031 11.28082 17.76214 13.38031 13.38031 0.000000 6.566996 11.79643 8.260990 1.484288 1.514305 13.26070 13.26070 13.26070 11.18241 17.60310 13.26070 13.26070 0.000000 6.510366 11.67734 8.177991 1.471182 1.501142 13.14682 13.14682 13.14682 11.08710 17.44929 13.14682 13.14682 0.000000 1102.352 1374.164 973.7348 156.2164 156.4357 665.1866 665.1866 665.1866 407.1752 716.4531 665.1866 665.1866 0.000000 111.3146 155.4659 109.1223 17.86563 17.91432 97.54305 97.54305 97.54305 69.91552 116.9619 97.54305 97.54305 0.000000 62.35421 90.88345 63.42917 10.48026 10.51358 63.61320 63.61320 63.61320 47.61002 78.55575 63.61320 63.61320 0.000000 44.34465 66.70316 46.42740 7.723495 7.752351 50.09237 50.09237 50.09237 38.38480 62.85431 50.09237 50.09237 0.000000 34.92649 53.82817 37.40224 6.258365 6.285065 42.53881 42.53881 42.53881 33.10529 53.92950 42.53881 42.53881 0.000000 29.10556 45.76155 31.76139 5.338791 5.364883 37.61325 37.61325 37.61325 29.60044 48.03567 37.61325 37.61325 0.000000 25.13499 40.17677 27.86703 4.704041 4.729655 34.09195 34.09195 34.09195 27.05962 43.78453 34.09195 34.09195 0.000000 22.24451 36.08194 25.00765 4.237175 4.262432 31.42852 31.42852 31.42852 25.11533 40.53871 31.42852 31.42852 0.000000 20.04729 32.92112 22.80512 3.877348 3.902328 29.32475 29.32475 29.32475 23.56280 37.95432 29.32475 29.32475 0.000000 18.31180 30.40890 21.06367 3.591969 3.615912 27.60892 27.60892 27.60892 22.29047 35.84032 27.60892 27.60892 0.000000 16.90808 28.35404 19.63377 3.357968 3.381817 26.17946 26.17946 26.17946 21.21851 34.06861 26.17946 26.17946 0.000000 15.82852 26.63947 18.44488 3.162987 3.186006 24.96414 24.96414 24.96414 20.30235 32.55343 24.96414 24.96414 0.000000 14.86474 25.17733 17.44123 2.997284 3.021099 23.91506 23.91506 23.91506 19.50741 31.23803 23.91506 23.91506 0.000000 14.03801 23.92888 16.57402 2.855317 2.878438 22.99836 22.99836 22.99836 18.80722 30.08501 22.99836 22.99836 0.000000 13.32785 22.83695 15.82483 2.731064 2.754991 22.18588 22.18588 22.18588 18.18657 29.06419 22.18588 22.18588 0.000000 12.70931 21.87975 15.15903 2.621211 2.645204 21.46252 21.46252 21.46252 17.63137 28.14966 21.46252 21.46252 0.000000 12.16260 21.02684 14.57445 2.524559 2.548673 20.81341 20.81341 20.81341 17.12747 27.32399 20.81341 20.81341 0.000000 11.67220 20.26090 14.04576 2.437760 2.461332 20.22447 20.22447 20.22447 16.67100 26.57350 20.22447 20.22447 0.000000 11.24024 19.58262 13.57623 2.360557 2.383664 19.68664 19.68664 19.68664 16.25537 25.89024 19.68664 19.68664 0.000000 10.85060 18.95241 13.14975 2.289157 2.313075 19.19574 19.19574 19.19574 15.87067 25.26173 19.19574 19.19574 0.000000 10.49718 18.38968 12.76025 2.225094 2.260745 18.74333 18.74333 18.74333 15.51720 24.68202 18.74333 18.74333 0.000000 10.17787 17.87313 12.40282 2.166288 2.203786 18.32437 18.32437 18.32437 15.18910 24.14454 18.32437 18.32437 0.000000 9.882614 17.39689 12.07337 2.122971 2.142228 17.93489 17.93489 17.93489 14.88341 23.64432 17.93489 17.93489 0.000000 9.616254 16.95606 11.77605 2.074792 2.093635 17.57386 17.57386 17.57386 14.59979 23.17989 17.57386 17.57386 0.000000 9.370766 16.54653 11.49650 2.030165 2.048605 17.23617 17.23617 17.23617 14.33144 22.74220 17.23617 17.23617 0.000000 9.143765 16.16481 11.23617 1.978913 2.006747 16.91910 16.91910 16.91910 14.08119 22.33366 16.91910 16.91910 0.000000 8.933225 15.82029 10.99658 1.940054 1.968964 16.62337 16.62337 16.62337 13.84555 21.94889 16.62337 16.62337 0.000000 8.735559 15.48556 10.77230 1.903722 1.932479 16.34445 16.34445 16.34445 13.62290 21.58565 16.34445 16.34445 0.000000 8.552814 15.17693 10.56177 1.869668 1.889784 16.07836 16.07836 16.07836 13.41206 21.24173 16.07836 16.07836 0.000000 8.381999 14.88630 10.36370 1.837678 1.857477 15.82860 15.82860 15.82860 13.21199 20.91870 15.82860 15.82860 0.000000 8.221989 14.61207 10.17694 1.807562 1.827051 15.59146 15.59146 15.59146 13.02177 20.60894 15.59146 15.59146 0.000000 8.071795 14.35273 10.00046 1.780298 1.799510 15.36597 15.36597 15.36597 12.84259 20.31428 15.36597 15.36597 0.000000 7.935318 14.11272 9.833395 1.744386 1.772364 15.15119 15.15119 15.15119 12.66973 20.03587 15.15119 15.15119 0.000000 7.796239 13.87376 9.674934 1.718809 1.746660 14.94856 14.94856 14.94856 12.50457 19.76763 14.94856 14.94856 0.000000 7.675310 13.65760 9.524384 1.694546 1.723433 14.75270 14.75270 14.75270 12.34846 19.51358 14.75270 14.75270 0.000000 7.551845 13.45190 9.387712 1.672576 1.701422 14.56525 14.56525 14.56525 12.19892 19.26795 14.56525 14.56525 0.000000 7.444153 13.25033 9.251142 1.650638 1.672724 14.38788 14.38788 14.38788 12.05549 19.03485 14.38788 14.38788 0.000000 7.337637 13.05783 9.120802 1.629737 1.650387 14.21774 14.21774 14.21774 11.91775 18.81112 14.21774 14.21774 0.000000 7.236570 12.87912 8.996252 1.609800 1.630222 14.05419 14.05419 14.05419 11.78533 18.59615 14.05419 14.05419 0.000000 7.145224 12.70811 8.883448 1.590760 1.612057 13.89709 13.89709 13.89709 11.65788 18.38937 13.89709 13.89709 0.000000 7.049258 12.54429 8.769234 1.573621 1.593630 13.74369 13.74369 13.74369 11.53483 18.19024 13.74369 13.74369 0.000000 6.966992 12.38716 8.665980 1.549493 1.577080 13.59803 13.59803 13.59803 11.41657 17.99831 13.59803 13.59803 0.000000 6.878585 12.23627 8.560766 1.532074 1.560169 13.45755 13.45755 13.45755 11.30242 17.81314 13.45755 13.45755 0.000000 6.799541 12.08086 8.459634 1.515938 1.543948 13.32410 13.32410 13.32410 11.19178 17.63382 13.32410 13.32410 0.000000 6.724083 11.94143 8.368529 1.500441 1.529458 13.19308 13.19308 13.19308 11.08498 17.46101 13.19308 13.19308 0.000000 6.651996 11.80716 8.274812 1.485546 1.514490 13.06640 13.06640 13.06640 10.98164 17.29385 13.06640 13.06640 0.000000 6.583078 11.67775 8.190580 1.471216 1.501176 12.94381 12.94381 12.94381 10.88310 17.13427 12.94381 12.94381 0.000000 6.517143 11.55291 8.103411 1.458432 1.482217 12.82509 12.82509 12.82509 10.78622 16.97750 12.82509 12.82509 0.000000 6.454021 11.43239 8.025296 1.445139 1.466580 12.71004 12.71004 12.71004 10.69385 16.82552 12.71004 12.71004 0.000000 6.393555 11.31594 7.943963 1.432321 1.453606 12.60052 12.60052 12.60052 10.60264 16.68028 12.60052 12.60052 0.000000 1101.076 1370.647 971.4696 155.8238 156.0406 659.5456 659.5456 659.5456 402.1528 708.4291 659.5456 659.5456 0.000000 110.8370 154.0759 108.2252 17.70589 17.75450 95.38464 95.38464 95.38464 67.99431 113.9004 95.38464 95.38464 0.000000 61.96497 89.78759 62.72536 10.35535 10.38856 61.93929 61.93929 61.93929 46.12494 76.18996 61.93929 61.93929 0.000000 44.01205 65.75043 45.81615 7.616673 7.645406 48.66174 48.66174 48.66174 37.11123 60.82646 48.66174 48.66174 0.000000 34.62919 52.97715 36.85597 6.161515 6.188038 41.25602 41.25602 41.25602 31.96710 52.11735 41.25602 41.25602 0.000000 28.82840 44.98202 31.25334 5.249929 5.275814 36.43394 36.43394 36.43394 28.55438 46.37571 36.43394 36.43394 0.000000 24.87677 39.45134 27.40060 4.621169 4.646551 32.99849 32.99849 32.99849 26.08608 42.23476 32.99849 32.99849 0.000000 22.00501 35.39906 24.56207 4.159008 4.184009 30.39577 30.39577 30.39577 24.19853 39.08154 30.39577 30.39577 0.000000 19.81957 32.27311 22.38780 3.803893 3.827713 28.34152 28.34152 28.34152 22.69380 36.57230 28.34152 28.34152 0.000000 18.09048 29.79003 20.65922 3.520814 3.544473 26.67360 26.67360 26.67360 21.45821 34.52137 26.67360 26.67360 0.000000 16.69521 27.76005 19.25055 3.289532 3.313901 25.28256 25.28256 25.28256 20.42052 32.80023 25.28256 25.28256 0.000000 15.63067 26.05847 18.07528 3.097667 3.121186 24.10041 24.10041 24.10041 19.53365 31.33217 24.10041 24.10041 0.000000 14.67279 24.62403 17.08347 2.933996 2.957496 23.08045 23.08045 23.08045 18.76473 30.05833 23.08045 23.08045 0.000000 13.85155 23.39237 16.22685 2.793818 2.816622 22.18651 22.18651 22.18651 18.08774 28.94227 22.18651 22.18651 0.000000 13.14602 22.31554 15.48256 2.671178 2.694761 21.40073 21.40073 21.40073 17.48737 27.95461 21.40073 21.40073 0.000000 12.53183 21.37192 14.82984 2.564125 2.587114 20.69553 20.69553 20.69553 16.95153 27.06708 20.69553 20.69553 0.000000 11.98906 20.53136 14.25296 2.468748 2.491186 20.06566 20.06566 20.06566 16.46483 26.26886 20.06566 20.06566 0.000000 11.50763 19.77681 13.73138 2.383123 2.406366 19.49416 19.49416 19.49416 16.02408 25.54291 19.49416 19.49416 0.000000 11.07883 19.10877 13.26831 2.305729 2.329753 18.97268 18.97268 18.97268 15.62063 24.88278 18.97268 18.97268 0.000000 10.69210 18.48830 12.84779 2.236583 2.272141 18.49702 18.49702 18.49702 15.25162 24.27631 18.49702 18.49702 0.000000 10.34664 17.93440 12.46385 2.173431 2.210862 18.05857 18.05857 18.05857 14.91058 23.71652 18.05857 18.05857 0.000000 10.02443 17.42609 12.11544 2.126322 2.145604 17.65246 17.65246 17.65246 14.59409 23.19762 17.65246 17.65246 0.000000 9.736617 16.95756 11.79455 2.074941 2.093784 17.27766 17.27766 17.27766 14.29895 22.71480 17.27766 17.27766 0.000000 9.472358 16.52398 11.49782 2.027534 2.045947 16.92551 16.92551 16.92551 14.02308 22.26665 16.92551 16.92551 0.000000 9.228842 16.12125 11.22245 1.973830 2.001634 16.59860 16.59860 16.59860 13.76466 21.84435 16.59860 16.59860 0.000000 9.003697 15.75215 10.96966 1.932827 1.961692 16.29429 16.29429 16.29429 13.52373 21.45026 16.29429 16.29429 0.000000 8.793108 15.40737 10.73372 1.894603 1.923308 16.00566 16.00566 16.00566 13.29665 21.07910 16.00566 16.00566 0.000000 8.598785 15.07840 10.51286 1.858876 1.878880 15.73579 15.73579 15.73579 13.08212 20.72882 15.73579 15.73579 0.000000 8.417603 14.78107 10.30560 1.826551 1.846245 15.47826 15.47826 15.47826 12.87899 20.39745 15.47826 15.47826 0.000000 8.248274 14.48968 10.11063 1.795107 1.814471 15.23902 15.23902 15.23902 12.68627 20.08330 15.23902 15.23902 0.000000 8.094463 14.22610 9.926825 1.759045 1.784557 15.00741 15.00741 15.00741 12.50305 19.78736 15.00741 15.00741 0.000000 7.945590 13.96567 9.753172 1.729570 1.757496 14.79170 14.79170 14.79170 12.33051 19.50338 14.79170 14.79170 0.000000 7.807981 13.73006 9.588807 1.703029 1.731977 14.58176 14.58176 14.58176 12.16597 19.23269 14.58176 14.58176 0.000000 7.677127 13.50660 9.439536 1.677897 1.706722 14.38590 14.38590 14.38590 12.00692 18.97667 14.38590 14.38590 0.000000 7.552612 13.29433 9.291415 1.654062 1.679345 14.19867 14.19867 14.19867 11.85473 18.72956 14.19867 14.19867 0.000000 7.434958 13.08145 9.150472 1.632497 1.653179 14.01748 14.01748 14.01748 11.71079 18.49532 14.01748 14.01748 0.000000 7.328299 12.88910 9.016190 1.610958 1.631394 13.84386 13.84386 13.84386 11.57274 18.27081 13.84386 13.84386 0.000000 7.222790 12.70555 8.894431 1.590444 1.611735 13.67948 13.67948 13.67948 11.44008 18.05304 13.67948 13.67948 0.000000 7.122694 12.53017 8.771949 1.571945 1.591931 13.52163 13.52163 13.52163 11.31281 17.84605 13.52163 13.52163 0.000000 7.032276 12.36237 8.661053 1.545946 1.574107 13.36988 13.36988 13.36988 11.18999 17.64647 13.36988 13.36988 0.000000 6.937224 12.20162 8.548764 1.527959 1.556018 13.22385 13.22385 13.22385 11.07184 17.45480 13.22385 13.22385 0.000000 6.850223 12.03710 8.447285 1.510740 1.539790 13.08316 13.08316 13.08316 10.95791 17.27006 13.08316 13.08316 0.000000 6.768187 11.88919 8.343857 1.494237 1.523199 12.94750 12.94750 12.94750 10.84779 17.09183 12.94750 12.94750 0.000000 6.694577 11.74706 8.250613 1.479422 1.508370 12.81657 12.81657 12.81657 10.74151 16.91974 12.81657 12.81657 0.000000 6.615287 11.61032 8.154973 1.464219 1.494179 12.69008 12.69008 12.69008 10.63899 16.75343 12.69008 12.69008 0.000000 6.548584 11.47867 8.068939 1.449610 1.471089 12.56779 12.56779 12.56779 10.54098 16.59257 12.56779 12.56779 0.000000 6.480410 11.35180 7.980156 1.436567 1.457909 12.45150 12.45150 12.45150 10.44483 16.43905 12.45150 12.45150 0.000000 6.415197 11.22942 7.900517 1.423040 1.444213 12.33894 12.33894 12.33894 10.35332 16.28821 12.33894 12.33894 0.000000 6.352780 11.11129 7.817829 1.410011 1.432057 12.22787 12.22787 12.22787 10.26271 16.14199 12.22787 12.22787 0.000000 6.293005 10.99716 7.743873 1.398456 1.419332 12.12016 12.12016 12.12016 10.17486 16.00229 12.12016 12.12016 0.000000 1099.942 1367.527 969.4604 155.4715 155.6906 654.5363 654.5363 654.5363 397.6928 701.3038 654.5363 654.5363 0.000000 110.3972 152.8188 107.4285 17.56631 17.61230 93.46583 93.46583 93.46583 66.29258 111.1883 93.46583 93.46583 0.000000 61.62558 88.81253 62.09912 10.24406 10.27716 60.46179 60.46179 60.46179 44.80345 74.08765 60.46179 60.46179 0.000000 43.71605 64.91697 45.27140 7.520070 7.550113 47.38911 47.38911 47.38911 35.98254 59.02911 47.38911 47.38911 0.000000 34.35955 52.23236 36.36916 6.075122 6.102731 40.11895 40.11895 40.11895 30.95487 50.50666 40.11895 40.11895 0.000000 28.58130 44.28724 30.80717 5.171760 5.197477 35.39235 35.39235 35.39235 27.62710 44.89605 35.39235 35.39235 0.000000 24.65069 38.80478 26.97832 4.548243 4.572403 32.02539 32.02539 32.02539 25.22309 40.86184 32.02539 32.02539 0.000000 21.79187 34.79043 24.17056 4.089279 4.114038 29.48004 29.48004 29.48004 23.38350 37.78603 29.48004 29.48004 0.000000 19.61331 31.68571 22.01590 3.738438 3.762037 27.47288 27.47288 27.47288 21.92066 35.34357 27.47288 27.47288 0.000000 17.89992 29.22911 20.30371 3.457336 3.481578 25.84117 25.84117 25.84117 20.72047 33.34522 25.84117 25.84117 0.000000 16.58208 27.22177 18.90901 3.229261 3.253361 24.48404 24.48404 24.48404 19.71273 31.67226 24.48404 24.48404 0.000000 15.44868 25.54841 17.74583 3.039443 3.063468 23.33123 23.33123 23.33123 18.85207 30.24609 23.33123 23.33123 0.000000 14.49600 24.13085 16.76460 2.877581 2.900796 22.33728 22.33728 22.33728 18.10622 29.01236 22.33728 22.33728 0.000000 13.68586 22.90620 15.91740 2.738992 2.762955 21.46669 21.46669 21.46669 17.44927 27.92599 21.46669 21.46669 0.000000 12.98443 21.85073 15.18597 2.617785 2.642458 20.69868 20.69868 20.69868 16.86553 26.96780 20.69868 20.69868 0.000000 12.37408 20.91917 14.54070 2.512012 2.536050 20.01797 20.01797 20.01797 16.34641 26.10703 20.01797 20.01797 0.000000 11.84042 20.08965 13.96632 2.417800 2.441250 19.40214 19.40214 19.40214 15.87499 25.33251 19.40214 19.40214 0.000000 11.36188 19.34522 13.45932 2.333874 2.357446 18.84639 18.84639 18.84639 15.44823 24.62952 18.84639 18.84639 0.000000 10.93587 18.68633 12.99777 2.258066 2.293457 18.33953 18.33953 18.33953 15.05987 23.98990 18.33953 18.33953 0.000000 10.55171 18.08123 12.58247 2.189788 2.227077 17.87719 17.87719 17.87719 14.70054 23.40243 17.87719 17.87719 0.000000 10.20861 17.52845 12.20725 2.127444 2.160586 17.45089 17.45089 17.45089 14.37025 22.85759 17.45089 17.45089 0.000000 9.888494 17.02747 11.85945 2.082999 2.101913 17.05631 17.05631 17.05631 14.06378 22.35789 17.05631 17.05631 0.000000 9.602715 16.56580 11.54648 2.032349 2.050807 16.69231 16.69231 16.69231 13.77859 21.89050 16.69231 16.69231 0.000000 9.345387 16.13864 11.24997 1.975829 2.003643 16.35296 16.35296 16.35296 13.51206 21.45417 16.35296 16.35296 0.000000 9.098625 15.74816 10.98191 1.932343 1.961205 16.03555 16.03555 16.03555 13.26423 21.04805 16.03555 16.03555 0.000000 8.878358 15.38460 10.73253 1.891935 1.921854 15.73777 15.73777 15.73777 13.02928 20.66423 15.73777 15.73777 0.000000 8.670944 15.03906 10.49978 1.854277 1.875417 15.45755 15.45755 15.45755 12.80980 20.30531 15.45755 15.45755 0.000000 8.478075 14.72705 10.28197 1.820238 1.839863 15.19570 15.19570 15.19570 12.60247 19.96657 15.19570 15.19570 0.000000 8.303093 14.42263 10.07761 1.787271 1.807716 14.94825 14.94825 14.94825 12.40618 19.64615 14.94825 14.94825 0.000000 8.135040 14.14740 9.885388 1.748411 1.776417 14.71162 14.71162 14.71162 12.21997 19.34242 14.71162 14.71162 0.000000 7.977658 13.87658 9.704200 1.719107 1.748115 14.49153 14.49153 14.49153 12.04487 19.05396 14.49153 14.49153 0.000000 7.834719 13.63162 9.533060 1.691464 1.720328 14.27787 14.27787 14.27787 11.87630 18.78189 14.27787 14.27787 0.000000 7.694509 13.39974 9.377644 1.666423 1.695223 14.07860 14.07860 14.07860 11.71552 18.52028 14.07860 14.07860 0.000000 7.563615 13.16893 9.224005 1.641687 1.662460 13.88651 13.88651 13.88651 11.56351 18.27289 13.88651 13.88651 0.000000 7.444823 12.96023 9.078074 1.619307 1.639845 13.70298 13.70298 13.70298 11.41855 18.03412 13.70298 13.70298 0.000000 7.332817 12.76169 8.945653 1.597031 1.617308 13.52955 13.52955 13.52955 11.27973 17.80783 13.52955 13.52955 0.000000 7.222398 12.57252 8.813342 1.576915 1.596964 13.36344 13.36344 13.36344 11.14443 17.59048 13.36344 13.36344 0.000000 7.117788 12.39204 8.693403 1.553351 1.577632 13.20415 13.20415 13.20415 11.01647 17.38013 13.20415 13.20415 0.000000 7.023208 12.21958 8.572748 1.530072 1.558148 13.05121 13.05121 13.05121 10.89324 17.18024 13.05121 13.05121 0.000000 6.928960 12.04424 8.457321 1.511573 1.540630 12.90420 12.90420 12.90420 10.77502 16.98800 12.90420 12.90420 0.000000 6.838385 11.88633 8.352952 1.494903 1.522843 12.76273 12.76273 12.76273 10.66103 16.80291 12.76273 12.76273 0.000000 6.753048 11.73491 8.253040 1.477969 1.506904 12.62646 12.62646 12.62646 10.55100 16.62454 12.62646 12.62646 0.000000 6.671755 11.58957 8.151213 1.462757 1.491681 12.49507 12.49507 12.49507 10.44481 16.45247 12.49507 12.49507 0.000000 6.598862 11.44990 8.059415 1.447193 1.468660 12.36827 12.36827 12.36827 10.34409 16.28634 12.36827 12.36827 0.000000 6.524890 11.31557 7.965260 1.432253 1.453534 12.24578 12.24578 12.24578 10.24485 16.12580 12.24578 12.24578 0.000000 6.454246 11.18624 7.880600 1.418905 1.440038 12.12736 12.12736 12.12736 10.14891 15.97053 12.12736 12.12736 0.000000 6.386730 11.06161 7.793227 1.405100 1.427094 12.01266 12.01266 12.01266 10.05601 15.82238 12.01266 12.01266 0.000000 6.322162 10.94141 7.714874 1.392823 1.413631 11.90373 11.90373 11.90373 9.965969 15.67680 11.90373 11.90373 0.000000 6.264995 10.83513 7.639394 1.378480 1.400663 11.79820 11.79820 11.79820 9.880320 15.53568 11.79820 11.79820 0.000000 6.201195 10.72300 7.560762 1.360846 1.389197 11.69396 11.69396 11.69396 9.797231 15.39881 11.69396 11.69396 0.000000 1098.927 1364.724 967.6638 155.1564 155.3754 650.0512 650.0512 650.0512 393.6777 694.9241 650.0512 650.0512 0.000000 110.0210 151.7137 106.6993 17.43879 17.48472 91.75347 91.75347 91.75347 64.76225 108.7517 91.75347 91.75347 0.000000 61.32174 87.95667 61.53728 10.14406 10.17706 59.13175 59.13175 59.13175 43.62439 72.20981 59.13175 59.13175 0.000000 43.45627 64.16917 44.79114 7.434587 7.463050 46.24763 46.24763 46.24763 34.96692 57.41872 46.24763 46.24763 0.000000 34.12216 51.55050 35.93170 5.998627 6.026096 39.09904 39.09904 39.09904 30.04720 49.06764 39.09904 39.09904 0.000000 28.36820 43.66283 30.40626 5.100450 5.127098 34.45385 34.45385 34.45385 26.79558 43.57796 34.45385 34.45385 0.000000 24.44784 38.22373 26.60489 4.481737 4.506722 31.15193 31.15193 31.15193 24.44546 39.63140 31.15193 31.15193 0.000000 21.59680 34.24347 23.81875 4.027473 4.052038 28.65832 28.65832 28.65832 22.65529 36.62471 28.65832 28.65832 0.000000 19.43146 31.16678 21.68172 3.678768 3.703023 26.69318 26.69318 26.69318 21.22674 34.24211 26.69318 26.69318 0.000000 17.72250 28.73351 19.97887 3.401049 3.425057 25.09719 25.09719 25.09719 20.05818 32.29405 25.09719 25.09719 0.000000 16.41901 26.74611 18.60208 3.175102 3.199757 23.77044 23.77044 23.77044 19.07776 30.66416 23.77044 23.77044 0.000000 15.29101 25.09001 17.44978 2.987120 3.010885 22.64391 22.64391 22.64391 18.24060 29.27543 22.64391 22.64391 0.000000 14.34323 23.68759 16.47802 2.826879 2.851309 21.67015 21.67015 21.67015 17.51489 28.07156 21.67015 21.67015 0.000000 13.53741 22.48427 15.63927 2.689721 2.713395 20.82327 20.82327 20.82327 16.87695 27.01772 20.82327 20.82327 0.000000 12.83964 21.43296 14.91534 2.571138 2.594160 20.07381 20.07381 20.07381 16.30979 26.08291 20.07381 20.07381 0.000000 12.23273 20.51225 14.27685 2.466471 2.488894 19.40685 19.40685 19.40685 15.80332 25.24549 19.40685 19.40685 0.000000 11.70216 19.69262 13.70867 2.373274 2.396453 18.80648 18.80648 18.80648 15.34785 24.49342 18.80648 18.80648 0.000000 11.22631 18.96421 13.20725 2.289642 2.313559 18.26494 18.26494 18.26494 14.93358 23.81043 18.26494 18.26494 0.000000 10.80288 18.30655 12.75486 2.215307 2.252380 17.77085 17.77085 17.77085 14.55426 23.18920 17.77085 17.77085 0.000000 10.42637 17.71579 12.34424 2.147806 2.186800 17.32292 17.32292 17.32292 14.20532 22.61875 17.32292 17.32292 0.000000 10.08288 17.17001 11.96950 2.097451 2.117755 16.90519 16.90519 16.90519 13.88522 22.08980 16.90519 16.90519 0.000000 9.767108 16.66909 11.63332 2.043037 2.062844 16.52364 16.52364 16.52364 13.58827 21.60219 16.52364 16.52364 0.000000 9.488195 16.21982 11.31663 1.984515 2.012376 16.16683 16.16683 16.16683 13.31174 21.15105 16.16683 16.16683 0.000000 9.227476 15.80453 11.03098 1.938161 1.967056 15.83655 15.83655 15.83655 13.05536 20.72782 15.83655 15.83655 0.000000 8.987283 15.41315 10.76615 1.895238 1.925175 15.52771 15.52771 15.52771 12.81313 20.33143 15.52771 15.52771 0.000000 8.763446 15.04854 10.51979 1.855364 1.876514 15.24021 15.24021 15.24021 12.58739 19.96168 15.24021 15.24021 0.000000 8.557436 14.71968 10.28991 1.819363 1.838977 14.96769 14.96769 14.96769 12.37275 19.61363 14.96769 14.96769 0.000000 8.370722 14.40032 10.07483 1.784654 1.805067 14.71072 14.71072 14.71072 12.17379 19.28520 14.71072 14.71072 0.000000 8.196943 14.11174 9.873042 1.744221 1.772195 14.47011 14.47011 14.47011 11.98172 18.97458 14.47011 14.47011 0.000000 8.034835 13.82906 9.683285 1.714612 1.742485 14.24227 14.24227 14.24227 11.80322 18.68017 14.24227 14.24227 0.000000 7.878529 13.57343 9.504437 1.685708 1.714586 14.02593 14.02593 14.02593 11.63177 18.40060 14.02593 14.02593 0.000000 7.730560 13.33195 9.342090 1.658450 1.687194 13.82041 13.82041 13.82041 11.46841 18.13463 13.82041 13.82041 0.000000 7.597296 13.09253 9.182188 1.633771 1.654467 13.62689 13.62689 13.62689 11.31472 17.88347 13.62689 13.62689 0.000000 7.467344 12.87602 9.030582 1.609392 1.629806 13.44020 13.44020 13.44020 11.16760 17.64102 13.44020 13.44020 0.000000 7.349436 12.67041 8.892995 1.587350 1.607518 13.26186 13.26186 13.26186 11.02531 17.41201 13.26186 13.26186 0.000000 7.233612 12.47483 8.756005 1.565407 1.586398 13.09337 13.09337 13.09337 10.89055 17.19059 13.09337 13.09337 0.000000 7.128693 12.28848 8.631777 1.538211 1.565267 12.93201 12.93201 12.93201 10.75998 16.98059 12.93201 12.93201 0.000000 7.029534 12.11073 8.507231 1.518202 1.546229 12.77729 12.77729 12.77729 10.63617 16.77910 12.77729 12.77729 0.000000 6.931060 11.93061 8.394432 1.499119 1.528122 12.62875 12.62875 12.62875 10.51685 16.58335 12.62875 12.62875 0.000000 6.836578 11.76827 8.280582 1.481913 1.510881 12.48598 12.48598 12.48598 10.40245 16.39723 12.48598 12.48598 0.000000 6.752253 11.61281 8.177647 1.464489 1.494450 12.34861 12.34861 12.34861 10.29203 16.21805 12.34861 12.34861 0.000000 6.662978 11.46376 8.079130 1.448826 1.470315 12.21629 12.21629 12.21629 10.18563 16.04539 12.21629 12.21629 0.000000 6.586965 11.32069 7.978715 1.432850 1.454139 12.08873 12.08873 12.08873 10.08464 15.87884 12.08873 12.08873 0.000000 6.514715 11.18324 7.888226 1.418538 1.439665 11.96550 11.96550 11.96550 9.985429 15.71804 11.96550 11.96550 0.000000 6.436747 11.05104 7.795408 1.403834 1.425807 11.84661 11.84661 11.84661 9.889514 15.56267 11.84661 11.84661 0.000000 6.371326 10.93357 7.711969 1.390714 1.411492 11.73169 11.73169 11.73169 9.798367 15.41242 11.73169 11.73169 0.000000 6.304401 10.81088 7.631727 1.374145 1.398762 11.62246 11.62246 11.62246 9.708486 15.26699 11.62246 11.62246 0.000000 6.240402 10.69257 7.548639 1.357199 1.385512 11.51674 11.51674 11.51674 9.621386 15.12821 11.51674 11.51674 0.000000 6.183796 10.57838 7.474270 1.345480 1.373783 11.41241 11.41241 11.41241 9.538550 14.99167 11.41241 11.41241 0.000000 6.119809 10.46809 7.402580 1.333249 1.362514 11.31125 11.31125 11.31125 9.456573 14.86129 11.31125 11.31125 0.000000 1098.012 1362.196 966.0347 154.8728 155.0917 646.0067 646.0067 646.0067 390.0769 689.1710 646.0067 646.0067 0.000000 109.6659 150.7171 106.0560 17.32357 17.36943 90.20808 90.20808 90.20808 63.38663 106.5609 90.20808 90.20808 0.000000 61.04070 87.16589 61.02956 10.05532 10.08825 57.93620 57.93620 57.93620 42.55581 70.51558 57.93620 57.93620 0.000000 43.21037 63.49334 44.35716 7.358644 7.387027 45.22120 45.22120 45.22120 34.05721 55.96546 45.22120 45.22120 0.000000 33.90761 50.94673 35.54371 5.929418 5.956748 38.17730 38.17730 38.17730 29.23085 47.76463 38.17730 38.17730 0.000000 28.16698 43.10969 30.04339 5.036925 5.063411 33.60991 33.60991 33.60991 26.04456 42.38337 33.60991 33.60991 0.000000 24.26040 37.70882 26.26691 4.422469 4.447286 30.36640 30.36640 30.36640 23.74949 38.52074 30.36640 30.36640 0.000000 21.42775 33.74836 23.50036 3.971549 3.995928 27.91916 27.91916 27.91916 21.99471 35.57980 27.91916 27.91916 0.000000 19.26710 30.70669 21.37927 3.625561 3.649614 25.98873 25.98873 25.98873 20.60309 33.25107 25.98873 25.98873 0.000000 17.56853 28.29402 19.69511 3.350112 3.374734 24.42795 24.42795 24.42795 19.46265 31.34827 24.42795 24.42795 0.000000 16.27190 26.32422 18.32426 3.126090 3.150503 23.12516 23.12516 23.12516 18.50655 29.75714 23.12516 23.12516 0.000000 15.14876 24.67506 17.18179 2.939767 2.963285 22.02255 22.02255 22.02255 17.68753 28.39899 22.02255 22.02255 0.000000 14.20539 23.28632 16.21860 2.782406 2.805153 21.06989 21.06989 21.06989 16.98107 27.22492 21.06989 21.06989 0.000000 13.40482 22.09516 15.38750 2.646490 2.669940 20.24164 20.24164 20.24164 16.35977 26.19759 20.24164 20.24164 0.000000 12.71479 21.05477 14.67034 2.527679 2.551804 19.50872 19.50872 19.50872 15.80759 25.28597 19.50872 19.50872 0.000000 12.11084 20.14385 14.03800 2.424047 2.447531 18.85700 18.85700 18.85700 15.31687 24.47077 18.85700 18.85700 0.000000 11.57397 19.33317 13.48365 2.333052 2.355981 18.27062 18.27062 18.27062 14.87147 23.73833 18.27062 18.27062 0.000000 11.10938 18.61977 12.97902 2.250254 2.285702 17.74152 17.74152 17.74152 14.46818 23.07335 17.74152 17.74152 0.000000 10.68817 17.96272 12.53128 2.176673 2.214073 17.25917 17.25917 17.25917 14.09923 22.46598 17.25917 17.25917 0.000000 10.31369 17.37880 12.13266 2.120794 2.140026 16.82179 16.82179 16.82179 13.76020 21.91090 16.82179 16.82179 0.000000 9.966821 16.84591 11.76175 2.061976 2.080696 16.41429 16.41429 16.41429 13.44902 21.39889 16.41429 16.41429 0.000000 9.663056 16.35719 11.42167 2.002162 2.027665 16.04201 16.04201 16.04201 13.16040 20.92464 16.04201 16.04201 0.000000 9.380650 15.90699 11.11574 1.950055 1.977775 15.69394 15.69394 15.69394 12.89167 20.48341 15.69394 15.69394 0.000000 9.121448 15.49065 10.83318 1.904239 1.932994 15.37172 15.37172 15.37172 12.64060 20.07179 15.37172 15.37172 0.000000 8.880954 15.10416 10.57123 1.861824 1.881854 15.07053 15.07053 15.07053 12.40724 19.68645 15.07053 15.07053 0.000000 8.664986 14.75602 10.32761 1.823582 1.843241 14.79037 14.79037 14.79037 12.18796 19.32707 14.79037 14.79037 0.000000 8.460193 14.41959 10.10032 1.786885 1.807324 14.52472 14.52472 14.52472 11.97949 18.98884 14.52472 14.52472 0.000000 8.274615 14.11585 9.887676 1.744688 1.772664 14.27427 14.27427 14.27427 11.78630 18.66971 14.27427 14.27427 0.000000 8.101914 13.81965 9.688215 1.713493 1.741358 14.04185 14.04185 14.04185 11.59979 18.36792 14.04185 14.04185 0.000000 7.940828 13.55188 9.500669 1.683168 1.712028 13.81762 13.81762 13.81762 11.42641 18.08193 13.81762 13.81762 0.000000 7.779506 13.29956 9.330492 1.654633 1.680135 13.60918 13.60918 13.60918 11.25993 17.81038 13.60918 13.60918 0.000000 7.638413 13.05037 9.163515 1.628803 1.649437 13.40682 13.40682 13.40682 11.10149 17.55158 13.40682 13.40682 0.000000 7.506030 12.82502 9.005536 1.604454 1.624822 13.21835 13.21835 13.21835 10.95217 17.30545 13.21835 13.21835 0.000000 7.381615 12.61141 8.862146 1.580398 1.601572 13.03866 13.03866 13.03866 10.80946 17.07279 13.03866 13.03866 0.000000 7.264504 12.40858 8.719893 1.556143 1.578484 12.86499 12.86499 12.86499 10.67146 16.85046 12.86499 12.86499 0.000000 7.149452 12.21563 8.590851 1.529580 1.557650 12.69886 12.69886 12.69886 10.54065 16.63551 12.69886 12.69886 0.000000 7.045267 12.02150 8.461916 1.509877 1.537887 12.54179 12.54179 12.54179 10.41395 16.43167 12.54179 12.54179 0.000000 6.942167 11.84631 8.345093 1.490136 1.519117 12.39119 12.39119 12.39119 10.29374 16.23395 12.39119 12.39119 0.000000 6.848058 11.67896 8.233706 1.471311 1.501269 12.24662 12.24662 12.24662 10.17826 16.04613 12.24662 12.24662 0.000000 6.755147 11.51891 8.121254 1.454350 1.476415 12.10768 12.10768 12.10768 10.06714 15.86552 12.10768 12.10768 0.000000 6.666832 11.36565 8.019620 1.438177 1.459540 11.97388 11.97388 11.97388 9.960111 15.69166 11.97388 11.97388 0.000000 6.587417 11.21872 7.922372 1.422743 1.443930 11.84516 11.84516 11.84516 9.856917 15.52413 11.84516 11.84516 0.000000 6.512002 11.07772 7.823223 1.406994 1.427974 11.72106 11.72106 11.72106 9.758986 15.36255 11.72106 11.72106 0.000000 6.435705 10.94225 7.733903 1.392902 1.413709 11.60132 11.60132 11.60132 9.662779 15.20657 11.60132 11.60132 0.000000 6.362917 10.82170 7.648168 1.373233 1.399021 11.48761 11.48761 11.48761 9.571404 15.05585 11.48761 11.48761 0.000000 6.298049 10.69624 7.559935 1.357627 1.385944 11.37774 11.37774 11.37774 9.481404 14.91010 11.37774 11.37774 0.000000 6.231649 10.57536 7.480754 1.345109 1.373407 11.26957 11.26957 11.26957 9.394257 14.76882 11.26957 11.26957 0.000000 6.168166 10.45880 7.404552 1.332128 1.361381 11.16485 11.16485 11.16485 9.309528 14.63219 11.16485 11.16485 0.000000 6.106695 10.34631 7.325384 1.320589 1.349837 11.06528 11.06528 11.06528 9.229240 14.50178 11.06528 11.06528 0.000000 6.048507 10.23766 7.254663 1.308536 1.338751 10.96878 10.96878 10.96878 9.151361 14.37334 10.96878 10.96878 0.000000 1097.182 1359.904 964.5574 154.6159 154.8347 642.3364 642.3364 642.3364 386.8093 683.9503 642.3364 642.3364 0.000000 109.3612 149.8127 105.4723 17.22130 17.26716 88.80456 88.80456 88.80456 62.13750 104.5649 88.80456 88.80456 0.000000 60.78506 86.44666 60.56783 9.974622 10.00751 56.84403 56.84403 56.84403 41.58921 68.97177 56.84403 56.84403 0.000000 42.99780 62.87875 43.95334 7.288198 7.316473 44.28834 44.28834 44.28834 33.22717 54.64571 44.28834 44.28834 0.000000 33.71747 50.39760 35.18299 5.866400 5.893596 37.34378 37.34378 37.34378 28.48908 46.58535 37.34378 37.34378 0.000000 27.99256 42.59465 29.71993 4.979083 5.005416 32.84650 32.84650 32.84650 25.36506 41.29922 32.84650 32.84650 0.000000 24.09775 37.24056 25.96550 4.368503 4.393161 29.65220 29.65220 29.65220 23.11414 37.51184 29.65220 29.65220 0.000000 21.26674 33.29735 23.21037 3.920629 3.944828 27.24339 27.24339 27.24339 21.39966 34.63063 27.24339 27.24339 0.000000 19.11759 30.27871 21.10377 3.577953 3.600973 25.35127 25.35127 25.35127 20.03596 32.35081 25.35127 25.35127 0.000000 17.42210 27.88524 19.43177 3.304521 3.328959 23.81632 23.81632 23.81632 18.92131 30.48911 23.81632 23.81632 0.000000 16.13836 25.93188 18.07124 3.082975 3.105644 22.53843 22.53843 22.53843 17.98481 28.93002 22.53843 22.53843 0.000000 15.01962 24.30528 16.93769 2.897367 2.921433 21.45736 21.45736 21.45736 17.18755 27.60568 21.45736 21.45736 0.000000 14.08025 22.92081 15.98232 2.740592 2.764557 20.52671 20.52671 20.52671 16.49566 26.45562 20.52671 20.52671 0.000000 13.28304 21.74830 15.16261 2.605847 2.629748 19.71234 19.71234 19.71234 15.89176 25.45173 19.71234 19.71234 0.000000 12.59612 20.71021 14.44716 2.489406 2.513309 18.99472 18.99472 18.99472 15.35313 24.56238 18.99472 18.99472 0.000000 11.99498 19.80824 13.82875 2.386678 2.409936 18.35959 18.35959 18.35959 14.87243 23.76679 18.35959 18.35959 0.000000 11.46605 19.01265 13.27106 2.295246 2.319194 17.78553 17.78553 17.78553 14.44009 23.05218 17.78553 17.78553 0.000000 10.99822 18.29959 12.77904 2.214451 2.251530 17.26795 17.26795 17.26795 14.04488 22.40356 17.26795 17.26795 0.000000 10.58442 17.65608 12.33535 2.141551 2.180604 16.79600 16.79600 16.79600 13.68772 21.81127 16.79600 16.79600 0.000000 10.21177 17.07177 11.93277 2.088061 2.107017 16.36602 16.36602 16.36602 13.35742 21.26728 16.36602 16.36602 0.000000 9.871660 16.54466 11.57297 2.029849 2.048280 15.97005 15.97005 15.97005 13.05431 20.76839 15.97005 15.97005 0.000000 9.564306 16.06133 11.23614 1.967978 1.995798 15.60372 15.60372 15.60372 12.77124 20.30619 15.60372 15.60372 0.000000 9.283362 15.61622 10.93318 1.918832 1.946434 15.26590 15.26590 15.26590 12.51154 19.87645 15.26590 15.26590 0.000000 9.030496 15.21064 10.65340 1.873504 1.897939 14.95116 14.95116 14.95116 12.26710 19.47548 14.95116 14.95116 0.000000 8.791156 14.83444 10.39408 1.831552 1.852459 14.65692 14.65692 14.65692 12.03994 19.10258 14.65692 14.65692 0.000000 8.571463 14.47853 10.15292 1.793744 1.813088 14.38103 14.38103 14.38103 11.82465 18.75259 14.38103 14.38103 0.000000 8.372636 14.15760 9.927970 1.749562 1.777573 14.12147 14.12147 14.12147 11.62363 18.42089 14.12147 14.12147 0.000000 8.188082 13.84604 9.717542 1.716575 1.744460 13.87911 13.87911 13.87911 11.43373 18.11021 13.87911 13.87911 0.000000 8.016351 13.56460 9.520183 1.684645 1.713515 13.65018 13.65018 13.65018 11.25406 17.81645 13.65018 13.65018 0.000000 7.856185 13.29999 9.341208 1.654671 1.680175 13.43346 13.43346 13.43346 11.08370 17.53761 13.43346 13.43346 0.000000 7.700420 13.03977 9.166300 1.627544 1.648162 13.22790 13.22790 13.22790 10.92361 17.27337 13.22790 13.22790 0.000000 7.555440 12.80448 9.001159 1.602026 1.622362 13.03465 13.03465 13.03465 10.76942 17.02426 13.03465 13.03465 0.000000 7.423854 12.58187 8.851278 1.577978 1.598039 12.84654 12.84654 12.84654 10.62255 16.78477 12.84654 12.84654 0.000000 7.300195 12.37089 8.709437 1.546902 1.575069 12.67125 12.67125 12.67125 10.48365 16.55622 12.67125 12.67125 0.000000 7.183813 12.17054 8.568723 1.524233 1.553345 12.50389 12.50389 12.50389 10.35126 16.33996 12.50389 12.50389 0.000000 7.074116 11.96969 8.441105 1.503727 1.532770 12.34387 12.34387 12.34387 10.22253 16.13089 12.34387 12.34387 0.000000 6.970599 11.78834 8.313595 1.484271 1.513258 12.18864 12.18864 12.18864 10.10085 15.93265 12.18864 12.18864 0.000000 6.867188 11.61537 8.198085 1.464772 1.494734 12.04177 12.04177 12.04177 9.984051 15.74036 12.04177 12.04177 0.000000 6.769962 11.45017 8.081884 1.447192 1.468657 11.90068 11.90068 11.90068 9.871794 15.55772 11.90068 11.90068 0.000000 6.682273 11.29219 7.976778 1.429445 1.451727 11.76522 11.76522 11.76522 9.763788 15.38212 11.76522 11.76522 0.000000 6.599154 11.14092 7.876318 1.413490 1.434543 11.63491 11.63491 11.63491 9.659763 15.21309 11.63491 11.63491 0.000000 6.515674 10.99592 7.780190 1.398267 1.419137 11.51136 11.51136 11.51136 9.559473 15.05023 11.51136 11.51136 0.000000 6.436177 10.86653 7.682200 1.383732 1.404419 11.39038 11.39038 11.39038 9.464314 14.89316 11.39038 11.39038 0.000000 6.365022 10.73279 7.593938 1.361987 1.390349 11.27365 11.27365 11.27365 9.370824 14.74131 11.27365 11.27365 0.000000 6.297368 10.60419 7.509225 1.347581 1.376882 11.16091 11.16091 11.16091 9.280167 14.59480 11.16091 11.16091 0.000000 6.228364 10.48041 7.427844 1.334706 1.363985 11.05195 11.05195 11.05195 9.192736 14.45312 11.05195 11.05195 0.000000 6.162444 10.36117 7.343814 1.322359 1.351626 10.94843 10.94843 10.94843 9.108081 14.31602 10.94843 10.94843 0.000000 6.098681 10.24619 7.268541 1.309549 1.339774 10.84825 10.84825 10.84825 9.027621 14.18325 10.84825 10.84825 0.000000 6.038354 10.13525 7.196047 1.297213 1.327370 10.74937 10.74937 10.74937 8.949633 14.05457 10.74937 10.74937 0.000000 5.985241 10.02811 7.126178 1.286284 1.308605 10.65522 10.65522 10.65522 8.872434 13.93153 10.65522 10.65522 0.000000 1096.424 1357.826 963.2102 154.3818 154.6007 638.9872 638.9872 638.9872 383.8275 679.1863 638.9872 638.9872 0.000000 109.0671 148.9874 104.9240 17.12547 17.17126 87.52274 87.52274 87.52274 60.99688 102.7498 87.52274 87.52274 0.000000 60.55817 85.80745 60.14557 9.899115 9.931897 55.85719 55.85719 55.85719 40.70631 67.56747 55.85719 55.85719 0.000000 42.79801 62.31667 43.59250 7.223686 7.253279 43.44053 43.44053 43.44053 32.46878 53.44050 43.44053 43.44053 0.000000 33.53395 49.89546 34.86042 5.808694 5.835763 36.58197 36.58197 36.58197 27.81133 45.50842 36.58197 36.58197 0.000000 27.82444 42.13469 29.41715 4.927177 4.952306 32.14495 32.14495 32.14495 24.74348 40.31284 32.14495 32.14495 0.000000 23.94115 36.80143 25.68349 4.320053 4.344583 28.99920 28.99920 28.99920 22.53342 36.59026 28.99920 28.99920 0.000000 21.12671 32.89428 22.95064 3.873999 3.898954 26.63238 26.63238 26.63238 20.85324 33.76359 26.63238 26.63238 0.000000 18.98085 29.89611 20.85145 3.533577 3.558144 24.76842 24.76842 24.76842 19.51756 31.52844 24.76842 24.76842 0.000000 17.29451 27.51081 19.19576 3.262827 3.286272 23.25974 23.25974 23.25974 18.42647 29.70106 23.25974 23.25974 0.000000 16.00985 25.57248 17.83946 3.042080 3.066110 22.00758 22.00758 22.00758 17.51209 28.17738 22.00758 22.00758 0.000000 14.90172 23.96708 16.71886 2.858585 2.881709 20.94333 20.94333 20.94333 16.73050 26.87797 20.94333 20.94333 0.000000 13.96599 22.60163 15.77043 2.703688 2.726748 20.03000 20.03000 20.03000 16.05638 25.75561 20.03000 20.03000 0.000000 13.17185 21.42350 14.95689 2.569966 2.592978 19.23090 19.23090 19.23090 15.46167 24.77076 19.23090 19.23090 0.000000 12.48777 20.40919 14.25126 2.454432 2.476785 18.53001 18.53001 18.53001 14.93766 23.90118 18.53001 18.53001 0.000000 11.89480 19.51495 13.62934 2.352529 2.375578 17.90209 17.90209 17.90209 14.46785 23.12350 17.90209 17.90209 0.000000 11.36794 18.71947 13.08437 2.261844 2.297206 17.34197 17.34197 17.34197 14.04354 22.42518 17.34197 17.34197 0.000000 10.90209 18.00627 12.59634 2.181727 2.219081 16.83469 16.83469 16.83469 13.66008 21.79150 16.83469 16.83469 0.000000 10.49009 17.37555 12.15634 2.120382 2.139608 16.37255 16.37255 16.37255 13.30945 21.21277 16.37255 16.37255 0.000000 10.11145 16.80329 11.75716 2.057016 2.076954 15.94903 15.94903 15.94903 12.98914 20.68443 15.94903 15.94903 0.000000 9.775315 16.28122 11.39307 1.990862 2.018757 15.56368 15.56368 15.56368 12.69341 20.19467 15.56368 15.56368 0.000000 9.474503 15.80260 11.06659 1.937888 1.966778 15.20508 15.20508 15.20508 12.41725 19.74350 15.20508 15.20508 0.000000 9.194885 15.36188 10.76635 1.890391 1.919125 14.87217 14.87217 14.87217 12.16397 19.32408 14.87217 14.87217 0.000000 8.943240 14.95440 10.48910 1.845509 1.865384 14.56420 14.56420 14.56420 11.92558 18.93281 14.56420 14.56420 0.000000 8.705000 14.57631 10.23216 1.803981 1.824597 14.27634 14.27634 14.27634 11.70222 18.56899 14.27634 14.27634 0.000000 8.491251 14.23578 9.993261 1.760495 1.785618 14.00852 14.00852 14.00852 11.49400 18.22524 14.00852 14.00852 0.000000 8.293403 13.90684 9.770451 1.722598 1.750470 13.75695 13.75695 13.75695 11.29830 17.90403 13.75695 13.75695 0.000000 8.109775 13.60995 9.562040 1.689954 1.717709 13.51775 13.51775 13.51775 11.11130 17.60056 13.51775 13.51775 0.000000 7.938921 13.33151 9.373166 1.658360 1.688248 13.29390 13.29390 13.29390 10.93804 17.31412 13.29390 13.29390 0.000000 7.773566 13.05888 9.189382 1.629779 1.650423 13.08202 13.08202 13.08202 10.77195 17.04275 13.08202 13.08202 0.000000 7.624568 12.81243 9.016213 1.602950 1.623297 12.88107 12.88107 12.88107 10.61431 16.78514 12.88107 12.88107 0.000000 7.485049 12.57976 8.859091 1.577717 1.597774 12.69011 12.69011 12.69011 10.46564 16.54013 12.69011 12.69011 0.000000 7.349486 12.35965 8.710681 1.545563 1.573717 12.51039 12.51039 12.51039 10.32266 16.30672 12.51039 12.51039 0.000000 7.226515 12.15102 8.563993 1.521914 1.551004 12.33908 12.33908 12.33908 10.18576 16.08615 12.33908 12.33908 0.000000 7.110791 11.94266 8.430929 1.500515 1.529528 12.17352 12.17352 12.17352 10.05665 15.87328 12.17352 12.17352 0.000000 7.001731 11.75445 8.298450 1.480242 1.509194 12.01505 12.01505 12.01505 9.933050 15.67168 12.01505 12.01505 0.000000 6.898823 11.57521 8.178385 1.461011 1.489040 11.86541 11.86541 11.86541 9.814551 15.47644 11.86541 11.86541 0.000000 6.800581 11.40427 8.064068 1.442744 1.464169 11.72196 11.72196 11.72196 9.700807 15.29120 11.72196 11.72196 0.000000 6.703913 11.24102 7.949061 1.424366 1.445554 11.58429 11.58429 11.58429 9.591498 15.11329 11.58429 11.58429 0.000000 6.616764 11.08492 7.845060 1.407832 1.428822 11.45200 11.45200 11.45200 9.486335 14.94019 11.45200 11.45200 0.000000 6.529546 10.94527 7.745665 1.392076 1.412872 11.32475 11.32475 11.32475 9.385055 14.77534 11.32475 11.32475 0.000000 6.451191 10.80194 7.650565 1.369757 1.397653 11.20411 11.20411 11.20411 9.287136 14.61672 11.20411 11.20411 0.000000 6.376804 10.66442 7.553618 1.354774 1.383116 11.08599 11.08599 11.08599 9.192928 14.46375 11.08599 11.08599 0.000000 6.306135 10.53232 7.466316 1.339943 1.369219 10.97390 10.97390 10.97390 9.101939 14.31609 10.97390 10.97390 0.000000 6.234313 10.40531 7.382532 1.326672 1.355925 10.86383 10.86383 10.86383 9.015553 14.17344 10.86383 10.86383 0.000000 6.165759 10.28306 7.302050 1.312997 1.343197 10.75745 10.75745 10.75745 8.930450 14.03551 10.75745 10.75745 0.000000 6.099529 10.16531 7.224672 1.300809 1.331003 10.65626 10.65626 10.65626 8.849604 13.90184 10.65626 10.65626 0.000000 6.036890 10.05179 7.144511 1.289118 1.311982 10.55847 10.55847 10.55847 8.769757 13.77454 10.55847 10.55847 0.000000 5.981604 9.951503 7.072836 1.277892 1.300133 10.46193 10.46193 10.46193 8.692336 13.64928 10.46193 10.46193 0.000000 5.924261 9.845667 7.003762 1.266150 1.289230 10.36834 10.36834 10.36834 8.618738 13.52781 10.36834 10.36834 0.000000 1095.729 1355.898 961.9757 154.1676 154.3864 635.9158 635.9158 635.9158 381.0930 674.8175 635.9158 635.9158 0.000000 108.7973 148.2306 104.4355 17.03740 17.08311 86.34622 86.34622 86.34622 59.95016 101.0848 86.34622 86.34622 0.000000 60.35009 85.20264 59.75745 9.831328 9.864047 54.94600 54.94600 54.94600 39.89584 66.27896 54.94600 54.94600 0.000000 42.61436 61.80002 43.26087 7.165692 7.193790 42.66174 42.66174 42.66174 31.77599 52.33906 42.66174 42.66174 0.000000 33.37485 49.42069 34.55615 5.756766 5.782536 35.88224 35.88224 35.88224 27.18896 44.52005 35.88224 35.88224 0.000000 27.67846 41.71196 29.14536 4.878425 4.903427 31.50383 31.50383 31.50383 24.17332 39.40755 31.50383 31.50383 0.000000 23.80501 36.40792 25.42387 4.274571 4.298954 28.40273 28.40273 28.40273 22.00282 35.74788 28.40273 28.40273 0.000000 20.99077 32.52381 22.70608 3.831976 3.856788 26.06778 26.06778 26.06778 20.35377 32.97108 26.06778 26.06778 0.000000 18.85864 29.53508 20.62467 3.492739 3.517130 24.23601 24.23601 24.23601 19.04391 30.77348 24.23601 24.23601 0.000000 17.17089 27.17496 18.97368 3.223721 3.247790 22.74840 22.74840 22.74840 17.97188 28.98060 22.74840 22.74840 0.000000 15.89804 25.25005 17.63104 3.004444 3.028275 21.51701 21.51701 21.51701 17.07606 27.48641 21.51701 21.51701 0.000000 14.79357 23.64813 16.51772 2.822217 2.846616 20.47095 20.47095 20.47095 16.31062 26.21269 20.47095 20.47095 0.000000 13.86118 22.29321 15.57567 2.668428 2.691987 19.57331 19.57331 19.57331 15.65066 25.11231 19.57331 19.57331 0.000000 13.06984 21.12446 14.76341 2.536356 2.559857 18.78864 18.78864 18.78864 15.07082 24.14825 18.78864 18.78864 0.000000 12.38835 20.11844 14.06296 2.421028 2.444490 18.09781 18.09781 18.09781 14.55567 23.29675 18.09781 18.09781 0.000000 11.79770 19.23170 13.45396 2.320542 2.344024 17.48381 17.48381 17.48381 14.09608 22.53545 17.48381 17.48381 0.000000 11.27285 18.44308 12.90496 2.231172 2.268118 16.93415 16.93415 16.93415 13.68348 21.84938 16.93415 16.93415 0.000000 10.80891 17.74950 12.42081 2.151673 2.190630 16.43417 16.43417 16.43417 13.30651 21.22919 16.43417 16.43417 0.000000 10.39864 17.11114 11.98434 2.092578 2.111573 15.98333 15.98333 15.98333 12.96577 20.66344 15.98333 15.98333 0.000000 10.02672 16.54412 11.59594 2.029755 2.048183 15.57031 15.57031 15.57031 12.65075 20.14665 15.57031 15.57031 0.000000 9.691980 16.02691 11.23475 1.963946 1.991742 15.18781 15.18781 15.18781 12.35984 19.66778 15.18781 15.18781 0.000000 9.392447 15.55285 10.91092 1.911431 1.940225 14.83867 14.83867 14.83867 12.09198 19.22672 14.83867 14.83867 0.000000 9.114038 15.11637 10.61314 1.863203 1.883245 14.51464 14.51464 14.51464 11.84269 18.81678 14.51464 14.51464 0.000000 8.861759 14.72469 10.33822 1.819890 1.839506 14.21283 14.21283 14.21283 11.61174 18.43441 14.21283 14.21283 0.000000 8.631147 14.35016 10.08348 1.779891 1.799091 13.93060 13.93060 13.93060 11.39359 18.07892 13.93060 13.93060 0.000000 8.413496 14.00718 9.846634 1.733683 1.761633 13.66618 13.66618 13.66618 11.19036 17.74309 13.66618 13.66618 0.000000 8.216570 13.68714 9.625762 1.697910 1.726817 13.41763 13.41763 13.41763 10.99729 17.42885 13.41763 13.41763 0.000000 8.033813 13.39314 9.425799 1.665583 1.694374 13.18766 13.18766 13.18766 10.81835 17.13294 13.18766 13.18766 0.000000 7.868544 13.10655 9.232030 1.635371 1.656082 12.96635 12.96635 12.96635 10.64587 16.85322 12.96635 12.96635 0.000000 7.703899 12.84760 9.049905 1.607075 1.627474 12.76099 12.76099 12.76099 10.48533 16.58603 12.76099 12.76099 0.000000 7.555621 12.60366 8.884709 1.580519 1.600612 12.56219 12.56219 12.56219 10.33160 16.33670 12.56219 12.56219 0.000000 7.416789 12.37337 8.722680 1.547175 1.575343 12.37732 12.37732 12.37732 10.18493 16.09752 12.37732 12.37732 0.000000 7.286562 12.15553 8.575665 1.522436 1.551530 12.20141 12.20141 12.20141 10.04691 15.86966 12.20141 12.20141 0.000000 7.164209 11.93879 8.436563 1.500046 1.529054 12.03175 12.03175 12.03175 9.915162 15.65438 12.03175 12.03175 0.000000 7.049077 11.74295 8.298576 1.478869 1.507808 11.86963 11.86963 11.86963 9.789208 15.44662 11.86963 11.86963 0.000000 6.935942 11.55675 8.173474 1.458811 1.482681 11.71670 11.71670 11.71670 9.666980 15.24781 11.71670 11.71670 0.000000 6.832606 11.37944 8.054541 1.439787 1.461169 11.57029 11.57029 11.57029 9.551400 15.05937 11.57029 11.57029 0.000000 6.735831 11.21036 7.941311 1.421722 1.442892 11.42996 11.42996 11.42996 9.440464 14.87862 11.42996 11.42996 0.000000 6.644302 11.04890 7.827395 1.404547 1.425508 11.29528 11.29528 11.29528 9.333577 14.70278 11.29528 11.29528 0.000000 6.557647 10.90429 7.724403 1.388204 1.408960 11.16589 11.16589 11.16589 9.231034 14.53590 11.16589 11.16589 0.000000 6.470905 10.75643 7.625980 1.363825 1.393185 11.04142 11.04142 11.04142 9.132283 14.37530 11.04142 11.04142 0.000000 6.393013 10.61471 7.531818 1.348822 1.378135 10.92346 10.92346 10.92346 9.037087 14.22058 10.92346 10.92346 0.000000 6.314457 10.47874 7.441638 1.334489 1.363765 10.80793 10.80793 10.80793 8.946794 14.07137 10.80793 10.80793 0.000000 6.244215 10.34814 7.349397 1.320783 1.350032 10.69834 10.69834 10.69834 8.858071 13.92715 10.69834 10.69834 0.000000 6.177445 10.22257 7.266460 1.307667 1.336897 10.59057 10.59057 10.59057 8.772312 13.78804 10.59057 10.59057 0.000000 6.108564 10.10175 7.186799 1.294142 1.323552 10.48654 10.48654 10.48654 8.689347 13.65355 10.48654 10.48654 0.000000 6.043427 9.985366 7.110217 1.282099 1.304380 10.38774 10.38774 10.38774 8.610546 13.52341 10.38774 10.38774 0.000000 5.985805 9.882376 7.036533 1.270549 1.292699 10.29215 10.29215 10.29215 8.532712 13.39739 10.29215 10.29215 0.000000 5.926266 9.774063 6.965592 1.258505 1.280489 10.19777 10.19777 10.19777 8.458750 13.27717 10.19777 10.19777 0.000000 5.869289 9.669460 6.897216 1.247859 1.269717 10.10809 10.10809 10.10809 8.385519 13.15874 10.10809 10.10809 0.000000 1095.089 1354.146 960.8394 153.9706 154.1894 633.0866 633.0866 633.0866 378.5742 670.7932 633.0866 633.0866 0.000000 108.5489 147.5334 103.9856 16.95856 17.00428 85.26153 85.26153 85.26153 58.98532 99.54353 85.26153 85.26153 0.000000 60.15841 84.66277 59.39910 9.768757 9.801426 54.10562 54.10562 54.10562 39.15266 65.09142 54.10562 54.10562 0.000000 42.45049 61.32300 42.95471 7.112163 7.140193 41.93915 41.93915 41.93915 31.13718 51.31933 41.93915 41.93915 0.000000 33.22330 48.99466 34.29028 5.708840 5.734530 35.24043 35.24043 35.24043 26.61811 43.61302 35.24043 35.24043 0.000000 27.53954 41.32167 28.89446 4.833361 4.858235 30.91248 30.91248 30.91248 23.64740 38.57298 30.91248 30.91248 0.000000 23.67555 36.04457 25.19011 4.232526 4.257751 27.85237 27.85237 27.85237 21.51337 34.96771 27.85237 27.85237 0.000000 20.87244 32.17184 22.48577 3.793183 3.816958 25.54994 25.54994 25.54994 19.89053 32.23706 25.54994 25.54994 0.000000 18.73907 29.21049 20.41531 3.455814 3.479213 23.74455 23.74455 23.74455 18.60445 30.07730 23.74455 23.74455 0.000000 17.06306 26.86488 18.76833 3.188347 3.212264 22.27942 22.27942 22.27942 17.55430 28.31934 22.27942 22.27942 0.000000 15.79503 24.95235 17.43862 2.971136 2.994824 21.06424 21.06424 21.06424 16.67369 26.84923 21.06424 21.06424 0.000000 14.68763 23.35314 16.32732 2.790017 2.813525 20.03769 20.03769 20.03769 15.92542 25.59856 20.03769 20.03769 0.000000 13.76459 22.00796 15.39135 2.637195 2.660591 19.15176 19.15176 19.15176 15.27625 24.51965 19.15176 19.15176 0.000000 12.97582 20.86271 14.59317 2.505320 2.529311 18.38301 18.38301 18.38301 14.70806 23.57416 18.38301 18.38301 0.000000 12.29673 19.85672 13.89722 2.391423 2.414706 17.70367 17.70367 17.70367 14.20306 22.73662 17.70367 17.70367 0.000000 11.70821 18.97673 13.28411 2.290999 2.314919 17.10033 17.10033 17.10033 13.75323 21.99048 17.10033 17.10033 0.000000 11.18521 18.20102 12.74700 2.202881 2.240053 16.55780 16.55780 16.55780 13.34924 21.32083 16.55780 16.55780 0.000000 10.72836 17.49958 12.26622 2.134677 2.155585 16.06913 16.06913 16.06913 12.98219 20.71336 16.06913 16.06913 0.000000 10.31959 16.87946 11.83285 2.065788 2.084540 15.62389 15.62389 15.62389 12.64670 20.15910 15.62389 15.62389 0.000000 9.948977 16.31701 11.44354 1.995584 2.022905 15.21844 15.21844 15.21844 12.33842 19.65056 15.21844 15.21844 0.000000 9.615516 15.80404 11.08872 1.938028 1.966917 14.84529 14.84529 14.84529 12.05569 19.18414 14.84529 14.84529 0.000000 9.317155 15.33394 10.76734 1.887113 1.915827 14.50261 14.50261 14.50261 11.79362 18.75238 14.50261 14.50261 0.000000 9.044825 14.90117 10.47184 1.839284 1.859091 14.18448 14.18448 14.18448 11.54950 18.35114 14.18448 14.18448 0.000000 8.788538 14.50117 10.19905 1.796345 1.815716 13.88611 13.88611 13.88611 11.32212 17.97694 13.88611 13.88611 0.000000 8.558880 14.14161 9.946313 1.747651 1.775646 13.61158 13.61158 13.61158 11.10864 17.62633 13.61158 13.61158 0.000000 8.346971 13.79603 9.711369 1.710673 1.738515 13.35222 13.35222 13.35222 10.90983 17.29781 13.35222 13.35222 0.000000 8.150857 13.48451 9.492290 1.676296 1.705162 13.10845 13.10845 13.10845 10.72299 16.99093 13.10845 13.10845 0.000000 7.968869 13.18222 9.293979 1.643175 1.663961 12.88085 12.88085 12.88085 10.54640 16.70154 12.88085 12.88085 0.000000 7.793566 12.90926 9.101817 1.613243 1.633700 12.66594 12.66594 12.66594 10.37940 16.42800 12.66594 12.66594 0.000000 7.635610 12.65273 8.927623 1.585214 1.605351 12.46257 12.46257 12.46257 10.22095 16.16890 12.46257 12.46257 0.000000 7.488009 12.41109 8.757449 1.553376 1.578739 12.26974 12.26974 12.26974 10.07051 15.92299 12.26974 12.26974 0.000000 7.349823 12.18298 8.603074 1.525675 1.554798 12.08854 12.08854 12.08854 9.929002 15.68916 12.08854 12.08854 0.000000 7.224876 11.95692 8.457288 1.502185 1.531212 11.91603 11.91603 11.91603 9.794147 15.46643 11.91603 11.91603 0.000000 7.103096 11.75262 8.313202 1.480007 1.508955 11.74980 11.74980 11.74980 9.663778 15.25395 11.74980 11.74980 0.000000 6.988517 11.55871 8.182542 1.459035 1.483006 11.59107 11.59107 11.59107 9.540740 15.05298 11.59107 11.59107 0.000000 6.874971 11.37436 8.058520 1.439175 1.460549 11.44124 11.44124 11.44124 9.421339 14.86073 11.44124 11.44124 0.000000 6.773046 11.19883 7.940623 1.420344 1.441493 11.29781 11.29781 11.29781 9.308170 14.67431 11.29781 11.29781 0.000000 6.676758 11.03146 7.822419 1.402465 1.423395 11.16035 11.16035 11.16035 9.199836 14.49568 11.16035 11.16035 0.000000 6.585699 10.88140 7.715476 1.385474 1.406186 11.02844 11.02844 11.02844 9.095738 14.32609 11.02844 11.02844 0.000000 6.499497 10.72852 7.613408 1.361452 1.389807 10.90170 10.90170 10.90170 8.995602 14.16307 10.90170 10.90170 0.000000 6.417815 10.58219 7.515876 1.345892 1.374197 10.77981 10.77981 10.77981 8.899173 14.00619 10.77981 10.77981 0.000000 6.340355 10.44195 7.422575 1.330078 1.359308 10.66417 10.66417 10.66417 8.806222 13.85485 10.66417 10.66417 0.000000 6.266832 10.30740 7.327451 1.315896 1.345094 10.55287 10.55287 10.55287 8.718070 13.70914 10.55287 10.55287 0.000000 6.192368 10.17817 7.247571 1.302336 1.331513 10.44372 10.44372 10.44372 8.631449 13.56850 10.44372 10.44372 0.000000 6.120627 10.05396 7.159668 1.289363 1.312292 10.33833 10.33833 10.33833 8.549236 13.43265 10.33833 10.33833 0.000000 6.057438 9.943667 7.080759 1.276937 1.299163 10.23829 10.23829 10.23829 8.468234 13.30131 10.23829 10.23829 0.000000 5.992670 9.828476 7.004906 1.265031 1.287118 10.14157 10.14157 10.14157 8.389813 13.17423 10.14157 10.14157 0.000000 5.930765 9.717434 6.931930 1.253613 1.275564 10.04621 10.04621 10.04621 8.315322 13.05118 10.04621 10.04621 0.000000 5.876219 9.610285 6.861675 1.242657 1.264478 9.955610 9.955610 9.955610 8.243127 12.93194 9.955610 9.955610 0.000000 5.824241 9.515874 6.793964 1.231180 1.253828 9.867823 9.867823 9.867823 8.171639 12.81633 9.867823 9.867823 0.000000 1094.497 1352.503 959.7892 153.7840 154.0051 630.4385 630.4385 630.4385 376.2236 667.0714 630.4385 630.4385 0.000000 108.3367 146.8886 103.5694 16.88317 16.92883 84.26463 84.26463 84.26463 58.09235 98.12434 84.26463 84.26463 0.000000 59.98114 84.14489 59.07802 9.710765 9.743373 53.33274 53.33274 53.33274 38.46076 63.99785 53.33274 53.33274 0.000000 42.29893 60.88074 42.67091 7.061188 7.090520 41.27428 41.27428 41.27428 30.54575 50.38002 41.27428 41.27428 0.000000 33.08277 48.59967 34.02888 5.663253 5.690039 34.64642 34.64642 34.64642 26.08960 42.76960 34.64642 34.64642 0.000000 27.41074 40.95988 28.65502 4.792573 4.818420 30.36836 30.36836 30.36836 23.16033 37.80050 30.36836 30.36836 0.000000 23.55551 35.69714 24.97344 4.194450 4.218590 27.34226 27.34226 27.34226 21.06261 34.24893 27.34226 27.34226 0.000000 20.76299 31.85487 22.28157 3.756356 3.780886 25.07020 25.07020 25.07020 19.46658 31.56081 25.07020 25.07020 0.000000 18.63492 28.90961 20.21584 3.421590 3.445699 23.28945 23.28945 23.28945 18.19980 29.43594 23.28945 23.28945 0.000000 16.96331 26.56871 18.58789 3.155562 3.179332 21.84490 21.84490 21.84490 17.16806 27.70417 21.84490 21.84490 0.000000 15.69972 24.66809 17.25538 2.938833 2.962339 20.64748 20.64748 20.64748 16.30322 26.25927 20.64748 20.64748 0.000000 14.59544 23.09513 16.15985 2.758800 2.782848 19.63607 19.63607 19.63607 15.56863 25.03051 19.63607 19.63607 0.000000 13.67522 21.75836 15.22915 2.606924 2.631526 18.76391 18.76391 18.76391 14.93153 23.97089 18.76391 18.76391 0.000000 12.88883 20.60578 14.42699 2.477202 2.501029 18.00717 18.00717 18.00717 14.37377 23.04260 18.00717 18.00717 0.000000 12.21764 19.61409 13.73549 2.364012 2.387128 17.33857 17.33857 17.33857 13.87870 22.22052 17.33857 17.33857 0.000000 11.62202 18.74035 13.13450 2.264227 2.299569 16.74237 16.74237 16.74237 13.43759 21.48836 16.74237 16.74237 0.000000 11.10953 17.96354 12.60077 2.176681 2.214078 16.21140 16.21140 16.21140 13.03951 20.83160 16.21140 16.21140 0.000000 10.65418 17.28058 12.12310 2.109368 2.129774 15.73086 15.73086 15.73086 12.67977 20.23560 15.73086 15.73086 0.000000 10.24156 16.65224 11.69260 2.042230 2.060774 15.29311 15.29311 15.29311 12.35102 19.68962 15.29311 15.29311 0.000000 9.877378 16.09426 11.30224 1.971747 1.999586 14.89458 14.89458 14.89458 12.05089 19.19349 14.89458 14.89458 0.000000 9.545089 15.58550 10.95354 1.915203 1.944017 14.52788 14.52788 14.52788 11.77203 18.73391 14.52788 14.52788 0.000000 9.247806 15.11928 10.63439 1.863516 1.883560 14.19102 14.19102 14.19102 11.51516 18.31079 14.19102 14.19102 0.000000 8.971521 14.70194 10.34099 1.817216 1.836802 13.87640 13.87640 13.87640 11.27642 17.91763 13.87640 13.87640 0.000000 8.721090 14.30517 10.07019 1.774624 1.793762 13.58553 13.58553 13.58553 11.05527 17.55054 13.58553 13.58553 0.000000 8.492309 13.93714 9.819294 1.726116 1.754011 13.31592 13.31592 13.31592 10.84629 17.20985 13.31592 13.31592 0.000000 8.281224 13.60582 9.586109 1.689436 1.717185 13.06122 13.06122 13.06122 10.65199 16.88806 13.06122 13.06122 0.000000 8.085888 13.29689 9.375253 1.655342 1.682866 12.82188 12.82188 12.82188 10.46872 16.58531 12.82188 12.82188 0.000000 7.904634 12.99718 9.171873 1.622496 1.643049 12.59844 12.59844 12.59844 10.29427 16.30194 12.59844 12.59844 0.000000 7.734721 12.72657 8.987635 1.592822 1.614138 12.38750 12.38750 12.38750 10.13251 16.03413 12.38750 12.38750 0.000000 7.577399 12.47227 8.808393 1.565042 1.586024 12.18790 12.18790 12.18790 9.977528 15.78048 12.18790 12.18790 0.000000 7.430408 12.23274 8.645847 1.531553 1.559637 11.99853 11.99853 11.99853 9.830311 15.53976 11.99853 11.99853 0.000000 7.292794 11.99633 8.486437 1.506845 1.535912 11.82076 11.82076 11.82076 9.691861 15.31089 11.82076 11.82076 0.000000 7.163736 11.78265 8.341822 1.483559 1.512538 11.65165 11.65165 11.65165 9.558296 15.09292 11.65165 11.65165 0.000000 7.047146 11.58021 8.205031 1.461577 1.486819 11.48856 11.48856 11.48856 9.432388 14.88702 11.48856 11.48856 0.000000 6.933073 11.38808 8.075407 1.440796 1.462191 11.33478 11.33478 11.33478 9.310150 14.68808 11.33478 11.33478 0.000000 6.819980 11.20544 7.952379 1.421120 1.442281 11.18589 11.18589 11.18589 9.194970 14.49996 11.18589 11.18589 0.000000 6.718517 11.03155 7.829463 1.402468 1.423397 11.04523 11.04523 11.04523 9.084571 14.31778 11.04523 11.04523 0.000000 6.622679 10.87550 7.718188 1.384766 1.405466 10.91042 10.91042 10.91042 8.978621 14.14501 10.91042 10.91042 0.000000 6.532053 10.71712 7.612128 1.360081 1.388421 10.78106 10.78106 10.78106 8.876822 13.97911 10.78106 10.78106 0.000000 6.446269 10.56571 7.510911 1.343914 1.372197 10.65851 10.65851 10.65851 8.778902 13.81749 10.65851 10.65851 0.000000 6.364991 10.42078 7.414199 1.328502 1.356740 10.54081 10.54081 10.54081 8.684612 13.66406 10.54081 10.54081 0.000000 6.287921 10.28189 7.321689 1.312835 1.343032 10.42570 10.42570 10.42570 8.593727 13.51627 10.42570 10.42570 0.000000 6.214777 10.14867 7.233104 1.298792 1.328963 10.31478 10.31478 10.31478 8.506041 13.37377 10.31478 10.31478 0.000000 6.145312 10.02073 7.142483 1.285370 1.307675 10.20778 10.20778 10.20778 8.422862 13.23625 10.20778 10.20778 0.000000 6.069268 9.906968 7.066726 1.272528 1.294684 10.10627 10.10627 10.10627 8.342500 13.10341 10.10627 10.10627 0.000000 6.006423 9.788564 6.982822 1.260233 1.282243 10.00821 10.00821 10.00821 8.263312 12.97499 10.00821 10.00821 0.000000 5.946623 9.674515 6.907640 1.248453 1.270320 9.911648 9.911648 9.911648 8.186652 12.85074 9.911648 9.911648 0.000000 5.889704 9.564591 6.835315 1.237159 1.258886 9.819945 9.819945 9.819945 8.112384 12.73044 9.819945 9.819945 0.000000 5.826178 9.467538 6.765691 1.222367 1.247916 9.731158 9.731158 9.731158 8.043288 12.61571 9.731158 9.731158 0.000000 5.774506 9.365092 6.698593 1.208590 1.237380 9.643392 9.643392 9.643392 7.973414 12.50267 9.643392 9.643392 0.000000 1093.948 1350.990 958.8152 153.6155 153.8342 628.0099 628.0099 628.0099 374.0613 663.6166 628.0099 628.0099 0.000000 108.1234 146.2901 103.1676 16.81550 16.86115 83.33171 83.33171 83.33171 57.26817 96.80664 83.33171 83.33171 0.000000 59.80967 83.68144 58.76887 9.656819 9.689371 52.60941 52.60941 52.60941 37.82189 62.97720 52.60941 52.60941 0.000000 42.15253 60.46925 42.40688 7.015048 7.042919 40.65635 40.65635 40.65635 29.99620 49.50764 40.65635 40.65635 0.000000 32.95695 48.24522 33.79290 5.621948 5.647456 34.09036 34.09036 34.09036 25.59537 41.98912 34.09036 34.09036 0.000000 27.29529 40.62328 28.43871 4.754636 4.779327 29.86263 29.86263 29.86263 22.71048 37.08287 29.86263 29.86263 0.000000 23.44782 35.39449 24.76566 4.159034 4.184036 26.87164 26.87164 26.87164 20.64132 33.58118 26.87164 26.87164 0.000000 20.65395 31.55996 22.08585 3.722918 3.747330 24.62413 24.62413 24.62413 19.07004 30.93257 24.62413 24.62413 0.000000 18.53822 28.62969 20.03534 3.388941 3.412896 22.86628 22.86628 22.86628 17.82555 28.84009 22.86628 22.86628 0.000000 16.86418 26.31003 18.41015 3.125063 3.148693 21.44092 21.44092 21.44092 16.80900 27.13555 21.44092 21.44092 0.000000 15.61124 24.41965 17.09429 2.910202 2.933583 20.25993 20.25993 20.25993 15.95882 25.71396 20.25993 20.25993 0.000000 14.50985 22.83975 15.99508 2.731116 2.755027 19.26260 19.26260 19.26260 15.23694 24.50547 19.26260 19.26260 0.000000 13.59224 21.51140 15.06961 2.580069 2.603129 18.40324 18.40324 18.40324 14.61105 23.46094 18.40324 18.40324 0.000000 12.80806 20.38093 14.28069 2.451075 2.474075 17.65748 17.65748 17.65748 14.06296 22.54862 17.65748 17.65748 0.000000 12.13889 19.38128 13.59305 2.338541 2.361497 16.99888 16.99888 16.99888 13.57713 21.74091 16.99888 16.99888 0.000000 11.55057 18.52039 12.99147 2.239348 2.274878 16.41196 16.41196 16.41196 13.14412 21.02175 16.41196 16.41196 0.000000 11.03419 17.75553 12.45710 2.152333 2.191282 15.88923 15.88923 15.88923 12.75344 20.37650 15.88923 15.88923 0.000000 10.58033 17.06417 11.98248 2.087108 2.106051 15.41615 15.41615 15.41615 12.40045 19.79160 15.41615 15.41615 0.000000 10.17189 16.45313 11.56228 2.019193 2.038773 14.98547 14.98547 14.98547 12.07793 19.25563 14.98547 14.98547 0.000000 9.806080 15.89906 11.17438 1.949047 1.977999 14.59338 14.59338 14.59338 11.78354 18.76871 14.59338 14.59338 0.000000 9.480000 15.39393 10.82792 1.894070 1.922822 14.23265 14.23265 14.23265 11.50986 18.31773 14.23265 14.23265 0.000000 9.183711 14.93109 10.51085 1.842746 1.862589 13.90131 13.90131 13.90131 11.25823 17.90259 13.90131 13.90131 0.000000 8.913312 14.50517 10.21940 1.796786 1.816161 13.59192 13.59192 13.59192 11.02411 17.51643 13.59192 13.59192 0.000000 8.658748 14.12303 9.950415 1.745456 1.773434 13.30593 13.30593 13.30593 10.80719 17.15687 13.30593 13.30593 0.000000 8.430777 13.75783 9.701255 1.706171 1.735135 13.04089 13.04089 13.04089 10.60265 16.82055 13.04089 13.04089 0.000000 8.220452 13.42906 9.469687 1.669766 1.698585 12.79054 12.79054 12.79054 10.41022 16.50722 12.79054 12.79054 0.000000 8.030616 13.11161 9.260318 1.635936 1.656652 12.55531 12.55531 12.55531 10.23248 16.21038 12.55531 12.55531 0.000000 7.850012 12.82523 9.058396 1.604415 1.624779 12.33779 12.33779 12.33779 10.06147 15.93259 12.33779 12.33779 0.000000 7.680666 12.55680 8.875490 1.574978 1.594996 12.12848 12.12848 12.12848 9.902987 15.67007 12.12848 12.12848 0.000000 7.523933 12.30455 8.703865 1.540040 1.567106 11.93426 11.93426 11.93426 9.749496 15.41937 11.93426 11.93426 0.000000 7.377495 12.05662 8.536223 1.512957 1.542021 11.74836 11.74836 11.74836 9.606933 15.18555 11.74836 11.74836 0.000000 7.240414 11.83256 8.384181 1.488450 1.517413 11.57178 11.57178 11.57178 9.471324 14.96127 11.57178 11.57178 0.000000 7.111863 11.62069 8.240622 1.465358 1.495322 11.40569 11.40569 11.40569 9.340215 14.74745 11.40569 11.40569 0.000000 6.991112 11.41997 8.098744 1.443563 1.464975 11.24744 11.24744 11.24744 9.215329 14.54368 11.24744 11.24744 0.000000 6.876570 11.22948 7.970123 1.422962 1.445170 11.09642 11.09642 11.09642 9.097496 14.35101 11.09642 11.09642 0.000000 6.769476 11.04842 7.848057 1.404467 1.425425 10.95209 10.95209 10.95209 8.984711 14.16474 10.95209 10.95209 0.000000 6.668444 10.88581 7.732038 1.385983 1.406704 10.81396 10.81396 10.81396 8.876614 13.98827 10.81396 10.81396 0.000000 6.573021 10.72138 7.621610 1.360583 1.388928 10.68146 10.68146 10.68146 8.772881 13.81689 10.68146 10.68146 0.000000 6.482797 10.56441 7.516366 1.343751 1.372032 10.55443 10.55443 10.55443 8.673216 13.65445 10.55443 10.55443 0.000000 6.397399 10.41435 7.415933 1.327725 1.356987 10.43241 10.43241 10.43241 8.577354 13.49831 10.43241 10.43241 0.000000 6.316500 10.27072 7.319979 1.312451 1.341672 10.31506 10.31506 10.31506 8.485051 13.34616 10.31506 10.31506 0.000000 6.239789 10.13311 7.228200 1.297882 1.328104 10.20210 10.20210 10.20210 8.396087 13.20146 10.20210 10.20210 0.000000 6.166997 10.00111 7.134619 1.283968 1.306277 10.09503 10.09503 10.09503 8.311743 13.06195 10.09503 10.09503 0.000000 6.097124 9.883561 7.056102 1.270671 1.292822 9.991802 9.991802 9.991802 8.228851 12.92732 9.991802 9.991802 0.000000 6.026747 9.761649 6.969634 1.257952 1.279949 9.890409 9.890409 9.890409 8.150206 12.79728 9.890409 9.890409 0.000000 5.964230 9.644335 6.897678 1.245778 1.267624 9.792439 9.792439 9.792439 8.072705 12.67157 9.792439 9.792439 0.000000 5.900109 9.540418 6.817496 1.234117 1.255816 9.701187 9.701187 9.701187 7.997682 12.54996 9.701187 9.701187 0.000000 5.843492 9.431458 6.751351 1.216139 1.244494 9.609471 9.609471 9.609471 7.926168 12.43403 9.609471 9.609471 0.000000 5.789578 9.326361 6.676730 1.204829 1.233630 9.520641 9.520641 9.520641 7.857124 12.31993 9.520641 9.520641 0.000000 5.733545 9.279661 6.615728 1.194410 1.223200 9.437974 9.437974 9.437974 7.788741 12.20930 9.437974 9.437974 0.000000 1093.436 1349.582 957.9089 153.4566 153.6777 625.7480 625.7480 625.7480 372.0476 660.3992 625.7480 625.7480 0.000000 107.9247 145.7327 102.8079 16.75247 16.79559 82.46915 82.46915 82.46915 56.49506 95.57908 82.46915 82.46915 0.000000 59.65644 83.23138 58.48026 9.606469 9.638965 51.94013 51.94013 51.94013 37.22647 62.02613 51.94013 51.94013 0.000000 42.01580 60.10010 42.16040 6.971995 6.999799 40.08453 40.08453 40.08453 29.48386 48.69472 40.08453 40.08453 0.000000 32.83482 47.90211 33.57265 5.583402 5.608837 33.57557 33.57557 33.57557 25.13754 41.25879 33.57557 33.57557 0.000000 27.18335 40.30906 28.23682 4.718203 4.743837 29.38739 29.38739 29.38739 22.29106 36.41397 29.38739 29.38739 0.000000 23.34350 35.09146 24.58373 4.125049 4.149923 26.42939 26.42939 26.42939 20.25099 32.96221 26.42939 26.42939 0.000000 20.55931 31.28468 21.90857 3.691712 3.716011 24.21117 24.21117 24.21117 18.70274 30.34698 24.21117 24.21117 0.000000 18.44125 28.36838 19.86685 3.360041 3.383896 22.47149 22.47149 22.47149 17.47470 28.28469 22.47149 22.47149 0.000000 16.77791 26.05175 18.25407 3.096597 3.120881 21.06403 21.06403 21.06403 16.47410 26.60253 21.06403 21.06403 0.000000 15.52267 24.17177 16.93460 2.882063 2.906781 19.89818 19.89818 19.89818 15.63758 25.20213 19.89818 19.89818 0.000000 14.43011 22.61660 15.85017 2.705314 2.729094 18.91436 18.91436 18.91436 14.92755 24.01325 18.91436 18.91436 0.000000 13.51493 21.29551 14.92926 2.555037 2.577964 18.06673 18.06673 18.06673 14.31180 22.98546 18.06673 18.06673 0.000000 12.73280 20.15689 14.14009 2.425426 2.448911 17.33131 17.33131 17.33131 13.77329 22.08803 17.33131 17.33131 0.000000 12.06552 19.17756 13.46030 2.314795 2.337602 16.68210 16.68210 16.68210 13.29583 21.29630 16.68210 16.68210 0.000000 11.47884 18.31502 12.85796 2.216153 2.253215 16.10366 16.10366 16.10366 12.87037 20.58907 16.10366 16.10366 0.000000 10.96937 17.54846 12.33053 2.129630 2.167432 15.58854 15.58854 15.58854 12.48657 19.95239 15.58854 15.58854 0.000000 10.51151 16.87467 11.85859 2.065195 2.083938 15.12258 15.12258 15.12258 12.13988 19.37759 15.12258 15.12258 0.000000 10.10429 16.26124 11.43709 1.989207 2.017089 14.69840 14.69840 14.69840 11.82317 18.85096 14.69840 14.69840 0.000000 9.744746 15.71097 11.05518 1.929062 1.956716 14.31230 14.31230 14.31230 11.53388 18.37262 14.31230 14.31230 0.000000 9.414613 15.20935 10.71081 1.873278 1.894016 13.95697 13.95697 13.95697 11.26552 17.92965 13.95697 13.95697 0.000000 9.119301 14.75569 10.39568 1.823456 1.843107 13.63095 13.63095 13.63095 11.01849 17.52147 13.63095 13.63095 0.000000 8.848051 14.33270 10.10604 1.777813 1.796986 13.32858 13.32858 13.32858 10.78864 17.14279 13.32858 13.32858 0.000000 8.600945 13.94189 9.838756 1.726653 1.754551 13.04711 13.04711 13.04711 10.57604 16.78978 13.04711 13.04711 0.000000 8.373724 13.59067 9.591196 1.687639 1.716526 12.78422 12.78422 12.78422 10.37503 16.45962 12.78422 12.78422 0.000000 8.164104 13.25875 9.367697 1.651492 1.677153 12.53792 12.53792 12.53792 10.18630 16.15208 12.53792 12.53792 0.000000 7.974922 12.94917 9.153143 1.617907 1.638421 12.30856 12.30856 12.30856 10.01201 15.86076 12.30856 12.30856 0.000000 7.788941 12.66493 8.958981 1.586622 1.606775 12.09258 12.09258 12.09258 9.844262 15.58605 12.09258 12.09258 0.000000 7.626156 12.39852 8.770912 1.554232 1.578303 11.88860 11.88860 11.88860 9.688835 15.33057 11.88860 11.88860 0.000000 7.469985 12.14819 8.600464 1.522557 1.550617 11.69577 11.69577 11.69577 9.539929 15.08460 11.69577 11.69577 0.000000 7.328760 11.90218 8.440185 1.496693 1.524642 11.51493 11.51493 11.51493 9.398508 14.85319 11.51493 11.51493 0.000000 7.192173 11.67986 8.283010 1.472369 1.501309 11.34131 11.34131 11.34131 9.265267 14.63295 11.34131 11.34131 0.000000 7.064089 11.46966 8.140459 1.449454 1.470947 11.17611 11.17611 11.17611 9.137013 14.42545 11.17611 11.17611 0.000000 6.943794 11.27054 8.005639 1.427831 1.449065 11.02056 11.02056 11.02056 9.016143 14.22559 11.02056 11.02056 0.000000 6.829651 11.08159 7.877904 1.407396 1.428377 10.87213 10.87213 10.87213 8.899067 14.03468 10.87213 10.87213 0.000000 6.722969 10.91177 7.756687 1.389062 1.409829 10.73028 10.73028 10.73028 8.788513 13.85379 10.73028 10.73028 0.000000 6.622337 10.74072 7.641484 1.362887 1.391256 10.59440 10.59440 10.59440 8.682563 13.67884 10.59440 10.59440 0.000000 6.527300 10.57765 7.531842 1.345328 1.373625 10.46430 10.46430 10.46430 8.580894 13.51295 10.46430 10.46430 0.000000 6.437448 10.42198 7.427352 1.328632 1.356871 10.33949 10.33949 10.33949 8.483220 13.35179 10.33949 10.33949 0.000000 6.352410 10.27317 7.327648 1.312739 1.341962 10.21961 10.21961 10.21961 8.389277 13.19874 10.21961 10.21961 0.000000 6.271860 10.13078 7.232396 1.297596 1.327815 10.10612 10.10612 10.10612 8.298826 13.05148 10.10612 10.10612 0.000000 6.195486 9.994348 7.135592 1.283151 1.305446 9.996915 9.996915 9.996915 8.213125 12.90965 9.996915 9.996915 0.000000 6.122294 9.872680 7.054082 1.269359 1.291489 9.889959 9.889959 9.889959 8.129015 12.77291 9.889959 9.889959 0.000000 6.053432 9.746949 6.970481 1.256181 1.278149 9.786801 9.786801 9.786801 8.049253 12.64096 9.786801 9.786801 0.000000 5.987999 9.626081 6.890278 1.243579 1.265389 9.688959 9.688959 9.688959 7.970754 12.51352 9.688959 9.688959 0.000000 5.925792 9.518845 6.813276 1.231519 1.254172 9.594461 9.594461 9.594461 7.894548 12.39033 9.594461 9.594461 0.000000 5.861963 9.406796 6.739263 1.212691 1.242468 9.501393 9.501393 9.501393 7.821041 12.27116 9.501393 9.501393 0.000000 5.800977 9.298818 6.668070 1.201494 1.231249 9.414752 9.414752 9.414752 7.752676 12.15578 9.414752 9.414752 0.000000 5.747338 9.249540 6.599537 1.190746 1.220487 9.327501 9.327501 9.327501 7.683626 12.04399 9.327501 9.327501 0.000000 5.696253 9.149380 6.533513 1.180423 1.210159 9.244632 9.244632 9.244632 7.616640 11.93738 9.244632 9.244632 0.000000 1092.958 1348.255 957.0520 153.3083 153.5269 623.6352 623.6352 623.6352 370.1666 657.3937 623.6352 623.6352 0.000000 107.7392 145.2120 102.4718 16.69114 16.73672 81.65596 81.65596 81.65596 55.77234 94.43201 81.65596 81.65596 0.000000 59.50638 82.82820 58.22098 9.559329 9.591770 51.31396 51.31396 51.31396 36.66590 61.14235 51.31396 51.31396 0.000000 41.89342 59.74026 41.93850 6.931684 6.959431 39.54551 39.54551 39.54551 29.00814 47.93491 39.54551 39.54551 0.000000 32.72042 47.58080 33.36642 5.546166 5.572683 33.09404 33.09404 33.09404 24.70869 40.57994 33.09404 33.09404 0.000000 27.07851 40.01482 28.04778 4.685066 4.710613 28.94628 28.94628 28.94628 21.89883 35.79224 28.94628 28.94628 0.000000 23.24581 34.82814 24.40143 4.094114 4.118890 26.01889 26.01889 26.01889 19.88330 32.38026 26.01889 26.01889 0.000000 20.47088 31.02692 21.74259 3.662500 3.686690 23.82177 23.82177 23.82177 18.35671 29.79949 23.82177 23.82177 0.000000 18.35711 28.12371 19.70911 3.331419 3.355138 22.10183 22.10183 22.10183 17.14888 27.76234 22.10183 22.10183 0.000000 16.69730 25.82663 18.09818 3.069945 3.093320 20.71419 20.71419 20.71419 16.16310 26.10700 20.71419 20.71419 0.000000 15.44556 23.94741 16.79436 2.857126 2.880237 19.56254 19.56254 19.56254 15.33927 24.72691 19.56254 19.56254 0.000000 14.35560 22.39249 15.70563 2.679811 2.703423 18.58846 18.58846 18.58846 14.63809 23.55569 18.58846 18.58846 0.000000 13.44411 21.07879 14.79370 2.530969 2.554435 17.75163 17.75163 17.75163 14.03182 22.54346 17.75163 17.75163 0.000000 12.66827 19.96116 14.00843 2.402664 2.426011 17.02589 17.02589 17.02589 13.50227 21.65989 17.02589 17.02589 0.000000 11.99695 18.98021 13.32803 2.291343 2.315262 16.38562 16.38562 16.38562 13.03262 20.87819 16.38562 16.38562 0.000000 11.41179 18.12273 12.73690 2.194461 2.231704 15.81751 15.81751 15.81751 12.61423 20.18210 15.81751 15.81751 0.000000 10.90375 17.36734 12.21220 2.119349 2.139843 15.30715 15.30715 15.30715 12.23687 19.55574 15.30715 15.30715 0.000000 10.45246 16.69113 11.74276 2.045951 2.064528 14.84781 14.84781 14.84781 11.89607 18.99037 14.84781 14.84781 0.000000 10.04628 16.08157 11.31987 1.970236 1.998064 14.42970 14.42970 14.42970 11.58478 18.47482 14.42970 14.42970 0.000000 9.687725 15.53483 10.94374 1.909274 1.938052 14.05126 14.05126 14.05126 11.30082 18.00215 14.05126 14.05126 0.000000 9.358521 15.03646 10.60130 1.854997 1.874967 13.69906 13.69906 13.69906 11.03863 17.56618 13.69906 13.69906 0.000000 9.064064 14.57999 10.28798 1.805488 1.824958 13.37788 13.37788 13.37788 10.79407 17.16547 13.37788 13.37788 0.000000 8.793565 14.17147 10.00003 1.751107 1.779124 13.08004 13.08004 13.08004 10.57024 16.79331 13.08004 13.08004 0.000000 8.547201 13.78324 9.734330 1.709133 1.736962 12.80283 12.80283 12.80283 10.35942 16.44642 12.80283 12.80283 0.000000 8.320676 13.43437 9.488262 1.670372 1.699193 12.54395 12.54395 12.54395 10.16206 16.12203 12.54395 12.54395 0.000000 8.116507 13.09926 9.266129 1.634466 1.655163 12.30347 12.30347 12.30347 9.978480 15.81990 12.30347 12.30347 0.000000 7.923138 12.79728 9.052913 1.601111 1.621432 12.07764 12.07764 12.07764 9.805684 15.53373 12.07764 12.07764 0.000000 7.742440 12.51502 8.859968 1.570046 1.589999 11.86291 11.86291 11.86291 9.640987 15.26390 11.86291 11.86291 0.000000 7.575470 12.25048 8.679390 1.533627 1.561728 11.66424 11.66424 11.66424 9.488416 15.01096 11.66424 11.66424 0.000000 7.419822 11.99162 8.503749 1.506262 1.535323 11.47445 11.47445 11.47445 9.341968 14.77122 11.47445 11.47445 0.000000 7.279084 11.75774 8.344502 1.480581 1.509533 11.29455 11.29455 11.29455 9.203175 14.54396 11.29455 11.29455 0.000000 7.147630 11.53706 8.194471 1.456434 1.479055 11.12561 11.12561 11.12561 9.072700 14.32794 11.12561 11.12561 0.000000 7.019989 11.32841 8.052833 1.433689 1.454984 10.96494 10.96494 10.96494 8.948395 14.12424 10.96494 10.96494 0.000000 6.900115 11.13079 7.918874 1.412230 1.434301 10.81001 10.81001 10.81001 8.828230 13.92784 10.81001 10.81001 0.000000 6.786335 10.95306 7.786003 1.392956 1.413762 10.66385 10.66385 10.66385 8.714882 13.74045 10.66385 10.66385 0.000000 6.680039 10.77474 7.671522 1.365976 1.395357 10.52429 10.52429 10.52429 8.604882 13.56313 10.52429 10.52429 0.000000 6.579780 10.60501 7.551219 1.347626 1.376924 10.39075 10.39075 10.39075 8.500937 13.39142 10.39075 10.39075 0.000000 6.485103 10.44321 7.448164 1.330202 1.359430 10.26460 10.26460 10.26460 8.401200 13.22863 10.26460 10.26460 0.000000 6.395597 10.28874 7.338598 1.313636 1.343841 10.14184 10.14184 10.14184 8.305386 13.07048 10.14184 10.14184 0.000000 6.310899 10.14113 7.245348 1.297869 1.328030 10.02392 10.02392 10.02392 8.214711 12.92030 10.02392 10.02392 0.000000 6.235295 9.999873 7.145041 1.283808 1.306112 9.910542 9.910542 9.910542 8.125981 12.77582 9.910542 9.910542 0.000000 6.154613 9.873735 7.060288 1.269480 1.291611 9.801408 9.801408 9.801408 8.040468 12.63666 9.801408 9.801408 0.000000 6.081697 9.743853 6.968019 1.255803 1.277765 9.699745 9.699745 9.699745 7.959421 12.50252 9.699745 9.699745 0.000000 6.013130 9.619126 6.890657 1.242738 1.265532 9.598307 9.598307 9.598307 7.879483 12.37307 9.598307 9.598307 0.000000 5.947983 9.508293 6.811024 1.231204 1.252876 9.500386 9.500386 9.500386 7.802491 12.24806 9.500386 9.500386 0.000000 5.886057 9.392897 6.734576 1.211006 1.240762 9.409204 9.409204 9.409204 7.729443 12.12723 9.409204 9.409204 0.000000 5.822495 9.281794 6.661097 1.199430 1.229159 9.317702 9.317702 9.317702 7.658764 12.01034 9.317702 9.317702 0.000000 5.766435 9.229674 6.590423 1.188327 1.218038 9.230846 9.230846 9.230846 7.588921 11.89718 9.230846 9.230846 0.000000 5.708391 9.126798 6.522393 1.177672 1.207374 9.146765 9.146765 9.146765 7.521215 11.78754 9.146765 9.146765 0.000000 5.657559 9.036548 6.456857 1.167439 1.197141 9.063637 9.063637 9.063637 7.456922 11.68125 9.063637 9.063637 0.000000 1092.510 1347.025 956.2603 153.1719 153.3906 621.6560 621.6560 621.6560 368.4045 654.5784 621.6560 621.6560 0.000000 107.5829 144.7243 102.1571 16.63598 16.68157 80.90047 80.90047 80.90047 55.09998 93.35718 80.90047 80.90047 0.000000 59.37230 82.43220 57.96710 9.516754 9.549186 50.72725 50.72725 50.72725 36.14414 60.30910 50.72725 50.72725 0.000000 41.77878 59.41722 41.72175 6.893845 6.921533 39.04425 39.04425 39.04425 28.55881 47.22275 39.04425 39.04425 0.000000 32.61788 47.27907 33.17279 5.512299 5.538743 32.64624 32.64624 32.64624 24.31020 39.94365 32.64624 32.64624 0.000000 26.98442 39.73853 27.87030 4.653960 4.678380 28.53251 28.53251 28.53251 21.53099 35.20948 28.53251 28.53251 0.000000 23.15803 34.57098 24.24220 4.065074 4.089755 25.63383 25.63383 25.63383 19.54360 31.83465 25.63383 25.63383 0.000000 20.38070 30.78489 21.58675 3.635077 3.659164 23.45921 23.45921 23.45921 18.03458 29.28617 23.45921 23.45921 0.000000 18.27827 27.89394 19.56102 3.306110 3.329740 21.75804 21.75804 21.75804 16.84093 27.27856 21.75804 21.75804 0.000000 16.62177 25.59863 17.96153 3.044927 3.068959 20.38601 20.38601 20.38601 15.86913 25.64177 20.38601 20.38601 0.000000 15.37331 23.73674 16.65819 2.833752 2.856757 19.24753 19.24753 19.24753 15.05949 24.28134 19.24753 19.24753 0.000000 14.28579 22.19714 15.57875 2.657207 2.680701 18.28261 18.28261 18.28261 14.36835 23.12393 18.28261 18.28261 0.000000 13.37632 20.88975 14.66641 2.508371 2.532375 17.45857 17.45857 17.45857 13.77147 22.12904 17.45857 17.45857 0.000000 12.60235 19.76340 13.88900 2.381322 2.404540 16.73943 16.73943 16.73943 13.25001 21.25563 16.73943 16.73943 0.000000 11.93270 18.79490 13.21175 2.270533 2.294309 16.10736 16.10736 16.10736 12.78765 20.48817 16.10736 16.10736 0.000000 11.35444 17.94216 12.62341 2.174126 2.212879 15.54900 15.54900 15.54900 12.37583 19.80288 15.54900 15.54900 0.000000 10.84224 17.19105 12.10127 2.100982 2.120047 15.04539 15.04539 15.04539 12.00448 19.18615 15.04539 15.04539 0.000000 10.39216 16.51877 11.63417 2.026749 2.046402 14.59218 14.59218 14.59218 11.66916 18.62720 14.59218 14.59218 0.000000 9.987040 15.91903 11.21342 1.951335 1.980299 14.17958 14.17958 14.17958 11.36292 18.11981 14.17958 14.17958 0.000000 9.629486 15.37547 10.83927 1.891889 1.920627 13.80426 13.80426 13.80426 11.08164 17.65419 13.80426 13.80426 0.000000 9.306237 14.88005 10.49864 1.836771 1.857729 13.46129 13.46129 13.46129 10.82388 17.22801 13.46129 13.46129 0.000000 9.012576 14.42632 10.18699 1.787566 1.808005 13.14246 13.14246 13.14246 10.58542 16.83158 13.14246 13.14246 0.000000 8.742774 14.01458 9.900632 1.734489 1.762441 12.84675 12.84675 12.84675 10.36337 16.46552 12.84675 12.84675 0.000000 8.497102 13.63450 9.636417 1.692765 1.720534 12.57559 12.57559 12.57559 10.15617 16.12437 12.57559 12.57559 0.000000 8.271225 13.28781 9.398332 1.654240 1.677851 12.32044 12.32044 12.32044 9.962268 15.80538 12.32044 12.32044 0.000000 8.062871 12.95487 9.170884 1.618561 1.639081 12.08346 12.08346 12.08346 9.781857 15.50833 12.08346 12.08346 0.000000 7.874865 12.65486 8.965320 1.585422 1.605559 11.85884 11.85884 11.85884 9.612056 15.22698 11.85884 11.85884 0.000000 7.694675 12.37447 8.767112 1.547253 1.575418 11.65137 11.65137 11.65137 9.451842 14.96379 11.65137 11.65137 0.000000 7.532924 12.11169 8.587614 1.518221 1.546243 11.45176 11.45176 11.45176 9.300047 14.71491 11.45176 11.45176 0.000000 7.377737 11.85457 8.419227 1.491036 1.520020 11.26675 11.26675 11.26675 9.158053 14.47745 11.26675 11.26675 0.000000 7.232774 11.62230 8.260909 1.465527 1.495491 11.09146 11.09146 11.09146 9.021695 14.25411 11.09146 11.09146 0.000000 7.101753 11.40314 8.105664 1.442555 1.463972 10.92318 10.92318 10.92318 8.891972 14.04184 10.92318 10.92318 0.000000 6.979185 11.19596 7.964912 1.419965 1.441107 10.76310 10.76310 10.76310 8.769885 13.84149 10.76310 10.76310 0.000000 6.854096 10.99972 7.831801 1.398657 1.419528 10.61226 10.61226 10.61226 8.653392 13.64875 10.61226 10.61226 0.000000 6.746262 10.82326 7.705703 1.376131 1.400171 10.46847 10.46847 10.46847 8.542068 13.46466 10.46847 10.46847 0.000000 6.640326 10.64622 7.586057 1.352548 1.380864 10.33107 10.33107 10.33107 8.435534 13.29048 10.33107 10.33107 0.000000 6.540415 10.47772 7.472362 1.334326 1.363598 10.19961 10.19961 10.19961 8.331958 13.12181 10.19961 10.19961 0.000000 6.446073 10.31711 7.364168 1.317025 1.346233 10.07366 10.07366 10.07366 8.234018 12.96192 10.07366 10.07366 0.000000 6.356892 10.16379 7.261073 1.300580 1.330768 9.954607 9.954607 9.954607 8.141403 12.80658 9.954607 9.954607 0.000000 6.272508 10.01728 7.162712 1.284932 1.307228 9.840315 9.840315 9.840315 8.050914 12.65910 9.840315 9.840315 0.000000 6.192583 9.886289 7.068755 1.270981 1.293135 9.728717 9.728717 9.728717 7.963797 12.51722 9.728717 9.728717 0.000000 6.116091 9.751897 6.978904 1.256764 1.278741 9.621304 9.621304 9.621304 7.879565 12.38058 9.621304 9.621304 0.000000 6.044161 9.622986 6.898508 1.243196 1.265997 9.517815 9.517815 9.517815 7.798571 12.24886 9.517815 9.517815 0.000000 5.975870 9.508261 6.816056 1.231195 1.252866 9.421438 9.421438 9.421438 7.720370 12.12177 9.421438 9.421438 0.000000 5.910995 9.389238 6.736957 1.211485 1.240309 9.325078 9.325078 9.325078 7.646209 11.99904 9.325078 9.325078 0.000000 5.849331 9.274755 6.661011 1.199499 1.228292 9.233677 9.233677 9.233677 7.574513 11.88041 9.233677 9.233677 0.000000 5.790686 9.219518 6.588030 1.187089 1.216784 9.145335 9.145335 9.145335 7.503750 11.76566 9.145335 9.145335 0.000000 5.730211 9.113704 6.517839 1.176075 1.205756 9.058211 9.058211 9.058211 7.435205 11.65457 9.058211 9.058211 0.000000 5.672407 9.020697 6.450278 1.165506 1.196181 8.977165 8.977165 8.977165 7.371512 11.54686 8.977165 8.977165 0.000000 5.621817 8.931162 6.385197 1.155358 1.187037 8.895381 8.895381 8.895381 7.307040 11.44268 8.895381 8.895381 0.000000 1092.109 1345.870 955.5174 153.0394 153.2604 619.7972 619.7972 619.7972 366.7496 651.9343 619.7972 619.7972 0.000000 107.4196 144.2662 101.8614 16.58297 16.62725 80.19058 80.19058 80.19058 54.46828 92.34743 80.19058 80.19058 0.000000 59.24637 82.07752 57.73901 9.475087 9.507464 50.17573 50.17573 50.17573 35.65376 59.53117 50.17573 50.17573 0.000000 41.67110 59.09896 41.51768 6.858226 6.885860 38.56873 38.56873 38.56873 28.13968 46.55352 38.56873 38.56873 0.000000 32.52157 47.00779 32.99807 5.480420 5.506793 32.22145 32.22145 32.22145 23.93267 39.34573 32.22145 32.22145 0.000000 26.89604 39.47840 27.70323 4.624684 4.650066 28.14338 28.14338 28.14338 21.18479 34.65830 28.14338 28.14338 0.000000 23.07559 34.32888 24.08041 4.037742 4.062333 25.27169 25.27169 25.27169 19.21912 31.32512 25.27169 25.27169 0.000000 20.30290 30.55703 21.44006 3.609269 3.633255 23.11847 23.11847 23.11847 17.73114 28.80367 23.11847 23.11847 0.000000 18.20080 27.67767 19.42160 3.280738 3.305053 21.43475 21.43475 21.43475 16.55363 26.82092 21.43475 21.43475 0.000000 16.62092 25.40053 17.82321 3.022130 3.046066 20.07455 20.07455 20.07455 15.59489 25.20504 20.07455 20.07455 0.000000 15.30544 23.54646 16.53000 2.810354 2.834688 18.94875 18.94875 18.94875 14.79422 23.86250 18.94875 18.94875 0.000000 14.22021 21.99820 15.45502 2.635961 2.659344 18.00006 18.00006 18.00006 14.11257 22.72068 18.00006 18.00006 0.000000 13.31265 20.69739 14.55091 2.487757 2.511641 17.18294 17.18294 17.18294 13.52664 21.73685 17.18294 17.18294 0.000000 12.54043 19.59111 13.77260 2.361263 2.384357 16.47236 16.47236 16.47236 13.01079 20.87869 16.47236 16.47236 0.000000 11.87795 18.62732 13.10248 2.250971 2.286408 15.84794 15.84794 15.84794 12.55728 20.11927 15.84794 15.84794 0.000000 11.29540 17.77883 12.50893 2.155007 2.193930 15.29407 15.29407 15.29407 12.14972 19.44395 15.29407 15.29407 0.000000 10.78446 17.02509 11.98937 2.082544 2.101443 14.79916 14.79916 14.79916 11.78593 18.83631 14.79916 14.79916 0.000000 10.34076 16.36281 11.53210 2.002785 2.028179 14.35172 14.35172 14.35172 11.45381 18.28804 14.35172 14.35172 0.000000 9.936528 15.76629 11.11338 1.933572 1.962431 13.94441 13.94441 13.94441 11.15236 17.78827 13.94441 13.94441 0.000000 9.574761 15.21968 10.74106 1.874451 1.895578 13.57399 13.57399 13.57399 10.87547 17.32973 13.57399 13.57399 0.000000 9.252376 14.73305 10.40212 1.820790 1.840411 13.23342 13.23342 13.23342 10.62214 16.90786 13.23342 13.23342 0.000000 8.964469 14.28188 10.09208 1.771364 1.790966 12.92099 12.92099 12.92099 10.38719 16.51978 12.92099 12.92099 0.000000 8.690423 13.86688 9.807190 1.718926 1.746822 12.63133 12.63133 12.63133 10.16877 16.15944 12.63133 12.63133 0.000000 8.450290 13.49468 9.544373 1.677436 1.706307 12.36180 12.36180 12.36180 9.965028 15.82365 12.36180 12.36180 0.000000 8.225018 13.13912 9.307553 1.639135 1.659887 12.11016 12.11016 12.11016 9.775956 15.50971 12.11016 12.11016 0.000000 8.022014 12.81916 9.081344 1.603668 1.624020 11.87437 11.87437 11.87437 9.598500 15.21533 11.87437 11.87437 0.000000 7.829758 12.52099 8.876909 1.570733 1.590694 11.65698 11.65698 11.65698 9.431496 14.93852 11.65698 11.65698 0.000000 7.650043 12.24231 8.686101 1.532646 1.560737 11.44853 11.44853 11.44853 9.273656 14.67936 11.44853 11.44853 0.000000 7.484066 11.97087 8.501324 1.503790 1.532828 11.25561 11.25561 11.25561 9.124677 14.43474 11.25561 11.25561 0.000000 7.334033 11.72574 8.333888 1.476773 1.505691 11.07132 11.07132 11.07132 8.983498 14.20118 11.07132 11.07132 0.000000 7.194168 11.49496 8.176493 1.451426 1.472922 10.89668 10.89668 10.89668 8.850993 13.98350 10.89668 10.89668 0.000000 7.058886 11.27724 8.028197 1.428607 1.449850 10.73272 10.73272 10.73272 8.723454 13.77453 10.73272 10.73272 0.000000 6.936705 11.07142 7.888226 1.406168 1.428169 10.57666 10.57666 10.57666 8.601918 13.57580 10.57666 10.57666 0.000000 6.816599 10.88625 7.755862 1.386010 1.406727 10.42813 10.42813 10.42813 8.487423 13.38629 10.42813 10.42813 0.000000 6.704489 10.70122 7.630480 1.358148 1.386466 10.28644 10.28644 10.28644 8.378016 13.20529 10.28644 10.28644 0.000000 6.603518 10.52539 7.511521 1.340024 1.368322 10.15106 10.15106 10.15106 8.273320 13.03406 10.15106 10.15106 0.000000 6.503932 10.35804 7.398486 1.321922 1.351180 10.02154 10.02154 10.02154 8.173000 12.87011 10.02154 10.02154 0.000000 6.409904 10.19853 7.290927 1.304739 1.333937 9.897450 9.897450 9.897450 8.076751 12.71108 9.897450 9.897450 0.000000 6.321031 10.04630 7.188443 1.288407 1.310756 9.778423 9.778423 9.778423 7.984298 12.55840 9.778423 9.778423 0.000000 6.236938 9.910036 7.090671 1.272867 1.295026 9.664116 9.664116 9.664116 7.895113 12.41345 9.664116 9.664116 0.000000 6.157301 9.770752 6.997282 1.258066 1.281035 9.557677 9.557677 9.557677 7.809513 12.27401 9.557677 9.557677 0.000000 6.081059 9.637304 6.907979 1.244911 1.266742 9.451881 9.451881 9.451881 7.728444 12.13973 9.451881 9.451881 0.000000 6.009397 9.518369 6.822491 1.231446 1.254096 9.349956 9.349956 9.349956 7.648866 12.01030 9.349956 9.349956 0.000000 5.941364 9.395424 6.746150 1.211301 1.241060 9.255055 9.255055 9.255055 7.573437 11.88542 9.255055 9.255055 0.000000 5.876746 9.277286 6.667545 1.198875 1.228596 9.160161 9.160161 9.160161 7.499185 11.76482 9.160161 9.160161 0.000000 5.815326 9.218643 6.592080 1.187901 1.216671 9.068488 9.068488 9.068488 7.427373 11.64827 9.068488 9.068488 0.000000 5.756922 9.109657 6.519565 1.176501 1.206250 8.983180 8.983180 8.983180 7.359242 11.53544 8.983180 8.983180 0.000000 5.696679 9.013680 6.449826 1.165571 1.195312 8.897394 8.897394 8.897394 7.293275 11.42646 8.897394 8.897394 0.000000 5.639100 8.921362 6.382702 1.155085 1.185824 8.817610 8.817610 8.817610 7.227998 11.32056 8.817610 8.817610 0.000000 5.588737 8.821156 6.318048 1.145017 1.168373 8.737088 8.737088 8.737088 7.166029 11.21808 8.737088 8.737088 0.000000 1091.713 1344.771 954.8077 152.9193 153.1379 618.0475 618.0475 618.0475 365.1918 649.4453 618.0475 618.0475 0.000000 107.2660 143.8350 101.5831 16.53299 16.57850 79.52197 79.52197 79.52197 53.86829 91.40334 79.52197 79.52197 0.000000 59.12783 81.74363 57.51334 9.435770 9.468094 49.65604 49.65604 49.65604 35.19177 58.79358 49.65604 49.65604 0.000000 41.56406 58.81337 41.32510 6.824625 6.853570 38.12444 38.12444 38.12444 27.74481 45.92315 38.12444 38.12444 0.000000 32.43089 46.73962 32.82603 5.451490 5.476655 31.82102 31.82102 31.82102 23.57686 38.78252 31.82102 31.82102 0.000000 26.80847 39.24428 27.54557 4.597065 4.622370 27.77656 27.77656 27.77656 20.85925 34.14249 27.77656 27.77656 0.000000 22.99003 34.10041 23.93962 4.011957 4.036461 24.93032 24.93032 24.93032 18.91834 30.84187 24.93032 24.93032 0.000000 20.22965 30.35157 21.30724 3.584918 3.609681 22.79705 22.79705 22.79705 17.44569 28.35217 22.79705 22.79705 0.000000 18.12767 27.47359 19.29006 3.258347 3.281764 21.12997 21.12997 21.12997 16.28284 26.38971 21.12997 21.12997 0.000000 16.55460 25.19712 17.70234 2.999161 3.022960 19.78340 19.78340 19.78340 15.33640 24.79640 19.78340 19.78340 0.000000 15.24154 23.35123 16.41375 2.789669 2.813901 18.66963 18.66963 18.66963 14.54600 23.46785 18.66963 18.66963 0.000000 14.15846 21.82543 15.33827 2.615268 2.639227 17.72843 17.72843 17.72843 13.87376 22.34070 17.72843 17.72843 0.000000 13.25270 20.53021 14.43782 2.468335 2.492107 16.92042 16.92042 16.92042 13.29384 21.37239 16.92042 16.92042 0.000000 12.48212 19.42177 13.66277 2.342364 2.365340 16.22055 16.22055 16.22055 12.78721 20.52287 16.22055 16.22055 0.000000 11.82109 18.45578 12.99552 2.232541 2.269475 15.60327 15.60327 15.60327 12.33818 19.77404 15.60327 15.60327 0.000000 11.23980 17.61835 12.40851 2.136991 2.176083 15.05598 15.05598 15.05598 11.93841 19.10806 15.05598 15.05598 0.000000 10.73537 16.87490 11.89120 2.065178 2.085186 14.56473 14.56473 14.56473 11.57805 18.50894 14.56473 14.56473 0.000000 10.28739 16.20961 11.43225 1.983168 2.011013 14.12260 14.12260 14.12260 11.25265 17.96845 14.12260 14.12260 0.000000 9.884092 15.61017 11.01914 1.918009 1.946836 13.72266 13.72266 13.72266 10.95571 17.47310 13.72266 13.72266 0.000000 9.528280 15.07262 10.64853 1.859181 1.879192 13.35686 13.35686 13.35686 10.68480 17.02399 13.35686 13.35686 0.000000 9.206641 14.58287 10.31121 1.805796 1.825267 13.02059 13.02059 13.02059 10.43327 16.60830 13.02059 13.02059 0.000000 8.919424 14.14585 10.00264 1.748080 1.776074 12.71006 12.71006 12.71006 10.20202 16.22380 12.71006 12.71006 0.000000 8.645990 13.73310 9.719149 1.703226 1.732167 12.42417 12.42417 12.42417 9.987022 15.86887 12.42417 12.42417 0.000000 8.406454 13.36296 9.464247 1.661967 1.690728 12.16020 12.16020 12.16020 9.788088 15.53816 12.16020 12.16020 0.000000 8.181749 13.00942 9.222008 1.623884 1.644451 11.91373 11.91373 11.91373 9.600306 15.22901 11.91373 11.91373 0.000000 7.974498 12.69129 9.003387 1.589692 1.609882 11.68118 11.68118 11.68118 9.424015 14.93914 11.68118 11.68118 0.000000 7.781512 12.39485 8.793593 1.550436 1.577834 11.46279 11.46279 11.46279 9.260984 14.66839 11.46279 11.46279 0.000000 7.608247 12.11782 8.603791 1.518933 1.546960 11.26101 11.26101 11.26101 9.104359 14.41344 11.26101 11.26101 0.000000 7.447412 11.84799 8.426191 1.490242 1.519219 11.06878 11.06878 11.06878 8.959332 14.17064 11.06878 11.06878 0.000000 7.293106 11.60434 8.259609 1.464397 1.493329 10.88702 10.88702 10.88702 8.820413 13.94250 10.88702 10.88702 0.000000 7.153640 11.37498 8.096929 1.439198 1.460568 10.71663 10.71663 10.71663 8.688514 13.72633 10.71663 10.71663 0.000000 7.023399 11.15860 7.955481 1.415515 1.436592 10.55477 10.55477 10.55477 8.564565 13.52090 10.55477 10.55477 0.000000 6.895993 10.96386 7.810276 1.394224 1.415045 10.40099 10.40099 10.40099 8.446501 13.32534 10.40099 10.40099 0.000000 6.777147 10.77006 7.684569 1.365399 1.394772 10.25272 10.25272 10.25272 8.332372 13.14075 10.25272 10.25272 0.000000 6.665374 10.58621 7.553998 1.346327 1.374633 10.11302 10.11302 10.11302 8.224756 12.96266 10.11302 10.11302 0.000000 6.564719 10.41150 7.441541 1.327354 1.356610 9.981337 9.981337 9.981337 8.121781 12.79233 9.981337 9.981337 0.000000 6.470063 10.24523 7.329123 1.309368 1.339587 9.853640 9.853640 9.853640 8.023116 12.63105 9.853640 9.853640 0.000000 6.376331 10.08678 7.222159 1.293257 1.318142 9.731310 9.731310 9.731310 7.928186 12.47462 9.731310 9.731310 0.000000 6.287744 9.944798 7.120247 1.277032 1.299255 9.613976 9.613976 9.613976 7.837257 12.32624 9.613976 9.613976 0.000000 6.203928 9.800201 7.023026 1.261596 1.283625 9.501302 9.501302 9.501302 7.749819 12.18366 9.501302 9.501302 0.000000 6.123832 9.661837 6.930169 1.246897 1.268736 9.394691 9.394691 9.394691 7.667060 12.04473 9.394691 9.394691 0.000000 6.048549 9.538349 6.841386 1.233842 1.255534 9.292130 9.292130 9.292130 7.585940 11.91268 9.292130 9.292130 0.000000 5.977139 9.411161 6.761973 1.213197 1.242980 9.191677 9.191677 9.191677 7.507697 11.78539 9.191677 9.191677 0.000000 5.909355 9.289075 6.674958 1.200295 1.230034 9.096488 9.096488 9.096488 7.432158 11.66259 9.096488 9.096488 0.000000 5.844976 9.226722 6.602365 1.187954 1.217659 9.004652 9.004652 9.004652 7.360540 11.54393 9.004652 9.004652 0.000000 5.783790 9.114314 6.527350 1.176139 1.205821 8.914317 8.914317 8.914317 7.291307 11.42948 8.914317 8.914317 0.000000 5.725615 9.015141 6.455271 1.165745 1.195487 8.830271 8.830271 8.830271 7.222969 11.31846 8.830271 8.830271 0.000000 5.670278 8.919830 6.385954 1.154894 1.185631 8.745745 8.745745 8.745745 7.156776 11.21117 8.745745 8.745745 0.000000 5.612918 8.816817 6.319242 1.144485 1.167831 8.667149 8.667149 8.667149 7.095300 11.10725 8.667149 8.667149 0.000000 5.558074 8.719611 6.260387 1.134493 1.157729 8.587817 8.587817 8.587817 7.032999 11.00797 8.587817 8.587817 0.000000 1091.340 1343.747 954.1492 152.8016 153.0201 616.3967 616.3967 616.3967 363.7221 647.0971 616.3967 616.3967 0.000000 107.1210 143.4281 101.3052 16.48698 16.52999 78.89082 78.89082 78.89082 53.30683 90.50589 78.89082 78.89082 0.000000 59.01599 81.41043 57.31076 9.400258 9.432572 49.17031 49.17031 49.17031 34.75938 58.10226 49.17031 49.17031 0.000000 41.46277 58.52913 41.15171 6.792856 6.820373 37.70514 37.70514 37.70514 27.36871 45.33231 37.70514 37.70514 0.000000 32.34046 46.48596 32.66331 5.421917 5.448156 31.44619 31.44619 31.44619 23.24373 38.25083 31.44619 31.44619 0.000000 26.72561 39.01204 27.40314 4.570952 4.596182 27.43346 27.43346 27.43346 20.55123 33.65556 27.43346 27.43346 0.000000 22.91680 33.88432 23.80070 3.988493 4.012938 24.60779 24.60779 24.60779 18.63178 30.38880 24.60779 24.60779 0.000000 20.16054 30.14817 21.17073 3.561897 3.585696 22.49374 22.49374 22.49374 17.17605 27.92283 22.49374 22.49374 0.000000 18.06189 27.28946 19.17088 3.236424 3.260553 20.84201 20.84201 20.84201 16.02705 25.98251 20.84201 20.84201 0.000000 16.49202 25.02115 17.58336 2.978899 3.002611 19.50847 19.50847 19.50847 15.09223 24.40778 19.50847 19.50847 0.000000 15.18123 23.18220 16.29466 2.770143 2.792819 18.40590 18.40590 18.40590 14.31173 23.09517 18.40590 18.40590 0.000000 14.10019 21.65477 15.23232 2.595701 2.620235 17.47436 17.47436 17.47436 13.64816 21.98188 17.47436 17.47436 0.000000 13.19612 20.36512 14.33087 2.450001 2.473664 16.67739 16.67739 16.67739 13.07585 21.02320 16.67739 16.67739 0.000000 12.42709 19.26159 13.56303 2.324521 2.347387 15.98262 15.98262 15.98262 12.57599 20.18710 15.98262 15.98262 0.000000 11.76743 18.30686 12.89436 2.215138 2.252206 15.37213 15.37213 15.37213 12.13305 19.44802 15.37213 15.37213 0.000000 11.18732 17.46659 12.31371 2.130769 2.150074 14.83101 14.83101 14.83101 11.73878 18.79086 14.83101 14.83101 0.000000 10.68400 16.72672 11.79852 2.050024 2.068636 14.34761 14.34761 14.34761 11.38342 18.19977 14.34761 14.34761 0.000000 10.24225 16.06473 11.33782 1.968240 1.996054 13.91054 13.91054 13.91054 11.06264 17.66385 13.91054 13.91054 0.000000 9.839726 15.47441 10.93016 1.902207 1.930942 13.51311 13.51311 13.51311 10.76985 17.17810 13.51311 13.51311 0.000000 9.484671 14.93950 10.56116 1.843668 1.863517 13.15167 13.15167 13.15167 10.50100 16.73303 13.15167 13.15167 0.000000 9.163733 14.45217 10.22534 1.790555 1.811027 12.81946 12.81946 12.81946 10.25500 16.32538 12.81946 12.81946 0.000000 8.870469 14.01167 9.918193 1.734124 1.762072 12.51477 12.51477 12.51477 10.02713 15.94633 12.51477 12.51477 0.000000 8.604300 13.60680 9.636016 1.689490 1.718388 12.23237 12.23237 12.23237 9.815299 15.59648 12.23237 12.23237 0.000000 8.360488 13.23310 9.382299 1.648439 1.669282 11.96954 11.96954 11.96954 9.617681 15.27054 11.96954 11.96954 0.000000 8.141150 12.88696 9.141223 1.610554 1.632077 11.72435 11.72435 11.72435 9.434340 14.96588 11.72435 11.72435 0.000000 7.939168 12.57055 8.923671 1.576550 1.596586 11.49672 11.49672 11.49672 9.262018 14.68001 11.49672 11.49672 0.000000 7.746583 12.27572 8.721220 1.536585 1.564710 11.28304 11.28304 11.28304 9.098573 14.41345 11.28304 11.28304 0.000000 7.569030 11.98990 8.526055 1.506032 1.535089 11.08193 11.08193 11.08193 8.947462 14.16030 11.08193 11.08193 0.000000 7.408611 11.73196 8.349340 1.477498 1.506421 10.89221 10.89221 10.89221 8.801555 13.92289 10.89221 10.89221 0.000000 7.259376 11.48970 8.183617 1.450789 1.472276 10.71467 10.71467 10.71467 8.666312 13.69840 10.71467 10.71467 0.000000 7.115614 11.26167 8.027821 1.426745 1.447961 10.54636 10.54636 10.54636 8.537961 13.48357 10.54636 10.54636 0.000000 6.985732 11.04655 7.881073 1.404206 1.425158 10.38493 10.38493 10.38493 8.414424 13.28317 10.38493 10.38493 0.000000 6.858648 10.85297 7.742571 1.378542 1.402699 10.23320 10.23320 10.23320 8.296718 13.09059 10.23320 10.23320 0.000000 6.744757 10.66033 7.611613 1.354217 1.382549 10.08691 10.08691 10.08691 8.185855 12.90697 10.08691 10.08691 0.000000 6.633291 10.47758 7.487578 1.334293 1.363563 9.950871 9.950871 9.950871 8.079930 12.73163 9.950871 9.950871 0.000000 6.528318 10.30395 7.369910 1.315433 1.344623 9.819201 9.819201 9.819201 7.978580 12.56578 9.819201 9.819201 0.000000 6.433949 10.13870 7.258115 1.298518 1.328745 9.694988 9.694988 9.694988 7.881199 12.40519 9.694988 9.694988 0.000000 6.345124 9.990499 7.151749 1.281549 1.303818 9.574317 9.574317 9.574317 7.788035 12.25300 9.574317 9.574317 0.000000 6.256803 9.840137 7.056096 1.266385 1.288490 9.458582 9.458582 9.458582 7.698554 12.10695 9.458582 9.458582 0.000000 6.173250 9.696455 6.959392 1.251048 1.272955 9.347448 9.347448 9.347448 7.612512 11.96484 9.347448 9.347448 0.000000 6.093381 9.558966 6.867033 1.236445 1.258157 9.242307 9.242307 9.242307 7.529689 11.82986 9.242307 9.242307 0.000000 6.018344 9.436255 6.778723 1.216687 1.245047 9.141166 9.141166 9.141166 7.451268 11.69990 9.141166 9.141166 0.000000 5.947170 9.309903 6.694195 1.202809 1.232579 9.042104 9.042104 9.042104 7.375661 11.57448 9.042104 9.042104 0.000000 5.879622 9.243516 6.618736 1.189989 1.219719 8.949903 8.949903 8.949903 7.301331 11.45212 8.949903 8.949903 0.000000 5.815466 9.127419 6.541032 1.177728 1.207430 8.857692 8.857692 8.857692 7.229510 11.33528 8.857692 8.857692 0.000000 5.754503 9.024808 6.466440 1.165992 1.196673 8.770259 8.770259 8.770259 7.161406 11.22423 8.770259 8.770259 0.000000 5.696544 8.926280 6.394770 1.155675 1.186421 8.685764 8.685764 8.685764 7.095520 11.11517 8.685764 8.685764 0.000000 5.636724 8.820253 6.325851 1.144899 1.168252 8.602427 8.602427 8.602427 7.030348 11.00941 8.602427 8.602427 0.000000 5.584265 8.720221 6.264928 1.134563 1.157800 8.524953 8.524953 8.524953 6.967343 10.90728 8.524953 8.524953 0.000000 5.529613 8.632521 6.201024 1.124645 1.147765 8.448344 8.448344 8.448344 6.908622 10.80981 8.448344 8.448344 0.000000 1090.987 1342.767 953.5272 152.6926 152.9136 614.8361 614.8361 614.8361 362.3326 644.8771 614.8361 614.8361 0.000000 106.9839 143.0435 101.0570 16.44350 16.48651 78.29324 78.29324 78.29324 52.77580 89.65718 78.29324 78.29324 0.000000 58.91026 81.11264 57.10836 9.365016 9.397278 48.70584 48.70584 48.70584 34.34664 57.44849 48.70584 48.70584 0.000000 41.37237 58.27440 40.97903 6.762744 6.791571 37.30835 37.30835 37.30835 27.01599 44.76934 37.30835 37.30835 0.000000 32.25471 46.25818 32.51660 5.396107 5.422310 31.09171 31.09171 31.09171 22.92854 37.74786 31.09171 31.09171 0.000000 26.65140 38.79191 27.26180 4.546212 4.571368 27.10851 27.10851 27.10851 20.26251 33.19492 27.10851 27.10851 0.000000 22.84757 33.68977 23.66905 3.964483 3.988821 24.30244 24.30244 24.30244 18.36055 29.96020 24.30244 24.30244 0.000000 20.08790 29.95539 21.05225 3.540084 3.564658 22.20925 22.20925 22.20925 16.92084 27.51963 22.20925 22.20925 0.000000 17.99969 27.09764 19.04778 3.215654 3.239681 20.57224 20.57224 20.57224 15.78493 25.59949 20.57224 20.57224 0.000000 16.43285 24.84639 17.47060 2.959733 2.983363 19.25076 19.25076 19.25076 14.86110 24.04004 19.25076 19.25076 0.000000 15.12421 23.01442 16.19093 2.750262 2.774262 18.15621 18.15621 18.15621 14.08973 22.74250 18.15621 18.15621 0.000000 14.04508 21.49302 15.12768 2.577836 2.600878 17.23380 17.23380 17.23380 13.43462 21.64495 17.23380 17.23380 0.000000 13.14262 20.20867 14.23379 2.432008 2.454875 16.44492 16.44492 16.44492 12.86951 20.69762 16.44492 16.44492 0.000000 12.37505 19.11682 13.46870 2.307640 2.330399 15.75733 15.75733 15.75733 12.37605 19.86935 15.75733 15.75733 0.000000 11.71669 18.16601 12.80250 2.198673 2.235877 15.15328 15.15328 15.15328 11.93887 19.13950 15.15328 15.15328 0.000000 11.13770 17.32930 12.22403 2.114902 2.135353 14.61798 14.61798 14.61798 11.54954 18.49067 14.61798 14.61798 0.000000 10.64073 16.58629 11.71085 2.034516 2.052982 14.13749 14.13749 14.13749 11.19908 17.90719 14.13749 14.13749 0.000000 10.19220 15.93362 11.25198 1.952993 1.981965 13.70763 13.70763 13.70763 10.88253 17.37827 13.70763 13.70763 0.000000 9.792903 15.34599 10.84598 1.888423 1.917139 13.31682 13.31682 13.31682 10.59406 16.89893 13.31682 13.31682 0.000000 9.438630 14.81357 10.47853 1.830145 1.849865 12.95736 12.95736 12.95736 10.32903 16.45979 12.95736 12.95736 0.000000 9.118413 14.32856 10.14411 1.777279 1.796443 12.63105 12.63105 12.63105 10.08622 16.05550 12.63105 12.63105 0.000000 8.825791 13.88452 9.838294 1.720972 1.748881 12.32990 12.32990 12.32990 9.861551 15.68375 12.32990 12.32990 0.000000 8.560242 13.48729 9.557358 1.676545 1.705409 12.04880 12.04880 12.04880 9.652718 15.33870 12.04880 12.04880 0.000000 8.321831 13.11001 9.304781 1.635692 1.656401 11.79110 11.79110 11.79110 9.457913 15.01727 11.79110 11.79110 0.000000 8.102988 12.77109 9.064789 1.597995 1.618274 11.54884 11.54884 11.54884 9.276927 14.71662 11.54884 11.54884 0.000000 7.896708 12.45632 8.848237 1.563637 1.584056 11.32202 11.32202 11.32202 9.105806 14.43495 11.32202 11.32202 0.000000 7.704577 12.16303 8.646731 1.523247 1.552343 11.11286 11.11286 11.11286 8.947871 14.17018 11.11286 11.11286 0.000000 7.536872 11.87873 8.458697 1.493873 1.522880 10.91234 10.91234 10.91234 8.795870 13.92241 10.91234 10.91234 0.000000 7.372138 11.62217 8.282775 1.465486 1.495449 10.72683 10.72683 10.72683 8.655169 13.68863 10.72683 10.72683 0.000000 7.223275 11.38123 8.111698 1.439929 1.461308 10.55135 10.55135 10.55135 8.520401 13.46546 10.55135 10.55135 0.000000 7.084529 11.15445 7.956676 1.415010 1.436079 10.38345 10.38345 10.38345 8.392462 13.25565 10.38345 10.38345 0.000000 6.950327 10.95032 7.810659 1.392601 1.413400 10.22407 10.22407 10.22407 8.272261 13.05630 10.22407 10.22407 0.000000 6.823545 10.74803 7.678759 1.363726 1.392100 10.07428 10.07428 10.07428 8.157781 12.86842 10.07428 10.07428 0.000000 6.709961 10.55648 7.542564 1.342761 1.371030 9.931638 9.931638 9.931638 8.048573 12.68565 9.931638 9.931638 0.000000 6.603414 10.37479 7.424973 1.323912 1.353190 9.795587 9.795587 9.795587 7.942523 12.51474 9.795587 9.795587 0.000000 6.498721 10.20214 7.307873 1.305158 1.334358 9.667370 9.667370 9.667370 7.842699 12.35136 9.667370 9.667370 0.000000 6.400005 10.03788 7.196622 1.287382 1.309714 9.543040 9.543040 9.543040 7.747063 12.19316 9.543040 9.543040 0.000000 6.311440 9.890551 7.090780 1.270514 1.293633 9.425667 9.425667 9.425667 7.656733 12.04147 9.425667 9.425667 0.000000 6.228007 9.741083 6.989948 1.255446 1.277400 9.311442 9.311442 9.311442 7.568610 11.89763 9.311442 9.311442 0.000000 6.144695 9.598244 6.899389 1.241161 1.262952 9.201766 9.201766 9.201766 7.483879 11.75942 9.201766 9.201766 0.000000 6.065042 9.470592 6.807499 1.225332 1.248244 9.099692 9.099692 9.099692 7.402320 11.62649 9.099692 9.099692 0.000000 5.990236 9.339634 6.719656 1.206398 1.235216 8.998217 8.998217 8.998217 7.323736 11.49844 8.998217 8.998217 0.000000 5.919291 9.268867 6.635569 1.193064 1.222832 8.900469 8.900469 8.900469 7.247943 11.37332 8.900469 8.900469 0.000000 5.851963 9.148792 6.555004 1.180322 1.210056 8.809506 8.809506 8.809506 7.176128 11.25434 8.809506 8.809506 0.000000 5.788023 9.042483 6.483212 1.168137 1.197847 8.718529 8.718529 8.718529 7.106768 11.13946 8.718529 8.718529 0.000000 5.727270 8.931482 6.409017 1.156476 1.187168 8.633896 8.633896 8.633896 7.038333 11.02845 8.633896 8.633896 0.000000 5.669518 8.831240 6.337732 1.145310 1.169607 8.548922 8.548922 8.548922 6.973565 10.92263 8.548922 8.548922 0.000000 5.609893 8.728169 6.269186 1.135527 1.158780 8.469916 8.469916 8.469916 6.910687 10.81873 8.469916 8.469916 0.000000 5.552922 8.637627 6.203222 1.125263 1.148394 8.390295 8.390295 8.390295 6.848546 10.71819 8.390295 8.390295 0.000000 5.503165 8.550480 6.145066 1.116340 1.139397 8.316318 8.316318 8.316318 6.789578 10.62035 8.316318 8.316318 0.000000 1090.652 1341.851 952.9276 152.5896 152.8081 613.3578 613.3578 613.3578 360.9962 642.7744 613.3578 613.3578 0.000000 106.8541 142.6572 100.8219 16.39987 16.44532 77.72749 77.72749 77.72749 52.27261 88.85301 77.72749 77.72749 0.000000 58.81011 80.83053 56.92696 9.331553 9.363763 48.26548 48.26548 48.26548 33.95539 56.82904 48.26548 48.26548 0.000000 41.28675 58.01836 40.82377 6.735483 6.762930 36.93216 36.93216 36.93216 26.68162 44.23995 36.93216 36.93216 0.000000 32.17811 46.02978 32.37014 5.370529 5.396670 30.75562 30.75562 30.75562 22.62686 37.27117 30.75562 30.75562 0.000000 26.58111 38.59411 27.12761 4.522722 4.547810 26.79728 26.79728 26.79728 19.98882 32.75834 26.79728 26.79728 0.000000 22.78199 33.49524 23.55007 3.943463 3.967750 24.01577 24.01577 24.01577 18.10584 29.55397 24.01577 24.01577 0.000000 20.02601 29.78177 20.93446 3.520217 3.543864 21.93677 21.93677 21.93677 16.67881 27.13748 21.93677 21.93677 0.000000 17.94076 26.93275 18.94104 3.196718 3.219870 20.31361 20.31361 20.31361 15.55758 25.23416 20.31361 20.31361 0.000000 16.37680 24.68045 17.36841 2.940098 2.964362 19.00387 19.00387 19.00387 14.64191 23.69417 19.00387 19.00387 0.000000 15.07020 22.85510 16.08800 2.732763 2.756675 17.91936 17.91936 17.91936 13.87944 22.41083 17.91936 17.91936 0.000000 13.99288 21.34698 15.02832 2.560903 2.583855 17.00797 17.00797 17.00797 13.23209 21.32300 17.00797 17.00797 0.000000 13.09193 20.06733 14.14179 2.414927 2.438343 16.22439 16.22439 16.22439 12.67380 20.38661 16.22439 16.22439 0.000000 12.32575 18.97266 13.37520 2.290391 2.314296 15.54593 15.54593 15.54593 12.18641 19.57054 15.54593 15.54593 0.000000 11.66527 18.01909 12.71543 2.183065 2.220403 14.94797 14.94797 14.94797 11.75469 18.84699 14.94797 14.94797 0.000000 11.09609 17.19268 12.13905 2.101120 2.120183 14.41588 14.41588 14.41588 11.37054 18.20607 14.41588 14.41588 0.000000 10.59468 16.45927 11.62775 2.019821 2.039402 13.94261 13.94261 13.94261 11.02435 17.62930 13.94261 13.94261 0.000000 10.14701 15.80937 11.17063 1.938543 1.967430 13.51513 13.51513 13.51513 10.71215 17.10749 13.51513 13.51513 0.000000 9.753645 15.21826 10.76619 1.874251 1.898872 13.12641 13.12641 13.12641 10.42702 16.63423 13.12641 13.12641 0.000000 9.400040 14.69423 10.40018 1.816235 1.835804 12.77509 12.77509 12.77509 10.16554 16.20072 12.77509 12.77509 0.000000 9.080442 14.21140 10.06712 1.756289 1.783784 12.45032 12.45032 12.45032 9.926130 15.80166 12.45032 12.45032 0.000000 8.788360 13.76941 9.762548 1.707463 1.736433 12.15052 12.15052 12.15052 9.704491 15.43477 12.15052 12.15052 0.000000 8.523345 13.37402 9.489409 1.663244 1.692013 11.87452 11.87452 11.87452 9.498497 15.09221 11.87452 11.87452 0.000000 8.285430 12.99855 9.231277 1.623659 1.644240 11.61990 11.61990 11.61990 9.306080 14.77485 11.61990 11.61990 0.000000 8.062267 12.66127 8.998748 1.586141 1.606285 11.38237 11.38237 11.38237 9.127886 14.47844 11.38237 11.38237 0.000000 7.865976 12.34802 8.776724 1.544094 1.572229 11.15816 11.15816 11.15816 8.960700 14.20060 11.15816 11.15816 0.000000 7.674194 12.05101 8.576112 1.512645 1.540671 10.95145 10.95145 10.95145 8.801871 13.94121 10.95145 10.95145 0.000000 7.497453 11.77334 8.388923 1.482392 1.511357 10.75328 10.75328 10.75328 8.655072 13.69705 10.75328 10.75328 0.000000 7.337795 11.51809 8.213791 1.454146 1.475677 10.56982 10.56982 10.56982 8.514837 13.46458 10.56982 10.56982 0.000000 7.189286 11.27840 8.049570 1.428721 1.449964 10.39656 10.39656 10.39656 8.381983 13.24641 10.39656 10.39656 0.000000 7.050872 11.05280 7.895203 1.404938 1.425899 10.22886 10.22886 10.22886 8.257347 13.03953 10.22886 10.22886 0.000000 6.921643 10.84975 7.749820 1.377942 1.402299 10.07321 10.07321 10.07321 8.137393 12.84297 10.07321 10.07321 0.000000 6.795122 10.64854 7.612622 1.352798 1.381114 9.925238 9.925238 9.925238 8.024565 12.65590 9.925238 9.925238 0.000000 6.677200 10.45803 7.482912 1.331942 1.361187 9.784342 9.784342 9.784342 7.915224 12.47938 9.784342 9.784342 0.000000 6.570931 10.27731 7.360071 1.313196 1.342421 9.649963 9.649963 9.649963 7.812407 12.30908 9.649963 9.649963 0.000000 6.471129 10.10564 7.249294 1.294544 1.324212 9.523336 9.523336 9.523336 7.714040 12.14624 9.523336 9.523336 0.000000 6.372669 9.951530 7.138557 1.277825 1.300060 9.402263 9.402263 9.402263 7.619803 11.99209 9.402263 9.402263 0.000000 6.279732 9.795780 7.033209 1.261051 1.283070 9.284647 9.284647 9.284647 7.529409 11.84259 9.284647 9.284647 0.000000 6.196534 9.647141 6.932852 1.246074 1.267922 9.171855 9.171855 9.171855 7.443981 11.70082 9.171855 9.171855 0.000000 6.108094 9.514163 6.837130 1.231881 1.253562 9.063560 9.063560 9.063560 7.360502 11.56280 9.063560 9.063560 0.000000 6.034003 9.378210 6.751297 1.210129 1.238935 8.962787 8.962787 8.962787 7.281518 11.43197 8.962787 8.962787 0.000000 5.959412 9.248012 6.663870 1.196241 1.224994 8.862598 8.862598 8.862598 7.204092 11.30570 8.862598 8.862598 0.000000 5.893330 9.178329 6.580195 1.183909 1.213687 8.767735 8.767735 8.767735 7.129419 11.18418 8.767735 8.767735 0.000000 5.826209 9.068040 6.500029 1.171243 1.200989 8.676309 8.676309 8.676309 7.057268 11.06695 8.676309 8.676309 0.000000 5.762474 8.953312 6.423151 1.159132 1.188855 8.586498 8.586498 8.586498 6.989037 10.95363 8.586498 8.586498 0.000000 5.697238 8.849612 6.354786 1.147541 1.175090 8.502966 8.502966 8.502966 6.922921 10.84434 8.502966 8.502966 0.000000 5.639669 8.743282 6.283864 1.136442 1.159680 8.419089 8.419089 8.419089 6.857728 10.73865 8.419089 8.419089 0.000000 5.584930 8.649693 6.215671 1.126730 1.149886 8.341118 8.341118 8.341118 6.795895 10.63602 8.341118 8.341118 0.000000 5.528135 8.559687 6.155426 1.116531 1.139564 8.264112 8.264112 8.264112 6.735991 10.53699 8.264112 8.264112 0.000000 5.477986 8.464274 6.092202 1.107675 1.130633 8.189530 8.189530 8.189530 6.676623 10.44081 8.189530 8.189530 0.000000 1090.335 1340.970 952.3588 152.4895 152.7129 611.9552 611.9552 611.9552 359.7476 640.7792 611.9552 611.9552 0.000000 106.7309 142.3116 100.5988 16.36079 16.40623 77.18361 77.18361 77.18361 51.79494 88.09631 77.18361 77.18361 0.000000 58.71508 80.54484 56.75484 9.301379 9.333580 47.85216 47.85216 47.85216 33.58758 56.23619 47.85216 47.85216 0.000000 41.20550 57.78943 40.66772 6.708294 6.735688 36.57483 36.57483 36.57483 26.36409 43.73331 36.57483 36.57483 0.000000 32.10543 45.82507 32.23081 5.346203 5.372284 30.43268 30.43268 30.43268 22.34313 36.81856 30.43268 30.43268 0.000000 26.51007 38.39519 27.00656 4.500388 4.526428 26.50491 26.50491 26.50491 19.72626 32.34381 26.50491 26.50491 0.000000 22.71581 33.31018 23.42515 3.922611 3.946819 23.74366 23.74366 23.74366 17.86146 29.16509 23.74366 23.74366 0.000000 19.96728 29.60759 20.82242 3.500522 3.524089 21.67755 21.67755 21.67755 16.45121 26.77162 21.67755 21.67755 0.000000 17.88146 26.77626 18.83972 3.177963 3.201828 20.06784 20.06784 20.06784 15.33941 24.89005 20.06784 20.06784 0.000000 16.32360 24.53087 17.26656 2.922861 2.946290 18.76925 18.76925 18.76925 14.43552 23.36301 18.76925 18.76925 0.000000 15.01893 22.71141 15.99011 2.716151 2.739979 17.69666 17.69666 17.69666 13.68172 22.09324 17.69666 17.69666 0.000000 13.94334 21.20085 14.93822 2.544827 2.567692 16.79111 16.79111 16.79111 13.03966 21.01724 16.79111 16.79111 0.000000 13.04383 19.92598 14.04599 2.399324 2.422645 16.01722 16.01722 16.01722 12.48786 20.09121 16.01722 16.01722 0.000000 12.27895 18.83554 13.28626 2.275204 2.299007 15.34275 15.34275 15.34275 12.00623 19.28438 15.34275 15.34275 0.000000 11.61959 17.89244 12.63276 2.168244 2.207049 14.75064 14.75064 14.75064 11.57970 18.57153 14.75064 14.75064 0.000000 11.05145 17.06272 12.05452 2.086846 2.105781 14.22605 14.22605 14.22605 11.20012 17.93574 14.22605 14.22605 0.000000 10.55097 16.33869 11.54885 2.002352 2.025313 13.75747 13.75747 13.75747 10.85816 17.36583 13.75747 13.75747 0.000000 10.10412 15.67914 11.09337 1.925998 1.953631 13.33431 13.33431 13.33431 10.54988 16.85252 13.33431 13.33431 0.000000 9.711515 15.09673 10.69043 1.860798 1.881994 12.94958 12.94958 12.94958 10.26847 16.38281 12.94958 12.94958 0.000000 9.358612 14.56922 10.32580 1.804174 1.823625 12.59986 12.59986 12.59986 10.01202 15.95464 12.59986 12.59986 0.000000 9.044633 14.10015 9.994010 1.743801 1.771817 12.27854 12.27854 12.27854 9.774005 15.56054 12.27854 12.27854 0.000000 8.753058 13.66011 9.690630 1.695725 1.723513 11.98384 11.98384 11.98384 9.555244 15.19827 11.98384 11.98384 0.000000 8.488547 13.26097 9.418572 1.651692 1.677376 11.71095 11.71095 11.71095 9.351662 14.86209 11.71095 11.71095 0.000000 8.246286 12.89271 9.161475 1.611212 1.632741 11.45717 11.45717 11.45717 9.163664 14.54672 11.45717 11.45717 0.000000 8.033165 12.55699 8.929906 1.574935 1.594949 11.22227 11.22227 11.22227 8.986254 14.25413 11.22227 11.22227 0.000000 7.827745 12.24519 8.715115 1.532955 1.561047 11.00247 11.00247 11.00247 8.821305 13.98187 11.00247 11.00247 0.000000 7.636371 11.94444 8.509043 1.500628 1.529637 10.79620 10.79620 10.79620 8.666137 13.72392 10.79620 10.79620 0.000000 7.469417 11.67326 8.322645 1.471535 1.500464 10.60198 10.60198 10.60198 8.519802 13.48107 10.60198 10.60198 0.000000 7.305408 11.41925 8.148292 1.443421 1.465873 10.42074 10.42074 10.42074 8.381475 13.25359 10.42074 10.42074 0.000000 7.157230 11.18074 7.984772 1.418123 1.439236 10.24765 10.24765 10.24765 8.251916 13.03833 10.24765 10.24765 0.000000 7.019133 10.96606 7.831102 1.394464 1.415287 10.08370 10.08370 10.08370 8.127519 12.83422 10.08370 10.08370 0.000000 6.884618 10.75424 7.686375 1.364457 1.392839 9.929846 9.929846 9.929846 8.009219 12.64032 9.929846 9.929846 0.000000 6.763952 10.55405 7.549802 1.342461 1.370725 9.783607 9.783607 9.783607 7.897682 12.45578 9.783607 9.783607 0.000000 6.650930 10.36452 7.426497 1.322672 1.351936 9.644366 9.644366 9.644366 7.791548 12.27987 9.644366 9.644366 0.000000 6.540301 10.18474 7.304181 1.303060 1.332241 9.511576 9.511576 9.511576 7.690159 12.11370 9.511576 9.511576 0.000000 6.440752 10.01397 7.188163 1.284505 1.306792 9.386457 9.386457 9.386457 7.593163 11.95310 9.386457 9.386457 0.000000 6.347166 9.860679 7.077953 1.267878 1.289982 9.266834 9.266834 9.266834 7.500245 11.79933 9.266834 9.266834 0.000000 6.254459 9.705762 6.973111 1.252152 1.274076 9.150629 9.150629 9.150629 7.411119 11.65365 9.150629 9.150629 0.000000 6.166862 9.557921 6.878856 1.236307 1.258015 9.039196 9.039196 9.039196 7.325528 11.51379 9.039196 9.039196 0.000000 6.083249 9.425648 6.783565 1.214929 1.243736 8.933869 8.933869 8.933869 7.243238 11.37966 8.933869 8.933869 0.000000 6.004747 9.290456 6.692569 1.200445 1.230184 8.832673 8.832673 8.832673 7.165387 11.24861 8.832673 8.832673 0.000000 5.930354 9.215988 6.611103 1.187557 1.216320 8.733708 8.733708 8.733708 7.090412 11.12429 8.733708 8.733708 0.000000 5.859815 9.092331 6.527817 1.174372 1.204094 8.641635 8.641635 8.641635 7.016764 11.00429 8.641635 8.641635 0.000000 5.797536 8.982677 6.448028 1.162702 1.192468 8.549714 8.549714 8.549714 6.945832 10.88886 8.549714 8.549714 0.000000 5.733986 8.877590 6.376955 1.150659 1.179991 8.464218 8.464218 8.464218 6.878349 10.77732 8.464218 8.464218 0.000000 5.673613 8.765438 6.303487 1.139136 1.162421 8.378525 8.378525 8.378525 6.813268 10.66943 8.378525 8.378525 0.000000 5.611541 8.668586 6.232908 1.128103 1.151256 8.298857 8.298857 8.298857 6.749012 10.56512 8.298857 8.298857 0.000000 5.556967 8.575519 6.165047 1.118457 1.141525 8.218701 8.218701 8.218701 6.686783 10.46434 8.218701 8.218701 0.000000 5.505054 8.477225 6.099747 1.108325 1.131266 8.144228 8.144228 8.144228 6.629041 10.36646 8.144228 8.144228 0.000000 5.455061 8.391120 6.042202 1.099531 1.122393 8.069021 8.069021 8.069021 6.570532 10.27333 8.069021 8.069021 0.000000 1090.033 1340.145 951.8290 152.3992 152.6177 610.6221 610.6221 610.6221 358.5607 638.8828 610.6221 610.6221 0.000000 106.6313 141.9830 100.3868 16.32364 16.36659 76.67958 76.67958 76.67958 51.34073 87.37052 76.67958 76.67958 0.000000 58.62476 80.29047 56.58041 9.271044 9.303193 47.45417 47.45417 47.45417 33.23413 55.67719 47.45417 47.45417 0.000000 41.12828 57.55721 40.51900 6.682388 6.711077 36.23486 36.23486 36.23486 26.06204 43.25558 36.23486 36.23486 0.000000 32.03635 45.61791 32.10547 5.323030 5.349051 30.12898 30.12898 30.12898 22.07323 36.38809 30.12898 30.12898 0.000000 26.44235 38.20562 26.88491 4.480103 4.505078 26.22339 26.22339 26.22339 19.47902 31.94957 26.22339 26.22339 0.000000 22.65274 33.14398 23.31784 3.902746 3.926881 23.48168 23.48168 23.48168 17.63081 28.79828 23.48168 23.48168 0.000000 19.91144 29.44162 20.72117 3.481765 3.506103 21.43393 21.43393 21.43393 16.23470 26.42654 21.43393 21.43393 0.000000 17.82494 26.60999 18.73312 3.160100 3.184673 19.83650 19.83650 19.83650 15.13180 24.56276 19.83650 19.83650 0.000000 16.27304 24.38043 17.16953 2.906474 2.929829 18.54858 18.54858 18.54858 14.23702 23.05069 18.54858 18.54858 0.000000 14.97020 22.56697 15.90141 2.700353 2.724100 17.48491 17.48491 17.48491 13.49156 21.79373 17.48491 17.48491 0.000000 13.89624 21.06161 14.85255 2.529539 2.552322 16.58468 16.58468 16.58468 12.85852 20.72875 16.58468 16.58468 0.000000 12.99809 19.79129 13.96296 2.384485 2.407717 15.81769 15.81769 15.81769 12.31283 19.81264 15.81769 15.81769 0.000000 12.23446 18.71178 13.20559 2.260760 2.296121 15.14937 15.14937 15.14937 11.83475 19.01212 15.14937 15.14937 0.000000 11.57617 17.77203 12.55023 2.154151 2.193079 14.56279 14.56279 14.56279 11.41490 18.30717 14.56279 14.56279 0.000000 11.00900 16.94534 11.97399 2.073273 2.092085 14.04523 14.04523 14.04523 11.03983 17.67804 14.04523 14.04523 0.000000 10.50941 16.21773 11.47383 1.985258 2.011915 13.57911 13.57911 13.57911 10.70216 17.11516 13.57911 13.57911 0.000000 10.06852 15.56702 11.01991 1.912948 1.941743 13.16011 13.16011 13.16011 10.39557 16.60780 13.16011 13.16011 0.000000 9.676555 14.98691 10.61838 1.849159 1.869063 12.78130 12.78130 12.78130 10.11926 16.14360 12.78130 12.78130 0.000000 9.324245 14.46149 10.25504 1.791613 1.812095 12.43507 12.43507 12.43507 9.864270 15.72051 12.43507 12.43507 0.000000 9.005845 13.98867 9.924477 1.731399 1.759326 12.11700 12.11700 12.11700 9.629208 15.33322 12.11700 12.11700 0.000000 8.714816 13.55614 9.622225 1.683522 1.712376 11.82534 11.82534 11.82534 9.413186 14.97326 11.82534 11.82534 0.000000 8.450832 13.15324 9.351187 1.640754 1.661523 11.55528 11.55528 11.55528 9.212183 14.63891 11.55528 11.55528 0.000000 8.218678 12.79206 9.095087 1.600442 1.620750 11.30416 11.30416 11.30416 9.026578 14.32965 11.30416 11.30416 0.000000 7.996378 12.45780 8.864422 1.563794 1.584214 11.07174 11.07174 11.07174 8.852987 14.04070 11.07174 11.07174 0.000000 7.790127 12.14740 8.650481 1.522403 1.550459 10.85429 10.85429 10.85429 8.688617 13.76971 10.85429 10.85429 0.000000 7.609816 11.84800 8.451442 1.490214 1.519189 10.65010 10.65010 10.65010 8.536976 13.51717 10.65010 10.65010 0.000000 7.433803 11.57807 8.265742 1.461251 1.486230 10.45810 10.45810 10.45810 8.391037 13.27930 10.45810 10.45810 0.000000 7.274821 11.32524 8.092024 1.433264 1.454550 10.27884 10.27884 10.27884 8.256004 13.05283 10.27884 10.27884 0.000000 7.126956 11.08784 7.929147 1.408087 1.429074 10.10766 10.10766 10.10766 8.126678 12.84034 10.10766 10.10766 0.000000 6.989160 10.87419 7.776058 1.384544 1.405237 9.945518 9.945518 9.945518 8.003929 12.63888 9.945518 9.945518 0.000000 6.854912 10.66338 7.631896 1.354562 1.382896 9.793387 9.793387 9.793387 7.888361 12.44749 9.793387 9.793387 0.000000 6.734518 10.46416 7.495863 1.332667 1.361919 9.648793 9.648793 9.648793 7.778570 12.26536 9.648793 9.648793 0.000000 6.617136 10.27555 7.367268 1.312976 1.342198 9.511127 9.511127 9.511127 7.673851 12.09176 9.511127 9.511127 0.000000 6.516000 10.09668 7.251241 1.294421 1.322618 9.381556 9.381556 9.381556 7.573820 11.92602 9.381556 9.381556 0.000000 6.412068 9.936002 7.135699 1.275953 1.298158 9.257857 9.257857 9.257857 7.478128 11.76931 9.257857 9.257857 0.000000 6.314090 9.774245 7.025947 1.258457 1.281431 9.137918 9.137918 9.137918 7.386463 11.61911 9.137918 9.137918 0.000000 6.226231 9.620101 6.921545 1.242817 1.265610 9.023054 9.023054 9.023054 7.298544 11.47386 9.023054 9.023054 0.000000 6.143478 9.482035 6.822098 1.227355 1.249629 8.912913 8.912913 8.912913 7.214115 11.33414 8.912913 8.912913 0.000000 6.060053 9.341445 6.732824 1.206605 1.235424 8.810461 8.810461 8.810461 7.132946 11.20168 8.810461 8.810461 0.000000 5.981754 9.261796 6.642223 1.192193 1.221949 8.708810 8.708810 8.708810 7.054760 11.07430 8.708810 8.708810 0.000000 5.907566 9.133500 6.555613 1.178451 1.208161 8.612627 8.612627 8.612627 6.980914 10.95153 8.612627 8.612627 0.000000 5.837222 9.019551 6.478197 1.166260 1.196008 8.520029 8.520029 8.520029 6.909556 10.83352 8.520029 8.520029 0.000000 5.770472 8.910460 6.398764 1.153734 1.184454 8.429197 8.429197 8.429197 6.839479 10.71955 8.429197 8.429197 0.000000 5.707098 8.794573 6.322596 1.142680 1.166026 8.344726 8.344726 8.344726 6.771777 10.60925 8.344726 8.344726 0.000000 5.646895 8.694222 6.254888 1.131222 1.154429 8.260054 8.260054 8.260054 6.707609 10.50305 8.260054 8.260054 0.000000 5.589685 8.597878 6.184633 1.120254 1.143324 8.181349 8.181349 8.181349 6.645540 10.40014 8.181349 8.181349 0.000000 5.535285 8.496500 6.117086 1.109747 1.132684 8.105276 8.105276 8.105276 6.584175 10.30063 8.105276 8.105276 0.000000 5.482971 8.407511 6.057444 1.100600 1.123454 8.028587 8.028587 8.028587 6.527247 10.20424 8.028587 8.028587 0.000000 5.433703 8.321872 5.994830 1.085019 1.114640 7.957375 7.957375 7.957375 6.469554 10.11083 7.957375 7.957375 0.000000 1089.746 1339.348 951.3252 152.3087 152.5271 609.3530 609.3530 609.3530 357.4309 637.0776 609.3530 609.3530 0.000000 106.5198 141.6703 100.1849 16.28707 16.33123 76.19305 76.19305 76.19305 50.90816 86.67936 76.19305 76.19305 0.000000 58.53193 80.04826 56.42468 9.243743 9.275885 47.07982 47.07982 47.07982 32.89738 55.14487 47.07982 47.07982 0.000000 41.04913 57.35008 40.38572 6.658983 6.686304 35.91503 35.91503 35.91503 25.77741 42.79656 35.91503 35.91503 0.000000 31.96572 45.43268 31.97873 5.300920 5.326883 29.83958 29.83958 29.83958 21.81608 35.98169 29.83958 29.83958 0.000000 26.38200 38.03580 26.76881 4.459800 4.484711 25.95833 25.95833 25.95833 19.24346 31.57403 25.95833 25.95833 0.000000 22.59643 32.97562 23.21565 3.884689 3.908776 23.23500 23.23500 23.23500 17.40916 28.44887 23.23500 23.23500 0.000000 19.85829 29.29254 20.61928 3.464694 3.488975 21.20176 21.20176 21.20176 16.02610 26.09783 21.20176 21.20176 0.000000 17.77434 26.46840 18.64143 3.143829 3.167542 19.61620 19.61620 19.61620 14.93611 24.25100 19.61620 19.61620 0.000000 16.22489 24.23685 17.08175 2.890863 2.914151 18.33565 18.33565 18.33565 14.04809 22.75317 18.33565 18.33565 0.000000 14.92380 22.42913 15.81697 2.684616 2.708263 17.28056 17.28056 17.28056 13.31031 21.50841 17.28056 17.28056 0.000000 13.85140 20.93614 14.76660 2.513653 2.537682 16.39032 16.39032 16.39032 12.68394 20.45404 16.39032 16.39032 0.000000 12.95455 19.66988 13.88391 2.370351 2.393496 15.62737 15.62737 15.62737 12.14413 19.54482 15.62737 15.62737 0.000000 12.19779 18.58706 13.12876 2.247001 2.282467 14.96732 14.96732 14.96732 11.67316 18.75508 14.96732 14.96732 0.000000 11.54034 17.65072 12.47147 2.140722 2.179777 14.38594 14.38594 14.38594 11.25608 18.05527 14.38594 14.38594 0.000000 10.97398 16.83356 11.90094 2.060348 2.080307 13.87084 13.87084 13.87084 10.88509 17.43525 13.87084 13.87084 0.000000 10.47511 16.10231 11.39868 1.972566 2.000402 13.40905 13.40905 13.40905 10.55129 16.87851 13.40905 13.40905 0.000000 10.02967 15.46024 10.94994 1.900519 1.930477 12.99612 12.99612 12.99612 10.25010 16.37460 12.99612 12.99612 0.000000 9.638398 14.88231 10.54974 1.836970 1.857927 12.62090 12.62090 12.62090 9.975395 15.91778 12.62090 12.62090 0.000000 9.286722 14.35893 10.18765 1.780790 1.799992 12.27597 12.27597 12.27597 9.723422 15.49949 12.27597 12.27597 0.000000 8.968906 13.88227 9.858240 1.720681 1.748587 11.96291 11.96291 11.96291 9.492796 15.11459 11.96291 11.96291 0.000000 8.678396 13.45716 9.557062 1.672982 1.701818 11.67426 11.67426 11.67426 9.279080 14.75859 11.67426 11.67426 0.000000 8.419752 13.05588 9.287002 1.629305 1.649935 11.40689 11.40689 11.40689 9.080789 14.43039 11.40689 11.40689 0.000000 8.183206 12.69618 9.031842 1.590230 1.610425 11.15830 11.15830 11.15830 8.895887 14.12478 11.15830 11.15830 0.000000 7.966111 12.36333 8.802036 1.545884 1.574034 10.92825 10.92825 10.92825 8.724443 13.83906 10.92825 10.92825 0.000000 7.760207 12.04904 8.588905 1.512395 1.540418 10.71303 10.71303 10.71303 8.563631 13.57154 10.71303 10.71303 0.000000 7.575533 11.75614 8.390630 1.480337 1.509283 10.51094 10.51094 10.51094 8.412377 13.32014 10.51094 10.51094 0.000000 7.404563 11.48738 8.205644 1.451498 1.473014 10.32094 10.32094 10.32094 8.269753 13.08519 10.32094 10.32094 0.000000 7.245895 11.23567 8.032629 1.424639 1.445844 10.14357 10.14357 10.14357 8.134954 12.86151 10.14357 10.14357 0.000000 7.098327 10.99934 7.870383 1.398569 1.419436 9.975984 9.975984 9.975984 8.007275 12.65166 9.975984 9.975984 0.000000 6.960816 10.78665 7.717926 1.367350 1.396743 9.815550 9.815550 9.815550 7.887253 12.45270 9.815550 9.815550 0.000000 6.826820 10.57681 7.574354 1.345174 1.373466 9.663297 9.663297 9.663297 7.773425 12.26372 9.663297 9.663297 0.000000 6.706684 10.37852 7.444702 1.324340 1.353622 9.521993 9.521993 9.521993 7.665040 12.08389 9.521993 9.521993 0.000000 6.594170 10.19079 7.316596 1.303777 1.332964 9.385810 9.385810 9.385810 7.561670 11.91249 9.385810 9.385810 0.000000 6.484032 10.01278 7.195293 1.284353 1.307636 9.257648 9.257648 9.257648 7.461544 11.75061 9.257648 9.257648 0.000000 6.389573 9.852863 7.080246 1.266932 1.290018 9.133620 9.133620 9.133620 7.367105 11.59400 9.133620 9.133620 0.000000 6.291812 9.691889 6.970969 1.250478 1.272373 9.015008 9.015008 9.015008 7.278010 11.44444 9.015008 9.015008 0.000000 6.199543 9.547543 6.872636 1.234921 1.256629 8.901422 8.901422 8.901422 7.191239 11.30241 8.901422 8.901422 0.000000 6.111633 9.401100 6.773592 1.211956 1.241721 8.795794 8.795794 8.795794 7.107917 11.16630 8.795794 8.795794 0.000000 6.033748 9.261208 6.679132 1.197826 1.226596 8.691217 8.691217 8.691217 7.027769 11.03556 8.691217 8.691217 0.000000 5.960283 9.182539 6.594454 1.184409 1.213195 8.590713 8.590713 8.590713 6.950806 10.90809 8.590713 8.590713 0.000000 5.886287 9.063965 6.508204 1.170736 1.200475 8.497231 8.497231 8.497231 6.877708 10.78711 8.497231 8.497231 0.000000 5.816125 8.941546 6.425666 1.157688 1.188391 8.404081 8.404081 8.404081 6.807388 10.67042 8.404081 8.404081 0.000000 5.749558 8.830671 6.352028 1.145225 1.169520 8.317456 8.317456 8.317456 6.738243 10.55789 8.317456 8.317456 0.000000 5.686362 8.717678 6.276186 1.134234 1.157464 8.230790 8.230790 8.230790 6.671443 10.44944 8.230790 8.230790 0.000000 5.626339 8.617861 6.203395 1.123765 1.146896 8.150223 8.150223 8.150223 6.608137 10.34437 8.150223 8.150223 0.000000 5.569298 8.522034 6.138845 1.112857 1.135851 8.069303 8.069303 8.069303 6.546904 10.24291 8.069303 8.069303 0.000000 5.515068 8.429961 6.071592 1.102409 1.125269 7.994119 7.994119 7.994119 6.486363 10.14472 7.994119 7.994119 0.000000 5.462899 8.332696 6.006883 1.090774 1.116094 7.921398 7.921398 7.921398 6.430210 10.04963 7.921398 7.921398 0.000000 5.409044 8.247526 5.949892 1.076798 1.107336 7.847946 7.847946 7.847946 6.373295 9.959035 7.847946 7.847946 0.000000 1089.491 1338.601 950.8345 152.2224 152.4457 608.1431 608.1431 608.1431 356.3538 635.3566 608.1431 608.1431 0.000000 106.4135 141.3721 99.99249 16.25215 16.29752 75.72895 75.72895 75.72895 50.49559 86.02020 75.72895 75.72895 0.000000 58.44997 79.79948 56.26543 9.216066 9.248157 46.71785 46.71785 46.71785 32.57973 54.63721 46.71785 46.71785 0.000000 40.97905 57.13806 40.25863 6.635355 6.662627 35.60584 35.60584 35.60584 25.50281 42.36172 35.60584 35.60584 0.000000 31.89817 45.24359 31.85758 5.280903 5.306839 29.56702 29.56702 29.56702 21.57072 35.59050 29.56702 29.56702 0.000000 26.32446 37.87388 26.66439 4.440402 4.466258 25.70538 25.70538 25.70538 19.01612 31.21577 25.70538 25.70538 0.000000 22.54274 32.81469 23.11229 3.865687 3.890595 22.99958 22.99958 22.99958 17.20000 28.11554 22.99958 22.99958 0.000000 19.80400 29.14108 20.52190 3.447591 3.470948 20.98019 20.98019 20.98019 15.82927 25.78424 20.98019 20.98019 0.000000 17.72609 26.33338 18.55400 3.128312 3.151171 19.40320 19.40320 19.40320 14.74938 23.95357 19.40320 19.40320 0.000000 16.17899 24.10778 16.99324 2.874526 2.899199 18.13496 18.13496 18.13496 13.86983 22.46665 18.13496 18.13496 0.000000 14.87956 22.30514 15.73187 2.669578 2.693130 17.08528 17.08528 17.08528 13.13931 21.23341 17.08528 17.08528 0.000000 13.80864 20.80910 14.68445 2.499769 2.523717 16.20482 16.20482 16.20482 12.51925 20.18946 16.20482 16.20482 0.000000 12.91302 19.55410 13.80852 2.356869 2.379931 15.44808 15.44808 15.44808 11.98498 19.29167 15.44808 15.44808 0.000000 12.15739 18.46782 13.05549 2.233876 2.270798 14.79355 14.79355 14.79355 11.51691 18.50748 14.79355 14.79355 0.000000 11.50090 17.53478 12.40009 2.127913 2.164918 14.21713 14.21713 14.21713 11.10452 17.81718 14.21713 14.21713 0.000000 10.93542 16.72055 11.83127 2.049260 2.067862 13.70649 13.70649 13.70649 10.73764 17.20360 13.70649 13.70649 0.000000 10.43736 15.99821 11.32685 1.960461 1.988229 13.24879 13.24879 13.24879 10.40746 16.65053 13.24879 13.24879 0.000000 9.992626 15.35839 10.88320 1.889829 1.918551 12.83749 12.83749 12.83749 10.10964 16.15421 12.83749 12.83749 0.000000 9.602010 14.78254 10.48429 1.826495 1.846173 12.46779 12.46779 12.46779 9.838044 15.70022 12.46779 12.46779 0.000000 9.250937 14.26106 10.12337 1.767775 1.789614 12.12605 12.12605 12.12605 9.590590 15.28655 12.12605 12.12605 0.000000 8.938624 13.78622 9.795051 1.709409 1.738391 11.81595 11.81595 11.81595 9.362605 14.90594 11.81595 11.81595 0.000000 8.648540 13.36269 9.494889 1.661890 1.691796 11.53004 11.53004 11.53004 9.151366 14.55593 11.53004 11.53004 0.000000 8.390320 12.96300 9.225762 1.619456 1.639984 11.26524 11.26524 11.26524 8.955382 14.22944 11.26524 11.26524 0.000000 8.154170 12.60472 8.977914 1.580534 1.600619 11.01906 11.01906 11.01906 8.772650 13.92713 11.01906 11.01906 0.000000 7.937449 12.27317 8.742517 1.536248 1.564368 10.79127 10.79127 10.79127 8.601714 13.64495 10.79127 10.79127 0.000000 7.731875 11.95503 8.530156 1.501867 1.530885 10.57803 10.57803 10.57803 8.444338 13.38054 10.57803 10.57803 0.000000 7.547533 11.66850 8.332598 1.470955 1.499878 10.37808 10.37808 10.37808 8.293411 13.13398 10.37808 10.37808 0.000000 7.376876 11.40087 8.148318 1.442234 1.463644 10.19000 10.19000 10.19000 8.153992 12.89992 10.19000 10.19000 0.000000 7.218505 11.15022 7.975935 1.414483 1.435543 10.01443 10.01443 10.01443 8.020825 12.67891 10.01443 10.01443 0.000000 7.071219 10.92469 7.814322 1.389531 1.411322 9.848557 9.848557 9.848557 7.894423 12.47157 9.848557 9.848557 0.000000 6.933980 10.70314 7.668355 1.359306 1.386654 9.691518 9.691518 9.691518 7.776139 12.27501 9.691518 9.691518 0.000000 6.804852 10.49422 7.525290 1.336255 1.365544 9.540822 9.540822 9.540822 7.663714 12.08832 9.540822 9.540822 0.000000 6.680332 10.29681 7.390306 1.314550 1.344761 9.400981 9.400981 9.400981 7.555273 11.91068 9.400981 9.400981 0.000000 6.568053 10.10993 7.262714 1.295041 1.324713 9.266212 9.266212 9.266212 7.453201 11.74313 9.266212 9.266212 0.000000 6.462760 9.941957 7.141902 1.276659 1.298875 9.137711 9.137711 9.137711 7.355708 11.58135 9.137711 9.137711 0.000000 6.359276 9.773533 7.032989 1.258364 1.281336 9.015000 9.015000 9.015000 7.262453 11.42705 9.015000 9.015000 0.000000 6.266349 9.613283 6.924122 1.242948 1.264768 8.897654 8.897654 8.897654 7.173131 11.28067 8.897654 8.897654 0.000000 6.178911 9.469608 6.820571 1.222569 1.248102 8.788567 8.788567 8.788567 7.088809 11.13888 8.788567 8.788567 0.000000 6.091176 9.323868 6.727512 1.204472 1.233265 8.680804 8.680804 8.680804 7.006511 11.00428 8.680804 8.680804 0.000000 6.008855 9.239561 6.633420 1.189484 1.219207 8.577360 8.577360 8.577360 6.927393 10.87370 8.577360 8.577360 0.000000 5.930922 9.106911 6.543582 1.176134 1.205876 8.481157 8.481157 8.481157 6.851285 10.74962 8.481157 8.481157 0.000000 5.861746 8.988923 6.463169 1.163452 1.193226 8.385494 8.385494 8.385494 6.777966 10.62988 8.385494 8.385494 0.000000 5.791754 8.876089 6.380961 1.150465 1.180285 8.296534 8.296534 8.296534 6.709856 10.51488 8.296534 8.296534 0.000000 5.730028 8.756724 6.307631 1.138064 1.161330 8.207703 8.207703 8.207703 6.641599 10.40376 8.207703 8.207703 0.000000 5.667003 8.653147 6.232098 1.127136 1.150299 8.125120 8.125120 8.125120 6.575660 10.29655 8.125120 8.125120 0.000000 5.607151 8.553802 6.164989 1.116727 1.139790 8.042329 8.042329 8.042329 6.513176 10.19298 8.042329 8.042329 0.000000 5.550273 8.449656 6.095329 1.105877 1.128801 7.965396 7.965396 7.965396 6.452740 10.09282 7.965396 7.965396 0.000000 5.491474 8.358059 6.028367 1.095487 1.118273 7.889507 7.889507 7.889507 6.392985 9.995903 7.889507 7.889507 0.000000 5.434702 8.269986 5.969257 1.079551 1.109153 7.816074 7.816074 7.816074 6.337572 9.902041 7.816074 7.816074 0.000000 5.385718 8.185236 5.907193 1.069883 1.100451 7.746483 7.746483 7.746483 6.281398 9.811078 7.746483 7.746483 0.000000 1089.230 1337.875 950.3660 152.1424 152.3632 606.9882 606.9882 606.9882 355.3256 633.7137 606.9882 606.9882 0.000000 106.3121 141.0875 99.80879 16.21996 16.26285 75.28563 75.28563 75.28563 50.10153 85.39716 75.28563 75.28563 0.000000 58.37172 79.57910 56.12370 9.191218 9.223302 46.37679 46.37679 46.37679 32.27635 54.15239 46.37679 46.37679 0.000000 40.90652 56.94955 40.12867 6.612744 6.641305 35.31007 35.31007 35.31007 25.24044 41.94340 35.31007 35.31007 0.000000 31.83833 45.07500 31.74899 5.260678 5.286557 29.30305 29.30305 29.30305 21.33628 35.22038 29.30305 29.30305 0.000000 26.26953 37.70822 26.55816 4.422820 4.447630 25.46363 25.46363 25.46363 18.80137 30.87682 25.46363 25.46363 0.000000 22.49149 32.67068 23.01336 3.849250 3.873198 22.77442 22.77442 22.77442 17.00014 27.80018 22.77442 22.77442 0.000000 19.75202 28.99611 20.43415 3.431227 3.455354 20.76843 20.76843 20.76843 15.63894 25.48402 20.76843 20.76843 0.000000 17.68003 26.19580 18.46541 3.111960 3.136298 19.20214 19.20214 19.20214 14.56852 23.66944 19.20214 19.20214 0.000000 16.13517 23.98455 16.90853 2.860313 2.884173 17.94316 17.94316 17.94316 13.69949 22.19551 17.94316 17.94316 0.000000 14.83732 22.18673 15.65042 2.655877 2.679358 16.90125 16.90125 16.90125 12.97590 20.97366 16.90125 16.90125 0.000000 13.76782 20.68751 14.61018 2.486508 2.510378 16.02752 16.02752 16.02752 12.35993 19.93910 16.02752 16.02752 0.000000 12.87338 19.43645 13.73234 2.343991 2.366971 15.27673 15.27673 15.27673 11.83102 19.04741 15.27673 15.27673 0.000000 12.11881 18.36053 12.98147 2.221339 2.258356 14.62746 14.62746 14.62746 11.36973 18.27321 14.62746 14.62746 0.000000 11.46324 17.43038 12.33193 2.126525 2.147077 14.05561 14.05561 14.05561 10.96142 17.58922 14.05561 14.05561 0.000000 10.89861 16.61238 11.76470 2.037485 2.055976 13.54724 13.54724 13.54724 10.59856 16.98006 13.54724 13.54724 0.000000 10.40132 15.89879 11.26178 1.948900 1.977844 13.09561 13.09561 13.09561 10.27161 16.43485 13.09561 13.09561 0.000000 9.962403 15.26112 10.81945 1.878504 1.905005 12.68787 12.68787 12.68787 9.977036 15.94151 12.68787 12.68787 0.000000 9.572331 14.68725 10.42175 1.815389 1.834946 12.31940 12.31940 12.31940 9.708384 15.49440 12.31940 12.31940 0.000000 9.221762 14.16762 10.06196 1.750575 1.778583 11.98262 11.98262 11.98262 9.463642 15.08304 11.98262 11.98262 0.000000 8.904969 13.69446 9.734686 1.698641 1.727545 11.67546 11.67546 11.67546 9.236307 14.70832 11.67546 11.67546 0.000000 8.620233 13.27249 9.442109 1.652374 1.675019 11.39218 11.39218 11.39218 9.027735 14.36030 11.39218 11.39218 0.000000 8.357580 12.87428 9.167255 1.610093 1.630521 11.12983 11.12983 11.12983 8.833979 14.03740 11.12983 11.12983 0.000000 8.126643 12.51735 8.920246 1.570251 1.590201 10.88596 10.88596 10.88596 8.654864 13.73846 10.88596 10.88596 0.000000 7.905511 12.18707 8.691950 1.526058 1.555178 10.66018 10.66018 10.66018 8.485880 13.45943 10.66018 10.66018 0.000000 7.705014 11.87018 8.474015 1.492827 1.521823 10.44909 10.44909 10.44909 8.328830 13.19800 10.44909 10.44909 0.000000 7.520986 11.58478 8.283311 1.462033 1.490426 10.25107 10.25107 10.25107 8.181137 12.95425 10.25107 10.25107 0.000000 7.350627 11.31822 8.093527 1.432417 1.453689 10.06482 10.06482 10.06482 8.043345 12.72286 10.06482 10.06482 0.000000 7.192543 11.06859 7.927789 1.406791 1.427777 9.890965 9.890965 9.890965 7.910025 12.50621 9.890965 9.890965 0.000000 7.045527 10.84398 7.766693 1.376857 1.401577 9.726730 9.726730 9.726730 7.786813 12.29945 9.726730 9.726730 0.000000 6.908545 10.62335 7.615328 1.349763 1.379080 9.571253 9.571253 9.571253 7.669932 12.10698 9.571253 9.571253 0.000000 6.775011 10.41531 7.472800 1.327771 1.357029 9.423777 9.423777 9.423777 7.557448 11.92069 9.423777 9.423777 0.000000 6.655354 10.21873 7.338328 1.307119 1.336338 9.283634 9.283634 9.283634 7.451702 11.74689 9.283634 9.283634 0.000000 6.543299 10.03266 7.216956 1.286730 1.309050 9.150230 9.150230 9.150230 7.350858 11.57942 9.150230 9.150230 0.000000 6.438221 9.865418 7.096566 1.268431 1.290542 9.023039 9.023039 9.023039 7.254542 11.41993 9.023039 9.023039 0.000000 6.339571 9.697733 6.982396 1.251172 1.273078 8.901586 8.901586 8.901586 7.162418 11.26880 8.901586 8.901586 0.000000 6.242217 9.547240 6.879576 1.234877 1.256584 8.788730 8.788730 8.788730 7.074067 11.12265 8.788730 8.788730 0.000000 6.154971 9.395152 6.776400 1.212157 1.240986 8.677499 8.677499 8.677499 6.989582 10.98243 8.677499 8.677499 0.000000 6.067405 9.250068 6.678134 1.196471 1.225225 8.570857 8.570857 8.570857 6.909572 10.84972 8.570857 8.570857 0.000000 5.989897 9.166678 6.589938 1.182474 1.212233 8.471702 8.471702 8.471702 6.831459 10.72232 8.471702 8.471702 0.000000 5.912147 9.043700 6.500435 1.168263 1.197972 8.373309 8.373309 8.373309 6.756289 10.59945 8.373309 8.373309 0.000000 5.838494 8.926226 6.420336 1.155642 1.186386 8.280235 8.280235 8.280235 6.683877 10.48155 8.280235 8.280235 0.000000 5.768665 8.802547 6.338442 1.143641 1.167002 8.190643 8.190643 8.190643 6.616620 10.36611 8.190643 8.190643 0.000000 5.702420 8.694935 6.265404 1.131299 1.154506 8.105879 8.105879 8.105879 6.549212 10.25643 8.105879 8.105879 0.000000 5.644225 8.591821 6.190165 1.119506 1.142562 8.021063 8.021063 8.021063 6.484095 10.15056 8.021063 8.021063 0.000000 5.584521 8.484126 6.117959 1.109153 1.132109 7.942240 7.942240 7.942240 6.422397 10.04827 7.942240 7.942240 0.000000 5.527788 8.389227 6.053956 1.099287 1.122144 7.863060 7.863060 7.863060 6.362722 9.950934 7.863060 7.863060 0.000000 5.468549 8.298054 5.987253 1.082090 1.111667 7.789516 7.789516 7.789516 6.303717 9.855216 7.789516 7.789516 0.000000 5.417211 8.201716 5.923078 1.072967 1.101626 7.718388 7.718388 7.718388 6.249010 9.762523 7.718388 7.718388 0.000000 5.368382 8.117393 5.866580 1.063348 1.092974 7.646530 7.646530 7.646530 6.193544 9.672693 7.646530 7.646530 0.000000 1088.980 1337.182 949.9292 152.0660 152.2844 605.8840 605.8840 605.8840 354.3427 632.1431 605.8840 605.8840 0.000000 106.2151 140.8154 99.61795 16.18920 16.23209 74.86160 74.86160 74.86160 49.72468 84.79515 74.86160 74.86160 0.000000 58.29008 79.36844 55.98822 9.167464 9.197856 46.05057 46.05057 46.05057 31.98259 53.68878 46.05057 46.05057 0.000000 40.84257 56.76935 40.01270 6.592379 6.619585 35.03140 35.03140 35.03140 24.98942 41.54725 35.03140 35.03140 0.000000 31.78111 44.90141 31.63780 5.241302 5.267126 29.05046 29.05046 29.05046 21.11176 34.86288 29.05046 29.05046 0.000000 26.21701 37.54942 26.45634 4.405031 4.429782 25.23230 25.23230 25.23230 18.59592 30.54942 25.23230 25.23230 0.000000 22.44249 32.53301 22.92445 3.833533 3.857440 22.55919 22.55919 22.55919 16.80893 27.49555 22.55919 22.55919 0.000000 19.70576 28.86640 20.34482 3.416367 3.440440 20.56294 20.56294 20.56294 15.45900 25.19745 20.56294 20.56294 0.000000 17.63599 26.06392 18.38053 3.097794 3.122070 19.00989 19.00989 19.00989 14.39778 23.39763 19.00989 19.00989 0.000000 16.08665 23.85859 16.83213 2.846722 2.869776 17.75685 17.75685 17.75685 13.53651 21.93615 17.75685 17.75685 0.000000 14.79378 22.06581 15.57691 2.642774 2.666184 16.72513 16.72513 16.72513 12.81756 20.72478 16.72513 16.72513 0.000000 13.72879 20.57832 14.53916 2.473823 2.497621 15.85784 15.85784 15.85784 12.20935 19.69961 15.85784 15.85784 0.000000 12.83547 19.32370 13.65935 2.331675 2.354580 15.11273 15.11273 15.11273 11.68552 18.81607 15.11273 15.11273 0.000000 12.08192 18.25793 12.91055 2.209348 2.246461 14.46625 14.46625 14.46625 11.22681 18.04679 14.46625 14.46625 0.000000 11.42724 17.33055 12.26674 2.114990 2.135437 13.90118 13.90118 13.90118 10.82434 17.36937 13.90118 13.90118 0.000000 10.86341 16.51506 11.70106 2.026226 2.045867 13.39691 13.39691 13.39691 10.46501 16.76616 13.39691 13.39691 0.000000 10.37211 15.80372 11.19953 1.937843 1.966722 12.94900 12.94900 12.94900 10.14166 16.22635 12.94900 12.94900 0.000000 9.928566 15.16207 10.75847 1.867672 1.887750 12.54467 12.54467 12.54467 9.848477 15.73797 12.54467 12.54467 0.000000 9.539092 14.58442 10.36193 1.805914 1.825382 12.17933 12.17933 12.17933 9.584305 15.29542 12.17933 12.17933 0.000000 9.194073 14.07822 10.00323 1.741200 1.769195 11.84548 11.84548 11.84548 9.340262 14.89034 11.84548 11.84548 0.000000 8.875976 13.60671 9.676952 1.689429 1.718324 11.54100 11.54100 11.54100 9.117259 14.51745 11.54100 11.54100 0.000000 8.588490 13.17523 9.385270 1.643316 1.664114 11.26023 11.26023 11.26023 8.909381 14.17310 11.26023 11.26023 0.000000 8.331097 12.78942 9.111300 1.600110 1.620412 11.00022 11.00022 11.00022 8.719290 13.85538 11.00022 11.00022 0.000000 8.095721 12.43378 8.865083 1.560114 1.581327 10.75855 10.75855 10.75855 8.542143 13.55983 10.75855 10.75855 0.000000 7.879724 12.10472 8.637531 1.517333 1.545343 10.53666 10.53666 10.53666 8.375024 13.28379 10.53666 10.53666 0.000000 7.679520 11.78901 8.426525 1.484219 1.513198 10.32567 10.32567 10.32567 8.219724 13.02519 10.32567 10.32567 0.000000 7.491095 11.50469 8.230244 1.452526 1.474033 10.13129 10.13129 10.13129 8.073686 12.78224 10.13129 10.13129 0.000000 7.325717 11.23916 8.047175 1.425039 1.446249 9.944983 9.944983 9.944983 7.935737 12.55341 9.944983 9.944983 0.000000 7.167901 10.99050 7.875944 1.397505 1.418355 9.772778 9.772778 9.772778 7.805625 12.33918 9.772778 9.772778 0.000000 7.021143 10.76677 7.715424 1.365932 1.394328 9.610109 9.610109 9.610109 7.683822 12.13653 9.610109 9.610109 0.000000 6.878814 10.54702 7.564598 1.341598 1.370885 9.456124 9.456124 9.456124 7.568284 11.94444 9.456124 9.456124 0.000000 6.755714 10.33982 7.428390 1.319693 1.348925 9.310075 9.310075 9.310075 7.457094 11.76201 9.310075 9.310075 0.000000 6.631652 10.14404 7.294354 1.299124 1.329354 9.171295 9.171295 9.171295 7.352573 11.58829 9.171295 9.171295 0.000000 6.519812 9.967999 7.167670 1.279776 1.302039 9.039198 9.039198 9.039198 7.251542 11.42312 9.039198 9.039198 0.000000 6.414940 9.792193 7.053412 1.260596 1.282607 8.913259 8.913259 8.913259 7.156364 11.26678 8.913259 8.913259 0.000000 6.311865 9.625196 6.939615 1.243414 1.266215 8.796291 8.796291 8.796291 7.066561 11.11588 8.796291 8.796291 0.000000 6.223954 9.475339 6.831549 1.226121 1.248794 8.681282 8.681282 8.681282 6.979500 10.97129 8.681282 8.681282 0.000000 6.131537 9.323915 6.734340 1.204471 1.233263 8.571164 8.571164 8.571164 6.895793 10.83466 8.571164 8.571164 0.000000 6.044857 9.234401 6.636417 1.188851 1.218565 8.468801 8.468801 8.468801 6.816817 10.70347 8.468801 8.468801 0.000000 5.962884 9.096951 6.543040 1.174916 1.204643 8.367448 8.367448 8.367448 6.739634 10.57560 8.367448 8.367448 0.000000 5.889935 8.974525 6.459351 1.161692 1.191445 8.271634 8.271634 8.271634 6.665361 10.45456 8.271634 8.271634 0.000000 5.821101 8.855247 6.379550 1.148206 1.176717 8.179502 8.179502 8.179502 6.593817 10.33778 8.179502 8.179502 0.000000 5.751435 8.734406 6.297954 1.136262 1.159526 8.090819 8.090819 8.090819 6.527376 10.22380 8.090819 8.090819 0.000000 5.685350 8.627289 6.219800 1.124904 1.148055 8.005374 8.005374 8.005374 6.460779 10.11543 8.005374 8.005374 0.000000 5.622629 8.524653 6.150244 1.113167 1.136166 7.924511 7.924511 7.924511 6.396449 10.01083 7.924511 7.924511 0.000000 5.563064 8.426220 6.078307 1.101943 1.124794 7.843433 7.843433 7.843433 6.336749 9.909774 7.843433 7.843433 0.000000 5.506470 8.331735 6.009211 1.086677 1.114879 7.768116 7.768116 7.768116 6.276555 9.813618 7.768116 7.768116 0.000000 5.452079 8.232270 5.948107 1.074916 1.105427 7.695331 7.695331 7.695331 6.219500 9.719059 7.695331 7.695331 0.000000 5.400889 8.145028 5.889475 1.065840 1.095436 7.621929 7.621929 7.621929 6.164235 9.627491 7.621929 7.621929 0.000000 5.352208 8.061100 5.827904 1.056267 1.086834 7.553814 7.553814 7.553814 6.109447 9.540281 7.553814 7.553814 0.000000 1088.741 1336.518 949.5005 151.9906 152.2139 604.8273 604.8273 604.8273 353.4019 630.6400 604.8273 604.8273 0.000000 106.1223 140.5550 99.44989 16.15975 16.20264 74.45551 74.45551 74.45551 49.36382 84.22515 74.45551 74.45551 0.000000 58.21849 79.16681 55.85854 9.143085 9.175116 45.73817 45.73817 45.73817 31.70478 53.24490 45.73817 45.73817 0.000000 40.78136 56.58241 39.89309 6.572885 6.600076 34.76050 34.76050 34.76050 24.75132 41.16795 34.76050 34.76050 0.000000 31.72636 44.74718 31.53844 5.223815 5.249614 28.80844 28.80844 28.80844 20.89981 34.52404 28.80844 28.80844 0.000000 26.16245 37.40800 26.36512 4.387966 4.413659 25.01391 25.01391 25.01391 18.39910 30.23585 25.01391 25.01391 0.000000 22.39169 32.39123 22.83345 3.817604 3.842353 22.35284 22.35284 22.35284 16.62575 27.20379 22.35284 22.35284 0.000000 19.66150 28.73301 20.25910 3.402139 3.426164 20.36880 20.36880 20.36880 15.28663 24.92299 20.36880 20.36880 0.000000 17.59383 25.94597 18.30414 3.084230 3.108451 18.82569 18.82569 18.82569 14.23396 23.13731 18.82569 18.82569 0.000000 16.04655 23.73772 16.75899 2.833709 2.856704 17.58096 17.58096 17.58096 13.37833 21.68773 17.58096 17.58096 0.000000 14.75199 21.94976 15.50653 2.630226 2.653572 16.55637 16.55637 16.55637 12.66779 20.48655 16.55637 16.55637 0.000000 13.69143 20.47379 14.46684 2.461679 2.485405 15.69526 15.69526 15.69526 12.06509 19.46778 15.69526 15.69526 0.000000 12.79918 19.22251 13.59345 2.319881 2.342712 14.95559 14.95559 14.95559 11.54586 18.59450 14.95559 14.95559 0.000000 12.04661 18.15971 12.84650 2.197866 2.235073 14.31395 14.31395 14.31395 11.09175 17.83216 14.31395 14.31395 0.000000 11.39277 17.23498 12.20432 2.105200 2.124293 13.75319 13.75319 13.75319 10.69319 17.16098 13.75319 13.75319 0.000000 10.82971 16.42188 11.64012 2.015446 2.034981 13.25285 13.25285 13.25285 10.33580 16.56341 13.25285 13.25285 0.000000 10.33910 15.70654 11.13993 1.928430 1.956073 12.80851 12.80851 12.80851 10.01716 16.02874 12.80851 12.80851 0.000000 9.896171 15.06704 10.70008 1.858459 1.878458 12.40745 12.40745 12.40745 9.726912 15.54507 12.40745 12.40745 0.000000 9.507269 14.49717 10.30466 1.795741 1.815096 12.04511 12.04511 12.04511 9.465420 15.10477 12.04511 12.04511 0.000000 9.162766 13.98694 9.946982 1.731166 1.759090 11.71404 11.71404 11.71404 9.223886 14.70349 11.71404 11.71404 0.000000 8.845136 13.52266 9.621663 1.680650 1.709539 11.41214 11.41214 11.41214 9.001625 14.33457 11.41214 11.41214 0.000000 8.562963 13.09266 9.330855 1.633606 1.654287 11.13376 11.13376 11.13376 8.797482 13.99570 11.13376 11.13376 0.000000 8.305935 12.70816 9.057710 1.591618 1.611829 10.87601 10.87601 10.87601 8.609397 13.67929 10.87601 10.87601 0.000000 8.066113 12.35374 8.812251 1.544733 1.572872 10.63630 10.63630 10.63630 8.432633 13.38681 10.63630 10.63630 0.000000 7.855224 12.01549 8.585412 1.509015 1.537009 10.41649 10.41649 10.41649 8.268802 13.11367 10.41649 10.41649 0.000000 7.650580 11.71128 8.375076 1.474999 1.504983 10.20739 10.20739 10.20739 8.115176 12.85780 10.20739 10.20739 0.000000 7.467165 11.42800 8.179436 1.444431 1.466895 10.01475 10.01475 10.01475 7.970723 12.61927 10.01475 10.01475 0.000000 7.297375 11.16344 7.996948 1.416040 1.437121 9.833652 9.833652 9.833652 7.834268 12.39287 9.833652 9.833652 0.000000 7.144492 10.92549 7.826296 1.389614 1.411405 9.659500 9.659500 9.659500 7.705585 12.18093 9.659500 9.659500 0.000000 6.993331 10.69282 7.672218 1.358061 1.386429 9.498331 9.498331 9.498331 7.585130 11.98046 9.498331 9.498331 0.000000 6.855871 10.47392 7.521845 1.333813 1.363076 9.345777 9.345777 9.345777 7.470877 11.78869 9.345777 9.345777 0.000000 6.728361 10.26750 7.380263 1.311991 1.341202 9.201092 9.201092 9.201092 7.360927 11.60810 9.201092 9.201092 0.000000 6.609140 10.07251 7.252441 1.291502 1.315383 9.063618 9.063618 9.063618 7.257580 11.43669 9.063618 9.063618 0.000000 6.497504 9.897159 7.126154 1.271274 1.294402 8.934428 8.934428 8.934428 7.159035 11.27467 8.934428 8.934428 0.000000 6.392829 9.722054 7.006594 1.254086 1.276039 8.811317 8.811317 8.811317 7.063513 11.11856 8.811317 8.811317 0.000000 6.294566 9.555727 6.898840 1.236021 1.257723 8.692190 8.692190 8.692190 6.974944 10.96920 8.692190 8.692190 0.000000 6.197585 9.406477 6.791128 1.212591 1.242363 8.578289 8.578289 8.578289 6.888651 10.82825 8.578289 8.578289 0.000000 6.109962 9.255676 6.688686 1.197142 1.225904 8.472444 8.472444 8.472444 6.807298 10.69119 8.472444 8.472444 0.000000 6.028083 9.167024 6.596644 1.182509 1.212269 8.367876 8.367876 8.367876 6.727926 10.56141 8.367876 8.367876 0.000000 5.946275 9.039210 6.503582 1.167710 1.197413 8.269092 8.269092 8.269092 6.651633 10.43518 8.269092 8.269092 0.000000 5.868847 8.917266 6.420187 1.154545 1.185274 8.174211 8.174211 8.174211 6.578220 10.31539 8.174211 8.174211 0.000000 5.795507 8.789445 6.335238 1.142039 1.165372 8.082979 8.082979 8.082979 6.508776 10.20010 8.082979 8.082979 0.000000 5.730649 8.677993 6.259358 1.129229 1.152400 7.995167 7.995167 7.995167 6.441846 10.08901 7.995167 7.995167 0.000000 5.669398 8.571310 6.181478 1.117925 1.140981 7.912103 7.912103 7.912103 6.376027 9.981893 7.912103 7.912103 0.000000 5.606832 8.460310 6.106812 1.107168 1.130115 7.828978 7.828978 7.828978 6.313694 9.878495 7.828978 7.828978 0.000000 5.547415 8.362320 6.040502 1.095998 1.118792 7.751750 7.751750 7.751750 6.253458 9.778607 7.751750 7.751750 0.000000 5.490396 8.268263 5.976985 1.079330 1.108928 7.675669 7.675669 7.675669 6.193971 9.682031 7.675669 7.675669 0.000000 5.431964 8.177907 5.910783 1.068975 1.099528 7.602114 7.602114 7.602114 6.138816 9.588582 7.602114 7.602114 0.000000 5.380900 8.091053 5.847094 1.059044 1.089585 7.532440 7.532440 7.532440 6.082985 9.498093 7.532440 7.532440 0.000000 5.327577 7.998858 5.791044 1.050417 1.080053 7.465009 7.465009 7.465009 6.030054 9.411917 7.465009 7.465009 0.000000 1088.512 1335.895 949.1008 151.9208 152.1416 603.8148 603.8148 603.8148 352.5005 629.1996 603.8148 603.8148 0.000000 106.0334 140.3055 99.28885 16.12913 16.17443 74.07275 74.07275 74.07275 49.01788 83.67259 74.07275 74.07275 0.000000 58.14989 78.95580 55.72356 9.121302 9.151646 45.43385 45.43385 45.43385 31.43846 52.81941 45.43385 45.43385 0.000000 40.72270 56.41716 39.78671 6.552906 6.580050 34.50465 34.50465 34.50465 24.52069 40.80437 34.50465 34.50465 0.000000 31.67388 44.59938 31.43590 5.207057 5.232831 28.57629 28.57629 28.57629 20.69399 34.19571 28.57629 28.57629 0.000000 26.11429 37.27248 26.27771 4.372548 4.397207 24.80128 24.80128 24.80128 18.21284 29.93841 24.80128 24.80128 0.000000 22.34285 32.25499 22.74603 3.802301 3.826988 22.15482 22.15482 22.15482 16.45006 26.92403 22.15482 22.15482 0.000000 19.61907 28.61404 20.18216 3.386877 3.410810 20.18538 20.18538 20.18538 15.12130 24.66265 20.18538 20.18538 0.000000 17.54676 25.83293 18.23092 3.071227 3.093833 18.64899 18.64899 18.64899 14.07709 22.88769 18.64899 18.64899 0.000000 16.00813 23.62966 16.68414 2.820518 2.844171 17.41223 17.41223 17.41223 13.22859 21.44953 17.41223 17.41223 0.000000 14.71495 21.84593 15.43457 2.618199 2.641482 16.39448 16.39448 16.39448 12.52413 20.25811 16.39448 16.39448 0.000000 13.65562 20.36630 14.39737 2.450037 2.473694 15.53925 15.53925 15.53925 11.92673 19.24784 15.53925 15.53925 0.000000 12.76441 19.12554 13.53028 2.308574 2.331333 14.80484 14.80484 14.80484 11.41232 18.38203 14.80484 14.80484 0.000000 12.01277 18.05208 12.78510 2.186855 2.224158 14.16768 14.16768 14.16768 10.96220 17.62585 14.16768 14.16768 0.000000 11.36521 17.13035 12.14448 2.094608 2.113609 13.61121 13.61121 13.61121 10.56750 16.96115 13.61121 13.61121 0.000000 10.79742 16.33256 11.58170 1.997625 2.024544 13.11465 13.11465 13.11465 10.21317 16.36899 13.11465 13.11465 0.000000 10.30746 15.61318 11.08279 1.918278 1.947101 12.67372 12.67372 12.67372 9.897738 15.83924 12.67372 12.67372 0.000000 9.870255 14.98170 10.64410 1.848514 1.868409 12.27579 12.27579 12.27579 9.610301 15.36008 12.27579 12.27579 0.000000 9.481821 14.41358 10.24976 1.787133 1.806405 11.91820 11.91820 11.91820 9.349484 14.92395 11.91820 11.91820 0.000000 9.132756 13.89924 9.893060 1.722642 1.750560 11.58794 11.58794 11.58794 9.110671 14.52648 11.58794 11.58794 0.000000 8.815574 13.44212 9.568655 1.671189 1.700011 11.28850 11.28850 11.28850 8.892216 14.16113 11.28850 11.28850 0.000000 8.533821 13.01349 9.278665 1.624297 1.644865 11.01243 11.01243 11.01243 8.690139 13.82537 11.01243 11.01243 0.000000 8.277182 12.63025 9.012753 1.583518 1.603641 10.75682 10.75682 10.75682 8.502468 13.51230 10.75682 10.75682 0.000000 8.042509 12.27701 8.761595 1.536683 1.564805 10.52096 10.52096 10.52096 8.329031 13.22274 10.52096 10.52096 0.000000 7.827171 11.93992 8.535439 1.500058 1.529060 10.30119 10.30119 10.30119 8.166900 12.95234 10.30119 10.30119 0.000000 7.627548 11.63675 8.325735 1.467172 1.497146 10.09567 10.09567 10.09567 8.013430 12.69906 10.09567 10.09567 0.000000 7.444404 11.35446 8.130700 1.436707 1.458038 9.902925 9.902925 9.902925 7.871669 12.46115 9.902925 9.902925 0.000000 7.274872 11.09084 7.954813 1.408416 1.429406 9.723418 9.723418 9.723418 7.736923 12.23891 9.723418 9.723418 0.000000 7.117573 10.85374 7.784630 1.378555 1.402742 9.554261 9.554261 9.554261 7.609610 12.02738 9.554261 9.554261 0.000000 6.975957 10.62192 7.625104 1.349580 1.378894 9.392781 9.392781 9.392781 7.490447 11.82902 9.392781 9.392781 0.000000 6.834052 10.40382 7.475224 1.326384 1.355627 9.241580 9.241580 9.241580 7.377426 11.64103 9.241580 9.241580 0.000000 6.706755 10.19817 7.334110 1.304641 1.333837 9.099865 9.099865 9.099865 7.268664 11.46251 9.099865 9.099865 0.000000 6.587739 10.00391 7.206714 1.284229 1.306536 8.963611 8.963611 8.963611 7.166442 11.29258 8.963611 8.963611 0.000000 6.476297 9.829225 7.080855 1.265034 1.287115 8.833932 8.833932 8.833932 7.068862 11.13078 8.833932 8.833932 0.000000 6.371810 9.654778 6.967354 1.246961 1.268821 8.710313 8.710313 8.710313 6.975924 10.97622 8.710313 8.710313 0.000000 6.273729 9.498117 6.854330 1.229924 1.251570 8.592290 8.592290 8.592290 6.886818 10.83047 8.592290 8.592290 0.000000 6.181553 9.340438 6.752561 1.206461 1.235278 8.482658 8.482658 8.482658 6.801571 10.68905 8.482658 8.482658 0.000000 6.089452 9.245135 6.650442 1.190148 1.219877 8.374601 8.374601 8.374601 6.721126 10.55524 8.374601 8.374601 0.000000 6.003102 9.102413 6.553193 1.175573 1.205308 8.272598 8.272598 8.272598 6.642639 10.42530 8.272598 8.272598 0.000000 5.926085 8.975124 6.465930 1.161759 1.191512 8.174741 8.174741 8.174741 6.567199 10.30208 8.174741 8.174741 0.000000 5.853465 8.851346 6.382816 1.147725 1.175333 8.080753 8.080753 8.080753 6.494610 10.18361 8.080753 8.080753 0.000000 5.780275 8.726339 6.298146 1.135273 1.158520 7.990385 7.990385 7.990385 6.427211 10.06959 7.990385 7.990385 0.000000 5.710901 8.615356 6.217135 1.123444 1.146568 7.903407 7.903407 7.903407 6.359781 9.959739 7.903407 7.903407 0.000000 5.645100 8.509128 6.144920 1.111268 1.134233 7.819612 7.819612 7.819612 6.294707 9.853811 7.819612 7.819612 0.000000 5.582657 8.407350 6.070506 1.100562 1.123414 7.740324 7.740324 7.740324 6.233085 9.751571 7.740324 7.740324 0.000000 5.528073 8.309747 6.004423 1.083514 1.113112 7.660817 7.660817 7.660817 6.173539 9.652803 7.660817 7.660817 0.000000 5.466443 8.207389 5.935827 1.073655 1.102323 7.586979 7.586979 7.586979 6.114730 9.557314 7.586979 7.586979 0.000000 5.412860 8.117430 5.875165 1.063344 1.092969 7.515628 7.515628 7.515628 6.060214 9.464920 7.515628 7.515628 0.000000 5.361921 8.030945 5.811700 1.053458 1.084050 7.445145 7.445145 7.445145 6.005022 9.375207 7.445145 7.445145 0.000000 5.313480 7.947753 5.750599 1.043974 1.074564 7.376901 7.376901 7.376901 5.953903 9.288524 7.376901 7.376901 0.000000 1088.292 1335.285 948.7068 151.8538 152.0722 602.8434 602.8434 602.8434 351.6357 627.8180 602.8434 602.8434 0.000000 105.9480 140.0661 99.13436 16.10207 16.14737 73.69900 73.69900 73.69900 48.68586 83.14232 73.69900 73.69900 0.000000 58.08409 78.77042 55.60437 9.098774 9.130743 45.14637 45.14637 45.14637 31.17931 52.41109 45.14637 45.14637 0.000000 40.66644 56.25862 39.68468 6.533691 6.562116 34.25508 34.25508 34.25508 24.30227 40.45547 34.25508 34.25508 0.000000 31.62355 44.44524 31.34456 5.189880 5.215602 28.35688 28.35688 28.35688 20.49581 33.88403 28.35688 28.35688 0.000000 26.06381 37.13151 26.18738 4.357755 4.381388 24.59709 24.59709 24.59709 18.03158 29.64976 24.59709 24.59709 0.000000 22.29974 32.13387 22.66778 3.788470 3.812211 21.96501 21.96501 21.96501 16.28138 26.65847 21.96501 21.96501 0.000000 19.57837 28.49073 20.10833 3.373796 3.397684 20.00651 20.00651 20.00651 14.96257 24.40999 20.00651 20.00651 0.000000 17.50801 25.71593 18.15565 3.057238 3.081310 18.47929 18.47929 18.47929 13.92647 22.64807 18.47929 18.47929 0.000000 15.97126 23.52598 16.61215 2.807834 2.832146 17.25019 17.25019 17.25019 13.08480 21.22064 17.25019 17.25019 0.000000 14.67941 21.74631 15.36536 2.605978 2.629880 16.23901 16.23901 16.23901 12.38619 20.03881 16.23901 16.23901 0.000000 13.62127 20.26292 14.33485 2.438864 2.462453 15.38939 15.38939 15.38939 11.79386 19.03671 15.38939 15.38939 0.000000 12.73104 19.02552 13.46967 2.297722 2.320415 14.66005 14.66005 14.66005 11.28409 18.17805 14.66005 14.66005 0.000000 11.98030 17.96178 12.72618 2.176290 2.215021 14.02734 14.02734 14.02734 10.83765 17.42828 14.02734 14.02734 0.000000 11.33350 17.04247 12.08706 2.084447 2.103357 13.47484 13.47484 13.47484 10.44470 16.76710 13.47484 13.47484 0.000000 10.77177 16.24055 11.52562 1.987860 2.014529 12.98191 12.98191 12.98191 10.09556 16.18235 12.98191 12.98191 0.000000 10.27711 15.52947 11.02796 1.908535 1.937303 12.54425 12.54425 12.54425 9.781395 15.65731 12.54425 12.54425 0.000000 9.840453 14.89980 10.59038 1.838971 1.859947 12.14933 12.14933 12.14933 9.498319 15.18249 12.14933 12.14933 0.000000 9.452543 14.33334 10.19705 1.777773 1.796939 11.79451 11.79451 11.79451 9.239992 14.75011 11.79451 11.79451 0.000000 9.103961 13.82054 9.841306 1.713407 1.741259 11.46876 11.46876 11.46876 9.003476 14.35654 11.46876 11.46876 0.000000 8.792113 13.36479 9.517765 1.662109 1.692016 11.16975 11.16975 11.16975 8.787145 13.99462 11.16975 11.16975 0.000000 8.510715 12.93751 9.228588 1.616435 1.636924 10.89587 10.89587 10.89587 8.587051 13.66012 10.89587 10.89587 0.000000 8.249589 12.55548 8.963412 1.574718 1.594725 10.64220 10.64220 10.64220 8.401237 13.35007 10.64220 10.64220 0.000000 8.020041 12.20337 8.719279 1.527967 1.557104 10.41021 10.41021 10.41021 8.229534 13.06334 10.41021 10.41021 0.000000 7.798988 11.86738 8.487468 1.492478 1.521470 10.19044 10.19044 10.19044 8.069035 12.79560 10.19044 10.19044 0.000000 7.605625 11.56522 8.284526 1.459695 1.483848 9.988412 9.988412 9.988412 7.916841 12.54484 9.988412 9.988412 0.000000 7.418053 11.28388 8.089992 1.429330 1.450579 9.795506 9.795506 9.795506 7.776794 12.31112 9.795506 9.795506 0.000000 7.253456 11.02115 7.908560 1.401136 1.422039 9.617525 9.617525 9.617525 7.643431 12.08930 9.617525 9.617525 0.000000 7.096390 10.78487 7.738906 1.367112 1.396500 9.449818 9.449818 9.449818 7.517432 11.88169 9.449818 9.449818 0.000000 6.950349 10.55386 7.579875 1.342404 1.371699 9.291430 9.291430 9.291430 7.399509 11.68359 9.291430 9.291430 0.000000 6.813289 10.33652 7.436278 1.319287 1.348514 9.141525 9.141525 9.141525 7.287671 11.49919 9.141525 9.141525 0.000000 6.686195 10.13162 7.295557 1.297623 1.327837 8.999372 8.999372 8.999372 7.181403 11.32075 8.999372 8.999372 0.000000 6.567374 9.947306 7.162814 1.277283 1.299506 8.864320 8.864320 8.864320 7.078788 11.15440 8.864320 8.864320 0.000000 6.456120 9.764010 7.043031 1.258160 1.280154 8.735792 8.735792 8.735792 6.982497 10.99244 8.735792 8.735792 0.000000 6.351814 9.590204 6.924226 1.240157 1.261929 8.614897 8.614897 8.614897 6.890325 10.84142 8.614897 8.614897 0.000000 6.253906 9.434123 6.817178 1.216387 1.244741 8.499526 8.499526 8.499526 6.803568 10.69530 8.499526 8.499526 0.000000 6.157268 9.277039 6.710149 1.199719 1.228511 8.387677 8.387677 8.387677 6.719227 10.55711 8.387677 8.387677 0.000000 6.069942 9.182549 6.613905 1.184390 1.214172 8.283764 8.283764 8.283764 6.638356 10.42312 8.283764 8.283764 0.000000 5.988381 9.049440 6.516953 1.168948 1.198665 8.181100 8.181100 8.181100 6.560719 10.29618 8.181100 8.181100 0.000000 5.906881 8.922606 6.424511 1.155189 1.185926 8.084131 8.084131 8.084131 6.486098 10.17427 8.084131 8.084131 0.000000 5.829754 8.790260 6.341686 1.142132 1.165467 7.991000 7.991000 7.991000 6.415558 10.05707 7.991000 7.991000 0.000000 5.761360 8.674615 6.262718 1.128811 1.151974 7.901460 7.901460 7.901460 6.347644 9.942707 7.901460 7.901460 0.000000 5.696805 8.564040 6.181964 1.117033 1.140072 7.815283 7.815283 7.815283 6.280953 9.834056 7.815283 7.815283 0.000000 5.631151 8.449428 6.104625 1.105835 1.128757 7.733779 7.733779 7.733779 6.217827 9.729284 7.733779 7.733779 0.000000 5.568845 8.348069 6.035814 1.094210 1.117015 7.652207 7.652207 7.652207 6.156880 9.628164 7.652207 7.652207 0.000000 5.509686 8.250873 5.969971 1.077191 1.107733 7.576442 7.576442 7.576442 6.096769 9.530483 7.576442 7.576442 0.000000 5.452892 8.157586 5.901593 1.066475 1.096992 7.503290 7.503290 7.503290 6.039823 9.436047 7.503290 7.503290 0.000000 5.399445 8.067991 5.835866 1.057105 1.086707 7.429642 7.429642 7.429642 5.984708 9.345934 7.429642 7.429642 0.000000 5.348642 7.973249 5.777895 1.048163 1.078813 7.361303 7.361303 7.361303 5.931194 9.257461 7.361303 7.361303 0.000000 5.300333 7.888568 5.722254 1.038718 1.069370 7.295169 7.295169 7.295169 5.879449 9.171732 7.295169 7.295169 0.000000 1088.081 1334.711 948.3285 151.7873 152.0081 601.9107 601.9107 601.9107 350.8053 626.4911 601.9107 601.9107 0.000000 105.8661 139.8362 98.98601 16.07608 16.11891 73.33986 73.33986 73.33986 48.36687 82.63922 73.33986 73.33986 0.000000 58.02090 78.59245 55.48990 9.078707 9.110669 44.87014 44.87014 44.87014 30.93376 52.01885 44.87014 44.87014 0.000000 40.61241 56.09200 39.57813 6.516484 6.543567 34.01913 34.01913 34.01913 24.08942 40.11639 34.01913 34.01913 0.000000 31.57038 44.30910 31.25684 5.173344 5.199015 28.14254 28.14254 28.14254 20.30563 33.58113 28.14254 28.14254 0.000000 26.01944 37.00666 26.10040 4.342578 4.367146 24.40398 24.40398 24.40398 17.85736 29.37557 24.40398 24.40398 0.000000 22.25834 32.01754 22.59264 3.775185 3.798890 21.78510 21.78510 21.78510 16.11924 26.40038 21.78510 21.78510 0.000000 19.53928 28.38112 20.03204 3.361232 3.385075 19.83437 19.83437 19.83437 14.80999 24.16719 19.83437 19.83437 0.000000 17.47080 25.60326 18.08317 3.045258 3.069280 18.31616 18.31616 18.31616 13.78170 22.41779 18.31616 18.31616 0.000000 15.93586 23.41837 16.54756 2.796338 2.820594 17.09693 17.09693 17.09693 12.94659 21.00115 17.09693 17.09693 0.000000 14.64529 21.64301 15.30321 2.594216 2.618734 16.08953 16.08953 16.08953 12.25359 19.82806 16.08953 16.08953 0.000000 13.58827 20.17062 14.27480 2.428131 2.451657 15.24537 15.24537 15.24537 11.66615 18.83380 15.24537 15.24537 0.000000 12.70479 18.92922 13.41144 2.287295 2.309921 14.52085 14.52085 14.52085 11.16047 17.98204 14.52085 14.52085 0.000000 11.94911 17.87504 12.66958 2.166137 2.204958 13.89461 13.89461 13.89461 10.71820 17.23841 13.89461 13.89461 0.000000 11.30305 16.95807 12.02806 2.074687 2.093508 13.34373 13.34373 13.34373 10.32869 16.58275 13.34373 13.34373 0.000000 10.74200 16.15198 11.47176 1.978292 2.006157 12.85637 12.85637 12.85637 9.982498 16.00298 12.85637 12.85637 0.000000 10.24795 15.44907 10.97529 1.900344 1.929123 12.41978 12.41978 12.41978 9.671161 15.48038 12.41978 12.41978 0.000000 9.811827 14.82113 10.53877 1.830955 1.850679 12.02975 12.02975 12.02975 9.390667 15.00976 12.02975 12.02975 0.000000 9.424420 14.25625 10.14641 1.766885 1.789010 11.67557 11.67557 11.67557 9.134734 14.58325 11.67557 11.67557 0.000000 9.081276 13.74493 9.791578 1.704534 1.733479 11.35229 11.35229 11.35229 8.900424 14.19123 11.35229 11.35229 0.000000 8.764855 13.29051 9.475503 1.654465 1.681414 11.05745 11.05745 11.05745 8.686134 13.83439 11.05745 11.05745 0.000000 8.483842 12.86451 9.180472 1.608921 1.629333 10.78567 10.78567 10.78567 8.487947 13.50317 10.78567 10.78567 0.000000 8.227890 12.48365 8.916003 1.567327 1.587252 10.53578 10.53578 10.53578 8.303917 13.19601 10.53578 10.53578 0.000000 7.993860 12.13262 8.672538 1.520617 1.548654 10.30195 10.30195 10.30195 8.133879 12.91196 10.30195 10.30195 0.000000 7.777843 11.79769 8.447573 1.485231 1.514218 10.08393 10.08393 10.08393 7.974947 12.64676 10.08393 10.08393 0.000000 7.580030 11.49649 8.239002 1.451537 1.473029 9.883544 9.883544 9.883544 7.825666 12.39839 9.883544 9.883544 0.000000 7.402105 11.21605 8.045032 1.422279 1.443448 9.695700 9.695700 9.695700 7.685578 12.16512 9.695700 9.695700 0.000000 7.228387 10.96399 7.864120 1.394179 1.414996 9.515695 9.515695 9.515695 7.553545 11.94724 9.515695 9.515695 0.000000 7.076213 10.71869 7.694966 1.360171 1.388506 9.349380 9.349380 9.349380 7.428808 11.74166 9.349380 9.349380 0.000000 6.930387 10.48845 7.542262 1.335542 1.364822 9.192317 9.192317 9.192317 7.312078 11.54541 9.192317 9.192317 0.000000 6.793514 10.27185 7.393245 1.312501 1.341717 9.043677 9.043677 9.043677 7.201375 11.36117 9.043677 9.043677 0.000000 6.666615 10.06767 7.252956 1.290910 1.314460 8.902731 8.902731 8.902731 7.096192 11.18626 8.902731 8.902731 0.000000 6.547981 9.883990 7.126319 1.270642 1.292786 8.770472 8.770472 8.770472 6.996052 11.01990 8.770472 8.770472 0.000000 6.436907 9.701340 7.001215 1.251588 1.273500 8.644658 8.644658 8.644658 6.900560 10.86123 8.644658 8.644658 0.000000 6.332778 9.537194 6.888404 1.233653 1.255339 8.523173 8.523173 8.523173 6.809415 10.71183 8.523173 8.523173 0.000000 6.235033 9.372624 6.776073 1.209418 1.238213 8.407200 8.407200 8.407200 6.722257 10.56706 8.407200 8.407200 0.000000 6.143185 9.270913 6.674945 1.193272 1.223040 8.299497 8.299497 8.299497 6.638795 10.42870 8.299497 8.299497 0.000000 6.051370 9.122407 6.573466 1.177075 1.206765 8.193336 8.193336 8.193336 6.558772 10.29771 8.193336 8.193336 0.000000 5.965322 8.989799 6.482306 1.163539 1.193313 8.093140 8.093140 8.093140 6.481949 10.17208 8.093140 8.093140 0.000000 5.893258 8.861115 6.390137 1.148907 1.177801 7.997023 7.997023 7.997023 6.409373 10.04985 7.997023 7.997023 0.000000 5.816272 8.731556 6.307569 1.135903 1.159160 7.906253 7.906253 7.906253 6.339574 9.933882 7.906253 7.906253 0.000000 5.743359 8.616357 6.223451 1.123560 1.146686 7.815971 7.815971 7.815971 6.271135 9.822274 7.815971 7.815971 0.000000 5.674254 8.506213 6.148350 1.110907 1.133865 7.732079 7.732079 7.732079 6.205154 9.714761 7.732079 7.732079 0.000000 5.613410 8.400795 6.071247 1.100684 1.123566 7.648285 7.648285 7.648285 6.143929 9.611090 7.648285 7.648285 0.000000 5.551231 8.299803 6.002656 1.082290 1.111869 7.570447 7.570447 7.570447 6.082415 9.511036 7.570447 7.570447 0.000000 5.492194 8.194290 5.931718 1.072041 1.101661 7.495361 7.495361 7.495361 6.022950 9.414388 7.495361 7.495361 0.000000 5.435505 8.101380 5.868863 1.061367 1.091941 7.419908 7.419908 7.419908 5.967820 9.320710 7.419908 7.419908 0.000000 5.382174 8.012136 5.803347 1.051142 1.081700 7.349877 7.349877 7.349877 5.911965 9.230320 7.349877 7.349877 0.000000 5.331484 7.924553 5.745580 1.042238 1.072871 7.282158 7.282158 7.282158 5.860348 9.144281 7.282158 7.282158 0.000000 5.278500 7.841940 5.684885 1.033735 1.064455 7.216626 7.216626 7.216626 5.807978 9.059471 7.216626 7.216626 0.000000 1087.878 1334.148 947.9648 151.7234 151.9465 600.9990 600.9990 600.9990 350.0071 625.2158 600.9990 600.9990 0.000000 105.7874 139.6152 98.84341 16.05109 16.09392 72.99442 72.99442 72.99442 48.06009 82.14931 72.99442 72.99442 0.000000 57.96016 78.42136 55.36920 9.059418 9.089695 44.60446 44.60446 44.60446 30.69761 51.64165 44.60446 44.60446 0.000000 40.56047 55.94566 39.48395 6.499941 6.527011 33.79219 33.79219 33.79219 23.88762 39.79410 33.79219 33.79219 0.000000 31.52391 44.17822 31.16524 5.158503 5.184152 27.93977 27.93977 27.93977 20.12533 33.29322 27.93977 27.93977 0.000000 25.97680 36.87575 26.02299 4.327955 4.353461 24.21507 24.21507 24.21507 17.68920 29.10873 24.21507 24.21507 0.000000 22.21855 31.89582 22.51457 3.761535 3.786082 21.60927 21.60927 21.60927 15.96325 26.15507 21.60927 21.60927 0.000000 19.49813 28.27575 19.95851 3.349151 3.372953 19.66888 19.66888 19.66888 14.66319 23.93642 19.66888 19.66888 0.000000 17.43502 25.50315 18.01832 3.033739 3.057712 18.15916 18.15916 18.15916 13.64240 22.19628 18.15916 18.15916 0.000000 15.90182 23.31462 16.48546 2.785285 2.809486 16.94685 16.94685 16.94685 12.81361 20.78964 16.94685 16.94685 0.000000 14.61248 21.54346 15.24345 2.583557 2.608015 15.94569 15.94569 15.94569 12.12601 19.62533 15.94569 15.94569 0.000000 13.55655 20.08188 14.21706 2.417164 2.440604 15.10678 15.10678 15.10678 11.54300 18.63861 15.10678 15.10678 0.000000 12.67397 18.84332 13.35136 2.276028 2.299832 14.38689 14.38689 14.38689 11.04172 17.79347 14.38689 14.38689 0.000000 11.91913 17.79163 12.61514 2.156375 2.195282 13.76474 13.76474 13.76474 10.60318 17.05576 13.76474 13.76474 0.000000 11.27377 16.87690 11.97121 2.065302 2.085305 13.21755 13.21755 13.21755 10.21676 16.40541 13.21755 13.21755 0.000000 10.71337 16.07285 11.41997 1.969090 1.996904 12.73353 12.73353 12.73353 9.873703 15.83042 12.73353 12.73353 0.000000 10.22514 15.37175 10.92463 1.891342 1.920070 12.30201 12.30201 12.30201 9.565085 15.31220 12.30201 12.30201 0.000000 9.784302 14.74547 10.48914 1.822137 1.841766 11.91459 11.91459 11.91459 9.286797 14.84536 11.91459 11.91459 0.000000 9.402418 14.18213 10.09773 1.752243 1.780261 11.56111 11.56111 11.56111 9.033444 14.42273 11.56111 11.56111 0.000000 9.054671 13.67222 9.743751 1.697091 1.724884 11.24210 11.24210 11.24210 8.801257 14.03413 11.24210 11.24210 0.000000 8.743546 13.20809 9.428470 1.646074 1.666884 10.94941 10.94941 10.94941 8.588930 13.67851 10.94941 10.94941 0.000000 8.458002 12.79431 9.134177 1.600662 1.620970 10.67951 10.67951 10.67951 8.392575 13.35028 10.67951 10.67951 0.000000 8.207202 12.41456 8.870406 1.553644 1.580104 10.42978 10.42978 10.42978 8.211736 13.04779 10.42978 10.42978 0.000000 7.973454 12.06458 8.627582 1.513582 1.541614 10.19775 10.19775 10.19775 8.043279 12.76633 10.19775 10.19775 0.000000 7.757683 11.73066 8.403218 1.477281 1.506198 9.984975 9.984975 9.984975 7.884124 12.50357 9.984975 9.984975 0.000000 7.560121 11.43039 8.195207 1.444699 1.467165 9.782601 9.782601 9.782601 7.736535 12.25749 9.782601 9.782601 0.000000 7.377745 11.15083 8.001767 1.414526 1.435584 9.596245 9.596245 9.596245 7.597795 12.02640 9.596245 9.596245 0.000000 7.213612 10.89956 7.821374 1.387523 1.408259 9.421101 9.421101 9.421101 7.468427 11.80882 9.421101 9.421101 0.000000 7.052328 10.65504 7.658595 1.353528 1.381849 9.256087 9.256087 9.256087 7.343517 11.60503 9.256087 9.256087 0.000000 6.911365 10.42555 7.500432 1.328975 1.358244 9.100264 9.100264 9.100264 7.227931 11.41272 9.100264 9.100264 0.000000 6.770039 10.20965 7.351850 1.306010 1.335216 8.952806 8.952806 8.952806 7.118322 11.23009 8.952806 8.952806 0.000000 6.647954 10.00615 7.217704 1.284487 1.306797 8.812986 8.812986 8.812986 7.014145 11.05688 8.812986 8.812986 0.000000 6.529499 9.823087 7.085714 1.264288 1.286355 8.680167 8.680167 8.680167 6.914999 10.89207 8.680167 8.680167 0.000000 6.418598 9.641038 6.966637 1.245301 1.267133 8.553778 8.553778 8.553778 6.820503 10.73521 8.553778 8.553778 0.000000 6.314635 9.477451 6.848526 1.226462 1.249035 8.433312 8.433312 8.433312 6.730275 10.58524 8.433312 8.433312 0.000000 6.217051 9.313465 6.742102 1.203192 1.232963 8.321490 8.321490 8.321490 6.643997 10.44387 8.321490 8.321490 0.000000 6.119996 9.212525 6.635721 1.187102 1.215858 8.211535 8.211535 8.211535 6.561381 10.30673 8.211535 8.211535 0.000000 6.033675 9.073622 6.540052 1.171884 1.201635 8.109403 8.109403 8.109403 6.482172 10.17705 8.109403 8.109403 0.000000 5.952411 8.932428 6.443690 1.156551 1.187240 8.008495 8.008495 8.008495 6.407392 10.05268 8.008495 8.008495 0.000000 5.871193 8.804164 6.357247 1.143820 1.167183 7.914737 7.914737 7.914737 6.335554 9.931677 7.914737 7.914737 0.000000 5.798997 8.683949 6.274924 1.129943 1.153125 7.821683 7.821683 7.821683 6.265227 9.816876 7.821683 7.821683 0.000000 5.730892 8.569135 6.191049 1.117648 1.140699 7.735219 7.735219 7.735219 6.197495 9.704858 7.735219 7.735219 0.000000 5.661922 8.450585 6.110807 1.105971 1.128895 7.649033 7.649033 7.649033 6.133419 9.598449 7.649033 7.649033 0.000000 5.596523 8.345568 6.039301 1.093719 1.116698 7.568967 7.568967 7.568967 6.071613 9.495849 7.568967 7.568967 0.000000 5.534461 8.244962 5.970932 1.076461 1.106992 7.491804 7.491804 7.491804 6.010739 9.396581 7.491804 7.491804 0.000000 5.474962 8.148494 5.900198 1.066252 1.095852 7.414412 7.414412 7.414412 5.954292 9.300946 7.414412 7.414412 0.000000 5.418954 8.055912 5.832270 1.056519 1.086175 7.342567 7.342567 7.342567 5.897209 9.208494 7.342567 7.342567 0.000000 5.365738 7.967005 5.772234 1.046333 1.076956 7.273150 7.273150 7.273150 5.843255 9.120527 7.273150 7.273150 0.000000 5.315156 7.871121 5.714652 1.036568 1.067189 7.206027 7.206027 7.206027 5.790999 9.033916 7.206027 7.206027 0.000000 5.267065 7.788849 5.654147 1.028103 1.058567 7.138181 7.138181 7.138181 5.740355 8.951457 7.138181 7.138181 0.000000 1087.683 1333.607 947.6259 151.6618 151.8849 600.1212 600.1212 600.1212 349.2391 623.9886 600.1212 600.1212 0.000000 105.7290 139.4026 98.70620 16.02705 16.06989 72.66833 72.66833 72.66833 47.76947 81.68403 72.66833 72.66833 0.000000 57.90172 78.25675 55.26334 9.039224 9.071129 44.34867 44.34867 44.34867 30.47028 51.27859 44.34867 44.34867 0.000000 40.50490 55.80486 39.38480 6.482736 6.509759 33.56977 33.56977 33.56977 23.69039 39.48389 33.56977 33.56977 0.000000 31.47440 44.04000 31.08410 5.144222 5.169850 27.74108 27.74108 27.74108 19.94910 33.01611 27.74108 27.74108 0.000000 25.93576 36.76028 25.94850 4.314813 4.339303 24.03289 24.03289 24.03289 17.53022 28.85496 24.03289 24.03289 0.000000 22.18024 31.78823 22.43925 3.748368 3.772854 21.43991 21.43991 21.43991 15.81529 25.91601 21.43991 21.43991 0.000000 19.45841 28.16525 19.89293 3.336720 3.360458 19.50947 19.50947 19.50947 14.52368 23.71152 19.50947 19.50947 0.000000 17.40059 25.40682 17.95589 3.022652 3.046579 18.01054 18.01054 18.01054 13.50824 21.98299 18.01054 18.01054 0.000000 15.86907 23.22252 16.42570 2.774646 2.798064 16.80243 16.80243 16.80243 12.68751 20.58863 16.80243 16.80243 0.000000 14.58091 21.45495 15.18594 2.573298 2.597003 15.80951 15.80951 15.80951 12.00314 19.43013 15.80951 15.80951 0.000000 13.52603 19.99648 14.16148 2.406587 2.429946 14.97326 14.97326 14.97326 11.42481 18.45303 14.97326 14.97326 0.000000 12.64432 18.76065 13.29340 2.266381 2.301699 14.25784 14.25784 14.25784 10.92735 17.61142 14.25784 14.25784 0.000000 11.89589 17.71136 12.56276 2.146978 2.185970 13.63962 13.63962 13.63962 10.49207 16.87989 13.63962 13.63962 0.000000 11.24559 16.79879 11.92018 2.056270 2.076187 13.09600 13.09600 13.09600 10.10911 16.23466 13.09600 13.09600 0.000000 10.68582 15.99668 11.36273 1.960234 1.987997 12.61725 12.61725 12.61725 9.768913 15.66427 12.61725 12.61725 0.000000 10.19576 15.29733 10.87588 1.882677 1.911015 12.18860 12.18860 12.18860 9.464538 15.15026 12.18860 12.18860 0.000000 9.757812 14.67266 10.44136 1.813650 1.833186 11.80184 11.80184 11.80184 9.187028 14.68725 11.80184 11.80184 0.000000 9.376387 14.11077 10.05085 1.744982 1.773002 11.45083 11.45083 11.45083 8.935882 14.26816 11.45083 11.45083 0.000000 9.034035 13.60224 9.697717 1.688874 1.717763 11.13408 11.13408 11.13408 8.705737 13.88264 11.13408 11.13408 0.000000 8.718311 13.13937 9.383181 1.639073 1.659818 10.84350 10.84350 10.84350 8.495300 13.53029 10.84350 10.84350 0.000000 8.437976 12.72674 9.089623 1.593781 1.614018 10.57555 10.57555 10.57555 8.300709 13.20490 10.57555 10.57555 0.000000 8.182655 12.34803 8.826509 1.544037 1.572168 10.32765 10.32765 10.32765 8.121511 12.90507 10.32765 10.32765 0.000000 7.953987 11.98873 8.584301 1.505823 1.534875 10.09914 10.09914 10.09914 7.954596 12.62610 10.09914 10.09914 0.000000 7.733717 11.66614 8.360517 1.470641 1.499560 9.886181 9.886181 9.886181 7.796894 12.36567 9.886181 9.886181 0.000000 7.536423 11.36675 8.153056 1.438151 1.459502 9.688834 9.688834 9.688834 7.650675 12.12181 9.688834 9.688834 0.000000 7.354297 11.08803 7.960124 1.408067 1.430092 9.500420 9.500420 9.500420 7.513232 11.89282 9.500420 9.500420 0.000000 7.190392 10.83752 7.786162 1.375641 1.401807 9.326632 9.326632 9.326632 7.385085 11.67722 9.326632 9.326632 0.000000 7.038641 10.59376 7.617882 1.347165 1.375476 9.162909 9.162909 9.162909 7.262716 11.47547 9.162909 9.162909 0.000000 6.887629 10.36498 7.460158 1.322685 1.351947 9.008313 9.008313 9.008313 7.146872 11.28461 9.008313 9.008313 0.000000 6.756690 10.14978 7.317760 1.298828 1.328993 8.862024 8.862024 8.862024 7.038260 11.10218 8.862024 8.862024 0.000000 6.625535 9.956170 7.178226 1.278336 1.300576 8.723324 8.723324 8.723324 6.935270 10.93215 8.723324 8.723324 0.000000 6.511874 9.764448 7.052299 1.258203 1.280197 8.591573 8.591573 8.591573 6.836955 10.76745 8.591573 8.591573 0.000000 6.396519 9.582993 6.927873 1.239281 1.261036 8.469415 8.469415 8.469415 6.743379 10.61340 8.469415 8.469415 0.000000 6.297336 9.419942 6.815709 1.214202 1.243993 8.349902 8.349902 8.349902 6.654033 10.46525 8.349902 8.349902 0.000000 6.195278 9.256503 6.704000 1.197227 1.225988 8.235823 8.235823 8.235823 6.568602 10.32334 8.235823 8.235823 0.000000 6.102983 9.156309 6.603462 1.181191 1.210932 8.129901 8.129901 8.129901 6.486802 10.18927 8.129901 8.129901 0.000000 6.016812 9.017888 6.502570 1.166026 1.195768 8.025493 8.025493 8.025493 6.409633 10.06085 8.025493 8.025493 0.000000 5.931039 8.886173 6.411951 1.151669 1.181428 7.928505 7.928505 7.928505 6.335589 9.936120 7.928505 7.928505 0.000000 5.859257 8.749329 6.320327 1.137140 1.160387 7.832458 7.832458 7.832458 6.263223 9.817868 7.832458 7.832458 0.000000 5.782535 8.629540 6.238258 1.125162 1.148316 7.743221 7.743221 7.743221 6.193600 9.702652 7.743221 7.743221 0.000000 5.709878 8.515141 6.160028 1.111990 1.134967 7.654458 7.654458 7.654458 6.127769 9.593277 7.654458 7.654458 0.000000 5.641022 8.405767 6.080010 1.100358 1.123206 7.571997 7.571997 7.571997 6.064332 9.487921 7.571997 7.571997 0.000000 5.580430 8.301094 6.008707 1.082443 1.112024 7.492601 7.492601 7.492601 6.001940 9.386091 7.492601 7.492601 0.000000 5.523207 8.192154 5.935236 1.071774 1.101389 7.413127 7.413127 7.413127 5.942747 9.288069 7.413127 7.413127 0.000000 5.463819 8.104696 5.870015 1.060706 1.091271 7.339338 7.339338 7.339338 5.885675 9.193390 7.339338 7.339338 0.000000 5.407937 8.003813 5.802284 1.050112 1.080657 7.268102 7.268102 7.268102 5.830487 9.101866 7.268102 7.268102 0.000000 5.354846 7.913425 5.742440 1.041767 1.072461 7.199275 7.199275 7.199275 5.777080 9.013321 7.199275 7.199275 0.000000 5.304385 7.828191 5.679798 1.032039 1.062734 7.129834 7.129834 7.129834 5.724183 8.929049 7.129834 7.129834 0.000000 5.251615 7.746195 5.624722 1.022709 1.047364 7.065452 7.065452 7.065452 5.675226 8.845980 7.065452 7.065452 0.000000 1087.495 1333.085 947.2889 151.6073 151.8256 599.2904 599.2904 599.2904 348.4994 622.8068 599.2904 599.2904 0.000000 105.6561 139.1979 98.57406 16.00270 16.04674 72.34781 72.34781 72.34781 47.48490 81.22968 72.34781 72.34781 0.000000 57.84543 78.09822 55.16139 9.021349 9.051578 44.10218 44.10218 44.10218 30.25125 50.93339 44.10218 44.10218 0.000000 40.45678 55.66926 39.29753 6.466122 6.494414 33.35924 33.35924 33.35924 23.50323 39.18503 33.35924 33.35924 0.000000 31.43134 43.91873 30.99871 5.129376 5.154955 27.55297 27.55297 27.55297 19.78187 32.74913 27.55297 27.55297 0.000000 25.89624 36.64907 25.87034 4.302155 4.325628 23.86075 23.86075 23.86075 17.37462 28.60733 23.86075 23.86075 0.000000 22.14336 31.67476 22.37232 3.736531 3.760088 21.27662 21.27662 21.27662 15.67046 25.68854 21.27662 21.27662 0.000000 19.42360 28.05854 19.82976 3.324717 3.348397 19.35562 19.35562 19.35562 14.38736 23.49477 19.35562 19.35562 0.000000 17.36744 25.30558 17.89081 3.011973 3.035854 17.86473 17.86473 17.86473 13.38096 21.78007 17.86473 17.86473 0.000000 15.83753 23.13382 16.36344 2.764397 2.787038 16.66568 16.66568 16.66568 12.56404 20.39246 16.66568 16.66568 0.000000 14.55050 21.36971 15.12609 2.563415 2.586373 15.67590 15.67590 15.67590 11.88469 19.24200 15.67590 15.67590 0.000000 13.49662 19.90703 14.10370 2.397018 2.420320 14.84453 14.84453 14.84453 11.31088 18.27188 14.84453 14.84453 0.000000 12.61576 18.68102 13.24151 2.257086 2.292472 14.13325 14.13325 14.13325 10.81695 17.43644 14.13325 14.13325 0.000000 11.86809 17.62740 12.50445 2.137921 2.178329 13.51899 13.51899 13.51899 10.38537 16.71039 13.51899 13.51899 0.000000 11.21845 16.71713 11.87100 2.048808 2.067403 12.97879 12.97879 12.97879 10.00700 16.07008 12.97879 12.97879 0.000000 10.65929 15.92331 11.31472 1.951702 1.980660 12.50313 12.50313 12.50313 9.667891 15.50413 12.50313 12.50313 0.000000 10.16975 15.22564 10.82890 1.874330 1.895367 12.07729 12.07729 12.07729 9.366026 14.99419 12.07729 12.07729 0.000000 9.737401 14.59664 10.39533 1.806620 1.826094 11.69313 11.69313 11.69313 9.090843 14.53486 11.69313 11.69313 0.000000 9.351310 14.04203 10.00569 1.736924 1.764886 11.34642 11.34642 11.34642 8.843370 14.11918 11.34642 11.34642 0.000000 9.009362 13.53479 9.653363 1.680959 1.709790 11.02992 11.02992 11.02992 8.615168 13.73685 11.02992 11.02992 0.000000 8.694003 13.07316 9.339561 1.631288 1.651938 10.74137 10.74137 10.74137 8.405030 13.38743 10.74137 10.74137 0.000000 8.418855 12.66163 9.046694 1.586120 1.607357 10.47529 10.47529 10.47529 8.213613 13.06479 10.47529 10.47529 0.000000 8.159007 12.28396 8.784213 1.537483 1.565611 10.23098 10.23098 10.23098 8.034522 12.76750 10.23098 10.23098 0.000000 7.930627 11.92565 8.542598 1.498347 1.527332 10.00409 10.00409 10.00409 7.868814 12.49093 10.00409 10.00409 0.000000 7.710629 11.60397 8.319361 1.464277 1.493203 9.790909 9.790909 9.790909 7.712790 12.23277 9.790909 9.790909 0.000000 7.518289 11.30544 8.112420 1.431876 1.453160 9.595020 9.595020 9.595020 7.569293 11.99104 9.595020 9.595020 0.000000 7.336380 11.02752 7.926006 1.401878 1.422791 9.411434 9.411434 9.411434 7.431699 11.76406 9.411434 9.411434 0.000000 7.168021 10.77775 7.746484 1.366247 1.395625 9.237222 9.237222 9.237222 7.304727 11.55029 9.237222 9.237222 0.000000 7.016474 10.53471 7.578649 1.341066 1.369369 9.074722 9.074722 9.074722 7.184839 11.35034 9.074722 9.074722 0.000000 6.870291 10.30662 7.427154 1.315693 1.344882 8.921291 8.921291 8.921291 7.069939 11.16131 8.921291 8.921291 0.000000 6.734902 10.09208 7.279331 1.293829 1.321646 8.776114 8.776114 8.776114 6.961242 10.98038 8.776114 8.776114 0.000000 6.608548 9.899063 7.145886 1.271483 1.294613 8.640097 8.640097 8.640097 6.858935 10.81209 8.640097 8.640097 0.000000 6.490433 9.707941 7.014589 1.252372 1.274296 8.509345 8.509345 8.509345 6.761702 10.64861 8.509345 8.509345 0.000000 6.384480 9.536100 6.896145 1.233513 1.255195 8.384935 8.384935 8.384935 6.669013 10.49637 8.384935 8.384935 0.000000 6.276206 9.364520 6.778670 1.208430 1.237212 8.267949 8.267949 8.267949 6.580517 10.34931 8.267949 8.267949 0.000000 6.183552 9.256468 6.672836 1.191509 1.221255 8.156331 8.156331 8.156331 6.495903 10.20886 8.156331 8.156331 0.000000 6.086759 9.102136 6.567041 1.175525 1.205258 8.048129 8.048129 8.048129 6.416144 10.07606 8.048129 8.048129 0.000000 6.000721 8.964178 6.471912 1.160412 1.190148 7.947646 7.947646 7.947646 6.339713 9.948847 7.947646 7.947646 0.000000 5.919728 8.830554 6.381535 1.146103 1.169472 7.848363 7.848363 7.848363 6.265140 9.825292 7.848363 7.848363 0.000000 5.838774 8.705360 6.290148 1.132545 1.155773 7.756135 7.756135 7.756135 6.193475 9.706622 7.756135 7.756135 0.000000 5.766834 8.585938 6.202919 1.118766 1.141808 7.664595 7.664595 7.664595 6.125751 9.594047 7.664595 7.664595 0.000000 5.698981 8.463104 6.124923 1.107493 1.130444 7.579556 7.579556 7.579556 6.060557 9.485721 7.579556 7.579556 0.000000 5.630256 8.354115 6.050496 1.094754 1.117755 7.497761 7.497761 7.497761 5.996532 9.381131 7.497761 7.497761 0.000000 5.565087 8.249812 5.979398 1.077051 1.107590 7.416051 7.416051 7.416051 5.935817 9.280540 7.416051 7.416051 0.000000 5.503253 8.149899 5.906118 1.066419 1.096022 7.340176 7.340176 7.340176 5.877327 9.183469 7.340176 7.340176 0.000000 5.443954 8.054101 5.835810 1.056291 1.085944 7.266991 7.266991 7.266991 5.819630 9.089712 7.266991 7.266991 0.000000 5.388162 7.962187 5.773550 1.045736 1.076350 7.196341 7.196341 7.196341 5.766170 8.999081 7.196341 7.196341 0.000000 5.335158 7.872028 5.713881 1.035624 1.067215 7.125193 7.125193 7.125193 5.712117 8.911403 7.125193 7.125193 0.000000 5.284782 7.778581 5.651419 1.026834 1.054500 7.059209 7.059209 7.059209 5.662076 8.827963 7.059209 7.059209 0.000000 5.236894 7.696888 5.591291 1.018446 1.043092 6.995362 6.995362 6.995362 5.611285 8.745711 6.995362 6.995362 0.000000 1087.314 1332.582 946.9750 151.5502 151.7709 598.4897 598.4897 598.4897 347.7865 621.6677 598.4897 598.4897 0.000000 105.5857 139.0005 98.44669 15.97920 16.02442 72.03866 72.03866 72.03866 47.21048 80.79779 72.03866 72.03866 0.000000 57.79118 77.92773 55.06312 9.002497 9.034344 43.86412 43.86412 43.86412 30.03655 50.59609 43.86412 43.86412 0.000000 40.41039 55.52427 39.21341 6.451347 6.479625 33.15619 33.15619 33.15619 23.32274 38.89685 33.15619 33.15619 0.000000 31.38984 43.78961 30.92340 5.115026 5.140562 27.37156 27.37156 27.37156 19.61798 32.49170 27.37156 27.37156 0.000000 25.85815 36.53104 25.80119 4.288993 4.313402 23.69131 23.69131 23.69131 17.22449 28.37159 23.69131 23.69131 0.000000 22.10781 31.57489 22.30780 3.725120 3.748644 21.12196 21.12196 21.12196 15.53073 25.46566 21.12196 21.12196 0.000000 19.39003 27.96442 19.76887 3.313922 3.337564 19.21006 19.21006 19.21006 14.25557 23.28845 19.21006 19.21006 0.000000 17.33546 25.21615 17.82790 3.000927 3.023972 17.72383 17.72383 17.72383 13.25618 21.58178 17.72383 17.72383 0.000000 15.80712 23.04036 16.30328 2.754516 2.777110 16.53130 16.53130 16.53130 12.44491 20.20323 16.53130 16.53130 0.000000 14.52119 21.28753 15.06825 2.553886 2.576793 15.54929 15.54929 15.54929 11.77228 19.06294 15.54929 15.54929 0.000000 13.46972 19.82057 14.04786 2.387792 2.411038 14.72031 14.72031 14.72031 11.20060 18.09715 14.72031 14.72031 0.000000 12.58822 18.60424 13.19148 2.248123 2.284933 14.01538 14.01538 14.01538 10.71075 17.26766 14.01538 14.01538 0.000000 11.84129 17.54626 12.45581 2.129189 2.166652 13.40257 13.40257 13.40257 10.28220 16.54689 13.40257 13.40257 0.000000 11.19228 16.63822 11.82360 2.040418 2.058933 12.86778 12.86778 12.86778 9.906846 15.91133 12.86778 12.86778 0.000000 10.63902 15.85257 11.26843 1.943475 1.972385 12.39299 12.39299 12.39299 9.572049 15.34966 12.39299 12.39299 0.000000 10.14467 15.14452 10.78360 1.866281 1.886342 11.96974 11.96974 11.96974 9.270695 14.84341 11.96974 11.96974 0.000000 9.712792 14.52318 10.35094 1.798735 1.818121 11.58820 11.58820 11.58820 8.998033 14.38787 11.58820 11.58820 0.000000 9.332159 13.97006 9.962144 1.729154 1.757061 11.24569 11.24569 11.24569 8.752599 13.97547 11.24569 11.24569 0.000000 8.985575 13.46979 9.610592 1.674409 1.703253 10.93128 10.93128 10.93128 8.526296 13.59621 10.93128 10.93128 0.000000 8.675453 13.00932 9.297488 1.624855 1.645446 10.64452 10.64452 10.64452 8.319411 13.24962 10.64452 10.64452 0.000000 8.395741 12.59885 9.011720 1.579799 1.599871 10.38036 10.38036 10.38036 8.128136 12.92962 10.38036 10.38036 0.000000 8.141002 12.22217 8.743424 1.530170 1.559325 10.13771 10.13771 10.13771 7.952024 12.63480 10.13771 10.13771 0.000000 7.908104 11.86482 8.502379 1.492155 1.521143 9.910624 9.910624 9.910624 7.786296 12.36054 9.910624 9.910624 0.000000 7.693085 11.54401 8.285825 1.457160 1.483035 9.702446 9.702446 9.702446 7.633039 12.10456 9.702446 9.702446 0.000000 7.496267 11.24631 8.079305 1.424850 1.447077 9.504472 9.504472 9.504472 7.489397 11.86489 9.504472 9.504472 0.000000 7.319266 10.97898 7.887274 1.395946 1.416787 9.322216 9.322216 9.322216 7.354393 11.63985 9.322216 9.322216 0.000000 7.151103 10.72010 7.708216 1.360326 1.388661 9.150959 9.150959 9.150959 7.227180 11.42808 9.150959 9.150959 0.000000 6.995100 10.47776 7.546661 1.334249 1.363515 8.989639 8.989639 8.989639 7.108369 11.22972 8.989639 8.989639 0.000000 6.853732 10.25033 7.389702 1.309910 1.340131 8.837331 8.837331 8.837331 6.995924 11.04235 8.837331 8.837331 0.000000 6.713893 10.03643 7.248010 1.287151 1.309475 8.693224 8.693224 8.693224 6.887971 10.86299 8.693224 8.693224 0.000000 6.592327 9.843986 7.109172 1.266787 1.288894 8.556605 8.556605 8.556605 6.786723 10.69457 8.556605 8.556605 0.000000 6.474372 9.653423 6.978227 1.246780 1.268636 8.426847 8.426847 8.426847 6.690370 10.53434 8.426847 8.426847 0.000000 6.363950 9.482102 6.860108 1.224758 1.249593 8.306558 8.306558 8.306558 6.598524 10.38325 8.306558 8.306558 0.000000 6.265074 9.311065 6.748520 1.202893 1.232660 8.188875 8.188875 8.188875 6.510838 10.23760 8.188875 8.188875 0.000000 6.163305 9.203723 6.637407 1.186023 1.215763 8.076553 8.076553 8.076553 6.428259 10.09842 8.076553 8.076553 0.000000 6.071267 9.058947 6.537398 1.170091 1.199820 7.972282 7.972282 7.972282 6.347980 9.966829 7.972282 7.972282 0.000000 5.985363 8.921380 6.437047 1.155026 1.185760 7.869501 7.869501 7.869501 6.271019 9.839231 7.869501 7.869501 0.000000 5.899855 8.779140 6.346926 1.140765 1.164075 7.774042 7.774042 7.774042 6.197147 9.718370 7.774042 7.774042 0.000000 5.828332 8.654359 6.261205 1.127255 1.150418 7.681015 7.681015 7.681015 6.127380 9.600796 7.681015 7.681015 0.000000 5.751854 8.535333 6.174196 1.114447 1.137467 7.591691 7.591691 7.591691 6.060293 9.489268 7.591691 7.591691 0.000000 5.679436 8.421668 6.096407 1.102293 1.125176 7.507316 7.507316 7.507316 5.994509 9.381706 7.507316 7.507316 0.000000 5.610816 8.313005 6.016840 1.083898 1.113500 7.423203 7.423203 7.423203 5.932158 9.278353 7.423203 7.423203 0.000000 5.550452 8.200346 5.945965 1.072775 1.101430 7.345090 7.345090 7.345090 5.872144 9.178709 7.345090 7.345090 0.000000 5.488159 8.100778 5.878192 1.061283 1.091855 7.269816 7.269816 7.269816 5.813027 9.082554 7.269816 7.269816 0.000000 5.434261 8.005313 5.808072 1.050292 1.080839 7.197213 7.197213 7.197213 5.758239 8.989685 7.197213 7.197213 0.000000 5.378592 7.911904 5.745994 1.041575 1.072266 7.124238 7.124238 7.124238 5.702946 8.899916 7.124238 7.124238 0.000000 5.325706 7.823840 5.681256 1.031499 1.062187 7.056542 7.056542 7.056542 5.651742 8.813073 7.056542 7.056542 0.000000 5.275448 7.739192 5.624213 1.021843 1.046481 6.991090 6.991090 6.991090 5.599865 8.728999 6.991090 6.991090 0.000000 5.227677 7.657764 5.564248 1.013490 1.037119 6.927759 6.927759 6.927759 5.551869 8.648973 6.927759 6.927759 0.000000 1087.139 1332.109 946.6616 151.4951 151.7182 597.7172 597.7172 597.7172 347.0988 620.5688 597.7172 597.7172 0.000000 105.5179 138.8101 98.32382 15.95767 16.00044 71.74668 71.74668 71.74668 46.94561 80.37495 71.74668 71.74668 0.000000 57.73885 77.78033 54.95770 8.985877 9.017717 43.63487 43.63487 43.63487 29.83270 50.27058 43.63487 43.63487 0.000000 40.36006 55.39819 39.12377 6.437093 6.464045 32.96020 32.96020 32.96020 23.14561 38.61874 32.96020 32.96020 0.000000 31.34980 43.67685 30.85075 5.102237 5.127753 27.19275 27.19275 27.19275 19.46233 32.23987 27.19275 27.19275 0.000000 25.81713 36.42764 25.72809 4.276264 4.301606 23.53092 23.53092 23.53092 17.08193 28.14410 23.53092 23.53092 0.000000 22.06964 31.47853 22.24554 3.713239 3.737602 20.97266 20.97266 20.97266 15.39805 25.25400 20.97266 20.97266 0.000000 19.35765 27.87359 19.70480 3.303507 3.327113 19.06955 19.06955 19.06955 14.13070 23.08660 19.06955 19.06955 0.000000 17.30462 25.12145 17.77200 2.990248 3.013998 17.58791 17.58791 17.58791 13.13569 21.39295 17.58791 17.58791 0.000000 15.77779 22.95787 16.24975 2.743572 2.767530 16.40152 16.40152 16.40152 12.32988 20.02304 16.40152 16.40152 0.000000 14.49291 21.20073 15.01674 2.544690 2.567548 15.42469 15.42469 15.42469 11.66191 18.88774 15.42469 15.42469 0.000000 13.44234 19.74408 13.99808 2.378889 2.402080 14.60260 14.60260 14.60260 11.09431 17.92846 14.60260 14.60260 0.000000 12.56165 18.52331 13.14320 2.239474 2.276349 13.90158 13.90158 13.90158 10.60801 17.10471 13.90158 13.90158 0.000000 11.81544 17.47436 12.40887 2.131542 2.152133 13.29228 13.29228 13.29228 10.18264 16.38905 13.29228 13.29228 0.000000 11.16704 16.56824 11.77784 2.032322 2.052020 12.76060 12.76060 12.76060 9.810129 15.76020 12.76060 12.76060 0.000000 10.61433 15.78431 11.22375 1.936713 1.964400 12.28661 12.28661 12.28661 9.477906 15.20053 12.28661 12.28661 0.000000 10.12047 15.07782 10.73989 1.859672 1.879681 11.86600 11.86600 11.86600 9.178911 14.69804 11.86600 11.86600 0.000000 9.689049 14.45792 10.30811 1.791126 1.811597 11.48880 11.48880 11.48880 8.908405 14.24595 11.48880 11.48880 0.000000 9.308825 13.90044 9.920118 1.722750 1.750667 11.14654 11.14654 11.14654 8.664939 13.83652 11.14654 11.14654 0.000000 8.967577 13.40703 9.569314 1.667041 1.695832 10.83604 10.83604 10.83604 8.441970 13.46042 10.83604 10.83604 0.000000 8.652831 12.94771 9.256882 1.617609 1.638110 10.55112 10.55112 10.55112 8.236756 13.11657 10.55112 10.55112 0.000000 8.373437 12.53826 8.971746 1.572667 1.592647 10.28869 10.28869 10.28869 8.047041 12.79912 10.28869 10.28869 0.000000 8.123789 12.16253 8.710360 1.524137 1.552203 10.04587 10.04587 10.04587 7.870668 12.50668 10.04587 10.04587 0.000000 7.891129 11.80612 8.469769 1.486211 1.515205 9.822097 9.822097 9.822097 7.706601 12.23465 9.822097 9.822097 0.000000 7.676314 11.48615 8.247506 1.451303 1.472812 9.613598 9.613598 9.613598 7.554646 11.98077 9.613598 9.613598 0.000000 7.479712 11.18924 8.041477 1.419076 1.440198 9.420430 9.420430 9.420430 7.412234 11.74308 9.420430 9.420430 0.000000 7.298232 10.92263 7.849902 1.390251 1.411028 9.237724 9.237724 9.237724 7.279758 11.51986 9.237724 9.237724 0.000000 7.134935 10.66446 7.677182 1.354641 1.382973 9.065992 9.065992 9.065992 7.152284 11.30977 9.065992 9.065992 0.000000 6.983768 10.42279 7.510118 1.328632 1.357897 8.905829 8.905829 8.905829 7.034461 11.11327 8.905829 8.905829 0.000000 6.833274 10.19600 7.353551 1.304359 1.333549 8.754622 8.754622 8.754622 6.923015 10.92738 8.754622 8.754622 0.000000 6.702858 9.991982 7.212214 1.281663 1.303928 8.613184 8.613184 8.613184 6.817363 10.74988 8.613184 8.613184 0.000000 6.572209 9.790822 7.079424 1.260403 1.282408 8.479157 8.479157 8.479157 6.717003 10.58266 8.479157 8.479157 0.000000 6.459027 9.600813 6.948770 1.241414 1.263205 8.350327 8.350327 8.350327 6.621500 10.42381 8.350327 8.350327 0.000000 6.348753 9.429993 6.825304 1.215407 1.244217 8.227757 8.227757 8.227757 6.530468 10.27410 8.227757 8.227757 0.000000 6.245393 9.259464 6.714008 1.197577 1.226342 8.114079 8.114079 8.114079 6.443562 10.12973 8.114079 8.114079 0.000000 6.153024 9.152811 6.608720 1.180757 1.210493 8.002575 8.002575 8.002575 6.360473 9.991789 8.002575 8.002575 0.000000 6.056473 9.008483 6.503465 1.164874 1.195600 7.897538 7.897538 7.897538 6.280924 9.861366 7.897538 7.897538 0.000000 5.966060 8.871346 6.408834 1.149856 1.178654 7.797050 7.797050 7.797050 6.204666 9.734906 7.797050 7.797050 0.000000 5.889966 8.729511 6.313514 1.135641 1.158892 7.702304 7.702304 7.702304 6.132694 9.615131 7.702304 7.702304 0.000000 5.809250 8.605127 6.228030 1.122177 1.145279 7.608471 7.608471 7.608471 6.063563 9.498615 7.608471 7.608471 0.000000 5.732883 8.486484 6.146641 1.109414 1.132372 7.521320 7.521320 7.521320 5.995885 9.387850 7.521320 7.521320 0.000000 5.669937 8.373187 6.069049 1.097303 1.120121 7.436104 7.436104 7.436104 5.931773 9.281523 7.436104 7.436104 0.000000 5.601438 8.264881 5.989679 1.078895 1.108485 7.354107 7.354107 7.354107 5.870122 9.179112 7.354107 7.354107 0.000000 5.536485 8.161239 5.913678 1.066909 1.097431 7.276593 7.276593 7.276593 5.809479 9.080382 7.276593 7.276593 0.000000 5.474286 8.061979 5.846109 1.057253 1.086920 7.201899 7.201899 7.201899 5.753267 8.985112 7.201899 7.201899 0.000000 5.415750 7.966805 5.781453 1.046299 1.076921 7.126967 7.126967 7.126967 5.696646 8.893101 7.126967 7.126967 0.000000 5.360166 7.873610 5.719543 1.035814 1.067407 7.057442 7.057442 7.057442 5.644198 8.804162 7.057442 7.057442 0.000000 5.307361 7.777319 5.654974 1.026675 1.056367 6.990274 6.990274 6.990274 5.591158 8.718127 6.990274 6.990274 0.000000 5.257174 7.692962 5.592871 1.017958 1.042594 6.925333 6.925333 6.925333 5.542069 8.634837 6.925333 6.925333 0.000000 5.209479 7.611817 5.554988 1.008734 1.033264 6.862501 6.862501 6.862501 5.492235 8.555561 6.862501 6.862501 0.000000 1086.971 1331.641 946.3591 151.4419 151.6650 596.9714 596.9714 596.9714 346.4250 619.5079 596.9714 596.9714 0.000000 105.4523 138.6263 98.20519 15.93689 15.97966 71.45836 71.45836 71.45836 46.69439 79.97273 71.45836 71.45836 0.000000 57.68832 77.63802 54.86618 8.969831 9.001666 43.41341 43.41341 43.41341 29.63580 49.95620 43.41341 43.41341 0.000000 40.31686 55.27646 39.04543 6.422052 6.450271 32.76699 32.76699 32.76699 22.97736 38.35015 32.76699 32.76699 0.000000 31.31115 43.56799 30.77338 5.089889 5.115385 27.02360 27.02360 27.02360 19.30939 31.99994 27.02360 27.02360 0.000000 25.78165 36.31701 25.66369 4.264899 4.290211 23.37288 23.37288 23.37288 16.94423 27.92129 23.37288 23.37288 0.000000 22.03267 31.38549 22.17967 3.701742 3.726939 20.82555 20.82555 20.82555 15.26766 25.04669 20.82555 20.82555 0.000000 19.32639 27.78592 19.64278 3.293450 3.317017 18.93111 18.93111 18.93111 14.00798 22.89430 18.93111 18.93111 0.000000 17.27485 25.03815 17.71803 2.980657 3.004365 17.45910 17.45910 17.45910 13.01925 21.20778 17.45910 17.45910 0.000000 15.74946 22.87032 16.19806 2.734367 2.758279 16.27852 16.27852 16.27852 12.21871 19.84653 16.27852 16.27852 0.000000 14.46560 21.11670 14.96699 2.535810 2.558619 15.30431 15.30431 15.30431 11.55499 18.71846 15.30431 15.30431 0.000000 13.41590 19.67022 13.94998 2.370290 2.393429 14.48888 14.48888 14.48888 10.99158 17.76778 14.48888 14.48888 0.000000 12.53600 18.44494 13.09658 2.231120 2.268057 13.78944 13.78944 13.78944 10.50845 16.94951 13.78944 13.78944 0.000000 11.79047 17.40492 12.36355 2.123517 2.144037 13.18571 13.18571 13.18571 10.08812 16.23654 13.18571 13.18571 0.000000 11.14266 16.50067 11.73367 2.024504 2.044125 12.65498 12.65498 12.65498 9.716658 15.61210 12.65498 12.65498 0.000000 10.59049 15.71224 11.18061 1.929045 1.956689 12.18783 12.18783 12.18783 9.386922 15.05644 12.18783 12.18783 0.000000 10.09710 15.01343 10.69767 1.852170 1.872100 11.76768 11.76768 11.76768 9.090205 14.55960 11.76768 11.76768 0.000000 9.671215 14.39492 10.26673 1.784920 1.804164 11.39276 11.39276 11.39276 8.823327 14.10882 11.39276 11.39276 0.000000 9.286290 13.83870 9.879529 1.715505 1.743371 11.05070 11.05070 11.05070 8.580216 13.70247 11.05070 11.05070 0.000000 8.945405 13.34643 9.529433 1.659924 1.689813 10.74215 10.74215 10.74215 8.359008 13.32923 10.74215 10.74215 0.000000 8.635868 12.88820 9.217669 1.611682 1.632127 10.45904 10.45904 10.45904 8.155432 12.98802 10.45904 10.45904 0.000000 8.351898 12.47975 8.933137 1.566845 1.586762 10.19832 10.19832 10.19832 7.967245 12.67303 10.19832 10.19832 0.000000 8.102528 12.10494 8.672317 1.517317 1.545325 9.958867 9.958867 9.958867 7.792295 12.38288 9.958867 9.958867 0.000000 7.870133 11.74941 8.432258 1.479486 1.508421 9.736552 9.736552 9.736552 7.629573 12.11302 9.736552 9.736552 0.000000 7.655554 11.43026 8.210482 1.444666 1.467131 9.529430 9.529430 9.529430 7.480265 11.86116 9.529430 9.529430 0.000000 7.463875 11.13412 8.004921 1.413530 1.434592 9.335848 9.335848 9.335848 7.337651 11.62539 9.335848 9.335848 0.000000 7.282587 10.86820 7.813800 1.383779 1.404456 9.156076 9.156076 9.156076 7.206290 11.40413 9.156076 9.156076 0.000000 7.114817 10.61071 7.641483 1.348213 1.377511 8.987174 8.987174 8.987174 7.081110 11.19563 8.987174 8.987174 0.000000 6.963832 10.36970 7.474818 1.323237 1.352504 8.828092 8.828092 8.828092 6.963195 11.00056 8.828092 8.828092 0.000000 6.818142 10.14353 7.324398 1.299029 1.329257 8.677913 8.677913 8.677913 6.852580 10.81644 8.677913 8.677913 0.000000 6.683261 9.940064 7.177634 1.276393 1.298601 8.535835 8.535835 8.535835 6.747840 10.64014 8.535835 8.535835 0.000000 6.562013 9.739467 7.045162 1.255192 1.278134 8.401155 8.401155 8.401155 6.648350 10.47470 8.401155 8.401155 0.000000 6.439740 9.559048 6.914830 1.235304 1.257989 8.274832 8.274832 8.274832 6.553679 10.31707 8.274832 8.274832 0.000000 6.334232 9.379652 6.797273 1.210250 1.239054 8.154701 8.154701 8.154701 6.463443 10.16864 8.154701 8.154701 0.000000 6.231007 9.264445 6.680683 1.192470 1.222227 8.038722 8.038722 8.038722 6.377302 10.02550 8.038722 8.038722 0.000000 6.133411 9.103630 6.575660 1.175699 1.205433 7.931115 7.931115 7.931115 6.294947 9.888747 7.931115 7.931115 0.000000 6.037705 8.959734 6.476150 1.159863 1.189592 7.825301 7.825301 7.825301 6.217337 9.759457 7.825301 7.825301 0.000000 5.956687 8.820650 6.381741 1.144890 1.168238 7.727064 7.727064 7.727064 6.142972 9.634096 7.727064 7.727064 0.000000 5.871419 8.690436 6.286637 1.130720 1.153915 7.629997 7.629997 7.629997 6.070413 9.515370 7.629997 7.629997 0.000000 5.795476 8.566385 6.201360 1.117301 1.140344 7.539854 7.539854 7.539854 6.000691 9.399627 7.539854 7.539854 0.000000 5.723894 8.439292 6.114798 1.104581 1.127478 7.451858 7.451858 7.451858 5.934685 9.290096 7.451858 7.451858 0.000000 5.651698 8.335078 6.037425 1.090037 1.115267 7.367278 7.367278 7.367278 5.871273 9.184711 7.367278 7.367278 0.000000 5.583296 8.218389 5.963595 1.074086 1.103671 7.287360 7.287360 7.287360 5.808992 9.083214 7.287360 7.287360 0.000000 5.523150 8.115078 5.887778 1.063035 1.092655 7.210423 7.210423 7.210423 5.751253 8.985366 7.210423 7.210423 0.000000 5.461041 8.016125 5.820376 1.051618 1.082182 7.133397 7.133397 7.133397 5.693206 8.890950 7.133397 7.133397 0.000000 5.407352 7.919461 5.750634 1.041598 1.073204 7.061913 7.061913 7.061913 5.638264 8.799767 7.061913 7.061913 0.000000 5.351882 7.828347 5.688901 1.032049 1.062744 6.992913 6.992913 6.992913 5.585140 8.711632 6.992913 6.992913 0.000000 5.299187 7.740841 5.629746 1.022042 1.046683 6.926254 6.926254 6.926254 5.533736 8.626376 6.926254 6.926254 0.000000 5.249118 7.656735 5.567797 1.013359 1.036985 6.861809 6.861809 6.861809 5.483957 8.543842 6.861809 6.861809 0.000000 5.201532 7.575834 5.525346 1.005074 1.029605 6.799456 6.799456 6.799456 5.436853 8.465293 6.799456 6.799456 0.000000 1086.807 1331.188 946.0668 151.3928 151.6135 596.2509 596.2509 596.2509 345.7737 618.4829 596.2509 596.2509 0.000000 105.3891 138.4487 98.07549 15.91681 15.95958 71.18602 71.18602 71.18602 46.44705 79.58411 71.18602 71.18602 0.000000 57.63950 77.50053 54.77776 8.954326 8.984499 43.19882 43.19882 43.19882 29.44546 49.65233 43.19882 43.19882 0.000000 40.27512 55.15885 38.96973 6.408756 6.435653 32.58395 32.58395 32.58395 22.81472 38.09053 32.58395 32.58395 0.000000 31.27380 43.46280 30.70561 5.076874 5.103435 26.86007 26.86007 26.86007 19.16408 31.76803 26.86007 26.86007 0.000000 25.74311 36.22057 25.60146 4.253917 4.278224 23.22310 23.22310 23.22310 16.80874 27.70893 23.22310 23.22310 0.000000 22.00068 31.28583 22.11584 3.691472 3.716635 20.68326 20.68326 20.68326 15.14156 24.84911 20.68326 20.68326 0.000000 19.29618 27.69222 19.58798 3.282935 3.307263 18.79721 18.79721 18.79721 13.88929 22.70573 18.79721 18.79721 0.000000 17.24278 24.95767 17.66587 2.971388 2.995056 17.33455 17.33455 17.33455 12.90664 21.03167 17.33455 17.33455 0.000000 15.72209 22.79336 16.14811 2.725471 2.749337 16.15718 16.15718 16.15718 12.11311 19.67586 16.15718 16.15718 0.000000 14.43922 21.04275 14.91891 2.527226 2.549989 15.19020 15.19020 15.19020 11.45199 18.55716 15.19020 15.19020 0.000000 13.39036 19.59884 13.90352 2.361979 2.385067 14.37668 14.37668 14.37668 10.89379 17.60969 14.37668 14.37668 0.000000 12.51121 18.37584 13.05152 2.223047 2.260046 13.68097 13.68097 13.68097 10.41256 16.79727 13.68097 13.68097 0.000000 11.76635 17.33782 12.31974 2.115763 2.136214 13.08055 13.08055 13.08055 9.995053 16.09123 13.08055 13.08055 0.000000 11.12452 16.43536 11.69097 2.016949 2.036495 12.55280 12.55280 12.55280 9.626254 15.46891 12.55280 12.55280 0.000000 10.56745 15.64242 11.13890 1.921633 1.950473 12.08833 12.08833 12.08833 9.298642 14.91712 12.08833 12.08833 0.000000 10.07970 14.95121 10.65686 1.844919 1.864773 11.67262 11.67262 11.67262 9.004409 14.42377 11.67262 11.67262 0.000000 9.649051 14.33402 10.22675 1.777816 1.796979 11.29797 11.29797 11.29797 8.741072 13.97820 11.29797 11.29797 0.000000 9.264514 13.77903 9.840298 1.708503 1.737475 10.96174 10.96174 10.96174 8.498271 13.57285 10.96174 10.96174 0.000000 8.923978 13.28786 9.497529 1.654125 1.680875 10.65304 10.65304 10.65304 8.278765 13.20237 10.65304 10.65304 0.000000 8.614749 12.83069 9.179769 1.604916 1.625276 10.37179 10.37179 10.37179 8.076772 12.86371 10.37179 10.37179 0.000000 8.335909 12.42319 8.895816 1.555072 1.581108 10.11447 10.11447 10.11447 7.889785 12.55111 10.11447 10.11447 0.000000 8.081981 12.04408 8.635543 1.511747 1.539762 9.874731 9.874731 9.874731 7.716487 12.26318 9.874731 9.874731 0.000000 7.854596 11.69461 8.395996 1.473999 1.502946 9.652088 9.652088 9.652088 7.556464 11.99539 9.652088 9.652088 0.000000 7.635490 11.37624 8.174707 1.439260 1.460625 9.448037 9.448037 9.448037 7.406964 11.74550 9.448037 9.448037 0.000000 7.444026 11.08083 7.969594 1.407196 1.429206 9.257405 9.257405 9.257405 7.266870 11.51152 9.257405 9.257405 0.000000 7.267619 10.81558 7.784844 1.374515 1.399143 9.077117 9.077117 9.077117 7.135223 11.29190 9.077117 9.077117 0.000000 7.100024 10.55876 7.606972 1.342964 1.372264 8.907679 8.907679 8.907679 7.012492 11.08525 8.907679 8.907679 0.000000 6.944563 10.31837 7.446508 1.317088 1.346290 8.749677 8.749677 8.749677 6.895319 10.89188 8.749677 8.749677 0.000000 6.803668 10.09280 7.290619 1.293904 1.321743 8.602144 8.602144 8.602144 6.785751 10.70926 8.602144 8.602144 0.000000 6.668940 9.889875 7.144204 1.271327 1.293481 8.462634 8.462634 8.462634 6.680587 10.53439 8.462634 8.462634 0.000000 6.543219 9.689819 7.012046 1.250184 1.272072 8.328858 8.328858 8.328858 6.581938 10.37166 8.328858 8.328858 0.000000 6.430333 9.509889 6.887648 1.231311 1.252978 8.201818 8.201818 8.201818 6.488071 10.21384 8.201818 8.201818 0.000000 6.315720 9.330986 6.764764 1.205293 1.234094 8.082522 8.082522 8.082522 6.398606 10.06665 8.082522 8.082522 0.000000 6.217251 9.216438 6.653992 1.187561 1.216321 7.968896 7.968896 7.968896 6.314448 9.924707 7.968896 7.968896 0.000000 6.115147 9.065148 6.549192 1.170838 1.200575 7.858972 7.858972 7.858972 6.232793 9.789103 7.858972 7.858972 0.000000 6.028825 8.921612 6.444437 1.155047 1.185780 7.756956 7.756956 7.756956 6.155847 9.660906 7.756956 7.756956 0.000000 5.938647 8.773888 6.350266 1.140118 1.163416 7.656393 7.656393 7.656393 6.080905 9.536608 7.656393 7.656393 0.000000 5.858144 8.644058 6.260811 1.125993 1.149133 7.563022 7.563022 7.563022 6.008979 9.418896 7.563022 7.563022 0.000000 5.782312 8.520377 6.170352 1.112617 1.135604 7.473519 7.473519 7.473519 5.940932 9.304151 7.473519 7.473519 0.000000 5.706165 8.402411 6.089370 1.100865 1.123748 7.384674 7.384674 7.384674 5.875626 9.195563 7.384674 7.384674 0.000000 5.638752 8.289770 6.006845 1.081943 1.110603 7.302174 7.302174 7.302174 5.811583 9.091090 7.302174 7.302174 0.000000 5.575161 8.182096 5.933217 1.069464 1.100023 7.222833 7.222833 7.222833 5.752204 8.990474 7.222833 7.222833 0.000000 5.510413 8.079082 5.862883 1.058449 1.088068 7.143560 7.143560 7.143560 5.692629 8.893478 7.143560 7.143560 0.000000 5.448391 7.971805 5.795657 1.047967 1.078612 7.069982 7.069982 7.069982 5.636261 8.799889 7.069982 7.069982 0.000000 5.390051 7.875397 5.726079 1.037080 1.067708 6.999022 6.999022 6.999022 5.581804 8.709505 6.999022 6.999022 0.000000 5.334658 7.784583 5.664497 1.027565 1.055661 6.930528 6.930528 6.930528 5.529151 8.622147 6.930528 6.930528 0.000000 5.282038 7.697357 5.600270 1.018496 1.043142 6.864362 6.864362 6.864362 5.478203 8.537644 6.864362 6.864362 0.000000 5.232041 7.613522 5.560314 1.008940 1.033474 6.800394 6.800394 6.800394 5.428868 8.457248 6.800394 6.800394 0.000000 5.184525 7.532885 5.507496 1.000687 1.024205 6.738504 6.738504 6.738504 5.381060 8.377994 6.738504 6.738504 0.000000 1086.650 1330.763 945.7843 151.3455 151.5638 595.5541 595.5541 595.5541 345.1534 617.4918 595.5541 595.5541 0.000000 105.3279 138.2770 97.96468 15.89740 15.94017 70.91630 70.91630 70.91630 46.20778 79.20223 70.91630 70.91630 0.000000 57.59230 77.36760 54.69226 8.937721 8.969504 42.99147 42.99147 42.99147 29.26134 49.36288 42.99147 42.99147 0.000000 40.23476 55.03093 38.88809 6.394625 6.422786 32.40687 32.40687 32.40687 22.65738 37.83942 32.40687 32.40687 0.000000 31.23770 43.34895 30.63289 5.065338 5.090770 26.69847 26.69847 26.69847 19.02350 31.54372 26.69847 26.69847 0.000000 25.70997 36.12727 25.53491 4.242345 4.266604 23.07819 23.07819 23.07819 16.67762 27.50352 23.07819 23.07819 0.000000 21.96975 31.19892 22.05970 3.681540 3.705786 20.54837 20.54837 20.54837 15.02172 24.65800 20.54837 20.54837 0.000000 19.26698 27.61032 19.53499 3.272744 3.297830 18.67025 18.67025 18.67025 13.77650 22.52596 18.67025 18.67025 0.000000 17.21167 24.87984 17.61544 2.962424 2.986053 17.21152 17.21152 17.21152 12.79963 20.85885 17.21152 17.21152 0.000000 15.69563 22.71894 16.09981 2.716867 2.740690 16.04213 16.04213 16.04213 12.00905 19.51317 16.04213 16.04213 0.000000 14.41370 20.97123 14.87242 2.518262 2.541643 15.07979 15.07979 15.07979 11.35231 18.39878 15.07979 15.07979 0.000000 13.36565 19.52981 13.85859 2.353941 2.376979 14.26806 14.26806 14.26806 10.79949 17.45720 14.26806 14.26806 0.000000 12.48724 18.30902 13.00795 2.215237 2.252299 13.57813 13.57813 13.57813 10.32143 16.64997 13.57813 13.57813 0.000000 11.74302 17.27293 12.27738 2.109520 2.128647 12.97875 12.97875 12.97875 9.906650 15.94853 12.97875 12.97875 0.000000 11.10174 16.37220 11.64967 2.003989 2.029116 12.45594 12.45594 12.45594 9.540384 15.33244 12.45594 12.45594 0.000000 10.54517 15.58084 11.09857 1.914465 1.943263 11.99189 11.99189 11.99189 9.213478 14.78207 11.99189 11.99189 0.000000 10.05786 14.89102 10.61740 1.839060 1.858868 11.57868 11.57868 11.57868 8.922924 14.29233 11.57868 11.57868 0.000000 9.627618 14.27511 10.18807 1.769973 1.791197 11.20811 11.20811 11.20811 8.659957 13.84968 11.20811 11.20811 0.000000 9.248464 13.72132 9.802346 1.701730 1.730653 10.87195 10.87195 10.87195 8.420452 13.44743 10.87195 10.87195 0.000000 8.903256 13.22572 9.460239 1.647470 1.668295 10.56693 10.56693 10.56693 8.201095 13.07961 10.56693 10.56693 0.000000 8.594325 12.77506 9.143088 1.598371 1.618649 10.28735 10.28735 10.28735 8.000632 12.74527 10.28735 10.28735 0.000000 8.315771 12.36848 8.859716 1.546429 1.574580 10.02980 10.02980 10.02980 7.815067 12.43494 10.02980 10.02980 0.000000 8.066894 11.98507 8.599972 1.505369 1.534415 9.791555 9.791555 9.791555 7.644517 12.14734 9.791555 9.791555 0.000000 7.834964 11.64159 8.360920 1.467709 1.497686 9.573775 9.573775 9.573775 7.485724 11.88157 9.573775 9.573775 0.000000 7.620793 11.32399 8.140085 1.433053 1.454332 9.367561 9.367561 9.367561 7.336010 11.63358 9.367561 9.367561 0.000000 7.424829 11.02929 7.941433 1.402073 1.422987 9.178157 9.178157 9.178157 7.198382 11.40154 9.178157 9.178157 0.000000 7.248616 10.76469 7.751067 1.365642 1.394032 9.000704 9.000704 9.000704 7.067658 11.18348 9.000704 9.000704 0.000000 7.085868 10.50850 7.573587 1.337916 1.367219 8.834002 8.834002 8.834002 6.944808 10.97829 8.834002 8.834002 0.000000 6.930568 10.26871 7.413478 1.312100 1.341311 8.677008 8.677008 8.677008 6.829771 10.78662 8.677008 8.677008 0.000000 6.785183 10.04373 7.257942 1.288015 1.310352 8.528816 8.528816 8.528816 6.721083 10.60515 8.528816 8.528816 0.000000 6.655237 9.841324 7.117553 1.266457 1.288557 8.388635 8.388635 8.388635 6.618050 10.43186 8.388635 8.388635 0.000000 6.529658 9.641773 6.980008 1.245370 1.267201 8.255765 8.255765 8.255765 6.520190 10.27050 8.255765 8.255765 0.000000 6.412287 9.462314 6.855905 1.223637 1.247162 8.132718 8.132718 8.132718 6.427078 10.11395 8.132718 8.132718 0.000000 6.307057 9.283904 6.738871 1.200525 1.229325 8.012665 8.012665 8.012665 6.338336 9.967949 8.012665 8.012665 0.000000 6.199464 9.169996 6.628324 1.182839 1.212601 7.899812 7.899812 7.899812 6.253626 9.827167 7.899812 7.899812 0.000000 6.102097 9.019127 6.518251 1.166161 1.195904 7.792162 7.792162 7.792162 6.172646 9.692673 7.792162 7.792162 0.000000 6.011263 8.875994 6.419204 1.150414 1.180139 7.689328 7.689328 7.689328 6.095125 9.565534 7.689328 7.689328 0.000000 5.925839 8.728648 6.319815 1.135529 1.158777 7.590959 7.590959 7.590959 6.020818 9.443780 7.590959 7.590959 0.000000 5.845448 8.599190 6.230581 1.121446 1.144535 7.498231 7.498231 7.498231 5.951902 9.325290 7.498231 7.498231 0.000000 5.765063 8.475866 6.145726 1.109038 1.131046 7.406391 7.406391 7.406391 5.883224 9.213241 7.406391 7.406391 0.000000 5.698367 8.358245 6.064923 1.095473 1.118256 7.321114 7.321114 7.321114 5.817286 9.104078 7.321114 7.321114 0.000000 5.626383 8.245935 5.982578 1.076564 1.107095 7.239191 7.239191 7.239191 5.756147 9.000486 7.239191 7.239191 0.000000 5.558181 8.138582 5.909114 1.065019 1.094601 7.158957 7.158957 7.158957 5.694932 8.900723 7.158957 7.158957 0.000000 5.498242 8.035862 5.833671 1.054039 1.084638 7.081688 7.081688 7.081688 5.637035 8.804552 7.081688 7.081688 0.000000 5.436306 7.935696 5.766619 1.042689 1.074240 7.008631 7.008631 7.008631 5.581151 8.711761 7.008631 7.008631 0.000000 5.382819 7.841295 5.702464 1.033638 1.064355 6.938177 6.938177 6.938177 5.527163 8.622152 6.938177 6.938177 0.000000 5.327533 7.750714 5.641042 1.023253 1.047917 6.870173 6.870173 6.870173 5.474966 8.535544 6.870173 6.870173 0.000000 5.275022 7.663727 5.576962 1.014216 1.037858 6.804482 6.804482 6.804482 5.424459 8.451771 6.804482 6.804482 0.000000 5.225133 7.571712 5.532398 1.005598 1.030139 6.740975 6.740975 6.740975 5.375553 8.372073 6.740975 6.740975 0.000000 5.177722 7.499713 5.479742 0.9964694 1.020901 6.679534 6.679534 6.679534 5.329165 8.293507 6.679534 6.679534 0.000000 1086.497 1330.339 945.5217 151.2974 151.5181 594.8801 594.8801 594.8801 344.5533 616.5330 594.8801 594.8801 0.000000 105.2686 138.1109 97.85748 15.87861 15.92139 70.66154 70.66154 70.66154 45.98074 78.83871 70.66154 70.66154 0.000000 57.54663 77.22139 54.60954 8.923218 8.954996 42.79071 42.79071 42.79071 29.08310 49.07837 42.79071 42.79071 0.000000 40.19572 54.92091 38.81728 6.382186 6.410336 32.23542 32.23542 32.23542 22.50220 37.59636 32.23542 32.23542 0.000000 31.20276 43.25055 30.56949 5.053097 5.078484 26.54530 26.54530 26.54530 18.88485 31.32661 26.54530 26.54530 0.000000 25.67790 36.03703 25.47670 4.232070 4.256307 22.93483 22.93483 22.93483 16.55298 27.30470 22.93483 22.93483 0.000000 21.93982 31.10510 22.00537 3.671926 3.695261 20.41777 20.41777 20.41777 14.90571 24.47018 20.41777 20.41777 0.000000 19.23871 27.52212 19.48371 3.263650 3.287886 18.54734 18.54734 18.54734 13.66524 22.35194 18.54734 18.54734 0.000000 17.18476 24.79618 17.56171 2.953749 2.977340 17.09486 17.09486 17.09486 12.69604 20.69356 17.09486 17.09486 0.000000 15.67003 22.64693 16.04844 2.708541 2.732321 15.92833 15.92833 15.92833 11.91016 19.35569 15.92833 15.92833 0.000000 14.38902 20.90199 14.82743 2.509567 2.533565 14.97058 14.97058 14.97058 11.25726 18.24542 14.97058 14.97058 0.000000 13.34175 19.45593 13.81511 2.346161 2.369149 14.16492 14.16492 14.16492 10.70655 17.31181 14.16492 14.16492 0.000000 12.46405 18.24435 12.96175 2.207679 2.244802 13.47856 13.47856 13.47856 10.23296 16.50952 13.47856 13.47856 0.000000 11.72044 17.20360 12.23638 2.102259 2.121324 12.88223 12.88223 12.88223 9.819396 15.81036 12.88223 12.88223 0.000000 11.07969 16.31108 11.60970 1.994076 2.021974 12.36215 12.36215 12.36215 9.455626 15.19827 12.36215 12.36215 0.000000 10.52361 15.52123 11.05954 1.907528 1.936286 11.90058 11.90058 11.90058 9.132572 14.65354 11.90058 11.90058 0.000000 10.03672 14.83278 10.57919 1.832271 1.852006 11.48962 11.48962 11.48962 8.844030 14.16506 11.48962 11.48962 0.000000 9.606875 14.21812 10.15064 1.757252 1.784469 11.12110 11.12110 11.12110 8.581391 13.72545 11.12110 11.12110 0.000000 9.228078 13.66546 9.765614 1.696264 1.724050 10.78684 10.78684 10.78684 8.345107 13.32598 10.78684 10.78684 0.000000 8.881470 13.16542 9.424146 1.642107 1.662887 10.48171 10.48171 10.48171 8.127326 12.96261 10.48171 10.48171 0.000000 8.574559 12.72122 9.107597 1.593106 1.613332 10.20378 10.20378 10.20378 7.928051 12.62878 10.20378 10.20378 0.000000 8.301105 12.31551 8.824773 1.541193 1.568261 9.949551 9.949551 9.949551 7.744113 12.32068 9.949551 9.949551 0.000000 8.047655 11.93298 8.565539 1.499195 1.528186 9.714466 9.714466 9.714466 7.574831 12.03517 9.714466 9.714466 0.000000 7.815964 11.59028 8.326956 1.462633 1.491136 9.494529 9.494529 9.494529 7.415846 11.77136 9.494529 9.494529 0.000000 7.606716 11.27341 8.106580 1.428053 1.449281 9.292990 9.292990 9.292990 7.268643 11.52513 9.292990 9.292990 0.000000 7.410932 10.98921 7.908327 1.396140 1.418005 9.104730 9.104730 9.104730 7.130718 11.29471 9.104730 9.104730 0.000000 7.230225 10.71542 7.718370 1.359752 1.388081 8.926702 8.926702 8.926702 7.002426 11.07849 8.926702 8.926702 0.000000 7.067649 10.45986 7.547122 1.332092 1.361334 8.759409 8.759409 8.759409 6.880292 10.87499 8.759409 8.759409 0.000000 6.917172 10.22065 7.381502 1.307303 1.336522 8.605045 8.605045 8.605045 6.764997 10.68458 8.605045 8.605045 0.000000 6.767292 9.996225 7.232043 1.283273 1.305562 8.459403 8.459403 8.459403 6.657175 10.50471 8.459403 8.459403 0.000000 6.637491 9.794323 7.086227 1.260812 1.282823 8.320107 8.320107 8.320107 6.554966 10.33263 8.320107 8.320107 0.000000 6.516677 9.595276 6.954636 1.240738 1.262517 8.188082 8.188082 8.188082 6.457894 10.17253 8.188082 8.188082 0.000000 6.399440 9.416272 6.825156 1.213740 1.243524 8.062716 8.062716 8.062716 6.365535 10.01721 8.062716 8.062716 0.000000 6.289712 9.293047 6.708390 1.195936 1.224738 7.946549 7.946549 7.946549 6.277515 9.872370 7.946549 7.946549 0.000000 6.191505 9.125038 6.598109 1.177371 1.207063 7.832903 7.832903 7.832903 6.193497 9.732708 7.832903 7.832903 0.000000 6.089616 8.974575 6.493774 1.161663 1.191413 7.727488 7.727488 7.727488 6.113182 9.599289 7.727488 7.727488 0.000000 5.998894 8.829475 6.389482 1.145957 1.169323 7.623827 7.623827 7.623827 6.037509 9.473174 7.623827 7.623827 0.000000 5.913585 8.693723 6.295740 1.131114 1.154315 7.527616 7.527616 7.527616 5.965009 9.352159 7.527616 7.527616 0.000000 5.828650 8.564570 6.206697 1.117073 1.140111 7.432546 7.432546 7.432546 5.894130 9.234884 7.432546 7.432546 0.000000 5.757693 8.432775 6.116652 1.103779 1.126661 7.344281 7.344281 7.344281 5.826153 9.123750 7.344281 7.344281 0.000000 5.681752 8.324206 6.036050 1.085260 1.114881 7.259583 7.259583 7.259583 5.763122 9.015481 7.259583 7.259583 0.000000 5.614551 8.203497 5.959232 1.073151 1.101810 7.178217 7.178217 7.178217 5.700146 8.912743 7.178217 7.178217 0.000000 5.551164 8.105104 5.885928 1.060741 1.091305 7.097089 7.097089 7.097089 5.640609 8.813804 7.097089 7.097089 0.000000 5.486034 7.994032 5.810647 1.049796 1.080400 7.021789 7.021789 7.021789 5.583195 8.718432 7.021789 7.021789 0.000000 5.424755 7.894112 5.743752 1.039378 1.070037 6.949237 6.949237 6.949237 5.527780 8.626414 6.949237 6.949237 0.000000 5.366601 7.800004 5.674512 1.028556 1.060187 6.879272 6.879272 6.879272 5.474247 8.537555 6.879272 6.879272 0.000000 5.311388 7.709693 5.613240 1.020011 1.043727 6.811742 6.811742 6.811742 5.422490 8.451674 6.811742 6.811742 0.000000 5.258941 7.622967 5.570985 1.010099 1.034656 6.746511 6.746511 6.746511 5.372411 8.370002 6.746511 6.746511 0.000000 5.209120 7.539618 5.516188 1.001513 1.025047 6.683450 6.683450 6.683450 5.323805 8.289584 6.683450 6.683450 0.000000 5.161777 7.459452 5.463710 0.9933246 1.016798 6.619674 6.619674 6.619674 5.276824 8.212821 6.619674 6.619674 0.000000 + 76.21536 195.2946 190.4496 180.5608 181.2220 55.70724 55.70724 55.70724 55.72124 54.82743 55.70724 55.70724 0.000000 102.0280 237.5488 233.1252 214.7137 216.4660 54.87391 54.87391 54.87391 55.33506 55.45961 54.87391 54.87391 0.000000 125.5871 255.9245 244.7782 222.7067 224.3101 54.54849 54.54849 54.54849 55.08393 55.40871 54.54849 54.54849 0.000000 132.0175 263.1500 250.1338 227.2296 228.9043 54.26574 54.26574 54.26574 54.87312 55.30341 54.26574 54.26574 0.000000 135.2743 267.2517 253.6117 230.4453 232.1760 54.08652 54.08652 54.08652 54.74484 55.23415 54.08652 54.08652 0.000000 137.4830 270.3277 256.2986 232.9254 234.7566 53.92392 53.92392 53.92392 54.58961 55.14839 53.92392 53.92392 1.0581320E+21 139.1103 272.6453 258.3573 235.1033 236.9995 53.73544 53.73544 53.73544 54.47842 55.11223 53.73544 53.73544 7.9867758E+23 140.4831 274.4696 260.2155 237.0070 238.9406 53.63602 53.63602 53.63602 54.35360 55.06753 53.63602 53.63602 2.0277878E-19 141.7457 276.0654 261.7911 238.6076 240.6753 53.52165 53.52165 53.52165 54.28027 55.01623 53.52165 53.52165 1.8490622E+31 142.8392 277.4746 263.1360 240.0809 242.2704 53.39549 53.39549 53.39549 54.19837 54.95964 53.39549 53.39549 7.2870951E+28 143.7891 278.6865 264.4599 241.4740 243.6515 53.31312 53.31312 53.31312 54.10951 54.89874 53.31312 53.31312 2.7674748E+20 144.8180 279.6805 265.6244 242.8220 244.9775 53.22256 53.22256 53.22256 54.07634 54.83424 53.22256 53.22256 1.7861503E+25 145.6410 280.8058 266.6512 244.0287 246.2784 53.17817 53.17817 53.17817 53.97665 54.82707 53.17817 53.17817 1.0301784E+21 146.4747 281.5910 267.7356 245.1116 247.4477 53.07463 53.07463 53.07463 53.93400 54.75677 53.07463 53.07463 1.3563156E-19 147.3326 282.5384 268.7172 246.2137 248.6338 53.01883 53.01883 53.01883 53.88751 54.74445 53.01883 53.01883 1.3563156E-19 148.0134 283.1608 269.6073 247.2211 249.7198 52.95834 52.95834 52.95834 53.80711 54.66979 52.95834 52.95834 9.6440054E-33 148.8432 283.9659 270.4152 248.1430 250.7157 52.89370 52.89370 52.89370 53.78474 54.65345 52.89370 52.89370 1.3563156E-19 149.5084 284.7119 271.3331 248.9886 251.6305 52.82536 52.82536 52.82536 53.72918 54.63540 52.82536 52.82536 1.1019082E-08 150.1206 285.1478 272.0005 249.8980 252.6089 52.80617 52.80617 52.80617 53.67120 54.61580 52.80617 52.80617 1.3563156E-19 150.7941 285.7882 272.7930 250.7460 253.5221 52.73142 52.73142 52.73142 53.61106 54.53485 52.73142 52.73142 2.7553935E-09 151.4242 286.3832 273.5312 251.5370 254.3748 52.70628 52.70628 52.70628 53.54897 54.51260 52.70628 52.70628 1.3563156E-19 152.1261 286.9366 274.2193 252.4131 255.1729 52.62627 52.62627 52.62627 53.54551 54.48918 52.62627 52.62627 857.1426 152.7925 287.4511 274.8611 253.1047 256.0619 52.59615 52.59615 52.59615 53.47987 54.46468 52.59615 52.59615 4.1583281E+21 153.3114 288.1918 275.6516 253.8899 256.7619 52.56382 52.56382 52.56382 53.47305 54.43918 52.56382 52.56382 4.3612093E+27 153.9122 288.6376 276.2109 254.6356 257.5618 52.52863 52.52863 52.52863 53.40442 54.41276 52.52863 52.52863 0.000000 154.4839 289.0517 276.9265 255.3438 258.3218 52.49233 52.49233 52.49233 53.39468 54.38547 52.49233 52.49233 0.000000 155.1443 289.7034 277.4138 256.0168 259.0450 52.45427 52.45427 52.45427 53.32351 54.35739 52.45427 52.45427 0.000000 155.5458 290.0618 278.0641 256.6567 259.7332 52.41455 52.41455 52.41455 53.31125 54.32856 52.41455 52.41455 0.000000 156.1572 290.3936 278.6850 257.2651 260.3886 52.37329 52.37329 52.37329 53.29784 54.29903 52.37329 52.37329 0.000000 156.7466 290.9706 279.2781 257.9890 261.1618 52.33060 52.33060 52.33060 53.22341 54.26884 52.33060 52.33060 0.000000 157.1960 291.2556 279.8450 258.5408 261.7574 52.28655 52.28655 52.28655 53.20792 54.29744 52.28655 52.28655 0.000000 157.6243 291.7900 280.3870 259.2130 262.4756 52.29285 52.29285 52.29285 53.19147 54.26600 52.29285 52.29285 0.000000 158.1532 292.3050 280.9052 259.7143 263.0177 52.24627 52.24627 52.24627 53.17411 54.23400 52.24627 52.24627 0.000000 158.6644 292.5285 281.4010 260.3396 263.6863 52.19857 52.19857 52.19857 53.15588 54.20150 52.19857 52.19857 0.000000 159.1584 293.0074 281.8754 260.9436 264.3326 52.20127 52.20127 52.20127 53.07718 54.16851 52.20127 52.20127 0.000000 159.6363 293.4693 282.3293 261.3778 264.9576 52.15143 52.15143 52.15143 53.05740 54.13506 52.15143 52.15143 0.000000 160.0985 293.6398 282.7634 261.9411 265.5620 52.15203 52.15203 52.15203 53.03688 54.16031 52.15203 52.15203 0.000000 160.6699 294.0705 283.1791 262.4857 266.1468 52.10026 52.10026 52.10026 53.01566 54.12595 52.10026 52.10026 0.000000 161.1034 294.4867 283.7830 263.0133 266.7128 52.09895 52.09895 52.09895 52.99377 54.09118 52.09895 52.09895 0.000000 161.6487 294.8892 284.1645 263.5230 267.2607 52.04544 52.04544 52.04544 52.97124 54.05605 52.04544 52.04544 0.000000 162.0556 295.2778 284.7370 264.1696 267.7908 52.04238 52.04238 52.04238 52.94810 54.07955 52.04238 52.04238 0.000000 162.4500 295.6542 285.0868 264.6480 268.3047 51.98730 51.98730 51.98730 52.92438 54.04366 51.98730 51.98730 0.000000 162.8320 295.7371 285.4214 265.1114 268.8025 51.98265 51.98265 51.98265 52.90010 54.00744 51.98265 51.98265 0.000000 163.4576 296.0887 285.9509 265.5602 269.2846 51.97724 51.97724 51.97724 52.87529 54.02982 51.97724 51.97724 0.000000 163.8172 296.4290 286.4678 266.1505 269.9128 51.91926 51.91926 51.91926 52.84996 53.99292 51.91926 51.91926 0.000000 164.1658 296.7583 286.7606 266.5722 270.3667 51.91246 51.91246 51.91246 52.82415 53.95576 51.91246 51.91246 0.000000 164.7628 297.0772 287.2525 266.9808 270.9688 51.90500 51.90500 51.90500 52.79787 53.97712 51.90500 51.90500 0.000000 165.0912 297.3859 287.7330 267.5338 271.3960 51.89689 51.89689 51.89689 52.83021 53.93936 51.89689 51.89689 0.000000 165.4095 297.6847 287.9890 267.9180 271.8099 51.83722 51.83722 51.83722 52.80299 53.90136 51.83722 51.83722 0.000000 165.9805 297.9741 288.4470 268.4489 272.3753 51.82791 51.82791 51.82791 52.77534 53.92181 51.82791 51.82791 0.000000 76.29179 195.8904 191.3154 182.0087 182.8504 55.98394 55.98394 55.98394 55.89110 55.51376 55.98394 55.98394 0.000000 115.5649 255.4562 244.0783 222.8753 224.4680 54.20058 54.20058 54.20058 54.70916 55.29679 54.20058 54.20058 0.000000 132.2206 269.1304 254.7492 232.2357 233.9872 53.54910 53.54910 53.54910 54.23836 54.99156 53.54910 53.54910 0.000000 137.4857 275.4297 260.7520 238.2079 240.2248 53.16066 53.16066 53.16066 53.91637 54.76970 53.16066 53.16066 0.000000 140.8192 279.7326 264.9574 242.7437 245.0117 52.87370 52.87370 52.87370 53.63757 54.61893 52.87370 52.87370 0.000000 143.4957 282.7847 268.4744 246.5919 249.0365 52.62386 52.62386 52.62386 53.43163 54.43761 52.62386 52.62386 0.000000 145.7564 285.1189 271.4916 250.0444 252.7544 52.43089 52.43089 52.43089 53.25254 54.29520 52.43089 52.43089 0.000000 147.9189 287.4216 274.2343 253.0879 255.8886 52.25621 52.25621 52.25621 53.10879 54.19673 52.25621 52.25621 0.000000 149.9674 289.2999 276.6631 255.7386 258.7419 52.10670 52.10670 52.10670 53.00556 54.08623 52.10670 52.10670 0.000000 151.7430 291.1010 278.8796 258.2470 261.5875 51.98740 51.98740 51.98740 52.88703 54.02512 51.98740 51.98740 0.000000 153.5102 292.8915 280.9591 260.7013 264.0675 51.90111 51.90111 51.90111 52.75613 53.95600 51.90111 51.90111 0.000000 155.3115 294.1693 282.9599 262.8659 266.5483 51.80107 51.80107 51.80107 52.67384 53.88020 51.80107 51.80107 0.000000 156.9451 295.7975 284.7216 264.9339 268.7692 51.73946 51.73946 51.73946 52.58263 53.79876 51.73946 51.73946 0.000000 158.6704 296.9698 286.4836 267.1006 270.9247 51.61650 51.61650 51.61650 52.54234 53.71249 51.61650 51.61650 0.000000 160.2681 298.2709 288.2775 268.9263 272.8830 51.58543 51.58543 51.58543 52.43673 53.68031 51.58543 51.58543 0.000000 161.7496 299.7250 289.9146 270.7477 274.8333 51.49563 51.49563 51.49563 52.38365 53.58607 51.49563 51.49563 0.000000 163.1250 300.7706 291.4108 272.5876 276.7994 51.44889 51.44889 51.44889 52.32523 53.54667 51.44889 51.44889 0.000000 164.6613 301.9996 293.0002 274.1331 278.6300 51.39558 51.39558 51.39558 52.26207 53.50419 51.39558 51.39558 0.000000 166.1148 303.1329 294.2536 275.8954 280.5124 51.33635 51.33635 51.33635 52.19465 53.45896 51.33635 51.33635 0.000000 167.4911 303.8783 295.6258 277.3842 282.1094 51.27180 51.27180 51.27180 52.12340 53.41123 51.27180 51.27180 0.000000 168.7959 305.1425 297.1312 278.9474 283.7814 51.25234 51.25234 51.25234 52.10641 53.36123 51.25234 51.25234 0.000000 170.3076 306.0322 298.3225 280.4232 285.5423 51.17762 51.17762 51.17762 52.02841 53.30917 51.17762 51.17762 0.000000 171.4855 306.8526 299.6659 281.9951 287.0381 51.14939 51.14939 51.14939 52.00509 53.25522 51.14939 51.14939 0.000000 172.8856 307.9170 300.9374 283.3159 288.4536 51.11733 51.11733 51.11733 51.97895 53.19953 51.11733 51.11733 0.000000 174.0938 308.9253 302.1410 284.7468 290.1696 51.08173 51.08173 51.08173 51.89276 53.19963 51.08173 51.08173 0.000000 175.2523 309.8811 303.2821 286.1150 291.4444 51.04284 51.04284 51.04284 51.86165 53.14077 51.04284 51.04284 0.000000 176.5092 310.4726 304.6050 287.4243 293.0354 51.00011 51.00011 51.00011 51.82829 53.08055 51.00011 51.00011 0.000000 177.7244 311.3306 305.6329 288.6776 294.3777 50.95540 50.95540 50.95540 51.79007 53.07621 50.95540 50.95540 0.000000 182.1019 312.1449 306.6078 290.0663 295.6651 50.95750 50.95750 50.95750 51.75267 53.01344 50.95750 50.95750 0.000000 183.3613 313.2383 307.7797 291.2198 297.0966 50.90758 50.90758 50.90758 51.71344 53.00660 50.90758 50.90758 0.000000 184.9068 313.9738 308.9078 292.3263 298.4812 50.90472 50.90472 50.90472 51.67249 52.94160 50.90472 50.90472 0.000000 186.0999 314.6714 309.9938 293.5797 299.8218 50.85023 50.85023 50.85023 51.68688 52.93254 50.85023 50.85023 0.000000 187.5759 315.3344 311.0409 294.7937 301.1206 50.84297 50.84297 50.84297 51.64272 52.92247 50.84297 50.84297 0.000000 189.0416 315.9639 312.0498 295.9704 302.3799 50.83369 50.83369 50.83369 51.59713 52.85455 50.83369 50.83369 0.000000 190.4848 316.8898 313.0231 297.1113 303.6010 50.82248 50.82248 50.82248 51.55019 52.84260 50.82248 50.82248 0.000000 191.9065 317.7886 313.9622 298.2173 304.7854 50.80944 50.80944 50.80944 51.55869 52.82977 50.80944 50.80944 0.000000 193.3075 318.3288 314.8678 299.2908 305.9353 50.74547 50.74547 50.74547 51.50916 52.81611 50.74547 50.74547 0.000000 194.6888 318.8410 315.7425 300.3330 307.2614 50.72907 50.72907 50.72907 51.51514 52.74500 50.72907 50.72907 0.000000 196.0511 319.6612 316.8482 301.5476 308.5597 50.71110 50.71110 50.71110 51.46328 52.72981 50.71110 50.71110 0.000000 197.3949 320.4585 317.6651 302.7364 309.6162 50.74039 50.74039 50.74039 51.46696 52.71391 50.74039 50.74039 0.000000 198.7215 320.8957 318.7185 303.6944 310.6435 50.71948 50.71948 50.71948 51.41300 52.69731 50.71948 50.71948 0.000000 200.0311 321.6482 319.4814 304.6253 311.8582 50.69717 50.69717 50.69717 51.41458 52.68005 50.69717 50.69717 0.000000 201.3243 322.3805 320.2190 305.7387 313.0488 50.67355 50.67355 50.67355 51.35871 52.66217 50.67355 50.67355 0.000000 202.6000 323.0933 321.4691 306.8300 313.9964 50.64869 50.64869 50.64869 51.35836 52.64367 50.64869 50.64869 0.000000 203.8624 323.7873 322.1601 307.6887 315.1392 50.62261 50.62261 50.62261 51.35710 52.62460 50.62261 50.62261 0.000000 205.1103 324.1176 322.8279 308.5245 316.2601 50.64436 50.64436 50.64436 51.29861 52.60496 50.64436 50.64436 0.000000 206.3440 324.7743 324.0192 309.7644 317.1356 50.61599 50.61599 50.61599 51.29565 52.58479 50.61599 50.61599 0.000000 207.9570 325.4141 324.6445 310.5583 318.4384 50.58655 50.58655 50.58655 51.29188 52.56410 50.58655 50.58655 0.000000 209.1676 326.0375 325.5251 311.5466 319.2712 50.60501 50.60501 50.60501 51.28733 52.54292 50.60501 50.60501 0.000000 210.3653 326.6451 326.3879 312.5172 320.5380 50.57352 50.57352 50.57352 51.22580 52.52126 50.57352 50.57352 0.000000 76.32041 196.1064 191.6194 182.5321 183.4496 56.00032 56.00032 56.00032 55.91289 55.67975 56.00032 56.00032 0.000000 119.0251 260.2399 247.3414 225.7912 227.4171 53.81625 53.81625 53.81625 54.31313 55.09066 53.81625 53.81625 0.000000 134.0236 273.2733 258.4582 236.2116 238.0563 53.04568 53.04568 53.04568 53.72901 54.66648 53.04568 53.04568 0.000000 139.3141 279.9824 265.0088 243.1649 245.4611 52.57386 52.57386 52.57386 53.30101 54.35352 52.57386 52.57386 0.000000 142.9373 284.2130 270.2241 248.7765 251.3878 52.21873 52.21873 52.21873 53.00975 54.15420 52.21873 52.21873 0.000000 146.1011 287.7032 274.3292 253.7267 256.5710 51.98224 51.98224 51.98224 52.83278 53.97362 51.98224 51.98224 0.000000 148.8842 290.8215 278.1323 257.9726 261.1346 51.78647 51.78647 51.78647 52.61179 53.82409 51.78647 51.78647 0.000000 151.5200 293.5317 281.5336 261.8101 265.2552 51.64821 51.64821 51.64821 52.47612 53.65422 51.64821 51.64821 0.000000 154.1113 295.9835 284.7171 265.4455 269.1503 51.47549 51.47549 51.47549 52.31555 53.58507 51.47549 51.47549 0.000000 156.6212 298.2857 287.6061 268.7117 272.8164 51.37595 51.37595 51.37595 52.19342 53.44509 51.37595 51.37595 0.000000 158.9856 300.2280 290.2908 271.8651 276.1957 51.25383 51.25383 51.25383 52.11288 53.35270 51.25383 51.25383 0.000000 161.1186 302.4537 293.0645 274.8225 279.3636 51.16198 51.16198 51.16198 51.96105 53.25162 51.16198 51.16198 0.000000 163.5538 304.1276 295.3184 277.6407 282.3808 51.10452 51.10452 51.10452 51.91281 53.20062 51.10452 51.10452 0.000000 165.5617 305.8766 297.7639 280.3667 285.2968 51.03316 51.03316 51.03316 51.79439 53.08580 51.03316 51.03316 0.000000 167.6740 307.7373 299.9861 283.0399 288.1528 50.94907 50.94907 50.94907 51.72736 53.02270 50.94907 50.94907 0.000000 169.9207 309.1176 302.2443 285.5119 290.7967 50.90467 50.90467 50.90467 51.65262 52.95464 50.90467 50.90467 0.000000 171.9108 310.9691 304.3274 287.8015 293.4393 50.85081 50.85081 50.85081 51.62798 52.88219 50.85081 50.85081 0.000000 173.9292 312.3705 306.2506 290.3013 295.9139 50.83778 50.83778 50.83778 51.54031 52.86261 50.83778 50.83778 0.000000 175.9913 313.9678 308.2755 292.4707 298.4320 50.76780 50.76780 50.76780 51.50388 52.78263 50.76780 50.76780 0.000000 177.8169 315.1292 310.1724 294.6986 300.8135 50.74014 50.74014 50.74014 51.46238 52.75611 50.74014 50.74014 0.000000 182.8348 316.8408 312.2036 296.8087 303.2745 50.70581 50.70581 50.70581 51.41628 52.67003 50.70581 50.70581 0.000000 184.9991 317.8019 313.8747 299.0070 305.6252 50.66603 50.66603 50.66603 51.36596 52.63777 50.66603 50.66603 0.000000 187.4125 319.3385 315.7024 300.9069 307.6619 50.62096 50.62096 50.62096 51.31181 52.60297 50.62096 50.62096 0.000000 189.7898 320.8000 317.4404 302.9153 310.0247 50.61996 50.61996 50.61996 51.25412 52.56583 50.61996 50.61996 0.000000 192.1209 321.8507 319.0933 304.8398 312.0864 50.61439 50.61439 50.61439 51.24934 52.47036 50.61439 50.61439 0.000000 194.4087 323.1729 320.6672 306.8937 314.0640 50.55565 50.55565 50.55565 51.18529 52.42913 50.55565 50.55565 0.000000 196.6553 324.0878 322.4371 308.6657 316.1844 50.54188 50.54188 50.54188 51.17448 52.44205 50.54188 50.54188 0.000000 198.8629 325.2869 324.1418 310.3673 318.2344 50.52356 50.52356 50.52356 51.16096 52.39716 50.52356 50.52356 0.000000 201.0338 326.4310 325.5082 312.2187 320.2190 50.50253 50.50253 50.50253 51.08889 52.35064 50.50253 50.50253 0.000000 203.1673 327.5229 327.0905 314.0116 322.1408 50.47825 50.47825 50.47825 51.07045 52.30261 50.47825 50.47825 0.000000 205.2696 328.5655 328.6164 315.7488 324.0042 50.49971 50.49971 50.49971 51.04975 52.25317 50.49971 50.49971 0.000000 207.7322 329.9187 330.0901 317.4326 326.0468 50.46948 50.46948 50.46948 51.02694 52.25810 50.46948 50.46948 0.000000 209.7786 330.8712 331.5135 319.2927 328.0403 50.43655 50.43655 50.43655 51.00212 52.20600 50.43655 50.43655 0.000000 211.7958 332.1444 333.1773 321.1094 329.7465 50.44899 50.44899 50.44899 50.97541 52.15273 50.44899 50.44899 0.000000 214.1979 333.0164 334.5096 322.6530 331.4046 50.41121 50.41121 50.41121 50.94691 52.15386 50.41121 50.41121 0.000000 216.1667 333.8495 335.7976 324.1533 333.5071 50.41975 50.41975 50.41975 50.91671 52.09834 50.41975 50.41975 0.000000 218.5365 335.0143 337.0442 325.8468 335.0775 50.37746 50.37746 50.37746 50.88491 52.09726 50.37746 50.37746 0.000000 220.4610 336.1470 338.5473 327.5034 336.8557 50.38168 50.38168 50.38168 50.90714 52.03973 50.38168 50.38168 0.000000 222.8132 336.8761 340.0167 328.8860 338.5970 50.38388 50.38388 50.38388 50.87229 52.03663 50.38388 50.38388 0.000000 224.6979 337.9479 341.1507 330.7144 340.3023 50.38416 50.38416 50.38416 50.83606 52.03259 50.38416 50.38416 0.000000 227.0150 338.9919 342.5533 332.0275 341.9740 50.38260 50.38260 50.38260 50.85397 51.97237 50.38260 50.38260 0.000000 229.3245 339.6292 343.9255 333.7980 343.8734 50.37929 50.37929 50.37929 50.81510 51.96657 50.37929 50.37929 0.000000 231.6270 341.0009 344.9590 335.0461 345.2203 50.37428 50.37428 50.37428 50.77503 51.95995 50.37428 50.37428 0.000000 233.4457 341.5831 346.5828 336.7626 347.0624 50.36677 50.36677 50.36677 50.78915 51.89739 50.36677 50.36677 0.000000 235.7285 342.5238 347.5573 337.9509 348.6126 50.35846 50.35846 50.35846 50.74677 51.88923 50.35846 50.35846 0.000000 238.0062 343.4414 349.1320 339.6173 350.1339 50.34865 50.34865 50.34865 50.75862 51.87787 50.34865 50.34865 0.000000 239.7803 344.3367 350.0495 340.7486 351.8998 50.33741 50.33741 50.33741 50.71410 51.86828 50.33741 50.33741 0.000000 242.0417 345.2097 351.5781 342.3681 353.6440 50.32480 50.32480 50.32480 50.72385 51.85802 50.32480 50.32480 0.000000 244.2995 346.0627 352.4437 343.9677 354.8139 50.35942 50.35942 50.35942 50.73262 51.79214 50.35942 50.35942 0.000000 246.5543 346.8954 353.9294 345.0229 356.5116 50.34418 50.34418 50.34418 50.68517 51.78061 50.34418 50.34418 0.000000 76.32949 196.2273 191.7930 182.8282 183.7763 56.04659 56.04659 56.04659 55.90493 55.70790 56.04659 56.04659 0.000000 120.6979 262.7225 249.0549 227.4554 229.1121 53.50257 53.50257 53.50257 54.05194 54.93725 53.50257 53.50257 0.000000 134.9359 275.6718 260.7029 238.6697 240.7129 52.66697 52.66697 52.66697 53.37968 54.43247 52.66697 52.66697 0.000000 140.2857 282.4308 267.8408 246.4629 248.8863 52.17915 52.17915 52.17915 52.94085 54.07284 52.17915 52.17915 0.000000 144.2606 287.1463 273.5926 252.9451 255.7282 51.83146 51.83146 51.83146 52.61590 53.81298 51.83146 51.83146 0.000000 147.7362 291.2390 278.4509 258.4716 261.6700 51.58381 51.58381 51.58381 52.39108 53.62209 51.58381 51.58381 0.000000 151.0109 294.5832 282.7084 263.4595 267.0226 51.41539 51.41539 51.41539 52.17234 53.45607 51.41539 51.41539 0.000000 154.0065 297.7046 286.6785 268.1118 272.0052 51.24392 51.24392 51.24392 52.03106 53.26575 51.24392 51.24392 0.000000 157.0545 300.4994 290.3642 272.3449 276.7075 51.13027 51.13027 51.13027 51.86020 53.17171 51.13027 51.13027 0.000000 159.8846 303.3861 293.9180 276.3119 280.9568 50.98393 50.98393 50.98393 51.77769 53.06238 50.98393 50.98393 0.000000 162.6722 305.8680 297.2269 280.1303 285.0421 50.91099 50.91099 50.91099 51.62152 52.94065 50.91099 50.91099 0.000000 165.3387 308.3096 300.3695 283.7162 288.8772 50.81567 50.81567 50.81567 51.56314 52.86547 50.81567 50.81567 0.000000 168.0519 310.4554 303.1699 287.1329 292.7216 50.75065 50.75065 50.75065 51.49086 52.72472 50.75065 50.75065 0.000000 170.7143 312.6591 306.1537 290.6213 296.2528 50.71849 50.71849 50.71849 51.40668 52.68958 50.71849 50.71849 0.000000 173.2098 314.6379 308.8842 293.6615 299.7043 50.67138 50.67138 50.67138 51.31223 52.59121 50.67138 50.67138 0.000000 175.8403 316.7441 311.3851 296.8566 303.3220 50.61214 50.61214 50.61214 51.26501 52.54329 50.61214 50.61214 0.000000 181.1741 318.6761 314.1912 299.6496 306.3161 50.59068 50.59068 50.59068 51.20964 52.43393 50.59068 50.59068 0.000000 184.1172 320.4493 316.5620 302.6600 309.5345 50.55916 50.55916 50.55916 51.14699 52.37603 50.55916 50.55916 0.000000 186.9538 322.0773 319.0299 305.5091 312.5822 50.51768 50.51768 50.51768 51.07784 52.31388 50.51768 50.51768 0.000000 190.0526 323.9160 321.6201 308.2105 315.6947 50.46881 50.46881 50.46881 51.05865 52.30367 50.46881 50.46881 0.000000 193.0870 325.6384 323.8084 310.7746 318.6689 50.46125 50.46125 50.46125 50.97821 52.23409 50.46125 50.46125 0.000000 195.7054 327.2529 325.8696 313.6481 321.7453 50.44602 50.44602 50.44602 50.94859 52.16135 50.44602 50.44602 0.000000 198.6137 328.7669 328.3728 315.9724 324.2428 50.42557 50.42557 50.42557 50.91439 52.14123 50.42557 50.42557 0.000000 201.8404 330.5454 330.2111 318.6354 327.0956 50.39933 50.39933 50.39933 50.87596 52.06286 50.39933 50.39933 0.000000 204.6542 332.2438 332.5191 321.2071 329.8508 50.41636 50.41636 50.41636 50.88915 52.03737 50.41636 50.41636 0.000000 207.8128 333.4997 334.7430 323.6924 332.5153 50.37977 50.37977 50.37977 50.84312 52.00948 50.37977 50.37977 0.000000 210.5425 335.0468 336.8863 326.0972 335.0932 50.38713 50.38713 50.38713 50.79375 51.97935 50.38713 50.38713 0.000000 213.6403 336.5253 338.6554 328.4247 337.5903 50.39016 50.39016 50.39016 50.79661 51.94713 50.39016 50.39016 0.000000 216.2948 337.9405 340.6480 330.6796 340.5206 50.33951 50.33951 50.33951 50.74111 51.91295 50.33951 50.33951 0.000000 219.3396 339.2951 342.8776 332.8665 342.8739 50.38301 50.38301 50.38301 50.73815 51.87448 50.38301 50.38301 0.000000 222.3762 340.9744 344.7407 334.9878 345.1575 50.32572 50.32572 50.32572 50.73254 51.83676 50.32572 50.32572 0.000000 225.3861 342.2195 346.5418 337.2984 347.9072 50.36221 50.36221 50.36221 50.66919 51.79744 50.36221 50.36221 0.000000 227.9210 343.4123 348.2850 339.5558 350.0678 50.34690 50.34690 50.34690 50.65872 51.75658 50.34690 50.34690 0.000000 230.8905 344.5547 349.9711 341.5043 352.7137 50.32856 50.32856 50.32856 50.64602 51.71431 50.32856 50.32856 0.000000 233.8467 346.0439 352.2451 343.9197 354.7623 50.35592 50.35592 50.35592 50.62836 51.67067 50.35592 50.35592 0.000000 236.7907 347.4933 353.8320 345.7678 357.3141 50.33196 50.33196 50.33196 50.61148 51.68043 50.33196 50.33196 0.000000 239.7237 348.5045 355.3695 348.0988 359.8257 50.35398 50.35398 50.35398 50.59269 51.63424 50.35398 50.35398 0.000000 243.1553 349.8754 357.5186 349.8543 361.7253 50.32495 50.32495 50.32495 50.57207 51.58691 50.32495 50.32495 0.000000 245.5605 351.2115 358.9679 352.1077 364.1546 50.34212 50.34212 50.34212 50.54974 51.59300 50.34212 50.34212 0.000000 248.4809 352.1060 361.0445 354.0527 366.5490 50.35612 50.35612 50.35612 50.58074 51.54346 50.35612 50.35612 0.000000 251.3774 353.7841 362.4121 355.9601 368.9097 50.36896 50.36896 50.36896 50.55513 51.54738 50.36896 50.36896 0.000000 254.8160 354.6093 364.4217 358.1118 370.6392 50.37973 50.37973 50.37973 50.52802 51.49584 50.37973 50.37973 0.000000 257.7106 356.2307 365.7133 360.2345 372.9299 50.38853 50.38853 50.38853 50.49947 51.49776 50.38853 50.38853 0.000000 260.6003 356.9909 367.6598 361.7553 375.1909 50.39543 50.39543 50.39543 50.52444 51.49875 50.39543 50.39543 0.000000 263.4859 358.5614 368.8806 363.8169 377.4230 50.40051 50.40051 50.40051 50.49314 51.44448 50.40051 50.40051 0.000000 266.3681 359.2612 370.7703 365.8525 379.6276 50.40383 50.40383 50.40383 50.51546 51.44371 50.40383 50.40383 0.000000 269.8491 360.7833 372.6358 367.8632 381.8062 50.40547 50.40547 50.40547 50.48164 51.38784 50.40547 50.40547 0.000000 272.1248 361.4266 373.7603 369.2549 383.9593 50.40548 50.40548 50.40548 50.44665 51.38544 50.40548 50.40548 0.000000 275.6227 362.9035 375.5735 371.2124 385.7659 50.40393 50.40393 50.40393 50.46533 51.38226 50.40393 50.40393 0.000000 278.5078 363.9275 377.3650 373.1475 387.5424 50.40087 50.40087 50.40087 50.48291 51.37835 50.40087 50.40087 0.000000 76.33725 196.3034 191.9004 183.0181 183.9902 56.02103 56.02103 56.02103 55.88164 55.79047 56.02103 56.02103 0.000000 121.5683 264.2354 250.2644 228.5548 230.2495 53.32209 53.32209 53.32209 53.84801 54.74413 53.32209 53.32209 0.000000 135.5072 277.3870 262.1361 240.3761 242.4354 52.43882 52.43882 52.43882 53.06649 54.20590 52.43882 52.43882 0.000000 141.0996 284.1702 269.6919 248.9299 251.5411 51.91284 51.91284 51.91284 52.60190 53.84937 51.91284 51.91284 0.000000 145.2789 289.3943 275.8883 255.8809 259.0331 51.55581 51.55581 51.55581 52.29042 53.58020 51.55581 51.55581 0.000000 148.9257 293.6243 281.2791 262.1914 265.6573 51.33283 51.33283 51.33283 52.06650 53.31459 51.33283 51.33283 0.000000 152.3425 297.5723 286.2032 267.7419 271.7733 51.12718 51.12718 51.12718 51.84083 53.12682 51.12718 51.12718 0.000000 155.8012 300.9595 290.5756 273.0611 277.2990 50.96085 50.96085 50.96085 51.68351 52.96844 50.96085 50.96085 0.000000 159.0729 304.2627 294.8376 277.9158 282.6676 50.84818 50.84818 50.84818 51.55231 52.84544 50.84818 50.84818 0.000000 162.2330 307.3279 298.9367 282.4692 287.5399 50.79698 50.79698 50.79698 51.45095 52.70518 50.79698 50.79698 0.000000 165.3438 309.9400 302.5242 286.8483 292.2209 50.66587 50.66587 50.66587 51.32761 52.60733 50.66587 50.66587 0.000000 168.4587 312.7982 306.1519 290.7778 296.8187 50.60797 50.60797 50.60797 51.24231 52.49761 50.60797 50.60797 0.000000 171.6249 315.3332 309.4085 294.8925 301.0189 50.57742 50.57742 50.57742 51.14143 52.43392 50.57742 50.57742 0.000000 174.5989 317.9137 312.8421 298.6837 305.2809 50.52737 50.52737 50.52737 51.08313 52.36140 50.52737 50.52737 0.000000 177.3947 320.2485 315.9985 302.3892 309.4592 50.51057 50.51057 50.51057 51.01306 52.28122 50.51057 50.51057 0.000000 183.6877 322.7035 319.1687 306.0490 313.3792 50.47946 50.47946 50.47946 50.98840 52.19435 50.47946 50.47946 0.000000 187.1041 324.9669 322.1198 309.4883 317.2884 50.43501 50.43501 50.43501 50.89881 52.10160 50.43501 50.43501 0.000000 190.7679 327.0555 325.1448 312.9425 320.9916 50.38027 50.38027 50.38027 50.85664 52.05898 50.38027 50.38027 0.000000 194.0048 328.9836 327.9946 316.2195 324.5067 50.41254 50.41254 50.41254 50.86251 52.01146 50.41254 50.41254 0.000000 197.5098 331.1236 330.6816 319.5586 328.3245 50.38694 50.38694 50.38694 50.80611 51.95951 50.38694 50.38694 0.000000 201.3183 333.1359 333.5067 322.7540 331.7556 50.35202 50.35202 50.35202 50.74361 51.90355 50.35202 50.35202 0.000000 204.7047 335.0287 336.1999 326.0522 335.0450 50.35854 50.35854 50.35854 50.73083 51.84148 50.35854 50.35854 0.000000 208.4267 336.8090 338.7695 328.9933 338.4549 50.35795 50.35795 50.35795 50.71284 51.77855 50.35795 50.35795 0.000000 211.7090 338.8631 341.2237 331.8174 341.7485 50.35081 50.35081 50.35081 50.63487 51.76737 50.35081 50.35081 0.000000 215.3551 340.8274 343.8756 334.7797 345.1963 50.33760 50.33760 50.33760 50.65998 51.69844 50.33760 50.33760 0.000000 218.9731 342.7071 346.4329 337.6464 348.5521 50.31876 50.31876 50.31876 50.62855 51.68159 50.31876 50.31876 0.000000 222.5764 344.5070 348.9019 340.9343 351.5482 50.34322 50.34322 50.34322 50.59329 51.60756 50.34322 50.34322 0.000000 226.1471 346.2307 351.2855 343.6325 354.7295 50.36280 50.36280 50.36280 50.55447 51.58582 50.36280 50.36280 0.000000 229.6964 347.8840 353.5896 346.2496 357.8331 50.32824 50.32824 50.32824 50.56729 51.56184 50.32824 50.32824 0.000000 233.2264 349.4694 355.8177 349.0580 361.1482 50.38758 50.38758 50.38758 50.52195 51.53577 50.38758 50.38758 0.000000 236.7387 350.9897 358.3047 351.7998 363.8227 50.34566 50.34566 50.34566 50.52859 51.50772 50.34566 50.34566 0.000000 240.2349 352.4495 360.7305 354.4797 367.0102 50.39713 50.39713 50.39713 50.53242 51.47783 50.39713 50.39713 0.000000 244.2288 354.2626 362.7585 357.1000 369.8450 50.39636 50.39636 50.39636 50.47866 51.44618 50.39636 50.39636 0.000000 247.7237 356.0262 365.0661 359.9469 372.6195 50.39216 50.39216 50.39216 50.47729 51.41288 50.39216 50.39216 0.000000 251.1909 357.3237 367.3204 362.1724 375.6426 50.38471 50.38471 50.38471 50.47353 51.37803 50.38471 50.38471 0.000000 255.1963 358.5700 369.1725 364.9205 378.6180 50.42284 50.42284 50.42284 50.46750 51.34169 50.42284 50.42284 0.000000 258.6548 360.6188 371.6775 367.6265 381.5498 50.40936 50.40936 50.40936 50.45827 51.30396 50.40936 50.40936 0.000000 262.1050 361.7740 373.4271 369.6960 384.4391 50.44177 50.44177 50.44177 50.44937 51.31895 50.44177 50.44177 0.000000 266.1364 363.3161 375.8474 372.3155 387.2876 50.47073 50.47073 50.47073 50.43637 51.27856 50.47073 50.47073 0.000000 270.1884 364.8195 377.8662 374.8981 389.4414 50.44922 50.44922 50.44922 50.42228 51.23697 50.44922 50.44922 0.000000 273.6449 366.2877 379.8425 377.4452 392.2045 50.47408 50.47408 50.47408 50.40641 51.24815 50.47408 50.47408 0.000000 277.0974 367.7206 382.1520 379.9583 394.9326 50.49663 50.49663 50.49663 50.38883 51.20426 50.49663 50.49663 0.000000 281.1889 369.1197 384.0519 382.4395 392.7076 50.51696 50.51696 50.51696 50.42434 51.15934 50.51696 50.51696 0.000000 285.3057 370.4850 385.9153 384.8896 395.1954 50.53431 50.53431 50.53431 50.40352 51.16719 50.53431 50.53431 0.000000 288.7875 372.2722 388.1254 386.9850 397.6493 50.55076 50.55076 50.55076 50.38120 51.12025 50.55076 50.55076 0.000000 292.2585 373.1231 390.3072 389.0460 400.7482 50.56467 50.56467 50.56467 50.35744 51.12611 50.56467 50.56467 0.000000 296.4280 374.8560 391.6802 391.4015 403.1449 50.57624 50.57624 50.57624 50.38696 51.13104 50.57624 50.57624 0.000000 300.6272 376.1043 393.8002 393.7309 406.2050 50.58770 50.58770 50.58770 50.36045 51.08134 50.58770 50.58770 0.000000 304.1265 377.3248 395.8964 391.2191 406.2374 50.59550 50.59550 50.59550 50.38732 51.08449 50.59550 50.59550 0.000000 307.6281 378.9865 397.9668 393.3512 408.3653 50.60240 50.60240 50.60240 50.35825 51.03316 50.60240 50.60240 0.000000 76.34433 196.3649 191.9789 183.1642 184.1576 56.04567 56.04567 56.04567 55.91415 55.80644 56.04567 56.04567 0.000000 122.2605 265.2992 251.0358 229.3987 231.1079 53.14202 53.14202 53.14202 53.66157 54.64535 53.14202 53.14202 0.000000 135.9721 278.5271 263.1559 241.6657 243.8300 52.24250 52.24250 52.24250 52.87548 54.06277 52.24250 52.24250 0.000000 141.6094 285.6865 271.2849 250.7713 253.5256 51.71487 51.71487 51.71487 52.37365 53.64344 51.71487 51.71487 0.000000 145.8892 291.0095 277.9633 258.2952 261.6288 51.38592 51.38592 51.38592 52.06644 53.35978 51.38592 51.38592 0.000000 149.8258 295.7936 283.7622 265.1075 268.9436 51.12640 51.12640 51.12640 51.77613 53.13072 51.12640 51.12640 0.000000 153.5277 299.9640 289.0346 271.2557 275.5373 50.92624 50.92624 50.92624 51.59471 52.91706 50.92624 50.92624 0.000000 157.2693 303.8138 293.9237 276.9712 281.6587 50.80907 50.80907 50.80907 51.47837 52.72958 50.80907 50.80907 0.000000 160.8178 307.2472 298.4457 282.3508 287.4143 50.68953 50.68953 50.68953 51.32459 52.63128 50.68953 50.68953 0.000000 164.2489 310.7158 303.0082 287.4031 293.0080 50.62754 50.62754 50.62754 51.19756 52.45742 50.62754 50.62754 0.000000 167.6262 313.7021 307.0273 292.2611 298.4035 50.53204 50.53204 50.53204 51.10237 52.38017 50.53204 50.53204 0.000000 171.0046 316.5965 311.0755 297.0333 303.5088 50.50519 50.50519 50.50519 51.04272 52.23384 50.50519 50.50519 0.000000 174.4324 319.8041 314.7272 301.4044 308.1908 50.45523 50.45523 50.45523 50.96571 52.18776 50.45523 50.45523 0.000000 177.6595 322.3764 318.5536 305.8347 312.9283 50.43295 50.43295 50.43295 50.87386 52.07635 50.43295 50.43295 0.000000 184.1130 325.0207 322.0825 309.9645 317.7968 50.39372 50.39372 50.39372 50.82460 52.01196 50.39372 50.39372 0.000000 188.2939 327.4271 325.6183 314.2611 322.1688 50.38737 50.38737 50.38737 50.76389 51.94006 50.38737 50.38737 0.000000 192.3977 329.9749 328.9192 318.1048 326.5251 50.36605 50.36605 50.36605 50.74833 51.85909 50.36605 50.36605 0.000000 196.0617 332.6984 332.2909 321.9604 330.9018 50.38137 50.38137 50.38137 50.66837 51.77473 50.38137 50.38137 0.000000 199.9932 334.8910 335.4741 325.8597 335.0878 50.33680 50.33680 50.33680 50.63546 51.73990 50.33680 50.33680 0.000000 204.2317 337.2967 338.7799 329.3503 339.0952 50.33061 50.33061 50.33061 50.64732 51.70015 50.33061 50.33061 0.000000 208.4300 339.5641 341.9332 333.1676 343.1968 50.36370 50.36370 50.36370 50.60003 51.65593 50.36370 50.36370 0.000000 212.1822 341.7021 344.9438 336.8500 347.1559 50.33967 50.33967 50.33967 50.54657 51.60762 50.33967 50.33967 0.000000 216.2938 344.1086 347.8211 340.4064 350.9815 50.35547 50.35547 50.35547 50.54240 51.55557 50.35547 50.35547 0.000000 220.3735 346.0164 350.8909 343.8454 355.2350 50.36511 50.36511 50.36511 50.53294 51.50008 50.36511 50.36511 0.000000 224.4361 348.2169 353.8527 347.1737 358.8287 50.36806 50.36806 50.36806 50.51857 51.44143 50.36806 50.36806 0.000000 228.4627 350.3256 356.7121 350.3978 362.3111 50.36480 50.36480 50.36480 50.49965 51.43408 50.36480 50.36480 0.000000 232.9395 352.3473 359.4748 354.0732 366.2742 50.40437 50.40437 50.40437 50.47650 51.36969 50.40437 50.40437 0.000000 236.9341 354.2876 362.1457 357.1150 370.1594 50.43858 50.43858 50.43858 50.44763 51.35688 50.43858 50.43858 0.000000 241.4119 356.1491 365.0724 360.6367 373.3641 50.41901 50.41901 50.41901 50.41877 51.28752 50.41901 50.41901 0.000000 245.3830 358.3588 367.9245 363.5141 377.0952 50.44339 50.44339 50.44339 50.43860 51.26994 50.44339 50.44339 0.000000 249.8843 360.0807 370.3552 366.8985 380.7610 50.46352 50.46352 50.46352 50.40103 51.25017 50.46352 50.46352 0.000000 253.8366 361.7357 373.0669 369.9261 384.3655 50.47826 50.47826 50.47826 50.41511 51.22834 50.47826 50.47826 0.000000 258.3372 363.7600 375.7150 372.8889 387.9114 50.49006 50.49006 50.49006 50.42627 51.20457 50.49006 50.49006 0.000000 262.8567 365.7304 378.3023 376.0961 391.4017 50.54691 50.54691 50.54691 50.37992 51.17897 50.54691 50.54691 0.000000 266.8040 367.2087 380.8303 379.2540 394.8380 50.55082 50.55082 50.55082 50.38566 51.15162 50.55082 50.55082 0.000000 271.3501 369.0761 383.6790 382.3643 392.6290 50.55160 50.55160 50.55160 50.38891 51.12263 50.55160 50.55160 0.000000 275.9199 370.8957 385.7228 385.4290 395.7405 50.59817 50.59817 50.59817 50.38977 51.09208 50.59817 50.59817 0.000000 280.5150 372.6710 388.4747 388.4493 399.4766 50.59246 50.59246 50.59246 50.38838 51.06004 50.59246 50.59246 0.000000 285.1372 374.4032 391.1860 390.7694 402.5000 50.63310 50.63310 50.63310 50.38483 51.02659 50.63310 50.63310 0.000000 289.1252 376.0938 393.0717 393.7004 406.1718 50.62193 50.62193 50.62193 50.37921 50.99180 50.62193 50.62193 0.000000 293.7898 377.7443 395.6972 391.7410 406.6265 50.65710 50.65710 50.65710 50.37162 51.00923 50.65710 50.65710 0.000000 297.7794 379.3561 398.2865 394.4122 409.5103 50.68974 50.68974 50.68974 50.36214 50.97187 50.68974 50.68974 0.000000 302.4901 380.9308 400.8409 397.0467 413.0681 50.71993 50.71993 50.71993 50.34775 50.98682 50.71993 50.71993 0.000000 307.2348 382.9466 402.5420 400.3214 415.8820 50.74780 50.74780 50.74780 50.38943 50.94712 50.74780 50.74780 0.000000 312.0147 383.9731 405.0226 402.8921 419.3919 50.77340 50.77340 50.77340 50.37477 50.90636 50.77340 50.77340 0.000000 316.8312 385.9272 407.4723 406.1228 422.1411 50.79685 50.79685 50.79685 50.35852 50.91792 50.79685 50.79685 0.000000 321.6858 387.8566 409.8909 406.1492 425.6077 50.81725 50.81725 50.81725 50.34075 50.87510 50.81725 50.81725 0.000000 326.5798 388.7761 412.2820 408.6148 428.2970 50.83651 50.83651 50.83651 50.37613 50.88462 50.83651 50.83651 0.000000 331.5144 390.6495 414.6452 411.7604 431.7245 50.85382 50.85382 50.85382 50.35543 50.83989 50.85382 50.85382 0.000000 336.4911 392.5005 416.9814 414.1742 434.3579 50.86844 50.86844 50.86844 50.38801 50.84753 50.86844 50.86844 0.000000 76.35100 196.4032 192.0381 183.2668 184.2788 56.06519 56.06519 56.06519 55.87538 55.81932 56.06519 56.06519 0.000000 122.7920 265.9975 251.7603 230.0635 231.7177 53.03100 53.03100 53.03100 53.50459 54.55749 53.03100 53.03100 0.000000 136.3156 279.4633 264.1362 242.7686 245.0193 52.04621 52.04621 52.04621 52.70212 53.89403 52.04621 52.04621 0.000000 141.9243 286.7158 272.5327 252.2892 255.1594 51.55672 51.55672 51.55672 52.21365 53.46588 51.55672 51.55672 0.000000 146.4431 292.5598 279.5766 260.4202 263.7525 51.19602 51.19602 51.19602 51.84678 53.16378 51.19602 51.19602 0.000000 150.5091 297.2561 285.6793 267.6406 271.4940 50.94400 50.94400 50.94400 51.60266 52.91046 50.94400 50.94400 0.000000 154.5573 301.8495 291.4228 274.1422 278.6303 50.79374 50.79374 50.79374 51.40350 52.72528 50.79374 50.79374 0.000000 158.2935 305.7916 296.7577 280.3421 285.4473 50.66957 50.66957 50.66957 51.26463 52.56277 50.66957 50.66957 0.000000 162.0637 309.8999 301.4657 286.1840 291.7019 50.58823 50.58823 50.58823 51.14130 52.37432 50.58823 50.58823 0.000000 165.8440 313.4022 306.4289 291.8669 297.5804 50.51040 50.51040 50.51040 51.04159 52.27699 50.51040 50.51040 0.000000 169.5776 316.7113 310.8256 297.1571 303.6405 50.44563 50.44563 50.44563 50.91547 52.16240 50.44563 50.44563 0.000000 173.1788 319.9158 315.2414 302.1466 309.1967 50.39878 50.39878 50.39878 50.87851 52.03354 50.39878 50.39878 0.000000 176.8289 323.0867 319.5071 307.1217 314.5259 50.37569 50.37569 50.37569 50.76723 51.94787 50.37569 50.37569 0.000000 183.6309 326.2842 323.4129 311.9483 319.9221 50.37891 50.37891 50.37891 50.75052 51.84920 50.37891 50.37891 0.000000 187.8986 329.2041 327.5517 316.4584 324.7616 50.36139 50.36139 50.36139 50.66438 51.79880 50.36139 50.36139 0.000000 192.3999 332.2345 331.4180 321.1373 329.7758 50.37620 50.37620 50.37620 50.61819 51.68541 50.37620 50.37620 0.000000 196.4545 335.0482 335.3282 325.5765 335.0323 50.37582 50.37582 50.37582 50.61875 51.61964 50.37582 50.37582 0.000000 201.1408 337.6611 339.0216 329.7944 339.5710 50.36184 50.36184 50.36184 50.55431 51.60198 50.36184 50.36184 0.000000 205.3939 340.0905 342.5135 334.3038 344.4152 50.33469 50.33469 50.33469 50.53598 51.52387 50.33469 50.33469 0.000000 209.9744 342.7359 345.8194 338.1414 349.0850 50.39475 50.39475 50.39475 50.50955 51.49490 50.39475 50.39475 0.000000 214.5150 345.2328 349.5844 342.3188 353.5908 50.39611 50.39611 50.39611 50.47575 51.40676 50.39611 50.39611 0.000000 219.0194 347.9911 352.8869 346.3537 357.9452 50.38824 50.38824 50.38824 50.43524 51.36848 50.38824 50.38824 0.000000 223.5024 350.2272 356.0471 350.2550 362.4441 50.42052 50.42052 50.42052 50.44223 51.32611 50.42052 50.42052 0.000000 227.9469 352.3420 359.4066 354.5823 366.8233 50.44499 50.44499 50.44499 50.44667 51.27997 50.44499 50.44499 0.000000 232.8385 354.7564 362.6505 358.2515 371.3894 50.46136 50.46136 50.46136 50.38748 51.23035 50.46136 50.46136 0.000000 237.7376 357.0717 365.7851 361.8091 375.2493 50.47192 50.47192 50.47192 50.43432 51.23141 50.47192 50.47192 0.000000 242.1398 359.2953 369.1653 365.8458 379.6205 50.47623 50.47623 50.47623 50.36709 51.17550 50.47623 50.47623 0.000000 247.0448 361.4312 372.4594 369.8046 383.9105 50.52259 50.52259 50.52259 50.40500 51.11683 50.52259 50.52259 0.000000 251.4395 363.9176 375.3093 373.0836 388.1233 50.56527 50.56527 50.56527 50.38417 51.10925 50.56527 50.56527 0.000000 256.3564 366.3343 378.4362 376.8878 392.2623 50.55194 50.55194 50.55194 50.35958 51.09914 50.55194 50.55194 0.000000 261.2926 368.2415 381.4875 380.6269 390.8615 50.58346 50.58346 50.58346 50.38611 51.03302 50.58346 50.58346 0.000000 266.2505 370.0756 384.4673 384.3044 394.5975 50.61055 50.61055 50.61055 50.35461 51.01831 50.61055 50.61055 0.000000 271.2320 372.2939 387.3796 387.9232 398.9393 50.68240 50.68240 50.68240 50.37460 51.00149 50.68240 50.68240 0.000000 276.2391 374.4551 390.6141 391.4852 402.5551 50.70112 50.70112 50.70112 50.33380 50.98267 50.70112 50.70112 0.000000 281.2738 376.0990 393.0102 394.9951 406.8054 50.71595 50.71595 50.71595 50.34797 50.96195 50.71595 50.71595 0.000000 286.3486 378.6155 396.1320 392.8431 407.8168 50.77631 50.77631 50.77631 50.35944 50.93943 50.77631 50.77631 0.000000 291.4456 380.1472 399.2051 396.0214 411.9579 50.78394 50.78394 50.78394 50.36835 50.91521 50.78394 50.78394 0.000000 296.5758 382.5741 402.2338 399.8248 415.3457 50.78728 50.78728 50.78728 50.37481 50.88936 50.78728 50.78728 0.000000 301.7408 384.0018 404.3918 402.9143 419.4159 50.83757 50.83757 50.83757 50.37893 50.86197 50.83757 50.83757 0.000000 306.9426 386.3461 407.3244 406.6531 422.7142 50.88488 50.88488 50.88488 50.38083 50.83311 50.88488 50.88488 0.000000 312.1826 388.1652 410.2157 407.1700 426.7209 50.92854 50.92854 50.92854 50.38058 50.80285 50.92854 50.92854 0.000000 317.4626 389.9439 413.0696 410.1184 430.7046 50.97042 50.97042 50.97042 50.37830 50.82444 50.97042 50.97042 0.000000 322.7842 392.1806 415.8864 413.7424 433.8867 50.96012 50.96012 50.96012 50.37405 50.78898 50.96012 50.96012 0.000000 328.1491 393.3816 418.6673 416.6203 437.8163 50.99678 50.99678 50.99678 50.36794 50.75478 50.99678 50.99678 0.000000 333.5588 395.5493 421.4128 420.1960 441.7272 51.03101 51.03101 51.03101 50.36002 50.77253 51.03101 51.03101 0.000000 339.8815 397.6895 424.1254 423.0086 445.6205 51.06291 51.06291 51.06291 50.40504 50.73599 51.06291 51.06291 0.000000 344.5368 398.7714 426.8059 426.5410 445.6575 51.09254 51.09254 51.09254 50.39372 50.75145 51.09254 51.09254 0.000000 350.0923 400.8477 429.4557 429.2929 448.6479 51.16980 51.16980 51.16980 50.43552 50.71273 51.16980 51.16980 0.000000 355.6992 402.9004 432.0743 432.7859 452.4373 51.19521 51.19521 51.19521 50.42103 50.67303 51.19521 51.19521 0.000000 361.3589 404.9290 434.6646 436.2663 456.2139 51.21754 51.21754 51.21754 50.40506 50.68535 51.21754 51.21754 0.000000 76.35197 196.4420 192.0971 183.3579 184.3763 56.02296 56.02296 56.02296 55.89730 55.83002 56.02296 56.02296 0.000000 123.1709 266.5716 252.2068 230.5680 232.2636 52.89242 52.89242 52.89242 53.38425 54.45521 52.89242 52.89242 0.000000 136.4884 280.1541 264.8518 243.6945 245.8874 51.91306 51.91306 51.91306 52.49731 53.76452 51.91306 51.91306 0.000000 142.2998 287.6566 273.5928 253.5235 256.4896 51.40243 51.40243 51.40243 52.01664 53.32320 51.40243 51.40243 0.000000 146.9206 293.6783 280.9189 262.0246 265.6319 51.05396 51.05396 51.05396 51.69796 52.99949 51.05396 51.05396 0.000000 151.1866 298.7780 287.4619 269.7226 273.7232 50.85359 50.85359 50.85359 51.44141 52.77605 50.85359 50.85359 0.000000 155.3193 303.4526 293.4014 276.6743 281.3399 50.69752 50.69752 50.69752 51.27756 52.56004 50.69752 50.69752 0.000000 159.2478 307.7385 298.8924 283.3047 288.4324 50.56305 50.56305 50.56305 51.11327 52.36420 50.56305 50.56305 0.000000 163.2099 311.8603 304.1977 289.5588 295.3120 50.51471 50.51471 50.51471 50.96153 52.19644 50.51471 50.51471 0.000000 167.3145 315.6624 309.2719 295.4478 301.8150 50.46737 50.46737 50.46737 50.88651 52.06197 50.46737 50.46737 0.000000 171.1051 319.5928 314.2569 301.3167 308.0925 50.38249 50.38249 50.38249 50.78300 51.96441 50.38249 50.38249 0.000000 174.8930 323.0796 319.0052 306.6752 314.2696 50.36234 50.36234 50.36234 50.71117 51.84891 50.36234 50.36234 0.000000 181.6162 326.5236 323.3201 312.2311 320.2240 50.36171 50.36171 50.36171 50.67437 51.77776 50.36171 50.36171 0.000000 186.2753 329.6300 327.8053 317.4209 325.7897 50.33797 50.33797 50.33797 50.61722 51.69519 50.33797 50.33797 0.000000 191.1273 332.7961 331.9646 322.5093 331.4892 50.34201 50.34201 50.34201 50.60273 51.60277 50.34201 50.34201 0.000000 195.5435 336.0701 336.4150 327.3094 336.8981 50.32772 50.32772 50.32772 50.51982 51.55618 50.32772 50.32772 0.000000 200.2127 339.1164 340.6190 332.3336 342.2982 50.34493 50.34493 50.34493 50.48009 51.44738 50.34493 50.34493 0.000000 205.1828 341.9532 344.5962 337.1404 347.4674 50.39721 50.39721 50.39721 50.48459 51.44028 50.39721 50.39721 0.000000 210.1090 344.5960 348.3632 341.7457 352.6963 50.38776 50.38776 50.38776 50.42281 51.37256 50.38776 50.38776 0.000000 214.9939 347.8552 352.5764 346.1650 357.7419 50.41508 50.41508 50.41508 50.41174 51.29919 50.41508 50.41508 0.000000 219.8416 350.1632 355.9769 350.6810 362.9040 50.43159 50.43159 50.43159 50.38874 51.27469 50.43159 50.43159 0.000000 224.6678 353.1338 359.8733 355.3241 367.9223 50.48615 50.48615 50.48615 50.41454 51.19144 50.48615 50.48615 0.000000 229.9185 355.9796 363.6323 359.8396 372.5037 50.48380 50.48380 50.48380 50.37896 51.15774 50.48380 50.48380 0.000000 235.1761 358.7094 367.2621 363.9457 377.5629 50.52144 50.52144 50.52144 50.39194 51.11998 50.52144 50.52144 0.000000 239.9443 360.9012 370.7691 368.5198 382.5180 50.55132 50.55132 50.55132 50.34457 51.07845 50.55132 50.55132 0.000000 245.2068 363.4117 374.1618 372.3972 387.3768 50.57387 50.57387 50.57387 50.40126 51.03345 50.57387 50.57387 0.000000 250.4994 366.2627 378.1757 376.7789 392.1438 50.63903 50.63903 50.63903 50.34365 51.03877 50.63903 50.63903 0.000000 255.7925 368.5881 381.3655 381.0795 391.3204 50.64893 50.64893 50.64893 50.39080 50.98745 50.64893 50.64893 0.000000 261.1067 370.8240 384.4565 385.3040 395.6102 50.70200 50.70200 50.70200 50.37584 50.98680 50.70200 50.70200 0.000000 266.4445 372.9762 388.2195 389.4558 400.4944 50.74961 50.74961 50.74961 50.36001 50.92997 50.74961 50.74961 0.000000 271.8081 375.5083 391.9159 393.5402 405.3260 50.79205 50.79205 50.79205 50.39504 50.92405 50.79205 50.79205 0.000000 277.8301 377.9739 394.7558 392.0059 406.9133 50.77938 50.77938 50.77938 50.37179 50.86238 50.77938 50.77938 0.000000 283.2721 379.9049 398.3145 395.6954 411.6048 50.86149 50.86149 50.86149 50.34517 50.85180 50.86149 50.86149 0.000000 288.7583 382.7176 401.8169 399.9966 415.5312 50.88990 50.88990 50.88990 50.36998 50.83906 50.88990 50.88990 0.000000 294.2700 384.5189 404.4367 403.5720 420.1286 50.91350 50.91350 50.91350 50.39175 50.82428 50.91350 50.91350 0.000000 299.8187 387.2281 407.8191 406.6599 424.6898 50.98353 50.98353 50.98353 50.41064 50.80504 50.98353 50.98353 0.000000 306.1418 388.9088 411.1500 408.7592 428.4542 51.00032 51.00032 51.00032 50.37207 50.78645 51.00032 51.00032 0.000000 311.7922 391.5229 414.4342 412.8713 432.9363 51.06314 51.06314 51.06314 50.38558 50.76612 51.06314 51.06314 0.000000 317.4860 393.0938 417.6721 416.2299 437.3889 51.07291 51.07291 51.07291 50.39659 50.74411 51.07291 51.07291 0.000000 324.0291 395.6200 420.8650 420.2756 441.8142 51.12914 51.12914 51.12914 50.40521 50.72052 51.12914 51.12914 0.000000 329.8379 398.1106 424.0155 424.2970 446.2137 51.18232 51.18232 51.18232 50.41155 50.69542 51.18232 51.18232 0.000000 336.5495 399.5306 427.1254 427.5350 446.7375 51.23152 51.23152 51.23152 50.41570 50.66888 51.23152 51.23152 0.000000 341.6223 401.9424 430.1953 431.4998 451.0392 51.27876 51.27876 51.27876 50.47256 50.64095 51.27876 51.27876 0.000000 348.4876 404.3224 433.2270 435.4447 455.3205 51.32330 51.32330 51.32330 50.47261 50.66463 51.32330 51.32330 0.000000 354.5313 405.6089 436.2234 438.5762 458.7260 51.36524 51.36524 51.36524 50.47073 50.63406 51.36524 51.36524 0.000000 360.6324 407.9167 439.1824 442.4728 462.9574 51.40376 51.40376 51.40376 50.46498 50.60229 51.40376 51.40376 0.000000 366.7929 410.1961 442.1082 445.9445 467.1725 51.44086 51.44086 51.44086 50.45927 50.62221 51.44086 51.44086 0.000000 373.0141 412.4501 445.0000 446.3707 471.3726 51.47564 51.47564 51.47564 50.50489 50.58810 51.47564 51.47564 0.000000 380.3297 414.1235 447.8605 450.1758 475.5588 51.50816 51.50816 51.50816 50.49585 50.55291 51.50816 51.50816 0.000000 386.7050 415.7638 450.6899 453.1290 478.8104 51.53851 51.53851 51.53851 50.54018 50.56947 51.53851 51.53851 0.000000 76.35275 196.4730 192.1368 183.4269 184.4502 56.03633 56.03633 56.03633 55.85089 55.83912 56.03633 56.03633 0.000000 123.4016 267.2505 252.5556 230.9554 232.6848 52.78537 52.78537 52.78537 53.24528 54.37153 52.78537 52.78537 0.000000 136.7776 280.6638 265.3725 244.3974 246.7772 51.80143 51.80143 51.80143 52.38463 53.67786 51.80143 51.80143 0.000000 142.5798 288.3378 274.3750 254.7241 257.6316 51.26192 51.26192 51.26192 51.90552 53.21966 51.26192 51.26192 0.000000 147.2679 294.4706 281.9095 263.5407 267.0992 50.96908 50.96908 50.96908 51.57603 52.87164 50.96908 50.96908 0.000000 151.7010 299.9175 288.8305 271.5068 275.6339 50.76691 50.76691 50.76691 51.30108 52.61909 50.76691 50.76691 0.000000 155.8844 304.9195 295.1292 279.0297 283.8551 50.60180 50.60180 50.60180 51.11353 52.42696 50.60180 50.60180 0.000000 160.2202 309.5140 300.9624 285.8714 291.3659 50.50137 50.50137 50.50137 50.97768 52.19639 50.50137 50.50137 0.000000 164.3553 313.9302 306.5968 292.4956 298.6517 50.43519 50.43519 50.43519 50.85116 52.04754 50.43519 50.43519 0.000000 168.3654 318.0116 311.9894 298.9395 305.5485 50.41733 50.41733 50.41733 50.79858 51.93006 50.41733 50.41733 0.000000 172.4552 321.8743 317.0229 305.1670 312.2093 50.35716 50.35716 50.35716 50.71561 51.79053 50.35716 50.35716 0.000000 176.5524 325.6101 322.0624 311.0831 318.5386 50.35987 50.35987 50.35987 50.60458 51.69202 50.35987 50.35987 0.000000 183.7878 329.2956 327.2130 316.5457 325.0890 50.33316 50.33316 50.33316 50.58498 51.63416 50.33316 50.33316 0.000000 188.8199 332.6311 331.9913 322.2896 331.2540 50.37829 50.37829 50.37829 50.54681 51.50962 50.37829 50.37829 0.000000 193.5742 336.3942 336.4317 327.7054 337.3227 50.35189 50.35189 50.35189 50.49250 51.48342 50.35189 50.35189 0.000000 198.5695 339.5185 340.8651 333.0673 343.0890 50.40431 50.40431 50.40431 50.47886 51.39347 50.40431 50.40431 0.000000 203.8571 342.7782 345.3379 338.4219 349.1147 50.39081 50.39081 50.39081 50.45221 51.34947 50.39081 50.39081 0.000000 209.0990 346.2133 349.8915 343.5501 354.9169 50.45921 50.45921 50.45921 50.41452 51.24397 50.45921 50.45921 0.000000 214.2982 349.0604 353.9169 348.7375 360.5138 50.46521 50.46521 50.46521 50.42152 51.23976 50.46521 50.46521 0.000000 219.4590 352.1266 358.4007 353.7447 365.9199 50.50623 50.50623 50.50623 50.36456 51.17549 50.50623 50.50623 0.000000 224.5977 355.0312 362.0442 358.5852 371.7507 50.53649 50.53649 50.53649 50.35392 51.10574 50.53649 50.53649 0.000000 230.1614 358.2036 366.1975 363.2693 376.8302 50.55536 50.55536 50.55536 50.39026 51.08464 50.55536 50.55536 0.000000 235.7339 360.8193 370.2069 368.3992 382.3874 50.61489 50.61489 50.61489 50.36484 51.05882 50.61489 50.61489 0.000000 241.3186 363.7343 374.0824 372.8143 387.8305 50.61615 50.61615 50.61615 50.38758 50.97512 50.61615 50.61615 0.000000 246.9190 366.5339 378.5626 377.7183 393.1664 50.65816 50.65816 50.65816 50.34650 50.94099 50.65816 50.65816 0.000000 252.5510 369.2262 382.2025 382.5266 392.7889 50.74167 50.74167 50.74167 50.35762 50.90314 50.74167 50.74167 0.000000 258.1880 372.2670 385.7270 387.2465 398.2484 50.76893 50.76893 50.76893 50.36352 50.91519 50.76893 50.76893 0.000000 263.8495 374.7638 389.9154 391.8816 402.9533 50.83784 50.83784 50.83784 50.36454 50.87060 50.83784 50.83784 0.000000 270.1407 377.1675 393.2390 390.9590 405.8477 50.85197 50.85197 50.85197 50.36097 50.82301 50.85197 50.85197 0.000000 275.8799 379.4828 397.2619 395.1387 411.0021 50.90891 50.90891 50.90891 50.40779 50.82580 50.90891 50.90891 0.000000 281.6517 382.6653 401.2146 399.9167 415.4449 50.96136 50.96136 50.96136 50.39587 50.77014 50.96136 50.96136 0.000000 287.4698 384.8251 404.2748 404.6468 420.5460 51.00863 51.00863 51.00863 50.38014 50.76761 51.00863 51.00863 0.000000 294.0057 387.8833 408.0849 406.1434 425.6011 51.05101 51.05101 51.05101 50.41550 50.70957 51.05101 51.05101 0.000000 300.6285 389.8995 411.8336 410.0351 430.6133 51.13849 51.13849 51.13849 50.44749 50.70234 51.13849 51.13849 0.000000 306.6018 392.8441 415.5262 414.5821 435.5855 51.17185 51.17185 51.17185 50.42147 50.69295 51.17185 51.17185 0.000000 312.6203 394.7299 419.1638 419.0937 440.5203 51.19998 51.19998 51.19998 50.44714 50.68150 51.19998 51.19998 0.000000 319.4722 397.5701 422.7478 422.8264 445.4202 51.27487 51.27487 51.27487 50.41512 50.66809 51.27487 51.27487 0.000000 326.4245 399.3324 426.2814 427.2603 446.4390 51.29596 51.29596 51.29596 50.43508 50.65282 51.29596 51.29596 0.000000 332.6396 402.0761 429.7678 431.6655 451.2191 51.36354 51.36354 51.36354 50.45039 50.63578 51.36354 51.36354 0.000000 339.7752 404.7809 433.2057 436.0436 455.9717 51.37667 51.37667 51.37667 50.46497 50.61704 51.37667 51.37667 0.000000 345.2532 406.3814 436.5999 439.5987 460.6986 51.43766 51.43766 51.43766 50.47529 50.59669 51.43766 51.43766 0.000000 352.5570 408.9993 439.9513 443.9146 465.4017 51.49554 51.49554 51.49554 50.48520 50.57480 51.49554 51.49554 0.000000 359.9786 411.5822 443.2602 445.1986 469.1920 51.55045 51.55045 51.55045 50.54784 50.55143 51.55045 51.55045 0.000000 366.5424 413.5815 446.5300 448.6098 474.7428 51.60250 51.60250 51.60250 50.55340 50.52665 51.60250 51.60250 0.000000 373.1721 415.5388 449.7610 452.8138 478.4632 51.65179 51.65179 51.65179 50.55691 50.55326 51.65179 51.65179 0.000000 380.9038 418.0133 452.9537 457.0005 484.0075 51.69842 51.69842 51.69842 50.55844 50.52579 51.69842 51.69842 0.000000 388.7677 420.4576 457.1314 461.1713 487.6637 51.74249 51.74249 51.74249 50.61316 50.54892 51.74249 51.74249 0.000000 395.6655 422.8724 460.2655 465.3273 493.2069 51.78345 51.78345 51.78345 50.61097 50.52011 51.78345 51.78345 0.000000 402.6387 424.6816 463.3652 468.5810 497.0752 51.87450 51.87450 51.87450 50.60703 50.48831 51.87450 51.87450 0.000000 410.8519 426.4552 466.4319 472.6973 497.7184 51.91053 51.91053 51.91053 50.65654 50.50876 51.91053 51.91053 0.000000 76.35340 196.4884 192.1667 183.4955 184.5236 56.04776 56.04776 56.04776 55.86702 55.84696 56.04776 56.04776 0.000000 123.7484 267.6662 252.9795 231.3615 233.0115 52.71391 52.71391 52.71391 53.15118 54.33825 52.71391 52.71391 0.000000 136.9345 281.2789 265.9185 245.0567 247.3568 51.71619 51.71619 51.71619 52.25142 53.57840 51.71619 51.71619 0.000000 142.7882 289.0834 275.1339 255.5444 258.6641 51.19090 51.19090 51.19090 51.76744 53.10094 51.19090 51.19090 0.000000 147.6219 295.5674 283.0361 264.7552 268.5622 50.90086 50.90086 50.90086 51.42720 52.78354 50.90086 50.90086 0.000000 152.2032 301.0508 290.0916 273.0971 277.5072 50.69209 50.69209 50.69209 51.18782 52.50008 50.69209 50.69209 0.000000 156.5350 306.0463 296.7145 280.8069 285.7617 50.56415 50.56415 50.56415 51.03023 52.27411 50.56415 50.56415 0.000000 160.7735 310.9130 302.8579 288.1694 293.8249 50.44675 50.44675 50.44675 50.86482 52.06337 50.44675 50.44675 0.000000 165.0467 315.5890 308.7935 295.3248 301.4734 50.40985 50.40985 50.40985 50.76155 51.93193 50.40985 50.40985 0.000000 169.4655 319.9194 314.4767 301.9036 308.7211 50.36835 50.36835 50.36835 50.67449 51.82771 50.36835 50.36835 0.000000 173.5630 324.0202 319.7899 308.2416 315.9490 50.33205 50.33205 50.33205 50.60769 51.70509 50.33205 50.33205 0.000000 180.7576 327.9858 325.1049 314.6829 322.8531 50.35646 50.35646 50.35646 50.57191 51.56526 50.35646 50.35646 0.000000 185.6630 331.8942 330.2455 320.6736 329.7620 50.34894 50.34894 50.34894 50.51339 51.46529 50.34894 50.34894 0.000000 191.0634 335.4425 335.2795 326.9692 336.0249 50.36447 50.36447 50.36447 50.49022 51.40684 50.36447 50.36447 0.000000 196.0226 339.4213 340.2659 332.4521 342.6878 50.40534 50.40534 50.40534 50.44958 51.33713 50.40534 50.40534 0.000000 201.6033 342.7458 345.2594 338.3695 349.0584 50.42571 50.42571 50.42571 50.39425 51.25757 50.42571 50.42571 0.000000 206.7455 346.2039 349.9892 344.0334 355.4376 50.47686 50.47686 50.47686 50.38044 51.22319 50.47686 50.47686 0.000000 212.2163 349.8395 354.4758 349.7341 361.5880 50.51053 50.51053 50.51053 50.35469 51.12708 50.51053 50.51053 0.000000 218.0726 352.8702 358.7362 355.2342 367.5265 50.53051 50.53051 50.53051 50.37287 51.07773 50.53051 50.53051 0.000000 223.4977 356.1223 363.4651 360.5495 373.2700 50.58576 50.58576 50.58576 50.38131 51.02195 50.58576 50.58576 0.000000 229.3454 359.2065 368.0247 365.6920 379.4540 50.62831 50.62831 50.62831 50.38087 51.01385 50.62831 50.62831 0.000000 235.2035 362.5637 372.4275 371.2738 385.5033 50.70966 50.70966 50.70966 50.36921 50.94683 50.70966 50.70966 0.000000 241.0759 365.7858 376.6818 376.1191 391.4259 50.73172 50.73172 50.73172 50.35327 50.92834 50.73172 50.73172 0.000000 246.9660 368.8825 380.7950 381.4526 391.6961 50.79358 50.79358 50.79358 50.38509 50.85192 50.79358 50.79358 0.000000 252.8903 371.8585 384.7764 386.6823 397.6736 50.84576 50.84576 50.84576 50.35588 50.82462 50.84576 50.84576 0.000000 258.8221 374.7217 389.4029 391.8135 402.8828 50.89069 50.89069 50.89069 50.37540 50.79337 50.89069 50.89069 0.000000 265.3670 377.4776 393.1526 391.3461 406.2002 50.92750 50.92750 50.92750 50.38942 50.80910 50.92750 50.92750 0.000000 271.3783 380.1317 397.5882 395.9641 411.8958 51.00769 51.00769 51.00769 50.39828 50.77065 51.00769 51.00769 0.000000 278.0542 383.1663 401.9435 401.1719 416.8005 51.03175 51.03175 51.03175 50.40231 50.72902 51.03175 51.03175 0.000000 284.8133 386.1209 405.3924 406.3228 422.3571 51.09925 51.09925 51.09925 50.40181 50.68440 51.09925 51.09925 0.000000 290.9908 388.5071 409.5843 408.2136 427.8589 51.16100 51.16100 51.16100 50.45179 50.68996 51.16100 51.16100 0.000000 297.2007 391.8036 413.7067 413.2141 433.3100 51.21618 51.21618 51.21618 50.44298 50.63984 51.21618 51.21618 0.000000 304.1832 394.0354 417.7647 418.1698 438.7137 51.26702 51.26702 51.26702 50.43037 50.64014 51.26702 51.26702 0.000000 311.2641 397.2079 421.7593 422.3394 444.8853 51.36312 51.36312 51.36312 50.46694 50.63803 51.36312 51.36312 0.000000 317.6650 399.2947 425.6953 427.1993 446.3727 51.40360 51.40360 51.40360 50.50192 50.63364 51.40360 51.40360 0.000000 324.9262 402.3536 429.5730 432.0230 451.6077 51.44064 51.44064 51.44064 50.53186 50.57419 51.44064 51.44064 0.000000 332.2973 405.3662 433.3963 436.8127 456.8080 51.52383 51.52383 51.52383 50.50565 50.56556 51.52383 51.52383 0.000000 339.3488 407.2621 437.1661 441.5706 461.9758 51.60314 51.60314 51.60314 50.53146 50.55496 51.60314 51.60314 0.000000 346.5069 410.1732 440.8866 445.8905 467.1135 51.62814 51.62814 51.62814 50.55449 50.54249 51.62814 51.62814 0.000000 354.2032 413.0434 444.5586 447.1436 472.2231 51.70009 51.70009 51.70009 50.57485 50.52823 51.70009 51.70009 0.000000 361.0695 414.7684 448.1830 451.7636 477.3068 51.71790 51.71790 51.71790 50.59266 50.51185 51.71790 51.71790 0.000000 368.9896 417.5482 451.7632 456.3602 483.3000 51.78243 51.78243 51.78243 50.60802 50.49547 51.78243 51.78243 0.000000 377.0432 420.2918 455.2986 460.9351 487.4034 51.84447 51.84447 51.84447 50.62104 50.47507 51.84447 51.84447 0.000000 384.1824 422.9998 459.8240 465.4899 493.3866 51.90349 51.90349 51.90349 50.68703 50.50708 51.90349 51.90349 0.000000 392.4819 425.0953 463.2912 469.1356 496.2620 51.95960 51.95960 51.95960 50.69565 50.48494 51.95960 51.95960 0.000000 400.9278 427.1486 466.7188 474.5446 499.7381 52.01292 52.01292 52.01292 50.70220 50.46143 52.01292 52.01292 0.000000 408.3685 429.7457 470.1094 478.1277 503.6691 52.11481 52.11481 52.11481 50.70674 50.43660 52.11481 52.11481 0.000000 417.0838 432.3123 474.5500 483.5353 509.5908 52.16290 52.16290 52.16290 50.70936 50.46310 52.16290 52.16290 0.000000 424.7493 434.8493 477.8814 487.0606 513.4615 52.20847 52.20847 52.20847 50.76546 50.43574 52.20847 52.20847 0.000000 433.7514 437.3576 481.1783 492.4716 519.3914 52.30318 52.30318 52.30318 50.81987 50.45980 52.30318 52.30318 0.000000 76.35940 196.5117 192.1966 183.5421 184.5736 56.05769 56.05769 56.05769 55.88118 55.85383 56.05769 56.05769 0.000000 123.9537 268.0278 253.1982 231.5915 233.3752 52.62868 52.62868 52.62868 53.04460 54.23788 52.62868 52.62868 0.000000 137.0570 281.5387 266.3486 245.5823 247.9245 51.61092 51.61092 51.61092 52.15922 53.46842 51.61092 51.61092 0.000000 142.9408 289.6729 275.7250 256.4587 259.4961 51.09604 51.09604 51.09604 51.66920 53.02679 51.09604 51.09604 0.000000 147.8998 296.1855 283.9508 265.8844 269.7734 50.80474 50.80474 50.80474 51.31250 52.62461 50.80474 50.80474 0.000000 152.4968 301.9462 291.3159 274.5691 279.0820 50.63594 50.63594 50.63594 51.10605 52.36559 50.63594 50.63594 0.000000 157.0704 307.5130 298.0064 282.6089 287.6873 50.49221 50.49221 50.49221 50.92063 52.16047 50.49221 50.49221 0.000000 161.4386 312.3249 304.4258 290.2926 296.0946 50.40527 50.40527 50.40527 50.77974 51.96805 50.40527 50.40527 0.000000 165.8425 316.9145 310.6294 297.5642 304.0778 50.39598 50.39598 50.39598 50.69808 51.79537 50.39598 50.39598 0.000000 170.3939 321.8063 316.5737 304.6435 311.6517 50.37796 50.37796 50.37796 50.62753 51.65367 50.37796 50.37796 0.000000 174.6212 326.1302 322.1383 311.4926 319.2041 50.36363 50.36363 50.36363 50.52610 51.54488 50.36363 50.36363 0.000000 182.0689 329.9532 327.7016 318.2388 326.6639 50.35879 50.35879 50.35879 50.50655 51.47216 50.35879 50.35879 0.000000 187.4512 334.0632 333.3731 324.7582 333.6538 50.37125 50.37125 50.37125 50.46309 51.38375 50.37125 50.37125 0.000000 192.7080 338.1791 338.6545 330.8777 340.7327 50.40432 50.40432 50.40432 50.39864 51.28193 50.40432 50.40432 0.000000 198.1992 341.9765 343.5785 337.1369 347.4636 50.46169 50.46169 50.46169 50.37152 51.22239 50.46169 50.46169 0.000000 203.9811 345.8751 348.8059 343.0953 354.4271 50.49685 50.49685 50.49685 50.38332 51.15245 50.49685 50.49685 0.000000 209.7187 349.5228 353.7627 349.3147 361.1359 50.56242 50.56242 50.56242 50.38111 51.07334 50.56242 50.56242 0.000000 215.4155 352.9372 358.8022 355.3118 367.6101 50.61053 50.61053 50.61053 50.36636 51.03963 50.61053 50.61053 0.000000 221.0864 356.5527 363.6252 361.1046 373.8691 50.64327 50.64327 50.64327 50.33720 50.99841 50.64327 50.64327 0.000000 227.1730 359.9825 368.5940 366.7072 380.5539 50.66235 50.66235 50.66235 50.35567 50.95042 50.66235 50.66235 0.000000 233.2711 363.6716 373.3907 372.7376 387.0906 50.76698 50.76698 50.76698 50.36484 50.89627 50.76698 50.76698 0.000000 239.3848 366.7706 378.0245 378.0149 393.4893 50.80996 50.80996 50.80996 50.36549 50.83651 50.80996 50.80996 0.000000 245.5180 369.7165 382.5043 383.7729 394.0521 50.84290 50.84290 50.84290 50.35831 50.82483 50.84290 50.84290 0.000000 251.6881 372.9718 386.8398 389.4176 400.4512 50.91473 50.91473 50.91473 50.39857 50.80577 50.91473 50.91473 0.000000 258.4277 376.1037 391.8178 394.9563 406.7597 50.97847 50.97847 50.97847 50.43219 50.73158 50.97847 50.97847 0.000000 265.2433 379.5880 395.9012 394.6476 410.4704 51.03376 51.03376 51.03376 50.40483 50.70640 51.03376 51.03376 0.000000 271.5297 382.9757 400.6706 400.2964 415.8548 51.13089 51.13089 51.13089 50.42643 50.67736 51.13089 51.13089 0.000000 278.4854 385.7867 404.5260 405.8774 421.8757 51.17001 51.17001 51.17001 50.44262 50.69772 51.17001 51.17001 0.000000 284.8819 388.4959 409.1094 408.1889 427.8319 51.25272 51.25272 51.25272 50.45375 50.66166 51.25272 51.25272 0.000000 291.9952 392.1053 413.6143 413.5972 434.5076 51.32904 51.32904 51.32904 50.45811 50.62246 51.32904 51.32904 0.000000 299.2054 394.6389 418.0454 418.9528 440.3659 51.39841 51.39841 51.39841 50.51461 50.63318 51.39841 51.39841 0.000000 306.5171 398.1073 422.4048 424.2592 445.7636 51.41283 51.41283 51.41283 50.51017 50.58818 51.41283 51.41283 0.000000 313.9344 400.4772 426.6967 428.7555 448.0637 51.52239 51.52239 51.52239 50.50362 50.54057 51.52239 51.52239 0.000000 321.4617 403.8169 430.9245 433.9571 454.5514 51.57653 51.57653 51.57653 50.54826 50.54323 51.57653 51.57653 0.000000 328.2797 406.0391 435.0902 439.1189 460.1750 51.62579 51.62579 51.62579 50.58936 50.54348 51.62579 51.62579 0.000000 336.8643 409.2601 439.1964 445.0562 465.7607 51.72105 51.72105 51.72105 50.62711 50.54053 51.72105 51.72105 0.000000 343.8798 412.4331 443.2458 446.3150 471.3111 51.81209 51.81209 51.81209 50.60648 50.53761 51.81209 51.81209 0.000000 351.8619 414.4539 447.2416 451.3293 476.8287 51.84831 51.84831 51.84831 50.63791 50.47786 51.84831 51.84831 0.000000 359.9763 417.5219 451.1851 456.3144 483.2493 51.93044 51.93044 51.93044 50.66642 50.46963 51.93044 51.93044 0.000000 367.2454 420.5474 455.0781 461.2721 488.7260 51.95856 51.95856 51.95856 50.69213 50.45953 51.95856 51.95856 0.000000 376.6187 423.5300 459.9527 466.2045 494.1765 52.03412 52.03412 52.03412 50.71518 50.44762 52.03412 52.03412 0.000000 384.1044 425.3184 463.7648 471.1133 495.9813 52.10626 52.10626 52.10626 50.73566 50.43400 52.10626 52.10626 0.000000 392.7568 428.2112 467.5311 476.0003 501.3350 52.17512 52.17512 52.17512 50.75368 50.47135 52.17512 52.17512 0.000000 401.5638 431.0675 471.2549 480.8671 506.6686 52.24081 52.24081 52.24081 50.76935 50.45448 52.24081 52.24081 0.000000 409.3711 433.8885 476.0291 485.7151 511.9840 52.30346 52.30346 52.30346 50.83821 50.43611 52.30346 52.30346 0.000000 419.6655 436.6753 479.6844 490.5458 517.2827 52.36318 52.36318 52.36318 50.84945 50.41628 52.36318 52.36318 0.000000 427.7466 439.4290 484.4258 495.3607 522.5660 52.41888 52.41888 52.41888 50.85858 50.39507 52.41888 52.41888 0.000000 435.9088 442.1492 488.0175 496.5348 528.9202 52.52485 52.52485 52.52485 50.86569 50.42505 52.52485 52.52485 0.000000 445.4865 444.8398 491.5722 501.2765 534.1953 52.62841 52.62841 52.62841 50.92647 50.40117 52.62841 52.62841 0.000000 455.2499 446.2424 495.0899 506.0065 539.4592 52.67739 52.67739 52.67739 50.92976 50.37605 52.67739 52.67739 0.000000 76.36533 196.5352 192.2168 183.5884 184.6232 56.06640 56.06640 56.06640 55.82871 55.85992 56.06640 56.06640 0.000000 124.0182 268.3463 253.5209 231.8746 233.6809 52.58346 52.58346 52.58346 52.98705 54.19059 52.58346 52.58346 0.000000 137.2416 281.9570 266.8619 246.1292 248.5111 51.53945 51.53945 51.53945 52.05254 53.40741 51.53945 51.53945 0.000000 143.2466 290.1349 276.3736 257.2205 260.3131 51.02955 51.02955 51.02955 51.55387 52.88485 51.02955 51.02955 0.000000 148.1168 296.9231 284.6926 266.9759 270.7783 50.73357 50.73357 50.73357 51.23492 52.56648 50.73357 50.73357 0.000000 152.9386 302.9448 292.1131 275.8099 280.4119 50.55390 50.55390 50.55390 51.00333 52.27383 50.55390 50.55390 0.000000 157.5131 308.4525 299.2891 284.1461 289.5186 50.44108 50.44108 50.44108 50.84428 52.03270 50.44108 50.44108 0.000000 161.9956 313.4894 305.9659 292.3100 298.0500 50.38347 50.38347 50.38347 50.72628 51.85515 50.38347 50.38347 0.000000 166.5149 318.6274 312.4217 299.8734 306.5453 50.34922 50.34922 50.34922 50.60683 51.70042 50.34922 50.34922 0.000000 171.1834 323.0572 318.3466 307.0291 314.6470 50.35455 50.35455 50.35455 50.55727 51.57267 50.35455 50.35455 0.000000 175.5255 327.5737 324.4120 314.3710 322.5165 50.35991 50.35991 50.35991 50.47255 51.47653 50.35991 50.35991 0.000000 183.5167 332.3044 330.4937 321.1684 330.0505 50.37528 50.37528 50.37528 50.46653 51.36121 50.37528 50.37528 0.000000 189.0630 336.6154 335.8213 327.9546 337.5898 50.40538 50.40538 50.40538 50.43838 51.28373 50.40538 50.40538 0.000000 194.4867 340.5474 341.3189 334.8292 344.9787 50.45462 50.45462 50.45462 50.38753 51.19215 50.45462 50.45462 0.000000 200.1523 344.5254 347.0764 341.3682 352.0139 50.52721 50.52721 50.52721 50.37269 51.14212 50.52721 50.52721 0.000000 206.1180 348.2046 352.5351 347.6011 359.2892 50.52826 50.52826 50.52826 50.34137 51.08117 50.52826 50.52826 0.000000 212.0429 352.0163 357.7176 354.1019 366.3051 50.60728 50.60728 50.60728 50.35006 51.01056 50.60728 50.60728 0.000000 218.3565 356.0052 362.6438 360.3771 373.6904 50.66887 50.66887 50.66887 50.34259 50.93138 50.66887 50.66887 0.000000 224.2421 359.7895 368.0257 366.4433 380.2680 50.71439 50.71439 50.71439 50.38113 50.89784 50.71439 50.71439 0.000000 230.5569 363.3824 373.2193 372.9210 387.2895 50.79363 50.79363 50.79363 50.35433 50.85719 50.79363 50.79363 0.000000 236.8883 366.7962 378.2351 378.6303 394.1594 50.86035 50.86035 50.86035 50.37246 50.81009 50.86035 50.86035 0.000000 243.7510 370.4906 383.0831 384.8114 395.1050 50.96383 50.96383 50.96383 50.38169 50.75454 50.96383 50.96383 0.000000 250.1647 374.0424 387.7742 390.8679 401.9218 51.00769 51.00769 51.00769 50.43747 50.74916 51.00769 51.00769 0.000000 256.5878 377.4593 392.7078 391.3029 406.1535 51.09087 51.09087 51.09087 50.43095 50.68567 51.09087 51.09087 0.000000 263.6225 380.7486 397.5174 397.4079 412.7357 51.16459 51.16459 51.16459 50.41744 50.67057 51.16459 51.16459 0.000000 270.7413 383.9171 402.6181 402.7474 419.2349 51.22834 51.22834 51.22834 50.45220 50.65113 51.22834 51.22834 0.000000 277.9491 387.9471 406.7888 406.1953 425.6574 51.33471 51.33471 51.33471 50.47892 50.62764 51.33471 51.33471 0.000000 284.9216 390.9041 411.6870 412.0215 432.0088 51.38238 51.38238 51.38238 50.49983 50.60039 51.38238 51.38238 0.000000 291.9783 393.7579 416.5017 417.7855 438.2941 51.42386 51.42386 51.42386 50.51742 50.56960 51.42386 51.42386 0.000000 299.4556 397.5322 421.2353 422.7459 445.3316 51.55926 51.55926 51.55926 50.53003 50.58832 51.55926 51.55926 0.000000 307.0400 400.2014 425.8922 428.3807 447.6563 51.58752 51.58752 51.58752 50.53795 50.55107 51.58752 51.58752 0.000000 314.7362 403.8303 430.4772 434.7459 454.5605 51.71091 51.71091 51.71091 50.59650 50.50986 51.71091 51.71091 0.000000 322.5489 406.3333 434.9923 440.3012 460.5947 51.72734 51.72734 51.72734 50.65098 50.52097 51.72734 51.72734 0.000000 331.3154 409.8280 439.4406 445.8131 466.5845 51.83946 51.83946 51.83946 50.64634 50.47471 51.83946 51.83946 0.000000 338.5426 413.2684 443.8256 447.4251 472.5329 51.89595 51.89595 51.89595 50.63796 50.47932 51.89595 51.89595 0.000000 346.7515 415.5479 448.1498 452.7956 479.3637 51.94776 51.94776 51.94776 50.68121 50.48156 51.94776 51.94776 0.000000 355.0802 418.8716 452.4149 458.1318 485.2573 52.04610 52.04610 52.04610 50.72113 50.42890 52.04610 52.04610 0.000000 363.5501 422.1468 457.6461 463.4363 492.0805 52.14023 52.14023 52.14023 50.75786 50.42670 52.14023 52.14023 0.000000 372.1654 424.7991 461.8178 468.7112 496.8254 52.23031 52.23031 52.23031 50.79155 50.42245 52.23031 52.23031 0.000000 380.9317 427.3947 465.9373 474.8646 500.0891 52.31652 52.31652 52.31652 50.82233 50.41623 52.31652 52.31652 0.000000 389.8544 430.5229 470.0072 480.1035 505.8306 52.39901 52.39901 52.39901 50.85032 50.40814 52.39901 52.39901 0.000000 398.9380 433.6101 475.1176 485.3188 511.5489 52.42496 52.42496 52.42496 50.87563 50.39825 52.42496 52.42496 0.000000 408.1891 436.6581 479.1082 490.5123 517.2458 52.50019 52.50019 52.50019 50.89838 50.38664 52.50019 52.50019 0.000000 417.6127 439.6679 483.0536 495.6856 523.9909 52.62422 52.62422 52.62422 50.91866 50.37338 52.62422 52.62422 0.000000 427.2336 442.6394 488.0954 497.2086 529.6696 52.69307 52.69307 52.69307 50.93657 50.41105 52.69307 52.69307 0.000000 435.7443 445.5768 491.9704 502.2982 535.3322 52.75885 52.75885 52.75885 51.00644 50.39466 52.75885 52.75885 0.000000 445.6778 447.2171 496.9799 507.3729 540.9800 52.82167 52.82167 52.82167 51.02129 50.37682 52.82167 52.82167 0.000000 455.8064 450.0727 500.7881 512.4338 547.7645 52.88162 52.88162 52.88162 51.08947 50.41009 52.88162 52.88162 0.000000 464.7278 452.8961 505.7715 517.4822 554.5811 52.93882 52.93882 52.93882 51.09695 50.38663 52.93882 52.93882 0.000000 476.6748 455.6883 509.5197 522.5194 560.2330 53.04608 53.04608 53.04608 51.10438 50.36475 53.04608 53.04608 0.000000 76.36574 196.5429 192.2368 183.6126 184.6725 56.01593 56.01593 56.01593 55.83994 55.86536 56.01593 56.01593 0.000000 124.2073 268.6297 253.6572 232.1133 233.9395 52.52936 52.52936 52.52936 52.92043 54.13786 52.52936 52.52936 0.000000 137.3154 282.3036 267.1231 246.5889 249.0054 51.50407 51.50407 51.50407 51.99110 53.33862 51.50407 51.50407 0.000000 143.3196 290.7596 276.9115 257.8558 260.9969 50.99602 50.99602 50.99602 51.48058 52.84747 50.99602 50.99602 0.000000 148.3913 297.5271 285.2910 267.9078 271.7758 50.69288 50.69288 50.69288 51.14075 52.44160 50.69288 50.69288 0.000000 153.2052 303.7848 293.1796 277.0281 281.7143 50.54646 50.54646 50.54646 50.93833 52.17060 50.54646 50.54646 0.000000 157.8800 309.2060 300.3742 285.6430 291.1192 50.41587 50.41587 50.41587 50.74860 51.94801 50.41587 50.41587 0.000000 162.4638 314.7694 307.2842 293.8890 300.1416 50.38371 50.38371 50.38371 50.65226 51.78666 50.38371 50.38371 0.000000 167.2183 319.7828 313.7113 301.7096 308.7270 50.37336 50.37336 50.37336 50.55188 51.59178 50.37336 50.37336 0.000000 171.8584 324.7467 320.3797 309.5421 317.1136 50.35135 50.35135 50.35135 50.51952 51.47726 50.35135 50.35135 0.000000 176.5938 329.4580 326.3976 316.9340 325.2653 50.37641 50.37641 50.37641 50.44874 51.39313 50.37641 50.37641 0.000000 184.5001 334.0154 332.4088 324.2189 333.0772 50.40973 50.40973 50.40973 50.40525 51.28893 50.40973 50.40973 0.000000 190.5176 338.1249 338.5293 331.2693 341.1526 50.45618 50.45618 50.45618 50.38923 51.16783 50.45618 50.45618 0.000000 196.0937 342.6018 344.2433 338.4116 348.8318 50.52110 50.52110 50.52110 50.35083 51.08599 50.52110 50.52110 0.000000 202.2923 346.7453 350.2211 345.2119 356.7075 50.55851 50.55851 50.55851 50.34759 51.04495 50.55851 50.55851 0.000000 208.4480 350.9889 355.5673 351.7015 364.0059 50.62307 50.62307 50.62307 50.37872 50.99252 50.62307 50.62307 0.000000 214.5645 354.9693 361.2860 358.4663 371.6221 50.71564 50.71564 50.71564 50.34317 50.93001 50.71564 50.71564 0.000000 220.6572 358.7040 366.4158 365.0016 378.7061 50.78975 50.78975 50.78975 50.34863 50.85852 50.78975 50.78975 0.000000 227.1686 363.0754 372.0099 371.9273 386.2120 50.84610 50.84610 50.84610 50.39647 50.83219 50.84610 50.84610 0.000000 233.6970 366.3869 377.4116 378.0725 393.5532 50.93678 50.93678 50.93678 50.37852 50.79589 50.93678 50.93678 0.000000 240.2471 370.3954 382.6310 384.6744 394.9649 51.01487 51.01487 51.01487 50.40512 50.75532 51.01487 51.01487 0.000000 247.3603 374.2485 387.6802 391.1408 402.1974 51.08034 51.08034 51.08034 50.42247 50.70859 51.08034 51.08034 0.000000 253.9868 377.9549 392.5684 391.9295 406.8306 51.13417 51.13417 51.13417 50.43129 50.65623 51.13417 51.13417 0.000000 261.2156 381.5227 398.1060 398.4000 413.8068 51.22589 51.22589 51.22589 50.48707 50.65160 51.22589 51.22589 0.000000 268.5317 384.9594 403.1234 404.7820 420.6919 51.30861 51.30861 51.30861 50.47852 50.58920 51.30861 51.30861 0.000000 275.9402 388.2708 408.0218 407.8781 427.4928 51.38132 51.38132 51.38132 50.51817 50.57519 51.38132 51.38132 0.000000 283.4460 392.4621 413.2324 414.0445 434.9970 51.49679 51.49679 51.49679 50.55345 50.55696 51.49679 51.49679 0.000000 291.0664 395.5581 418.3531 420.1428 441.6683 51.60446 51.60446 51.60446 50.58286 50.53479 51.60446 51.60446 0.000000 298.7844 399.0607 423.3858 426.1777 445.2626 51.65415 51.65415 51.65415 50.60677 50.50788 51.65415 51.65415 0.000000 306.6149 402.4735 428.3372 432.1539 451.7499 51.74741 51.74741 51.74741 50.62549 50.53269 51.74741 51.74741 0.000000 314.5627 405.8035 433.2109 438.0754 458.1812 51.83366 51.83366 51.83366 50.63934 50.49935 51.83366 51.83366 0.000000 322.6330 409.0522 438.0093 444.7578 465.4359 51.91398 51.91398 51.91398 50.70382 50.46372 51.91398 51.91398 0.000000 331.6645 412.7684 442.7373 446.7475 471.7870 51.98859 51.98859 51.98859 50.70871 50.47783 51.98859 51.98859 0.000000 339.1767 415.3190 447.3964 452.4780 478.0932 52.10889 52.10889 52.10889 50.70949 50.43656 52.10889 52.10889 0.000000 348.5477 418.9052 451.9900 458.1686 485.2979 52.17271 52.17271 52.17271 50.76169 50.44530 52.17271 52.17271 0.000000 356.2595 422.4374 457.5432 464.6955 492.5083 52.23145 52.23145 52.23145 50.81026 50.39898 52.23145 52.23145 0.000000 365.9930 425.3397 462.0326 470.3326 496.1794 52.33697 52.33697 52.33697 50.85536 50.40286 52.33697 52.33697 0.000000 374.9446 428.1791 466.4638 475.9378 501.2664 52.43811 52.43811 52.43811 50.89716 50.40450 52.43811 52.43811 0.000000 384.0563 431.5474 470.8401 481.5133 507.3779 52.53382 52.53382 52.53382 50.93578 50.40400 52.53382 52.53382 0.000000 394.4251 434.8703 476.2563 487.0613 514.4979 52.62659 52.62659 52.62659 50.97138 50.40145 52.62659 52.62659 0.000000 402.7822 438.1494 480.5445 493.5512 520.5776 52.66325 52.66325 52.66325 51.00186 50.39695 52.66325 52.66325 0.000000 413.5825 441.3863 485.9143 496.0197 527.7151 52.74829 52.74829 52.74829 51.03322 50.39056 52.74829 52.74829 0.000000 422.2355 444.5806 490.1213 500.8958 533.7716 52.82977 52.82977 52.82977 51.06191 50.38239 52.82977 52.82977 0.000000 432.2365 446.4781 494.2806 506.3210 539.8091 52.96043 52.96043 52.96043 51.08484 50.36967 52.96043 52.96043 0.000000 442.4329 449.5813 499.5832 511.7285 546.9766 53.03527 53.03527 53.03527 51.10713 50.35817 53.03527 53.03527 0.000000 452.8317 452.6477 503.6714 517.1200 553.0021 53.10691 53.10691 53.10691 51.12704 50.34508 53.10691 53.10691 0.000000 463.4394 455.6787 508.9404 522.4968 560.2076 53.17547 53.17547 53.17547 51.19872 50.38292 53.17547 53.17547 0.000000 474.2629 458.6752 512.9613 528.9451 564.2635 53.24105 53.24105 53.24105 51.21546 50.36683 53.24105 53.24105 0.000000 485.3093 461.6384 518.2042 534.3152 567.7088 53.30375 53.30375 53.30375 51.28482 50.34933 53.30375 53.30375 0.000000 496.5858 464.5692 522.1639 539.6749 573.6486 53.41698 53.41698 53.41698 51.29739 50.38292 53.41698 53.41698 0.000000 76.36610 196.5585 192.2568 183.6585 184.7100 56.02285 56.02285 56.02285 55.85008 55.87026 56.02285 56.02285 0.000000 124.3909 268.8840 253.9134 232.3155 234.1591 52.46706 52.46706 52.46706 52.84605 54.08047 52.46706 52.46706 0.000000 137.3712 282.5899 267.4982 246.9757 249.4227 51.40607 51.40607 51.40607 51.91877 53.26312 51.40607 51.40607 0.000000 143.4623 291.0284 277.3575 258.5316 261.7192 50.94726 50.94726 50.94726 51.39439 52.74517 50.94726 50.94726 0.000000 148.6255 298.0187 285.9789 268.7047 272.6305 50.63422 50.63422 50.63422 51.08810 52.36374 50.63422 50.63422 0.000000 153.4198 304.4904 293.8802 278.0849 282.8457 50.47160 50.47160 50.47160 50.85750 52.11290 50.47160 50.47160 0.000000 158.1839 310.1153 301.5276 286.9545 292.5232 50.41843 50.41843 50.41843 50.69134 51.85007 50.41843 50.41843 0.000000 162.9849 315.8778 308.4134 295.4507 301.8138 50.36205 50.36205 50.36205 50.61247 51.70663 50.36205 50.36205 0.000000 167.8385 321.0815 315.3046 303.7213 310.6627 50.32533 50.32533 50.32533 50.53300 51.52566 50.32533 50.32533 0.000000 172.4378 326.2311 321.9205 311.5934 319.3119 50.37123 50.37123 50.37123 50.46205 51.42355 50.37123 50.37123 0.000000 177.2670 331.1216 328.4171 319.2249 327.9631 50.41578 50.41578 50.41578 50.40747 51.29662 50.41578 50.41578 0.000000 185.6808 335.4835 334.6359 326.9869 336.2935 50.46616 50.46616 50.46616 50.37636 51.20303 50.46616 50.46616 0.000000 191.8396 340.1310 340.9630 334.2839 344.3935 50.52818 50.52818 50.52818 50.37297 51.09182 50.52818 50.52818 0.000000 197.5563 344.7767 346.8784 341.6751 352.3433 50.55807 50.55807 50.55807 50.34634 51.01912 50.55807 50.55807 0.000000 203.9072 349.0829 352.7387 348.7213 360.4964 50.65994 50.65994 50.65994 50.35102 50.98658 50.65994 50.65994 0.000000 210.2189 353.4884 358.6017 356.0062 368.3592 50.68822 50.68822 50.68822 50.39575 50.88878 50.68822 50.68822 0.000000 216.4950 357.6241 364.5204 363.0385 375.9570 50.79329 50.79329 50.79329 50.36997 50.83397 50.79329 50.79329 0.000000 223.1936 361.5108 369.8393 369.8396 383.9487 50.87811 50.87811 50.87811 50.38471 50.76729 50.87811 50.87811 0.000000 229.9010 366.0410 375.6323 376.4256 391.7597 50.94598 50.94598 50.94598 50.38671 50.74773 50.94598 50.94598 0.000000 236.6305 369.4945 381.2276 383.4481 393.7191 51.04868 51.04868 51.04868 50.43188 50.72046 51.04868 51.04868 0.000000 243.8977 373.6548 386.6385 390.3245 401.3676 51.13718 51.13718 51.13718 50.46657 50.68617 51.13718 51.13718 0.000000 250.7228 377.6560 392.2662 391.5389 406.4080 51.21149 51.21149 51.21149 50.49165 50.64548 51.21149 51.21149 0.000000 258.1236 381.5070 397.7489 398.3718 413.7763 51.32448 51.32448 51.32448 50.50565 50.59893 51.32448 51.32448 0.000000 265.6143 385.2162 403.0936 405.1084 421.0446 51.37543 51.37543 51.37543 50.51153 50.59981 51.37543 51.37543 0.000000 273.2003 388.7901 408.3088 408.5455 428.2206 51.46733 51.46733 51.46733 50.51174 50.54280 51.46733 51.46733 0.000000 280.8868 392.7374 413.8310 415.0488 436.0960 51.60020 51.60020 51.60020 50.55991 50.53392 51.60020 51.60020 0.000000 288.6904 396.5800 419.2554 421.4777 443.1296 51.67381 51.67381 51.67381 50.60159 50.52028 51.67381 51.67381 0.000000 296.5961 399.8041 424.5859 427.8376 447.0661 51.78984 51.78984 51.78984 50.63719 50.50286 51.78984 51.78984 0.000000 304.6182 403.9694 429.8293 434.9144 454.7436 51.84668 51.84668 51.84668 50.66708 50.48167 51.84668 51.84668 0.000000 312.7620 406.9911 434.9878 441.1701 461.5399 51.99886 51.99886 51.99886 50.69160 50.45689 51.99886 51.99886 0.000000 321.8279 410.9957 440.0669 445.3928 468.2796 52.04205 52.04205 52.04205 50.71107 50.48137 52.04205 52.04205 0.000000 330.2633 413.8319 445.0699 450.4643 475.8761 52.18131 52.18131 52.18131 50.78113 50.45000 52.18131 52.18131 0.000000 339.2696 417.6893 450.0010 456.5147 483.4705 52.21171 52.21171 52.21171 50.84681 50.41564 52.21171 52.21171 0.000000 348.4742 421.4858 455.8773 462.5220 490.1071 52.33932 52.33932 52.33932 50.85272 50.43100 52.33932 52.33932 0.000000 357.3796 425.2252 460.6906 468.4891 496.9310 52.46063 52.46063 52.46063 50.85458 50.39110 52.46063 52.46063 0.000000 366.4416 427.7420 465.4382 475.3266 500.5958 52.52588 52.52588 52.52588 50.90817 50.40116 52.52588 52.52588 0.000000 376.6815 431.3568 470.1262 481.2411 507.0791 52.58609 52.58609 52.58609 50.95817 50.40878 52.58609 52.58609 0.000000 386.1119 434.9211 475.8470 487.1235 514.5665 52.69372 52.69372 52.69372 51.00386 50.36155 52.69372 52.69372 0.000000 395.7169 438.4367 480.4371 493.9450 521.0103 52.79699 52.79699 52.79699 51.04866 50.36460 52.79699 52.79699 0.000000 406.6469 441.9055 486.1047 496.1667 528.5107 52.89608 52.89608 52.89608 51.08712 50.36270 52.89608 52.89608 0.000000 415.4756 445.3275 490.6050 501.9324 534.9250 52.99117 52.99117 52.99117 51.12436 50.36163 52.99117 52.99117 0.000000 425.6607 447.4436 496.2267 507.6757 542.4484 53.08240 53.08240 53.08240 51.15871 50.35862 53.08240 53.08240 0.000000 436.0289 450.7652 500.6428 513.3983 548.8420 53.16993 53.16993 53.16993 51.18885 50.35376 53.16993 53.16993 0.000000 447.9300 454.0463 506.2268 520.1567 556.3977 53.25389 53.25389 53.25389 51.21738 50.34710 53.25389 53.25389 0.000000 457.3927 457.2882 510.5676 525.8626 563.9878 53.33441 53.33441 53.33441 51.24575 50.33873 53.33441 53.33441 0.000000 469.8280 460.4922 516.1161 531.5530 564.6511 53.41161 53.41161 53.41161 51.32269 50.32873 53.41161 53.41161 0.000000 481.1180 463.6596 520.3856 538.3464 572.1748 53.53912 53.53912 53.53912 51.34556 50.36956 53.53912 53.53912 0.000000 492.6454 466.7914 525.9066 544.0298 578.4761 53.66385 53.66385 53.66385 51.42216 50.35643 53.66385 53.66385 0.000000 504.4178 469.8887 530.1114 549.7020 586.0521 53.73198 53.73198 53.73198 51.43827 50.34184 53.73198 53.73198 0.000000 516.4443 472.9525 535.6091 556.5452 592.3591 53.79722 53.79722 53.79722 51.45314 50.37828 53.79722 53.79722 0.000000 76.36643 196.5743 192.2767 183.6823 184.7473 56.02909 56.02909 56.02909 55.85930 55.87471 56.02909 56.02909 0.000000 124.4363 268.9131 254.1446 232.5963 234.3460 52.39775 52.39775 52.39775 52.82402 54.07804 52.39775 52.39775 0.000000 137.5015 282.8263 267.8208 247.3009 249.7749 51.39788 51.39788 51.39788 51.83417 53.18180 51.39788 51.39788 0.000000 143.5806 291.4928 277.7252 258.9720 262.3478 50.88528 50.88528 50.88528 51.35331 52.69239 50.88528 50.88528 0.000000 148.7190 298.7018 286.5663 269.3871 273.5295 50.60934 50.60934 50.60934 51.02262 52.27781 50.60934 50.60934 0.000000 153.5909 305.0812 294.6819 279.1775 284.0111 50.47744 50.47744 50.47744 50.81822 51.99092 50.47744 50.47744 0.000000 158.5554 310.8926 302.3021 288.2919 293.7574 50.40264 50.40264 50.40264 50.67428 51.80008 50.40264 50.40264 0.000000 163.4449 316.8378 309.6298 296.8326 303.2947 50.36942 50.36942 50.36942 50.55957 51.61650 50.36942 50.36942 0.000000 168.2541 321.8764 316.7229 305.5390 312.6050 50.35378 50.35378 50.35378 50.49739 51.44882 50.35378 50.35378 0.000000 173.2176 327.1856 323.5367 313.4272 321.5085 50.37041 50.37041 50.37041 50.44298 51.30445 50.37041 50.37041 0.000000 180.6620 332.2315 330.2291 321.5104 330.4158 50.43249 50.43249 50.43249 50.40155 51.18863 50.43249 50.43249 0.000000 186.7455 337.1153 336.6398 329.5079 339.2556 50.49835 50.49835 50.49835 50.38343 51.10517 50.49835 50.49835 0.000000 192.7023 341.9217 343.1598 337.0359 347.3551 50.57560 50.57560 50.57560 50.39207 51.05701 50.57560 50.57560 0.000000 198.8953 346.3287 349.2624 344.6605 356.1135 50.62042 50.62042 50.62042 50.37355 50.93945 50.62042 50.62042 0.000000 205.3872 351.1815 355.6355 351.9370 364.5504 50.68615 50.68615 50.68615 50.33730 50.91501 50.68615 50.68615 0.000000 211.8435 355.7376 361.6948 359.4584 372.6960 50.82531 50.82531 50.82531 50.39189 50.82500 50.82531 50.82531 0.000000 218.6949 360.0199 367.4621 366.7251 380.5734 50.89191 50.89191 50.89191 50.37544 50.77490 50.89191 50.89191 0.000000 225.5747 364.0480 373.6749 374.0624 388.8571 50.98857 50.98857 50.98857 50.39902 50.71754 50.98857 50.98857 0.000000 232.4674 368.7277 379.3048 381.2030 391.4372 51.06824 51.06824 51.06824 50.46420 50.70448 51.06824 51.06824 0.000000 239.3871 372.7672 385.0925 388.4885 399.5041 51.18144 51.18144 51.18144 50.46264 50.68343 51.18144 51.18144 0.000000 246.8595 376.6155 391.0819 395.6278 406.6168 51.27863 51.27863 51.27863 50.50289 50.60218 51.27863 51.27863 0.000000 253.8833 380.7554 396.5142 397.3926 412.7190 51.36224 51.36224 51.36224 50.53312 50.62011 51.36224 51.36224 0.000000 261.5017 384.7422 402.5974 404.4836 420.3695 51.48481 51.48481 51.48481 50.55612 50.57904 51.48481 51.48481 0.000000 269.8183 388.5832 407.7229 408.2690 427.9189 51.59608 51.59608 51.59608 50.57066 50.53236 51.59608 51.59608 0.000000 277.0346 392.7879 413.5536 415.1074 436.1600 51.69682 51.69682 51.69682 50.63247 50.53292 51.69682 51.69682 0.000000 285.6289 396.8801 419.2803 421.8646 444.3637 51.78772 51.78772 51.78772 50.63189 50.47610 51.78772 51.78772 0.000000 293.6999 400.3450 424.9066 428.5466 448.6591 51.86876 51.86876 51.86876 50.67971 50.46756 51.86876 51.86876 0.000000 301.8907 404.7468 430.4386 435.9430 455.8620 51.99287 51.99287 51.99287 50.72125 50.45478 51.99287 51.99287 0.000000 310.9603 407.9953 435.8819 442.5109 463.8695 52.10913 52.10913 52.10913 50.75689 50.43804 52.10913 52.10913 0.000000 319.4395 412.2249 441.2391 446.0029 470.9674 52.16653 52.16653 52.16653 50.78697 50.41758 52.16653 52.16653 0.000000 328.0559 415.2736 446.5154 452.4011 478.9279 52.31979 52.31979 52.31979 50.86734 50.39362 52.31979 52.31979 0.000000 337.6725 419.3455 451.7151 458.7489 485.9390 52.36322 52.36322 52.36322 50.88728 50.41890 52.36322 52.36322 0.000000 346.6339 423.3515 457.8620 465.9272 493.8698 52.50261 52.50261 52.50261 50.90253 50.38850 52.50261 52.50261 0.000000 355.7350 426.1374 462.9363 472.2051 497.1786 52.58528 52.58528 52.58528 50.96671 50.40768 52.58528 52.58528 0.000000 365.9696 430.0062 467.9419 479.3636 505.0186 52.66224 52.66224 52.66224 51.03070 50.37154 52.66224 52.66224 0.000000 376.4540 433.8190 473.9677 485.5842 511.8403 52.78609 52.78609 52.78609 51.09081 50.38523 52.78609 52.78609 0.000000 386.1375 437.5778 478.8654 492.7351 519.6809 52.90504 52.90504 52.90504 51.08781 50.39357 52.90504 52.90504 0.000000 396.0031 441.2847 484.8300 495.7679 527.5400 53.01928 53.01928 53.01928 51.13908 50.34988 53.01928 53.01928 0.000000 407.2033 444.9400 489.6283 501.3826 534.3132 53.12902 53.12902 53.12902 51.18489 50.35635 53.12902 53.12902 0.000000 417.4966 447.2856 494.3694 507.4449 542.1907 53.23444 53.23444 53.23444 51.23091 50.36063 53.23444 53.23444 0.000000 428.0123 450.8305 500.2473 514.5188 548.9369 53.33570 53.33570 53.33570 51.27277 50.36281 53.33570 53.33570 0.000000 438.7209 454.3308 506.1143 520.5552 556.8432 53.43298 53.43298 53.43298 51.31055 50.36297 53.43298 53.43298 0.000000 449.6467 457.7880 510.7370 527.6521 564.7834 53.52641 53.52641 53.52641 51.34558 50.36121 53.52641 53.52641 0.000000 462.1879 461.2036 516.5651 533.6707 566.9940 53.61615 53.61615 53.61615 51.43591 50.35760 53.61615 53.61615 0.000000 473.6229 464.5789 521.1094 539.6727 573.6462 53.70232 53.70232 53.70232 51.46519 50.35221 53.70232 53.70232 0.000000 485.2995 467.9151 526.9056 546.8065 581.5532 53.78506 53.78506 53.78506 51.49286 50.34513 53.78506 53.78506 0.000000 497.2258 471.2136 531.3792 552.8011 589.5016 53.86334 53.86334 53.86334 51.51808 50.38886 53.86334 53.86334 0.000000 509.4106 474.4755 537.1486 559.9789 596.1677 53.99386 53.99386 53.99386 51.54093 50.37854 53.99386 53.99386 0.000000 523.5411 479.1149 542.9185 564.0953 602.8260 54.12160 54.12160 54.12160 51.61832 50.36670 54.12160 54.12160 0.000000 534.5878 482.3226 547.3030 567.4293 610.8541 54.19208 54.19208 54.19208 51.69368 50.35340 54.19208 54.19208 0.000000 76.36672 196.5820 192.2966 183.7060 184.7727 56.03476 56.03476 56.03476 55.80274 55.87877 56.03476 56.03476 0.000000 124.6112 269.1216 254.2029 232.7419 234.5051 52.37416 52.37416 52.37416 52.73690 54.01297 52.37416 52.37416 0.000000 137.6196 283.2698 268.0985 247.5737 250.0715 51.33010 51.33010 51.33010 51.80123 53.15266 51.33010 51.33010 0.000000 143.7780 291.8944 278.2226 259.4828 262.7448 50.81173 50.81173 50.81173 51.24580 52.63323 50.81173 50.81173 0.000000 148.8907 299.0157 287.0668 270.1317 274.3263 50.57101 50.57101 50.57101 50.94582 52.24044 50.57101 50.57101 0.000000 153.9536 305.5727 295.3791 279.9782 285.0528 50.41905 50.41905 50.41905 50.76646 51.97164 50.41905 50.41905 0.000000 158.8827 311.5554 303.1915 289.3067 295.0397 50.36959 50.36959 50.36959 50.58580 51.74149 50.36959 50.36959 0.000000 163.7245 317.6688 310.7082 298.2560 304.8171 50.35944 50.35944 50.35944 50.54749 51.51743 50.35944 50.35944 0.000000 168.7430 322.8672 317.9883 306.9766 314.3668 50.36307 50.36307 50.36307 50.44513 51.36249 50.36307 50.36307 0.000000 173.6480 328.3348 324.7101 315.2918 323.5071 50.39894 50.39894 50.39894 50.40590 51.22960 50.39894 50.39894 0.000000 181.5367 333.5350 331.8598 323.5946 332.9000 50.47808 50.47808 50.47808 50.37947 51.12421 50.47808 50.47808 0.000000 187.7355 338.5690 338.4494 331.8128 341.7355 50.55914 50.55914 50.55914 50.37377 51.05032 50.55914 50.55914 0.000000 193.8105 343.5233 345.1485 339.5573 350.6098 50.60155 50.60155 50.60155 50.39082 50.95749 50.60155 50.60155 0.000000 200.1275 348.4718 351.4258 347.4022 359.0748 50.70920 50.70920 50.70920 50.38623 50.90177 50.70920 50.70920 0.000000 206.7507 353.0708 357.9767 355.4483 367.7574 50.78767 50.78767 50.78767 50.36000 50.83175 50.78767 50.78767 0.000000 213.3417 357.7675 364.2101 363.2141 376.1467 50.88848 50.88848 50.88848 50.36938 50.74664 50.88848 50.88848 0.000000 220.3363 362.1865 370.1480 370.7244 384.9079 50.96694 50.96694 50.96694 50.41655 50.70594 50.96694 50.96694 0.000000 227.3648 366.7869 376.5375 377.9977 393.4719 51.07535 51.07535 51.07535 50.44862 50.65519 51.07535 51.07535 0.000000 234.4098 371.1655 382.7097 385.6960 396.6645 51.16434 51.16434 51.16434 50.46516 50.64835 51.16434 51.16434 0.000000 241.9906 375.7971 388.6796 393.2344 405.0058 51.33714 51.33714 51.33714 50.46892 50.63324 51.33714 51.33714 0.000000 249.6736 379.7816 394.4585 394.8564 410.6964 51.39377 51.39377 51.39377 50.51833 50.55777 51.39377 51.39377 0.000000 256.8710 383.5819 400.8694 402.2810 418.7295 51.53804 51.53804 51.53804 50.55749 50.52831 51.53804 51.53804 0.000000 265.2817 388.1842 406.3188 407.1075 426.6521 51.61917 51.61917 51.61917 50.58721 50.54438 51.61917 51.61917 0.000000 273.2393 392.6601 412.4589 414.2804 435.2549 51.73906 51.73906 51.73906 50.66338 50.50325 51.73906 51.73906 0.000000 281.3070 396.5050 418.4875 421.3647 443.8148 51.84830 51.84830 51.84830 50.67630 50.45628 51.84830 51.84830 0.000000 289.5023 400.2148 424.4084 428.3672 448.4634 51.99743 51.99743 51.99743 50.73700 50.45694 51.99743 51.99743 0.000000 297.8100 404.8536 430.2288 436.0783 456.0091 52.08694 52.08694 52.08694 50.73539 50.45291 52.08694 52.08694 0.000000 306.9834 408.3320 435.9546 442.9560 464.3553 52.16753 52.16753 52.16753 50.83806 50.44450 52.16753 52.16753 0.000000 316.3586 412.7848 441.5884 446.7468 471.7861 52.29126 52.29126 52.29126 50.82370 50.43199 52.29126 52.29126 0.000000 325.9449 416.0512 447.1362 454.2831 480.0786 52.40735 52.40735 52.40735 50.91469 50.41563 52.40735 52.40735 0.000000 334.9012 420.3373 452.6015 460.9458 488.3652 52.51494 52.51494 52.51494 50.94473 50.39565 52.51494 52.51494 0.000000 344.0285 424.5531 459.0162 467.5580 495.6725 52.61674 52.61674 52.61674 50.96865 50.37227 52.61674 52.61674 0.000000 354.2247 427.5378 464.3493 475.0300 500.2705 52.76436 52.76436 52.76436 51.04621 50.39817 52.76436 52.76436 0.000000 363.7016 431.6074 469.6090 481.5732 507.4437 52.85360 52.85360 52.85360 51.11602 50.36567 52.85360 52.85360 0.000000 374.3581 435.6172 475.8929 489.0287 515.6161 52.93694 52.93694 52.93694 51.12735 50.38564 52.93694 52.93694 0.000000 384.2285 439.5696 481.0387 495.5157 523.8036 53.06744 53.06744 53.06744 51.18853 50.35038 53.06744 53.06744 0.000000 395.3816 443.4651 487.2574 499.3123 530.9142 53.19286 53.19286 53.19286 51.19366 50.36497 53.19286 53.19286 0.000000 406.8222 447.3088 492.2981 505.6963 539.1137 53.31344 53.31344 53.31344 51.24969 50.37707 53.31344 53.31344 0.000000 417.3657 449.8260 498.4608 512.0521 547.3380 53.42937 53.42937 53.42937 51.29914 50.33434 53.42937 53.42937 0.000000 428.1393 453.5511 503.4048 519.4344 555.5903 53.54084 53.54084 53.54084 51.34936 50.34178 53.54084 53.54084 0.000000 440.4061 457.2287 509.5193 525.7621 563.8751 53.64801 53.64801 53.64801 51.39424 50.34705 53.64801 53.64801 0.000000 450.3138 460.8607 515.6252 533.1677 566.4363 53.75107 53.75107 53.75107 51.43667 50.35025 53.75107 53.75107 0.000000 463.1421 464.4484 520.4481 539.4760 573.4280 53.85017 53.85017 53.85017 51.53283 50.35146 53.85017 53.85017 0.000000 476.3265 467.9935 526.5171 546.9136 581.6721 53.94432 53.94432 53.94432 51.56953 50.35076 53.94432 53.94432 0.000000 486.8500 471.4971 531.2623 553.2103 589.9576 54.03605 54.03605 54.03605 51.60350 50.34823 54.03605 54.03605 0.000000 500.6587 476.3603 537.3001 560.6883 596.9581 54.12424 54.12424 54.12424 51.69180 50.34394 54.12424 54.12424 0.000000 513.2264 479.8021 543.3373 563.3472 605.3048 54.26359 54.26359 54.26359 51.72065 50.33795 54.26359 54.26359 0.000000 526.0728 483.2062 547.9849 568.7237 612.3126 54.39996 54.39996 54.39996 51.74706 50.38279 54.39996 54.39996 0.000000 540.9721 486.5735 553.9992 576.1814 620.7250 54.47845 54.47845 54.47845 51.82830 50.37359 54.47845 54.47845 0.000000 552.6531 489.9053 560.0167 582.4054 629.1902 54.55384 54.55384 54.55384 51.85010 50.41539 54.55384 54.55384 0.000000 76.36699 196.5898 192.3068 183.7296 184.7980 56.03994 56.03994 56.03994 55.81047 55.88249 56.03994 56.03994 0.000000 124.6486 269.3125 254.3944 232.8652 234.6405 52.34513 52.34513 52.34513 52.70349 54.00367 52.34513 52.34513 0.000000 137.6373 283.4262 268.3376 247.9327 250.4554 51.30416 51.30416 51.30416 51.70360 53.11880 51.30416 51.30416 0.000000 143.7586 292.2411 278.6634 260.0759 263.3754 50.77718 50.77718 50.77718 51.24178 52.56839 50.77718 50.77718 0.000000 149.0380 299.5472 287.7054 270.7922 275.0336 50.51989 50.51989 50.51989 50.91451 52.14095 50.51989 50.51989 0.000000 154.0562 306.2823 295.9848 280.8509 285.9863 50.39694 50.39694 50.39694 50.70357 51.88752 50.39694 50.39694 0.000000 159.0502 312.4366 303.9749 290.3888 296.1965 50.37136 50.37136 50.37136 50.59828 51.67522 50.37136 50.37136 0.000000 164.2153 318.3868 311.6668 299.5457 306.1968 50.38259 50.38259 50.38259 50.46775 51.46471 50.38259 50.38259 0.000000 169.1801 324.0779 319.1198 308.4733 315.9700 50.35696 50.35696 50.35696 50.43737 51.32174 50.35696 50.35696 0.000000 174.3028 329.7051 326.2872 316.9931 325.5674 50.45897 50.45897 50.45897 50.41105 51.19967 50.45897 50.45897 0.000000 182.3431 335.0606 333.3305 325.5020 334.9518 50.50447 50.50447 50.50447 50.39756 51.10415 50.50447 50.50447 0.000000 188.6492 339.8655 340.0864 333.9272 344.0107 50.60084 50.60084 50.60084 50.34597 50.98577 50.60084 50.60084 0.000000 194.8343 344.9570 346.9532 342.3913 353.1124 50.65742 50.65742 50.65742 50.37725 50.90151 50.65742 50.65742 0.000000 201.6379 350.0426 353.3942 350.4660 362.3768 50.77808 50.77808 50.77808 50.38296 50.85373 50.77808 50.77808 0.000000 208.4068 354.7741 360.1114 358.1844 371.3170 50.86761 50.86761 50.86761 50.36635 50.78863 50.86761 50.86761 0.000000 215.1450 359.6024 366.5080 366.1612 379.9625 50.98047 50.98047 50.98047 50.43951 50.71300 50.98047 50.98047 0.000000 221.8688 364.1494 373.3198 374.4903 388.9910 51.07078 51.07078 51.07078 50.44053 50.67891 51.07078 51.07078 0.000000 229.4883 369.3255 379.1605 381.9946 392.2401 51.18871 51.18871 51.18871 50.47872 50.63445 51.18871 51.18871 0.000000 236.7000 373.3834 385.4965 389.9348 400.9698 51.28815 51.28815 51.28815 50.50257 50.58067 51.28815 51.28815 0.000000 244.4607 378.1430 392.4094 392.1424 407.0602 51.47004 51.47004 51.47004 50.51566 50.57126 51.47004 51.47004 0.000000 251.7884 382.7242 398.3680 399.9244 415.4528 51.53683 51.53683 51.53683 50.57214 50.55410 51.53683 51.53683 0.000000 260.2751 387.1371 404.1458 406.5286 424.4733 51.69021 51.69021 51.69021 50.61807 50.53017 51.69021 51.69021 0.000000 268.3272 391.3901 410.5961 412.6178 432.6589 51.77986 51.77986 51.77986 50.65429 50.49866 51.77986 51.77986 0.000000 276.4903 395.4938 416.9269 420.0292 441.5438 51.90751 51.90751 51.90751 50.68151 50.46191 51.90751 51.90751 0.000000 284.7807 399.4530 423.1422 427.3515 446.5378 52.02462 52.02462 52.02462 50.75571 50.41963 52.02462 52.02462 0.000000 293.8752 404.3299 429.2514 435.3737 455.2429 52.18268 52.18268 52.18268 50.82230 50.42476 52.18268 52.18268 0.000000 302.4420 408.0417 435.2580 442.5595 463.9225 52.27972 52.27972 52.27972 50.82623 50.42505 52.27972 52.27972 0.000000 311.9015 412.7202 441.1678 446.6538 471.6837 52.36757 52.36757 52.36757 50.93456 50.42084 52.36757 52.36757 0.000000 321.5742 416.2061 446.9859 454.4861 480.3021 52.54935 52.54935 52.54935 50.92535 50.41239 52.54935 52.54935 0.000000 331.4698 420.7051 452.7164 461.4407 488.9120 52.62036 52.62036 52.62036 51.02085 50.39997 52.62036 52.62036 0.000000 339.8715 425.1322 459.3929 468.3408 496.9540 52.78826 52.78826 52.78826 51.05557 50.38382 52.78826 52.78826 0.000000 350.1621 428.3186 464.9814 476.1003 501.4446 52.84439 52.84439 52.84439 51.08545 50.36135 52.84439 52.84439 0.000000 360.7031 432.5887 470.4951 483.8607 509.9480 52.99885 52.99885 52.99885 51.16635 50.33842 52.99885 52.99885 0.000000 371.5056 436.7951 477.0321 490.6644 518.4621 53.14731 53.14731 53.14731 51.24142 50.36479 53.14731 53.14731 0.000000 382.5798 440.9404 482.4239 496.0811 525.9125 53.23692 53.23692 53.23692 51.25803 50.38818 53.23692 53.23692 0.000000 392.8480 445.0253 488.8914 501.4879 534.4303 53.32072 53.32072 53.32072 51.32312 50.35626 53.32072 53.32072 0.000000 404.4508 447.7899 494.1707 509.1603 542.9699 53.45235 53.45235 53.45235 51.33241 50.37411 53.45235 53.45235 0.000000 415.1729 451.7462 500.5785 515.8071 551.5348 53.57899 53.57899 53.57899 51.39167 50.33694 53.57899 53.57899 0.000000 427.3647 455.6505 506.9745 522.4262 560.1284 53.70084 53.70084 53.70084 51.44790 50.34976 53.70084 53.70084 0.000000 438.5789 459.5045 512.1143 530.1085 563.6524 53.81810 53.81810 53.81810 51.50069 50.36024 53.81810 53.81810 0.000000 450.0264 463.3102 518.4620 537.8171 571.5877 53.92981 53.92981 53.92981 51.55019 50.36849 53.92981 53.92981 0.000000 463.1099 467.0690 524.8038 545.5546 580.1635 54.03856 54.03856 54.03856 51.59652 50.37460 54.03856 54.03856 0.000000 476.5603 470.7826 529.8224 552.1535 587.4855 54.14323 54.14323 54.14323 51.69676 50.37866 54.14323 54.14323 0.000000 488.8707 474.4525 536.1266 559.9303 596.1138 54.24397 54.24397 54.24397 51.73719 50.38075 54.24397 54.24397 0.000000 501.4518 479.4951 542.4285 564.0079 603.4354 54.39570 54.39570 54.39570 51.83200 50.38095 54.39570 54.39570 0.000000 515.9563 483.0994 547.3420 568.5593 612.1274 54.54415 54.54415 54.54415 51.86697 50.37933 54.54415 54.54415 0.000000 529.1702 486.6638 553.6172 576.3085 620.8682 54.63418 54.63418 54.63418 51.89931 50.37439 54.63418 54.63418 0.000000 542.6856 490.1895 559.8944 582.8226 629.6624 54.72079 54.72079 54.72079 51.92601 50.36916 54.72079 54.72079 0.000000 556.5249 493.6775 564.7139 590.6296 638.5126 54.85960 54.85960 54.85960 52.01096 50.41489 54.85960 54.85960 0.000000 570.6741 497.1277 570.9724 597.1534 647.4213 54.99555 54.99555 54.99555 52.09374 50.40648 54.99555 54.99555 0.000000 76.36723 196.5976 192.3170 183.7530 184.8231 56.04470 56.04470 56.04470 55.81761 55.88593 56.04470 56.04470 0.000000 124.8172 269.4879 254.5704 233.0794 234.8682 52.31130 52.31130 52.31130 52.66531 53.93265 52.31130 52.31130 0.000000 137.6457 283.5503 268.5431 248.2525 250.7983 51.22007 51.22007 51.22007 51.65638 53.02354 51.22007 51.22007 0.000000 143.9234 292.5406 278.8566 260.4641 263.7938 50.73343 50.73343 50.73343 51.17339 52.49848 50.73343 50.73343 0.000000 149.2718 300.0170 288.0661 271.3786 275.6623 50.50763 50.50763 50.50763 50.87397 52.09125 50.50763 50.50763 0.000000 154.3610 306.6122 296.7390 281.6339 286.8248 50.41154 50.41154 50.41154 50.68586 51.79959 50.41154 50.41154 0.000000 159.4279 313.2328 304.9066 291.3666 297.2424 50.36015 50.36015 50.36015 50.54486 51.60209 50.36015 50.36015 0.000000 164.4097 319.0052 312.5192 300.7172 307.4502 50.34227 50.34227 50.34227 50.48630 51.40460 50.34227 50.34227 0.000000 169.5721 324.8354 320.1323 310.0519 317.4325 50.38472 50.38472 50.38472 50.41621 51.27318 50.38472 50.38472 0.000000 174.6218 330.5988 327.4593 318.7746 327.4778 50.45499 50.45499 50.45499 50.40354 51.16154 50.45499 50.45499 0.000000 183.0900 336.0883 334.6602 327.7275 336.8353 50.51563 50.51563 50.51563 50.34781 51.02191 50.51563 50.51563 0.000000 189.4961 341.4054 341.5714 336.1207 346.6332 50.62575 50.62575 50.62575 50.36243 50.96594 50.62575 50.62575 0.000000 195.7841 346.2428 348.5954 344.5322 355.9753 50.74502 50.74502 50.74502 50.34968 50.83650 50.74502 50.74502 0.000000 202.6992 351.8623 355.5154 352.8024 365.1947 50.82791 50.82791 50.82791 50.41995 50.79382 50.82791 50.82791 0.000000 209.5832 356.3103 362.0621 361.2852 374.6737 50.92938 50.92938 50.92938 50.41258 50.73834 50.92938 50.92938 0.000000 216.4398 361.2630 369.3108 369.4854 383.5648 51.10403 51.10403 51.10403 50.43975 50.66951 51.10403 51.10403 0.000000 223.7294 366.3691 375.5819 377.4275 392.8502 51.20406 51.20406 51.20406 50.50179 50.64178 51.20406 51.20406 0.000000 231.0406 371.2311 382.3156 385.7732 396.7415 51.33272 51.33272 51.33272 50.49258 50.60336 51.33272 51.33272 0.000000 238.8809 375.8646 388.8288 393.9454 405.7268 51.44112 51.44112 51.44112 50.58083 50.55535 51.44112 51.44112 0.000000 246.8136 380.2837 395.1345 396.7635 412.0396 51.58326 51.58326 51.58326 50.60099 50.49756 51.58326 51.58326 0.000000 254.8573 384.9830 402.0603 404.7777 420.6872 51.70943 51.70943 51.70943 50.66436 50.48633 51.70943 51.70943 0.000000 262.9885 389.5109 408.0082 410.1612 429.9790 51.82037 51.82037 51.82037 50.66162 50.46713 51.82037 51.82037 0.000000 271.2312 393.8789 414.6411 417.9008 438.4195 51.96909 51.96909 51.96909 50.75940 50.44122 51.96909 51.96909 0.000000 280.2303 398.6073 421.1525 425.5433 444.7669 52.10563 52.10563 52.10563 50.79265 50.40916 52.10563 52.10563 0.000000 288.7567 403.2094 427.5493 433.0963 453.6125 52.23070 52.23070 52.23070 50.87285 50.42392 52.23070 52.23070 0.000000 297.4054 407.1586 433.8369 441.3675 461.7545 52.34504 52.34504 52.34504 50.88956 50.43335 52.34504 52.34504 0.000000 306.9292 412.0656 440.0225 445.7701 470.7111 52.44812 52.44812 52.44812 50.95448 50.38526 52.44812 52.44812 0.000000 316.6678 415.7734 446.1101 453.8944 479.6504 52.59475 52.59475 52.59475 51.01170 50.38507 52.59475 52.59475 0.000000 326.6309 420.4890 452.1046 461.1388 488.5784 52.73283 52.73283 52.73283 51.06305 50.38053 52.73283 52.73283 0.000000 336.8286 425.1248 459.0391 468.3243 496.9381 52.86283 52.86283 52.86283 51.10871 50.36909 52.86283 52.86283 0.000000 346.3932 428.5160 464.8833 476.3662 501.7364 52.98516 52.98516 52.98516 51.20472 50.35668 52.98516 52.98516 0.000000 356.1159 432.9866 470.6481 484.4071 510.5479 53.15315 53.15315 53.15315 51.23862 50.39312 53.15315 53.15315 0.000000 366.9948 437.3896 477.4338 492.4511 519.3689 53.20842 53.20842 53.20842 51.26897 50.37364 53.20842 53.20842 0.000000 378.1482 441.7277 484.1944 495.8907 528.2036 53.36327 53.36327 53.36327 51.34724 50.35093 53.36327 53.36327 0.000000 389.5883 446.0018 489.7812 502.8477 537.0563 53.51224 53.51224 53.51224 51.42517 50.37761 53.51224 53.51224 0.000000 401.3263 448.9465 496.4732 510.7923 545.9307 53.65561 53.65561 53.65561 51.43972 50.34891 53.65561 53.65561 0.000000 413.3761 453.0845 501.9471 518.7548 554.8306 53.73970 53.73970 53.73970 51.50763 50.36989 53.73970 53.73970 0.000000 424.5408 457.1674 508.5804 525.6607 563.7613 53.87235 53.87235 53.87235 51.57167 50.33578 53.87235 53.87235 0.000000 435.9197 461.1972 513.9520 533.6404 566.9606 53.99902 53.99902 53.99902 51.63202 50.35158 53.99902 53.99902 0.000000 448.8674 465.1758 520.5358 540.5182 575.8317 54.12218 54.12218 54.12218 51.68883 50.36499 54.12218 54.12218 0.000000 462.1767 469.1049 527.1114 548.5259 583.4623 54.24080 54.24080 54.24080 51.74223 50.37609 54.24080 54.24080 0.000000 474.4085 472.9863 533.6808 556.5658 592.3820 54.40986 54.40986 54.40986 51.79239 50.38500 54.40986 54.40986 0.000000 486.9085 478.2302 538.8937 564.6419 601.3464 54.52008 54.52008 54.52008 51.89671 50.39180 54.52008 54.52008 0.000000 501.2580 482.0395 545.4285 566.9910 610.3604 54.62625 54.62625 54.62625 51.94080 50.39497 54.62625 54.62625 0.000000 516.0279 485.8053 551.9623 573.7819 619.4229 54.72851 54.72851 54.72851 51.97886 50.39762 54.72851 54.72851 0.000000 529.5176 489.5290 558.4968 581.8299 628.5389 54.82700 54.82700 54.82700 52.01734 50.39839 54.82700 54.82700 0.000000 543.3186 493.2119 563.5769 589.9219 637.7111 54.97753 54.97753 54.97753 52.05313 50.39737 54.97753 54.97753 0.000000 557.4529 496.8537 570.0891 596.7321 646.9423 55.12492 55.12492 55.12492 52.14402 50.39461 55.12492 55.12492 0.000000 571.9097 500.4589 576.6063 603.5360 654.6857 55.21312 55.21312 55.21312 52.23262 50.39019 55.21312 55.21312 0.000000 588.7109 504.0268 583.1300 611.7142 656.6697 55.35287 55.35287 55.35287 52.26099 50.43524 55.35287 55.35287 0.000000 76.36745 196.6135 192.3271 183.7764 184.8482 56.04909 56.04909 56.04909 55.82423 55.88911 56.04909 56.04909 0.000000 124.8487 269.6500 254.5805 233.1666 234.9653 52.27320 52.27320 52.27320 52.62284 53.91791 52.27320 52.27320 0.000000 137.7361 283.8969 268.7191 248.4064 250.9693 51.22998 51.22998 51.22998 51.60307 52.98173 51.22998 51.22998 0.000000 143.9752 292.7982 279.2038 260.8016 264.3123 50.73076 50.73076 50.73076 51.09774 52.42402 50.73076 50.73076 0.000000 149.2719 300.4332 288.5833 271.8995 276.2218 50.48574 50.48574 50.48574 50.82510 52.03625 50.48574 50.48574 0.000000 154.4123 307.1815 297.1953 282.5150 287.5790 50.36678 50.36678 50.36678 50.65612 51.76081 50.36678 50.36678 0.000000 159.5324 313.6313 305.5150 292.4423 298.3883 50.33722 50.33722 50.33722 50.48167 51.52274 50.33722 50.33722 0.000000 164.8279 319.8702 313.5330 301.7827 308.8048 50.38769 50.38769 50.38769 50.43981 51.33783 50.38769 50.38769 0.000000 169.9243 325.8432 321.0400 311.3003 319.2219 50.39918 50.39918 50.39918 50.38406 51.21754 50.39918 50.39918 0.000000 175.1814 331.3859 328.7960 320.4312 329.0134 50.48462 50.48462 50.48462 50.38453 51.06227 50.48462 50.48462 0.000000 183.4662 336.9998 335.8633 329.3396 339.0750 50.60928 50.60928 50.60928 50.39238 50.98558 50.60928 50.60928 0.000000 190.2842 342.8259 343.2259 338.1673 348.5694 50.68476 50.68476 50.68476 50.36654 50.88466 50.68476 50.68476 0.000000 196.6684 348.1911 350.4082 347.0397 358.3949 50.81691 50.81691 50.81691 50.41869 50.81649 50.81691 50.81691 0.000000 203.6885 353.1372 357.4872 355.5185 367.8331 50.91085 50.91085 50.91085 50.38908 50.72789 50.91085 50.91085 0.000000 210.6805 358.5407 364.5311 364.2157 377.2287 51.07450 51.07450 51.07450 50.44537 50.67934 51.07450 51.07450 0.000000 218.0736 363.6324 371.2473 372.6308 386.9749 51.16067 51.16067 51.16067 50.47894 50.61706 51.16067 51.16067 0.000000 225.5069 368.4343 378.3920 380.7854 391.0105 51.32033 51.32033 51.32033 50.49371 50.59546 51.32033 51.32033 0.000000 232.9657 372.9661 385.2966 389.3548 400.3800 51.45805 51.45805 51.45805 50.54892 50.56289 51.45805 51.45805 0.000000 240.9652 378.1774 391.9798 392.1750 407.0953 51.57689 51.57689 51.57689 50.58932 50.51942 51.57689 51.57689 0.000000 248.5493 383.1938 398.4517 400.5197 416.8213 51.67751 51.67751 51.67751 50.67145 50.52133 51.67751 51.67751 0.000000 256.7190 388.0267 404.7275 406.2493 425.7159 51.86276 51.86276 51.86276 50.74146 50.46176 51.86276 51.86276 0.000000 265.5840 392.6854 411.6659 414.2951 435.2709 51.98226 51.98226 51.98226 50.74492 50.44739 51.98226 51.98226 0.000000 274.0099 397.1815 418.4753 422.9796 444.7707 52.08807 52.08807 52.08807 50.84892 50.42613 52.08807 52.08807 0.000000 283.2094 401.5206 425.1611 430.8465 450.3286 52.23235 52.23235 52.23235 50.88800 50.39853 52.23235 52.23235 0.000000 291.9340 405.7138 431.7303 438.6236 459.6345 52.36488 52.36488 52.36488 50.91826 50.41758 52.36488 52.36488 0.000000 301.5044 410.8471 438.1912 445.4464 468.0250 52.53707 52.53707 52.53707 50.99447 50.37862 52.53707 52.53707 0.000000 311.2902 414.7830 444.5491 451.7134 477.2512 52.70043 52.70043 52.70043 51.06703 50.38708 52.70043 52.70043 0.000000 321.3016 419.7147 450.8077 460.0813 486.4623 52.80202 52.80202 52.80202 51.07259 50.38794 52.80202 52.80202 0.000000 331.5488 424.5616 457.9953 467.5506 496.6422 52.94706 52.94706 52.94706 51.18528 50.38721 52.94706 52.94706 0.000000 341.1838 428.1610 464.0959 475.8705 501.1924 53.08379 53.08379 53.08379 51.23509 50.38228 53.08379 53.08379 0.000000 351.8944 432.8326 470.1096 484.1871 510.3064 53.21267 53.21267 53.21267 51.28066 50.37341 53.21267 53.21267 0.000000 362.8724 437.4325 477.1399 492.5050 519.4281 53.33410 53.33410 53.33410 51.37349 50.36080 53.33410 53.33410 0.000000 373.1228 441.9636 484.1431 496.2133 528.5624 53.50189 53.50189 53.50189 51.40928 50.34469 53.50189 53.50189 0.000000 384.6211 446.4269 489.9699 503.4365 537.7136 53.66336 53.66336 53.66336 51.43643 50.37770 53.66336 53.66336 0.000000 396.4203 449.5544 496.9000 511.6476 546.8860 53.76485 53.76485 53.76485 51.51700 50.35509 53.76485 53.76485 0.000000 408.5331 453.8739 502.6080 519.8758 556.0836 53.85906 53.85906 53.85906 51.59322 50.38195 53.85906 53.85906 0.000000 420.9731 458.1352 509.4758 528.1246 564.3280 54.00292 54.00292 54.00292 51.66529 50.35348 54.00292 54.00292 0.000000 433.7731 462.3403 516.3301 536.3973 570.0128 54.14151 54.14151 54.14151 51.73339 50.37476 54.14151 54.14151 0.000000 445.5888 466.4914 521.8907 543.5574 577.9518 54.27506 54.27506 54.27506 51.79770 50.39347 54.27506 54.27506 0.000000 459.0347 470.5903 528.6968 551.8579 587.1573 54.40376 54.40376 54.40376 51.85837 50.35722 54.40376 54.40376 0.000000 471.4234 476.0367 535.4960 560.1912 596.4058 54.52780 54.52780 54.52780 51.91555 50.36949 54.52780 54.52780 0.000000 485.5843 480.0563 542.2902 563.4609 605.7023 54.70262 54.70262 54.70262 51.96627 50.38090 54.70262 54.70262 0.000000 500.1579 484.0287 547.6923 571.1465 615.0462 54.81804 54.81804 54.81804 52.01697 50.39014 54.81804 54.81804 0.000000 515.1622 487.9552 554.4536 578.2146 624.4426 54.98500 54.98500 54.98500 52.06458 50.39730 54.98500 54.98500 0.000000 528.8998 491.8374 561.2152 586.5563 633.8945 55.09241 55.09241 55.09241 52.16697 50.40247 55.09241 55.09241 0.000000 542.9578 495.6751 567.9789 593.6271 643.4049 55.19594 55.19594 55.19594 52.20881 50.40571 55.19594 55.19594 0.000000 557.3585 499.4731 574.7463 602.0313 652.9746 55.35058 55.35058 55.35058 52.30588 50.40562 55.35058 55.35058 0.000000 572.0916 503.2306 579.9916 610.4874 656.0643 55.50326 55.50326 55.50326 52.34236 50.45792 55.50326 55.50326 0.000000 589.1818 508.5087 586.7414 618.9940 664.8408 55.59601 55.59601 55.59601 52.37626 50.45589 55.59601 55.59601 0.000000 604.7141 512.2072 593.4992 626.1183 674.4576 55.68536 55.68536 55.68536 52.46593 50.45221 55.68536 55.68536 0.000000 76.36765 196.6133 192.3372 183.7996 184.8731 56.05316 56.05316 56.05316 55.83039 55.89207 56.05316 56.05316 0.000000 124.8777 269.8003 254.7306 233.2391 235.0465 52.23132 52.23132 52.23132 52.57653 53.90084 52.23132 52.23132 0.000000 137.8196 283.9676 268.8694 248.6626 251.2441 51.18399 51.18399 51.18399 51.54425 52.93648 51.18399 51.18399 0.000000 144.0156 293.0187 279.5126 261.2440 264.6301 50.71977 50.71977 50.71977 51.07139 52.40140 50.71977 50.71977 0.000000 149.4715 300.5092 288.8353 272.5264 276.7198 50.45513 50.45513 50.45513 50.76867 51.97647 50.45513 50.45513 0.000000 154.6729 307.6928 297.8187 283.1480 288.2581 50.35998 50.35998 50.35998 50.62078 51.71668 50.35998 50.35998 0.000000 159.8562 314.2827 306.0494 293.2456 299.2485 50.35226 50.35226 50.35226 50.46443 51.49213 50.35226 50.35226 0.000000 164.9570 320.6590 314.2078 302.9590 310.0615 50.37309 50.37309 50.37309 50.43756 51.31904 50.37309 50.37309 0.000000 170.3786 326.4158 322.1238 312.4431 320.4498 50.45021 50.45021 50.45021 50.39659 51.15546 50.45021 50.45021 0.000000 175.4145 332.4394 329.7496 321.7449 330.6667 50.50211 50.50211 50.50211 50.35503 51.01001 50.50211 50.50211 0.000000 184.1120 338.1826 337.2490 330.8245 340.6753 50.64089 50.64089 50.64089 50.37453 50.94218 50.64089 50.64089 0.000000 191.0200 343.7493 344.7627 339.8255 350.8980 50.72991 50.72991 50.72991 50.35934 50.84946 50.72991 50.72991 0.000000 197.4950 349.2282 352.0954 348.8751 360.6620 50.87334 50.87334 50.87334 50.42134 50.78629 50.87334 50.87334 0.000000 204.6136 354.2846 358.9915 357.8091 370.6074 50.98011 50.98011 50.98011 50.45568 50.70727 50.98011 50.98011 0.000000 211.7075 359.7999 366.1736 366.4066 380.2283 51.10508 51.10508 51.10508 50.46392 50.66534 51.10508 51.10508 0.000000 219.2091 365.0003 373.7414 375.3079 390.2109 51.25004 51.25004 51.25004 50.50520 50.60930 51.25004 51.25004 0.000000 226.7555 369.9095 380.3103 383.9743 394.9098 51.41969 51.41969 51.41969 50.58461 50.54078 51.41969 51.41969 0.000000 234.3309 375.4650 387.3556 392.7588 404.5198 51.51758 51.51758 51.51758 50.59208 50.51281 51.51758 51.51758 0.000000 242.4558 379.8663 394.1757 396.2129 411.4452 51.69592 51.69592 51.69592 50.69464 50.47635 51.69592 51.69592 0.000000 250.6988 384.9899 401.5992 404.7757 420.6850 51.85565 51.85565 51.85565 50.72823 50.48273 51.85565 51.85565 0.000000 259.0310 389.9273 408.0332 410.6932 430.5593 51.94761 51.94761 51.94761 50.74923 50.42809 51.94761 51.94761 0.000000 268.0746 394.6910 415.1407 418.9569 440.3700 52.12657 52.12657 52.12657 50.81410 50.41838 52.12657 52.12657 0.000000 276.6770 399.2874 422.1174 427.1148 446.2805 52.29166 52.29166 52.29166 50.86847 50.40161 52.29166 52.29166 0.000000 286.0804 404.7825 428.9709 435.9593 455.8796 52.44384 52.44384 52.44384 50.96880 50.37833 52.44384 52.44384 0.000000 295.6814 409.0936 435.7084 444.7662 465.4449 52.58262 52.58262 52.58262 51.00424 50.40152 52.58262 52.58262 0.000000 304.7654 413.8089 442.3351 449.6543 474.9841 52.71120 52.71120 52.71120 51.08652 50.36658 52.71120 52.71120 0.000000 314.7695 418.4096 448.8578 457.4505 484.5042 52.82921 52.82921 52.82921 51.10609 50.37611 52.82921 52.82921 0.000000 325.0083 423.4691 456.2985 466.0558 494.0117 53.04267 53.04267 53.04267 51.22913 50.38360 53.04267 53.04267 0.000000 336.3452 427.2803 462.6517 474.6500 499.8535 53.14166 53.14166 53.14166 51.23590 50.38650 53.14166 53.14166 0.000000 346.2515 432.1538 468.9154 483.2384 509.2648 53.33810 53.33810 53.33810 51.34476 50.33264 53.33810 53.33810 0.000000 357.2633 436.9513 476.1871 491.8259 518.6820 53.42009 53.42009 53.42009 51.39590 50.37963 53.42009 53.42009 0.000000 368.5553 441.6758 482.3076 495.8066 528.1101 53.60124 53.60124 53.60124 51.43768 50.37035 53.60124 53.60124 0.000000 380.1387 446.3288 489.4948 503.2935 537.5540 53.77560 53.77560 53.77560 51.53220 50.35746 53.77560 53.77560 0.000000 392.0266 449.6418 496.6591 511.7657 547.0180 53.88933 53.88933 53.88933 51.62181 50.39363 53.88933 53.88933 0.000000 404.2318 454.1430 502.5997 520.2542 556.5067 53.99547 53.99547 53.99547 51.70674 50.37407 53.99547 53.99547 0.000000 415.5798 458.5826 509.6977 528.7627 564.1594 54.15092 54.15092 54.15092 51.73009 50.35146 54.15092 54.15092 0.000000 428.4233 462.9631 516.7809 537.2947 571.0083 54.30073 54.30073 54.30073 51.80618 50.37836 54.30073 54.30073 0.000000 441.6069 467.2864 523.8519 545.8536 580.4954 54.44513 54.44513 54.44513 51.87819 50.40251 54.44513 54.44513 0.000000 455.1628 471.5548 529.5983 554.4426 590.0231 54.58436 54.58436 54.58436 51.94315 50.36983 54.58436 54.58436 0.000000 469.1065 477.1736 536.6226 563.0666 599.5969 54.71861 54.71861 54.71861 52.00764 50.38857 54.71861 54.71861 0.000000 481.9653 481.3583 543.6412 564.7631 609.2161 54.84808 54.84808 54.84808 52.06855 50.40490 54.84808 54.84808 0.000000 496.6652 485.4932 550.6563 573.3074 618.8864 55.02872 55.02872 55.02872 52.12603 50.41891 55.02872 55.02872 0.000000 510.1789 489.5799 557.6697 581.8934 628.6108 55.14935 55.14935 55.14935 52.23808 50.43071 55.14935 55.14935 0.000000 525.6943 493.6200 563.2283 590.5237 638.3927 55.32193 55.32193 55.32193 52.28918 50.43884 55.32193 55.32193 0.000000 541.6805 497.6136 570.2140 599.2030 648.2349 55.43281 55.43281 55.43281 52.33722 50.44651 55.43281 55.43281 0.000000 556.3209 501.5652 577.2032 606.5657 656.9717 55.54103 55.54103 55.54103 52.38233 50.45222 55.54103 55.54103 0.000000 571.3010 505.4743 584.1978 615.3123 660.7078 55.70227 55.70227 55.70227 52.48289 50.45603 55.70227 55.70227 0.000000 588.6461 510.9141 591.1990 624.1134 670.5908 55.86019 55.86019 55.86019 52.52249 50.45802 55.86019 55.86019 0.000000 604.4471 514.7610 598.2103 631.5139 678.9083 55.95754 55.95754 55.95754 52.61797 50.51095 55.95754 55.95754 0.000000 620.6405 518.5671 605.2289 640.3975 688.8974 56.10890 56.10890 56.10890 52.65243 50.50948 56.10890 56.10890 0.000000 76.36784 196.6292 192.3473 183.8229 184.8980 56.05694 56.05694 56.05694 55.83614 55.89483 56.05694 56.05694 0.000000 124.9046 269.9402 254.8701 233.4091 235.2274 52.18602 52.18602 52.18602 52.52675 53.82302 52.18602 52.18602 0.000000 137.8970 284.2688 268.9966 248.8921 251.4913 51.13266 51.13266 51.13266 51.53714 52.88812 51.13266 51.13266 0.000000 144.1459 293.2062 279.7872 261.6474 265.0604 50.65347 50.65347 50.65347 51.03889 52.31898 50.65347 50.65347 0.000000 149.5489 300.8337 289.4728 273.1029 277.3336 50.46453 50.46453 50.46453 50.76066 51.96749 50.46453 50.46453 0.000000 154.8001 308.1521 298.3875 283.7179 288.8695 50.34492 50.34492 50.34492 50.57782 51.66768 50.34492 50.34492 0.000000 160.0350 314.8730 306.7629 293.9738 300.2314 50.35761 50.35761 50.35761 50.43896 51.40192 50.35761 50.35761 0.000000 165.3188 321.0406 315.0662 304.0526 311.0149 50.39670 50.39670 50.39670 50.37257 51.24057 50.39670 50.39670 0.000000 170.5278 327.2608 323.1260 313.7097 321.5760 50.48941 50.48941 50.48941 50.34521 51.08751 50.48941 50.48941 0.000000 175.9003 333.4096 330.6096 323.1849 332.2122 50.55685 50.55685 50.55685 50.36747 51.00507 50.55685 50.55685 0.000000 184.7165 339.2750 338.5364 332.6844 342.6703 50.66063 50.66063 50.66063 50.34667 50.89230 50.66063 50.66063 0.000000 191.3671 344.5702 345.8821 341.8745 352.8307 50.81160 50.81160 50.81160 50.39643 50.80503 50.81160 50.81160 0.000000 198.2698 350.1559 353.3451 351.1166 363.0780 50.91679 50.91679 50.91679 50.41327 50.75162 50.91679 50.91679 0.000000 205.4814 356.1470 361.0401 359.9621 373.2412 51.08543 51.08543 51.08543 50.45648 50.67946 51.08543 51.08543 0.000000 212.6714 361.3648 368.3766 369.0375 383.0794 51.22013 51.22013 51.22013 50.47070 50.59105 51.22013 51.22013 0.000000 220.2756 366.6808 375.3829 377.8293 393.2888 51.37601 51.37601 51.37601 50.52180 50.54115 51.37601 51.37601 0.000000 227.9291 372.1543 382.8260 387.0087 397.9956 51.50535 51.50535 51.50535 50.60864 50.53116 51.50535 51.50535 0.000000 236.0993 376.9104 390.0281 390.5392 406.1713 51.66285 51.66285 51.66285 50.67830 50.50920 51.66285 51.66285 0.000000 244.3710 382.3586 397.0034 399.4298 414.9186 51.79891 51.79891 51.79891 50.73241 50.47726 51.79891 51.79891 0.000000 252.7651 387.6076 404.1780 406.0435 425.1132 51.96742 51.96742 51.96742 50.77239 50.43593 51.96742 51.96742 0.000000 261.2552 392.6680 411.1764 414.2620 435.2346 52.11887 52.11887 52.11887 50.85497 50.43861 52.11887 52.11887 0.000000 270.4712 397.5522 418.4477 423.4579 445.2942 52.30609 52.30609 52.30609 50.92587 50.43341 52.30609 52.30609 0.000000 279.8817 402.2669 425.5867 431.8275 451.3949 52.47802 52.47802 52.47802 50.98371 50.42096 52.47802 52.47802 0.000000 288.8352 406.8223 432.6012 440.8992 461.2450 52.58545 52.58545 52.58545 51.03672 50.40183 52.58545 52.58545 0.000000 298.6314 412.3176 439.4987 446.0904 471.0634 52.78479 52.78479 52.78479 51.07602 50.37369 52.78479 52.78479 0.000000 308.6517 416.5962 446.2860 454.9910 480.8579 52.92044 52.92044 52.92044 51.16229 50.34272 52.92044 52.92044 0.000000 318.9065 421.8710 452.9684 463.8711 491.5968 53.04527 53.04527 53.04527 51.24447 50.35883 53.04527 53.04527 0.000000 329.4068 425.8969 460.5853 471.8373 496.7751 53.21290 53.21290 53.21290 51.31702 50.36993 53.21290 53.21290 0.000000 339.3124 430.9737 467.0972 480.6653 506.4471 53.37133 53.37133 53.37133 51.38332 50.37635 53.37133 53.37133 0.000000 350.2961 435.9697 474.6075 489.4896 516.1224 53.52107 53.52107 53.52107 51.44206 50.37835 53.52107 53.52107 0.000000 361.5583 440.8886 480.9691 496.3551 525.8063 53.66257 53.66257 53.66257 51.49538 50.37619 53.66257 53.66257 0.000000 373.1115 445.7320 488.3891 502.4528 536.6154 53.85023 53.85023 53.85023 51.59965 50.37013 53.85023 53.85023 0.000000 386.0231 449.2336 495.7840 511.1816 546.3655 54.02983 54.02983 54.02983 51.69863 50.36036 54.02983 54.02983 0.000000 398.2469 453.9168 501.9557 519.9255 556.1392 54.14956 54.14956 54.14956 51.73545 50.34710 54.14956 54.14956 0.000000 410.8030 458.5351 509.2802 528.6886 564.1895 54.26253 54.26253 54.26253 51.82445 50.38298 54.26253 54.26253 0.000000 422.5046 463.0909 516.5884 537.4745 571.2078 54.42387 54.42387 54.42387 51.85156 50.41574 54.42387 54.42387 0.000000 435.7113 467.5866 523.8832 546.2869 580.9765 54.57944 54.57944 54.57944 51.92839 50.39129 54.57944 54.57944 0.000000 449.2913 472.0245 529.8512 555.1293 590.7861 54.72948 54.72948 54.72948 52.00426 50.36544 54.72948 54.72948 0.000000 463.2609 477.8131 537.0962 564.0067 600.6403 54.87421 54.87421 54.87421 52.07615 50.38940 54.87421 54.87421 0.000000 477.6365 482.1627 544.3348 567.1543 610.5444 55.01384 55.01384 55.01384 52.14424 50.41077 55.01384 55.01384 0.000000 492.4354 486.4598 551.5692 575.9805 620.4985 55.14857 55.14857 55.14857 52.20867 50.42967 55.14857 55.14857 0.000000 507.6762 490.7064 558.8016 583.5695 630.5079 55.33343 55.33343 55.33343 52.26959 50.44471 55.33343 55.33343 0.000000 523.3766 494.9040 564.5730 592.4514 640.5760 55.51548 55.51548 55.51548 52.38525 50.45904 55.51548 55.51548 0.000000 537.7994 499.0531 573.2678 601.3813 650.7048 55.63676 55.63676 55.63676 52.43964 50.47118 55.63676 55.63676 0.000000 552.5789 503.1578 578.9822 610.3638 656.0220 55.75380 55.75380 55.75380 52.54931 50.48122 55.75380 55.75380 0.000000 569.6107 508.7793 586.1936 619.3979 665.2947 55.92397 55.92397 55.92397 52.59765 50.48924 55.92397 55.92397 0.000000 585.1853 512.8163 593.4119 628.4885 675.5065 56.09063 56.09063 56.09063 52.64308 50.49532 56.09063 56.09063 0.000000 601.1445 516.8111 600.6385 637.6380 685.7924 56.19615 56.19615 56.19615 52.74443 50.49953 56.19615 56.19615 0.000000 619.6640 520.7629 607.8771 646.8492 696.1581 56.35585 56.35585 56.35585 52.84332 50.50195 56.35585 56.35585 0.000000 638.7828 526.3299 615.1244 654.5756 706.6016 56.51237 56.51237 56.51237 52.88075 50.50262 56.51237 56.51237 0.000000 76.36800 196.6291 192.3573 183.8239 184.9111 56.00227 56.00227 56.00227 55.77658 55.89741 56.00227 56.00227 0.000000 125.0649 270.0708 255.0003 233.4569 235.2824 52.18914 52.18914 52.18914 52.47382 53.80196 52.18914 52.18914 0.000000 137.9691 284.2975 269.2842 249.0979 251.7129 51.12625 51.12625 51.12625 51.46869 52.89377 51.12625 51.12625 0.000000 144.2673 293.3637 280.0313 261.8651 265.4538 50.63005 50.63005 50.63005 51.00076 52.28894 50.63005 50.63005 0.000000 149.6135 301.1190 289.6386 273.4675 277.8993 50.46768 50.46768 50.46768 50.74622 51.89925 50.46768 50.46768 0.000000 154.9109 308.5646 298.6753 284.4108 289.7952 50.37035 50.37035 50.37035 50.52788 51.61422 50.37035 50.37035 0.000000 160.1936 315.0841 307.4188 294.8292 300.9424 50.35312 50.35312 50.35312 50.45971 51.36117 50.35312 50.35312 0.000000 165.6574 321.6973 315.8586 304.8645 312.1036 50.41077 50.41077 50.41077 50.40896 51.21093 50.41077 50.41077 0.000000 170.9240 328.0369 323.7808 314.8930 323.0736 50.51943 50.51943 50.51943 50.34002 51.06781 50.51943 50.51943 0.000000 176.3554 333.9369 331.9577 324.5333 333.6594 50.60080 50.60080 50.60080 50.37421 50.94085 50.60080 50.60080 0.000000 185.2839 339.9047 339.4343 333.9537 344.0392 50.71826 50.71826 50.71826 50.36422 50.83648 50.71826 50.71826 0.000000 192.0125 346.0860 347.5269 343.2990 354.6463 50.88067 50.88067 50.88067 50.42397 50.75683 50.88067 50.88067 0.000000 198.9981 351.7972 355.1378 352.6995 365.3751 50.99866 50.99866 50.99866 50.45006 50.71053 50.99866 50.99866 0.000000 206.2976 357.0776 362.3062 362.2763 375.7468 51.17841 51.17841 51.17841 50.49980 50.64504 51.17841 51.17841 0.000000 213.9905 362.8241 369.7660 371.5418 385.7942 51.32312 51.32312 51.32312 50.52393 50.56288 51.32312 51.32312 0.000000 221.2904 368.2500 377.6227 380.5238 390.7427 51.43786 51.43786 51.43786 50.58268 50.51884 51.43786 51.43786 0.000000 229.4975 373.3774 385.2176 389.9018 400.9329 51.62788 51.62788 51.62788 50.62166 50.51527 51.62788 51.62788 0.000000 237.8042 379.1628 392.5712 393.4248 409.1465 51.79448 51.79448 51.79448 50.69813 50.49765 51.79448 51.79448 0.000000 245.6988 383.7724 399.6957 403.1805 418.9614 51.93909 51.93909 51.93909 50.75872 50.41811 51.93909 51.93909 0.000000 254.7578 389.1163 406.6064 409.6259 429.3950 52.11611 52.11611 52.11611 50.86037 50.43414 52.11611 52.11611 0.000000 263.4006 394.2726 414.1735 418.3972 439.7571 52.27565 52.27565 52.27565 50.89339 50.38882 52.27565 52.27565 0.000000 272.7834 399.2484 421.6004 427.0531 446.2134 52.46977 52.46977 52.46977 50.96832 50.38799 52.46977 52.46977 0.000000 281.7214 405.1121 428.8953 436.3885 456.3463 52.59807 52.59807 52.59807 51.03448 50.37975 52.59807 52.59807 0.000000 291.4944 409.7798 436.0666 445.6818 466.4414 52.76475 52.76475 52.76475 51.14602 50.36186 52.76475 52.76475 0.000000 301.4798 414.2935 443.1186 451.0376 476.5070 52.97148 52.97148 52.97148 51.19075 50.39300 52.97148 52.97148 0.000000 311.6974 419.7857 450.0615 460.1617 486.5508 53.11399 53.11399 53.11399 51.28542 50.36576 53.11399 53.11399 0.000000 322.1583 425.1812 457.9205 469.2674 496.4890 53.24543 53.24543 53.24543 51.36892 50.33306 53.24543 53.24543 0.000000 332.8736 429.3124 464.6829 477.4428 502.9175 53.41976 53.41976 53.41976 51.39079 50.34766 53.41976 53.41976 0.000000 343.8724 434.5085 472.4294 486.4995 513.8790 53.58469 53.58469 53.58469 51.51797 50.35747 53.58469 53.58469 0.000000 355.1349 439.6230 479.0318 495.5545 523.8465 53.74073 53.74073 53.74073 51.58193 50.36277 53.74073 53.74073 0.000000 366.6882 444.6578 486.6817 500.9447 533.8258 53.88720 53.88720 53.88720 51.63956 50.36382 53.88720 53.88720 0.000000 378.5444 448.3510 493.1395 509.9260 544.9629 54.08132 54.08132 54.08132 51.74827 50.36087 54.08132 54.08132 0.000000 390.7171 453.2170 500.7061 518.9210 555.0164 54.26833 54.26833 54.26833 51.79433 50.35413 54.26833 54.26833 0.000000 404.3531 458.0145 508.2536 527.9340 564.7600 54.39369 54.39369 54.39369 51.89231 50.39629 54.39369 54.39369 0.000000 417.2556 462.7462 515.7833 536.9690 570.6470 54.56718 54.56718 54.56718 51.92482 50.38088 54.56718 54.56718 0.000000 429.2906 467.4146 523.2982 546.0299 580.6912 54.67918 54.67918 54.67918 52.01317 50.41623 54.67918 54.67918 0.000000 442.8727 472.0221 529.4866 555.1204 590.7761 54.84034 54.84034 54.84034 52.09708 50.39593 54.84034 54.84034 0.000000 456.8451 477.9784 536.9484 564.2457 600.9059 54.99583 54.99583 54.99583 52.17673 50.42530 54.99583 54.99583 0.000000 471.2244 482.4928 544.4030 567.6352 611.0862 55.14589 55.14589 55.14589 52.25232 50.45191 55.14589 55.14589 0.000000 486.0279 486.9522 551.8527 576.7066 621.3171 55.34559 55.34559 55.34559 52.32401 50.42174 55.34559 55.34559 0.000000 501.2738 491.3586 559.2996 585.8210 631.6042 55.54206 55.54206 55.54206 52.39195 50.44320 55.54206 55.54206 0.000000 516.9818 495.7120 566.7458 593.6652 643.4482 55.67728 55.67728 55.67728 52.45630 50.46223 55.67728 55.67728 0.000000 533.1702 500.0177 574.1935 602.8412 653.8956 55.80785 55.80785 55.80785 52.51720 50.47894 55.80785 55.80785 0.000000 549.8602 504.2753 580.1166 612.0709 657.0703 55.93392 55.93392 55.93392 52.63332 50.49342 55.93392 55.93392 0.000000 563.3112 510.0538 589.1024 621.3533 667.4915 56.11317 56.11317 56.11317 52.74653 50.50575 56.11317 56.11317 0.000000 580.8938 514.2402 594.9709 630.6932 677.9855 56.28869 56.28869 56.28869 52.79801 50.51602 56.28869 56.28869 0.000000 599.0375 518.3807 602.4099 640.0936 688.5554 56.40256 56.40256 56.40256 52.84650 50.52430 56.40256 56.40256 0.000000 617.7684 522.4794 609.8590 649.5563 699.2046 56.57073 56.57073 56.57073 52.89213 50.53067 56.57073 56.57073 0.000000 632.6208 528.1978 617.3216 657.2154 709.9394 56.73553 56.73553 56.73553 53.05341 50.58803 56.73553 56.73553 0.000000 652.3904 532.2345 624.7948 661.2701 720.7563 56.83834 56.83834 56.83834 53.09371 50.59078 56.83834 56.83834 0.000000 76.36816 196.6370 192.3674 183.8470 184.9240 56.00557 56.00557 56.00557 55.78163 55.89984 56.00557 56.00557 0.000000 125.0883 270.1931 254.9691 233.6053 235.4403 52.13794 52.13794 52.13794 52.47646 53.77916 52.13794 52.13794 0.000000 137.9461 284.5619 269.3728 249.2824 251.9122 51.06562 51.06562 51.06562 51.45263 52.83989 51.06562 51.06562 0.000000 144.2805 293.4950 280.2478 262.2011 265.6581 50.60097 50.60097 50.60097 50.95746 52.25562 50.60097 50.60097 0.000000 149.7753 301.6642 289.9839 273.9568 278.2487 50.41549 50.41549 50.41549 50.67063 51.87993 50.41549 50.41549 0.000000 155.1230 308.9347 299.1500 285.0535 290.2931 50.38834 50.38834 50.38834 50.52641 51.55666 50.38834 50.38834 0.000000 160.4576 315.8961 307.7759 295.6258 301.9957 50.39015 50.39015 50.39015 50.42019 51.31595 50.39015 50.39015 0.000000 165.7134 322.2979 316.3303 305.8149 313.1206 50.41607 50.41607 50.41607 50.38319 51.17648 50.41607 50.41607 0.000000 171.2959 328.7505 324.6406 315.7782 324.0265 50.54011 50.54011 50.54011 50.37848 51.04300 50.54011 50.54011 0.000000 176.4921 335.1299 332.6581 325.7979 335.0165 50.63524 50.63524 50.63524 50.37273 50.92478 50.63524 50.63524 0.000000 185.8179 341.2210 340.8511 335.6253 345.8328 50.76560 50.76560 50.76560 50.37322 50.82839 50.76560 50.76560 0.000000 192.6204 346.7342 348.4583 345.1435 356.6338 50.93911 50.93911 50.93911 50.44265 50.75602 50.93911 50.93911 0.000000 199.6845 352.5398 356.1843 354.7219 366.9738 51.06946 51.06946 51.06946 50.47772 50.66352 51.06946 51.06946 0.000000 207.0672 358.7554 364.1485 364.4810 377.8244 51.25886 51.25886 51.25886 50.53363 50.60450 51.25886 51.25886 0.000000 214.8492 363.7523 371.7510 373.9304 388.3837 51.41341 51.41341 51.41341 50.56752 50.52843 51.41341 51.41341 0.000000 222.6792 369.7174 379.3862 383.0958 393.3552 51.53871 51.53871 51.53871 50.63371 50.49022 51.53871 51.53871 0.000000 230.5456 375.4064 386.7334 392.6656 404.4233 51.73799 51.73799 51.73799 50.67968 50.49052 51.73799 51.73799 0.000000 238.9559 380.3665 394.2044 396.8453 412.1280 51.91275 51.91275 51.91275 50.76287 50.47932 51.91275 51.91275 0.000000 247.4922 386.0299 402.2636 406.1153 422.8766 52.06636 52.06636 52.06636 50.82983 50.40465 52.06636 52.06636 0.000000 256.1292 391.4898 409.3167 412.7163 433.5432 52.25157 52.25157 52.25157 50.93769 50.42529 52.25157 52.25157 0.000000 265.4750 396.7598 417.0353 422.4039 444.1402 52.41895 52.41895 52.41895 50.97483 50.38440 52.41895 52.41895 0.000000 275.0195 401.8474 424.6132 431.2606 450.7787 52.62053 52.62053 52.62053 51.05762 50.38779 52.62053 52.62053 0.000000 284.7730 406.7653 432.0584 440.8109 461.1488 52.75602 52.75602 52.75602 51.12880 50.38081 52.75602 52.75602 0.000000 294.0672 412.6085 439.3793 446.4719 471.4833 52.92985 52.92985 52.92985 51.24444 50.36972 52.92985 52.92985 0.000000 304.2362 417.2293 446.5825 455.8380 482.7226 53.14373 53.14373 53.14373 51.29720 50.35215 53.14373 53.14373 0.000000 314.6457 422.8398 453.6745 465.1808 493.0444 53.29290 53.29290 53.29290 51.33778 50.38103 53.29290 53.29290 0.000000 326.1191 427.1877 461.6973 474.5070 499.6967 53.43075 53.43075 53.43075 51.48375 50.35184 53.43075 53.43075 0.000000 337.0868 432.5856 468.6096 483.8228 509.9063 53.66528 53.66528 53.66528 51.50942 50.36987 53.66528 53.66528 0.000000 348.3501 437.8972 476.5211 493.1340 520.1192 53.78279 53.78279 53.78279 51.64129 50.38298 53.78279 53.78279 0.000000 359.8881 443.1248 484.3986 498.7957 530.3412 53.99805 53.99805 53.99805 51.65260 50.33903 53.99805 53.99805 0.000000 371.7281 447.0131 491.0895 507.0119 541.7070 54.15204 54.15204 54.15204 51.77141 50.39565 54.15204 54.15204 0.000000 383.8840 452.0628 498.8795 516.2230 551.9996 54.29785 54.29785 54.29785 51.88441 50.39571 54.29785 54.29785 0.000000 396.3694 457.0403 506.6468 525.4503 563.5252 54.49082 54.49082 54.49082 51.93124 50.39031 54.49082 54.49082 0.000000 409.1986 461.9485 513.1470 534.6981 568.1335 54.67687 54.67687 54.67687 51.97586 50.38257 54.67687 54.67687 0.000000 422.4041 466.7902 520.8467 543.9706 579.6719 54.85632 54.85632 54.85632 52.07283 50.42393 54.85632 54.85632 0.000000 435.9688 471.5678 528.5327 554.4454 590.0262 55.02944 55.02944 55.02944 52.16505 50.40940 55.02944 55.02944 0.000000 449.9232 477.6898 536.2077 563.8135 600.4274 55.19652 55.19652 55.19652 52.25272 50.44436 55.19652 55.19652 0.000000 464.2846 482.3693 543.8745 567.4481 610.8754 55.35646 55.35646 55.35646 52.33604 50.42223 55.35646 55.35646 0.000000 479.0703 486.9912 551.5355 576.7592 621.3765 55.51197 55.51197 55.51197 52.41521 50.45142 55.51197 55.51197 0.000000 494.2986 491.5573 559.1929 586.1137 633.3934 55.66213 55.66213 55.66213 52.49039 50.47791 55.66213 55.66213 0.000000 509.9891 496.0681 566.8492 595.5148 644.0522 55.80715 55.80715 55.80715 52.56174 50.44913 55.80715 55.80715 0.000000 526.1605 500.5289 574.5064 604.9677 656.3196 55.94724 55.94724 55.94724 52.62943 50.47052 55.94724 55.94724 0.000000 542.8344 504.9391 580.6365 614.4716 659.7637 56.14010 56.14010 56.14010 52.75233 50.48954 56.14010 56.14010 0.000000 560.0446 510.8722 589.8336 624.0316 670.4990 56.32888 56.32888 56.32888 52.81319 50.50628 56.32888 56.32888 0.000000 575.8434 515.2078 595.9067 633.6508 681.3093 56.45557 56.45557 56.45557 52.92983 50.52083 56.45557 56.45557 0.000000 594.0666 519.4954 605.1851 643.3321 692.1981 56.57798 56.57798 56.57798 52.98436 50.53328 56.57798 56.57798 0.000000 610.7568 525.3880 611.2104 653.0764 703.1704 56.81335 56.81335 56.81335 53.03584 50.54369 56.81335 56.81335 0.000000 630.0882 529.6080 620.5811 656.3412 714.2277 56.92796 56.92796 56.92796 53.14014 50.60501 56.92796 56.92796 0.000000 650.0588 533.7868 626.5632 665.2968 725.3719 57.03868 57.03868 57.03868 53.24541 50.61160 57.03868 57.03868 0.000000 668.2689 549.2461 636.0303 675.0970 736.6080 57.26416 57.26416 57.26416 53.28836 50.61637 57.26416 57.26416 0.000000 76.36832 196.6449 192.3774 183.8590 184.9487 56.00865 56.00865 56.00865 55.78639 55.90211 56.00865 56.00865 0.000000 125.1101 270.3080 255.0831 233.7446 235.4744 52.13562 52.13562 52.13562 52.41795 53.75476 52.13562 52.13562 0.000000 138.0091 284.5567 269.4449 249.4477 252.0911 51.05063 51.05063 51.05063 51.43262 52.78365 51.05063 51.05063 0.000000 144.2864 293.8783 280.4396 262.5094 265.9875 50.61563 50.61563 50.61563 50.90942 52.21929 50.61563 50.61563 0.000000 149.8186 301.8843 290.2968 274.4089 278.7308 50.40586 50.40586 50.40586 50.64485 51.80459 50.40586 50.40586 0.000000 155.2059 309.2664 299.5845 285.4688 290.9299 50.35082 50.35082 50.35082 50.51892 51.49532 50.35082 50.35082 0.000000 160.5820 316.0106 308.5790 296.1726 302.5852 50.37104 50.37104 50.37104 50.42842 51.32063 50.37104 50.37104 0.000000 166.0116 322.8473 317.0074 306.7039 314.0720 50.46196 50.46196 50.46196 50.40522 51.13757 50.46196 50.46196 0.000000 171.3690 329.4069 325.4391 317.0386 325.3728 50.55212 50.55212 50.55212 50.35822 51.01348 50.55212 50.55212 0.000000 176.8939 335.5211 333.8681 326.9856 336.5423 50.66058 50.66058 50.66058 50.36362 50.85043 50.66058 50.66058 0.000000 186.3080 341.7033 341.5909 336.7144 347.5409 50.80245 50.80245 50.80245 50.37429 50.75938 50.80245 50.80245 0.000000 193.1942 348.1006 349.9385 346.9020 358.5283 50.98870 50.98870 50.98870 50.45311 50.69675 50.98870 50.98870 0.000000 200.3325 354.0216 357.8007 356.6510 369.0547 51.12994 51.12994 51.12994 50.49464 50.61104 51.12994 51.12994 0.000000 207.7947 359.5050 365.5595 366.0005 379.7884 51.32934 51.32934 51.32934 50.56064 50.55830 51.32934 51.32934 0.000000 215.6613 365.4597 373.6435 376.2124 390.8589 51.49380 51.49380 51.49380 50.60214 50.54087 51.49380 51.49380 0.000000 223.5798 371.0901 381.0457 385.5550 396.5161 51.62829 51.62829 51.62829 50.67553 50.50755 51.62829 51.62829 0.000000 232.0088 376.4173 388.9013 395.3098 406.3912 51.83610 51.83610 51.83610 50.72831 50.46095 51.83610 51.83610 0.000000 240.0469 382.4119 396.5115 399.4852 414.9784 52.01979 52.01979 52.01979 50.81801 50.45469 52.01979 52.01979 0.000000 248.6868 387.6987 404.3042 406.4358 425.9191 52.18153 52.18153 52.18153 50.89116 50.38477 52.18153 52.18153 0.000000 257.9890 393.2589 411.9071 416.3980 436.7794 52.37467 52.37467 52.37467 51.00282 50.40988 52.37467 52.37467 0.000000 266.8921 398.6264 419.7728 425.5383 444.9735 52.54830 52.54830 52.54830 51.04831 50.37329 52.54830 52.54830 0.000000 276.5587 404.3367 427.4959 435.3459 455.2126 52.75844 52.75844 52.75844 51.13622 50.37799 52.75844 52.75844 0.000000 286.4510 409.3594 435.0872 445.1061 465.8148 52.95352 52.95352 52.95352 51.21190 50.37785 52.95352 52.95352 0.000000 296.5616 414.2173 442.5535 450.9255 476.3835 53.13456 53.13456 53.13456 51.33522 50.37056 53.13456 53.13456 0.000000 306.9093 420.0443 449.9018 460.5036 487.8763 53.30247 53.30247 53.30247 51.38973 50.35666 53.30247 53.30247 0.000000 317.5056 425.1906 458.1615 470.0605 495.7886 53.45810 53.45810 53.45810 51.43551 50.38908 53.45810 53.45810 0.000000 329.1860 430.2168 465.3192 479.6028 505.2810 53.65586 53.65586 53.65586 51.58690 50.36330 53.65586 53.65586 0.000000 339.5067 435.7274 473.4595 489.1368 515.7349 53.84327 53.84327 53.84327 51.61687 50.33219 53.84327 53.84327 0.000000 351.8369 441.1509 480.4482 495.7255 527.2741 54.01982 54.01982 54.01982 51.75329 50.40098 54.01982 54.01982 0.000000 363.5987 446.4893 488.4867 504.4998 537.7820 54.18837 54.18837 54.18837 51.82579 50.36010 54.18837 54.18837 0.000000 376.6893 450.4710 496.4964 513.9542 548.3079 54.40294 54.40294 54.40294 51.89169 50.36728 54.40294 54.40294 0.000000 389.1420 455.6296 503.2751 523.4230 560.0507 54.55459 54.55459 54.55459 52.00573 50.36851 54.55459 54.55459 0.000000 401.9367 460.7153 511.2045 532.9109 566.1518 54.69830 54.69830 54.69830 52.05969 50.41985 54.69830 54.69830 0.000000 415.0898 465.7310 519.1170 542.4224 576.6923 54.88998 54.88998 54.88998 52.16576 50.41487 54.88998 54.88998 0.000000 428.6352 470.6794 527.0143 551.9615 587.2725 55.07494 55.07494 55.07494 52.20883 50.40634 55.07494 55.07494 0.000000 442.5529 476.9655 534.8994 562.7373 599.2308 55.25344 55.25344 55.25344 52.30478 50.44557 55.25344 55.25344 0.000000 456.8769 481.8106 542.7750 566.6201 609.9426 55.42427 55.42427 55.42427 52.39610 50.43055 55.42427 55.42427 0.000000 471.6244 486.5952 550.6437 576.1659 620.7075 55.59048 55.59048 55.59048 52.48299 50.46510 55.59048 55.59048 0.000000 486.8139 491.3214 558.5081 585.7551 631.5298 55.75101 55.75101 55.75101 52.56563 50.44411 55.75101 55.75101 0.000000 502.4643 495.9898 566.3706 595.3913 643.9122 55.90609 55.90609 55.90609 52.64420 50.47298 55.90609 55.90609 0.000000 518.5963 500.6056 574.2335 605.0796 656.4469 56.11344 56.11344 56.11344 52.71887 50.49923 56.11344 56.11344 0.000000 535.2294 505.1686 580.5690 614.8196 660.1545 56.31629 56.31629 56.31629 52.84870 50.52294 56.31629 56.31629 0.000000 552.3980 511.2542 589.9707 624.6165 671.1564 56.45666 56.45666 56.45666 52.91613 50.54424 56.45666 56.45666 0.000000 570.1026 515.7388 597.8468 634.4736 682.2347 56.59233 56.59233 56.59233 53.03934 50.56320 56.59233 56.59233 0.000000 588.3772 520.1733 605.7313 644.3938 693.3932 56.78202 56.78202 56.78202 53.10005 50.57993 56.78202 56.78202 0.000000 607.2474 526.2152 613.6285 654.3777 706.3777 56.96783 56.96783 56.96783 53.15381 50.59451 56.96783 56.96783 0.000000 624.5427 530.5789 621.5361 657.0909 717.7523 57.09073 57.09073 57.09073 53.20803 50.60701 57.09073 57.09073 0.000000 642.2881 534.8996 629.4578 667.0587 729.2183 57.32827 57.32827 57.32827 53.37890 50.61751 57.32827 57.32827 0.000000 662.8864 550.5945 637.3949 677.1003 740.7792 57.44345 57.44345 57.44345 53.42738 50.62609 57.44345 57.44345 0.000000 684.1829 555.1567 645.3493 687.2188 752.4405 57.61465 57.61465 57.61465 53.47305 50.68582 57.61465 57.61465 0.000000 76.36845 196.6448 192.3777 183.8709 184.9497 56.01156 56.01156 56.01156 55.79087 55.90427 56.01156 56.01156 0.000000 125.1306 270.4161 255.1904 233.7643 235.6137 52.07955 52.07955 52.07955 52.35706 53.72889 52.07955 52.07955 0.000000 137.9778 284.7911 269.6835 249.5957 252.2516 51.03109 51.03109 51.03109 51.35250 52.78187 51.03109 51.03109 0.000000 144.3862 293.9639 280.8099 262.7913 266.2897 50.57653 50.57653 50.57653 50.91255 52.18016 50.57653 50.57653 0.000000 149.8527 302.0758 290.5800 274.6595 279.1770 50.39061 50.39061 50.39061 50.61114 51.78103 50.39061 50.39061 0.000000 155.2770 309.5630 299.9825 286.0234 291.5227 50.35556 50.35556 50.35556 50.50583 51.48482 50.35556 50.35556 0.000000 160.6917 316.7385 308.8437 296.8654 303.3259 50.39359 50.39359 50.39359 50.37588 51.26735 50.39359 50.39359 0.000000 166.2927 323.3499 317.6351 307.5367 314.9635 50.45182 50.45182 50.45182 50.36611 51.09454 50.45182 50.45182 0.000000 171.6987 330.0110 326.1823 317.7878 326.1816 50.55510 50.55510 50.55510 50.38585 50.92611 50.55510 50.55510 0.000000 177.2733 336.5970 334.4365 328.1023 337.4921 50.72659 50.72659 50.72659 50.40209 50.82483 50.72659 50.72659 0.000000 186.7841 342.5059 342.8694 338.2282 348.6347 50.88060 50.88060 50.88060 50.42268 50.74126 50.88060 50.88060 0.000000 193.7371 348.6031 350.7115 348.0468 359.7694 51.02905 51.02905 51.02905 50.45589 50.68558 51.02905 51.02905 0.000000 201.3163 354.6080 359.0094 358.2127 371.0436 51.17981 51.17981 51.17981 50.50370 50.60633 51.17981 51.17981 0.000000 208.8793 361.0271 366.8853 368.0078 381.9635 51.38895 51.38895 51.38895 50.57948 50.55960 51.38895 51.38895 0.000000 216.4309 366.6520 374.7296 377.7749 393.2296 51.56395 51.56395 51.56395 50.62838 50.49591 51.56395 51.56395 0.000000 224.4338 372.3773 382.9831 387.9094 398.9095 51.75808 51.75808 51.75808 50.70876 50.46716 51.75808 51.75808 0.000000 232.9532 378.2640 390.9741 392.2588 407.8844 51.92361 51.92361 51.92361 50.76815 50.42566 51.92361 51.92361 0.000000 241.5855 383.8898 398.7183 402.6965 418.4385 52.11577 52.11577 52.11577 50.86417 50.42420 52.11577 52.11577 0.000000 250.3539 389.2696 406.2327 409.8129 429.5988 52.28538 52.28538 52.28538 50.94334 50.41141 52.28538 52.28538 0.000000 259.7944 394.9245 414.3887 419.2409 440.6806 52.53691 52.53691 52.53691 51.06371 50.38836 52.53691 52.53691 0.000000 268.8366 400.3839 422.3944 429.3076 448.6559 52.66693 52.66693 52.66693 51.16795 50.35315 52.66693 52.66693 0.000000 278.6554 405.6612 430.2590 439.3189 459.5258 52.88432 52.88432 52.88432 51.20439 50.36473 52.88432 52.88432 0.000000 288.7076 411.8500 437.9907 445.4470 470.3552 53.08637 53.08637 53.08637 51.34352 50.36842 53.08637 53.08637 0.000000 298.9847 416.8084 445.5976 455.2595 481.1535 53.27414 53.27414 53.27414 51.41290 50.36484 53.27414 53.27414 0.000000 309.5066 422.7470 453.0864 465.0454 492.8947 53.44855 53.44855 53.44855 51.47253 50.35451 53.44855 53.44855 0.000000 321.0774 427.4155 461.4994 474.8121 500.0313 53.66414 53.66414 53.66414 51.58037 50.39038 53.66414 53.66414 0.000000 332.1674 433.1273 468.7983 484.5663 510.7226 53.86852 53.86852 53.86852 51.67966 50.36792 53.86852 53.86852 0.000000 343.5571 438.7472 477.0931 494.3144 521.4162 54.00701 54.00701 54.00701 51.71385 50.34002 54.00701 54.00701 0.000000 355.2283 444.2775 485.3521 500.3986 533.2182 54.24533 54.24533 54.24533 51.85466 50.35945 54.24533 54.24533 0.000000 367.2087 448.4565 492.4174 510.0611 545.1137 54.41992 54.41992 54.41992 51.92809 50.37249 54.41992 54.41992 0.000000 380.5438 453.7975 500.5829 519.7355 555.9268 54.58554 54.58554 54.58554 51.99807 50.38233 54.58554 54.58554 0.000000 394.3275 459.0619 508.7265 529.4271 563.5068 54.79807 54.79807 54.79807 52.11935 50.38789 54.79807 54.79807 0.000000 407.4300 464.2527 516.8498 539.1403 573.0557 55.00303 55.00303 55.00303 52.23490 50.44203 55.00303 55.00303 0.000000 420.9043 469.3727 524.9560 548.8796 585.1360 55.14476 55.14476 55.14476 52.28694 50.43822 55.14476 55.14476 0.000000 434.7861 475.8217 531.7243 559.8421 596.0178 55.33394 55.33394 55.33394 52.39165 50.43240 55.33394 55.33394 0.000000 449.0549 480.8329 541.1277 563.9660 608.3152 55.51773 55.51773 55.51773 52.43311 50.47579 55.51773 55.51773 0.000000 463.7460 485.7809 547.8114 573.7070 619.3383 55.69522 55.69522 55.69522 52.52797 50.46325 55.69522 55.69522 0.000000 478.8774 490.6676 557.2689 583.4908 630.4190 55.92391 55.92391 55.92391 52.61831 50.50028 55.92391 55.92391 0.000000 494.4685 495.4938 563.8762 593.3212 643.0573 56.08984 56.08984 56.08984 52.70433 50.48164 56.08984 56.08984 0.000000 510.5396 500.2650 573.3990 603.2017 654.3055 56.25019 56.25019 56.25019 52.84510 50.51287 56.25019 56.25019 0.000000 528.8152 504.9810 579.9385 614.5259 659.8247 56.40519 56.40519 56.40519 52.92312 50.54143 56.40519 56.40519 0.000000 544.2040 511.2170 589.5385 624.5541 671.0862 56.55503 56.55503 56.55503 52.99731 50.56741 56.55503 56.55503 0.000000 561.8550 515.8509 596.0164 634.6432 682.4256 56.81704 56.81704 56.81704 53.12722 50.59091 56.81704 56.81704 0.000000 580.0637 520.4323 605.7004 644.7965 695.5454 56.95755 56.95755 56.95755 53.19055 50.61204 56.95755 56.95755 0.000000 598.8657 526.6213 613.7957 656.5616 707.0980 57.09343 57.09343 57.09343 53.25406 50.63089 57.09343 57.09343 0.000000 618.2892 531.1286 621.9058 657.9510 718.7395 57.34361 57.34361 57.34361 53.37413 50.64754 57.34361 57.34361 0.000000 636.1026 535.5911 630.0278 668.1523 730.4744 57.47108 57.47108 57.47108 53.49133 50.66207 57.47108 57.47108 0.000000 656.7405 551.4898 638.1656 678.4290 742.3064 57.65427 57.65427 57.65427 53.54549 50.67457 57.65427 57.65427 0.000000 675.6130 556.2023 646.3208 688.7841 754.2413 57.83387 57.83387 57.83387 53.59668 50.68510 57.83387 57.83387 0.000000 697.5673 562.7632 654.4951 699.2206 766.2803 57.94949 57.94949 57.94949 53.70543 50.69374 57.94949 57.94949 0.000000 76.36858 196.6527 192.3876 183.8939 184.9743 56.01430 56.01430 56.01430 55.79512 55.90630 56.01430 56.01430 0.000000 125.2860 270.5181 255.2916 233.8879 235.7451 52.07269 52.07269 52.07269 52.35217 53.70166 52.07269 52.07269 0.000000 138.0333 284.7582 269.7272 249.8620 252.5335 51.00890 51.00890 51.00890 51.32550 52.72134 51.00890 51.00890 0.000000 144.4804 294.3067 280.9589 263.0498 266.5670 50.58191 50.58191 50.58191 50.85597 52.13845 50.58191 50.58191 0.000000 149.9871 302.2412 290.8362 275.0462 279.5905 50.41874 50.41874 50.41874 50.63061 51.75446 50.41874 50.41874 0.000000 155.4536 309.8276 300.3470 286.5401 291.8847 50.35442 50.35442 50.35442 50.48753 51.47096 50.35442 50.35442 0.000000 160.9122 317.1015 309.5659 297.5133 304.0186 50.40968 50.40968 50.40968 50.42716 51.21052 50.40968 50.40968 0.000000 166.2954 323.8096 318.2173 308.3177 315.7999 50.48230 50.48230 50.48230 50.37570 51.04767 50.48230 50.48230 0.000000 172.0105 330.5664 326.8742 318.9290 327.4009 50.60027 50.60027 50.60027 50.35249 50.94157 50.60027 50.60027 0.000000 177.6323 336.8750 335.5305 329.1547 338.8766 50.78484 50.78484 50.78484 50.37925 50.79243 50.78484 50.78484 0.000000 187.2351 343.2508 343.7820 339.6747 350.1875 50.94984 50.94984 50.94984 50.46422 50.71865 50.94984 50.94984 0.000000 194.2518 349.8435 352.0544 349.6476 361.4946 51.06075 51.06075 51.06075 50.50421 50.61680 51.06075 51.06075 0.000000 201.9000 355.9541 360.1447 359.6906 372.9473 51.27137 51.27137 51.27137 50.56223 50.59678 51.27137 51.27137 0.000000 209.5354 361.6233 368.4805 369.9304 384.0473 51.44036 51.44036 51.44036 50.64582 50.50211 51.44036 51.44036 0.000000 217.1617 367.7688 376.4524 379.8619 395.5008 51.62452 51.62452 51.62452 50.70199 50.49651 51.62452 51.62452 0.000000 225.6951 373.5848 384.8366 390.1693 401.8839 51.87801 51.87801 51.87801 50.78933 50.47418 51.87801 51.87801 0.000000 233.8509 379.5636 392.9591 395.1884 410.3392 52.05238 52.05238 52.05238 50.85524 50.43758 52.05238 52.05238 0.000000 242.5735 385.2798 400.8330 405.1266 421.8049 52.25285 52.25285 52.25285 50.95759 50.38824 52.25285 52.25285 0.000000 251.4354 391.2448 408.4752 412.3846 433.1800 52.42924 52.42924 52.42924 51.04268 50.37991 52.42924 52.42924 0.000000 260.9784 397.0039 416.7685 422.7131 444.4786 52.63749 52.63749 52.63749 51.11126 50.35830 52.63749 52.63749 0.000000 270.7281 402.5657 424.9107 432.2023 452.6375 52.87939 52.87939 52.87939 51.22141 50.38252 52.87939 52.87939 0.000000 280.6953 407.9427 432.9106 442.3812 463.7278 53.05165 53.05165 53.05165 51.32175 50.34554 53.05165 53.05165 0.000000 290.9033 413.6917 440.7796 449.4689 474.7799 53.20771 53.20771 53.20771 51.40701 50.35297 53.20771 53.20771 0.000000 301.3429 419.2990 448.5227 459.4832 485.8033 53.45539 53.45539 53.45539 51.48153 50.35299 53.45539 53.45539 0.000000 312.0348 425.3446 457.1681 469.4729 496.5369 53.63638 53.63638 53.63638 51.54660 50.34614 53.63638 53.63638 0.000000 322.9909 430.1093 464.7085 479.4454 505.1083 53.85861 53.85861 53.85861 51.65899 50.38535 53.85861 53.85861 0.000000 335.0706 435.9279 473.2260 489.4076 516.0323 54.01410 54.01410 54.01410 51.76268 50.36614 54.01410 54.01410 0.000000 346.6567 441.6537 480.5891 495.7468 528.0434 54.26867 54.26867 54.26867 51.85820 50.39384 54.26867 54.26867 0.000000 359.4783 447.2891 488.9990 505.6140 539.0219 54.40389 54.40389 54.40389 51.94290 50.41473 54.40389 54.40389 0.000000 371.7224 451.5574 497.3787 515.4904 551.1808 54.63925 54.63925 54.63925 52.08119 50.37946 54.63925 54.63925 0.000000 384.3011 457.0019 505.7321 525.3813 563.4478 54.86611 54.86611 54.86611 52.15516 50.39214 54.86611 54.86611 0.000000 398.3368 462.3690 512.8167 536.4027 570.0190 55.02902 55.02902 55.02902 52.22263 50.40047 55.02902 55.02902 0.000000 412.8577 467.6618 521.0947 546.3721 581.0711 55.18366 55.18366 55.18366 52.34200 50.45584 55.18366 55.18366 0.000000 425.4382 472.8833 529.3569 556.3708 592.1655 55.38523 55.38523 55.38523 52.45580 50.45626 55.38523 55.38523 0.000000 440.8675 479.4509 537.6068 563.4949 604.6609 55.58108 55.58108 55.58108 52.56432 50.45300 55.58108 55.58108 0.000000 455.4854 484.5628 545.8470 571.8999 615.8953 55.77023 55.77023 55.77023 52.66778 50.49891 55.77023 55.77023 0.000000 470.5417 489.6107 554.0806 581.9084 628.6278 55.95296 55.95296 55.95296 52.70765 50.48879 55.95296 55.95296 0.000000 486.0553 494.5969 562.3102 591.9633 640.0233 56.12955 56.12955 56.12955 52.80151 50.52823 56.12955 56.12955 0.000000 502.0462 499.5223 570.5383 602.0684 653.0167 56.35813 56.35813 56.35813 52.95004 50.51189 56.35813 56.35813 0.000000 518.5359 504.3916 578.7675 612.2291 657.2480 56.58164 56.58164 56.58164 53.03540 50.54542 56.58164 56.58164 0.000000 535.5451 510.7764 587.0001 623.8685 670.3157 56.74170 56.74170 56.74170 53.11670 50.57622 56.74170 56.74170 0.000000 553.1091 515.5597 595.2382 634.1843 681.9094 56.89648 56.89648 56.89648 53.19033 50.60439 56.89648 56.89648 0.000000 571.2292 520.2883 605.1153 644.5649 695.2838 57.04619 57.04619 57.04619 53.26380 50.63005 57.04619 57.04619 0.000000 589.9409 526.6224 613.4094 656.5585 707.0944 57.30968 57.30968 57.30968 53.33364 50.65329 57.30968 57.30968 0.000000 609.2706 531.2734 621.7138 659.7305 718.9957 57.45021 57.45021 57.45021 53.46002 50.67419 57.45021 57.45021 0.000000 629.2465 535.8778 630.0322 670.1996 730.9921 57.64608 57.64608 57.64608 53.58337 50.69286 57.64608 57.64608 0.000000 649.8964 551.9493 638.3663 679.1085 743.0876 57.83803 57.83803 57.83803 53.64335 50.70938 57.83803 57.83803 0.000000 668.8196 556.8114 646.7181 689.6940 755.2867 57.96568 57.96568 57.96568 53.70020 50.72382 57.96568 57.96568 0.000000 688.2563 563.5246 655.0894 700.3627 769.5915 58.21068 58.21068 58.21068 53.87538 50.73547 58.21068 58.21068 0.000000 710.8702 570.2639 663.4817 711.1182 784.1166 58.33052 58.33052 58.33052 53.92645 50.74726 58.33052 58.33052 0.000000 76.37415 196.6607 192.3976 183.8947 184.9871 56.01689 56.01689 56.01689 55.79914 55.90822 56.01689 56.01689 0.000000 125.3042 270.6146 255.3873 233.9488 235.7548 52.06382 52.06382 52.06382 52.34515 53.67319 52.06382 52.06382 0.000000 138.0858 284.9680 269.9405 249.9799 252.6622 50.98351 50.98351 50.98351 51.29536 52.71548 50.98351 50.98351 0.000000 144.5692 294.3544 281.0891 263.2864 266.8214 50.53428 50.53428 50.53428 50.85108 52.09435 50.53428 50.53428 0.000000 150.1141 302.6791 291.2864 275.4041 279.9735 50.39339 50.39339 50.39339 50.59056 51.72507 50.39339 50.39339 0.000000 155.6208 310.0629 300.6810 287.0218 292.5903 50.34779 50.34779 50.34779 50.46268 51.39969 50.34779 50.34779 0.000000 161.1208 317.4300 309.7527 298.1194 304.6675 50.41975 50.41975 50.41975 50.36374 51.20423 50.41975 50.41975 0.000000 166.5465 324.2298 318.7577 309.0513 316.5856 50.50734 50.50734 50.50734 50.37655 50.99723 50.50734 50.50734 0.000000 172.1665 331.0783 327.5185 319.5641 328.3257 50.63871 50.63871 50.63871 50.36786 50.89978 50.63871 50.63871 0.000000 180.4783 337.8520 335.9863 330.3890 340.2004 50.78649 50.78649 50.78649 50.40490 50.75847 50.78649 50.78649 0.000000 187.6633 344.3322 344.6371 340.5452 351.6729 50.96294 50.96294 50.96294 50.44449 50.69185 50.96294 50.96294 0.000000 194.7407 350.2216 353.0156 351.1800 363.1464 51.18394 51.18394 51.18394 50.49090 50.59663 51.18394 51.18394 0.000000 202.4550 356.4074 361.5493 361.3762 374.7722 51.35471 51.35471 51.35471 50.61390 50.52993 51.35471 51.35471 0.000000 210.1591 363.0127 369.6571 371.7743 386.0464 51.53346 51.53346 51.53346 50.64986 50.49568 51.53346 51.53346 0.000000 218.2826 369.2614 378.1027 381.8650 392.1031 51.72678 51.72678 51.72678 50.76838 50.44090 51.72678 51.72678 0.000000 226.4697 375.1778 385.8535 392.3388 404.0894 51.93779 51.93779 51.93779 50.80698 50.42366 51.93779 51.93779 0.000000 234.7056 380.7852 394.0717 397.3711 412.6955 52.17193 52.17193 52.17193 50.93479 50.39191 52.17193 52.17193 0.000000 244.0260 387.0748 402.8611 406.4610 424.3339 52.38050 52.38050 52.38050 50.98653 50.39967 52.38050 52.38050 0.000000 253.0081 393.1423 410.6282 414.8552 435.8835 52.56439 52.56439 52.56439 51.07728 50.39567 52.56439 52.56439 0.000000 262.1073 398.4879 419.0538 425.3435 445.0198 52.78019 52.78019 52.78019 51.15083 50.37824 52.78019 52.78019 0.000000 271.9600 404.6634 427.3274 435.7692 455.6728 52.97683 52.97683 52.97683 51.26939 50.35395 52.97683 52.97683 0.000000 282.6830 410.1372 435.4608 445.7856 466.9432 53.20875 53.20875 53.20875 51.37168 50.37323 53.20875 53.20875 0.000000 292.3574 415.4345 443.4605 453.3926 479.0976 53.42480 53.42480 53.42480 51.46222 50.38433 53.42480 53.42480 0.000000 303.6417 421.6952 451.3364 463.6049 491.3024 53.62605 53.62605 53.62605 51.54221 50.38786 53.62605 53.62605 0.000000 314.4997 426.6837 460.1247 473.7946 498.9153 53.81345 53.81345 53.81345 51.66866 50.38439 53.81345 53.81345 0.000000 326.4430 432.7037 467.7980 483.9693 510.0672 53.98687 53.98687 53.98687 51.78566 50.37440 53.98687 53.98687 0.000000 337.9024 438.6257 476.4604 494.1359 521.2201 54.25843 54.25843 54.25843 51.89380 50.35835 54.25843 54.25843 0.000000 349.6807 444.4527 485.0848 500.6353 533.4815 54.40991 54.40991 54.40991 51.99049 50.38741 54.40991 54.40991 0.000000 361.7567 448.9209 492.5134 510.7106 545.8392 54.66082 54.66082 54.66082 52.08259 50.41257 54.66082 54.66082 0.000000 375.1704 454.5472 501.0397 520.7975 557.1139 54.84704 54.84704 54.84704 52.16731 50.38017 54.84704 54.84704 0.000000 389.0380 460.0922 509.5429 530.9017 563.9292 55.02395 55.02395 55.02395 52.30302 50.44824 55.02395 55.02395 0.000000 402.2521 465.5591 518.0229 542.1584 576.3995 55.24814 55.24814 55.24814 52.37426 50.45784 55.24814 55.24814 0.000000 417.0336 470.9512 526.4866 552.3472 588.9960 55.46296 55.46296 55.46296 52.43922 50.46479 55.46296 55.46296 0.000000 431.1017 477.6774 534.9360 563.7764 600.3842 55.67160 55.67160 55.67160 52.55664 50.46778 55.67160 55.67160 0.000000 445.5669 482.9543 543.3745 568.2913 611.8255 55.87311 55.87311 55.87311 52.66867 50.46700 55.87311 55.87311 0.000000 461.8539 488.1642 551.8049 579.7455 624.7474 56.06779 56.06779 56.06779 52.77557 50.51536 56.06779 56.06779 0.000000 477.2739 493.3094 560.2303 590.0205 637.8229 56.25593 56.25593 56.25593 52.87756 50.56039 56.25593 56.25593 0.000000 493.1683 498.3911 568.6532 600.3475 649.5314 56.43780 56.43780 56.43780 52.97485 50.54938 56.43780 56.43780 0.000000 509.5586 503.4143 577.0764 610.7264 655.5609 56.61364 56.61364 56.61364 53.06765 50.53529 56.61364 56.61364 0.000000 526.4653 509.9464 585.5022 621.1630 667.2778 56.78371 56.78371 56.78371 53.15240 50.57105 56.78371 56.78371 0.000000 543.9120 514.8795 593.9330 631.6609 680.7114 57.06612 57.06612 57.06612 53.23657 50.60403 57.06612 57.06612 0.000000 561.9348 519.7557 602.3712 643.7219 692.6370 57.22575 57.22575 57.22575 53.37664 50.63435 57.22575 57.22575 0.000000 580.5350 526.2332 610.8188 654.3912 706.3932 57.38021 57.38021 57.38021 53.45314 50.66209 57.38021 57.38021 0.000000 599.7491 531.0282 620.9816 657.7834 718.5472 57.64942 57.64942 57.64942 53.58619 50.68738 57.64942 57.64942 0.000000 619.6067 535.7745 629.4924 668.4340 730.7981 57.79451 57.79451 57.79451 53.65558 50.71030 57.79451 57.79451 0.000000 640.1346 551.9889 638.0192 680.8005 743.1498 57.93493 57.93493 57.93493 53.72155 50.73094 57.93493 57.93493 0.000000 661.3640 557.0001 646.5636 691.6530 757.5546 58.19229 58.19229 58.19229 53.84488 50.74865 58.19229 58.19229 0.000000 680.8305 563.8627 655.1276 702.5922 770.1744 58.32423 58.32423 58.32423 53.96534 50.76628 58.32423 58.32423 0.000000 700.8324 570.7516 663.7130 713.6201 784.9666 58.57460 58.57460 58.57460 54.02192 50.77905 58.57460 58.57460 0.000000 724.1071 575.7255 672.3215 724.7380 788.1513 58.69859 58.69859 58.69859 54.13669 50.79145 58.69859 58.69859 0.000000 76.37427 196.6606 192.3979 183.9176 184.9998 56.01934 56.01934 56.01934 55.80297 55.91005 56.01934 56.01934 0.000000 125.3214 270.7060 255.4778 234.0035 235.8723 52.05310 52.05310 52.05310 52.27797 53.70187 52.05310 52.05310 0.000000 138.1354 285.1671 269.9605 250.0845 252.7769 50.95514 50.95514 50.95514 51.26231 52.65129 50.95514 50.95514 0.000000 144.5524 294.6634 281.2022 263.5037 267.2126 50.53082 50.53082 50.53082 50.84258 52.04802 50.53082 50.53082 0.000000 150.2345 302.7988 291.4954 275.9057 280.3294 50.36353 50.36353 50.36353 50.54643 51.69307 50.36353 50.36353 0.000000 155.6624 310.5854 300.9867 287.4713 293.0714 50.33607 50.33607 50.33607 50.43693 51.37978 50.33607 50.33607 0.000000 161.0697 317.7266 310.4069 298.6875 305.2756 50.42421 50.42421 50.42421 50.40480 51.14092 50.42421 50.42421 0.000000 166.7849 324.9601 319.5249 309.7403 317.5488 50.52549 50.52549 50.52549 50.37532 50.99696 50.52549 50.52549 0.000000 172.3070 331.5493 328.1195 320.6041 329.1980 50.67070 50.67070 50.67070 50.37768 50.85443 50.67070 50.67070 0.000000 180.8299 338.0334 336.9819 331.0838 340.9533 50.82956 50.82956 50.82956 50.42474 50.77388 50.82956 50.82956 0.000000 188.0705 344.5840 345.7488 341.8676 353.0970 51.01836 51.01836 51.01836 50.47159 50.66112 51.01836 51.01836 0.000000 195.2059 351.3544 353.9187 352.3769 364.7314 51.19902 51.19902 51.19902 50.52815 50.57236 51.19902 51.19902 0.000000 202.9833 357.6389 362.5558 362.9933 376.5241 51.37924 51.37924 51.37924 50.60395 50.56441 51.37924 51.37924 0.000000 210.7531 363.9111 370.7663 373.5452 387.9659 51.61858 51.61858 51.61858 50.70240 50.48174 51.61858 51.61858 0.000000 218.9471 369.7963 379.3167 383.7902 394.7195 51.82032 51.82032 51.82032 50.77250 50.43344 51.82032 51.82032 0.000000 227.2082 376.2450 387.5532 394.4250 406.2078 52.04037 52.04037 52.04037 50.87305 50.42114 52.04037 52.04037 0.000000 236.0050 382.4104 395.8925 399.4684 415.6824 52.23126 52.23126 52.23126 50.95144 50.39406 52.23126 52.23126 0.000000 244.9270 388.3088 404.3972 407.2121 426.7657 52.44619 52.44619 52.44619 51.06465 50.40626 52.44619 52.44619 0.000000 253.9953 393.9588 412.6978 417.9606 439.2791 52.69044 52.69044 52.69044 51.16140 50.35120 52.69044 52.69044 0.000000 263.7649 399.8873 421.2504 428.6364 447.9265 52.91360 52.91360 52.91360 51.29728 50.39315 52.91360 52.91360 0.000000 273.7520 405.6197 429.6532 439.2515 459.4525 53.11729 53.11729 53.11729 51.36225 50.37272 53.11729 53.11729 0.000000 284.6232 412.2523 437.9133 445.9731 470.9342 53.30296 53.30296 53.30296 51.47070 50.34325 53.30296 53.30296 0.000000 294.4385 417.6417 446.0418 456.3754 483.3163 53.52539 53.52539 53.52539 51.56680 50.35789 53.52539 53.52539 0.000000 305.8859 424.0042 455.0577 466.7489 494.7778 53.78670 53.78670 53.78670 51.70844 50.36485 53.78670 53.78670 0.000000 316.9065 429.0840 462.9727 477.1017 502.5432 54.03353 54.03353 54.03353 51.78257 50.36468 54.03353 54.03353 0.000000 328.2067 435.2051 471.8519 488.3919 514.9167 54.21454 54.21454 54.21454 51.84676 50.35788 54.21454 54.21454 0.000000 339.8158 441.2278 479.5789 495.8894 527.3746 54.38313 54.38313 54.38313 52.01344 50.39569 54.38313 54.38313 0.000000 352.6353 447.1546 488.3453 505.4170 538.8027 54.65030 54.65030 54.65030 52.05992 50.42917 54.65030 54.65030 0.000000 365.8795 451.7085 497.0796 515.6971 551.4118 54.85209 54.85209 54.85209 52.21374 50.40461 54.85209 54.85209 0.000000 378.5407 457.4331 505.7861 527.0701 564.1324 55.04390 55.04390 55.04390 52.30238 50.42606 55.04390 55.04390 0.000000 392.6396 463.0758 513.2211 537.4196 571.1470 55.28242 55.28242 55.28242 52.38391 50.44435 55.28242 55.28242 0.000000 407.2280 468.6399 523.1312 547.7943 582.6501 55.51101 55.51101 55.51101 52.51705 50.45813 55.51101 55.51101 0.000000 421.1367 475.5240 530.4601 559.3922 595.5159 55.73294 55.73294 55.73294 52.64414 50.46766 55.73294 55.73294 0.000000 435.4384 480.9670 540.4114 564.1497 608.5229 55.89001 55.89001 55.89001 52.70670 50.52587 55.89001 55.89001 0.000000 450.1664 486.3399 547.6473 575.7685 620.2595 56.09674 56.09674 56.09674 52.82235 50.52752 56.09674 56.09674 0.000000 466.7506 491.6452 557.6547 586.2221 633.5163 56.35442 56.35442 56.35442 52.93277 50.52553 56.35442 56.35442 0.000000 483.9518 496.8839 566.2695 596.7249 646.9343 56.54786 56.54786 56.54786 53.03820 50.57289 56.54786 56.54786 0.000000 500.2261 502.0616 574.8837 608.6495 657.0128 56.73490 56.73490 56.73490 53.13519 50.56413 56.73490 56.73490 0.000000 517.0142 508.7396 583.4997 619.3019 665.1869 56.91581 56.91581 56.91581 53.23108 50.60509 56.91581 56.91581 0.000000 534.3378 513.8231 592.1201 630.0159 677.2239 57.09083 57.09083 57.09083 53.32258 50.64309 57.09083 57.09083 0.000000 552.2329 518.8474 600.7472 640.7952 689.3451 57.31957 57.31957 57.31957 53.46990 50.62527 57.31957 57.31957 0.000000 570.7023 525.4666 609.3846 653.1758 703.2827 57.54346 57.54346 57.54346 53.55328 50.65767 57.54346 57.54346 0.000000 589.7821 530.4060 619.7291 656.7997 717.4184 57.70258 57.70258 57.70258 53.63275 50.68745 57.70258 57.70258 0.000000 609.4999 535.2945 626.6934 667.6667 729.9169 57.91693 57.91693 57.91693 53.70848 50.71474 57.91693 57.91693 0.000000 629.8851 551.6232 637.1443 678.6128 742.5178 58.12695 58.12695 58.12695 53.84126 50.73885 58.12695 58.12695 0.000000 650.9664 556.7829 645.8776 689.6414 755.2262 58.27176 58.27176 58.27176 53.97090 50.76273 58.27176 58.27176 0.000000 672.7765 563.7922 654.6306 702.4806 770.0461 58.53448 58.53448 58.53448 54.03638 50.78154 58.53448 58.53448 0.000000 695.3487 570.8279 663.4050 713.7310 785.0948 58.67066 58.67066 58.67066 54.09862 50.79979 58.67066 58.67066 0.000000 716.0293 575.9477 672.2029 725.0728 788.5337 58.92627 58.92627 58.92627 54.28046 50.81597 58.92627 58.92627 0.000000 737.2932 580.9993 683.0111 736.5114 801.6041 59.05433 59.05433 59.05433 54.33592 50.88157 59.05433 59.05433 0.000000 76.37438 196.6685 192.4078 183.9183 185.0006 56.02167 56.02167 56.02167 55.80660 55.91178 56.02167 56.02167 0.000000 125.3377 270.7927 255.4097 234.1084 235.8691 52.04067 52.04067 52.04067 52.26712 53.67110 52.04067 52.04067 0.000000 138.1824 285.1010 270.1526 250.3120 253.0176 50.97353 50.97353 50.97353 51.28277 52.64190 50.97353 50.97353 0.000000 144.5313 294.6791 281.5018 263.7030 267.2693 50.52459 50.52459 50.52459 50.77527 52.05495 50.52459 50.52459 0.000000 150.2395 302.8983 291.6834 276.0447 280.6599 50.37713 50.37713 50.37713 50.55344 51.65862 50.37713 50.37713 0.000000 155.6956 310.7691 301.5024 287.8911 293.5209 50.36816 50.36816 50.36816 50.40422 51.35714 50.36816 50.36816 0.000000 161.2572 317.9938 310.7796 299.4208 306.0557 50.42341 50.42341 50.42341 50.38653 51.12846 50.42341 50.42341 0.000000 167.0115 325.3109 319.7251 310.3890 318.0193 50.53957 50.53957 50.53957 50.36916 50.93999 50.53957 50.53957 0.000000 172.5731 332.3454 328.9619 321.3707 330.2627 50.69663 50.69663 50.69663 50.38229 50.80576 50.69663 50.69663 0.000000 181.1646 338.9257 337.6387 332.2139 342.1655 50.86708 50.86708 50.86708 50.43911 50.73259 50.86708 50.86708 0.000000 188.4585 345.5731 346.1908 343.1366 353.9126 51.06706 51.06706 51.06706 50.49459 50.62670 51.06706 51.06706 0.000000 195.6492 352.0338 355.0938 353.5118 366.2537 51.25766 51.25766 51.25766 50.55951 50.54426 51.25766 51.25766 0.000000 203.4870 358.3992 363.5040 364.5479 378.2078 51.49794 51.49794 51.49794 50.64299 50.48954 51.49794 51.49794 0.000000 211.3198 364.7517 372.1679 375.2482 389.8137 51.69617 51.69617 51.69617 50.74867 50.46492 51.69617 51.69617 0.000000 219.5813 371.1673 380.4639 385.6427 396.6031 51.90643 51.90643 51.90643 50.82554 50.42175 51.90643 51.90643 0.000000 227.9133 377.2480 389.1866 390.9416 405.7632 52.13496 52.13496 52.13496 50.93253 50.41427 52.13496 52.13496 0.000000 236.7862 383.4945 397.6440 402.1686 417.8681 52.38545 52.38545 52.38545 51.01683 50.39175 52.38545 52.38545 0.000000 246.3072 389.4730 405.8531 410.0637 429.8723 52.60823 52.60823 52.60823 51.13618 50.35296 52.60823 52.60823 0.000000 255.4896 395.7081 414.6895 420.2560 441.7916 52.80790 52.80790 52.80790 51.23783 50.35740 52.80790 52.80790 0.000000 265.3847 401.7310 423.3652 431.0824 450.5849 53.03822 53.03822 53.03822 51.32184 50.35082 53.03822 53.03822 0.000000 275.5035 407.5552 431.8916 441.8497 463.1477 53.24878 53.24878 53.24878 51.44963 50.38665 53.24878 53.24878 0.000000 285.8682 413.7387 440.2770 449.5210 474.8372 53.49448 53.49448 53.49448 51.56304 50.36078 53.49448 53.49448 0.000000 296.4729 419.7702 448.5300 460.1116 487.4430 53.72381 53.72381 53.72381 51.66389 50.37891 53.72381 53.72381 0.000000 307.3376 425.6538 457.6791 470.6755 495.5011 53.93674 53.93674 53.93674 51.75311 50.38922 53.93674 53.93674 0.000000 319.2601 431.4002 465.7195 481.2209 508.0713 54.13678 54.13678 54.13678 51.88877 50.39228 54.13678 54.13678 0.000000 331.5605 437.6197 474.7358 492.7202 519.6646 54.37818 54.37818 54.37818 52.01155 50.38690 54.37818 54.37818 0.000000 343.3919 443.7384 483.7115 499.6285 532.3613 54.60760 54.60760 54.60760 52.07072 50.42915 54.60760 54.60760 0.000000 355.5260 448.4950 491.4933 510.0994 545.1565 54.82571 54.82571 54.82571 52.23664 50.41291 54.82571 54.82571 0.000000 368.9756 454.4013 500.3654 520.5813 556.8721 55.03312 55.03312 55.03312 52.27874 50.44227 55.03312 55.03312 0.000000 382.8821 460.2216 509.2133 531.0800 564.1269 55.28657 55.28657 55.28657 52.42924 50.46810 55.28657 55.28657 0.000000 396.1657 465.9594 518.0371 542.7335 577.0377 55.52951 55.52951 55.52951 52.57293 50.43641 55.52951 55.52951 0.000000 410.9939 471.6181 526.8434 554.4927 590.0790 55.70828 55.70828 55.70828 52.65145 50.50545 55.70828 55.70828 0.000000 425.1389 478.6115 535.6349 564.6912 601.9117 55.93555 55.93555 55.93555 52.72347 50.51749 55.93555 55.93555 0.000000 440.9821 484.1486 544.4151 571.2744 615.1904 56.09752 56.09752 56.09752 52.84822 50.52542 56.09752 56.09752 0.000000 456.0361 489.6149 553.1872 581.9019 628.6204 56.36725 56.36725 56.36725 52.96740 50.52945 56.36725 56.36725 0.000000 471.5506 495.0132 561.9542 592.5773 640.7188 56.57234 56.57234 56.57234 53.08126 50.58260 56.57234 56.57234 0.000000 489.0607 500.3447 570.7191 604.6589 655.9685 56.82930 56.82930 56.82930 53.18630 50.57939 56.82930 56.82930 0.000000 507.2377 507.1676 579.4846 615.4828 660.8994 57.02142 57.02142 57.02142 53.29004 50.62573 57.02142 57.02142 0.000000 524.4227 512.4020 589.8188 627.8060 674.7393 57.20729 57.20729 57.20729 53.38912 50.66893 57.20729 57.20729 0.000000 542.1631 517.5767 598.6318 638.7971 687.0966 57.38717 57.38717 57.38717 53.48373 50.65607 57.38717 57.38717 0.000000 560.4958 522.6913 607.4531 649.8566 699.5433 57.62114 57.62114 57.62114 53.57406 50.69331 57.62114 57.62114 0.000000 579.4232 529.4189 616.2853 656.0146 713.8552 57.85017 57.85017 57.85017 53.72073 50.72779 57.85017 57.85017 0.000000 598.9829 534.4501 625.1305 666.3209 728.3713 58.01386 58.01386 58.01386 53.86383 50.75831 58.01386 58.01386 0.000000 619.2052 550.8655 635.7605 677.4791 741.2148 58.29413 58.29413 58.29413 53.94253 50.73619 58.29413 58.29413 0.000000 640.1182 556.1733 644.6790 688.7209 754.1688 58.44810 58.44810 58.44810 54.01754 50.76156 58.44810 58.44810 0.000000 661.7543 563.3267 653.6171 700.0499 769.2300 58.65873 58.65873 58.65873 54.15021 50.83929 58.65873 58.65873 0.000000 684.1467 570.5066 662.5769 713.2388 784.5255 58.86521 58.86521 58.86521 54.27980 50.86155 58.86521 58.86521 0.000000 704.7038 575.7715 671.5603 724.7986 788.2208 59.00553 59.00553 59.00553 54.34399 50.87976 59.00553 59.00553 0.000000 728.5843 580.9671 682.5524 736.4570 801.5419 59.26628 59.26628 59.26628 54.40756 50.89891 59.26628 59.26628 0.000000 750.4431 588.1544 691.6308 748.2193 814.9902 59.46112 59.46112 59.46112 54.58792 50.96817 59.46112 59.46112 0.000000 76.37448 196.6685 192.4178 183.9300 185.0251 56.02388 56.02388 56.02388 55.81007 55.91343 56.02388 56.02388 0.000000 125.3531 270.8752 255.4912 234.2081 235.9750 52.02586 52.02586 52.02586 52.25454 53.63935 52.02586 52.02586 0.000000 138.2270 285.2811 270.1528 250.3934 253.1078 50.93980 50.93980 50.93980 51.24439 52.63091 50.93980 50.93980 0.000000 144.6068 294.9594 281.5848 263.8849 267.6241 50.51501 50.51501 50.51501 50.76023 52.00453 50.51501 50.51501 0.000000 150.2388 303.2769 292.0723 276.5005 281.1428 50.38754 50.38754 50.38754 50.55681 51.62188 50.38754 50.38754 0.000000 155.8383 310.9297 301.7580 288.2834 293.9413 50.39490 50.39490 50.39490 50.42298 51.33190 50.39490 50.39490 0.000000 161.4357 318.5660 311.1240 299.7208 306.3824 50.41768 50.41768 50.41768 50.36391 51.11317 50.41768 50.41768 0.000000 166.9621 325.6305 320.4257 310.9996 318.9006 50.59570 50.59570 50.59570 50.35835 50.93350 50.59570 50.59570 0.000000 172.8267 332.3805 329.2036 322.0943 331.0405 50.76606 50.76606 50.76606 50.38199 50.80462 50.76606 50.76606 0.000000 181.4837 339.4026 338.2538 333.2988 343.3293 50.94730 50.94730 50.94730 50.44833 50.68801 50.94730 50.94730 0.000000 188.8286 346.1284 347.2096 343.8329 355.2220 51.10944 51.10944 51.10944 50.51043 50.58883 51.10944 51.10944 0.000000 196.0722 352.6670 355.8942 354.8650 367.1282 51.30970 51.30970 51.30970 50.58529 50.56532 51.30970 51.30970 0.000000 203.9680 359.1098 364.7401 365.7512 379.2021 51.55956 51.55956 51.55956 50.67628 50.51566 51.55956 51.55956 0.000000 211.8613 365.9786 373.5151 376.8876 391.5918 51.76665 51.76665 51.76665 50.78902 50.44424 51.76665 51.76665 0.000000 220.1875 372.4870 381.9217 387.4273 398.4167 51.98535 51.98535 51.98535 50.87249 50.40607 51.98535 51.98535 0.000000 228.5874 378.6586 390.7581 392.7479 408.4137 52.22200 52.22200 52.22200 50.98350 50.40329 52.22200 52.22200 0.000000 238.0245 384.5154 399.3290 404.1176 419.9738 52.42732 52.42732 52.42732 51.07509 50.38524 52.42732 52.42732 0.000000 247.1483 391.0666 407.6519 412.1384 432.9105 52.71041 52.71041 52.71041 51.19918 50.35073 52.71041 52.71041 0.000000 256.3961 397.3946 416.6081 423.2141 445.0269 52.96984 52.96984 52.96984 51.30933 50.35921 52.96984 52.96984 0.000000 266.3788 403.5092 425.4048 434.2206 453.9889 53.15451 53.15451 53.15451 51.39956 50.35648 53.15451 53.15451 0.000000 276.5897 409.4237 434.0504 445.1697 465.8839 53.42510 53.42510 53.42510 51.53012 50.34353 53.42510 53.42510 0.000000 287.0517 415.1475 442.5569 452.9936 478.6581 53.67783 53.67783 53.67783 51.64837 50.37367 53.67783 53.67783 0.000000 297.7583 421.8240 450.9306 463.7694 491.4842 53.85983 53.85983 53.85983 51.75387 50.39521 53.85983 53.85983 0.000000 309.4776 427.2182 460.2113 474.5207 499.7117 54.13352 54.13352 54.13352 51.84754 50.40880 54.13352 54.13352 0.000000 321.5645 433.6376 468.3723 485.2557 511.4795 54.33984 54.33984 54.33984 51.98452 50.41339 54.33984 54.33984 0.000000 333.1953 439.9526 477.5212 496.4709 524.3178 54.53254 54.53254 54.53254 52.05718 50.41238 54.53254 54.53254 0.000000 345.1522 446.1663 486.6307 503.0213 537.2501 54.82322 54.82322 54.82322 52.23584 50.40496 54.82322 54.82322 0.000000 359.3030 451.0052 495.7060 514.6893 550.2857 54.99153 54.99153 54.99153 52.29003 50.44266 54.99153 54.99153 0.000000 372.0093 457.0052 504.7517 525.3702 563.4353 55.26056 55.26056 55.26056 52.45209 50.47643 55.26056 55.26056 0.000000 386.1288 462.9186 512.5274 537.1838 570.8854 55.51846 55.51846 55.51846 52.54832 50.45226 55.51846 55.51846 0.000000 400.7408 468.7491 521.4905 547.9462 582.8188 55.71159 55.71159 55.71159 52.63719 50.47581 55.71159 55.71159 0.000000 414.6864 475.8972 530.4364 559.9324 596.1182 55.89542 55.89542 55.89542 52.77789 50.49470 55.89542 55.89542 0.000000 429.0639 481.5998 540.7231 566.2838 609.5638 56.12790 56.12790 56.12790 52.91234 50.56197 56.12790 56.12790 0.000000 445.1686 487.2285 548.2914 577.0809 621.7391 56.35254 56.35254 56.35254 53.04085 50.51949 56.35254 56.35254 0.000000 461.8680 492.7860 558.6364 589.2204 636.9167 56.56967 56.56967 56.56967 53.10059 50.57865 56.56967 56.56967 0.000000 477.7235 498.2737 567.5864 600.1567 649.3152 56.83828 56.83828 56.83828 53.21763 50.63415 56.83828 56.83828 0.000000 494.0761 503.6970 576.5359 611.1470 656.0331 57.04168 57.04168 57.04168 53.32950 50.63314 57.04168 57.04168 0.000000 512.5747 510.6268 585.4879 622.1976 670.0365 57.29784 57.29784 57.29784 53.49652 50.62873 57.29784 57.29784 0.000000 531.7927 515.9507 594.4449 634.7766 682.5757 57.48859 57.48859 57.48859 53.59889 50.67403 57.48859 57.48859 0.000000 549.9489 521.2124 605.0403 647.5152 696.9070 57.67324 57.67324 57.67324 53.69671 50.71628 57.67324 57.67324 0.000000 568.7194 528.0779 614.0544 656.7064 709.6811 57.97277 57.97277 57.97277 53.79017 50.75561 57.97277 57.97277 0.000000 588.1051 533.2521 623.0836 664.4148 724.3632 58.14641 58.14641 58.14641 53.87944 50.79155 58.14641 58.14641 0.000000 608.1464 549.7280 632.1256 675.7800 739.2620 58.31458 58.31458 58.31458 53.96466 50.77172 58.31458 58.31458 0.000000 628.8736 555.1838 641.1848 687.2297 752.4534 58.60021 58.60021 58.60021 54.10714 50.80298 58.60021 58.60021 0.000000 650.3166 562.4788 652.1050 698.7678 765.7591 58.75850 58.75850 58.75850 54.24625 50.83174 58.75850 58.75850 0.000000 672.5092 567.8723 661.2466 710.3981 781.2260 59.03596 59.03596 59.03596 54.31966 50.85811 59.03596 59.03596 0.000000 695.4859 575.2098 670.4118 722.1260 787.2349 59.18499 59.18499 59.18499 54.45343 50.93443 59.18499 59.18499 0.000000 716.5917 580.5488 679.6026 735.8072 800.7997 59.45484 59.45484 59.45484 54.58142 50.95659 59.45484 59.45484 0.000000 738.3007 587.8767 688.8209 747.7849 814.4936 59.59518 59.59518 59.59518 54.64575 50.97752 59.59518 59.59518 0.000000 763.5698 595.2372 700.1368 761.8345 830.5774 59.85789 59.85789 59.85789 54.76920 50.99266 59.85789 59.85789 0.000000 76.37458 196.6764 192.4180 183.9418 185.0258 56.02598 56.02598 56.02598 55.74848 55.91501 56.02598 56.02598 0.000000 125.3677 270.7481 255.5687 234.1909 236.0758 52.01039 52.01039 52.01039 52.24036 53.60666 52.01039 52.01039 0.000000 138.2694 285.4527 270.3270 250.4646 253.1871 50.90370 50.90370 50.90370 51.20364 52.61842 50.90370 50.90370 0.000000 144.6787 294.9474 281.8572 264.2051 267.8045 50.50231 50.50231 50.50231 50.74221 52.00755 50.50231 50.50231 0.000000 150.3419 303.3406 292.2233 276.7663 281.4283 50.39426 50.39426 50.39426 50.50180 51.58299 50.39426 50.39426 0.000000 155.9743 311.3851 301.9918 288.6497 294.3342 50.36979 50.36979 50.36979 50.43796 51.30424 50.36979 50.36979 0.000000 161.6059 318.7811 311.6948 300.3921 307.0970 50.45520 50.45520 50.45520 50.39186 51.09524 50.45520 50.45520 0.000000 167.1673 326.2704 320.8289 311.7921 319.5190 50.59903 50.59903 50.59903 50.34315 50.92416 50.59903 50.59903 0.000000 173.0685 333.1103 329.9755 323.0097 331.7761 50.78094 50.78094 50.78094 50.43176 50.74976 50.78094 50.78094 0.000000 181.7885 339.8431 339.1280 333.8473 344.1865 50.97340 50.97340 50.97340 50.45268 50.69330 50.97340 50.97340 0.000000 189.1822 346.6440 347.8745 345.0023 356.4817 51.14585 51.14585 51.14585 50.52308 50.60051 51.14585 51.14585 0.000000 196.4767 353.6676 356.6478 356.1675 368.5332 51.40481 51.40481 51.40481 50.60580 50.53016 51.40481 51.40481 0.000000 204.4280 360.1994 365.9291 366.8957 380.7584 51.61468 51.61468 51.61468 50.70412 50.48607 51.61468 51.61468 0.000000 212.3792 366.7191 374.4516 377.8459 393.3061 51.88105 51.88105 51.88105 50.82374 50.47250 51.88105 51.88105 0.000000 220.7778 372.8471 383.3240 389.1479 400.1640 52.10860 52.10860 52.10860 50.91367 50.38662 52.10860 52.10860 0.000000 229.6960 379.5477 392.2717 395.1513 410.2991 52.30190 52.30190 52.30190 51.03300 50.38844 52.30190 52.30190 0.000000 238.7426 385.9612 400.9529 405.9969 422.7482 52.56654 52.56654 52.56654 51.12834 50.37193 52.56654 52.56654 0.000000 247.9408 392.6039 409.3858 414.1398 435.1006 52.80504 52.80504 52.80504 51.26030 50.34444 52.80504 52.80504 0.000000 257.8237 398.5078 418.4585 425.3562 444.6901 53.01879 53.01879 53.01879 51.37138 50.35686 53.01879 53.01879 0.000000 267.9265 405.2258 427.3710 436.5051 456.4730 53.31607 53.31607 53.31607 51.46709 50.35790 53.31607 53.31607 0.000000 278.2632 411.2280 436.1339 444.9998 469.4160 53.54020 53.54020 53.54020 51.60406 50.34856 53.54020 53.54020 0.000000 288.8576 417.0384 444.7572 455.5487 482.4029 53.74549 53.74549 53.74549 51.72705 50.38216 53.74549 53.74549 0.000000 299.7026 423.8086 454.2579 466.4719 494.4715 53.98645 53.98645 53.98645 51.83709 50.35454 53.98645 53.98645 0.000000 311.5751 429.2880 462.6560 478.2900 503.8405 54.26758 54.26758 54.26758 51.93198 50.36972 54.26758 54.26758 0.000000 323.0206 435.8009 472.0133 489.2117 515.8172 54.53474 54.53474 54.53474 52.07655 50.37864 54.53474 54.53474 0.000000 336.4683 442.2073 480.2142 496.5016 528.8829 54.73337 54.73337 54.73337 52.21106 50.38058 54.73337 54.73337 0.000000 348.6430 447.8827 489.4539 508.3319 542.0475 55.03043 55.03043 55.03043 52.27808 50.42709 55.03043 55.03043 0.000000 361.1354 453.4342 498.6607 519.1931 555.3203 55.20428 55.20428 55.20428 52.45228 50.46923 55.20428 55.20428 0.000000 374.9854 459.5254 507.8380 530.0703 563.0075 55.47781 55.47781 55.47781 52.56007 50.45302 55.47781 55.47781 0.000000 389.3147 465.5296 516.9937 542.0999 576.3345 55.74289 55.74289 55.74289 52.65997 50.48413 55.74289 55.74289 0.000000 404.1477 471.4504 526.1276 554.2379 589.7958 55.88416 55.88416 55.88416 52.81124 50.51024 55.88416 55.88416 0.000000 419.5116 478.7022 535.2474 564.5653 602.0524 56.13045 56.13045 56.13045 52.89673 50.53161 56.13045 56.13045 0.000000 434.1820 484.4947 544.3552 571.7787 615.7588 56.36839 56.36839 56.36839 53.03474 50.54851 56.36839 56.36839 0.000000 449.2801 490.2127 553.4547 582.7865 629.6218 56.59835 56.59835 56.59835 53.10353 50.61403 56.59835 56.59835 0.000000 466.2517 495.8577 562.5490 595.1612 643.6516 56.82070 56.82070 56.82070 53.22934 50.62267 56.82070 56.82070 0.000000 483.8644 501.4356 573.1328 606.3154 657.0754 57.09480 57.09480 57.09480 53.34965 50.62747 57.09480 57.09480 0.000000 500.5743 508.5068 582.2653 618.9316 664.7709 57.36266 57.36266 57.36266 53.46473 50.68162 57.36266 57.36266 0.000000 517.8214 513.9810 591.4019 630.2487 677.4857 57.56465 57.56465 57.56465 53.57478 50.67930 57.56465 57.56465 0.000000 537.3749 519.3905 600.5453 643.1302 691.9711 57.76018 57.76018 57.76018 53.74052 50.72673 57.76018 57.76018 0.000000 554.0330 526.3945 609.6981 656.1750 706.6624 57.94950 57.94950 57.94950 53.84132 50.71708 57.94950 57.94950 0.000000 574.9704 531.7108 620.5645 660.3996 719.7610 58.25450 58.25450 58.25450 53.99865 50.75977 58.25450 58.25450 0.000000 594.7153 536.9714 629.7846 671.9225 732.9641 58.43264 58.43264 58.43264 54.09091 50.79672 58.43264 58.43264 0.000000 617.2825 553.8256 639.0215 685.1854 750.1032 58.66674 58.66674 58.66674 54.17907 50.83251 58.66674 58.66674 0.000000 638.5154 561.2599 648.2776 696.9287 763.6405 58.89610 58.89610 58.89610 54.26223 50.86567 58.89610 58.89610 0.000000 660.4902 566.7986 657.5549 708.7652 777.2966 59.05863 59.05863 59.05863 54.40559 50.89503 59.05863 59.05863 0.000000 680.7456 574.2742 668.7740 720.6965 786.5547 59.34122 59.34122 59.34122 54.54305 50.92401 59.34122 59.34122 0.000000 704.1813 579.7562 678.1432 732.7282 797.2797 59.49434 59.49434 59.49434 54.61646 50.95062 59.49434 59.49434 0.000000 728.4626 587.2221 687.5402 746.7676 813.3308 59.76918 59.76918 59.76918 54.74869 50.97173 59.76918 59.76918 0.000000 750.7443 594.7208 699.0298 759.0621 827.4016 59.97706 59.97706 59.97706 54.87794 50.99433 59.97706 59.97706 0.000000 776.6797 600.1388 708.5319 773.4838 843.9298 60.18105 60.18105 60.18105 54.94161 51.01296 60.18105 60.18105 0.000000 76.37467 196.6764 192.4182 183.9424 185.0502 56.02799 56.02799 56.02799 55.75163 55.91652 56.02799 56.02799 0.000000 125.3817 270.8228 255.6427 234.2813 236.1720 51.94240 51.94240 51.94240 52.22466 53.63129 51.94240 51.94240 0.000000 138.3098 285.3608 270.4933 250.6616 253.3956 50.91478 50.91478 50.91478 51.21677 52.54820 50.91478 50.91478 0.000000 144.7472 295.2032 281.9144 264.3576 267.9697 50.48668 50.48668 50.48668 50.72138 51.95352 50.48668 50.48668 0.000000 150.4402 303.6869 292.3576 277.0129 281.6935 50.34885 50.34885 50.34885 50.49850 51.54208 50.34885 50.34885 0.000000 155.9867 311.5047 302.4425 288.9926 294.8965 50.38937 50.38937 50.38937 50.39459 51.27430 50.38937 50.38937 0.000000 161.6432 318.9726 311.7347 300.8344 307.5710 50.48926 50.48926 50.48926 50.36124 51.02119 50.48926 50.48926 0.000000 167.3633 326.5342 321.2034 312.3353 320.1024 50.59627 50.59627 50.59627 50.37845 50.85878 50.59627 50.59627 0.000000 173.1586 333.8120 330.7171 323.6566 332.7170 50.79076 50.79076 50.79076 50.42242 50.74522 50.79076 50.79076 0.000000 182.0800 340.6313 339.6687 334.8475 344.9985 50.99412 50.99412 50.99412 50.50524 50.64261 50.99412 50.99412 0.000000 189.5205 347.5192 348.4993 346.1284 357.6948 51.22545 51.22545 51.22545 50.58595 50.55624 51.22545 51.22545 0.000000 196.8639 354.2185 357.6878 357.4226 369.8873 51.44490 51.44490 51.44490 50.62132 50.49194 51.44490 51.44490 0.000000 204.8685 360.8215 366.3815 368.2805 382.2591 51.71431 51.71431 51.71431 50.72679 50.45316 51.71431 51.71431 0.000000 212.8754 367.4129 375.3368 379.3658 394.9608 51.93815 51.93815 51.93815 50.85314 50.44467 51.93815 51.93815 0.000000 221.3340 374.0677 384.6753 390.8087 402.5327 52.17411 52.17411 52.17411 50.94937 50.41613 52.17411 52.17411 0.000000 230.3169 380.3841 393.3372 396.8367 412.1184 52.42677 52.42677 52.42677 51.07372 50.36993 52.42677 52.42677 0.000000 239.4313 387.3569 402.5187 405.8076 424.7144 52.69912 52.69912 52.69912 51.17434 50.35773 52.69912 52.69912 0.000000 248.7011 393.0839 411.0581 416.7981 437.2157 52.94510 52.94510 52.94510 51.31184 50.38677 52.94510 52.94510 0.000000 258.6605 399.5580 420.2440 427.4256 447.4370 53.16597 53.16597 53.16597 51.42929 50.35059 53.16597 53.16597 0.000000 268.8448 405.8207 429.2707 439.5084 459.7318 53.41711 53.41711 53.41711 51.58676 50.35531 53.41711 53.41711 0.000000 279.9050 412.9713 438.1472 447.7433 472.8802 53.64763 53.64763 53.64763 51.67178 50.34949 53.64763 53.64763 0.000000 290.6295 418.8668 446.8845 458.8749 485.1331 53.91200 53.91200 53.91200 51.79939 50.38648 53.91200 53.91200 0.000000 301.6105 425.1517 456.5079 469.9771 495.7178 54.16072 54.16072 54.16072 51.91069 50.41461 54.16072 54.16072 0.000000 312.8699 431.2906 465.0202 481.0588 507.8928 54.39350 54.39350 54.39350 52.07071 50.38014 54.39350 54.39350 0.000000 326.0411 437.8944 474.5032 493.0943 520.0756 54.66655 54.66655 54.66655 52.16195 50.39206 54.66655 54.66655 0.000000 337.9908 444.3914 483.9438 500.5313 533.3657 54.92630 54.92630 54.92630 52.30055 50.44953 54.92630 54.92630 0.000000 350.2838 449.5154 492.1868 511.5345 546.7596 55.17352 55.17352 55.17352 52.42956 50.44635 55.17352 55.17352 0.000000 364.8306 455.7867 501.5206 523.6163 560.2667 55.40739 55.40739 55.40739 52.54956 50.43856 55.40739 55.40739 0.000000 377.9083 461.9668 510.8297 534.6873 569.3463 55.68810 55.68810 55.68810 52.66106 50.47765 55.68810 55.68810 0.000000 392.4439 468.0594 520.1136 546.9302 581.6907 55.90167 55.90167 55.90167 52.82341 50.51134 55.90167 55.90167 0.000000 407.4951 475.4634 529.3810 559.2877 595.3998 56.10514 56.10514 56.10514 52.91947 50.53995 56.10514 56.10514 0.000000 421.8913 481.4213 538.6343 566.0135 609.2593 56.35691 56.35691 56.35691 53.00834 50.56375 56.35691 56.35691 0.000000 437.9867 487.3014 547.8770 577.1817 621.8528 56.60019 56.60019 56.60019 53.14608 50.58300 56.60019 56.60019 0.000000 454.6788 493.1067 558.5416 589.6954 637.4547 56.83539 56.83539 56.83539 53.28123 50.59795 56.83539 56.83539 0.000000 470.5625 498.8387 567.8129 601.0053 650.2787 57.06284 57.06284 57.06284 53.41054 50.66175 57.06284 57.06284 0.000000 488.4592 504.5031 577.0839 612.3751 657.4120 57.34233 57.34233 57.34233 53.53427 50.66873 57.34233 57.34233 0.000000 507.0473 511.6760 586.3576 625.2335 671.8500 57.61548 57.61548 57.61548 53.65267 50.67200 57.61548 57.61548 0.000000 524.6688 517.2360 595.6369 638.2514 686.4827 57.82227 57.82227 57.82227 53.76597 50.72481 57.82227 57.82227 0.000000 542.8694 522.7305 606.5625 649.9064 699.5995 58.02249 58.02249 58.02249 53.87438 50.77369 58.02249 58.02249 0.000000 561.6878 529.8351 615.9020 655.8849 714.5895 58.27731 58.27731 58.27731 53.97810 50.82148 58.27731 58.27731 0.000000 581.1274 535.2379 625.2551 667.5601 729.7946 58.52675 58.52675 58.52675 54.13851 50.80985 58.52675 58.52675 0.000000 601.2267 552.1092 636.3965 680.9581 743.3304 58.70932 58.70932 58.70932 54.29502 50.85032 58.70932 58.70932 0.000000 622.0190 557.8102 645.8270 692.8523 758.9352 59.01027 59.01027 59.01027 54.38546 50.88616 59.01027 59.01027 0.000000 645.8300 565.3643 655.2786 706.5826 774.7825 59.18225 59.18225 59.18225 54.47441 50.92244 59.18225 59.18225 0.000000 668.2194 572.9462 666.6626 718.7148 787.9227 59.47446 59.47446 59.47446 54.61721 50.95522 59.47446 59.47446 0.000000 691.4063 578.6003 676.2068 730.9486 795.2474 59.63655 59.63655 59.63655 54.75901 50.98448 59.63655 59.63655 0.000000 712.7593 586.2018 685.7789 743.2878 809.3514 59.92062 59.92062 59.92062 54.83505 51.01157 59.92062 59.92062 0.000000 737.5176 593.8362 695.3809 757.6851 825.8262 60.07343 60.07343 60.07343 54.90760 51.03809 60.07343 60.07343 0.000000 763.1838 599.3943 705.0146 770.3013 840.2798 60.34988 60.34988 60.34988 55.10240 51.05974 60.34988 60.34988 0.000000 789.7950 607.0541 716.8295 785.0945 857.2484 60.49396 60.49396 60.49396 55.16853 51.13433 60.49396 60.49396 0.000000 76.37476 196.6843 192.4281 183.9652 185.0509 56.02990 56.02990 56.02990 55.75464 55.91795 56.02990 56.02990 0.000000 125.5319 270.8942 255.7133 234.3677 236.1487 51.97539 51.97539 51.97539 52.20754 53.59687 51.97539 51.97539 0.000000 138.3483 285.5176 270.4691 250.7145 253.4556 50.87432 50.87432 50.87432 51.17162 52.53299 50.87432 50.87432 0.000000 144.8126 295.1684 281.9601 264.4965 268.2793 50.46831 50.46831 50.46831 50.69792 51.95307 50.46831 50.46831 0.000000 150.5342 303.7196 292.6978 277.2417 281.9398 50.34881 50.34881 50.34881 50.49215 51.49927 50.34881 50.34881 0.000000 155.9932 311.6058 302.6366 289.5004 295.2409 50.35662 50.35662 50.35662 50.40259 51.24221 50.35662 50.35662 0.000000 161.6731 319.4764 312.2589 301.2500 308.0172 50.47050 50.47050 50.47050 50.37852 50.99842 50.47050 50.47050 0.000000 167.5508 326.7728 321.8210 312.8481 320.8820 50.63892 50.63892 50.63892 50.40986 50.84423 50.63892 50.63892 0.000000 173.2385 333.7528 330.8591 324.2691 333.6227 50.84415 50.84415 50.84415 50.40892 50.73799 50.84415 50.84415 0.000000 182.3592 341.0071 340.1755 335.8120 346.0328 51.05940 51.05940 51.05940 50.49844 50.64207 51.05940 51.05940 0.000000 189.8446 347.9638 349.4019 347.2139 358.8643 51.30070 51.30070 51.30070 50.58924 50.56183 51.30070 51.30070 0.000000 197.2350 354.7316 358.6898 358.6332 371.1935 51.47939 51.47939 51.47939 50.68730 50.50262 51.47939 51.47939 0.000000 205.2909 361.4028 367.4800 369.6172 383.7078 51.75753 51.75753 51.75753 50.79996 50.46969 51.75753 51.75753 0.000000 213.3513 368.5070 376.5368 380.8336 391.0525 51.98956 51.98956 51.98956 50.87747 50.41356 51.98956 51.98956 0.000000 221.8677 375.2462 385.6002 392.4147 404.1641 52.23335 52.23335 52.23335 51.03493 50.38971 52.23335 52.23335 0.000000 230.9128 381.6453 394.3480 398.4642 413.8757 52.54425 52.54425 52.54425 51.16622 50.34513 52.54425 52.54425 0.000000 240.0926 388.2137 404.0314 407.7719 426.6143 52.77297 52.77297 52.77297 51.27503 50.33998 52.77297 52.77297 0.000000 249.9631 394.5120 412.6744 418.6718 440.0575 53.02588 53.02588 53.02588 51.35920 50.37296 53.02588 53.02588 0.000000 260.0310 401.0710 421.9699 430.1931 449.6182 53.30653 53.30653 53.30653 51.53823 50.34058 53.30653 53.30653 0.000000 270.3304 407.4163 431.1060 441.6504 462.9302 53.56455 53.56455 53.56455 51.64393 50.34890 53.56455 53.56455 0.000000 280.8739 414.1078 440.0939 450.0046 475.3695 53.80167 53.80167 53.80167 51.73357 50.39902 53.80167 53.80167 0.000000 291.6863 420.6346 448.9422 461.2747 488.7282 54.07277 54.07277 54.07277 51.86570 50.38684 54.07277 54.07277 0.000000 302.7596 426.4262 458.6843 473.4188 498.5030 54.32783 54.32783 54.32783 51.98146 50.36389 54.32783 54.32783 0.000000 315.6558 433.2297 467.3094 484.6790 510.8463 54.56673 54.56673 54.56673 52.14577 50.38646 54.56673 54.56673 0.000000 327.3992 439.9222 476.9140 496.4182 524.2598 54.84596 54.84596 54.84596 52.29899 50.40133 54.84596 54.84596 0.000000 339.4735 446.5073 486.4776 504.4906 537.7716 55.11170 55.11170 55.11170 52.38363 50.40759 55.11170 55.11170 0.000000 353.7041 451.7085 496.0058 515.6793 551.3919 55.36331 55.36331 55.36331 52.57495 50.46133 55.36331 55.36331 0.000000 366.5440 458.0669 505.5039 527.9641 564.5051 55.60401 55.60401 55.60401 52.64024 50.50890 55.60401 55.60401 0.000000 380.7819 464.3337 514.9754 539.2267 573.1517 55.89050 55.89050 55.89050 52.81422 50.49788 55.89050 55.89050 0.000000 395.5210 470.5128 524.4282 551.6804 586.9603 56.10939 56.10939 56.10939 52.92140 50.53410 56.10939 56.10939 0.000000 410.7872 478.0153 533.8620 564.2531 600.9144 56.31804 56.31804 56.31804 53.02087 50.56516 56.31804 56.31804 0.000000 425.3959 484.0591 543.2847 571.1273 615.0246 56.57517 56.57517 56.57517 53.16876 50.59134 56.57517 56.57517 0.000000 441.7301 490.0247 552.6985 582.4987 629.2960 56.82370 56.82370 56.82370 53.31367 50.61291 56.82370 56.82370 0.000000 457.3000 495.9138 562.1070 595.2387 643.7395 57.06403 57.06403 57.06403 53.45235 50.63010 57.06403 57.06403 0.000000 476.2614 501.7324 573.0043 608.1259 656.8288 57.35595 57.35595 57.35595 53.58511 50.64314 57.35595 57.35595 0.000000 492.9830 509.0437 582.4525 619.7499 665.6903 57.64116 57.64116 57.64116 53.71219 50.70525 57.64116 57.64116 0.000000 510.2447 514.7533 591.9050 631.4406 680.4628 57.85959 57.85959 57.85959 53.83387 50.76181 57.85959 57.85959 0.000000 529.7787 520.3952 601.3651 644.7038 695.4410 58.07109 58.07109 58.07109 53.95035 50.76543 58.07109 58.07109 0.000000 550.0914 527.6333 610.8351 657.0665 708.8722 58.27592 58.27592 58.27592 54.06187 50.76288 58.27592 58.27592 0.000000 569.3243 533.1791 622.0261 664.2871 724.2172 58.59708 58.59708 58.59708 54.16863 50.81124 58.59708 58.59708 0.000000 589.1984 550.0445 631.5668 676.2390 739.7896 58.78994 58.78994 58.78994 54.26979 50.85655 58.78994 58.78994 0.000000 609.7554 555.8911 641.1255 688.2798 753.6614 59.03896 59.03896 59.03896 54.43064 50.89767 59.03896 59.03896 0.000000 631.0273 563.5796 652.5485 702.1370 769.6506 59.28290 59.28290 59.28290 54.58494 50.93871 59.28290 59.28290 0.000000 653.0457 571.2955 662.1943 714.4182 785.8900 59.45907 59.45907 59.45907 54.67470 50.97570 59.45907 59.45907 0.000000 675.8461 577.0912 671.8655 728.6274 792.5970 59.75626 59.75626 59.75626 54.76052 51.00749 59.75626 59.75626 0.000000 699.4651 584.8260 683.5519 741.1648 806.9248 59.92239 59.92239 59.92239 54.90507 51.04047 59.92239 59.92239 0.000000 723.9425 592.5939 693.3257 753.8148 821.3940 60.21132 60.21132 60.21132 55.04634 51.06894 60.21132 60.21132 0.000000 749.3160 598.2917 703.1315 766.5795 836.0093 60.49679 60.49679 60.49679 55.12141 51.09583 60.49679 60.49679 0.000000 775.6238 606.0844 715.1122 781.5064 853.1297 60.64922 60.64922 60.64922 55.31945 51.12046 60.64922 60.64922 0.000000 802.9210 613.9150 725.0343 786.9743 870.5449 60.92720 60.92720 60.92720 55.38800 51.14293 60.92720 60.92720 0.000000 76.37485 196.6843 192.4380 183.9657 185.0515 56.03173 56.03173 56.03173 55.75753 55.91933 56.03173 56.03173 0.000000 125.5446 270.9625 255.7808 234.3941 236.2364 51.95605 51.95605 51.95605 52.18909 53.56169 51.95605 51.95605 0.000000 138.2941 285.6674 270.6211 250.8949 253.6464 50.88127 50.88127 50.88127 51.12451 52.51654 50.88127 50.88127 0.000000 144.7739 295.4029 282.1985 264.7776 268.4173 50.49614 50.49614 50.49614 50.72720 51.89587 50.49614 50.49614 0.000000 150.5144 304.0379 292.8024 277.4538 282.1685 50.34568 50.34568 50.34568 50.48291 51.50903 50.34568 50.34568 0.000000 156.1115 312.0070 302.8127 289.8009 295.5639 50.36897 50.36897 50.36897 50.40738 51.20808 50.36897 50.36897 0.000000 161.8213 319.6258 312.7624 301.8441 308.6492 50.49664 50.49664 50.49664 50.34082 50.97343 50.49664 50.49664 0.000000 167.7304 327.3395 322.1445 313.5512 321.6328 50.67740 50.67740 50.67740 50.38284 50.82727 50.67740 50.67740 0.000000 173.4498 334.4004 331.5433 325.0834 334.2480 50.89396 50.89396 50.89396 50.44624 50.72820 50.89396 50.89396 0.000000 182.6268 341.3533 340.9523 336.7408 347.0302 51.07026 51.07026 51.07026 50.48946 50.63884 51.07026 51.07026 0.000000 190.1555 348.3758 350.2725 347.9944 359.7091 51.32085 51.32085 51.32085 50.58818 50.56461 51.32085 51.32085 0.000000 197.5910 355.6233 359.3223 359.2355 372.4548 51.55901 51.55901 51.55901 50.69358 50.51095 51.55901 51.55901 0.000000 205.6963 362.3760 368.5409 370.9084 385.1076 51.79463 51.79463 51.79463 50.81309 50.43057 51.79463 51.79463 0.000000 214.2209 369.1174 377.6951 382.2524 392.4942 52.08646 52.08646 52.08646 50.95266 50.43191 52.08646 52.08646 0.000000 222.8208 375.9227 386.4766 393.9668 405.7405 52.33828 52.33828 52.33828 51.06016 50.36010 52.33828 52.33828 0.000000 231.9561 382.8645 395.7044 400.0373 416.2986 52.60480 52.60480 52.60480 51.19563 50.37234 52.60480 52.60480 0.000000 241.2301 389.0226 405.0789 409.4616 429.2153 52.84050 52.84050 52.84050 51.30980 50.37128 52.84050 52.84050 0.000000 250.6670 395.8935 414.2371 420.4845 442.8478 53.15309 53.15309 53.15309 51.45693 50.35569 53.15309 53.15309 0.000000 260.8070 402.5352 423.6389 432.1354 452.5646 53.44078 53.44078 53.44078 51.58511 50.37947 53.44078 53.44078 0.000000 271.1827 408.9629 432.8821 444.5354 465.1936 53.65177 53.65177 53.65177 51.69554 50.39135 53.65177 53.65177 0.000000 281.8064 415.1846 441.9780 453.0314 478.6997 53.94799 53.94799 53.94799 51.84692 50.39236 53.94799 53.94799 0.000000 292.7039 422.3495 450.9343 464.4724 492.2612 54.22681 54.22681 54.22681 51.98057 50.38184 54.22681 54.22681 0.000000 304.5953 428.2188 460.7929 475.8881 501.2117 54.48809 54.48809 54.48809 52.10400 50.41589 54.48809 54.48809 0.000000 316.8651 435.1090 469.5270 488.2374 514.7470 54.73299 54.73299 54.73299 52.21487 50.44150 54.73299 54.73299 0.000000 329.5334 441.8879 479.2501 496.0447 528.3747 55.01827 55.01827 55.01827 52.37215 50.45779 55.01827 55.01827 0.000000 341.7611 447.9265 488.9336 508.3841 542.1055 55.28989 55.28989 55.28989 52.51892 50.46841 55.28989 55.28989 0.000000 355.2401 453.8355 498.5830 519.7560 555.9496 55.54697 55.54697 55.54697 52.65582 50.47224 55.54697 55.54697 0.000000 369.1819 460.2789 508.2024 532.2415 565.4096 55.79319 55.79319 55.79319 52.78343 50.52243 55.79319 55.79319 0.000000 383.6098 466.6303 517.8000 544.8336 579.3634 56.08536 56.08536 56.08536 52.90231 50.51394 56.08536 56.08536 0.000000 398.5496 472.8936 527.3754 556.3555 592.1486 56.36739 56.36739 56.36739 53.01292 50.55263 56.36739 56.36739 0.000000 414.0283 480.4923 536.9373 563.4311 607.7108 56.58144 56.58144 56.58144 53.17146 50.58608 56.58144 56.58144 0.000000 428.8466 486.6201 546.4879 576.1625 620.7037 56.78560 56.78560 56.78560 53.32655 50.61460 56.78560 56.78560 0.000000 445.4168 492.6693 557.4556 589.0304 636.7016 57.09832 57.09832 57.09832 53.47502 50.63843 57.09832 57.09832 0.000000 462.6108 498.6419 567.0353 600.6993 649.9320 57.34406 57.34406 57.34406 53.61718 50.65782 57.34406 57.34406 0.000000 478.9864 504.5434 576.6149 612.4297 659.0273 57.64173 57.64173 57.64173 53.69279 50.72607 57.64173 57.64173 0.000000 499.0034 511.9516 586.1973 625.6523 673.9324 57.87222 57.87222 57.87222 53.82294 50.73587 57.87222 57.87222 0.000000 516.6196 517.7436 595.7856 639.0392 687.3691 58.09537 58.09537 58.09537 54.00858 50.74513 58.09537 58.09537 0.000000 534.8167 525.1145 607.0231 652.5958 702.6291 58.31149 58.31149 58.31149 54.12820 50.80062 58.31149 58.31149 0.000000 553.6337 530.8027 616.6744 657.4002 718.1076 58.64373 58.64373 58.64373 54.24278 50.85425 58.64373 58.64373 0.000000 575.0071 536.4301 626.3404 671.0474 731.9625 58.84722 58.84722 58.84722 54.35180 50.90465 58.84722 58.84722 0.000000 597.2604 553.6328 637.8011 684.8839 747.8404 59.04444 59.04444 59.04444 54.45888 50.89784 59.04444 59.04444 0.000000 618.2764 561.4536 647.5480 697.2083 763.9623 59.36076 59.36076 59.36076 54.61922 50.94245 59.36076 59.36076 0.000000 640.0293 567.3764 657.3172 709.6306 780.3353 59.54668 59.54668 59.54668 54.77800 50.98316 59.54668 59.54668 0.000000 662.5541 575.2386 669.0308 722.1529 787.2660 59.85366 59.85366 59.85366 54.87048 51.02132 59.85366 59.85366 0.000000 685.8870 581.1008 678.8973 736.6412 801.7527 60.02903 60.02903 60.02903 54.95896 51.05857 60.02903 60.02903 0.000000 710.0667 588.9536 688.7933 751.3558 818.5793 60.32734 60.32734 60.32734 55.10645 51.09050 60.32734 60.32734 0.000000 735.1322 596.8406 700.7925 764.3145 833.4182 60.49282 60.49282 60.49282 55.25061 51.12139 60.49282 60.49282 0.000000 761.1252 604.7640 710.8005 777.3923 848.4093 60.78302 60.78302 60.78302 55.32818 51.14992 60.78302 60.78302 0.000000 788.0844 610.5486 720.8447 786.9420 865.9636 61.06982 61.06982 61.06982 55.52938 51.17617 61.06982 61.06982 0.000000 812.8311 618.5019 733.1553 796.2271 883.8284 61.22181 61.22181 61.22181 55.60032 51.25417 61.22181 61.22181 0.000000 76.38038 196.6923 192.4382 183.9662 185.0759 56.03349 56.03349 56.03349 55.76030 55.92065 56.03349 56.03349 0.000000 125.5568 271.0279 255.8454 234.4169 236.3204 51.93559 51.93559 51.93559 52.16938 53.52580 51.93559 51.93559 0.000000 138.3292 285.5550 270.5834 250.9319 253.6897 50.83698 50.83698 50.83698 51.13152 52.49890 50.83698 50.83698 0.000000 144.8336 295.3479 282.4274 264.8925 268.5429 50.47272 50.47272 50.47272 50.69883 51.88985 50.47272 50.47272 0.000000 150.4906 304.0438 292.8936 277.8220 282.5586 50.38826 50.38826 50.38826 50.47093 51.46267 50.38826 50.38826 0.000000 156.2248 312.3932 303.2109 290.0821 296.0620 50.37801 50.37801 50.37801 50.35442 51.17203 50.37801 50.37801 0.000000 161.9634 319.7559 312.9917 302.0088 309.0449 50.51912 50.51912 50.51912 50.35445 50.94632 50.51912 50.51912 0.000000 167.7689 327.5325 322.4446 314.0089 321.8948 50.71193 50.71193 50.71193 50.40699 50.80804 50.71193 50.71193 0.000000 173.6524 335.0251 332.2027 325.8688 334.8401 50.89005 50.89005 50.89005 50.47985 50.71598 50.89005 50.89005 0.000000 182.8837 342.0561 341.3982 337.1344 347.9930 51.12629 51.12629 51.12629 50.53149 50.58016 51.12629 51.12629 0.000000 190.4540 349.1575 350.7933 348.7365 360.5126 51.33527 51.33527 51.33527 50.63814 50.51091 51.33527 51.33527 0.000000 197.9330 356.0683 359.9186 360.3616 373.6739 51.63374 51.63374 51.63374 50.75090 50.46382 51.63374 51.63374 0.000000 206.0858 363.3166 369.5653 372.1569 386.4612 51.87789 51.87789 51.87789 50.87731 50.44119 51.87789 51.87789 0.000000 214.6615 369.6881 378.8141 383.6251 394.5490 52.17811 52.17811 52.17811 50.96594 50.39471 52.17811 52.17811 0.000000 223.3154 376.5579 387.6896 395.4698 406.1217 52.43778 52.43778 52.43778 51.08115 50.37992 52.43778 52.43778 0.000000 232.5087 383.5643 397.0152 402.2419 417.9473 52.71173 52.71173 52.71173 51.22276 50.39643 52.71173 52.71173 0.000000 241.8438 390.2789 406.0744 411.0970 430.9993 52.95462 52.95462 52.95462 51.34164 50.34690 52.95462 52.95462 0.000000 251.3444 397.2311 415.7492 422.9840 444.7750 53.22130 53.22130 53.22130 51.49375 50.38760 53.22130 53.22130 0.000000 261.5542 403.9533 425.2553 434.7975 454.6161 53.56898 53.56898 53.56898 51.62679 50.36252 53.56898 53.56898 0.000000 272.0035 410.4592 434.6026 445.4003 468.2723 53.78637 53.78637 53.78637 51.79898 50.37786 53.78637 53.78637 0.000000 283.3550 416.7607 443.8027 455.1609 481.9744 54.08929 54.08929 54.08929 51.95514 50.38220 54.08929 54.08929 0.000000 294.3752 424.0097 452.8636 466.7338 495.7361 54.37444 54.37444 54.37444 52.09345 50.42718 54.37444 54.37444 0.000000 306.4021 429.9570 462.8360 479.2036 504.8429 54.64181 54.64181 54.64181 52.22125 50.41168 54.64181 54.64181 0.000000 318.8150 436.9317 472.7569 491.7379 518.5853 54.89258 54.89258 54.89258 52.33632 50.43870 54.89258 54.89258 0.000000 331.6345 443.7932 481.5157 499.6854 532.4246 55.18380 55.18380 55.18380 52.43953 50.45944 55.18380 55.18380 0.000000 344.0133 449.2771 491.3160 511.1874 546.3718 55.45965 55.45965 55.45965 52.64869 50.47280 55.45965 55.45965 0.000000 357.6603 455.8999 501.0825 523.7689 560.4374 55.72363 55.72363 55.72363 52.73072 50.53201 55.72363 55.72363 0.000000 371.7797 462.4262 510.8238 536.4528 570.0746 55.97527 55.97527 55.97527 52.92097 50.53203 55.97527 55.97527 0.000000 386.3954 468.8603 520.5395 548.0918 582.9805 56.27299 56.27299 56.27299 53.04353 50.52601 56.27299 56.27299 0.000000 401.5334 476.6066 530.2389 560.9602 598.5928 56.56045 56.56045 56.56045 53.15397 50.56712 56.56045 56.56045 0.000000 417.2218 482.8984 541.2809 569.4043 611.6995 56.83815 56.83815 56.83815 53.31973 50.60292 56.83815 56.83815 0.000000 433.5090 489.1082 550.9972 581.1241 627.7402 57.04748 57.04748 57.04748 53.47843 50.63372 57.04748 57.04748 0.000000 449.0509 495.2392 560.7077 592.8960 642.5740 57.36609 57.36609 57.36609 53.57009 50.65977 57.36609 57.36609 0.000000 466.4916 501.2934 570.4160 606.0840 656.8128 57.61716 57.61716 57.61716 53.71540 50.73441 57.61716 57.61716 0.000000 484.6032 508.8374 580.1255 619.4257 665.3260 57.86013 57.86013 57.86013 53.85461 50.75037 57.86013 57.86013 0.000000 501.8383 514.7788 591.4094 631.4731 680.4996 58.09536 58.09536 58.09536 53.98800 50.76552 58.09536 58.09536 0.000000 521.3073 520.6494 601.1732 646.6067 695.8854 58.32315 58.32315 58.32315 54.11583 50.82661 58.32315 58.32315 0.000000 541.5547 528.1157 610.9476 657.0522 709.7274 58.66676 58.66676 58.66676 54.29979 50.83241 58.66676 58.66676 0.000000 560.7645 533.8857 622.4454 665.4015 725.4921 58.88124 58.88124 58.88124 54.41688 50.88614 58.88124 58.88124 0.000000 580.6183 551.0435 632.2934 677.7199 741.4918 59.08910 59.08910 59.08910 54.52902 50.88676 59.08910 59.08910 0.000000 601.1562 557.1281 642.1605 691.8118 757.7377 59.41592 59.41592 59.41592 54.63694 50.93622 59.41592 59.41592 0.000000 624.5979 565.0607 653.8990 706.1096 774.2378 59.61190 59.61190 59.61190 54.74034 50.97988 59.61190 59.61190 0.000000 646.7189 573.0218 663.8572 718.8179 788.6034 59.92890 59.92890 59.92890 54.96452 51.02433 59.92890 59.92890 0.000000 672.0666 579.0539 675.7937 731.6330 796.0291 60.11379 60.11379 60.11379 55.05967 51.06394 60.11379 60.11379 0.000000 695.9351 587.0350 685.8544 746.4614 812.9809 60.42166 60.42166 60.42166 55.15076 51.10154 60.42166 60.42166 0.000000 720.6790 595.0504 698.0049 761.5220 830.2198 60.59618 60.59618 60.59618 55.30116 51.13657 60.59618 60.59618 0.000000 746.3368 600.9821 708.1786 774.7914 845.4285 60.89553 60.89553 60.89553 55.44817 51.16911 60.89553 60.89553 0.000000 769.9632 609.0239 718.3904 788.1860 860.7946 61.12577 61.12577 61.12577 55.52818 51.19926 61.12577 61.12577 0.000000 794.2933 617.1051 730.8555 794.0364 878.7894 61.35171 61.35171 61.35171 55.73248 51.22709 61.35171 61.35171 0.000000 822.6382 625.2277 741.1951 807.5281 897.1102 61.63978 61.63978 61.63978 55.80577 51.25269 61.63978 61.63978 0.000000 76.38046 196.6922 192.4383 183.9778 185.0765 56.03517 56.03517 56.03517 55.76296 55.92192 56.03517 56.03517 0.000000 125.5684 271.0906 255.9073 234.4926 236.2856 51.91407 51.91407 51.91407 52.14849 53.54728 51.91407 51.91407 0.000000 138.3628 285.6930 270.7231 251.0979 253.8652 50.84028 50.84028 50.84028 51.13671 52.48015 50.84028 50.84028 0.000000 144.7896 295.5640 282.4431 264.9968 268.8168 50.44619 50.44619 50.44619 50.66824 51.82985 50.44619 50.44619 0.000000 150.5729 304.3377 293.1944 278.0039 282.7552 50.37946 50.37946 50.37946 50.45636 51.46900 50.37946 50.37946 0.000000 156.3335 312.4460 303.3547 290.5334 296.3455 50.38392 50.38392 50.38392 50.35327 51.18798 50.38392 50.38392 0.000000 162.0997 320.2039 313.2022 302.5591 309.4176 50.53734 50.53734 50.53734 50.36496 50.97065 50.53734 50.53734 0.000000 167.8003 327.7047 322.9944 314.4414 322.5910 50.74270 50.74270 50.74270 50.37307 50.78410 50.74270 50.74270 0.000000 173.8470 335.2577 332.5500 326.1541 335.6512 50.93084 50.93084 50.93084 50.45316 50.70145 50.93084 50.93084 0.000000 183.1305 342.7350 341.8161 337.9985 348.6554 51.17807 51.17807 51.17807 50.56981 50.57195 51.17807 51.17807 0.000000 190.7410 349.9130 351.2831 349.7114 361.5633 51.39633 51.39633 51.39633 50.68425 50.50975 51.39633 51.39633 0.000000 198.2619 356.4819 360.8164 361.4507 374.8530 51.70380 51.70380 51.70380 50.74882 50.46672 51.70380 51.70380 0.000000 206.4606 363.7917 370.2029 373.3651 387.7706 51.95636 51.95636 51.95636 50.88177 50.39650 51.95636 51.95636 0.000000 215.0856 370.6720 379.5266 384.9541 395.9003 52.26474 52.26474 52.26474 51.03393 50.40724 52.26474 52.26474 0.000000 223.7915 377.6190 388.8629 391.3974 406.9521 52.53088 52.53088 52.53088 51.15361 50.39400 52.53088 52.53088 0.000000 233.0408 384.2227 398.2827 403.7197 419.5438 52.76094 52.76094 52.76094 51.30282 50.36503 52.76094 52.76094 0.000000 242.4349 391.4958 407.4383 412.6812 433.5044 53.06326 53.06326 53.06326 51.42451 50.37191 53.06326 53.06326 0.000000 252.5373 398.5273 417.2135 424.6898 445.2050 53.33680 53.33680 53.33680 51.58248 50.36386 53.33680 53.33680 0.000000 262.8507 405.3279 426.8199 436.6267 456.6052 53.63766 53.63766 53.63766 51.72049 50.39484 53.63766 53.63766 0.000000 273.4089 411.9120 436.2689 445.4935 470.4062 53.91394 53.91394 53.91394 51.89760 50.36110 53.91394 53.91394 0.000000 284.2246 418.2891 445.5712 457.2266 484.2565 54.22457 54.22457 54.22457 51.99777 50.41958 54.22457 54.22457 0.000000 296.0216 425.6214 455.7503 469.8180 496.0973 54.51590 54.51590 54.51590 52.14353 50.41649 54.51590 54.51590 0.000000 307.4392 431.6436 464.8173 482.4669 508.4178 54.78925 54.78925 54.78925 52.27541 50.40399 54.78925 54.78925 0.000000 320.7361 438.7008 474.8509 494.2106 521.3021 55.04580 55.04580 55.04580 52.45263 50.43398 55.04580 55.04580 0.000000 332.8627 445.6445 484.8417 502.2721 536.4135 55.34143 55.34143 55.34143 52.55979 50.45750 55.34143 55.34143 0.000000 346.2327 451.2009 493.6274 514.9482 550.5749 55.62410 55.62410 55.62410 52.71439 50.47354 55.62410 55.62410 0.000000 360.0457 457.9050 504.7186 527.7217 564.2845 55.89356 55.89356 55.89356 52.85887 50.53534 55.89356 55.89356 0.000000 374.3405 464.5123 513.3671 539.4764 573.4288 56.15052 56.15052 56.15052 53.05308 50.53787 56.15052 56.15052 0.000000 389.1418 471.0271 524.4912 553.5974 589.0844 56.45369 56.45369 56.45369 53.11606 50.58711 56.45369 56.45369 0.000000 404.4759 478.8650 534.3491 564.3304 602.3016 56.74648 56.74648 56.74648 53.29300 50.57775 56.74648 56.74648 0.000000 420.3717 485.2373 544.1965 572.8607 618.3813 57.02937 57.02937 57.02937 53.46239 50.66883 57.02937 57.02937 0.000000 435.6018 491.5273 554.0356 586.0165 633.2836 57.30286 57.30286 57.30286 53.56432 50.64890 57.30286 57.30286 0.000000 452.6360 497.7369 563.8705 599.3204 648.3679 57.56737 57.56737 57.56737 53.71946 50.73019 57.56737 57.56737 0.000000 470.3209 503.8722 575.2045 611.3941 656.3107 57.82330 57.82330 57.82330 53.86811 50.75257 57.82330 57.82330 0.000000 488.6909 511.5088 585.0836 624.9611 671.5438 58.07103 58.07103 58.07103 54.01059 50.77388 58.07103 58.07103 0.000000 507.7831 517.5294 594.9688 638.6967 686.9838 58.31091 58.31091 58.31091 54.14716 50.84085 58.31091 58.31091 0.000000 525.9359 525.1259 606.5010 652.6068 702.6415 58.66621 58.66621 58.66621 54.27629 50.85230 58.66621 58.66621 0.000000 546.4880 531.0379 616.4517 659.3183 718.5245 58.89203 58.89203 58.89203 54.40385 50.85863 58.89203 58.89203 0.000000 565.9950 536.8864 626.4176 671.7684 732.7878 59.11089 59.11089 59.11089 54.58486 50.91668 59.11089 59.11089 0.000000 588.1592 554.3599 638.1808 685.9684 751.0042 59.44847 59.44847 59.44847 54.70038 50.97203 59.44847 59.44847 0.000000 609.1329 562.4204 648.2309 698.6556 765.6302 59.65482 59.65482 59.65482 54.81112 51.02063 59.65482 59.65482 0.000000 630.8464 570.5090 660.1835 713.2134 784.4964 59.91845 59.91845 59.91845 54.91727 51.06986 59.91845 59.91845 0.000000 653.3328 576.6803 670.3298 727.9849 791.8634 60.17677 60.17677 60.17677 55.14476 51.06019 60.17677 60.17677 0.000000 676.6293 584.7878 682.4881 741.0939 806.8439 60.49441 60.49441 60.49441 55.24254 51.10219 60.49441 60.49441 0.000000 703.3776 592.9295 692.7422 754.3214 821.9734 60.67823 60.67823 60.67823 55.33621 51.14147 60.67823 60.67823 0.000000 728.5501 598.9986 703.0303 769.6655 839.5517 60.98693 60.98693 60.98693 55.48944 51.17815 60.98693 60.98693 0.000000 754.6591 607.1660 715.4973 785.2541 857.4316 61.16056 61.16056 61.16056 55.63924 51.26627 61.16056 61.16056 0.000000 778.7057 615.3730 725.9086 789.2347 873.1765 61.46090 61.46090 61.46090 55.72167 51.29805 61.46090 61.46090 0.000000 806.6662 621.3802 736.3605 805.0018 889.0939 61.75776 61.75776 61.75776 55.92901 51.32748 61.75776 61.75776 0.000000 835.7001 629.6219 749.1613 818.8207 907.7855 61.91748 61.91748 61.91748 56.00462 51.35465 61.91748 61.91748 0.000000 76.38052 196.6922 192.4483 183.9895 185.0770 56.03678 56.03678 56.03678 55.76551 55.92314 56.03678 56.03678 0.000000 125.5795 271.1508 255.8118 234.5652 236.3627 51.89157 51.89157 51.89157 52.12649 53.51003 51.89157 51.89157 0.000000 138.3040 285.8257 270.8573 251.2574 253.8939 50.84191 50.84191 50.84191 51.08421 52.46035 50.84191 50.84191 0.000000 144.8444 295.7720 282.6543 265.2458 268.9203 50.46712 50.46712 50.46712 50.63554 51.82354 50.46712 50.46712 0.000000 150.6517 304.3200 293.2611 278.1725 282.9378 50.36805 50.36805 50.36805 50.43822 51.41945 50.36805 50.36805 0.000000 156.4378 312.4846 303.4838 290.7796 296.6108 50.38686 50.38686 50.38686 50.34937 51.14832 50.38686 50.38686 0.000000 162.2307 320.6362 313.6511 303.0901 309.9826 50.55338 50.55338 50.55338 50.37247 50.93958 50.55338 50.55338 0.000000 167.9586 328.2111 323.2523 315.0709 323.2629 50.72070 50.72070 50.72070 50.39064 50.76060 50.72070 50.72070 0.000000 174.0340 335.4675 332.8744 326.8846 336.4339 50.96870 50.96870 50.96870 50.47959 50.68472 50.96870 50.96870 0.000000 183.0512 343.0034 342.5120 338.8339 349.2848 51.17492 51.17492 51.17492 50.60460 50.56142 51.17492 51.17492 0.000000 190.8470 350.2394 352.0641 350.6545 362.5791 51.45315 51.45315 51.45315 50.67139 50.50422 51.45315 51.45315 0.000000 198.5786 357.2845 361.6845 362.5043 375.9946 51.76943 51.76943 51.76943 50.79825 50.46709 51.76943 51.76943 0.000000 206.8214 364.2346 370.8055 374.5352 389.0401 52.03022 52.03022 52.03022 50.93784 50.40174 52.03022 52.03022 0.000000 215.4941 371.6248 380.2014 386.2419 397.2097 52.29493 52.29493 52.29493 51.03936 50.36455 52.29493 52.29493 0.000000 224.2502 378.6469 389.9989 392.7143 408.3773 52.62011 52.62011 52.62011 51.22058 50.35568 52.62011 52.62011 0.000000 233.5537 385.3243 399.5118 405.1516 421.8320 52.85728 52.85728 52.85728 51.37409 50.33081 52.85728 52.85728 0.000000 243.5145 392.6755 408.7590 414.2169 435.1848 53.16665 53.16665 53.16665 51.50363 50.34153 53.16665 53.16665 0.000000 253.1689 399.2665 418.6326 426.3440 445.4427 53.44691 53.44691 53.44691 51.60984 50.33715 53.44691 53.44691 0.000000 263.5479 405.5982 428.3369 439.1956 459.3916 53.75438 53.75438 53.75438 51.80966 50.37159 53.75438 53.75438 0.000000 274.7944 413.3195 437.8854 448.1965 473.3790 54.03715 54.03715 54.03715 51.93094 50.39367 54.03715 54.03715 0.000000 285.7333 419.7726 447.2873 460.0906 487.4197 54.35407 54.35407 54.35407 52.09628 50.40258 54.35407 54.35407 0.000000 296.9417 426.0260 457.5722 472.8554 497.8851 54.65147 54.65147 54.65147 52.18856 50.40255 54.65147 54.65147 0.000000 309.1873 433.2813 466.7413 484.7392 510.9124 54.93069 54.93069 54.93069 52.38254 50.44411 54.93069 54.93069 0.000000 321.8317 440.4191 476.8841 496.3351 525.0138 55.19289 55.19289 55.19289 52.56400 50.47853 55.19289 55.19289 0.000000 334.8961 447.4430 486.9854 505.7925 539.2205 55.55065 55.55065 55.55065 52.67505 50.50482 55.55065 55.55065 0.000000 348.4217 453.0703 497.0514 518.6546 554.7184 55.78222 55.78222 55.78222 52.83360 50.52351 55.78222 55.78222 0.000000 361.4412 459.8537 507.0860 530.5239 563.5105 56.11456 56.11456 56.11456 52.98187 50.53513 56.11456 56.11456 0.000000 376.8667 466.5403 517.0988 544.6927 579.2071 56.31923 56.31923 56.31923 53.11684 50.54013 56.31923 56.31923 0.000000 391.8512 473.1339 527.0893 556.7006 592.5321 56.62775 56.62775 56.62775 53.24610 50.59176 56.62775 56.62775 0.000000 407.3793 481.0613 537.0662 565.4673 608.6440 56.92575 56.92575 56.92575 53.42670 50.63763 56.92575 56.92575 0.000000 422.2805 487.5124 547.0324 577.4789 623.6104 57.21375 57.21375 57.21375 53.59966 50.67806 57.21375 57.21375 0.000000 440.2046 493.8808 558.4202 590.8441 638.7557 57.49223 57.49223 57.49223 53.70481 50.71334 57.49223 57.49223 0.000000 456.1758 500.1688 568.4190 604.3622 655.6310 57.76161 57.76161 57.76161 53.86332 50.74238 57.76161 57.76161 0.000000 474.1025 507.9390 578.4188 618.0375 663.7667 58.02232 58.02232 58.02232 53.95429 50.77013 58.02232 58.02232 0.000000 492.7284 514.1089 589.9893 630.4262 677.6855 58.27472 58.27472 58.27472 54.09972 50.84326 58.27472 58.27472 0.000000 510.4676 520.2051 600.0427 644.3907 695.0873 58.64204 58.64204 58.64204 54.29892 50.86062 58.64204 58.64204 0.000000 532.2308 527.8928 610.1094 656.7894 709.3209 58.87961 58.87961 58.87961 54.43497 50.87266 58.87961 58.87961 0.000000 551.3756 533.8835 621.8976 665.3914 725.4805 59.10983 59.10983 59.10983 54.56204 50.93713 59.10983 59.10983 0.000000 571.1658 551.2762 632.0406 678.0595 741.8821 59.45845 59.45845 59.45845 54.74750 50.99687 59.45845 59.45845 0.000000 591.6414 557.5936 642.2036 692.5067 758.5377 59.67551 59.67551 59.67551 54.86586 50.99739 59.67551 59.67551 0.000000 614.9690 565.7612 654.2405 707.1660 775.4546 59.94956 59.94956 59.94956 54.97937 51.05149 59.94956 59.94956 0.000000 639.2892 573.9879 666.4063 720.2368 787.5632 60.21805 60.21805 60.21805 55.08821 51.09968 60.21805 60.21805 0.000000 662.2593 580.2211 676.7397 735.2731 800.1899 60.48116 60.48116 60.48116 55.31895 51.09252 60.48116 60.48116 0.000000 686.0646 588.4388 687.1042 750.5446 817.6519 60.73907 60.73907 60.73907 55.41932 51.13620 60.73907 60.73907 0.000000 710.7459 596.6922 699.5677 764.0715 833.1399 61.05732 61.05732 61.05732 55.51552 51.17714 61.05732 61.05732 0.000000 736.3434 604.9832 710.0501 777.7228 848.7885 61.24004 61.24004 61.24004 55.73552 51.21542 61.24004 61.24004 0.000000 762.9011 613.3138 720.5707 787.0789 867.0127 61.54952 61.54952 61.54952 55.82409 51.30519 61.54952 61.54952 0.000000 790.4594 619.4557 733.3611 797.7070 885.5620 61.85534 61.85534 61.85534 55.97328 51.33853 61.85534 61.85534 0.000000 819.0786 627.8207 746.3062 813.7731 901.8683 62.02350 62.02350 62.02350 56.11922 51.36949 62.02350 62.02350 0.000000 848.8069 636.2327 757.0593 827.8608 921.0176 62.32138 62.32138 62.32138 56.19711 51.45243 62.32138 62.32138 0.000000 76.38060 196.6921 192.4484 183.9899 185.1013 56.03833 56.03833 56.03833 55.76797 55.92431 56.03833 56.03833 0.000000 125.5902 271.2086 255.8688 234.6350 236.4368 51.86813 51.86813 51.86813 52.10343 53.53019 51.86813 51.86813 0.000000 138.3349 285.9533 270.9864 251.2741 254.0560 50.84195 50.84195 50.84195 51.08604 52.43954 50.84195 50.84195 0.000000 144.8971 295.6913 282.6530 265.4857 269.1740 50.43727 50.43727 50.43727 50.65310 51.81594 50.43727 50.43727 0.000000 150.7276 304.5923 293.5397 278.5008 283.2856 50.35417 50.35417 50.35417 50.47450 51.42269 50.35417 50.35417 0.000000 156.4202 312.8291 303.8388 291.0098 297.0561 50.43566 50.43566 50.43566 50.34285 51.10703 50.43566 50.43566 0.000000 162.2307 320.7158 313.8275 303.3975 310.5283 50.56568 50.56568 50.56568 50.37713 50.90670 50.56568 50.56568 0.000000 168.1109 328.3456 323.4908 315.6793 323.9128 50.74447 50.74447 50.74447 50.40517 50.73514 50.74447 50.74447 0.000000 174.2140 336.0281 333.4658 327.5912 337.1914 51.00291 51.00291 51.00291 50.50094 50.66591 51.00291 51.00291 0.000000 183.2791 343.2485 343.1848 339.6423 350.1526 51.21854 51.21854 51.21854 50.58089 50.54869 51.21854 51.21854 0.000000 190.9423 350.5399 352.8196 351.5669 363.5634 51.50592 51.50592 51.50592 50.71022 50.49704 51.50592 51.50592 0.000000 198.8836 358.0617 362.1859 363.5255 377.1005 51.83081 51.83081 51.83081 50.84403 50.41246 51.83081 51.83081 0.000000 207.1692 365.0829 371.7294 375.6692 390.2702 52.09965 52.09965 52.09965 50.98787 50.40450 52.09965 52.09965 0.000000 215.8879 372.5482 381.2124 387.4907 398.4786 52.37204 52.37204 52.37204 51.09781 50.37179 52.37204 52.37204 0.000000 224.6926 379.6435 391.0995 394.6520 409.7590 52.70459 52.70459 52.70459 51.28531 50.36717 52.70459 52.70459 0.000000 234.0485 386.3928 400.7023 406.5401 423.3370 52.94874 52.94874 52.94874 51.38934 50.34628 52.94874 52.94874 0.000000 244.0663 393.3175 410.0393 416.4312 436.8152 53.26501 53.26501 53.26501 51.57856 50.36079 53.26501 53.26501 0.000000 253.7785 399.9655 420.0081 428.7112 448.0077 53.55187 53.55187 53.55187 51.68969 50.36001 53.55187 53.55187 0.000000 264.2210 406.8847 429.8091 440.9233 461.2710 53.86581 53.86581 53.86581 51.89447 50.34543 53.86581 53.86581 0.000000 275.5371 414.1363 439.4542 450.0294 475.3967 54.15495 54.15495 54.15495 52.02041 50.36909 54.15495 54.15495 0.000000 286.5473 421.2120 448.9532 462.9126 490.5371 54.47803 54.47803 54.47803 52.13248 50.38254 54.47803 54.47803 0.000000 298.5371 427.5386 459.3431 474.9388 500.1703 54.78139 54.78139 54.78139 52.28671 50.43811 54.78139 54.78139 0.000000 310.9123 434.8727 468.6100 487.8968 514.3729 55.06636 55.06636 55.06636 52.48501 50.43002 55.06636 55.06636 0.000000 322.8910 442.0875 478.8595 496.3137 528.6738 55.33263 55.33263 55.33263 52.61202 50.46720 55.33263 55.33263 0.000000 336.9029 447.9252 489.0688 509.2637 543.0847 55.69748 55.69748 55.69748 52.78551 50.49615 55.69748 55.69748 0.000000 349.6728 454.8879 499.2442 521.2474 558.8078 55.93425 55.93425 55.93425 52.94792 50.51743 55.93425 55.93425 0.000000 363.7546 461.7490 509.3904 534.3541 568.9755 56.27210 56.27210 56.27210 53.09994 50.58437 56.27210 56.27210 0.000000 378.3330 468.5129 519.5129 547.5747 582.4064 56.59810 56.59810 56.59810 53.23833 50.59180 56.59810 56.59810 0.000000 394.5265 476.5844 529.6183 560.9183 598.5461 56.79542 56.79542 56.79542 53.37107 50.64586 56.79542 56.79542 0.000000 409.0872 483.1986 541.0657 569.8390 613.5728 57.09854 57.09854 57.09854 53.55527 50.69408 57.09854 57.09854 0.000000 425.3384 489.7266 551.1904 582.0377 628.7744 57.39155 57.39155 57.39155 53.73174 50.68371 57.39155 57.39155 0.000000 442.1843 496.1704 561.3101 595.6105 644.1608 57.67492 57.67492 57.67492 53.84006 50.71970 57.67492 57.67492 0.000000 459.6733 502.5366 572.9191 609.3411 656.2976 57.94909 57.94909 57.94909 54.00188 50.75418 57.94909 57.94909 0.000000 477.8396 510.3951 583.0835 621.8130 669.6030 58.27539 58.27539 58.27539 54.15705 50.83379 58.27539 58.27539 0.000000 496.7193 516.6413 593.2542 637.2996 685.4120 58.59419 58.59419 58.59419 54.24329 50.85732 58.59419 58.59419 0.000000 516.3514 522.8130 605.0656 650.0160 699.7231 58.84391 58.84391 58.84391 54.44906 50.87529 58.84391 58.84391 0.000000 535.0317 530.5898 615.3036 657.0518 717.7079 59.08589 59.08589 59.08589 54.58456 50.94587 59.08589 59.08589 0.000000 556.1990 536.6562 625.5577 671.3945 732.3599 59.44585 59.44585 59.44585 54.77824 50.95573 59.44585 59.44585 0.000000 578.2297 554.3440 637.6075 685.9376 750.9688 59.67396 59.67396 59.67396 54.90451 51.01653 59.67396 59.67396 0.000000 599.1177 562.6353 647.9486 698.9724 765.9948 59.95875 59.95875 59.95875 55.02566 51.02063 59.95875 59.95875 0.000000 620.7447 570.9554 660.1934 713.8834 785.2716 60.23768 60.23768 60.23768 55.14189 51.07505 60.23768 60.23768 0.000000 643.1456 577.3558 670.6343 729.0145 793.0391 60.51096 60.51096 60.51096 55.31664 51.12635 60.51096 60.51096 0.000000 668.7725 585.6955 683.0913 742.4844 808.4334 60.77880 60.77880 60.77880 55.48732 51.17464 60.77880 60.77880 0.000000 695.5219 594.0706 693.6443 758.0249 826.2151 61.10679 61.10679 61.10679 55.59024 51.22004 61.10679 61.10679 0.000000 720.7435 600.3666 704.2330 773.8130 844.3075 61.29886 61.29886 61.29886 55.75293 51.26266 61.29886 61.29886 0.000000 746.9090 608.7687 717.0081 787.7720 860.3199 61.61767 61.61767 61.61767 55.91198 51.30260 61.61767 61.61767 0.000000 774.0598 617.2117 729.9374 794.1916 878.9703 61.86588 61.86588 61.86588 56.00294 51.33995 61.86588 61.86588 0.000000 799.0970 625.6978 740.7499 808.2546 897.9610 62.10948 62.10948 62.10948 56.21961 51.37481 62.10948 62.10948 0.000000 828.2119 634.2313 751.6080 822.4616 914.6597 62.41612 62.41612 62.41612 56.30333 51.40727 62.41612 62.41612 0.000000 854.9808 640.4498 764.8956 839.1100 931.5518 62.71930 62.71930 62.71930 56.44868 51.49174 62.71930 62.71930 0.000000 76.38066 196.7001 192.4583 184.0015 185.1019 56.03981 56.03981 56.03981 55.77035 55.92544 56.03981 56.03981 0.000000 125.6005 271.2642 255.9236 234.5895 236.5081 51.89479 51.89479 51.89479 52.07938 53.49174 51.89479 51.89479 0.000000 138.3646 285.8192 270.9265 251.4218 254.0719 50.79122 50.79122 50.79122 51.08631 52.41779 50.79122 50.79122 0.000000 144.9477 295.8840 282.8483 265.5613 269.2580 50.45417 50.45417 50.45417 50.61639 51.80712 50.45417 50.45417 0.000000 150.8005 304.8553 293.5853 278.8176 283.6212 50.33795 50.33795 50.33795 50.45414 51.37028 50.33795 50.33795 0.000000 156.5166 313.1619 304.1815 291.4143 297.2886 50.43310 50.43310 50.43310 50.38850 51.11789 50.43310 50.43310 0.000000 162.2257 320.7805 313.9883 303.6861 310.8402 50.57463 50.57463 50.57463 50.37908 50.87211 50.57463 50.57463 0.000000 168.2576 328.8177 323.9843 315.8229 324.0739 50.81427 50.81427 50.81427 50.41679 50.76091 50.81427 50.81427 0.000000 174.1027 336.5706 334.0377 328.2744 337.4202 51.03366 51.03366 51.03366 50.52113 50.64510 51.03366 51.03366 0.000000 183.4988 343.8603 343.5291 340.1693 350.9925 51.25848 51.25848 51.25848 50.60901 50.53385 51.25848 51.25848 0.000000 191.1979 351.2217 353.2277 352.4515 364.5172 51.55481 51.55481 51.55481 50.74568 50.48766 51.55481 51.55481 0.000000 199.1778 358.3926 362.6587 364.5156 378.1728 51.88787 51.88787 51.88787 50.88631 50.40813 51.88787 51.88787 0.000000 207.5047 365.9060 372.6245 376.7692 391.4634 52.16486 52.16486 52.16486 51.03807 50.40487 52.16486 52.16486 0.000000 216.2679 372.5338 382.1915 388.7020 399.7090 52.44364 52.44364 52.44364 51.15253 50.37374 52.44364 52.44364 0.000000 225.5692 379.6676 392.1665 395.8929 411.0995 52.78453 52.78453 52.78453 51.34723 50.37613 52.78453 52.78453 0.000000 234.5262 387.4296 401.8572 405.9873 424.7975 53.03552 53.03552 53.03552 51.45357 50.35915 53.03552 53.03552 0.000000 244.5992 393.9222 411.2822 417.8817 439.1926 53.35855 53.35855 53.35855 51.64948 50.37739 53.35855 53.35855 0.000000 254.9161 401.1442 421.3438 430.2747 449.7068 53.65188 53.65188 53.65188 51.76545 50.38014 53.65188 53.65188 0.000000 265.4571 408.1364 431.2390 443.4094 463.9682 54.02533 54.02533 54.02533 51.91447 50.36892 54.02533 54.02533 0.000000 276.2550 414.9094 440.9777 452.6459 478.2752 54.26754 54.26754 54.26754 52.04797 50.39561 54.26754 54.26754 0.000000 287.3345 422.6129 450.5716 464.8178 492.6429 54.59668 54.59668 54.59668 52.22197 50.41214 54.59668 54.59668 0.000000 299.4001 429.0090 461.0621 476.9644 502.3926 54.90588 54.90588 54.90588 52.38044 50.46923 54.90588 54.90588 0.000000 311.8557 436.4201 471.5015 491.0113 517.7869 55.19648 55.19648 55.19648 52.52453 50.46552 55.19648 55.19648 0.000000 324.7225 443.7116 480.7801 499.5603 532.2853 55.52459 55.52459 55.52459 52.71391 50.50548 55.52459 55.52459 0.000000 338.0223 449.6176 491.0949 511.6587 546.8983 55.83854 55.83854 55.83854 52.89133 50.53710 55.83854 55.83854 0.000000 351.7982 456.6564 501.3760 524.8421 562.8428 56.13797 56.13797 56.13797 52.99828 50.56095 56.13797 56.13797 0.000000 366.0395 463.5934 511.6304 538.1344 571.9400 56.42369 56.42369 56.42369 53.20949 50.57754 56.42369 56.42369 0.000000 380.7868 470.4330 523.1463 551.5450 586.8100 56.75496 56.75496 56.75496 53.35500 50.64026 56.75496 56.75496 0.000000 396.0671 478.5898 533.4039 564.5857 601.8390 57.07488 57.07488 57.07488 53.49117 50.64370 57.07488 57.07488 0.000000 413.0805 485.2796 543.6505 572.9145 618.4421 57.32450 57.32450 57.32450 53.67891 50.69415 57.32450 57.32450 0.000000 428.3604 491.8830 553.8896 586.5407 633.8771 57.62289 57.62289 57.62289 53.85881 50.73904 57.62289 57.62289 0.000000 445.4182 498.4022 564.1251 600.3196 649.5018 57.97195 57.97195 57.97195 53.97025 50.77864 57.97195 57.97195 0.000000 463.1316 504.8432 575.8635 614.2610 659.5275 58.25171 58.25171 58.25171 54.13533 50.81232 58.25171 58.25171 0.000000 481.5355 512.7883 586.1472 628.3701 675.3737 58.52255 58.52255 58.52255 54.29195 50.84230 58.52255 58.52255 0.000000 500.6668 519.1073 598.0397 642.6570 691.4385 58.78487 58.78487 58.78487 54.44601 50.86643 58.78487 58.78487 0.000000 520.5656 527.0103 608.3878 657.1262 707.7349 59.03901 59.03901 59.03901 54.59034 50.94282 59.03901 59.03901 0.000000 541.2723 533.2189 620.4492 664.3300 724.2663 59.41063 59.41063 59.41063 54.73021 50.95854 59.41063 59.41063 0.000000 560.9720 550.7925 630.8754 677.3320 741.0460 59.65017 59.65017 59.65017 54.92702 51.02486 59.65017 59.65017 0.000000 581.3448 557.3381 641.3224 692.1146 758.0863 59.94600 59.94600 59.94600 55.05610 51.03420 59.94600 59.94600 0.000000 604.5140 565.7319 653.6417 707.1147 775.3955 60.23568 60.23568 60.23568 55.17999 51.09374 60.23568 60.23568 0.000000 628.6715 574.1858 666.0936 720.5311 786.4891 60.51942 60.51942 60.51942 55.29890 51.14998 60.51942 60.51942 0.000000 651.5316 580.6446 676.7169 735.9191 800.9279 60.79744 60.79744 60.79744 55.54018 51.20305 60.79744 60.79744 0.000000 675.2255 589.0901 687.3728 751.5491 818.8007 61.06994 61.06994 61.06994 55.65007 51.25307 61.06994 61.06994 0.000000 699.7930 597.5724 700.1319 765.4354 834.7024 61.33711 61.33711 61.33711 55.75550 51.30017 61.33711 61.33711 0.000000 725.2774 606.0935 710.9102 781.4969 853.1192 61.66544 61.66544 61.66544 55.92094 51.34445 61.66544 61.66544 0.000000 754.6065 614.6555 723.9091 788.1050 871.8613 61.85616 61.85616 61.85616 56.08268 51.38601 61.85616 61.85616 0.000000 779.1625 621.0214 734.8250 804.4238 888.4227 62.17550 62.17550 62.17550 56.17600 51.42495 62.17550 62.17550 0.000000 807.6644 629.6193 748.0814 818.8049 907.7672 62.49108 62.49108 62.49108 56.39558 51.46136 62.49108 62.49108 0.000000 837.2741 638.2636 759.1409 833.3385 927.4680 62.73487 62.73487 62.73487 56.48156 51.49262 62.73487 62.73487 0.000000 868.0455 646.9589 770.2497 848.0264 944.7631 62.97426 62.97426 62.97426 56.69510 51.52431 62.97426 62.97426 0.000000 76.38073 196.7001 192.4584 184.0131 185.1023 56.04125 56.04125 56.04125 55.77263 55.92653 56.04125 56.04125 0.000000 125.6103 271.3178 255.9763 234.6540 236.5768 51.86961 51.86961 51.86961 52.05439 53.45276 51.86961 51.86961 0.000000 138.3931 285.9371 271.0461 251.4277 254.2222 50.78835 50.78835 50.78835 51.02923 52.39514 50.78835 50.78835 0.000000 144.9963 296.0700 283.0371 265.6286 269.4937 50.42052 50.42052 50.42052 50.63297 51.79714 50.42052 50.42052 0.000000 150.8707 304.8073 293.8443 278.9503 283.7657 50.36810 50.36810 50.36810 50.42884 51.37071 50.36810 50.36810 0.000000 156.4914 313.1628 304.2716 291.8053 297.5060 50.42798 50.42798 50.42798 50.37709 51.07350 50.42798 50.42798 0.000000 162.3422 321.1690 314.3910 304.1645 311.1336 50.58242 50.58242 50.58242 50.37842 50.88918 50.58242 50.58242 0.000000 168.3989 328.9186 324.4618 316.3909 324.6807 50.83175 50.83175 50.83175 50.42562 50.73176 50.83175 50.83175 0.000000 174.2693 336.7223 334.3001 328.4571 338.1283 51.06110 51.06110 51.06110 50.53838 50.62239 51.06110 51.06110 0.000000 183.7107 344.4530 343.8511 340.6696 351.8069 51.29491 51.29491 51.29491 50.63404 50.51598 51.29491 51.29491 0.000000 191.4446 351.8825 353.6111 353.0350 365.4421 51.59999 51.59999 51.59999 50.77791 50.47617 51.59999 51.59999 0.000000 199.4617 358.6983 363.4443 365.4760 379.2125 51.94090 51.94090 51.94090 50.92524 50.40161 51.94090 51.94090 0.000000 207.8287 366.2645 373.4924 377.8368 392.6223 52.22601 52.22601 52.22601 51.08479 50.40297 52.22601 52.22601 0.000000 216.6349 373.3987 383.1413 389.8792 401.5838 52.51204 52.51204 52.51204 51.20227 50.37619 52.51204 52.51204 0.000000 225.9830 380.6017 393.2018 397.0983 412.4008 52.86012 52.86012 52.86012 51.34531 50.33022 52.86012 52.86012 0.000000 235.4703 387.9454 402.9774 407.4058 426.2160 53.11781 53.11781 53.11781 51.51547 50.36953 53.11781 53.11781 0.000000 245.1143 394.9963 412.4889 419.2908 440.7349 53.44748 53.44748 53.44748 51.65953 50.39143 53.44748 53.44748 0.000000 255.4875 402.2895 422.6410 431.7940 452.1923 53.74715 53.74715 53.74715 51.83726 50.39765 53.74715 53.74715 0.000000 266.0883 409.3521 432.6274 445.0456 465.7488 54.12711 54.12711 54.12711 51.99100 50.38813 54.12711 54.12711 0.000000 276.9496 416.1953 442.4582 454.3832 480.1881 54.43000 54.43000 54.43000 52.12893 50.41941 54.43000 54.43000 0.000000 288.7661 423.9731 452.1435 466.6709 495.6664 54.71022 54.71022 54.71022 52.30728 50.43897 54.71022 54.71022 0.000000 300.9508 430.4392 462.7351 479.8578 505.5608 55.02514 55.02514 55.02514 52.46993 50.44639 55.02514 55.02514 0.000000 312.7692 437.9255 473.2748 493.1150 520.0983 55.31981 55.31981 55.31981 52.61802 50.44548 55.31981 55.31981 0.000000 326.5325 445.2920 483.7715 501.7682 535.8511 55.71162 55.71162 55.71162 52.81141 50.48809 55.71162 55.71162 0.000000 339.1229 451.2649 493.0664 515.0283 550.6644 55.97407 55.97407 55.97407 52.99271 50.52228 55.97407 55.97407 0.000000 353.8990 458.3781 504.6595 528.3916 564.0647 56.33659 56.33659 56.33659 53.09951 50.54861 56.33659 56.33659 0.000000 367.3167 465.3893 515.0613 541.8679 576.0771 56.56953 56.56953 56.56953 53.31803 50.62049 56.56953 56.56953 0.000000 383.2128 472.3030 525.4437 555.4667 591.1612 56.90599 56.90599 56.90599 53.46703 50.63264 56.90599 56.90599 0.000000 398.6699 480.5433 535.8115 563.4881 607.7753 57.23097 57.23097 57.23097 53.60658 50.69135 57.23097 57.23097 0.000000 414.6989 487.3071 546.1687 577.1653 623.2556 57.54504 57.54504 57.54504 53.79778 50.69098 57.54504 57.54504 0.000000 431.3496 493.9843 557.9463 590.9911 638.9223 57.84874 57.84874 57.84874 53.98106 50.79059 57.84874 57.84874 0.000000 448.6175 500.5772 568.3391 604.9763 656.3294 58.14256 58.14256 58.14256 54.15681 50.77873 58.14256 58.14256 0.000000 466.5534 508.6522 578.7340 619.1253 664.9887 58.42695 58.42695 58.42695 54.26203 50.86875 58.42695 58.42695 0.000000 485.1930 515.1213 590.7018 633.4490 681.0826 58.70233 58.70233 58.70233 54.42567 50.84600 58.70233 58.70233 0.000000 504.5741 521.5131 601.1570 647.9554 697.4032 59.03119 59.03119 59.03119 54.57925 50.92792 59.03119 59.03119 0.000000 524.7377 529.5015 613.2944 656.1056 713.9591 59.35270 59.35270 59.35270 54.79030 50.95031 59.35270 59.35270 0.000000 543.9379 535.7830 623.8231 669.9952 730.7584 59.60406 59.60406 59.60406 54.93331 51.02233 59.60406 59.60406 0.000000 565.6989 553.6322 636.1448 684.8621 749.7314 59.97489 59.97489 59.97489 55.07062 51.03719 59.97489 59.97489 0.000000 588.3591 562.1459 646.7653 698.2285 765.1385 60.21202 60.21202 60.21202 55.20246 51.10203 60.21202 60.21202 0.000000 609.8604 570.6891 657.4116 713.4727 784.7965 60.50652 60.50652 60.50652 55.32905 51.16339 60.50652 60.50652 0.000000 632.1331 577.3135 670.0103 728.9428 792.9574 60.79501 60.79501 60.79501 55.51419 51.22141 60.79501 60.79501 0.000000 657.5698 585.8770 682.7498 742.7569 808.7450 61.07770 61.07770 61.07770 55.69499 51.22224 61.07770 61.07770 0.000000 684.1229 594.4767 693.5896 758.6479 826.9280 61.35480 61.35480 61.35480 55.80740 51.27388 61.35480 61.35480 0.000000 709.2050 600.9949 704.4666 774.7928 845.4304 61.69286 61.69286 61.69286 55.97971 51.32256 61.69286 61.69286 0.000000 735.2299 609.6226 717.5328 788.5522 861.8559 61.89299 61.89299 61.89299 56.14814 51.36840 61.89299 61.89299 0.000000 762.2427 618.2927 730.7603 795.8765 883.4185 62.22164 62.22164 62.22164 56.24784 51.41148 62.22164 62.22164 0.000000 790.2858 627.0071 741.8692 810.3041 900.3611 62.54634 62.54634 62.54634 56.40862 51.45192 62.54634 62.54634 0.000000 819.4215 635.7703 753.0258 827.1173 917.4956 62.73083 62.73083 62.73083 56.56591 51.54152 62.73083 62.73083 0.000000 849.6998 642.2104 766.6204 844.2269 940.3024 63.04700 63.04700 63.04700 56.71727 51.57707 63.04700 63.04700 0.000000 881.1755 651.0638 780.3928 859.2462 958.0040 63.35962 63.35962 63.35962 56.86775 51.61024 63.35962 63.35962 0.000000 76.38079 196.7081 192.4586 184.0135 185.1147 56.04263 56.04263 56.04263 55.77484 55.92757 56.04263 56.04263 0.000000 125.6198 271.3694 256.0271 234.7162 236.5272 51.84366 51.84366 51.84366 52.02850 53.47118 51.84366 51.84366 0.000000 138.4206 286.0512 271.1615 251.5649 254.3673 50.78414 50.78414 50.78414 51.02662 52.37164 50.78414 50.78414 0.000000 145.0432 295.9680 283.0141 265.8436 269.5603 50.43377 50.43377 50.43377 50.59267 51.73118 50.43377 50.43377 0.000000 150.8282 305.0522 294.0946 279.0723 283.8989 50.34752 50.34752 50.34752 50.40303 51.31572 50.34752 50.34752 0.000000 156.5808 313.4733 304.3501 291.9931 297.9065 50.46916 50.46916 50.46916 50.36341 51.08134 50.46916 50.46916 0.000000 162.4545 321.5451 314.7813 304.6277 311.6264 50.63460 50.63460 50.63460 50.37529 50.85133 50.63460 50.63460 0.000000 168.5352 329.3603 324.6490 316.9411 325.2684 50.84530 50.84530 50.84530 50.43179 50.70092 50.84530 50.84530 0.000000 174.4301 336.8564 334.5438 329.0971 338.8147 51.08537 51.08537 51.08537 50.55280 50.59786 51.08537 51.08537 0.000000 183.9153 344.6363 344.4598 341.4031 352.5968 51.37815 51.37815 51.37815 50.65610 50.49842 51.37815 51.37815 0.000000 191.6828 352.1154 354.2955 353.5912 366.3396 51.64162 51.64162 51.64162 50.80704 50.46265 51.64162 51.64162 0.000000 199.7361 359.4037 364.2062 366.4083 380.2229 51.99058 51.99058 51.99058 50.96094 50.39298 51.99058 51.99058 0.000000 208.5362 366.5972 374.3343 378.8728 393.7467 52.28328 52.28328 52.28328 51.12483 50.39887 52.28328 52.28328 0.000000 216.9897 374.2386 384.0631 391.0219 402.7466 52.62852 52.62852 52.62852 51.25127 50.37639 52.62852 52.62852 0.000000 226.3832 381.5090 393.8120 398.2691 413.6650 52.93152 52.93152 52.93152 51.39990 50.33441 52.93152 52.93152 0.000000 235.9183 388.4307 404.0659 408.6733 428.3554 53.24886 53.24886 53.24886 51.57376 50.37752 53.24886 53.24886 0.000000 245.6127 396.0402 413.6612 421.4001 443.0409 53.53196 53.53196 53.53196 51.72276 50.35052 53.53196 53.53196 0.000000 256.0403 403.4031 423.9014 434.0498 453.8031 53.89190 53.89190 53.89190 51.90528 50.36015 53.89190 53.89190 0.000000 266.6993 410.5343 433.9762 445.2740 468.3664 54.22420 54.22420 54.22420 52.06367 50.40619 54.22420 54.22420 0.000000 278.2534 417.4461 443.8976 456.0734 482.9825 54.53297 54.53297 54.53297 52.20594 50.38798 54.53297 54.53297 0.000000 289.5063 425.2978 454.6848 469.3629 496.1130 54.87437 54.87437 54.87437 52.38857 50.46164 54.87437 54.87437 0.000000 301.7628 431.8311 464.3628 482.7145 508.6896 55.19542 55.19542 55.19542 52.55533 50.47348 55.19542 55.19542 0.000000 314.4207 439.3910 475.0005 496.1400 523.4155 55.55247 55.55247 55.55247 52.70736 50.47530 55.55247 55.55247 0.000000 327.5016 446.8308 485.5971 504.9225 538.2523 55.83673 55.83673 55.83673 52.90469 50.52059 55.83673 55.83673 0.000000 341.0451 452.8691 496.1580 518.3569 554.3857 56.10427 56.10427 56.10427 53.08979 50.55736 56.10427 56.10427 0.000000 355.0457 460.0551 506.6892 530.8031 563.8201 56.47213 56.47213 56.47213 53.25957 50.58617 56.47213 56.47213 0.000000 370.5328 467.1390 517.1960 545.5572 580.1667 56.82702 56.82702 56.82702 53.42215 50.60757 56.82702 56.82702 0.000000 384.5589 475.5205 527.6830 559.3444 595.4630 57.05140 57.05140 57.05140 53.57458 50.67498 57.05140 57.05140 0.000000 401.2453 482.4471 538.1578 567.4973 610.9309 57.38135 57.38135 57.38135 53.71745 50.73600 57.38135 57.38135 0.000000 417.4602 489.2834 550.0164 581.3679 628.0163 57.70028 57.70028 57.70028 53.91207 50.73702 57.70028 57.70028 0.000000 434.3081 496.0314 560.5212 595.3920 643.9132 58.00873 58.00873 58.00873 54.09867 50.78599 58.00873 58.00873 0.000000 451.7844 502.6982 571.0258 609.5801 656.0716 58.30720 58.30720 58.30720 54.27765 50.82989 58.30720 58.30720 0.000000 469.9411 510.8560 583.0678 623.9372 670.3932 58.65765 58.65765 58.65765 54.44900 50.86868 58.65765 58.65765 0.000000 488.8147 517.3970 593.6286 638.4741 686.7335 58.99998 58.99998 58.99998 54.61317 50.90106 58.99998 58.99998 0.000000 508.4445 525.5096 605.8352 653.1971 703.3073 59.27195 59.27195 59.27195 54.77136 50.98581 59.27195 59.27195 0.000000 528.8705 531.9321 616.4686 660.7155 720.1224 59.53554 59.53554 59.53554 54.92325 51.00887 59.53554 59.53554 0.000000 550.1363 549.6365 628.8571 675.6035 739.0594 59.91802 59.91802 59.91802 55.06912 51.02951 59.91802 59.91802 0.000000 570.3832 556.4060 639.5772 689.0253 754.5177 60.16664 60.16664 60.16664 55.20921 51.09986 60.16664 60.16664 0.000000 591.3309 565.0180 652.1639 706.0240 774.1393 60.47221 60.47221 60.47221 55.34377 51.16654 60.47221 60.47221 0.000000 617.3090 573.6904 662.9850 719.7702 787.8104 60.77147 60.77147 60.77147 55.53665 51.17579 60.77147 60.77147 0.000000 640.0184 580.3704 675.7881 735.4897 800.4374 61.13010 61.13010 61.13010 55.72496 51.23546 61.13010 61.13010 0.000000 663.5583 589.0353 686.7235 751.4572 818.6956 61.35196 61.35196 61.35196 55.84460 51.29189 61.35196 61.35196 0.000000 687.9685 597.7380 699.7618 765.6864 834.9901 61.69997 61.69997 61.69997 55.95951 51.34521 61.69997 61.69997 0.000000 715.9636 606.4805 710.8241 784.1557 856.1721 61.90979 61.90979 61.90979 56.19930 51.39553 61.90979 61.90979 0.000000 742.3884 615.2652 724.1095 789.0484 872.9597 62.24794 62.24794 62.24794 56.30560 51.44297 62.24794 62.24794 0.000000 769.8224 621.8503 735.3140 805.7255 892.4590 62.58195 62.58195 62.58195 56.40763 51.48763 62.58195 62.58195 0.000000 798.3092 630.6723 748.8646 820.4664 912.3214 62.77542 62.77542 62.77542 56.63653 51.52692 62.77542 62.77542 0.000000 827.9133 639.5422 760.2181 835.3655 929.8450 63.10051 63.10051 63.10051 56.72815 51.56639 63.10051 63.10051 0.000000 858.6859 648.5110 774.0510 852.7708 950.3655 63.42188 63.42188 63.42188 56.95057 51.65796 63.42188 63.42188 0.000000 887.0101 657.4876 785.5673 870.4857 971.2806 63.73964 63.73964 63.73964 57.03733 51.69257 63.73964 63.73964 0.000000 76.38085 196.7081 192.4587 184.0138 185.1271 56.01485 56.01485 56.01485 55.77697 55.92859 56.01485 56.01485 0.000000 125.6289 271.4192 256.0760 234.7761 236.5909 51.81697 51.81697 51.81697 52.00177 53.43118 51.81697 51.81697 0.000000 138.4470 286.1614 271.0884 251.6974 254.3663 50.77866 50.77866 50.77866 51.02266 52.34732 50.77866 50.77866 0.000000 145.0884 296.1413 283.1899 266.0515 269.7801 50.44535 50.44535 50.44535 50.60579 51.71905 50.44535 50.44535 0.000000 150.8933 305.2892 294.1125 279.3577 284.2014 50.37352 50.37352 50.37352 50.43003 51.31360 50.37352 50.37352 0.000000 156.6670 313.4525 304.6589 292.1682 298.2950 50.45928 50.45928 50.45928 50.34444 51.03414 50.45928 50.45928 0.000000 162.5628 321.5697 314.9001 304.8684 312.1039 50.63602 50.63602 50.63602 50.36977 50.86525 50.63602 50.63602 0.000000 168.5322 329.7884 324.8203 317.4745 325.8382 50.85691 50.85691 50.85691 50.43541 50.72148 50.85691 50.85691 0.000000 174.5853 337.3478 335.0616 329.7178 339.4804 51.10661 51.10661 51.10661 50.56451 50.57160 51.10661 51.10661 0.000000 184.1129 344.8002 345.0500 342.1149 353.3633 51.40717 51.40717 51.40717 50.67531 50.47721 51.40717 51.40717 0.000000 191.9130 352.3276 354.9594 354.3967 367.2110 51.67986 51.67986 51.67986 50.83319 50.44721 51.67986 51.67986 0.000000 200.0011 360.0887 364.9456 367.0195 380.8886 52.03670 52.03670 52.03670 50.99131 50.38234 52.03670 52.03670 0.000000 208.8398 367.3466 374.7912 379.2552 394.8405 52.33683 52.33683 52.33683 51.16358 50.39268 52.33683 52.33683 0.000000 217.3328 375.0547 384.9577 392.1340 403.8763 52.68912 52.68912 52.68912 51.29613 50.37442 52.68912 52.68912 0.000000 226.7704 382.3910 394.3914 399.4070 415.6159 52.99891 52.99891 52.99891 51.44807 50.33637 52.99891 52.99891 0.000000 236.3518 389.3775 405.1239 409.9058 429.6997 53.32281 53.32281 53.32281 51.62856 50.38321 53.32281 53.32281 0.000000 246.6153 397.0555 414.8007 422.7362 444.5036 53.66588 53.66588 53.66588 51.78241 50.35974 53.66588 53.66588 0.000000 256.5757 404.4865 425.1277 435.4913 455.3704 54.03151 54.03151 54.03151 51.96653 50.37122 54.03151 54.03151 0.000000 267.8853 411.6856 435.2896 445.1767 470.0574 54.31678 54.31678 54.31678 52.13261 50.42178 54.31678 54.31678 0.000000 278.9071 418.6636 445.2975 458.5730 484.8004 54.68656 54.68656 54.68656 52.27914 50.40660 54.68656 54.68656 0.000000 290.9014 425.4305 456.1794 471.1246 495.9935 55.03421 55.03421 55.03421 52.46599 50.43065 55.03421 55.03421 0.000000 302.5498 433.1866 465.9453 484.5950 510.7541 55.35994 55.35994 55.35994 52.63678 50.44527 55.35994 55.35994 0.000000 316.0548 440.8184 476.6808 496.1735 526.6939 55.66736 55.66736 55.66736 52.85160 50.50247 55.66736 55.66736 0.000000 329.2658 448.3299 487.3752 508.0397 541.7220 55.95679 55.95679 55.95679 53.05316 50.55040 55.95679 55.95679 0.000000 342.9474 454.4323 498.0352 520.5864 556.8777 56.34498 56.34498 56.34498 53.17899 50.58971 56.34498 56.34498 0.000000 357.0938 461.6895 508.6661 534.2576 568.8683 56.60243 56.60243 56.60243 53.35595 50.62097 56.60243 56.60243 0.000000 371.7442 468.8446 519.2743 548.0492 582.9333 56.96244 56.96244 56.96244 53.52201 50.64472 56.96244 56.96244 0.000000 387.9892 477.3058 529.8661 563.1772 599.7202 57.31007 57.31007 57.31007 53.73832 50.66144 57.31007 57.31007 0.000000 402.6638 484.3036 541.8041 571.4625 615.4023 57.64595 57.64595 57.64595 53.82396 50.72318 57.64595 57.64595 0.000000 420.1949 491.2109 552.4201 585.5253 632.7274 57.97067 57.97067 57.97067 54.02192 50.78232 57.97067 57.97067 0.000000 435.9600 498.0300 563.0331 599.7480 648.8522 58.28478 58.28478 58.28478 54.21178 50.83210 58.28478 58.28478 0.000000 454.9213 504.7673 575.1469 614.1359 659.3870 58.58877 58.58877 58.58877 54.39337 50.87807 58.58877 58.58877 0.000000 473.2973 513.0062 585.8116 628.6998 675.7443 58.88310 58.88310 58.88310 54.56775 50.91825 58.88310 58.88310 0.000000 492.4033 519.6160 598.0867 643.4486 692.3296 59.16821 59.16821 59.16821 54.73555 50.95505 59.16821 59.16821 0.000000 512.2795 527.8104 608.8204 656.8104 709.1563 59.44448 59.44448 59.44448 54.89669 50.98438 59.44448 59.44448 0.000000 532.9669 534.3047 621.2726 666.0449 728.0546 59.83895 59.83895 59.83895 55.05146 51.06618 59.83895 59.83895 0.000000 552.6917 552.2662 632.0898 681.1581 743.5596 60.09946 60.09946 60.09946 55.20014 51.08717 60.09946 60.09946 0.000000 575.0276 560.9946 644.7383 696.4895 763.1352 60.48086 60.48086 60.48086 55.34297 51.15937 60.48086 60.48086 0.000000 598.3107 567.8253 655.6540 710.2821 781.0922 60.72679 60.72679 60.72679 55.54385 51.22786 60.72679 60.72679 0.000000 620.4177 576.5969 668.5166 727.8362 791.6939 61.09615 61.09615 61.09615 55.73992 51.23876 61.09615 61.09615 0.000000 645.6233 585.3757 681.5234 741.9785 807.8552 61.32854 61.32854 61.32854 55.86705 51.30016 61.32854 61.32854 0.000000 671.9358 594.1918 692.6384 758.1993 826.4149 61.68676 61.68676 61.68676 55.98920 51.30416 61.68676 61.68676 0.000000 696.8352 600.9279 703.7921 774.6807 845.3021 61.90655 61.90655 61.90655 56.17129 51.35904 61.90655 61.90655 0.000000 722.6746 609.7728 717.1359 788.3766 862.1198 62.25442 62.25442 62.25442 56.34926 51.41088 62.25442 62.25442 0.000000 749.4963 618.6613 730.6428 796.4469 884.0859 62.59794 62.59794 62.59794 56.45791 51.45710 62.59794 62.59794 0.000000 777.3444 627.5955 742.0361 813.3997 901.4329 62.80065 62.80065 62.80065 56.69343 51.50330 62.80065 62.80065 0.000000 806.2792 636.5776 753.4788 830.6462 921.6408 63.13483 63.13483 63.13483 56.79127 51.54680 63.13483 63.13483 0.000000 836.3516 645.6124 767.3657 845.8666 942.2275 63.46513 63.46513 63.46513 56.95370 51.64225 63.46513 63.46513 0.000000 867.6169 652.3138 781.4343 861.2509 960.3599 63.79165 63.79165 63.79165 57.11266 51.68067 63.79165 63.79165 0.000000 900.1346 661.4026 793.1537 879.2720 980.9141 63.97407 63.97407 63.97407 57.26827 51.77143 63.97407 63.97407 0.000000 76.38091 196.7080 192.4686 184.0142 185.1275 55.98706 55.98706 55.98706 55.77902 55.92956 55.98706 55.98706 0.000000 125.7755 271.4672 256.1233 234.8340 236.6524 51.84046 51.84046 51.84046 52.03183 53.44859 51.84046 51.84046 0.000000 138.4725 286.2679 271.1958 251.6881 254.5016 50.77195 50.77195 50.77195 51.01742 52.32224 50.77195 50.77195 0.000000 145.0304 296.3089 283.1544 266.0963 269.8314 50.40664 50.40664 50.40664 50.56224 51.70590 50.40664 50.40664 0.000000 150.8461 305.2157 294.3463 279.6341 284.4942 50.34898 50.34898 50.34898 50.40040 51.31030 50.34898 50.34898 0.000000 156.7502 313.7431 304.9579 292.5220 298.4725 50.44632 50.44632 50.44632 50.38117 51.03923 50.44632 50.44632 0.000000 162.6673 321.9221 315.0067 305.0943 312.3483 50.63497 50.63497 50.63497 50.41668 50.82442 50.63497 50.63497 0.000000 168.5245 329.8453 325.2528 317.7669 326.1545 50.86583 50.86583 50.86583 50.48948 50.68742 50.86583 50.86583 0.000000 174.7353 337.8248 335.5632 330.3203 340.1266 51.17475 51.17475 51.17475 50.57362 50.54368 51.17475 51.17475 0.000000 184.3040 345.3390 345.6226 342.8061 353.8324 51.43406 51.43406 51.43406 50.74710 50.50751 51.43406 51.43406 0.000000 192.1357 352.9291 355.6038 355.1794 367.7622 51.76557 51.76557 51.76557 50.85648 50.42992 51.76557 51.76557 0.000000 200.2577 360.7542 365.6636 367.6033 381.5252 52.07939 52.07939 52.07939 51.02238 50.42230 52.07939 52.07939 0.000000 209.1337 368.0750 375.2226 380.2321 390.4390 52.38680 52.38680 52.38680 51.19925 50.38166 52.38680 52.38680 0.000000 218.0901 375.8483 385.8277 393.2159 404.9745 52.74599 52.74599 52.74599 51.33459 50.37037 52.74599 52.74599 0.000000 227.1453 383.2488 395.3374 400.5137 416.8146 53.06245 53.06245 53.06245 51.49446 50.33620 53.06245 53.06245 0.000000 236.7717 390.2986 405.3224 411.1047 431.0076 53.44616 53.44616 53.44616 51.67999 50.38669 53.44616 53.44616 0.000000 247.0988 398.0436 415.9091 424.0364 445.7001 53.79602 53.79602 53.79602 51.89594 50.36668 53.79602 53.79602 0.000000 257.0945 405.5410 426.3195 436.8945 456.8963 54.11399 54.11399 54.11399 52.02745 50.38129 54.11399 54.11399 0.000000 268.4608 412.8048 436.5663 447.4922 472.6036 54.40501 54.40501 54.40501 52.19794 50.43500 54.40501 54.40501 0.000000 280.1794 419.8493 446.6609 460.1807 487.5192 54.78060 54.78060 54.78060 52.34869 50.42132 54.78060 54.78060 0.000000 291.5994 426.6807 457.6335 473.7438 498.8595 55.13387 55.13387 55.13387 52.53968 50.44981 55.13387 55.13387 0.000000 304.0401 434.5072 467.4880 487.3752 513.8000 55.46482 55.46482 55.46482 52.71444 50.46720 55.46482 55.46482 0.000000 316.8933 442.2078 478.3177 496.4690 528.8466 55.77748 55.77748 55.77748 52.93320 50.52709 55.77748 55.77748 0.000000 331.0126 448.5221 489.1079 510.0967 545.1535 56.12952 56.12952 56.12952 53.13857 50.57761 56.12952 56.12952 0.000000 343.9448 455.9562 499.8650 523.8283 560.5038 56.46546 56.46546 56.46546 53.26776 50.61942 56.46546 56.46546 0.000000 358.1779 463.2833 510.5950 537.6743 571.4296 56.84490 56.84490 56.84490 53.44826 50.65309 56.84490 56.84490 0.000000 372.9206 470.5079 521.3023 551.6447 588.2133 57.09272 57.09272 57.09272 53.61776 50.67916 57.09272 57.09272 0.000000 389.2685 479.0474 533.3186 564.0657 603.9316 57.44525 57.44525 57.44525 53.83755 50.69812 57.44525 57.44525 0.000000 406.3219 486.1149 544.0451 575.3862 619.8286 57.78593 57.78593 57.78593 53.98716 50.76347 57.78593 57.78593 0.000000 421.7069 493.0918 554.7656 589.6398 637.3918 58.11535 58.11535 58.11535 54.12750 50.82183 58.11535 58.11535 0.000000 440.1415 499.9805 566.9492 602.7062 653.7420 58.43406 58.43406 58.43406 54.31973 50.82207 58.43406 58.43406 0.000000 456.6583 508.3461 577.7165 618.6463 664.4506 58.74254 58.74254 58.74254 54.50730 50.92220 58.74254 58.74254 0.000000 476.6240 515.1054 590.0572 633.4158 681.0453 59.04128 59.04128 59.04128 54.68267 50.91286 59.04128 59.04128 0.000000 494.4134 521.7839 600.8867 648.3748 697.8742 59.45616 59.45616 59.45616 54.85345 51.00185 59.45616 59.45616 0.000000 516.0822 530.0585 613.4026 656.2011 716.7319 59.73754 59.73754 59.73754 55.01749 51.03677 59.73754 59.73754 0.000000 535.2847 536.6219 624.3129 671.3249 732.2803 60.01035 60.01035 60.01035 55.17509 51.06388 60.01035 60.01035 0.000000 557.0085 554.8369 637.0216 686.6622 751.8008 60.40339 60.40339 60.40339 55.32653 51.14182 60.40339 60.40339 0.000000 579.6364 563.6595 648.0295 702.2234 769.7502 60.66087 60.66087 60.66087 55.53568 51.21583 60.66087 60.66087 0.000000 601.1519 572.5134 660.9479 718.0163 787.9875 61.04124 61.04124 61.04124 55.73978 51.23209 61.04124 61.04124 0.000000 627.8384 579.4395 672.0658 732.1976 796.6744 61.28453 61.28453 61.28453 55.87467 51.29863 61.28453 61.28453 0.000000 651.1871 588.3159 685.2133 750.3333 817.4105 61.65319 61.65319 61.65319 56.00433 51.30760 61.65319 61.65319 0.000000 675.4008 597.2308 698.5154 764.8898 834.0776 61.88326 61.88326 61.88326 56.19372 51.36728 61.88326 61.88326 0.000000 700.5211 606.1866 709.8501 781.6295 853.2714 62.24107 62.24107 62.24107 56.37879 51.42378 62.24107 62.24107 0.000000 729.3392 615.1857 723.4063 788.9180 872.8079 62.59432 62.59432 62.59432 56.49428 51.47449 62.59432 62.59432 0.000000 759.4726 621.9857 734.8879 805.9326 892.7005 62.80653 62.80653 62.80653 56.66832 51.52505 62.80653 62.80653 0.000000 787.8989 633.3254 748.7166 821.0160 912.9656 63.15001 63.15001 63.15001 56.84085 51.57278 63.15001 63.15001 0.000000 817.4445 640.1103 760.3520 836.2591 930.8972 63.48941 63.48941 63.48941 57.00965 51.61777 63.48941 63.48941 0.000000 848.1615 649.2980 774.4709 856.3901 954.6483 63.82486 63.82486 63.82486 57.17481 51.66012 63.82486 63.82486 0.000000 880.1064 658.4948 786.2747 872.1051 973.1852 64.01591 64.01591 64.01591 57.26962 51.75466 64.01591 64.01591 0.000000 909.5330 667.7475 800.7007 887.9979 981.2349 64.34277 64.34277 64.34277 57.49471 51.79205 64.34277 64.34277 0.000000 76.38097 196.7080 192.4687 184.0369 185.1280 55.98830 55.98830 55.98830 55.78101 55.93051 55.98830 55.98830 0.000000 125.7840 271.5136 256.1689 234.8334 236.7118 51.81237 51.81237 51.81237 52.00348 53.40767 51.81237 51.81237 0.000000 138.4972 286.3709 271.2996 251.8117 254.4911 50.76410 50.76410 50.76410 51.01096 52.35227 50.76410 50.76410 0.000000 145.0724 296.4712 283.3186 266.1343 270.0366 50.41507 50.41507 50.41507 50.57219 51.69179 50.41507 50.41507 0.000000 150.9068 305.4374 294.3484 279.7274 284.5970 50.37121 50.37121 50.37121 50.42373 51.30584 50.37121 50.37121 0.000000 156.8306 314.0248 305.0054 292.8651 298.6371 50.48153 50.48153 50.48153 50.36124 50.98947 50.48153 50.48153 0.000000 162.7685 321.9235 315.3603 305.5150 312.5786 50.63155 50.63155 50.63155 50.40669 50.83545 50.63155 50.63155 0.000000 168.6471 329.8891 325.6725 318.0425 326.4535 50.87134 50.87134 50.87134 50.48810 50.65187 50.87134 50.87134 0.000000 174.8804 337.9116 335.7571 330.9053 340.7541 51.19033 51.19033 51.19033 50.63536 50.56694 51.19033 51.19033 0.000000 184.4890 345.8624 345.8673 343.4776 354.2787 51.50832 51.50832 51.50832 50.76097 50.48341 51.50832 51.50832 0.000000 192.3512 353.5136 355.9019 355.9401 368.2879 51.79746 51.79746 51.79746 50.87702 50.41085 51.79746 51.79746 0.000000 200.5059 360.9730 366.0160 368.4568 382.4502 52.11879 52.11879 52.11879 51.05060 50.40785 52.11879 52.11879 0.000000 209.4183 368.7834 375.9915 381.1826 391.4044 52.43214 52.43214 52.43214 51.23065 50.37157 52.43214 52.43214 0.000000 218.4129 376.1574 385.9129 394.2677 406.7394 52.79928 52.79928 52.79928 51.37411 50.36432 52.79928 52.79928 0.000000 227.5086 383.6036 396.2566 402.2733 417.9811 53.12228 53.12228 53.12228 51.59449 50.33396 53.12228 53.12228 0.000000 237.1787 391.1952 406.3196 412.2719 433.0563 53.51239 53.51239 53.51239 51.72820 50.38805 53.51239 53.51239 0.000000 247.5536 399.0056 416.9878 425.3024 444.9198 53.86839 53.86839 53.86839 51.94893 50.37146 53.86839 53.86839 0.000000 258.1573 406.0360 427.4806 439.0553 459.2389 54.19240 54.19240 54.19240 52.08499 50.38912 54.19240 54.19240 0.000000 269.0190 413.8963 437.8104 448.9545 474.2133 54.54409 54.54409 54.54409 52.31782 50.44594 54.54409 54.54409 0.000000 280.7964 421.0033 447.9889 461.7475 489.2506 54.87035 54.87035 54.87035 52.47297 50.43527 54.87035 54.87035 0.000000 292.2767 427.8992 459.0518 475.4221 500.7005 55.22911 55.22911 55.22911 52.60976 50.46661 55.22911 55.22911 0.000000 305.5164 435.7946 468.9913 489.1678 516.8129 55.56520 55.56520 55.56520 52.84732 50.48672 55.56520 55.56520 0.000000 317.7073 443.5640 479.9134 499.3419 532.0424 55.94025 55.94025 55.94025 53.01106 50.54926 55.94025 55.94025 0.000000 331.9047 449.9402 490.7971 512.1036 547.3954 56.29799 56.29799 56.29799 53.21642 50.60233 56.29799 56.29799 0.000000 344.9135 457.4427 501.6483 527.0359 564.0939 56.58114 56.58114 56.58114 53.35266 50.64659 56.58114 56.58114 0.000000 360.1793 464.8381 512.4741 541.0551 575.1754 56.96564 56.96564 56.96564 53.59691 50.68264 56.96564 56.96564 0.000000 375.0730 472.1310 524.5696 555.2031 590.8683 57.33678 57.33678 57.33678 53.70953 50.71100 57.33678 57.33678 0.000000 390.5117 480.7469 535.4048 563.7768 608.1016 57.63527 57.63527 57.63527 53.93275 50.73137 57.63527 57.63527 0.000000 407.6722 487.8828 546.2324 579.2708 624.2120 57.98121 57.98121 57.98121 54.14673 50.79879 57.98121 57.98121 0.000000 424.3810 494.9279 558.4841 592.4015 640.5198 58.31577 58.31577 58.31577 54.28865 50.86028 58.31577 58.31577 0.000000 441.7159 501.8849 569.3529 608.3264 656.4955 58.63950 58.63950 58.63950 54.42631 50.86114 58.63950 58.63950 0.000000 459.7270 510.3283 581.7546 621.6934 669.4681 59.01498 59.01498 59.01498 54.61247 50.96508 59.01498 59.01498 0.000000 478.4507 517.1556 592.6830 638.0878 686.2989 59.31900 59.31900 59.31900 54.79331 50.95485 59.31900 59.31900 0.000000 499.4900 525.5513 605.2561 653.2546 703.3722 59.61359 59.61359 59.61359 54.96701 51.04951 59.61359 59.61359 0.000000 518.1934 532.2548 616.2618 661.2173 720.6964 59.96272 59.96272 59.96272 55.13390 51.08353 59.96272 59.96272 0.000000 541.0607 550.2833 629.0252 676.5583 740.1569 60.30418 60.30418 60.30418 55.29428 51.11377 60.30418 60.30418 0.000000 561.2936 557.3510 640.1230 692.1187 758.0911 60.57360 60.57360 60.57360 55.51201 51.19354 60.57360 60.57360 0.000000 584.2101 566.2662 653.0937 707.9105 776.3123 60.96529 60.96529 60.96529 55.72441 51.26934 60.96529 60.96529 0.000000 608.1089 575.2443 666.2061 723.9365 787.2372 61.21981 61.21981 61.21981 55.86737 51.28725 61.21981 61.21981 0.000000 630.8169 584.2310 677.4962 740.2096 805.8336 61.59919 61.59919 61.59919 56.00481 51.30139 61.59919 61.59919 0.000000 656.7129 593.2557 688.8229 754.7963 822.5192 61.83987 61.83987 61.83987 56.20174 51.36604 61.83987 61.83987 0.000000 683.7599 600.2053 702.2659 773.5392 843.9941 62.20786 62.20786 62.20786 56.39413 51.42735 62.20786 62.20786 0.000000 709.3726 609.2596 715.8709 788.0158 861.1843 62.57107 62.57107 62.57107 56.51669 51.48273 62.57107 62.57107 0.000000 735.9623 618.3585 729.6417 795.9663 883.5237 62.79305 62.79305 62.79305 56.69762 51.53780 62.79305 62.79305 0.000000 763.5765 627.5043 741.3076 813.2493 901.2574 63.14603 63.14603 63.14603 56.87688 51.58990 63.14603 63.14603 0.000000 792.2597 636.6993 753.0250 830.8330 921.8589 63.49474 63.49474 63.49474 56.98587 51.63913 63.49474 63.49474 0.000000 822.0768 645.9484 767.1874 846.3959 942.8489 63.83930 63.83930 63.83930 57.22375 51.68559 63.83930 63.83930 0.000000 853.0804 655.2983 781.5364 862.1276 964.2439 64.03921 64.03921 64.03921 57.32467 51.72937 64.03921 64.03921 0.000000 885.3281 662.1676 793.5392 880.5063 981.5277 64.37482 64.37482 64.37482 57.55593 51.82544 64.37482 64.37482 0.000000 918.8841 671.5281 805.6042 899.2256 994.3340 64.70669 64.70669 64.70669 57.64927 51.86422 64.70669 64.70669 0.000000 76.38102 196.7079 192.4786 184.0373 185.1403 55.98949 55.98949 55.98949 55.78294 55.93142 55.98949 55.98949 0.000000 125.7922 271.5585 256.2130 234.8309 236.7692 51.78365 51.78365 51.78365 51.97440 53.42415 51.78365 51.78365 0.000000 138.5209 286.2123 271.4001 251.7941 254.6175 50.75438 50.75438 50.75438 50.94759 52.32570 50.75438 50.75438 0.000000 145.1131 296.3458 283.4776 266.3223 270.2357 50.42204 50.42204 50.42204 50.58067 51.67675 50.42204 50.42204 0.000000 150.9653 305.3492 294.5674 279.8119 284.6908 50.39169 50.39169 50.39169 50.39059 51.30030 50.39169 50.39169 0.000000 156.9084 313.9754 305.2858 293.0061 298.9902 50.46469 50.46469 50.46469 50.33942 50.99203 50.46469 50.46469 0.000000 162.8663 322.2545 315.7034 305.9235 313.0132 50.67494 50.67494 50.67494 50.39460 50.78938 50.67494 50.67494 0.000000 168.7657 330.2786 326.0797 318.5288 326.9731 50.92477 50.92477 50.92477 50.48260 50.66785 50.92477 50.92477 0.000000 175.0206 338.3604 335.9358 331.2299 340.8492 51.20220 51.20220 51.20220 50.63958 50.53586 51.20220 51.20220 0.000000 184.6681 345.9769 346.0957 344.1305 354.9799 51.52943 51.52943 51.52943 50.77231 50.45771 51.52943 51.52943 0.000000 192.5600 354.0820 356.1809 356.6800 369.0861 51.87697 51.87697 51.87697 50.95058 50.44265 51.87697 51.87697 0.000000 201.1161 361.1724 366.3473 369.2872 383.3503 52.15502 52.15502 52.15502 51.07290 50.39162 52.15502 52.15502 0.000000 209.6941 369.4727 376.7394 382.1079 393.0006 52.52719 52.52719 52.52719 51.26220 50.35963 52.52719 52.52719 0.000000 218.7259 376.4436 386.7328 395.2930 406.1885 52.84912 52.84912 52.84912 51.40849 50.35636 52.84912 52.84912 0.000000 227.8608 383.9339 397.1518 403.3247 419.1169 53.23157 53.23157 53.23157 51.63475 50.32975 53.23157 53.23157 0.000000 238.0645 392.0685 407.2902 413.4085 434.3001 53.57493 53.57493 53.57493 51.83047 50.38737 53.57493 53.57493 0.000000 247.9948 398.9109 418.0381 426.5358 445.6510 53.93583 53.93583 53.93583 51.99559 50.37264 53.93583 53.93583 0.000000 258.6471 406.5015 428.6111 440.3911 460.6920 54.26688 54.26688 54.26688 52.13925 50.39481 54.26688 54.26688 0.000000 270.1632 414.4084 439.0225 450.3799 475.7824 54.67946 54.67946 54.67946 52.37645 50.45468 54.67946 54.67946 0.000000 281.3952 422.1302 449.2830 464.1470 491.9014 55.01169 55.01169 55.01169 52.53567 50.44698 55.01169 55.01169 0.000000 293.6223 429.0874 460.4336 477.9756 503.4955 55.37500 55.37500 55.37500 52.73507 50.48111 55.37500 55.37500 0.000000 306.2411 437.0502 471.5322 491.8788 518.7401 55.71813 55.71813 55.71813 52.91788 50.50391 55.71813 55.71813 0.000000 319.2833 444.8869 481.4694 501.1900 535.2056 56.09898 56.09898 56.09898 53.14474 50.56905 56.09898 56.09898 0.000000 332.7715 451.3237 492.4449 515.1002 550.7447 56.40429 56.40429 56.40429 53.29418 50.62463 56.40429 56.40429 0.000000 346.7484 458.8933 504.5963 529.1211 563.0617 56.80931 56.80931 56.80931 53.49391 50.67132 56.80931 56.80931 0.000000 361.2069 466.3557 515.5607 543.2634 578.8847 57.08167 57.08167 57.08167 53.68166 50.70970 57.08167 57.08167 0.000000 377.2071 475.1088 526.5070 558.7281 594.7781 57.45765 57.45765 57.45765 53.85816 50.74031 57.45765 57.45765 0.000000 392.8046 482.4063 537.4415 567.4273 610.8521 57.82088 57.82088 57.82088 54.02405 50.76423 57.82088 57.82088 0.000000 408.9856 489.6093 549.7602 581.8441 628.5553 58.17201 58.17201 58.17201 54.24131 50.83252 58.17201 58.17201 0.000000 427.0334 496.7198 560.7297 596.4226 646.5908 58.51164 58.51164 58.51164 54.44935 50.89610 58.51164 58.51164 0.000000 443.2479 503.7451 573.1927 611.1741 656.0637 58.84033 58.84033 58.84033 54.58663 50.89865 58.84033 58.84033 0.000000 462.7715 512.2648 584.2169 627.5414 674.4421 59.15858 59.15858 59.15858 54.77831 50.95123 59.15858 59.15858 0.000000 481.7092 519.1570 595.2513 642.7186 691.5079 59.46687 59.46687 59.46687 54.96241 50.99781 59.46687 59.46687 0.000000 501.4112 527.6297 607.9442 657.4312 708.8240 59.89248 59.89248 59.89248 55.13930 51.09226 59.89248 59.89248 0.000000 523.5997 534.4014 620.7596 666.1904 728.2218 60.18304 60.18304 60.18304 55.30929 51.12886 60.18304 60.18304 0.000000 543.2787 552.6662 631.9453 681.7478 746.1365 60.46484 60.46484 60.46484 55.53632 51.16087 60.46484 60.46484 0.000000 565.5474 561.6923 644.9652 697.5317 764.3348 60.86816 60.86816 60.86816 55.69369 51.24244 60.86816 60.86816 0.000000 588.7523 570.7501 656.2553 713.5500 784.8860 61.13430 61.13430 61.13430 55.84501 51.26595 61.13430 61.13430 0.000000 610.8325 577.8885 669.4991 729.8101 793.9478 61.52468 61.52468 61.52468 55.99052 51.33955 61.52468 61.52468 0.000000 638.2206 586.9689 682.8931 746.3252 812.8257 61.84289 61.84289 61.84289 56.19524 51.35527 61.84289 61.84289 0.000000 662.2037 596.0886 694.3938 763.1044 832.0326 62.15473 62.15473 62.15473 56.39520 51.42157 62.15473 62.15473 0.000000 687.0862 605.2500 708.0408 780.1536 851.5793 62.52813 62.52813 62.52813 56.52508 51.48177 62.52813 62.52813 0.000000 712.9131 614.4557 719.6819 787.7737 871.4758 62.76019 62.76019 62.76019 56.71313 51.54151 62.76019 62.76019 0.000000 742.5472 621.4662 733.6008 805.1061 889.2151 63.12289 63.12289 63.12289 56.89930 51.59812 63.12289 63.12289 0.000000 770.5507 630.7116 747.6921 820.5155 912.3792 63.48109 63.48109 63.48109 57.01498 51.65173 63.48109 63.48109 0.000000 802.8154 640.0076 759.5981 836.0892 930.6979 63.83497 63.83497 63.83497 57.25946 51.70243 63.83497 63.83497 0.000000 833.2488 649.4056 773.9871 856.5567 954.8441 64.04398 64.04398 64.04398 57.36670 51.75034 64.04398 64.04398 0.000000 864.9019 658.8143 786.0666 872.6145 973.7843 64.38850 64.38850 64.38850 57.60426 51.79554 64.38850 64.38850 0.000000 897.8360 668.2806 800.7710 888.8552 982.2329 64.72913 64.72913 64.72913 57.70358 51.83814 64.72913 64.72913 0.000000 932.1172 677.8065 813.0368 907.8813 1001.397 65.06598 65.06598 65.06598 57.93465 51.93326 65.06598 65.06598 0.000000 76.38107 196.7160 192.4787 184.0376 185.1526 55.99065 55.99065 55.99065 55.78481 55.93230 55.99065 55.99065 0.000000 125.8001 271.6019 256.2557 234.8832 236.7088 51.80517 51.80517 51.80517 51.94462 53.38239 51.80517 51.80517 0.000000 138.5439 286.3086 271.3125 251.9099 254.7400 50.74489 50.74489 50.74489 50.93884 52.29845 50.74489 50.74489 0.000000 145.0508 296.4979 283.4258 266.5046 270.2668 50.42761 50.42761 50.42761 50.53273 51.66084 50.42761 50.42761 0.000000 151.0220 305.5573 294.7798 280.0630 284.9569 50.36091 50.36091 50.36091 50.41055 51.23970 50.36091 50.36091 0.000000 156.8651 314.2401 305.3152 293.1367 299.3329 50.49532 50.49532 50.49532 50.37037 50.99341 50.49532 50.49532 0.000000 162.8343 322.5760 316.0364 306.1104 313.4352 50.71622 50.71622 50.71622 50.43524 50.79772 50.71622 50.71622 0.000000 168.8805 330.6565 326.1978 319.0015 327.4781 50.97591 50.97591 50.97591 50.53181 50.62947 50.97591 50.97591 0.000000 175.1566 338.4194 336.3941 331.5381 341.4404 51.21238 51.21238 51.21238 50.64148 50.55608 51.21238 51.21238 0.000000 184.8416 346.4705 346.6189 344.2414 355.6620 51.54781 51.54781 51.54781 50.78121 50.48308 51.54781 51.54781 0.000000 192.7623 354.2221 356.7703 357.4001 369.8630 51.90263 51.90263 51.90263 50.96595 50.42020 51.90263 51.90263 0.000000 201.3500 361.7820 367.0047 370.0958 384.2267 52.23969 52.23969 52.23969 51.09434 50.37368 52.23969 52.23969 0.000000 209.9616 369.6959 377.4672 383.0091 393.9189 52.61928 52.61928 52.61928 51.28919 50.34591 52.61928 52.61928 0.000000 219.0294 377.1719 387.5309 390.8041 406.3090 52.94826 52.94826 52.94826 51.44074 50.34655 52.94826 52.94826 0.000000 228.2025 384.7219 398.0227 404.3488 420.9618 53.33767 53.33767 53.33767 51.67208 50.37606 53.33767 53.33767 0.000000 238.4488 392.9193 408.2346 415.2371 435.5121 53.63391 53.63391 53.63391 51.87260 50.38474 53.63391 53.63391 0.000000 248.4230 399.8186 419.0613 428.4993 447.7773 54.00084 54.00084 54.00084 52.04236 50.37313 54.00084 54.00084 0.000000 259.1225 407.4713 429.7127 441.6935 462.9772 54.39235 54.39235 54.39235 52.19034 50.39843 54.39235 54.39235 0.000000 270.6911 414.8906 440.2039 452.6053 478.2304 54.75583 54.75583 54.75583 52.43183 50.45982 54.75583 54.75583 0.000000 282.6244 423.2276 450.5447 465.6419 493.5537 55.14938 55.14938 55.14938 52.65364 50.45653 55.14938 55.14938 0.000000 294.2634 430.2466 461.7809 479.5779 505.2536 55.51844 55.51844 55.51844 52.85733 50.49342 55.51844 55.51844 0.000000 306.9454 438.2754 472.9674 493.5910 520.6213 55.86724 55.86724 55.86724 53.04425 50.51885 55.86724 55.86724 0.000000 320.8462 446.1780 484.1120 503.9949 537.2198 56.19607 56.19607 56.19607 53.21185 50.58656 56.19607 56.19607 0.000000 334.4590 452.6743 495.2214 518.0673 554.0620 56.56442 56.56442 56.56442 53.36839 50.64462 56.56442 56.56442 0.000000 348.5683 460.3095 506.3023 532.2543 565.4238 56.91622 56.91622 56.91622 53.57161 50.69368 56.91622 56.91622 0.000000 363.1671 467.8375 517.3604 546.5667 581.2874 57.31180 57.31180 57.31180 53.76274 50.73436 57.31180 57.31180 0.000000 378.2965 476.6639 528.4005 562.2184 598.6542 57.63377 57.63377 57.63377 54.00347 50.76654 57.63377 57.63377 0.000000 395.0794 484.0273 540.7853 571.0441 614.9308 57.94176 57.94176 57.94176 54.11157 50.79174 57.94176 57.94176 0.000000 412.5978 491.2959 551.8553 585.6428 632.8605 58.29745 58.29745 58.29745 54.33126 50.86375 58.29745 58.29745 0.000000 428.4208 498.4723 562.9240 600.4078 649.6017 58.64154 58.64154 58.64154 54.54258 50.92825 58.64154 58.64154 0.000000 447.3799 507.1161 575.4971 615.3505 660.7510 59.03671 59.03671 59.03671 54.74563 50.93579 59.03671 59.03671 0.000000 464.3863 514.1575 588.1818 630.4767 677.7422 59.42247 59.42247 59.42247 54.94063 50.98782 59.42247 59.42247 0.000000 484.9442 521.1150 599.3694 647.3101 696.6763 59.73595 59.73595 59.73595 55.12796 51.03620 59.73595 59.73595 0.000000 504.8721 529.6631 610.5698 655.5714 714.2313 60.03978 60.03978 60.03978 55.30799 51.13314 60.03978 60.03978 0.000000 525.6207 536.5004 623.5043 671.1231 732.0493 60.46304 60.46304 60.46304 55.48105 51.17153 60.46304 60.46304 0.000000 549.0375 554.9981 636.5728 686.8959 752.0698 60.74970 60.74970 60.74970 55.64744 51.20528 60.74970 60.74970 0.000000 569.7734 564.1131 647.9458 702.9012 772.5402 61.09323 61.09323 61.09323 55.80745 51.28862 61.09323 61.09323 0.000000 591.2413 573.2610 661.2327 719.1463 787.3350 61.42954 61.42954 61.42954 55.96135 51.31377 61.42954 61.42954 0.000000 617.7769 580.4776 672.7220 735.6397 800.6091 61.82549 61.82549 61.82549 56.17413 51.38907 61.82549 61.82549 0.000000 641.0797 589.6501 686.2481 752.3949 819.7701 62.08160 62.08160 62.08160 56.38189 51.40636 62.08160 62.08160 0.000000 665.2507 598.8631 699.9356 769.4197 839.2707 62.46545 62.46545 62.46545 56.51936 51.47155 62.46545 62.46545 0.000000 695.4393 608.1193 713.7859 786.7218 859.1156 62.77599 62.77599 62.77599 56.71474 51.53613 62.77599 62.77599 0.000000 721.7607 617.4209 725.6065 794.4925 879.3210 63.08052 63.08052 63.08052 56.90806 51.59742 63.08052 63.08052 0.000000 749.0971 626.7706 737.4767 809.9129 899.9032 63.44846 63.44846 63.44846 57.03064 51.65555 63.44846 63.44846 0.000000 777.4942 636.1729 751.7164 829.9860 920.8701 63.81186 63.81186 63.81186 57.28190 51.71064 63.81186 63.81186 0.000000 807.0149 645.6260 766.1387 845.8751 942.2375 64.03024 64.03024 64.03024 57.39565 51.76281 64.03024 64.03024 0.000000 837.7120 655.1836 780.7531 861.9374 964.0195 64.38385 64.38385 64.38385 57.63967 51.81214 64.38385 64.38385 0.000000 869.6438 662.2615 793.0276 880.6522 980.2897 64.73340 64.73340 64.73340 57.74515 51.85874 64.73340 64.73340 0.000000 902.8705 671.8317 805.3665 899.7155 994.9048 65.07900 65.07900 65.07900 57.98238 51.90271 65.07900 65.07900 0.000000 937.4633 681.4629 813.2565 916.4878 1014.485 65.42079 65.42079 65.42079 58.08010 51.99928 65.42079 65.42079 0.000000 76.38112 196.7159 192.4788 184.0379 185.1530 55.99177 55.99177 55.99177 55.75417 55.93316 55.99177 55.99177 0.000000 125.8078 271.6440 256.2970 234.9337 236.7625 51.77526 51.77526 51.77526 51.97169 53.39804 51.77526 51.77526 0.000000 138.5662 286.4020 271.4065 252.0220 254.8586 50.73439 50.73439 50.73439 50.92903 52.27057 50.73439 50.73439 0.000000 145.0887 296.6454 283.5750 266.5246 270.4539 50.38321 50.38321 50.38321 50.53842 51.64408 50.38321 50.38321 0.000000 151.0769 305.7592 294.7607 280.3067 285.2152 50.37812 50.37812 50.37812 50.37420 51.23211 50.37812 50.37812 0.000000 156.9378 314.1741 305.5789 293.4496 299.6651 50.47533 50.47533 50.47533 50.39959 50.94017 50.47533 50.47533 0.000000 162.7991 322.8885 316.0993 306.2856 313.8453 50.70629 50.70629 50.70629 50.41919 50.75164 50.70629 50.70629 0.000000 168.9918 331.0245 326.3040 319.4610 327.9685 50.97528 50.97528 50.97528 50.52397 50.64269 50.97528 50.97528 0.000000 175.2883 338.8429 336.8396 332.0742 342.0156 51.27010 51.27010 51.27010 50.64117 50.52109 51.27010 51.27010 0.000000 185.0099 346.5553 347.1278 344.8577 356.3258 51.61406 51.61406 51.61406 50.78777 50.45429 51.61406 51.61406 0.000000 192.9586 354.3460 357.3438 358.1012 370.6194 51.92586 51.92586 51.92586 50.97657 50.39620 51.92586 51.92586 0.000000 201.5771 362.3756 367.6436 370.8833 385.0805 52.32159 52.32159 52.32159 51.11322 50.40659 52.32159 52.32159 0.000000 210.2211 369.8988 378.1757 383.8873 394.8120 52.65625 52.65625 52.65625 51.31079 50.38292 52.65625 52.65625 0.000000 219.3240 377.8815 388.3082 391.7122 407.2927 53.04441 53.04441 53.04441 51.52692 50.33496 53.04441 53.04441 0.000000 228.5342 385.4898 398.8720 405.3468 422.0435 53.38732 53.38732 53.38732 51.70658 50.36810 53.38732 53.38732 0.000000 238.8219 393.2467 409.1566 416.3200 436.6937 53.79718 53.79718 53.79718 51.91183 50.38020 53.79718 53.79718 0.000000 248.8390 400.7051 420.0579 429.6750 449.0550 54.11667 54.11667 54.11667 52.08615 50.42425 54.11667 54.11667 0.000000 260.1513 408.4188 430.7868 443.7728 464.3636 54.51446 54.51446 54.51446 52.29634 50.40007 54.51446 54.51446 0.000000 271.2040 415.8977 441.3561 453.9659 479.7286 54.82843 54.82843 54.82843 52.48409 50.46447 54.82843 54.82843 0.000000 283.1917 424.2995 451.7742 467.1008 496.1431 55.22737 55.22737 55.22737 52.70994 50.46400 55.22737 55.22737 0.000000 295.5820 431.3779 463.0963 482.0721 507.9844 55.60145 55.60145 55.60145 52.91751 50.50360 55.60145 55.60145 0.000000 307.6301 439.4714 474.3680 496.2397 523.5251 55.95529 55.95529 55.95529 53.10816 50.53164 55.95529 55.95529 0.000000 321.5990 447.4387 485.5997 505.7628 539.1874 56.34689 56.34689 56.34689 53.27917 50.60186 56.34689 56.34689 0.000000 335.2816 453.9932 496.7976 519.9481 556.1642 56.72071 56.72071 56.72071 53.43915 50.66235 56.72071 56.72071 0.000000 349.4656 461.6928 507.9671 534.2509 568.8609 57.07782 57.07782 57.07782 53.70625 50.71377 57.07782 57.07782 0.000000 365.1120 469.2852 519.1161 549.8400 584.9165 57.41918 57.41918 57.41918 53.84027 50.75671 57.41918 57.41918 0.000000 380.3887 478.1833 530.2504 564.4633 601.1483 57.80582 57.80582 57.80582 54.08435 50.79241 57.80582 57.80582 0.000000 396.2336 485.6113 542.7371 573.3854 618.9749 58.17946 58.17946 58.17946 54.25497 50.81847 58.17946 58.17946 0.000000 413.8524 492.9444 553.9030 589.4084 637.1299 58.54077 58.54077 58.54077 54.42022 50.89073 58.54077 58.54077 0.000000 431.0221 500.1854 566.5320 604.3608 655.6295 58.89035 58.89035 58.89035 54.63268 50.95942 58.89035 58.89035 0.000000 448.8448 508.9024 577.7502 619.4919 665.4006 59.22876 59.22876 59.22876 54.83873 50.96611 59.22876 59.22876 0.000000 468.7947 516.0082 590.5441 634.8135 684.2697 59.55653 59.55653 59.55653 55.03667 51.02377 59.55653 59.55653 0.000000 486.6464 524.6748 601.8335 650.3336 701.8036 59.93768 59.93768 59.93768 55.22686 51.07264 59.93768 59.93768 0.000000 508.3108 531.6520 614.8144 660.2570 719.5981 60.31019 60.31019 60.31019 55.40968 51.17146 60.31019 60.31019 0.000000 529.2975 549.9258 626.1930 676.0176 739.5354 60.60971 60.60971 60.60971 55.58546 51.21161 60.60971 60.60971 0.000000 551.1761 557.2812 639.3804 692.0051 757.9604 61.03075 61.03075 61.03075 55.75452 51.24708 61.03075 61.03075 0.000000 572.0468 566.4835 652.7077 708.2322 776.6829 61.31362 61.31362 61.31362 55.98153 51.33216 61.31362 61.31362 0.000000 597.7521 575.7506 666.1820 724.7021 788.1115 61.72089 61.72089 61.72089 56.20304 51.35894 61.72089 61.72089 0.000000 620.3917 585.0280 677.8383 741.4280 807.2263 61.98834 61.98834 61.98834 56.35408 51.43590 61.98834 61.98834 0.000000 646.1668 594.3452 691.5591 758.4221 826.6700 62.38292 62.38292 62.38292 56.49941 51.45202 62.38292 62.38292 0.000000 673.0911 601.5816 703.3516 775.6924 846.4617 62.70404 62.70404 62.70404 56.70239 51.52160 62.70404 62.70404 0.000000 698.6387 613.1099 717.3397 787.1939 866.6061 63.01889 63.01889 63.01889 56.90306 51.58773 63.01889 63.01889 0.000000 725.1678 620.3271 731.5014 801.1655 887.1201 63.39677 63.39677 63.39677 57.03278 51.65055 63.39677 63.39677 0.000000 755.6151 629.7726 743.5536 819.0214 908.0200 63.76991 63.76991 63.76991 57.29100 51.71018 63.76991 63.76991 0.000000 784.4051 639.2698 758.0065 834.9125 929.3140 63.99791 63.99791 63.99791 57.41149 51.76674 63.99791 63.99791 0.000000 817.5859 648.8702 770.2291 853.3265 953.8246 64.36083 64.36083 64.36083 57.59469 51.82034 64.36083 64.36083 0.000000 848.9037 658.4829 784.9945 872.0728 973.1473 64.71948 64.71948 64.71948 57.77396 51.87107 64.71948 64.71948 0.000000 881.4901 668.1546 799.9613 888.6445 981.9878 65.07402 65.07402 65.07402 57.94944 51.91906 65.07402 65.07402 0.000000 915.4116 677.8876 812.4972 908.0072 1001.543 65.42457 65.42457 65.42457 58.12124 51.96438 65.42457 65.42457 0.000000 950.7357 687.6840 817.8770 927.7333 1027.637 65.77126 65.77126 65.77126 58.35815 52.06238 65.77126 65.77126 0.000000 76.38116 196.7159 192.4789 184.0494 185.1534 55.99286 55.99286 55.99286 55.72352 55.93399 55.99286 55.99286 0.000000 125.8152 271.6847 256.1813 234.9827 236.8145 51.79562 51.79562 51.79562 51.94057 53.41331 51.79562 51.79562 0.000000 138.5877 286.4925 271.4977 252.1308 254.8323 50.72179 50.72179 50.72179 50.91818 52.24207 50.72179 50.72179 0.000000 145.1255 296.7885 283.7197 266.6960 270.4732 50.38615 50.38615 50.38615 50.54281 51.62650 50.38615 50.38615 0.000000 151.1300 305.9554 294.9605 280.3684 285.4660 50.39378 50.39378 50.39378 50.39104 51.22355 50.39378 50.39378 0.000000 156.8898 314.4233 305.8351 293.7537 299.7876 50.50233 50.50233 50.50233 50.37240 50.93932 50.50233 50.50233 0.000000 162.8878 322.8496 316.1524 306.6595 314.2442 50.69437 50.69437 50.69437 50.40128 50.75752 50.69437 50.69437 0.000000 169.0997 331.0217 326.6765 319.6804 328.4462 50.97245 50.97245 50.97245 50.51412 50.60170 50.97245 50.97245 0.000000 175.2723 339.2550 337.2729 332.5961 342.5753 51.32555 51.32555 51.32555 50.63871 50.53920 51.32555 51.32555 0.000000 185.1731 347.0219 347.6230 345.4578 356.9723 51.62730 51.62730 51.62730 50.84755 50.42407 51.62730 51.62730 0.000000 193.1490 354.8678 357.9021 358.7841 371.3564 51.99751 51.99751 51.99751 50.98847 50.42321 51.99751 51.99751 0.000000 201.7975 362.9539 368.2666 371.6508 385.9127 52.34912 52.34912 52.34912 51.18360 50.38257 52.34912 52.34912 0.000000 210.4731 370.5327 378.8658 384.7435 395.6833 52.69027 52.69027 52.69027 51.33395 50.36581 52.69027 52.69027 0.000000 219.6100 378.5733 389.0655 392.5983 408.2517 53.08479 53.08479 53.08479 51.55382 50.37411 53.08479 53.08479 0.000000 229.3184 386.2387 399.6999 406.3198 423.0982 53.43377 53.43377 53.43377 51.73835 50.35837 53.43377 53.43377 0.000000 239.1844 393.5511 410.0536 417.3763 438.6393 53.84956 53.84956 53.84956 51.94511 50.37385 53.84956 53.84956 0.000000 249.7742 401.5699 421.0304 430.8221 450.3018 54.22933 54.22933 54.22933 52.12704 50.42092 54.22933 54.22933 0.000000 260.6017 409.3425 431.8350 445.0163 465.7168 54.57816 54.57816 54.57816 52.39964 50.45240 54.57816 54.57816 0.000000 271.7026 416.8807 442.4803 455.2940 482.1214 55.00878 55.00878 55.00878 52.53331 50.46715 55.00878 55.00878 0.000000 283.7433 425.3459 453.9840 469.4141 496.0028 55.35648 55.35648 55.35648 52.76315 50.46946 55.35648 55.35648 0.000000 296.1903 432.4825 464.3803 483.6044 509.6665 55.73755 55.73755 55.73755 52.97453 50.51173 55.73755 55.73755 0.000000 309.0421 440.6395 475.7355 496.3166 526.4026 56.15448 56.15448 56.15448 53.16511 50.54233 56.15448 56.15448 0.000000 322.3315 448.0374 487.0526 508.5060 542.2411 56.49405 56.49405 56.49405 53.34322 50.61504 56.49405 56.49405 0.000000 336.9370 455.2817 498.3372 522.8506 559.4106 56.81457 56.81457 56.81457 53.56678 50.67792 56.81457 56.81457 0.000000 350.3390 463.0445 509.5954 537.3167 571.0330 57.23562 57.23562 57.23562 53.77719 50.73165 57.23562 57.23562 0.000000 366.0662 470.7000 520.8332 551.9153 588.5151 57.64199 57.64199 57.64199 53.97526 50.77620 57.64199 57.64199 0.000000 382.4660 479.6686 533.3819 563.0057 604.9448 57.97395 57.97395 57.97395 54.16174 50.81306 57.97395 57.97395 0.000000 398.4660 487.1599 544.6451 576.9271 622.9861 58.29166 58.29166 58.29166 54.39837 50.84290 58.29166 58.29166 0.000000 415.0745 494.5563 557.3291 591.8326 639.8754 58.65738 58.65738 58.65738 54.56342 50.91845 58.65738 58.65738 0.000000 433.6060 501.8607 568.6383 608.2799 656.4772 59.07344 59.07344 59.07344 54.78144 50.98915 59.07344 59.07344 0.000000 451.6150 510.6494 579.9540 623.6005 670.0148 59.47945 59.47945 59.47945 54.92814 50.99773 59.47945 59.47945 0.000000 470.3412 517.8186 592.8565 639.1164 687.4562 59.81242 59.81242 59.81242 55.12896 51.10835 59.81242 59.81242 0.000000 491.3501 526.5577 605.8817 656.3814 706.8955 60.13510 60.13510 60.13510 55.32197 51.10664 60.13510 60.13510 0.000000 510.1051 533.5980 617.3418 664.9072 724.9268 60.51242 60.51242 60.51242 55.50754 51.20730 60.51242 60.51242 0.000000 532.9523 552.0886 630.5686 680.8760 743.2366 60.88139 60.88139 60.88139 55.75000 51.24919 60.88139 60.88139 0.000000 553.2507 561.3970 643.9336 697.0788 763.8137 61.17673 61.17673 61.17673 55.92197 51.28635 61.17673 61.17673 0.000000 578.1503 570.7385 655.5768 713.5241 784.8561 61.59566 61.59566 61.59566 56.15213 51.37315 61.59566 61.59566 0.000000 600.1428 578.1608 669.1745 730.2197 794.4156 61.87483 61.87483 61.87483 56.31162 51.40154 61.87483 61.87483 0.000000 625.1325 587.5267 682.9280 747.1795 813.8023 62.28043 62.28043 62.28043 56.46511 51.48013 62.28043 62.28043 0.000000 651.2275 596.9337 694.7923 764.4121 833.5307 62.68040 62.68040 62.68040 56.67593 51.49786 62.68040 62.68040 0.000000 676.0231 606.3846 708.8094 783.9828 855.9742 62.93788 62.93788 62.93788 56.88420 51.56900 62.93788 62.93788 0.000000 704.3719 615.8818 720.8217 792.0779 874.0540 63.32596 63.32596 63.32596 57.02132 51.63667 63.32596 63.32596 0.000000 734.0233 625.4280 735.1214 807.7980 897.4268 63.70906 63.70906 63.70906 57.28669 51.70100 63.70906 63.70906 0.000000 762.1041 635.0280 749.6008 825.9161 916.0934 63.94698 63.94698 63.94698 57.41414 51.76210 63.94698 63.94698 0.000000 791.2864 642.3093 764.2708 844.3594 940.4582 64.31940 64.31940 64.31940 57.60410 51.82010 64.31940 64.31940 0.000000 821.6373 652.0062 776.6810 860.7361 959.7552 64.68737 64.68737 64.68737 57.78997 51.87511 64.68737 64.68737 0.000000 853.2116 661.7196 791.6684 879.7664 981.9265 65.05102 65.05102 65.05102 57.97186 51.92724 65.05102 65.05102 0.000000 886.0695 671.4914 804.2700 899.1525 994.2491 65.41051 65.41051 65.41051 58.14992 51.97658 65.41051 65.41051 0.000000 920.2777 681.3259 812.4293 916.2563 1014.215 65.76596 65.76596 65.76596 58.32426 52.07851 65.76596 65.76596 0.000000 955.9052 691.2255 827.8173 936.2900 1034.448 66.11752 66.11752 66.11752 58.49500 52.12264 66.11752 66.11752 0.000000 76.38121 196.7239 192.4790 184.0609 185.1537 55.99391 55.99391 55.99391 55.72522 55.93480 55.99391 55.99391 0.000000 125.8224 271.7242 256.2199 235.0302 236.8649 51.76461 51.76461 51.76461 51.90885 53.37040 51.76461 51.76461 0.000000 138.6085 286.5804 271.5862 252.0987 254.9438 50.70890 50.70890 50.70890 50.90635 52.26871 50.70890 50.70890 0.000000 145.1611 296.6443 283.6539 266.7053 270.6492 50.38787 50.38787 50.38787 50.54595 51.60815 50.38787 50.38787 0.000000 151.1816 305.8417 294.9292 280.5981 285.5278 50.35934 50.35934 50.35934 50.40642 51.21405 50.35934 50.35934 0.000000 156.9581 314.6650 305.8400 293.8565 299.9007 50.52765 50.52765 50.52765 50.34361 50.93741 50.52765 50.52765 0.000000 162.9738 323.1445 316.4571 307.0233 314.4117 50.72968 50.72968 50.72968 50.43631 50.76225 50.72968 50.72968 0.000000 169.2043 331.3694 327.0388 319.8871 328.9111 51.01709 51.01709 51.01709 50.55733 50.61237 51.01709 51.01709 0.000000 175.2524 339.6563 337.6948 333.1043 343.1205 51.32864 51.32864 51.32864 50.68940 50.50365 51.32864 51.32864 0.000000 185.3316 347.4763 348.1052 346.0424 357.6021 51.68872 51.68872 51.68872 50.84967 50.44504 51.68872 51.68872 0.000000 193.3340 355.3762 358.4458 359.1668 372.0748 52.06670 52.06670 52.06670 50.99809 50.39620 52.06670 52.06670 0.000000 202.0114 363.5177 368.8737 372.3992 386.7241 52.37393 52.37393 52.37393 51.25466 50.35988 52.37393 52.37393 0.000000 210.7179 371.1508 379.5384 385.5787 396.5326 52.77377 52.77377 52.77377 51.41064 50.34711 52.77377 52.77377 0.000000 219.8880 379.2479 389.8038 394.1220 409.1870 53.12220 53.12220 53.12220 51.63502 50.35914 53.12220 53.12220 0.000000 229.6326 386.9692 400.5064 406.4233 424.1271 53.53061 53.53061 53.53061 51.82464 50.39941 53.53061 53.53061 0.000000 239.5368 394.3368 410.9296 418.4070 439.7674 53.89760 53.89760 53.89760 51.97887 50.36416 53.89760 53.89760 0.000000 250.1685 402.4140 421.9792 432.7163 452.3534 54.28423 54.28423 54.28423 52.22298 50.41578 54.28423 54.28423 0.000000 261.0398 410.2441 432.8573 445.5321 467.9222 54.69368 54.69368 54.69368 52.44201 50.44876 54.69368 54.69368 0.000000 272.7995 417.8405 443.5771 456.5911 483.5543 55.07442 55.07442 55.07442 52.63816 50.46793 55.07442 55.07442 0.000000 284.2800 425.7890 455.1611 470.8099 495.6484 55.48356 55.48356 55.48356 52.81335 50.47298 55.48356 55.48356 0.000000 296.7823 433.5616 465.6323 485.1016 511.3102 55.87026 55.87026 55.87026 53.02849 50.57068 55.87026 55.87026 0.000000 309.6927 441.7807 477.0713 495.8593 528.1685 56.23505 56.23505 56.23505 53.22252 50.60386 56.23505 56.23505 0.000000 323.8477 448.6040 488.4720 510.2001 545.2690 56.57935 56.57935 56.57935 53.46411 50.62616 56.57935 56.57935 0.000000 337.7194 456.5411 499.8416 524.6538 562.6315 57.02222 57.02222 57.02222 53.69151 50.69139 57.02222 57.02222 0.000000 352.1047 464.3659 511.1849 539.2319 573.1576 57.33024 57.33024 57.33024 53.84483 50.74740 57.33024 57.33024 0.000000 366.9956 472.0833 523.7972 555.1216 590.7778 57.74124 57.74124 57.74124 54.10727 50.79546 57.74124 57.74124 0.000000 383.4798 481.1210 535.1569 565.5254 608.7094 58.13826 58.13826 58.13826 54.29548 50.83321 58.13826 58.13826 0.000000 400.6842 488.6745 546.5110 580.4402 626.9664 58.52204 58.52204 58.52204 54.47741 50.86374 58.52204 58.52204 0.000000 417.4562 496.1316 559.2955 595.5240 644.0628 58.89326 58.89326 58.89326 54.70566 50.94298 58.89326 58.89326 0.000000 434.8999 503.4996 570.6990 610.7885 655.6308 59.25253 59.25253 59.25253 54.92706 51.01287 59.25253 59.25253 0.000000 454.3680 512.3588 583.6468 627.6778 674.5955 59.60043 59.60043 59.60043 55.13973 51.02511 59.60043 59.60043 0.000000 473.2911 519.5883 595.1196 643.3874 692.2608 59.93749 59.93749 59.93749 55.34409 51.13822 59.93749 59.93749 0.000000 492.9827 528.3986 608.2549 656.1169 710.1863 60.39262 60.39262 60.39262 55.54056 51.13828 60.39262 60.39262 0.000000 515.1248 535.5026 621.5193 669.5242 730.2195 60.71040 60.71040 60.71040 55.72949 51.24074 60.71040 60.71040 0.000000 534.8439 554.2074 634.9197 685.7006 750.6964 61.08404 61.08404 61.08404 55.91122 51.28435 61.08404 61.08404 0.000000 557.1174 563.5997 646.6373 702.1165 769.6271 61.44961 61.44961 61.44961 56.08607 51.32318 61.44961 61.44961 0.000000 580.3352 573.0262 660.2666 718.7807 788.3694 61.80743 61.80743 61.80743 56.25435 51.41166 61.80743 61.80743 0.000000 604.5592 580.5229 672.1062 735.7013 800.6795 62.15782 62.15782 62.15782 56.41631 51.49599 62.15782 62.15782 0.000000 629.8491 589.9759 685.9838 752.8921 820.3396 62.56882 62.56882 62.56882 56.70345 51.51917 62.56882 62.56882 0.000000 653.9130 599.4713 700.0287 772.3718 840.3510 62.83739 62.83739 62.83739 56.85137 51.59564 62.83739 62.83739 0.000000 683.8698 609.0118 714.2427 788.1199 860.7195 63.23593 63.23593 63.23593 56.99615 51.61385 63.23593 63.23593 0.000000 710.0807 618.6000 726.4293 796.3297 883.9490 63.62924 63.62924 63.62924 57.26886 51.68303 63.62924 63.62924 0.000000 737.3080 628.2385 740.9329 814.3925 902.5913 63.94738 63.94738 63.94738 57.40351 51.74884 63.94738 63.94738 0.000000 768.5667 637.9297 753.2879 832.7747 926.8072 64.25952 64.25952 64.25952 57.60045 51.81139 64.25952 64.25952 0.000000 798.1411 647.7248 768.0980 849.1420 948.8559 64.63699 64.63699 64.63699 57.79309 51.87082 64.63699 64.63699 0.000000 832.2377 657.5339 783.1053 870.5342 971.3380 65.00996 65.00996 65.00996 57.98159 51.92722 65.00996 65.00996 0.000000 864.4381 667.4034 798.3194 887.4206 980.5634 65.37858 65.37858 65.37858 58.16608 51.98071 65.37858 65.37858 0.000000 897.9583 677.3356 811.1143 907.0989 1000.489 65.74298 65.74298 65.74298 58.34669 52.03139 65.74298 65.74298 0.000000 932.8666 684.7010 816.7672 927.1484 1026.955 66.10331 66.10331 66.10331 58.52354 52.13474 66.10331 66.10331 0.000000 969.2329 697.3957 832.3079 944.8070 1047.614 66.45970 66.45970 66.45970 58.76353 52.18015 66.45970 66.45970 0.000000 76.38126 196.7239 192.4889 184.0612 185.1660 55.99493 55.99493 55.99493 55.72686 55.93559 55.99493 55.99493 0.000000 125.8294 271.7625 256.2574 235.0762 236.9138 51.78392 51.78392 51.78392 51.93399 53.38492 51.78392 51.78392 0.000000 138.6287 286.4069 271.6721 252.2010 255.0521 50.69514 50.69514 50.69514 50.89357 52.23901 50.69514 50.69514 0.000000 145.1956 296.7790 283.7901 266.8669 270.8203 50.38842 50.38842 50.38842 50.49294 51.58905 50.38842 50.38842 0.000000 151.2316 306.0267 295.1174 280.6461 285.5824 50.37209 50.37209 50.37209 50.36568 51.20366 50.37209 50.37209 0.000000 157.0243 314.9008 306.0818 294.1438 300.2058 50.50249 50.50249 50.50249 50.36786 50.93449 50.50249 50.50249 0.000000 163.0573 323.0884 316.7536 307.3768 314.5682 50.76319 50.76319 50.76319 50.46965 50.71276 50.76319 50.76319 0.000000 169.3059 331.3464 327.3916 320.3096 329.1233 51.05977 51.05977 51.05977 50.54367 50.62184 51.05977 51.05977 0.000000 175.3724 339.6670 337.8084 333.5994 343.6516 51.37971 51.37971 51.37971 50.73819 50.51714 51.37971 51.37971 0.000000 185.4856 347.9192 348.2602 346.6123 358.2161 51.69719 51.69719 51.69719 50.90527 50.46467 51.69719 51.69719 0.000000 193.5136 355.8710 358.9756 359.5315 372.7753 52.08223 52.08223 52.08223 51.05843 50.36779 52.08223 52.08223 0.000000 202.2194 363.6331 369.4654 373.1292 387.5148 52.44676 52.44676 52.44676 51.26836 50.38818 52.44676 52.44676 0.000000 210.9558 371.7538 379.8241 386.3937 397.3611 52.85468 52.85468 52.85468 51.48262 50.37933 52.85468 52.85468 0.000000 220.1583 379.4359 390.5238 394.9666 410.0996 53.20972 53.20972 53.20972 51.65691 50.34259 53.20972 53.20972 0.000000 229.9381 387.6822 401.2935 405.7140 425.1314 53.62468 53.62468 53.62468 51.85125 50.38631 53.62468 53.62468 0.000000 239.8795 395.1038 411.7844 419.4132 440.8687 53.99798 53.99798 53.99798 52.06757 50.40673 53.99798 53.99798 0.000000 250.5519 403.2383 422.9047 433.8129 453.5455 54.39071 54.39071 54.39071 52.31644 50.40889 54.39071 54.39071 0.000000 261.4661 411.1257 433.8556 445.0219 469.2169 54.80617 54.80617 54.80617 52.48160 50.44489 54.80617 54.80617 0.000000 273.2732 418.7782 444.6481 458.7129 484.9543 55.19269 55.19269 55.19269 52.74042 50.46688 55.19269 55.19269 0.000000 284.8128 426.2056 456.3108 473.0747 498.1256 55.55072 55.55072 55.55072 52.91969 50.52736 55.55072 55.55072 0.000000 297.3586 434.6162 466.8569 487.5128 513.9512 55.94236 55.94236 55.94236 53.13524 50.57492 55.94236 55.94236 0.000000 311.0801 442.8946 478.3765 498.3939 529.8952 56.36984 56.36984 56.36984 53.33670 50.61059 56.36984 56.36984 0.000000 324.5448 449.7747 489.8592 511.8568 547.1196 56.77788 56.77788 56.77788 53.58223 50.63528 56.77788 56.77788 0.000000 338.4816 457.7726 501.3111 527.4978 564.1546 57.10851 57.10851 57.10851 53.75280 50.70285 57.10851 57.10851 0.000000 353.8592 465.6581 512.7404 542.2365 576.4863 57.54031 57.54031 57.54031 53.97019 50.76040 57.54031 57.54031 0.000000 368.8852 474.8282 525.4442 557.1147 594.3069 57.95718 57.95718 57.95718 54.17501 50.80969 57.95718 57.95718 0.000000 384.4680 482.5417 536.8930 567.6159 611.0646 58.29887 58.29887 58.29887 54.42927 50.85124 58.29887 58.29887 0.000000 401.7603 490.1563 549.7284 582.6496 629.4670 58.62607 58.62607 58.62607 54.61086 50.88500 58.62607 58.62607 0.000000 419.8241 497.6746 561.2197 599.1895 648.2194 59.06371 59.06371 59.06371 54.78247 50.96434 59.06371 59.06371 0.000000 436.1619 505.1036 574.2117 614.6340 659.9465 59.49058 59.49058 59.49058 55.00681 51.03808 59.49058 59.49058 0.000000 455.7372 514.0320 585.7665 630.2725 677.5127 59.84369 59.84369 59.84369 55.22235 51.05084 59.84369 59.84369 0.000000 476.2243 521.3222 598.9405 647.6279 697.0345 60.18584 60.18584 60.18584 55.42952 51.16582 60.18584 60.18584 0.000000 496.1241 530.2026 610.5759 656.4105 716.9722 60.51752 60.51752 60.51752 55.62872 51.16762 60.51752 60.51752 0.000000 516.8483 548.6501 623.9501 674.1099 735.4786 60.96946 60.96946 60.96946 55.82032 51.27187 60.96946 60.96946 0.000000 540.2021 556.2836 637.4651 688.8167 754.2778 61.28252 61.28252 61.28252 56.00466 51.31717 61.28252 61.28252 0.000000 560.9655 565.7584 651.1237 707.1233 775.4056 61.71903 61.71903 61.71903 56.18206 51.35764 61.71903 61.71903 0.000000 584.4477 575.2992 663.0326 724.0040 787.3146 62.01492 62.01492 62.01492 56.41799 51.44779 62.01492 62.01492 0.000000 608.9541 584.8521 676.9359 741.1491 806.9076 62.43726 62.43726 62.43726 56.64824 51.53102 62.43726 62.43726 0.000000 632.3074 594.4465 691.0021 758.5712 826.8406 62.71727 62.71727 62.71727 56.80441 51.55852 62.71727 62.71727 0.000000 661.2784 601.9599 703.1466 776.2784 847.1335 63.12655 63.12655 63.12655 56.95713 51.63655 63.12655 63.12655 0.000000 686.6962 613.7714 717.4891 786.6930 870.2179 63.53033 63.53033 63.53033 57.23741 51.65622 63.53033 63.53033 0.000000 715.7650 621.2665 732.0137 804.7762 888.8322 63.92883 63.92883 63.92883 57.37951 51.72689 63.92883 63.92883 0.000000 746.1821 633.2979 746.7215 820.9514 912.8901 64.18109 64.18109 64.18109 57.58363 51.79416 64.18109 64.18109 0.000000 774.9999 640.7794 759.2563 839.5969 934.8387 64.56830 64.56830 64.56830 57.78327 51.85814 64.56830 64.56830 0.000000 804.9718 650.6671 774.2808 858.5751 957.2158 64.95079 64.95079 64.95079 57.97856 51.91896 64.95079 64.95079 0.000000 836.1528 660.5736 787.0029 875.4410 980.0363 65.32873 65.32873 65.32873 58.16967 51.97675 65.32873 65.32873 0.000000 868.6034 670.5397 802.3604 897.5898 989.4463 65.70227 65.70227 65.70227 58.35672 52.03159 65.70227 65.70227 0.000000 902.3861 680.5699 810.7828 915.0087 1012.760 66.07156 66.07156 66.07156 58.53985 52.13897 66.07156 66.07156 0.000000 937.5747 690.6666 826.4189 935.3585 1033.365 66.43673 66.43673 66.43673 58.71665 52.18831 66.43673 66.43673 0.000000 974.2344 700.8292 842.2797 956.1032 1057.544 66.64865 66.64865 66.64865 58.89243 52.28756 66.64865 66.64865 0.000000 + 28.20000 17.00000 15.00000 10.00000 10.00000 0.5500000 0.5500000 0.5500000 0.3000000 0.3500000 0.5500000 0.5500000 0.5500000 + 5.0000001E-02 7.9999998E-02 3.9999999E-02 1.0000000E-03 1.0000000E-03 9.9999998E-03 9.9999998E-03 9.9999998E-03 3.0000000E-03 9.9999998E-03 9.9999998E-03 9.9999998E-03 9.9999998E-03 + 0.1000000 0.1500000 0.1000000 5.5000000E-02 3.9999999E-02 0.3000000 0.3000000 0.3000000 2.9999999E-02 0.3000000 0.3000000 0.3000000 0.3000000 + 7.000000 7.000000 7.500000 8.000000 8.000000 5.000000 5.000000 5.000000 5.000000 5.000000 5.000000 6.000000 5.000000 + 7.9999998E-02 7.9999998E-02 7.9999998E-02 7.9999998E-02 7.9999998E-02 5.0000001E-02 5.0000001E-02 5.0000001E-02 5.0000001E-02 5.0000001E-02 5.0000001E-02 5.0000001E-02 9.9999998E-03 + 0.8680000 0.8680000 0.8400000 0.7800000 0.8680000 0.8680000 0.7840000 0.8680000 0.7840000 0.7840000 0.7840000 0.7840000 0.6302000 + 3.3849999E-02 3.9999999E-02 2.0000000E-02 9.9999998E-03 3.3849999E-02 3.3849999E-02 3.3849999E-02 3.3849999E-02 0.000000 3.3849999E-02 9.9999998E-03 5.100000E-02 3.3849999E-02 + 4.236973 9.526316 7.695652 6.692308 5.385696 4.236973 4.408329 4.236973 6.692308 4.408329 4.882353 8.564800 4.408329 + 1.070072 1.083333 1.040816 1.020202 1.070072 1.070072 1.070072 1.070072 1.000000 1.070072 1.020202 1.107480 1.070072 diff --git a/include.mk b/include.mk new file mode 100644 index 0000000..10e0a00 --- /dev/null +++ b/include.mk @@ -0,0 +1,159 @@ +############################################################################# +# Define make (gnu make works best). +############################################################################# +MAKE=/usr/bin/make + +############################################################################# +# Set your RAMS root path and version number. +############################################################################# +RAMS_ROOT=/home/smsaleeb/rams_20201011_dev +RAMS_VERSION=6.2.16 + +############################################################################# +# Set root locations for HDF5 I/O software. +# Choose parallel or serial processing option for your compile type. +# Typically can use "parallel" for either, but some supercomputers require +# use of the serial executable. +############################################################################# +HDF5_ROOT=/home/smsaleeb/software/hdf5-1.10.7 + +############################################################################# +# Set root locations for parallel processing MPI software. +# You can comment out MPI_ROOT for serial processing compile. +############################################################################# +MPI_ROOT=/home/smsaleeb/software/mpich-3.3.2 + +############################################################################# +# Do not change these 2. They point from RAMS_ROOT to the source code. +############################################################################# +MODEL=$(RAMS_ROOT)/src/$(RAMS_VERSION) +UTILS_INCS=-I$(MODEL)/include + +############################################################################# +# Set HDF libraries and include locations relative to HDF5_ROOT. +# Note that linking libraries below are in a particular order to work! +# You may not need to modify these 3 variables. Try this default. +# Everything after the "-Wl" identifies library location for shared objects. +# HDF5 requires libz (zip) and libsz (szip). These can be linked in LIBS +# in the compiler instead, but need to be on your computer system. +############################################################################# +#HDF5_LIBS=-L$(HDF5_ROOT)/lib -lhdf5_hl -lhdf5 \ +# -Wl,-rpath,/home/smsaleeb/software/szip-2.1/lib \ +# -Wl,-rpath,/home/smsaleeb/software/zlib-1.2.5/lib +HDF5_LIBS=-L$(HDF5_ROOT)/lib -lhdf5_hl -lhdf5 +HDF5_INCS=-I$(HDF5_ROOT)/include +HDF5_DEFS= + +############################################################################# +# TYPE OF COMPUTER SYSTEM (used for DEFINE statements for intrinsic calls). +# Do not change this variable. +############################################################################# +CMACH=PC_LINUX1 #Standard Linux (only option available now) + +############################################################################# +# UNCOMMENT 1 LINUX FORTRAN COMPILER SET OF FLAGS BELOW +############################################################################# +# Note that some Fortran optimizations greater than -O1 will not necessarily +# produce identical results when running same executable multiple times. +# This is perhaps due to order of operations or unrolling loop order that +# changes solutions slightly. This is not ideal for research applications +# involving sensitivity studies that require exact duplication. As such, +# the Makefile is setup to allow different optimizations for different source +# files. The F_OPTS1 and F_OPTS2 variables below can hold different compiler +# flags as needed. Further, for duplication of results you may need to force +# IEEE standard which is done in examples below. +# Please coordinate variables below with the commands in the Makefile. +# Definitions of compiler flags below +# F_COMP = path to compiler executable +# F_OPTS1 = Uses of flags for lower optimization for some files +# F_OPTS2 = Uses of flags for higher optimization for some files +# LOADER_OPTS = Flags and optimaztion for LOADER +# LIBS = Extra system libraries for linking that some compilers need, +# where the need for such libraries will be indicated by error messages +# when compiling the code. + +#***************************** +# FORTRAN INTEL IFORT COMPILER Single Precision +#***************************** +# (-g) for debugging, (-traceback) for more compiler error info +# (-check bounds) for array bounds checking, (-fp-model precise) for IEEE +# (-check uninit) for finding uninitialized variables, (-free) for free format +F_COMP=/home/smsaleeb/intel/composer_xe_2011_sp1.8.273/bin/intel64/ifort +F_OPTS1=-free -O1 -fp-model precise +F_OPTS2=-free -O2 -fp-model precise +LOADER_OPTS= -free -O2 -fp-model precise +LIBS=-L/usr/lib/x86_64-linux-gnu -lrt -lpthread -lsz -lz + +#***************************** +# FORTRAN INTEL IFORT COMPILER Double Precision +#***************************** +# (-g) for debugging, (-traceback) for more compiler error info +# (-check bounds) for array bounds checking, (-fp-model precise) for IEEE +# (-check uninit) for finding uninitialized variables, (-free) for free format +#F_COMP=/home/smsaleeb/intel/composer_xe_2011_sp1.8.273/bin/intel64/ifort +#F_OPTS1=-free -O1 -fp-model precise -real-size 64 +#F_OPTS2=-free -O2 -fp-model precise -real-size 64 +#LOADER_OPTS= -free -O2 -fp-model precise -real-size 64 +#LIBS=-L/usr/lib/x86_64-linux-gnu -lrt -lpthread -lz -lsz + +#***************************** +# FORTRAN PGI PGF90 COMPILER +#***************************** +# (-g) for debugging, (-Kieee) for IEEE, (-Mfree) for free format +#F_COMP=/opt/pgi/linux86-64/19.4/bin/pgf90 +#F_OPTS1=-Mfree -O1 -Kieee +#F_OPTS2=-Mfree -O2 -Kieee +#LOADER_OPTS=-Mfree -O2 -Kieee +#LIBS=-L/usr/lib/x86_64-linux-gnu -lrt -lpthread -lz -lsz + +#***************************** +# FORTRAN GFORTRAN COMPILER +# This compiler is not recommended and make not work as is. Gfortran seems +# to be less intuitive about certain code compared to PGF90 and IFORT. +#***************************** +# (-Wall) for warnings, (-ffree-form) for free format +# (-fno-sign-zero) for not making zeros negative values +# (-fcheck=bounds) check for array bounds issues +# (-fcheck=all) all runtime checking +#F_COMP=/usr/bin/gfortran +#F_OPTS1=-ffree-form -O1 +#F_OPTS2=-ffree-form -O2 +#LOADER_OPTS=-ffree-form -O2 +#LIBS=-L/usr/lib/x86_64-linux-gnu -lrt -lpthread -lz -lsz + +############################################################################# +# C compiler choice and flags (gcc) and (mpicc) are most common +# Add the "-DRAMS_DOUBLE_PREC" compiler flag to "C_OPTS" for turning on +# double precision rather than default double precision. Note that using +# double will make output and runtimes substantially longer but provide the +# extra precision needed in some highly sensitive simulations. +# Add the "-DENABLE_PARALLEL_COMPRESSION" flag to attempt doing parallel +# compression of HDF5 output. Sometime this works and sometimes it does not. +# But if it does work, it will make it past the first analysis file write. +# If it does not work, it will fail or hang on the first file write. +############################################################################# +C_COMP=gcc +C_OPTS=-O3 -DUNDERSCORE -DLITTLE -std=c99 +#C_OPTS=-O3 -DUNDERSCORE -DLITTLE -std=c99 -DRAMS_DOUBLE_PREC + +############################################################################# +# System archive command syntax +# This might need different arguments depending on your Linux system. More +# recent versions have needed the "U" argument to prevent full RAMS recompile +# when only changing perhaps one file that does not have lots of dependencies +############################################################################# +ARCH=ar rsU + +############################################################################# +# MPI - (Message Passing Interface) parallel processing choices required for +# parallel enabled HDF5 and parallel processing on many-core systems. +# Libraries to add to the PAR_LIBS list depend on your version of MPI +# software and HDF5 software. +# Add or remove needed libraries to PAR_LIBS. Missing or needed libraries +# will be highlighted in compile time error messages. Typical library +# specs are: -lmpich, -lmpl, -lmpi. +# Comment out these "PAR_" lines for serial processing compile. +############################################################################# +PAR_INCS=-I$(MPI_ROOT)/include +PAR_LIBS=-L$(MPI_ROOT)/lib -lmpich -lmpl +PAR_DEFS=-DRAMS_MPI diff --git a/src/6.2.16/bc/cyclic_mod.f90 b/src/6.2.16/bc/cyclic_mod.f90 new file mode 100644 index 0000000..871c886 --- /dev/null +++ b/src/6.2.16/bc/cyclic_mod.f90 @@ -0,0 +1,43 @@ +!############################################################################## +Module cyclic_mod + +implicit none + +integer, save :: & + npts_cyc=0 & ! number of ij columns in icycpaths array + ,nbuffsend_cyc & ! size of send buffer + ,nbuffrecv_cyc ! size of receive buffer (for each node received from) + +integer, save, dimension(2) :: & + ndns_cyc=0 & ! number of destination nodes this source node sends to + ,nsns_cyc=0 ! number of source nodes that send to this destination node + +integer, save, allocatable, dimension(:,:) :: & + ndn_cyc & ! counter over destination nodes actually sent to + ,nsn_cyc & ! counter over source nodes actually received from + ,msn_cyc & ! list of source nodes that send to this destination node + ,mdn_cyc & ! list of destination node numbers sent to + ,ijrecv_cyc & ! list of ij columns received in buffer + ,nijsendt_cyc & ! number of t ij columns sent to each destination node + ,nijsendu_cyc & ! number of u ij columns sent to each destination node + ,nijsendv_cyc & ! number of v ij columns sent to each destination node + ,nijrecvt_cyc & ! number of t ij columns received from each source node + ,nijrecvu_cyc & ! number of u ij columns received from each source node + ,nijrecvv_cyc & ! number of v ij columns received from each source node + ,buffsend_cyc & ! send buffer + ,buffrecv_cyc ! receive buffer + +integer, save, allocatable, dimension(:,:,:) :: & + ipathst_cyc & ! cyclic paths array + ,ipathsu_cyc & ! cyclic paths array + ,ipathsv_cyc & ! cyclic paths array + ,isend_req_cyc & ! send request array + ,irecv_req_cyc ! receive request array + +integer, save, allocatable, dimension(:,:,:,:) :: & + ijsendt_cyc & ! list of ij columns sent to each destination node + ,ijsendu_cyc & ! list of ij columns sent to each destination node + ,ijsendv_cyc ! list of ij columns sent to each destination node + +END MODULE cyclic_mod + diff --git a/src/6.2.16/bc/rbnd.f90 b/src/6.2.16/bc/rbnd.f90 new file mode 100644 index 0000000..d4fce14 --- /dev/null +++ b/src/6.2.16/bc/rbnd.f90 @@ -0,0 +1,1039 @@ +!############################################################################## +Subroutine latbnd () + +use mem_tend +use mem_basic +use mem_grid +use node_mod + +implicit none + +! This routine drives the computation of the radiative lateral +! boundary condition for normal velocity on the coarsest grid +! and the recomputation of all boundary tendencies on nested grids +! after the first nested grid timestep. + +if (nxtnest(ngrid) .eq. 0) then + +! Radiative and/or mesoscale compensation region lateral +! boundary conditions. + + if (ibnd .eq. 1 .or. jbnd .eq. 1) then + + CALL latnormv (mzp,mxp,myp,ibcon & + ,basic_g(ngrid)%up (1,1,1) ,tend%ut (1) & + ,basic_g(ngrid)%vp (1,1,1) ,tend%vt (1) & + ,grid_g(ngrid)%dxt (1,1) ,grid_g(ngrid)%dyt (1,1) ) + + endif + +endif + +return +END SUBROUTINE latbnd + +!############################################################################## +Subroutine latnormv (m1,m2,m3,ibcon,up,ut,vp,vt,dxt,dyt) + +use mem_grid + +implicit none + +integer :: m1,m2,m3,ibcon,i,j,k + +real :: dxl,dxr,cphx,cphy +real, dimension(m1,m2,m3) :: up,ut,vp,vt +real, dimension(m2,m3) :: dxt,dyt + +! This routine ultimately updates tendencies at lateral boundaries +! after first diagnosing appropriate phase speeds. +! +! IBND and JBND are flags for the radiative type in the X and Y +! direction. Their meaning is: +! +! IBND=1......Klemp-Wilhelmson (1978) type; phase speed given +! by CPHAS +! +! If this is the first call to a routine, initialize the phase +! speed arrays if necessary. + +if (ibcon.eq.0) return + +! first compute "X" boundaries. + +if (iand(ibcon,1) .ne. 0) then + do j = 1,m3 + dxl = 1. / (dtlv * dxt(2,j)) + do k = 2,m1 + + cphx = min(0.,max(-dxl,(up(k,1,j)-cphas))) + ut(k,1,j) = ut(k,1,j) - cphx * dxt(2,j) & + * (up(k,2,j) + ut(k,2,j) * dtlv - up(k,1,j)) + + enddo + enddo +endif + +if (iand(ibcon,2) .ne. 0) then + do j = 1,m3 + dxr = 1. / (dtlv * dxt(m2-1,j)) + do k = 2,m1 + + cphx = max(0.,min(dxr,(up(k,m2-1,j)+cphas))) + ut(k,m2-1,j) = ut(k,m2-1,j) - cphx * dxt(m2-1,j) & + * (up(k,m2-1,j) - (up(k,m2-2,j) + ut(k,m2-2,j) * dtlv)) + + enddo + enddo +endif + +! South and north boundaries. + +if (jdim .eq. 1) then + + if (iand(ibcon,4) .ne. 0) then + do i = 1,m2 + dxl = 1. / (dtlv * dyt(i,2)) + do k = 2,m1 + cphy = min(0.,max(-dxl,(vp(k,i,1)-cphas))) + vt(k,i,1) = vt(k,i,1) - cphy * dyt(i,2) & + * (vp(k,i,2) + vt(k,i,2) * dtlv - vp(k,i,1)) + enddo + enddo + endif + + if (iand(ibcon,8) .ne. 0) then + do i = 1,m2 + dxr = 1. / (dtlv * dyt(i,m3-1)) + do k = 2,m1 + cphy = max(0.,min(dxr,(vp(k,i,m3-1)+cphas))) + vt(k,i,m3-1) = vt(k,i,m3-1) - cphy * dyt(i,m3-1) & + * (vp(k,i,m3-1) - (vp(k,i,m3-2) + vt(k,i,m3-2) * dtlv)) + enddo + enddo + endif + +endif + +return +END SUBROUTINE latnormv + +!############################################################################## +Subroutine update_cyclic (isflag) + +! This routine will update cyclic boundary values for either sequential or +! parallel modes. The argument isflag denotes which variables to update. +! +! update_cyclic is called from trsets() for updating scalar vars, and from +! acoust() for updating u, v, p, and w. + +use var_tables +use mem_grid +use mem_basic +use mem_turb +use node_mod + +implicit none + + integer :: isflag + + integer :: ivar + real, pointer :: scalarp + + if (nmachs .eq. 1) then + ! sequential run + select case (isflag) + case(LBC_ALL_SCALARS) + do ivar = 1,num_scalar(1) + scalarp => scalar_tab(ivar,1)%var_p + CALL cyclic (nnzp(1),nnxp(1),nnyp(1),scalarp,'T') + enddo + case(LBC_UP) + CALL cyclic (nnzp(1),nnxp(1),nnyp(1),basic_g(1)%up,'U') + case(LBC_VP) + CALL cyclic (nnzp(1),nnxp(1),nnyp(1),basic_g(1)%vp,'V') + case(LBC_PP) + CALL cyclic (nnzp(1),nnxp(1),nnyp(1),basic_g(1)%pp,'P') + case(LBC_WP) + CALL cyclic (nnzp(1),nnxp(1),nnyp(1),basic_g(1)%wp,'W') + case default + print*, 'ERROR: update_cyclic: isflag value out of allowed' + print*, 'range (1-5): ', isflag + stop + endselect + else + ! parallel run + + ! Want to mimic the algorithm in cyclic() which first processes in + ! the x-direction followed by the y-direction. The second arg to + ! sendcyclic/getcyclic specifies the direction (1 -> x, 2 -> y). + if (ibnd .eq. 2) then + CALL node_sendcyclic (isflag,1) + CALL node_getcyclic (isflag,1) + + ! update overlap regions + select case (isflag) + case(LBC_ALL_SCALARS) + CALL update_lbc_vgroup (ngrid,LBC_ALL_SCALARS) + case(LBC_UP) + CALL update_lbc_var(mmzp(ngrid),mmxp(ngrid),mmyp(ngrid),ngrid & + ,basic_g(ngrid)%up,3) + case(LBC_VP) + CALL update_lbc_var(mmzp(ngrid),mmxp(ngrid),mmyp(ngrid),ngrid & + ,basic_g(ngrid)%vp,3) + case(LBC_PP) + CALL update_lbc_var(mmzp(ngrid),mmxp(ngrid),mmyp(ngrid),ngrid & + ,basic_g(ngrid)%pp,3) + case(LBC_WP) + CALL update_lbc_var(mmzp(ngrid),mmxp(ngrid),mmyp(ngrid),ngrid & + ,basic_g(ngrid)%wp,3) + endselect + endif + + if ((jbnd .eq. 2) .and. (jdim .eq. 1)) then + CALL node_sendcyclic (isflag,2) + CALL node_getcyclic (isflag,2) + + ! update overlap regions + select case (isflag) + case(LBC_ALL_SCALARS) + CALL update_lbc_vgroup (ngrid,LBC_ALL_SCALARS) + case(LBC_UP) + CALL update_lbc_var(mmzp(ngrid),mmxp(ngrid),mmyp(ngrid),ngrid & + ,basic_g(ngrid)%up,3) + case(LBC_VP) + CALL update_lbc_var(mmzp(ngrid),mmxp(ngrid),mmyp(ngrid),ngrid & + ,basic_g(ngrid)%vp,3) + case(LBC_PP) + CALL update_lbc_var(mmzp(ngrid),mmxp(ngrid),mmyp(ngrid),ngrid & + ,basic_g(ngrid)%pp,3) + case(LBC_WP) + CALL update_lbc_var(mmzp(ngrid),mmxp(ngrid),mmyp(ngrid),ngrid & + ,basic_g(ngrid)%wp,3) + endselect + endif + endif + + return +END SUBROUTINE update_cyclic + +!############################################################################## +Subroutine cyclic (n1,n2,n3,var,vpnt) + +use mem_grid + +implicit none + +integer :: n1,n2,n3,ncycle,nshift,i,j,k +real, dimension(n1,n2,n3) :: var +character(len=*) :: vpnt + +! This routine inputs a 3d variable VAR dimensioned by N1,N2,N3 +! and sets the boundaries to cyclic symmetry. This version is +! set up for second order advection only. + +if (ibnd .eq. 2) then + ncycle = n2 - 3 + nshift = 0 + if (vpnt .eq. 'U') nshift = 1 + do j = 1,n3 + do k = 1,n1 + var(k,1,j) = var(k,ncycle+1,j) + var(k,n2-nshift,j) = var(k,n2-nshift-ncycle,j) + enddo + enddo + + if (vpnt .ne. 'U') then + do j = 1,n3 + do k = 1,n1 + var(k,2,j) = 0.5 * (var(k,2,j) + var(k,n2-1,j)) + var(k,n2-1,j) = var(k,2,j) + enddo + enddo + endif +endif + +if (jbnd .eq. 2 .and. jdim .eq. 1) then + ncycle = n3 - 3 + nshift = 0 + if (vpnt .eq. 'V') nshift = 1 + do i = 1,n2 + do k = 1,n1 + var(k,i,1) = var(k,i,ncycle+1) + var(k,i,n3-nshift) = var(k,i,n3-nshift-ncycle) + enddo + enddo + + if (vpnt .ne. 'V') then + do i = 1,n2 + do k = 1,n1 + var(k,i,2) = 0.5 * (var(k,i,2) + var(k,i,n3-1)) + var(k,i,n3-1) = var(k,i,2) + enddo + enddo + endif + +endif + +return +END SUBROUTINE cyclic + +!############################################################################## +Subroutine vpsets () + +use mem_basic +use mem_grid +use node_mod + +implicit none + +if (nxtnest(ngrid) .eq. 0) then + CALL latset (mzp,mxp,myp,ia,iz,ja,jz,ibcon,'U' & + ,basic_g(ngrid)%up (1,1,1) ,basic_g(ngrid)%up (1,1,1) & + ,basic_g(ngrid)%vp (1,1,1) ,grid_g(ngrid)%dxu (1,1) & + ,grid_g(ngrid)%dxm (1,1) ,grid_g(ngrid)%dyv (1,1) & + ,grid_g(ngrid)%dym (1,1) ,'NULL') + CALL latset (mzp,mxp,myp,ia,iz,ja,jz,ibcon,'V' & + ,basic_g(ngrid)%vp (1,1,1) ,basic_g(ngrid)%up (1,1,1) & + ,basic_g(ngrid)%vp (1,1,1) ,grid_g(ngrid)%dxu (1,1) & + ,grid_g(ngrid)%dxm (1,1) ,grid_g(ngrid)%dyv (1,1) & + ,grid_g(ngrid)%dym (1,1) ,'NULL') + CALL latset (mzp,mxp,myp,ia,iz,ja,jz,ibcon,'W' & + ,basic_g(ngrid)%wp (1,1,1) ,basic_g(ngrid)%up (1,1,1) & + ,basic_g(ngrid)%vp (1,1,1) ,grid_g(ngrid)%dxu (1,1) & + ,grid_g(ngrid)%dxm (1,1) ,grid_g(ngrid)%dyv (1,1) & + ,grid_g(ngrid)%dym (1,1) ,'NULL') + CALL latset (mzp,mxp,myp,ia,iz,ja,jz,ibcon,'P' & + ,basic_g(ngrid)%pp (1,1,1) ,basic_g(ngrid)%up (1,1,1) & + ,basic_g(ngrid)%vp (1,1,1) ,grid_g(ngrid)%dxu (1,1) & + ,grid_g(ngrid)%dxm (1,1) ,grid_g(ngrid)%dyv (1,1) & + ,grid_g(ngrid)%dym (1,1) ,'NULL') +endif + +if (nsttop .eq. 1) then + CALL topset (mzp,mxp,myp,basic_g(ngrid)%up(1,1,1),'U') + CALL topset (mzp,mxp,myp,basic_g(ngrid)%vp(1,1,1),'V') +endif + +if (nstbot .eq. 1) then + CALL botset (mzp,mxp,myp,basic_g(ngrid)%up(1,1,1),'U') + CALL botset (mzp,mxp,myp,basic_g(ngrid)%vp(1,1,1),'V') +endif + +CALL topset (mzp,mxp,myp,basic_g(ngrid)%pp(1,1,1),'P') + +CALL botset (mzp,mxp,myp,basic_g(ngrid)%pp(1,1,1),'P') + +CALL dumset (mzp,mxp,myp,ibcon,basic_g(ngrid)%wp(1,1,1),'W') +CALL dumset (mzp,mxp,myp,ibcon,basic_g(ngrid)%up(1,1,1),'U') +CALL dumset (mzp,mxp,myp,ibcon,basic_g(ngrid)%vp(1,1,1),'V') + +if (nxtnest(ngrid) .eq. 0) then + CALL latset (mzp,mxp,myp,ia,iz,ja,jz,ibcon,'U' & + ,basic_g(ngrid)%uc (1,1,1) ,basic_g(ngrid)%up (1,1,1) & + ,basic_g(ngrid)%vp (1,1,1) ,grid_g(ngrid)%dxu (1,1) & + ,grid_g(ngrid)%dxm (1,1) ,grid_g(ngrid)%dyv (1,1) & + ,grid_g(ngrid)%dym (1,1) ,'NULL') + CALL latset (mzp,mxp,myp,ia,iz,ja,jz,ibcon,'V' & + ,basic_g(ngrid)%vc (1,1,1) ,basic_g(ngrid)%up (1,1,1) & + ,basic_g(ngrid)%vp (1,1,1) ,grid_g(ngrid)%dxu (1,1) & + ,grid_g(ngrid)%dxm (1,1) ,grid_g(ngrid)%dyv (1,1) & + ,grid_g(ngrid)%dym (1,1) ,'NULL') + CALL latset (mzp,mxp,myp,ia,iz,ja,jz,ibcon,'W' & + ,basic_g(ngrid)%wc (1,1,1) ,basic_g(ngrid)%up (1,1,1) & + ,basic_g(ngrid)%vp (1,1,1) ,grid_g(ngrid)%dxu (1,1) & + ,grid_g(ngrid)%dxm (1,1) ,grid_g(ngrid)%dyv (1,1) & + ,grid_g(ngrid)%dym (1,1) ,'NULL') + CALL latset (mzp,mxp,myp,ia,iz,ja,jz,ibcon,'P' & + ,basic_g(ngrid)%pc (1,1,1) ,basic_g(ngrid)%up (1,1,1) & + ,basic_g(ngrid)%vp (1,1,1) ,grid_g(ngrid)%dxu (1,1) & + ,grid_g(ngrid)%dxm (1,1) ,grid_g(ngrid)%dyv (1,1) & + ,grid_g(ngrid)%dym (1,1) ,'NULL') +endif + +if (nsttop .eq. 1) then + CALL topset (mzp,mxp,myp,basic_g(ngrid)%uc(1,1,1),'U') + CALL topset (mzp,mxp,myp,basic_g(ngrid)%vc(1,1,1),'V') +endif + +if (nstbot .eq. 1) then + CALL botset (mzp,mxp,myp,basic_g(ngrid)%uc(1,1,1),'U') + CALL botset (mzp,mxp,myp,basic_g(ngrid)%vc(1,1,1),'V') +endif + +CALL topset (mzp,mxp,myp,basic_g(ngrid)%pc(1,1,1),'P') + +CALL botset (mzp,mxp,myp,basic_g(ngrid)%pc(1,1,1),'P') + +CALL dumset (mzp,mxp,myp,ibcon,basic_g(ngrid)%wc(1,1,1),'W') +CALL dumset (mzp,mxp,myp,ibcon,basic_g(ngrid)%uc(1,1,1),'U') +CALL dumset (mzp,mxp,myp,ibcon,basic_g(ngrid)%vc(1,1,1),'V') + +return +END SUBROUTINE vpsets + +!############################################################################## +Subroutine trsets () + +use var_tables +use mem_basic +use mem_grid +use mem_turb +use node_mod + +implicit none + +integer :: n +real, pointer :: scalarp, scalart + +! Apply lateral, top, and bottom boundary conditions. + +! Update scalar overlap regions +if (nmachs .gt. 1) CALL update_lbc_vgroup (ngrid,LBC_ALL_SCALARS) + +! Update scalar cyclic boundaries +if (ngrid .eq. 1) CALL update_cyclic (LBC_ALL_SCALARS) + +do n = 1,num_scalar(ngrid) + scalarp => scalar_tab(n,ngrid)%var_p + scalart => scalar_tab(n,ngrid)%var_t + + if (nxtnest(ngrid) .eq. 0) then + CALL latset (mzp,mxp,myp,ia,iz,ja,jz,ibcon,'TR' & + ,scalarp ,basic_g(ngrid)%up (1,1,1) & + ,basic_g(ngrid)%vp (1,1,1) ,grid_g(ngrid)%dxu (1,1) & + ,grid_g(ngrid)%dxm (1,1) ,grid_g(ngrid)%dyv (1,1) & + ,grid_g(ngrid)%dym (1,1) ,scalar_tab(n,ngrid)%name) + endif + + if (nsttop .eq. 1) & + CALL topset (mzp,mxp,myp,scalarp,'T') + if (nstbot .eq. 1) then + CALL botset (mzp,mxp,myp,scalarp,'T') + endif +enddo + +! Make sure all positive definite quantities remain such. + +CALL tkeinit (mzp,mxp,myp) + +return +END SUBROUTINE trsets + +!############################################################################## +Subroutine latset (m1,m2,m3,ia,iz,ja,jz,ibcon,vnam,ap,uc,vc,dxu,dxm,dyv,dym & + ,sname) + +use mem_grid +use micphys +use mem_leaf, only:isfcl + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,ibcon,i,j,k,lbw,lbe,lbs,lbn,setlbcinit +real :: thresh,dtlx,c1,dxr,dyr,atau +real, dimension(m1,m2,m3) :: ap,uc,vc +real, dimension(m2,m3) :: dxu,dxm,dyv,dym +character(len=*) :: vnam,sname +real, dimension(:), allocatable :: temp_v1, temp_v2 + +lbw=0 !Variable initialized +lbe=0 !Variable initialized +lbs=0 !Variable initialized +lbn=0 !Variable initialized + +if (iand(ibcon,1) .gt. 0) lbw = ia - 1 +if (iand(ibcon,2) .gt. 0) lbe = iz + 1 +if (iand(ibcon,4) .gt. 0) lbs = ja - 1 +if (iand(ibcon,8) .gt. 0) lbn = jz + 1 + +thresh = 0. +if (vnam.eq.'U' .or. vnam.eq.'V' .or. vnam.eq.'W' .or. vnam.eq.'P') then + dtlx = dtlv +else + dtlx = dtlt +endif + +!This is in place to be able to set 1 interior boundary points +!toward the initial conditions for certain variables so we do not +!lose certain fields over time. Only used for zero gradient or +!radiative BC (LSFLG = 0 or 1). +setlbcinit=0 +atau=max(bctau(ngrid),dtlt) !prevent from being less than dtlt + +!LBC reset for aerosols +if(iaerolbc(ngrid)==1)then + if( ((sname == 'CIFNP') .and. & + (jnmb(3)>=5 .and. (iifn==1.or.iifn==2))) .or. & + ((sname == 'CCCNP' .or. sname == 'CCCMP' .or. & + sname == 'GCCNP' .or. sname == 'GCCMP') .and. & + iaerosol==1) .or. & + ((sname == 'MD1NP' .or. sname == 'MD1MP' .or. & + sname == 'MD2NP' .or. sname == 'MD2MP') .and. & + idust==1) .or. & + ((sname == 'SALT_FILM_NP' .or. sname == 'SALT_FILM_MP' .or. & + sname == 'SALT_JET_NP' .or. sname == 'SALT_JET_MP' .or. & + sname == 'SALT_SPUM_NP' .or. sname == 'SALT_SPUM_MP') .and. & + isalt==1) ) then + setlbcinit=1 + endif +endif + +!LBC reset for CO2 if SiB land surface model is used +if(ico2lbc(ngrid)==1)then + if(sname == 'RCO2P' .and. isfcl==2) then + setlbcinit=1 + endif +endif + +allocate(temp_v1(m1)) +allocate(temp_v2(m1)) + +if (ibnd .ne. 2 .and. vnam .ne. 'U' .and. lsflg .ne. 3) then + +! Western and Eastern boundaries for zero gradient option + + if (lsflg .eq. 0) then + if (iand(ibcon,1) .gt. 0) then + do j = 1,m3 + do k = 1,m1 + if(setlbcinit==1) then + ap(k,ia,j) = ap(k,ia,j)+(ap(k,lbw,j)-ap(k,ia,j))*(dtlt/atau) + endif + ap(k,lbw,j) = ap(k,ia,j) + enddo + enddo + endif + if (iand(ibcon,2) .gt. 0) then + do j = 1,m3 + do k = 1,m1 + if(setlbcinit==1) then + ap(k,iz,j) = ap(k,iz,j)+(ap(k,lbe,j)-ap(k,iz,j))*(dtlt/atau) + endif + ap(k,lbe,j) = ap(k,iz,j) + enddo + enddo + endif + else + +! Western boundary for lsflg = 1 or 2 + + if (iand(ibcon,1) .gt. 0) then + do j = 1,m3 + if (vnam .eq. 'V') then + dxr = dxm(ia,j) / dxm(lbw,j) + c1 = .5 * dtlx * dxm(lbw,j) + do k = 1,m1 + if(j==m3)then + temp_v1(k) = -c1 * uc(k,lbw,j) + else + temp_v1(k) = -c1 * (uc(k,lbw,j) + uc(k,lbw,j+jdim)) + endif +!if(k==2.and.j==m3)print*,'westbc-V',lbw,temp_v1(k),uc(k,lbw,j),uc(k,lbw,j+jdim) + enddo + elseif (vnam .eq. 'W') then + dxr = dxu(ia,j) / dxu(lbw,j) + c1 = .5 * dtlx * dxu(lbw,j) + do k = 1,m1 + if(k==m1)then + temp_v1(k) = -c1 * uc(k,lbw,j) + else + temp_v1(k) = -c1 * (uc(k,lbw,j) + uc(k+1,lbw,j)) + endif +!if(k==m1.and.j==m3)print*,'westbc-W',lbw,temp_v1(k),uc(k,lbw,j),uc(k+1,lbw,j) + enddo + else + dxr = dxu(ia,j) / dxu(lbw,j) + c1 = dtlx * dxu(lbw,j) + do k = 1,m1 + temp_v1(k) = -c1 * uc(k,lbw,j) + enddo + endif + do k = 1,m1 + temp_v2(k) = ap(k,ia,j) + dxr * (ap(k,ia,j) - ap(k,ia+1,j)) + enddo + do k = 1,m1 + if (temp_v1(k) .ge. thresh) then + if(setlbcinit==1) then + ap(k,ia,j) = ap(k,ia,j)+(ap(k,lbw,j)-ap(k,ia,j))*(dtlt/atau) + ap(k,lbw,j) = ap(k,ia,j) + else !radiative BC + ap(k,lbw,j) = temp_v2(k) + endif + elseif (lsflg .eq. 1) then + if(setlbcinit==1) then + ap(k,ia,j) = ap(k,ia,j)+(ap(k,lbw,j)-ap(k,ia,j))*(dtlt/atau) + endif + ap(k,lbw,j) = ap(k,ia,j) + endif + enddo + enddo + endif + +! Eastern Boundary for LSFLG = 1 or 2 + + if (iand(ibcon,2) .gt. 0) then + do j = 1,m3 + if (vnam .eq. 'V') then + dxr = dxm(iz-1,j) / dxm(iz,j) + c1 = .5 * dtlx * dxm(iz,j) + do k = 1,m1 + if(j==m3)then + temp_v1(k) = c1 * uc(k,iz,j) + else + temp_v1(k) = c1 * (uc(k,iz,j) + uc(k,iz,j+jdim)) + endif +!if(k==2.and.j==m3)print*,'eastbc-V',iz,temp_v1(k),uc(k,iz,j),uc(k,iz,j+jdim) + enddo + elseif (vnam .eq. 'W') then + dxr = dxu(iz-1,j) / dxu(iz,j) + c1 = .5 * dtlx * dxu(iz,j) + do k = 1,m1 + if(k==m1)then + temp_v1(k) = c1 * uc(k,iz,j) + else + temp_v1(k) = c1 * (uc(k,iz,j) + uc(k+1,iz,j)) + endif +!if(k==m1.and.j==m3)print*,'eastbc-W',iz,temp_v1(k),uc(k,iz,j),uc(k+1,iz,j) + enddo + else + dxr = dxu(iz-1,j) / dxu(iz,j) + c1 = dtlx * dxu(iz,j) + do k = 1,m1 + temp_v1(k) = c1 * uc(k,iz,j) + enddo + endif + do k = 1,m1 + temp_v2(k) = ap(k,iz,j) + dxr * (ap(k,iz,j) - ap(k,iz-1,j)) + enddo + do k = 1,m1 + if (temp_v1(k) .ge. thresh) then + if(setlbcinit==1) then + ap(k,iz,j) = ap(k,iz,j)+(ap(k,lbe,j)-ap(k,iz,j))*(dtlt/atau) + ap(k,lbe,j) = ap(k,iz,j) + else !radiative BC + ap(k,lbe,j) = temp_v2(k) + endif + elseif (lsflg .eq. 1) then + if(setlbcinit==1) then + ap(k,iz,j) = ap(k,iz,j)+(ap(k,lbe,j)-ap(k,iz,j))*(dtlt/atau) + endif + ap(k,lbe,j) = ap(k,iz,j) + endif + enddo + enddo + endif + endif +endif + +if(jdim.eq.1.and.jbnd.ne.2.and.vnam.ne.'V'.and.lsflg.ne.3)then + +! Southern and Northern boundaries for zero gradient option + + if (lsflg .eq. 0) then + if (iand(ibcon,4) .gt. 0) then + do i = 1,m2 + do k = 1,m1 + if(setlbcinit==1) then + ap(k,i,ja) = ap(k,i,ja)+(ap(k,i,lbs)-ap(k,i,ja))*(dtlt/atau) + endif + ap(k,i,lbs) = ap(k,i,ja) + enddo + enddo + endif + if (iand(ibcon,8) .gt. 0) then + do i = 1,m2 + do k = 1,m1 + if(setlbcinit==1) then + ap(k,i,jz) = ap(k,i,jz)+(ap(k,i,lbn)-ap(k,i,jz))*(dtlt/atau) + endif + ap(k,i,lbn) = ap(k,i,jz) + enddo + enddo + endif + else + +! Southern boundary for LSFLG = 1 or 2 + + if (iand(ibcon,4) .gt. 0) then + do i = 1,m2 + if (vnam .eq. 'U') then + dyr = dym(i,ja) / dym(i,lbs) + c1 = .5 * dtlx * dym(i,lbs) + do k = 1,m1 + if(i==m2)then + temp_v1(k) = -c1 * vc(k,i,lbs) + else + temp_v1(k) = -c1 * (vc(k,i,lbs) + vc(k,i+1,lbs)) + endif +!if(k==2.and.i==m2)print*,'southbc-U',lbs,temp_v1(k),vc(k,i,lbs),vc(k,i+1,lbs) + enddo + elseif (vnam .eq. 'W') then + dyr = dyv(i,ja) / dyv(i,lbs) + c1 = .5 * dtlx * dyv(i,lbs) + do k = 1,m1 + if(k==m1)then + temp_v1(k) = -c1 * vc(k,i,lbs) + else + temp_v1(k) = -c1 * (vc(k,i,lbs) + vc(k+1,i,lbs)) + endif +!if(k==m1.and.i==m2)print*,'southbc-W',lbs,temp_v1(k),vc(k,i,lbs),vc(k+1,i,lbs) + enddo + else + dyr = dyv(i,ja) / dyv(i,lbs) + c1 = dtlx * dyv(i,lbs) + do k = 1,m1 + temp_v1(k) = -c1 * vc(k,i,lbs) + enddo + endif + do k = 1,m1 + temp_v2(k) = ap(k,i,ja) + dyr * (ap(k,i,ja) - ap(k,i,ja+1)) + enddo + do k = 1,m1 + if (temp_v1(k) .ge. thresh) then + if(setlbcinit==1) then + ap(k,i,ja) = ap(k,i,ja)+(ap(k,i,lbs)-ap(k,i,ja))*(dtlt/atau) + ap(k,i,lbs) = ap(k,i,ja) + else !radiative BC + ap(k,i,lbs) = temp_v2(k) + endif + elseif (lsflg .eq. 1) then + if(setlbcinit==1) then + ap(k,i,ja) = ap(k,i,ja)+(ap(k,i,lbs)-ap(k,i,ja))*(dtlt/atau) + endif + ap(k,i,lbs) = ap(k,i,ja) + endif + enddo + enddo + endif + +! Northern Boundary for LSFLG = 1 or 2 + + if (iand(ibcon,8) .gt. 0) then + do i = 1,m2 + if (vnam .eq. 'U') then + dyr = dym(i,jz-1) / dym(i,jz) + c1 = .5 * dtlx * dym(i,jz) + do k = 1,m1 + if(i==m2)then + temp_v1(k) = c1 * vc(k,i,jz) + else + temp_v1(k) = c1 * (vc(k,i,jz) + vc(k,i+1,jz)) + endif +!if(k==2.and.i==m2)print*,'northbc-U',jz,temp_v1(k),vc(k,i,jz),vc(k,i+1,jz) + enddo + elseif (vnam .eq. 'W') then + dyr = dyv(i,jz-1) / dyv(i,jz) + c1 = .5 * dtlx * dyv(i,jz) + do k = 1,m1 + if(k==m1)then + temp_v1(k) = c1 * vc(k,i,jz) + else + temp_v1(k) = c1 * (vc(k,i,jz) + vc(k+1,i,jz)) + endif +!if(k==m1.and.i==m2)print*,'northbc-W',jz,temp_v1(k),vc(k,i,jz),vc(k+1,i,jz) + enddo + else + dyr = dyv(i,jz-1) / dyv(i,jz) + c1 = dtlx * dyv(i,jz) + do k = 1,m1 + temp_v1(k) = c1 * vc(k,i,jz) + enddo + endif + do k = 1,m1 + temp_v2(k) = ap(k,i,jz) + dyr * (ap(k,i,jz) - ap(k,i,jz-1)) + enddo + do k = 1,m1 + if (temp_v1(k) .ge. thresh) then + if(setlbcinit==1) then + ap(k,i,jz) = ap(k,i,jz)+(ap(k,i,lbn)-ap(k,i,jz))*(dtlt/atau) + ap(k,i,lbn) = ap(k,i,jz) + else !radiative BC + ap(k,i,lbn) = temp_v2(k) + endif + elseif (lsflg .eq. 1) then + if(setlbcinit==1) then + ap(k,i,jz) = ap(k,i,jz)+(ap(k,i,lbn)-ap(k,i,jz))*(dtlt/atau) + endif + ap(k,i,lbn) = ap(k,i,jz) + endif + enddo + enddo + endif + endif +endif + +deallocate(temp_v1) +deallocate(temp_v2) + +return +END SUBROUTINE latset + +!############################################################################## +Subroutine topset (m1,m2,m3,ap,vnam) + +use mem_grid + +implicit none + +integer :: m1,m2,m3,i,j +real :: dzmr,dztr +real, dimension(m1,m2,m3) :: ap +character(len=*) :: vnam + +dzmr = dzm(m1-2) / dzm(m1-1) +dztr = dzt(m1-2) / dzt(m1-1) + +! Computation of all prognostic variables (other than W) at +! level NZP by extrapolation from below + +if (vnam .eq. 'U' .or. vnam .eq. 'V' .or. vnam .eq. 'P') then + do j = 1,m3 + do i = 1,m2 + ap(m1,i,j) = ap(m1-1,i,j) + dzmr * (ap(m1-1,i,j) - ap(m1-2,i,j)) + enddo + enddo +endif +if (vnam .eq. 'T') then + do j = 1,m3 + do i = 1,m2 + ap(m1,i,j) = max(0.,ap(m1-1,i,j)+dzmr*(ap(m1-1,i,j)-ap(m1-2,i,j))) + enddo + enddo +endif + +return +END SUBROUTINE topset + +!############################################################################## +Subroutine botset (m1,m2,m3,aa,vnam) + +use mem_grid + +implicit none + +integer :: m1,m2,m3,i,j +real :: dzmr +real, dimension(m1,m2,m3) :: aa +character(len=*) :: vnam + +if (vnam .eq. 'P') then + dzmr = dzm(2) / dzm(1) + do i = 1,m2 + do j = 1,m3 + aa(1,i,j) = aa(2,i,j) + (aa(2,i,j) - aa(3,i,j)) * dzmr + enddo + enddo +else + do i = 1,m2 + do j = 1,m3 + aa(1,i,j) = aa(2,i,j) + enddo + enddo +endif + +return +END SUBROUTINE botset + +!############################################################################## +Subroutine dumset (m1,m2,m3,ibcon,aa,vnam) + +use mem_grid + +implicit none + +integer :: m1,m2,m3,ibcon,i,j,k +real, dimension(m1,m2,m3) :: aa +character(len=*) :: vnam + +if (vnam .eq. 'U' .and. iand(ibcon,2) .gt. 0) then + do j = 1,m3 + do k = 1,m1 + aa(k,m2,j) = aa(k,m2-1,j) + enddo + enddo +elseif (vnam .eq. 'V' .and. iand(ibcon,8) .gt. 0) then + do i = 1,m2 + do k = 1,m1 + aa(k,i,m3) = aa(k,i,m3-jdim) + enddo + enddo +elseif (vnam .eq. 'W') then + do j = 1,m3 + do i = 1,m2 + aa(m1,i,j) = aa(m1-1,i,j) + enddo + enddo +endif + +return +END SUBROUTINE dumset + +!############################################################################## +Subroutine rayft () + +use mem_tend +use mem_basic +use mem_grid +use node_mod +use micphys + +implicit none + +integer :: i,j,k +real, dimension(:,:,:), allocatable :: theta_v + +! This routine is the rayleigh friction driver for the +! theta friction and is called from the long timestep. + +if (nfpt .eq. 0 .or. distim .eq. 0.) return + +! First load past virtual theta into temporary. +allocate(theta_v(mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) + +if (level .ge. 1) then + do j = 1,mmyp(ngrid) + do i = 1,mmxp(ngrid) + do k = 1,mmzp(ngrid) + theta_v(k,i,j) = basic_g(ngrid)%theta(k,i,j) & + * (1. + .61 * basic_g(ngrid)%rv(k,i,j)) + enddo + enddo + enddo +else + CALL atob (mxyzp,basic_g(ngrid)%theta(1,1,1),theta_v(1,1,1)) +endif + +! Now get rayleigh friction tendency + + CALL rayf (4,mzp,mxp,myp,ia,iz,ja,jz & + ,theta_v (1,1,1) ,basic_g(ngrid)%th0 (1,1,1) & + ,tend%tht (1) ,grid_g(ngrid)%rtgt (1,1) & + ,grid_g(ngrid)%topt (1,1) ) + +deallocate(theta_v) + +return +END SUBROUTINE rayft + +!############################################################################## +Subroutine rayf (ifrom,m1,m2,m3,ia,iz,ja,jz,var,th0,tht,rtgx,topx) + +use mem_grid +use ref_sounding + +implicit none + +integer :: ifrom,m1,m2,m3,ia,iz,ja,jz +real, dimension(m1,m2,m3) :: var,th0,tht +real, dimension(m2,m3) :: rtgx,topx +real, dimension(:), allocatable :: temp_v1, temp_v2 + +real :: zmkf,c1,c2 +integer :: kf,i,j,k + +! This routine calculates rayleigh friction terms velocity and theta_il + +if (nfpt .eq. 0 .or. distim .le. 0) return +kf = nnz(1) - nfpt +zmkf = zmn(kf,1) +c1 = 1. / (distim * (ztop - zmkf)) +c2 = dts * c1 + +allocate(temp_v1(nzp)) +allocate(temp_v2(nzp)) + +goto(100,200,300,400) ifrom +100 continue + +! u friction + +do j = ja,jz + do i = ia,iz + do k = 1,nzp + temp_v1(k) = zt(k) * rtgx(i,j) + topx(i,j) + enddo + CALL htint (nzp,u01dn(1,ngrid),zt,nzp,temp_v2,temp_v1) + do k = nz,2,-1 + if (temp_v1(k) .le. zmkf) go to 10 + + var(k,i,j) = var(k,i,j) + c2 * (temp_v1(k) - zmkf) & + * (temp_v2(k) - var(k,i,j)) + + enddo +10 continue + enddo +enddo + +deallocate(temp_v1) +deallocate(temp_v2) + +return +200 continue + +! V friction + +if (jdim .eq. 0 .and. icorflg .eq. 0) then + deallocate(temp_v1) + deallocate(temp_v2) + return +endif +do j = ja,jz + do i = ia,iz + do k = 1,nzp + temp_v1(k) = zt(k) * rtgx(i,j) + topx(i,j) + enddo + CALL htint (nzp,v01dn(1,ngrid),zt,nzp,temp_v2,temp_v1) + do k = nz,2,-1 + if (temp_v1(k) .le. zmkf) go to 20 + var(k,i,j) = var(k,i,j) + c2 * (temp_v1(k) - zmkf) & + * (temp_v2(k) - var(k,i,j)) + enddo +20 continue + enddo +enddo + +deallocate(temp_v1) +deallocate(temp_v2) + +return +300 continue + +! W friction + +do j = ja,jz + do i = ia,iz + do k = nz,2,-1 + temp_v1(k) = zt(k) * rtgx(i,j) + topx(i,j) + if (temp_v1(k) .le. zmkf) go to 30 + var(k,i,j) = var(k,i,j) - c2 * (temp_v1(k) - zmkf) * var(k,i,j) + enddo +30 continue + enddo +enddo + +deallocate(temp_v1) +deallocate(temp_v2) + +return +400 continue + +! THETA FRICTION + +do j = ja,jz + do i = ia,iz + do k = nz,2,-1 + temp_v1(k) = zt(k) * rtgx(i,j) + topx(i,j) + if (temp_v1(k) .le. zmkf) go to 40 + tht(k,i,j) = tht(k,i,j) + c1 * (temp_v1(k) - zmkf) & + * (th0(k,i,j) - var(k,i,j)) + enddo +40 continue + enddo +enddo + +deallocate(temp_v1) +deallocate(temp_v2) + +return +END SUBROUTINE rayf diff --git a/src/6.2.16/bc/rbnd_nonscalar.f90 b/src/6.2.16/bc/rbnd_nonscalar.f90 new file mode 100644 index 0000000..1e3ede1 --- /dev/null +++ b/src/6.2.16/bc/rbnd_nonscalar.f90 @@ -0,0 +1,1247 @@ +!############################################################################## +Subroutine non_scalar_bc (mzp,mxp,myp,mzg,mzs,ibcon) + +use mem_grid +use mem_basic +use mem_radiate +use mem_leaf +use mem_sib +use mem_turb +use mem_micro +use mem_kpp +use kpp_parameters, only:ikpp,nkppz +use micphys, only:level + +implicit none + +integer :: mzp,mxp,myp,mzg,mzs,ibcon + +if (ilwrtyp+iswrtyp > 0) CALL rad_bcond (mzp,mxp,myp,radiate_g(ngrid),ibcon) + +if (ilwrtyp+iswrtyp > 0) CALL sfcrad_bcond (mxp,myp,radiate_g(ngrid),ibcon) + +CALL leaf_bcond (mxp,myp,mzg,mzs,npatch,leaf_g(ngrid),ibcon) + +CALL turb_bcond (mxp,myp,turb_g(ngrid),ibcon) + +if (level==3) CALL micro_bcond (mzp,mxp,myp,micro_g(ngrid),ibcon) + +if (isfcl==2) CALL sib_bcond (mxp,myp,npatch,sib_g(ngrid),ibcon) + +if (ikpp > 0) CALL kpp_bcond (nkppz,mxp,myp,kpp_3d_fields(ngrid),ibcon) + +return +END SUBROUTINE non_scalar_bc + +!############################################################################## +Subroutine kpp_bcond (mkpp,m2,m3,kpp_fields,ibcon) + +use mem_grid +use mem_kpp +use kpp_parameters, only:ikpp + +implicit none + +type (kpp_3d_type) :: kpp_fields + +integer :: mkpp,m2,m3,ibcon,i,j,k + +!Lateral boundary set +! West side, ibcon 1's place bit set +if (iand(ibcon,1) .ne. 0) then + do j = 1,m3 + do k = 1,mkpp + kpp_fields%swdk_opt(k,1,j) = kpp_fields%swdk_opt(k,2,j) + kpp_fields%U_init(k,1,j) = kpp_fields%U_init(k,2,j) + kpp_fields%V_init(k,1,j) = kpp_fields%V_init(k,2,j) + kpp_fields%swfrac(k,1,j) = kpp_fields%swfrac(k,2,j) + kpp_fields%sal_clim(k,1,j) = kpp_fields%sal_clim(k,2,j) + kpp_fields%ocnT_clim(k,1,j) = kpp_fields%ocnT_clim(k,2,j) + kpp_fields%U(k,1,j) = kpp_fields%U(k,2,j) + kpp_fields%V(k,1,j) = kpp_fields%V(k,2,j) + kpp_fields%Us0(k,1,j) = kpp_fields%Us0(k,2,j) + kpp_fields%Us1(k,1,j) = kpp_fields%Us1(k,2,j) + kpp_fields%Vs0(k,1,j) = kpp_fields%Vs0(k,2,j) + kpp_fields%Vs1(k,1,j) = kpp_fields%Vs1(k,2,j) + kpp_fields%X_t(k,1,j) = kpp_fields%X_t(k,2,j) + kpp_fields%X_s(k,1,j) = kpp_fields%X_s(k,2,j) + kpp_fields%Xs_t0(k,1,j) = kpp_fields%Xs_t0(k,2,j) + kpp_fields%Xs_t1(k,1,j) = kpp_fields%Xs_t1(k,2,j) + kpp_fields%Xs_s0(k,1,j) = kpp_fields%Xs_s0(k,2,j) + kpp_fields%Xs_s1(k,1,j) = kpp_fields%Xs_s1(k,2,j) + kpp_fields%buoy(k,1,j) = kpp_fields%buoy(k,2,j) + if(IKPP==2) then + kpp_fields%wB(k,1,j) = kpp_fields%wB(k,2,j) + kpp_fields%wXNTt(k,1,j) = kpp_fields%wXNTt(k,2,j) + kpp_fields%wU(k,1,j) = kpp_fields%wU(k,2,j) + kpp_fields%wV(k,1,j) = kpp_fields%wV(k,2,j) + kpp_fields%wXt(k,1,j) = kpp_fields%wXt(k,2,j) + kpp_fields%wXs(k,1,j) = kpp_fields%wXs(k,2,j) + kpp_fields%tinc_fcorr(k,1,j) = kpp_fields%tinc_fcorr(k,2,j) + kpp_fields%sinc_fcorr(k,1,j) = kpp_fields%sinc_fcorr(k,2,j) + kpp_fields%rho(k,1,j) = kpp_fields%rho(k,2,j) + kpp_fields%cp(k,1,j) = kpp_fields%cp(k,2,j) + endif + enddo + kpp_fields%Sref(1,j) = kpp_fields%Sref(2,j) + kpp_fields%jerlov(1,j) = kpp_fields%jerlov(2,j) + kpp_fields%ocdepth(1,j) = kpp_fields%ocdepth(2,j) + kpp_fields%f(1,j) = kpp_fields%f(2,j) + kpp_fields%bottomt(1,j) = kpp_fields%bottomt(2,j) + kpp_fields%SST0(1,j) = kpp_fields%SST0(2,j) + kpp_fields%old(1,j) = kpp_fields%old(2,j) + kpp_fields%new(1,j) = kpp_fields%new(2,j) + kpp_fields%flx_ust(1,j) = kpp_fields%flx_ust(2,j) + kpp_fields%flx_vst(1,j) = kpp_fields%flx_vst(2,j) + kpp_fields%flx_nsw(1,j) = kpp_fields%flx_nsw(2,j) + kpp_fields%flx_nlw(1,j) = kpp_fields%flx_nlw(2,j) + kpp_fields%flx_ice(1,j) = kpp_fields%flx_ice(2,j) + kpp_fields%flx_pcp(1,j) = kpp_fields%flx_pcp(2,j) + kpp_fields%hmix(1,j) = kpp_fields%hmix(2,j) + kpp_fields%freez_flag(1,j) = kpp_fields%freez_flag(2,j) + kpp_fields%reset_flag(1,j) = kpp_fields%reset_flag(2,j) + enddo +endif + +! East side, ibcon 2's place bit set +if (iand(ibcon,2) .ne. 0) then + do j = 1,m3 + do k = 1,mkpp + kpp_fields%swdk_opt(k,m2,j) = kpp_fields%swdk_opt(k,m2-1,j) + kpp_fields%U_init(k,m2,j) = kpp_fields%U_init(k,m2-1,j) + kpp_fields%V_init(k,m2,j) = kpp_fields%V_init(k,m2-1,j) + kpp_fields%swfrac(k,m2,j) = kpp_fields%swfrac(k,m2-1,j) + kpp_fields%sal_clim(k,m2,j) = kpp_fields%sal_clim(k,m2-1,j) + kpp_fields%ocnT_clim(k,m2,j) = kpp_fields%ocnT_clim(k,m2-1,j) + kpp_fields%U(k,m2,j) = kpp_fields%U(k,m2-1,j) + kpp_fields%V(k,m2,j) = kpp_fields%V(k,m2-1,j) + kpp_fields%Us0(k,m2,j) = kpp_fields%Us0(k,m2-1,j) + kpp_fields%Us1(k,m2,j) = kpp_fields%Us1(k,m2-1,j) + kpp_fields%Vs0(k,m2,j) = kpp_fields%Vs0(k,m2-1,j) + kpp_fields%Vs1(k,m2,j) = kpp_fields%Vs1(k,m2-1,j) + kpp_fields%X_t(k,m2,j) = kpp_fields%X_t(k,m2-1,j) + kpp_fields%X_s(k,m2,j) = kpp_fields%X_s(k,m2-1,j) + kpp_fields%Xs_t0(k,m2,j) = kpp_fields%Xs_t0(k,m2-1,j) + kpp_fields%Xs_t1(k,m2,j) = kpp_fields%Xs_t1(k,m2-1,j) + kpp_fields%Xs_s0(k,m2,j) = kpp_fields%Xs_s0(k,m2-1,j) + kpp_fields%Xs_s1(k,m2,j) = kpp_fields%Xs_s1(k,m2-1,j) + kpp_fields%buoy(k,m2,j) = kpp_fields%buoy(k,m2-1,j) + if(IKPP==2) then + kpp_fields%wB(k,m2,j) = kpp_fields%wB(k,m2-1,j) + kpp_fields%wXNTt(k,m2,j) = kpp_fields%wXNTt(k,m2-1,j) + kpp_fields%wU(k,m2,j) = kpp_fields%wU(k,m2-1,j) + kpp_fields%wV(k,m2,j) = kpp_fields%wV(k,m2-1,j) + kpp_fields%wXt(k,m2,j) = kpp_fields%wXt(k,m2-1,j) + kpp_fields%wXs(k,m2,j) = kpp_fields%wXs(k,m2-1,j) + kpp_fields%tinc_fcorr(k,m2,j) = kpp_fields%tinc_fcorr(k,m2-1,j) + kpp_fields%sinc_fcorr(k,m2,j) = kpp_fields%sinc_fcorr(k,m2-1,j) + kpp_fields%rho(k,m2,j) = kpp_fields%rho(k,m2-1,j) + kpp_fields%cp(k,m2,j) = kpp_fields%cp(k,m2-1,j) + endif + enddo + kpp_fields%Sref(m2,j) = kpp_fields%Sref(m2-1,j) + kpp_fields%jerlov(m2,j) = kpp_fields%jerlov(m2-1,j) + kpp_fields%ocdepth(m2,j) = kpp_fields%ocdepth(m2-1,j) + kpp_fields%f(m2,j) = kpp_fields%f(m2-1,j) + kpp_fields%bottomt(m2,j) = kpp_fields%bottomt(m2-1,j) + kpp_fields%SST0(m2,j) = kpp_fields%SST0(m2-1,j) + kpp_fields%old(m2,j) = kpp_fields%old(m2-1,j) + kpp_fields%new(m2,j) = kpp_fields%new(m2-1,j) + kpp_fields%flx_ust(m2,j) = kpp_fields%flx_ust(m2-1,j) + kpp_fields%flx_vst(m2,j) = kpp_fields%flx_vst(m2-1,j) + kpp_fields%flx_nsw(m2,j) = kpp_fields%flx_nsw(m2-1,j) + kpp_fields%flx_nlw(m2,j) = kpp_fields%flx_nlw(m2-1,j) + kpp_fields%flx_ice(m2,j) = kpp_fields%flx_ice(m2-1,j) + kpp_fields%flx_pcp(m2,j) = kpp_fields%flx_pcp(m2-1,j) + kpp_fields%hmix(m2,j) = kpp_fields%hmix(m2-1,j) + kpp_fields%freez_flag(m2,j) = kpp_fields%freez_flag(m2-1,j) + kpp_fields%reset_flag(m2,j) = kpp_fields%reset_flag(m2-1,j) + enddo +endif + +! South side, ibcon 4's place bit set +if ((iand(ibcon,4) .ne. 0) .and. (jdim .eq. 1)) then + do i = 1,m2 + do k = 1,mkpp + kpp_fields%swdk_opt(k,i,1) = kpp_fields%swdk_opt(k,i,2) + kpp_fields%U_init(k,i,1) = kpp_fields%U_init(k,i,2) + kpp_fields%V_init(k,i,1) = kpp_fields%V_init(k,i,2) + kpp_fields%swfrac(k,i,1) = kpp_fields%swfrac(k,i,2) + kpp_fields%sal_clim(k,i,1) = kpp_fields%sal_clim(k,i,2) + kpp_fields%ocnT_clim(k,i,1) = kpp_fields%ocnT_clim(k,i,2) + kpp_fields%U(k,i,1) = kpp_fields%U(k,i,2) + kpp_fields%V(k,i,1) = kpp_fields%V(k,i,2) + kpp_fields%Us0(k,i,1) = kpp_fields%Us0(k,i,2) + kpp_fields%Us1(k,i,1) = kpp_fields%Us1(k,i,2) + kpp_fields%Vs0(k,i,1) = kpp_fields%Vs0(k,i,2) + kpp_fields%Vs1(k,i,1) = kpp_fields%Vs1(k,i,2) + kpp_fields%X_t(k,i,1) = kpp_fields%X_t(k,i,2) + kpp_fields%X_s(k,i,1) = kpp_fields%X_s(k,i,2) + kpp_fields%Xs_t0(k,i,1) = kpp_fields%Xs_t0(k,i,2) + kpp_fields%Xs_t1(k,i,1) = kpp_fields%Xs_t1(k,i,2) + kpp_fields%Xs_s0(k,i,1) = kpp_fields%Xs_s0(k,i,2) + kpp_fields%Xs_s1(k,i,1) = kpp_fields%Xs_s1(k,i,2) + kpp_fields%buoy(k,i,1) = kpp_fields%buoy(k,i,2) + if(IKPP==2) then + kpp_fields%wB(k,i,1) = kpp_fields%wB(k,i,2) + kpp_fields%wXNTt(k,i,1) = kpp_fields%wXNTt(k,i,2) + kpp_fields%wU(k,i,1) = kpp_fields%wU(k,i,2) + kpp_fields%wV(k,i,1) = kpp_fields%wV(k,i,2) + kpp_fields%wXt(k,i,1) = kpp_fields%wXt(k,i,2) + kpp_fields%wXs(k,i,1) = kpp_fields%wXs(k,i,2) + kpp_fields%tinc_fcorr(k,i,1) = kpp_fields%tinc_fcorr(k,i,2) + kpp_fields%sinc_fcorr(k,i,1) = kpp_fields%sinc_fcorr(k,i,2) + kpp_fields%rho(k,i,1) = kpp_fields%rho(k,i,2) + kpp_fields%cp(k,i,1) = kpp_fields%cp(k,i,2) + endif + enddo + kpp_fields%Sref(i,1) = kpp_fields%Sref(i,2) + kpp_fields%jerlov(i,1) = kpp_fields%jerlov(i,2) + kpp_fields%ocdepth(i,1) = kpp_fields%ocdepth(i,2) + kpp_fields%f(i,1) = kpp_fields%f(i,2) + kpp_fields%bottomt(i,1) = kpp_fields%bottomt(i,2) + kpp_fields%SST0(i,1) = kpp_fields%SST0(i,2) + kpp_fields%old(i,1) = kpp_fields%old(i,2) + kpp_fields%new(i,1) = kpp_fields%new(i,2) + kpp_fields%flx_ust(i,1) = kpp_fields%flx_ust(i,2) + kpp_fields%flx_vst(i,1) = kpp_fields%flx_vst(i,2) + kpp_fields%flx_nsw(i,1) = kpp_fields%flx_nsw(i,2) + kpp_fields%flx_nlw(i,1) = kpp_fields%flx_nlw(i,2) + kpp_fields%flx_ice(i,1) = kpp_fields%flx_ice(i,2) + kpp_fields%flx_pcp(i,1) = kpp_fields%flx_pcp(i,2) + kpp_fields%hmix(i,1) = kpp_fields%hmix(i,2) + kpp_fields%freez_flag(i,1) = kpp_fields%freez_flag(i,2) + kpp_fields%reset_flag(i,1) = kpp_fields%reset_flag(i,2) + enddo +endif + +! North side, ibcon 8's place bit set +if ((iand(ibcon,8) .ne. 0) .and. (jdim .eq. 1)) then + do i = 1,m2 + do k = 1,mkpp + kpp_fields%swdk_opt(k,i,m3) = kpp_fields%swdk_opt(k,i,m3-1) + kpp_fields%U_init(k,i,m3) = kpp_fields%U_init(k,i,m3-1) + kpp_fields%V_init(k,i,m3) = kpp_fields%V_init(k,i,m3-1) + kpp_fields%swfrac(k,i,m3) = kpp_fields%swfrac(k,i,m3-1) + kpp_fields%sal_clim(k,i,m3) = kpp_fields%sal_clim(k,i,m3-1) + kpp_fields%ocnT_clim(k,i,m3) = kpp_fields%ocnT_clim(k,i,m3-1) + kpp_fields%U(k,i,m3) = kpp_fields%U(k,i,m3-1) + kpp_fields%V(k,i,m3) = kpp_fields%V(k,i,m3-1) + kpp_fields%Us0(k,i,m3) = kpp_fields%Us0(k,i,m3-1) + kpp_fields%Us1(k,i,m3) = kpp_fields%Us1(k,i,m3-1) + kpp_fields%Vs0(k,i,m3) = kpp_fields%Vs0(k,i,m3-1) + kpp_fields%Vs1(k,i,m3) = kpp_fields%Vs1(k,i,m3-1) + kpp_fields%X_t(k,i,m3) = kpp_fields%X_t(k,i,m3-1) + kpp_fields%X_s(k,i,m3) = kpp_fields%X_s(k,i,m3-1) + kpp_fields%Xs_t0(k,i,m3) = kpp_fields%Xs_t0(k,i,m3-1) + kpp_fields%Xs_t1(k,i,m3) = kpp_fields%Xs_t1(k,i,m3-1) + kpp_fields%Xs_s0(k,i,m3) = kpp_fields%Xs_s0(k,i,m3-1) + kpp_fields%Xs_s1(k,i,m3) = kpp_fields%Xs_s1(k,i,m3-1) + kpp_fields%buoy(k,i,m3) = kpp_fields%buoy(k,i,m3-1) + if(IKPP==2) then + kpp_fields%wB(k,i,m3) = kpp_fields%wB(k,i,m3-1) + kpp_fields%wXNTt(k,i,m3) = kpp_fields%wXNTt(k,i,m3-1) + kpp_fields%wU(k,i,m3) = kpp_fields%wU(k,i,m3-1) + kpp_fields%wV(k,i,m3) = kpp_fields%wV(k,i,m3-1) + kpp_fields%wXt(k,i,m3) = kpp_fields%wXt(k,i,m3-1) + kpp_fields%wXs(k,i,m3) = kpp_fields%wXs(k,i,m3-1) + kpp_fields%tinc_fcorr(k,i,m3) = kpp_fields%tinc_fcorr(k,i,m3-1) + kpp_fields%sinc_fcorr(k,i,m3) = kpp_fields%sinc_fcorr(k,i,m3-1) + kpp_fields%rho(k,i,m3) = kpp_fields%rho(k,i,m3-1) + kpp_fields%cp(k,i,m3) = kpp_fields%cp(k,i,m3-1) + endif + enddo + kpp_fields%Sref(i,m3) = kpp_fields%Sref(i,m3-1) + kpp_fields%jerlov(i,m3) = kpp_fields%jerlov(i,m3-1) + kpp_fields%ocdepth(i,m3) = kpp_fields%ocdepth(i,m3-1) + kpp_fields%f(i,m3) = kpp_fields%f(i,m3-1) + kpp_fields%bottomt(i,m3) = kpp_fields%bottomt(i,m3-1) + kpp_fields%SST0(i,m3) = kpp_fields%SST0(i,m3-1) + kpp_fields%old(i,m3) = kpp_fields%old(i,m3-1) + kpp_fields%new(i,m3) = kpp_fields%new(i,m3-1) + kpp_fields%flx_ust(i,m3) = kpp_fields%flx_ust(i,m3-1) + kpp_fields%flx_vst(i,m3) = kpp_fields%flx_vst(i,m3-1) + kpp_fields%flx_nsw(i,m3) = kpp_fields%flx_nsw(i,m3-1) + kpp_fields%flx_nlw(i,m3) = kpp_fields%flx_nlw(i,m3-1) + kpp_fields%flx_ice(i,m3) = kpp_fields%flx_ice(i,m3-1) + kpp_fields%flx_pcp(i,m3) = kpp_fields%flx_pcp(i,m3-1) + kpp_fields%hmix(i,m3) = kpp_fields%hmix(i,m3-1) + kpp_fields%freez_flag(i,m3) = kpp_fields%freez_flag(i,m3-1) + kpp_fields%reset_flag(i,m3) = kpp_fields%reset_flag(i,m3-1) + enddo +endif + +return +END SUBROUTINE kpp_bcond + +!############################################################################## +Subroutine micro_bcond (m1,m2,m3,micro,ibcon) + +use mem_grid +use mem_micro +use micphys + +implicit none + +type (micro_vars) :: micro + +integer :: m1,m2,m3,ibcon,i,j,k + +!Lateral boundary set +! West side, ibcon 1's place bit set +if (iand(ibcon,1) .ne. 0) then + do j = 1,m3 + do k = 1,m1 + if(idriz >= 1) micro%pcpvd(k,1,j) = 0. + if(irain >= 1) micro%pcpvr(k,1,j) = 0. + if(ipris >= 1) micro%pcpvp(k,1,j) = 0. + if(isnow >= 1) micro%pcpvs(k,1,j) = 0. + if(iaggr >= 1) micro%pcpva(k,1,j) = 0. + if(igraup >= 1) micro%pcpvg(k,1,j) = 0. + if(ihail >= 1) micro%pcpvh(k,1,j) = 0. + if(level==3) then + if(imbudget>=1) then + micro%latheatvap(k,1,j) = 0. + micro%latheatfrz(k,1,j) = 0. + micro%nuccldrt(k,1,j) = 0. + micro%cld2raint(k,1,j) = 0. + micro%ice2raint(k,1,j) = 0. + micro%nucicert(k,1,j) = 0. + micro%vapliqt(k,1,j) = 0. + micro%vapicet(k,1,j) = 0. + micro%melticet(k,1,j) = 0. + micro%rimecldt(k,1,j) = 0. + micro%rain2icet(k,1,j) = 0. + micro%aggregatet(k,1,j) = 0. + micro%latheatvapt(k,1,j) = 0. + micro%latheatfrzt(k,1,j) = 0. + endif + if(imbudget>=2) then + micro%inuchomrt(k,1,j) = 0. + micro%inuccontrt(k,1,j) = 0. + micro%inucifnrt(k,1,j) = 0. + micro%inuchazrt(k,1,j) = 0. + micro%vapcldt(k,1,j) = 0. + micro%vapraint(k,1,j) = 0. + micro%vapprist(k,1,j) = 0. + micro%vapsnowt(k,1,j) = 0. + micro%vapaggrt(k,1,j) = 0. + micro%vapgraut(k,1,j) = 0. + micro%vaphailt(k,1,j) = 0. + micro%vapdrizt(k,1,j) = 0. + micro%meltprist(k,1,j) = 0. + micro%meltsnowt(k,1,j) = 0. + micro%meltaggrt(k,1,j) = 0. + micro%meltgraut(k,1,j) = 0. + micro%melthailt(k,1,j) = 0. + micro%rimecldsnowt(k,1,j) = 0. + micro%rimecldaggrt(k,1,j) = 0. + micro%rimecldgraut(k,1,j) = 0. + micro%rimecldhailt(k,1,j) = 0. + micro%rain2prt(k,1,j) = 0. + micro%rain2snt(k,1,j) = 0. + micro%rain2agt(k,1,j) = 0. + micro%rain2grt(k,1,j) = 0. + micro%rain2hat(k,1,j) = 0. + micro%aggrselfprist(k,1,j) = 0. + micro%aggrselfsnowt(k,1,j) = 0. + micro%aggrprissnowt(k,1,j) = 0. + endif + if(imbudget==3 .and. idust>=1) then + micro%dust1cldrt(k,1,j) = 0. + micro%dust2cldrt(k,1,j) = 0. + micro%dust1drzrt(k,1,j) = 0. + micro%dust2drzrt(k,1,j) = 0. + endif + endif + enddo + if(level==3 .and. iccnlev>=2)then + micro%accpaero(1,j) = 0. + micro%pcpraero(1,j) = 0. + endif + if(idriz >= 1) micro%pcprd(1,j) = 0. + if(irain >= 1) micro%pcprr(1,j) = 0. + if(ipris >= 1) micro%pcprp(1,j) = 0. + if(isnow >= 1) micro%pcprs(1,j) = 0. + if(iaggr >= 1) micro%pcpra(1,j) = 0. + if(igraup >= 1) micro%pcprg(1,j) = 0. + if(ihail >= 1) micro%pcprh(1,j) = 0. + if(idriz >= 1) micro%accpd(1,j) = 0. + if(irain >= 1) micro%accpr(1,j) = 0. + if(ipris >= 1) micro%accpp(1,j) = 0. + if(isnow >= 1) micro%accps(1,j) = 0. + if(iaggr >= 1) micro%accpa(1,j) = 0. + if(igraup >= 1) micro%accpg(1,j) = 0. + if(ihail >= 1) micro%accph(1,j) = 0. + enddo +endif + +! East side, ibcon 2's place bit set +if (iand(ibcon,2) .ne. 0) then + do j = 1,m3 + do k = 1,m1 + if(idriz >= 1) micro%pcpvd(k,m2,j) = 0. + if(irain >= 1) micro%pcpvr(k,m2,j) = 0. + if(ipris >= 1) micro%pcpvp(k,m2,j) = 0. + if(isnow >= 1) micro%pcpvs(k,m2,j) = 0. + if(iaggr >= 1) micro%pcpva(k,m2,j) = 0. + if(igraup >= 1) micro%pcpvg(k,m2,j) = 0. + if(ihail >= 1) micro%pcpvh(k,m2,j) = 0. + if(level==3) then + if(imbudget>=1) then + micro%latheatvap(k,m2,j) = 0. + micro%latheatfrz(k,m2,j) = 0. + micro%nuccldrt(k,m2,j) = 0. + micro%cld2raint(k,m2,j) = 0. + micro%ice2raint(k,m2,j) = 0. + micro%nucicert(k,m2,j) = 0. + micro%vapliqt(k,m2,j) = 0. + micro%vapicet(k,m2,j) = 0. + micro%melticet(k,m2,j) = 0. + micro%rimecldt(k,m2,j) = 0. + micro%rain2icet(k,m2,j) = 0. + micro%aggregatet(k,m2,j) = 0. + micro%latheatvapt(k,m2,j) = 0. + micro%latheatfrzt(k,m2,j) = 0. + endif + if(imbudget>=2) then + micro%inuchomrt(k,m2,j) = 0. + micro%inuccontrt(k,m2,j) = 0. + micro%inucifnrt(k,m2,j) = 0. + micro%inuchazrt(k,m2,j) = 0. + micro%vapcldt(k,m2,j) = 0. + micro%vapraint(k,m2,j) = 0. + micro%vapprist(k,m2,j) = 0. + micro%vapsnowt(k,m2,j) = 0. + micro%vapaggrt(k,m2,j) = 0. + micro%vapgraut(k,m2,j) = 0. + micro%vaphailt(k,m2,j) = 0. + micro%vapdrizt(k,m2,j) = 0. + micro%meltprist(k,m2,j) = 0. + micro%meltsnowt(k,m2,j) = 0. + micro%meltaggrt(k,m2,j) = 0. + micro%meltgraut(k,m2,j) = 0. + micro%melthailt(k,m2,j) = 0. + micro%rimecldsnowt(k,m2,j) = 0. + micro%rimecldaggrt(k,m2,j) = 0. + micro%rimecldgraut(k,m2,j) = 0. + micro%rimecldhailt(k,m2,j) = 0. + micro%rain2prt(k,m2,j) = 0. + micro%rain2snt(k,m2,j) = 0. + micro%rain2agt(k,m2,j) = 0. + micro%rain2grt(k,m2,j) = 0. + micro%rain2hat(k,m2,j) = 0. + micro%aggrselfprist(k,m2,j) = 0. + micro%aggrselfsnowt(k,m2,j) = 0. + micro%aggrprissnowt(k,m2,j) = 0. + endif + if(imbudget==3 .and. idust>=1) then + micro%dust1cldrt(k,m2,j) = 0. + micro%dust2cldrt(k,m2,j) = 0. + micro%dust1drzrt(k,m2,j) = 0. + micro%dust2drzrt(k,m2,j) = 0. + endif + endif + enddo + if(level==3 .and. iccnlev>=2)then + micro%accpaero(m2,j) = 0. + micro%pcpraero(m2,j) = 0. + endif + if(idriz >= 1) micro%pcprd(m2,j) = 0. + if(irain >= 1) micro%pcprr(m2,j) = 0. + if(ipris >= 1) micro%pcprp(m2,j) = 0. + if(isnow >= 1) micro%pcprs(m2,j) = 0. + if(iaggr >= 1) micro%pcpra(m2,j) = 0. + if(igraup >= 1) micro%pcprg(m2,j) = 0. + if(ihail >= 1) micro%pcprh(m2,j) = 0. + if(idriz >= 1) micro%accpd(m2,j) = 0. + if(irain >= 1) micro%accpr(m2,j) = 0. + if(ipris >= 1) micro%accpp(m2,j) = 0. + if(isnow >= 1) micro%accps(m2,j) = 0. + if(iaggr >= 1) micro%accpa(m2,j) = 0. + if(igraup >= 1) micro%accpg(m2,j) = 0. + if(ihail >= 1) micro%accph(m2,j) = 0. + enddo +endif + +! South side, ibcon 4's place bit set +if ((iand(ibcon,4) .ne. 0) .and. (jdim .eq. 1)) then + do i = 1,m2 + do k = 1,m1 + if(idriz >= 1) micro%pcpvd(k,i,1) = 0. + if(irain >= 1) micro%pcpvr(k,i,1) = 0. + if(ipris >= 1) micro%pcpvp(k,i,1) = 0. + if(isnow >= 1) micro%pcpvs(k,i,1) = 0. + if(iaggr >= 1) micro%pcpva(k,i,1) = 0. + if(igraup >= 1) micro%pcpvg(k,i,1) = 0. + if(ihail >= 1) micro%pcpvh(k,i,1) = 0. + if(level==3) then + if(imbudget>=1) then + micro%latheatvap(k,i,1) = 0. + micro%latheatfrz(k,i,1) = 0. + micro%nuccldrt(k,i,1) = 0. + micro%cld2raint(k,i,1) = 0. + micro%ice2raint(k,i,1) = 0. + micro%nucicert(k,i,1) = 0. + micro%vapliqt(k,i,1) = 0. + micro%vapicet(k,i,1) = 0. + micro%melticet(k,i,1) = 0. + micro%rimecldt(k,i,1) = 0. + micro%rain2icet(k,i,1) = 0. + micro%aggregatet(k,i,1) = 0. + micro%latheatvapt(k,i,1) = 0. + micro%latheatfrzt(k,i,1) = 0. + endif + if(imbudget>=2) then + micro%inuchomrt(k,i,1) = 0. + micro%inuccontrt(k,i,1) = 0. + micro%inucifnrt(k,i,1) = 0. + micro%inuchazrt(k,i,1) = 0. + micro%vapcldt(k,i,1) = 0. + micro%vapraint(k,i,1) = 0. + micro%vapprist(k,i,1) = 0. + micro%vapsnowt(k,i,1) = 0. + micro%vapaggrt(k,i,1) = 0. + micro%vapgraut(k,i,1) = 0. + micro%vaphailt(k,i,1) = 0. + micro%vapdrizt(k,i,1) = 0. + micro%meltprist(k,i,1) = 0. + micro%meltsnowt(k,i,1) = 0. + micro%meltaggrt(k,i,1) = 0. + micro%meltgraut(k,i,1) = 0. + micro%melthailt(k,i,1) = 0. + micro%rimecldsnowt(k,i,1) = 0. + micro%rimecldaggrt(k,i,1) = 0. + micro%rimecldgraut(k,i,1) = 0. + micro%rimecldhailt(k,i,1) = 0. + micro%rain2prt(k,i,1) = 0. + micro%rain2snt(k,i,1) = 0. + micro%rain2agt(k,i,1) = 0. + micro%rain2grt(k,i,1) = 0. + micro%rain2hat(k,i,1) = 0. + micro%aggrselfprist(k,i,1) = 0. + micro%aggrselfsnowt(k,i,1) = 0. + micro%aggrprissnowt(k,i,1) = 0. + endif + if(imbudget==3 .and. idust>=1) then + micro%dust1cldrt(k,i,1) = 0. + micro%dust2cldrt(k,i,1) = 0. + micro%dust1drzrt(k,i,1) = 0. + micro%dust2drzrt(k,i,1) = 0. + endif + endif + enddo + if(level==3 .and. iccnlev>=2)then + micro%accpaero(i,1) = 0. + micro%pcpraero(i,1) = 0. + endif + if(idriz >= 1) micro%pcprd(i,1) = 0. + if(irain >= 1) micro%pcprr(i,1) = 0. + if(ipris >= 1) micro%pcprp(i,1) = 0. + if(isnow >= 1) micro%pcprs(i,1) = 0. + if(iaggr >= 1) micro%pcpra(i,1) = 0. + if(igraup >= 1) micro%pcprg(i,1) = 0. + if(ihail >= 1) micro%pcprh(i,1) = 0. + if(idriz >= 1) micro%accpd(i,1) = 0. + if(irain >= 1) micro%accpr(i,1) = 0. + if(ipris >= 1) micro%accpp(i,1) = 0. + if(isnow >= 1) micro%accps(i,1) = 0. + if(iaggr >= 1) micro%accpa(i,1) = 0. + if(igraup >= 1) micro%accpg(i,1) = 0. + if(ihail >= 1) micro%accph(i,1) = 0. + enddo +endif + +! North side, ibcon 8's place bit set +if ((iand(ibcon,8) .ne. 0) .and. (jdim .eq. 1)) then + do i = 1,m2 + do k = 1,m1 + if(idriz >= 1) micro%pcpvd(k,i,m3) = 0. + if(irain >= 1) micro%pcpvr(k,i,m3) = 0. + if(ipris >= 1) micro%pcpvp(k,i,m3) = 0. + if(isnow >= 1) micro%pcpvs(k,i,m3) = 0. + if(iaggr >= 1) micro%pcpva(k,i,m3) = 0. + if(igraup >= 1) micro%pcpvg(k,i,m3) = 0. + if(ihail >= 1) micro%pcpvh(k,i,m3) = 0. + if(level==3) then + if(imbudget>=1) then + micro%latheatvap(k,i,m3) = 0. + micro%latheatfrz(k,i,m3) = 0. + micro%nuccldrt(k,i,m3) = 0. + micro%cld2raint(k,i,m3) = 0. + micro%ice2raint(k,i,m3) = 0. + micro%nucicert(k,i,m3) = 0. + micro%vapliqt(k,i,m3) = 0. + micro%vapicet(k,i,m3) = 0. + micro%melticet(k,i,m3) = 0. + micro%rimecldt(k,i,m3) = 0. + micro%rain2icet(k,i,m3) = 0. + micro%aggregatet(k,i,m3) = 0. + micro%latheatvapt(k,i,m3) = 0. + micro%latheatfrzt(k,i,m3) = 0. + endif + if(imbudget>=2) then + micro%inuchomrt(k,i,m3) = 0. + micro%inuccontrt(k,i,m3) = 0. + micro%inucifnrt(k,i,m3) = 0. + micro%inuchazrt(k,i,m3) = 0. + micro%vapcldt(k,i,m3) = 0. + micro%vapraint(k,i,m3) = 0. + micro%vapprist(k,i,m3) = 0. + micro%vapsnowt(k,i,m3) = 0. + micro%vapaggrt(k,i,m3) = 0. + micro%vapgraut(k,i,m3) = 0. + micro%vaphailt(k,i,m3) = 0. + micro%vapdrizt(k,i,m3) = 0. + micro%meltprist(k,i,m3) = 0. + micro%meltsnowt(k,i,m3) = 0. + micro%meltaggrt(k,i,m3) = 0. + micro%meltgraut(k,i,m3) = 0. + micro%melthailt(k,i,m3) = 0. + micro%rimecldsnowt(k,i,m3) = 0. + micro%rimecldaggrt(k,i,m3) = 0. + micro%rimecldgraut(k,i,m3) = 0. + micro%rimecldhailt(k,i,m3) = 0. + micro%rain2prt(k,i,m3) = 0. + micro%rain2snt(k,i,m3) = 0. + micro%rain2agt(k,i,m3) = 0. + micro%rain2grt(k,i,m3) = 0. + micro%rain2hat(k,i,m3) = 0. + micro%aggrselfprist(k,i,m3) = 0. + micro%aggrselfsnowt(k,i,m3) = 0. + micro%aggrprissnowt(k,i,m3) = 0. + endif + if(imbudget==3 .and. idust>=1) then + micro%dust1cldrt(k,i,m3) = 0. + micro%dust2cldrt(k,i,m3) = 0. + micro%dust1drzrt(k,i,m3) = 0. + micro%dust2drzrt(k,i,m3) = 0. + endif + endif + enddo + if(level==3 .and. iccnlev>=2)then + micro%accpaero(i,m3) = 0. + micro%pcpraero(i,m3) = 0. + endif + if(idriz >= 1) micro%pcprd(i,m3) = 0. + if(irain >= 1) micro%pcprr(i,m3) = 0. + if(ipris >= 1) micro%pcprp(i,m3) = 0. + if(isnow >= 1) micro%pcprs(i,m3) = 0. + if(iaggr >= 1) micro%pcpra(i,m3) = 0. + if(igraup >= 1) micro%pcprg(i,m3) = 0. + if(ihail >= 1) micro%pcprh(i,m3) = 0. + if(idriz >= 1) micro%accpd(i,m3) = 0. + if(irain >= 1) micro%accpr(i,m3) = 0. + if(ipris >= 1) micro%accpp(i,m3) = 0. + if(isnow >= 1) micro%accps(i,m3) = 0. + if(iaggr >= 1) micro%accpa(i,m3) = 0. + if(igraup >= 1) micro%accpg(i,m3) = 0. + if(ihail >= 1) micro%accph(i,m3) = 0. + enddo +endif + +return +END SUBROUTINE micro_bcond + +!############################################################################## +Subroutine leaf_bcond (m2,m3,mzg,mzs,npat,leaf,ibcon) + +use mem_grid +use mem_leaf + +implicit none + +type (leaf_vars) :: leaf + +integer :: m2,m3,mzg,mzs,ibcon,npat,ipat,i,j,k + +!Set BCs for Leaf variables. Do not include veg_ndvif, leaf_class, +! patch_area, and soil_text since these are read from the surface +! files and are boundary set when files are read in by the model. + +! West side, ibcon 1's place bit set +if (iand(ibcon,1) .ne. 0) then + do ipat = 1,npat + do j = 1,m3 + leaf%ustar (1,j,ipat) = leaf%ustar (2,j,ipat) + leaf%tstar (1,j,ipat) = leaf%tstar (2,j,ipat) + leaf%rstar (1,j,ipat) = leaf%rstar (2,j,ipat) + leaf%veg_albedo (1,j,ipat) = leaf%veg_albedo (2,j,ipat) + leaf%veg_fracarea (1,j,ipat) = leaf%veg_fracarea (2,j,ipat) + leaf%veg_lai (1,j,ipat) = leaf%veg_lai (2,j,ipat) + leaf%veg_tai (1,j,ipat) = leaf%veg_tai (2,j,ipat) + leaf%veg_rough (1,j,ipat) = leaf%veg_rough (2,j,ipat) + leaf%veg_height (1,j,ipat) = leaf%veg_height (2,j,ipat) + leaf%patch_rough (1,j,ipat) = leaf%patch_rough (2,j,ipat) + leaf%soil_rough (1,j,ipat) = leaf%soil_rough (2,j,ipat) + leaf%sfcwater_nlev (1,j,ipat) = leaf%sfcwater_nlev (2,j,ipat) + leaf%stom_resist (1,j,ipat) = leaf%stom_resist (2,j,ipat) + leaf%ground_rsat (1,j,ipat) = leaf%ground_rsat (2,j,ipat) + leaf%ground_rvap (1,j,ipat) = leaf%ground_rvap (2,j,ipat) + leaf%veg_water (1,j,ipat) = leaf%veg_water (2,j,ipat) + leaf%veg_temp (1,j,ipat) = leaf%veg_temp (2,j,ipat) + leaf%can_rvap (1,j,ipat) = leaf%can_rvap (2,j,ipat) + leaf%can_temp (1,j,ipat) = leaf%can_temp (2,j,ipat) + leaf%veg_ndvip (1,j,ipat) = leaf%veg_ndvip (2,j,ipat) + leaf%veg_ndvic (1,j,ipat) = leaf%veg_ndvic (2,j,ipat) + + do k = 1,mzg + leaf%soil_water (k,1,j,ipat) = leaf%soil_water (k,2,j,ipat) + leaf%soil_energy (k,1,j,ipat) = leaf%soil_energy (k,2,j,ipat) + enddo + + do k = 1,mzs + leaf%sfcwater_mass (k,1,j,ipat) = leaf%sfcwater_mass (k,2,j,ipat) + leaf%sfcwater_energy (k,1,j,ipat) = leaf%sfcwater_energy (k,2,j,ipat) + leaf%sfcwater_depth (k,1,j,ipat) = leaf%sfcwater_depth (k,2,j,ipat) + enddo + enddo + enddo +endif + +! East side, ibcon 2's place bit set +if (iand(ibcon,2) .ne. 0) then + do ipat = 1,npat + do j = 1,m3 + leaf%ustar (m2,j,ipat) = leaf%ustar (m2-1,j,ipat) + leaf%tstar (m2,j,ipat) = leaf%tstar (m2-1,j,ipat) + leaf%rstar (m2,j,ipat) = leaf%rstar (m2-1,j,ipat) + leaf%veg_albedo (m2,j,ipat) = leaf%veg_albedo (m2-1,j,ipat) + leaf%veg_fracarea (m2,j,ipat) = leaf%veg_fracarea (m2-1,j,ipat) + leaf%veg_lai (m2,j,ipat) = leaf%veg_lai (m2-1,j,ipat) + leaf%veg_tai (m2,j,ipat) = leaf%veg_tai (m2-1,j,ipat) + leaf%veg_rough (m2,j,ipat) = leaf%veg_rough (m2-1,j,ipat) + leaf%veg_height (m2,j,ipat) = leaf%veg_height (m2-1,j,ipat) + leaf%patch_rough (m2,j,ipat) = leaf%patch_rough (m2-1,j,ipat) + leaf%soil_rough (m2,j,ipat) = leaf%soil_rough (m2-1,j,ipat) + leaf%sfcwater_nlev (m2,j,ipat) = leaf%sfcwater_nlev (m2-1,j,ipat) + leaf%stom_resist (m2,j,ipat) = leaf%stom_resist (m2-1,j,ipat) + leaf%ground_rsat (m2,j,ipat) = leaf%ground_rsat (m2-1,j,ipat) + leaf%ground_rvap (m2,j,ipat) = leaf%ground_rvap (m2-1,j,ipat) + leaf%veg_water (m2,j,ipat) = leaf%veg_water (m2-1,j,ipat) + leaf%veg_temp (m2,j,ipat) = leaf%veg_temp (m2-1,j,ipat) + leaf%can_rvap (m2,j,ipat) = leaf%can_rvap (m2-1,j,ipat) + leaf%can_temp (m2,j,ipat) = leaf%can_temp (m2-1,j,ipat) + leaf%veg_ndvip (m2,j,ipat) = leaf%veg_ndvip (m2-1,j,ipat) + leaf%veg_ndvic (m2,j,ipat) = leaf%veg_ndvic (m2-1,j,ipat) + + do k = 1,mzg + leaf%soil_water (k,m2,j,ipat) = leaf%soil_water (k,m2-1,j,ipat) + leaf%soil_energy (k,m2,j,ipat) = leaf%soil_energy (k,m2-1,j,ipat) + enddo + + do k = 1,mzs + leaf%sfcwater_mass (k,m2,j,ipat) = leaf%sfcwater_mass (k,m2-1,j,ipat) + leaf%sfcwater_energy(k,m2,j,ipat) = leaf%sfcwater_energy(k,m2-1,j,ipat) + leaf%sfcwater_depth (k,m2,j,ipat) = leaf%sfcwater_depth (k,m2-1,j,ipat) + enddo + enddo + enddo +endif + +! South side, ibcon 4's place bit set +if ((iand(ibcon,4) .ne. 0) .and. (jdim .eq. 1)) then + do ipat = 1,npat + do i = 1,m2 + leaf%ustar (i,1,ipat) = leaf%ustar (i,2,ipat) + leaf%tstar (i,1,ipat) = leaf%tstar (i,2,ipat) + leaf%rstar (i,1,ipat) = leaf%rstar (i,2,ipat) + leaf%veg_albedo (i,1,ipat) = leaf%veg_albedo (i,2,ipat) + leaf%veg_fracarea (i,1,ipat) = leaf%veg_fracarea (i,2,ipat) + leaf%veg_lai (i,1,ipat) = leaf%veg_lai (i,2,ipat) + leaf%veg_tai (i,1,ipat) = leaf%veg_tai (i,2,ipat) + leaf%veg_rough (i,1,ipat) = leaf%veg_rough (i,2,ipat) + leaf%veg_height (i,1,ipat) = leaf%veg_height (i,2,ipat) + leaf%patch_rough (i,1,ipat) = leaf%patch_rough (i,2,ipat) + leaf%soil_rough (i,1,ipat) = leaf%soil_rough (i,2,ipat) + leaf%sfcwater_nlev (i,1,ipat) = leaf%sfcwater_nlev (i,2,ipat) + leaf%stom_resist (i,1,ipat) = leaf%stom_resist (i,2,ipat) + leaf%ground_rsat (i,1,ipat) = leaf%ground_rsat (i,2,ipat) + leaf%ground_rvap (i,1,ipat) = leaf%ground_rvap (i,2,ipat) + leaf%veg_water (i,1,ipat) = leaf%veg_water (i,2,ipat) + leaf%veg_temp (i,1,ipat) = leaf%veg_temp (i,2,ipat) + leaf%can_rvap (i,1,ipat) = leaf%can_rvap (i,2,ipat) + leaf%can_temp (i,1,ipat) = leaf%can_temp (i,2,ipat) + leaf%veg_ndvip (i,1,ipat) = leaf%veg_ndvip (i,2,ipat) + leaf%veg_ndvic (i,1,ipat) = leaf%veg_ndvic (i,2,ipat) + + do k = 1,mzg + leaf%soil_water (k,i,1,ipat) = leaf%soil_water (k,i,2,ipat) + leaf%soil_energy (k,i,1,ipat) = leaf%soil_energy (k,i,2,ipat) + enddo + + do k = 1,mzs + leaf%sfcwater_mass (k,i,1,ipat) = leaf%sfcwater_mass (k,i,2,ipat) + leaf%sfcwater_energy(k,i,1,ipat) = leaf%sfcwater_energy (k,i,2,ipat) + leaf%sfcwater_depth (k,i,1,ipat) = leaf%sfcwater_depth (k,i,2,ipat) + enddo + enddo + enddo +endif + +! North side, ibcon 8's place bit set +if ((iand(ibcon,8) .ne. 0) .and. (jdim .eq. 1)) then + do ipat = 1,npat + do i = 1,m2 + leaf%ustar (i,m3,ipat) = leaf%ustar (i,m3-1,ipat) + leaf%tstar (i,m3,ipat) = leaf%tstar (i,m3-1,ipat) + leaf%rstar (i,m3,ipat) = leaf%rstar (i,m3-1,ipat) + leaf%veg_albedo (i,m3,ipat) = leaf%veg_albedo (i,m3-1,ipat) + leaf%veg_fracarea (i,m3,ipat) = leaf%veg_fracarea (i,m3-1,ipat) + leaf%veg_lai (i,m3,ipat) = leaf%veg_lai (i,m3-1,ipat) + leaf%veg_tai (i,m3,ipat) = leaf%veg_tai (i,m3-1,ipat) + leaf%veg_rough (i,m3,ipat) = leaf%veg_rough (i,m3-1,ipat) + leaf%veg_height (i,m3,ipat) = leaf%veg_height (i,m3-1,ipat) + leaf%patch_rough (i,m3,ipat) = leaf%patch_rough (i,m3-1,ipat) + leaf%soil_rough (i,m3,ipat) = leaf%soil_rough (i,m3-1,ipat) + leaf%sfcwater_nlev (i,m3,ipat) = leaf%sfcwater_nlev (i,m3-1,ipat) + leaf%stom_resist (i,m3,ipat) = leaf%stom_resist (i,m3-1,ipat) + leaf%ground_rsat (i,m3,ipat) = leaf%ground_rsat (i,m3-1,ipat) + leaf%ground_rvap (i,m3,ipat) = leaf%ground_rvap (i,m3-1,ipat) + leaf%veg_water (i,m3,ipat) = leaf%veg_water (i,m3-1,ipat) + leaf%veg_temp (i,m3,ipat) = leaf%veg_temp (i,m3-1,ipat) + leaf%can_rvap (i,m3,ipat) = leaf%can_rvap (i,m3-1,ipat) + leaf%can_temp (i,m3,ipat) = leaf%can_temp (i,m3-1,ipat) + leaf%veg_ndvip (i,m3,ipat) = leaf%veg_ndvip (i,m3-1,ipat) + leaf%veg_ndvic (i,m3,ipat) = leaf%veg_ndvic (i,m3-1,ipat) + + do k = 1,mzg + leaf%soil_water (k,i,m3,ipat)=leaf%soil_water (k,i,m3-1,ipat) + leaf%soil_energy (k,i,m3,ipat)=leaf%soil_energy (k,i,m3-1,ipat) + enddo + + do k = 1,mzs + leaf%sfcwater_mass (k,i,m3,ipat)=leaf%sfcwater_mass (k,i,m3-1,ipat) + leaf%sfcwater_energy(k,i,m3,ipat)=leaf%sfcwater_energy(k,i,m3-1,ipat) + leaf%sfcwater_depth (k,i,m3,ipat)=leaf%sfcwater_depth (k,i,m3-1,ipat) + enddo + enddo + enddo +endif + +return +END SUBROUTINE leaf_bcond + +!############################################################################## +Subroutine rad_bcond (m1,m2,m3,radiate,ibcon) + +use mem_grid +use mem_radiate + +implicit none + +type (radiate_vars) :: radiate + +integer :: m1,m2,m3,ibcon,i,j,k + +!Lateral boundary set +! West side, ibcon 1's place bit set +if (iand(ibcon,1) .ne. 0) then + do j = 1,m3 + do k = 1,m1 + radiate%fthrd(k,1,j) = radiate%fthrd(k,2,j) + if(ilwrtyp == 3 .or. iswrtyp == 3) then + radiate%bext(k,1,j) = radiate%bext(k,2,j) + endif + if(iswrtyp == 3) then + radiate%swup(k,1,j) = radiate%swup(k,2,j) + radiate%swdn(k,1,j) = radiate%swdn(k,2,j) + endif + if(ilwrtyp == 3) then + radiate%lwup(k,1,j) = radiate%lwup(k,2,j) + radiate%lwdn(k,1,j) = radiate%lwdn(k,2,j) + endif + enddo + enddo +endif + +! East side, ibcon 2's place bit set +if (iand(ibcon,2) .ne. 0) then + do j = 1,m3 + do k = 1,m1 + radiate%fthrd(k,m2,j) = radiate%fthrd(k,m2-1,j) + if(ilwrtyp == 3 .or. iswrtyp == 3) then + radiate%bext(k,m2,j) = radiate%bext(k,m2-1,j) + endif + if(iswrtyp == 3) then + radiate%swup(k,m2,j) = radiate%swup(k,m2-1,j) + radiate%swdn(k,m2,j) = radiate%swdn(k,m2-1,j) + endif + if(ilwrtyp == 3) then + radiate%lwup(k,m2,j) = radiate%lwup(k,m2-1,j) + radiate%lwdn(k,m2,j) = radiate%lwdn(k,m2-1,j) + endif + enddo + enddo +endif + +! South side, ibcon 4's place bit set +if ((iand(ibcon,4) .ne. 0) .and. (jdim .eq. 1)) then + do i = 1,m2 + do k = 1,m1 + radiate%fthrd(k,i,1) = radiate%fthrd(k,i,2) + if(ilwrtyp == 3 .or. iswrtyp == 3) then + radiate%bext(k,i,1) = radiate%bext(k,i,2) + endif + if(iswrtyp == 3) then + radiate%swup(k,i,1) = radiate%swup(k,i,2) + radiate%swdn(k,i,1) = radiate%swdn(k,i,2) + endif + if(ilwrtyp == 3) then + radiate%lwup(k,i,1) = radiate%lwup(k,i,2) + radiate%lwdn(k,i,1) = radiate%lwdn(k,i,2) + endif + enddo + enddo +endif + +! North side, ibcon 8's place bit set +if ((iand(ibcon,8) .ne. 0) .and. (jdim .eq. 1)) then + do i = 1,m2 + do k = 1,m1 + radiate%fthrd(k,i,m3) = radiate%fthrd(k,i,m3-1) + if(ilwrtyp == 3 .or. iswrtyp == 3) then + radiate%bext(k,i,m3) = radiate%bext(k,i,m3-1) + endif + if(iswrtyp == 3) then + radiate%swup(k,i,m3) = radiate%swup(k,i,m3-1) + radiate%swdn(k,i,m3) = radiate%swdn(k,i,m3-1) + endif + if(ilwrtyp == 3) then + radiate%lwup(k,i,m3) = radiate%lwup(k,i,m3-1) + radiate%lwdn(k,i,m3) = radiate%lwdn(k,i,m3-1) + endif + enddo + enddo +endif + +return +END SUBROUTINE rad_bcond + +!############################################################################## +Subroutine turb_bcond (m2,m3,turb,ibcon) + +use mem_grid +use mem_turb + +implicit none + +type (turb_vars) :: turb + +integer :: m2,m3,ibcon,i,j + +! West side, ibcon 1's place bit set +if (iand(ibcon,1) .ne. 0) then + do j = 1,m3 + turb%sflux_u(1,j) = turb%sflux_u(2,j) + turb%sflux_v(1,j) = turb%sflux_v(2,j) + turb%sflux_w(1,j) = turb%sflux_w(2,j) + turb%sflux_t(1,j) = turb%sflux_t(2,j) + turb%sflux_r(1,j) = turb%sflux_r(2,j) + enddo +endif + +! East side, ibcon 2's place bit set +if (iand(ibcon,2) .ne. 0) then + do j = 1,m3 + turb%sflux_u(m2,j) = turb%sflux_u(m2-1,j) + turb%sflux_v(m2,j) = turb%sflux_v(m2-1,j) + turb%sflux_w(m2,j) = turb%sflux_w(m2-1,j) + turb%sflux_t(m2,j) = turb%sflux_t(m2-1,j) + turb%sflux_r(m2,j) = turb%sflux_r(m2-1,j) + enddo +endif + +! South side, ibcon 4's place bit set +if ((iand(ibcon,4) .ne. 0) .and. (jdim .eq. 1)) then + do i = 1,m2 + turb%sflux_u(i,1) = turb%sflux_u(i,2) + turb%sflux_v(i,1) = turb%sflux_v(i,2) + turb%sflux_w(i,1) = turb%sflux_w(i,2) + turb%sflux_t(i,1) = turb%sflux_t(i,2) + turb%sflux_r(i,1) = turb%sflux_r(i,2) + enddo +endif + +! North side, ibcon 8's place bit set +if ((iand(ibcon,8) .ne. 0) .and. (jdim .eq. 1)) then + do i = 1,m2 + turb%sflux_u(i,m3) = turb%sflux_u(i,m3-1) + turb%sflux_v(i,m3) = turb%sflux_v(i,m3-1) + turb%sflux_w(i,m3) = turb%sflux_w(i,m3-1) + turb%sflux_t(i,m3) = turb%sflux_t(i,m3-1) + turb%sflux_r(i,m3) = turb%sflux_r(i,m3-1) + enddo +endif + +return +END SUBROUTINE turb_bcond + +!############################################################################## +Subroutine sfcrad_bcond (m2,m3,radiate,ibcon) + +use mem_grid +use mem_radiate + +implicit none + +type (radiate_vars) :: radiate + +integer :: m2,m3,ibcon,i,j + +! West side, ibcon 1's place bit set +if (iand(ibcon,1) .ne. 0) then + do j = 1,m3 + radiate%rshort(1,j) = radiate%rshort(2,j) + radiate%rlong(1,j) = radiate%rlong(2,j) + radiate%rlongup(1,j) = radiate%rlongup(2,j) + radiate%albedt(1,j) = radiate%albedt(2,j) + radiate%cosz(1,j) = radiate%cosz(2,j) + radiate%aodt(1,j) = radiate%aodt(2,j) + enddo +endif + +! East side, ibcon 2's place bit set +if (iand(ibcon,2) .ne. 0) then + do j = 1,m3 + radiate%rshort(m2,j) = radiate%rshort(m2-1,j) + radiate%rlong(m2,j) = radiate%rlong(m2-1,j) + radiate%rlongup(m2,j) = radiate%rlongup(m2-1,j) + radiate%albedt(m2,j) = radiate%albedt(m2-1,j) + radiate%cosz(m2,j) = radiate%cosz(m2-1,j) + radiate%aodt(m2,j) = radiate%aodt(m2-1,j) + enddo +endif + +! South side, ibcon 4's place bit set +if ((iand(ibcon,4) .ne. 0) .and. (jdim .eq. 1)) then + do i = 1,m2 + radiate%rshort(i,1) = radiate%rshort(i,2) + radiate%rlong(i,1) = radiate%rlong(i,2) + radiate%rlongup(i,1) = radiate%rlongup(i,2) + radiate%albedt(i,1) = radiate%albedt(i,2) + radiate%cosz(i,1) = radiate%cosz(i,2) + radiate%aodt(i,1) = radiate%aodt(i,2) + enddo +endif + +! North side, ibcon 8's place bit set +if ((iand(ibcon,8) .ne. 0) .and. (jdim .eq. 1)) then + do i = 1,m2 + radiate%rshort(i,m3) = radiate%rshort(i,m3-1) + radiate%rlong(i,m3) = radiate%rlong(i,m3-1) + radiate%rlongup(i,m3) = radiate%rlongup(i,m3-1) + radiate%albedt(i,m3) = radiate%albedt(i,m3-1) + radiate%cosz(i,m3) = radiate%cosz(i,m3-1) + radiate%aodt(i,m3) = radiate%aodt(i,m3-1) + enddo +endif + +return +END SUBROUTINE sfcrad_bcond + +!############################################################################## +Subroutine sib_bcond (m2,m3,npat,sib,ibcon) + +use mem_grid +use mem_sib + +implicit none + +type (sib_vars) :: sib + +integer :: m2,m3,ibcon,npat,ipat,i,j + +!Set BCs for SiB variables. + +! West side, ibcon 1's place bit set +if (iand(ibcon,1) .ne. 0) then + do ipat = 1,npat + do j = 1,m3 + sib%snow1(1,j,ipat) = sib%snow1(2,j,ipat) + sib%snow2(1,j,ipat) = sib%snow2(2,j,ipat) + sib%capac1(1,j,ipat) = sib%capac1(2,j,ipat) + sib%capac2(1,j,ipat) = sib%capac2(2,j,ipat) + sib%pco2ap(1,j,ipat) = sib%pco2ap(2,j,ipat) + sib%co2flx(1,j,ipat) = sib%co2flx(2,j,ipat) + sib%sfcswa(1,j,ipat) = sib%sfcswa(2,j,ipat) + sib%uplwrf(1,j,ipat) = sib%uplwrf(2,j,ipat) + sib%assimn(1,j,ipat) = sib%assimn(2,j,ipat) + sib%respg(1,j,ipat) = sib%respg(2,j,ipat) + sib%rstfac1(1,j,ipat) = sib%rstfac1(2,j,ipat) + sib%rstfac2(1,j,ipat) = sib%rstfac2(2,j,ipat) + sib%rstfac3(1,j,ipat) = sib%rstfac3(2,j,ipat) + sib%ect(1,j,ipat) = sib%ect(2,j,ipat) + sib%eci(1,j,ipat) = sib%eci(2,j,ipat) + sib%egi(1,j,ipat) = sib%egi(2,j,ipat) + sib%egs(1,j,ipat) = sib%egs(2,j,ipat) + sib%hc(1,j,ipat) = sib%hc(2,j,ipat) + sib%hg(1,j,ipat) = sib%hg(2,j,ipat) + sib%ra(1,j,ipat) = sib%ra(2,j,ipat) + sib%rb(1,j,ipat) = sib%rb(2,j,ipat) + sib%rc(1,j,ipat) = sib%rc(2,j,ipat) + sib%rd(1,j,ipat) = sib%rd(2,j,ipat) + sib%roff(1,j,ipat) = sib%roff(2,j,ipat) + sib%green(1,j,ipat) = sib%green(2,j,ipat) + sib%apar(1,j,ipat) = sib%apar(2,j,ipat) + sib%ventmf(1,j,ipat) = sib%ventmf(2,j,ipat) + sib%pco2c(1,j,ipat) = sib%pco2c(2,j,ipat) + sib%pco2i(1,j,ipat) = sib%pco2i(2,j,ipat) + sib%pco2s(1,j,ipat) = sib%pco2s(2,j,ipat) + sib%pco2m(1,j,ipat) = sib%pco2m(2,j,ipat) + sib%ea(1,j,ipat) = sib%ea(2,j,ipat) + sib%em(1,j,ipat) = sib%em(2,j,ipat) + sib%rha(1,j,ipat) = sib%rha(2,j,ipat) + sib%radvbc(1,j,ipat) = sib%radvbc(2,j,ipat) + sib%radvdc(1,j,ipat) = sib%radvdc(2,j,ipat) + sib%radnbc(1,j,ipat) = sib%radnbc(2,j,ipat) + sib%radndc(1,j,ipat) = sib%radndc(2,j,ipat) + sib%psy(1,j,ipat) = sib%psy(2,j,ipat) + enddo + enddo +endif + +! East side, ibcon 2's place bit set +if (iand(ibcon,2) .ne. 0) then + do ipat = 1,npat + do j = 1,m3 + sib%snow1(m2,j,ipat) = sib%snow1(m2-1,j,ipat) + sib%snow2(m2,j,ipat) = sib%snow2(m2-1,j,ipat) + sib%capac1(m2,j,ipat) = sib%capac1(m2-1,j,ipat) + sib%capac2(m2,j,ipat) = sib%capac2(m2-1,j,ipat) + sib%pco2ap(m2,j,ipat) = sib%pco2ap(m2-1,j,ipat) + sib%co2flx(m2,j,ipat) = sib%co2flx(m2-1,j,ipat) + sib%sfcswa(m2,j,ipat) = sib%sfcswa(m2-1,j,ipat) + sib%uplwrf(m2,j,ipat) = sib%uplwrf(m2-1,j,ipat) + sib%assimn(m2,j,ipat) = sib%assimn(m2-1,j,ipat) + sib%respg(m2,j,ipat) = sib%respg(m2-1,j,ipat) + sib%rstfac1(m2,j,ipat) = sib%rstfac1(m2-1,j,ipat) + sib%rstfac2(m2,j,ipat) = sib%rstfac2(m2-1,j,ipat) + sib%rstfac3(m2,j,ipat) = sib%rstfac3(m2-1,j,ipat) + sib%ect(m2,j,ipat) = sib%ect(m2-1,j,ipat) + sib%eci(m2,j,ipat) = sib%eci(m2-1,j,ipat) + sib%egi(m2,j,ipat) = sib%egi(m2-1,j,ipat) + sib%egs(m2,j,ipat) = sib%egs(m2-1,j,ipat) + sib%hc(m2,j,ipat) = sib%hc(m2-1,j,ipat) + sib%hg(m2,j,ipat) = sib%hg(m2-1,j,ipat) + sib%ra(m2,j,ipat) = sib%ra(m2-1,j,ipat) + sib%rb(m2,j,ipat) = sib%rb(m2-1,j,ipat) + sib%rc(m2,j,ipat) = sib%rc(m2-1,j,ipat) + sib%rd(m2,j,ipat) = sib%rd(m2-1,j,ipat) + sib%roff(m2,j,ipat) = sib%roff(m2-1,j,ipat) + sib%green(m2,j,ipat) = sib%green(m2-1,j,ipat) + sib%apar(m2,j,ipat) = sib%apar(m2-1,j,ipat) + sib%ventmf(m2,j,ipat) = sib%ventmf(m2-1,j,ipat) + sib%pco2c(m2,j,ipat) = sib%pco2c(m2-1,j,ipat) + sib%pco2i(m2,j,ipat) = sib%pco2i(m2-1,j,ipat) + sib%pco2s(m2,j,ipat) = sib%pco2s(m2-1,j,ipat) + sib%pco2m(m2,j,ipat) = sib%pco2m(m2-1,j,ipat) + sib%ea(m2,j,ipat) = sib%ea(m2-1,j,ipat) + sib%em(m2,j,ipat) = sib%em(m2-1,j,ipat) + sib%rha(m2,j,ipat) = sib%rha(m2-1,j,ipat) + sib%radvbc(m2,j,ipat) = sib%radvbc(m2-1,j,ipat) + sib%radvdc(m2,j,ipat) = sib%radvdc(m2-1,j,ipat) + sib%radnbc(m2,j,ipat) = sib%radnbc(m2-1,j,ipat) + sib%radndc(m2,j,ipat) = sib%radndc(m2-1,j,ipat) + sib%psy(m2,j,ipat) = sib%psy(m2-1,j,ipat) + enddo + enddo +endif + +! South side, ibcon 4's place bit set +if ((iand(ibcon,4) .ne. 0) .and. (jdim .eq. 1)) then + do ipat = 1,npat + do i = 1,m2 + sib%snow1(i,1,ipat) = sib%snow1(i,2,ipat) + sib%snow2(i,1,ipat) = sib%snow2(i,2,ipat) + sib%capac1(i,1,ipat) = sib%capac1(i,2,ipat) + sib%capac2(i,1,ipat) = sib%capac2(i,2,ipat) + sib%pco2ap(i,1,ipat) = sib%pco2ap(i,2,ipat) + sib%co2flx(i,1,ipat) = sib%co2flx(i,2,ipat) + sib%sfcswa(i,1,ipat) = sib%sfcswa(i,2,ipat) + sib%uplwrf(i,1,ipat) = sib%uplwrf(i,2,ipat) + sib%assimn(i,1,ipat) = sib%assimn(i,2,ipat) + sib%respg(i,1,ipat) = sib%respg(i,2,ipat) + sib%rstfac1(i,1,ipat) = sib%rstfac1(i,2,ipat) + sib%rstfac2(i,1,ipat) = sib%rstfac2(i,2,ipat) + sib%rstfac3(i,1,ipat) = sib%rstfac3(i,2,ipat) + sib%ect(i,1,ipat) = sib%ect(i,2,ipat) + sib%eci(i,1,ipat) = sib%eci(i,2,ipat) + sib%egi(i,1,ipat) = sib%egi(i,2,ipat) + sib%egs(i,1,ipat) = sib%egs(i,2,ipat) + sib%hc(i,1,ipat) = sib%hc(i,2,ipat) + sib%hg(i,1,ipat) = sib%hg(i,2,ipat) + sib%ra(i,1,ipat) = sib%ra(i,2,ipat) + sib%rb(i,1,ipat) = sib%rb(i,2,ipat) + sib%rc(i,1,ipat) = sib%rc(i,2,ipat) + sib%rd(i,1,ipat) = sib%rd(i,2,ipat) + sib%roff(i,1,ipat) = sib%roff(i,2,ipat) + sib%green(i,1,ipat) = sib%green(i,2,ipat) + sib%apar(i,1,ipat) = sib%apar(i,2,ipat) + sib%ventmf(i,1,ipat) = sib%ventmf(i,2,ipat) + sib%pco2c(i,1,ipat) = sib%pco2c(i,2,ipat) + sib%pco2i(i,1,ipat) = sib%pco2i(i,2,ipat) + sib%pco2s(i,1,ipat) = sib%pco2s(i,2,ipat) + sib%pco2m(i,1,ipat) = sib%pco2m(i,2,ipat) + sib%ea(i,1,ipat) = sib%ea(i,2,ipat) + sib%em(i,1,ipat) = sib%em(i,2,ipat) + sib%rha(i,1,ipat) = sib%rha(i,2,ipat) + sib%radvbc(i,1,ipat) = sib%radvbc(i,2,ipat) + sib%radvdc(i,1,ipat) = sib%radvdc(i,2,ipat) + sib%radnbc(i,1,ipat) = sib%radnbc(i,2,ipat) + sib%radndc(i,1,ipat) = sib%radndc(i,2,ipat) + sib%psy(i,1,ipat) = sib%psy(i,2,ipat) + enddo + enddo +endif + +! North side, ibcon 8's place bit set +if ((iand(ibcon,8) .ne. 0) .and. (jdim .eq. 1)) then + do ipat = 1,npat + do i = 1,m2 + sib%snow1(i,m3,ipat) = sib%snow1(i,m3-1,ipat) + sib%snow2(i,m3,ipat) = sib%snow2(i,m3-1,ipat) + sib%capac1(i,m3,ipat) = sib%capac1(i,m3-1,ipat) + sib%capac2(i,m3,ipat) = sib%capac2(i,m3-1,ipat) + sib%pco2ap(i,m3,ipat) = sib%pco2ap(i,m3-1,ipat) + sib%co2flx(i,m3,ipat) = sib%co2flx(i,m3-1,ipat) + sib%sfcswa(i,m3,ipat) = sib%sfcswa(i,m3-1,ipat) + sib%uplwrf(i,m3,ipat) = sib%uplwrf(i,m3-1,ipat) + sib%assimn(i,m3,ipat) = sib%assimn(i,m3-1,ipat) + sib%respg(i,m3,ipat) = sib%respg(i,m3-1,ipat) + sib%rstfac1(i,m3,ipat) = sib%rstfac1(i,m3-1,ipat) + sib%rstfac2(i,m3,ipat) = sib%rstfac2(i,m3-1,ipat) + sib%rstfac3(i,m3,ipat) = sib%rstfac3(i,m3-1,ipat) + sib%ect(i,m3,ipat) = sib%ect(i,m3-1,ipat) + sib%eci(i,m3,ipat) = sib%eci(i,m3-1,ipat) + sib%egi(i,m3,ipat) = sib%egi(i,m3-1,ipat) + sib%egs(i,m3,ipat) = sib%egs(i,m3-1,ipat) + sib%hc(i,m3,ipat) = sib%hc(i,m3-1,ipat) + sib%hg(i,m3,ipat) = sib%hg(i,m3-1,ipat) + sib%ra(i,m3,ipat) = sib%ra(i,m3-1,ipat) + sib%rb(i,m3,ipat) = sib%rb(i,m3-1,ipat) + sib%rc(i,m3,ipat) = sib%rc(i,m3-1,ipat) + sib%rd(i,m3,ipat) = sib%rd(i,m3-1,ipat) + sib%roff(i,m3,ipat) = sib%roff(i,m3-1,ipat) + sib%green(i,m3,ipat) = sib%green(i,m3-1,ipat) + sib%apar(i,m3,ipat) = sib%apar(i,m3-1,ipat) + sib%ventmf(i,m3,ipat) = sib%ventmf(i,m3-1,ipat) + sib%pco2c(i,m3,ipat) = sib%pco2c(i,m3-1,ipat) + sib%pco2i(i,m3,ipat) = sib%pco2i(i,m3-1,ipat) + sib%pco2s(i,m3,ipat) = sib%pco2s(i,m3-1,ipat) + sib%pco2m(i,m3,ipat) = sib%pco2m(i,m3-1,ipat) + sib%ea(i,m3,ipat) = sib%ea(i,m3-1,ipat) + sib%em(i,m3,ipat) = sib%em(i,m3-1,ipat) + sib%rha(i,m3,ipat) = sib%rha(i,m3-1,ipat) + sib%radvbc(i,m3,ipat) = sib%radvbc(i,m3-1,ipat) + sib%radvdc(i,m3,ipat) = sib%radvdc(i,m3-1,ipat) + sib%radnbc(i,m3,ipat) = sib%radnbc(i,m3-1,ipat) + sib%radndc(i,m3,ipat) = sib%radndc(i,m3-1,ipat) + sib%psy(i,m3,ipat) = sib%psy(i,m3-1,ipat) + enddo + enddo +endif + +return +END SUBROUTINE sib_bcond + diff --git a/src/6.2.16/bc/rbnd_trsetsns.f90 b/src/6.2.16/bc/rbnd_trsetsns.f90 new file mode 100644 index 0000000..7ef6d0f --- /dev/null +++ b/src/6.2.16/bc/rbnd_trsetsns.f90 @@ -0,0 +1,84 @@ +!############################################################################## +Subroutine trsets_ns () + +use mem_grid +use mem_micro +use mem_radiate +use micphys +use node_mod, only:mzp,mxp,myp + +implicit none + +!Here we set top and bottom boundaries for non-advected +!3D vars or "non-scalars" since our definition of scalar refers +!to 3D vars that are advected and diffused. + +if(ilwrtyp+iswrtyp > 0) then + CALL trsetns (mzp,mxp,myp,radiate_g(ngrid)%fthrd,1) +endif + +if(ilwrtyp == 3 .or. iswrtyp == 3) then + CALL trsetns (mzp,mxp,myp,radiate_g(ngrid)%bext,2) +endif + +if(jnmb(2) >= 1) then + CALL trsetns (mzp,mxp,myp,micro_g(ngrid)%pcpvr,2) +endif + +if(jnmb(3) >= 1) then + CALL trsetns (mzp,mxp,myp,micro_g(ngrid)%pcpvp,2) +endif + +if(jnmb(4) >= 1) then + CALL trsetns (mzp,mxp,myp,micro_g(ngrid)%pcpvs,2) +endif + +if(jnmb(5) >= 1) then + CALL trsetns (mzp,mxp,myp,micro_g(ngrid)%pcpva,2) +endif + +if(jnmb(6) >= 1) then + CALL trsetns (mzp,mxp,myp,micro_g(ngrid)%pcpvg,2) +endif + +if(jnmb(7) >= 1) then + CALL trsetns (mzp,mxp,myp,micro_g(ngrid)%pcpvh,2) +endif + +if(jnmb(8) >= 1) then + CALL trsetns (mzp,mxp,myp,micro_g(ngrid)%pcpvd,2) +endif + +return +END SUBROUTINE trsets_ns + +!############################################################################## +Subroutine trsetns (m1,m2,m3,ap,flg) + +use mem_grid + +implicit none + +real, dimension(m1,m2,m3) :: ap +integer :: m1,m2,m3,i,j,flg +real :: dzmr + +dzmr = dzm(m1-2) / dzm(m1-1) + +!Top and bottom boundary setting +do j = 1,m3 + do i = 1,m2 + + if(flg==1) & + ap(m1,i,j) = ap(m1-1,i,j) + dzmr * (ap(m1-1,i,j) - ap(m1-2,i,j)) + + if(flg==2) & + ap(m1,i,j) = max(0., ap(m1-1,i,j) + dzmr * (ap(m1-1,i,j) - ap(m1-2,i,j))) + + ap(1,i,j) = ap(2,i,j) + + enddo +enddo + +return +END SUBROUTINE trsetns diff --git a/src/6.2.16/block/hdf5_f2c.c b/src/6.2.16/block/hdf5_f2c.c new file mode 100644 index 0000000..200ec8f --- /dev/null +++ b/src/6.2.16/block/hdf5_f2c.c @@ -0,0 +1,152 @@ +#include "utils_sub_names.h" + +#include "hdf5.h" + +hid_t fileid, dsetid, dspcid, mspcid, propid; + +/*************************** File routines ***********************************/ + +/*****************************************************************************/ + void fh5f_open (char*locfn,int*iaccess,int*hdferr) +{ + +unsigned flags; +hid_t access_id; +extern hid_t fileid; + +access_id = H5P_DEFAULT; +if(*iaccess == 1) flags = H5F_ACC_RDONLY; +if(*iaccess == 2) flags = H5F_ACC_RDWR; + +fileid = H5Fopen (locfn,flags,access_id); + +/*printf("fh5f_open_ - fileid: %d\n",fileid);*/ + +*hdferr = fileid; + +return; +} + +/*****************************************************************************/ + void fh5f_create (char*locfn,int*iaccess,int*hdferr) +{ + +unsigned flags; +hid_t access_id,create_id; +extern hid_t fileid; + +access_id = H5P_DEFAULT; +create_id = H5P_DEFAULT; +if(*iaccess == 1) flags = H5F_ACC_TRUNC; +if(*iaccess == 2) flags = H5F_ACC_EXCL ; + +fileid = H5Fcreate (locfn,flags,create_id,access_id); + +/*printf("fh5f_open_ - fileid: %d\n",fileid);*/ + +*hdferr = fileid; + +return; +} + +/*****************************************************************************/ + void fh5f_close (int*hdferr) +{ + +extern hid_t fileid; +herr_t herr; + +herr = H5Fclose (fileid); +/*printf("fh5f_close: %d\n",herr);*/ + +/* +The following causes problems with REVU since this command forces everything +to close and flushes all data to disk. This is bad if you have multiple +processes with hdf5 open. I do not think we need to use this H5close() cmd. +*/ +/*herr = H5close ();*/ +/*printf("H5_close: %d\n",herr);*/ + +*hdferr = herr; + +return; +} + +/**************************** Writing routines *******************************/ + +/*****************************************************************************/ + void fh5_prepare_write (int*ndims,int*dims,int*hdferr) +{ + +extern hid_t fileid, dsetid, dspcid, mspcid, propid; +int i; +herr_t herr; + +hsize_t dimsc[7] = {1,1,1,1,1,1,1}; +hsize_t maxdims[7] = {1,1,1,1,1,1,1}; +hsize_t chunk_size[7] = {0,0,0,0,0,0,0}; + +for (i = 0; i < *ndims; i++) { dimsc[i] = dims[i]; chunk_size[i] = dims[i]; + maxdims[i] = dims[i];} + +/* Create the data space for the dataset. */ +mspcid = H5Screate_simple (*ndims,dimsc,maxdims); +/*printf("fh5_prepw - create 1: %d\n",mspcid);*/ + +/* Create properties for gzip compression.*/ +propid = H5Pcreate (H5P_DATASET_CREATE); +/*printf("fh5_prepw - propid: %d\n",propid);*/ + +herr = H5Pset_chunk (propid,*ndims,chunk_size); +herr = H5Pset_shuffle (propid); +herr = H5Pset_deflate (propid,6); + +*hdferr = herr; +/*printf("fh5_prepw - compress: %d\n",mspcid);*/ + +return; +} + +/*****************************************************************************/ + void fh5_write (int*h5type,void*buf,char*dname,int*hdferr) +{ + +extern hid_t fileid, dsetid, dspcid, mspcid, propid; +herr_t herr; +hid_t memtype; + +if (*h5type == 1) memtype=H5T_NATIVE_INT32; +if (*h5type == 2) memtype=HDF5_FLOAT_TYPE; +if (*h5type == 3) memtype=H5T_STRING; +if (*h5type == 4) memtype=H5T_NATIVE_DOUBLE; +if (*h5type == 5) memtype=H5T_NATIVE_HBOOL; +/*printf("fh5_write - start: %d \n",memtype);*/ + +/* HDF5 1.8 API */ +dsetid = H5Dcreate (fileid,dname,memtype,mspcid,H5P_DEFAULT,propid,H5P_DEFAULT); +/*printf("fh5_write - create 1: %d\n",dsetid);*/ + +herr = H5Dwrite (dsetid,memtype,H5S_ALL,H5S_ALL,H5P_DEFAULT,buf); +/*printf("fh5_write - write 1: %d\n",herr);*/ + +*hdferr = herr; + +return; +} + +/*****************************************************************************/ + void fh5_close_write (int*hdferr) +{ + +extern hid_t dsetid, dspcid, mspcid; +herr_t herr; + +herr = H5Sclose (mspcid); +herr = H5Pclose (propid); +herr = H5Dclose (dsetid); +/*printf("fh5_close_write: %d\n",herr);*/ + +*hdferr = herr; + +return; +} diff --git a/src/6.2.16/block/hdf5_utils.f90 b/src/6.2.16/block/hdf5_utils.f90 new file mode 100644 index 0000000..6d885a8 --- /dev/null +++ b/src/6.2.16/block/hdf5_utils.f90 @@ -0,0 +1,251 @@ +!############################################################################## +Module hdf5_utils + +implicit none + +Contains + +Subroutine shdf5_open (locfn,access,idelete) + +implicit none + +character(len=*) :: locfn ! file name +character(len=*) :: access ! File access ('R','W','RW') +integer, optional :: idelete ! If W, delete/overwrite file if exists? 1=yes, 0=no + ! Only needed when access='W' + +integer :: hdferr ! Error flag +integer :: iaccess ! int access flag +character(len=2) :: caccess ! File access ('R ','W ','RW') + +logical :: exists ! File existence + +caccess = access + +! Check for existence of RAMS file. + +inquire(file=trim(locfn),exist=exists) + +! Create a new file or open an existing RAMS file. +if (access(1:1) == 'R') then + if (.not.exists) then + print*,'shdf5_open:' + print*,' Attempt to open a file for reading that does not exist.' + print*,' Filename: ',trim(locfn) + stop 'shdf5_open: no file' + else + if (caccess == 'R ') iaccess = 1 + if (caccess == 'RW') iaccess = 2 + CALL fh5f_open (trim(locfn)//char(0), iaccess, hdferr) + + if (hdferr < 0) then + print*,'shdf5_open:' + print*,' Error opening hdf5 file - error -',hdferr + print*,' Filename: ',trim(locfn) + stop 'shdf5_open: open error' + endif + endif +elseif (access(1:1) == 'W') then + if (.not.exists) then + iaccess=2 + CALL fh5f_create (trim(locfn)//char(0), iaccess, hdferr) + else + if(.not.present(idelete) ) then + print*,'shdf5_open: idelete not specified when access=W' + stop 'shdf5_open: no idelete' + endif + + if(idelete == 0) then + print*,'In shdf5_open:' + print*,' Attempt to open an existing file for writing, ' + print*,' but overwrite is disabled. idelete=',idelete + print*,' Filename: ',trim(locfn) + stop 'shdf5_open' + else + CALL usystem ('rm -f '//trim(locfn)//char(0)) + iaccess=1 + CALL fh5f_create (trim(locfn)//char(0), iaccess, hdferr) + endif + endif + if(hdferr < 0) then + print*,'HDF5 file create failed:',hdferr + print*,'file name:',trim(locfn),' ',trim(access), idelete + stop 'shdf5_open: bad create' + endif +endif + +return +END SUBROUTINE shdf5_open + +!############################################################################## +Subroutine shdf5_orec (ndims,dims,dsetname,ivara,rvara,cvara,dvara,lvara & + ,ivars,rvars,cvars,dvars,lvars) + +implicit none + +character(len=*) :: dsetname ! Variable label +integer :: ndims ! Number of dimensions or rank +integer, dimension(*) :: dims ! Dataset dimensions. + +! Array and scalar arguments for different types. Only specify one in each call. +integer, optional :: ivara(*),ivars +real, optional :: rvara(*),rvars +character(len=*), optional :: cvara(*),cvars +double precision, optional :: dvara(*),dvars +logical, optional :: lvara(*),lvars + +integer:: h5_type ! Local type designator + +integer, dimension(4) :: dimsh ! Dataset dimensions. + +character(len=2) :: ctype ! Variable type: int, real, char +integer :: hdferr ! Error flag + +! Find which data type is input + if(present(ivars)) then ; ctype='is' +elseif(present(rvars)) then ; ctype='rs' +elseif(present(cvars)) then ; ctype='cs' +elseif(present(dvars)) then ; ctype='ds' +elseif(present(lvars)) then ; ctype='ls' +elseif(present(ivara)) then ; ctype='ia' +elseif(present(rvara)) then ; ctype='ra' +elseif(present(cvara)) then ; ctype='ca' +elseif(present(dvara)) then ; ctype='da' +elseif(present(lvara)) then ; ctype='la' +else + print*,'Incorrect or missing data field argument in shdf5_orec' + stop 'shdf5_orec: bad data field' +endif + +! Check dimensions and set compression chunk size + +if (ndims <=0 .or. minval(dims(1:ndims)) <=0) then + print*,'Dimension error in shdf5_orec:',ndims,dims(1:ndims) + stop 'shdf5_orec: bad dims' +endif + +! Set up hyperslab selection specs for memory and file spaces +! +! Since we are working in FORTRAN and switching to C for the HDF5 I/O, +! we need to reverse the specification of dimension sizes. This is +! necessary to keep the data in the HDF5 file consistent. This need +! comes about due to the column-major array storage order in FORTRAN +! versus the row-major storage in C. Eg., 2D array in FORTRAN that +! has 3 rows and 2 columns: +! 1 4 +! 2 5 +! 3 6 +! +! It's typical to associate i with the rows and j with the columns, +! ie the array is indexed using (i,j). +! +! FORTRAN stores this in linear memory as: +! 1 2 3 4 5 6 +! +! If we tell C that this linear storage represents an array that is +! 3 rows and 2 columns, C will see this as: +! 1 2 +! 3 4 +! 5 6 +! Note that the association with (i,j) is now broken. Eg, A(i,j) where +! i = 1,2,3 and j is held at 1 gives 1 3 5, which in FORTRAN would have +! given 1 2 3. +! +! However, if we reverse the specs of the dimension sizes (tell C that +! the array is 2 rows by 3 columns), then C will see this as: +! 1 2 3 +! 4 5 6 +! Along with reversing the dimension sizes we also reverse the association +! with i and j: now the rows are associated with j and the columns are +! associated with i. With this scheme, when C is asked to give A(j,i) +! where i - 1,2,3 and j is held at 1, this results in 1 2 3 which matches +! what you would get in FORTRAN. +! +! Note: This could be also be accomplished by transposing the data in +! FORTRAN right before handing it to C, but it is way more efficient +! to reverse the dimension specs. + +CALL shdf5_reverse_dims (ndims,dims,dimsh) + +! Prepare memory and options for the write +CALL fh5_prepare_write (ndims,dimsh,hdferr) +if (hdferr /= 0) then + print*,'shdf5_orec: cannot prepare requested field:',trim(dsetname) + return +endif + +if (ctype(1:1) == 'i') h5_type=1 +if (ctype(1:1) == 'r') h5_type=2 +if (ctype(1:1) == 'c') h5_type=3 +if (ctype(1:1) == 'd') h5_type=4 +if (ctype(1:1) == 'l') h5_type=5 + +! Write the dataset. +if (ctype == 'is') then + CALL fh5_write (h5_type,ivars,trim(dsetname)//char(0),hdferr) +elseif (ctype == 'rs') then + CALL fh5_write (h5_type,rvars,trim(dsetname)//char(0),hdferr) +elseif (ctype == 'cs') then + CALL fh5_write (h5_type,cvars,trim(dsetname)//char(0),hdferr) +elseif (ctype == 'ds') then + CALL fh5_write (h5_type,dvars,trim(dsetname)//char(0),hdferr) +elseif (ctype == 'ls') then + CALL fh5_write (h5_type,lvars,trim(dsetname)//char(0),hdferr) +elseif (ctype == 'ia') then + CALL fh5_write (h5_type,ivara,trim(dsetname)//char(0),hdferr) +elseif (ctype == 'ra') then + CALL fh5_write (h5_type,rvara,trim(dsetname)//char(0),hdferr) +elseif (ctype == 'ca') then + CALL fh5_write (h5_type,cvara,trim(dsetname)//char(0),hdferr) +elseif (ctype == 'da') then + CALL fh5_write (h5_type,dvara,trim(dsetname)//char(0),hdferr) +elseif (ctype == 'la') then + CALL fh5_write (h5_type,lvara,trim(dsetname)//char(0),hdferr) +endif + +if (hdferr /= 0) then + print*,'In shdf5_orec: hdf5 write error =',hdferr + stop 'shdf5_orec: hdf5 write error' +endif + + +! Close the dataset, the dataspace for the dataset, and the dataspace properties. + +CALL fh5_close_write (hdferr) + +return +END SUBROUTINE shdf5_orec + +!############################################################################## +Subroutine shdf5_close () + +implicit none + +integer :: hdferr ! Error flags + +! Close RAMS hdf file. + +CALL fh5f_close (hdferr) + +return +END SUBROUTINE shdf5_close + +!############################################################################# +Subroutine shdf5_reverse_dims (ndims,dims,rev_dims) + +implicit none + + integer :: ndims + integer, dimension(ndims) :: dims, rev_dims + + integer :: i, irev + + do i = 1,ndims + irev = (ndims-i) + 1 + rev_dims(irev) = dims(i) + enddo + +return +END SUBROUTINE shdf5_reverse_dims + +END MODULE hdf5_utils diff --git a/src/6.2.16/block/mk_main.f90 b/src/6.2.16/block/mk_main.f90 new file mode 100644 index 0000000..1a19095 --- /dev/null +++ b/src/6.2.16/block/mk_main.f90 @@ -0,0 +1,178 @@ +Program mk_main + +use hdf5_utils + +implicit none + +integer :: i,j,nx,ny,iwlon,islat,iblsize,ibldim,ndims,idims(4) & + ,nsqx,nsqy,nsx,nsy,lat,lon,npt,jj,ii,nc,numarg,iargc +real :: tres,offlat,offlon +real, allocatable :: datain(:,:),latd(:),lond(:),scr(:) +character(len=80) :: icent,iyear,imonth,idate,itime +character(len=256) :: source,hpath,fpref,subdir,field_name & + ,title1,title2,title3,fname,datatype + +numarg=iargc() + +if (numarg < 1) then + print*, 'usage: ' + print*, 'executable infile datatype output_directory prefix' + print*, '(ie. mk-blkfiles-6.1.0 131231_ 1 output S)' + print*, '(see SST example in directory example_modis_sst)' + print*, '(file 131231_ is ASCII lat,lon,SST(C) MODIS data)' + print*, '(files S131231_90S000E.h5 S131231_90S180W.h5 are the output)' + print*, '(file SHEADER is the header file)' + print*, ' ' + print*, 'where:' + print*, ' input_file - name of input data file' + print*, ' header_path - directory where header file will be written' + print*, ' prefix - filename prefix for header and data files' + stop ' usage' +endif + +! Get the command line arguments +CALL ugetarg(1,source) ! input file name +CALL ugetarg(2,datatype) ! datatype number indicator +CALL ugetarg(3,hpath) ! output file path (and location of header file) +CALL ugetarg(4,fpref) ! output file name prefix for header and blocks + +! Set the attributes of the input data. These could be set in an input namelist +! but let's hardwire these in here for now: + +! Input parameters: +! +! nx - Number of x (longitude) gripoints in input array +! ny - Number of y (latitude) gripoints in input array +! iwlon - West longitude of data (-180 to 180 degrees) +! islat - South latitude of data (-90 to 90 degrees) +! tres - data resolution in degrees +! iblsize - Size in degrees of output files, they will have the +! same number of points in x and y. +! field_name - name given to field. Only relevant for hdf5 files +! +! Note that iwlon, islat, and iblsize are all integers. + +!Set grid and/or parameter sizes +if(trim(datatype)=='1')then + nx = 4321 + ny = 2161 + iwlon = -180 + islat = -90 + tres = .08333333 + iblsize = 180 + offlat=0. + offlon=0. + field_name='MODIS_9km_sst' +elseif(trim(datatype)=='2')then + nx = 361 + ny = 181 + iwlon = -180 + islat = -90 + tres = 1.0 + iblsize = 180 + offlat=0. + offlon=0. + field_name='ReynoldsV2_1deg_sst' +elseif(trim(datatype)=='3')then + nx = 10801 + ny = 5401 + iwlon = -180 + islat = -90 + tres = .03333333 + iblsize = 180 + offlat=0. + offlon=0. + field_name='Etopo2-Bathymetry-3.72km' +else + stop 'Back Datatype Command line ID number' +endif + +! Allocate array to hold input data and scratch +ibldim=int(float(iblsize)/tres+.001)+1 +allocate (scr((ibldim+1)**2)) +allocate (datain(nx+1,ny+1)) +allocate (latd(ny),lond(nx)) + +! Read the input data. +! This will have to be modified depending on actual files.... +open(30,status='old',file=source,form='formatted') +4 FORMAT(f8.2,f8.2,E11.3) +DO I=1,nx + DO J=1,ny + read(30,4) LATD(J),LOND(I),datain(I,J) + if(trim(datatype)=='1' .or. trim(datatype)=='2')then + datain(I,J) = datain(I,J) + 273.16 + endif + enddo +enddo +close(30) + +! Any modifications to input? This example takes sst, overlaps a row in EW-NS, +! then converts to K +!datain(nx,1:ny) = datain(1,1:ny) +!datain(1:nx,ny) = datain(1:nx,2160) +!datain = datain + 273.16 + +! Compute number of grid points per block +nsqx=nx/(ibldim-1) +nsqy=ny/(ibldim-1) + +! Make sure hpath and subdir have slashes on the end... +nc=len_trim(hpath) ; if(hpath(nc:nc) /= '/') hpath(nc+1:nc+1)='/' +nc=len_trim(subdir) ; if(subdir(nc:nc) /= '/') subdir(nc+1:nc+1)='/' + +! Write the header file for this. If you do more than one time, the header +! file will have to be manually combined for now. +title3=trim(hpath)//trim(fpref)//'HEADER' +open(29,status='replace',file=title3,form='formatted') +print*, 'making file- ',trim(title3),' ',trim(field_name) +write(29,'(4i5,2f10.6,1X,A)')iblsize,ibldim,islat,iwlon,offlat & + ,offlon,trim(field_name) +write(29,'(i4)')1 +icent='20' +iyear=source(1:2) +imonth=source(3:4) +idate=source(5:6) +itime='00' +write(29,'(1X,a7,1X,a2,a2,3x,a2,3x,a2,3x,a2)') & + source,icent,iyear,imonth,idate,itime +close(29) + +title3=trim(fpref)//source +do nsx=1,nsqx + do nsy=1,nsqy + i=(nsx-1)*(ibldim-1)+1 + j=(nsy-1)*(ibldim-1)+1 + lat=islat+(nsy-1)*iblsize + lon=iwlon+(nsx-1)*iblsize + if(lat >= 0)then + write(title1,'(i2.2,a1)')lat,'N' + else + write(title1,'(i2.2,a1)')abs(lat),'S' + endif + if(lon >= 0)then + write(title2,'(i3.3,a1)')lon,'E' + else + write(title2,'(i3.3,a1)')abs(lon),'W' + endif + fname=trim(hpath)//trim(title3)//title1(1:3)//title2(1:4)//'.h5' + print*, 'making file- ',trim(fname) + npt=1 + do jj=j,(ibldim-1)+j + do ii=i,(ibldim-1)+i + scr(npt)=datain(ii,jj) + npt=npt+1 + enddo + enddo + ! Write the data file block + ! Write the HDF5 file + call shdf5_open(fname,'W',1) + ndims=2 ; idims(1)=ibldim ; idims(2)=ibldim + call shdf5_orec(ndims,idims,field_name,rvara=scr) + call shdf5_close() + enddo +enddo + +deallocate (scr,datain,latd,lond) + +END PROGRAM mk_main diff --git a/src/6.2.16/core/coriolis.f90 b/src/6.2.16/core/coriolis.f90 new file mode 100644 index 0000000..1234098 --- /dev/null +++ b/src/6.2.16/core/coriolis.f90 @@ -0,0 +1,209 @@ +!############################################################################## +Subroutine fcorio (n2,n3,fcoru,fcorv,glat) + +use mem_grid +use rconstants + +implicit none + +integer :: n2,n3 +real, dimension(n2,n3) :: fcoru,fcorv,glat + +! +----------------------------------------------------------------+ +! \ This routine calculates the Coriolis parameter. +! +----------------------------------------------------------------+ + +real :: omega2 +integer :: i,j + +omega2 = 2. * omega + +do j = 1,max(1,n3-1) + do i = 1,n2-1 + fcoru(i,j) = omega2*sin((glat(i,j)+glat(i+1,j)) & + *.5*pi180) + fcorv(i,j) = omega2*sin((glat(i,j)+glat(i,j+jdim)) & + *.5*pi180) + enddo +enddo + +return +END SUBROUTINE fcorio + +!############################################################################## +Subroutine corlos (mzp,mxp,myp,i0,j0,ia,iz,ja,jz,izu,jzv) + +use mem_basic +use mem_grid +use mem_scratch +use mem_tend + +implicit none + +integer :: mzp,mxp,myp,i0,j0,ia,iz,ja,jz,izu,jzv + +! This routine is the coriolis driver. Its purpose is to compute +! coriolis accelerations for u and v and add them into +! the accumulated tendency arrays of UT and VT. + +if(icorflg.eq.0) return + +CALL corlsu (mzp,mxp,myp,i0,j0,ia,izu,ja,jz & + ,basic_g(ngrid)%uc(1,1,1) & + ,basic_g(ngrid)%vc(1,1,1) & + ,tend%ut(1) & + ,scratch%scr1(1) & + ,grid_g(ngrid)%topu(1,1) & + ,grid_g(ngrid)%rtgu(1,1) & + ,basic_g(ngrid)%fcoru(1,1) ) + +CALL corlsv (mzp,mxp,myp,i0,j0,ia,iz,ja,jzv & + ,basic_g(ngrid)%uc(1,1,1) & + ,basic_g(ngrid)%vc(1,1,1) & + ,tend%vt(1) & + ,scratch%scr1(1) & + ,grid_g(ngrid)%topv(1,1) & + ,grid_g(ngrid)%rtgv(1,1) & + ,basic_g(ngrid)%fcorv(1,1) ) + +return +END SUBROUTINE corlos + +!############################################################################## +Subroutine corlsu (m1,m2,m3,i0,j0,ia,iz,ja,jz,up,vp,ut,vt3da,top,rtg,fcor) + +use mem_grid +use rconstants +use mem_scratch +use ref_sounding + +implicit none + +integer :: m1,m2,m3,i0,j0,ia,iz,ja,jz +real, dimension(m1,m2,m3) :: up,vp,ut,vt3da +real, dimension(m2,m3) :: top,rtg,fcor + +integer :: i,j,k +real :: c1 + +do j=ja,jz + do i=ia,iz + do k=2,m1-1 + vt3da(k,i,j)=(vp(k,i,j)+vp(k,i,j-jdim) & + +vp(k,i+1,j)+vp(k,i+1,j-jdim))*.25 + enddo + enddo +enddo + +c1=1./(erad*erad*2.) +if(ihtran.eq.0) c1=0. +do j=ja,jz + do i=ia,iz + do k=2,m1-1 + ut(k,i,j)=ut(k,i,j)-vt3da(k,i,j)*(-fcor(i,j) & + +c1*(vt3da(k,i,j)*xm(i+i0)-up(k,i,j)*yt(j+j0))) + enddo + enddo +enddo + +if (initial == 2 .or. (initial == 3 .and. initorig == 2)) return + +if (itopo == 1) then + + do j = ja,jz + do i = ia,iz + do k = 1,m1 + vctr2(k) = zt(k) * rtg(i,j) + top(i,j) + enddo + CALL htint (nzp,v01dn(1,ngrid),zt,nz,vctr5,vctr2) + do k = 2,m1-1 + ut(k,i,j) = ut(k,i,j) - fcor(i,j) * vctr5(k) + enddo + enddo + enddo + +else + + do j = ja,jz + do i = ia,iz + do k = 2,m1-1 + ut(k,i,j) = ut(k,i,j) - fcor(i,j) * v01dn(k,ngrid) + enddo + enddo + enddo + +endif + +return +END SUBROUTINE corlsu + +!############################################################################## +Subroutine corlsv (m1,m2,m3,i0,j0,ia,iz,ja,jz,up,vp,vt,vt3da,top,rtg,fcor) + +use mem_grid +use rconstants +use mem_scratch +use ref_sounding + +implicit none + +integer :: m1,m2,m3,i0,j0,ia,iz,ja,jz +real, dimension(m1,m2,m3) :: up,vp,vt3da,vt +real, dimension(m2,m3) :: top,rtg,fcor + +integer :: i,j,k +real :: c1 + +! This routine calculates coriolis tendencies to v + +do j = ja,jz + do i = ia,iz + do k = 2,m1-1 + vt3da(k,i,j) = (up(k,i,j) + up(k,i-1,j) & + + up(k,i,j+jdim) + up(k,i-1,j+jdim)) * .25 + enddo + enddo +enddo + +c1 = 1. / (erad * erad * 2.) +if (ihtran .eq. 0) c1 = 0. +do j = ja,jz + do i = ia,iz + do k = 2,m1-1 + vt(k,i,j) = vt(k,i,j) - vt3da(k,i,j) * (fcor(i,j) & + - c1 * (vp(k,i,j) * xt(i+i0) - vt3da(k,i,j) * ym(j+j0))) + enddo + enddo +enddo + +if (initial == 2 .or. (initial == 3 .and. initorig == 2)) return + +if (itopo == 1) then + + do j = ja,jz + do i = ia,iz + do k = 1,m1 + vctr2(k) = zt(k) * rtg(i,j) + top(i,j) + enddo + CALL htint (nzp,u01dn(1,ngrid),zt,nz,vctr5,vctr2) + do k = 2,m1-1 + vt(k,i,j) = vt(k,i,j) + fcor(i,j) * vctr5(k) + enddo + enddo + enddo + +else + + do j = ja,jz + do i = ia,iz + do k = 2,m1-1 + vt(k,i,j) = vt(k,i,j) + fcor(i,j) * u01dn(k,ngrid) + enddo + enddo + enddo + +endif + +return +END SUBROUTINE corlsv + diff --git a/src/6.2.16/core/modsched.f90 b/src/6.2.16/core/modsched.f90 new file mode 100644 index 0000000..1e79a26 --- /dev/null +++ b/src/6.2.16/core/modsched.f90 @@ -0,0 +1,322 @@ +!############################################################################## +Subroutine modsched (ischtab,ntab,ngrids,nxtnest,nndtrat,nsub) + +use mem_grid, only:print_msg + +implicit none + +integer :: ntab,ngrids,nsub,ischtab(ntab,*),nxtnest(*),nndtrat(*) & + ,ncnt(50),nnfm(50) +integer :: ng,nt,is,itopgrd,ntt,ngrid,isstp,n,k + +do ng=1,ngrids + nnfm(ng)=1 + ncnt(ng)=0 +enddo +do nt=1,4 + do ntt=1,ntab + ischtab(ntt,nt)=0 + enddo +enddo + +is=0 +itopgrd = 0 +do ng=1,ngrids + if(nxtnest(ng).eq.0)then + ngrid=ng + +30 ISSTP=MOD(NCNT(NGRID),NNDTRAT(NGRID))+1 + is=is+1 + +! Table value 1 is the grid number to be stepped forward + ischtab(is,1)=ngrid +! Table value 3 is the sub-timestep counter + ischtab(is,3)=ISSTP + + NCNT(NGRID)=NCNT(NGRID)+1 + +! Table value 5 is the total sub-timestep counter + ischtab(is,5)=NCNT(NGRID) + +40 NNFM(NGRID)=NNFM(NGRID)+1 + IF (NNFM(NGRID).GT.NGRIDS) GO TO 50 + IF (NXTNEST(NNFM(NGRID)).NE.NGRID) GO TO 40 + NGRID=NNFM(NGRID) + +! Table value 2 is the grid number to interpolate. 0 = no interpolate. + ischtab(is,2)=ngrid + + ISSTP=MOD(NCNT(NGRID),NNDTRAT(NGRID))+1 + + GO TO 30 + +50 NNFM(NGRID)=1 + IF (NXTNEST(NGRID).EQ.0) GO TO 80 + IF(NCNT(NGRID).LT.NCNT(NXTNEST(NGRID))*NNDTRAT(NGRID))THEN + GO TO 30 + ENDIF + +! Table value 4 is the number of grids to be fedback + ischtab(is,4)=ischtab(is,4)+1 +!!!!!!!!!!!!!!!!!!!!!!!!!!!! + ngrid=nxtnest(ngrid) +!!!!!!!!!!!!!!!!!!!!!!!!!!!! + + GO TO 40 + +80 CONTINUE + + endif +enddo + +nsub=is + +if(print_msg) then + print*,'=== Timestep Schedule ====' + print 333,(n,(ischtab(n,k),k=1,5),n=1,is) + print*,'' +333 format (6i5) +endif + +return +END SUBROUTINE modsched + +!############################################################################## +Subroutine cfl (n1,n2,n3,i0,j0,mynum) + +use mem_basic +use mem_grid + +implicit none + +integer :: n1,n2,n3,i0,j0,mynum + +CALL cfll (n1,n2,n3,i0,j0,mynum & + ,basic_g(ngrid)%up (1,1,1) ,basic_g(ngrid)%vp (1,1,1) & + ,basic_g(ngrid)%wp (1,1,1) ,grid_g(ngrid)%rtgt (1,1) & + ,grid_g(ngrid)%f13t (1,1) ,grid_g(ngrid)%f23t (1,1) & + ,grid_g(ngrid)%dxt (1,1) ,grid_g(ngrid)%dyt (1,1) ) + +return +END SUBROUTINE cfl + +!############################################################################## +Subroutine cfll (n1,n2,n3,i0,j0,mynum,up,vp,wp,rtgt,f13t,f23t,dxt,dyt) + +use mem_grid +use mem_scratch + +implicit none + +integer :: n1,n2,n3,i0,j0,mynum +real, dimension(n1,n2,n3) :: up,vp,wp +real, dimension(n2,n3) :: rtgt,f13t,f23t,dxt,dyt + +integer :: i,j,k,ifm,icm,innest,nprints +real :: c1x,c1y,c1z,cflnumh,cflnumv + +! This routine returns flags the model to bring itself down when the CFL +! linear stability criteria on advection is exceeded. +! (Actually check on 90% of CFL) + +5 format('NODE',i0,': cflx,ngrid,k,i,j = ',f5.1,4i5) +6 format('NODE',i0,': cfly,ngrid,k,i,j = ',f5.1,4i5) +7 format('NODE',i0,': cflz,ngrid,k,i,j = ',f5.1,4i5) + +nprints = 0 +cflnumh = .90 +cflnumv = .90 +cflxy(ngrid) = 0. +cflz(ngrid) = 0. +vertvel(ngrid) = 0. + +! Let's try a new thing... if we have a grid point that is on a +! coarse grid, but it is under a nested grid, we will ignore it +! under the assumption that the fine grid values will overwrite +! it, hence not allowing it to go numerically unstable. + +jloop: do j = 1+jdim,n3-jdim + iloop: do i = 2,n2-1 + + ! See if this is under a fine grid horizontally... ignore vertical for now + innest=0 + if (ngrids > ngrid) then + do ifm=ngrid+1,ngrids + icm=nxtnest(ifm) + if(icm == ngrid .and. & + i+i0 >= ipm(1,ifm) .and. i+i0 <= ipm(nnxp(ifm),ifm) .and. & + j+j0 >= jpm(1,ifm) .and. j+j0 <= jpm(nnyp(ifm),ifm) ) then + innest=1 + exit + endif + enddo + endif + + if(innest == 1) then + !print '(a,5i4)', 'cfl under grid-' & + ! ,ngrid,ifm,i+i0,j+j0,mynum + cycle iloop + endif + + kloop: do k = 2,n1-1 + + vctr1(k) = .5*(up(k,i,j)+up(k,i-1,j))*dtlt*dxt(i,j) + vctr2(k) = .5*(vp(k,i,j)+vp(k,i,j-jdim))*dtlt*dyt(i,j) + vctr3(k) = ((wp(k,i,j)+wp(k-1,i,j)) & + +(up(k,i,j)+up(k,i-1,j))*f13t(i,j)*ht(k)*rtgt(i,j) & + +(vp(k,i,j)+vp(k,i,j-jdim))*f23t(i,j)*ht(k)*rtgt(i,j) & + )*.5*dtlt*dzt(k) + enddo kloop + + do k = 2,n1-1 + c1x = abs(vctr1(k)) + c1y = abs(vctr2(k)) + c1z = abs(vctr3(k)) + + if (nprints .le. 10) then + if (c1x .gt. cflnumh) then + nprints = nprints + 1 + print 5, mynum,c1x,ngrid,k,i+i0,j+j0 + print'(a,i0,a,5e15.4)','NODE',mynum,': ' & + ,up(k,i,j),up(k,i-1,j),dtlt,dxt(i,j),vctr1(k) + endif + if (c1y .gt. cflnumh) then + nprints = nprints + 1 + print 6, mynum,c1y,ngrid,k,i+i0,j+j0 + endif + if (c1z .gt. cflnumv) then + nprints = nprints + 1 + print 7, mynum,c1z,ngrid,k,i+i0,j+j0 + endif + endif + + if (c1x .gt. cflxy(ngrid)) cflxy(ngrid) = c1x + if (c1y .gt. cflxy(ngrid)) cflxy(ngrid) = c1y + if (c1z .gt. cflz(ngrid)) cflz(ngrid) = c1z + if (wp(k,i,j) .gt. vertvel(ngrid)) vertvel(ngrid) = wp(k,i,j) + enddo + enddo iloop +enddo jloop + +return +END SUBROUTINE cfll + +!############################################################################## +Subroutine dtset () + +use mem_grid +use rconstants +use ref_sounding +use io_params +use node_mod + +implicit none + +real, dimension(maxgrds) :: sscourn +real, dimension(nzpmax) :: vctr1 + +integer, save :: icflfirst +real, save :: cflnumh,cflnumv,ssodx(maxgrds) + +integer :: ifm,id,n2,n3,k,icm +real :: ssmax,tmax,dxtmax,cflxyz,timeleft,dxt_sw,dxt_nw,dxt_se,dxt_ne + +! On the first call to this routine, initialize ssodx, dtlongn, +! nnacoust, and if required, nndtrat. +data icflfirst/0/ + +if (icflfirst .eq. 0) then + + icflfirst=1 + + cflnumh = .90 + cflnumv = .90 + + do ifm = 1,ngrids + n2 = mmxp(ifm) + n3 = mmyp(ifm) + do k = 1,mmzp(ifm) + vctr1(k) = th01dn(k,1) * pi01dn(k,1) / cp + enddo + tmax = maxval(vctr1(1:mmzp(ifm))) + ssmax = sqrt(cp / cv * rgas * tmax) + + ! First record dxt at the sub domain corners. Note that if + ! there is only one node, then mmxp and mmyp will describe + ! the full domain corners. get_fd_corner_vals will read + ! in the sub domain corner values and return the full + ! domain corner values. + dxt_sw = grid_g(ifm)%dxt(1,1) + dxt_nw = grid_g(ifm)%dxt(1,mmyp(ifm)) + dxt_se = grid_g(ifm)%dxt(mmxp(ifm),1) + dxt_ne = grid_g(ifm)%dxt(mmxp(ifm),mmyp(ifm)) + CALL get_fd_corner_vals (ifm, dxt_sw, dxt_nw, dxt_se, dxt_ne) + + dxtmax = max(dxt_sw, dxt_nw, dxt_se, dxt_ne) + ssodx(ifm) = ssmax * dxtmax + enddo + + sspct = 1. + do ifm = 1,ngrids + icm = nxtnest(ifm) + if (icm .eq. 0) then + dtlongn(ifm) = dtlong + else + dtlongn(ifm) = dtlongn(icm) / nndtrat(ifm) + endif + nnacoust(ifm) = nacoust + sscourn(ifm) = 2. * ssodx(ifm) * dtlongn(ifm) + sspct = min(sspct, & + .95*float(nnacoust(ifm))/(2.*sscourn(ifm))) + enddo + +! Print out initial values of dtlongn, nndtrat, nnacoust, sscourn, and sspct + if(print_msg) then + write(6,120) +120 format(/,'Initial timestep info: ngrid, nndtrat, nnacoust,' & + ,' dtlongn, sscourn, sspct') + + do ifm = 1,ngrids + + write(6,121) ifm,nndtrat(ifm),nnacoust(ifm),dtlongn(ifm) & + ,sscourn(ifm),sspct +121 format(23x,i3,i8,i9,f13.3,2f8.3) + enddo + print*,'' + endif + +endif + +! check Courant numbers + +do ifm = 1,ngrids + cflxyz = max(cflxy_max(ifm)/cflnumh,cflz_max(ifm)/cflnumv) + if (cflxyz > 1.) then + iflag = 1 + print'(a,i0,a)', 'NODE', my_rams_num, & + ': Model will stop because CFL limit exceeded.' + endif +enddo + +! For the coarse grid(s), adjust dtlongn(1) to not jump past an analysis +! write time or the end of the model run time. + +sspct = 1. +do ifm = 1,ngrids + icm = nxtnest(ifm) + if (ifm == 1) then + dtlongn(ifm) = dtlong + timeleft = & + min (timmax - time, frqstate(1) - mod(time,frqstate(1))) + if (dtlongn(1) > timeleft) dtlongn(1) = timeleft + else + dtlongn(ifm) = dtlongn(icm) / nndtrat(ifm) + endif + nnacoust(ifm) = nacoust + sscourn(ifm) = 2. * ssodx(ifm) * dtlongn(ifm) + sspct = min(sspct, & + .95*float(nnacoust(ifm))/(2.*sscourn(ifm))) +enddo + +return +END SUBROUTINE dtset diff --git a/src/6.2.16/core/newbase.f90 b/src/6.2.16/core/newbase.f90 new file mode 100644 index 0000000..bf5648d --- /dev/null +++ b/src/6.2.16/core/newbase.f90 @@ -0,0 +1,141 @@ +!############################################################################## +Subroutine new_base_state (n1,n2,n3) + +use mem_grid +use mem_basic +use node_mod +use ref_sounding, only:rt01dn +use micphys, only:idiffperts + +implicit none + +integer :: i,j,k,n1,n2,n3,nxm2,nym2 +double precision :: grwt +real, allocatable :: zttopt(:),basethp(:),basertp(:), th_avg_1d(:), rt_avg_1d(:) +double precision, allocatable :: avgth(:),avgrt(:), dom_avgth(:), dom_avgrt(:) + +!Note that this new base state is based on theta-il and NOT +!theta-v as is done for th01dn and th0. This is done so we do not +!have to recompute theta-il (THP) before diffusion. + +allocate(zttopt(n1)) + +if(idiffperts == 1) then + + !Make 3D base state for RTP (rvt0) from 1D base state. TH0 exists for THP. + !This new base state will be used for numerical diffusion of THP and RTP only. + do j = 1,n3 + do i = 1,n2 + + !Adjusted Grid point height + topography + do k = 1,n1 + zttopt(k)=zt(k)*grid_g(ngrid)%rtgt(i,j)+grid_g(ngrid)%topt(i,j) + enddo + + CALL htint (n1,rt01dn(1,ngrid),zt,n1,basic_g(ngrid)%rvt0(1,i,j),zttopt) + + enddo + enddo + +elseif(idiffperts == 2) then + + !Set the weight for each point in domain interior + nxm2 = nnxp(ngrid) - 2 + nym2 = nnyp(ngrid) - 2 + if(jdim==1)grwt=1.0/float(nxm2*nym2) + if(jdim==0)grwt=1.0/float(nxm2) + + allocate(avgth(n1)) + allocate(avgrt(n1)) + allocate(dom_avgth(n1)) + allocate(dom_avgrt(n1)) + allocate(th_avg_1d(n1)) + allocate(rt_avg_1d(n1)) + allocate(basethp(n1)) + allocate(basertp(n1)) + + !Zero out some quantities + do k = 1,n1 + avgth(k) = 0.0d0 + avgrt(k) = 0.0d0 + dom_avgth(k) = 0.0d0 + dom_avgrt(k) = 0.0d0 + enddo + + !Loop over subdomain to compute this subdomain's piece of the domain + !mean thp and rtp while adjusting for topography to get a new "base state". + do j = ja,jz + do i = ia,iz + + !Adjusted Grid point height + topography + do k = 1,n1 + zttopt(k)=zt(k)*grid_g(ngrid)%rtgt(i,j)+grid_g(ngrid)%topt(i,j) + enddo + + !Back interpolate theta-il (THP) and total water (RTP) to a base + !state like profile for averaging across a domain that might have + !topography + CALL htint2 (n1,basic_g(ngrid)%thp(1,i,j),zttopt,n1,basethp,zt) + CALL htint2 (n1,basic_g(ngrid)%rtp(1,i,j),zttopt,n1,basertp,zt) + + !Sum all basestate profiles to get domain mean profile + !Will use this to get a "domain mean" basestate, rather than using + !a basestate based on a single domain i,j point. Use double precision + !for grid averaging for best precision. + do k = 1,n1 + avgth(k) = avgth(k) + (dble(basethp(k)) * grwt) + avgrt(k) = avgrt(k) + (dble(basertp(k)) * grwt) + enddo + + enddo + enddo + + ! Avgth and avgrt contain the sums that represent this subdomain's piece + ! of the domaon average. If nmachs == 1, then we already have the + ! domain average in avgth and avgrt. Otherwise, we need to run an + ! MPI reduce in order to complete the sum for the whole domain. Running + ! an MPI allreduce will do the sum and broadcast to all nodes in + ! one call. + if (nmachs .eq. 1) then + do k = 1,n1 + dom_avgth(k) = avgth(k) + dom_avgrt(k) = avgrt(k) + enddo + else + CALL par_allreduce_sum_doubles (avgth, dom_avgth, n1) + CALL par_allreduce_sum_doubles (avgrt, dom_avgrt, n1) + endif + + ! Now dom_avgth and dom_avgrt contain the whole domain average. Copy + ! these to the TH00 and RT00 variables. + ! + !Convert averages to single precision values + do k = 1,n1 + th_avg_1d(k) = sngl(dom_avgth(k)) + rt_avg_1d(k) = sngl(dom_avgrt(k)) + enddo + + !Take the new "domain mean" new 1D base state and make 3D base state. + !This new base state will be used for numerical diffusion of THP and RTP only. + do j = 1,n3 + do i = 1,n2 + + !Adjusted Grid point height + topography + do k = 1,n1 + zttopt(k)=zt(k)*grid_g(ngrid)%rtgt(i,j)+grid_g(ngrid)%topt(i,j) + enddo + + CALL htint (n1,th_avg_1d,zt,n1,basic_g(ngrid)%th00(1,i,j),zttopt) + CALL htint (n1,rt_avg_1d,zt,n1,basic_g(ngrid)%rvt00(1,i,j),zttopt) + + enddo + enddo + deallocate(basethp,basertp,avgth,avgrt,dom_avgth,dom_avgrt) + +endif !If idiffperts==2 + +deallocate(zttopt) + +return +END SUBROUTINE new_base_state + diff --git a/src/6.2.16/core/raco.f90 b/src/6.2.16/core/raco.f90 new file mode 100644 index 0000000..8da418e --- /dev/null +++ b/src/6.2.16/core/raco.f90 @@ -0,0 +1,758 @@ +!############################################################################## +Subroutine acoustic () +!-------------------------------------------------------------------- +! Acoustic terms small time-step driver +! +! This routine calls all the necessary routines to march the model +! through the small timesteps. +!----------------------------------------------------------------------- +use mem_tend +use mem_grid +use mem_basic +use node_mod + +implicit none + +CALL acoust (mzp,mxp,myp & + ,basic_g(ngrid)%dn0,basic_g(ngrid)%pi0 & + ,basic_g(ngrid)%th0,basic_g(ngrid)%up & + ,basic_g(ngrid)%vp,basic_g(ngrid)%wp & + ,basic_g(ngrid)%pp & + ,tend%ut,tend%vt,tend%wt,tend%pt & + ,grid_g(ngrid)%topt,grid_g(ngrid)%topu & + ,grid_g(ngrid)%topv,grid_g(ngrid)%rtgt & + ,grid_g(ngrid)%rtgu,grid_g(ngrid)%f13u & + ,grid_g(ngrid)%dxu,grid_g(ngrid)%rtgv & + ,grid_g(ngrid)%dyv & + ,grid_g(ngrid)%f23v,grid_g(ngrid)%f13t & + ,grid_g(ngrid)%f23t,grid_g(ngrid)%fmapui & + ,grid_g(ngrid)%fmapvi,grid_g(ngrid)%dxt & + ,grid_g(ngrid)%dyt,grid_g(ngrid)%fmapt) + +return +END SUBROUTINE acoustic + +!############################################################################## +Subroutine acoust (m1,m2,m3 & + ,dn0,pi0,th0,up,vp,wp,pp,ut,vt,wt,pt & + ,topt,topu,topv,rtgt,rtgu,f13u,dxu,rtgv,dyv & + ,f23v,f13t,f23t,fmapui,fmapvi,dxt,dyt,fmapt) +!-------------------------------------------------------------------- +! Acoustic terms small time-step driver +! +! This routine calls all the necessary routines to march the model +! through the small timesteps. +!----------------------------------------------------------------------- +use mem_grid +use node_mod + +implicit none + +integer :: m1,m2,m3 +real, dimension(m1,m2,m3) ::dn0,pi0,th0,up,vp,wp,pp +real, dimension(m2,m3) :: topt,topu,topv,rtgt,rtgu,f13u,dxu,rtgv,dyv & + ,f23v,f13t,f23t,fmapui,fmapvi,dxt,dyt,fmapt +real, dimension(*) :: ut,vt,wt,pt + +real, dimension(:,:,:), allocatable :: acoc, acof, acog, amoe, & + amof, acoaa, amog +real, dimension(:,:), allocatable :: heatfx1 + +real :: a1da2 + +integer :: iter + +! Temporary coefficient values +! coefz() sets these +! various prdct routines read these +allocate(acoc(m1,m2,m3)) +allocate(acof(m1,m2,m3)) +allocate(acog(m1,m2,m3)) +allocate(amoe(m1,m2,m3)) +allocate(amof(m1,m2,m3)) +allocate(acoaa(m1,m2,m3)) + +! Temporary coefficient values +! prdctw2() sets amog +! prdctw3() reads amog +allocate(amog(m1,m2,m3)) + +! Temporary heat flux (at k == 1 level) +! prdctp1() sets heatfx1 +! prdctw2() reads heatfx1 +allocate(heatfx1(m2,m3)) + +do iter=1,nnacoust(ngrid) + +! Get coefficients for computations + +dts = 2. * dtlt / nnacoust(ngrid) + +if (iter .eq. 1) & + CALL coefz (mzp,mxp,myp,ia,iz,ja,jz & + ,acoc,acof,acog,dn0,pi0,th0 & + ,rtgt,a1da2,amoe,amof,acoaa) + +CALL prdctu (mzp,mxp,myp,ia,izu,ja,jz & + ,up,ut,pp,th0,f13u,rtgu,rtgt,dxu,topu) + +! Update u cyclic boundaries +if (ngrid .eq. 1) CALL update_cyclic (LBC_UP) + +CALL prdctv (mzp,mxp,myp,ia,iz,ja,jzv & + ,vp,vt,pp,th0,f23v,rtgv,rtgt,dyv,topv) + +! Update v cyclic boundaries +if (ngrid .eq. 1) CALL update_cyclic (LBC_VP) + +CALL prdctw1 (mzp,mxp,myp,ia,iz,ja,jz & + ,wp,wt,pp,acoc,a1da2,rtgt,topt) + +CALL prdctp1 (mzp,mxp,myp,ia,iz,ja,jz & + ,pp,up,vp,pi0,dn0,th0,pt,f13t,f23t,rtgt & + ,rtgu,rtgv,heatfx1,fmapui,fmapvi,dxt,dyt,fmapt) + +CALL prdctw2 (mzp,mxp,myp,ia,iz,ja,jz & + ,wp,pp,acoc,amof,amog,acoaa,rtgt,heatfx1) + +CALL prdctw3 (mzp,mxp,myp,ia,iz,ja,jz & + ,wp,amog,amoe,impl) + +! Update w cyclic boundaries +if (ngrid .eq. 1) CALL update_cyclic (LBC_WP) + +CALL prdctp2 (mzp,mxp,myp,ia,iz,ja,jz & + ,pp,wp,acof,acog) + +! Update p cyclic boundaries +if (ngrid .eq. 1) CALL update_cyclic (LBC_PP) + +enddo + +deallocate(acoc) +deallocate(acof) +deallocate(acog) +deallocate(amoe) +deallocate(amof) +deallocate(acoaa) + +deallocate(amog) + +deallocate(heatfx1) + +return +END SUBROUTINE acoust + +!############################################################################## +Subroutine prdctu (m1,m2,m3,ia,iz,ja,jz & + ,up,ut,pp,th0,f13u,rtgu,rtgt,dxu,topu) + +use mem_grid +use node_mod, only:nmachs + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,i,j,k +real :: dxl +real, dimension(m1,m2,m3) :: up,ut,th0,pp +real, dimension(m2,m3) :: f13u,rtgu,rtgt,dxu,topu +real :: dummy +real, dimension(:,:,:), allocatable :: dpdx, dpdx_top + +! U prediction + +allocate(dpdx(m1,m2,m3)) +allocate(dpdx_top(m1,m2,m3)) + +CALL azero (m1*m2*m3,dpdx) + +! Calculate acoustic tendency (horizontal pressure gradient) + +do j = ja,jz + do i = ia,iz + do k = 1,m1-1 + dpdx_top(k,i,j) = (pp(k,i,j) + pp(k+1,i,j) & + + pp(k,i+1,j) + pp(k+1,i+1,j)) * hw4(k) + enddo + enddo +enddo + +do j = ja,jz + do i = ia,iz + dxl = dxu(i,j) / rtgu(i,j) + do k = 2,m1-1 + dpdx(k,i,j) = -(th0(k,i,j) + th0(k,i+1,j)) * .5 & + * ((pp(k,i+1,j) * rtgt(i+1,j) - pp(k,i,j) * rtgt(i,j)) * dxl & + + (dpdx_top(k,i,j) - dpdx_top(k-1,i,j)) * dzt(k) * f13u(i,j)) + enddo + enddo +enddo + +if (distim .ne. 0.) then + ! 3rd to last argument is theta tendency which is only used + ! during rayleigh friction calculation for theta (1st arg == 4) + CALL rayf (1,m1,m2,m3,ia,iz,ja,jz,up,th0,dummy,rtgu,topu) +endif + +do j = 1,m3 + do i = 1,m2 + do k = 1,m1 + up(k,i,j) = up(k,i,j) + dts * (dpdx(k,i,j) + ut(k,i,j)) + enddo + enddo +enddo + +if (nstbot .eq. 1 .and. itopo .eq. 1) & + CALL botset (m1,m2,m3,up,'U') + +deallocate(dpdx) +deallocate(dpdx_top) + +! Update u overlap regions +if (nmachs .gt. 1) CALL update_lbc_var(m1,m2,m3,ngrid,up,3) + +return +END SUBROUTINE prdctu + +!############################################################################## +Subroutine prdctv (m1,m2,m3,ia,iz,ja,jz & + ,vp,vt,pp,th0,f23v,rtgv,rtgt,dyv,topv) + +use mem_grid +use node_mod, only:nmachs + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,i,j,k + +real :: dyl +real, dimension (m1,m2,m3) :: vp,vt,th0,pp +real, dimension(m2,m3) :: f23v,rtgv,rtgt,dyv,topv +real :: dummy +real, dimension(:,:,:), allocatable :: dpdy, dpdy_top + +! V prediction + +if (jdim .eq. 1) then + + allocate(dpdy(m1,m2,m3)) + allocate(dpdy_top(m1,m2,m3)) + + CALL azero (m1*m2*m3,dpdy) + +! calculate acoustic tendency (horizontal pressure gradient) + + do j = ja,jz + do i = ia,iz + do k = 1,m1-1 + dpdy_top(k,i,j) =(pp(k,i,j) + pp(k+1,i,j) & + + pp(k,i,j+1) + pp(k+1,i,j+1)) * hw4(k) + enddo + enddo + enddo + + do j = ja,jz + do i = ia,iz + dyl = dyv(i,j) / rtgv(i,j) + do k = 2,m1-1 + dpdy(k,i,j) = -(th0(k,i,j) + th0(k,i,j+1)) * .5 & + * ((pp(k,i,j+1) * rtgt(i,j+1) - pp(k,i,j) * rtgt(i,j)) * dyl & + + (dpdy_top(k,i,j) - dpdy_top(k-1,i,j)) * dzt(k) * f23v(i,j)) + enddo + enddo + enddo + + if (distim .ne. 0.) then + ! 3rd to last argument is theta tendency which is only used + ! during rayleigh friction calculation for theta (1st arg == 4) + CALL rayf (2,m1,m2,m3,ia,iz,ja,jz,vp,th0,dummy,rtgv,topv) + endif + + do j = 1,m3 + do i = 1,m2 + do k = 1,m1 + vp(k,i,j) = vp(k,i,j) + dts * (dpdy(k,i,j) + vt(k,i,j)) + enddo + enddo + enddo + + if (nstbot .eq. 1 .and. itopo .eq. 1) & + CALL botset (m1,m2,m3,vp,'V') + + deallocate(dpdy) + deallocate(dpdy_top) + + ! Update v overlap regions + if (nmachs .gt. 1) CALL update_lbc_var(m1,m2,m3,ngrid,vp,3) + +endif + +return +END SUBROUTINE prdctv + +!############################################################################## +Subroutine prdctw1 (m1,m2,m3,ia,iz,ja,jz & + ,wp,wt,pp,acoc,a1da2,rtgt,topt) + +use mem_grid +use node_mod, only:nmachs + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,i,j,k +real :: a1da2 +real, dimension(m1,m2,m3) :: wp,wt,pp,acoc +real, dimension(m2,m3) :: rtgt,topt +real :: dummy + +! First part of prediction at I,J point + +! Compute forward part of Crank-Nickelson scheme. This will be total +! W prediction for explicit case. + +if (distim .ne. 0.) then + ! 3rd to last argument is theta tendency which is only used + ! during rayleigh friction calculation for theta (1st arg == 4) + CALL rayf (3,m1,m2,m3,ia,iz,ja,jz,wp,wp,dummy,rtgt,topt) +endif + +! do j=ja,jz +! do i=ia,iz + +do j = 1,m3 + do i = 1,m2 + do k = 1,m1-2 + !This is Wk* in RAMS tech manual + wp(k,i,j) = wp(k,i,j) + dts * wt(k,i,j) + enddo + enddo +enddo + +do j = ja,jz + do i = ia,iz + do k = 1,m1-2 + !This is dk(PIk') in RAMS tech manual (dk = dt * theta0 / dz) + wp(k,i,j) = wp(k,i,j) + a1da2 * acoc(k,i,j) * (pp(k,i,j)-pp(k+1,i,j)) + enddo + enddo +enddo + +! Update w overlap regions +if (nmachs .gt. 1) CALL update_lbc_var(m1,m2,m3,ngrid,wp,3) + +return +END SUBROUTINE prdctw1 + +!############################################################################## +Subroutine prdctw2 (m1,m2,m3,ia,iz,ja,jz & + ,wp,pp,acoc,amof,amog,acoaa,rtgt,heatfx1) + +use mem_grid +use node_mod, only:nmachs + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,i,j,k +real, dimension(m1,m2,m3) :: wp,pp,acoc,amof,amog,acoaa +real, dimension(m2,m3) :: heatfx1,rtgt(m2,m3) + +if (nstbot .eq. 1) then + do j = ja,jz + do i = ia,iz + wp(1,i,j) = -heatfx1(i,j) * rtgt(i,j) + enddo + enddo +endif +!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc +! new trial fix 1/11/96 + +if (nsttop .eq. 1) then + do j = ja,jz + do i = ia,iz + wp(nz,i,j) = 0. + enddo + enddo +endif +!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc + +if (impl .eq. 1) then + +! First implicit part of the w prediction + + do j = ja,jz + do i = ia,iz + do k = 2,m1-2 + wp(k,i,j) = wp(k,i,j) - (pp(k+1,i,j) - pp(k,i,j)) * acoc(k,i,j) + enddo + enddo + enddo + + do j = ja,jz + do i = ia,iz + amog(1,i,j) = -wp(1,i,j) / amof(1,i,j) + enddo + do k = 2,m1-2 + do i = ia,iz + amog(k,i,j) = (-wp(k,i,j) - acoaa(k,i,j) * amog(k-1,i,j)) & + / amof(k,i,j) + enddo + enddo + enddo + +endif + +! Update w overlap regions +if (nmachs .gt. 1) CALL update_lbc_var(m1,m2,m3,ngrid,wp,3) + +return +END SUBROUTINE prdctw2 + +!############################################################################## +Subroutine prdctw3 (m1,m2,m3,ia,iz,ja,jz,wp,amog,amoe,impl) + +use mem_grid, only:ngrid +use node_mod, only:nmachs + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,impl,i,j,k,isflag,vnum + +real, dimension(m1,m2,m3) :: wp,amog,amoe + +! Conclusion of implicit w prediction + +if (impl .eq. 1) then + do k = m1-2,2,-1 + do j = ja,jz + do i = ia,iz + wp(k,i,j) = amog(k,i,j) - amoe(k,i,j) * wp(k+1,i,j) + enddo + enddo + enddo +endif + +! Update w overlap regions +if (nmachs .gt. 1) CALL update_lbc_var(m1,m2,m3,ngrid,wp,3) + +return +END SUBROUTINE prdctw3 + +!############################################################################## +Subroutine prdctp1 (m1,m2,m3,ia,iz,ja,jz & + ,pp,up,vp,pi0,dn0,th0,pt,f13t,f23t,rtgt,rtgu,rtgv & + ,heatfx1,fmapui,fmapvi,dxt,dyt,fmapt) + +use mem_grid +use node_mod, only:nmachs +use rconstants + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,i,j,k +real :: rocvpct +real, dimension(m1,m2,m3) :: pp,up,vp,pi0,pt,dn0,th0 +real, dimension(m2,m3) :: f13t,f23t,rtgt,heatfx1,rtgu,rtgv,fmapui & + ,fmapvi,dxt,dyt,fmapt +real, dimension(:,:,:), allocatable :: heatdv, heatfx + +allocate(heatdv(m1,m2,m3)) +allocate(heatfx(m1,m2,m3)) + +CALL azero (m1*m2*m3,heatdv) +rocvpct =rocv *sspct ** 2 + +! Divergence calculations for topographical transformation + +! First calculate vertically transformed heat flux + +do j = ja,jz + do i = ia,iz + do k = 1,m1 + heatfx(k,i,j) = ((up(k,i,j) + up(k,i-1,j)) * f13t(i,j) & + + (vp(k,i,j) + vp(k,i,j-jdim)) * f23t(i,j) & + ) * dn0(k,i,j) * th0(k,i,j) + enddo + enddo +enddo +do j = ja,jz + do i = ia,iz + do k = 1,m1-1 + heatfx(k,i,j) = (heatfx(k,i,j) + heatfx(k+1,i,j)) * hw4(k) + enddo + heatfx1(i,j) = heatfx(1,i,j) / (.5 * (dn0(1,i,j) * th0(1,i,j) & + + dn0(2,i,j) * th0(2,i,j))) + enddo +enddo + +do j = ja,jz + do i = ia,iz + do k = 2,m1-1 + heatdv(k,i,j) = (heatfx(k,i,j) - heatfx(k-1,i,j)) * dzt(k) + enddo + enddo +enddo +do j = 1,m3 + do i = 1,m2 + do k = 1,m1 + heatfx(k,i,j) = dn0(k,i,j) * th0(k,i,j) + enddo + enddo +enddo +do j = ja,jz + do i = ia,iz + do k = 2,m1-1 + heatdv(k,i,j) = -rocvpct * pi0(k,i,j) / heatfx(k,i,j) & + * (heatdv(k,i,j) + fmapt(i,j) & + * ((up(k,i,j) * rtgu(i,j) * fmapui(i,j) & + * (heatfx(k,i,j) + heatfx(k,i+1,j)) & + - up(k,i-1,j) * rtgu(i-1,j) * fmapui(i-1,j) & + * (heatfx(k,i,j) + heatfx(k,i-1,j))) * dxt(i,j) * .5 & + + (vp(k,i,j) * rtgv(i,j) * fmapvi(i,j) & + * (heatfx(k,i,j) + heatfx(k,i,j+jdim)) & + - vp(k,i,j-jdim) * rtgv(i,j-jdim) & + * fmapvi(i,j-jdim) & + * (heatfx(k,i,j) + heatfx(k,i,j-jdim))) & + * dyt(i,j) * .5) / rtgt(i,j)) + enddo + enddo +enddo + + +do j = ja,jz + do i = ia,iz + do k = 1,m1 + pp(k,i,j) = pp(k,i,j) + (pt(k,i,j) + heatdv(k,i,j)) * dts + enddo + enddo +enddo + +deallocate(heatdv) +deallocate(heatfx) + +! Update p overlap regions +if (nmachs .gt. 1) CALL update_lbc_var(m1,m2,m3,ngrid,pp,3) + +return +END SUBROUTINE prdctp1 + +!############################################################################## +Subroutine prdctp2 (m1,m2,m3,ia,iz,ja,jz,pp,wp,acof,acog) + +use mem_grid +use node_mod, only:nmachs + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,i,j,k +real, dimension(m1,m2,m3) :: pp,wp,acof,acog + +! Finish pressure prediction + +do j = ja,jz + do i = ia,iz + do k = 2,m1-1 + pp(k,i,j) = pp(k,i,j) & + + (wp(k,i,j) * acof(k,i,j) + wp(k-1,i,j) * acog(k,i,j)) + enddo + enddo +enddo + +if (nstbot .eq. 1) CALL botset (m1,m2,m3,pp,'P') + +! Update p overlap regions +if (nmachs .gt. 1) CALL update_lbc_var(m1,m2,m3,ngrid,pp,3) + +return +END SUBROUTINE prdctp2 + +!############################################################################## +Subroutine coefz (m1,m2,m3,ia,iz,ja,jz & + ,acoc,acof,acog,dn0,pi0,th0,rtgt,a1da2,amoe,amof,acoaa) + +use mem_grid +use rconstants + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,i,j,k + +real :: dt2al2,a1da2,rdto2cv,dt2al2r,rdtr +real, dimension(m1,m2,m3) :: th0,pi0,dn0,acoc,acof,acog,amoe,amof,acoaa +real, dimension(m2,m3) :: rtgt +real, dimension(:), allocatable :: acobb,acocc,mconn_coeff,rho_theta_base + +allocate(acobb(m1)) +allocate(acocc(m1)) +allocate(mconn_coeff(m1)) +allocate(rho_theta_base(m1)) + +! +--------------------------------------------------------------------+ +! \ Calculate coefficients for the vertical pressure gradient \ +! \ and divergence terms. These will be combined later for the \ +! \ implicit computations. \ +! +--------------------------------------------------------------------+ + +if (impl .eq. 1) then + dt2al2 = dts * .75 + a1da2 = 1. / 3. +else + dt2al2 = dts + a1da2 = 1. +endif +rdto2cv = sspct ** 2 * rgas * dts / (2.0 * cv) + +do j = ja,jz + do i = ia,iz + +! Coefficient for the vertical pressure gradient term + + dt2al2r = .5 * dt2al2 / rtgt(i,j) + do k = 1,m1-1 + acoc(k,i,j) = dt2al2r * dzm(k) * (th0(k,i,j) + th0(k+1,i,j)) + enddo + +! Coefficients for the vertical divergence term + + rdtr = rdto2cv / rtgt(i,j) + do k = 2,m1 + rho_theta_base(k) = dn0(k,i,j) * th0(k,i,j) + mconn_coeff(k) = rdtr * pi0(k,i,j) * dzt(k) / rho_theta_base(k) + enddo + rho_theta_base(1) = dn0(1,i,j) * th0(1,i,j) + do k = 2,m1-1 + acof(k,i,j) = -mconn_coeff(k) * (rho_theta_base(k) + rho_theta_base(k+1)) + acog(k,i,j) = mconn_coeff(k) * (rho_theta_base(k) + rho_theta_base(k-1)) + enddo + acog(m1,i,j) = mconn_coeff(m1) * (rho_theta_base(m1) + rho_theta_base(nz)) + + do k = 2,m1-1 + acoaa(k,i,j) = acoc(k,i,j) * acog(k,i,j) + acobb(k) = acoc(k,i,j) * (acof(k,i,j) - acog(k+1,i,j)) - 1. + acocc(k) = -acoc(k,i,j) * acof(k+1,i,j) + enddo + acobb(1) = -1. + acocc(1) = 0. + acoaa(m1,i,j) = 0. + acobb(m1) = -1. + + amof(1,i,j) = acobb(1) + amoe(1,i,j) = acocc(1) / amof(1,i,j) + do k = 2,m1 + amof(k,i,j) = acobb(k) - acoaa(k,i,j) * amoe(k-1,i,j) + amoe(k,i,j) = acocc(k) / amof(k,i,j) + enddo + + enddo +enddo + +deallocate(acobb) +deallocate(acocc) +deallocate(mconn_coeff) +deallocate(rho_theta_base) + +return +END SUBROUTINE coefz + +!############################################################################## +Subroutine buoyancy () + +use mem_tend +use mem_basic +use mem_grid +use node_mod +use micphys + +implicit none + +CALL boyanc (mzp,mxp,myp,ia,iz,ja,jz,tend%wt & + ,basic_g(ngrid)%theta,basic_g(ngrid)%rtp & + ,basic_g(ngrid)%rv,basic_g(ngrid)%th0,dtlt) + +return +END SUBROUTINE buoyancy + +!############################################################################## +Subroutine boyanc (m1,m2,m3,ia,iz,ja,jz,wt,theta,rtc,rv,th0,dtlt) + +use rconstants +use micphys +use mem_basic +use mem_grid, only:ngrid + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,i,j,k +real, dimension(m1,m2,m3) :: wt,theta,rtc,rv,th0 +real, dimension(:,:,:), allocatable :: vtemp,wpbuoytheta,wpbuoycond,wpadvdif +real :: dtlt + +allocate(vtemp(m1,m2,m3)) + +if(imbudget>=1) then + allocate(wpbuoytheta(m1,m2,m3)) + allocate(wpbuoycond(m1,m2,m3)) + allocate(wpadvdif(m1,m2,m3)) + CALL azero (m1*m2*m3,wpbuoytheta) + CALL azero (m1*m2*m3,wpbuoycond) + CALL azero (m1*m2*m3,wpadvdif) +endif + +if (level .ge. 1) then + do j = ja,jz + do i = ia,iz + do k = 2,m1-1 + vtemp(k,i,j) = gg * ((theta(k,i,j) * (1. + .61 * rv(k,i,j)) & + - th0(k,i,j)) / th0(k,i,j) - (rtc(k,i,j) - rv(k,i,j)) ) + !calculate partial W buoyancy budgets + if(imbudget>=1) then + wpbuoytheta(k,i,j) = gg * ((theta(k,i,j)*(1.+.61*rv(k,i,j)) & + - th0(k,i,j)) / th0(k,i,j)) + wpbuoycond(k,i,j) = gg * (-1.0*(rtc(k,i,j) - rv(k,i,j))) + endif + enddo + enddo + enddo +else + do j = ja,jz + do i = ia,iz + do k = 2,m1-1 + vtemp(k,i,j) = gg * (theta(k,i,j) / th0(k,i,j) - 1.) + !calculate partial W buoyancy budgets + if(imbudget>=1) wpbuoytheta(k,i,j) = vtemp(k,i,j) + enddo + enddo + enddo +endif + +do j = ja,jz + do i = ia,iz + do k = 2,m1-2 + !Calculate W buoyancy budgets (m/s) + !Calculate W due to advection and diffusion (current wt) + !Multiply by 2*dt for leapfrog timestep t-dt to t+dt + if(imbudget>=1) then + wpadvdif(k,i,j) = 2.0 * dtlt * wt(k,i,j) + wpbuoytheta(k,i,j) = 2.0 * dtlt * (wpbuoytheta(k,i,j) & + + wpbuoytheta(k+1,i,j)) + wpbuoycond(k,i,j) = 2.0 * dtlt * (wpbuoycond(k,i,j) & + + wpbuoycond(k+1,i,j)) + endif + wt(k,i,j) = wt(k,i,j) + vtemp(k,i,j) + vtemp(k+1,i,j) + enddo + enddo +enddo + +deallocate(vtemp) + +!Copy local W buoyancy budgets (m/s) to global budget variables +if(imbudget>=1) then + basic_g(ngrid)%wp_buoy_theta = wpbuoytheta + basic_g(ngrid)%wp_buoy_cond = wpbuoycond + basic_g(ngrid)%wp_advdif = wpadvdif + deallocate(wpbuoytheta) + deallocate(wpbuoycond) + deallocate(wpadvdif) +endif + +return +END SUBROUTINE boyanc diff --git a/src/6.2.16/core/radvc.f90 b/src/6.2.16/core/radvc.f90 new file mode 100644 index 0000000..d04ced5 --- /dev/null +++ b/src/6.2.16/core/radvc.f90 @@ -0,0 +1,750 @@ +!############################################################################## +Subroutine advectc (varn,mzp,mxp,myp,ia,iz,ja,jz,izu,jzv) + +use mem_tend +use var_tables +use mem_scratch +use mem_grid +use mem_basic + +implicit none + +integer :: mzp,mxp,myp,ia,iz,ja,jz,izu,jzv,n,mxyzp +integer :: imono +character(len=*) :: varn +real :: dtlto2 +real, dimension(maxgrds), save :: save_dtlt +integer :: i,j,k,ind +real, pointer :: scalarp, scalart +integer, dimension(maxgrds), save :: ncall +data ncall/maxgrds*0/ + +if (ncall(ngrid) == 0 .or. dtlt .ne. save_dtlt(ngrid) ) then + ncall(ngrid) = 1 + save_dtlt(ngrid) = dtlt +endif + +mxyzp = mxp * myp * mzp + ! basic_g(ngrid)%up (1:nzp,1:nxp,1:nyp) = 10. + ! basic_g(ngrid)%uc (1:nzp,1:nxp,1:nyp) = 10. + ! basic_g(ngrid)%vp (1:nzp,1:nxp,1:nyp) = 0. + ! basic_g(ngrid)%vc (1:nzp,1:nxp,1:nyp) = 0. + ! basic_g(ngrid)%wp (1:nzp,1:nxp,1:nyp) = 0. + ! basic_g(ngrid)%wc (1:nzp,1:nxp,1:nyp) = 0. + +if (varn .eq. 'V' .or. varn .eq. 'ALL') then + + ! Advect U, V, and W + CALL vel_advectc (mzp,mxp,myp,ia,iz,ja,jz,izu,jzv & + ,basic_g(ngrid)%uc (1,1,1) ,basic_g(ngrid)%vc (1,1,1) & + ,basic_g(ngrid)%wc (1,1,1) ,tend%ut (1) & + ,tend%vt (1) ,tend%wt (1) & + ,basic_g(ngrid)%dn0 (1,1,1) ,basic_g(ngrid)%dn0u (1,1,1) & + ,basic_g(ngrid)%dn0v (1,1,1) ,scratch%vt3da (1) & + ,scratch%vt3db (1) ,scratch%vt3dc (1) & + ,grid_g(ngrid)%dxt (1,1) ,grid_g(ngrid)%dxu (1,1) & + ,grid_g(ngrid)%dxv (1,1) ,grid_g(ngrid)%dyt (1,1) & + ,grid_g(ngrid)%dyu (1,1) ,grid_g(ngrid)%dyv (1,1) & + ,grid_g(ngrid)%rtgt (1,1) ,grid_g(ngrid)%rtgu (1,1) & + ,grid_g(ngrid)%rtgv (1,1) ,grid_g(ngrid)%f13t (1,1) & + ,grid_g(ngrid)%f23t (1,1) ,grid_g(ngrid)%fmapt (1,1) & + ,grid_g(ngrid)%fmapu (1,1) ,grid_g(ngrid)%fmapv (1,1) & + ,grid_g(ngrid)%fmapui (1,1) ,grid_g(ngrid)%fmapvi (1,1) ) + +endif + +if (varn .eq. 'T' .or. varn .eq. 'ALL') THEN + + ! Advect scalars + + dtlto2 = .5 * dtlt + ind = 0 + do j = 1,myp + do i = 1,mxp + do k = 1,mzp + ind = ind + 1 + scratch%vt3da(ind) = (basic_g(ngrid)%up(k,i,j) & + + basic_g(ngrid)%uc(k,i,j)) * dtlto2 + scratch%vt3db(ind) = (basic_g(ngrid)%vp(k,i,j) & + + basic_g(ngrid)%vc(k,i,j)) * dtlto2 + scratch%vt3dc(ind) = (basic_g(ngrid)%wp(k,i,j) & + + basic_g(ngrid)%wc(k,i,j)) * dtlto2 + enddo + enddo + enddo + + CALL fa_preptc (mzp,mxp,myp & + ,scratch%vt3da (1) ,scratch%vt3db (1) & + ,scratch%vt3dc (1) ,scratch%vt3dd (1) & + ,scratch%vt3de (1) ,scratch%vt3df (1) & + ,scratch%vt3dh (1) ,scratch%vt3di (1) & + ,scratch%vt3dj (1) ,scratch%vt3dk (1) & + ,basic_g(ngrid)%dn0 (1,1,1) ,basic_g(ngrid)%dn0u (1,1,1) & + ,basic_g(ngrid)%dn0v (1,1,1) ,grid_g(ngrid)%rtgt (1,1) & + ,grid_g(ngrid)%rtgu (1,1) ,grid_g(ngrid)%rtgv (1,1) & + ,grid_g(ngrid)%fmapt (1,1) ,grid_g(ngrid)%fmapui (1,1) & + ,grid_g(ngrid)%fmapvi (1,1) ,grid_g(ngrid)%f13t (1,1) & + ,grid_g(ngrid)%f23t (1,1) ,grid_g(ngrid)%dxu (1,1) & + ,grid_g(ngrid)%dyv (1,1) ,grid_g(ngrid)%dxt (1,1) & + ,grid_g(ngrid)%dyt (1,1)) + + !flag for monotonic flux limiter in Z only. + !imono=1 option should be considered experimental. + !May need bug fixing (Saleeby Oct 5, 2020). + !pp and pm terms might not have density multiplied correctly. + imono = 0 + + do n=1,num_scalar(ngrid) + + scalarp => scalar_tab(n,ngrid)%var_p + scalart => scalar_tab(n,ngrid)%var_t + + CALL atob (mxyzp,scalarp,scratch%scr1) + + CALL fa_xc (mzp,mxp,myp,ia,iz & + ,scalarp,scratch%scr1 (1) & + ,scratch%vt3da (1) ,scratch%vt3dd (1) & + ,scratch%vt3dg (1) ,scratch%vt3dh (1) & + ,scratch%vt3di (1)) + + if (jdim .eq. 1) & + CALL fa_yc (mzp,mxp,myp,ia,iz,ja,jz & + ,scalarp,scratch%scr1 (1) & + ,scratch%vt3db (1) ,scratch%vt3de (1) & + ,scratch%vt3dg (1) ,scratch%vt3dj (1) & + ,scratch%vt3di (1) ,jdim) + + if (imono.eq.1) then + CALL fluxlimits (mzp,mxp,myp,ia,iz,ja,jz & + ,scratch%scr1(1),scalarp & + ,scratch%vt3dc(1), scratch%vt3df(1) & + ,scratch%vt3dg(1), scratch%vt3dk(1) & + ,vctr1,vctr2,basic_g(ngrid)%dn0) + else + CALL fa_zc (mzp,mxp,myp,ia,iz,ja,jz & + ,scalarp,scratch%scr1 (1) & + ,scratch%vt3dc (1) ,scratch%vt3df (1) & + ,scratch%vt3dg (1) ,scratch%vt3dk (1) & + ,vctr1,vctr2) + endif + + CALL advtndc (mzp,mxp,myp,ia,iz,ja,jz & + ,scalarp,scratch%scr1 (1) & + ,scalart,dtlt) + + enddo + +endif + +return +END SUBROUTINE advectc + +!############################################################################## +Subroutine vel_advectc (m1,m2,m3,ia,iz,ja,jz,izu,jzv & + ,uc,vc,wc,ut,vt,wt,dn0,dn0u,dn0v,flxu,flxv,flxw & + ,dxt,dxu,dxv,dyt,dyu,dyv,rtgt,rtgu,rtgv,f13t,f23t & + ,fmapt,fmapu,fmapv,fmapui,fmapvi) + +use mem_grid + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,izu,jzv +real, dimension(m1,m2,m3) :: uc,vc,wc,ut,vt,wt,dn0,dn0u,dn0v,flxu,flxv,flxw +real, dimension(m2,m3) :: dxt,dxu,dxv,dyt,dyu,dyv,rtgt,rtgu,rtgv,f13t,f23t & + ,fmapt,fmapu,fmapv,fmapui,fmapvi +integer :: j,i,k,jm,im +real :: c1z,c1x,c1y + +! Compute momentum fluxes flxu, flxv, flxw + +do j = 1,m3 + do i = 1,m2 + do k = 1,m1 + flxu(k,i,j) = uc(k,i,j) * dn0u(k,i,j) * rtgu(i,j) & + * fmapui(i,j) + flxv(k,i,j) = vc(k,i,j) * dn0v(k,i,j) * rtgv(i,j) & + * fmapvi(i,j) + enddo + enddo +enddo + +if(itopo.eq.0) then + do j = 1,m3 + do i = 1,m2 + do k = 1,m1-1 + flxw(k,i,j) = wc(k,i,j) & + * .5 * (dn0(k,i,j) + dn0(k+1,i,j)) + enddo + enddo + enddo +else + do j = 1,m3 + jm = max(j-1,1) + do i = 1,m2 + im = max(i-1,1) + do k = 1,m1-1 + flxw(k,i,j) = wc(k,i,j) & + * .5 * (dn0(k,i,j) + dn0(k+1,i,j)) & + + hw4(k) * ((flxu(k,i,j) + flxu(k+1,i,j) & + + flxu(k,im,j) + flxu(k+1,im,j)) * f13t(i,j) & + + (flxv(k,i,j) + flxv(k+1,i,j) & + + flxv(k,i,jm) + flxv(k+1,i,jm)) * f23t(i,j)) + enddo + enddo + enddo +endif + +! Compute advection contribution to U tendency +do j = ja,jz + do i = ia,izu + c1z = .25 / rtgu(i,j) + c1x = c1z * fmapu(i,j) * dxu(i,j) + c1y = c1z * fmapu(i,j) * dyu(i,j) + + do k = 2,m1-1 + ut(k,i,j) = ut(k,i,j) + c1x / dn0u(k,i,j) * ( & + (flxu(k,i,j) + flxu(k,i-1,j)) & + * (uc(k,i,j) + uc(k,i-1,j)) & + - (flxu(k,i,j) + flxu(k,i+1,j)) & + * (uc(k,i,j) + uc(k,i+1,j)) & + + (flxu(k,i+1,j) - flxu(k,i-1,j)) * 2.* uc(k,i,j) ) + enddo + + do k = 2,m1-1 + ut(k,i,j) = ut(k,i,j) + c1y / dn0u(k,i,j) * ( & + (flxv(k,i,j-jdim) + flxv(k,i+1,j-jdim)) & + * (uc(k,i,j) + uc(k,i,j-jdim)) & + - (flxv(k,i,j) + flxv(k,i+1,j)) & + * (uc(k,i,j) + uc(k,i,j+jdim))& + + (flxv(k,i,j) + flxv(k,i+1,j) - flxv(k,i,j-jdim) & + - flxv(k,i+1,j-jdim)) * 2.* uc(k,i,j) ) + enddo + + do k = 2,m1-1 + ut(k,i,j) = ut(k,i,j) + c1z * dzt(k) / dn0u(k,i,j) * ( & + (flxw(k-1,i,j) + flxw(k-1,i+1,j)) & + * (uc(k,i,j) + uc(k-1,i,j)) & + - (flxw(k,i,j) + flxw(k,i+1,j)) & + * (uc(k,i,j) + uc(k+1,i,j)) & + + (flxw(k,i,j) + flxw(k,i+1,j) - flxw(k-1,i,j) & + - flxw(k-1,i+1,j)) * 2.* uc(k,i,j) ) + enddo + enddo +enddo + +! Compute advection contribution to V tendency + +do j = ja,jzv + do i = ia,iz + c1z = .25 / rtgv(i,j) + c1x = c1z * fmapv(i,j) * dxv(i,j) + c1y = c1z * fmapv(i,j) * dyv(i,j) + + do k = 2,m1-1 + vt(k,i,j) = vt(k,i,j) + c1x / dn0v(k,i,j) * ( & + (flxu(k,i-1,j) + flxu(k,i-1,j+jdim)) & + * (vc(k,i,j) + vc(k,i-1,j)) & + - (flxu(k,i,j) + flxu(k,i,j+jdim)) & + * (vc(k,i,j) + vc(k,i+1,j)) & + + (flxu(k,i,j) + flxu(k,i,j+jdim) - flxu(k,i-1,j) & + - flxu(k,i-1,j+jdim)) * 2.* vc(k,i,j) ) + enddo + + do k = 2,m1-1 + vt(k,i,j) = vt(k,i,j) + c1y / dn0v(k,i,j) * ( & + (flxv(k,i,j) + flxv(k,i,j-jdim)) & + * (vc(k,i,j) + vc(k,i,j-jdim)) & + - (flxv(k,i,j) + flxv(k,i,j+jdim)) & + * (vc(k,i,j) + vc(k,i,j+jdim)) & + + (flxv(k,i,j+jdim) - flxv(k,i,j-jdim)) & + * 2.* vc(k,i,j) ) + enddo + + do k = 2,m1-1 + vt(k,i,j) = vt(k,i,j) + c1z * dzt(k) / dn0v(k,i,j) * ( & + (flxw(k-1,i,j) + flxw(k-1,i,j+jdim)) & + * (vc(k,i,j) + vc(k-1,i,j)) & + - (flxw(k,i,j) + flxw(k,i,j+jdim)) & + * (vc(k,i,j) + vc(k+1,i,j)) & + + (flxw(k,i,j) + flxw(k,i,j+jdim) - flxw(k-1,i,j) & + - flxw(k-1,i,j+jdim)) * 2.* vc(k,i,j) ) + enddo + enddo +enddo +! Compute advection contribution to W tendency + +do j = ja,jz + do i = ia,iz + c1z = .5 / rtgt(i,j) + c1x = c1z * fmapt(i,j) * dxt(i,j) + c1y = c1z * fmapt(i,j) * dyt(i,j) + + do k = 2,m1-2 + wt(k,i,j) = wt(k,i,j) & + + c1x / (dn0(k,i,j) + dn0(k+1,i,j)) * ( & + (flxu(k,i-1,j) + flxu(k+1,i-1,j)) & + * (wc(k,i,j) + wc(k,i-1,j)) & + - (flxu(k,i,j) + flxu(k+1,i,j)) & + * (wc(k,i,j) + wc(k,i+1,j)) & + + (flxu(k,i,j) + flxu(k+1,i,j) - flxu(k,i-1,j) & + - flxu(k+1,i-1,j)) * 2.* wc(k,i,j) ) + enddo + + do k = 2,m1-2 + wt(k,i,j) = wt(k,i,j) & + + c1y / (dn0(k,i,j) + dn0(k+1,i,j)) * ( & + (flxv(k,i,j-jdim) + flxv(k+1,i,j-jdim)) & + * (wc(k,i,j) + wc(k,i,j-jdim)) & + - (flxv(k,i,j) + flxv(k+1,i,j)) & + * (wc(k,i,j) + wc(k,i,j+jdim)) & + + (flxv(k,i,j) + flxv(k+1,i,j) - flxv(k,i,j-jdim) & + - flxv(k+1,i,j-jdim)) * 2.* wc(k,i,j) ) + enddo + + do k = 2,m1-2 + wt(k,i,j) = wt(k,i,j) & + + c1z * dzm(k) / (dn0(k,i,j) + dn0(k+1,i,j)) * ( & + (flxw(k,i,j) + flxw(k-1,i,j)) & + * (wc(k,i,j) + wc(k-1,i,j)) & + - (flxw(k,i,j) + flxw(k+1,i,j)) & + * (wc(k,i,j) + wc(k+1,i,j)) & + + (flxw(k+1,i,j) - flxw(k-1,i,j)) * 2.* wc(k,i,j) ) + enddo + enddo +enddo + +return +END SUBROUTINE vel_advectc + +!############################################################################## +Subroutine fa_preptc (m1,m2,m3,vt3da,vt3db,vt3dc,vt3dd,vt3de,vt3df & + ,vt3dh,vt3di,vt3dj,vt3dk,dn0,dn0u,dn0v & + ,rtgt,rtgu,rtgv,fmapt,fmapui,fmapvi,f13t,f23t & + ,dxu,dyv,dxt,dyt) + +use mem_grid +use mem_scratch + +implicit none + +integer :: m1,m2,m3,j,i,k,im,ip,jm,jp +real :: c1,c2,c3,c4,rtgti +real, dimension(m1,m2,m3) :: vt3da,vt3db,vt3dc,vt3dd,vt3de,vt3df & + ,vt3dh,vt3di,vt3dj,vt3dk,dn0,dn0u,dn0v +real, dimension(m2,m3) :: rtgt,rtgu,rtgv,fmapt,fmapui,fmapvi,f13t,f23t & + ,dxu,dyv,dxt,dyt + +! VT3DA, VT3DB, and VT3DC are input as the velocity components (averaged +! between past and current time levels) times dtlt. + +! Add contribution to VT3DC from horiz winds crossing sloping sigma surfaces, +! and include 1/rtgt factor in VT3DC +! Compute half Courant numbers: VT3DD, VT3DE, and VT3DF +! Compute weight at scalar point: VT3DH +! Compute advective weights for the linear term: VT3DI, VCTR1, and VCTR2 +do j = 1,m3 + jm = max(1,j-1) + jp = min(m3,j+1) + do i = 1,m2 + im = max(1,i-1) + ip = min(m2,i+1) + rtgti = 1. / rtgt(i,j) + c1 = .5 * dxu(i,j) + c2 = .5 * dyv(i,j) + c3 = dxt(i,j) * fmapt(i,j) * rtgti + c4 = dyt(i,j) * fmapt(i,j) * rtgti + + do k = 1,m1-1 + vt3dc(k,i,j) = ((vt3da(k,i,j) + vt3da(k+1,i,j) & + + vt3da(k,im,j) + vt3da(k+1,im,j)) * f13t(i,j) & + + (vt3db(k,i,j) + vt3db(k+1,i,j) + vt3db(k,i,jm) & + + vt3db(k+1,i,jm)) * f23t(i,j)) * hw4(k) & + + vt3dc(k,i,j) * rtgti + vt3dd(k,i,j) = c1 * vt3da(k,i,j) + vt3de(k,i,j) = c2 * vt3db(k,i,j) + vt3df(k,i,j) = .5 * vt3dc(k,i,j) * dzm(k) + vctr3(k) = 1. / dn0(k,i,j) + vt3dh(k,i,j) = c3 * vctr3(k) + vt3dj(k,i,j) = c4 * vctr3(k) + vt3dk(k,i,j) = dzt(k) * vctr3(k) + enddo + +! vt3di(1,i,j) = dxu(i,j) / (dxu(i,j) + dxt(ip,j)) +! vt3di(2,i,j) = dxu(i,j) / (dxu(i,j) + dxt(i,j)) +! vt3di(3,i,j) = dyv(i,j) / (dyv(i,j) + dyt(i,jp)) +! vt3di(4,i,j) = dyv(i,j) / (dyv(i,j) + dyt(i,j)) +! temporary override + vt3di(1,i,j) = .5 + vt3di(2,i,j) = .5 + vt3di(3,i,j) = .5 + vt3di(4,i,j) = .5 + enddo +enddo + +do k = 1,m1-1 + vctr1(k) = (zt(k+1) - zm(k)) * dzm(k) + vctr2(k) = (zm(k) - zt(k)) * dzm(k) +enddo + +! Convert velocity components * dtlt (VT3DA, VT3DB, VT3DC) +! into mass fluxes times dtlt. + +do j = 1,m3 + do i = 1,m2 + c1 = fmapui(i,j) * rtgu(i,j) + c2 = fmapvi(i,j) * rtgv(i,j) + do k = 1,m1-1 + vt3da(k,i,j) = vt3da(k,i,j) * c1 * dn0u(k,i,j) + vt3db(k,i,j) = vt3db(k,i,j) * c2 * dn0v(k,i,j) + vt3dc(k,i,j) = vt3dc(k,i,j) * .5 & + * (dn0(k,i,j) + dn0(k+1,i,j)) + enddo + enddo +enddo + +return +END SUBROUTINE fa_preptc + +!############################################################################## +Subroutine fluxlimits (m1,m2,m3,ia,iz,ja,jz,scr1,scp,vt3dc,vt3df,vt3dg & + ,vt3dk,vctr1,vctr2,dn) + +implicit none + +integer:: m1,m2,m3 +integer:: k,i,j,ia,iz,ja,jz +real, dimension(m1,m2,m3) :: scp,scr1 +real, dimension(m1,m2,m3) :: vt3dc,vt3df,vt3dg,vt3dk +real, dimension(m1,m2,m3) :: dn +real, dimension(*) :: vctr1, vctr2 +real, dimension(:,:,:), allocatable :: F1,Fcorz,s_max,s_min,rp,rm & + ,scrf1,scr1rho,scrf1rho +real :: pp,qp,pm,qm,cfac + +! Scratch arrays +allocate(F1(m1,m2,m3)) +allocate(Fcorz(m1,m2,m3)) +allocate(s_max(m1,m2,m3)) +allocate(s_min(m1,m2,m3)) +allocate(rp(m1,m2,m3)) +allocate(rm(m1,m2,m3)) +allocate(scrf1(m1,m2,m3)) +allocate(scr1rho(m1,m2,m3)) +allocate(scrf1rho(m1,m2,m3)) + +!Flux correction algorithms based on Zalesk (1979) and Durran (1999) + +!z advection --------------------------------------------------- + +rp = 1. +rm = 1. +do j = ja,jz + do i = ia,iz + +! Compute scalar flux VT3DG + + do k = 1,m1-1 + vt3dg(k,i,j) = vt3dc(k,i,j) & + * (vctr1(k) * scr1(k,i,j) & + + vctr2(k) * scr1(k+1,i,j) & + + vt3df(k,i,j) * (scr1(k,i,j) - scr1(k+1,i,j))) + +! Compute 1st order fluxes + F1(k,i,j) = (vt3dc(k,i,j)*(scr1(k,i,j)+scr1(k+1,i,j)) & + - abs(vt3dc(k,i,j))*(scr1(k+1,i,j)-scr1(k,i,j)))*0.5 + +! Compute anti-diffusive fluxes + Fcorz(k,i,j) = vt3dg(k,i,j)-F1(k,i,j) + enddo + enddo +enddo +!Do monotonic correction +do j = ja,jz + do i = ia,iz + do k = 2,m1-1 + scrf1(k,i,j) = scr1(k,i,j) & + + vt3dk(k,i,j) * (F1(k-1,i,j) - F1(k,i,j)) + + !Additional optional correction - Zalesk (1979) calls it "cosmetic." Durran (1999) + !argues it could be more important. + !if (Fcorz(k,i,j)*(scrf1(k+1,i,j)-scrf1(k,i,j))<0.) then + ! if (Fcorz(k,i,j)*(scrf1(k+2,i,j)-scrf1(k+1,i,j))<0. .or. & + ! Fcorz(k,i,j)*(scrf1(k,i,j)-scrf1(k,i-1,j))<0.) & + ! Fcorz(k,i,j) = 0. + !endif + enddo + scrf1(1,i,j) = scrf1(2,i,j) + scrf1(m1,i,j) = scrf1(m1-1,i,j) + enddo +enddo +scr1rho = scr1*dn +scrf1rho = scrf1*dn +do j=ja,jz + do i=ia,iz + do k=2,m1-1 + s_max(k,i,j) = max(0.,maxval(scr1rho(k-1:k+1,i,j)), & + maxval(scrf1rho(k-1:k+1,i,j)))/dn(k,i,j) + s_min(k,i,j) = max(0.,min(minval(scr1rho(k-1:k+1,i,j)), & + minval(scrf1rho(k-1:k+1,i,j))))/dn(k,i,j) + !s_max(k,i,j) = max(0.,maxval(scr1rho(k-1:k+1,i,j)), & + ! scrf1rho(k,i,j))/dn(k,i,j) + !s_min(k,i,j) = max(0.,min(minval(scr1rho(k-1:k+1,i,j)), & + ! scrf1rho(k,i,j)))/dn(k,i,j) + pp = max(0.,Fcorz(k-1,i,j)) - min(0.,Fcorz(k,i,j)) * vt3dk(k,i,j) + qp = s_max(k,i,j) - scrf1(k,i,j) + if (pp > 0. .and. qp > 0.) then + rp(k,i,j) = min(1.,qp/pp) + else + rp(k,i,j) = 0. + endif + + pm = max(0.,Fcorz(k,i,j)) - min(0.,Fcorz(k-1,i,j)) * vt3dk(k,i,j) + qm = scrf1(k,i,j) - s_min(k,i,j) + if (pm > 0. .and. qm > 0.) then + rm(k,i,j) = min(1., qm/pm) + else + rm(k,i,j) = 0. + endif + enddo + rp(1,i,j) = rp(2,i,j) + rm(1,i,j) = rm(2,i,j) + enddo +enddo +do j=ja,jz + do i=ia,iz + do k=1,m1-1 + if (Fcorz(k,i,j) >= 0.) then + cfac = min(rp(k+1,i,j),rm(k,i,j)) + else + cfac = min(rp(k,i,j),rm(k+1,i,j)) + endif + Fcorz(k,i,j) = Fcorz(k,i,j)*cfac + enddo + enddo +enddo +!Final update +do j=ja,jz + do i=ia,iz + do k=2,m1-1 + scr1(k,i,j) = scrf1(k,i,j) + vt3dk(k,i,j) * (Fcorz(k-1,i,j) - Fcorz(k,i,j) & + + scp(k,i,j) * (vt3dc(k,i,j) - vt3dc(k-1,i,j))) + enddo + enddo +enddo + +! Clean up +deallocate(F1) +deallocate(Fcorz) +deallocate(s_max) +deallocate(s_min) +deallocate(rp) +deallocate(rm) +deallocate(scrf1) +deallocate(scr1rho) +deallocate(scrf1rho) + +return +END SUBROUTINE fluxlimits + +!############################################################################## +Subroutine fa_xc (m1,m2,m3,ia,iz & + ,scp,scr1,vt3da,vt3dd,vt3dg,vt3dh,vt3di) + +implicit none + +integer :: m1,m2,m3,ia,iz,i,j,k +real :: dfact +real, dimension(m1,m2,m3) :: scp,scr1,vt3da,vt3dd,vt3dg,vt3dh,vt3di + +dfact = .5 +do j = 1,m3 + do i = 1,iz + +! Compute scalar flux times dtlt [VT3DG] + + do k = 2,m1-1 + vt3dg(k,i,j) = vt3da(k,i,j) & + * (vt3di(1,i,j) * scr1(k,i,j) & + + vt3di(2,i,j) * scr1(k,i+1,j) & + + vt3dd(k,i,j) * (scr1(k,i,j) - scr1(k,i+1,j))) + enddo + +! Modify fluxes to retain positive-definiteness on scalar quantities. +! If a flux will remove 1/2 quantity during a timestep, +! reduce to first order flux. This will remain positive-definite +! under the assumption that ABS(CFL(i)) + ABS(CFL(i-1)) < 1.0 if +! both fluxes are evacuating the box. + + do k = 2,m1-1 + if (vt3da(k,i,j) .gt. 0.) then + if (vt3dg(k,i,j) * vt3dh(k,i,j) .gt. & + dfact * scr1(k,i,j)) then + vt3dg(k,i,j) = vt3da(k,i,j) * scr1(k,i,j) + endif + elseif (vt3da(k,i,j) .lt. 0.) then + if (-vt3dg(k,i,j) * vt3dh(k,i+1,j) .gt. & + dfact * scr1(k,i+1,j)) then + vt3dg(k,i,j) = vt3da(k,i,j) * scr1(k,i+1,j) + endif + endif + enddo + enddo +enddo + +! Compute flux divergence + +do j = 1,m3 + do i = ia,iz + do k = 2,m1-1 + scr1(k,i,j) = scr1(k,i,j) & + + vt3dh(k,i,j) * (vt3dg(k,i-1,j) - vt3dg(k,i,j) & + + scp(k,i,j) * (vt3da(k,i,j) - vt3da(k,i-1,j))) + enddo + enddo +enddo + +return +END SUBROUTINE fa_xc + +!############################################################################## +Subroutine fa_yc (m1,m2,m3,ia,iz,ja,jz & + ,scp,scr1,vt3db,vt3de,vt3dg,vt3dj,vt3di,jdim) + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,jdim,i,j,k +real :: dfact +real, dimension(m1,m2,m3) :: scp,scr1,vt3db,vt3de,vt3dg,vt3dj,vt3di + +dfact = .5 +do j = 1,jz + do i = ia,iz + +! Compute scalar flux VT3DG + + do k = 2,m1-1 + vt3dg(k,i,j) = vt3db(k,i,j) & + * (vt3di(3,i,j) * scr1(k,i,j) & + + vt3di(4,i,j) * scr1(k,i,j+jdim) & + + vt3de(k,i,j) * (scr1(k,i,j) - scr1(k,i,j+jdim))) + enddo + +! Modify fluxes to retain positive-definiteness on scalar quantities. +! If a flux will remove 1/2 quantity during a timestep, +! reduce to first order flux. This will remain positive-definite +! under the assumption that ABS(CFL(i)) + ABS(CFL(i-1)) < 1.0 if +! both fluxes are evacuating the box. + + do k = 2,m1-1 + if (vt3db(k,i,j) .gt. 0.) then + if (vt3dg(k,i,j) * vt3dj(k,i,j) .gt. & + dfact * scr1(k,i,j)) then + vt3dg(k,i,j) = vt3db(k,i,j) * scr1(k,i,j) + endif + elseif (vt3db(k,i,j) .lt. 0.) then + if (-vt3dg(k,i,j) * vt3dj(k,i,j+jdim) .gt. & + dfact * scr1(k,i,j+jdim)) then + vt3dg(k,i,j) = vt3db(k,i,j) * scr1(k,i,j+jdim) + endif + endif + enddo + enddo +enddo + +! Compute flux divergence + +do j = ja,jz + do i = ia,iz + do k = 2,m1-1 + scr1(k,i,j) = scr1(k,i,j) & + + vt3dj(k,i,j) * (vt3dg(k,i,j-jdim) - vt3dg(k,i,j) & + + scp(k,i,j) * (vt3db(k,i,j) - vt3db(k,i,j-jdim))) + enddo + enddo +enddo + +return +END SUBROUTINE fa_yc + +!############################################################################## +Subroutine fa_zc (m1,m2,m3,ia,iz,ja,jz & + ,scp,scr1,vt3dc,vt3df,vt3dg,vt3dk,vctr1,vctr2) + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,i,j,k +real :: dfact +real, dimension(m1,m2,m3) :: scp,scr1,vt3dc,vt3df,vt3dg,vt3dk +real, dimension(*) :: vctr1,vctr2 + +dfact = .5 +do j = ja,jz + do i = ia,iz + +! Compute scalar flux VT3DG + + do k = 1,m1-1 + vt3dg(k,i,j) = vt3dc(k,i,j) & + * (vctr1(k) * scr1(k,i,j) & + + vctr2(k) * scr1(k+1,i,j) & + + vt3df(k,i,j) * (scr1(k,i,j) - scr1(k+1,i,j))) + enddo + +! Modify fluxes to retain positive-definiteness on scalar quantities. +! If a flux will remove 1/2 quantity during a timestep, +! reduce to first order flux. This will remain positive-definite +! under the assumption that ABS(CFL(i)) + ABS(CFL(i-1)) < 1.0 if +! both fluxes are evacuating the box. + + do k = 1,m1-1 + if (vt3dc(k,i,j) .gt. 0.) then + if (vt3dg(k,i,j) * vt3dk(k,i,j) .gt. & + dfact * scr1(k,i,j)) then + vt3dg(k,i,j) = vt3dc(k,i,j) * scr1(k,i,j) + endif + elseif (vt3dc(k,i,j) .lt. 0.) then + if (-vt3dg(k,i,j) * vt3dk(k+1,i,j) .gt. & + dfact * scr1(k+1,i,j)) then + vt3dg(k,i,j) = vt3dc(k,i,j) * scr1(k+1,i,j) + endif + endif + enddo + enddo +enddo + +! Compute flux divergence + +do j = ja,jz + do i = ia,iz + do k = 2,m1-1 + scr1(k,i,j) = scr1(k,i,j) & + + vt3dk(k,i,j) * (vt3dg(k-1,i,j) - vt3dg(k,i,j) & + + scp(k,i,j) * (vt3dc(k,i,j) - vt3dc(k-1,i,j))) + enddo + enddo +enddo + +return +END SUBROUTINE fa_zc + +!############################################################################## +Subroutine advtndc (m1,m2,m3,ia,iz,ja,jz,scp,sca,sct,dtl) + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,i,j,k +real :: dtl,dtli +real, dimension(m1,m2,m3) :: scp,sca,sct + +dtli = 1. / dtl +do j = ja,jz + do i = ia,iz + do k = 2,m1-1 + sct(k,i,j) = sct(k,i,j) + (sca(k,i,j)-scp(k,i,j)) * dtli + enddo + enddo +enddo + +return +END SUBROUTINE advtndc diff --git a/src/6.2.16/core/rammain.f90 b/src/6.2.16/core/rammain.f90 new file mode 100644 index 0000000..09a99c3 --- /dev/null +++ b/src/6.2.16/core/rammain.f90 @@ -0,0 +1,91 @@ +!############################################################################## +Program main + +use node_mod + +implicit none + +integer :: i,numarg,iargc,bad +character(len=strl1) :: nl_fname,arg,cargs(0:maxargs) + +! argument defaults +nl_fname='RAMSIN' + +! read arguments +do i=1,maxargs + cargs(i)='' +enddo + +numarg=iargc() + +do i=0,numarg + CALL ugetarg (i,arg) + cargs(i)=trim(arg)//char(0) !Null terminate the string to pass to C +enddo + +bad = 0 +if(numarg > 0)then + if(numarg == 2)then + if(cargs(1)(1:1)=='-' .and. cargs(1)(1:2)=='-f') then + if(len_trim(cargs(2)).gt.256) then + print*,'Max filename length = 256 characters' + bad=1 + endif + ! We just null terminated the file name (cargs(2)) so it can be + ! passed to C (par_init_fortran) as a proper C string. + ! Trim off the trailing null for the FORTRAN string nl_fname + nl_fname=cargs(2)(1:len_trim(cargs(2))-1) + else + bad=1 + endif + else + bad=1 + endif +endif + +if (bad > 0) then + print*,'RAMS usage: ''exec name'' ' + print*,' [-f ''Namelist file''] ' + stop 'bad command line arguments' +endif + +numarg=numarg+1 !Total number of arguments on command line + +! par_init_fortran() will return +! +! my_mpi_num -> 0 +! nmachs -> 1 +! +! for both the case where rams is called directly from the command +! line and the case where rams is called using mpirun -np 1 (one +! process). For these cases, rams will run in "sequential" mode. +! Otherwise, rams will run in "parallel" mode. +CALL par_init_fortran (numarg,cargs,len(cargs),my_mpi_num,nmachs) + +! set global vars in node_mod +! +! MPI always numbers nodes from 0 to n-1 +! RAMS numbers nodes from 1 to n +! Therefore, make the RAMS node (my_rams_num) equal to the MPI node (my_mpi_num) plus one +! +! Arbitrarily choose node 0 to be the "main" node +! which will take on the following extra duties: +! 1) Read and distribute the namelist groups +! 2) Decompose the domain, and distribute the results +! 3) Printing messages +! +mainnum = 1 ! rams node number 1, which is MPI node number 0 +my_rams_num = my_mpi_num + 1 + +not_a_node = -1 +do i = 1, nmachs + machnum(i) = i - 1 ! MPI process numbers go from 0 to n-1 +enddo + +! run the model +CALL rams_model (nl_fname) + +! MPI bookend call to par_init_fortran +CALL par_exit () + +END PROGRAM main diff --git a/src/6.2.16/core/rams_model.f90 b/src/6.2.16/core/rams_model.f90 new file mode 100644 index 0000000..757e314 --- /dev/null +++ b/src/6.2.16/core/rams_model.f90 @@ -0,0 +1,773 @@ +!############################################################################## +Subroutine rams_model (nl_fname) + +use node_mod +use mem_all +use isan_coms + +implicit none + + integer :: stopparallel + + character (len=*) :: nl_fname + character(len=strl1) :: anamelh + integer :: i,ifm,force1node + real :: wtime_ref,wtime_beg,wtime_end,ctime_beg,ctime_end + real, external :: walltime + + ! runtype name RAMS or REVU distinction + ramsorrevu='RAMS' + + ! This variable is accessed by a number of routines and is intended + ! to help de-clutter messages being printed to stdout. Be careful + ! however - only use this in cases where all nodes would be printing + ! the same thing. Don't use this when different nodes need to + ! print out messages specific to each node. + print_msg = (my_rams_num .eq. mainnum) + + ! record the start time for subsequent reporting + wtime_ref = walltime(0.0) + CALL timing (1,ctime_beg) + wtime_beg = walltime(wtime_ref) + + ! High level flow: + ! + ! 1. Establish configuration + ! 2. Set up domain + ! 3. Decompose domain into sub-domains + ! 4. Set up sub-domains + ! 5. Initialize sub-domains + ! 6. Run the model + ! + ! Steps 1, 2 and 3 are done by RAMS node 1 (mainnum), then node 1 + ! broadcasts the results to all other nodes. This is + ! done to help efficiency (ie, read namelist file once instead + ! of potentially thousands of times - once per node) and to + ! guarantee that the variables describing the domain and + ! decomposition of the domain match on all nodes. + ! + ! Then steps 4, 5 and 6 are done on all nodes. + + !---------------- Configuration --------------- + CALL establish_config (nl_fname) + + ! Set flags regarding history restart or initialization and set some + ! initial condition flags with not a history restart. + hrestart=0 + if(trim(runtype)=='HISTORY') then + CALL read_distribute_hheader (hfilin) + initial=3 + if(ngrids <= ngridsh) hrestart=1 + if(ngrids > ngridsh) hrestart=2 + else + hrestart=0 + if(initial==3) hrestart=2 + initorig=0 + time=0. + ngbegun(1:ngrids) = 0 + endif + + ! If this is a history initialization, history restart with added grids, + ! or a recycle simulation, then we need to run this sequentially due to + ! history vs current grid domain mismatches that currently cannot be + ! handled in parallel. + stopparallel=0 + if(trim(runtype)=='MAKESFC' .or. trim(runtype)=='MAKEVFILE' .or. & + trim(runtype)=='MAKEHFILE') then + stopparallel=1 + elseif(trim(runtype)=='INITIAL' .and. & + (initial==3 .or. ((initial==1.or.initial==2).and.ipast_sfc==1))) then + stopparallel=2 + elseif(trim(runtype)=='HISTORY' .and. hrestart==2) then + stopparallel=3 + endif + + !Here we reset nmachs to 1 for sequential and return the other nodes. + force1node=0 + if (stopparallel > 0)then + if (nmachs .gt. 1 .and. my_rams_num .ne. mainnum) then + return + endif + if ((my_rams_num .eq. mainnum) .or. (nmachs .eq. 1)) then + nmachs=1 + force1node=1 + print*,'' + print*,'**************************************************************' + print*,'FORCING NUMBER OF PROCESSORS TO 1 FOR:' + if(stopparallel==1) then + print*,'MAKESFC, MAKEVFILE, or MAKEHFILE RUN' + elseif(stopparallel==2) then + print*,'HISTORY INITIALIZATION OR RECYCLING OF VARIABLES' + print*,'ON POTENTIALLY DIFFERENT GRIDS' + elseif(stopparallel==3) then + print*,'HISTORY RESTART WITH ADDED GRIDS' + endif + print*,'**************************************************************' + print*,'' + endif + endif + + !---------------- Domain-wide Grid Setup ------------------------------- + CALL set_full_domain_grid () + + !---------------- Domain Decomposition into Sub-Domains --------------- + CALL decompose_full_domain () + + ! At this point all nodes have enough information to proceed on their own. + + !---------------- Sub-domain Setup --------------- + ! Fill in the description of the sub domain (mmxp, mmyp, mmzp, etc. plus node paths) + CALL node_init () + + ! Assign hydrometeor modes + ! This needs to be called before rams_mem_alloc() since alloc_micro() + ! uses the hydrometeor mode numbers. + CALL jnmbinit () + + ! Allocate variable memory for INITIAL and HISTORY starts. Make surface and + ! varfiles have their own smaller memory allocation. + ! This needs to be called before finishing node decomposition and grid setup. + if (stopparallel/=1) CALL rams_mem_alloc () + if (stopparallel==1) CALL sfc_mem_alloc () + + ! Set the buffer sizes for internodal communication + if(force1node==0) CALL par_set_comm_buff_sizes () + + !-------Finish off MAKESFC or MAKEVFILE or MAKEHFILE-------------------- + ! No more initialization is required to complete either a MAKESFC run + ! or a MAKEVFILE run, so these can be completed at this time. + ! + ! Any run (INITIAL, HISTORY, MAKESFC, MAKEVFILE, MAKEHFILE, ERROR) needs + ! a set of surface files in place so always call update_sfc_var_files() at + ! this point. + + ! Make sure that the correct surface files and varfiles are in place + CALL update_sfc_var_files () + + if(trim(runtype) .eq. 'MAKESFC') then + if(print_msg) then + print*, 'MAKESFC run complete' + endif + return + endif + + if(trim(runtype) .eq. 'MAKEVFILE') then + if(print_msg) then + print*, ' ISAN complete' + endif + return + endif + + if(trim(runtype) .eq. 'MAKEHFILE') then + if(print_msg) then + print*, ' History Nudging Varfiles Complete' + endif + return + endif + + !------------------ Initialization ------------------------ + ! Allocate memory for communicating boundary data between nodes + if (nmachs .gt. 1) then + CALL init_fields () + endif + + ! main initialization driver + CALL initlz () + if(force1node==1)then + print*,'SINGLE PROCESSOR INITIALIZATION WAS FORCED.' + print*,'INITIAL ANALYSIS FILE WAS OUTPUT FOR:' + if(stopparallel==2) then + print*,'HISTORY INITIALIZATION OR RECYCLING OF VARIABLES' + print*,'ON POTENTIALLY DIFFERENT GRIDS' + elseif(stopparallel==3) then + print*,'HISTORY RESTART WITH ADDED GRIDS' + endif + print*,'PLEASE PROCEED BY RUNNING HISTORY RESTART ON THE NEWLY' + print*,'OUTPUT ANALYSIS FILE. THIS CAN BE DONE IN PARALLEL MODE.' + return + endif + + ! Compute Courant numbers cflxy and cflz. + do ifm = 1, ngrids + CALL newgrid (ifm) + CALL cfl (mzp,mxp,myp,i0,j0,my_rams_num) + enddo + + ! Initialize dtlongn, nndtrat, and nnacoust, and compute the timestep + ! schedule for all grid operations. + CALL dtset () + CALL modsched (isched,maxsched,ngrids,nxtnest,nndtrat,nsubs) + + ! report time for initialization + CALL timing (2,ctime_end) + wtime_end = walltime(wtime_ref) + CALL report_time_allnodes ('++++++++ Model Initialization:' & + ,ctime_end-ctime_beg, wtime_end-wtime_beg) + if(print_msg) print*,'' + + ! Exit if doing a zero time run or if doing and ERROR run + if(time >= timmax) then + return + elseif (trim(runtype) == 'ERROR') then + if(print_msg) then + print*,'---------------------------------------------------------' + print*,'| ERROR run completed successfully. No fatal errors.' + print*,'---------------------------------------------------------' + print*,'' + endif + return + endif + + ! Run the time integration driver + CALL rams_node () + + ! Report total run times + if(print_msg) then + print*,'' + print*,'' + endif + CALL timing (2,ctime_end) + wtime_end = walltime(wtime_ref) + CALL report_time_allnodes ('----Total run time: ' & + ,ctime_end-ctime_beg,wtime_end-wtime_beg) + +return +END SUBROUTINE rams_model + +!################################################################################## +Subroutine establish_config (nl_fname) + +! This routine will set the rams configuration on all nodes. It does this by +! having the mainnum node read the namelist file, set eng_params and then +! broadcast the results to all the other nodes. + +use node_mod +use mem_all + +implicit none + + character (len=*) :: nl_fname + + integer :: i + + if ((my_rams_num .eq. mainnum) .or. (nmachs .eq. 1)) then + ! read the configuration specs and set parameters + CALL read_nl (nl_fname) + CALL eng_params () + + ! print initial banner + write(6,'(a1,78a1)') ' ',('*',i=1,78) + write(6,'(2a1,a42)') ' ','*',' RAMS - Version 6.0' + write(6,'(2a1)') ' ','*' + write(6,'(3a1,A)') ' ','*',' ',trim(expnme) + write(6,'(2a1)') ' ','*' + write(6,'(2a1,A,A)') ' ','*',' RUNTYPE = ',trim(runtype) + write(6,'(a1,78a1)') ' ',('*',i=1,78) + if(iprntstmt>=1) then + do i = 1, nmachs + print*,'CPU:',machnum(i),mainnum + enddo + print*,'FILES:',nl_fname(1:len_trim(nl_fname)) + print*, '' + endif + + ! Run the checks on the configuration variables + CALL opspec1 () + CALL opspec3 () + if (trim(runtype) .eq. 'MAKEVFILE' .or. trim(runtype) .eq. 'MAKEHFILE') then + CALL opspec4 () + endif + + ! Print report of var settings + CALL nameout () + endif + + ! if more than the mainnum node, then send out results + if (nmachs .gt. 1) then + CALL broadcast_config () + endif + +return +END SUBROUTINE establish_config + +!################################################################################## +Subroutine set_full_domain_grid () + +! This routine will set the full domain grid specs for all nodes. It does this by +! having the mainnum node set up the grid and then broadcast the results +! to all the other nodes. + +use node_mod +use mem_grid + +implicit none + + if ((my_rams_num .eq. mainnum) .or. (nmachs .eq. 1)) then + ! Fill in coordinate arrays, eg. + CALL grid_setup (1) + + ! Run checks on the coarse/fine grid relationships + CALL opspec2 () + endif + + ! if more than the mainnum node, then send out results + if (nmachs .gt. 1) then + CALL broadcast_grid () + endif + +return +END SUBROUTINE set_full_domain_grid + +!################################################################################## +Subroutine decompose_full_domain () + +! This routine will set the full domain grid specs for all nodes. It does this by +! having the mainnum node set up the grid and then broadcast the results +! to all the other nodes. + +use node_mod +use mem_grid + +implicit none + + if ((my_rams_num .eq. mainnum) .or. (nmachs .eq. 1)) then + CALL assign_node_subdomain () + endif + + ! if more than the mainnum node, then send out results + if (nmachs .gt. 1) then + CALL broadcast_decomp () + endif + +return +END SUBROUTINE decompose_full_domain + +!################################################################################## +Subroutine update_sfc_var_files () + +! This routine will check any existing surface files to make sure that they +! are compatible with the RAMSIN grid specs. If not, or if files are missing, +! then new files will be created. +! +! Due to complications in getting individual subdomains to properly transform +! from the O-grid (in the lat/lon block files) to the R-grid (RAMS) with the intent +! to match the result from one node doing the entire R-grid, it was decided +! to continue having just one grid create the files. So if there are more than +! one node, then have the mainnum node call make_sfcfiles (which is coded +! to do the full domain) and force the other nodes to wait (par_pause) until +! the file creation is finished. +! +! In order to accompilish having one node do the surface file creation when there +! is actually more than one node, need to temporarily make mainnum look like it's +! the only node. Do this by saving the values of: +! nmachs +! mm[xyz]p +! mem_read +! mem_write +! file_read +! file_write +! file_xchunk +! file_ychunk +! +! ct[ij]0 +! ctn[xyz]p +! ct[ijk]pm +! +! and setting these to values according to the full domain. Once back from +! the make_sfcfiles call, restore these variables to their original values +! so that a subsequent simulation can run with multiple nodes. + +use grid_dims +use node_mod +use mem_grid + +implicit none + + integer :: orig_nmachs + integer, dimension(maxgrds) :: orig_mmxp, orig_mmyp + integer, dimension(maxgrds) :: orig_mmzp, orig_file_xchunk, orig_file_ychunk + integer, dimension(maxgrds) :: orig_mmxyzp, orig_mmxysp, orig_mmxyp + integer, dimension(maxgrds) :: orig_mi0, orig_mj0, orig_mibcon + integer, dimension(maxgrds) :: orig_ctnxp, orig_ctnyp, orig_ctnzp + integer, dimension(maxgrds) :: orig_cti0, orig_ctj0 + integer, dimension(nxpmax,maxgrds) :: orig_ctipm + integer, dimension(nypmax,maxgrds) :: orig_ctjpm + integer, dimension(nzpmax,maxgrds) :: orig_ctkpm + type (io_descrip), dimension(maxgrds) :: orig_mem_read, orig_mem_write + type (io_descrip), dimension(maxgrds) :: orig_file_read, orig_file_write + integer :: igrid + integer :: ctbeg, ctend + integer :: i, j, k + + if ((my_rams_num .eq. mainnum) .or. (nmachs .eq. 1)) then + ! save the variables + orig_nmachs = nmachs + orig_mmxp = mmxp + orig_mmyp = mmyp + orig_mmzp = mmzp + orig_mmxyzp = mmxyzp + orig_mmxysp = mmxysp + orig_mmxyp = mmxyp + orig_mi0 = mi0 + orig_mj0 = mj0 + orig_mibcon = mibcon + orig_mem_read = mem_read + orig_mem_write = mem_write + orig_file_read = file_read + orig_file_write = file_write + orig_file_xchunk = file_xchunk + orig_file_ychunk = file_ychunk + + orig_ctnxp = ctnxp + orig_ctnyp = ctnyp + orig_ctnzp = ctnzp + orig_cti0 = cti0 + orig_ctj0 = ctj0 + orig_ctipm = ctipm + orig_ctjpm = ctjpm + orig_ctkpm = ctkpm + + ! set to full domain values + nmachs = 1 + mmxp = nnxp + mmyp = nnyp + mmzp = nnzp + do igrid = 1, ngrids + mmxyzp(igrid) = nnxp(igrid) * nnyp(igrid) * nnzp(igrid) + mmxysp(igrid) = nnxp(igrid) * nnyp(igrid) * (nzg+nzs+3) * npatch + mmxyp(igrid) = nnxp(igrid) * nnyp(igrid) + + mi0(igrid) = 0 + mj0(igrid) = 0 + mibcon(igrid) = 15 + + mem_read(igrid)%xblock = nnxp(igrid) + mem_read(igrid)%yblock = nnyp(igrid) + mem_read(igrid)%xoff = 0 + mem_read(igrid)%yoff = 0 + + mem_write(igrid)%xblock = nnxp(igrid) + mem_write(igrid)%yblock = nnyp(igrid) + mem_write(igrid)%xoff = 0 + mem_write(igrid)%yoff = 0 + + file_read(igrid)%xblock = nnxp(igrid) + file_read(igrid)%yblock = nnyp(igrid) + file_read(igrid)%xoff = 0 + file_read(igrid)%yoff = 0 + + file_write(igrid)%xblock = nnxp(igrid) + file_write(igrid)%yblock = nnyp(igrid) + file_write(igrid)%xoff = 0 + file_write(igrid)%yoff = 0 + + ! the minimum flag here is to make sure that we are writing + ! a varfile and/or surface file that doesn't have chunks that are too + ! big to be read into memory. 50x50 chunking is arbitrary, but in + ! tests done by Sean Freeman (August 2020), it didn't seem to make + ! a substantial difference in write or read time as long as the + ! chunk size is not too big. + file_xchunk(igrid) = min(50, nnxp(igrid)) + file_ychunk(igrid) = min(50, nnyp(igrid)) + + if (igrid .eq. 1) then + ! dummy values since grid 1 does not have a parent grid + ctnxp(igrid) = nnxp(igrid) + cti0(igrid) = 0 + ctipm(1:nnxp(igrid),igrid) = 0 + + ctnyp(igrid) = nnzp(igrid) + ctj0(igrid) = 0 + ctjpm(1:nnyp(igrid),igrid) = 0 + + ctnzp(igrid) = nnzp(igrid) + ctkpm(1:nnzp(igrid),igrid) = 0 + else + ctbeg = ipm(1,igrid) - 2 + ctend = ipm(nnxp(igrid),igrid) + 1 + + ctnxp(igrid) = (ctend - ctbeg) + 1 + cti0(igrid) = ctbeg - 1 + do i = 1, nnxp(igrid) + ctipm(i,igrid) = ipm(i,igrid) - cti0(igrid) + enddo + + ctbeg = jpm(1,igrid) - 2 + ctend = jpm(nnyp(igrid),igrid) + 1 + + ctnyp(igrid) = (ctend - ctbeg) + 1 + ctj0(igrid) = ctbeg - 1 + do j = 1, nnyp(igrid) + ctjpm(j,igrid) = jpm(j,igrid) - ctj0(igrid) + enddo + + ctnzp(igrid) = nnzp(igrid) + endif + enddo + + CALL make_sfcfiles () + if(trim(runtype) == 'MAKEVFILE') CALL isan_driver () + if(trim(runtype) == 'MAKEHFILE') CALL nudh_driver () + + ! restore the variables + nmachs = orig_nmachs + mmxp = orig_mmxp + mmyp = orig_mmyp + mmzp = orig_mmzp + mmxyzp = orig_mmxyzp + mmxysp = orig_mmxysp + mmxyp = orig_mmxyp + mi0 = orig_mi0 + mj0 = orig_mj0 + mibcon = orig_mibcon + mem_read = orig_mem_read + mem_write = orig_mem_write + file_read = orig_file_read + file_write = orig_file_write + file_xchunk = orig_file_xchunk + file_ychunk = orig_file_ychunk + + ctnxp = orig_ctnxp + ctnyp = orig_ctnyp + ctnzp = orig_ctnzp + cti0 = orig_cti0 + ctj0 = orig_ctj0 + ctipm = orig_ctipm + ctjpm = orig_ctjpm + ctkpm = orig_ctkpm + endif + + ! If more than the mainnum node, then make everyone wait for the files + ! to be built before proceding. + if (nmachs .gt. 1) then + CALL par_pause (my_rams_num, 201) + endif + +return +END SUBROUTINE update_sfc_var_files + +!############################################################################## +Subroutine rams_output () + +use mem_leaf +use mem_varinit +use mem_cuparm +use io_params +use mem_grid +use node_mod + +implicit none + +integer :: ierr,ifm +logical :: analwrite +real :: timmaxr + + +do ifm = 1,ngrids + CALL newgrid (ifm) + timmaxr = timmax - .01*dtlongn(ifm) + +! Implement call to NON_SCALAR_BC if calling ANLWRT. +! This sets all BC's for non-scalar (non-advected) quantities such +! as THETA, RV, and variables in LEAF, RADIATION, TURBULENCE. + +! For testing the mean fields, skip this rediagnosis +! GOTO 10 + + if (ioutput == 0) go to 10 + + analwrite=.false. + + !FOR STATE FILE OUTPUT + if(mod(time,frqstate(ifm)) < dtlongn(ifm) .or. & + time >= timmaxr .or. & + iflag == 1 & + ) analwrite=.true. + !FOR LITE FILE OUTPUT + if(frqlite > 0.) then + if( mod(time,frqlite) < dtlongn(1).or. & + time >= timmaxr ) then + analwrite=.true. + endif + endif + !FOR MEAN FILE OUTPUT + if (frqmean > 0.) then + if(avgtim > 0.0.and.mod(time-avgtim/2.,frqmean) < dtlongn(1) & + .and.time >= avgtim) then + analwrite=.true. + endif + if(avgtim < 0.0.and.mod(time,frqmean) < dtlongn(1)) then + analwrite=.true. + endif + endif + !FOR BOTH LITE AND MEAN FILE OUTPUT + if (frqboth>0.) then + if(avgtim > 0.0.and.mod(time-avgtim/2.,frqboth) < dtlongn(1) & + .and.time >= avgtim) analwrite=.true. + if(avgtim < 0.0.and.mod(time,frqboth) < dtlongn(1)) & + analwrite=.true. + endif + + !If we are writing any output files, then do the non-scalar BC's. + !We have to do this call within the ifm grid loop after call to + !"newgrid" so we have the grid appropriate nxp,nyp,nzp. + if (analwrite) then + CALL non_scalar_bc (mzp,mxp,myp,nzg,nzs,ibcon) + endif + +10 continue + +enddo + +timmaxr = timmax - .01*dtlongn(1) + +analwrite=.false. +do ifm = 1,ngrids + if(mod(time,frqstate(ifm)) < dtlongn(1).or. & + time >= timmaxr .or. & + iflag == 1) analwrite=.true. +enddo +if (analwrite) CALL anal_write ('INST') + +! call the analysis writing routine again for the other var types +if(frqlite > 0.) then + if( mod(time,frqlite) < dtlongn(1).or. & + time >= timmaxr ) then + CALL anal_write ('LITE') + endif +endif + +if (frqmean > 0.) then + if(iprntstmt>=1.and.print_msg)print*,'check avg',time,frqmean,avgtim,dtlongn(1) + if(avgtim > 0.0.and.mod(time-avgtim/2.,frqmean) < dtlongn(1) & + .and.time >= avgtim) then + CALL anal_write ('MEAN') + endif + + if(avgtim < 0.0.and.mod(time,frqmean) < dtlongn(1)) then + CALL anal_write ('MEAN') + endif +endif + +if (frqboth>0.) then + if(avgtim > 0.0.and.mod(time-avgtim/2.,frqboth) < dtlongn(1) & + .and.time >= avgtim) CALL anal_write ('BOTH') + if(avgtim < 0.0.and.mod(time,frqboth) < dtlongn(1)) & + CALL anal_write ('BOTH') +endif + +timmaxr = time+.00001 + +if (iupdsst == 1 .and. timmaxr < timmax) then + do ifm = 1,ngrids + CALL sst_read (3,ifm,ierr) + enddo +endif + +if (iupdndvi == 1 .and. timmaxr < timmax) then + do ifm = 1,ngrids + CALL ndvi_read (3,ifm,ierr) + enddo +endif + +if(nud_type == 1 .and. time >= vtime2 .and. timmaxr < timmax) then + CALL varf_read (2) +endif + +if (iflag == 1) stop 'IFLAG' + +return +END SUBROUTINE rams_output + +!################################################################################## +Subroutine update_for_hist_grid (histgridflg,ngrids1,nnzp1,nnxp1,nnyp1 & + ,nzg1,nzs1,npatch1) + +use grid_dims +use node_mod +use mem_grid + +implicit none + +integer :: histgridflg,ngrids1,nzg1,nzs1,npatch1 +integer, save :: orig_nmachs +integer, dimension(maxgrds) :: nnzp1,nnxp1,nnyp1 +integer, dimension(maxgrds),save :: orig_mmxp, orig_mmyp +integer, dimension(maxgrds),save :: orig_mmzp, orig_file_xchunk, orig_file_ychunk +integer, dimension(maxgrds),save :: orig_mmxyzp, orig_mmxysp, orig_mmxyp +type (io_descrip), dimension(maxgrds),save :: orig_mem_read, orig_mem_write +type (io_descrip), dimension(maxgrds),save :: orig_file_read, orig_file_write +integer :: igrid + +if(histgridflg==1) then + + ! save the variables + orig_nmachs = nmachs + orig_mmxp = mmxp + orig_mmyp = mmyp + orig_mmzp = mmzp + orig_mmxyzp = mmxyzp + orig_mmxysp = mmxysp + orig_mmxyp = mmxyp + orig_mem_read = mem_read + orig_mem_write = mem_write + orig_file_read = file_read + orig_file_write = file_write + orig_file_xchunk = file_xchunk + orig_file_ychunk = file_ychunk + + ! set to full domain values + nmachs = 1 + mmxp = nnxp1 + mmyp = nnyp1 + mmzp = nnzp1 + do igrid = 1, ngrids1 + mmxyzp(igrid) = nnxp1(igrid) * nnyp1(igrid) * nnzp1(igrid) + mmxysp(igrid) = nnxp1(igrid) * nnyp1(igrid) * (nzg1+nzs1+3) * npatch1 + mmxyp(igrid) = nnxp1(igrid) * nnyp1(igrid) + + mem_read(igrid)%xblock = nnxp1(igrid) + mem_read(igrid)%yblock = nnyp1(igrid) + mem_read(igrid)%xoff = 0 + mem_read(igrid)%yoff = 0 + + mem_write(igrid)%xblock = nnxp1(igrid) + mem_write(igrid)%yblock = nnyp1(igrid) + mem_write(igrid)%xoff = 0 + mem_write(igrid)%yoff = 0 + + file_read(igrid)%xblock = nnxp1(igrid) + file_read(igrid)%yblock = nnyp1(igrid) + file_read(igrid)%xoff = 0 + file_read(igrid)%yoff = 0 + + file_write(igrid)%xblock = nnxp1(igrid) + file_write(igrid)%yblock = nnyp1(igrid) + file_write(igrid)%xoff = 0 + file_write(igrid)%yoff = 0 + + file_xchunk(igrid) = nnxp1(igrid) + file_ychunk(igrid) = nnyp1(igrid) + enddo + +elseif(histgridflg==2) then + + ! restore the variables + nmachs = orig_nmachs + mmxp = orig_mmxp + mmyp = orig_mmyp + mmzp = orig_mmzp + mmxyzp = orig_mmxyzp + mmxysp = orig_mmxysp + mmxyp = orig_mmxyp + mem_read = orig_mem_read + mem_write = orig_mem_write + file_read = orig_file_read + file_write = orig_file_write + file_xchunk = orig_file_xchunk + file_ychunk = orig_file_ychunk + +endif + +return +END SUBROUTINE update_for_hist_grid diff --git a/src/6.2.16/core/ref_sounding.f90 b/src/6.2.16/core/ref_sounding.f90 new file mode 100644 index 0000000..56efcb8 --- /dev/null +++ b/src/6.2.16/core/ref_sounding.f90 @@ -0,0 +1,17 @@ +!############################################################################## +Module ref_sounding + +use grid_dims + +implicit none + + integer :: iref,jref + real :: topref + + !Base state variables in 1D (constant in time) + real, dimension(nzpmax,maxgrds) :: u01dn,v01dn,pi01dn,th01dn,dn01dn,rt01dn + + integer :: ipsflg,itsflg,irtsflg,iusflg,nsndg + real, dimension(maxsndg) :: us,vs,ts,thds,ps,hs,rts + +END MODULE ref_sounding diff --git a/src/6.2.16/core/rexev.f90 b/src/6.2.16/core/rexev.f90 new file mode 100644 index 0000000..cc6d0b8 --- /dev/null +++ b/src/6.2.16/core/rexev.f90 @@ -0,0 +1,533 @@ + +!############################################################################## +subroutine exevolve (mzp,mxp,myp,ia,iz,ja,jz,izu,jzv,key,thvlast) + +use mem_tend +use mem_basic +use mem_grid + + +implicit none + +character*(*) :: key +integer :: mzp,mxp,myp,ia,iz,ja,jz,izu,jzv,i,j,k +real,dimension(mzp,mxp,myp) :: thvlast + +if(key.eq.'ADV')then + + do i=ia,iz + do j=ja,jz + do k=1,mzp + thvlast(k,i,j)=0.0 + enddo + enddo + enddo + + CALL exadvlf (mzp,mxp,myp,ia,iz,ja,jz,izu,jzv & + ,grid_g(ngrid)%rtgu (1,1) ,grid_g(ngrid)%fmapui (1,1) & + ,grid_g(ngrid)%rtgv (1,1) ,grid_g(ngrid)%fmapvi (1,1) & + ,grid_g(ngrid)%f13t (1,1) ,grid_g(ngrid)%f23t (1,1) & + ,grid_g(ngrid)%rtgt (1,1) ,grid_g(ngrid)%fmapt (1,1) & + ,grid_g(ngrid)%dxt (1,1) ,grid_g(ngrid)%dyt (1,1) & + ,basic_g(ngrid)%uc (1,1,1) ,basic_g(ngrid)%dn0u (1,1,1) & + ,basic_g(ngrid)%vc (1,1,1) ,basic_g(ngrid)%dn0v (1,1,1) & + ,basic_g(ngrid)%dn0 (1,1,1) ,basic_g(ngrid)%wc (1,1,1) & + ,tend%pt (1) ,basic_g(ngrid)%pc (1,1,1) ) + + CALL excondiv (mzp,mxp,myp,ia,iz,ja,jz,izu,jzv & + ,basic_g(ngrid)%uc (1,1,1) ,basic_g(ngrid)%vc (1,1,1) & + ,basic_g(ngrid)%wc (1,1,1) ,basic_g(ngrid)%pc (1,1,1) & + ,tend%pt (1) & + ,grid_g(ngrid)%dxt (1,1) ,grid_g(ngrid)%dyt (1,1) & + ,grid_g(ngrid)%rtgt (1,1) ,grid_g(ngrid)%rtgu (1,1) & + ,grid_g(ngrid)%rtgv (1,1) ,grid_g(ngrid)%f13t (1,1) & + ,grid_g(ngrid)%f23t (1,1) ,grid_g(ngrid)%fmapt (1,1) & + ,grid_g(ngrid)%fmapui (1,1) ,grid_g(ngrid)%fmapvi (1,1) ) + + CALL fthvlast (mzp,mxp,myp,ia,iz,ja,jz,thvlast & + ,basic_g(ngrid)%theta(1,1,1) ,basic_g(ngrid)%rtp(1,1,1) & + ,basic_g(ngrid)%rv(1,1,1)) + +elseif(key.eq.'THV')then + + CALL exheat (mzp,mxp,myp,ia,iz,ja,jz,izu,jzv,thvlast) + +endif + +return +END SUBROUTINE exevolve + +!############################################################################## +subroutine exadvlf (m1,m2,m3,ia,iz,ja,jz,izu,jzv,rtgu,fmapui,rtgv,fmapvi & + ,f13t,f23t,rtgt,fmapt,dxt,dyt,uc,dn0u,vc,dn0v,dn0,wc,pt,pc) + +use mem_basic +use mem_grid + +implicit none + +integer i,j,k,m1,m2,m3,jm,im,ja,jz,ia,iz,jzv,izu +real :: c1z,c1x,c1y +real, dimension(m2,m3) :: rtgu,fmapui,rtgv,fmapvi,f13t,f23t,rtgt,fmapt,dxt,dyt +real, dimension(m1,m2,m3) :: flxu,flxv,uc,dn0u,vc,dn0v,dn0,wc,flxw,pt,pc + +! Compute momentum fluxes flxu, flxv, flxw + +do j = 1,m3 + do i = 1,m2 + do k = 1,m1 + flxu(k,i,j) = uc(k,i,j) * dn0u(k,i,j) * rtgu(i,j) & + * fmapui(i,j) + flxv(k,i,j) = vc(k,i,j) * dn0v(k,i,j) * rtgv(i,j) & + * fmapvi(i,j) + enddo + enddo +enddo + +if(itopo.eq.0) then + do j = 1,m3 + do i = 1,m2 + do k = 1,m1-1 + flxw(k,i,j) = wc(k,i,j) & + * .5 * (dn0(k,i,j) + dn0(k+1,i,j)) + enddo + enddo + enddo +else + do j = 1,m3 + jm = max(j-1,1) + do i = 1,m2 + im = max(i-1,1) + do k = 1,m1-1 + flxw(k,i,j) = wc(k,i,j) & + * .5 * (dn0(k,i,j) + dn0(k+1,i,j)) & + + hw4(k) * ((flxu(k,i,j) + flxu(k+1,i,j) & + + flxu(k,im,j) + flxu(k+1,im,j)) * f13t(i,j) & + + (flxv(k,i,j) + flxv(k+1,i,j) & + + flxv(k,i,jm) + flxv(k+1,i,jm)) * f23t(i,j)) + enddo + enddo + enddo +endif + +! Compute advection contribution to PI tendency + +do j = ja,jz + do i = ia,izu + c1z = 0.5 / rtgt(i,j) + c1x = c1z * fmapt(i,j) * dxt(i,j) + c1y = c1z * fmapt(i,j) * dyt(i,j) + + do k = 2,m1-1 + pt(k,i,j) = pt(k,i,j) - c1x / dn0(k,i,j) * ( & + flxu(k,i,j) & + * (pc(k,i,j) + pc(k,i+1,j)) & + - flxu(k,i-1,j) & + * (pc(k,i,j) + pc(k,i-1,j)) & + - (flxu(k,i,j) - flxu(k,i-1,j)) * 2.* pc(k,i,j) ) + enddo + enddo +enddo + +do j=ja,jzv + do i=ia,iz + do k=2,m1-1 + pt(k,i,j)=pt(k,i,j) - c1y /dn0(k,i,j) * ( & + flxv(k,i,j) & + * (pc(k,i,j)+pc(k,i,j+jdim)) & + -flxv(k,i,j-jdim) & + * (pc(k,i,j)+pc(k,i,j-jdim)) & + - (flxv(k,i,j)-flxv(k,i,j-jdim))*2.*pc(k,i,j) ) + enddo + enddo +enddo + +do j=ja,jz + do i=ia,iz + do k=2,m1-1 + pt(k,i,j)=pt(k,i,j) - c1z * dzt(k) /dn0(k,i,j) * ( & + flxw(k,i,j) & + * (pc(k,i,j)+pc(k+1,i,j)) & + -flxw(k-1,i,j) & + * (pc(k,i,j)+pc(k-1,i,j)) & + - (flxw(k,i,j)-flxw(k-1,i,j))*2.*pc(k,i,j) ) + enddo + enddo +enddo + +return +END SUBROUTINE exadvlf + +!############################################################################## +subroutine excondiv (m1,m2,m3,ia,iz,ja,jz,izu,jzv,uc,vc,wc,pc,pt & + ,dxt,dyt,rtgt,rtgu,rtgv,f13t,f23t,fmapt,fmapui,fmapvi) + +use mem_basic +use rconstants +use mem_grid + +implicit none + +integer :: m1,m2,m3,i,j,k,ia,iz,ja,jz,izu,jzv,im,jm +real :: c1z,c1x,c1y +real, dimension(m1,m2,m3) :: flxu,flxv,flxw,uc,vc,wc,pt,pc +real, dimension(m2,m3) :: rtgu,fmapui,rtgv,fmapvi,rtgt,fmapt,dxt,dyt,f13t,f23t + +! Compute divergence +!----------- +! Prep Fluxes +!----------- + +! These are: (transformed velocities) times (a) times (mapfactor) +do j=1,m3 + do i=1,m2 + do k=1,m1 + flxu(k,i,j)=uc(k,i,j)*rtgu(i,j)*fmapui(i,j) + flxv(k,i,j)=vc(k,i,j)*rtgv(i,j)*fmapvi(i,j) + enddo + enddo +enddo + +if(itopo.eq.0)then + do j=1,m3 + do i=1,m2 + do k=1,m1-1 + flxw(k,i,j)=wc(k,i,j) + enddo + enddo + enddo +else + do j=1,m3 + jm=max(j-1,1) + do i=1,m2 + im=max(i-1,1) + do k=1,m1-1 + flxw(k,i,j)=wc(k,i,j) & + + hw4(k) * ( (flxu(k,i,j)+flxu(k+1,i,j) & + +flxu(k,im,j) + flxu(k+1,im,j)) * f13t(i,j) & + + (flxv(k,i,j)+flxv(k+1,i,j) & + +flxv(k,i,jm) + flxu(k+1,i,jm)) * f23t(i,j)) + enddo + enddo + enddo +endif + +do j=ja,jz + do i=ia,izu + c1x=fmapt(i,j)*dxt(i,j)/rtgt(i,j) + do k=2,m1-1 + pt(k,i,j)=pt(k,i,j) & + - c1x * ( flxu(k,i,j)-flxu(k,i-1,j) ) & + * pc(k,i,j) * rocv + enddo + enddo +enddo + +do j=ja,jzv + do i=ia,iz + c1y=fmapt(i,j)*dyt(i,j)/rtgt(i,j) + do k=2,m1-1 + pt(k,i,j)=pt(k,i,j) & + - c1y * (flxv(k,i,j)-flxv(k,i,j-jdim) ) & + * pc(k,i,j) *rocv + enddo + enddo +enddo + +do j=ja,jz + do i=ia,iz + c1z=1.0/rtgt(i,j) + do k=2,m1-1 + pt(k,i,j)=pt(k,i,j) & + - c1z * dzm(k) * (flxw(k,i,j)-flxw(k-1,i,j) ) & + * pc(k,i,j) * rocv + enddo + enddo +enddo + +return +END SUBROUTINE excondiv + +!############################################################################## +subroutine fthvlast (m1,m2,m3,ia,iz,ja,jz,thvlast,theta,rtp,rv) + +use mem_basic +use mem_grid +use micphys, only:level + +implicit none + +integer :: m1,m2,m3,i,j,k,ia,iz,ja,jz +real,dimension(m1,m2,m3) :: thvlast,theta,rtp,rv + +if(level.gt.0)then + do j=ja,jz + do i=ia,iz + do k=1,m1 + thvlast(k,i,j)=theta(k,i,j)*(1.0+1.61*rv(k,i,j))/(1.0+rtp(k,i,j)) + enddo + enddo + enddo +else + do j=ja,jz + do i=ia,iz + do k=1,m1 + thvlast(k,i,j)=theta(k,i,j) + enddo + enddo + enddo +endif + +return +END SUBROUTINE fthvlast + +!############################################################################## +subroutine exheat (m1,m2,m3,ia,iz,ja,jz,izu,jzv,thvlast) + +use mem_tend +use mem_basic +use mem_grid, only:dtlt,ngrid + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,izu,jzv,mxyzp,i,j,k +real, dimension(m1,m2,m3) :: thvtend,thvadv,thvlast + +CALL thetvtend (m1,m2,m3,ia,iz,ja,jz,izu,jzv,basic_g(ngrid)%theta(1,1,1) & + ,basic_g(ngrid)%rtp(1,1,1),basic_g(ngrid)%rv(1,1,1),thvtend,thvlast) + +CALL exthvadv (m1,m2,m3,ia,iz,ja,jz,izu,jzv,thvadv) + +CALL exhtend (m1,m2,m3,ia,iz,ja,jz,basic_g(ngrid)%pi0(1,1,1) & + ,basic_g(ngrid)%pc (1,1,1) ,basic_g(ngrid)%rtp(1,1,1) & + ,basic_g(ngrid)%theta (1,1,1) ,basic_g(ngrid)%rv (1,1,1) & + ,tend%pt,thvtend,thvadv) + +return +END SUBROUTINE exheat + +!############################################################################## +subroutine thetvtend (m1,m2,m3,ia,iz,ja,jz,izu,jzv,theta,rtp,rv & + ,thvtend,thvlast) + +use mem_basic +use mem_grid, only:dtlt,time +use micphys, only:level + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,izu,jzv,mxyzp,i,j,k +real :: dtlti +real, dimension(m1,m2,m3) :: theta,rtp,rv,thvtend,thvlast + +if(time.le.0.1)then + do j=ja,jz + do i=ia,iz + do k=1,m1 + thvtend(k,i,j)=0.0 + enddo + enddo + enddo + return +endif + +dtlti=1.0/dtlt + +if(level.gt.0)then + do j=ja,jz + do i=ia,iz + do k=2,m1-1 + thvtend(k,i,j) = ( theta(k,i,j) * (1.0+1.61*rv(k,i,j)) & + / (1.0 + rtp(k,i,j)) - thvlast(k,i,j) ) * dtlti + enddo + enddo + enddo +else + do j=ja,jz + do i=ia,iz + do k=1,m1 + thvtend(k,i,j) = ( theta(k,i,j) - thvlast(k,i,j) ) * dtlti + enddo + enddo + enddo +endif + +return +END SUBROUTINE thetvtend + +!############################################################################## +subroutine exthvadv (mzp,mxp,myp,ia,iz,ja,jz,izu,jzv,thvadv) + +use mem_basic +use mem_grid +use mem_scratch + +implicit none + +integer :: mzp,mxp,myp,ia,iz,ja,jz,izu,jzv,i,j,k,ind,imono +real :: dtlto2 +real, dimension(mzp,mxp,myp) :: thvadv,thetav,srthtv + +dtlto2 = .5 * dtlt +ind = 0 +do j = 1,myp + do i = 1,mxp + do k = 1,mzp + ind = ind + 1 + scratch%vt3da(ind) = (basic_g(ngrid)%uc(k,i,j) & + + basic_g(ngrid)%uc(k,i,j)) * dtlto2 + scratch%vt3db(ind) = (basic_g(ngrid)%vc(k,i,j) & + + basic_g(ngrid)%vc(k,i,j)) * dtlto2 + scratch%vt3dc(ind) = (basic_g(ngrid)%wc(k,i,j) & + + basic_g(ngrid)%wc(k,i,j)) * dtlto2 + enddo + enddo +enddo + +CALL prep_thetv (mzp,mxp,myp,ia,iz,ja,jz,basic_g(ngrid)%theta(1,1,1) & + ,basic_g(ngrid)%rtp(1,1,1),basic_g(ngrid)%rv(1,1,1),thetav) + +CALL fa_preptc (mzp,mxp,myp & + ,scratch%vt3da (1) ,scratch%vt3db (1) & + ,scratch%vt3dc (1) ,scratch%vt3dd (1) & + ,scratch%vt3de (1) ,scratch%vt3df (1) & + ,scratch%vt3dh (1) ,scratch%vt3di (1) & + ,scratch%vt3dj (1) ,scratch%vt3dk (1) & + ,basic_g(ngrid)%dn0 (1,1,1) ,basic_g(ngrid)%dn0u (1,1,1) & + ,basic_g(ngrid)%dn0v (1,1,1) ,grid_g(ngrid)%rtgt (1,1) & + ,grid_g(ngrid)%rtgu (1,1) ,grid_g(ngrid)%rtgv (1,1) & + ,grid_g(ngrid)%fmapt (1,1) ,grid_g(ngrid)%fmapui (1,1) & + ,grid_g(ngrid)%fmapvi (1,1) ,grid_g(ngrid)%f13t (1,1) & + ,grid_g(ngrid)%f23t (1,1) ,grid_g(ngrid)%dxu (1,1) & + ,grid_g(ngrid)%dyv (1,1) ,grid_g(ngrid)%dxt (1,1) & + ,grid_g(ngrid)%dyt (1,1)) + +do i=1,mxp + do j=1,myp + do k=1,mzp + srthtv(k,i,j)=thetav(k,i,j) + enddo + enddo +enddo + +imono = 0 !flag for monotonic flux limiter in Z only + +CALL fa_xc (mzp,mxp,myp,ia,iz & + ,thetav,srthtv & + ,scratch%vt3da (1) ,scratch%vt3dd (1) & + ,scratch%vt3dg (1) ,scratch%vt3dh (1) & + ,scratch%vt3di (1)) + + +if (jdim .eq. 1) & + CALL fa_yc (mzp,mxp,myp,ia,iz,ja,jz & + ,thetav,srthtv & + ,scratch%vt3db (1) ,scratch%vt3de (1) & + ,scratch%vt3dg (1) ,scratch%vt3dj (1) & + ,scratch%vt3di (1) ,jdim) + + +if (imono.eq.1) then + CALL fluxlimits (mzp,mxp,myp,ia,iz,ja,jz & + ,srthtv,thetav & + ,scratch%vt3dc(1), scratch%vt3df(1) & + ,scratch%vt3dg(1), scratch%vt3dk(1) & + ,vctr1,vctr2,basic_g(ngrid)%dn0) +else + CALL fa_zc (mzp,mxp,myp,ia,iz,ja,jz & + ,thetav,srthtv & + ,scratch%vt3dc (1) ,scratch%vt3df (1) & + ,scratch%vt3dg (1) ,scratch%vt3dk (1) & + ,vctr1,vctr2) +endif + +do j=ja,jz + do i=ia,iz + do k=2,mzp-1 + thvadv(k,i,j)=0.0 + enddo + enddo +enddo + +CALL advtndc (mzp,mxp,myp,ia,iz,ja,jz,thetav,srthtv,thvadv,dtlt) + +do j=ja,jz + do i=ia,iz + do k=2,mzp-1 + thvadv(k,i,j)=-1.0*thvadv(k,i,j) + enddo + enddo +enddo + +return +END SUBROUTINE exthvadv + +!############################################################################## +subroutine prep_thetv (mzp,mxp,myp,ia,iz,ja,jz,theta,rtp,rv,thetav) + +use micphys, only:level + +implicit none + +integer :: mzp,mxp,myp,k,i,j,ia,iz,ja,jz +real, dimension(mzp,mxp,myp) :: theta,rtp,rv,thetav + +if(level.gt.0)then + do i=1,mxp + do j=1,myp + do k=1,mzp + thetav(k,i,j)=theta(k,i,j)*(1.0+1.61*rv(k,i,j))/(1.0+rtp(k,i,j)) + enddo + enddo + enddo +else + do i=1,mxp + do j=1,myp + do k=1,mzp + thetav(k,i,j)=theta(k,i,j) + enddo + enddo + enddo +endif + +return +END SUBROUTINE prep_thetv + +!############################################################################## +subroutine exhtend (mzp,mxp,myp,ia,iz,ja,jz,pi0,pc,rtp,theta,rv,pt & + ,thvtend,thvadv) + +use mem_tend +use mem_basic +use rconstants +use micphys, only:level + +implicit none + +integer mzp,mxp,myp,ia,iz,ja,jz,i,j,k +real, dimension(mzp,mxp,myp) :: pi0,pc,rtp,theta,pt,thvtend,thvadv,rv + +if(level.gt.0)then + do j=ja,jz + do i=ia,iz + do k=2,mzp-1 + pt(k,i,j) = pt(k,i,j) + rocv * (pi0(k,i,j) + pc(k,i,j)) & + / ( theta(k,i,j) * (1.0+1.61*rv(k,i,j)) / (1.0+rtp(k,i,j)) ) & + * ( thvtend(k,i,j) + thvadv(k,i,j) ) + enddo + enddo + enddo +else + do j=ja,jz + do i=ia,iz + do k=2,mzp-1 + pt(k,i,j) = pt(k,i,j) + rocv * (pi0(k,i,j) + pc(k,i,j)) & + / theta(k,i,j) * ( thvtend(k,i,j) + thvadv(k,i,j) ) + enddo + enddo + enddo +endif + +return +END SUBROUTINE exhtend + diff --git a/src/6.2.16/core/rthrm.f90 b/src/6.2.16/core/rthrm.f90 new file mode 100644 index 0000000..8464e15 --- /dev/null +++ b/src/6.2.16/core/rthrm.f90 @@ -0,0 +1,302 @@ +!############################################################################## +Subroutine thermo () + +use mem_grid +use mem_basic +use mem_micro +use mem_scratch +use micphys, only:level +use node_mod, only:mzp,mxp,myp + +implicit none + +if (level .le. 1) then + + CALL drythrm (mzp,mxp,myp,1,mxp,1,myp & + ,basic_g(ngrid)%thp(1,1,1) ,basic_g(ngrid)%theta(1,1,1) & + ,basic_g(ngrid)%rtp(1,1,1) ,basic_g(ngrid)%rv(1,1,1),level) + +elseif (level .eq. 2) then + + CALL satadjst (mzp,mxp,myp,1,mxp,1,myp & + ,basic_g(ngrid)%pp(1,1,1) ,scratch%scr1(1) & + ,basic_g(ngrid)%thp(1,1,1) ,basic_g(ngrid)%theta(1,1,1) & + ,basic_g(ngrid)%pi0(1,1,1) & + ,basic_g(ngrid)%rtp(1,1,1) ,basic_g(ngrid)%rv(1,1,1) & + ,micro_g(ngrid)%rcp(1,1,1) ,scratch%scr2(1)) + +elseif (level .eq. 3) then + + CALL wetthrm3 (mzp,mxp,myp,1,mxp,1,myp & + ,basic_g(ngrid)%thp(1,1,1) ,basic_g(ngrid)%theta(1,1,1) & + ,basic_g(ngrid)%rtp(1,1,1) ,basic_g(ngrid)%rv (1,1,1) & + ,micro_g(ngrid)%rcp(1,1,1) ,micro_g(ngrid)%rrp (1,1,1) & + ,micro_g(ngrid)%rpp(1,1,1) ,micro_g(ngrid)%rsp (1,1,1) & + ,micro_g(ngrid)%rap(1,1,1) ,micro_g(ngrid)%rgp (1,1,1) & + ,micro_g(ngrid)%rhp(1,1,1) ,micro_g(ngrid)%q6 (1,1,1) & + ,micro_g(ngrid)%q7(1,1,1) ,micro_g(ngrid)%rdp (1,1,1) & + ,basic_g(ngrid)%pi0(1,1,1) ,basic_g(ngrid)%pp (1,1,1) & + ) + +elseif (level .eq. 4) then + CALL wetthrm3_bin (mzp,mxp,myp,1,mxp,1,myp & + ,basic_g(ngrid)%pi0(1,1,1) ,basic_g(ngrid)%pp (1,1,1) & + ,basic_g(ngrid)%thp(1,1,1) ,basic_g(ngrid)%theta(1,1,1) & + ,basic_g(ngrid)%rtp(1,1,1) ,basic_g(ngrid)%rv (1,1,1) & + ,micro_g(ngrid)%ffcd(1,1,1,1) ,micro_g(ngrid)%ffic (1,1,1,1) & + ,micro_g(ngrid)%ffip(1,1,1,1) ,micro_g(ngrid)%ffid (1,1,1,1) & + ,micro_g(ngrid)%ffsn(1,1,1,1) ,micro_g(ngrid)%ffgl (1,1,1,1) & + ,micro_g(ngrid)%ffhl(1,1,1,1)) +else + + stop 'Thermo option not supported...LEVEL out of bounds' + +endif + +return +END SUBROUTINE thermo + +!############################################################################## +Subroutine drythrm (m1,m2,m3,ia,iz,ja,jz,thil,theta,rt,rv,level) + +! This routine calculates theta and rv for the case where no condensate is +! allowed. + +implicit none + +integer m1,m2,m3,ia,iz,ja,jz,i,j,k,level +real thil(m1,m2,m3),theta(m1,m2,m3),rt(m1,m2,m3),rv(m1,m2,m3) + +do j = ja,jz + do i = ia,iz + do k = 1,m1 + theta(k,i,j) = thil(k,i,j) + enddo + if (level .eq. 1) then + do k = 1,m1 + rv(k,i,j) = rt(k,i,j) + enddo + endif + enddo +enddo + +return +END SUBROUTINE drythrm + +!############################################################################## +Subroutine satadjst (m1,m2,m3,ia,iz,ja,jz & + ,pp,p,thil,theta,pi0,rtp,rv,rcp,rvls) + +! This routine diagnoses theta, rv, and rcp using a saturation adjustment +! for the case when water is in the liquid phase only + +use rconstants + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz +real :: pp(m1,m2,m3),p(m1,m2,m3),thil(m1,m2,m3),theta(m1,m2,m3) & + ,pi0(m1,m2,m3),rtp(m1,m2,m3),rv(m1,m2,m3) & + ,rcp(m1,m2,m3),rvls(m1,m2,m3) +real :: t(m1,m2,m3) +real, external :: rslf +integer :: i,j,k,iterate +real :: picpi,til,tt + +do j = ja,jz + do i = ia,iz + do k = 1,m1 + picpi = (pi0(k,i,j) + pp(k,i,j)) * cpi + p(k,i,j) = p00 * picpi ** 3.498 + til = thil(k,i,j) * picpi + t(k,i,j) = til + + do iterate = 1,20 + rvls(k,i,j) = rslf(p(k,i,j),t(k,i,j)) + rcp(k,i,j) = max(rtp(k,i,j) - rvls(k,i,j),0.) + tt = 0.7 * t(k,i,j) + 0.3 * til & + * (1. + alvl * rcp(k,i,j) & + / (cp * max(t(k,i,j),253.))) + if (abs(tt - t(k,i,j)) .le. 0.001) go to 1 + t(k,i,j) = tt + enddo +1 continue + rv(k,i,j) = rtp(k,i,j) - rcp(k,i,j) + theta(k,i,j) = t(k,i,j) / picpi + enddo + enddo +enddo + +return +END SUBROUTINE satadjst + +!############################################################################## +Subroutine wetthrm3 (m1,m2,m3,ia,iz,ja,jz & + ,thp,theta,rtp,rv,rcp,rrp,rpp,rsp,rap,rgp,rhp,q6,q7,rdp & + ,pi0,pp & + ) + +! This routine calculates theta and rv for "level 3 microphysics" +! given prognosed theta_il, cloud, rain, pristine ice, snow, aggregates, +! graupel, hail, q6, and q7. + +use rconstants +use micphys, only:tair,til,qhydm,rliq,rice,jnmb + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,i,j,k +real :: tcoal,fracliq,tairstr +real, dimension(m1) :: picpi +real, dimension(m1,m2,m3) :: pi0,pp,thp,theta,rtp,rv,rcp,rrp,rpp,rsp,rap & + ,rgp,rhp,q6,q7,rdp + +do j = ja,jz + do i = ia,iz + + do k = 1,m1 + picpi(k) = (pi0(k,i,j) + pp(k,i,j)) * cpi + tair(k) = theta(k,i,j) * picpi(k) + til(k) = thp(k,i,j) * picpi(k) + rliq(k) = 0. + rice(k) = 0. + enddo + + if (jnmb(1) .ge. 1) then + do k = 1,m1 + rliq(k) = rliq(k) + rcp(k,i,j) + enddo + endif + + if (jnmb(2) .ge. 1) then + do k = 1,m1 + rliq(k) = rliq(k) + rrp(k,i,j) + enddo + endif + + if (jnmb(3) .ge. 1) then + do k = 1,m1 + rice(k) = rice(k) + rpp(k,i,j) + enddo + endif + + if (jnmb(4) .ge. 1) then + do k = 1,m1 + rice(k) = rice(k) + rsp(k,i,j) + enddo + endif + + if (jnmb(5) .ge. 1) then + do k = 1,m1 + rice(k) = rice(k) + rap(k,i,j) + enddo + endif + + if (jnmb(6) .ge. 1) then + do k = 1,m1 + CALL qtc (q6(k,i,j),tcoal,fracliq) + rliq(k) = rliq(k) + rgp(k,i,j) * fracliq + rice(k) = rice(k) + rgp(k,i,j) * (1. - fracliq) + enddo + endif + + if (jnmb(7) .ge. 1) then + do k = 1,m1 + CALL qtc (q7(k,i,j),tcoal,fracliq) + rliq(k) = rliq(k) + rhp(k,i,j) * fracliq + rice(k) = rice(k) + rhp(k,i,j) * (1. - fracliq) + enddo + endif + + if (jnmb(8) .ge. 1) then + do k = 1,m1 + rliq(k) = rliq(k) + rdp(k,i,j) + enddo + endif + + do k = 1,m1 + qhydm(k) = alvl * rliq(k) + alvi * rice(k) + rv(k,i,j) = rtp(k,i,j) - rliq(k) - rice(k) + enddo + + do k = 1,m1 + if (tair(k) .gt. 253.) then + tairstr = 0.5 * (til(k) & + + sqrt(til(k) * (til(k) + cpi4 * qhydm(k)))) + else + tairstr = til(k) * (1. + qhydm(k) * cp253i) + endif + theta(k,i,j) = tairstr / picpi(k) + enddo + + enddo +enddo + +return +END SUBROUTINE wetthrm3 + +!############################################################################## +Subroutine wetthrm3_bin (m1,m2,m3,ia,iz,ja,jz & + ,pi0,pp,thp,theta,rtp,rv,ffcd,ffic,ffip,ffid,ffsn,ffgl,ffhl) + +! This routine calculates theta and rv for "level 4 microphysics" + +use rconstants +use micro_prm, only:nkr,iceprocs +use micphys, only:ipris,igraup,ihail,tair,til,qhydm + +implicit none +integer :: m1,m2,m3,ia,iz,ja,jz,ngrid,izero,i,j,k +real, dimension(m1,m2,m3) :: pi0,pp,thp,theta,rtp,rv +real, dimension(m1,m2,m3,nkr) :: ffcd,ffic,ffip,ffid,ffsn,ffgl,ffhl +real, dimension(m1) :: picpi +real, allocatable, dimension(:,:,:) :: rliq,rice +real, allocatable, dimension(:,:,:,:) :: ice_bins +real :: tcoal,fracliq,tairstr + +allocate(ice_bins(m1,m2,m3,nkr)) +allocate(rliq(m1,m2,m3)) +allocate(rice(m1,m2,m3)) + +izero=0 +CALL sum_bins (ffcd,rliq,m1,m2,m3,1,nkr,izero) + +if(iceprocs.eq.1) then + ice_bins = ffsn + if (ipris == 1 .or. ipris >= 4) ice_bins = ice_bins + ffic + if (ipris == 2 .or. ipris >= 4) ice_bins = ice_bins + ffip + if (ipris >= 3) ice_bins = ice_bins + ffid + if (igraup > 0) ice_bins = ice_bins + ffgl + if (ihail > 0) ice_bins = ice_bins + ffhl + izero=0 + CALL sum_bins (ice_bins,rice,m1,m2,m3,1,nkr,izero) +else + rice=0. +endif + +do j = ja,jz + do i = ia,iz + + do k = 1,m1 + picpi(k) = (pi0(k,i,j) + pp(k,i,j)) * cpi + tair(k) = theta(k,i,j) * picpi(k) + til(k) = thp(k,i,j) * picpi(k) + + qhydm(k) = alvl * rliq(k,i,j) + alvi * rice(k,i,j) + rv(k,i,j) = rtp(k,i,j) - rliq(k,i,j) - rice(k,i,j) + if (tair(k) .gt. 253.) then + tairstr = 0.5 * (til(k) & + + sqrt(til(k) * (til(k) + cpi4 * qhydm(k)))) + else + tairstr = til(k) * (1. + qhydm(k) * cp253i) + endif + theta(k,i,j) = tairstr / picpi(k) + enddo + + enddo +enddo + +deallocate(ice_bins,rliq,rice) + +return +END SUBROUTINE wetthrm3_bin diff --git a/src/6.2.16/core/rtimh.f90 b/src/6.2.16/core/rtimh.f90 new file mode 100644 index 0000000..8cef4a2 --- /dev/null +++ b/src/6.2.16/core/rtimh.f90 @@ -0,0 +1,590 @@ +!############################################################################## +Subroutine timestep () + +use mem_basic +use node_mod +use mem_radiate +use mem_cuparm +use mem_varinit +use mem_turb +use mem_oda, only:if_oda +use micphys, only:level,icheckmic,iscm,scmtime,iscmx,iscmy +use mem_grid +use kpp_parameters, only:IKPP + +implicit none + +integer :: callmassflux,massfluxfreq +real, dimension(mzp,mxp,myp) :: thvlast + + CALL acctimes ('INIT') + +! +-------------------------------------------------------------+ +! | Timestep driver for the hybrid non-hydrostatic time-split | +! | model. | +! +-------------------------------------------------------------+ + +!------------------------------------------------------------------------------ +! Zero out all tendency arrays. +!------------------------------------------------------------------------------ + CALL tend0 () + CALL acctimes ('TEND0') + +!------------------------------------------------------------------------------ +! Thermodynamic diagnosis +!------------------------------------------------------------------------------ + CALL thermo () + CALL acctimes ('THERMO') + +!------------------------------------------------------------------------------ +!For computing FULL EXNER FUNCTION (after thermo update) +!This is experimental. Do not use yet. (Nov 19, 2017) +!------------------------------------------------------------------------------ +! CALL exevolve (mzp,mxp,myp,ia,iz,ja,jz,izu,jzv,'ADV',thvlast) +! CALL acctimes ('EXEVOLVE1') + +!------------------------------------------------------------------------------ +! Radiation parameterization +! If running Harrington radiation, this radiation call only updates +! theta-il tendency, zeros out fthrd, runs radprep and then mclatchy. +! Actual Harrinton call done from microphysics driver for Level=3 micro. +! For Chen-Cotton or Mahrer-Pielke radiation options, the radiation +! physics is done at this point. It updates the tendency but does not +! apply it until the following timestep. Updates fluxes needed for +! land-surface model which is called next. Radiation is typically +! called on infrequent timesteps given by namelist variable "radfrq". +!------------------------------------------------------------------------------ + CALL radiate (mzp,mxp,myp,ia,iz,ja,jz) + CALL acctimes ('RADIATE') + +!------------------------------------------------------------------------------ +! Surface layer, soil, veggie, urban models +!------------------------------------------------------------------------------ + CALL sfc_driver (mzp,mxp,myp,ia,iz,ja,jz) + CALL acctimes ('SFC_DRIVER') + +!------------------------------------------------------------------------------ +! Coriolis terms +!------------------------------------------------------------------------------ + CALL corlos (mzp,mxp,myp,i0,j0,ia,iz,ja,jz,izu,jzv) + CALL acctimes ('CORLOS') + +!------------------------------------------------------------------------------ +! Velocity advection +!------------------------------------------------------------------------------ + CALL advectc ('V',mzp,mxp,myp,ia,iz,ja,jz,izu,jzv) + CALL acctimes ('ADVECTv') + +!------------------------------------------------------------------------------ +! Cumulus parameterization +!------------------------------------------------------------------------------ + IF(NNQPARM(ngrid) == 1 ) CALL cuparm () + IF(NNQPARM(ngrid) == 2 ) CALL kf_main () + CALL acctimes ('CUPARM') + +!------------------------------------------------------------------------------ +! Analysis nudging and boundary condition +!------------------------------------------------------------------------------ + IF(NUD_TYPE > 0) CALL datassim () + CALL acctimes ('DATASSIM') + +!------------------------------------------------------------------------------ +! Observation data assimilation +!------------------------------------------------------------------------------ + IF(IF_ODA == 1) CALL oda_nudge () + CALL acctimes ('DATASSIM') + +!------------------------------------------------------------------------------ +! Nested grid boundaries +!------------------------------------------------------------------------------ + if(nxtnest(ngrid) >= 1) CALL nstbdriv () + CALL acctimes ('NSTBDRIV') + +!------------------------------------------------------------------------------ +! Rayleigh friction for theta +!------------------------------------------------------------------------------ + CALL rayft () + CALL acctimes ('RAYFT') + +!------------------------------------------------------------------------------ +! Update the overlap region between parallel nodes +!------------------------------------------------------------------------------ + if(nmachs .gt. 1) CALL update_lbc_vgroup (ngrid,LBC_ALL_VARS) + CALL acctimes ('UPDATElbc') + +!------------------------------------------------------------------------------ +! Sub-grid diffusion terms +!------------------------------------------------------------------------------ + CALL diffuse () + CALL acctimes ('DIFFUSE') + +!------------------------------------------------------------------------------ +! Scalar advection +!------------------------------------------------------------------------------ + CALL advectc ('T',mzp,mxp,myp,ia,iz,ja,jz,izu,jzv) + CALL acctimes ('ADVECTs') + +!------------------------------------------------------------------------------ +! Update scalars +! Skip the update call for SCM initial condition output. +!------------------------------------------------------------------------------ + if(iscm == 0 .or. (iscm >= 1 .and. scmtime /= 0.0))then + CALL predtr () + CALL acctimes ('PREDTR') + endif + +!############################################################################## +!SINGLE COLUMN MODEL (SCM) SECTION NEEDED FOR COMPARISON +!############################################################################## +!------------------------------------------------------------------------------ +! Output SCM column BEFORE call to physics packages +!------------------------------------------------------------------------------ + if(iscm==ngrid .and. time==scmtime .and. my_rams_num == my_scm_num) then + CALL simdata ("parent_sim_info.txt","scm.in/") + CALL readwrite_scm (2,"scm.in/") + endif + +!------------------------------------------------------------------------------ +! Update radiation tendency to THP (theta-il) separately for including this +! tendency update to the SCM. +!------------------------------------------------------------------------------ + CALL predthp () + CALL acctimes ('PREDTHP') + +!------------------------------------------------------------------------------ +! Moisture variables positive definite (negative adjustment rtp, etc,) +! to be done following tendency updates and before call to microphysics. +!------------------------------------------------------------------------------ + CALL negadj1 () + CALL acctimes ('NEGADJ-1') + +!------------------------------------------------------------------------------ +! Thermodynamic diagnosis (update theta,rv after negative adjustment and +! after updates to THP, RTP, and hydrometeors from tendencies) +!------------------------------------------------------------------------------ + CALL thermo () + CALL acctimes ('THERMO') + +!------------------------------------------------------------------------------ +! Aerosol Initial & Sources of dust and salt before microphysics call. +!------------------------------------------------------------------------------ + if (level <= 3) then + CALL aerosols () + CALL acctimes ('AEROSOLS') + endif + +!------------------------------------------------------------------------------ +! Full 1 or 2 Moment Microphysics call. +!------------------------------------------------------------------------------ + if (level == 3) then + CALL micro () + elseif (level == 4) then + CALL micro_bin () + endif + CALL acctimes ('MICRO') + +!------------------------------------------------------------------------------ +! Apply scalar b.c.'s +!------------------------------------------------------------------------------ + CALL trsets () + CALL acctimes ('TRSETS') + +!------------------------------------------------------------------------------ +! Apply non-advected scalar top,bottom b.c.'s +!------------------------------------------------------------------------------ + CALL trsets_ns () + CALL acctimes ('TRSETS_NS') + +!------------------------------------------------------------------------------ +! Moisture variables positive definite following microphysics update. +!------------------------------------------------------------------------------ + CALL negadj1 () + CALL acctimes ('NEGADJ-2') + +!------------------------------------------------------------------------------ +! Thermodynamic diagnosis (update theta,rv after negative adjustment +! and potentially before writing output after timestep is finished) +!------------------------------------------------------------------------------ + CALL thermo () + CALL acctimes ('THERMO') + +!------------------------------------------------------------------------------ +! Check for negative micro and Nans +!------------------------------------------------------------------------------ + if(icheckmic == 1) then + CALL checkmicro ('MICRO') + endif + +!------------------------------------------------------------------------------ +! Output SCM column AFTER call to physics packages +!------------------------------------------------------------------------------ + if(iscm==ngrid .and. time==scmtime .and. my_rams_num == my_scm_num) then + CALL readwrite_scm (3,"scm.out/") + endif +!############################################################################## +!############################################################################## + +!------------------------------------------------------------------------------ +! KPP Ocean mixed-layer model +!------------------------------------------------------------------------------ + IF(IKPP > 0 ) CALL mckpp_ocean_mixing () + CALL acctimes ('KPP-Ocean') + +!------------------------------------------------------------------------------ +! For computing FULL EXNER FUNCTION (after thermo update) +! This is experimental. Do not use yet. (Nov 19, 2017) +!------------------------------------------------------------------------------ +! CALL exevolve (mzp,mxp,myp,ia,iz,ja,jz,izu,jzv,'THV',thvlast) +! CALL acctimes ('EXEVOLVE2') + +!------------------------------------------------------------------------------ +! Lateral velocity boundaries - radiative +!------------------------------------------------------------------------------ + CALL latbnd () + CALL acctimes ('LATBND') + +!------------------------------------------------------------------------------ +! First stage Asselin filter +!------------------------------------------------------------------------------ + CALL hadvance (1) + CALL acctimes ('HADVANCE') + +!------------------------------------------------------------------------------ +! Buoyancy term for w equation +!------------------------------------------------------------------------------ + CALL buoyancy () + CALL acctimes ('BUOYANCY') + +!------------------------------------------------------------------------------ +! Acoustic small timesteps +!------------------------------------------------------------------------------ + CALL acoustic () + CALL acctimes ('ACOUSTIC') + +!------------------------------------------------------------------------------ +! Last stage of Asselin filter +!------------------------------------------------------------------------------ + CALL hadvance (2) + CALL acctimes ('HADVANCE') + +!------------------------------------------------------------------------------ +! Velocity/pressure boundary conditions +!------------------------------------------------------------------------------ + CALL vpsets () + CALL acctimes ('VPSETS') + +callmassflux=0 !flag for output BC mass flux: (0=off, 1==on) +massfluxfreq=300. !frequency of BC mass flux (seconds) +if(callmassflux==1) & + CALL mass_flux_bc (mzp,mxp,myp & + ,basic_g(ngrid)%up(1,1,1),basic_g(ngrid)%vp(1,1,1) & + ,basic_g(ngrid)%dn0(1,1,1) & + ,basic_g(ngrid)%pp(1,1,1),basic_g(ngrid)%pi0(1,1,1) & + ,grid_g(ngrid)%rtgu(1,1) ,grid_g(ngrid)%rtgv(1,1) & + ,grid_g(ngrid)%dyu(1,1) ,grid_g(ngrid)%dyv(1,1)) + +return +END SUBROUTINE timestep + +!############################################################################## +Subroutine acctimes (string) + +use mem_all +use node_mod + +implicit none + +real, external :: valugp +integer :: ip,jp,kp,bp,patch +integer :: i, j, k +character(len=*) :: string + +!Could call checkmicro here to narrow nans to a certain routine +if(icheckmic == 2) then + CALL checkmicro (string) +endif + +if(ngrid==1000 .and. string.eq.'VPSETS') then +do kp=29,13,-1 +do jp=101,101 +do ip=52,52 + i = ip - mi0(ngrid) + j = jp - mj0(ngrid) + k = kp + if ((i.ge.1) .and. (i.le.mmxp(ngrid)) .and. & + (j.ge.1) .and. (j.le.mmyp(ngrid))) then + !if(micro_g(ngrid)%cccnp(kp,ip,jp)>631.0) & + print'(a,3i5,2e17.9)','Steve',k,j,i,micro_g(ngrid)%rcp(k,i,j) + endif +enddo +enddo +enddo +endif + +! only here for debugging purposes +kp=21 +ip=54 +jp=101 +bp=1 + +101 format ('DEBUG: NODE',i0,': LOC(',i0,',',i0,',',i0,') --> (' & + ,i0,',',i0,',',i0,') ',a10,': ',a10,f9.1,100e20.10) + +if(ngrid==2000)then +do i=ia,iz +do j=ja,jz + k=kp + patch=2 + if(string .eq. 'MICRO')then + print 101, my_rams_num, kp, ip, jp, k, i, j, 'NUCCLD', string, time & + ,micro_g(ngrid)%nuccldrt(k,i,j) + !print 101, my_rams_num, kp, ip, jp, k, i, j, 'FFCD', string, time & + ! ,micro_g(ngrid)%ffcd(k,i,j,bp) + endif +enddo +enddo +endif + +if(ngrid==1000) then +do k=29,13,-1 + i = ip - mi0(ngrid) + j = jp - mj0(ngrid) + !k = kp + patch = 2 + if ((i.ge.1) .and. (i.le.mmxp(ngrid)) .and. & + (j.ge.1) .and. (j.le.mmyp(ngrid))) then + if(k==29)print*,string,time +! print 101, my_rams_num, kp, ip, jp, k, i, j, 'THETA', string, time & +! ,basic_g(ngrid)%theta(k,i,j) +! print 101, my_rams_num, kp, ip, jp, k, i, j, 'THP', string, time & +! ,basic_g(ngrid)%thp(k,i,j) +! print 101, my_rams_num, kp, ip, jp, k, i, j, 'NUCCLD', string, time & +! ,micro_g(ngrid)%nuccldrt(k,i,j) +! print 101, my_rams_num, kp, ip, jp, k, i, j, 'RTP', string, time & +! ,basic_g(ngrid)%rtp(k,i,j) +! print 101, my_rams_num, kp, ip, jp, k, i, j, 'RV', string, time & +! ,basic_g(ngrid)%rv(k,i,j) + + !print 101, my_rams_num, kp, ip, jp, k, i, j, 'RCP', string, time & + ! ,micro_g(ngrid)%rcp(k,i,j) + print*,k,zt(k),micro_g(ngrid)%rcp(k,i,j),basic_g(ngrid)%rtp(k,i,j) + +! print 101, my_rams_num, kp, ip, jp, k, i, j, 'rct', string, time & +! ,valugp(mzp,mxp,myp,kp,ip,jp,tend%rct(1)) +! print 101, my_rams_num, kp, ip, jp, k, i, j, 'RV', string, time & +! ,basic_g(ngrid)%rv(k,i,j) +! print 101, my_rams_num, kp, ip, jp, k, i, j, 'THT', string, time & +! ,valugp(mzp,mxp,myp,kp,ip,jp,tend%tht(1)) +! print 101, my_rams_num, kp, ip, jp, k, i, j, 'THETA', string, time & +! ,basic_g(ngrid)%theta(k,i,j) +! print 101, my_rams_num, kp, ip, jp, k, i, j, 'flx_nsw', string, time & +! ,kpp_3d_fields(ngrid)%flx_nsw(i,j) +! print 101, my_rams_num, kp, ip, jp, k, i, j, 'khmx', string, time & +! ,kpp_3d_fields(ngrid)%hmix(i,j) +! print 101, my_rams_num, kp, ip, jp, k, i, j, 'cccnt', string, time & +! ,valugp(mzp,mxp,myp,kp,ip,jp,tend%cccnt(1)) +! print 101, my_rams_num, kp, ip, jp, k, i, j, 'frtrd', string, time & +! ,radiate_g(ngrid)%fthrd(k,i,j) +! print 101, my_rams_num, kp, ip, jp, k, i, j, 'frtrdp', string, time & +! ,radiate_g(ngrid)%fthrdp(k,i,j) +! print 101, my_rams_num, kp, ip, jp, k, i, j, 'swdn', string, time & +! ,radiate_g(ngrid)%swdn(k,i,j) +! print 101, my_rams_num, kp, ip, jp, k, i, j, 'cifnt', string, time & +! ,valugp(mzp,mxp,myp,kp,ip,jp,tend%cifnt(1)) +! print 101, my_rams_num, kp, ip, jp, k, i, j, 'WT', string, time & +! ,valugp(mzp,mxp,myp,kp,ip,jp,tend%wt(1)) +! print 101, my_rams_num, kp, ip, jp, k, i, j, 'PATCH_AREA', string, time & +! ,leaf_g(ngrid)%patch_area(i,j,patch) + endif +enddo +endif + + ! , basic_g(ngrid)%up(1:mzp,ip,jp) + ! , basic_g(ngrid)%pp(1:mzp,ip,jp) + ! , micro_g(ngrid)%inuchazrt(kp,ip,jp) & + ! , micro_g(ngrid)%inucifnrt(kp,ip,jp) & + ! , radiate_g(ngrid)%rshort(ip,jp) & + ! , radiate_g(ngrid)%rlongup(ip,jp) & + ! , basic_g(ngrid)%wp_buoy_theta(kp,ip,jp) & + ! , basic_g(ngrid)%wp_buoy_cond(kp,ip,jp) & + ! , basic_g(ngrid)%wp(kp,ip,jp) & + ! , micro_g(ngrid)%rcp(kp,ip,jp) & + ! , valugp(mzp,mxp,myp,kp,ip,jp,tend%rct(1)) & + ! , micro_g(ngrid)%ccp(kp,ip,jp) & + ! , valugp(mzp,mxp,myp,kp,ip,jp,tend%cct(1)) & + ! , valugp(mzp,mxp,myp,kp,ip,jp,tend%ut(1)) & + ! , basic_g(ngrid)%vp(kp,ip,jp) & + ! , valugp(mzp,mxp,myp,kp,ip,jp,tend%vt(1)) & + ! , basic_g(ngrid)%thp(kp,ip,jp) & + ! , valugp(mzp,mxp,myp,kp,ip,jp,tend%vt(1)) & + ! , basic_g(ngrid)%wp(kp,ip,jp) & + ! , valugp(mzp,mxp,myp,kp,ip,jp,tend%wt(1)) & + ! , basic_g(ngrid)%pi0(kp,ip,jp) & + ! , basicm_g(ngrid)%pi0(kp,ip,jp) + +return +END SUBROUTINE acctimes + +!############################################################################## +Subroutine output_points () + +use mem_all +use node_mod + +implicit none + +real :: a,b,c +integer :: k,i,j,ii,jj + +do i=1,mxp + do j=1,myp + do k=1,mzp + ii = i+mi0(ngrid) + jj = j+mj0(ngrid) + a=basic_g(ngrid)%wp(k,ii,jj) + b=micro_g(ngrid)%rcp(k,ii,jj) + if(k==50.and.ii==200.and.jj==1) print*,'output',ngrid,k,ii,jj,a,b + enddo + enddo +enddo + +return +END SUBROUTINE output_points + +!############################################################################## +Subroutine mass_flux_bc (m1,m2,m3,up,vp,dn0,pp,pi0,rtgu,rtgv,dyu,dxv) + +use mem_grid +use mem_basic +use rconstants +use node_mod + +implicit none + +integer :: m1,m2,m3,i,j,k +real,dimension(m1,m2,m3) :: up,vp,dn0,pp,pi0 +real,dimension(m2,m3) :: rtgu,rtgv,dyu,dxv +real :: wmass,emass,smass,nmass,prtot,tmass,ppp,area +real, save :: aintmass=0. + +if(mod(time,300.).gt.0.1) return + +if(nmachs .gt. 1)then + print*,'Cannot compute boundary condition mass flux in parallel.' + stop 'See TIMESTEP and MASS_FLUX_BC in rtimh.f90' +endif + +wmass=0. +emass=0. +smass=0. +nmass=0. +prtot=0. +area=0. +!************************************************************ +if(jdim==1) then !for 3D simulations +! west/east bound +do j=2,nyp-1 + do k=2,nzp-1 + i=1 + wmass=wmass + & + up(k,i,j)*rtgu(i,j)/(dyu(i,j)*dzt(k)) & + *(dn0(k,i,j)+dn0(k,i+1,j))*.5 + i=nxp-1 + emass=emass - & + up(k,i,j)*rtgu(i,j)/(dyu(i,j)*dzt(k)) & + *(dn0(k,i,j)+dn0(k,i+1,j))*.5 + enddo +enddo +! north/south bound +do i=2,nxp-1 + do k=2,nzp-1 + j=1 + smass=smass + & + vp(k,i,j)*rtgv(i,j)/(dxv(i,j)*dzt(k)) & + *(dn0(k,i,j)+dn0(k,i,j+1))*.5 + j=nyp-1 + nmass=nmass - & + vp(k,i,j)*rtgv(i,j)/(dxv(i,j)*dzt(k)) & + *(dn0(k,i,j)+dn0(k,i,j+1))*.5 + enddo +enddo +k=2 +do j=2,nyp-1 + do i=2,nxp-1 + ppp= ( (pp(k,i,j)+pi0(k,i,j))/cp )**cpor*p00 + prtot=prtot+ppp/(dyu(i,j)*dxv(i,j)) + enddo +enddo +area=(nxp-2)*deltax*(nyp-2)*deltax +endif + +!************************************************************ +if(jdim==0) then !for 2D simulations +! west/east bound +do j=1,1 + do k=2,nzp-1 + i=1 + wmass=wmass + & + up(k,i,j)*rtgu(i,j)/(dyu(i,j)*dzt(k)) & + *(dn0(k,i,j)+dn0(k,i+1,j))*.5 + i=nxp-1 + emass=emass - & + up(k,i,j)*rtgu(i,j)/(dyu(i,j)*dzt(k)) & + *(dn0(k,i,j)+dn0(k,i+1,j))*.5 + enddo +enddo +k=2 +do j=1,1 + do i=2,nxp-1 + ppp= ( (pp(k,i,j)+pi0(k,i,j))/cp )**cpor*p00 + prtot=prtot+ppp/dyu(i,j) + enddo +enddo +area=(nxp-2)*deltax +endif + +tmass=wmass+emass+smass+nmass +aintmass=aintmass+tmass*dtlong +print*,'===============================' +print*,' Mass flux - W, E, S, N' +print*, wmass,emass,smass,nmass +print*, 'total (kg/(m2 s)): ',tmass/area +print*, 'total (kg/m2): ',aintmass/area +print*, 'total pr change (pa):',aintmass/area*9.8 +print*, 'computed mean press: ',prtot/area +print*,'===============================' + +return +END SUBROUTINE mass_flux_bc + +!***************************************************************************** +! print_debug_grid_cell() +! +! This routine will write a message along with the data in the specified grid +! cell. Subdomain locations are considered in this routine, so the specified +! grid location should be given relative to the entire domain. +! +Subroutine print_debug_grid_cell (nz,nx,ny,var,kloc,iloc,jloc,ngr,msg,vname) + use node_mod + + implicit none + + integer :: nz, nx, ny, kloc, iloc, jloc, ngr + real, dimension(nz,nx,ny) :: var + character (len=*) :: msg, vname + + integer :: i, j, k + + i = iloc - mi0(ngr) + j = jloc - mj0(ngr) + k = kloc + + ! print the message if this subdomain contains the grid location + if ((i .ge. 1) .and. (i .le. mmxp(ngr)) .and. (j .ge. 1) & + .and. (j .le. mmyp(ngr))) then + print'(a,i0,5a,4i10,e20.10)', 'DEBUG: NODE', my_rams_num, ': ' & + ,trim(msg),'ngr,k,i,j, ',trim(vname), ': ',ngr,k,i,j,var(k,i,j) + endif + + return +END SUBROUTINE print_debug_grid_cell diff --git a/src/6.2.16/core/rtimi.f90 b/src/6.2.16/core/rtimi.f90 new file mode 100644 index 0000000..116bb7f --- /dev/null +++ b/src/6.2.16/core/rtimi.f90 @@ -0,0 +1,170 @@ +!############################################################################## +Subroutine tend0 () + +use mem_grid +use mem_tend +use var_tables +use node_mod +use micphys + +implicit none + +integer :: n + +! This routine simply sets all tendency arrays to zero. + +! First u,v tendencies + +CALL azero (mxyzp,tend%ut(1)) +CALL azero (mxyzp,tend%vt(1)) +CALL azero (mxyzp,tend%wt(1)) +CALL azero (mxyzp,tend%pt(1)) + +! Now sclrr tendencies + +do n = 1,num_scalar(ngrid) + CALL azero (mxyzp,scalar_tab(n,ngrid)%var_t) +enddo + +!****************************************************************************** +!Add tendency forcings here for current timestep + +!Convergence forcing +if(iprntstmt>=1 .and. print_msg) & + print*,'Ngrid, Time, Domain Max W: ',ngrid,time,vertvel_max(ngrid) +if(ICONV > 0 .and. ICONGR == ngrid) & + CALL conv_forcing (tend%ut(1),tend%vt(1)) + +return +END SUBROUTINE tend0 + +!############################################################################## +Subroutine hadvance (iac) + +use mem_grid +use mem_tend +use mem_basic +use mem_scratch +use node_mod + +implicit none + +integer :: iac + +! It is here that the Asselin filter is applied. For the velocities +! and pressure, this must be done in two stages, the first when +! IAC=1 and the second when IAC=2. + +eps = .2 + +! For both IAC=1 and IAC=2, call PREDICT for U, V, W, and P. + +CALL predict (mxyzp,basic_g(ngrid)%uc(1,1,1) & + ,basic_g(ngrid)%up(1,1,1),tend%ut(1),scratch%vt3da(1),iac,dtlv) + +if (icorflg .eq. 1 .or. jdim .eq. 1) then + CALL predict (mxyzp,basic_g(ngrid)%vc(1,1,1) & + ,basic_g(ngrid)%vp(1,1,1),tend%vt(1),scratch%vt3da(1),iac,dtlv) +endif + +CALL predict (mxyzp,basic_g(ngrid)%wc(1,1,1),basic_g(ngrid)%wp(1,1,1) & + ,tend%wt(1),scratch%vt3da(1),iac,dtlv) +CALL predict (mxyzp,basic_g(ngrid)%pc(1,1,1),basic_g(ngrid)%pp(1,1,1) & + ,tend%pt(1),scratch%vt3da(1),iac,dtlv) + +return +END SUBROUTINE hadvance + +!############################################################################## +Subroutine predict (npts,ac,ap,fa,af,iac,dtlp) + +use mem_grid +use node_mod + +implicit none + +integer :: npts,iac,m +real :: epsu,dtlp +real, dimension(*) :: ac,ap,fa,af + +! This routine moves the arrays AC and AP forward by +! 1 time level by adding in the prescribed tendency. It also +! applies the Asselin filter given by: + +! {AC} = AC + EPS * (AP - 2 * AC + AF) + +! where AP,AC,AF are the past, current and future time levels of A. +! All IAC=1 does is to perform the {AC} calculation without the AF +! term present. IAC=2 completes the calculation of {AC} by adding +! the AF term only, and advances AC by filling it with input AP +! values which were already updated in ACOUSTC. +! +epsu = eps +if (ngbegun(ngrid) .eq. 0) epsu = 0.5 + +if (iac .eq. 1) then + do m = 1,npts + ac(m) = ac(m) + epsu * (ap(m) - 2. * ac(m)) + enddo + return +elseif (iac .eq. 2) then + do m = 1,npts + af(m) = ap(m) + ap(m) = ac(m) + epsu * af(m) + enddo +endif + +do m = 1,npts + ac(m) = af(m) +enddo + +return +END SUBROUTINE predict + +!############################################################################## +Subroutine predtr () + +use mem_grid +use var_tables +use node_mod + +implicit none + +integer :: n + +! - Step thermodynamic variables from t to t+1. +! - Set top, lateral and bottom boundary conditions on some variables +! if needed. +! - call adjustment to assure all positive definite quantities +! remain positive. +! - Rediagnose some thermodynamic quantities for use on the small +! timestep. + +! Update the scalars and apply lateral, top, and bottom boundary +! conditions. + +do n = 1,num_scalar(ngrid) + CALL update (mxyzp,scalar_tab(n,ngrid)%var_p & + ,scalar_tab(n,ngrid)%var_t, dtlt) +enddo + +return +END SUBROUTINE predtr + +!############################################################################## +Subroutine predthp () + +use mem_grid, only:ngrid,dtlt +use node_mod, only:mxyzp +use mem_basic +use mem_radiate + +implicit none + + +! Step thermodynamic variable from t to t+1 with radiative tendendcy +if(ilwrtyp+iswrtyp > 0) & + CALL update (mxyzp,basic_g(ngrid)%thp,radiate_g(ngrid)%fthrdp,dtlt) + +return +END SUBROUTINE predthp diff --git a/src/6.2.16/cuparm/conv_coms.f90 b/src/6.2.16/cuparm/conv_coms.f90 new file mode 100644 index 0000000..03124da --- /dev/null +++ b/src/6.2.16/cuparm/conv_coms.f90 @@ -0,0 +1,21 @@ +!############################################################################## +Module conv_coms + +implicit none + +integer, parameter :: nkp=100 + +integer :: kcon,klcl,klfc,ketl,kct,igo,kmt & + ,icprtfl,icpltfl + +real :: zmid,cdzmin,dzlow,dzhigh,plcl,tlcl,dzlcl,zlcl,garea & + ,wconmin,contim,preff,envshr,supply,cptime,cprecip + +real, dimension(nkp) :: ucon,vcon,wcon,thtcon ,rvcon,prcon,picon,tmpcon & + ,dncon,zcon,zzcon & + ,upe,vpe,wpe,ze,te,the,pe,rte,pke,rhoe,thve,zc & + ,rve,thee,qvct1,qvct2,qvct3,qvct4 & + ,vheat,vmois,vmdry,frcon,ftcon,tcon,rcon & + ,theu,rsu,thu,tu,thd,wtd,thcon,rtcon + +END MODULE conv_coms diff --git a/src/6.2.16/cuparm/kf_cuparm.f90 b/src/6.2.16/cuparm/kf_cuparm.f90 new file mode 100644 index 0000000..3189b76 --- /dev/null +++ b/src/6.2.16/cuparm/kf_cuparm.f90 @@ -0,0 +1,2555 @@ +!############################################################################## +! KAIN-FRITSCH CUMULUS PARAMETERIZATION SCHEME +! Updated July 2002 +! +! This is the actual 1-D version of the Kain-Fritsch CPS code +! used in the ETA model at the National Severe Storms Laboratory. +! +! NOTES/MODIFICATIONS for RAMS 4.3.0: +! +! The modifications to the convective trigger func formulation +! by Christopher Castro are noted by "CLC RAMS trigger" +! +! Modifications by Adriana Beltran (abb) are necessary +! to execute this code in parallel (tested on a linux cluster). Do not +! remove them!! + +Module cu_kfeta + +implicit none + +save + +!-------------------------------------------------------------------- +! Lookup table variables: + INTEGER, PARAMETER :: KFNT=250,KFNP=220 + REAL, DIMENSION(1:KFNT,1:KFNP) :: TTAB,QSTAB + REAL, DIMENSION(1:KFNP) :: THE0K + REAL, DIMENSION(1:200) :: ALU + REAL :: RDPR,RDTHK,PLUTOP + + +! Note: KF Lookup table is used by routines kf_eta_para, TPMIX2, +! TPMIX2DD, ENVIRTHT +! End of Lookup table variables: + +CONTAINS + +!############################################################################## +Subroutine kf_eta_para (I,J,U0,V0,T0,QV0,P0,DZQ,W0AVG1D,W0AVG1DLT & + ,TKE,TOPO,DT,DX,DXSQ,IMPHYS,ICLOUD,IRAIN,IPRIS,ISNOW,IDIFFK & + ,XLV0,XLV1,XLS0,XLS1,CP,R,G,DQDT,DQIDT,DQCDT,DQRDT,DQSDT & + ,DTDT,RAINCV,NCA,NTST & + ,ims,ime,jms,jme,kts,kte,dp) + +implicit none + + INTEGER, INTENT(IN ) :: ims,ime, jms,jme, & + kts,kte, & + I,J,IMPHYS,ICLOUD,IRAIN,IPRIS, & + ISNOW,IDIFFK,NTST + + REAL, DIMENSION( kts:kte ), & + INTENT(IN ) :: U0, & + V0, & + T0, & + QV0, & + P0, & + DZQ, & + W0AVG1D, & + W0AVG1DLT + REAL, INTENT(IN ) :: DT,DX,DXSQ,TOPO + + REAL, INTENT(IN ) :: XLV0,XLV1,XLS0,XLS1,CP,R,G + REAL, DIMENSION( kts:kte ), INTENT(INOUT) :: & + DQDT, & + DQIDT, & + DQCDT, & + DQRDT, & + DQSDT, & + DTDT + + INTEGER, DIMENSION( ims:ime , jms:jme ), & + INTENT(INOUT) :: NCA + + REAL, DIMENSION( ims:ime , jms:jme ), & + INTENT(INOUT) :: RAINCV + +!...DEFINE LOCAL VARIABLES... + + REAL, DIMENSION( kts:kte ) :: & + Q0,Z0,TV0,TU,TVU,QU,TZ,TVD, & + QD,QES,TG,TVG,QG,WU,WD,EMS,EMSD, & + UMF,UER,UDR,DMF,DER,DDR,UMF2,UER2, & + UDR2,DMF2,DER2,DDR2,DZA,THTA0,THETEE, & + THTAU,THETEU,THTAD,THETED,QLIQ,QICE, & + QLQOUT,QICOUT,PPTLIQ,PPTICE,DETLQ,DETIC, & + DETLQ2,DETIC2,RATIO2 + + + REAL, DIMENSION( kts:kte ) :: & + DOMGDP,EXN,RHOE,TVQU,DP,RH,EQFRC,WSPD, & + QDT,FXM,THTAG,THPA,THFXOUT, & + THFXIN,QPA,QFXOUT,QFXIN,QLPA,QLFXIN, & + QLFXOUT,QIPA,QIFXIN,QIFXOUT,QRPA, & + QRFXIN,QRFXOUT,QSPA,QSFXIN,QSFXOUT, & + QL0,QLG,QI0,QIG,QR0,QRG,QS0,QSG + + + REAL, DIMENSION( kts:kte+1 ) :: OMG + REAL, DIMENSION( kts:kte ) :: RAINFB,SNOWFB + REAL, DIMENSION( kts:kte ) :: & + CLDHGT,QSD,DILFRC,DDILFRC,TKE,TGU,QGU,THTEEG + +! LOCAL VARS + + REAL :: P00,T00,RLF,RHIC,RHBC,PIE, & + TTFRZ,TBFRZ,C5,RATE + REAL :: GDRY,ROCP,ALIQ,BLIQ,CLIQ,DLIQ + REAL :: FBFRC,P300,DPTHMX,QMIX,ZMIX,PMIX, & + TMIX,EMIX,TLOG,TDPT,TLCL,TVLCL, & + PLCL,ES,DLP,TENV,QENV,TVEN, & + ZLCL,WKL,WKLORIG,WKLTOPO,WKLELEV, & + TOPOCOEF,ELEVCOEF, & + WABS,TRPPT,DTLCL,GDT,WLCL,WLCLMIN, WLCLELEV, & + DWLCLELEV,PRESTHRS,PRESTHRS2,DPRESTHRS, SLOPETHRS, & + TVAVG,WTW,RHOLCL,AU0,VMFLCL,UPOLD, & + UPNEW,ABE,WKLCL,TTEMP,FRC1, & + QNEWIC,RL,BE,BOTERM,ENTERM,& + DZZ,REI,EE2,UD2,TTMP,F1,F2, & + THTTMP,QTMP,TMPLIQ,TMPICE,TU95,TU10,EE1, & + UD1,DPTT,QNEWLQ,DUMFDP, & + VCONV,TIMEC,SHSIGN,VWS,PEF, & + CBH,RCBH,PEFCBH,PEFF,PEFF2,TDER, & + TADVEC,DPDD,DPT,RDD,A1, & + DSSDT,DTMP,T1RH,QSRH,PPTFLX,CPR, & + AINCM2, & + DDINC,AINCMX,AINCM1, & + AINC,TDER2,PPTFL2,FABE,STAB,DTT,DTT1, & + DTIME,TMA,TMB,TMM,BCOEFF,ACOEFF,QVDIFF, & + TOPOMG,CPM,DQ,ABEG,DABE,DFDA,FRC2,DR, & + UDFRC,TUC,QGS,RH0,RHG,QINIT,QINIT1,QINIT2,QFNL,QFNL2,QFNL1,ERR2, & + RLC,RLS,RNC,FABEOLD,AINCOLD,UEFRC, & + DDFRC,TDC,DEFRC,RHBAR,DMFFRC,DPMIN,DILBE + REAL :: ASTRT,TP,VALUE,AINTRP,TKEMAX,QFRZ,& + QSS,PPTMLT,DTMELT,RHH,EVAC,BINC + + INTEGER :: INDLU,NU,NUCHM,NNN,KLFS + REAL :: CHMIN,PM15,CHMAX,DTRH,RAD,DPPP + REAL :: U00,QSLCL,RHLCL,DQSSDT + + INTEGER :: KX,K,KL,nkj,ij + + integer abb2(50) + real abb + + INTEGER :: NCHECK + INTEGER, DIMENSION (kts:kte) :: KCHECK + + INTEGER :: ISTOP,ML,L5,KMIX,LOW, & + LC,LLFC,NLAYRS,NK, & + KPBL,KLCL,LCL,LET,IFLAG, & + NK1,LTOP,NJ,LTOP1, & + LTOPM1,KSTART,LFS, & + ND,NIC,LDB,LDT,ND1,NDK, & + LMAX,NCOUNT,NOITR, & + NSTEP,NTC,NCHM,ISHALL + LOGICAL :: IPRNT=.FALSE. + REAL , PARAMETER :: SVP1=0.6112 + REAL , PARAMETER :: SVP2=17.67 + REAL , PARAMETER :: SVP3=29.65 + REAL , PARAMETER :: SVPT0=273.15 +! + DATA P00,T00/1.E5,273.15/ + DATA RLF/3.339E5/ + DATA RHIC,RHBC/1.,0.90/ + DATA PIE,TTFRZ,TBFRZ,C5/3.141592654,268.16,248.16,1.0723E-3/ + DATA RATE/0.03/ +!----------------------------------------------------------- + GDRY=-G/CP + ROCP=R/CP + KL=kte + KX=kte +! +! ALIQ = 613.3 +! BLIQ = 17.502 +! CLIQ = 4780.8 +! DLIQ = 32.19 + + ALIQ = SVP1*1000. + BLIQ = SVP2 + CLIQ = SVP2*SVPT0 + DLIQ = SVP3 + +! Prevent uninitialized variables by setting to null value + LDB=0 + L5=0 + KLFS=0 + wklorig=0. + wkltopo=0. + wkl=0. + dtlcl=0. + chmin=0. + aincm1=0. + fabeold=0. + aincold=0. + +!**************************************************************************** +! ! PPT FB MODS +!...OPTION TO FEED CONVECTIVELY GENERATED RAINWATER ! PPT FB MODS +!...INTO GRID-RESOLVED RAINWATER (OR SNOW/GRAUPEL) ! PPT FB MODS +!...FIELD. 'FBFRC' IS THE FRACTION OF AVAILABLE ! PPT FB MODS +!...PRECIPITATION TO BE FED BACK (0.0 - 1.0)... ! PPT FB MODS +! print *,'Inside KFPARA...' + +! abb modification: + abb=0 + + do ij=1,50 + abb2(ij)=0. + end do + + FBFRC=0.0 ! PPT FB MODS +!...mods to allow shallow convection... + NCHM = 0 + ISHALL = 0 + DPMIN = 5.E3 +!... + P300=P0(1)-30000. + +!...INPUT A VERTICAL SOUNDING ... NOTE THAT MODEL LAYERS ARE NUMBERED +!...FROM BOTTOM-UP IN THE KF SCHEME... +! + ML=0 + LLFC=0 +!SUE tmprpsb=1./PSB(I,J) +!SUE CELL=PTOP*tmprpsb + + DO K=1,KX +! +!...IF Q0 IS ABOVE SATURATION VALUE, REDUCE IT TO SATURATION LEVEL... +! + ES=ALIQ*EXP((BLIQ*T0(K)-CLIQ)/(T0(K)-DLIQ)) + QES(K)=0.622*ES/(P0(K)-ES) + Q0(K)=AMIN1(QES(K),QV0(K)) + Q0(K)=AMAX1(0.000001,Q0(K)) + QL0(K)=0. + QI0(K)=0. + QR0(K)=0. + QS0(K)=0. + RH(K) = Q0(K)/QES(K) + DILFRC(K) = 1. + TV0(K)=T0(K)*(1.+0.608*Q0(K)) + RHOE(K)=P0(K)/(R*TV0(K)) + +! IF Turbulent Kinetic Energy (TKE) is available from turbulent mixing scheme +! use it for shallow convection...For now, assume it is not available.... +! TKE(K) = Q2(I,J,NK) + IF(IDIFFK.ne.1) THEN + TKE(K) = 0. + ENDIF + CLDHGT(K) = 0. + IF(P0(K).GE.500E2)L5=K + IF(P0(K).GE.P300)LLFC=K + IF(T0(K).GT.T00)ML=K + ENDDO +! +!...DZQ IS DZ BETWEEN SIGMA SURFACES, DZA IS DZ BETWEEN MODEL HALF LEVEL + Z0(1)=.5*DZQ(1) + + DO K=2,KL + Z0(K)=Z0(K-1)+.5*(DZQ(K)+DZQ(K-1)) + DZA(K-1)=Z0(K)-Z0(K-1) + ENDDO + + DZA(KL)=0. +! +! +! To save time, specify a pressure interval to move up in sequential +! check of different ~50 mb deep groups of adjacent model layers in +! the process of identifying updraft source layer (USL). Note that +! this search is terminated as soon as a buoyant parcel is found and +! this parcel can produce a cloud greater than specifed minimum depth +! (CHMIN)...For now, set interval at 15 mb... +! + NCHECK = 1 + KCHECK(NCHECK)=1 + PM15 = P0(1)-15.E2 + DO K=2,LLFC + IF(P0(K).LT.PM15)THEN + NCHECK = NCHECK+1 + KCHECK(NCHECK) = K + PM15 = PM15-15.E2 + ENDIF + ENDDO +! + NU=0 + NUCHM=0 +usl: DO + NU = NU+1 + IF(NU.GT.NCHECK)THEN + IF(ISHALL.EQ.1)THEN + CHMAX = 0. + NCHM = 0 + DO NK = 1,NCHECK + NNN=KCHECK(NK) + IF(CLDHGT(NNN).GT.CHMAX)THEN + NCHM = NNN + NUCHM = NK + CHMAX = CLDHGT(NNN) + ENDIF + ENDDO + NU = NUCHM-1 + FBFRC=1. + CYCLE usl + ELSE + RETURN + ENDIF + ENDIF + KMIX = KCHECK(NU) + LOW=KMIX +!... + LC = LOW +! +!...ASSUME THAT IN ORDER TO SUPPORT A DEEP UPDRAFT YOU NEED A LAYER OF +!...UNSTABLE AIR AT LEAST 50 mb DEEP...TO APPROXIMATE THIS, ISOLATE A +!...GROUP OF ADJACENT INDIVIDUAL MODEL LAYERS, WITH THE BASE AT LEVEL +!...LC, SUCH THAT THE COMBINED DEPTH OF THESE LAYERS IS AT LEAST 50 mb.. +! + NLAYRS=0 + DPTHMX=0. + NK=LC-1 + DO + NK=NK+1 + DPTHMX=DPTHMX+DP(NK) + NLAYRS=NLAYRS+1 + IF(DPTHMX.GT.DPMIN)THEN + EXIT + ENDIF + END DO + IF(DPTHMX.LT.DPMIN)THEN + RETURN + ENDIF + KPBL=LC+NLAYRS-1 +! +!...******************************************************** +!...for computational simplicity without much loss in accuracy, +!...mix temperature instead of theta for evaluating convective +!...initiation (triggering) potential... +! THMIX=0. + TMIX=0. + QMIX=0. + ZMIX=0. + PMIX=0. + +! +!...FIND THE THERMODYNAMIC CHARACTERISTICS OF THE LAYER BY +!...MASS-WEIGHTING THE CHARACTERISTICS OF THE INDIVIDUAL MODEL +!...LAYERS... +! + DO NK=LC,KPBL + TMIX=TMIX+DP(NK)*T0(NK) + QMIX=QMIX+DP(NK)*Q0(NK) + ZMIX=ZMIX+DP(NK)*Z0(NK) + PMIX=PMIX+DP(NK)*P0(NK) + ENDDO +! THMIX=THMIX/DPTHMX + TMIX=TMIX/DPTHMX + QMIX=QMIX/DPTHMX + ZMIX=ZMIX/DPTHMX + PMIX=PMIX/DPTHMX + EMIX=QMIX*PMIX/(0.622+QMIX) + +! +!...FIND THE TEMPERATURE OF THE MIXTURE AT ITS LCL... +! +! TLOG=ALOG(EMIX/ALIQ) +! ...calculate dewpoint using lookup table... +! + astrt=1.e-3 + ainc=0.075 + a1=emix/aliq + tp=(a1-astrt)/ainc + indlu=int(tp)+1 + value=(indlu-1)*ainc+astrt + aintrp=(a1-value)/ainc + tlog=aintrp*alu(indlu+1)+(1-aintrp)*alu(indlu) + TDPT=(CLIQ-DLIQ*TLOG)/(BLIQ-TLOG) + TLCL=TDPT-(.212+1.571E-3*(TDPT-T00)-4.36E-4*(TMIX-T00))*(TMIX-TDPT) + TLCL=AMIN1(TLCL,TMIX) + TVLCL=TLCL*(1.+0.608*QMIX) +! TVQU(K) = TVLCL + ZLCL = ZMIX+(TLCL-TMIX)/GDRY + NK = LC-1 + DO + NK = NK+1 + KLCL=NK + IF(ZLCL.LE.Z0(NK) .or. NK.GT.KL)THEN + EXIT + ENDIF + ENDDO + IF(NK.GT.KL)THEN + RETURN + ENDIF + K=KLCL-1 + DLP=(ZLCL-Z0(K))/(Z0(KLCL)-Z0(K)) +! +!...ESTIMATE ENVIRONMENTAL TEMPERATURE AND MIXING RATIO AT THE LCL... +! + TENV=T0(K)+(T0(KLCL)-T0(K))*DLP + QENV=Q0(K)+(Q0(KLCL)-Q0(K))*DLP + TVEN=TENV*(1.+0.608*QENV) +! +! CONVECTIVE TRIGGER: ORIGINAL DESCRIPTION +! +!...CHECK TO SEE IF CLOUD IS BUOYANT USING FRITSCH-CHAPPELL TRIGGER +!...FUNC DESCRIBED IN KAIN AND FRITSCH (1992)...W0 IS AN +!...APROXIMATE VALUE FOR THE RUNNING-MEAN GRID-SCALE VERTICAL +!...VELOCITY, WHICH GIVES SMOOTHER FIELDS OF CONVECTIVE INITIATION +!...THAN THE INSTANTANEOUS VALUE...FORMULA RELATING TEMPERATURE +!...PERTURBATION TO VERTICAL VELOCITY HAS BEEN USED WITH THE MOST +!...SUCCESS AT GRID LENGTHS NEAR 25 km. FOR DIFFERENT GRID-LENGTHS, +!...ADJUST VERTICAL VELOCITY TO EQUIVALENT VALUE FOR 25 KM GRID +!...LENGTH, ASSUMING LINEAR DEPENDENCE OF W ON GRID LENGTH... +! +! CLC RAMS TRIGGER MODIFICATIONS +! +! THE ORIGINAL FORMULATION FOR PARAMETER WKL IS NOTED AS WKLORIG. +! WKLTOPO TAKES INTO ACCOUNT THE HORIZONTAL COMPONENTS OF THE +! CONTRAVARIANT VERTICAL VELOCITY ONLY IF THEY (mathematically) +! DECREASE THE VALUE OF WKLORIG. ANY TERRAIN CONTRIBUTION WHICH +! WOULD INCREASE THE VALUE OF WKL IS NEGLECTED. WKL CAN BE NEGATIVE +! IF THE ABSOLUTE VALUE OF WKLTOPO EXCEEDS WKLORIG. +! +! RAMS USERS CAN ADJUST THE PARAMETER TOPOCOEF, AS IT WAS ORIGINALLY +! TUNED FOR A JULY 2001 NORTH AMERICAN MONSOON SIMULATION AT 33 KM +! GRID SPACING. TOPOCOEF IMPLICITY ACCOUNTS FOR GRID SPACING SCALING +! (e.g. ratio DX/25.0 instead of DX/25.E3) + + TOPOCOEF=98000 + ELEVCOEF=0.0 + + IF(ZLCL.LT.2.E3)THEN + WKLCL=(0.02*ZLCL/2.E3) + ELSE + WKLCL=0.02 + ENDIF + + + + if(w0avg1dlt(k).le.0.0.and.w0avg1dlt(KLCL).le.0.0) then + WKLORIG=(W0AVG1D(K)+(W0AVG1D(KLCL)-W0AVG1D(K))*DLP)*DX/25.E3-WKLCL + WKLTOPO=TOPOCOEF*W0AVG1DLT(K)*DLP*(DX/25.E3)*(DX/33.E3) + endif + + + if(w0avg1dlt(k).le.0.0.and.w0avg1dlt(KLCL).gt.0.0) then + WKLORIG=(W0AVG1D(K)+(W0AVG1D(KLCL)-W0AVG1D(K))*DLP)*DX/25.E3-WKLCL + WKLTOPO=(-TOPOCOEF*W0AVG1DLT(KLCL)+TOPOCOEF*W0AVG1DLT(K))*DLP & + *(DX/25.E3)*(DX/33.E3) + endif + + if(w0avg1dlt(k).gt.0.0.and.w0avg1dlt(KLCL).le.0.0) then + WKLORIG=(W0AVG1D(K)+(W0AVG1D(KLCL)-W0AVG1D(K))*DLP)*DX/25.E3-WKLCL + WKLTOPO=(-TOPOCOEF*W0AVG1DLT(K))*(DX/25.E3)*(DX/33.E3) + endif + + if(w0avg1dlt(k).gt.0.0.and.w0avg1dlt(KLCL).gt.0.0) then + WKLORIG=(W0AVG1D(K)+(W0AVG1D(KLCL)-W0AVG1D(K))*DLP)*DX/25.E3-WKLCL + WKLTOPO=(-TOPOCOEF*W0AVG1DLT(K)+(-TOPOCOEF*W0AVG1DLT(KLCL))*DLP) & + *(DX/25.E3)*(DX/33.E3) + endif + + + PRESTHRS=850*1.E2 + DPRESTHRS=25*1.E2 + SLOPETHRS=ABS(WKLTOPO/WKLORIG) + + WKLELEV=ELEVCOEF*(0.02*(1.E5/P0(1))-0.02)*exp((1.E5/P0(1)-1)) + + if(P0(1).LE.PRESTHRS-DPRESTHRS.OR.SLOPETHRS.GE.0.5) then + WKLELEV=WKLELEV + elseif(P0(1).GE.PRESTHRS+DPRESTHRS) then + WKLELEV=0.0 + else + WKLELEV=(-(1/(2*DPRESTHRS))*P0(1)+0.5+(1/(2*DPRESTHRS)) & + *PRESTHRS)*WKLELEV + endif + + PRESTHRS2=925*1.E2 + + if(P0(1).GE.PRESTHRS2+DPRESTHRS.AND.SLOPETHRS.LE.0.01) then + WKLTOPO=0. + elseif(P0(1).LE.PRESTHRS2-DPRESTHRS) then + WKLTOPO=WKLTOPO + else + if(SLOPETHRS.LE.0.01) then + WKLTOPO=(-(1/(2*DPRESTHRS))*P0(1)+0.5+(1/(2*DPRESTHRS)) & + *PRESTHRS2)*WKLTOPO + else + WKLTOPO=WKLTOPO + endif + endif + + + if(WKLTOPO.gt.0) then + WKLTOPO=0 + endif + if(WKLORIG.LE.0) then + WKL=WKLTOPO*exp(3*(1.E5/P0(1)-1)) + endif + if(WKLORIG.GT.0) then + WKL=(WKLORIG+WKLTOPO*exp(3*(1.E5/P0(1)-1))) + endif + + WKL=WKL-WKLELEV + if(WKL.LE.0) then + DTLCL=-4.64*(ABS(WKL))**0.33 + endif + if(WKL.GT.0) then + DTLCL=4.64*WKL**0.33 + endif + +! Original code for convective trigger func + +! WKL=(W0AVG1D(K)+(W0AVG1D(KLCL)-W0AVG1D(K))*DLP)*DX/25.E3-WKLCL +! WABS=ABS(WKL) +! IF(WABS.EQ.0.)THEN +! WSIGNE=1. +! DTLCL=0. +! ELSE +! WSIGNE=WKL/WABS +! DTLCL=4.64*WKL**0.33 +! DTLCL=4.64*WSIGNE*WABS**0.33 +! DTLCL = AMAX1(DTLCL,0.) +! ENDIF + + + +!...for ETA model, give parcel an extra temperature perturbation based +!...the threshold RH for condensation (U00)... +! +!...for now, just assume U00=0.75... +!...!!!!!! for MM5, SET DTRH = 0. !!!!!!!! + U00 = 0.75 + IF(U00.lt.1.)THEN + QSLCL=QES(K)+(QES(KLCL)-QES(K))*DLP + RHLCL = QENV/QSLCL + DQSSDT = QMIX*(CLIQ-BLIQ*DLIQ)/((TLCL-DLIQ)*(TLCL-DLIQ)) + IF(RHLCL.ge.0.75 .and. RHLCL.le.0.95)then + DTRH = 0.25*(RHLCL-0.75)*QMIX/DQSSDT + ELSEIF(RHLCL.GT.0.95)THEN + DTRH = (1./RHLCL-1.)*QMIX/DQSSDT + ELSE + DTRH = 0. + ENDIF + ENDIF +! IF(ISHALL.EQ.1)IPRNT=.TRUE. + + + IPRNT=.TRUE. + + IF(IPRNT)THEN + TVAVG=0.5*(TV0(KLCL)+TENV*(1.+0.608*QENV)) + PLCL=P0(KLCL)*EXP(G/(R*TVAVG)*(Z0(KLCL)-ZLCL)) + ENDIF + + +! IF(TLCL+DTLCL.GT.TENV)GOTO 45 +! + +trigger: IF(TLCL+DTLCL+DTRH.LT.TENV)THEN +!trigger: IF(TLCL+DTLCL+DTRH.LT.TENV)THEN +! +! Parcel not buoyant, CYCLE back to start of trigger and evaluate next potential USL... +! +! Check to see if in the lowest 300-mb + IF(KMIX.LE.LLFC) then + CYCLE usl + ENDIF +! + ELSE ! Parcel is buoyant, determine updraft +! +!...CONVECTIVE TRIGGERING CRITERIA HAS BEEN SATISFIED...COMPUTE +!...EQUIVALENT POTENTIAL TEMPERATURE +!...(THETEU) AND VERTICAL VELOCITY OF THE RISING PARCEL AT THE LCL... +! + CALL envirtht (PMIX,TMIX,QMIX,THETEU(K),ALIQ,BLIQ,CLIQ,DLIQ) +! +!...modify calculation of initial parcel vertical velocity...jsk 11/26/97 + +! MM4 formulation for GDT: Used for RAMS + + GDT=G*(DTLCL+DTRH)*(ZLCL-Z0(LC))/(TV0(LC)+TVEN) + +! CLC RAMS TRIGGER: Formulation for WLCL +! +! New formulation for WLCL considers the minumum value of WLCL to vary +! approximately as a step func with an elevation threshold of 1500 m +! (WLCLELEV), so it is effectively zero above this level. +! Necessary because the previous minimum value of WLCL caused too much +! precipitation at high elevations. Users may wish to modify the +! threshold if high elevation precipitation is over or underestimated. + + + WLCLELEV=1500 + DWLCLELEV=150 + + if(TOPO.GE.WLCLELEV+DWLCLELEV) then + WLCLMIN=1.E-3 + elseif(TOPO.LE.WLCLELEV-DWLCLELEV) then + WLCLMIN=1.0 + else + WLCLMIN=-(1/(2*DWLCLELEV))*TOPO+0.5+(1/(2*DWLCLELEV))*WLCLELEV + endif + + if(GDT.LE.0) then + WLCL=WLCLMIN + else + WLCL=(WLCLMIN+.5*SQRT(ABS(GDT)+1.E-10)) + endif + +! Original formulation for WLCL +! +! WLCL=(1.+.5*SQRT(ABS(GDT)+1.E-10)) + + +! Eta formulation for GDT and WLCL +! GDT=2.*G*(DTLCL+DTRH)*500./TVEN +! WLCL=1.+0.5*WSIGNE*SQRT(ABS(GDT)+1.E-10) +! WLCL=1.+0.5*SQRT(ABS(GDT)+1.E-10) + +! MM4 does not use these +! WLCL = AMIN1(WLCL,5.) +! WLCL = AMIN1(WLCL,4.) +! WLCL = AMIN1(WLCL,3.) + PLCL=P0(K)+(P0(KLCL)-P0(K))*DLP + + WTW=WLCL*WLCL + + TVLCL=TLCL*(1.+0.608*QMIX) + RHOLCL=PLCL/(R*TVLCL) +! + LCL=KLCL + LET=LCL +! make RAD a func of background vertical velocity... + +! CLC RAMS TRIGGER +! Also, if WLCL is less than one, set the updraft radius near zero +! so no convection occurs. + + IF(WLCL.ge.1.0) THEN + IF(WKL.LT.0)THEN + RAD = 1000 + ELSEIF(WKL.GT.0.1)THEN + RAD = 2000 + ELSE + RAD = (1000.+1000*WKL/0.1) + ENDIF + ELSE + RAD=1.E-4 + ENDIF +! +!******************************************************************* +! * +! COMPUTE UPDRAFT PROPERTIES * +! * +!******************************************************************* +! +! +!... +!...ESTIMATE INITIAL UPDRAFT MASS FLUX (UMF(K))... +! + WU(K)=WLCL + AU0=PIE*RAD*RAD + UMF(K)=RHOLCL*AU0 + VMFLCL=UMF(K) + UPOLD=VMFLCL + UPNEW=UPOLD +! +!...RATIO2 IS THE DEGREE OF GLACIATION IN THE CLOUD (0 TO 1), +!...UER IS THE ENVIR ENTRAINMENT RATE, ABE IS AVAILABLE +!...BUOYANT ENERGY, TRPPT IS THE TOTAL RATE OF PRECIPITATION +!...PRODUCTION... +! + RATIO2(K)=0. + UER(K)=0. + ABE=0. + TRPPT=0. + TU(K)=TLCL + TVU(K)=TVLCL + QU(K)=QMIX + EQFRC(K)=1. + QLIQ(K)=0. + QICE(K)=0. + QLQOUT(K)=0. + QICOUT(K)=0. + DETLQ(K)=0. + DETIC(K)=0. + PPTLIQ(K)=0. + PPTICE(K)=0. + + IFLAG=0 +! +!...TTEMP IS USED DURING CALCULATION OF THE LINEAR GLACIATION +!...PROCESS; IT IS INITIALLY SET TO THE TEMPERATURE AT WHICH +!...FREEZING IS SPECIFIED TO BEGIN. WITHIN THE GLACIATION +!...INTERVAL, IT IS SET EQUAL TO THE UPDRAFT TEMP AT THE +!...PREVIOUS MODEL LEVEL... +! + TTEMP=TTFRZ +! +!...ENTER THE LOOP FOR UPDRAFT CALCULATIONS...CALCULATE UPDRAFT TEMP, +!...MIXING RATIO, VERTICAL MASS FLUX, LATERAL DETRAINMENT OF MASS AND +!...MOISTURE, PRECIPITATION RATES AT EACH MODEL LEVEL... +! +! + EE1=1. + UD1=0. + REI = 0. + DILBE = 0. +updraft: DO NK=K,KL-1 + NK1=NK+1 + RATIO2(NK1)=RATIO2(NK) + FRC1=0. + TU(NK1)=T0(NK1) + THETEU(NK1)=THETEU(NK) + QU(NK1)=QU(NK) + QLIQ(NK1)=QLIQ(NK) + QICE(NK1)=QICE(NK) + + CALL tpmix2 (p0(nk1),theteu(nk1),tu(nk1),qu(nk1),qliq(nk1), & + qice(nk1),qnewlq,qnewic,XLV1,XLV0) + +!...CHECK TO SEE IF UPDRAFT TEMP IS ABOVE THE TEMPERATURE AT WHICH +!...GLACIATION IS ASSUMED TO INITIATE; IF IT IS, CALCULATE THE +!...FRACTION OF REMAINING LIQUID WATER TO FREEZE...TTFRZ IS THE +!...TEMP AT WHICH FREEZING BEGINS, TBFRZ THE TEMP BELOW WHICH ALL +!...LIQUID WATER IS FROZEN AT EACH LEVEL... +! + IF(TU(NK1).LE.TTFRZ)THEN + IF(TU(NK1).GT.TBFRZ)THEN + IF(TTEMP.GT.TTFRZ)TTEMP=TTFRZ + FRC1=(TTEMP-TU(NK1))/(TTEMP-TBFRZ) + ELSE + FRC1=1. + IFLAG=1 + ENDIF + TTEMP=TU(NK1) +! +! DETERMINE THE EFFECTS OF LIQUID WATER FREEZING WHEN TEMPERATURE +!...IS BELOW TTFRZ... +! + QFRZ = (QLIQ(NK1)+QNEWLQ)*FRC1 + QNEWIC=QNEWIC+QNEWLQ*FRC1 + QNEWLQ=QNEWLQ-QNEWLQ*FRC1 + QICE(NK1) = QICE(NK1)+QLIQ(NK1)*FRC1 + QLIQ(NK1) = QLIQ(NK1)-QLIQ(NK1)*FRC1 + + CALL dtfrznew (TU(NK1),P0(NK1),THETEU(NK1),QU(NK1),QFRZ, & + QICE(NK1),ALIQ,BLIQ,CLIQ,DLIQ) + ENDIF + + TVU(NK1)=TU(NK1)*(1.+0.608*QU(NK1)) +! +! CALCULATE UPDRAFT VERTICAL VELOCITY AND PRECIPITATION FALLOUT... +! + IF(NK.EQ.K)THEN + BE=(TVLCL+TVU(NK1))/(TVEN+TV0(NK1))-1. + BOTERM=2.*(Z0(NK1)-ZLCL)*G*BE/1.5 +! mm4 mods + ENTERM=0. + DZZ=Z0(NK1)-ZLCL + ELSE + BE=(TVU(NK)+TVU(NK1))/(TV0(NK)+TV0(NK1))-1. + BOTERM=2.*DZA(NK)*G*BE/1.5 +! mm4 mods + ENTERM=2.*UER(NK)*WTW/UPOLD + DZZ=DZA(NK) + ENDIF +! Eta mods +! ENTERM=2.*REI*WTW/UPOLD + + + CALL condload (QLIQ(NK1),QICE(NK1),WTW,DZZ,BOTERM,ENTERM, & + RATE,QNEWLQ,QNEWIC,QLQOUT(NK1),QICOUT(NK1),G) + + WABS=SQRT(ABS(WTW)) + WU(NK1)=WTW/WABS + +! +!...IF VERT VELOCITY IS LESS THAN ZERO, EXIT THE UPDRAFT LOOP AND, +!...IF CLOUD IS TALL ENOUGH, FINALIZE UPDRAFT CALCULATIONS... +! + IF(WU(NK1).LT.0.)THEN + EXIT + ENDIF +! +!...Calculate value of THETA-E in environment to entrain into updraft... +! + CALL envirtht (P0(NK1),T0(NK1),Q0(NK1),THETEE(NK1),ALIQ,BLIQ,CLIQ,DLIQ) +! +!...REI IS THE RATE OF ENVIRONMENTAL INFLOW... +! +! abb Original REI value + REI=VMFLCL*DP(NK1)*0.03/RAD + +! abb Doubled REI value, Mapes suggestion.... + +! REI=(VMFLCL*DP(NK1)*0.03/RAD)*4.0 + +! abb End + TVQU(NK1)=TU(NK1)*(1.+0.608*QU(NK1)-QLIQ(NK1)-QICE(NK1)) + + IF(NK.EQ.K)THEN + DILBE=((TVLCL+TVQU(NK1))/(TVEN+TV0(NK1))-1.)*DZZ + ELSE + DILBE=((TVQU(NK)+TVQU(NK1))/(TV0(NK)+TV0(NK1))-1.)*DZZ + ENDIF + IF(DILBE.GT.0.)ABE=ABE+DILBE*G +! +!...IF CLOUD PARCELS ARE VIRTUALLY COLDER THAN THE ENVIRONMENT, MINIMAL +!...ENTRAINMENT (0.5*REI) IS IMPOSED... +! + IF(TVQU(NK1).LE.TV0(NK1))THEN ! Entrain/Detrain IF BLOCK + EE2=0.5 + UD2=1. + EQFRC(NK1)=0. + ELSE + LET=NK1 + TTMP=TVQU(NK1) +! +!...DETERMINE THE CRITICAL MIXED FRACTION OF UPDRAFT AND ENVIRONMENTAL AIR... +! + F1=0.95 + F2=1.-F1 + THTTMP=F1*THETEE(NK1)+F2*THETEU(NK1) + QTMP=F1*Q0(NK1)+F2*QU(NK1) + TMPLIQ=F2*QLIQ(NK1) + TMPICE=F2*QICE(NK1) + CALL tpmix2 (p0(nk1),thttmp,ttmp,qtmp,tmpliq,tmpice, & + qnewlq,qnewic,XLV1,XLV0) + TU95=TTMP*(1.+0.608*QTMP-TMPLIQ-TMPICE) + IF(TU95.GT.TV0(NK1))THEN + EE2=1. + UD2=0. + EQFRC(NK1)=1.0 + ELSE + F1=0.10 + F2=1.-F1 + THTTMP=F1*THETEE(NK1)+F2*THETEU(NK1) + QTMP=F1*Q0(NK1)+F2*QU(NK1) + TMPLIQ=F2*QLIQ(NK1) + TMPICE=F2*QICE(NK1) + CALL tpmix2 (p0(nk1),thttmp,ttmp,qtmp,tmpliq,tmpice, & + qnewlq,qnewic,XLV1,XLV0) + TU10=TTMP*(1.+0.608*QTMP-TMPLIQ-TMPICE) + IF(TU10.EQ.TVQU(NK1))THEN + EE2=1. + UD2=0. + EQFRC(NK1)=1.0 + ELSE + EQFRC(NK1)=(TV0(NK1)-TVQU(NK1))*F1/(TU10-TVQU(NK1)) + EQFRC(NK1)=AMAX1(0.0,EQFRC(NK1)) + EQFRC(NK1)=AMIN1(1.0,EQFRC(NK1)) + IF(EQFRC(NK1).EQ.1)THEN + EE2=1. + UD2=0. + ELSEIF(EQFRC(NK1).EQ.0.)THEN + EE2=0. + UD2=1. + ELSE +! +!...ROUTINE PROF5 INTEGRATES OVER THE GAUSSIAN DIST TO DETERMINE THE +! FRACTIONAL ENTRAINMENT AND DETRAINMENT RATES... +! + CALL prof5 (EQFRC(NK1),EE2,UD2) + ENDIF + ENDIF + ENDIF + ENDIF ! End of Entrain/Detrain IF BLOCK +! +! +!...NET ENTRAINMENT AND DETRAINMENT RATES ARE GIVEN BY THE AVERAGE FRACTIONAL +! VALUES IN THE LAYER... +! + EE2 = AMAX1(EE2,0.5) + UD2 = 1.5*UD2 + UER(NK1)=0.5*REI*(EE1+EE2) + UDR(NK1)=0.5*REI*(UD1+UD2) +! +!...IF THE CALCULATED UPDRAFT DETRAINMENT RATE IS GREATER THAN THE TOTAL +! UPDRAFT MASS FLUX, ALL CLOUD MASS DETRAINS, EXIT UPDRAFT CALCULATIONS... +! + IF(UMF(NK)-UDR(NK1).LT.10.)THEN +! +!...IF THE CALCULATED DETRAINED MASS FLUX IS GREATER THAN THE TOTAL UPD MASS +! FLUX, IMPOSE TOTAL DETRAINMENT OF UPDRAFT MASS AT THE PREVIOUS MODEL LVL.. +! First, correct ABE calculation if needed... +! + IF(DILBE.GT.0.)THEN + ABE=ABE-DILBE*G + ENDIF + LET=NK + EXIT + ELSE + EE1=EE2 + UD1=UD2 + UPOLD=UMF(NK)-UDR(NK1) + UPNEW=UPOLD+UER(NK1) + UMF(NK1)=UPNEW + DILFRC(NK1) = UPNEW/UPOLD +! +!...DETLQ AND DETIC ARE THE RATES OF DETRAINMENT OF LIQUID AND +!...ICE IN THE DETRAINING UPDRAFT MASS... +! + DETLQ(NK1)=QLIQ(NK1)*UDR(NK1) + DETIC(NK1)=QICE(NK1)*UDR(NK1) + QDT(NK1)=QU(NK1) + QU(NK1)=(UPOLD*QU(NK1)+UER(NK1)*Q0(NK1))/UPNEW + THETEU(NK1)=(THETEU(NK1)*UPOLD+THETEE(NK1)*UER(NK1))/UPNEW + QLIQ(NK1)=QLIQ(NK1)*UPOLD/UPNEW + QICE(NK1)=QICE(NK1)*UPOLD/UPNEW +! +!...PPTLIQ IS THE RATE OF GENERATION (FALLOUT) OF +!...LIQUID PRECIP AT A GIVEN MODEL LVL, PPTICE THE SAME FOR ICE, +!...TRPPT IS THE TOTAL RATE OF PRODUCTION OF PRECIP UP TO THE +!...CURRENT MODEL LEVEL... +! + PPTLIQ(NK1)=QLQOUT(NK1)*UMF(NK) + PPTICE(NK1)=QICOUT(NK1)*UMF(NK) +! + TRPPT=TRPPT+PPTLIQ(NK1)+PPTICE(NK1) + + IF(NK1.LE.KPBL)UER(NK1)=UER(NK1)+VMFLCL*DP(NK1)/DPTHMX + ENDIF +! + END DO updraft +! +!...CHECK CLOUD DEPTH...IF CLOUD IS TALL ENOUGH, ESTIMATE THE EQUILIBRIU +! TEMPERATURE LEVEL (LET) AND ADJUST MASS FLUX PROFILE AT CLOUD TOP SO +! THAT MASS FLUX DECREASES TO ZERO AS A LINEAR FUNC OF PRESSURE BE +! THE LET AND CLOUD TOP... +! +!...LTOP IS THE MODEL LEVEL JUST BELOW THE LEVEL AT WHICH VERTICAL VELOC +! FIRST BECOMES NEGATIVE... +! + LTOP=NK + + + CLDHGT(LC)=Z0(LTOP)-ZLCL +!...Instead of using the same minimum cloud height (for deep convection) +!...everywhere, try specifying minimum cloud depth as a func of TLCL... +! + IF(TLCL.GT.293.)THEN + CHMIN = 4.E3 + ELSEIF(TLCL.LE.293. .and. TLCL.GE.273)THEN + CHMIN = 2.E3 + 100.*(TLCL-273.) + ELSEIF(TLCL.LT.273.)THEN + CHMIN = 2.E3 + ENDIF + +! +!...If cloud top height is less than the specified minimum for deep +!...convection, save value to consider this level as source for +!...shallow convection, go back up to check next level... +! +!...Try specifying minimum cloud depth as a func of TLCL... +! +! +!...DO NOT ALLOW ANY CLOUD FROM THIS LAYER IF: +! +!... 1.) if there is no CAPE, or +!... 2.) cloud top is at model level just above LCL, or +!... 3.) cloud top is within updraft source layer, or +!... 4.) cloud-top detrainment layer begins within +!... updraft source layer. +! +! No Convection Allowed + IF(LTOP.LE.KLCL .or. LTOP.LE.KPBL .or. LET+1.LE.KPBL)THEN + CLDHGT(LC)=0. + DO NK=K,LTOP + UMF(NK)=0. + UDR(NK)=0. + UER(NK)=0. + DETLQ(NK)=0. + DETIC(NK)=0. + PPTLIQ(NK)=0. + PPTICE(NK)=0. + ENDDO +! + ELSEIF(CLDHGT(LC).GT.CHMIN .and. ABE.GT.1)THEN ! Deep Convection allowed + ISHALL=0 + EXIT usl + ELSE +! +!...TO DISALLOW SHALLOW CONVECTION, COMMENT OUT NEXT LINE !!!!!!!! + ISHALL = 1 + IF(NU.EQ.NUCHM)THEN + EXIT usl ! Shallow Convection from this layer + ELSE +! Remember this layer (by virtue of non-zero CLDHGT) +! as potential shallow-cloud layer + DO NK=K,LTOP + UMF(NK)=0. + UDR(NK)=0. + UER(NK)=0. + DETLQ(NK)=0. + DETIC(NK)=0. + PPTLIQ(NK)=0. + PPTICE(NK)=0. + ENDDO + ENDIF + ENDIF + ENDIF trigger + END DO usl + IF(ISHALL.EQ.1)THEN + KSTART=MAX0(KPBL,KLCL) + LET=KSTART + endif +! +!...IF THE LET AND LTOP ARE THE SAME, DETRAIN ALL OF THE UPDRAFT MASS FL +! THIS LEVEL... +! + IF(LET.EQ.LTOP)THEN + UDR(LTOP)=UMF(LTOP)+UDR(LTOP)-UER(LTOP) + DETLQ(LTOP)=QLIQ(LTOP)*UDR(LTOP)*UPNEW/UPOLD + DETIC(LTOP)=QICE(LTOP)*UDR(LTOP)*UPNEW/UPOLD + + UER(LTOP)=0. + UMF(LTOP)=0. + ELSE +! +! BEGIN TOTAL DETRAINMENT AT THE LEVEL ABOVE THE LET... +! + DPTT=0. + DO NJ=LET+1,LTOP + DPTT=DPTT+DP(NJ) + ENDDO + DUMFDP=UMF(LET)/DPTT +! +!...ADJUST MASS FLUX PROFILES, DETRAINMENT RATES, AND PRECIPITATION FALL +! RATES TO REFLECT THE LINEAR DECREASE IN MASS FLX BETWEEN THE LET AND +! + DO NK=LET+1,LTOP +! +!...entrainment is allowed at every level except for LTOP, so disallow +!...entrainment at LTOP and adjust entrainment rates between LET and LTOP +!...so the the dilution factor due to entyrianment is not changed but +!...the actual entrainment rate will change due due forced total +!...detrainment in this layer... +! + IF(NK.EQ.LTOP)THEN + UDR(NK) = UMF(NK-1) + UER(NK) = 0. + DETLQ(NK) = UDR(NK)*QLIQ(NK)*DILFRC(NK) + DETIC(NK) = UDR(NK)*QICE(NK)*DILFRC(NK) + ELSE + UMF(NK)=UMF(NK-1)-DP(NK)*DUMFDP + UER(NK)=UMF(NK)*(1.-1./DILFRC(NK)) + UDR(NK)=UMF(NK-1)-UMF(NK)+UER(NK) + DETLQ(NK)=UDR(NK)*QLIQ(NK)*DILFRC(NK) + DETIC(NK)=UDR(NK)*QICE(NK)*DILFRC(NK) + ENDIF + IF(NK.GE.LET+2)THEN + TRPPT=TRPPT-PPTLIQ(NK)-PPTICE(NK) + PPTLIQ(NK)=UMF(NK-1)*QLQOUT(NK) + PPTICE(NK)=UMF(NK-1)*QICOUT(NK) + TRPPT=TRPPT+PPTLIQ(NK)+PPTICE(NK) + ENDIF + ENDDO + ENDIF +! +! Initialize some arrays below cloud base and above cloud top... +! + DO NK=1,K + IF(NK.GE.LC)THEN + IF(NK.EQ.LC)THEN + UMF(NK)=VMFLCL*DP(NK)/DPTHMX + UER(NK)=VMFLCL*DP(NK)/DPTHMX + ELSEIF(NK.LE.KPBL)THEN + UER(NK)=VMFLCL*DP(NK)/DPTHMX + UMF(NK)=UMF(NK-1)+UER(NK) + ELSE + UMF(NK)=VMFLCL + UER(NK)=0. + ENDIF + TU(NK)=TMIX+(Z0(NK)-ZMIX)*GDRY + QU(NK)=QMIX + WU(NK)=WLCL + ELSE + TU(NK)=0. + QU(NK)=0. + UMF(NK)=0. + WU(NK)=0. + UER(NK)=0. + ENDIF + UDR(NK)=0. + QDT(NK)=0. + QLIQ(NK)=0. + QICE(NK)=0. + QLQOUT(NK)=0. + QICOUT(NK)=0. + PPTLIQ(NK)=0. + PPTICE(NK)=0. + DETLQ(NK)=0. + DETIC(NK)=0. + RATIO2(NK)=0. + CALL envirtht (P0(NK),T0(NK),Q0(NK),THETEE(NK),ALIQ,BLIQ,CLIQ,DLIQ) + EQFRC(NK)=1.0 + ENDDO +! + LTOP1=LTOP+1 + LTOPM1=LTOP-1 +! +!...DEFINE VARIABLES ABOVE CLOUD TOP... +! + DO NK=LTOP1,KX + UMF(NK)=0. + UDR(NK)=0. + UER(NK)=0. + QDT(NK)=0. + QLIQ(NK)=0. + QICE(NK)=0. + QLQOUT(NK)=0. + QICOUT(NK)=0. + DETLQ(NK)=0. + DETIC(NK)=0. + PPTLIQ(NK)=0. + PPTICE(NK)=0. + IF(NK.GT.LTOP1)THEN + TU(NK)=0. + QU(NK)=0. + WU(NK)=0. + ENDIF + THTA0(NK)=0. + THTAU(NK)=0. + EMS(NK)=0. + EMSD(NK)=0. + TG(NK)=T0(NK) + QG(NK)=Q0(NK) + QLG(NK)=0. + QIG(NK)=0. + QRG(NK)=0. + QSG(NK)=0. + OMG(NK)=0. + + ENDDO + OMG(KX+1)=0. + + DO NK=1,LTOP + EMS(NK)=DP(NK)*DXSQ/G + EMSD(NK)=1./EMS(NK) +! +!...INITIALIZE SOME VARIABLES TO BE USED LATER IN THE VERT ADVECTION SCH +! + EXN(NK)=(P00/P0(NK))**(0.2854*(1.-0.28*QDT(NK))) + THTAU(NK)=TU(NK)*EXN(NK) + EXN(NK)=(P00/P0(NK))**(0.2854*(1.-0.28*Q0(NK))) + THTA0(NK)=T0(NK)*EXN(NK) + DDILFRC(NK) = 1./DILFRC(NK) + OMG(NK)=0. + ENDDO +! +!...COMPUTE CONVECTIVE TIME SCALE(TIMEC). THE MEAN WIND AT THE LCL +!...AND MIDTROPOSPHERE IS USED. +! + WSPD(KLCL)=SQRT(U0(KLCL)*U0(KLCL)+V0(KLCL)*V0(KLCL)) + WSPD(L5)=SQRT(U0(L5)*U0(L5)+V0(L5)*V0(L5)) + WSPD(LTOP)=SQRT(U0(LTOP)*U0(LTOP)+V0(LTOP)*V0(LTOP)) + VCONV=.5*(WSPD(KLCL)+WSPD(L5)) +!...for ETA model, DX is a func of location... +! TIMEC=DX(I,J)/VCONV + TIMEC=DX/VCONV + TADVEC=TIMEC + TIMEC=AMAX1(1800.,TIMEC) + TIMEC=AMIN1(3600.,TIMEC) + IF(ISHALL.EQ.1)TIMEC=2400. + NIC=NINT(TIMEC/DT) + TIMEC=FLOAT(NIC)*DT +! +!...COMPUTE WIND SHEAR AND PRECIPITATION EFFICIENCY. +! + IF(WSPD(LTOP).GT.WSPD(KLCL))THEN + SHSIGN=1. + ELSE + SHSIGN=-1. + ENDIF + VWS=(U0(LTOP)-U0(KLCL))*(U0(LTOP)-U0(KLCL))+(V0(LTOP)-V0(KLCL))* & + (V0(LTOP)-V0(KLCL)) + VWS=1.E3*SHSIGN*SQRT(VWS)/(Z0(LTOP)-Z0(LCL)) + PEF=1.591+VWS*(-.639+VWS*(9.53E-2-VWS*4.96E-3)) + PEF=AMAX1(PEF,.2) + PEF=AMIN1(PEF,.9) +! +!...PRECIPITATION EFFICIENCY IS A FUNC OF THE HEIGHT OF CLOUD BASE. +! + CBH=(ZLCL-Z0(1))*3.281E-3 + IF(CBH.LT.3.)THEN + RCBH=.02 + ELSE + RCBH=.96729352+CBH*(-.70034167+CBH*(.162179896+CBH*(- & + 1.2569798E-2+CBH*(4.2772E-4-CBH*5.44E-6)))) + ENDIF + IF(CBH.GT.25)RCBH=2.4 + PEFCBH=1./(1.+RCBH) + PEFCBH=AMIN1(PEFCBH,.9) +! +!... MEAN PEF. IS USED TO COMPUTE RAINFALL. +! + PEFF=.5*(PEF+PEFCBH) + PEFF2 = PEFF ! JSK MODS + IF(IPRNT)THEN + endif +! WRITE(98,1035)PEF,PEFCBH,LC,LET,WKL,VWS +!***************************************************************** +! * +! COMPUTE DOWNDRAFT PROPERTIES * +! * +!***************************************************************** +! +! + TDER=0. + devap:IF(ISHALL.EQ.1)THEN + LFS = 1 + ELSE +! +!...start downdraft about 150 mb above cloud base... +! +! KSTART=MAX0(KPBL,KLCL) +! KSTART=KPBL ! Changed 7/23/99 + KSTART=KPBL+1 ! Changed 7/23/99 + DO NK = KSTART+1,KL + DPPP = P0(KSTART)-P0(NK) +! IF(DPPP.GT.200.E2)THEN + IF(DPPP.GT.150.E2)THEN + KLFS = NK + EXIT + ENDIF + ENDDO + KLFS = MIN0(KLFS,LET-1) + LFS = KLFS + +! +!...if LFS is not at least 50 mb above cloud base (implying that the +!...level of equil temp, LET, is just above cloud base) do not allow a +!...downdraft... +! + IF((P0(KSTART)-P0(LFS)).GT.50.E2)THEN + THETED(LFS) = THETEE(LFS) + QD(LFS) = Q0(LFS) +! +!...call tpmix2dd to find wet-bulb temp, qv... +! + CALL tpmix2dd (p0(lfs),theted(lfs),tz(lfs),qss) + THTAD(LFS)=TZ(LFS)*(P00/P0(LFS))**(0.2854*(1.-0.28*QSS)) +! +!...TAKE A FIRST GUESS AT THE INITIAL DOWNDRAFT MASS FLUX... +! + TVD(LFS)=TZ(LFS)*(1.+0.608*QSS) + RDD=P0(LFS)/(R*TVD(LFS)) + A1=(1.-PEFF)*AU0 + DMF(LFS)=-A1*RDD + DER(LFS)=DMF(LFS) + DDR(LFS)=0. + RHBAR = RH(LFS)*DP(LFS) + DPTT = DP(LFS) + DO ND = LFS-1,KSTART,-1 + ND1 = ND+1 + DER(ND)=DER(LFS)*EMS(ND)/EMS(LFS) + DDR(ND)=0. + DMF(ND)=DMF(ND1)+DER(ND) + THETED(ND)=(THETED(ND1)*DMF(ND1)+THETEE(ND)*DER(ND))/DMF(ND) + QD(ND)=(QD(ND1)*DMF(ND1)+Q0(ND)*DER(ND))/DMF(ND) + DPTT = DPTT+DP(ND) + RHBAR = RHBAR+RH(ND)*DP(ND) + ENDDO + RHBAR = RHBAR/DPTT + DMFFRC = 2.*(1.-RHBAR) + DPDD = 0. +!...Calculate melting effect +!... first, compute total frozen precipitation generated... +! + pptmlt = 0. + DO NK = KLCL,LTOP + PPTMLT = PPTMLT+PPTICE(NK) + ENDDO + if(lc.lt.ml)then +! DTMELT = RLF*PPTMLT/(CP*DMFFRC*UMF(KLCL)) +!... +!...For now, calculate melting effect as if DMF = -UMF at KLCL, i.e., as +!...if DMFFRC=1. Otherwise, for small DMFFRC, DTMELT gets too large! +!...12/14/98 jsk... + DTMELT = RLF*PPTMLT/(CP*UMF(KLCL)) + else + DTMELT = 0. + endif + LDT = MIN0(LFS-1,KSTART-1) + CALL tpmix2dd (p0(kstart),theted(kstart),tz(kstart),qss) + tz(kstart) = tz(kstart)-dtmelt + ES=ALIQ*EXP((BLIQ*TZ(KSTART)-CLIQ)/(TZ(KSTART)-DLIQ)) + QSS=0.622*ES/(P0(KSTART)-ES) + THETED(KSTART)=TZ(KSTART)*(1.E5/P0(KSTART))**(0.2854*(1.-0.28*QSS))* & + EXP((3374.6525/TZ(KSTART)-2.5403)*QSS*(1.+0.81*QSS)) +!.... + LDT = MIN0(LFS-1,KSTART-1) + DO ND = LDT,1,-1 + DPDD = DPDD+DP(ND) + THETED(ND) = THETED(KSTART) + QD(ND) = QD(KSTART) +! +!...call tpmix2dd to find wet bulb temp, saturation mixing ratio... +! + CALL tpmix2dd (p0(nd),theted(nd),tz(nd),qss) + qsd(nd) = qss +! +!...specify RH decrease of 20%/km in downdraft... +! + RHH = 1.-0.2/1000.*(Z0(KSTART)-Z0(ND)) +! +!...adjust downdraft TEMP, Q to specified RH: +! + IF(RHH.LT.1.)THEN + DSSDT=(CLIQ-BLIQ*DLIQ)/((TZ(ND)-DLIQ)*(TZ(ND)-DLIQ)) + RL=XLV0-XLV1*TZ(ND) + DTMP=RL*QSS*(1.-RHH)/(CP+RL*RHH*QSS*DSSDT) + T1RH=TZ(ND)+DTMP + ES=RHH*ALIQ*EXP((BLIQ*T1RH-CLIQ)/(T1RH-DLIQ)) + QSRH=0.622*ES/(P0(ND)-ES) +! +!...CHECK TO SEE IF MIXING RATIO AT SPECIFIED RH IS LESS THAN ACTUAL +!...MIXING RATIO...IF SO, ADJUST TO GIVE ZERO EVAPORATION... +! + IF(QSRH.LT.QD(ND))THEN + QSRH=QD(ND) + T1RH=TZ(ND)+(QSS-QSRH)*RL/CP + ENDIF + TZ(ND)=T1RH + QSS=QSRH + QSD(ND) = QSS + ENDIF + TVD(nd) = tz(nd)*(1.+0.608*qsd(nd)) + IF(TVD(ND).GT.TV0(ND).OR.ND.EQ.1)THEN + LDB=ND + EXIT + ENDIF + ENDDO + IF((P0(LDB)-P0(LFS)) .gt. 50.E2)THEN ! minimum Downdraft depth! + DO ND=LDT,LDB,-1 + ND1 = ND+1 + DDR(ND) = -DMF(KSTART)*DP(ND)/DPDD + DER(ND) = 0. + DMF(ND) = DMF(ND1)+DDR(ND) + TDER=TDER+(QSD(nd)-QD(ND))*DDR(ND) + QD(ND)=QSD(nd) + THTAD(ND)=TZ(ND)*(P00/P0(ND))**(0.2854*(1.-0.28*QD(ND))) + ENDDO + ENDIF + ENDIF + ENDIF devap +! +!...IF DOWNDRAFT DOES NOT EVAPORATE ANY WATER FOR SPECIFIED RELATIVE +!...HUMIDITY, NO DOWNDRAFT IS ALLOWED... +! +d_mf: IF(TDER.LT.1.)THEN + PPTFLX=TRPPT + CPR=TRPPT + TDER=0. + LDB=LFS + DO NDK=1,LTOP + DMF(NDK)=0. + DER(NDK)=0. + DDR(NDK)=0. + THTAD(NDK)=0. + WD(NDK)=0. + TZ(NDK)=0. + QD(NDK)=0. + ENDDO + AINCM2=100. + ELSE + DDINC = -DMFFRC*UMF(KLCL)/DMF(KSTART) +! DDINC = 0. + IF(TDER*DDINC.GT.TRPPT)THEN + DDINC = TRPPT/TDER + ENDIF + TDER = TDER*DDINC + + DO NK=LDB,LFS + DMF(NK)=DMF(NK)*DDINC + DER(NK)=DER(NK)*DDINC + DDR(NK)=DDR(NK)*DDINC + ENDDO + CPR=TRPPT + PPTFLX = TRPPT-TDER + PEFF=PPTFLX/TRPPT + IF(IPRNT)THEN + ENDIF +! +!...ZERO OUT THE ARRAYS FOR DOWNDRAFT DATA AT LEVELS ABOVE AND BELOW THE +!...DOWNDRAFT... +! + IF(LDB.GT.1)THEN + DO NK=1,LDB-1 + DMF(NK)=0. + DER(NK)=0. + DDR(NK)=0. + WD(NK)=0. + TZ(NK)=0. + QD(NK)=0. + THTAD(NK)=0. + ENDDO + ENDIF + DO NK=LFS+1,KX + DMF(NK)=0. + DER(NK)=0. + DDR(NK)=0. + WD(NK)=0. + TZ(NK)=0. + QD(NK)=0. + THTAD(NK)=0. + ENDDO + DO NK=LDT+1,LFS-1 + TZ(NK)=0. + QD(NK)=0. + THTAD(NK)=0. + ENDDO + ENDIF d_mf +! +!...SET LIMITS ON THE UPDRAFT AND DOWNDRAFT MASS FLUXES SO THAT THE INFL +! INTO CONVECTIVE DRAFTS FROM A GIVEN LAYER IS NO MORE THAN IS AVAILAB +! IN THAT LAYER INITIALLY... +! + AINCMX=1000. + LMAX=MAX0(KLCL,LFS) + DO NK=LC,LMAX + IF((UER(NK)-DER(NK)).GT.0.)AINCM1=EMS(NK)/((UER(NK)-DER(NK))*TIMEC) + AINCMX=AMIN1(AINCMX,AINCM1) + ENDDO + AINC=1. + IF(AINCMX.LT.AINC)AINC=AINCMX +! +!...SAVE THE RELEVENT VARIABLES FOR A UNIT UPDRAFT AND DOWNDRAFT...THEY WILL +!...BE ITERATIVELY ADJUSTED BY THE FACTOR AINC TO SATISFY THE STABILIZATION +!...CLOSURE... +! + TDER2=TDER + PPTFL2=PPTFLX + DO NK=1,LTOP + DETLQ2(NK)=DETLQ(NK) + DETIC2(NK)=DETIC(NK) + UDR2(NK)=UDR(NK) + UER2(NK)=UER(NK) + DDR2(NK)=DDR(NK) + DER2(NK)=DER(NK) + UMF2(NK)=UMF(NK) + DMF2(NK)=DMF(NK) + ENDDO + + + FABE=1. + STAB=0.95 + NOITR=0 + ISTOP=0 + +! + IF(ISHALL.EQ.1)THEN ! First for shallow convection +! +! No iteration for shallow convection; if turbulent kinetic energy (TKE) is available +! from a turbulence parameterization, scale cloud-base updraft mass flux as a func +! of TKE, but for now, just specify shallow-cloud mass flux using TKEMAX = 5... +! +!...find the maximum TKE value between LC and KLCL... +! TKEMAX = 0. + TKEMAX = 5. + IF(IDIFFK.eq.1) then + DO 173 K = LC,KLCL + NK = KX-K+1 + TKEMAX = AMAX1(TKEMAX,TKE(NK)) + 173 CONTINUE + TKEMAX = AMIN1(TKEMAX,10.) + TKEMAX = AMAX1(TKEMAX,5.) + ENDIF +!c TKEMAX = 10. +!c...3_24_99...DPMIN was changed for shallow convection so that it is the +!c... the same as for deep convection (5.E3). Since this doubles +!c... (roughly) the value of DPTHMX, add a factor of 0.5 to calcu- +!c... lation of EVAC... +!c EVAC = TKEMAX*0.1 + EVAC = 0.5*TKEMAX*0.1 +! CLC test +! EVAC=0 +! AINC = 0.1*DPTHMX*DXIJ*DXIJ/(VMFLCL*G*TIMEC) +! AINC = EVAC*DPTHMX*DX(I,J)*DX(I,J)/(VMFLCL*G*TIMEC) + AINC = EVAC*DPTHMX*DXSQ/(VMFLCL*G*TIMEC) + TDER=TDER2*AINC + PPTFLX=PPTFL2*AINC + + DO NK=1,LTOP + UMF(NK)=UMF2(NK)*AINC + DMF(NK)=DMF2(NK)*AINC + DETLQ(NK)=DETLQ2(NK)*AINC + DETIC(NK)=DETIC2(NK)*AINC + UDR(NK)=UDR2(NK)*AINC + UER(NK)=UER2(NK)*AINC + DER(NK)=DER2(NK)*AINC + DDR(NK)=DDR2(NK)*AINC + ENDDO + ENDIF ! Otherwise for deep convection + +! use iterative procedure to find mass fluxes... +iter: DO NCOUNT=1,10 +! +!***************************************************************** +! * +! COMPUTE PROPERTIES FOR COMPENSATIONAL SUBSIDENCE * +! * +!***************************************************************** +! +!...DETERMINE OMEGA VALUE NECESSARY AT TOP AND BOTTOM OF EACH LAYER TO +!...SATISFY MASS CONTINUITY... +! + DTT=TIMEC + + DO NK=1,LTOP + + DOMGDP(NK)=-(UER(NK)-DER(NK)-UDR(NK)-DDR(NK))*EMSD(NK) + + IF(NK.GT.1)THEN + OMG(NK)=OMG(NK-1)-DP(NK-1)*DOMGDP(NK-1) + DTT1=0.75*DP(NK-1)/(ABS(OMG(NK))+1.E-10) + DTT=AMIN1(DTT,DTT1) + ENDIF + + ENDDO + + DO NK=1,LTOP + THPA(NK)=THTA0(NK) + QPA(NK)=Q0(NK) +! NSTEP=NINT(TIMEC/DTT+1) +! DTIME=TIMEC/FLOAT(NSTEP) + FXM(NK)=OMG(NK)*DXSQ/G + ENDDO + + NSTEP=NINT(TIMEC/DTT+1) + DTIME=TIMEC/FLOAT(NSTEP) +! +!...DO AN UPSTREAM/FORWARD-IN-TIME ADVECTION OF THETA, QV... +! + DO NTC=1,NSTEP +! +!...ASSIGN THETA AND Q VALUES AT THE TOP AND BOTTOM OF EACH LAYER BASED +!...SIGN OF OMEGA... +! + DO NK=1,LTOP + THFXIN(NK)=0. + THFXOUT(NK)=0. + QFXIN(NK)=0. + QFXOUT(NK)=0. + ENDDO + DO NK=2,LTOP + IF(OMG(NK).LE.0.)THEN + THFXIN(NK)=-FXM(NK)*THPA(NK-1) + QFXIN(NK)=-FXM(NK)*QPA(NK-1) + THFXOUT(NK-1)=THFXOUT(NK-1)+THFXIN(NK) + QFXOUT(NK-1)=QFXOUT(NK-1)+QFXIN(NK) + ELSE + THFXOUT(NK)=FXM(NK)*THPA(NK) + QFXOUT(NK)=FXM(NK)*QPA(NK) + THFXIN(NK-1)=THFXIN(NK-1)+THFXOUT(NK) + QFXIN(NK-1)=QFXIN(NK-1)+QFXOUT(NK) + ENDIF + ENDDO +! +!...UPDATE THE THETA AND QV VALUES AT EACH LEVEL... +! + DO NK=1,LTOP + THPA(NK)=THPA(NK)+(THFXIN(NK)+UDR(NK)*THTAU(NK)+DDR(NK)* & + THTAD(NK)-THFXOUT(NK)-(UER(NK)-DER(NK))*THTA0(NK))* & + DTIME*EMSD(NK) + QPA(NK)=QPA(NK)+(QFXIN(NK)+UDR(NK)*QDT(NK)+DDR(NK)*QD(NK)- & + QFXOUT(NK)-(UER(NK)-DER(NK))*Q0(NK))*DTIME*EMSD(NK) + ENDDO + ENDDO + DO NK=1,LTOP + THTAG(NK)=THPA(NK) + QG(NK)=QPA(NK) + ENDDO +! +!...CHECK TO SEE IF MIXING RATIO DIPS BELOW ZERO ANYWHERE; IF SO, BORRO +!...MOISTURE FROM ADJACENT LAYERS TO BRING IT BACK UP ABOVE ZERO... +! + DO NK=1,LTOP + IF(QG(NK).LT.0.)THEN + IF(NK.EQ.1)THEN ! JSK MODS + PRINT *,'!!!!! PROBLEM WITH KF SCHEME: ' ! JSK MODS + PRINT *,'QG = 0 AT THE SURFACE!!!!!!!' ! JSK MODS + STOP 'QG' ! JSK MODS + ENDIF ! JSK MODS + NK1=NK+1 + IF(NK.EQ.LTOP)THEN + NK1=KLCL + ENDIF + TMA=QG(NK1)*EMS(NK1) + TMB=QG(NK-1)*EMS(NK-1) + TMM=(QG(NK)-1.E-9)*EMS(NK ) + BCOEFF=-TMM/((TMA*TMA)/TMB+TMB) + ACOEFF=BCOEFF*TMA/TMB + TMB=TMB*(1.-BCOEFF) + TMA=TMA*(1.-ACOEFF) + IF(NK.EQ.LTOP)THEN + QVDIFF=(QG(NK1)-TMA*EMSD(NK1))*100./QG(NK1) + IF(ABS(QVDIFF).GT.1.)THEN + PRINT *,'!!!WARNING!!! CLOUD BASE WATER VAPOR CHANGES BY ', & + QVDIFF, & + '% WHEN MOISTURE IS BORROWED TO PREVENT NEGATIVE ', & + 'VALUES IN KAIN-FRITSCH' + ENDIF + ENDIF + QG(NK)=1.E-9 + QG(NK1)=TMA*EMSD(NK1) + QG(NK-1)=TMB*EMSD(NK-1) + ENDIF + ENDDO + TOPOMG=(UDR(LTOP)-UER(LTOP))*DP(LTOP)*EMSD(LTOP) + + IF(ABS(TOPOMG-OMG(LTOP)).GT.1.E-3)THEN +! abb Checking ISTOP =1 + write(6,*)'I, J, =',i,j + WRITE(6,*)'ERROR: MASS DOES NOT BALANCE IN KF SCHEME; TOPOMG, OMG =',TOPOMG,OMG(LTOP) + ISTOP=1 + IPRNT=.TRUE. + EXIT iter + ENDIF + +! +!...CONVERT THETA TO T... +! + DO NK=1,LTOP + EXN(NK)=(P00/P0(NK))**(0.2854*(1.-0.28*QG(NK))) + TG(NK)=THTAG(NK)/EXN(NK) + TVG(NK)=TG(NK)*(1.+0.608*QG(NK)) + ENDDO + IF(ISHALL.EQ.1)THEN + EXIT iter + ENDIF +! +!******************************************************************* +! * +! COMPUTE NEW CLOUD AND CHANGE IN AVAILABLE BUOYANT ENERGY. * +! * +!******************************************************************* +! +!...THE FOLLOWING COMPUTATIONS ARE SIMILAR TO THAT FOR UPDRAFT +! +! THMIX=0. + TMIX=0. + QMIX=0. +! +!...FIND THE THERMODYNAMIC CHARACTERISTICS OF THE LAYER BY +!...MASS-WEIGHTING THE CHARACTERISTICS OF THE INDIVIDUAL MODEL +!...LAYERS... +! + DO NK=LC,KPBL + TMIX=TMIX+DP(NK)*TG(NK) + QMIX=QMIX+DP(NK)*QG(NK) + ENDDO + TMIX=TMIX/DPTHMX + QMIX=QMIX/DPTHMX + ES=ALIQ*EXP((TMIX*BLIQ-CLIQ)/(TMIX-DLIQ)) + QSS=0.622*ES/(PMIX-ES) +! +!...REMOVE SUPERSATURATION FOR DIAGNOSTIC PURPOSES, IF NECESSARY... +! + IF(QMIX.GT.QSS)THEN + RL=XLV0-XLV1*TMIX + CPM=CP*(1.+0.887*QMIX) + DSSDT=QSS*(CLIQ-BLIQ*DLIQ)/((TMIX-DLIQ)*(TMIX-DLIQ)) + DQ=(QMIX-QSS)/(1.+RL*DSSDT/CPM) + TMIX=TMIX+RL/CP*DQ + QMIX=QMIX-DQ + TLCL=TMIX + ELSE + QMIX=AMAX1(QMIX,0.) + EMIX=QMIX*PMIX/(0.622+QMIX) + astrt=1.e-3 + binc=0.075 + a1=emix/aliq + tp=(a1-astrt)/binc + indlu=int(tp)+1 + value=(indlu-1)*binc+astrt + aintrp=(a1-value)/binc + tlog=aintrp*alu(indlu+1)+(1-aintrp)*alu(indlu) + TDPT=(CLIQ-DLIQ*TLOG)/(BLIQ-TLOG) + TLCL=TDPT-(.212+1.571E-3*(TDPT-T00)-4.36E-4*(TMIX-T00))*(TMIX-TDPT) + TLCL=AMIN1(TLCL,TMIX) + ENDIF + TVLCL=TLCL*(1.+0.608*QMIX) + ZLCL = ZMIX+(TLCL-TMIX)/GDRY + DO NK = LC,KL + KLCL=NK + IF(ZLCL.LE.Z0(NK))THEN + EXIT + ENDIF + ENDDO + K=KLCL-1 + DLP=(ZLCL-Z0(K))/(Z0(KLCL)-Z0(K)) +! +!...ESTIMATE ENVIRONMENTAL TEMPERATURE AND MIXING RATIO AT THE LCL... +! + TENV=TG(K)+(TG(KLCL)-TG(K))*DLP + QENV=QG(K)+(QG(KLCL)-QG(K))*DLP + TVEN=TENV*(1.+0.608*QENV) + PLCL=P0(K)+(P0(KLCL)-P0(K))*DLP + THETEU(K)=TMIX*(1.E5/PMIX)**(0.2854*(1.-0.28*QMIX))* & + EXP((3374.6525/TLCL-2.5403)*QMIX*(1.+0.81*QMIX)) +! +!...COMPUTE ADJUSTED ABE(ABEG). +! + ABEG=0. + DO NK=K,LTOPM1 + NK1=NK+1 + THETEU(NK1) = THETEU(NK) + CALL tpmix2dd (p0(nk1),theteu(nk1),tgu(nk1),qgu(nk1)) + TVQU(NK1)=TGU(NK1)*(1.+0.608*QGU(NK1)-QLIQ(NK1)-QICE(NK1)) + IF(NK.EQ.K)THEN + DZZ=Z0(KLCL)-ZLCL + DILBE=((TVLCL+TVQU(NK1))/(TVEN+TVG(NK1))-1.)*DZZ + ELSE + DZZ=DZA(NK) + DILBE=((TVQU(NK)+TVQU(NK1))/(TVG(NK)+TVG(NK1))-1.)*DZZ + ENDIF + IF(DILBE.GT.0.)ABEG=ABEG+DILBE*G +! +!...DILUTE BY ENTRAINMENT BY THE RATE AS ORIGINAL UPDRAFT... +! + CALL envirtht (P0(NK1),TG(NK1),QG(NK1),THTEEG(NK1),ALIQ,BLIQ,CLIQ,DLIQ) + THETEU(NK1)=THETEU(NK1)*DDILFRC(NK1)+THTEEG(NK1)*(1.-DDILFRC(NK1)) + ENDDO +! +!...ASSUME AT LEAST 90% OF CAPE (ABE) IS REMOVED BY CONVECTION DURING +!...THE PERIOD TIMEC... +! + IF(NOITR.EQ.1)THEN + EXIT iter + ENDIF + DABE=AMAX1(ABE-ABEG,0.1*ABE) + FABE=ABEG/(ABE+1.E-8) + IF(FABE.GT.1. .and. ISHALL.EQ.0)THEN +! WRITE(98,*)'UPDRAFT/DOWNDRAFT COUPLET INCREASES CAPE AT THIS +! *GRID POINT; NO CONVECTION ALLOWED!' + RETURN + ENDIF + IF(NCOUNT.NE.1)THEN + DFDA=(FABE-FABEOLD)/(AINC-AINCOLD) + IF(DFDA.GT.0.)THEN + NOITR=1 + AINC=AINCOLD + CYCLE iter + ENDIF + ENDIF + AINCOLD=AINC + FABEOLD=FABE + IF(AINC/AINCMX.GT.0.999.AND.FABE.GT.1.05-STAB)THEN + EXIT + ENDIF + IF((FABE.LE.1.05-STAB.AND.FABE.GE.0.95-STAB) .or. NCOUNT.EQ.10)THEN + EXIT iter + ELSE + IF(NCOUNT.GT.10)THEN + EXIT + ENDIF +! +!...IF MORE THAN 10% OF THE ORIGINAL CAPE REMAINS, INCREASE THE CONVECTI +!...MASS FLUX BY THE FACTOR AINC: +! + IF(FABE.EQ.0.)THEN + AINC=AINC*0.5 + ELSE + AINC=AINC*STAB*ABE/(DABE+1.E-8) + ENDIF +! AINC=AMIN1(AINCMX,AINC) + AINC=AMIN1(AINCMX,AINC) +!...IF AINC BECOMES VERY SMALL, EFFECTS OF CONVECTION ! JSK MODS +!...WILL BE MINIMAL SO JUST IGNORE IT... ! JSK MODS + IF(AINC.LT.0.05)then + RETURN ! JSK MODS + ENDIF +! AINC=AMAX1(AINC,0.05) ! JSK MODS + TDER=TDER2*AINC + PPTFLX=PPTFL2*AINC +! IF (XTIME.LT.10.)THEN +! WRITE(98,1080)LFS,LDB,LDT,TIMEC,TADVEC,NSTEP,NCOUNT, +! * FABEOLD,AINCOLD +! ENDIF + DO NK=1,LTOP + UMF(NK)=UMF2(NK)*AINC + DMF(NK)=DMF2(NK)*AINC + DETLQ(NK)=DETLQ2(NK)*AINC + DETIC(NK)=DETIC2(NK)*AINC + UDR(NK)=UDR2(NK)*AINC + UER(NK)=UER2(NK)*AINC + DER(NK)=DER2(NK)*AINC + DDR(NK)=DDR2(NK)*AINC + ENDDO +! +!...GO BACK UP FOR ANOTHER ITERATION... +! + ENDIF + ENDDO iter +! +!...COMPUTE HYDROMETEOR TENDENCIES AS IS DONE FOR T, QV... +! +!...FRC2 IS THE FRACTION OF TOTAL CONDENSATE ! PPT FB MODS +!...GENERATED THAT GOES INTO PRECIPITIATION ! PPT FB MODS +! +! Redistribute hydormeteors according to the final mass-flux values: +! + IF(CPR.GT.0.)THEN + FRC2=PPTFLX/(CPR*AINC) ! PPT FB MODS + ELSE + FRC2=0. + ENDIF + DO NK=1,LTOP + QLPA(NK)=QL0(NK) + QIPA(NK)=QI0(NK) + QRPA(NK)=QR0(NK) + QSPA(NK)=QS0(NK) + RAINFB(NK)=PPTLIQ(NK)*AINC*FBFRC*FRC2 ! PPT FB MODS + SNOWFB(NK)=PPTICE(NK)*AINC*FBFRC*FRC2 ! PPT FB MODS + ENDDO + DO NTC=1,NSTEP +! +!...ASSIGN HYDROMETEORS CONCENTRATIONS AT THE TOP AND BOTTOM OF EACH LAY +!...BASED ON THE SIGN OF OMEGA... +! + DO NK=1,LTOP + QLFXIN(NK)=0. + QLFXOUT(NK)=0. + QIFXIN(NK)=0. + QIFXOUT(NK)=0. + QRFXIN(NK)=0. + QRFXOUT(NK)=0. + QSFXIN(NK)=0. + QSFXOUT(NK)=0. + ENDDO + DO NK=2,LTOP + IF(OMG(NK).LE.0.)THEN + QLFXIN(NK)=-FXM(NK)*QLPA(NK-1) + QIFXIN(NK)=-FXM(NK)*QIPA(NK-1) + QRFXIN(NK)=-FXM(NK)*QRPA(NK-1) + QSFXIN(NK)=-FXM(NK)*QSPA(NK-1) + QLFXOUT(NK-1)=QLFXOUT(NK-1)+QLFXIN(NK) + QIFXOUT(NK-1)=QIFXOUT(NK-1)+QIFXIN(NK) + QRFXOUT(NK-1)=QRFXOUT(NK-1)+QRFXIN(NK) + QSFXOUT(NK-1)=QSFXOUT(NK-1)+QSFXIN(NK) + ELSE + QLFXOUT(NK)=FXM(NK)*QLPA(NK) + QIFXOUT(NK)=FXM(NK)*QIPA(NK) + QRFXOUT(NK)=FXM(NK)*QRPA(NK) + QSFXOUT(NK)=FXM(NK)*QSPA(NK) + QLFXIN(NK-1)=QLFXIN(NK-1)+QLFXOUT(NK) + QIFXIN(NK-1)=QIFXIN(NK-1)+QIFXOUT(NK) + QRFXIN(NK-1)=QRFXIN(NK-1)+QRFXOUT(NK) + QSFXIN(NK-1)=QSFXIN(NK-1)+QSFXOUT(NK) + ENDIF + ENDDO +! +!...UPDATE THE HYDROMETEOR CONCENTRATION VALUES AT EACH LEVEL... +! + DO NK=1,LTOP + QLPA(NK)=QLPA(NK)+(QLFXIN(NK)+DETLQ(NK)-QLFXOUT(NK))*DTIME*EMSD(NK) + QIPA(NK)=QIPA(NK)+(QIFXIN(NK)+DETIC(NK)-QIFXOUT(NK))*DTIME*EMSD(NK) + QRPA(NK)=QRPA(NK)+(QRFXIN(NK)-QRFXOUT(NK)+RAINFB(NK))*DTIME*EMSD(NK) ! PPT FB MODS + QSPA(NK)=QSPA(NK)+(QSFXIN(NK)-QSFXOUT(NK)+SNOWFB(NK))*DTIME*EMSD(NK) ! PPT FB MODS + ENDDO + ENDDO + DO NK=1,LTOP + QLG(NK)=QLPA(NK) + QIG(NK)=QIPA(NK) + QRG(NK)=QRPA(NK) + QSG(NK)=QSPA(NK) + ENDDO +! +!...CLEAN THINGS UP, CALCULATE CONVECTIVE FEEDBACK TENDENCIES FOR THIS +!...GRID POINT... +! + IF(IPRNT)THEN + endif +! +!...SEND FINAL PARAMETERIZED VALUES TO OUTPUT FILES... +! + abb=ltop + + DO NKj=1,LTOP +! abb=ltop + K=abb-NKj+1 + DTT=(TG(K)-T0(K))*86400./TIMEC + RL=XLV0-XLV1*TG(K) + DR=-(QG(K)-Q0(K))*RL*86400./(TIMEC*CP) + UDFRC=UDR(K)*TIMEC*EMSD(K) + UEFRC=UER(K)*TIMEC*EMSD(K) + DDFRC=DDR(K)*TIMEC*EMSD(K) + DEFRC=-DER(K)*TIMEC*EMSD(K) + +! abb Reassignation of ltop (or abb) to abb2 + abb2(k)=abb + end do + + DO NK=1,KL + K=KX-NK+1 + DTT=TG(K)-T0(K) + TUC=TU(K)-T00 + IF(K.LT.LC.OR.K.GT.LTOP)TUC=0. + TDC=TZ(K)-T00 + IF((K.LT.LDB.OR.K.GT.LDT).AND.K.NE.LFS)TDC=0. + IF(T0(K).LT.T00)THEN + ES=ALIQ*EXP((BLIQ*TG(K)-CLIQ)/(TG(K)-DLIQ)) + ELSE + ES=ALIQ*EXP((BLIQ*TG(K)-CLIQ)/(TG(K)-DLIQ)) + ENDIF + QGS=ES*0.622/(P0(K)-ES) + RH0=Q0(K)/QES(K) + RHG=QG(K)/QGS + ENDDO +! +!...IF CALCULATIONS ABOVE SHOW AN ERROR IN THE MASS BUDGET, PRINT OUT A +!...TO BE USED LATER FOR DIAGNOSTIC PURPOSES, THEN ABORT RUN... +! + + IF(ISTOP.EQ.1.or.ISHALL.EQ.1)THEN + IF(ISHALL.NE.1)THEN + IF(ISTOP.EQ.1)THEN + print 90, istop +90 format(' stop in KAIN-FRITSCH because an error in the ' & + ,'mass budget value of istop is 1 ', I2) + STOP 'KAIN-FRITSCH' + ENDIF + ENDIF + ENDIF + +! +! EVALUATE MOISTURE BUDGET... +! + + QINIT=0. + QFNL=0. + DPT=0. + + do nk=1,ltop + dpt=dpt+dp(nk) + qinit=qinit+q0(nk)*ems(nk) + qinit1=qinit + qinit=qinit+(ql0(nk)+qi0(nk)+qr0(nk)+qs0(nk))*ems(nk) + qinit2=qinit + qfnl=qfnl+qg(nk)*ems(nk) + qfnl1=qfnl + qfnl=qfnl+(qlg(nk)+qig(nk)+qrg(nk)+qsg(nk))*ems(nk) + qfnl2=qfnl + end do + + QFNL=QFNL+PPTFLX*TIMEC*(1.-FBFRC) ! PPT FB MODS +! QFNL=QFNL+PPTFLX*TIMEC ! PPT FB MODS + ERR2=(QFNL-QINIT)*100./QINIT + + IF(ABS(ERR2).GT.0.05 .AND. ISTOP.EQ.0)THEN + IPRNT=.TRUE. + ISTOP=1 + print*, 'QFNL=', QFNL + print*, 'QINIT=', QINIT + print*, 'QINIT1=', QINIT1 + print*, 'QINIT2 msg=', QINIT2 + print*, 'QFNL1=', QFNL1 + print*, 'QFNL2=', QFNL2 + STOP 'QVERR' + ENDIF +! RELERR=ERR2*QINIT/(PPTFLX*TIMEC+1.E-10) +! +!...FEEDBACK TO RESOLVABLE SCALE TENDENCIES. +! +!...IF THE ADVECTIVE TIME PERIOD (TADVEC) IS LESS THAN SPECIFIED MINIMUM +!...TIMEC, ALLOW FEEDBACK TO OCCUR ONLY DURING TADVEC... +! + IF(TADVEC.LT.TIMEC)NIC=NINT(TADVEC/DT) + NCA(I,J)=NIC + IF(ISHALL.EQ.1)THEN + TIMEC = 2400. + NCA(I,J) = NTST + ENDIF + DO K=1,KX +! IF(IMOIST(INEST).NE.2)THEN +! +!...IF HYDROMETEORS ARE NOT ALLOWED, THEY MUST BE EVAPORATED OR SUBLIMAT +!...AND FED BACK AS VAPOR, ALONG WITH ASSOCIATED CHANGES IN TEMPERATURE. +!...NOTE: THIS WILL INTRODUCE CHANGES IN THE CONVECTIVE TEMPERATURE AND +!...WATER VAPOR FEEDBACK TENDENCIES AND MAY LEAD TO SUPERSATURATED VALUE +!...OF QG... +! +! FOR RAMS ACTIVATE THIS OPTION FOR NO MICROPHYSICS OR DUMPBUCKET + + IF(IMPHYS.LT.2.OR.ICLOUD.EQ.0.OR.IRAIN.EQ.0)THEN + RLC=XLV0-XLV1*TG(K) + RLS=XLS0-XLS1*TG(K) + CPM=CP*(1.+0.887*QG(K)) + TG(K)=TG(K)-(RLC*(QLG(K)+QRG(K))+RLS*(QIG(K)+QSG(K)))/CPM + QG(K)=QG(K)+(QLG(K)+QRG(K)+QIG(K)+QSG(K)) + DQIDT(K)=0. + DQRDT(K)=0. + DQSDT(K)=0. + END IF + +! RAMS MICROPHYSICS INTERACTIVE-KF OPTIONS + + IF(IMPHYS.GT.1) THEN + +! LIQUID WATER PHASES ONLY ALLOWED (IPRIS and ISNOW = 0) + + IF(IPRIS.EQ.0.OR.ISNOW.EQ.0)THEN +! +!...IF ICE PHASE IS NOT ALLOWED, MELT ALL FROZEN HYDROMETEORS... +! + CPM=CP*(1.+0.887*QG(K)) + TG(K)=TG(K)-(QIG(K)+QSG(K))*RLF/CPM + DQCDT(K)=(QLG(K)+QIG(K)-QL0(K)-QI0(K))/TIMEC + DQIDT(K)=0. + DQRDT(K)=(QRG(K)+QSG(K)-QR0(K)-QS0(K))/TIMEC + DQSDT(K)=0. + +! FOR RAMS: CONSIDER ALL TENDENCIES OF HYDROMETEORS IF MICROPHYSICS +! PARAMETERS > 1 + + ELSE +! +!...IF MIXED PHASE HYDROMETEORS ARE ALLOWED, FEED BACK CONVECTIVE TENDEN +!...OF HYDROMETEORS DIRECTLY... +! + DQCDT(K)=(QLG(K)-QL0(K))/TIMEC + DQIDT(K)=(QIG(K)-QI0(K))/TIMEC + DQRDT(K)=(QRG(K)-QR0(K))/TIMEC + DQSDT(K)=(QSG(K)-QS0(K))/TIMEC + + END IF + END IF + + + DTDT(K)=(TG(K)-T0(K))/TIMEC + DQDT(K)=(QG(K)-Q0(K))/TIMEC + ENDDO + +! comment out line below to convert to a precip tendency +! RAINCV(I,J)=DT*PPTFLX*(1.-FBFRC)/DXSQ ! PPT FB MODS + +! Final formulation for convective rainfall (rate) + + RAINCV(I,J)=PPTFLX*(1.-FBFRC)/DXSQ + +! RAINCV(I,J)=.1*.5*DT*PPTFLX/DXSQ ! PPT FB MODS +! RNC=0.1*TIMEC*PPTFLX/DXSQ + RNC=RAINCV(I,J)*NIC +! WRITE(98,*)'at NTSD =',NTSD,',No. of KF points activated =', +! * NCCNT + +END SUBROUTINE kf_eta_para + +!############################################################################## +Subroutine tpmix2 (ppa,tthes,ttu,qui,qqliq,qqice,qqnewlq,qqnewic,xxlv1,xxlv0) + +implicit none + + REAL, INTENT(IN) :: ppa,tthes,xxlv1,xxlv0 + REAL, INTENT(OUT) :: ttu,qqnewlq,qqnewic + REAL, INTENT(INOUT) :: qui,qqliq,qqice + REAL :: tp,qq,bth,tth,pp,t00,t10,t01,t11,q00,q10,q01,q11, & + TEMP,qnew,dq,qqtot,RLL,CPP + INTEGER :: IPTB,ITHTB + real :: var1, var2,a1,a2,a3 + +!*********************************************************************** +! scaling pressure & tt table index +!*********************************************************************** + + var2=qui + + tp=(ppa-plutop)*rdpr + qq=tp-aint(tp) + iptb=int(tp)+1 + +!*********************************************************************** +! base and scaling factor for the +!*********************************************************************** +! +! scaling the & tt table index + bth=(the0k(iptb+1)-the0k(iptb))*qq+the0k(iptb) + tth=(tthes-bth)*rdthk + pp =tth-aint(tth) + ithtb=int(tth)+1 + + t00=ttab(ithtb,iptb) + t10=ttab(ithtb+1,iptb) +! var2=var2+qtOt + t01=ttab(ithtb,iptb+1) + t11=ttab(ithtb+1,iptb+1) + + q00=qstab(ithtb,iptb) + q10=qstab(ithtb+1,iptb) + q01=qstab(ithtb,iptb+1) + q11=qstab(ithtb+1,iptb+1) + + a1=(q10-q00)*pp + a2=(q01-q00)*qq + a3=(q00-q10-q01+q11)*pp*qq + +! +!*********************************************************************** +! parcel temperature +!*********************************************************************** +! + temp=(t00+(t10-t00)*pp+(t01-t00)*qq+(t00-t10-t01+t11)*pp*qq) +! +! abb original formulation of qs +! qs=(q00+(q10-q00)*pp+(q01-q00)*qq+(q00-q10-q01+q11)*pp*qq) + + var1=a3+a2 + var1=var1+a1 + var1=var1+q00 + + if(var1.le.var2) then + qnew=var2-var1 + var2=var1 + else + +! IF THE PARCEL IS SUBSATURATED, TEMPERATURE AND MIXING RATIO MUST BE +! ADJUSTED...IF LIQUID WATER IS PRESENT, IT IS ALLOWED TO EVAPORATE + + qnew=0. + dq=var1-var2 + qqtOt=qqliq+qqice + +! IF THERE IS ENOUGH LIQUID OR ICE TO SATURATE THE PARCEL, TEMP STAYS AT ITS +! WET BULB VALUE, VAPOR MIXING RATIO IS AT SATURATED LEVEL, AND THE MIXING +! RATIOS OF LIQUID AND ICE ARE ADJUSTED TO MAKE UP THE ORIGINAL SATURATION +! DEFICIT... OTHERWISE, ANY AVAILABLE LIQ OR ICE VAPORIZES AND APPROPRIATE +! ADJUSTMENTS TO PARCEL TEMP; VAPOR, LIQUID, AND ICE MIXING RATIOS ARE MADE. +! +!...subsaturated values only occur in calculations involving various mixtures of +!...updraft and environmental air for estimation of entrainment and detrainment. +!...For these purposes, assume that reasonable estimates can be given using +!...liquid water saturation calculations only - i.e., ignore the effect of the +!...ice phase in this process only...will not affect conservative properties... + +! abb In the original code the if condition was: +! IF(qqtot.ge.DQ)THEN +! abb When changed to "gt" the code ran OK in cluster + + IF(qqtot.gt.DQ)THEN + qqliq=qqliq-dq*qqliq/qqtot + qqice=qqice-dq*qqice/qqtot + var2=var1 + ELSE + RLL=xxlv0-xxlv1*TEMP + CPP=1005.7*(1.+0.89*var2) + + IF(qqtot.LT.1.E-10)THEN + +!...IF NO LIQUID WATER OR ICE IS AVAILABLE, TEMPERATURE IS GIVEN BY: + TEMP=TEMP+RLL*(DQ/(1.+DQ))/CPP + ELSE + +!...IF SOME LIQ WATER/ICE IS AVAILABLE, BUT NOT ENOUGH TO ACHIEVE SATURATION, +! THE TEMPERATURE IS GIVEN BY: + + TEMP=TEMP+RLL*((DQ-qqtot)/(1+DQ-qqtot))/CPP + var2=var2+qqtot + qqtOt=0. + qqliq=0. + qqice=0. + ENDIF + ENDIF + ENDIF + ttu=TEMP + qqnewlq=qnew + qqnewic=0. + +! abb Reassign var2 + qui=var2 + +END SUBROUTINE tpmix2 + +!############################################################################## +Subroutine dtfrznew (TU,P,THTEU,QU,QFRZ,QICE,ALIQ,BLIQ,CLIQ,DLIQ) + +implicit none + + REAL, INTENT(IN ) :: P,QFRZ,ALIQ,BLIQ,CLIQ,DLIQ + REAL, INTENT(INOUT) :: TU,THTEU,QU,QICE + REAL :: RLC,RLS,RLF,CPP,A,DTFRZ,ES,QS,DQEVAP,PII + +!...ALLOW THE FREEZING OF LIQUID WATER IN THE UPDRAFT TO PROCEED AS AN +!...APPROXIMATELY LINEAR FUNC OF TEMPERATURE IN THE TEMPERATURE RANGE +!...TTFRZ TO TBFRZ... +!...FOR COLDER TERMPERATURES, FREEZE ALL LIQUID WATER... +!...THERMODYNAMIC PROPERTIES ARE STILL CALCULATED WITH RESPECT TO LIQUID WATER +!...TO ALLOW THE USE OF LOOKUP TABLE TO EXTRACT TMP FROM THETAE... + + RLC=2.5E6-2369.276*(TU-273.15) + RLS=2833922.-259.532*(TU-273.15) + RLF=RLS-RLC + CPP=1005.7*(1.+0.89*QU) + +! A = D(es)/DT IS THAT CALCULATED FROM BUCK'S (1981) EMPERICAL FORMULAS +! FOR SATURATION VAPOR PRESSURE... + + A=(CLIQ-BLIQ*DLIQ)/((TU-DLIQ)*(TU-DLIQ)) + DTFRZ = RLF*QFRZ/(CPP+RLS*QU*A) + TU = TU+DTFRZ + + ES = ALIQ*EXP((BLIQ*TU-CLIQ)/(TU-DLIQ)) + QS = ES*0.622/(P-ES) + +!...FREEZING WARMS THE AIR AND IT BECOMES UNSATURATED...ASSUME THAT SOME OF THE +!...LIQUID WATER THAT IS AVAILABLE FOR FREEZING EVAPORATES TO MAINTAIN SATURA- +!...TION...SINCE THIS WATER HAS ALREADY BEEN TRANSFERRED TO THE ICE CATEGORY, +!...SUBTRACT IT FROM ICE CONCENTRATION, THEN SET UPDRAFT MIXING RATIO AT THE NEW +!...TEMPERATURE TO THE SATURATION VALUE... + + DQEVAP = QS-QU + QICE = QICE-DQEVAP + QU = QU+DQEVAP + PII=(1.E5/P)**(0.2854*(1.-0.28*QU)) + THTEU=TU*PII*EXP((3374.6525/TU-2.5403)*QU*(1.+0.81*QU)) + +END SUBROUTINE dtfrznew + +!############################################################################## +Subroutine condload (QLIQ,QICE,WTW,DZ,BOTERM,ENTERM,RATE,QNEWLQ, & + QNEWIC,QLQOUT,QICOUT,G) + +implicit none + +!----------------------------------------------------------------------- +! 9/18/88...THIS PRECIPITATION FALLOUT SCHEME IS BASED ON THE SCHEME US +! BY OGURA AND CHO (1973). LIQUID WATER FALLOUT FROM A PARCEL IS CAL- +! CULATED USING THE EQUATION DQ=-RATE*Q*DT, BUT TO SIMULATE A QUASI- +! CONTINUOUS PROCESS, AND TO ELIMINATE A DEPENDENCY ON VERTICAL +! RESOLUTION THIS IS EXPRESSED AS Q=Q*EXP(-RATE*DZ). + + REAL, INTENT(IN ) :: G + REAL, INTENT(IN ) :: DZ,BOTERM,ENTERM,RATE + REAL, INTENT(INOUT) :: QLQOUT,QICOUT,WTW,QLIQ,QICE,QNEWLQ,QNEWIC + REAL :: QTOT,QNEW,QEST,G1,WAVG,CONV,RATIO3,OLDQ,RATIO4,DQ,PPTDRG + + +! 9/18/88...THIS PRECIPITATION FALLOUT SCHEME IS BASED ON THE SCHEME US +! BY OGURA AND CHO (1973). LIQUID WATER FALLOUT FROM A PARCEL IS CAL- +! CULATED USING THE EQUATION DQ=-RATE*Q*DT, BUT TO SIMULATE A QUASI- +! CONTINUOUS PROCESS, AND TO ELIMINATE A DEPENDENCY ON VERTICAL +! RESOLUTION THIS IS EXPRESSED AS Q=Q*EXP(-RATE*DZ). + + QTOT=QLIQ+QICE + QNEW=QNEWLQ+QNEWIC + +! +! ESTIMATE THE VERTICAL VELOCITY SO THAT AN AVERAGE VERTICAL VELOCITY +! BE CALCULATED TO ESTIMATE THE TIME REQUIRED FOR ASCENT BETWEEN MODEL +! LEVELS... +! + + QEST=0.5*(QTOT+QNEW) + G1=WTW+BOTERM-ENTERM-2.*G*DZ*QEST/1.5 + IF(G1.LT.0.0)G1=0. + WAVG=0.5*(SQRT(WTW)+SQRT(G1)) + CONV=RATE*DZ/WAVG +! +! RATIO3 IS THE FRACTION OF LIQUID WATER IN FRESH CONDENSATE, RATIO4 IS +! THE FRACTION OF LIQUID WATER IN THE TOTAL AMOUNT OF CONDENSATE INVOLV +! IN THE PRECIPITATION PROCESS - NOTE THAT ONLY 60% OF THE FRESH CONDEN +! SATE IS IS ALLOWED TO PARTICIPATE IN THE CONVERSION PROCESS... +! + RATIO3=QNEWLQ/(QNEW+1.E-10) +! OLDQ=QTOT + QTOT=QTOT+0.6*QNEW + OLDQ=QTOT + RATIO4=(0.6*QNEWLQ+QLIQ)/(QTOT+1.E-10) + QTOT=QTOT*EXP(-CONV) +! +! DETERMINE THE AMOUNT OF PRECIPITATION THAT FALLS OUT OF THE UPDRAFT +! PARCEL AT THIS LEVEL... +! + DQ=OLDQ-QTOT + QLQOUT=RATIO4*DQ + QICOUT=(1.-RATIO4)*DQ +! +! ESTIMATE THE MEAN LOAD OF CONDENSATE ON THE UPDRAFT IN THE LAYER, CAL +! LATE VERTICAL VELOCITY +! + PPTDRG=0.5*(OLDQ+QTOT-0.2*QNEW) + WTW=WTW+BOTERM-ENTERM-2.*G*DZ*PPTDRG/1.5 + +! +! DETERMINE THE NEW LIQUID WATER AND ICE CONCENTRATIONS INCLUDING LOSSE +! DUE TO PRECIPITATION AND GAINS FROM CONDENSATION... +! + QLIQ=RATIO4*QTOT+RATIO3*0.4*QNEW + QICE=(1.-RATIO4)*QTOT+(1.-RATIO3)*0.4*QNEW + QNEWLQ=0. + QNEWIC=0. + +END SUBROUTINE condload + +!############################################################################## +Subroutine prof5 (EQ,EE,UD) + +!*********************************************************************** +!***** GAUSSIAN TYPE MIXING PROFILE....****************************** +! THIS BROUTINE INTEGRATES THE AREA UNDER THE CURVE IN THE GAUSSIAN +! DISTRIBUTION...THE NUMERICAL APPROXIMATION TO THE INTEGRAL IS TAKEN F +! "HANDBOOK OF MATHEMATICAL FUNC WITH FORMULAS, GRAPHS AND MATHEMA +! TABLES" ED. BY ABRAMOWITZ AND STEGUN, NAT'L BUREAU OF STANDARDS APPLI +! MATHEMATICS SERIES. JUNE, 1964., MAY, 1968. +! JACK KAIN +! 7/6/89 +!----------------------------------------------------------------------- + +implicit none + + REAL, INTENT(IN ) :: EQ + REAL, INTENT(INOUT) :: EE,UD + REAL :: SQRT2P,A1,A2,A3,P,SIGMA,FE,X,Y,EY,E45,T1,T2,C1,C2 + + DATA SQRT2P,A1,A2,A3,P,SIGMA,FE/2.506628,0.4361836,-0.1201676, & + 0.9372980,0.33267,0.166666667,0.202765151/ + X=(EQ-0.5)/SIGMA + Y=6.*EQ-3. + EY=EXP(Y*Y/(-2)) + E45=EXP(-4.5) + T2=1./(1.+P*ABS(Y)) + T1=0.500498 + C1=A1*T1+A2*T1*T1+A3*T1*T1*T1 + C2=A1*T2+A2*T2*T2+A3*T2*T2*T2 + IF(Y.GE.0.)THEN + EE=SIGMA*(0.5*(SQRT2P-E45*C1-EY*C2)+SIGMA*(E45-EY))-E45*EQ*EQ/2. + UD=SIGMA*(0.5*(EY*C2-E45*C1)+SIGMA*(E45-EY))-E45*(0.5+EQ*EQ/2.- & + EQ) + ELSE + EE=SIGMA*(0.5*(EY*C2-E45*C1)+SIGMA*(E45-EY))-E45*EQ*EQ/2. + UD=SIGMA*(0.5*(SQRT2P-E45*C1-EY*C2)+SIGMA*(E45-EY))-E45*(0.5+EQ* & + EQ/2.-EQ) + ENDIF + EE=EE/FE + UD=UD/FE + +END SUBROUTINE prof5 + +!############################################################################## +Subroutine tpmix2dd (p,thes,ts,varqs) + +implicit none + +!----------------------------------------------------------------------- + REAL, INTENT(IN) :: P,THES + REAL, INTENT(OUT) :: TS,varqs + REAL :: TP,QQ,BTH,TTH,PP,T00,T10,T01,T11,Q00,Q10,Q01,Q11 + INTEGER :: IPTB,ITHTB +!----------------------------------------------------------------------- + +!*********************************************************************** +! scaling pressure & tt table index +!*********************************************************************** + + tp=(p-plutop)*rdpr + qq=tp-aint(tp) + iptb=int(tp)+1 + +!*********************************************************************** +! base and scaling factor for the +!*********************************************************************** + +! scaling the & tt table index + bth=(the0k(iptb+1)-the0k(iptb))*qq+the0k(iptb) + tth=(thes-bth)*rdthk + pp =tth-aint(tth) + ithtb=int(tth)+1 + + t00=ttab(ithtb ,iptb ) + t10=ttab(ithtb+1,iptb ) + t01=ttab(ithtb ,iptb+1) + t11=ttab(ithtb+1,iptb+1) + + q00=qstab(ithtb ,iptb ) + q10=qstab(ithtb+1,iptb ) + q01=qstab(ithtb ,iptb+1) + q11=qstab(ithtb+1,iptb+1) + +! parcel temperature and saturation mixing ratio + ts=(t00+(t10-t00)*pp+(t01-t00)*qq+(t00-t10-t01+t11)*pp*qq) + varqs=(q00+(q10-q00)*pp+(q01-q00)*qq+(q00-q10-q01+q11)*pp*qq) + +END SUBROUTINE tpmix2dd + +!############################################################################## +Subroutine envirtht (P1,T1,Q1,THT1,ALIQ,BLIQ,CLIQ,DLIQ) + +implicit none + + REAL, INTENT(IN ) :: P1,T1,Q1,ALIQ,BLIQ,CLIQ,DLIQ + REAL, INTENT(INOUT) :: THT1 + REAL :: EE,TLOG,ASTRT,AINC,A1,TP,VALUE,AINTRP,TDPT,TSAT,THT, & + T00,P00,C1,C2,C3,C4,C5 + INTEGER :: INDLU + + DATA T00,P00,C1,C2,C3,C4,C5/273.15,1.E5,3374.6525,2.5403,3114.834, & + 0.278296,1.0723E-3/ + +! CALCULATE ENVIRONMENTAL EQUIVALENT POTENTIAL TEMPERATURE... +! NOTE: Calculations for mixed/ice phase no longer used...jsk 8/00 + + EE=Q1*P1/(0.622+Q1) +! TLOG=ALOG(EE/ALIQ) +! ...calculate LOG term using lookup table... + + astrt=1.e-3 + ainc=0.075 + a1=ee/aliq + tp=(a1-astrt)/ainc + indlu=int(tp)+1 + value=(indlu-1)*ainc+astrt + aintrp=(a1-value)/ainc + tlog=aintrp*alu(indlu+1)+(1-aintrp)*alu(indlu) + + TDPT=(CLIQ-DLIQ*TLOG)/(BLIQ-TLOG) + TSAT=TDPT-(.212+1.571E-3*(TDPT-T00)-4.36E-4*(T1-T00))*(T1-TDPT) + THT=T1*(P00/P1)**(0.2854*(1.-0.28*Q1)) + THT1=THT*EXP((C1/TSAT-C2)*Q1*(1.+0.81*Q1)) + +END SUBROUTINE envirtht + +!############################################################################## +Subroutine kf_lutab (SVP1,SVP2,SVP3,SVPT0) + +!This routine is a lookup table. +!Given a series of series of saturation equivalent potential +!temperatures, the temperature is calculated. + +implicit none + +!Lookup table variables: +! INTEGER, SAVE, PARAMETER :: KFNT=250,KFNP=220 +! REAL, SAVE, DIMENSION(1:KFNT,1:KFNP) :: TTAB,QSTAB +! REAL, SAVE, DIMENSION(1:KFNP) :: THE0K +! REAL, SAVE, DIMENSION(1:200) :: ALU +! REAL, SAVE :: RDPR,RDTHK,PLUTOP +!End of Lookup table variables: + + INTEGER :: KP,IT,ITCNT,I + REAL :: DTH,TMIN,TOLER,PBOT,DPR, & + TEMP,P,ES,QS,PI,THES,TGUES,THGUES,F0,T1,T0,F1,DT, & + ASTRT,AINC,A1,THTGS + REAL :: ALIQ,BLIQ,CLIQ,DLIQ,SVP1,SVP2,SVP3,SVPT0 + +! equivalent potential temperature increment + data dth/1./ +! minimum starting temp + data tmin/150./ +! tolerance for accuracy of temperature + data toler/0.001/ +! top pressure (pascals) + plutop=100.0 +! bottom pressure (pascals) + pbot=110000.0 + + ALIQ = SVP1*1000. + BLIQ = SVP2 + CLIQ = SVP2*SVPT0 + DLIQ = SVP3 + +! compute parameters + +! 1./(sat. equiv. theta increment) + rdthk=1./dth +! pressure increment + dpr=(pbot-plutop)/float(kfnp-1) +! 1./(pressure increment) + rdpr=1./dpr + +! compute the spread of thes +! thespd=dth*(kfnt-1) + +! calculate the starting sat. equiv. theta + temp=tmin + p=plutop-dpr + es=aliq*exp((bliq*temp-cliq)/(temp-dliq)) + + do kp=1,kfnp + p=p+dpr +! es=aliq*exp((bliq*temp-cliq)/(temp-dliq)) + qs=0.622*es/(p-es) + pi=(1.e5/p)**(0.2854*(1.-0.28*qs)) + the0k(kp)=temp*pi*exp((3374.6525/temp-2.5403)*qs*(1.+0.81*qs)) + enddo + +! compute temperatures for each sat. equiv. potential temp. + + p=plutop-dpr + do kp=1,kfnp + thes=the0k(kp)-dth + p=p+dpr + do it=1,kfnt +! define sat. equiv. pot. temp. + thes=thes+dth +! iterate to find temperature +! find initial guess + if(it.eq.1) then + tgues=tmin + else + tgues=ttab(it-1,kp) + endif + es=aliq*exp((bliq*tgues-cliq)/(tgues-dliq)) + qs=0.622*es/(p-es) + pi=(1.e5/p)**(0.2854*(1.-0.28*qs)) + thgues=tgues*pi*exp((3374.6525/tgues-2.5403)*qs* & + (1.+0.81*qs)) + f0=thgues-thes + t1=tgues-0.5*f0 + t0=tgues + itcnt=0 +! iteration loop + + do itcnt=1,11 + es=aliq*exp((bliq*t1-cliq)/(t1-dliq)) + qs=0.622*es/(p-es) + pi=(1.e5/p)**(0.2854*(1.-0.28*qs)) + thtgs=t1*pi*exp((3374.6525/t1-2.5403)*qs*(1.+0.81*qs)) + f1=thtgs-thes + if(abs(f1).lt.toler)then + exit + endif +! itcnt=itcnt+1 + dt=f1*(t1-t0)/(f1-f0) + t0=t1 + f0=f1 + t1=t1-dt +! if(itcnt.eq.11) then +! endif + enddo + + ttab(it,kp)=t1 + qstab(it,kp)=qs + enddo + enddo + +! lookup table for tlog(emix/aliq) + +! set up intial values for lookup tables + + astrt=1.e-3 + ainc=0.075 + + a1=astrt-ainc + do i=1,200 + a1=a1+ainc + alu(i)=alog(a1) + enddo + +END SUBROUTINE kf_lutab + +END MODULE cu_kfeta + diff --git a/src/6.2.16/cuparm/kf_driver.f90 b/src/6.2.16/cuparm/kf_driver.f90 new file mode 100644 index 0000000..1af3cc1 --- /dev/null +++ b/src/6.2.16/cuparm/kf_driver.f90 @@ -0,0 +1,500 @@ +!############################################################################## +! KAIN-FRITSCH CUMULUS PARAMETERIZATION SCHEME +! RAMS VERSION 4.3.0 +! KFDRIVER.F90 +! Updated July 2002 +! +! INPUT VARIABLES: +! +! mzp: k-dim of array - 0-D +! mxp: i-dim of array - 0-D +! myp: j-dim of array - 0-D +! ia: beginning i-index - 0-D +! iz: ending i-index - 0-D +! ja: beginning j-index - 0-D +! jz: ending j-index - 0-D +! imphys: microphysics flag from RAMSIN +! icloud: cloud water flag from RAMSIN +! irain: rain water flag from RAMSIN +! ipris: pristine ice flag from RAMSIN +! isnow: snow flag from RAMSIN +! idiffk: turbulence parameterization flag +! up: u-wind (m/s) - 3-D +! vp: v-wind (m/s) - 3-D +! wp: w-wind (m/s) - 3-D +! theta: pot'l temp (K) - 3-D +! theta_il: ice-liquid pot'l temp (K) - 3-D +! pi_p: Exner func perturbation - 3-D +! dpidt: Exner func tendency +! rv: water vapor mixing ratio (kg/kg) - 3-D +! r_cloud: cloud water mixing ratio (kg/kg) - 3-D +! r_rain: rain water mixing ratio (kg/kg) - 3-D +! r_snow: snow mixing ratio (kg/kg) - 3-D +! r_hail: hail mixing ratio (kg/kg) - 3-D +! r_p_ice: pristine ice mixing ratio (kg/kg) - 3-D +! r_agg: aggregate mixing ratio (kg/kg) - 3-D +! r_graup: graupel mixing ratio (kg/kg) - 3-D +! rtgt: 1-z_topo/z_top - 2-D +! topo: z-topo - 2-D +! dzt_i: inverse of sigma_z spacing (m^(-1)) - 1-D +! zt: model height (m) +! dxt_i: inverse of delta x spacing (m^(-1)) - 2-D +! dyt_i: inverse of delta y spacing (m^(-1)) - 2-D +! nca_rams: integer counter keeping track of number of time +! steps that convective tendencies maintained - 2-D +! if nca > 0: maintain given convective tendencies +! from previous timestep and do not call KF scheme +! if nca < 0: KF scheme is called, if necessary, and +! convective tendencies updated +! convgo: integer which keeps track if pre-convection checks +! satisfied. If they are, convgo=1 and dumpbucket +! scheme is not activated at the same grid point. - 2-D +! w0avg_rams: a running mean average of vertical velocity - 3-D +! w0avglt_rams: a running mean average of the horizontal +! components of the contravariant vertical velocity - 3-D +! tke: turbulent kinetic energy (only used for Mellor-Yamada option) +! dt: RAMS model time step in sec - 0-D +! +! OUTPUT: +! +! dthildt: theta_il tendency from K-F CPS (K/s) +! dqtdt: total water mixing ratio tendency from K-F CPS (kg/(kg s)) +! dqcdt**: cloud water mixing ratio tendency from K-F CPS (kg/(kg s)) +! dqrdt**: rain water mixing ratio tendency from K-F CPS (kg/(kg s)) +! dqsdt**: snow mixing ratio tendency from K-F CPS (kg/(kg s)) +! dqidt**: ice mixing ratio tendency from K-F CPS (kg/(kg s)) +! conprr: convective precip rate (kg/(m^2 s)) +! +! ** Used only for full microphysics + +!############################################################################## +Subroutine kfdrive (mzp,mxp,myp,ia,iz,ja,jz,imphys,icloud, & + irain,ipris,isnow,idiffk, & + up,vp,theta,theta_il,pi_p, & + pi_0,dpidt,rv,rtgt,topo,dzt_i,zt, & + dxt_i,nca_rams,convgo_rams,w0avg_rams,w0avglt_rams, & + tke,dt, & + dthildt,dqtdt,dqcdt,dqrdt,dqsdt,dqidt,conprr,j_lu) + +!The following code to drive the version of the KF scheme used is +!similar to that in the WRF model in 1-D (stand-alone) mode..jsk 8/11/00 + +use cu_kfeta +use mem_grid, only:iprntstmt,ngrid,print_msg +use mem_micro +use micphys, only:jnmb + +implicit none + + integer :: j_lu,imphys,icloud,irain,ipris,isnow,idiffk + integer :: mzp,mxp,myp,ia,iz,ja,jz + real, dimension(mzp,mxp,myp) :: up,vp,theta,theta_il, & + pi_p,pi_0,dpidt,rv,w0avg_rams,w0avglt_rams, & + tke,dthildt,dqtdt,dqcdt,dqrdt,dqsdt,dqidt + + real, dimension(:,:,:), allocatable :: r_cloud,r_rain,r_p_ice,r_snow & + ,r_agg,r_graup,r_hail + + real, dimension(mxp,myp) :: rtgt, topo, dxt_i, conprr + + integer, dimension(mxp,myp) :: nca_rams,convgo_rams + + real, dimension(mzp) :: dzt_i,zt + + integer :: k200, flag2, k400, flag4, isink, kfgo + + integer :: ka + real :: topo_t + +! intermediate variables + + real :: r_liq, r_sol, press, dpdt, temp_k +! --------------------------------------------------------------- +! +! The following variable declarations for variable which are directly +! ingested by the KF scheme follow the format used for the WRF +! interface +! + INTEGER, PARAMETER :: kts=1,kte=500 !max number of k levels + INTEGER, PARAMETER :: ids=1,ide=1 + INTEGER, PARAMETER :: jds=1,jde=1 + INTEGER, PARAMETER :: kds=1,kde=1 + INTEGER, PARAMETER :: ims=1,ime=1 + INTEGER, PARAMETER :: jms=1,jme=1 + INTEGER, PARAMETER :: kms=1,kme=500 !max number of k levels + INTEGER, PARAMETER :: its=1,ite=1 + INTEGER, PARAMETER :: jts=1,jte=1 + INTEGER, PARAMETER :: P_QI=1 ! mods for 1-d version + INTEGER, PARAMETER :: P_QS=0 ! mods for 1-d version + REAL, PARAMETER :: XLV0 = 3.15E6 + REAL, PARAMETER :: XLV1 = 2370. + REAL, PARAMETER :: XLS0 = 2.905E6 + REAL, PARAMETER :: XLS1 = 259.532 + REAL, PARAMETER :: CP=1005.7,R=287.,G=9.81 + + INTEGER :: NTST ! number of time steps in 600 sec + ! formula taken from MM5 + + REAL :: DT,DX,DXSQ + + REAL :: TOPO1D + + REAL, DIMENSION( kts:kte ) :: & + DQDT1D, & + DQIDT1D, & + DQCDT1D, & + DQRDT1D, & + DQSDT1D, & + DTDT1D + + INTEGER, DIMENSION( ims:ime , jms:jme ) :: NCA + + REAL, DIMENSION( ims:ime , jms:jme ) :: RAINCV + + REAL, DIMENSION( kts:kte ) :: & + U1D, & + V1D, & + T1D, & + DZ1D, & + QV1D, & + P1D, & + DPDT1D, & + W0AVG1D, & + W0AVG1DLT, & + TKE1D, & + HZ1D, & + SZ1D + + REAL, DIMENSION( kts:kte ) :: DP + + INTEGER :: K + INTEGER :: II, JJ ! add integers for outer-loop: 2001-05-16 + + REAL :: T00 + REAL , PARAMETER :: SVP1=0.6112 + REAL , PARAMETER :: SVP2=17.67 + REAL , PARAMETER :: SVP3=29.65 + REAL , PARAMETER :: SVPT0=273.15 + + ! Scratch arrays + allocate(r_cloud(mzp,mxp,myp)) + allocate(r_rain(mzp,mxp,myp)) + allocate(r_p_ice(mzp,mxp,myp)) + allocate(r_snow(mzp,mxp,myp)) + allocate(r_agg(mzp,mxp,myp)) + allocate(r_graup(mzp,mxp,myp)) + allocate(r_hail(mzp,mxp,myp)) + + if(iprntstmt>=1 .and. print_msg) print*,'Start Kain-Fritsch Driver' + + NTST=NINT(600./DT) ! number of time steps in 600 sec + + T00=273.15 + + +! Loop through all gridpoints to +! 1) Check for convection +! 2) Update convective tendencies + +! ----- see if nca_rams is negative, if so call KFPARA --------- + +do jj=ja,jz + do ii=ia,iz + + do k = 1, mzp + r_cloud(k,ii,jj) = 0.0 + r_rain(k,ii,jj) = 0.0 + r_p_ice(k,ii,jj) = 0.0 + r_snow(k,ii,jj) = 0.0 + r_agg(k,ii,jj) = 0.0 + r_graup(k,ii,jj) = 0.0 + r_hail(k,ii,jj) = 0.0 + if (jnmb(1) >= 1) r_cloud(k,ii,jj) = micro_g(ngrid)%rcp(k,ii,jj) + if (jnmb(2) >= 1) r_rain(k,ii,jj) = micro_g(ngrid)%rrp(k,ii,jj) + if (jnmb(3) >= 1) r_p_ice(k,ii,jj) = micro_g(ngrid)%rpp(k,ii,jj) + if (jnmb(4) >= 1) r_snow(k,ii,jj) = micro_g(ngrid)%rsp(k,ii,jj) + if (jnmb(5) >= 1) r_agg(k,ii,jj) = micro_g(ngrid)%rap(k,ii,jj) + if (jnmb(6) >= 1) r_graup(k,ii,jj) = micro_g(ngrid)%rgp(k,ii,jj) + if (jnmb(7) >= 1) r_hail(k,ii,jj) = micro_g(ngrid)%rhp(k,ii,jj) + enddo + + if (nca_rams(ii,jj).gt.0) then + convgo_rams(ii,jj)=1 + endif + +! If the NCA array is less than 0, then convection is NOT active. +! If pre-convection checks satified, KF scheme is activated. + + if (nca_rams(ii,jj).le.0) then + + convgo_rams(ii,jj)=0 + dx=1./dxt_i(ii,jj) + DXSQ = DX*DX + + if (j_lu.eq.1) then + CALL kf_lutab (SVP1,SVP2,SVP3,SVPT0) + j_lu=0 + endif + +!-------------------------------------------------------------------- + +! Define arrays to be passed to KF_eta_PARA (1D arrays) +! All arrays interpolated to T-point according to the +! staggered Arakawa C-grid in RAMS. Pressure terms created +! using Exner func + + topo1d=topo(ii,jj) + topo_t = 0. + + do k = 1, mzp-3 + ka = k+1 + + p1d (k)=1.0e5*((pi_0(ka,ii,jj)+pi_p(ka,ii,jj))/cp)**(cp/r) + + !Saleeby(2006): Included absolute value func and + ! following if statement to keep positive + dpdt1d (k)=1.0e5*(abs(dpidt(ka,ii,jj))/cp)**(cp/r) + if(dpidt(ka,ii,jj).lt.0.) dpdt1d(k)=-dpdt1d(k) + + t1d (k)=theta(ka,ii,jj)*((pi_0(ka,ii,jj)+pi_p(ka,ii,jj))/cp) + qv1d(k)=rv(ka,ii,jj) + if (qv1d(k).lt.0.) qv1d(k)=0. + u1d (k)=0.5*(up(ka,ii,jj)+up(ka,ii-1,jj)) + v1d (k)=0.5*(vp(ka,ii,jj)+vp(ka,ii,jj-1)) + w0avg1d(k)=0.5*(w0avg_rams(ka-1,ii,jj)+ & + w0avg_rams(ka,ii,jj)) + w0avg1dlt(k)=0.5*(w0avglt_rams(ka-1,ii,jj)+ & + w0avglt_rams(ka,ii,jj)) + +!Saleeby(2009):Only try to initialize tke1d if TKE is predicted by Mellor-Yamada +! otherwise segmentation faults can occur since array allocation is not executed + if(idiffk==1) then + tke1d(k)=tke(ka,ii,jj) + else + tke1d(k)=0.0 + endif + + dz1d(k) =rtgt(ii,jj)/dzt_i(ka) + +! Dry and Moist static energy + sz1d(k)=cp*t1d(k)+G*(zt(ka)*rtgt(ii,jj)-topo_t) + hz1d(k)=cp*t1d(k)+G*(zt(ka)*rtgt(ii,jj)-topo_t)+(2.5e6)*qv1d(k) + +! Formulation for dp + if(ka.eq.mzp) then + dp(k)=(1.0e5* & + ((pi_0(ka-1,ii,jj)+pi_p(ka-1,ii,jj))/cp)**(cp/r)- & + 1.0e5*((pi_0(ka,ii,jj)+pi_p(ka,ii,jj))/cp)**(cp/r)) + else + dp(k)=(1.0e5* & + ((pi_0(ka-1,ii,jj)+pi_p(ka-1,ii,jj))/cp)**(cp/r)+ & + 1.0e5*((pi_0(ka,ii,jj)+pi_p(ka,ii,jj))/cp)**(cp/r))/2 - & + (1.0e5*((pi_0(ka+1,ii,jj)+pi_p(ka+1,ii,jj))/cp)**(cp/r) + & + 1.0e5*((pi_0(ka,ii,jj)+pi_p(ka,ii,jj))/cp)**(cp/r))/2 + endif + + enddo ! end k-loop and 1D variable assignments + +!--------------------------------------------------------------- + +! Convection initition checks: if satisfied kfgo=1 + + kfgo=0 + flag2=0 + flag4=0 + k200=0 + k400=0 + + do k=2,mzp-3 + +! Determine height of lowest 200-mb + + if(p1d(k).lt.p1d(1)-2.0e4.and.flag2.ne.1) then + k200=k + flag2=1 + endif + +! Determine height of the lowest 400-mb + + if(p1d(k).lt.p1d(1)-4.0e4.and.flag4.ne.1) then + k400=k + flag4=1 + endif + + enddo + +! Determine if air is sinking everywhere in the lowest 400-mb + + isink=1 + + do k=1,k400 + if(w0avg1d(k).gt.0) then + isink=0 + endif + enddo + +! If air is sinking everywhere, require a superadiabatic layer in the +! lowest 200-mb + + if(isink.eq.1) then + do k=2,k200 + if(sz1d(k).gt.sz1d(k+1)) then + kfgo=1 + endif + enddo + + elseif(isink.eq.0) then + ! If upward motion, require conditional instability in the lowest 400-mb + do k=2,k400 + if(hz1d(k).gt.hz1d(k+1)) then + kfgo=1 + endif + enddo + endif + + convgo_rams(ii,jj)=kfgo + NCA(1,1)=nca_rams(ii,jj) + +! If pre-convection checks satified AND NCA array < 0, then +! activate KF scheme + + if(kfgo.eq.1) then + CALL kf_eta_para (1, 1, & + U1D,V1D,T1D,QV1D,P1D,DZ1D, & + W0AVG1D,W0AVG1DLT,TKE1D,TOPO1D,DT,DX,DXSQ, & + IMPHYS,ICLOUD,IRAIN,IPRIS,ISNOW,IDIFFK, & + XLV0,XLV1,XLS0,XLS1,CP,R,G, & + DQDT1D,DQIDT1D,DQCDT1D,DQRDT1D,DQSDT1D,DTDT1D, & + RAINCV,NCA,NTST, & + ims,ime, jms,jme, & + kts,mzp-3,dp) + + nca_rams(ii,jj)=NCA(1,1) + endif + +! Update the tendencies if NCA > 0 + + if (nca_rams(ii,jj).gt.0) then + + do k=1,mzp-2 + ka = k+1 + + press=1.0e5*((pi_0(ka,ii,jj)+pi_p(ka,ii,jj))/cp)**(cp/r) + + !Saleeby(2017): Included absolute value func and + ! following if statement to keep positive in the event + ! of small negative pressure changes + dpdt=(abs(dpidt(ka,ii,jj))/cp)**(cp/r) + if(dpidt(ka,ii,jj).lt.0.) dpdt=-dpdt + + temp_k=theta(ka,ii,jj)*(press/1.0e5)**(r/cp) + + r_liq=r_cloud(ka,ii,jj)+r_rain(ka,ii,jj) + + if (r_liq.lt.0.) r_liq=0. + + r_sol=r_snow(ka,ii,jj)+r_hail(ka,ii,jj)+ & + r_p_ice(ka,ii,jj)+r_agg(ka,ii,jj)+ & + r_graup(ka,ii,jj) + + if (r_sol.lt.0.) r_sol=0. + + +! Heating and moisture tendency terms: Full microphysics option +! Equation for theta_il tendency derived from equation 2.52 +! in Storm and Cloud Dynamics, by Cotton and Anthes + + if(imphys.ge.2) then + + if(temp_k.le.253) then + + dthildt(ka,ii,jj)=((((1.0e5/press)**(r/cp))* & + (temp_k*(-r/cp)*(1/press)*dpdt+dtdt1d(k)))- & + theta_il(ka,ii,jj)*(2.5e6*(dqcdt1d(k)+dqrdt1d(k)) & + +2.83e6*(dqidt1d(k)+dqsdt1d(k)))/ & + (cp*amax1(temp_k,253.)))/ & + (1+(2.5e6*r_liq+2.83e6*r_sol)/ & + (cp*amax1(temp_k,253.))) + + else + + dthildt(ka,ii,jj)=((((1.0e5/press)**(r/cp))* & + (temp_k*(-r/cp)*(1/press)*dpdt+dtdt1d(k)))- & + theta_il(ka,ii,jj)*((2.5e6*(dqcdt1d(k)+dqrdt1d(k))& + +2.83e6*(dqidt1d(k)+dqsdt1d(k)))/(cp*temp_k)) & + +theta_il(ka,ii,jj)*((2.5e6*r_liq*dtdt1d(k)+ & + 2.83e6*r_sol*dtdt1d(k))/ & + (cp*temp_k*temp_k)))/ & + (1+(2.5e6*r_liq+2.83e6*r_sol)/ & + (cp*amax1(temp_k,253.))) + + endif + + dqtdt(ka,ii,jj)=dqdt1d(k)+dqidt1d(k)+dqcdt1d(k) & + +dqrdt1d(k)+dqsdt1d(k) + + dqidt(ka,ii,jj)=dqidt1d(k) + dqcdt(ka,ii,jj)=dqcdt1d(k) + dqrdt(ka,ii,jj)=dqrdt1d(k) + dqsdt(ka,ii,jj)=dqsdt1d(k) + + else + +! Heating and moisture tendency terms: No microphysics + + dthildt(ka,ii,jj)=((((1.0e5/press)**(r/cp))*(temp_k* & + (-r/cp)*(1/press)*dpdt+dtdt1d(k)))) + + dqtdt(ka,ii,jj)=dqdt1d(k) + dqidt(ka,ii,jj)=0. + dqcdt(ka,ii,jj)=0. + dqrdt(ka,ii,jj)=0. + dqsdt(ka,ii,jj)=0. + + endif + + enddo ! end k-loop + +! Convective precipitation rate from KF + if (raincv(1,1).ge.0.) conprr(ii,jj)=raincv(1,1) + + dthildt(1,ii,jj)=0. + dthildt(mzp,ii,jj)=0. + dqtdt(1,ii,jj)=0. + dqtdt(mzp,ii,jj)=0. + + endif ! endif for NCA > 0 condition + ! when K-F have been activated + ! therefore should update tendencies + + endif ! endif for first NCA < 0 condition + +! If NCA < 0 after checking for convection in KF, then tendency +! terms are = 0. + + if (nca_rams(ii,jj).le.0) then + do k = 1,mzp + dthildt(k,ii,jj)=0. + dqtdt(k,ii,jj)=0. + dqidt(k,ii,jj)=0. + dqcdt(k,ii,jj)=0. + dqrdt(k,ii,jj)=0. + dqsdt(k,ii,jj)=0. + enddo + conprr(ii,jj)=0. + + endif + + enddo ! end ii-loop +enddo ! end jj-loop + +deallocate(r_cloud) +deallocate(r_rain) +deallocate(r_p_ice) +deallocate(r_snow) +deallocate(r_agg) +deallocate(r_graup) +deallocate(r_hail) + +return +END SUBROUTINE kfdrive diff --git a/src/6.2.16/cuparm/kf_rconv.f90 b/src/6.2.16/cuparm/kf_rconv.f90 new file mode 100644 index 0000000..c946e04 --- /dev/null +++ b/src/6.2.16/cuparm/kf_rconv.f90 @@ -0,0 +1,325 @@ +!############################################################################## +! KAIN-FRITSCH CUMULUS PARAMETERIZATION SCHEME +! Updated July 2002 +! +! RAMS-KF interface originally written, modified, and tested by: +! +! Christopher L. Castro* +! William Y.Y. Cheng +! Adriana B. Beltran +! +! Department of Atmospheric Science +! Colorado State University +! Fort Collins, CO 80523 +! +! *E-mail contact: chris@atmos.colostate.edu +! +! References: +! +! Castro, C.L., W.Y.Y. Cheng, A.B. Beltran, R.A. Pielke, Sr., and +! W.R. Cotton, 2002. The Incorporation of the Kain-Fritsch Cumulus +! Parameterization Scheme in RAMS. In preparation. +! +! Kain, J.S., and J.M. Fritsch, 1993. Convective Parameterization +! for Mesoscale Models, The Kain-Fritsch Scheme. The Representation +! of Convection in Numerical Models. Meteor. Monogr., No. 24, +! Amer. Meteor. Soc., 165-170. +! +! +! Note: For a thorough description of variables used in the KF interface +! code, please see kfdriver.f90 + +!############################################################################## +Subroutine kf_main () + +use mem_tend +use mem_cuparm +use mem_micro +use mem_basic +use mem_grid +use mem_tend +use mem_turb +use node_mod +use micphys + +implicit none + +integer :: j_lu,ng +integer, dimension(mxp,myp) :: nca_int,convgo_int + +ng=ngrid + + !Zero out arrays at model start unless doing a history-init + if(nint(time) == 0 .and. initial /= 3) then + if(iprntstmt>=1 .and. print_msg) & + print*,'Zeroing out arrays for K-F cuparm' + + CALL azero (mxp*myp*mzp,cuparm_g(ng)%thsrc(1,1,1)) + CALL azero (mxp*myp*mzp,cuparm_g(ng)%rtsrc(1,1,1)) + CALL azero (mxp*myp*mzp,cuparm_g(ng)%rcsrc(1,1,1)) + CALL azero (mxp*myp*mzp,cuparm_g(ng)%rrsrc(1,1,1)) + CALL azero (mxp*myp*mzp,cuparm_g(ng)%rssrc(1,1,1)) + CALL azero (mxp*myp*mzp,cuparm_g(ng)%rpsrc(1,1,1)) + + CALL azero (mxp*myp,cuparm_g(ng)%conprr(1,1)) + + CALL azero (mxp*myp*mzp,cuparm_g(ng)%w0avg(1,1,1)) + CALL azero (mxp*myp*mzp,cuparm_g(ng)%w0avglt(1,1,1)) + CALL azero (mxp*myp,cuparm_g(ng)%nca(1,1)) + CALL azero (mxp*myp,cuparm_g(ng)%convgo(1,1)) + +endif + +CALL var_change (mxp*myp,cuparm_g(ng)%nca(1,1),nca_int(1,1),1) +CALL var_change (mxp*myp,cuparm_g(ng)%convgo(1,1),convgo_int(1,1),1) + +! Check for convective activity at the specified frequency in +! RAMSIN. A value of 600 seconds for CONFRQ is recommended + + if (mod(time + .001,confrq) .lt. dtlt .or. time .lt. 0.001) then + + if(iprntstmt>=1 .and. print_msg) & + print*,'Check For Convection in K-F at ', time, ' sec' + +! Call the KF driver (see kfdriver.f90) + + j_lu=1 + CALL kfdrive (mzp,mxp,myp,ia,iz,ja,jz,level,icloud,irain & + ,ipris,isnow,idiffk(ng) & + ,basic_g(ng)%up(1,1,1), basic_g(ng)%vp(1,1,1) & + ,basic_g(ng)%theta(1,1,1),basic_g(ng)%thp(1,1,1) & + ,basic_g(ng)%pp(1,1,1), basic_g(ng)%pi0(1,1,1) & + ,tend%pt(1) & + ,basic_g(ng)%rv(1,1,1) & + ,grid_g(ng)%rtgt(1,1), grid_g(ng)%topt(1,1),dzt,zt & + ,grid_g(ng)%dxt(1,1) & + ,nca_int(1,1), convgo_int(1,1) & + ,cuparm_g(ng)%w0avg(1,1,1),cuparm_g(ng)%w0avglt(1,1,1) & + ,turb_g(ng)%tkep(1,1,1),dtlt & + ,cuparm_g(ng)%thsrc(1,1,1),cuparm_g(ng)%rtsrc(1,1,1) & + ,cuparm_g(ng)%rcsrc(1,1,1),cuparm_g(ng)%rrsrc(1,1,1) & + ,cuparm_g(ng)%rssrc(1,1,1),cuparm_g(ng)%rpsrc(1,1,1) & + ,cuparm_g(ng)%conprr(1,1),j_lu) + +endif + +! Update the vertical velocity parameters needed by the KF scheme + +CALL update_w0avgkf (mzp,mxp,myp,ia,iz,ja,jz & + ,grid_g(ng)%f13t(1,1),grid_g(ng)%f23t(1,1) & + ,grid_g(ng)%rtgt(1,1),grid_g(ng)%topt(1,1),ztop,zt & + ,basic_g(ng)%up(1,1,1),basic_g(ng)%vp(1,1,1) & + ,basic_g(ng)%wp(1,1,1) & + ,cuparm_g(ng)%w0avg(1,1,1),cuparm_g(ng)%w0avglt(1,1,1) & + ,dtlt) +! Update convective tendencies + +! Theta_il tendency + +CALL accum_kf (mzp,mxp,myp,tend%tht(1) & + ,cuparm_g(ng)%thsrc(1,1,1),nca_int(1,1)) + +! Total water mixing ratio tendency + +CALL accum_kf (mzp,mxp,myp,tend%rtt(1) & + ,cuparm_g(ng)%rtsrc(1,1,1),nca_int(1,1)) + +! Cloud water mixing ratio tendency + +if(level == 3) then + +! Cloud water mixing ratio tendency + if(jnmb(1) >= 1) & + CALL accum_kf (mzp,mxp,myp,tend%rct(1) & + ,cuparm_g(ng)%rcsrc(1,1,1),nca_int(1,1)) + +! Rain water mixing ratio tendency + if(jnmb(2) >= 1) & + CALL accum_kf (mzp,mxp,myp,tend%rrt(1) & + ,cuparm_g(ng)%rrsrc(1,1,1),nca_int(1,1)) + +! Snow mixing ratio tendency + if(jnmb(4) >= 1) & + CALL accum_kf (mzp,mxp,myp,tend%rst(1) & + ,cuparm_g(ng)%rssrc(1,1,1),nca_int(1,1)) + +! Pristine ice ratio tendency + if(jnmb(3) >= 1) & + CALL accum_kf (mzp,mxp,myp,tend%rpt(1) & + ,cuparm_g(ng)%rpsrc(1,1,1),nca_int(1,1)) + +endif + +! Convective precipitation (mm or kg m^-2) + +CALL update_kf (mxp*myp,cuparm_g(ng)%aconpr(1,1), & + cuparm_g(ng)%conprr(1,1),nca_int(1,1),dtlt) + +! Updates the NCA array + +CALL nca_update (mxp*myp,cuparm_g(ng)%nca(1,1),nca_int(1,1)) +CALL var_change (mxp*myp,cuparm_g(ng)%convgo(1,1),convgo_int(1,1),2) + +return +END SUBROUTINE kf_main + +!############################################################################## +Subroutine var_change (npoints,var,var_int,vartype) + +implicit none + +integer :: npoints,j +real :: var(npoints) +integer :: var_int(npoints),vartype + + do j=1,npoints + if(vartype==1) then + var_int(j)=int(var(j)) + else if(vartype==2) then + var(j)=float(var_int(j)) + endif + enddo + +return +END SUBROUTINE var_change + +!############################################################################## +! Routine to compute the contravariant component of vertical +! velocity. Two new vertical velocity components created here: +! +! w0avg: running mean vertical velocity (for t=600s) +! w0avglt: running mean horizontal components of contravariant vertical +! velocity, scaled by elevation +! +! The scheme was originally tuned for a July 2001 simulation of the +! North American Monsoon at 33 km grid spacing. Users may wish to modify +! the variable topocoef in if precipitation amounts +! in areas of significant terrain are physically unreasonable. +! +! RAMS USERS SHOULD INCLUDE THIS OR A SIMILAR ROUTINE WHEN INCORPORATING +! ANY ADDITIONAL CONVECTION SCHEMES IN RAMS GIVEN THE PRESENT VERTICAL +! COORDINATE! +!------------------------------------------------------------------------------ +Subroutine update_w0avgkf (mzp,mxp,myp,ia,iz,ja,jz, & + ter_gradx,ter_grady,rtgt,topot,ztop,zt,up,vp,wp,w0avg,w0avglt,dt) + +implicit none + +integer ntst,k,i,j,ja,jz,ia,iz,mzp,mxp,myp +real dt,ztop +real zt(mzp) +real up(mzp,mxp,myp), vp(mzp,mxp,myp) +real wp(mzp,mxp,myp), w0avglt(mzp,mxp,myp), w0avg(mzp,mxp,myp) +real topot(mxp,myp) +real ter_gradx(mxp,myp), ter_grady(mxp,myp), rtgt(mxp,myp) +real ucond, vcond +real w0_parm, w0_parmlt + + ntst=nint(600./dt) ! number of time steps in 600 sec + + +! The horizontal components of the contravariant vertical velocity. +! Note that here (in contrast to same routine in Kuo) the terrain related +! components must be cubed because the trigger func in KF is proportional +! to w^(1/3) + + + do k=2,mzp-1 + do j=ja,jz + do i=ia,iz + + ucond=up(k,i,j)*((((1.-(zt(k)-topot(i,j))/(ztop))*ter_gradx(i,j)) & + /(rtgt(i,j))))**3 + vcond=vp(k,i,j)*((((1.-(zt(k)-topot(i,j))/(ztop))*ter_grady(i,j)) & + /(rtgt(i,j))))**3 + + w0_parmlt=(ucond+vcond) + + w0_parm=wp(k,i,j) + + +! Running mean vertical velocity + + w0avg(k,i,j)=(w0avg(k,i,j)*(real(ntst)-1.)+w0_parm)/real(ntst) + if(w0avg(k,i,j)>0.0 .and. w0avg(k,i,j)<1.e-6)w0avg(k,i,j)=0.0 + if(w0avg(k,i,j)<0.0 .and. w0avg(k,i,j)>-1.e-6)w0avg(k,i,j)=0.0 + +! Running mean horizontal components of contravariant velocity + + w0avglt(k,i,j)=(w0avglt(k,i,j)*(real(ntst)-1.)+w0_parmlt)/real(ntst) + if(w0avglt(k,i,j)>0.0 .and. w0avglt(k,i,j)<1.e-6)w0avglt(k,i,j)=0.0 + if(w0avglt(k,i,j)<0.0 .and. w0avglt(k,i,j)>-1.e-6)w0avglt(k,i,j)=0.0 + + enddo + enddo + enddo + +return +END SUBROUTINE update_w0avgkf + +!############################################################################## +Subroutine nca_update (npoints,nca,nca_int) + +implicit none + +integer :: j,npoints +integer :: nca_int(npoints) +real :: nca(npoints) + + do j=1,npoints + nca(j)=float(nca_int(j)-1) + enddo + +return +END SUBROUTINE nca_update + +!############################################################################## +Subroutine accum_kf (mzp,mxp,myp,tht,thsrc,nca) + +!routine for adding source term to tendency + +implicit none + +integer :: k,i,j,mzp,mxp,myp +real :: tht(mzp,mxp,myp),thsrc(mzp,mxp,myp) +integer :: nca(mxp,myp) + + do j=1,myp + do i=1,mxp + if (nca(i,j).gt.0) then + do k=2,mzp + tht(k,i,j)=tht(k,i,j)+thsrc(k,i,j) + enddo + endif + enddo + enddo + +return +END SUBROUTINE accum_kf + +!############################################################################## +Subroutine update_kf (npoints,acccon,conpcp,nca,dt) + +!routine for updating accumulated precip + +implicit none + +integer :: j,npoints +real :: dt +real :: acccon(npoints),conpcp(npoints) +integer :: nca(npoints) + + do j=1,npoints + if (nca(j).gt.0) then + if(conpcp(j).gt.0.0) then + acccon(j)=acccon(j)+conpcp(j)*dt + endif + if(acccon(j).lt.0.0) then + acccon(j)=0.0 + endif + endif + enddo + +return +END SUBROUTINE update_kf + diff --git a/src/6.2.16/cuparm/rconv.f90 b/src/6.2.16/cuparm/rconv.f90 new file mode 100644 index 0000000..4b7ce1b --- /dev/null +++ b/src/6.2.16/cuparm/rconv.f90 @@ -0,0 +1,904 @@ +!############################################################################## +Subroutine cuparm () + +use mem_tend +use mem_cuparm +use mem_basic +use mem_grid +use node_mod + +implicit none + + ! Zero out arrays at model start unless doing a history-init + if(nint(time) == 0 .and. initial /= 3) then + CALL azero (mxp*myp*mzp,cuparm_g(ngrid)%thsrc(1,1,1)) + CALL azero (mxp*myp*mzp,cuparm_g(ngrid)%rtsrc(1,1,1)) + CALL azero (mxp*myp,cuparm_g(ngrid)%conprr(1,1)) + endif + + if (mod(time + .001,confrq) .lt. dtlt .or. time .lt. 0.001) then + + if(iprntstmt>=1 .and. print_msg)print 90,time+dtlt,(time+dtlt)/3600. & + +(itime1/100+mod(itime1,100)/60.) + 90 format(' Kuo Convective Tendencies Updated Time =',f10.1, & + ' UTC TIME (HRS) =',f6.1) + + CALL azero (mxp*myp*mzp,cuparm_g(ngrid)%thsrc(1,1,1)) + CALL azero (mxp*myp*mzp,cuparm_g(ngrid)%rtsrc(1,1,1)) + CALL azero (mxp*myp,cuparm_g(ngrid)%conprr(1,1)) + + CALL conpar (mzp,mxp,myp,ia,iz,ja,jz & + ,basic_g(ngrid)%up (1,1,1) & + ,basic_g(ngrid)%vp (1,1,1) & + ,basic_g(ngrid)%wp (1,1,1) & + ,basic_g(ngrid)%theta (1,1,1) & + ,basic_g(ngrid)%pp (1,1,1) & + ,basic_g(ngrid)%pi0 (1,1,1) & + ,basic_g(ngrid)%dn0 (1,1,1) & + ,basic_g(ngrid)%rv (1,1,1) & + ,cuparm_g(ngrid)%thsrc (1,1,1) & + ,cuparm_g(ngrid)%rtsrc (1,1,1) & + ,grid_g(ngrid)%rtgt (1,1) & + ,cuparm_g(ngrid)%conprr (1,1)) + + endif + +CALL accum (mxp*myp*mzp,tend%tht(1),cuparm_g(ngrid)%thsrc(1,1,1) ) +CALL accum (mxp*myp*mzp,tend%rtt(1),cuparm_g(ngrid)%rtsrc(1,1,1) ) + +CALL update (mxp*myp,cuparm_g(ngrid)%aconpr(1,1) & + ,cuparm_g(ngrid)%conprr(1,1) ,dtlt) + +return +END SUBROUTINE cuparm + +!############################################################################## +Subroutine conpar (m1,m2,m3,ia,iz,ja,jz & + ,up,vp,wp,theta,pp,pi0,dn0,rv,thsrc,rtsrc,rtgt,conprr) + +use conv_coms +use mem_grid +use mem_cuparm +use rconstants + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz +real :: up(m1,m2,m3),vp(m1,m2,m3),wp(m1,m2,m3),theta(m1,m2,m3) & + ,pp(m1,m2,m3),pi0(m1,m2,m3),dn0(m1,m2,m3),rv(m1,m2,m3) & + ,thsrc(m1,m2,m3),rtsrc(m1,m2,m3),conprr(m2,m3) & + ,rtgt(m2,m3) + +integer :: icpcnt=0,i1,i2,j1,j2,i,j,k,iprtfrq,iqmax,jqmax,kqmax +real :: dthmax + +! +! FLAG TO CONTROL PRINTOUT +! ICPRTFL=0 - NO PRINTOUT +! 1 - BRIEF INFO ON UP/DOWN DRAFT AND ITERATIONS +! 2 - 1 PLUS MODEL TENDENCIES +! 3 - 2 PLUS FINAL CONVECTIVE STRUCTURE +! 4 - 3 PLUS UP/DOWN DRAFT AND ENVIRONMENT + +icprtfl=0 +iprtfrq=8 +icpltfl=0 +icpcnt=icpcnt+1 +if(mod(icpcnt-iprtfrq+1,iprtfrq).eq.0) then + icprtfl=1 +endif + +i1 = ia +i2 = iz +j1 = ja +j2 = jz + +! If variable initialization, on a coarse grid, +! do not run convective parameterization in the lateral boundary region. + +dthmax=0. + +do j = j1,j2 + do i = i1,i2 + + do k = 1,m1 + ucon(k)=up(k,i,j) + vcon(k)=vp(k,i,j) + wcon(k)=wp(k,i,j) + thtcon(k)=theta(k,i,j) + picon(k)=(pp(k,i,j)+pi0(k,i,j)) + tmpcon(k)=thtcon(k)*picon(k)/cp + dncon(k)=dn0(k,i,j) + prcon(k)=(picon(k)/cp)**cpor*p00 + rvcon(k)=rv(k,i,j) + thsrc(k,i,j)=0. + rtsrc(k,i,j)=0. + enddo + + ! Compute heights AGL + do k = 1, m1 + zcon(k)=zt(k) *rtgt(i,j) + zzcon(k)=zm(k) *rtgt(i,j) + enddo + + conprr(i,j)=0. + wconmin=wcldbs + contim=confrq + + CALL cu_environ (2,m1-1) + if(igo.ne.0) CALL kuocp () + + if(igo.ne.0) then + + CALL cp2mod (2,m1) + do k=2,m1-1 + thsrc(k,i,j)=ftcon(k) + rtsrc(k,i,j)=frcon(k) + + enddo + conprr(i,j)=cprecip + + do k=2,m1-1 + if(thsrc(k,i,j).gt.dthmax) then + dthmax=thsrc(k,i,j) + iqmax=i + jqmax=j + kqmax=k + endif + enddo + +! This will not work in parallel unless we convert I,J to domain coords +! if(icprtfl.gt.0) then +! print 899,i,j,time +!899 format(' * CONVECTION AT',2I4,' TIME = ',F10.2) +! endif + + endif + + enddo +enddo + +!This will not work in parallel unless we run a domain max func +!and have nodes pass information to a head node and then print. +!if(iprntstmt>=1 .and. print_msg) print 675,iqmax,jqmax,kqmax,dthmax*86400. +!675 format(' Max Convective Heating RAte at I,J,K,D/DAY -',3I5,F8.2) + +return +END SUBROUTINE conpar + +!############################################################################## +Subroutine cu_environ (k1,k2) + +use conv_coms +use rconstants + +implicit none + +integer :: k1,k2 +real :: hz(nkp),wcpmax,themax,tlll,plll,rlll,zlll,dzlll,dzdd,abe & + ,thdu,tdu,rdsu,znz +integer :: k,nkmid,nk + +! Basic constants +dzlow=200. +dzhigh=500. +zmid=3000. + +cdzmin=3000. + +! Compute moist static energy profile + +do k=k1,k2 + hz(k)=cp*tmpcon(k)+g*zcon(k)+alvl*rvcon(k) +enddo + +! Check for conditional instability and any upward motion +! greater than WCONMIN under ZMID + +igo=0 +do k=k1,k2 + if(hz(k).gt.hz(k+1))then + igo=1 + go to 105 + endif +enddo +105 continue +if(igo.eq.0)return + +igo=0 +wcpmax=-1.e10 +do k=k1,k2 + if(zcon(k).gt.zmid)go to 104 + wcpmax=max(wcpmax,wcon(k)) +enddo +104 continue +if(wcpmax.gt.0.0.and.wcpmax.gt.wconmin)igo=1 +if(igo.eq.0)return + +! INTERPOLATE MODEL SOUNDING (ENVIRONMENT) TO HIGHER +! RESOLUTION GRID + +nkmid=zmid/dzlow+1 +zc(1)=0. +do k=2,nkmid + zc(k)=zc(k-1)+dzlow +enddo +do k=nkmid+1,nkp + zc(k)=zc(k-1)+dzhigh +enddo +ze(1)=0. +do k=2,nkp + ze(k)=(zc(k)+zc(k-1))*.5 +enddo +! FIND MODEL TOP ON CONVECTIVE GRID +znz=zcon(k2) +do k=nkp,1,-1 + if(ze(k).lt.znz)go to 13 +enddo +stop ' envir stop 12' +13 continue +kmt=k +! DO ACTUAL INTERPOLATION + +nk=k2-k1+1 +CALL htint (nk, ucon(k1-1), zcon(k1-1),kmt,upe,ze) +CALL htint (nk, vcon(k1-1), zcon(k1-1),kmt,vpe,ze) +CALL htint (nk, wcon(k1-1),zzcon(k1-1),kmt,wpe,ze) +CALL htint (nk,thtcon(k1-1), zcon(k1-1),kmt,the,ze) +CALL htint (nk, rvcon(k1-1), zcon(k1-1),kmt,rve,ze) +do k=1,kmt + rve(k)=max(rve(k),1e-8) +enddo + +! COMPUTE THETA V, THETA E, AND GET PRESSURE PROFILE + +pke(1)=picon(1) +do k=1,kmt + thve(k)=the(k)*(1.+.61*rve(k)) +enddo +do k=2,kmt + pke(k)=pke(k-1)-g*2.*(ze(k)-ze(k-1)) & + /(thve(k)+thve(k-1)) +enddo +do k=1,kmt + te(k)=the(k)*pke(k)/cp + pe(k)=(pke(k)/cp)**cpor*p00 + rhoe(k)=pe(k)/(rgas*te(k)*(1.+.61*rve(k))) +enddo +do k=1,kmt + CALL thetae (pe(k),te(k),rve(k),thee(k)) +enddo + +! FIND THE MAIN SOURCE LEVEL OF THE UPDRAFT. + +! FIRST TEST - ANY INVERSION BELOW 1.2 KM + +do k=3,nkmid + if(te(k).gt.te(k-1).and.te(k).gt.te(k+1) & + .and.ze(k).le.1200.)then + kcon=k + go to 77 + endif +enddo + +! IF THERE ISN'T AN INVERSION, USE THE LEVEL OF HIGHEST +! THETA E . + +themax=0. +do k=2,nkmid + if(thee(k).gt.themax)then + themax=thee(k) + kcon=k + endif +enddo + +! FIND THE LCL OF A LAYER AVERAGE AROUND THE SOURCE LEVEL + +77 continue +tlll=(te(kcon)+te(kcon+1)+te(kcon-1))/3. +plll=pe(kcon) +rlll=(rve(kcon)+rve(kcon+1)+rve(kcon-1))/3. +zlll=ze(kcon) + +CALL lcl (tlll,plll,rlll,tlcl,plcl,dzlcl) + +! FIND THE CLOSEST LEVEL ON THE CONVECTIVE GRID TO THE LCL + +dzlll=1e20 +do k=1,kmt + dzdd=abs(ze(k)-(zlll+dzlcl)) + if(dzdd.lt.dzlll)then + dzlll=dzdd + klcl=k + endif +enddo + +! IF THERE IS NOT UPWARD MOTION AT THE LCL, NO CONVECTION +! (MUST BE GREATER THAN WCONMIN ) + +if(wpe(klcl).lt.0.0.or.wpe(klcl).lt.wconmin)then + igo=0 + return +endif + +! LOCATE EQUILIBRIUM TEMPERATURE LEVEL OF AN UNENTRAINED PARCEL. +! COMPUTE INITIAL ABE. IF ABE IS LESS THAN 0, NO CONVECTION. + +theu(klcl)=the(kcon)*exp(alvl*rve(kcon)/(cp*tlcl)) + +do k=klcl,kmt + if(theu(klcl).le.thve(k))go to 66 +enddo +print*,'convection above model top:',klcl,theu(klcl),thve(k) +ketl=kmt-2 +!cccccc stop 65 +66 continue +ketl=k +if(ze(ketl)-ze(klcl).lt.cdzmin)then + igo=0 + return +endif + +abe=0. +do k=klcl,ketl + CALL the2t (theu(klcl),pe(k),thdu,tdu,rdsu) + abe=abe+(thdu*(1.+.61*rdsu)-thve(k))/thve(k)*(zc(k)-zc(k-1)) +enddo +if(abe.le.0.)then + igo=0 + return +endif + +! if(icprtfl.gt.0)then +! print 899 +! 899 format(///,' * convection is activated * ') +! endif + +return +END SUBROUTINE cu_environ + +!############################################################################## +Subroutine kuocp () + +use conv_coms +use rconstants + +implicit none + +integer :: k,idownd,klfs,kdiv,kdet,kover,kcoolh,kheat +real :: supplyw,anegl,apos,anegh,dddt,dzdiv,wtlfs,wtlcl,wtdiv,wtgnd & + ,bkuo,zdetr,dzdet,vhint,vmint,vdint,avgmin,avtdiff,overmax,factr & + ,heatmx,coolhi,c1 + +! Downdraft flag - 0 - no downdrafts +! 1 - simple downdraft model +idownd=1 + +do k=1,nkp + ftcon(k)=0. + frcon(k)=0. +enddo + +! Compute vertical moisture convergence into the cloud layer. +! Vertical flux out cloud top is assumed small. + +supplyw=rhoe(klcl)*rve(klcl)*(wpe(klcl)+wpe(klcl-1))*.5 + +supply=supplyw + +if(supply.le.0.) then + igo=0 + return +endif + +! This is the cloud model. Updraft is constant THETA e and +! saturated with respect to water. There is no ice. +! Cloud top is one level above ETL. +! +! THETA e of the updraft + +theu(klcl)=the(kcon)*exp(alvl*rve(kcon)/(cp*tlcl)) + +! Equilibrium Temperature Level of the source level air. + +igo=0 +do k=klcl,kmt + CALL the2t (theu(klcl),pe(k),thu(k),tu(k),rsu(k)) + if(thu(k).gt.the(k).and.igo.eq.0) then + igo=1 + klfc=k + endif + if(thu(k).le.the(k).and.igo.eq.1)go to 66 +enddo +if(igo.eq.0) return +PRINT*,' Convection beyond model top - THup, THenv ',THU(KMT) & + ,THE(KMT) +k=kmt-1 +66 continue +ketl=min(k,kmt) +kct=min(ketl+1,kmt) +CALL the2t (theu(klcl),pe(kct),thu(kct),tu(kct),rsu(kct)) +do k=1,klcl-1 + thu(k)=the(k) +enddo + +! If the cloud is not at least CDZMIN deep or cloud top is +! under 500 mb, no convection. + +if(ze(ketl)-ze(klfc).lt.cdzmin.or.pe(kct).gt.50000.)then + igo=0 + return +endif + +! Require the positive area be 50% greater than the negative +! area below the LFC and 5% greater in total. + +anegl=0. +do k=klcl,klfc-1 + anegl=anegl+(thu(k)-the(k))*(zc(k)-zc(k-1)) +enddo +apos=0. +do k=klfc,ketl-1 + apos=apos+(thu(k)-the(k))*(zc(k)-zc(k-1)) +enddo +anegh=0. +do k=ketl,kct + anegh=anegh+(thu(k)-the(k))*(zc(k)-zc(k-1)) +enddo +if(apos.lt.abs(anegl)*1.5.or.apos.lt.abs(anegl+anegh)*1.05) then + igo=0 + return +endif + +if(idownd.eq.1) then + +! The downdraft model - starts at THETA e minimum (LFS). +! Downdraft is 2 degrees colder than +! environment at cloud base increasing to 5 degrees +! colder at the ground. + + +! Find LFS as THETA e minimum + +do k=kct,2,-1 + if(thee(k).lt.thee(k+1).and.thee(k).lt.thee(k-1))go to 11 +enddo +k=2 +11 continue +klfs=k +if(klfs.le.klcl)klfs=klcl+1 +thd(klfs)=the(klfs) + +! Limit dd deficit at the ground to the maximum of positive +! temperature difference of updraft if less than 2.5 degrees. + +dddt=0. +do k=klcl,kct + dddt=max(dddt,thu(k)-the(k)) +enddo +if(dddt.gt.2.5) dddt=5. + +thd(2)=the(2)-dddt +thd(klcl)=the(klcl)-dddt*.2 +do k=klcl,klfs + thd(k)=thd(klcl)+(thd(klfs)-thd(klcl))/(ze(klfs)-ze(klcl)) & + *(ze(k)-ze(klcl)) +enddo +do k=3,klcl-1 + thd(k)=thd(2)+(thd(klcl)-thd(2))/(ze(klcl)-ze(2)) & + *(ze(k)-ze(2)) +enddo + +! Now we need to weight the downdraft relative to the updraft. +! Assume that the dd weight is zero at the LFS, 1/2 of +! updraft at cloud base, and equal to the updraft at cloud +! base at the ground. + +kdiv=0 +dzdiv=1e20 +do k=1,kmt + if(abs(ze(k)-800.).lt.dzdiv)then + kdiv=k + dzdiv=abs(ze(k)-800.) + endif +enddo +kdiv=max(min(klcl,kdiv),2) +if(kdiv.eq.klcl) kdiv=klcl-1 + +do k=1,nkp + wtd(k)=0. +enddo +wtlfs=0. +wtlcl=.1 +wtdiv=.2 +wtgnd=1. +do k=klcl+1,klfs + wtd(k)=wtlcl+(wtlfs-wtlcl)/(ze(klfs)-ze(klcl)) & + *(ze(k)-ze(klcl)) +enddo +do k=kdiv,klcl + wtd(k)=wtdiv+(wtlcl-wtdiv)/(ze(klcl)-ze(kdiv)) & + *(ze(k)-ze(kdiv)) +enddo +do k=2,kdiv-1 + wtd(k)=wtgnd+(wtdiv-wtgnd)/(ze(kdiv)-ze(2)) & + *(ze(k)-ze(2)) +enddo + +else + + do k=1,nkp + wtd(k)=0. + enddo + do k=2,klcl-1 + thu(k)=the(k) + enddo + +endif + +! Compute infamous b parameter. Use Fritsch/Chappell's +! precipitation efficiency. + +envshr=sqrt((upe(kct)-upe(klfc))**2 & + +(vpe(kct)-vpe(klfc))**2) & + /(ze(kct)-ze(klfc))*1e3 +if(envshr.gt.1.35) then + preff=1.591-.639*envshr+.0953*envshr**2-.00496*envshr**3 +else + preff=.9 +endif +bkuo=1.-preff + +! Vertical profiles of convective heating and moistening + +do k=2,kmt + vheat(k)=0. + vmois(k)=0. + vmdry(k)=0. +enddo + +! Find the weighted THETA to use for the convection. + +do k=2,kct + thcon(k)=wtd(k)*thd(k)+(1.-wtd(k))*thu(k) +enddo + +! Heating profile is difference between convective THETAs and +! environment. + +do k=2,kct + vheat(k)=thcon(k)-the(k) +enddo + +! Moisture profile is difference between vapor's of updraft and +! environment in the cloud layer. Below cloud base, air is +! dried by SUPPLY. Downdrafts are assumed to have no effect +! on this. + +kdet=0 +zdetr=.66667*ze(kct) +dzdet=1000000. +do k=klcl,kct + if(abs(ze(k)-zdetr).lt.dzdet)then + dzdet=abs(ze(k)-zdetr) + kdet=k + endif +enddo + +do k=kdet,kct + vmois(k)=1. +enddo +! do k=klcl,kct +! vmois(k)=rsu(k)-rve(k) +! enddo + +do k=2,klcl-1 + vmdry(k)=rve(k) +enddo + +vhint=0. +vmint=0. +vdint=0. +do k=2,kmt + vhint=vhint+vheat(k)*(zc(k)-zc(k-1)) + vmint=vmint+vmois(k)*(zc(k)-zc(k-1)) + vdint=vdint+vmdry(k)*(zc(k)-zc(k-1)) +enddo + +! If VHINT is less than 0, there is more negative area than +! positive area. No convection allowed. + +if(vhint.le.0.) then + igo=0 + return +endif + +! Also require that there is a minimum average +! temperature difference between the updraft and environment +! from the LFC to the ETL. This eliminates the cases where +! VHINT is very small and the heating and cooling rates get +! astronomically large. + +avgmin=.10 +avtdiff=0. +do k=klfc,ketl-1 + avtdiff=avtdiff+(thcon(k)-the(k)) +enddo +avtdiff=avtdiff/max(1,ketl-klfc) +if(avtdiff.lt.avgmin) then + igo=0 + return +endif + +! Heating and moistening rates + +3100 continue +do k=2,kmt + ftcon(k)=alvl*preff*supply*vheat(k) & + /(pke(k)*rhoe(k)*vhint) +enddo +do k=klcl,kct + frcon(k)=bkuo*supply*vmois(k)/(rhoe(k)*vmint) +enddo +do k=2,klcl-1 + frcon(k)=-supply*vmdry(k)/(rhoe(k)*vdint) +enddo + +do k=klfc,ketl-1 + qvct1(k)=the(k)+contim*ftcon(k) +enddo +overmax=0. +do k=klfc,ketl-1 + if(qvct1(k)-thu(k).gt.overmax)then + overmax=(qvct1(k)-thu(k))/(ftcon(k)*contim) + kover=k + endif +enddo + +if(overmax.gt.0.) then + factr=1.-overmax + supply=factr*supply +! if(icprtfl.ge.1)print*,' reducing supply ',kover,factr +! + ,qvct1(kover),thu(kover) + go to 3100 +endif + +cprecip=preff*supply + +if(icprtfl.gt.0) then +! PRINT*,' ----------------------------------------------------' +! PRINT 898,ZE(KCON),ZE(KLCL),ZE(KLFC),ZE(KETL),ZE(KCT) +! 898 FORMAT(' CLOUD LEVELS - SOURCE,LCL,LFC,ETL,TOP(KM) ',-3P,5F5.1) +! PRINT 896,SUPPLY/SUPPLYW +! 896 FORMAT(' SUPPLIES ' ,F8.4) +! PRINT 897,THEU(KLCL),RSU(KLCL)*1E3 +!897 FORMAT(' CLOUD PROPERTIES - THETA E, RS AT LCL',F6.1,F8.2) + coolhi=100000. + heatmx=-10000. + kcoolh=0 + kheat=0 + do k=ketl,kct + if(ftcon(k).lt.coolhi) then + coolhi=ftcon(k) + kcoolh=k + endif + enddo + do k=klcl,kct + if(ftcon(k).gt.heatmx) then + heatmx=ftcon(k) + kheat=k + endif + enddo + C1=86400. +! PRINT 905,PE(KHEAT),HEATMX*C1,PE(KCOOLH),COOLHI*C1 +! 905 FORMAT(' MAX-MIN HEATING- P,(K/DAY)', 2(-2PF8.1,0PF7.1)) +! PRINT 906,PREFF,PREFF*SUPPLY*3600.*10. +! + ,(WPE(KLCL)+WPE(KLCL-1))*.5 +! + ,RVE(KLCL)*1E3 +!906 FORMAT(' PRECIPITATION - EFFICIENCY,RATE(MM/HR)',F5.2,F6.2, & +! ' LCL W,RV',F8.4,F7.2) +ENDIF + + +IF(ICPRTFL.GE.2) THEN +! PRINT 95,(K,ZE(K),PE(K),TE(K),THE(K),THEE(K),RVE(K),UCON(K) +! + ,VCON(K),WPE(K),K=1,KMT) +!95 FORMAT(//' ENVIRONMENT-K,Z,P,TE,THE,THEE,RVE,UP,VP,WP'/, & +! (I3, -2P,F8.1,-3P,F8.2,0P,3F7.2,3P,F6.2, -2P,3F8.2)) +! PRINT96,(K,THE(K),THU(K) ,FTCON(K)*86400.,RVE(K),RSU(K), +! + FRCON(K)*86400.,VHEAT(K)*(ZC(K)-ZC(K-1))/VHINT, +! + VMOIS(K)*(ZC(K)-ZC(K-1))/VMINT, +! + VMDRY(K)*(ZC(K)-ZC(K-1))/VDINT, +! + K=2,KMT) +!96 FORMAT(//' HEATING/MOISTENING' & +! ,'-K,THE,THU,THSRC,RVE,RSU,RTSRC,HEAT%,MOIST%,DRY%'/, & +! (I3,0P,3F7.1,3P,3F7.1,0P,3F6.2)) +ENDIF + +return +END SUBROUTINE kuocp + +!############################################################################## +Subroutine cp2mod (k1,k2) + +use conv_coms +use mem_scratch +use rconstants + +implicit none + +integer :: k1,k2 +real, external :: ssumvect +integer :: k +real :: tftc,tftm,tfrc,tfrm,ftres,frres + +! Compute integrated heating and moistening tendencies + + +do k=2,kmt + qvct1(k)=rhoe(k)*ftcon(k)*pke(k) + qvct2(k)=rhoe(k)*alvl*frcon(k) + qvct3(k)=(zc(k)-zc(k-1))*qvct1(k) + qvct4(k)=(zc(k)-zc(k-1))*qvct2(k) +enddo +tftc = ssumvect(kmt-1,qvct3(2),1) +tfrc = ssumvect(kmt-1,qvct4(2),1) + +! Transfer tendencies to model grid + +CALL vertmap2 (qvct1,zc,kmt,vctr5,zzcon,k2) +CALL vertmap2 (qvct2,zc,kmt,vctr6,zzcon,k2) + +do k=k1,k2 + vctr5(k)=vctr5(k)*(zzcon(k)-zzcon(k-1)) + vctr6(k)=vctr6(k)*(zzcon(k)-zzcon(k-1)) +enddo + + +! Make sure the transfer from the convective grid to the model +! grid happened correctly. + +tftm = ssumvect(k2-k1+1,vctr5(k1),1) +tfrm = ssumvect(k2-k1+1,vctr6(k1),1) +! +ftres=tftm-tftc +frres=tfrm-tfrc +if(abs(ftres) > .01*abs(tftc)) then + print*,' energy error in grid tranfser in convective param.' + print*,' tftm,tftc ',tftm,tftc +endif + +! Change energy tendencies to temperature and mixing ratio +! tendencies. + +do k=k1,k2 + ftcon(k)=vctr5(k)/((zzcon(k)-zzcon(k-1))*dncon(k)*picon(k)) + frcon(k)=vctr6(k)/((zzcon(k)-zzcon(k-1))*dncon(k)*alvl) + +enddo + +return +END SUBROUTINE cp2mod + +!############################################################################## +Subroutine vertmap2 (datin,zin,n3in,datout,zout,n3out) + +implicit none + +integer :: n3in,n3out +real, dimension(n3in) :: datin,zin +real, dimension(n3out) :: datout,zout(n3out) + +real, allocatable :: qvct(:),vctr(:) +integer :: k,l +real :: dzlft + +! This routine assumes that output vertical structure will be lower than +! input vertical structure!!!! + +! Transfer quantity from input grid levels to output grid + +allocate(qvct(n3in),vctr(n3out)) + +do k=1,n3out + vctr(k)=0. +enddo + +dzlft=0. +l=2 +do k=2,n3out + ! print *,'******************************* working on output layer ',k + if(dzlft.ne.0.) then + if(zin(l) .gt. zout(k)) then + vctr(k)=vctr(k)+datin(l)*(zout(k)-zout(k-1)) + dzlft=zin(l)-zout(k) + ! print*,'dzlft2 layer:',k,l,datin(l),dzlft + go to 61 + else + vctr(k)=vctr(k)+datin(l)*dzlft + ! print*,'dzlft layer:',k,l,datin(l),dzlft + l=l+1 + if(l > n3in) exit + dzlft=0. + endif + endif +60 continue + if(zin(l) <= zout(k)) then + vctr(k)=vctr(k)+datin(l)*(zin(l)-zin(l-1)) + ! print*,'full layer:',k,l,datin(l),zin(L),zin(L-1) + l=l+1 + if(l > n3in) exit + dzlft=0. + if(zin(l-1) == zout(k)) go to 61 + go to 60 + else + vctr(k)=vctr(k)+datin(l)*(zout(k)-zin(l-1)) + ! print*,'part layer:',k,l,vctr(k),datin(l),zout(k),zin(l-1) + dzlft=zin(l)-zout(k) + endif +61 continue + ! print *,'****************************** done with output layer ',k +enddo + + +! Change energy tendencies to temperature and mixing ratio +! tendencies. + +do k=2,n3out + datout(k)=vctr(k)/(zout(k)-zout(k-1)) +enddo + +deallocate(qvct,vctr) + +return +END SUBROUTINE vertmap2 + +!############################################################################## +Subroutine lcl (t0,pp0,r0,tlcl,plcl,dzlcl) + +use rconstants + +implicit none + +real :: t0,pp0,r0,tlcl,plcl,dzlcl +real, parameter :: cpg=102.45 +integer :: nitt,ip +real :: p0k,pi0i,ttth0,ttd,dz,pki,pppi,ti,rvs +real, external :: tdewpt +real, external :: rsatmix + +ip=0 +11 continue + +plcl=pp0 +tlcl=t0 +p0k=pp0**rocp +pi0i=p0k/p00k*cp +ttth0=t0*p00k/p0k +ttd=tdewpt(pp0,r0) +dz=cpg*(t0-ttd) +if(dz.le.0.)then +dzlcl=0. +return +endif +do 100 nitt=1,50 +pki=pi0i-g*dz/(ttth0*(1.+.61*r0)) +pppi=(pki/cp)**cpor*p00 +ti=ttth0*pki/cp +rvs=rsatmix(pppi,ti) +if(abs(rvs-r0).lt..00003)go to 110 +ttd=tdewpt(pppi,r0) +dz=dz+cp/g*(ti-ttd) +100 continue +print*, 'no converge in LCL:',t0,pp0,r0 +ip=ip+1 +if(ip==1)go to 11 +stop 'LCL no convergence' + +110 continue +plcl=pppi +tlcl=ti +dzlcl=dz + +return +END SUBROUTINE lcl diff --git a/src/6.2.16/dprep/dgrib1_main.f90 b/src/6.2.16/dprep/dgrib1_main.f90 new file mode 100644 index 0000000..6541322 --- /dev/null +++ b/src/6.2.16/dprep/dgrib1_main.f90 @@ -0,0 +1,845 @@ +!############################################################################## +Program griber + +implicit none + +character*10 c_date,c_hr,c_datatype +character*128 filein,fileout +character*2 cflag(10) +character*20 projection +character(len=20), allocatable :: fields(:),var3d(:), var2d(:), varsd(:) +integer, allocatable :: levs(:),irecs(:),idates(:),ifhrs(:) +real, allocatable :: a(:,:) + +integer :: nx,ny,nrec,longdate,mode & + ,ia,iargc,istr,iend,inc,i,j,lcg,ndate,nhr & + ,nlev,slev,inproj,miss,startlev,endlev & + ,iyyyy,imm,idd,ihh,fyyyy,fmm,fdd,fhh,leapyear & + ,nvar3d,nvar2d,nvarsd,iplevs(1000),islevs(1000),datatype & + ,writesoillevs,writesnowlevs +real :: alat1,alon1,alat2,alon2,alov,aorient,dx,dy,reflat1,reflat2 & + ,tinc,amiss,alatscr +logical :: llisglobal,matched +data amiss /-999./ +llisglobal = .true. +!****************************************************************************** +!Check for command line arguments +!****************************************************************************** +IA = IARGC ( ) +IF (IA .lt. 8) THEN + WRITE(*,'("Usage:dgrib [-t #] [-d YYYYMMDDHH] [-h fcsthr] [-f gribfile]")') + WRITE(*,'("-t option:")') + WRITE(*,'(" # = 1: NcepReanalysis 1 or 2 Global Lat/lon at 2.5-deg")') + WRITE(*,'(" NO soil/snow; Using R / RELH")') + WRITE(*,'(" Upper air names: UGRD,VGRD,TMP,HGT,RH")') + WRITE(*,'(" SWE,SnowDepth names: NOTHING,NOTHING")') + WRITE(*,'(" Soil Moisture,Temp names: NOTHING,NOTHING")') + WRITE(*,'(" # = 2: GDAS-FNL Global Lat/Lon at 1.0deg UNTIL Jan 14, 2015 00Z")') + WRITE(*,'(" YES soil/snow; Using R / RELH")') + WRITE(*,'(" Upper air names: UGRD,VGRD,TMP,HGT,RH")') + WRITE(*,'(" SWE,SnowDepth names: WEASD,WEASD")') + WRITE(*,'(" Soil Moisture,Temp names: SOILW,TMP")') + WRITE(*,'(" # = 3: GDAS-FNL Global Lat/Lon at 1.0deg AFTER Jan 14, 2015 00Z")') + WRITE(*,'(" # = 3: GDAS-FNL Global Lat/Lon at 0.25deg after Jul 8, 2015")') + WRITE(*,'(" # = 3: Forecast grids for GFS and HRRR Lat/Lon Grid")') + WRITE(*,'(" # = 3: RAP Rapid Refresh Analysis 32km Awips Grid 221")') + WRITE(*,'(" YES soil/snow; Using R / RELH")') + WRITE(*,'(" Upper air names: UGRD,VGRD,TMP,HGT,RH")') + WRITE(*,'(" SWE,SnowDepth names: WEASD,SNOD")') + WRITE(*,'(" Soil Moisture,Temp names: SOILW,TSOIL")') + WRITE(*,'(" # = 4: NARR 32km Lambert Conformal Grid")') + WRITE(*,'(" YES soil/snow; Using Q / SPFH")') + WRITE(*,'(" Upper air names: UGRD,VGRD,TMP,HGT,SPFH")') + WRITE(*,'(" SWE,SnowDepth names: WEASD,SNOD")') + WRITE(*,'(" Soil Moisture,Temp names: SOILW,TSOIL")') + WRITE(*,'(" # = 5: ERA-Interim Global Lat/Lon at various resolutions")') + WRITE(*,'(" # = 5: ERA5 Global Lat/Lon or area subset at 0.25deg")') + WRITE(*,'(" YES soil/snow; Using R / RELH")') + WRITE(*,'(" Upper air names: U,V,T,Z,R")') + WRITE(*,'(" SWE,SnowDepth names: SD,SD")') + WRITE(*,'(" Soil Moisture,Temp names: SWVL2,SWVL1,STL2,STL1")') + WRITE(*,'(" # = 6: ERA5 Lat/Lon Global or area subset at 0.25deg")') + WRITE(*,'(" YES soil/snow; Using Q / SPFH")') + WRITE(*,'(" Upper air names: U,V,T,Z,Q")') + WRITE(*,'(" SWE,SnowDepth names: SD,SD")') + WRITE(*,'(" Soil Moisture,Temp names: SWVL2,SWVL1,STL2,STL1")') + WRITE(*,'("-d option: YYYYMMDDHH is the time")') + WRITE(*,'("-h option: forecast hour (should be 0 for reanalysis)")') + WRITE(*,'("-f option: gribfile is the name of the file to extract data")') + WRITE(*,'("See Dprep Documentation with RAMS for info on data in Grib files.")') + STOP +ENDIF + +!Set default date and forecast hour +c_date='99999999' +c_hr ='99999999' + +!Read command line arguments +do i=1,ia,2 + call ugetarg(i,cflag(i)) + if(cflag(i).eq.'-t')then + call ugetarg(i+1,c_datatype) + elseif(cflag(i).eq.'-d')then + call ugetarg(i+1,c_date) + elseif(cflag(i).eq.'-h')then + call ugetarg(i+1,c_hr) + elseif(cflag(i).eq.'-f')then + call ugetarg(i+1,filein) + endif +enddo + +!wgrib only prints out the 2 digit year in short inventory +read(c_date(3:),'(i10)')ndate +read(c_hr,'(i10)')nhr +read(c_datatype,'(i10)')datatype +!Print out command line inputs +lcg=index(filein,' ')-1 +print*,'gribfile=',filein(1:lcg) +print*,'c_date=',c_date,ndate +print*,'c_hr=',c_hr,nhr +print*,'c_datatype=',c_datatype,datatype + +!****************************************************************************** +! Datsets numbering described above in "WRITE" statements. +! +! Note the following: +! +! 1. ERA5 relative humidity is with respect to water or ice depending on +! temperature. But RAMS does initialization assuming RH with respect to +! water, so estimates can be high at colder temperatures. Better to use +! ERA5 specific humidity. Yes soil/snow. +! +! 2. Note that soil/snow data MUST be on the same grid structure (e.g. lat-lon, +! lambert-conformal) and resolution (e.g. 1.0-deg, 0.25-deg) as the atmospheric +! pressure level data. +! +! 3. ERA5 data found at the following on the Copernicus data server: +! +! Pressure level reanalysis: +! "ERA5 hourly data on pressure levels from 1979 to present": +! https://cds.climate.copernicus.eu/cdsapp#!/dataset +! /reanalysis-era5-pressure-levels?tab=form +! +! Snow, soil moisture, soil temperatuere reanalysis: +! "ERA5 hourly data on single levels from 1979 to present": +! https://cds.climate.copernicus.eu/cdsapp#!/dataset +! /reanalysis-era5-single-levels?tab=form +!****************************************************************************** + +!****************************************************************************** +!NCEPreanalysis global 2.5deg lat-lon +if(datatype==1)then + !3D atmospheric variables + nvar3d=5 + allocate (var3d(nvar3d)) + var3d(1)='UGRD' + var3d(2)='VGRD' + var3d(3)='TMP' + var3d(4)='HGT' + var3d(5)='RH' + !2D snow water and depth variables here if available + nvar2d=2 + allocate (var2d(nvar2d)) + var2d(1)='NOTHING' !Accum. snow [kg/m^2] / SWE(mm) + var2d(2)='NOTHING' !Snow depth [m] + !SOIL moisture variables here if available + nvarsd=2 + allocate (varsd(nvarsd)) + varsd(1)='NOTHING' !Volumetric Soil Moisture (m3/m3)(fraction) + varsd(2)='NOTHING' !Soil temperature (K) + +!****************************************************************************** +!GDAS-FNL global 1.0-deg grids +! (Valid for GDAS before and including 2015 Jan 14 00Z) +! (1 soil level thru 2005053106. Added 3 more 2005053112.) +! Layers 0-10cm, 10-40cm, 40-100cm, 100-200cm soil (after 2005 Jun 01 00Z) +! Layer 0-10cm only (before 2005 Jun 01 00Z) +! depths so write out top 2 levels expected by RAMS +! No SNOD(snow depth) variable up to this time. Will estimate SNOD(m depth). +elseif(datatype==2)then + !3D atmospheric variables + nvar3d=5 + allocate (var3d(nvar3d)) + var3d(1)='UGRD' + var3d(2)='VGRD' + var3d(3)='TMP' + var3d(4)='HGT' + var3d(5)='RH' + !2D snow water and depth variables here if available + nvar2d=2 + allocate (var2d(nvar2d)) + var2d(1)='WEASD' !Accum. snow [kg/m^2] / SWE(mm) + var2d(2)='WEASD' !Snow depth [m] + !SOIL moisture variables here if available + nvarsd=2 + allocate (varsd(nvarsd)) + varsd(1)='SOILW' !Volumetric Soil Moisture (m3/m3)(fraction) + varsd(2)='TMP' !Soil temperature (K) + +!****************************************************************************** +!GDAS-FNL global 1.0-deg,0.25-deg; HRRR,GFS forecast grids (lat-lon) +! (Valid for GDAS after and including 2015 Jan 14 06Z) +! These data have 0-10cm, 10-40cm, 40-100cm, 100-200cm soil +! depths so write out top 2 levels expected by RAMS +!RAP Rapid Refresh Analysis 32km (awips grid 221) +! This data has 0cm,1cm,4cm,10cm,30cm,60cm,100cm,160cm,300cm soil +! depths so write out top 2 levels expected by RAMS +elseif(datatype==3)then + !3D atmospheric variables + nvar3d=5 + allocate (var3d(nvar3d)) + var3d(1)='UGRD' + var3d(2)='VGRD' + var3d(3)='TMP' + var3d(4)='HGT' + var3d(5)='RH' + !2D snow water and depth variables here if available + nvar2d=2 + allocate (var2d(nvar2d)) + var2d(1)='WEASD' !Accum. snow [kg/m^2] / SWE(mm) + var2d(2)='SNOD' !Snow depth [m] + !SOIL moisture variables here if available + nvarsd=2 + allocate (varsd(nvarsd)) + varsd(1)='SOILW' !Volumetric Soil Moisture (m3/m3)(fraction) + varsd(2)='TSOIL' !Soil temperature (K) + +!****************************************************************************** +!NARR reanalysis 32km (lambert-conformal grid) +! Make sure RAMSIN namelist knows you are using Q/SPFH (IDATAIN=1). +! The NARR 32km data has 0-10cm, 10-40cm, 40-100cm, 100-200cm soil +! depths so write out top 2 levels expected by RAMS +elseif(datatype==4)then + !3D atmospheric variables + nvar3d=5 + allocate (var3d(nvar3d)) + var3d(1)='UGRD' + var3d(2)='VGRD' + var3d(3)='TMP' + var3d(4)='HGT' + var3d(5)='SPFH' + !2D snow water and depth variables here if available + nvar2d=2 + allocate (var2d(nvar2d)) + var2d(1)='WEASD' !Accum. snow [kg/m^2] / SWE(mm) + var2d(2)='SNOD' !Snow depth [m] + !SOIL moisture variables here if available + nvarsd=2 + allocate (varsd(nvarsd)) + varsd(1)='SOILW' !Volumetric Soil Moisture (m3/m3)(fraction) + varsd(2)='TSOIL' !Soil temperature (K) + +!****************************************************************************** +!ECMWF-ERA-Interim global 1.5deg (lat-lon) +!ERA5 0.25-deg (global lat-lon or subset with pressure levels and soil/snow on +! same grid resolution. Using R/RELH rather than Q/SPFH for moisture. +! Top 2 ERA-Interim soil levels are 7-28cm and 0-7cm down +! Note that SD/SNOD here is meters of water equivalent (be careful) +elseif(datatype==5)then + !3D atmospheric variables + nvar3d=5 + allocate (var3d(nvar3d)) + var3d(1)='U' + var3d(2)='V' + var3d(3)='T' + var3d(4)='Z' !Geopotential, not Geopotential Height(m) + var3d(5)='R' + !2D snow water and depth variables here if available + nvar2d=2 + allocate (var2d(nvar2d)) + var2d(1)='SD' !WEASD estimated from SNOD + var2d(2)='SD' !Snow depth [m water equivalent](be careful) + !SOIL moisture variables here if available + nvarsd=4 + allocate (varsd(nvarsd)) + varsd(1)='SWVL2' !Volumetric Soil Moisture (m3/m3)(fraction) + varsd(2)='SWVL1' + varsd(3)='STL2' !Soil temperature (K) + varsd(4)='STL1' + +!****************************************************************************** +!ECMWF-ERA5 (lat-lon) (Global or subset) +! Using specific humidity (Q or SPFH) instead of relative humidity (R or RELH) +! Make sure RAMSIN namelist knows you are using Q/SPFH (IDATAIN=1). +! Top 2 ERA-Interim soil levels are 7-28cm and 0-7cm down +! Note that SD/SNOD here is meters of water equivalent (be careful) +elseif(datatype==6)then + !3D atmospheric variables + nvar3d=5 + allocate (var3d(nvar3d)) + var3d(1)='U' + var3d(2)='V' + var3d(3)='T' + var3d(4)='Z' !Geopotential, not Geopotential Height(m) + var3d(5)='Q' + !2D snow water and depth variables here if available + nvar2d=2 + allocate (var2d(nvar2d)) + var2d(1)='SD' !WEASD estimated from SNOD + var2d(2)='SD' !Snow depth [m water equivalent](be careful) + !SOIL moisture variables here if available + nvarsd=4 + allocate (varsd(nvarsd)) + varsd(1)='SWVL2' !Volumetric Soil Moisture (m3/m3)(fraction) + varsd(2)='SWVL1' + varsd(3)='STL2' !Soil temperature (K) + varsd(4)='STL1' + +endif +!****************************************************************************** + +!Read some of the grib metadata +call grib_query (filein(1:lcg)) !Open the grib file +call grib_queryc('projection',projection) !get Grid projection +call grib_queryf('lat1',alat1) !get SW lat +call grib_queryf('lon1',alon1) !get SW lon +call grib_queryf('lat2',alat2) !get NE lat +call grib_queryf('lon2',alon2) !get NE lon +call grib_queryf('dx',dx) !get Delta-X (km or deg) +call grib_queryf('dy',dy) !get Delta-Y (km or deg) +call grib_queryi('nx',nx) !get # of X grid points +call grib_queryi('ny',ny) !get # of Y grid points +allocate (a(nx,ny)) +call grib_queryi('nrec',nrec) !get # of records +call grib_queryi('longdate',longdate) !get the date/time +call grib_queryi('mode',mode) !get grid mode info (see grid tables) +call grib_queryf('orient',aorient) +call grib_queryf('lov',alov) !get grid orientation for LC projection +call grib_queryf('latin1',reflat1) !get reference lat 1 for LC projection +call grib_queryf('latin2',reflat2) !get reference lat 2 for LC projection +allocate (irecs(nrec)) +allocate (levs(nrec)) +allocate (idates(nrec)) +allocate (ifhrs(nrec)) +allocate (fields(nrec)) +call grib_queryi('irecs',irecs) +call grib_queryi('levs',levs) +call grib_queryi('idates',idates) +call grib_queryi('ifhrs',ifhrs) +call grib_queryc('fields',fields) + +print*,'DX,DY: ',dx,dy +print*,'NX,NY: ',nx,ny +print*,'LAT1,LON1: ',alat1,alon1 +print*,'LAT2,LON2: ',alat2,alon2 +print*,'PROJECTION: ',projection +print*,'LOV: ',alov !??? grid rotation +print*,'Orient: ',aorient !??? grid rotation +print*,'Mode: ',mode +print*,'Nrec: ',nrec +print*,'Irecs: ',irecs(nrec) + + + + + + + +!Do the dprep stuff + +!First some grid navigation bookeeping +if (projection(1:6)=="latlon") then + inproj=1 + !Will have to flip the latlon projections, + !Will modify start lat/lon to be -90;-180 + !RAMS wants coordinates -180 to 180 longitude (not 0 to 360) + if(mode==128)then + if(alat1==90.0)then !For truly global lat-lon data + llisglobal = .true. + alat1=-alat1 + alon1=alon1-180. + alat2=-alat2 + if(alon2 < 180.) alon2=alon2+180. + if(alon2 >= 180.) alon2=alon2-180. + else + !If we have a subset of the data, we still need to switch lat1 and lat2. + !We should also save that this is not global. + alatscr = alat1 + alat1 = alat2 + alat2 = alatscr + llisglobal = .false. + endif + endif +elseif (projection(1:7)=="Lambert") then + inproj=2 + alat2=0.0 !NE lat + alon2=0.0 !NE lon + dx=dx*1000. + dy=dy*1000. + aorient=alov +elseif (projection(1:5)=="polar") then + inproj=3 + !Assume the polar stereo is true polar stereo + reflat1=90. + reflat2=amiss +endif +print*,'PERHAPS MODIFIED LAT/LON REPORTED HERE' +print*,'LAT1,LON1: ',alat1,alon1 +print*,'LAT2,LON2: ',alat2,alon2 + +!Quick check to see if there are any fields matching time wanted +j=0 +do i=1,nrec + if(('HGT'==fields(i).or.'GP'==fields(i).or.'Z'==fields(i)) & + .and.ndate==idates(i) & + .and.nhr==ifhrs(i))then + j=1 + exit + endif +enddo +if(j==0)stop "NOTHING FOUND" + +!************************************************************************** +!Determine the number of Pressure levels we are going to use +nlev=0 +do i=1,nrec + if(levs(i)==0)cycle !don't count the surface fields here + if((fields(i)=='HGT'.or.fields(i)=='GP'.or.fields(i)=='Z') & + .and.ndate==idates(i) & + .and.nhr==ifhrs(i))then + nlev=nlev+1 + iplevs(nlev)=levs(i) + endif +enddo + +if(iplevs(1) < iplevs(nlev))then + nlev=0 + do i=nrec,1,-1 + if(levs(i)==0)cycle !don't count the surface fields here + if((fields(i)=='HGT'.or.fields(i)=='GP'.or.fields(i)=='Z') & + .and.ndate==idates(i) & + .and.nhr==ifhrs(i))then + nlev=nlev+1 + iplevs(nlev)=levs(i) + endif + enddo +endif +print*,'Number of Pressure Levels= ',nlev + +!************************************************************************** +!Determine the number of SOIL levels we are going to use. +!Only add soil (moisture and/or temperature) if the soil moisture is there. +slev=0 +do i=1,nrec + if((fields(i)=='SOILW'.or.fields(i)=='VSOILM').and.ndate==idates(i) & + .and.nhr==ifhrs(i))then + slev=slev+1 + islevs(slev)=levs(i) + endif +enddo +!Invert soil levels so level=1 is the bottom soil level (similar to RAMS) +if(abs(islevs(1)) < abs(islevs(slev)))then + slev=0 + do i=nrec,1,-1 + if((fields(i)=='SOILW'.or.fields(i)=='VSOILM').and.ndate==idates(i) & + .and.nhr==ifhrs(i))then + slev=slev+1 + islevs(slev)=levs(i) + endif + enddo +endif +!Check for independently named soil levels such as for ERA-Interim +!Order to that level=1 is the bottom soil level (similar to RAMS) +do i=1,nrec + if((fields(i)=='SWVL1').and.ndate==idates(i).and.nhr==ifhrs(i))then + slev=slev+1 + islevs(slev)=levs(i) + print*,'ERA',slev,islevs(slev) + endif + if((fields(i)=='SWVL2').and.ndate==idates(i).and.nhr==ifhrs(i))then + slev=slev+1 + islevs(slev)=levs(i) + print*,'ERA',slev,islevs(slev) + endif +enddo + +print*,'Number of Soil Levels= ',slev + +!************************************************************************** +!Set times for writing to file and dp header info +read(c_date(1:4) ,'(i4)')iyyyy +read(c_date(5:6) ,'(i2)')imm +read(c_date(7:8) ,'(i2)')idd +read(c_date(9:10),'(i2)')ihh + +leapyear=0 +!leap year check. Every 4th year is a leap year except years divisible by 100 +!unless they are also divisible by 400. +if( mod(iyyyy, 4)==0) then + !we could be a leap year. Keep checking. + leapyear=1 + if(mod(iyyyy, 100)==0) then + !maybe not + leapyear=0 + if(mod(iyyyy,400)==0) then + !yes leap year + leapyear=1 + endif + endif +endif +print*,'Leapyear= ',leapyear +!adjust date if using forecast grids +fyyyy = iyyyy +fmm = imm +fhh = ihh + mod(nhr,24) +fdd = idd + (nhr/24) +if(fhh>=24) then + fdd = fdd+fhh/24 + fhh = mod(fhh,24) +endif +if(imm==1 .and. fdd>31)then + fmm=2 + fdd=fdd-31 +elseif(imm==2 .and. fdd>28 .and. leapyear==0)then + fmm=3 + fdd=fdd-28 +elseif(imm==2 .and. fdd>29 .and. leapyear==1)then + fmm=3 + fdd=fdd-29 +elseif(imm==3 .and. fdd>31)then + fmm=4 + fdd=fdd-31 +elseif(imm==4 .and. fdd>30)then + fmm=5 + fdd=fdd-30 +elseif(imm==5 .and. fdd>31)then + fmm=6 + fdd=fdd-31 +elseif(imm==6 .and. fdd>30)then + fmm=7 + fdd=fdd-30 +elseif(imm==7 .and. fdd>31)then + fmm=8 + fdd=fdd-31 +elseif(imm==8 .and. fdd>31)then + fmm=9 + fdd=fdd-31 +elseif(imm==9 .and. fdd>30)then + fmm=10 + fdd=fdd-30 +elseif(imm==10 .and. fdd>31)then + fmm=11 + fdd=fdd-31 +elseif(imm==11 .and. fdd>30)then + fmm=12 + fdd=fdd-30 +elseif(imm==12 .and. fdd>31)then + fmm=1 + fdd=fdd-31 + fyyyy=iyyyy+1 +endif + +write(fileout,45 ) 'dp-p',fyyyy,'-',fmm,'-',fdd,'-',fhh,'00' + +print*,'Writing file:',fileout +45 format(a4,i4.4,a1,i2.2,a1,i2.2,a1,i2.2,a2) + +open(10,file=fileout,status='unknown',form='formatted') + +!Do the following 2 lines to make values between -180 to +180 for RAMS +if(alon1>180.) alon1=alon1-360. +if(aorient>180.) aorient=aorient-360. + +WRITE(10,900)iyyyy,imm,idd,ihh*100,nhr*100,nlev,nx,ny & + ,inproj,dx,dx,alat1,alon1,alat2,alon2,reflat1,aorient & + ,(iplevs(i),i=1,nlev) +900 FORMAT(8I6,/,i1,2x,8(F10.4,2x),/,(12I6)) + +!********************************************************************* +!********************************************************************* +! Go through each variable at each level for writing. + +!Uncomment if you are pulling 3D variables from grib (Saleeby 2-28-19) +!Must output all 5 3D vars even if null data from missing RH. +do j=1,nlev + do i=1,nvar3d + a=amiss + matched = .false. + call getfield(a,var3d(i),nrec,irecs,fields,levs,idates,ifhrs & + ,iplevs(j),ndate,nhr,matched) + call prepfield(a,nx,ny,projection,llisglobal,var3d(i),mode & + ,amiss,'3d',datatype,i) +!write(10,*)'3d NEXT ',var3d(i) + write(10,'(8f12.5)')a + enddo +enddo + +!Uncomment if you are pulling SOIL variables from grib (Saleeby 2-28-19) +!Datasets vary in the number of soil levels they have. Write out the top +!2 levels if we have 2+. If we only have 1 soil level, write it 2 times. +!RAMS wants to ingest 2 soil levels. If data fields are empty RAMS uses +!a default. +writesoillevs=0 +do i=1,nvarsd + startlev=max(1,slev-1) + endlev=max(1,slev) + do j=startlev,endlev + a=amiss + matched = .false. + call getfield(a,varsd(i),nrec,irecs,fields,levs,idates,ifhrs & + ,islevs(j),ndate,nhr,matched) + if(matched) then + call prepfield(a,nx,ny,projection,llisglobal,varsd(i),mode & + ,amiss,'sd',datatype,i) +!write(10,*)'SOIL NEXT ',varsd(i),islevs(j) + write(10,'(8f12.5)')a + writesoillevs=writesoillevs+1 + endif + enddo + !Write out at least 2 levels. If only 1 soil level exists, repeat it. + if(startlev==endlev)then + do j=startlev,endlev + a=amiss + matched = .false. + call getfield(a,varsd(i),nrec,irecs,fields,levs,idates,ifhrs & + ,islevs(j),ndate,nhr,matched) + if(matched) then + call prepfield(a,nx,ny,projection,llisglobal,varsd(i),mode & + ,amiss,'sd',datatype,i) +!write(10,*)'SOIL NEXT EXTRA ',varsd(i) + write(10,'(8f12.5)')a + writesoillevs=writesoillevs+1 + endif + enddo + endif +enddo +!If no soil data found, then input place filler +!If partial soil data found, then stop cause it is not written correctly. +if(writesoillevs < 4) then + if(writesoillevs == 0)then + do i=1,4 !2 soil moisture layers and then 2 soil temperature layers + a=amiss + print*,'SOIL Place Holder ',i +!write(10,*)'SOIL NEXT ',i + write(10,'(8f12.5)')a + enddo + else + print*,'INCONSISTENCY IN SOIL LAYERS - CHECK DATA' + stop + endif +endif + +!Uncomment if you are pulling 2D SNOW variables from grib (Saleeby 2-28-19) +!These are SWE(kg/m2,mm) and snow depth(m) +writesnowlevs=0 +do i=1,nvar2d + a=amiss + j=0 !specify j=0 for the surface + call getfield(a,var2d(i),nrec,irecs,fields,levs,idates,ifhrs & + ,j,ndate,nhr,matched) + if(matched) then + call prepfield(a,nx,ny,projection,llisglobal,var2d(i),mode & + ,amiss,'2d',datatype,i) +!write(10,*)'SNOW NEXT ',var2d(i) + write(10,'(8f12.5)')a + writesnowlevs=writesnowlevs+1 + endif +enddo +!If no snow data found, then input place filler +!If partial snow data found, then stop cause it is not written correctly. +if(writesnowlevs < 2) then + if(writesnowlevs == 0)then + do i=1,2 !snow water equivalent(kg/m2,mm) and snow depth(m) + a=amiss + print*,'SNOW Place Holder ',i +!write(10,*)'SNOW NEXT ',i + write(10,'(8f12.5)')a + enddo + else + print*,'INCONSISTENCY IN SNOW DATA - CHECK DATA' + stop + endif +endif + +!********************************************************************* +!********************************************************************* + +close(10) + +!Write the tag file to indicate file is complete +open(10,file=fileout(1:len_trim(fileout))//'.tag',status='unknown' & + ,form='formatted') +write(10,'(a)')'done' +close(10) + +deallocate (a) +deallocate (fields) +deallocate (ifhrs) +deallocate (idates) +deallocate (levs) +deallocate (irecs) +deallocate (var3d) +if(allocated(var2d)) deallocate (var2d) +if(allocated(varsd)) deallocate (varsd) + +END + +!************************************************************************ +Subroutine getfield (a,type,nrec,irecs,fields,levs,idates,ifhrs & + ,iplev,ndate,nhr,matched) + +implicit none + +real, dimension(*) :: a +character*(*) type, fields(*) +integer, dimension(*) :: irecs,levs,idates,ifhrs +integer :: iplev,ndate,nhr,nrec,i +logical :: matched + +matched = .false. + +do i=1,nrec,1 + + if(type==fields(i).and.iplev==levs(i).and.ndate==idates(i).and. & + nhr==ifhrs(i))then + call grib_get(a,irecs(i)) + print*,'matched ',fields(i),levs(i),idates(i),ifhrs(i) + matched = .true. + return + endif + +enddo + +return +END SUBROUTINE getfield + +!************************************************************************ +Subroutine prepfield (a,nx,ny,projection,llisglobal,type,mode,amiss,dimtype & + ,datatype,vars) + +implicit none + +integer nx,ny,datatype,vars +real, dimension(nx*ny) :: a +character*(*) type,projection,dimtype + +real, allocatable :: b(:) +real amiss +integer mode +logical :: llisglobal +integer i + +if(projection=='latlon'.and.mode==128)then + allocate (b(nx*ny)) + if(llisglobal) then + print*,' flipping the projection' + call flip(nx,ny,a,b) + else + print*,' flipping the projection (latsonly)' + call flip_lats(nx,ny,a,b) + endif + a=b + deallocate (b) +endif + +do i=1,nx*ny + if(a(i) >= 1.e10)a(i)=amiss + if(a(i) <= -9999.)then + print*,'Some data values less than -9999. Stopping.' + stop + endif +enddo + +!Turn from relative humidity in percent to a fraction +if(type=='RH' .or. type=='R')then + print*,' factoring RH' + do i=1,nx*ny + if(a(i) > amiss)a(i)=a(i)/100. + enddo + +!ECMWF uses GEOPOTENTIAL as the geopotential height multiplied by the WMO +!defined gravity constant of 9.80665 m/s**2 which is constant for all +!latitudes and all heights. We must adjust for geopotential height. +elseif(type=='GP' .or. type=='Z')then + print*,' convert geopotential to geopotential-height' + do i=1,nx*ny + a(i)=a(i)/9.80665 + if(a(i) < amiss) then + print*,'Bad negative geopotential height. Check data',i,a(i) + stop + endif + enddo + +!Turn from Pa to hPa or millibars +elseif(type=='PRMSL'.or.type=='PRES')then + print*,' factoring to mb' + do i=1,nx*ny + if(a(i) > amiss)a(i)=a(i)/100. + enddo + +!For GDAS-FNL snowdepth, Convert the 2nd WEASD to a snow-depth(m) +!assuming density of 10:1 (Convert mm-liquid-equiv to m-snowdepth) +elseif(datatype==2.and.dimtype=='2d'.and.vars==2.and.type=='WEASD')then + do i=1,nx*ny + if(a(i) > amiss)a(i)=a(i)/100. + enddo + +!For ERA-Int/ERA5, Convert the SD/SNOD snow-depth (meters of water equivalent) +!(Convert m-liquid-equiv to mm-liquid-equiv (kg/m2))(vars=1=WEASD) +elseif((datatype==5.or.datatype==6).and.dimtype=='2d'.and.vars==1.and.type=='SD')then + print*,' convert SD/SNOD(SWE in meters) to kg/m2(SWE in mm)' + do i=1,nx*ny + if(a(i) > amiss)a(i)=a(i)*1000. + enddo + +!For ERA-Int/ERA5, Convert the SD/SNOD snow depth (meters of water equivalent) +!assuming density of 10:1 (Convert m-liquid-equiv to m-snowdepth)(vars=2=SNOD) +elseif((datatype==5.or.datatype==6).and.dimtype=='2d'.and.vars==2.and.type=='SD')then + print*,' convert SD/SNOD(SWE in meters) to snow depth(m) assuming 10:1' + do i=1,nx*ny + if(a(i) > amiss)a(i)=a(i)*10. + enddo +endif + +return +END SUBROUTINE prepfield + +!************************************************************************ +Subroutine flip (nx,ny,vin,vout) + +implicit none + +integer nx,ny,i,j,ii,jj +real, dimension(nx,ny) :: vin, vout + +!Adjust starting longitude. Grib starts at 0.0deg lon +!while RAMS starts at -180.0deg +do i=1,nx + ii=nx/2+i + if(ii.gt.nx)ii=i-nx/2 + !Flip N/S for grib1 format + !wgrib says: WE:NS winds(N/S) + do j=1,ny + jj=ny-j+1 + vout(i,j)=vin(ii,jj) + enddo +enddo + +return +END SUBROUTINE flip + +!************************************************************************ +Subroutine flip_lats (nx,ny,vin,vout) +!Flip GRIB1 data (which is in N/S format) to RAMS +!which expects this data to go from S to N. This only flips N/S +!and is used for GLOBAL DATA SUBSETS. +!Testing has shown we need to do this for lat-lon global data subset of +!ERA5 data. Limited area subset of the global data can be retrieved +!by the API rather than by the Copernicus web server. + +implicit none + +integer nx,ny,i,j,jj +real, dimension(nx,ny) :: vin, vout + +!Flip the latitudes only, do not flip the longitudes. +do i=1,nx + do j=1,ny + jj=ny-j+1 + vout(i,j)=vin(i,jj) + enddo +enddo + +return +END SUBROUTINE flip_lats + diff --git a/src/6.2.16/dprep/dgrib2_main.f90 b/src/6.2.16/dprep/dgrib2_main.f90 new file mode 100644 index 0000000..de81ceb --- /dev/null +++ b/src/6.2.16/dprep/dgrib2_main.f90 @@ -0,0 +1,845 @@ +!############################################################################## +Program griber + +implicit none + +character*10 c_date,c_hr,c_datatype +character*128 filein,fileout +character*2 cflag(10) +character*20 projection +character(len=20), allocatable :: fields(:),var3d(:), var2d(:), varsd(:) +integer, allocatable :: levs(:),idates(:),ifhrs(:) +real, allocatable :: a(:,:),frecs(:) + +integer :: nx,ny,nrec,longdate,mode & + ,ia,iargc,istr,iend,inc,i,j,lcg,ndate,nhr & + ,nlev,slev,inproj,miss,startlev,endlev & + ,iyyyy,imm,idd,ihh,fyyyy,fmm,fdd,fhh,leapyear & + ,nvar3d,nvar2d,nvarsd,iplevs(1000),islevs(1000),datatype & + ,writesoillevs,writesnowlevs +real :: alat1,alon1,alat2,alon2,alov,aorient,dx,dy,reflat1,reflat2 & + ,tinc,amiss,alatscr +logical :: llisglobal,matched +data amiss /-999./ +llisglobal = .true. +!****************************************************************************** +!Check for command line arguments +!****************************************************************************** +IA = IARGC ( ) +IF (IA .lt. 8) THEN + WRITE(*,'("Usage:dgrib [-t #] [-d YYYYMMDDHH] [-h fcsthr] [-f gribfile]")') + WRITE(*,'("-t option:")') + WRITE(*,'(" # = 1: NcepReanalysis 1 or 2 Global Lat/lon at 2.5-deg")') + WRITE(*,'(" NO soil/snow; Using R / RELH")') + WRITE(*,'(" Upper air names: UGRD,VGRD,TMP,HGT,RH")') + WRITE(*,'(" SWE,SnowDepth names: NOTHING,NOTHING")') + WRITE(*,'(" Soil Moisture,Temp names: NOTHING,NOTHING")') + WRITE(*,'(" # = 2: GDAS-FNL Global Lat/Lon at 1.0deg UNTIL Jan 14, 2015 00Z")') + WRITE(*,'(" YES soil/snow; Using R / RELH")') + WRITE(*,'(" Upper air names: UGRD,VGRD,TMP,HGT,RH")') + WRITE(*,'(" SWE,SnowDepth names: WEASD,WEASD")') + WRITE(*,'(" Soil Moisture,Temp names: SOILW,TMP")') + WRITE(*,'(" # = 3: GDAS-FNL Global Lat/Lon at 1.0deg AFTER Jan 14, 2015 00Z")') + WRITE(*,'(" # = 3: GDAS-FNL Global Lat/Lon at 0.25deg after Jul 8, 2015")') + WRITE(*,'(" # = 3: Forecast grids for GFS and HRRR Lat/Lon Grid")') + WRITE(*,'(" # = 3: RAP Rapid Refresh Analysis 32km Awips Grid 221")') + WRITE(*,'(" YES soil/snow; Using R / RELH")') + WRITE(*,'(" Upper air names: UGRD,VGRD,TMP,HGT,RH")') + WRITE(*,'(" SWE,SnowDepth names: WEASD,SNOD")') + WRITE(*,'(" Soil Moisture,Temp names: SOILW,TSOIL")') + WRITE(*,'(" # = 4: NARR 32km Lambert Conformal Grid")') + WRITE(*,'(" YES soil/snow; Using Q / SPFH")') + WRITE(*,'(" Upper air names: UGRD,VGRD,TMP,HGT,SPFH")') + WRITE(*,'(" SWE,SnowDepth names: WEASD,SNOD")') + WRITE(*,'(" Soil Moisture,Temp names: SOILW,TSOIL")') + WRITE(*,'(" # = 5: ERA-Interim Global Lat/Lon at various resolutions")') + WRITE(*,'(" # = 5: ERA5 Global Lat/Lon or area subset at 0.25deg")') + WRITE(*,'(" YES soil/snow; Using R / RELH")') + WRITE(*,'(" Upper air names: UGRD,VGRD,TMP,GP,RH")') + WRITE(*,'(" SWE,SnowDepth names: SNOD,SNOD")') + WRITE(*,'(" Soil Moisture,Temp names: VSOILM,TSOIL")') + WRITE(*,'(" # = 6: ERA5 Lat/Lon Global or area subset at 0.25deg")') + WRITE(*,'(" YES soil/snow; Using Q / SPFH")') + WRITE(*,'(" Upper air names: U,V,T,Z,Q")') + WRITE(*,'(" SWE,SnowDepth names: SD,SD")') + WRITE(*,'(" Soil Moisture,Temp names: SWVL2,SWVL1,STL2,STL1")') + WRITE(*,'("-d option: YYYYMMDDHH is the time")') + WRITE(*,'("-h option: forecast hour (should be 0 for reanalysis)")') + WRITE(*,'("-f option: gribfile is the name of the file to extract data")') + WRITE(*,'("See Dprep Documentation with RAMS for info on data in Grib files.")') + STOP +ENDIF + +!Set default date and forecast hour +c_date='99999999' +c_hr ='99999999' + +!Read command line arguments +do i=1,ia,2 + call ugetarg(i,cflag(i)) + if(cflag(i).eq.'-t')then + call ugetarg(i+1,c_datatype) + elseif(cflag(i).eq.'-d')then + call ugetarg(i+1,c_date) + elseif(cflag(i).eq.'-h')then + call ugetarg(i+1,c_hr) + elseif(cflag(i).eq.'-f')then + call ugetarg(i+1,filein) + endif +enddo + +!wgrib only prints out the 2 digit year in short inventory +read(c_date,'(i10)')ndate +read(c_hr,'(i10)')nhr +read(c_datatype,'(i10)')datatype +!Print out command line inputs +lcg=index(filein,' ')-1 +print*,'gribfile=',filein(1:lcg) +print*,'c_date=',c_date,ndate +print*,'c_hr=',c_hr,nhr +print*,'c_datatype=',c_datatype,datatype + +!****************************************************************************** +! Datsets numbering described above in "WRITE" statements. +! +! Note the following: +! +! 1. ERA5 relative humidity is with respect to water or ice depending on +! temperature. But RAMS does initialization assuming RH with respect to +! water, so estimates can be high at colder temperatures. Better to use +! ERA5 specific humidity. Yes soil/snow. +! +! 2. Note that soil/snow data MUST be on the same grid structure (e.g. lat-lon, +! lambert-conformal) and resolution (e.g. 1.0-deg, 0.25-deg) as the atmospheric +! pressure level data. +! +! 3. ERA5 data found at the following on the Copernicus data server: +! +! Pressure level reanalysis: +! "ERA5 hourly data on pressure levels from 1979 to present": +! https://cds.climate.copernicus.eu/cdsapp#!/dataset +! /reanalysis-era5-pressure-levels?tab=form +! +! Snow, soil moisture, soil temperatuere reanalysis: +! "ERA5 hourly data on single levels from 1979 to present": +! https://cds.climate.copernicus.eu/cdsapp#!/dataset +! /reanalysis-era5-single-levels?tab=form +!****************************************************************************** + +!****************************************************************************** +!NCEPreanalysis global 2.5deg lat-lon +if(datatype==1)then + !3D atmospheric variables + nvar3d=5 + allocate (var3d(nvar3d)) + var3d(1)='UGRD' + var3d(2)='VGRD' + var3d(3)='TMP' + var3d(4)='HGT' + var3d(5)='RH' + !2D snow water and depth variables here if available + nvar2d=2 + allocate (var2d(nvar2d)) + var2d(1)='NOTHING' !Accum. snow [kg/m^2] / SWE(mm) + var2d(2)='NOTHING' !Snow depth [m] + !SOIL moisture variables here if available + nvarsd=2 + allocate (varsd(nvarsd)) + varsd(1)='NOTHING' !Volumetric Soil Moisture (m3/m3)(fraction) + varsd(2)='NOTHING' !Soil temperature (K) + +!****************************************************************************** +!GDAS-FNL global 1.0-deg grids +! (Valid for GDAS before and including 2015 Jan 14 00Z) +! (1 soil level thru 2005053106. Added 3 more 2005053112.) +! Layers 0-10cm, 10-40cm, 40-100cm, 100-200cm soil (after 2005 Jun 01 00Z) +! Layer 0-10cm only (before 2005 Jun 01 00Z) +! depths so write out top 2 levels expected by RAMS +! No SNOD(snow depth) variable up to this time. Will estimate SNOD(m depth). +elseif(datatype==2)then + !3D atmospheric variables + nvar3d=5 + allocate (var3d(nvar3d)) + var3d(1)='UGRD' + var3d(2)='VGRD' + var3d(3)='TMP' + var3d(4)='HGT' + var3d(5)='RH' + !2D snow water and depth variables here if available + nvar2d=2 + allocate (var2d(nvar2d)) + var2d(1)='WEASD' !Accum. snow [kg/m^2] / SWE(mm) + var2d(2)='WEASD' !Snow depth [m] + !SOIL moisture variables here if available + nvarsd=2 + allocate (varsd(nvarsd)) + varsd(1)='SOILW' !Volumetric Soil Moisture (m3/m3)(fraction) + varsd(2)='TMP' !Soil temperature (K) + +!****************************************************************************** +!GDAS-FNL global 1.0-deg,0.25-deg; HRRR,GFS forecast grids (lat-lon) +! (Valid for GDAS after and including 2015 Jan 14 06Z) +! These data have 0-10cm, 10-40cm, 40-100cm, 100-200cm soil +! depths so write out top 2 levels expected by RAMS +!RAP Rapid Refresh Analysis 32km (awips grid 221) +! This data has 0cm,1cm,4cm,10cm,30cm,60cm,100cm,160cm,300cm soil +! depths so write out top 2 levels expected by RAMS +elseif(datatype==3)then + !3D atmospheric variables + nvar3d=5 + allocate (var3d(nvar3d)) + var3d(1)='UGRD' + var3d(2)='VGRD' + var3d(3)='TMP' + var3d(4)='HGT' + var3d(5)='RH' + !2D snow water and depth variables here if available + nvar2d=2 + allocate (var2d(nvar2d)) + var2d(1)='WEASD' !Accum. snow [kg/m^2] / SWE(mm) + var2d(2)='SNOD' !Snow depth [m] + !SOIL moisture variables here if available + nvarsd=2 + allocate (varsd(nvarsd)) + varsd(1)='SOILW' !Volumetric Soil Moisture (m3/m3)(fraction) + varsd(2)='TSOIL' !Soil temperature (K) + +!****************************************************************************** +!NARR reanalysis 32km (lambert-conformal grid) +! Make sure RAMSIN namelist knows you are using Q/SPFH (IDATAIN=1). +! The NARR 32km data has 0-10cm, 10-40cm, 40-100cm, 100-200cm soil +! depths so write out top 2 levels expected by RAMS +elseif(datatype==4)then + !3D atmospheric variables + nvar3d=5 + allocate (var3d(nvar3d)) + var3d(1)='UGRD' + var3d(2)='VGRD' + var3d(3)='TMP' + var3d(4)='HGT' + var3d(5)='SPFH' + !2D snow water and depth variables here if available + nvar2d=2 + allocate (var2d(nvar2d)) + var2d(1)='WEASD' !Accum. snow [kg/m^2] / SWE(mm) + var2d(2)='SNOD' !Snow depth [m] + !SOIL moisture variables here if available + nvarsd=2 + allocate (varsd(nvarsd)) + varsd(1)='SOILW' !Volumetric Soil Moisture (m3/m3)(fraction) + varsd(2)='TSOIL' !Soil temperature (K) + +!****************************************************************************** +!ECMWF-ERA-Interim global 1.5deg (lat-lon) +!ERA5 0.25-deg (global lat-lon or subset with pressure levels and soil/snow on +! same grid resolution. Using R/RELH rather than Q/SPFH for moisture. +! Top 2 ERA-Interim soil levels are 7-28cm and 0-7cm down +! Note that SD/SNOD here is meters of water equivalent (be careful) +elseif(datatype==5)then + !3D atmospheric variables + nvar3d=5 + allocate (var3d(nvar3d)) + var3d(1)='UGRD' + var3d(2)='VGRD' + var3d(3)='TMP' + var3d(4)='GP' !Geopotential, not Geopotential Height(m) + var3d(5)='RH' + !2D snow water and depth variables here if available + nvar2d=2 + allocate (var2d(nvar2d)) + var2d(1)='SNOD' !WEASD estimated from SNOD + var2d(2)='SNOD' !Snow depth [m water equivalent](be careful) + !SOIL moisture variables here if available + nvarsd=2 + allocate (varsd(nvarsd)) + varsd(1)='VSOILM' !Volumetric Soil Moisture (m3/m3)(fraction) + varsd(2)='TSOIL' !Soil temperature (K) + + + +!****************************************************************************** +!ECMWF-ERA5 (lat-lon) (Global or subset) *#NEEDS FIXING - DO NOT USE YET** +! Using specific humidity (Q or SPFH) instead of relative humidity (R or RELH) +! Make sure RAMSIN namelist knows you are using Q/SPFH (IDATAIN=1). +! Top 2 ERA-Interim soil levels are 7-28cm and 0-7cm down +! Note that SD/SNOD here is meters of water equivalent (be careful) +elseif(datatype==6)then + !3D atmospheric variables + nvar3d=5 + allocate (var3d(nvar3d)) + var3d(1)='U' + var3d(2)='V' + var3d(3)='T' + var3d(4)='Z' !Geopotential, not Geopotential Height(m) + var3d(5)='Q' + !2D snow water and depth variables here if available + nvar2d=2 + allocate (var2d(nvar2d)) + var2d(1)='SD' !WEASD estimated from SNOD + var2d(2)='SD' !Snow depth [m water equivalent](be careful) + !SOIL moisture variables here if available + nvarsd=4 + allocate (varsd(nvarsd)) + varsd(1)='SWVL2' !Volumetric Soil Moisture (m3/m3)(fraction) + varsd(2)='SWVL1' + varsd(3)='STL2' !Soil temperature (K) + varsd(4)='STL1' + +endif +!****************************************************************************** + +!Read some of the grib metadata +call grib_query (filein(1:lcg)) !Open the grib file +call grib_queryc('projection',projection) !get Grid projection +call grib_queryf('lat1',alat1) !get SW lat +call grib_queryf('lon1',alon1) !get SW lon +call grib_queryf('lat2',alat2) !get NE lat +call grib_queryf('lon2',alon2) !get NE lon +call grib_queryf('dx',dx) !get Delta-X (km or deg) +call grib_queryf('dy',dy) !get Delta-Y (km or deg) +call grib_queryi('nx',nx) !get # of X grid points +call grib_queryi('ny',ny) !get # of Y grid points +allocate (a(nx,ny)) +call grib_queryi('nrec',nrec) !get # of records +call grib_queryi('longdate',longdate) !get the date/time +call grib_queryi('mode',mode) !get grid mode info (see grid tables) +call grib_queryf('orient',aorient) +call grib_queryf('lov',alov) !get grid orientation for LC projection +call grib_queryf('latin1',reflat1) !get reference lat 1 for LC projection +call grib_queryf('latin2',reflat2) !get reference lat 2 for LC projection +allocate (frecs(nrec)) +allocate (levs(nrec)) +allocate (idates(nrec)) +allocate (ifhrs(nrec)) +allocate (fields(nrec)) +call grib_queryf('frecs',frecs) +call grib_queryi('levs',levs) +call grib_queryi('idates',idates) +call grib_queryi('ifhrs',ifhrs) +call grib_queryc('fields',fields) + +print*,'DX,DY: ',dx,dy +print*,'NX,NY: ',nx,ny +print*,'LAT1,LON1: ',alat1,alon1 +print*,'LAT2,LON2: ',alat2,alon2 +print*,'PROJECTION: ',projection +print*,'LOV: ',alov !??? grid rotation +print*,'Orient: ',aorient !??? grid rotation +print*,'Nrec: ',nrec +print*,'Frecs: ',frecs(nrec) + +!For some latlon projections, mode is not included in header as in Wgrib1 +!But we need to reorient projection using mode=128 as in Wgrib1. +!However in grib2 format the lat-lon projections is output South-to-North +!as we need, so we do not need to flip projection for latitude. +if (projection(1:7)=="lat-lon") mode=128 +print*,'Mode: ',mode + +!Do the dprep stuff + +!First some grid navigation bookeeping +if (projection(1:7)=="lat-lon") then + inproj=1 + + !Will modify start lat/lon to be -90;-180 + !RAMS wants coordinates -180 to 180 longitude (not 0 to 360) + if(mode==128)then + if(alat1==90.0)then !For truly global lat-lon data + llisglobal = .true. + alat1=-alat1 + alon1=alon1-180. + alat2=-alat2 + alon2=alon2-180. + + else + !If we have a subset of the data, we still need to switch lat1 and lat2. + !We should also save that this is not global. + alatscr = alat1 + alat1 = alat2 + alat2 = alatscr + llisglobal = .false. + endif + endif +elseif (projection(1:7)=="Lambert") then + inproj=2 + alat2=0.0 !NE lat + alon2=0.0 !NE lon + + + aorient=alov +elseif (projection(1:5)=="polar") then + inproj=3 + !Assume the polar stereo is true polar stereo + reflat1=90. + reflat2=amiss +endif +print*,'PERHAPS MODIFIED LAT/LON REPORTED HERE' +print*,'LAT1,LON1: ',alat1,alon1 +print*,'LAT2,LON2: ',alat2,alon2 + +!Quick check to see if there are any fields matching time wanted +j=0 +do i=1,nrec + if(('HGT'==fields(i).or.'GP'==fields(i).or.'Z'==fields(i)) & + .and.ndate==idates(i) & + .and.nhr==ifhrs(i))then + j=1 + exit + endif +enddo +if(j==0)stop "NOTHING FOUND" + +!************************************************************************** +!Determine the number of Pressure levels we are going to use +nlev=0 +do i=1,nrec + if(levs(i)==0)cycle !don't count the surface fields here + if((fields(i)=='HGT'.or.fields(i)=='GP'.or.fields(i)=='Z') & + .and.ndate==idates(i) & + .and.nhr==ifhrs(i))then + nlev=nlev+1 + iplevs(nlev)=levs(i) + endif +enddo + +if(iplevs(1) < iplevs(nlev))then + nlev=0 + do i=nrec,1,-1 + if(levs(i)==0)cycle !don't count the surface fields here + if((fields(i)=='HGT'.or.fields(i)=='GP'.or.fields(i)=='Z') & + .and.ndate==idates(i) & + .and.nhr==ifhrs(i))then + nlev=nlev+1 + iplevs(nlev)=levs(i) + endif + enddo +endif +print*,'Number of Pressure Levels= ',nlev + +!************************************************************************** +!Determine the number of SOIL levels we are going to use. +!Only add soil (moisture and/or temperature) if the soil moisture is there. +slev=0 +do i=1,nrec + if((fields(i)=='SOILW'.or.fields(i)=='VSOILM').and.ndate==idates(i) & + .and.nhr==ifhrs(i))then + slev=slev+1 + islevs(slev)=levs(i) + endif +enddo +!Invert soil levels so level=1 is the bottom soil level (similar to RAMS) +if(abs(islevs(1)) < abs(islevs(slev)))then + slev=0 + do i=nrec,1,-1 + if((fields(i)=='SOILW'.or.fields(i)=='VSOILM').and.ndate==idates(i) & + .and.nhr==ifhrs(i))then + slev=slev+1 + islevs(slev)=levs(i) + endif + enddo +endif +!Check for independently named soil levels such as for ERA-Interim +!Order to that level=1 is the bottom soil level (similar to RAMS) +do i=1,nrec + if((fields(i)=='SWVL1').and.ndate==idates(i).and.nhr==ifhrs(i))then + slev=slev+1 + islevs(slev)=levs(i) + print*,'ERA',slev,islevs(slev) + endif + if((fields(i)=='SWVL2').and.ndate==idates(i).and.nhr==ifhrs(i))then + slev=slev+1 + islevs(slev)=levs(i) + print*,'ERA',slev,islevs(slev) + endif +enddo + +print*,'Number of Soil Levels= ',slev + +!************************************************************************** +!Set times for writing to file and dp header info +read(c_date(1:4) ,'(i4)')iyyyy +read(c_date(5:6) ,'(i2)')imm +read(c_date(7:8) ,'(i2)')idd +read(c_date(9:10),'(i2)')ihh + +leapyear=0 +!leap year check. Every 4th year is a leap year except years divisible by 100 +!unless they are also divisible by 400. +if( mod(iyyyy, 4)==0) then + !we could be a leap year. Keep checking. + leapyear=1 + if(mod(iyyyy, 100)==0) then + !maybe not + leapyear=0 + if(mod(iyyyy,400)==0) then + !yes leap year + leapyear=1 + endif + endif +endif +print*,'Leapyear= ',leapyear +!adjust date if using forecast grids +fyyyy = iyyyy +fmm = imm +fhh = ihh + mod(nhr,24) +fdd = idd + (nhr/24) +if(fhh>=24) then + fdd = fdd+fhh/24 + fhh = mod(fhh,24) +endif +if(imm==1 .and. fdd>31)then + fmm=2 + fdd=fdd-31 +elseif(imm==2 .and. fdd>28 .and. leapyear==0)then + fmm=3 + fdd=fdd-28 +elseif(imm==2 .and. fdd>29 .and. leapyear==1)then + fmm=3 + fdd=fdd-29 +elseif(imm==3 .and. fdd>31)then + fmm=4 + fdd=fdd-31 +elseif(imm==4 .and. fdd>30)then + fmm=5 + fdd=fdd-30 +elseif(imm==5 .and. fdd>31)then + fmm=6 + fdd=fdd-31 +elseif(imm==6 .and. fdd>30)then + fmm=7 + fdd=fdd-30 +elseif(imm==7 .and. fdd>31)then + fmm=8 + fdd=fdd-31 +elseif(imm==8 .and. fdd>31)then + fmm=9 + fdd=fdd-31 +elseif(imm==9 .and. fdd>30)then + fmm=10 + fdd=fdd-30 +elseif(imm==10 .and. fdd>31)then + fmm=11 + fdd=fdd-31 +elseif(imm==11 .and. fdd>30)then + fmm=12 + fdd=fdd-30 +elseif(imm==12 .and. fdd>31)then + fmm=1 + fdd=fdd-31 + fyyyy=iyyyy+1 +endif + +write(fileout,45 ) 'dp-p',fyyyy,'-',fmm,'-',fdd,'-',fhh,'00' + +print*,'Writing file:',fileout +45 format(a4,i4.4,a1,i2.2,a1,i2.2,a1,i2.2,a2) + +open(10,file=fileout,status='unknown',form='formatted') + +!Do the following 2 lines to make values between -180 to +180 for RAMS +if(alon1>180.) alon1=alon1-360. +if(aorient>180.) aorient=aorient-360. + +WRITE(10,900)iyyyy,imm,idd,ihh*100,nhr*100,nlev,nx,ny & + ,inproj,dx,dx,alat1,alon1,alat2,alon2,reflat1,aorient & + ,(iplevs(i),i=1,nlev) +900 FORMAT(8I6,/,i1,2x,8(F10.4,2x),/,(12I6)) + +!********************************************************************* +!********************************************************************* +! Go through each variable at each level for writing. + +!Uncomment if you are pulling 3D variables from grib (Saleeby 2-28-19) +!Must output all 5 3D vars even if null data from missing RH. +do j=1,nlev + do i=1,nvar3d + a=amiss + matched = .false. + call getfield(a,var3d(i),nrec,frecs,fields,levs,idates,ifhrs & + ,iplevs(j),ndate,nhr,matched) + call prepfield(a,nx,ny,projection,llisglobal,var3d(i),mode & + ,amiss,'3d',datatype,i) +!write(10,*)'3d NEXT ',var3d(i) + write(10,'(8f12.5)')a + enddo +enddo + +!Uncomment if you are pulling SOIL variables from grib (Saleeby 2-28-19) +!Datasets vary in the number of soil levels they have. Write out the top +!2 levels if we have 2+. If we only have 1 soil level, write it 2 times. +!RAMS wants to ingest 2 soil levels. If data fields are empty RAMS uses +!a default. +writesoillevs=0 +do i=1,nvarsd + startlev=max(1,slev-1) + endlev=max(1,slev) + do j=startlev,endlev + a=amiss + matched = .false. + call getfield(a,varsd(i),nrec,frecs,fields,levs,idates,ifhrs & + ,islevs(j),ndate,nhr,matched) + if(matched) then + call prepfield(a,nx,ny,projection,llisglobal,varsd(i),mode & + ,amiss,'sd',datatype,i) +!write(10,*)'SOIL NEXT ',varsd(i),islevs(j) + write(10,'(8f12.5)')a + writesoillevs=writesoillevs+1 + endif + enddo + !Write out at least 2 levels. If only 1 soil level exists, repeat it. + if(startlev==endlev)then + do j=startlev,endlev + a=amiss + matched = .false. + call getfield(a,varsd(i),nrec,frecs,fields,levs,idates,ifhrs & + ,islevs(j),ndate,nhr,matched) + if(matched) then + call prepfield(a,nx,ny,projection,llisglobal,varsd(i),mode & + ,amiss,'sd',datatype,i) +!write(10,*)'SOIL NEXT EXTRA ',varsd(i) + write(10,'(8f12.5)')a + writesoillevs=writesoillevs+1 + endif + enddo + endif +enddo +!If no soil data found, then input place filler +!If partial soil data found, then stop cause it is not written correctly. +if(writesoillevs < 4) then + if(writesoillevs == 0)then + do i=1,4 !2 soil moisture layers and then 2 soil temperature layers + a=amiss + print*,'SOIL Place Holder ',i +!write(10,*)'SOIL NEXT ',i + write(10,'(8f12.5)')a + enddo + else + print*,'INCONSISTENCY IN SOIL LAYERS - CHECK DATA' + stop + endif +endif + +!Uncomment if you are pulling 2D SNOW variables from grib (Saleeby 2-28-19) +!These are SWE(kg/m2,mm) and snow depth(m) +writesnowlevs=0 +do i=1,nvar2d + a=amiss + j=0 !specify j=0 for the surface + call getfield(a,var2d(i),nrec,frecs,fields,levs,idates,ifhrs & + ,j,ndate,nhr,matched) + if(matched) then + call prepfield(a,nx,ny,projection,llisglobal,var2d(i),mode & + ,amiss,'2d',datatype,i) +!write(10,*)'SNOW NEXT ',var2d(i) + write(10,'(8f12.5)')a + writesnowlevs=writesnowlevs+1 + endif +enddo +!If no snow data found, then input place filler +!If partial snow data found, then stop cause it is not written correctly. +if(writesnowlevs < 2) then + if(writesnowlevs == 0)then + do i=1,2 !snow water equivalent(kg/m2,mm) and snow depth(m) + a=amiss + print*,'SNOW Place Holder ',i +!write(10,*)'SNOW NEXT ',i + write(10,'(8f12.5)')a + enddo + else + print*,'INCONSISTENCY IN SNOW DATA - CHECK DATA' + stop + endif +endif + +!********************************************************************* +!********************************************************************* + +close(10) + +!Write the tag file to indicate file is complete +open(10,file=fileout(1:len_trim(fileout))//'.tag',status='unknown' & + ,form='formatted') +write(10,'(a)')'done' +close(10) + +deallocate (a) +deallocate (fields) +deallocate (ifhrs) +deallocate (idates) +deallocate (levs) +deallocate (frecs) +deallocate (var3d) +if(allocated(var2d)) deallocate (var2d) +if(allocated(varsd)) deallocate (varsd) + +END + +!************************************************************************ +Subroutine getfield (a,type,nrec,frecs,fields,levs,idates,ifhrs & + ,iplev,ndate,nhr,matched) + +implicit none + +real, dimension(*) :: a,frecs +character*(*) type, fields(*) +integer, dimension(*) :: levs,idates,ifhrs +integer :: iplev,ndate,nhr,nrec,i +logical :: matched + +matched = .false. + +do i=1,nrec,1 + + if(type==fields(i).and.iplev==levs(i).and.ndate==idates(i).and. & + nhr==ifhrs(i))then + call grib_get(a,frecs(i)) + print*,'matched ',fields(i),levs(i),idates(i),ifhrs(i) + matched = .true. + return + endif + +enddo + +return +END SUBROUTINE getfield + +!************************************************************************ +Subroutine prepfield (a,nx,ny,projection,llisglobal,type,mode,amiss,dimtype & + ,datatype,vars) + +implicit none + +integer nx,ny,datatype,vars +real, dimension(nx*ny) :: a +character*(*) type,projection,dimtype + +real, allocatable :: b(:) +real amiss +integer mode +logical :: llisglobal +integer i + +if(projection(1:7)=='lat-lon'.and.mode==128)then + allocate (b(nx*ny)) + if(llisglobal) then + print*,' flipping the projection' + call flip(nx,ny,a,b) + else + print*,' flipping the projection (latsonly)' + call flip_lats(nx,ny,a,b) + endif + a=b + deallocate (b) +endif + +do i=1,nx*ny + if(a(i) >= 1.e10)a(i)=amiss + if(a(i) <= -9999.)then + print*,'Some data values less than -9999. Stopping.' + stop + endif +enddo + +!Turn from relative humidity in percent to a fraction +if(type=='RH' .or. type=='R')then + print*,' factoring RH' + do i=1,nx*ny + if(a(i) > amiss)a(i)=a(i)/100. + enddo + +!ECMWF uses GEOPOTENTIAL as the geopotential height multiplied by the WMO +!defined gravity constant of 9.80665 m/s**2 which is constant for all +!latitudes and all heights. We must adjust for geopotential height. +elseif(type=='GP' .or. type=='Z')then + print*,' convert geopotential to geopotential-height' + do i=1,nx*ny + a(i)=a(i)/9.80665 + if(a(i) < amiss) then + print*,'Bad negative geopotential height. Check data',i,a(i) + stop + endif + enddo + +!Turn from Pa to hPa or millibars +elseif(type=='PRMSL'.or.type=='PRES')then + print*,' factoring to mb' + do i=1,nx*ny + if(a(i) > amiss)a(i)=a(i)/100. + enddo + +!For GDAS-FNL snowdepth, Convert the 2nd WEASD to a snow-depth(m) +!assuming density of 10:1 (Convert mm-liquid-equiv to m-snowdepth) +elseif(datatype==2.and.dimtype=='2d'.and.vars==2.and.type=='WEASD')then + do i=1,nx*ny + if(a(i) > amiss)a(i)=a(i)/100. + enddo + +!For ERA-Int/ERA5, Convert the SD/SNOD snow-depth (meters of water equivalent) +!(Convert m-liquid-equiv to mm-liquid-equiv (kg/m2))(vars=1=WEASD) +elseif(datatype==5.and.dimtype=='2d'.and.vars==1.and.type=='SNOD')then + print*,' convert SNOD(SWE in meters) to kg/m2(SWE in mm)' + do i=1,nx*ny + if(a(i) > amiss)a(i)=a(i)*1000. + enddo + +!For ERA-Int/ERA5, Convert the SD/SNOD snow depth (meters of water equivalent) +!assuming density of 10:1 (Convert m-liquid-equiv to m-snowdepth)(vars=2=SNOD) +elseif(datatype==5.and.dimtype=='2d'.and.vars==2.and.type=='SNOD')then + print*,' convert SNOD(SWE in meters) to snow depth(m) assuming 10:1' + do i=1,nx*ny + if(a(i) > amiss)a(i)=a(i)*10. + enddo +endif + +return +END SUBROUTINE prepfield + +!************************************************************************ +Subroutine flip (nx,ny,vin,vout) + +implicit none + +integer nx,ny,i,j,ii,jj +real, dimension(nx,ny) :: vin, vout + +!Adjust starting longitude. Grib starts at 0.0deg lon +!while RAMS starts at -180.0deg +do i=1,nx + ii=nx/2+i + if(ii.gt.nx)ii=i-nx/2 + !Do not flip N/S for grib2 format + !wgrib2 says: input WE:NS output WE:SN + do j=1,ny + jj=j + vout(i,j)=vin(ii,jj) + enddo +enddo + +return +END SUBROUTINE flip + +!************************************************************************ +Subroutine flip_lats (nx,ny,vin,vout) +!Flip GRIB1 data (which is in N/S format) to RAMS +!which expects this data to go from S to N. This only flips N/S +!and is used for GLOBAL DATA SUBSETS. +!Testing has shown we need to do this for lat-lon global data subset of +!ERA5 data. Limited area subset of the global data can be retrieved +!by the API rather than by the Copernicus web server. + +implicit none + +integer nx,ny,i,j,jj +real, dimension(nx,ny) :: vin, vout + +!Flip the latitudes only, do not flip the longitudes. +do i=1,nx + do j=1,ny + jj=ny-j+1 + vout(i,j)=vin(i,jj) + enddo +enddo + +return +END SUBROUTINE flip_lats + diff --git a/src/6.2.16/fdda/nud_analysis.f90 b/src/6.2.16/fdda/nud_analysis.f90 new file mode 100644 index 0000000..d190486 --- /dev/null +++ b/src/6.2.16/fdda/nud_analysis.f90 @@ -0,0 +1,350 @@ +!############################################################################## +Subroutine datassim () + +use mem_tend +use mem_basic +use mem_grid +use mem_varinit +use node_mod +use mem_leaf + +implicit none + +integer :: il,ir,jl,jr + +! Set bounds for nudging this sub-domain + +il=ia ; ir=iz ; jl=ja ; jr=jz + +! West and east boundaries. +if(iand(ibcon,1) /= 0) il=1 +if(iand(ibcon,2) /= 0) ir=mxp + + +! South and north boundaries. +if(jdim == 1) then + if(iand(ibcon,4) /= 0) jl=1 + if(iand(ibcon,8) /= 0) jr=myp +endif + + +! Basic boundary and analysis nudging scheme + +CALL nudge (mzp,mxp,myp,il,ir,jl,jr,varinit_g(ngrid)%varwts(1,1,1) & + ,varinit_g(ngrid)%varup(1,1,1) ,varinit_g(ngrid)%varvp(1,1,1) & + ,varinit_g(ngrid)%varpp(1,1,1) ,varinit_g(ngrid)%vartp(1,1,1) & + ,varinit_g(ngrid)%varrp(1,1,1) & + ,varinit_g(ngrid)%varuf(1,1,1) ,varinit_g(ngrid)%varvf(1,1,1) & + ,varinit_g(ngrid)%varpf(1,1,1) ,varinit_g(ngrid)%vartf(1,1,1) & + ,varinit_g(ngrid)%varrf(1,1,1) & + ,basic_g(ngrid)%up(1,1,1) ,basic_g(ngrid)%vp(1,1,1) & + ,basic_g(ngrid)%theta(1,1,1) ,basic_g(ngrid)%rtp(1,1,1) & + ,basic_g(ngrid)%pp(1,1,1) & + ,basic_g(ngrid)%th00(1,1,1) ,basic_g(ngrid)%rvt00(1,1,1) & + ,tend%ut(1),tend%vt(1),tend%tht(1),tend%rtt(1),tend%pt(1)) + + +! Condensate nudging scheme + +if (nud_cond == 1 .and. time >= tcond_beg .and. time <= tcond_end) & + CALL nudge_cond (mzp,mxp,myp,il,ir,jl,jr,varinit_g(ngrid)%varwts(1,1,1) & + ,varinit_g(ngrid)%varrph(1,1,1),varinit_g(ngrid)%varcph(1,1,1) & + ,varinit_g(ngrid)%varrfh(1,1,1),varinit_g(ngrid)%varcfh(1,1,1) & + ,basic_g(ngrid)%rtp(1,1,1),tend%rtt(1)) + +! Soil moisture nudging scheme + +if (snudcent > 0.) & + CALL nudge_soil (mxp,myp,il,ir,jl,jr & + ,varinit_g(ngrid)%varsoilm1p(1,1) & + ,varinit_g(ngrid)%varsoilm2p(1,1) & + ,varinit_g(ngrid)%varsoilm1f(1,1) & + ,varinit_g(ngrid)%varsoilm2f(1,1) & + ,varinit_g(ngrid)%varsoilt1p(1,1) & + ,varinit_g(ngrid)%varsoilt2p(1,1) & + ,varinit_g(ngrid)%varsoilt1f(1,1) & + ,varinit_g(ngrid)%varsoilt2f(1,1) & + ,leaf_g(ngrid)%soil_text(1,1,1,1) & + ,leaf_g(ngrid)%soil_energy(1,1,1,1) & + ,leaf_g(ngrid)%soil_water(1,1,1,1) & + ,leaf_g(ngrid)%leaf_class(1,1,1) ) + +return +END SUBROUTINE datassim + +!############################################################################## +Subroutine nudge (m1,m2,m3,ia,iz,ja,jz,varwts & + ,varup,varvp,varpp,vartp,varrp & + ,varuf,varvf,varpf,vartf,varrf & + ,up,vp,theta,rtp,pp,th00,rvt00,ut,vt,tht,rtt,pt) + +use mem_grid +use mem_varinit +use micphys, only:idiffperts + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz +real, dimension(m1,m2,m3) :: varup,varvp,vartp,varrp,varpp & + ,varuf,varvf,vartf,varrf,varpf & + ,varwts,up,vp,theta,rtp,pp,th00,rvt00 & + ,ut,vt,tht,rtt,pt + +integer :: i,j,k +real :: tfact, wt_uv, wt_th, wt_pi, wt_rt +real :: var_tend, tot_weight + +! Linearly interpolate values in time, then nudge. + +if (nud_type == 1) then + tfact=(time-vtime1)/(vtime2-vtime1) +else + stop 'should not be nudging if nud_type=0' +endif + +wt_uv=wt_nudge_g(ngrid)* wt_nudge_uv +wt_th=wt_nudge_g(ngrid)* wt_nudge_th +wt_pi=wt_nudge_g(ngrid)* wt_nudge_pi +wt_rt=wt_nudge_g(ngrid)* wt_nudge_rt + +do j=ja,jz + do i=ia,iz + do k=1,m1 + var_tend = varup(k,i,j)+(varuf(k,i,j)-varup(k,i,j))*tfact + tot_weight = (varwts(k,i,j)+varwts(k,min(m2,i+1),j))*.5* wt_uv + ut(k,i,j) = ut(k,i,j) + tot_weight*(var_tend-up(k,i,j)) + + var_tend = varvp(k,i,j)+(varvf(k,i,j)-varvp(k,i,j))*tfact + tot_weight = (varwts(k,i,j)+varwts(k,i,min(m3,j+jdim)))*.5* wt_uv + vt(k,i,j) = vt(k,i,j) + tot_weight*(var_tend-vp(k,i,j)) + + var_tend = vartp(k,i,j)+(vartf(k,i,j)-vartp(k,i,j))*tfact + tot_weight = varwts(k,i,j)* wt_th + tht(k,i,j) = tht(k,i,j) + tot_weight*(var_tend-theta(k,i,j)) + + var_tend = varpp(k,i,j)+(varpf(k,i,j)-varpp(k,i,j))*tfact + tot_weight = varwts(k,i,j)* wt_pi + pt(k,i,j) = pt(k,i,j) + tot_weight*(var_tend-pp(k,i,j)) + + var_tend = varrp(k,i,j)+(varrf(k,i,j)-varrp(k,i,j))*tfact + tot_weight = varwts(k,i,j)* wt_rt + rtt(k,i,j) = rtt(k,i,j) + tot_weight*(var_tend-rtp(k,i,j)) + enddo + enddo +enddo + +!Do this if diffusing THP,RTP from varfile base state perturbations +if(idiffperts==3) then + do j=1,m3 + do i=1,m2 + do k=1,m1 + var_tend = vartp(k,i,j)+(vartf(k,i,j)-vartp(k,i,j))*tfact + th00(k,i,j) = var_tend + var_tend = varrp(k,i,j)+(varrf(k,i,j)-varrp(k,i,j))*tfact + rvt00(k,i,j) = var_tend + enddo + enddo + enddo +endif + +return +END SUBROUTINE nudge + +!############################################################################## +Subroutine nudge_cond (m1,m2,m3,ia,iz,ja,jz,varwts & + ,varrph,varcph,varrfh,varcfh,rtp,rtt) + +use mem_grid +use mem_varinit + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz +real, dimension(m1,m2,m3) :: varrph,varcph,varrfh,varcfh & + ,varwts,rtp,rtt + +integer :: i,j,k +real :: tfact, wt_rc +real :: varr_tend, varc_tend, nud_wt + +tfact=(time-vtime1)/(vtime2-vtime1) + +wt_rc=wt_nudgec(ngrid)/t_nudge_rc + +do j=ja,jz + do i=ia,iz + + do k=1,m1 + varr_tend = varrph(k,i,j)+(varrfh(k,i,j)-varrph(k,i,j))*tfact + varc_tend = varcph(k,i,j)+(varcfh(k,i,j)-varcph(k,i,j))*tfact + + !Choose a nudging weight method below. By default we are only + !applying the condensate nudging weight, but to the whole domain + + !This method sets nudging weights in conjunction with standard + !analysis nudging weights in space and time + nud_wt = varwts(k,i,j)*wt_rc + + !This method applies only condensate nudging weights only for + !all the domain. Currently use this to override option just above. + nud_wt = wt_rc + + ! Only nudging total water RTP where condensate mixing ratio exists. + ! Condensate will have a value of -9999 for traditional varfiles using + ! "MAKEVFILE" since we do not ingest condensate from "dp" files. We do + ! ingest condensate from History-Varfiles (MAKEHFILE), so values should + ! be positive-definite. + if (varc_tend > 0.) & + rtt(k,i,j)=rtt(k,i,j) + nud_wt*(varr_tend-rtp(k,i,j)) + enddo + + enddo +enddo + +return +END SUBROUTINE nudge_cond + +!############################################################################## +Subroutine nudge_soil (m2,m3,ia,iz,ja,jz & + ,varsoilm1p,varsoilm2p,varsoilm1f,varsoilm2f & + ,varsoilt1p,varsoilt2p,varsoilt1f,varsoilt2f & + ,soil_text,soil_energy,soil_water,leaf_class) + +use mem_grid +use mem_varinit +use leaf_coms, only:slmsts,soilcp,tempk + +implicit none + +integer :: i,j,k,m2,m3,ip,ia,iz,ja,jz,nsoil +real, dimension(m2,m3) :: varsoilm1p,varsoilm2p,varsoilm1f,varsoilm2f & + ,varsoilt1p,varsoilt2p,varsoilt1f,varsoilt2f +real, dimension(nzg,m2,m3,npatch) :: soil_water,soil_text,soil_energy +real, dimension(m2,m3,npatch) :: leaf_class +real :: tfact,nud_wt,soilmtend,varsoilm2_tend,varsoilm1_tend & + ,soilttend,varsoilt2_tend,varsoilt1_tend + +tfact=(time-vtime1)/(vtime2-vtime1) + +nud_wt=1.0/snudcent + +do j=ja,jz + do i=ia,iz + do ip=2,npatch + do k=1,nzg + !Limit the soil moisture to the allowed maximum for soil textural class. + !A similar limitation is placed on soil moisture at initialization time. + nsoil = nint(soil_text(k,i,j,ip)) + varsoilm2p(i,j) = max(soilcp(nsoil),min(slmsts(nsoil),varsoilm2p(i,j))) + varsoilm2f(i,j) = max(soilcp(nsoil),min(slmsts(nsoil),varsoilm2f(i,j))) + varsoilm1p(i,j) = max(soilcp(nsoil),min(slmsts(nsoil),varsoilm1p(i,j))) + varsoilm1f(i,j) = max(soilcp(nsoil),min(slmsts(nsoil),varsoilm1f(i,j))) + !For persistent wetlands (bogs, marshes, fens, swamps) and irrigated + !crops, retain saturated soil. Currently, this corresponds to + !leaf classes 16, 17, and 20. + if (nint(leaf_class(i,j,ip)) == 16 .or. & + nint(leaf_class(i,j,ip)) == 17 .or. & + nint(leaf_class(i,j,ip)) == 20) then + varsoilm2p(i,j) = slmsts(nsoil) + varsoilm2f(i,j) = slmsts(nsoil) + varsoilm1p(i,j) = slmsts(nsoil) + varsoilm1f(i,j) = slmsts(nsoil) + endif + !Compute soil moisture nudging tendencies + if(k==nzg)then !top soil level (k==nzg) + varsoilm2_tend = varsoilm2p(i,j)+(varsoilm2f(i,j)-varsoilm2p(i,j))*tfact + soilmtend = nud_wt*(varsoilm2_tend-soil_water(k,i,j,ip)) + else + varsoilm1_tend = varsoilm1p(i,j)+(varsoilm1f(i,j)-varsoilm1p(i,j))*tfact + soilmtend = nud_wt*(varsoilm1_tend-soil_water(k,i,j,ip)) + endif + !Apply nudging to soil moisture based on tendency and allowed maximum. + !Update soil energy accordingly as well. + soil_water(k,i,j,ip) = soil_water(k,i,j,ip) + (soilmtend * dtlt) + soil_energy(k,i,j,ip) = soil_energy(k,i,j,ip) & + + (soilmtend * dtlt) * 4.186e6 * (tempk(k) - 193.36) + enddo + enddo + enddo +enddo + +return +END SUBROUTINE nudge_soil + +!############################################################################## +Subroutine varweight (n1,n2,n3,varwts,topt,rtgt) + +use mem_grid +use mem_varinit +use node_mod + +implicit none + +integer :: n1,n2,n3 +real :: varwts(n1,n2,n3),topt(n2,n3),rtgt(n2,n3) + +integer :: i,j,k +real :: tnudcenti,tnudtopi,tnudlati,rown,rows,rowe,roww,zloc,wttop & + ,wtlat,delzi + +! Get weights for large scale and model tendencies + +if (nudlat .le. 0) return + +tnudcenti=0. +if(tnudcent.gt. .01) tnudcenti=1./tnudcent +tnudtopi=0. +if(tnudtop.gt. .01) tnudtopi=1./tnudtop-tnudcenti +tnudlati=0. +if(tnudlat.gt. .01) tnudlati=1./tnudlat-tnudcenti + +delzi=0.0 !Variable initialized +if(ztop.gt.znudtop) then + delzi=1./(ztop-znudtop) +elseif(tnudtop.gt. .01) then + print*,'Incorrect specification of znudtop ! ! !' + print*,' znudtop = ',znudtop + print*,' ztop = ',ztop + stop 'varwt-znud' +endif + + +do j=1,n3 + do i=1,n2 + +! quadratic weight func for lateral boundaries + + ! Calculate row[nsew] considering the full domain. n1,n2,n3 will be + ! set to mzp,mxp,myp (sub-domain sizes). In the case of just one node, + ! m[xyz]p will be equal to n[xyz]p. + if (nyp > 1) then + rown=max(0.,float((j+j0)+nudlat-nyp)) + rows=max(0.,float(nudlat+1-(j+j0))) + else + rown=0. + rows=0. + endif + + rowe=max(0.,float((i+i0)+nudlat-nxp)) + roww=max(0.,float(nudlat+1-(i+i0))) + wtlat=max(rown*rown,rows*rows,rowe*rowe,roww*roww) & + /float(nudlat*nudlat) + +! linear weight func for top boundary + + do k=1,n1 + zloc=ztn(k,1)*rtgt(i,j)+topt(i,j) + wttop=max(0.,(zloc-znudtop)*delzi) + +! full 3-D weight func + + varwts(k,i,j)=tnudcenti & + +max(tnudlati*wtlat,tnudtopi*wttop) + + enddo + + enddo +enddo + +return +END SUBROUTINE varweight diff --git a/src/6.2.16/fdda/oda_krig.f90 b/src/6.2.16/fdda/oda_krig.f90 new file mode 100644 index 0000000..5061b5d --- /dev/null +++ b/src/6.2.16/fdda/oda_krig.f90 @@ -0,0 +1,311 @@ +!############################################################################## +Subroutine krig (n1,n2,n3,x,y,z,ndata,xd,yd,zd,ed,dvar,ngrid & + ,nnanzp,topt,var,varkrg,cazmod) + +use mem_oda + +implicit none + +integer :: n1,n2,n3,ndata,ngrid,nnanzp +real :: z(n1),x(n2),y(n3),var(n1,n2,n3),varkrg(n1,n2,n3) +real, dimension(ndata) :: zd,xd,yd,ed,dvar +real, dimension(n2,n3) :: topt +real :: cazmod + +integer, parameter :: maxobs=100000,maxobs2=100000 +real, dimension(maxobs) :: xkp,ykp,zkp,dkp,c20,szg +real(kind=8), dimension(maxobs) :: alph,c2 +real(kind=8), dimension(maxobs2) :: c1 +integer :: p0,p1,p2,p3 +real :: sx,sy,sz,szgm,r,dmean +real, external :: gamoda +integer :: i,j,k,nt,ntt,nxp,nyp,ii,n,m,nkp,ni,jk,ik,ktilt,l + +! Kriging optimal interpolation routine +! +! Values at grid points are based on known data using Kriging. +! II, IND(II), NT, and NTT are indices for storing the Kriging +! configuration and weights to be used in Kriging the simulated +! data. + +!print*,'ndata:',ndata,nnanzp + +dmean=0.0 +ii=1 + +nt=0 +ntt=0 +nxp=n2 +nyp=n3 +do j=1,nyp + do i=1,nxp + do k=1,nnanzp + ! ip=11; jp=8 + ! if(i==ip.and.j==jp)print*,'------------------' + ! print*,'------------------',i,j,k + var(k,i,j)=0.0 + varkrg(k,i,j)=0.0 + ii=ii+1 +! +! Calculate separation vector between grid point I,J,K and data +! points, retain those with magnitude less than RMAXKRG +! + n=0 + do m=1,ndata + ! if(i==ip.and.j==jp.and.k==2) then + ! print*,'###k1:',m,dvar(m),zd(m) + ! endif + if( dvar(m) < -998. ) cycle + sx=x(i)-xd(m) + sy=y(j)-yd(m) + sz=z(k)-zd(m) + szg(m)=abs(topt(i,j)-ed(m)) + szg(m)=0. + szgm=szg(m) + r=(sx**2+sy**2+(sz*cazkrg(3,ngrid)*cazmod)**2)**0.5 + szgm=0.0 + if(r.gt.rmaxkrg(k,ngrid) ) cycle + n=n+1 + nt=nt+1 + ! if(i==ip.and.j==jp.and.k==2) then + ! if(i==ip.and.j==jp) then + ! print*,'rad:',k,n,m,r,rmaxkrg(k,ngrid) + ! print*,'rad:',k,sx,sy + ! print*,'rad:',k,sz,(sz*cazkrg(3,ngrid)*cazmod)**2 + ! print*,'rad:',n,m,dvar(m),sx,sy + !endif +! +! Calculate covariance between data point and grid point +! + c2(n)=1.0-gamoda(sx,sy,sz,ngrid,k,szgm,cazmod) + xkp(n)=xd(m) + ykp(n)=yd(m) + zkp(n)=zd(m) + dkp(n)=dvar(m) + enddo + + nkp=n+1 + if(nkp.eq.1) then + var(k,i,j)=dmean + varkrg(k,i,j)=2.0 + go to 901 + endif +! +! Non-bias condition +! + c2(n+1)=1.0 + do ni=1,nkp + c20(ni)=c2(ni) + enddo +! +! Calculate data-data covariance matrix (N+1 * N+1) for data +! configuration about grid point I,J,K +! + p0=0 + do jk=1,n + do ik=1,jk + sx=xkp(jk)-xkp(ik) + sy=ykp(jk)-ykp(ik) + sz=zkp(jk)-zkp(ik) + p0=p0+1 + szgm=abs(szg(jk)-szg(ik)) + szgm=0.0 + c1(p0)=1.0-gamoda(sx,sy,sz,ngrid,k,szgm,cazmod) +!if(i==ip.and.j==jp)print*,'c1def:',jk,ik,k,p0,c1(p0) + enddo + enddo + p1=1+(n*(n+1)/2) + p2=(n+1)*(n+2)/2-1 +!if(i==ip.and.j==jp)print*,'p12:',p1,p2 +! +! Last column in matrix is all 1'S; non-bias condition +! + do p0=p1,p2 + c1(p0)=1.0 + enddo + p3=p2+1 + c1(p3)=0.0 +! +! Call matrix solver +! + CALL relms (alph,c1,c2,nkp,1,ktilt) + if(ktilt /= 0) then + !!!print*,'tilt:',k,i,j,ktilt + var(k,i,j)=dmean + varkrg(k,i,j)=2.0 + cycle + endif + +! +! Calculate Kriged grid point +! + do l=1,n + var(k,i,j)=var(k,i,j)+alph(l)*dkp(l) + !! if(i==ip.and.j==jp)print*,'vars:',l,var(k,i,j),alph(l),dkp(l),ktilt + varkrg(k,i,j)=varkrg(k,i,j)+alph(l)*c20(l) + ntt=ntt+1 + enddo + varkrg(k,i,j)=1.0-alph(nkp)-varkrg(k,i,j) + ! if(i==ip.and.j==jp)print*,'vars:',var(k,i,j),varkrg(k,i,j) + 901 continue + enddo + enddo +enddo + +return +END SUBROUTINE krig + +!############################################################################## +real Function gamoda (hx,hy,hz,ngrid,k,hzg,cazmod) + +use mem_oda + +implicit none + +real :: hx,hy,hz,hzg,cazmod +integer :: ngrid, k + + +real :: h,dxmod,dymod,dx,dy,dz +integer :: is,ijs,ijs1,ijs2 + +! +! Variogram calculation +! +gamoda=0.0 +h=(hx*hx+hy*hy+hz*hz)**0.5 +if(h .lt. 1.e-03) return +do 1 is=1,nstkrg(ngrid) + ijs=is + ijs1=ijs+nstkrg(ngrid) + ijs2=ijs1+nstkrg(ngrid) + dxmod=hzg/750.0*(-akrg(1,ngrid)) + dymod=dxmod + dx=hx*caxkrg(ijs,ngrid)+hy*caxkrg(ijs1,ngrid)+ & + hz*caxkrg(ijs2,ngrid) + dx=abs(dx)+dxmod + dy=hx*caykrg(ijs,ngrid)+hy*caykrg(ijs1,ngrid)+ & + hz*caykrg(ijs2,ngrid) + dy=abs(dy)+dymod + dz=hx*cazkrg(ijs,ngrid)+hy*cazkrg(ijs1,ngrid)+ & + hz*cazkrg(ijs2,ngrid)*cazmod + h=(dx*dx+dy*dy+dz*dz)**0.5 + if(akrg(k,ngrid))10,12,11 +10 gamoda=gamoda+ckrg(is,ngrid)*(1.-exp(h/akrg(k,ngrid))) + go to 1 +11 if(h .ge. akrg(k,ngrid))go to 12 + gamoda=gamoda+ckrg(is,ngrid)*(1.5*h/akrg(k,ngrid)- & + 0.5*h*h*h/(akrg(k,ngrid)*akrg(k,ngrid)*akrg(k,ngrid))) + go to 1 +12 gamoda=gamoda+ckrg(is,ngrid) +1 continue + +return +END FUNCTION gamoda + +!############################################################################## +Subroutine relms (x,a,b,m,n,ktilt) + +implicit none + +integer :: m,n,ktilt +! +! Matrix solver for Kriging equations +! +real(kind=8) :: x(*),a(*),b(*) +real(kind=8) :: r,piv,tol +real :: ak +integer :: i,nm,m1,kk,k,lp,km1,ll,ij,ii,j,llb,in + +if(m .le. 0) go to 14 +if(m .gt. 1) go to 1 +if(a(1) .eq. 0.) go to 20 +do 19 i=1,n + x(i)=b(i)/a(1) +19 continue +ktilt=0 +return +20 ktilt=1 +return +! +! Initialize +! +1 tol=0.0 +ktilt=0 +nm=n*m +m1=m-1 +kk=0 +ii=0 +ij=0 !Variable initialized +! +! Start triangulation +! +do 7 k=1,m1 + kk=kk+k + ak=a(kk) + if(ak-tol)3,2,3 +2 ktilt=k + return +3 piv=1./ak + ii=kk + lp=0 + km1=k-1 + do 6 i=k,m1 + ll=ii + ii=ii+i + r=a(ii)*piv + lp=lp+1 + ij=ii-km1 + do 4 j=i,m1 + ij=ij+j + ll=ll+j + a(ij)=a(ij)-r*a(ll) +4 continue + do 5 llb=k,nm,m + in=llb+lp + b(in)=b(in)-r*b(llb) +5 continue +6 continue +7 continue +r=a(ij) +if(r-tol)9,8,9 +8 ktilt=m +return +! +! End triangulation +! +! Start back solution +! +9 piv=1./r +do 10 llb=m,nm,m + x(llb)=b(llb)*piv +10 continue +i=m +kk=ij +do 13 ii=1,m1 + kk=kk-i + piv=1./a(kk) + i=i-1 + do 12 llb=i,nm,m + in=llb + r=b(in) + ij=kk + do 11 j=i,m1 + ij=ij+j + in=in+1 + r=r-a(ij)*x(in) +11 continue + x(llb)=r*piv +12 continue +13 continue +! +! End solution +! +return +! +! Error return +! +14 ktilt=-1 +! +return +END SUBROUTINE relms diff --git a/src/6.2.16/fdda/oda_nudge.f90 b/src/6.2.16/fdda/oda_nudge.f90 new file mode 100644 index 0000000..451b8e2 --- /dev/null +++ b/src/6.2.16/fdda/oda_nudge.f90 @@ -0,0 +1,232 @@ +!############################################################################## +Subroutine oda_nudge () + +use mem_oda +use mem_grid +use mem_scratch +use mem_tend +use mem_basic +use io_params +use node_mod + +implicit none + +integer :: ncall=0,nobs,ng + +if(iprntstmt>=1)print*,'start nud' + +! Namelist variables: + +! - Flag to turn on oda (IF_ODA) +! - Model start and end time for oda (TODABEG,TODAEND) +! - Frequency of tendency updates (FRQODA) (0. for every coarse grid dt) +! - For each grid: +! - Nudging timescale (TNUDODA) +! - Number of vertical levels to apply (no) +! - Flag to turn on for this grid (IG_ODA) + + +! Covariance stuff: + +! For each grid: +! - Surface radii - 1) e-2 2) zero (RODA_SFCE, RODA_SFC0) (SFC0 <= UPA0) +! - "mid-level" radii - same (RODA_UPAE, RODA_UPA0) +! - "mid-level" radii height (RODA_HGT) +! (linear change from surface to mid, constant above) +! +! - vertical "100" factor (RODA_ZFAC) + +! Obs processing: +! - Time interpolate limit (TIL)- if the future-past obs time +! is > this limit, do not use to interpolate (ODA_SFC_TIL,ODA_UPA_TIL) +! +! - Time extrapolate limit (TEL)- if past/future obs is greater than TIL, +! but less than TEL, use obs (ODA_SFC_TEL,ODA_UPA_TEL) + + + +if (ncall == 0) then + CALL oda_nudge_init (ngrids,mmzp(1),mmxp(1),mmyp(1)) + ncall = 1 +endif + +if(iprntstmt>=1)print*,'time,frqoda:',my_rams_num,time,frqoda,mod(time,frqoda),dtlongn(1) + +if (frqoda > 0. .and. mod(time,frqoda) >= dtlongn(1) ) go to 20 + + +if ( (ngrid == 1 .and. time >= todabeg .and. time <= todaend) ) then + + ! Compute new krigged fields and variances + + do ng=1,ngrids + + if (wt_oda_grid(ng) > 0.0) then + + ! Process observations and call krigging + + CALL oda_proc_obs (mmzp(ng),mmxp(ng),mmyp(ng),mi0(ng),mj0(ng),ng,nobs) + + if(iprntstmt>=1)print*,'oda-sfc nobs:',ng,nobs + + !do i=1,nobs + !print*,'uobs:',i,ukobs(i),oda_sfc_obs(i)%u(1:oda_sfc_info(i)%ntimes) + !enddo + oda_g(ng)%uk(1:mmzp(ng),1:mmxp(ng),1:mmyp(ng))=0. + oda_g(ng)%ukv(1:mmzp(ng),1:mmxp(ng),1:mmyp(ng))=0. + CALL krig (mmzp(ng),mmxp(ng),mmyp(ng) & + ,xtn(1+mi0(ng),ng),ytn(1+mj0(ng),ng),ztn(1,ng) & + ,nobs,xkobs,ykobs,zkobs,ekobs,ukobs & + ,ng,nnzp(ng),grid_g(ng)%topt(1,1) & + ,oda_g(ng)%uk(1,1,1),oda_g(ng)%ukv(1,1,1),1.) + + oda_g(ng)%vk(1:mmzp(ng),1:mmxp(ng),1:mmyp(ng))=0. + oda_g(ng)%vkv(1:mmzp(ng),1:mmxp(ng),1:mmyp(ng))=0. + CALL krig (mmzp(ng),mmxp(ng),mmyp(ng) & + ,xtn(1+mi0(ng),ng),ytn(1+mj0(ng),ng),ztn(1,ng) & + ,nobs,xkobs,ykobs,zkobs,ekobs,vkobs & + ,ng,nnzp(ng),grid_g(ng)%topt(1,1) & + ,oda_g(ng)%vk(1,1,1),oda_g(ng)%vkv(1,1,1),1.) + + !do i=1,nobs + !print*,my_rams_num,'---tobs:',ng,i,tkobs(i) + !enddo + oda_g(ng)%tk(1:mmzp(ng),1:mmxp(ng),1:mmyp(ng))=0. + oda_g(ng)%tkv(1:mmzp(ng),1:mmxp(ng),1:mmyp(ng))=0. + CALL krig (mmzp(ng),mmxp(ng),mmyp(ng) & + ,xtn(1+mi0(ng),ng),ytn(1+mj0(ng),ng),ztn(1,ng) & + ,nobs,xkobs,ykobs,zkobs,ekobs,tkobs & + ,ng,nnzp(ng),grid_g(ng)%topt(1,1) & + ,oda_g(ng)%tk(1,1,1),oda_g(ng)%tkv(1,1,1),1.) + + oda_g(ng)%rk(1:mmzp(ng),1:mmxp(ng),1:mmyp(ng))=0. + oda_g(ng)%rkv(1:mmzp(ng),1:mmxp(ng),1:mmyp(ng))=0. + CALL krig (mmzp(ng),mmxp(ng),mmyp(ng) & + ,xtn(1+mi0(ng),ng),ytn(1+mj0(ng),ng),ztn(1,ng) & + ,nobs,xkobs,ykobs,zkobs,ekobs,rkobs & + ,ng,nnzp(ng),grid_g(ng)%topt(1,1) & + ,oda_g(ng)%rk(1,1,1),oda_g(ng)%rkv(1,1,1),1.) + endif + + enddo + +endif + +20 continue + +! Compute and apply tendencies + +ng=ngrid +if (wt_oda_grid(ng) > 0.0 .and. time >= todabeg .and. time <= todaend) then + +CALL oda_tendency (mmzp(ng),mmxp(ng),mmyp(ng),mia(ng),miz(ng),mja(ng),mjz(ng) & + ,basic_g(ng)%up(1,1,1) & + ,tend%ut(1),oda_g(ng)%uk(1,1,1),oda_g(ng)%ukv(1,1,1) & + ,wt_oda_uv * wt_oda_grid(ng)/tnudoda) +CALL oda_tendency (mmzp(ng),mmxp(ng),mmyp(ng),mia(ng),miz(ng),mja(ng),mjz(ng) & + ,basic_g(ng)%vp(1,1,1) & + ,tend%vt(1),oda_g(ng)%vk(1,1,1),oda_g(ng)%vkv(1,1,1) & + ,wt_oda_uv * wt_oda_grid(ng)/tnudoda) +CALL oda_tendency (mmzp(ng),mmxp(ng),mmyp(ng),mia(ng),miz(ng),mja(ng),mjz(ng) & + ,basic_g(ng)%theta(1,1,1) & + ,tend%tht(1),oda_g(ng)%tk(1,1,1),oda_g(ng)%tkv(1,1,1) & + ,wt_oda_th * wt_oda_grid(ng)/tnudoda) +CALL oda_tendency (mmzp(ng),mmxp(ng),mmyp(ng),mia(ng),miz(ng),mja(ng),mjz(ng) & + ,basic_g(ng)%rtp(1,1,1) & + ,tend%rtt(1),oda_g(ng)%rk(1,1,1),oda_g(ng)%rkv(1,1,1) & + ,wt_oda_rt * wt_oda_grid(ng)/tnudoda) + +endif + +return +END SUBROUTINE oda_nudge + +!############################################################################## +Subroutine oda_nudge_init (ngg,m1m,m2m,m3m) + +use mem_oda +use mem_grid + +implicit none + +integer :: ngg +integer, dimension(ngg) :: m1m,m2m,m3m + +integer ::ng,k + +! Turn namelist parameters into krigging routine parameters +if(iprntstmt>=1)print*,'nud_init:' + +do ng=1,ngrids + if (wt_oda_grid(ng) > 0.0) then + nstkrg(ng)=1 + ckrg(1:nstkrg(ng),ng) = 1 + do k=1,nnzp(ng) + if(ztn(k,ng) < roda_hgt(ng)) then + rmaxkrg(k,ng)= & + roda_sfc0(ng)+(roda_upa0(ng)-roda_sfc0(ng)) & + * ztn(k,ng)/roda_hgt(ng) + ! Kriging routine needs the following to be negative... + akrg(k,ng) = - & + (roda_sfce(ng)+(roda_upae(ng)-roda_sfce(ng)) & + * ztn(k,ng)/roda_hgt(ng)) + else + rmaxkrg(k,ng)=roda_upa0(ng) + akrg(k,ng) = -roda_upae(ng) + endif + !print*,k,ztn(k,ng), roda_hgt(ng),rmaxkrg(k,ng),akrg(k,ng) + enddo + + caxkrg(1,ng)= 1. ; caykrg(1,ng)= 0. ; cazkrg(1,ng)= 0. + caxkrg(2,ng)= 0. ; caykrg(2,ng)= 1. ; cazkrg(2,ng)= 0. + caxkrg(3,ng)= 0. ; caykrg(3,ng)= 0. ; cazkrg(3,ng)= roda_zfac(ng) + + ! Initialize analysis and variance fields so zero tendency will be computed + + oda_g(ng)%uk(1:m1m(ng),1:m2m(ng),1:m3m(ng))=0. + oda_g(ng)%vk(1:m1m(ng),1:m2m(ng),1:m3m(ng))=0. + oda_g(ng)%tk(1:m1m(ng),1:m2m(ng),1:m3m(ng))=0. + oda_g(ng)%rk(1:m1m(ng),1:m2m(ng),1:m3m(ng))=0. + oda_g(ng)%ukv(1:m1m(ng),1:m2m(ng),1:m3m(ng))=2. + oda_g(ng)%vkv(1:m1m(ng),1:m2m(ng),1:m3m(ng))=2. + oda_g(ng)%tkv(1:m1m(ng),1:m2m(ng),1:m3m(ng))=2. + oda_g(ng)%rkv(1:m1m(ng),1:m2m(ng),1:m3m(ng))=2. + + endif +enddo + +return +END SUBROUTINE oda_nudge_init + +!############################################################################## +Subroutine oda_tendency (n1,n2,n3,ia,iz,ja,jz,ap,at,ak,akv,tscalei) + +use mem_oda +use mem_grid, only:iprntstmt + +implicit none + +integer :: n1,n2,n3,ia,iz,ja,jz +real, dimension(n1,n2,n3) :: ap,at,ak,akv +real :: tscalei +real :: ttmin,ttmax + +integer :: i,j,k +real :: fnna + +! Compute and apply tendencies based on krigged field/variance + +if(iprntstmt>=1)print*,'oda_tend:',ia,iz,ja,jz,n1,n2,n3 + +ttmax=-1e20; ttmin=1e20 +do j=ja,jz + do i=ia,iz + do k=1,n1 + fnna=(1.0-akv(k,i,j)/2.0)*(ak(k,i,j)-ap(k,i,j))*tscalei + at(k,i,j)=at(k,i,j)+fnna + enddo + enddo +enddo + +return +END SUBROUTINE oda_tendency diff --git a/src/6.2.16/fdda/oda_proc_obs.f90 b/src/6.2.16/fdda/oda_proc_obs.f90 new file mode 100644 index 0000000..016c2b7 --- /dev/null +++ b/src/6.2.16/fdda/oda_proc_obs.f90 @@ -0,0 +1,543 @@ +!############################################################################## +Subroutine oda_proc_obs (m1,m2,m3,i0,j0,ng,nobs) + +use mem_oda +use mem_grid +use node_mod, only:my_rams_num + +implicit none + +integer :: m1,m2,m3,i0,j0,ng,nobs +integer, external :: findtime +integer :: ns,ntimes,ntpast,nobsp,ntfutr,k +real :: ssx,ssy,oval,rtg +real, allocatable :: dat1(:),dat2(:) + +allocate(dat1(m1),dat2(m1)) + +nobs=0 + +!print*,'start proc_obs',ng,num_oda_sfc + +! Do surface obs first + +do ns=1,num_oda_sfc + + ! First filter by horizontal location. If not within RODA_SFC0 + ! of grid boundaries, we won't use it. + + ssx=oda_sfc_info(ns)%xsta + ssy=oda_sfc_info(ns)%ysta + ntimes=oda_sfc_info(ns)%ntimes + + !print*,'sx sy stime:',ssx,ssy,ntimes + + if (ssx < xtn(1+i0,ng) -roda_sfc0(ng) .or. & + ssx > xtn(m2+i0,ng)+roda_sfc0(ng) .or. & + ssy < ytn(1+j0,ng) -roda_sfc0(ng) .or. & + ssy > ytn(m3+j0,ng)+roda_sfc0(ng) ) cycle + + ! We could filter by vertical here, but not now... + + ! Find the obs time for this station before + ! the current simulation time + + ntpast=findtime(time,oda_sfc_obs(ns)%time(1),ntimes) + if(ntpast == 0 ) cycle + + nobs = nobs + 1 + if (nobs > maxkobs) then + print*,'oda_proc_obs - sfc: Exceeded maxkobs array space' + stop 'oda_proc_obs - sfc: Exceeded maxkobs array space' + endif + + !if(nobs == 1) print*,'ntpast:',ntpast,time,ntimes + xkobs(nobs)=ssx + ykobs(nobs)=ssy + zkobs(nobs)=0. + ekobs(nobs)=oda_sfc_info(ns)%stopo + ikobs(nobs)=oda_sfc_info(ns)%xista(ng)-i0 + jkobs(nobs)=oda_sfc_info(ns)%xjsta(ng)-j0 + idobs(nobs)=oda_sfc_info(ns)%intid + + !if(ns==433.or.ns==444.or.ns==434.or.ns==681) & + ! print*, my_rams_num,'---ij:',ns,ikobs(nobs),jkobs(nobs) + + CALL get_obs_value (ntpast,time,oda_sfc_obs(ns)%time(1),ntimes & + ,oda_sfc_obs(ns)%u(1),oda_sfc_til,oda_sfc_tel,oval) + ukobs(nobs)=oval + CALL get_obs_value (ntpast,time,oda_sfc_obs(ns)%time(1),ntimes & + ,oda_sfc_obs(ns)%v(1),oda_sfc_til,oda_sfc_tel,oval) + vkobs(nobs)=oval + CALL get_obs_value (ntpast,time,oda_sfc_obs(ns)%time(1),ntimes & + ,oda_sfc_obs(ns)%temp(1),oda_sfc_til,oda_sfc_tel,oval) + tkobs(nobs)=oval + !if(ns==433.or.ns==444.or.ns==434.or.ns==681) & + ! print*, my_rams_num,'---tt:',ns,oval + !if(my_rams_num==0.and.nobs==681) print*,'oval:',my_rams_num,nobs,oval,oda_sfc_obs(ns)%temp(1:ntimes) + !if(my_rams_num==0.and.nobs==681) print*,'oval:',my_rams_num,nobs,oval,oda_sfc_obs(ns)%time(1:ntimes) + !if(my_rams_num==1.and.nobs==70) print*,'oval:',my_rams_num,nobs,oval,oda_sfc_obs(ns)%time(1:ntimes) + !if(my_rams_num==1.and.nobs==70) print*,'oval:',my_rams_num,nobs,oval,oda_sfc_obs(ns)%temp(1:ntimes) + CALL get_obs_value (ntpast,time,oda_sfc_obs(ns)%time(1),ntimes & + ,oda_sfc_obs(ns)%dewpt(1),oda_sfc_til,oda_sfc_tel,oval) + rkobs(nobs)=oval + CALL get_obs_value (ntpast,time,oda_sfc_obs(ns)%time(1),ntimes & + ,oda_sfc_obs(ns)%ps(1),oda_sfc_til,oda_sfc_tel,oval) + pkobs(nobs)=oval + +enddo + +! We have the set of values. Convert temp, dewpt to theta, mixrat. +! Most of the time, we need to interpolate sfc pressure from model fields. + +CALL sfc_obs_convert (nobs) + +! Now do upper air + +!print*,'start proc upa', ng,num_oda_upa + +do ns=1,num_oda_upa + + ! First filter by horizontal location. If not within RODA_UPA0 + ! of grid boundaries, we won't use it. + + ssx=oda_upa_info(ns)%xsta + ssy=oda_upa_info(ns)%ysta + ntimes=oda_upa_info(ns)%ntimes + !print*,ns,ssx,ssy,ntimes + if (ssx < xtn(1+i0,ng) -roda_upa0(ng) .or. & + ssx > xtn(m2+i0,ng) +roda_upa0(ng) .or. & + ssy < ytn(1+j0,ng) -roda_upa0(ng) .or. & + ssy > ytn(m3+j0,ng) +roda_upa0(ng) ) cycle + + + ! Find the obs time for this station before + ! the current simulation time + + ntpast=findtime(time,oda_upa_obs(ns)%time(1),ntimes) + !print*,'afterntp',ntpast,time,oda_upa_obs(ns)%time(1:ntimes) + if(ntpast == 0 ) cycle + + nobsp = nobs + 1 + nobs = nobs + m1 + if (nobs > maxkobs) then + print*,'oda_proc_obs - upa: Exceeded maxkobs array space' + stop 'oda_proc_obs - upa: Exceeded maxkobs array space' + endif + + xkobs(nobsp:nobs)=ssx + ykobs(nobsp:nobs)=ssy + ikobs(nobsp:nobs)=oda_upa_info(ns)%xista(ng)-i0 + jkobs(nobsp:nobs)=oda_upa_info(ns)%xjsta(ng)-j0 + + ekobs(nobsp:nobs)=oda_upa_info(ns)%stopo + + ! Compute sigma-z heights based on sounding topo + rtg=(1.-oda_upa_info(ns)%stopo/ztop) + do k=1,m1 + zkobs(k+nobsp-1)=oda_upa_info(ns)%stopo+ztn(k,ng)*rtg + enddo + + + + ! We could use upper air obs points directly in the krig, but that + ! wouldn't let us easily interpolate in time. So we'll first interpolate + ! to RAMS grid levels. + + ! We'll do this: + ! - Interpolate ntpast and ntpast+1 soundings to RAMS vertical grid. + ! We won't go beyond these times for now. + ! - Assume that if a sounding is so incomplete as to be useless for + ! this interpolation, it will have been removed on initialization. + ! - Fill missing values above and below data + ! - Handle each variable and level in the same manner as surface obs + + ! We have to fill the *kobs arrays assuming multiple variables at same + ! locations. So interpolate all variables first, then fill *kobs + ! arrays correctly + + ntfutr=ntpast+1 + if(ntfutr > ntimes ) ntfutr=ntpast + !print*,'after',ntpast,ntfutr,ntimes + + ! Processing theta..... + + CALL upa_interp (oda_upa_obs(ns)%lp(ntpast) & + ,oda_upa_obs(ns)%theta(1,ntpast) & + ,oda_upa_obs(ns)%zgeo(1,ntpast) & + ,nnzp(ng), dat1(1), zkobs(nobsp) ) + + CALL upa_interp (oda_upa_obs(ns)%lp(ntfutr) & + ,oda_upa_obs(ns)%theta(1,ntfutr) & + ,oda_upa_obs(ns)%zgeo(1,ntfutr) & + ,nnzp(ng), dat2(1), zkobs(nobsp) ) + + CALL get_upaobs_value (time,oda_upa_obs(ns)%time(ntpast) & + ,oda_upa_obs(ns)%time(ntfutr) & + ,nnzp(ng), dat1(1), dat2(1),tkobs(nobsp) & + ,oda_upa_til, oda_upa_tel ) + + ! Processing rv..... + + CALL upa_interp (oda_upa_obs(ns)%lp(ntpast) & + ,oda_upa_obs(ns)%rv(1,ntpast) & + ,oda_upa_obs(ns)%zgeo(1,ntpast) & + ,nnzp(ng), dat1(1), zkobs(nobsp) ) + + CALL upa_interp (oda_upa_obs(ns)%lp(ntfutr) & + ,oda_upa_obs(ns)%rv(1,ntfutr) & + ,oda_upa_obs(ns)%zgeo(1,ntfutr) & + ,nnzp(ng), dat2(1), zkobs(nobsp) ) + + CALL get_upaobs_value (time,oda_upa_obs(ns)%time(ntpast) & + ,oda_upa_obs(ns)%time(ntfutr) & + ,nnzp(ng), dat1(1), dat2(1),rkobs(nobsp) & + ,oda_upa_til, oda_upa_tel ) + + ! Processing u..... + + CALL upa_interp (oda_upa_obs(ns)%lz(ntpast) & + ,oda_upa_obs(ns)%u(1,ntpast) & + ,oda_upa_obs(ns)%zz(1,ntpast) & + ,nnzp(ng), dat1(1), zkobs(nobsp) ) + + CALL upa_interp (oda_upa_obs(ns)%lz(ntfutr) & + ,oda_upa_obs(ns)%u(1,ntfutr) & + ,oda_upa_obs(ns)%zz(1,ntfutr) & + ,nnzp(ng), dat2(1), zkobs(nobsp) ) + + CALL get_upaobs_value (time,oda_upa_obs(ns)%time(ntpast) & + ,oda_upa_obs(ns)%time(ntfutr) & + ,nnzp(ng), dat1(1), dat2(1),ukobs(nobsp) & + ,oda_upa_til, oda_upa_tel ) + + ! Processing v..... + + CALL upa_interp (oda_upa_obs(ns)%lz(ntpast) & + ,oda_upa_obs(ns)%v(1,ntpast) & + ,oda_upa_obs(ns)%zz(1,ntpast) & + ,nnzp(ng), dat1(1), zkobs(nobsp) ) + + CALL upa_interp (oda_upa_obs(ns)%lz(ntfutr) & + ,oda_upa_obs(ns)%v(1,ntfutr) & + ,oda_upa_obs(ns)%zz(1,ntfutr) & + ,nnzp(ng), dat2(1), zkobs(nobsp) ) + + CALL get_upaobs_value (time,oda_upa_obs(ns)%time(ntpast) & + ,oda_upa_obs(ns)%time(ntfutr) & + ,nnzp(ng), dat1(1), dat2(1),vkobs(nobsp) & + ,oda_upa_til, oda_upa_tel ) + + +enddo + +deallocate(dat1,dat2) + +!do k=1,nnzp(ng) +! print '(i3,5f12.4)',k,ukobs(k),vkobs(k),tkobs(k),rkobs(k),zkobs(k) +!enddo + +!print*,'end proc_obs' + +return +END SUBROUTINE oda_proc_obs + +!############################################################################## +Subroutine get_upaobs_value (time,timep,timef,nz,dat1,dat2,oval & + ,oda_til,oda_tel) + +implicit none + +integer :: nz +real :: time,timep,timef,oda_til,oda_tel +real, dimension(nz) :: oval,dat1,dat2 + + +integer :: k + + +oval(1:nz)=-999. + +do k=1,nz + +! - Time interpolate limit (ODA_TIL)- if the future-past obs +! is > this limit, do not use to interpolate +! +! - Time extrapolate limit (ODA_TEL)- if past/future obs is greater than TIL, +! but less than TEL, use obs + + if (dat1(k) > -998. .and. dat2(k) > -998.) then + ! We have both past and future good values. Check TIL: + + if (abs(timef-timep) > 0.001 .and. timef-timep <= oda_til) then + ! If we got here, we can interpolate... + + oval(k)=dat1(k) + (time-timep) * & + (dat2(k)-dat1(k))/(timef-timep) + cycle + endif + endif + + ! Failed the TIL check, check TEL now + if(dat1(k) > -998. .and. abs(time-timep) < oda_tel) then + oval(k)=dat1(k) + elseif(dat2(k) > -998. .and. abs(time-timef) < oda_tel) then + oval(k)=dat2(k) + endif + +enddo + +return +END SUBROUTINE get_upaobs_value + +!############################################################################## +Subroutine upa_interp (np,varp,zp,nz,varz,zz) + +! Interpolate vertical sounding data to RAMS sigma-z based on +! topography of the sounding + +implicit none + +integer :: np,nz + +real, dimension(np) :: varp,zp +real, dimension(nz) :: varz,zz + +integer :: np1,np2,k,kk,nb,nt +real, allocatable :: v1(:) + +allocate(v1(max(np,nz))) + + +varz(1:nz)=-999. + +! First find actual top and bottom of good data. Return if problems. +np1=0 +do k=1,np + if (varp(k) > -998.) then + np1=k + exit + endif +enddo + +np2=0 +do k=np,1,-1 + if (varp(k) > -998.) then + np2=k + exit + endif +enddo + +if (np1 == 0 .or. np2 == 0 .or. np2-np1 <= 0) return + +! Now fill in any missing values between np1 and np2. We're assuming +! that a single sounding does not have huge gaps and that all +! zp (geopotential heights) are filled. + +nb=np1 +nt=nb+1 +v1(np1)=varp(np1) +do k=np1+1,np2 + if(varp(k) > -998.) then + v1(k)=varp(k) + nb=k + cycle + else + do kk=k,np2 + if(varp(k) > -998.) then + nt=kk + exit + endif + enddo + v1(k) = v1(nb)+(varp(nt)-varp(nb))*(zp(k)-zp(nb))/(zp(nt)-zp(nb)) + nb=k + endif +enddo + + +! Finally, interpolate to sig-z levels + +kk=np1 +do k=1,nz + 30 continue + if(zz(k) < zp(1)) then + cycle + elseif(zz(k) > zp(np2)) then + cycle + elseif(zz(k) >= zp(kk).and.zz(k) <= zp(kk+1)) then + varz(k)=varp(kk)+(varp(kk+1)-varp(kk))*(zz(k)-zp(kk))/(zp(kk+1)-zp(kk)) + cycle + endif + kk=kk+1 + if(kk == np2) then + print *,'upa_interp:np',np + do kk=1,np2 + print*,'kk,zp(kk),zz(kk)',zp(kk),zz(kk) + enddo + stop 'upa_interp' + endif + goto 30 +enddo + +deallocate(v1) + +return +END SUBROUTINE upa_interp + +!############################################################################## +Subroutine sfc_obs_convert (nobs) + +use mem_oda +use rconstants +use node_mod, only:my_rams_num + +implicit none + +integer :: nobs,ns +real, external :: rsatmix + +! Routine to convert input sfc temp and dewpt to theta and mixing ratio + +! Get station pressure. Use pressure obs if there, else use reference pressure. + +do ns=1,nobs + !print*,'pkobs:',ns,idobs(ns),pkobs(ns),oda_sfc_obs(idobs(ns))%psref + if (pkobs(ns) < -998.) then + pkobs(ns) = oda_sfc_obs(idobs(ns))%psref + endif +enddo + + +do ns=1,nobs + if (rkobs(ns) > -998. .and. pkobs(ns) > -998.) then + rkobs(ns)=rsatmix(pkobs(ns),rkobs(ns)+273.15) + else + rkobs(ns)=-999. + endif + if (tkobs(ns) > -998. .and. pkobs(ns) > -998.) then + !print*,my_rams_num,'---tconv:',ns,tkobs(ns),pkobs(ns) + tkobs(ns) = (tkobs(ns)+273.15)*(p00/pkobs(ns))**rocp + !if(tkobs(ns) > 200. .and. tkobs(ns) < 273.) print*,'tconv:',ns,tkobs(ns),pkobs(ns) + else + tkobs(ns)=-999. + endif +enddo + +return +END SUBROUTINE sfc_obs_convert + +!############################################################################## +Subroutine get_obs_value (ntpast,rtime,otimes,ntimes,odata & + ,oda_til,oda_tel,oval) + +implicit none + +integer :: ntpast,ntimes +real :: rtime,oda_til,oda_tel,oval +real, dimension(ntimes) :: otimes,odata +integer, external :: findgood +integer :: nu1,nu2 + +oval=-999. + +if (ntpast == 0) then + if (abs(rtime-otimes(1)) < oda_tel) then + oval=odata(1) + endif + return +endif + +! Find future time where there is a non-missing value, +! then go backward and find earlier non-missing value. + +nu2=findgood(ntpast+1,ntimes,odata(1),ntimes,1) +nu1=findgood(1,nu2-1,odata(1),ntimes,2) +! - Time interpolate limit (ODA_TIL)- if the future-past obs +! is > this limit, do not use to interpolate +! +! - Time extrapolate limit (ODA_TEL)- if past/future obs is greater than TIL, +! but less than TEL, use obs + +if (nu1 > 0 .and. nu2 > 0) then + ! We have both past and future good values. Check TIL: + + if (otimes(nu2)-otimes(nu1) <= oda_til) then + ! If we got here, we can interpolate... + + oval=odata(nu1) + (rtime-otimes(nu1)) * & + (odata(nu2)-odata(nu1))/(otimes(nu2)-otimes(nu1)) + return + endif +endif + +! Failed the TIL check, check TEL now +if(nu1 > 0 .and. abs(rtime-otimes(nu1)) < oda_tel) then + oval=odata(nu1) +elseif(nu2 > 0 .and. abs(rtime-otimes(nu2)) < oda_tel) then + oval=odata(nu2) +endif + +return +END SUBROUTINE get_obs_value + +!############################################################################## +integer Function findgood (n1,n2,a,na,idir) + +implicit none + +integer :: n1,n2,idir,na,nt +real :: a(na) + +! Assumes atime is sorted lowest to highest +if(idir == 1) then + do nt=n1,n2 + if (a(nt) > -998.) then + findgood = nt + return + endif + enddo +elseif (idir == 2) then + do nt=n2,n1,-1 + if (a(nt) > -998.) then + findgood = nt + return + endif + enddo +endif + +findgood = 0 + +return +END FUNCTION findgood + +!############################################################################## +integer Function findtime (time,atime,ntime) + +implicit none + +integer :: ntime +real :: atime(ntime) +real :: time +integer :: nt,ntfound + +! Assumes atime is sorted lowest to highest +if(time < atime(1) ) then + ntfound=0 + go to 100 +endif + +do nt=ntime,1,-1 + if (time >= atime(nt)) then + ntfound=nt + go to 100 + endif +enddo +ntfound=ntime + +100 continue + +findtime = ntfound + +return +END FUNCTION findtime + diff --git a/src/6.2.16/fdda/oda_read.f90 b/src/6.2.16/fdda/oda_read.f90 new file mode 100644 index 0000000..3c0de2a --- /dev/null +++ b/src/6.2.16/fdda/oda_read.f90 @@ -0,0 +1,243 @@ +!############################################################################## +Subroutine oda_read (n1,n2,n3,pi0) + +use mem_oda +use mem_grid +use rconstants + +implicit none + +integer :: n1,n2,n3 +real, dimension(n1,n2,n3) :: pi0 + +integer :: iyears,imonths,idates,ihours,iyearf,imonthf,idatef,ihourf +integer :: ns,i,j,ng +real, dimension(:,:), allocatable :: prs + +! Inventory all observation files. Due to possible mismatches with +! start/end time and obs file times, we are going to start 12 hours +! before the actual start and end 12 hours after timmax + +CALL date_add_to (iyear1,imonth1,idate1,itime1*100 & + ,-43200.,'s',iyears,imonths,idates,ihours) +CALL date_add_to (iyear1,imonth1,idate1,itime1*100 & + ,timmax+43200.,'s',iyearf,imonthf,idatef,ihourf) + +CALL oda_file_inv (iyears,imonths,idates,ihours & + ,iyearf,imonthf,idatef,ihourf) + !print*,'++++++++++++++++: ',nupafiles + +! First pass through the files: find number of unique station ids + +CALL oda_sta_count (polelat,polelon) + !print*,'++++++++++++++++: ',nupafiles + +! Allocate obs structures + +CALL oda_obs_alloc () + +! Fill data structures + +CALL oda_sta_input (polelat,polelon,ngrids) + +! We are assuming the files are consecutive in time, +! but if not, sort obs according to time + +! Need a pressure to convert dewpoint (or whatever) to mixing ratio, as almost no +! obs report mixing ratio. Problems though: many stations do not report pressure. +! Tried to use model pressure at the time, but because of grids and +! domain decomposition, don't have that for stations just outside grid/subdomain +! boundaries. +! +! So only for this purpose, use a reference state pressure for the stations that +! do not report, since the conversion is not overly sensitive to pressure. + +allocate(prs(n2,n3)) + +ng=1 +do j=1,n3 + do i=1,n2 + prs(i,j)=( (pi0(1,i,j)+pi0(2,i,j))*.5 & + *cpi) ** cpor * p00 + enddo +enddo + +! Interpolate to station locations + +do ns=1,num_oda_sfc + CALL gdtost (prs, nnxp(ng), nnyp(ng) & + ,oda_sfc_info(ns)%xista(ng) & + ,oda_sfc_info(ns)%xjsta(ng) & + ,oda_sfc_obs(ns)%psref) + if (oda_sfc_obs(ns)%psref > 1e10) oda_sfc_obs(ns)%psref=-999. +enddo + +deallocate(prs) + +return +END SUBROUTINE oda_read + +!############################################################################## +Subroutine oda_obs_alloc () + +use mem_oda + +implicit none + +integer :: ns + +allocate (oda_sfc_info(num_oda_sfc), oda_sfc_obs(num_oda_sfc)) +allocate (oda_upa_info(num_oda_upa), oda_upa_obs(num_oda_upa)) + +! Assuming one data time per ralph file for the allocations +! This wasn't enough!!!!! Actual count of times have been done + +do ns=1,num_oda_sfc + allocate(oda_sfc_obs(ns)%time (maxtimes_sfc)) + allocate(oda_sfc_obs(ns)%temp (maxtimes_sfc)) + allocate(oda_sfc_obs(ns)%dewpt(maxtimes_sfc)) + allocate(oda_sfc_obs(ns)%us(maxtimes_sfc)) + allocate(oda_sfc_obs(ns)%vs(maxtimes_sfc)) + allocate(oda_sfc_obs(ns)%u (maxtimes_sfc)) + allocate(oda_sfc_obs(ns)%v (maxtimes_sfc)) + allocate(oda_sfc_obs(ns)%ps(maxtimes_sfc)) +enddo + +! Upper air +do ns=1,num_oda_upa + allocate(oda_upa_obs(ns)%time(maxtimes_upa)) + allocate(oda_upa_obs(ns)%lp (maxtimes_upa)) + allocate(oda_upa_obs(ns)%lz (maxtimes_upa)) + allocate(oda_upa_obs(ns)%theta(maxupalevs,maxtimes_upa)) + allocate(oda_upa_obs(ns)%rv(maxupalevs,maxtimes_upa)) + allocate(oda_upa_obs(ns)%us(maxupalevs,maxtimes_upa)) + allocate(oda_upa_obs(ns)%vs(maxupalevs,maxtimes_upa)) + allocate(oda_upa_obs(ns)%zz(maxupalevs,maxtimes_upa)) + allocate(oda_upa_obs(ns)%u (maxupalevs,maxtimes_upa)) + allocate(oda_upa_obs(ns)%v (maxupalevs,maxtimes_upa)) + allocate(oda_upa_obs(ns)%pi(maxupalevs,maxtimes_upa)) + allocate(oda_upa_obs(ns)%zgeo (maxupalevs,maxtimes_upa)) +enddo + +return +END SUBROUTINE oda_obs_alloc + +!############################################################################## +Subroutine oda_file_inv (iyear1,imonth1,idate1,itime1 & + ,iyear2,imonth2,idate2,itime2) + +use mem_oda + +implicit none + +integer :: iyear1,imonth1,idate1,itime1,iyear2,imonth2,idate2,itime2 +integer :: nc,nf,lnf,nsfctot,nupatot +integer :: inyear,inmonth,indate,inhour +character(len=strl1) :: fnames(maxodafiles) +character(len=14) :: itotdate,itotdate_start,itotdate_end + +! Go through upper air and surface input files +! and make inventory + +!print*,'st:',iyear1,imonth1,idate1,itime1 +!print*,'en:',iyear2,imonth2,idate2,itime2 +CALL date_make_big (iyear1,imonth1,idate1,itime1,itotdate_start) +CALL date_make_big (iyear2,imonth2,idate2,itime2,itotdate_end) + +if(oda_upapref(1:1) /= ' ' .and. oda_upapref(1:1) /= char(0) ) then + + nc=len_trim(oda_upapref) + nupatot=-1 + CALL rams_filelist (fnames,oda_upapref(1:nc)//'????-??-??-????',nupatot) + + if(nupatot > maxodafiles) then + print*,'too many oda upper air files' + stop 'lots_of_oda_upper_air' + endif + + nupafiles=0 + do nf=1,nupatot + lnf=len_trim(fnames(nf)) + ! print*,lnf ,nupatot,fnames(nf) + ! print*,lnf ,fnames(nf)(lnf-14:lnf) + read(fnames(nf)(lnf-14:lnf),20) inyear,inmonth,indate,inhour + 20 format(i4,1x,i2,1x,i2,1x,i4) + + CALL date_make_big (inyear,inmonth,indate,inhour*100,itotdate) + ! print*, inyear,inmonth,indate,inhour +!print*,itotdate,itotdate_start,itotdate_end + if(itotdate >= itotdate_start .and. itotdate <= itotdate_end) then + nupafiles=nupafiles+1 + fnames_upa(nupafiles)=fnames(nf) + itotdate_upa(nupafiles)=itotdate + endif + + enddo + + CALL rams_dintsort (nupafiles,itotdate_upa,fnames_upa) + + ! do nf=1,nupafiles + ! print*,'up files:',nf,itotdate_upa(nf),fnames_upa(nf) + ! enddo + +endif + + +if(oda_sfcpref(1:1) /= ' '.and. oda_sfcpref(1:1) /= char(0) ) then + + nc=len_trim(oda_sfcpref) + nsfctot=-1 + CALL rams_filelist (fnames,oda_sfcpref(1:nc)//'????-??-??-????',nsfctot) + + if(nsfctot > maxodafiles) then + print*,'too many oda surface air files' + stop 'lots_of_oda_surface' + endif + + nsfcfiles=0 + do nf=1,nsfctot + lnf=len_trim(fnames(nf)) + ! print*,lnf ,nsfctot,fnames(nf) + ! print*,lnf ,fnames(nf)(lnf-14:lnf) + read(fnames(nf)(lnf-14:lnf),20) inyear,inmonth,indate,inhour + + CALL date_make_big (inyear,inmonth,indate,inhour*100,itotdate) + + if(itotdate >= itotdate_start .and. itotdate <= itotdate_end) then + nsfcfiles=nsfcfiles+1 + fnames_sfc(nsfcfiles)=fnames(nf) + itotdate_sfc(nsfcfiles)=itotdate + endif + + enddo + + CALL rams_dintsort (nsfcfiles,itotdate_sfc,fnames_sfc) + + ! do nf=1,nsfcfiles + ! print*,'sf files:',nf,itotdate_sfc(nf),fnames_sfc(nf) + ! enddo + +endif + + +! start printing section +!-------------------------------------------------------------- + +print*,' ' +print*,' ' +print*,' ' +print*,'-------------------------------------------------------------' +print*,'----------- Obs 4DDA Input File Date Inventory -------------' +print*,'-------------------------------------------------------------' +print*,'---- Upper air files:' +do nf=1,nupafiles + print*, itotdate_upa(nf),' ',trim(fnames_upa(nf)) +enddo +print*,'---- Surface obs files:' +do nf=1,nsfcfiles + print*, itotdate_sfc(nf),' ',trim(fnames_sfc(nf)) +enddo +print*,'------------------------------------------------------' + +return +END SUBROUTINE oda_file_inv diff --git a/src/6.2.16/fdda/oda_sta_count.f90 b/src/6.2.16/fdda/oda_sta_count.f90 new file mode 100644 index 0000000..afafbff --- /dev/null +++ b/src/6.2.16/fdda/oda_sta_count.f90 @@ -0,0 +1,173 @@ +!############################################################################## +Subroutine oda_sta_count (plat,plon) + +use mem_oda +use gdf_input + +implicit none + +real :: plat,plon,stx,sty +integer :: ierr,ns,nf,iexist,ngd,ifile + +! get id's + +num_oda_sfc=0 +ntimes_sfc(1:maxodasta)=0 + +do nf=1,nsfcfiles + + print*,'Opening sfc obs file: ',fnames_sfc(nf)(1:len_trim(fnames_sfc(nf))) + + open(unit=31,file=fnames_sfc(nf),status='old') + + ifile=1 + header(ifile)%iun=31 + CALL gdf_read_sfc_ver (ifile) + + do while (.TRUE.) + + CALL gdf_read_sfc_obs (ifile,'no',ierr) + if(ierr==1) exit + + ! Check if station already exits + iexist=0 + do ns=1,num_oda_sfc + if(trim(rsfc_obs%id) == trim(staid_sfc(ns))) then + iexist=1 + ntimes_sfc(ns)=ntimes_sfc(ns)+1 + exit + endif + enddo + + if(iexist==0) then + + ! check if location within bounds + ! print*,'here' + CALL ll_xy (rsfc_obs%lat,rsfc_obs%lon,plat,plon,stx,sty) + ! print*,'here',sfc_lat,sfc_lon,plat,plon,stx,sty + CALL findgrid (stx,sty,ngd) + ! print*,'here',ngd,sfc_id(1:len_trim(sfc_id)) + + ! only use if on grid 1 + + if(ngd <= 0) cycle + + num_oda_sfc=num_oda_sfc+1 + + if(num_oda_sfc > maxodasta) then + print*,'num_oda_sfc exceeds maxodasta' + print*,'Increase mem_oda variable maxodasta' + stop 'maxodasta exceeded' + endif + + staid_sfc(num_oda_sfc)=rsfc_obs%id + ntimes_sfc(num_oda_sfc)=ntimes_sfc(num_oda_sfc)+1 + print*,'new station:',num_oda_sfc,rsfc_obs%id,ntimes_sfc(num_oda_sfc) + + endif + + + enddo + + close(31) + +enddo + +maxtimes_sfc=1 +if(num_oda_sfc >= 1) maxtimes_sfc=maxval(ntimes_sfc(1:num_oda_sfc)) + +print*,'Number of sfc locations',num_oda_sfc,maxtimes_sfc + +! Now do upper air data + +num_oda_upa=0 +ntimes_upa(1:maxodasta)=0 + +do nf=1,nupafiles + + print*,'Opening upa obs file: ',trim(fnames_upa(nf)) + + open(unit=31,file=fnames_upa(nf),status='old') + + ifile=1 + header(ifile)%iun=31 + CALL gdf_read_upa_ver (ifile) + + do while (.TRUE.) + + CALL gdf_read_upa_obs (ifile,'no',ierr) + if(ierr == 1) exit + + ! Check if station already exits + iexist=0 + do ns=1,num_oda_upa + if(trim(rupa_obs%id) == trim(staid_upa(ns))) then + iexist=1 + ntimes_upa(ns)=ntimes_upa(ns)+1 + exit + endif + enddo + + if(iexist == 0) then + + ! check if location within bounds + CALL ll_xy (rupa_obs%lat,rupa_obs%lon,plat,plon,stx,sty) + CALL findgrid (stx,sty,ngd) + + ! only use if on grid 1 + + if(ngd <= 0) cycle + + num_oda_upa=num_oda_upa+1 + if(num_oda_upa > maxodasta) then + print*,'num_oda_sfc exceeds maxodasta' + print*,'Increase mem_oda variable maxodasta' + stop 'maxodasta exceeded' + endif + + staid_upa(num_oda_upa)=rupa_obs%id + ntimes_upa(ns)=ntimes_upa(ns)+1 + print*,'new upa station:',num_oda_upa,rupa_obs%id,ngd,stx,sty + + + endif + + enddo + + close(31) + +enddo + +maxtimes_upa=1 +if(num_oda_upa >= 1) maxtimes_upa=maxval(ntimes_upa(1:num_oda_upa)) + +print*,'Number of upa locations',num_oda_upa,maxtimes_upa + +return +END SUBROUTINE oda_sta_count + +!############################################################################## +Subroutine findgrid (xfx,yfy,ngr) + +! not set up for Z locations + +use mem_grid + +implicit none + +real :: xfx,yfy +integer :: ngr + +integer :: ng + +do ng=ngrids,1,-1 + if(xfx <= xmn(nnxp(ng)-1,ng).and.xfx >= xmn(1,ng) .and. & + yfy <= ymn(nnyp(ng)-1,ng).and.yfy >= ymn(1,ng) ) then + ngr=ng + return + endif +enddo +ngr=-1 + +return +END SUBROUTINE findgrid diff --git a/src/6.2.16/fdda/oda_sta_input.f90 b/src/6.2.16/fdda/oda_sta_input.f90 new file mode 100644 index 0000000..2978a68 --- /dev/null +++ b/src/6.2.16/fdda/oda_sta_input.f90 @@ -0,0 +1,316 @@ +!############################################################################## +Subroutine oda_sta_input (plat,plon,ngds) + +use mem_oda +use gdf_input +use mem_grid + +implicit none + +real :: plat,plon +integer :: ngds + +integer :: ierr,ns,nf,ngd,ifile,idsta,ntimes,ng,nlevs,k +real :: stx,sty +real, external :: xy_ij +real(kind=8) :: secs_init,secs_obs + +integer, parameter :: num_convars=5 +character(len=8) :: varn(num_convars) +data varn/'ue','ve','tempc','dewptc','press_pa'/ +real :: vars(num_convars),varp1(1000),varp2(1000) + +! Read all observation data + +! Transfer station id's to structure and assign integer id + +do ns=1,num_oda_sfc + oda_sfc_info(ns)%id=staid_sfc(ns) + oda_sfc_info(ns)%intid=ns + oda_sfc_info(ns)%ntimes=0 +enddo + +! Upper air +do ns=1,num_oda_upa + oda_upa_info(ns)%id=staid_upa(ns) + oda_upa_info(ns)%intid=ns + oda_upa_info(ns)%ntimes=0 +enddo + +! Get abs seconds of run start + +CALL date_abs_secs2 (iyear1,imonth1,idate1,itime1*100,secs_init) + +! Process surface files + +do nf=1,nsfcfiles + + print*,'Opening sfc obs file: ',trim(fnames_sfc(nf)) + + open(unit=31,file=fnames_sfc(nf),status='old') + + ifile=1 + header(ifile)%iun=31 + CALL gdf_read_sfc_ver (ifile) + + do while (.TRUE.) + CALL gdf_read_sfc_obs (ifile,'no',ierr) + if(ierr==1) exit + + ! Find station integer id + do ns=1,num_oda_sfc + + if(trim(rsfc_obs%id) == trim(staid_sfc(ns))) then + + idsta=ns + oda_sfc_info(ns)%ntimes=oda_sfc_info(ns)%ntimes+1 + ntimes=oda_sfc_info(ns)%ntimes + + if(ntimes > maxtimes_sfc) then + print*,'Surface obs exceeds memory allocation, stopping' + print*,'idsta,ntimes:',ns,idsta,ntimes + stop 'too many times for sfc obs' + endif + + if(ntimes == 1) then + ! Compute locations relative to grids + CALL ll_xy (rsfc_obs%lat,rsfc_obs%lon,plat,plon,stx,sty) + !print*,'---',rsfc_obs%lat,rsfc_obs%lon,plat,plon,stx,sty + oda_sfc_info(ns)%xsta=stx + oda_sfc_info(ns)%ysta=sty + oda_sfc_info(ns)%xlat=rsfc_obs%lat + oda_sfc_info(ns)%xlon=rsfc_obs%lon + oda_sfc_info(ns)%stopo=rsfc_obs%elev + CALL findgrid (stx,sty,ngd) + + ! Assume telescoping grids + oda_sfc_info(ns)%iactive(1:ngds)=0 + oda_sfc_info(ns)%iactive(1:ngd)=1 + + ! Find i,j on all active grids + do ng=1,ngds + if (oda_sfc_info(ns)%iactive(ng) == 1) then + oda_sfc_info(ns)%xista(ng)= & + xy_ij(nnxp(ng),xtn(1,ng),stx) + oda_sfc_info(ns)%xjsta(ng)= & + xy_ij(nnyp(ng),ytn(1,ng),sty) + else + oda_sfc_info(ns)%xista(ng)= 0. + oda_sfc_info(ns)%xjsta(ng)= 0. + endif + enddo + !print*,'sta:',ns + !print*,oda_sfc_info(ns)%xsta,oda_sfc_info(ns)%ysta + !print*,oda_sfc_info(ns)%xista(1),oda_sfc_info(ns)%xjsta(1) + endif + + ! Find time in seconds relative to run start + CALL date_abs_secs2 (rsfc_obs%jyear,rsfc_obs%jmonth & + ,rsfc_obs%jdate,rsfc_obs%jtime*100,secs_obs) + oda_sfc_obs(ns)%time(ntimes)=secs_obs - secs_init + + ! Fill data arrays + + CALL gdf_sfc_data_convert (vars,varn,num_convars) + + oda_sfc_obs(ns)%temp(ntimes)=vars(3) + oda_sfc_obs(ns)%dewpt(ntimes)=vars(4) + oda_sfc_obs(ns)%us(ntimes)=vars(1) + oda_sfc_obs(ns)%vs(ntimes)=vars(2) + oda_sfc_obs(ns)%ps(ntimes)=vars(5) + + oda_sfc_obs(ns)%u(ntimes)=-999. + oda_sfc_obs(ns)%v(ntimes)=-999. + if(vars(1) > -998. .and. vars(2) > -998.) then + CALL uevetouv (oda_sfc_obs(ns)%u(ntimes) & + ,oda_sfc_obs(ns)%v(ntimes) & + ,vars(1),vars(2) & + ,rsfc_obs%lat,rsfc_obs%lon,plat,plon) + endif + !if(ns==461) print*,'obs_in:',ntimes,trim(rsfc_obs%id) & + !,oda_sfc_info(ns)%xista(1),oda_sfc_info(ns)%xjsta(1) & + !,oda_sfc_obs(ns)%time(ntimes),oda_sfc_obs(ns)%us(ntimes) & + !,oda_sfc_obs(ns)%vs(ntimes),oda_sfc_obs(ns)%temp(ntimes) & + !,oda_sfc_obs(ns)%u(ntimes),oda_sfc_obs(ns)%v(ntimes) & + !,oda_sfc_obs(ns)%dewpt(ntimes),rsfc_obs%ff,rsfc_obs%dd + exit + endif + enddo + enddo + + + close(31) + +enddo + +! Process upper air files + + print*,'Opening upa obs file: ',nupafiles +do nf=1,nupafiles + + print*,'Opening upa obs file: ',fnames_upa(nf)(1:len_trim(fnames_upa(nf))) + + open(unit=31,file=fnames_upa(nf),status='old') + + ifile=1 + header(ifile)%iun=31 + CALL gdf_read_upa_ver (ifile) + + do while (.TRUE.) + CALL gdf_read_upa_obs (ifile,'no',ierr) + if(ierr==1) exit + + ! Find station integer id + do ns=1,num_oda_upa + if(trim(rupa_obs%id) == trim(staid_upa(ns))) then + + idsta=ns + oda_upa_info(ns)%ntimes = oda_upa_info(ns)%ntimes + 1 + ntimes=oda_upa_info(ns)%ntimes + + if(ntimes > maxtimes_upa) then + print*,'Upa obs exceeds memory allocation, stopping' + print*,'idsta,ntimes:',ns,idsta,ntimes + stop 'too many times for obs' + endif + + if(ntimes == 1) then + ! Compute locations relative to grids + CALL ll_xy (rupa_obs%lat,rupa_obs%lon,plat,plon,stx,sty) + oda_upa_info(ns)%xsta=stx + oda_upa_info(ns)%ysta=sty + oda_upa_info(ns)%xlat=rupa_obs%lat + oda_upa_info(ns)%xlon=rupa_obs%lon + oda_upa_info(ns)%stopo=rupa_obs%elev + CALL findgrid (stx,sty,ngd) + + ! Assume telescoping grids + oda_upa_info(ns)%iactive(1:ngds)=0 + oda_upa_info(ns)%iactive(1:ngd)=1 + + + ! Find i,j on all active grids + do ng=1,ngds + if (oda_upa_info(ns)%iactive(ng) == 1) then + oda_upa_info(ns)%xista(ng)= & + xy_ij(nnxp(ng),xtn(1,ng),stx) + oda_upa_info(ns)%xjsta(ng)= & + xy_ij(nnyp(ng),ytn(1,ng),sty) + else + oda_upa_info(ns)%xista(ng)= 0. + oda_upa_info(ns)%xjsta(ng)= 0. + endif + enddo + endif + + ! Find time in seconds relative to run start + CALL date_abs_secs2 (rupa_obs%jyear,rupa_obs%jmonth & + ,rupa_obs%jdate,rupa_obs%jtime*100,secs_obs) + oda_upa_obs(ns)%time(ntimes)=secs_obs - secs_init + + ! Fill data arrays + + CALL gdf_upa_get_profile (varp1,nlevs,'ue','z') + CALL gdf_upa_get_profile (varp2,nlevs,'ve','z') + if (nlevs > maxupalevs) then + print*, 'ODA error: maxupalevs exceeded for winds:',nlevs + stop 'ODA maxupalevs winds' + endif + do k=1,nlevs + if(varp1(k) > -998. .and. varp2(k) > -998.) then + CALL uevetouv (oda_upa_obs(ns)%u(k,ntimes) & + ,oda_upa_obs(ns)%v(k,ntimes) & + ,varp1(k),varp2(k) & + ,rupa_obs%lat,rupa_obs%lon,plat,plon) + endif + enddo + + CALL gdf_upa_get_profile (oda_upa_obs(ns)%zz(1,ntimes),nlevs,'zz','z') + oda_upa_obs(ns)%us(1:nlevs,ntimes)=varp1(1:nlevs) + oda_upa_obs(ns)%vs(1:nlevs,ntimes)=varp2(1:nlevs) + oda_upa_obs(ns)%lz(ntimes)=nlevs + + ! For thermo variables, unlike surface obs, we usually have + ! pressure reported in standard raobs. + ! Convert temp,prs,rh => theta,pi,r + ! + ! First get geopotential height, + CALL gdf_upa_get_profile (varp2,nlevs,'geo','p') + if (nlevs > maxupalevs) then + print*, 'ODA error: maxupalevs exceeded for prs:',nlevs + stop 'ODA maxupalevs press' + endif + oda_upa_obs(ns)%lp(ntimes)=nlevs + oda_upa_obs(ns)%zgeo(1:nlevs,ntimes)=varp2(1:nlevs) + + CALL gdf_upa_get_profile (varp1,nlevs,'theta','p') + oda_upa_obs(ns)%theta(1:nlevs,ntimes)=varp1(1:nlevs) + + CALL gdf_upa_get_profile (varp1,nlevs,'pi','p') + oda_upa_obs(ns)%pi(1:nlevs,ntimes)=varp1(1:nlevs) + + CALL gdf_upa_get_profile (varp1,nlevs,'mixrat','p') + oda_upa_obs(ns)%rv(1:nlevs,ntimes)=varp1(1:nlevs) + +!print*,plat,plon,ns,ntimes +!do k=1,oda_upa_obs(ns)%lp(ntimes) +! print '(i3,5f12.3)',k,oda_upa_obs(ns)%pi(k,ntimes) & +! ,oda_upa_obs(ns)%zgeo(k,ntimes) & +! ,oda_upa_obs(ns)%theta(k,ntimes) & +! ,oda_upa_obs(ns)%rv(k,ntimes) +!enddo +!do k=1,oda_upa_obs(ns)%lz(ntimes) +! print '(i3,5f12.3)',k,oda_upa_obs(ns)%u(k,ntimes) & +! ,oda_upa_obs(ns)%v(k,ntimes) & +! ,oda_upa_obs(ns)%us(k,ntimes) & +! ,oda_upa_obs(ns)%vs(k,ntimes) & +! ,oda_upa_obs(ns)%zz(k,ntimes) +!enddo + + exit + endif + enddo + enddo + + close(31) + +enddo + +return +END SUBROUTINE oda_sta_input + +!############################################################################## +real Function xy_ij (nih,xh,x) + +! gets i (or j) grid point index from x (or y) value in m + +implicit none + +integer :: nih +real :: xh(nih),x +integer :: inti,m +real :: reali + +xy_ij=0. !Variable initialized + +if(x < xh(1) .or. x > xh(nih))then + print*, 'x, y, or z value exceeds grid limits' + stop 'xy_ij' +endif + +!print*,x +!print*,xh + +do m=2,nih + if (x >= xh(m-1) .and. x < xh(m)) then + inti=m-1 + reali=(x-xh(m-1))/(xh(m)-xh(m-1)) + xy_ij = float(inti)+reali + !print*,'i,j:',inti,reali,xy_ij + exit + endif +enddo + +return +END FUNCTION xy_ij + diff --git a/src/6.2.16/fdda/varf_read.f90 b/src/6.2.16/fdda/varf_read.f90 new file mode 100644 index 0000000..ede2ee4 --- /dev/null +++ b/src/6.2.16/fdda/varf_read.f90 @@ -0,0 +1,311 @@ +!############################################################################## +Subroutine varf_read (ivflag) + +use mem_grid +use mem_varinit +use node_mod + +implicit none + +integer :: ivflag + +character(len=14) :: itotdate_current +integer :: iyears,imonths,idates,ihours,nf,ifm & + ,ivar_wait,nwaits,nw,ivwait1,irsleep,irslp,ifileok,icm + +! In parallel mode, have mainnum node do the file inventory and waiting. +! After mainnum establishes the var file list, etc. then broadcast this +! information to all other nodes. + +! See if we want to possibly wait for files to be available. +! This will control some logic... +ivar_wait=0 +if(vwait1 > 0.0 .and. vwaittot > 0.0) ivar_wait=1 +if(ivar_wait == 0) then + if(print_msg) then + print* + print*,' Will not wait for varfiles' + print* + endif + nwaits=1 +elseif (ivar_wait == 1) then + if(print_msg) then + print* + print*,' Will wait for varfiles if not present' + print*,' Check interval:',vwait1,' Fail time:',vwaittot + print* + endif + nwaits=int(vwaittot/vwait1)+1 +endif + +if (ivflag == 0) then ! Initialization of initial fields + + CALL date_make_big (iyear1,imonth1,idate1,itime1*100 & + ,itotdate_current) + + if ((my_rams_num .eq. mainnum) .or. (nmachs .eq. 1)) then + wait: do nw = 1, nwaits + + ! Inventory all varf files. + CALL varf_file_inv (varfpfx,iyear1,imonth1,idate1,itime1) + + + ! The initial time must have an exact time match. + nvarffl=0 + do nf=1,nvarffiles + if(itotdate_current == itotdate_varf(nf)) then + nvarffl=nf + exit wait + endif + enddo + if (ivar_wait == 0 ) then + print* + print*,'No initial varfiles found with prefix: ',trim(varfpfx) + print* + stop 'no initial varfile' + elseif(ivar_wait == 1 .and. nw < nwaits) then + print*,'No initial varfiles found: ',trim(varfpfx) + print*,' Waiting:', vwait1,' seconds. Total wait:',nw*vwait1 + ivwait1=nint(vwait1) + irslp = irsleep(ivwait1) + elseif(ivar_wait == 1 .and. nw == nwaits) then + print*,'No initial varfiles found: ',trim(varfpfx) + print*,' Waited too long:', vwaittot,' seconds.' + stop ' No initial varfile after wait.' + endif + + enddo wait + endif + + ! Broadcast the file inventory results to the other nodes + if (nmachs .gt. 1) then + CALL broadcast_vfile_selection () + endif + + ! Now do actual initialization for the coarse grid + ! and find 1D reference state + CALL newgrid (1) ! set to grid1 + CALL varf_update (0,ifileok,1) ! varf_update (on grid1) + + ! On all fine grids, initialize the 1-D reference state arrays, + ! the 3-D reference state arrays, + ! and the prognostic atmospheric fields by interpolation. + do ifm = 1,ngrids + icm = nxtnest(ifm) + if (icm .ge. 1) then + CALL newgrid(ifm) + CALL interp_fine_grid(ifm,icm,IFG_VF_INIT) + endif + enddo + + return + +elseif (ivflag == 1) then ! Fill nudging arrays and compute weights + + ! If a history start, we will assume a past time file is there. + ! Take closest past time. + + CALL date_add_to (iyear1,imonth1,idate1,itime1*100 & + ,time,'s',iyears,imonths,idates,ihours) + CALL date_make_big (iyears,imonths,idates,ihours & + ,itotdate_current) + + if ((my_rams_num .eq. mainnum) .or. (nmachs .eq. 1)) then + CALL varf_file_inv (varfpfx,iyear1,imonth1,idate1,itime1) + + nvarffl=0 + do nf=nvarffiles,1,-1 + if(itotdate_varf(nf) <= itotdate_current ) then + nvarffl=nf + exit + endif + enddo + if (nvarffl == 0 ) then + print* + print*,'No past varfiles found on nudge fill:',trim(varfpfx) + print* + stop 'no past varfile on fill' + endif + endif + + ! Broadcast the file inventory results to the other nodes + if (nmachs .gt. 1) then + CALL broadcast_vfile_selection () + endif + + ! Compute weighting factors for grid 1 + CALL newgrid(1) + CALL varweight (mmzp(1),mmxp(1),mmyp(1),varinit_g(1)%varwts(1,1,1) & + ,grid_g(1)%topt(1,1),grid_g(1)%rtgt(1,1)) + + ! Read files + + do ifm = 1,ngrids + icm = nxtnest(ifm) + + CALL newgrid (ifm) + + ! Interpolate weights to all other grids + if(ifm > 1) CALL interp_varf(ifm,1) + + ! See if this grid's varfile is created. + CALL varf_update (0,ifileok,0) + + if(ifileok == 1) then + ! Everything's cool... + if(print_msg) print*,'Varfile read of grid-',ifm + else + ! Using interpolated nudging arrays from parent grid. + CALL interp_varf(ifm,2) + if(print_msg) print*,'Interpolation of grid-',ifm + endif + + enddo + + vtime2=varf_times(nvarffl) + if(print_msg) print*,'New varfile times:',nvarffl,vtime2 + +elseif (ivflag == 2) then ! Runtime file increment + + ! Find current date/time + CALL date_add_to (iyear1,imonth1,idate1,itime1*100 & + ,time,'s',iyears,imonths,idates,ihours) + CALL date_make_big (iyears,imonths,idates,ihours & + ,itotdate_current) + +endif + +! Find the next varfile in the list, waiting for it if necessary + + +if ((my_rams_num .eq. mainnum) .or. (nmachs .eq. 1)) then + wait2: do nw = 1, nwaits + + ! Redo the inventory in case new files showed up + CALL varf_file_inv (varfpfx,iyear1,imonth1,idate1,itime1) + + nvarffl=0 + do nf=1,nvarffiles + if(itotdate_varf(nf) > itotdate_current) then + nvarffl=nf + exit wait2 + endif + enddo + if (ivar_wait == 0 ) then + print* + print*,'No future varfiles found with prefix: ',trim(varfpfx) + print* + stop 'no future varfile' + elseif(ivar_wait == 1 .and. nw < nwaits) then + print*,'No future varfiles found: ',trim(varfpfx) + print*,' Waiting:', vwait1,' seconds. Total wait:',nw*vwait1 + ivwait1=nint(vwait1) + irslp = irsleep(ivwait1) + elseif(ivar_wait == 1 .and. nw == nwaits) then + print*,'No future varfiles found: ',trim(varfpfx) + print*,' Waited too long:', vwaittot,' seconds.' + stop ' No future varfile after wait.' + endif + + enddo wait2 +endif + +! Broadcast the file inventory results to the other nodes +if (nmachs .gt. 1) then + CALL broadcast_vfile_selection () +endif + +! Read future files + +do ifm = 1,ngrids + icm = nxtnest(ifm) + + CALL newgrid (ifm) + + ! See if this grid's varfile is created. + CALL varf_update (1,ifileok,0) + + if(ifileok == 1) then + ! Everything's cool... + if(print_msg) print*,'Future varfile read of grid-',ifm + else + ! Using interpolated nudging arrays from parent grid. + CALL interp_varf(ifm,2) + if(print_msg) print*,'Future interpolation of grid-',ifm + endif + +enddo + + +vtime1=vtime2 +vtime2=varf_times(nvarffl) + +if(print_msg) print*,'New varfile times:',nvarffl,vtime1,vtime2 + +return +END SUBROUTINE varf_read + +!############################################################################## +Subroutine varf_file_inv (varpref,iyear1,imonth1,idate1,itime1) + +use mem_varinit + +implicit none + +character(len=*) :: varpref +integer :: iyear1,imonth1,idate1,itime1,nc,nf,lnf,nvftot & + ,inyear,inmonth,indate,inhour +character(len=strl1) :: fnames(maxnudfiles),vpref +character(len=14) :: itotdate +real(kind=8) :: secs_init,secs_varf + +! Get abs seconds of run start + +CALL date_abs_secs2 (iyear1,imonth1,idate1,itime1*100,secs_init) + +! Go through history files and make inventory + +nc=len_trim(varpref) +nvftot=-1 +vpref=varpref + +CALL rams_filelist (fnames,trim(vpref)//'*.tag',nvftot) + +if(nvftot > maxnudfiles) then + print*,'too many varf files' + stop 'lots_of_varf' +endif + +nvarffiles=0 +do nf=1,nvftot + lnf=len_trim(fnames(nf)) + read(fnames(nf)(lnf-20:lnf-4),20) inyear,inmonth,indate,inhour + 20 format(i4,1x,i2,1x,i2,1x,i6) + + CALL date_make_big (inyear,inmonth,indate,inhour,itotdate) + + nvarffiles=nvarffiles+1 + fnames_varf(nvarffiles)=fnames(nf) + itotdate_varf(nvarffiles)=itotdate + + CALL date_abs_secs2 (inyear,inmonth,indate,inhour,secs_varf) + varf_times(nvarffiles)=secs_varf - secs_init + +enddo + +CALL rams_dintsort (nvarffiles,itotdate_varf,fnames_varf) + +! start printing section +!-------------------------------------------------------------- + +print*,'-------------------------------------------------------------' +print*,'----------- Varfile Input Inventory -------------' +print*,'-------------------------------------------------------------' +do nf=1,nvarffiles + print 8, nf, itotdate_varf(nf),varf_times(nf) ,trim(fnames_varf(nf)) +enddo +8 format(i4,1x,a16,1x,f10.0,2x,a) +print*,'------------------------------------------------------' + +return +END SUBROUTINE varf_file_inv diff --git a/src/6.2.16/fdda/varf_update.f90 b/src/6.2.16/fdda/varf_update.f90 new file mode 100644 index 0000000..bb3e5cf --- /dev/null +++ b/src/6.2.16/fdda/varf_update.f90 @@ -0,0 +1,483 @@ +!############################################################################## +Subroutine varf_update (iswap,ifileok,initflag) + +use mem_leaf +use mem_varinit +use mem_basic +use mem_grid +use node_mod +use micphys +use hdf5_utils + +implicit none + +integer :: ifileok,initflag,iswap + +!---------------------------------------------------------------+ +! "Variable initialization" initialization routines +!---------------------------------------------------------------+ +logical :: there +integer :: nc,iyearx,imonthx,idatex,ihourx & + ,nxpx,nypx,nzpx,kk,ii,jj +real :: rlatx,wlon1x,deltaxx,deltazx,dzratx,dzmaxx +character(len=7) :: cgrid +character(len=strl1) :: flnm +integer*8 :: h5_fid +integer :: iphdf5 +type (hdf5_select_type) :: mem_select,file_select +integer, dimension(HDF5_MAX_DIMS) :: file_chunks +real, dimension(:,:,:), allocatable :: temp_var + +! Check and see what we are doing. If it is initial time, read +! fields into regular arrays. If not, see if nudging will be done +! on this grid if it is a nested grid. +if ( ngrid > 1 .and. & !if nested grid + initflag == 0 .and. & !if not model start initialization + tnudcent+tnudtop < .001 .and. & !if not central/top nudging + nud_cond == 0 .and. & !if not condensate nudging + snudcent < .001 ) return !if not soil nudging + +if (nmachs .gt. 1) then + iphdf5 = 1 +else + iphdf5 = 0 +endif + +! Put new fields into varinit future arrays. If iswap == 1, +! swap future into past first + +if (iswap == 1) then + +do jj=1,mmyp(ngrid) + do ii=1,mmxp(ngrid) + do kk=1,mmzp(ngrid) + !The first 5 are needed for all nudged simulations + varinit_g(ngrid)%varup(kk,ii,jj) = varinit_g(ngrid)%varuf(kk,ii,jj) + varinit_g(ngrid)%varvp(kk,ii,jj) = varinit_g(ngrid)%varvf(kk,ii,jj) + varinit_g(ngrid)%varpp(kk,ii,jj) = varinit_g(ngrid)%varpf(kk,ii,jj) + varinit_g(ngrid)%vartp(kk,ii,jj) = varinit_g(ngrid)%vartf(kk,ii,jj) + varinit_g(ngrid)%varrp(kk,ii,jj) = varinit_g(ngrid)%varrf(kk,ii,jj) + !These next 2 are for condensate nudging from History-Varfiles + if (nud_cond == 1) then + varinit_g(ngrid)%varrph(kk,ii,jj) = varinit_g(ngrid)%varrfh(kk,ii,jj) + varinit_g(ngrid)%varcph(kk,ii,jj) = varinit_g(ngrid)%varcfh(kk,ii,jj) + endif + enddo + !These following are for soil and snow nudging from varfiles + if (snudcent > 0.) then + varinit_g(ngrid)%varsoilm1p(ii,jj) = varinit_g(ngrid)%varsoilm1f(ii,jj) + varinit_g(ngrid)%varsoilm2p(ii,jj) = varinit_g(ngrid)%varsoilm2f(ii,jj) + varinit_g(ngrid)%varsoilt1p(ii,jj) = varinit_g(ngrid)%varsoilt1f(ii,jj) + varinit_g(ngrid)%varsoilt2p(ii,jj) = varinit_g(ngrid)%varsoilt2f(ii,jj) + varinit_g(ngrid)%varsnowmp(ii,jj) = varinit_g(ngrid)%varsnowmf(ii,jj) + varinit_g(ngrid)%varsnowdp(ii,jj) = varinit_g(ngrid)%varsnowdf(ii,jj) + endif + enddo +enddo + +endif + +write(cgrid,'(a2,i1,a3)') '-g',ngrid,'.h5' +nc=len_trim(fnames_varf(nvarffl)) +flnm=fnames_varf(nvarffl)(1:nc-4)//trim(cgrid) +inquire(file=trim(flnm),exist=there) + +! Gotta have grid 1... +if (.not.there .and. ngrid == 1) then + print* + print*,'No grid 1 varfile found: ',trim(flnm) + print* + stop 'no grid 1 varfile' +endif + +if(there) then + ifileok=1 +else + ifileok=0 + return +endif + +! Read the varfile fields into the "future" varinit arrays. These will be +! swapped to the past arrays when needed. +CALL shdf5_open (flnm,'R',iphdf5,h5_fid) +allocate(temp_var(mxp,myp,mzp)) + +! scalar vars +CALL shdf5_set_hs_select (1,'R',ngrid,mem_select,file_select,file_chunks) +CALL shdf5_irec (h5_fid,iphdf5,'year',mem_select,file_select,ivars=iyearx) +CALL shdf5_irec (h5_fid,iphdf5,'month',mem_select,file_select,ivars=imonthx) +CALL shdf5_irec (h5_fid,iphdf5,'day',mem_select,file_select,ivars=idatex) +CALL shdf5_irec (h5_fid,iphdf5,'hour',mem_select,file_select,ivars=ihourx) +CALL shdf5_irec (h5_fid,iphdf5,'nx',mem_select,file_select,ivars=nxpx) +CALL shdf5_irec (h5_fid,iphdf5,'ny',mem_select,file_select,ivars=nypx) +CALL shdf5_irec (h5_fid,iphdf5,'nz',mem_select,file_select,ivars=nzpx) +CALL shdf5_irec (h5_fid,iphdf5,'polelat',mem_select,file_select,rvars=rlatx) +CALL shdf5_irec (h5_fid,iphdf5,'polelon',mem_select,file_select,rvars=wlon1x) +CALL shdf5_irec (h5_fid,iphdf5,'dx',mem_select,file_select,rvars=deltaxx) +CALL shdf5_irec (h5_fid,iphdf5,'dz',mem_select,file_select,rvars=deltazx) +CALL shdf5_irec (h5_fid,iphdf5,'dzrat',mem_select,file_select,rvars=dzratx) +CALL shdf5_irec (h5_fid,iphdf5,'dzmax',mem_select,file_select,rvars=dzmaxx) + +if(nxp.ne.nxpx.or. & + nyp.ne.nypx.or. & + nzp.ne.nzpx.or. & + abs(deltax-deltaxx).gt..001.or. & + abs(deltaz-deltazx).gt..001.or. & + abs(dzrat-dzratx).gt..001.or. & + abs(dzmax-dzmaxx).gt..001.or. & + abs(polelat-rlatx).gt..001.or. & + abs(polelon-wlon1x).gt..001) then + + print*,'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!' + print*,'!! GRID MISMATCH BETWEEN VARFILE AND NAMELIST !' + print*,'!! RUN IS STOPPED !' + print*,'!! File:',trim(flnm) + print*,'!! File, Namelist values for grid:',ngrid + print*,'!! nxp:',nxpx,nxp + print*,'!! nyp:',nypx,nyp + print*,'!! nzp:',nzpx,nzp + print*,'!! deltax:',deltaxx,deltax + print*,'!! deltaz:',deltazx,deltaz + print*,'!! dzrat:',dzratx,dzrat + print*,'!! dzmax:',dzmaxx,dzmax + print*,'!! polelat:',rlatx,polelat + print*,'!! polelon:',wlon1x,polelon + PRINT*,'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!' + stop 'bad-vfile' +endif + +! Atmos 3D vars +CALL shdf5_set_hs_select (3,'R',ngrid,mem_select,file_select,file_chunks) +CALL shdf5_irec (h5_fid,iphdf5,'UP',mem_select,file_select & + ,rvara=temp_var) +CALL unarrange (mzp,mxp,myp,temp_var,varinit_g(ngrid)%varuf) +CALL shdf5_irec (h5_fid,iphdf5,'VP',mem_select,file_select & + ,rvara=temp_var) +CALL unarrange (mzp,mxp,myp,temp_var,varinit_g(ngrid)%varvf) +CALL shdf5_irec (h5_fid,iphdf5,'PI',mem_select,file_select & + ,rvara=temp_var) +CALL unarrange (mzp,mxp,myp,temp_var,varinit_g(ngrid)%varpf) +CALL shdf5_irec (h5_fid,iphdf5,'THETA',mem_select,file_select & + ,rvara=temp_var) +CALL unarrange (mzp,mxp,myp,temp_var,varinit_g(ngrid)%vartf) +CALL shdf5_irec (h5_fid,iphdf5,'RV',mem_select,file_select & + ,rvara=temp_var) +CALL unarrange (mzp,mxp,myp,temp_var,varinit_g(ngrid)%varrf) + +!For Condensate nudging from History-Varfiles, RV = RTP so we load +!the RV variable into the nudging variable VARRFH +if(nud_cond == 1) then + CALL shdf5_irec (h5_fid,iphdf5,'RV',mem_select,file_select & + ,rvara=temp_var) + CALL unarrange (mzp,mxp,myp,temp_var,varinit_g(ngrid)%varrfh) + CALL shdf5_irec (h5_fid,iphdf5,'COND',mem_select,file_select & + ,rvara=temp_var) + CALL unarrange (mzp,mxp,myp,temp_var,varinit_g(ngrid)%varcfh) +endif + +varinit_g(ngrid)%varrf(1:mzp,1:mxp,1:myp)= & + max(1.e-8,varinit_g(ngrid)%varrf(1:mzp,1:mxp,1:myp) ) + +!Extract 2D soil/snow data from the varfile if using for +!soil initialization and/or nudging +if(isoildat == 1 .or. snudcent > 0.) then + CALL shdf5_set_hs_select (2,'R',ngrid,mem_select,file_select,file_chunks) + CALL shdf5_irec (h5_fid,iphdf5,'SOILMOIST1',mem_select,file_select & + ,rvara=varinit_g(ngrid)%varsoilm1f) + CALL shdf5_irec (h5_fid,iphdf5,'SOILMOIST2',mem_select,file_select & + ,rvara=varinit_g(ngrid)%varsoilm2f) + CALL shdf5_irec (h5_fid,iphdf5,'SOILTEMP1', mem_select,file_select & + ,rvara=varinit_g(ngrid)%varsoilt1f) + CALL shdf5_irec (h5_fid,iphdf5,'SOILTEMP2', mem_select,file_select & + ,rvara=varinit_g(ngrid)%varsoilt2f) + CALL shdf5_irec (h5_fid,iphdf5,'SNOWMASS', mem_select,file_select & + ,rvara=varinit_g(ngrid)%varsnowmf) + CALL shdf5_irec (h5_fid,iphdf5,'SNOWDEPTH', mem_select,file_select & + ,rvara=varinit_g(ngrid)%varsnowdf) +endif + +CALL shdf5_close (h5_fid) + +! Find the reference state + +if(initflag == 1 .and. ngrid == 1) & + CALL varref (mzp,mxp,myp & + ,varinit_g(ngrid)%vartf(1,1,1) ,varinit_g(ngrid)%varpf(1,1,1) & + ,basic_g(ngrid)%pi0(1,1,1), basic_g(ngrid)%th0(1,1,1) & + ,varinit_g(ngrid)%varrf(1,1,1), basic_g(ngrid)%dn0(1,1,1) & + ,basic_g(ngrid)%dn0u(1,1,1), basic_g(ngrid)%dn0v(1,1,1) & + ,varinit_g(ngrid)%varuf(1,1,1), varinit_g(ngrid)%varvf(1,1,1) & + ,grid_g(ngrid)%topt(1,1), grid_g(ngrid)%rtgt(1,1) & + ,level) + +do jj=1,mmyp(ngrid) + do ii=1,mmxp(ngrid) + do kk=1,mmzp(ngrid) + varinit_g(ngrid)%varpf(kk,ii,jj) = & + varinit_g(ngrid)%varpf(kk,ii,jj) - basic_g(ngrid)%pi0(kk,ii,jj) + enddo + enddo +enddo + +! If this is an initialization, put data into regular arrays + +if(initflag == 1) then + CALL atob (mxyzp,varinit_g(ngrid)%varuf(1,1,1),basic_g(ngrid)%uc(1,1,1)) + CALL atob (mxyzp,varinit_g(ngrid)%varvf(1,1,1),basic_g(ngrid)%vc(1,1,1)) + CALL atob (mxyzp,varinit_g(ngrid)%varpf(1,1,1),basic_g(ngrid)%pc(1,1,1)) + CALL atob (mxyzp,varinit_g(ngrid)%vartf(1,1,1),basic_g(ngrid)%thp(1,1,1)) + CALL atob (mxyzp,varinit_g(ngrid)%varrf(1,1,1),basic_g(ngrid)%rtp(1,1,1)) + if(isoildat == 1) then + CALL atob (mxyp,varinit_g(ngrid)%varsoilm1f(1,1),leaf_g(ngrid)%soil_moist_bot(1,1)) + CALL atob (mxyp,varinit_g(ngrid)%varsoilm2f(1,1),leaf_g(ngrid)%soil_moist_top(1,1)) + CALL atob (mxyp,varinit_g(ngrid)%varsoilt1f(1,1),leaf_g(ngrid)%soil_temp_bot(1,1)) + CALL atob (mxyp,varinit_g(ngrid)%varsoilt2f(1,1),leaf_g(ngrid)%soil_temp_top(1,1)) + CALL atob (mxyp,varinit_g(ngrid)%varsnowmf(1,1),leaf_g(ngrid)%snow_mass(1,1)) + CALL atob (mxyp,varinit_g(ngrid)%varsnowdf(1,1),leaf_g(ngrid)%snow_depth(1,1)) + endif +endif + +deallocate(temp_var) + +return +END SUBROUTINE varf_update + +!############################################################################## +Subroutine varref (n1,n2,n3,thp,pc,pi0,th0,rtp,dn0,dn0u,dn0v,uc & + ,vc,topt,rtgt,level) + +use mem_grid +use ref_sounding +use rconstants +use node_mod + +implicit none + +integer :: n1,n2,n3,level,i,j,k +real, dimension(n1,n2,n3) :: thp,pc,pi0,rtp,dn0,dn0u,dn0v,uc,vc,th0 +real, dimension(n2,n3) :: topt,rtgt +real, dimension(:), allocatable :: temp_v1, temp_v2 + +allocate(temp_v1(mzp)) +allocate(temp_v2(mzp)) + +! No single node has the full domain version of the atmospheric +! variables (thp, pc, pi0,...). For this reason, have each node +! calculate a 1D reference state locally for their sub-domain. +! +! Then have mainnum gather these results and determine which column +! will be used for the global 1D reference state. Then have mainnum +! scatter this information back to all of the other nodes. + +! Reference sounding is point with lowest topography +topref=1.e10 +do j=1,myp + do i=1,mxp + if(topt(i,j).lt.topref) then + iref=i + jref=j + topref=topt(i,j) + endif + enddo +enddo + +! Set up 1-D reference state + +do k=1,mzp + temp_v2(k)=ztn(k,ngrid)*(1.-topref/ztop)+topref +enddo +CALL htint2 (mzp,thp(1,iref,jref),temp_v2,mzp,temp_v1,zt) +CALL htint2 (mzp,uc(1,iref,jref),temp_v2,mzp,u01dn(1,ngrid),zt) +CALL htint2 (mzp,vc(1,iref,jref),temp_v2,mzp,v01dn(1,ngrid),zt) +if (level >= 1) then + CALL htint2 (mzp,rtp(1,iref,jref),temp_v2,mzp,rt01dn(1,ngrid),zt) +else + rt01dn(1:mzp,ngrid) = 0. +endif + +do k = 1,mzp + th01dn(k,ngrid) = temp_v1(k) * (1. + .61 * rt01dn(k,ngrid)) +enddo +u01dn(1,ngrid) = u01dn(2,ngrid) +v01dn(1,ngrid) = v01dn(2,ngrid) +rt01dn(1,ngrid) = rt01dn(2,ngrid) +th01dn(1,ngrid) = th01dn(2,ngrid) + +pi01dn(1,ngrid) = pc(1,iref,jref) + g * (temp_v2(1) - zt(1)) & + / (.5 * (th01dn(1,ngrid) & + + thp(1,iref,jref) * (1. + .61 * rtp(1,iref,jref)))) +do k = 2,mzp + pi01dn(k,ngrid) = pi01dn(k-1,ngrid) - g / (dzm(k-1) * .5 & + * (th01dn(k,ngrid) + th01dn(k-1,ngrid))) +enddo + +do k = 1,mzp + temp_v1(k) = (pi01dn(k,ngrid) / cp) ** cpor * p00 + dn01dn(k,ngrid) = cp * temp_v1(k) & + / (rgas * th01dn(k,ngrid) * pi01dn(k,ngrid)) +enddo + +! Sync up all nodes with a single global 1D reference state. +if (nmachs .gt. 1) then + CALL establish_1d_refstate () +endif + +! Compute 3-D reference state from 1-D reference state + +CALL refs3d (mzp,mxp,myp,pi0,dn0,dn0u,dn0v,th0,topt,rtgt) + +! Sync up overlap regions between sub-domains on the complete +! var list which contains the 3D reference state +if (nmachs .gt. 1) CALL update_lbc_vgroup(ngrid,LBC_ALL_VARS) + +deallocate(temp_v1) +deallocate(temp_v2) + +return +END SUBROUTINE varref + +!####################################################### +! This routine will establish a single global reference +! state to be used by all nodes in a parallel run. +! +! At this point, every node has calculated their own local +! reference state. We want to consider the full domain when +! selecting the global reference state, and have this +! parallel algorithm select the same column that the +! sequential algorithm would have picked. +! +! Do this by having mainnum gather the local ref states, +! pick one for the global ref state, and then scatter this +! result back to the other nodes. When ties occur between +! local reference states (based on local minimum elevations) +! use the one that came from first the furthest south followed +! by the furthest west. + +Subroutine establish_1d_refstate () + +use mem_grid +use node_mod +use ref_sounding + +implicit none + + integer, dimension(:), allocatable :: all_iref,all_jref + real, dimension(:), allocatable :: all_topref + real, dimension(:,:), allocatable :: all_u01dn,all_v01dn,all_rt01dn & + ,all_th01dn,all_pi01dn,all_dn01dn + + integer :: inode, sel_node, sel_iref, sel_jref + real :: sel_topref + logical :: sel_this_node + + ! Before gathering the 1D ref states, have each node translate + ! (iref, jref) indicies to the full domain reference. + iref = iref + i0 + jref = jref + j0 + + ! Allocate the buffers for the MPI transfers + allocate(all_iref(nmachs)) + allocate(all_jref(nmachs)) + allocate(all_topref(nmachs)) + allocate(all_u01dn(mzp,nmachs)) + allocate(all_v01dn(mzp,nmachs)) + allocate(all_rt01dn(mzp,nmachs)) + allocate(all_th01dn(mzp,nmachs)) + allocate(all_pi01dn(mzp,nmachs)) + allocate(all_dn01dn(mzp,nmachs)) + + ! mainnum does the work + if (my_rams_num .eq. mainnum) then + ! Collect the ref state data from all the nodes + CALL par_gather_ints (iref,all_iref,1,machnum(mainnum)) + CALL par_gather_ints (jref,all_jref,1,machnum(mainnum)) + CALL par_gather_floats (topref,all_topref,1,machnum(mainnum)) + CALL par_gather_floats (u01dn(1,ngrid),all_u01dn,mzp,machnum(mainnum)) + CALL par_gather_floats (v01dn(1,ngrid),all_v01dn,mzp,machnum(mainnum)) + CALL par_gather_floats (rt01dn(1,ngrid),all_rt01dn,mzp,machnum(mainnum)) + CALL par_gather_floats (th01dn(1,ngrid),all_th01dn,mzp,machnum(mainnum)) + CALL par_gather_floats (pi01dn(1,ngrid),all_pi01dn,mzp,machnum(mainnum)) + CALL par_gather_floats (dn01dn(1,ngrid),all_dn01dn,mzp,machnum(mainnum)) + + ! Find the minumum elevation that would have been found in + ! a sequential run. + sel_node = 1 + sel_iref = all_iref(1) + sel_jref = all_jref(1) + sel_topref = all_topref(1) + + do inode = 1, nmachs + if (inode .ne. mainnum) then + sel_this_node = .false. + + if (all_topref(inode) .lt. sel_topref) then + ! This node has a lesser elevation + sel_this_node = .true. + else if (all_topref(inode) .eq. sel_topref) then + ! This node is in a tie with the currently selected node + ! Make sure we pick the same one that the sequential + ! algorithm would pick which is first the furthest + ! south, then the furthest west. + if (all_jref(inode) .lt. sel_jref) then + ! This node is further south + sel_this_node = .true. + else if ((all_jref(inode) .eq. sel_jref) .and. & + (all_iref(inode) .lt. sel_iref)) then + ! This node is in the same row as currently selected, + ! and further west + sel_this_node = .true. + endif + endif + + if (sel_this_node) then + sel_node = inode + + sel_iref = all_iref(inode) + sel_jref = all_jref(inode) + sel_topref = all_topref(inode) + endif + endif + enddo + + ! Broadcast the selected state to the other nodes + iref = sel_iref + jref = sel_jref + topref = sel_topref + u01dn(1:mzp,ngrid) = all_u01dn(1:mzp,sel_node) + v01dn(1:mzp,ngrid) = all_v01dn(1:mzp,sel_node) + rt01dn(1:mzp,ngrid) = all_rt01dn(1:mzp,sel_node) + th01dn(1:mzp,ngrid) = all_th01dn(1:mzp,sel_node) + pi01dn(1:mzp,ngrid) = all_pi01dn(1:mzp,sel_node) + dn01dn(1:mzp,ngrid) = all_dn01dn(1:mzp,sel_node) + + CALL broadcast_vfile_refstate () + + else + ! Send the ref state data to mainnum + CALL par_gather_ints (iref,all_iref,1,machnum(mainnum)) + CALL par_gather_ints (jref,all_jref,1,machnum(mainnum)) + CALL par_gather_floats (topref,all_topref,1,machnum(mainnum)) + CALL par_gather_floats (u01dn(1,ngrid),all_u01dn,mzp,machnum(mainnum)) + CALL par_gather_floats (v01dn(1,ngrid),all_v01dn,mzp,machnum(mainnum)) + CALL par_gather_floats (rt01dn(1,ngrid),all_rt01dn,mzp,machnum(mainnum)) + CALL par_gather_floats (th01dn(1,ngrid),all_th01dn,mzp,machnum(mainnum)) + CALL par_gather_floats (pi01dn(1,ngrid),all_pi01dn,mzp,machnum(mainnum)) + CALL par_gather_floats (dn01dn(1,ngrid),all_dn01dn,mzp,machnum(mainnum)) + + ! Received the selected stated from mainnum + CALL broadcast_vfile_refstate () + endif + + ! free up MPI buffers + deallocate(all_iref) + deallocate(all_jref) + deallocate(all_topref) + deallocate(all_u01dn) + deallocate(all_v01dn) + deallocate(all_rt01dn) + deallocate(all_th01dn) + deallocate(all_pi01dn) + deallocate(all_dn01dn) + +return +END SUBROUTINE establish_1d_refstate diff --git a/src/6.2.16/gdf/gdf_input.f90 b/src/6.2.16/gdf/gdf_input.f90 new file mode 100644 index 0000000..b24437b --- /dev/null +++ b/src/6.2.16/gdf/gdf_input.f90 @@ -0,0 +1,188 @@ +!############################################################################## +Module gdf_input + +! Surface variables + +use grid_dims + +implicit none + +integer, parameter :: max_sfc_vars=50 + +type gdf_sfc_obs + integer :: iqflags(max_sfc_vars,3),ihgtflg + character(len=16) :: id + real :: lat,lon,elev,hgt + integer :: jyear,jmonth,jdate,jtime + real :: sdata(max_sfc_vars) +end type + +type(gdf_sfc_obs) :: rsfc_obs + +! Upper air variables + +integer, parameter :: max_up_levs=100,max_upa_vars=12 + +type gdf_upa_obs + real, dimension(max_up_levs) :: p,t,z,r,zz,dz,fz + character(len=16) :: id + real :: lat,lon,elev + integer :: lp,lz + integer :: iqflagsp(max_up_levs,4,3),iqflagsz(max_up_levs,3,3) + integer :: jyear,jmonth,jdate,jtime +end type + +type(gdf_upa_obs) :: rupa_obs + + +! Header info + +integer, parameter :: max_head_vars=10 + +type obs_header + character(len=strl1) :: head_string(max_head_vars),head_units(max_head_vars) & + ,sfc_string(max_sfc_vars),sfc_units(max_sfc_vars) & + ,therm_string(max_upa_vars),wind_string(max_upa_vars) + + integer :: iun,iver,nhead,nvsfc,nvtherm,nvwind +end type + +type(obs_header) :: header(1) + +integer :: curfile + + +! Good station variables +integer, parameter :: maxgood_gdf=1000 +integer :: ngood_gdf +character(len=64) :: good_id_gdf(maxgood_gdf) + +! Bad station variables +integer, parameter :: maxbad_gdf=1000 +integer :: nbad_gdf +character(len=64) :: bad_id_gdf(maxbad_gdf) + + +Contains + +!############################################################################## +Subroutine gdf_good_obs () + +! Read a file of station names. If a station in the list is read, +! use it. If a station is read that is not in the list, skip it. + +! File name is "GDF_Good_Obs" and must exist in current directory. +! File format is one station ID (character string) per line. +! '#' character in column 1 designates a comment, blank lines are ignored +! Reading will stop upon file end or error. + +! If both good and bad files are present, the bad will override +! the good specification. + +! A further assumption: if the good file exists, but is empty, +! assume all stations are + +implicit none + +character(len=64), save :: bname='GDF_Good_Obs' +character(len=64) :: station +logical :: there + +inquire(file=bname, exist=there) + +if (there) then + + open(188,file=bname, status='old') + + ngood_gdf=0 + do while(.true.) + + read(188,*,end=100,err=100) station + if(station(1:1) == '#') cycle + if(len_trim(station) == 0) cycle + + ngood_gdf=ngood_gdf+1 + good_id_gdf(ngood_gdf)=station + + print*,'Good obs setup:',ngood_gdf,trim(good_id_gdf(ngood_gdf)) + + if(ngood_gdf >= maxgood_gdf) then + print*,'Number of good stations in:',trim(bname) + print*,' exceeds maximum in gdf_good_obs. max=',maxgood_gdf + stop 'gdf_good_obs: Too many good stations' + endif + + enddo + +else + + ngood_gdf=0 + +endif + + +100 continue +close(188) + +return +END SUBROUTINE gdf_good_obs + +!############################################################################## +Subroutine gdf_bad_obs () + +! Read a file of station names. If a station in the list is read, +! skip it. +! File name is "GDF_Bad_Obs" and must exist in current directory. +! File format is one station ID (character string) per line. +! '#' character in column 1 designates a comment, blank lines are ignored +! Reading will stop upon file end or error. + +! If both good and bad files are present, the bad will override +! the good specification. + +implicit none + +character(len=64), save :: bname='GDF_Bad_Obs' +character(len=64) :: station +logical :: there + +inquire(file=bname, exist=there) + +if (there) then + + open(188,file=bname, status='old') + + nbad_gdf=0 + do while(.true.) + + read(188,*,end=100,err=100) station + if(station(1:1) == '#') cycle + if(len_trim(station) == 0) cycle + + nbad_gdf=nbad_gdf+1 + bad_id_gdf(nbad_gdf)=station + + print*,'Bad obs setup:',nbad_gdf,trim(bad_id_gdf(nbad_gdf)) + + if(nbad_gdf >= maxbad_gdf) then + print*,'Number of bad stations in:',trim(bname) + print*,' exceeds maximum in gdf_bad_obs. max=',maxbad_gdf + stop 'gdf_bad_obs: Too many bad stations' + endif + + enddo + +else + + nbad_gdf=0 + +endif + + +100 continue +close(188) + +return +END SUBROUTINE gdf_bad_obs + +END MODULE gdf_input diff --git a/src/6.2.16/gdf/gdf_read_sfc.f90 b/src/6.2.16/gdf/gdf_read_sfc.f90 new file mode 100644 index 0000000..5dc8d41 --- /dev/null +++ b/src/6.2.16/gdf/gdf_read_sfc.f90 @@ -0,0 +1,453 @@ +!############################################################################## +Subroutine gdf_read_sfc_ver (ifile) + +! Reads Ralph sfc file version and header + +use gdf_input + +implicit none + +integer :: ifile + +integer :: nh +character(len=strl1) :: line,tokens(100) +integer :: ntok + +header(ifile)%head_string(1:max_head_vars)='' +header(ifile)%sfc_string(1:max_sfc_vars)='' + +read(header(ifile)%iun,'(a)') line + +CALL parse (line,tokens,ntok) + +if(trim(tokens(1)) == '999999') then + read(tokens(2),*) header(ifile)%iver +else + header(ifile)%iver=1 +endif + +! Partial implementation of new v3 + +if(header(ifile)%iver==3) then + + ! Read header info + read(header(ifile)%iun,'(a)') line + CALL parse (line,tokens,ntok) + read(tokens(1),*) header(ifile)%nhead + do nh=1,header(ifile)%nhead + read(header(ifile)%iun,'(a)') line + tokens=' ' ; CALL parse (line,tokens,ntok) + header(ifile)%head_string(nh) = tokens(1) + header(ifile)%head_units(nh) = ' ' + if(ntok > 1) header(ifile)%head_units(nh) = tokens(2) + enddo +endif + +! Read variable labels and units +read(header(ifile)%iun,'(a)') line +CALL parse (line,tokens,ntok) +read(tokens(1),*) header(ifile)%nvsfc +do nh=1,header(ifile)%nvsfc + read(header(ifile)%iun,'(a)') line + tokens=' ' ; CALL parse (line,tokens,ntok) + header(ifile)%sfc_string(nh) = tokens(1) + header(ifile)%sfc_units(nh) = ' ' + if(ntok > 1) header(ifile)%sfc_units(nh) = tokens(2) +enddo + +if(header(ifile)%iver == 1) read(header(ifile)%iun,*) + +! See if there is a "good" station list present +CALL gdf_good_obs () + +! See if there is a "bad" station list present +CALL gdf_bad_obs () + +!print*,'done read header' + +return +END SUBROUTINE gdf_read_sfc_ver + +!############################################################################## +Subroutine gdf_read_sfc_obs (ifile,qcheck,ierr) + +! Reads one surface obs from gdf sfc file + +use gdf_input + +implicit none + +integer :: ifile,ierr +character(len=*) :: qcheck +integer :: ntok,iqfl(max_sfc_vars) +character(len=strl1) :: var_string +character(len=16) :: cflags,tokens(100) +character(len=strl2) :: line +integer :: jd,nvar,nv,ic,k,iq,iqf,nh,nt +integer :: nbad,ngood + +100 continue + +ierr=0 +nvar=5 +tokens='' + +! Set file id to be used for some subsequent calls +curfile = ifile + +read(header(ifile)%iun,'(a)',end=20,err=20) line +if(len_trim(line)==0) goto 10 + +! Check to see if this is a header line. If so, (re)read header. + +!!!!!! Not working for v3 yet. + +if(line(1:6) == '999999') then + read(line(7:),*) header(ifile)%iver + read(header(ifile)%iun,*) nvar + do nv=1,nvar + read(header(ifile)%iun,*) var_string + enddo + read(header(ifile)%iun,'(a)',end=20,err=20) line +endif + +CALL parse (line,tokens,ntok) + +if(header(ifile)%iver==1) then + + read(tokens(1),*,err=1,end=1) jd + read(tokens(2),*,err=1,end=1) rsfc_obs%jtime + read(tokens(3),'(a)',err=1,end=1) rsfc_obs%id + read(tokens(4),*,err=1,end=1) rsfc_obs%lat + read(tokens(5),*,err=1,end=1) rsfc_obs%lon + read(tokens(6),*,err=1,end=1) rsfc_obs%elev + rsfc_obs%hgt=0. + rsfc_obs%ihgtflg=1 + read(tokens(7),*,err=1,end=1) rsfc_obs%sdata(1) + read(tokens(8),*,err=1,end=1) rsfc_obs%sdata(2) + read(tokens(9),*,err=1,end=1) rsfc_obs%sdata(3) + read(tokens(10),*,err=1,end=1) rsfc_obs%sdata(4) + read(tokens(11),*,err=1,end=1) rsfc_obs%sdata(5) + read(tokens(12),'(a)',err=1,end=1) cflags + 1 continue + + ic=1 + do nv=1,header(ifile)%nvsfc + read(cflags(ic:),'(1x,3i1)') (rsfc_obs%iqflags(nv,k),k=1,3) + ic=ic+4 + enddo + + rsfc_obs%jyear=jd/10000 + rsfc_obs%jmonth=mod(jd,10000)/100 + rsfc_obs%jdate=mod(jd,100) + +elseif(header(ifile)%iver==2) then + read(tokens(1),*,err=2,end=2) rsfc_obs%jyear + read(tokens(2),*,err=2,end=2) rsfc_obs%jmonth + read(tokens(3),*,err=2,end=2) rsfc_obs%jdate + read(tokens(4),*,err=2,end=2) rsfc_obs%jtime + read(tokens(5),'(a)',err=2,end=2) rsfc_obs%id + read(tokens(6),*,err=2,end=2) rsfc_obs%lat + read(tokens(7),*,err=2,end=2) rsfc_obs%lon + read(tokens(8),*,err=2,end=2) rsfc_obs%elev + rsfc_obs%hgt=0. + rsfc_obs%ihgtflg=1 + + nt=9 + do nv=1,header(ifile)%nvsfc + read(tokens(nt ),*,err=2,end=2) rsfc_obs%sdata(nv) + read(tokens(nt+1),*,err=2,end=2) iqfl(nv) + nt = nt + 2 + enddo + + 2 continue + + do nv=1,header(ifile)%nvsfc + rsfc_obs%iqflags(nv,1)=iqfl(nv)/100 + rsfc_obs%iqflags(nv,2)=mod(iqfl(nv)/10,10) + rsfc_obs%iqflags(nv,3)=mod(iqfl(nv),10) + enddo + +elseif(header(ifile)%iver==3) then + + rsfc_obs%hgt=0. + rsfc_obs%ihgtflg=1 + nt=1 + do nh=1,header(ifile)%nhead + if(header(ifile)%head_string(nh)=='YEAR') then + read(tokens(nt),*,err=3) rsfc_obs%jyear + elseif(header(ifile)%head_string(nh)=='MONTH') then + read(tokens(nt),*,err=3) rsfc_obs%jmonth + elseif(header(ifile)%head_string(nh)=='DAY') then + read(tokens(nt),*,err=3) rsfc_obs%jdate + elseif(header(ifile)%head_string(nh)=='HOUR') then + read(tokens(nt),*,err=3) rsfc_obs%jtime + elseif(header(ifile)%head_string(nh)=='STATION_ID') then + read(tokens(nt),'(a)',err=3) rsfc_obs%id + elseif(header(ifile)%head_string(nh)=='LATITUDE') then + read(tokens(nt),*,err=3) rsfc_obs%lat + elseif(header(ifile)%head_string(nh)=='LONGITUDE') then + read(tokens(nt),*,err=3) rsfc_obs%lon + elseif(header(ifile)%head_string(nh)=='ELEVATION') then + read(tokens(nt),*,err=3) rsfc_obs%elev + elseif(header(ifile)%head_string(nh)=='HEIGHT') then + read(tokens(nt),*,err=3) rsfc_obs%hgt + elseif(header(ifile)%head_string(nh)=='HEIGHT_FLAG') then + read(tokens(nt),*,err=3) rsfc_obs%ihgtflg + else + print*,'unknown header record:', trim(header(ifile)%head_string(nh)) + endif + nt=nt+1 + enddo + + do nv=1,header(ifile)%nvsfc + read(tokens(nt ),*,err=3,end=3) rsfc_obs%sdata(nv) + read(tokens(nt+1),*,err=3,end=3) iqfl(nv) + !print*,'(((((((read:',nt,nv,rsfc_obs%sdata(nv) + nt = nt + 2 + enddo + + 3 continue + + do nv=1,header(ifile)%nvsfc + rsfc_obs%iqflags(nv,1)=iqfl(nv)/100 + rsfc_obs%iqflags(nv,2)=mod(iqfl(nv)/10,10) + rsfc_obs%iqflags(nv,3)=mod(iqfl(nv),10) + enddo + +endif + +! See if this station is on the "good" list. If we have the list +! and the station isn't on it, go get next obs. + +if(ngood_gdf > 0) then + do ngood=1,ngood_gdf + if(trim(rsfc_obs%id) == trim(good_id_gdf(ngood)) ) then + print*,'Sfc good obs found:',trim(good_id_gdf(ngood)) + go to 101 + endif + enddo + go to 100 +endif + +101 continue + +! See if this station is on the "bad" list. If so, go get next obs. + +if(nbad_gdf > 0) then + do nbad=1,nbad_gdf + if(trim(rsfc_obs%id) == trim(bad_id_gdf(nbad)) ) then + print*,'Sfc bad obs found:',trim(bad_id_gdf(nbad)) + go to 100 + endif + enddo +endif + +! If desired, check QC flags and set appropriate values to missing. + +if(qcheck == 'yes') then + do nv=1,header(ifile)%nvsfc + iqf=1 + do iq=1,3 + if((rsfc_obs%iqflags(nv,iq) /= 5 .and. & + rsfc_obs%iqflags(nv,iq) /= 0 .and. & + rsfc_obs%iqflags(nv,iq) /= 8) .or. & + rsfc_obs%sdata(nv) < -998.) iqf=0 + enddo + if(iqf == 0) rsfc_obs%sdata(nv)=-999. + enddo + +endif + +10 continue + +return + +20 continue +ierr=1 + +return +END SUBROUTINE gdf_read_sfc_obs + +!############################################################################## +Subroutine gdf_sfc_data_convert (varn,cvars,nvars) + +use gdf_input + +implicit none + +integer :: nvars +real :: varn(nvars) +character(len=*) :: cvars(nvars) +character(len=16) :: cvar +real :: v1,v2,v3,vv +integer :: nv,ierr +real, external :: gdf_get_sfc_val +real, external :: rsatmix + + +! Convert units and type of sfc input data + +do nv=1,nvars + cvar=cvars(nv) + varn(nv)=-999. + ierr = 0 + if(trim(cvar)=='ue') then + ! earth-relative u in m/s + ! Check first for actual component + varn(nv) = gdf_get_sfc_val('WIND_U_COMPONENT','m/s',ierr) + if (ierr == 1) then + ierr = 0 + ! Try to compute from dir and speed + v1 = gdf_get_sfc_val('WIND_DIRECTION','m/s',ierr) + v2 = gdf_get_sfc_val('WINDSPEED','m/s',ierr) + if(v1 > -998. .and. v2 > -998.) & + CALL winduv (v1,v2,varn(nv),vv) + endif + + elseif(trim(cvar)=='ve') then + ! earth-relative v in m/s + ! Check first for actual component + varn(nv) = gdf_get_sfc_val('WIND_V_COMPONENT','m/s',ierr) + if (ierr == 1) then + ierr = 0 + ! Try to compute from dir and speed + v1 = gdf_get_sfc_val('WIND_DIRECTION','m/s',ierr) + v2 = gdf_get_sfc_val('WINDSPEED','m/s',ierr) + if(v1 > -998. .and. v2 > -998.) & + CALL winduv (v1,v2,vv,varn(nv)) + endif + + elseif(trim(cvar)=='speed') then + ! wind speed in m/s + varn(nv) = gdf_get_sfc_val('WINDSPEED','m/s',ierr) + if (ierr == 1) then + ierr = 0 + v1 = gdf_get_sfc_val('WIND_U_COMPONENT','m/s',ierr) + v2 = gdf_get_sfc_val('WIND_V_COMPONENT','m/s',ierr) + if(v1 > -998. .and. v2 > -998.) & + CALL winddf (vv,varn(nv),v1,v2) + endif + + elseif(trim(cvar)=='direction') then + ! wind direction + varn(nv) = gdf_get_sfc_val('WIND_DIRECTION','deg',ierr) + if (ierr == 1) then + ierr = 0 + v1 = gdf_get_sfc_val('WIND_U_COMPONENT','m/s',ierr) + v2 = gdf_get_sfc_val('WIND_V_COMPONENT','m/s',ierr) + if(v1 > -998. .and. v2 > -998.) & + CALL winddf (varn(nv),vv,v1,v2) + endif + + elseif(trim(cvar)=='tempc') then + ! temperature in C + varn(nv) = gdf_get_sfc_val('TEMPERATURE','C',ierr) + + elseif(trim(cvar)=='tempf') then + ! temperature in F + v1 = gdf_get_sfc_val('TEMPERATURE','C',ierr) + if(v1 > -998.) varn(nv)=v1*1.8+32. + + elseif(trim(cvar)=='dewptc') then + ! dewpoint in C + varn(nv) = gdf_get_sfc_val('DEWPOINT','C',ierr) + + elseif(trim(cvar)=='dewptf') then + ! dewpoint in F + v1 = gdf_get_sfc_val('DEWPOINT','C',ierr) + if(v1 > -998.) varn(nv)=v1*1.8+32. + + elseif(trim(cvar)=='press') then + ! pressure in mb + v1 = gdf_get_sfc_val('STN_PRES','Pa',ierr) + if(v1 > -998.) varn(nv)=v1*.01 + + elseif(trim(cvar)=='press_pa') then + ! pressure in mb + varn(nv) = gdf_get_sfc_val('STN_PRES','Pa',ierr) + + elseif(trim(cvar)=='relhum') then + ! rh in percent + v1 = gdf_get_sfc_val('TEMPERATURE','C',ierr) + v2 = gdf_get_sfc_val('DEWPOINT','C',ierr) + v3 = gdf_get_sfc_val('STN_PRES','Pa',ierr) + if(v1 > -998. .and. v2 > -998. .and. v3 > -998.) & + varn(nv)=100.*min(1.,max(0.,rsatmix(v3,v2+273.16)/rsatmix(v3,v1+273.16))) + + elseif(trim(cvar)=='ch-so2-ug') then + ! SO2 + varn(nv) = gdf_get_sfc_val('SO2','ug/m3',ierr) + + elseif(trim(cvar)=='ch-no2-ug') then + ! NO2 + varn(nv) = gdf_get_sfc_val('NO2','ug/m3',ierr) + + elseif(trim(cvar)=='ch-no-ug') then + ! NO + varn(nv) = gdf_get_sfc_val('NO','ug/m3',ierr) + + elseif(trim(cvar)=='ch-pm10-ug') then + ! PM10 + varn(nv) = gdf_get_sfc_val('PM10','ug/m3',ierr) + + elseif(trim(cvar)=='ch-o3-ug') then + ! O3 + varn(nv) = gdf_get_sfc_val('O3','ug/m3',ierr) + !print*,'======here:',ierr,nv,varn(nv) + elseif(trim(cvar)=='ch-voc-ug') then + ! O3 + varn(nv) = gdf_get_sfc_val('VOC','ug/m3',ierr) + !print*,'======here:',ierr,nv,varn(nv) + elseif(trim(cvar)=='em-no') then + varn(nv) = gdf_get_sfc_val('EM-NO','moles/hr',ierr) + elseif(trim(cvar)=='em-no2') then + varn(nv) = gdf_get_sfc_val('EM-NO2','moles/hr',ierr) + elseif(trim(cvar)=='em-so2') then + varn(nv) = gdf_get_sfc_val('EM-SO2','moles/hr',ierr) + + + else + print*,'UNKNOWN CONVERT VARIABLE in sfc_data_convert !!!!:',trim(cvar) + stop 'sfc_data_convert' + endif + + if (ierr > 0) then + print*,'gdf_sfc_data_convert: unable to find necessary info on GDF file' + print*,'gdf_sfc_data_convert: for variable: ',trim(cvar) + endif + +enddo + +return +END SUBROUTINE gdf_sfc_data_convert + +!############################################################################## +real Function gdf_get_sfc_val (varn,units,ierr) + +use gdf_input + +implicit none + +character(len=*) :: varn,units +integer :: ierr + +integer :: nv + +gdf_get_sfc_val = -999. + +! Find which slot var is in + +do nv = 1, header(curfile)%nvsfc +!print*,'||',trim(varn),'||',trim(header(curfile)%sfc_string(nv)),'||' + if (trim(varn) == trim(header(curfile)%sfc_string(nv))) then + gdf_get_sfc_val = rsfc_obs%sdata(nv) + print*,'|| Found:',nv,' ',trim(varn),trim(units),gdf_get_sfc_val + return + endif +enddo + +ierr = 1 + +return +END FUNCTION gdf_get_sfc_val diff --git a/src/6.2.16/gdf/gdf_read_upa.f90 b/src/6.2.16/gdf/gdf_read_upa.f90 new file mode 100644 index 0000000..8bcb1c9 --- /dev/null +++ b/src/6.2.16/gdf/gdf_read_upa.f90 @@ -0,0 +1,381 @@ +!############################################################################## +Subroutine gdf_read_upa_ver (ifile) + +! Reads Ralph sfc file version and header + +use gdf_input + +implicit none + +integer :: ifile + +integer :: imarker,nh,nt,nw + +header(ifile)%head_string(1:max_head_vars)='' +header(ifile)%therm_string(1:max_upa_vars)='' +header(ifile)%wind_string(1:max_upa_vars)='' + +read(header(ifile)%iun,*) imarker +rewind header(ifile)%iun + +if(imarker.eq.999999) then + read(header(ifile)%iun,*) imarker,header(ifile)%iver +else + header(ifile)%iver=1 +endif + +if(header(ifile)%iver==3) then + + read(header(ifile)%iun,*) header(ifile)%nhead + do nh=1,header(ifile)%nhead + read(header(ifile)%iun,*) header(ifile)%head_string(nh) + enddo + read(header(ifile)%iun,*) header(ifile)%nvtherm + do nt=1,header(ifile)%nvtherm + read(header(ifile)%iun,*) header(ifile)%therm_string(nt) + enddo + read(header(ifile)%iun,*) header(ifile)%nvwind + do nw=1,header(ifile)%nvwind + read(header(ifile)%iun,*) header(ifile)%wind_string(nw) + enddo +endif + +! See if there is a "good" station list present +CALL gdf_good_obs () + +! See if there is a "bad" station list present +CALL gdf_bad_obs () + +return +END SUBROUTINE gdf_read_upa_ver + +!############################################################################## +Subroutine gdf_read_upa_obs (ifile,qcheck,ierr) + +! Reads one upper air obs from Ralph upper air file +! need to detect if there is an additional header + +use gdf_input + +implicit none + +integer :: ifile,ierr +character(len=*) :: qcheck +integer :: ntok,iqfl(5) +character(len=16) :: tokens(100) +character(len=strl2) :: line +integer :: n,i,j,iq,iqf,kl +integer :: nbad,ngood + +100 continue + +ierr=0 + +read(header(ifile)%iun,'(a)',end=20,err=20) line +if(len_trim(line)==0) goto 10 + +! Check to see if this is a header line. If so, read header and following line. +! Note that Ralph I files do not have headers so this will never happen. +if(line(1:6) == '999999') then + read(line(7:),*) header(ifile)%iver + read(header(ifile)%iun,'(a)',end=20,err=20) line +endif + +CALL parse (line,tokens,ntok) + +if(header(ifile)%iver==1) then + + CALL parse (line,tokens,ntok) + read(tokens(1),*) rupa_obs%jdate + read(tokens(2),*) rupa_obs%jtime + read(tokens(3),'(a)') rupa_obs%id + read(tokens(4),*) rupa_obs%lp + read(tokens(5),*) rupa_obs%lz + read(tokens(6),*) rupa_obs%lat + read(tokens(7),*) rupa_obs%lon + read(tokens(8),*) rupa_obs%elev + + if(rupa_obs%lp.gt.max_up_levs.or. rupa_obs%lz.gt.max_up_levs) then + print*,'Rawindsonde read error!' + print*,' Number of input levels greater than max_up_levs' + print*,' upa_lp,upa_lz,max_up_levs:',rupa_obs%lp & + ,rupa_obs%lz, max_up_levs + stop 'rawin-max_up_levs' + endif + + do n=1,rupa_obs%lp + read(header(ifile)%iun,80,end=20,err=20)rupa_obs%p(n),rupa_obs%z(n) & + ,rupa_obs%t(n),rupa_obs%r(n) & + ,((rupa_obs%iqflagsp(n,i,j),j=1,3),i=1,4) + enddo + 80 format(2f12.3,f10.2,f10.4,2x,4(':',3i1)) + + do n=1,rupa_obs%lz + read(header(ifile)%iun,85,end=20,err=20)rupa_obs%zz(n),rupa_obs%fz(n) & + ,rupa_obs%dz(n) & + ,((rupa_obs%iqflagsz(n,i,j),j=1,3),i=1,3) + enddo + 85 format(f12.3,2f10.2,2x,3(':',3i1)) + +elseif(header(ifile)%iver==2.or.header(ifile)%iver==3) then + + read(tokens(1),*) rupa_obs%jyear + read(tokens(2),*) rupa_obs%jmonth + read(tokens(3),*) rupa_obs%jdate + read(tokens(4),*) rupa_obs%jtime + read(tokens(5),'(a)') rupa_obs%id + read(tokens(6),*) rupa_obs%lp + read(tokens(7),*) rupa_obs%lz + read(tokens(8),*) rupa_obs%lat + read(tokens(9),*) rupa_obs%lon + read(tokens(10),*) rupa_obs%elev + + IF(rupa_obs%lp > max_up_levs.or. & + rupa_obs%lz > max_up_levs) then + print*,'Rawindsonde read error!' + print*,' Number of input levels greater than max_up_levs' + print*,' upa_lp,upa_lz,max_up_levs:',rupa_obs%lp,rupa_obs%lz,max_up_levs + stop 'rawin-max_up_levs' + endif + +! rupa_obs%jdate=rupa_obs%jyear*10000+rupa_obs%jmonth*100+rupa_obs%jdate + + do n=1,rupa_obs%lp + read(header(ifile)%iun,*,end=20,err=20) & + rupa_obs%p(n),iqfl(1),rupa_obs%z(n),iqfl(2) & + ,rupa_obs%t(n),iqfl(3),rupa_obs%r(n),iqfl(4) + do i=1,4 + rupa_obs%iqflagsp(n,i,1)=iqfl(i)/100 + rupa_obs%iqflagsp(n,i,2)=mod(iqfl(i)/10,10) + rupa_obs%iqflagsp(n,i,3)=mod(iqfl(i),10) + enddo + enddo + + do n=1,rupa_obs%lz + read(header(ifile)%iun,*,end=20,err=20) & + rupa_obs%zz(n),iqfl(1),rupa_obs%fz(n),iqfl(2) & + ,rupa_obs%dz(n),iqfl(3) + do i=1,3 + rupa_obs%iqflagsz(n,i,1)=iqfl(i)/100 + rupa_obs%iqflagsz(n,i,2)=mod(iqfl(i)/10,10) + rupa_obs%iqflagsz(n,i,3)=mod(iqfl(i),10) + enddo + enddo + +endif + +! See if this station is on the "good" list. If we have the list +! and the station isn't on it, go get next obs. + +if(ngood_gdf > 0) then + do ngood=1,ngood_gdf + if(trim(rupa_obs%id) == trim(good_id_gdf(ngood)) ) then + print*,'Upa good obs found:',trim(good_id_gdf(ngood)) + go to 101 + endif + enddo + go to 100 +endif + +101 continue + +! See if this station is on the "bad" list. If so, go get next obs. + +if(nbad_gdf > 0) then + do nbad=1,nbad_gdf + if(trim(rupa_obs%id) == trim(bad_id_gdf(nbad)) ) then + print*,'Upa bad obs found:',trim(bad_id_gdf(nbad)) + go to 100 + endif + enddo +endif + +! If desired, check QC flags and set appropriate values to missing. + +if(qcheck=='yes') then + + do kl=1,rupa_obs%lp + iqf=1 + do iq=1,3 + if((rupa_obs%iqflagsp(kl,1,iq).ne.5 .and. & + rupa_obs%iqflagsp(kl,1,iq).ne.0 .and. & + rupa_obs%iqflagsp(kl,1,iq).ne.8) .or. & + rupa_obs%p(kl).lt.-998.) iqf=0 + enddo + if(iqf.eq.0) rupa_obs%p(kl)=-999. + + iqf=1 + do iq=1,3 + if((rupa_obs%iqflagsp(kl,2,iq).ne.5 .and. & + rupa_obs%iqflagsp(kl,2,iq).ne.0 .and. & + rupa_obs%iqflagsp(kl,2,iq).ne.8) .or. & + rupa_obs%z(kl).lt.-998.) iqf=0 + enddo + if(iqf.eq.0) rupa_obs%z(kl)=-999. + + iqf=1 + do iq=1,3 + if((rupa_obs%iqflagsp(kl,3,iq).ne.5 .and. & + rupa_obs%iqflagsp(kl,3,iq).ne.0 .and. & + rupa_obs%iqflagsp(kl,3,iq).ne.8) .or. & + rupa_obs%t(kl).lt.-998.) iqf=0 + enddo + if(iqf.eq.0) rupa_obs%t(kl)=-999. + + iqf=1 + do iq=1,3 + if((rupa_obs%iqflagsp(kl,4,iq).ne.5 .and. & + rupa_obs%iqflagsp(kl,4,iq).ne.0 .and. & + rupa_obs%iqflagsp(kl,4,iq).ne.8) .or. & + rupa_obs%r(kl).lt.-998.) iqf=0 + enddo + if(iqf.eq.0) rupa_obs%r(kl)=-999. + + enddo + + do kl=1,rupa_obs%lz + iqf=1 + do iq=1,3 + if((rupa_obs%iqflagsz(kl,1,iq).ne.5 .and. & + rupa_obs%iqflagsz(kl,1,iq).ne.0 .and. & + rupa_obs%iqflagsz(kl,1,iq).ne.8) .or. & + rupa_obs%zz(kl).lt.-998.) iqf=0 + enddo + if(iqf.eq.0) rupa_obs%zz(kl)=-999. + + iqf=1 + do iq=1,3 + if((rupa_obs%iqflagsz(kl,2,iq).ne.5 .and. & + rupa_obs%iqflagsz(kl,2,iq).ne.0 .and. & + rupa_obs%iqflagsz(kl,2,iq).ne.8) .or. & + rupa_obs%fz(kl).lt.-998.) iqf=0 + enddo + if(iqf.eq.0) rupa_obs%fz(kl)=-999. + + iqf=1 + do iq=1,3 + if((rupa_obs%iqflagsz(kl,3,iq).ne.5 .and. & + rupa_obs%iqflagsz(kl,3,iq).ne.0 .and. & + rupa_obs%iqflagsz(kl,3,iq).ne.8) .or. & + rupa_obs%dz(kl).lt.-998.) iqf=0 + enddo + if(iqf.eq.0) rupa_obs%dz(kl)=-999. + + enddo + +endif + +10 continue + +return + +20 continue +ierr=1 + +return +END SUBROUTINE gdf_read_upa_obs + +!############################################################################## +Subroutine gdf_upa_get_profile (varn,nlevels,cvar,ctype) + +use gdf_input + +implicit none + +integer :: nlevels +real :: varn(*) +character(len=*) :: cvar,ctype +real :: vv +integer :: ll,k +real, external :: rsatmix +real, external :: tdewpt +real, parameter :: & + rgas = 287. & + , cp = 1004. & + , p00 = 1.e5 & + , rocp = rgas / cp & + , p00i = 1. / p00 + +! Convert units and type of sfc input data + + if(ctype(1:1)=='z') nlevels=rupa_obs%lz + if(ctype(1:1)=='p') nlevels=rupa_obs%lp + ll=len_trim(cvar) + do k=1,nlevels + varn(k)=-999. + + if(cvar(1:ll)=='ue') then + ! earth-relative u in m/s + if(rupa_obs%dz(k) > -998..and.rupa_obs%fz(k)>-998.) & + CALL winduv (rupa_obs%dz(k),rupa_obs%fz(k),varn(k),vv) + elseif(cvar(1:ll)=='ve') then + ! earth-relative v in m/s + if(rupa_obs%dz(k) > -998..and.rupa_obs%fz(k)>-998.) & + CALL winduv (rupa_obs%dz(k),rupa_obs%fz(k),vv,varn(k)) + elseif(cvar(1:ll)=='zz') then + ! height of wind levels in m + if(rupa_obs%zz(k) > -998.) varn(k)=rupa_obs%zz(k) + elseif(cvar(1:ll)=='speed') then + ! wind speed in m/s + if(rupa_obs%fz(k) > -998.) varn(k)=rupa_obs%fz(k) + elseif(cvar(1:ll)=='direction') then + ! wind direction + if(rupa_obs%dz(k) > -998.) varn(k)=rupa_obs%dz(k) + elseif(cvar(1:ll)=='tempc') then + ! temperature in C + if(rupa_obs%t(k)>-998.) varn(k)=rupa_obs%t(k) + elseif(cvar(1:ll)=='tempk') then + ! temperature in K + if(rupa_obs%t(k)>-998.) varn(k)=rupa_obs%t(k)+273.16 + elseif(cvar(1:ll)=='tempf') then + ! temperature in F + if(rupa_obs%t(k)>-998.) varn(k)=rupa_obs%t(k)*1.8+32. + elseif(cvar(1:ll)=='theta') then + ! theta in K + if(rupa_obs%p(k)>-998..and.rupa_obs%t(k)>-998.) & + varn(k)=(rupa_obs%t(k)+273.16)*(p00/rupa_obs%p(k))**rocp + elseif(cvar(1:ll)=='p_pas') then + ! pressure in pascals + if(rupa_obs%p(k)>-998.) varn(k)=rupa_obs%p(k) + elseif(cvar(1:ll)=='pi') then + ! Exner func + if(rupa_obs%p(k)>-998.) varn(k)=cp*(rupa_obs%p(k)*p00i)**rocp + elseif(cvar(1:ll)=='dewptc') then + ! dewpoint in C + if(rupa_obs%r(k)>-998..and.rupa_obs%t(k)>-998..and. & + rupa_obs%p(k)>-998.) & + vv=min(1.,max(0.,rupa_obs%r(k))) & + *rsatmix(rupa_obs%p(k),rupa_obs%t(k)+273.16) + varn(k)=tdewpt(rupa_obs%p(k),vv )-273.16 + elseif(cvar(1:ll)=='dewptf') then + ! dewpoint in F + if(rupa_obs%r(k)>-998..and.rupa_obs%t(k)>-998..and. & + rupa_obs%p(k)>-998.) & + vv=min(1.,max(0.,rupa_obs%r(k))) & + *rsatmix(rupa_obs%p(k),rupa_obs%t(k)+273.16) + varn(k)=(tdewpt(rupa_obs%p(k),vv )-273.16)*1.8+32. + elseif(cvar(1:ll)=='geo') then + ! geopotential in m + if(rupa_obs%z(k)>-998.) varn(k)=rupa_obs%z(k) + elseif(cvar(1:ll)=='mixrat') then + ! vapor in kg/kg + if(rupa_obs%r(k)>-998..and.rupa_obs%t(k)>-998..and. & + rupa_obs%p(k)>-998.) & + varn(k)=min(1.,max(0.,rupa_obs%r(k))) & + *rsatmix(rupa_obs%p(k),rupa_obs%t(k)+273.16) + elseif(cvar(1:ll)=='relhum') then + ! rh in percent + if(rupa_obs%r(k)>-998.) varn(k)=100. & + *min(1.,max(0.,rupa_obs%r(k))) + elseif(cvar(1:ll)=='relfrac') then + ! rh in fraction + if(rupa_obs%r(k)>-998.) varn(k)= & + min(1.,max(0.,rupa_obs%r(k))) + else + print*,'UNKNOWN CONVERT VARIABLE in upa_get_profile !!!!',cvar + stop 'upa_get_profile' + endif + enddo + +return +END SUBROUTINE gdf_upa_get_profile diff --git a/src/6.2.16/include/revu_sub_names.h b/src/6.2.16/include/revu_sub_names.h new file mode 100644 index 0000000..f250100 --- /dev/null +++ b/src/6.2.16/include/revu_sub_names.h @@ -0,0 +1,33 @@ +#if defined (PC_LINUX1) + +/* LINUX APPENDS AN UNDERSCORE TO C ROUTINES */ +/* Other machines/OS might require no-underscore or all capitals */ + +#define rh5f_open rh5f_open_ +#define rh5f_close rh5f_close_ +#define rh5f_create rh5f_create_ +#define rh5l_exists rh5l_exists_ +#define rh5g_create rh5g_create_ +#define rh5g_open rh5g_open_ +#define rh5g_close rh5g_close_ +#define rh5d_open rh5d_open_ +#define rh5d_write rh5d_write_ +#define rh5d_setup_and_write rh5d_setup_and_write_ +#define rh5d_read_get_dims rh5d_read_get_dims_ +#define rh5d_read rh5d_read_ +#define rh5d_close rh5d_close_ +#define rh5t_close rh5t_close_ +#define rh5s_close rh5s_close_ +#define rh5p_close rh5p_close_ +#define rh5a_write_anyscalar rh5a_write_anyscalar_ +#define rh5a_read_anyscalar rh5a_read_anyscalar_ +#define rh5ds_attach_scale rh5ds_attach_scale_ +#define rh5ds_set_scale rh5ds_set_scale_ + +#else + + print*,"You specified machine/OS other than PC_LINUX1" + print*,"You need to modify filelist.F90 to add your machine/OS" + stop + +#endif diff --git a/src/6.2.16/include/sub_gribnames.h b/src/6.2.16/include/sub_gribnames.h new file mode 100644 index 0000000..b440ac8 --- /dev/null +++ b/src/6.2.16/include/sub_gribnames.h @@ -0,0 +1,18 @@ +#if defined(PC_LINUX1) + +/* LINUX APPENDS AN UNDERSCORE TO C ROUTINES */ +/* Other machines/OS might require no-underscore or all capitals */ + +#define grib_query grib_query_ +#define grib_queryc grib_queryc_ +#define grib_queryf grib_queryf_ +#define grib_queryi grib_queryi_ +#define grib_get grib_get_ + +#else + + print*,"You specified machine/OS other than PC_LINUX1" + print*,"You need to modify filelist.F90 to add your machine/OS" + stop + +#endif diff --git a/src/6.2.16/include/utils_sub_names.h b/src/6.2.16/include/utils_sub_names.h new file mode 100644 index 0000000..55c5582 --- /dev/null +++ b/src/6.2.16/include/utils_sub_names.h @@ -0,0 +1,61 @@ +#if defined (PC_LINUX1) + +/* LINUX APPENDS AN UNDERSCORE TO C ROUTINES */ +/* Other machines/OS might require no-underscore or all capitals */ + +#define c_listfile c_listfile_ +#define irsleep irsleep_ +#define par_init_fortran par_init_fortran_ +#define par_init_put par_init_put_ +#define par_init_recv_bcast par_init_recv_bcast_ +#define par_broadcast par_broadcast_ +#define par_allreduce_sum_doubles par_allreduce_sum_doubles_ +#define par_gather_doubles par_gather_doubles_ +#define par_gather_floats par_gather_floats_ +#define par_gather_ints par_gather_ints_ +#define par_send par_send_ +#define par_put_int par_put_int_ +#define par_put_double par_put_double_ +#define par_put_float par_put_float_ +#define par_put_char par_put_char_ +#define par_send_noblock par_send_noblock_ +#define par_get_noblock par_get_noblock_ +#define par_assoc_buff par_assoc_buff_ +#define par_wait par_wait_ +#define par_get_new par_get_new_ +#define par_get_int par_get_int_ +#define par_get_float par_get_float_ +#define par_get_double par_get_double_ +#define par_get_char par_get_char_ +#define par_exit par_exit_ +#define par_pause par_pause_ +#define par_ready par_ready_ +#define fh5f_open fh5f_open_ +#define fh5f_create fh5f_create_ +#define fh5f_close fh5f_close_ +#define fh5d_info fh5d_info_ +#define fh5d_read fh5d_read_ +#define fh5d_write fh5d_write_ +#define fh5_prepare_write fh5_prepare_write_ +#define fh5_write fh5_write_ +#define fh5_close_write fh5_close_write_ + +// Single versus Double Precision variables. +// Specify ifdef statement in include.mk file. +#ifdef RAMS_DOUBLE_PREC +#define HDF5_FLOAT_TYPE H5T_NATIVE_DOUBLE +#define MPI_FLOAT_TYPE MPI_DOUBLE +#define C_FLOAT_TYPE double +#else +#define HDF5_FLOAT_TYPE H5T_NATIVE_FLOAT +#define MPI_FLOAT_TYPE MPI_FLOAT +#define C_FLOAT_TYPE float +#endif + +#else + + print*,"You specified machine/OS other than PC_LINUX1" + print*,"You need to modify filelist.F90 to add your machine/OS" + stop + +#endif diff --git a/src/6.2.16/init/data_init.f90 b/src/6.2.16/init/data_init.f90 new file mode 100644 index 0000000..b7d6e99 --- /dev/null +++ b/src/6.2.16/init/data_init.f90 @@ -0,0 +1,189 @@ +!############################################################################## +Subroutine handle_dustsource (n2,n3,glat,glon,dustfrac,ifm) + +use micphys, only:dustfile,idustloft +use node_mod +use mem_grid + +implicit none + +! This routine will manage reading of the dust source data. +! Have only mainnum do the file I/O. After the file is read by mainnum, +! then broadcast the data to the other nodes. + +integer :: i,j,isource,jsource,n2,n3,ifm,ii,jj,nx_source,ny_source,setnxny +character(len=1) :: dgrid +real, dimension(n2,n3) :: glat,glon,dustfrac +character(len=strl1) :: cname,dname +real :: glat1,glon1,glat2,glon2,sumsource,sumnum +real, allocatable, dimension(:) :: lat_source,lon_source +real, allocatable, dimension(:,:) :: source + +!Standard DUSTFILE name from RAMSIN. This is used when not needing to +!create grid-specific dust file or reading in pre-created grid-specific +!dust file. +cname=dustfile(1:len_trim(dustfile)) + +!For reading in grid specific pre-created dust files with grid number +!added to end of file name for potential nested grids. +if(idustloft==22) then + write(dgrid,'(i1)') ifm + dname='NRL-dustdata-g'//dgrid + cname=dustfile(1:len_trim(dustfile))//dgrid +endif + +setnxny=0 +!Ginoux 1deg dust erodible fraction. +if(idustloft==1) then + nx_source=360 + ny_source=180 + setnxny=1 +!NRL middle east raw data 1's or 0's for dust lofting. +!Reads data, interpolates to RAMS grid, writes out data, and stops. +!This can take a while if RAMS grid is large. +elseif(idustloft==2) then + nx_source=5600 + ny_source=3400 + setnxny=1 +!NRL middle east data precreated, using IDUSTLOFT=2, for grid-specific +!read-in. This option exists since interpolating the raw data to a specific +!grid can take a while, and we do not want to wait every time. +elseif(idustloft==22) then + nx_source=nnxp(ngrid) + ny_source=nnyp(ngrid) + setnxny=1 +endif + +!Allocate if not using IDUSTLOFT=0. +if(setnxny==1) then + allocate(lat_source(ny_source)) + allocate(lon_source(nx_source)) + allocate(source(nx_source,ny_source)) +endif + +! Process mainnum handles the file I/O and reading data file +if ((my_rams_num .eq. mainnum) .or. (nmachs .eq. 1)) then + ! If reading Ginoux(2001) 1-deg dataset + if(idustloft==1) then + open(91,file=cname,form='formatted',status='old') + print*,' ' + print*,'GINOUX 1-DEGREE DUST SOURCE ERODIBLE FRACTION DATA READ IN' + print*,' ' + do i = 1,nx_source + do j = 1,ny_source + read(91,*)lat_source(j),lon_source(i),source(i,j) + enddo + enddo + close(91) + endif + ! If reading NRL Middle-East RAW DATA dust database + if(idustloft==2 .or. idustloft==22) then + open(91,file=cname,form='formatted',status='old') + print*,' ' + print*,'NRL 1-KM MIDDLE EAST DUST SOURCE LOCATION DATA READ IN' + print*,' ' + do i = 1,nx_source + do j = 1,ny_source + read(91,*)lat_source(j),lon_source(i),source(i,j) + enddo + enddo + close(91) + print*,'FINISHED READING NRL 1-KM MIDDLE EAST DUST SOURCE' + endif +endif + +! Process mainnum now has the desired dust data. If there +! are model nodes, broadcast that information to them. +if(setnxny==1 .and. nmachs .gt. 1) then + CALL broadcast_dustsource (source,nx_source,ny_source) +endif + +! Initialize dust fraction on grid +if(print_msg) then + print*,' ' + print*,'ASSIGNING DUST DATABASE TO MODEL GRID' + print*,' ' +endif + +!FOR NRL middle east raw dust data, open file for writing out +!grid-specfic datafile. +if(idustloft==2) then + open(92,file=dname,form='formatted',status='unknown') +endif + +do i = 1,n2 + do j = 1,n3 + + !Default idealized lofting. Every grid cell can potentially + !loft dust if soil conditions and vegetation permit this. + if(idustloft==0) then + dustfrac(i,j) = 1.0 + endif + + !Ginoux(2001) datasource. + !Look for the source to be used in gridcell (i,j) + !Source data is in 1 degree increment + !I-points are incremented westward from -179.5 longitude + !J-points are incremented northward from -89.5 latitude + if(idustloft==1) then + isource = nint(glon(i,j)-(-179.50))+1 + jsource = nint(glat(i,j)-(-089.50))+1 + dustfrac(i,j) = source(isource,jsource) + endif + + !Use NRL 1km Middle East yes/no data source database to create + !grid-specific output to read in for later run. This takes a + !long time since database is very large. Prints grid point + !assignment to standard output. Trim standard output to create a + !grid-specific file to read in. Not set up for nested grids yet. + if(idustloft==2) then + dustfrac(i,j)=0.0 + if(j>1.and.j1.and.iglat1 .and. lat_source(jj)<=glat2 .and. & + lon_source(ii)>glon1 .and. lon_source(ii)<=glon2) then + sumsource=sumsource+source(ii,jj) + sumnum=sumnum+1.0 + endif + enddo + enddo + if(sumnum>0)dustfrac(i,j)=sumsource/sumnum + endif + write(92,*) j,i,dustfrac(i,j) + endif + + !If assigning predetermined NRL database grid-specific setup. + !Assign dustfrac from pre-created NRL 1km Middle East yes/no data + !source database grid-specific file. + if(idustloft==22) then + dustfrac(i,j) = source(i+mi0(ngrid),j+mj0(ngrid)) + endif + + enddo +enddo + +if(idustloft==2) close(92) + +if(setnxny==1) then + deallocate(lat_source,lon_source,source) +endif + +if(idustloft==2 .and. ifm==ngrids)then + if(print_msg) then + print*,"NRL 1km Middle East dust database written to grid-specific" + print*," files with prefix 'NRL-dustdata-g'." + print*," Use new files for new model start." + print*," Set IDUSTLOFT=22 and DUSTFILE=/NRL-dustdata-g" + stop + endif +endif + +return +END SUBROUTINE handle_dustsource diff --git a/src/6.2.16/init/gridset.f90 b/src/6.2.16/init/gridset.f90 new file mode 100644 index 0000000..0a272b7 --- /dev/null +++ b/src/6.2.16/init/gridset.f90 @@ -0,0 +1,290 @@ +!############################################################################## +Subroutine gridset () + +use mem_grid +use rconstants + +implicit none + +integer :: ifm,icm,k,nestza,iinc,icnt,if1,jinc & + ,jcnt,jf,kinc,kcnt,kf,nrat,i,j,kcy,kcw,kk +real :: centx1,centy1,centx,centy,dzr,dsum,dzrcm,dzrfm,tsum +real :: zmnvc(-1:nzpmax+1,maxgrds) + +!Grid set up at model initialization + +! Fill NRZ with the variable nest ratios. + + do ifm = 1,ngrids + do k = 1,nzpmax + nrz(k,ifm) = 1 + enddo + enddo + + nestza = abs(nestz) + + if (nestza > 1 .and. nestza <= ngrids) then + do k = 2,nnzp(1) + nrz(k,nestza) = max(1,nstratz(k)) + enddo + nrz(1,nestza) = nstratz(2) + endif + +! FILL ALL DELTAXN VALUES, AND FIND NINEST AND NJNEST VALUES +! IF SET TO ZERO IN NAMELIST + + deltaxn(1) = deltax + CALL ll_xy (centlat(1),centlon(1),polelat,polelon,centx1,centy1) + xmn(1,1) = centx1 - 0.5 * float(nnxp(1)-2) * deltaxn(1) + ymn(1,1) = centy1 - 0.5 * float(nnyp(1)-2) * deltaxn(1) + if (nnyp(1) == 1) ymn(1,1) = centy1 + + do ifm = 1,ngrids + icm = nxtnest(ifm) + if (icm >= 1) then + deltaxn(ifm) = deltaxn(icm) / float(nstratx(ifm)) + if (ninest(ifm) <= 0 .or. njnest(ifm) <= 0) & + CALL ll_xy (centlat(ifm),centlon(ifm),polelat & + ,polelon,centx,centy) + if (ninest(ifm) <= 0) then + xmn(1,ifm) = centx - 0.5 * float(nnxp(ifm)-2) * deltaxn(ifm) + ninest(ifm) = int((xmn(1,ifm) - xmn(1,icm)) / deltaxn(icm) + 1.5) + endif + xmn(1,ifm) = xmn(1,icm) + deltaxn(icm) * float(ninest(ifm)-1) + if (njnest(ifm) <= 0) then + ymn(1,ifm) = centy - 0.5 * float(nnyp(ifm)-2) * deltaxn(ifm) + njnest(ifm) = int((ymn(1,ifm) - ymn(1,icm)) / deltaxn(icm) + 1.5) + endif + ymn(1,ifm) = ymn(1,icm) + deltaxn(icm) * float(njnest(ifm)-1) + endif + enddo + +! Fill IPM, JPM and KPM arrays with parent grid index values for +! all fine grids. + +do ifm = 2,ngrids + icm = nxtnest(ifm) + if (icm >= 1) then + ipm(1,ifm) = ninest(ifm) + iinc = 1 + icnt = 0 + do if1 = 2,nnxp(ifm) + ipm(if1,ifm) = ipm(if1-1,ifm) + iinc + icnt = icnt + 1 + if (icnt >= nstratx(ifm)) then + icnt = 0 + iinc = 1 + else + iinc = 0 + endif + enddo + + jpm(1,ifm) = njnest(ifm) + jinc = 1 + jcnt = 0 + do jf = 2,nnyp(ifm) + jpm(jf,ifm) = jpm(jf-1,ifm) + jinc + jcnt = jcnt + 1 + if (jcnt >= nstraty(ifm)) then + jcnt = 0 + jinc = 1 + else + jinc = 0 + endif + enddo + + if (nknest(ifm) == 1) then + kpm(1,ifm) = 2 + kinc = 0 + else + kpm(1,ifm) = nknest(ifm) + kinc = 1 + endif + kcnt = 0 + do kf = 2,nnzp(ifm) + kpm(kf,ifm) = kpm(kf-1,ifm) + kinc + nrat = nrz(kpm(kf,ifm),ifm) + kcnt = kcnt + 1 + if (kcnt >= nrat .and. (kf < nnzp(ifm)-1 .or. & + kpm(kf,ifm) < nnzp(icm)-1)) then + kcnt = 0 + kinc = 1 + else + kinc = 0 + endif + enddo + endif +enddo + +! Calculate xmn and ymn for the coarse grid(s) for an initial start. + + do i = 2,nnxp(1) + xmn(i,1) = xmn(i-1,1) + deltaxn(1) + enddo + + do j = 2,nnyp(1) + ymn(j,1) = ymn(j-1,1) + deltaxn(1) + enddo + +! compute xmn and ymn for any required nested grids, and xtn and ytn for +! any required grids. + +do ifm = 1,ngrids + icm = nxtnest(ifm) + if (icm >= 1) then + xmn(1,ifm) = xmn(ninest(ifm),icm) + ymn(1,ifm) = ymn(njnest(ifm),icm) + endif + do i = 2,nnxp(ifm) + xmn(i,ifm) = xmn(i-1,ifm) + deltaxn(ifm) + xtn(i,ifm) = .5 * (xmn(i,ifm) + xmn(i-1,ifm)) + enddo + xtn(1,ifm) = 1.5 * xmn(1,ifm) - .5 * xmn(2,ifm) + + if (jdim == 1) then + do j = 2,nnyp(ifm) + ymn(j,ifm) = ymn(j-1,ifm) + deltaxn(ifm) + ytn(j,ifm) = .5 * (ymn(j,ifm) + ymn(j-1,ifm)) + enddo + ytn(1,ifm) = 1.5 * ymn(1,ifm) - .5 * ymn(2,ifm) + else + ytn(1,ifm) = ymn(1,ifm) + endif +enddo + +! calculate zmn for the coarse grid(s). + +if (deltaz == 0.) then + do k = 1,nnzp(1) + zmn(k,1) = zz(k) + enddo +else + zmn(1,1) = 0. + zmn(2,1) = deltaz + do k = 3,nnzp(1) + dzr = dzrat + if (nestz < -1 ) then + if( k > kpm(2,nestza) .and. & + k <= kpm(nnzp(nestza)-1,nestza) .and. & + nrz(k,nestza) /= nrz(k-1,nestza)) then + if (max(nrz(k,nestza),nrz(k-1,nestza)) == 2) & + dzr = 1.325 ** (nrz(k,nestza) - nrz(k-1,nestza)) + if (max(nrz(k,nestza),nrz(k-1,nestza)) == 3) & + dzr = 1.124 ** (nrz(k,nestza) - nrz(k-1,nestza)) + if (max(nrz(k,nestza),nrz(k-1,nestza)) == 4) & + dzr = 1.066 ** (nrz(k,nestza) - nrz(k-1,nestza)) + if (max(nrz(k,nestza),nrz(k-1,nestza)) == 5) & + dzr = 1.042 ** (nrz(k,nestza) - nrz(k-1,nestza)) + endif + endif + zmn(k,1) = zmn(k-1,1) + min(dzr * (zmn(k-1,1) - zmn(k-2,1)),dzmax) + enddo + deltazn(1) = deltaz +endif + +! fill scratch array znmvc with zmn for coarse grid(s) + +ztop = zmn(nnzp(1)-1,1) + +do k = 1,nnzp(1) + zmnvc(k,1) = zmn(k,1) +enddo +zmnvc(0,1) = -(zmnvc(2,1) - zmnvc(1,1)) ** 2 / (zmnvc(3,1) - zmnvc(2,1)) +zmnvc(-1,1) = zmnvc(0,1) - (zmnvc(1,1) - zmnvc(0,1)) ** 2 & + / (zmnvc(2,1) - zmnvc(1,1)) +zmnvc(nnzp(1)+1,1) = zmnvc(nnzp(1),1) & + + (zmnvc(nnzp(1),1) - zmnvc(nnzp(1)-1,1)) ** 2 & + / (zmnvc(nnzp(1)-1,1) - zmnvc(nnzp(1)-2,1)) + +! get zmn coordinates for all nested grids. + +do ifm = 2,ngrids + icm = nxtnest(ifm) + if (icm >= 1) then + kcy = max(-1,nrz(kpm(2,ifm),ifm)-3) + kcw = 0 !Variable initialized + do k = -1,nnzp(ifm) + 1 + if (k <= 0) then + nrat = nrz(kpm(2,ifm),ifm) + kcw = nknest(ifm)-1 + if (k == -1 .and. nrat == 1) kcw = nknest(ifm) - 2 + elseif (k == nnzp(ifm)+1) then + nrat = nrz(kpm(nnzp(ifm)-1,ifm),ifm) + else + nrat = nrz(kpm(k,ifm),ifm) + endif + kcy = mod(kcy+1,nrat) + + if (kcy == 0) then + if (k >= 1) kcw = kcw + 1 + zmnvc(k,ifm) = zmnvc(kcw,icm) + else + tsum = 0. !Variable initialized + dzrfm = 0. !Variable initialized + dsum = 0. !Variable initialized + if (kcy == 1 .or. k == -1) then + dsum = 0. + dzrcm = sqrt((zmnvc(kcw+2,icm) - zmnvc(kcw+1,icm)) & + * nrz(max(1,kcw),ifm) & + / ((zmnvc(kcw,icm) - zmnvc(kcw-1,icm)) * nrz(kcw+2,ifm))) + dzrfm = dzrcm ** (1. / float(nrat)) + tsum = 0. + do kk = 1,nrat + tsum = tsum + dzrfm ** (kk-1) + enddo + endif + if (k == -1) then + do kk = 1,kcy-1 + dsum = dsum + ((zmnvc(kcw+1,icm)-zmnvc(kcw,icm)) & + / tsum) * dzrfm ** (kk-1) + enddo + endif + dsum = dsum + (zmnvc(kcw+1,icm) - zmnvc(kcw,icm)) & + / tsum * dzrfm ** (kcy-1) + zmnvc(k,ifm) = zmnvc(kcw,icm) + dsum + endif + if (k >= 1 .and. k <= nnzp(ifm)) zmn(k,ifm) = zmnvc(k,ifm) + enddo + endif +enddo + +! compute ztn values for all grids by geometric interpolation. + +do ifm = 1,ngrids + do k = 1,nnzp(ifm) + dzrfm = sqrt(sqrt((zmnvc(k+1,ifm) - zmnvc(k,ifm)) & + / (zmnvc(k-1,ifm) - zmnvc(k-2,ifm)))) + ztn(k,ifm) = zmnvc(k-1,ifm) & + + (zmnvc(k,ifm) - zmnvc(k-1,ifm)) / (1. + dzrfm) + enddo + +! compute other arrays based on the vertical grid. + + do k = 1,nnzp(ifm)-1 + dzmn(k,ifm) = 1. / (ztn(k+1,ifm) - ztn(k,ifm)) + enddo + do k = 2,nnzp(ifm) + dztn(k,ifm) = 1. / (zmn(k,ifm) - zmn(k-1,ifm)) + enddo + do k = 2,nnzp(ifm)-1 + dzm2n(k,ifm) = 1. / (zmn(k+1,ifm) - zmn(k-1,ifm)) + dzt2n(k,ifm) = 1. / (ztn(k+1,ifm) - ztn(k-1,ifm)) + enddo + + dzmn(nnzp(ifm),ifm) = dzmn(nnzp(ifm)-1,ifm) & + * dzmn(nnzp(ifm)-1,ifm) / dzmn(nnzp(ifm)-2,ifm) + dztn(1,ifm) = dztn(2,ifm) * dztn(2,ifm) / dztn(3,ifm) + + dzm2n(1,ifm) = dzm2n(2,ifm) + dzm2n(nnzp(ifm),ifm) = dzm2n(nnzp(ifm)-1,ifm) + dzt2n(1,ifm) = dzt2n(2,ifm) + dzt2n(nnzp(ifm),ifm) = dzt2n(nnzp(ifm)-1,ifm) + + deltazn(ifm) = zmn(2,ifm) - zmn(1,ifm) + +enddo + +CALL cofnest () + +return +END SUBROUTINE gridset diff --git a/src/6.2.16/init/rams_grid.f90 b/src/6.2.16/init/rams_grid.f90 new file mode 100644 index 0000000..3bb5b9a --- /dev/null +++ b/src/6.2.16/init/rams_grid.f90 @@ -0,0 +1,504 @@ +!############################################################################## +Subroutine grid_setup (num) + +use mem_grid +use node_mod + +implicit none + +integer :: num + +integer :: ifm + +if (num == 1) then + + CALL gridinit () + CALL gridset () + +else + + do ifm = 1,ngrids + CALL newgrid (ifm) + + if (ihtran <= 1) then + + CALL polarst (mxp, myp, i0, j0 & + ,grid_g(ifm)%glat (1,1) ,grid_g(ifm)%glon (1,1) & + ,grid_g(ifm)%fmapu (1,1) ,grid_g(ifm)%fmapv (1,1) & + ,grid_g(ifm)%fmapt (1,1) ,grid_g(ifm)%fmapm (1,1) & + ,grid_g(ifm)%fmapui(1,1) ,grid_g(ifm)%fmapvi(1,1) & + ,grid_g(ifm)%fmapti(1,1) ,grid_g(ifm)%fmapmi(1,1) ) + + CALL grdspc (mxp, myp, i0, j0 & + ,grid_g(ifm)%dxu (1,1) ,grid_g(ifm)%dxv (1,1) & + ,grid_g(ifm)%dxt (1,1) ,grid_g(ifm)%dxm (1,1) & + ,grid_g(ifm)%dyu (1,1) ,grid_g(ifm)%dyv (1,1) & + ,grid_g(ifm)%dyt (1,1) ,grid_g(ifm)%dym (1,1) & + ,grid_g(ifm)%fmapu(1,1) ,grid_g(ifm)%fmapv(1,1) & + ,grid_g(ifm)%fmapt(1,1) ,grid_g(ifm)%fmapm(1,1) ) + + else + print*,'Unknown IHTRAN value:',ihtran + stop 'grid_setup: bad IHTRAN' + + endif + + +! Define transformation Jacobians for all grids + + CALL fill_toptuvm (mxp, myp, i0, j0 & + ,grid_g(ifm)%topt (1,1) ,grid_g(ifm)%topu (1,1) & + ,grid_g(ifm)%topv (1,1) ,grid_g(ifm)%topm (1,1)) + + CALL transfm (mxp, myp & + ,grid_g(ifm)%topt(1,1) ,grid_g(ifm)%topu(1,1) & + ,grid_g(ifm)%topv(1,1) ,grid_g(ifm)%topm(1,1) & + ,grid_g(ifm)%rtgt(1,1) ,grid_g(ifm)%rtgu(1,1) & + ,grid_g(ifm)%rtgv(1,1) ,grid_g(ifm)%rtgm(1,1) & + ,grid_g(ifm)%f13u(1,1) ,grid_g(ifm)%f13v(1,1) & + ,grid_g(ifm)%f13t(1,1) ,grid_g(ifm)%f13m(1,1) & + ,grid_g(ifm)%f23u(1,1) ,grid_g(ifm)%f23v(1,1) & + ,grid_g(ifm)%f23t(1,1) ,grid_g(ifm)%f23m(1,1) & + ,grid_g(ifm)%dxu (1,1) ,grid_g(ifm)%dxv (1,1) & + ,grid_g(ifm)%dxt (1,1) ,grid_g(ifm)%dxm (1,1) & + ,grid_g(ifm)%dyu (1,1) ,grid_g(ifm)%dyv (1,1) & + ,grid_g(ifm)%dyt (1,1) ,grid_g(ifm)%dym (1,1) ) + + enddo +endif + +return +END SUBROUTINE grid_setup + +!############################################################################## +Subroutine gridinit () + +use mem_grid + +implicit none + +! +---------------------------------------------------------------- +! ! initialize the domain sizes for all nest levels. +! +---------------------------------------------------------------- +! +! grid sizes: the user has specified all nnxp, nnyp, nnzp, +! nzg, nzs, and npatch. fill other arrays that are a +! func of these. + +jdim = 1 + +if (nnyp(1) == 1) jdim = 0 +do ngrid = 1,ngrids + +! x - direction + + nnx(ngrid) = nnxp(ngrid) - 1 + nnx1(ngrid) = nnxp(ngrid) - 2 + nnx2(ngrid) = nnxp(ngrid) - 3 + +! y - direction + + if (jdim == 1) then + nny(ngrid) = nnyp(ngrid) - 1 + nny1(ngrid) = nnyp(ngrid) - 2 + nny2(ngrid) = nnyp(ngrid) - 3 + else + nny(ngrid) = 1 + nny1(ngrid) = 1 + nny2(ngrid) = 1 + endif + +! z - direction + + nnz(ngrid) = nnzp(ngrid) - 1 + nnz1(ngrid) = nnzp(ngrid) - 2 + +enddo + +do ngrid = 1,ngrids + nnxyzp(ngrid) = nnxp(ngrid) * nnyp(ngrid) * nnzp(ngrid) + nnxysp(ngrid) = nnxp(ngrid) * nnyp(ngrid) * (nzg+nzs+3) * npatch + nnxyp(ngrid) = nnxp(ngrid) * nnyp(ngrid) +enddo + +return +END SUBROUTINE gridinit + +!############################################################################## +Subroutine polarst (n2,n3,ioff,joff,glat,glon,fmapu,fmapv,fmapt,fmapm & + ,fmapui,fmapvi,fmapti,fmapmi) + +use mem_grid +use node_mod +use rconstants + +implicit none + +integer :: n2,n3,ioff,joff +real, dimension(n2,n3) :: glat,glon,fmapu,fmapv,fmapt,fmapm & + ,fmapui,fmapvi,fmapti,fmapmi + +integer :: i,j +real :: c1,xm2,xt2,ym2,yt2 +! Calculates map factors and inverse map factors at u,v,t,m-points and +! geographical lat/lon at t-points for a given polar stereographic grid + +c1 = (2. * erad) ** 2 +do j = 1,n3 + do i = 1,n2 + xm2 = xm(i+ioff) * xm(i+ioff) + xt2 = xt(i+ioff) * xt(i+ioff) + ym2 = ym(j+joff) * ym(j+joff) + yt2 = yt(j+joff) * yt(j+joff) + + fmapt(i,j) = 1. + (xt2 + yt2) / c1 + fmapu(i,j) = 1. + (xm2 + yt2) / c1 + fmapv(i,j) = 1. + (xt2 + ym2) / c1 + fmapm(i,j) = 1. + (xm2 + ym2) / c1 + + fmapui(i,j) = 1.0 / fmapu(i,j) + fmapvi(i,j) = 1.0 / fmapv(i,j) + fmapti(i,j) = 1.0 / fmapt(i,j) + fmapmi(i,j) = 1.0 / fmapm(i,j) + + CALL xy_ll (glat(i,j),glon(i,j),polelat,polelon & + ,xt(i+ioff),yt(j+joff)) + +! write(6,344)i,j,fmapt(i,j),fmapm(i,j),glat(i,j),glon(i,j) +! 344 format('polst:i,j,fmt,fmm,glt,gln',2i4,4e12.3) + + enddo +enddo + +if (ihtran == 0) then + CALL ae0 (n2*n3,fmapu,1.) + CALL ae0 (n2*n3,fmapv,1.) + CALL ae0 (n2*n3,fmapt,1.) + CALL ae0 (n2*n3,fmapm,1.) + CALL ae0 (n2*n3,fmapui,1.) + CALL ae0 (n2*n3,fmapvi,1.) + CALL ae0 (n2*n3,fmapti,1.) + CALL ae0 (n2*n3,fmapmi,1.) +endif + +return +END SUBROUTINE polarst + +!############################################################################## +Subroutine grdspc (n2,n3,ioff,joff,dxu,dxv,dxt,dxm,dyu,dyv,dyt,dym & + ,fmapu,fmapv,fmapt,fmapm) + +use mem_grid + +implicit none + +integer :: n2,n3,ioff,joff +real, dimension(n2,n3) :: dxu,dxv,dxt,dxm,dyu,dyv,dyt,dym & + ,fmapu,fmapv,fmapt,fmapm + +integer :: i,j + +do j = 1,n3 + do i = 1,n2-1 + dxu(i,j) = fmapu(i,j) / (xtn(i+ioff+1,ngrid)-xtn(i+ioff,ngrid)) + dxm(i,j) = fmapm(i,j) / (xtn(i+ioff+1,ngrid)-xtn(i+ioff,ngrid)) + enddo + dxu(n2,j)=dxu(n2-1,j)*fmapu(n2,j)/fmapu(n2-1,j) + dxm(n2,j)=dxm(n2-1,j)*fmapm(n2,j)/fmapm(n2-1,j) + do i = 2,n2 + dxv(i,j)=fmapv(i,j)/(xmn(i+ioff,ngrid)-xmn(i+ioff-1,ngrid)) + dxt(i,j)=fmapt(i,j)/(xmn(i+ioff,ngrid)-xmn(i+ioff-1,ngrid)) + enddo + dxv(1,j)=dxv(2,j)*fmapv(1,j)/fmapv(2,j) + dxt(1,j)=dxt(2,j)*fmapt(1,j)/fmapt(2,j) +enddo + +if (jdim == 1) then + do i = 1,n2 + do j = 1,n3-1 + dyv(i,j)=fmapv(i,j)/(ytn(j+joff+1,ngrid)-ytn(j+joff,ngrid)) + dym(i,j)=fmapm(i,j)/(ytn(j+joff+1,ngrid)-ytn(j+joff,ngrid)) + enddo + dyv(i,n3)=dyv(i,n3-1)*fmapv(i,n3)/fmapv(i,n3-1) + dym(i,n3)=dym(i,n3-1)*fmapm(i,n3)/fmapm(i,n3-1) + do j = 2,n3 + dyu(i,j)=fmapu(i,j)/(ymn(j+joff,ngrid)-ymn(j+joff-1,ngrid)) + dyt(i,j)=fmapt(i,j)/(ymn(j+joff,ngrid)-ymn(j+joff-1,ngrid)) + enddo + dyu(i,1)=dyu(i,2)*fmapu(i,1)/fmapu(i,2) + dyt(i,1)=dyt(i,2)*fmapt(i,1)/fmapt(i,2) + enddo +else + do i=1,n2 + do j=1,n3 + dyu(i,j)=1./deltaxn(ngrid) + dyv(i,j)=1./deltaxn(ngrid) + dyt(i,j)=1./deltaxn(ngrid) + dym(i,j)=1./deltaxn(ngrid) + enddo + enddo +endif + +return +END SUBROUTINE grdspc + +!############################################################################## +Subroutine fill_toptuvm (n2,n3,ioff,joff,topt,topu,topv,topm) + +use mem_grid + +implicit none + +integer :: n2,n3,ioff,joff +real, dimension(n2,n3) :: topt,topu,topv,topm + +integer :: i,j +real :: terdev + +terdev = 0. +do j = 1,n3 + do i = 1,n2-1 + topu(i,j) = topt(i,j) + (topt(i+1,j) - topt(i,j)) & + * (xm(i+ioff) - xt(i+ioff)) / (xt(i+ioff+1) - xt(i+ioff)) + terdev = max(terdev,abs(topt(i,j))) + enddo + topu(n2,j) = topt(n2,j) + (topt(n2,j) - topt(n2-1,j)) & + * (xm(n2+ioff) - xt(n2+ioff)) / (xt(n2+ioff) - xt(n2+ioff-1)) +enddo + +if (terdev < 1.e-6) then + itopo = 0 +else + itopo = 1 +endif + +if (jdim == 1) then + do i = 1,n2 + do j = 1,n3-1 + topv(i,j) = topt(i,j) + (topt(i,j+1) - topt(i,j)) & + * (ym(j+joff) - yt(j+joff)) / (yt(j+joff+1) - yt(j+joff)) + topm(i,j) = topu(i,j) + (topu(i,j+1) - topu(i,j)) & + * (ym(j+joff) - yt(j+joff)) / (yt(j+joff+1) - yt(j+joff)) + enddo + topv(i,n3) = topt(i,n3) + (topt(i,n3) - topt(i,n3-1)) & + * (ym(n3+joff) - yt(n3+joff)) / (yt(n3+joff) - yt(n3+joff-1)) + topm(i,n3) = topu(i,n3) + (topu(i,n3) - topu(i,n3-1)) & + * (ym(n3+joff) - yt(n3+joff)) / (yt(n3+joff) - yt(n3+joff-1)) + enddo +else + do j = 1,n3 + do i = 1,n2 + topv(i,j) = topt(i,j) + topm(i,j) = topu(i,j) + enddo + enddo +endif + +return +END SUBROUTINE fill_toptuvm + +!############################################################################## +Subroutine transfm (n2,n3,topt,topu,topv,topm,rtgt,rtgu,rtgv,rtgm & + ,f13u,f13v,f13t,f13m,f23u,f23v,f23t,f23m & + ,dxu,dxv,dxt,dxm,dyu,dyv,dyt,dym) + +use mem_grid + +implicit none + +integer :: n2,n3 +real, dimension(n2,n3) :: topt,topu,topv,topm,rtgt,rtgu,rtgv,rtgm & + ,f13u,f13v,f13t,f13m,f23u,f23v,f23t,f23m & + ,dxu,dxv,dxt,dxm,dyu,dyv,dyt,dym + +integer :: iztflag=0,i,j,k + +! this routine computes the coordinate transformation constants +! based on the topographical values of TOPT. + +ztop = zmn(nnzp(1)-1,1) +do k = 1,nzp + htn(k,ngrid) = zt(k) / ztop - 1. + hwn(k,ngrid) = zm(k) / ztop - 1. +enddo +do k = 1,nzp + ht2n(k,ngrid) = .5 * htn(k,ngrid) + ht4n(k,ngrid) = .25 * htn(k,ngrid) + hw2n(k,ngrid) = .5 * hwn(k,ngrid) + hw4n(k,ngrid) = .25 * hwn(k,ngrid) +enddo +do k = 1,nzp + ht(k) = htn(k,ngrid) + hw(k) = hwn(k,ngrid) + ht2(k) = ht2n(k,ngrid) + ht4(k) = ht4n(k,ngrid) + hw2(k) = hw2n(k,ngrid) + hw4(k) = hw4n(k,ngrid) +enddo + +do j = 1,n3 + do i = 1,n2 + rtgt(i,j) = 1. - topt(i,j) / ztop + rtgu(i,j) = 1. - topu(i,j) / ztop + rtgv(i,j) = 1. - topv(i,j) / ztop + rtgm(i,j) = 1. - topm(i,j) / ztop + if (topt(i,j) > .5 * ztop) then + print*, 'Terrain height is over half the model domain' + print*, 'height. Model will stop here to prevent this.' + print*, 'ngrid, i, j, topt, ztop = ',ngrid,i,j,topt(i,j),ztop + iztflag = 1 + endif + enddo +enddo + +!Saleeby: Write out some grid navigation info to a file +!open(unit=34,file='topo.rtgt.txt') +!do j = 1,n3 +! do i = 1,n2 +! WRITE(34,100)'ngrid,i,j,ztop,topt,rtgt',ngrid,i,j,ztop,topt(i,j),rtgt(i,j) +! 100 FORMAT(A,3I5,2X,F9.2,2X,F11.3,2X,F9.5) +! enddo +!enddo +!close(34) + +if (iztflag == 1) stop 'topt/ztop' + +do j = 1,n3 + do i = 2,n2 + f13t(i,j) = (topu(i,j) - topu(i-1,j)) * dxt(i,j) / rtgt(i,j) + f13v(i,j) = (topm(i,j) - topm(i-1,j)) * dxv(i,j) / rtgv(i,j) + enddo + do i = 1,n2-1 + f13u(i,j) = (topt(i+1,j) - topt(i,j)) * dxu(i,j) / rtgu(i,j) + f13m(i,j) = (topv(i+1,j) - topv(i,j)) * dxm(i,j) / rtgm(i,j) + enddo + f13t(1,j) = f13u(1,j) + f13v(1,j) = f13m(1,j) + f13u(n2,j) = f13t(n2,j) + f13m(n2,j) = f13v(n2,j) +enddo + +do i = 1,n2 + do j = 2,n3 + f23t(i,j) = (topv(i,j) - topv(i,j-jdim)) * dyt(i,j) / rtgt(i,j) + f23u(i,j) = (topm(i,j) - topm(i,j-jdim)) * dyu(i,j) / rtgu(i,j) + enddo + do j = 1,n3-1 + f23v(i,j) = (topt(i,j+jdim) - topt(i,j)) * dyv(i,j) / rtgv(i,j) + f23m(i,j) = (topu(i,j+jdim) - topu(i,j)) * dym(i,j) / rtgm(i,j) + enddo + if (jdim == 1) then + f23t(i,1) = f23v(i,1) + f23u(i,1) = f23m(i,1) + f23v(i,n3) = f23t(i,n3) + f23m(i,n3) = f23u(i,n3) + endif +enddo + +return +END SUBROUTINE transfm + +!############################################################################## +Subroutine newgrid (ngr) + +use mem_grid +use node_mod + +implicit none + +integer :: ngr,i,j,k + +! +---------------------------------------------------------------- +! ! Fill the single and 1D variables that the rest of the model +! ! uses from the nest arrays and change grid level in the I/O. +! +---------------------------------------------------------------- + +ngrid = ngr + +! grid point references + +! x - direction + +nxp=nnxp(ngr) +nx=nnx(ngr) +nx1=nnx1(ngr) +nx2=nnx2(ngr) +! +! y - direction +! +nyp=nnyp(ngr) +ny=nny(ngr) +ny1=nny1(ngr) +ny2=nny2(ngr) +! +! z - direction +! +nzp=nnzp(ngr) +nzpp=nzp+1 +nz=nnz(ngr) +nz1=nnz1(ngr) + + +nxyzp=nnxyzp(ngr) +nxysp=nnxysp(ngr) +nxyp=nnxyp(ngr) + +! grid spacings + +deltax=deltaxn(ngr) + +do i=1,nxp + xt(i)=xtn(i,ngr) + xm(i)=xmn(i,ngr) +enddo +do j=1,nyp + yt(j)=ytn(j,ngr) + ym(j)=ymn(j,ngr) +enddo + +deltaz=zmn(2,ngr)-zmn(1,ngr) + +do k=1,nzp + zt(k)=ztn(k,ngr) + zm(k)=zmn(k,ngr) + dzm(k)=dzmn(k,ngr) + dzt(k)=dztn(k,ngr) + dzm2(k)=dzm2n(k,ngr) + dzt2(k)=dzt2n(k,ngr) + ht(k)=htn(k,ngr) + ht2(k)=ht2n(k,ngr) + ht4(k)=ht4n(k,ngr) + hw(k)=hwn(k,ngr) + hw2(k)=hw2n(k,ngr) + hw4(k)=hw4n(k,ngr) +enddo + +! option flags + +nsttop=nnsttop(ngr) +nstbot=nnstbot(ngr) + +! timesteps + +dtlt=dtlongn(ngr) +dtlv=2.*dtlt + +! node gridpoint info + +mxp=mmxp(ngr) +myp=mmyp(ngr) +mzp=mmzp(ngr) +ia=mia(ngr) +iz=miz(ngr) +ja=mja(ngr) +jz=mjz(ngr) +i0=mi0(ngr) +j0=mj0(ngr) +ibcon=mibcon(ngr) + +mxyzp=mmxyzp(ngr) +mxysp=mmxysp(ngr) +mxyp=mmxyp(ngr) + +return +END SUBROUTINE newgrid diff --git a/src/6.2.16/init/rdint.f90 b/src/6.2.16/init/rdint.f90 new file mode 100644 index 0000000..fd39438 --- /dev/null +++ b/src/6.2.16/init/rdint.f90 @@ -0,0 +1,409 @@ +!############################################################################## +Subroutine initlz () + +use mem_leaf +use mem_sib +use mem_grid +use mem_tracer +use mem_basic +use mem_micro +use var_tables +use mem_varinit +use mem_cuparm +use mem_oda +use io_params +use micphys +use kpp_parameters, only:IKPP +use node_mod + +implicit none + +!--------------------------------------------------------------------- +! *** This routine is the driver of all initialization packages +!--------------------------------------------------------------------- + +integer :: ifm,icm,ngr,nv,ierr,nsc + +! Initialize aerosol density and vanthoff factors if they are used +! Not used with HUCM-SBM microphysics +if(level<=3)then + if(iaerosol>0 .or. idust>0 .or. isalt>0) CALL aerosol_init () +endif + +if(trim(runtype) == 'INITIAL' .or. & + trim(runtype) == 'ERROR' .or. & + trim(runtype) == 'HISTORY') then + +!---------------------------------------------------------------------- +! Initial startup +!---------------------------------------------------------------------- + + if(print_msg) then + print*,' Initial start:', runtype, initial + print*, '' + endif + + ! Read surface, topo, sst, and ndvi files for all grids. All the files + ! were checked earlier, so they must be correct., + + do ifm = 1,ngrids + CALL top_read (ifm) + enddo + + do ifm = 1,ngrids + CALL sfc_read (ifm) + enddo + + ! Define grid topography, transform, latitude-longitude, and map factor arrays. + ! Note that this call needs to come after the top_read call since grid_setup(2) + ! is setting rtgt which needs topology elevations (topt). + CALL grid_setup (2) + + ! read SST files + CALL sst_read (1,ifm,ierr) + if (ierr /= 0) then + print*,'rdint: Error in sst surface files' + stop 'rdint: sst surface file error' + endif + + ! read NDVI files + CALL ndvi_read (1,ifm,ierr) + if (ierr /= 0) then + print*,'rdint: Error in ndvi surface files' + stop 'rdint: ndvi surface file error' + endif + + ! The following things will be done for INITIAL = 1 or 3... + + if(initial==1 .or. initial==3) then + + ! If horizontally homogeneous initialization, + ! routine INITHH loops through all grids and initializes + ! those for which nxtnest = 0. + + if(initial == 1) then + initorig=1 + if(print_msg) then + print*,'----------------------------------------------------' + print*,'Horizontally-homogeneous-INITIAL start of grid- 1' + print*,'----------------------------------------------------' + print*, '' + endif + CALL inithh () + endif + + ! If "history" initialization or restart, call INITHIS. + ! This will define initial fields and reference state on grid 1 from + ! history file. Other grids will be interpolated as in a INITIAL=1 start. + + if(initial==3) then + if(print_msg) then + print*,'----------------------------------------------------' + endif + if(hrestart == 1) then + CALL history_start () + if(print_msg) print*,'History-RESTART' + endif + if(hrestart == 2) then + CALL inithis (1) + if(print_msg) print*,'History-INITIALIZATION' + endif + if(print_msg) then + print*,'----------------------------------------------------' + print*, '' + endif + endif + + ! On all fine grids, initialize the surface layer characteristics, + ! the 1-D reference state arrays, the 3-D reference state arrays, + ! and the prognostic atmospheric fields by interpolation. + do ifm = 1,ngrids + icm = nxtnest(ifm) + if (icm .ge. 1) then + CALL newgrid(ifm) + if (initial .eq. 1) then + CALL interp_fine_grid(ifm,icm,IFG_HH_INIT) + else + ! initial == 3 (history initialization) + CALL interp_fine_grid(ifm,icm,IFG_HIST_INIT) + endif + endif + enddo + + elseif(initial == 2) then + + ! If "variable initialization", do it all here + initorig=2 + CALL varf_read (0) + + endif + +! Initialize past time level velocity and perturbation Exner func +! on all grids. + + do ifm=1,ngrids + CALL newgrid (ifm) + + ! If using dust source model, initialize where dust can loft + ! Not used with HUCM-SBM microphysics + if(idust==2 .and. level<=3) & + CALL handle_dustsource (mxp,myp,grid_g(ifm)%glat(1,1) & + ,grid_g(ifm)%glon(1,1),micro_g(ifm)%dustfrac(1,1),ifm) + + if(initial==1 .or. initial==2) then + CALL fldinit () + CALL negadj1 () + CALL thermo () + endif + + ! Reset aerosols on history initialization + if((initial==1 .or. initial==2 .or. (initial==3.and.iaerohist==1)) & + .and. level<=3) then + if(iaerosol > 0) CALL init_ccn (mzp,mxp,myp & + ,micro_g(ifm)%cccnp (1,1,1) & + ,micro_g(ifm)%cccmp (1,1,1) & + ,basic_g(ifm)%dn0 (1,1,1),ifm) + if(iaerosol > 0) CALL init_gccn (mzp,mxp,myp & + ,micro_g(ifm)%gccnp (1,1,1) & + ,micro_g(ifm)%gccmp (1,1,1) & + ,basic_g(ifm)%dn0 (1,1,1),ifm) + if(idust > 0) CALL init_dust (mzp,mxp,myp & + ,micro_g(ifm)%md1np (1,1,1) & + ,micro_g(ifm)%md2np (1,1,1) & + ,micro_g(ifm)%md1mp (1,1,1) & + ,micro_g(ifm)%md2mp (1,1,1) & + ,basic_g(ifm)%dn0 (1,1,1),ifm) + if(isalt > 0) CALL init_salt (mzp,mxp,myp & + ,micro_g(ifm)%salt_film_np (1,1,1) & + ,micro_g(ifm)%salt_jet_np (1,1,1) & + ,micro_g(ifm)%salt_spum_np (1,1,1) & + ,micro_g(ifm)%salt_film_mp (1,1,1) & + ,micro_g(ifm)%salt_jet_mp (1,1,1) & + ,micro_g(ifm)%salt_spum_mp (1,1,1),ifm) + if(level == 3) then + if(ipris >= 5 .and. (iifn==1.or.iifn==2)) then + CALL init_ifn (mzp,mxp,myp & + ,micro_g(ifm)%cifnp (1,1,1) & + ,basic_g(ifm)%dn0 (1,1,1),ifm) + endif + endif + endif + + !Initialize tracers + if(initial==1 .or. initial==2 .or. (initial==3.and.itrachist==1)) then + if(itracer > 0) then + do nsc=1,itracer + CALL init_tracer (mzp,mxp,myp,tracer_g(nsc,ifm)%tracerp(1,1,1) & + ,basic_g(ifm)%dn0(1,1,1),ifm,nsc) + enddo + endif + endif + + !Initialize HUCM-SBM BIN microphysics + if (level == 4) then + if (initial==1.or.initial==2) then + CALL micro_init (1) + elseif (initial==3 .and. iaerohist==1) then + CALL micro_init (1) + else + CALL micro_init (0) + endif + endif + + !Initialize some SiB fields (CO2, etc) + if (isfcl == 2 .and. (initial==1.or.initial==2)) then + CALL init_sib1 (mzp,mxp,myp & + ,sib_g(ifm)%rco2p (1,1,1),ifm) + CALL init_sib2 (mzp,mxp,myp,npatch & + ,sib_g(ifm)%rco2p (1,1,1) & + ,sib_g(ifm)%pco2ap (1,1,1) & + ,basic_g(ifm)%pi0 (1,1,1) & + ,basic_g(ifm)%pp (1,1,1)) + endif + + !Initialize bubble perturbation via RAMSIN flags for HH run only + if(initial==1) then + if((ibubble==1.or.ibubble==2.or.ibubble==3) .and. ifm==ibubgrd) then + CALL bubble (mzp,mxp,myp,i0,j0,basic_g(ifm)%thp(1,1,1) & + ,basic_g(ifm)%rtp(1,1,1)) + endif + endif + + !Initialize KPP mixed layer ocean model + if(IKPP > 0) & + CALL MCKPP_INITIALIZE_FIELDS () + + enddo !end do for all grid initialization + +! If initializing LEAF surface fields from history file. + + if((initial==1.or.initial==2).and.ipast_sfc == 1) then + CALL inithis (0) + endif + +! Fill land surface data for all grids that have no standard input files + CALL sfcdata () + +! Initialize various LEAF variables. + + if((initial==1.or.initial==2).and.ipast_sfc == 0) then + CALL geonest_nofile (1,ngrids) + endif + +! Reinitialize certain surface variables to prevent inconsistencies +! that arise from horizontal interpolation related to surface patches. +! This is not invoked if current and history grids match. + if(initial==3 .or. ((initial==1.or.initial==2).and.ipast_sfc==1)) then + if(hrestart == 2) CALL sfcinit_hstart () + endif + +else + + stop 'WRONG RUNTYPE IN INITLZ' + +endif + +! Need this for level=3 and 4 so that we have cfmas and pwmas in +! analysis files for estimating hydrometeor diameters from mass +! and number. Level=3 needs the full init for bulk microphysics. +CALL micro_master () + +! Fill latitude-longitude, map factor, and Coriolis arrays. + +do ifm = 1,ngrids + CALL newgrid (ifm) + CALL fcorio (mxp,myp & + ,basic_g(ifm)%fcoru (1,1) & + ,basic_g(ifm)%fcorv (1,1) & + ,grid_g(ifm)%glat (1,1) ) +enddo + +! If we are doing one-way nesting or varfile nudging, inventory, +! prepare history/varfile files +! and fill past/future nudging arrays for start of simulation + +if(nud_type == 1) then + CALL varf_read (1) +endif + +! Process and read observations for ODA - observational data assimilation + +if (if_oda == 1) CALL oda_read (nnzp(1),nnxp(1),nnyp(1),basic_g(1)%pi0(1,1,1)) + +! Initialization may have changed interior points of variables marked as +! "mpti" variables. If more than one node, update the interior overlap +! regions for these variables. One example are the top[tuvm] and rtg[tuvm] +! variables that describe topography. If initiliazing with observational +! data, it is possible for the neighboring columns between nodes to be +! set to different values thus necessitating the update of the overlap +! regions of those nodes. +if (nmachs .gt. 1) then + do ifm = 1, ngrids + CALL newgrid(ifm) + CALL update_lbc_vgroup(ifm,LBC_ALL_INIT_VARS) + CALL update_lbc_vgroup(ifm,LBC_ALL_VARS) + enddo +endif + +! Print locations of all grids + +CALL gridloc_prt () + +! Save initial fields on history and analysis files +! ------------------------------------------------- +CALL anal_write ('INST') +if(frqlite > 0.) CALL anal_write ('LITE') + +! Save initial fields into the averaged arrays +! ------------------------------------------------- +if(avgtim /= 0.)then + + do ngr=1,ngrids + + do nv=1,num_var(ngr) + if(vtab_r(nv,ngr)%imean == 1) then + CALL atob (vtab_r(nv,ngr)%npts,vtab_r(nv,ngr)%var_p & + ,vtab_r(nv,ngr)%var_m) + endif + enddo + enddo +endif + +! Print the header information and initial fields +! ----------------------------------------------- + +if(print_msg) then + CALL prtopt () +endif + +return +END SUBROUTINE initlz + +!############################################################################## +Subroutine read_nl (file) + +use mem_grid +use io_params + +implicit none + +character(len=*) :: file +real :: tfact +integer :: nf,n + +! Initialize some variables to known values so we can reset them +! after the read if they are not set in the namelist + +frqstate(1:maxgrds)=-1. + +! Read grid point and options information + +open(1,status='OLD',file=file) + +CALL namein (1,'$MODEL_GRIDS') +CALL namein (1,'$MODEL_FILE_INFO') + +CALL namein (1,'$MODEL_OPTIONS') +CALL namein (1,'$MODEL_SOUND') + +! If doing a MAKEVFILE or MAKEHFILE run, read input ISAN namelists +if (trim(runtype) .eq. 'MAKEVFILE' .or. trim(runtype) .eq. 'MAKEHFILE') then + CALL namein_isan (1,'$ISAN_CONTROL') + CALL namein_isan (1,'$ISAN_ISENTROPIC') +endif +close(1) + +! Change some input time specifications into seconds + +if(timeunit == 'd'.or.timeunit == 'D') tfact=86400. +if(timeunit == 'h'.or.timeunit == 'H') tfact=3600. +if(timeunit == 'm'.or.timeunit == 'M') tfact=60. +if(timeunit == 's'.or.timeunit == 'S') tfact=1. + +timmax=timmax*tfact + +! Set some variables if they weren't specified in namelist + +! frqstate: +!---------------------------------- +nf=0 +do n = 1,ngrids + if(iprntstmt>=1)print*,'Analysis file freqency on grid(',n,')',frqstate(n) + if (frqstate(n) > 0.) nf = n +enddo + +if(ioutput > 0) then + if(nf == 0) then + print*,'No good values for frqstate' + stop 'read_nl: frqstate bad' + elseif (nf /= ngrids) then + print*,'Defaulting frqstate for grids ',nf+1,' to ',ngrids & + ,' to coarser grid value:',frqstate(nf) + do n = nf+1 , ngrids + frqstate(n) = frqstate(nf) + enddo + endif +endif + +return +END SUBROUTINE read_nl diff --git a/src/6.2.16/init/rhhi.f90 b/src/6.2.16/init/rhhi.f90 new file mode 100644 index 0000000..07b19d2 --- /dev/null +++ b/src/6.2.16/init/rhhi.f90 @@ -0,0 +1,421 @@ +!############################################################################## +Subroutine inithh () + +!-------------------------------------------------------- +! Initialization of model grid, topography, and fields +! for horizontally homogeneous fields. +!-------------------------------------------------------- + +use mem_basic +use mem_grid +use node_mod + +implicit none + +integer :: ifm,icm + +! Arrange the input sounding. + +CALL arrsnd () + +! For GRID 1, compute the 1-D reference state variables, the 3-D +! reference state variables, the 3-D model fields, the surface +! layer parameters, and the initial soil model fields. + + +do ifm = 1,ngrids + icm = nxtnest(ifm) + if (icm .eq. 0) then + + CALL newgrid (ifm) + CALL refs1d () + + CALL init_3d_refstate (mzp,mxp,myp & + ,basic_g(ifm)%pi0 (1,1,1) ,basic_g(ifm)%dn0 (1,1,1) & + ,basic_g(ifm)%dn0u (1,1,1) ,basic_g(ifm)%dn0v (1,1,1) & + ,basic_g(ifm)%th0 (1,1,1) ,grid_g(ifm)%topt (1,1) & + ,grid_g(ifm)%rtgt (1,1), mibcon(ifm) ) + + CALL flds3d (mzp,mxp,myp,i0,j0 & + ,basic_g(ifm)%uc (1,1,1) ,basic_g(ifm)%vc (1,1,1) & + ,basic_g(ifm)%pi0 (1,1,1) ,basic_g(ifm)%theta (1,1,1) & + ,basic_g(ifm)%thp (1,1,1) ,basic_g(ifm)%rtp (1,1,1) & + ,basic_g(ifm)%pc (1,1,1) ,basic_g(ifm)%rv (1,1,1) & + ,grid_g(ifm)%topt (1,1) ,grid_g(ifm)%topu (1,1) & + ,grid_g(ifm)%topv (1,1) ,grid_g(ifm)%rtgt (1,1) & + ,grid_g(ifm)%rtgu (1,1) ,grid_g(ifm)%rtgv (1,1) ) + + endif +enddo + +return +END SUBROUTINE inithh + +!############################################################################## +Subroutine arrsnd () + +use mem_grid +use ref_sounding +use rconstants +use node_mod + +implicit none + +integer :: nnns,k,kk,kkk +real :: toffset,dir,spd,zold1,zold2,tavg,rtss,wt +real, dimension(:), allocatable :: temp_vec + +! Arrange the input sounding + +if (ps(1) .eq. 0.) then + + do nsndg=1,maxsndg + ps(nsndg) = 0. + ts(nsndg) = 0. + rts(nsndg) = 0. + us(nsndg) = 0. + vs(nsndg) = 0. + enddo + + open(1,file='SOUND_IN',status='old',form='formatted') + do nsndg=1,maxsndg + read(1,*,end=1999) ps(nsndg),ts(nsndg),rts(nsndg),us(nsndg),vs(nsndg) + if(ps(nsndg).le.0.) go to 1999 + enddo +1999 continue + close(1) +endif + +toffset=-1.e30 !Variable initialized +zold2=-1.e30 !Variable initialized + +if(itsflg.eq.0)then + toffset=273.15 +elseif(itsflg.eq.1)then + toffset=0. +endif + +allocate(temp_vec(maxsndg)) +do nsndg=1,maxsndg + nnns=nsndg + if(ps(nsndg).eq.0.)go to 300 + if(us(nsndg).ne.9999.)then + if(iusflg.ne.0)then + dir=us(nsndg) + spd=vs(nsndg) + us(nsndg)=-spd*sin(pi180*dir) + vs(nsndg)=-spd*cos(pi180*dir) + endif + endif + + if(ipsflg.eq.0)then +! pressure given in millibars + ps(nsndg)=ps(nsndg)*1.e2 + elseif(ipsflg.eq.1)then +! pressure is height in meters with PS(1)=surface pressure + +! If sounding moisture is expressed as a mixing ratio (IRTSFLG=2), +! take advantage of knowing virtual temperature effect when +! integrating hydrostatically to get sounding pressure. +! + if(irtsflg.eq.2)then + temp_vec(nsndg)=(1.+.61*rts(nsndg)*1.e-3) + else + temp_vec(nsndg)=1. + endif + if(nsndg.eq.1)then + ps(nsndg)=ps(nsndg)*100. + zold2=0. + else + zold1=zold2 + zold2=ps(nsndg) + if(itsflg.eq.0.or.itsflg.eq.1)then + tavg = 0.5*( (ts(nsndg)+toffset)*temp_vec(nsndg) & + + ts(nsndg-1)*temp_vec(nsndg-1) ) + ps(nsndg)=ps(nsndg-1)*exp(-g*(zold2-zold1)/(rgas*tavg)) + elseif(itsflg.eq.2)then + tavg=(ts(nsndg)*temp_vec(nsndg) & + + ts(nsndg-1)*temp_vec(nsndg-1)*p00k/ps(nsndg-1)**rocp)*.5 + ps(nsndg)=(ps(nsndg-1)**rocp-g*(zold2-zold1)*p00k & + /(cp*tavg))**cpor + endif + endif + else + write(6,131)ipsflg +131 format(' PRESSURE TYPE (IPSFLG=',I2,') NOT IMPLEMENTED') + stop + endif + + if(itsflg.eq.0)then +! Temperature in degrees celsius + ts(nsndg)=ts(nsndg)+273.15 + elseif(itsflg.eq.1)then +! Temperature in degrees kelvin + elseif(itsflg.eq.2)then +! Temperature is potential temperature in kelvin + ts(nsndg)=(ps(nsndg)*p00i)**rocp*ts(nsndg) + else + write(6,124)itsflg +124 format(' TEMPERATURE TYPE (ITSFLG=',I2,') NOT KNOWN') + stop + endif + + if(irtsflg.eq.0)then +! Humidity given as dew point in degrees celsius + CALL mrsl (1,ps(nsndg),rts(nsndg)+273.15,rts(nsndg)) + elseif(irtsflg.eq.1)then +! Humidity given as dew point in degrees kelvin + CALL mrsl (1,ps(nsndg),rts(nsndg),rts(nsndg)) + elseif(irtsflg.eq.2)then +! Humidity given as mixing ratio in g/kg + rts(nsndg)=rts(nsndg)*1.e-3 + elseif(irtsflg.eq.3)then +! Humidity given as relative humidity in percent + CALL mrsl (1,ps(nsndg),ts(nsndg),rtss) + rts(nsndg)=rtss*rts(nsndg)*.01 + elseif(irtsflg.eq.4)then +! Humidity given as dew point depression in kelvin + CALL mrsl (1,ps(nsndg),ts(nsndg)-rts(nsndg),rts(nsndg)) + else + write(6,125) irtsflg +125 format(' HUMIDITY TYPE (IRTSFLG=',I2,') NOT KNOWN') + stop + endif +enddo +300 continue +deallocate(temp_vec) + +nsndg=nnns-1 +do k=1,nsndg + if(us(k).eq.9999.)then + do kk=k,1,-1 + if(us(kk).ne.9999.)go to 17 + enddo +17 continue + do kkk=k,nsndg,1 + if(us(kkk).ne.9999.) go to 18 + enddo +18 continue + wt=(ps(k)-ps(kk))/(ps(kkk)-ps(kk)) + us(k)=us(kk)+wt*(us(kkk)-us(kk)) + vs(k)=vs(kk)+wt*(vs(kkk)-vs(kk)) + endif +enddo + +! compute height levels of input sounding. + +do k=2,nsndg + hs(k)=hs(k-1)-rgas*.5 & + *(ts(k)*(1.+.61*rts(k))+ts(k-1)*(1.+.61*rts(k-1))) & + *(log(ps(k))-log(ps(k-1)))/g +enddo + +if(hs(nsndg).lt.zt(mzp)) then + write(6,1) hs(nsndg),zt(mzp) +1 format(' Input sounding needs to go higher ! !', /, & + ' Sounding top (m) = ',F12.2,' Model top (m) = ',F12.2) + stop 'ARRSND' +endif + +do k=1,nsndg + thds(k)=ts(k)*(p00/ps(k))**rocp +enddo + +!Saleeby(2014): If simulation is 2D and sounding has V-winds, set to zero +if(jdim == 0) then + print*,'Simulation is 2D, but sounding contained V-winds.' + print*,'Will set V-winds to zero in this case.' + do k=1,nsndg + vs(k) = 0.0 + enddo +endif + +return +END SUBROUTINE arrsnd + +!############################################################################## +Subroutine refs1d () + +use mem_grid +use micphys +use ref_sounding +use rconstants +use node_mod + +implicit none +! +--------------------------------------------------------------------- +! \ This routine computes the reference state sounding on the model +! \ sigma-z levels from input sounding defined on pressure levels. +! +--------------------------------------------------------------------- + +integer :: k +real, dimension(:), allocatable :: temp_vec + +if (ztn(mmzp(ngrid),ngrid) .gt. hs(nsndg)) then + print*,' !!! Input sounding is not high enough !!!' + print*,' !!! Sounding height: ',hs(nsndg) + print*,' !!! Model top : ',ztn(mmzp(ngrid),ngrid) + stop 'refs1d' +endif + +allocate(temp_vec(mmzp(ngrid))) + +CALL htint (nsndg,thds,hs,mmzp(ngrid),temp_vec,ztn(1,ngrid)) +CALL htint (nsndg,us,hs,mmzp(ngrid),u01dn(1,ngrid),ztn(1,ngrid)) +CALL htint (nsndg,vs,hs,mmzp(ngrid),v01dn(1,ngrid),ztn(1,ngrid)) + +if (level .ge. 1) then + CALL htint (nsndg,rts,hs,mmzp(ngrid),rt01dn(1,ngrid),ztn(1,ngrid)) +else + do k = 1,mmzp(ngrid) + rt01dn(k,ngrid) = 0. + enddo +endif + +do k = 1,mmzp(ngrid) + th01dn(k,ngrid) = temp_vec(k) * (1. + .61 * rt01dn(k,ngrid)) +enddo +u01dn(1,ngrid) = u01dn(2,ngrid) +v01dn(1,ngrid) = v01dn(2,ngrid) +rt01dn(1,ngrid) = rt01dn(2,ngrid) +th01dn(1,ngrid) = th01dn(2,ngrid) + +pi01dn(1,ngrid) = cp * (ps(1) * p00i) ** rocp & + + g * (hs(1) - ztn(1,ngrid)) & + / (.5 * (th01dn(1,ngrid) + thds(1) * (1. + .61 * rts(1)) ) ) +do k = 2,mmzp(ngrid) + pi01dn(k,ngrid) = pi01dn(k-1,ngrid) - g / (dzmn(k-1,ngrid) & + * .5 * (th01dn(k,ngrid) + th01dn(k-1,ngrid))) +enddo + +do k = 1,mmzp(ngrid) + temp_vec(k) = (pi01dn(k,ngrid) / cp) ** cpor * p00 + dn01dn(k,ngrid) = cp * temp_vec(k) & + / (rgas * th01dn(k,ngrid) * pi01dn(k,ngrid)) +enddo + +deallocate(temp_vec) + +return +END SUBROUTINE refs1d + +!############################################################################## +Subroutine flds3d (n1,n2,n3,i0,j0,uc,vc,pi0,theta,thp,rtp,pc,rv & + ,topt,topu,topv,rtgt,rtgu,rtgv) + +use mem_grid +use ref_sounding +use rconstants +use micphys + +implicit none + +integer :: n1,n2,n3,i0,j0 +real :: pi0(n1,n2,n3),thp(n1,n2,n3),theta(n1,n2,n3) & + ,rtp(n1,n2,n3),pc(n1,n2,n3),rv(n1,n2,n3) & + ,uc(n1,n2,n3),vc(n1,n2,n3),topt(n2,n3),topu(n2,n3),topv(n2,n3) & + ,rtgt(n2,n3),rtgu(n2,n3),rtgv(n2,n3) + +integer :: i,j,k +real :: qlatu,qlonu,qlatv,qlonv,dummy +real, dimension(nzpmax) :: p0,temp,rvls,rc +real, dimension(:), allocatable :: elev_t, elev_u, elev_v, u01_topo, v01_topo, th01_topo + +! +--------------------------------------------------------------------- +! This routine initializes the 3-D velocity and thermodynamic +! fields from the 1-D reference state sounding. +! +--------------------------------------------------------------------- + +allocate(elev_t(n1)) +allocate(elev_u(n1)) +allocate(elev_v(n1)) +allocate(u01_topo(n1)) +allocate(v01_topo(n1)) +allocate(th01_topo(n1)) + +do j=1,n3 + do i=1,n2 + + do k=1,n1 + elev_t(k) = zt(k) * rtgt(i,j) + topt(i,j) + elev_u(k) = zt(k) * rtgu(i,j) + topu(i,j) + elev_v(k) = zt(k) * rtgv(i,j) + topv(i,j) + enddo + + CALL htint (n1, u01dn(1,ngrid),zt,n1,u01_topo,elev_u) + CALL htint (n1, v01dn(1,ngrid),zt,n1,v01_topo,elev_v) + CALL htint (n1,th01dn(1,ngrid),zt,n1,th01_topo,elev_t) + if(level.ge.1) & + CALL htint (n1,rt01dn(1,ngrid),zt,n1,rtp(1,i,j),elev_t) + +! If sounding winds are to be interpreted as eastward (U) and +! northward (V) components, rotate winds from geographic to +! polar stereographic orientation + + if (ihtran .eq. 1) then + + CALL xy_ll (qlatu,qlonu,polelat,polelon & + ,xm(i0+i),yt(j0+j)) + CALL xy_ll (qlatv,qlonv,polelat,polelon & + ,xt(i0+i),ym(j0+j)) + + do k = 1,n1 + CALL uevetouv (uc(k,i,j),dummy,u01_topo(k),v01_topo(k) & + ,qlatu,qlonu,polelat,polelon) + CALL uevetouv (dummy,vc(k,i,j),u01_topo(k),v01_topo(k) & + ,qlatv,qlonv,polelat,polelon) + enddo + else + do k = 1,n1 + uc(k,i,j)=u01_topo(k) + vc(k,i,j)=v01_topo(k) + enddo + endif + + if(level.ge.1)then + do k=1,n1 + thp(k,i,j)=th01_topo(k)/(1.+.61*rtp(k,i,j)) + enddo + else + do k=1,n1 + thp(k,i,j)=th01_topo(k) + enddo + endif + do k=1,n1 + theta(k,i,j)=thp(k,i,j) + pc(k,i,j)=0. + enddo + + if(level.eq.1)then + do k=1,n1 + rv(k,i,j)=rtp(k,i,j) + enddo + endif + + if(level.ge.2)then + do k=1,n1 + p0(k)=(pi0(k,i,j)/cp)**cpor*p00 + temp(k)=pi0(k,i,j)*thp(k,i,j)/cp + enddo + CALL mrsl (n1,p0(1),temp(1),rvls(1)) + do k=1,n1 + rc(k)=max(0.,rtp(k,i,j)-rvls(k)) + thp(k,i,j)=theta(k,i,j) & + /(1.+(aklv*rc(k))/max(temp(k),253.)) + rv(k,i,j)=rtp(k,i,j)-rc(k) + enddo + endif + + enddo +enddo + +deallocate(elev_t) +deallocate(elev_u) +deallocate(elev_v) +deallocate(u01_topo) +deallocate(v01_topo) +deallocate(th01_topo) + +return +END SUBROUTINE flds3d + diff --git a/src/6.2.16/init/rinit.f90 b/src/6.2.16/init/rinit.f90 new file mode 100644 index 0000000..3c65c1d --- /dev/null +++ b/src/6.2.16/init/rinit.f90 @@ -0,0 +1,341 @@ +!############################################################################## +Subroutine fldinit () + +use mem_grid +use mem_basic +use mem_turb +use node_mod + +implicit none + +integer :: initflg + +! finish initializing past time level variables + +CALL atob (mxyzp,basic_g(ngrid)%uc(1,1,1),basic_g(ngrid)%up(1,1,1)) +CALL atob (mxyzp,basic_g(ngrid)%vc(1,1,1),basic_g(ngrid)%vp(1,1,1)) +CALL atob (mxyzp,basic_g(ngrid)%wc(1,1,1),basic_g(ngrid)%wp(1,1,1)) +CALL atob (mxyzp,basic_g(ngrid)%pc(1,1,1),basic_g(ngrid)%pp(1,1,1)) + +! initialize TKE to a minimum default value + +CALL tkeinit (mzp,mxp,myp) + +! set initial lateral boundary conditions for momentum + +CALL dumset (mzp,mxp,myp,15,basic_g(ngrid)%uc(1,1,1),'U') +CALL dumset (mzp,mxp,myp,15,basic_g(ngrid)%vc(1,1,1),'V') +CALL dumset (mzp,mxp,myp,15,basic_g(ngrid)%wc(1,1,1),'W') +CALL dumset (mzp,mxp,myp,15,basic_g(ngrid)%up(1,1,1),'U') +CALL dumset (mzp,mxp,myp,15,basic_g(ngrid)%vp(1,1,1),'V') +CALL dumset (mzp,mxp,myp,15,basic_g(ngrid)%wp(1,1,1),'W') + +return +END SUBROUTINE fldinit + +!############################################################################## +Subroutine gridloc_prt () + +use mem_grid +use node_mod +use rconstants + +implicit none + +real :: gscr(maxgrds,19),centx,centy +integer :: ngr,midx,midy,i,j,ng +real, dimension(:), allocatable :: all_gscr + +! gscr hold lat/lon extent of the current grid +! index value +! 1 sw lat +! 3 se lat +! 5 ne lat +! 7 nw lat +! +! 2 sw lon +! 4 se lon +! 6 ne lon +! 8 nw lon +! + +do ngr=1,ngrids + CALL newgrid (ngr) + ! Find extent of sub domain + gscr(ngr,1)=grid_g(ngr)%glat(1,1) + gscr(ngr,2)=grid_g(ngr)%glon(1,1) + gscr(ngr,3)=grid_g(ngr)%glat(mxp,1) + gscr(ngr,4)=grid_g(ngr)%glon(mxp,1) + gscr(ngr,5)=grid_g(ngr)%glat(mxp,myp) + gscr(ngr,6)=grid_g(ngr)%glon(mxp,myp) + gscr(ngr,7)=grid_g(ngr)%glat(1,myp) + gscr(ngr,8)=grid_g(ngr)%glon(1,myp) + + ! get the full domain corner values + ! args: igrid, sw_val, nw_val, se_val, ne_val + CALL get_fd_corner_vals (ngr,gscr(ngr,1),gscr(ngr,7),gscr(ngr,3) & + ,gscr(ngr,5)) ! lat + CALL get_fd_corner_vals (ngr,gscr(ngr,2),gscr(ngr,8),gscr(ngr,4) & + ,gscr(ngr,6)) ! lon + + midx = (nxp+1)/2 + midy = (nyp+1)/2 + if (nxp/2 .eq. midx) then + centx = xm(nxp/2) + else + centx = xt(midx) + endif + if (nyp/2 .eq. midy) then + centy = ym(nyp/2) + else + centy = yt(midy) + endif + CALL xy_ll (gscr(ngr,9),gscr(ngr,10),polelat,polelon & + ,centx,centy) + + ! Find the inner and outer extents of each grid side + ! + ! Do this by running the calculations on the sub domain. If there + ! was only one node, then the sub domain matches the full domain + ! and we are done. + ! + ! If there were more than one node, then gather all of the calculations + ! onto mainnum. Then mainnum will continue the calculations by taking + ! the min/max of the results coming from all of the other nodes. + ! + ! + ! Compare the sub domain indices against the full domain values in order + ! to only look at lat/lon values when on the full domain boundaries. + ! If a sub domain does not contain part of the full domain boundary, + ! then the initial +/- 1000 value will be left in the gscr entry and will + ! not come into play when mainnum does the min/max of the subdomain results. + ! Otherwise the sections from all of the sub domains that do contain + ! a particluar full domain boundary (E, W, S, or N) will be strung together + ! in a min/max comparison which will result in the correct min/max value + ! being calculated. + ! + gscr(ngr,12)=-1000. + gscr(ngr,13)=1000. + gscr(ngr,14)=1000. + gscr(ngr,15)=-1000. + gscr(ngr,16)=-1000. + gscr(ngr,17)=1000. + gscr(ngr,18)=-1000. + gscr(ngr,19)=1000. + do j=1,myp + do i=1,mxp + if(j+j0.eq.nyp) & + gscr(ngr,12)=max(gscr(ngr,12),grid_g(ngr)%glat(i,j)) ! outer s + if(j+j0.eq.1) & + gscr(ngr,13)=min(gscr(ngr,13),grid_g(ngr)%glat(i,j)) ! outer n + if(i+i0.eq.1) & + gscr(ngr,14)=min(gscr(ngr,14),grid_g(ngr)%glon(i,j)) ! outer w + if(i+i0.eq.nxp) & + gscr(ngr,15)=max(gscr(ngr,15),grid_g(ngr)%glon(i,j)) ! outer e + ! provide a conservative estimate so interpolation and + ! round off error don't result in post process nans + if(j+j0.eq.3) & + gscr(ngr,16)=max(gscr(ngr,16),grid_g(ngr)%glat(i,j)) ! inner s + if(j+j0.eq.nyp-2) & + gscr(ngr,17)=min(gscr(ngr,17),grid_g(ngr)%glat(i,j)) ! inner n + if(i+i0.eq.3) & + gscr(ngr,18)=max(gscr(ngr,18),grid_g(ngr)%glon(i,j)) ! inner w + if(i+i0.eq.nxp-2) & + gscr(ngr,19)=min(gscr(ngr,19),grid_g(ngr)%glon(i,j)) ! inner e + enddo + enddo + + ! At this point gscr values have been set from a sub domain perspective. + ! If the are more than 1 node, then gather the results on mainnum and + ! finish off the min/max calculation. Only main will be printing the + ! report, so there is no need to broadcast the results back to all of + ! the other nodes. + ! + if(nmachs .gt. 1) then + allocate(all_gscr(nmachs)) + + if(my_rams_num .eq. mainnum) then + ! receive from other nodes + CALL par_gather_floats (gscr(ngr,12), all_gscr, 1 & + ,machnum(mainnum)) ! outer s + gscr(ngr,12) = maxval(all_gscr) + CALL par_gather_floats (gscr(ngr,13), all_gscr, 1 & + ,machnum(mainnum)) ! outer n + gscr(ngr,13) = minval(all_gscr) + CALL par_gather_floats (gscr(ngr,14), all_gscr, 1 & + ,machnum(mainnum)) ! outer w + gscr(ngr,14) = minval(all_gscr) + CALL par_gather_floats (gscr(ngr,15), all_gscr, 1 & + ,machnum(mainnum)) ! outer e + gscr(ngr,15) = maxval(all_gscr) + + CALL par_gather_floats (gscr(ngr,16), all_gscr, 1 & + ,machnum(mainnum)) ! inner s + gscr(ngr,16) = maxval(all_gscr) + CALL par_gather_floats (gscr(ngr,17), all_gscr, 1 & + ,machnum(mainnum)) ! inner n + gscr(ngr,17) = minval(all_gscr) + CALL par_gather_floats (gscr(ngr,18), all_gscr, 1 & + ,machnum(mainnum)) ! inner w + gscr(ngr,18) = maxval(all_gscr) + CALL par_gather_floats (gscr(ngr,19), all_gscr, 1 & + ,machnum(mainnum)) ! inner e + gscr(ngr,19) = minval(all_gscr) + else + ! send to mainnum + CALL par_gather_floats (gscr(ngr,12), all_gscr, 1 & + ,machnum(mainnum)) ! outer s + CALL par_gather_floats (gscr(ngr,13), all_gscr, 1 & + ,machnum(mainnum)) ! outer n + CALL par_gather_floats (gscr(ngr,14), all_gscr, 1 & + ,machnum(mainnum)) ! outer w + CALL par_gather_floats (gscr(ngr,15), all_gscr, 1 & + ,machnum(mainnum)) ! outer e + + CALL par_gather_floats (gscr(ngr,16), all_gscr, 1 & + ,machnum(mainnum)) ! inner s + CALL par_gather_floats (gscr(ngr,17), all_gscr, 1 & + ,machnum(mainnum)) ! inner n + CALL par_gather_floats (gscr(ngr,18), all_gscr, 1 & + ,machnum(mainnum)) ! inner w + CALL par_gather_floats (gscr(ngr,19), all_gscr, 1 & + ,machnum(mainnum)) ! inner e + endif + + deallocate(all_gscr) + endif + +ENDDO + +do ng=1,ngrids + if(print_msg) then + write(6,100)ng + write(6,101)gscr(ng,7),gscr(ng,8),gscr(ng,5),gscr(ng,6) + write(6,102)gscr(ng,9),gscr(ng,10) + write(6,105)gscr(ng,1),gscr(ng,2),gscr(ng,3),gscr(ng,4) + print*, ' ' + write(6,106)xtn(1,ng),xtn(nnxp(ng),ng) + write(6,107)ytn(1,ng),ytn(nnyp(ng),ng) + write(6,109)deltaxn(ng) + print*, ' ' + write(6,108)zmn(1,ng),zmn(nnzp(ng)-1,ng) + write(6,110)zmn(2,ng)-zmn(1,ng) + print*, ' ' + write(6,113) gscr(ng,12) + write(6,114) gscr(ng,17) + write(6,115) gscr(ng,14),gscr(ng,15) + write(6,116) gscr(ng,18),gscr(ng,19) + write(6,117) gscr(ng,16) + write(6,118) gscr(ng,13) + endif +enddo +! +100 FORMAT(/,'---------------Location and Dimensions of GRID',I4 & + ,'---------------------------',/) +101 FORMAT(' NW lat/lon NE lat/lon (deg) = ' & + F8.4,',',F9.4,4X,F8.4,',',F9.4) +102 FORMAT(' Center lat/lon (deg) = ' & + ,11X,F8.4,',',F9.4) +105 FORMAT(' SW lat/lon SE lat/lon (deg) = ' & + F8.4,',',F9.4,4X,F8.4,',',F9.4) +106 FORMAT(' West PS coord (km) =',-3PF10.3 & + ,' East PS coord (km) =',-3PF10.3) +107 FORMAT(' South PS coord (km) =',-3PF10.3 & + ,' North PS coord (km) =',-3PF10.3) +109 FORMAT(' Delta-X (m) =',F10.1) +108 FORMAT(' Bottom coord (m) =',F10.1 & + ,' Top coordinate (m) =',F10.1) +110 FORMAT(' Bottom Delta-Z (m) =',F10.1) +!111 format(/,' max N lat=',f9.3,' min S lat=',f9.3 & +! ,/,' min W lon=',f9.3,' max E lon=',f9.3 ) +113 format(' Outer N lat (deg) = ',F8.4) +114 format(' Inner N lat (deg) = ',F8.4) +115 format(' Outer W lon (deg) = ',F9.4,2X,F9.4,' = Outer E lon (deg)') +116 format(' Inner W lon (deg) = ',F9.4,2X,F9.4,' = Inner E lon (deg)') +117 format(' Inner S lat (deg) = ',F8.4) +118 format(' Outer S lat (deg) = ',F8.4,/) +112 format(80('-'),//) + +if(print_msg) write(6,112) + +return +END SUBROUTINE gridloc_prt + +!############################################################################## +Subroutine refs3d (n1,n2,n3,pi0,dn0,dn0u,dn0v,th0,topt,rtgt) + +use mem_grid +use ref_sounding +use rconstants +use node_mod + +implicit none + +integer :: n1,n2,n3 +real :: pi0(n1,n2,n3),dn0(n1,n2,n3),dn0u(n1,n2,n3) & + ,dn0v(n1,n2,n3),th0(n1,n2,n3),topt(n2,n3),rtgt(n2,n3) + +integer :: i,j,k +real :: c1,c2,c3 +real, dimension(:), allocatable :: temp_vec + +! +--------------------------------------------------------------------- +! _ This routine initializes the 3-D reference state arrays from the +! 1-D reference state. +! +--------------------------------------------------------------------- + +allocate(temp_vec(n1)) + +do j=1,n3 + do i=1,n2 + + do k = 1,n1 + temp_vec(k) = zt(k) * rtgt(i,j) + topt(i,j) + enddo + CALL htint (nzp,pi01dn(1,ngrid),zt,nzp,pi0(1,i,j),temp_vec) + CALL htint (nzp,th01dn(1,ngrid),zt,nzp,th0(1,i,j),temp_vec) + c1 = g * 2. * (1. - topt(i,j) / ztop) + + c2 = 1. - cpor + c3 = cp ** c2 + do k = n1-1,1,-1 + pi0(k,i,j) = pi0(k+1,i,j) & + + c1 / ((th0(k,i,j) + th0(k+1,i,j)) * dzm(k)) + enddo + + do k = 1,n1 + dn0(k,i,j) = (c3 * p00) / (rgas * th0(k,i,j) * pi0(k,i,j) ** c2) + enddo + + enddo +enddo + +CALL fill_dn0uv (n1,n2,n3,dn0,dn0u,dn0v) + +deallocate(temp_vec) + +return +END SUBROUTINE refs3d + +!############################################################################## +Subroutine fill_dn0uv (n1,n2,n3,dn0,dn0u,dn0v) + +implicit none + +integer :: n1,n2,n3 +real :: dn0(n1,n2,n3),dn0u(n1,n2,n3),dn0v(n1,n2,n3) +integer :: i,j,k,i1,j1 + +do j = 1,n3 + j1 = min(j+1,n3) + do i = 1,n2 + i1 = min(i+1,n2) + do k = 1,n1 + dn0u(k,i,j) = .5 * (dn0(k,i,j) + dn0(k,i1,j)) + dn0v(k,i,j) = .5 * (dn0(k,i,j) + dn0(k,i,j1)) + enddo + enddo +enddo + +return +END SUBROUTINE fill_dn0uv diff --git a/src/6.2.16/io/anal_extra.f90 b/src/6.2.16/io/anal_extra.f90 new file mode 100644 index 0000000..e200d99 --- /dev/null +++ b/src/6.2.16/io/anal_extra.f90 @@ -0,0 +1,419 @@ +!############################################################################## +Module anal_extra + +implicit none + +integer, parameter :: max_anextra=130 +type anextra + character(len=16) :: name + integer :: idim_type, npointer,ind_comp +end type + +integer :: num_extra_anal,max_extra_anal + +type(anextra), dimension(max_anextra) :: an_extra + +Contains + +!############################################################################## +Subroutine anal_extra_init () + +use micphys, only:level,ipris,igraup,ihail,iifn +use micro_prm, only: iceprocs,iceflag + +implicit none + +!Note that if more extra variables need to be added, you will need to adjust +!the constants in the "if" statement below and then adjust the numbering +!order for the level=4 microphysics variables. You will also need to adjust +!the "case" statements in the routine that follows this one. + +!Note that when naming a new variable, it cannot share the name of a currently +!allocated variable that already exists in the HDF5 output file as a dataset +!name. This will result in a seg fault or error in writing to HDF5 output. + +if (level/=4) then + num_extra_anal=7 +elseif (level == 4) then + num_extra_anal=13 !Warm phase vars and CCN + if (iceprocs == 1 .and. iifn == 2) num_extra_anal=num_extra_anal + 2 !IN + if (ipris >0 .and. ipris <= 3) num_extra_anal=num_extra_anal + 6 !Pristine ice and snow + if (ipris >= 4) num_extra_anal=num_extra_anal+10 !All three ice crystal types + if (igraup > 0) num_extra_anal=num_extra_anal+2 !Graupel + if (ihail > 0) num_extra_anal=num_extra_anal+2 !Hail + if (iceprocs == 1) num_extra_anal=num_extra_anal+2 !Aggregates always included if ice is on +endif + +if (num_extra_anal <= 13) then + max_extra_anal = num_extra_anal +else + max_extra_anal = 31 +endif +an_extra(1)%name='PI'; an_extra(1)%idim_type=3; an_extra(1)%ind_comp=1 +an_extra(2)%name='HKH'; an_extra(2)%idim_type=3; an_extra(2)%ind_comp=2 +an_extra(3)%name='VKH'; an_extra(3)%idim_type=3; an_extra(3)%ind_comp=3 +an_extra(4)%name='DN01'; an_extra(4)%idim_type=3; an_extra(4)%ind_comp=4 !placeholder +an_extra(5)%name='SOIL_WATER1'; an_extra(5)%idim_type=4; an_extra(5)%ind_comp=5 !placeholder +an_extra(6)%name='SFCWATER1'; an_extra(6)%idim_type=5; an_extra(6)%ind_comp=6 !placeholder +an_extra(7)%name='STOM_RESIST1'; an_extra(7)%idim_type=6; an_extra(7)%ind_comp=7 !placeholder +if (level==4) then + an_extra(8)%name='RCP'; an_extra(8)%idim_type=3; an_extra(8)%ind_comp=8 + an_extra(9)%name='RRP'; an_extra(9)%idim_type=3; an_extra(9)%ind_comp=9 + an_extra(10)%name='CCP'; an_extra(10)%idim_type=3; an_extra(10)%ind_comp=10 + an_extra(11)%name='CRP'; an_extra(11)%idim_type=3; an_extra(11)%ind_comp=11 + an_extra(12)%name='CCCMP'; an_extra(12)%idim_type=3; an_extra(12)%ind_comp=12 + an_extra(13)%name='CCCNP'; an_extra(13)%idim_type=3; an_extra(13)%ind_comp=13 + if (iceprocs == 1) then + an_extra(14)%name='RICP'; an_extra(14)%idim_type=3; an_extra(14)%ind_comp=14 + an_extra(15)%name='RIPP'; an_extra(15)%idim_type=3; an_extra(15)%ind_comp=15 + an_extra(16)%name='RIDP'; an_extra(16)%idim_type=3; an_extra(16)%ind_comp=16 + an_extra(17)%name='RAP'; an_extra(17)%idim_type=3; an_extra(17)%ind_comp=17 + an_extra(18)%name='RGP'; an_extra(18)%idim_type=3; an_extra(18)%ind_comp=18 + an_extra(19)%name='RHP'; an_extra(19)%idim_type=3; an_extra(19)%ind_comp=19 + an_extra(20)%name='CICP'; an_extra(20)%idim_type=3; an_extra(20)%ind_comp=20 + an_extra(21)%name='CIPP'; an_extra(21)%idim_type=3; an_extra(21)%ind_comp=21 + an_extra(22)%name='CIDP'; an_extra(22)%idim_type=3; an_extra(22)%ind_comp=22 + an_extra(23)%name='CAP'; an_extra(23)%idim_type=3; an_extra(23)%ind_comp=23 + an_extra(24)%name='CGP'; an_extra(24)%idim_type=3; an_extra(24)%ind_comp=24 + an_extra(25)%name='CHP'; an_extra(25)%idim_type=3; an_extra(25)%ind_comp=25 + an_extra(26)%name='RPP'; an_extra(26)%idim_type=3; an_extra(26)%ind_comp=26 + an_extra(27)%name='RSP'; an_extra(27)%idim_type=3; an_extra(27)%ind_comp=27 + an_extra(28)%name='CPP'; an_extra(28)%idim_type=3; an_extra(28)%ind_comp=28 + an_extra(29)%name='CSP'; an_extra(29)%idim_type=3; an_extra(29)%ind_comp=29 + an_extra(30)%name='RIFNP'; an_extra(30)%idim_type=3; an_extra(30)%ind_comp=30 + an_extra(31)%name='CIFNP'; an_extra(31)%idim_type=3; an_extra(31)%ind_comp=31 + endif +endif + +return +END SUBROUTINE anal_extra_init + +!############################################################################## +Subroutine anal_extra_comp (nv,a,ngr,skip) + +! Compute the "extra" analysis file variables. Note 3-d arrays must be returned +! as (i,j,k) + +use mem_basic +use mem_grid +use mem_turb +use node_mod +use mem_micro +use mem_leaf +use micro_prm, only:nkr, krdrop,krpris +use module_hujisbm, only: xl,xi,xs,xg,xh,xccn,iceflag,iceprocs +use micphys, only:ipris,igraup,ihail,iifn +! Compute the "extra" analysis file variables. Note 3-d arrays must be returned +! as (i,j,k) + +implicit none +integer :: nv,ngr,izero +real :: a(*) +logical :: skip + +skip = .false. +izero = 0 + +select case (an_extra(nv)%ind_comp) + case(1) + ! Total exner function + CALL ancomp_pi (mmxyzp(ngr) & + ,basic_g(ngr)%pp,basic_g(ngr)%pi0,a) + case(2) + ! Horizontal heat eddy diffusivity + CALL ancomp_hkh (mmxyzp(ngr),turb_g(ngr)%hkm & + ,turb_g(ngr)%vkh,basic_g(ngr)%dn0 & + ,idiffk(ngr),xkhkm(ngr),a) + case(3) + ! Vertical heat eddy diffusivity + CALL ancomp_vkh (mmxyzp(ngr),turb_g(ngr)%vkh & + ,basic_g(ngr)%dn0,a) + case(4) + ! Check; 3D variable here + !CALL ancomp_check (mmxyzp(ngr),basic_g(ngr)%dn0,a) + skip = .true. + case(5) + ! Check; add new here 4D leaf + !CALL ancomp_check (mmxyzp(ngr),leaf_g(ngr)%soil_water,a) + skip = .true. + case(6) + ! Check; add new here 5D leaf + !CALL ancomp_check (mmxyzp(ngr),leaf_g(ngr)%sfcwater_mass,a) + skip = .true. + case(7) + ! Check; add new here 6D leaf + !CALL ancomp_check (mmxyzp(ngr),leaf_g(ngr)%stom_resist,a) + skip = .true. + case(8) + ! Total cloud water + CALL sum_bins (micro_g(ngr)%ffcd,a & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),1,krdrop-1,izero) + case(9) + ! Total rain water + CALL sum_bins (micro_g(ngr)%ffcd,a & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),krdrop,nkr,izero) + case(10) + ! Total cloud number concentration + CALL sum_bins_conc (micro_g(ngr)%ffcd,a,xl & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),1,krdrop-1,izero) + case(11) + ! Total rain number concentration + CALL sum_bins_conc (micro_g(ngr)%ffcd,a,xl & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),krdrop,nkr,izero) + case(12) + ! Total CCN mass + CALL sum_bins (micro_g(ngr)%fncn,a & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),1,nkr,izero) + case(13) + ! Total CCN number concentration + CALL sum_bins_conc (micro_g(ngr)%fncn,a,xccn & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),1,nkr,izero) + case(14) + ! Total ice column mass + if (ipris == 1 .or. ipris >= 4) then + CALL sum_bins (micro_g(ngr)%ffic,a & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),1,nkr,izero) + else + skip = .true. + endif + case(15) + ! Total ice plate mass + if (ipris == 2 .or. ipris >=4) then + CALL sum_bins (micro_g(ngr)%ffip,a & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),1,nkr,izero) + else + skip = .true. + endif + case(16) + ! Total ice dendrite mass + if (ipris >= 3) then + CALL sum_bins (micro_g(ngr)%ffid,a & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),1,nkr,izero) + else + skip = .true. + endif + case(17) + ! Total aggregate mass + CALL sum_bins (micro_g(ngr)%ffsn,a & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),1,nkr,izero) + case(18) + ! Total graupel mass + if (igraup > 0) then + CALL sum_bins (micro_g(ngr)%ffgl,a & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),1,nkr,izero) + else + skip = .true. + endif + case(19) + ! Total hail mass + if (ihail > 0) then + CALL sum_bins (micro_g(ngr)%ffhl,a & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),1,nkr,izero) + else + skip = .true. + endif + case(20) + ! Total ice column number + if (ipris == 1 .or. ipris >= 4) then + CALL sum_bins_conc (micro_g(ngr)%ffic,a,xi(:,1) & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),1,nkr,izero) + else + skip = .true. + endif + case(21) + ! Total ice plate number + if (ipris == 2 .or. ipris >=4) then + CALL sum_bins_conc (micro_g(ngr)%ffip,a,xi(:,2) & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),1,nkr,izero) + else + skip = .true. + endif + case(22) + ! Total ice dendrite number + if (ipris >=3) then + CALL sum_bins_conc (micro_g(ngr)%ffid,a,xi(:,3) & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),1,nkr,izero) + else + skip = .true. + endif + case(23) + ! Total aggregate number + CALL sum_bins_conc (micro_g(ngr)%ffsn,a,xs & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),1,nkr,izero) + case(24) + ! Total graupel number + if (igraup > 0) then + CALL sum_bins_conc (micro_g(ngr)%ffgl,a,xg & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),1,nkr,izero) + else + skip = .true. + endif + case(25) + ! Total hail number + if (ihail > 0) then + CALL sum_bins_conc (micro_g(ngr)%ffhl,a,xh & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),1,nkr,izero) + else + skip = .true. + endif + case(26) + ! Total pristine ice mass (Bulk scheme equivalent) + if (ipris > 0) then + izero = 0 ! If 0, then initialize a to 0 and set izero = 1 + if (ipris == 1 .or. ipris >= 4) & + CALL sum_bins (micro_g(ngr)%ffic,a & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),1,krpris(1)-1,izero) + if (ipris == 2 .or. ipris >= 4) & + CALL sum_bins (micro_g(ngr)%ffip,a & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),1,krpris(2)-1,izero) + if (ipris >= 3) & + CALL sum_bins (micro_g(ngr)%ffid,a & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),1,krpris(3)-1,izero) + else + skip = .true. + endif + case(27) + ! Total snow mass (Bulk scheme equivalent) + if (ipris > 0) then + izero = 0 ! If 0, then initialize a to 0 and set izero = 1 + if (ipris == 1 .or. ipris >= 4) & + CALL sum_bins (micro_g(ngr)%ffic,a & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),krpris(1),nkr,izero) + if (ipris == 2 .or. ipris >= 4) & + CALL sum_bins (micro_g(ngr)%ffip,a & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),krpris(2),nkr,izero) + if (ipris >= 3) & + CALL sum_bins (micro_g(ngr)%ffid,a & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),krpris(3),nkr,izero) + else + skip = .true. + endif + case(28) + ! Total pristine ice number (Bulk scheme equivalent) + if (ipris > 0) then + izero = 0 ! If 0, then initialize a to 0 and set izero = 1 + if (ipris == 1 .or. ipris >= 4) & + CALL sum_bins_conc (micro_g(ngr)%ffic,a,xi(:,1) & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),1,krpris(1)-1,izero) + if (ipris == 2 .or. ipris >= 4) & + CALL sum_bins_conc (micro_g(ngr)%ffip,a,xi(:,2) & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),1,krpris(2)-1,izero) + if (ipris >= 3) & + CALL sum_bins_conc (micro_g(ngr)%ffid,a,xi(:,3) & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),1,krpris(3)-1,izero) + else + skip = .true. + endif + case(29) + ! Total snow number (Bulk scheme equivalent) + if (ipris > 0) then + izero = 0 ! If 0, then initialize a to 0 and set izero = 1 + if (ipris == 1 .or. ipris >= 4) & + CALL sum_bins_conc (micro_g(ngr)%ffic,a,xi(:,1) & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),krpris(1),nkr,izero) + if (ipris == 2 .or. ipris >= 4) & + CALL sum_bins_conc (micro_g(ngr)%ffip,a,xi(:,2) & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),krpris(2),nkr,izero) + if (ipris >= 3) & + CALL sum_bins_conc (micro_g(ngr)%ffid,a,xi(:,3) & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),krpris(3),nkr,izero) + else + skip = .true. + endif + case(30) + ! Total IN mass + if (iifn == 2 .and. iceprocs == 1) then + CALL sum_bins (micro_g(ngr)%ffin,a & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),1,nkr,izero) + else + skip = .true. + endif + case(31) + ! Total IN number + if (iifn == 2 .and. iceprocs == 1) then + CALL sum_bins_conc (micro_g(ngr)%ffin,a,xccn & + ,mmzp(ngr),mmxp(ngr),mmyp(ngr),1,nkr,izero) + else + skip = .true. + endif + +end select +return +END SUBROUTINE anal_extra_comp + +!############################################################################## +Subroutine ancomp_check (n1,b,a) + +implicit none + +integer :: n1 +real, dimension(n1) :: a,b +integer :: i + +do i=1,n1 + a(i)=b(i) +enddo + +return +END SUBROUTINE ancomp_check + +!############################################################################## +Subroutine ancomp_pi (n1,b,c,a) + +implicit none + +integer :: n1 +real, dimension(n1) :: a,b,c +integer :: i + +do i=1,n1 + a(i)=b(i)+c(i) +enddo + +return +END SUBROUTINE ancomp_pi + +!############################################################################## +Subroutine ancomp_hkh (n1,hkm,vkh,dn0,idiffk,xkhkm,a) + +implicit none + +integer :: n1,idiffk +real :: xkhkm +real, dimension(n1) :: hkm,vkh,dn0,a +integer :: ind + +! Convert to HKM to HKH (note that VKH is HKH for Deardorff) + +if (idiffk <= 3) then + do ind = 1,n1 + a(ind) = hkm(ind) * xkhkm / dn0(ind) + enddo +elseif (idiffk == 4) then + do ind = 1,n1 + a(ind) = vkh(ind) / dn0(ind) + enddo +endif + +return +END SUBROUTINE ancomp_hkh + +!############################################################################## +Subroutine ancomp_vkh (n1,vkh,dn0,a) + +implicit none + +integer :: n1 +real :: vkh(n1),dn0(n1),a(n1) +integer :: ind + +! Un-density weight VKH + +do ind = 1,n1 + a(ind) = vkh(ind) / dn0(ind) +enddo + +return +END SUBROUTINE ancomp_vkh + +END MODULE anal_extra diff --git a/src/6.2.16/io/anal_write.f90 b/src/6.2.16/io/anal_write.f90 new file mode 100644 index 0000000..2cd3c59 --- /dev/null +++ b/src/6.2.16/io/anal_write.f90 @@ -0,0 +1,451 @@ +!############################################################################## +Subroutine anal_write (vtype) + +use node_mod +use an_header +use var_tables +use mem_basic +use mem_turb +use mem_grid +use io_params +use anal_extra +use hdf5_utils +use micro_prm +use kpp_parameters, only:nkppz + +implicit none + +! This routine writes the chosen variables on the analysis file. + +character(len=*) :: vtype +character(len=strl1) :: anamel,anamelh,command +character(len=2) :: cgrid +character(len=32) :: subaname,varn +character(len=1) :: vnam +logical :: exans,skip +integer, save :: ioaunt=10,ncall_head=0,nvtota=0,nvtotl=0,nvtotm=0 & + ,nvtot +integer :: ngr,nv,nvcnt,lenl,npointer,iwrite,npts,idtype,nvl,litecheck +real :: timeold +logical :: first_call=.true. +character(len=strl1), save :: anameold +real, save :: time_save +integer :: ndims,idims(4) +real, pointer :: v_pointer +integer*8 :: h5_fid +integer :: iphdf5 +type (hdf5_select_type) :: mem_select,file_select +integer, dimension(HDF5_MAX_DIMS) :: file_chunks +real, dimension(:,:,:,:), allocatable :: temp_var1, temp_var2 + +type (head_table), allocatable,save :: aw_table(:) + +if (ioutput == 0) return + +if (nmachs .gt. 1) then + iphdf5 = 1 +else + iphdf5 = 0 +endif + +if (ncall_head == 0) then + ! Get "extra" variable count + CALL anal_extra_init () + + ! Find total number of fields to be written + do ngr=1,ngrids + do nv = 1,num_var(ngr) + if ( vtab_r(nv,ngr)%ianal == 1) nvtota=nvtota+1 + if ( vtab_r(nv,ngr)%ilite == 1) nvtotl=nvtotl+1 + if ( vtab_r(nv,ngr)%imean == 1) nvtotm=nvtotm+1 + enddo + enddo + nvtot=max( nvtota + ngrids*num_extra_anal, nvtotl & + ,nvtotm + ngrids*num_extra_anal) + allocate (aw_table(nvtot)) + ncall_head=1 +endif + +if(print_msg) print '(a,4I6)',' NumVars(anal,extra,lite,mean):' & + ,nvtota,num_extra_anal,nvtotl,nvtotm + +timeold=time +if(vtype == 'MEAN'.or.vtype == 'BOTH') time=min(time,time-avgtim/2.) + + +! Construct header file name + +if(vtype == 'INST') vnam='A' +if(vtype == 'LITE') vnam='L' +if(vtype == 'MEAN') vnam='M' +if(vtype == 'BOTH') vnam='B' +CALL makefnam (anamelh,afilepref,time,iyear1,imonth1,idate1, & + itime1*100,vnam,'head','txt') + +! Loop through each nest + +nvcnt=0 + +do ngr=1,ngrids + + ! If this routine is called, then 1 or more grids will get written. + ! See if this isn't one of them... + + if(vtype == 'INST') then + ! If this routine is called, then 1 or more grids will get written. + ! See if this isn't one of them... + if(mod(time,frqstate(ngr)) > dtlongn(1).and. & + time < timmax - .01*dtlongn(1) .and. & + iflag == 0) cycle + else + ! If it isn't the instantaneous files, then we will be outputting all + ! grids. We would need grid dependent frqmean, etc, and maybe averaging + ! times also to vary the grids for other write types. + endif + + + write(cgrid,'(a1,i1)') 'g',ngr + CALL makefnam (anamel,afilepref,time,iyear1,imonth1,idate1, & + itime1*100,vnam,cgrid,'h5') + + lenl = len_trim(anamel) + + inquire(file=anamel,exist=exans) + if(exans.and.iclobber == 0) then + if(print_msg) then + print*,'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!' + print*,'!!! trying to open file name :' + print*,'!!! ',anamel + print*,'!!! but it already exists. run is ended.' + print*,'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!' + endif + stop 'anal_write' + endif + + if(print_msg) then + print*,'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++' + print*,'+ anal_write: open file:',trim(anamel) + print*,'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++' + endif + CALL shdf5_open (anamel,'W',iphdf5,h5_fid,iclobber) + npointer=0 + +! Loop through the main variable table and write those variables +! with the correct flag set + + do nv = 1,num_var(ngr) + !print*,'rio:',vtab_r(nv,ngr)%name,vtab_r(nv,ngr)%ilite + + iwrite=0 + if(vtype == 'INST' .and. vtab_r(nv,ngr)%ianal == 1) then + iwrite=1 + v_pointer => vtab_r(nv,ngr)%var_p + elseif(vtype == 'LITE' .and. vtab_r(nv,ngr)%ilite == 1) then + iwrite=1 + v_pointer => vtab_r(nv,ngr)%var_p + elseif(vtype == 'MEAN' .and. vtab_r(nv,ngr)%imean == 1 .and. & + vtab_r(nv,ngr)%ianal == 1) then + iwrite=1 + v_pointer => vtab_r(nv,ngr)%var_m + elseif(vtype == 'BOTH' .and. vtab_r(nv,ngr)%ilite == 1 .and. & + vtab_r(nv,ngr)%imean == 1) then + iwrite=1 + v_pointer => vtab_r(nv,ngr)%var_m + endif + + if(iwrite == 1) then + + varn= vtab_r(nv,ngr)%name + if ((iprntstmt>=2) .and. print_msg) then + print'(a25,a10,5x,i5,5x,a20,5x,i5)','anal_write: ' & + ,trim(vtype),nv,trim(varn),max_extra_anal + endif + + ! All cases below in the following if..elseif..else statement + ! will use the following assignment. The different cases just + ! add on extra dims (beyond the first 2) as necessary. + ndims=2 ; idims(1)=mmxp(ngr) ; idims(2)=mmyp(ngr) + + if(vtab_r(nv,ngr)%idim_type == 3) then + ! Rearrange 3-d variables to (i,j,k) + allocate(temp_var1(mmxp(ngr),mmyp(ngr),mmzp(ngr),1)) + CALL rearrange (mmzp(ngr),mmxp(ngr),mmyp(ngr) & + ,v_pointer,temp_var1) + ndims=3 ; idims(3)=mmzp(ngr) + + elseif(vtab_r(nv,ngr)%idim_type == 4) then + ! Rearrange 4-d leaf%soil variables to (i,j,k,ip) + allocate(temp_var1(mmxp(ngr),mmyp(ngr),nzg,npatch)) + CALL rearrange_p (mmxp(ngr),mmyp(ngr),nzg,npatch & + ,v_pointer,temp_var1) + ndims=4 ; idims(3)=nzg ; idims(4)=npatch + + elseif(vtab_r(nv,ngr)%idim_type == 5) then + ! Rearrange 4-d leaf%sfcwater variables to (i,j,k,ip) + allocate(temp_var1(mmxp(ngr),mmyp(ngr),nzs,npatch)) + CALL rearrange_p (mmxp(ngr),mmyp(ngr),nzs,npatch & + ,v_pointer,temp_var1) + ndims=4 ; idims(3)=nzs ; idims(4)=npatch + + elseif(vtab_r(nv,ngr)%idim_type == 6) then + ndims=3 ; idims(3)=npatch + npts=product(idims(1:ndims)) + allocate(temp_var1(npts,1,1,1)) + CALL atob (npts,v_pointer,temp_var1) + + elseif(vtab_r(nv,ngr)%idim_type == 7) then + ! Rearrange 4-d micro bin variables to (i,j,k,kr) + allocate(temp_var1(mmxp(ngr),mmyp(ngr),mmzp(ngr),nkr)) + call rearrange_p(mmxp(ngr),mmyp(ngr),mmzp(ngr),nkr & + ,v_pointer,temp_var1) + ndims=4 ; idims(3)=mmzp(ngr); idims(4)=nkr + + elseif(vtab_r(nv,ngr)%idim_type == 10) then + ! Rearrange 3-d KPP variables to (i,j,k) + allocate(temp_var1(mmxp(ngr),mmyp(ngr),nkppz,1)) + CALL rearrange (nkppz,mmxp(ngr),mmyp(ngr) & + ,v_pointer,temp_var1) + ndims=3 ; idims(3)=nkppz + + else + ! 2D var, dims have already been set before this + ! if..elseif..else statement. + npts=product(idims(1:ndims)) + allocate(temp_var1(npts,1,1,1)) + CALL atob (npts,v_pointer,temp_var1) + endif + + nvcnt=nvcnt+1 + aw_table(nvcnt)%string=varn + aw_table(nvcnt)%npointer=npointer + aw_table(nvcnt)%idim_type=vtab_r(nv,ngr)%idim_type + aw_table(nvcnt)%ngrid=ngr + !Here npts contains number of points for each variable on sub-domains + aw_table(nvcnt)%nvalues=vtab_r(nv,ngr)%npts + !In the header file, output the total grid points for whole domain + if(aw_table(nvcnt)%idim_type==2) & + aw_table(nvcnt)%nvalues=nnxp(ngr)*nnyp(ngr) + if(aw_table(nvcnt)%idim_type==3) & + aw_table(nvcnt)%nvalues=nnxp(ngr)*nnyp(ngr)*nnzp(ngr) + if(aw_table(nvcnt)%idim_type==4) & + aw_table(nvcnt)%nvalues=nnxp(ngr)*nnyp(ngr)*nzg*npatch + if(aw_table(nvcnt)%idim_type==5) & + aw_table(nvcnt)%nvalues=nnxp(ngr)*nnyp(ngr)*nzs*npatch + if(aw_table(nvcnt)%idim_type==6) & + aw_table(nvcnt)%nvalues=nnxp(ngr)*nnyp(ngr)*npatch + if(aw_table(nvcnt)%idim_type==7) & + aw_table(nvcnt)%nvalues=nnxp(ngr)*nnyp(ngr)*nnzp(ngr)*nkr + if(aw_table(nvcnt)%idim_type==10) & + aw_table(nvcnt)%nvalues=nnxp(ngr)*nnyp(ngr)*nkppz + + CALL shdf5_set_hs_select (vtab_r(nv,ngr)%idim_type,'W',ngr & + ,mem_select,file_select,file_chunks) + + CALL shdf5_orec (h5_fid,iphdf5,varn & + ,mem_select,file_select,file_chunks,rvara=temp_var1) + !print*,'done all ',vtype,' ',trim(varn) + + deallocate(temp_var1) + endif + enddo + + ! Now loop through the "extra" variables, putting each in temp_var2... + if(vtype == 'INST' .or. vtype == 'LITE') then + do nv = 1,max_extra_anal + varn=an_extra(nv)%name + if ((iprntstmt>=2) .and. print_msg) then + print'(a25,a10,5x,i5,5x,a20,5x,i5)','anal_write_extra: ' & + ,trim(vtype),nv,trim(varn),max_extra_anal + endif + + !See if the "extra" variables are in the list of LITE variables. + !Only output "extra" variables to LITE files if they are in the list. + if(vtype == 'LITE') then + litecheck=0 + do nvl=1,nlite_vars + if (varn == lite_vars(nvl)) litecheck=1 + enddo + if(litecheck==0)cycle + endif + + idtype = an_extra(nv)%idim_type + select case (idtype) + case(2) + ! 2-d atmos var + allocate(temp_var1(1,mmxp(ngr),mmyp(ngr),1)) + allocate(temp_var2(mmxp(ngr),mmyp(ngr),1,1)) + case(3) + ! 3-d atmos var + allocate(temp_var1(mmzp(ngr),mmxp(ngr),mmyp(ngr),1)) + allocate(temp_var2(mmxp(ngr),mmyp(ngr),mmzp(ngr),1)) + case(4) + ! 4-d soil var + allocate(temp_var1(mmzp(ngr),mmxp(ngr),nzg,npatch)) + allocate(temp_var2(mmxp(ngr),mmyp(ngr),nzg,npatch)) + case(5) + ! 4-d sfcwater var + allocate(temp_var1(mmzp(ngr),mmxp(ngr),nzs,npatch)) + allocate(temp_var2(mmxp(ngr),mmyp(ngr),nzs,npatch)) + case(6) + ! 3-d leaf var + allocate(temp_var1(1,mmxp(ngr),mmyp(ngr),npatch)) + allocate(temp_var2(mmxp(ngr),mmyp(ngr),1,npatch)) + case(7) + ! 3-d var with bin micro + allocate(temp_var1(mmzp(ngr),mmxp(ngr),mmyp(ngr),nkr)) + allocate(temp_var2(mmxp(ngr),mmyp(ngr),mmzp(ngr),nkr)) + case(10) + ! 3-d ocean var + allocate(temp_var1(nkppz,mmxp(ngr),mmyp(ngr),1)) + allocate(temp_var2(mmxp(ngr),mmyp(ngr),nkppz,1)) + endselect + CALL anal_extra_comp (nv,temp_var1,ngr,skip) + + if (.not.skip) then + idims(1)=mmxp(ngr) ; idims(2)=mmyp(ngr) + + if(idtype == 2) then + ndims=2 + npts=product(idims(1:ndims)) + CALL atob (npts,temp_var1,temp_var2) + + elseif(idtype == 3) then + ndims=3 ; idims(3)=mmzp(ngr) + npts=product(idims(1:ndims)) + CALL rearrange (mmzp(ngr),mmxp(ngr),mmyp(ngr) & + ,temp_var1,temp_var2) + + elseif(idtype == 4) then + CALL rearrange_p (mmxp(ngr),mmyp(ngr),nzg,npatch & + ,temp_var1,temp_var2) + ndims=4 ; idims(3)=nzg ; idims(4)=npatch + + elseif(idtype == 5) then + CALL rearrange_p (mmxp(ngr),mmyp(ngr),nzs,npatch & + ,temp_var1,temp_var2) + ndims=4 ; idims(3)=nzs ; idims(4)=npatch + + elseif(idtype == 6) then + ndims=3 ; idims(3)=npatch + npts=product(idims(1:ndims)) + CALL atob (npts,temp_var1,temp_var2) + + elseif(idtype == 7) then + ! Rearrange 4-d micro bin variables to (i,j,k,kr) + CALL rearrange_p(mmxp(ngr),mmyp(ngr),mmzp(ngr),nkr & + ,temp_var1,temp_var2) + + elseif(idtype == 10) then + ndims=3 ; idims(3)=nkppz + npts=product(idims(1:ndims)) + CALL rearrange (nkppz,mmxp(ngr),mmyp(ngr) & + ,temp_var1,temp_var2) + endif + + nvcnt=nvcnt+1 + aw_table(nvcnt)%string=an_extra(nv)%name + aw_table(nvcnt)%npointer=1 ! not needed for hdf + aw_table(nvcnt)%idim_type=idtype + aw_table(nvcnt)%ngrid=ngr + !Here npts contains number of points for each variable on sub-domains + aw_table(nvcnt)%nvalues=npts + !In the header file, output the total grid points for whole domain + if(aw_table(nvcnt)%idim_type==2) & + aw_table(nvcnt)%nvalues=nnxp(ngr)*nnyp(ngr) + if(aw_table(nvcnt)%idim_type==3) & + aw_table(nvcnt)%nvalues=nnxp(ngr)*nnyp(ngr)*nnzp(ngr) + if(aw_table(nvcnt)%idim_type==4) & + aw_table(nvcnt)%nvalues=nnxp(ngr)*nnyp(ngr)*nzg*npatch + if(aw_table(nvcnt)%idim_type==5) & + aw_table(nvcnt)%nvalues=nnxp(ngr)*nnyp(ngr)*nzs*npatch + if(aw_table(nvcnt)%idim_type==6) & + aw_table(nvcnt)%nvalues=nnxp(ngr)*nnyp(ngr)*npatch + if(aw_table(nvcnt)%idim_type==7) & + aw_table(nvcnt)%nvalues=nnxp(ngr)*nnyp(ngr)*nnzp(ngr)*nkr + if(aw_table(nvcnt)%idim_type==10) & + aw_table(nvcnt)%nvalues=nnxp(ngr)*nnyp(ngr)*nkppz + + CALL shdf5_set_hs_select (idtype,'W',ngr & + ,mem_select,file_select,file_chunks) + CALL shdf5_orec (h5_fid,iphdf5,varn & + ,mem_select,file_select,file_chunks,rvara=temp_var2) + !print*,'done xtra ',vtype,' ',trim(varn) + + endif + + deallocate(temp_var1) + deallocate(temp_var2) + enddo + endif + + CALL shdf5_close (h5_fid) + +enddo + +! Write the header information out to the file. Have only +! the mainnum node do this so that you don't have many processors +! trying to write this file at the same time. + +if ((my_rams_num .eq. mainnum) .or. (nmachs .eq. 1)) then + CALL rams_f_open (ioaunt,anamelh,'FORMATTED','REPLACE','WRITE',iclobber) + + write(ioaunt,110) nvcnt + do nv=1,nvcnt + write(ioaunt,120) aw_table(nv)%string & + ,aw_table(nv)%npointer & + ,aw_table(nv)%idim_type & + ,aw_table(nv)%ngrid & + ,aw_table(nv)%nvalues + enddo + +110 format(i6) +120 format(a16,1x,i12,i3,i3,1x,i15) + + CALL commio ('WRITE',ioaunt) + close(ioaunt) +endif + +if(vtype == 'LITE')then + subaname=' Analysis lite write ' +elseif(vtype == 'MEAN')then + subaname=' Averaged analysis write ' +elseif(vtype == 'BOTH')then + subaname=' Averaged analysis lite write ' +else + subaname=' Analysis write ' +endif + +if(print_msg) then + print 12,subaname,time,anamelh +12 format(/,1X,79('*'),/, & + A35,' Time = ',F9.0,/,' Header file name - ',A60 & + ,/,1X,79('*')) +endif + +! Reset the time back to the original +if(vtype == 'MEAN'.or.vtype == 'BOTH') time=timeold + + +! See if previous state file should be deleted. This feature is for writing +! frequent files for checkpointing, but only saving a subset of them. +! DO NOT remove the old state file if IFLAG is set. + +if(frqst_keep > 0. .and. vtype == 'INST') then + if(.not.first_call .and. iflag == 0 .and. & + mod(time_save,frqst_keep) /= 0.) then + command = 'rm -f '//anameold(1:len_trim(anameold)-5)//'*' + if(print_msg) then + print*,'*************************************************' + print*,'* Removing state file with command: ' + print*,'* ',trim(command) + print*,'*************************************************' + endif + CALL usystem (command) + endif + anameold = anamel + time_save = time + first_call = .false. +endif + +return +END SUBROUTINE anal_write diff --git a/src/6.2.16/io/history_start.f90 b/src/6.2.16/io/history_start.f90 new file mode 100644 index 0000000..dc46538 --- /dev/null +++ b/src/6.2.16/io/history_start.f90 @@ -0,0 +1,285 @@ +!############################################################################## +Subroutine history_start () + +! This routine initializes the model from the history file + +use io_params +use mem_grid +use mem_basic +use node_mod +use micro_prm, only:nkr +use kpp_parameters, only:nkppz + +implicit none + +integer :: maxarr,ngr +integer :: ifm,icm + +! Find maximum size of any array on history file. Allocate scratch array of +! this size. + +maxarr=0 +do ngr=1,ngridsh + maxarr=max(maxarr,mmxp(ngr)*mmyp(ngr)*mmzp(ngr) & + ,mmxp(ngr)*mmyp(ngr)*nzg*npatch & + ,mmxp(ngr)*mmyp(ngr)*nzs*npatch & + ,mmxp(ngr)*mmyp(ngr)*mmzp(ngr)*nkr & + ,mmxp(ngr)*mmyp(ngr)*nkppz) +enddo + +! read stuff here + +CALL hist_read (maxarr,trim(hfilin)) + +if(print_msg) print*,'back from read' + +do ifm = 1,ngrids + icm = nxtnest(ifm) + if (icm == 0) then + CALL newgrid (ifm) + CALL refs3d (mzp,mxp,myp & + ,basic_g(ifm)%pi0 (1,1,1),basic_g(ifm)%dn0 (1,1,1) & + ,basic_g(ifm)%dn0u (1,1,1),basic_g(ifm)%dn0v (1,1,1) & + ,basic_g(ifm)%th0 (1,1,1),grid_g(ifm)%topt (1,1) & + ,grid_g(ifm)%rtgt (1,1) ) + endif +enddo + +return +END SUBROUTINE history_start + +!############################################################################## +Subroutine read_distribute_hheader (hnamein) + +use an_header +use mem_grid +use ref_sounding +use node_mod + +implicit none + + character (len=*) :: hnamein + + integer :: ngrids1,nnxp1(maxgrds),nnyp1(maxgrds),nnzp1(maxgrds) & + ,nzg1,nzs1,npatch1,nkppz1 + + integer :: ie,ngr,nv + character(len=2) :: cng + integer, external :: cio_i + integer, external :: cio_f + integer :: iunhd=11 + +! Read the input history header file and collect: +! Environmental sounding +! Simulation time +! Number of grids and grid specs +! In case RAMSIN is specifying more grids +! List of variables contained in the history file +! +! Note that read_distribute_hheader() will set the global variable +! ngridsh which is used in the following loop and in hist_read(). +! read_distribute_hheader() also sets the global variables nvbtab +! and anal_table of which read_hist uses. +! +! Note that read_distribute_hheader() will allocate anal_table, and +! hist_read() will deallocate anal_table. + + ! Have node mainnum read the file then broadcast the data to the other nodes + + if ((my_rams_num .eq. mainnum) .or. (nmachs .eq. 1)) then + + CALL rams_f_open (iunhd,trim(hnamein),'FORMATTED','OLD','READ',0) + + !Get history grid structure info so we can allocate space + ie=cio_i(iunhd,1,'ngrids',ngrids1,1) + ngridsh=ngrids1 + ie=cio_i(iunhd,1,'nnxp',nnxp1,ngrids1) + ie=cio_i(iunhd,1,'nnyp',nnyp1,ngrids1) + ie=cio_i(iunhd,1,'nnzp',nnzp1,ngrids1) + ie=cio_i(iunhd,1,'npatch',npatch1,1) + ie=cio_i(iunhd,1,'nzg',nzg1,1) + ie=cio_i(iunhd,1,'nzs',nzs1,1) + ie=cio_i(iunhd,1,'nkppz',nkppz1,1) + ie=cio_f(iunhd,1,'time',time,1) + + !Flag to determine if we are past first timesetp + ie=cio_i(iunhd,1,'ngbegun',ngbegun,ngrids) + + !Get the sounding state (needed just for standard output) + ie=cio_i(iunhd,1,'iref',iref,1) + ie=cio_i(iunhd,1,'jref',jref,1) + ie=cio_f(iunhd,1,'topref',topref,1) + ie=cio_i(iunhd,1,'nsndg',nsndg,1) + ie=cio_f(iunhd,1,'us',us,nsndg) + ie=cio_f(iunhd,1,'vs',vs,nsndg) + ie=cio_f(iunhd,1,'ts',ts,nsndg) + ie=cio_f(iunhd,1,'thds',thds,nsndg) + ie=cio_f(iunhd,1,'ps',ps,nsndg) + ie=cio_f(iunhd,1,'hs',hs,nsndg) + + !Get original simulation type + ie=cio_i(iunhd,1,'initorig',initorig,1) + + ! Get the 1-d reference state + do ngr=1,ngridsh + write(cng,1) ngr +1 format(i2.2) + ie=cio_f(iunhd,1,'u01dn'//cng,u01dn(1,ngr),mmzp(ngr)) + ie=cio_f(iunhd,1,'v01dn'//cng,v01dn(1,ngr),mmzp(ngr)) + ie=cio_f(iunhd,1,'pi01dn'//cng,pi01dn(1,ngr),mmzp(ngr)) + ie=cio_f(iunhd,1,'th01dn'//cng,th01dn(1,ngr),mmzp(ngr)) + ie=cio_f(iunhd,1,'dn01dn'//cng,dn01dn(1,ngr),mmzp(ngr)) + ie=cio_f(iunhd,1,'rt01dn'//cng,rt01dn(1,ngr),mmzp(ngr)) + enddo + + ! Read variable header info + + rewind(iunhd) + + read(iunhd,*) nvbtab + allocate (anal_table(nvbtab)) + do nv=1,nvbtab + read(iunhd,*) anal_table(nv)%string & + ,anal_table(nv)%npointer & + ,anal_table(nv)%idim_type & + ,anal_table(nv)%ngrid & + ,anal_table(nv)%nvalues + enddo + + close(iunhd) + endif + + ! If more than one node, broadcast the data to the other nodes + if (nmachs .gt. 1) then + CALL broadcast_hist_header (ngrids1,nnxp1,nnyp1,nnzp1,nzg1 & + ,nzs1,nkppz1,npatch1) + endif + +return +END SUBROUTINE read_distribute_hheader + +!############################################################################## +Subroutine hist_read (maxarr,hnamein) + +use an_header +use var_tables +use mem_grid +use hdf5_utils +use node_mod +use micro_prm, only:nkr +use kpp_parameters, only:nkppz + +implicit none + +integer :: maxarr,checkhist +character(len=*) :: hnamein + +integer :: ngr,npts,nc,nv,nvh,ndims,idims(4) +character(len=1) :: cgrid +character(len=strl1) :: hname +real, allocatable :: scr(:) +integer*8 :: h5_fid +integer :: iphdf5 +type (hdf5_select_type) :: mem_select,file_select +integer, dimension(HDF5_MAX_DIMS) :: file_chunks +logical :: exists + +if (nmachs .gt. 1) then + iphdf5 = 1 +else + iphdf5 = 0 +endif + +allocate (scr(maxarr)) + +!Check to see that all history grids are present at this time +checkhist=1 +do ngr=1,ngridsh + write(cgrid,'(i1)') ngr + nc=len_trim(hnamein) + hname=hnamein(1:nc-9)//'-g'//cgrid//'.h5' + inquire(file=hname,exist=exists) + if(.not. exists)then + checkhist=0 + endif +enddo +if(checkhist==0)then + if(print_msg)then + print*,'Not all original grids are present at this time: ',hnamein(1:nc-9) + print*,'Choose a history restart time in which all original' + print*,'simulation grids are available.' + print*,'' + endif + stop +endif + +do ngr=1,ngridsh + + ! Open file + write(cgrid,'(i1)') ngr + nc=len_trim(hnamein) + hname=hnamein(1:nc-9)//'-g'//cgrid//'.h5' + + CALL shdf5_open (hname,'R',iphdf5,h5_fid) + + ! Loop through all variables + varloop: do nvh=1,nvbtab + if(ngr /= anal_table(nvh)%ngrid) cycle varloop + + ! See if variable should be read and stored + do nv = 1,num_var(ngr) + if(anal_table(nvh)%string == vtab_r(nv,ngr)%name) then + ! there is a match on this grid. see if hist flag is set... + if(iprntstmt>=1 .and. print_msg) & + print*,'found: ',trim(anal_table(nvh)%string) + if(vtab_r(nv,ngr)%ianal /= 1) cycle varloop + if(iprntstmt>=1 .and. print_msg) & + print*,'read : ',trim(anal_table(nvh)%string) + + ! We want it...read, maybe rearrange, and store it + + ! call and output variable array names and size in hist file + if(iprntstmt>=1 .and. print_msg) then + CALL shdf5_info (h5_fid,trim(anal_table(nvh)%string),ndims,idims) + print*,'name,ndims,idims: ', trim(anal_table(nvh)%string) + print*,ndims,idims(1:ndims) + endif + + CALL shdf5_set_hs_select (vtab_r(nv,ngr)%idim_type,'R',ngr & + ,mem_select,file_select,file_chunks) + CALL shdf5_irec (h5_fid,iphdf5,trim(anal_table(nvh)%string) & + ,mem_select,file_select,rvara=scr) + + npts = vtab_r(nv,ngr)%npts + + select case(vtab_r(nv,ngr)%idim_type) + case(2,6) ; CALL atob (npts,scr,vtab_r(nv,ngr)%var_p) + case(3) + CALL unarrange (mmzp(ngr),mmxp(ngr),mmyp(ngr) & + ,scr,vtab_r(nv,ngr)%var_p) + case(4) + CALL unarrange_p (mmxp(ngr),mmyp(ngr),nzg,npatch & + ,scr,vtab_r(nv,ngr)%var_p) + case(5) + CALL unarrange_p (mmxp(ngr),mmyp(ngr),nzs,npatch & + ,scr,vtab_r(nv,ngr)%var_p) + case(7) + CALL unarrange_p (mmxp(ngr),mmyp(ngr),mmzp(ngr),nkr & + ,scr,vtab_r(nv,ngr)%var_p) + case(10) + CALL unarrange (nkppz,mmxp(ngr),mmyp(ngr) & + ,scr,vtab_r(nv,ngr)%var_p) + end select + cycle varloop + endif + enddo + enddo varloop + + CALL shdf5_close (h5_fid) + +enddo + +deallocate(scr,anal_table) + +return +END SUBROUTINE hist_read diff --git a/src/6.2.16/io/inithis.f90 b/src/6.2.16/io/inithis.f90 new file mode 100644 index 0000000..4732c9f --- /dev/null +++ b/src/6.2.16/io/inithis.f90 @@ -0,0 +1,913 @@ +!############################################################################## +Subroutine inithis (inithisflg) + +use var_tables +use an_header +use mem_basic +use mem_grid +use ref_sounding +use io_params, only:hfilin +use micphys, only:level +use grid_struct +use mem_leaf, only:nvegpat +use hdf5_utils +use mem_varinit, only:igrid_match +use node_mod +use micro_prm, only:nkr + +implicit none + +integer :: ngrids1,nzg1,nzs1,npatch1,nvegpat1,ierr,ng,nc & + ,ie,maxarr1,maxarr2,ngr,maxx1,maxy1,maxz1,npts,nv,nvh,nzpg1 & + ,iyearh,imonthh,idateh,itimeh,ihtran1,checkhist,inithisflg,goahead +integer, external :: cio_i,cio_f +integer,save :: iunhd=11 +integer, allocatable, dimension(:) :: nnxp1,nnyp1,nnzp1 +real :: time1,ztop1,polelat1,polelon1 +real, allocatable, dimension(:,:) :: xmn1,xtn1,ymn1,ytn1,zmn1,ztn1,topt1 +real, allocatable, dimension(:) :: u01dn1,v01dn1,rt01dn1,th01dn1 & + ,pi01dn1,dn01dn1,scr,scr1 +character(len=strl1) :: hnameinh +character(len=2) :: cng +character(len=1) :: cgrid +logical :: exists + +integer*8 :: h5_fid +integer :: iphdf5 +type (hdf5_select_type) :: mem_select,file_select +integer, dimension(HDF5_MAX_DIMS) :: file_chunks + +type (head_table), allocatable :: hr_table(:) + +type(grid_def), allocatable :: grdefh(:) +type(grid_def), allocatable :: grdefn(:) + +if (nmachs .gt. 1) then + iphdf5 = 1 +else + iphdf5 = 0 +endif + +if(print_msg) print*,'Doing HISTORY FILE INITIALIZATION option.' + +33 format(a30,2i5,3x,a18,i8) +34 format(a,i3,3x,a,i3,a) + +!Get length of history file name +nc=len_trim(hfilin) + +!Make sure new grid start time is the same as history file time +!If doing recycle run or history restart, times below do not need to match. +if(inithisflg==1)then + read(hfilin(nc-14:nc-9),'(i6)') itimeh + read(hfilin(nc-17:nc-16),'(i2)') idateh + read(hfilin(nc-20:nc-19),'(i2)') imonthh + read(hfilin(nc-25:nc-22),'(i4)') iyearh + if(trim(runtype)/='HISTORY')then + if(iyear1 /= iyearh .or. imonth1 /= imonthh .or. & + idate1 /= idateh .or. itime1*100 /= itimeh) then + if(print_msg) then + print*,'' + print*,'Initialization date is not the same as history file date.' + print*,'These need to be equal for consistency.' + print*,'Current init time: ',iyear1,imonth1,idate1,itime1*100 + print*,'History file time: ',iyearh,imonthh,idateh,itimeh + endif + stop + endif + endif +endif + +!Open RAMS history header file +CALL rams_f_open (iunhd,hfilin,'FORMATTED','OLD','READ',0) + +!Get the sounding state (needed just for header file output) +ie=cio_i(iunhd,1,'iref',iref,1) +ie=cio_i(iunhd,1,'jref',jref,1) +ie=cio_f(iunhd,1,'topref',topref,1) +ie=cio_i(iunhd,1,'nsndg',nsndg,1) +ie=cio_f(iunhd,1,'us',us,nsndg) +ie=cio_f(iunhd,1,'vs',vs,nsndg) +ie=cio_f(iunhd,1,'ts',ts,nsndg) +ie=cio_f(iunhd,1,'thds',thds,nsndg) +ie=cio_f(iunhd,1,'ps',ps,nsndg) +ie=cio_f(iunhd,1,'hs',hs,nsndg) + +!Get original simulation type +ie=cio_i(iunhd,1,'initorig',initorig,1) + +!Get grid specs for grid comparison +ie=cio_i(iunhd,1,'ngrids',ngrids1,1) + +allocate (nnxp1(ngrids1),nnyp1(ngrids1),nnzp1(ngrids1)) + +!Get history grid structure info so we can allocate space +ie=cio_i(iunhd,1,'nnxp',nnxp1,ngrids1) +ie=cio_i(iunhd,1,'nnyp',nnyp1,ngrids1) +ie=cio_i(iunhd,1,'nnzp',nnzp1,ngrids1) +ie=cio_i(iunhd,1,'npatch',npatch1,1) +ie=cio_i(iunhd,1,'nvegpat',nvegpat1,1) +ie=cio_i(iunhd,1,'nzg',nzg1,1) +ie=cio_i(iunhd,1,'nzs',nzs1,1) +ie=cio_f(iunhd,1,'time',time1,1) +ie=cio_f(iunhd,1,'ztop',ztop1,1) +ie=cio_f(iunhd,1,'polelat',polelat1,1) +ie=cio_f(iunhd,1,'polelon',polelon1,1) +ie=cio_i(iunhd,1,'ihtran',ihtran1,1) + +!Make sure new grid polelat and polelon match original grid +if(polelat /= polelat1 .or. polelon /= polelon1) then + if(print_msg) then + print*,'The POLELAT and POLELON of the new grid much match original grid.' + print*,'Past POLELAT:',polelat1,' New POLELAT:',polelat + print*,'Past POLELON:',polelon1,' New POLELON:',polelon + endif + stop +endif + +!Make sure new grid top does not exceed old grid top +if(ztop > ztop1) then + if(print_msg) then + print*,'New interpolated grid top higher than past grid top!' + print*,'Cannot interpolate. Extrapolation not recommended.' + print*,'Past top:',ztop1,' New top:',ztop + endif + stop +endif + +!If adding a grid on history restart or history initializing from history +!file that had progressed beyond the first timestep, then set ngbegun to 1. +!If you history initialize from a previous history initialization rathan than +!an original simulations, then the condition below might not be met if +!performing a new history initilization from the time=0 of the previous +!history initialization. This would be a rather odd configuration but would +!force the use of the default first-timestep "filter parameter" "epsu" used +!in the Asselin Filter for acoustic timestep fields. +if(time1 > 0.0) ngbegun(1:ngrids) = 1 + +!Check to make sure surface parameters are the same +if (nzg /= nzg1 .or. nzs /= nzs1 .or. npatch /= npatch1 .or. & + nvegpat /= nvegpat1) then + if(print_msg) then + print*,'LEAF parameters must be same for initial-history start' + print*,'npatch: ',npatch,npatch1 + print*,'nvegpat: ',nvegpat,nvegpat1 + print*,'nzg: ',nzg,nzg1 + print*,'nzs: ',nzs,nzs1 + endif + stop +endif +!Check to make sure grid type is the same +if (ihtran /= ihtran1) then + if(print_msg) then + print*,'GRID TYPE (Cartesian or Polar Stereographic) must be the same' + print*,'between history grid and current grid. May need to consider' + print*,'wind rotation and such if we allow a change.' + endif + stop +endif +!Make sure original simulations type is the same +if (initorig /= 1 .and. initorig /= 2) then + if(print_msg) then + print*,'We do not have info on initial simulation type.' + print*,'Need to know if history was HH or Variable-Init.' + endif + stop +endif + +!Find maximum size of any array on history file. Allocate scratch arrays. +maxarr1=0 +maxarr2=0 +maxx1=maxval(nnxp1(1:ngrids1)) +maxy1=maxval(nnyp1(1:ngrids1)) +maxz1=maxval(nnzp1(1:ngrids1)) +do ngr=1,ngrids1 + maxarr1=max(maxarr1,nnxp1(ngr)*nnyp1(ngr)*nnzp1(ngr)*nkr & + ,nnxp1(ngr)*nnyp1(ngr)*nzg1*npatch1 & + ,nnxp1(ngr)*nnyp1(ngr)*nzs1*npatch1) + maxarr2=max(maxarr2,nnxp1(ngr)*nnyp1(ngr)) +enddo +allocate (scr(maxarr1),scr1(maxarr1)) + +!Allocate and read in grid specifications +allocate(xmn1(maxx1,ngrids1),xtn1(maxx1,ngrids1)) +allocate(ymn1(maxy1,ngrids1),ytn1(maxy1,ngrids1)) +allocate(zmn1(maxz1,ngrids1),ztn1(maxz1,ngrids1)) +do ngr=1,ngrids1 + write(cng,'(i2.2)') ngr + ie=cio_f(iunhd,1,'xmn'//cng,xmn1(1,ngr),nnxp1(ngr)) + ie=cio_f(iunhd,1,'xtn'//cng,xtn1(1,ngr),nnxp1(ngr)) + ie=cio_f(iunhd,1,'ymn'//cng,ymn1(1,ngr),nnyp1(ngr)) + ie=cio_f(iunhd,1,'ytn'//cng,ytn1(1,ngr),nnyp1(ngr)) + ie=cio_f(iunhd,1,'zmn'//cng,zmn1(1,ngr),nnzp1(ngr)) + ie=cio_f(iunhd,1,'ztn'//cng,ztn1(1,ngr),nnzp1(ngr)) +enddo + +!Read variable header info +rewind(iunhd) + +!Top of header file. Total number of variables on all grids. +read(iunhd,*) nvbtab +!Allocate space for header file variable information +allocate (hr_table(nvbtab)) +!Reader info on each variables in header file. +!(ex. Name IfAPointer Dimension Grid #GridPoints) +!(ex. UP 0 3 1 49000) +do nv=1,nvbtab + read(iunhd,*) & + hr_table(nv)%string & + ,hr_table(nv)%npointer & + ,hr_table(nv)%idim_type & + ,hr_table(nv)%ngrid & + ,hr_table(nv)%nvalues +enddo + +!Check to see that all history grids are present at this time +checkhist=1 +do ngr=1,ngrids1 + write(cgrid,'(i1)') ngr + hnameinh=hfilin(1:nc-9)//'-g'//cgrid//'.h5' + inquire(file=hnameinh,exist=exists) + if(.not. exists)then + checkhist=0 + endif +enddo +if(checkhist==0)then + if(print_msg) then + print*,'Not all original grids are present at this time: ',hfilin(1:nc-9) + print*,'Choose a history initialization time in which all original' + print*,'simulation grids are available.' + print*,'' + endif + stop +endif + +!Allocate history topography and get TOPT +allocate (topt1(maxarr2,ngrids1)) +do ngr=1,ngrids1 + write(cgrid,'(i1)') ngr + hnameinh=hfilin(1:nc-9)//'-g'//cgrid//'.h5' + CALL update_for_hist_grid (1,ngrids1,nnzp1,nnxp1,nnyp1,nzg1,nzs1,npatch1) + if (nmachs .gt. 1) then + iphdf5 = 1 + else + iphdf5 = 0 + endif + CALL shdf5_open (hnameinh,'R',iphdf5,h5_fid) + CALL shdf5_set_hs_select (2,'R',ngr & + ,mem_select,file_select,file_chunks) + CALL shdf5_irec (h5_fid,iphdf5,'TOPT' & + ,mem_select,file_select,rvara=topt1(1,ngr)) + CALL shdf5_close (h5_fid) + CALL update_for_hist_grid (2,ngrids1,nnzp1,nnxp1,nnyp1,nzg1,nzs1,npatch1) +enddo + +!****************************************************************************** +!********* START CHECK GRID MATCHING ****************************************** +!****************************************************************************** +! Set a flag array (for each grid on the history file) to determine: +! = 1 = This grid is identical to a current grid +! = 0 = This grid is different. + +igrid_match(1:maxgrds,1:maxgrds)=0 + +if(print_msg) then + print*,'###################################################################' + print*,'# History Grids:',ngrids1 + print*,'# Current Grids:',ngrids +endif + +!Allocate grid structures +allocate (grdefn(ngrids)) +allocate (grdefh(ngrids1)) + +!Define the History Grid +do ngr=1,ngrids1 + CALL alloc_grid_def ( grdefh(ngr),nnxp1(ngr),nnyp1(ngr),nnzp1(ngr) ) + CALL fill_grid_def ( grdefh(ngr),nnxp1(ngr),nnyp1(ngr),nnzp1(ngr) & + ,nzg1,nzs1,npatch1,nvegpat1,polelat1,polelon1 & + ,xtn1(1,ngr),xmn1(1,ngr),ytn1(1,ngr),ymn1(1,ngr) & + ,ztn1(1,ngr),zmn1(1,ngr),topt1(1,ngr) ) +enddo +!Define the Current Initial Grid +do ngr=1,ngrids + CALL alloc_grid_def ( grdefn(ngr),mmxp(ngr),mmyp(ngr),mmzp(ngr) ) + CALL fill_grid_def ( grdefn(ngr),mmxp(ngr),mmyp(ngr),mmzp(ngr) & + ,nzg,nzs,npatch,nvegpat,polelat,polelon & + ,xtn(1,ngr),xmn(1,ngr),ytn(1,ngr),ymn(1,ngr) & + ,ztn(1,ngr),zmn(1,ngr),grid_g(ngr)%topt ) +enddo + +! See if the history grids match any of the new grids...assuming 1:1 grid number +! correspondence for now +do ngr=1,ngrids1 + do ng=1,ngrids + CALL compare_grid_def (grdefh(ngr),grdefn(ng),'nud_update',ierr,ngr,ng) + if (ierr /= 0) then + ! No match... + if(print_msg) print*,'These grids do NOT match (Hist,New):',ngr,ng + else + ! We have a match... + igrid_match(ngr,ng)=1 + if(print_msg) print*,'These grids DO match (Hist,New):',ngr,ng + endif + enddo +enddo + +if(print_msg) then + print*,'###################################################################' +endif + +!****************************************************************************** +!******************* END CHECK GRID MATCHING ********************************** +!****************************************************************************** + +!******************* START READING IN THE DATA *************************** +! Finally, process the fields... + +!************************************************************************* +!The code below (not including reference state section) interpolates all +!history grids to all current grids in the model if a current grid fits +!fully inside a history grid. Variables specific to the current grid that +!come from surface files (via MAKESFC) are not over-written or interpolated +!from history files. These include TOPT, TOPZO, LEAF_CLASS, PATCH_AREA, +!SOIL_TEXT, and VEG_NDVIF. Further, GLAT and GLON from the current grids +!are not over-written. +!************************************************************************* + +!************************************************************************* +!Loop over history grids "ngr" (ngrids1 = number of grids in history file) +!************************************************************************* +do ngr=1,ngrids1 + + !Get history file name and open the file + write(cgrid,'(i1)') ngr + hnameinh=hfilin(1:nc-9)//'-g'//cgrid//'.h5' + + !************************************************************************* + !Loop over current run grids "ng" (ngrids = number of grids in current run) + !************************************************************************* + do ng=1,ngrids + + if (xtn(1,ng) < xtn1(1,ngr) .or. xtn(mmxp(ng),ng) > xtn1(nnxp1(ngr),ngr) .or. & + ytn(1,ng) < ytn1(1,ngr) .or. ytn(mmyp(ng),ng) > ytn1(nnyp1(ngr),ngr) ) then + + if(print_msg) then + print*,'###################################################################' + print 34,' Current Grid:',ng,'outside bounds of History Grid:',ngr,': NO Interp' + print*,'Will not interpolate to a new grid bigger than hist grid.' + print*,'Current grid larger than all history grids.' + print*,'###################################################################' + endif + + if(ngr==1)stop + + else + + if(print_msg) then + print*,'###################################################################' + print 34,' Current Grid:',ng,' within bounds of History Grid:',ngr,': Interp' + print*,'###################################################################' + endif + + !Loop through all variables in the history files (for all grids) + varloop: do nvh=1,nvbtab + + !Cycle if the history variable is not on the grid we are looping over + if(ngr /= hr_table(nvh)%ngrid) cycle varloop + + !num_var = Global variable of number of variables in the current run. + !vtab_r = Current run variables info. List includes extra variables not + ! contained in the history file that are computed within. + !Find which is the corresponding variable in the current run + do nv = 1,num_var(ng) + + !Continue if doing full history initialization or recycling surface vars. + if( (inithisflg == 0 .and. vtab_r(nv,ng)%irecycle_sfc == 1) .or. & + (inithisflg == 1) ) then + + !Number of grid points for the current run variable + npts=vtab_r(nv,ng)%npts + + !See if this variable is active in the current run and interpolate + !to new grid stucture. Some variables are excluded. For surface + !variables we only copy/interpolate the ones that are "recycleable" as + !specified in memory routines; the idea is not to override values from + !surface data files. + + if(hr_table(nvh)%string == vtab_r(nv,ng)%name) then + + !Copy current grid structure to temporary arrays and tell + !HDF5 to look for history file grid structure to read. + CALL update_for_hist_grid (1,ngrids1,nnzp1,nnxp1,nnyp1,nzg1,nzs1,npatch1) + if (nmachs .gt. 1) then + iphdf5 = 1 + else + iphdf5 = 0 + endif + !Open file, Read data from the history files, Close file + CALL shdf5_open (hnameinh,'R',iphdf5,h5_fid) + CALL shdf5_set_hs_select (vtab_r(nv,ng)%idim_type,'R',ngr & + ,mem_select,file_select,file_chunks) + CALL shdf5_irec (h5_fid,iphdf5,trim(hr_table(nvh)%string) & + ,mem_select,file_select,rvara=scr1) + CALL shdf5_close (h5_fid) + !Copy current grid structure back to main grid arrays. + CALL update_for_hist_grid (2,ngrids1,nnzp1,nnxp1,nnyp1,nzg1,nzs1,npatch1) + + !Arrange data for RAMS to work with to copy or interpolate based + !on the dimensions of the variable ingested. + + !If this is a history INITIALIZATION we cannot run in parallel + !since history grids can be different from current grids. + !NMACHS will have already been forced to = 1, so we can proceed + !below using the number of grid points on history grid (nnxp1,nnyp1). + select case(hr_table(nvh)%idim_type) + case(2,6) + CALL atob (hr_table(nvh)%nvalues,scr1,scr) + case(3) + CALL unarrange (nnzp1(ngr),nnxp1(ngr),nnyp1(ngr),scr1,scr) + case(4) + CALL unarrange_p (nnxp1(ngr),nnyp1(ngr),nzg1,npatch1,scr1,scr) + case(5) + CALL unarrange_p (nnxp1(ngr),nnyp1(ngr),nzs1,npatch1,scr1,scr) + case(7) + CALL unarrange_p (nnxp1(ngr),nnyp1(ngr),nnzp1(ngr),nkr,scr1,scr) + end select + + !******************************************************************* + if (vtab_r(nv,ng)%idim_type == 2) then + goahead=0 + !For history RESTART: + if(trim(runtype)=='HISTORY' .and. ng <= ngrids1) goahead=1 + !For history INITIALIZATION or history restart added grid: + !Do not override Topography from Topo surface files. + !Do not override current grid lat and lon. + !Do not bring over history accumulated precipitation. Reset. + if(trim(runtype)/='HISTORY' .or. ng > ngrids1) then + if(hr_table(nvh)%string /= 'TOPT' .and. & + hr_table(nvh)%string /= 'TOPZO' .and. & + hr_table(nvh)%string /= 'GLAT' .and. & + hr_table(nvh)%string /= 'GLON' .and. & + hr_table(nvh)%string /= 'ACCPD' .and. & + hr_table(nvh)%string /= 'ACCPR' .and. & + hr_table(nvh)%string /= 'ACCPP' .and. & + hr_table(nvh)%string /= 'ACCPS' .and. & + hr_table(nvh)%string /= 'ACCPA' .and. & + hr_table(nvh)%string /= 'ACCPG' .and. & + hr_table(nvh)%string /= 'ACCPH' .and. & + hr_table(nvh)%string /= 'ACONPR') goahead=1 + endif + if(goahead==1) then + if(igrid_match(ngr,ng)==1) then + if(iprntstmt>=1 .and. print_msg) & + print 33,'init_update: copy: 2',ngr,ng,vtab_r(nv,ng)%name,nv + CALL atob (npts,scr(1),vtab_r(nv,ng)%var_p) + else + if(iprntstmt>=1 .and. print_msg) & + print 33,'init_update: interp: 2',ngr,ng,vtab_r(nv,ng)%name,nv + CALL hi_interp (1,nnxp1(ngr),nnyp1(ngr),1,1,scr(1) & + ,xmn1(1,ngr),xtn1(1,ngr),ymn1(1,ngr),ytn1(1,ngr) & + ,zmn1(1,ngr),ztn1(1,ngr),topt1(1,ngr),ztop1 & + ,1,mmxp(ng),mmyp(ng),1,1,vtab_r(nv,ng)%var_p & + ,ng,ngr,vtab_r(nv,ng)%name,2) + endif + endif + !******************************************************************* + elseif (vtab_r(nv,ng)%idim_type == 3) then + + if(igrid_match(ngr,ng)==1) then + if(iprntstmt>=1 .and. print_msg) & + print 33,'init_update: copy: 3',ngr,ng,vtab_r(nv,ng)%name,nv + CALL atob (npts,scr(1),vtab_r(nv,ng)%var_p) + else + if(iprntstmt>=1 .and. print_msg) & + print 33,'init_update: interp: 3',ngr,ng,vtab_r(nv,ng)%name,nv + CALL hi_interp (nnzp1(ngr),nnxp1(ngr),nnyp1(ngr),1,1,scr(1) & + ,xmn1(1,ngr),xtn1(1,ngr),ymn1(1,ngr),ytn1(1,ngr) & + ,zmn1(1,ngr),ztn1(1,ngr),topt1(1,ngr),ztop1 & + ,mmzp(ng),mmxp(ng),mmyp(ng),1,1,vtab_r(nv,ng)%var_p & + ,ng,ngr,vtab_r(nv,ng)%name,3) + endif + + !********************************************************************** + elseif (vtab_r(nv,ng)%idim_type == 4 .and. & + vtab_r(nv,ng)%irecycle_sfc == 1) then + + if(igrid_match(ngr,ng)==1) then + if(iprntstmt>=1 .and. print_msg) & + print 33,'init_update: copy: 4-1',ngr,ng,vtab_r(nv,ng)%name,nv + CALL atob (npts,scr(1),vtab_r(nv,ng)%var_p) + else + if(iprntstmt>=1 .and. print_msg) & + print 33,'init_update: interp: 4-1',ngr,ng,vtab_r(nv,ng)%name,nv + CALL hi_interp (nzg1,nnxp1(ngr),nnyp1(ngr),npatch1,1,scr(1) & + ,xmn1(1,ngr),xtn1(1,ngr),ymn1(1,ngr),ytn1(1,ngr) & + ,zmn1(1,ngr),ztn1(1,ngr),topt1(1,ngr),ztop1 & + ,nzg,mmxp(ng),mmyp(ng),npatch,1,vtab_r(nv,ng)%var_p & + ,ng,ngr,vtab_r(nv,ng)%name,4) + endif + + !********************************************************************* + elseif (vtab_r(nv,ng)%idim_type == 5 .and. & + vtab_r(nv,ng)%irecycle_sfc == 1) then + + if(igrid_match(ngr,ng)==1) then + if(iprntstmt>=1 .and. print_msg) & + print 33,'init_update: copy: 5-1',ngr,ng,vtab_r(nv,ng)%name,nv + CALL atob (npts,scr(1),vtab_r(nv,ng)%var_p) + else + if(iprntstmt>=1 .and. print_msg) & + print 33,'init_update: interp: 5-1',ngr,ng,vtab_r(nv,ng)%name,nv + CALL hi_interp (nzs1,nnxp1(ngr),nnyp1(ngr),npatch1,1,scr(1) & + ,xmn1(1,ngr),xtn1(1,ngr),ymn1(1,ngr),ytn1(1,ngr) & + ,zmn1(1,ngr),ztn1(1,ngr),topt1(1,ngr),ztop1 & + ,nzs,mmxp(ng),mmyp(ng),npatch,1,vtab_r(nv,ng)%var_p & + ,ng,ngr,vtab_r(nv,ng)%name,5) + endif + + !********************************************************************** + elseif (vtab_r(nv,ng)%idim_type == 6 .and. & + vtab_r(nv,ng)%irecycle_sfc == 1) then + + if(igrid_match(ngr,ng)==1) then + if(iprntstmt>=1 .and. print_msg) & + print 33,'init_update: copy: 6-1',ngr,ng,vtab_r(nv,ng)%name,nv + CALL atob (npts,scr(1),vtab_r(nv,ng)%var_p) + else + if(iprntstmt>=1 .and. print_msg) & + print 33,'init_update: interp: 6-1',ngr,ng,vtab_r(nv,ng)%name,nv + CALL hi_interp (1,nnxp1(ngr),nnyp1(ngr),npatch1,1,scr(1) & + ,xmn1(1,ngr),xtn1(1,ngr),ymn1(1,ngr),ytn1(1,ngr) & + ,zmn1(1,ngr),ztn1(1,ngr),topt1(1,ngr),ztop1 & + ,1,mmxp(ng),mmyp(ng),npatch,1,vtab_r(nv,ng)%var_p & + ,ng,ngr,vtab_r(nv,ng)%name,6) + endif + + !******************************************************************* + elseif (vtab_r(nv,ng)%idim_type == 7) then + + if(igrid_match(ngr,ng)==1) then + if(iprntstmt>=1 .and. print_msg) & + print 33,'init_update: copy: 7',ngr,ng,vtab_r(nv,ng)%name,nv + CALL atob (npts,scr(1),vtab_r(nv,ng)%var_p) + else + if(iprntstmt>=1 .and. print_msg) & + print 33,'init_update: interp: 7',ngr,ng,vtab_r(nv,ng)%name,nv + CALL hi_interp (nnzp1(ngr),nnxp1(ngr),nnyp1(ngr),1,nkr,scr(1) & + ,xmn1(1,ngr),xtn1(1,ngr),ymn1(1,ngr),ytn1(1,ngr) & + ,zmn1(1,ngr),ztn1(1,ngr),topt1(1,ngr),ztop1 & + ,mmzp(ng),mmxp(ng),mmyp(ng),1,nkr,vtab_r(nv,ng)%var_p & + ,ng,ngr,vtab_r(nv,ng)%name,7) + endif + + endif !end if dimension type + exit + endif !end if variable is active on current grid + + endif !if a variable to recycle or inithis + enddo !do looping over variables on current grid + + enddo varloop !do looping over variables on history file + endif !if current grid fully contained in history grid + enddo !do looping over current run grids + +enddo !do looping over history grids + +!************************************************************************* +!The following code for reference state variables is set up for +!grid-1. If there is more than one grid, the model will interpolate +!from grid-1 to additional grids. This is done in rdint.f90 routine "initlz". +!************************************************************************* + +!Prepare 1D reference sounding for history grid-1 and apply to +! new grid-1. Will let interp_fine_grid interpolate to new nested grids. +if(inithisflg == 1) then + + nzpg1=nnzp1(1) + allocate(u01dn1(nzpg1), v01dn1(nzpg1),rt01dn1(nzpg1) & + ,th01dn1(nzpg1),pi01dn1(nzpg1),dn01dn1(nzpg1) ) + + cng='01' + ie=cio_f(iunhd,1,'u01dn'//cng, u01dn1(1),nzpg1) + ie=cio_f(iunhd,1,'v01dn'//cng, v01dn1(1),nzpg1) + ie=cio_f(iunhd,1,'pi01dn'//cng,pi01dn1(1),nzpg1) + ie=cio_f(iunhd,1,'th01dn'//cng,th01dn1(1),nzpg1) + ie=cio_f(iunhd,1,'dn01dn'//cng,dn01dn1(1),nzpg1) + ie=cio_f(iunhd,1,'rt01dn'//cng,rt01dn1(1),nzpg1) + + CALL htint (nzpg1,th01dn1,ztn1(1,1),mmzp(1),th01dn(1,1),ztn(1,1)) + CALL htint (nzpg1,u01dn1 ,ztn1(1,1),mmzp(1),u01dn(1,1) ,ztn(1,1)) + CALL htint (nzpg1,v01dn1 ,ztn1(1,1),mmzp(1),v01dn(1,1) ,ztn(1,1)) + CALL htint (nzpg1,pi01dn1,ztn1(1,1),mmzp(1),pi01dn(1,1),ztn(1,1)) + CALL htint (nzpg1,dn01dn1,ztn1(1,1),mmzp(1),dn01dn(1,1),ztn(1,1)) + + if (level .ge. 1) then + CALL htint (nzpg1,rt01dn1,ztn1(1,1),mmzp(1),rt01dn(1,1),ztn(1,1)) + else + rt01dn(1:mmzp(1),1) = 0. + endif + + u01dn(1,1) = u01dn(2,1) + v01dn(1,1) = v01dn(2,1) + rt01dn(1,1) = rt01dn(2,1) + th01dn(1,1) = th01dn(2,1) + + !Close the input history header file + close(iunhd) + + !Compute 3d reference state for grid 1 + CALL newgrid (1) + CALL refs3d (mmzp(1),mmxp(1),mmyp(1) & + ,basic_g(1)%pi0 (1,1,1) ,basic_g(1)%dn0 (1,1,1) & + ,basic_g(1)%dn0u (1,1,1) ,basic_g(1)%dn0v (1,1,1) & + ,basic_g(1)%th0 (1,1,1) ,grid_g(1)%topt (1,1) & + ,grid_g(1)%rtgt (1,1) ) + + !Deallocate temporary arrays + deallocate(u01dn1,v01dn1,rt01dn1,th01dn1,pi01dn1,dn01dn1) + +endif !If doing full history initialization + +!Deallocate temporary arrays +deallocate(topt1,hr_table,xmn1,ymn1,zmn1,xtn1,ytn1,ztn1,scr,scr1 & + ,nnxp1,nnyp1,nnzp1) + +do ngr=1,ngrids1 + CALL dealloc_grid_def (grdefh(ngr)) +enddo +do ngr=1,ngrids + CALL dealloc_grid_def (grdefn(ngr)) +enddo + +return +END SUBROUTINE inithis + +!############################################################################## +Subroutine sfcinit_hstart () + +use mem_leaf +use mem_basic +use mem_grid +use leaf_coms +use rconstants +use mem_varinit, only: igrid_match +use node_mod + +implicit none + +integer :: i,j,ifm,ipat,k,nveg,nsoil,hifm,maxmatch +real :: c1,hpis,hprss + +! This routine fills the LEAF arrays for a history-initial start. + +! Refill many of the LEAF variables, as the interpolated values may not be relevant. + +c1 = .5 * cpi + +ifmloop: do ifm=1,ngrids + +! Only re-init if no history grids match current grids. +! If there is a match then cycle loop and go to next current grid. +maxmatch=0 +do hifm=1,maxgrds + maxmatch=max(maxmatch,igrid_match(hifm,ifm)) +enddo + +if(maxmatch /= 0) cycle ifmloop + +if(iprntstmt>=1 .and. print_msg) then + print*,'##############################################################' + print*,'Reinitializing some surface variables for grid:',ifm + print*,'##############################################################' +endif + +do j = 1,mmyp(ifm) + do i = 1,mmxp(ifm) + hpis = c1 * (basic_g(ifm)%pi0(1,i,j) + basic_g(ifm)%pi0(2,i,j) & + + basic_g(ifm)%pp(1,i,j) + basic_g(ifm)%pp(2,i,j)) + + hprss = hpis ** cpor * p00 + + leaf_g(ifm)%patch_rough(i,j,1) = 0.001 + + do ipat = 2,npatch + + !Set vegetation height since leaf_init is not run for hist init. + nveg = nint(leaf_g(ifm)%leaf_class(i,j,ipat)) + leaf_g(ifm)%veg_height(i,j,ipat) = veg_ht(nveg) + + !Reset soil roughness, patch roughness, and stomatal resistance + !since leaf class may change due to interpolation. Land patch may + !now be a small fraction (<.009) or could be significantly different + !such as water patch. These values will be correctly set 1st timestep. + leaf_g(ifm)%soil_rough(i,j,ipat) = zrough + leaf_g(ifm)%patch_rough(i,j,ipat) = max(zrough,grid_g(ifm)%topzo(i,j)) + leaf_g(ifm)%stom_resist(i,j,ipat) = 1.e6 + + !Recompute soil moisture since we changed soil classes. Must make + !sure soil moisture does not exceed 100% due to difference in + !soil class on different history initialization grid. + do k = 1,nzg + nsoil = nint(leaf_g(ifm)%soil_text(k,i,j,ipat)) + leaf_g(ifm)%soil_water(k,i,j,ipat) = & + min(slmsts(nsoil),leaf_g(ifm)%soil_water(k,i,j,ipat)) + enddo + + !Recompute surface water levels since this variable is a float + !but needs and integer value. Intepolation from former grid + !would create floats rather than integers. + do k = 1,nzs + leaf_g(ifm)%sfcwater_nlev(i,j,ipat) = 0. + if (leaf_g(ifm)%sfcwater_mass(k,i,j,ipat) > 0.) & + leaf_g(ifm)%sfcwater_nlev(i,j,ipat) = float(k) + enddo + + !Initialize for all land surface options (isfcl=0,1,2) + !Update this since leaf classes and ndvi have changes due to + !history initialization on different grid. + if (ipat >= 2) CALL ndvi (ifm & + ,leaf_g(ifm)%leaf_class (i,j,ipat) & + ,leaf_g(ifm)%veg_ndvip (i,j,ipat) & + ,leaf_g(ifm)%veg_ndvic (i,j,ipat) & + ,leaf_g(ifm)%veg_ndvif (i,j,ipat) ) + + !Only call this for LEAF3. SIB will use its own values. + !Update this since leaf classes are likely different following + !history initialization on different grid. + if (ipat >= 2 .and. isfcl<=1) & + CALL veg (ifm & + ,leaf_g(ifm)%leaf_class (i,j,ipat) & + ,leaf_g(ifm)%veg_fracarea (i,j,ipat) & + ,leaf_g(ifm)%veg_lai (i,j,ipat) & + ,leaf_g(ifm)%veg_tai (i,j,ipat) & + ,leaf_g(ifm)%veg_rough (i,j,ipat) & + ,leaf_g(ifm)%veg_height (i,j,ipat) & + ,leaf_g(ifm)%veg_albedo (i,j,ipat) & + ,leaf_g(ifm)%veg_ndvic (i,j,ipat) ) + + !Must recompute here to prevent over saturation and such + !since soil_water and sfcwater_nlev could have been updated + !due to change in soil class and snow integer level interpolation + CALL grndvap (nzs & + ,leaf_g(ifm)%soil_energy (nzg,i,j,ipat) & + ,leaf_g(ifm)%soil_water (nzg,i,j,ipat) & + ,leaf_g(ifm)%soil_text (nzg,i,j,ipat) & + ,leaf_g(ifm)%sfcwater_energy(1,i,j,ipat) & + ,leaf_g(ifm)%sfcwater_nlev (i,j,ipat) & + ,leaf_g(ifm)%ground_rsat (i,j,ipat) & + ,leaf_g(ifm)%ground_rvap (i,j,ipat) & + ,leaf_g(ifm)%can_rvap (i,j,ipat) & + ,hprss,i,j) + + enddo + enddo +enddo + +enddo ifmloop + +return +END SUBROUTINE sfcinit_hstart + +!############################################################################## +Subroutine hi_interp (n1,n2,n3,n4,n5,vn,xm1,xt1,ym1,yt1,zm1,zt1 & + ,topt1,ztop1,m1,m2,m3,m4,m5,vm,ngm,ngr1,vname,idim) + +use mem_grid +use mem_scratch + +implicit none + +integer :: n1,n2,n3,n4,n5,ngr1,idim +real, dimension(n1,n2,n3,n4,n5) :: vn +real, dimension(n2,n3) :: topt1 +real, dimension(n1) :: zm1,zt1 +real, dimension(n2) :: xm1,xt1 +real, dimension(n3) :: ym1,yt1 +real :: ztop1 + +integer :: m1,m2,m3,m4,m5,ngm +real, dimension(m1,m2,m3,m4,m5) :: vm + +character(len=*) :: vname + +integer :: i,j,k,np,nb +real :: fixxm,fiyym,topoh,rtgth +real, allocatable :: scr(:,:,:,:,:) + +!This routine will interpolate the new simulations grids +!Note here: n1,n2,n3,n4 are the original grid specs and +! m1,m2,m3,m4 are the new grid specs we are interpolating to. + +if(allocated(scr)) deallocate(scr) ; allocate(scr(n2,n3,n1,n4,n5)) + +!We are going to swap indices due to excessive memory copies of +!non-contiguous memory +do nb=1,n5 + do np=1,n4 + do k=1,n1 + scr(1:n2,1:n3,k,np,nb)=vn(k,1:n2,1:n3,np,nb) + enddo + enddo +enddo + +do j=1,m3 + do i=1,m2 + + !See if point is on this grid. + if (xtn(1,ngm) < xt1(1) .or. xtn(m2,ngm) > xt1(n2) .or. & + ytn(1,ngm) < yt1(1) .or. ytn(m3,ngm) > yt1(n3) ) then + !This is the input coarse grid and point is not on this grid. Stop. + if (ngr1 == 1) then + print*,'' + print*,'Hist grid: ',ngr1,' : ','Current grid: ',ngm + print*,'His_init: grid point not on history file grids' + print*,i,xtn(1,ngm),xt1(1),xtn(m2,ngm),xt1(n2) + print*,j,ytn(1,ngm),yt1(1),ytn(m3,ngm),yt1(n3) + stop 'His_init: hi_interp' + else + !Otherwise, go to next point + cycle + endif + endif + + !We are okay horizontally, now interpolate vertical column from field + + !Find x,y grid point locations on input field. + !Assuming constant spacing and deal with stagger for winds + + if(vname == 'UP' .or. vname == 'UC') then + !Handle U winds on M-grid in horizontal in X direction + fixxm=1.+(xmn(i,ngm)-xm1(1))/(xm1(2)-xm1(1)) + else + !Handle scalars on T-grid in horizontal in X direction + fixxm=1.+(xtn(i,ngm)-xt1(1))/(xt1(2)-xt1(1)) + endif + if(vname == 'VP' .or. vname == 'VC') then + !Handle V winds on M-grid in horizontal in Y direction + fiyym=1.+(ymn(j,ngm)-ym1(1))/(ym1(2)-ym1(1)) + else + !Handle scalars on T-grid in horizontal in X direction + fiyym=1.+(ytn(j,ngm)-yt1(1))/(yt1(2)-yt1(1)) + endif + + !Set this to 1.0 for 2D simulations + if(m3==1)fiyym=1. + + do nb=1,n5 + do np=1,n4 + do k=1,n1 + CALL gdtost2 (scr(1,1,k,np,nb),n2,n3,fixxm,fiyym,vctr1(k)) + enddo + + if (idim == 3 .or. idim == 7) then + !Interpolate this column vertically to actual grid if 3d variable + CALL gdtost2 (topt1(1,1),n2,n3,fixxm,fiyym,topoh) + rtgth=1.-topoh/ztop1 + if(vname == 'WP' .or. vname == 'WC') then + !Adjust for topography on M-grid in the vertical + do k=1,m1 + !Actual grid level heights + vctr2(k)= grid_g(ngm)%topt(i,j) & + + zmn(k,ngm) *grid_g(ngm)%rtgt(i,j) + enddo + do k=1,n1 + !History grid level heights + vctr3(k)= topoh + zm1(k) *rtgth + enddo + else + !Adjust for topography on T-grid in the vertical + do k=1,m1 + !Actual grid level heights + vctr2(k)= grid_g(ngm)%topt(i,j) & + + ztn(k,ngm) *grid_g(ngm)%rtgt(i,j) + enddo + do k=1,n1 + !History grid level heights + vctr3(k)= topoh + zt1(k) *rtgth + enddo + endif + + !Interpolate vertically + CALL htint (n1,vctr1(1),vctr3(1),m1,vctr10(1),vctr2(1)) + + vm(1:m1,i,j,np,nb)=vctr10(1:m1) + + elseif (idim == 2) then + vm(1,i,j,np,nb)=vctr1(1) + elseif (idim == 4 .or. idim == 5) then + vm(1:m1,i,j,np,nb)=vctr1(1:m1) + elseif (idim == 6) then + vm(1,i,j,np,nb)=vctr1(1) + endif + + enddo + enddo + + enddo +enddo + +deallocate(scr) + +return +END SUBROUTINE hi_interp diff --git a/src/6.2.16/io/io_params.f90 b/src/6.2.16/io/io_params.f90 new file mode 100644 index 0000000..46ff9c1 --- /dev/null +++ b/src/6.2.16/io/io_params.f90 @@ -0,0 +1,40 @@ +!############################################################################## +Module io_params + +use grid_dims + +implicit none + +character(len=32) :: lite_vars(maxlite) +character(len=strl1) :: hfilin,afilepref + +integer :: ipast_sfc +!------------------------------------------------------------------------------- +integer :: ioutput,iclobber,nlite_vars +real :: frqstate(maxgrds),avgtim,frqlite,frqmean,frqboth,frqst_keep +!------------------------------------------------------------------------------- +integer, dimension(maxgrds) :: itoptflg,isstflg,ivegtflg,isoilflg & + ,ndviflg,itopsflg,iz0flg +real :: z0fact +real, dimension(maxgrds) :: z0max,toptenh,toptwvl +!------------------------------------------------------------------------------- +character(len=strl1), dimension(maxgrds) :: itoptfn,isstfn,ivegtfn,isoilfn & + ,ndvifn +!------------------------------------------------------------------------------- +character(len=strl1) :: sstfpfx,sfcfiles,topfiles +character(len=strl1), dimension(maxsstfiles,maxgrds) :: fnames_sst +character(len=14), dimension(maxsstfiles,maxgrds) :: itotdate_sst +!------------------------------------------------------------------------------- +integer :: iupdsst,isstcyclic,isstcycdata +integer,dimension(maxgrds) :: nsstfiles,isstflp,isstflf +real,dimension(maxgrds) :: ssttime1,ssttime2 +!------------------------------------------------------------------------------- +character(len=strl1) :: ndvifpfx +character(len=strl1), dimension(maxndvifiles,maxgrds) :: fnames_ndvi +character(len=14), dimension(maxndvifiles,maxgrds) :: itotdate_ndvi +!------------------------------------------------------------------------------- +integer :: iupdndvi,indvicyclic,indvicycdata +integer,dimension(maxgrds) :: nndvifiles,indviflp,indviflf +real,dimension(maxgrds) :: ndvitime1,ndvitime2 + +END MODULE io_params diff --git a/src/6.2.16/io/opspec.f90 b/src/6.2.16/io/opspec.f90 new file mode 100644 index 0000000..9747aec --- /dev/null +++ b/src/6.2.16/io/opspec.f90 @@ -0,0 +1,988 @@ +!############################################################################## +Subroutine opspec1 () + +! This routine checks the option specifications in the $MODEL_GRIDS +! namelist for consistency, and overrides settings of ICLOUD, +! IRAIN, IPRIS, ISNOW, IAGGR, IGRAUP, and IHAIL, setting them +! all to zero if LEVEL is less than 3. + +! Each error will be assigned a severity. Fatal errors will cause +! run to stop immediately and warning errors and informative +! messages will be listed. + +use mem_grid +use mem_radiate +use mem_leaf +use micphys +use micro_prm, only:iceflag,iceprocs + +implicit none + +integer :: ierr,ifm,icm,ng,ifaterr,iwarerr,infoerr,nparent + + +IFATERR=0 +IWARERR=0 +INFOERR=0 + +! Check number of grids and grid points in data versus maximums in +! configuration file. (severity - F ) + +IF(NGRIDS.GT.MAXGRDS) THEN + PRINT*,' FATAL - NGRIDS in data greater than MAXGRDS in config.' + IFATERR=IFATERR+1 + goto 1000 +ENDIF + +IERR=0 +DO NGRID=1,NGRIDS + IF(NNXP(NGRID).GT.NXPMAX)IERR=IERR+1 + IF(NNYP(NGRID).GT.NYPMAX)IERR=IERR+1 + IF(NNZP(NGRID).GT.NZPMAX)IERR=IERR+1 +ENDDO +IF(NZG.GT.NZGMAX)IERR=IERR+1 +IF(IERR.GT.0) THEN + PRINT*,' FATAL - grid points in data exceeded maximums in', & + ' config ',IERR,' times.' + IFATERR=IFATERR+IERR +ENDIF + +! Atmospheric levels must exceed soil levels +! (severity - F) + +DO NGRID=1,NGRIDS + IF(NNZP(NGRID).LT.NZG+NZS+1) THEN + PRINT*,' FATAL - nnzp must be at least nzg + nzs + 1.' + IFATERR=IFATERR+1 + ENDIF +ENDDO + +! Minimum values of NGRIDS, NNXP, NNYP, NNZP, NSTRATX, NSTRATY +! (severity - F) + +IF(NGRIDS.LT.1) THEN + PRINT*,' FATAL - NGRIDS in data less than 1.' + IFATERR=IFATERR+1 +ENDIF + +DO IFM=1,NGRIDS + icm = nxtnest(ifm) + IF(NNXP(IFM).LT.4) THEN + PRINT*,' FATAL - NNXP must be at least 4.' + IFATERR=IFATERR+1 + ENDIF + + IF(NNYP(IFM).LT.1) THEN + PRINT*,' FATAL - NNYP must be at least 1.' + IFATERR=IFATERR+1 + ENDIF + + IF(NNZP(IFM).LT.11) THEN + PRINT*,' FATAL - NNZP must be at least 11.' + IFATERR=IFATERR+1 + ENDIF + + IF(NSTRATX(IFM).LT.1) THEN + PRINT*,' FATAL - NSTRATX must be at least 1.' + IFATERR=IFATERR+1 + ENDIF + + !Set NSTRATY based on NSTRATX and 2D vs 3D + if(nnyp(ifm).eq.1) then + NSTRATY(IFM) = 1 + else + NSTRATY(IFM) = NSTRATX(IFM) + endif + + IF(NSTRATY(IFM).LT.1) THEN + PRINT*,' FATAL - NSTRATY must be at least 1.' + IFATERR=IFATERR+1 + ENDIF + + if(nstraty(ifm).ne.1.and.nnyp(ifm).eq.1)then + print*,' FATAL - nstraty must be set to 1 for 2-d run.' + ifaterr=ifaterr+1 + endif + + if (icm .ge. 1 .and. nnyp(ifm) .eq. 1 .and. & + (ninest(ifm) .lt. 3 .or. njnest(ifm) .lt. 1)) then + print*, ' FATAL - nested 2d grid must have ninest > 2 ' & + ,'and njnest = 1 in namelist.' + IFATERR=IFATERR+1 + ENDIF +ENDDO + +! Allowable values of CENTLAT, CENTLON, POLELAT, POLELON +! (severity - F) + +if(polelat.lt.-90..or.polelat.gt.90.) then + PRINT*,' FATAL - POLELAT outside of legal bounds.' + IFATERR=IFATERR+1 +ENDIF + +if(polelon.lt.-180..or.polelon.gt.180.) then + PRINT*,' FATAL - POLELON outside of legal bounds.' + IFATERR=IFATERR+1 +ENDIF + +do ng=1,ngrids + if(centlat(ng).lt.-90..or.centlat(ng).gt.90.) then + PRINT*,' FATAL - CENTLAT outside of legal bounds.' + IFATERR=IFATERR+1 + ENDIF + + if(centlon(ng).lt.-180..or.centlon(ng).gt.180.) then + PRINT*,' FATAL - CENTLON outside of legal bounds.' + IFATERR=IFATERR+1 + ENDIF +enddo + +! Check nxtnest values for validity +! (severity - F) + +if (nxtnest(1) .ne. 0) then + print*, ' FATAL - Grid # 1 must have its parent mesh' & + ,' designated as Grid # 0 (nxtnest(1) = 0)' + IFATERR=IFATERR+1 +ENDIF + +nparent = 0 +do ifm = 1,ngrids + icm = nxtnest(ifm) + + IF (icm .GE. ifm) THEN + PRINT 1, ifm + 1 FORMAT (' FATAL - Nest #',I3,' has specified parent' & + ,' mesh of equal or higher number') + IFATERR=IFATERR+1 + ENDIF + + if (icm .lt. 0) then + PRINT 2, ifm + 2 FORMAT (' FATAL - Nest #',I3,' has specified parent' & + ,' mesh of number less than 0') + IFATERR=IFATERR+1 + endif + + if (icm .eq. 0) then + nparent = nparent + 1 + endif + +enddo + +if (nparent .gt. 1) then + print*, ' FATAL - more than 1 grid has grid # 0 specified' & + ,' as their parent' + IFATERR=IFATERR+1 +endif + +! Check to make sure that top grids have NSTTOP and NSTBOT set to 1 +! (severity - F) + +IF (NNSTTOP(1) .NE. 1) THEN + PRINT*,'NSTTOP not set to 1' + IFATERR=IFATERR+1 +ENDIF + +IF (NNSTBOT(1) .NE. 1) THEN + PRINT*,'NSTBOT not set to 1' + IFATERR=IFATERR+1 +ENDIF + +! Check to make sure vegetation patches are appropriate relative to +! total number of patches. +if (nvegpat < 1 .or. nvegpat > npatch-1) then + print*,'FATAL - NVEGPAT must be between 1 and NPATCH-1' + IFATERR=IFATERR+1 +endif + +! Require use of 2 surface patches per grid cell for SCM so as to +! keep this simple for interface to general parent model. May +! consider allowing more patches in the future if feasible. +if (iscm > 0 .and. npatch > 2) then + print*,'FATAL - NPATCH must equal 2 for single column output' + IFATERR=IFATERR+1 +endif + +!******************************************************************** +! MICROPHYSICS AND AEROSOL FLAG CHECKING SECTION +!******************************************************************** + +!******************************************************************** +! CHECK FOR AEROSOL SOURCE AND AEROSOL RADIATION FLAGS +!******************************************************************** + if (iaerosol .lt. 0 .or. iaerosol .gt. 1) THEN + print*,'FATAL - IAEROSOL OUT OF RANGE: MUST BE 0-1' + IFATERR = IFATERR + 1 + endif + if (idust .lt. 0 .or. idust .gt. 2) THEN + print*,'FATAL - IDUST OUT OF RANGE: MUST BE 0-2' + IFATERR = IFATERR + 1 + endif + if (isalt .lt. 0 .or. isalt .gt. 2) THEN + print*,'FATAL - ISALT OUT OF RANGE: MUST BE 0-2' + IFATERR = IFATERR + 1 + endif + if (iaerorad .lt. 0 .or. iaerorad .gt. 1) THEN + print*,'FATAL - IAERORAD OUT OF RANGE: MUST BE 0-1' + IFATERR = IFATERR + 1 + endif + if (iaerorad .eq. 1 .and. (iswrtyp.ne.3 .or. ilwrtyp.ne.3)) THEN + print*,'FATAL - Aerosol radiation turned on but will' + print*,' only impact shortwave and/or longwave' + print*,' radiation if type is set to 3 (Harrington)' + IFATERR = IFATERR + 1 + endif + +! If LEVEL is less than 3, set microphysics parameters to zero. +! If LEVEL equals 3, check for values of microphysics parameters +! that are out of bounds. + +if (level .eq. 0) then + iaerorad = 0 +endif + +if (level .le. 2) then + + icloud = 0 + irain = 0 + ipris = 0 + isnow = 0 + iaggr = 0 + igraup = 0 + ihail = 0 + idriz = 0 + imbudget = 0 + iccnlev = 0 + iifn = 0 + +elseif (level .eq. 3) then + +!Guidance on hydrometeor shape parameter GNU + if (icloud .gt. 0 .and. gnu(1) < 4) then + print*,'FATAL - GNU for Cloud droplets is strongly recommended >= 4' + IFATERR = IFATERR + 1 + endif + if (idriz .gt. 0 .and. gnu(8) < 4) then + print*,'FATAL - GNU for Drizzle droplets is strongly recommended >= 4' + IFATERR = IFATERR + 1 + endif + +!ALLOWABLE RANGE OF MICRO / RADIATION FLAGS + if (icloud .lt. 0 .or. icloud .gt. 5) THEN + print*,'FATAL - ICLOUD OUT OF RANGE' + IFATERR = IFATERR + 1 + endif + if (irain .lt. 0 .or. irain .gt. 5) THEN + print*,'FATAL - IRAIN OUT OF RANGE' + IFATERR = IFATERR + 1 + endif + if (ipris .lt. 0 .or. ipris .gt. 5) THEN + print*,'FATAL - IPRIS OUT OF RANGE' + IFATERR = IFATERR + 1 + endif + if (ipris .ge. 1 .and. ipris .le. 4) THEN + print*,'FATAL - IPRIS MUST BE 0 or 5' + IFATERR = IFATERR + 1 + endif + if (isnow .lt. 0 .or. isnow .gt. 5) THEN + print*,'FATAL - ISNOW OUT OF RANGE' + IFATERR = IFATERR + 1 + endif + if (iaggr .lt. 0 .or. iaggr .gt. 5) THEN + print*,'FATAL - IAGGR OUT OF RANGE' + IFATERR = IFATERR + 1 + endif + if (igraup .lt. 0 .or. igraup .gt. 5) THEN + print*,'FATAL - IGRAUP OUT OF RANGE' + IFATERR = IFATERR + 1 + endif + if (ihail .lt. 0 .or. ihail .gt. 5) THEN + print*,'FATAL - IHAIL OUT OF RANGE' + IFATERR = IFATERR + 1 + endif + if (idriz .lt. 0 .or. idriz .gt. 5) THEN + print*,'FATAL - IDRIZ OUT OF RANGE' + IFATERR = IFATERR + 1 + endif + if (iccnlev .lt. 0 .or. iccnlev .gt. 2) THEN + print*,'FATAL - ICCNLEV OUT OF RANGE: MUST BE 0-2' + IFATERR = IFATERR + 1 + endif + if (imbudget .lt. 0 .or. imbudget .gt. 3) THEN + print*,'FATAL - IMBUDGET OUT OF RANGE' + IFATERR = IFATERR + 1 + endif + if (iifn .lt. 0 .or. iifn .gt. 3) THEN + print*,'FATAL - IIFN OUT OF RANGE: MUST BE 0-3' + IFATERR = IFATERR + 1 + endif + if (isedim .lt. 0 .or. isedim .gt. 1) THEN + print*,'FATAL - ISEDIM OUT OF RANGE: MUST BE 0-1' + IFATERR = IFATERR + 1 + endif + if (itrkepsilon .lt. 0 .or. itrkepsilon .gt. 1 .or. & + itrkdust .lt. 0 .or. itrkdust .gt. 1 .or. & + itrkdustifn .lt. 0 .or. itrkdustifn .gt. 1) THEN + print*,'FATAL - AEROSOL TRACKING FLAGS MUST BE 0-1' + IFATERR = IFATERR + 1 + endif + + if (icloud .lt. 5) then + if (idriz .ge. 5) then + print*,'FATAL - Microphysics - IDRIZ must be < 5 if ICLOUD < 5' + IFATERR = IFATERR + 1 + endif + if (iccnlev .gt. 0) THEN + print*,'WARNING - iccnlev>0 and icloud<5.' + print*,' No aerosol nucleation for these settings.' + print*,' Aerosol removal/tracking now only active via deposition.' + IWARERR = IWARERR + 1 + endif + if (iifn .eq. 3 .and. icloud < 5) THEN + print*,'FATAL - IIFN=3 requires ICLOUD>=5 for there to be any' + print*,' primary heterogeneous ice nucleation.' + IFATERR = IFATERR + 1 + endif + endif + if (icloud .eq. 5) then + if (iaerosol.eq.0 .and. idust.eq.0 .and. isalt.eq.0) then + print*,'FATAL - If icloud==5, then either IAEROSOL, IDUST, or ISALT' + print*,' must be turned on so that some aerosols are present in order' + print*,' for cloud nucleation to occur.' + IFATERR = IFATERR + 1 + endif + endif + + if (imbudget .ge. 3 .and. iccnlev .eq. 0) THEN + print*,'FATAL - If IMBUDGET=3 then ICCNLEV must be > 0.' + print*,' Cannot track specific aerosol type nucleation' + print*,' unless ICCNLEV>0 for nucleation scavenging.' + IFATERR = IFATERR + 1 + endif + if (imbudget .ge. 3 .and. idust .eq. 0) THEN + print*,'FATAL - If IMBUDGET=3 then IDUST must be > 0.' + print*,' Cannot track dust if there is no dust turned on.' + IFATERR = IFATERR + 1 + endif + + if ((itrkepsilon.gt.0 .or. itrkdust.gt.0 .or. itrkdustifn.gt.0) & + .and. iccnlev.lt.2) THEN + print*,'FATAL - Aerosol tracking = 0 since ICCNLEV < 2.' + print*,'Either set ICCNLEV>=2 or set ITRKEPSILON=ITRKDUST=ITRKDUSTIFN=0' + IFATERR = IFATERR + 1 + endif + if ((itrkdust.gt.0 .or. itrkdustifn.gt.0) .and. idust.eq.0) THEN + print*,'FATAL - Dust tracking = 0 since IDUST=0.' + print*,'Either set IDUST>0 or set ITRKDUST=ITRKDUSTIFN=0' + IFATERR = IFATERR + 1 + endif +elseif (level .eq. 4) then + idriz=0 + if (ipris>0.or.isnow>0.or.iaggr>0.or.igraup>0.or.ihail>0) then + iceprocs = 1 + if (ipris == 1) print*, 'ONE ICE CRYSTAL TYPE: COLUMNS' + if (ipris == 2) print*, 'ONE ICE CRYSTAL TYPE: PLATES' + if (ipris == 3) print*, 'ONE ICE CRYSTAL TYPE: DENDRITES' + if (ipris == 0) print*, 'NO ICE CRYSTAL TYPES TURNED ON' + if (igraup == 0 .and. ihail == 0) then + print*, 'For SBM microphysics, either graupel or hail must be turned on!' + stop + endif + if (igraup == 0) print*, 'HAIL on, GRAUPEL off' + if (ihail == 0) print*, 'GRAUPEL on, HAIL off' + ICEFLAG=IIFN-1 + IF(ICEFLAG .ne. 0 .and. ICEFLAG .ne. 1) THEN + print*, 'IIFN needs to be set to 1 or 2. IIFN=',IIFN + stop + ENDIF + ENDIF + if (icloud > 0 .or. & + idriz > 0 .or. & + irain > 0 .or. & + isnow > 0 .or. & + iaggr > 0 .or. & + iaerosol > 0 .or. & + idust > 0 .or. & + isalt > 0 .or. & + iccnlev > 0 .or. & + iaerorad > 0 .or. & + iaerodep > 0 .or. & + iaeroprnt > 0 .or. & + itrkepsilon > 0 .or. & + itrkdust > 0 .or. & + itrkdustifn > 0 .or. & + icheckmic > 0) THEN + print*,'FATAL - The following microphysics ON/OFF switches are not used' + print*,'in HUCM Bin Microphysics, so set them to zero for OFF.' + print*,'' + print*,'ICLOUD, IDRIZ, IRAIN, ISNOW, IAGGR, IAEROSOL' + print*,'ISALT, IDUST, ICCNLEV, IAERORAD, IAERODEP, IAEROPRNT' + print*,'ITRKEPSILON, ITRKDUST, ITRKDUSTIFN, ICHECKMIC.' + print*,'' + print*,'HUCM only uses the following microphysics flags:' + print*,'' + print*,'IMBUDGET, IPRIS, IGRAUP, IHAIL, HUCMFILE, NDTCOLL, IIFN' + print*,'IAEROHIST, CIN_MAX, CCN_MAX, IAERO_CHEM, AERO_MEDRAD' + print*,'' + print*,'Other microphysics flags that are NOT on/off switches are ignored.' + print*,'' + print*,'The LEVEL=3 microphysics aerosol categories are not used in HUCM.' + print*,'So aerosol radiation and deposition routines are not used.' + print*,'CCN and INP are specified in CCN_MAX and CIN_MAX for HUCM.' + IFATERR = IFATERR + 1 + endif + if (imbudget==3)then + print*,'FATAL - No dust nucleation tracking because there is' + print*,'no dust in HUCM-SBM. Set IMBUDGET < 3.' + IFATERR = IFATERR + 1 + endif + + +endif +!******************************************************************** +! END MICROPHYSICS AND AEROSOL FLAG CHECKING +!******************************************************************** + +1000 continue + +! Stop the run if there are any fatal errors. List how many +! warning and informative errors. + +PRINT*,' -----------opspec1--------------------------' +PRINT*,' FATAL errors - ',IFATERR +PRINT*,' WARNING errors - ',IWARERR +PRINT*,' INFORM messages - ',INFOERR +PRINT*,' -----------------------------------------------' + +IF(IFATERR.GT.0) STOP 'OPSPEC1' + +return +END SUBROUTINE opspec1 + +!############################################################################## +Subroutine opspec2 () + +! Check that fine mesh is a valid subset of its coarser mesh. +! and that top and bottom boundary flags are set correctly. +! (severity - F) + +use mem_grid +use mem_varinit + +implicit none + +integer :: icm,ifm,ifaterr,iwarerr,infoerr,ncx,ncy,nfx,nfxp,nfy,nfyp +integer :: nesta,nfz,kc + +IFATERR=0 +IWARERR=0 +INFOERR=0 + +DO ifm=1,NGRIDS + + icm = nxtnest(ifm) + if (icm .ge. 1) then + + NCX=(NNXP(ifm)-2)/NSTRATX(ifm) + NCY=(NNYP(ifm)-2)/NSTRATY(ifm) + + IF ((NNYP(ifm).EQ.1.AND.NNYP(icm).NE.1).OR. & + (NNYP(ifm).NE.1.AND.NNYP(icm).EQ.1)) THEN + PRINT*,' FATAL - Grids must be either all 3-D or all 2-D' + IFATERR=IFATERR+1 + ENDIF + + IF (NINEST(ifm).LT.3) THEN + PRINT 11, ifm + 11 FORMAT (' FATAL - Nest #',I3,' too close to western' & + ,' boundary of coarser mesh') + IFATERR=IFATERR+1 + ENDIF + + IF (NJNEST(ifm).LT.3.AND.NNYP(ifm).GT.1) THEN + PRINT 12, ifm + 12 FORMAT (' FATAL - Nest #',I3,' too close to southern' & + ,' boundary of coarser mesh') + IFATERR=IFATERR+1 + ENDIF + + IF (NKNEST(ifm).LT.3.AND.NNSTBOT(ifm).EQ.0) THEN + PRINT 13, ifm + 13 FORMAT (' FATAL - Nest #',I3,' too close to lower' & + ,' boundary of coarser mesh or NNSTBOT incorrect') + IFATERR=IFATERR+1 + ENDIF + + IF (NKNEST(ifm).NE.1.AND.NNSTBOT(ifm).EQ.1) THEN + PRINT 14, ifm + 14 FORMAT (' FATAL - Nest #',I3,' not to lower boundary of' & + ,' coarser mesh or NNSTBOT flag set incorrectly') + IFATERR=IFATERR+1 + ENDIF + + IF (NINEST(ifm)+NCX.GT.NNXP(icm)-3) THEN + PRINT 15, ifm + 15 FORMAT (' FATAL - Nest #',I3,' too close to eastern' & + ,' boundary of coarser mesh') + IFATERR=IFATERR+1 + ENDIF + + IF (NJNEST(ifm)+NCY.GT.NNYP(icm)-3.AND.NNYP(ifm).GT.1) THEN + PRINT 16, ifm + 16 FORMAT (' FATAL - Nest #',I3,' too close to northern' & + ,' boundary of coarser mesh') + IFATERR=IFATERR+1 + ENDIF + + IF (NCX.LT.2.OR.(NCY.LT.2.AND.NNYP(ifm).NE.1)) THEN + PRINT 17, ifm + 17 FORMAT (' FATAL - Nest #',I3,' dimensioned too small' & + ,' in at least one horizontal direction') + IFATERR=IFATERR+1 + ENDIF + + NFX=NCX*NSTRATX(ifm)+2 + IF (NNXP(ifm).NE.NFX) THEN + NFXP=NFX+NSTRATX(ifm) + PRINT 18, ifm,NFXP,NFX + 18 FORMAT (' FATAL - Nest #',I3,' NNXP incompatible with' & + ,' NSTRATX: May increase NNXP to',I5 & + ,' or decrease it to',I5) + IFATERR=IFATERR+1 + ENDIF + + NFY=NCY*NSTRATY(ifm)+2 + IF (NNYP(ifm).NE.NFY.AND.NNYP(ifm).GT.1) THEN + NFYP=NFY+NSTRATY(ifm) + PRINT 19, ifm,NFYP,NFY + 19 FORMAT (' FATAL - Nest #',I3,' NNYP incompatible with' & + ,' NSTRATY: May increase NNYP to',I5 & + ,' or decrease it to',I5) + IFATERR=IFATERR+1 + ENDIF + + IF (NNSTBOT(ifm).EQ.1.AND.NNSTBOT(icm).NE.1) THEN + PRINT 20, ifm + 20 FORMAT (' FATAL - Nest #',I3,' NNSTBOT flag incompatible' & + ,' with coarser mesh') + IFATERR=IFATERR+1 + ENDIF + + IF (NNSTTOP(ifm).EQ.1.AND.NNSTTOP(icm).NE.1) THEN + PRINT 21, ifm + 21 FORMAT (' FATAL - Nest #',I3,' NNSTTOP flag incompatible' & + ,' with coarser mesh') + IFATERR=IFATERR+1 + ENDIF + + endif +ENDDO + +nesta=abs(nestz) +if(nestz.ne.0.and.nesta.le.ngrids)then + nfz=nnzp(nesta)-2 + kc=nknest(nesta) + 1002 continue + kc=kc+1 + nfz=nfz-nrz(kc,nesta) + if(nfz.lt.0)then + print 195,nesta + 195 format(' FATAL - vertically nested grid #',i3, & + ' has illegal number of levels for given NSTRATZ values') + IFATERR=IFATERR+1 + ENDIF + if(nfz.gt.0)go to 1002 + if(nfz.eq.0)then + if(kc.gt.nnzp(nxtnest(nesta))-3.and.nnsttop(nesta).ne.1)then + PRINT 22, nesta + 22 FORMAT (' FATAL - Nest #',I3,' too high' & + ,' or NNSTTOP flag set incorrectly') + IFATERR=IFATERR+1 + ENDIF + + if(kc.ne.nnzp(nxtnest(nesta))-1.and.nnsttop(nesta).eq.1)then + PRINT 23, nesta + 23 FORMAT (' FATAL - Nest #',I3,' not to upper boundary of' & + ,' coarser mesh or NNSTTOP flag set incorrectly') + IFATERR=IFATERR+1 + ENDIF + endif +endif + +DO ifm = 1,NGRIDS + icm = nxtnest(ifm) + if (ifm < nesta .and. icm .ge. 1)then + if(nnzp(ifm).gt.nnzp(icm)-nknest(ifm)-1.and.nnsttop(ifm).eq.0)then + PRINT 24, ifm + 24 FORMAT (' FATAL - Nest #',I3,' NNZP incompatible with' & + ,' parent grid or NNSTTOP flag set incorrectly') + IFATERR=IFATERR+1 + ENDIF + + if(nnzp(ifm).ne.nnzp(icm)-nknest(ifm)+1.and.nnsttop(ifm).eq.1)then + PRINT 25, ifm + 25 FORMAT (' FATAL - Nest #',I3,' not to upper boundary of' & + ,' coarser mesh or NNSTTOP flag set incorrectly') + IFATERR=IFATERR+1 + ENDIF + endif +enddo + +! This need to be done here since VARFILES are filled before OPSPEC3 +if (VWAITTOT.lt.VWAIT1) then + print*,'Total wait time must be <= individual VARFILE wait' + print*,' resetting VWAITTOT to ',VWAIT1 + VWAITTOT=VWAIT1 + IWARERR=IWARERR+1 +endif + +! Stop the run if there are any fatal errors. List how many +! warning and informative errors. + +PRINT*,' -----------opspec2--------------------------' +PRINT*,' FATAL errors - ',IFATERR +PRINT*,' WARNING errors - ',IWARERR +PRINT*,' INFORM messages - ',INFOERR +PRINT*,' -----------------------------------------------' + +IF(IFATERR.GT.0) STOP 'OPSPEC2' + +return +END SUBROUTINE opspec2 + +!############################################################################## +Subroutine opspec3 () + +use mem_varinit +use mem_grid +use micphys +use io_params +use mem_radiate +use mem_cuparm +use mem_turb +use mem_leaf +use mem_sib, only:nzg_sib +use kpp_parameters, only:IKPP,FRQKPP + +implicit none + +integer :: k,ifaterr,iwarerr,infoerr,ng,ngr + +IFATERR=0 +IWARERR=0 +INFOERR=0 + +! Check that moisture is turned on if radiation is used. +! (severity - F) + + IF(ilwrtyp+iswrtyp.GT.0.AND.LEVEL.EQ.0)THEN + PRINT*,' FATAL - radiation scheme must be run with moisture.' + IFATERR=IFATERR+1 + ENDIF + +! Microphysics flags and parameter settings + +IF( ((icloud .GE. 2 .AND. icloud .LE. 4 .AND. cparm .LE. 0.) & + .OR.(idriz .GE. 2 .AND. idriz .LE. 4 .AND. dparm .LE. 0.) & + .OR.(irain .GE. 2 .AND. irain .LE. 4 .AND. rparm .LE. 0.) & + .OR.(ipris .GE. 2 .AND. ipris .LE. 4 .AND. pparm .LE. 0.) & + .OR.(isnow .GE. 2 .AND. isnow .LE. 4 .AND. Sparm .LE. 0.) & + .OR.(igraup .GE. 2 .AND. igraup .LE. 4 .AND. gparm .LE. 0.) & + .OR.(iaggr .GE. 2 .AND. iaggr .LE. 4 .AND. Aparm .LE. 0.) & + .OR.(ihail .GE. 2 .AND. ihail .LE. 4 .AND. hparm .LE. 0.)) & + .AND. level <=3) THEN + print*,' ' + print*,'FATAL - Microphysics - xPARM must be positive' & + ,'if micro flags are set to 2, 3, or 4:' + print*,'cparm:',cparm + print*,'dparm:',dparm + print*,'rparm:',rparm + print*,'pparm:',pparm + print*,'sparm:',sparm + print*,'aparm:',aparm + print*,'gparm:',gparm + print*,'hparm:',hparm + print*,' ' + IFATERR=IFATERR+1 +ENDIF + +IF(ibubble.lt.0 .or. ibubble.gt.3) then + PRINT*,' FATAL - IBUBBLE must be 0, 1, 2, or 3' + PRINT*,' 0 = off' + PRINT*,' 1 = RAMSIN-set square bubble' + PRINT*,' 2 = RAMSIN-set gaussian bubble' + PRINT*,' 3 = Random bubble in ruser' + IFATERR=IFATERR+1 +ENDIF + +IF(iconv.lt.0 .or. iconv.gt.5) then + PRINT*,' FATAL - ICONV must be 0 - 5' + PRINT*,' 0 = off' + PRINT*,' 1-5 = On with gaussian shape' + IFATERR=IFATERR+1 +ENDIF + +! Convective parameterization flags and parameter settings + +DO NG=1,NGRIDS + IF(NNQPARM(NG).GT.0.AND.LEVEL.EQ.0) THEN + PRINT 27 + 27 FORMAT (' FATAL - LEVEL must be at least' & + ,' 1 for the cumulus parameterization') + IFATERR=IFATERR+1 + ENDIF +ENDDO + +DO NG=1,NGRIDS + IF(NNQPARM(NG) == 2 .AND.LEVEL /= 3) THEN + PRINT 127 + 127 FORMAT (' FATAL - LEVEL must be set to' & + ,' 3 for the Kain-Fritsch cumulus parameterization') + IFATERR=IFATERR+1 + ENDIF +ENDDO + +! Check horizontal and vertical grid spacings. + +IF(DZMAX.LT.DELTAZ)THEN + PRINT*,' WARNING - DELTAZ is being reduced by a low value', & + ' of DZMAX.' + IWARERR=IWARERR+1 +ENDIF + +IF(DZRAT.GT.1.2)THEN + PRINT*,' WARNING - Large vertical stretch ratios sacrifice', & + ' second order accuracy in the vertical differencing.' + IWARERR=IWARERR+1 +ENDIF + +! Check numerical schemes. + +IF((SSPCT.LT.0.2.OR.SSPCT.GT.1.0).AND.SSPCT.NE.0.0)THEN + PRINT*,' WARNING - SSPCT should normally range from 0.2 to 1.0',sspct + IWARERR=IWARERR+1 +ENDIF + +IF(NFPT.GT.NNZP(1))THEN + PRINT*,' FATAL - NFPT must be less than nnzp(1).' + IFATERR=IFATERR+1 +ENDIF + +! Check turbulence parameterization. + +DO NGR=1,NGRIDS + IF(IDIFFK(NGR).LT.1.OR.IDIFFK(NGR).GT.4)THEN + PRINT*,' FATAL - IDIFFK must be 1, 2, 3, or 4.' + IFATERR=IFATERR+1 + ENDIF +ENDDO + +! Check that diffusion flags are compatible if using ihorgrad=1 + +if(ihorgrad.eq.2)then + if(IDIFFK(NGR) >= 3)then + print*,' FATAL - Cant use IHORGRAD=2 if IDIFFK >= 3' + IFATERR=IFATERR+1 + endif +endif + +! Check that diffusion of perturbations relative to varfile +! state only runs if varfiles are used for nudging. + +if(idiffperts==3 .and. nud_type==0) then + print*,' FATAL - Cant use IDIFFPERTS=3 without varfiles' + IFATERR=IFATERR+1 +endif + +! Check whether the soil model will be run and make sure that the +! number of soil levels are correct.(severity - F,I ) + +if(isoildat < 0 .or. isoildat > 1)then + PRINT*,' SOIL INITIALIZATION OPTION IS NEEDED: ISOILDAT = 0 or 1' + PRINT*,' ISOILDAT = 0 (for default horizontal homogeneous run)' + PRINT*,' ISOILDAT = 1 (for soil varfile initialization)' + ifaterr = ifaterr + 1 +endif +if(isoildat == 1)then + if (initial == 1 .or. (initial == 3 .and. initorig == 1)) then + PRINT*,' VARIABLE SOIL INITIALIZATION FOR INITIAL=2 ONLY' + ifaterr = ifaterr + 1 + endif +endif +if(isnowdat < 0 .or. isnowdat > 1)then + PRINT*,' SNOW INITIALIZATION OPTION IS NEEDED: ISNOWDAT = 0 or 1' + PRINT*,' ISNOWDAT = 0 (for default horizontal homogeneous run)' + PRINT*,' ISNOWDAT = 1 (for snow varfile initialization)' + ifaterr = ifaterr + 1 +endif +if(isnowdat == 1)then + if (initial == 1 .or. (initial == 3 .and. initorig == 1)) then + PRINT*,' VARIABLE SNOW INITIALIZATION FOR INITIAL=2 ONLY' + ifaterr = ifaterr + 1 + endif +endif + +IF(ISFCL.EQ.0.AND.NZG.GT.1)THEN + PRINT*,' INFO - more soil levels specified than needed.' + INFOERR=INFOERR+1 +ENDIF + +if (isfcl == 0 .and. npatch /= 2) then + print*, ' fatal - When isfcl = 0, npatch must be 2. ' + ifaterr = ifaterr + 1 +endif + +IF(ISFCL.GT.0.AND.NZG.LE.2)THEN + PRINT*, & + ' FATAL - at least 3 soil levels are needed for soil' & + ,' model.' + IFATERR=IFATERR+1 +ENDIF + +!If running SiB surface model, can only have 1 surface water layer +IF(ISFCL.EQ.2.AND.NZS.NE.1)THEN + PRINT*, & + ' FATAL - For running SiB, set NZS=1 to match SiB layers' & + ,' model.' + IFATERR=IFATERR+1 +ENDIF + +!If running SiB surface model, NZG=NZG_SIB +IF(ISFCL.EQ.2.AND.NZG.NE.nzg_sib)THEN + PRINT*, & + ' FATAL - For running SiB, set NZG=7 to match SiB layers' & + ,' model.' + IFATERR=IFATERR+1 +ENDIF + +do k=1,nzg + if (slz(k) .gt. -.001) then + print*, 'FATAL - Soil level',k,' not (enough) below ground' & + ,' level' + IFATERR=IFATERR+1 + endif +enddo + +do k=1,nzg-1 + if (slz(k)-slz(k+1) .gt. .001) then + print*, 'FATAL - Soil level',k,' not (enough) deeper than' & + ,' soil level',k+1 + IFATERR=IFATERR+1 + endif +enddo + +! If the soil model will be run with no radiation, make a suggestion +! that the radiation be turned on. (severity - F ) + +DO NGR=1,NGRIDS + IF(ISFCL.GT.0.AND.ilwrtyp+iswrtyp.EQ.0)THEN + PRINT*,' FATAL - radiation scheme must be run with soil', & + ' model.' + IFATERR=IFATERR+1 + ENDIF +ENDDO + +! If running KPP ocean model, make sure FRQKPP >= coarse grid timestep. +if (IKPP > 0 .and. FRQKPP < dtlongn(1)) then + print*, 'KPP timestep shorter than DTLONG for coard grid.' + print*, 'KPP timestep must be >= DTLONG.' + IFATERR=IFATERR+1 +endif + +! Make sure that if nudging, nudging time scales are greater than +! the model coarse grid timestep, and that Rayleigh friction nudging +! is not done with variable initialization. + +if (initial == 1 .or. (initial == 3 .and. initorig == 1)) then + if (nfpt .gt. 0 .and. distim .gt. 0. .and. & + distim .lt. dtlongn(1)) then + print*, 'Rayleigh friction nudging is being done' + print*, 'and DISTIM is less than DTLONGN(1).' + print*, 'This nudging is too strong.' + IFATERR=IFATERR+1 + endif +endif + +if (initial == 2 .or. (initial == 3 .and. initorig == 2)) then + + if (nfpt .gt. 0 .and. distim .gt. 0.) then + print*, 'Rayleigh friction nudging may not be used when' + print*, 'variable initialization is used.' + IFATERR=IFATERR+1 + endif + + if (nudlat .ge. 1 .and. tnudlat .gt. 0. .and. & + tnudlat .lt. dtlongn(1)) then + print*, 'Lateral boundary nudging is being done' + print*, 'and TNUDLAT is less than DTLONGN(1).' + print*, 'This nudging is too strong.' + IFATERR=IFATERR+1 + endif + + if (tnudcent .gt. 0. .and. tnudcent .lt. dtlongn(1)) then + print*, 'Center nudging is being done' + print*, 'and TNUDCENT is less than DTLONGN(1).' + print*, 'This nudging is too strong.' + IFATERR=IFATERR+1 + endif + + if (tnudtop .gt. 0. .and. tnudtop .lt. dtlongn(1)) then + print*, 'Top boundary nudging is being done' + print*, 'and TNUDTOP is less than DTLONGN(1).' + print*, 'This nudging is too strong.' + IFATERR=IFATERR+1 + endif + + if (snudcent .gt. 0. .and. snudcent .lt. dtlongn(1)) then + print*, 'Center nudging is being done for soil moisture' + print*, 'and SNUDCENT is less than DTLONGN(1).' + print*, 'This nudging is too strong.' + IFATERR=IFATERR+1 + endif + +endif + + +! Check the averaging and analysis frequencies for consistency. + +if (abs(AVGTIM).gt.0.0.and.FRQMEAN.le.0.0.and.FRQBOTH.le.0.) then + print*,'Have FRQMEAN=0 & FRQBOTH=0 even though AVGTIM=',AVGTIM + print*,'Respecifying AVGTIM=0.' + AVGTIM=0. + IWARERR=IWARERR+1 +endif +if (FRQMEAN.gt.0.0.and.abs(AVGTIM).gt.0.) then + if ( abs(AVGTIM).gt.FRQMEAN ) then + print*,'AVGTIM must be <= FRQMEAN' + IFATERR=IFATERR+1 + endif +endif +if (FRQBOTH.gt.0.0.and.abs(AVGTIM).gt.0.) then + if ( abs(AVGTIM).gt.FRQBOTH ) then + print*,'AVGTIM must be <= FRQBOTH' + IFATERR=IFATERR+1 + endif +endif +if (FRQMEAN.gt.0.0.and.FRQBOTH.gt.0.0.and.abs(AVGTIM).gt.0.) then + if ( (FRQMEAN.gt.FRQBOTH.and.mod(FRQMEAN,FRQBOTH).ne.0.).or. & + (FRQMEAN.lt.FRQBOTH.and.mod(FRQBOTH,FRQMEAN).ne.0.) ) then + print*,'FRQMEAN must be a multiple of FRQBOTH or vice versa' + IFATERR=IFATERR+1 + endif +endif + +! Stop the run if there are any fatal errors. List how many +! warning and informative errors. + +PRINT*,' -----------opspec3--------------------------' +PRINT*,' FATAL errors - ',IFATERR +PRINT*,' WARNING errors - ',IWARERR +PRINT*,' INFORM messages - ',INFOERR +PRINT*,' -----------------------------------------------' + +IF(IFATERR.GT.0) STOP 'OPSPEC3' + +return +END SUBROUTINE opspec3 + diff --git a/src/6.2.16/io/ranlavg.f90 b/src/6.2.16/io/ranlavg.f90 new file mode 100644 index 0000000..ad3e2b9 --- /dev/null +++ b/src/6.2.16/io/ranlavg.f90 @@ -0,0 +1,129 @@ +!############################################################################## +Subroutine anlavg () + +use var_tables +use mem_scratch +use mem_turb +use mem_basic +use node_mod +use mem_grid +use io_params + +implicit none + +integer :: nv,izero +real, pointer :: v_p, vm_p +integer, save :: ncall=0,navg +real, save :: avgtim1,frq,avgtim2,timem,timecent + +! This routine averages all of the analysis variables over +! ANLAVG. It also accumulates precipitation for all of the +! microphysics variables since the last analysis write. + +if(avgtim == 0.)return +if(frqmean == 0. .and. frqboth == 0.)return + +if(ncall.eq.0) then + ncall=1 +! Calculate the number of timestep to average over. Note that if +! AVGTIM>0, then need to have an equal number of timesteps on +! both sides of the analysis write, else can have an odd number +! of timesteps if the write represent an average at the end +! of the averaging period. + avgtim1=avgtim + if(avgtim.gt.0)then + avgtim=max(avgtim,2.*dtlongn(1)) + avgtim=float(nint(avgtim/dtlongn(1)/2.))*dtlongn(1)*2. + elseif(avgtim.lt.0)then + avgtim=min(avgtim,-dtlongn(1)) + avgtim=float(nint(avgtim/dtlongn(1)))*dtlongn(1) + endif + if(avgtim.ne.avgtim1)then + if(print_msg)then + print*,' ' + print*,'***************************************************' + print*,'***Changing AVGTIM so multiple of DTLONG',avgtim + print*,'***************************************************' + print*,' ' + endif + endif + navg=nint(abs(avgtim)/dtlongn(1)) + if(print_msg)then + print*,' ' + print*,'****************************************************' + print*,'**** AVERAGING OVER THESE # OF TIMESTEPS', navg + print*,'**** AVERAGING TIME=',avgtim + print*,'****************************************************' + print*,' ' + endif + +! Choose a output frequency + + if(frqmean.gt.0.0.and.frqboth.gt.0.)then + frq=min(frqmean,frqboth) + elseif(frqmean.gt.0.0.and.frqboth.eq.0.)then + frq=frqmean + elseif(frqmean.eq.0.0.and.frqboth.gt.0.)then + frq=frqboth + endif + +endif + +izero=0 +avgtim2=abs(avgtim)/2. +timem=time+0.01 +timecent=float(nint(timem/frq))*frq + +! No need to execute if not in the averaging interval. +if(avgtim.gt.0.0)then + if(timem.lt.avgtim2)return + if(timem.lt.timecent-avgtim2.or.timem.gt.timecent+avgtim2) return +elseif(avgtim.lt.0.0)then + if(mod(timem-avgtim,frq).gt.-avgtim)return +endif + +! Zero out the averages before accumulating. +if(avgtim.gt.0.0.and.mod(timem+avgtim2,frq).lt.dtlongn(1)) izero=1 +if(avgtim.lt.0.0.and.mod(timem-avgtim,frq).lt.dtlongn(1)) izero=1 + +! Implement call to NON_SCALAR_BC before updating averages. +! This sets all BC's for non-scalar (non-advected) quantities such +! as THETA, RV, and variables in LEAF, RADIATION, TURBULENCE. +CALL non_scalar_bc (mzp,mxp,myp,nzg,nzs,ibcon) + +! Loop through the main variable table + +do nv = 1,num_var(ngrid) + + if (vtab_r(nv,ngrid)%imean == 1) then + + v_p => vtab_r(nv,ngrid)%var_p + vm_p=> vtab_r(nv,ngrid)%var_m + + if(iprntstmt>=2)print*,'anlavg:',ngrid,nv,num_var(ngrid) & + ,trim(vtab_r(nv,ngrid)%name) + if(izero == 1) CALL azero (vtab_r(nv,ngrid)%npts,vm_p) + CALL average (vtab_r(nv,ngrid)%npts,vm_p,v_p,navg) + + endif + +enddo + +return +END SUBROUTINE anlavg + +!############################################################################## +Subroutine average (m,av,v,navg) + +implicit none + +integer :: m, navg +real :: av(m),v(m) +integer :: i + +do i=1,m + av(i)=av(i)+v(i)/float(navg) +enddo + +return +END SUBROUTINE average diff --git a/src/6.2.16/io/rcio.f90 b/src/6.2.16/io/rcio.f90 new file mode 100644 index 0000000..6120f02 --- /dev/null +++ b/src/6.2.16/io/rcio.f90 @@ -0,0 +1,312 @@ +!############################################################################## +Subroutine commio (io,iun) + +use micphys +use ref_sounding +use mem_grid +use mem_leaf +use leaf_coms +use kpp_parameters, only:nkppz +use mem_kpp, only:kpp_const_fields + +implicit none + +integer :: iun +character(len=*) :: io + +! This routine reads or writes the analysis file header. + +integer, external :: cio_i +integer, external :: cio_i1 +integer, external :: cio_f +integer, external :: cio_f1 +integer, external :: cio_c +character(len=2) :: cng +integer :: irw,ie,ng + +IF(IO.EQ.'READ') irw=1 +IF(IO.EQ.'WRITE') irw=2 + +!print*,'in commio ',io,' ',iun + +!Below are variables sent to analysis header file. +!Some are needed for history restart. You can see which ones are +!need for history restart in routine "history_start". +!Additional ones are needed for REVU post-processing. + +!Experiment name and type +ie=cio_c(iun,irw,'expnme',expnme,1) +ie=cio_i1(iun,irw,'initial',initial,1) +ie=cio_i1(iun,irw,'initorig',initorig,1) +ie=cio_i1(iun,irw,'jdim',jdim,1) !0 - NOT 2D, 1 - 2D simulations + +!Time sets +ie=cio_i1(iun,irw,'iyear1',iyear1,1) +ie=cio_i1(iun,irw,'imonth1',imonth1,1) +ie=cio_i1(iun,irw,'idate1',idate1,1) +ie=cio_i1(iun,irw,'itime1',itime1,1) +ie=cio_f1(iun,irw,'time',time,1) + +!Sounding State +ie=cio_i1(iun,irw,'nsndg',nsndg,1) !Number of input Sounding levels +ie=cio_f(iun,irw,'us',us,nsndg) +ie=cio_f(iun,irw,'vs',vs,nsndg) +ie=cio_f(iun,irw,'ts',ts,nsndg) +ie=cio_f(iun,irw,'thds',thds,nsndg) +ie=cio_f(iun,irw,'ps',ps,nsndg) +ie=cio_f(iun,irw,'hs',hs,nsndg) + +!Grid navigation and structures +ie=cio_i1(iun,irw,'ihtran',ihtran,1) +ie=cio_i1(iun,irw,'ngrids',ngrids,1) +ie=cio_i1(iun,irw,'nzg',nzg,1) +ie=cio_i1(iun,irw,'nzs',nzs,1) +ie=cio_i1(iun,irw,'npatch',npatch,1) +ie=cio_i1(iun,irw,'nvegpat',nvegpat,1) +ie=cio_i1(iun,irw,'nkppz',nkppz,1) +ie=cio_f1(iun,irw,'ztop',ztop,1) +ie=cio_f1(iun,irw,'polelat',polelat,1) +ie=cio_f1(iun,irw,'polelon',polelon,1) +ie=cio_i(iun,irw,'nnxp',nnxp,ngrids) +ie=cio_i(iun,irw,'nnyp',nnyp,ngrids) +ie=cio_i(iun,irw,'nnzp',nnzp,ngrids) +ie=cio_i(iun,irw,'nstratx',nstratx,ngrids) +ie=cio_i(iun,irw,'nstraty',nstraty,ngrids) +ie=cio_i(iun,irw,'nxtnest',nxtnest,ngrids) +ie=cio_i(iun,irw,'ninest',ninest,ngrids) +ie=cio_i(iun,irw,'njnest',njnest,ngrids) +ie=cio_i(iun,irw,'nknest',nknest,ngrids) +ie=cio_f(iun,irw,'deltaxn',deltaxn,ngrids) +ie=cio_f(iun,irw,'deltazn',deltazn,ngrids) +ie=cio_i1(iun,irw,'nestz',nestz,1) +ie=cio_i(iun,irw,'nstratz',nstratz,nnzp(1)) + +!Needed for acoustic routines +ie=cio_i(iun,irw,'ngbegun',ngbegun,ngrids) !0 at initial start, 1 thereafter + +!Reference state and grid stagger points +ie=cio_i1(iun,irw,'iref',iref,1) !I-grid point used for reference state +ie=cio_i1(iun,irw,'jref',jref,1) !J-grid point used for reference state +ie=cio_f1(iun,irw,'topref',topref,1) !Topography of reference state point +do ng=1,ngrids + write(cng,1) ng +1 format(i2.2) + ie=cio_f(iun,irw,'xmn'//cng,xmn(1,ng),nnxp(ng)) + ie=cio_f(iun,irw,'xtn'//cng,xtn(1,ng),nnxp(ng)) + ie=cio_f(iun,irw,'ymn'//cng,ymn(1,ng),nnyp(ng)) + ie=cio_f(iun,irw,'ytn'//cng,ytn(1,ng),nnyp(ng)) + ie=cio_f(iun,irw,'zmn'//cng,zmn(1,ng),nnzp(ng)) + ie=cio_f(iun,irw,'ztn'//cng,ztn(1,ng),nnzp(ng)) + ie=cio_f(iun,irw,'dzmn'//cng,dzmn(1,ng),nnzp(ng)) + ie=cio_f(iun,irw,'dztn'//cng,dztn(1,ng),nnzp(ng)) + ie=cio_f(iun,irw,'u01dn'//cng,u01dn(1,ng),nnzp(ng)) + ie=cio_f(iun,irw,'v01dn'//cng,v01dn(1,ng),nnzp(ng)) + ie=cio_f(iun,irw,'pi01dn'//cng,pi01dn(1,ng),nnzp(ng)) + ie=cio_f(iun,irw,'th01dn'//cng,th01dn(1,ng),nnzp(ng)) + ie=cio_f(iun,irw,'dn01dn'//cng,dn01dn(1,ng),nnzp(ng)) + ie=cio_f(iun,irw,'rt01dn'//cng,rt01dn(1,ng),nnzp(ng)) +enddo + +!KPP ocean model grid levels +ie=cio_f(iun,irw,'kppzm',kpp_const_fields%zm,nkppz) + +!Microphysics constants for hydromets and aerosols +ie=cio_f(iun,irw,'gnu',gnu,ncat) +ie=cio_i(iun,irw,'iaero_chem',iaero_chem,aerocat) +ie=cio_f(iun,irw,'cfmas',cfmas,nhcat) +ie=cio_f(iun,irw,'pwmas',pwmas,nhcat) + +!Leaf-3 surface characteristics +ie=cio_f(iun,irw,'slcpd',slcpd,nstyp) +ie=cio_f(iun,irw,'slmsts',slmsts,nstyp) +ie=cio_f(iun,irw,'slz',slz,nzg) + +return +END SUBROUTINE commio + +!############################################################################## +Subroutine cio_pos_file (iun,cstr,ierr) + +use mem_grid + +implicit none + +integer :: iun,ierr +character(len=*) :: cstr +character(len=strl2) :: line,csearch + +integer :: nl,nc,iend,ilen + +!print*,'cio_pos:',iun,cstr + +iend=0 +1 continue +do nl=1,1000000 + read(iun,10,end=100) line +10 format(a) + ilen=len(cstr) + csearch='__'//cstr(1:ilen) + nc=index(line,csearch(1:ilen+2) ) + !print*,'cio_pos:',nl,nc,line + if(nc.eq.1) then + ierr=0 + if(iprntstmt>=1 .and. print_msg) & + print*,'---- Name found on header file:',cstr + return + endif +enddo + +100 continue +if(iend.eq.1) then + ierr=1 + if(iprntstmt>=1 .and. print_msg) & + print*,'---- Name NOT found on header file:',cstr + rewind(iun) + return +endif +rewind(iun) +iend=1 +goto 1 + +END SUBROUTINE cio_pos_file + +!############################################################################## +integer Function cio_i (iun,irw,cstr,ia,n) + +implicit none + +integer :: iun,irw,n +integer :: ia(n) +character(len=*) :: cstr +integer :: nn,i + +if (irw.eq.1) then + CALL cio_pos_file (iun,cstr,cio_i) + if(cio_i.eq.1) return + read(iun,*) nn + read(iun,*) (ia(i),i=1,nn) +elseif(irw.eq.2) then + write(iun,20) cstr +20 format('__',a) + write(iun,*) n + write(iun,11) (ia(i),i=1,n) +11 format(i6) + cio_i = 0 +endif + +return +END FUNCTION cio_i + +!############################################################################## +integer Function cio_i1 (iun,irw,cstr,ia,n) + +implicit none + +integer :: iun,irw,n +integer :: ia +character(len=*) :: cstr +integer :: nn,i + +if (irw.eq.1) then + CALL cio_pos_file (iun,cstr,cio_i1) + if(cio_i1.eq.1) return + read(iun,*) nn + read(iun,*) ia + if(nn .ne. n) stop 'Variable array length not what expected in header' +elseif(irw.eq.2) then + write(iun,20) cstr +20 format('__',a) + write(iun,*) n + write(iun,11) ia +11 format(i6) + cio_i1 = 0 +endif + +return +END FUNCTION cio_i1 + +!############################################################################## +integer Function cio_f (iun,irw,cstr,ia,n) + +implicit none + +integer :: iun,irw,n +real ia(*) +character(len=*) :: cstr +integer :: nn,i + +if (irw.eq.1) then + CALL cio_pos_file (iun,cstr,cio_f) + if(cio_f.eq.1) return + read(iun,*) nn + read(iun,*) (ia(i),i=1,nn) +elseif(irw.eq.2) then + write(iun,20) cstr +20 format('__',a) + write(iun,*) n +!Saleeby(2012-02-07):Changed format from e16.8 to e26.18 +!Need more precision in header file for history restart + write(iun,11) (ia(i),i=1,n) +11 format(e26.18) + cio_f = 0 +endif + +return +END FUNCTION cio_f + +!############################################################################## +integer Function cio_f1 (iun,irw,cstr,ia,n) + +implicit none + +integer :: iun,irw,n +real :: ia +character(len=*) :: cstr +integer :: nn,i + +if (irw.eq.1) then + CALL cio_pos_file (iun,cstr,cio_f1) + if(cio_f1.eq.1) return + read(iun,*) nn + read(iun,*) ia + if(nn .ne. n) stop 'Variable array length not what expected in header' +elseif(irw.eq.2) then + write(iun,20) cstr +20 format('__',a) + write(iun,*) n +!Saleeby(2012-02-07):Changed format from e16.8 to e26.18 +!Need more precision in header file for history restart + write(iun,11) ia +11 format(e26.18) + cio_f1 = 0 +endif + +return +END FUNCTION cio_f1 + +!############################################################################## +integer Function cio_c (iun,irw,cstr,ia,n) + +implicit none + +integer :: iun,irw,n +character(len=*) :: ia(*) +character(len=*) :: cstr +integer :: nn,i + +if (irw.eq.1) then + CALL cio_pos_file (iun,cstr,cio_c) + if(cio_c.eq.1) return + read(iun,*) nn + read(iun,10) (ia(i),i=1,nn) +elseif(irw.eq.2) then + write(iun,20) cstr +20 format('__',a) + write(iun,*) n + write(iun,10) (trim(ia(i)),i=1,n) +10 format(a) + cio_c = 0 +endif + +return +END FUNCTION cio_c diff --git a/src/6.2.16/io/rname.f90 b/src/6.2.16/io/rname.f90 new file mode 100644 index 0000000..a0a26a0 --- /dev/null +++ b/src/6.2.16/io/rname.f90 @@ -0,0 +1,856 @@ +!############################################################################## +Subroutine nvfillm (group,vr,ii,ff,cc,nv) + +!Namelist reading routines for MODEL + +! Keep the list of variables here in sync with the list in broadcast_config() in mpass_init.f90 + +use mem_all +use node_mod +use leaf_coms, only:ifreeslip + +implicit none + +! This routine places values read in for a particular NAMELIST +! variable in the storage location(s) for that variable +! +! GROUP - NAMELIST group name +! VR - NAMELIST variable name +! II - vector of integer values +! FF - vector of real values +! CC - vector of character strings +! NV - number of values to be inserted + +character(len=*) :: group,vr,cc +real :: ff +integer :: ii,nv +integer :: inrflg +integer, parameter ::nvgrid=37,nvstrt=77,nvindat=142,nvsound=10 +integer :: igrids(nvgrid),istart(nvstrt),iindat(nvindat),isound(nvsound) +character(len=16) :: grids(nvgrid),start(nvstrt),indat(nvindat),sound(nvsound) +data igrids/nvgrid*0/,istart/nvstrt*0/,iindat/nvindat*0/,isound/nvsound*0/ + +DATA GRIDS/ & + 'EXPNME','RUNTYPE','TIMEUNIT','TIMMAX','IMONTH1','IDATE1','IYEAR1' & + ,'ITIME1','NGRIDS','NNXP','NNYP','NNZP','NZG','NZS','NXTNEST' & + ,'IPRNTSTMT','IHTRAN','DELTAX','DELTAZ','DZRAT' & + ,'DZMAX','ZZ','DTLONG','NACOUST','NSTRATX' & + ,'NNDTRAT','NESTZ','NSTRATZ','POLELAT','POLELON','NINEST','NJNEST' & + ,'NKNEST','CENTLAT','CENTLON','NNSTTOP','NNSTBOT'/ +DATA START/ & + 'INITIAL','NUD_TYPE','VARFPFX','VWAIT1','VWAITTOT' & + ,'NUDLAT','TNUDLAT','TNUDCENT','TNUDTOP','ZNUDTOP','WT_NUDGE_G' & + ,'WT_NUDGE_UV','WT_NUDGE_TH','WT_NUDGE_PI','WT_NUDGE_RT' & + ,'NUD_COND','TCOND_BEG','TCOND_END','T_NUDGE_RC','WT_NUDGEC' & + ,'IF_ODA','ODA_UPAPREF','ODA_SFCPREF','FRQODA','TODABEG' & + ,'TODAEND','TNUDODA','WT_ODA_GRID','WT_ODA_UV','WT_ODA_TH' & + ,'WT_ODA_PI','WT_ODA_RT','RODA_SFCE','RODA_SFC0','RODA_UPAE' & + ,'RODA_UPA0','RODA_HGT','RODA_ZFAC','ODA_SFC_TIL','ODA_SFC_TEL' & + ,'ODA_UPA_TIL','ODA_UPA_TEL','HFILIN','IPAST_SFC','ICLOBBER' & + ,'IOUTPUT','AFILEPREF','FRQSTATE','FRQST_KEEP','FRQLITE' & + ,'NLITE_VARS','LITE_VARS','AVGTIM','FRQMEAN','FRQBOTH','TOPFILES' & + ,'SFCFILES','SSTFPFX','NDVIFPFX','ITOPTFLG','ISSTFLG','IVEGTFLG' & + ,'ISOILFLG','NDVIFLG','IUPDNDVI','IUPDSST','ITOPTFN' & + ,'ISSTFN','IVEGTFN','ISOILFN','NDVIFN','ITOPSFLG','TOPTENH' & + ,'TOPTWVL','IZ0FLG','Z0MAX','Z0FACT'/ +DATA INDAT/ & + 'ICORFLG','IBND','JBND','CPHAS','LSFLG','NFPT','DISTIM','ISWRTYP' & + ,'ILWRTYP','RADFRQ','LONRAD','NNQPARM','CONFRQ','WCLDBS','IKPP' & + ,'NKPPZ','FRQKPP','RELAX_SST','RELAX_OCNT','RELAX_SAL','DMAXKPP' & + ,'DSCALEKPP','KPPITERMAX','KPPRNT','UBMN_KPP','NPATCH','NVEGPAT' & + ,'ISFCL','IFREESLIP','SIBFILE','CO2_INIT','ISOILDAT','SNUDCENT' & + ,'ISNOWDAT','NVGCON','PCTLCON','NSLCON','ZROUGH','ALBEDO','SEATMP' & + ,'DTHCON','DRTCON','SLZ','SLMSTR','STGOFF','IDIFFK','IDIFFPERTS' & + ,'IHORGRAD','CSX','CSZ','XKHKM','ZKHKM','AKMIN','IBUBBLE','IBUBGRD' & + ,'IBDXIA','IBDXIZ','IBDYJA','IBDYJZ','IBDZK1','IBDZK2','BTHP' & + ,'BRTP','ICONV','ICONGR','ICICENT','ICJCENT','CXRAD','CYRAD' & + ,'ICVERT','ICKMAX','CZRAD','ICKCENT','CDIVMAX','CTAU','CTMAX' & + ,'IRCE','RCE_SZEN','RCE_SOLC','RCE_UBMN','RCE_BUBL','LEVEL','ISCM' & + ,'ICHECKMIC','ITRACER','ITRACHIST','IMBUDGET','IRIME','IPLAWS' & + ,'ISEDIM','ICLOUD','IDRIZ','IRAIN','IPRIS','ISNOW','IAGGR' & + ,'IGRAUP','IHAIL','CPARM','DPARM','RPARM','PPARM','SPARM','APARM' & + ,'GPARM','HPARM','GNU','HUCMFILE','NDTCOLL','IAEROSOL','ISALT' & + ,'IDUST','IDUSTLOFT','DUSTFILE','ICCNLEV','IIFN','IIFN_FORMULA' & + ,'IAERORAD','IAERODEP','IAEROPRNT','IAEROHIST','CIN_MAX','CCN_MAX' & + ,'GCCN_MAX','DUST1_MAX','DUST2_MAX','SALTF_MAX','SALTJ_MAX' & + ,'SALTS_MAX','IAEROLBC','ICO2LBC','BCTAU','IAERO_CHEM' & + ,'AERO_EPSILON','AERO_MEDRAD','ITRKEPSILON','ITRKDUST' & + ,'ITRKDUSTIFN','SCMTIME','ISCMX','ISCMY','FRACSAT'/ +DATA SOUND/ & + 'IPSFLG','ITSFLG','IRTSFLG','IUSFLG','HS','PS','TS','RTS','US','VS'/ + +!############################################################################## +interface +!############################################################################## +Subroutine varsetf (c1,f1,i1,i2,f2,f3,f4) + +implicit none + + character(len=*) :: c1 + real :: f1,f2,f3,f4 + integer :: i1,i2 + +END SUBROUTINE varsetf +!############################################################################## +Subroutine varseti (c1,i1,i2,i3,i4,i5,i6) + +implicit none + + character(len=*) :: c1 + integer :: i1,i2,i3,i4,i5,i6 + +END SUBROUTINE varseti +!############################################################################## +End Interface +!############################################################################## + +!print*,'vars:',GROUP,'---',trim(VR),'---',ii,ff,cc,nv + +IF(GROUP.EQ.'$MODEL_GRIDS') THEN + CALL varchk (VR,GROUP,GRIDS,IGRIDS,NVGRID,INRFLG) + IF(INRFLG.EQ.1) RETURN + IF(VR.EQ.'EXPNME') CALL varsetc (VR,EXPNME,NV,1,CC,1,strl1) + IF(VR.EQ.'RUNTYPE') CALL varsetc (VR,RUNTYPE,NV,1,CC,1,16) + IF(VR.EQ.'TIMEUNIT') CALL varsetc (VR,TIMEUNIT,NV,1,CC,1,10) + IF(VR.EQ.'TIMMAX') CALL varsetf (VR,TIMMAX,NV,1,FF,0.,1.E20) + IF(VR.EQ.'IMONTH1') CALL varseti (VR,IMONTH1,NV,1,II,1,12) + IF(VR.EQ.'IDATE1') CALL varseti (VR,IDATE1,NV,1,II,1,31) + IF(VR.EQ.'IYEAR1') CALL varseti (VR,IYEAR1,NV,1,II,0,9999) + IF(VR.EQ.'ITIME1') CALL varseti (VR,ITIME1,NV,1,II,0,2359) + IF(VR.EQ.'NGRIDS') CALL varseti (VR,NGRIDS,NV,1,II,1,9) + IF(VR.EQ.'NNXP') CALL varseti (VR,NNXP(NV),NV,MAXGRDS,II,1,10000) + IF(VR.EQ.'NNYP') CALL varseti (VR,NNYP(NV),NV,MAXGRDS,II,1,10000) + IF(VR.EQ.'NNZP') CALL varseti (VR,NNZP(NV),NV,MAXGRDS,II,1,10000) + IF(VR.EQ.'NZG') CALL varseti (VR,NZG,NV,1,II,1,10000) + IF(VR.EQ.'NZS') CALL varseti (VR,NZS,NV,1,II,1,10000) + IF(VR.EQ.'NXTNEST') CALL varseti (VR,NXTNEST(NV),NV,MAXGRDS,II,0,20) + IF(VR.EQ.'IPRNTSTMT') CALL varseti (VR,IPRNTSTMT,NV,1,II,0,2) + IF(VR.EQ.'IHTRAN') CALL varseti (VR,IHTRAN,NV,1,II,0,1) + IF(VR.EQ.'DELTAX') CALL varsetf (VR,DELTAX,NV,1,FF,.001,1.E6) + IF(VR.EQ.'DELTAZ') CALL varsetf (VR,DELTAZ,NV,1,FF,0.,1.E5) + IF(VR.EQ.'DZRAT') CALL varsetf (VR,DZRAT,NV,1,FF,.1,10.) + IF(VR.EQ.'DZMAX') CALL varsetf (VR,DZMAX,NV,1,FF,.001,1.E5) + IF(VR.EQ.'ZZ') CALL varsetf (VR,ZZ(NV),NV,NZPMAX,FF,0.,1.E6) + IF(VR.EQ.'DTLONG') CALL varsetf (VR,DTLONG,NV,1,FF,0.,1.E8) + IF(VR.EQ.'NACOUST') CALL varseti (VR,NACOUST,NV,1,II,1,20) + IF(VR.EQ.'NSTRATX') CALL varseti (VR,NSTRATX(NV),NV,MAXGRDS,II,1,20) + IF(VR.EQ.'NNDTRAT') CALL varseti (VR,NNDTRAT(NV),NV,MAXGRDS,II,0,20) + IF(VR.EQ.'NESTZ') CALL varseti (VR,NESTZ,NV,1,II,-100,100) + IF(VR.EQ.'NSTRATZ') CALL varseti (VR,NSTRATZ(NV),NV,NZPMAX,II,1,10) + IF(VR.EQ.'POLELAT') CALL varsetf (VR,POLELAT,NV,1,FF,-90.,90.) + IF(VR.EQ.'POLELON') CALL varsetf (VR,POLELON,NV,1,FF,-180.,180.) + IF(VR.EQ.'NINEST') CALL varseti (VR,NINEST(NV),NV,MAXGRDS,II,0,10000) + IF(VR.EQ.'NJNEST') CALL varseti (VR,NJNEST(NV),NV,MAXGRDS,II,0,10000) + IF(VR.EQ.'NKNEST') CALL varseti (VR,NKNEST(NV),NV,MAXGRDS,II,1,10000) + IF(VR.EQ.'CENTLAT') CALL varsetf (VR,CENTLAT(NV),NV,MAXGRDS,FF,-90.,90.) + IF(VR.EQ.'CENTLON') CALL varsetf (VR,CENTLON(NV),NV,MAXGRDS,FF,-180.,180.) + IF(VR.EQ.'NNSTTOP') CALL varseti (VR,NNSTTOP(NV),NV,MAXGRDS,II,0,1) + IF(VR.EQ.'NNSTBOT') CALL varseti (VR,NNSTBOT(NV),NV,MAXGRDS,II,0,1) +ENDIF + +IF(GROUP.EQ.'$MODEL_FILE_INFO') THEN + CALL varchk (VR,GROUP,START,ISTART,NVSTRT,INRFLG) + IF(INRFLG.EQ.1) RETURN + IF(VR.EQ.'INITIAL') CALL varseti (VR,INITIAL,NV,1,II,1,3) + IF(VR.EQ.'NUD_TYPE') CALL varseti (VR,NUD_TYPE,NV,1,II,0,1) + IF(VR.EQ.'VARFPFX') CALL varsetc (VR,VARFPFX,NV,1,CC,1,strl1) + IF(VR.EQ.'VWAIT1') CALL varsetf (VR,VWAIT1,NV,1,FF,0.,1.e20) + IF(VR.EQ.'VWAITTOT') CALL varsetf (VR,VWAITTOT,NV,1,FF,0.,1.e20) + IF(VR.EQ.'NUDLAT') CALL varseti (VR,NUDLAT,NV,1,II,0,10000) + IF(VR.EQ.'TNUDLAT') CALL varsetf (VR,TNUDLAT,NV,1,FF,0.,1.e10) + IF(VR.EQ.'TNUDCENT') CALL varsetf (VR,TNUDCENT,NV,1,FF,0.,1.e10) + IF(VR.EQ.'TNUDTOP') CALL varsetf (VR,TNUDTOP,NV,1,FF,0.,1.e10) + IF(VR.EQ.'ZNUDTOP') CALL varsetf (VR,ZNUDTOP,NV,1,FF,0.,1.e10) + IF(VR.EQ.'WT_NUDGE_G') CALL varsetf (VR,WT_NUDGE_G(NV),NV,MAXGRDS,FF,0.,10.0) + IF(VR.EQ.'WT_NUDGE_UV') CALL varsetf (VR,WT_NUDGE_UV,NV,1,FF,0.,10.0) + IF(VR.EQ.'WT_NUDGE_TH') CALL varsetf (VR,WT_NUDGE_TH,NV,1,FF,0.,10.0) + IF(VR.EQ.'WT_NUDGE_PI') CALL varsetf (VR,WT_NUDGE_PI,NV,1,FF,0.,10.0) + IF(VR.EQ.'WT_NUDGE_RT') CALL varsetf (VR,WT_NUDGE_RT,NV,1,FF,0.,10.0) + IF(VR.EQ.'NUD_COND') CALL varseti (VR,NUD_COND,NV,1,II,0,1) + IF(VR.EQ.'TCOND_BEG') CALL varsetf (VR,TCOND_BEG,NV,1,FF,0.,1.e20) + IF(VR.EQ.'TCOND_END') CALL varsetf (VR,TCOND_END,NV,1,FF,0.,1.e20) + IF(VR.EQ.'T_NUDGE_RC') CALL varsetf (VR,T_NUDGE_RC,NV,1,FF,0.,1.e20) + IF(VR.EQ.'WT_NUDGEC') CALL varsetf (VR,WT_NUDGEC(NV),NV,MAXGRDS,FF,0.,1.e20) + IF(VR.EQ.'IF_ODA') CALL varseti (VR,IF_ODA,NV,1,II,0,1) + IF(VR.EQ.'ODA_UPAPREF') CALL varsetc (VR,ODA_UPAPREF,NV,1,CC,1,strl1) + IF(VR.EQ.'ODA_SFCPREF') CALL varsetc (VR,ODA_SFCPREF,NV,1,CC,1,strl1) + IF(VR.EQ.'FRQODA') CALL varsetf (VR,FRQODA,NV,1,FF,0.,1.E20) + IF(VR.EQ.'TODABEG') CALL varsetf (VR,TODABEG,NV,1,FF,0.,1.E20) + IF(VR.EQ.'TODAEND') CALL varsetf (VR,TODAEND,NV,1,FF,0.,1.E20) + IF(VR.EQ.'TNUDODA') CALL varsetf (VR,TNUDODA,NV,1,FF,0.,1.e20) + IF(VR.EQ.'WT_ODA_GRID') CALL varsetf (VR,WT_ODA_GRID(NV),NV,MAXGRDS,FF,0.,10.) + IF(VR.EQ.'WT_ODA_UV') CALL varsetf (VR,WT_ODA_UV,NV,1,FF,0.,10.0) + IF(VR.EQ.'WT_ODA_TH') CALL varsetf (VR,WT_ODA_TH,NV,1,FF,0.,10.0) + IF(VR.EQ.'WT_ODA_PI') CALL varsetf (VR,WT_ODA_PI,NV,1,FF,0.,10.0) + IF(VR.EQ.'WT_ODA_RT') CALL varsetf (VR,WT_ODA_RT,NV,1,FF,0.,10.0) + IF(VR.EQ.'RODA_SFCE') CALL varsetf (VR,RODA_SFCE(NV),NV,MAXGRDS,FF,1.,1.e20) + IF(VR.EQ.'RODA_SFC0') CALL varsetf (VR,RODA_SFC0(NV),NV,MAXGRDS,FF,1.,1.e20) + IF(VR.EQ.'RODA_UPAE') CALL varsetf (VR,RODA_UPAE(NV),NV,MAXGRDS,FF,1.,1.e20) + IF(VR.EQ.'RODA_UPA0') CALL varsetf (VR,RODA_UPA0(NV),NV,MAXGRDS,FF,1.,1.e20) + IF(VR.EQ.'RODA_HGT') CALL varsetf (VR,RODA_HGT(NV),NV,MAXGRDS,FF,1.,1.e20) + IF(VR.EQ.'RODA_ZFAC') CALL varsetf (VR,RODA_ZFAC(NV),NV,MAXGRDS,FF,1.,1.e20) + IF(VR.EQ.'ODA_SFC_TIL') CALL varsetf (VR,ODA_SFC_TIL,NV,1,FF,0.,1.E20) + IF(VR.EQ.'ODA_SFC_TEL') CALL varsetf (VR,ODA_SFC_TEL,NV,1,FF,0.,1.E20) + IF(VR.EQ.'ODA_UPA_TIL') CALL varsetf (VR,ODA_UPA_TIL,NV,1,FF,0.,1.E20) + IF(VR.EQ.'ODA_UPA_TEL') CALL varsetf (VR,ODA_UPA_TEL,NV,1,FF,0.,1.E20) + IF(VR.EQ.'HFILIN') CALL varsetc (VR,HFILIN,NV,1,CC,1,strl1) + IF(VR.EQ.'IPAST_SFC') CALL varseti (VR,IPAST_SFC,NV,1,II,0,1) + IF(VR.EQ.'ICLOBBER') CALL varseti (VR,ICLOBBER,NV,1,II,0,1) + IF(VR.EQ.'IOUTPUT') CALL varseti (VR,IOUTPUT,NV,1,II,0,1) + IF(VR.EQ.'AFILEPREF') CALL varsetc (VR,AFILEPREF,NV,1,CC,1,strl1) + IF(VR.EQ.'FRQSTATE') CALL varsetf (VR,FRQSTATE(NV),NV,MAXGRDS,FF,0.,1.E20) + IF(VR.EQ.'FRQST_KEEP') CALL varsetf (VR,FRQST_KEEP,NV,1,FF,0.,1.E20) + IF(VR.EQ.'FRQLITE') CALL varsetf (VR,FRQLITE,NV,1,FF,0.,1.E20) + IF(VR.EQ.'NLITE_VARS') CALL varseti (VR,NLITE_VARS,NV,1,II,0,MAXLITE) + IF(VR.EQ.'LITE_VARS') CALL varsetc (VR,LITE_VARS(NV),NV,MAXLITE,CC,1,32) + IF(VR.EQ.'AVGTIM') CALL varsetf (VR,AVGTIM,NV,1,FF,-1.E20,1.E20) + IF(VR.EQ.'FRQMEAN') CALL varsetf (VR,FRQMEAN,NV,1,FF,0.,1.E20) + IF(VR.EQ.'FRQBOTH') CALL varsetf (VR,FRQBOTH,NV,1,FF,0.,1.E20) + IF(VR.EQ.'TOPFILES') CALL varsetc (VR,TOPFILES,NV,1,CC,1,strl1) + IF(VR.EQ.'SFCFILES') CALL varsetc (VR,SFCFILES,NV,1,CC,1,strl1) + IF(VR.EQ.'SSTFPFX') CALL varsetc (VR,SSTFPFX,NV,1,CC,1,strl1) + IF(VR.EQ.'NDVIFPFX') CALL varsetc (VR,NDVIFPFX,NV,1,CC,1,strl1) + IF(VR.EQ.'ITOPTFLG') CALL varseti (VR,ITOPTFLG(NV),NV,MAXGRDS,II,0,2) + IF(VR.EQ.'ISSTFLG') CALL varseti (VR,ISSTFLG(NV),NV,MAXGRDS,II,0,2) + IF(VR.EQ.'IVEGTFLG') CALL varseti (VR,IVEGTFLG(NV),NV,MAXGRDS,II,0,2) + IF(VR.EQ.'ISOILFLG') CALL varseti (VR,ISOILFLG(NV),NV,MAXGRDS,II,0,2) + IF(VR.EQ.'NDVIFLG') CALL varseti (VR,NDVIFLG(NV),NV,MAXGRDS,II,0,3) + IF(VR.EQ.'IUPDNDVI') CALL varseti (VR,IUPDNDVI,NV,1,II,0,2) + IF(VR.EQ.'IUPDSST') CALL varseti (VR,IUPDSST,NV,1,II,0,2) + IF(VR.EQ.'ITOPTFN') CALL varsetc (VR,ITOPTFN(NV),NV,MAXGRDS,CC,1,strl1) + IF(VR.EQ.'ISSTFN') CALL varsetc (VR,ISSTFN(NV),NV,MAXGRDS,CC,1,strl1) + IF(VR.EQ.'IVEGTFN') CALL varsetc (VR,IVEGTFN(NV),NV,MAXGRDS,CC,1,strl1) + IF(VR.EQ.'ISOILFN') CALL varsetc (VR,ISOILFN(NV),NV,MAXGRDS,CC,1,strl1) + IF(VR.EQ.'NDVIFN') CALL varsetc (VR,NDVIFN(NV),NV,MAXGRDS,CC,1,strl1) + IF(VR.EQ.'ITOPSFLG') CALL varseti (VR,ITOPSFLG(NV),NV,MAXGRDS,II,0,3) + IF(VR.EQ.'TOPTENH') CALL varsetf (VR,TOPTENH(NV),NV,MAXGRDS,FF,0.,5.) + IF(VR.EQ.'TOPTWVL') CALL varsetf (VR,TOPTWVL(NV),NV,MAXGRDS,FF,2.,9.) + IF(VR.EQ.'IZ0FLG') CALL varseti (VR,IZ0FLG(NV),NV,MAXGRDS,II,0,1) + IF(VR.EQ.'Z0MAX') CALL varsetf (VR,Z0MAX(NV),NV,MAXGRDS,FF,0.,20.) + IF(VR.EQ.'Z0FACT') CALL varsetf (VR,Z0FACT,NV,1,FF,.0001,.1) +ENDIF + +IF(GROUP.EQ.'$MODEL_OPTIONS') THEN + CALL varchk (VR,GROUP,INDAT,IINDAT,NVINDAT,INRFLG) + IF(INRFLG.EQ.1) RETURN + IF(VR.EQ.'ICORFLG') CALL varseti (VR,ICORFLG,NV,1,II,0,1) + IF(VR.EQ.'IBND') CALL varseti (VR,IBND,NV,1,II,1,2) + IF(VR.EQ.'JBND') CALL varseti (VR,JBND,NV,1,II,1,2) + IF(VR.EQ.'CPHAS') CALL varsetf (VR,CPHAS,NV,1,FF,.001,1.E8) + IF(VR.EQ.'LSFLG') CALL varseti (VR,LSFLG,NV,1,II,0,3) + IF(VR.EQ.'NFPT') CALL varseti (VR,NFPT,NV,1,II,0,10000) + IF(VR.EQ.'DISTIM') CALL varsetf (VR,DISTIM,NV,1,FF,0.,10000.) + IF(VR.EQ.'ISWRTYP') CALL varseti (VR,ISWRTYP,NV,1,II,0,3) + IF(VR.EQ.'ILWRTYP') CALL varseti (VR,ILWRTYP,NV,1,II,0,3) + IF(VR.EQ.'RADFRQ') CALL varsetf (VR,RADFRQ,NV,1,FF,.001,100000.) + IF(VR.EQ.'LONRAD') CALL varseti (VR,LONRAD,NV,1,II,0,1) + IF(VR.EQ.'NNQPARM') CALL varseti (VR,NNQPARM(NV),NV,MAXGRDS,II,0,2) + IF(VR.EQ.'CONFRQ') CALL varsetf (VR,CONFRQ,NV,1,FF,.001,100000.) + IF(VR.EQ.'WCLDBS') CALL varsetf (VR,WCLDBS,NV,1,FF,-10.,10.) + IF(VR.EQ.'IKPP') CALL varseti (VR,IKPP,NV,1,II,0,2) + IF(VR.EQ.'NKPPZ') CALL varseti (VR,NKPPZ,NV,1,II,5,200) + IF(VR.EQ.'FRQKPP') CALL varsetf (VR,FRQKPP,NV,1,FF,.001,3600.) + IF(VR.EQ.'RELAX_SST') CALL varsetf (VR,RELAX_SST,NV,1,FF,0.,360.) + IF(VR.EQ.'RELAX_OCNT') CALL varsetf (VR,RELAX_OCNT,NV,1,FF,0.,360.) + IF(VR.EQ.'RELAX_SAL') CALL varsetf (VR,RELAX_SAL,NV,1,FF,0.,360.) + IF(VR.EQ.'DMAXKPP') CALL varsetf (VR,DMAXKPP,NV,1,FF,100.,3000.) + IF(VR.EQ.'DSCALEKPP') CALL varsetf (VR,DSCALEKPP,NV,1,FF,1.,20.) + IF(VR.EQ.'KPPITERMAX') CALL varseti (VR,KPPITERMAX,NV,1,II,1,1000) + IF(VR.EQ.'KPPRNT') CALL varseti (VR,KPPRNT,NV,1,II,0,5) + IF(VR.EQ.'UBMN_KPP') CALL varsetf (VR,UBMN_KPP,NV,1,FF,0.,7.) + IF(VR.EQ.'NPATCH') CALL varseti (VR,NPATCH,NV,1,II,2,10) + IF(VR.EQ.'NVEGPAT') CALL varseti (VR,NVEGPAT,NV,1,II,1,10) + IF(VR.EQ.'ISFCL') CALL varseti (VR,ISFCL,NV,1,II,0,2) + IF(VR.EQ.'IFREESLIP') CALL varseti (VR,IFREESLIP,NV,1,II,0,1) + IF(VR.EQ.'SIBFILE') CALL varsetc (VR,SIBFILE,NV,1,CC,1,strl1) + IF(VR.EQ.'CO2_INIT') CALL varsetf (VR,CO2_INIT(NV),NV,NZPMAX,FF,0.,1000.) + IF(VR.EQ.'ISOILDAT') CALL varseti (VR,ISOILDAT,NV,1,II,0,1) + IF(VR.EQ.'SNUDCENT') CALL varsetf (VR,SNUDCENT,NV,1,FF,0.,1.e10) + IF(VR.EQ.'ISNOWDAT') CALL varseti (VR,ISNOWDAT,NV,1,II,0,1) + IF(VR.EQ.'NVGCON') CALL varseti (VR,NVGCON,NV,1,II,0,20) + IF(VR.EQ.'PCTLCON') CALL varsetf (VR,PCTLCON,NV,1,FF,0.,1.) + IF(VR.EQ.'NSLCON') CALL varseti (VR,NSLCON,NV,1,II,1,12) + IF(VR.EQ.'ZROUGH') CALL varsetf (VR,ZROUGH,NV,1,FF,.0001,100.) + IF(VR.EQ.'ALBEDO') CALL varsetf (VR,ALBEDO,NV,1,FF,0.,1.) + IF(VR.EQ.'SEATMP') CALL varsetf (VR,SEATMP,NV,1,FF,100.,500.) + IF(VR.EQ.'DTHCON') CALL varsetf (VR,DTHCON,NV,1,FF,-100.,100.) + IF(VR.EQ.'DRTCON') CALL varsetf (VR,DRTCON,NV,1,FF,-1.,1.) + IF(VR.EQ.'SLZ') CALL varsetf (VR,SLZ(NV),NV,NZGMAX,FF,-1.E5,0.) + IF(VR.EQ.'SLMSTR') CALL varsetf (VR,SLMSTR(NV),NV,NZGMAX,FF,0.,1.) + IF(VR.EQ.'STGOFF') CALL varsetf (VR,STGOFF(NV),NV,NZGMAX,FF,-50.,50.) + IF(VR.EQ.'IDIFFK') CALL varseti (VR,IDIFFK(NV),NV,MAXGRDS,II,1,4) + IF(VR.EQ.'IDIFFPERTS') CALL varseti (VR,IDIFFPERTS,NV,1,II,0,3) + IF(VR.EQ.'IHORGRAD') CALL varseti (VR,IHORGRAD,NV,1,II,1,2) + IF(VR.EQ.'CSX') CALL varsetf (VR,CSX(NV),NV,MAXGRDS,FF,0.,10.) + IF(VR.EQ.'CSZ') CALL varsetf (VR,CSZ(NV),NV,MAXGRDS,FF,0.,10.) + IF(VR.EQ.'XKHKM') CALL varsetf (VR,XKHKM(NV),NV,MAXGRDS,FF,0.,100.) + IF(VR.EQ.'ZKHKM') CALL varsetf (VR,ZKHKM(NV),NV,MAXGRDS,FF,0.,100.) + IF(VR.EQ.'AKMIN') CALL varsetf (VR,AKMIN(NV),NV,MAXGRDS,FF,0.,5.) + IF(VR.EQ.'FRACSAT') CALL varsetf (VR,FRACSAT,NV,1,FF,0.000,2.000) + IF(VR.EQ.'IBUBBLE') CALL varseti (VR,IBUBBLE,NV,1,II,0,3) + IF(VR.EQ.'IBUBGRD') CALL varseti (VR,IBUBGRD,NV,1,II,1,10) + IF(VR.EQ.'IBDXIA') CALL varseti (VR,IBDXIA,NV,1,II,1,3000) + IF(VR.EQ.'IBDXIZ') CALL varseti (VR,IBDXIZ,NV,1,II,1,3000) + IF(VR.EQ.'IBDYJA') CALL varseti (VR,IBDYJA,NV,1,II,1,3000) + IF(VR.EQ.'IBDYJZ') CALL varseti (VR,IBDYJZ,NV,1,II,1,3000) + IF(VR.EQ.'IBDZK1') CALL varseti (VR,IBDZK1,NV,1,II,1,300) + IF(VR.EQ.'IBDZK2') CALL varseti (VR,IBDZK2,NV,1,II,1,300) + IF(VR.EQ.'BTHP') CALL varsetf (VR,BTHP,NV,1,FF,-20.,20.) + IF(VR.EQ.'BRTP') CALL varsetf (VR,BRTP,NV,1,FF,-1.,10.) + IF(VR.EQ.'ICONV') CALL varseti (VR,ICONV,NV,1,II,0,5) + IF(VR.EQ.'ICONGR') CALL varseti (VR,ICONGR,NV,1,II,0,10) + IF(VR.EQ.'ICICENT') CALL varseti (VR,ICICENT,NV,1,II,1,3000) + IF(VR.EQ.'ICJCENT') CALL varseti (VR,ICJCENT,NV,1,II,1,3000) + IF(VR.EQ.'CXRAD') CALL varsetf (VR,CXRAD,NV,1,FF,0.,100000.) + IF(VR.EQ.'CYRAD') CALL varsetf (VR,CYRAD,NV,1,FF,0.,100000.) + IF(VR.EQ.'ICVERT') CALL varseti (VR,ICVERT,NV,1,II,1,2) + IF(VR.EQ.'ICKMAX') CALL varseti (VR,ICKMAX,NV,1,II,1,300) + IF(VR.EQ.'CZRAD') CALL varsetf (VR,CZRAD,NV,1,FF,0.,10000.) + IF(VR.EQ.'ICKCENT') CALL varseti (VR,ICKCENT,NV,1,II,1,3000) + IF(VR.EQ.'CDIVMAX') CALL varsetf (VR,CDIVMAX,NV,1,FF,-1.,1.) + IF(VR.EQ.'CTAU') CALL varsetf (VR,CTAU,NV,1,FF,1.,86400.) + IF(VR.EQ.'CTMAX') CALL varsetf (VR,CTMAX,NV,1,FF,-200.,86400.) + IF(VR.EQ.'IRCE') CALL varseti (VR,IRCE,NV,1,II,0,1) + IF(VR.EQ.'RCE_SZEN') CALL varsetf (VR,RCE_SZEN,NV,1,FF,0.,90.) + IF(VR.EQ.'RCE_SOLC') CALL varsetf (VR,RCE_SOLC,NV,1,FF,0.,3000.) + IF(VR.EQ.'RCE_UBMN') CALL varsetf (VR,RCE_UBMN,NV,1,FF,0.,7.) + IF(VR.EQ.'RCE_BUBL') CALL varsetf (VR,RCE_BUBL,NV,1,FF,0.,5.) + IF(VR.EQ.'ITRACER') CALL varseti (VR,ITRACER,NV,1,II,0,100) + IF(VR.EQ.'ITRACHIST') CALL varseti (VR,ITRACHIST,NV,1,II,0,1) + IF(VR.EQ.'LEVEL') CALL varseti (VR,LEVEL,NV,1,II,0,4) + IF(VR.EQ.'ISCM') CALL varseti (VR,ISCM,NV,1,II,0,10) + IF(VR.EQ.'SCMTIME') CALL varsetf (VR,SCMTIME,NV,1,FF,0.,1.E20) + IF(VR.EQ.'ISCMX') CALL varseti (VR,ISCMX,NV,1,II,0,90000) + IF(VR.EQ.'ISCMY') CALL varseti (VR,ISCMY,NV,1,II,0,90000) + IF(VR.EQ.'ICHECKMIC') CALL varseti (VR,ICHECKMIC,NV,1,II,0,2) + IF(VR.EQ.'IMBUDGET') CALL varseti (VR,IMBUDGET,NV,1,II,0,3) + IF(VR.EQ.'IRIME') CALL varseti (VR,IRIME,NV,1,II,0,1) + IF(VR.EQ.'IPLAWS') CALL varseti (VR,IPLAWS,NV,1,II,0,2) + IF(VR.EQ.'ISEDIM') CALL varseti (VR,ISEDIM,NV,1,II,0,1) + IF(VR.EQ.'ICLOUD') CALL varseti (VR,ICLOUD,NV,1,II,0,5) + IF(VR.EQ.'IDRIZ') CALL varseti (VR,IDRIZ,NV,1,II,0,5) + IF(VR.EQ.'IRAIN') CALL varseti (VR,IRAIN,NV,1,II,0,5) + IF(VR.EQ.'IPRIS') CALL varseti (VR,IPRIS,NV,1,II,0,7) + IF(VR.EQ.'ISNOW') CALL varseti (VR,ISNOW,NV,1,II,0,5) + IF(VR.EQ.'IAGGR') CALL varseti (VR,IAGGR,NV,1,II,0,5) + IF(VR.EQ.'IGRAUP') CALL varseti (VR,IGRAUP,NV,1,II,0,5) + IF(VR.EQ.'IHAIL') CALL varseti (VR,IHAIL,NV,1,II,0,5) + IF(VR.EQ.'CPARM') CALL varsetf (VR,CPARM,NV,1,FF,0.,1.E10) + IF(VR.EQ.'DPARM') CALL varsetf (VR,DPARM,NV,1,FF,0.,1.E10) + IF(VR.EQ.'RPARM') CALL varsetf (VR,RPARM,NV,1,FF,0.,1.E5) + IF(VR.EQ.'PPARM') CALL varsetf (VR,PPARM,NV,1,FF,0.,1.E8) + IF(VR.EQ.'SPARM') CALL varsetf (VR,SPARM,NV,1,FF,0.,1.E5) + IF(VR.EQ.'APARM') CALL varsetf (VR,APARM,NV,1,FF,0.,1.E5) + IF(VR.EQ.'GPARM') CALL varsetf (VR,GPARM,NV,1,FF,0.,1.E5) + IF(VR.EQ.'HPARM') CALL varsetf (VR,HPARM,NV,1,FF,0.,1.E5) + IF(VR.EQ.'GNU') CALL varsetf (VR,GNU(NV),NV,8,FF,0.,20.) + IF(VR.EQ.'HUCMFILE') CALL varsetc (VR,HUCMFILE,NV,1,CC,1,strl1) + IF(VR.EQ.'NDTCOLL') CALL varseti (VR,NDTCOLL,NV,1,II,1,10) + IF(VR.EQ.'IAEROSOL') CALL varseti (VR,IAEROSOL,NV,1,II,0,1) + IF(VR.EQ.'ISALT') CALL varseti (VR,ISALT,NV,1,II,0,2) + IF(VR.EQ.'IDUST') CALL varseti (VR,IDUST,NV,1,II,0,2) + IF(VR.EQ.'IDUSTLOFT') CALL varseti (VR,IDUSTLOFT,NV,1,II,0,99) + IF(VR.EQ.'DUSTFILE') CALL varsetc (VR,DUSTFILE,NV,1,CC,1,strl1) + IF(VR.EQ.'ICCNLEV') CALL varseti (VR,ICCNLEV,NV,1,II,0,3) + IF(VR.EQ.'IIFN') CALL varseti (VR,IIFN,NV,1,II,0,3) + IF(VR.EQ.'IIFN_FORMULA') CALL varseti (VR,IIFN_FORMULA,NV,1,II,1,2) + IF(VR.EQ.'IAERORAD') CALL varseti (VR,IAERORAD,NV,1,II,0,1) + IF(VR.EQ.'IAERODEP') CALL varseti (VR,IAERODEP,NV,1,II,0,1) + IF(VR.EQ.'IAEROPRNT') CALL varseti (VR,IAEROPRNT,NV,1,II,0,1) + IF(VR.EQ.'IAEROHIST') CALL varseti (VR,IAEROHIST,NV,1,II,0,1) + IF(VR.EQ.'CIN_MAX') CALL varsetf (VR,CIN_MAX,NV,1,FF,0.,1.E4) + IF(VR.EQ.'CCN_MAX') CALL varsetf (VR,CCN_MAX,NV,1,FF,0.,1.E4) + IF(VR.EQ.'GCCN_MAX') CALL varsetf (VR,GCCN_MAX,NV,1,FF,0.,1.E4) + IF(VR.EQ.'DUST1_MAX') CALL varsetf (VR,DUST1_MAX,NV,1,FF,0.,1.E4) + IF(VR.EQ.'DUST2_MAX') CALL varsetf (VR,DUST2_MAX,NV,1,FF,0.,1.E4) + IF(VR.EQ.'SALTF_MAX') CALL varsetf (VR,SALTF_MAX,NV,1,FF,0.,1.E4) + IF(VR.EQ.'SALTJ_MAX') CALL varsetf (VR,SALTJ_MAX,NV,1,FF,0.,1.E4) + IF(VR.EQ.'SALTS_MAX') CALL varsetf (VR,SALTS_MAX,NV,1,FF,0.,1.E4) + IF(VR.EQ.'IAEROLBC') CALL varseti (VR,IAEROLBC(NV),NV,MAXGRDS,II,0,1) + IF(VR.EQ.'ICO2LBC') CALL varseti (VR,ICO2LBC(NV),NV,MAXGRDS,II,0,1) + IF(VR.EQ.'BCTAU') CALL varsetf (VR,BCTAU(NV),NV,MAXGRDS,FF,0.,1.E4) + IF(VR.EQ.'IAERO_CHEM') CALL varseti (VR,IAERO_CHEM(NV),NV,9,II,0,2) + IF(VR.EQ.'AERO_EPSILON') CALL varsetf (VR,AERO_EPSILON(NV),NV,9,FF,0.,1.) + IF(VR.EQ.'AERO_MEDRAD') CALL varsetf (VR,AERO_MEDRAD(NV),NV,9,FF,0.,20.) + IF(VR.EQ.'ITRKEPSILON') CALL varseti (VR,ITRKEPSILON,NV,1,II,0,1) + IF(VR.EQ.'ITRKDUST') CALL varseti (VR,ITRKDUST,NV,1,II,0,1) + IF(VR.EQ.'ITRKDUSTIFN') CALL varseti (VR,ITRKDUSTIFN,NV,1,II,0,1) +ENDIF + +IF(GROUP.EQ.'$MODEL_SOUND') THEN + CALL varchk (VR,GROUP,SOUND,ISOUND,NVSOUND,INRFLG) + IF(INRFLG.EQ.1) RETURN + IF(VR.EQ.'IPSFLG') CALL varseti (VR,IPSFLG,NV,1,II,0,10) + IF(VR.EQ.'ITSFLG') CALL varseti (VR,ITSFLG,NV,1,II,0,10) + IF(VR.EQ.'IRTSFLG') CALL varseti (VR,IRTSFLG,NV,1,II,0,10) + IF(VR.EQ.'IUSFLG') CALL varseti (VR,IUSFLG,NV,1,II,0,10) + IF(VR.EQ.'HS') CALL varsetf (VR,HS(NV),NV,MAXSNDG,FF,-1.e3,1.E5) + IF(VR.EQ.'PS') CALL varsetf (VR,PS(NV),NV,MAXSNDG,FF,0.,1.E7) + IF(VR.EQ.'TS') CALL varsetf (VR,TS(NV),NV,MAXSNDG,FF,-200.,1000.) + IF(VR.EQ.'RTS') CALL varsetf (VR,RTS(NV),NV,MAXSNDG,FF,-200.,1000.) + IF(VR.EQ.'US') CALL varsetf (VR,US(NV),NV,MAXSNDG,FF,-500.,500.) + IF(VR.EQ.'VS') CALL varsetf (VR,VS(NV),NV,MAXSNDG,FF,-500.,500.) +ENDIF + +return +END SUBROUTINE nvfillm + +!############################################################################## +Subroutine nameout () + +use mem_all +use isan_coms +use leaf_coms, only:ifreeslip + +implicit none + +integer :: ng,k,m + +! This routine prints out a listing of the values of all variables +! in the NAMELISTS + +WRITE(6,100) +100 FORMAT(/,'----------------------------NAMELIST VARIABLES-------' & + ,'------------------------',/) + +WRITE(6,*)'Grid-dependent Integers:' +WRITE(6,101)(' ',NNXP(NG),NNYP(NG),NNZP(NG) & + ,NXTNEST(NG),NSTRATX(NG),NG=1,NGRIDS) +WRITE(6,102)(' ',NNDTRAT(NG),NINEST(NG) & + ,NJNEST(NG),NKNEST(NG),NG=1,NGRIDS) +WRITE(6,103)(' ',NNSTTOP(NG),NNSTBOT(NG),ITOPTFLG(NG) & + ,ISSTFLG(NG),IVEGTFLG(NG),NG=1,NGRIDS) +WRITE(6,104)(' ',ISOILFLG(NG),NDVIFLG(NG) & + ,NNQPARM(NG),IDIFFK(NG),NG=1,NGRIDS) +WRITE(6,105)(' ',IAEROLBC(NG),ICO2LBC(NG) & + ,NG=1,NGRIDS) + +101 FORMAT(A1,' NNXP=',I4,' NNYP=',I4,' NNZP=',I4 & + ,' NXTNEST=',I4,' NSTRATX=',I4,999(A1,/,I14,4I16)) +102 FORMAT(A1,' NNDTRAT=',I4,' NINEST=',I4 & + ,' NJNEST=',I4,' NKNEST=',I4,999(A1,/,I14,3I16)) +103 FORMAT(A1,' NNSTTOP=',I4,' NNSTBOT=',I4,' ITOPTFLG=',I4 & + ,' ISSTFLG=',I4,' IVEGTFLG=',I4,999(A1,/,I14,4I16)) +104 FORMAT(A1,'ISOILFLG=',I4,' NDVIFLG=',I4 & + ,' NNQPARM=',I4,' IDIFFK=',I4,999(A1,/,I14,3I16)) +105 FORMAT(A1,'IAEROLBC=',I4,' ICO2LBC=',I4 & + ,999(A1,/,I14,1I16)) + +PRINT*, ' ' + +WRITE(6,*)'Non-grid-dependent Integers:' +WRITE(6,'(100(3(A19,I5)/))') & + ,'IMONTH1=',IMONTH1 & + ,'IDATE1=',IDATE1 & + ,'IYEAR1=',IYEAR1 & + ,'ITIME1=',ITIME1 & + ,'NGRIDS=',NGRIDS & + ,'NZG=',NZG & + ,'NZS=',NZS & + ,'IPRNTSTMT=',IPRNTSTMT & + ,'IHTRAN=',IHTRAN & + ,'NACOUST=',NACOUST & + ,'NESTZ=',NESTZ & + ,'INITIAL=',INITIAL & + ,'NUD_TYPE=',NUD_TYPE & + ,'NUDLAT=',NUDLAT & + ,'NUD_COND=',NUD_COND & + ,'IF_ODA=',IF_ODA & + ,'IPAST_SFC=',IPAST_SFC & + ,'ICLOBBER=',ICLOBBER & + ,'IOUTPUT=',IOUTPUT & + ,'NLITE_VARS=',NLITE_VARS & + ,'IUPDNDVI=',IUPDNDVI & + ,'IUPDSST=',IUPDSST & + ,'ICORFLG=',ICORFLG & + ,'IBND=',IBND & + ,'JBND=',JBND & + ,'LSFLG=',LSFLG & + ,'NFPT=',NFPT & + ,'ISWRTYP=',ISWRTYP & + ,'ILWRTYP=',ILWRTYP & + ,'LONRAD=',LONRAD & + ,'NPATCH=',NPATCH & + ,'NVEGPAT=',NVEGPAT & + ,'ISFCL=',ISFCL & + ,'IFREESLIP=',IFREESLIP & + ,'IKPP=',IKPP & + ,'NKPPZ=',NKPPZ & + ,'KPPITERMAX=',KPPITERMAX & + ,'KPPRNT=',KPPRNT & + ,'ISOILDAT=',ISOILDAT & + ,'ISNOWDAT=',ISNOWDAT & + ,'NVGCON=',NVGCON & + ,'NSLCON=',NSLCON & + ,'IDIFFPERTS=',IDIFFPERTS & + ,'IHORGRAD=',IHORGRAD & + ,'IBUBBLE=',IBUBBLE & + ,'IBUBGRD=',IBUBGRD & + ,'IBDXIA=',IBDXIA & + ,'IBDXIZ=',IBDXIZ & + ,'IBDYJA=',IBDYJA & + ,'IBDYJZ=',IBDYJZ & + ,'IBDZK1=',IBDZK1 & + ,'IBDZK2=',IBDZK2 & + ,'ICONV=',ICONV & + ,'ICONGR=',ICONGR & + ,'ICICENT=',ICICENT & + ,'ICJCENT=',ICJCENT & + ,'ICVERT=',ICVERT & + ,'ICKMAX=',ICKMAX & + ,'ICKCENT=',ICKCENT & + ,'IRCE=',IRCE & + ,'ITRACER=',ITRACER & + ,'ITRACHIST=',ITRACHIST & + ,'LEVEL=',LEVEL & + ,'ISCM=',ISCM & + ,'ISCMX=',ISCMX & + ,'ISCMY=',ISCMY & + ,'ICHECKMIC=',ICHECKMIC & + ,'IMBUDGET=',IMBUDGET & + ,'IRIME=',IRIME & + ,'IPLAWS=',IPLAWS & + ,'ISEDIM=',ISEDIM & + ,'ICLOUD=',ICLOUD & + ,'IDRIZ=',IDRIZ & + ,'IRAIN=',IRAIN & + ,'IPRIS=',IPRIS & + ,'ISNOW=',ISNOW & + ,'IAGGR=',IAGGR & + ,'IGRAUP=',IGRAUP & + ,'IHAIL=',IHAIL & + ,'NDTCOLL=',NDTCOLL & + ,'IAEROSOL=',IAEROSOL & + ,'ISALT=',ISALT & + ,'IDUST=',IDUST & + ,'IDUSTLOFT=',IDUSTLOFT & + ,'ICCNLEV=',ICCNLEV & + ,'IIFN=',IIFN & + ,'IIFN_FORMULA=',IIFN_FORMULA & + ,'IAERORAD=',IAERORAD & + ,'IAERODEP=',IAERODEP & + ,'IAEROPRNT=',IAEROPRNT & + ,'IAEROHIST=',IAEROHIST & + ,'ITRKEPSILON=',ITRKEPSILON & + ,'ITRKDUST=',ITRKDUST & + ,'ITRKDUSTIFN=',ITRKDUSTIFN & + ,'IPSFLG=',IPSFLG & + ,'ITSFLG=',ITSFLG & + ,'IRTSFLG=',IRTSFLG & + ,'IUSFLG=',IUSFLG & + ,'IMPL=',IMPL + +PRINT*, ' ' +WRITE(6,*)'Non-grid-dependent Floats:' +WRITE(6,'(100(3(A15,E11.4)/))') & + ,'TIMMAX=',TIMMAX & + ,'DELTAX=',DELTAX & + ,'DELTAZ=',DELTAZ & + ,'DZRAT=',DZRAT & + ,'DZMAX=',DZMAX & + ,'DTLONG=',DTLONG & + ,'POLELAT=',POLELAT & + ,'POLELON=',POLELON & + ,'TNUDLAT=',TNUDLAT & + ,'TNUDCENT=',TNUDCENT & + ,'SNUDCENT=',SNUDCENT & + ,'TNUDTOP=',TNUDTOP & + ,'ZNUDTOP=',ZNUDTOP & + ,'FRQSTATE=',frqstate(1) & + ,'Z0FACT=',Z0FACT & + ,'CPHAS=',CPHAS & + ,'DISTIM=',DISTIM & + ,'RADFRQ=',RADFRQ & + ,'CONFRQ=',CONFRQ & + ,'FRQKPP=',FRQKPP & + ,'RELAX_SST=',RELAX_SST & + ,'RELAX_OCNT=',RELAX_OCNT & + ,'RELAX_SAL=',RELAX_SAL & + ,'DMAXKPP=',DMAXKPP & + ,'DSCALEKPP=',DSCALEKPP & + ,'UBMN_KPP=',UBMN_KPP & + ,'WCLDBS=',WCLDBS & + ,'PCTLCON=',PCTLCON & + ,'ZROUGH=',ZROUGH & + ,'ALBEDO=',ALBEDO & + ,'SEATMP=',SEATMP & + ,'DTHCON=',DTHCON & + ,'DRTCON=',DRTCON & + ,'BTHP=',BTHP & + ,'BRTP=',BRTP & + ,'CXRAD=',CXRAD & + ,'CYRAD=',CYRAD & + ,'CZRAD=',CZRAD & + ,'CDIVMAX=',CDIVMAX & + ,'CTAU=',CTAU & + ,'CTMAX=',CTMAX & + ,'RCE_SZEN=',RCE_SZEN & + ,'RCE_SOLC=',RCE_SOLC & + ,'RCE_UBMN=',RCE_UBMN & + ,'RCE_BUBL=',RCE_BUBL & + ,'FRACSAT=',FRACSAT & + ,'SCMTIME=',SCMTIME & + ,'CPARM=',CPARM & + ,'DPARM=',DPARM & + ,'RPARM=',RPARM & + ,'PPARM=',PPARM & + ,'SPARM=',SPARM & + ,'APARM=',APARM & + ,'GPARM=',GPARM & + ,'HPARM=',HPARM & + ,'CIN_MAX=',CIN_MAX & + ,'CCN_MAX=',CCN_MAX & + ,'GCCN_MAX=',GCCN_MAX & + ,'DUST1_MAX=',DUST1_MAX & + ,'DUST2_MAX=',DUST2_MAX & + ,'SALTF_MAX=',SALTF_MAX & + ,'SALTJ_MAX=',SALTJ_MAX & + ,'SALTS_MAX=',SALTS_MAX & + ,'SSPCT=',SSPCT + +PRINT*, ' ' +WRITE(6,*)'Grid-dependent Floats:' +WRITE(6,301)(' ',TOPTENH(NG),TOPTWVL(NG),CENTLAT(NG),NG=1,NGRIDS) +WRITE(6,302)(' ',CENTLON(NG),CSX(NG),CSZ(NG),NG=1,NGRIDS) +WRITE(6,303)(' ',XKHKM(NG),ZKHKM(NG),AKMIN(NG),NG=1,NGRIDS) +WRITE(6,304)(' ',BCTAU(NG),NG=1,NGRIDS) +301 FORMAT(A1,'TOPTENH=',E12.5,' TOPTWVL=',E12.5 & + ,' CENTLAT=',E12.5,999(A1,/,E21.5,2E28.5)) +302 FORMAT(A1,'CENTLON=',E12.5,' CSX=',E12.5 & + ,' CSZ=',E12.5,999(A1,/,E21.5,2E28.5)) +303 FORMAT(A1,' XKHKM=',E12.5,' ZKHKM=',E12.5 & + ,' AKMIN=',E12.5,999(A1,/,E21.5,2E28.5)) +304 FORMAT(A1,' BCTAU=',E12.5,999(A1,/,E21.5)) + +PRINT*, ' ' + +WRITE(6,601)(' ',ITOPTFN(M),M=1,NGRIDS) +WRITE(6,602)(' ',ISSTFN(M),M=1,NGRIDS) +WRITE(6,603)(' ',IVEGTFN(M),M=1,NGRIDS) +WRITE(6,604)(' ',ISOILFN(M),M=1,NGRIDS) +WRITE(6,605)(' ',NDVIFN(M),M=1,NGRIDS) +WRITE(6,607) ' ',trim(VARFPFX) +WRITE(6,608) ' ',trim(SSTFPFX) +WRITE(6,609) ' ',trim(NDVIFPFX) +WRITE(6,610) ' ',trim(DUSTFILE) +WRITE(6,611) ' ',trim(SIBFILE) +WRITE(6,612) ' ',trim(HUCMFILE) +601 FORMAT(A1,' ITOPTFN=',A40,999(A1,/,11X,A40)) +602 FORMAT(A1,' ISSTFN=',A40,999(A1,/,11X,A40)) +603 FORMAT(A1,' IVEGTFN=',A40,999(A1,/,11X,A40)) +604 FORMAT(A1,' ISOILFN=',A40,999(A1,/,11X,A40)) +605 FORMAT(A1,' NDVIFN=',A40,999(A1,/,11X,A40)) +607 FORMAT(A1,' VARFPFX=',A) +608 FORMAT(A1,' SSTFPFX=',A) +609 FORMAT(A1,' NDVIFPFX=',A) +610 FORMAT(A1,' DUSTFILE=',A) +611 FORMAT(A1,' SIBFILE=',A) +612 FORMAT(A1,' HUCMFILE=',A) + +PRINT*, ' ' +WRITE(6,701)EXPNME +PRINT*, ' ' +WRITE(6,702)HFILIN +WRITE(6,704)AFILEPREF +PRINT*, ' ' +WRITE(6,705)RUNTYPE,TIMEUNIT + +701 FORMAT(' EXPNME=',A40) +702 FORMAT(' HFILIN=',A40) +704 FORMAT(' AFILEPREF=',A40) +705 FORMAT(' RUNTYPE=',A10,' TIMEUNIT=',A3) + +PRINT*, ' ' +WRITE(6,901)(' ',SLMSTR(K),SLZ(K),STGOFF(K),K=1,NZG) +901 FORMAT(A1,' SLMSTR=',F6.2,' SLZ=',F7.3,' STGOFF=',F8.2 & + ,999(A1,/,F15.2,F17.3,F21.2)) + +PRINT*, ' ' +WRITE(6,1001)(ZZ(K),K=1,NNZP(1)) +1001 FORMAT('ZZ=',8F9.1,/,(F12.1,7F9.1)) + +PRINT*, ' ' +WRITE(6,1002)(CO2_INIT(K),K=1,NNZP(1)) +1002 FORMAT('CO2_INIT=',8F9.1,/,(F12.1,7F9.1)) + +WRITE(6,1101)(NSTRATZ(K),K=1,NNZP(1)) +1101 FORMAT(/,'NSTRATZ=',(t9,23i3) ) + +write(6,1301)(gnu(k),k=1,8) +1301 format(/,'GNU=',(t9,8f5.2)) + +PRINT*, ' ' +WRITE(6,*)'IAERO_CHEM AERO_EPSILON AERO_MEDRAD-(default)' +WRITE(6,*)'(category) (fraction) (microns)' +WRITE(6,1404)(iaero_chem(K),aero_epsilon(K),aero_medrad(K)*1.e6,K=1,aerocat) +1404 FORMAT(I6,F17.3,F16.2) + +PRINT*, ' ' + +! write out ISAN config if this is a makevfile or makehfile run +if (trim(RUNTYPE) .eq. 'MAKEVFILE' .or. trim(RUNTYPE) .eq. 'MAKEHFILE') then + WRITE(6,*)'ISAN Integers:' + WRITE(6,'(100(3(A19,I5)/))') & + ,'ISZSTAGE=',ISZSTAGE & + ,'IVRSTAGE=',IVRSTAGE & + ,'ISAN_INC=',ISAN_INC & + ,'I1ST_FLG=',I1ST_FLG & + ,'IUPA_FLG=',IUPA_FLG & + ,'ISFC_FLG=',ISFC_FLG & + ,'IOFLGISZ=',IOFLGISZ & + ,'IOFLGVAR=',IOFLGVAR & + ,'IDATAIN=',IDATAIN & + ,'NIGRIDS=',NIGRIDS & + ,'NFEEDVAR=',NFEEDVAR & + ,'NISN=',NISN & + ,'MAXSTA=',MAXSTA & + ,'MAXSFC=',MAXSFC & + ,'IGRIDFL=',IGRIDFL & + ,'NOTSTA=',NOTSTA & + ,'IOBSWIN=',IOBSWIN + + PRINT*, ' ' + WRITE(6,1501)(LEVTH(K),K=1,NISN) +1501 FORMAT('LEVTH=',8I9,/,(I15,7I9)) + + + PRINT*, ' ' + WRITE(6,*)'ISAN Floats:' + WRITE(6,'(100(3(A15,E11.4)/))') & + ,'SIGZWT',SIGZWT & + ,'TOPSIGZ',TOPSIGZ & + ,'HYBBOT',HYBBOT & + ,'HYBTOP',HYBTOP & + ,'SFCINF',SFCINF & + ,'GOBSEP',GOBSEP & + ,'GOBRAD',GOBRAD & + ,'STASEP',STASEP + + PRINT*, ' ' + WRITE(6,1503)(' ',WVLNTH(NG),SWVLNTH(NG),RESPON(NG),GRIDWT(NG),NG=1,NIGRIDS) +1503 FORMAT(A1,' WVLNTH=',F8.2,' SWVLNTH=',F8.2,' RESPON=',F8.2,' GRIDWT=',F8.2 & + ,999(A1,/,F18.2,F17.2,F17.2,F17.2)) + + PRINT*, ' ' + WRITE(6,*) ' IAPR=', trim(IAPR) + WRITE(6,*) ' IARAWI=', trim(IARAWI) + WRITE(6,*) ' IASRFCE=', trim(IASRFCE) + WRITE(6,*) ' VAR_HFILE=', trim(VAR_HFILE) + WRITE(6,*) ' VARPFX=', trim(VARPFX) +! WRITE(6,*) ' NOTID=', trim(NOTID) + WRITE(6,*) ' USED_FILE=', trim(USED_FILE) + + PRINT*, ' ' +endif + +return +END SUBROUTINE nameout + +!############################################################################## +Subroutine namein (IUNIT,GROUP) + +! This routine is called by routines READ_NL +! to input the values for the NAMELIST specified by the character string +! GROUP from input unit IUNIT. + +use grid_dims + +implicit none + +character(len=*) :: group +integer :: iunit +integer, parameter :: linvar=10 +character(len=strl1) :: varn,line,linew,value(maxvalues),tokens(50) +integer :: nvalue,nvarn,nr,ncw,nt,ntok,int +real :: fnum +integer, external :: letter +integer, external :: numberchk +integer, external :: letquo + +rewind iunit + +NVALUE=0 +NVARN=0 +CALL findgr (IUNIT,GROUP) +DO 10 NR=1,MAXREC + READ(IUNIT,'(A80)',END=100)LINE + CALL strip (LINE,LINEW,NCW) + NCW=MAX(NCW,1) + CALL toknze (LINEW,NCW,TOKENS,NTOK) + IF(LINEW(1:NCW).EQ.'$END') GOTO 100 + + NT=1 + 20 CONTINUE + IF(NT.GT.NTOK) GOTO 10 + IF(letter(TOKENS(NT)).EQ.1) THEN + IF(NVARN.GT.0) CALL nvtran (GROUP,VARN,VALUE,NVALUE) + NVALUE=0 + VARN=TOKENS(NT) + NVARN=NVARN+1 + NT=NT+1 + IF(TOKENS(NT).EQ.'(' .or. TOKENS(NT).EQ.',') THEN + stop 'Error in RAMSIN syntax. Routine namein' + ENDIF + ELSEIF(numberchk(TOKENS(NT)).EQ.1 .OR. letquo(TOKENS(NT)).EQ.1) THEN + NVALUE=NVALUE+1 + VALUE(NVALUE)=TOKENS(NT) + ENDIF + NT=NT+1 + GOTO 20 +10 CONTINUE + +100 CONTINUE +CALL nvtran (GROUP,VARN,VALUE,NVALUE) +VARN='$END' +CALL nvfillm (GROUP,VARN,INT,FNUM,LINEW(1:NCW),NR) + +return +END SUBROUTINE namein + +!############################################################################## +Subroutine nvtran (GROUP,VARN,VALUE,NVALUE) + +! This routine converts a variable value(s) (VALUE) read in as a +! character string(s) to the proper type (integer, real, or character) +! and assigns it (them) to the storage location(s) corresponding to +! the NAMELIST variable VARN. GROUP is the NAMELIST +! group name. NVALUE is the number of values to be assigned. + +use grid_dims + +implicit none + +integer :: NVALUE +character(len=*) :: GROUP,VARN,VALUE(*) +character(len=strl1) :: CHVAL +integer :: nv,int,ncw +real :: fnum +integer, external :: letint +integer, external :: letquo + +ncw=1 + +IF(letint(VARN).EQ.1) THEN + DO NV=1,NVALUE + IF(letquo(VALUE(NV)).EQ.0) THEN + CALL ch2int (VALUE(NV),INT) + CALL nvfillm (GROUP,VARN,INT,FNUM,CHVAL(1:NCW),NV) + ELSE + CALL ch2ch (VALUE(NV),CHVAL,NCW) + CALL nvfillm (GROUP,VARN,INT,FNUM,CHVAL(1:NCW),NV) + ENDIF + ENDDO +ELSE + DO NV=1,NVALUE + IF(letquo(VALUE(NV)).EQ.0) THEN + CALL ch2real (VALUE(NV),FNUM) + CALL nvfillm (GROUP,VARN,INT,FNUM,CHVAL(1:NCW),NV) + ELSE + CALL ch2ch (VALUE(NV),CHVAL,NCW) + CALL nvfillm (GROUP,VARN,INT,FNUM,CHVAL(1:NCW),NV) + ENDIF + ENDDO +ENDIF + +return +END SUBROUTINE nvtran diff --git a/src/6.2.16/io/rprnt.f90 b/src/6.2.16/io/rprnt.f90 new file mode 100644 index 0000000..6a26358 --- /dev/null +++ b/src/6.2.16/io/rprnt.f90 @@ -0,0 +1,47 @@ +!############################################################################## +Subroutine prtopt () + +use mem_grid +use mem_scratch +use ref_sounding +use rconstants +use mem_turb +use ref_sounding + +implicit none + +integer :: k + +IF(initial == 1 .or. (initial == 3 .and. initorig == 1))THEN + CALL mrsl (nsndg,ps(1),ts(1),vctr5(1)) + do k=1,nsndg + vctr1(k) = 100. * rts(k) / vctr5(k) + enddo + WRITE(*,41) +41 FORMAT(/,'------------------------------SOUNDING INPUT-------' & + ,'---------------------------',//,7X,'PS',9X,'HS',7X,'TS',6X & + ,'THDS',6X,'US',7X,'VS',7X,'RTS',5X,'REL HUM',/,6X & + ,'(Pa)',7X,'(m)',6X,'(K)',6X,'(K)',6X,'(m/s)',4X,'(m/s)' & + ,3X,'(g/kg)',5X,'(%)',/) + WRITE(*,42)(PS(K),HS(K),TS(K),THDS(K),US(K),VS(K),RTS(K)*1000. & + ,VCTR1(K),K=1,NSndg) +42 FORMAT(1X,F11.1,F10.1,2F9.2,2F9.2,F10.5,F9.2) +ENDIF +! +DO K=1,NNZP(1) + VCTR1(K)=P00*(PI01DN(K,1)/CP)**CPOR + VCTR2(K)=TH01DN(K,1)/(1.+.61*RT01DN(K,1)) +ENDDO +WRITE(*,310)IREF,JREF,TOPREF,(ZTN(K,1),U01DN(K,1),V01DN(K,1) & + ,DN01DN(K,1),PI01DN(K,1),VCTR1(K),TH01DN(K,1),VCTR2(K) & + ,RT01DN(K,1),K=1,NNZP(1)) +310 FORMAT(/,'--------REFERENCE STATE at I,J=(',I4,',',I4 & + ,') SFC ELEV (M)= ',F6.1,'-------------' & + ,//,4X,'Z',6X,'U01D',4X,'V01D',4X,'DN01D',4X & + ,'PI01D',4X,'PRESS',4X,'TH01D',4X,'THD',6X,'RT01D' & + ,/,3X,'(m)',5X,'(m/s)',3X,'(m/s)',2X,'(kg/m3)',2X & + ,'(J/kgK)',4X,'(Pa)',5X,'(K)',5X,'(K)',5X,'(kg/kg)' & + ,//,(1X,F7.1,2F8.2,F8.3,F10.2,F10.1,2F8.2,F10.5)) + +return +END SUBROUTINE prtopt diff --git a/src/6.2.16/isan/aobj.f90 b/src/6.2.16/isan/aobj.f90 new file mode 100644 index 0000000..c596f49 --- /dev/null +++ b/src/6.2.16/isan/aobj.f90 @@ -0,0 +1,545 @@ +!############################################################################## +Subroutine obj_anal (ctype,ng,nxp,nyp,g_lat,g_lon & + ,polelat,polelon,swx,swy,delx) + +use isan_coms + +implicit none + +character(len=*) :: ctype +integer :: ng,nxp,nyp +real :: polelat,polelon,swx,swy,delx +real, dimension(*) :: g_lat,g_lon +real, allocatable :: ps_scr(:,:) +integer, save :: nvar=1 + +if (ctype == 'isen') then + + CALL obanl (nxp,nyp,nisn,nvar, pi_u, g_lat, g_lon & + ,nsta,nsta, upi_u,up_lat,up_lon & + ,nxp,nyp, pi_u, g_lat, g_lon & + ,igridfl,wvlnth(ng),respon(ng),gobsep,gobrad,gridwt(ng) & + ,polelat,polelon,swx,swy,delx) + CALL obanl (nxp,nyp,nisn,nvar, pi_v, g_lat, g_lon & + ,nsta,nsta, upi_v,up_lat,up_lon & + ,nxp,nyp, pi_v, g_lat, g_lon & + ,igridfl,wvlnth(ng),respon(ng),gobsep,gobrad,gridwt(ng) & + ,polelat,polelon,swx,swy,delx) + CALL obanl (nxp,nyp,nisn,nvar, pi_p, g_lat, g_lon & + ,nsta,nsta, upi_p,up_lat,up_lon & + ,nxp,nyp, pi_p, g_lat, g_lon & + ,igridfl,wvlnth(ng),respon(ng),gobsep,gobrad,gridwt(ng) & + ,polelat,polelon,swx,swy,delx) + CALL obanl (nxp,nyp,nisn,nvar, pi_s, g_lat, g_lon & + ,nsta,nsta, upi_s,up_lat,up_lon & + ,nxp,nyp, pi_s, g_lat, g_lon & + ,igridfl,wvlnth(ng),respon(ng),gobsep,gobrad,gridwt(ng) & + ,polelat,polelon,swx,swy,delx) + CALL obanl (nxp,nyp,nisn,nvar, pi_r, g_lat, g_lon & + ,nsta,nsta, upi_r,up_lat,up_lon & + ,nxp,nyp, pi_r, g_lat, g_lon & + ,igridfl,wvlnth(ng),respon(ng),gobsep,gobrad,gridwt(ng) & + ,polelat,polelon,swx,swy,delx) + +elseif (ctype == 'sigz') then + + CALL obanl (nxp,nyp,nsigz,nvar, ps_u, g_lat, g_lon & + ,nsta,nsta, ups_u,up_lat,up_lon & + ,nxp,nyp, ps_u, g_lat, g_lon & + ,igridfl,wvlnth(ng),respon(ng),gobsep,gobrad,gridwt(ng) & + ,polelat,polelon,swx,swy,delx) + CALL obanl (nxp,nyp,nsigz,nvar, ps_v, g_lat, g_lon & + ,nsta,nsta, ups_v,up_lat,up_lon & + ,nxp,nyp, ps_v, g_lat, g_lon & + ,igridfl,wvlnth(ng),respon(ng),gobsep,gobrad,gridwt(ng) & + ,polelat,polelon,swx,swy,delx) + CALL obanl (nxp,nyp,nsigz,nvar, ps_t, g_lat, g_lon & + ,nsta,nsta, ups_t,up_lat,up_lon & + ,nxp,nyp, ps_t, g_lat, g_lon & + ,igridfl,wvlnth(ng),respon(ng),gobsep,gobrad,gridwt(ng) & + ,polelat,polelon,swx,swy,delx) + CALL obanl (nxp,nyp,nsigz,nvar, ps_p, g_lat, g_lon & + ,nsta,nsta, ups_p,up_lat,up_lon & + ,nxp,nyp, ps_p, g_lat, g_lon & + ,igridfl,wvlnth(ng),respon(ng),gobsep,gobrad,gridwt(ng) & + ,polelat,polelon,swx,swy,delx) + CALL obanl (nxp,nyp,nsigz,nvar, ps_r, g_lat, g_lon & + ,nsta,nsta, ups_r,up_lat,up_lon & + ,nxp,nyp, ps_r, g_lat, g_lon & + ,igridfl,wvlnth(ng),respon(ng),gobsep,gobrad,gridwt(ng) & + ,polelat,polelon,swx,swy,delx) + +elseif (ctype == 'surf') then + + ! Some surface fields do not use a first-guess, so + ! pass in ps_scr for these + + allocate(ps_scr(nxp,nyp)) + CALL obanl (nxp,nyp,1,nvar, ps_scr, g_lat, g_lon & + ,maxsfc,nssfc, sf_ur,sf_lat,sf_lon & + ,nxp,nyp, rs_u, g_lat, g_lon & + ,0,swvlnth(ng),respon(ng),gobsep,gobrad,gridwt(ng) & + ,polelat,polelon,swx,swy,delx) + CALL obanl (nxp,nyp,1,nvar, ps_scr, g_lat, g_lon & + ,maxsfc,nssfc, sf_vr,sf_lat,sf_lon & + ,nxp,nyp, rs_v, g_lat, g_lon & + ,0,swvlnth(ng),respon(ng),gobsep,gobrad,gridwt(ng) & + ,polelat,polelon,swx,swy,delx) + CALL obanl (nxp,nyp,1,nvar, ps_scr, g_lat, g_lon & + ,maxsfc,nssfc, sf_p,sf_lat,sf_lon & + ,nxp,nyp, rs_p, g_lat, g_lon & + ,0,swvlnth(ng),respon(ng),gobsep,gobrad,gridwt(ng) & + ,polelat,polelon,swx,swy,delx) + CALL obanl (nxp,nyp,1,nvar, ps_scr, g_lat, g_lon & + ,maxsfc,nssfc, sf_s,sf_lat,sf_lon & + ,nxp,nyp, rs_s, g_lat, g_lon & + ,0,swvlnth(ng),respon(ng),gobsep,gobrad,gridwt(ng) & + ,polelat,polelon,swx,swy,delx) + CALL obanl (nxp,nyp,1,nvar, ps_scr, g_lat, g_lon & + ,maxsfc,nssfc, sf_r,sf_lat,sf_lon & + ,nxp,nyp, rs_r, g_lat, g_lon & + ,0,swvlnth(ng),respon(ng),gobsep,gobrad,gridwt(ng) & + ,polelat,polelon,swx,swy,delx) + print*,'===',nssfc,maxsfc + CALL obanl (nxp,nyp,1,nvar, ps_scr, g_lat, g_lon & + ,maxsfc,nssfc, sf_t,sf_lat,sf_lon & + ,nxp,nyp, rs_t, g_lat, g_lon & + ,0,swvlnth(ng),respon(ng),gobsep,gobrad,gridwt(ng) & + ,polelat,polelon,swx,swy,delx) + CALL obanl (nxp,nyp,1,nvar, ps_scr, g_lat, g_lon & + ,maxsfc,nssfc, sf_top,sf_lat,sf_lon & + ,nxp,nyp, rs_top, g_lat, g_lon & + ,0,swvlnth(ng),respon(ng),gobsep,gobrad,gridwt(ng) & + ,polelat,polelon,swx,swy,delx) + +! These surface variables may have gridded first guess fields, +! but they do not have obs now, so pass in ps_scr to obanl as obs data, +! set nssfc argument=0 and igridfl=4. This doesn't have to be done, +! but, for future compatibility... + + CALL obanl (nxp,nyp,1,nvar, rs_soilmoist1, g_lat, g_lon & + ,maxsfc,0, ps_scr,sf_lat,sf_lon & + ,nxp,nyp, rs_soilmoist1, g_lat, g_lon & + ,4,swvlnth(ng),respon(ng),gobsep,gobrad,gridwt(ng) & + ,polelat,polelon,swx,swy,delx) + CALL obanl (nxp,nyp,1,nvar, rs_soilmoist2, g_lat, g_lon & + ,maxsfc,0, ps_scr,sf_lat,sf_lon & + ,nxp,nyp, rs_soilmoist2, g_lat, g_lon & + ,4,swvlnth(ng),respon(ng),gobsep,gobrad,gridwt(ng) & + ,polelat,polelon,swx,swy,delx) + CALL obanl (nxp,nyp,1,nvar, rs_soiltemp1, g_lat, g_lon & + ,maxsfc,0, ps_scr,sf_lat,sf_lon & + ,nxp,nyp, rs_soiltemp1, g_lat, g_lon & + ,4,swvlnth(ng),respon(ng),gobsep,gobrad,gridwt(ng) & + ,polelat,polelon,swx,swy,delx) + CALL obanl (nxp,nyp,1,nvar, rs_soiltemp2, g_lat, g_lon & + ,maxsfc,0, ps_scr,sf_lat,sf_lon & + ,nxp,nyp, rs_soiltemp2, g_lat, g_lon & + ,4,swvlnth(ng),respon(ng),gobsep,gobrad,gridwt(ng) & + ,polelat,polelon,swx,swy,delx) + CALL obanl (nxp,nyp,1,nvar, rs_snowmass, g_lat, g_lon & + ,maxsfc,0, ps_scr,sf_lat,sf_lon & + ,nxp,nyp, rs_snowmass, g_lat, g_lon & + ,4,swvlnth(ng),respon(ng),gobsep,gobrad,gridwt(ng) & + ,polelat,polelon,swx,swy,delx) + CALL obanl (nxp,nyp,1,nvar, rs_snowdepth, g_lat, g_lon & + ,maxsfc,0, ps_scr,sf_lat,sf_lon & + ,nxp,nyp, rs_snowdepth, g_lat, g_lon & + ,4,swvlnth(ng),respon(ng),gobsep,gobrad,gridwt(ng) & + ,polelat,polelon,swx,swy,delx) + + deallocate(ps_scr) + +else + print*,'undefined type to obj_anal:', ctype + stop 'obj_anal' +endif + +return +END SUBROUTINE obj_anal + +!############################################################################## +Subroutine obanl (npx,npy,npz,nvar,dat_p_i ,p_lat ,p_lon & + ,max_obs,n_obs ,dat_obs ,dlat_obs,dlon_obs & + ,nxp,nyp ,dat_i_i ,g_lat ,g_lon & + ,igrdflg,wvlnth,respon,gobsep,gobrad,gridwt & + ,polat,polon,swx,swy,delx) + +implicit none + +integer :: npx,npy,npz,nvar,max_obs,n_obs,nxp,nyp,igrdflg +real :: wvlnth,respon,gobsep,gobrad,gridwt,polat,polon,swx,swy,delx +real :: dat_p_i(*),p_lat(*),p_lon(*) & + ,dat_obs(*),dlat_obs(*),dlon_obs(*) & + ,dat_i_i(*),g_lat(*),g_lon(*) +real,allocatable:: dat_qual(:,:) +real,allocatable:: obs_dat(:,:,:,:) & + ,obs_xxx(:),obs_yyy(:),obs_swt(:),obs_scr(:) +integer :: igns,ngs1,iqflag +real :: tm1,tm2,gamma,x4k + +! allocate memory for combined pressure grid/station data array + +if(igrdflg==1.or.igrdflg==2.or.igrdflg==3) then + igns=npx*npy+max_obs +elseif(igrdflg==0.or.igrdflg==4) then + igns=max_obs +endif + + +print*,'allocating in OBANL-',igns,npz,nvar,igrdflg +allocate(obs_dat(igns,npz,nvar,2)) +allocate(obs_xxx(igns)) +allocate(obs_yyy(igns)) +allocate(obs_swt(igns)) +allocate(obs_scr(igns)) +allocate(dat_qual(nxp,nyp)) + +CALL timing (1,tm1) + +CALL prebarn (npx,npy,npz,nvar & + ,dat_p_i,p_lat,p_lon & + ,max_obs,dat_obs,dlat_obs,dlon_obs,n_obs & + ,igns,obs_dat,obs_xxx,obs_yyy,obs_swt,ngs1 & + ,igrdflg,gobsep,gobrad & + ,gridwt,obs_scr,polat,polon) + +if(ngs1==0.and.igrdflg/=4) then + dat_i_i(1:nxp*nyp*npz*nvar)=1.e30 + goto 10 +endif + + +gamma=.3 +CALL bn_parm (wvlnth,respon,gamma,x4k) + +! Will we use "quality" weight? +iqflag=0 +if(igrdflg==4) iqflag=1 + +! Get station proximity "quality" weight field. + +if(iqflag==1) then + CALL bn_qual (dat_qual,nxp,nyp,g_lat,g_lon & + ,obs_xxx,obs_yyy,ngs1,x4k,polat,polon) +endif + +if(igrdflg /= 4) then + dat_i_i(1:nxp*nyp*npz*nvar)=0. + CALL bn_pass (dat_i_i,nxp,nyp,npz,nvar,g_lat,g_lon & + ,igns,obs_dat,obs_xxx,obs_yyy,obs_swt,ngs1,obs_scr & + ,x4k,polat,polon,1,0,dat_qual) +endif + +if(ngs1>=1) then + CALL stainterp (dat_i_i,nxp,nyp,npz,nvar & + ,igns,obs_dat,obs_xxx,obs_yyy & + ,ngs1,swx,swy,delx,-1.e-10) + + CALL bn_pass (dat_i_i,nxp,nyp,npz,nvar,g_lat,g_lon & + ,igns,obs_dat,obs_xxx,obs_yyy & + ,obs_swt,ngs1,obs_scr & + ,x4k*gamma,polat,polon,2,iqflag,dat_qual) +endif + +10 continue + +CALL timing (2,tm2) + +print 90,ngs1,tm2-tm1,wvlnth,respon +90 format(/' Objective analysis---',' No. obs -',I5 & + ,' CPU time - ',F9.4,' secs',/,T31 & + ,'Barnes parameters -WVLNTH,RESPON-' & + ,F8.0,F4.1) + +deallocate(obs_dat,obs_xxx,obs_yyy,obs_swt,obs_scr) +deallocate(dat_qual) + +return +END SUBROUTINE obanl + +!############################################################################## +Subroutine prebarn (nprx,npry,nisn,nvar & + ,grid,glat,glon & + ,ist,ssdat,sslt,ssln,nnsta & + ,igns,gsdat,gsx,gsy,gswt & + ,ngs,igridfl,gobsep,gobrad & + ,gridwt,scra,polat,polon) +implicit none + +integer :: nprx,npry,nisn,nvar,nnsta,ist,igns,ngs,igridfl +real :: grid(nprx,npry,nisn,*),glat(nprx,npry),glon(nprx,npry) & + ,ssdat(ist,nisn,*),sslt(*),ssln(*),scra(*) & + ,gsdat(igns,nisn,*),gsx(*),gsy(*),gswt(*),gridwt +integer :: iqf(4) +integer :: n,k,nv,i,j,ns,iq +real :: gobkm,gobrd,gobsep,gobrad,polat,polon,gln,glt + +ngs=0 +do n=1,nnsta + ngs=ngs+1 + CALL ll_xy (sslt(n),ssln(n),polat,polon,gsx(ngs),gsy(ngs)) + gswt(ngs)=1. + do k=1,nisn + do nv=1,nvar + gsdat(ngs,k,nv)=ssdat(n,k,nv) + enddo + enddo +enddo + +if(igridfl.eq.0.or.igridfl.eq.4)return + +if(igridfl.eq.1) then + do j=1,npry + do i=1,nprx + ngs=ngs+1 + CALL ll_xy (glat(i,j),glon(i,j),polat,polon,gsx(ngs),gsy(ngs)) + gswt(ngs)=gridwt + do k=1,nisn + do nv=1,nvar + gsdat(ngs,k,nv)=grid(i,j,k,nv) + enddo + enddo + enddo + enddo + + return + +elseif(igridfl.eq.2) then + gobkm=gobsep*111.120 + gobrd=gobrad*111.120 + do i=1,nprx + do j=1,npry + do iq=1,4 + iqf(iq)=0 + enddo + do ns=1,nnsta + scra(ns)=sqrt(((glat(i,j)-sslt(ns))*111.12)**2 & + +((glon(i,j)-ssln(ns))*111.12 & + *cos((glat(i,j)+sslt(ns))*.5*.01745))**2) + enddo + do ns=1,nnsta + if(scra(ns).lt.gobkm) goto 40 + enddo + do ns=1,nnsta + if(scra(ns).le.gobrd) then + gln=glon(i,j) + glt=glat(i,j) + if(ssln(ns).le.gln.and.sslt(ns).ge.glt) iqf(1)=1 + if(ssln(ns).ge.gln.and.sslt(ns).ge.glt) iqf(2)=1 + if(ssln(ns).ge.gln.and.sslt(ns).le.glt) iqf(3)=1 + if(ssln(ns).le.gln.and.sslt(ns).le.glt) iqf(4)=1 + endif + enddo + if(iqf(1)+iqf(2)+iqf(3)+iqf(4).le.2) then + ngs=ngs+1 + CALL ll_xy (glat(i,j),glon(i,j),polat,polon,gsx(ngs),gsy(ngs)) + gswt(ngs)=gridwt + do k=1,nisn + do nv=1,nvar + gsdat(ngs,k,nv)=grid(i,j,k,nv) + enddo + enddo + endif + + 40 continue + enddo + enddo + return + +endif + +return +END SUBROUTINE prebarn + +!############################################################################## +Subroutine bn_parm (wvlnth,respon,gamma,x4k) + +implicit none + +real :: wvlnth,respon,gamma,x4k +real :: a,o4k,agam,agam1,e1,e2,e3 +integer :: n + +! Computes the Barnes(1974) "4K" value given a +! wavelength, response, and gamma + +a=-(3.14159/wvlnth)**2 +o4k=(wvlnth/3.14159)**2 +agam=a*gamma +agam1=a*(gamma+1) +n=0 +81 continue +n=n+1 +e1=exp(a*o4k) +e2=exp(agam*o4k) +e3=exp(agam1*o4k) +x4k=o4k-(e1+e2-e3-respon)/(a*e1+agam*e2-agam1*e3) +if(abs(o4k-x4k).lt.(1./gamma))go to 80 +o4k=x4k +if(n.lt.50)go to 81 +83 continue +print 85,n,x4k +85 format(' iteration problem in barnes 4k value ',i5,e20.10) +stop 'bn_parm' + +80 continue +if(x4k.le.0.)go to 83 + +return +END SUBROUTINE bn_parm + +!############################################################################## +Subroutine bn_pass (grid,nxx,nyy,nlev,nvar,glat,glon & + ,ist,sdat,sxxx,syyy,swt,nsta,scra,x4k & + ,polat,polon,npass,iqflag,qual) + +implicit none + +integer :: nxx,nyy,nlev,nvar,ist,nsta,npass,iqflag +real :: grid(nxx,nyy,nlev,nvar),glat(nxx,nyy),glon(nxx,nyy) & + ,sdat(ist,nlev,nvar,*),scra(ist,*),sxxx(*),syyy(*),swt(*) & + ,qual(nxx,nyy) +real :: x4k,polat,polon +integer :: i,j,k,nv,n +real :: sum,sw,dfactx,dfacty,gxxx,gyyy + +dfactx=-1./x4k +dfacty=-1./x4k + +do j=1,nyy + do i=1,nxx + + CALL ll_xy (glat(i,j),glon(i,j),polat,polon & + ,gxxx,gyyy) + gxxx=gxxx*.001 + gyyy=gyyy*.001 + + do n=1,nsta + scra(n,1)=exp( max(-20., & + (gyyy-syyy(n)*.001)**2*dfacty & + + (gxxx-sxxx(n)*.001)**2*dfactx) ) *swt(n) + enddo + + do nv=1,nvar + do k=1,nlev + + sum=0. + sw=0. + do n=1,nsta + if(sdat(n,k,nv,npass).lt.1e20) then + sum=sum+sdat(n,k,nv,npass)*scra(n,1) + sw=sw+scra(n,1) + endif + enddo + + if(sw.gt.1e-20) then + if(iqflag.eq.0) then + grid(i,j,k,nv)=grid(i,j,k,nv)+sum/sw + else + if(qual(i,j).lt.1.e20) then + grid(i,j,k,nv)=grid(i,j,k,nv) & + +sum/sw*qual(i,j) + else +! Just leave first guess field +!cc grid(i,j,k,nv)=grid(i,j,k,nv) + endif + endif + + else + if(npass.eq.1) then + grid(i,j,k,nv)=1.e30 + elseif(npass.eq.2) then +! Just leave first guess field +!cc grid(i,j,k,nv)=grid(i,j,k,nv) + endif + endif + + enddo + enddo + + enddo +enddo + +return +END SUBROUTINE bn_pass + +!############################################################################## +Subroutine stainterp (grid,nxx,nyy,nlev,nvar & + ,ist,sdat,sxxx,syyy,nsta,swx,swy,delx,dval) + +implicit none + +integer :: nxx,nyy,nlev,nvar,ist,nsta +real :: grid(nxx,nyy,nlev,nvar),sdat(ist,nlev,nvar,2),sxxx(*),syyy(*) & + ,swx,swy,delx,dval +integer :: n,nv,k,ni,nj +real :: fi,fj,dx,dy,yval1,sval + +do n=1,nsta + fj=(syyy(n)-swy)/delx + fi=(sxxx(n)-swx)/delx + ni=fi+1.000001 + nj=fj+1.000001 + dy=mod(fj,1.) + dx=mod(fi,1.) + + if(ni.ge.1.and.ni.lt.nxx.and.nj.ge.1.and.nj.lt.nyy) then + do nv=1,nvar + do k=1,nlev + if(sdat(n,k,nv,1).lt.1.e20) then + yval1=grid(ni,nj,k,nv) & + +(grid(ni+1,nj,k,nv)-grid(ni,nj,k,nv))*dx + sval=yval1+(grid(ni,nj+1,k,nv) & + +(grid(ni+1,nj+1,k,nv)-grid(ni,nj+1,k,nv)) & + *dx-yval1)*dy + sdat(n,k,nv,2)=sdat(n,k,nv,1)-sval + else + sdat(n,k,nv,2)=1.e30 + endif + enddo + enddo + else + do nv=1,nvar + do k=1,nlev + sdat(n,k,nv,2)=dval + enddo + enddo + endif +enddo + +return +END SUBROUTINE stainterp + +!############################################################################## +Subroutine bn_qual (qual,nxx,nyy,glat,glon,sxxx,syyy,nsta,x4k,polat,polon) + +implicit none + +integer :: nxx, nyy,nsta +real :: glat(nxx,nyy),glon(nxx,nyy),sxxx(*),syyy(*),qual(nxx,nyy) & + ,x4k,polat,polon +integer :: n,i,j +real :: dfactx,dfacty,gxxx,gyyy + +dfactx=-1./x4k +dfacty=-1./x4k + +CALL azero (nxx*nyy,qual) +do n=1,nsta + do j=1,nyy + do i=1,nxx + + CALL ll_xy (glat(i,j),glon(i,j),polat,polon & + ,gxxx,gyyy) + + qual(i,j)=max(qual(i,j), & + exp( max(-20.,((gyyy-syyy(n))*.001)**2*dfacty & + + ((gxxx-sxxx(n))*.001)**2*dfactx) ) ) + enddo + enddo +enddo + +return +END SUBROUTINE bn_qual + diff --git a/src/6.2.16/isan/asgen.f90 b/src/6.2.16/isan/asgen.f90 new file mode 100644 index 0000000..bfb6cf5 --- /dev/null +++ b/src/6.2.16/isan/asgen.f90 @@ -0,0 +1,1095 @@ +!############################################################################## +Subroutine isan_driver () + +use node_mod +use isan_coms +use mem_grid +use io_params +use hdf5_utils +use mem_leaf +use mem_varinit, only:snudcent + +implicit none + +character(len=3) :: csuff +character(len=strl1) :: locfn +integer :: ifm,icm,ng,k +integer*8 :: h5_fid +integer :: iphdf5 + +if (nmachs .gt. 1) then + iphdf5 = 1 +else + iphdf5 = 0 +endif + +! Topo is read from surface files. + +do ng=1,ngrids + CALL newgrid (ng) + CALL top_read (ng) +enddo + +! Setup RAMS horizontal and vertical grid structure. + +CALL grid_setup (2) + +! Allocate RAMS grid arrays where data analysis will be put +! for output and feedback. Old way was to use "A" + +maxix=maxval(mmxp(1:nigrids)) +maxiy=maxval(mmyp(1:nigrids)) +maxiz=maxval(mmzp(1:nigrids)) + +do ngrid=1,nigrids + !For upper air grids + allocate(is_grids(ngrid)%rr_u (mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_v (mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_t (mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_r (mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_p (mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_ug (mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_vg (mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_tg (mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_rg (mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_pg (mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_pi0 (mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_th0 (mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_dn0 (mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_dn0u(mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_dn0v(mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) + + !For condensate nudging option + allocate(is_grids(ngrid)%rr_cond (mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) + + !For soil/snow initialization + allocate(is_grids(ngrid)%rr_soilmoist1 (mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_soilmoist2 (mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_soiltemp1 (mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_soiltemp2 (mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_snowmass (mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_snowdepth (mmxp(ngrid),mmyp(ngrid))) +enddo +allocate(rr_scr1(maxix*maxiy*maxiz)) +allocate(rr_scr2(maxix*maxiy*maxiz)) +allocate(rr_scr3(maxix*maxiy*maxiz)) +allocate(rr_vt2da(maxix*maxiy)) + +! Do inventory of input file names, determine which times to process + +CALL isan_file_inv (iyear1,imonth1,idate1,itime1,timmax) + +! Start main processing loop for each data time + +do natime=1,npdates + if (iproc_flag(natime,1) == 0) cycle + CALL date_unmake_big (iyear,imonth,idate,ihour,iproc_dates(natime)) + print* + print*,'========================================================' + print*,'ISAN natime: ',natime,npdates,iproc_dates(natime) + print*,'ISAN processing time: ',iyear,imonth,idate,ihour + print* + ihour=ihour/100 + + innpr=iproc_names(natime,1) + + !Read in and process reanalysis pressure level data from dprep "dp" files + if(iproc_flag(natime,2).eq.1) then + CALL pressure_stage (mmxp(1),mmyp(1),grid_g(1)%glat(1,1),grid_g(1)%glon(1,1)) + print*,'';print*,'Finished pressure stage';print*,'' + endif + +! Isentropic/sigma-z analysis to all requested RAMS grids + + do ngrid=1,nigrids + + ! Find number of sigma-z levels + + do k=1,mmzp(ngrid) + if(ztn(k,ngrid) > topsigz) goto 100 + sigz(k)=ztn(k,ngrid) + enddo + k=mmzp(ngrid)+1 + 100 continue + nsigz=k-1 + + +! Allocate memory for isentropic analysis +! -------------------------------------------------------- + print*,'Allocating RAMS polar/isentropic grid-' & + ,ngrid,mmxp(ngrid),mmyp(ngrid),nisn + + allocate(pi_u(mmxp(ngrid),mmyp(ngrid),nisn)) + allocate(pi_v(mmxp(ngrid),mmyp(ngrid),nisn)) + allocate(pi_p(mmxp(ngrid),mmyp(ngrid),nisn)) + allocate(pi_s(mmxp(ngrid),mmyp(ngrid),nisn)) + allocate(pi_r(mmxp(ngrid),mmyp(ngrid),nisn)) + allocate(pi_scra(mmxp(ngrid),mmyp(ngrid),nisn)) + allocate(pi_scrb(mmxp(ngrid),mmyp(ngrid),nisn)) + +! Allocate memory for sigma-z analysis +! -------------------------------------------------------- + + print*,'Allocating RAMS polar/sigmaz grid-' & + ,ngrid,mmxp(ngrid),mmyp(ngrid),nsigz + + allocate(ps_u(mmxp(ngrid),mmyp(ngrid),nsigz)) + allocate(ps_v(mmxp(ngrid),mmyp(ngrid),nsigz)) + allocate(ps_p(mmxp(ngrid),mmyp(ngrid),nsigz)) + allocate(ps_t(mmxp(ngrid),mmyp(ngrid),nsigz)) + allocate(ps_r(mmxp(ngrid),mmyp(ngrid),nsigz)) + allocate(ps_scra(mmxp(ngrid),mmyp(ngrid),nsigz)) + allocate(ps_scrb(mmxp(ngrid),mmyp(ngrid),nsigz)) + +! Allocate memory for surface analysis +! -------------------------------------------------------- + + print*,'Allocating RAMS polar/surface grid-' & + ,ngrid,mmxp(ngrid),mmyp(ngrid) + + allocate(rs_u(mmxp(ngrid),mmyp(ngrid))) + allocate(rs_v(mmxp(ngrid),mmyp(ngrid))) + allocate(rs_p(mmxp(ngrid),mmyp(ngrid))) + allocate(rs_t(mmxp(ngrid),mmyp(ngrid))) + allocate(rs_r(mmxp(ngrid),mmyp(ngrid))) + allocate(rs_s(mmxp(ngrid),mmyp(ngrid))) + allocate(rs_top(mmxp(ngrid),mmyp(ngrid))) + allocate(rs_qual(mmxp(ngrid),mmyp(ngrid))) + allocate(rs_soilmoist1(mmxp(ngrid),mmyp(ngrid))) + allocate(rs_soilmoist2(mmxp(ngrid),mmyp(ngrid))) + allocate(rs_soiltemp1(mmxp(ngrid),mmyp(ngrid))) + allocate(rs_soiltemp2(mmxp(ngrid),mmyp(ngrid))) + allocate(rs_snowmass(mmxp(ngrid),mmyp(ngrid))) + allocate(rs_snowdepth(mmxp(ngrid),mmyp(ngrid))) + + + ! Do isentropic and sigma-z analysis + + if(iszstage == 1) then + + print*,'Doing isentropic-sigz analysis' + CALL isnstage () + + ! Output isentropic file if desired + + if(ioflgisz == 1)then + write(csuff,'(a1,i1)') 'g',ngrid + CALL makefnam (locfn,varpfx,0,iyear,imonth,idate, & + ihour*100,'I',csuff,'h5') + CALL shdf5_open (locfn,'W',iphdf5,h5_fid,iclobber) + CALL isenio (h5_fid,iphdf5,'OUT',mmxp(ngrid),mmyp(ngrid),ngrid) + CALL sigzio (h5_fid,iphdf5,'OUT',mmxp(ngrid),mmyp(ngrid),ngrid) + CALL shdf5_close (h5_fid) + endif + + elseif(ivrstage == 1) then + print*,'Doing varfile stage and reading in data' + write(csuff,'(a1,i1)') 'g',ngrid + CALL makefnam (locfn,varpfx,0,iyear,imonth,idate, & + ihour*100,'I',csuff,'h5') + CALL shdf5_open (locfn,'R',iphdf5,h5_fid,iclobber) + CALL isenio (h5_fid,iphdf5,'IN',mmxp(ngrid),mmyp(ngrid),ngrid) + CALL sigzio (h5_fid,iphdf5,'IN',mmxp(ngrid),mmyp(ngrid),ngrid) + CALL shdf5_close (h5_fid) + endif + + ! Prepare "varfiles" + + if(ivrstage == 1) then + CALL makevarf (ngrid) + endif + + deallocate(pi_u,pi_v,pi_p,pi_s,pi_r,pi_scra,pi_scrb) + deallocate(ps_u,ps_v,ps_p,ps_t,ps_r,ps_scra,ps_scrb) + deallocate(rs_u,rs_v,rs_p,rs_t,rs_r,rs_s,rs_top,rs_qual) + deallocate(rs_soilmoist1,rs_soilmoist2,rs_soiltemp1,rs_soiltemp2 & + ,rs_snowmass,rs_snowdepth) + + enddo + + ! Do the nesting feedback and write out the "varfiles" + + if(ivrstage == 1) then + + if(nfeedvar == 1 .and. nigrids > 1) then + + ! fill reference states for all grids + CALL varfile_refstate (mmzp(1),mmxp(1),mmyp(1) & + ,is_grids(1)%rr_t(1,1,1),is_grids(1)%rr_p(1,1,1) & + ,is_grids(1)%rr_pi0(1,1,1),is_grids(1)%rr_th0(1,1,1) & + ,is_grids(1)%rr_r(1,1,1),is_grids(1)%rr_dn0(1,1,1) & + ,is_grids(1)%rr_dn0u(1,1,1),is_grids(1)%rr_dn0v(1,1,1) & + ,grid_g(1)%topt(1,1),grid_g(1)%rtgt(1,1) & + ,ztn(1,1),ztop,piref(1,1),thref(1,1),dnref(1,1),rtref(1,1)) + is_grids(1)%rr_p(1:mmzp(1),1:mmxp(1),1:mmyp(1)) = & + is_grids(1)%rr_p (1:mmzp(1),1:mmxp(1),1:mmyp(1)) & + -is_grids(1)%rr_pi0(1:mmzp(1),1:mmxp(1),1:mmyp(1)) + + ! Initialize fine grids by interpolating from the parent coarse grid + do ifm = 1,nigrids + icm = nxtnest(ifm) + if (icm .ge. 1) then + CALL newgrid (ifm) + CALL interp_fine_grid_sfcvar (ifm,icm,IFG_MKVF_INIT) + endif + enddo + + ! Feed back u,v,pi,t,and rt fields + do ifm=nigrids,2,-1 + icm=nxtnest(ifm) + if (icm == 0) cycle + CALL varfile_nstfeed (ifm,icm,mmzp(ifm),mmxp(ifm),mmyp(ifm) & + ,mmzp(icm),mmxp(icm),mmyp(icm) & + ,nnstbot(icm),nnsttop(icm)) + enddo + + do ifm=1,nigrids + is_grids(ifm)%rr_p(1:mmzp(ifm),1:mmxp(ifm),1:mmyp(ifm)) = & + is_grids(ifm)%rr_p (1:mmzp(ifm),1:mmxp(ifm),1:mmyp(ifm)) & + +is_grids(ifm)%rr_pi0(1:mmzp(ifm),1:mmxp(ifm),1:mmyp(ifm)) + enddo + endif + + !Set condensate nudging variable to null value for + !standard varfile creation. + do ifm=1,nigrids + is_grids(ifm)%rr_cond = -9999. + enddo + + !Quality control on soil moisture and temperature to make sure all + !land grid cells have valid soil values and not missing data. + if(isoildat == 1 .or. snudcent > 0.) then + do ifm = 1,nigrids + CALL newgrid (ifm) + CALL sfc_read (ifm) + CALL soil_quality_control (ifm,mmxp(ifm),mmyp(ifm),npatch & + ,is_grids(ifm)%rr_soilmoist1(1,1),is_grids(ifm)%rr_soilmoist2(1,1) & + ,is_grids(ifm)%rr_soiltemp1(1,1),is_grids(ifm)%rr_soiltemp2(1,1) & + ,grid_g(ifm)%glat(1,1),grid_g(ifm)%glon(1,1) & + ,leaf_g(ifm)%patch_area(1,1,1),leaf_g(ifm)%leaf_class(1,1,1)) + enddo + endif + + !Write out the varfiles now that all the prep is finished. + if(ioflgvar == 1) then + CALL write_varf () + endif + + endif + +enddo + +return +END SUBROUTINE isan_driver + +!############################################################################## +Subroutine soil_quality_control (ifm,n2,n3,npat,soil_moist_bot,soil_moist_top & + ,soil_temp_bot,soil_temp_top,glat,glon,patch_area,leaf_class) + +use mem_grid, only:iprntstmt,print_msg + +implicit none + +integer :: n2,n3,i,j,ii,jj,minii,minjj,ifm,npat +real, dimension(n2,n3) :: glat,glon,soil_moist_top,soil_moist_bot & + ,soil_temp_top,soil_temp_bot,soil_moist_top_temp,soil_moist_bot_temp & + ,soil_temp_top_temp,soil_temp_bot_temp +real, dimension(n2,n3,npat) :: patch_area,leaf_class +real :: disty,distx,dist,mindist,maxsoil + + if(iprntstmt>=1 .and. print_msg)then + print*,'------------------------------------------------------------------' + print*,'RUNNING QC ON SOIL MOISTURE AND SOIL TEMPERATURE, GRID:',IFM + print*,'------------------------------------------------------------------' + endif + + !Do some initial quality control + do j = 1,n3 + do i = 1,n2 + !Set NULL as in the write to varfiles + if(soil_moist_top(i,j) >= 1E30) soil_moist_top(i,j) = -9999. + if(soil_moist_bot(i,j) >= 1E30) soil_moist_bot(i,j) = -9999. + if(soil_temp_top(i,j) >= 1E30) soil_temp_top(i,j) = -9999. + if(soil_temp_bot(i,j) >= 1E30) soil_temp_bot(i,j) = -9999. + !Check for high values + if(soil_moist_top(i,j) > 0.49 .or. soil_moist_bot(i,j) > 0.49) then + soil_moist_top(i,j) = .49 + soil_moist_bot(i,j) = .49 + endif + !Check for non-zero low values + if((soil_moist_top(i,j) > 0.0 .and. soil_moist_top(i,j) < 0.01) .or. & + (soil_moist_bot(i,j) > 0.0 .and. soil_moist_bot(i,j) < 0.01)) then + soil_moist_top(i,j) = 0.0101 + soil_moist_bot(i,j) = 0.0101 + endif + !Set default temp array values + soil_moist_top_temp(i,j) = -9999. + soil_moist_bot_temp(i,j) = -9999. + soil_temp_top_temp(i,j) = -9999. + soil_temp_bot_temp(i,j) = -9999. + enddo + enddo + + !Interpolate to what amounts to coastal point where data is null, but + !RAMS says there is land that needs valid soil moisture values. + do j = 1,n3 + do i = 1,n2 + !if(i==7.and.j==1)print*,'st1',patch_area(i,j,2),nint(leaf_class(i,j,2)) & + !,soil_moist_top(i,j),soil_moist_bot(i,j) + if((soil_moist_top(i,j) < 0.01 .or. soil_moist_top(i,j) > 0.49 .or. & + soil_moist_bot(i,j) < 0.01 .or. soil_moist_bot(i,j) > 0.49 ) .and. & + patch_area(i,j,2) > 0.001 .and. & + nint(leaf_class(i,j,2)) >= 2 .and. nint(leaf_class(i,j,2)) <= 21) then + mindist=9.99e12 + minii=i + minjj=j + do jj = 1,n3 + do ii = 1,n2 + if(soil_moist_top(ii,jj) > 0.01 .and. & + nint(leaf_class(ii,jj,2)) >= 2 .and. nint(leaf_class(ii,jj,2)) <= 21) then + disty=abs(glat(i,j)-glat(ii,jj))*111.12 + distx=abs(glon(i,j)-glon(ii,jj))*111.12*cos((glat(i,j)+glat(ii,jj))/2.0*3.14/180.) + dist=sqrt(distx**2.0+disty**2.0) + if(dist 0.001 .and. (maxsoil >.50 .or. maxsoil <.01)) then + print*,'WARNING: Some land areas have invalid soil moisture values:' + print*,'Need varfiles for all grids at initial time for valid soil on all grids.' + print*,ifm,i,j,soil_moist_bot(i,j),soil_moist_top(i,j),patch_area(i,j,2) + stop + endif + enddo + enddo + +return +END SUBROUTINE soil_quality_control + +!############################################################################## +Subroutine opspec4 () + +use mem_grid +use isan_coms + +implicit none + +integer :: ifaterr,iwarerr,infoerr + +! This routine checks the option specifications in the $MODEL_GRIDS +! $ISAN_ISENTROPIC namelists for consistency. + +IFATERR=0 +IWARERR=0 +INFOERR=0 + +! Don't allow NIGRIDS <= NGRIDS + +if(nigrids.gt.ngrids)then + print*,' FATAL - NIGRIDS must be <= NGRIDS' + IFATERR=IFATERR+1 +endif + + +! Stop the run if there are any fatal errors. List how many +! warning and informative errors. + +PRINT*,' -----------opspec4--------------------------' +PRINT*,' FATAL errors - ',IFATERR +PRINT*,' WARNING errors - ',IWARERR +PRINT*,' INFORM messages - ',INFOERR +PRINT*,' -----------------------------------------------' + +IF(IFATERR.GT.0) STOP 'OPSPEC4' + +return +END SUBROUTINE opspec4 + +!############################################################################## +Subroutine nudh_driver () + +use node_mod +use isan_coms +use mem_grid +use mem_varinit, only:nnudfl,fnames_nud,nnudfiles +use io_params +use hdf5_utils + +implicit none + +integer :: ng,lnf,ifm,icm,checkhist + +!Allocate grid data type since almost all model memory is not used for ISAN. +print*,'start HISTORY-VAR grid allocation' +! If grid_g has already been allocated, deallocate it so +! we can start over. See comments in isan_driver() above. +if (allocated(grid_g)) then + do ng=1,ngrids + CALL dealloc_grid (grid_g(ng)) + enddo + deallocate(grid_g) +endif + +allocate(grid_g(ngrids)) +do ng=1,ngrids + CALL alloc_grid (grid_g(ng),mmxp(ng),mmyp(ng)) +enddo + +!Topo is read from surface files. +do ng=1,ngrids + CALL newgrid (ng) + CALL top_read (ng) +enddo + +!Setup RAMS horizontal and vertical grid structure. +CALL grid_setup (2) + +!Allocate RAMS grid arrays +maxix=maxval(mmxp(1:nigrids)) +maxiy=maxval(mmyp(1:nigrids)) +maxiz=maxval(mmzp(1:nigrids)) + +do ngrid=1,nigrids + allocate(is_grids(ngrid)%rr_u (mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_v (mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_t (mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_r (mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_p (mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_pi0 (mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_dn0 (mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_th0 (mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_dn0u (mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_dn0v (mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) + + allocate(is_grids(ngrid)%rr_cond (mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) + + allocate(is_grids(ngrid)%rr_soilmoist1 (mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_soilmoist2 (mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_soiltemp1 (mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_soiltemp2 (mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_snowmass (mmxp(ngrid),mmyp(ngrid))) + allocate(is_grids(ngrid)%rr_snowdepth (mmxp(ngrid),mmyp(ngrid))) +enddo +allocate(rr_scr1(maxix*maxiy*maxiz)) +allocate(rr_scr2(maxix*maxiy*maxiz)) +allocate(rr_scr3(maxix*maxiy*maxiz)) +allocate(rr_vt2da(maxix*maxiy)) + +!Do inventory of input file names. All will be processed. +CALL nud_file_inv (var_hfile,iyear1,imonth1,idate1,itime1) + +!Start main processing loop for each data time +histloop: do nnudfl=1,nnudfiles + + !Read the history files and extract needed data for varfiles + CALL hvfiles (nnudfl,checkhist) + + !Check to see if all history grids are present at a given time + if(checkhist==0) cycle histloop + + ! Update varfile pressure variable for grid 1 + is_grids(1)%rr_p(1:mmzp(1),1:mmxp(1),1:mmyp(1)) = & + is_grids(1)%rr_p (1:mmzp(1),1:mmxp(1),1:mmyp(1)) & + +is_grids(1)%rr_pi0(1:mmzp(1),1:mmxp(1),1:mmyp(1)) + + ! Initialize the fine grids via interpolation + do ifm = 1,nigrids + icm = nxtnest(ifm) + if (icm .ge. 1) then + CALL newgrid (ifm) + CALL interp_fine_grid_sfcvar (ifm,icm,IFG_MKHF_INIT) + endif + enddo + + !Varfiles expect the 6 soil and snow fields, so we must put in dummy values + do ngrid=1,nigrids + is_grids(ngrid)%rr_soilmoist1 = -9999. + is_grids(ngrid)%rr_soilmoist2 = -9999. + is_grids(ngrid)%rr_soiltemp1 = -9999. + is_grids(ngrid)%rr_soiltemp2 = -9999. + is_grids(ngrid)%rr_snowmass = -9999. + is_grids(ngrid)%rr_snowdepth = -9999. + enddo + + !Set some filetime naming conventions prior to writing + lnf=len_trim(fnames_nud(nnudfl)) + read(fnames_nud(nnudfl)(lnf-25:lnf-9),20) iyear,imonth,idate,ihour + 20 format(i4,1x,i2,1x,i2,1x,i6) + ihour=ihour/100 + + !Write the varfile + CALL write_varf () + +enddo histloop + +return +END SUBROUTINE nudh_driver + +!############################################################################## +Subroutine hvfiles (nnud,checkhist) + +use isan_coms +use an_header +use mem_grid +use ref_sounding +use micphys, only:level +use grid_struct +use mem_leaf, only:nvegpat +use hdf5_utils +use mem_varinit +use node_mod + +implicit none + +integer :: nnud,ngrids1,nzg1,nzs1,npatch1,nvegpat1,ierr,ng,nc & + ,ie,maxarr1,maxarr2,ngr,maxx1,maxy1,maxz1,npts,nv & + ,ihtran1,nzpg1,checkhist,nvloopstart,dim_type +integer, external :: cio_i,cio_f +integer,save :: iunhd=11 +integer, allocatable, dimension(:) :: nnxp1,nnyp1,nnzp1 +real :: ztop1,polelat1,polelon1 +real, allocatable, dimension(:,:) :: xmn1,xtn1,ymn1,ytn1,zmn1,ztn1,topt1 +real, allocatable, dimension(:) :: scr,scr1,scr2,scr3 +character(len=strl1) :: hnameinh +character(len=2) :: cng +character(len=1) :: cgrid +real, allocatable, dimension(:) :: u01dn1,v01dn1,rt01dn1,th01dn1 & + ,pi01dn1,dn01dn1 +logical :: exists ! File existence + +integer*8 :: h5_fid +integer :: iphdf5 +type (hdf5_select_type) :: mem_select,file_select +integer, dimension(HDF5_MAX_DIMS) :: file_chunks + +type (head_table), allocatable :: hr_table(:) + +type(grid_def), allocatable :: grdefh(:) +type(grid_def), allocatable :: grdefn(:) + +print*,'Doing HISTORY FILE NUDGING option.' + +33 format(a30,2i5,3x,a18,i8) +34 format(a,i3,3x,a,i3,a) + +!Get length of history file name +nc=len_trim(fnames_nud(nnud)) + +!Open RAMS history header file +CALL rams_f_open (iunhd,fnames_nud(nnud),'FORMATTED','OLD','READ',0) + +!Get grid specs for grid comparison +ie=cio_i(iunhd,1,'ngrids',ngrids1,1) + +allocate (nnxp1(ngrids1),nnyp1(ngrids1),nnzp1(ngrids1)) + +ie=cio_i(iunhd,1,'nnxp',nnxp1,ngrids1) +ie=cio_i(iunhd,1,'nnyp',nnyp1,ngrids1) +ie=cio_i(iunhd,1,'nnzp',nnzp1,ngrids1) +ie=cio_i(iunhd,1,'npatch',npatch1,1) +ie=cio_i(iunhd,1,'nvegpat',nvegpat1,1) +ie=cio_i(iunhd,1,'nzg',nzg1,1) +ie=cio_i(iunhd,1,'nzs',nzs1,1) +ie=cio_f(iunhd,1,'ztop',ztop1,1) +ie=cio_f(iunhd,1,'polelat',polelat1,1) +ie=cio_f(iunhd,1,'polelon',polelon1,1) +ie=cio_i(iunhd,1,'ihtran',ihtran1,1) + +!Make sure new grid top does not exceed old grid top +if(ztop > ztop1) then + if(print_msg) then + print*,'New interpolated grid top higher than past grid top!' + print*,'Cannot interpolate. Extrapolation not recommended.' + print*,'Past top:',ztop1, ' New top:',ztop + endif + stop +endif + +if (ihtran /= ihtran1) then + print*,'GRID TYPE (Cartesian or Polar Stereographic) must be the same' + print*,'between history grid and current grid. May need to consider' + print*,'wind rotation and such if we allow a change.' + stop +endif + +!Find maximum size of any array on history file. Allocate scratch arrays. +maxarr1=0 +maxarr2=0 +maxx1=maxval(nnxp1(1:ngrids1)) +maxy1=maxval(nnyp1(1:ngrids1)) +maxz1=maxval(nnzp1(1:ngrids1)) +do ngr=1,ngrids1 + maxarr1=max(maxarr1,nnxp1(ngr)*nnyp1(ngr)*nnzp1(ngr)) + maxarr2=max(maxarr2,nnxp1(ngr)*nnyp1(ngr)) +enddo +allocate (scr(maxarr1),scr1(maxarr1)) + +!Allocate and read in grid specifications +allocate(xmn1(maxx1,ngrids1),xtn1(maxx1,ngrids1)) +allocate(ymn1(maxy1,ngrids1),ytn1(maxy1,ngrids1)) +allocate(zmn1(maxz1,ngrids1),ztn1(maxz1,ngrids1)) +do ngr=1,ngrids1 + write(cng,'(i2.2)') ngr + ie=cio_f(iunhd,1,'xmn'//cng,xmn1(1,ngr),nnxp1(ngr)) + ie=cio_f(iunhd,1,'xtn'//cng,xtn1(1,ngr),nnxp1(ngr)) + ie=cio_f(iunhd,1,'ymn'//cng,ymn1(1,ngr),nnyp1(ngr)) + ie=cio_f(iunhd,1,'ytn'//cng,ytn1(1,ngr),nnyp1(ngr)) + ie=cio_f(iunhd,1,'zmn'//cng,zmn1(1,ngr),nnzp1(ngr)) + ie=cio_f(iunhd,1,'ztn'//cng,ztn1(1,ngr),nnzp1(ngr)) +enddo + +!Read variable header info +rewind(iunhd) + +!Top of header file. Total number of variables on all grids. +read(iunhd,*) nvbtab +!Allocate space for header file variable information +allocate (hr_table(nvbtab)) +!Reader info on each variables in header file. +!(ex. Name IfAPointer Dimension Grid #GridPoints) +!(ex. UP 0 3 1 49000) +do nv=1,nvbtab + read(iunhd,*) & + hr_table(nv)%string & + ,hr_table(nv)%npointer & + ,hr_table(nv)%idim_type & + ,hr_table(nv)%ngrid & + ,hr_table(nv)%nvalues +enddo + +!Check to see that all history grids are present at this time +checkhist=1 +do ngr=1,ngrids1 + write(cgrid,'(i1)') ngr + hnameinh=fnames_nud(nnudfl)(1:nc-9)//'-g'//cgrid//'.h5' + inquire(file=hnameinh,exist=exists) + if(.not. exists)then + checkhist=0 + return + endif +enddo + +!Allocate history topography and get TOPT +allocate (topt1(maxarr2,ngrids1)) +do ngr=1,ngrids1 + write(cgrid,'(i1)') ngr + hnameinh=fnames_nud(nnud)(1:nc-9)//'-g'//cgrid//'.h5' + CALL update_for_hist_grid (1,ngrids1,nnzp1,nnxp1,nnyp1,nzg1,nzs1,npatch1) + if (nmachs .gt. 1) then + iphdf5 = 1 + else + iphdf5 = 0 + endif + CALL shdf5_open (hnameinh,'R',iphdf5,h5_fid) + CALL shdf5_set_hs_select (2,'R',ngr & + ,mem_select,file_select,file_chunks) + CALL shdf5_irec (h5_fid,iphdf5,'TOPT' & + ,mem_select,file_select,rvara=topt1(1,ngr)) + CALL shdf5_close (h5_fid) + CALL update_for_hist_grid (2,ngrids1,nnzp1,nnxp1,nnyp1,nzg1,nzs1,npatch1) +enddo + +!********* START CHECK GRID MATCHING ***************************** +! Set a flag array (for each grid on the history file) to determine: +! = 1 = This grid is identical to a current grid +! = 0 = This grid is different. + +igrid_match(1:maxgrds,1:maxgrds)=0 + +!Allocate grid structures +allocate (grdefn(nigrids)) +allocate (grdefh(ngrids1)) + +print*,'###################################################################' +print*,'# History Grids:',ngrids1 +print*,'# Current Grids:',nigrids + +!Define the History Grid +do ngr=1,ngrids1 + CALL alloc_grid_def ( grdefh(ngr),nnxp1(ngr),nnyp1(ngr),nnzp1(ngr) ) + CALL fill_grid_def ( grdefh(ngr),nnxp1(ngr),nnyp1(ngr),nnzp1(ngr) & + ,nzg1,nzs1,npatch1,nvegpat1,polelat1,polelon1 & + ,xtn1(1,ngr),xmn1(1,ngr),ytn1(1,ngr),ymn1(1,ngr) & + ,ztn1(1,ngr),zmn1(1,ngr),topt1(1,ngr) ) +enddo +!Define the Current Initial Grid +do ngr=1,nigrids + CALL alloc_grid_def ( grdefn(ngr),mmxp(ngr),mmyp(ngr),mmzp(ngr) ) + CALL fill_grid_def ( grdefn(ngr),mmxp(ngr),mmyp(ngr),mmzp(ngr) & + ,nzg,nzs,npatch,nvegpat,polelat,polelon & + ,xtn(1,ngr),xmn(1,ngr),ytn(1,ngr),ymn(1,ngr) & + ,ztn(1,ngr),zmn(1,ngr),grid_g(ngr)%topt ) +enddo + +! See if the history grids match any of the new grids...assuming 1:1 grid number +! correspondence for now +do ngr=1,ngrids1 + do ng=1,nigrids + CALL compare_grid_def (grdefh(ngr),grdefn(ng),'nud_update',ierr,ngr,ng) + if (ierr /= 0) then + ! No match... + print*,'These grids do NOT match (Hist,New):',ngr,ng + else + ! We have a match... + igrid_match(ngr,ng)=1 + print*,'These grids DO match (Hist,New):',ngr,ng + endif + enddo +enddo +print*,'###################################################################' + +!********* END CHECK GRID MATCHING ***************************** + +!********* START READING IN THE DATA *************************** +! Finally, process the fields... + +!************************************************************************* +!The code below copies or interpolates all history grids to all current +!grids in the model if a current grid fits fully inside a history grid. +!This is only done for the 5 main nudging fields. +!************************************************************************* + +!************************************************************************* +!Loop over history grids "ngr" (ngrids1 = number of grids in history file) +!************************************************************************* +do ngr = 1,ngrids1 + + !Get history file name and open the file + write(cgrid,'(i1)') ngr + hnameinh = fnames_nud(nnud)(1:nc-9)//'-g'//cgrid//'.h5' + + !************************************************************************* + !Loop over current run grids "ng" (nigrids = number of grids in current + !run that we will make varfiles for. + !************************************************************************* + do ng=1,nigrids + + if (xtn(1,ng) < xtn1(1,ngr) .or. xtn(mmxp(ng),ng) > xtn1(nnxp1(ngr),ngr) .or. & + ytn(1,ng) < ytn1(1,ngr) .or. ytn(mmyp(ng),ng) > ytn1(nnyp1(ngr),ngr) ) then + + print*,'###################################################################' + print 34,' Current Grid:',ng,'outside bounds of History Grid:',ngr,': NO Interp' + print*,'Will not interpolate to a new grid bigger than hist grid.' + if(ngr==1)stop 'Current grid larger than all history grids.' + print*,'###################################################################' + + else + + print*,'###################################################################' + print 34,' Current Grid:',ng,' within bounds of History Grid:',ngr,': Interp' + print*,'###################################################################' + + !Number of grid points for the current run variable + npts=mmzp(ng)*mmxp(ng)*mmyp(ng) + allocate (scr2(npts),scr3(npts)) + + !Loop over history variables + nvloopstart=0 + varloop: do nv=1,nvbtab + + !Cycle if the history variable is not on the grid we are looping over + if(ngr /= hr_table(nv)%ngrid) cycle varloop + + !Assign or interpolate primary nudging variables + if(hr_table(nv)%string=="UP" .or. & + hr_table(nv)%string=="VP" .or. & + hr_table(nv)%string=="THETA" .or. & + hr_table(nv)%string=="RTP" .or. & + hr_table(nv)%string=="PP") then + + !Copy current grid structure to temporary arrays and tell + !HDF5 to look for history file grid structure to read. + CALL update_for_hist_grid (1,ngrids1,nnzp1,nnxp1,nnyp1,nzg1,nzs1,npatch1) + if (nmachs .gt. 1) then + iphdf5 = 1 + else + iphdf5 = 0 + endif + !Open file, Read data from the history files, Close file + CALL shdf5_open (hnameinh,'R',iphdf5,h5_fid) + dim_type = hr_table(nv)%idim_type + CALL shdf5_set_hs_select (dim_type,'R',ngr & + ,mem_select,file_select,file_chunks) + CALL shdf5_irec (h5_fid,iphdf5,trim(hr_table(nv)%string) & + ,mem_select,file_select,rvara=scr1) + CALL shdf5_close (h5_fid) + !Copy current grid structure back to main grid arrays. + CALL update_for_hist_grid (2,ngrids1,nnzp1,nnxp1,nnyp1,nzg1,nzs1,npatch1) + + !Arrange data for RAMS to work with to copy or interpolate + CALL unarrange (nnzp1(ngr),nnxp1(ngr),nnyp1(ngr),scr1,scr) + + !Copy or interpolate history grids to current grids + if(igrid_match(ngr,ng)==1) then + !If grids match, just copy fields over to nudging arrays + if(iprntstmt>=1)print 33,'nud_update: copy: ' & + ,ngr,ng,hr_table(nv)%string,npts + CALL atob (npts,scr(1),scr2(1)) + else + !Otherwise do interpolation to different grid + if(iprntstmt>=1)print 33,'nud_update: interp: ' & + ,ngr,ng,hr_table(nv)%string,npts + CALL hi_interp (nnzp1(ngr),nnxp1(ngr),nnyp1(ngr),1,1,scr(1) & + ,xmn1(1,ngr),xtn1(1,ngr),ymn1(1,ngr),ytn1(1,ngr) & + ,zmn1(1,ngr),ztn1(1,ngr),topt1(1,ngr),ztop1 & + ,mmzp(ng),mmxp(ng),mmyp(ng),1,1,scr2(1) & + ,ng,ngr,hr_table(nv)%string,3) + endif + endif + + !Assign or interpolate sum of RCP,RDP,RRP,RPP,RSP,RAP,RGP,RHP + if(hr_table(nv)%string=="RCP" .or. & + hr_table(nv)%string=="RDP" .or. & + hr_table(nv)%string=="RRP" .or. & + hr_table(nv)%string=="RPP" .or. & + hr_table(nv)%string=="RSP" .or. & + hr_table(nv)%string=="RAP" .or. & + hr_table(nv)%string=="RGP" .or. & + hr_table(nv)%string=="RHP") then + if(nvloopstart==0) then + CALL azero (npts,scr2(1)) + nvloopstart=1 + endif + + !Copy current grid structure to temporary arrays and tell + !HDF5 to look for history file grid structure to read. + CALL update_for_hist_grid (1,ngrids1,nnzp1,nnxp1,nnyp1,nzg1,nzs1,npatch1) + if (nmachs .gt. 1) then + iphdf5 = 1 + else + iphdf5 = 0 + endif + !Open file, Read data from the history files, Close file + CALL shdf5_open (hnameinh,'R',iphdf5,h5_fid) + dim_type = hr_table(nv)%idim_type + CALL shdf5_set_hs_select (dim_type,'R',ngr & + ,mem_select,file_select,file_chunks) + CALL shdf5_irec (h5_fid,iphdf5,trim(hr_table(nv)%string) & + ,mem_select,file_select,rvara=scr1) + CALL shdf5_close (h5_fid) + !Copy current grid structure back to main grid arrays. + CALL update_for_hist_grid (2,ngrids1,nnzp1,nnxp1,nnyp1,nzg1,nzs1,npatch1) + + !Arrange data for RAMS to work with to copy or interpolate + CALL unarrange (nnzp1(ngr),nnxp1(ngr),nnyp1(ngr),scr1,scr) + + !Copy or interpolate history grids to current grids + if(igrid_match(ngr,ng)==1) then + !If grids match, just copy fields over to nudging arrays + if(iprntstmt>=1)print 33,'nud_update: accum: ' & + ,ngr,ng,hr_table(nv)%string,npts + CALL nud_cond_accum (npts,scr(1),scr2(1)) + else + !Otherwise do interpolation to different grid + if(iprntstmt>=1)print 33,'nud_update: interp: ' & + ,ngr,ng,hr_table(nv)%string,npts + CALL hi_interp (nnzp1(ngr),nnxp1(ngr),nnyp1(ngr),1,1,scr(1) & + ,xmn1(1,ngr),xtn1(1,ngr),ymn1(1,ngr),ytn1(1,ngr) & + ,zmn1(1,ngr),ztn1(1,ngr),topt1(1,ngr),ztop1 & + ,mmzp(ng),mmxp(ng),mmyp(ng),1,1,scr3(1) & + ,ng,ngr,hr_table(nv)%string,3) + CALL nud_cond_accum (npts,scr3(1),scr2(1)) + endif + endif + + if(hr_table(nv)%string=="UP") CALL atob (npts,scr2(1),is_grids(ng)%rr_u(1,1,1)) + if(hr_table(nv)%string=="VP") CALL atob (npts,scr2(1),is_grids(ng)%rr_v(1,1,1)) + if(hr_table(nv)%string=="THETA") CALL atob (npts,scr2(1),is_grids(ng)%rr_t(1,1,1)) + if(hr_table(nv)%string=="RTP") CALL atob (npts,scr2(1),is_grids(ng)%rr_r(1,1,1)) + if(hr_table(nv)%string=="PP") CALL atob (npts,scr2(1),is_grids(ng)%rr_p(1,1,1)) + + !Copy the accumulation each time a hydrometeor species is accesssed since + !we do not know which will be the last active species to copy. + if(hr_table(nv)%string=="RCP" .or. & + hr_table(nv)%string=="RDP" .or. & + hr_table(nv)%string=="RRP" .or. & + hr_table(nv)%string=="RPP" .or. & + hr_table(nv)%string=="RSP" .or. & + hr_table(nv)%string=="RAP" .or. & + hr_table(nv)%string=="RGP" .or. & + hr_table(nv)%string=="RHP") then + CALL atob (npts,scr2(1),is_grids(ng)%rr_cond(1,1,1)) + endif + + enddo varloop ! do looping over nudged variables + + deallocate (scr2,scr3) + + endif !if current grid fully contained in history grid + + enddo !do looping over current run grids + +enddo !do looping over history grids + +!************************************************************************* +!The following code for reference state variables is set up for +!grid-1. If there is more than one grid, the model will interpolate +!from grid-1 to additional grids. This is done in rdint.f90 routine "initlz". +!************************************************************************* + +!Prepare 1D reference sounding for history grid-1 and apply to new grid-1. +!Really only need to do this to get the isan Pressure variable. + nzpg1=nnzp1(1) + allocate(u01dn1(nzpg1), v01dn1(nzpg1),rt01dn1(nzpg1) & + ,th01dn1(nzpg1),pi01dn1(nzpg1),dn01dn1(nzpg1) ) + + cng='01' + ie=cio_f(iunhd,1,'u01dn'//cng, u01dn1(1),nzpg1) + ie=cio_f(iunhd,1,'v01dn'//cng, v01dn1(1),nzpg1) + ie=cio_f(iunhd,1,'pi01dn'//cng,pi01dn1(1),nzpg1) + ie=cio_f(iunhd,1,'th01dn'//cng,th01dn1(1),nzpg1) + ie=cio_f(iunhd,1,'dn01dn'//cng,dn01dn1(1),nzpg1) + ie=cio_f(iunhd,1,'rt01dn'//cng,rt01dn1(1),nzpg1) + + CALL htint (nzpg1,th01dn1,ztn1(1,1),mmzp(1),th01dn(1,1),ztn(1,1)) + CALL htint (nzpg1,u01dn1 ,ztn1(1,1),mmzp(1),u01dn(1,1) ,ztn(1,1)) + CALL htint (nzpg1,v01dn1 ,ztn1(1,1),mmzp(1),v01dn(1,1) ,ztn(1,1)) + CALL htint (nzpg1,pi01dn1,ztn1(1,1),mmzp(1),pi01dn(1,1),ztn(1,1)) + CALL htint (nzpg1,dn01dn1,ztn1(1,1),mmzp(1),dn01dn(1,1),ztn(1,1)) + if (level .ge. 1) then + CALL htint (nzpg1,rt01dn1,ztn1(1,1),mmzp(1),rt01dn(1,1),ztn(1,1)) + else + rt01dn(1:mmzp(1),1) = 0. + endif + + u01dn(1,1) = u01dn(2,1) + v01dn(1,1) = v01dn(2,1) + rt01dn(1,1) = rt01dn(2,1) + th01dn(1,1) = th01dn(2,1) + + !Close the input history header file + close(iunhd) + + !Compute 3d reference state for grid 1 + CALL newgrid (1) + CALL refs3d (mmzp(1),mmxp(1),mmyp(1) & + ,is_grids(1)%rr_pi0 (1,1,1) ,is_grids(1)%rr_dn0 (1,1,1) & + ,is_grids(1)%rr_dn0u (1,1,1) ,is_grids(1)%rr_dn0v (1,1,1) & + ,is_grids(1)%rr_th0 (1,1,1) ,grid_g(1)%topt (1,1) & + ,grid_g(1)%rtgt (1,1) ) + + !Deallocate temporary arrays + deallocate(u01dn1,v01dn1,rt01dn1,th01dn1,pi01dn1,dn01dn1) + + !Deallocate temporary arrays + deallocate(topt1,hr_table,xmn1,ymn1,zmn1,xtn1,ytn1,ztn1,scr,scr1 & + ,nnxp1,nnyp1,nnzp1) + + do ngr=1,ngrids1 + CALL dealloc_grid_def (grdefh(ngr)) + enddo + do ngr=1,nigrids + CALL dealloc_grid_def (grdefn(ngr)) + enddo + +return +END SUBROUTINE hvfiles + +!############################################################################## +Subroutine nud_cond_accum (n,a,b) + +implicit none + +integer :: n,i +real :: a(n),b(n) + +do i=1,n + b(i)=a(i)+b(i) +enddo + +return +END SUBROUTINE nud_cond_accum + +!############################################################################## +Subroutine nud_file_inv (hfilin,iyear1,imonth1,idate1,itime1) + +use mem_varinit + +implicit none + +character(len=*) :: hfilin +integer :: iyear1,imonth1,idate1,itime1,nf,lnf,nhftot & + ,inyear,inmonth,indate,inhour +character(len=strl1) :: fnames(maxnudfiles),hpref +character(len=14) :: itotdate +real(kind=8) :: secs_init,secs_nud + +! Get abs seconds of run start + +CALL date_abs_secs2 (iyear1,imonth1,idate1,itime1*100,secs_init) + +! Go through history files and make inventory + +nhftot=-1 +hpref=hfilin + +CALL rams_filelist (fnames,trim(hpref) & + //'????-??-??-??????-head.txt',nhftot) + +if(nhftot > maxnudfiles) then + print*,'too many nud history files' + stop 'lots_of_nud_history' +endif + +nnudfiles=0 +do nf=1,nhftot + lnf=len_trim(fnames(nf)) + read(fnames(nf)(lnf-25:lnf-9),20) inyear,inmonth,indate,inhour + 20 format(i4,1x,i2,1x,i2,1x,i6) + + CALL date_make_big (inyear,inmonth,indate,inhour,itotdate) + + nnudfiles=nnudfiles+1 + fnames_nud(nnudfiles)=fnames(nf) + itotdate_nud(nnudfiles)=itotdate + + CALL date_abs_secs2 (inyear,inmonth,indate,inhour,secs_nud) + nud_times(nnudfiles)=secs_nud - secs_init + +enddo + +CALL rams_dintsort (nnudfiles,itotdate_nud,fnames_nud) + +! start printing section + +print*,' ' +print*,'-------------------------------------------------------------' +print*,'----------- History Nudging Input File Inventory -----------' +print*,'-------------------------------------------------------------' +do nf=1,nnudfiles + print*, itotdate_nud(nf),' ',nud_times(nf) & + ,trim(fnames_nud(nf)) +enddo +print*,'------------------------------------------------------' + +return +END SUBROUTINE nud_file_inv diff --git a/src/6.2.16/isan/asti.f90 b/src/6.2.16/isan/asti.f90 new file mode 100644 index 0000000..b7311cd --- /dev/null +++ b/src/6.2.16/isan/asti.f90 @@ -0,0 +1,641 @@ +!############################################################################## +Subroutine isnstage () + +use isan_coms +use mem_grid + +implicit none + +character(len=8) :: rot_type +real :: reflat1,reflon1,olat1,olat2,olon1,olon2 & + ,olatmin,olatmax,olonmin,olonmax +integer :: ng + +! ---------------------------------------------start ngrid =1 section +if(ngrid.eq.1) then + +!----------------------------------------------------------------- +! Read rawinsondes and surface observations +!----------------------------------------------------------------- +! Default to RAMS grid 1 for obs access and plotting +!----------------------------------------------------------------- + + CALL rams_mm (grid_g(ngrid)%glat(1,1),nnxp(1)*nnyp(1),olatmin,olatmax) + CALL rams_mm (grid_g(ngrid)%glon(1,1),nnxp(1)*nnyp(1),olonmin,olonmax) + + olat1=olatmin-5. + olat2=olatmax+5. + olon1=olonmin-5. + olon2=olonmax+5. + + nsta=0 + + if(iproc_flag(natime,3).eq.1) then + + if(.not.allocated(up_p)) allocate(up_p(maxsta,maxlev)) + if(.not.allocated(up_t)) allocate(up_t(maxsta,maxlev)) + if(.not.allocated(up_z)) allocate(up_z(maxsta,maxlev)) + if(.not.allocated(up_r)) allocate(up_r(maxsta,maxlev)) + if(.not.allocated(up_uz)) allocate(up_uz(maxsta,maxlev)) + if(.not.allocated(up_vz)) allocate(up_vz(maxsta,maxlev)) + if(.not.allocated(up_ur)) allocate(up_ur(maxsta,maxlev)) + if(.not.allocated(up_vr)) allocate(up_vr(maxsta,maxlev)) + if(.not.allocated(up_zz)) allocate(up_zz(maxsta,maxlev)) + + if(.not.allocated(up_lat)) allocate(up_lat(maxsta)) + if(.not.allocated(up_lon)) allocate(up_lon(maxsta)) + if(.not.allocated(up_top)) allocate(up_top(maxsta)) + if(.not.allocated(up_lp)) allocate(up_lp(maxsta)) + if(.not.allocated(up_lz)) allocate(up_lz(maxsta)) + if(.not.allocated(up_topg))allocate(up_topg(maxsta,nigrids)) + + if(.not.allocated(up_chstid)) allocate (up_chstid(maxsta)) + + inrawi=iproc_names(natime,2) + + CALL input_rawi () + + do ng=1,nigrids + + if(ng.gt.1) up_topg(1:maxsta,ng)=up_topg(1:maxsta,nxtnest(ng)) + + CALL soundtopo (ng,nsta,maxsta,up_topg(1,ng) & + ,up_lat,up_lon,up_top & + ,grid_g(ng)%topt(1,1) & + ,nnxp(ng),nnyp(ng),polelat,polelon & + ,xtn(1,ng),ytn(1,ng),deltaxn(ng)) + enddo + + + endif + +!----------------------------------------------------------------- +! Read surface observations +!----------------------------------------------------------------- + + nssfc=0 + + if(iproc_flag(natime,4).eq.1) then + + + if(.not.allocated(sf_u)) allocate(sf_u(maxsfc)) + if(.not.allocated(sf_v)) allocate(sf_v(maxsfc)) + if(.not.allocated(sf_ur)) allocate(sf_ur(maxsfc)) + if(.not.allocated(sf_vr)) allocate(sf_vr(maxsfc)) + if(.not.allocated(sf_p)) allocate(sf_p(maxsfc)) + if(.not.allocated(sf_t)) allocate(sf_t(maxsfc)) + if(.not.allocated(sf_s)) allocate(sf_s(maxsfc)) + if(.not.allocated(sf_r)) allocate(sf_r(maxsfc)) + if(.not.allocated(sf_lat)) allocate(sf_lat(maxsfc)) + if(.not.allocated(sf_lon)) allocate(sf_lon(maxsfc)) + if(.not.allocated(sf_top)) allocate(sf_top(maxsfc)) + if(.not.allocated(sf_scra)) allocate(sf_scra(maxsfc)) + + if(.not.allocated(sf_chstid)) allocate (sf_chstid(maxsfc)) + if(.not.allocated(sf_date)) allocate (sf_date(maxsfc)) + + insrfce=iproc_names(natime,3) + + CALL input_sfc () + + endif + +endif + + +! end of ngrid =1 section + +!----------------------------------------------------------------- +! Interpolate pressure data to RAMS grid +!----------------------------------------------------------------- + +if(igridfl.gt.0) then + +! First, interpolate first guess pressure data horizontally to the +! RAMS polar-stereo grid +! -------------------------------------------------------- + + print*,'Allocating polar/pressure grid-' & + ,nnxp(ngrid),nnyp(ngrid),nprz,ngrid + + if(.not.allocated(pp_u)) allocate(pp_u(nnxp(ngrid),nnyp(ngrid),nprz)) + if(.not.allocated(pp_v)) allocate(pp_v(nnxp(ngrid),nnyp(ngrid),nprz)) + if(.not.allocated(pp_t)) allocate(pp_t(nnxp(ngrid),nnyp(ngrid),nprz)) + if(.not.allocated(pp_z)) allocate(pp_z(nnxp(ngrid),nnyp(ngrid),nprz)) + if(.not.allocated(pp_r)) allocate(pp_r(nnxp(ngrid),nnyp(ngrid),nprz)) + if(.not.allocated(pp_sglob)) allocate(pp_sglob(nprx+3,npry+2)) + +! Rotate winds to the RAMS polar-stereo grid +! -------------------------------------------------------- + if(inproj.eq.1) then + rot_type='ll_rps' + reflat1=0. + reflon1=0. + elseif(inproj.eq.2) then + rot_type='lc_rps' + reflat1=cntlat + reflon1=cntlon + elseif(inproj.eq.3) then + rot_type='ps_rps' + reflat1=cntlat + reflon1=cntlon + endif + + CALL rotate_winds (rot_type,nprx,npry,nprz & + ,p_u(1,1,1),p_v(1,1,1),p_ur(1,1,1),p_vr(1,1,1) & + ,p_lat(1,1),p_lon(1,1) & + ,reflat1,reflon1,polelat,polelon,idatain) + + if(inproj.eq.1) then + CALL latlon_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,nprz,1,0 & + ,pp_u,pp_sglob,p_ur,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,gdatdy,idatelin,iglobew,iglobs,iglobn) + CALL latlon_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,nprz,1,0 & + ,pp_v,pp_sglob,p_vr,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,gdatdy,idatelin,iglobew,iglobs,iglobn) + CALL latlon_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,nprz,1,0 & + ,pp_t,pp_sglob,p_t,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,gdatdy,idatelin,iglobew,iglobs,iglobn) + CALL latlon_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,nprz,1,0 & + ,pp_z,pp_sglob,p_z,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,gdatdy,idatelin,iglobew,iglobs,iglobn) + CALL latlon_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,nprz,1,1 & + ,pp_r,pp_sglob,p_r,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,gdatdy,idatelin,iglobew,iglobs,iglobn) + ! Surface fields + CALL latlon_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,1,1,1 & + ,rs_soilmoist1,pp_sglob,p_soilmoist1,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,gdatdy,idatelin,iglobew,iglobs,iglobn) + CALL latlon_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,1,1,1 & + ,rs_soilmoist2,pp_sglob,p_soilmoist2,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,gdatdy,idatelin,iglobew,iglobs,iglobn) + CALL latlon_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,1,1,1 & + ,rs_soiltemp1,pp_sglob,p_soiltemp1,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,gdatdy,idatelin,iglobew,iglobs,iglobn) + CALL latlon_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,1,1,1 & + ,rs_soiltemp2,pp_sglob,p_soiltemp2,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,gdatdy,idatelin,iglobew,iglobs,iglobn) + CALL latlon_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,1,1,1 & + ,rs_snowmass,pp_sglob,p_snowmass,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,gdatdy,idatelin,iglobew,iglobs,iglobn) + CALL latlon_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,1,1,1 & + ,rs_snowdepth,pp_sglob,p_snowdepth,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,gdatdy,idatelin,iglobew,iglobs,iglobn) + + elseif(inproj.eq.2) then + CALL lambcon_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,nprz,1,0 & + ,pp_u,p_ur,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,cntlat,cntlon) + CALL lambcon_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,nprz,1,0 & + ,pp_v,p_vr,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,cntlat,cntlon) + CALL lambcon_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,nprz,1,0 & + ,pp_t,p_t,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,cntlat,cntlon) + CALL lambcon_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,nprz,1,0 & + ,pp_z,p_z,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,cntlat,cntlon) + CALL lambcon_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,nprz,1,1 & + ,pp_r,p_r,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,cntlat,cntlon) + ! Surface fields + CALL lambcon_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,1,1,1 & + ,rs_soilmoist1,p_soilmoist1,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,cntlat,cntlon) + CALL lambcon_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,1,1,1 & + ,rs_soilmoist2,p_soilmoist2,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,cntlat,cntlon) + CALL lambcon_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,1,1,1 & + ,rs_soiltemp1,p_soiltemp1,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,cntlat,cntlon) + CALL lambcon_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,1,1,1 & + ,rs_soiltemp2,p_soiltemp2,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,cntlat,cntlon) + CALL lambcon_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,1,1,1 & + ,rs_snowmass,p_snowmass,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,cntlat,cntlon) + CALL lambcon_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,1,1,1 & + ,rs_snowdepth,p_snowdepth,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,cntlat,cntlon) + + elseif(inproj.eq.3) then + CALL trueps60_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,nprz,1,0 & + ,pp_u,p_ur,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,cntlon) + CALL trueps60_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,nprz,1,0 & + ,pp_v,p_vr,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,cntlon) + CALL trueps60_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,nprz,1,0 & + ,pp_t,p_t,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,cntlon) + CALL trueps60_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,nprz,1,0 & + ,pp_z,p_z,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,cntlon) + CALL trueps60_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,nprz,1,1 & + ,pp_r,p_r,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,cntlon) + ! Surface fields + CALL trueps60_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,1,1,1 & + ,rs_soilmoist1,p_soilmoist1,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,cntlon) + CALL trueps60_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,1,1,1 & + ,rs_soilmoist2,p_soilmoist2,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,cntlon) + CALL trueps60_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,1,1,1 & + ,rs_soiltemp1,p_soiltemp1,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,cntlon) + CALL trueps60_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,1,1,1 & + ,rs_soiltemp2,p_soiltemp2,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,cntlon) + CALL trueps60_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,1,1,1 & + ,rs_snowmass,p_snowmass,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,cntlon) + CALL trueps60_ps (nnxp(ngrid),nnyp(ngrid),nprx,npry,1,1,1 & + ,rs_snowdepth,p_snowdepth,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,xswlat,xswlon,gdatdx,cntlon) + endif + +! Next, interpolate vertically to the specified isentropes +! -------------------------------------------------------- + CALL vterpp_i (nnxp(ngrid),nnyp(ngrid),nprz,nisn & + ,pp_u,pp_v,pp_t,pp_z,pp_r & + ,pi_u,pi_v,pi_p,pi_s,pi_r) + +! Last, interpolate vertically to the sigma-z levels +! -------------------------------------------------------- + + CALL vterpp_s (nnxp(ngrid),nnyp(ngrid),nprz,nsigz & + ,pp_u,pp_v,pp_t,pp_z,pp_r & + ,ps_u,ps_v,ps_p,ps_t,ps_r & + ,grid_g(ngrid)%topt(1,1) & + ,grid_g(ngrid)%rtgt(1,1)) + + if(allocated(pp_u)) deallocate(pp_u) + if(allocated(pp_v)) deallocate(pp_v) + if(allocated(pp_t)) deallocate(pp_t) + if(allocated(pp_z)) deallocate(pp_z) + if(allocated(pp_r)) deallocate(pp_r) + if(allocated(pp_sglob)) deallocate(pp_sglob) + +endif + +!----------------------------------------------------------------- +! Do objective analysis or interpolation to RAMS grids +!----------------------------------------------------------------- + +!----------------------------------------------------------------- +! If only using gridded p data, fill rs_qual, then we're done... +!----------------------------------------------------------------- + +if(igridfl.eq.3) then + + CALL strmfun (nnxp(ngrid),nnyp(ngrid),grid_g(ngrid)%topt(1,1) & + ,grid_g(ngrid)%rtgt(1,1)) + + rs_qual(1:nnxp(ngrid),1:nnyp(ngrid)) = 0. + + goto 1200 +endif + +!----------------------------------------------------------------- +! Perform upper air objective analysis/interpolation +!----------------------------------------------------------------- + +! Rotate obs winds to RAMS polar-stereo grid +! (reflat1,reflon1) doesn't matter since obs winds +! are earth relative + +if(iproc_flag(natime,3).eq.1) then + CALL rotate_winds ('ll_rps',maxsta,1,maxlev & + ,up_uz,up_vz,up_ur,up_vr & + ,up_lat,up_lon & + ,reflat1,reflon1,polelat,polelon,idatain) +endif + +if(iproc_flag(natime,4).eq.1) then + CALL rotate_winds ('ll_rps',nssfc,1,1 & + ,sf_u,sf_v,sf_ur,sf_vr & + ,sf_lat,sf_lon & + ,reflat1,reflon1,polelat,polelon,idatain) +endif + +! Isentropic coordinates +!----------------------------------------------------------------- + +! Interpolate rawindsondes vertically to isentropes + + print*,'Allocating obs/isen array-',nsta,nisn + + allocate(upi_u(nsta,nisn)) + allocate(upi_v(nsta,nisn)) + allocate(upi_p(nsta,nisn)) + allocate(upi_s(nsta,nisn)) + allocate(upi_r(nsta,nisn)) + + if (nsta > 0) CALL obs_isen (maxsta,maxlev & + ,up_t,up_p,up_z,up_r,up_ur,up_vr,up_zz,up_lp,up_lz & + ,upi_u,upi_v,upi_p,upi_s,upi_r,nsta,up_chstid) + + CALL obj_anal ('isen',ngrid,nnxp(ngrid),nnyp(ngrid) & + ,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,polelat,polelon,xtn(1,ngrid),ytn(1,ngrid) & + ,deltaxn(ngrid)) + + deallocate (upi_u,upi_v,upi_p,upi_s,upi_r) + +! Sigma-z coordinates +!----------------------------------------------------------------- + +! Interpolate rawindsondes vertically to sigma-z + +print*,'Allocating obs/sigma-z array-',nsta,nsigz + +allocate(ups_u(nsta,nsigz)) +allocate(ups_v(nsta,nsigz)) +allocate(ups_p(nsta,nsigz)) +allocate(ups_t(nsta,nsigz)) +allocate(ups_r(nsta,nsigz)) + +if (nsta > 0) CALL obs_sigz (maxsta,maxlev,up_t,up_p,up_z & + ,up_r,up_ur,up_vr,up_zz,up_lp,up_lz,up_topg(1,ngrid) & + ,ups_u,ups_v,ups_p,ups_t,ups_r,nsta,zmn(nnzp(1)-1,1)) + +CALL obj_anal ('sigz',ngrid,nnxp(ngrid),nnyp(ngrid) & + ,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,polelat,polelon,xtn(1,ngrid),ytn(1,ngrid) & + ,deltaxn(ngrid)) + +deallocate (ups_u,ups_v,ups_p,ups_t,ups_r) + +!----------------------------------------------------------------- +! Find Montgomery streamfunc on isentropic surfaces +!----------------------------------------------------------------- + +CALL strmfun (nnxp(ngrid),nnyp(ngrid),grid_g(ngrid)%topt(1,1) & + ,grid_g(ngrid)%rtgt(1,1)) + +!----------------------------------------------------------------- +! Perform ground surface objective analysis. +!----------------------------------------------------------------- + +CALL obj_anal ('surf',ngrid,nnxp(ngrid),nnyp(ngrid) & + ,grid_g(ngrid)%glat(1,1),grid_g(ngrid)%glon(1,1) & + ,polelat,polelon,xtn(1,ngrid),ytn(1,ngrid) & + ,deltaxn(ngrid)) + + +! Check if "quality" of surface grid point is good + +CALL sfcqual (nnxp(ngrid),nnyp(ngrid),grid_g(ngrid)%glat(1,1) & + ,grid_g(ngrid)%glon(1,1) & + ,rs_qual,sf_lat,sf_lon,sf_p,nssfc,sf_scra) + +1200 continue + +return +END SUBROUTINE isnstage + +!############################################################################## +Subroutine sfcqual (nxp,nyp,glat,glon,quals3 & + ,sflt,sfln,pss,nssfc,scra) + +use rconstants + +implicit none + +integer :: nxp,nyp,nssfc +real :: glat(nxp,nyp),glon(nxp,nyp),sflt(*),sfln(*),scra(*) & + ,quals3(nxp,nyp),pss(*) + +integer :: iqf(4),i,j,ns +real :: gobkm,gobrd + +gobkm=2.*111.120 +gobrd=4.*111.120 + +do i=1,nxp + do j=1,nyp + quals3(i,j)=0. + iqf(1)=0 + iqf(2)=0 + iqf(3)=0 + iqf(4)=0 + do ns=1,nssfc + scra(ns)=sqrt(((glat(i,j)-sflt(ns))*111.12)**2 & + +((glon(i,j)-sfln(ns))*111.12 & + *cos((glat(i,j)+sflt(ns))*.5*.01745))**2) + enddo + do ns=1,nssfc + if(pss(ns).lt.1e19.and.scra(ns).lt.gobkm) then + quals3(i,j)=1. + endif + enddo + do ns=1,nssfc + if(scra(ns).le.gobrd) then + if(sfln(ns).le.glon(i,j).and.sflt(ns).ge.glat(i,j)) iqf(1)=1 + if(sfln(ns).ge.glon(i,j).and.sflt(ns).ge.glat(i,j)) iqf(2)=1 + if(sfln(ns).ge.glon(i,j).and.sflt(ns).le.glat(i,j)) iqf(3)=1 + if(sfln(ns).le.glon(i,j).and.sflt(ns).le.glat(i,j)) iqf(4)=1 + endif + enddo + if(iqf(1)+iqf(2)+iqf(3)+iqf(4).ge.3) quals3(i,j)=quals3(i,j)+2. + enddo +enddo + +return +END SUBROUTINE sfcqual + +!############################################################################## +Subroutine strmfun (nxp,nyp,topt,rtgt) + +use isan_coms +use rconstants + +implicit none + +integer :: nxp,nyp +real, dimension(nxp,nyp) :: topt,rtgt + +real, dimension(maxsigz) :: sigzr,temp,thv + +integer :: k,i,j,lbchyd,lbc,lbcp +real, external :: rsatmix +real :: syo,po,tho,thvo,sigo,bcpr + + ! Find a boundary condition as first level at or below 360K + + lbchyd=360 + do k=nisn,1,-1 + if(levth(k).le.lbchyd) then + do i=1,nxp + do j=1,nyp + if(pi_p(i,j,k).gt.1e19) goto 50 + enddo + enddo + lbc=k + print 54,lbc,levth(lbc) + 54 format(///,' isentropic hydrostatic boundary set at level',2i6,' k') + goto 52 + 50 continue + endif + enddo + print 53,i,j,k + 53 format(' could not find good isentropic boundary level ',3i6) + stop 'st3-under' + 52 continue + + do i=1,nxp + do j=1,nyp + + syo=pi_s(i,j,lbc) + po=pi_p(i,j,lbc) + tho=levth(lbc) + !Integrate from isen hydrostatic B.C. to top + do k=lbc+1,nisn + pi_s(i,j,k)=1e30 + if(pi_p(i,j,k).lt.1e19) then + pi_s(i,j,k)=syo+cp*(po**rocp+pi_p(i,j,k)**rocp) & + *.5/p00**rocp *(levth(k)-tho) + syo=pi_s(i,j,k) + po=pi_p(i,j,k) + tho=levth(k) + endif + enddo + + syo=pi_s(i,j,lbc) + po=pi_p(i,j,lbc) + tho=levth(lbc) + !Integrate from isen hydrostatic B.C. to bottom + do k=lbc-1,1,-1 + pi_s(i,j,k)=1e30 + if(pi_p(i,j,k).lt.1e19) then + pi_s(i,j,k)=syo+cp*(po**rocp+pi_p(i,j,k)**rocp) & + *.5/p00**rocp*(levth(k)-tho) + syo=pi_s(i,j,k) + po=pi_p(i,j,k) + tho=levth(k) + endif + enddo + + enddo + enddo + +bcpr=10000. +do k=nsigz,1,-1 + if(sigz(k).le.bcpr) then + do i=1,nxp + do j=1,nyp + if(ps_t(i,j,k).gt.1e19) goto 60 + enddo + enddo + lbcp=k + print 64,lbcp,sigz(lbcp) + 64 format(///,' Sigma-z hydrostatic boundary set at level',i6,f10.1,' m') + goto 62 + 60 continue + endif +enddo +print 63 +63 format(' Could not find good sigma-z boundary level ') +stop 'st3-unders' +62 continue + +do i=1,nxp + do j=1,nyp + + !Compute sigma-z heights and theta-v + do k=1,nsigz + temp(k)=ps_t(i,j,k)*(ps_p(i,j,k)/p00)**rocp + sigzr(k)=topt(i,j)+sigz(k)*rtgt(i,j) + thv(k)=ps_t(i,j,k)*(1.+.61*ps_r(i,j,k) & + *rsatmix(ps_p(i,j,k),temp(k))) + enddo + + !Compute PI from pressure at sigma-z hydrostatic boundary level + ps_p(i,j,lbcp)=cp*(ps_p(i,j,lbcp)/p00)**rocp + + thvo=thv(lbcp) + po=ps_p(i,j,lbcp) + sigo=sigzr(lbcp) + !Integrate PI from upper hydrostatic boundary to top sigma lev + do k=lbcp+1,nsigz + ps_p(i,j,k)=1e30 + if(ps_t(i,j,k).lt.1e19.and.ps_r(i,j,k).lt.1.e19) then + ps_p(i,j,k)=po-g*(sigzr(k)-sigo)/((thvo+thv(k))*.5) + thvo=thv(k) + po=ps_p(i,j,k) + sigo=sigzr(k) + endif + enddo + + thvo=thv(lbcp) + po=ps_p(i,j,lbcp) + sigo=sigzr(lbcp) + !Integrate PI from upper hydrostatic boundary to bottom sigma lev + do k=lbcp-1,1,-1 + ps_p(i,j,k)=1e30 + if(ps_t(i,j,k).lt.1e19.and.ps_r(i,j,k).lt.1.e19) then + ps_p(i,j,k)=po+g*(sigo-sigzr(k))/((thvo+thv(k))*.5) + thvo=thv(k) + po=ps_p(i,j,k) + sigo=sigzr(k) + endif + enddo + !Convert PI back to pressure + do k=1,nsigz + ps_p(i,j,k)=(ps_p(i,j,k)/cp)**cpor*p00 + enddo + + !Check some output here if needed + !if(i==74.and.j==135)then + ! do k=nsigz,1,-1 + ! write(*,'(a,1(I4,1X),4(F7.2,1X),1(F9.2,1X),1(F6.2,1X))') 'strmfun1' & + ! ,k,ps_r(i,j,k),temp(k),ps_t(i,j,k),thv(k) & + ! ,ps_p(i,j,k)/100.,(1.e3)*rsatmix(ps_p(i,j,k),temp(k)) + ! enddo + ! do k=nisn,1,-1 + ! write(*,'(a,2(I4,1X),2(F11.3,1X))') 'strmfun2' & + ! ,k,levth(k),pi_s(i,j,k),pi_p(i,j,k)/100. + ! enddo + !endif + + enddo +enddo + +return +END SUBROUTINE strmfun + +!############################################################################## +Subroutine soundtopo (ngr,nst,m1,sndtopg,stlt,stln,topsnd,topt & + ,n1,n2,polat,polon,swx,swy,delx) + +implicit none + +integer :: ngr,nst,m1 ,n1,n2 +real :: stlt(m1),stln(m1),sndtopg(m1),topsnd(m1) & + ,topt(n1,n2),sdat(2) +real :: polat,polon,swx,swy,delx + +integer :: ns +real :: topo,stx,sty + +do ns=1,nst + sdat(1)=0. + CALL ll_xy (stlt(ns),stln(ns),polat,polon,stx,sty) + CALL stainterp (topt,n1,n2,1,1,1,sdat,stx,sty & + ,1,swx,swy,delx,-1.e30) + topo=-sdat(2) + if(ngr.eq.1) then + if(topo.lt.1e20) then + sndtopg(ns)=topo + else + sndtopg(ns)=topsnd(ns) + endif + else + if(topo.lt.1e20) sndtopg(ns)=topo + endif +enddo + +return +END SUBROUTINE soundtopo + diff --git a/src/6.2.16/isan/asti2.f90 b/src/6.2.16/isan/asti2.f90 new file mode 100644 index 0000000..a08738c --- /dev/null +++ b/src/6.2.16/isan/asti2.f90 @@ -0,0 +1,843 @@ +!############################################################################## +Subroutine input_rawi () + +use isan_coms +use gdf_input +use node_mod + +implicit none + +character(len=strl1) :: fnameu +real, dimension(maxlev) :: p,t,z,h,f,pp,zp,tp,hp,vz,uz,zz,rp,dz,fz +integer :: iqflagsp(maxlev,4,3),iqflagsz(maxlev,3,3) +character(len=16) :: idsta +character(len=14) :: obsdate +real(kind=8) :: nasecs,obssecs +integer :: k,ierr,ifile,nnn +integer :: jt,lp,lz,jyr,jmo,jdy,kl +real :: xlat,xlon,elev + +CALL date_abs_secs (iproc_dates(natime),nasecs) +CALL date_unmake_big (iyear,imonth,idate,ihour,iproc_dates(natime)) +ihour=ihour/100 + +print 559,inrawi +559 format(/' Acquiring rawindsonde input file ',A) +CALL rams_f_open (31,inrawi,'FORMATTED','OLD','READ',0) + +! optionally output a file containing the lat lon locations +! of each profile used for this analysis time + +if (used_file(1:4) /= 'none') then + fnameu=trim(used_file)//'-upa-' & + //inrawi(len_trim(inrawi)-18:len_trim(inrawi)) + open(91,file=fnameu,status='unknown') + rewind(91) + write(91,'(a)') '999999 3 ' + write(91,'(a)') '3 HEADER ' + write(91,'(a)') 'STATION_ID' + write(91,'(a)') 'LATITUDE ' + write(91,'(a)') 'LONGITUDE ' + write(91,'(a)') '0 DATA ' +endif + +ifile=1 +header(ifile)%iun=31 +CALL gdf_read_upa_ver (ifile) + + +do while(.true.) + + CALL gdf_read_upa_obs (ifile,'yes',ierr) + if(ierr == 1) exit + + do k=1,maxlev + p(k)=0. ; t(k)=0. + z(k)=0. ; h(k)=0. + f(k)=0. ; pp(k)=0. + zp(k)=0. ; tp(k)=0. + hp(k)=0. ; vz(k)=0. + uz(k)=0. ; zz(k)=0. + rp(k)=0. ; dz(k)=0. + fz(k)=0. + enddo + + jyr =rupa_obs%jyear + jmo =rupa_obs%jmonth + jdy =rupa_obs%jdate + jt =rupa_obs%jtime + idsta =rupa_obs%id + lp =rupa_obs%lp + lz =rupa_obs%lz + xlat =rupa_obs%lat + xlon =rupa_obs%lon + elev =rupa_obs%elev + + if(lp > maxlev .or. lz > maxlev) then + print*,'Rawindsonde read error!' + print*,' Number of input levels greater than MAXLEV' + print*,' lp,lz,maxlev:',lp,lz,maxlev + stop 'rawin-maxlev' + endif + + CALL gdf_upa_get_profile (p(1),nnn,'p_pas', 'p') + CALL gdf_upa_get_profile (z(1),nnn,'geo', 'p') + CALL gdf_upa_get_profile (t(1),nnn,'tempk', 'p') + CALL gdf_upa_get_profile (h(1),nnn,'relfrac','p') + + iqflagsp(1:lp,1:4,1:3)=rupa_obs%iqflagsp(1:lp,1:4,1:3) + + CALL gdf_upa_get_profile (zz(1),nnn,'zz', 'z') + CALL gdf_upa_get_profile (fz(1),nnn,'speed', 'z') + CALL gdf_upa_get_profile (dz(1),nnn,'direction','z') + + iqflagsz(1:lz,1:3,1:3)=rupa_obs%iqflagsz(1:lz,1:3,1:3) + + ! Check date + CALL date_make_big (jyr,jmo,jdy,jt*100,obsdate) + CALL date_abs_secs (obsdate,obssecs) + !print*,'===> ',natime,iobswin + !print*,'===> ',iproc_dates(natime),' ',nasecs ,iyear,imonth,idate,ihour + !print*,'===> ',obsdate ,' ',obssecs,jyr ,jmo ,jdy ,jt*100 + if((iobswin < 0 .and. & + (obssecs < nasecs+iobswin .or. obssecs > nasecs)).or. & + (iobswin > 0 .and. & + (obssecs < nasecs-iobswin .or. obssecs > nasecs+iobswin)).or. & + (iobswin .eq. 0 .and. nasecs .ne. obssecs)) then + print*,'station ',idsta(1:len_trim(idsta)) & + ,' excluded - out of obs window (s)',iobswin + cycle + !else + ! print*,'station ',idsta(1:len_trim(idsta)) & + ! ,' within obs window (s)',iobswin + endif + + ! --------------------------------------------------------- + ! Convert input variables to SI units and appropriate form + ! Set missing values to 1E30. + ! PP - Pressure (Pascals) + ! TP - Temperature (Kelvin) + ! RP - Relative humidity (fraction) + ! ZP - Height of pressure levels (meters) + ! ZZ - Height of wind levels (meters) + ! DZ - Wind direction (degrees) + ! FZ - Wind speed (m/s) + ! XLAT - Station latitude + ! XLON - Station longitude + ! ELEV - Station elevation (meters) + ! LP - Number of pressure levels + ! LZ - Number of wind levels in height + ! IDSTA- Station ID + ! --------------------------------------------------------- + + do kl=1,lp + if (p(kl) > -998.) then + pp(kl)=p(kl) + else + pp(kl)=1.e30 + endif + + if (z(kl) > -998.) then + zp(kl)=z(kl) + else + zp(kl)=1.e30 + endif + + if (t(kl) > -998.) then + tp(kl)=t(kl) + else + tp(kl)=1.e30 + endif + + if (h(kl) > -998.) then + rp(kl)=h(kl) + else + rp(kl)=1.e30 + endif + + !MJW Make sure that either pressure or height is non-missing + if(pp(kl) > 1.e20 .and. zp(kl) > 1.e20) then + tp(kl)=1.e30 ; rp(kl)=1.e30 + endif + + enddo + + do kl=1,lz + if (zz(kl) > -998.) then + zz(kl)=zz(kl) + else + zz(kl)=1.e30 + endif + + if (fz(kl) > -998.) then + fz(kl)=fz(kl) + else + fz(kl)=1.e30 + endif + + if (dz(kl) > -998.) then + dz(kl)=dz(kl) + else + dz(kl)=1.e30 + endif + + !MJW Make sure that height is non-missing + if(zz(kl) > 1.e20) then + fz(kl)=1.e30 ; dz(kl)=1.e30 + endif + + enddo + + !---------------------------------- + + CALL sndproc (lp,lz,xlat,xlon,elev,idsta & + ,tp,zp,pp,rp,dz,fz,zz) + +enddo + +print*,'End of rawindsonde file:',inrawi +close(31) + +if (used_file(1:4) /= 'none') close(91) + +return +END SUBROUTINE input_rawi + +!############################################################################## +Subroutine sndproc (lp,lz,xlat,xlon,elev,idsta,tp,zp,pp,rp,dz,fz,zz) + +use isan_coms +use rconstants + +implicit none + +real, dimension(*) :: tp,zp,pp,rp,dz,fz,zz +integer :: lp,lz +real :: xlat,xlon,elev +character(len=*) :: idsta + +real, dimension(maxlev) :: uz,vz,thz + +integer :: not,llp,k,llz,kk,lbc +real :: bchyd,rss,pio,tho,zso +real, external :: rsatmix + +do not=1,notsta + if('r'//idsta(1:5).eq.notid(not)(1:6)) then + print 31,idsta,xlat,xlon,elev,0,0 + return + endif +enddo +31 format(' ----- Station omitted ',1X,A8,' Lat:',F8.2,' Lon:',F8.2 & + ,' Elev:',F10.2,' P Levels:',I5,' Wind levels:',I5) + +nsta=nsta+1 + +!-------------------------------------------------------------------- +!mjb added the following from 4a as the following fix does not handle +! pressure levels flagged as suspect by qc (501) + +! Throw out any levels that have suspect pressure +! ALSO, don't read in any levels above the gridded data, since that leads +! to bulls-eyes around all soundings near model top + +llp=0 +do k=1,lp + if(pp(k).lt.1.e20) then + if(pp(k) < levpr(nprz)*100.)then + print 35,pp(k)/100.,levpr(nprz) +35 format(' discarding ',f6.1, & + 'mb level since it is above gridded data top at ',i4,'mb') + cycle + endif + llp=llp+1 + tp(llp)=tp(k) + zp(llp)=zp(k) + pp(llp)=pp(k) + rp(llp)=rp(k) + endif +enddo +lp=llp + +! Throw out any levels that have suspect winds +llz=0 +do k=1,lz + if(zz(k).lt.1.e20.and.dz(k).lt.1.e20.and.fz(k).lt.1.e20) then + llz=llz+1 + zz(llz)=zz(K) + fz(llz)=fz(K) + dz(llz)=dz(K) + !print*,'mjb w1',llz,zz(llz),fz(llz),dz(llz) + endif +enddo +!print*,'mjb - wind levels reduced: ',lz,llz +lz=llz +!-------------------------------------------------------------------- + +! arrange winds on height levels +do k=1,lz + if(dz(k).lt.1e19.and.fz(k).lt.1e19) CALL winduv (dz(k),fz(k),uz(k),vz(k)) +enddo +CALL sort3 (zz,uz,vz,lz) + +up_lat(nsta)=xlat +up_lon(nsta)=xlon +up_top(nsta)=elev +up_lp(nsta)=lp +up_lz(nsta)=lz +up_chstid(nsta)=idsta(1:8) + +! fix missing values if possible +do k=1,lp + ! missing temperatures are: + ! set to valid upper temperature if none below, + ! interpolated linearly in logP if between valid values, + ! left missing if no valid temperatures are above + if(tp(k).gt.1e29.and.k.ne.lp) then + !if(k > 1)then + ! print*,'missing temp',k,lp,tp(k-1) + !else + ! print*,'missing temp',k,lp,tp(k) + !endif + kk=k+1 + do while (kk.lt.lp.and.tp(kk).gt.1e29) + kk=kk+1 + enddo + if (k.eq.1.and.tp(kk).lt.1e30) then + tp(k)=tp(kk) + elseif(tp(kk).lt.1e30) then + tp(k)=tp(k-1)+(tp(kk)-tp(k-1))*log(pp(k)/pp(k-1))/log(pp(kk)/pp(k-1)) + endif + endif + ! same for humidities + if(rp(k).gt.1e29.and.k.ne.lp) then + !if(k > 1)then + ! print*,'missing rh',k,lp,rp(k-1) + !else + ! print*,'missing rh',k,lp,rp(k) + !endif + kk=k+1 + do while (kk.lt.lp.and.rp(kk).gt.1e29) + kk=kk+1 + enddo + if (k.eq.1.and.rp(kk).lt.1e30) then + rp(k)=rp(kk) + elseif(rp(kk).lt.1e30) then + rp(k)=rp(k-1)+(rp(kk)-rp(k-1))*log(pp(k)/pp(k-1))/log(pp(kk)/pp(k-1)) + endif + endif + +enddo + +! Now that we filled in as many temps and rh's we could, we will recompute heights. +! Find a boundary condition as first level at or below 500 mb. If we do +! not find a good level, we don't use the sounding. +! +! If there is no thermodynamic info (maybe only winds), skip this section. + +if (lp > 0) then + + bchyd=50000. + lbc=0 + do k=lp,1,-1 + if(pp(k) < 1.e19 .and. pp(k) >= bchyd .and. & + tp(k) < 1.e19 .and. zp(k) < 1.e19) then + lbc=k + go to 52 + endif + enddo + + ! Didn't find a good level, so let's look up from 500mb... + do k=1,lp + if(pp(k) < 1.e19 .and. pp(k) < bchyd .and. & + tp(k) < 1.e19 .and. zp(k) < 1.e19) then + lbc=k + go to 52 + endif + enddo + nsta=nsta-1 + print*,' sndproc: Could not find good rawindsonde z boundary level.' + print*,' Discarding sounding:',idsta(1:8) + return + + 52 continue + + ! Compute theta - if rh non-missing, compute vitual theta. + + do k=1,lp + thz(k)=1.e30 + if(tp(k) < 1.e19 .and. pp(k) < 1.e19) then + thz(k)=tp(k)*(p00/pp(k))**rocp + if(rp(k) < 1.e19) then + rss=rsatmix(pp(k),tp(k))*rp(k) + thz(k)=thz(k)*(1.+.61*rss) + endif + endif + enddo + + ! Recompute heights + + pio=cp*(pp(lbc)/p00)**rocp + zso=zp(lbc) + tho=thz(lbc) + do k=lbc+1,lp + zp(k)=1.e30 + if(pp(k) < 1e19 .and. thz(k) < 1e19)then + zp(k)=zso+.5*(thz(k)+tho)*(pio-cp*(pp(k)/p00)**rocp)/g + zso=zp(k) + pio=cp*(pp(k)/p00)**rocp + tho=thz(k) + endif + enddo + + zso=zp(lbc) + pio=cp*(pp(lbc)/p00)**rocp + tho=thz(lbc) + do k=lbc-1,1,-1 + zp(k)=1.e30 + if(pp(k) < 1e19 .and. thz(k) < 1e19)then + zp(k)=zso+.5*(thz(k)+tho)*(pio-cp*(pp(k)/p00)**rocp)/g + zso=zp(k) + pio=cp*(pp(k)/p00)**rocp + tho=thz(k) + endif + enddo + +endif + +! Do one last filter and fill final arrays. +! If any heights are missing, discard the level. + +llp=0 +do k=1,lp + if(zp(k) < 1.e19) then + llp=llp+1 + up_t(nsta,llp)=tp(k) + up_z(nsta,llp)=zp(k) + up_p(nsta,llp)=pp(k) + up_r(nsta,llp)=rp(k) + endif +enddo + +up_lp(nsta)=llp + +do k=1,lz + up_uz(nsta,k)=uz(k) + up_vz(nsta,k)=vz(k) + up_zz(nsta,k)=zz(k) +enddo + +print 1001,nsta,idsta,up_lat(nsta),up_lon(nsta),up_top(nsta),lp,lz +1001 format(' Rawindsonde station found ',I5,' ID:',1X,A8,' Lat:' & + ,F8.2,' Lon:', F8.2,' Elev:',0PF10.2,' P levels:',I5 & + ,' Wind levels:',I5) + + +if (used_file(1:4) /= 'none') then + ! write to file containing the lat lon locations of each profile + write(91,'(a8,2f12.4)') idsta,up_lat(nsta),up_lon(nsta) +endif + + +if(nsta.ge.maxsta) then + print 92,maxsta + 92 format(' Number of stations found is greater than MAXSTA',I6) + stop 'st3-maxsta' +endif + +return +END SUBROUTINE sndproc + +!############################################################################## +Subroutine input_sfc () + +use isan_coms +use gdf_input +use node_mod + +implicit none + +character(len=16) :: idsta +character(len=strl1) :: fnameu +integer :: iqflags(max_sfc_vars,3) +real*8 nasecs + +integer, parameter :: num_convars=5 +character(len=16) :: varn(num_convars) + +real :: vars(num_convars) +data varn/'direction','speed','tempc','dewptc','press_pa'/ + +integer :: ifile,ierr +integer :: nv,jyr,jmo,jdy,jt + +real :: xlat,xlon,zx,ffx,ddx,tx,tdx,px + +CALL date_abs_secs (iproc_dates(natime),nasecs) +CALL date_unmake_big (iyear,imonth,idate,ihour,iproc_dates(natime)) +ihour=ihour/100 + +if(used_file(1:4) /= 'none') then + ! output a file containing the lat lon locations of each sfc obs + fnameu=trim(used_file)//'-sfc-' & + //insrfce(len_trim(insrfce)-18:len_trim(insrfce)) + open(92,file=fnameu,status='unknown') + write(92,'(a)') '999999 3 ' + write(92,'(a)') '3 HEADER ' + write(92,'(a)') 'STATION_ID' + write(92,'(a)') 'LATITUDE ' + write(92,'(a)') 'LONGITUDE ' + write(92,'(a)') '0 DATA ' +endif + +! Read surface observations from a file + +print 559,insrfce +559 format(/' Acquiring surface input file ',A40) +CALL rams_f_open (31,insrfce,'FORMATTED','OLD','READ',0) + +ifile=1 +header(ifile)%iun=31 +CALL gdf_read_sfc_ver (ifile) + + +do while (.true.) + + ! Read a surface obs + + CALL gdf_read_sfc_obs (ifile,'yes',ierr) + if(ierr==1) exit + + jyr=rsfc_obs%jyear + jmo=rsfc_obs%jmonth + jdy=rsfc_obs%jdate + jt=rsfc_obs%jtime + idsta=rsfc_obs%id + xlat=rsfc_obs%lat + xlon=rsfc_obs%lon + zx=rsfc_obs%elev + + CALL gdf_sfc_data_convert (vars,varn,num_convars) + + ffx= vars(2) + ddx= vars(1) + tx= vars(3) + tdx= vars(4) + px= vars(5) + + do nv=1,max_sfc_vars + iqflags(nv,1:3)=rsfc_obs%iqflags(nv,1:3) + enddo + + !------------------------------------------------------------------- + ! Section for conversion to SI units + !------------------------------------------------------------------- + ! At the end of this section, the following variables are + ! required to be in SI units. + ! + ! XLAT - STATION LATITUDE + ! XLON - STATION LONGITUDE + ! ZX - STATION ELEVATION + ! DDX - WIND DIRECTION + ! FFX - WIND SPEED + ! TX - TEMPERATURE IN KELVIN + ! TDX - DEWPOINT TEMPERATURE IN KELVIN + ! PX - SURFACE PRESSURE + ! IDSTA - Station ID (char*5) + ! + ! Any missing values must be set to 1.E30 + !-------------------------------------------------------------------- + + if(zx < -998.) cycle + + if (ffx > -998.) then + ffx=ffx + else + ffx=1.e30 + endif + + if (ddx > -998.) then + ddx=ddx + else + ddx=1.e30 + endif + + if (tx > -998.) then + tx=tx+273.15 + else + tx=1.e30 + endif + + if (tdx > -998.) then + tdx=tdx+273.15 + else + tdx=1.e30 + endif + + if (px > -998.) then + px=px + else + px=1.e30 + endif + + CALL sfcproc (nasecs,jyr,jmo,jdy,jt,idsta,xlat,xlon & + ,zx,ddx,ffx,tx,tdx,px) + +enddo + +print*,'End of surface file:',insrfce +close(31) + +if (used_file(1:4) /= 'none') close(92) + +return +END SUBROUTINE input_sfc + +!############################################################################## +Subroutine sfcproc (nasecs,jyr,jmo,jdy,jt,idsta,xlat,xlon & + ,zx,ddx,ffx,tx,tdx,px) + +use isan_coms +use rconstants + +implicit none + +integer :: jyr,jmo,jdy,jt +real :: xlat,xlon,zx,ddx,ffx,tx,tdx,px +real*8 nasecs +character(len=*) :: idsta + +real :: t1000,t900,t850,t700,t600,t500,p1000,p900,p850,p700,p600,p500 & + ,z1000,z900,z850,z700,z600,z500 +real*8 obssecs,obssecsns +character(len=14) :: obsdate +character(len=8) :: csfc + +integer :: nsu,ns,not,mis1,mis2,irepl,isfc +real, external :: rsatmix + +CALL date_make_big (jyr,jmo,jdy,jt*100,obsdate) +CALL date_abs_secs (obsdate,obssecs) + +isfc=0 +nssfc=nssfc+1 +nsu=nssfc +sf_chstid(nsu)=idsta +sf_top(nsu)=zx +sf_lat(nsu)=xlat +sf_lon(nsu)=xlon +if(ddx.lt.1.e19.and.ffx.lt.1.e19) then + CALL winduv (ddx,ffx,sf_u(nsu),sf_v(nsu)) +else + sf_u(nsu)=1.e30 + sf_v(nsu)=1.e30 +endif +sf_date(nsu)=obsdate + +! check whether to omit station + +do not=1,notsta + if('s'//idsta(1:5).eq.notid(not)(1:6)) then + isfc=5 + nssfc=nssfc-1 + goto 110 + endif +enddo + +! Check date against iobswin + +if((iobswin < 0 .and. & + (obssecs .lt. nasecs+iobswin .or. obssecs .gt. nasecs)).or. & + (iobswin > 0 .and. & + (obssecs .lt. nasecs-iobswin .or. obssecs .gt. nasecs+iobswin)).or. & + (iobswin .eq. 0 .and. nasecs .ne. obssecs)) then + isfc=3 + nssfc=nssfc-1 + goto 110 +endif + +t1000=287.6 +t900=281.9 +t850=278.6 +t700=268.6 +t600=260.8 +t500=252.0 +p1000=100000. +p900=90000. +p850=85000. +p700=70000. +p600=60000. +p500=50000. +z1000=111. +z900=988. +z850=1457. +z700=3012. +z600=4206. +z500=5574. +if(px.gt.1.e20.and.tx.lt.1.e20) then + if(2.*zx.lt.z1000+z900) then + px=p1000*exp(-g*(zx-z1000)/(rgas*.5*(tx+t1000))) + elseif(2.*zx.lt.z900+z850) then + px=p900*exp(-g*(zx-z900)/(rgas*.5*(tx+t900))) + elseif(2.*zx.lt.z850+z700) then + px=p850*exp(-g*(zx-z850)/(rgas*.5*(tx+t850))) + elseif(2.*zx.lt.z700+z600) then + px=p700*exp(-g*(zx-z700)/(rgas*.5*(tx+t700))) + elseif(2.*zx.lt.z600+z500) then + px=p600*exp(-g*(zx-z600)/(rgas*.5*(tx+t600))) + endif +endif + +if(tx.lt.1.e19.and.px.lt.1.e19) then + if(tdx.lt.1.e19) then + sf_r(nsu)=rsatmix(px,tdx)/rsatmix(px,tx) + else + sf_r(nsu)=1.e30 + endif + if(zx.lt.1.e19) then + sf_s(nsu)=cp*tx+g*zx + else + sf_s(nsu)=1.e30 + endif + sf_t(nsu)=tx*(p00/px)**rocp + sf_p(nsu)=px +else + sf_t(nsu)=1.e30 + sf_p(nsu)=1.e30 + sf_r(nsu)=1.e30 + sf_s(nsu)=1.e30 +endif + +do ns=1,nsu-1 + + ! determine if current date is closer for idsta + + if(sf_chstid(ns)==idsta) then + CALL date_abs_secs (sf_date(ns),obssecsns) + if(abs(nasecs-obssecsns) > abs(nasecs-obssecs)) then + isfc=7 + nssfc=nssfc-1 + mis1=0 + if(sf_u(ns).gt.1.e19) mis1=mis1+1 + if(sf_v(ns).gt.1.e19) mis1=mis1+1 + if(sf_t(ns).gt.1.e19) mis1=mis1+1 + if(sf_p(ns).gt.1.e19) mis1=mis1+1 + if(sf_r(ns).gt.1.e19) mis1=mis1+1 + if(sf_top(ns).gt.1.e19) mis1=mis1+1 + mis2=0 + if(sf_u(nsu).gt.1.e19) mis2=mis2+1 + if(sf_v(nsu).gt.1.e19) mis2=mis2+1 + if(sf_t(nsu).gt.1.e19) mis2=mis2+1 + if(sf_p(nsu).gt.1.e19) mis2=mis2+1 + if(sf_r(nsu).gt.1.e19) mis2=mis2+1 + if(sf_top(nsu).gt.1.e19) mis2=mis2+1 + if(mis2.ge.mis1) then + sf_u(ns)=sf_u(nsu) + sf_v(ns)=sf_v(nsu) + sf_t(ns)=sf_t(nsu) + sf_s(ns)=sf_s(nsu) + sf_p(ns)=sf_p(nsu) + sf_top(ns)=sf_top(nsu) + sf_r(ns)=sf_r(nsu) + sf_lat(ns)=sf_lat(nsu) + sf_lon(ns)=sf_lon(nsu) + csfc=sf_chstid(ns) + sf_chstid(ns)=sf_chstid(nsu) + sf_date(ns)=sf_date(nsu) + isfc=4 + irepl=ns + goto 110 + endif + endif + endif + +enddo + +do ns=1,nsu-1 + + ! check for redundant surface obs + + if(abs(xlon-sf_lon(ns))= gglon .and. gglon >= xnelon ) then + print*,'Model grid point longitude outside of pressure' + print*,'data area, but this is an artificial artifact.' + print*,'i,j,gglon,xswlon,xnelon,gdatdx,iglobew,iglobs,iglobn' & + ,i,j,gglon,xswlon,xnelon,gdatdx,iglobew,iglobs,iglobn + else + print*,'Model grid point longitude must be' + print*,'at least 1 gridpoint inside' + print*,'pressure data area' + print*,'i,j,gglon,xswlon,xnelon,gdatdx,iglobew,iglobs,iglobn' & + ,i,j,gglon,xswlon,xnelon,gdatdx,iglobew,iglobs,iglobn + stop 'isan: outside p-data 2' + endif + endif + enddo + enddo + +endif !inproj==1 + +! Deallocate memory for the pressure data + +if(allocated(p_u)) deallocate(p_u) +if(allocated(p_v)) deallocate(p_v) +if(allocated(p_t)) deallocate(p_t) +if(allocated(p_z)) deallocate(p_z) +if(allocated(p_r)) deallocate(p_r) +if(allocated(p_ur)) deallocate(p_ur) +if(allocated(p_vr)) deallocate(p_vr) +if(allocated(p_lat)) deallocate(p_lat) +if(allocated(p_lon)) deallocate(p_lon) +if(allocated(p_soilmoist1)) deallocate(p_soilmoist1) +if(allocated(p_soilmoist2)) deallocate(p_soilmoist2) +if(allocated(p_soiltemp1)) deallocate(p_soiltemp1) +if(allocated(p_soiltemp2)) deallocate(p_soiltemp2) +if(allocated(p_snowmass)) deallocate(p_snowmass) +if(allocated(p_snowdepth)) deallocate(p_snowdepth) + +! Allocate memory for the pressure data + +allocate(p_u(nprx,npry,nprz)) +allocate(p_v(nprx,npry,nprz)) +allocate(p_t(nprx,npry,nprz)) +allocate(p_z(nprx,npry,nprz)) +allocate(p_r(nprx,npry,nprz)) + +! p_ur,p_vr arrays for rotated winds used later + +allocate(p_ur(nprx,npry,nprz)) +allocate(p_vr(nprx,npry,nprz)) + +allocate(p_lat(nprx,npry)) +allocate(p_lon(nprx,npry)) + +allocate(p_soilmoist1(nprx,npry)) +allocate(p_soilmoist2(nprx,npry)) +allocate(p_soiltemp1(nprx,npry)) +allocate(p_soiltemp2(nprx,npry)) +allocate(p_snowmass(nprx,npry)) +allocate(p_snowdepth(nprx,npry)) + + +! Fill with missing in case they are not present +p_soilmoist1 (1:nprx,1:npry)=1.e30 +p_soilmoist2 (1:nprx,1:npry)=1.e30 +p_soiltemp1 (1:nprx,1:npry)=1.e30 +p_soiltemp2 (1:nprx,1:npry)=1.e30 +p_snowmass (1:nprx,1:npry)=1.e30 +p_snowdepth (1:nprx,1:npry)=1.e30 + +print 92 +92 format(//,1x,70('*')/ & + ,' Access coarse resolution pressure data',/,1X,70('*')//) + +do k=1,nprz + pnpr(k)=levpr(k)*100. + print*,'Pressure levels (mb): ',pnpr(k)/100. + if(k==nprz)print*,'' +enddo +!Really need lowest level input to be 1000mb. Otherwise this can create +!some extrapolation issues to the lowest RAMS sigma levels causing temperature +!and moisture to be over- or under-estimated compared to reanalysis. +if(levpr(1) .ne. 1000) then + print*,'Lowest reanalysis input levels needs to mb 1000mb.' + print*,'Your lowest level input is ',levpr(1) + stop 'pressure level missing' +endif + +! Call routine to fill pressure arrays from the chosen dataset. + +CALL get_press (iunit) + + +!Checking RH-MAX here to see if values are unreasonable. +!Also can see if we are working with RH or specific humidity (SPFH) +!Note that some data such as ERA5 (circa 2019) does not use +!RH w.r.t. liquid for all levels, but RAMS deals with this w.r.t liquid. +!This is a problem, and the best solution is to extract and use SPFH instead. +rhmax=maxval(p_r, mask=p_r.lt.1.e29) +print*,"RHMAX or SpecificHumidity before= ",rhmax + +!Saleeby(2014): Do this for NARR which gives specific humidity (SPFH) in kg/kg. +!Convert to RH from SPFH. If you know you are using SPFH instead of RH, then +!set the IDATAIN flag in RAMSIN to reflect this difference. RH is default. +if (IDATAIN == 1)then + print*,'------------------------------------------------' + print*,' Converting specific humidity to rh',nprx,npry,nprz,rhmax + print*,'------------------------------------------------' + do k=1,nprz + do j=1,npry + do i=1,nprx + !Convert to mixing ratio assuming input specific humidity in kg/kg + rr=p_r(i,j,k)/(1.-p_r(i,j,k)) + !Convert from mixing ratio (kg/kg) to RH (fraction, not %) + p_r(i,j,k)=rr/rsatmix(pnpr(k),p_t(i,j,k)) + !Limit RH to > 10%) + if(p_r(i,j,k) <= 0.1) p_r(i,j,k)=.1 + enddo + enddo + enddo +endif + +!Re-check RH-MAX and see if conversion helped. +rhmax=maxval(p_r, mask=p_r.lt.1.e29) +print*,"RHMAX-after= ",rhmax + +! Find max-min theta at bottom and top levels +thmax=1. +thmin=1000. +do j=1,npry + do i=1,nprx + if(p_t(i,j,nprz).lt.1.e20) & + thmax=max(thmax,p_t(i,j,nprz)*(p00/pnpr(nprz))**rocp) + if(p_t(i,j,1).lt.1.e20) & + thmin=min(thmin,p_t(i,j,1)*(p00/pnpr(1))**rocp) + enddo +enddo + +print 300,levpr(1),thmin,levpr(nprz),thmax +300 format(//,' Minimum THETA at ',I4,' mb - ',F8.2/ & + ,' Maximum THETA at ',I4,' mb - ',F8.2) + + +! Compute lat-lon at input pressure data points + +if (inproj==1) then + do j=1,npry + do i=1,nprx + p_lat(i,j)=xswlat+(j-1)*gdatdy + p_lon(i,j)=xswlon+(i-1)*gdatdx + enddo + enddo +elseif (inproj==2) then + print*,'lamb-con:',xswlat,xswlon,cntlat,cntlon,gdatdx,gdatdy + do j=1,npry + do i=1,nprx + CALL lc2ll (cntlat,cntlon,p_lat(i,j),p_lon(i,j) & + ,float(i),float(j),xswlat,xswlon,gdatdx) +! print*,i,j,p_lat(i,j),p_lon(i,j) + enddo + enddo +elseif (inproj==3) then + print*,'polar:',cntlat,cntlon,gdatdx,gdatdy,xswlat,xswlon + xswlon_east=xswlon + if(xswlon<0.) xswlon_east=xswlon+360. + cntlon_east=cntlon + if(cntlon<0.) cntlon_east=cntlon+360. + do j=1,npry + do i=1,nprx + CALL w3fb07 (float(i),float(j),xswlat,xswlon_east,gdatdx,cntlon_east & + ,p_lat(i,j),p_lon(i,j)) +! print*,i,j,p_lat(i,j),p_lon(i,j) + enddo + enddo +endif + +close(iunit) + +return +END SUBROUTINE pressure_stage + +!############################################################################## +Subroutine get_press (iunit) + +use isan_coms + +implicit none + +integer :: iunit +real,allocatable::as(:,:) +integer :: ithere(maxpr,5),isfthere(6) +character(len=4) :: idat(5) +integer :: i,j,k,nv,nvar,misstot,lv,n + +data idat/'T','R','U','V','H'/ + +! Allocate array to hold one level data for one variable + +allocate(as(nprx,npry)) + +! Read upper air fields + +do lv=1,nprz + do nvar=1,5 + + read(iunit,*,end=70,err=70) ((as(i,j),i=1,nprx),j=1,npry) + + if(nvar.eq.1) then + CALL prfill (nprx,npry,as,p_u(1,1,lv)) + elseif(nvar.eq.2) then + CALL prfill (nprx,npry,as,p_v(1,1,lv)) + elseif(nvar.eq.3) then + CALL prfill (nprx,npry,as,p_t(1,1,lv)) + elseif(nvar.eq.4) then + CALL prfill (nprx,npry,as,p_z(1,1,lv)) + elseif(nvar.eq.5) then + CALL prfill (nprx,npry,as,p_r(1,1,lv)) + endif + + print 555,levpr(lv),nvar,imonth,idate,iyear,ihour + 555 format(' == Read pressure field ',2I4,' at ',I2,'/',I2 & + ,'/',I4,I6.4,' UTC') + enddo +enddo + +! Read surface fields + +do nvar=1,6 + read(iunit,*,end=70,err=70) ((as(i,j),i=1,nprx),j=1,npry) + + if(nvar.eq.1) then + CALL prfill (nprx,npry,as,p_soilmoist1(1,1)) + elseif(nvar.eq.2) then + CALL prfill (nprx,npry,as,p_soilmoist2(1,1)) + elseif(nvar.eq.3) then + CALL prfill (nprx,npry,as,p_soiltemp1(1,1)) + elseif(nvar.eq.4) then + CALL prfill (nprx,npry,as,p_soiltemp2(1,1)) + elseif(nvar.eq.5) then + CALL prfill (nprx,npry,as,p_snowmass(1,1)) + elseif(nvar.eq.6) then + CALL prfill (nprx,npry,as,p_snowdepth(1,1)) + endif +enddo + +goto 71 + +70 CONTINUE +print*,'Premature end of file or error in pressure input file!' +print*,' (or optional surface fields are not present)' +print*,'We''ll close our eyes and pretend it didn''t happen!' +71 continue + +deallocate(as) + +! Check for levels that may be all missing + +ithere(1:nprz,1:5)=0 +isfthere(1:6)=0 + +do k=1,nprz + do j=1,npry + do i=1,nprx + if(p_t(i,j,k) > 1e20) ithere(k,1)=ithere(k,1)+1 + if(p_r(i,j,k) > 1e20) ithere(k,2)=ithere(k,2)+1 + if(p_u(i,j,k) > 1e20) ithere(k,3)=ithere(k,3)+1 + if(p_v(i,j,k) > 1e20) ithere(k,4)=ithere(k,4)+1 + if(p_z(i,j,k) > 1e20) ithere(k,5)=ithere(k,5)+1 + enddo + enddo +enddo +do nv=1,5 + do k=1,nprz + if(ithere(k,nv) < nprx*npry) then + ithere(k,nv)=1 + else + ithere(k,nv)=0 + endif + enddo +enddo + +misstot=0 +do nv=1,5 + do k=1,nprz + if(ithere(k,nv) == 0) misstot=misstot+1 + enddo +enddo + +do j=1,npry + do i=1,nprx + if(p_soilmoist1 (i,j) > 1e20) isfthere(1)=isfthere(1)+1 + if(p_soilmoist2 (i,j) > 1e20) isfthere(2)=isfthere(2)+1 + if(p_soiltemp1 (i,j) > 1e20) isfthere(3)=isfthere(3)+1 + if(p_soiltemp2 (i,j) > 1e20) isfthere(4)=isfthere(4)+1 + if(p_snowmass (i,j) > 1e20) isfthere(5)=isfthere(5)+1 + if(p_snowdepth (i,j) > 1e20) isfthere(6)=isfthere(6)+1 + enddo +enddo +do nv=1,6 + if(isfthere(nv) < nprx*npry) then + isfthere(nv)=1 + else + isfthere(nv)=0 + endif +enddo + + + + +print*,'------------------------------------------------' +print*,' Missing parameters: 0 = all missing' +print*,'------------------------------------------------' +print '(t20,5(a1,6x))',(idat(n),n=1,5) + +do k=1,nprz + print '(f10.1,t14,5(i7))',pnpr(k),(ithere(k,n),n=1,5) +enddo + +print*,'--------------------------------------------------------------' +print*,' Missing surface parameters: 0 = all missing' +print*,'--------------------------------------------------------------' +print*,' SOILM1 SOILM2 SOILT1 SOILT2 SNOWMASS SNOWDEPTH' + +print '(6(i9))',(isfthere(n),n=1,6) + + +if(misstot.gt.0) then + ! Let's see if we can get creative and make up data for the missing fields + + CALL press_miss (nprx,npry,nprz,p_u,p_v,p_t,p_z,p_r & + ,ithere,maxpr,levpr) + + ! Check again for missing fields + + misstot=0 + do nv=1,5 + do k=1,nprz + if(ithere(k,nv).eq.0) misstot=misstot+1 + enddo + enddo + + print*,'------------------------------------------------' + print*,' After missing parameters check: 0 = all missing' + print*,'------------------------------------------------' + print '(t20,5(a1,6x))',(idat(n),n=1,5) + + do k=1,nprz + print '(f10.1,t14,5(i7))',pnpr(k),(ithere(k,n),n=1,5) + enddo + +endif + +return +END SUBROUTINE get_press + +!############################################################################## +Subroutine prfill (nprx,npry,xx,dn) + +implicit none + +integer :: nprx,npry +real :: xx(nprx,npry),dn(nprx,npry) +integer :: i,j + +do j=1,npry + do i=1,nprx + dn(i,j)=xx(i,j) + !Saleeby(2019): May need to change to -9998.0 if value between dprep + ! of -999 for missing or bad data has to be lowered. + if(dn(i,j).le.-998.) then + dn(i,j)=1.e30 + endif + enddo +enddo + +return +END SUBROUTINE prfill + +!############################################################################## +Subroutine press_miss (n1,n2,n3,un,vn,tn,zn,rn,ithere,maxpr,levpr) + +implicit none + +integer :: n1,n2,n3,maxpr +real, dimension(n1,n2,n3) :: un,vn,tn,zn,rn +integer :: ithere(maxpr,5),levpr(*) +real :: prs(n3),prsln(n3) +integer :: it=1,ir=2,iu=3,iv=4,iz=5 +integer :: ierr,k + +do k=1,n3 + prs(k)=float(levpr(k)) + prsln(k)=log(prs(k)) +enddo + +! first do moisture. since there are no physical relationships we can +! use to help us, we will simply interpolate to a missing level. If +! the top or bottom level is missing, we will fill it with the relative +! humidity above or below. + +CALL pr_miss_fill (n1,n2,n3,rn,ithere(1,ir),ithere(1,ir) & + ,prsln,'rel hum',ierr) +if(ierr.eq.1) return + +! do temperature in a similar manner, but only if there are levels +! where height is missing also + +CALL pr_miss_fill (n1,n2,n3,tn,ithere(1,it),ithere(1,iz) & + ,prsln,'temp',ierr) +if(ierr.eq.1) return + + +! check height at each level. It can be computed hydrostatically +! from temp as long as temp is not missing at this level and temp and +! height is available on a level above or below. +! Make a downward sweep first, then an upward. + + +do k=n3-1,1,-1 + if(ithere(k,iz).eq.0) then + ! check for temp, z, above + if(ithere(k+1,iz).eq.1.and.ithere(k+1,it).eq.1.and. & + ithere(k,it).eq.1) then + !ok, we can get this + CALL pr_hystatic_z (n1*n2,zn(1,1,k),zn(1,1,k+1) & + ,tn(1,1,k),tn(1,1,k+1),rn(1,1,k),rn(1,1,k+1) & + ,prs(k),prs(k+1)) + ithere(k,iz)=1 + print*,'-->Computing hydrostatic pressure at level:',k + endif + endif +enddo + +do k=2,n3 + if(ithere(k,iz).eq.0) then + ! check for temp, z, below + if(ithere(k-1,iz).eq.1.and.ithere(k-1,it).eq.1.and. & + ithere(k,it).eq.1) then + ! ok, we can get this + CALL pr_hystatic_z (n1*n2,zn(1,1,k),zn(1,1,k-1) & + ,tn(1,1,k),tn(1,1,k-1),rn(1,1,k),rn(1,1,k-1) & + ,prs(k),prs(k-1)) + print*,'-->Computing hydrostatic pressure at level:',k + ithere(k,iz)=1 + endif + endif +enddo + +! try temperature in a similar manner. It can also be computed +! from height as long as height is not missing at this level and temp and +! height is available on a level above or below. +! Note that vapor mixing ratio (used to compute virtual temperature) +! is somewhat difficult to compute from relative humidity if temperature +! is missing. Therefore, the vitual temperature factor at the +! non-missing level is assumed at the missing level. + +do k=n3-1,1,-1 + if(ithere(k,it).eq.0) then + ! check for temp, z, above + if(ithere(k+1,iz).eq.1.and.ithere(k+1,it).eq.1.and. & + ithere(k,iz).eq.1) then + ! ok, we can get this + CALL pr_hystatic_t (n1*n2,zn(1,1,k),zn(1,1,k+1) & + ,tn(1,1,k),tn(1,1,k+1),rn(1,1,k),rn(1,1,k+1) & + ,prs(k),prs(k+1)) + ithere(k,it)=1 + print*,'-->Computing hydrostatic temperature at level:',k + endif + endif +enddo + +do k=2,n3 + if(ithere(k,it).eq.0) then + ! check for temp, z, below + if(ithere(k-1,iz).eq.1.and.ithere(k-1,it).eq.1.and. & + ithere(k,iz).eq.1) then + ! ok, we can get this + CALL pr_hystatic_t (n1*n2,zn(1,1,k),zn(1,1,k-1) & + ,tn(1,1,k),tn(1,1,k-1),rn(1,1,k),rn(1,1,k-1) & + ,prs(k),prs(k-1)) + ithere(k,it)=1 + print*,'-->Computing hydrostatic temperature at level:',k + endif + endif +enddo + +! For the u and v components, do a straight interpolation again like we +! did for rel humidity. + +CALL pr_miss_fill (n1,n2,n3,un,ithere(1,iu),ithere(1,iu),prsln,'u-comp',ierr) +if(ierr.eq.1) return + +CALL pr_miss_fill (n1,n2,n3,vn,ithere(1,iv),ithere(1,iv),prsln,'v-comp',ierr) +if(ierr.eq.1) return + +return +END SUBROUTINE press_miss + +!############################################################################## +Subroutine pr_hystatic_z (np,z1,z2,t1,t2,r1,r2,p1,p2) + +implicit none + +integer :: np +real :: z1(np),z2(np),t1(np),t2(np),r1(np),r2(np) +integer :: n +real :: p1,p2,tv1,tv2 +real, external :: rslf + +do n=1,np + if(z2(n).lt.1.e20.and.t1(n).lt.1.e20.and. & + t2(n).lt.1.e20.and.r1(n).lt.1.e20.and. & + r2(n).lt.1.e20 ) then + tv1=t1(n)*(1.+.61*rslf(p1*100.,t1(n))*r1(n)) + tv2=t2(n)*(1.+.61*rslf(p2*100.,t2(n))*r2(n)) + z1(n)=z2(n)- 287.*.5*(tv1+tv2)*(log(p1*100.)-log(p2*100.))/9.8 + !print*,z1(n),z2(n),t1(n),t2(n),tv1,tv2,p1,p2 + else + z1(n)=1.e30 + endif +enddo + +return +END SUBROUTINE pr_hystatic_z + +!############################################################################## +Subroutine pr_hystatic_t (np,z1,z2,t1,t2,r1,r2,p1,p2) + +implicit none + +integer :: np +real :: z1(np),z2(np),t1(np),t2(np),r1(np),r2(np) +integer :: n +real :: p1,p2,vtfact +real, external :: rslf + +do n=1,np + if(t2(n).lt.1.e20.and.z1(n).lt.1.e20 & + .and.z2(n).lt.1.e20.and.r1(n).lt.1.e20 & + .and.r2(n).lt.1.e20 ) then + vtfact=(1.+.61*rslf(p2*100.,t2(n))*r2(n)) + t1(n)=-t2(n)- (2.*9.8*(z1(n)-z2(n)) & + /(287. *(log(p1*100.)-log(p2*100.))) ) & + /vtfact + !if(n.eq.36*(13-1)+13) print*,t1(n),t2(n),z1(n),z2(n),vtfact,p1,p2 + else + t1(n)=1.e30 + endif +enddo + +return +END SUBROUTINE pr_hystatic_t + +!############################################################################## +Subroutine pr_miss_fill (n1,n2,n3,a,ithere,ithere2,prsln,varname,ierr) + +! simple filling for missing pressure fields. Assuming there are no +! physical relationships we can +! use to help us, we will simply interpolate to a missing level. If +! the top or bottom level is missing, we will fill it with the next +! non-missing field above or below. + +implicit none + +integer :: n1,n2,n3,ithere(n3),ithere2(n3),ierr +real :: a(n1,n2,n3),prsln(n3) +character(len=*) :: varname +integer :: k,kk,ilev + +ierr=0 +k=1 +if(ithere(k).eq.0.and.ithere2(k).eq.0) then + ! find first non-missing level above + ilev=0 + do kk=2,n3 + if (ithere(kk).eq.1) then + ilev=kk + goto 10 + endif + enddo + print*,'All data missing; fixing stopped for:',varname + ierr=1 + return + 10 continue + CALL atob (n1*n2,a(1,1,ilev),a(1,1,k)) + ithere(k)=1 + print*,'-->Filling:',varname,' at level:',k,' from level:',ilev +endif + +k=n3 +if(ithere(k).eq.0.and.ithere2(k).eq.0) then + ! find first non-missing level below + ilev=0 + do kk=n3-1,1,-1 + if (ithere(kk).eq.1) then + ilev=kk + goto 11 + endif + enddo + print*,'All data missing; fixing stopped for:',varname + ierr=1 + return + 11 continue + CALL atob (n1*n2,a(1,1,ilev),a(1,1,k)) + ithere(k)=1 + print*,'-->Filling:',varname,' at level:',k,' from level:',ilev +endif + +! Now interpolate to internal missing levels + +do k=2,n3-1 + if (ithere(k).eq.0.and.ithere2(k).eq.0) then + ! find first non-missing level above + ilev=0 + do kk=k+1,n3 + if (ithere(kk).eq.1) then + ilev=kk + goto 12 + endif + enddo + stop 'pr_miss_fill' + 12 continue + CALL pr_interp (n1*n2,a(1,1,k-1),a(1,1,k),a(1,1,ilev) & + ,prsln(k-1),prsln(k),prsln(ilev)) + ithere(k)=1 + print*,'-->Interpolating:',varname,' at level:',k & + ,' from levels:',k-1,' and:',ilev + + endif +enddo + +return +END SUBROUTINE pr_miss_fill + +!############################################################################## +Subroutine pr_interp (np,a1,a2,a3,pln1,pln2,pln3) + +implicit none + +integer :: np +real :: a1(np),a2(np),a3(np),pln1,pln2,pln3 +integer :: n + +do n=1,np + if(a3(n).lt.1.e20.and.a1(n).lt.1.e20) then + a2(n)=a1(n)+ (pln2-pln1)* (a3(n)-a1(n))/(pln3-pln1) + else + a2(n)=1.e30 + endif +enddo + +return +END SUBROUTINE pr_interp + diff --git a/src/6.2.16/isan/avarf.f90 b/src/6.2.16/isan/avarf.f90 new file mode 100644 index 0000000..b019f2b --- /dev/null +++ b/src/6.2.16/isan/avarf.f90 @@ -0,0 +1,458 @@ +!############################################################################## +Subroutine makevarf (ng) + +use isan_coms +use mem_grid + +implicit none + +integer :: ng + +!---------------------------------------------------------------+ +! Interpolate model grid from isentropic/sigmaz/surface data +!---------------------------------------------------------------+ + +! Vertically interpolate isentropic data to sigma-z levels + +CALL isnsig (nnzp(ng),nnxp(ng),nnyp(ng),is_grids(ng)%rr_u(1,1,1) & + ,is_grids(ng)%rr_v(1,1,1),is_grids(ng)%rr_t(1,1,1) & + ,is_grids(ng)%rr_r(1,1,1),grid_g(ng)%topt(1,1),ztn(1,ng),ztop) + +! Compute Exner func on model sigma-z surfaces +! and change relative humidity to mixing ratio. + +CALL vshyd (nnzp(ng),nnxp(ng),nnyp(ng),is_grids(ng)%rr_p(1,1,1) & + ,is_grids(ng)%rr_t(1,1,1) ,is_grids(ng)%rr_r(1,1,1) & + ,grid_g(ng)%topt(1,1),grid_g(ng)%rtgt(1,1),ztn(1,ng)) + +! Combine surface analysis with the upper air data. + +CALL visurf (nnzp(ng),nnxp(ng),nnyp(ng) ,is_grids(ng)%rr_u(1,1,1) & + ,is_grids(ng)%rr_v(1,1,1) ,is_grids(ng)%rr_t(1,1,1) & + ,is_grids(ng)%rr_r(1,1,1) ,is_grids(ng)%rr_p(1,1,1) & + ,grid_g(ng)%topt(1,1),grid_g(ng)%rtgt(1,1),ztn(1,ng)) + +is_grids(ng)%rr_soilmoist1 (1:nnxp(ng),1:nnyp(ng)) =rs_soilmoist1 (1:nnxp(ng),1:nnyp(ng)) +is_grids(ng)%rr_soilmoist2 (1:nnxp(ng),1:nnyp(ng)) =rs_soilmoist2 (1:nnxp(ng),1:nnyp(ng)) +is_grids(ng)%rr_soiltemp1 (1:nnxp(ng),1:nnyp(ng)) =rs_soiltemp1 (1:nnxp(ng),1:nnyp(ng)) +is_grids(ng)%rr_soiltemp2 (1:nnxp(ng),1:nnyp(ng)) =rs_soiltemp2 (1:nnxp(ng),1:nnyp(ng)) +is_grids(ng)%rr_snowmass (1:nnxp(ng),1:nnyp(ng)) =rs_snowmass (1:nnxp(ng),1:nnyp(ng)) +is_grids(ng)%rr_snowdepth (1:nnxp(ng),1:nnyp(ng)) =rs_snowdepth (1:nnxp(ng),1:nnyp(ng)) + +! average the velocities to the correct points in the stagger +! and rotate for polar stereographic transformation. + +CALL varuv (nnzp(ng),nnxp(ng),nnyp(ng),is_grids(ng)%rr_u(1,1,1) & + ,is_grids(ng)%rr_v(1,1,1)) + +return +END SUBROUTINE makevarf + +!############################################################################## +Subroutine isnsig (n1,n2,n3,uu,vv,tt,rr,topt,zt,ztop) + +use isan_coms +use rconstants + +implicit none + +integer :: n1,n2,n3 +real, dimension(n1,n2,n3) :: uu,vv,tt,rr +real, dimension(n2,n3) :: topt +real, dimension(n1) :: zt +real :: ztop +real, allocatable :: v1(:),v2(:),v3(:),v4(:),v5(:),v6(:) +integer :: i,j,k,nki,ki,kbeg,kend +real :: rtg,wtsz + +allocate (v1(n1),v2(nisn),v3(nisn),v4(nisn),v5(nisn),v6(nisn)) + +do j=1,n3 + do i=1,n2 + + rtg=(1.-topt(i,j)/ztop) + do k=1,n1 + v1(k)=topt(i,j)+zt(k)*rtg + enddo + + nki=0 + do ki=1,nisn + if(pi_p(i,j,ki).lt.1e20.and.pi_s(i,j,ki).lt.1e20 & + .and.pi_u(i,j,ki).lt.1e20.and.pi_v(i,j,ki).lt.1e20) & + then + nki=nki+1 + !Compute "v2" as height on isentropic level + v2(nki)=(pi_s(i,j,ki)-cp*levth(ki) & + *(pi_p(i,j,ki)*p00i)**rocp)/g + v3(nki)=pi_u(i,j,ki) + v4(nki)=pi_v(i,j,ki) + v5(nki)=levth(ki) + v6(nki)=pi_r(i,j,ki) + + !Write some output if needed + !if(i==74.and.j==135) then + ! write(*,'(a,2(I4,1X),3(F11.3,1X))') 'isnsig1' & + ! ,ki,levth(ki),v2(nki),pi_s(i,j,ki),pi_p(i,j,ki)/100. + !endif + + endif + enddo + + !Vertically interpolate isen surface variables to sigma surfaces + !Do this for u,v,t,r + CALL htint (nki,v3,v2,n1,uu(1,i,j),v1) + CALL htint (nki,v4,v2,n1,vv(1,i,j),v1) + CALL htint (nki,v5,v2,n1,tt(1,i,j),v1) + CALL htint (nki,v6,v2,n1,rr(1,i,j),v1) + + kbeg=n1+1 + kend=n1+1 + do k=1,nsigz + if(zt(k).gt.hybbot) then + kbeg=k-1 + exit + endif + enddo + + do k=1,nsigz + if(zt(k).gt.hybtop) then + kend=k + exit + endif + enddo + + !Only interp isen data to sigma-levels above "HYBBOT" + !Doing interp near the surface in a mixed layer without isen + !stratification can cause problems. + !Weights are fully weighted to sigma variables "ps_" below HYBBOT, + !are mixed weighted between HYBBOT and HYBTOP, and are full weighted + !to isentropic variables "pi_" above HYBTOP. + do k=1,nsigz + if(k.lt.kbeg) then + wtsz=sigzwt + elseif(k.gt.kend) then + wtsz=0. + elseif(k.ge.kbeg.and.k.le.kend) then + wtsz= (zt(kend)-zt(k)) & + /(zt(kend)-zt(kbeg)) & + *sigzwt + endif + uu(k,i,j)=(1.-wtsz)*uu(k,i,j)+wtsz*ps_u(i,j,k) !u-wind + vv(k,i,j)=(1.-wtsz)*vv(k,i,j)+wtsz*ps_v(i,j,k) !v-wind + tt(k,i,j)=(1.-wtsz)*tt(k,i,j)+wtsz*ps_t(i,j,k) !theta + rr(k,i,j)=(1.-wtsz)*rr(k,i,j)+wtsz*ps_r(i,j,k) !RH + + !Write some output if needed + !if(i==74.and.j==135) then + ! write(*,'(a,1(I4,1X),1(F11.3,1X),3(F7.3,1X),1(F9.3,1X))') & + ! 'isnsig2',k,zt(k),wtsz,rr(k,i,j),ps_r(i,j,k),tt(k,i,j) + !endif + + enddo + + enddo +enddo + +deallocate (v1,v2,v3,v4,v5,v6) + +return +END SUBROUTINE isnsig + +!############################################################################## +Subroutine visurf (n1,n2,n3,up,vp,thp,rtp,pp,topt,rtgt,zt) + +use isan_coms +use rconstants + +implicit none + +integer :: n1,n2,n3 +real, dimension(n1,n2,n3) :: up,vp,pp,thp,rtp +real, dimension(n2,n3) :: rtgt,topt +real, dimension(n1) :: zt + +integer :: i,j,k + +real, allocatable :: v3(:) +real :: zgp,dzgobs,wt,ppp,ttt,rhm +real, external :: rsatmix + + +allocate(v3(n1)) + +do j=1,n3 + do i=1,n2 + if(rs_qual(i,j).gt..5) then + +! Quality of this surface analysis point is okay. + +! Extend the vertical influence of the surface analysis +! up to a distance of SFCINF above the height of the +! objectively analyzed surface. + + do k=1,n1 + zgp=topt(i,j)+zt(k)*rtgt(i,j) + dzgobs=abs(zgp-rs_top(i,j)) + wt=dzgobs/sfcinf + if(wt.le.1.) then + if(rs_u(i,j).lt.1.e10) & + up(k,i,j)=up(k,i,j)*wt+rs_u(i,j)*(1.-wt) + if(rs_v(i,j).lt.1.e10) & + vp(k,i,j)=vp(k,i,j)*wt+rs_v(i,j)*(1.-wt) + ppp=(pp(k,i,j)/cp)**cpor*p00 + ttt=thp(k,i,j)*pp(k,i,j)/cp + rhm=rtp(k,i,j)/rsatmix(ppp,ttt) + if(rs_r(i,j).lt.1.e10) & + rhm=rhm*wt+rs_r(i,j)*(1.-wt) + if(rs_t(i,j).lt.1.e10) & + thp(k,i,j)=thp(k,i,j)*wt+rs_t(i,j)*(1.-wt) + ttt=thp(k,i,j)*pp(k,i,j)/cp + rtp(k,i,j)=rhm*rsatmix(ppp,ttt) + endif + enddo + + do k=1,n1 + v3(k)=topt(i,j)+zt(k)*rtgt(i,j) + enddo + do k=n1-1,1,-1 + pp(k,i,j)=pp(k+1,i,j)+g*(v3(k+1)-v3(k)) & + /((thp(k,i,j)*(1.+.61*rtp(k,i,j))+thp(k+1,i,j) & + *(1.+.61*rtp(k+1,i,j)))*.5) + enddo + + endif + + enddo +enddo + +deallocate(v3) + +return +END SUBROUTINE visurf + +!############################################################################## +Subroutine vshyd (n1,n2,n3,pp,tt,rr,topt,rtg,zt) + +use isan_coms +use rconstants + +implicit none + +integer :: n1,n2,n3 +real, dimension(n1,n2,n3) :: tt,rr,pp +real, dimension(n2,n3) :: topt,rtg +real, dimension(n1) :: zt + +integer :: i,j,k,lbc,kabc +real :: thmin,ppp,ttt,tmpbc,rvibc,piibc,ziibc,gd2 +real, external :: rsatmix + +real, allocatable :: v3(:) +real, allocatable :: rhh(:,:,:) + +allocate(v3(n1)) +allocate(rhh(n1,n2,n3)) + +! Find internal boundary condition for the hydrostatic +! equation + + thmin=tt(n1-1,1,1) + do j=1,n3 + do i=1,n2 + thmin=min(thmin,tt(n1-1,i,j)) + enddo + enddo + + do k=nisn,1,-1 + print*,'thmins-',k,levth(k),thmin + if(float(levth(k)).le.thmin) then + lbc=k + go to 121 + endif + enddo + stop 'vi-nobc' +121 continue + + print 1212,lbc,levth(lbc) +1212 format(//' Hydrostatic boundary condition set at level' & + ,2I4,' K') + +do j=1,n3 + do i=1,n2 + +! Compute actual model heights + + do k=1,n1 + v3(k)=topt(i,j)+zt(k)*rtg(i,j) + enddo + +! Find model level above boundary condition + + do k=1,n1 + if(tt(k,i,j).gt.levth(lbc))go to 141 + enddo + stop 'vi-nbc2' +141 continue + kabc=k + +! Integrate PI to surface sigma levels (pp=PI, tt=theta) + + piibc=cp*(pi_p(i,j,lbc)*p00i)**rocp + ziibc=(pi_s(i,j,lbc)-levth(lbc)*piibc)/g + gd2=2.*g + pp(kabc-1,i,j)=piibc+gd2*(ziibc-v3(kabc-1)) & + /(levth(lbc)+tt(kabc-1,i,j)) + do k=kabc-2,1,-1 + pp(k,i,j)=pp(k+1,i,j)+gd2*(v3(k+1)-v3(k)) & + /(tt(k+1,i,j)+tt(k,i,j)) + enddo + +! Integrate PI to model top sigma levels (pp=PI, tt=theta) + + do k=kabc,n1 + pp(k,i,j)=pp(k-1,i,j)-gd2*(v3(k)-v3(k-1)) & + /(tt(k,i,j)+tt(k-1,i,j)) + enddo +! +! Compute mixing ratio from relative humidity and do final +! hydrostatic integration. +! ppp=pressure,pp=PI,ttt=temperature,tt=theta + do k=1,n1 + !if(i==74.and.j==135)then + ! write(*,'(a,1(I4,1X),4(F9.2,1X),4(F7.2,1X))') & + ! 'vshyd1',k,v3(k),pp(k,i,j),(pp(k,i,j)/cp)**cpor*p00/100. & + ! ,ps_p(i,j,k)/100.,tt(k,i,j),tt(k,i,j)*pp(k,i,j)/cp,rr(k,i,j) & + ! ,1000*rr(k,i,j)*rsatmix((pp(k,i,j)/cp)**cpor*p00 & + ! ,tt(k,i,j)*pp(k,i,j)/cp) + !endif + ppp=(pp(k,i,j)/cp)**cpor*p00 !pressure for rsatmix + ttt=tt(k,i,j)*pp(k,i,j)/cp !temperature for rsatmix + rhh(k,i,j)=rr(k,i,j) !store RH for later + rr(k,i,j)=rr(k,i,j)*rsatmix(ppp,ttt) !mixing ratio from RH,rsatmix + enddo + + tmpbc=levth(lbc)*piibc/cp + rvibc=pi_r(i,j,lbc)*rsatmix(pi_p(i,j,lbc),tmpbc) + + !Integrate PI using updated theta-v + pp(kabc-1,i,j)=piibc+gd2*(ziibc-v3(kabc-1)) & + /(levth(lbc)*(1.+.61*rvibc) & + +tt(kabc-1,i,j)*(1.+.61*rr(kabc-1,i,j))) + do k=kabc-2,1,-1 + pp(k,i,j)=pp(k+1,i,j)+gd2*(v3(k+1)-v3(k)) & + /(tt(k+1,i,j)*(1.+.61*rr(k+1,i,j)) & + +tt(k,i,j)*(1.+.61*rr(k,i,j))) + enddo + + do k=kabc,n1 + pp(k,i,j)=pp(k-1,i,j)-gd2*(v3(k)-v3(k-1)) & + /((tt(k,i,j)*(1.+.61*rr(k,i,j))+tt(k-1,i,j) & + *(1.+.61*rr(k-1,i,j)))) + enddo + + !NEW-Saleeby(2020):Testing has shown Water Vapor Mixing Ratio (rr) to + !be too high at this point compared to the input reanalysis at low-levels. + !If we recompute "rr" using "rhh,rsatmix" with the final integrated pressure, + !this appears to give "rr" in more agreement with reanalysis. + do k=1,n1 + ppp=(pp(k,i,j)/cp)**cpor*p00 !pressure from PI (with Tv) + ttt=tt(k,i,j)*pp(k,i,j)/cp !temperature from Theta,PI(with Tv) + rr(k,i,j)=rhh(k,i,j)*rsatmix(ppp,ttt) !rr(vapor-mixing-ratio) + !Write out some data if needed for debugging + !if(i==74.and.j==135)then + ! write(*,'(a,1(I4,1X),7(F9.2,1X))') & + ! 'final',k,v3(k),pp(k,i,j),(pp(k,i,j)/cp)**cpor*p00/100. & + ! ,tt(k,i,j),tt(k,i,j)*pp(k,i,j)/cp,rr(k,i,j)*1000.,ps_r(i,j,k) + !endif + enddo + + enddo +enddo + +deallocate(v3,rhh) + +return +END SUBROUTINE vshyd + +!############################################################################## +Subroutine varuv (n1,n2,n3,up,vp) + +implicit none + +integer :: n1,n2,n3 +real, dimension(n1,n2,n3) :: up,vp + +integer :: i,j,k + +! Average to u,v points + +do j=1,n3 + do i=1,n2-1 + do k=1,n1 + up(k,i,j)=(up(k,i,j)+up(k,i+1,j))*.5 + enddo + enddo +enddo + +do j=1,n3-1 + do i=1,n2 + do k=1,n1 + vp(k,i,j)=(vp(k,i,j)+vp(k,i,j+1))*.5 + enddo + enddo +enddo + +return +END SUBROUTINE varuv + +!############################################################################## +Subroutine varfile_nstfeed (ifm,icm,n1f,n2f,n3f,n1c,n2c,n3c,nbot,ntop) + +use isan_coms + +implicit none + +integer :: ifm,icm,n1f,n2f,n3f,n1c,n2c,n3c,nbot,ntop + + +! Feed back the finer mesh to the coarser mesh. + +CALL fdback (is_grids(icm)%rr_u (1,1,1),is_grids(ifm)%rr_u (1,1,1) & + ,is_grids(icm)%rr_dn0u(1,1,1),is_grids(ifm)%rr_dn0u(1,1,1) & + ,n1c,n2c,n3c,n1f,n2f,n3f,ifm,'u',rr_scr1(1)) + +CALL fdback (is_grids(icm)%rr_v (1,1,1),is_grids(ifm)%rr_v (1,1,1) & + ,is_grids(icm)%rr_dn0v(1,1,1),is_grids(ifm)%rr_dn0v(1,1,1) & + ,n1c,n2c,n3c,n1f,n2f,n3f,ifm,'v',rr_scr1(1)) + +CALL fdback (is_grids(icm)%rr_p (1,1,1),is_grids(ifm)%rr_p (1,1,1) & + ,is_grids(icm)%rr_dn0(1,1,1),is_grids(ifm)%rr_dn0(1,1,1) & + ,n1c,n2c,n3c,n1f,n2f,n3f,ifm,'p',rr_scr1(1)) + +CALL fdback (is_grids(icm)%rr_t (1,1,1),is_grids(ifm)%rr_t (1,1,1) & + ,is_grids(icm)%rr_dn0(1,1,1),is_grids(ifm)%rr_dn0(1,1,1) & + ,n1c,n2c,n3c,n1f,n2f,n3f,ifm,'t',rr_scr1(1)) + +CALL fdback (is_grids(icm)%rr_r (1,1,1),is_grids(ifm)%rr_r (1,1,1) & + ,is_grids(icm)%rr_dn0(1,1,1),is_grids(ifm)%rr_dn0(1,1,1) & + ,n1c,n2c,n3c,n1f,n2f,n3f,ifm,'t',rr_scr1(1)) + + +if(nbot == 1) then + CALL botset (n1c,n2c,n3c,is_grids(icm)%rr_u(1,1,1),'U') + CALL botset (n1c,n2c,n3c,is_grids(icm)%rr_v(1,1,1),'V') + CALL botset (n1c,n2c,n3c,is_grids(icm)%rr_p(1,1,1),'P') + CALL botset (n1c,n2c,n3c,is_grids(icm)%rr_t(1,1,1),'T') + CALL botset (n1c,n2c,n3c,is_grids(icm)%rr_r(1,1,1),'T') +endif + +if(ntop == 1) then + CALL topset (n1c,n2c,n3c,is_grids(icm)%rr_u(1,1,1),'U') + CALL topset (n1c,n2c,n3c,is_grids(icm)%rr_v(1,1,1),'V') + CALL topset (n1c,n2c,n3c,is_grids(icm)%rr_p(1,1,1),'P') + CALL topset (n1c,n2c,n3c,is_grids(icm)%rr_t(1,1,1),'T') + CALL topset (n1c,n2c,n3c,is_grids(icm)%rr_r(1,1,1),'T') +endif + +return +END SUBROUTINE varfile_nstfeed diff --git a/src/6.2.16/isan/file_inv.f90 b/src/6.2.16/isan/file_inv.f90 new file mode 100644 index 0000000..a4c52b7 --- /dev/null +++ b/src/6.2.16/isan/file_inv.f90 @@ -0,0 +1,330 @@ +!############################################################################## +Subroutine isan_file_inv (iyear1,imonth1,idate1,itime1,timmax) + +use isan_coms + +implicit none + +integer :: iyear1,imonth1,idate1,itime1 +real :: timmax + +integer :: nfgfiles,nc,nf,lnf,nn,ndates,nupfiles,nsffiles,isan_err_flag +integer :: inyear,inmonth,indate,inhour +integer :: iyearf,imonthf,idatef,ihourf +integer :: iyear2,imonth2,idate2,ihour2,ihour1 +real :: tinc + +character(len=14) :: itotdate_fg(maxisfiles),itotdate_up(maxisfiles) & + ,itotdate_sf(maxisfiles),itotdates(4*maxisfiles),idate_end +character(len=strl1), dimension(maxisfiles) :: fnames_fg,fnames_up,fnames_sf + +! Go through first guess, upper air, surface input files +! and make inventory + +nfgfiles = -1 +nupfiles = -1 +nsffiles = -1 + +if(igridfl.ne.0) then + if(iapr(1:1).ne.' '.and.iapr(1:1).ne.char(0) ) then + + nfgfiles=-1 + nc=len_trim(iapr) + CALL rams_filelist (fnames_fg,iapr(1:nc)//'????-??-??-????',nfgfiles) + +! do nf=1,nfgfiles +! print*,'reading fg:',nc,nfgfiles,fnames_fg(nf) +! enddo + + if(nfgfiles.gt.maxisfiles) then + print*,'too many first guess files' + stop 'lots_of_first_guess' + endif + + do nf=1,nfgfiles + + lnf=len_trim(fnames_fg(nf)) + + read(fnames_fg(nf)(lnf-14:lnf),20) inyear,inmonth,indate,inhour + + 20 format(i4,1x,i2,1x,i2,1x,i4) + + CALL date_make_big (inyear,inmonth,indate,inhour*100,itotdate_fg(nf)) + + enddo + + CALL rams_dintsort (nfgfiles,itotdate_fg,fnames_fg) + +! do nf=1,nfgfiles +! print*,'fg files:',nf,itotdate_fg(nf),fnames_fg(nf) +! enddo + + endif +endif + + +if(igridfl.ne.3) then + if(iarawi(1:1).ne.' '.and.iarawi(1:1).ne.char(0) ) then + + nupfiles=-1 + nc=len_trim(iarawi) + CALL rams_filelist (fnames_up,iarawi(1:nc)//'????-??-??-????',nupfiles) + + if(nupfiles.gt.maxisfiles) then + print*,'too many upper air files' + stop 'lots_of_upper_air' + endif + + do nf=1,nupfiles + lnf=len_trim(fnames_up(nf)) + read(fnames_up(nf)(lnf-14:lnf),20) inyear,inmonth,indate,inhour + + CALL date_make_big (inyear,inmonth,indate,inhour*100,itotdate_up(nf)) + + enddo + + CALL rams_dintsort (nupfiles,itotdate_up,fnames_up) + +! do nf=1,nupfiles +! print*,'up files:',nf,itotdate_up(nf),fnames_up(nf) +! enddo + + endif + + + if(iasrfce(1:1).ne.' '.and.iasrfce(1:1).ne.char(0) ) then + + nsffiles=-1 + nc=len_trim(iasrfce) + CALL rams_filelist (fnames_sf,iasrfce(1:nc)//'????-??-??-????',nsffiles) + + if(nsffiles.gt.maxisfiles) then + print*,'too many surface air files' + stop 'lots_of_surface' + endif + + do nf=1,nsffiles + lnf=len_trim(fnames_sf(nf)) + read(fnames_sf(nf)(lnf-14:lnf),20) inyear,inmonth,indate,inhour + + CALL date_make_big (inyear,inmonth,indate,inhour*100,itotdate_sf(nf)) + enddo + + CALL rams_dintsort (nsffiles,itotdate_sf,fnames_sf) + +! do nf=1,nsffiles +! print*,'sf files:',nf,itotdate_sf(nf),fnames_sf(nf) +! enddo + + endif + +endif + +! put dates in order, removing duplicates + +CALL rams_sort_dint3 (nfgfiles,itotdate_fg & + ,nupfiles,itotdate_up,nsffiles,itotdate_sf & + ,ndates,itotdates) + +CALL rams_unique_dint (ndates,itotdates) + +!print*,'dates:',ndates +!do nn=1,ndates +! print*,'dates:',itotdates(nn) +!enddo + + +! start printing section +!-------------------------------------------------------------- + +print*,' ' +print*,' ' +print*,' ' +print*,'---------------------------------------------------------' +print*,'----------- ISAN Input File Date Inventory -------------' +print*,'---------------------------------------------------------' +do nn=1,ndates + print*,'---- Date:',itotdates(nn) + do nf=1,nfgfiles + if(itotdates(nn).eq.itotdate_fg(nf)) then + print*,'---- First guess file:' & + ,fnames_fg(nf)(1:len_trim(fnames_fg(nf))) + endif + enddo + do nf=1,nupfiles + if(itotdates(nn).eq.itotdate_up(nf)) then + print*,'---- Upper air file:' & + ,fnames_up(nf)(1:len_trim(fnames_up(nf))) + endif + enddo + do nf=1,nsffiles + if(itotdates(nn).eq.itotdate_sf(nf)) then + print*,'---- Surface obs file:' & + ,fnames_sf(nf)(1:len_trim(fnames_sf(nf))) + endif + enddo + print*,'------------------------------------------------------' +enddo + +!-------------------------------------------------------------- + +! Find dates we are going to process + +!print*,'start dates:',timmax,iyear1,imonth1,idate1,itime1,isan_inc + +!Find end date +CALL date_add_to (iyear1,imonth1,idate1,itime1*100 & + ,timmax,'s',iyearf,imonthf,idatef,ihourf) +CALL date_make_big (iyearf,imonthf,idatef,ihourf,idate_end) +!print*,'end dates:',iyearf,imonthf,idatef,ihourf,idate_end + +ihour1=itime1*100 +tinc= (isan_inc/100) * 60. + mod(isan_inc,100) +npdates = 1 +CALL date_add_to (iyear1,imonth1,idate1,ihour1 & + ,tinc*(npdates-1),'m',iyear2,imonth2,idate2,ihour2) +CALL date_make_big (iyear2,imonth2,idate2,ihour2 & + ,iproc_dates(npdates)) +do while (iproc_dates(npdates) .lt. idate_end) + npdates = npdates + 1 + CALL date_add_to (iyear1,imonth1,idate1,ihour1 & + ,tinc*(npdates-1),'m',iyear2,imonth2,idate2,ihour2) + CALL date_make_big (iyear2,imonth2,idate2,ihour2 & + ,iproc_dates(npdates)) +end do + + +! We have the dates to process. Find if files exist and set overall +! "go ahead" flag. Put filenames in iproc_names array if they will be used. + +! iproc_flag array info: +! 1) Process? 0=no, 1=yes +! 2) First guess? 0=no file, 1=exists, 2=exists, don't use +! 3) Upper air? 0=no file, 1=exists, 2=exists, don't use +! 4) Surface? 0=no file, 1=exists, 2=exists, don't use + +isan_err_flag=0 + +print*,' ' +print*,' ' +print*,' ' +print*,'---------------------------------------------------------' +print*,'----------- ISAN Processing Information -------------' +print*,'---------------------------------------------------------' +print*,'---- Flags: IGRIDFL =',igridfl,' I1ST_FLG=',i1st_flg +print*,'---- Flags: IUPA_FLG=',iupa_flg,' ISFC_FLG=',isfc_flg +print*,'---- Flags: IDATAIN =',idatain +print*,'---------------------------------------------------------' + +do nn=1,npdates + iproc_flag(nn,1)=0 + iproc_flag(nn,2)=0 + iproc_flag(nn,3)=0 + iproc_flag(nn,4)=0 + + print*,'------------------------------------------------------' + print*,'---- Date:', iproc_dates(nn) + + iproc_flag(nn,1)=1 + + ! first guess + iproc_flag(nn,2)=0 + do nf=1,nfgfiles + if(iproc_dates(nn).eq.itotdate_fg(nf)) then + print*,'---- First guess file exists.' + if(igridfl.eq.0) then + iproc_flag(nn,2)=2 + else + iproc_flag(nn,2)=1 + endif + iproc_names(nn,1)=fnames_fg(nf) + goto 71 + endif + enddo + + ! file doesn't exist + if(igridfl == 0) then + print*,'---- First guess file not needed.' + iproc_flag(nn,1)=1 + elseif(i1st_flg.eq.1) then + print*,'---- First guess file does not exist.' & + ,' Will not process this time.' + iproc_flag(nn,1)=0 + elseif(i1st_flg.eq.2) then + isan_err_flag=1 + print*,'---- First guess file does not exist.' & + ,' Will STOP run.' + iproc_flag(nn,1)=0 + endif + 71 continue + + ! upper air + iproc_flag(nn,3)=0 + do nf=1,nupfiles + if(iproc_dates(nn).eq.itotdate_up(nf)) then + print*,'---- Upper air file exists.' + if(igridfl.eq.3) then + iproc_flag(nn,3)=2 + else + iproc_flag(nn,3)=1 + endif + iproc_names(nn,2)=fnames_up(nf) + goto 72 + endif + enddo + + ! file doesn't exist + if(iupa_flg.eq.1) then + print*,'---- Upper air file does not exist.' & + ,' Will not process this time.' + iproc_flag(nn,1)=0 + elseif(iupa_flg.eq.2) then + isan_err_flag=1 + print*,'---- Upper air file does not exist.',' Will STOP run.' + iproc_flag(nn,1)=0 + elseif(iupa_flg.eq.3) then + print*,'---- Upper air file does not exist.',' Will try running without.' + iproc_flag(nn,3)=3 + endif + 72 continue + + ! surface + iproc_flag(nn,4)=0 + do nf=1,nsffiles + if(iproc_dates(nn).eq.itotdate_sf(nf)) then + print*,'---- Surface obs file exists.' + if(igridfl.eq.3) then + iproc_flag(nn,4)=2 + else + iproc_flag(nn,4)=1 + endif + iproc_names(nn,3)=fnames_sf(nf) + goto 73 + endif + enddo + + ! file doesn't exist + if(isfc_flg.eq.1) then + print*,'---- Surface file does not exist.',' Will not process this time.' + iproc_flag(nn,1)=0 + elseif(isfc_flg.eq.2) then + isan_err_flag=1 + print*,'---- Surface file does not exist.',' Will STOP run.' + iproc_flag(nn,1)=0 + elseif(isfc_flg.eq.3) then + print*,'---- Surface file does not exist.',' Will try running without.' + iproc_flag(nn,4)=3 + endif + 73 continue + +enddo +print*,'---------------------------------------------------------' + +if (isan_err_flag.ne.0) then + print*,'ISAN run stopping because of errors!' + print*,'See previous output listing.' + stop 'isan_file_errors' +endif + +return +END SUBROUTINE isan_file_inv diff --git a/src/6.2.16/isan/isan_coms.f90 b/src/6.2.16/isan/isan_coms.f90 new file mode 100644 index 0000000..ed69ce9 --- /dev/null +++ b/src/6.2.16/isan/isan_coms.f90 @@ -0,0 +1,131 @@ +!############################################################################## +Module isan_coms + +use grid_dims + +implicit none + +!--------------------------------------------------------------------------- +! Configuration RAMS isentropic data analysis package. +!--------------------------------------------------------------------------- + +!--------------------------------------------------------------------------- +integer :: ioflgisz,ioflgvar,natime,iszstage,ivrstage,iyear,imonth,idate & + ,ihour,isan_inc,i1st_flg,iupa_flg,isfc_flg,idatain +!--------------------------------------------------------------------------- +character(len=strl1) :: innpr,inrawi,varpfx,insrfce,iapr,iarawi,iasrfce,var_hfile +character(len=8) :: pdata + +!--------------------------------------------------------------------------- +! Input pressure file header +!--------------------------------------------------------------------------- +integer :: iyy,imm,idd,ihh,itinc,inproj +real :: xnelat,xnelon,cntlat,cntlon + +!--------------------------------------------------------------------------- +!--------------------------------------------------------------------------- +! Input pressure data memory + +real, allocatable, dimension(:,:,:) :: p_u,p_v,p_t,p_z,p_r,p_ur,p_vr +real, allocatable, dimension(:,:) :: p_lat,p_lon +real, allocatable, dimension(:,:) :: p_soilmoist1,p_soilmoist2,p_soiltemp1 & + ,p_soiltemp2,p_snowmass,p_snowdepth +!--------------------------------------------------------------------------- +!--------------------------------------------------------------------------- +! Polar-stereo/pressure grid memory + +real, allocatable, dimension(:,:,:) :: pp_u,pp_v,pp_t,pp_z,pp_r +real, allocatable, dimension(:,:) :: pp_sglob +!--------------------------------------------------------------------------- +!--------------------------------------------------------------------------- +! Polar-stereo/isentropic grid memory + +real, allocatable, dimension(:,:,:) :: pi_u,pi_v,pi_p,pi_s,pi_r & + ,pi_scra,pi_scrb +!--------------------------------------------------------------------------- +!--------------------------------------------------------------------------- +! Polar-stereo/sigma-z grid memory +! :: +real, allocatable, dimension(:,:,:) :: ps_u,ps_v,ps_p,ps_t,ps_r & + ,ps_scra,ps_scrb +!--------------------------------------------------------------------------- +!--------------------------------------------------------------------------- +! Polar-stereo/surface grid memory + +real, allocatable, dimension(:,:) :: rs_u,rs_v,rs_p,rs_t,rs_r,rs_s & + ,rs_top,rs_qual & + ,rs_soilmoist1,rs_soilmoist2,rs_soiltemp1 & + ,rs_soiltemp2,rs_snowmass,rs_snowdepth +!--------------------------------------------------------------------------- +!--------------------------------------------------------------------------- +! Data type to replace A array memory use in ISAN. + +type isan_grids + real, allocatable, dimension(:,:,:) :: rr_u,rr_v,rr_t,rr_p,rr_r,rr_cond + real, allocatable, dimension(:,:,:) :: rr_ug,rr_vg,rr_tg,rr_pg,rr_rg + real, allocatable, dimension(:,:,:) :: rr_pi0,rr_th0,rr_dn0,rr_dn0u,rr_dn0v + real, allocatable, dimension(:,:) :: rr_soilmoist1,rr_soilmoist2,rr_soiltemp1 & + ,rr_soiltemp2,rr_snowmass,rr_snowdepth +end type +real, allocatable, dimension(:) :: rr_scr1,rr_scr2,rr_scr3,rr_vt2da + +type (isan_grids) :: is_grids(maxagrds) + +real, dimension(maxsigz,maxagrds) :: piref,thref,dnref,rtref + +integer :: maxix,maxiy,maxiz + +!--------------------------------------------------------------------------- +!--------------------------------------------------------------------------- +! Input observation data memory +! +real, allocatable, dimension(:,:) :: up_uz,up_vz,up_ur,up_vr,up_zz & + ,up_p,up_t,up_z,up_r +real, allocatable, dimension(:) :: up_lat,up_lon,up_top +real, allocatable, dimension(:,:) :: up_topg +integer, allocatable, dimension(:) :: up_lp, up_lz +character(len=8), allocatable, dimension(:) :: up_chstid + +real, allocatable, dimension(:) :: sf_u,sf_v,sf_p,sf_t,sf_s,sf_r +real, allocatable, dimension(:) :: sf_ur,sf_vr +real, allocatable, dimension(:) :: sf_lat,sf_lon,sf_top,sf_scra +character(len=8), allocatable, dimension(:) :: sf_chstid +character(len=14), allocatable, dimension(:) :: sf_date +!--------------------------------------------------------------------------- +!--------------------------------------------------------------------------- +! Upper air-isentropic/sigma-z memory +! +real, allocatable, dimension(:,:) :: upi_u,upi_v,upi_p,upi_s,upi_r +real, allocatable, dimension(:,:) :: ups_u,ups_v,ups_p,ups_t,ups_r +!--------------------------------------------------------------------------- + +integer :: npdates +integer, dimension(maxisfiles,4) :: iproc_flag +!--------------------------------------------------------------------------- +character(len=strl1), dimension(maxisfiles,4) :: iproc_names +!--------------------------------------------------------------------------- +character(len=14), dimension(maxisfiles) :: iproc_dates +!--------------------------------------------------------------------------- +integer :: nprx,npry,nprz,idatelin,iglobew,iglobs,iglobn +integer, dimension(maxpr) :: levpr +real :: xswlon,xswlat,gdatdx,gdatdy +real, dimension(maxpr) :: pnpr +!--------------------------------------------------------------------------- +integer :: nsta,nssfc,notsta & + ,maxsta,maxsfc,iobswin +real :: stasep +real, dimension(maxagrds) :: wvlnth,respon,swvlnth +!--------------------------------------------------------------------------- +character(len=8), dimension(50) :: notid +character(len=strl1) :: used_file +!--------------------------------------------------------------------------- +integer :: nisx,nisy,nisn,interp,igridfl,nigrids,nsigz & + ,nfeedvar +integer, dimension(maxisn) :: levth +real :: gobsep,gobrad,topsigz,hybbot,hybtop,sfcinf & + ,sigzwt +real, dimension(maxsigz) :: sigz +real, dimension(maxagrds) :: gridwt +!--------------------------------------------------------------------------- + +END MODULE isan_coms diff --git a/src/6.2.16/isan/isan_io.f90 b/src/6.2.16/isan/isan_io.f90 new file mode 100644 index 0000000..eaa0508 --- /dev/null +++ b/src/6.2.16/isan/isan_io.f90 @@ -0,0 +1,360 @@ +!############################################################################## +Subroutine isenio (h5_fid,iphdf5,inout,n1,n2,igrid) + +use isan_coms +use hdf5_utils + +implicit none + +integer :: n1,n2,igrid,npts,nx3,ny3,ninn,l,levnn(maxisn) +integer*8 :: h5_fid +integer :: iphdf5 +character(len=*) :: inout +type (hdf5_select_type) :: mem_select,file_select +integer, dimension(HDF5_MAX_DIMS) :: file_chunks + +if(inout == 'IN') THEN + + ! scalar values + CALL shdf5_set_hs_select (1,'R',igrid,mem_select,file_select,file_chunks) + CALL shdf5_irec (h5_fid,iphdf5,'isen_year',mem_select,file_select,ivars=iyy) + CALL shdf5_irec (h5_fid,iphdf5,'isen_month',mem_select,file_select,ivars=imm) + CALL shdf5_irec (h5_fid,iphdf5,'isen_date',mem_select,file_select,ivars=idd) + CALL shdf5_irec (h5_fid,iphdf5,'isen_hour',mem_select,file_select,ivars=ihh) + CALL shdf5_irec (h5_fid,iphdf5,'isen_nx',mem_select,file_select,ivars=nx3) + CALL shdf5_irec (h5_fid,iphdf5,'isen_ny',mem_select,file_select,ivars=ny3) + CALL shdf5_irec (h5_fid,iphdf5,'isen_nisn',mem_select,file_select,ivars=ninn) + + ! Vector, length is ninn which was just read in with the prior shdf5_irec call + ! To indicate to shdf5_set_h5_select that the variable is a vector of + ! length ninn, use negative ninn. + CALL shdf5_set_hs_select (-ninn,'R',igrid,mem_select,file_select,file_chunks) + CALL shdf5_irec (h5_fid,iphdf5,'isen_levth',mem_select,file_select,ivara=levnn) + + if(nx3.ne.n1.or.ny3.ne.n2.or.ninn.ne.nisn) then + print*,'Isentropic stage grid dimensions do not match' + print*,' configuration file on read !' + print*,' File dimens - ',nx3,ny3,ninn + print*,' Run dimens - ',n1,n2,nisn + stop 'IO3-2' + endif + + npts=n1*n2*nisn + ! ISAN 3D isentropic variables + CALL shdf5_set_hs_select (8,'R',igrid,mem_select,file_select,file_chunks) + CALL shdf5_irec (h5_fid,iphdf5,'isen_u',mem_select,file_select,rvara=pi_u) + CALL vmissr (pi_u,npts,1e30,-9998.) + CALL shdf5_irec (h5_fid,iphdf5,'isen_v',mem_select,file_select,rvara=pi_v) + CALL vmissr (pi_v,npts,1e30,-9998.) + CALL shdf5_irec (h5_fid,iphdf5,'isen_s',mem_select,file_select,rvara=pi_s) + CALL vmissr (pi_p,npts,1e30,-9998.) + CALL shdf5_irec (h5_fid,iphdf5,'isen_p',mem_select,file_select,rvara=pi_p) + CALL vmissr (pi_s,npts,1e30,-9998.) + CALL shdf5_irec (h5_fid,iphdf5,'isen_r',mem_select,file_select,rvara=pi_r) + CALL vmissr (pi_r,npts,1e30,-9998.) + + npts=n1*n2 + + ! ISAN 2D variables + CALL shdf5_set_hs_select (2,'R',igrid,mem_select,file_select,file_chunks) + CALL shdf5_irec (h5_fid,iphdf5,'sfc_u',mem_select,file_select,rvara=rs_u) + CALL vmissr (rs_u,npts,1e30,-9998.) + CALL shdf5_irec (h5_fid,iphdf5,'sfc_v',mem_select,file_select,rvara=rs_v) + CALL vmissr (rs_v,npts,1e30,-9998.) + CALL shdf5_irec (h5_fid,iphdf5,'sfc_p',mem_select,file_select,rvara=rs_p) + CALL vmissr (rs_p,npts,1e30,-9998.) + CALL shdf5_irec (h5_fid,iphdf5,'sfc_t',mem_select,file_select,rvara=rs_t) + CALL vmissr (rs_t,npts,1e30,-9998.) + CALL shdf5_irec (h5_fid,iphdf5,'sfc_r',mem_select,file_select,rvara=rs_r) + CALL vmissr (rs_r,npts,1e30,-9998.) + CALL shdf5_irec (h5_fid,iphdf5,'sfc_s',mem_select,file_select,rvara=rs_s) + CALL vmissr (rs_s,npts,1e30,-9998.) + CALL shdf5_irec (h5_fid,iphdf5,'sfc_topo',mem_select,file_select,rvara=rs_top) + CALL vmissr (rs_top,npts,1e30,-9998.) + CALL shdf5_irec (h5_fid,iphdf5,'sfc_qual',mem_select,file_select,rvara=rs_qual) + CALL vmissr (rs_qual,npts,1e30,-9998.) + + CALL shdf5_irec (h5_fid,iphdf5,'sfc_soilmoist1',mem_select,file_select & + ,rvara=rs_soilmoist1) + CALL vmissr (rs_soilmoist1,npts,1e30,-9998.) + CALL shdf5_irec (h5_fid,iphdf5,'sfc_soilmoist2',mem_select,file_select & + ,rvara=rs_soilmoist2) + CALL vmissr (rs_soilmoist2,npts,1e30,-9998.) + CALL shdf5_irec (h5_fid,iphdf5,'sfc_soiltemp1',mem_select,file_select & + ,rvara=rs_soiltemp1) + CALL vmissr (rs_soiltemp1,npts,1e30,-9998.) + CALL shdf5_irec (h5_fid,iphdf5,'sfc_soiltemp2',mem_select,file_select & + ,rvara=rs_soiltemp2) + CALL vmissr (rs_soiltemp2,npts,1e30,-9998.) + CALL shdf5_irec (h5_fid,iphdf5,'sfc_snowmass',mem_select,file_select & + ,rvara=rs_snowmass) + CALL vmissr (rs_snowmass,npts,1e30,-9998.) + CALL shdf5_irec (h5_fid,iphdf5,'sfc_snowdepth',mem_select,file_select & + ,rvara=rs_snowdepth) + CALL vmissr (rs_snowdepth,npts,1e30,-9998.) + + print 201,' ***** Isentropic file input *****************' & + ,iyear,imonth,idate,ihour,n1,n2,nisn & + ,(levth(l),l=1,nisn) + 201 format(//,a,// & + ,' *',7X,' Date (year,month,day,hour) - ',4I5,/ & + ,' *',7X,' Number of X,Y points - ',2I5,/ & + ,' *',7X,' Number of isentropic levels - ',I5,/ & + ,' *',7X,' Isentropic levels (K) - '/,(32X,8I5)) + print '(a)',' **********************************************' + +endif + +if(inout == 'OUT') then + + ! scalar values + CALL shdf5_set_hs_select (1,'W',igrid,mem_select,file_select,file_chunks) + CALL shdf5_orec (h5_fid,iphdf5,'isen_year',mem_select,file_select & + ,file_chunks,ivars=iyear) + CALL shdf5_orec (h5_fid,iphdf5,'isen_month',mem_select,file_select & + ,file_chunks,ivars=imonth) + CALL shdf5_orec (h5_fid,iphdf5,'isen_date',mem_select,file_select & + ,file_chunks,ivars=idate) + CALL shdf5_orec (h5_fid,iphdf5,'isen_hour',mem_select,file_select & + ,file_chunks,ivars=ihour) + CALL shdf5_orec (h5_fid,iphdf5,'isen_nx',mem_select,file_select & + ,file_chunks,ivars=n1) + CALL shdf5_orec (h5_fid,iphdf5,'isen_ny',mem_select,file_select & + ,file_chunks,ivars=n2) + CALL shdf5_orec (h5_fid,iphdf5,'isen_nisn',mem_select,file_select & + ,file_chunks,ivars=nisn) + + ! Vector, length is nisn + ! To indicate to shdf5_set_h5_select that the variable is a vector of + ! length nisn, use negative nisn. + CALL shdf5_set_hs_select (-nisn,'W',igrid,mem_select,file_select & + ,file_chunks) + CALL shdf5_orec (h5_fid,iphdf5,'isen_levth',mem_select,file_select & + ,file_chunks,ivara=levth) + + npts=n1*n2*nisn + ! ISAN 3D isentropic variables + CALL shdf5_set_hs_select (8,'W',igrid,mem_select,file_select,file_chunks) + CALL vmissw (pi_u,npts,pi_scra,1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'isen_u',mem_select,file_select & + ,file_chunks,rvara=pi_scra) + CALL vmissw (pi_v,npts,pi_scra,1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'isen_v',mem_select,file_select & + ,file_chunks,rvara=pi_scra) + CALL vmissw (pi_p,npts,pi_scra,1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'isen_p',mem_select,file_select & + ,file_chunks,rvara=pi_scra) + CALL vmissw (pi_s,npts,pi_scra,1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'isen_s',mem_select,file_select & + ,file_chunks,rvara=pi_scra) + CALL vmissw (pi_r,npts,pi_scra,1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'isen_r',mem_select,file_select & + ,file_chunks,rvara=pi_scra) + + npts=n1*n2 + ! ISAN 2D variables + CALL shdf5_set_hs_select (2,'W',igrid,mem_select,file_select,file_chunks) + CALL vmissw (rs_u,npts,pi_scra,1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'sfc_u',mem_select,file_select & + ,file_chunks,rvara=pi_scra) + CALL vmissw (rs_v,npts,pi_scra,1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'sfc_v',mem_select,file_select & + ,file_chunks,rvara=pi_scra) + CALL vmissw (rs_p,npts,pi_scra,1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'sfc_p',mem_select,file_select & + ,file_chunks,rvara=pi_scra) + CALL vmissw (rs_t,npts,pi_scra,1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'sfc_t',mem_select,file_select & + ,file_chunks,rvara=pi_scra) + CALL vmissw (rs_r,npts,pi_scra,1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'sfc_r',mem_select,file_select & + ,file_chunks,rvara=pi_scra) + CALL vmissw (rs_s,npts,pi_scra,1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'sfc_s',mem_select,file_select & + ,file_chunks,rvara=pi_scra) + CALL vmissw (rs_top,npts,pi_scra,1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'sfc_topo',mem_select,file_select & + ,file_chunks,rvara=pi_scra) + CALL vmissw (rs_qual,npts,pi_scra,1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'sfc_qual',mem_select,file_select & + ,file_chunks,rvara=pi_scra) + + CALL vmissw (rs_soilmoist1,npts,pi_scra,1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'sfc_soilmoist1',mem_select,file_select & + ,file_chunks,rvara=pi_scra) + CALL vmissw (rs_soilmoist2,npts,pi_scra,1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'sfc_soilmoist2',mem_select,file_select & + ,file_chunks,rvara=pi_scra) + CALL vmissw (rs_soiltemp1,npts,pi_scra,1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'sfc_soiltemp1',mem_select,file_select & + ,file_chunks,rvara=pi_scra) + CALL vmissw (rs_soiltemp2,npts,pi_scra,1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'sfc_soiltemp2',mem_select,file_select & + ,file_chunks,rvara=pi_scra) + CALL vmissw (rs_snowmass,npts,pi_scra,1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'sfc_snowmass',mem_select,file_select & + ,file_chunks,rvara=pi_scra) + CALL vmissw (rs_snowdepth,npts,pi_scra,1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'sfc_snowdepth',mem_select,file_select & + ,file_chunks,rvara=pi_scra) + + print 201,' ***** Isentropic file written *************' & + ,iyear,imonth,idate,ihour,n1,n2,nisn & + ,(levth(l),l=1,nisn) + + print 303,igridfl,gobsep,gobrad + 303 format(/, & + ' Grid flag (IGRIDFL) -',I4,/ & + ,' Grid-obs separation in degrees -',F5.2,/ & + ,' Grid-obs radius influence degrees -',F5.2) + +endif + +return +END SUBROUTINE isenio + +!############################################################################## +Subroutine sigzio (h5_fid,iphdf5,inout,n1,n2,igrid) + +use isan_coms +use hdf5_utils + +implicit none + +integer :: n1,n2,igrid,npts,l,ninn,nx3,ny3 +integer*8 :: h5_fid +integer :: iphdf5 +character(len=*) :: inout +type (hdf5_select_type) :: mem_select,file_select +integer, dimension(HDF5_MAX_DIMS) :: file_chunks + +if(inout == 'IN') then + + ! scalar values + CALL shdf5_set_hs_select (1,'R',igrid,mem_select,file_select,file_chunks) + CALL shdf5_irec (h5_fid,iphdf5,'isen_year',mem_select,file_select,ivars=iyy) + CALL shdf5_irec (h5_fid,iphdf5,'isen_month',mem_select,file_select,ivars=imm) + CALL shdf5_irec (h5_fid,iphdf5,'isen_date',mem_select,file_select,ivars=idd) + CALL shdf5_irec (h5_fid,iphdf5,'isen_hour',mem_select,file_select,ivars=ihh) + CALL shdf5_irec (h5_fid,iphdf5,'isen_nx',mem_select,file_select,ivars=nx3) + CALL shdf5_irec (h5_fid,iphdf5,'isen_ny',mem_select,file_select,ivars=ny3) + CALL shdf5_irec (h5_fid,iphdf5,'sigz_nsigz',mem_select,file_select,ivars=ninn) + + ! Vector, length is ninn which was just read in with the prior shdf5_irec call + ! To indicate to shdf5_set_h5_select that the variable is a vector of + ! length ninn, use negative ninn. + CALL shdf5_set_hs_select (-ninn,'R',igrid,mem_select,file_select,file_chunks) + CALL shdf5_irec (h5_fid,iphdf5,'sigz_sigz',mem_select,file_select,rvara=sigz) + + if(nx3.ne.n1.or.ny3.ne.n2.or.ninn.ne.nsigz)then + print*,'Sigma-z grid dimensions do not match' + print*,' input data on read !' + print*,' File dimensions - ',nx3,ny3,ninn + print*,' Input dimensions - ',n1,n2,nsigz + stop 'iO3-2' + endif + + npts=n1*n2*nsigz + ! ISAN 3D sigma-z variables + CALL shdf5_set_hs_select (9,'R',igrid,mem_select,file_select,file_chunks) + CALL shdf5_irec (h5_fid,iphdf5,'sigz_u',mem_select,file_select,rvara=ps_u) + CALL vmissr (ps_u,npts,1e30,-9998.) + CALL shdf5_irec (h5_fid,iphdf5,'sigz_v',mem_select,file_select,rvara=ps_v) + CALL vmissr (ps_v,npts,1e30,-9998.) + CALL shdf5_irec (h5_fid,iphdf5,'sigz_p',mem_select,file_select,rvara=ps_p) + CALL vmissr (ps_p,npts,1e30,-9998.) + CALL shdf5_irec (h5_fid,iphdf5,'sigz_t',mem_select,file_select,rvara=ps_t) + CALL vmissr (ps_t,npts,1e30,-9998.) + CALL shdf5_irec (h5_fid,iphdf5,'sigz_r',mem_select,file_select,rvara=ps_r) + CALL vmissr (ps_r,npts,1e30,-9998.) + + print 201,' ***** Sigma-z file input *****************' & + ,iyear,imonth,idate,ihour,n1,n2,nsigz & + ,(sigz(l),l=1,nsigz) + 201 format(//,a,// & + ,' *',7X,' Date (year,month,day,hour) - ',4I5,/ & + ,' *',7X,' Number of X,Y points - ',2I5,/ & + ,' *',7X,' Number of sigma-z levels - ',I5,/ & + ,' *',7X,' Sigma-z levels (m) - '/,(32X,7F8.1)) + print '(a)',' **********************************************' + +endif + +if(inout == 'OUT') then + + ! scalar values + CALL shdf5_set_hs_select (1,'W',igrid,mem_select,file_select & + ,file_chunks) + CALL shdf5_orec (h5_fid,iphdf5,'sigz_nsigz',mem_select,file_select & + ,file_chunks,ivars=nsigz) + + ! Vector, length is nsigz. + ! To indicate to shdf5_set_h5_select that the variable is a vector of + ! length nsigz, use negative nsigz. + CALL shdf5_set_hs_select (-nsigz,'R',igrid,mem_select,file_select & + ,file_chunks) + CALL shdf5_orec (h5_fid,iphdf5,'sigz_sigz',mem_select,file_select & + ,file_chunks,rvara=sigz) + + npts=n1*n2*nsigz + ! ISAN 3D sigma-z variables + CALL shdf5_set_hs_select (9,'W',igrid,mem_select,file_select & + ,file_chunks) + CALL vmissw (ps_u,npts,ps_scra,1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'sigz_u',mem_select,file_select & + ,file_chunks,rvara=ps_scra) + CALL vmissw (ps_v,npts,ps_scra,1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'sigz_v',mem_select,file_select & + ,file_chunks,rvara=ps_scra) + CALL vmissw (ps_p,npts,ps_scra,1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'sigz_p',mem_select,file_select & + ,file_chunks,rvara=ps_scra) + CALL vmissw (ps_t,npts,ps_scra,1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'sigz_t',mem_select,file_select & + ,file_chunks,rvara=ps_scra) + CALL vmissw (ps_r,npts,ps_scra,1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'sigz_r',mem_select,file_select & + ,file_chunks,rvara=ps_scra) + + print 201,' ***** Sigma-z file written *************' & + ,iyear,imonth,idate,ihour,n1,n2,nsigz & + ,(sigz(l),l=1,nsigz) + +endif + +return +END SUBROUTINE sigzio + +!############################################################################## +Subroutine vmissw (af,n,as,fm,fx) + +implicit none + +integer :: n +real :: af(*),as(*),fm,fx +integer :: i + +do i=1,n + as(i)=af(i) + if(af(i).ge.fm) as(i)=fx +enddo + +return +END SUBROUTINE vmissw + +!############################################################################## +Subroutine vmissr (af,n,fm,fx) + +implicit none + +integer :: n +real :: af(*),fm,fx +integer :: i + +do i=1,n + if(af(i).le.fx) af(i)=fm +enddo + +return +END SUBROUTINE vmissr + diff --git a/src/6.2.16/isan/isan_name.f90 b/src/6.2.16/isan/isan_name.f90 new file mode 100644 index 0000000..472f372 --- /dev/null +++ b/src/6.2.16/isan/isan_name.f90 @@ -0,0 +1,201 @@ +!############################################################################## +Subroutine nvfills (group,v,iv,fv,cv,nva) + +! Namelist reading routines for ISAN + +! Keep the list of variables here in sync with the list in +! broadcast_config() in mpass_init.f90 + +! This routine places values read in for a particular NAMELIST +! variable in the storage location(s) for that variable +! +! GROUP - NAMELIST group name +! VR - NAMELIST variable name +! II - vector of integer values +! FF - vector of real values +! CC - vector of character strings +! NV - number of values to be inserted + +use isan_coms + +implicit none + +character(len=*) :: group,v,cv +integer :: iv,nva +real :: fv + +integer, parameter :: nvcont=14,nvinst3=23 +integer :: icontrol(nvcont),iinst3(nvinst3) +character(len=16) :: control(nvcont),inst3(nvinst3) +data icontrol/nvcont*0/,iinst3/nvinst3*0/ +data control/'IASRFCE' & + ,'ISAN_INC','I1ST_FLG','IAPR','IARAWI','VAR_HFILE' & + ,'VARPFX','IOFLGISZ','IOFLGVAR' & + ,'IUPA_FLG','ISFC_FLG','ISZSTAGE','IVRSTAGE','IDATAIN'/ +data inst3/'NOTSTA','NOTID','IOBSWIN','WVLNTH','RESPON' & + ,'SWVLNTH','STASEP','IGRIDFL','GRIDWT' & + ,'GOBSEP','GOBRAD','MAXSTA','MAXSFC' & + ,'NISN','LEVTH','NIGRIDS','SIGZWT','TOPSIGZ' & + ,'HYBBOT','HYBTOP','SFCINF','NFEEDVAR','USED_FILE'/ + +integer :: inrflg + +IF(GROUP.EQ.'$ISAN_CONTROL') THEN + CALL varchk (V,GROUP,CONTROL,ICONTROL,NVCONT,INRFLG) + IF(INRFLG.EQ.1) RETURN + IF(V.EQ.'ISZSTAGE') CALL varseti (V,ISZSTAGE,NVA,1,IV,0,1) + IF(V.EQ.'IVRSTAGE') CALL varseti (V,IVRSTAGE,NVA,1,IV,0,1) + IF(V.EQ.'ISAN_INC') CALL varseti (V,ISAN_INC,NVA,1,IV,0,9999) + IF(V.EQ.'I1ST_FLG') CALL varseti (V,I1ST_FLG,NVA,1,IV,1,2) + IF(V.EQ.'IUPA_FLG') CALL varseti (V,IUPA_FLG,NVA,1,IV,1,10) + IF(V.EQ.'ISFC_FLG') CALL varseti (V,ISFC_FLG,NVA,1,IV,1,10) + IF(V.EQ.'IAPR') CALL varsetc (V,IAPR,NVA,1,CV,0,80) + IF(V.EQ.'IARAWI') CALL varsetc (V,IARAWI,NVA,1,CV,0,80) + IF(V.EQ.'IASRFCE') CALL varsetc (V,IASRFCE,NVA,1,CV,0,80) + IF(V.EQ.'VAR_HFILE') CALL varsetc (V,VAR_HFILE,NVA,1,CV,0,strl1) + IF(V.EQ.'VARPFX') CALL varsetc (V,VARPFX,NVA,1,CV,0,80) + IF(V.EQ.'IOFLGISZ') CALL varseti (V,IOFLGISZ,NVA,1,IV,0,1) + IF(V.EQ.'IOFLGVAR') CALL varseti (V,IOFLGVAR,NVA,1,IV,0,1) + IF(V.EQ.'IDATAIN') CALL varseti (V,IDATAIN,NVA,1,IV,0,1) +ENDIF + +IF(GROUP.EQ.'$ISAN_ISENTROPIC') THEN + CALL varchk (V,GROUP,INST3,IINST3,NVINST3,INRFLG) + IF(INRFLG.EQ.1) RETURN + IF(V.EQ.'NIGRIDS') CALL varseti (V,NIGRIDS,NVA,1,IV,1,9) + IF(V.EQ.'NFEEDVAR') CALL varseti (V,NFEEDVAR,NVA,1,IV,0,1) + IF(V.EQ.'SIGZWT') CALL varsetf (V,SIGZWT,NVA,1,FV,0.,1.) + IF(V.EQ.'NISN') CALL varseti (V,NISN,NVA,1,IV,0,MAXISN) + IF(V.EQ.'LEVTH') CALL varseti (V,LEVTH(NVA),NVA,MAXISN,IV,200,800) + IF(V.EQ.'TOPSIGZ') CALL varsetf (V,TOPSIGZ,NVA,1,FV,0.,100000.) + IF(V.EQ.'HYBBOT') CALL varsetf (V,HYBBOT,NVA,1,FV,0.,100000.) + IF(V.EQ.'HYBTOP') CALL varsetf (V,HYBTOP,NVA,1,FV,0.,100000.) + IF(V.EQ.'SFCINF') CALL varsetf (V,SFCINF,NVA,1,FV,0.,100000.) + IF(V.EQ.'MAXSTA') CALL varseti (V,MAXSTA,NVA,1,IV,0,100000) + IF(V.EQ.'MAXSFC') CALL varseti (V,MAXSFC,NVA,1,IV,0,100000) + IF(V.EQ.'GOBSEP') CALL varsetf (V,GOBSEP,NVA,1,FV,0.,100.) + IF(V.EQ.'GOBRAD') CALL varsetf (V,GOBRAD,NVA,1,FV,0.,100.) + IF(V.EQ.'WVLNTH') CALL varsetf (V,WVLNTH(NVA),NVA,maxagrds,FV,0.,1e5) + IF(V.EQ.'SWVLNTH') CALL varsetf (V,SWVLNTH(NVA),NVA,maxagrds,FV,0.,1E5) + IF(V.EQ.'RESPON') CALL varsetf (V,RESPON(NVA),NVA,maxagrds,FV,0.,1.) + IF(V.EQ.'STASEP') CALL varsetf (V,STASEP,NVA,1,FV,0.,100.) + IF(V.EQ.'IGRIDFL') CALL varseti (V,IGRIDFL,NVA,1,IV,0,4) + IF(V.EQ.'GRIDWT') CALL varsetf (V,GRIDWT(NVA),NVA,maxagrds,FV,0.,1.) + IF(V.EQ.'NOTSTA') CALL varseti (V,NOTSTA,NVA,1,IV,0,50) + IF(V.EQ.'NOTID') CALL varsetc (V,NOTID(NVA),NVA,50,CV,1,8) + IF(V.EQ.'USED_FILE') CALL varsetc (V,USED_FILE,NVA,1,CV,0,strl1) + IF(V.EQ.'IOBSWIN') CALL varseti (V,IOBSWIN,NVA,1,IV,-21600,21600) +ENDIF + +return +END SUBROUTINE nvfills + +!############################################################################## +Subroutine namein_isan (IUNIT,GROUP) + +! This routine is called by routines ISAN_DRIVER +! to input the values for the NAMELIST specified by the character string +! GROUP from input unit IUNIT. + +use grid_dims + +implicit none + +character(len=*) :: group +integer :: iunit +integer, parameter :: linvar=10 +character(len=strl1) :: varn,line,linew,value(maxvalues),tokens(50) +integer :: nvalue,nvarn,nr,ncw,nt,ntok,int +real :: fnum +integer, external :: letter +integer, external :: numberchk +integer, external :: letquo + +rewind iunit + +NVALUE=0 +NVARN=0 +CALL findgr (IUNIT,GROUP) +DO 10 NR=1,MAXREC + READ(IUNIT,'(A80)',END=100)LINE + CALL strip (LINE,LINEW,NCW) + NCW=MAX(NCW,1) + CALL toknze (LINEW,NCW,TOKENS,NTOK) + IF(LINEW(1:NCW).EQ.'$END') GOTO 100 + + NT=1 + 20 CONTINUE + IF(NT.GT.NTOK) GOTO 10 + IF(letter(TOKENS(NT)).EQ.1) THEN + IF(NVARN.GT.0) CALL nvtran_isan (GROUP,VARN,VALUE,NVALUE) + NVALUE=0 + VARN=TOKENS(NT) + NVARN=NVARN+1 + NT=NT+1 + IF(TOKENS(NT).EQ.'(' .or. TOKENS(NT).EQ.',') THEN + stop 'Error in RAMSIN syntax. Routine namein_isan' + ENDIF + ELSEIF(numberchk(TOKENS(NT)).EQ.1 .OR. letquo(TOKENS(NT)).EQ.1) THEN + NVALUE=NVALUE+1 + VALUE(NVALUE)=TOKENS(NT) + ENDIF + NT=NT+1 + GOTO 20 +10 CONTINUE + +100 CONTINUE +CALL nvtran_isan (GROUP,VARN,VALUE,NVALUE) +VARN='$END' +CALL nvfills (GROUP,VARN,INT,FNUM,LINEW(1:NCW),NR) + +return +END SUBROUTINE namein_isan + +!############################################################################## +Subroutine nvtran_isan (GROUP,VARN,VALUE,NVALUE) + +! This routine converts a variable value(s) (VALUE) read in as a +! character string(s) to the proper type (integer, real, or character) +! and assigns it (them) to the storage location(s) corresponding to +! the NAMELIST variable VARN. GROUP is the NAMELIST +! group name. NVALUE is the number of values to be assigned. + +use grid_dims + +implicit none + +integer :: NVALUE +character(len=*) :: GROUP,VARN,VALUE(*) +character(len=strl1) :: CHVAL + +integer :: nv,int,ncw +real :: fnum +integer, external :: letint +integer, external :: letquo + +ncw=1 + +IF(letint(VARN).EQ.1) THEN + DO NV=1,NVALUE + IF(letquo(VALUE(NV)).EQ.0) THEN + CALL ch2int (VALUE(NV),INT) + CALL nvfills (GROUP,VARN,INT,FNUM,CHVAL(1:NCW),NV) + ELSE + CALL ch2ch (VALUE(NV),CHVAL,NCW) + CALL nvfills (GROUP,VARN,INT,FNUM,CHVAL(1:NCW),NV) + ENDIF + ENDDO +ELSE + DO NV=1,NVALUE + IF(letquo(VALUE(NV)).EQ.0) THEN + CALL ch2real (VALUE(NV),FNUM) + CALL nvfills (GROUP,VARN,INT,FNUM,CHVAL(1:NCW),NV) + ELSE + CALL ch2ch (VALUE(NV),CHVAL,NCW) + CALL nvfills (GROUP,VARN,INT,FNUM,CHVAL(1:NCW),NV) + ENDIF + ENDDO +ENDIF + +return +END SUBROUTINE nvtran_isan diff --git a/src/6.2.16/isan/refstate.f90 b/src/6.2.16/isan/refstate.f90 new file mode 100644 index 0000000..1bf1bce --- /dev/null +++ b/src/6.2.16/isan/refstate.f90 @@ -0,0 +1,99 @@ +!############################################################################## +Subroutine varfile_refstate (n1,n2,n3,thp,pc,pi0,th0,rtp,dn0 & + ,dn0u,dn0v,topt,rtgt,zt,ztop,piref,thref,dnref,rtref) + +use rconstants + +implicit none + +integer :: n1,n2,n3,ir,jr,i,j,k,i1,j1 +real, dimension(n1,n2,n3) :: thp,pc,pi0,rtp,dn0,th0,dn0u,dn0v +real, dimension(n2,n3) :: topt,rtgt +real, dimension(n1) :: zt,piref,thref,rtref,dnref +real :: ztop,topref,c1,c2,c3 +real, allocatable :: vctr1(:),vctr2(:) + +! Reference sounding is point with lowest topography + +allocate(vctr1(n1),vctr2(n1)) +ir=1 +jr=1 +topref=1.e10 +do j=1,n3 + do i=1,n2 + if(topt(i,j).lt.topref) then + ir=i + jr=j + topref=topt(i,j) + endif + enddo +enddo + +do k=1,n1 + vctr2(k)=zt(k)*(1.-topref/ztop)+topref +enddo + +CALL htint2 (n1,thp(1,ir,jr),vctr2,n1,vctr1,zt) +CALL htint2 (n1,rtp(1,ir,jr),vctr2,n1,rtref(1),zt) + +do k = 1,n1 + thref(k) = vctr1(k) * (1. + .61 * rtref(k)) +enddo +rtref(1) = rtref(2) +thref(1) = thref(2) + +piref(1) = pc(1,ir,jr) + g * (vctr2(1) - zt(1)) & + / (.5 * (thref(1) & + + thp(1,ir,jr) * (1. + .61 * rtp(1,ir,jr)))) +do k = 2,n1 + piref(k) = piref(k-1) - g * (zt(k)-zt(k-1)) & + / ( .5 * (thref(k) + thref(k-1))) +enddo + +do k = 1,n1 + vctr1(k) = (piref(k) / cp) ** cpor * p00 + dnref(k) = cp * vctr1(k) & + / (rgas * thref(k) * piref(k)) +enddo + +! Compute 3-D reference state from 1-D reference state + +do j=1,n3 + do i=1,n2 + + do k=1,n1 + vctr2(k)=zt(k)*rtgt(i,j)+topt(i,j) + enddo + CALL htint (n1,piref(1),zt,n1,pi0(1,i,j),vctr2) + CALL htint (n1,thref(1),zt,n1,th0(1,i,j),vctr2) + + c1=g*2.*(1.-topt(i,j)/ztop) + c2=(1-cpor) + c3=cp**c2 + do k=n1-1,1,-1 + pi0(k,i,j)=pi0(k+1,i,j) & + +c1*(zt(k+1)-zt(k))/(th0(k,i,j)+th0(k+1,i,j)) + enddo + + do k=1,n1 + dn0(k,i,j)=(c3*p00)/(rgas*th0(k,i,j)*pi0(k,i,j)**c2) + enddo + + enddo +enddo + +do j = 1,n3 + j1 = min(j+1,n3) + do i = 1,n2 + i1 = min(i+1,n2) + do k = 1,n1 + dn0u(k,i,j) = .5 * (dn0(k,i,j) + dn0(k,i1,j)) + dn0v(k,i,j) = .5 * (dn0(k,i,j) + dn0(k,i,j1)) + enddo + enddo +enddo + +deallocate(vctr1,vctr2) + +return +END SUBROUTINE varfile_refstate diff --git a/src/6.2.16/isan/v_interps.f90 b/src/6.2.16/isan/v_interps.f90 new file mode 100644 index 0000000..9ccbef9 --- /dev/null +++ b/src/6.2.16/isan/v_interps.f90 @@ -0,0 +1,862 @@ +!############################################################################## +Subroutine obs_isen (m1,m2,tsnd,psnd,zsnd,rsnd,usndz,vsndz & + ,zsndz,lpst,lzst & + ,obsu,obsv,obsp,obss,obsr,no,chstid) +use isan_coms +use rconstants + +implicit none + +integer :: m1,m2,no +real :: tsnd(m1,m2),psnd(m1,m2),zsnd(m1,m2) & + ,rsnd(m1,m2),usndz(m1,m2) & + ,vsndz(m1,m2),zsndz(m1,m2) & + ,obsu(no,*),obsv(no,*),obsp(no,*),obss(no,*),obsr(no,*) +integer, dimension(m1) :: lpst,lzst +character(len=8), dimension(*) :: chstid + +real,dimension(maxlev) :: pk,pth,zi +integer ns,lp,lz,k,lmbot,nglev,lmtop,l,lbchyd,lbc,lbcp +real :: th,wt,pkn,syo,po,tho + +do ns=1,nsta + lp=lpst(ns) + lz=lzst(ns) + + do k=1,nisn + obsp(ns,k)=1E30 + obsr(ns,k)=1E30 + obsu(ns,k)=1E30 + obsv(ns,k)=1E30 + obss(ns,k)=1E30 + enddo + + lmbot=0 + nglev=0 + do k=1,lp + pk(k)=1.e30 + if(psnd(ns,k).lt.1.e29) pk(k)=psnd(ns,k)**rocp + pth(k)=1.e30 + if(tsnd(ns,k).lt.1.e29.and.psnd(ns,k).lt.1.e29) & + pth(k)=tsnd(ns,k)*(p00/psnd(ns,k))**rocp + if(pth(k).lt.1.e30.and.lmbot.eq.0) lmbot=k + if(pth(k).lt.1.e29) nglev=nglev+1 + enddo + lmtop=0 + do k=lp,1,-1 + if(pth(k).lt.1.e30.and.lmtop.eq.0) lmtop=k + enddo + if(nglev.le.1) goto 600 + + l=2 + do k=1,nisn + th=levth(k) + + if(th.lt.pth(lmbot).or.th.gt.pth(lmtop)) then + obsp(ns,k)=1e30 + obsr(ns,k)=1e30 + goto 510 + endif + + 511 if(th.ge.pth(l-1).and.th.lt.pth(l)) goto 515 + l=l+1 + if(l.gt.lp) goto 500 + goto 511 + + 515 continue + wt=(th-pth(l-1))/(pth(l)-pth(l-1)) + pkn=(pk(l)-pk(l-1))*wt+pk(l-1) + obsp(ns,k)=pkn**cpor + if(rsnd(ns,l).lt.1e19.and.rsnd(ns,l-1).lt.1e19) then + obsr(ns,k)=rsnd(ns,l-1)+(rsnd(ns,l)-rsnd(ns,l-1))*wt + else + obsr(ns,k)=1e30 + endif + 510 continue + enddo + 500 continue + + ! Find a boundary condition as first level at or below 360K + + lbchyd=360 + do k=nisn,1,-1 + !print*,'mjb p',k,ns,levth(k),lbchyd,obsp(ns,k) + if(levth(k).le.lbchyd.and.obsp(ns,k).lt.1e19) then + lbc=k + goto 52 + endif + enddo + print*,'---Could not find 1st obs isentropic boundary level ',ns,' ',chstid(ns) + !stop 'obs_isen' + !MJW Seems like just set everything to missing and continue rather than stop + do k=1,nisn + obss(ns,k)=1.e30 + obsu(ns,k)=1.e30 + obsv(ns,k)=1.e30 + enddo + cycle + + 52 continue + + do k=lp,1,-1 + if(pth(k).le.float(levth(lbc))) then + lbcp=k + goto 51 + endif + enddo + print*,'---Could not find 2nd obs isentropic boundary level ',ns,' ',chstid(ns) + !stop 'obs_isen' + !MJW Seems like just set everything to missing and continue rather than stop + do k=1,nisn + obss(ns,k)=1.e30 + obsu(ns,k)=1.e30 + obsv(ns,k)=1.e30 + enddo + cycle + + 51 continue + syo=cp*pth(lbcp)*pk(lbcp)/p00**rocp+g*zsnd(ns,lbcp) + obss(ns,lbc)=syo+cp*(pk(lbcp)+obsp(ns,lbc)**rocp) & + *.5/p00**rocp *(levth(lbc)-pth(lbcp)) + po=obsp(ns,lbc) + syo=obss(ns,lbc) + tho=levth(lbc) + do k=lbc+1,nisn + obss(ns,k)=1e30 + if(obsp(ns,k).lt.1e19) then + obss(ns,k)=syo+cp*(po**rocp+obsp(ns,k)**rocp) & + *.5/p00**rocp *(levth(k)-tho) + syo=obss(ns,k) + po=obsp(ns,k) + tho=levth(k) + endif + enddo + + syo=obss(ns,lbc) + po=obsp(ns,lbc) + tho=levth(lbc) + do k=lbc-1,1,-1 + obss(ns,k)=1e30 + if(obsp(ns,k).lt.1e19) then + obss(ns,k)=syo+cp*(po**rocp+obsp(ns,k)**rocp)*.5 & + /p00**rocp*(levth(k)-tho) + syo=obss(ns,k) + po=obsp(ns,k) + tho=levth(k) + endif + enddo + + do k=1,nisn + if(obss(ns,k).lt.1e19) then + zi(k)=(obss(ns,k)-cp*levth(k)*(obsp(ns,k)*p00i)**rocp)/g + else + zi(k)=1e30 + endif + enddo + + l=2 + do k=1,nisn + + if(lz==0 .or. zi(k) < zsndz(ns,1) .or. zi(k) > zsndz(ns,lz)) then + obsu(ns,k)=1e30 + obsv(ns,k)=1e30 + cycle + endif + + 611 if(zi(k).ge.zsndz(ns,l-1).and.zi(k).lt.zsndz(ns,l)) goto 615 + l=l+1 + if(l.gt.lz) goto 600 + goto 611 + 615 continue + wt=(zi(k)-zsndz(ns,l-1))/(zsndz(ns,l)-zsndz(ns,l-1)) + if(usndz(ns,l).lt.1e19.and.usndz(ns,l-1).lt.1e19 & + .and.vsndz(ns,l).lt.1e19.and.vsndz(ns,l-1).lt.1e19) then + obsu(ns,k)=usndz(ns,l-1)+(usndz(ns,l)-usndz(ns,l-1))*wt + obsv(ns,k)=vsndz(ns,l-1)+(vsndz(ns,l)-vsndz(ns,l-1))*wt + else + obsu(ns,k)=1e30 + obsv(ns,k)=1e30 + endif + + enddo + + 600 continue + +enddo + +return +END SUBROUTINE obs_isen + +!############################################################################## +Subroutine obs_sigz (m1,m2,tsnd,psnd,zsnd,rsnd,usndz,vsndz & + ,zsndz,lpst,lzst,sndtopg & + ,obsu,obsv,obsp,obst,obsr,no,ztop) +use isan_coms +use rconstants + +implicit none + +integer :: m1,m2,no,lpst(m1),lzst(m1) +real :: tsnd(m1,m2),psnd(m1,m2),zsnd(m1,m2) & + ,rsnd(m1,m2),usndz(m1,m2),vsndz(m1,m2),zsndz(m1,m2),sndtopg(m1) & + ,obsu(no,*),obsv(no,*),obsp(no,*),obst(no,*),obsr(no,*) + +real :: pk(maxlev),pth(maxlev),sigzr(maxsigz) & + ,tsz(maxsigz),rsz(maxsigz),psz(maxsigz) + +integer :: ns,k,lmbot,lp,lz,nglev,lmtop,l,lbc,lbcp,kbcu +real :: ztop,wt,bchyd,pio,zso,tho +real, external :: rsatmix + + +do ns=1,nsta + lp=lpst(ns) + lz=lzst(ns) + + !DO K=1,nsigz + ! print*,'mjb a5',ns,nsigz,k,zsnd(ns,k) + !enddo + + ! Fill sigzr from interpolated grid topography height + + DO K=1,nsigz + sigzr(K)=sndtopg(ns)+sigz(k)*(1.-sndtopg(ns)/ztop) + ENDDO + + do k=1,nsigz + obsp(ns,k)=1E30 + obsr(ns,k)=1E30 + obst(ns,k)=1E30 + enddo + + lmbot=0 + nglev=0 + do k=1,lp + pk(k)=1.e30 + if(psnd(ns,k).lt.1.e29) pk(k)=psnd(ns,k)**rocp + pth(k)=1.e30 + if(tsnd(ns,k).lt.1.e29.and.psnd(ns,k).lt.1.e29) & + pth(k)=tsnd(ns,k)*(p00/psnd(ns,k))**rocp + if(pth(k).lt.1.e30.and.lmbot.eq.0) lmbot=k + if(pth(k).lt.1.e29) nglev=nglev+1 + enddo + lmtop=0 + do k=lp,1,-1 + if(pth(k).lt.1.e30.and.lmtop.eq.0) lmtop=k + enddo + if(nglev.le.1) goto 1000 + + l=2 + + !print*,'mjb a',ns,zsnd(ns,1) + do k=1,nsigz + if(sigzr(k).lt.zsnd(ns,1)) then + obst(ns,k)=pth(1) + obsr(ns,k)=rsnd(ns,1) + goto 510 + endif + if(sigzr(k).gt.zsnd(ns,lp)) then + obst(ns,k)=1e30 + obsr(ns,k)=1e30 + goto 510 + endif + + 511 if(sigzr(k).ge.zsnd(ns,l-1).and.sigzr(k).lt.zsnd(ns,l)) goto 515 + l=l+1 + if(l.gt.lp) goto 500 + goto 511 + + 515 continue + wt=(sigzr(k)-zsnd(ns,l-1))/(zsnd(ns,l)-zsnd(ns,l-1)) + obst(ns,k)=(pth(l)-pth(l-1))*wt+pth(l-1) + + if(rsnd(ns,l).lt.1e19.and.rsnd(ns,l-1).lt.1e19) then + obsr(ns,k)=rsnd(ns,l-1)+(rsnd(ns,l)-rsnd(ns,l-1))*wt + else + obsr(ns,k)=1e30 + endif + + 510 continue + !print*,'mjb b',k,ns,lp,obst(ns,k),obsr(ns,k) + enddo + 500 continue + + ! Find a boundary condition as first level at or below 10000m + + bchyd=10000. + do k=nsigz,1,-1 + !print*,'mjb c',ns,k,sigzr(k),bchyd,obst(ns,k) + if(sigzr(k).le.bchyd.and.obst(ns,k).lt.1e19) then + lbc=k + goto 52 + endif + enddo + print*,'---Could not find 1st obs sigma-z boundary level',ns + !stop 'obs_sigz' + !MJW Seems like just set everything to missing and continue rather than stop + do k=1,nsigz + obsp(ns,k)=1.e30 + obst(ns,k)=1.e30 + obsu(ns,k)=1.e30 + obsv(ns,k)=1.e30 + enddo + cycle + 52 continue + + do k=lp,1,-1 + if(zsnd(ns,k).le.sigzr(lbc)) then + lbcp=k + goto 51 + endif + enddo + print*,'---Could not find 2nd obs sigma-z boundary level',ns + !stop 'obs_sigz' + !MJW Seems like just set everything to missing and continue rather than stop + do k=1,nsigz + obsp(ns,k)=1.e30 + obst(ns,k)=1.e30 + obsu(ns,k)=1.e30 + obsv(ns,k)=1.e30 + enddo + cycle + 51 continue + + pio=cp*(psnd(ns,lbcp)/p00)**rocp + obsp(ns,lbc)=pio-(sigzr(lbc)-zsnd(ns,lbcp))*g/((pth(lbcp)+obst(ns,lbc))*.5) + pio=obsp(ns,lbc) + zso=sigzr(lbc) + tho=obst(ns,lbc) + do k=lbc+1,nsigz + obsp(ns,k)=1e30 + if(obst(ns,k).lt.1e19) then + obsp(ns,k)=pio-(sigzr(k)-zso)*g/((obst(ns,k)+tho)*.5) + zso=sigzr(k) + pio=obsp(ns,k) + tho=obst(ns,k) + endif + enddo + + zso=sigzr(lbc) + pio=obsp(ns,lbc) + tho=obst(ns,lbc) + do k=lbc-1,1,-1 + obsp(ns,k)=1e30 + if(obst(ns,k).lt.1e19) then + obsp(ns,k)=pio-(sigzr(k)-zso)*g/((obst(ns,k)+tho)*.5) + zso=sigzr(k) + pio=obsp(ns,k) + tho=obst(ns,k) + endif + enddo + + ! Compute virtual temp + + DO K=1,nsigz + IF(obsp(ns,K)+obst(ns,k).LT.1E19) THEN + tsz(k)=obst(ns,k)*obsp(ns,k)/cp + psz(K)=(obsp(ns,k)/cp)**cpor*p00 + IF(obsr(ns,k).LT.1E19) THEN + rsz(k)=rsatmix(psz(k),tsz(k)) * obsr(ns,k) + tsz(k)=obst(ns,k)*(1.+.61*rsz(k)) + else + tsz(k)=obst(ns,k) + endif + endif + enddo + + ! Recompute pressure profile with virtual temp + + do k=nsigz,1,-1 + if(obsp(ns,k).lt.1e19) then + kbcu=k + goto 551 + endif + enddo + print*, '---Could not find good obs sigma-z boundary level 3',ns + !stop 'obs_sigz' + !MJW Seems like just set everything to missing and continue rather than stop + do k=1,nsigz + obsp(ns,k)=1.e30 + obst(ns,k)=1.e30 + obsu(ns,k)=1.e30 + obsv(ns,k)=1.e30 + enddo + cycle + 551 continue + + zso=sigzr(kbcu) + pio=obsp(ns,kbcu) + tho=tsz(kbcu) + do k=kbcu-1,1,-1 + obsp(ns,k)=1e30 + if(obst(ns,k).lt.1e19) then + obsp(ns,k)=pio-(sigzr(k)-zso)*g/((tsz(k)+tho)*.5) + zso=sigzr(k) + pio=obsp(ns,k) + tho=tsz(k) + endif + enddo + do k=1,nsigz + if(obsp(ns,k).lt.1e19) obsp(ns,k)=(obsp(ns,k)/cp)**cpor*p00 + enddo + + ! Vertically interpolate winds in height + + 1000 continue + + l=2 + do k=1,nsigz + + if(lz==0 .or. sigzr(k) < zsndz(ns,1) .or. sigzr(k) > zsndz(ns,lz)) then + obsu(ns,k)=1e30 + obsv(ns,k)=1e30 + cycle + endif + + 611 if(sigzr(k).ge.zsndz(ns,l-1).and.sigzr(k).lt.zsndz(ns,l)) goto 615 + l=l+1 + if(l.gt.lz) goto 600 + goto 611 + 615 continue + wt=(sigzr(k)-zsndz(ns,l-1))/(zsndz(ns,l)-zsndz(ns,l-1)) + if(usndz(ns,l).lt.1e19.and.usndz(ns,l-1).lt.1e19 & + .and.vsndz(ns,l).lt.1e19.and.vsndz(ns,l-1).lt.1e19) then + obsu(ns,k)=usndz(ns,l-1)+(usndz(ns,l)-usndz(ns,l-1))*wt + obsv(ns,k)=vsndz(ns,l-1)+(vsndz(ns,l)-vsndz(ns,l-1))*wt + else + obsu(ns,k)=1e30 + obsv(ns,k)=1e30 + endif + + enddo + + 600 continue + +enddo + +return +END SUBROUTINE obs_sigz + +!############################################################################## +Subroutine vterpp_i (np1,np2,np3,npi3,un,vn,tn,zn,rn,ui2,vi2,pi2,si2,ri2) + +use isan_coms +use rconstants + +implicit none + +integer :: np1,np2,np3,npi3 +real :: un(np1,np2,np3),vn(np1,np2,np3),tn(np1,np2,np3) & + ,zn(np1,np2,np3),rn(np1,np2,np3) & + ,ui2(np1,np2,npi3),vi2(np1,np2,npi3),pi2(np1,np2,npi3) & + ,si2(np1,np2,npi3),ri2(np1,np2,npi3) + +integer, parameter :: npr=maxpr+2 +real :: ppd(npr),thd(npr),pkd(npr),ud(npr),vd(npr),rd(npr) + +integer :: i,j,k,mcnt,npd,lp,kpbc,kibc +real :: thl,wt,pkn,pbc,sy,dtemp +real, external :: rsatmix + +do j=1,np2 + do i=1,np1 + + DO K=1,NISN + UI2(I,J,K)=1.E30 + VI2(I,J,K)=1.E30 + RI2(I,J,K)=1.E30 + PI2(I,J,K)=1.E30 + SI2(I,J,K)=1.E30 + ENDDO + + ! determine if this column is all missing. if so, just leave + ! isentropic data as missing + + mcnt=0 + DO K=1,NPRZ + if(tn(i,j,k).gt.1000.) mcnt=mcnt+1 + ENDDO + if(mcnt.eq.nprz) goto 4500 + + DO K=1,NPRZ + pnpr(k)=levpr(k)*100. !pressure(Pa) + UD(K+2)=UN(I,J,K) !u-wind(m/s) + VD(K+2)=VN(I,J,K) !v-wind(m/s) + RD(K+2)=RN(I,J,K) !RH-wind(m/s) + PPD(K+2)=PNPR(K) !pressure(Pa) + THD(K+2)=TN(I,J,K)*(P00/PNPR(K))**ROCP !Theta(K) + ENDDO + + ! Define two phony levels for isentropes underground + + UD(1)=UD(3) + UD(2)=UD(3) + VD(1)=VD(3) + VD(2)=VD(3) + RD(1)=RD(3) + RD(2)=RD(3) + PPD(1)=120000. + PPD(2)=110000. + THD(2)=(TN(I,J,1)-2.25)*(P00/PNPR(1))**ROCP + THD(1)=180. + + !Saleeby:(2020) Experimenting Here: + !Try to make better extrapolation below 1000mb level + !Extrapolate RH(2) rather than assume same moisture (keep between 10%-95% RH) + !RD(2) = ( (RD(3)-RD(4))/(PPD(3)-PPD(4)) * (PPD(2)-PPD(3)) ) + RD(3) + !RD(2) = min(0.95,max(0.10,RD(2))) + !RD(1) = RD(2) + !Saleeby:(2020) Extrapolate TN,THD(2) rather than assume an arbitrary lapse rate + !dtemp = (TN(I,J,1)-TN(I,J,2))/(pnpr(1)-pnpr(2)) * (PPD(2)-PPD(3)) + !THD(2)=(TN(I,J,1)-dtemp)*(P00/PPD(2))**ROCP + + npd=nprz+2 + DO K=1,NPD !Up to pressure levels +2 + PKD(K)=PPD(K)**ROCP !Equals p00(T/Theta) + ENDDO + + !Check some output here if needed + !if(i==74.and.j==135)then + ! DO K=1,NPRZ + ! write(*,'(a,2(I8,1X),4(F10.3,1X))') 'plevs' & + ! ,K,levpr(K),ZN(I,J,K),RN(I,J,K),TN(I,J,K) & + ! ,1000.*RN(I,J,K)*rsatmix(PNPR(K),TN(I,J,K)) + ! ENDDO + !endif + + lp = npd + + do k = nisn,1,-1 !Compute from top to bottom + 35 continue + thl = levth(k) + + if (thl .gt. thd(npd)) then + + pi2(i,j,k) = (thd(npd) / thl) ** cpor * ppd(npd) + ui2(i,j,k) = ud(npd) + vi2(i,j,k) = vd(npd) + ri2(i,j,k) = 0. + + elseif (thl .le. thd(lp) .and. thl .gt. thd(lp-1)) then + + wt = (thl - thd(lp-1)) / (thd(lp) - thd(lp-1)) !interpolation weights + pkn = pkd(lp-1) + (pkd(lp) - pkd(lp-1)) * wt !p00*(T/Theta) + pi2(i,j,k) = pkn ** cpor !pressure on isen surface + ui2(i,j,k) = ud(lp-1) + (ud(lp) - ud(lp-1)) * wt !u-wind + vi2(i,j,k) = vd(lp-1) + (vd(lp) - vd(lp-1)) * wt !v-wind + ri2(i,j,k) = rd(lp-1) + (rd(lp) - rd(lp-1)) * wt !RH on isen surface + + else + lp = lp - 1 + if (lp .le. 1) then + print*, 'vterpp_i interpolation tried to go below' + print*, 'lowest pressure level.' + stop 'vterpp_i' + endif + goto 35 + + endif + + enddo + + ! ***************************************************** + ! Find a pressure b.c. as second isentrope above 400 mb + ! ***************************************************** + + pbc=40000. + kpbc=1 + do k=1,npd + if(ppd(k).lt.pbc) then + kpbc=k + exit + endif + enddo + + kibc=2 + do k=2,nisn + if(pi2(i,j,k).lt.ppd(kpbc)) then + kibc=k + exit + endif + enddo + + !Montgomery streamfunction (PSI or "sy") value at level "kpbc" + sy=cp*thd(kpbc)*pkd(kpbc)/p00k+g*zn(i,j,kpbc-2) + + !Compute streamfunction is kibc-1 isentropic level + si2(i,j,kibc-1)=sy-cp*(pi2(i,j,kibc-1)**rocp & + +ppd(kpbc)**rocp)/(2.*p00k)*(thd(kpbc)-levth(kibc-1)) + !Integrate streamfunction downward based on level above it using hydrostatics + do k=kibc-2,1,-1 + si2(i,j,k)=si2(i,j,k+1)+cp*(pi2(i,j,k+1)**rocp & + +pi2(i,j,k)**rocp)/(2.*p00k)*(levth(k)-levth(k+1)) + enddo + + !Compute streamfunction is kibc isentropic level + si2(i,j,kibc)=sy+cp*(pi2(i,j,kibc)**rocp & + +ppd(kpbc)**rocp)/(2.*p00k)*(levth(kibc)-thd(kpbc)) + !Integrate streamfunction upward based on level below it using hydrostatics + do k=kibc+1,nisn + si2(i,j,k)=si2(i,j,k-1)+cp*(pi2(i,j,k-1)**rocp & + +pi2(i,j,k)**rocp)/(2.*p00k)*(levth(k)-levth(k-1)) + enddo + + 4500 continue + + !Check some output here if needed + !if(i==74.and.j==135)then + ! do k = nisn,1,-1 !Compute from top to bottom + ! write(*,'(a,2(I4,1X),4(F8.3,1X),2(F11.3,1X))') 'vterpi' & + ! ,k,lp,thd(lp-1),thl,thd(lp),ri2(i,j,k),pi2(i,j,k),si2(i,j,k) + ! enddo + !endif + + enddo +enddo + +! If any level is above 100 mb, compute geostrophic winds + +!GDKM=2.*SPCON +!DO J=2,NP2-1 +! GDLAT=(XSWLAT+(J-1)*GDATDY)*PI180 +! FCORI=1./(2.*7.292E-5*SIN(GDLAT)) +! DO I=2,NP1-1 +! DO K=NISN,1,-1 +! IF(PI2(I,J,K).LT.10000.) THEN +! UI2(I,J,K)=-FCORI*(SI2(I,J+1,K)-SI2(I,J-1,K))/(GDKM*GDATDY) +! VI2(I,J,K)= FCORI*(SI2(I+1,J,K)-SI2(I-1,J,K)) & +! /(GDKM*GDATDX*COS(GDLAT)) +! ENDIF +! ENDDO +! ENDDO +!ENDDO + +return +END SUBROUTINE vterpp_i + +!############################################################################## +Subroutine vterpp_s (np1,np2,np3,npi3,un,vn,tn,zn,rn & + ,ui2,vi2,pi2,ti2,ri2,topt,rtgt) + +use isan_coms +use rconstants + +implicit none + +integer :: np1,np2,np3,npi3 +real :: un(np1,np2,np3),vn(np1,np2,np3),tn(np1,np2,np3) & + ,zn(np1,np2,np3),rn(np1,np2,np3) & + ,ui2(np1,np2,npi3),vi2(np1,np2,npi3),pi2(np1,np2,npi3) & + ,ti2(np1,np2,npi3),ri2(np1,np2,npi3) & + ,topt(np1,np2),rtgt(np1,np2) + +integer, parameter :: npr=maxpr+2 +real :: ppd(npr),thetd(npr),pkd(npr),ud(npr),vd(npr),zd(npr) & + ,rd(npr),pid(npr),tempd(npr),rtd(npr),thvd(npr) & + ,sigzr(maxsigz),vvv(maxsigz) + +integer :: i,j,k,mcnt,npd,kl,kpbc,kibc +real :: pbc,thvp,pii,dtemp +real, external :: rsatmix + +do j=1,np2 + do i=1,np1 + + DO K=1,npi3 + UI2(I,J,K)=1.E30 + VI2(I,J,K)=1.E30 + RI2(I,J,K)=1.E30 + PI2(I,J,K)=1.E30 + TI2(I,J,K)=1.E30 + ENDDO + + ! determine if this column is all missing. + ! if so, just leave data as missing + + mcnt=0 + DO K=1,NPRZ + if(tn(i,j,k).gt.1000.) mcnt=mcnt+1 + ENDDO + if(mcnt.eq.nprz) goto 4500 + + DO K=1,NPRZ + PNPR(K)=levpr(k)*100. + UD(K+2)=UN(I,J,K) + VD(K+2)=VN(I,J,K) + RD(K+2)=RN(I,J,K) + PPD(K+2)=PNPR(K) + THETD(K+2)=TN(I,J,K)*(P00/PNPR(K))**ROCP + ZD(K+2)=ZN(I,J,K) + ENDDO + + ! Define two phony levels for isentropes underground + + UD(1)=UD(3) + UD(2)=UD(3) + VD(1)=VD(3) + VD(2)=VD(3) + RD(1)=RD(3) + RD(2)=RD(3) + PPD(1)=120000. + PPD(2)=110000. + THETD(2)=(TN(I,J,1)-2.25)*(P00/PNPR(1))**ROCP + THETD(1)=220. + + !Saleeby:(2020) Experimenting here: + !Try to make better extrapolation below 1000mb level + !Extrapolate RH(2) rather than assume same moisture (keep between 10%-95% RH) + !RD(2) = ( (RD(3)-RD(4))/(PPD(3)-PPD(4)) * (PPD(2)-PPD(3)) ) + RD(3) + !RD(2) = min(0.95,max(0.10,RD(2))) + !RD(1) = RD(2) + !Saleeby:(2020) Extrapolate TN,THD(2) rather than assume an arbitrary lapse rate + !dtemp = (TN(I,J,1)-TN(I,J,2))/(pnpr(1)-pnpr(2)) * (PPD(2)-PPD(3)) + !THETD(2)=(TN(I,J,1)-dtemp)*(P00/PPD(2))**ROCP + + npd=nprz+2 + DO K=1,NPD + PKD(K)=PPD(K)**ROCP !p00*(T/Theta) + pid(k)=cp*(ppd(k)/p00)**rocp !PI + tempd(k)=thetd(k)*pid(k)/cp !Temperature + rtd(k)=rd(k)*rsatmix(ppd(k),tempd(k)) !vapor mixing ratio + thvd(k)=thetd(k)*(1.+.61*rtd(k)) !Theta-V + ENDDO + + !Compute height of fake levels using Theta-V and PI + !Recall: PI = cp * (p/p0)**(R/cp). + !This equation comes from natural-log laws and + !geo height / hypsometric equations. + zd(2)=zd(3)+(thvd(3)+thvd(2))*.5*(pid(3)-pid(2))/g + zd(1)=zd(2)+(thvd(2)+thvd(1))*.5*(pid(2)-pid(1))/g + do k=1,npi3 + sigzr(k)=topt(i,j)+sigz(k)*rtgt(i,j) + enddo + + !Vert Interp vars from pressure geoheight levs to RAMS sigma levs + CALL htint (npd,ud,zd,npi3,vvv,sigzr) !for u-wind + CALL psfill (npi3,vvv,ui2,np1,np2,i,j) !u-wind to ui2 (U-wind) + CALL htint (npd,vd,zd,npi3,vvv,sigzr) !for v-wind + CALL psfill (npi3,vvv,vi2,np1,np2,i,j) !v-wind to vi2 (V-wind) + CALL htint (npd,thetd,zd,npi3,vvv,sigzr) !for thetd + CALL psfill (npi3,vvv,ti2,np1,np2,i,j) !thetd to ti2 (potential temp) + CALL htint (npd,rd,zd,npi3,vvv,sigzr) !for rd + CALL psfill (npi3,vvv,ri2,np1,np2,i,j) !rd to ri2 (RH) + CALL htint (npd,pid,zd,npi3,vvv,sigzr) !for pid + CALL psfill (npi3,vvv,pi2,np1,np2,i,j) !pid to pi2 (PI) + do k=1,npi3 + pi2(i,j,k)=(pi2(i,j,k)/cp)**cpor*p00 !convert PI back to Pressure + !Check some output here if needed + !if(i==74.and.j==135)then + ! write(*,'(a,1(I4,1X),4(F11.3,1X))') & + ! 'vterps1',k,sigzr(k),ri2(i,j,k),ti2(i,j,k),pi2(i,j,k) + !endif + enddo + + DO KL=Npi3,1,-1 + IF(TI2(I,J,KL).LT.1E19) GOTO 402 + ENDDO + STOP 'ST2-MISS' + 402 CONTINUE + KL=KL+1 + DO K=KL,Npi3 + TI2(I,J,K)=tempd(npd)*(p00/pi2(i,j,k))**rocp + UI2(I,J,K)=UD(NPD) + VI2(I,J,K)=VD(NPD) + RI2(I,J,K)=0. + ENDDO + + ! ************************************************* + ! Find a pressure b.c. as second level above 700 mb + ! ************************************************* + pbc=70000. + kpbc=1 + DO K=1,npd + if(ppd(k).lt.pbc) then + kpbc=k + goto 320 + endif + ENDDO + 320 continue + + kibc=2 + DO K=2,npi3 + if(ti2(i,j,k).gt.thetd(kpbc)) then + kibc=k + goto 321 + endif + ENDDO + print*,'ISAN error: domain top not high enough' + stop 'vterpp_s' + 321 continue + + do k=1,npi3 + !Convert theta to temperature + vvv(k)=ti2(i,j,k)*(pi2(i,j,k)/p00)**rocp + !Compute theta-v + vvv(k)=ti2(i,j,k)*(1.+.61*ri2(i,j,k)*rsatmix(pi2(i,j,k),vvv(k))) + enddo + !Theta-v at the pressure B.C. defined above + thvp=thetd(kpbc)*(1.+.61*rd(kpbc)*rsatmix(ppd(kpbc),tempd(kpbc))) + + !PI at pressure B.C. level + pii=cp*pkd(kpbc)/p00**rocp + !PI at sigma-z level interpolated from B.C. pressure level but + ! based on theta-v + pi2(i,j,kibc-1)=pii+(zd(kpbc)-sigzr(kibc-1))*g/(.5*(thvp+vvv(kibc-1))) + !Integrate PI downward hydrostatically + do k=kibc-2,1,-1 + pi2(i,j,k)=pi2(i,j,k+1)+(sigzr(k+1)-sigzr(k))*g/(.5*(vvv(k+1)+vvv(k))) + enddo + !Integrate PI upward hydrostatically + do k=kibc,npi3 + pi2(i,j,k)=pi2(i,j,k-1)-(sigzr(k)-sigzr(k-1))*g/(.5*(vvv(k-1)+vvv(k))) + enddo + !Convert PI back to Pressure but now based on Theta-V and extrapolation + !Pressure was first interpolated to sigma levels and then put in hydrostatic + !balance in the columns. + do k=1,npi3 + pi2(i,j,k)=(pi2(i,j,k)/cp)**cpor*p00 + !if(i==74.and.j==135)then + ! write(*,'(a,1(I4,1X),4(F11.3,1X))') & + ! 'vterps2',k,sigzr(k),ri2(i,j,k),ti2(i,j,k),pi2(i,j,k) + !endif + enddo + + 4500 continue + ENDDO +ENDDO + +! If any level is above 100 mb, compute geostrophic winds + +!GDKM=2.*SPCON +!DO J=2,NPRY-1 +! GDLAT=(XSWLAT+(J-1)*GDATDY)*PI180 +! FCORI=1./(2.*7.292E-5*SIN(GDLAT)) +! DO I=2,NPRX-1 +! DO K=NISN,1,-1 +! IF(PI2(I,J,K).LT.10000.) THEN +! UI2(I,J,K)=-FCORI*(SI2(I,J+1,K)-SI2(I,J-1,K))/(GDKM*GDATDY) +! VI2(I,J,K)= FCORI*(SI2(I+1,J,K)-SI2(I-1,J,K)) & +! /(GDKM*GDATDX*COS(GDLAT)) +! ENDIF +! ENDDO +! ENDDO +!ENDDO + + +return +END SUBROUTINE vterpp_s + +!############################################################################## +Subroutine psfill (nz,vvv,aaa,np1,np2,i,j) + +implicit none + +integer :: nz,np1,np2,i,j,k +real :: vvv(nz),aaa(np1,np2,nz) + +do k=1,nz + aaa(i,j,k)=vvv(k) +enddo + +return +END SUBROUTINE psfill diff --git a/src/6.2.16/isan/write_varf.f90 b/src/6.2.16/isan/write_varf.f90 new file mode 100644 index 0000000..b72d8b3 --- /dev/null +++ b/src/6.2.16/isan/write_varf.f90 @@ -0,0 +1,123 @@ +!############################################################################## +Subroutine write_varf () + +use node_mod +use isan_coms +use mem_grid +use io_params +use hdf5_utils + +implicit none + +integer :: ng +character(len=strl1) :: locfn +character(len=3) :: csuff +integer*8 :: h5_fid +integer :: iphdf5 +type (hdf5_select_type) :: mem_select,file_select +integer, dimension(HDF5_MAX_DIMS) :: file_chunks + +if (nmachs .gt. 1) then + iphdf5 = 1 +else + iphdf5 = 0 +endif + +do ng=1,nigrids + nxyzp=nnxp(ng)*nnyp(ng)*nnzp(ng) + nxyp =nnxp(ng)*nnyp(ng) + write(csuff,'(a1,i1)') 'g',ng + + CALL makefnam (locfn,varpfx,0,iyear,imonth,idate & + ,ihour*100,'V',csuff,'h5 ') + + CALL shdf5_open (locfn,'W',iphdf5,h5_fid,iclobber) + + ! scalar values + CALL shdf5_set_hs_select (1,'W',ng,mem_select,file_select,file_chunks) + CALL shdf5_orec (h5_fid,iphdf5,'year' ,mem_select,file_select & + ,file_chunks,ivars=iyear) + CALL shdf5_orec (h5_fid,iphdf5,'month' ,mem_select,file_select & + ,file_chunks,ivars=imonth) + CALL shdf5_orec (h5_fid,iphdf5,'day' ,mem_select,file_select & + ,file_chunks,ivars=idate) + CALL shdf5_orec (h5_fid,iphdf5,'hour' ,mem_select,file_select & + ,file_chunks,ivars=ihour) + CALL shdf5_orec (h5_fid,iphdf5,'nx' ,mem_select,file_select & + ,file_chunks,ivars=nnxp(ng)) + CALL shdf5_orec (h5_fid,iphdf5,'ny' ,mem_select,file_select & + ,file_chunks,ivars=nnyp(ng)) + CALL shdf5_orec (h5_fid,iphdf5,'nz' ,mem_select,file_select & + ,file_chunks,ivars=nnzp(ng)) + CALL shdf5_orec (h5_fid,iphdf5,'polelat',mem_select,file_select & + ,file_chunks,rvars=polelat) + CALL shdf5_orec (h5_fid,iphdf5,'polelon',mem_select,file_select & + ,file_chunks,rvars=polelon) + CALL shdf5_orec (h5_fid,iphdf5,'dx' ,mem_select,file_select & + ,file_chunks,rvars=deltaxn(ng)) + CALL shdf5_orec (h5_fid,iphdf5,'dz' ,mem_select,file_select & + ,file_chunks,rvars=deltazn(ng)) + CALL shdf5_orec (h5_fid,iphdf5,'dzrat' ,mem_select,file_select & + ,file_chunks,rvars=dzrat) + CALL shdf5_orec (h5_fid,iphdf5,'dzmax' ,mem_select,file_select & + ,file_chunks,rvars=dzmax) + + ! Atmospheric 3D vars + CALL shdf5_set_hs_select (3,'W',ng,mem_select,file_select,file_chunks) + CALL rearrange (nnzp(ng),nnxp(ng),nnyp(ng),is_grids(ng)%rr_u,rr_scr3) + CALL shdf5_orec (h5_fid,iphdf5,'UP',mem_select,file_select & + ,file_chunks,rvara=rr_scr3) + CALL rearrange (nnzp(ng),nnxp(ng),nnyp(ng),is_grids(ng)%rr_v,rr_scr3) + CALL shdf5_orec (h5_fid,iphdf5,'VP',mem_select,file_select & + ,file_chunks,rvara=rr_scr3) + CALL rearrange (nnzp(ng),nnxp(ng),nnyp(ng),is_grids(ng)%rr_p,rr_scr3) + CALL shdf5_orec (h5_fid,iphdf5,'PI',mem_select,file_select & + ,file_chunks,rvara=rr_scr3) + CALL rearrange (nnzp(ng),nnxp(ng),nnyp(ng),is_grids(ng)%rr_t,rr_scr3) + CALL shdf5_orec (h5_fid,iphdf5,'THETA',mem_select,file_select & + ,file_chunks,rvara=rr_scr3) + CALL rearrange (nnzp(ng),nnxp(ng),nnyp(ng),is_grids(ng)%rr_r,rr_scr3) + CALL shdf5_orec (h5_fid,iphdf5,'RV',mem_select,file_select & + ,file_chunks,rvara=rr_scr3) + + CALL rearrange (nnzp(ng),nnxp(ng),nnyp(ng),is_grids(ng)%rr_cond,rr_scr3) + CALL shdf5_orec (h5_fid,iphdf5,'COND',mem_select,file_select & + ,file_chunks,rvara=rr_scr3) + + ! Atmospheric 2D vars + CALL shdf5_set_hs_select (2,'W',ng,mem_select,file_select,file_chunks) + CALL vmissw (is_grids(ng)%rr_soilmoist1(1,1),nxyp,rr_vt2da(1),1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'SOILMOIST1',mem_select,file_select & + ,file_chunks,rvara=rr_vt2da) + CALL vmissw (is_grids(ng)%rr_soilmoist2(1,1),nxyp,rr_vt2da(1),1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'SOILMOIST2',mem_select,file_select & + ,file_chunks,rvara=rr_vt2da) + CALL vmissw (is_grids(ng)%rr_soiltemp1(1,1),nxyp,rr_vt2da(1),1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'SOILTEMP1',mem_select,file_select & + ,file_chunks,rvara=rr_vt2da) + CALL vmissw (is_grids(ng)%rr_soiltemp2(1,1),nxyp,rr_vt2da(1),1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'SOILTEMP2',mem_select,file_select & + ,file_chunks,rvara=rr_vt2da) + CALL vmissw (is_grids(ng)%rr_snowmass(1,1),nxyp,rr_vt2da(1),1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'SNOWMASS',mem_select,file_select & + ,file_chunks,rvara=rr_vt2da) + CALL vmissw (is_grids(ng)%rr_snowdepth(1,1),nxyp,rr_vt2da(1),1E30,-9999.) + CALL shdf5_orec (h5_fid,iphdf5,'SNOWDEPTH',mem_select,file_select & + ,file_chunks,rvara=rr_vt2da) + + CALL shdf5_close (h5_fid) + +enddo + +! Write the header file, only allow rammain to do this so the other +! processes don't collide during the write. +if ((my_rams_num .eq. mainnum) .or. (nmachs .eq. 1)) then + CALL makefnam (locfn,varpfx,0,iyear,imonth,idate & + ,ihour*100,'V','$','tag') + CALL rams_f_open (2,locfn,'FORMATTED','REPLACE','WRITE',iclobber) + write(2,*) nigrids + close(2) +endif + +return +END SUBROUTINE write_varf diff --git a/src/6.2.16/kpp/kpp_coeffs.f90 b/src/6.2.16/kpp/kpp_coeffs.f90 new file mode 100644 index 0000000..c1cc4b1 --- /dev/null +++ b/src/6.2.16/kpp/kpp_coeffs.f90 @@ -0,0 +1,488 @@ +!############################################################################## +real Function MCKPP_CPSW (S,T1,P0) + + ! UNITS: + ! PRESSURE P0 DECIBARS + ! TEMPERATURE T DEG CELSIUS (IPTS-68) + ! SALINITY S (IPSS-78) + ! SPECIFIC HEAT CPSW J/(KG DEG C) + ! *** + ! REF: MILLERO ET AL,1973,JGR,78,4499-4507 + ! MILLERO ET AL, UNESCO REPORT NO. 38 1981 PP. 99-188. + ! PRESSURE VARIATION FROM LEAST SQUARES POLYNOMIAL + ! DEVELOPED BY FOFONOFF 1980. + ! *** + ! CHECK VALUE: CPSW = 3849.500 J/(KG DEG. C) FOR S = 40 (IPSS-78), + ! T = 40 DEG C, P0= 10000 DECIBARS + ! + ! check that temperature is above -2 + T = T1 + if(T.lt.-2.) T = -2. + ! + ! SCALE PRESSURE TO BARS + P=P0/10. + ! *** + ! SQRT SALINITY FOR FRACTIONAL TERMS + SR = SQRT(ABS(S)) + ! SPECIFIC HEAT CP0 FOR P=0 (MILLERO ET AL ,UNESCO 1981) + A = (-1.38385E-3*T+0.1072763)*T-7.643575 + B = (5.148E-5*T-4.07718E-3)*T+0.1770383 + C = (((2.093236E-5*T-2.654387E-3)*T+0.1412855)*T-3.720283)*T+4217.4 + CP0 = (B*SR + A)*S + C + ! CP1 PRESSURE AND TEMPERATURE TERMS FOR S = 0 + A = (((1.7168E-8*T+2.0357E-6)*T-3.13885E-4)*T+1.45747E-2)*T-0.49592 + B = (((2.2956E-11*T-4.0027E-9)*T+2.87533E-7)*T-1.08645E-5)*T+2.4931E-4 + C = ((6.136E-13*T-6.5637E-11)*T+2.6380E-9)*T-5.422E-8 + CP1 = ((C*P+B)*P+A)*P + ! CP2 PRESSURE AND TEMPERATURE TERMS FOR S > 0 + A = (((-2.9179E-10*T+2.5941E-8)*T+9.802E-7)*T-1.28315E-4)*T+4.9247E-3 + B = (3.122E-8*T-1.517E-6)*T-1.2331E-4 + A = (A+B*SR)*S + B = ((1.8448E-11*T-2.3905E-9)*T+1.17054E-7)*T-2.9558E-6 + B = (B+9.971E-8*SR)*S + C = (3.513E-13*T-1.7682E-11)*T+5.540E-10 + C = (C-1.4300E-12*T*SR)*S + CP2 = ((C*P+B)*P+A)*P +! SPECIFIC HEAT RETURN + MCKPP_CPSW = CP0 + CP1 + CP2 + +return +END FUNCTION MCKPP_CPSW + +!############################################################################## +Subroutine MCKPP_ABK80 (S,T1,P,Alpha,Beta,Kappa,Sig0,Sig) + +implicit none + +! Routine to Coordinate computation of the expansion coefficients of +! seawater with respect to temperature (alpha), salinity (beta), and +! pressure (kappa) using the 1980 equation of state for seawater. +! +! Routines Bet80,Alf80,Kap80 are called IN THAT ORDER to assure a +! minimum of repetitive work between the routines, as well as to +! minimize storage in common (alpha overwrites coefficients that beta +! obtains through common from Sig80). +! +! On Entry, the calling program should specify a nonzero value for +! any or all of: alpha,beta,kappa in the argument list. This indicates +! to THIS routine which values are desired. +! +! If either alpha or beta (or both) are requested, then Sig80 is called +! to compute the density at S,T,P. Intermediate quantities in that +! computation are passed in common for usage by Bet80 (FIRST!) for very +! little extra work. Alf80 doesn't gain too much from Sig80, and must +! redo many temperature power series. To save space, the intermediate +! coefficients in common are overwritten as Alpha is computed since +! beta will have already used them (if it was computed at all). +! +! Since Kappa does not require density values to be known, but does +! require the Bulk Modulus, an Entry point to compute only K in Sig80 +! has been set up. However, if alpha or beta are computed then K and +! other necessary terms to compute kappa will be in common and the +! call to BLKMOD in Sig80 will not be necessary. There is, however, a +! special case when we must still call BlkMod in Sig80: if P=0. This +! results because the Bulk Modulus won't be needed to compute density +! (sigma-t) but they WILL be needed to compute kappa. In this case +! we again go to the entry point BlkMod in Sig80. +! +! Coordination of whether or not density has been computed (Sig80 +! called) is handled by logical flag KapFlg. This is used to control +! entry BlkMod in Sig80, as well as to minimize extra work in Kappa if +! density is already known, so that K and the other terms needed for +! Kappa are already in common. +! +! Units used in this routine and external routines: +! Sig80,Alf80,Bet80,Kap80 are: +! +! S(1978 practical salinity),T(degC),P(dbar), +! Alpha(degC**-1),Beta(nondim. {divided by 10**-3 for 1978 prac. sal.}), +! Kappa(bar**-1),Sig & Sig0(kg/m**3). +! +! Check Values: S=35,T=15(degC),P=0(dbar)-->Alpha=2.14136e-4, +! Beta =7.51638e-4, +! Kappa=4.32576e-5. +! +! S=40,T=0(degC),P=10,000(dbar)-->Alpha=2.69822e-4, +! Beta =6.88317e-4, +! Kappa=3.55271e-5. +! +! References: UNESCO(1981): Background papers and supporting data on +! the International Equation of State of +! Seawater, 1980. UNESCO Tech. Pap. in Mar. +! Sci., No. 38, 192 pp. +! +! Fofonoff, N.P., and R.C. Millard, Jr. (1983): Algorithms +! for computation of fundamental properties +! of seawater. UNESCO Tech. Pap. in Mar. +! Sci., No. 44, 53 pp. +! +! Lillibridge, J.L. (1988): Computing the seawater expansion +! coefficients directly from the 1980 equation +! of state. Jour. Atm. Ocean. Tech., in press. +! +! John L. Lillibridge @ URI/GSO: 25 March 1987 +! + + ! *,Exp. Coeff. of SeaWater 1980 <870330.1557> + + Real P,P0,T,S,SR,Sig,Sig0,R1,R2,R3,R4,T1 + Real PK,A,B,Alpha,Beta,Kappa + Real A1,B1,C,D,E,K + Real Rho,Rho0,ABFac + Logical KapFlg,ABFlg + + Common /EOS/R1,R2,R3,R4,A,B,C,D,E,A1,B1,K,SR,P0,PK,Rho,Rho0,ABFac,ABFlg + + ! Check that temperature is above freezing + T = T1 + if(T.lt.-2.) T = -2. + + ! Set the KapFlg to .TRUE. to indicate Sig80 not called yet + ! and set the ABFlg to .TRUE. to be reset only by Beta to + ! save alpha a little work + KapFlg=.True. + ABFlg=.True. + + ! Begin with Beta + ! Note that this MUST be called before Alpha due to destruction + ! of Intermediate sums used between Sig80 and Beta + If(Beta.ne.0)Then + !Main Program wants Beta + CALL MCKPP_Sig80 (S,T,P,KapFlg,Sig0,Sig) + CALL MCKPP_Bet80 (S,T,P,Beta) + EndIf + + ! Compute Alpha next overwriting many common variables used by Sig80 + If(Alpha.ne.0)Then + !Main Program wants Alpha + If(KapFlg)Then + CALL MCKPP_Sig80 (S,T,P,KapFlg,Sig0,Sig) + EndIf + CALL MCKPP_Alf80 (S,T,P,Alpha) + EndIf + +! If we have not called Sig80 yet, zero out Sig,Sig0 to be safe. + If(KapFlg)Then + Sig=0. + Sig0=0. + EndIf + +! Lastly compute Kappa using quantities in common from Sig80 if +! possible, otherwise go to entry point BlkMod in Sig80 from +! within Kap80 + If(Kappa.ne.0)Then + CALL MCKPP_Kap80 (S,T,P,KapFlg,Kappa) + EndIf + +! All Done, Return with appropriate desired values calculated + +return +END SUBROUTINE MCKPP_ABK80 + +!############################################################################## +Subroutine MCKPP_Bet80 (S,T,P,Beta) + +implicit none + +! Coefficient of Haline Contraction using algebraic derivation of +! the formulae for the 1980 Equation of State. +! +! Units: P(db),T(DegC),S(1978 Practical Salinity),Sig & Sg80(kg/m**3) +! Rho & Rho0(kg/m**3), Beta (nondim. {divided by 10**-3 for +! 1978 prac. sal.}) +! +! Common variables are polynomials of T evaluated by Sig80 in +! computing density, which are then used again by Beta. In addition +! the sigma-t value (sig) and secant bulk modulus (K) are stored for +! use in the overall expression for Beta. +! +! John L. Lillibridge at URI/GSO: 12/22/86 + + Real P,P0,T,S,SR,R1,R2,R3,R4 + Real Beta,PK,A,B,SR5 + Real A1,B1,C,D,E,K + Real Rho,Rho0 + Real DRho,DK,DK0,DA,DB + Real ABFac + Logical ABFlg + Common /EOS/R1,R2,R3,R4,A,B,C,D,E,A1,B1,K,SR,P0,PK,Rho,Rho0,ABFac,ABFlg + +! Compute the Sigma-t derivative term +! Note that SR is the Sq.Root of Salinity from Sig80 + SR5=SR*1.5 + DRho=R2+SR5*R3+(S+S)*R4 + If(P.eq.0)Then + Beta=DRho/Rho + Return + EndIf + +! Next Compute the Derivative Terms for the Bulk Modulus + DK0=A1+SR5*B1 + DA=C+SR5*D + DB=E + +! Derivative DK/DS + DK=(DB*P0+DA)*P0+DK0 + +! Assemble Beta from all the terms (Rho0,K,PK from Sig80) + ABFac=Rho0*P0/((K-P0)*(K-P0)) + ABFlg=.False. + Beta=DRho/(1.-PK) - ABFac*DK + Beta=Beta/Rho + +return +END SUBROUTINE MCKPP_Bet80 + +!############################################################################## +Subroutine MCKPP_Alf80 (S,T,P,Alpha) + +implicit none + + ! Thermal Expansion Coefficient for Sea Water + ! *,1980 Thermal Exp. Coeff. <870330.1549> + ! + ! Derivative of the 1980 equation of state with respect to + ! Temperature. Constants in the EOS have been replaced simply + ! with c(i)-->i*c(i), and the powers in T are reduced by one + ! in the Horner's Rule power series sums. + ! + ! UNITS: P(DBAR), T(DEG C), S(1978 Practical Salinity), + ! P0,K(BAR), Alpha (DegC-1) + ! + ! Updated for use with alpha,beta,kappa package by JLL March 24, 1987 + ! Including use of extensive common to save intermediate summations. + ! + ! Note that Rho,Rho0,P0(Bars),K,PK(=P0/K) & SR will be defined on + ! entry from a previous evaluation of Rho + ! + ! John L. Lillibridge @ URI/GSO: March 24, 1987 + ! + + Real P,P0,PK + !Pressure Related Terms + Real T,S,SR + !Temp & Salinity Terms + Real R1,R2,R3,R4 + !Atm. Prs. Density Terms + REAL A,B,C,D,E,A1,B1,AW,BW,K,K0,KW + !Bulk Modulus Terms + Real Rho,Rho0 + !Sigma + 1000 + Real Alph0,AlphaA,AlphB,AlphK,Alpha + !Alpha Terms + Real ABFac + !Common to Alpha/Beta + Logical ABFlg + +! Common Block for the Equation Of State routines Alf80,Bet80,Kap80 +! Which can utilize Intermediate sums to minimize overhead once density +! computed by routine Sig80. + COMMON /EOS/R1,R2,R3,R4,A,B,C,D,E,A1,B1,K,SR,P0,PK,Rho,Rho0,ABFac,ABFlg + +! COMPUTE Alpha PURE WATER AT ATM PRESS + + R1=(((.3268166E-7*T-.4480332e-5)*T+.3005055e-3)*T-.1819058E-1)*T+6.793952E-2 + +! SEAWATER Alpha AT ATM PRESS + R2=((.215500E-7*T-.247401E-5)*T+.152876E-3)*T-4.0899E-3 + R3=-.33092E-5*T+1.0227E-4 + Alph0=(R3*SR+R2)*S+R1 + +! Alpha AT ATM PRESS + IF(P.EQ.0.0)Then + Alpha=-Alph0/Rho + Return + EndIf + +! COMPUTE COMPRESSION TERMS + B1=-.106018E-2*T+1.6483E-2 + A1=(-.18501E-3*T+.219974E-1)*T-0.603459 + KW=((-.2062115E-3*T+.4081431E-1)*T-.4654210E+1)*T+148.4206 + K0=(B1*SR+A1)*S+KW + +! Pressure Terms in Bulk Modulus + E=.183394E-8*T+2.0816E-8 + BW=.105574E-6*T-6.12293E-6 + AlphB=BW+E*S + C=-.32156E-5*T-1.0981E-5 + AW=(-.1733715E-5*T+.232184E-3)*T+1.43713E-3 + AlphaA=C*S+AW + +! EVALUATE PRESS POLYNOMIAL AND RETURN + AlphK=(AlphB*P0+AlphaA)*P0+K0 + If(ABFlg) Then + ABFac=Rho0*P0/((K-P0)*(K-P0)) + EndIf + Alpha=Alph0/(1.-PK) - ABFac*AlphK + Alpha=-Alpha/Rho + +return +END SUBROUTINE MCKPP_Alf80 + +!############################################################################## +Subroutine MCKPP_Kap80 (S,T,P,KapFlg,Kappa) + +implicit none + +! Coefficient of Compressibility using algebraic derivation of +! the formulae for the 1980 Equation of State. +! +! Units: P(db),T(degC),S(1978 Practical Salinity),Sig & Sg80(kg/m**3) +! Rho & Rho0(kg/m**3), Kappa (bar-1) +! +! If density has already been computed, for alpha or beta, then +! the coefficients A,B and the secant bulk modulus K will have +! already been computed so simply evaluate the formula for kappa. +! However, if P=0, then neither A,B, nor K will be computed in +! Sig80, therefore we must go to that routine at entry point +! BlkMod to obtain those coefficients. Similarly, if density +! has not been computed, we go to entry BlkMod in routine +! Sig80 to obtain A,B,K for kappa. +! +! John L. Lillibridge @ URI/GSO: 25 March 1987 + + Real P,P0,T,S,SR,R1,R2,R3,R4 + Real PK,A,B,Kappa + Real A1,B1,C,D,E,K,DelK + Real Rho,Rho0,ABFac + Logical KapFlg, ABFlg + ! Signals we need entry to BlkMod + + Common /EOS/R1,R2,R3,R4,A,B,C,D,E,A1,B1,K,SR,P0,PK,Rho,Rho0,ABFac,ABFlg + + ! If P=0 must go to Sig80 routine at Entry BlkMod + If(P.eq.0) Then + KapFlg=.True. + CALL MCKPP_BlkMod (S,T,P,KapFlg) + Kappa=1.0/K + ! K in Common (Bars), Kappa in bar-1 + Return + EndIf + +! If Density has not been computed must also go to BlkMod + If(KapFlg) Then + CALL MCKPP_BlkMod (S,T,P,KapFlg) + EndIf + +! Full nonzero pressure formula for Kappa given A,B,K + DelK=A+(P0+P0)*B + Kappa=(1.-PK*DelK)/(K-P0) + +return +END SUBROUTINE MCKPP_Kap80 + +!############################################################################## +Subroutine MCKPP_Sig80 (S,T,P,KapFlg,Sig0,Sig) + +implicit none + +! EQUATION OF STATE FOR SEA WATER +! *,1980 EQ. OF STATE <870330.1544> +! +! EQUATION OF STATE FOR SEAWATER PROPOSED BY JPOTS 1980 +! +! REF: MILLERO, ET. AL. (1980) D.S.R.,27A,255-264. +! UNITS: P(DBAR), T(DEG C), S(P.S.U.), Sig,Sig0(KG/M**3) +! P0,K(BAR) +! +! NPF,OCT 7 80; JLL,FEB 24 82. +! UPDATED TO USE ONLY SIGMA UNITS BY JLL MAR 10 82. +! +! Updated for use with alpha,beta,kappa package by JLL March 24, 1987 +! Including use of extensive common to save intermediate summations. +! +! John L. Lillibridge @ URI/GSO: March 24 1987 + + Real P,P0,PK + !Pressure Related Terms + Real T,S,SR + !Temp & Salinity Terms + Real Sig0,R1,R2,R3,R4 + !Atm. Prs. Density Terms + REAL A,B,C,D,E,A1,B1,AW,BW,K,K0,KW + !Bulk Modulus Terms + Real BlkMod + !Entry Point for Kappa + Real Sig,Rho,Rho0,ABFac + !Sigma + 1000 + Logical KapFlg, ABFlg + !True when Entry at BlkMod + +! Common Block for the Equation Of State routines Alf80,Bet80,Kap80 +! Which can utilize Intermediate sums to minimize overhead once density +! computed by this routine. + Common /EOS/R1,R2,R3,R4,A,B,C,D,E,A1,B1,K,SR,P0,PK,Rho,Rho0,ABFac,ABFlg + +! CONVERT PRESSURE TO BARS AND SQ ROOT SALINITY +! And Set the Logical Flag used to control Entry Point Below for Kappa + P0=P/10.0 + SR=SQRT(ABS(S)) + KapFlg=.False. + + ! COMPUTE SIGMA PURE WATER AT ATM PRESS + R1=((((6.536332E-9*T-1.120083E-6)*T+1.001685E-4)*T-9.095290E-3)& + *T+6.793952E-2)*T-.157406 + !Note Constant for Sigma vs. Rho + !SEAWATER SIGMA AT ATM PRESS + R2=(((5.3875E-9*T-8.2467E-7)*T+7.6438E-5)*T-4.0899E-3)*T+8.24493E-1 + R3=(-1.6546E-6*T+1.0227E-4)*T-5.72466E-3 + R4=4.8314E-4 + Sig0=(R4*S+R3*SR+R2)*S+R1 + Rho0=1000.0 + Sig0 + + ! SIGMA AT ATM PRESS + IF(P.EQ.0.0)Then + Sig=Sig0 + Rho=Rho0 + Return + EndIf + + ! COMPUTE COMPRESSION TERMS + + ! This is the entry point when the Bulk Modulus K is desired, which + ! does not require knowledge of density. Entry from Kappa will have + ! KapFlg set .True. so that we exit before computing Sig. + Entry MCKPP_BlkMod (S,T,P,KapFlg) + + ! For Computation of Kappa + + ! If Entry without density computed need these two common terms + + If(KapFlg)Then + P0=P/10.0 + SR=SQRT(ABS(S)) + EndIf + + B1=(-5.3009E-4*T+1.6483E-2)*T+7.944E-2 + A1=((-6.1670E-5*T+1.09987E-2)*T-0.603459)*T+54.6746 + KW=(((-5.155288E-5*T+1.360477E-2)*T-2.327105)*T+148.4206)*T+19652.21 + K0=(B1*SR+A1)*S+KW + + ! If computing Kappa and P=0, return here + If(P.eq.0.0)Then + K=K0 + Return + EndIf + +! Pressure Terms in Bulk Modulus + E=(9.1697E-10*T+2.0816E-8)*T-9.9348E-7 + BW=(5.2787E-8*T-6.12293E-6)*T+8.50935E-5 + B=BW+E*S + + D=1.91075E-4 + C=(-1.6078E-6*T-1.0981E-5)*T+2.2838E-3 + AW=((-5.77905E-7*T+1.16092E-4)*T+1.43713E-3)*T+3.239908 + A=(D*SR+C)*S+AW + +! EVALUATE PRESS POLYNOMIAL AND RETURN + K=(B*P0+A)*P0+K0 + +! If Entry at BlkMod Exit Now + PK=P0/K + If (KapFlg) Return + Sig=(1000.0*PK+Sig0)/(1.0-PK) + Rho=1000.0 + Sig + +return +END SUBROUTINE MCKPP_Sig80 + diff --git a/src/6.2.16/kpp/kpp_init.f90 b/src/6.2.16/kpp/kpp_init.f90 new file mode 100644 index 0000000..c0c67e8 --- /dev/null +++ b/src/6.2.16/kpp/kpp_init.f90 @@ -0,0 +1,830 @@ +!############################################################################## +Subroutine MCKPP_INITIALIZE_FIELDS () + +use mem_kpp, only:kpp_3d_fields,kpp_const_fields +use kpp_parameters, only:kppNZ,kppNZP1,nkppz +use mem_grid, only:runtype,initial,print_msg + +implicit none + + kppNZ = nkppz-1 !number of layers from KPP used in KPP + kppNZP1 = kppNZ+1 !number of grid point levels used in KPP + + !Call routine to copy constants and logicals needed for ocean + !physics into the kpp_const_fields derived type. + if(print_msg) print*,'Calling MCKPP_INITIALIZE_CONSTANTS' + CALL MCKPP_INITIALIZE_CONSTANTS (kpp_const_fields) + + !Call routine to set up lat/lon kpp grid and ocean depth + if(print_msg) print*,'Calling MCKPP_INITIALIZE_BATHYMETRY' + CALL MCKPP_INITIALIZE_BATHYMETRY () + + !Initialize the vertical grid + if(print_msg) print*,'Calling MCKPP_INITIALIZE_GEOGRAPHY' + CALL MCKPP_INITIALIZE_GEOGRAPHY () + + !Initialize water type for optical properties of seawater + if(print_msg) print*,'Calling MCKPP_INITIALIZE_OPTICS' + CALL MCKPP_INITIALIZE_OPTICS () + + !Initialize ocean profiles (most of this not done for HISTORY runs) + !Here setup routine to set: (must be interpolated to KPP levels) + !1. "ocnt_clim" (climo temperature profiles) + !2. "sal_clim" (climo salinity profiles) + !3. "bottomt" (bottom level ocean temperature) + !4. U and V ocean currents + if(print_msg) print*,'Calling MCKPP_INITIALIZE_OCEAN_PROFILES' + CALL MCKPP_INITIALIZE_OCEAN_PROFILES () + + !Generate lookup tables for wmt,wst used to get turbulent velocity + !scales at normalized depth (sigma)(d/hbl) + if(print_msg) print*,'Calling MCKPP_PHYSICS_LOOKUP' + CALL MCKPP_PHYSICS_LOOKUP () + + !Initialize ocean model (most of this not done for HISTORY runs) + !and get initial HMIX and fluxes with zero initial Atmos forcing. + if(print_msg) print*,'Calling MCKPP_INITIALIZE_OCEAN_MODEL' + CALL MCKPP_INITIALIZE_OCEAN_MODEL () + +return +END SUBROUTINE MCKPP_INITIALIZE_FIELDS + +!############################################################################## +Subroutine mckpp_initialize_constants (kpp_const_fields) + +use mem_kpp, only:kpp_const_type +use mem_grid, only:print_msg,dtlt +use kpp_parameters + +implicit none + +TYPE(kpp_const_type),intent(inout) :: kpp_const_fields + + !Initialize constants + kpp_const_fields%dto=FRQKPP + + !Salinity relaxation (1/sec) + if(relax_sal < 1.0e-12) then + kpp_const_fields%relax_sal = 1.0e-12 + else + kpp_const_fields%relax_sal = 1. / (relax_sal*86400.) + endif + + !Ocean temperature profiles relaxation (1/sec) + if(relax_ocnT < 1.0e-12) then + kpp_const_fields%relax_ocnT = 1.0e-12 + else + kpp_const_fields%relax_ocnT = 1. / (relax_ocnT*86400.) + endif + + !SST relaxation (1/sec) + if(relax_sst < 1.0e-12) then + kpp_const_fields%relax_sst = 1.0e-12 + else + kpp_const_fields%relax_sst = 1. / (relax_sst*86400.) + endif + + !Relaxation timescale for damping currents (1/sec) + kpp_const_fields%dt_uvdamp = 1. / (360. * 86400.) + !Maximum ocean depth (meters) + kpp_const_fields%DMAX = DMAXKPP + !Exponential for stretched grid + kpp_const_fields%dscale = DSCALEKPP + + !convergence tolerance for hmix(new)-hmix(old) iteration in ocnstep + !frac of layer thickness hm(kmix) + kpp_const_fields%hmixtolfrac=0.1 + !salinity of ice + kpp_const_fields%sice=4.0 + !deepest model layer to check for isothermal (90% of levels) + kpp_const_fields%iso_bot=nint(nkppz - nkppz*0.1) + !threshold for resetting isothermal layer + kpp_const_fields%iso_thresh=0.002 + + !Flag for running boundary layer mixing scheme + kpp_const_fields%LKPP=.TRUE. + !Flag for Ri mixing below the diagnosed mixing depth + kpp_const_fields%LRI=.TRUE. + !Flag for double diffusion calculations (this is slow) + kpp_const_fields%LDD=.FALSE. + !Flag for using 2D ocean optical data + kpp_const_fields%L_JERLOV=.TRUE. + !Vertical grid flags + kpp_const_fields%L_STRETCHGRID=.TRUE. + !Flag to prevent unrealistic ocean freezing + kpp_const_fields%L_NO_FREEZE=.TRUE. + !Flag for Prevent isothermal layers + kpp_const_fields%L_NO_ISOTHERM=.TRUE. + !Flags to initialize Bottom-temp + kpp_const_fields%L_BOTTOM_TEMP=.TRUE. + !Damp KPP currents at all levels to zero using non-linear relaxation. + !Recommended for climate-length simulations + kpp_const_fields%L_DAMP_CURR=.TRUE. + + !Make sure an ocean depth is given + IF (kpp_const_fields%DMAX .LE. 0.0) THEN + if(print_msg)print*,'KPP:You must specify a depth for the domain' + STOP + ENDIF + + !Make sure stretched grid is given a scale + IF ((kpp_const_fields%L_STRETCHGRID) .AND. & + (kpp_const_fields%dscale .EQ. 0.0)) THEN + if(print_msg)print*,'KPP:You cannot have dscale=0 for stretched grids' + STOP + ENDIF + + !Do not do SST and OCNT corrections together + IF (kpp_const_fields%relax_sst > 1.e-10 .and. & + kpp_const_fields%relax_ocnT > 1.e-10)THEN + if(print_msg)print*,'KPP:Set RELAX_SST>0 or RELAX_OCNT>0; Not both' + STOP + ENDIF + + !Isothermal detection routine requires 3D ocean temperature and salinity + IF (kpp_const_fields%L_NO_ISOTHERM .AND. & + (kpp_const_fields%relax_sal <= 1.e-10 .OR. & + kpp_const_fields%relax_ocnT <= 1.e-10))THEN + if(print_msg)print*,'KPP:L_NO_ISOTHERM requires RELAX_SAL and RELAX_OCNT' + STOP + ENDIF + +return +END SUBROUTINE mckpp_initialize_constants + +!############################################################################## +Subroutine mckpp_initialize_bathymetry () + +use mem_kpp, only:kpp_3d_fields +use mem_grid, only:grid_g,ngrid +use node_mod, only:ia,iz,ja,jz + +implicit none + +integer :: i,j + + ! Initialize ocean depth / bathymetry. + ! Ocean depth values should be NEGATIVE! + do j=ja,jz + do i=ia,iz + kpp_3d_fields(ngrid)%ocdepth(i,j)=-1000. !from bathymetry !Saleeby(2018) + enddo + enddo + +return +END SUBROUTINE mckpp_initialize_bathymetry + +!############################################################################## +Subroutine mckpp_initialize_geography () + +use mem_kpp, only:kpp_const_fields,kpp_3d_fields +use mem_grid, only:grid_g,ngrid,print_msg +use node_mod, only:ia,iz,ja,jz +use kpp_parameters, only:kppNZ,kppNZP1 + +implicit none + + ! Local Variables + REAL sumh,hsum,dfac,sk,twopi + INTEGER i,j + + twopi = 8.*atan(1.) + + IF (kpp_const_fields%L_STRETCHGRID) THEN + sumh = 0.0 + dfac = 1.0 - exp(-kpp_const_fields%dscale) + DO i = 1,kppNZ + sk = - (float(i)-0.5)/float(kppNZ) + kpp_const_fields%hm(i) = kpp_const_fields%DMAX*dfac/& + float(kppNZ)/kpp_const_fields%dscale / ( 1.0 + sk*dfac ) + sumh = sumh + kpp_const_fields%hm(i) + ENDDO + ENDIF + + ! layer thickness h, layer grids zgrid, interface depths d + hsum = 0.0 + kpp_const_fields%dm(0) = 0.0 + DO i=1,kppNZ + if(kpp_const_fields%L_STRETCHGRID) then + kpp_const_fields%hm(i) = kpp_const_fields%hm(i) & + * kpp_const_fields%DMAX / sumh + else + kpp_const_fields%hm(i) = kpp_const_fields%DMAX / real(kppNZ) + endif + kpp_const_fields%zm(i) = 0.0 - (hsum + 0.5 * kpp_const_fields%hm(i) ) + hsum = hsum + kpp_const_fields%hm(i) + kpp_const_fields%dm(i) = hsum + ENDDO + + kpp_const_fields%dm(kppNZP1) = -9999. + kpp_const_fields%hm(kppNZP1) = 1.e-10 + kpp_const_fields%zm(kppNZP1) = -kpp_const_fields%DMAX + + ! Calculate Coriolis parameter + ! Enforce minimum value of Coriolis parameter equal to 2.5 degrees latitude + do j=ja,jz + do i=ia,iz + IF (ABS(grid_g(ngrid)%glat(i,j)) .lt. 2.5) THEN + kpp_3d_fields(ngrid)%f(i,j) = 2. * (twopi/86164.) * & + sin(2.5*twopi/360.) & + * SIGN(1.,grid_g(ngrid)%glat(i,j)) + ELSE + kpp_3d_fields(ngrid)%f(i,j) = 2. * (twopi/86164.) * & + sin(grid_g(ngrid)%glat(i,j)*twopi/360.) + ENDIF + ENDDO + ENDDO + + !Print some header info to the RAMS standard output + if(print_msg) then + do i=1,kppNZP1 + if(i==1) then + print*,'' + print*,'KPP Ocean Mixed Layer Model Layer Info: 0th level = sea-surface' + print*,' KPP-level LayerInterface GridCenter LayerThickness' + endif + print*,i,' ',kpp_const_fields%dm(i),' ',kpp_const_fields%zm(i) & + ,' ',kpp_const_fields%hm(i) + enddo + endif + +return +END SUBROUTINE mckpp_initialize_geography + +!############################################################################## +Subroutine mckpp_initialize_optics () + +use mem_kpp, only:kpp_3d_fields,kpp_const_fields +use node_mod, only:ia,iz,ja,jz +use mem_grid, only:ngrid,print_msg +use kpp_parameters, only:kppNZ,kppNZP1 + +implicit none + + integer nwtype,i,j + parameter(nwtype=5) ! max number of different water types + + ! Input + real hbf ! scale factor to apply to depth array + + real rfac(nwtype),a1(nwtype),a2(nwtype) + real rmin,r1,r2 + integer l + + ! jerlov water type : I IA IB II III + ! jwtype 1 2 3 4 5 + ! + data rfac / 0.58 , 0.62 , 0.67 , 0.77 , 0.78 / + data a1 / 0.35 , 0.6 , 1.0 , 1.5 , 1.4 / + data a2 / 23.0 , 20.0 , 17.0 , 14.0 , 7.9 / + data rmin / -80. / + data hbf / 1.0 / + + !Saleeby(2018): Could add input of Jerlov ocean optical regime here. + !Might have to assign data over ia,iz and ja,jz parallel loops. + !If data not available use default values of 3. + !Jerlov: 1=I, 2=IA, 3=IB, 4=II, 5=III + IF (kpp_const_fields%L_JERLOV) THEN + do j=ja,jz + do i=ia,iz + kpp_3d_fields(ngrid)%jerlov(i,j)=1 !read jerlov; Saleeby(2018) + enddo + enddo + ELSE + do j=ja,jz + do i=ia,iz + kpp_3d_fields(ngrid)%jerlov(i,j)=1 + enddo + enddo + ENDIF + + !compute fraction of solar short-wave flux penetrating to specified + !depth (times hbf) due to exponential decay in Jerlov water type + !reference : two band solar absorption model of simpson and + !paulson (1977) + do j=ja,jz + do i=ia,iz + !set shortwave fraction on ZM depths (zm values are negative) + do l=1,kppNZP1 + r1=MAX(kpp_const_fields%zm(l)*hbf/a1(nint(kpp_3d_fields(ngrid)%jerlov(i,j))),rmin) + r2=MAX(kpp_const_fields%zm(l)*hbf/a2(nint(kpp_3d_fields(ngrid)%jerlov(i,j))),rmin) + kpp_3d_fields(ngrid)%swfrac(l,i,j)=rfac(nint(kpp_3d_fields(ngrid)%jerlov(i,j))) & + * exp(r1) + (1.-rfac(nint(kpp_3d_fields(ngrid)%jerlov(i,j)))) * exp(r2) + enddo + !set shortwave fraction on DM depths (dm values are positive) + do l=0,kppNZ + r1=MAX(-kpp_const_fields%dm(l)/a1(nint(kpp_3d_fields(ngrid)%jerlov(i,j))),rmin) + r2=MAX(-kpp_const_fields%dm(l)/a2(nint(kpp_3d_fields(ngrid)%jerlov(i,j))),rmin) + kpp_3d_fields(ngrid)%swdk_opt(l+1,i,j)=rfac(nint(kpp_3d_fields(ngrid)%jerlov(i,j))) & + * exp(r1) + (1.-rfac(nint(kpp_3d_fields(ngrid)%jerlov(i,j)))) * exp(r2) + enddo + enddo + enddo + + !Print some header info to the RAMS standard output + if(print_msg) then + do l=1,kppNZP1 + if(l==1) then + print*,'' + print*,'KPP Ocean Mixed Layer Model Layer Info: 0th level = sea-surface' + print*,'Profile of penetrating Shortwave fraction at a sampled point' + print*,' KPP-level swfrac(zm) swdk_opt(dm)' + endif + print*,l,' ',kpp_3d_fields(ngrid)%swfrac(l,ia,ja) & + ,kpp_3d_fields(ngrid)%swdk_opt(l,ia,ja) + enddo + endif + +return +END SUBROUTINE mckpp_initialize_optics + +!############################################################################## +Subroutine mckpp_initialize_ocean_profiles () + +use mem_kpp, only:kpp_3d_fields,kpp_const_fields +use node_mod, only:ia,iz,ja,jz +use mem_grid, only:ngrid,runtype,initial,print_msg,time +use kpp_parameters, only:kppNZ,kppNZP1,nkppz,ikpp +use mem_leaf +use io_params, only:ssttime1,ssttime2,iupdsst + +implicit none + +integer :: i,j,k +real :: sstinit,timefac_sst +real, dimension(36)::otz,ot,os,ou,ov,otratio +real, dimension(kppNZP1)::oceant,oceans,oceanu,oceanv + + !Only call this for RUNTYPE=INITIAL and INITIAL/=3 simulation starting + !at time=0; not for RAMS history restart (ie. RUNTYPE=HISTORY) or + !RAMS history initialization (ie. RUNTYPE=INITIAL, INITIAL=3), both of + !which interpolate or use previous data at model start. + + !History restart will read in and set + ! U, U_init, X, Sref, Tref which are initialized below + + !ocean depth (meters) array for idealized ocean temp profile + !Emily Riley Changed 4/14/19 from Steve's profile to ERD's GLORY + !monthly reanalysis profile for PISTON Luzon simulation. Area averaged + !over ocean area similar to Riley-Delaripa et al.(2019) domain. + !The u/v ocean currents are in m/s. I downloaded the 2016 July and Aug monthly + !ocean reanalysis and took the average of July and August. For example, if the + !July top level temperature was 30C and the August top level temperature was + !31C, the top level temperature value I would use is 30.5C. I averaged in + !x and y for the same area as the model domain, where I made sure the model + !points were included (i.e., the reanalysis points had to be equal to or + !inside the model domain; not outside the model domain). + !Ocean reanalysis x/y bounds: 116.333°E - 125.667°E & 10.5°N - 19.5°N + !Domain x/y bounds: 116.354°E - 125.646°E & 10.512°N - 19.488°N + otz(1)=0.49402499 + otz(2)=1.5413750 + otz(3)=2.6456690 + otz(4)=3.8194950 + otz(5)=5.0782242 + otz(6)=6.4406142 + otz(7)=7.9295602 + otz(8)=9.5729971 + otz(9)=11.405000 + otz(10)=13.467140 + otz(11)=15.810070 + otz(12)=18.495560 + otz(13)=21.598820 + otz(14)=25.211411 + otz(15)=29.444731 + otz(16)=34.434151 + otz(17)=40.344051 + otz(18)=47.373692 + otz(19)=55.764290 + otz(20)=65.807266 + otz(21)=77.853851 + otz(22)=92.326073 + otz(23)=109.72930 + otz(24)=130.66600 + otz(25)=155.85069 + otz(26)=186.12560 + otz(27)=222.47520 + otz(28)=266.04031 + otz(29)=318.12741 + otz(30)=380.21301 + otz(31)=453.93771 + otz(32)=541.08893 + otz(33)=643.56677 + otz(34)=763.33313 + otz(35)=902.33929 + otz(36)=1062.4399 + ot(1)=30.066090 + ot(2)=30.024014 + ot(3)=29.997210 + ot(4)=29.985439 + ot(5)=29.979153 + ot(6)=29.975258 + ot(7)=29.970398 + ot(8)=29.966806 + ot(9)=29.962917 + ot(10)=29.958921 + ot(11)=29.953201 + ot(12)=29.944405 + ot(13)=29.930378 + ot(14)=29.902710 + ot(15)=29.838472 + ot(16)=29.683643 + ot(17)=29.347584 + ot(18)=28.751217 + ot(19)=27.928467 + ot(20)=26.898888 + ot(21)=25.651855 + ot(22)=24.047022 + ot(23)=22.163759 + ot(24)=20.229223 + ot(25)=18.464861 + ot(26)=16.844282 + ot(27)=15.242334 + ot(28)=13.742815 + ot(29)=12.298230 + ot(30)=10.732548 + ot(31)=9.2441196 + ot(32)=7.8945026 + ot(33)=6.8418884 + ot(34)=5.8521953 + ot(35)=4.8802743 + ot(36)=4.0321999 + os(1)=34.152065 + os(2)=34.154835 + os(3)=34.157471 + os(4)=34.159668 + os(5)=34.161785 + os(6)=34.164009 + os(7)=34.167671 + os(8)=34.171135 + os(9)=34.175179 + os(10)=34.179420 + os(11)=34.184959 + os(12)=34.192741 + os(13)=34.203957 + os(14)=34.221706 + os(15)=34.251175 + os(16)=34.296738 + os(17)=34.360058 + os(18)=34.431709 + os(19)=34.499954 + os(20)=34.565399 + os(21)=34.634483 + os(22)=34.702820 + os(23)=34.748833 + os(24)=34.754417 + os(25)=34.736214 + os(26)=34.696487 + os(27)=34.625751 + os(28)=34.543259 + os(29)=34.471127 + os(30)=34.412819 + os(31)=34.381081 + os(32)=34.382336 + os(33)=34.414345 + os(34)=34.454685 + os(35)=34.494591 + os(36)=34.533295 + ou(1)=0.019100454 + ou(2)=0.016321890 + ou(3)=0.014060168 + ou(4)=0.011857715 + ou(5)=0.0096536130 + ou(6)=0.0074455901 + ou(7)=0.0050409529 + ou(8)=0.0027234163 + ou(9)=0.00023679016 + ou(10)=-0.0023469469 + ou(11)=-0.0052551287 + ou(12)=-0.0085307565 + ou(13)=-0.012290464 + ou(14)=-0.016672498 + ou(15)=-0.021679830 + ou(16)=-0.027013715 + ou(17)=-0.030701458 + ou(18)=-0.031918801 + ou(19)=-0.033096995 + ou(20)=-0.034624822 + ou(21)=-0.035509244 + ou(22)=-0.034193810 + ou(23)=-0.030427990 + ou(24)=-0.026155602 + ou(25)=-0.024032710 + ou(26)=-0.021403963 + ou(27)=-0.018873321 + ou(28)=-0.016758438 + ou(29)=-0.013506316 + ou(30)=-0.0093148304 + ou(31)=-0.0050458922 + ou(32)=-0.0015908780 + ou(33)=-0.00048178932 + ou(34)=0.00017648222 + ou(35)=0.00033577811 + ou(36)=0.00055340666 + ov(1)=0.033420175 + ov(2)=0.029788986 + ov(3)=0.026523601 + ov(4)=0.023757031 + ov(5)=0.021405082 + ov(6)=0.019356415 + ov(7)=0.017362187 + ov(8)=0.015635069 + ov(9)=0.014054944 + ov(10)=0.012625669 + ov(11)=0.011338353 + ov(12)=0.010397403 + ov(13)=0.0099184299 + ov(14)=0.010435903 + ov(15)=0.012561996 + ov(16)=0.017077940 + ov(17)=0.022756575 + ov(18)=0.026075317 + ov(19)=0.025187567 + ov(20)=0.021348305 + ov(21)=0.015851133 + ov(22)=0.0082361754 + ov(23)=0.0013649256 + ov(24)=-0.0036659446 + ov(25)=-0.0073529691 + ov(26)=-0.0092373220 + ov(27)=-0.0094265882 + ov(28)=-0.0094937831 + ov(29)=-0.011583607 + ov(30)=-0.014184179 + ov(31)=-0.016872544 + ov(32)=-0.014716862 + ov(33)=-0.010820009 + ov(34)=-0.0066377516 + ov(35)=-0.0038285339 + ov(36)=-0.0023947731 + + !Compute ratio of ocean depth T to SST (top level T) + !The idea is to use the above default ocean T profile (ot) for any given + !SST. Keep the shape of the profile but adjust according to SST with + !the caveat that we will not initialize with T < -1.0C. + otratio=ot/ot(1) + ot=otratio + !do k=1,36 + ! write(*,'(10X,a8,i2,a2,f12.8)') 'otratio(',k,')=',otratio(k) + !enddo + + !Interpolate ocean profiles from data to KPP depth levels + CALL htint (36,ot,otz,kppNZP1,oceant,(-1.*kpp_const_fields%zm)) + CALL htint (36,os,otz,kppNZP1,oceans,(-1.*kpp_const_fields%zm)) + CALL htint (36,ou,otz,kppNZP1,oceanu,(-1.*kpp_const_fields%zm)) + CALL htint (36,ov,otz,kppNZP1,oceanv,(-1.*kpp_const_fields%zm)) + + !Only run this for true INITIAL "cold start" of simulations. + !Do not even do this for HISTORY INITIALIZATION since interpolation is done. + !Do not do this for HISTORY restart. + IF(trim(runtype) == 'INITIAL' .and. INITIAL /= 3) THEN + + !Time interpolation factor for updating SST + if (iupdsst == 0) then + timefac_sst = 0. + else + timefac_sst = (time-ssttime1(ngrid)) / (ssttime2(ngrid)-ssttime1(ngrid)) + endif + + do j=ja,jz + do i=ia,iz + !Determine initial SST to apply to ocean column + sstinit = (leaf_g(ngrid)%seatp(i,j) & + + (leaf_g(ngrid)%seatf(i,j) - leaf_g(ngrid)%seatp(i,j)) & + * timefac_sst - 273.15) + !Loop over ocean depth levels + do k=1,kppNZP1 + !###### Initialized zonal ocean current velocity + !input from RAMS (Saleeby) + kpp_3d_fields(ngrid)%U(k,i,j) = oceanu(k) + kpp_3d_fields(ngrid)%U_init(k,i,j)=kpp_3d_fields(ngrid)%U(k,i,j) + + !###### Initialized meridional ocean current velocity + !input from RAMS (Saleeby) + kpp_3d_fields(ngrid)%V(k,i,j) = oceanv(k) + kpp_3d_fields(ngrid)%V_init(k,i,j)=kpp_3d_fields(ngrid)%V(k,i,j) + + !###### Initialized ocean temperature profile + !KPP requires temperatures in CELSIUS. If initial conditions + !are in Kelvin, subtract 273.15 + !input from RAMS (Saleeby) + kpp_3d_fields(ngrid)%ocnT_clim(k,i,j) = max(-1.0,oceant(k)*sstinit) + kpp_3d_fields(ngrid)%X_t(k,i,j) = max(-1.0,oceant(k)*sstinit) + + !###### Initialize salinity profile + !input from RAMS (Saleeby) + kpp_3d_fields(ngrid)%sal_clim(k,i,j) = oceans(k) + kpp_3d_fields(ngrid)%X_s(k,i,j) = oceans(k) + enddo + + !Calculate reference salinity + kpp_3d_fields(ngrid)%Sref(i,j)= & + (kpp_3d_fields(ngrid)%X_s(1,i,j)+kpp_3d_fields(ngrid)%X_s(kppNZP1,i,j))/2. + + !Remove reference salinity from X and sal_clim + do k=1,kppNZP1 + kpp_3d_fields(ngrid)%X_s(k,i,j)= & + kpp_3d_fields(ngrid)%X_s(k,i,j)-kpp_3d_fields(ngrid)%Sref(i,j) + kpp_3d_fields(ngrid)%sal_clim(k,i,j)= & + kpp_3d_fields(ngrid)%sal_clim(k,i,j)-kpp_3d_fields(ngrid)%Sref(i,j) + enddo + + !Initial bottom temperature + kpp_3d_fields(ngrid)%bottomt(i,j) = kpp_3d_fields(ngrid)%X_t(kppNZP1,i,j) + enddo + enddo + + ENDIF !end U,X,init initialization if NOT a HISTORY run + + !Print some header info to the RAMS standard output + if(print_msg) then + do k=1,kppNZP1 + if(k==1) then + print*,'' + print*,'KPP Ocean Mixed Layer Model Layer Info: 0th level = sea-surface' + print*,'Profile of ocean temperature (C) and salinity at a sampled point' + print*,' KPP-level ocean-Depth ocean-T ocean-S' + endif + print*,k,' ',kpp_const_fields%zm(k),kpp_3d_fields(ngrid)%X_t(k,ia,ja) & + ,kpp_3d_fields(ngrid)%X_s(k,ia,ja)+kpp_3d_fields(ngrid)%Sref(ia,ja) + enddo + do k=1,kppNZP1 + if(k==1) then + print*,'' + print*,'KPP Ocean Mixed Layer Model Layer Info: 0th level = sea-surface' + print*,'Profile of ocean currents at a sampled point' + print*,' KPP-level ocean-Depth U-current V-current' + endif + print*,k,' ',kpp_const_fields%zm(k),kpp_3d_fields(ngrid)%U(k,ia,ja) & + ,kpp_3d_fields(ngrid)%V(k,ia,ja) + enddo + endif + +return +END SUBROUTINE mckpp_initialize_ocean_profiles + +!############################################################################## +Subroutine mckpp_physics_lookup () + +use mem_kpp, only:kpp_const_fields + +implicit none + + !von karman constant + real, parameter :: vonk=0.4 + + real zmin,zmax,umin,umax,usta,zeta,zehat,epsln,& + am,cm,c1,c2,zetam,as,cs,c3,zetas,cstar,deltau,deltaz + integer i,j,ni,nj + parameter ( ni = 890,& ! number of values for zehat + nj = 48) ! number of values for ustar + data epsln / 1.e-20 / + data c1 / 5.0 / + data zmin,zmax / -4.e-7, 0.0 / ! m3/s3 + data umin,umax / 0. , .04 / ! m/s + data am,cm,c2,zetam / 1.257 , 8.380, 16.0, - 0.2 / !7-24-92 + data as,cs,c3,zetas / -28.86 , 98.96 , 16.0, - 1.0 / + data cstar / 5. / + + deltaz = (zmax-zmin)/(ni+1) + deltau = (umax-umin)/(nj+1) + + DO i=0,ni+1 + zehat = deltaz*(i) + zmin + DO j=0,nj+1 + usta = deltau*(j) + umin + zeta = zehat/(usta**3+epsln) + + if(zehat.ge.0.) then + kpp_const_fields%wmt(i,j) = vonk*usta/(1.+c1*zeta) + kpp_const_fields%wst(i,j) = kpp_const_fields%wmt(i,j) + else + if(zeta.gt.zetam) then + kpp_const_fields%wmt(i,j) = vonk * usta * (1.-c2*zeta)**(1./4.) + else + kpp_const_fields%wmt(i,j) = vonk * (am*usta**3 - cm*zehat)**(1./3.) + endif + if(zeta.gt.zetas) then + kpp_const_fields%wst(i,j) = vonk * usta * (1.-c3*zeta)**(1./2.) + else + kpp_const_fields%wst(i,j) = vonk * (as*usta**3 - cs*zehat)**(1./3.) + endif + endif + ENDDO + ENDDO + +return +END SUBROUTINE mckpp_physics_lookup + +!############################################################################## +Subroutine mckpp_initialize_ocean_model () + +use mem_kpp, only:kpp_3d_fields,kpp_const_fields,kpp_1d_fields +use mem_leaf, only:leaf_g +use node_mod, only:ia,iz,ja,jz +use mem_grid, only:ngrid,runtype,initial,print_msg +use kpp_parameters, only:kppNZ,kppNZP1,kppNVEL,kppNSCLR + +implicit none + + ! Initialize ocean model: + ! Set coefficients for tridiagonal matrix solver. + ! Compute hmix and diffusivity profiles for initial profile. + ! Prepare for first time step. + + ! Local + real dzb(kppNZ) ! diff. between grid-levels below z(j) + integer k,kmix0,n,l,i,j + real hmix0,deltaz + + !gravity constant + real, parameter :: grav=9.816 + + ! Compute factors for coefficients of tridiagonal matrix elements. + ! tri(0 ,1) : dt/h(1) factor for rhs flux + ! tri(k=1:kppNZ,0) : dt/h(k)/ {dzb(k-1)=z(k-1)-z(k)=dzabove} + ! tri(k=1:kppNZ,1) : dt/h(k)/ {dzb(k )=z(k)-z(k+1)=dzbelow} + + !Set layer differences in meters + DO k=1,kppNZ + dzb(k) = kpp_const_fields%zm(k) - kpp_const_fields%zm(k+1) + ENDDO + + !Set matrix values + kpp_const_fields%tri(0,1)=kpp_const_fields%dto/kpp_const_fields%hm(1) + kpp_const_fields%tri(1,1)=kpp_const_fields%dto/kpp_const_fields%hm(1)/dzb(1) + DO k=2,kppNZ + kpp_const_fields%tri(k,1)=kpp_const_fields%dto/kpp_const_fields%hm(k)/dzb(k) + kpp_const_fields%tri(k,0)=kpp_const_fields%dto/kpp_const_fields%hm(k)/dzb(k-1) + ENDDO + + !Initialize if NOT doing history restart or history initialization + ! with RAMS (Saleeby 2018) + IF(trim(runtype) == 'INITIAL' .and. INITIAL /= 3) THEN + + !Determine hmix for initial profile: + do j=ja,jz + do i=ia,iz + !Proceed if RAMS LEAF3 has determine this to be an ocean point. + !We allow coastal grid cells with partial ocean. + IF (nint(leaf_g(ngrid)%leaf_class(i,j,1)) == 0. .and. & + leaf_g(ngrid)%patch_area(i,j,1) > 0.50) THEN !Saleeby(2018) + + CALL MCKPP_FIELDS_3Dto1D (kpp_3d_fields(ngrid),kpp_1d_fields,i,j) + + CALL MCKPP_PHYSICS_VERTICALMIXING (kpp_1d_fields,kpp_const_fields & + ,hmix0,kmix0,i,j) + + kpp_1d_fields%hmix = hmix0 + kpp_1d_fields%kmix = kmix0 + kpp_1d_fields%Tref = kpp_1d_fields%X(1,1) + + !Evaluate initial fluxes (to write to output data file) + DO k=1,kppNZ + deltaz = 0.5*(kpp_const_fields%hm(k)+kpp_const_fields%hm(k+1)) + DO n=1,kppNSCLR + kpp_1d_fields%wX(k,n)=-kpp_1d_fields%difs(k)*& + ((kpp_1d_fields%X(k,n)-kpp_1d_fields%X(k+1,n))/deltaz-& + kpp_1d_fields%ghat(k)*kpp_1d_fields%wX(0,n)) + ENDDO + IF(kpp_const_fields%LDD) then + kpp_1d_fields%wX(k,1)=-kpp_1d_fields%dift(k)*& + ((kpp_1d_fields%X(k,1)-kpp_1d_fields%X(k+1,1)) & + /deltaz-kpp_1d_fields%ghat(k)*kpp_1d_fields%wX(0,1)) + ENDIF + kpp_1d_fields%wB(k)= grav & + * (kpp_1d_fields%talpha(k)*kpp_1d_fields%wX(k,1) - & + kpp_1d_fields%sbeta(k) * kpp_1d_fields%wX(k,2)) + DO n=1,kppNVEL + kpp_1d_fields%wU(k,n)= -kpp_1d_fields%difm(k)*& + (kpp_1d_fields%U(k,n)-kpp_1d_fields%U(k+1,n))/deltaz + ENDDO + ENDDO + + ! Prepare for first time step + + ! indices for extrapolation + kpp_1d_fields%old = 0 + kpp_1d_fields%new = 1 + ! initialize array for extrapolating Us,Xs + DO k=1,kppNZP1 + DO l=1,kppNVEL + kpp_1d_fields%Us(k,l,0)=kpp_1d_fields%U(k,l) + kpp_1d_fields%Us(k,l,1)=kpp_1d_fields%U(k,l) + ENDDO + DO l=1,kppNSCLR + kpp_1d_fields%Xs(k,l,0)=kpp_1d_fields%X(k,l) + kpp_1d_fields%Xs(k,l,1)=kpp_1d_fields%X(k,l) + ENDDO + ENDDO + + CALL MCKPP_FIELDS_1Dto3D (kpp_1d_fields,kpp_3d_fields(ngrid),i,j) + + ENDIF + ENDDO + ENDDO + + ENDIF + +return +END SUBROUTINE mckpp_initialize_ocean_model + diff --git a/src/6.2.16/kpp/kpp_mix.f90 b/src/6.2.16/kpp/kpp_mix.f90 new file mode 100644 index 0000000..cc14297 --- /dev/null +++ b/src/6.2.16/kpp/kpp_mix.f90 @@ -0,0 +1,1537 @@ +!############################################################################## +Subroutine mckpp_physics_ocnstep (kpp_1d_fields,kpp_const_fields,i,j) + +use mem_kpp, only:kpp_1d_type,kpp_const_type +use kpp_parameters, only:kppNZ,kppNZP1,kppNVEL,kppNSCLR,kppitermax,kpprnt & + ,iprnt,jprnt +use node_mod, only:mi0,mj0 +use mem_grid, only:ngrid,time + +implicit none + + !----------------------------------------------------------------------- + ! Main driver for ocean module. + ! Integration is performed only on the permanent grid + ! Written 3 Mar 1991 - WGL + ! Modified 5 Jun 1992 - jan : implicit scheme + ! 16 Nov - jan : latest version + ! 16 Nov 1994 - wgl : new KPP codes no temporary grid + + TYPE(kpp_1d_type) :: kpp_1d_fields + TYPE(kpp_const_type) :: kpp_const_fields + + real hmixe,hmixn,tol + real Uo(kppNZP1,kppNVEL),Xo(kppNZP1,kppNSCLR) + real Ux(kppNZP1,kppNVEL),XX(kppNZP1,kppNSCLR) + ! Additional variables to provide smoothing in the iteration. + + real Ui ! Ui used in damping (LH 8/08/2013) + real dampU(kppNVEL) ! dampU used to flag which Ui chosen in damping + real lambda ! Factor to control smoothing + integer iter,iconv ! number of iterations + integer kmixe,kmixn + + ! More Local Variables (to make implicit none) + real deltaz,a,b + integer k,l,n,i,j + + !gravity constant + real, parameter :: grav=9.816 + + !For energetics computations (not done here; could uncomment + !if you want to compute these diagnostics (Saleeby 2018) + !real rhonot,eflx,esnk,Tmke,Ptke,rmke(kppNZP1) + + ! Number of iterations for computational instability + integer comp_iter_max + real rmsd(4),rmsd_threshold(4) + data comp_iter_max /10/ + ! Critical depth-integrated RMS difference between old and new profiles + ! for repeating integration, for (/U,V,T,S/). Typical (stable) + ! values are O(10^-2) for U and V, O(10^-3) for T and O(10^-4) for S. + ! NPK 17/5/13 + data rmsd_threshold /1,1,1,1/ + + data lambda /0.5/ + + Uo=kpp_1d_fields%U(:,:) + Xo=kpp_1d_fields%X(:,:) + kpp_1d_fields%comp_flag=.TRUE. + kpp_1d_fields%reset_flag=0 + + DO WHILE (kpp_1d_fields%comp_flag .and. kpp_1d_fields%reset_flag & + .le. comp_iter_max) + !Print some things for debugging (Saleeby2018) + if(i+mi0(ngrid)==iprnt.and.j+mj0(ngrid)==jprnt.and.KPPRNT==1) then + print*,'ITERATION-0',kpp_1d_fields%comp_flag,kpp_1d_fields%reset_flag & + ,comp_iter_max + endif + ! Estimate new profiles by extrapolation + DO k=1,kppNZP1 + DO l=1,kppNVEL + IF (nint(kpp_1d_fields%old) .lt. 0 .or. nint(kpp_1d_fields%old) .gt. 1) THEN + WRITE(*,*) 'Dodgy value of old at k=',k,'l=',l,'old=',nint(kpp_1d_fields%old) + kpp_1d_fields%old=nint(kpp_1d_fields%new) + stop + ENDIF + IF (nint(kpp_1d_fields%new) .lt. 0 .or. nint(kpp_1d_fields%new) .gt. 1) THEN + WRITE(*,*) 'Dodgy value of new at k=',k,'l=',l,'new=',nint(kpp_1d_fields%new) + kpp_1d_fields%new=nint(kpp_1d_fields%old) + stop + ENDIF + kpp_1d_fields%U(k,l)=2.*kpp_1d_fields%Us(k,l,nint(kpp_1d_fields%new))- & + kpp_1d_fields%Us(k,l,nint(kpp_1d_fields%old)) + Ux(k,l)=kpp_1d_fields%U(k,l) + ENDDO + DO l=1,kppNSCLR + kpp_1d_fields%X(k,l)=2.*kpp_1d_fields%Xs(k,l,nint(kpp_1d_fields%new))- & + kpp_1d_fields%Xs(k,l,nint(kpp_1d_fields%old)) + Xx(k,l)=kpp_1d_fields%X(k,l) + ENDDO + ENDDO + + ! Iteration loop for semi-implicit integration + ! Reset iteration counter + iter=0 + iconv=0 + + ! This loop controls the number of compulsory iterations + ! The original value was 2, using (the upper value of the loop +2) + ! added by SJW (17 Jan 03) to try an alleviate some non-convergences + DO iter=0,2 + DO k=1,kppNZP1 + DO l=1,kppNVEL + kpp_1d_fields%U(k,l)=lambda*Ux(k,l)+(1-lambda)*kpp_1d_fields%U(k,l) + Ux(k,l)=kpp_1d_fields%U(k,l) + ENDDO + DO l=1,kppNSCLR + kpp_1d_fields%X(k,l)=lambda*Xx(k,l)+(1-lambda)*kpp_1d_fields%X(k,l) + Xx(k,l)=kpp_1d_fields%X(k,l) + ENDDO + ENDDO + CALL MCKPP_PHYSICS_VERTICALMIXING (kpp_1d_fields,kpp_const_fields & + ,hmixe,kmixe,i,j) + CALL MCKPP_PHYSICS_OCNINT (kpp_1d_fields,kpp_const_fields,kmixe,Uo,Xo,i,j) + !Print some things for debugging (Saleeby2018) + if(i+mi0(ngrid)==iprnt.and.j+mj0(ngrid)==jprnt.and.KPPRNT==1) then + print*,'ITERATION-1',iter,hmixe,kmixe + endif + ENDDO + ! The original code can be restored by reseting iter=1 and removing the + ! above loop + ! iter=1 + + IF (kpp_const_fields%LKPP) THEN +45 continue + DO k=1,kppNZP1 + DO l=1,kppNVEL + kpp_1d_fields%U(k,l)=lambda*Ux(k,l)+(1-lambda)*kpp_1d_fields%U(k,l) + Ux(k,l)=kpp_1d_fields%U(k,l) + ENDDO + DO l=1,kppNSCLR + kpp_1d_fields%X(k,l)=lambda*Xx(k,l)+(1-lambda)*kpp_1d_fields%X(k,l) + Xx(k,l)=kpp_1d_fields%X(k,l) + ENDDO + ENDDO + CALL MCKPP_PHYSICS_VERTICALMIXING (kpp_1d_fields,kpp_const_fields & + ,hmixn,kmixn,i,j) + CALL MCKPP_PHYSICS_OCNINT (kpp_1d_fields,kpp_const_fields,kmixn,Uo,Xo,i,j) + iter = iter + 1 + + ! prepare tolerances to check for convergence + tol = kpp_const_fields%hmixtolfrac*kpp_const_fields%hm(kmixn) + if(kmixn.eq.kppNZP1) tol = kpp_const_fields%hmixtolfrac & + *kpp_const_fields%hm(kppNZ) + + !Print some things for debugging (Saleeby2018) + if(i+mi0(ngrid)==iprnt.and.j+mj0(ngrid)==jprnt.and.KPPRNT==1) then + print*,'ITERATION-2',iter,iconv,hmixn,kmixn + print*,'ITERATION-3',abs(hmixn-hmixe),tol,time,hmixn + endif + + ! check iteration for convergence + if(abs(hmixn-hmixe).gt.tol) then + ! Uncommeting the following the lines iconv=0 to IF (iconv ...) + ! will make the model do two consecutive tests for convergence of the + ! hmix (added by SJW 17 Jan 03). This did not work well in testing for + ! long timestep, high resolution (the model generally failed to satisfy + ! convergence test on two consecutive iterations. + iconv=0 + ELSE + iconv=iconv+1 + ENDIF + IF (iconv .lt. 3) THEN + if (iter.lt.kppitermax) then + hmixe = hmixn + kmixe = kmixn + goto 45 + else + ! use shallower hmix + if(hmixn.gt.hmixe) then + hmixe = hmixn + kmixe = kmixn + goto 45 + endif + endif + endif + + if( iter.gt.(kppitermax+1) ) then + write(*,1009) i+mi0(ngrid),j+mj0(ngrid),hmixe,hmixn,hmixn-hmixe & + ,kmixn,iter +1009 format('i=',i5,' j=',i5,' hmixest=',f7.2,' hmixnew=',f7.2 & + ,' diff=',f6.1,' kmixn=',i3,' iteration=',i3) + endif + ENDIF + + ! Trap for profiles that are very different from original profile + ! or clearly erroneous, to detect rare instances of instability + ! in the semi-implicit integration. Reset to original profile, + ! add some noise via changing Coriolis term slightly, and try + ! integration again. + ! NPK 16/5/2013 + kpp_1d_fields%comp_flag=.FALSE. + DO k=1,kppNZ + IF (ABS(kpp_1d_fields%U(k,1)).ge. 10 & + .or. ABS(kpp_1d_fields%U(k,2)).ge.10 .or. & + ABS(kpp_1d_fields%X(k,1)-kpp_1d_fields%X(k+1,1)) .ge. 10) THEN + kpp_1d_fields%comp_flag=.TRUE. + kpp_1d_fields%f=kpp_1d_fields%f*1.01 + ENDIF + END DO + IF (.NOT. kpp_1d_fields%comp_flag) THEN + rmsd(:)=0. + DO k=1,kppNZP1 + rmsd(1)=rmsd(1)+(kpp_1d_fields%U(k,1)-Uo(k,1))*(kpp_1d_fields%U(k,1) & + -Uo(k,1))*kpp_const_fields%hm(k)/kpp_const_fields%dm(kppNZ) + rmsd(2)=rmsd(2)+(kpp_1d_fields%U(k,2)-Uo(k,2))*(kpp_1d_fields%U(k,2) & + -Uo(k,2))*kpp_const_fields%hm(k)/kpp_const_fields%dm(kppNZ) + rmsd(3)=rmsd(3)+(kpp_1d_fields%X(k,1)-Xo(k,1))*(kpp_1d_fields%X(k,1) & + -Xo(k,1))*kpp_const_fields%hm(k)/kpp_const_fields%dm(kppNZ) + rmsd(4)=rmsd(4)+(kpp_1d_fields%X(k,2)-Xo(k,2))*(kpp_1d_fields%X(k,2) & + -Xo(k,2))*kpp_const_fields%hm(k)/kpp_const_fields%dm(kppNZ) + ENDDO + DO k=1,4 + rmsd(k)=SQRT(rmsd(k)) + IF (rmsd(k).ge.rmsd_threshold(k)) THEN + kpp_1d_fields%comp_flag=.TRUE. + kpp_1d_fields%f=kpp_1d_fields%f*1.01 + ENDIF + ENDDO + ENDIF + kpp_1d_fields%reset_flag=kpp_1d_fields%reset_flag+1 + + IF (kpp_1d_fields%reset_flag .gt. comp_iter_max) THEN + print*,'Failed to find a reasonable solution in the semi-implicit & + integration after ',comp_iter_max,' iterations.' + print*,'At point =',i+mi0(ngrid),j+mj0(ngrid),kpp_1d_fields%X(1,1) + WRITE(*,*) 'U = ',kpp_1d_fields%U(:,1) + WRITE(*,*) 'V = ',kpp_1d_fields%U(:,2) + WRITE(*,*) 'T = ',kpp_1d_fields%X(:,1) + WRITE(*,*) 'S = ',kpp_1d_fields%X(:,2) + stop + ENDIF + ! End of trapping code. + + ENDDO !end DO WHILE + + ! Output Results from permanent grid iterations + ! Compute diagnostic fluxes for writing + do k=1,kppNZ + deltaz = 0.5*(kpp_const_fields%hm(k)+kpp_const_fields%hm(k+1)) + do n=1,kppNSCLR + kpp_1d_fields%wX(k,n)=-kpp_1d_fields%difs(k)*((kpp_1d_fields%X(k,n) & + -kpp_1d_fields%X(k+1,n))/deltaz & + -kpp_1d_fields%ghat(k)*kpp_1d_fields%wX(0,n)) + !Print some info for debugging (Saleeby2018) + if(i+mi0(ngrid)==iprnt.and.j+mj0(ngrid)==jprnt.and.KPPRNT==1.and.n==1 & + .and.k<=5) then + print*,'Steve-WX',kpp_1d_fields%wX(0,n),kpp_1d_fields%wX(k,n) & + ,kpp_1d_fields%difs(k),kpp_1d_fields%ghat(k) + endif + enddo + if(kpp_const_fields%LDD) then + kpp_1d_fields%wX(k,1)= -kpp_1d_fields%dift(k)*((kpp_1d_fields%X(k,1) & + - kpp_1d_fields%X(k+1,1))/deltaz-kpp_1d_fields%ghat(k) & + * kpp_1d_fields%wX(0,1)) + endif + kpp_1d_fields%wB(k)= grav * (kpp_1d_fields%talpha(k) & + *kpp_1d_fields%wX(k,1) - kpp_1d_fields%sbeta(k) * kpp_1d_fields%wX(k,2)) + do n=1,kppNVEL + kpp_1d_fields%wU(k,n)= -kpp_1d_fields%difm(k)*(kpp_1d_fields%U(k,n) & + -kpp_1d_fields%U(k+1,n))/deltaz + enddo + enddo + + ! Compute energetics: Saleeby(2018):could uncomment this if we want these + ! diagnostic for energy +! rhonot = 1026. +! Eflx = 0.5 * ( (Uo(1,1) + kpp_1d_fields%U(1,1)) * & +! kpp_1d_fields%sflux(1) + (Uo(1,2) + kpp_1d_fields%U(1,2)) * & +! kpp_1d_fields%sflux(2) ) +! Esnk = -0.5*rhonot* ( (Uo(kppNZ,1) + kpp_1d_fields%U(kppNZ,1)) & +! * kpp_1d_fields%wU(kppNZ,1) + & +! (Uo(kppNZ,2) + kpp_1d_fields%U(kppNZ,2)) * kpp_1d_fields%wU(kppNZ,2) ) +! Ptke = 0.0 +! ! use "amax1" to prevent "underflow" in single precision +! do k=1,kppNZ-1 +! Ptke = Ptke - 0.5*( amax1(kpp_1d_fields%wU(k,1),1.E-10)* & +! (rhonot * (Uo(k,1) + kpp_1d_fields%U(k,1)) - rhonot * & +! (Uo(k+1,1) + kpp_1d_fields%U(k+1,1)) ) +amax1(kpp_1d_fields%wU(k,2),1.E-10)*& +! (rhonot * (Uo(k,2) + kpp_1d_fields%U(k,2)) -rhonot * (Uo(k+1,2) & +! + kpp_1d_fields%U(k+1,2)) ) ) +! ENDDO +! Tmke = 0.0 +! do k=1,kppNZP1 +! rmke(k) = 0.5 * rhonot * (kpp_1d_fields%U(k,1)**2 & +! + kpp_1d_fields%U(k,2)**2) * kpp_const_fields%hm(k) +! Tmke = Tmke + rmke(k) +! ENDDO + +! check heat and salt budgets +! call budget(Xo,kpp_1d_fields,kpp_const_fields) +! +! Set new profiles +! do k=1,kppNZP1 ! values at kppNZP1 only change for slab ocean +! do n=1,kppNVEL +! kpp_1d_fields%U(k,n) = kpp_1d_fields%U(k,n) +! enddo +! do n=1,kppNSCLR +! kpp_1d_fields%X(k,n) = kpp_1d_fields%X(k,n) +! enddo +! enddo +! Set correct surface values, and CP and rho profiles for new profiles +! Get latest profiles +! Removed to ensure that hmix,diff,cp,rho diagnostics are consistent with +! those used in the final iteration of the timestep +! (CP,RHO are not quite correct for updated values, but are the values +! by the integration) (SJW 16/01/03) +! Need to consider improving convergence test!!! (SJW 16/01/03) +! +! The final call to vmix is removed to ensure that the diffusion and +! boundary layer profiles in the diagnostics are the ones used to calculate +! the fluxes, as it stands at the moment this means that the CP and rho are +! also the values used in the timestepping not the values appropriate to the +! S,T at the new time level. +! call vmix(Un,Xn,hmixe,kmixe) +! write(*,*) time,iter, hmixn,hmixe,kmixn,kmixe + + kpp_1d_fields%hmix = hmixn + kpp_1d_fields%kmix = kmixn + kpp_1d_fields%uref = kpp_1d_fields%U(1,1) + kpp_1d_fields%vref = kpp_1d_fields%U(1,2) + kpp_1d_fields%Tref = kpp_1d_fields%X(1,1) + + ! Damping currents, Added LH (06/08/2013) + IF (kpp_const_fields%L_DAMP_CURR) THEN + dampu(:)=0. + do k=1,kppNZP1 + do l=1,kppNVEL + a=0.99*ABS(kpp_1d_fields%U(k,l)) + b=kpp_1d_fields%U(k,l)**2 * kpp_const_fields%dt_uvdamp & + * kpp_const_fields%dto + Ui=MIN(a,b) + ! LH (29/08/2013) Add Flags to check which Ui (a or b) is chosen, + ! dtuvdamp=360 (specified in namelist). + ! The flags for u and v can be requested as diagnostics dampu_flag, + ! dampv_flag. Note that the value of the flag is equal to + ! the *fraction* of levels at that point where (U**2)/r < alpha*ABS(U), + ! 1.0=all Ui are (U**2)/r. + + ! U**2/r < alpha*U =1, U**2/r > alpha*U =-1. Output is total of all + ! levels. If dampu_flag =kppNZ all levels U**2/r0, stable=1 | if bfsfc<=, stable=0 + stable = 0.5 + SIGN( 0.5, bfsfc+epsln ) + sigma = stable * 1. + (1.-stable) * epsilon + + !Print some info here for debugging (Saleeby2018) + if(i+mi0(ngrid)==iprnt.and.j+mj0(ngrid)==jprnt.and.KPPRNT==1 & + .and.kl<=20) then + print*,'Steve-bldepth0',kbl,bfsfc,sigma,stable + endif + + ! compute velocity scales at sigma, for hbl= caseA = -zgrid(kl) + CALL MCKPP_PHYSICS_VERTICALMIXING_WSCALE (sigma,caseA,ustar,bfsfc & + ,wm,ws,kpp_const_fields,i,j) + + ! compute the turbulent shear contribution to Rib + bvsq =0.5*(kpp_1d_fields%dbloc(kl-1) / (kpp_const_fields%zm(kl-1) & + -kpp_const_fields%zm(kl))+ kpp_1d_fields%dbloc(kl) & + / (kpp_const_fields%zm(kl)-kpp_const_fields%zm(kl+1))) + !Large et al. Eqn.23 + Vtsq = -kpp_const_fields%zm(kl) * ws * sqrt(abs(bvsq)) * Vtc + !compute bulk Richardson number at new level, dunder. + !Large et al. Eqn.21 + Rib(ku) = Ritop(kl) / (dVsq(kl)+Vtsq+epsln) + Rib(ku) = MAX( Rib(ku), Rib(ka) + epsln) + ! linear interpolate to find hbl where Rib = Ricr + hri = -kpp_const_fields%zm(kl-1) + (kpp_const_fields%zm(kl-1) & + -kpp_const_fields%zm(kl)) * & + (Ricr - Rib(ka)) / (Rib(ku)-Rib(ka)) + + !hri can become very large/small (+/- Infinity) depending on layer + !stability/shear differences, so limit this. Especially cannot have + !(-Infinity) due to the "MIN" function below for determining mixed + !layer depth. + if(hri > 1.e10) hri=1.e10 + if(hri < 0.) hri=1.e10 + + !Print some info here for debugging (Saleeby2018) + if(i+mi0(ngrid)==iprnt.and.j+mj0(ngrid)==jprnt.and.KPPRNT==1 & + .and.kl<=20) then + print*,'Steve-bldepth1',ku,Rib(ku),ka,Rib(ka) + endif + + ! compute the Monin Obukov length scale + ! Possibly use M-O depth with stable forcing, otherwise + ! M-O depth is the KPP model bottom + fmonob = stable * 1.0 + dmo(ku) = cmonob * ustar * ustar * ustar & + / vonk / (abs(bfsfc) + epsln) + dmo(ku) = fmonob * dmo(ku) - (1.-fmonob) * kpp_const_fields%zm(kmp1) + if(dmo(ku).le.(-kpp_const_fields%zm(kl))) then + hmonob =(dmo(ku)-dmo(ka))/(kpp_const_fields%zm(kl-1) & + -kpp_const_fields%zm(kl)) + hmonob =(dmo(ku)+hmonob*kpp_const_fields%zm(kl)) / (1.-hmonob) + else + hmonob = -kpp_const_fields%zm(kmp1) + endif + !Print some info here for debugging (Saleeby2018) + if(i+mi0(ngrid)==iprnt.and.j+mj0(ngrid)==jprnt.and.KPPRNT==1 & + .and.kl<=20) then + print*,'Steve-bldepth2',fmonob,dmo(ku),hmonob + endif + + ! compute the Ekman depth + ! Possibly use Ekman depth with stable forcing, otherwise + ! ekman depth is the KPP model bottom + fekman = stable * 1.0 + hekman = fekman * hek - (1.-fekman) * kpp_const_fields%zm(kmp1) + + ! compute boundary layer depth + hmin = MIN(hri, hmonob, hekman, -kpp_1d_fields%ocdepth) + + !Print some info here for debugging (Saleeby2018) + if(i+mi0(ngrid)==iprnt.and.j+mj0(ngrid)==jprnt.and.KPPRNT==1 & + .and.kl<=20) then + print*,'Steve-bldepth3',Rib(ku),hri,hmonob,hekman + endif + + ! recheck boundary layer depth + if(hmin .lt. -kpp_const_fields%zm(kl) ) then + + ! Code below added by SJW 09/07/04 to solve problems where hek + ! less than zgrid(kl-1) giving negative diffusions + ! if this occurs too often then we need to rethink this fix + + ! Modified by NPK 25/09/08 to include Monin-Obukov depth as well. + ! Richardson depth is sometimes calculated to be huge (> 1E10) when + ! Ritop is negative or very small and so is not always helpful in + ! this scenario. + + ! This "if" statement used to not be run on initialization step, + ! but it seems to give better initial values of fluxes when allowed + ! to run at initialization as well. Keep watch on this (Saleeby2018) + if (hmin .lt. -kpp_const_fields%zm(kl-1)) then + hmin2=MIN(hri,hmonob,-kpp_1d_fields%ocdepth) + if (hmin2 .lt. -kpp_const_fields%zm(kl)) THEN + hmin=hmin2 + endif + endif + + hbl = hmin + kbl = kl + endif + + ENDIF !kbl + + !Print some info here for debugging (Saleeby2018) + if(i+mi0(ngrid)==iprnt.and.j+mj0(ngrid)==jprnt.and.KPPRNT==1 & + .and.kl<=20) then + print*,'Steve-bldepth4',kl,hbl,-kpp_const_fields%zm(kl-1) & + ,-kpp_const_fields%zm(kl) + endif + + ksave = ka + ka = ku + ku = ksave + ENDDO + + !Saleeby(2018): Do not let model continue if mixed layer depth goes + !to the ocean model lowest level. + if(hbl .eq. -kpp_const_fields%zm(km))then + print*,'HMIX mixed to the bottom: ',hbl,i+mi0(ngrid),j+mj0(ngrid) + stop + endif + + !Compute shortwave fraction (bfsfc) at boundary layer depth (hbl) + CALL MCKPP_PHYSICS_SWFRAC (-1.0,hbl,nint(kpp_1d_fields%jerlov),bfsfc,i,j) + + bfsfc = Bo + Bosol * (1. - bfsfc) + stable = 0.5 + SIGN( 0.5, bfsfc) + bfsfc = bfsfc + stable * epsln !ensures bfsfc never=0 + + ! determine caseA and caseB + caseA = 0.5 + SIGN( 0.5,-kpp_const_fields%zm(kbl) -0.5 & + * kpp_const_fields%hm(kbl) -hbl) + + !Print some info here for debugging (Saleeby2018) + if(i+mi0(ngrid)==iprnt.and.j+mj0(ngrid)==jprnt.and.KPPRNT==1) then + print*,'Steve-bldepth5',bfsfc,stable,caseA,kbl + endif + +return +END SUBROUTINE mckpp_physics_verticalmixing_bldepth + +!############################################################################## +Subroutine mckpp_physics_verticalmixing_blmix (km, mdiff, ustar, bfsfc, hbl & + , stable, caseA, kbl,gat1, dat1, dkm1, blmc, sigma, wm, ws & + , kpp_1d_fields,kpp_const_fields,i,j) + +use mem_kpp, only:kpp_1d_type,kpp_const_type +use node_mod, only:mi0,mj0 +use mem_grid, only:ngrid +use kpp_parameters, only:kpprnt,iprnt,jprnt + + ! mixing coefficients within boundary layer depend on surface + ! forcing and the magnitude and gradient of interior mixing below + ! the boundary layer ("matching"). + +implicit none + + ! CAUTION if mixing bottoms out at hbl = -zgrid(km) THEN + ! fictious layer kmp1 is needed with small but finite width (eg. 1.e-10) + + TYPE(kpp_1d_type) :: kpp_1d_fields + TYPE(kpp_const_type) :: kpp_const_fields + + integer km !,kmp1 ! number of vertical levels + integer mdiff ! number of viscosities + diffusivities + + ! input + real ustar ! surface friction velocity (m/s) + real bfsfc ! surface buoyancy forcing (m^2/s^3) + real hbl ! boundary layer depth (m) + real stable ! = 1 in stable forcing + real caseA ! = 1 in case A + integer kbl ! index of first grid level below hbl + + ! output + real gat1(mdiff) + real dat1(mdiff) + real dkm1(mdiff) ! boundary layer difs at kbl-1 level + real blmc(km,mdiff) ! boundary layer mixing coefficients(m^2/s) + + ! local + real sigma ! normalized depth (d / hbl) + real ws, wm ! turbulent velocity scales (m/s) + ! None of these were previously declared ... (NPK 6/2/13) + real a1,a2,a3,am,as,c1,c2,c3,cg,cm,cs,cstar,delhat,difsh,& + difsp,difth,diftp,dvdzup,epsln,f1,gm,gs,& + dvdzdn,epsilon,gt,r,visch,viscp,zetam,sig,& + zetas + integer ki,kn,i,j + + !von karman constant + real, parameter :: vonk=0.4 + + data epsln / 1.e-20 / + data epsilon / 0.1 / + data c1 / 5.0 / + data am,cm,c2,zetam / 1.257 , 8.380, 16.0, - 0.2 / !7-24-92 + data as,cs,c3,zetas / -28.86 , 98.96 , 16.0, - 1.0 / + data cstar / 5. / + + cg = cstar * vonk * (cs * vonk * epsilon)**(1./3.) + + ! compute velocity scales at hbl + sigma = stable * 1.0 + (1.-stable) * epsilon + + CALL MCKPP_PHYSICS_VERTICALMIXING_WSCALE (sigma, hbl, ustar, bfsfc,wm,ws & + ,kpp_const_fields,i,j) + + kn = ifix(caseA+epsln) *(kbl -1) + (1-ifix(caseA+epsln)) * kbl + + ! find the interior viscosities and derivatives at hbl(i) + delhat = 0.5*kpp_const_fields%hm(kn)-kpp_const_fields%zm(kn) - hbl + R = 1.0 - delhat / kpp_const_fields%hm(kn) + dvdzup = (kpp_1d_fields%difm(kn-1) - kpp_1d_fields%difm(kn)) & + / kpp_const_fields%hm(kn) + dvdzdn = (kpp_1d_fields%difm(kn) - kpp_1d_fields%difm(kn+1)) & + / kpp_const_fields%hm(kn+1) + viscp = 0.5 * ( (1.-R) * (dvdzup + abs(dvdzup)) + R * (dvdzdn + abs(dvdzdn)) ) + + dvdzup = (kpp_1d_fields%difs(kn-1) - kpp_1d_fields%difs(kn)) & + / kpp_const_fields%hm(kn) + dvdzdn = (kpp_1d_fields%difs(kn) - kpp_1d_fields%difs(kn+1)) & + / kpp_const_fields%hm(kn+1) + difsp = 0.5 * ( (1.-R) * (dvdzup + abs(dvdzup)) + R * (dvdzdn + abs(dvdzdn)) ) + + dvdzup = (kpp_1d_fields%dift(kn-1) - kpp_1d_fields%dift(kn)) & + / kpp_const_fields%hm(kn) + dvdzdn = (kpp_1d_fields%dift(kn) - kpp_1d_fields%dift(kn+1)) & + / kpp_const_fields%hm(kn+1) + diftp = 0.5 * ( (1.-R) * (dvdzup + abs(dvdzup)) + R * (dvdzdn + abs(dvdzdn)) ) + + visch = kpp_1d_fields%difm(kn) + viscp * delhat + difsh = kpp_1d_fields%difs(kn) + difsp * delhat + difth = kpp_1d_fields%dift(kn) + diftp * delhat + + f1 = stable * c1 * bfsfc / (ustar**4+epsln) + gat1(1) = visch / hbl / (wm+epsln) + dat1(1) = -viscp / (wm+epsln) + f1 * visch + dat1(1) = min(dat1(1),0.) + + gat1(2) = difsh / hbl / (ws+epsln) + dat1(2) = -difsp / (ws+epsln) + f1 * difsh + dat1(2) = min(dat1(2),0.) + + gat1(3) = difth / hbl / (ws+epsln) + dat1(3) = -diftp / (ws+epsln) + f1 * difth + dat1(3) = min(dat1(3),0.) + +! Turn off interior matching here +! gat1(i,1) = 0.0001 +! gat1(i,2) = 0.00001 +! gat1(i,3) = 0.00001 +! do m=1,3 +! dat1(i,m) = 0.0 +! enddo + + DO ki = 1,km + ! compute turbulent velocity scales on the interfaces + sig = (-kpp_const_fields%zm(ki) + 0.5 * kpp_const_fields%hm(ki)) / hbl + sigma = stable*sig + (1.-stable)*AMIN1(sig,epsilon) + + CALL MCKPP_PHYSICS_VERTICALMIXING_WSCALE (sigma, hbl, ustar, bfsfc, wm & + ,ws,kpp_const_fields,i,j) + + ! compute the dimensionless shape functions at the interfaces + sig = (-kpp_const_fields%zm(ki) + 0.5 * kpp_const_fields%hm(ki)) / hbl + a1 = sig - 2. + a2 = 3.-2.*sig + a3 = sig - 1. + + Gm = a1 + a2 * gat1(1) + a3 * dat1(1) + Gs = a1 + a2 * gat1(2) + a3 * dat1(2) + Gt = a1 + a2 * gat1(3) + a3 * dat1(3) + + ! compute boundary layer diffusivities at the interfaces + blmc(ki,1) = hbl * wm * sig * (1. + sig * Gm) + blmc(ki,2) = hbl * ws * sig * (1. + sig * Gs) + blmc(ki,3) = hbl * ws * sig * (1. + sig * Gt) + + ! nonlocal transport term = ghats * o + kpp_1d_fields%ghat(ki) = (1.-stable) * cg / (ws*hbl+epsln) + + !Print some info here for debugging (Saleeby2018) + if(i+mi0(ngrid)==iprnt.and.j+mj0(ngrid)==jprnt.and.KPPRNT==1 & + .and.ki<=5) then + print*,'Steve-blmix1',blmc(ki,2),ws,sig,Gs + print*,'Steve-blmix2',cg,ws,hbl,kpp_1d_fields%ghat(ki) + endif + ENDDO + + ! find diffusivities at kbl-1 grid level + sig = -kpp_const_fields%zm(kbl-1) / hbl + sigma = stable * sig + (1.-stable) * AMIN1(sig,epsilon) + + CALL MCKPP_PHYSICS_VERTICALMIXING_WSCALE (sigma, hbl, ustar, bfsfc, wm, ws & + , kpp_const_fields,i,j) + + sig = -kpp_const_fields%zm(kbl-1) / hbl + a1= sig - 2. + a2 = 3.-2.*sig + a3 = sig - 1. + Gm = a1 + a2 * gat1(1) + a3 * dat1(1) + Gs = a1 + a2 * gat1(2) + a3 * dat1(2) + Gt = a1 + a2 * gat1(3) + a3 * dat1(3) + dkm1(1) = hbl * wm * sig * (1. + sig * Gm) + dkm1(2) = hbl * ws * sig * (1. + sig * Gs) + dkm1(3) = hbl * ws * sig * (1. + sig * Gt) + +return +END SUBROUTINE mckpp_physics_verticalmixing_blmix + +!############################################################################## +Subroutine MCKPP_PHYSICS_VERTICALMIXING_ENHANCE (km,mdiff,dkm1,hbl,kbl & + ,caseA,blmc,kpp_1d_fields,kpp_const_fields) + +use mem_kpp, only:kpp_1d_type,kpp_const_type + +implicit none + + ! enhance the diffusivity at the kbl-.5 interface + + ! Necessary for IMPLICIT NONE (NPK 11/2/13) + real dkmp5,dstar + integer ki + integer km !,kmp1 ! number of vertical levels + integer mdiff ! number of viscosities + diffusivities + integer kbl ! grid above hbl + real hbl ! boundary layer depth (m) + real dkm1(mdiff) ! bl diffusivity at kbl-1 grid level + real caseA ! = 1 in caseA, = 0 in case B + + TYPE(kpp_1d_type) :: kpp_1d_fields + TYPE(kpp_const_type) :: kpp_const_fields + + ! output + real blmc(km,mdiff) ! enhanced bound. layer mixing coeff. + + ! local + real delta ! fraction hbl lies beteen zgrid neighbors + + do ki=1,km-1 + if(ki .eq. (kbl - 1) ) then + delta = (hbl+kpp_const_fields%zm(ki)) / & + (kpp_const_fields%zm(ki)-kpp_const_fields%zm(ki+1)) + + dkmp5 = caseA * kpp_1d_fields%difm(ki) + (1.-caseA) * blmc(ki,1) + dstar = (1.-delta)**2 * dkm1(1) + delta**2 * dkmp5 + blmc(ki,1) = (1.-delta) * kpp_1d_fields%difm(ki) + delta * dstar + + dkmp5 = caseA * kpp_1d_fields%difs(ki) + (1.-caseA) * blmc(ki,2) + dstar = (1.-delta)**2 * dkm1(2) + delta**2 * dkmp5 + blmc(ki,2) = (1.-delta) * kpp_1d_fields%difs(ki) + delta * dstar + + dkmp5 = caseA * kpp_1d_fields%dift(ki) + (1.-caseA) * blmc(ki,3) + dstar = (1.-delta)**2 * dkm1(3) + delta**2 * dkmp5 + blmc(ki,3) = (1.-delta) * kpp_1d_fields%dift(ki) + delta * dstar + + kpp_1d_fields%ghat(ki) = (1.-caseA) * kpp_1d_fields%ghat(ki) + endif + enddo + +return +END SUBROUTINE MCKPP_PHYSICS_VERTICALMIXING_ENHANCE + +!############################################################################## +Subroutine MCKPP_PHYSICS_VERTICALMIXING_Z121 (kmp1,vlo,vhi,V,w) + +implicit none + + INTEGER kmp1 + REAL vlo,vhi,tmp,wait + INTEGER k,km + + ! Apply 121 smoothing in k to 2-d array V(i,k=1,km) + ! top (0) value is used as a dummy + ! bottom (kmp1) value is set to input value from above. + + real V(0:kmp1) ! 2-D array to be smoothed in kmp1 direction + real w(0:kmp1) ! 2-D array of internal weights to be computed + + km = kmp1 - 1 + + w(0) = 0.0 + w(kmp1) = 0.0 + V(0) = 0.0 + V(kmp1) = 0.0 + + do k=1,km + if((V(k).lt.vlo).or.(V(k).gt.vhi)) then + w(k) = 0.0 + ! w(i,k) = 1.0 + else + w(k) = 1.0 + endif + + enddo + + do k=1,km + tmp = V(k) + V(k) = w(k-1)*V(0)+2.*V(k)+w(k+1)*V(k+1) + wait = w(k-1) + 2.0 + w(k+1) + V(k) = V(k) / wait + V(0) = tmp + enddo + +return +END SUBROUTINE MCKPP_PHYSICS_VERTICALMIXING_Z121 + +!############################################################################## +Subroutine MCKPP_PHYSICS_SWFRAC (fact, z, jwtype, swdk, i,j) + +implicit none + +! compute fraction of solar short-wave flux penetrating to specified +! depth (times fact) due to exponential decay in Jerlov water type +! reference : two band solar absorption model of simpson and paulson (1977) + + integer nwtype,i,j + parameter(nwtype=5) ! max number of different water types + + ! input + real fact ! scale factor to apply to depth array + real z ! vertical height ( <0.) for desired sw + ! fraction (m) + integer jwtype ! index for jerlov water type + + ! output + real swdk ! short wave (radiation) fractional decay + + ! local + real rfac(nwtype),a1(nwtype),a2(nwtype) + real rmin,r1,r2 + + ! jerlov water type : I IA IB II III + ! jwtype 1 2 3 4 5 + data rfac / 0.58 , 0.62 , 0.67 , 0.77 , 0.78 / + data a1 / 0.35 , 0.6 , 1.0 , 1.5 , 1.4 / + data a2 / 23.0 , 20.0 , 17.0 , 14.0 , 7.9 / + data rmin / -80. / + + + r1 = MAX(z*fact/a1(jwtype), rmin) + r2 = MAX(z*fact/a2(jwtype), rmin) + swdk = rfac(jwtype) * exp(r1) + (1.-rfac(jwtype)) * exp(r2) + +return +END SUBROUTINE MCKPP_PHYSICS_SWFRAC + +!############################################################################## +Subroutine MCKPP_PHYSICS_VERTICALMIXING_WSCALE (sigma, hbl, ustar, bfsfc, wm & + , ws, kpp_const_fields,i,j) +use mem_kpp, only: kpp_const_type + +implicit none + + ! compute turbulent velocity scales. + ! use a 2D-lookup table for wm and ws as functions of ustar and + ! zetahat (=vonk*sigma*hbl*bfsfc). + + ! Necessary for IMPLICIT NONE (NPK 11/2/13) + INTEGER ni,nj,iz,izp1,ju,jup1,i,j + REAL am,as,c1,c2,c3,cm,cs,epsln,fzfrac,ucube,udiff,ufrac,& + usta,wam,was,wbm,wbs,zdiff,zetas,zfrac,zetam + + TYPE(kpp_const_type) :: kpp_const_fields + + ! lookup table + parameter ( ni = 890,& ! number of values for zehat + nj = 48) ! number of values for ustar + + real deltaz ! delta zehat in table + real deltau ! delta ustar in table + real zmin,zmax ! zehat limits for table + real umin,umax ! ustar limits for table + + data zmin,zmax / -4.e-7, 0.0 / ! m3/s3 + data umin,umax / 0. , .04 / ! m/s + + ! input + real sigma ! normalized depth (d/hbl) + real hbl ! boundary layer depth (m) + real ustar ! surface friction velocity (m/s) + real bfsfc ! total surface buoyancy flux (m^2/s^3) + + ! output + real wm,ws ! turbulent velocity scales at sigma + + ! local + real zehat ! = zeta * ustar**3 + real zeta ! = stability parameter d/L + + !von karman constant + real, parameter :: vonk=0.4 + + data epsln / 1.0e-20/ + data c1 / 5.0 / + data am,cm,c2,zetam / 1.257 , 8.380 , 16.0 , - 0.2 / + data as,cs,c3,zetas / -28.86 , 98.96 , 16.0 , - 1.0 / + + deltaz = (zmax-zmin)/(ni+1) + deltau = (umax-umin)/(nj+1) + + ! use lookup table for zehat < zmax ONLY; otherwise use stable formulae + zehat = vonk * sigma * hbl * bfsfc + + IF (zehat .le. zmax) THEN + zdiff = zehat-zmin + iz = int( zdiff/deltaz ) + iz = min( iz , ni ) + iz = max( iz , 0 ) + izp1=iz+1 + + udiff = ustar-umin + ju = int( udiff/deltau) + ju = min( ju , nj ) + ju = max( ju , 0 ) + jup1=ju+1 + + zfrac = zdiff/deltaz - float(iz) + ufrac = udiff/deltau - float(ju) + + fzfrac= 1.-zfrac + wam = (fzfrac) * kpp_const_fields%wmt(iz,jup1) + & + zfrac*kpp_const_fields%wmt(izp1,jup1) + wbm = (fzfrac) * kpp_const_fields%wmt(iz,ju ) + & + zfrac*kpp_const_fields%wmt(izp1,ju ) + wm = (1.-ufrac)* wbm + ufrac*wam + + was = (fzfrac) * kpp_const_fields%wst(iz,jup1) + & + zfrac*kpp_const_fields%wst(izp1,jup1) + wbs = (fzfrac) * kpp_const_fields%wst(iz,ju ) + & + zfrac*kpp_const_fields%wst(izp1,ju ) + ws = (1.-ufrac)* wbs + ufrac*was + ELSE + ucube = ustar**3 + wm = vonk * ustar * ucube / (ucube + c1 * zehat) + ws = wm + ENDIF + +return +END SUBROUTINE MCKPP_PHYSICS_VERTICALMIXING_WSCALE + diff --git a/src/6.2.16/kpp/kpp_ocint.f90 b/src/6.2.16/kpp/kpp_ocint.f90 new file mode 100644 index 0000000..676012c --- /dev/null +++ b/src/6.2.16/kpp/kpp_ocint.f90 @@ -0,0 +1,358 @@ +!############################################################################## +SUBROUTINE mckpp_physics_ocnint (kpp_1d_fields,kpp_const_fields & + ,kmixe,Uo,Xo,ii,jj) + +use mem_kpp, only:kpp_1d_type,kpp_const_type +use kpp_parameters, only:kppNZ,kppNZP1,kppNVEL,kppNSCLR + +implicit none + + ! Integrate the ocn model by backwards Euler(implicit)discretization + ! On input : Un,Xn are estimated profiles which are used + ! to estimate diffusivity profiles at new time. + ! : Updated diffusivities from Un Xn are in common + ! On output: Un,Xn are new profiles after integration. + + ! Written 19 March 1991 - jan + + ! Input + REAL Uo(kppNZP1,kppNVEL),Xo(kppNZP1,kppNSCLR) + + ! Output + TYPE(kpp_1d_type) :: kpp_1d_fields + TYPE(kpp_const_type) :: kpp_const_fields + + ! Local + real cu (kppNZ), &! upper coeff for (k-1) on k line of trid.matrix + cc (kppNZ), &! central ... (k ) .. + cl (kppNZ), &! lower ..... (k-1) .. + rhs(kppNZ) ! right-hand-side terms + real diff(0:kppNZ),gcap(kppNZ),ntflx(0:kppNZ,kppNSCLR) + ! More local variables to make implicit none + integer kmixe,i,imode,n,k,ii,jj + real ftemp,ghatflux,sturflux + integer adv_mode + real adv_mag + + ! ******************************************************************** + ! U and V solution of tridiagonal matrix + ! set f = 0 for equatorial application + ftemp = kpp_1d_fields%f + + DO k=0,kppNZ + diff(k)=kpp_1d_fields%difm(k) + ENDDO + CALL MCKPP_PHYSICS_SOLVERS_TRIDCOF (diff,kppNZ,cu,cc,cl,kpp_const_fields) + + ! U right hand side and solution + rhs(1)= Uo(1,1) + kpp_const_fields%dto* (ftemp*.5*(Uo(1,2) & + +kpp_1d_fields%U(1,2)) - & + kpp_1d_fields%wU(0,1)/kpp_const_fields%hm(1)) + do i=2,kppNZ-1 + rhs(i)= Uo(i,1) + kpp_const_fields%dto*ftemp*.5*(Uo(i,2) & + +kpp_1d_fields%U(i,2)) + enddo + i=kppNZ ! bottom + rhs(i)= Uo(i,1) + kpp_const_fields%dto*ftemp*.5*(Uo(i,2) & + + kpp_1d_fields%U(i,2)) & + + kpp_const_fields%tri(i,1)*kpp_1d_fields%difm(i)*Uo(i+1,1) + + CALL MCKPP_PHYSICS_SOLVERS_TRIDMAT (cu,cc,cl,rhs,Uo(:,1),kppNZ & + ,kpp_1d_fields%U(:,1)) + + ! V rhs and solution + rhs(1)= Uo(1,2) - kpp_const_fields%dto* (ftemp*.5*(Uo(1,1) & + +kpp_1d_fields%U(1,1))+kpp_1d_fields%wU(0,2)/kpp_const_fields%hm(1)) + do i=2,kppNZ-1 + rhs(i)= Uo(i,2) - kpp_const_fields%dto*ftemp*.5*(Uo(i,1) & + +kpp_1d_fields%U(i,1)) + enddo + i=kppNZ + rhs(i)= Uo(i,2) - kpp_const_fields%dto*ftemp*.5*(Uo(i,1) & + +kpp_1d_fields%U(i,1)) & + +kpp_const_fields%tri(i,1)*kpp_1d_fields%difm(i)*Uo(i+1,2) + + CALL MCKPP_PHYSICS_SOLVERS_TRIDMAT (cu,cc,cl,rhs,Uo(:,2),kppNZ & + ,kpp_1d_fields%U(:,2)) + +! ******************************************************************* +! Scalar solutions of tridiagonal matrix +! Temperature (different from other scalars because of ghat-term +! and double diffusion) +! ghatflux = wX(0,1) - (1-SWDK(-hmixe,real(time))) +! * sflux(3) / rho(ipt,0) / CP(ipt,0) +! ghatflux = wX(0,1) - (1-SWDK(-d(1) ,real(time))) +! * sflux(3) / rho(ipt,0) / CP(ipt,0) + + ! ********************************************************************** + ! Ocean Temperature + ! ********************************************************************** + ghatflux = kpp_1d_fields%wX(0,1) + sturflux = kpp_1d_fields%wX(0,1) + diff(0)=kpp_1d_fields%dift(0) + ntflx(0,1)=kpp_1d_fields%wXNT(0) + DO k=1,kppNZ + diff(k)=kpp_1d_fields%dift(k) + gcap(k)=kpp_1d_fields%ghat(k) + ntflx(k,1)=kpp_1d_fields%wXNT(k) + ENDDO + CALL MCKPP_PHYSICS_SOLVERS_TRIDCOF (diff,kppNZ,cu,cc,cl,kpp_const_fields) + + CALL MCKPP_PHYSICS_SOLVERS_TRIDRHS (Xo(:,1),ntflx(:,1) & + ,diff,gcap,sturflux,ghatflux,kppNZ,rhs,kpp_const_fields) + + ! Sfc relaxation incompatible with flux corrections at depth (NPK 12/02/08) + IF (kpp_const_fields%relax_sst .GT. 1.e-10) THEN + ! Relax the Mixed layer temperature back to SST0 + ! By using a flux correction at the surface + ! Added by SJW (06/04) + ! dm(kmixe) = hmix = mixed layer depth + ! hm(1) = depth of top layer + rhs(1)=rhs(1)+kpp_const_fields%dto*kpp_const_fields%relax_sst*& + (kpp_1d_fields%SST0-Xo(1,1))*kpp_const_fields%dm(kmixe) & + /kpp_const_fields%hm(1) + ENDIF + + kpp_1d_fields%tinc_fcorr(:)=0. + + ! Relax the temperature at each layer in the model by computing a flux + ! correction at each layer. Requires a three-dimensional (x,y,z) data + ! of ocean temperatures + IF (kpp_const_fields%relax_ocnT .GT. 1.e-10) THEN + DO k=1,kppNZP1 + ! Store the relaxation term as tinc_fcorr so that, on output, + ! that field contains the actual correction applied in K/timestep. + kpp_1d_fields%tinc_fcorr(k)=kpp_1d_fields%tinc_fcorr(k)+& + kpp_const_fields%dto*kpp_const_fields%relax_ocnT*& + (kpp_1d_fields%ocnT_clim(k)-Xo(k,1)) + ENDDO + ENDIF + + !The following do loop is to compute "ocntcorr" when performing + !interactive relaxation (relax_ocnt). It is a flux of heat in W/m3. + !This diagnostic is provided so the user can derive the heat + !fluxes necessary to nudge the model when NOT doing interactive + !relaxation, but rather, a flux correction. This is done in multi-year + !climate simulations. We have removed the flux correction method from + !this version in RAMS, but could reinstall if needed. Commenting out + !"ocntcorr" below for now. + !In climate mode, as is done for KPP in CAM3, they use a 2-step process + !whereby they first run the model with "interactive relaxation", then + !compute a mean seasonal cycle of the nudging terms, then secondly, impose + !thoses flux corrections in a second simulation. + DO k=1,kppNZP1 + rhs(k) = rhs(k) + kpp_1d_fields%tinc_fcorr(k) + ! Modify the correction field so that, when output, it is in + ! the correct units to be input as a flux correction + ! kpp_1d_fields%ocnTcorr(k)=kpp_1d_fields%tinc_fcorr(k) & + ! *kpp_1d_fields%rho(k) & + ! *kpp_1d_fields%cp(k)/kpp_const_fields%dto + ENDDO + + CALL MCKPP_PHYSICS_SOLVERS_TRIDMAT (cu,cc,cl,rhs,Xo(:,1) & + ,kppNZ,kpp_1d_fields%X(:,1)) + + ! ********************************************************************** + ! Salinity + ! ********************************************************************** + ghatflux = kpp_1d_fields%wX(0,2) + sturflux = kpp_1d_fields%wX(0,2) + diff(0)=kpp_1d_fields%difs(0) + ntflx(0,2)=0.0 + DO k=1,kppNZ + diff(k)=kpp_1d_fields%difs(k) + gcap(k)=kpp_1d_fields%ghat(k) + ntflx(k,2)=0.0 + ENDDO + CALL MCKPP_PHYSICS_SOLVERS_TRIDCOF (diff,kppNZ,cu,cc,cl,kpp_const_fields) + + CALL MCKPP_PHYSICS_SOLVERS_TRIDRHS (Xo(:,2),ntflx(:,2) & + ,diff,gcap,sturflux,ghatflux,kppNZ,rhs,kpp_const_fields) + + kpp_1d_fields%sinc_fcorr(:)=0. + + ! Relax the salinity at each layer in the model by computing a flux + ! correction at each layer. Requires a three-dimensional(x,y,z) input + ! file of salinity + IF (kpp_const_fields%relax_sal .GT. 1.e-10) THEN + DO k=1,kppNZP1 + ! Store the relaxation term as sinc_fcorr so that, on output, + ! that field contains the actual correction applied in psu/timestep + kpp_1d_fields%sinc_fcorr(k) = kpp_1d_fields%sinc_fcorr(k)+& + kpp_const_fields%dto*kpp_const_fields%relax_sal* & + (kpp_1d_fields%sal_clim(k)-Xo(k,2)) + ENDDO + ENDIF + + !The following do loop is to compute "scorr" when performing + !interactive relaxation (relax_sal). It is a flux of salt in W/m3. + !This diagnostic is provided so the user can derive the salt + !fluxes necessary to nudge the model when NOT doing interactive + !relaxation, but rather, a flux correction. This is done in multi-year + !climate simulations. We have removed the flux correction method from + !this version in RAMS, but could reinstall if needed. Commenting out + !"scorr" below for now. + !In climate mode, as is done for KPP in CAM3, they use a 2-step process + !whereby they first run the model with "interactive relaxation", then + !compute a mean seasonal cycle of the nudging terms, then secondly, impose + !thoses flux corrections in a second simulation. + DO k=1,kppNZP1 + rhs(k) = rhs(k) + kpp_1d_fields%sinc_fcorr(k) + ! Modify the correction field so that, when output, it is in + ! the correct units to be input as a flux correction + ! kpp_1d_fields%scorr(k)=kpp_1d_fields%sinc_fcorr(k) & + ! /kpp_const_fields%dto + ENDDO + + CALL MCKPP_PHYSICS_SOLVERS_TRIDMAT (cu,cc,cl,rhs,Xo(:,2) & + ,kppNZ,kpp_1d_fields%X(:,2)) + +return +END SUBROUTINE mckpp_physics_ocnint + +!############################################################################## +Subroutine mckpp_physics_solvers_tridcof (diff,nzi,cu,cc,cl,kpp_const_fields) + +use mem_kpp, only:kpp_const_type + + ! Compute coefficients for tridiagonal matrix (dimension=nzi). + ! Note: cu(1) = 0. and cl(nzi) = 0. are necessary conditions. + + IMPLICIT NONE + + ! Input + TYPE(kpp_const_type) :: kpp_const_fields + integer nzi ! dimension of field + real diff(0:nzi) ! diffusivity profile on interfaces + + ! Output + real cu(nzi),& ! upper coeff. for (k-1) on k line of trid.matrix + cc(nzi),& ! central ... (k ) .. + cl(nzi) ! lower ..... (k-1) .. + integer i + + ! In the surface layer + cu(1) = 0. + cc(1) = 1. + kpp_const_fields%tri(1,1)*diff(1) ! 1.+ dto/h(1)/dzb(1)*diff(1) + cl(1) = - kpp_const_fields%tri(1,1)*diff(1) ! - dto/h(1)/dzb(1)*diff(1) + + ! Inside the domain + do i=2,nzi + cu(i) = - kpp_const_fields%tri(i,0)*diff(i-1) + cc(i) = 1. + kpp_const_fields%tri(i,1)*diff(i) & + + kpp_const_fields%tri(i,0)*diff(i-1) + cl(i) = - kpp_const_fields%tri(i,1)*diff(i) + ENDDO + + !In the bottom layer + cl(nzi)= 0. + +return +END SUBROUTINE mckpp_physics_solvers_tridcof + +!############################################################################## +Subroutine mckpp_physics_solvers_tridrhs (yo,ntflux,diff,ghat,sturflux & + ,ghatflux,nzi,rhs,kpp_const_fields) + +use mem_kpp, only:kpp_const_type + + ! Compute right hand side of tridiagonal matrix for scalar fields: + ! = yo (old field) + ! + flux-divergence of ghat + ! + flux-divergence of non-turbulant fluxes + ! Note: surface layer needs +dto/h(1) * surfaceflux + ! bottom ..... ..... +dto/h(nzi)*diff(nzi)/dzb(nzi)*yo(nzi+1) + + IMPLICIT NONE + + ! Input + TYPE(kpp_const_type) :: kpp_const_fields + + integer nzi ! dimension of field + real yo(nzi+1),& ! old profile + ntflux(0:nzi),&! non-turbulent flux = wXNT(0:nzi) + diff(0:nzi),& ! diffusivity profile on interfaces + ghat(nzi),& ! ghat turbulent flux + sturflux,& ! surface turbulent (kinematic) flux = wX(0,n) + ghatflux ! surface flux for ghat: includes solar flux + + ! Output + real rhs(nzi) ! right hand side + + ! more local variables to make implicit none + integer i + + ! In the surface layer (dto/h(1)=tri(0,1) + rhs(1)= yo(1) + kpp_const_fields%dto/kpp_const_fields%hm(1) & + * (ghatflux*diff(1)*ghat(1)- sturflux + & + ntflux(1) - ntflux( 0 ) ) + + ! Inside the rest of the domain + do i=2,nzi-1 + rhs(i)= yo(i) + kpp_const_fields%dto/kpp_const_fields%hm(i) & + * ( ghatflux*(diff(i)*ghat(i) & + - diff(i-1)*ghat(i-1)) + ntflux(i) - ntflux(i-1) ) + ENDDO + + ! In the bottom layer + if(nzi.gt.1) then ! not for slab ocean + i=nzi + rhs(i)= yo(i) + kpp_const_fields%dto/kpp_const_fields%hm(i) & + * ( ghatflux*(diff(i)*ghat(i) & + - diff(i-1)*ghat(i-1)) + ntflux(i) - ntflux(i-1) ) & + + yo(i+1)*kpp_const_fields%tri(i,1)*diff(i) + endif + +return +END SUBROUTINE mckpp_physics_solvers_tridrhs + +!############################################################################## +Subroutine mckpp_physics_solvers_tridmat (cu,cc,cl,rhs,yo,nzi,yn) + + ! Solve tridiagonal matrix for new vector yn, given right hand side + ! vector rhs. Note: yn(nzi+1) = yo(nzi+1). + IMPLICIT NONE + + ! Input + integer nzi ! dimension of matrix + real cu (nzi),& ! upper coeff. for (k-1) on k line of tridmatrix + cc (nzi),& ! central ... (k ) .. + cl (nzi),& ! lower ..... (k-1) .. + rhs(nzi),& ! right hand side + yo(nzi+1),yni ! old field + + ! Output + real yn(nzi+1) ! new field + + ! Local + real gam(nzi),& ! temporary array for tridiagonal solver + bet ! ... + ! more local for implicit none + integer i + + ! Solve tridiagonal matrix. + bet = cc(1) + yn(1) = rhs(1) / bet ! surface + DO i=2,nzi + gam(i)= cl(i-1)/bet + bet = cc(i) - cu(i)*gam(i) + if(bet.eq.0.) then + write(*,*)'* algorithm for solving tridiag matrix fails' + write(*,*)'* bet=',bet + write(*,*)'*i-1=',i-1,' cc=',cc(i-1),'cl=',cl(i-1) + write(*,*)'*i=',i,' cc=',cc(i),' cu=',cu(i),' gam=',gam(i) + stop + bet=1.0E-12 + ! Pause 3 + endif + ! to avoid "Underflow" at single precision on the sun + yn(i) = (rhs(i) - cu(i) *yn(i-1) )/bet + ENDDO + + do i=nzi-1,1,-1 + yn(i) = yn(i) - gam(i+1)*yn(i+1) + ENDDO + yn(nzi+1) = yo(nzi+1) + +return +END SUBROUTINE mckpp_physics_solvers_tridmat diff --git a/src/6.2.16/kpp/kpp_override.f90 b/src/6.2.16/kpp/kpp_override.f90 new file mode 100644 index 0000000..6768689 --- /dev/null +++ b/src/6.2.16/kpp/kpp_override.f90 @@ -0,0 +1,112 @@ +!############################################################################## +Subroutine mckpp_overrides_bottomtemp (kpp_1d_fields,kpp_const_fields,i,j) + +use mem_kpp, only: kpp_1d_type,kpp_const_type +use kpp_parameters, only: kppNZP1 + +implicit none + +TYPE(kpp_1d_type) :: kpp_1d_fields +TYPE(kpp_const_type) :: kpp_const_fields + +integer :: i,j + +IF (kpp_const_fields%L_BOTTOM_TEMP) THEN + kpp_1d_fields%tinc_fcorr(kppNZP1) = & + kpp_1d_fields%bottomt - kpp_1d_fields%X(kppNZP1,1) + kpp_1d_fields%X(kppNZP1,1)=kpp_1d_fields%bottomt + + !Compute ocntcorr if doing flux correction method, which RAMS does not do + !at this time. This is more for a multi-year climate mode. See comments + !in kpp_ocint.f90 for for info on ocntcorr. + !kpp_1d_fields%ocnTcorr(kppNZP1) = & + ! kpp_1d_fields%tinc_fcorr(kppNZP1) & + ! * kpp_1d_fields%rho(kppNZP1) & + ! * kpp_1d_fields%cp(kppNZP1) & + ! / kpp_const_fields%dto +ENDIF + +return +END SUBROUTINE mckpp_overrides_bottomtemp + +!############################################################################## +Subroutine mckpp_overrides_profile (kpp_1d_fields,kpp_const_fields,i,j) + +use mem_kpp, only: kpp_1d_type,kpp_const_type +use kpp_parameters, only: kppNZP1 +use mem_grid, only:ngrid +use node_mod, only:mi0,mj0 + +implicit none + +TYPE(kpp_1d_type) :: kpp_1d_fields +TYPE(kpp_const_type) :: kpp_const_fields + +INTEGER :: z,k,j,i +REAL :: dz_total,dtdz_total,dz + + ! If the integration has failed because of unrealistic values in T, S, U or V + ! or very high RMS difference between the old and new profiles, then reset + ! T and S to climatology (if available) and U and V to the initial profiles. + ! NPK 17/5/13. + IF (kpp_1d_fields%comp_flag) THEN !Saleeby(2019) Make sure we have ocnt/sal profs + kpp_1d_fields%X(:,1)=kpp_1d_fields%ocnT_clim(:) + kpp_1d_fields%X(:,2)=kpp_1d_fields%sal_clim(:) + kpp_1d_fields%U=kpp_1d_fields%U_init(:,:) + print*,'Resetting point to climatology(i,j): ',i+mi0(ngrid),j+mj0(ngrid) + !WRITE(*,*) 'T = ',kpp_1d_fields%ocnT_clim(:) + !WRITE(*,*) 'S = ',kpp_1d_fields%sal_clim(:) + !WRITE(*,*) 'U = ',kpp_1d_fields%U_init(:,1) + !WRITE(*,*) 'V = ',kpp_1d_fields%U_init(:,2) + kpp_1d_fields%reset_flag=999 + ENDIF + + ! Check whether the temperature at any (x,z) point is less than the + ! threshold for sea ice (-1.8C). If it is, reset it to -1.8C and + ! set a flag. + ! Note that the value of the flag is equal to the *fraction* of levels + ! at that point that were < -1.8C. + IF (kpp_const_fields%L_NO_FREEZE) THEN + DO z=1,kppNZP1 + IF (kpp_1d_fields%X(z,1) .lt. -1.8) THEN + kpp_1d_fields%tinc_fcorr(z)=kpp_1d_fields%tinc_fcorr(z)+& + (-1.8-kpp_1d_fields%X(z,1)) + kpp_1d_fields%X(z,1)=-1.8 + kpp_1d_fields%freez_flag=kpp_1d_fields%freez_flag+1.0/REAL(kppNZP1) + print*,'Setting freezing pt(k,i,j): ',z,i+mi0(ngrid),j+mj0(ngrid) + ENDIF + ENDDO + ENDIF + + ! Check whether the temperature difference between the surface + ! and a user-specified level (presumably deep) is less than a user-specified + ! threshold (presumably small). If so, reset the temperature and salinity + ! profiles to climatological values. Added to prevent spurious very + ! deep mixing that creates unrealistic isothermal (and isohaline) layers. + ! NPK 15/5/2013 for R4. + IF (kpp_const_fields%L_NO_ISOTHERM) THEN + dtdz_total=0. + dz_total=0. + DO k=2,kpp_const_fields%iso_bot + dz=kpp_const_fields%zm(k)-kpp_const_fields%zm(k-1) + dtdz_total=dtdz_total+ABS((kpp_1d_fields%X(k,1)-& + kpp_1d_fields%X(k-1,1)))*dz + dz_total=dz_total+dz + ENDDO + dtdz_total=dtdz_total/dz_total + + ! If resetting to climo because of isothermal layer (rather than because of + ! computational instability trap), then set reset_flag to a negative + ! value (-1*number of interations in of semi-implicit integration). + IF (ABS(dtdz_total).lt.kpp_const_fields%iso_thresh) THEN + kpp_1d_fields%X(:,1)=kpp_1d_fields%ocnT_clim(:) + kpp_1d_fields%X(:,2)=kpp_1d_fields%sal_clim(:) + kpp_1d_fields%reset_flag=(-1.)*kpp_1d_fields%reset_flag + print*,'Isothermal layer detected(i,j): ',i+mi0(ngrid),j+mj0(ngrid) + ENDIF + ELSE + kpp_1d_fields%reset_flag=0 + ENDIF + +return +END SUBROUTINE mckpp_overrides_profile diff --git a/src/6.2.16/kpp/kpp_params.f90 b/src/6.2.16/kpp/kpp_params.f90 new file mode 100644 index 0000000..9245f3b --- /dev/null +++ b/src/6.2.16/kpp/kpp_params.f90 @@ -0,0 +1,39 @@ +!############################################################################## +Module kpp_parameters + +use grid_dims, only:maxgrds !from RAMS + +implicit none + +integer :: IKPP !flag to activate KPP from RAMSIN + +real :: & !KPP flags from RAMSIN + FRQKPP & !KPP timestep (seconds) + ,RELAX_SST & !timescale (days) for ocean column salinity relax/nudging + ,RELAX_OCNT & !timescale (days) for ocean column temp relax/nudging + ,RELAX_SAL & !timescale (days) for SST relax/nudging + ,DMAXKPP & !maximum ocean depth (meters) + ,DSCALEKPP & !exponential for stretched grid + ,UBMN_KPP !ubmin minimum wind speed used for wind stress + +integer :: & !KPP flags from RAMSIN + NKPPZ & !number of kpp grid point levels + ,KPPITERMAX & !max number of iterations allowed + ,KPPRNT !KPP data print flag + +integer :: & !parameters dynamically set at initialization + kppNZ & !number of kpp layers used in KPP (=nkppz-1) + ,kppNZP1 !number of kpp grid points used in KPP (=nkppz) + +integer, parameter :: & + kppNVEL = 2 & !number of velocity components, i.e. 2 for U and V + ,kppNSCLR = 2 !number of scalars, i.e. T, S + +integer, parameter :: & + iprnt=50 & + ,jprnt=85 + + +real, dimension(maxgrds) :: hmixdepth,hmixdepth_max + +END MODULE kpp_parameters diff --git a/src/6.2.16/kpp/kpp_timestep.f90 b/src/6.2.16/kpp/kpp_timestep.f90 new file mode 100644 index 0000000..8500524 --- /dev/null +++ b/src/6.2.16/kpp/kpp_timestep.f90 @@ -0,0 +1,161 @@ +!############################################################################## +Subroutine mckpp_ocean_mixing () + + +use mem_leaf +use mem_turb +use mem_radiate +use mem_micro +use mem_basic +use micphys, only:idriz,irain,ipris,isnow,iaggr,igraup,ihail +use io_params, only:ssttime1,ssttime2,iupdsst +use mem_kpp, only:kpp_3d_fields,kpp_1d_fields,kpp_const_fields +use node_mod, only: ia,iz,ja,jz +use mem_grid, only:ngrid,runtype,initial,print_msg,nzg,time,dtlt +use kpp_parameters, only:frqkpp,hmixdepth,ikpp + +implicit none + +integer :: i,j +real :: flx1,flx2,flx3,flx4,flx5,flx6,kpp_total_pcp,timefac_sst + +!Set parameter to zero to help determine the max domain HMIX +hmixdepth(ngrid) = 0. + +!Check and make sure KPP timestep >= RAMS model grid timestep +if (kpp_const_fields%dto < dtlt) THEN + if(print_msg)print*,'KPP:ocean model timestep must be >= DTLT from RAMS' + if(print_msg)print*,'KPP-dto,frqkpp,dtlt',kpp_const_fields%dto,frqkpp,dtlt + STOP +ENDIF + +! Time interpolation factor for updating SST +if (iupdsst == 0) then + timefac_sst = 0. +else + timefac_sst = (time-ssttime1(ngrid)) / (ssttime2(ngrid)-ssttime1(ngrid)) +endif + +!Update SST from RAMS obs field for SST0 relaxation of prognosed SST. +!Note that seatp and seatf are in units of Kelvin, but SST0 needs celcius. +IF (kpp_const_fields%relax_sst .GT. 1.e-10)then + do j = ja,jz + do i = ia,iz + kpp_3d_fields(ngrid)%SST0(i,j) = (leaf_g(ngrid)%seatp(i,j) & + + (leaf_g(ngrid)%seatf(i,j) - leaf_g(ngrid)%seatp(i,j)) & + * timefac_sst - 273.15) + enddo + enddo +ENDIF + +!Get parent model fluxes. +!Store surface fluxes in temporary variables to allow for +!coupling timesteps longer than the model timestep. That way we compute +!mean surface fluxes over the non-coupling timesteps, and use the mean +!fluxes to apply to KPP rather than instantaneous fluxes. +do j = ja,jz + do i = ia,iz + + !Zonal wind stress (N/m2) (direction/sign dependent) + flx1 = turb_g(ngrid)%sflux_u(i,j) + + !Meridional wind stress (N/m2) (direction/sign dependent) + flx2 = turb_g(ngrid)%sflux_v(i,j) + + !net sfc shortwave radiation (swdn-swup)(W/m^2) + flx3 = radiate_g(ngrid)%swdn(1,i,j) & !shortwave down at sfc + - radiate_g(ngrid)%swup(1,i,j) !shortwave up at sfc + + !non-shortwave rad (lwdn-lwup-sens-latent) (W/m^2) + flx4 = radiate_g(ngrid)%lwdn(1,i,j) & !longwave down at sfc + - radiate_g(ngrid)%lwup(1,i,j) & !longwave up at sfc + - (turb_g(ngrid)%sflux_t(i,j)*1004.) & !sensible heat flx at sfc + - (turb_g(ngrid)%sflux_r(i,j)*2.5e6) !latent heat flx at sfc + + !melting of seaice(zero, not used) + flx5 = 0. + + !net freshwater (precip - evaporation)(mm/sec) + kpp_total_pcp = 0. + if(idriz>=1) kpp_total_pcp=kpp_total_pcp+micro_g(ngrid)%pcprd(i,j) + if(irain>=1) kpp_total_pcp=kpp_total_pcp+micro_g(ngrid)%pcprr(i,j) + if(ipris>=1) kpp_total_pcp=kpp_total_pcp+micro_g(ngrid)%pcprp(i,j) + if(isnow>=1) kpp_total_pcp=kpp_total_pcp+micro_g(ngrid)%pcprs(i,j) + if(iaggr>=1) kpp_total_pcp=kpp_total_pcp+micro_g(ngrid)%pcpra(i,j) + if(igraup>=1) kpp_total_pcp=kpp_total_pcp+micro_g(ngrid)%pcprg(i,j) + if(ihail>=1) kpp_total_pcp=kpp_total_pcp+micro_g(ngrid)%pcprh(i,j) + flx6 = kpp_total_pcp - turb_g(ngrid)%sflux_r(i,j) + + !Use instantaneous values for the first timestep + IF (time .le. 0.001) THEN + kpp_3d_fields(ngrid)%flx_ust(i,j) = flx1 + kpp_3d_fields(ngrid)%flx_vst(i,j) = flx2 + kpp_3d_fields(ngrid)%flx_nsw(i,j) = flx3 + kpp_3d_fields(ngrid)%flx_nlw(i,j) = flx4 + kpp_3d_fields(ngrid)%flx_ice(i,j) = flx5 + kpp_3d_fields(ngrid)%flx_pcp(i,j) = flx6 + ENDIF + + !Start storing mean SFLUX after initialization + IF (time .gt. 0.001) THEN + !Zonal wind stress + kpp_3d_fields(ngrid)%flx_ust(i,j) = flx1 * dtlt/FRQKPP + & + kpp_3d_fields(ngrid)%flx_ust(i,j) + !Meridional wind stress + kpp_3d_fields(ngrid)%flx_vst(i,j) = flx2 * dtlt/FRQKPP + & + kpp_3d_fields(ngrid)%flx_vst(i,j) + !Net downward shortwave flux + kpp_3d_fields(ngrid)%flx_nsw(i,j) = flx3 * dtlt/FRQKPP + & + kpp_3d_fields(ngrid)%flx_nsw(i,j) + !Net downward longwave flux + kpp_3d_fields(ngrid)%flx_nlw(i,j) = flx4 * dtlt/FRQKPP + & + kpp_3d_fields(ngrid)%flx_nlw(i,j) + !Melting of sea ice = 0.0 + kpp_3d_fields(ngrid)%flx_ice(i,j) = flx5 + !Precipitation minus evaporation + kpp_3d_fields(ngrid)%flx_pcp(i,j) = flx6 * dtlt/FRQKPP + & + kpp_3d_fields(ngrid)%flx_pcp(i,j) + ENDIF + + !Run KPP if a coupling timestep and not initialization + IF (mod(time+0.001,frqkpp) .lt. dtlt) THEN + !Proceed if RAMS LEAF3 has determine this to be an ocean point. + !We allow coastal grid cells with partial ocean. + IF (nint(leaf_g(ngrid)%leaf_class(i,j,1)) == 0. .and. & + leaf_g(ngrid)%patch_area(i,j,1) > 0.50) THEN !Saleeby(2018) + !Copy 3D fields stored arrays to temporary 1D column for physics + CALL MCKPP_FIELDS_3Dto1D (kpp_3d_fields(ngrid),kpp_1d_fields,i,j) + !Run physics ocean timestep + CALL MCKPP_PHYSICS_OCNSTEP (kpp_1d_fields,kpp_const_fields,i,j) + !Enforced overrides + CALL MCKPP_OVERRIDES_PROFILE (kpp_1d_fields,kpp_const_fields,i,j) + !Force bottom layer temperature to observations "bottomt" + CALL MCKPP_OVERRIDES_BOTTOMTEMP (kpp_1d_fields,kpp_const_fields,i,j) + !Copy 1D updated fields from physics to 3D stored arrays + CALL MCKPP_FIELDS_1Dto3D (kpp_1d_fields,kpp_3d_fields(ngrid),i,j) + + !Output SST back to RAMS (X_t is in celcius already) + !For now, setting top level ocean model temperature to SST + leaf_g(ngrid)%soil_energy(nzg,i,j,1) = & + 334000. + 4186. * kpp_3d_fields(ngrid)%X_t(1,i,j) + ENDIF + !Reset surface fluxes to zero at all grid cells, not just ocean + kpp_3d_fields(ngrid)%flx_ust(i,j)=0. + kpp_3d_fields(ngrid)%flx_vst(i,j)=0. + kpp_3d_fields(ngrid)%flx_nsw(i,j)=0. + kpp_3d_fields(ngrid)%flx_nlw(i,j)=0. + kpp_3d_fields(ngrid)%flx_ice(i,j)=0. + kpp_3d_fields(ngrid)%flx_pcp(i,j)=0. + ENDIF + + !Set sub-domain maximum to help get total domain max HMIX + !for printing to standard output to screen. + if(kpp_3d_fields(ngrid)%hmix(i,j) .gt. hmixdepth(ngrid)) & + hmixdepth(ngrid) = kpp_3d_fields(ngrid)%hmix(i,j) + + enddo +enddo + +return +END SUBROUTINE mckpp_ocean_mixing + diff --git a/src/6.2.16/kpp/kpp_typexfer.f90 b/src/6.2.16/kpp/kpp_typexfer.f90 new file mode 100644 index 0000000..549148f --- /dev/null +++ b/src/6.2.16/kpp/kpp_typexfer.f90 @@ -0,0 +1,150 @@ +!############################################################################## +Subroutine mckpp_fields_3dto1d (kpp_fields_3d,kpp_fields_1d,i,j) + +use mem_kpp, only:kpp_3d_type,kpp_1d_type +use kpp_parameters, only:kppNZ,kppNZP1,kpprnt,iprnt,jprnt +use node_mod, only:mi0,mj0 +use mem_grid, only:ngrid + +implicit none + +!Accepts a 3D variable of the KPP derived type. +!Returns a 1D variable of the KPP derived type, extracted from the 3D variable +!at a specified i,j. +!Variables are labeled as: +!(H) = needs to be in analysis file for restart (never re-initialize) +!(init) = static initializations from RAMS/KPP +!(update) = fields that are updated over time, such as SST + + TYPE(kpp_3d_type),intent(in) :: kpp_fields_3d + TYPE(kpp_1d_type),intent(out) :: kpp_fields_1d + INTEGER :: f,k,i,j,m,p + + !2D fields set by RAMS + kpp_fields_1d%Sref = kpp_fields_3d%Sref(i,j) !Set At Initial (H) + kpp_fields_1d%jerlov = nint(kpp_fields_3d%jerlov(i,j)) !Set by RAMS (init) + kpp_fields_1d%ocdepth = kpp_fields_3d%ocdepth(i,j) !Set by RAMS (init) + kpp_fields_1d%f = kpp_fields_3d%f(i,j) !Set by RAMS (init) + kpp_fields_1d%bottomt = kpp_fields_3d%bottomt(i,j) !Set by RAMS (update) + kpp_fields_1d%SST0 = kpp_fields_3d%SST0(i,j) !Set by RAMS (update) + kpp_fields_1d%old = nint(kpp_fields_3d%old(i,j)) !prognostic (H) + kpp_fields_1d%new = nint(kpp_fields_3d%new(i,j)) !prognostic (H) + !Insert surface level fluxes to ocean model variables + kpp_fields_1d%sflux(1) = kpp_fields_3d%flx_ust(i,j) !Set by RAMS (update) + kpp_fields_1d%sflux(2) = kpp_fields_3d%flx_vst(i,j) !Set by RAMS (update) + kpp_fields_1d%sflux(3) = kpp_fields_3d%flx_nsw(i,j) !Set by RAMS (update) + kpp_fields_1d%sflux(4) = kpp_fields_3d%flx_nlw(i,j) !Set by RAMS (update) + kpp_fields_1d%sflux(5) = kpp_fields_3d%flx_ice(i,j) !Set by RAMS (update) + kpp_fields_1d%sflux(6) = kpp_fields_3d%flx_pcp(i,j) !Set by RAMS (update) + + !Fluxes across DM interfaces + DO k=0,kppNZ + kpp_fields_1d%swdk_opt(k) = kpp_fields_3d%swdk_opt(k+1,i,j) !Set by RAMS (init) + ENDDO + + !Fields set at ZM grid center levels + DO k=1,kppNZP1 + kpp_fields_1d%U_init(k,1) = kpp_fields_3d%U_init(k,i,j) !Set At Initial (H) + kpp_fields_1d%U_init(k,2) = kpp_fields_3d%V_init(k,i,j) !Set At Initial (H) + kpp_fields_1d%swfrac(k) = kpp_fields_3d%swfrac(k,i,j) !Set by RAMS (init) + kpp_fields_1d%sal_clim(k) = kpp_fields_3d%sal_clim(k,i,j) !Set by RAMS (update) + kpp_fields_1d%ocnT_clim(k) = kpp_fields_3d%ocnT_clim(k,i,j) !Set by RAMS (update) + kpp_fields_1d%U(k,1) = kpp_fields_3d%U(k,i,j) !prognostic (H) + kpp_fields_1d%U(k,2) = kpp_fields_3d%V(k,i,j) !prognostic (H) + kpp_fields_1d%Us(k,1,0) = kpp_fields_3d%Us0(k,i,j) !prognostic (H) + kpp_fields_1d%Us(k,1,1) = kpp_fields_3d%Us1(k,i,j) !prognostic (H) + kpp_fields_1d%Us(k,2,0) = kpp_fields_3d%Vs0(k,i,j) !prognostic (H) + kpp_fields_1d%Us(k,2,1) = kpp_fields_3d%Vs1(k,i,j) !prognostic (H) + kpp_fields_1d%X(k,1) = kpp_fields_3d%X_t(k,i,j) !prognostic (H) + kpp_fields_1d%X(k,2) = kpp_fields_3d%X_s(k,i,j) !prognostic (H) + kpp_fields_1d%Xs(k,1,0) = kpp_fields_3d%Xs_t0(k,i,j) !prognostic (H) + kpp_fields_1d%Xs(k,1,1) = kpp_fields_3d%Xs_t1(k,i,j) !prognostic (H) + kpp_fields_1d%Xs(k,2,0) = kpp_fields_3d%Xs_s0(k,i,j) !prognostic (H) + kpp_fields_1d%Xs(k,2,1) = kpp_fields_3d%Xs_s1(k,i,j) !prognostic (H) + ENDDO + + !Print some things for debugging (Saleeby2018) + if(i+mi0(ngrid)==iprnt.and.j+mj0(ngrid)==jprnt.and.KPPRNT==1) then + print*,'SFLUX-1-3',kpp_fields_1d%sflux(1),kpp_fields_1d%sflux(2) & + ,kpp_fields_1d%sflux(3) + print*,'SFLUX-4-6',kpp_fields_1d%sflux(4),kpp_fields_1d%sflux(5) & + ,kpp_fields_1d%sflux(6) + endif + +return +END SUBROUTINE mckpp_fields_3dto1d + +!############################################################################## +Subroutine mckpp_fields_1dto3d (kpp_fields_1d,kpp_fields_3d,i,j) + +use mem_kpp, only: kpp_1d_type,kpp_3d_type +use kpp_parameters, only:kppNZ,kppNZP1,kpprnt,iprnt,jprnt,ikpp +use node_mod, only:mi0,mj0 +use mem_grid, only:ngrid,time + +implicit none + + TYPE(kpp_3d_type),intent(inout) :: kpp_fields_3d + TYPE(kpp_1d_type),intent(in) :: kpp_fields_1d + INTEGER :: f,k,i,j,m,p + + kpp_fields_3d%old(i,j) = nint(kpp_fields_1d%old) !prognostic (H) + kpp_fields_3d%new(i,j) = nint(kpp_fields_1d%new) !prognostic (H) + kpp_fields_3d%hmix(i,j) = kpp_fields_1d%hmix !DIAGNOSTIC + kpp_fields_3d%freez_flag(i,j) = kpp_fields_1d%freez_flag !DIAGNOSTIC + kpp_fields_3d%reset_flag(i,j) = kpp_fields_1d%reset_flag !DIAGNOSTIC + + !Print some things for debugging (Saleeby2018) + if(i+mi0(ngrid)==iprnt.and.j+mj0(ngrid)==jprnt.and.KPPRNT==1) then + print*,'HMIX',time,kpp_fields_1d%hmix,kpp_fields_1d%kmix,kpp_fields_1d%Tref + endif + + DO k=0,kppNZ + if(IKPP==2)then !Fluxes + kpp_fields_3d%wB(k+1,i,j) = kpp_fields_1d%wB(k) !DIAGNOSTIC + kpp_fields_3d%wXNTt(k+1,i,j) = kpp_fields_1d%wXNT(k) !DIAGNOSTIC + kpp_fields_3d%wU(k+1,i,j) = kpp_fields_1d%wU(k,1) !DIAGNOSTIC + kpp_fields_3d%wV(k+1,i,j) = kpp_fields_1d%wU(k,2) !DIAGNOSTIC + kpp_fields_3d%wXt(k+1,i,j) = kpp_fields_1d%wX(k,1) !DIAGNOSTIC + kpp_fields_3d%wXs(k+1,i,j) = kpp_fields_1d%wX(k,2) !DIAGNOSTIC + endif + !Print some things for debugging (Saleeby2018) + if(i+mi0(ngrid)==iprnt.and.j+mj0(ngrid)==jprnt.and.KPPRNT==1.and.k<=5) then + print*,'WX',kpp_fields_1d%wX(k,1),kpp_fields_1d%wX(k,2),kpp_fields_1d%wB(k) + endif + ENDDO + + DO k=1,kppNZP1 + if(IKPP==2)then + kpp_fields_3d%tinc_fcorr(k,i,j) = kpp_fields_1d%tinc_fcorr(k) !DIAGNOSTIC + kpp_fields_3d%sinc_fcorr(k,i,j) = kpp_fields_1d%sinc_fcorr(k) !DIAGNOSTIC + kpp_fields_3d%rho(k,i,j) = kpp_fields_1d%rho(k) !DIAGNOSTIC + kpp_fields_3d%cp(k,i,j) = kpp_fields_1d%cp(k) !DIAGNOSTIC + endif + kpp_fields_3d%buoy(k,i,j) = kpp_fields_1d%buoy(k) !DIAGNOSTIC + kpp_fields_3d%U(k,i,j) = kpp_fields_1d%U(k,1) !prognostic (H) + kpp_fields_3d%V(k,i,j) = kpp_fields_1d%U(k,2) !prognostic (H) + kpp_fields_3d%Us0(k,i,j) = kpp_fields_1d%Us(k,1,0) !prognostic (H) + kpp_fields_3d%Us1(k,i,j) = kpp_fields_1d%Us(k,1,1) !prognostic (H) + kpp_fields_3d%Vs0(k,i,j) = kpp_fields_1d%Us(k,2,0) !prognostic (H) + kpp_fields_3d%Vs1(k,i,j) = kpp_fields_1d%Us(k,2,1) !prognostic (H) + kpp_fields_3d%X_t(k,i,j) = kpp_fields_1d%X(k,1) !prognostic (H) + kpp_fields_3d%X_s(k,i,j) = kpp_fields_1d%X(k,2) !prognostic (H) + kpp_fields_3d%Xs_t0(k,i,j) = kpp_fields_1d%Xs(k,1,0) !prognostic (H) + kpp_fields_3d%Xs_t1(k,i,j) = kpp_fields_1d%Xs(k,1,1) !prognostic (H) + kpp_fields_3d%Xs_s0(k,i,j) = kpp_fields_1d%Xs(k,2,0) !prognostic (H) + kpp_fields_3d%Xs_s1(k,i,j) = kpp_fields_1d%Xs(k,2,1) !prognostic (H) + !Print some things for debugging (Saleeby2018) + if(i+mi0(ngrid)==iprnt.and.j+mj0(ngrid)==jprnt.and.KPPRNT==1.and.k<=5) then + print*,'oceanT',kpp_fields_1d%X(k,1),kpp_fields_1d%buoy(k),kpp_fields_1d%Rig(k) + endif + ENDDO + + DO k=1,kppNZP1,2 + if(i+mi0(ngrid)==iprnt.and.j+mj0(ngrid)==jprnt.and.KPPRNT==2.and.k<=20) then + print*,'oceanT',k,kpp_fields_1d%X(k,1),kpp_fields_1d%X(k,2)+kpp_fields_1d%Sref + endif + ENDDO +return +END SUBROUTINE mckpp_fields_1dto3d + diff --git a/src/6.2.16/lib/an_header.f90 b/src/6.2.16/lib/an_header.f90 new file mode 100644 index 0000000..c481905 --- /dev/null +++ b/src/6.2.16/lib/an_header.f90 @@ -0,0 +1,14 @@ +!############################################################################## +Module an_header + +implicit none + +type head_table + character(len=32) :: string + integer :: npointer,idim_type,ngrid,nvalues +end type + +type (head_table), allocatable :: anal_table(:) +integer :: nvbtab + +END MODULE an_header diff --git a/src/6.2.16/lib/charutils.f90 b/src/6.2.16/lib/charutils.f90 new file mode 100644 index 0000000..4673f36 --- /dev/null +++ b/src/6.2.16/lib/charutils.f90 @@ -0,0 +1,277 @@ +!############################################################################## +Subroutine deblank (str1,str2,nch) + +implicit none + +character(len=*) :: str1,str2 +integer :: n,ln,nch + +! strips blanks from a string and returns number of chars + +str2=' ' +ln=len(str1) +nch=0 +do n=1,ln + if(str1(n:n).ne.' ') then + nch=nch+1 + str2(nch:nch)=str1(n:n) + endif +enddo + +return +END SUBROUTINE deblank + +!############################################################################## +integer Function lastslash (str) + +implicit none + +character(len=*) :: str +integer :: n,ln + +! returns last slash character position from a string + +ln=len(str) +do n=ln,1,-1 + if(str(n:n).eq.'/') then + lastslash = n + return + endif +enddo +lastslash = 0 + +return +END FUNCTION lastslash + +!############################################################################## +Subroutine char_strip_var (line,var,line2) + +implicit none + +character(len=*) :: line,var,line2 +integer :: nn,ncl,nb + +! removes instances of a substring from a string + +nb=0 +ncl=len(line) +do nn=1,ncl + if(line(nn:nn).ne.' ') then + nb=index(line(nn:),' ') + var=line(nn:nn+nb-1) + goto 25 + endif +enddo +25 continue +line2=line(nn+nb-1:) + +return +END SUBROUTINE char_strip_var + +!############################################################################## +Subroutine parse (str,tokens,ntok) + +implicit none + +integer :: ntok +character(len=*) :: str,tokens(*) +character(len=1) :: sep +integer, parameter :: ntokmax=100 +integer :: n,nc,npt,nch,ntbeg,ntend + +! this routine "parses" character string str into different pieces +! or tokens by looking for possible token separators (toks +! str contains nch characters. the number of tokens identified is nto +! the character string tokens are stored in tokens. + +sep=' ' +ntok=0 +npt=1 +nch=len_trim(str) +nc=1 +ntbeg=0 +ntend=0 +do ntok=1,ntokmax + do n=nc,nch + if(str(n:n) /= sep) then + ntbeg=n + exit + endif + enddo + + do n=ntbeg,nch + if(str(n:n) == sep .or. str(n:n) == char(10)) then ! look for \n also + ntend=n-1 + goto 22 + endif + if(n == nch) then + ntend=n + exit + endif + enddo + 22 continue + if(ntbeg==0.or.ntend==0) stop 'Error in PARSE routine' + tokens(ntok)=str(ntbeg:ntend) + nc=ntend+1 + if(nc >= nch) goto 25 +enddo + +25 continue + +return +END SUBROUTINE parse + +!############################################################################## +Subroutine tokenize1 (str1,tokens,ntok,toksep) + +use grid_dims + +implicit none + +integer :: ntok +character(len=*) :: str1,tokens(*) +character(len=1) :: toksep +character(len=strl1) :: str +integer :: nch,ist,npt,nc + +! this routine "parses" character string str into different pieces +! or tokens by looking for possible token separators (toks +! str contains nch characters. the number of tokens identified is nto +! the character string tokens are stored in tokens. + +CALL deblank (str1,str,nch) + +ist=1 +if(str(1:1) == toksep) ist=2 +npt=ist +ntok=0 +do nc=ist,nch + if(str(nc:nc) == toksep .or. nc == nch) then + if(nc-npt >= 0) then + ntok=ntok+1 + tokens(ntok)=str(npt:nc-1) + if(nc == nch .and. str(nc:nc) /= toksep) then + tokens(ntok)=str(npt:nc) + !print*,'ttttttttttt2:',ntok,npt,nc,tokens(ntok) + exit + endif + npt=nc+1 + elseif(nc == nch) then + ntok=ntok+1 + tokens(ntok)=str(npt:nc) + exit + endif + endif +enddo + +return +END SUBROUTINE tokenize1 + +!############################################################################## +Subroutine tokenize2 (str,tokens,ntok,toksep) + +implicit none + +integer :: ntok +character(len=*) :: str,tokens(*) +character(len=1) :: toksep +integer :: nch,ist,npt,nc + +! same as tokenize1, but doesn't deblank the string + +str = adjustl(str) +nch = len_trim(str) + +ist=1 +if(str(1:1) == toksep) ist=2 +npt=ist +ntok=0 +do nc=ist,nch + if(str(nc:nc) == toksep .or. nc == nch) then + if(nc-npt >= 0) then + ntok=ntok+1 + tokens(ntok)=str(npt:nc-1) + if(nc == nch .and. str(nc:nc) /= toksep) then + tokens(ntok)=str(npt:nc) + exit + endif + npt=nc+1 + elseif(nc == nch) then + ntok=ntok+1 + tokens(ntok)=str(npt:nc) + exit + endif + endif +enddo + +return +END SUBROUTINE tokenize2 + +!############################################################################## +integer Function letter (str) + +implicit none + +character(len=*) :: str + +! First character alpha check - test to see if the first character of +! the string STR is alphabetic: LETTER equals 0 if 'no', = 1 if 'yes'. + +letter = 0 +if((str(1:1).ge.'A'.and.str(1:1).le.'Z').or. & + (str(1:1).ge.'a'.and.str(1:1).le.'z')) letter = 1 + +return +END FUNCTION letter + +!############################################################################## +integer Function numberchk (str) + +implicit none + +character(len=*) :: str + +! First character number check - test to see if the first character of +! the string STR is numeric: NUMBER equals 0 if 'no', = 1 if 'yes' (includ +! a decimal point or minus sign). + +numberchk = 0 +if(str(1:1).ge.'0'.and.str(1:1).le.'9') numberchk = 1 +if(str(1:1).eq.'.'.or.str(1:1).eq.'-') numberchk = 1 + +return +END FUNCTION numberchk + +!############################################################################## +integer Function letint (str) + +implicit none + +character(len=*) :: str + +! First character integer variable check - test to see if the first +! character of STR is an I, J, K, L, M, or N, or i, j, k, l ,m or n: +! LETINT equals 0 if 'no', = 1 if 'yes' + +letint = 0 +if((str(1:1).ge.'I'.and.str(1:1).le.'N').or. & + (str(1:1).ge.'i'.and.str(1:1).le.'n')) letint = 1 + +return +END FUNCTION letint + +!############################################################################## +integer Function letquo (str) + +implicit none + +character(len=*) :: str + +! First character quote check - test to see if the first character +! of STR is a quote: LETQUO equals 0 if 'no', = 1 if 'yes'. + +letquo = 0 +if(str(1:1).eq.'''') letquo = 1 + +return +END FUNCTION letquo diff --git a/src/6.2.16/lib/dateutils.f90 b/src/6.2.16/lib/dateutils.f90 new file mode 100644 index 0000000..3d769b8 --- /dev/null +++ b/src/6.2.16/lib/dateutils.f90 @@ -0,0 +1,362 @@ +!############################################################################## +Subroutine date_abs_secs (indate1,seconds) + +implicit none + +character(len=14) :: indate1 +real(kind=8) :: seconds + +! compute number of seconds past 1 January 1900 12:00 am + +real(kind=8) :: s1,s2,s3,s4 +integer :: year1,month1,date1,hour1,iy,ndays +integer, external :: julday + +CALL date_unmake_big (year1,month1,date1,hour1,indate1) + +iy = year1 - 1900 +ndays = iy * 365 + (iy-1)/4 + julday(month1,date1,iy) +s1= dble(ndays) *86400. +s2= dble(hour1/10000)*3600. +s3= dble(mod(hour1,10000)/100)*60. +s4= dble(mod(hour1,100)) +seconds= s1+s2+s3+s4 + +return +END SUBROUTINE date_abs_secs + +!############################################################################## +Subroutine date_abs_secs2 (year1,month1,date1,hour1,seconds) + +implicit none + +real(kind=8) :: seconds + +! compute number of seconds past 1 January 1900 12:00 am + +real(kind=8) :: s1,s2,s3,s4 +integer :: year1,month1,date1,hour1,iy,ndays +integer, external :: julday + +iy = year1 - 1900 +ndays = iy * 365 + (iy-1)/4 + julday(month1,date1,iy) +s1= dble(ndays) *86400. +s2= dble(hour1/10000)*3600. +s3= dble(mod(hour1,10000)/100)*60. +s4= dble(mod(hour1,100)) +seconds= s1+s2+s3+s4 + +return +END SUBROUTINE date_abs_secs2 + +!############################################################################## +Subroutine date_secs_ymdt (seconds,iyear1,imonth1,idate1,ihour1) + +implicit none + +real(kind=8) :: seconds,s1 +integer :: iyear1,imonth1,idate1,ihour1 + +! compute real time given number of seconds past 1 January 1900 12:00 am + +integer :: ny,nyr,ileap,nm,ihr,imn,isc + +integer :: mondays(12) +data mondays/31,28,31,30,31,30,31,31,30,31,30,31/ + +! Get what year it is +nyr=0 +s1=seconds +do ny=0,10000 + ileap=0 + if(mod(1900+ny,4) == 0) ileap=1 + s1=s1-(365.+ileap)*86400. + if(s1 < 0.) then + nyr=ny + s1=s1+(365.+ileap)*86400. + exit + endif +enddo +iyear1=1900+nyr + +! s1 is now number of secs into the year +! Get month +do nm=1,12 + ileap=0 + if(mod(1900+ny,4) == 0 .and. nm == 2) ileap=1 + s1=s1-(mondays(nm)+ileap)*86400. + if(s1 < 0.) then + s1=s1+(mondays(nm)+ileap)*86400. + exit + endif +enddo +imonth1=nm + +! s1 is now number of secs into the month +! Get date and time + +idate1=int(s1/86400.) +s1=s1-idate1*86400. +idate1=idate1+1 ! Since date starts at 1 + +ihr=int(s1/3600.) +s1=s1-ihr*3600. +imn=int(s1/60.) +s1=s1-imn*60. +isc=s1 +ihour1=ihr*10000+imn*100+isc + +return +END SUBROUTINE date_secs_ymdt + +!############################################################################## +Subroutine date_add_to_big (cindate,tinc,tunits,coutdate) + +implicit none + +character(len=14) :: cindate,coutdate +real :: tinc +character(len=1) :: tunits + +! adds/subtracts a time increment to a date and output new date +! -> uses hhmmss for hours, 4 digit year + +real(kind=8) :: ttinc,secs +integer :: inyear,inmonth,indate,inhour & + ,outyear,outmonth,outdate,outhour + +! convert input time to seconds + +ttinc=tinc +if(tunits.eq.'m') ttinc=tinc*60. +if(tunits.eq.'h') ttinc=tinc*3600. +if(tunits.eq.'d') ttinc=tinc*86400. +!print*,'inc:',tinc,tunits,ttinc +!print*,'big:',cindate +CALL date_unmake_big (inyear,inmonth,indate,inhour,cindate) +!print*,'big:',inyear,inmonth,indate,inhour +CALL date_abs_secs2 (inyear,inmonth,indate,inhour,secs) + +!print*,'big:',secs,ttinc +secs=secs+ttinc + +CALL date_secs_ymdt (secs,outyear,outmonth,outdate,outhour) +!print*,'big:',outyear,outmonth,outdate,outhour +CALL date_make_big (outyear,outmonth,outdate,outhour,coutdate) + +!print*,'out stuff:',coutdate +!stop + +return +END SUBROUTINE date_add_to_big + +!############################################################################## +Subroutine date_add_to (inyear,inmonth,indate,inhour & + ,tinc,tunits,outyear,outmonth,outdate,outhour) + +implicit none + +integer inyear,inmonth,indate,inhour & + ,outyear,outmonth,outdate,outhour +real tinc +character(len=1) :: tunits + +! adds/subtracts a time increment to a date and output new date +! -> uses hhmmss for hours, 4 digit year + + +real(kind=8) :: ttinc,secs + +! convert input time to seconds + +ttinc=tinc +if(tunits.eq.'m') ttinc=tinc*60. +if(tunits.eq.'h') ttinc=tinc*3600. +if(tunits.eq.'d') ttinc=tinc*86400. +!print*,'inc:',tinc,tunits,ttinc + + +CALL date_abs_secs2 (inyear,inmonth,indate,inhour,secs) + +secs=secs+ttinc + +CALL date_secs_ymdt (secs,outyear,outmonth,outdate,outhour) + +!print*,'out stuff:',outyear,outmonth,outdate,outhour + +return +END SUBROUTINE date_add_to + +!############################################################################## +Subroutine date_make_big (inyear,inmonth,indate,inhour,outdate) + +implicit none + +integer :: inyear,inmonth,indate,inhour +character(len=14) :: outdate + +write(outdate(1:4),10) inyear +write(outdate(5:6),11) inmonth +write(outdate(7:8),11) indate +write(outdate(9:14),12) inhour +10 format (i4.4) +11 format (i2.2) +12 format (i6.6) + +return +END SUBROUTINE date_make_big + +!############################################################################## +Subroutine date_unmake_big (inyear,inmonth,indate,inhour,outdate) + +implicit none + +integer :: inyear,inmonth,indate,inhour +character(len=14) :: outdate + +read(outdate(1:4),10) inyear +read(outdate(5:6),11) inmonth +read(outdate(7:8),11) indate +read(outdate(9:14),12) inhour +10 format (i4) +11 format (i2) +12 format (i6) + +return +END SUBROUTINE date_unmake_big + +!############################################################################## +Subroutine rams_dintsort (ni,chnums,cstr) + +use grid_dims + +implicit none + +integer :: ni +character(len=14) :: chnums(*) +character(len=*) :: cstr(*) + +! sort an array of character strings by an associated character field + +character(len=strl1) :: cscr +character(len=14) :: mini,nscr + +integer :: n,nm,nmm + +nmm=0 +do n=1,ni + mini='99999999999999' + do nm=n,ni + if(chnums(nm).lt.mini) then + nmm=nm + mini=chnums(nm) + endif + enddo + nscr=chnums(n) + chnums(n)=chnums(nmm) + chnums(nmm)=nscr + cscr=cstr(n) + cstr(n)=cstr(nmm) + cstr(nmm)=cscr +enddo + +return +END SUBROUTINE rams_dintsort + +!############################################################################## +Subroutine rams_sort_dint3 (n1,ia1,n2,ia2,n3,ia3,nt,iall) + +implicit none + +integer :: n1,n2,n3,nt +character(len=14) :: ia1(*),ia2(*),ia3(*),iall(*) + +! sort 3 arrays of char's, put back in 1 array +! copy all to output array + +character(len=14) :: mini,nscr +integer :: n,nm,nmm + +nmm=0 +nt=0 +do n=1,n1 + nt=nt+1 + iall(nt)=ia1(n) +enddo +do n=1,n2 + nt=nt+1 + iall(nt)=ia2(n) +enddo +do n=1,n3 + nt=nt+1 + iall(nt)=ia3(n) +enddo + +do n=1,nt + mini='99999999999999' + do nm=n,nt + if(iall(nm).lt.mini) then + nmm=nm + mini=iall(nm) + endif + enddo + nscr=iall(n) + iall(n)=iall(nmm) + iall(nmm)=nscr +enddo + +return +END SUBROUTINE rams_sort_dint3 + +!############################################################################## +Subroutine rams_unique_dint (n1,ia1) + +implicit none + +integer :: n1 +character(len=14) :: ia1(*) +integer :: n,nt,nn + +! reduce an array to get rid of duplicate entries + +nt=n1 +10 continue +do n=2,nt + if(ia1(n).eq.ia1(n-1)) then + do nn=n,nt + ia1(nn-1)=ia1(nn) + enddo + nt=nt-1 + goto 10 + endif +enddo +n1=nt + +return +END SUBROUTINE rams_unique_dint + +!############################################################################## +integer Function julday (imonth,iday,iyear) + +implicit none + +integer :: imonth,iday,iyear + +! compute the julian day from a normal date + +julday = iday & + + min(1,max(0,imonth-1))*31 & + + min(1,max(0,imonth-2))*(28+(1-min(1,mod(iyear,4)))) & + + min(1,max(0,imonth-3))*31 & + + min(1,max(0,imonth-4))*30 & + + min(1,max(0,imonth-5))*31 & + + min(1,max(0,imonth-6))*30 & + + min(1,max(0,imonth-7))*31 & + + min(1,max(0,imonth-8))*31 & + + min(1,max(0,imonth-9))*30 & + + min(1,max(0,imonth-10))*31 & + + min(1,max(0,imonth-11))*30 & + + min(1,max(0,imonth-12))*31 + +return +END FUNCTION julday diff --git a/src/6.2.16/lib/griber_grb1.c b/src/6.2.16/lib/griber_grb1.c new file mode 100644 index 0000000..b42e69f --- /dev/null +++ b/src/6.2.16/lib/griber_grb1.c @@ -0,0 +1,366 @@ +#include "sub_gribnames.h" + +#include +#include +#include + +/**********************************************************************/ +#define BUFSIZE 2000000 +#define MAXLINES 40000 +#define CMDLEN 512 +#define miss -999 +#define amiss -999. + +static char gribfile[CMDLEN]; + +static int i,nlines; +static char cmd[CMDLEN], buf[BUFSIZE], *lines[MAXLINES]; +static FILE *pipe; + +static char projection[15], funit[4]; +static int bigdate, rec, pos; +static int center,subcenter,process,table; +static float la1=amiss, lo1=amiss, orient=amiss, lov=amiss, latin1=amiss + ,latin2=amiss, dx=amiss, dy=amiss; +static float la2=amiss, lo2=amiss; +static int rnum=miss,rpos=miss,kpds5=miss,kpds6=miss,kpds7=miss + ,grid=miss,nx=miss,ny=miss,mode=miss,scan=miss,nrec=-1 + ,irecs[MAXLINES],levs[MAXLINES],ifhrs[MAXLINES] + ,idates[MAXLINES]; +static char var[10],lev[20],typ[20],req[20],fields[MAXLINES][20]; + +static char *progname="dummy"; + +/**********************************************************************/ +/**** Saleeby (3-16-06) Add Variables here that you need to extract ***/ +/**********************************************************************/ +static char *vars[]= {":GP:",":UGRD:",":VGRD:",":TMP:",":HGT:",":RH:" + ,":Z:",":U:",":V:",":T:",":R:",":Q:" + ,":WEASD:",":SNOD:",":SOILW:",":TSOIL:",":VSOILM:" + ,":SPFH:",":PRMSL:",":PRES:",":WTMP:",":SWVL1:" + ,":SWVL2:",":STL1:",":STL2:",":SD:",NULL}; + + void grib_queryproj (); + void grib_queryfield (); + +/**********************************************************************/ + void grib_query (char *filein, int fileinlen) { + +/* Initialize the integer arrays returned to fortran */ +for (i=1; i<=MAXLINES; i++) { + irecs[i] =miss; + levs[i] =miss; + ifhrs[i] =miss; + idates[i]=miss; +} + +/* Add a null character to force string termination */ +filein[fileinlen]='\0'; + +strncpy(gribfile,filein,fileinlen); + +grib_queryproj (); + +grib_queryfield (); + +} + +/**********************************************************************/ + void grib_queryc (char *req, char *ret, int reqlen, int retlen) { + +if (!strncmp(req,"projection",reqlen)) { + memset(ret,' ',retlen); + strncpy(ret,projection,strlen(projection)); +} else if (!strncmp(req,"funit",reqlen)) { + memset(ret,' ',retlen); + strncpy(ret,funit,strlen(funit)); +} else if (!strncmp(req,"fields",reqlen)) { + for (i=0; i= BUFSIZE) {*/ + /* Read the wgrib Verbose description of the first 1000 bytes which + is long enough to contain the first record's info */ + if (fread(buf, 1, 1000, pipe) >= BUFSIZE) { + fprintf(stderr,"Maximum BUFSIZE exceeded\n"); + fprintf(stderr,"Increase BUFSIZE in grib_query\n"); + /*exit(1); Saleeby, Problem with exits in compile*/ + } + + /* split into "lines" */ + i=0; + nlines=1; + lines[i++]=strtok(buf,"\n"); + while ( (lines[i++] = strtok(NULL,"\n")) != NULL) { + nlines++; + if (nlines > MAXLINES) { + fprintf(stderr,"Maximum MAXLINES exceeded\n"); + fprintf(stderr,"Increase MAXLINES in grib_query\n"); + /*exit(1);*/ + } + } + printf("%i: %s\n",0,lines[0]); + printf("%i: %s\n",1,lines[1]); + printf("%i: %s\n",2,lines[2]); + printf("%i: %s\n",3,lines[3]); + printf("%i: %s\n",4,lines[4]); + printf("%i: %s\n",5,lines[5]); + printf("%i: %s\n",6,lines[6]); + printf("%i: %s\n",7,lines[7]); + printf("%i: %s\n",8,lines[8]); + printf("%i: %s\n",9,lines[9]); + printf("%i: %s\n",10,lines[10]); + + /* Parse the projection information */ + sscanf(lines[0],"rec %d:%d:date %d %s kpds5=%d kpds6=%d kpds7=%d %*[^ ] grid=%d" + ,&rec,&pos,&bigdate,var,&kpds5,&kpds6,&kpds7,&grid); + sscanf(lines[2]," timerange %*d P1 %*d P2 %*d TimeU %*d nx %d ny %d" + ,&nx,&ny); + sscanf(lines[3]," center %d subcenter %d process %d Table %d" + ,¢er,&subcenter,&process,&table); + sscanf(lines[4]," %[^:]",projection); + + /*** + printf(" Date:%d Projection:%s\n",bigdate,projection); + printf(" kpds5:%d\n",kpds5); + printf(" kpds6:%d\n",kpds6); + printf(" kpds7:%d\n",kpds7); + printf(" grid:%d\n",grid); + printf(" nx:%d\n",nx); + printf(" ny:%d\n",ny); + printf(" center:%d\n",center); + printf(" subcenter:%d\n",subcenter); + printf(" process:%d\n",process); + printf(" table:%d\n",table); + ***/ + + if (!strncmp(projection,"polar",5)) { + sscanf(lines[4],"%*[^:]: Lat1 %f Long1 %f Orient %f",&la1,&lo1,&orient); + sscanf(lines[5]," %*s %*s (%*d x %*d) Dx %f Dy %f scan %d",&dx,&dy,&scan); + /* Assume the mode is 8 */ + mode=8; + } + + if (!strncmp(projection,"Lambert Conf",12)) { + sscanf(lines[4],"%*[^:]: Lat1 %f Lon1 %f Lov %f",&la1,&lo1,&lov); + sscanf(lines[5]," Latin1 %f Latin2 %f",&latin1,&latin2); + sscanf(lines[6]," %*s %*s (%*d x %*d) Dx %f Dy %f scan %d mode %d",&dx,&dy,&scan,&mode); + } + + if (!strncmp(projection,"latlon",12)) { + sscanf(lines[4]," %*[^:]: lat %f to %f by %f",&la1,&la2,&dx); + sscanf(lines[5]," long %f to %f by %f, (%*d x %*d) scan %d mode %d" + ,&lo1,&lo2,&dy,&scan,&mode); + } + +} +pclose(pipe); + +} + +/**********************************************************************/ + void grib_queryfield () { + +int k; +char *var; +char fhr[20]; +int num,rec,plev; + +sprintf(cmd,"./rams_wgrib -s %s",gribfile); + +if ((pipe = popen(cmd, "r")) != NULL) { + + /* Read the wgrib short description of the first record */ + if (fread(buf, 1, BUFSIZE, pipe) >= BUFSIZE) { + fprintf(stderr,"Maximum BUFSIZE exceeded\n"); + fprintf(stderr,"Increase BUFSIZE in grib_query\n"); + /*exit(1);*/ + } + /*printf("done\n");*/ + + /* split into "lines" */ + i=0; + nlines=1; + lines[i++]=strtok(buf,"\n"); + while ( (lines[i++] = strtok(NULL,"\n")) != NULL) { + nlines++; + if (nlines > MAXLINES) { + fprintf(stderr,"Maximum MAXLINES exceeded\n"); + fprintf(stderr,"Increase MAXLINES in grib_query\n"); + /*exit(1);*/ + } + } + + /* Loop through each grib inventory record */ + for (i=0; i +#include +#include +#include + +/**********************************************************************/ +#define BUFSIZE 2000000 +#define MAXLINES 40000 +#define CMDLEN 512 +#define miss -999 +#define amiss -999. + +static char gribfile[CMDLEN]; + +static int i,nlines; +static char cmd[CMDLEN], buf[BUFSIZE], *lines[MAXLINES]; +static FILE *pipe; + +static char projection[25], funit[4]; +static int bigdate, rec, pos; +static int center,subcenter,process,table; +static float la1=amiss, lo1=amiss, orient=amiss, lov=amiss, latin1=amiss + ,latin2=amiss, latind=amiss, dx=amiss, dy=amiss; +static float la2=amiss, lo2=amiss, frecs[MAXLINES]; +static int rnum=miss,rpos=miss,kpds5=miss,kpds6=miss,kpds7=miss + ,grid=miss,nx=miss,ny=miss,mode=miss,scan=miss,nrec=-1 + ,levs[MAXLINES],ifhrs[MAXLINES] + ,idates[MAXLINES]; +static char var[10],lev[20],typ[20],req[20],fields[MAXLINES][20]; + +static char *progname="dummy"; + +/**********************************************************************/ +/**** Saleeby (3-16-06) Add Variables here that you need to extract ***/ +/**********************************************************************/ +static char *vars[]= {":GP:",":UGRD:",":VGRD:",":TMP:",":HGT:",":RH:" + ,":Z:",":R:",":T:",":U:",":V:",":Q:" + ,":WEASD:",":SNOD:",":SOILW:",":TSOIL:",":VSOILM:" + ,":SPFH:",":PRMSL:",":PRES:",":WTMP:",NULL}; + + void grib_queryproj (); + void grib_queryfield (); + +/**********************************************************************/ + void grib_query (char *filein, int fileinlen) { + +/* Initialize the integer arrays returned to fortran */ +for (i=1; i<=MAXLINES; i++) { + frecs[i] =amiss; + levs[i] =miss; + ifhrs[i] =miss; + idates[i]=miss; +} + +/* Add a null character to force string termination */ +filein[fileinlen]='\0'; + +strncpy(gribfile,filein,fileinlen); + +grib_queryproj (); + +grib_queryfield (); + +} + +/**********************************************************************/ + void grib_queryc (char *req, char *ret, int reqlen, int retlen) { + +if (!strncmp(req,"projection",reqlen)) { + memset(ret,' ',retlen); + strncpy(ret,projection,strlen(projection)); +} else if (!strncmp(req,"funit",reqlen)) { + memset(ret,' ',retlen); + strncpy(ret,funit,strlen(funit)); +} else if (!strncmp(req,"fields",reqlen)) { + for (i=0; i= BUFSIZE) {*/ + /* Read the wgrib Verbose description of the first 1000 bytes which + is long enough to contain the first record's info */ + if (fread(buf, 1, 1000, pipe) >= BUFSIZE) { + fprintf(stderr,"Maximum BUFSIZE exceeded\n"); + fprintf(stderr,"Increase BUFSIZE in grib_query\n"); + /*exit(1); Saleeby, Problem with exits in compile*/ + } + + /* split into "lines" */ + i=0; + nlines=1; + lines[i++]=strtok(buf,"\n"); + while ( (lines[i++] = strtok(NULL,"\n")) != NULL) { + nlines++; + if (nlines > MAXLINES) { + fprintf(stderr,"Maximum MAXLINES exceeded\n"); + fprintf(stderr,"Increase MAXLINES in grib_query\n"); + /*exit(1);*/ + } + } + printf("%i: %s\n",0,lines[0]); + printf("%i: %s\n",1,lines[1]); + printf("%i: %s\n",2,lines[2]); + printf("%i: %s\n",3,lines[3]); + printf("%i: %s\n",4,lines[4]); + printf("%i: %s\n",5,lines[5]); + printf("%i: %s\n",6,lines[6]); + printf("%i: %s\n",7,lines[7]); + + /* Parse the projection information */ + sscanf(lines[0],"%d:%d:vt=%d:%*[^:]:%*[^:]:%s" + ,&rec,&pos,&bigdate,var); + sscanf(lines[3]," %[^:]",projection); + + if (!strncmp(projection,"polar",5)) { + sscanf(lines[4],"%*[^:]: Lat1 %f Long1 %f Orient %f",&la1,&lo1,&orient); + sscanf(lines[5]," %*s %*s (%*d x %*d) Dx %f Dy %f scan %d",&dx,&dy,&scan); + /* Assume the mode is 8 */ + mode=8; + } + + if (!strncmp(projection,"Lambert",7)) { + sscanf(lines[4],"%*s %f %*s %f %*s %f",&la1,&lo1,&lov); + sscanf(lines[5],"%*s %f %*s %f %*s %f",&latind,&latin1,&latin2); + sscanf(lines[7],"%*s %*s (%d x %d) Dx %f m Dy %f m mode %d",&nx,&ny,&dx,&dy,&mode); + } + + if (!strncmp(projection,"lat-lon",7)) { + sscanf(lines[3]," %*[^:]:(%d x %d)",&nx,&ny); + sscanf(lines[4]," lat %f to %f by %f",&la1,&la2,&dx); + sscanf(lines[5]," lon %f to %f by %f",&lo1,&lo2,&dy); + /*printf("steve %d %d %d %s\n",la1,pos,bigdate,var);*/ + } + +} +pclose(pipe); + +} + +/**********************************************************************/ + void grib_queryfield () { + +int k; +char *var; +char fhr[20],sslev[20]; +int num,rec,plev,slev; +float flev; + +sprintf(cmd,"./wgrib2 -s %s",gribfile); + +if ((pipe = popen(cmd, "r")) != NULL) { + + /* Read the wgrib short description of the first record */ + if (fread(buf, 1, BUFSIZE, pipe) >= BUFSIZE) { + fprintf(stderr,"Maximum BUFSIZE exceeded\n"); + fprintf(stderr,"Increase BUFSIZE in grib_query\n"); + /*exit(1);*/ + } + + /* split into "lines" */ + i=0; + nlines=1; + lines[i++]=strtok(buf,"\n"); + while ( (lines[i++] = strtok(NULL,"\n")) != NULL) { + nlines++; + if (nlines > MAXLINES) { + fprintf(stderr,"Maximum MAXLINES exceeded\n"); + fprintf(stderr,"Increase MAXLINES in grib_query\n"); + /*exit(1);*/ + } + } + + /* Loop through each grib inventory record */ + for (i=0; i +#include +#include + +#include "utils_sub_names.h" + +#include "hdf5.h" + +// Size of temporary hsize_t arrays +#define HDF5_MAX_DIMS 10 + +// Prototypes for internal routines +hid_t fh5_set_hdf5_dtype (int type_code); + void fh5_convert_array (int n,int *i_array,hsize_t *h_array,char *dir); + +//************************** File routines *********************************** + +//**************************************************************************** + void fh5f_open (char *locfn,int *iaccess,int *iphdf5,int64_t *fileid,int *hdferr) + { + unsigned flags; + hid_t access_id; + hid_t fileid_h5 = (hid_t)(*fileid); + if (*iphdf5 == 1) + { +#if defined (RAMS_MPI) + // open a parallel file collectively + access_id = H5Pcreate (H5P_FILE_ACCESS); + H5Pset_fapl_mpio (access_id,MPI_COMM_WORLD,MPI_INFO_NULL); +#else + access_id = H5P_DEFAULT; +#endif + } + else + { + access_id = H5P_DEFAULT; + } + + if(*iaccess == 1) flags = H5F_ACC_RDONLY; + if(*iaccess == 2) flags = H5F_ACC_RDWR; + + fileid_h5 = H5Fopen (locfn,flags,access_id); + *fileid = (int64_t)fileid_h5; + //printf("fh5f_open_ - fileid: %d\n",*fileid); + if (*fileid < 0) { *hdferr = *fileid; return;} + + // Parallel mode created a property which needs to be closed + if (*iphdf5 == 1) + { +#if defined (RAMS_MPI) + *hdferr = H5Pclose (access_id); +#else + *hdferr = 0; +#endif + } + else + { + // no errors if we made it here + *hdferr = 0; + } + + return; + } + +//***************************************************************************** + void fh5f_create (char *locfn,int *iaccess,int *iphdf5,int64_t *fileid,int *hdferr) + { + unsigned flags; + hid_t access_id,create_id; + hid_t fileid_h5; + fileid_h5 = (hid_t)(*fileid); + if (*iphdf5 == 1) + { +#if defined (RAMS_MPI) + // open a parallel file collectively + access_id = H5Pcreate (H5P_FILE_ACCESS); + H5Pset_fapl_mpio (access_id,MPI_COMM_WORLD,MPI_INFO_NULL); +#else + access_id = H5P_DEFAULT; +#endif + } + else + { + access_id = H5P_DEFAULT; + } + create_id = H5P_DEFAULT; + + if(*iaccess == 1) flags = H5F_ACC_TRUNC; + if(*iaccess == 2) flags = H5F_ACC_EXCL ; + + fileid_h5 = H5Fcreate (locfn,flags,create_id,access_id); + *fileid = (int64_t)fileid_h5; + //printf("fh5f_create: fileid: %d\n",*fileid); + if (*fileid < 0) { *hdferr = *fileid; return;} + + // Parallel mode created a property which needs to be closed + if (*iphdf5 == 1) + { +#if defined (RAMS_MPI) + *hdferr = H5Pclose (access_id); +#else + *hdferr = 0; +#endif + } + else + { + // no errors if we made it here + *hdferr = 0; + } + + return; + } + +//**************************************************************************** + void fh5f_close (int64_t *fileid,int *hdferr) + { + herr_t herr; + hid_t fileid_h5; + fileid_h5 = (hid_t)(*fileid); + + // Don't use H5close() to close everything since there might be more than one + // file open (due to REVU for example). + + herr = H5Fclose (fileid_h5); + + *hdferr = herr; + + return; + } + +//******************************* Dataset routines **************************** + +//***************************************************************************** + void fh5d_info (int64_t *fileid,char *dname,int *ndims,int *dims,int *hdferr) + { + hid_t dsetid, dspcid; + herr_t herr; + hsize_t dimsc[HDF5_MAX_DIMS], maxdimsc[HDF5_MAX_DIMS]; + hid_t fileid_h5; + fileid_h5 = (hid_t)(*fileid); + + int i; + + // Note that the code is the same whether or not accessing a + // parallel HDF5 file. + + // Open the dataset, HDF5 1.8 API + dsetid = H5Dopen (fileid_h5,dname,H5P_DEFAULT); + //printf("fh5d_info: %d\n",dsetid); + if (dsetid < 0) { *hdferr = dsetid; return;} + + // Get the description of the dataset + dspcid = H5Dget_space (dsetid); + //printf("fh5d_info: %d\n",dspcid); + if (dspcid < 0) { *hdferr = dspcid; return;} + + // Get the number of dimensions and the sizes of each dimension + // Place array values in temp space and then copy to output arguments + *ndims = H5Sget_simple_extent_dims (dspcid, dimsc, maxdimsc); + //printf("fh5d_info: %d %d %d %d\n",*ndims,dimsc[0],dimsc[1],dimsc[2]); + if (*ndims < 0) { *hdferr = *ndims; return;} + + // Copy hsize_t arrays into FORTRAN arrays (passed in as type int) + // since HDF5 routines expect hsize_t arrays and the lengths of + // int and hsize_t may differ. + fh5_convert_array (*ndims, dims, dimsc, "h2i"); + //printf("fh5d_info: %d %d %d %d\n",*ndims,dimsc[0],dimsc[1],dimsc[2]); + + // Close the dataset + herr = H5Sclose (dspcid); + herr = H5Dclose (dsetid); + //printf("fh5d_info: %d\n",herr); + + *hdferr = herr; + + return; + } + +//****************************** Reading routines ***************************** + +//***************************************************************************** +// This routine will read a dataset from an HDF5 file. It accommodates hyperslab +// selection on both the input file space and output memory space. The selection +// of memory is contained in the input arguments m_ndims and m_select; ditto for +// the file selection and f_ndims, f_select. +// +// Since passing data in from FORTRAN, the hyperslab selection data has been +// joined together in the linear arrays m_select and f_select. This prevents the +// issue with column-major versus row-major. The data are stored in these +// arrays in groups that are the same size and the corresponding ndims value +// (m_ndims and f_ndims), and go in the order: dims, block, count, offset, stride. +// +// Another complication of the caller being FORTRAN is that the HDF5 routines +// want hsize_t arrays (instead of int arrays). FORTRAN has no idea what hsize_t +// is, so integer arrays are used instead. The lengths of int and hsize_t are +// likely to be different so it is necessary to convert between the argument int +// arrays and internal hsize_t arrays. +// + void fh5d_read (int64_t *fileid,char *dname,int *h5type,int *m_ndims,int *m_select + ,int *f_ndims,int *f_select,void *buf,int *hdferr) + { + hid_t dsetid, mspcid, fspcid; + herr_t herr; + hid_t memtype; + hid_t fileid_h5; + fileid_h5 = (hid_t)(*fileid); + + int i; + + hsize_t m_dims[HDF5_MAX_DIMS]; // memory selection description + hsize_t m_block[HDF5_MAX_DIMS]; + hsize_t m_count[HDF5_MAX_DIMS]; + hsize_t m_offset[HDF5_MAX_DIMS]; + hsize_t m_stride[HDF5_MAX_DIMS]; + + hsize_t f_dims[HDF5_MAX_DIMS]; // file selection description + hsize_t f_block[HDF5_MAX_DIMS]; + hsize_t f_count[HDF5_MAX_DIMS]; + hsize_t f_offset[HDF5_MAX_DIMS]; + hsize_t f_stride[HDF5_MAX_DIMS]; + + // Note that the code is the same whether or not accessing a + // parallel HDF5 file. + + //******************* CONVERT INPUT ARGUMENTS ************************* + + // Extract and convert the input int arrays into hsize_t arrays + // Note: &(array[i]) gives the address of the ith element of array[] making + // it appear to fh5_convert_array() that this is the zeroth element of + // its argument array. + fh5_convert_array (*m_ndims, &(m_select[0]), m_dims, "i2h"); + fh5_convert_array (*m_ndims, &(m_select[*m_ndims]), m_block, "i2h"); + fh5_convert_array (*m_ndims, &(m_select[(*m_ndims)*2]), m_count, "i2h"); + fh5_convert_array (*m_ndims, &(m_select[(*m_ndims)*3]), m_offset, "i2h"); + fh5_convert_array (*m_ndims, &(m_select[(*m_ndims)*4]), m_stride, "i2h"); + + fh5_convert_array (*f_ndims, &(f_select[0]), f_dims, "i2h"); + fh5_convert_array (*f_ndims, &(f_select[*m_ndims]), f_block, "i2h"); + fh5_convert_array (*f_ndims, &(f_select[(*m_ndims)*2]), f_count, "i2h"); + fh5_convert_array (*f_ndims, &(f_select[(*m_ndims)*3]), f_offset, "i2h"); + fh5_convert_array (*f_ndims, &(f_select[(*m_ndims)*4]), f_stride, "i2h"); + + // Set HDF5 data type + memtype = fh5_set_hdf5_dtype(*h5type); + + //******************* SET UP SELECTION ****************************** + + // Create descriptions of the file and memory data spaces + + dsetid = H5Dopen (fileid_h5,dname,H5P_DEFAULT); // file data space + if (dsetid < 0) { *hdferr = dsetid; return;} + fspcid = H5Dget_space (dsetid); + if (fspcid < 0) { *hdferr = fspcid; return;} + + mspcid = H5Screate_simple (*m_ndims,m_dims,NULL); // memory data space + if (mspcid < 0) { *hdferr = mspcid; return;} + + // Make the hyperslab selections + + // file + herr = H5Sselect_hyperslab (fspcid,H5S_SELECT_SET,f_offset,f_stride + ,f_count,f_block); + if (herr < 0) { *hdferr = herr; return;} + + // memory + herr = H5Sselect_hyperslab (mspcid,H5S_SELECT_SET,m_offset,m_stride + ,m_count,m_block); + if (herr < 0) { *hdferr = herr; return;} + + //******************* DO THE READ ****************************** + + herr = H5Dread (dsetid,memtype,mspcid,fspcid,H5P_DEFAULT,buf); + if (herr < 0) { *hdferr = herr; return;} + + // Close + + herr = H5Sclose (mspcid); + herr = H5Sclose (fspcid); + herr = H5Dclose (dsetid); + + *hdferr = herr; + + return; + } + +//**************************** Writing routines ******************************* + +//***************************************************************************** +// This routine will write a dataset into an HDF5 file. It accommodates hyperslab +// selection on both the input file space and output memory space. The selection +// of memory is contained in the input arguments m_ndims and m_select; ditto for +// the file selection and f_ndims, f_select. +// +// See the comments for fh5d_read() for info about the purpose of the hsize_t arrays. +// + void fh5d_write (int64_t *fileid,char *dname,int *h5type,int *iphdf5,int *m_ndims + ,int *m_select,int *f_ndims,int *f_select,int *f_csize,void *buf + ,int *hdferr) + { + hid_t dsetid, fspcid, mspcid, propid; + int i; + herr_t herr; + hid_t memtype; + hid_t fileid_h5; + fileid_h5 = (hid_t)(*fileid); + + + hsize_t m_dims[HDF5_MAX_DIMS]; // memory selection description + hsize_t m_block[HDF5_MAX_DIMS]; + hsize_t m_count[HDF5_MAX_DIMS]; + hsize_t m_offset[HDF5_MAX_DIMS]; + hsize_t m_stride[HDF5_MAX_DIMS]; + + hsize_t f_dims[HDF5_MAX_DIMS]; // file selection description + hsize_t f_block[HDF5_MAX_DIMS]; + hsize_t f_count[HDF5_MAX_DIMS]; + hsize_t f_offset[HDF5_MAX_DIMS]; + hsize_t f_stride[HDF5_MAX_DIMS]; + + hsize_t chunk_size[HDF5_MAX_DIMS]; // for the file data space + + //******************* CONVERT INPUT ARGUMENTS ************************* + + // Extract and convert the input int arrays into hsize_t arrays + // Note: &(array[i]) gives the address of the ith element of array[] making + // it appear to fh5_convert_array() that this is the zeroth element of + // its argument array. + fh5_convert_array (*m_ndims, &(m_select[0]), m_dims, "i2h"); + fh5_convert_array (*m_ndims, &(m_select[*m_ndims]), m_block, "i2h"); + fh5_convert_array (*m_ndims, &(m_select[(*m_ndims)*2]), m_count, "i2h"); + fh5_convert_array (*m_ndims, &(m_select[(*m_ndims)*3]), m_offset, "i2h"); + fh5_convert_array (*m_ndims, &(m_select[(*m_ndims)*4]), m_stride, "i2h"); + + fh5_convert_array (*f_ndims, &(f_select[0]), f_dims, "i2h"); + fh5_convert_array (*f_ndims, &(f_select[*f_ndims]), f_block, "i2h"); + fh5_convert_array (*f_ndims, &(f_select[(*f_ndims)*2]), f_count, "i2h"); + fh5_convert_array (*f_ndims, &(f_select[(*f_ndims)*3]), f_offset, "i2h"); + fh5_convert_array (*f_ndims, &(f_select[(*f_ndims)*4]), f_stride, "i2h"); + + fh5_convert_array (*f_ndims,f_csize,chunk_size,"i2h"); + + // Set HDF5 data type + memtype = fh5_set_hdf5_dtype (*h5type); + + //******************* CREATE THE FILE DATASET *********************** + + // This must be done before the selection section + + // Create description of data space for the file dataset + fspcid = H5Screate_simple (*f_ndims,f_dims,f_dims); + if (fspcid < 0) { + *hdferr = fspcid; + printf("Error in H5Screate_simple, fspcid: %d", fspcid); + return;} + + // Create properties for chunking, gzip compression. Can't do + // compression for PHDF5 file. + propid = H5Pcreate (H5P_DATASET_CREATE); + //printf("fh5d_write - propid: %d\n",propid); + if (propid < 0) { + *hdferr = propid; + printf("Error in H5Pcreate, propid: %d", propid); + return;} + + herr = H5Pset_chunk (propid,*f_ndims,chunk_size); + #if H5_VERSION_GE(1,10,3) + #ifdef ENABLE_PARALLEL_COMPRESSION + + herr = H5Pset_shuffle (propid); + herr = H5Pset_deflate (propid,6); + + #else + if (*iphdf5 != 1) + { + herr = H5Pset_shuffle (propid); + herr = H5Pset_deflate (propid,6); + } + #endif//enable parallel compression ifdef + #else//H5_VERSION_GE + if (*iphdf5 != 1) + { + herr = H5Pset_shuffle (propid); + herr = H5Pset_deflate (propid,6); + } + #endif //H5_VERSION_GE if + if (herr < 0) { + *hdferr = herr; + printf("Error in chunking, herr: %d", herr); + return;} + + // Create the dataset + dsetid = H5Dcreate (fileid_h5,dname,memtype,fspcid,H5P_DEFAULT,propid,H5P_DEFAULT); + if (dsetid < 0) { + *hdferr = dsetid; + printf("Error in H5Dcreate, dsetid: %lld \n",dsetid); + printf("Fileid_h5: %lld, dname: %s \n",fileid_h5,dname); + printf("memtype: %d, fspcid: %d, propid: %d \n",memtype,fspcid, propid); + for(int i=0; i<*f_ndims; i++){ + printf("Chunk size [%d], %lld \n",i,chunk_size[i]); + } + return;} + + + + // Close the items used for this section, but keep dsetid open for + // subsequent use + H5Pclose (propid); + H5Sclose (fspcid); + + //******************* SET UP SELECTION ****************************** + + // Create descriptions of the file and memory data spaces + + fspcid = H5Dget_space (dsetid); + if (fspcid < 0) { *hdferr = fspcid; return;} + + mspcid = H5Screate_simple (*m_ndims,m_dims,NULL); // memory data space + if (mspcid < 0) { *hdferr = mspcid; return;} + + // Make the hyperslab selections + + // file + herr = H5Sselect_hyperslab (fspcid,H5S_SELECT_SET,f_offset,f_stride + ,f_count,f_block); + if (herr < 0) { *hdferr = herr; return;} + + // memory + herr = H5Sselect_hyperslab (mspcid,H5S_SELECT_SET,m_offset,m_stride + ,m_count,m_block); + if (herr < 0) { *hdferr = herr; return;} + + //******************* DO THE WRITE ****************************** + + if (*iphdf5 == 1) + { +#if defined (RAMS_MPI) + propid = H5Pcreate (H5P_DATASET_XFER); + H5Pset_dxpl_mpio (propid,H5FD_MPIO_COLLECTIVE); +#else + propid = H5P_DEFAULT; +#endif + } + else + { + propid = H5P_DEFAULT; + } + + herr = H5Dwrite (dsetid,memtype,mspcid,fspcid,propid,buf); + if (herr < 0) { *hdferr = herr; return;} + + // Close + if (*iphdf5 == 1) + { +#if defined (RAMS_MPI) + H5Pclose (propid); +#endif + } + herr = H5Sclose (mspcid); + herr = H5Sclose (fspcid); + herr = H5Dclose (dsetid); + + *hdferr = herr; + + return; + } + +//*************************** Utilities ************************************** + +//**************************************************************************** +// This routine will translate the type codes from FORTAN to the built in +// HDF5 type codes. + +hid_t fh5_set_hdf5_dtype (int type_code) + { + hid_t dtype; + + if (type_code == 1) dtype = H5T_NATIVE_INT32; + if (type_code == 2) dtype = HDF5_FLOAT_TYPE; + if (type_code == 3) dtype = H5T_STRING; + if (type_code == 4) dtype = H5T_NATIVE_DOUBLE; + if (type_code == 5) dtype = H5T_NATIVE_HBOOL; + + return dtype; + } + +//**************************************************************************** +// This routine will copy the contents between an integer array and an hsize_t +// array. It is likely to encounter a system where hsize_t and int are not the same +// length. As an example, this would necessitate the need to convert back and +// forth when the integer array is used as an argument from FORTRAN for example. +// +// dir == 'i2h' --> convert int to hsize_t +// dir == 'h2i' --> convert hsize_t to int + + void fh5_convert_array (int n,int *i_array,hsize_t *h_array,char *dir) + { + int i; + + if (strcmp(dir, "i2h") == 0) + { + // copy int array into the hsize_t array + for (i = 0; i < n; i++) + { + h_array[i] = i_array[i]; + } + } + else if (strcmp(dir, "h2i") == 0) + { + // copy hsize_t array into the int array + for (i = 0; i < n; i++) + { + i_array[i] = h_array[i]; + } + } + else + { + printf ("ERROR: fh5_convert_array:"); + printf ("Do not recognize dir argument value: %d\n", dir); + } + + return; + } diff --git a/src/6.2.16/lib/hdf5_utils.f90 b/src/6.2.16/lib/hdf5_utils.f90 new file mode 100644 index 0000000..57837ab --- /dev/null +++ b/src/6.2.16/lib/hdf5_utils.f90 @@ -0,0 +1,851 @@ +!############################################################################## +Module hdf5_utils + +implicit none + +integer, parameter :: HDF5_MAX_DIMS = 10 + +type hdf5_select_type + integer :: ndims + ! description of memory space + integer, dimension(HDF5_MAX_DIMS) :: dims, block, count, stride, offset +endtype hdf5_select_type + +Contains + +!############################################################################## +Subroutine shdf5_open (locfn,access,iphdf5,fileid,idelete) + +! This routine will open an HDF5 file specified by the fname, facc, fdelete +! arguments, and pass back the file id number in the fid argument. +! +! facc: 'R' --> read +! 'RW' --> read/write +! 'W' --> write +! +! fdelete: 0 --> do not delete if file exists +! 1 --> delete if opening in write mode +! +! If read mode +! file exists --> open (fh5f_open) +! file does not exist --> error +! +! If read/write mode +! file exists --> open (fh5f_open) +! file does not exist --> error +! +! If write mode +! file exists: +! fdelete flag is 1 --> truncate file (fh5f_create) +! fdelete fla0 is 0 --> error +! file does not exists --> create (fh5f_create) +! +! For the 'iaccess' argument to fh5f_open and fh5f_create routines +! (iaccess is 2nd argument to both routines) +! If calling fh5f_open: +! read only --> set iaccess to 1 +! read/write --> set iaccess to 2 +! If calling fh5f_create +! truncate the file if file exists --> set iaccess to 1 +! fail if file exists --> set iaccess to 2 + +use node_mod + +implicit none + +character(len=*) :: locfn ! file name +character(len=*) :: access ! File access ('R','W','RW') +integer :: iphdf5 ! 1 -> use PHDF5, 0 -> use HDF5 +integer*8 :: fileid ! file id number from HDF5 +integer, optional :: idelete ! If W, delete/overwrite file if exists? + ! 1=yes, 0=no + ! Only needed when access='W' + +integer :: hdferr ! Error flag +integer :: iaccess ! int access flag +character(len=2) :: caccess ! File access ('R ','W ','RW') + +logical :: exists ! File existence + +caccess = access + +! Check for existence of RAMS file. + +inquire(file=trim(locfn),exist=exists) + +! Create a new file or open an existing RAMS file. +if (access(1:1) == 'R') then + if (.not.exists) then + print*,'shdf5_open:' + print*,' Attempt to open a file for reading that does not exist.' + print*,' Filename: ',trim(locfn) + stop 'shdf5_open: no file' + else + if (caccess == 'R ') iaccess = 1 + if (caccess == 'RW') iaccess = 2 + + ! this odd construction of //char(0) is because C requires strings + ! to be null-terminated- this appends a null char at the end. + CALL fh5f_open (trim(locfn)//char(0), iaccess, iphdf5, fileid, hdferr) + + if (hdferr < 0) then + print*,'shdf5_open:' + print*,' Error opening hdf5 file - error -',hdferr + print*,' Filename: ',trim(locfn) + stop 'shdf5_open: open error' + endif + endif +elseif (access(1:1) == 'W') then + if (.not.exists) then + iaccess=2 + CALL fh5f_create (trim(locfn)//char(0), iaccess, iphdf5, fileid, hdferr) + else + ! File exists and we want to create a new file + ! With multiple processes, we have to be careful not to remove the + ! file before every node has had a chance to see it existing. We also + ! have to be careful to not allow anyone to call fh5f_create() until + ! the file is removed so that all nodes have opened the same file + ! (in a Linux inode sense). + ! + ! To accomplish this, only allow mainnum to delete the file while calling + ! par_pause() before and after the delete command. This defers the delete + ! until everyone has had a chance to see the file and note its existence. + ! It also forces everyone to wait until the file is gone before trying + ! to open the new one. + + ! Check for proper idelete setting + if(.not.present(idelete) ) then + print*,'shdf5_open: idelete not specified when access=W' + stop 'shdf5_open: no idelete' + endif + + if(idelete == 0) then + print*,'In shdf5_open:' + print*,' Attempt to open an existing file for writing, ' + print*,' but overwrite is disabled. idelete=',idelete + print*,' Filename: ',trim(locfn) + stop 'shdf5_open' + endif + + if (nmachs .gt. 1) then + CALL par_pause (my_rams_num, 101) + ! Only mainnum removes the file + if (my_rams_num .eq. mainnum) then + CALL usystem ('rm -f '//trim(locfn)//char(0)) + endif + CALL par_pause (my_rams_num, 102) + else + CALL usystem ('rm -f '//trim(locfn)//char(0)) + endif + + iaccess=1 + CALL fh5f_create (trim(locfn)//char(0), iaccess, iphdf5, fileid, hdferr) + endif + if(hdferr < 0) then + print*,'HDF5 file create failed:',hdferr + print*,'file name:',trim(locfn),' ',trim(access), idelete + stop 'shdf5_open: bad create' + endif +endif + +return +END SUBROUTINE shdf5_open + +!############################################################################## +Subroutine shdf5_info (fileid,dsetname,ndims,dims) + +implicit none + +integer*8 :: fileid +character(len=*) :: dsetname ! Dataset name +integer :: dims(*) +integer :: ndims ! Dataset rank (in file) +integer, dimension(6) :: dimsh +integer :: hdferr ! Error flag + +! Reading the dimension sizes from the C interface will return them in the +! reverse order that FORTRAN needs them (see notes in shdf5_orec). +CALL fh5d_info (fileid, trim(dsetname)//char(0), ndims, dimsh, hdferr) +if (hdferr < 0) then + print*,'shdf5_info: call fh5d_info:',trim(dsetname),'hdf5 error =',hdferr + stop 'shdf5_info' +endif + +CALL shdf5_reverse_array (ndims, dimsh, dims) + +return +END SUBROUTINE shdf5_info + +!############################################################################## +Subroutine shdf5_orec (fileid,iphdf5,dsetname,mem_select,file_select & + ,file_chunks & + ,ivara,rvara,cvara,dvara,lvara & + ,ivars,rvars,cvars,dvars,lvars) + +implicit none + +character(len=*) :: dsetname ! Variable label +type (hdf5_select_type) :: mem_select, file_select +integer, dimension(HDF5_MAX_DIMS) :: file_chunks +integer*8 :: fileid +integer :: iphdf5 + +! Array and scalar arguments for diff types. Only specify one in each call. +integer, optional :: ivara(*),ivars +real, optional :: rvara(*),rvars +character(len=*), optional :: cvara(*),cvars +double precision, optional :: dvara(*),dvars +logical, optional :: lvara(*),lvars + +integer:: h5_type ! Local type designator + +integer, dimension(:), allocatable :: m_sel, f_sel +integer :: m_ndims, f_ndims +integer, dimension(HDF5_MAX_DIMS) :: f_chunks + +character(len=2) :: ctype ! Variable type: int, real, char +integer :: hdferr ! Error flag + +! Find which data type is input + if(present(ivars)) then ; ctype='is' +elseif(present(rvars)) then ; ctype='rs' +elseif(present(cvars)) then ; ctype='cs' +elseif(present(dvars)) then ; ctype='ds' +elseif(present(lvars)) then ; ctype='ls' +elseif(present(ivara)) then ; ctype='ia' +elseif(present(rvara)) then ; ctype='ra' +elseif(present(cvara)) then ; ctype='ca' +elseif(present(dvara)) then ; ctype='da' +elseif(present(lvara)) then ; ctype='la' +else + print*,'Incorrect or missing data field argument in shdf5_orec' + stop 'shdf5_orec: bad data field' +endif + +if (ctype(1:1) == 'i') h5_type=1 +if (ctype(1:1) == 'r') h5_type=2 +if (ctype(1:1) == 'c') h5_type=3 +if (ctype(1:1) == 'd') h5_type=4 +if (ctype(1:1) == 'l') h5_type=5 + +! Set up hyperslab selection specs for memory and file spaces +! +! Since we are working in FORTRAN and switching to C for the HDF5 I/O, +! we need to reverse the specification of dimension sizes. This is +! necessary to keep the data in the HDF5 file consistent. This need +! comes about due to the column-major array storage order in FORTRAN +! versus the row-major storage in C. Eg., 2D array in FORTRAN that +! has 3 rows and 2 columns: +! 1 4 +! 2 5 +! 3 6 +! +! It's typical to associate i with the rows and j with the columns, +! ie the array is indexed using (i,j). +! +! FORTRAN stores this in linear memory as: +! 1 2 3 4 5 6 +! +! If we tell C that this linear storage represents an array that is +! 3 rows and 2 columns, C will see this as: +! 1 2 +! 3 4 +! 5 6 +! +! Note that the association with (i,j) is now broken. Eg, A(i,j) where +! i = 1,2,3 and j is held at 1 gives 1 3 5, which in FORTRAN would have +! given 1 2 3. +! +! However, if we reverse the specs of the dimension sizes (tell C that +! the array is 2 rows by 3 columns), then C will see this as: +! 1 2 3 +! 4 5 6 +! Along with reversing the dimension sizes we also reverse the association +! with i and j: now the rows are associated with j and the columns are +! associated with i. With this scheme, when C is asked to give A(j,i) +! where i - 1,2,3 and j is held at 1, this results in 1 2 3 which matches +! what you would get in FORTRAN. +! +! Note: This could be also be accomplished by transposing the data in +! FORTRAN right before handing it to C, but it is way more efficient +! to reverse the dimension specs. + +CALL shdf5_build_select (mem_select, m_ndims, m_sel) +CALL shdf5_build_select (file_select, f_ndims, f_sel) +CALL shdf5_reverse_array (f_ndims, file_chunks, f_chunks) + +! Write the dataset. +if (ctype == 'is') then + CALL fh5d_write (fileid,trim(dsetname)//char(0),h5_type,iphdf5 & + ,m_ndims,m_sel,f_ndims,f_sel,f_chunks,ivars,hdferr) +elseif (ctype == 'rs') then + CALL fh5d_write (fileid,trim(dsetname)//char(0),h5_type,iphdf5 & + ,m_ndims,m_sel,f_ndims,f_sel,f_chunks,rvars,hdferr) +elseif (ctype == 'cs') then + CALL fh5d_write (fileid,trim(dsetname)//char(0),h5_type,iphdf5 & + ,m_ndims,m_sel,f_ndims,f_sel,f_chunks,cvars,hdferr) +elseif (ctype == 'ds') then + CALL fh5d_write (fileid,trim(dsetname)//char(0),h5_type,iphdf5 & + ,m_ndims,m_sel,f_ndims,f_sel,f_chunks,dvars,hdferr) +elseif (ctype == 'ls') then + CALL fh5d_write (fileid,trim(dsetname)//char(0),h5_type,iphdf5 & + ,m_ndims,m_sel,f_ndims,f_sel,f_chunks,lvars,hdferr) +elseif (ctype == 'ia') then + CALL fh5d_write (fileid,trim(dsetname)//char(0),h5_type,iphdf5 & + ,m_ndims,m_sel,f_ndims,f_sel,f_chunks,ivara,hdferr) +elseif (ctype == 'ra') then + CALL fh5d_write (fileid,trim(dsetname)//char(0),h5_type,iphdf5 & + ,m_ndims,m_sel,f_ndims,f_sel,f_chunks,rvara,hdferr) +elseif (ctype == 'ca') then + CALL fh5d_write (fileid,trim(dsetname)//char(0),h5_type,iphdf5 & + ,m_ndims,m_sel,f_ndims,f_sel,f_chunks,cvara,hdferr) +elseif (ctype == 'da') then + CALL fh5d_write (fileid,trim(dsetname)//char(0),h5_type,iphdf5 & + ,m_ndims,m_sel,f_ndims,f_sel,f_chunks,dvara,hdferr) +elseif (ctype == 'la') then + CALL fh5d_write (fileid,trim(dsetname)//char(0),h5_type,iphdf5 & + ,m_ndims,m_sel,f_ndims,f_sel,f_chunks,lvara,hdferr) +endif + +if (hdferr /= 0) then + print*,'In shdf5_orec: hdf5 write error =',hdferr + stop 'shdf5_orec: hdf5 write error' +endif + +! Deallocate arrays allocated by shdf5_build_select() +deallocate(m_sel,f_sel) + +return +END SUBROUTINE shdf5_orec + +!############################################################################## +Subroutine shdf5_irec (fileid,iphdf5,dsetname,mem_select,file_select & + ,ivara,rvara,cvara,dvara,lvara & + ,ivars,rvars,cvars,dvars,lvars) + +implicit none + +integer*8 :: fileid +integer :: iphdf5 +character(len=*) :: dsetname ! Dataset name +type (hdf5_select_type) :: mem_select, file_select + +! Array and scalar arguments for diff types. Only specify one in each call. +integer, optional :: ivara(*),ivars +real, optional :: rvara(*),rvars +character(len=*), optional :: cvara(*),cvars +double precision, optional :: dvara(*),dvars +logical, optional :: lvara(*),lvars + +integer, dimension(:), allocatable :: m_sel, f_sel +integer :: m_ndims, f_ndims + +integer:: h5_type ! Local type designator + +integer :: hdferr ! Error flag + +character(len=2) :: ctype + +! Find which data type will be read + if(present(ivars)) then ; ctype='is' +elseif(present(rvars)) then ; ctype='rs' +elseif(present(cvars)) then ; ctype='cs' +elseif(present(dvars)) then ; ctype='ds' +elseif(present(lvars)) then ; ctype='ls' +elseif(present(ivara)) then ; ctype='ia' +elseif(present(rvara)) then ; ctype='ra' +elseif(present(cvara)) then ; ctype='ca' +elseif(present(dvara)) then ; ctype='da' +elseif(present(lvara)) then ; ctype='la' +else + print*,'Incorrect or missing data field argument in shdf5_irec' + stop 'shdf5_irec: bad data field' +endif + +! Figure out the file hyperslab selection + +! Read data from hyperslab in the file into the memory buffer +if (ctype(1:1) == 'i') h5_type=1 +if (ctype(1:1) == 'r') h5_type=2 +if (ctype(1:1) == 'c') h5_type=3 +if (ctype(1:1) == 'd') h5_type=4 +if (ctype(1:1) == 'l') h5_type=5 + +! Set up hyperslab selection specs for memory and file spaces +CALL shdf5_build_select (mem_select,m_ndims,m_sel) +CALL shdf5_build_select (file_select,f_ndims,f_sel) + +if (ctype == 'is') then + CALL fh5d_read (fileid,trim(dsetname)//char(0),h5_type & + ,m_ndims,m_sel,f_ndims,f_sel,ivars,hdferr) +elseif (ctype == 'rs') then + CALL fh5d_read (fileid,trim(dsetname)//char(0),h5_type & + ,m_ndims,m_sel,f_ndims,f_sel,rvars,hdferr) +elseif (ctype == 'cs') then + CALL fh5d_read (fileid,trim(dsetname)//char(0),h5_type & + ,m_ndims,m_sel,f_ndims,f_sel,cvars,hdferr) +elseif (ctype == 'ds') then + CALL fh5d_read (fileid,trim(dsetname)//char(0),h5_type & + ,m_ndims,m_sel,f_ndims,f_sel,dvars,hdferr) +elseif (ctype == 'ls') then + CALL fh5d_read (fileid,trim(dsetname)//char(0),h5_type & + ,m_ndims,m_sel,f_ndims,f_sel,lvars,hdferr) +elseif (ctype == 'ia') then + CALL fh5d_read (fileid,trim(dsetname)//char(0),h5_type & + ,m_ndims,m_sel,f_ndims,f_sel,ivara,hdferr) +elseif (ctype == 'ra') then + CALL fh5d_read (fileid,trim(dsetname)//char(0),h5_type & + ,m_ndims,m_sel,f_ndims,f_sel,rvara,hdferr) +elseif (ctype == 'ca') then + CALL fh5d_read (fileid,trim(dsetname)//char(0),h5_type & + ,m_ndims,m_sel,f_ndims,f_sel,cvara,hdferr) +elseif (ctype == 'da') then + CALL fh5d_read (fileid,trim(dsetname)//char(0),h5_type & + ,m_ndims,m_sel,f_ndims,f_sel,dvara,hdferr) +elseif (ctype == 'la') then + CALL fh5d_read (fileid,trim(dsetname)//char(0),h5_type & + ,m_ndims,m_sel,f_ndims,f_sel,lvara,hdferr) +endif + +if (hdferr /= 0) then + print*,'shdf5_irec: call fh5d_read: hdf5 error =',hdferr + stop +endif + +! Deallocate arrays allocated by shdf5_build_select() +deallocate(m_sel,f_sel) + +return +END SUBROUTINE shdf5_irec + +!############################################################################## +Subroutine shdf5_close (fileid) + +implicit none + +integer*8 :: fileid + +integer :: hdferr ! Error flags + +! Close RAMS hdf file. + +CALL fh5f_close (fileid, hdferr) + +return +END SUBROUTINE shdf5_close + +!############################################################################# +Subroutine shdf5_reverse_array (n,array,rev_array) + +implicit none + +integer :: n +integer, dimension(n) :: array, rev_array +integer :: i, irev + +!Array ordering section +do i = 1,n + irev = (n-i) + 1 + rev_array(irev) = array(i) +enddo + +!We used array swap starting in RAMS 6.1.12. To process old data with REVU +!just comment out the do-loop above and uncomment the line below for rev_array +!Saleeby(2018). +!rev_array(:) = array(:) + +return +END SUBROUTINE shdf5_reverse_array + +!############################################################################# +! This routine will build a linear array with the hdf5 hyperslab selection +! specs loaded into it. To facilitate passing arguments to fh5d_read and +! fh5d_write, a linear array containing the dimension sizes, and hyperslab +! block, count, offset, and stride values is created. The order of loading +! these data into the array is: +! +! dims +! block +! count +! offset +! stride +! +! Note that this order needs to be kept in sync with the extraction of these +! data in fh5d_read and fh5d_write. +! +! Also, since we are going from FORTRAN to C we need to reverse the order +! of the entries we find in these arrays (dims, block, count, etc.) +! +! It is assumed that the caller will deallocate select_array + +Subroutine shdf5_build_select (hs_select,ndims,select_array) + +implicit none + + type (hdf5_select_type) :: hs_select + integer :: ndims + integer, dimension(:), allocatable :: select_array + + integer :: i, isa + integer, dimension(HDF5_MAX_DIMS) :: temp_array + + ! Need to allocate 5 * ndims, where 5 is the number of quantities + ! we are loading from the hs_select struct. + allocate(select_array(5 * hs_select%ndims)) + + ! Go in the proper order: dims, block, count, offset, stride + isa = 1 + ndims = hs_select%ndims + + ! 1: dims + CALL shdf5_reverse_array (ndims,hs_select%dims,temp_array) + do i = 1, ndims + select_array(isa) = temp_array(i) + isa = isa + 1 + enddo + + ! 2: block + CALL shdf5_reverse_array (ndims,hs_select%block,temp_array) + do i = 1, ndims + select_array(isa) = temp_array(i) + isa = isa + 1 + enddo + + ! 3: count + CALL shdf5_reverse_array (ndims,hs_select%count,temp_array) + do i = 1, ndims + select_array(isa) = temp_array(i) + isa = isa + 1 + enddo + + ! 4: offset + CALL shdf5_reverse_array (ndims,hs_select%offset,temp_array) + do i = 1, ndims + select_array(isa) = temp_array(i) + isa = isa + 1 + enddo + + ! 5: stride + CALL shdf5_reverse_array (ndims,hs_select%stride,temp_array) + do i = 1, ndims + select_array(isa) = temp_array(i) + isa = isa + 1 + enddo + +return +END SUBROUTINE shdf5_build_select + +!###################################################################### +! This routine determines the hyperslab selection specs for the given io +! transaction. +! +! io_type: +! 'R' -> read, select entire sub-domain (ie include all overlap) +! 'W' -> write, select entire sub-domain minus the internal overlap +! +! ivar_type: +! negative -> Vector variable (i), i is abs(ivar_type) +! Note a scalar variable (single value) can be obtained by +! setting ivar_type to either +1 or -1. Allow the +1 value +! for backward compatibility. +! +! 2 -> Atmospheric, ISAN 2D variable (i,j) +! 3 -> Atmospheric 3D variable (i,j,k), k is nnzp (atmos. levels) +! 4 -> Leaf3 4D soil variable (i,j,k,p), k is nzg (soil levels), p is patch +! 5 -> Leaf3 4D snow variable (i,j,k,p), k is nzs (snow levels), p is patch +! 6 -> Leaf3 3D variable (i,j,p), p is patch +! 7 -> BIN 4D atmospheric variable (i,j,k,kr), kr is nkr (number of bins) +! 8 -> ISAN 3D isentropic variable (i,j,k), k is nisn (isentropic levels) +! 9 -> ISAN 3D sigma-z variable (i,j,k), k is nsigz (sigma-z levels) +! +! This routine requires that it be called in between any +! arrange/rearrage/unarrange calls and the shdf5_irec/shdf5_orec calls. +! It only needs to be called once before shdf5_irec/shdf5_orec calls +! as long as the variables being read/written are the same dimensions. +! If you change hard-coded dimensions from say a 2D to 3D variables, +! you need to re-call this routine. + +Subroutine shdf5_set_hs_select (ivar_type,io_type,igrid,m_select & + ,f_select,f_chunks) + +use node_mod +use mem_grid +use isan_coms +use micro_prm, only:nkr +use kpp_parameters, only:nkppz + +implicit none + + integer :: ivar_type, igrid + character (len=1) :: io_type + type (hdf5_select_type) :: m_select, f_select + integer, dimension(HDF5_MAX_DIMS) :: f_chunks + + integer :: m_xblk, m_yblk, m_xoff, m_yoff + integer :: f_xblk, f_yblk, f_xoff, f_yoff + integer :: iv_type, vlen + + ! If ivar_type is negative, it is signaling that a vector (1D) variable + ! is being requested. Eg. the coordinate values of one of the dimensions + ! of a field. The length is the absolute value of ivar_type, and then + ! iv_type will be set to 1 to signal to subsequent code that a + ! vector variable is being accessed. + vlen = abs(ivar_type) + if (ivar_type .lt. 0) then + iv_type = 1 + else + iv_type = ivar_type + endif + + if (trim(ramsorrevu) == 'REVU') then + mmxp(igrid) = nnxp(igrid) + mmyp(igrid) = nnyp(igrid) + mmzp(igrid) = nnzp(igrid) + mem_read(igrid)%xblock = nnxp(igrid) + mem_read(igrid)%yblock = nnyp(igrid) + mem_read(igrid)%xoff = 0 + mem_read(igrid)%yoff = 0 + mem_write(igrid)%xblock = nnxp(igrid) + mem_write(igrid)%yblock = nnyp(igrid) + mem_write(igrid)%xoff = 0 + mem_write(igrid)%yoff = 0 + file_read(igrid)%xblock = nnxp(igrid) + file_read(igrid)%yblock = nnyp(igrid) + file_read(igrid)%xoff = 0 + file_read(igrid)%yoff = 0 + file_write(igrid)%xblock = nnxp(igrid) + file_write(igrid)%yblock = nnyp(igrid) + file_write(igrid)%xoff = 0 + file_write(igrid)%yoff = 0 + file_xchunk(igrid) = nnxp(igrid) + file_ychunk(igrid) = nnyp(igrid) + endif + + ! First determine impact of read vs write + if (io_type .eq. 'R') then + ! memory select + m_xblk = mem_read(igrid)%xblock + m_yblk = mem_read(igrid)%yblock + m_xoff = mem_read(igrid)%xoff + m_yoff = mem_read(igrid)%yoff + ! file select + f_xblk = file_read(igrid)%xblock + f_yblk = file_read(igrid)%yblock + f_xoff = file_read(igrid)%xoff + f_yoff = file_read(igrid)%yoff + elseif (io_type .eq. 'W') then + m_xblk = mem_write(igrid)%xblock + m_yblk = mem_write(igrid)%yblock + m_xoff = mem_write(igrid)%xoff + m_yoff = mem_write(igrid)%yoff + f_xblk = file_write(igrid)%xblock + f_yblk = file_write(igrid)%yblock + f_xoff = file_write(igrid)%xoff + f_yoff = file_write(igrid)%yoff + else + print*, 'ERROR: shdf5_set_hs_select: Unknown io type: ', trim(io_type) + stop + endif + + ! Set selection according to variable type + select case (iv_type) + case (1) + ! Vector variable + ! memory + m_select%ndims = 1 + m_select%dims(1) = vlen + m_select%block(1) = vlen + m_select%count(1) = 1 + m_select%offset(1) = 0 + m_select%stride(1) = 1 + + ! file + f_select%ndims = 1 + f_select%dims(1) = vlen + f_select%block(1) = vlen + f_select%count(1) = 1 + f_select%offset(1) = 0 + f_select%stride(1) = 1 + + f_chunks(1) = vlen + case (2) + ! Atmos, ISAN 2D var + ! memory + m_select%ndims = 2 + m_select%dims(1:2) = (/ mmxp(igrid), mmyp(igrid) /) + m_select%block(1:2) = (/ m_xblk, m_yblk /) + m_select%count(1:2) = (/ 1, 1 /) + m_select%offset(1:2) = (/ m_xoff, m_yoff /) + m_select%stride(1:2) = (/ 1, 1 /) + + ! file + f_select%ndims = 2 + f_select%dims(1:2) = (/ nnxp(igrid), nnyp(igrid) /) + f_select%block(1:2) = (/ f_xblk, f_yblk /) + f_select%count(1:2) = (/ 1, 1 /) + f_select%offset(1:2) = (/ f_xoff, f_yoff /) + f_select%stride(1:2) = (/ 1, 1 /) + + f_chunks(1:2) = (/ file_xchunk(igrid), file_ychunk(igrid) /) + case (3) + ! Atmos 3D var + ! memory + m_select%ndims = 3 + m_select%dims(1:3) = (/ mmxp(igrid), mmyp(igrid), mmzp(igrid) /) + m_select%block(1:3) = (/ m_xblk, m_yblk, mmzp(igrid) /) + m_select%count(1:3) = (/ 1, 1, 1 /) + m_select%offset(1:3) = (/ m_xoff, m_yoff, 0 /) + m_select%stride(1:3) = (/ 1, 1, 1 /) + + ! file + f_select%ndims = 3 + f_select%dims(1:3) = (/ nnxp(igrid), nnyp(igrid), nnzp(igrid) /) + f_select%block(1:3) = (/ f_xblk, f_yblk, mmzp(igrid) /) + f_select%count(1:3) = (/ 1, 1, 1 /) + f_select%offset(1:3) = (/ f_xoff, f_yoff, 0 /) + f_select%stride(1:3) = (/ 1, 1, 1 /) + + f_chunks(1:3) = (/ file_xchunk(igrid), file_ychunk(igrid), mmzp(igrid) /) + case (4) + ! Leaf3 4D soil var + ! memory + m_select%ndims = 4 + m_select%dims(1:4) = (/ mmxp(igrid), mmyp(igrid), nzg, npatch /) + m_select%block(1:4) = (/ m_xblk, m_yblk, nzg, npatch /) + m_select%count(1:4) = (/ 1, 1, 1, 1 /) + m_select%offset(1:4) = (/ m_xoff, m_yoff, 0, 0 /) + m_select%stride(1:4) = (/ 1, 1, 1, 1 /) + + ! file + f_select%ndims = 4 + f_select%dims(1:4) = (/ nnxp(igrid), nnyp(igrid), nzg, npatch /) + f_select%block(1:4) = (/ f_xblk, f_yblk, nzg, npatch /) + f_select%count(1:4) = (/ 1, 1, 1, 1 /) + f_select%offset(1:4) = (/ f_xoff, f_yoff, 0, 0 /) + f_select%stride(1:4) = (/ 1, 1, 1, 1 /) + + f_chunks(1:4) = (/ file_xchunk(igrid), file_ychunk(igrid), nzg, npatch /) + case (5) + ! Leaf3 4D surface water var + ! memory + m_select%ndims = 4 + m_select%dims(1:4) = (/ mmxp(igrid), mmyp(igrid), nzs, npatch /) + m_select%block(1:4) = (/ m_xblk, m_yblk, nzs, npatch /) + m_select%count(1:4) = (/ 1, 1, 1, 1 /) + m_select%offset(1:4) = (/ m_xoff, m_yoff, 0, 0 /) + m_select%stride(1:4) = (/ 1, 1, 1, 1 /) + + ! file + f_select%ndims = 4 + f_select%dims(1:4) = (/ nnxp(igrid), nnyp(igrid), nzs, npatch /) + f_select%block(1:4) = (/ f_xblk, f_yblk, nzs, npatch /) + f_select%count(1:4) = (/ 1, 1, 1, 1 /) + f_select%offset(1:4) = (/ f_xoff, f_yoff, 0, 0 /) + f_select%stride(1:4) = (/ 1, 1, 1, 1 /) + + f_chunks(1:4) = (/ file_xchunk(igrid), file_ychunk(igrid), nzs, npatch /) + case (6) + ! Leaf3 3D var + ! memory + m_select%ndims = 3 + m_select%dims(1:3) = (/ mmxp(igrid), mmyp(igrid), npatch /) + m_select%block(1:3) = (/ m_xblk, m_yblk, npatch /) + m_select%count(1:3) = (/ 1, 1, 1 /) + m_select%offset(1:3) = (/ m_xoff, m_yoff, 0 /) + m_select%stride(1:3) = (/ 1, 1, 1 /) + + ! file + f_select%ndims = 3 + f_select%dims(1:3) = (/ nnxp(igrid), nnyp(igrid), npatch /) + f_select%block(1:3) = (/ f_xblk, f_yblk, npatch /) + f_select%count(1:3) = (/ 1, 1, 1 /) + f_select%offset(1:3) = (/ f_xoff, f_yoff, 0 /) + f_select%stride(1:3) = (/ 1, 1, 1 /) + + f_chunks(1:3) = (/ file_xchunk(igrid), file_ychunk(igrid), npatch /) + case (7) + ! Bin micro 4D var + ! memory + m_select%ndims = 4 + m_select%dims(1:4) = (/ mmxp(igrid), mmyp(igrid), mmzp(igrid), nkr /) + m_select%block(1:4) = (/ m_xblk, m_yblk, mmzp(igrid), nkr /) + m_select%count(1:4) = (/ 1, 1, 1, 1 /) + m_select%offset(1:4) = (/ m_xoff, m_yoff, 0, 0 /) + m_select%stride(1:4) = (/ 1, 1, 1, 1 /) + + ! file + f_select%ndims = 4 + f_select%dims(1:4) = (/ nnxp(igrid), nnyp(igrid), nnzp(igrid), nkr /) + f_select%block(1:4) = (/ f_xblk, f_yblk, mmzp(igrid), nkr /) + f_select%count(1:4) = (/ 1, 1, 1, 1 /) + f_select%offset(1:4) = (/ f_xoff, f_yoff, 0, 0 /) + f_select%stride(1:4) = (/ 1, 1, 1, 1 /) + + f_chunks(1:4) = (/ file_xchunk(igrid), file_ychunk(igrid), mmzp(igrid), nkr /) + case (8) + ! ISAN 3D isentropic var + ! memory + m_select%ndims = 3 + m_select%dims(1:3) = (/ mmxp(igrid), mmyp(igrid), nisn /) + m_select%block(1:3) = (/ m_xblk, m_yblk, nisn /) + m_select%count(1:3) = (/ 1, 1, 1 /) + m_select%offset(1:3) = (/ m_xoff, m_yoff, 0 /) + m_select%stride(1:3) = (/ 1, 1, 1 /) + + ! file + f_select%ndims = 3 + f_select%dims(1:3) = (/ nnxp(igrid), nnyp(igrid), nisn /) + f_select%block(1:3) = (/ f_xblk, f_yblk, nisn /) + f_select%count(1:3) = (/ 1, 1, 1 /) + f_select%offset(1:3) = (/ f_xoff, f_yoff, 0 /) + f_select%stride(1:3) = (/ 1, 1, 1 /) + + f_chunks(1:3) = (/ file_xchunk(igrid), file_ychunk(igrid), nisn /) + case(9) + ! ISAN 3D sigma-z var + ! memory + m_select%ndims = 3 + m_select%dims(1:3) = (/ mmxp(igrid), mmyp(igrid), nsigz /) + m_select%block(1:3) = (/ m_xblk, m_yblk, nsigz /) + m_select%count(1:3) = (/ 1, 1, 1 /) + m_select%offset(1:3) = (/ m_xoff, m_yoff, 0 /) + m_select%stride(1:3) = (/ 1, 1, 1 /) + + ! file + f_select%ndims = 3 + f_select%dims(1:3) = (/ nnxp(igrid), nnyp(igrid), nsigz /) + f_select%block(1:3) = (/ f_xblk, f_yblk, nsigz /) + f_select%count(1:3) = (/ 1, 1, 1 /) + f_select%offset(1:3) = (/ f_xoff, f_yoff, 0 /) + f_select%stride(1:3) = (/ 1, 1, 1 /) + + f_chunks(1:3) = (/ file_xchunk(igrid), file_ychunk(igrid), nsigz /) + case (10) + ! Ocean 3D var + ! memory + m_select%ndims = 3 + m_select%dims(1:3) = (/ mmxp(igrid), mmyp(igrid), nkppz /) + m_select%block(1:3) = (/ m_xblk, m_yblk, nkppz /) + m_select%count(1:3) = (/ 1, 1, 1 /) + m_select%offset(1:3) = (/ m_xoff, m_yoff, 0 /) + m_select%stride(1:3) = (/ 1, 1, 1 /) + + ! file + f_select%ndims = 3 + f_select%dims(1:3) = (/ nnxp(igrid), nnyp(igrid), nkppz /) + f_select%block(1:3) = (/ f_xblk, f_yblk, nkppz /) + f_select%count(1:3) = (/ 1, 1, 1 /) + f_select%offset(1:3) = (/ f_xoff, f_yoff, 0 /) + f_select%stride(1:3) = (/ 1, 1, 1 /) + + f_chunks(1:3) = (/ file_xchunk(igrid), file_ychunk(igrid), nkppz /) + case default + print*, 'ERROR: shdf5_set_hs_select: Unknown variable type & + (iv_type): ', iv_type + stop + endselect + +return +END SUBROUTINE shdf5_set_hs_select + +END MODULE hdf5_utils diff --git a/src/6.2.16/lib/interp_lib.f90 b/src/6.2.16/lib/interp_lib.f90 new file mode 100644 index 0000000..56457a5 --- /dev/null +++ b/src/6.2.16/lib/interp_lib.f90 @@ -0,0 +1,225 @@ +!############################################################################## +Subroutine binom (x1,x2,x3,x4,y1,y2,y3,y4,xxx,yyy) + +implicit none + +real :: x1,x2,x3,x4,y1,y2,y3,y4,xxx,yyy +real :: wt1,wt2,yz22,yz23,yz24,yz11,yz12,yz13,yoo +integer :: istend + +yyy=1e30;yz22=0.;yz23=0. !Variable initialized + +if(x2.gt.1.e19.or.x3.gt.1.e19.or. & + y2.gt.1.e19.or.y3.gt.1.e19)return +wt1=(xxx-x3)/(x2-x3) +wt2=1.0-wt1 +istend=0 +if(y4.lt.1.e19.and.x4.lt.1.e19) go to 410 +yz22=wt1 +yz23=wt2 +yz24=0.0 +istend= 1 +410 if(y1.lt.1.e19.and.x1.lt.1.e19) go to 430 +yz11=0.0 +yz12=wt1 +yz13=wt2 +if(istend.eq.1)go to 480 +go to 450 +430 yz11=(xxx-x2)*(xxx-x3)/((x1-x2)*(x1-x3)) +yz12=(xxx-x1)*(xxx-x3)/((x2-x1)*(x2-x3)) +yz13=(xxx-x1)*(xxx-x2)/((x3-x1)*(x3-x2)) +if(istend.eq. 1 ) go to 470 +450 yz22=(xxx-x3)*(xxx-x4)/((x2-x3)*(x2-x4)) +yz23=(xxx-x2)*(xxx-x4)/((x3-x2)*(x3-x4)) +yz24=(xxx-x2)*(xxx-x3)/((x4-x2)*(x4-x3)) +470 yyy=wt1*(yz11*y1+yz12*y2+yz13*y3)+wt2*(yz22*y2+yz23*y3+yz24*y4) + go to 490 +480 yyy=wt1*y2+wt2*y3 +490 yoo=yyy + +return +END SUBROUTINE binom + +!############################################################################## +Subroutine gdtost (a,ix,iy,stax,stay,staval) + +implicit none + +integer :: ix,iy +real :: a(ix,iy),r(4),scr(4),stax,stay,staval + +! ROUTINE TO RETURN STATIONS BACK-INTERPOLATED VALUES(STAVAL) +! FROM UNIFORM GRID POINTS USING OVERLAPPING-QUADRATICS. +! GRIDDED VALUES OF INPUT ARRAY A DIMENSIONED A(IX,IY),WHERE +! IX=GRID POINTS IN X, IY = GRID POINTS IN Y . STATION +! LOCATION GIVEN IN TERMS OF GRID RELATIVE STATION X (STAX) +! AND STATION COLUMN. +! VALUES GREATER THAN 1.0E30 INDICATE MISSING DATA. + +integer :: iy1,iy2,ix1,ix2,ii,i,jj,j +real :: fiym2,fixm2,yy,xx + +iy1=int(stay)-1 +iy2=iy1+3 +ix1=int(stax)-1 +ix2=ix1+3 +staval=1e30 +fiym2=float(iy1)-1 +fixm2=float(ix1)-1 +ii=0 +do 100 i=ix1,ix2 +ii=ii+1 +if(i.ge.1.and.i.le.ix) go to 101 +scr(ii)=1e30 +go to 100 +101 jj=0 +do 111 j=iy1,iy2 +jj=jj+1 +if(j.ge.1.and.j.le.iy) go to 112 +r(jj)=1e30 +go to 111 +112 r(jj)=a(i,j) +111 continue +yy=stay-fiym2 +CALL binom (1.,2.,3.,4.,r(1),r(2),r(3),r(4),yy,scr(ii)) +100 continue +xx=stax-fixm2 +CALL binom (1.,2.,3.,4.,scr(1),scr(2),scr(3),scr(4),xx,staval) + +return +END SUBROUTINE gdtost + +!############################################################################## +Subroutine gdtost2 (a,ix,iy,stax,stay,staval) + +! Routine to return stations back-interpolated values (staval) +! from uniform grid points using bi-linear interpolation. +! Gridded values of input array a dimensioned a(ix,iy), where +! ix=grid points in x, iy = grid points in y. Station +! location given in terms of grid relative station x,y (stax,stay). + +implicit none + +! passed variables + +integer :: ix, iy +real :: stax,stay,staval +real, dimension(ix,iy) :: a + +! internal variables + +integer :: i,j +real :: wtx1,wtx2,wty1,wty2 +staval = 1.e30 +i = int(stax) +j = int(stay) + +if (iy > 1) then !2D case + if(i < 1) i=1 + if(i > ix-1) i=ix-1 + if(j < 1) j=1 + if(j > iy-1) j=iy-1 + + if(a(i,j) > 1.e19 .or. a(i,j+1) > 1.e19 .or. & + a(i+1,j) > 1.e19 .or. a(i+1,j+1) > 1.e19 ) return + + wtx2 = stax - float(i) + wty2 = stay - float(j) + wtx1 = 1. - wtx2 + wty1 = 1. - wty2 + + staval = wtx1 * (wty1 * a(i ,j )+ wty2 * a(i ,j+1)) & + + wtx2 * (wty1 * a(i+1,j )+ wty2 * a(i+1,j+1)) +else !1D case + if(i < 1) i=1 + if(i > ix-1) i=ix-1 + + if(a(i,j) > 1.e19 .or. a(i+1,j) > 1.e19) return + + wtx2 = stax - float(i) + wtx1 = 1. - wtx2 + + staval = wtx1 * a(i,j) + wtx2 * a(i+1,j) +endif + +return +END SUBROUTINE gdtost2 + +!############################################################################## +Subroutine htint (nzz1,vctra,eleva,nzz2,vctrb,elevb) + +implicit none + +integer :: nzz1,nzz2 +real :: vctra(nzz1),vctrb(nzz2),eleva(nzz1),elevb(nzz2) +integer :: l,k,kk +real :: wt + +l=1 +do 20 k=1,nzz2 +30 continue +if(elevb(k).lt.eleva(1))go to 35 +if(elevb(k).ge.eleva(l).and.elevb(k).le.eleva(l+1))go to 35 +if(elevb(k).gt.eleva(nzz1))go to 36 +l=l+1 +if(l.eq.nzz1) then + print *,'htint:nzz1',nzz1 + do kk=1,l + print*,'kk,eleva(kk),elevb(kk)',eleva(kk),elevb(kk) + enddo + stop 'htint' +endif +go to 30 +35 continue +if(elevb(k).eq.eleva(l+1) .and. (l+1).lt.nzz1) l=l+1 +wt=(elevb(k)-eleva(l))/(eleva(l+1)-eleva(l)) +vctrb(k)=vctra(l)+(vctra(l+1)-vctra(l))*wt +!Override above arithmetic for numerical precision when elevations match +if(elevb(k).eq.eleva(l+1)) vctrb(k)=vctra(l+1) +go to 20 +36 continue +wt=(elevb(k)-eleva(nzz1))/(eleva(nzz1-1)-eleva(nzz1)) +vctrb(k)=vctra(nzz1)+(vctra(nzz1-1)-vctra(nzz1))*wt +20 continue + +return +END SUBROUTINE htint + +!############################################################################## +Subroutine htint2 (nzz1,vctra,eleva,nzz2,vctrb,elevb) + +implicit none + +integer :: nzz1,nzz2 +real :: vctra(nzz1),vctrb(nzz2),eleva(nzz1),elevb(nzz2) +integer :: l,k +real :: wt + +! htint for holding values of vctrb constant under eleva(1) + +l=1 +do 20 k=1,nzz2 +30 continue +if(elevb(k).lt.eleva(1))go to 34 +if(elevb(k).ge.eleva(l).and.elevb(k).le.eleva(l+1))go to 35 +if(elevb(k).gt.eleva(nzz1))go to 36 +l=l+1 +if(l.eq.nzz1)stop 'htint2' +go to 30 +34 continue +vctrb(k)=vctra(1) +go to 20 +35 continue +if(elevb(k).eq.eleva(l+1) .and. (l+1).lt.nzz1) l=l+1 +wt=(elevb(k)-eleva(l))/(eleva(l+1)-eleva(l)) +vctrb(k)=vctra(l)+(vctra(l+1)-vctra(l))*wt +!Override above arithmetic for numerical precision when elevations match +if(elevb(k).eq.eleva(l+1)) vctrb(k)=vctra(l+1) +go to 20 +36 continue +wt=(elevb(k)-eleva(nzz1))/(eleva(nzz1-1)-eleva(nzz1)) +vctrb(k)=vctra(nzz1)+(vctra(nzz1-1)-vctra(nzz1))*wt +20 continue + +return +END SUBROUTINE htint2 diff --git a/src/6.2.16/lib/map_proj.f90 b/src/6.2.16/lib/map_proj.f90 new file mode 100644 index 0000000..1cb43d7 --- /dev/null +++ b/src/6.2.16/lib/map_proj.f90 @@ -0,0 +1,742 @@ +!############################################################################## +Subroutine latlon_ps (n1,n2,np1,np2,np3,nvar,ipos,aps,psglob,all & + ,glat,glon,xswlat,xswlon,gdatdx,gdatdy,idatelin,iglobew,iglobs,iglobn) + +implicit none + +integer :: n1,n2,np1,np2,np3,nvar,ipos,idatelin,iglobew,iglobs,iglobn +real :: xswlat,xswlon,gdatdx,gdatdy +real :: aps(n1,n2,np3,*),psglob(np1+3,np2+2),all(np1,np2,np3,*) & + ,glon(n1,n2),glat(n1,n2) +real :: fioff,fjoff,grx,gry,gglon +integer :: np1h,ioff,joff,nv,i,j,k + +np1h = np1 / 2 + +! Determine if psglob scratch array needs to be offset to west and/or south. + +ioff = 0 +joff = 0 + +if (iglobew .eq. 1) then + ioff = 1 + if (iglobs .eq. 1) then + joff = 1 + endif +endif +fioff = float(ioff) +fjoff = float(joff) + +! Loop through all variable types and vertical levels + +do nv = 1,nvar + do k = 1,np3 + +! Fill main part of scratch array psglob from data + + do j = 1,np2 + do i = 1,np1 + psglob(i+ioff,j+joff) = all(i,j,k,nv) + enddo + enddo + +! If all longitudes exist in input data, add 1 row on west boundary and 2 +! rows on east boundary of input data in scratch array. + + if (iglobew .eq. 1) then + do j = 1,np2 + psglob( 1,j+joff) = psglob(np1+1,j+joff) + psglob(np1+2,j+joff) = psglob( 2,j+joff) + psglob(np1+3,j+joff) = psglob( 3,j+joff) + enddo + endif + +! If input data includes the south pole, add 1 row to south in scratch array. + + if (iglobs .eq. 1) then + do i = 1,np1h + psglob(i,1) = psglob(i+np1h,3) + enddo + do i = np1h+1,np1+3 + psglob(i,1) = psglob(i-np1h,3) + enddo + endif + +! If input data includes the north pole, add 1 row to north in scratch array. + + if (iglobn .eq. 1) then + do i = 1,np1h + psglob(i,np2+2) = psglob(i+np1h,np2) + enddo + do i = np1h+1,np1+3 + psglob(i,np2+2) = psglob(i-np1h,np2) + enddo + endif + +! Loop through all i,j points on model grid + + do j = 1,n2 + do i = 1,n1 + gry = (glat(i,j) - xswlat) / gdatdy + 1. + fjoff + + gglon = glon(i,j) + if (idatelin .eq. 1 .and. gglon .lt. xswlon) & + gglon = glon(i,j) + 360. + grx = (gglon - xswlon) / gdatdx + 1. + fioff + +! horizontally interpolate variable + + CALL gdtost (psglob,np1+3,np2+2,grx,gry,aps(i,j,k,nv)) + if(ipos==1) aps(i,j,k,nv)=max(aps(i,j,k,nv),0.) + enddo + enddo + + enddo +enddo + +return +END SUBROUTINE latlon_ps + +!############################################################################## +Subroutine lambcon_ps (n1,n2,np1,np2,n3,nvar,ipos,aps,all,glat,glon & + ,xswlat,xswlon,gdatdx,cntlat,cntlon) + +!lambert-conformal to polar stereographic + +implicit none + +integer :: n1,n2,np1,np2,n3,nvar,ipos +real :: xswlat,xswlon,gdatdx,cntlat,cntlon +real :: aps(n1,n2,n3,*),all(np1,np2,n3,*),glon(n1,n2),glat(n1,n2) +real :: spacing,ri,rj +integer :: i,j,k,nv + +!c real spacing +!c spacing= ! (meters, for AWIPS grid 212 this should be 40635.25) +!c + spacing = gdatdx + +do i = 1, n1 + do j = 1, n2 + + + CALL ll2lc (cntlat, cntlon, glat(i,j), glon(i,j), ri, rj & + ,xswlat,xswlon, spacing) + + + if(ri.lt.1.or.ri.gt.np1.or.rj.lt.1.or.rj.gt.np2) & + then + print*,' gridpoint outside of lambert-con data coverage' + print*,' polar i,j,lat,lon-',i,j,glat(i,j),glon(i,j) + print*,' computed datafile-relative point:',ri,rj + stop 'vi-ob' + endif +! +! horizontally interpolate variables +! + do nv=1,nvar + do k=1,n3 + CALL gdtost (all(1,1,k,nv),np1,np2 & + ,ri,rj,aps(i,j,k,nv)) + if(ipos==1) aps(i,j,k,nv)=max(aps(i,j,k,nv),0.) + enddo + enddo + + enddo +enddo + +return +END SUBROUTINE lambcon_ps + +!############################################################################## +Subroutine ll2lc (dcentlat,dcentlon,dinlat,dinlon,ri,rj & + ,doriglat,doriglon,spacing) + +!routine to convert lat/lon pair to real i,j pair on Lambert +!conformal Conic grid + +implicit none + +! ***** Passed variables ******** + +! dcentlat:tangent latitude (deg) +! dcentlon:longitude of y axis on lcc (deg) +! dinlat:latitude of input point (deg) +! dinlon:longitude of input point (deg) +! ri:place for output i-index (altered) +! rj:place for output j-index (altered) +! doriglat: latitude of (1,1) point on lcc grid (deg) +! doriglon: longitude of (1,1) point on lcc grid (deg) +! spacing: grid spacing on lcc grid (meters) + +real dcentlat, dcentlon, dinlat, dinlon, ri, rj, doriglat, & + doriglon, spacing + +! ***** Local variables ********* + +! cone: cone constant +! Ffactor: another constant +! r*: radian equivalents of d* above +! others are scratch variables (see code) + +real cone, rcentlat, rcentlon, rinlat, rinlon, roriglat, & + roriglon, xorig, yorig, rho, theta, Ffactor + +! ***** Parameters ************** + +! radearth: mean radius of earth (m) + +real radearth, pi + +parameter (radearth=6370997) ! (USGS Paper 1395) +parameter (pi=3.14159265359) + +! ***** Code ******************** + +! Convert degrees to radians + +rcentlat=dcentlat*pi/180.0 +rcentlon=dcentlon*pi/180.0 +rinlat=dinlat*pi/180.0 +rinlon=dinlon*pi/180.0 +roriglat=doriglat*pi/180.0 +roriglon=doriglon*pi/180.0 + +! Compute projection constants + +cone=sin(rcentlat) +Ffactor=cos(rcentlat)*tan(pi/4.0 + rcentlat/2.0)**cone/cone + + +! Compute location of origin of lcc grid (1,1) + +rho= Ffactor/tan(pi/4.0 + roriglat/2.0)**cone +theta= cone*(roriglon-rcentlon) +xorig= rho*sin(theta) +yorig= -1.0*rho*cos(theta) + + +! Compute location of input lat and lon + +rho= Ffactor/tan(pi/4.0 + rinlat/2.0)**cone +theta= cone*(rinlon-rcentlon) +ri= rho*sin(theta) +rj= -1.0*rho*cos(theta) + +! Compute location relative to origin + +ri= ri - xorig +rj= rj - yorig + +! Convert to index + +ri= ri*radearth/spacing + 1.0 +rj= rj*radearth/spacing + 1.0 + +! Done + +return +END SUBROUTINE ll2lc + +!############################################################################## +Subroutine lc2ll (dcentlat,dcentlon,qlat,qlon,ri,rj,doriglat,doriglon,spacing) + +!routine to convert real i,j pair on Lambert +!conformal Conic grid to lat/lon + +implicit none + +! ***** Passed variables ******** + +! dcentlat:tangent latitude (deg) +! dcentlon:longitude of y axis on lcc (deg) +! qlat:output latitude (deg) +! qlon:output longitude (deg) +! ri:input i-index +! rj:input j-index +! doriglat: latitude of (1,1) point on lcc grid (deg) +! doriglon: longitude of (1,1) point on lcc grid (deg) +! spacing: grid spacing on lcc grid (meters) + +real dcentlat, dcentlon, qlat, qlon, ri, rj, doriglat, & + doriglon, spacing + +! ***** Local variables ********* + +! cone: cone constant +! Ffactor: another constant +! r*: radian equivalents of d* above +! others are scratch variables (see code) + +real cone, rcentlat, rcentlon, roriglat, & + roriglon, xorig, yorig, rho, theta, Ffactor, rho0 + +! ***** Parameters ************** + +! radearth: mean radius of earth (m) + +real radearth, pi + +parameter (radearth=6370997) ! (USGS Paper 1395) +parameter (pi=3.14159265359) + +! ***** Code ******************** + +! Convert degrees to radians + +rcentlat=dcentlat*pi/180.0 +rcentlon=dcentlon*pi/180.0 +roriglat=doriglat*pi/180.0 +roriglon=doriglon*pi/180.0 + +! Compute projection constants + +cone=sin(rcentlat) +Ffactor=cos(rcentlat)*(tan(pi/4.0 + rcentlat/2.0))**cone/cone + +!print*, 'cone,ffactor',cone,ffactor + + +! Compute location of origin of lcc grid (1,1) + +rho0= Ffactor/(tan(pi/4.0 + rcentlat/2.0))**cone +rho = Ffactor/(tan(pi/4.0 + roriglat/2.0))**cone +theta= cone*(roriglon-rcentlon) +xorig= rho*sin(theta) +yorig= rho0 - rho*cos(theta) + +!print*, 'rho,theta,xorig,yorig',rho,theta,xorig,yorig + + +! convert ri,rj to radians + +ri = (ri - 1.) * spacing / radearth +rj = (rj - 1.) * spacing / radearth + +! get ri,rj relative to rcentlat,rcentlon + +ri = ri + xorig +rj = rj + yorig + +! Compute location of input lat and lon + +rho = sqrt(ri ** 2 + (rho0 - rj) ** 2) +theta = atan2(ri,(rho0 - rj)) +qlon = theta / cone + rcentlon +qlat = 2. * atan((Ffactor/rho) ** (1./cone)) - pi / 2. + +! convert to degrees + +qlat = qlat * 180. / pi +qlon = qlon * 180. / pi + +return +END SUBROUTINE lc2ll + +!############################################################################## +Subroutine rotate_winds (rot_type,n1,n2,n3,u1,v1,u2,v2 & + ,qlat,qlon,reflat1,reflon1,reflat2,reflon2,idatain) + +! Rotate 3-D wind field depending on value of rot_type +! u1,v1 : input winds +! reflat1,reflon1 : reference lat-lon of input wind projection +! u2,v2 : output winds +! reflat2,reflon2 : reference lat-lon of output wind projection +! qlat, qlon : lat-lon arrays at grid points + +implicit none + +character(len=*) :: rot_type +integer :: n1,n2,n3 +real, dimension(n1,n2,n3) :: u1,v1,u2,v2 +real, dimension(n1,n2) :: qlat,qlon +real :: reflat1,reflon1,reflat2,reflon2 + +real :: uu,vv +integer :: i,j,k,idatain + +print*,'in rot:',rot_type +print*,'in rot:',n1,n2,n3,reflat1,reflon1,reflat2,reflon2 +if(n1 > 1 .and. n2 > 1)print*,'in rot:',qlat(n1/2,n2/2),qlon(n1/2,n2/2) + +print*,'DATA INGEST(idatain): ',idatain + +if (rot_type == 'll_rps') then + ! lat-lon (earth-relative) winds to RAMS polar-stereo + do j=1,n2 + do i=1,n1 + do k=1,n3 + if (u1(i,j,k) > 1.e20 .or. v1(i,j,k) > 1.e20) then + u2(i,j,k)=1.e30 + v2(i,j,k)=1.e30 + cycle + endif + CALL uevetouv (u2(i,j,k),v2(i,j,k),u1(i,j,k),v1(i,j,k) & + ,qlat(i,j),qlon(i,j),reflat2,reflon2) + enddo + enddo + enddo +elseif (rot_type == 'rps_ll') then + ! RAMS polar-stereo to lat-lon (earth-relative) winds + do j=1,n2 + do i=1,n1 + do k=1,n3 + if (u1(i,j,k) > 1.e20 .or. v1(i,j,k) > 1.e20) then + u2(i,j,k)=1.e30 + v2(i,j,k)=1.e30 + cycle + endif + CALL uvtoueve (u1(i,j,k),v1(i,j,k),u2(i,j,k),v2(i,j,k) & + ,qlat(i,j),qlon(i,j),reflat1,reflon1) + enddo + enddo + enddo +elseif (rot_type == 'lc_rps') then + ! lambert-conformal-relative winds to RAMS polar-stereo + do j=1,n2 + do i=1,n1 + do k=1,n3 + if (u1(i,j,k) > 1.e20 .or. v1(i,j,k) > 1.e20) then + u2(i,j,k)=1.e30 + v2(i,j,k)=1.e30 + cycle + endif + !Saleeby(2010): NARR is on lambert-conformal grid, but the winds + !are already rotated to earth-relative. So we want to go straight + !from earth-relative to RAMS rps projection. + if(idatain == 1) then + CALL uevetouv (u2(i,j,k),v2(i,j,k),u1(i,j,k),v1(i,j,k) & + ,qlat(i,j),qlon(i,j),reflat2,reflon2) + else + CALL uvlc_uvll (u1(i,j,k),v1(i,j,k),uu,vv & + ,qlat(i,j),qlon(i,j),reflat1,reflon1) + CALL uevetouv (u2(i,j,k),v2(i,j,k),uu,vv & + ,qlat(i,j),qlon(i,j),reflat2,reflon2) + endif + if(i==n1/2.and.j==n2/2.and.k==8) then + print*,'input:',u1(i,j,k),v1(i,j,k),qlat(i,j),qlon(i,j) + print*,'earth:',uu,vv,reflat1,reflon1 + print*,'ps:',u2(i,j,k),v2(i,j,k),reflat2,reflon2 + endif + enddo + enddo + enddo +elseif (rot_type == 'ps_rps') then + ! polar-stereo-relative winds to RAMS polar-stereo + do j=1,n2 + do i=1,n1 + do k=1,n3 + if (u1(i,j,k) > 1.e20 .or. v1(i,j,k) > 1.e20) then + u2(i,j,k)=1.e30 + v2(i,j,k)=1.e30 + cycle + endif + CALL uvtoueve (u1(i,j,k),v1(i,j,k),uu,vv & + ,qlat(i,j),qlon(i,j),reflat1,reflon1) + CALL uevetouv (u2(i,j,k),v2(i,j,k),uu,vv & + ,qlat(i,j),qlon(i,j),reflat2,reflon2) + enddo + enddo + enddo +endif + +return +END SUBROUTINE rotate_winds + +!############################################################################## +Subroutine uvlc_uvll (ulc,vlc,ull,vll,qlat,qlon,cntlat,cntlon) + +! Rotate lambert-conformal-relative winds to earth-relative components + +implicit none + +real :: ulc,vlc,ull,vll,qlat,qlon,cntlat,cntlon,x0,y0,x1,y1,angle + +CALL ll_rotate_lc (qlat,qlon ,cntlat,cntlon,x0,y0) +CALL ll_rotate_lc (qlat,qlon+.1,cntlat,cntlon,x1,y1) + +angle = -atan2(y1-y0,x1-x0) +ull = ulc * cos(angle) - vlc * sin(angle) +vll = ulc * sin(angle) + vlc * cos(angle) + +return +END SUBROUTINE uvlc_uvll + +!############################################################################## +Subroutine ll_rotate_lc (qlat,qlon,centlat,centlon,x,y) + +!routine to convert qlat,qlon to x,y (relative to centlat/centlon) +!on Lambert conformal Conic grid + +! ***** Passed variables ******** + +! qlat : latitude of input point (deg) +! qlon : longitude of input point (deg) +! centlat : tangent latitude (deg) +! centlon : longitude of y axis on lcc (deg) +! x : x-coordinate of point on Lambert Conformal grid +! y : y-coordinate of point on Lambert Conformal grid + +! ***** Local variables ********* + +! cone: cone constant +! Ffactor: another constant +! f +! others are scratch variables (see code) + +implicit none + +real :: qlat,qlon,centlat,centlon,x,y + +real, parameter :: radearth = 6370997 ! (USGS Paper 1395) +real, parameter :: pi180 = 3.14159265359 / 180. + +real :: rcentlat,rcentlon,rqlat,rqlon,cone,Ffactor,rho,rho8999,theta + +rcentlat = centlat * pi180 +rcentlon = centlon * pi180 +rqlat = qlat * pi180 +rqlon = qlon * pi180 + +cone = sin(rcentlat) +Ffactor = cos(rcentlat) * tan(45. * pi180 + rcentlat/2.) ** cone / cone + +if (qlat .le. 89.99) then + rho = Ffactor/tan(45. * pi180 + rqlat / 2.) ** cone +else + rho8999 = Ffactor/tan(45. * pi180 + 89.99 * pi180 / 2.) ** cone + rho = 100. * (90. - qlat) * rho8999 +endif + +theta = cone * (rqlon - rcentlon) +x = rho * sin(theta) +y = - rho * cos(theta) + +x = x * radearth +y = y * radearth + +return +END SUBROUTINE ll_rotate_lc + +!############################################################################## +Subroutine trueps60_ps (n1,n2,np1,np2,n3,nvar,ipos,aps,all,glat,glon & + ,xswlat,xswlon,gdatdx,cntlon) + +implicit none + +integer :: n1,n2,np1,np2,n3,nvar,ipos +real :: xswlat,xswlon,gdatdx,cntlon +real :: aps(n1,n2,n3,*),all(np1,np2,n3,*),glon(n1,n2),glat(n1,n2) +real :: spacing,ri,rj +integer :: i,j,k,nv + +! True polar stereographic to RAMS rotated polar stereographic + +!----------------------------------------------------------------------- +! This code could be used if we made new ll_xy and xy_ll routines +! that used NCEP constants, mainly +! DATA RERTH /6.3712E+6/,PI/3.1416/ +! DATA SS60 /1.86603/ + +! Call ll_xy (xswlat,xswlon,cntlat,cntlon,xw,ys) +! Convert distance true at 60N to distance true at polepoint +! fact=0.5*(1.+sqrt(3.)/2.) +! xe=xw+float(np1-1)*splamx/fact +! yn=ys+float(np2-1)*splamy/fact +! print*,'xw,xe,ys,yn=',xw,xe,ys,yn +! Call xy_ll (xnelat,xnelon,cntlat,cntlon,xe,yn) +! print*,'SW,NE corner=',xswlat,xswlon,xnelat,xnelon +! +! Call xy_ll (xnwlat,xnwlon,cntlat,cntlon,xw,yn) +! Call xy_ll (xselat,xselon,cntlat,cntlon,xe,ys) +! print*,'NW,SE corner=',xnwlat,xnwlon,xselat,xselon +!----------------------------------------------------------------------- + +!(meters, for AWIPS grid 212 this should be 40635.25) +spacing = gdatdx + +do i = 1, n1 + do j = 1, n2 + + ! RAMS lat/lon coordinates on the other polar stereo coord + CALL w3fb06 (glat(i,j),glon(i,j),xswlat,xswlon,spacing,cntlon,ri,rj) + + if(ri.lt.1.or.ri.gt.np1.or.rj.lt.1.or.rj.gt.np2) then + print*,' gridpoint outside true Polr Ster data coverage' + print*,' polar i,j,lat,lon-',i,j,glat(i,j),glon(i,j) + print*,' computed datafile-relative point:',ri,rj + stop 'vi-ob in sub trueps60_ps in asti.f90' + endif + + ! horizontally interpolate variables + do nv=1,nvar + do k=1,n3 + CALL gdtost (all(1,1,k,nv),np1,np2,ri,rj,aps(i,j,k,nv)) + if(ipos==1) aps(i,j,k,nv)=max(aps(i,j,k,nv),0.) + enddo + enddo + + enddo +enddo + +return +END SUBROUTINE trueps60_ps + +!############################################################################## +Subroutine w3fb07 (XI,XJ,ALAT1,ALON1,DX,ALONV,ALAT,ALON) + +implicit none + +! ROUTINE: W3FB07 GRID COORDS TO LAT/LON FOR GRIB +! PRGMMR: STACKPOLE ORG: NMC42 DATE:88-04-05 +! +! ABSTRACT: CONVERTS THE COORDINATES OF A LOCATION ON EARTH GIVEN IN A +! GRID COORDINATE OVERLAID ON A POLAR STEREOGRAPHIC MAP PRO- +! JECTION TRUE AT 60 DEGREES N OR S LATITUDE TO THE +! NATURAL COORDINATE OF LATITUDE/LONGITUDE +! W3FB07 IS THE REVERSE OF W3FB06. +! USES GRIB SPECIFICATION OF THE LOCATION OF THE GRID +! +! HISTORY LOG: +! 88-01-01 ORIGINAL AUTHOR: STACKPOLE, W/NMC42 +! +! USAGE: W3FB07(XI,XJ,ALAT1,ALON1,DX,ALONV,ALAT,ALON) +! INPUT ARGUMENT LIST: +! XI - I COORDINATE OF THE POINT REAL*4 +! XJ - J COORDINATE OF THE POINT REAL*4 +! ALAT1 - LATITUDE OF LOWER LEFT POINT OF GRID (POINT 1,1) +! LATITUDE <0 FOR SOUTHERN HEMISPHERE; REAL*4 +! ALON1 - LONGITUDE OF LOWER LEFT POINT OF GRID (POINT 1,1) +! EAST LONGITUDE USED THROUGHOUT; REAL*4 +! DX - MESH LENGTH OF GRID IN METERS AT 60 DEG LAT +! MUST BE SET NEGATIVE IF USING +! SOUTHERN HEMISPHERE PROJECTION; REAL*4 +! 190500.0 LFM GRID, +! 381000.0 NH PE GRID, -381000.0 SH PE GRID, ETC. +! ALONV - THE ORIENTATION OF THE GRID. I.E., +! THE EAST LONGITUDE VALUE OF THE VERTICAL MERIDIAN +! WHICH IS PARALLEL TO THE Y-AXIS (OR COLUMNS OF +! THE GRID) ALONG WHICH LATITUDE INCREASES AS +! THE Y-COORDINATE INCREASES. REAL*4 +! FOR EXAMPLE: +! 255.0 FOR LFM GRID, +! 280.0 NH PE GRID, 100.0 SH PE GRID, ETC. +! +! OUTPUT ARGUMENT LIST: +! ALAT - LATITUDE IN DEGREES (NEGATIVE IN SOUTHERN HEMI.) +! ALON - EAST LONGITUDE IN DEGREES, REAL*4 +! +! REMARKS: FORMULAE AND NOTATION LOOSELY BASED ON HOKE, HAYES, +! AND RENNINGER'S "MAP PROJECTIONS AND GRID ...", MARCH 1981 +! AFGWC/TN-79/003 +! +! ATTRIBUTES: +! LANGUAGE: IBM VS FORTRAN +! MACHINE: NAS + +real, parameter :: RERTH=6.3712E+6,PI=3.1416, SS60=1.86603 +real ::xi,xj,alat1,alon1,dx,alonv,alat,alon,h,dxl,reflon,radpd,degprd & + ,rebydx,ala1,rmll,alo1,polei,polej,xx,yy,r2,gi2,arccos + +! PRELIMINARY VARIABLES AND REDIFINITIONS + +! H = 1 FOR NORTHERN HEMISPHERE; = -1 FOR SOUTHERN + +! REFLON IS LONGITUDE UPON WHICH THE POSITIVE X-COORDINATE +! DRAWN THROUGH THE POLE AND TO THE RIGHT LIES +! ROTATED AROUND FROM ORIENTATION (Y-COORDINATE) LONGITUDE +! DIFFERENTLY IN EACH HEMISPHERE + +IF(DX.LT.0) THEN + H = -1. + DXL = -DX + REFLON = ALONV - 90. +ELSE + H = 1. + DXL = DX + REFLON = ALONV - 270. +ENDIF + +RADPD = PI/180.0 +DEGPRD = 180./PI +REBYDX = RERTH/DXL + +! RADIUS TO LOWER LEFT HAND (LL) CORNER + +ALA1 = ALAT1 * RADPD +RMLL = REBYDX * COS(ALA1) * SS60/(1. + H * SIN(ALA1)) + +! USE LL POINT INFO TO LOCATE POLE POINT + +ALO1 = (ALON1 - REFLON) * RADPD +POLEI = 1. - RMLL * COS(ALO1) +POLEJ = 1. - H * RMLL * SIN(ALO1) + +! RADIUS TO THE I,J POINT (IN GRID UNITS) + +XX = XI - POLEI +YY = (XJ - POLEJ) * H +R2 = XX**2 + YY**2 + +! NOW THE MAGIC FORMULAE + +IF(R2.EQ.0) THEN + ALAT = H * 90. + ALON = REFLON +ELSE + GI2 = (REBYDX * SS60)**2 + ALAT = DEGPRD * H * ASIN((GI2 - R2)/(GI2 + R2)) + ARCCOS = ACOS(XX/SQRT(R2)) + IF(YY.GT.0) THEN + ALON = REFLON + DEGPRD * ARCCOS + ELSE + ALON = REFLON - DEGPRD * ARCCOS + ENDIF +ENDIF +!IF(ALON.LT.0) ALON = ALON + 360. + +return +END SUBROUTINE w3fb07 + +!############################################################################## +Subroutine w3fb06 (ALAT,ALON,ALAT1,ALON1,DX,ALONV,XI,XJ) + +implicit none + +real :: ALAT,ALON,ALAT1,ALON1,DX,ALONV,XI,XJ +real :: h,reflon,radpd,rebydx,ala1,alo1,polei,polej,ala,rm,alo,dxl,rmll + +! ROUTINE: W3FB06 LAT/LON TO POLA (I,J) FOR GRIB +! PRGMMR: STACKPOLE ORG: NMC42 DATE:88-04-05 + +real, parameter :: RERTH=6.3712E+6,PI=3.1416, SS60=1.86603 + +IF(DX.LT.0) THEN + H = -1. + DXL = -DX + REFLON = ALONV - 90. +ELSE + H = 1. + DXL = DX + REFLON = ALONV - 270. +ENDIF + +RADPD = PI/180.0 +REBYDX = RERTH/DXL + +ALA1 = ALAT1 * RADPD +RMLL = REBYDX * COS(ALA1) * SS60/(1. + H * SIN(ALA1)) + +ALO1 = (ALON1 - REFLON) * RADPD +POLEI = 1. - RMLL * COS(ALO1) +POLEJ = 1. - H * RMLL * SIN(ALO1) + +ALA = ALAT * RADPD +RM = REBYDX * COS(ALA) * SS60/(1. + H * SIN(ALA)) + +ALO = (ALON - REFLON) * RADPD +XI = POLEI + RM * COS(ALO) +XJ = POLEJ + H * RM * SIN(ALO) + +return +END SUBROUTINE w3fb06 diff --git a/src/6.2.16/lib/numutils.f90 b/src/6.2.16/lib/numutils.f90 new file mode 100644 index 0000000..9e40004 --- /dev/null +++ b/src/6.2.16/lib/numutils.f90 @@ -0,0 +1,303 @@ +!############################################################################## +Subroutine azero (n1,a1) + +implicit none + +integer :: n,n1 +real :: a1(n1) + +do n=1,n1 + a1(n)=0. +enddo + +return +END SUBROUTINE azero + +!############################################################################## +Subroutine azero2 (n1,a1,a2) + +implicit none + +integer :: n,n1 +real :: a1(n1),a2(n1) + +do n=1,n1 + a1(n)=0. + a2(n)=0. +enddo + +return +END SUBROUTINE azero2 +!############################################################################## +Subroutine azero_int (n1,a1) + +implicit none + +integer :: n,n1 +integer :: a1(n1) + +do n=1,n1 + a1(n)=0 +enddo + +return +END SUBROUTINE azero_int + +!############################################################################## +Subroutine ae1t0 (n1,a,b,c) + +implicit none + +integer :: n1 +real, dimension(n1) :: a,b +real :: c +integer :: n + +do n=1,n1 + a(n)=b(n)*c +enddo + +return +END SUBROUTINE ae1t0 + +!############################################################################## +Subroutine ae1 (npts,a,b) + +implicit none + +integer :: npts +real :: a(npts),b(npts) +integer :: i + +do i=1,npts + a(i)=b(i) +enddo + +return +END SUBROUTINE ae1 + +!############################################################################## +Subroutine ae2 (n2,n3,i1,i2,j1,j2,a,b) + +implicit none + +integer :: n2,n3,i1,i2,j1,j2 +real :: a(n2,n3),b(n2,n3) +integer :: i,j + +do j=j1,j2 + do i=i1,i2 + a(i,j)=b(i,j) + enddo +enddo + +return +END SUBROUTINE ae2 + +!############################################################################## +Subroutine ae0 (npts,a,b) + +implicit none + +integer :: npts +real :: a(npts),b +integer :: i + +do i=1,npts + a(i)=b +enddo + +return +END SUBROUTINE ae0 + +!############################################################################## +Subroutine update (n,a,fa,dt) + +implicit none + +integer :: n,nn +real :: a(n),fa(n),dt + +do 10 nn=1,n + a(nn)=a(nn)+fa(nn)*dt +10 continue + +return +END SUBROUTINE update + +!############################################################################## +Subroutine accum (nxyz,arr1,arr2) + +implicit none + +integer :: nxyz,n +real :: arr1(nxyz),arr2(nxyz) + +do n=1,nxyz + arr1(n)=arr1(n)+arr2(n) +enddo + +return +END SUBROUTINE accum + +!############################################################################## +Subroutine atob (n,a,b) + +implicit none + +integer :: n,i +real :: a(n),b(n) + +do 100 i=1,n +b(i)=a(i) +100 continue + +return +END SUBROUTINE atob + +!############################################################################## +real Function valugp (n1,n2,n3,k,i,j,a) + +implicit none + +integer :: n1,n2,n3,k,i,j +real :: a(n1,n2,n3) + +valugp=a(k,i,j) + +return +END FUNCTION valugp + +!############################################################################## +Subroutine sort3 (a,b,c,n) + +implicit none + +integer :: n +real :: a(n),b(n),c(n) +integer :: np1,k,i +integer, external :: ismin +real :: at,bt,ct + +np1=n+1 +do 10 k=1,n +i=ismin(np1-k,a(k),1)+k-1 +at=a(i) +bt=b(i) +ct=c(i) +a(i)=a(k) +b(i)=b(k) +c(i)=c(k) +a(k)=at +b(k)=bt +c(k)=ct +10 continue + +return +END SUBROUTINE sort3 + +!############################################################################## +real Function ssumvect (nn,vctr,inc) + +!Return sum of vector. + +implicit none + +integer :: nn,inc +real :: vctr(*) +integer :: n,nnn +real :: sum + +sum=0. +nnn=nn*inc +do 10 n=1,nnn,inc + sum=sum+vctr(n) +10 continue +ssumvect = sum + +return +END FUNCTION ssumvect + +!############################################################################## +integer Function ismin (nn,vctr,inc) + +!Return index of minimum of vector + +implicit none + +integer :: nn,inc +real :: vctr(*) +integer :: ism,nnn +real :: smin + +ism=0 +smin=1e10 +do 10 nnn=1,nn,inc + if(vctr(nnn).lt.smin)then + ism=nnn + smin=vctr(nnn) + endif +10 continue +ismin = ism + +return +END FUNCTION ismin + +!############################################################################## +real Function cvmgp (vct1,vct2,vct3) + +!Return vct1 if vct3 => 0., else vct2. + +implicit none + +real :: vct1,vct2,vct3 + +if(vct3.ge.0)then +cvmgp = vct1 +else +cvmgp = vct2 +endif + +return +END FUNCTION cvmgp + +!############################################################################## +real Function cvmgm (vct1,vct2,vct3) + +!Return vct1 if vct3 <= 0., else vct2. + +implicit none + +real :: vct1,vct2,vct3 + +if(vct3.lt.0)then +cvmgm = vct1 +else +cvmgm = vct2 +endif + +return +END FUNCTION cvmgm + +!############################################################################## +integer Function check_real (xx,x,nxx,nx) + +! Check two corresponding real arrays and see values are close enough + +implicit none + +integer :: nx,nxx,i +real :: xx(nxx), x(nx), tol + +tol = min( (maxval(xx)-minval(xx)),(maxval(x)-minval(x)) )*.0001 +do i = 1, min(nxx,nx) + if (abs(xx(i)-x(i)) > tol) then + check_real = i + return + endif +enddo + +check_real = 0 + +return +END FUNCTION check_real diff --git a/src/6.2.16/lib/parlib.c b/src/6.2.16/lib/parlib.c new file mode 100644 index 0000000..013a37a --- /dev/null +++ b/src/6.2.16/lib/parlib.c @@ -0,0 +1,360 @@ +#include +#include "utils_sub_names.h" + +#if defined (RAMS_MPI) + #include + #define MAX_MSGTAG 1000 +#else + #define MAX_MSGTAG 1 + #define MPI_Request int +#endif + +int flag_msgtag=0; +MPI_Request mpi_msgtags[MAX_MSGTAG]; + +char *ibuff; +int ipos,nbuff; + +/*****************************************************************************/ + void par_allreduce_sum_doubles (double*send_data,double*recv_data,int*size) +{ + int ierr=0; +#if defined (RAMS_MPI) + ierr=MPI_Allreduce(send_data,recv_data,*size,MPI_DOUBLE,MPI_SUM,MPI_COMM_WORLD); +#endif + /*printf("par_broadcast - %d %d\n",*root,ierr);*/ + if(ierr<0)printf("Error in par_allreduce_doubles - %d\n",ierr); +} + +/*****************************************************************************/ + void par_gather_doubles (double*send_data,double*recv_data,int*size,int*root) +{ + int ierr=0; +#if defined (RAMS_MPI) + ierr=MPI_Gather(send_data,*size,MPI_DOUBLE,recv_data,*size,MPI_DOUBLE,*root,MPI_COMM_WORLD); +#endif + /*printf("par_broadcast - %d %d\n",*root,ierr);*/ + if(ierr<0)printf("Error in par_gather_doubles - %d %d\n",*root,ierr); +} + +/*****************************************************************************/ + void par_gather_floats (C_FLOAT_TYPE*send_data,C_FLOAT_TYPE*recv_data,int*size,int*root) +{ + int ierr=0; +#if defined (RAMS_MPI) + ierr=MPI_Gather(send_data,*size,MPI_FLOAT_TYPE,recv_data,*size,MPI_FLOAT_TYPE,*root,MPI_COMM_WORLD); +#endif + /*printf("par_broadcast - %d %d\n",*root,ierr);*/ + if(ierr<0)printf("Error in par_gather_floats - %d %d\n",*root,ierr); +} + +/*****************************************************************************/ + void par_gather_ints (int*send_data,int*recv_data,int*size,int*root) +{ + int ierr=0; +#if defined (RAMS_MPI) + ierr=MPI_Gather(send_data,*size,MPI_INT,recv_data,*size,MPI_INT,*root,MPI_COMM_WORLD); +#endif + /*printf("par_broadcast - %d %d\n",*root,ierr);*/ + if(ierr<0)printf("Error in par_gather_floats - %d %d\n",*root,ierr); +} + +/*****************************************************************************/ + void par_broadcast (int*root) +{ + int ierr=0; +#if defined (RAMS_MPI) + ierr=MPI_Bcast(ibuff,nbuff,MPI_PACKED,*root,MPI_COMM_WORLD); +#endif + /*printf("par_broadcast - %d %d\n",*root,ierr);*/ + if(ierr<0)printf("Error in par_broadcast - %d %d\n",*root,ierr); +} + +/*****************************************************************************/ + void par_init_recv_bcast (char*buff,int*numbuff) +{ + ibuff = buff; + nbuff = *numbuff*sizeof(C_FLOAT_TYPE); + ipos = 0; +} + +/*****************************************************************************/ + void par_init_put (char*buff,int*numbuff) +{ + ibuff=buff; + nbuff=*numbuff*sizeof(C_FLOAT_TYPE); + ipos=0; +} + +/*****************************************************************************/ + void par_send (int*mach,int*msgtype) +{ + int ierr=0; +#if defined (RAMS_MPI) + ierr=MPI_Send(ibuff,ipos,MPI_PACKED,*mach,*msgtype,MPI_COMM_WORLD); +#endif + /*printf("par_send - %d %d %d %d\n",*mach,*msgtype,ierr,ipos);*/ + if(ierr<0)printf("Error in par_send - %d %d %d\n",*mach,*msgtype,ierr); +} + +/*****************************************************************************/ + void par_put_int (int*iwords,int*numwords) +{ + int ierr=0; +#if defined (RAMS_MPI) + ierr=MPI_Pack(iwords,*numwords,MPI_INT,ibuff,nbuff,&ipos,MPI_COMM_WORLD); +#endif + if(ierr<0)printf("Error in par_put_int - %d %d\n",ierr,ipos); +} + +/*****************************************************************************/ + void par_put_double (double*words,int*numwords) +{ + int ierr=0; +#if defined (RAMS_MPI) + ierr=MPI_Pack(words,*numwords,MPI_DOUBLE,ibuff,nbuff,&ipos,MPI_COMM_WORLD); +#endif + if(ierr<0)printf("Error in par_put_double - %d\n",ierr); +} + +/*****************************************************************************/ + void par_put_float (C_FLOAT_TYPE*words,int*numwords) +{ + int ierr=0; +#if defined (RAMS_MPI) + ierr=MPI_Pack(words,*numwords,MPI_FLOAT_TYPE,ibuff,nbuff,&ipos,MPI_COMM_WORLD); +#endif + if(ierr<0)printf("Error in par_put_float - %d\n",ierr); +} + +/*****************************************************************************/ + void par_put_char (char*words,int*numbytes) +{ + int ierr=0; +#if defined (RAMS_MPI) + ierr=MPI_Pack(words,*numbytes,MPI_BYTE,ibuff,nbuff,&ipos,MPI_COMM_WORLD); +#endif + if(ierr<0)printf("Error in par_put_float - %d\n",ierr); +} + +/*****************************************************************************/ + void zero_tag_array () +{ + int i; + flag_msgtag = 1; + for(i=0;i= MAX_MSGTAG) + printf("ERROR:par_retrieve_tag:fmsgtag >= MAX_MSGTAG\n"); + + i = mpi_msgtags[fmsgtag]; + + mpi_msgtags[fmsgtag] = 0; + + return (i); +} + +/*****************************************************************************/ + void par_send_noblock (int*mach,int*msgtype,int*fmsgtag) +{ + int ierr=0; +#if defined (RAMS_MPI) + MPI_Request msgtag; + /*printf("par_send - %d %d %d %d\n",*mach,*msgtype,ierr,ipos);*/ + if (flag_msgtag == 0) zero_tag_array(); + ierr=MPI_Isend(ibuff,ipos,MPI_PACKED,*mach,*msgtype,MPI_COMM_WORLD,&msgtag); + *fmsgtag = par_store_tag(msgtag); + /*printf("par_sent - %d %d %d %d\n",*mach,*msgtype,ierr,ipos);*/ +#endif + /*printf("par_send - %d %d %d %d\n",*mach,*msgtype,ierr,ipos);*/ + if(ierr<0)printf("Error par_send_noblock - %d %d %d \n",*mach,*msgtype,ierr); +} + +/*****************************************************************************/ + void par_get_noblock (void*buff,int*numbuff,int*mmtype,int*ihostnum,int*fmsgtag) +{ + int ierr=0; +#if defined (RAMS_MPI) + MPI_Request msgtag; + if (flag_msgtag == 0) zero_tag_array(); + nbuff=*numbuff*sizeof(C_FLOAT_TYPE); + ipos=0; + ierr=MPI_Irecv(buff,nbuff,MPI_PACKED,*ihostnum,*mmtype,MPI_COMM_WORLD,&msgtag); + *fmsgtag = par_store_tag(msgtag); +#endif + if(ierr<0)printf("Error in par_get_noblock\n"); +} + +/*****************************************************************************/ + void par_assoc_buff (void*buff,int*numbuff) +{ + ibuff=buff; + nbuff=*numbuff*sizeof(C_FLOAT_TYPE); + ipos=0; +} + +/*****************************************************************************/ + void par_wait (int*fmsgtag,int*ibytes,int*msgtype,int*ihostnum) +{ + int ierr=0; +#if defined (RAMS_MPI) + MPI_Request msgtag; + MPI_Status status; + /*printf("Node waiting - %d %d %d %d\n",*msgtype,*ihostnum,*ibytes,mynum);*/ + if (flag_msgtag == 0) zero_tag_array(); + msgtag = par_retrieve_tag(*fmsgtag); + ierr=MPI_Wait(&msgtag,&status); + MPI_Get_count(&status,MPI_PACKED,ibytes); + *msgtype=status.MPI_TAG; + *ihostnum=status.MPI_SOURCE; +#endif + /*printf("Node done wait- %d %d %d %d\n",*msgtype,*ihostnum,*ibytes,mynum);*/ + if(ierr<0)printf("Error in par_wait\n"); +} + +/*****************************************************************************/ + void par_get_new (void*buff,int*numbuff,int*mmtype,int*ibytes,int*msgtype,int*ihostnum) +{ + int ierr=0; +#if defined (RAMS_MPI) + MPI_Status status; + ibuff=buff; + nbuff=*numbuff*sizeof(C_FLOAT_TYPE); + ipos=0; + /*printf("Node waiting for - %d\n",*mmtype);*/ + ierr=MPI_Recv(ibuff,nbuff,MPI_PACKED,MPI_ANY_SOURCE,*mmtype,MPI_COMM_WORLD,&status); + MPI_Get_count(&status,MPI_PACKED,ibytes); + *msgtype=status.MPI_TAG; + *ihostnum=status.MPI_SOURCE; +#endif + /*printf("Node got - %d %d %d %d\n",*msgtype,*ihostnum,*ibytes,mynum);*/ + if(ierr<0)printf("Error in par_get_new\n"); +} + +/*****************************************************************************/ + void par_get_int (int*iwords,int*numwords) +{ + int ierr=0; +#if defined (RAMS_MPI) + /*printf("Unpack int- %d %d \n",*numwords,nbuff);*/ + ierr=MPI_Unpack(ibuff,nbuff,&ipos,iwords,*numwords,MPI_INT,MPI_COMM_WORLD); +#endif + /*printf("Node got - %d %d %d %d\n",*msgtype,*ihostnum,*ibytes,mynum);*/ + if(ierr<0)printf("Error in par_get_int-%d \n",ierr); +} + +/*****************************************************************************/ + void par_get_double (double*words,int*numwords) +{ + int ierr=0; +#if defined (RAMS_MPI) + /*printf("Unpack flt- %d %d \n",*numwords,nbuff);*/ + ierr=MPI_Unpack(ibuff,nbuff,&ipos,words,*numwords,MPI_DOUBLE,MPI_COMM_WORLD); +#endif + if(ierr<0)printf("Error in par_get_double-%d \n",ierr); +} + +/*****************************************************************************/ + void par_get_float (C_FLOAT_TYPE*words,int*numwords) +{ + int ierr=0; +#if defined (RAMS_MPI) + /*printf("Unpack flt- %d %d \n",*numwords,nbuff);*/ + ierr=MPI_Unpack(ibuff,nbuff,&ipos,words,*numwords,MPI_FLOAT_TYPE,MPI_COMM_WORLD); +#endif + if(ierr<0)printf("Error in par_get_float-%d \n",ierr); +} + +/*****************************************************************************/ + void par_get_char (char*words,int*numbytes) +{ + int ierr=0; +#if defined (RAMS_MPI) + /*printf("Unpack char- %d %d \n",*numbytes,nbuff);*/ + ierr=MPI_Unpack(ibuff,nbuff,&ipos,words,*numbytes,MPI_BYTE,MPI_COMM_WORLD); +#endif + if(ierr<0)printf("Error in par_get_float-%d \n",ierr); +} + +/*****************************************************************************/ + void par_init_fortran (int*argc,char*fargv,int*farglen,int*machnum,int*machsize) +{ + int i,numarg,carglen; + char *argvp[20]; + char **argv; + + numarg=*argc; + carglen=*farglen; + /*printf("par init numargs: %d %s %d %d\n",numarg,fargv,carglen,*machnum);*/ + + for (i = 0; i < numarg; i++) { + argvp[i]=&(fargv[i*carglen]); + /*printf("par init args: %i %d %s %s\n",i,numarg,"argvp[i]",argvp[i]);*/ + } + argv=&(argvp[0]); + + *machnum = 0; // default to one machine --> sequential run + *machsize = 1; + +#if defined (RAMS_MPI) + /*printf("par init RAMS_MPI defined \n");*/ + MPI_Init(&numarg, &argv); + MPI_Comm_rank(MPI_COMM_WORLD,machnum); + MPI_Comm_size(MPI_COMM_WORLD,machsize); +#endif + /*printf("par_init: %d %d\n",*machnum,*machsize);*/ +} + +/*****************************************************************************/ + void par_exit () +{ +#if defined (RAMS_MPI) + MPI_Finalize(); +#endif +/*printf("MP exiting\n");*/ +} + +/*****************************************************************************/ + void par_pause (int*machnum,int*ibarrier) +{ + int ierr=0; +#if defined (RAMS_MPI) + ierr=MPI_Barrier(MPI_COMM_WORLD); +#endif + if(ierr<0)printf("Error in par_pause- %d %d %d\n",*machnum,*ibarrier,ierr); +} + +/*****************************************************************************/ + void par_ready (int*nmach,int*machnum,int*ibarrier) +{ + int ierr=0; +#if defined (RAMS_MPI) + /*printf("par_ready - %d %d\n",*ibarrier,*machnum);*/ + ierr=MPI_Barrier(MPI_COMM_WORLD); +#endif + if(ierr<0)printf("Error in par_ready - %d %d %d\n",*machnum,*ibarrier,ierr); +} diff --git a/src/6.2.16/lib/polarst.f90 b/src/6.2.16/lib/polarst.f90 new file mode 100644 index 0000000..4f87d55 --- /dev/null +++ b/src/6.2.16/lib/polarst.f90 @@ -0,0 +1,195 @@ +!############################################################################## +Subroutine ll_xy (qlat,qlon,polelat,polelon,x,y) + +implicit none + +real :: qlat,qlon,polelat,polelon,x,y +real, parameter :: erad=6.367e6,erad2=1.2734e7,pi180=3.14159265/180. +real :: sinplat,cosplat,sinplon,cosplon,sinqlat,cosqlat,sinqlon,cosqlon & + ,x3p,y3p,z3p, z3q,x3q,y3q, xq,yq,zq, t + +! Evaluate sine and cosine of latitude and longitude of pole point p and +! input point q. + +sinplat = sin(polelat * pi180) +cosplat = cos(polelat * pi180) +sinplon = sin(polelon * pi180) +cosplon = cos(polelon * pi180) + +sinqlat = sin(qlat * pi180) +cosqlat = cos(qlat * pi180) +sinqlon = sin(qlon * pi180) +cosqlon = cos(qlon * pi180) + +! Compute (x3,y3,z3) coordinates where the origin is the center of the earth, +! the z axis is the north pole, the x axis is the equator and prime +! meridian, and the y axis is the equator and 90 E. + +! For the pole point, these are: + +x3p = erad * cosplat * cosplon +y3p = erad * cosplat * sinplon +z3p = erad * sinplat + +! For the given lat,lon point, these are: + +z3q = erad * sinqlat +x3q = erad * cosqlat * cosqlon +y3q = erad * cosqlat * sinqlon + +! Transform q point from (x3,y3,z3) coordinates in the above grid to +! polar stereographic coordinates (x,y,z): + +xq = - sinplon * (x3q-x3p) + cosplon * (y3q-y3p) +yq = cosplat * (z3q-z3p) & + - sinplat * ( cosplon * (x3q-x3p) + sinplon * (y3q-y3p) ) +zq = sinplat * (z3q-z3p) & + + cosplat * ( cosplon * (x3q-x3p) + sinplon * (y3q-y3p) ) + +! Parametric equation for line from antipodal point at (0,0,-2 erad) to +! point q has the following parameter (t) value on the polar stereographic +! plane: + +t = erad2 / (erad2 + zq) + +! This gives the following x and y coordinates for the projection of point q +! onto the polar stereographic plane: + +x = xq * t +y = yq * t + +return +END SUBROUTINE ll_xy + +!############################################################################## +Subroutine xy_ll (qlat,qlon,polelat,polelon,x,y) + +implicit none + +real :: qlat,qlon,polelat,polelon,x,y +real, parameter :: erad=6.367e6,erad2=1.2734e7,pi180=3.14159265/180. +real :: sinplat,cosplat,sinplon,cosplon & + ,x3p,y3p,z3p, z3q,x3q,y3q, xq,yq,zq, t,d,alpha,r3q + +! Evaluate sine and cosine of latitude and longitude of pole point p. + +sinplat = sin(polelat * pi180) +cosplat = cos(polelat * pi180) +sinplon = sin(polelon * pi180) +cosplon = cos(polelon * pi180) + +! Compute (x3,y3,z3) coordinates of the pole point where the origin is the +! center of the earth, the z axis is the north pole, the x axis is the +! equator and prime meridian, and the y axis is the equator and 90 E. + +x3p = erad * cosplat * cosplon +y3p = erad * cosplat * sinplon +z3p = erad * sinplat + +! Compute distance d from given point R on the polar stereographic plane +! to the pole point P: + +d = sqrt (x ** 2 + y ** 2) + +! Compute angle QCP where C is the center of the Earth. This is twice +! angle QAP where A is the antipodal point. Angle QAP is the same as +! angle RAP: + +alpha = 2. * atan2(d,erad2) + +! Compute zq, the height of Q relative to the polar stereographic plane: + +zq = erad * (cos(alpha) - 1.) + +! Compute the parameter t which is the the distance ratio AQ:AR + +t = (erad2 + zq) / erad2 + +! Compute xq and yq, the x and y coordinates of Q in polar stereographic space: + +xq = t * x +yq = t * y + +! Transform location of Q from (x,y,z) coordinates to (x3,y3,z3): + +x3q = x3p - xq * sinplon - yq * cosplon * sinplat & + + zq * cosplat * cosplon +y3q = y3p + xq * cosplon - yq * sinplon * sinplat & + + zq * cosplat * sinplon +z3q = z3p + yq * cosplat + zq * sinplat + +! Compute the latitude and longitude of Q: + +qlon = atan2(y3q,x3q) / pi180 +r3q = sqrt(x3q ** 2 + y3q ** 2) +qlat = atan2(z3q,r3q) / pi180 + +return +END SUBROUTINE xy_ll + +!############################################################################## +Subroutine uevetouv (u,v,ue,ve,qlat,qlon,polelat,polelon) + +implicit none + +real :: u,v,ue,ve,qlat,qlon,polelat,polelon +real :: angle,x0,y0,x1,y1 + +CALL ll_xy (qlat,qlon,polelat,polelon,x0,y0) +CALL ll_xy (qlat,qlon+.1,polelat,polelon,x1,y1) +angle = atan2(y1-y0,x1-x0) +u = ue * cos(angle) - ve * sin(angle) +v = ue * sin(angle) + ve * cos(angle) + +return +END SUBROUTINE uevetouv + +!############################################################################## +Subroutine uvtoueve (u,v,ue,ve,qlat,qlon,polelat,polelon) + +implicit none + +real :: u,v,ue,ve,qlat,qlon,polelat,polelon +real :: angle,x0,y0,x1,y1 + +CALL ll_xy (qlat,qlon,polelat,polelon,x0,y0) +CALL ll_xy (qlat,qlon+.1,polelat,polelon,x1,y1) +angle = -atan2(y1-y0,x1-x0) +ue = u * cos(angle) - v * sin(angle) +ve = u * sin(angle) + v * cos(angle) + +return +END SUBROUTINE uvtoueve + +!############################################################################## +Subroutine winduv (dd,ff,uu,vv) + +implicit none + +real :: dd,ff,uu,vv +real, parameter :: pi=3.14159,pi180=pi/180.,v180pi=180./pi + +uu=-ff*sin(dd*pi180) +vv=-ff*cos(dd*pi180) +return +END SUBROUTINE winduv + +!############################################################################## +Subroutine winddf (dd,ff,uu,vv) + +implicit none + +real :: dd,ff,uu,vv +real, parameter :: pi=3.14159,pi180=pi/180.,v180pi=180./pi +real :: u,v + +u=uu +v=vv +ff=sqrt(u*u+v*v) +if(abs(u).lt.1.e-20)u=1.e-20 +if(abs(v).lt.1.e-20)v=1.e-20 +dd=atan2(-u,-v)*v180pi +if(dd < 0.)dd=dd+360. + +return +END SUBROUTINE winddf diff --git a/src/6.2.16/lib/rconstants.f90 b/src/6.2.16/lib/rconstants.f90 new file mode 100644 index 0000000..cfdde31 --- /dev/null +++ b/src/6.2.16/lib/rconstants.f90 @@ -0,0 +1,50 @@ +!############################################################################## +Module rconstants + +implicit none + +real, parameter :: & + rgas = 287. & !Dry gas constant (J/kg/K) + , cp = 1004. & !Specific heat at const pressure (J/kg/K) + , cv = 717. & !Specific heat at const volumne (J/kg/K) + , rm = 461. & + , p00 = 1.e5 & !Standard pressure (Pa) + , t00 = 273.16 & !Freezing point (K) + , g = 9.80 & !Gravity (m/s^2) + , pi180 = 3.1415927 / 180. & + , pi4 = 3.1415927 * 4. & + , spcon = 111120. & + , erad = 6367000. & !Earth radius (m) + , vonk = 0.40 & !von Karman constant + , tkmin = 5.e-4 & + , alvl = 2.50e6 & !Latent heat of vaporization at 0C (J/kg) + , alvi = 2.834e6 & !Latent heat of sublimation at 0C (J/kg) + , alli = 0.334e6 & !Latent heat of fusion at 0C (J/kg) + , alvl2 = 6.25e12 & + , alvi2 = 8.032e12 & + , solar = 1.3533e3 & + , stefan = 5.6696e-8 & + , cww = 4218. & + , c0 = 752.55 * 4.18684e4 & + , viscos = .15e-4 & + , rowt = 1.e3 & + , dlat = 111120. & + , omega = 7.292e-5 & + , rocp = rgas / cp & + , p00i = 1. / p00 & + , cpor = cp / rgas & + , rocv = rgas / cv & + , cpi = 1. / cp & + , cpi4 = 4. * cpi & + , cp253i = cpi / 253. & + , allii = 1. / alli & + , aklv = alvl / cp & + , akiv = alvi / cp & + , gama = cp / cv & + , gg = .5 * g & + , ep = rgas / rm & + , p00k = 26.870941 & ! = p00 ** rocp + , p00ki = 1. / p00k + +END MODULE rconstants + diff --git a/src/6.2.16/lib/rget.F90 b/src/6.2.16/lib/rget.F90 new file mode 100644 index 0000000..19e41e5 --- /dev/null +++ b/src/6.2.16/lib/rget.F90 @@ -0,0 +1,54 @@ +!############################################################################## +!------------------------------------------------------------------- +! MACHINE/OS DEPENDENT ROUTINES +! This contains short utility routines that are not +! of the FORTRAN 77 standard and may differ from machine to machine +! or OS to OS. These include bit manipulation, I/O, JCL calls, and +! vector funcs. +!------------------------------------------------------------------- + +!############################################################################## +Subroutine ugetarg (i,arg) + +!MAY NEED MACHINE DEPENDENT ARGUMENTS OR USE STATEMENTS FOR THIS ROUTINE + +implicit none + + integer :: i + character(len=*) :: arg + + !Routine to get command line argument + +#if defined (PC_LINUX1) + CALL getarg (i,arg) +#else + print*,"You specified machine/OS other than PC_LINUX1" + print*,"You need to modify filelist.F90 to add your machine/OS" + stop +#endif + +return +END SUBROUTINE ugetarg + +!############################################################################## +Subroutine usystem (arg) + +!MAY NEED MACHINE DEPENDENT ARGUMENTS OR USE STATEMENTS FOR THIS ROUTINE + +implicit none + + character(len=*) :: arg + + !Routine to get command line argument + +#if defined (PC_LINUX1) + CALL system (trim(arg)) +#else + print*,"You specified machine/OS other than PC_LINUX1" + print*,"You need to modify filelist.F90 to add your machine/OS" + stop +#endif + +return +END SUBROUTINE usystem + diff --git a/src/6.2.16/lib/rnamel.f90 b/src/6.2.16/lib/rnamel.f90 new file mode 100644 index 0000000..28d962a --- /dev/null +++ b/src/6.2.16/lib/rnamel.f90 @@ -0,0 +1,340 @@ +!############################################################################## +!------------------------------------------------------------------ +! +! Namelist reading routines +! +!------------------------------------------------------------------ + +!############################################################################## +Subroutine varsetf (varn,var,is1,maxsub,fnum,fmin,fmax) + +implicit none + +integer :: is1,maxsub +character(len=*) :: varn +real :: var,fnum,fmin,fmax + +! Assign real value read in (FNUM) to the corresponding real variable +! in the NAMELIST and do a bounds check + +if(is1.le.maxsub) then + var=fnum +else + print 9,trim(varn),is1,maxsub,fnum + 9 format(' -- ERROR -- Input variable - ',A,' - attempting' & + ,' to read extra values, values ignored.',/, & + ' Subscript, max dimension, value ',2I6,F20.6) +endif + +if(fnum.lt.fmin.or.fnum.gt.fmax) then + print 10,trim(varn),fnum,fmin,fmax + 10 format(' -- ERROR -- Input variable - ',A,' - set to ',F18.5 & + ,/,' allowable range ',F15.5,' to ',F15.5) + stop +endif + +return +END SUBROUTINE varsetf + +!############################################################################## +Subroutine varseti (varn,ivar,is1,maxsub,inum,imin,imax) + +implicit none + +integer :: ivar,is1,maxsub,inum,imin,imax +character(len=*) :: varn + +! Assign integer value read in (INUM) to the corresponding integer var +! (IVAR) in the NAMELIST and do a bounds check + +if(is1.le.maxsub) then + ivar=inum +else + print 9,trim(varn),is1,maxsub,inum + 9 format(' -- ERROR -- Input variable - ',A,' - attempting' & + ,' to read extra values, values ignored.',/, & + ' Subscript, max dimension, value ',2I6,I20) +endif + +if(inum.lt.imin.or.inum.gt.imax) then + print 10,trim(varn),inum,imin,imax + 10 format(' -- ERROR -- Input variable - ',A,' - set to ',I10 & + ,/,' allowable range ',I10,' to ',I10) + stop +endif + +return +END SUBROUTINE varseti + +!############################################################################## +Subroutine varsetc (varn,var,is1,maxsub,ch,imin,imax) + +implicit none + +integer :: is1,maxsub,imin,imax +character(len=*) :: varn,ch,var +integer :: lch + +! Assign character value read in (CH) to the corresponding character +! variable (VAR) in the NAMELIST and do a bounds check + +if(is1.le.maxsub) then + var=ch +else + print 9,trim(varn),is1,maxsub,trim(ch) + 9 FORMAT(' -- ERROR -- Input variable - ',A,' - attempting' & + ,' to read extra values, values ignored.',/, & + ' Subscript, max dimension, value ',2I6,A) +endif + +lch=len(ch) + +if(lch.lt.imin.or.lch.gt.imax) then + print 10,trim(varn),trim(ch),imin,imax + 10 FORMAT(' -- ERROR -- Input variable - ',A,' - set to ',A & + ,/,' allowable length ',I10,' to ',I10) +endif + +return +END SUBROUTINE varsetc + +!############################################################################## +Subroutine varchk (varn,group,namelst,iname,nname,inrflg) + +implicit none + +integer :: nname,inrflg,icompatible +integer :: iname(nname) +character(len=*) :: varn,group,namelst(nname) +integer :: nn,inoset + +! This routine checks that all member variables of the NAMELIST +! specified by GROUP have been assigned values. +! +! GROUP - name of the NAMELIST being checked +! INNAME - storage vector for counting number of times each member +! of the NAMELIST has been assigned a value +! NAMELST - character vector containing names of members of NAMELIST +! NNAME - number of variables in NAMELIST +! VARN - name of NAMELIST variable being checked + +INRFLG=0 +ICOMPATIBLE=0 + +IF(VARN.NE.'$END')THEN + + ! Update INAME value corresponding to the NAMELIST variable which has + ! been assigned a value in the call to NVFILL. + + DO NN=1,NNAME + IF(VARN.EQ.NAMELST(NN)) THEN + INAME(NN)=1 + RETURN + ENDIF + enddo + + INRFLG=1 + PRINT 20,GROUP(1:len_trim(GROUP)),VARN(1:len_trim(VARN)) + 20 FORMAT(' Extra variable in namelist - ',A,'- variable name: ',A) + ICOMPATIBLE=1 + +ELSE + + ! End of NAMELIST input has been reached - check that all variables have + ! been given values + + INRFLG=1 + INOSET=0 + DO NN=1,NNAME + IF(INAME(NN).EQ.0) THEN + IF(INOSET.EQ.0) THEN + PRINT 30,GROUP(1:len_trim(GROUP)) + ENDIF + INOSET=1 + PRINT 31,NAMELST(NN)(1:len_trim(NAMELST(NN))) + ICOMPATIBLE=1 + ENDIF + enddo + + 30 FORMAT(' Variables not set in the -- ',A,' -- namelist:') + 31 FORMAT(' Missing variable name: ',A) + +ENDIF + +if(ICOMPATIBLE == 1)then + print*,'' + print*,'Your RAMSIN namelist file has extra flags or missing flags and is not' + print*,' compatible with this version of RAMS. Please update your RAMSIN.' + stop +endif + +return +END SUBROUTINE varchk + +!############################################################################## +Subroutine ch2int (str,int) + +implicit none + +integer :: int +character(len=*) :: str +character(len=8) :: form +integer :: nc + +! Read integer value INT from character string STR +nc=len_trim(str) +write(form,90)nc +90 format('(i',i2,')') +read(str,form)int + +return +END SUBROUTINE ch2int + +!############################################################################## +Subroutine ch2real (str,fnum) + +implicit none + +real :: fnum +character(len=*) :: str +character(len=8) :: form +integer :: nc + +! Read real value FNUM from character string STR + +nc=len_trim(str) +write(form,90)nc +90 format('(f',i2,'.0)') +read(str,form)fnum + +return +END SUBROUTINE ch2real + +!############################################################################## +Subroutine ch2ch (str,chval,ncw) + +implicit none + +character(len=*) :: str,chval + +integer :: nc,ncw,ncstr + +! Remove trailing blanks from character string STR and store remaining +! NCW characters in character string CHVAL + +ncstr=len(str) +do 10 nc=ncstr,1,-1 + if(str(nc:nc).eq.' ') goto 10 + chval=str(2:nc) + ncw=nc-2 + return +10 continue + +return +END SUBROUTINE ch2ch + +!############################################################################## +Subroutine findgr (iunit,group) + +use grid_dims + +implicit none + +integer :: iunit +character(len=*) :: group +character(len=strl1) :: line +integer :: nr,ind + +! This routine checks to see if any of the first MAXREC lines on input +! unit IUNIT contains the character string GROUP + +do nr=1,maxrec + read(iunit,'(a128)',end=100) line + ind=index(line,group) + if(ind.ne.0) return +enddo +100 continue +print *,' Namelist read error -- group not found -- ',group + +return +END SUBROUTINE findgr + +!############################################################################## +Subroutine strip (lin1,lin2,nc2) + +implicit none + +integer :: nc2 +character(len=*) :: lin1,lin2 +integer :: iquote,nc,nl + +! This routine strips blank characters from character string LIN1 +! (as well as comments beginning with an '!') and stores the stripped- +! down remainder in character string LIN1. NC2 is the number of +! characters in LIN2. + +nl=len(lin1) + +nc2=0 +iquote=0 +do nc=1,nl + if(iquote.eq.0) then + if(lin1(nc:nc).ne.' ') then + if(lin1(nc:nc).eq.'!') return + nc2=nc2+1 + lin2(nc2:nc2)=lin1(nc:nc) + endif + else + nc2=nc2+1 + lin2(nc2:nc2)=lin1(nc:nc) + endif + if(lin1(nc:nc).eq.'''') then + if(iquote.eq.0) then + iquote=1 + else + iquote=0 + endif + endif +enddo + +return +END SUBROUTINE strip + +!############################################################################## +Subroutine toknze (str,nch,tokens,ntok) + +implicit none + +integer :: nch,ntok +character(len=*) :: str,tokens(*) +integer, parameter :: nsep=4 +character(len=1) :: toksep(nsep) +data toksep/'=',',','(',')'/ + +integer :: nc,ns,npt + +! This routine "parses" character string STR into different pieces +! or tokens by looking for one of four possible token separators (TOKS +! STR contains NCH characters. The number of tokens identified is NTO +! the character string tokens are stored in TOKENS. + + +ntok=0 +npt=1 +do 10 nc=1,nch + do 5 ns=1,nsep + if(str(nc:nc).eq.toksep(ns))then + if(nc-npt.ge.1)then + ntok=ntok+1 + tokens(ntok)=str(npt:nc-1) + endif + ntok=ntok+1 + tokens(ntok)=str(nc:nc) + npt=nc+1 + goto 10 + endif + 5 continue +10 continue + +return +END SUBROUTINE toknze diff --git a/src/6.2.16/lib/rsys.F90 b/src/6.2.16/lib/rsys.F90 new file mode 100644 index 0000000..dad1170 --- /dev/null +++ b/src/6.2.16/lib/rsys.F90 @@ -0,0 +1,116 @@ +!############################################################################## +!------------------------------------------------------------------- +! MACHINE/OS DEPENDENT ROUTINES +! This contains short utility routines that are not +! of the FORTRAN 77 standard and may differ from machine to machine +! or OS to OS. These include bit manipulation, I/O, JCL calls, and +! vector funcs. +!------------------------------------------------------------------- +!############################################################################## +Subroutine timing (icall,t1) + +!MAY NEED MACHINE DEPENDENT ARGUMENTS OR USE STATEMENTS FOR THIS ROUTINE + +implicit none + + integer :: icall + real :: t1 + + !Routine returns CPU time. Called with icall=1 at beginning + !of timestep, icall=2 at end of timestep. + + real :: et(2) + real :: etime + + !If statement is here in case a machine/OS has a beginning and end + !timing command structure. Linux does NOT. + + if(icall.eq.1) then + +#if defined (PC_LINUX1) + T1=ETIME(et) +#else + print*,"You specified machine/OS other than PC_LINUX1" + print*,"You need to modify filelist.F90 to add your machine/OS" + stop +#endif + + ELSEIF(icall.EQ.2) THEN + +#if defined (PC_LINUX1) + T1=ETIME(et) +#else + print*,"You specified machine/OS other than PC_LINUX1" + print*,"You need to modify filelist.F90 to add your machine/OS" + stop +#endif + + endif + +return +END SUBROUTINE timing + +!############################################################################## +Subroutine rams_filelist (fnames,file_prefix,nfile) + +! Newer version that just uses ls and C to form unique filenames + +use grid_dims + +implicit none + +integer :: nfile +character(len=*) :: fnames(*),file_prefix +character(len=strl1) :: file_pref,chome +character(len=1000000) :: fstring +integer :: iflag,iprelen + +! this version uses nfile as flag for whether to stop if no files exist +! if nfile.ge.0, then stop + +iflag=nfile + +nfile = 0 +!print*,'RAMS_filelist: Checking prefix: ',trim(file_prefix) + +iprelen=len_trim(file_prefix) +if(iprelen == 0) iprelen=len(file_prefix) + +! Process leading shell variables +if (file_prefix(1:5) == '$HOME') then + CALL getenv ('HOME',chome) + file_pref=trim(chome)//trim(file_prefix(6:)) +else + file_pref=trim(file_prefix) +endif + + +#if defined (PC_LINUX1) + + ! Call glob'bing routine + fstring = ' ' + CALL c_listfile (trim(file_pref)//char(0),fstring) + ! print*,'ffffs:',nfile,trim(fstring) + + ! Parse file name string + CALL tokenize2 (fstring,fnames,nfile,':') + + !do nc=1,nfile + ! print*,'flist:',nc,trim(fnames(nc)) + !enddo + +#else + + print*,"You specified machine/OS other than PC_LINUX1" + print*,"You need to modify filelist.F90 to add your machine/OS" + stop + +#endif + +if (nfile == 0) then + print *, 'No RAMS files for prefix:',trim(file_pref) + if(iflag >= 0) stop 'RAMS_filelist-no_files' +endif + +return +END SUBROUTINE rams_filelist diff --git a/src/6.2.16/lib/therm_lib.f90 b/src/6.2.16/lib/therm_lib.f90 new file mode 100644 index 0000000..30d4023 --- /dev/null +++ b/src/6.2.16/lib/therm_lib.f90 @@ -0,0 +1,367 @@ +!############################################################################## +real Function rslf (p,t) + +! This func calculates the liquid saturation vapor mixing ratio as +! a func of pressure and Kelvin temperature + +implicit none + +real esl,x,t,p,c0,c1,c2,c3,c4,c5,c6,c7,c8 + +parameter (c0= .6105851e+03,c1= .4440316e+02,c2= .1430341e+01) +parameter (c3= .2641412e-01,c4= .2995057e-03,c5= .2031998e-05) +parameter (c6= .6936113e-08,c7= .2564861e-11,c8=-.3704404e-13) + +x = max(-80.,t-273.15) +esl = c0+x*(c1+x*(c2+x*(c3+x*(c4+x*(c5+x*(c6+x*(c7+x*c8))))))) +rslf = .622*esl/(p-esl) + +return +END FUNCTION rslf + +!############################################################################## +real Function rsif (p,t) + +! This func calculates the ice saturation vapor mixing ratio as a +! func of pressure and Kelvin temperature + +implicit none + +real esi,x,t,p,c0,c1,c2,c3,c4,c5,c6,c7,c8 + +parameter (c0= .6114327e+03,c1= .5027041e+02,c2= .1875982e+01) +parameter (c3= .4158303e-01,c4= .5992408e-03,c5= .5743775e-05) +parameter (c6= .3566847e-07,c7= .1306802e-09,c8= .2152144e-12) + +x = max(-80.,t-273.15) +esi = c0+x*(c1+x*(c2+x*(c3+x*(c4+x*(c5+x*(c6+x*(c7+x*c8))))))) +rsif = .622*esi/(p-esi) + +return +END FUNCTION rsif + +!############################################################################## +real Function rslif (p,t) + +implicit none + +real :: p,t +real, external :: rslf +real, external :: rsif + +! This func calculates the saturation vapor mixing ratio, over +! liquid or ice depending on temperature, as a func of pressure +! and Kelvin temperature + +if (t >= 273.15) then + rslif = rslf(p,t) +else + rslif = rsif(p,t) +endif + +return +END FUNCTION rslif + +!############################################################################## +real Function eslf (t) + +! This func calculates the liquid saturation vapor pressure as a +! func of Celcius temperature + +implicit none + +real :: x,t + +real, parameter ::c0= .6105851e+03,c1= .4440316e+02,c2= .1430341e+01 +real, parameter ::c3= .2641412e-01,c4= .2995057e-03,c5= .2031998e-05 +real, parameter ::c6= .6936113e-08,c7= .2564861e-11,c8=-.3704404e-13 + +x = max(-80.,t) +eslf = c0+x*(c1+x*(c2+x*(c3+x*(c4+x*(c5+x*(c6+x*(c7+x*c8))))))) + +return +END FUNCTION eslf + +!############################################################################## +real Function esif (t) + +! This func calculates the ice saturation vapor pressure as a +! func of Celsius temperature + +implicit none + +real :: x,t + +real, parameter ::c0= .6114327e+03,c1= .5027041e+02,c2= .1875982e+01 +real, parameter ::c3= .4158303e-01,c4= .5992408e-03,c5= .5743775e-05 +real, parameter ::c6= .3566847e-07,c7= .1306802e-09,c8= .2152144e-12 + +x = max(-80.,t) +esif = c0+x*(c1+x*(c2+x*(c3+x*(c4+x*(c5+x*(c6+x*(c7+x*c8))))))) + +return +END FUNCTION esif + +!############################################################################## +real Function eslpf (t) + +! This func calculates the partial derivative of liquid saturation vapor +! pressure with respect to temperature as a func of Celsius temperature + +implicit none + +real :: x,t + +real, parameter ::d0= .4443216e+02,d1= .2861503e+01,d2= .7943347e-01 +real, parameter ::d3= .1209650e-02,d4= .1036937e-04,d5= .4058663e-07 +real, parameter ::d6=-.5805342e-10,d7=-.1159088e-11,d8=-.3189651e-14 + +x = max(-80.,t) +eslpf = d0+x*(d1+x*(d2+x*(d3+x*(d4+x*(d5+x*(d6+x*(d7+x*d8))))))) + +return +END FUNCTION eslpf + +!############################################################################## +real Function esipf (t) + +! This func calculates the partial derivative of ice saturation vapor +! pressure with respect to temperature as a func of Celsius temperature + +implicit none + +real :: x,t + +real, parameter ::d0= .5036342e+02,d1= .3775758e+01,d2= .1269736e+00 +real, parameter ::d3= .2503052e-02,d4= .3163761e-04,d5= .2623881e-06 +real, parameter ::d6= .1392546e-08,d7= .4315126e-11,d8= .5961476e-14 + +x = max(-80.,t) +esipf = d0+x*(d1+x*(d2+x*(d3+x*(d4+x*(d5+x*(d6+x*(d7+x*d8))))))) + +return +END FUNCTION esipf + +!############################################################################## +Subroutine mrsl (n1,p,t,rsl) + +implicit none + +integer :: n,n1 +real :: rsl(n1),p(n1),t(n1) +real, external :: rslf + +do n=1,n1 + rsl(n) = rslf(p(n),t(n)) +enddo + +return +END SUBROUTINE mrsl + +!############################################################################## +Subroutine mrsi (n1,p,t,rsi) + +implicit none + +integer :: n,n1 +real :: rsi(n1),p(n1),t(n1) +real, external :: rsif + +do n=1,n1 + rsi(n) = rsif(p(n),t(n)) +enddo + +return +END SUBROUTINE mrsi + +!############################################################################## +real Function tdewpt (p,rs) + +implicit none + +real :: rr,rs,es,esln,p + +rr=rs+1e-8 +es=p*rr/(.622+rr) +esln=log(es) +tdewpt = (35.86*esln-4947.2325)/(esln-23.6837) + +return +END FUNCTION tdewpt + +!############################################################################## +real Function rsatmix (p,t) + +implicit none + +real :: p,t,es + +es = 610.78*exp(17.269*(t-273.15)/(t-35.86)) +rsatmix = .622*es/(p-es) + +return +END FUNCTION rsatmix + +!############################################################################## +Subroutine thetae (p,t,rv,the) + +implicit none + +real :: p,t,rv,the +real, parameter :: cp=1004.,g=9.8,r=287.,alvl=2.35e6,cpg=cp/g +real :: pit,tupo,ttd,dz,tupn,tmn +integer :: itter +real, external :: tdewpt + +pit=p +tupo=t +ttd=tdewpt(p,rv) +dz=cpg*(t-ttd) +if(dz.le.0.) goto 20 +do itter=1,50 + tupn=t-g/cp*dz + tmn=(tupn+t)*.5*(1.+.61*rv) + pit=p*exp(-g*dz/(r*tmn)) + if(abs(tupn-tupo).lt.0.001) goto 20 + ttd=tdewpt(pit,rv) + tupo=tupn + dz=dz+cpg*(tupn-ttd) +enddo +stop 10 +20 continue +the=tupo*(1e5/pit)**.286*exp(alvl*rv/(cp*tupo)) + +return +END SUBROUTINE thetae + +!############################################################################## +Subroutine the2t (the,p,th,t,r) + +implicit none + +real :: the,p,th,t,r +real, parameter :: cp=1004.,alvl=2.350e6 +real :: pi,to,tn +integer :: itter +real, external :: rsatmix + +pi=(p*1e-5)**.286 +to=the/exp(alvl*.012/(cp*295.))*pi +do itter=1,50 + r=rsatmix(p,to) + th=the/exp(alvl*r/(cp*to)) + tn=th*pi + if(abs(to-tn).lt.0.005) goto 12 + to=to+(tn-to)*.3 +enddo +write(6,1) the,p,to,tn,th,r +1 format(' stop in routine the2t '/' the,p,to,tn,th,r',6e15.6) +stop 10 +12 continue +t=tn + +return +END SUBROUTINE the2t + +!############################################################################## +Subroutine qtk (q,tempk,fracliq) + +implicit none + +real :: q,tempk,fracliq +real,parameter :: r4186=1./4186.,r2093=1./2093.,r334000=1./334000. + +! Input: +! q internal energy [J/kg] +! Outputs: +! tempk temperature [K] +! fracliq liquid fraction [dimensionless] +! Local Constants: +! 4186 specific heat of liquid [J/(kg K)] +! 2093 specific heat of ice [J/(kg K)] +! 334000 latent heat of fusion [J/kg] +! 273.15 conversion from temp [C] to temp [K] + +if (q .le. 0.) then + fracliq = 0. + tempk = q * r2093 + 273.15 +elseif (q .ge. 334000.) then + fracliq = 1. + tempk = q * r4186 + 193.36 +else + fracliq = q * r334000 + tempk = 273.15 +endif + +return +END SUBROUTINE qtk + +!############################################################################## +Subroutine qtc (q,tempc,fracliq) + +implicit none + +real :: q,tempc,fracliq +real,parameter :: r4186=1./4186.,r2093=1./2093.,r334000=1./334000. + +! Input: +! q internal energy [J/kg] +! Outputs: +! tempc temperature [C] +! fracliq liquid fraction [dimensionless] +! Local Constants: +! 4186 specific heat of liquid [J/(kg K)] +! 2093 specific heat of ice [J/(kg K)] +! 334000 latent heat of fusion [J/kg] +! 273.15 conversion from temp [C] to temp [K] + +if (q .le. 0.) then + fracliq = 0. + tempc = q * r2093 +elseif (q .ge. 334000.) then + fracliq = 1. + tempc = q * r4186 - 80. +else + fracliq = q * r334000 + tempc = 0. +endif + +return +END SUBROUTINE qtc + +!############################################################################## +Subroutine qwtk (qw,w,dryhcap,tempk,fracliq) + +implicit none + +real :: qw,w,dryhcap,tempk,fracliq +real, parameter :: r4186=1./4186.,r2093=1./2093.,r334000=1./334000. +real :: qwliq0 + +! Inputs: +! qw internal energy [J/m^2] or [J/m^3] +! w mass [kg/m^2] or [kg/m^3] +! dryhcap heat capacity of nonwater part [J/(m^2 K)] or [J/(m^3 K)] +! Outputs: +! tempk temperature [K] +! fracliq liquid fraction [dimensionless] +! Local Constants: +! 4186 specific heat of liquid [J/(kg K)] +! 2093 specific heat of ice [J/(kg K)] +! 334000 latent heat of fusion [J/kg] +! 273.15 conversion from temp [C] to temp [K] + +qwliq0 = w * 334000. +if (qw .le. 0.) then + fracliq = 0. + tempk = qw / (2093. * w + dryhcap) + 273.15 +elseif (qw .ge. qwliq0) then + fracliq = 1. + tempk = (qw - qwliq0) / (4186. * w + dryhcap) + 273.15 +else + fracliq = qw / qwliq0 + tempk = 273.15 +endif + +return +END SUBROUTINE qwtk diff --git a/src/6.2.16/lib/utils_c.c b/src/6.2.16/lib/utils_c.c new file mode 100644 index 0000000..6ff0914 --- /dev/null +++ b/src/6.2.16/lib/utils_c.c @@ -0,0 +1,58 @@ +#include "utils_sub_names.h" + +#include +#include +#include +#include +#include +#include + +/*****************************************************************************/ + void c_listfile (char*pattern,char*fstring,int patlen,int fslen) { + glob_t pglob; + int i, nc, nb, err; + char colon[]=":"; + +/* Get a directory listing of the files with "pattern". + Concat all names into a colon-delimted string. */ + + glob(pattern, GLOB_ERR, NULL, &pglob); + + nb=0; + for (i = 0; i < pglob.gl_pathc; i++) { + nc = strlen(pglob.gl_pathv[i]); + + if (nb+nc+1 > fslen) { + printf("\n c_listfile: Fatal error: String length not long enough\n\n"); + exit(1); + } + + /*printf("found: %i %d %d %s\n",fslen,nb,nc,pglob.gl_pathv[i]);*/ + + memcpy (&fstring[nb],pglob.gl_pathv[i],nc); + nb = nb + nc; + memcpy (&fstring[nb],colon,1); + nb = nb + 1; + + } + globfree(&pglob); + +} + +/*****************************************************************************/ + void irsleep (int*seconds) +{ + extern int sleep(int); + +/*MAY NEED MACHINE DEPENDENT ARGUMENTS OR USE STATEMENTS FOR THIS ROUTINE*/ + +#if defined (PC_LINUX1) + sleep (*seconds); +#else + print*,"You specified machine/OS other than PC_LINUX1" + print*,"You need to modify utils_c.c to add your machine/OS" + stop +#endif + + return; +} diff --git a/src/6.2.16/lib/utils_f.f90 b/src/6.2.16/lib/utils_f.f90 new file mode 100644 index 0000000..049b06d --- /dev/null +++ b/src/6.2.16/lib/utils_f.f90 @@ -0,0 +1,188 @@ +!############################################################################## +Subroutine rams_mm (indata,ni1,omin,omax) + +implicit none + +integer :: ni1 +real :: indata(ni1),omin,omax +integer :: i + +omax=indata(1) +omin=indata(1) + do i=2,ni1 + omax=max(indata(i),omax) + omin=min(indata(i),omin) + enddo + +return +END SUBROUTINE rams_mm + +!############################################################################## +real Function walltime (wstart) + +implicit none + +real :: wstart +integer :: ii,ir + +CALL system_clock (count=ii,count_rate=ir) +walltime = float(ii)/float(ir) - wstart + +return +END FUNCTION walltime + +!############################################################################## +Subroutine rearrange (nzp,nxp,nyp,a,b) + +implicit none + +integer :: nzp,nxp,nyp +real :: a(nzp,nxp,nyp),b(nxp,nyp,nzp) +integer :: k,i,j + +do i=1,nxp + do j=1,nyp + do k=1,nzp + b(i,j,k)=a(k,i,j) + enddo + enddo +enddo + +return +END SUBROUTINE rearrange + +!############################################################################## +Subroutine unarrange (nzp,nxp,nyp,a,b) + +implicit none + +integer :: nzp,nxp,nyp +real :: a(nxp,nyp,nzp),b(nzp,nxp,nyp) +integer :: k,i,j + +do i=1,nxp + do j=1,nyp + do k=1,nzp + b(k,i,j)=a(i,j,k) + enddo + enddo +enddo + +return +END SUBROUTINE unarrange + +!############################################################################## +Subroutine rearrange_p (n2,n3,n4,n5,a,b) + +implicit none + +integer :: n2,n3,n4,n5 +real :: a(n4,n2,n3,n5),b(n2,n3,n4,n5) +integer :: i,j,k,ip + +do ip = 1,n5 + do k = 1,n4 + do j = 1,n3 + do i = 1,n2 + b(i,j,k,ip) = a(k,i,j,ip) + enddo + enddo + enddo +enddo + +return +END SUBROUTINE rearrange_p + +!############################################################################## +Subroutine unarrange_p (n2,n3,n4,n5,a,b) + +implicit none + +integer :: n2,n3,n4,n5 +real :: a(n2,n3,n4,n5),b(n4,n2,n3,n5) +integer :: i,j,k,ip + +do ip = 1,n5 + do k = 1,n4 + do j = 1,n3 + do i = 1,n2 + b(k,i,j,ip) = a(i,j,k,ip) + enddo + enddo + enddo +enddo + +return +END SUBROUTINE unarrange_p + +!############################################################################## +Subroutine makefnam (fname,prefix,tinc,iyr,imn,idy,itm,type,post,fmt) + +! creates standard timestamped filename + +implicit none + +integer :: iyr,imn,idy,itm,oyr,omn,ody,otm,ib1,ib2 +character(len=*) :: fname,prefix,post,fmt +character(len=1) :: type +real :: tinc +character(len=40) :: dstring + +! print*,iyr,imn,idy,itm,tinc +if(tinc == 0.) then + oyr=iyr ; omn=imn ; ody=idy ; otm=itm +else + CALL date_add_to (iyr,imn,idy,itm,tinc,'s',oyr,omn,ody,otm) +! print*,oyr,omn,ody,otm +endif + +write(dstring,100) '-',type,'-',oyr,'-',omn,'-',ody,'-',otm +100 format(3a1,i4.4,a1,i2.2,a1,i2.2,a1,i6.6) + +ib1=len_trim(prefix) +fname=prefix(1:ib1)//dstring(1:20) +if (post(1:1) /= '$') then + ib1=len_trim(fname) + ib2=len_trim(post) + fname=fname(1:ib1)//'-'//post(1:ib2) +endif +ib1=len_trim(fname) +fname=fname(1:ib1)//'.'//trim(fmt) + +return +END SUBROUTINE makefnam + +!############################################################################## +Subroutine rams_f_open (iunit,filenm,formt,stat,act,iclob) + +! replaces old jclopen and jclget +! files are overwritten unless iclob (ICLOBBER) set to 1 + +use mem_grid, only:print_msg + +implicit none + +integer :: iunit,iclob +character(len=*) :: filenm,formt,stat,act +logical :: exans + +!print*,'filenm,formt,stat1=',filenm,formt,stat + +inquire(FILE=filenm,EXIST=exans) + +if(exans.and.iclob.eq.0.and. & + (act(1:4).eq.'WRIT'.or.act(1:4).eq.'writ') .and. print_msg) then + print*,'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!' + print*,'!!! trying to open file name :' + print*,'!!! ',filenm + print*,'!!! but it already exists. run is ended.' + print*,'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!' + stop 'rams_f_open - exists' +endif + +!print*,'filenm,formt,stat2=',filenm(1:len_trim(filenm)),formt,stat +open(iunit,STATUS=stat,FILE=trim(filenm),FORM=formt) +if(print_msg) print*,'F_open - ',trim(filenm) + +return +END SUBROUTINE rams_f_open diff --git a/src/6.2.16/memory/alloc.f90 b/src/6.2.16/memory/alloc.f90 new file mode 100644 index 0000000..7816c2d --- /dev/null +++ b/src/6.2.16/memory/alloc.f90 @@ -0,0 +1,315 @@ +!############################################################################## +Subroutine sfc_mem_alloc () + + use mem_leaf + use mem_grid + use node_mod + + implicit none + + integer :: ng + + ! Allocate Leaf type + if(iprntstmt>=1 .and. print_msg)print*,'start leaf alloc' + allocate(leaf_g(ngrids)) + do ng=1,ngrids + CALL dealloc_leaf (leaf_g(ng)) + CALL alloc_leaf (leaf_g(ng),mmxp(ng),mmyp(ng),nzg,nzs,npatch) + enddo + + ! Allocate grid variables data type. + if(iprntstmt>=1 .and. print_msg)print*,'start grid alloc' + allocate(grid_g(ngrids)) + do ng=1,ngrids + CALL dealloc_grid (grid_g(ng)) + CALL alloc_grid (grid_g(ng),mmxp(ng),mmyp(ng)) + enddo + + return + END SUBROUTINE sfc_mem_alloc + +!############################################################################## +Subroutine rams_mem_alloc () + +use mem_all +use node_mod + +implicit none + +integer :: ng,nv,imean + +! First, depending on type of process, define grid point pointers correctly... + +if(iprntstmt>=1 .and. print_msg)print*,' %% mem_alloc %%:',my_rams_num + +! If we are doing time-averaging for output, set flag ... +imean=0 +if (avgtim /= 0.) imean=1 + +! Zero variable counts +num_var(1:maxgrds)=0 +nvgrids=ngrids +num_scalar(1:maxgrds)=0 + +! Allocate Basic variables data type +if(iprntstmt>=1 .and. print_msg)print*,'start basic alloc' +allocate(basic_g(ngrids),basicm_g(ngrids)) +do ng=1,ngrids + CALL dealloc_basic (basic_g(ng)) + CALL dealloc_basic (basicm_g(ng)) + CALL alloc_basic (basic_g(ng),mmzp(ng),mmxp(ng),mmyp(ng)) + if (imean == 1) then + CALL alloc_basic (basicm_g(ng),mmzp(ng),mmxp(ng),mmyp(ng)) + elseif (imean == 0) then + CALL alloc_basic (basicm_g(ng),1,1,1) + endif + + CALL filltab_basic (basic_g(ng),basicm_g(ng),imean & + ,mmzp(ng),mmxp(ng),mmyp(ng),ng) +enddo + +! Allocate Cuparm variables data type +if(iprntstmt>=1 .and. print_msg)print*,'start cuparm alloc' +allocate(cuparm_g(ngrids),cuparmm_g(ngrids)) +do ng=1,ngrids + CALL dealloc_cuparm (cuparm_g(ng)) + CALL dealloc_cuparm (cuparmm_g(ng)) + CALL alloc_cuparm (cuparm_g(ng),mmzp(ng),mmxp(ng),mmyp(ng),ng) + if (imean == 1) then + CALL alloc_cuparm (cuparmm_g(ng),mmzp(ng),mmxp(ng),mmyp(ng),ng) + elseif (imean == 0) then + CALL alloc_cuparm (cuparmm_g(ng),1,1,1,ng) + endif + + CALL filltab_cuparm (cuparm_g(ng),cuparmm_g(ng),imean & + ,mmzp(ng),mmxp(ng),mmyp(ng),ng) +enddo + +! Allocate Leaf type + +if(iprntstmt>=1 .and. print_msg)print*,'start leaf alloc' +allocate(leaf_g(ngrids),leafm_g(ngrids)) +do ng=1,ngrids + CALL dealloc_leaf (leaf_g(ng)) + CALL dealloc_leaf (leafm_g(ng)) + CALL alloc_leaf (leaf_g(ng),mmxp(ng),mmyp(ng) & + ,nzg,nzs,npatch) + if (imean == 1) then + CALL alloc_leaf (leafm_g(ng),mmxp(ng),mmyp(ng) & + ,nzg,nzs,npatch) + elseif (imean == 0) then + CALL alloc_leaf (leafm_g(ng),1,1,1,1,1) + endif + + CALL filltab_leaf (leaf_g(ng),leafm_g(ng),imean & + ,mmxp(ng),mmyp(ng),nzg,nzs,npatch,ng) +enddo + +! Allocate KPP Ocean mixed layer model type +if(iprntstmt>=1 .and. print_msg)print*,'start KPP-Ocean alloc' +allocate(kpp_const_fields%wmt(0:891,0:49)) +allocate(kpp_const_fields%wst(0:891,0:49)) +allocate(kpp_const_fields%tri(0:nkppz,0:1)) +allocate(kpp_3d_fields(ngrids),kpp_3d_fieldsm(ngrids)) +do ng=1,ngrids + CALL dealloc_kpp (kpp_3d_fields(ng)) + CALL dealloc_kpp (kpp_3d_fieldsm(ng)) + CALL alloc_kpp (kpp_3d_fields(ng),mmxp(ng),mmyp(ng),nkppz,ng) + if (imean == 1) then + CALL alloc_kpp (kpp_3d_fieldsm(ng),mmxp(ng),mmyp(ng),nkppz,ng) + elseif (imean == 0) then + CALL alloc_kpp (kpp_3d_fieldsm(ng),1,1,1,ng) + endif + + CALL filltab_kpp (kpp_3d_fields(ng),kpp_3d_fieldsm(ng),imean & + ,mmxp(ng),mmyp(ng),nkppz,ng) +enddo + +! Allocate SiB-RAMS +if(iprntstmt>=1 .and. print_msg)print*,'start Sib alloc' +allocate(sib_g(ngrids),sibm_g(ngrids)) +do ng=1,ngrids + CALL dealloc_sib (sib_g(ng)) + CALL dealloc_sib (sibm_g(ng)) + CALL alloc_sib (sib_g(ng),mmzp(ng),mmxp(ng),mmyp(ng),npatch) + if (imean==1) then + CALL alloc_sib (sibm_g(ng),mmzp(ng),mmxp(ng),mmyp(ng),npatch) + elseif (imean==0) then + CALL alloc_sib (sibm_g(ng),1,1,1,1) + endif + + CALL filltab_sib (sib_g(ng),sibm_g(ng),imean & + ,mmzp(ng),mmxp(ng),mmyp(ng),npatch,ng) +enddo + +! Allocate Micro variables data type +if(iprntstmt>=1 .and. print_msg)print*,'start micro alloc' +allocate(micro_g(ngrids),microm_g(ngrids),pcp_tab(ngrids)) +do ng=1,ngrids + CALL dealloc_micro (micro_g(ng)) + CALL dealloc_micro (microm_g(ng)) + CALL dealloc_sedim (pcp_tab(ng)) + CALL alloc_micro (micro_g(ng),mmzp(ng),mmxp(ng),mmyp(ng),nkr) + CALL alloc_sedim (pcp_tab(ng),mmzp(ng)) + if (imean == 1) then + CALL alloc_micro (microm_g(ng),mmzp(ng),mmxp(ng),mmyp(ng),nkr) + elseif (imean == 0) then + CALL alloc_micro (microm_g(ng),1,1,1,1) + endif + + CALL filltab_micro (micro_g(ng),microm_g(ng),imean & + ,mmzp(ng),mmxp(ng),mmyp(ng),ng) +enddo + +! Allocate radiate variables data type +if(iprntstmt>=1 .and. print_msg)print*,'start radiate alloc' +allocate(radiate_g(ngrids),radiatem_g(ngrids)) +do ng=1,ngrids + CALL dealloc_radiate (radiate_g(ng)) + CALL dealloc_radiate (radiatem_g(ng)) + CALL alloc_radiate (radiate_g(ng),mmzp(ng),mmxp(ng),mmyp(ng)) + if (imean == 1) then + CALL alloc_radiate (radiatem_g(ng),mmzp(ng),mmxp(ng),mmyp(ng)) + elseif (imean == 0) then + CALL alloc_radiate (radiatem_g(ng),1,1,1) + endif + + CALL filltab_radiate (radiate_g(ng),radiatem_g(ng),imean & + ,mmzp(ng),mmxp(ng),mmyp(ng),ng) +enddo + +! Allocate turb variables data type +if(iprntstmt>=1 .and. print_msg)print*,'start turb alloc' +allocate(turb_g(ngrids),turbm_g(ngrids)) +do ng=1,ngrids + CALL dealloc_turb (turb_g(ng)) + CALL dealloc_turb (turbm_g(ng)) + CALL alloc_turb (turb_g(ng),mmzp(ng),mmxp(ng),mmyp(ng),ngrids) + if (imean == 1) then + CALL alloc_turb (turbm_g(ng),mmzp(ng),mmxp(ng),mmyp(ng),ngrids) + elseif (imean == 0) then + CALL alloc_turb (turbm_g(ng),1,1,1,ngrids) + endif + + CALL filltab_turb (turb_g(ng),turbm_g(ng),imean & + ,mmzp(ng),mmxp(ng),mmyp(ng),ng) +enddo + +! Allocate varinit variables data type. +! These do not need "mean" type ever. +if(iprntstmt>=1 .and. print_msg)print*,'start varinit alloc' +allocate(varinit_g(ngrids),varinitm_g(ngrids)) +do ng=1,ngrids + CALL dealloc_varinit (varinit_g(ng)) + CALL dealloc_varinit (varinitm_g(ng)) + CALL alloc_varinit (varinit_g(ng),mmzp(ng),mmxp(ng),mmyp(ng)) + CALL alloc_varinit (varinitm_g(ng),1,1,1) + + CALL filltab_varinit (varinit_g(ng),varinitm_g(ng),0 & + ,mmzp(ng),mmxp(ng),mmyp(ng),ng) +enddo + +! Allocate oda variables data type. +! These do not need "mean" type ever. +if(iprntstmt>=1 .and. print_msg)print*,'start oda alloc' +allocate(oda_g(ngrids),odam_g(ngrids)) +do ng=1,ngrids + CALL dealloc_oda (oda_g(ng)) + CALL dealloc_oda (odam_g(ng)) + CALL alloc_oda (oda_g(ng),mmzp(ng),mmxp(ng),mmyp(ng)) + CALL alloc_oda (odam_g(ng),1,1,1) + + CALL filltab_oda (oda_g(ng),odam_g(ng),0 & + ,mmzp(ng),mmxp(ng),mmyp(ng),ng) +enddo + +! Allocate grid variables data type. + +if(iprntstmt>=1 .and. print_msg)print*,'start grid alloc' +allocate(grid_g(ngrids),gridm_g(ngrids)) +do ng=1,ngrids + CALL dealloc_grid (grid_g(ng)) + CALL dealloc_grid (gridm_g(ng)) + CALL alloc_grid (grid_g(ng),mmxp(ng),mmyp(ng)) + if (imean == 1) then + CALL alloc_grid (gridm_g(ng),mmxp(ng),mmyp(ng)) + elseif (imean == 0) then + CALL alloc_grid (gridm_g(ng),1,1) + endif + + CALL filltab_grid (grid_g(ng),gridm_g(ng),imean,mmxp(ng),mmyp(ng),ng) +enddo + +! Allocate any added Scalar types + +if(iprntstmt>=1 .and. print_msg)print*,'start scalar alloc' +allocate(tracer_g(itracer,ngrids),tracerm_g(itracer,ngrids)) +do ng=1,ngrids + CALL dealloc_tracer (tracer_g(:,ng),ng) + CALL dealloc_tracer (tracerm_g(:,ng),ng) + CALL alloc_tracer (tracer_g(:,ng),mmzp(ng),mmxp(ng),mmyp(ng),ng) + if (imean == 1) then + CALL alloc_tracer (tracerm_g(:,ng),mmzp(ng),mmxp(ng),mmyp(ng),ng) + elseif (imean == 0) then + CALL alloc_tracer (tracerm_g(:,ng),1,1,1,ng) + endif + + CALL filltab_tracer (tracer_g(:,ng),tracerm_g(:,ng),imean & + ,mmzp(ng),mmxp(ng),mmyp(ng),ng) +enddo + +! Allocate Tendency data type, filltab_tendency is responsible +! for filling the main atmospheric model variables in the scalar table, +! so make sure to call any routines that define scalar variables first. + +! Assuming same scalars on all grids!!!!! + +if(iprntstmt>=1 .and. print_msg)print*,'start tendency alloc' +CALL dealloc_tend (ngrids) +CALL alloc_tend (mmzp,mmxp,mmyp,ngrids) +do ng=1,ngrids + CALL filltab_tend (basic_g(ng),micro_g(ng),turb_g(ng),sib_g(ng) & + ,tracer_g(:,ng),ng) +enddo + +! Allocate Scratch data type, This also fills the max's that are needed +! by nesting stuff. + +if(iprntstmt>=1 .and. print_msg)print*,'start scratch alloc' +CALL dealloc_scratch () +CALL alloc_scratch (mmzp,mmxp,mmyp,nnzp,nnxp,nnyp,ngrids & + ,nzg,nzs,npatch,maxnxp,maxnyp,maxnzp) + +! Allocate nested boundary interpolation arrays. All grids will be allocated. + +if(iprntstmt>=1 .and. print_msg)print*,'start nestb alloc' +do ng=1,ngrids + if(nxtnest(ng) == 0 ) then + CALL alloc_nestb (ng,1,1,1) + else + CALL alloc_nestb (ng,nnxp(ng),nnyp(ng),nnzp(ng)) + endif +enddo + +! Set "Lite" variable flags according to namelist input LITE_VARS. + +CALL lite_varset () + + +! Set ALL variables in the vtab_r variable table to zero by default. These +! are variables processed in the filltab_* routines with a call to vtables2. +! This does NOT include scratch arrays, tendencies, or mean arrays. + +do ng = 1, ngrids + do nv = 1,num_var(ng) + if(iprntstmt>=1 .and. print_msg) & + print*,'Zeroing out array:',ng,nv,vtab_r(nv,ng)%name + CALL azero (vtab_r(nv,ng)%npts,vtab_r(nv,ng)%var_p) + enddo +enddo + +if(iprntstmt>=1 .and. print_msg)print*,'end alloc' + +return +END SUBROUTINE rams_mem_alloc + diff --git a/src/6.2.16/memory/grid_dims.f90 b/src/6.2.16/memory/grid_dims.f90 new file mode 100644 index 0000000..4a3fbe8 --- /dev/null +++ b/src/6.2.16/memory/grid_dims.f90 @@ -0,0 +1,63 @@ +!############################################################################## +Module grid_dims + +implicit none + +! This contains very basic specification of grid dimensions and other +! parameters that will be used to dimension arrays and allocate memory. + +! Set maximum values of parameters: + +integer, parameter :: & + maxargs = 10 & ! Max # of command line arguments (using only 3 now) + ,strl1 = 256 & ! Long character string length + ,strl2 = 256 & ! Longer line read character string length + ,maxgrds = 8 & ! Max # of grids + ,nxpmax = 3030 & ! Max # of points in x-direction + ,nypmax = 3030 & ! Max # of points in y-direction + ,nzpmax = 332 & ! Max # of points in z-direction + ,nzgmax = 20 & ! Max # of soil levels + ,nzsmax = 20 & ! Max # of surface water / snow levels + ,maxkppz = 200 & ! Max # of KPP ocean model levels + ,maxdim = 3030 & ! Largest of NXPMAX,NYPMAX,NZPMAX+10,NZGMAX + ,maxsclr = 350 & ! Max # of scalars + ,maxrevu = 1000 & ! Max # of revu variables in REVU_IN list + ,maxfiles = 10000 & ! Max # of analysis files for REVU to read + ,maxvars = 1000 & ! Max # of variables (3d + 2d + leaf) + ,maxrec = 1000 & ! Max record length (lines) of namelists + ,maxvalues = 300 & ! Max # of tokens to be read in from namelists + ,maxmach = 2048 & ! Max # of parallel processors + ,maxlite = 99 & ! Max # of lite variables + ,maxsstfiles = 2000 & ! Max # of SST total files + ,maxndvifiles = 2000 & ! Max # of NDVI total files + ,maxsstdata = 100 & ! Max # of SST file times + ,maxndvidata = 100 & ! Max # of NDVI file times + ,maxmiss = 1000 & ! Max # of missing surface data block files + ! + !Configuration for isentropic data analysis package maximum sizes + ,maxpr = 100 & ! Max # of vertical levels allowed in the pressure data + ,maxisn = 100 & ! Max # of vertical levels allowed in the isentropic analysis + ,maxx = 1000 & ! Max # of X (west-east) grid points in RAMS or pressure grids + ,maxy = 1000 & ! Max # of Y (north-south) grid points in RAMS or pressure grids + ,maxtimes = 100 & ! Max # of data analysis times that can be processed in a single run. + ,maxagrds = 10 & ! Max # of RAMS grids that can have varfiles generated + ,maxsigz = 100 & ! Max # of vertical levels allowed in sigma-z analysis. + ,maxlev = 500 & ! Max # of levels in an input rawinsonde + ,maxsname = 10000 & ! Max # of input observations + ,maxisfiles = 1000 & ! Max # of input data times + ! + !Configuration for observational data assimilation maximum sizes + ,maxnudfiles = 500 & ! Max # of nudging variable initialization files + ,maxodafiles = 1000 & ! Max # of ODA files + ,maxodasta = 5000 & ! Max # of station files + ,maxodagrids = 10 & ! Max # of ODA grids + ,maxodanzp = 200 & ! Max # of ODA NZP vertical levels + ,maxupalevs = 100 & ! Max # of upper air data levels + ,maxkobs = 10000 & ! Max # of vertical observations + ,maxodatimes = 3000 & ! Max # of ODA times (3*maxodafiles) + ! + !Configuration for sounding input + ,maxsndg = 20000 ! Max # of sounding levels for input + +END MODULE grid_dims + diff --git a/src/6.2.16/memory/grid_struct.f90 b/src/6.2.16/memory/grid_struct.f90 new file mode 100644 index 0000000..b47feff --- /dev/null +++ b/src/6.2.16/memory/grid_struct.f90 @@ -0,0 +1,182 @@ +!############################################################################## +Module grid_struct + +implicit none + +Type grid_def + +integer :: nxp,nyp,nzp,nzg,nzs,npatch,nvegpat +real :: plat, plon +real, allocatable, dimension(:) :: xtn,ytn,xmn,ymn,ztn,zmn +real, allocatable, dimension(:,:) :: topo + +End Type + +Contains + +!############################################################################## +Subroutine alloc_grid_def (grd,nx,ny,nz) + +implicit none + +type(grid_def) :: grd + +integer :: nx,ny,nz + +allocate (grd%xtn(nx),grd%ytn(ny),grd%xmn(nx),grd%ymn(ny),grd%ztn(nz),grd%zmn(nz)) +allocate (grd%topo(nx,ny)) + +return +END SUBROUTINE alloc_grid_def + +!############################################################################## +Subroutine dealloc_grid_def (grd) + +implicit none + +type(grid_def) :: grd + +deallocate (grd%xtn,grd%ytn,grd%xmn,grd%ymn,grd%ztn,grd%zmn) +deallocate (grd%topo) + +return +END SUBROUTINE dealloc_grid_def + +!############################################################################## +Subroutine fill_grid_def (grd,nx,ny,nz,ng,ns,np,npv,plt,pln & + ,xt,xm,yt,ym,zt,zm,topo) + +! Fill grid_def structure - must call alloc_grid_def first + +implicit none + +type(grid_def) :: grd + +integer :: nx,ny,nz,ng,ns,np,npv +real :: plt,pln, xt(nx),yt(ny),zt(nz) & + ,xm(nx),ym(ny),zm(nz),topo(nx,ny) + +grd%nxp=nx ; grd%nyp=ny ; grd%nzp=nz +grd%nzg=ng ; grd%nzs=ns ; grd%npatch=np ; grd%nvegpat=npv +grd%plat=plt ; grd%plon=pln + +grd%xtn(1:nx)=xt(1:nx) +grd%xmn(1:nx)=xm(1:nx) +grd%ytn(1:ny)=yt(1:ny) +grd%ymn(1:ny)=ym(1:ny) +grd%ztn(1:nz)=zt(1:nz) +grd%zmn(1:nz)=zm(1:nz) + +grd%topo(1:nx,1:ny)=topo(1:nx,1:ny) + +return +END SUBROUTINE fill_grid_def + +!############################################################################## +Subroutine compare_grid_def (g1,g2,string,ierr,hngr,cngr) + +! Compare two grids to see if they are the same structure +! Input: g1,g2 - grid_def structures filled with call to fill_grid_def +! string - identifier string to be printed on errors + +implicit none + +type(grid_def) :: g1, g2 +integer :: ierr,ict,nd,hngr,cngr +character(len=*) :: string +integer, external :: check_real + +ict=0 +ierr=0 +print*,'###################################################################' +print*,'### COMPARING HISTORY AND CURRENT GRIDS FOR MATCHING' +print*,'### HISTORY GRID:',hngr,' CURRENT GRID:',cngr +print*,'###################################################################' +if (g1%nxp /= g2%nxp ) then + ict=ict+1 + print*,'Compare_grid: ',trim(string),': nxp different',g1%nxp,g2%nxp +endif + +if (g1%nyp /= g2%nyp ) then + ict=ict+1 + print*,'Compare_grid: ',trim(string),': nyp different',g1%nyp,g2%nyp +endif + +if (g1%nzp /= g2%nzp ) then + ict=ict+1 + print*,'Compare_grid: ',trim(string),': nzp different',g1%nzp,g2%nzp +endif + +if (g1%nzg /= g2%nzg ) then + ict=ict+1 + print*,'Compare_grid: ',trim(string),': nzg different',g1%nzg,g2%nzg +endif + +if (g1%nzs /= g2%nzs ) then + ict=ict+1 + print*,'Compare_grid: ',trim(string),': nzs different',g1%nzs,g2%nzs +endif + +if (g1%npatch /= g2%npatch ) then + ict=ict+1 + print*,'Compare_grid: ',trim(string),': npatch different',g1%npatch,g2%npatch +endif + +if (g1%nvegpat /= g2%nvegpat ) then + ict=ict+1 + print*,'Compare_grid: ',trim(string),': nvegpat different',g1%nvegpat,g2%nvegpat +endif + +nd=check_real(g1%plat,g2%plat,1,1) +if ( nd > 0 ) then + ict=ict+1 + print*,'Compare_grid: ',trim(string),': plat different',g1%plat,g2%plat +endif + +nd=check_real(g1%plon,g2%plon,1,1) +if ( nd > 0 ) then + ict=ict+1 + print*,'Compare_grid: ',trim(string),': plon different',g1%plon,g2%plon +endif + +nd=check_real(g1%xtn,g2%xtn,g1%nxp,g2%nxp) +if ( nd > 0 ) then + ict=ict+1 + print*,'Compare_grid: ',trim(string),': xtn different',g1%xtn(nd),g2%xtn(nd) +endif + +nd=check_real(g1%ytn,g2%ytn,g1%nyp,g2%nyp) +if ( nd > 0 ) then + ict=ict+1 + print*,'Compare_grid: ',trim(string),': ytn different',g1%ytn(nd),g2%ytn(nd) +endif + +if (g1%nzp == g2%nzp) then + nd=check_real(g1%ztn(1),g2%ztn(1),g1%nzp,g2%nzp) + if ( nd > 0 ) then + ict=ict+1 + print*,'Compare_grid: ',trim(string),': ztn different',g1%ztn(nd),g2%ztn(nd) + endif +else + print*,'Compare_grid: ',trim(string),': not checking: ztn, nzp different' +endif + +if(g1%nxp == g2%nxp .and. g1%nyp == g2%nyp) then + nd=check_real(g1%topo(1,1),g2%topo(1,1),g1%nxp*g1%nyp,g2%nxp*g2%nyp) + if ( nd > 0 ) then + ict=ict+1 + print*,'Compare_grid: ',trim(string),': topo different' + endif +else + print*,'Compare_grid: ',trim(string),': not checking: topo, nxp or nyp different' +endif + +if (ict > 0) then + print*,'Compare_grid: ',trim(string),': ',ict,' mismatches' + ierr=1 +endif + +return +END SUBROUTINE compare_grid_def + +END MODULE grid_struct diff --git a/src/6.2.16/memory/mem_all.f90 b/src/6.2.16/memory/mem_all.f90 new file mode 100644 index 0000000..9e7bfe0 --- /dev/null +++ b/src/6.2.16/memory/mem_all.f90 @@ -0,0 +1,29 @@ +!############################################################################## +Module mem_all + +use mem_basic +use mem_cuparm +use mem_grid +use mem_leaf +use mem_sib +use mem_micro +use mem_radiate +use mem_tracer +use mem_scratch +use mem_tend +use mem_turb +use mem_varinit +use mem_nestb +use mem_oda +use mem_kpp + +use var_tables +use io_params +use micphys +use micro_prm +use ref_sounding +use kpp_parameters + +implicit none + +END MODULE mem_all diff --git a/src/6.2.16/memory/mem_basic.f90 b/src/6.2.16/memory/mem_basic.f90 new file mode 100644 index 0000000..24b68ea --- /dev/null +++ b/src/6.2.16/memory/mem_basic.f90 @@ -0,0 +1,241 @@ +!############################################################################## +Module mem_basic + +implicit none + + Type basic_vars + + ! Variables to be dimensioned by (nzp,nxp,nyp) + real, allocatable, dimension(:,:,:) :: & + up,uc,vp,vc,wp,wc,pp,pc & + ,rv,theta,thp,rtp & + ,pi0,th0,rvt0,dn0,dn0u,dn0v & + ,wp_buoy_theta,wp_buoy_cond,wp_advdif + + ! These were used for testing perturbations of updated + ! domain-mean base state quantities. Could be useful in testing. + real, allocatable, dimension(:,:,:) :: th00,rvt00 + + ! Variables to be dimensioned by (nxp,nyp) + real, allocatable, dimension(:,:) :: & + fcoru,fcorv + + End Type + + type (basic_vars), allocatable :: basic_g(:), basicm_g(:) + +Contains + +!############################################################################## +Subroutine alloc_basic (basic,n1,n2,n3) + +use micphys + +implicit none + + type (basic_vars) :: basic + integer, intent(in) :: n1,n2,n3 + +! Allocate arrays based on options (if necessary) + + allocate (basic%up(n1,n2,n3)) + allocate (basic%uc(n1,n2,n3)) + allocate (basic%vp(n1,n2,n3)) + allocate (basic%vc(n1,n2,n3)) + allocate (basic%wp(n1,n2,n3)) + allocate (basic%wc(n1,n2,n3)) + allocate (basic%pp(n1,n2,n3)) + allocate (basic%pc(n1,n2,n3)) + allocate (basic%thp(n1,n2,n3)) + allocate (basic%rtp(n1,n2,n3)) + allocate (basic%rv(n1,n2,n3)) + allocate (basic%theta(n1,n2,n3)) + allocate (basic%pi0(n1,n2,n3)) + allocate (basic%th0(n1,n2,n3)) + allocate (basic%rvt0(n1,n2,n3)) + allocate (basic%dn0(n1,n2,n3)) + allocate (basic%dn0u(n1,n2,n3)) + allocate (basic%dn0v(n1,n2,n3)) + + allocate (basic%fcoru(n2,n3)) + allocate (basic%fcorv(n2,n3)) + + allocate (basic%th00(n1,n2,n3)) + allocate (basic%rvt00(n1,n2,n3)) + + if(imbudget>=1) then + allocate (basic%wp_buoy_theta(n1,n2,n3)) + allocate (basic%wp_buoy_cond(n1,n2,n3)) + allocate (basic%wp_advdif(n1,n2,n3)) + endif + +return +END SUBROUTINE alloc_basic + +!############################################################################## +Subroutine dealloc_basic (basic) + +implicit none + + type (basic_vars) :: basic + + if (allocated(basic%up )) deallocate (basic%up ) + if (allocated(basic%uc )) deallocate (basic%uc ) + if (allocated(basic%vp )) deallocate (basic%vp ) + if (allocated(basic%vc )) deallocate (basic%vc ) + if (allocated(basic%wp )) deallocate (basic%wp ) + if (allocated(basic%wc )) deallocate (basic%wc ) + if (allocated(basic%pp )) deallocate (basic%pp ) + if (allocated(basic%pc )) deallocate (basic%pc ) + if (allocated(basic%thp )) deallocate (basic%thp ) + if (allocated(basic%rtp )) deallocate (basic%rtp ) + if (allocated(basic%rv )) deallocate (basic%rv ) + if (allocated(basic%theta)) deallocate (basic%theta) + if (allocated(basic%pi0 )) deallocate (basic%pi0 ) + if (allocated(basic%th0 )) deallocate (basic%th0 ) + if (allocated(basic%rvt0 )) deallocate (basic%rvt0 ) + if (allocated(basic%dn0 )) deallocate (basic%dn0 ) + if (allocated(basic%dn0u )) deallocate (basic%dn0u ) + if (allocated(basic%dn0v )) deallocate (basic%dn0v ) + if (allocated(basic%fcoru )) deallocate (basic%fcoru ) + if (allocated(basic%fcorv )) deallocate (basic%fcorv ) + + if (allocated(basic%th00 )) deallocate (basic%th00 ) + if (allocated(basic%rvt00 )) deallocate (basic%rvt00 ) + + if (allocated(basic%wp_buoy_theta)) deallocate (basic%wp_buoy_theta) + if (allocated(basic%wp_buoy_cond)) deallocate (basic%wp_buoy_cond) + if (allocated(basic%wp_advdif)) deallocate (basic%wp_advdif) + +return +END SUBROUTINE dealloc_basic + +!############################################################################## +Subroutine filltab_basic (basic,basicm,imean,n1,n2,n3,ng) + +use var_tables + +implicit none + + type (basic_vars) :: basic,basicm + integer, intent(in) :: imean,n1,n2,n3,ng + integer :: npts + +! Fill arrays into variable tables + + npts=n1*n2*n3 + + if (allocated(basic%up)) & + CALL vtables2 (basic%up(1,1,1),basicm%up(1,1,1) & + ,ng, npts, imean, & + 'UP :3:anal:mpti') + if (allocated(basic%vp)) & + CALL vtables2 (basic%vp(1,1,1),basicm%vp(1,1,1) & + ,ng, npts, imean, & + 'VP :3:anal:mpti') + if (allocated(basic%wp)) & + CALL vtables2 (basic%wp(1,1,1),basicm%wp(1,1,1) & + ,ng, npts, imean, & + 'WP :3:anal:mpti') + if (allocated(basic%pp)) & + CALL vtables2 (basic%pp(1,1,1),basicm%pp(1,1,1) & + ,ng, npts, imean, & + 'PP :3:anal:mpti') + if (allocated(basic%uc)) & + CALL vtables2 (basic%uc(1,1,1),basicm%uc(1,1,1) & + ,ng, npts, imean, & + 'UC :3:anal:mpti') + if (allocated(basic%vc)) & + CALL vtables2 (basic%vc(1,1,1),basicm%vc(1,1,1) & + ,ng, npts, imean, & + 'VC :3:anal:mpti') + if (allocated(basic%wc)) & + CALL vtables2 (basic%wc(1,1,1),basicm%wc(1,1,1) & + ,ng, npts, imean, & + 'WC :3:anal:mpti') + if (allocated(basic%pc)) & + CALL vtables2 (basic%pc(1,1,1),basicm%pc(1,1,1) & + ,ng, npts, imean, & + 'PC :3:anal:mpti') + + + if (allocated(basic%thp)) & + CALL vtables2 (basic%thp(1,1,1),basicm%thp(1,1,1) & + ,ng, npts, imean, & + 'THP :3:anal:mpti:mpt1') + if (allocated(basic%rtp)) & + CALL vtables2 (basic%rtp(1,1,1),basicm%rtp(1,1,1) & + ,ng, npts, imean, & + 'RTP :3:anal:mpti:mpt1') + + if (allocated(basic%theta)) & + CALL vtables2 (basic%theta(1,1,1),basicm%theta(1,1,1) & + ,ng, npts, imean, & + 'THETA :3:anal:mpti') + if (allocated(basic%rv)) & + CALL vtables2 (basic%rv(1,1,1),basicm%rv(1,1,1) & + ,ng, npts, imean, & + 'RV :3:anal:mpti') + + if (allocated(basic%pi0)) & + CALL vtables2 (basic%pi0(1,1,1),basicm%pi0(1,1,1) & + ,ng, npts, imean, & + 'PI0 :3:mpti') + if (allocated(basic%th0)) & + CALL vtables2 (basic%th0(1,1,1),basicm%th0(1,1,1) & + ,ng, npts, imean, & + 'TH0 :3:mpti') + if (allocated(basic%rvt0)) & + CALL vtables2 (basic%rvt0(1,1,1),basicm%rvt0(1,1,1) & + ,ng, npts, imean, & + 'RVT0 :3:mpti') + if (allocated(basic%dn0)) & + CALL vtables2 (basic%dn0(1,1,1),basicm%dn0(1,1,1) & + ,ng, npts, imean, & + 'DN0 :3:anal:mpti') + if (allocated(basic%dn0u)) & + CALL vtables2 (basic%dn0u(1,1,1),basicm%dn0u(1,1,1) & + ,ng, npts, imean, & + 'DN0U :3:mpti') + if (allocated(basic%dn0v)) & + CALL vtables2 (basic%dn0v(1,1,1),basicm%dn0v(1,1,1) & + ,ng, npts, imean, & + 'DN0V :3:mpti') + + if (allocated(basic%th00)) & + CALL vtables2 (basic%th00(1,1,1),basicm%th00(1,1,1) & + ,ng, npts, imean, & + 'TH00 :3:mpti') + if (allocated(basic%rvt00)) & + CALL vtables2 (basic%rvt00(1,1,1),basicm%rvt00(1,1,1) & + ,ng, npts, imean, & + 'RVT00 :3:mpti') + + if (allocated(basic%wp_buoy_theta)) & + CALL vtables2 (basic%wp_buoy_theta(1,1,1),basicm%wp_buoy_theta(1,1,1) & + ,ng, npts, imean, & + 'WP_BUOY_THETA :3:anal:mpti') + if (allocated(basic%wp_buoy_cond)) & + CALL vtables2 (basic%wp_buoy_cond(1,1,1),basicm%wp_buoy_cond(1,1,1) & + ,ng, npts, imean, & + 'WP_BUOY_COND :3:anal:mpti') + if (allocated(basic%wp_advdif)) & + CALL vtables2 (basic%wp_advdif(1,1,1),basicm%wp_advdif(1,1,1) & + ,ng, npts, imean, & + 'WP_ADVDIF :3:anal:mpti') + + ! 2D CORIOLIS INFO FOR VTABLES + npts=n2*n3 + if (allocated(basic%fcoru)) & + CALL vtables2 (basic%fcoru(1,1),basicm%fcoru(1,1) & + ,ng, npts, imean, & + 'FCORU :2:mpti') + if (allocated(basic%fcorv)) & + CALL vtables2 (basic%fcorv(1,1),basicm%fcorv(1,1) & + ,ng, npts, imean, & + 'FCORV :2:mpti') + +return +END SUBROUTINE filltab_basic + +END MODULE mem_basic diff --git a/src/6.2.16/memory/mem_cuparm.f90 b/src/6.2.16/memory/mem_cuparm.f90 new file mode 100644 index 0000000..baccc08 --- /dev/null +++ b/src/6.2.16/memory/mem_cuparm.f90 @@ -0,0 +1,186 @@ +!############################################################################## +Module mem_cuparm + +use grid_dims + +implicit none + + Type cuparm_vars + + ! Variables to be dimensioned by (nzp,nxp,nyp) + real, allocatable, dimension(:,:,:) :: & + thsrc,rtsrc,thsrcf,rtsrcf,thsrcp,rtsrcp & + ,rcsrc,rrsrc,rssrc,rpsrc,w0avg,w0avglt + + ! Variables to be dimensioned by (nxp,nyp) + real, allocatable, dimension(:,:) :: & + aconpr,conprr,conprrp,conprrf & + ,nca,convgo + + + End Type + + type (cuparm_vars), allocatable :: cuparm_g(:), cuparmm_g(:) + + integer, dimension(maxgrds) :: nnqparm + real :: wcldbs,confrq + +Contains + +!############################################################################## +Subroutine alloc_cuparm (cuparm,n1,n2,n3,ng) + +implicit none + + type (cuparm_vars) :: cuparm + integer, intent(in) :: n1,n2,n3,ng + +! Allocate arrays based on options (if necessary) + + if( nnqparm(ng)>= 1) then + allocate (cuparm%thsrc(n1,n2,n3)) + allocate (cuparm%rtsrc(n1,n2,n3)) + allocate (cuparm%aconpr(n2,n3)) + allocate (cuparm%conprr(n2,n3)) + if (nnqparm(ng) == 2) then + allocate (cuparm%rcsrc(n1,n2,n3)) + allocate (cuparm%rrsrc(n1,n2,n3)) + allocate (cuparm%rssrc(n1,n2,n3)) + allocate (cuparm%rpsrc(n1,n2,n3)) + allocate (cuparm%w0avg(n1,n2,n3)) + allocate (cuparm%w0avglt(n1,n2,n3)) + allocate (cuparm%nca(n2,n3)) + allocate (cuparm%convgo(n2,n3)) + endif + endif + +return +END SUBROUTINE alloc_cuparm + +!############################################################################## +Subroutine dealloc_cuparm (cuparm) + +implicit none + + type (cuparm_vars) :: cuparm + + if (allocated(cuparm%thsrc)) deallocate (cuparm%thsrc) + if (allocated(cuparm%rtsrc)) deallocate (cuparm%rtsrc) + if (allocated(cuparm%thsrcp)) deallocate (cuparm%thsrcp) + if (allocated(cuparm%rtsrcp)) deallocate (cuparm%rtsrcp) + if (allocated(cuparm%thsrcf)) deallocate (cuparm%thsrcf) + if (allocated(cuparm%rtsrcf)) deallocate (cuparm%rtsrcf) + if (allocated(cuparm%aconpr)) deallocate (cuparm%aconpr) + if (allocated(cuparm%conprr)) deallocate (cuparm%conprr) + if (allocated(cuparm%conprrp)) deallocate (cuparm%conprrp) + if (allocated(cuparm%conprrf)) deallocate (cuparm%conprrf) + + if (allocated(cuparm%rcsrc) ) deallocate (cuparm%rcsrc) + if (allocated(cuparm%rrsrc) ) deallocate (cuparm%rrsrc) + if (allocated(cuparm%rssrc) ) deallocate (cuparm%rssrc) + if (allocated(cuparm%rpsrc) ) deallocate (cuparm%rpsrc) + if (allocated(cuparm%w0avg) ) deallocate (cuparm%w0avg) + if (allocated(cuparm%w0avglt)) deallocate (cuparm%w0avglt) + if (allocated(cuparm%nca) ) deallocate (cuparm%nca) + if (allocated(cuparm%convgo) ) deallocate (cuparm%convgo) + +return +END SUBROUTINE dealloc_cuparm + +!############################################################################## +Subroutine filltab_cuparm (cuparm,cuparmm,imean,n1,n2,n3,ng) + +use var_tables + +implicit none + + type (cuparm_vars) :: cuparm,cuparmm + integer, intent(in) :: imean,n1,n2,n3,ng + integer :: npts + +! Fill arrays into variable tables + + npts=n1*n2*n3 + + if (allocated(cuparm%thsrc)) & + CALL vtables2 (cuparm%thsrc(1,1,1),cuparmm%thsrc(1,1,1) & + ,ng, npts, imean, & + 'THSRC :3:anal:mpti') + if (allocated(cuparm%rtsrc)) & + CALL vtables2 (cuparm%rtsrc(1,1,1),cuparmm%rtsrc(1,1,1) & + ,ng, npts, imean, & + 'RTSRC :3:anal:mpti') + if (allocated(cuparm%thsrcp)) & + CALL vtables2 (cuparm%thsrcp(1,1,1),cuparmm%thsrcp(1,1,1) & + ,ng, npts, imean, & + 'THSRCP :3:mpti:') + if (allocated(cuparm%rtsrcp)) & + CALL vtables2 (cuparm%rtsrcp(1,1,1),cuparmm%rtsrcp(1,1,1) & + ,ng, npts, imean, & + 'RTSRCP :3:mpti:') + if (allocated(cuparm%thsrcf)) & + CALL vtables2 (cuparm%thsrcf(1,1,1),cuparmm%thsrcf(1,1,1) & + ,ng, npts, imean, & + 'THSRCF :3:mpti:') + if (allocated(cuparm%rtsrcf)) & + CALL vtables2 (cuparm%rtsrcf(1,1,1),cuparmm%rtsrcf(1,1,1) & + ,ng, npts, imean, & + 'RTSRCF :3:mpti:') + + npts=n2*n3 + if (allocated(cuparm%aconpr)) & + CALL vtables2 (cuparm%aconpr(1,1),cuparmm%aconpr(1,1) & + ,ng, npts, imean, & + 'ACONPR :2:anal:mpti') + if (allocated(cuparm%conprr)) & + CALL vtables2 (cuparm%conprr(1,1),cuparmm%conprr(1,1) & + ,ng, npts, imean, & + 'CONPRR :2:anal:mpti') + if (allocated(cuparm%conprrp)) & + CALL vtables2 (cuparm%conprrp(1,1),cuparmm%conprrp(1,1) & + ,ng, npts, imean, & + 'CONPRRP :2:mpti') + if (allocated(cuparm%conprrf)) & + CALL vtables2 (cuparm%conprrf(1,1),cuparmm%conprrf(1,1) & + ,ng, npts, imean, & + 'CONPRRF :2:mpti') + + npts=n1*n2*n3 + if (allocated(cuparm%rcsrc) ) & + CALL vtables2 (cuparm%rcsrc(1,1,1),cuparmm%rcsrc(1,1,1) & + ,ng, npts, imean, & + 'RCSRC :3:anal:mpti') + if (allocated(cuparm%rrsrc) ) & + CALL vtables2 (cuparm%rrsrc(1,1,1),cuparmm%rrsrc(1,1,1) & + ,ng, npts, imean, & + 'RRSRC :3:anal:mpti') + if (allocated(cuparm%rssrc) ) & + CALL vtables2 (cuparm%rssrc(1,1,1),cuparmm%rssrc(1,1,1) & + ,ng, npts, imean, & + 'RSSRC :3:anal:mpti') + if (allocated(cuparm%rpsrc) ) & + CALL vtables2 (cuparm%rpsrc(1,1,1),cuparmm%rpsrc(1,1,1) & + ,ng, npts, imean, & + 'RPSRC :3:anal:mpti') + if (allocated(cuparm%w0avg) ) & + CALL vtables2 (cuparm%w0avg(1,1,1),cuparmm%w0avg(1,1,1) & + ,ng, npts, imean, & + 'W0AVG :3:anal:mpti') + if (allocated(cuparm%w0avglt)) & + CALL vtables2 (cuparm%w0avglt(1,1,1),cuparmm%w0avglt(1,1,1) & + ,ng, npts, imean, & + 'W0AVGLT :3:anal:mpti') + npts=n2*n3 + if (allocated(cuparm%nca) ) & + CALL vtables2 (cuparm%nca(1,1),cuparmm%nca(1,1) & + ,ng, npts, imean, & + 'NCA :2:anal:mpti') + if (allocated(cuparm%convgo) ) & + CALL vtables2 (cuparm%convgo(1,1),cuparmm%convgo(1,1) & + ,ng, npts, imean, & + 'CONVGO :2:anal:mpti') + +return +END SUBROUTINE filltab_cuparm + +END MODULE mem_cuparm diff --git a/src/6.2.16/memory/mem_grid.f90 b/src/6.2.16/memory/mem_grid.f90 new file mode 100644 index 0000000..599503a --- /dev/null +++ b/src/6.2.16/memory/mem_grid.f90 @@ -0,0 +1,327 @@ +!############################################################################## +Module mem_grid + +use grid_dims + +implicit none + + Type grid_vars + + ! Variables to be dimensioned by (nxp,nyp) + real, allocatable, dimension(:,:) :: & + topt, topu, topv, topm & + , rtgt, rtgu, rtgv, rtgm & + , f13t, f13u, f13v, f13m, f23t , f23u , f23v , f23m & + , dxt, dxu, dxv, dxm, dyt , dyu , dyv , dym & + , fmapt, fmapu, fmapv, fmapm,fmapti,fmapui,fmapvi,fmapmi & + , glat, glon, topzo + + End Type + + type (grid_vars), allocatable :: grid_g(:), gridm_g(:) + + !------------------------------------------------------------------------------- + character(len=strl1) :: expnme,ramsorrevu + !------------------------------------------------------------------------------- + integer :: ngrids,ngridsh + !------------------------------------------------------------------------------- + integer, dimension(maxgrds) :: nnxp,nnyp,nnzp + + !------------------------------------------------------------------------------- + integer, dimension(maxgrds) :: nnx,nnx1,nnx2,nny,nny1,nny2,nnz,nnz1 & + ,nnxyzp,nnxysp,nnxyp + !------------------------------------------------------------------------------- + real, dimension(nzpmax,maxgrds) :: htn,ht2n,ht4n,hwn,hw2n,hw4n + !------------------------------------------------------------------------------- + real, dimension(nzpmax,maxgrds) :: dztn,dzmn,dzt2n,dzm2n,ztn,zmn + real, dimension(nxpmax,maxgrds) :: xtn,xmn + real, dimension(nypmax,maxgrds) :: ytn,ymn + !------------------------------------------------------------------------------- + integer :: nxp,nx,nx1,nx2,nyp,ny,ny1,ny2,nzp,nzpp,nz,nz1 & + ,nxyzp,nxyp,nxysp,nsttop,nstbot,ndtrat,jdim + !------------------------------------------------------------------------------- + real :: deltax,deltaz + real, dimension(nzpmax) :: ht,ht2,ht4,hw,hw2,hw4,zt,zm,dzt,dzm,dzt2,dzm2 + real, dimension(nxpmax) :: xt,xm + real, dimension(nypmax) :: yt,ym + + integer :: nzg,nzs,npatch + + integer :: itopo,ihtran + + !------------------------------------------------------------------------------- + integer :: ngrid,ngridc,ngrido,iscr1,iscr2 + !------------------------------------------------------------------------------- + integer :: memsize,iounit,maxpro,memscr,memind & + ,iogrid,maxpts,maxnzp,maxnxp,maxnyp,i2dvar + integer,dimension(maxgrds) :: memgrd + + !------------------------------------------------------------------------------- + real :: time,ztop,dzrat,dzmax,eps + integer :: impl,iyear1,imonth1,idate1,ihour1 & + ,itime1,nacoust,initial,initorig,iflag,hrestart + integer, dimension(maxgrds) :: nnacoust + real, dimension(maxgrds) :: deltazn,deltaxn,dtlongn + real, dimension(nzpmax) :: zz + + real :: dtlong,sspct,polelat,polelon + real, dimension(maxgrds) :: centlat,centlon & + ,cflxy,cflz,cflxy_max,cflz_max & + ,vertvel,vertvel_max + !------------------------------------------------------------------------------- + character (len=16) :: runtype + character(len=1) :: timeunit + !------------------------------------------------------------------------------- + integer :: isstp,istp + real :: timmax,dts,dtlt,dtlv + + integer :: nestz,iprntstmt + logical :: print_msg + integer, dimension(maxgrds) :: nndtrat,nstratx,nstraty & + ,ngbegun,nxtnest,nnsttop,nnstbot & + ,ninest,njnest,nknest + integer, dimension(nzpmax) :: nstratz + + !------------------------------------------------------------------------------- + integer, parameter :: maxsched=2000,maxschent=5 + integer :: nsubs + integer, dimension(maxsched,maxschent) :: isched + + !--------------------------------------------------------------------------- + integer, dimension(nxpmax,maxgrds) :: ipm + integer, dimension(nypmax,maxgrds) :: jpm + integer, dimension(nzpmax,maxgrds) :: nrz,kpm + real, dimension(nxpmax,maxgrds) :: ei1,ei2,ei3,ei4,ei5,ei6,ei7 + real, dimension(nypmax,maxgrds) :: ej1,ej2,ej3,ej4,ej5,ej6,ej7 + real, dimension(nzpmax,maxgrds) :: ek1,ek2,ek3,ek4,ek5,ek6,ek7 + real, dimension(nzpmax,maxgrds,4) :: fbcf + !--------------------------------------------------------------------------- + !------------------------------------------------------------------------------- + integer :: lsflg,ibnd,jbnd,icorflg,nfpt + !------------------------------------------------------------------------------- + real :: distim ,cphas + !------------------------------------------------------------------------------- + +Contains + +!############################################################################## +Subroutine alloc_grid (grid,n2,n3) + +implicit none + + type (grid_vars) :: grid + integer, intent(in) :: n2,n3 + +! Allocate arrays based on options (if necessary) + + allocate (grid%topt(n2,n3)) + allocate (grid%topu(n2,n3)) + allocate (grid%topv(n2,n3)) + allocate (grid%topm(n2,n3)) + allocate (grid%rtgt(n2,n3)) + allocate (grid%rtgu(n2,n3)) + allocate (grid%rtgv(n2,n3)) + allocate (grid%rtgm(n2,n3)) + allocate (grid%f13t(n2,n3)) + allocate (grid%f13u(n2,n3)) + allocate (grid%f13v(n2,n3)) + allocate (grid%f13m(n2,n3)) + allocate (grid%f23t(n2,n3)) + allocate (grid%f23u(n2,n3)) + allocate (grid%f23v(n2,n3)) + allocate (grid%f23m(n2,n3)) + allocate (grid%dxt(n2,n3)) + allocate (grid%dxu(n2,n3)) + allocate (grid%dxv(n2,n3)) + allocate (grid%dxm(n2,n3)) + allocate (grid%dyt(n2,n3)) + allocate (grid%dyu(n2,n3)) + allocate (grid%dyv(n2,n3)) + allocate (grid%dym(n2,n3)) + allocate (grid%fmapt(n2,n3)) + allocate (grid%fmapu(n2,n3)) + allocate (grid%fmapv(n2,n3)) + allocate (grid%fmapm(n2,n3)) + allocate (grid%fmapti(n2,n3)) + allocate (grid%fmapui(n2,n3)) + allocate (grid%fmapvi(n2,n3)) + allocate (grid%fmapmi(n2,n3)) + allocate (grid%glat(n2,n3)) + allocate (grid%glon(n2,n3)) + allocate (grid%topzo(n2,n3)) + +return +END SUBROUTINE alloc_grid + +!############################################################################## +Subroutine dealloc_grid (grid) + +implicit none + + type (grid_vars) :: grid + +! Deallocate arrays + + if(allocated(grid%topt )) deallocate (grid%topt) + if(allocated(grid%topu )) deallocate (grid%topu) + if(allocated(grid%topv )) deallocate (grid%topv) + if(allocated(grid%topm )) deallocate (grid%topm) + if(allocated(grid%rtgt )) deallocate (grid%rtgt) + if(allocated(grid%rtgu )) deallocate (grid%rtgu) + if(allocated(grid%rtgv )) deallocate (grid%rtgv) + if(allocated(grid%rtgm )) deallocate (grid%rtgm) + if(allocated(grid%f13t )) deallocate (grid%f13t) + if(allocated(grid%f13u )) deallocate (grid%f13u) + if(allocated(grid%f13v )) deallocate (grid%f13v) + if(allocated(grid%f13m )) deallocate (grid%f13m) + if(allocated(grid%f23t )) deallocate (grid%f23t) + if(allocated(grid%f23u )) deallocate (grid%f23u) + if(allocated(grid%f23v )) deallocate (grid%f23v) + if(allocated(grid%f23m )) deallocate (grid%f23m) + if(allocated(grid%dxt )) deallocate (grid%dxt) + if(allocated(grid%dxu )) deallocate (grid%dxu) + if(allocated(grid%dxv )) deallocate (grid%dxv) + if(allocated(grid%dxm )) deallocate (grid%dxm) + if(allocated(grid%dyt )) deallocate (grid%dyt) + if(allocated(grid%dyu )) deallocate (grid%dyu) + if(allocated(grid%dyv )) deallocate (grid%dyv) + if(allocated(grid%dym )) deallocate (grid%dym) + if(allocated(grid%fmapt )) deallocate (grid%fmapt) + if(allocated(grid%fmapu )) deallocate (grid%fmapu) + if(allocated(grid%fmapv )) deallocate (grid%fmapv) + if(allocated(grid%fmapm )) deallocate (grid%fmapm) + if(allocated(grid%fmapti )) deallocate (grid%fmapti) + if(allocated(grid%fmapui )) deallocate (grid%fmapui) + if(allocated(grid%fmapvi )) deallocate (grid%fmapvi) + if(allocated(grid%fmapmi )) deallocate (grid%fmapmi) + if(allocated(grid%glat )) deallocate (grid%glat) + if(allocated(grid%glon )) deallocate (grid%glon) + if(allocated(grid%topzo )) deallocate (grid%topzo) + +return +END SUBROUTINE dealloc_grid + +!############################################################################## +Subroutine filltab_grid (grid,gridm,imean,n2,n3,ng) + +use var_tables + +implicit none + + type (grid_vars) :: grid,gridm + integer, intent(in) :: imean,n2,n3,ng + integer :: npts + +! Fill arrays into variable tables + + npts=n2*n3 + if (allocated(grid%topt)) & + CALL vtables2 (grid%topt(1,1),gridm%topt(1,1),ng,npts,imean, & + 'TOPT :2:anal:mpti') + if (allocated(grid%topu)) & + CALL vtables2 (grid%topu(1,1),gridm%topu(1,1),ng, npts, imean, & + 'TOPU :2:mpti') + if (allocated(grid%topv)) & + CALL vtables2 (grid%topv(1,1),gridm%topv(1,1),ng, npts, imean, & + 'TOPV :2:mpti') + if (allocated(grid%topm)) & + CALL vtables2 (grid%topm(1,1),gridm%topm(1,1),ng, npts, imean, & + 'TOPM :2:mpti') + if (allocated(grid%rtgt)) & + CALL vtables2 (grid%rtgt(1,1),gridm%rtgt(1,1),ng, npts, imean, & + 'RTGT :2:mpti') + if (allocated(grid%rtgu)) & + CALL vtables2 (grid%rtgu(1,1),gridm%rtgu(1,1),ng, npts, imean, & + 'RTGU :2:mpti') + if (allocated(grid%rtgv)) & + CALL vtables2 (grid%rtgv(1,1),gridm%rtgv(1,1),ng, npts, imean, & + 'RTGV :2:mpti') + if (allocated(grid%rtgm)) & + CALL vtables2 (grid%rtgm(1,1),gridm%rtgm(1,1),ng, npts, imean, & + 'RTGM :2:mpti') + if (allocated(grid%f13t)) & + CALL vtables2 (grid%f13t(1,1),gridm%f13t(1,1),ng, npts, imean, & + 'F13T :2:mpti') + if (allocated(grid%f13u)) & + CALL vtables2 (grid%f13u(1,1),gridm%f13u(1,1),ng, npts, imean, & + 'F13U :2:mpti') + if (allocated(grid%f13v)) & + CALL vtables2 (grid%f13v(1,1),gridm%f13v(1,1),ng, npts, imean, & + 'F13V :2:mpti') + if (allocated(grid%f13m)) & + CALL vtables2 (grid%f13m(1,1),gridm%f13m(1,1),ng, npts, imean, & + 'F13M :2:mpti') + if (allocated(grid%f23t)) & + CALL vtables2 (grid%f23t(1,1),gridm%f23t(1,1),ng, npts, imean, & + 'F23T :2:mpti') + if (allocated(grid%f23u)) & + CALL vtables2 (grid%f23u(1,1),gridm%f23u(1,1),ng, npts, imean, & + 'F23U :2:mpti') + if (allocated(grid%f23v)) & + CALL vtables2 (grid%f23v(1,1),gridm%f23v(1,1),ng, npts, imean, & + 'F23V :2:mpti') + if (allocated(grid%f23m)) & + CALL vtables2 (grid%f23m(1,1),gridm%f23m(1,1),ng, npts, imean, & + 'F23M :2:mpti') + if (allocated(grid%dxt)) & + CALL vtables2 (grid%dxt(1,1),gridm%dxt(1,1),ng, npts, imean, & + 'DXT :2:mpti') + if (allocated(grid%dxu)) & + CALL vtables2 (grid%dxu(1,1),gridm%dxu(1,1),ng, npts, imean, & + 'DXU :2:mpti') + if (allocated(grid%dxv)) & + CALL vtables2 (grid%dxv(1,1),gridm%dxv(1,1),ng, npts, imean, & + 'DXV :2:mpti') + if (allocated(grid%dxm)) & + CALL vtables2 (grid%dxm(1,1),gridm%dxm(1,1),ng, npts, imean, & + 'DXM :2:mpti') + if (allocated(grid%dyt)) & + CALL vtables2 (grid%dyt(1,1),gridm%dyt(1,1),ng, npts, imean, & + 'DYT :2:mpti') + if (allocated(grid%dyu)) & + CALL vtables2 (grid%dyu(1,1),gridm%dyu(1,1),ng, npts, imean, & + 'DYU :2:mpti') + if (allocated(grid%dyv)) & + CALL vtables2 (grid%dyv(1,1),gridm%dyv(1,1),ng, npts, imean, & + 'DYV :2:mpti') + if (allocated(grid%dym)) & + CALL vtables2 (grid%dym(1,1),gridm%dym(1,1),ng, npts, imean, & + 'DYM :2:mpti') + if (allocated(grid%fmapt)) & + CALL vtables2 (grid%fmapt(1,1),gridm%fmapt(1,1),ng, npts, imean, & + 'FMAPT :2:mpti') + if (allocated(grid%fmapu)) & + CALL vtables2 (grid%fmapu(1,1),gridm%fmapu(1,1),ng, npts, imean, & + 'FMAPU :2:mpti') + if (allocated(grid%fmapv)) & + CALL vtables2 (grid%fmapv(1,1),gridm%fmapv(1,1),ng, npts, imean, & + 'FMAPV :2:mpti') + if (allocated(grid%fmapm)) & + CALL vtables2 (grid%fmapm(1,1),gridm%fmapm(1,1),ng, npts, imean, & + 'FMAPM :2:mpti') + if (allocated(grid%fmapti)) & + CALL vtables2 (grid%fmapti(1,1),gridm%fmapti(1,1),ng, npts, imean, & + 'FMAPTI :2:mpti') + if (allocated(grid%fmapui)) & + CALL vtables2 (grid%fmapui(1,1),gridm%fmapui(1,1),ng, npts, imean, & + 'FMAPUI :2:mpti') + if (allocated(grid%fmapvi)) & + CALL vtables2 (grid%fmapvi(1,1),gridm%fmapvi(1,1),ng, npts, imean, & + 'FMAPVI :2:mpti') + if (allocated(grid%fmapmi)) & + CALL vtables2 (grid%fmapmi(1,1),gridm%fmapmi(1,1),ng, npts, imean, & + 'FMAPMI :2:mpti') + if (allocated(grid%glat)) & + CALL vtables2 (grid%glat(1,1),gridm%glat(1,1),ng, npts, imean, & + 'GLAT :2:mpti:anal') + if (allocated(grid%glon)) & + CALL vtables2 (grid%glon(1,1),gridm%glon(1,1),ng, npts, imean, & + 'GLON :2:mpti:anal') + if (allocated(grid%topzo)) & + CALL vtables2 (grid%topzo(1,1),gridm%topzo(1,1),ng, npts, imean, & + 'TOPZO :2:mpti:anal') + +return +END SUBROUTINE filltab_grid + +END MODULE mem_grid diff --git a/src/6.2.16/memory/mem_kpp.f90 b/src/6.2.16/memory/mem_kpp.f90 new file mode 100644 index 0000000..0b8e725 --- /dev/null +++ b/src/6.2.16/memory/mem_kpp.f90 @@ -0,0 +1,512 @@ +!############################################################################## +Module mem_kpp + +use kpp_parameters, only:kppNVEL,kppNSCLR +use grid_dims, only:maxkppz + +implicit none + + Type kpp_3d_type + + !The necessary z,x,y dimension categories are given here, but for RAMS + !simplicity, we will allocate over NKPPZ for all 3D vars. This prevents + !having to have too many IDIM_TYPE categories, which would be a pain. + !Note: RAMSIN-> NKPPZ = number of KPP layers + ! IN KPP code, kppNZ = NKPPZ-1 and kppNZP1 = NKPPZ + ! So we cover the 0th array slot for some variables that loop to kppNZ + + !nxp,nyp + real, allocatable, dimension(:,:) :: & + old & !index to ID past value of Us,Xs + ,new & !index to ID new value of Us,Xs + ,jerlov & !ocean optical clarity category for radiation effects + ,ocdepth & !ocean depth (meters) + ,hmix & !mixed-layer / boundary layer depth (meters) + ,f & !coriolis parameter + ,bottomt & !ocean bottom temperature (celcius in KPP) + ,SST0 & !temp to which to relax mixed-layer temp (celcius) + ,Sref & !reference salinity + ,freez_flag & !fraction of levels prevented from freezing, set to -1.8C + ,reset_flag & !flag to indicate isothermal column, reset T/S to climo + ,flx_ust & !sflux(1) zonal surface wind stress (N/m2) + ,flx_vst & !sflux(2) meridional surface wind stress (N/m2) + ,flx_nsw & !sflux(3) net sfc shortwave radiation (swdn-swup)(W/m^2) + ,flx_nlw & !sflux(4) non-shortwave rad (lwdn-lwup-sens-latent) (W/m^2) + ,flx_ice & !sflux(5) melting of seaice(zero, not used) + ,flx_pcp !sflux(6) net freshwater (precip - evaporation)(mm/sec) + + !0:nz,nxp,nyp + !Variables on grid cell interaces with 0 as the ocean surface + real, allocatable, dimension(:,:,:) :: & + swdk_opt & !solar shortwave flux fraction on DM depths + ,wB & !w'B' total kinematic buoyancy flux (m**2/s**3) + ,wXNTt & !w'T'(NT) (non-turbulent temperature flux, degC m/s) + ,wU & !w'u'(turbulent zonal velocity flux, m2/s2) + ,wV & !and w'v' (turbulent meridional velocity flux, m2/s2) + ,wXt & !w'T' (turbulent temperature flux, degC m/s) + ,wXs !and w'S' (turbulent salinity flux, o/oo 1/s) + + !nzp1,nxp,nyp + !Variables on grid cell center levels with NZP1 as the model bottom. + real, allocatable, dimension(:,:,:) :: & + swfrac & !solar shortwave flux fraction on ZM depths + ,tinc_fcorr & !temperature increment from flux corrections with depth,(K) + ,sinc_fcorr & !salinity increment from flux corrections with depth,(o/oo) + ,sal_clim & !3D salinity climatology (can be time updated) + ,ocnT_clim & !3D temperature climatology (can be time updated) + ,buoy & !buoyancy (m/s2) + ,rho & !density (kg/m3) + ,cp & !specific heat capacity (J/kg/K) + ,U & !latest value of ocean currents velocity U (m/s) + ,V & !latest value of ocean currents velocity V (m/s) + ,U_init & !initial value of ocean currents velocity U + ,V_init & !initial value of ocean currents velocity V + ,Us0 & !contain old/new U ocean currents (m/s) + ,Us1 & !contain old/new U ocean currents (m/s) + ,Vs0 & !contain old/new V ocean currents (m/s) + ,Vs1 & !contain old/new V ocean currents (m/s) + ,X_t & !latest ocean column temperature (Celcius) + ,X_s & !latest ocean column salinity (o/oo) (+Sref) + ,Xs_t0 & !contain old/new Temperature + ,Xs_t1 & !contain old/new Temperature + ,Xs_s0 & !contain old/new Salinity + ,Xs_s1 !contain old/new Salinity + + End Type kpp_3d_type + + !****************************************************************** + Type kpp_1d_type + + real :: & + old & + ,new & + ,jerlov & + ,ocdepth & + ,hmix & + ,kmix & + ,f & + ,bottomt & + ,SST0 & + ,Tref & + ,uref & + ,vref & + ,Sref & + ,freez_flag & + ,reset_flag & + ,dampu_flag & + ,dampv_flag & + ,dbloc(maxkppz) & + ,ghat(maxkppz) & + ,Rig(maxkppz) & + ,Shsq(maxkppz) & + ,swfrac(maxkppz) & + ,tinc_fcorr(maxkppz) & + ,sinc_fcorr(maxkppz) & + ,sal_clim(maxkppz) & + ,ocnT_clim(maxkppz) & + ,buoy(maxkppz) & + ,rho(maxkppz) & + ,cp(maxkppz) & + ,talpha(maxkppz) & !coefficient for buoyancy calculation + ,sbeta(maxkppz) & !coefficient for buoyancy calculation + ,U_init(maxkppz,kppNVEL) & + ,U(maxkppz,kppNVEL) & + ,Us(maxkppz,kppNVEL,0:1) & + ,X(maxkppz,kppNSCLR) & + ,Xs(maxkppz,kppNSCLR,0:1) & + ,swdk_opt(0:maxkppz) & + ,difm(0:maxkppz) & + ,difs(0:maxkppz) & + ,dift(0:maxkppz) & + ,wB(0:maxkppz) & + ,wXNT(0:maxkppz) & + ,wU(0:maxkppz,kppNVEL) & + ,wX(0:maxkppz,kppNSCLR) & + ,sflux(6) + + logical :: comp_flag !flag to decide if more convergence iterations needed + + End Type kpp_1D_type + + !****************************************************************** + Type kpp_const_type + + real :: dto & + ,relax_sal & + ,relax_ocnT & + ,relax_sst & + ,dt_uvdamp & + ,DMAX & + ,dscale & + ,hmixtolfrac & + ,sice & + ,iso_thresh + + integer :: iso_bot + + logical :: LKPP & + ,LRI & + ,LDD & + ,L_JERLOV & + ,L_STRETCHGRID & + ,L_NO_FREEZE & + ,L_NO_ISOTHERM & + ,L_BOTTOM_TEMP & + ,L_DAMP_CURR + + real :: & + zm(maxkppz) & !ocean layer grid center depth (m) (1,kppnzp1) + ,hm(maxkppz) & !ocean layer thickness (m) (1,kppnzp1) + ,dm(0:maxkppz) !ocean layer interface depths (m) (0,kppnz) + + real, allocatable :: wmt(:,:),wst(:,:),tri(:,:) + + End Type kpp_const_type + + !****************************************************************** + type (kpp_3d_type), allocatable :: kpp_3d_fields(:), kpp_3d_fieldsm(:) + type (kpp_1d_type) :: kpp_1d_fields + type (kpp_const_type) :: kpp_const_fields + +Contains + +!############################################################################## +Subroutine alloc_kpp (kpp_3d_fields,nx,ny,nkppz,ng) + +use kpp_parameters, only:IKPP + +implicit none + +type (kpp_3d_type) :: kpp_3d_fields +integer, intent(in) :: nx,ny,nkppz,ng + +!The necessary z,x,y dimension categories are given in "module mem_kpp", +!but for RAMS simplicity, we will allocate over 0:NZP1 for all 3D vars. +!This prevents having to have too many IDIM_TYPE categories. +!KPP still runs only over necessary levels/layers. + +if(IKPP > 0) then + allocate (kpp_3d_fields%Sref (nx,ny)) + allocate (kpp_3d_fields%jerlov (nx,ny)) + allocate (kpp_3d_fields%ocdepth (nx,ny)) + allocate (kpp_3d_fields%f (nx,ny)) + allocate (kpp_3d_fields%bottomt (nx,ny)) + allocate (kpp_3d_fields%SST0 (nx,ny)) + allocate (kpp_3d_fields%old (nx,ny)) + allocate (kpp_3d_fields%new (nx,ny)) + allocate (kpp_3d_fields%flx_ust (nx,ny)) + allocate (kpp_3d_fields%flx_vst (nx,ny)) + allocate (kpp_3d_fields%flx_nsw (nx,ny)) + allocate (kpp_3d_fields%flx_nlw (nx,ny)) + allocate (kpp_3d_fields%flx_ice (nx,ny)) + allocate (kpp_3d_fields%flx_pcp (nx,ny)) + allocate (kpp_3d_fields%hmix (nx,ny)) !Diagnostic + allocate (kpp_3d_fields%freez_flag (nx,ny)) !Diagnostic + allocate (kpp_3d_fields%reset_flag (nx,ny)) !Diagnostic + allocate (kpp_3d_fields%swdk_opt (nkppz,nx,ny)) + allocate (kpp_3d_fields%U_init (nkppz,nx,ny)) + allocate (kpp_3d_fields%V_init (nkppz,nx,ny)) + allocate (kpp_3d_fields%swfrac (nkppz,nx,ny)) + allocate (kpp_3d_fields%sal_clim (nkppz,nx,ny)) + allocate (kpp_3d_fields%ocnT_clim (nkppz,nx,ny)) + allocate (kpp_3d_fields%U (nkppz,nx,ny)) + allocate (kpp_3d_fields%V (nkppz,nx,ny)) + allocate (kpp_3d_fields%Us0 (nkppz,nx,ny)) + allocate (kpp_3d_fields%Us1 (nkppz,nx,ny)) + allocate (kpp_3d_fields%Vs0 (nkppz,nx,ny)) + allocate (kpp_3d_fields%Vs1 (nkppz,nx,ny)) + allocate (kpp_3d_fields%X_t (nkppz,nx,ny)) + allocate (kpp_3d_fields%X_s (nkppz,nx,ny)) + allocate (kpp_3d_fields%Xs_t0 (nkppz,nx,ny)) + allocate (kpp_3d_fields%Xs_t1 (nkppz,nx,ny)) + allocate (kpp_3d_fields%Xs_s0 (nkppz,nx,ny)) + allocate (kpp_3d_fields%Xs_s1 (nkppz,nx,ny)) + allocate (kpp_3d_fields%buoy (nkppz,nx,ny)) !Diagnostic +endif +if(IKPP==2) then + allocate (kpp_3d_fields%wB (nkppz,nx,ny)) + allocate (kpp_3d_fields%wXNTt (nkppz,nx,ny)) + allocate (kpp_3d_fields%wU (nkppz,nx,ny)) + allocate (kpp_3d_fields%wV (nkppz,nx,ny)) + allocate (kpp_3d_fields%wXt (nkppz,nx,ny)) + allocate (kpp_3d_fields%wXs (nkppz,nx,ny)) + allocate (kpp_3d_fields%tinc_fcorr (nkppz,nx,ny)) + allocate (kpp_3d_fields%sinc_fcorr (nkppz,nx,ny)) + allocate (kpp_3d_fields%rho (nkppz,nx,ny)) + allocate (kpp_3d_fields%cp (nkppz,nx,ny)) +endif + +return +END SUBROUTINE alloc_kpp + +!############################################################################## +Subroutine dealloc_kpp (kpp_3d_fields) + +implicit none + +type (kpp_3d_type) :: kpp_3d_fields + +if(allocated(kpp_3d_fields%old)) deallocate (kpp_3d_fields%old) +if(allocated(kpp_3d_fields%new)) deallocate (kpp_3d_fields%new) +if(allocated(kpp_3d_fields%jerlov)) deallocate (kpp_3d_fields%jerlov) +if(allocated(kpp_3d_fields%ocdepth)) deallocate (kpp_3d_fields%ocdepth) +if(allocated(kpp_3d_fields%hmix)) deallocate (kpp_3d_fields%hmix) +if(allocated(kpp_3d_fields%f)) deallocate (kpp_3d_fields%f) +if(allocated(kpp_3d_fields%bottomt)) deallocate (kpp_3d_fields%bottomt) +if(allocated(kpp_3d_fields%SST0)) deallocate (kpp_3d_fields%SST0) +if(allocated(kpp_3d_fields%Sref)) deallocate (kpp_3d_fields%Sref) +if(allocated(kpp_3d_fields%freez_flag)) deallocate (kpp_3d_fields%freez_flag) +if(allocated(kpp_3d_fields%reset_flag)) deallocate (kpp_3d_fields%reset_flag) +if(allocated(kpp_3d_fields%flx_ust)) deallocate (kpp_3d_fields%flx_ust) +if(allocated(kpp_3d_fields%flx_vst)) deallocate (kpp_3d_fields%flx_vst) +if(allocated(kpp_3d_fields%flx_nsw)) deallocate (kpp_3d_fields%flx_nsw) +if(allocated(kpp_3d_fields%flx_nlw)) deallocate (kpp_3d_fields%flx_nlw) +if(allocated(kpp_3d_fields%flx_ice)) deallocate (kpp_3d_fields%flx_ice) +if(allocated(kpp_3d_fields%flx_pcp)) deallocate (kpp_3d_fields%flx_pcp) +if(allocated(kpp_3d_fields%swdk_opt)) deallocate (kpp_3d_fields%swdk_opt) +if(allocated(kpp_3d_fields%wB)) deallocate (kpp_3d_fields%wB) +if(allocated(kpp_3d_fields%wXNTt)) deallocate (kpp_3d_fields%wXNTt) +if(allocated(kpp_3d_fields%wU)) deallocate (kpp_3d_fields%wU) +if(allocated(kpp_3d_fields%wV)) deallocate (kpp_3d_fields%wV) +if(allocated(kpp_3d_fields%wXt)) deallocate (kpp_3d_fields%wXt) +if(allocated(kpp_3d_fields%wXs)) deallocate (kpp_3d_fields%wXs) +if(allocated(kpp_3d_fields%swfrac)) deallocate (kpp_3d_fields%swfrac) +if(allocated(kpp_3d_fields%tinc_fcorr)) deallocate (kpp_3d_fields%tinc_fcorr) +if(allocated(kpp_3d_fields%sinc_fcorr)) deallocate (kpp_3d_fields%sinc_fcorr) +if(allocated(kpp_3d_fields%sal_clim)) deallocate (kpp_3d_fields%sal_clim) +if(allocated(kpp_3d_fields%ocnT_clim)) deallocate (kpp_3d_fields%ocnT_clim) +if(allocated(kpp_3d_fields%buoy)) deallocate (kpp_3d_fields%buoy) +if(allocated(kpp_3d_fields%rho)) deallocate (kpp_3d_fields%rho) +if(allocated(kpp_3d_fields%cp)) deallocate (kpp_3d_fields%cp) +if(allocated(kpp_3d_fields%U)) deallocate (kpp_3d_fields%U) +if(allocated(kpp_3d_fields%V)) deallocate (kpp_3d_fields%V) +if(allocated(kpp_3d_fields%U_init)) deallocate (kpp_3d_fields%U_init) +if(allocated(kpp_3d_fields%V_init)) deallocate (kpp_3d_fields%V_init) +if(allocated(kpp_3d_fields%Us0)) deallocate (kpp_3d_fields%Us0) +if(allocated(kpp_3d_fields%Us1)) deallocate (kpp_3d_fields%Us1) +if(allocated(kpp_3d_fields%Vs0)) deallocate (kpp_3d_fields%Vs0) +if(allocated(kpp_3d_fields%Vs1)) deallocate (kpp_3d_fields%Vs1) +if(allocated(kpp_3d_fields%X_t)) deallocate (kpp_3d_fields%X_t) +if(allocated(kpp_3d_fields%X_s)) deallocate (kpp_3d_fields%X_s) +if(allocated(kpp_3d_fields%Xs_t0)) deallocate (kpp_3d_fields%Xs_t0) +if(allocated(kpp_3d_fields%Xs_t1)) deallocate (kpp_3d_fields%Xs_t1) +if(allocated(kpp_3d_fields%Xs_s0)) deallocate (kpp_3d_fields%Xs_s0) +if(allocated(kpp_3d_fields%Xs_s1)) deallocate (kpp_3d_fields%Xs_s1) + +return +END SUBROUTINE dealloc_kpp + +!############################################################################## +Subroutine filltab_kpp (kpp_3d_fields,kpp_3d_fieldsm,imean,nx,ny,nkppz,ng) + +use var_tables + +implicit none + +type (kpp_3d_type) :: kpp_3d_fields,kpp_3d_fieldsm +integer, intent(in) :: imean,nx,ny,ng,nkppz +integer :: npts + +!Fill arrays into variable tables + +!The necessary z,x,y dimension categories are given in "module mem_kpp", +!but for RAMS simplicity, we will allocate over 0:NZP1 for all 3D vars. +!This prevents having to have too many IDIM_TYPE categories. +!KPP still runs only over necessary levels/layers. + + npts=nx*ny !2D fields horizontal fields + + if (allocated(kpp_3d_fields%old)) & + CALL vtables2 (kpp_3d_fields%old,kpp_3d_fieldsm%old & + ,ng, npts, imean, & + 'KPP_OLD :2:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%new)) & + CALL vtables2 (kpp_3d_fields%new,kpp_3d_fieldsm%new & + ,ng, npts, imean, & + 'KPP_NEW :2:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%jerlov)) & + CALL vtables2 (kpp_3d_fields%jerlov,kpp_3d_fieldsm%jerlov & + ,ng, npts, imean, & + 'KPP_JERLOV :2:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%ocdepth)) & + CALL vtables2 (kpp_3d_fields%ocdepth,kpp_3d_fieldsm%ocdepth & + ,ng, npts, imean, & + 'KPP_OCDEPTH :2:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%hmix)) & + CALL vtables2 (kpp_3d_fields%hmix,kpp_3d_fieldsm%hmix & + ,ng, npts, imean, & + 'KPP_HMIX :2:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%f)) & + CALL vtables2 (kpp_3d_fields%f,kpp_3d_fieldsm%f & + ,ng, npts, imean, & + 'KPP_F :2:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%bottomt)) & + CALL vtables2 (kpp_3d_fields%bottomt,kpp_3d_fieldsm%bottomt & + ,ng, npts, imean, & + 'KPP_BOTTOMT :2:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%SST0)) & + CALL vtables2 (kpp_3d_fields%SST0,kpp_3d_fieldsm%SST0 & + ,ng, npts, imean, & + 'KPP_SST0 :2:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%Sref)) & + CALL vtables2 (kpp_3d_fields%Sref,kpp_3d_fieldsm%Sref & + ,ng, npts, imean, & + 'KPP_SREF :2:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%freez_flag)) & + CALL vtables2 (kpp_3d_fields%freez_flag,kpp_3d_fieldsm%freez_flag & + ,ng, npts, imean, & + 'KPP_FREEZ_FLAG :2:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%reset_flag)) & + CALL vtables2 (kpp_3d_fields%reset_flag,kpp_3d_fieldsm%reset_flag & + ,ng, npts, imean, & + 'KPP_RESET_FLAG :2:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%flx_ust)) & + CALL vtables2 (kpp_3d_fields%flx_ust,kpp_3d_fieldsm%flx_ust & + ,ng, npts, imean, & + 'KPP_FLX_UST :2:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%flx_vst)) & + CALL vtables2 (kpp_3d_fields%flx_vst,kpp_3d_fieldsm%flx_vst & + ,ng, npts, imean, & + 'KPP_FLX_VST :2:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%flx_nsw)) & + CALL vtables2 (kpp_3d_fields%flx_nsw,kpp_3d_fieldsm%flx_nsw & + ,ng, npts, imean, & + 'KPP_FLX_NSW :2:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%flx_nlw)) & + CALL vtables2 (kpp_3d_fields%flx_nlw,kpp_3d_fieldsm%flx_nlw & + ,ng, npts, imean, & + 'KPP_FLX_NLW :2:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%flx_ice)) & + CALL vtables2 (kpp_3d_fields%flx_ice,kpp_3d_fieldsm%flx_ice & + ,ng, npts, imean, & + 'KPP_FLX_ICE :2:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%flx_pcp)) & + CALL vtables2 (kpp_3d_fields%flx_pcp,kpp_3d_fieldsm%flx_pcp & + ,ng, npts, imean, & + 'KPP_FLX_PCP :2:anal:mpti:recycle_sfc') + + !****************************************************************************** + npts=nkppz*nx*ny !fields that are allocated 0:nkppz+1,nx,ny + + if (allocated(kpp_3d_fields%swdk_opt)) & + CALL vtables2 (kpp_3d_fields%swdk_opt,kpp_3d_fieldsm%swdk_opt & + ,ng, npts, imean, & + 'KPP_SWDK_OPT :10:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%wB)) & + CALL vtables2 (kpp_3d_fields%wB,kpp_3d_fieldsm%wB & + ,ng, npts, imean, & + 'KPP_wB :10:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%wU)) & + CALL vtables2 (kpp_3d_fields%wU,kpp_3d_fieldsm%wU & + ,ng, npts, imean, & + 'KPP_wU :10:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%wV)) & + CALL vtables2 (kpp_3d_fields%wV,kpp_3d_fieldsm%wV & + ,ng, npts, imean, & + 'KPP_wV :10:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%wXt)) & + CALL vtables2 (kpp_3d_fields%wXt,kpp_3d_fieldsm%wXt & + ,ng, npts, imean, & + 'KPP_wXt :10:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%wXs)) & + CALL vtables2 (kpp_3d_fields%wXs,kpp_3d_fieldsm%wXs & + ,ng, npts, imean, & + 'KPP_wXs :10:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%wXNTt)) & + CALL vtables2 (kpp_3d_fields%wXNTt,kpp_3d_fieldsm%wXNTt & + ,ng, npts, imean, & + 'KPP_wXNTt :10:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%swfrac)) & + CALL vtables2 (kpp_3d_fields%swfrac,kpp_3d_fieldsm%swfrac & + ,ng, npts, imean, & + 'KPP_SWFRAC :10:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%tinc_fcorr)) & + CALL vtables2 (kpp_3d_fields%tinc_fcorr,kpp_3d_fieldsm%tinc_fcorr & + ,ng, npts, imean, & + 'KPP_TINC_FCORR :10:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%sinc_fcorr)) & + CALL vtables2 (kpp_3d_fields%sinc_fcorr,kpp_3d_fieldsm%sinc_fcorr & + ,ng, npts, imean, & + 'KPP_SINC_FCORR :10:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%sal_clim)) & + CALL vtables2 (kpp_3d_fields%sal_clim,kpp_3d_fieldsm%sal_clim & + ,ng, npts, imean, & + 'KPP_SAL_CLIM :10:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%ocnT_clim)) & + CALL vtables2 (kpp_3d_fields%ocnT_clim,kpp_3d_fieldsm%ocnT_clim & + ,ng, npts, imean, & + 'KPP_OCNT_CLIM :10:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%buoy)) & + CALL vtables2 (kpp_3d_fields%buoy,kpp_3d_fieldsm%buoy & + ,ng, npts, imean, & + 'KPP_BUOY :10:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%rho)) & + CALL vtables2 (kpp_3d_fields%rho,kpp_3d_fieldsm%rho & + ,ng, npts, imean, & + 'KPP_RHO :10:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%cp)) & + CALL vtables2 (kpp_3d_fields%cp,kpp_3d_fieldsm%cp & + ,ng, npts, imean, & + 'KPP_CP :10:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%U)) & + CALL vtables2 (kpp_3d_fields%U,kpp_3d_fieldsm%U & + ,ng, npts, imean, & + 'KPP_U :10:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%V)) & + CALL vtables2 (kpp_3d_fields%V,kpp_3d_fieldsm%V & + ,ng, npts, imean, & + 'KPP_V :10:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%U_init)) & + CALL vtables2 (kpp_3d_fields%U_init,kpp_3d_fieldsm%U_init & + ,ng, npts, imean, & + 'KPP_U_init :10:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%V_init)) & + CALL vtables2 (kpp_3d_fields%V_init,kpp_3d_fieldsm%V_init & + ,ng, npts, imean, & + 'KPP_V_init :10:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%Us0)) & + CALL vtables2 (kpp_3d_fields%Us0,kpp_3d_fieldsm%Us0 & + ,ng, npts, imean, & + 'KPP_US0 :10:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%Us1)) & + CALL vtables2 (kpp_3d_fields%Us1,kpp_3d_fieldsm%Us1 & + ,ng, npts, imean, & + 'KPP_US1 :10:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%Vs0)) & + CALL vtables2 (kpp_3d_fields%Vs0,kpp_3d_fieldsm%Vs0 & + ,ng, npts, imean, & + 'KPP_VS0 :10:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%Vs1)) & + CALL vtables2 (kpp_3d_fields%Vs1,kpp_3d_fieldsm%Vs1 & + ,ng, npts, imean, & + 'KPP_VS1 :10:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%X_t)) & + CALL vtables2 (kpp_3d_fields%X_t,kpp_3d_fieldsm%X_t & + ,ng, npts, imean, & + 'KPP_X_T :10:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%X_s)) & + CALL vtables2 (kpp_3d_fields%X_s,kpp_3d_fieldsm%X_s & + ,ng, npts, imean, & + 'KPP_X_S :10:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%Xs_t0)) & + CALL vtables2 (kpp_3d_fields%Xs_t0,kpp_3d_fieldsm%Xs_t0 & + ,ng, npts, imean, & + 'KPP_XS_T0 :10:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%Xs_t1)) & + CALL vtables2 (kpp_3d_fields%Xs_t1,kpp_3d_fieldsm%Xs_t1 & + ,ng, npts, imean, & + 'KPP_XS_T1 :10:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%Xs_s0)) & + CALL vtables2 (kpp_3d_fields%Xs_s0,kpp_3d_fieldsm%Xs_s0 & + ,ng, npts, imean, & + 'KPP_XS_S0 :10:anal:mpti:recycle_sfc') + if (allocated(kpp_3d_fields%Xs_s1)) & + CALL vtables2 (kpp_3d_fields%Xs_s1,kpp_3d_fieldsm%Xs_s1 & + ,ng, npts, imean, & + 'KPP_XS_S1 :10:anal:mpti:recycle_sfc') + +return +END SUBROUTINE filltab_kpp + +END MODULE mem_kpp + diff --git a/src/6.2.16/memory/mem_leaf.f90 b/src/6.2.16/memory/mem_leaf.f90 new file mode 100644 index 0000000..33aec59 --- /dev/null +++ b/src/6.2.16/memory/mem_leaf.f90 @@ -0,0 +1,313 @@ +!############################################################################## +Module mem_leaf + +use grid_dims + +implicit none + + Type leaf_vars + + ! Variables to be dimensioned by (nzg,nxp,nyp,npatch) + real, allocatable, dimension(:,:,:,:) :: & + soil_water, soil_energy, soil_text + + ! Variables to be dimensioned by (nzs,nxp,nyp,npatch) + real, allocatable, dimension(:,:,:,:) :: & + sfcwater_mass, sfcwater_energy, sfcwater_depth + + ! Variables to be dimensioned by (nxp,nyp,npatch) + real, allocatable, dimension(:,:,:) :: & + ustar,tstar,rstar & + ,veg_fracarea,veg_lai,veg_rough,veg_height & + ,veg_albedo,veg_tai & + ,patch_area,patch_rough,leaf_class & + ,soil_rough,sfcwater_nlev,stom_resist & + ,ground_rsat,ground_rvap & + ,veg_water,veg_temp,can_rvap,can_temp & + ,veg_ndvip,veg_ndvic,veg_ndvif + + ! Variables to be dimensioned by (nxp,nyp) + real, allocatable, dimension(:,:) :: & + snow_mass,snow_depth,seatp,seatf & + ,soil_moist_top,soil_moist_bot,soil_temp_top,soil_temp_bot + End Type + + type (leaf_vars), allocatable :: leaf_g(:), leafm_g(:) + + !------------------------------------------------------------------------------- + integer :: nslcon,nvgcon,nvegpat,isfcl,isoildat,isnowdat + real :: zrough,pctlcon,ubmin,albedo,drtcon,dthcon,seatmp + real, dimension(nzgmax) :: stgoff,slmstr + real, dimension(nzgmax+1) :: slz + character(len=strl1) :: sibfile + +Contains + +!############################################################################## +Subroutine alloc_leaf (leaf,nx,ny,nzg,nzs,np) + +implicit none + + type (leaf_vars) :: leaf + integer, intent(in) :: nx,ny,nzg,nzs,np + + +! Allocate arrays based on options (if necessary) + + allocate (leaf%soil_water (nzg,nx,ny,np)) + allocate (leaf%soil_energy (nzg,nx,ny,np)) + allocate (leaf%soil_text (nzg,nx,ny,np)) + + allocate (leaf%sfcwater_mass (nzs,nx,ny,np)) + allocate (leaf%sfcwater_energy(nzs,nx,ny,np)) + allocate (leaf%sfcwater_depth (nzs,nx,ny,np)) + + allocate (leaf%ustar (nx,ny,np)) + allocate (leaf%tstar (nx,ny,np)) + allocate (leaf%rstar (nx,ny,np)) + + allocate (leaf%veg_fracarea (nx,ny,np)) + allocate (leaf%veg_lai (nx,ny,np)) + allocate (leaf%veg_rough (nx,ny,np)) + allocate (leaf%veg_height (nx,ny,np)) + allocate (leaf%veg_albedo (nx,ny,np)) + allocate (leaf%veg_tai (nx,ny,np)) + + allocate (leaf%patch_area (nx,ny,np)) + allocate (leaf%patch_rough (nx,ny,np)) + allocate (leaf%leaf_class (nx,ny,np)) + + allocate (leaf%soil_rough (nx,ny,np)) + allocate (leaf%sfcwater_nlev(nx,ny,np)) + allocate (leaf%stom_resist (nx,ny,np)) + + allocate (leaf%ground_rsat (nx,ny,np)) + allocate (leaf%ground_rvap (nx,ny,np)) + + allocate (leaf%veg_water (nx,ny,np)) + allocate (leaf%veg_temp (nx,ny,np)) + + allocate (leaf%can_rvap (nx,ny,np)) + allocate (leaf%can_temp (nx,ny,np)) + + allocate (leaf%veg_ndvip (nx,ny,np)) + allocate (leaf%veg_ndvic (nx,ny,np)) + allocate (leaf%veg_ndvif (nx,ny,np)) + + allocate (leaf%snow_mass (nx,ny)) + allocate (leaf%snow_depth (nx,ny)) + allocate (leaf%seatp (nx,ny)) + allocate (leaf%seatf (nx,ny)) + allocate (leaf%soil_moist_top(nx,ny)) + allocate (leaf%soil_moist_bot(nx,ny)) + allocate (leaf%soil_temp_top(nx,ny)) + allocate (leaf%soil_temp_bot(nx,ny)) + +return +END SUBROUTINE alloc_leaf + +!############################################################################## +Subroutine dealloc_leaf (leaf) + +implicit none + + type (leaf_vars) :: leaf + + if(allocated(leaf%soil_water)) deallocate (leaf%soil_water) + if(allocated(leaf%soil_energy)) deallocate (leaf%soil_energy) + if(allocated(leaf%soil_text)) deallocate (leaf%soil_text) + + if(allocated(leaf%sfcwater_mass)) deallocate (leaf%sfcwater_mass) + if(allocated(leaf%sfcwater_energy)) deallocate (leaf%sfcwater_energy) + if(allocated(leaf%sfcwater_depth)) deallocate (leaf%sfcwater_depth) + + if(allocated(leaf%ustar)) deallocate (leaf%ustar) + if(allocated(leaf%tstar)) deallocate (leaf%tstar) + if(allocated(leaf%rstar)) deallocate (leaf%rstar) + + if(allocated(leaf%veg_fracarea)) deallocate (leaf%veg_fracarea) + if(allocated(leaf%veg_lai)) deallocate (leaf%veg_lai) + if(allocated(leaf%veg_rough)) deallocate (leaf%veg_rough) + if(allocated(leaf%veg_height)) deallocate (leaf%veg_height) + if(allocated(leaf%veg_albedo)) deallocate (leaf%veg_albedo) + if(allocated(leaf%veg_tai)) deallocate (leaf%veg_tai) + + if(allocated(leaf%patch_area)) deallocate (leaf%patch_area) + if(allocated(leaf%patch_rough)) deallocate (leaf%patch_rough) + if(allocated(leaf%leaf_class)) deallocate (leaf%leaf_class) + + if(allocated(leaf%soil_rough)) deallocate (leaf%soil_rough) + if(allocated(leaf%sfcwater_nlev)) deallocate (leaf%sfcwater_nlev) + if(allocated(leaf%stom_resist)) deallocate (leaf%stom_resist) + + if(allocated(leaf%ground_rsat)) deallocate (leaf%ground_rsat) + if(allocated(leaf%ground_rvap)) deallocate (leaf%ground_rvap) + + if(allocated(leaf%veg_water)) deallocate (leaf%veg_water) + if(allocated(leaf%veg_temp)) deallocate (leaf%veg_temp) + + if(allocated(leaf%can_rvap)) deallocate (leaf%can_rvap) + if(allocated(leaf%can_temp)) deallocate (leaf%can_temp) + + if(allocated(leaf%veg_ndvip)) deallocate (leaf%veg_ndvip) + if(allocated(leaf%veg_ndvic)) deallocate (leaf%veg_ndvic) + if(allocated(leaf%veg_ndvif)) deallocate (leaf%veg_ndvif) + + if(allocated(leaf%snow_mass)) deallocate (leaf%snow_mass) + if(allocated(leaf%snow_depth)) deallocate (leaf%snow_depth) + if(allocated(leaf%seatp)) deallocate (leaf%seatp) + if(allocated(leaf%seatf)) deallocate (leaf%seatf) + if(allocated(leaf%soil_moist_top)) deallocate (leaf%soil_moist_top) + if(allocated(leaf%soil_moist_bot)) deallocate (leaf%soil_moist_bot) + if(allocated(leaf%soil_temp_top)) deallocate (leaf%soil_temp_top) + if(allocated(leaf%soil_temp_bot)) deallocate (leaf%soil_temp_bot) + +return +END SUBROUTINE dealloc_leaf + +!############################################################################## +Subroutine filltab_leaf (leaf,leafm,imean,nx,ny,nzg,nzs,np,ng) + +use var_tables + +implicit none + + type (leaf_vars) :: leaf,leafm + integer, intent(in) :: imean,nx,ny,nzg,nzs,np,ng + integer :: npts + +! Fill arrays into variable tables + + npts=nzg*nx*ny*np + CALL vtables2 (leaf%soil_water(1,1,1,1),leafm%soil_water(1,1,1,1) & + ,ng, npts, imean, & + 'SOIL_WATER :4:anal:mpti:recycle_sfc') + CALL vtables2 (leaf%soil_energy(1,1,1,1),leafm%soil_energy(1,1,1,1) & + ,ng, npts, imean, & + 'SOIL_ENERGY :4:anal:mpti:recycle_sfc') + CALL vtables2 (leaf%soil_text(1,1,1,1),leafm%soil_text(1,1,1,1) & + ,ng, npts, imean, & + 'SOIL_TEXT :4:anal:mpti') + + npts=nzs*nx*ny*np + CALL vtables2 (leaf%sfcwater_mass(1,1,1,1),leafm%sfcwater_mass(1,1,1,1) & + ,ng, npts, imean, & + 'SFCWATER_MASS :5:anal:mpti:recycle_sfc') + CALL vtables2 (leaf%sfcwater_energy(1,1,1,1), leafm%sfcwater_energy(1,1,1,1) & + ,ng, npts, imean, & + 'SFCWATER_ENERGY :5:anal:mpti:recycle_sfc') + CALL vtables2 (leaf%sfcwater_depth(1,1,1,1),leafm%sfcwater_depth(1,1,1,1) & + ,ng, npts, imean, & + 'SFCWATER_DEPTH :5:anal:mpti:recycle_sfc') + + npts=nx*ny*np + CALL vtables2 (leaf%ustar(1,1,1),leafm%ustar(1,1,1) & + ,ng, npts, imean, & + 'USTAR :6:anal:mpti:recycle_sfc') + CALL vtables2 (leaf%tstar(1,1,1),leafm%tstar(1,1,1) & + ,ng, npts, imean, & + 'TSTAR :6:anal:mpti:recycle_sfc') + CALL vtables2 (leaf%rstar(1,1,1),leafm%rstar(1,1,1) & + ,ng, npts, imean, & + 'RSTAR :6:anal:mpti:recycle_sfc') + + CALL vtables2 (leaf%veg_fracarea(1,1,1),leafm%veg_fracarea(1,1,1) & + ,ng, npts, imean, & + 'VEG_FRACAREA :6:anal:mpti:recycle_sfc') + CALL vtables2 (leaf%veg_lai(1,1,1),leafm%veg_lai(1,1,1) & + ,ng, npts, imean, & + 'VEG_LAI :6:anal:mpti:recycle_sfc') + CALL vtables2 (leaf%veg_rough(1,1,1),leafm%veg_rough(1,1,1) & + ,ng, npts, imean, & + 'VEG_ROUGH :6:anal:mpti:recycle_sfc') + CALL vtables2 (leaf%veg_height(1,1,1),leafm%veg_height(1,1,1) & + ,ng, npts, imean, & + 'VEG_HEIGHT :6:anal:mpti:recycle_sfc') + CALL vtables2 (leaf%veg_albedo(1,1,1),leafm%veg_albedo(1,1,1) & + ,ng, npts, imean, & + 'VEG_ALBEDO :6:anal:mpti:recycle_sfc') + CALL vtables2 (leaf%veg_tai(1,1,1),leafm%veg_tai(1,1,1) & + ,ng, npts, imean, & + 'VEG_TAI :6:anal:mpti:recycle_sfc') + + CALL vtables2 (leaf%patch_area(1,1,1),leafm%patch_area(1,1,1) & + ,ng, npts, imean, & + 'PATCH_AREA :6:anal:mpti') + CALL vtables2 (leaf%patch_rough(1,1,1),leafm%patch_rough(1,1,1) & + ,ng, npts, imean, & + 'PATCH_ROUGH :6:anal:mpti:recycle_sfc') + CALL vtables2 (leaf%leaf_class(1,1,1),leafm%leaf_class(1,1,1) & + ,ng, npts, imean, & + 'LEAF_CLASS :6:anal:mpti') + + CALL vtables2 (leaf%soil_rough(1,1,1),leafm%soil_rough(1,1,1) & + ,ng, npts, imean, & + 'SOIL_ROUGH :6:anal:mpti:recycle_sfc') + CALL vtables2 (leaf%sfcwater_nlev(1,1,1),leafm%sfcwater_nlev(1,1,1) & + ,ng, npts, imean, & + 'SFCWATER_NLEV :6:anal:mpti:recycle_sfc') + CALL vtables2 (leaf%stom_resist(1,1,1),leafm%stom_resist(1,1,1) & + ,ng, npts, imean, & + 'STOM_RESIST :6:anal:mpti:recycle_sfc') + + CALL vtables2 (leaf%ground_rsat(1,1,1),leafm%ground_rsat(1,1,1) & + ,ng, npts, imean, & + 'GROUND_RSAT :6:anal:mpti:recycle_sfc') + CALL vtables2 (leaf%ground_rvap(1,1,1),leafm%ground_rvap(1,1,1) & + ,ng, npts, imean, & + 'GROUND_RVAP :6:anal:mpti:recycle_sfc') + + CALL vtables2 (leaf%veg_water(1,1,1),leafm%veg_water(1,1,1) & + ,ng, npts, imean, & + 'VEG_WATER :6:anal:mpti:recycle_sfc') + CALL vtables2 (leaf%veg_temp(1,1,1),leafm%veg_temp(1,1,1) & + ,ng, npts, imean, & + 'VEG_TEMP :6:anal:mpti:recycle_sfc') + + CALL vtables2 (leaf%can_rvap(1,1,1),leafm%can_rvap(1,1,1) & + ,ng, npts, imean, & + 'CAN_RVAP :6:anal:mpti:recycle_sfc') + CALL vtables2 (leaf%can_temp(1,1,1),leafm%can_temp(1,1,1) & + ,ng, npts, imean, & + 'CAN_TEMP :6:anal:mpti:recycle_sfc') + + CALL vtables2 (leaf%veg_ndvip(1,1,1),leafm%veg_ndvip(1,1,1) & + ,ng, npts, imean, & + 'VEG_NDVIP :6:anal:mpti:recycle_sfc') + CALL vtables2 (leaf%veg_ndvic(1,1,1),leafm%veg_ndvic(1,1,1) & + ,ng, npts, imean, & + 'VEG_NDVIC :6:anal:mpti:recycle_sfc') + CALL vtables2 (leaf%veg_ndvif(1,1,1),leafm%veg_ndvif(1,1,1) & + ,ng, npts, imean, & + 'VEG_NDVIF :6:anal:mpti') + + npts=nx*ny + CALL vtables2 (leaf%snow_mass(1,1),leafm%snow_mass(1,1) & + ,ng, npts, imean, & + 'SNOW_MASS :2:mpti') + CALL vtables2 (leaf%snow_depth(1,1),leafm%snow_depth(1,1) & + ,ng, npts, imean, & + 'SNOW_DEPTH :2:mpti') + CALL vtables2 (leaf%seatp(1,1),leafm%seatp(1,1) & + ,ng, npts, imean, & + 'SEATP :2:mpti') + CALL vtables2 (leaf%seatf(1,1),leafm%seatf(1,1) & + ,ng, npts, imean, & + 'SEATF :2:mpti') + CALL vtables2 (leaf%soil_moist_top(1,1),leafm%soil_moist_top(1,1) & + ,ng, npts, imean, & + 'SOIL_MOIST_TOP :2:mpti') + CALL vtables2 (leaf%soil_moist_bot(1,1),leafm%soil_moist_bot(1,1) & + ,ng, npts, imean, & + 'SOIL_MOIST_BOT :2:mpti') + CALL vtables2 (leaf%soil_temp_top(1,1),leafm%soil_temp_top(1,1) & + ,ng, npts, imean, & + 'SOIL_TEMP_TOP :2:mpti') + CALL vtables2 (leaf%soil_temp_bot(1,1),leafm%soil_temp_bot(1,1) & + ,ng, npts, imean, & + 'SOIL_TEMP_BOT :2:mpti') + +return +END SUBROUTINE filltab_leaf + +END MODULE mem_leaf diff --git a/src/6.2.16/memory/mem_micro.f90 b/src/6.2.16/memory/mem_micro.f90 new file mode 100644 index 0000000..25c1eff --- /dev/null +++ b/src/6.2.16/memory/mem_micro.f90 @@ -0,0 +1,1419 @@ +!############################################################################## +Module mem_micro + +implicit none + + Type micro_vars + + ! Variables to be dimensioned by (nzp,nxp,nyp) + real, allocatable, dimension(:,:,:) :: & + rcp,rdp,rrp,rpp,rsp,rap,rgp,rhp & + ,ccp,cdp,crp,cpp,csp,cap,cgp,chp & + ,cifnp,q2,q6,q7 & + ,pcpvd,pcpvr,pcpvp,pcpvs,pcpva,pcpvg,pcpvh & + !Bin precip vars + ,pcpvic,pcpvip,pcpvid & + !Aerosol categories mass and number + ,cccnp,gccnp,cccmp,gccmp & + ,md1np,md2np,md1mp,md2mp & + ,salt_film_np,salt_jet_np,salt_spum_np & + ,salt_film_mp,salt_jet_mp,salt_spum_mp & + ,regen_aero1_np,regen_aero1_mp & + ,regen_aero2_np,regen_aero2_mp & + !Immersion freezing nuclei tracking + ,immercp,immerdp,immerrp,ifnnucp & + !Aerosol tracking variables + ,cnmcp,cnmdp,cnmrp,cnmpp,cnmsp & + ,cnmap,cnmgp,cnmhp & + ,dnmcp,dnmdp,dnmrp,dnmpp,dnmsp & + ,dnmap,dnmgp,dnmhp & + ,dincp,dindp,dinrp,dinpp,dinsp & + ,dinap,dingp,dinhp & + ,snmcp,snmdp,snmrp,snmpp,snmsp & + ,snmap,snmgp,snmhp & + ,resol_aero1_mp,resol_aero2_mp & + ! MICRO BUDGET PROCESSES (imbudget >=1) + ,latheatvap,latheatfrz,nuccldrt,cld2raint,ice2raint,nucicert & + ,vapliqt,vapicet,melticet,rimecldt,rain2icet,aggregatet & + ,latheatvapt,latheatfrzt & + ! MICRO BUDGET PROCESSES (imbudget >=2) + ,inuchomrt,inuccontrt,inucifnrt,inuchazrt,vapcldt,vapraint & + ,vapprist,vapsnowt,vapaggrt,vapgraut,vaphailt,vapdrizt & + ,meltprist,meltsnowt,meltaggrt,meltgraut,melthailt & + ,rimecldsnowt,rimecldaggrt,rimecldgraut,rimecldhailt & + ,rain2prt,rain2snt,rain2agt,rain2grt,rain2hat & + ,aggrselfprist,aggrselfsnowt,aggrprissnowt & + ! MICRO BUDGET PROCESSES (imbudget >=3) + ,dust1cldrt,dust2cldrt,dust1drzrt,dust2drzrt & + ! BIN MICROPHYSICS, and some extra budget variables + ,t_old,rv_old,nuccldct,nucicect,inuchomct,inucifnct + + ! Variables to be dimenstioned by (nzp,nxp,nyp,nkr) for bin microphysics + real, allocatable, dimension(:,:,:,:) :: & + fncn,ffcd,ffic,ffip,ffid,ffsn,ffgl,ffhl,ffin + + ! Variables to be dimensioned by (nxp,nyp) + real, allocatable, dimension(:,:) :: & + accpr,accpp,accps,accpa,accpg,accph,accpd & + ,pcprr,pcprp,pcprs,pcpra,pcprg,pcprh,pcprd & + ,pcpg,qpcpg,dpcpg & + !Accumulated aerosols and accumulation rate + ,accpdust,pcprdust,accpaero,pcpraero & + !Bin precip vars + ,accpic,accpip,accpid,pcpric,pcprid,pcprip & + !Dust erodible fraction + ,dustfrac + + End Type + + type (micro_vars), allocatable :: micro_g(:), microm_g(:) + + !Sedimentation table variables + Type pcp_tab_type + real, allocatable, dimension(:,:,:,:,:,:) :: pcpfillc,pcpfillr + real, allocatable, dimension(:,:,:,:,:) :: sfcpcp + real, allocatable, dimension(:,:,:,:,:) :: allpcp + End Type + type (pcp_tab_type), allocatable :: pcp_tab(:) + +Contains + +!############################################################################## +Subroutine alloc_sedim (pcp_tab,n1) + +use micphys + +implicit none + + type (pcp_tab_type) :: pcp_tab + integer, intent(in) :: n1 + +! Micro Level=3 sedimentation tables + if (level == 3) then + allocate (pcp_tab%pcpfillc(n1,maxkfall,nembfall,nhcat,ndensrtgt,nband)) + allocate (pcp_tab%pcpfillr(n1,maxkfall,nembfall,nhcat,ndensrtgt,nband)) + allocate (pcp_tab%sfcpcp(maxkfall,nembfall,nhcat,ndensrtgt,nband)) + allocate (pcp_tab%allpcp(n1,nembfall,nhcat,ndensrtgt,nband)) + endif + +return +END SUBROUTINE alloc_sedim + +!############################################################################## +Subroutine dealloc_sedim (pcp_tab) + +implicit none + + type (pcp_tab_type) :: pcp_tab + + if (allocated(pcp_tab%pcpfillc)) deallocate(pcp_tab%pcpfillc) + if (allocated(pcp_tab%pcpfillr)) deallocate(pcp_tab%pcpfillr) + if (allocated(pcp_tab%sfcpcp)) deallocate(pcp_tab%sfcpcp) + if (allocated(pcp_tab%allpcp)) deallocate(pcp_tab%allpcp) + +return +END SUBROUTINE dealloc_sedim + +!############################################################################## +Subroutine alloc_micro (micro,n1,n2,n3,n4) + +use micphys +use micro_prm, only:iceprocs,iceflag + +implicit none + + type (micro_vars) :: micro + integer, intent(in) :: n1,n2,n3,n4 + +! Allocate arrays based on options (if necessary) + if (level >= 0 .and. level .ne. 4) then + if(iaerosol > 0) then + allocate (micro%cccnp(n1,n2,n3)) + allocate (micro%cccmp(n1,n2,n3)) + allocate (micro%gccnp(n1,n2,n3)) + allocate (micro%gccmp(n1,n2,n3)) + endif + if(idust > 0) then + allocate (micro%md1np(n1,n2,n3)) + allocate (micro%md2np(n1,n2,n3)) + allocate (micro%md1mp(n1,n2,n3)) + allocate (micro%md2mp(n1,n2,n3)) + if(idust == 2) allocate (micro%dustfrac(n2,n3)) + endif + if(isalt > 0) then + allocate (micro%salt_film_np(n1,n2,n3)) + allocate (micro%salt_jet_np(n1,n2,n3)) + allocate (micro%salt_spum_np(n1,n2,n3)) + allocate (micro%salt_film_mp(n1,n2,n3)) + allocate (micro%salt_jet_mp(n1,n2,n3)) + allocate (micro%salt_spum_mp(n1,n2,n3)) + endif + endif + + if (level >= 2 .and. level .ne. 4) then + allocate (micro%rcp(n1,n2,n3)) + endif + + if (level == 3) then + if(ipris>=5 .and. (iifn==1.or.iifn==2)) allocate (micro%cifnp(n1,n2,n3)) + if(idriz >= 1) then + allocate (micro%rdp(n1,n2,n3)) + allocate (micro%accpd(n2,n3)) + allocate (micro%pcprd(n2,n3)) + allocate (micro%pcpvd(n1,n2,n3)) + endif + if(irain >= 1) then + allocate (micro%rrp(n1,n2,n3)) + allocate (micro%accpr(n2,n3)) + allocate (micro%pcprr(n2,n3)) + allocate (micro%pcpvr(n1,n2,n3)) + allocate (micro%q2(n1,n2,n3)) + endif + if(ipris >= 1) then + allocate (micro%rpp(n1,n2,n3)) + allocate (micro%accpp(n2,n3)) + allocate (micro%pcprp(n2,n3)) + allocate (micro%pcpvp(n1,n2,n3)) + endif + if(isnow >= 1) then + allocate (micro%rsp(n1,n2,n3)) + allocate (micro%accps(n2,n3)) + allocate (micro%pcprs(n2,n3)) + allocate (micro%pcpvs(n1,n2,n3)) + endif + if(iaggr >= 1) then + allocate (micro%rap(n1,n2,n3)) + allocate (micro%accpa(n2,n3)) + allocate (micro%pcpra(n2,n3)) + allocate (micro%pcpva(n1,n2,n3)) + endif + if(igraup >= 1) then + allocate (micro%rgp(n1,n2,n3)) + allocate (micro%accpg(n2,n3)) + allocate (micro%pcprg(n2,n3)) + allocate (micro%pcpvg(n1,n2,n3)) + allocate (micro%q6(n1,n2,n3)) + endif + if(ihail >= 1) then + allocate (micro%rhp(n1,n2,n3)) + allocate (micro%accph(n2,n3)) + allocate (micro%pcprh(n2,n3)) + allocate (micro%pcpvh(n1,n2,n3)) + allocate (micro%q7(n1,n2,n3)) + endif + + if(jnmb(1) >= 5) allocate (micro%ccp(n1,n2,n3)) + if(jnmb(8) >= 5) allocate (micro%cdp(n1,n2,n3)) + if(jnmb(2) >= 5) allocate (micro%crp(n1,n2,n3)) + if(jnmb(3) >= 5) allocate (micro%cpp(n1,n2,n3)) + if(jnmb(4) >= 5) allocate (micro%csp(n1,n2,n3)) + if(jnmb(5) >= 5) allocate (micro%cap(n1,n2,n3)) + if(jnmb(6) >= 5) allocate (micro%cgp(n1,n2,n3)) + if(jnmb(7) >= 5) allocate (micro%chp(n1,n2,n3)) + + allocate (micro%pcpg(n2,n3)) + allocate (micro%qpcpg(n2,n3)) + allocate (micro%dpcpg(n2,n3)) + + if(iccnlev>=2) then + allocate (micro%regen_aero1_np(n1,n2,n3)) + allocate (micro%regen_aero1_mp(n1,n2,n3)) + allocate (micro%regen_aero2_np(n1,n2,n3)) + allocate (micro%regen_aero2_mp(n1,n2,n3)) + if(jnmb(1) >= 1) allocate (micro%cnmcp(n1,n2,n3)) + if(jnmb(8) >= 1) allocate (micro%cnmdp(n1,n2,n3)) + if(jnmb(2) >= 1) allocate (micro%cnmrp(n1,n2,n3)) + if(jnmb(3) >= 1) allocate (micro%cnmpp(n1,n2,n3)) + if(jnmb(4) >= 1) allocate (micro%cnmsp(n1,n2,n3)) + if(jnmb(5) >= 1) allocate (micro%cnmap(n1,n2,n3)) + if(jnmb(6) >= 1) allocate (micro%cnmgp(n1,n2,n3)) + if(jnmb(7) >= 1) allocate (micro%cnmhp(n1,n2,n3)) + allocate (micro%accpaero(n2,n3)) + allocate (micro%pcpraero(n2,n3)) + if(itrkdust==1 .and. idust>0) then + allocate (micro%accpdust(n2,n3)) + allocate (micro%pcprdust(n2,n3)) + if(jnmb(1) >= 1) allocate (micro%dnmcp(n1,n2,n3)) + if(jnmb(8) >= 1) allocate (micro%dnmdp(n1,n2,n3)) + if(jnmb(2) >= 1) allocate (micro%dnmrp(n1,n2,n3)) + if(jnmb(3) >= 1) allocate (micro%dnmpp(n1,n2,n3)) + if(jnmb(4) >= 1) allocate (micro%dnmsp(n1,n2,n3)) + if(jnmb(5) >= 1) allocate (micro%dnmap(n1,n2,n3)) + if(jnmb(6) >= 1) allocate (micro%dnmgp(n1,n2,n3)) + if(jnmb(7) >= 1) allocate (micro%dnmhp(n1,n2,n3)) + endif + if(itrkdustifn==1 .and. idust>0) then + if(jnmb(1) >= 1) allocate (micro%dincp(n1,n2,n3)) + if(jnmb(8) >= 1) allocate (micro%dindp(n1,n2,n3)) + if(jnmb(2) >= 1) allocate (micro%dinrp(n1,n2,n3)) + if(jnmb(3) >= 1) allocate (micro%dinpp(n1,n2,n3)) + if(jnmb(4) >= 1) allocate (micro%dinsp(n1,n2,n3)) + if(jnmb(5) >= 1) allocate (micro%dinap(n1,n2,n3)) + if(jnmb(6) >= 1) allocate (micro%dingp(n1,n2,n3)) + if(jnmb(7) >= 1) allocate (micro%dinhp(n1,n2,n3)) + endif + if(itrkepsilon==1) then + allocate (micro%resol_aero1_mp(n1,n2,n3)) + allocate (micro%resol_aero2_mp(n1,n2,n3)) + if(jnmb(1) >= 1) allocate (micro%snmcp(n1,n2,n3)) + if(jnmb(8) >= 1) allocate (micro%snmdp(n1,n2,n3)) + if(jnmb(2) >= 1) allocate (micro%snmrp(n1,n2,n3)) + if(jnmb(3) >= 1) allocate (micro%snmpp(n1,n2,n3)) + if(jnmb(4) >= 1) allocate (micro%snmsp(n1,n2,n3)) + if(jnmb(5) >= 1) allocate (micro%snmap(n1,n2,n3)) + if(jnmb(6) >= 1) allocate (micro%snmgp(n1,n2,n3)) + if(jnmb(7) >= 1) allocate (micro%snmhp(n1,n2,n3)) + endif + endif + + if(iifn==3 .and. iccnlev>=1) then + if(jnmb(1) >= 5) allocate (micro%ifnnucp(n1,n2,n3)) + if(jnmb(1) >= 5) allocate (micro%immercp(n1,n2,n3)) + if(jnmb(8) >= 5) allocate (micro%immerdp(n1,n2,n3)) + if(jnmb(2) >= 5) allocate (micro%immerrp(n1,n2,n3)) + endif + + !COMPUTE AND OUTPUT MICRO BUDGET PROCESSES + if(imbudget>=1) then + allocate (micro%latheatvap(n1,n2,n3)) + allocate (micro%latheatfrz(n1,n2,n3)) + allocate (micro%nuccldrt(n1,n2,n3)) + allocate (micro%cld2raint(n1,n2,n3)) + allocate (micro%ice2raint(n1,n2,n3)) + allocate (micro%nucicert(n1,n2,n3)) + allocate (micro%vapliqt(n1,n2,n3)) + allocate (micro%vapicet(n1,n2,n3)) + allocate (micro%melticet(n1,n2,n3)) + allocate (micro%rimecldt(n1,n2,n3)) + allocate (micro%rain2icet(n1,n2,n3)) + allocate (micro%aggregatet(n1,n2,n3)) + allocate (micro%latheatvapt(n1,n2,n3)) + allocate (micro%latheatfrzt(n1,n2,n3)) + endif + if(imbudget>=2) then + allocate (micro%inuchomrt(n1,n2,n3)) + allocate (micro%inuccontrt(n1,n2,n3)) + allocate (micro%inucifnrt(n1,n2,n3)) + allocate (micro%inuchazrt(n1,n2,n3)) + allocate (micro%vapcldt(n1,n2,n3)) + allocate (micro%vapraint(n1,n2,n3)) + allocate (micro%vapprist(n1,n2,n3)) + allocate (micro%vapsnowt(n1,n2,n3)) + allocate (micro%vapaggrt(n1,n2,n3)) + allocate (micro%vapgraut(n1,n2,n3)) + allocate (micro%vaphailt(n1,n2,n3)) + allocate (micro%vapdrizt(n1,n2,n3)) + allocate (micro%meltprist(n1,n2,n3)) + allocate (micro%meltsnowt(n1,n2,n3)) + allocate (micro%meltaggrt(n1,n2,n3)) + allocate (micro%meltgraut(n1,n2,n3)) + allocate (micro%melthailt(n1,n2,n3)) + allocate (micro%rimecldsnowt(n1,n2,n3)) + allocate (micro%rimecldaggrt(n1,n2,n3)) + allocate (micro%rimecldgraut(n1,n2,n3)) + allocate (micro%rimecldhailt(n1,n2,n3)) + allocate (micro%rain2prt(n1,n2,n3)) + allocate (micro%rain2snt(n1,n2,n3)) + allocate (micro%rain2agt(n1,n2,n3)) + allocate (micro%rain2grt(n1,n2,n3)) + allocate (micro%rain2hat(n1,n2,n3)) + allocate (micro%aggrselfprist(n1,n2,n3)) + allocate (micro%aggrselfsnowt(n1,n2,n3)) + allocate (micro%aggrprissnowt(n1,n2,n3)) + endif + if(imbudget==3 .and. idust>0) then + allocate (micro%dust1cldrt(n1,n2,n3)) + allocate (micro%dust2cldrt(n1,n2,n3)) + allocate (micro%dust1drzrt(n1,n2,n3)) + allocate (micro%dust2drzrt(n1,n2,n3)) + endif + endif + if (level == 4) then + allocate (micro%fncn(n1,n2,n3,n4)) + allocate (micro%ffcd(n1,n2,n3,n4)) + allocate (micro%accpr(n2,n3)) + allocate (micro%pcprr(n2,n3)) + allocate (micro%pcpvr(n1,n2,n3)) + allocate (micro%pcpg(n2,n3)) + allocate (micro%qpcpg(n2,n3)) + allocate (micro%dpcpg(n2,n3)) + + if (iceprocs == 1) then + if (ipris == 1 .or. ipris >= 4) then + allocate (micro%ffic(n1,n2,n3,n4)) + allocate (micro%accpic(n2,n3)) + allocate (micro%pcpric(n2,n3)) + allocate (micro%pcpvic(n1,n2,n3)) + endif + + if (ipris == 2 .or. ipris >= 4) then + allocate (micro%ffip(n1,n2,n3,n4)) + allocate (micro%accpip(n2,n3)) + allocate (micro%pcprip(n2,n3)) + allocate (micro%pcpvip(n1,n2,n3)) + endif + + if (ipris >= 3) then + allocate (micro%ffid(n1,n2,n3,n4)) + allocate (micro%accpid(n2,n3)) + allocate (micro%pcprid(n2,n3)) + allocate (micro%pcpvid(n1,n2,n3)) + endif + + if (ipris >= 1) then + allocate (micro%accpp(n2,n3)) + allocate (micro%pcprp(n2,n3)) + allocate (micro%pcpvp(n1,n2,n3)) + allocate (micro%accps(n2,n3)) + allocate (micro%pcprs(n2,n3)) + allocate (micro%pcpvs(n1,n2,n3)) + endif + + allocate (micro%ffsn(n1,n2,n3,n4)) + allocate (micro%accpa(n2,n3)) + allocate (micro%pcpra(n2,n3)) + allocate (micro%pcpva(n1,n2,n3)) + + if (igraup > 0) then + allocate (micro%ffgl(n1,n2,n3,n4)) + allocate (micro%accpg(n2,n3)) + allocate (micro%pcprg(n2,n3)) + allocate (micro%pcpvg(n1,n2,n3)) + endif + + if (ihail > 0) then + allocate (micro%ffhl(n1,n2,n3,n4)) + allocate (micro%accph(n2,n3)) + allocate (micro%pcprh(n2,n3)) + allocate (micro%pcpvh(n1,n2,n3)) + endif + + if (iifn == 2) allocate (micro%ffin(n1,n2,n3,n4)) + endif + + allocate (micro%rv_old(n1,n2,n3)) + allocate (micro%t_old(n1,n2,n3)) + + if(imbudget>=1) then + allocate (micro%latheatvap(n1,n2,n3)) + allocate (micro%latheatvapt(n1,n2,n3)) + allocate (micro%nuccldrt(n1,n2,n3)) + allocate (micro%nuccldct(n1,n2,n3)) + allocate (micro%cld2raint(n1,n2,n3)) + allocate (micro%vapliqt(n1,n2,n3)) + if(iceprocs==1) then + allocate (micro%latheatfrz(n1,n2,n3)) + ! allocate (micro%ice2raint(n1,n2,n3)) + allocate (micro%nucicert(n1,n2,n3)) + allocate (micro%nucicect(n1,n2,n3)) + allocate (micro%vapicet(n1,n2,n3)) + allocate (micro%melticet(n1,n2,n3)) + allocate (micro%rimecldt(n1,n2,n3)) + allocate (micro%rain2icet(n1,n2,n3)) + allocate (micro%aggregatet(n1,n2,n3)) + allocate (micro%latheatfrzt(n1,n2,n3)) + endif + endif + if(imbudget>=2) then + allocate (micro%vapcldt(n1,n2,n3)) + allocate (micro%vapraint(n1,n2,n3)) + if(iceprocs==1) then + !Budget variables are the same as for the bulk + !microphysics scheme. Those that are commented + !out have not been added to the bin microphysics. + allocate (micro%inuchomrt(n1,n2,n3)) + allocate (micro%inuchomct(n1,n2,n3)) + ! allocate (micro%inuccontrt(n1,n2,n3)) + ! allocate (micro%inuccontct(n1,n2,n3)) + allocate (micro%inucifnrt(n1,n2,n3)) + allocate (micro%inucifnct(n1,n2,n3)) + ! allocate (micro%inuchazrt(n1,n2,n3)) + ! allocate (micro%inuchazct(n1,n2,n3)) + if (ipris > 0) allocate (micro%vapprist(n1,n2,n3)) + if (ipris > 0) allocate (micro%vapsnowt(n1,n2,n3)) + allocate (micro%vapaggrt(n1,n2,n3)) + if (igraup > 0) allocate (micro%vapgraut(n1,n2,n3)) + if (ihail > 0) allocate (micro%vaphailt(n1,n2,n3)) + if (ipris > 0) allocate (micro%meltprist(n1,n2,n3)) + if (ipris > 0) allocate (micro%meltsnowt(n1,n2,n3)) + allocate (micro%meltaggrt(n1,n2,n3)) + if (igraup > 0) allocate (micro%meltgraut(n1,n2,n3)) + if (ihail > 0) allocate (micro%melthailt(n1,n2,n3)) + if (ipris > 0) allocate (micro%rimecldsnowt(n1,n2,n3)) + allocate (micro%rimecldaggrt(n1,n2,n3)) + if (igraup > 0) allocate (micro%rimecldgraut(n1,n2,n3)) + if (ihail > 0) allocate (micro%rimecldhailt(n1,n2,n3)) + ! allocate (micro%rain2prt(n1,n2,n3)) + if (ipris > 0) allocate (micro%rain2snt(n1,n2,n3)) + allocate (micro%rain2agt(n1,n2,n3)) + if (igraup > 0) allocate (micro%rain2grt(n1,n2,n3)) + if (ihail > 0) allocate (micro%rain2hat(n1,n2,n3)) + ! allocate (micro%aggrselfprist(n1,n2,n3)) + ! allocate (micro%aggrselfsnowt(n1,n2,n3)) + ! allocate (micro%aggrprissnowt(n1,n2,n3)) + endif + endif + endif + +return +END SUBROUTINE alloc_micro + +!############################################################################## +Subroutine dealloc_micro (micro) + +implicit none + + type (micro_vars) :: micro + + if (allocated(micro%rcp)) deallocate (micro%rcp) + if (allocated(micro%rdp)) deallocate (micro%rdp) + if (allocated(micro%rrp)) deallocate (micro%rrp) + if (allocated(micro%rpp)) deallocate (micro%rpp) + if (allocated(micro%rsp)) deallocate (micro%rsp) + if (allocated(micro%rap)) deallocate (micro%rap) + if (allocated(micro%rgp)) deallocate (micro%rgp) + if (allocated(micro%rhp)) deallocate (micro%rhp) + if (allocated(micro%ccp)) deallocate (micro%ccp) + if (allocated(micro%cdp)) deallocate (micro%cdp) + if (allocated(micro%crp)) deallocate (micro%crp) + if (allocated(micro%cpp)) deallocate (micro%cpp) + if (allocated(micro%csp)) deallocate (micro%csp) + if (allocated(micro%cap)) deallocate (micro%cap) + if (allocated(micro%cgp)) deallocate (micro%cgp) + if (allocated(micro%chp)) deallocate (micro%chp) + if (allocated(micro%cifnp)) deallocate (micro%cifnp) + if (allocated(micro%q2)) deallocate (micro%q2) + if (allocated(micro%q6)) deallocate (micro%q6) + if (allocated(micro%q7)) deallocate (micro%q7) + + if (allocated(micro%cccnp)) deallocate (micro%cccnp) + if (allocated(micro%gccnp)) deallocate (micro%gccnp) + if (allocated(micro%cccmp)) deallocate (micro%cccmp) + if (allocated(micro%gccmp)) deallocate (micro%gccmp) + if (allocated(micro%md1np)) deallocate (micro%md1np) + if (allocated(micro%md2np)) deallocate (micro%md2np) + if (allocated(micro%md1mp)) deallocate (micro%md1mp) + if (allocated(micro%md2mp)) deallocate (micro%md2mp) + if (allocated(micro%dustfrac))deallocate (micro%dustfrac) + if (allocated(micro%salt_film_np)) deallocate (micro%salt_film_np) + if (allocated(micro%salt_jet_np)) deallocate (micro%salt_jet_np) + if (allocated(micro%salt_spum_np)) deallocate (micro%salt_spum_np) + if (allocated(micro%salt_film_mp)) deallocate (micro%salt_film_mp) + if (allocated(micro%salt_jet_mp)) deallocate (micro%salt_jet_mp) + if (allocated(micro%salt_spum_mp)) deallocate (micro%salt_spum_mp) + if (allocated(micro%regen_aero1_np)) deallocate (micro%regen_aero1_np) + if (allocated(micro%regen_aero1_mp)) deallocate (micro%regen_aero1_mp) + if (allocated(micro%regen_aero2_np)) deallocate (micro%regen_aero2_np) + if (allocated(micro%regen_aero2_mp)) deallocate (micro%regen_aero2_mp) + + if (allocated(micro%immercp)) deallocate (micro%immercp) + if (allocated(micro%immerdp)) deallocate (micro%immerdp) + if (allocated(micro%immerrp)) deallocate (micro%immerrp) + if (allocated(micro%ifnnucp)) deallocate (micro%ifnnucp) + + if (allocated(micro%cnmcp)) deallocate (micro%cnmcp) + if (allocated(micro%cnmdp)) deallocate (micro%cnmdp) + if (allocated(micro%cnmrp)) deallocate (micro%cnmrp) + if (allocated(micro%cnmpp)) deallocate (micro%cnmpp) + if (allocated(micro%cnmsp)) deallocate (micro%cnmsp) + if (allocated(micro%cnmap)) deallocate (micro%cnmap) + if (allocated(micro%cnmgp)) deallocate (micro%cnmgp) + if (allocated(micro%cnmhp)) deallocate (micro%cnmhp) + if (allocated(micro%accpaero))deallocate (micro%accpaero) + if (allocated(micro%pcpraero))deallocate (micro%pcpraero) + + if (allocated(micro%dnmcp)) deallocate (micro%dnmcp) + if (allocated(micro%dnmdp)) deallocate (micro%dnmdp) + if (allocated(micro%dnmrp)) deallocate (micro%dnmrp) + if (allocated(micro%dnmpp)) deallocate (micro%dnmpp) + if (allocated(micro%dnmsp)) deallocate (micro%dnmsp) + if (allocated(micro%dnmap)) deallocate (micro%dnmap) + if (allocated(micro%dnmgp)) deallocate (micro%dnmgp) + if (allocated(micro%dnmhp)) deallocate (micro%dnmhp) + if (allocated(micro%accpdust))deallocate (micro%accpdust) + if (allocated(micro%pcprdust))deallocate (micro%pcprdust) + + if (allocated(micro%dincp)) deallocate (micro%dincp) + if (allocated(micro%dindp)) deallocate (micro%dindp) + if (allocated(micro%dinrp)) deallocate (micro%dinrp) + if (allocated(micro%dinpp)) deallocate (micro%dinpp) + if (allocated(micro%dinsp)) deallocate (micro%dinsp) + if (allocated(micro%dinap)) deallocate (micro%dinap) + if (allocated(micro%dingp)) deallocate (micro%dingp) + if (allocated(micro%dinhp)) deallocate (micro%dinhp) + + if (allocated(micro%snmcp)) deallocate (micro%snmcp) + if (allocated(micro%snmdp)) deallocate (micro%snmdp) + if (allocated(micro%snmrp)) deallocate (micro%snmrp) + if (allocated(micro%snmpp)) deallocate (micro%snmpp) + if (allocated(micro%snmsp)) deallocate (micro%snmsp) + if (allocated(micro%snmap)) deallocate (micro%snmap) + if (allocated(micro%snmgp)) deallocate (micro%snmgp) + if (allocated(micro%snmhp)) deallocate (micro%snmhp) + if (allocated(micro%resol_aero1_mp)) deallocate (micro%resol_aero1_mp) + if (allocated(micro%resol_aero2_mp)) deallocate (micro%resol_aero2_mp) + + if (allocated(micro%pcpvr)) deallocate (micro%pcpvr) + if (allocated(micro%pcpvp)) deallocate (micro%pcpvp) + if (allocated(micro%pcpvs)) deallocate (micro%pcpvs) + if (allocated(micro%pcpva)) deallocate (micro%pcpva) + if (allocated(micro%pcpvg)) deallocate (micro%pcpvg) + if (allocated(micro%pcpvh)) deallocate (micro%pcpvh) + if (allocated(micro%pcpvd)) deallocate (micro%pcpvd) + + if (allocated(micro%accpr)) deallocate (micro%accpr) + if (allocated(micro%accpp)) deallocate (micro%accpp) + if (allocated(micro%accps)) deallocate (micro%accps) + if (allocated(micro%accpa)) deallocate (micro%accpa) + if (allocated(micro%accpg)) deallocate (micro%accpg) + if (allocated(micro%accph)) deallocate (micro%accph) + if (allocated(micro%accpd)) deallocate (micro%accpd) + if (allocated(micro%pcprr)) deallocate (micro%pcprr) + if (allocated(micro%pcprp)) deallocate (micro%pcprp) + if (allocated(micro%pcprs)) deallocate (micro%pcprs) + if (allocated(micro%pcpra)) deallocate (micro%pcpra) + if (allocated(micro%pcprg)) deallocate (micro%pcprg) + if (allocated(micro%pcprh)) deallocate (micro%pcprh) + if (allocated(micro%pcprd)) deallocate (micro%pcprd) + if (allocated(micro%pcpg)) deallocate (micro%pcpg) + if (allocated(micro%qpcpg)) deallocate (micro%qpcpg) + if (allocated(micro%dpcpg)) deallocate (micro%dpcpg) + + !COMPUTE AND OUTPUT MICRO BUDGET PROCESSES + if (allocated(micro%latheatvap)) deallocate (micro%latheatvap) + if (allocated(micro%latheatfrz)) deallocate (micro%latheatfrz) + if (allocated(micro%nuccldrt)) deallocate (micro%nuccldrt) + if (allocated(micro%cld2raint)) deallocate (micro%cld2raint) + if (allocated(micro%ice2raint)) deallocate (micro%ice2raint) + if (allocated(micro%nucicert)) deallocate (micro%nucicert) + if (allocated(micro%vapliqt)) deallocate (micro%vapliqt) + if (allocated(micro%vapicet)) deallocate (micro%vapicet) + if (allocated(micro%melticet)) deallocate (micro%melticet) + if (allocated(micro%rimecldt)) deallocate (micro%rimecldt) + if (allocated(micro%rain2icet)) deallocate (micro%rain2icet) + if (allocated(micro%aggregatet)) deallocate (micro%aggregatet) + if (allocated(micro%latheatvapt)) deallocate (micro%latheatvapt) + if (allocated(micro%latheatfrzt)) deallocate (micro%latheatfrzt) + + if (allocated(micro%inuchomrt)) deallocate (micro%inuchomrt) + if (allocated(micro%inuccontrt)) deallocate (micro%inuccontrt) + if (allocated(micro%inucifnrt)) deallocate (micro%inucifnrt) + if (allocated(micro%inuchazrt)) deallocate (micro%inuchazrt) + if (allocated(micro%vapcldt)) deallocate (micro%vapcldt) + if (allocated(micro%vapraint)) deallocate (micro%vapraint) + if (allocated(micro%vapprist)) deallocate (micro%vapprist) + if (allocated(micro%vapsnowt)) deallocate (micro%vapsnowt) + if (allocated(micro%vapaggrt)) deallocate (micro%vapaggrt) + if (allocated(micro%vapgraut)) deallocate (micro%vapgraut) + if (allocated(micro%vaphailt)) deallocate (micro%vaphailt) + if (allocated(micro%vapdrizt)) deallocate (micro%vapdrizt) + if (allocated(micro%meltprist)) deallocate (micro%meltprist) + if (allocated(micro%meltsnowt)) deallocate (micro%meltsnowt) + if (allocated(micro%meltaggrt)) deallocate (micro%meltaggrt) + if (allocated(micro%meltgraut)) deallocate (micro%meltgraut) + if (allocated(micro%melthailt)) deallocate (micro%melthailt) + if (allocated(micro%rimecldsnowt)) deallocate (micro%rimecldsnowt) + if (allocated(micro%rimecldaggrt)) deallocate (micro%rimecldaggrt) + if (allocated(micro%rimecldgraut)) deallocate (micro%rimecldgraut) + if (allocated(micro%rimecldhailt)) deallocate (micro%rimecldhailt) + if (allocated(micro%rain2prt)) deallocate (micro%rain2prt) + if (allocated(micro%rain2snt)) deallocate (micro%rain2snt) + if (allocated(micro%rain2agt)) deallocate (micro%rain2agt) + if (allocated(micro%rain2grt)) deallocate (micro%rain2grt) + if (allocated(micro%rain2hat)) deallocate (micro%rain2hat) + if (allocated(micro%aggrselfprist)) deallocate (micro%aggrselfprist) + if (allocated(micro%aggrselfsnowt)) deallocate (micro%aggrselfsnowt) + if (allocated(micro%aggrprissnowt)) deallocate (micro%aggrprissnowt) + + if (allocated(micro%dust1cldrt)) deallocate (micro%dust1cldrt) + if (allocated(micro%dust2cldrt)) deallocate (micro%dust2cldrt) + if (allocated(micro%dust1drzrt)) deallocate (micro%dust1drzrt) + if (allocated(micro%dust2drzrt)) deallocate (micro%dust2drzrt) + + !Bin microphysics variables + if (allocated(micro%pcpvip)) deallocate (micro%pcpvip) + if (allocated(micro%pcpvic)) deallocate (micro%pcpvic) + if (allocated(micro%pcpvid)) deallocate (micro%pcpvid) + if (allocated(micro%pcprip)) deallocate (micro%pcprip) + if (allocated(micro%pcpric)) deallocate (micro%pcpric) + if (allocated(micro%pcprid)) deallocate (micro%pcprid) + if (allocated(micro%nuccldct)) deallocate (micro%nuccldct) + if (allocated(micro%nucicect)) deallocate (micro%nucicect) + if (allocated(micro%inuchomct)) deallocate (micro%inuchomct) + if (allocated(micro%inucifnct)) deallocate (micro%inucifnct) + if (allocated(micro%accpic)) deallocate (micro%accpic) + if (allocated(micro%accpip)) deallocate (micro%accpip) + if (allocated(micro%accpid)) deallocate (micro%accpid) + if (allocated(micro%fncn)) deallocate (micro%fncn) + if (allocated(micro%ffcd)) deallocate (micro%ffcd) + if (allocated(micro%ffic)) deallocate (micro%ffic) + if (allocated(micro%ffip)) deallocate (micro%ffip) + if (allocated(micro%ffid)) deallocate (micro%ffid) + if (allocated(micro%ffsn)) deallocate (micro%ffsn) + if (allocated(micro%ffgl)) deallocate (micro%ffgl) + if (allocated(micro%ffhl)) deallocate (micro%ffhl) + if (allocated(micro%ffin)) deallocate (micro%ffin) + if (allocated(micro%t_old)) deallocate (micro%t_old) + if (allocated(micro%rv_old)) deallocate (micro%rv_old) + +return +END SUBROUTINE dealloc_micro + +!############################################################################## +Subroutine filltab_micro (micro,microm,imean,n1,n2,n3,ng) + +use var_tables +use micro_prm, only:nkr + +implicit none + + type (micro_vars) :: micro,microm + integer, intent(in) :: imean,n1,n2,n3,ng + integer :: npts + +! Fill arrays into variable tables + + npts=n1*n2*n3 + if (allocated(micro%rcp)) & + CALL vtables2 (micro%rcp(1,1,1),microm%rcp(1,1,1) & + ,ng, npts, imean, & + 'RCP :3:anal:mpti:mpt1') + if (allocated(micro%rdp)) & + CALL vtables2 (micro%rdp(1,1,1),microm%rdp(1,1,1) & + ,ng, npts, imean, & + 'RDP :3:anal:mpti:mpt1') + if (allocated(micro%rrp)) & + CALL vtables2 (micro%rrp(1,1,1),microm%rrp(1,1,1) & + ,ng, npts, imean, & + 'RRP :3:anal:mpti:mpt1') + if (allocated(micro%rpp)) & + CALL vtables2 (micro%rpp(1,1,1),microm%rpp(1,1,1) & + ,ng, npts, imean, & + 'RPP :3:anal:mpti:mpt1') + if (allocated(micro%rsp)) & + CALL vtables2 (micro%rsp(1,1,1),microm%rsp(1,1,1) & + ,ng, npts, imean, & + 'RSP :3:anal:mpti:mpt1') + if (allocated(micro%rap)) & + CALL vtables2 (micro%rap(1,1,1),microm%rap(1,1,1) & + ,ng, npts, imean, & + 'RAP :3:anal:mpti:mpt1') + if (allocated(micro%rgp)) & + CALL vtables2 (micro%rgp(1,1,1),microm%rgp(1,1,1) & + ,ng, npts, imean, & + 'RGP :3:anal:mpti:mpt1') + if (allocated(micro%rhp)) & + CALL vtables2 (micro%rhp(1,1,1),microm%rhp(1,1,1) & + ,ng, npts, imean, & + 'RHP :3:anal:mpti:mpt1') + if (allocated(micro%ccp)) & + CALL vtables2 (micro%ccp(1,1,1),microm%ccp(1,1,1) & + ,ng, npts, imean, & + 'CCP :3:anal:mpti:mpt1') + if (allocated(micro%cdp)) & + CALL vtables2 (micro%cdp(1,1,1),microm%cdp(1,1,1) & + ,ng, npts, imean, & + 'CDP :3:anal:mpti:mpt1') + if (allocated(micro%crp)) & + CALL vtables2 (micro%crp(1,1,1),microm%crp(1,1,1) & + ,ng, npts, imean, & + 'CRP :3:anal:mpti:mpt1') + if (allocated(micro%cpp)) & + CALL vtables2 (micro%cpp(1,1,1),microm%cpp(1,1,1) & + ,ng, npts, imean, & + 'CPP :3:anal:mpti:mpt1') + if (allocated(micro%csp)) & + CALL vtables2 (micro%csp(1,1,1),microm%csp(1,1,1) & + ,ng, npts, imean, & + 'CSP :3:anal:mpti:mpt1') + if (allocated(micro%cap)) & + CALL vtables2 (micro%cap(1,1,1),microm%cap(1,1,1) & + ,ng, npts, imean, & + 'CAP :3:anal:mpti:mpt1') + if (allocated(micro%cgp)) & + CALL vtables2 (micro%cgp(1,1,1),microm%cgp(1,1,1) & + ,ng, npts, imean, & + 'CGP :3:anal:mpti:mpt1') + if (allocated(micro%chp)) & + CALL vtables2 (micro%chp(1,1,1),microm%chp(1,1,1) & + ,ng, npts, imean, & + 'CHP :3:anal:mpti:mpt1') + if (allocated(micro%cifnp)) & + CALL vtables2 (micro%cifnp(1,1,1),microm%cifnp(1,1,1) & + ,ng, npts, imean, & + 'CIFNP :3:anal:mpti:mpt1') + + if (allocated(micro%q2)) & + CALL vtables2 (micro%q2(1,1,1),microm%q2(1,1,1) & + ,ng, npts, imean, & + 'Q2 :3:anal:mpti:mpt1') + if (allocated(micro%q6)) & + CALL vtables2 (micro%q6(1,1,1),microm%q6(1,1,1) & + ,ng, npts, imean, & + 'Q6 :3:anal:mpti:mpt1') + if (allocated(micro%q7)) & + CALL vtables2 (micro%q7(1,1,1),microm%q7(1,1,1) & + ,ng, npts, imean, & + 'Q7 :3:anal:mpti:mpt1') + +!Aerosol categories mass and number + if (allocated(micro%cccnp)) & + CALL vtables2 (micro%cccnp(1,1,1),microm%cccnp(1,1,1) & + ,ng, npts, imean, & + 'CCCNP :3:anal:mpti:mpt1') + if (allocated(micro%gccnp)) & + CALL vtables2 (micro%gccnp(1,1,1),microm%gccnp(1,1,1) & + ,ng, npts, imean, & + 'GCCNP :3:anal:mpti:mpt1') + if (allocated(micro%cccmp)) & + CALL vtables2 (micro%cccmp(1,1,1),microm%cccmp(1,1,1) & + ,ng, npts, imean, & + 'CCCMP :3:anal:mpti:mpt1') + if (allocated(micro%gccmp)) & + CALL vtables2 (micro%gccmp(1,1,1),microm%gccmp(1,1,1) & + ,ng, npts, imean, & + 'GCCMP :3:anal:mpti:mpt1') + if (allocated(micro%md1np)) & + CALL vtables2 (micro%md1np(1,1,1),microm%md1np(1,1,1) & + ,ng, npts, imean, & + 'MD1NP :3:anal:mpti:mpt1') + if (allocated(micro%md2np)) & + CALL vtables2 (micro%md2np(1,1,1),microm%md2np(1,1,1) & + ,ng, npts, imean, & + 'MD2NP :3:anal:mpti:mpt1') + if (allocated(micro%md1mp)) & + CALL vtables2 (micro%md1mp(1,1,1),microm%md1mp(1,1,1) & + ,ng, npts, imean, & + 'MD1MP :3:anal:mpti:mpt1') + if (allocated(micro%md2mp)) & + CALL vtables2 (micro%md2mp(1,1,1),microm%md2mp(1,1,1) & + ,ng, npts, imean, & + 'MD2MP :3:anal:mpti:mpt1') + if (allocated(micro%salt_film_np)) & + CALL vtables2 (micro%salt_film_np(1,1,1),microm%salt_film_np(1,1,1) & + ,ng, npts, imean, & + 'SALT_FILM_NP :3:anal:mpti:mpt1') + if (allocated(micro%salt_jet_np)) & + CALL vtables2 (micro%salt_jet_np(1,1,1),microm%salt_jet_np(1,1,1) & + ,ng, npts, imean, & + 'SALT_JET_NP :3:anal:mpti:mpt1') + if (allocated(micro%salt_spum_np)) & + CALL vtables2 (micro%salt_spum_np(1,1,1),microm%salt_spum_np(1,1,1) & + ,ng, npts, imean, & + 'SALT_SPUM_NP :3:anal:mpti:mpt1') + if (allocated(micro%salt_film_mp)) & + CALL vtables2 (micro%salt_film_mp(1,1,1),microm%salt_film_mp(1,1,1) & + ,ng, npts, imean, & + 'SALT_FILM_MP :3:anal:mpti:mpt1') + if (allocated(micro%salt_jet_mp)) & + CALL vtables2 (micro%salt_jet_mp(1,1,1),microm%salt_jet_mp(1,1,1) & + ,ng, npts, imean, & + 'SALT_JET_MP :3:anal:mpti:mpt1') + if (allocated(micro%salt_spum_mp)) & + CALL vtables2 (micro%salt_spum_mp(1,1,1),microm%salt_spum_mp(1,1,1) & + ,ng, npts, imean, & + 'SALT_SPUM_MP :3:anal:mpti:mpt1') + if (allocated(micro%regen_aero1_np)) & + CALL vtables2 (micro%regen_aero1_np(1,1,1),microm%regen_aero1_np(1,1,1) & + ,ng, npts, imean, & + 'REGEN_AERO1_NP :3:anal:mpti:mpt1') + if (allocated(micro%regen_aero1_mp)) & + CALL vtables2 (micro%regen_aero1_mp(1,1,1),microm%regen_aero1_mp(1,1,1) & + ,ng, npts, imean, & + 'REGEN_AERO1_MP :3:anal:mpti:mpt1') + if (allocated(micro%regen_aero2_np)) & + CALL vtables2 (micro%regen_aero2_np(1,1,1),microm%regen_aero2_np(1,1,1) & + ,ng, npts, imean, & + 'REGEN_AERO2_NP :3:anal:mpti:mpt1') + if (allocated(micro%regen_aero2_mp)) & + CALL vtables2 (micro%regen_aero2_mp(1,1,1),microm%regen_aero2_mp(1,1,1) & + ,ng, npts, imean, & + 'REGEN_AERO2_MP :3:anal:mpti:mpt1') + +!Immersion freezing nuclei number tracking variables + if (allocated(micro%immercp)) & + CALL vtables2 (micro%immercp(1,1,1),microm%immercp(1,1,1) & + ,ng, npts, imean, & + 'IMMERCP :3:anal:mpti:mpt1') + if (allocated(micro%immerdp)) & + CALL vtables2 (micro%immerdp(1,1,1),microm%immerdp(1,1,1) & + ,ng, npts, imean, & + 'IMMERDP :3:anal:mpti:mpt1') + if (allocated(micro%immerrp)) & + CALL vtables2 (micro%immerrp(1,1,1),microm%immerrp(1,1,1) & + ,ng, npts, imean, & + 'IMMERRP :3:anal:mpti:mpt1') + if (allocated(micro%ifnnucp)) & + CALL vtables2 (micro%ifnnucp(1,1,1),microm%ifnnucp(1,1,1) & + ,ng, npts, imean, & + 'IFNNUCP :3:anal:mpti:mpt1') + +!Total aerosol mass-in-hydrometeors tracking variables + if (allocated(micro%cnmcp)) & + CALL vtables2 (micro%cnmcp(1,1,1),microm%cnmcp(1,1,1) & + ,ng, npts, imean, & + 'CNMCP :3:anal:mpti:mpt1') + if (allocated(micro%cnmdp)) & + CALL vtables2 (micro%cnmdp(1,1,1),microm%cnmdp(1,1,1) & + ,ng, npts, imean, & + 'CNMDP :3:anal:mpti:mpt1') + if (allocated(micro%cnmrp)) & + CALL vtables2 (micro%cnmrp(1,1,1),microm%cnmrp(1,1,1) & + ,ng, npts, imean, & + 'CNMRP :3:anal:mpti:mpt1') + if (allocated(micro%cnmpp)) & + CALL vtables2 (micro%cnmpp(1,1,1),microm%cnmpp(1,1,1) & + ,ng, npts, imean, & + 'CNMPP :3:anal:mpti:mpt1') + if (allocated(micro%cnmsp)) & + CALL vtables2 (micro%cnmsp(1,1,1),microm%cnmsp(1,1,1) & + ,ng, npts, imean, & + 'CNMSP :3:anal:mpti:mpt1') + if (allocated(micro%cnmap)) & + CALL vtables2 (micro%cnmap(1,1,1),microm%cnmap(1,1,1) & + ,ng, npts, imean, & + 'CNMAP :3:anal:mpti:mpt1') + if (allocated(micro%cnmgp)) & + CALL vtables2 (micro%cnmgp(1,1,1),microm%cnmgp(1,1,1) & + ,ng, npts, imean, & + 'CNMGP :3:anal:mpti:mpt1') + if (allocated(micro%cnmhp)) & + CALL vtables2 (micro%cnmhp(1,1,1),microm%cnmhp(1,1,1) & + ,ng, npts, imean, & + 'CNMHP :3:anal:mpti:mpt1') + +!Dust aerosol mass-in-hydrometeors tracking variables + if (allocated(micro%dnmcp)) & + CALL vtables2 (micro%dnmcp(1,1,1),microm%dnmcp(1,1,1) & + ,ng, npts, imean, & + 'DNMCP :3:anal:mpti:mpt1') + if (allocated(micro%dnmdp)) & + CALL vtables2 (micro%dnmdp(1,1,1),microm%dnmdp(1,1,1) & + ,ng, npts, imean, & + 'DNMDP :3:anal:mpti:mpt1') + if (allocated(micro%dnmrp)) & + CALL vtables2 (micro%dnmrp(1,1,1),microm%dnmrp(1,1,1) & + ,ng, npts, imean, & + 'DNMRP :3:anal:mpti:mpt1') + if (allocated(micro%dnmpp)) & + CALL vtables2 (micro%dnmpp(1,1,1),microm%dnmpp(1,1,1) & + ,ng, npts, imean, & + 'DNMPP :3:anal:mpti:mpt1') + if (allocated(micro%dnmsp)) & + CALL vtables2 (micro%dnmsp(1,1,1),microm%dnmsp(1,1,1) & + ,ng, npts, imean, & + 'DNMSP :3:anal:mpti:mpt1') + if (allocated(micro%dnmap)) & + CALL vtables2 (micro%dnmap(1,1,1),microm%dnmap(1,1,1) & + ,ng, npts, imean, & + 'DNMAP :3:anal:mpti:mpt1') + if (allocated(micro%dnmgp)) & + CALL vtables2 (micro%dnmgp(1,1,1),microm%dnmgp(1,1,1) & + ,ng, npts, imean, & + 'DNMGP :3:anal:mpti:mpt1') + if (allocated(micro%dnmhp)) & + CALL vtables2 (micro%dnmhp(1,1,1),microm%dnmhp(1,1,1) & + ,ng, npts, imean, & + 'DNMHP :3:anal:mpti:mpt1') + +!Dust as Ice nuclei mass-in-hydrometeors tracking variables + if (allocated(micro%dincp)) & + CALL vtables2 (micro%dincp(1,1,1),microm%dincp(1,1,1) & + ,ng, npts, imean, & + 'DINCP :3:anal:mpti:mpt1') + if (allocated(micro%dindp)) & + CALL vtables2 (micro%dindp(1,1,1),microm%dindp(1,1,1) & + ,ng, npts, imean, & + 'DINDP :3:anal:mpti:mpt1') + if (allocated(micro%dinrp)) & + CALL vtables2 (micro%dinrp(1,1,1),microm%dinrp(1,1,1) & + ,ng, npts, imean, & + 'DINRP :3:anal:mpti:mpt1') + if (allocated(micro%dinpp)) & + CALL vtables2 (micro%dinpp(1,1,1),microm%dinpp(1,1,1) & + ,ng, npts, imean, & + 'DINPP :3:anal:mpti:mpt1') + if (allocated(micro%dinsp)) & + CALL vtables2 (micro%dinsp(1,1,1),microm%dinsp(1,1,1) & + ,ng, npts, imean, & + 'DINSP :3:anal:mpti:mpt1') + if (allocated(micro%dinap)) & + CALL vtables2 (micro%dinap(1,1,1),microm%dinap(1,1,1) & + ,ng, npts, imean, & + 'DINAP :3:anal:mpti:mpt1') + if (allocated(micro%dingp)) & + CALL vtables2 (micro%dingp(1,1,1),microm%dingp(1,1,1) & + ,ng, npts, imean, & + 'DINGP :3:anal:mpti:mpt1') + if (allocated(micro%dinhp)) & + CALL vtables2 (micro%dinhp(1,1,1),microm%dinhp(1,1,1) & + ,ng, npts, imean, & + 'DINHP :3:anal:mpti:mpt1') + +!Total aerosol soluble mass-in-hydrometeors for aerosol tracking + if (allocated(micro%snmcp)) & + CALL vtables2 (micro%snmcp(1,1,1),microm%snmcp(1,1,1) & + ,ng, npts, imean, & + 'SNMCP :3:anal:mpti:mpt1') + if (allocated(micro%snmdp)) & + CALL vtables2 (micro%snmdp(1,1,1),microm%snmdp(1,1,1) & + ,ng, npts, imean, & + 'SNMDP :3:anal:mpti:mpt1') + if (allocated(micro%snmrp)) & + CALL vtables2 (micro%snmrp(1,1,1),microm%snmrp(1,1,1) & + ,ng, npts, imean, & + 'SNMRP :3:anal:mpti:mpt1') + if (allocated(micro%snmpp)) & + CALL vtables2 (micro%snmpp(1,1,1),microm%snmpp(1,1,1) & + ,ng, npts, imean, & + 'SNMPP :3:anal:mpti:mpt1') + if (allocated(micro%snmsp)) & + CALL vtables2 (micro%snmsp(1,1,1),microm%snmsp(1,1,1) & + ,ng, npts, imean, & + 'SNMSP :3:anal:mpti:mpt1') + if (allocated(micro%snmap)) & + CALL vtables2 (micro%snmap(1,1,1),microm%snmap(1,1,1) & + ,ng, npts, imean, & + 'SNMAP :3:anal:mpti:mpt1') + if (allocated(micro%snmgp)) & + CALL vtables2 (micro%snmgp(1,1,1),microm%snmgp(1,1,1) & + ,ng, npts, imean, & + 'SNMGP :3:anal:mpti:mpt1') + if (allocated(micro%snmhp)) & + CALL vtables2 (micro%snmhp(1,1,1),microm%snmhp(1,1,1) & + ,ng, npts, imean, & + 'SNMHP :3:anal:mpti:mpt1') + if (allocated(micro%resol_aero1_mp)) & + CALL vtables2 (micro%resol_aero1_mp(1,1,1),microm%resol_aero1_mp(1,1,1) & + ,ng, npts, imean, & + 'RESOL_AERO1_MP :3:anal:mpti:mpt1') + if (allocated(micro%resol_aero2_mp)) & + CALL vtables2 (micro%resol_aero2_mp(1,1,1),microm%resol_aero2_mp(1,1,1) & + ,ng, npts, imean, & + 'RESOL_AERO2_MP :3:anal:mpti:mpt1') + +!Vertical precipitation rates + if (allocated(micro%pcpvr)) & + CALL vtables2 (micro%pcpvr(1,1,1),microm%pcpvr(1,1,1) & + ,ng, npts, imean, & + 'PCPVR :3:anal:mpti') + if (allocated(micro%pcpvp)) & + CALL vtables2 (micro%pcpvp(1,1,1),microm%pcpvp(1,1,1) & + ,ng, npts, imean, & + 'PCPVP :3:anal:mpti') + if (allocated(micro%pcpvs)) & + CALL vtables2 (micro%pcpvs(1,1,1),microm%pcpvs(1,1,1) & + ,ng, npts, imean, & + 'PCPVS :3:anal:mpti') + if (allocated(micro%pcpva)) & + CALL vtables2 (micro%pcpva(1,1,1),microm%pcpva(1,1,1) & + ,ng, npts, imean, & + 'PCPVA :3:anal:mpti') + if (allocated(micro%pcpvg)) & + CALL vtables2 (micro%pcpvg(1,1,1),microm%pcpvg(1,1,1) & + ,ng, npts, imean, & + 'PCPVG :3:anal:mpti') + if (allocated(micro%pcpvh)) & + CALL vtables2 (micro%pcpvh(1,1,1),microm%pcpvh(1,1,1) & + ,ng, npts, imean, & + 'PCPVH :3:anal:mpti') + if (allocated(micro%pcpvd)) & + CALL vtables2 (micro%pcpvd(1,1,1),microm%pcpvd(1,1,1) & + ,ng, npts, imean, & + 'PCPVD :3:anal:mpti') + + !COMPUTE AND OUTPUT MICRO BUDGET PROCESSES + if (allocated(micro%latheatvap)) & + CALL vtables2 (micro%latheatvap(1,1,1),microm%latheatvap(1,1,1) & + ,ng, npts, imean, & + 'LATHEATVAP :3:anal') + if (allocated(micro%latheatfrz)) & + CALL vtables2 (micro%latheatfrz(1,1,1),microm%latheatfrz(1,1,1) & + ,ng, npts, imean, & + 'LATHEATFRZ :3:anal') + if (allocated(micro%nuccldrt)) & + CALL vtables2 (micro%nuccldrt(1,1,1),microm%nuccldrt(1,1,1) & + ,ng, npts, imean, & + 'NUCCLDRT :3:anal:mpti') + if (allocated(micro%cld2raint)) & + CALL vtables2 (micro%cld2raint(1,1,1),microm%cld2raint(1,1,1) & + ,ng, npts, imean, & + 'CLD2RAINT :3:anal:mpti') + if (allocated(micro%ice2raint)) & + CALL vtables2 (micro%ice2raint(1,1,1),microm%ice2raint(1,1,1) & + ,ng, npts, imean, & + 'ICE2RAINT :3:anal:mpti') + if (allocated(micro%nucicert)) & + CALL vtables2 (micro%nucicert(1,1,1),microm%nucicert(1,1,1) & + ,ng, npts, imean, & + 'NUCICERT :3:anal:mpti') + if (allocated(micro%vapliqt)) & + CALL vtables2 (micro%vapliqt(1,1,1),microm%vapliqt(1,1,1) & + ,ng, npts, imean, & + 'VAPLIQT :3:anal:mpti') + if (allocated(micro%vapicet)) & + CALL vtables2 (micro%vapicet(1,1,1),microm%vapicet(1,1,1) & + ,ng, npts, imean, & + 'VAPICET :3:anal:mpti') + if (allocated(micro%melticet)) & + CALL vtables2 (micro%melticet(1,1,1),microm%melticet(1,1,1) & + ,ng, npts, imean, & + 'MELTICET :3:anal:mpti') + if (allocated(micro%rimecldt)) & + CALL vtables2 (micro%rimecldt(1,1,1),microm%rimecldt(1,1,1) & + ,ng, npts, imean, & + 'RIMECLDT :3:anal:mpti') + if (allocated(micro%rain2icet)) & + CALL vtables2 (micro%rain2icet(1,1,1),microm%rain2icet(1,1,1) & + ,ng, npts, imean, & + 'RAIN2ICET :3:anal:mpti') + if (allocated(micro%aggregatet)) & + CALL vtables2 (micro%aggregatet(1,1,1),microm%aggregatet(1,1,1) & + ,ng, npts, imean, & + 'AGGREGATET :3:anal:mpti') + if (allocated(micro%latheatvapt)) & + CALL vtables2 (micro%latheatvapt(1,1,1),microm%latheatvapt(1,1,1) & + ,ng, npts, imean, & + 'LATHEATVAPT :3:anal:mpti') + if (allocated(micro%latheatfrzt)) & + CALL vtables2 (micro%latheatfrzt(1,1,1),microm%latheatfrzt(1,1,1) & + ,ng, npts, imean, & + 'LATHEATFRZT :3:anal:mpti') + + if (allocated(micro%inuchomrt)) & + CALL vtables2 (micro%inuchomrt(1,1,1),microm%inuchomrt(1,1,1) & + ,ng, npts, imean, & + 'INUCHOMRT :3:anal:mpti') + if (allocated(micro%inuccontrt)) & + CALL vtables2 (micro%inuccontrt(1,1,1),microm%inuccontrt(1,1,1) & + ,ng, npts, imean, & + 'INUCCONTRT :3:anal:mpti') + if (allocated(micro%inucifnrt)) & + CALL vtables2 (micro%inucifnrt(1,1,1),microm%inucifnrt(1,1,1) & + ,ng, npts, imean, & + 'INUCIFNRT :3:anal:mpti') + if (allocated(micro%inuchazrt)) & + CALL vtables2 (micro%inuchazrt(1,1,1),microm%inuchazrt(1,1,1) & + ,ng, npts, imean, & + 'INUCHAZRT :3:anal:mpti') + if (allocated(micro%vapcldt)) & + CALL vtables2 (micro%vapcldt(1,1,1),microm%vapcldt(1,1,1) & + ,ng, npts, imean, & + 'VAPCLDT :3:anal:mpti') + if (allocated(micro%vapraint)) & + CALL vtables2 (micro%vapraint(1,1,1),microm%vapraint(1,1,1) & + ,ng, npts, imean, & + 'VAPRAINT :3:anal:mpti') + if (allocated(micro%vapprist)) & + CALL vtables2 (micro%vapprist(1,1,1),microm%vapprist(1,1,1) & + ,ng, npts, imean, & + 'VAPPRIST :3:anal:mpti') + if (allocated(micro%vapsnowt)) & + CALL vtables2 (micro%vapsnowt(1,1,1),microm%vapsnowt(1,1,1) & + ,ng, npts, imean, & + 'VAPSNOWT :3:anal:mpti') + if (allocated(micro%vapaggrt)) & + CALL vtables2 (micro%vapaggrt(1,1,1),microm%vapaggrt(1,1,1) & + ,ng, npts, imean, & + 'VAPAGGRT :3:anal:mpti') + if (allocated(micro%vapgraut)) & + CALL vtables2 (micro%vapgraut(1,1,1),microm%vapgraut(1,1,1) & + ,ng, npts, imean, & + 'VAPGRAUT :3:anal:mpti') + if (allocated(micro%vaphailt)) & + CALL vtables2 (micro%vaphailt(1,1,1),microm%vaphailt(1,1,1) & + ,ng, npts, imean, & + 'VAPHAILT :3:anal:mpti') + if (allocated(micro%vapdrizt)) & + CALL vtables2 (micro%vapdrizt(1,1,1),microm%vapdrizt(1,1,1) & + ,ng, npts, imean, & + 'VAPDRIZT :3:anal:mpti') + if (allocated(micro%meltprist)) & + CALL vtables2 (micro%meltprist(1,1,1),microm%meltprist(1,1,1) & + ,ng, npts, imean, & + 'MELTPRIST :3:anal:mpti') + if (allocated(micro%meltsnowt)) & + CALL vtables2 (micro%meltsnowt(1,1,1),microm%meltsnowt(1,1,1) & + ,ng, npts, imean, & + 'MELTSNOWT :3:anal:mpti') + if (allocated(micro%meltaggrt)) & + CALL vtables2 (micro%meltaggrt(1,1,1),microm%meltaggrt(1,1,1) & + ,ng, npts, imean, & + 'MELTAGGRT :3:anal:mpti') + if (allocated(micro%meltgraut)) & + CALL vtables2 (micro%meltgraut(1,1,1),microm%meltgraut(1,1,1) & + ,ng, npts, imean, & + 'MELTGRAUT :3:anal:mpti') + if (allocated(micro%melthailt)) & + CALL vtables2 (micro%melthailt(1,1,1),microm%melthailt(1,1,1) & + ,ng, npts, imean, & + 'MELTHAILT :3:anal:mpti') + if (allocated(micro%rimecldsnowt)) & + CALL vtables2 (micro%rimecldsnowt(1,1,1),microm%rimecldsnowt(1,1,1) & + ,ng, npts, imean, & + 'RIMECLDSNOWT :3:anal:mpti') + if (allocated(micro%rimecldaggrt)) & + CALL vtables2 (micro%rimecldaggrt(1,1,1),microm%rimecldaggrt(1,1,1) & + ,ng, npts, imean, & + 'RIMECLDAGGRT :3:anal:mpti') + if (allocated(micro%rimecldgraut)) & + CALL vtables2 (micro%rimecldgraut(1,1,1),microm%rimecldgraut(1,1,1) & + ,ng, npts, imean, & + 'RIMECLDGRAUT :3:anal:mpti') + if (allocated(micro%rimecldhailt)) & + CALL vtables2 (micro%rimecldhailt(1,1,1),microm%rimecldhailt(1,1,1) & + ,ng, npts, imean, & + 'RIMECLDHAILT :3:anal:mpti') + if (allocated(micro%rain2prt)) & + CALL vtables2 (micro%rain2prt(1,1,1),microm%rain2prt(1,1,1) & + ,ng, npts, imean, & + 'RAIN2PRT :3:anal:mpti') + if (allocated(micro%rain2snt)) & + CALL vtables2 (micro%rain2snt(1,1,1),microm%rain2snt(1,1,1) & + ,ng, npts, imean, & + 'RAIN2SNT :3:anal:mpti') + if (allocated(micro%rain2agt)) & + CALL vtables2 (micro%rain2agt(1,1,1),microm%rain2agt(1,1,1) & + ,ng, npts, imean, & + 'RAIN2AGT :3:anal:mpti') + if (allocated(micro%rain2grt)) & + CALL vtables2 (micro%rain2grt(1,1,1),microm%rain2grt(1,1,1) & + ,ng, npts, imean, & + 'RAIN2GRT :3:anal:mpti') + if (allocated(micro%rain2hat)) & + CALL vtables2 (micro%rain2hat(1,1,1),microm%rain2hat(1,1,1) & + ,ng, npts, imean, & + 'RAIN2HAT :3:anal:mpti') + if (allocated(micro%aggrselfprist)) & + CALL vtables2 (micro%aggrselfprist(1,1,1),microm%aggrselfprist(1,1,1) & + ,ng, npts, imean, & + 'AGGRSELFPRIST :3:anal:mpti') + if (allocated(micro%aggrselfsnowt)) & + CALL vtables2 (micro%aggrselfsnowt(1,1,1),microm%aggrselfsnowt(1,1,1) & + ,ng, npts, imean, & + 'AGGRSELFSNOWT :3:anal:mpti') + if (allocated(micro%aggrprissnowt)) & + CALL vtables2 (micro%aggrprissnowt(1,1,1),microm%aggrprissnowt(1,1,1) & + ,ng, npts, imean, & + 'AGGRPRISSNOWT :3:anal:mpti') + + if (allocated(micro%dust1cldrt)) & + CALL vtables2 (micro%dust1cldrt(1,1,1),microm%dust1cldrt(1,1,1) & + ,ng, npts, imean, & + 'DUST1CLDRT :3:anal:mpti') + if (allocated(micro%dust2cldrt)) & + CALL vtables2 (micro%dust2cldrt(1,1,1),microm%dust2cldrt(1,1,1) & + ,ng, npts, imean, & + 'DUST2CLDRT :3:anal:mpti') + if (allocated(micro%dust1drzrt)) & + CALL vtables2 (micro%dust1drzrt(1,1,1),microm%dust1drzrt(1,1,1) & + ,ng, npts, imean, & + 'DUST1DRZRT :3:anal:mpti') + if (allocated(micro%dust2drzrt)) & + CALL vtables2 (micro%dust2drzrt(1,1,1),microm%dust2drzrt(1,1,1) & + ,ng, npts, imean, & + 'DUST2DRZRT :3:anal:mpti') + + npts=n2*n3 + if (allocated(micro%accpr)) & + CALL vtables2 (micro%accpr(1,1),microm%accpr(1,1) & + ,ng, npts, imean, & + 'ACCPR :2:anal:mpti') + if (allocated(micro%accpp)) & + CALL vtables2 (micro%accpp(1,1),microm%accpp(1,1) & + ,ng, npts, imean, & + 'ACCPP :2:anal:mpti') + if (allocated(micro%accps)) & + CALL vtables2 (micro%accps(1,1),microm%accps(1,1) & + ,ng, npts, imean, & + 'ACCPS :2:anal:mpti') + if (allocated(micro%accpa)) & + CALL vtables2 (micro%accpa(1,1),microm%accpa(1,1) & + ,ng, npts, imean, & + 'ACCPA :2:anal:mpti') + if (allocated(micro%accpg)) & + CALL vtables2 (micro%accpg(1,1),microm%accpg(1,1) & + ,ng, npts, imean, & + 'ACCPG :2:anal:mpti') + if (allocated(micro%accph)) & + CALL vtables2 (micro%accph(1,1),microm%accph(1,1) & + ,ng, npts, imean, & + 'ACCPH :2:anal:mpti') + if (allocated(micro%accpd)) & + CALL vtables2 (micro%accpd(1,1),microm%accpd(1,1) & + ,ng, npts, imean, & + 'ACCPD :2:anal:mpti') + if (allocated(micro%pcprr)) & + CALL vtables2 (micro%pcprr(1,1),microm%pcprr(1,1) & + ,ng, npts, imean, & + 'PCPRR :2:anal') + if (allocated(micro%pcprp)) & + CALL vtables2 (micro%pcprp(1,1),microm%pcprp(1,1) & + ,ng, npts, imean, & + 'PCPRP :2:anal') + if (allocated(micro%pcprs)) & + CALL vtables2 (micro%pcprs(1,1),microm%pcprs(1,1) & + ,ng, npts, imean, & + 'PCPRS :2:anal') + if (allocated(micro%pcpra)) & + CALL vtables2 (micro%pcpra(1,1),microm%pcpra(1,1) & + ,ng, npts, imean, & + 'PCPRA :2:anal') + if (allocated(micro%pcprg)) & + CALL vtables2 (micro%pcprg(1,1),microm%pcprg(1,1) & + ,ng, npts, imean, & + 'PCPRG :2:anal') + if (allocated(micro%pcprh)) & + CALL vtables2 (micro%pcprh(1,1),microm%pcprh(1,1) & + ,ng, npts, imean, & + 'PCPRH :2:anal') + if (allocated(micro%pcprd)) & + CALL vtables2 (micro%pcprd(1,1),microm%pcprd(1,1) & + ,ng, npts, imean, & + 'PCPRD :2:anal') + if (allocated(micro%pcpg)) & + CALL vtables2 (micro%pcpg(1,1),microm%pcpg(1,1) & + ,ng, npts, imean, & + 'PCPG :2:anal:mpti') + if (allocated(micro%qpcpg)) & + CALL vtables2 (micro%qpcpg(1,1),microm%qpcpg(1,1) & + ,ng, npts, imean, & + 'QPCPG :2:anal:mpti') + if (allocated(micro%dpcpg)) & + CALL vtables2 (micro%dpcpg(1,1),microm%dpcpg(1,1) & + ,ng, npts, imean, & + 'DPCPG :2:anal:mpti') + +!Total aerosol mass precipitation to the surface + if (allocated(micro%accpaero)) & + CALL vtables2 (micro%accpaero(1,1),microm%accpaero(1,1) & + ,ng, npts, imean, & + 'ACCPAERO :2:anal:mpti') + if (allocated(micro%pcpraero)) & + CALL vtables2 (micro%pcpraero(1,1),microm%pcpraero(1,1) & + ,ng, npts, imean, & + 'PCPRAERO :2:anal') + +!Dust mass precipitation to the surface + if (allocated(micro%accpdust)) & + CALL vtables2 (micro%accpdust(1,1),microm%accpdust(1,1) & + ,ng, npts, imean, & + 'ACCPDUST :2:anal:mpti') + if (allocated(micro%pcprdust)) & + CALL vtables2 (micro%pcprdust(1,1),microm%pcprdust(1,1) & + ,ng, npts, imean, & + 'PCPRDUST :2:anal') + +!Dust erodible fraction + if (allocated(micro%dustfrac)) & + CALL vtables2 (micro%dustfrac(1,1),microm%dustfrac(1,1) & + ,ng, npts, imean, & + 'DUSTFRAC :2:anal:mpti') + +!Bin microphysics variables + npts=n2*n3 + if (allocated(micro%accpic)) & + CALL vtables2 (micro%accpic(1,1),microm%accpic(1,1) & + ,ng, npts, imean, & + 'ACCPIC :2:anal:mpti') + if (allocated(micro%accpip)) & + CALL vtables2 (micro%accpip(1,1),microm%accpip(1,1) & + ,ng, npts, imean, & + 'ACCPIP :2:anal:mpti') + if (allocated(micro%accpid)) & + CALL vtables2 (micro%accpid(1,1),microm%accpid(1,1) & + ,ng, npts, imean, & + 'ACCPID :2:anal:mpti') + if (allocated(micro%pcprip)) & + CALL vtables2 (micro%pcprip(1,1),microm%pcprip(1,1) & + ,ng, npts, imean, & + 'PCPRIP :2:anal') + if (allocated(micro%pcprip)) & + CALL vtables2 (micro%pcpric(1,1),microm%pcpric(1,1) & + ,ng, npts, imean, & + 'PCPRIC :2:anal') + if (allocated(micro%pcprid)) & + CALL vtables2 (micro%pcprid(1,1),microm%pcprid(1,1) & + ,ng, npts, imean, & + 'PCPRID :2:anal') + + npts = n1*n2*n3 + if (allocated(micro%pcpvip)) & + CALL vtables2 (micro%pcpvip(1,1,1),microm%pcpvip(1,1,1) & + ,ng, npts, imean, & + 'PCPVIP :3:anal:mpti') + if (allocated(micro%pcpvic)) & + CALL vtables2 (micro%pcpvic(1,1,1),microm%pcpvic(1,1,1) & + ,ng, npts, imean, & + 'PCPVIC :3:anal:mpti') + if (allocated(micro%pcpvid)) & + CALL vtables2 (micro%pcpvid(1,1,1),microm%pcpvid(1,1,1) & + ,ng, npts, imean, & + 'PCPVID :3:anal:mpti') + if (allocated(micro%nuccldct)) & + CALL vtables2 (micro%nuccldct(1,1,1),microm%nuccldct(1,1,1) & + ,ng, npts, imean, & + 'NUCCLDCT :3:anal:mpti') + if (allocated(micro%nucicect)) & + CALL vtables2 (micro%nucicect(1,1,1),microm%nucicect(1,1,1) & + ,ng, npts, imean, & + 'NUCICECT :3:anal:mpti') + if (allocated(micro%inuchomct)) & + CALL vtables2 (micro%inuchomct(1,1,1),microm%inuchomct(1,1,1) & + ,ng, npts, imean, & + 'INUCHOMCT :3:anal:mpti') + if (allocated(micro%inucifnct)) & + CALL vtables2 (micro%inucifnct(1,1,1),microm%inucifnct(1,1,1) & + ,ng, npts, imean, & + 'INUCIFNCT :3:anal:mpti') + + npts=n1*n2*n3*nkr + if (allocated(micro%fncn)) & + CALL vtables2 (micro%fncn(1,1,1,1),microm%fncn(1,1,1,1) & + ,ng, npts, imean, & + 'FNCN :7:anal:mpti:mpt1') + if (allocated(micro%ffcd)) & + CALL vtables2 (micro%ffcd(1,1,1,1),microm%ffcd(1,1,1,1) & + ,ng, npts, imean, & + 'FFCD :7:anal:mpti:mpt1') + if (allocated(micro%ffic)) & + CALL vtables2 (micro%ffic(1,1,1,1),microm%ffic(1,1,1,1) & + ,ng, npts, imean, & + 'FFIC :7:anal:mpti:mpt1') + if (allocated(micro%ffip)) & + CALL vtables2 (micro%ffip(1,1,1,1),microm%ffip(1,1,1,1) & + ,ng, npts, imean, & + 'FFIP :7:anal:mpti:mpt1') + if (allocated(micro%ffid)) & + CALL vtables2 (micro%ffid(1,1,1,1),microm%ffid(1,1,1,1) & + ,ng, npts, imean, & + 'FFID :7:anal:mpti:mpt1') + if (allocated(micro%ffsn)) & + CALL vtables2 (micro%ffsn(1,1,1,1),microm%ffsn(1,1,1,1) & + ,ng, npts, imean, & + 'FFSN :7:anal:mpti:mpt1') + if (allocated(micro%ffgl)) & + CALL vtables2 (micro%ffgl(1,1,1,1),microm%ffgl(1,1,1,1) & + ,ng, npts, imean, & + 'FFGL :7:anal:mpti:mpt1') + if (allocated(micro%ffhl)) & + CALL vtables2 (micro%ffhl(1,1,1,1),microm%ffhl(1,1,1,1) & + ,ng, npts, imean, & + 'FFHL :7:anal:mpti:mpt1') + if (allocated(micro%ffin)) & + CALL vtables2 (micro%ffin(1,1,1,1),microm%ffin(1,1,1,1) & + ,ng, npts, imean, & + 'FFIN :7:anal:mpti:mpt1') + npts=n1*n2*n3 + if (allocated(micro%t_old)) & + CALL vtables2 (micro%t_old(1,1,1),microm%t_old(1,1,1) & + ,ng, npts, imean, & + 'T_OLD :3:anal:mpti') + if (allocated(micro%rv_old)) & + CALL vtables2 (micro%rv_old(1,1,1),microm%rv_old(1,1,1) & + ,ng, npts, imean, & + 'RV_OLD :3:anal:mpti') +return +END SUBROUTINE filltab_micro + +END MODULE mem_micro diff --git a/src/6.2.16/memory/mem_mksfc.f90 b/src/6.2.16/memory/mem_mksfc.f90 new file mode 100644 index 0000000..daa4c22 --- /dev/null +++ b/src/6.2.16/memory/mem_mksfc.f90 @@ -0,0 +1,103 @@ +!############################################################################## +Module mem_mksfc + +use grid_dims + +implicit none + + Type sfcfile_vars + +!(nxp,nyp,nzg,npatch) + real, allocatable, dimension(:,:,:,:) :: soil_text + +!(nxp,nyp,npatch) + real, allocatable, dimension(:,:,:) :: patch_area,leaf_class,veg_ndvif + +!(nxp,nyp) + real, allocatable, dimension(:,:) :: topt,seatf,topzo + + End Type + + + + type (sfcfile_vars), allocatable :: sfcfile_p(:) + +!(nxpmax,nypmax) + real, allocatable, dimension(:,:) :: scr1,scr2,vt2da,vt2db + +!(np,np,nxp,nyp) + real, allocatable, dimension(:,:,:,:) :: glatp,glonp,datp + +!(np,np,nxp,nyp) + integer, allocatable, dimension(:,:,:,:) :: datq_patch + +!(np*np*nxp*nyp) + integer, allocatable, dimension(:) :: ptable + +!(iblksizo,iblksizo) + real, allocatable, dimension(:,:) :: dato + +!(iblksizo,iblksizo) + character(len=1), allocatable, dimension(:,:) :: cdato + integer, allocatable, dimension(:,:) :: idato + +!(ifile_max,jfile_max) + integer, allocatable, dimension(:,:) :: nump,numpind,numpind1,numpind2 + + integer :: npq + + ! SST file creation variables + integer, dimension(maxsstdata,maxgrds) :: iyearvs,imonthvs,idatevs,ihourvs + integer,dimension(maxgrds) :: nvsstf + character(len=strl1), dimension(maxsstdata,maxgrds) :: vsstfil + + ! NDVI file creation variables + integer, dimension(maxndvidata,maxgrds) :: iyearvn,imonthvn,idatevn,ihourvn + integer,dimension(maxgrds) :: nvndvif + character(len=strl1), dimension(maxndvidata,maxgrds) :: vndvifil + +Contains + +!############################################################################## +Subroutine alloc_sfcfile (sfcfile,nx,ny,nzg,npat) + +implicit none + + type (sfcfile_vars) :: sfcfile + integer, intent(in) :: nx,ny,nzg,npat + + !print*,'alloc_sfc:',nx,ny,nzg,npat + allocate (sfcfile%soil_text (nzg,nx,ny,npat)) + + allocate (sfcfile%patch_area (nx,ny,npat)) + allocate (sfcfile%leaf_class (nx,ny,npat)) + allocate (sfcfile%veg_ndvif (nx,ny,npat)) + + allocate (sfcfile%topt (nx,ny)) + allocate (sfcfile%seatf (nx,ny)) + allocate (sfcfile%topzo (nx,ny)) + +return +END SUBROUTINE alloc_sfcfile + +!############################################################################## +Subroutine dealloc_sfcfile (sfcfile) + +implicit none + + type (sfcfile_vars) :: sfcfile + + deallocate (sfcfile%soil_text) + + deallocate (sfcfile%patch_area) + deallocate (sfcfile%leaf_class) + deallocate (sfcfile%veg_ndvif) + + deallocate (sfcfile%topt) + deallocate (sfcfile%seatf) + deallocate (sfcfile%topzo) + +return +END SUBROUTINE dealloc_sfcfile + +END MODULE mem_mksfc diff --git a/src/6.2.16/memory/mem_nestb.f90 b/src/6.2.16/memory/mem_nestb.f90 new file mode 100644 index 0000000..8b75f82 --- /dev/null +++ b/src/6.2.16/memory/mem_nestb.f90 @@ -0,0 +1,57 @@ +!############################################################################## +Module mem_nestb + +use grid_dims + +implicit none + +type nest_bounds + + real, allocatable, dimension(:,:,:) :: bux,buy,buz,bvx,bvy,bvz & + ,bwx,bwy,bwz,bpx,bpy,bpz + real, allocatable, dimension(:,:,:,:) :: bsx,bsy,bsz + +end type + + +type (nest_bounds) :: nbounds(maxgrds) + + +Contains + +!############################################################################## +Subroutine alloc_nestb (ng,nx,ny,nz) + +use var_tables + +implicit none + +integer :: ng,nx,ny,nz + +! Allocate "b" array components. All grids will be allocated, +! only to 1's if nesting isn't done. + +allocate( nbounds(ng)%bux(nz,ny,2) ) +allocate( nbounds(ng)%buy(nz,nx,2) ) +allocate( nbounds(ng)%buz(nx,ny,2) ) + +allocate( nbounds(ng)%bvx(nz,ny,2) ) +allocate( nbounds(ng)%bvy(nz,nx,2) ) +allocate( nbounds(ng)%bvz(nx,ny,2) ) + +allocate( nbounds(ng)%bwx(nz,ny,2) ) +allocate( nbounds(ng)%bwy(nz,nx,2) ) +allocate( nbounds(ng)%bwz(nx,ny,2) ) + +allocate( nbounds(ng)%bpx(nz,ny,2) ) +allocate( nbounds(ng)%bpy(nz,nx,2) ) +allocate( nbounds(ng)%bpz(nx,ny,2) ) + +allocate( nbounds(ng)%bsx(nz,ny,2,num_scalar(ng)) ) +allocate( nbounds(ng)%bsy(nz,nx,2,num_scalar(ng)) ) +allocate( nbounds(ng)%bsz(nx,ny,2,num_scalar(ng)) ) + +return +END SUBROUTINE alloc_nestb + +END MODULE mem_nestb diff --git a/src/6.2.16/memory/mem_oda.f90 b/src/6.2.16/memory/mem_oda.f90 new file mode 100644 index 0000000..ce7f9be --- /dev/null +++ b/src/6.2.16/memory/mem_oda.f90 @@ -0,0 +1,193 @@ +!############################################################################## +Module mem_oda + +use grid_dims + +implicit none + + Type oda_vars + + ! Variables to be dimensioned by (nzp,nxp,nyp) + real, allocatable, dimension(:,:,:) :: & + uk,vk,tk,rk,ukv,vkv,tkv,rkv + + End Type + + type (oda_vars), allocatable :: oda_g(:), odam_g(:) + +character(len=strl1), dimension(maxodafiles) :: fnames_upa, fnames_sfc +character(len=14), dimension(maxodafiles) :: itotdate_upa,itotdate_sfc +character(len=16), dimension(maxodasta) :: staid_sfc, staid_upa +integer, dimension(maxodasta) :: ntimes_sfc, ntimes_upa +integer :: maxtimes_sfc, maxtimes_upa + +! Namelist inputs + +character(len=strl1) :: oda_upapref,oda_sfcpref +integer :: if_oda +real :: frqoda,todabeg,todaend,tnudoda,wt_oda_grid(maxodagrids) & + ,oda_sfc_til,oda_sfc_tel,oda_upa_til,oda_upa_tel & + ,wt_oda_uv,wt_oda_th,wt_oda_pi,wt_oda_rt +real, dimension(maxodagrids) :: roda_sfce, roda_sfc0 & + , roda_upae, roda_upa0 & + , roda_zfac, roda_hgt + + +integer :: nupafiles,nsfcfiles,num_oda_sfc,num_oda_upa + +! Surface data + +type oda_sfc_info_type + character(len=16) :: id + integer :: intid + integer :: ntimes + integer, dimension(maxodagrids) :: iactive + real, dimension(maxodagrids) :: xista, xjsta + real :: xlat,xlon,xsta,ysta,stopo +end type + + +type oda_sfc_type + real, allocatable, dimension(:) :: temp, dewpt, us, vs, ps,u,v + real, allocatable, dimension(:) :: time + real :: psref +end type + +type(oda_sfc_info_type), allocatable :: oda_sfc_info(:) +type(oda_sfc_type) , allocatable :: oda_sfc_obs(:) + + +! Upper air info + +type oda_upa_info_type + character(len=16) :: id + integer :: intid + integer :: ntimes + integer, dimension(maxodagrids) :: iactive + real, dimension(maxodagrids) :: xista, xjsta + real :: xlat,xlon,xsta,ysta,stopo +end type + + ! Upper air data +type oda_upa_type + character(len=14) :: ctotdate + real, allocatable, dimension(:,:) :: theta, rv, us, vs, u, v, zz, pi, zgeo + real, allocatable, dimension(:) :: time + integer, allocatable, dimension(:) :: lp,lz +end type + +type(oda_upa_info_type), allocatable :: oda_upa_info(:) +type(oda_upa_type) , allocatable :: oda_upa_obs(:) + +! Krigging routine info + +real :: rmaxkrg(maxodanzp,maxodagrids) & + ,ckrg(3,maxodagrids),akrg(maxodanzp,maxodagrids) & + ,caxkrg(9,maxodagrids),caykrg(9,maxodagrids),cazkrg(9,maxodagrids) +integer :: nstkrg(maxodagrids) + + +! Filled obs arrays for an analysis time + +integer, dimension(maxkobs) :: idobs +real, dimension(maxkobs) :: ukobs,vkobs,tkobs,rkobs,pkobs & + ,xkobs,ykobs,zkobs,ekobs & + ,ikobs,jkobs + +contains + +!############################################################################## +Subroutine alloc_oda (oda,n1,n2,n3) + +implicit none + + type (oda_vars) :: oda + integer, intent(in) :: n1,n2,n3 + +! Allocate arrays based on options (if necessary) + + if( if_oda == 1 ) then + allocate (oda%uk(n1,n2,n3)) + allocate (oda%vk(n1,n2,n3)) + allocate (oda%tk(n1,n2,n3)) + allocate (oda%rk(n1,n2,n3)) + allocate (oda%ukv(n1,n2,n3)) + allocate (oda%vkv(n1,n2,n3)) + allocate (oda%tkv(n1,n2,n3)) + allocate (oda%rkv(n1,n2,n3)) + endif + +return +END SUBROUTINE alloc_oda + +!############################################################################## +Subroutine dealloc_oda (oda) + +implicit none + + type (oda_vars) :: oda + + if (allocated(oda%uk)) deallocate (oda%uk) + if (allocated(oda%vk)) deallocate (oda%vk) + if (allocated(oda%tk)) deallocate (oda%tk) + if (allocated(oda%rk)) deallocate (oda%rk) + if (allocated(oda%ukv)) deallocate (oda%ukv) + if (allocated(oda%vkv)) deallocate (oda%vkv) + if (allocated(oda%tkv)) deallocate (oda%tkv) + if (allocated(oda%rkv)) deallocate (oda%rkv) + +return +END SUBROUTINE dealloc_oda + +!############################################################################## +Subroutine filltab_oda (oda,odam,imean,n1,n2,n3,ng) + +use var_tables + +implicit none + + type (oda_vars) :: oda,odam + integer, intent(in) :: imean,n1,n2,n3,ng + integer :: npts + +! Fill arrays into variable tables + + npts=n1*n2*n3 + + if (allocated(oda%uk)) & + CALL vtables2 (oda%uk(1,1,1),odam%uk(1,1,1) & + ,ng, npts, imean, & + 'UKODA :3:') + if (allocated(oda%vk)) & + CALL vtables2 (oda%vk(1,1,1),odam%vk(1,1,1) & + ,ng, npts, imean, & + 'VKODA :3:') + if (allocated(oda%tk)) & + CALL vtables2 (oda%tk(1,1,1),odam%tk(1,1,1) & + ,ng, npts, imean, & + 'TKODA :3:') + if (allocated(oda%rk)) & + CALL vtables2 (oda%rk(1,1,1),odam%rk(1,1,1) & + ,ng, npts, imean, & + 'RKODA :3:') + if (allocated(oda%ukv)) & + CALL vtables2 (oda%ukv(1,1,1),odam%ukv(1,1,1) & + ,ng, npts, imean, & + 'UVODA :3:') + if (allocated(oda%vkv)) & + CALL vtables2 (oda%vkv(1,1,1),odam%vkv(1,1,1) & + ,ng, npts, imean, & + 'VVODA :3:') + if (allocated(oda%tkv)) & + CALL vtables2 (oda%tkv(1,1,1),odam%tkv(1,1,1) & + ,ng, npts, imean, & + 'TVODA :3:') + if (allocated(oda%rkv)) & + CALL vtables2 (oda%rkv(1,1,1),odam%rkv(1,1,1) & + ,ng, npts, imean, & + 'RVODA :3:') + +return +END SUBROUTINE filltab_oda + +END MODULE mem_oda diff --git a/src/6.2.16/memory/mem_radiate.f90 b/src/6.2.16/memory/mem_radiate.f90 new file mode 100644 index 0000000..91a31b7 --- /dev/null +++ b/src/6.2.16/memory/mem_radiate.f90 @@ -0,0 +1,154 @@ +!############################################################################## +Module mem_radiate + +implicit none + + Type radiate_vars + + ! Variables to be dimensioned by (nzp,nxp,nyp) + real, allocatable, dimension(:,:,:) :: & + fthrd,fthrdp,bext,swup,swdn,lwup,lwdn + + ! Variables to be dimensioned by (nxp,nyp) + real, allocatable, dimension(:,:) :: & + rshort,rlong,rlongup,albedt,cosz,aodt + + End Type + + type (radiate_vars), allocatable :: radiate_g(:), radiatem_g(:) + + integer :: lonrad,ilwrtyp,iswrtyp,irce + real :: radfrq,rce_ubmn,rce_bubl,rce_solc,rce_szen + +Contains + +!############################################################################## +Subroutine alloc_radiate (radiate,n1,n2,n3) + +implicit none + + type (radiate_vars) :: radiate + integer, intent(in) :: n1,n2,n3 + +! Allocate arrays based on options (if necessary) + + if(ilwrtyp+iswrtyp > 0) then + allocate (radiate%fthrd(n1,n2,n3)) + allocate (radiate%fthrdp(n1,n2,n3)) + allocate (radiate%rshort(n2,n3)) + allocate (radiate%rlong(n2,n3)) + allocate (radiate%rlongup(n2,n3)) + allocate (radiate%albedt(n2,n3)) + allocate (radiate%cosz(n2,n3)) + allocate (radiate%aodt(n2,n3)) + endif + if(ilwrtyp == 3 .or. iswrtyp == 3) then + allocate (radiate%bext(n1,n2,n3)) + endif + if(ilwrtyp == 3) then + allocate (radiate%lwup(n1,n2,n3)) + allocate (radiate%lwdn(n1,n2,n3)) + endif + if(iswrtyp == 3) then + allocate (radiate%swup(n1,n2,n3)) + allocate (radiate%swdn(n1,n2,n3)) + endif + +return +END SUBROUTINE alloc_radiate + +!############################################################################## +Subroutine dealloc_radiate (radiate) + +implicit none + + type (radiate_vars) :: radiate + + if (allocated(radiate%fthrd)) deallocate (radiate%fthrd) + if (allocated(radiate%fthrdp)) deallocate (radiate%fthrdp) + if (allocated(radiate%rshort)) deallocate (radiate%rshort) + if (allocated(radiate%rlong)) deallocate (radiate%rlong) + if (allocated(radiate%rlongup)) deallocate (radiate%rlongup) + if (allocated(radiate%albedt)) deallocate (radiate%albedt) + if (allocated(radiate%cosz)) deallocate (radiate%cosz) + if (allocated(radiate%aodt)) deallocate (radiate%aodt) + if (allocated(radiate%bext)) deallocate (radiate%bext) + if (allocated(radiate%swup)) deallocate (radiate%swup) + if (allocated(radiate%swdn)) deallocate (radiate%swdn) + if (allocated(radiate%lwup)) deallocate (radiate%lwup) + if (allocated(radiate%lwdn)) deallocate (radiate%lwdn) + +return +END SUBROUTINE dealloc_radiate + +!############################################################################## +Subroutine filltab_radiate (radiate,radiatem,imean,n1,n2,n3,ng) + +use var_tables + +implicit none + + type (radiate_vars) :: radiate,radiatem + integer, intent(in) :: imean,n1,n2,n3,ng + integer :: npts + +! Fill arrays into variable tables + + npts=n1*n2*n3 + + if (allocated(radiate%fthrd)) & + CALL vtables2 (radiate%fthrd(1,1,1),radiatem%fthrd(1,1,1) & + ,ng, npts, imean, & + 'FTHRD :3:anal:mpti') + if (allocated(radiate%bext)) & + CALL vtables2 (radiate%bext(1,1,1),radiatem%bext(1,1,1) & + ,ng, npts, imean, & + 'BEXT :3:anal:mpti') + if (allocated(radiate%swup)) & + CALL vtables2 (radiate%swup(1,1,1),radiatem%swup(1,1,1) & + ,ng, npts, imean, & + 'SWUP :3:anal:mpti') + if (allocated(radiate%swdn)) & + CALL vtables2 (radiate%swdn(1,1,1),radiatem%swdn(1,1,1) & + ,ng, npts, imean, & + 'SWDN :3:anal:mpti') + if (allocated(radiate%lwup)) & + CALL vtables2 (radiate%lwup(1,1,1),radiatem%lwup(1,1,1) & + ,ng, npts, imean, & + 'LWUP :3:anal:mpti') + if (allocated(radiate%lwdn)) & + CALL vtables2 (radiate%lwdn(1,1,1),radiatem%lwdn(1,1,1) & + ,ng, npts, imean, & + 'LWDN :3:anal:mpti') + + + npts=n2*n3 + if (allocated(radiate%rshort)) & + CALL vtables2 (radiate%rshort(1,1),radiatem%rshort(1,1) & + ,ng, npts, imean, & + 'RSHORT :2:anal:mpti') + if (allocated(radiate%rlong)) & + CALL vtables2 (radiate%rlong(1,1),radiatem%rlong(1,1) & + ,ng, npts, imean, & + 'RLONG :2:anal:mpti') + if (allocated(radiate%rlongup)) & + CALL vtables2 (radiate%rlongup(1,1),radiatem%rlongup(1,1) & + ,ng, npts, imean, & + 'RLONGUP :2:anal:mpti') + if (allocated(radiate%albedt)) & + CALL vtables2 (radiate%albedt(1,1),radiatem%albedt(1,1) & + ,ng, npts, imean, & + 'ALBEDT :2:anal:mpti') + if (allocated(radiate%cosz)) & + CALL vtables2 (radiate%cosz(1,1),radiatem%cosz(1,1) & + ,ng, npts, imean, & + 'COSZ :2:anal:mpti') + if (allocated(radiate%aodt)) & + CALL vtables2 (radiate%aodt(1,1),radiatem%aodt(1,1) & + ,ng, npts, imean, & + 'AODT :2:anal:mpti') + +return +END SUBROUTINE filltab_radiate + +END MODULE mem_radiate diff --git a/src/6.2.16/memory/mem_scratch.f90 b/src/6.2.16/memory/mem_scratch.f90 new file mode 100644 index 0000000..c663abe --- /dev/null +++ b/src/6.2.16/memory/mem_scratch.f90 @@ -0,0 +1,148 @@ +!############################################################################## +Module mem_scratch + +use grid_dims + +implicit none + + Type scratch_vars + + real, allocatable, dimension(:) :: & + scr1,scr2 & + ,vt3da,vt3db,vt3dc,vt3dd,vt3de,vt3df,vt3dg & + ,vt3dh,vt3di,vt3dj,vt3dk,vt3dl,vt3dm,vt3dn & + ,vt3do,vt3dp + real, allocatable, dimension(:) :: & + vt2da,vt2db,vt2dc,vt2dd,vt2de,vt2df + + End Type + + type (scratch_vars) :: scratch + + real, dimension(maxdim) :: vctr1 ,vctr2 ,vctr3 ,vctr4 ,vctr5 ,vctr6 & + ,vctr7 ,vctr8 ,vctr9 ,vctr10,vctr11,vctr12 & + ,vctr13,vctr14,vctr15,vctr16,vctr17,vctr18 & + ,vctr19,vctr20,vctr21,vctr22,vctr23,vctr24 & + ,vctr25,vctr26,vctr27,vctr28,vctr29,vctr30 & + ,vctr31,vctr32,vctr33,vctr34,vctr35,vctr36 & + ,vctr37,vctr38,vctr39,vctr40,vctr41 + +Contains + +!############################################################################## +Subroutine alloc_scratch (numz_sd,numx_sd,numy_sd,numz_fd,numx_fd,numy_fd & + ,ngrs,nzg,nzs,npatch,maxx,maxy,maxz) + +use micro_prm, only: nkr +use micphys, only: level + +implicit none + + integer, dimension (*) :: numz_sd,numx_sd,numy_sd,numz_fd,numx_fd,numy_fd + ! num[xyz]_sd - number of x,y,z points in sub domain (compute node) + ! num[xyz]_fd - number of x,y,z points in full domain + integer :: ngrs,nzg,nzs,npatch + integer :: ng,ntpts3,ntpts2,ntptsx,maxx,maxy,maxz + +!print*, 'enter alloc_scratch' + +! Find the maximum number of grid points needed for any grid. +! The max points in each direction are passed back for use by +! various nesting things. + + maxx = 0 + maxy = 0 + maxz = 0 + ntpts3=0 + ntpts2=0 + do ng=1,ngrs + maxx = max(maxx,numx_fd(ng)) + maxy = max(maxy,numy_fd(ng)) + maxz = max(maxz,numz_fd(ng)) + ntpts3=max( numx_sd(ng)*numy_sd(ng)*numz_sd(ng),ntpts3 ) + ntpts2=max( numx_sd(ng)*numy_sd(ng),ntpts2 ) + enddo + ! scr1 and scr2 needs to be the max of a passed field + if (level == 4) then + ntptsx=max(maxx*maxy*maxz,ntpts2*nzg*npatch, & + ntpts2*nzs*npatch,ntpts3*nkr)+1000 + else + ntptsx=max(maxx*maxy*maxz,ntpts2*nzg*npatch,ntpts2*nzs*npatch)+1000 + endif + +! Allocate arrays based on options (if necessary). +! -scr1 and scr2 need to be allocated to full domain (even on compute nodes) +! to max(nx)*max(ny)*max(nz) +! -do not need all these arrays if it is a master process in a parallel run, +! so just allocate some to 1 word. + + allocate (scratch%scr1 (ntptsx)) + allocate (scratch%scr2 (ntptsx)) + allocate (scratch%vt3da(ntpts3)) + allocate (scratch%vt3db(ntpts3)) + + allocate (scratch%vt3dc(ntpts3)) + allocate (scratch%vt3dd(ntpts3)) + allocate (scratch%vt3de(ntpts3)) + allocate (scratch%vt3df(ntpts3)) + allocate (scratch%vt3dg(ntpts3)) + allocate (scratch%vt3dh(ntpts3)) + allocate (scratch%vt3di(ntpts3)) + allocate (scratch%vt3dj(ntpts3)) + allocate (scratch%vt3dk(ntpts3)) + allocate (scratch%vt3dl(ntpts3)) + allocate (scratch%vt3dm(ntpts3)) + allocate (scratch%vt3dn(ntpts3)) + allocate (scratch%vt3do(ntpts3)) + if (level<4) then + allocate (scratch%vt3dp(ntpts3)) + else + allocate (scratch%vt3dp(ntpts3*nkr)) + endif + + allocate (scratch%vt2da(ntpts2)) + allocate (scratch%vt2db(ntpts2)) + allocate (scratch%vt2dc(ntpts2)) + allocate (scratch%vt2dd(ntpts2)) + allocate (scratch%vt2de(ntpts2)) + allocate (scratch%vt2df(ntpts2)) + +return +END SUBROUTINE alloc_scratch + +!############################################################################## +Subroutine dealloc_scratch () + +implicit none + +! Deallocate all scratch arrays + + if (allocated(scratch%scr1 )) deallocate (scratch%scr1 ) + if (allocated(scratch%scr2 )) deallocate (scratch%scr2 ) + if (allocated(scratch%vt3da)) deallocate (scratch%vt3da) + if (allocated(scratch%vt3db)) deallocate (scratch%vt3db) + if (allocated(scratch%vt3dc)) deallocate (scratch%vt3dc) + if (allocated(scratch%vt3dd)) deallocate (scratch%vt3dd) + if (allocated(scratch%vt3de)) deallocate (scratch%vt3de) + if (allocated(scratch%vt3df)) deallocate (scratch%vt3df) + if (allocated(scratch%vt3dg)) deallocate (scratch%vt3dg) + if (allocated(scratch%vt3dh)) deallocate (scratch%vt3dh) + if (allocated(scratch%vt3di)) deallocate (scratch%vt3di) + if (allocated(scratch%vt3dj)) deallocate (scratch%vt3dj) + if (allocated(scratch%vt3dk)) deallocate (scratch%vt3dk) + if (allocated(scratch%vt3dl)) deallocate (scratch%vt3dl) + if (allocated(scratch%vt3dm)) deallocate (scratch%vt3dm) + if (allocated(scratch%vt3dn)) deallocate (scratch%vt3dn) + if (allocated(scratch%vt3do)) deallocate (scratch%vt3do) + if (allocated(scratch%vt3dp)) deallocate (scratch%vt3dp) + if (allocated(scratch%vt2da)) deallocate (scratch%vt2da) + if (allocated(scratch%vt2db)) deallocate (scratch%vt2db) + if (allocated(scratch%vt2dc)) deallocate (scratch%vt2dc) + if (allocated(scratch%vt2dd)) deallocate (scratch%vt2dd) + if (allocated(scratch%vt2de)) deallocate (scratch%vt2de) + if (allocated(scratch%vt2df)) deallocate (scratch%vt2df) + +return +END SUBROUTINE dealloc_scratch + +END MODULE mem_scratch diff --git a/src/6.2.16/memory/mem_sib.f90 b/src/6.2.16/memory/mem_sib.f90 new file mode 100644 index 0000000..dcb5513 --- /dev/null +++ b/src/6.2.16/memory/mem_sib.f90 @@ -0,0 +1,358 @@ +!############################################################################## +Module mem_sib + +use grid_dims, only:nzpmax + +implicit none + +! Here are the arrays for using SiB-2 in RAMS + + real, dimension(nzpmax) :: co2_init ! from RAMSIN + + integer, parameter:: nstyp_sib = 12, nvtyp_sib = 13, nzg_sib = 7 + + real, dimension(nstyp_sib) :: bee_sib,phsat_sib,satco_sib & + ,poros_sib,slope_sib,wopt_sib,skew_sib,respsat_sib + + real, dimension(nvtyp_sib,2,2) :: tran_sib, ref_sib + real, dimension(nvtyp_sib,2) :: soref_sib + + real, dimension(nvtyp_sib) :: z2_sib,z1_sib,fvcover_sib,chil_sib & + ,sodep_sib,rootd_sib,phc_sib,vmax0_sib,effcon_sib & + ,gslope_sib,gsmin_sib,atheta_sib,btheta_sib,trda_sib & + ,trdm_sib,trop_sib,respcp_sib,slti_sib,shti_sib & + ,hlti_sib,hhti_sib + + real,dimension(50) :: laig_sib,fvcg_sib + + real,dimension(nvtyp_sib,50,50) :: a_zo_sib,a_zp_sib,a_rbc_sib & + ,a_rdc_sib + + real,dimension(nvtyp_sib) :: zc_sib,zlw_sib,zlen_sib,ltmax_sib & + ,stem_sib,nd98_sib,nd02_sib,srmax_sib,srmin_sib + + Type sib_vars + + ! Variables to be dimensioned by (nxp,nyp,npatch) + real, allocatable, dimension(:,:,:) :: & + !Prognostic: required for history restart + snow1,snow2,capac1,capac2,pco2ap,co2flx & + ,sfcswa,uplwrf & + !Diagnostic: not required + ,assimn,respg,rstfac1,rstfac2,rstfac3 & + ,ect,eci,egi,egs,hc,hg & + ,ra,rb,rc,rd,roff,green,apar & + ,ventmf,pco2c,pco2i,pco2s,pco2m,ea,em,rha,radvbc & + ,radvdc,radnbc,radndc,psy + + ! Variables to be dimensioned by (nzp,nyp,nxp) + real, allocatable, dimension(:,:,:) :: rco2p !mixing ratio of CO2 + + End Type + + type (sib_vars), allocatable :: sib_g(:), sibm_g(:) + +CONTAINS + +!############################################################################## +Subroutine alloc_sib (sib,nz,nx,ny,np) + +use mem_leaf, only:isfcl + +implicit none + + type (sib_vars) :: sib + integer, intent(in) :: nz,nx,ny,np + +! Allocate arrays based on options (if necessary) + if (isfcl == 2) then + !3D atmospheric + allocate (sib%rco2p (nz,nx,ny)) + + !2D + patches prognostic + allocate (sib%snow1 (nx,ny,np)) + allocate (sib%snow2 (nx,ny,np)) + allocate (sib%capac1 (nx,ny,np)) + allocate (sib%capac2 (nx,ny,np)) + allocate (sib%pco2ap (nx,ny,np)) + allocate (sib%co2flx (nx,ny,np)) + allocate (sib%sfcswa (nx,ny,np)) + allocate (sib%uplwrf (nx,ny,np)) + + !2D + patches diagnostic + allocate (sib%assimn (nx,ny,np)) + allocate (sib%respg (nx,ny,np)) + allocate (sib%rstfac1 (nx,ny,np)) + allocate (sib%rstfac2 (nx,ny,np)) + allocate (sib%rstfac3 (nx,ny,np)) + allocate (sib%ect (nx,ny,np)) + allocate (sib%eci (nx,ny,np)) + allocate (sib%egi (nx,ny,np)) + allocate (sib%egs (nx,ny,np)) + allocate (sib%hc (nx,ny,np)) + allocate (sib%hg (nx,ny,np)) + allocate (sib%ra (nx,ny,np)) + allocate (sib%rb (nx,ny,np)) + allocate (sib%rc (nx,ny,np)) + allocate (sib%rd (nx,ny,np)) + allocate (sib%roff (nx,ny,np)) + allocate (sib%green (nx,ny,np)) + allocate (sib%apar (nx,ny,np)) + allocate (sib%ventmf (nx,ny,np)) + allocate (sib%pco2c (nx,ny,np)) + allocate (sib%pco2i (nx,ny,np)) + allocate (sib%pco2s (nx,ny,np)) + allocate (sib%pco2m (nx,ny,np)) + allocate (sib%ea (nx,ny,np)) + allocate (sib%em (nx,ny,np)) + allocate (sib%rha (nx,ny,np)) + allocate (sib%radvbc (nx,ny,np)) + allocate (sib%radvdc (nx,ny,np)) + allocate (sib%radnbc (nx,ny,np)) + allocate (sib%radndc (nx,ny,np)) + allocate (sib%psy (nx,ny,np)) + endif + +return +END SUBROUTINE alloc_sib + +!############################################################################## +Subroutine dealloc_sib (sib) + +implicit none + + type (sib_vars) :: sib + !3D atmospheric + if(allocated(sib%rco2p)) deallocate (sib%rco2p) + !2D + patches prognostic + if(allocated(sib%snow1)) deallocate (sib%snow1) + if(allocated(sib%snow2)) deallocate (sib%snow2) + if(allocated(sib%capac1)) deallocate (sib%capac1) + if(allocated(sib%capac2)) deallocate (sib%capac2) + if(allocated(sib%pco2ap)) deallocate (sib%pco2ap) + if(allocated(sib%co2flx)) deallocate (sib%co2flx) + if(allocated(sib%sfcswa)) deallocate (sib%sfcswa) + if(allocated(sib%uplwrf)) deallocate (sib%uplwrf) + !2D + patches diagnostic + if(allocated(sib%assimn)) deallocate (sib%assimn) + if(allocated(sib%respg)) deallocate (sib%respg) + if(allocated(sib%rstfac1)) deallocate (sib%rstfac1) + if(allocated(sib%rstfac2)) deallocate (sib%rstfac2) + if(allocated(sib%rstfac3)) deallocate (sib%rstfac3) + if(allocated(sib%ect)) deallocate (sib%ect) + if(allocated(sib%eci)) deallocate (sib%eci) + if(allocated(sib%egi)) deallocate (sib%egi) + if(allocated(sib%egs)) deallocate (sib%egs) + if(allocated(sib%hc)) deallocate (sib%hc) + if(allocated(sib%hg)) deallocate (sib%hg) + if(allocated(sib%ra)) deallocate (sib%ra) + if(allocated(sib%rb)) deallocate (sib%rb) + if(allocated(sib%rc)) deallocate (sib%rc) + if(allocated(sib%rd)) deallocate (sib%rd) + if(allocated(sib%roff)) deallocate (sib%roff) + if(allocated(sib%green)) deallocate (sib%green) + if(allocated(sib%apar)) deallocate (sib%apar) + if(allocated(sib%ventmf)) deallocate (sib%ventmf) + if(allocated(sib%pco2c)) deallocate (sib%pco2c) + if(allocated(sib%pco2i)) deallocate (sib%pco2i) + if(allocated(sib%pco2s)) deallocate (sib%pco2s) + if(allocated(sib%pco2m)) deallocate (sib%pco2m) + if(allocated(sib%ea)) deallocate (sib%ea) + if(allocated(sib%em)) deallocate (sib%em) + if(allocated(sib%rha)) deallocate (sib%rha) + if(allocated(sib%radvbc)) deallocate (sib%radvbc) + if(allocated(sib%radvdc)) deallocate (sib%radvdc) + if(allocated(sib%radnbc)) deallocate (sib%radnbc) + if(allocated(sib%radndc)) deallocate (sib%radndc) + if(allocated(sib%psy)) deallocate (sib%psy) + +return +END SUBROUTINE dealloc_sib + +!############################################################################## +Subroutine filltab_sib (sib,sibm,imean,nz,nx,ny,np,ng) + +use var_tables + +implicit none + + type (sib_vars) :: sib,sibm + integer, intent(in) :: imean,nz,nx,ny,np,ng + integer :: npts + +! Fill arrays into variable tables + + npts=nz*nx*ny + +!SIB SPECIFIC PROGNOSTIC 3D VARIABLES + if (allocated(sib%rco2p)) & + CALL vtables2 (sib%rco2p(1,1,1),sibm%rco2p(1,1,1) & + ,ng, npts, imean, & + 'RCO2P :3:anal:mpti:mpt1') + + npts=nx*ny*np + +!SIB SPECIFIC PROGNOSTIC 2D PATCH VARIABLES + if (allocated(sib%snow1)) & + CALL vtables2 (sib%snow1(1,1,1),sibm%snow1(1,1,1) & + ,ng, npts, imean, & + 'SNOW1 :6:anal:mpti:recycle_sfc') + if (allocated(sib%snow2)) & + CALL vtables2 (sib%snow2(1,1,1),sibm%snow2(1,1,1) & + ,ng, npts, imean, & + 'SNOW2 :6:anal:mpti:recycle_sfc') + if (allocated(sib%capac1)) & + CALL vtables2 (sib%capac1(1,1,1),sibm%capac1(1,1,1) & + ,ng, npts, imean, & + 'CAPAC1 :6:anal:mpti:recycle_sfc') + if (allocated(sib%capac2)) & + CALL vtables2 (sib%capac2(1,1,1),sibm%capac2(1,1,1) & + ,ng, npts, imean, & + 'CAPAC2 :6:anal:mpti:recycle_sfc') + if (allocated(sib%pco2ap)) & + CALL vtables2 (sib%pco2ap(1,1,1),sibm%pco2ap(1,1,1) & + ,ng, npts, imean, & + 'PCO2AP :6:anal:mpti:recycle_sfc') + if (allocated(sib%co2flx)) & + CALL vtables2 (sib%co2flx(1,1,1),sibm%co2flx(1,1,1) & + ,ng, npts, imean, & + 'CO2FLX :6:anal:mpti:recycle_sfc') + if (allocated(sib%sfcswa)) & + CALL vtables2 (sib%sfcswa(1,1,1),sibm%sfcswa(1,1,1) & + ,ng, npts, imean, & + 'SFCSWA :6:anal:mpti:recycle_sfc') + if (allocated(sib%uplwrf)) & + CALL vtables2 (sib%uplwrf(1,1,1),sibm%uplwrf(1,1,1) & + ,ng, npts, imean, & + 'UPLWRF :6:anal:mpti:recycle_sfc') + +!SIB SPECIFIC DIAGNOSTIC 2D PATCH VARIABLES + if (allocated(sib%assimn)) & + CALL vtables2 (sib%assimn(1,1,1),sibm%assimn(1,1,1) & + ,ng, npts, imean, & + 'ASSIMN :6:anal:mpti:recycle_sfc') + if (allocated(sib%respg)) & + CALL vtables2 (sib%respg(1,1,1),sibm%respg(1,1,1) & + ,ng, npts, imean, & + 'RESPG :6:anal:mpti:recycle_sfc') + if (allocated(sib%rstfac1)) & + CALL vtables2 (sib%rstfac1(1,1,1),sibm%rstfac1(1,1,1) & + ,ng, npts, imean, & + 'RSTFAC1 :6:anal:mpti:recycle_sfc') + if (allocated(sib%rstfac2)) & + CALL vtables2 (sib%rstfac2(1,1,1),sibm%rstfac2(1,1,1) & + ,ng, npts, imean, & + 'RSTFAC2 :6:anal:mpti:recycle_sfc') + if (allocated(sib%rstfac3)) & + CALL vtables2 (sib%rstfac3(1,1,1),sibm%rstfac3(1,1,1) & + ,ng, npts, imean, & + 'RSTFAC3 :6:anal:mpti:recycle_sfc') + if (allocated(sib%ect)) & + CALL vtables2 (sib%ect(1,1,1),sibm%ect(1,1,1) & + ,ng, npts, imean, & + 'ECT :6:anal:mpti:recycle_sfc') + if (allocated(sib%eci)) & + CALL vtables2 (sib%eci(1,1,1),sibm%eci(1,1,1) & + ,ng, npts, imean, & + 'ECI :6:anal:mpti:recycle_sfc') + if (allocated(sib%egi)) & + CALL vtables2 (sib%egi(1,1,1),sibm%egi(1,1,1) & + ,ng, npts, imean, & + 'EGI :6:anal:mpti:recycle_sfc') + if (allocated(sib%egs)) & + CALL vtables2 (sib%egs(1,1,1),sibm%egs(1,1,1) & + ,ng, npts, imean, & + 'EGS :6:anal:mpti:recycle_sfc') + if (allocated(sib%hc)) & + CALL vtables2 (sib%hc(1,1,1),sibm%hc(1,1,1) & + ,ng, npts, imean, & + 'HC :6:anal:mpti:recycle_sfc') + if (allocated(sib%hg)) & + CALL vtables2 (sib%hg(1,1,1),sibm%hg(1,1,1) & + ,ng, npts, imean, & + 'HG :6:anal:mpti:recycle_sfc') + if (allocated(sib%ra)) & + CALL vtables2 (sib%ra(1,1,1),sibm%ra(1,1,1) & + ,ng, npts, imean, & + 'RA :6:anal:mpti:recycle_sfc') + if (allocated(sib%rb)) & + CALL vtables2 (sib%rb(1,1,1),sibm%rb(1,1,1) & + ,ng, npts, imean, & + 'RB :6:anal:mpti:recycle_sfc') + if (allocated(sib%rc)) & + CALL vtables2 (sib%rc(1,1,1),sibm%rc(1,1,1) & + ,ng, npts, imean, & + 'RC :6:anal:mpti:recycle_sfc') + if (allocated(sib%rd)) & + CALL vtables2 (sib%rd(1,1,1),sibm%rd(1,1,1) & + ,ng, npts, imean, & + 'RD :6:anal:mpti:recycle_sfc') + if (allocated(sib%roff)) & + CALL vtables2 (sib%roff(1,1,1),sibm%roff(1,1,1) & + ,ng, npts, imean, & + 'ROFF :6:anal:mpti:recycle_sfc') + if (allocated(sib%green)) & + CALL vtables2 (sib%green(1,1,1),sibm%green(1,1,1) & + ,ng, npts, imean, & + 'GREEN :6:anal:mpti:recycle_sfc') + if (allocated(sib%apar)) & + CALL vtables2 (sib%apar(1,1,1),sibm%apar(1,1,1) & + ,ng, npts, imean, & + 'APAR :6:anal:mpti:recycle_sfc') + if (allocated(sib%ventmf)) & + CALL vtables2 (sib%ventmf(1,1,1),sibm%ventmf(1,1,1) & + ,ng, npts, imean, & + 'VENTMF :6:anal:mpti:recycle_sfc') + if (allocated(sib%pco2c)) & + CALL vtables2 (sib%pco2c(1,1,1),sibm%pco2c(1,1,1) & + ,ng, npts, imean, & + 'PCO2C :6:anal:mpti:recycle_sfc') + if (allocated(sib%pco2i)) & + CALL vtables2 (sib%pco2i(1,1,1),sibm%pco2i(1,1,1) & + ,ng, npts, imean, & + 'PCO2I :6:anal:mpti:recycle_sfc') + if (allocated(sib%pco2s)) & + CALL vtables2 (sib%pco2s(1,1,1),sibm%pco2s(1,1,1) & + ,ng, npts, imean, & + 'PCO2S :6:anal:mpti:recycle_sfc') + if (allocated(sib%pco2m)) & + CALL vtables2 (sib%pco2m(1,1,1),sibm%pco2m(1,1,1) & + ,ng, npts, imean, & + 'PCO2M :6:anal:mpti:recycle_sfc') + if (allocated(sib%ea)) & + CALL vtables2 (sib%ea(1,1,1),sibm%ea(1,1,1) & + ,ng, npts, imean, & + 'EA :6:anal:mpti:recycle_sfc') + if (allocated(sib%em)) & + CALL vtables2 (sib%em(1,1,1),sibm%em(1,1,1) & + ,ng, npts, imean, & + 'EM :6:anal:mpti:recycle_sfc') + if (allocated(sib%rha)) & + CALL vtables2 (sib%rha(1,1,1),sibm%rha(1,1,1) & + ,ng, npts, imean, & + 'RHA :6:anal:mpti:recycle_sfc') + if (allocated(sib%radvbc)) & + CALL vtables2 (sib%radvbc(1,1,1),sibm%radvbc(1,1,1) & + ,ng, npts, imean, & + 'RADVBC :6:anal:mpti:recycle_sfc') + if (allocated(sib%radvdc)) & + CALL vtables2 (sib%radvdc(1,1,1),sibm%radvdc(1,1,1) & + ,ng, npts, imean, & + 'RADVDC :6:anal:mpti:recycle_sfc') + if (allocated(sib%radnbc)) & + CALL vtables2 (sib%radnbc(1,1,1),sibm%radnbc(1,1,1) & + ,ng, npts, imean, & + 'RADNBC :6:anal:mpti:recycle_sfc') + if (allocated(sib%radndc)) & + CALL vtables2 (sib%radndc(1,1,1),sibm%radndc(1,1,1) & + ,ng, npts, imean, & + 'RADNDC :6:anal:mpti:recycle_sfc') + if (allocated(sib%psy)) & + CALL vtables2 (sib%psy(1,1,1),sibm%psy(1,1,1) & + ,ng, npts, imean, & + 'PSY :6:anal:mpti:recycle_sfc') + +return +END SUBROUTINE filltab_sib + +END MODULE mem_sib diff --git a/src/6.2.16/memory/mem_tend.f90 b/src/6.2.16/memory/mem_tend.f90 new file mode 100644 index 0000000..6f9010e --- /dev/null +++ b/src/6.2.16/memory/mem_tend.f90 @@ -0,0 +1,605 @@ +!############################################################################## +Module mem_tend + +implicit none + + Type tend_vars + + real, allocatable, dimension(:) :: & + ut, vt, wt, pt, tht, rtt & + ,rct, rdt, rrt, rpt, rst, rat, rgt ,rht & + ,cct, cdt, crt, cpt, cst, cat, cgt ,cht & + ,q2t, q6t, q7t & + ,fncnt, ffcdt, ffict, ffipt, ffidt & + ,ffsnt, ffglt, ffhlt, ffint & + ,cifnt, tket & + ,cccmt, gccmt, cccnt, gccnt & + ,md1nt, md2nt, md1mt, md2mt & + ,salt_film_nt,salt_jet_nt,salt_spum_nt & + ,salt_film_mt,salt_jet_mt,salt_spum_mt & + ,regen_aero1_nt,regen_aero1_mt & + ,regen_aero2_nt,regen_aero2_mt & + ,immerct, immerdt, immerrt ,ifnnuct & + ,cnmct, cnmdt, cnmrt, cnmpt, cnmst & + ,cnmat, cnmgt, cnmht & + ,dnmct, dnmdt, dnmrt, dnmpt, dnmst & + ,dnmat, dnmgt, dnmht & + ,dinct, dindt, dinrt, dinpt, dinst & + ,dinat, dingt, dinht & + ,snmct, snmdt, snmrt, snmpt, snmst & + ,snmat, snmgt, snmht & + ,resol_aero1_mt,resol_aero2_mt & + ,rco2t + + End Type + + type (tend_vars) :: tend + +Contains + +!############################################################################## +Subroutine alloc_tend (numz,numx,numy,ngrs) + +use mem_basic +use mem_tracer +use mem_sib +use mem_micro +use mem_turb +use micro_prm, only:nkr + +implicit none + + integer, dimension (*) :: numz,numx,numy + integer :: ngrs,ng,ntpts,nsc + +!print*, 'enter alloc_tend' + +! Find the maximum number of grid points needed for any grid. + + ntpts=0 + do ng=1,ngrs + ntpts=max( numx(ng)*numy(ng)*numz(ng),ntpts ) + enddo + +! Allocate arrays based on options (if necessary). +! Do not need these arrays if it is a master process in a parallel run, +! so just allocate to 1 word. + +!!!!! WE ARE ONLY CHECKING GRID 1 !!!!!!!!! +!!!!! All grids must have same scalars defined !!!!!!! + + if (allocated(basic_g(1)%up)) allocate (tend%ut(ntpts)) + if (allocated(basic_g(1)%vp)) allocate (tend%vt(ntpts)) + if (allocated(basic_g(1)%wp)) allocate (tend%wt(ntpts)) + if (allocated(basic_g(1)%pp)) allocate (tend%pt(ntpts)) + + if (allocated(basic_g(1)%thp)) allocate (tend%tht(ntpts)) + if (allocated(basic_g(1)%rtp)) allocate (tend%rtt(ntpts)) + if (allocated(micro_g(1)%rcp)) allocate (tend%rct(ntpts)) + if (allocated(micro_g(1)%rdp)) allocate (tend%rdt(ntpts)) + if (allocated(micro_g(1)%rrp)) allocate (tend%rrt(ntpts)) + if (allocated(micro_g(1)%rpp)) allocate (tend%rpt(ntpts)) + if (allocated(micro_g(1)%rsp)) allocate (tend%rst(ntpts)) + if (allocated(micro_g(1)%rap)) allocate (tend%rat(ntpts)) + if (allocated(micro_g(1)%rgp)) allocate (tend%rgt(ntpts)) + if (allocated(micro_g(1)%rhp)) allocate (tend%rht(ntpts)) + if (allocated(micro_g(1)%ccp)) allocate (tend%cct(ntpts)) + if (allocated(micro_g(1)%cdp)) allocate (tend%cdt(ntpts)) + if (allocated(micro_g(1)%crp)) allocate (tend%crt(ntpts)) + if (allocated(micro_g(1)%cpp)) allocate (tend%cpt(ntpts)) + if (allocated(micro_g(1)%csp)) allocate (tend%cst(ntpts)) + if (allocated(micro_g(1)%cap)) allocate (tend%cat(ntpts)) + if (allocated(micro_g(1)%cgp)) allocate (tend%cgt(ntpts)) + if (allocated(micro_g(1)%chp)) allocate (tend%cht(ntpts)) + if (allocated(micro_g(1)%q2)) allocate (tend%q2t(ntpts)) + if (allocated(micro_g(1)%q6)) allocate (tend%q6t(ntpts)) + if (allocated(micro_g(1)%q7)) allocate (tend%q7t(ntpts)) + if (allocated(micro_g(1)%cifnp)) allocate (tend%cifnt(ntpts)) + + if (allocated(micro_g(1)%fncn)) allocate (tend%fncnt(ntpts*nkr)) + if (allocated(micro_g(1)%ffcd)) allocate (tend%ffcdt(ntpts*nkr)) + if (allocated(micro_g(1)%ffic)) allocate (tend%ffict(ntpts*nkr)) + if (allocated(micro_g(1)%ffip)) allocate (tend%ffipt(ntpts*nkr)) + if (allocated(micro_g(1)%ffid)) allocate (tend%ffidt(ntpts*nkr)) + if (allocated(micro_g(1)%ffsn)) allocate (tend%ffsnt(ntpts*nkr)) + if (allocated(micro_g(1)%ffgl)) allocate (tend%ffglt(ntpts*nkr)) + if (allocated(micro_g(1)%ffhl)) allocate (tend%ffhlt(ntpts*nkr)) + if (allocated(micro_g(1)%ffin)) allocate (tend%ffint(ntpts*nkr)) + + if (allocated(turb_g(1)%tkep)) allocate (tend%tket(ntpts)) + + if (allocated(micro_g(1)%cccnp)) allocate (tend%cccnt(ntpts)) + if (allocated(micro_g(1)%gccnp)) allocate (tend%gccnt(ntpts)) + if (allocated(micro_g(1)%cccmp)) allocate (tend%cccmt(ntpts)) + if (allocated(micro_g(1)%gccmp)) allocate (tend%gccmt(ntpts)) + if (allocated(micro_g(1)%md1np)) allocate (tend%md1nt(ntpts)) + if (allocated(micro_g(1)%md2np)) allocate (tend%md2nt(ntpts)) + if (allocated(micro_g(1)%md1mp)) allocate (tend%md1mt(ntpts)) + if (allocated(micro_g(1)%md2mp)) allocate (tend%md2mt(ntpts)) + if (allocated(micro_g(1)%salt_film_np)) allocate (tend%salt_film_nt(ntpts)) + if (allocated(micro_g(1)%salt_jet_np)) allocate (tend%salt_jet_nt(ntpts)) + if (allocated(micro_g(1)%salt_spum_np)) allocate (tend%salt_spum_nt(ntpts)) + if (allocated(micro_g(1)%salt_film_mp)) allocate (tend%salt_film_mt(ntpts)) + if (allocated(micro_g(1)%salt_jet_mp)) allocate (tend%salt_jet_mt(ntpts)) + if (allocated(micro_g(1)%salt_spum_mp)) allocate (tend%salt_spum_mt(ntpts)) + if (allocated(micro_g(1)%regen_aero1_np)) allocate (tend%regen_aero1_nt(ntpts)) + if (allocated(micro_g(1)%regen_aero1_mp)) allocate (tend%regen_aero1_mt(ntpts)) + if (allocated(micro_g(1)%regen_aero2_np)) allocate (tend%regen_aero2_nt(ntpts)) + if (allocated(micro_g(1)%regen_aero2_mp)) allocate (tend%regen_aero2_mt(ntpts)) + + if (allocated(micro_g(1)%immercp)) allocate (tend%immerct(ntpts)) + if (allocated(micro_g(1)%immerdp)) allocate (tend%immerdt(ntpts)) + if (allocated(micro_g(1)%immerrp)) allocate (tend%immerrt(ntpts)) + if (allocated(micro_g(1)%ifnnucp)) allocate (tend%ifnnuct(ntpts)) + + if (allocated(micro_g(1)%cnmcp)) allocate (tend%cnmct(ntpts)) + if (allocated(micro_g(1)%cnmdp)) allocate (tend%cnmdt(ntpts)) + if (allocated(micro_g(1)%cnmrp)) allocate (tend%cnmrt(ntpts)) + if (allocated(micro_g(1)%cnmpp)) allocate (tend%cnmpt(ntpts)) + if (allocated(micro_g(1)%cnmsp)) allocate (tend%cnmst(ntpts)) + if (allocated(micro_g(1)%cnmap)) allocate (tend%cnmat(ntpts)) + if (allocated(micro_g(1)%cnmgp)) allocate (tend%cnmgt(ntpts)) + if (allocated(micro_g(1)%cnmhp)) allocate (tend%cnmht(ntpts)) + + if (allocated(micro_g(1)%dnmcp)) allocate (tend%dnmct(ntpts)) + if (allocated(micro_g(1)%dnmdp)) allocate (tend%dnmdt(ntpts)) + if (allocated(micro_g(1)%dnmrp)) allocate (tend%dnmrt(ntpts)) + if (allocated(micro_g(1)%dnmpp)) allocate (tend%dnmpt(ntpts)) + if (allocated(micro_g(1)%dnmsp)) allocate (tend%dnmst(ntpts)) + if (allocated(micro_g(1)%dnmap)) allocate (tend%dnmat(ntpts)) + if (allocated(micro_g(1)%dnmgp)) allocate (tend%dnmgt(ntpts)) + if (allocated(micro_g(1)%dnmhp)) allocate (tend%dnmht(ntpts)) + + if (allocated(micro_g(1)%dincp)) allocate (tend%dinct(ntpts)) + if (allocated(micro_g(1)%dindp)) allocate (tend%dindt(ntpts)) + if (allocated(micro_g(1)%dinrp)) allocate (tend%dinrt(ntpts)) + if (allocated(micro_g(1)%dinpp)) allocate (tend%dinpt(ntpts)) + if (allocated(micro_g(1)%dinsp)) allocate (tend%dinst(ntpts)) + if (allocated(micro_g(1)%dinap)) allocate (tend%dinat(ntpts)) + if (allocated(micro_g(1)%dingp)) allocate (tend%dingt(ntpts)) + if (allocated(micro_g(1)%dinhp)) allocate (tend%dinht(ntpts)) + + if (allocated(micro_g(1)%snmcp)) allocate (tend%snmct(ntpts)) + if (allocated(micro_g(1)%snmdp)) allocate (tend%snmdt(ntpts)) + if (allocated(micro_g(1)%snmrp)) allocate (tend%snmrt(ntpts)) + if (allocated(micro_g(1)%snmpp)) allocate (tend%snmpt(ntpts)) + if (allocated(micro_g(1)%snmsp)) allocate (tend%snmst(ntpts)) + if (allocated(micro_g(1)%snmap)) allocate (tend%snmat(ntpts)) + if (allocated(micro_g(1)%snmgp)) allocate (tend%snmgt(ntpts)) + if (allocated(micro_g(1)%snmhp)) allocate (tend%snmht(ntpts)) + if (allocated(micro_g(1)%resol_aero1_mp)) allocate (tend%resol_aero1_mt(ntpts)) + if (allocated(micro_g(1)%resol_aero2_mp)) allocate (tend%resol_aero2_mt(ntpts)) + + if (allocated(sib_g(1)%rco2p)) allocate (tend%rco2t(ntpts)) + + do ng=1,ngrs + do nsc=1,itracer + if (allocated(tracer_g(nsc,ng)%tracerp).and. & + (.not.allocated(tracer_g(nsc,ng)%tracert))) & + allocate (tracer_g(nsc,ng)%tracert(ntpts)) + enddo + enddo + +return +END SUBROUTINE alloc_tend + +!############################################################################## +Subroutine dealloc_tend (ngrs) + +use mem_tracer + +implicit none + +integer :: nsc,ng,ngrs + +! Deallocate all tendency arrays + + if (allocated(tend%ut)) deallocate (tend%ut) + if (allocated(tend%vt)) deallocate (tend%vt) + if (allocated(tend%wt)) deallocate (tend%wt) + if (allocated(tend%pt)) deallocate (tend%pt) + if (allocated(tend%tht)) deallocate (tend%tht) + if (allocated(tend%rtt)) deallocate (tend%rtt) + if (allocated(tend%rct)) deallocate (tend%rct) + if (allocated(tend%rdt)) deallocate (tend%rdt) + if (allocated(tend%rrt)) deallocate (tend%rrt) + if (allocated(tend%rpt)) deallocate (tend%rpt) + if (allocated(tend%rst)) deallocate (tend%rst) + if (allocated(tend%rat)) deallocate (tend%rat) + if (allocated(tend%rgt)) deallocate (tend%rgt) + if (allocated(tend%rht)) deallocate (tend%rht) + if (allocated(tend%cct)) deallocate (tend%cct) + if (allocated(tend%cdt)) deallocate (tend%cdt) + if (allocated(tend%crt)) deallocate (tend%crt) + if (allocated(tend%cpt)) deallocate (tend%cpt) + if (allocated(tend%cst)) deallocate (tend%cst) + if (allocated(tend%cat)) deallocate (tend%cat) + if (allocated(tend%cgt)) deallocate (tend%cgt) + if (allocated(tend%cht)) deallocate (tend%cht) + if (allocated(tend%q2t)) deallocate (tend%q2t) + if (allocated(tend%q6t)) deallocate (tend%q6t) + if (allocated(tend%q7t)) deallocate (tend%q7t) + if (allocated(tend%cifnt))deallocate (tend%cifnt) + + if (allocated(tend%fncnt)) deallocate (tend%fncnt) + if (allocated(tend%ffcdt)) deallocate (tend%ffcdt) + if (allocated(tend%ffict)) deallocate (tend%ffict) + if (allocated(tend%ffipt)) deallocate (tend%ffipt) + if (allocated(tend%ffidt)) deallocate (tend%ffidt) + if (allocated(tend%ffsnt)) deallocate (tend%ffsnt) + if (allocated(tend%ffglt)) deallocate (tend%ffglt) + if (allocated(tend%ffhlt)) deallocate (tend%ffhlt) + if (allocated(tend%ffint)) deallocate (tend%ffint) + + if (allocated(tend%tket)) deallocate (tend%tket) + + if (allocated(tend%cccnt))deallocate (tend%cccnt) + if (allocated(tend%gccnt))deallocate (tend%gccnt) + if (allocated(tend%cccmt)) deallocate (tend%cccmt) + if (allocated(tend%gccmt)) deallocate (tend%gccmt) + if (allocated(tend%md1nt)) deallocate (tend%md1nt) + if (allocated(tend%md2nt)) deallocate (tend%md2nt) + if (allocated(tend%md1mt)) deallocate (tend%md1mt) + if (allocated(tend%md2mt)) deallocate (tend%md2mt) + if (allocated(tend%salt_film_nt)) deallocate (tend%salt_film_nt) + if (allocated(tend%salt_jet_nt)) deallocate (tend%salt_jet_nt) + if (allocated(tend%salt_spum_nt)) deallocate (tend%salt_spum_nt) + if (allocated(tend%salt_film_mt)) deallocate (tend%salt_film_mt) + if (allocated(tend%salt_jet_mt)) deallocate (tend%salt_jet_mt) + if (allocated(tend%salt_spum_mt)) deallocate (tend%salt_spum_mt) + if (allocated(tend%regen_aero1_nt)) deallocate (tend%regen_aero1_nt) + if (allocated(tend%regen_aero1_mt)) deallocate (tend%regen_aero1_mt) + if (allocated(tend%regen_aero2_nt)) deallocate (tend%regen_aero2_nt) + if (allocated(tend%regen_aero2_mt)) deallocate (tend%regen_aero2_mt) + + if (allocated(tend%immerct)) deallocate (tend%immerct) + if (allocated(tend%immerdt)) deallocate (tend%immerdt) + if (allocated(tend%immerrt)) deallocate (tend%immerrt) + if (allocated(tend%ifnnuct)) deallocate (tend%ifnnuct) + + if (allocated(tend%cnmct)) deallocate (tend%cnmct) + if (allocated(tend%cnmdt)) deallocate (tend%cnmdt) + if (allocated(tend%cnmrt)) deallocate (tend%cnmrt) + if (allocated(tend%cnmpt)) deallocate (tend%cnmpt) + if (allocated(tend%cnmst)) deallocate (tend%cnmst) + if (allocated(tend%cnmat)) deallocate (tend%cnmat) + if (allocated(tend%cnmgt)) deallocate (tend%cnmgt) + if (allocated(tend%cnmht)) deallocate (tend%cnmht) + + if (allocated(tend%dnmct)) deallocate (tend%dnmct) + if (allocated(tend%dnmdt)) deallocate (tend%dnmdt) + if (allocated(tend%dnmrt)) deallocate (tend%dnmrt) + if (allocated(tend%dnmpt)) deallocate (tend%dnmpt) + if (allocated(tend%dnmst)) deallocate (tend%dnmst) + if (allocated(tend%dnmat)) deallocate (tend%dnmat) + if (allocated(tend%dnmgt)) deallocate (tend%dnmgt) + if (allocated(tend%dnmht)) deallocate (tend%dnmht) + + if (allocated(tend%dinct)) deallocate (tend%dinct) + if (allocated(tend%dindt)) deallocate (tend%dindt) + if (allocated(tend%dinrt)) deallocate (tend%dinrt) + if (allocated(tend%dinpt)) deallocate (tend%dinpt) + if (allocated(tend%dinst)) deallocate (tend%dinst) + if (allocated(tend%dinat)) deallocate (tend%dinat) + if (allocated(tend%dingt)) deallocate (tend%dingt) + if (allocated(tend%dinht)) deallocate (tend%dinht) + + if (allocated(tend%snmct)) deallocate (tend%snmct) + if (allocated(tend%snmdt)) deallocate (tend%snmdt) + if (allocated(tend%snmrt)) deallocate (tend%snmrt) + if (allocated(tend%snmpt)) deallocate (tend%snmpt) + if (allocated(tend%snmst)) deallocate (tend%snmst) + if (allocated(tend%snmat)) deallocate (tend%snmat) + if (allocated(tend%snmgt)) deallocate (tend%snmgt) + if (allocated(tend%snmht)) deallocate (tend%snmht) + if (allocated(tend%resol_aero1_mt)) deallocate (tend%resol_aero1_mt) + if (allocated(tend%resol_aero2_mt)) deallocate (tend%resol_aero2_mt) + + if (allocated(tend%rco2t)) deallocate (tend%rco2t) + + do ng=1,ngrs + do nsc=1,itracer + if (allocated(tracer_g(nsc,ng)%tracert)) & + deallocate (tracer_g(nsc,ng)%tracert) + enddo + enddo + +return +END SUBROUTINE dealloc_tend + +!############################################################################## +Subroutine filltab_tend (basic,micro,turb,sib,tracer,ng) + +use mem_basic +use mem_micro +use mem_turb +use mem_sib +use mem_tracer +use var_tables +use micro_prm, only:nkr +use node_mod, only:mmxyzp + +implicit none + + type (basic_vars) :: basic + type (micro_vars) :: micro + type (turb_vars) :: turb + type (sib_vars) :: sib + type (tracer_vars) :: tracer(*) + integer :: ng,nsc + integer :: n,first,last,npts + character (len=10) :: sname + +! Fill scalar arrays into scalar tables + + if (allocated(tend%tht)) & + CALL vtables_scalar (basic%thp(1,1,1),tend%tht(1),ng,'THP') + if (allocated(tend%rtt)) & + CALL vtables_scalar (basic%rtp(1,1,1),tend%rtt(1),ng,'RTP') + if (allocated(tend%rct)) & + CALL vtables_scalar (micro%rcp(1,1,1),tend%rct(1),ng,'RCP') + if (allocated(tend%rdt)) & + CALL vtables_scalar (micro%rdp(1,1,1),tend%rdt(1),ng,'RDP') + if (allocated(tend%rrt)) & + CALL vtables_scalar (micro%rrp(1,1,1),tend%rrt(1),ng,'RRP') + if (allocated(tend%rpt)) & + CALL vtables_scalar (micro%rpp(1,1,1),tend%rpt(1),ng,'RPP') + if (allocated(tend%rst)) & + CALL vtables_scalar (micro%rsp(1,1,1),tend%rst(1),ng,'RSP') + if (allocated(tend%rat)) & + CALL vtables_scalar (micro%rap(1,1,1),tend%rat(1),ng,'RAP') + if (allocated(tend%rgt)) & + CALL vtables_scalar (micro%rgp(1,1,1),tend%rgt(1),ng,'RGP') + if (allocated(tend%rht)) & + CALL vtables_scalar (micro%rhp(1,1,1),tend%rht(1),ng,'RHP') + if (allocated(tend%cct)) & + CALL vtables_scalar (micro%ccp(1,1,1),tend%cct(1),ng,'CCP') + if (allocated(tend%cdt)) & + CALL vtables_scalar (micro%cdp(1,1,1),tend%cdt(1),ng,'CDP') + if (allocated(tend%crt)) & + CALL vtables_scalar (micro%crp(1,1,1),tend%crt(1),ng,'CRP') + if (allocated(tend%cpt)) & + CALL vtables_scalar (micro%cpp(1,1,1),tend%cpt(1),ng,'CPP') + if (allocated(tend%cst)) & + CALL vtables_scalar (micro%csp(1,1,1),tend%cst(1),ng,'CSP') + if (allocated(tend%cat)) & + CALL vtables_scalar (micro%cap(1,1,1),tend%cat(1),ng,'CAP') + if (allocated(tend%cgt)) & + CALL vtables_scalar (micro%cgp(1,1,1),tend%cgt(1),ng,'CGP') + if (allocated(tend%cht)) & + CALL vtables_scalar (micro%chp(1,1,1),tend%cht(1),ng,'CHP') + if (allocated(tend%q2t)) & + CALL vtables_scalar (micro%q2(1,1,1),tend%q2t(1),ng,'Q2') + if (allocated(tend%q6t)) & + CALL vtables_scalar (micro%q6(1,1,1),tend%q6t(1),ng,'Q6') + if (allocated(tend%q7t)) & + CALL vtables_scalar (micro%q7(1,1,1),tend%q7t(1),ng,'Q7') + if (allocated(tend%cifnt)) & + CALL vtables_scalar (micro%cifnp(1,1,1),tend%cifnt(1),ng,'CIFNP') + + if( allocated(tend%tket)) & + CALL vtables_scalar (turb%tkep(1,1,1),tend%tket(1),ng,'TKEP') + + if (allocated(tend%cccnt)) & + CALL vtables_scalar (micro%cccnp(1,1,1),tend%cccnt(1),ng,'CCCNP') + if (allocated(tend%gccnt)) & + CALL vtables_scalar (micro%gccnp(1,1,1),tend%gccnt(1),ng,'GCCNP') + if (allocated(tend%cccmt)) & + CALL vtables_scalar (micro%cccmp(1,1,1),tend%cccmt(1),ng,'CCCMP') + if (allocated(tend%gccmt)) & + CALL vtables_scalar (micro%gccmp(1,1,1),tend%gccmt(1),ng,'GCCMP') + if (allocated(tend%md1nt)) & + CALL vtables_scalar (micro%md1np(1,1,1),tend%md1nt(1),ng,'MD1NP') + if (allocated(tend%md2nt)) & + CALL vtables_scalar (micro%md2np(1,1,1),tend%md2nt(1),ng,'MD2NP') + if (allocated(tend%md1mt)) & + CALL vtables_scalar (micro%md1mp(1,1,1),tend%md1mt(1),ng,'MD1MP') + if (allocated(tend%md2mt)) & + CALL vtables_scalar (micro%md2mp(1,1,1),tend%md2mt(1),ng,'MD2MP') + if (allocated(tend%salt_film_nt)) & + CALL vtables_scalar (micro%salt_film_np(1,1,1) & + ,tend%salt_film_nt(1),ng,'SALT_FILM_NP') + if (allocated(tend%salt_jet_nt)) & + CALL vtables_scalar (micro%salt_jet_np(1,1,1) & + ,tend%salt_jet_nt(1),ng,'SALT_JET_NP') + if (allocated(tend%salt_spum_nt)) & + CALL vtables_scalar (micro%salt_spum_np(1,1,1) & + ,tend%salt_spum_nt(1),ng,'SALT_SPUM_NP') + if (allocated(tend%salt_film_mt)) & + CALL vtables_scalar (micro%salt_film_mp(1,1,1) & + ,tend%salt_film_mt(1),ng,'SALT_FILM_MP') + if (allocated(tend%salt_jet_mt)) & + CALL vtables_scalar (micro%salt_jet_mp(1,1,1) & + ,tend%salt_jet_mt(1),ng,'SALT_JET_MP') + if (allocated(tend%salt_spum_mt)) & + CALL vtables_scalar (micro%salt_spum_mp(1,1,1) & + ,tend%salt_spum_mt(1),ng,'SALT_SPUM_MP') + if (allocated(tend%regen_aero1_nt)) & + CALL vtables_scalar (micro%regen_aero1_np(1,1,1) & + ,tend%regen_aero1_nt(1),ng,'REGEN_AERO1_NP') + if (allocated(tend%regen_aero1_mt)) & + CALL vtables_scalar (micro%regen_aero1_mp(1,1,1) & + ,tend%regen_aero1_mt(1),ng,'REGEN_AERO1_MP') + if (allocated(tend%regen_aero2_nt)) & + CALL vtables_scalar (micro%regen_aero2_np(1,1,1) & + ,tend%regen_aero2_nt(1),ng,'REGEN_AERO2_NP') + if (allocated(tend%regen_aero2_mt)) & + CALL vtables_scalar (micro%regen_aero2_mp(1,1,1) & + ,tend%regen_aero2_mt(1),ng,'REGEN_AERO2_MP') + + + if (allocated(tend%immerct)) & + CALL vtables_scalar (micro%immercp(1,1,1),tend%immerct(1),ng,'IMMERCP') + if (allocated(tend%immerdt)) & + CALL vtables_scalar (micro%immerdp(1,1,1),tend%immerdt(1),ng,'IMMERDP') + if (allocated(tend%immerrt)) & + CALL vtables_scalar (micro%immerrp(1,1,1),tend%immerrt(1),ng,'IMMERRP') + if (allocated(tend%ifnnuct)) & + CALL vtables_scalar (micro%ifnnucp(1,1,1),tend%ifnnuct(1),ng,'IFNNUCP') + + if (allocated(tend%cnmct)) & + CALL vtables_scalar (micro%cnmcp(1,1,1),tend%cnmct(1),ng,'CNMCP') + if (allocated(tend%cnmdt)) & + CALL vtables_scalar (micro%cnmdp(1,1,1),tend%cnmdt(1),ng,'CNMDP') + if (allocated(tend%cnmrt)) & + CALL vtables_scalar (micro%cnmrp(1,1,1),tend%cnmrt(1),ng,'CNMRP') + if (allocated(tend%cnmpt)) & + CALL vtables_scalar (micro%cnmpp(1,1,1),tend%cnmpt(1),ng,'CNMPP') + if (allocated(tend%cnmst)) & + CALL vtables_scalar (micro%cnmsp(1,1,1),tend%cnmst(1),ng,'CNMSP') + if (allocated(tend%cnmat)) & + CALL vtables_scalar (micro%cnmap(1,1,1),tend%cnmat(1),ng,'CNMAP') + if (allocated(tend%cnmgt)) & + CALL vtables_scalar (micro%cnmgp(1,1,1),tend%cnmgt(1),ng,'CNMGP') + if (allocated(tend%cnmht)) & + CALL vtables_scalar (micro%cnmhp(1,1,1),tend%cnmht(1),ng,'CNMHP') + + if (allocated(tend%dnmct)) & + CALL vtables_scalar (micro%dnmcp(1,1,1),tend%dnmct(1),ng,'DNMCP') + if (allocated(tend%dnmdt)) & + CALL vtables_scalar (micro%dnmdp(1,1,1),tend%dnmdt(1),ng,'DNMDP') + if (allocated(tend%dnmrt)) & + CALL vtables_scalar (micro%dnmrp(1,1,1),tend%dnmrt(1),ng,'DNMRP') + if (allocated(tend%dnmpt)) & + CALL vtables_scalar (micro%dnmpp(1,1,1),tend%dnmpt(1),ng,'DNMPP') + if (allocated(tend%dnmst)) & + CALL vtables_scalar (micro%dnmsp(1,1,1),tend%dnmst(1),ng,'DNMSP') + if (allocated(tend%dnmat)) & + CALL vtables_scalar (micro%dnmap(1,1,1),tend%dnmat(1),ng,'DNMAP') + if (allocated(tend%dnmgt)) & + CALL vtables_scalar (micro%dnmgp(1,1,1),tend%dnmgt(1),ng,'DNMGP') + if (allocated(tend%dnmht)) & + CALL vtables_scalar (micro%dnmhp(1,1,1),tend%dnmht(1),ng,'DNMHP') + + if (allocated(tend%dinct)) & + CALL vtables_scalar (micro%dincp(1,1,1),tend%dinct(1),ng,'DINCP') + if (allocated(tend%dindt)) & + CALL vtables_scalar (micro%dindp(1,1,1),tend%dindt(1),ng,'DINDP') + if (allocated(tend%dinrt)) & + CALL vtables_scalar (micro%dinrp(1,1,1),tend%dinrt(1),ng,'DINRP') + if (allocated(tend%dinpt)) & + CALL vtables_scalar (micro%dinpp(1,1,1),tend%dinpt(1),ng,'DINPP') + if (allocated(tend%dinst)) & + CALL vtables_scalar (micro%dinsp(1,1,1),tend%dinst(1),ng,'DINSP') + if (allocated(tend%dinat)) & + CALL vtables_scalar (micro%dinap(1,1,1),tend%dinat(1),ng,'DINAP') + if (allocated(tend%dingt)) & + CALL vtables_scalar (micro%dingp(1,1,1),tend%dingt(1),ng,'DINGP') + if (allocated(tend%dinht)) & + CALL vtables_scalar (micro%dinhp(1,1,1),tend%dinht(1),ng,'DINHP') + + if (allocated(tend%snmct)) & + CALL vtables_scalar (micro%snmcp(1,1,1),tend%snmct(1),ng,'SNMCP') + if (allocated(tend%snmdt)) & + CALL vtables_scalar (micro%snmdp(1,1,1),tend%snmdt(1),ng,'SNMDP') + if (allocated(tend%snmrt)) & + CALL vtables_scalar (micro%snmrp(1,1,1),tend%snmrt(1),ng,'SNMRP') + if (allocated(tend%snmpt)) & + CALL vtables_scalar (micro%snmpp(1,1,1),tend%snmpt(1),ng,'SNMPP') + if (allocated(tend%snmst)) & + CALL vtables_scalar (micro%snmsp(1,1,1),tend%snmst(1),ng,'SNMSP') + if (allocated(tend%snmat)) & + CALL vtables_scalar (micro%snmap(1,1,1),tend%snmat(1),ng,'SNMAP') + if (allocated(tend%snmgt)) & + CALL vtables_scalar (micro%snmgp(1,1,1),tend%snmgt(1),ng,'SNMGP') + if (allocated(tend%snmht)) & + CALL vtables_scalar (micro%snmhp(1,1,1),tend%snmht(1),ng,'SNMHP') + if (allocated(tend%resol_aero1_mt)) & + CALL vtables_scalar (micro%resol_aero1_mp(1,1,1) & + ,tend%resol_aero1_mt(1),ng,'RESOL_AERO1_MP') + if (allocated(tend%resol_aero2_mt)) & + CALL vtables_scalar (micro%resol_aero2_mp(1,1,1) & + ,tend%resol_aero2_mt(1),ng,'RESOL_AERO2_MP') + + !Bin variables - although all bins allocated with each hydrometeor + !type are stored in the same array, we can store each bin separately + !in the scalar table. + + npts = mmxyzp(ng) + if (allocated(tend%ffcdt)) then + do n=1,nkr + first=(n-1)*npts+1 + last=npts*n + CALL vtables_scalar (micro%ffcd(:,:,:,n), & + tend%ffcdt(first:last),ng,'FFCD') + enddo + endif + if (allocated(tend%ffict)) then + do n=1,nkr + first=(n-1)*npts+1 + last=npts*n + CALL vtables_scalar (micro%ffic(:,:,:,n), & + tend%ffict(first:last),ng,'FFIC') + enddo + endif + if (allocated(tend%ffipt)) then + do n=1,nkr + first=(n-1)*npts+1 + last=npts*n + CALL vtables_scalar (micro%ffip(:,:,:,n), & + tend%ffipt(first:last),ng,'FFIP') + enddo + endif + if (allocated(tend%ffidt)) then + do n=1,nkr + first=(n-1)*npts+1 + last=npts*n + CALL vtables_scalar (micro%ffid(:,:,:,n), & + tend%ffidt(first:last),ng,'FFID') + enddo + endif + if (allocated(tend%ffsnt)) then + do n=1,nkr + first=(n-1)*npts+1 + last=npts*n + CALL vtables_scalar (micro%ffsn(:,:,:,n), & + tend%ffsnt(first:last),ng,'FFSN') + enddo + endif + if (allocated(tend%ffglt)) then + do n=1,nkr + first=(n-1)*npts+1 + last=npts*n + CALL vtables_scalar (micro%ffgl(:,:,:,n), & + tend%ffglt(first:last),ng,'FFGL') + enddo + endif + if (allocated(tend%ffhlt)) then + do n=1,nkr + first=(n-1)*npts+1 + last=npts*n + CALL vtables_scalar (micro%ffhl(:,:,:,n), & + tend%ffhlt(first:last),ng,'FFHL') + enddo + endif + if (allocated(tend%fncnt)) then + do n=1,nkr + first=(n-1)*npts+1 + last=npts*n + CALL vtables_scalar (micro%fncn(:,:,:,n), & + tend%fncnt(first:last),ng,'FNCN') + enddo + endif + if (allocated(tend%ffint)) then + do n=1,nkr + first=(n-1)*npts+1 + last=npts*n + CALL vtables_scalar (micro%ffin(:,:,:,n), & + tend%ffint(first:last),ng,'FFIN') + enddo + endif + + if (allocated(tend%rco2t)) & + CALL vtables_scalar (sib%rco2p(1,1,1),tend%rco2t(1),ng,'RCO2P') + + do nsc=1,itracer + write(sname,'(a7,i3.3)') 'TRACERP',nsc + if (allocated(tracer(nsc)%tracert)) & + CALL vtables_scalar (tracer(nsc)%tracerp(1,1,1) & + ,tracer(nsc)%tracert(1),ng,sname) + enddo + +return +END SUBROUTINE filltab_tend + +END MODULE mem_tend diff --git a/src/6.2.16/memory/mem_tracer.f90 b/src/6.2.16/memory/mem_tracer.f90 new file mode 100644 index 0000000..891bcbc --- /dev/null +++ b/src/6.2.16/memory/mem_tracer.f90 @@ -0,0 +1,84 @@ +!############################################################################## +Module mem_tracer + +use grid_dims + +implicit none + + Type tracer_vars + + ! Variables to be dimensioned by (nzp,nxp,nyp) + real, allocatable, dimension(:,:,:) :: tracerp + real, allocatable, dimension(:) :: tracert + + End Type + + ! tracerp allocated by (maxsclr,ngrids) + type (tracer_vars), allocatable :: tracer_g(:,:), tracerm_g(:,:) + + integer :: itracer,itrachist + +Contains + +!############################################################################## +Subroutine alloc_tracer (tracer,n1,n2,n3,ng) + +implicit none + + type (tracer_vars) :: tracer(*) + integer, intent(in) :: n1,n2,n3,ng + integer :: nsc + +! Allocate arrays based on options (if necessary) + + do nsc=1,itracer + allocate (tracer(nsc)%tracerp(n1,n2,n3)) + enddo + +return +END SUBROUTINE alloc_tracer + +!############################################################################## +Subroutine dealloc_tracer (tracer,ng) + +implicit none + + type (tracer_vars) :: tracer(*) + + integer, intent(in) :: ng + integer :: nsc + + do nsc=1,itracer + if (allocated(tracer(nsc)%tracerp)) deallocate (tracer(nsc)%tracerp) + enddo + +return +END SUBROUTINE dealloc_tracer + +!############################################################################## +Subroutine filltab_tracer (tracer,tracerm,imean,n1,n2,n3,ng) + +use var_tables + +implicit none + + type (tracer_vars) :: tracer(*),tracerm(*) + integer, intent(in) :: imean,n1,n2,n3,ng + integer :: nsc,npts + character (len=10) :: sname + +! Fill arrays into variable tables + + npts=n1*n2*n3 + do nsc=1,itracer + if (allocated(tracer(nsc)%tracerp)) then + write(sname,'(a7,i3.3)') 'TRACERP',nsc + CALL vtables2 (tracer(nsc)%tracerp(1,1,1),tracerm(nsc)%tracerp(1,1,1) & + ,ng, npts, imean, sname//' :3:anal:mpti:mpt1') + endif + enddo + +return +END SUBROUTINE filltab_tracer + +END MODULE mem_tracer diff --git a/src/6.2.16/memory/mem_turb.f90 b/src/6.2.16/memory/mem_turb.f90 new file mode 100644 index 0000000..a8939b5 --- /dev/null +++ b/src/6.2.16/memory/mem_turb.f90 @@ -0,0 +1,147 @@ +!############################################################################## +Module mem_turb + +use grid_dims + +implicit none + + Type turb_vars + + ! Variables to be dimensioned by (nzp,nxp,nyp) + real, allocatable, dimension(:,:,:) :: & + tkep,hkm,vkm,vkh + + ! Variables to be dimensioned by (nxp,nyp) + real, allocatable, dimension(:,:) :: & + sflux_u,sflux_v,sflux_w,sflux_t,sflux_r + + End Type + + type (turb_vars), allocatable :: turb_g(:), turbm_g(:) + + integer :: ihorgrad + + integer, dimension(maxgrds) :: idiffk + + real :: fracsat + + real, dimension(maxgrds) :: zkhkm,xkhkm,csz,csx,akmin + +Contains + +!############################################################################## +Subroutine alloc_turb (turb,n1,n2,n3,ngrids) + +implicit none + + type (turb_vars) :: turb + integer, intent(in) :: n1,n2,n3,ngrids + integer :: i,tke_alloc + +! Allocate arrays based on options (if necessary) + +! Saleeby(2009): For TKEP, we need to allocate for all grids +! rather than being grid dependent since we allow grid dependent +! variations in IDIFFK. There is also no grid dependent checking in +! mem_tend.f90. This can lead to segmentation faults if TKEP +! not allocated on all grids. Allocate on all grids if even a single +! grid requires the allocation + + tke_alloc = 0 + do i=1,ngrids + if(idiffk(i) == 1 .or. idiffk(i) == 4) tke_alloc = 1 + enddo + if(tke_alloc == 1) allocate (turb%tkep(n1,n2,n3)) + + allocate (turb%hkm(n1,n2,n3)) + allocate (turb%vkm(n1,n2,n3)) + allocate (turb%vkh(n1,n2,n3)) + + allocate (turb%sflux_u(n2,n3)) + allocate (turb%sflux_v(n2,n3)) + allocate (turb%sflux_w(n2,n3)) + allocate (turb%sflux_t(n2,n3)) + allocate (turb%sflux_r(n2,n3)) + +return +END SUBROUTINE alloc_turb + +!############################################################################## +Subroutine dealloc_turb (turb) + +implicit none + + type (turb_vars) :: turb + + if (allocated(turb%tkep)) deallocate (turb%tkep) + if (allocated(turb%hkm)) deallocate (turb%hkm) + if (allocated(turb%vkm)) deallocate (turb%vkm) + if (allocated(turb%vkh)) deallocate (turb%vkh) + if (allocated(turb%sflux_u)) deallocate (turb%sflux_u) + if (allocated(turb%sflux_v)) deallocate (turb%sflux_v) + if (allocated(turb%sflux_w)) deallocate (turb%sflux_w) + if (allocated(turb%sflux_t)) deallocate (turb%sflux_t) + if (allocated(turb%sflux_r)) deallocate (turb%sflux_r) + +return +END SUBROUTINE dealloc_turb + +!############################################################################## +Subroutine filltab_turb (turb,turbm,imean,n1,n2,n3,ng) + +use var_tables + +implicit none + + type (turb_vars) :: turb,turbm + integer, intent(in) :: imean,n1,n2,n3,ng + integer :: npts + +! Fill arrays into variable tables + + npts=n1*n2*n3 + + if (allocated(turb%tkep)) & + CALL vtables2 (turb%tkep(1,1,1),turbm%tkep(1,1,1) & + ,ng, npts, imean, & + 'TKEP :3:anal:mpti:mpt1') + + if (allocated(turb%hkm)) & + CALL vtables2 (turb%hkm(1,1,1),turbm%hkm(1,1,1) & + ,ng, npts, imean, & + 'RHKM :3:anal:mpti:mpt1') + if (allocated(turb%vkm)) & + CALL vtables2 (turb%vkm(1,1,1),turbm%vkm(1,1,1) & + ,ng, npts, imean, & + 'RVKM :3:anal:mpti:mpt1') + if (allocated(turb%vkh)) & + CALL vtables2 (turb%vkh(1,1,1),turbm%vkh(1,1,1) & + ,ng, npts, imean, & + 'RVKH :3:anal:mpti:mpt1') + + npts=n2*n3 + if (allocated(turb%sflux_u)) & + CALL vtables2 (turb%sflux_u(1,1),turbm%sflux_u(1,1) & + ,ng, npts, imean, & + 'SFLUX_U :2:anal:mpt1') + if (allocated(turb%sflux_v)) & + CALL vtables2 (turb%sflux_v(1,1),turbm%sflux_v(1,1) & + ,ng, npts, imean, & + 'SFLUX_V :2:anal:mpt1') + if (allocated(turb%sflux_w)) & + CALL vtables2 (turb%sflux_w(1,1),turbm%sflux_w(1,1) & + ,ng, npts, imean, & + 'SFLUX_W :2:anal') + if (allocated(turb%sflux_t)) & + CALL vtables2 (turb%sflux_t(1,1),turbm%sflux_t(1,1) & + ,ng, npts, imean, & + 'SFLUX_T :2:anal') + if (allocated(turb%sflux_r)) & + CALL vtables2 (turb%sflux_r(1,1),turbm%sflux_r(1,1) & + ,ng, npts, imean, & + 'SFLUX_R :2:anal') + +return +END SUBROUTINE filltab_turb + +END MODULE mem_turb diff --git a/src/6.2.16/memory/mem_varinit.f90 b/src/6.2.16/memory/mem_varinit.f90 new file mode 100644 index 0000000..4722032 --- /dev/null +++ b/src/6.2.16/memory/mem_varinit.f90 @@ -0,0 +1,278 @@ +!############################################################################## +Module mem_varinit + +use grid_dims + +implicit none + + ! Memory for varfile, history, and condensate nudging + + Type varinit_vars + + ! Variables to be dimensioned by (nzp,nxp,nyp) + real, allocatable, dimension(:,:,:) :: & + varup,varvp,varpp,vartp,varrp & + ,varuf,varvf,varpf,vartf,varrf & + ,varwts & + ,varrph,varrfh,varcph,varcfh + + real, allocatable, dimension(:,:) :: & + varsoilm1p,varsoilm2p,varsoilt1p,varsoilt2p,varsnowmp,varsnowdp & + ,varsoilm1f,varsoilm2f,varsoilt1f,varsoilt2f,varsnowmf,varsnowdf + + End Type + + type (varinit_vars), allocatable :: varinit_g(:), varinitm_g(:) + + integer :: nud_type, nnudfiles, nnudfl, nudlat + + character(len=strl1), dimension(maxnudfiles) :: fnames_nud + character(len=14) , dimension(maxnudfiles) :: itotdate_nud + real, dimension(maxnudfiles) :: nud_times + real :: tnudlat,tnudcent,tnudtop,znudtop,snudcent + real :: wt_nudge_uv,wt_nudge_th,wt_nudge_pi,wt_nudge_rt + real :: wt_nudge_g(maxgrds) + real :: htime1, htime2 + + integer :: igrid_match(maxgrds,maxgrds) + + !------------------------------------------------------------------------------- + integer :: nud_cond + real :: tcond_beg, tcond_end, wt_nudgec(maxgrds),t_nudge_rc + + !------------------------------------------------------------------------------- + character(len=strl1), dimension(maxnudfiles) :: fnames_varf + character(len=14) , dimension(maxnudfiles) :: itotdate_varf + real, dimension(maxnudfiles) :: varf_times + character(len=strl1) :: varfpfx + real :: vtime1,vtime2,vwait1,vwaittot + integer :: nvarffiles,nvarffl + + !------------------------------------------------------------------------------- + +Contains + +!############################################################################## +Subroutine alloc_varinit (varinit,n1,n2,n3) + +use mem_grid +use mem_leaf, only:isoildat + +implicit none + + type (varinit_vars) :: varinit + integer, intent(in) :: n1,n2,n3 + +! Allocate arrays based on options (if necessary) + + if(nud_type == 1 .or. initial == 2) then + allocate (varinit%varup(n1,n2,n3)) + allocate (varinit%varvp(n1,n2,n3)) + allocate (varinit%varpp(n1,n2,n3)) + allocate (varinit%vartp(n1,n2,n3)) + allocate (varinit%varrp(n1,n2,n3)) + allocate (varinit%varuf(n1,n2,n3)) + allocate (varinit%varvf(n1,n2,n3)) + allocate (varinit%varpf(n1,n2,n3)) + allocate (varinit%vartf(n1,n2,n3)) + allocate (varinit%varrf(n1,n2,n3)) + allocate (varinit%varwts(n1,n2,n3)) + + if (nud_cond == 1) then + allocate (varinit%varcph(n1,n2,n3)) + allocate (varinit%varcfh(n1,n2,n3)) + allocate (varinit%varrph(n1,n2,n3)) + allocate (varinit%varrfh(n1,n2,n3)) + endif + + if (isoildat == 1 .or. snudcent > 0.) then + allocate (varinit%varsoilm1p(n2,n3)) + allocate (varinit%varsoilm2p(n2,n3)) + allocate (varinit%varsoilt1p(n2,n3)) + allocate (varinit%varsoilt2p(n2,n3)) + allocate (varinit%varsnowmp(n2,n3)) + allocate (varinit%varsnowdp(n2,n3)) + allocate (varinit%varsoilm1f(n2,n3)) + allocate (varinit%varsoilm2f(n2,n3)) + allocate (varinit%varsoilt1f(n2,n3)) + allocate (varinit%varsoilt2f(n2,n3)) + allocate (varinit%varsnowmf(n2,n3)) + allocate (varinit%varsnowdf(n2,n3)) + endif + endif + +return +END SUBROUTINE alloc_varinit + +!############################################################################## +Subroutine dealloc_varinit (varinit) + +implicit none + + type (varinit_vars) :: varinit + + if (allocated(varinit%varup)) deallocate (varinit%varup) + if (allocated(varinit%varvp)) deallocate (varinit%varvp) + if (allocated(varinit%varpp)) deallocate (varinit%varpp) + if (allocated(varinit%vartp)) deallocate (varinit%vartp) + if (allocated(varinit%varrp)) deallocate (varinit%varrp) + if (allocated(varinit%varuf)) deallocate (varinit%varuf) + if (allocated(varinit%varvf)) deallocate (varinit%varvf) + if (allocated(varinit%varpf)) deallocate (varinit%varpf) + if (allocated(varinit%vartf)) deallocate (varinit%vartf) + if (allocated(varinit%varrf)) deallocate (varinit%varrf) + if (allocated(varinit%varwts)) deallocate (varinit%varwts) + + if (allocated(varinit%varcph)) deallocate (varinit%varcph) + if (allocated(varinit%varcfh)) deallocate (varinit%varcfh) + if (allocated(varinit%varrph)) deallocate (varinit%varrph) + if (allocated(varinit%varrfh)) deallocate (varinit%varrfh) + + if (allocated(varinit%varsoilm1p)) deallocate (varinit%varsoilm1p) + if (allocated(varinit%varsoilm2p)) deallocate (varinit%varsoilm2p) + if (allocated(varinit%varsoilt1p)) deallocate (varinit%varsoilt1p) + if (allocated(varinit%varsoilt2p)) deallocate (varinit%varsoilt2p) + if (allocated(varinit%varsnowmp)) deallocate (varinit%varsnowmp) + if (allocated(varinit%varsnowdp)) deallocate (varinit%varsnowdp) + if (allocated(varinit%varsoilm1f)) deallocate (varinit%varsoilm1f) + if (allocated(varinit%varsoilm2f)) deallocate (varinit%varsoilm2f) + if (allocated(varinit%varsoilt1f)) deallocate (varinit%varsoilt1f) + if (allocated(varinit%varsoilt2f)) deallocate (varinit%varsoilt2f) + if (allocated(varinit%varsnowmf)) deallocate (varinit%varsnowmf) + if (allocated(varinit%varsnowdf)) deallocate (varinit%varsnowdf) + +return +END SUBROUTINE dealloc_varinit + +!############################################################################## +Subroutine filltab_varinit (varinit,varinitm,imean,n1,n2,n3,ng) + +use var_tables + +implicit none + + type (varinit_vars) :: varinit,varinitm + integer, intent(in) :: imean,n1,n2,n3,ng + integer :: npts + +! Fill arrays into variable tables + + npts=n1*n2*n3 + + if (allocated(varinit%varup)) & + CALL vtables2 (varinit%varup(1,1,1),varinitm%varup(1,1,1) & + ,ng, npts, imean, & + 'VARUP :3:mpti') + if (allocated(varinit%varvp)) & + CALL vtables2 (varinit%varvp(1,1,1),varinitm%varvp(1,1,1) & + ,ng, npts, imean, & + 'VARVP :3:mpti') + if (allocated(varinit%varpp)) & + CALL vtables2 (varinit%varpp(1,1,1),varinitm%varpp(1,1,1) & + ,ng, npts, imean, & + 'VARPP :3:mpti') + if (allocated(varinit%vartp)) & + CALL vtables2 (varinit%vartp(1,1,1),varinitm%vartp(1,1,1) & + ,ng, npts, imean, & + 'VARTP :3:mpti') + if (allocated(varinit%varrp)) & + CALL vtables2 (varinit%varrp(1,1,1),varinitm%varrp(1,1,1) & + ,ng, npts, imean, & + 'VARRP :3:mpti') + if (allocated(varinit%varuf)) & + CALL vtables2 (varinit%varuf(1,1,1),varinitm%varuf(1,1,1) & + ,ng, npts, imean, & + 'VARUF :3:mpti') + if (allocated(varinit%varvf)) & + CALL vtables2 (varinit%varvf(1,1,1),varinitm%varvf(1,1,1) & + ,ng, npts, imean, & + 'VARVF :3:mpti') + if (allocated(varinit%varpf)) & + CALL vtables2 (varinit%varpf(1,1,1),varinitm%varpf(1,1,1) & + ,ng, npts, imean, & + 'VARPF :3:mpti') + if (allocated(varinit%vartf)) & + CALL vtables2 (varinit%vartf(1,1,1),varinitm%vartf(1,1,1) & + ,ng, npts, imean, & + 'VARTF :3:mpti') + if (allocated(varinit%varrf)) & + CALL vtables2 (varinit%varrf(1,1,1),varinitm%varrf(1,1,1) & + ,ng, npts, imean, & + 'VARRF :3:mpti') + if (allocated(varinit%varwts)) & + CALL vtables2 (varinit%varwts(1,1,1),varinitm%varwts(1,1,1) & + ,ng, npts, imean, & + 'VARWTS :3:mpti') + + if (allocated(varinit%varcph)) & + CALL vtables2 (varinit%varcph(1,1,1),varinitm%varcph(1,1,1) & + ,ng, npts, imean, & + 'VARCPH :3:mpti') + if (allocated(varinit%varcfh)) & + CALL vtables2 (varinit%varcfh(1,1,1),varinitm%varcfh(1,1,1) & + ,ng, npts, imean, & + 'VARCFH :3:mpti') + if (allocated(varinit%varrph)) & + CALL vtables2 (varinit%varrph(1,1,1),varinitm%varrph(1,1,1) & + ,ng, npts, imean, & + 'VARRPH :3:mpti') + if (allocated(varinit%varrfh)) & + CALL vtables2 (varinit%varrfh(1,1,1),varinitm%varrfh(1,1,1) & + ,ng, npts, imean, & + 'VARRFH :3:mpti') + + npts=n2*n3 + + if (allocated(varinit%varsoilm1p)) & + CALL vtables2 (varinit%varsoilm1p(1,1),varinitm%varsoilm1p(1,1) & + ,ng, npts, imean, & + 'VARSOILM1P :2:mpti') + if (allocated(varinit%varsoilm2p)) & + CALL vtables2 (varinit%varsoilm2p(1,1),varinitm%varsoilm2p(1,1) & + ,ng, npts, imean, & + 'VARSOILM2P :2:mpti') + if (allocated(varinit%varsoilt1p)) & + CALL vtables2 (varinit%varsoilt1p(1,1),varinitm%varsoilt1p(1,1) & + ,ng, npts, imean, & + 'VARSOILT1P :2:mpti') + if (allocated(varinit%varsoilt2p)) & + CALL vtables2 (varinit%varsoilt2p(1,1),varinitm%varsoilt2p(1,1) & + ,ng, npts, imean, & + 'VARSOILT2P :2:mpti') + if (allocated(varinit%varsnowmp)) & + CALL vtables2 (varinit%varsnowmp(1,1),varinitm%varsnowmp(1,1) & + ,ng, npts, imean, & + 'VARSNOWMP :2:mpti') + if (allocated(varinit%varsnowdp)) & + CALL vtables2 (varinit%varsnowdp(1,1),varinitm%varsnowdp(1,1) & + ,ng, npts, imean, & + 'VARSNOWDP :2:mpti') + if (allocated(varinit%varsoilm1f)) & + CALL vtables2 (varinit%varsoilm1f(1,1),varinitm%varsoilm1f(1,1) & + ,ng, npts, imean, & + 'VARSOILM1F :2:mpti') + if (allocated(varinit%varsoilm2f)) & + CALL vtables2 (varinit%varsoilm2f(1,1),varinitm%varsoilm2f(1,1) & + ,ng, npts, imean, & + 'VARSOILM2F :2:mpti') + if (allocated(varinit%varsoilt1f)) & + CALL vtables2 (varinit%varsoilt1f(1,1),varinitm%varsoilt1f(1,1) & + ,ng, npts, imean, & + 'VARSOILT1F :2:mpti') + if (allocated(varinit%varsoilt2f)) & + CALL vtables2 (varinit%varsoilt2f(1,1),varinitm%varsoilt2f(1,1) & + ,ng, npts, imean, & + 'VARSOILT2F :2:mpti') + if (allocated(varinit%varsnowmf)) & + CALL vtables2 (varinit%varsnowmf(1,1),varinitm%varsnowmf(1,1) & + ,ng, npts, imean, & + 'VARSNOWMF :2:mpti') + if (allocated(varinit%varsnowdf)) & + CALL vtables2 (varinit%varsnowdf(1,1),varinitm%varsnowdf(1,1) & + ,ng, npts, imean, & + 'VARSNOWDF :2:mpti') + +return +END SUBROUTINE filltab_varinit + +END MODULE mem_varinit diff --git a/src/6.2.16/memory/var_tables.f90 b/src/6.2.16/memory/var_tables.f90 new file mode 100644 index 0000000..f34202f --- /dev/null +++ b/src/6.2.16/memory/var_tables.f90 @@ -0,0 +1,47 @@ +!############################################################################## +Module var_tables + +use grid_dims + +implicit none + + ! Define data type for main variable table + +type var_tables_r + + real, pointer :: var_p,var_m + integer :: npts, idim_type + integer :: ianal,imean,ilite,impti,impt1,irecycle_sfc + character(len=32) :: name + +end type + + ! Main variable table +type(var_tables_r) :: vtab_r(maxvars,maxgrds) + + ! "nvgrids" is "ngrids", for convenience +integer :: nvgrids + + ! number of variables for each grid +integer :: num_var(maxgrds) + + + + ! Define data type for scalar variable table + +type scalar_table + + real, pointer :: var_p,var_t + character(len=32) :: name + +end type + + ! Scalar variable table +type(scalar_table) :: scalar_tab(maxsclr,maxgrds) + + + ! number of scalars for each grid +integer :: num_scalar(maxgrds) + + +END MODULE var_tables diff --git a/src/6.2.16/memory/vtab_fill.f90 b/src/6.2.16/memory/vtab_fill.f90 new file mode 100644 index 0000000..3d7358c --- /dev/null +++ b/src/6.2.16/memory/vtab_fill.f90 @@ -0,0 +1,140 @@ +!############################################################################## +Subroutine vtables2 (var,varm,ng,npts,imean,tabstr) + +use var_tables + +implicit none + + real, target :: var,varm + integer, intent(in) :: ng,npts,imean + character (len=*), intent(in) :: tabstr + character (len=1) :: toksep=':' + character (len=32) :: tokens(10),ctab + integer :: ntok,nt,nv + + CALL tokenize1 (tabstr,tokens,ntok,toksep) + + num_var(ng)=num_var(ng)+1 + nv=num_var(ng) + + vtab_r(nv,ng)%var_p => var + vtab_r(nv,ng)%var_m => varm + + + vtab_r(nv,ng)%name=tokens(1) + vtab_r(nv,ng)%npts=npts + read(tokens(2),*) vtab_r(nv,ng)%idim_type + !print*,'tab:',nv,ng,vtab_r(nv,ng)%name ,vtab_r(nv,ng)%npts + + vtab_r(nv,ng)%ianal=0 + vtab_r(nv,ng)%imean=imean + vtab_r(nv,ng)%ilite=0 + vtab_r(nv,ng)%impti=0 + vtab_r(nv,ng)%impt1=0 + vtab_r(nv,ng)%irecycle_sfc=0 + + do nt=3,ntok + ctab=tokens(nt) + + if(ctab == 'anal' ) then + vtab_r(nv,ng)%ianal=1 + elseif(ctab == 'lite' ) then + vtab_r(nv,ng)%ilite=1 + elseif(ctab == 'mpti' ) then + vtab_r(nv,ng)%impti=1 + elseif(ctab == 'mpt1' ) then + vtab_r(nv,ng)%impt1=1 + elseif(ctab == 'recycle_sfc' ) then + vtab_r(nv,ng)%irecycle_sfc=1 + else + print*, 'Illegal table specification for var:', tokens(1),ctab + stop 'bad var table' + endif + + enddo + +return +END SUBROUTINE vtables2 + +!############################################################################## +Subroutine lite_varset () + +use var_tables +use io_params +use mem_grid, only:print_msg + +implicit none + +integer :: nv,ng,nvl,ifound + +! Loop over each variable input in namelist "LITE_VARS" and set +! lite flag in var_tables + +do ng = 1,nvgrids + vtab_r(1:num_var(ng),ng)%ilite = 0 +enddo + +do nvl=1,nlite_vars + ifound=0 + + do ng=1,nvgrids + + do nv=1,num_var(ng) + + if (vtab_r(nv,ng)%name == lite_vars(nvl) ) then + vtab_r(nv,ng)%ilite = 1 + ifound=1 + endif + + enddo + + enddo + + if(print_msg)then + if(ifound == 0) then + print*,'!---------------------------------------------------------' + print*,'! LITE_VARS variable does not exist in main variable table' + print*,'! variable name-->',lite_vars(nvl),'<--' + print*,'!---------------------------------------------------------' + else + print*,'!---------------------------------------------------------' + print*,'! LITE_VARS variable added--->',trim(lite_vars(nvl)) + print*,'!---------------------------------------------------------' + endif + endif + +enddo + +return +END SUBROUTINE lite_varset + +!############################################################################## +Subroutine vtables_scalar (varp,vart,ng,tabstr) + +use var_tables +use mem_grid, only:iprntstmt,print_msg + +implicit none + + real, target :: varp,vart + integer, intent(in) :: ng + character (len=*), intent(in) :: tabstr + character (len=1) :: toksep=':' + character (len=32) :: tokens(10),cname + integer :: ntok,nv + + CALL tokenize1 (tabstr,tokens,ntok,toksep) + cname=tokens(1) + +! Fill in existing table slot + + num_scalar(ng)=num_scalar(ng)+1 + nv=num_scalar(ng) + scalar_tab(nv,ng)%name = cname + + scalar_tab(nv,ng)%var_p => varp + scalar_tab(nv,ng)%var_t => vart + if(iprntstmt>=1 .and. print_msg)print*,'Scalars: ',ng,nv,scalar_tab(nv,ng)%name + +return +END SUBROUTINE vtables_scalar diff --git a/src/6.2.16/micro/aero_deposit.f90 b/src/6.2.16/micro/aero_deposit.f90 new file mode 100644 index 0000000..d0d2817 --- /dev/null +++ b/src/6.2.16/micro/aero_deposit.f90 @@ -0,0 +1,933 @@ +!############################################################################## +Subroutine deposition_driver (i,j,m1,xztop,rtgt & + ,xrv,xtheta,xup,xvp & + ,dn0 & + ,xpi0,xpp & + ,xlclass,xparea & + ,xustar,xprough,monthx & + ) + +!------------------Routine deposition_driver----------------------------------- +!This routine calculates dry deposition over water and vegetation and +!wet-precipitation scavenging via each hydrometeor species. Wet scavenging +!is allowed in-cloud and below-cloud by using 3D precipitation rates to +!apply to the calculation of scavenging coefficient. If anything we may +!still underestimate precipitation scavenging in-cloud by ice particles. +!Wet scavenging is parameterized according to Seinfeld and Pandis (2006). +!Dry deposition over water parameterized according to Slinn & Slinn (1980). +!Dry deposition over vegetation parameterized according to Slinn (1982). +!------------------------------------------------------------------------------ + +use mem_grid +use aero_include +use rconstants +use micphys + +implicit none + +! Some local constants +real, parameter:: AA = 2.53E11 , B = 5.42E3, smalle = 0.622, xubmin = 0.1 + +! Hydromet category distinctions +integer :: lhcat + +! define extern variables (input) +integer :: k,rundep,lcat +integer :: i,j,m1,monthx +real ,dimension(m1) :: xztop,xrv,xpi0,xpp,xtheta,xup,xvp +real ,dimension(npatch)::xustar,xlclass,xparea,xprough +real :: netrough !net roughness length - patch roughness +real :: rtgt !vertical grid spacing correction over topography + +! define extern variables (output) +real, dimension(8) :: acon_remove,amas_remove +real :: totalmasremove,totalconremove,removerat + +!Storage term for particles settling into lower layers +real, dimension(m1) :: gaincon,gainmas + +!Vertical variation of particle size and density +!rdry = dry particle radius (cm) as defined in mic_init +!rdryum = dry particle radius (microns) +!rwet = particle radius in wet conditions (microns) +real, dimension(m1) :: rdry,rdryum,rwet,dn0 + +real:: vd ,& ! dry deposition for each grid + ttair ,& ! air temperature (in k) + tmpvd ,& ! dry deposition for each patch + es ,& ! saturated water vapor pressure + eee ,& ! water pressure + ppress ,& ! air pressure (pa) + rh ,& ! relative humidity + speed ,& ! wind speed for all levels above the first + ustar ,& ! friction velocity of the surface + picpi ,& ! pressure term to convert theta to temperature + patarea ,& ! land patch area fraction 0.0 to 1.0 + xmu ,& ! air viscosity + xlamda ,& ! air free path + cc ,& ! slip correction factor + diff ,& ! Brownian diffusion coefficient + scarate ,& ! scavenging rate [s^-1] + zthick ,& ! Thickness of each layer [m] + xdeltat ,& ! timestep + u_10 ,& ! 10-meter U wind (m/s) + v_10 ,& ! 10-meter V wind (m/s) + ref_10 ,& ! wind speed (m/s) at 10m reference height + totrr ,& ! Total rain rate = conprr + pcprr [mms^-1] + Dpc ,& ! Hydrometer collector size (m) + epsilonsol ,& ! particle solubility fraction 0.0 -> 1.0 + rhodry ,& ! dry particle density (kg/m3) + rhowet ! deliquesced particle density (kg/m3) +integer:: np, & ! surface patch loop indices + abot,atop, & ! vertical layer loop indices + itype, & ! patch type + iusetype, & ! sfc types (note itype 30, but iusetype only 15) + seasoninx ! seasonal index + +!Loop deposition driver over all aerosol types +do acat=1,aerocat + + !Set default deposition flag to off until criteria are met + rundep=0 + + !Set up profile of aerosol properties if they exist + if((acat==1 .and. iaerosol>0) .or. & ! CCN + (acat==2 .and. iaerosol>0) .or. & ! GCCN + (acat==3 .and. idust>0) .or. & ! Small dust mode + (acat==4 .and. idust>0) .or. & ! Large dust mode + (acat==5 .and. isalt>0) .or. & ! Salt film mode + (acat==6 .and. isalt>0) .or. & ! Salt jet mode + (acat==7 .and. isalt>0) .or. & ! Salt spume mode + (acat==8 .and. iccnlev>=2) .or. & ! Small regenerated aerosol + (acat==9 .and. iccnlev>=2)) then ! Large regenerated aerosol + rundep=1 + epsilonsol = aero_epsilon(acat) + + !Initially compute dry radius (meters) + do k = 2,m1-1 + if(aerocon(k,acat)>mincon .and. aeromas(k,acat)>=minmas) then + rdry(k)=((0.23873/aero_rhosol(acat) & + *aeromas(k,acat)/aerocon(k,acat))**(1./3.))/aero_rg2rm(acat) + else + rdry(k)=0.005e-6 + endif + enddo + endif + + if(rundep==1) then !Run aerosol deposition if deposition turned on + +!#####Saleeby testing +!do k = 1,m1-1 +!rdry(k) = 1.e0 / 2.0 * 1.e-6 +!xup(k) = 15.0 +!xvp(k) = 0.0 +!enddo +!#####Saleeby testing + + !Must first convert aerosol from x/kg to x/m3 for falling + !Similar to sedimentation of hydrometeors + do k = 2,m1-1 + aerocon(k,acat) = aerocon(k,acat) * dn0(k) + aeromas(k,acat) = aeromas(k,acat) * dn0(k) + !Aerosol and solubility tracking + if(iccnlev>=2.and.itrkepsilon==1.and.(acat==8.or.acat==9)) & + regenmas(k,acat-7) = regenmas(k,acat-7) * dn0(k) + enddo + + !Radii in mic_init are in meters: we need these to be in um + !Also check for positive concentration and zero or negative mass + do k = 2,m1-1 + rdryum(k) = rdry(k)*1.e6 + if((aerocon(k,acat)>mincon .and. aeromas(k,acat)<=0.) & + .or.aeromas(k,acat)<0.0.or.aerocon(k,acat)<0.0) then + print*,'Aerosol deposition check (ngrid,k,i,j,acat):',ngrid,k,i,j,acat + print*,'aerocon,aeromas,r',aerocon(k,acat),aeromas(k,acat),rdry(k) + stop + endif + enddo + + !Time step + xdeltat = dtlt + + ! Check for bottom and top of aerosol layer; operations only on these layers + abot = 2 + k = abot + do while (k .le. m1-1 .and. aerocon(k,acat) .le. mincon) + abot = k + k = k + 1 + enddo + atop = abot + + !Find top layer without assuming continuous dust in the vertical + !This allows for discrete dust layers with clean air between + if ((m1-1-abot) .ge. 1) then + do while (k .le. m1-1) + if (aerocon(k,acat) .gt. mincon) atop = k + k = k + 1 + enddo + endif + + !Loop wet and dry deposition over layers containing aerosol + if ((abot .le. atop) .and. (abot .lt. m1-1)) then + do k = abot,atop + !calculate layer thickness + zthick = xztop(k) - xztop(k-1) + !rh and temp + picpi = (xpi0(k) + xpp(k)) * cpi + ppress = p00 * picpi ** cpor + ttair = xtheta(k) * picpi + es = AA*exp(-1.*B/ttair) + eee = ppress*xrv(k)/smalle + rh = eee/es + + !Aerosol and solubility tracking + if(iccnlev>=2 .and. itrkepsilon==1 .and. (acat==8.or.acat==9) & + .and. aeromas(k,acat)>0.) & + epsilonsol = min(1.0,regenmas(k,acat-7)/aeromas(k,acat)) + + !Set default density (kg/m3) in k loop and update if particle deliquesced + rhodry=aero_rhosol(acat) + +!#####Saleeby testing +!rhodry = 1769. !(kg/m3) +!rh = 0.999 +!epsilonsol = 1.0 +!#####Saleeby testing + + !Using Fitzgerald (1975,JAM) to estimate wet particle size. His paper + !requires 60% solubility. Paper predicts equilibrium radius above ~80% + !RH, but we want instantaneous deliquesced size. We limit max radius + !to 10um for use in gravitational settling equation. Return wet particle + !size and volume weighted density of deliquesced particle. + if (epsilonsol .lt. 0.60 .or. rh .lt. 0.75) then + rwet(k) = rdryum(k) + rhowet = rhodry + else + CALL cal_dwet (ttair,rh,rdryum(k),rwet(k),aero_vanthoff(acat) & + ,epsilonsol,rhodry,rhowet) + endif + +!#####Saleeby testing +!rwet(k)=rdryum(k) +!#####Saleeby testing + + !calculate air viscosity, Schmidt number etc in ambient air + !press is in pa, the input needs kpa. Input Rwet in microns. + CALL calvar (ttair,ppress/1000.,rwet(k)*2.,xmu,xlamda,cc,diff) + + !Precip Scavenging for aerosols (Saleeby & van den Heever 2013) + !Slinn (1983) method detailed in (X.Wang et al. 2010; Seinfeld & Pandis 2006) + + !Added in-cloud scavenging for aerosols that do not get nucleation scavenged. + !Currently assuming spheres for snow/aggr scavenging + !Literature suggests snow scavenging coefficients are higher than for + !rain, so the spherical assumption likely sets a lower bound for snow + !scavenging for now. + + if(level==3 .and. aerocon(k,acat) > mincon) then + do lcat=2,8 + acon_remove(lcat)=0.0 + amas_remove(lcat)=0.0 + lhcat = jhcat(k,lcat) + !Model level Hydromet Species precip rate (mm/s) + totrr = pcpvx(k,lcat) + ScaRate = 0. + +!#####Saleeby testing +!totrr=2.777e-4 !1mm/hr pcpvx(k,lcat) +!rx(k,lcat)=4.192e-9 !(kg/kg) gives Dpc=.0002m,.2mmrain +!cx(k,lcat)=1. !(#/kg) +!#####Saleeby testing + + !Do scavenging if precip rate > 0.01 mm/hr (2.777e-6 mm/sec) + if (totrr>2.777e-6 .and. rx(k,lcat)>1.e-10 .and. cx(k,lcat)>1.e-6) then + CALL wet_scavenge_slinn (k,rhowet,totrr,rwet(k),xmu,cc & + ,diff,dn0(k),ScaRate,lcat,cfmas(lhcat),pwmas(lhcat) & + ,cfvt(lhcat),pwvt(lhcat),Dpc) + +!#####Saleeby testing +!if(acat==1.and.lcat==2.and.i==15.and.j==1.and.k==3)then +!print*,'Epsilonsol,RH,rhod,rhow',epsilonsol,rh,rhodry,rhowet +!print*,'Dry R,D(um),Epsilon,RH: ',rdryum(k),rdryum(i)*2.0 +!print*,'Wet R,D(um),Scavrate(/hr):',rwet(k),rwet(k)*2.0,ScaRate*3600. +!endif +!#####Saleeby testing + + acon_remove(lcat) = ScaRate*aerocon(k,acat)*xdeltat + amas_remove(lcat) = ScaRate*aeromas(k,acat)*xdeltat + endif + enddo + + !Reduce scavenging if necessary so we do not over-remove aerosols + totalconremove=0.0 + totalmasremove=0.0 + do lcat=2,8 + totalconremove = totalconremove + acon_remove(lcat) + totalmasremove = totalmasremove + amas_remove(lcat) + enddo + if(totalconremove > aerocon(k,acat)) then + removerat = 0.999 * aerocon(k,acat) / totalconremove + do lcat=2,8 + acon_remove(lcat) = acon_remove(lcat) * removerat + enddo + endif + if(totalmasremove > aeromas(k,acat)) then + removerat = 0.999 * aeromas(k,acat) / totalmasremove + do lcat=2,8 + amas_remove(lcat) = amas_remove(lcat) * removerat + enddo + endif + + !Check to see that we do not over-remove aerosols by scavenging + totalconremove=0.0 + totalmasremove=0.0 + do lcat=2,8 + totalconremove = totalconremove + acon_remove(lcat) + totalmasremove = totalmasremove + amas_remove(lcat) + enddo + + !Finally remove the aerosols via wet scavenging + do lcat=2,8 + aerocon(k,acat) = aerocon(k,acat) - acon_remove(lcat) + aeromas(k,acat) = aeromas(k,acat) - amas_remove(lcat) + !Aerosol and solubility tracking + if(iccnlev>=2) then + cnmhx(k,lcat) = cnmhx(k,lcat) + amas_remove(lcat) + if(itrkepsilon==1) then + snmhx(k,lcat) = snmhx(k,lcat) + amas_remove(lcat) * epsilonsol + if(acat==8.or.acat==9) & + regenmas(k,acat-7)=regenmas(k,acat-7)-amas_remove(lcat)*epsilonsol + endif + if(itrkdust==1 .and. (acat==3.or.acat==4)) & + dnmhx(k,lcat) = dnmhx(k,lcat) + amas_remove(lcat) + endif + enddo + endif !wet scavenge if micro level=3 at least mincon + + !Dry deposition for lowest layer: includes vegetative effects + Vd = 0. + if (k .eq. 2) then + do np = 1,npatch + patarea = xparea(np) + + if (patarea .gt. 0.009 ) then + itype = nint(xlclass(np)) + ustar = max(xustar(np),xubmin) + +!#####Saleeby testing +!itype = 0 +!ustar = 0.43 !ocean +!ustar = 0.97 !vegetation +!#####Saleeby testing + + !Water: don't distinguish between ocean & fresh + if (itype .eq. 0 .or. itype .eq. 1) iusetype = 0 + + !trees + if (itype .eq. 4 .or. itype .eq. 20) iusetype = 1 + if (itype .eq. 5) iusetype = 3 + if (itype .eq. 6) iusetype = 4 + if (itype .eq. 7) iusetype = 2 + + !short and tall grass are all grass + if (itype .eq. 8 .or. itype .eq. 9 .or. & + itype .eq. 18) iusetype = 6 + + !semi desert and deserts are deserts + if (itype .eq. 3 .or. itype .eq. 10) iusetype = 8 + + !tundra + if (itype .eq. 11) iusetype = 9 + + !evergreen, deciduous and mixed shrub + if (itype .eq. 12 .or. itype .eq. 13 .or. itype .eq. 14) iusetype = 10 + + !crops/mixed farmer, irregular crop, and bog/marsh + if (itype .eq. 15 .or. itype .eq. 16) iusetype = 7 + + !mixed cover + !if ( itype .eq. 22) iusetype = 5 + + !urban + if ( itype .eq. 19) iusetype = 15 + + !bog/marsh + if ( itype .eq. 17) iusetype = 11 + + !ice + if ( itype .eq. 2) iusetype = 12 + + if ( monthx .lt. 6 .and. monthx .ge. 3 ) seasoninx = 5 ! spring + if ( monthx .lt. 3 .or. monthx .gt. 11) seasoninx = 4 ! winter + if ( monthx .ge. 6 .and. monthx .le. 8) seasoninx = 1 ! summer + if ( monthx .gt. 8 .and. monthx .le. 11) seasoninx = 2 ! summer + !IF snow is present, must set seasoninx = 3 + +if(ISCM>=1)then + !SaleebySCM:Override month to be similar for SCM + seasoninx = 5 +endif + + !Net roughness length for deposition velocity + netrough = xprough(np) + +if(ISCM>=1)then + !SaleebySCM:Override net roughness length to be similar to SCM + if(np == 1) netrough=0.005 + if(np > 1) netrough=0.05 +endif + + !Use vd_overwater for iusetype = 0 , otherwise use vd_overveg + if (iusetype .eq. 0) then + if (netrough .eq. 0.) then + ref_10 = sqrt(xup(2)**2. + xvp(2)**2.) + else + u_10 = 1./log(zthick/netrough) * xup(1) * log(10./netrough) + v_10 = 1./log(zthick/netrough) * xvp(1) * log(10./netrough) + ref_10 = sqrt(u_10**2. + v_10**2.) + endif + +if(ISCM>=1)then + !SaleebySCM:Override U* when not inputting U* from land-surface model + ustar = max((ref_10*0.4)/(log(zthick/netrough)),xubmin) +endif + + CALL vd_overwater (k,rwet(k)*2.,rdryum(k)*2.,ustar,ref_10,xmu, & + cc,rhodry,rhowet,diff,dn0(k),tmpvd) + else + if (z0(iusetype,seasoninx) .eq. 0.) then + ref_10 = sqrt(xup(2)**2. + xvp(2)**2.) + else + u_10 = 1/log(zthick/z0(iusetype,seasoninx)) * xup(1) & + * log(10./z0(iusetype,seasoninx)) + v_10 = 1/log(zthick/z0(iusetype,seasoninx)) * xvp(1) & + * log(10./z0(iusetype,seasoninx)) + ref_10 = sqrt(u_10**2. + v_10**2.) + endif + +if(ISCM>=1)then + !SaleebySCM:Override U* when not inputting U* from land-surface model + ustar = max((ref_10*0.4)/(log(zthick/z0(iusetype,seasoninx))),xubmin) +endif + + CALL vd_overveg (rwet(k)*2.,ref_10,ustar,xmu,cc & + ,diff,rhowet,iusetype,seasoninx,dn0(k),tmpvd) + endif + Vd = Vd + tmpVd * patarea + endif ! if patch area is > 0 + enddo ! looping over all patches at lowest layer + endif ! Dry deposition at lowest layer + + !Dry deposition for all layers above the lowest + if (k .gt. 2) then + speed = sqrt(xup(k)**2. + xvp(k)**2.) + np = 1 !Tells code to use deposition over water for all upper layers + ustar = max(xustar(np),xubmin) + +if(ISCM>=1)then + !SaleebySCM:Override U* when not inputting U* from land-surface model + ustar = xubmin +endif + + CALL vd_overwater (k,rwet(k)*2.,rdryum(k)*2.,ustar,speed,xmu & + ,cc,rhodry,rhowet,diff,dn0(k),tmpvd) + Vd = tmpvd + endif !deposition for upper layers + +!#####Saleeby testing +!if(acat==1.and.i==5.and.j==5.and.k==3) & +! print*,'Grav Settling V (cm/s):',Vd*100. +!if(acat==1.and.i==5.and.j==5.and.k==2) & +! print*,'Sfc Settling V (cm/s):',Vd*100.,iusetype +!#####Saleeby testing + + !Cascade aerosols down through each vertical layer + gaincon(k) = aerocon(k,acat)*Vd/zthick/rtgt*xdeltat + gainmas(k) = aeromas(k,acat)*Vd/zthick/rtgt*xdeltat + ! Limit gaincon to be <= aerocon. If gaincon > aerocon, it will + ! cause aerocon to go negative, plus it will cause an artificial + ! source on the k-1 layer in the loop below that adds the falling + ! particles from the k+1 layer to the k layer. + if (gaincon(k) .gt. aerocon(k,acat)) then + gaincon(k) = aerocon(k,acat) + endif + aerocon(k,acat) = aerocon(k,acat) - gaincon(k) + if (gainmas(k) .gt. aeromas(k,acat)) then + gainmas(k) = aeromas(k,acat) + endif + aeromas(k,acat) = aeromas(k,acat) - gainmas(k) + !Aerosol and solubility tracking + if(iccnlev>=2.and.itrkepsilon==1.and.(acat==8.or.acat==9)) & + regenmas(k,acat-7) = regenmas(k,acat-7)-gainmas(k)*epsilonsol + enddo !Wet and Dry deposition loop over all vertical layers + endif !End conditional deposition over layers containing aerosols + + !Add falling particles to layer below if more than 1 layer is present + if (abot .lt. atop) then + if (abot .eq. 2) then + do k = abot,atop-1 + aerocon(k,acat) = aerocon(k,acat) + gaincon(k+1) + aeromas(k,acat) = aeromas(k,acat) + gainmas(k+1) + !Aerosol and solubility tracking + if(iccnlev>=2.and.itrkepsilon==1.and.(acat==8.or.acat==9) & + .and.aeromas(k+1,acat)>0.) then + epsilonsol = min(1.0,regenmas(k+1,acat-7)/aeromas(k+1,acat)) + regenmas(k,acat-7) = regenmas(k,acat-7)+gainmas(k+1)*epsilonsol + endif + enddo + else + do k = abot-1,atop-1 + aerocon(k,acat) = aerocon(k,acat) + gaincon(k+1) + aeromas(k,acat) = aeromas(k,acat) + gainmas(k+1) + !Aerosol and solubility tracking + if(iccnlev>=2.and.itrkepsilon==1.and.(acat==8.or.acat==9) & + .and.aeromas(k+1,acat)>0.) then + epsilonsol = min(1.0,regenmas(k+1,acat-7)/aeromas(k+1,acat)) + regenmas(k,acat-7) = regenmas(k,acat-7)+gainmas(k+1)*epsilonsol + endif + enddo + endif + endif + + !Lastly, convert aerosol back from x/m3 to x/kg + !Similar to sedimentation of hydrometeors + do k = 2,m1-1 + aerocon(k,acat) = aerocon(k,acat) / dn0(k) + aeromas(k,acat) = aeromas(k,acat) / dn0(k) + if(aerocon(k,acat)<0. .or. aeromas(k,acat)<0.)then + print*,'Aerosol Deposition Negative:',k,i,j,aerocon(k,acat),aeromas(k,acat) + stop + endif + !Aerosol and solubility tracking + if(iccnlev>=2.and.itrkepsilon==1.and.(acat==8.or.acat==9)) then + regenmas(k,acat-7) = regenmas(k,acat-7) / dn0(k) + if(regenmas(k,acat-7)<0.)then + print*,'RegenNeg',k,i,j,regenmas(k,acat-7),aeromas(k,acat) + stop + endif + endif + enddo + + endif !run deposition if turned on for aerosol type +enddo !end looping over each aerosol type + +return +END SUBROUTINE deposition_driver + +!############################################################################## +Subroutine cal_dwet (T,rh,ddry,dwet,vhoff,epsilonsol,rhodry,rhowet) + +!This routine calculates the growth of size for ammonium sulfate +!follwoing formula Fitzgerald 1975, J. Appl. Meteo.,1044-1049. +!Equation r = A * rd ** B requires radius in microns +!r100 growth equation computes in meters and needs converstion +!to microns before applying to "ddry" which is in microns +!Then return radius in microns + +implicit none + +!Extern variables +real :: t,rh,ddry,dwet,epsilonsol,rhodry,rhowet,volumeratio +integer :: vhoff + +!Internal variables +real :: alpha,beta,phi,xk1,xk2,xe,estimat_dwet,rhmax + +!Use rhmax for beta and alpha terms to prevent possible +!division by zero or very small number +rhmax=min(rh,1.000) + +!calculate beta +beta = exp(0.00077*rhmax/(1.009-rhmax)) + +! calculate phi +phi = 1.058 +if (rh.gt.0.97) then + phi = 1.058-0.0155*(rhmax-0.97)/(1.02-rhmax**1.4) +endif + +!calculate alpha +alpha = 1.2*exp(0.066*rhmax/(phi-rhmax)) +xk1 = 10.2 - 23.7*rhmax + 14.5*rhmax**2. +xk2 = -6.7 + 15.5*rhmax - 9.2*rhmax**2. +xe = epsilonsol +alpha = alpha*(1. - xk1*(1.-xe)-xk2*(1.-xe*xe)) + +if (rh .le. 0.001) then + dwet = ddry +endif + +estimat_dwet = alpha * (ddry)**beta + +! note when RH =1 the formla is (i*Mw*Rv*r0*T/(2*sigma*Ms))^0.5*rd^1.5 +! i: vant hoff constant, defined as number of inon versus total # +! of solutions, NaCL(i=2), CaCl2(i=3), (NH4)2SO4(i=3) +! sigma: surface tension, Newton/M, for water is 0.07 +! T: temperature (K) +! Mw: molecular weight of water, 18g/mol +! Ms: molecular weight of (NH4)2SO4, 132g/mol +! rhodry: density of particle, for ammonium sulfate is 1769kg/m3. +! rhowet: deliquesced solution droplet density +! Rv: water vapor constant, 461 J/K-kg. +! epsilonsol: epsilon solubility fraction 0.0->1.0 +! Can use molecular weights in non-m.k.s. units since they are a ratio below + +if (rh .ge. 1) then + dwet=sqrt((vhoff*epsilonsol*18.*461.*rhodry*T)/(2.*0.07*132.*1.e6))*(ddry)**1.5 + if (dwet .lt. ddry) dwet = ddry +endif + +! The following double checks if caculated wet radius greater than +! the one at rh = 1., then set it to 1. Because Fitzgerald 1975 only +! has the formula for r > 0.08um + +if (rh.lt.1 .and. rh.gt.0.001) then + dwet=sqrt((vhoff*epsilonsol*18.*461.*rhodry*T)/(2.*0.07*132.*1.e6))*(ddry)**1.5 + if (dwet .lt. ddry) dwet = ddry + if (estimat_dwet .lt. dwet) dwet = max(ddry,estimat_dwet) +endif + +!Limit max size to 20um diameter (10um radius) since this is used in +!gravitation settling for particles with Re<0.1 (~20micron diam particles) +!Plus this is the equilibrium size and may be overestimated for large +!particles since they take longer to reach equilibrium. What we really +!need is instantaneous deliquescent size. +dwet = min(10.,dwet) + +!If particle swells, compute density of particle + water +volumeratio = ddry**3 / dwet**3 +rhowet = rhodry * volumeratio + 1000. * (1.-volumeratio) + +if(rhowet<1000.0 .or. rhowet>2659.0 .or.rhodry<1000.0 .or. rhodry>2659.0) then + print*,'Bad aerosol density in cal_dwet',rhodry,rhowet,ddry,dwet & + ,volumeratio,estimat_dwet,rh,rhmax + stop +endif + +return +END SUBROUTINE cal_dwet + +!############################################################################## +Subroutine calvar (T,P,dp,xmu,xlamda,cc,diff) + +implicit none + + !For calculating viscosity, free path, slip correction factor + !and Brownian diffusion coefficient + + !Extern variables + real :: T,p,dp,xmu,xlamda,cc,diff + + !Internal Variables + real :: tr, pr, s, xmur, xlamdar, pi, xk + + !Tr: reference temperature, S:Sutherland constant + !xmur: air viscosity at the standard reference atm (kg/m/s) + !both temperature and pressure are K + Tr = 293.15 ! kelvin + Pr = 101.3 ! kPa + S = 110.4 + xmur=1.8203e-5 ! kg/m/s + + !see Baron and Willeke, equation 3-10, + !in the book edits K. Willeke and P. Baron, p28. (kg/m/s) + xmu = xmur*(Tr+S)/(T+S)*(T/Tr)**1.5 + + !Seinfeld and Pandis (2006) eq.(9.7) + !Mean free path length at reference atmosphere 0.0651um + xlamdar = 0.0651 + !Baron and Willeke(2001) eq.(4-6) + !Mean free path length at (t,p) in microns + xlamda = xlamdar*(pr/p)*(T/Tr)*((1.+S/Tr)/(1.+S/T)) + + !calcualte the slip correction factor CC + !see Baron and Willeke(2001), equation 4-8 + !edit: using eq4-9 instead + !cc = 1. + 1./p*dp*(15.60 + 7.00*exp(-0.059*p*dp)) + + !slip correction factor from Seinfeld and Pandis (2006) eq.(9.34) + cc = 1.0 + 2.0*xlamda/dp * (1.257 + 0.4*exp(-0.55*dp/xlamda)) + + !Aerosol diffusivity (m2/s) from + !Seinfeld and Pandis (2006) eq. (9.73) + !note dp is in unit of microns so we correct with a 1.e6 factor + pi = 3.1415926 + !Boltzmann constant + xk = 1.3807e-23 + !Aerosol diffusivity (m2/s) + Diff =xk*T*Cc/(3.*pi*xmu*dp)*1.e6 + +return +END SUBROUTINE calvar + +!############################################################################## +Subroutine vd_overwater (k,dpwet,dpdry,ustar,uh,xmu,cc,r0d,r0w,diff,rair,vd) + +!*********************************************************************** +! calculate the deposition velocity based on the Slinn and Slinn (1980) +!*********************************************************************** + +implicit none + +! calcualte the dry deposition velocity based on slinn and slinn 1980. +! input: dpwet : wet particle diameter +! dpdry : dry particle diameter +! uh : wind speed at reference height +! xmu : air viscosity +! xlamda: air free path +! cc : slip correction factor +! diff : diffusion coefficient +! r0d : dry particle density, kg/m3 +! r0w : wet solution drop density, kg/m3 +! vgwet : wet gravitational settling +! vgdry : dry gravitational settling +! k : layer, used to determine whether to include surface effects +! output: +! vd : dry deposition velocity + +!Extern Variables +real, intent(IN) :: dpwet,dpdry,uh,xmu,cc,r0d,r0w,diff,rair,ustar +real, intent(OUT) :: vd +integer :: k + +!Internal Variables +real :: cd,g,sc,vgwet,vgdry,st,xkcprime,xkdprime,xkc,xkd,kmpa + +! kmpa: 0.4 von Karmans constant +! rair: density of air +! g: gravity +! sc: schmidt number +! st: stokes number +! cd: drag coefficient + +!Constants +kmpa = 0.4 +g = 9.8 + +!Note: Multiply gravitation settling velocity by 1.0e-12 since dpwet +!and dpdry are in microns and we need meters (squared) for m/s + +if (k .gt. 2) then + ! Wet gravitation setting velocity - Baron & Willeke(2001) eq.3-28 + vd = r0w*dpwet**2.*g*Cc/(18.*xmu)*1.0e-12 +else + ! Wet gravitation setting velocity - Baron & Willeke(2001) eq.3-28 + vgwet = r0w*dpwet**2*g*Cc/(18.*xmu)*1.0e-12 + ! Dry gravitation setting velocity - Baron & Willeke(2001) eq.3-28 + vgdry = r0d*dpdry**2*g*Cc/(18.*xmu)*1.0e-12 + ! Drag coefficient - Slinn & Slinn(1980) Text + Cd = ustar**2 / Uh**2 + ! Stokes or impaction number - Slinn & Slinn(1980) Text + st = vgwet/g*(ustar**2/(xmu/rair)) + ! Schmidt number - Slinn & Slinn(1980) Text + Sc = xmu/(rair*diff) + if (uh .le. 1.e-10) then + ! Gravitation setting velocity - Baron & Willeke(2001) eq.3-28 + vd = r0w*dpwet**2*g*Cc/(18.*xmu)*1.0e-12 + else + ! kc' - Slinn & Slinn(1980) eq.6 + xkcprime = 1./(1.-kmpa)*Cd*uh + ! kd' - Slinn & Slinn(1980) eq.5 + xkdprime = 1./kmpa*Cd*Uh*(1./sqrt(Sc)+10.**(-3./st)) + ! kc - Slinn & Slinn(1980) eq.4 + xkc = xkcprime + vgdry + ! kd - Slinn & Slinn(1980) eq.4 + xkd = xkdprime + vgwet + ! Deposition velocity -!Slinn & Slinn(1980) eq.4 + vd = 1./(1./xkc + 1./xkd - vgdry/(xkc*xkd)) + endif +endif + +return +END SUBROUTINE vd_overwater + +!############################################################################## +Subroutine vd_overveg (dpwet,uh,ustar,xmu,cc,diff,r0w,sfcinx,seasoninx,rair,vd) + +!----------------------------------------------------------------------------- +! calculate the dry deposition velocity on different surfaces +! Vd = Vg + 1/(Ra+Rs), Vg: gratitational settling, +! Ra: aerodynamic resistances +! Rs: surface resistance +!This routine serves deposition at the lowest layer of the model: +!Both surface and aerodynamic resistance are factored into the net +!Fallspeed +!Based on Slinn (1981) +!---------------------------------------------------------------------------- + +use aero_include + +implicit none + +! Input: dpwet: wet particle diameter +! uh: wind speed +! ustar: friction velocity +! xmu: air visconsity +! cc: slip correction factor +! diff: diffusion coefficient +! r0w: wet solution drop density, kg/m3 +! sfcinx: sfc type index +! seasoninx: seasonal index +! vgwet: gravitational settling of wet particle +! vgdry: dry particle gravitational settling +! Output: +! vd: dry deposition velocity + +!Extern Variables +real, intent(IN) :: dpwet,uh,ustar,xmu,cc,diff,r0w,rair +real, intent(OUT) :: vd +integer, intent(IN) :: sfcinx,seasoninx + +!Internal Variables +real :: g,e0,sc,vgwet,ra,eb,st,eim,ein,R1,rs,kmpa + +! kmpa: 0.4 von Karmans constant +! Cd: drag coefficient +! e0: = 3 , an empirical constant +! g: gravity +! sc: schmidt number +! Ra: aerodynamic resistance [ms^-1] +! Rs: surface resistance +! St: Stokes number +! Eb: contribution to collection efficiency from Brownian diffusion +! EIM: " " particle inertia/impaction +! EIN: " " from interception +! R1: Rebound fraction + +!Constants +kmpa = 0.4 +g = 9.8 +e0 = 3. + +!Note: Multiply gravitation settling velocity by 1.0e-12 since dpwet +!and dpdry are in microns and we need meters (squared) for m/s + + !Wet gravitation setting velocity - Baron & Willeke(2001) eq.3-28 + Vgwet = r0w*dpwet**2.*g*Cc/(18.*xmu)*1.0e-12 + + Sc = xmu/(rair*diff) + Ra = uh/(ustar**2.) + Eb = Sc ** (-1.0 * ggamma(sfcinx,seasoninx)) + if (sfcinx.ne.8 .and. sfcinx.ne.9 .and. sfcinx.ne.12) then + St = (Vgwet * Ustar) / (A(sfcinx,seasoninx)*g*1.0e-3) + else + St = (Vgwet * Ustar**2.) / (xmu/rair*g) + endif + Eim = (St / (alpha(sfcinx,seasoninx) + St))**2. + if (sfcinx.ne.8 .and. sfcinx.ne.9 .and. sfcinx.ne.12) then + Ein = 0.5 * (dpwet*1.0e-6 / (A(sfcinx, seasoninx)*1.0e-3))**2. + else + Ein = 0.0 + endif + if (sfcinx.eq.0) then + R1 = 1. !No rebound from wet surfaces + else + R1 = exp ( -1.*St**0.5 ) + endif + Rs = 1./(e0*ustar*(Eb + Eim + Ein)*R1) + + Vd = Vgwet + 1./(Ra+ Rs) + +return +END SUBROUTINE vd_overveg + +!############################################################################## +Subroutine wet_scavenge_slinn (k,Rp,RR,Rwet,xmu,cc,diff & + ,Rair,ScaRate,lcat,cfmasx,pwmasx,cfvtx,pwvtx,Dpc) + +!-------------------------------------------------------------------- +! Calculate the wet depostion below the cloud based on the scheme by +! Slinn (1983), also reference by Rosenfeld 1990s air pollutions. +!-------------------------------------------------------------------- +! input parameters: particle size,temperature,pressure,rain rate +! output parameters: scavenging rate (s-1). +!-------------------------------------------------------------------- + +use micphys +use aero_include + +implicit none + + ! externs (input) + real Rwet ! particle raidus after hydroscopic effect + real Rp ! particle density kgm-3 + real Rw ! density of water kgm-3 + real RR ! rain rate, mm/s + real cc ! correct factor + real diff ! diffusion coeffient due to Brownian effect + real xmu ! air dynamic viscosity + real Rair ! air density + real cfmasx,pwmasx,cfvtx,pwvtx ! hydromet power law coefficients + + ! externs (output) + real ScaRate ! scavenging rate + + ! internals + real Dpc ! rain drop size (m) + real Vt ! vertical velocity, based on Dpc + real xmuwater ! water dynamic viscosity + real Re ! Reynolds # + real Schm ! Schmidt number + real St ! Stokes number + real Stcorr ! Stokes correction for collection efficiency + real tau ! relaxation time, tau*g = gravitational settling + real Dratio ! ratio between cloud and aerosol particle size + real vcosityRatio ! viscosity between water and air + real Sstar ! parameter used to calcualte collection efficient + real Ecollect ! collection coefficient. + real vvt ! particle gravitational velocity + integer k ! passing in the current vertical level + integer lcat ! passing in scavenging hydrometeor category + real collect1, collect2 + + ! Get water dynamic viscosity (kg/m/s) + ! Use a set value that does not vary with temperature + ! Could add variability with temperature from include file + xmuwater = dvcosity(3)*1.0e-6 + ! Density of water (kg/m3) + Rw = 1.e3 + ! Calculate Schm = Schmidt number of collected particle + Schm = xmu/Rair/diff + ! Calculate the hydrometeor mean diameter (meters) + Dpc = (rx(k,lcat)/cx(k,lcat)/cfmasx)**(1./pwmasx) + + ! Calculate Vt (m/s) from RAMS mic_init power laws + vt = cfvtx*Dpc**pwvtx + + ! Calculate Re (Reynolds numbers), Dpc is in meters + Re = (Dpc*vt*Rair)/(2.*xmu) + + ! Charaxteristic relaxation time of particle + ! rwet is in unit of um, and dpc is in unit of meters + tau = Rp * (2.0*rwet*1.0e-6)**2. * Cc / (18.*xmu) + vvt = 1.19e-4*(rwet/2.)**2. + St = 2. * tau * (Vt - vvt) / Dpc + + ! Ratio of particle diamater to hydrometeor diameter + Dratio = (2.0*rwet*1.0e-6)/Dpc + + ! Viscosity ratio + vcosityRatio = xmuwater/xmu + + ! Collection efficiency. + Sstar = (1.2 + (1./12.)*alog(1.+Re)) / (1. + alog(1+Re)) + collect1 = (4./(Re*Schm)) & + * ( 1.0 + 0.4*Re**0.5*Schm**0.333 + 0.16*Re**0.5*Schm**0.5 ) + collect2 = (4. * Dratio) * (1./vcosityRatio + (1. + 2.*Re**0.5)*Dratio) + + Ecollect = collect1 + collect2 + + if (St.gt.Sstar) then + Stcorr=((St-Sstar)/(St-Sstar+2./3.))**(3./2.) + Ecollect = Ecollect + Stcorr * (Rp/Rw)**0.5 + endif + if(Ecollect>1.0) Ecollect=1.0 + + ! Calulating wet deposition scavenging rate (/s) + ! First convert RR in mm/s to m/s + ScaRate = (3./2.)*Ecollect*(RR*1.e-3)/Dpc + +return +END SUBROUTINE wet_scavenge_slinn + + diff --git a/src/6.2.16/micro/aero_include.f90 b/src/6.2.16/micro/aero_include.f90 new file mode 100644 index 0000000..fe73633 --- /dev/null +++ b/src/6.2.16/micro/aero_include.f90 @@ -0,0 +1,77 @@ +!############################################################################## +Module aero_include + +implicit none + +!----------------------------Roughness data for deposition----------------------- +! number of land use class and season +integer, parameter :: nc = 15,ns=5 + +! Z0 roughness length, A: radius of collectors, alpha, gamma +! other constants +real, dimension(nc, ns):: Z0, A, alpha, ggamma + +! viscosity of water at different temperature +integer, parameter :: nt = 12 + +! lookup table size for saving droplet falling speed. +integer, parameter:: nsize = 34 + +! temperature, tt, water dynamic viscosity dvcosity, N.s.m-2 +real, dimension(nt):: tt, dvcosity + +! data ecosystem + +data z0(1:nc,1) /0.80,2.65,0.85,1.05,1.15,0.1,0.1,0.04,& + 0.03,0.10,0.03,0.01,0.00,0.00,1.0/ +data z0(1:nc,2) /0.80,2.65,0.85,1.05,1.15,0.1,0.1,0.04, & + 0.03,0.10,0.03,0.01,0.00,0.00,1.0/ +data z0(1:nc,3) /0.80,2.65,0.85,1.05,1.15,0.1,0.1,0.04, & + 0.03,0.10,0.03,0.01,0.00,0.00,1.0/ +data z0(1:nc,4) /0.80,2.65,0.85,1.05,1.15,0.1,0.1,0.04, & + 0.03,0.10,0.03,0.01,0.00,0.00,1.0/ +data z0(1:nc,5) /0.80,2.65,0.85,1.05,1.15,0.1,0.1,0.04, & + 0.03,0.10,0.03,0.01,0.00,0.00,1.0/ + +data A(1:nc, 1) /2.0,5.0,2.0, 5.0,5.0,2.0,2.0,0.0,0.0, & + 10.0,10.0,0.0,0.0,0.0,10.0/ +data A(1:nc, 2) /2.0,5.0,2.0, 5.0,5.0,2.0,2.0,0.0,0.0, & + 10.0,10.0,0.0,0.0,0.0,10.0/ +data A(1:nc, 3) /2.0,5.0,5.0,10.0,5.0,5.0,5.0,0.0,0.0, & + 10.0,10.0,0.0,0.0,0.0,10.0/ +data A(1:nc, 4) /2.0,5.0,5.0,10.0,5.0,5.0,5.0,0.0,0.0, & + 10.0,10.0,0.0,0.0,0.0,10.0/ +data A(1:nc, 5) /2.0,5.0,2.0, 5.0,5.0,2.0,2.0,0.0,0.0, & + 10.0,10.0,0.0,0.0,0.0,10.0/ + +! doesn't change with season +data alpha(1:nc, 1) /1.0, 0.6, 1.1, 0.8, 0.8, 1.2, 1.2, 50.0, & + 50.0, 1.3, 2.0, 50.0, 100.0, 100.0, 1.5/ +data alpha(1:nc, 2) /1.0, 0.6, 1.1, 0.8, 0.8, 1.2, 1.2, 50.0, & + 50.0, 1.3, 2.0, 50.0, 100.0, 100.0, 1.5/ +data alpha(1:nc, 3) /1.0, 0.6, 1.1, 0.8, 0.8, 1.2, 1.2, 50.0, & + 50.0, 1.3, 2.0, 50.0, 100.0, 100.0, 1.5/ +data alpha(1:nc, 4) /1.0, 0.6, 1.1, 0.8, 0.8, 1.2, 1.2, 50.0 , & + 50.0, 1.3, 2.0, 50.0, 100.0, 100.0, 1.5/ +data alpha(1:nc, 5) /1.0, 0.6, 1.1, 0.8, 0.8, 1.2, 1.2, 50.0 , & + 50.0, 1.3, 2.0, 50.0, 100.0, 100.0, 1.5/ + +! ggamma does'n change with season +data ggamma(1:nc, 1) /0.56, 0.58, 0.56, 0.56, 0.56, 0.54, 0.54, 0.54, & + 0.54, 0.54, 0.54, 0.54, 0.54, 0.50, 0.56/ +data ggamma(1:nc, 2) /0.56, 0.58, 0.56, 0.56, 0.56, 0.54, 0.54, 0.54, & + 0.54, 0.54, 0.54, 0.54, 0.54, 0.50, 0.56/ +data ggamma(1:nc, 3) /0.56, 0.58, 0.56, 0.56, 0.56, 0.54, 0.54, 0.54, & + 0.54, 0.54, 0.54, 0.54, 0.54, 0.50, 0.56/ +data ggamma(1:nc, 4) /0.56, 0.58, 0.56, 0.56, 0.56, 0.54, 0.54, 0.54, & + 0.54, 0.54, 0.54, 0.54, 0.54, 0.50, 0.56/ +data ggamma(1:nc, 5) /0.56, 0.58, 0.56, 0.56, 0.56, 0.54, 0.54, 0.54, & + 0.54, 0.54, 0.54, 0.54, 0.54, 0.50, 0.56/ + +!Filling the data for water viscosity +!Temperature (C) +data tt(1:nt) /0, 5, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100/ +!Dynamic viscosity of water (kg/m/s) x 1.e-6 (ie. 1787.e-6) +data dvcosity(1:nt) /1787,1519,1307,1002,798,653,547,467,404,355,315,282/ + +END MODULE aero_include diff --git a/src/6.2.16/micro/aero_sources.f90 b/src/6.2.16/micro/aero_sources.f90 new file mode 100644 index 0000000..3542da6 --- /dev/null +++ b/src/6.2.16/micro/aero_sources.f90 @@ -0,0 +1,530 @@ +!############################################################################## +Subroutine dust_sources (m1,m2,m3,ia,iz,ja,jz,rtgt,glat,glon & + ,u,v,dn0,md1np,md2np,md1mp,md2mp & + ,dustfrac,swater,parea,lclass,stext & + ,vegrough & + ) + +use micphys, only:idustloft,aero_rhosol +use mem_grid, only:dtlt,ngrid,nnxp,nnyp,nzg,npatch +use mem_varinit, only:nud_type,nudlat +use node_mod, only:mi0,mj0 + +implicit none + +integer, parameter :: ncls=7 +integer :: m1,m2,m3,ia,iz,ja,jz,i,j,z0limit,veglimit,dustbc,allowdustloft +real :: dust1_size,dust2_size,aux1,aux2,aux3 +real, dimension(m2,m3) :: u10,v10,rtgt,num_dust_s,num_dust_l & + ,glat,glon,dustfrac +real, dimension(m1,m2,m3) :: u,v,md1np,md2np,md1mp,md2mp,dn0 +real, dimension(nzg,m2,m3,npatch) :: swater +real, dimension(m2,m3,npatch) :: parea,lclass +real, dimension(nzg,m2,m3,npatch) :: stext +real, dimension(m2,m3,npatch) :: vegrough + + !****************************************************************** + !Dust lofting option default flags + !****************************************************************** + !Limit dust flux due to vegetative roughness + z0limit=1 !0 = off 1 = on (only for idustloft=0) + !Limit dust lofting to specific bare or low grass surface types + !3-Desert,bare soil, 8-Short-grass, 9-Tall-grass, 10-Semi-desert, + !15-Crops, 18-Wooded-grassland + veglimit=1 !0 = off 1 = on (only for idustloft=0) + !****************************************************************** + + !For Ginoux(2001) or NRL database dust lofting, + !ignore surface and veg limits. + if(idustloft==1 .or. idustloft==2 .or. idustloft==22) then + z0limit=0 + veglimit=0 + endif + + !Get the 10m wind components + CALL get_u10_v10 (m1,m2,m3,ia,iz,ja,jz,u,v,u10,v10,rtgt) + + !Compute dust sources one gridcell at a time + CALL dustflux (u10,v10,swater,npatch,m1,m2,m3,ia,iz,ja,jz & + ,rtgt,dtlt,num_dust_s,num_dust_l,ncls,z0limit & + ,veglimit,glat,glon,dustfrac,parea,nzg,lclass,stext & + ,vegrough & + ) + + !Set mean mass weighted radii of dust modes that corressponds to dust func. + !Bin radii(um): r1=0.15,r2=0.265,r3=0.471,r4=0.838,r5=1.5,r6=2.65,r7=4.71 + !Apportion flux into size bins with sp, where sp are bin mass fractions. + !For the 4 small clay size bins, each bin contains the following fractions: + ! 1=0.9%, 2=8.1%, 3=23.4%, 4=67.6% + !However, the 4 small clay bins represent only 1/10th the total dust silt, + ! so the parameter "sp(1:4)" represents decimal-percentage/10 + !The three large classes are weight equally at 33.333% each. + !sp(1:4) = (/0.0009,0.0081,0.0234,0.0676/) + !sp(5:ncls) = 0.30 + !dust1_size = mass weighted mean fine dust radius (r1 - r4) + !dust2_size = mass weighted mean course dust radius (r5 - r7) + !fine: 0.15*0.009 + 0.265*0.081 + 0.471*0.234 + 0.838*0.676 = 0.699 um + !coarse: 1.5*0.333 + 2.65*0.333 + 4.71*0.333 = 2.95038 microns + dust1_size=0.699e-6 !small mode (meters) + dust2_size=2.95e-6 !large mode (meters) + + !Update dust particles due to dust sources. Dust source model outputs in + !#/cm3 so we convert to #/kg and compute dust mass mixing ratio in kg/kg + + !First prevent dust lofting along boundaries due to potential constant + !inflow issues causing dust to be continually lofted. Value here is the number + !of grid cells in from lateral boundaries where lofting is allowed. + dustbc=5 + + do j = ja,jz + do i = ia,iz + + !SaleebySCM:This condition modified in SCM version since it requires + !knowledge of horizontal boundary conditions + allowdustloft=0 + if(i+mi0(ngrid) > dustbc .and. i+mi0(ngrid) < nnxp(ngrid)-dustbc .and. & + j+mj0(ngrid) > dustbc .and. j+mj0(ngrid) < nnyp(ngrid)-dustbc) then + allowdustloft=1 + endif + + if(allowdustloft==1) then + !Convert dust number (#/cm3) to (#/kg) + num_dust_s(i,j) = num_dust_s(i,j) / dn0(2,i,j) * 1.e6 + num_dust_l(i,j) = num_dust_l(i,j) / dn0(2,i,j) * 1.e6 + + !Update number of dust species + md1np(2,i,j) = md1np(2,i,j) + num_dust_s(i,j) + md1np(1,i,j) = md1np(2,i,j) + + md2np(2,i,j) = md2np(2,i,j) + num_dust_l(i,j) + md2np(1,i,j) = md2np(2,i,j) + + !Update mass of dust species using mean mass radii rather than median radii + md1mp(2,i,j) = md1mp(2,i,j) + & + (dust1_size**3.)*num_dust_s(i,j)/(0.23873/aero_rhosol(3)) + md1mp(1,i,j) = md1mp(2,i,j) + + md2mp(2,i,j) = md2mp(2,i,j) + & + (dust2_size**3.)*num_dust_l(i,j)/(0.23873/aero_rhosol(4)) + md2mp(1,i,j) = md2mp(2,i,j) + endif + + enddo + enddo + +return +END SUBROUTINE dust_sources + +!############################################################################## +Subroutine salt_sources (m1,m2,m3,ia,iz,ja,jz,rtgt,u,v,dn0 & + ,salt_film_np,salt_jet_np,salt_spum_np & + ,salt_film_mp,salt_jet_mp,salt_spum_mp & + ,parea,lclass) + +use micphys, only:aero_rg2rm,aero_rhosol +use mem_grid, only:dtlt,npatch + +implicit none + +!Assumed salt masses based on radii below and density of salt 2.165 g/cm3 +!Assumes all aerosols in each category are all the same size +!Need to alter these if we assume a certain distribution + +!Salt mass and number arrays +real, dimension(m1,m2,m3) :: salt_film_np,salt_jet_np,salt_spum_np +real, dimension(m1,m2,m3) :: salt_film_mp,salt_jet_mp,salt_spum_mp + +integer :: m1,m2,m3,ia,iz,ja,jz,i,j +real, dimension(m2,m3) :: u10,v10,rtgt +real, dimension(m1,m2,m3) :: u,v,dn0 +real, dimension(m2,m3) :: film_source,jet_source,spm_source +real, dimension(m2,m3,npatch) :: parea +real, dimension(m2,m3,npatch) :: lclass +real :: sf_size,sj_size,ss_size + +!Get the 10m wind components + CALL get_u10_v10 (m1,m2,m3,ia,iz,ja,jz,u,v,u10,v10,rtgt) + +!Get Salt emission + CALL salt_flux (u10,v10,m1,m2,m3,ia,iz,ja,jz,npatch,dtlt & + ,salt_film_np,salt_jet_np,salt_spum_np & + ,film_source,jet_source,spm_source,dn0 & + ,parea,lclass) + +!Set median radii of salt modes that corresponds to salt func +sf_size=0.10e-6 !film mode radius (m3) +sj_size=1.00e-6 !jet mode radius (m3) +ss_size=6.00e-6 !spume mode radius (m3) + +!Nudge diagnostic values over sea +do j = ja,jz + do i = ia,iz + + !Convert dust number (#/m3) to (#/kg) + film_source(i,j) = film_source(i,j) / dn0(2,i,j) + jet_source(i,j) = jet_source(i,j) / dn0(2,i,j) + spm_source(i,j) = spm_source(i,j) / dn0(2,i,j) + + !Update number of salt species + salt_film_np(2,i,j) = salt_film_np(2,i,j) + film_source(i,j) + salt_film_np(1,i,j) = salt_film_np(2,i,j) + + salt_jet_np(2,i,j) = salt_jet_np(2,i,j) + jet_source(i,j) + salt_jet_np(1,i,j) = salt_jet_np(2,i,j) + + salt_spum_np(2,i,j) = salt_spum_np(2,i,j) + spm_source(i,j) + salt_spum_np(1,i,j) = salt_spum_np(2,i,j) + + !Update mass of salt species + salt_film_mp(2,i,j) = salt_film_mp(2,i,j) + & + ((sf_size*aero_rg2rm(5))**3.)*film_source(i,j)/(0.23873/aero_rhosol(5)) + salt_film_mp(1,i,j) = salt_film_mp(2,i,j) + + salt_jet_mp(2,i,j) = salt_jet_mp(2,i,j) + & + ((sj_size*aero_rg2rm(6))**3.)*jet_source(i,j) /(0.23873/aero_rhosol(6)) + salt_jet_mp(1,i,j) = salt_jet_mp(2,i,j) + + salt_spum_mp(2,i,j) = salt_spum_mp(2,i,j) + & + ((ss_size*aero_rg2rm(7))**3.)*spm_source(i,j) /(0.23873/aero_rhosol(7)) + salt_spum_mp(1,i,j) = salt_spum_mp(2,i,j) + + enddo +enddo + +return +END SUBROUTINE salt_sources + +!############################################################################## +Subroutine get_u10_v10 (m1,m2,m3,ia,iz,ja,jz,uu,vv,u10,v10,rtgt) + +use mem_grid, only:jdim,zm +use micphys, only:iscm + +implicit none + +integer :: m1,m2,m3,i,j,ia,iz,ja,jz +real, parameter :: z0 = 0.05 +real :: zref,aux1,aux2 +real, dimension(m2,m3) :: rtgt +real, dimension(m2,m3) :: u10,v10 +real, dimension(m1,m2,m3) :: uu,vv + +aux2 = log(10./z0) + +! Assumed roughness length only really valid for bare soil surfaces. +! Fine for now as the source function is only valid for bare surfacs, +! but if the source func is changed in the future, the roughness +! length from LEAF2 should be used instead of an assumed constant. + +! Log law wind profile for the lowest 100m AGL. To get wind (V) at an +! unknown height (Z) from a known wind (Vref) at reference height (Zref): +! V ~ Vref [ ln(Z/Z0) / ln(Zref/Z0) ] + +do j=ja,jz + do i=ia,iz + + zref = zm(2) * rtgt(i,j) + aux1 = 1./log(zref/z0) + u10(i,j) = aux1 * aux2 * ((uu(2,i-1,j) + uu(2,i,j)) * 0.5) + v10(i,j) = aux1 * aux2 * ((vv(2,i,j-jdim) + vv(2,i,j)) * 0.5) + +if(ISCM>=1)then + !SaleebySCM:Override u10,v10 with approx wind at T point using single i,j + u10(i,j) = aux1 * aux2 * uu(2,i,j) + v10(i,j) = aux1 * aux2 * vv(2,i,j) +endif + + enddo +enddo + +return +END SUBROUTINE get_u10_v10 + +!############################################################################## +Subroutine salt_flux (u10,v10,m1,m2,m3,ia,iz,ja,jz,npatch,dtlt & + ,salt_film_np,salt_jet_np,salt_spum_np & + ,film_source,jet_source,spm_source,dn0 & + ,xparea,xlclass) + +!Code to calculate seasalt number flux on global scale based on the O'dowd +!1997, 1999 where u10 is the 10-meter wind speed m/s, salt_film is the number +!of particles /m3 in the submicron mode (ccn), and salt_jet is the number of +!particles /m3 in the supermicron mode (gccn), and salt_spume is the number +!particles /m3 in the ultra-giant mode (ultra-gccn), and film and jet medians +!are user defined in centimeters. +!The total number concentrations for each mode were observed to be: +! log Nfilm = 0.095 U10 + 6.2830, 0.1 microns mode radius ----> CCN +! log Njet = 0.0422 U10 + 5.7122, 1 micron mode radius -------> GCCN +! log Nspume= 0.069 U10 + 0.1900, 6 micron mode radius -------> Super giant +! O’Dowd C. D., Smith M. H. and Jennings S. G. (1993) Submicron aerosol, radon and +! soot carbon characteristics over the North East Atlantic. J. geophys. Res. 98, +! 1132-1136. Updated for O'Dowd 1997,1999. + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,i,j,npatch,itype +real :: dtlt,time_salt,patarea +real, dimension(m1,m2,m3) :: salt_film_np,salt_jet_np,salt_spum_np,dn0 +real, dimension(m2,m3) :: salt_film_dia,salt_jet_dia,salt_spm_dia +real, dimension(m2,m3) :: wind,u10,v10,film_source,jet_source,spm_source +double precision, dimension(m2,m3)::salt_film_dia2,salt_jet_dia2 & + ,salt_spm_dia2,wind_2 +real, dimension(m2,m3,npatch) :: xparea +real, dimension(m2,m3,npatch) :: xlclass + +time_salt = dtlt !relaxation time in seconds + +do j = ja,jz +do i = ia,iz + + !Zero out the final source func prior to updated timestep computation + film_source(i,j) = 0.0 + jet_source(i,j) = 0.0 + spm_source(i,j) = 0.0 + + !Compute salt source term + !Limit wind speed to 30m/s (Fan and Toon 2011) + + patarea=xparea(i,j,1) + itype = nint(xlclass(i,j,1)) + + if(itype .eq. 0 .and. patarea .gt. 0.009) then + !Compute wind speed from 10m u,v winds in [m/s] + wind(i,j) = min(30.,sqrt(u10(i,j)*u10(i,j) + v10(i,j)*v10(i,j))) + wind_2(i,j) = dble(wind(i,j)) + !Compute predicted salt concentration based on wind speed (/m3) + salt_film_dia2(i,j) = 10.**(0.0950*wind_2(i,j) + 6.2830) + salt_film_dia(i,j) = sngl(salt_film_dia2(i,j)) + salt_jet_dia2(i,j) = 10.**(0.0422*wind_2(i,j) + 5.7122) + salt_jet_dia(i,j) = sngl(salt_jet_dia2(i,j)) + salt_spm_dia2(i,j) = 10.**(0.0690*wind_2(i,j) + 0.1900) + salt_spm_dia(i,j) = sngl(salt_spm_dia2(i,j)) + !Note that sea salt predicted (/m3) while we carry (/kg) in the model. + !So do correct density conversion here for adding particles. + if(salt_film_dia(i,j) > salt_film_np(2,i,j)*dn0(2,i,j)) & + film_source(i,j)=film_source(i,j) + (salt_film_dia(i,j) & + - salt_film_np(2,i,j)*dn0(2,i,j)) * dtlt / time_salt * patarea + if(salt_jet_dia(i,j) > salt_jet_np(2,i,j)*dn0(2,i,j)) & + jet_source(i,j) =jet_source(i,j) + (salt_jet_dia(i,j) & + - salt_jet_np(2,i,j)*dn0(2,i,j)) * dtlt / time_salt * patarea + if(salt_spm_dia(i,j) > salt_spum_np(2,i,j)*dn0(2,i,j)) & + spm_source(i,j) =spm_source(i,j) + (salt_spm_dia(i,j) & + - salt_spum_np(2,i,j)*dn0(2,i,j)) * dtlt / time_salt * patarea + endif + +enddo +enddo + +return +END SUBROUTINE salt_flux + +!############################################################################## +Subroutine dustflux (u10,v10,swater,npatch,m1,m2,m3,ia,iz,ja,jz & + ,rtgt,dtlt,num_dust_s,num_dust_l,ncls,z0limit & + ,veglimit,glat,glon,dustfrac,xparea,nzg,xlclass,xstext & + ,xvegrough & + ) + +!Code to calculate dust flux on regional-global scales based on dust code +!from Peter Colarco at Goddard. It calculates fluxes using a 1x1 degree +!horizontal resolution source func developed by Paul Ginoux. Source +!func is equivalent to the fraction of the grid cell emitting dust. +!Fluxes are calculated based on formulas given in Marticorena & Bermagetti, +!1995 using 10-m winds and soil moisture. Updated for Fecan et al.(1999) +!and Pierre et al.(2012). + +use mem_grid, only:dzt +use micphys, only:iscm + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,ncls,npatch,icls,i,j,np,itype,sclass +integer :: z0limit,veglimit,vegstop,isource,jsource +real :: patarea,netrough + +!Set number of bins, air density (g/cm3), gravity (cm/s2) +!and "fact" as parameters. "fact" scales mass emissions to 1851 tg +real :: rhoa,grav,fact,pi,S +parameter(rhoa=1.25d-3, grav=981., fact=1.153d-16, pi=3.141593) + +real :: dz,dtlt,rmrat,rbmin,rho_p,uth75,rmassmin,Ez0,gwet +real, dimension(ncls) :: sp,den,uth,diam,rmass,r,utwet & + ,mass_flux,mass_conc,num_conc +real, dimension(m2,m3) :: num_dust_s,num_dust_l,wind,u10,v10,rtgt & + ,glat,glon,dustfrac +real, dimension(12) :: clayfrac,slmsts,wprime +real, dimension(nzg,m2,m3,npatch) :: swater +real, dimension(m2,m3,npatch) :: xparea,xlclass +integer :: nzg +real, dimension(nzg,m2,m3,npatch) :: xstext +real, dimension(m2,m3,npatch) :: xvegrough + +!Define clay percentage for soil textural classes +! 1 sand 5 loam 9 sandy clay +! 2 loamy sand 6 sandy clay loam 10 silty clay +! 3 sandy loam 7 silty clay loam 11 clay +! 4 silt loam 8 clay loam 12 peat +data clayfrac/0.0,5.0,10.0,12.0,18.0,28.0,33.0,33.0,42.0,48.0,70.0,0.0/ +data slmsts/.395,.410,.435,.485,.451,.420,.477,.476,.426,.492,.482,.863/ +!Using Fecan et al.(1999) paramerization based on clay percentage +!w'=0.0014(clayfrac)^2 + 0.17(clayfrac) +data wprime/0.00000,0.885000,1.84000,2.24160,3.51360,5.85760,7.13460 & + ,7.13460,9.60960,11.3856,18.7600,0.00000/ + +rmrat = (100**3)**(1./8.) !rmrat=volume ratio between bins +rbmin = 1.e-5*((1.+rmrat)/2.)**(1./3.) !radius of smallest bin [cm] +rho_p = 2.65 !particle density [g/cm3] + +!Set up the bins/apportionment (Ginoux et al.2001) +!r1=0.15, r2=0.265, r3=0.471, r4=0.838, r5=1.5, r6=2.65, r7=4.71 microns +rmassmin = 4./3.*pi*rho_p*rbmin**3. +do icls = 1,ncls + rmass(icls) = rmassmin*rmrat**(icls-1) + r(icls) = (rmass(icls)/rho_p/(4./3.*pi))**(1./3.) !units of cm +enddo + +!Apportion flux into size bins with sp, where sp are bin mass fractions +!For the 4 small clay size bins, each bin contains the following fractions: +! 1=0.9%, 2=8.1%, 3=23.4%, 4=67.6% +!However, the 4 small clay bins represent only 1/10th the total dust silt, +! so the parameter "sp(1:4)" represents decimal-percentage/10 +!The three large classes are weight equally at 30%. +sp(1:4) = (/0.0009,0.0081,0.0234,0.0676/) +sp(5:ncls) = 0.30 + +diam = 2*r +den(1:4) = 2.50 !mass density of clay +den(5:ncls) = 2.65 !mass density of silt + +!Threshold velocity calcs [cm/s] from +!Marticorena & Bermagetti(1995) Equations 3-6 +do icls = 5,ncls + uth(icls) = 0.13*sqrt(den(icls)*grav*diam(icls)/rhoa) & + *sqrt(1. + 0.006/(den(icls)*grav*diam(icls)**2.5)) & + /sqrt(1.928*(1331.*diam(icls)**1.56 + 0.38)**0.092 - 1.) +enddo + +!For sub-micron particles assume uth is that of an reff=0.75 micron particle +!Gives higher uth for smaller particle sizes +uth75 = 0.13*sqrt(2.5*grav*(1.5e-4)/rhoa) & + *sqrt(1. + 0.006/(2.5*grav*(1.5e-4)**2.5)) & + /sqrt(1.928*(1331.*(1.5e-4)**1.56 + 0.38)**0.092 - 1.) +uth(1:4) = uth75 + +!Calculate the flux, mass and # concentration in the domain +!Compute fluxes and output as number distributions with median radii (cm) +do j = ja,jz +do i = ia,iz + + !Zero out the final source func prior to updated timestep computation + num_dust_s(i,j) = 0.0 + num_dust_l(i,j) = 0.0 + + !Set dust source erodible fraction variable S + S = dustfrac(i,j) + + do np = 2,npatch + + patarea=xparea(i,j,np) + + if(patarea .gt. 0.009) then + itype = nint(xlclass(i,j,np)) + sclass = floor(xstext(nzg,i,j,np)) + netrough = xvegrough(i,j,np) + +if(ISCM>=1)then + !SaleebySCM:Override land surface class info to be similar for SCM + netrough = 3.00e-5 +endif + + !If using Pierre et al.(2012) surface zoughness limit on dust lofting + !if patch roughness > 3.10e-3 cm + if(z0limit==1.and.netrough*100. > 3.10e-3) then + Ez0 = 0.7304 - (0.0804 * log10(netrough*100.)) + else + Ez0 = 1.0 + endif + + !If limiting dust lofting to only low or limited vegetation patches + if(veglimit==1 .and. itype.ne.3 .and. itype.ne.8 .and. itype.ne.9 .and. & + itype.ne.10 .and. itype.ne.15 .and. itype.ne.18) then + vegstop=1 + else + vegstop=0 + endif + + !No dust lofting at all for water, ice, marsh, or urban + if(itype==0.or.itype==1.or.itype==2.or.itype==17.or. & + itype==19.or.itype==21) vegstop=1 + + !Proceed to dust lofting if vegetation type allowed + if(vegstop==0) then + !Seigel (10-8-2010): Threshold velocity adjustment, accounting for soil + !moisture AND soil textural class. Note that swater is volumetric soil + !moisture m3/m3 and not total saturation fraction. Ginoux et al.(2001) uses + !total saturation fraction with values from 0.001 to 1.0. But Fecan et al.(1999) + !uses volumetric soil moisture (m3/m3). So be careful switching between + !the two. For RAMS, the maximum volumetric soil moisture is slmsts(sclass). + + !For using Fecan et al.(1999) threshold velocity by soil type, then + !use volumetric soil moisture (m3/m3) for velocity adjustment. This + !adjustment is more constraing than Ginoux et al.(2001) and may help + !prevent over-lofting in some circumstances. + gwet = swater(nzg,i,j,np) + do icls = 1,ncls + if(gwet*100. .lt. wprime(sclass)) then + utwet(icls) = uth(icls) + else + utwet(icls) = uth(icls)*sqrt(1 + 1.21* & + (gwet*100.-wprime(sclass))**0.68) + endif + enddo + + !Compute wind speed from 10m u,v winds in [cm/s] + wind(i,j) = sqrt(u10(i,j)*u10(i,j) + v10(i,j)*v10(i,j))*100. + + !Grid cell depth for lowest grid cell above ground + dz = rtgt(i,j) / dzt(2) + + !Flux dust if soil is dry (soil moisture fraction (0->1) < 50%) + !This lofts dust within the Ginoux et al.(2001) maximum soil moisture + !fraction limit for lofting just. + gwet = max(0.0,min(1.0,swater(nzg,i,j,np)/slmsts(sclass))) + if(gwet.lt.0.5) then + do icls = 1,ncls + !Calculate the mass flux in the domain [g cm-2 s-1] + !Flux equation from Ginoux et al. 2001 equation 2. + mass_flux(icls)=Ez0*S*fact*sp(icls)*(wind(i,j)**2.) & + *(wind(i,j)-utwet(icls)) + if(mass_flux(icls) <= 0.) then + mass_flux(icls) = 0. + mass_conc(icls) = 0. + num_conc(icls) = 0. + endif + if(mass_flux(icls) > 0.) then + !Convert mass flux to mass concentration [g cm-3] + !For mass concentration divide by grid cell depth (dz) in units of [cm] + mass_conc(icls) = mass_flux(icls) * dtlt / (dz*100.) + !Then convert to # concentration (particles/cm3) in each bin + num_conc(icls) = mass_conc(icls) / & + (den(icls)*(4./3.)*pi*r(icls)**3) + endif + enddo + !Sum the sub and super micron bins for num_dust_s & num_dust_l + do icls = 1,4 + num_dust_s(i,j) = num_dust_s(i,j) + num_conc(icls) * patarea + enddo + do icls = 5,ncls + num_dust_l(i,j) = num_dust_l(i,j) + num_conc(icls) * patarea + enddo + endif !IF SOURCE EXISTS AND SOIL IS DRY + + endif !IF patch is capable of releasing dust + endif !IF patch area is big enough + enddo !LOOP over surface patches + +enddo !LOOP OVER J POINTS +enddo !LOOP OVER I POINTS + +return +END SUBROUTINE dustflux diff --git a/src/6.2.16/micro/mic_adj.f90 b/src/6.2.16/micro/mic_adj.f90 new file mode 100644 index 0000000..c61e58c --- /dev/null +++ b/src/6.2.16/micro/mic_adj.f90 @@ -0,0 +1,471 @@ +!############################################################################## +Subroutine negadj1 () + +use mem_basic +use mem_micro +use mem_grid +use micphys, only:level +use node_mod, only:mzp,mxp,myp + +implicit none + +integer :: m1,m2,m3 + +if (level == 0) return + +if (level <= 3) then + CALL adj1 (mzp,mxp,myp,basic_g(ngrid)%rtp(1,1,1),micro_g(ngrid),ngrid) +elseif (level == 4) then + CALL adj1_bin (mzp,mxp,myp,basic_g(ngrid)%rtp(1,1,1),micro_g(ngrid)) +endif + +return +END SUBROUTINE negadj1 + +!############################################################################## +Subroutine adj1 (m1,m2,m3,rtp,micro,ngr) + +use mem_micro +use micphys +use node_mod, only:mi0,mj0 + +implicit none + +integer :: m1,m2,m3,toomany,i,j,k,lcat,ngr +real :: frac +real, dimension(m1,m2,m3) :: rtp +real, dimension(m1) :: rtemp +type (micro_vars) :: micro + +if (level .eq. 0) return + +do lcat = 1,ncat + do k = 1,m1 + rx(k,lcat) = 0. + cx(k,lcat) = 0. + qx(k,lcat) = 0. + pcpvx(k,lcat) = 0. + cnmhx(k,lcat) = 0. + snmhx(k,lcat) = 0. + dnmhx(k,lcat) = 0. + dinhx(k,lcat) = 0. + immerhx(k,lcat) = 0. + enddo +enddo + +do j = 1,m3 + do i = 1,m2 + + !Copy global variables mixing ratios to temporary variables + if (jnmb(1) > 0) CALL ae1kmic (1,m1,rx(1,1),micro%rcp(1,i,j)) + if (jnmb(2) > 0) CALL ae1kmic (1,m1,rx(1,2),micro%rrp(1,i,j)) + if (jnmb(3) > 0) CALL ae1kmic (1,m1,rx(1,3),micro%rpp(1,i,j)) + if (jnmb(4) > 0) CALL ae1kmic (1,m1,rx(1,4),micro%rsp(1,i,j)) + if (jnmb(5) > 0) CALL ae1kmic (1,m1,rx(1,5),micro%rap(1,i,j)) + if (jnmb(6) > 0) CALL ae1kmic (1,m1,rx(1,6),micro%rgp(1,i,j)) + if (jnmb(7) > 0) CALL ae1kmic (1,m1,rx(1,7),micro%rhp(1,i,j)) + if (jnmb(8) > 0) CALL ae1kmic (1,m1,rx(1,8),micro%rdp(1,i,j)) + + !Copy global variables internal hydrometeor energy to temp vars + if (jnmb(2) > 0) CALL ae1kmic (1,m1,qx(1,2),micro%q2(1,i,j)) + if (jnmb(6) > 0) CALL ae1kmic (1,m1,qx(1,6),micro%q6(1,i,j)) + if (jnmb(7) > 0) CALL ae1kmic (1,m1,qx(1,7),micro%q7(1,i,j)) + + !Copy global variables number concentrations to temporary variables + if (jnmb(1) >= 5) CALL ae1kmic (1,m1,cx(1,1),micro%ccp(1,i,j)) + if (jnmb(2) >= 5) CALL ae1kmic (1,m1,cx(1,2),micro%crp(1,i,j)) + if (jnmb(3) >= 5) CALL ae1kmic (1,m1,cx(1,3),micro%cpp(1,i,j)) + if (jnmb(4) >= 5) CALL ae1kmic (1,m1,cx(1,4),micro%csp(1,i,j)) + if (jnmb(5) >= 5) CALL ae1kmic (1,m1,cx(1,5),micro%cap(1,i,j)) + if (jnmb(6) >= 5) CALL ae1kmic (1,m1,cx(1,6),micro%cgp(1,i,j)) + if (jnmb(7) >= 5) CALL ae1kmic (1,m1,cx(1,7),micro%chp(1,i,j)) + if (jnmb(8) >= 5) CALL ae1kmic (1,m1,cx(1,8),micro%cdp(1,i,j)) + + !Copy global variable 3D precip rates to temporary variables + if (jnmb(2) > 0) CALL ae1kmic (1,m1,pcpvx(1,2),micro%pcpvr(1,i,j)) + if (jnmb(3) > 0) CALL ae1kmic (1,m1,pcpvx(1,3),micro%pcpvp(1,i,j)) + if (jnmb(4) > 0) CALL ae1kmic (1,m1,pcpvx(1,4),micro%pcpvs(1,i,j)) + if (jnmb(5) > 0) CALL ae1kmic (1,m1,pcpvx(1,5),micro%pcpva(1,i,j)) + if (jnmb(6) > 0) CALL ae1kmic (1,m1,pcpvx(1,6),micro%pcpvg(1,i,j)) + if (jnmb(7) > 0) CALL ae1kmic (1,m1,pcpvx(1,7),micro%pcpvh(1,i,j)) + if (jnmb(8) > 0) CALL ae1kmic (1,m1,pcpvx(1,8),micro%pcpvd(1,i,j)) + + !Aerosol and solubility tracking + if(iccnlev>=2) then + if(jnmb(1)>0) CALL ae1kmic (1,m1,cnmhx(1,1),micro%cnmcp(1,i,j)) + if(jnmb(2)>0) CALL ae1kmic (1,m1,cnmhx(1,2),micro%cnmrp(1,i,j)) + if(jnmb(3)>0) CALL ae1kmic (1,m1,cnmhx(1,3),micro%cnmpp(1,i,j)) + if(jnmb(4)>0) CALL ae1kmic (1,m1,cnmhx(1,4),micro%cnmsp(1,i,j)) + if(jnmb(5)>0) CALL ae1kmic (1,m1,cnmhx(1,5),micro%cnmap(1,i,j)) + if(jnmb(6)>0) CALL ae1kmic (1,m1,cnmhx(1,6),micro%cnmgp(1,i,j)) + if(jnmb(7)>0) CALL ae1kmic (1,m1,cnmhx(1,7),micro%cnmhp(1,i,j)) + if(jnmb(8)>0) CALL ae1kmic (1,m1,cnmhx(1,8),micro%cnmdp(1,i,j)) + if(itrkepsilon==1) then + if(jnmb(1)>0) CALL ae1kmic (1,m1,snmhx(1,1),micro%snmcp(1,i,j)) + if(jnmb(2)>0) CALL ae1kmic (1,m1,snmhx(1,2),micro%snmrp(1,i,j)) + if(jnmb(3)>0) CALL ae1kmic (1,m1,snmhx(1,3),micro%snmpp(1,i,j)) + if(jnmb(4)>0) CALL ae1kmic (1,m1,snmhx(1,4),micro%snmsp(1,i,j)) + if(jnmb(5)>0) CALL ae1kmic (1,m1,snmhx(1,5),micro%snmap(1,i,j)) + if(jnmb(6)>0) CALL ae1kmic (1,m1,snmhx(1,6),micro%snmgp(1,i,j)) + if(jnmb(7)>0) CALL ae1kmic (1,m1,snmhx(1,7),micro%snmhp(1,i,j)) + if(jnmb(8)>0) CALL ae1kmic (1,m1,snmhx(1,8),micro%snmdp(1,i,j)) + endif + if(itrkdust==1) then + if(jnmb(1)>0) CALL ae1kmic (1,m1,dnmhx(1,1),micro%dnmcp(1,i,j)) + if(jnmb(2)>0) CALL ae1kmic (1,m1,dnmhx(1,2),micro%dnmrp(1,i,j)) + if(jnmb(3)>0) CALL ae1kmic (1,m1,dnmhx(1,3),micro%dnmpp(1,i,j)) + if(jnmb(4)>0) CALL ae1kmic (1,m1,dnmhx(1,4),micro%dnmsp(1,i,j)) + if(jnmb(5)>0) CALL ae1kmic (1,m1,dnmhx(1,5),micro%dnmap(1,i,j)) + if(jnmb(6)>0) CALL ae1kmic (1,m1,dnmhx(1,6),micro%dnmgp(1,i,j)) + if(jnmb(7)>0) CALL ae1kmic (1,m1,dnmhx(1,7),micro%dnmhp(1,i,j)) + if(jnmb(8)>0) CALL ae1kmic (1,m1,dnmhx(1,8),micro%dnmdp(1,i,j)) + endif + if(itrkdustifn==1) then + if(jnmb(1)>0) CALL ae1kmic (1,m1,dinhx(1,1),micro%dincp(1,i,j)) + if(jnmb(2)>0) CALL ae1kmic (1,m1,dinhx(1,2),micro%dinrp(1,i,j)) + if(jnmb(3)>0) CALL ae1kmic (1,m1,dinhx(1,3),micro%dinpp(1,i,j)) + if(jnmb(4)>0) CALL ae1kmic (1,m1,dinhx(1,4),micro%dinsp(1,i,j)) + if(jnmb(5)>0) CALL ae1kmic (1,m1,dinhx(1,5),micro%dinap(1,i,j)) + if(jnmb(6)>0) CALL ae1kmic (1,m1,dinhx(1,6),micro%dingp(1,i,j)) + if(jnmb(7)>0) CALL ae1kmic (1,m1,dinhx(1,7),micro%dinhp(1,i,j)) + if(jnmb(8)>0) CALL ae1kmic (1,m1,dinhx(1,8),micro%dindp(1,i,j)) + endif + endif + + !Zero out very small mixing ratios + do lcat = 1,ncat + do k = 1,m1 + if(jnmb(lcat)>=5 .and. (rx(k,lcat) < rxmin .or. cx(k,lcat) <= 0.0)) then + rx(k,lcat) = 0. + cx(k,lcat) = 0. + qx(k,lcat) = 0. + endif + if(rx(k,lcat) < rxmin) then + rx(k,lcat) = 0. + qx(k,lcat) = 0. + pcpvx(k,lcat) = 0. + !Aerosol and solubility tracking + if(iccnlev>=2) then + cnmhx(k,lcat) = 0. + if(itrkepsilon==1) snmhx(k,lcat) = 0. + if(itrkdust==1) dnmhx(k,lcat) = 0. + if(itrkdustifn==1) dinhx(k,lcat) = 0. + endif + endif + !Aerosol and solubility tracking + if(iccnlev>=2) then + if(cnmhx(k,lcat)cnmhx(k,lcat)) & + snmhx(k,lcat)=0.99*cnmhx(k,lcat) + endif + enddo + enddo + + !Prevent condensate from being > total water + do k = 1,m1 + rtp(k,i,j) = max(0.,rtp(k,i,j)) + rtemp(k) = 1.001 * (rx(k,1)+ rx(k,2) + rx(k,3) & + + rx(k,4) + rx(k,5) + rx(k,6) + rx(k,7) + rx(k,8)) + enddo + do k = 1,m1 + if (rtemp(k) > rtp(k,i,j)) then + frac = rtp(k,i,j) / max(rxmin,rtemp(k)) + do lcat = 1,ncat + rx(k,lcat) = rx(k,lcat) * frac + !Aerosol and solubility tracking + if(iccnlev>=2) then + cnmhx(k,lcat) = cnmhx(k,lcat) * frac + if(itrkepsilon==1) snmhx(k,lcat) = snmhx(k,lcat) * frac + if(itrkdust==1) dnmhx(k,lcat) = dnmhx(k,lcat) * frac + if(itrkdustifn==1) dinhx(k,lcat) = dinhx(k,lcat) * frac + endif + enddo + endif + enddo + + !Reproportion number concentration if mixing ratio was reproportioned + !so that mean diameters stay the same + if(jnmb(1)>=5) CALL ae1mic (1,m1,cx(1,1),micro%rcp(1,i,j),rx(1,1)) + if(jnmb(2)>=5) CALL ae1mic (1,m1,cx(1,2),micro%rrp(1,i,j),rx(1,2)) + if(jnmb(3)>=5) CALL ae1mic (1,m1,cx(1,3),micro%rpp(1,i,j),rx(1,3)) + if(jnmb(4)>=5) CALL ae1mic (1,m1,cx(1,4),micro%rsp(1,i,j),rx(1,4)) + if(jnmb(5)>=5) CALL ae1mic (1,m1,cx(1,5),micro%rap(1,i,j),rx(1,5)) + if(jnmb(6)>=5) CALL ae1mic (1,m1,cx(1,6),micro%rgp(1,i,j),rx(1,6)) + if(jnmb(7)>=5) CALL ae1mic (1,m1,cx(1,7),micro%rhp(1,i,j),rx(1,7)) + if(jnmb(8)>=5) CALL ae1mic (1,m1,cx(1,8),micro%rdp(1,i,j),rx(1,8)) + + !Copy mixing ratio back to global variables + if(jnmb(1) > 0) CALL ae1kmic (1,m1,micro%rcp(1,i,j),rx(1,1)) + if(jnmb(2) > 0) CALL ae1kmic (1,m1,micro%rrp(1,i,j),rx(1,2)) + if(jnmb(3) > 0) CALL ae1kmic (1,m1,micro%rpp(1,i,j),rx(1,3)) + if(jnmb(4) > 0) CALL ae1kmic (1,m1,micro%rsp(1,i,j),rx(1,4)) + if(jnmb(5) > 0) CALL ae1kmic (1,m1,micro%rap(1,i,j),rx(1,5)) + if(jnmb(6) > 0) CALL ae1kmic (1,m1,micro%rgp(1,i,j),rx(1,6)) + if(jnmb(7) > 0) CALL ae1kmic (1,m1,micro%rhp(1,i,j),rx(1,7)) + if(jnmb(8) > 0) CALL ae1kmic (1,m1,micro%rdp(1,i,j),rx(1,8)) + + !Copy internal hydrometeor energy back to global vars + if(jnmb(2) > 0) CALL ae1kmic (1,m1,micro%q2(1,i,j),qx(1,2)) + if(jnmb(6) > 0) CALL ae1kmic (1,m1,micro%q6(1,i,j),qx(1,6)) + if(jnmb(7) > 0) CALL ae1kmic (1,m1,micro%q7(1,i,j),qx(1,7)) + + !Copy number concentration back to global variables + if(jnmb(1) >= 5) CALL ae1kmic (1,m1,micro%ccp(1,i,j),cx(1,1)) + if(jnmb(2) >= 5) CALL ae1kmic (1,m1,micro%crp(1,i,j),cx(1,2)) + if(jnmb(3) >= 5) CALL ae1kmic (1,m1,micro%cpp(1,i,j),cx(1,3)) + if(jnmb(4) >= 5) CALL ae1kmic (1,m1,micro%csp(1,i,j),cx(1,4)) + if(jnmb(5) >= 5) CALL ae1kmic (1,m1,micro%cap(1,i,j),cx(1,5)) + if(jnmb(6) >= 5) CALL ae1kmic (1,m1,micro%cgp(1,i,j),cx(1,6)) + if(jnmb(7) >= 5) CALL ae1kmic (1,m1,micro%chp(1,i,j),cx(1,7)) + if(jnmb(8) >= 5) CALL ae1kmic (1,m1,micro%cdp(1,i,j),cx(1,8)) + + !Copy 3D precip rates back to global variables + if(jnmb(2) > 0) CALL ae1kmic (1,m1,micro%pcpvr(1,i,j),pcpvx(1,2)) + if(jnmb(3) > 0) CALL ae1kmic (1,m1,micro%pcpvp(1,i,j),pcpvx(1,3)) + if(jnmb(4) > 0) CALL ae1kmic (1,m1,micro%pcpvs(1,i,j),pcpvx(1,4)) + if(jnmb(5) > 0) CALL ae1kmic (1,m1,micro%pcpva(1,i,j),pcpvx(1,5)) + if(jnmb(6) > 0) CALL ae1kmic (1,m1,micro%pcpvg(1,i,j),pcpvx(1,6)) + if(jnmb(7) > 0) CALL ae1kmic (1,m1,micro%pcpvh(1,i,j),pcpvx(1,7)) + if(jnmb(8) > 0) CALL ae1kmic (1,m1,micro%pcpvd(1,i,j),pcpvx(1,8)) + + !Aerosol and solubility tracking; Copy back to global variables + if(iccnlev>=2)then + if(jnmb(1)>0) CALL ae1kmic (1,m1,micro%cnmcp(1,i,j),cnmhx(1,1)) + if(jnmb(2)>0) CALL ae1kmic (1,m1,micro%cnmrp(1,i,j),cnmhx(1,2)) + if(jnmb(3)>0) CALL ae1kmic (1,m1,micro%cnmpp(1,i,j),cnmhx(1,3)) + if(jnmb(4)>0) CALL ae1kmic (1,m1,micro%cnmsp(1,i,j),cnmhx(1,4)) + if(jnmb(5)>0) CALL ae1kmic (1,m1,micro%cnmap(1,i,j),cnmhx(1,5)) + if(jnmb(6)>0) CALL ae1kmic (1,m1,micro%cnmgp(1,i,j),cnmhx(1,6)) + if(jnmb(7)>0) CALL ae1kmic (1,m1,micro%cnmhp(1,i,j),cnmhx(1,7)) + if(jnmb(8)>0) CALL ae1kmic (1,m1,micro%cnmdp(1,i,j),cnmhx(1,8)) + if(itrkepsilon==1)then + if(jnmb(1)>0) CALL ae1kmic (1,m1,micro%snmcp(1,i,j),snmhx(1,1)) + if(jnmb(2)>0) CALL ae1kmic (1,m1,micro%snmrp(1,i,j),snmhx(1,2)) + if(jnmb(3)>0) CALL ae1kmic (1,m1,micro%snmpp(1,i,j),snmhx(1,3)) + if(jnmb(4)>0) CALL ae1kmic (1,m1,micro%snmsp(1,i,j),snmhx(1,4)) + if(jnmb(5)>0) CALL ae1kmic (1,m1,micro%snmap(1,i,j),snmhx(1,5)) + if(jnmb(6)>0) CALL ae1kmic (1,m1,micro%snmgp(1,i,j),snmhx(1,6)) + if(jnmb(7)>0) CALL ae1kmic (1,m1,micro%snmhp(1,i,j),snmhx(1,7)) + if(jnmb(8)>0) CALL ae1kmic (1,m1,micro%snmdp(1,i,j),snmhx(1,8)) + endif + if(itrkdust==1)then + if(jnmb(1)>0) CALL ae1kmic (1,m1,micro%dnmcp(1,i,j),dnmhx(1,1)) + if(jnmb(2)>0) CALL ae1kmic (1,m1,micro%dnmrp(1,i,j),dnmhx(1,2)) + if(jnmb(3)>0) CALL ae1kmic (1,m1,micro%dnmpp(1,i,j),dnmhx(1,3)) + if(jnmb(4)>0) CALL ae1kmic (1,m1,micro%dnmsp(1,i,j),dnmhx(1,4)) + if(jnmb(5)>0) CALL ae1kmic (1,m1,micro%dnmap(1,i,j),dnmhx(1,5)) + if(jnmb(6)>0) CALL ae1kmic (1,m1,micro%dnmgp(1,i,j),dnmhx(1,6)) + if(jnmb(7)>0) CALL ae1kmic (1,m1,micro%dnmhp(1,i,j),dnmhx(1,7)) + if(jnmb(8)>0) CALL ae1kmic (1,m1,micro%dnmdp(1,i,j),dnmhx(1,8)) + endif + if(itrkdustifn==1)then + if(jnmb(1)>0) CALL ae1kmic (1,m1,micro%dincp(1,i,j),dinhx(1,1)) + if(jnmb(2)>0) CALL ae1kmic (1,m1,micro%dinrp(1,i,j),dinhx(1,2)) + if(jnmb(3)>0) CALL ae1kmic (1,m1,micro%dinpp(1,i,j),dinhx(1,3)) + if(jnmb(4)>0) CALL ae1kmic (1,m1,micro%dinsp(1,i,j),dinhx(1,4)) + if(jnmb(5)>0) CALL ae1kmic (1,m1,micro%dinap(1,i,j),dinhx(1,5)) + if(jnmb(6)>0) CALL ae1kmic (1,m1,micro%dingp(1,i,j),dinhx(1,6)) + if(jnmb(7)>0) CALL ae1kmic (1,m1,micro%dinhp(1,i,j),dinhx(1,7)) + if(jnmb(8)>0) CALL ae1kmic (1,m1,micro%dindp(1,i,j),dinhx(1,8)) + endif + endif + + !Keep immersion-freezing IN positive-definite and keep + !from exceeded total number of droplets + if(iifn==3 .and. iccnlev>=1) then + if (jnmb(1) >= 5) CALL ae1kmic (1,m1,ifnnucx(1),micro%ifnnucp(1,i,j)) + if (jnmb(1) >= 5) CALL ae1kmic (1,m1,immerhx(1,1),micro%immercp(1,i,j)) + if (jnmb(8) >= 5) CALL ae1kmic (1,m1,immerhx(1,8),micro%immerdp(1,i,j)) + if (jnmb(2) >= 5) CALL ae1kmic (1,m1,immerhx(1,2),micro%immerrp(1,i,j)) + do k = 1,m1 + if(ifnnucx(k) < minifn) ifnnucx(k) = 0. + do lcat=1,ncat + if(lcat==1.or.lcat==8.or.lcat==2)then !limit to liquid species + cxtemp = 0.0 + if(lcat==1 .and. jnmb(1)>=5) cxtemp = micro%ccp(k,i,j) + if(lcat==8 .and. jnmb(8)>=5) cxtemp = micro%cdp(k,i,j) + if(lcat==2 .and. jnmb(2)>=5) cxtemp = micro%crp(k,i,j) + if(immerhx(k,lcat) > cxtemp) immerhx(k,lcat) = 0.9999 * cxtemp + if(immerhx(k,lcat) < minifn) immerhx(k,lcat) = 0. + endif + enddo + enddo + if (jnmb(1) >= 5) CALL ae1kmic (1,m1,micro%ifnnucp(1,i,j),ifnnucx(1)) + if (jnmb(1) >= 5) CALL ae1kmic (1,m1,micro%immercp(1,i,j),immerhx(1,1)) + if (jnmb(8) >= 5) CALL ae1kmic (1,m1,micro%immerdp(1,i,j),immerhx(1,8)) + if (jnmb(2) >= 5) CALL ae1kmic (1,m1,micro%immerrp(1,i,j),immerhx(1,2)) + endif + + !CHECK FOR NEGATIVE VALUES OF AEROSOL SPECIES OVER ALL LEVELS + do k = 1,m1 + toomany=0 + + !TOO LARGE OF VALUES OF AEROSOLS + + if(level==3 .and. ipris>=5 .and. (iifn==1.or.iifn==2)) then + if(micro%cifnp(k,i,j) > maxaero) then + print*,"Too many IFN:",micro%cifnp(k,i,j) + toomany=1 + endif + endif + if(iaerosol>0)then + if(micro%cccnp(k,i,j) > maxaero) then + print*,"Too many CCN:",micro%cccnp(k,i,j) + toomany=1 + endif + if(micro%gccnp(k,i,j) > maxaero) then + print*,"Too many GCCN:",micro%gccnp(k,i,j) + toomany=1 + endif + endif + if(idust>0) then + if(micro%md1np(k,i,j) > maxaero) then + print*,"Too many Dust1:",micro%md1np(k,i,j) + toomany=1 + endif + if(micro%md2np(k,i,j) > maxaero) then + print*,"Too many Dust2:",micro%md2np(k,i,j) + toomany=1 + endif + endif + if(isalt>0) then + if(micro%salt_film_np(k,i,j) > maxaero) then + print*,"Too many Salt-Film:",micro%salt_film_np(k,i,j) + toomany=1 + endif + if(micro%salt_jet_np(k,i,j) > maxaero) then + print*,"Too many Salt-Jet:",micro%salt_jet_np(k,i,j) + toomany=1 + endif + if(micro%salt_spum_np(k,i,j) > maxaero) then + print*,"Too many Salt-Spume:",micro%salt_spum_np(k,i,j) + toomany=1 + endif + endif + if(level==3 .and. iccnlev>=2)then + if(micro%regen_aero1_np(k,i,j) > maxaero) then + print*,"Too many Small-Regen-aero:",micro%regen_aero1_np(k,i,j) + toomany=1 + endif + if(micro%regen_aero2_np(k,i,j) > maxaero) then + print*,"Too many Large-Regen-aero:",micro%regen_aero2_np(k,i,j) + toomany=1 + endif + endif + if(toomany==1) then + print*,"Aerosols exceed max value at k,i,j: ",k,i+mi0(ngr),j+mj0(ngr) + print*,"This error typically occurs due to advection/diffusion" + print*,"around too steep topography in the sigma-z coordinate." + print*,"Solutions are: (1)reduce timestep, (2)use IHORGRAD=2," + print*,"or (3)smooth your topography in RAMSIN." + stop + endif + + !SET SMALL VALUES TO ZERO + if(iaerosol>0) then + if(micro%cccnp(k,i,j)0) then + if(micro%md1np(k,i,j)0) then + if(micro%salt_film_np(k,i,j)=2) then + if(micro%regen_aero1_np(k,i,j) micro%regen_aero1_mp(k,i,j)) & + micro%resol_aero1_mp(k,i,j) = 0.99*micro%regen_aero1_mp(k,i,j) + if(micro%resol_aero2_mp(k,i,j) > micro%regen_aero2_mp(k,i,j)) & + micro%resol_aero2_mp(k,i,j) = 0.99*micro%regen_aero2_mp(k,i,j) + endif + endif + enddo + +! Think about how thp should change here - should it be due to a change in +! rtp or to a change in the condensate? +! +! vctr10(k) = rrp(k,i,j +rpp(k,i,j) + rsp(k,i,j) + rap(k,i,j) +! + + rgp(k,i,j) + rhp(k,i,j) +! thp(k,i,j) = thp(k,i,j) +! + * (1. - aklv * (vctr8(k) - rtp(k,i,j)) +!c or + * (1. - aklv * (vctr10(k) - vctr9(k,i,j)) +! + /(max(temp, 253.))) + + enddo +enddo + +return +END SUBROUTINE adj1 + +!############################################################################## +Subroutine ae1mic (ka,kb,c1,r3,r1) + +use micphys, only:rxmin + +implicit none + +integer :: ka,kb +real, dimension(kb) :: c1,r3,r1 +integer :: k + +do k = ka,kb + c1(k) = c1(k) * r1(k) / max(rxmin,r3(k)) + if (c1(k) < 0.) c1(k) = 0. +enddo + +return +END SUBROUTINE ae1mic + +!############################################################################## +Subroutine ae1kmic (ka,kb,cr3,cr1) + +implicit none + +integer :: ka,kb +real, dimension(kb) :: cr3,cr1 +integer :: k + +do k = ka,kb + cr3(k) = cr1(k) +enddo + +return +END SUBROUTINE ae1kmic diff --git a/src/6.2.16/micro/mic_aero.f90 b/src/6.2.16/micro/mic_aero.f90 new file mode 100644 index 0000000..83224de --- /dev/null +++ b/src/6.2.16/micro/mic_aero.f90 @@ -0,0 +1,231 @@ +!############################################################################## +Subroutine aerosols () + +use mem_basic +use mem_micro +use mem_grid +use mem_leaf +use node_mod +use micphys + +implicit none + +integer :: i,j + +!Run the SEASALT and DUST Source model before the call to Micro +if(idust==2) then + CALL dust_sources (mzp,mxp,myp,ia,iz,ja,jz & + ,grid_g(ngrid)%rtgt & + ,grid_g(ngrid)%glat & + ,grid_g(ngrid)%glon & + ,basic_g(ngrid)%up & + ,basic_g(ngrid)%vp & + ,basic_g(ngrid)%dn0 & + ,micro_g(ngrid)%md1np & + ,micro_g(ngrid)%md2np & + ,micro_g(ngrid)%md1mp & + ,micro_g(ngrid)%md2mp & + ,micro_g(ngrid)%dustfrac & + ,leaf_g(ngrid)%soil_water & + ,leaf_g(ngrid)%patch_area & + ,leaf_g(ngrid)%leaf_class & + ,leaf_g(ngrid)%soil_text & + ,leaf_g(ngrid)%veg_rough & + ) +endif + +if(isalt==2) then + CALL salt_sources (mzp,mxp,myp,ia,iz,ja,jz & + ,grid_g(ngrid)%rtgt & + ,basic_g(ngrid)%up & + ,basic_g(ngrid)%vp & + ,basic_g(ngrid)%dn0 & + ,micro_g(ngrid)%salt_film_np & + ,micro_g(ngrid)%salt_jet_np & + ,micro_g(ngrid)%salt_spum_np & + ,micro_g(ngrid)%salt_film_mp & + ,micro_g(ngrid)%salt_jet_mp & + ,micro_g(ngrid)%salt_spum_mp & + ,leaf_g(ngrid)%patch_area & + ,leaf_g(ngrid)%leaf_class & + ) +endif + +! Aerosol dry and wet deposition call when micro LEVEL < 3 +if(iaerodep==1 .and. level<3) then + do j = ja,jz + do i = ia,iz + + CALL aero_copy (1,mzp & + ,micro_g(ngrid)%cccnp(1,i,j),micro_g(ngrid)%cccmp(1,i,j) & + ,micro_g(ngrid)%gccnp(1,i,j),micro_g(ngrid)%gccmp(1,i,j) & + ,micro_g(ngrid)%md1np(1,i,j),micro_g(ngrid)%md1mp(1,i,j) & + ,micro_g(ngrid)%md2np(1,i,j),micro_g(ngrid)%md2mp(1,i,j) & + ,micro_g(ngrid)%salt_film_np(1,i,j),micro_g(ngrid)%salt_film_mp(1,i,j) & + ,micro_g(ngrid)%salt_jet_np(1,i,j) ,micro_g(ngrid)%salt_jet_mp(1,i,j) & + ,micro_g(ngrid)%salt_spum_np(1,i,j),micro_g(ngrid)%salt_spum_mp(1,i,j)) + + CALL deposition_driver (i,j,mzp,zm & + ,grid_g(ngrid)%rtgt(i,j) & + ,basic_g(ngrid)%rv(1,i,j) & + ,basic_g(ngrid)%theta(1,i,j) & + ,basic_g(ngrid)%up(1,i,j) & + ,basic_g(ngrid)%vp(1,i,j) & + ,basic_g(ngrid)%dn0(1,i,j) & + ,basic_g(ngrid)%pi0(1,i,j) & + ,basic_g(ngrid)%pp(1,i,j) & + ,leaf_g(ngrid)%leaf_class(i,j,1:npatch) & + ,leaf_g(ngrid)%patch_area(i,j,1:npatch) & + ,leaf_g(ngrid)%ustar(i,j,1:npatch) & + ,leaf_g(ngrid)%patch_rough(i,j,1:npatch) & + ,imonth1 & + ) + + CALL aero_copy (2,mzp & + ,micro_g(ngrid)%cccnp(1,i,j),micro_g(ngrid)%cccmp(1,i,j) & + ,micro_g(ngrid)%gccnp(1,i,j),micro_g(ngrid)%gccmp(1,i,j) & + ,micro_g(ngrid)%md1np(1,i,j),micro_g(ngrid)%md1mp(1,i,j) & + ,micro_g(ngrid)%md2np(1,i,j),micro_g(ngrid)%md2mp(1,i,j) & + ,micro_g(ngrid)%salt_film_np(1,i,j),micro_g(ngrid)%salt_film_mp(1,i,j) & + ,micro_g(ngrid)%salt_jet_np(1,i,j) ,micro_g(ngrid)%salt_jet_mp(1,i,j) & + ,micro_g(ngrid)%salt_spum_np(1,i,j),micro_g(ngrid)%salt_spum_mp(1,i,j)) + + enddo + enddo +endif + +return +END SUBROUTINE aerosols + +!############################################################################## +Subroutine aerosol_init () + +use micphys +use mem_grid, only:iprntstmt,print_msg + +implicit none + +real :: weightfac + +! Set aerosol density depending on chemistry and soluble fraction +! Pure quantity densities (kg/m3) are: +! NH42S04 = 1769. (ammonium sulfate) +! Clay Dust (smaller) = 2500. +! Silt Dust (larger) = 2650. +! NaCl = 2165. (sodium chloride) + +! Set Aerosol density (kg/m3) based on weighted mixture of soluble +! and insoluble material. Assume insoluble core to be like that of +! silt dust with density = 2650 kg/m3, except for acat=3 which is +! already set to small sized clay dust +! Also set vanthoff factors for given chemistry + +if(iprntstmt>=1 .and. print_msg) print*,'' +if(iprntstmt>=1 .and. print_msg) print*,'Setting up default aerosol densities:' + +do acat=1,aerocat + + aero_rhosol(acat) = 0.0 + aero_vanthoff(acat) = 0.0 + + if(acat==3) then !if small dust (clay) + weightfac = 2500. * (1.0-aero_epsilon(acat)) !clay dust core + else !all other + weightfac = 2650. * (1.0-aero_epsilon(acat)) !silt dust core + endif + + if(iaero_chem(acat)==1) then !NH42S04 + aero_rhosol(acat) = 1769. * aero_epsilon(acat) + weightfac + aero_vanthoff(acat) = 3 + elseif(iaero_chem(acat)==2) then !NaCl + aero_rhosol(acat) = 2165. * aero_epsilon(acat) + weightfac + aero_vanthoff(acat) = 2 + endif + + if(iprntstmt>=1 .and. print_msg) print*,'acat,rg,rho,i:',acat & + ,aero_medrad(acat),aero_rhosol(acat),aero_vanthoff(acat) + +enddo + +if(iprntstmt>=1 .and. print_msg) print*,'' + +return +END SUBROUTINE aerosol_init + +!############################################################################## +Subroutine aero_copy (aflag,m1,cccnp,cccmp,gccnp,gccmp,md1np,md1mp & + ,md2np,md2mp,salt_film_np,salt_film_mp,salt_jet_np & + ,salt_jet_mp,salt_spum_np,salt_spum_mp) + +!This routine is called in the event that MICRO LEVEL=1,2 so that +!aerosols can still be allowed to impact radiation. + +use micphys + +implicit none + +integer :: m1,k,aflag +real, dimension(m1) :: cccnp,cccmp,gccnp,gccmp,md1np,md1mp & + ,md2np,md2mp,salt_film_np,salt_film_mp,salt_jet_np & + ,salt_jet_mp,salt_spum_np,salt_spum_mp + +if(aflag==1)then + !Zero out aerosol scratch arrays + do acat = 1,aerocat + do k = 1,m1 + aerocon(k,acat) = 0.0 + aeromas(k,acat) = 0.0 + enddo + enddo + !Fill scratch arrays for aerosol modes for level=1,2 + do k = 1,m1-1 + if (iaerosol > 0) then + aerocon(k,1) = cccnp(k) + aeromas(k,1) = cccmp(k) + aerocon(k,2) = gccnp(k) + aeromas(k,2) = gccmp(k) + endif + if (idust > 0) then + aerocon(k,3) = md1np(k) + aeromas(k,3) = md1mp(k) + aerocon(k,4) = md2np(k) + aeromas(k,4) = md2mp(k) + endif + if (isalt > 0) then + aerocon(k,5) = salt_film_np(k) + aeromas(k,5) = salt_film_mp(k) + aerocon(k,6) = salt_jet_np(k) + aeromas(k,6) = salt_jet_mp(k) + aerocon(k,7) = salt_spum_np(k) + aeromas(k,7) = salt_spum_mp(k) + endif + enddo + +elseif(aflag==2)then + !Copy back scratch arrays to aerosol modes for level=1,2 + do k = 1,m1-1 + if (iaerosol > 0) then + cccnp(k) = aerocon(k,1) + cccmp(k) = aeromas(k,1) + gccnp(k) = aerocon(k,2) + gccmp(k) = aeromas(k,2) + endif + if (idust > 0) then + md1np(k) = aerocon(k,3) + md1mp(k) = aeromas(k,3) + md2np(k) = aerocon(k,4) + md2mp(k) = aeromas(k,4) + endif + if (isalt > 0) then + salt_film_np(k) = aerocon(k,5) + salt_film_mp(k) = aeromas(k,5) + salt_jet_np(k) = aerocon(k,6) + salt_jet_mp(k) = aeromas(k,6) + salt_spum_np(k) = aerocon(k,7) + salt_spum_mp(k) = aeromas(k,7) + endif + enddo +endif + +return +END SUBROUTINE aero_copy diff --git a/src/6.2.16/micro/mic_chknan.f90 b/src/6.2.16/micro/mic_chknan.f90 new file mode 100644 index 0000000..5f3a167 --- /dev/null +++ b/src/6.2.16/micro/mic_chknan.f90 @@ -0,0 +1,498 @@ +!############################################################################## +Subroutine checkmicro (string) + +use mem_basic +use mem_micro +use mem_grid +use mem_turb +use mem_leaf +use mem_tend +use node_mod +use micphys +use rconstants + +implicit none + +integer :: k,i,j,prtflg,mprtflg +logical, external :: isnanr +character(len=*) :: string +real, external :: valugp +real :: tempvar + +prtflg=0 +mprtflg=0 + +do j = ja,jz +do i = ia,iz +do k = 1,mzp + + !CHECK FOR NEGATIVE VAPOR OR MIXING RATIO + if(level>=1)then + if(basic_g(ngrid)%rv(k,i,j)<0.0.or.basic_g(ngrid)%rtp(k,i,j)<0.0) mprtflg=1 + endif + if(level>=2)then + if(micro_g(ngrid)%rcp(k,i,j)<0.0) mprtflg=1 + endif + if(level==3)then + if((idriz >= 1 .and. micro_g(ngrid)%rdp(k,i,j)<0.0) .or. & + (irain >= 1 .and. micro_g(ngrid)%rrp(k,i,j)<0.0) .or. & + (ipris >= 1 .and. micro_g(ngrid)%rpp(k,i,j)<0.0) .or. & + (isnow >= 1 .and. micro_g(ngrid)%rsp(k,i,j)<0.0) .or. & + (iaggr >= 1 .and. micro_g(ngrid)%rap(k,i,j)<0.0) .or. & + (igraup >= 1 .and. micro_g(ngrid)%rgp(k,i,j)<0.0) .or. & + (ihail >= 1 .and. micro_g(ngrid)%rhp(k,i,j)<0.0)) mprtflg=1 + endif + + !CHECK ICE NUCLEI + if (jnmb(3)>=5 .and. (iifn==1.or.iifn==2)) then + if(isnanr(micro_g(ngrid)%cifnp(k,i,j))) prtflg=1 + tempvar = valugp(mzp,mxp,myp,k,i,j,tend%cifnt(1)) + if(isnanr(tempvar)) prtflg=1 + if(tempvar>1.e30) prtflg=1 + endif + !CHECK DUST MODES + if(idust > 0)then + if(isnanr(micro_g(ngrid)%md1np(k,i,j)) .or. & + isnanr(micro_g(ngrid)%md1mp(k,i,j)) .or. & + isnanr(micro_g(ngrid)%md2np(k,i,j)) .or. & + isnanr(micro_g(ngrid)%md2mp(k,i,j)) ) prtflg=1 + endif + !CHECK SEA SALT MODES + if(isalt > 0)then + if(isnanr(micro_g(ngrid)%salt_film_np(k,i,j)) .or. & + isnanr(micro_g(ngrid)%salt_jet_np(k,i,j)) .or. & + isnanr(micro_g(ngrid)%salt_spum_np(k,i,j)) .or. & + isnanr(micro_g(ngrid)%salt_film_mp(k,i,j)) .or. & + isnanr(micro_g(ngrid)%salt_jet_mp(k,i,j)) .or. & + isnanr(micro_g(ngrid)%salt_spum_mp(k,i,j)) ) prtflg=1 + endif + !CHECK CCN AND GCCN + if(iaerosol > 0)then + if(isnanr(micro_g(ngrid)%cccnp(k,i,j)) .or. & + isnanr(micro_g(ngrid)%cccmp(k,i,j)) .or. & + isnanr(micro_g(ngrid)%gccnp(k,i,j)) .or. & + isnanr(micro_g(ngrid)%gccmp(k,i,j)) ) prtflg=1 + tempvar = valugp(mzp,mxp,myp,k,i,j,tend%cccnt(1)) + if(isnanr(tempvar)) prtflg=1 + if(tempvar>1.e30) prtflg=1 + tempvar = valugp(mzp,mxp,myp,k,i,j,tend%cccmt(1)) + if(isnanr(tempvar)) prtflg=1 + if(tempvar>1.e30) prtflg=1 + tempvar = valugp(mzp,mxp,myp,k,i,j,tend%gccnt(1)) + if(isnanr(tempvar)) prtflg=1 + if(tempvar>1.e30) prtflg=1 + tempvar = valugp(mzp,mxp,myp,k,i,j,tend%gccmt(1)) + if(isnanr(tempvar)) prtflg=1 + if(tempvar>1.e30) prtflg=1 + endif + !CHECK REGENERATED AEROSOL MODES + if(iccnlev>=2)then + if(isnanr(micro_g(ngrid)%regen_aero1_np(k,i,j)) .or. & + isnanr(micro_g(ngrid)%regen_aero2_np(k,i,j)) .or. & + isnanr(micro_g(ngrid)%regen_aero1_mp(k,i,j)) .or. & + isnanr(micro_g(ngrid)%regen_aero2_mp(k,i,j)) ) prtflg=1 + endif + + !CHECK TOTAL AEROSOL TRACKING VARIABLES + if(iccnlev>=2)then + if(icloud>=1)then + if(isnanr(micro_g(ngrid)%cnmcp(k,i,j))) prtflg=1 + endif + if(irain>=1)then + if(isnanr(micro_g(ngrid)%cnmrp(k,i,j))) prtflg=1 + endif + if(ipris>=1)then + if(isnanr(micro_g(ngrid)%cnmpp(k,i,j))) prtflg=1 + endif + if(isnow>=1)then + if(isnanr(micro_g(ngrid)%cnmsp(k,i,j))) prtflg=1 + endif + if(iaggr>=1)then + if(isnanr(micro_g(ngrid)%cnmap(k,i,j))) prtflg=1 + endif + if(igraup>=1)then + if(isnanr(micro_g(ngrid)%cnmgp(k,i,j))) prtflg=1 + endif + if(ihail>=1)then + if(isnanr(micro_g(ngrid)%cnmhp(k,i,j))) prtflg=1 + endif + if(idriz>=1)then + if(isnanr(micro_g(ngrid)%cnmdp(k,i,j))) prtflg=1 + endif + if(itrkepsilon==1) then + if(icloud>=1)then + if(isnanr(micro_g(ngrid)%snmcp(k,i,j))) prtflg=1 + endif + if(irain>=1)then + if(isnanr(micro_g(ngrid)%snmrp(k,i,j))) prtflg=1 + endif + if(ipris>=1)then + if(isnanr(micro_g(ngrid)%snmpp(k,i,j))) prtflg=1 + endif + if(isnow>=1)then + if(isnanr(micro_g(ngrid)%snmsp(k,i,j))) prtflg=1 + endif + if(iaggr>=1)then + if(isnanr(micro_g(ngrid)%snmap(k,i,j))) prtflg=1 + endif + if(igraup>=1)then + if(isnanr(micro_g(ngrid)%snmgp(k,i,j))) prtflg=1 + endif + if(ihail>=1)then + if(isnanr(micro_g(ngrid)%snmhp(k,i,j))) prtflg=1 + endif + if(idriz>=1)then + if(isnanr(micro_g(ngrid)%snmdp(k,i,j))) prtflg=1 + endif + if(isnanr(micro_g(ngrid)%resol_aero1_mp(k,i,j)) .or. & + isnanr(micro_g(ngrid)%resol_aero2_mp(k,i,j)) ) prtflg=1 + endif + if(itrkdust==1)then + if(icloud>=1)then + if(isnanr(micro_g(ngrid)%dnmcp(k,i,j))) prtflg=1 + endif + if(irain>=1)then + if(isnanr(micro_g(ngrid)%dnmrp(k,i,j))) prtflg=1 + endif + if(ipris>=1)then + if(isnanr(micro_g(ngrid)%dnmpp(k,i,j))) prtflg=1 + endif + if(isnow>=1)then + if(isnanr(micro_g(ngrid)%dnmsp(k,i,j))) prtflg=1 + endif + if(iaggr>=1)then + if(isnanr(micro_g(ngrid)%dnmap(k,i,j))) prtflg=1 + endif + if(igraup>=1)then + if(isnanr(micro_g(ngrid)%dnmgp(k,i,j))) prtflg=1 + endif + if(ihail>=1)then + if(isnanr(micro_g(ngrid)%dnmhp(k,i,j))) prtflg=1 + endif + if(idriz>=1)then + if(isnanr(micro_g(ngrid)%dnmdp(k,i,j))) prtflg=1 + endif + endif + if(itrkdustifn==1)then + if(icloud>=1)then + if(isnanr(micro_g(ngrid)%dincp(k,i,j))) prtflg=1 + endif + if(irain>=1)then + if(isnanr(micro_g(ngrid)%dinrp(k,i,j))) prtflg=1 + endif + if(ipris>=1)then + if(isnanr(micro_g(ngrid)%dinpp(k,i,j))) prtflg=1 + endif + if(isnow>=1)then + if(isnanr(micro_g(ngrid)%dinsp(k,i,j))) prtflg=1 + endif + if(iaggr>=1)then + if(isnanr(micro_g(ngrid)%dinap(k,i,j))) prtflg=1 + endif + if(igraup>=1)then + if(isnanr(micro_g(ngrid)%dingp(k,i,j))) prtflg=1 + endif + if(ihail>=1)then + if(isnanr(micro_g(ngrid)%dinhp(k,i,j))) prtflg=1 + endif + if(idriz>=1)then + if(isnanr(micro_g(ngrid)%dindp(k,i,j))) prtflg=1 + endif + endif + endif + + !CHECK IMMERSION FREEZING NUCLEI TRACKING VARIABLES + if(iifn==3 .and. iccnlev>=1)then + if(jnmb(1) >= 5)then + if(isnanr(micro_g(ngrid)%ifnnucp(k,i,j))) prtflg=1 + endif + if(jnmb(1) >= 5)then + if(isnanr(micro_g(ngrid)%immercp(k,i,j))) prtflg=1 + endif + if(jnmb(8) >= 5)then + if(isnanr(micro_g(ngrid)%immerdp(k,i,j))) prtflg=1 + endif + if(jnmb(2) >= 5)then + if(isnanr(micro_g(ngrid)%immerrp(k,i,j))) prtflg=1 + endif + endif + + !CHECK HYDROMETEOR NUMBER CONCENTRATIONS + if(jnmb(1) >= 5)then + if(isnanr(micro_g(ngrid)%ccp(k,i,j))) prtflg=1 + endif + if(jnmb(8) >= 5)then + if(isnanr(micro_g(ngrid)%cdp(k,i,j))) prtflg=1 + endif + if(jnmb(2) >= 5)then + if(isnanr(micro_g(ngrid)%crp(k,i,j))) prtflg=1 + endif + if(jnmb(3) >= 5)then + if(isnanr(micro_g(ngrid)%cpp(k,i,j))) prtflg=1 + endif + if(jnmb(4) >= 5)then + if(isnanr(micro_g(ngrid)%csp(k,i,j))) prtflg=1 + endif + if(jnmb(5) >= 5)then + if(isnanr(micro_g(ngrid)%cap(k,i,j))) prtflg=1 + endif + if(jnmb(6) >= 5)then + if(isnanr(micro_g(ngrid)%cgp(k,i,j))) prtflg=1 + endif + if(jnmb(7) >= 5)then + if(isnanr(micro_g(ngrid)%chp(k,i,j))) prtflg=1 + endif + !CHECK HYDROMETEOR MIXING RATIOS + if(level>=2)then + if(isnanr(micro_g(ngrid)%rcp(k,i,j))) prtflg=1 + endif + if(idriz>=1)then + if(isnanr(micro_g(ngrid)%rdp(k,i,j))) prtflg=1 + endif + if(irain>=1)then + if(isnanr(micro_g(ngrid)%rrp(k,i,j))) prtflg=1 + endif + if(ipris>=1)then + if(isnanr(micro_g(ngrid)%rpp(k,i,j))) prtflg=1 + endif + if(isnow>=1)then + if(isnanr(micro_g(ngrid)%rsp(k,i,j))) prtflg=1 + endif + if(iaggr>=1)then + if(isnanr(micro_g(ngrid)%rap(k,i,j))) prtflg=1 + endif + if(igraup>=1)then + if(isnanr(micro_g(ngrid)%rgp(k,i,j))) prtflg=1 + endif + if(ihail>=1)then + if(isnanr(micro_g(ngrid)%rhp(k,i,j))) prtflg=1 + endif + !CHECK 3D PRECIPITATION RATES + if(idriz>=1)then + if(isnanr(micro_g(ngrid)%pcpvd(k,i,j))) prtflg=1 + endif + if(irain>=1)then + if(isnanr(micro_g(ngrid)%pcpvr(k,i,j))) prtflg=1 + endif + if(ipris>=1)then + if(isnanr(micro_g(ngrid)%pcpvp(k,i,j))) prtflg=1 + endif + if(isnow>=1)then + if(isnanr(micro_g(ngrid)%pcpvs(k,i,j))) prtflg=1 + endif + if(iaggr>=1)then + if(isnanr(micro_g(ngrid)%pcpva(k,i,j))) prtflg=1 + endif + if(igraup>=1)then + if(isnanr(micro_g(ngrid)%pcpvg(k,i,j))) prtflg=1 + endif + if(ihail>=1)then + if(isnanr(micro_g(ngrid)%pcpvh(k,i,j))) prtflg=1 + endif + + !CHECK DYNAMIC FIELDS + if(isnanr(basic_g(ngrid)%pp(k,i,j))) prtflg=1 + if(isnanr(basic_g(ngrid)%pc(k,i,j))) prtflg=1 + if(isnanr(basic_g(ngrid)%up(k,i,j))) prtflg=1 + if(isnanr(basic_g(ngrid)%uc(k,i,j))) prtflg=1 + if(isnanr(basic_g(ngrid)%vp(k,i,j))) prtflg=1 + if(isnanr(basic_g(ngrid)%vc(k,i,j))) prtflg=1 + if(isnanr(basic_g(ngrid)%wp(k,i,j))) prtflg=1 + if(isnanr(basic_g(ngrid)%wc(k,i,j))) prtflg=1 + if(isnanr(basic_g(ngrid)%theta(k,i,j))) prtflg=1 + if(isnanr(basic_g(ngrid)%thp(k,i,j))) prtflg=1 + if(isnanr(basic_g(ngrid)%rtp(k,i,j))) prtflg=1 + if(isnanr(basic_g(ngrid)%rv(k,i,j))) prtflg=1 + if(isnanr(turb_g(ngrid)%sflux_t(i,j))) prtflg=1 + if(isnanr(turb_g(ngrid)%sflux_r(i,j))) prtflg=1 + if(isnanr(turb_g(ngrid)%sflux_u(i,j))) prtflg=1 + if(isnanr(turb_g(ngrid)%sflux_v(i,j))) prtflg=1 + if(isnanr(turb_g(ngrid)%sflux_w(i,j))) prtflg=1 + + tempvar = valugp(mzp,mxp,myp,k,i,j,tend%wt(1)) + if(isnanr(tempvar)) prtflg=1 + + !******************************************************************* + !IF NEGATIVE MIXING RATIO or NAN EXISTS THEN PRINT MICRO INFORMATION + !******************************************************************* + if(mprtflg==1 .and. string.eq.'MICRO')then + print*,'Checked After: ',string + print*,'Negative Condensate MICRO (ngrid,k,i,j):' & + ,ngrid,k,i+mi0(ngrid),j+mj0(ngrid) + if(level>=1)then + print*,'vapor: ',basic_g(ngrid)%rv(k,i,j) + print*,'rtp: ',basic_g(ngrid)%rtp(k,i,j) + endif + if(level>=2)then + print*,'cloud: ',micro_g(ngrid)%rcp(k,i,j) + endif + if(level==3)then + if(idriz >= 1) print*,'driz: ',micro_g(ngrid)%rdp(k,i,j) + if(irain >= 1) print*,'rain: ',micro_g(ngrid)%rrp(k,i,j) + if(ipris >= 1) print*,'ice: ',micro_g(ngrid)%rpp(k,i,j) + if(isnow >= 1) print*,'snow: ',micro_g(ngrid)%rsp(k,i,j) + if(iaggr >= 1) print*,'aggr: ',micro_g(ngrid)%rap(k,i,j) + if(igraup >= 1) print*,'graup: ',micro_g(ngrid)%rgp(k,i,j) + if(ihail >= 1) print*,'hail: ',micro_g(ngrid)%rhp(k,i,j) + endif + print*,'Try shorter timestep. These can become negative due to' + print*,' diffusion, advection, cumulus parameterization, etc.' + endif + + if(prtflg==1)then + print*,'Checked After: ',string + print*,'NAN Check (ngrid,k,j,i)',ngrid,k,j+mj0(ngrid),i+mi0(ngrid) + + print*,'wp: ',basic_g(ngrid)%wp(k,i,j) + print*,'wc: ',basic_g(ngrid)%wc(k,i,j) + print*,'w-tend: ',valugp(mzp,mxp,myp,k,i,j,tend%wt(1)) + print*,'pp: ',basic_g(ngrid)%pp(k,i,j) + print*,'pc: ',basic_g(ngrid)%pc(k,i,j) + print*,'up: ',basic_g(ngrid)%up(k,i,j) + print*,'uc: ',basic_g(ngrid)%uc(k,i,j) + print*,'vp: ',basic_g(ngrid)%vp(k,i,j) + print*,'vc: ',basic_g(ngrid)%vc(k,i,j) + print*,'sflux_t: ',turb_g(ngrid)%sflux_t(i,j) + print*,'sflux_r: ',turb_g(ngrid)%sflux_r(i,j) + print*,'sflux_u: ',turb_g(ngrid)%sflux_u(i,j) + print*,'sflux_v: ',turb_g(ngrid)%sflux_v(i,j) + print*,'sflux_w: ',turb_g(ngrid)%sflux_w(i,j) + print*,'topt: ',grid_g(ngrid)%topt(i,j) + print*,'sst: ',leaf_g(ngrid)%soil_energy(nzg,i,j,1) + print*,'thp: ',basic_g(ngrid)%thp(k,i,j) + print*,'rtp: ',basic_g(ngrid)%rtp(k,i,j) + print*,'theta: ',basic_g(ngrid)%theta(k,i,j) + print*,'rv: ',basic_g(ngrid)%rv(k,i,j) + + if(jnmb(3)>=5 .and. (iifn==1.or.iifn==2)) then + print*,'cifnp: ',micro_g(ngrid)%cifnp(k,i,j) + print*,'cifnp-tend: ',valugp(mzp,mxp,myp,k,i,j,tend%cifnt(1)) + endif + if(iaerosol > 0)then + print*,'cccnp: ',micro_g(ngrid)%cccnp(k,i,j) + print*,'cccnp-tend: ',valugp(mzp,mxp,myp,k,i,j,tend%cccnt(1)) + print*,'cccmp: ',micro_g(ngrid)%cccmp(k,i,j) + print*,'cccmp-tend: ',valugp(mzp,mxp,myp,k,i,j,tend%cccmt(1)) + print*,'gccnp: ',micro_g(ngrid)%gccnp(k,i,j) + print*,'gccnp-tend: ',valugp(mzp,mxp,myp,k,i,j,tend%gccnt(1)) + print*,'gccmp: ',micro_g(ngrid)%gccmp(k,i,j) + print*,'gccmp-tend: ',valugp(mzp,mxp,myp,k,i,j,tend%gccmt(1)) + endif + if(idust > 0)then + print*,'md1np: ',micro_g(ngrid)%md1np(k,i,j) + print*,'md1mp: ',micro_g(ngrid)%md1mp(k,i,j) + print*,'md2np: ',micro_g(ngrid)%md2np(k,i,j) + print*,'md2mp: ',micro_g(ngrid)%md2mp(k,i,j) + endif + if(isalt > 0)then + print*,'salt_film_np: ',micro_g(ngrid)%salt_film_np(k,i,j) + print*,'salt_jet_np: ' ,micro_g(ngrid)%salt_jet_np(k,i,j) + print*,'salt_spum_np: ',micro_g(ngrid)%salt_spum_np(k,i,j) + print*,'salt_film_mp: ',micro_g(ngrid)%salt_film_mp(k,i,j) + print*,'salt_jet_mp: ' ,micro_g(ngrid)%salt_jet_mp(k,i,j) + print*,'salt_spum_mp: ',micro_g(ngrid)%salt_spum_mp(k,i,j) + endif + if(iccnlev>=2)then + print*,'regen1: ',micro_g(ngrid)%regen_aero1_np(k,i,j) + print*,'regen2: ',micro_g(ngrid)%regen_aero2_np(k,i,j) + print*,'regem1: ',micro_g(ngrid)%regen_aero1_mp(k,i,j) + print*,'regem2: ',micro_g(ngrid)%regen_aero2_mp(k,i,j) + if(icloud>=1)print*,'cnmcp: ',micro_g(ngrid)%cnmcp(k,i,j) + if(irain>=1) print*,'cnmrp: ',micro_g(ngrid)%cnmrp(k,i,j) + if(ipris>=1) print*,'cnmpp: ',micro_g(ngrid)%cnmpp(k,i,j) + if(isnow>=1) print*,'cnmsp: ',micro_g(ngrid)%cnmsp(k,i,j) + if(iaggr>=1) print*,'cnmap: ',micro_g(ngrid)%cnmap(k,i,j) + if(igraup>=1)print*,'cnmgp: ',micro_g(ngrid)%cnmgp(k,i,j) + if(ihail>=1) print*,'cnmhp: ',micro_g(ngrid)%cnmhp(k,i,j) + if(idriz>=1) print*,'cnmdp: ',micro_g(ngrid)%cnmdp(k,i,j) + if(itrkdust==1)then + if(icloud>=1)print*,'dnmcp: ',micro_g(ngrid)%dnmcp(k,i,j) + if(irain>=1) print*,'dnmrp: ',micro_g(ngrid)%dnmrp(k,i,j) + if(ipris>=1) print*,'dnmpp: ',micro_g(ngrid)%dnmpp(k,i,j) + if(isnow>=1) print*,'dnmsp: ',micro_g(ngrid)%dnmsp(k,i,j) + if(iaggr>=1) print*,'dnmap: ',micro_g(ngrid)%dnmap(k,i,j) + if(igraup>=1)print*,'dnmgp: ',micro_g(ngrid)%dnmgp(k,i,j) + if(ihail>=1) print*,'dnmhp: ',micro_g(ngrid)%dnmhp(k,i,j) + if(idriz>=1) print*,'dnmdp: ',micro_g(ngrid)%dnmdp(k,i,j) + endif + if(itrkdustifn==1)then + if(icloud>=1)print*,'dincp: ',micro_g(ngrid)%dincp(k,i,j) + if(irain>=1) print*,'dinrp: ',micro_g(ngrid)%dinrp(k,i,j) + if(ipris>=1) print*,'dinpp: ',micro_g(ngrid)%dinpp(k,i,j) + if(isnow>=1) print*,'dinsp: ',micro_g(ngrid)%dinsp(k,i,j) + if(iaggr>=1) print*,'dinap: ',micro_g(ngrid)%dinap(k,i,j) + if(igraup>=1)print*,'dingp: ',micro_g(ngrid)%dingp(k,i,j) + if(ihail>=1) print*,'dinhp: ',micro_g(ngrid)%dinhp(k,i,j) + if(idriz>=1) print*,'dindp: ',micro_g(ngrid)%dindp(k,i,j) + endif + if(itrkepsilon==1)then + print*,'regensol1: ',micro_g(ngrid)%resol_aero1_mp(k,i,j) + print*,'regensol2: ',micro_g(ngrid)%resol_aero2_mp(k,i,j) + if(icloud>=1)print*,'snmcp: ',micro_g(ngrid)%snmcp(k,i,j) + if(irain>=1) print*,'snmrp: ',micro_g(ngrid)%snmrp(k,i,j) + if(ipris>=1) print*,'snmpp: ',micro_g(ngrid)%snmpp(k,i,j) + if(isnow>=1) print*,'snmsp: ',micro_g(ngrid)%snmsp(k,i,j) + if(iaggr>=1) print*,'snmap: ',micro_g(ngrid)%snmap(k,i,j) + if(igraup>=1)print*,'snmgp: ',micro_g(ngrid)%snmgp(k,i,j) + if(ihail>=1) print*,'snmhp: ',micro_g(ngrid)%snmhp(k,i,j) + if(idriz>=1) print*,'snmdp: ',micro_g(ngrid)%snmdp(k,i,j) + endif + endif + if(iifn==3 .and. iccnlev>=1)then + if(icloud>=5) print*,'ifnnucp: ',micro_g(ngrid)%ifnnucp(k,i,j) + if(icloud>=5) print*,'immercp: ',micro_g(ngrid)%immercp(k,i,j) + if(idriz>=5) print*,'immerdp: ',micro_g(ngrid)%immerdp(k,i,j) + if(irain>=5) print*,'immerrp: ',micro_g(ngrid)%immerrp(k,i,j) + endif + if(icloud>=5)print*,'ccp: ',micro_g(ngrid)%ccp(k,i,j) + if(idriz>=5) print*,'cdp: ',micro_g(ngrid)%cdp(k,i,j) + if(irain>=5) print*,'crp: ',micro_g(ngrid)%crp(k,i,j) + if(ipris>=5) print*,'cpp: ',micro_g(ngrid)%cpp(k,i,j) + if(isnow>=5) print*,'csp: ',micro_g(ngrid)%csp(k,i,j) + if(iaggr>=5) print*,'cap: ',micro_g(ngrid)%cap(k,i,j) + if(igraup>=5)print*,'cgp: ',micro_g(ngrid)%cgp(k,i,j) + if(ihail>=5) print*,'chp: ',micro_g(ngrid)%chp(k,i,j) + if(icloud>=1)print*,'rcp: ',micro_g(ngrid)%rcp(k,i,j) + if(idriz>=1) print*,'rdp: ',micro_g(ngrid)%rdp(k,i,j) + if(irain>=1) print*,'rrp: ',micro_g(ngrid)%rrp(k,i,j) + if(ipris>=1) print*,'rpp: ',micro_g(ngrid)%rpp(k,i,j) + if(isnow>=1) print*,'rsp: ',micro_g(ngrid)%rsp(k,i,j) + if(iaggr>=1) print*,'rap: ',micro_g(ngrid)%rap(k,i,j) + if(igraup>=1)print*,'rgp: ',micro_g(ngrid)%rgp(k,i,j) + if(ihail>=1) print*,'rhp: ',micro_g(ngrid)%rhp(k,i,j) + if(idriz>=1) print*,'pcpvd: ',micro_g(ngrid)%pcpvd(k,i,j) + if(irain>=1) print*,'pcpvr: ',micro_g(ngrid)%pcpvr(k,i,j) + if(ipris>=1) print*,'pcpvp: ',micro_g(ngrid)%pcpvp(k,i,j) + if(isnow>=1) print*,'pcpvs: ',micro_g(ngrid)%pcpvs(k,i,j) + if(iaggr>=1) print*,'pcpva: ',micro_g(ngrid)%pcpva(k,i,j) + if(igraup>=1)print*,'pcpvg: ',micro_g(ngrid)%pcpvg(k,i,j) + if(ihail>=1) print*,'pcpvh: ',micro_g(ngrid)%pcpvh(k,i,j) + endif + + if(mprtflg==1 .or. prtflg==1) then + print*,"Bad data values found! Stopping model!" + stop + endif + +enddo +enddo +enddo + +return +END SUBROUTINE checkmicro + +!############################################################################## +logical Function isnanr (x) + +implicit none + +real :: x + +isnanr = .false. +if( (x .ne. x) .or. (x .ne. 0.0 .and. x/x .ne. 1) .or. (x*0.0 .ne. 0.0))then + isnanr = .true. +endif + +return +END FUNCTION isnanr + diff --git a/src/6.2.16/micro/mic_coll.f90 b/src/6.2.16/micro/mic_coll.f90 new file mode 100644 index 0000000..005d673 --- /dev/null +++ b/src/6.2.16/micro/mic_coll.f90 @@ -0,0 +1,1506 @@ +!############################################################################## +Subroutine getict (k1,k2,lcat) + +use micphys + +implicit none + +integer :: k1,k2,lcat,k +real :: rict,rictmm + +do k = k1,k2 + if (rx(k,lcat) .ge. rxmin) then + rict = dict(lcat) * (log(emb(k,lcat)) - emb0log(lcat)) + 1. + rictmm = max(rictmin,min(rictmax,rict)) + ict1(k,lcat) = int(rictmm) + ict2(k,lcat) = ict1(k,lcat) + 1 + wct2(k,lcat) = rictmm - float(ict1(k,lcat)) + wct1(k,lcat) = 1.0 - wct2(k,lcat) + endif +enddo + +return +END SUBROUTINE getict + +!############################################################################## +Subroutine auto_accret (m1,k1,k2,k3,k4,dn0,dtlt,i,j) + +use micphys + +implicit none + +integer :: m1,k,k1,k2,k3,k4,kbot,ktop & + ,id1cc,id2dd,id1cd,id2cd,id1cr,id1crn,id2cr,id2crn & + ,ir3cr,id3cr,i,j + +real :: dtlt,dtlt3,dtlt6,dmb1cgs,dmb2cgs,dmb3cgs,r3cgs,en1cgs,en2cgs & + ,ad1,ad2,ar3,ad3,bd1,bd2,br3,bd3,d3e & + ,bd1cc,bd2dd,bd1cd,bd2cd,bd1cr,bd2cr,br3cr,bd3cr & + ,wd1cc,wd2dd,wd1cd,wd2cd,wd1cr,wd2cr,wr3cr & + ,tm1cc,tn1cc,tn2cc,tm2dd,tn2dd,tn3dd,tm1cd,tn1cd,tm2cd,tn2cd & + ,tm1cr,tn1cr,tm2cr,tn2cr & + ,en1cgs_2,en2cgs_2,um1cc,un1cc,un2cc,um2dd,un2dd,un3dd,um1cd & + ,un1cd,um2cd,un2cd,um1cr,un1cr,um2cr,un2cr,um12,um82 & + ,um18,un1,un8,cfmasi1,cfmasi2,cfmasi3,pwmasi1,pwmasi2,pwmasi3 + +real, dimension(m1) :: dn0 + +dtlt3 = 1.e3 * dtlt +dtlt6 = 1.e6 * dtlt + +cfmasi1 = 1. / cfmas(1) +cfmasi2 = 1. / cfmas(16) +cfmasi3 = 1. / cfmas(2) + +pwmasi1 = 1. / pwmas(1) +pwmasi2 = 1. / pwmas(16) +pwmasi3 = 1. / pwmas(2) + +if(jnmb(8) .ne. 0) then + kbot=min(k1,k3) + ktop=max(k2,k4) +else + kbot=k1 + ktop=k2 +endif + +do k = kbot,ktop +if(rx(k,1) .ge. rxmin .or. rx(k,8) .ge. rxmin) then + +! This routine works in cgs units, so convert inputs from mks +!mean diameter cloud,cloud2,rain - convert (meters) to (cm) + dmb1cgs = 100. * (emb(k,1) * cfmasi1) ** pwmasi1 + dmb2cgs = 100. * (emb(k,8) * cfmasi2) ** pwmasi2 + dmb3cgs = 100. * (emb(k,2) * cfmasi3) ** pwmasi3 + +!mixing ratio rain - convert (kg/kg) to (g/cm3) + r3cgs = 1.e-3 * rx(k,2) * dn0(k) + if(rx(k,2) .lt. rxmin) r3cgs = 0.0 + +!number concentration cloud 1 & 2 - convert (#/kg) to (#/cm3) + en1cgs = 1.e-6 * cx(k,1) * dn0(k) + en2cgs = 1.e-6 * cx(k,8) * dn0(k) + +!max diameter of cloud 1 & 2 + ad1 = max(d1min,min(d1max,dmb1cgs)) + ad2 = max(d2min,min(d2max,dmb2cgs)) + +!max mixing ratio rain + ar3 = max(r3min,min(r3max,r3cgs)) + +!max diameter of rain + d3minx = max(d3min,(r3cgs / (.1 * .5236)) ** pwmasi3) + ad3 = max(d3minx,min(d3max,dmb3cgs)) + +!log of CLOUD 1 & 2 diameter range ratio + bd1 = alog10(ad1/d1min) + bd2 = alog10(ad2/d2min) +!log of RAIN mix ratio range ratio + br3 = alog10(ar3/r3min) +!log of RAIN diamter range ratio + bd3 = alog10(ad3/d3minx) +!log of RAIN diamter of ratio of given max to max from dmin and mix ratio + d3e = alog10(d3max/d3minx) + +!Calculate ratios of true diameter and mixratio to range in (mkautotab) +!to determine which bin on curve is closest + bd1cc = float(ndcc-1) * min(1.0,(ad1 - d1min) / (d1max - d1min)) + 1. + bd2dd = float(ndcc-1) * min(1.0,(ad2 - d2min) / (d2max - d2min)) + 1. + bd1cd = float(ndcd-1) * min(1.0,(ad1 - d1min) / (d1max - d1min)) + 1. + bd2cd = float(ndcd-1) * min(1.0,(ad2 - d2min) / (d2max - d2min)) + 1. + bd1cr = bd1 / d1ecr + 1. + bd2cr = bd2 / d2ecr + 1. + br3cr = br3 / r3ecr + 1. + bd3cr = bd3 / d3e * float(ndrcr-1) + 1. + +!Find closest integer bin + id1cc = int(bd1cc) + id2dd = int(bd2dd) + id1cd = int(bd1cd) + id2cd = int(bd2cd) + id1cr = int(bd1cr) + id1crn = nint(bd1cr) + id2cr = int(bd2cr) + id2crn = nint(bd2cr) + ir3cr = int(br3cr) + id3cr = nint(bd3cr) + +!Find distance to closest integer bin + wd1cc = bd1cc - float(id1cc) + wd2dd = bd2dd - float(id2dd) + wd1cd = bd1cd - float(id1cd) + wd2cd = bd2cd - float(id2cd) + wd1cr = bd1cr - float(id1cr) + wd2cr = bd2cr - float(id2cr) + wr3cr = br3cr - float(ir3cr) + +!To fix array bounds exceptions + if(id1cc.gt.ndcc-1) then + id1cc=ndcc-1 + wd1cc=1.-wd1cc + endif + if(id2dd.gt.ndcc-1) then + id2dd=ndcc-1 + wd2dd=1.-wd2dd + endif + if(id1cr.gt.ndccr-1) then + id1cr=ndccr-1 + wd1cr=1.-wd1cr + endif + if(ir3cr.gt.nrrcr-1) then + ir3cr=nrrcr-1 + wr3cr=1.-wr3cr + endif + if(id1cd.gt.ndcd-1) then + id1cd=ndcd-1 + wd1cd=1.-wd1cd + endif + if(id2cd.gt.ndcd-1) then + id2cd=ndcd-1 + wd2cd=1.-wd2cd + endif + if(id2cr.gt.ndccr-1) then + id2cr=ndccr-1 + wd2cr=1.-wd2cr + endif + +!*************************************************************************** +!cc-> effect m,n of cloud,drizzle and possibly n of rain +tm1cc = (1.-wd1cc) * r1tabcc(id1cc) + wd1cc * r1tabcc(id1cc+1) +tn1cc = (1.-wd1cc) * c1tabcc(id1cc) + wd1cc * c1tabcc(id1cc+1) +tn2cc = (1.-wd1cc) * c2tabcc(id1cc) + wd1cc * c2tabcc(id1cc+1) +!*************************************************************************** +!cr-> effect m,n of cloud on rain +tm1cr = (1.-wd1cr) * ((1.-wr3cr) * r1tabcr(id1cr ,ir3cr ,id3cr) & + + wr3cr * r1tabcr(id1cr ,ir3cr+1,id3cr)) & + + wd1cr * ((1.-wr3cr) * r1tabcr(id1cr+1,ir3cr ,id3cr) & + + wr3cr * r1tabcr(id1cr+1,ir3cr+1,id3cr)) + +tn1cr = (1.-wr3cr) * c1tabcr(id1crn,ir3cr ,id3cr) & + + wr3cr * c1tabcr(id1crn,ir3cr+1,id3cr) +!*************************************************************************** + +if(jnmb(8) .ne. 0) then +!*************************************************************************** +!dd-> effect m,n of drizzle and n on rain +tm2dd = (1.-wd2dd) * r2tabdd(id2dd) + wd2dd * r2tabdd(id2dd+1) +tn2dd = (1.-wd2dd) * c2tabdd(id2dd) + wd2dd * c2tabdd(id2dd+1) +tn3dd = (1.-wd2dd) * c3tabdd(id2dd) + wd2dd * c3tabdd(id2dd+1) +!*************************************************************************** +!cd-> effect m,n of cloud,drizzle and possibly n on rain +!For cloud mixing ratio portion to rain +tm1cd = (1.-wd2cd) * ((1.-wd1cd) * r1tabcd(id1cd ,id2cd ) & + + wd1cd * r1tabcd(id1cd+1,id2cd )) & + + wd2cd * ((1.-wd1cd) * r1tabcd(id1cd ,id2cd+1) & + + wd1cd * r1tabcd(id1cd+1,id2cd+1)) +!For cloud loss of number +tn1cd = (1.-wd2cd) * ((1.-wd1cd) * c1tabcd(id1cd ,id2cd ) & + + wd1cd * c1tabcd(id1cd+1,id2cd )) & + + wd2cd * ((1.-wd1cd) * c1tabcd(id1cd ,id2cd+1) & + + wd1cd * c1tabcd(id1cd+1,id2cd+1)) +!For drizzle mixing ratio portion to rain +tm2cd = (1.-wd2cd) * ((1.-wd1cd) * r2tabcd(id1cd ,id2cd ) & + + wd1cd * r2tabcd(id1cd+1,id2cd )) & + + wd2cd * ((1.-wd1cd) * r2tabcd(id1cd ,id2cd+1) & + + wd1cd * r2tabcd(id1cd+1,id2cd+1)) +!For drizzle loss of number to rain +tn2cd = (1.-wd2cd) * ((1.-wd1cd) * c2tabcd(id1cd ,id2cd ) & + + wd1cd * c2tabcd(id1cd+1,id2cd )) & + + wd2cd * ((1.-wd1cd) * c2tabcd(id1cd ,id2cd+1) & + + wd1cd * c2tabcd(id1cd+1,id2cd+1)) +!*************************************************************************** +!dr-> effect m,n of drizzle +tm2cr = (1.-wd2cr) * ((1.-wr3cr) * r2tabcr(id2cr ,ir3cr ,id3cr) & + + wr3cr * r2tabcr(id2cr ,ir3cr+1,id3cr)) & + + wd2cr * ((1.-wr3cr) * r2tabcr(id2cr+1,ir3cr ,id3cr) & + + wr3cr * r2tabcr(id2cr+1,ir3cr+1,id3cr)) + +tn2cr = (1.-wr3cr) * c2tabcr(id2crn,ir3cr ,id3cr) & + + wr3cr * c2tabcr(id2crn,ir3cr+1,id3cr) +!*************************************************************************** +else +!Prevent uninitialized +tm2dd=0.; tn2dd=0.; tn3dd=0.; tm1cd=0.; tn1cd=0. +tm2cd=0.; tn2cd=0.; tm2cr=0.; tn2cr=0. +endif + +!Put tables values in correct units + en1cgs_2 = en1cgs ** 2 + en2cgs_2 = en2cgs ** 2 + + um1cc = tm1cc * en1cgs_2 * dtlt3 + un1cc = tn1cc * en1cgs_2 * dtlt6 + un2cc = tn2cc * en1cgs_2 * dtlt6 + + um1cr = 10. ** tm1cr * en1cgs * dtlt3 + un1cr = 10. ** tn1cr * en1cgs * dtlt6 + !un3rr = 10. ** tn3rr * dtlt6 !rain-rain done in "cols" + !Saleeby(1-13-06) If rain mixing ratio is zero, do not collect cloud + if(r3cgs == 0.) then + um1cr=0. + un1cr=0. + endif + + if(jnmb(8) .ne. 0) then + um2dd = tm2dd * en2cgs_2 * dtlt3 + un2dd = tn2dd * en2cgs_2 * dtlt6 + un3dd = tn3dd * en2cgs_2 * dtlt6 + um1cd = tm1cd * en1cgs * en2cgs * dtlt3 + un1cd = tn1cd * en1cgs * en2cgs * dtlt6 + um2cd = tm2cd * en1cgs * en2cgs * dtlt3 + un2cd = tn2cd * en1cgs * en2cgs * dtlt6 + um2cr = 10. ** tm2cr * en2cgs * dtlt3 + un2cr = 10. ** tn2cr * en2cgs * dtlt6 + !Saleeby(1-13-06) If rain mixing ratio is zero, do not collect drizzle + if(r3cgs == 0.) then + um2cr=0. + un2cr=0. + endif + endif + +! The above values are amounts in kg/m^3 or #/m^3 converted in the +! present timestep, but must still be corrected for the effect of +! density on fall velocity. Thus, they must be multiplied by +! (dn0i ** .5) which fall velocity is proportional to. Also, since +! rxfer and enxfer are in units of kg/kg and #/kg, respectively, the +! above transfer amounts must also be multiplied by dn0i. Together, +! these factors make (dn0i ** 1.5). + +!****************** FOR CLOUD1 - CLOUD2 - RAIN TRANSFERS ********************* +if(jnmb(8) .eq. 0) then + um12 = min(rx(k,1),(um1cc + um1cr) * dn0i(k)) + un1 = min(cx(k,1)*dn0(k),(un1cc + un1cr)) + rxfer(k,1,2) = rxfer(k,1,2) + um12 + qrxfer(k,1,2) = qrxfer(k,1,2) + um12 * qx(k,1) + enxfer(k,1,1) = enxfer(k,1,1) + un1 - un2cc + enxfer(k,1,2) = enxfer(k,1,2) + un2cc + + if(imbudget >= 1) xcld2raint(k) = xcld2raint(k) + um12 * budget_scalet +endif + +if(jnmb(8) .ne. 0) then + if(um2cd <= 0.0) then + um12 = min(rx(k,1),(um1cr + um1cd + um2cd) * dn0i(k)) + else + um12 = min(rx(k,1),(um1cr + um1cd) * dn0i(k)) + endif + + if(um2cd <= 0.0) then + um82 = min(rx(k,8),(um2cr + um2dd) * dn0i(k)) + else + um82 = min(rx(k,8),(um2cr + um2dd + um2cd) * dn0i(k)) + endif + + if(um2cd <= 0.0) then + um18 = min(rx(k,1),(um1cc + abs(um2cd)) * dn0i(k)) + else + um18 = min(rx(k,1),(um1cc) * dn0i(k)) + endif + + un1 = min(cx(k,1)*dn0(k),(un1cc + un1cd + un1cr)) + un8 = min(cx(k,8)*dn0(k),(un2dd + un2cd + un2cr)) + + rxfer(k,1,2) = rxfer(k,1,2) + um12 + rxfer(k,8,2) = rxfer(k,8,2) + um82 + rxfer(k,1,8) = rxfer(k,1,8) + um18 + qrxfer(k,1,2) = qrxfer(k,1,2) + um12 * qx(k,1) + qrxfer(k,8,2) = qrxfer(k,8,2) + um82 * qx(k,8) + qrxfer(k,1,8) = qrxfer(k,1,8) + um18 * qx(k,1) + enxfer(k,1,1) = enxfer(k,1,1) + un1 - un2cc + enxfer(k,1,8) = enxfer(k,1,8) + un2cc + enxfer(k,8,8) = enxfer(k,8,8) + un8 - un3dd - un2cd + enxfer(k,8,2) = enxfer(k,8,2) + un3dd + un2cd + + if(imbudget >= 1) xcld2raint(k) = xcld2raint(k) + (um12 + um82) * budget_scalet +endif + +!USING CLOUD_2 TRANSFER TO TRANSFER CC2 COLLISION NUMBER TO +!RAIN SINCE YOU CAN'T JUST SUM THE LOSS OF NUMBER OF CLOUD1 AND CLOUD2 +!CLOUD1 COLLISIONS WITH ITSELF DOESN'T AFFECT RAIN NUMBER. + +endif !if cloud mixing ratio greater than min threshold +enddo !loop of vertical levels + +return +END SUBROUTINE auto_accret + +!############################################################################## +Subroutine auto_accret_ice (m1,jcat,lcat,k1,k2,dn0,dtlt) + +use micphys + +implicit none + +integer :: m1,k,k1,k2,id1cr,id1crn,irici,idici & + ,lcat,jhcaty,mx,it,ccat,jcat + +real :: dtlt,dtlt3,dtlt6,cfmasi1,pwmasi1,dmb1cgs,dmbicgs & + ,ricgs,en1cgs,ad1,ari,adi,bd1,bri,bdi,die,bd1cr,brici,bdici & + ,wd1cr,wrici,tm1ci,tn1ci,um1ci,un1ci,umcld,uncld,trime,urime,rimer & + ,qcoal,tcoal,fracliq,area,cn13,cn24,sip,rsip,qrsip,coalliq & + ,rfinlz,xtoz,xtoy,ytoz,dcmin,dcmax,dcecr,rcoal + +real, dimension(m1) :: dn0 + +integer, dimension(8) :: mcatc + +data mcatc /0,0,0,6,6,7,7,0/ + +dtlt3 = 1.e3 * dtlt +dtlt6 = 1.e6 * dtlt + +!Prevent uninitialized +cfmasi1=0.; pwmasi1=0.; dcmin=0.; dcmax=0.; dcecr=0. + +if(jcat==1)then + cfmasi1 = 1. / cfmas(1) + pwmasi1 = 1. / pwmas(1) + dcmin = d1min + dcmax = d1max + dcecr = d1ecr +elseif(jcat==8)then + cfmasi1 = 1. / cfmas(16) + pwmasi1 = 1. / pwmas(16) + dcmin = d2min + dcmax = d2max + dcecr = d2ecr +endif + +do k = k1,k2 +if(rx(k,jcat).ge.rxmin .and. rx(k,lcat).ge.rxmin) then +if( ((lcat==4 .or. lcat==5) .and. emb(k,jcat) .gt. 9.0e-13) .or. & + ((lcat==6 .or. lcat==7) .and. emb(k,jcat) .gt. 3.4e-14) ) then + +! This routine works in cgs units, so convert inputs from mks +!mean diameter cloud,cloud2,rain - convert (meters) to (cm) + dmb1cgs = 100. * (emb(k,jcat) * cfmasi1) ** pwmasi1 + dmbicgs = 100. * (emb(k,lcat) / cfmas(lcat)) ** (1./pwmas(lcat)) + +!mixing ratio ice species - convert (kg/kg) to (g/cm3) + ricgs = 1.e-3 * rx(k,lcat) * dn0(k) + +!number concentration cloud 1 & 2 - convert (#/kg) to (#/cm3) + en1cgs = 1.e-6 * cx(k,jcat) * dn0(k) + +!max diameter of cloud 1 & 2 + ad1 = max(dcmin,min(dcmax,dmb1cgs)) + +!max mixing ratio ice species + ari = max(rimin,min(rimax,ricgs)) + +!max diameter of ice species + diminx=max(dimin,((ricgs/1000./cfmas(lcat))**(1./pwmas(lcat)))*200.) + adi = max(diminx,min(dimax,dmbicgs)) + +!log of CLOUD 1 & 2 diameter range ratio + bd1 = alog10(ad1/dcmin) +!log of ICE mix ratio range ratio + bri = alog10(ari/rimin) +!log of ICE diamter range ratio + bdi = alog10(adi/diminx) +!log of ICE diamter of ratio of given max to max from dmin and mix ratio + die = alog10(dimax/diminx) + +!Calculate ratios of true diameter and mixratio to range in (mkautotab) +!to determine which bin on curve is closest + bd1cr = bd1 / dcecr + 1. + brici = bri / rieci + 1. + bdici = bdi / die * float(ndrcr-1) + 1. + +!Find closest integer bin + id1cr = int(bd1cr) + id1crn = nint(bd1cr) + irici = int(brici) + idici = nint(bdici) + +!Find distance to closest integer bin + wd1cr = bd1cr - float(id1cr) + wrici = brici - float(irici) + +!To fix array bounds exceptions + if(id1cr.gt.ndccr-1) then + id1cr=ndccr-1 + wd1cr=1.-wd1cr + endif + if(irici.gt.nrrcr-1) then + irici=nrrcr-1 + wrici=1.-wrici + endif + +!Prevent uninitialized +tm1ci=0.; tn1ci=0.; trime=0. + +!*************************************************************************** +!ci-> effect m,n of cloud on ice +if(jcat==1)then + tm1ci = (1.-wd1cr) * ((1.-wrici) * r1tabci(id1cr ,irici ,idici,lcat-3) & + + wrici * r1tabci(id1cr ,irici+1,idici,lcat-3)) & + + wd1cr * ((1.-wrici) * r1tabci(id1cr+1,irici ,idici,lcat-3) & + + wrici * r1tabci(id1cr+1,irici+1,idici,lcat-3)) + tn1ci = (1.-wrici) * c1tabci(id1crn,irici ,idici,lcat-3) & + + wrici * c1tabci(id1crn,irici+1,idici,lcat-3) + trime = (1.-wd1cr) * ((1.-wrici) * r1rimer(id1cr ,irici ,idici,lcat-3) & + + wrici * r1rimer(id1cr ,irici+1,idici,lcat-3)) & + + wd1cr * ((1.-wrici) * r1rimer(id1cr+1,irici ,idici,lcat-3) & + + wrici * r1rimer(id1cr+1,irici+1,idici,lcat-3)) +endif +!*************************************************************************** + +!*************************************************************************** +!c2i-> effect m,n of cloud2 on ice +if(jcat==8)then + tm1ci = (1.-wd1cr) * ((1.-wrici) * r2tabci(id1cr ,irici ,idici,lcat-3) & + + wrici * r2tabci(id1cr ,irici+1,idici,lcat-3)) & + + wd1cr * ((1.-wrici) * r2tabci(id1cr+1,irici ,idici,lcat-3) & + + wrici * r2tabci(id1cr+1,irici+1,idici,lcat-3)) + tn1ci = (1.-wrici) * c2tabci(id1crn,irici ,idici,lcat-3) & + + wrici * c2tabci(id1crn,irici+1,idici,lcat-3) + trime = (1.-wd1cr) * ((1.-wrici) * r2rimer(id1cr ,irici ,idici,lcat-3) & + + wrici * r2rimer(id1cr ,irici+1,idici,lcat-3)) & + + wd1cr * ((1.-wrici) * r2rimer(id1cr+1,irici ,idici,lcat-3) & + + wrici * r2rimer(id1cr+1,irici+1,idici,lcat-3)) +endif +!*************************************************************************** + + um1ci = 10. ** tm1ci * en1cgs * dtlt3 + un1ci = 10. ** tn1ci * en1cgs * dtlt6 + urime = 10. ** trime * en1cgs * dtlt3 + +!For Cloud-ice collisions 4=snow, 5=aggregates, 6=graupel, 7=hail + umcld = min(rx(k,jcat),um1ci * dn0i(k)) + uncld = min(cx(k,jcat)*dn0(k),un1ci) + rimer = min(rx(k,lcat),urime * dn0i(k)) + +!***************************************************************** +! Do secondary ice production and transfers due to collection +!**************************************************************** + mx=0 + if(jcat==1) mx=1 !uses gamsip(1,it) for cloud1 set in mic_init.f90 + if(jcat==8) mx=2 !uses gamsip(2,it) for cloud2 set in mic_init.f90 + + !Compute fraction liquid of combined ice and cloud1 droplets + rcoal = umcld + rimer + qcoal = (qx(k,jcat) * umcld + qx(k,lcat) * rimer) / max(1.e-20,rcoal) + + CALL qtc (qcoal,tcoal,fracliq) + + coalliq = rcoal * fracliq + + !Secondary Ice Production Based on Hydrometeor Internal Temperature + if(tcoal.gt.-8.0.and.tcoal.lt.-3.0 .and. (jnmb(jcat)>=5.or.jnmb(lcat)>=5))then + jhcaty=jhcat(k,lcat) + area = cx(k,lcat) * dn0(k) * sipfac(jhcaty) * emb(k,lcat) & + ** (2.*pwmasi(jhcaty)) + it = nint(emb(k,jcat) / emb1(jcat) * 5000.) + cn13 = uncld * gamsip13(mx,it) / (area * dtlt) + cn24 = min(cx(k,jcat)*dn0(k),uncld) * gamsip24(mx,it) + sip = 9.1e-10 * cn24 * cn13 ** .93 + if (tcoal .lt. -5.) then + sip = 0.33333 * (tcoal + 8.) * sip + else + sip = -0.5 * (tcoal + 3.) * sip + endif + rsip = sip * emb0(3) * dn0i(k) + qrsip = qcoal * rsip + rcoal = rcoal - rsip + enxfer(k,jcat,3) = enxfer(k,jcat,3) + sip + rxfer(k,jcat,3) = rxfer(k,jcat,3) + rsip + qrxfer(k,jcat,3) = qrxfer(k,jcat,3) + qrsip + endif + + !For Cloud-ice collisions 4=snow, 5=aggregates, 6=graupel, 7=hail + + !Saleeby(6-22-2015) Modified the amount to send to destination + !category after implementing density weighting of rain-ice collisions + !to determine destination species. "rfinlz" looks more like "col2" now. + !This does not let snow/aggregates keep rimed water. Perhaps a + !coalesced hydrometeor density calculation approach, similar to "col3" + !would allow for this. Otherwise, snow/aggregates retaining water could + !allow for too high of a density for snow/aggregates. + if(lcat.eq.4 .or. lcat.eq.5) rfinlz = min(rcoal,coalliq+umcld) + if(lcat.eq.6 .or. lcat.eq.7) rfinlz = min(rcoal,coalliq) + if(lcat.eq.6 .and. tair(k).gt.273.15) rfinlz=0. + + xtoz = min(umcld,rfinlz) + xtoy = umcld - xtoz + ytoz = rfinlz - xtoz + ccat=mcatc(lcat) + + if(imbudget >= 1) xrimecldt(k) = xrimecldt(k) + umcld * budget_scalet + if(imbudget >= 2) then + if(lcat.eq.4) xrimecldsnowt(k) = xrimecldsnowt(k) + umcld * budget_scalet + if(lcat.eq.5) xrimecldaggrt(k) = xrimecldaggrt(k) + umcld * budget_scalet + if(lcat.eq.6) xrimecldgraut(k) = xrimecldgraut(k) + umcld * budget_scalet + if(lcat.eq.7) xrimecldhailt(k) = xrimecldhailt(k) + umcld * budget_scalet + endif + + rxfer(k,jcat,ccat) = rxfer(k,jcat,ccat) + xtoz + rxfer(k,jcat,lcat) = rxfer(k,jcat,lcat) + xtoy + if(lcat.ne.ccat) rxfer(k,lcat,ccat) = rxfer(k,lcat,ccat) + ytoz + + qrxfer(k,jcat,ccat) = qrxfer(k,jcat,ccat) + qx(k,jcat) * xtoz + qrxfer(k,jcat,lcat) = qrxfer(k,jcat,lcat) + qx(k,jcat) * xtoy + if(lcat.ne.ccat) & + qrxfer(k,lcat,ccat) = qrxfer(k,lcat,ccat) + qx(k,lcat) * ytoz + + enxfer(k,jcat,jcat) = enxfer(k,jcat,jcat) + min(uncld,cx(k,mx)) + if(lcat.ne.ccat) enxfer(k,lcat,ccat) = enxfer(k,lcat,ccat) & + + ytoz * min(uncld,cx(k,lcat)) / max(1.e-20,rx(k,lcat)) + +endif !if cloud mean mass is greater than min threshold +endif !if cloud mixing ratio greater than min threshold +enddo !loop of vertical levels + +return +END SUBROUTINE auto_accret_ice + +!############################################################################## +Subroutine effxy (m1,k1,k2) + +use micphys + +implicit none + +integer :: m1,k,ncall7 +integer, dimension(11) :: k1,k2 +data ncall7/0/ +save + +! 1 = rp,rs,ra,rg,rh +if (ncall7 .eq. 0 .and. jnmb(2) .ge. 1 .and. jnmb(3) .ge. 1) then + ncall7 = 7 + do k = 2,m1-1 + eff(k,1) = 1.0 + enddo +endif + +! 2 = cs,ca +! Rough fit from Pruppacher and Klett Fig. 14-14 p. 496: +! close to curve for 404 microns. Replace with auto_accret eventually. +if (jnmb(2) .ge. 1 .or. jnmb(3) .ge. 1) then + do k = k1(1),k2(1) + if (emb(k,1) .gt. 9.e-13) then + eff(k,2) = min(1.,30. * (emb(k,1) - 9.e-13) ** .15) + else + eff(k,2) = 0. + endif + enddo +endif + +! 3 = rr +! Negative efficiencies used to handle rain drop breakup +! Mass(.113e-6kg) = Mean Diam(0.59mm) +! Mass(.158e-5kg) = Mean Diam(1.44mm) +! If Dm < 0.6mm, limit E <= 1.0 +! If Dm > 0.6mm, limit E >= -5.0 +if (jnmb(2) .ge. 1) then + do k = k1(2),k2(2) + if (rx(k,2) .ge. rxmin) then + eff(k,3) = min( 1.0, max( -5.0 , 2.-exp(0.1326e7*(emb(k,2)-0.113e-6)) ) ) + endif + enddo +endif + +! 4 = pp,ps,pa +if (jnmb(5) .ge. 1) then + do k = k1(3),k2(3) + if (abs(tx(k,3)+14.) .le. 2.) then + eff(k,4) = 1.4 + else + eff(k,4) = min(0.2,10. ** (0.035 * tx(k,3) - 0.7)) + endif + enddo + +! 5 = ss,sa + do k = k1(4),k2(4) + if (abs(tx(k,4)+14.) .le. 2.) then + eff(k,5) = 1.4 + else + eff(k,5) = min(0.2,10. ** (0.035 * tx(k,4) - 0.7)) + endif + enddo + +! 6 = aa + do k = k1(5),k2(5) + if (rx(k,5) .ge. rxmin) then + if (abs(tx(k,5)+14.) .le. 2.) then + eff(k,6) = 1.4 + elseif (tx(k,5) .ge. -1.) then + eff(k,6) = 1. + else + eff(k,6) = min(0.2,10. ** (0.035 * tx(k,5) - 0.7)) + endif + endif + enddo +endif + +! 7 = pg,sg,ag,gg,gh +if (jnmb(6) .ge. 1) then + do k = k1(6),k2(6) + if (qr(k,6) .gt. 0.) then + eff(k,7) = 1.0 + else + eff(k,7) = min(0.2,10. ** (0.035 * tx(k,6) - 0.7)) + endif + enddo +endif + +! 8 = ph,sh,ah,gh +if (jnmb(7) .ge. 1) then + do k = k1(7),k2(7) + if (rx(k,7) .ge. rxmin) then + if (qr(k,7) .gt. 0.) then + eff(k,8) = 1.0 + else + eff(k,8) = min(0.2,10. ** (0.035 * tx(k,7) - 0.7)) + endif + endif + enddo +endif + +! 9 = cg,ch +! Rough fit from Pruppacher and Klett Fig. 14-11 p. 485: +! close to curves for 142 and 305 microns. Replace with auto_accret eventually. +if (jnmb(2) .ge. 1 .or. jnmb(3) .ge. 1) then + do k = k1(1),k2(1) + if (emb(k,1) .gt. 3.4e-14) then + eff(k,9) = min(1.,1426. * (emb(k,1) - 3.4e-14) ** .28) + else + eff(k,9) = 0. + endif + enddo +endif + +! 10 = hh (trial) +if (jnmb(7) .ge. 1) then + do k = k1(7),k2(7) + eff(k,10) = max(0.,.1 + .005 * tx(k,7)) + enddo +endif + +! 11 = ds,da +! Rough fit from Pruppacher and Klett Fig. 14-14 p. 496: +! close to curve for 404 microns. Replace with auto_accret eventually. +if (jnmb(2) .ge. 1 .or. jnmb(3) .ge. 1) then + do k = k1(8),k2(8) + if (emb(k,8) .gt. 9.e-13) then + eff(k,11) = min(1.,30. * (emb(k,8) - 9.e-13) ** .15) + else + eff(k,11) = 0. + endif + enddo +endif + +! 12 = dg,dh +! Rough fit from Pruppacher and Klett Fig. 14-11 p. 485: +! close to curves for 142 and 305 microns. Replace with auto_accret eventually. +if (jnmb(2) .ge. 1 .or. jnmb(3) .ge. 1) then + do k = k1(8),k2(8) + if (emb(k,8) .gt. 3.4e-14) then + eff(k,12) = min(1.,1426. * (emb(k,8) - 3.4e-14) ** .28) + else + eff(k,12) = 0. + endif + enddo +endif + +return +END SUBROUTINE effxy + +!############################################################################## +Subroutine cols (mx,mc1,k1,k2) + +use micphys + +implicit none + +integer :: ipc,mx,mc1,k1,k2,k +real :: colnum,tabval + +do k = k1,k2 +if(rx(k,mx) .ge. rxmin) then + ipc = ipairc(jhcat(k,mx),jhcat(k,mx)) + + tabval & + = wct1(k,mx) ** 2 * coltabc(ict1(k,mx),ict1(k,mx),ipc) & + + 2. * wct1(k,mx) * wct2(k,mx) * coltabc(ict1(k,mx),ict2(k,mx),ipc) & + + wct2(k,mx) ** 2 * coltabc(ict2(k,mx),ict2(k,mx),ipc) + + colnum = colfacc(k) * eff(k,mc1) * cx(k,mx) ** 2 * 10. ** (-tabval) + enxfer(k,mx,mx) = enxfer(k,mx,mx) + min(0.5 * cx(k,mx),colnum) +endif +enddo + +return +END SUBROUTINE cols + +!############################################################################## +Subroutine col3344 (mx,mz,mc1,k1,k2) + +use micphys + +implicit none + +integer :: mx,mz,mc1,k1,k2,k,ip,ipc +real :: c1,tabvalx,colamt,tabvaln,colnum + +do k = k1,k2 +if(rx(k,mx) .ge. rxmin) then + ip = ipairr(jhcat(k,mx),jhcat(k,mx)) + ipc = ipairc(jhcat(k,mx),jhcat(k,mx)) + c1 = eff(k,mc1) * cx(k,mx) ** 2 + + tabvalx & + = wct1(k,mx) ** 2 * coltabr(ict1(k,mx),ict1(k,mx),ip) & + + 2. * wct1(k,mx) * wct2(k,mx) * coltabr(ict1(k,mx),ict2(k,mx),ip) & + + wct2(k,mx) ** 2 * coltabr(ict2(k,mx),ict2(k,mx),ip) + + colamt = min(rx(k,mx),colfacr2(k) * c1 * 10. ** (-tabvalx)) + rxfer(k,mx,mz) = rxfer(k,mx,mz) + colamt + qrxfer(k,mx,mz) = qrxfer(k,mx,mz) + colamt * qx(k,mx) + + if(imbudget >= 1) xaggregatet(k) = xaggregatet(k) + colamt*budget_scalet + if(imbudget >= 2) then + if(mx.eq.3) xaggrselfprist(k) = xaggrselfprist(k) + colamt*budget_scalet + if(mx.eq.4) xaggrselfsnowt(k) = xaggrselfsnowt(k) + colamt*budget_scalet + endif + + if (jnmb(mz) >= 5) then + + tabvaln & + = wct1(k,mx) ** 2 * coltabc(ict1(k,mx),ict1(k,mx),ipc) & + + 2. * wct1(k,mx) * wct2(k,mx) * coltabc(ict1(k,mx),ict2(k,mx),ipc) & + + wct2(k,mx) ** 2 * coltabc(ict2(k,mx),ict2(k,mx),ipc) + + colnum = min(0.5 * cx(k,mx),colfacc2(k) * c1 * 10. ** (-tabvaln)) + enxfer(k,mx,mz) = enxfer(k,mx,mz) + colnum + enxfer(k,mx,mx) = enxfer(k,mx,mx) + colnum + + endif +endif +enddo + +return +END SUBROUTINE col3344 + +!############################################################################## +Subroutine col3443 (mx,my,mz,k1,k2) + +use micphys + +implicit none + +integer :: mx,my,mz,k1,k2,k,jhcatx,jhcaty,ipxy,ipyx,ipc +real :: c1,tabvalx,rcx,tabvaly,rcy,tabvaln,colnum + +do k = k1,k2 +if(rx(k,mx) .ge. rxmin .and. rx(k,my) .ge. rxmin) then + jhcatx = jhcat(k,mx) + jhcaty = jhcat(k,my) + ipxy = ipairr(jhcatx,jhcaty) + ipyx = ipairr(jhcaty,jhcatx) + ipc = ipairc(jhcatx,jhcaty) + c1 = eff(k,4) * cx(k,mx) * cx(k,my) + + tabvalx & + = wct1(k,mx) * wct1(k,my) * coltabr (ict1(k,mx),ict1(k,my),ipxy) & + + wct2(k,mx) * wct1(k,my) * coltabr (ict2(k,mx),ict1(k,my),ipxy) & + + wct1(k,mx) * wct2(k,my) * coltabr (ict1(k,mx),ict2(k,my),ipxy) & + + wct2(k,mx) * wct2(k,my) * coltabr (ict2(k,mx),ict2(k,my),ipxy) + rcx = min(rx(k,mx),c1 * colfacr(k) * 10. ** (-tabvalx)) + + tabvaly & + = wct1(k,my) * wct1(k,mx) * coltabr (ict1(k,my),ict1(k,mx),ipyx) & + + wct2(k,my) * wct1(k,mx) * coltabr (ict2(k,my),ict1(k,mx),ipyx) & + + wct1(k,my) * wct2(k,mx) * coltabr (ict1(k,my),ict2(k,mx),ipyx) & + + wct2(k,my) * wct2(k,mx) * coltabr (ict2(k,my),ict2(k,mx),ipyx) + rcy = min(rx(k,my),c1 * colfacr(k) * 10. ** (-tabvaly)) + + rxfer(k,mx,mz) = rxfer(k,mx,mz) + rcx + qrxfer(k,mx,mz) = qrxfer(k,mx,mz) + rcx * qx(k,mx) + + rxfer(k,my,mz) = rxfer(k,my,mz) + rcy + qrxfer(k,my,mz) = qrxfer(k,my,mz) + rcy * qx(k,my) + + if(imbudget >= 1) xaggregatet(k) = xaggregatet(k) + (rcx + rcy)*budget_scalet + if(imbudget >= 2) xaggrprissnowt(k) = xaggrprissnowt(k) + (rcx + rcy)*budget_scalet + + tabvaln & + = wct1(k,mx) * wct1(k,my) * coltabc (ict1(k,mx),ict1(k,my),ipc) & + + wct2(k,mx) * wct1(k,my) * coltabc (ict2(k,mx),ict1(k,my),ipc) & + + wct1(k,mx) * wct2(k,my) * coltabc (ict1(k,mx),ict2(k,my),ipc) & + + wct2(k,mx) * wct2(k,my) * coltabc (ict2(k,mx),ict2(k,my),ipc) + colnum = c1 * colfacc(k) * 10. ** (-tabvaln) + + if (cx(k,mx) .gt. cx(k,my)) then + enxfer(k,my,mz) = enxfer(k,my,mz) + min(cx(k,my),colnum) + enxfer(k,mx,mx) = enxfer(k,mx,mx) + min(cx(k,mx),colnum) + else + enxfer(k,mx,mz) = enxfer(k,mx,mz) + min(cx(k,mx),colnum) + enxfer(k,my,my) = enxfer(k,my,my) + min(cx(k,my),colnum) + endif + +! also loss for aerosol + +endif +enddo + +return +END SUBROUTINE col3443 + +!############################################################################## +Subroutine col1 (mx,my,mz,mc4,k1,k2) + +use micphys + +implicit none + +integer :: mx,my,mz,mc4,k1,k2,k,ipxy,ipc +real :: c1,tabvalx,rcx,tabvaln,colnum + +do k = k1,k2 +if(rx(k,mx) .ge. rxmin .and. rx(k,my) .ge. rxmin) then + ipxy = ipairr(jhcat(k,mx),jhcat(k,my)) + ipc = ipairc(jhcat(k,mx),jhcat(k,my)) + c1 = eff(k,mc4) * cx(k,mx) * cx(k,my) + + tabvalx & + = wct1(k,mx) * wct1(k,my) * coltabr (ict1(k,mx),ict1(k,my),ipxy) & + + wct2(k,mx) * wct1(k,my) * coltabr (ict2(k,mx),ict1(k,my),ipxy) & + + wct1(k,mx) * wct2(k,my) * coltabr (ict1(k,mx),ict2(k,my),ipxy) & + + wct2(k,mx) * wct2(k,my) * coltabr (ict2(k,mx),ict2(k,my),ipxy) + + rcx = min(rx(k,mx),c1 * colfacr(k) * 10. ** (-tabvalx)) + rxfer(k,mx,mz) = rxfer(k,mx,mz) + rcx + qrxfer(k,mx,mz) = qrxfer(k,mx,mz) + rcx * qx(k,mx) + + if (jnmb(mx) >= 5) then + tabvaln & + = wct1(k,mx) * wct1(k,my) * coltabc (ict1(k,mx),ict1(k,my),ipc) & + + wct2(k,mx) * wct1(k,my) * coltabc (ict2(k,mx),ict1(k,my),ipc) & + + wct1(k,mx) * wct2(k,my) * coltabc (ict1(k,mx),ict2(k,my),ipc) & + + wct2(k,mx) * wct2(k,my) * coltabc (ict2(k,mx),ict2(k,my),ipc) + + colnum = c1 * colfacc(k) * 10. ** (-tabvaln) + enxfer(k,mx,mx) = enxfer(k,mx,mx) + min(colnum,cx(k,mx)) + +! also loss for aerosol + + endif + +endif +enddo + +return +END SUBROUTINE col1 + +!############################################################################## +Subroutine col2 (m1,mx,my,mz,mc2,k1,k2,dn0,dtlt) + +use rconstants +use micphys + +implicit none + +integer :: m1,mx,my,mz,mc2,k1,k2,k,jhcatx,jhcaty,ipxy,ipyx,ipc,it,mxx +real :: c1,c2,tabvalx,rcx,tabvaly,rcy,tabvaln,colnum0,colnum,rcoal & + ,qrcx,qrcy,qrcoal,qcoal,fracliq,tcoal,coalliq,coalice,area,cn13,cn24 & + ,sip,rsip,qrsip,rfinlz,xtoz,dtlt + +real, dimension(m1) :: dn0 + +real, dimension(16) :: alpha,beta +! 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 +data alpha /00.,00.,00., 1., 1., 1., 1.,00.,00.,00.,00., 1., 1., 1., 1.,00./ +data beta /00.,00.,00.,1.5,1.1,0.0,0.0,00.,00.,00.,00.,1.2,1.1,1.1,1.3,00./ + +do k = k1,k2 +if(rx(k,mx) .ge. rxmin .and. rx(k,my) .ge. rxmin) then + jhcatx = jhcat(k,mx) + jhcaty = jhcat(k,my) + ipxy = ipairr(jhcatx,jhcaty) + ipyx = ipairr(jhcaty,jhcatx) + ipc = ipairc(jhcatx,jhcaty) + c2 = cx(k,mx) * cx(k,my) + c1 = eff(k,mc2) * c2 + + tabvalx & + = wct1(k,mx) * wct1(k,my) * coltabr (ict1(k,mx),ict1(k,my),ipxy) & + + wct2(k,mx) * wct1(k,my) * coltabr (ict2(k,mx),ict1(k,my),ipxy) & + + wct1(k,mx) * wct2(k,my) * coltabr (ict1(k,mx),ict2(k,my),ipxy) & + + wct2(k,mx) * wct2(k,my) * coltabr (ict2(k,mx),ict2(k,my),ipxy) + + rcx = min(rx(k,mx),c1 * colfacr(k) * 10. ** (-tabvalx)) + + tabvaly & + = wct1(k,my) * wct1(k,mx) * coltabr (ict1(k,my),ict1(k,mx),ipyx) & + + wct2(k,my) * wct1(k,mx) * coltabr (ict2(k,my),ict1(k,mx),ipyx) & + + wct1(k,my) * wct2(k,mx) * coltabr (ict1(k,my),ict2(k,mx),ipyx) & + + wct2(k,my) * wct2(k,mx) * coltabr (ict2(k,my),ict2(k,mx),ipyx) + + rcy = min(rx(k,my),c1 * colfacr(k) * 10. ** (-tabvaly)) + + if (jnmb(mx) >= 5 .or. jnmb(my) >= 5) then + tabvaln & + = wct1(k,mx) * wct1(k,my) * coltabc (ict1(k,mx),ict1(k,my),ipc) & + + wct2(k,mx) * wct1(k,my) * coltabc (ict2(k,mx),ict1(k,my),ipc) & + + wct1(k,mx) * wct2(k,my) * coltabc (ict1(k,mx),ict2(k,my),ipc) & + + wct2(k,mx) * wct2(k,my) * coltabc (ict2(k,mx),ict2(k,my),ipc) + colnum0 = c2 * colfacc(k) * 10. ** (-tabvaln) + colnum = colnum0 * eff(k,mc2) + else + colnum0 = 0. + colnum = 0. + endif + + rcoal = rcx + rcy + qrcx = rcx * qx(k,mx) + qrcy = rcy * qx(k,my) + qrcoal = qrcx + qrcy + + !Saleeby (3-15-06) Lowering the threshold to prevent over-freezing + qcoal = qrcoal / max(1.e-20,rcoal) + + CALL qtc (qcoal,tcoal,fracliq) + + coalliq = rcoal * fracliq + coalice = rcoal - coalliq + +! Secondary ice production: cn24 is the number fraction of collected cloud +! droplets larger than 24 microns and is obtained from an incomplete gamma +! func table. cn13 is the fraction of collected cloud droplets +! smaller than 13 microns. "area" is cross section area of collecting ice +! per m^3 of atmospheric volume. + +! Saleeby(6/3/02): Hallett-Mossop is done for both cloud droplet modes, though +! contribution from the large droplet mode is minimal compared to the small +! droplet mode. Ice splintering is only done if number concentration is +! prognostic for at least one of the two hydromet species involved. This is +! specified above in the calculations for "colnum". + + if (tcoal.gt.-8.0 .and. tcoal.lt.-3.0 .and. (jnmb(mx)>=5.or.jnmb(my)>=5)) then + mxx=0 + if(mx==1) mxx=1 !uses gamsip(1,it) for cloud1 set in mic_init.f90 + if(mx==8) mxx=2 !uses gamsip(2,it) for cloud2 set in mic_init.f90 + if(mxx<1.or.mxx>2)stop 'problem with 2ndary ice production' + area = cx(k,my) * dn0(k) * sipfac(jhcaty) * emb(k,my) & + ** (2.*pwmasi(jhcaty)) + it = nint(emb(k,mx) / emb1(mx) * 5000.) + cn13 = colnum * gamsip13(mxx,it) / (area * dtlt) + cn24 = min(cx(k,mx)*dn0(k),colnum0) * gamsip24(mxx,it) + sip = 9.1e-10 * cn24 * cn13 ** .93 + if (tcoal .lt. -5.) then + sip = 0.33333 * (tcoal + 8.) * sip + else + sip = -0.5 * (tcoal + 3.) * sip + endif + rsip = sip * emb0(3) * dn0i(k) + qrsip = qcoal * rsip + rcoal = rcoal - rsip + qrcoal = qrcoal - qrsip + enxfer(k,mx,3) = enxfer(k,mx,3) + sip + rxfer(k,mx,3) = rxfer(k,mx,3) + rsip + qrxfer(k,mx,3) = qrxfer(k,mx,3) + qrsip + endif + +! ALWAYS NEED (ALPHA + BETA) .GE. 1 but in the (rare) case that +! fracliq may be a little larger than fracx due to collected +! liquid being above 0C, need (ALPHA + BETA) to be at least 1.1 +! or 1.2, or need ALPHA itself to be at least 1.0. + + rfinlz = min(rcoal, & + alpha(jhcaty) * coalliq + beta(jhcaty) * rcx) + + xtoz = min(rcx,rfinlz) + + if(imbudget >= 1) xrimecldt(k) = xrimecldt(k) + rcx * budget_scalet + if(imbudget >= 2) then + if(my.eq.4) xrimecldsnowt(k) = xrimecldsnowt(k) + rcx * budget_scalet + if(my.eq.5) xrimecldaggrt(k) = xrimecldaggrt(k) + rcx * budget_scalet + if(my.eq.6) xrimecldgraut(k) = xrimecldgraut(k) + rcx * budget_scalet + if(my.eq.7) xrimecldhailt(k) = xrimecldhailt(k) + rcx * budget_scalet + endif + + rxfer(k,mx,mz) = rxfer(k,mx,mz) + xtoz + rxfer(k,mx,my) = rxfer(k,mx,my) + rcx - xtoz + if (my .ne. mz) rxfer(k,my,mz) = rxfer(k,my,mz) & + + rfinlz - xtoz + + qrxfer(k,mx,mz) = qrxfer(k,mx,mz) + qx(k,mx) * xtoz + qrxfer(k,mx,my) = qrxfer(k,mx,my) + qx(k,mx) * (rcx - xtoz) + if (my .ne. mz) qrxfer(k,my,mz) = qrxfer(k,my,mz) & + + qx(k,my) * (rfinlz - xtoz) + + if (jnmb(mx) >= 5 .or. jnmb(my) >= 5) then + enxfer(k,mx,mx) = enxfer(k,mx,mx) + min(colnum,cx(k,mx)) + if (my .ne. mz) enxfer(k,my,mz) = enxfer(k,my,mz) & + + (rfinlz - xtoz) * min(colnum,cx(k,my)) / max(1.e-20,rcy) + endif + +! BUT NEED TO CHANGE THE ABOVE FOR 177 COLLECTION BECAUSE X = Y + +endif +enddo + +return +END SUBROUTINE col2 + +!############################################################################## +Subroutine col3 (m1,mx,my,k1,k2,dn0) + +!Rain-ice collection routine that classifies destination category +!depending on density of resulting coalesced particles for r-s, r-a and r-g +!collection based on Milbradnt and Yau 2005 part II equations 39 and 40. +!Rain-pristine ice collisions go to hail using Ferrier 1994 formulation that +!allows for larger drops to collect more than one ice crystal. +! * r-s and r-a collisions go to either s,a,g or h category - compute coalesced +! particle density to determine destination cat +! * r-g collisions go to either graupel or hail depending on resulting +! density (denz) of coalesced particles [after Milbrandt and Yau 2005b] +! * r-p collisions go to hail using Ferrier 1994 formulation that allows +! for larger drops to collect more than one ice crystal; special routine +! 'F94' called for r-p collisions + +use micphys + +implicit none + +integer :: m1,mx,my,mz,k1,k2,k,ipxy,ipyx,ipc,jhcaty +real :: c1,tabvalx,rcx,tabvaly,rcy,tabvaln,colnum,colnumx,colnumy,coalnum & + ,rcoal,qrcx,qrcy,qrcoal,qcoal,fracliq,coalliq,coalice,xtoz & + ,rfinlz,tcoal,cfinlz +real, dimension(m1) :: dn0 +real, dimension(16) :: alpha,beta +real :: cfinlzMY05,tmp1,tmp2,tmp3,denr,dens,deng,denz,denh,pwcoef,dmzz & + ,dmeanr,dmeany,dengh,densg,ansn,ansr + +! 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 +data alpha /00.,00., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 1.,00./ +data beta /00.,00., 2., 2., 2., 1., 0., 2., 2., 2., 2., 2., 2., 2., 2.,00./ + +!--Set local constants +denr=1000. !rain density [kg/m^3] +deng=300. !graupel density [kg/m^3] +denh=900. !hail density [kg/m^3] +dengh=600. !=0.5*(deng+denh) [kg/m^3] + +!Note: mx=2 (rain), my=lcat, mz=7 (hail) +do k = k1,k2 + + mz=7 !<--default destination category, needs to be reset for each level k + if(rx(k,mx) .ge. rxmin .and. rx(k,my) .ge. rxmin) then + + jhcaty = jhcat(k,my) + ipxy = ipairr(jhcat(k,mx),jhcaty) + ipyx = ipairr(jhcaty,jhcat(k,mx)) + ipc = ipairc(jhcat(k,mx),jhcaty) + c1 = eff(k,1) * cx(k,mx) * cx(k,my) + + tabvalx & + = wct1(k,mx) * wct1(k,my) * coltabr (ict1(k,mx),ict1(k,my),ipxy) & + + wct2(k,mx) * wct1(k,my) * coltabr (ict2(k,mx),ict1(k,my),ipxy) & + + wct1(k,mx) * wct2(k,my) * coltabr (ict1(k,mx),ict2(k,my),ipxy) & + + wct2(k,mx) * wct2(k,my) * coltabr (ict2(k,mx),ict2(k,my),ipxy) + + rcx = min(rx(k,mx),c1 * colfacr(k) * 10. ** (-tabvalx)) + + tabvaly & + = wct1(k,my) * wct1(k,mx) * coltabr (ict1(k,my),ict1(k,mx),ipyx) & + + wct2(k,my) * wct1(k,mx) * coltabr (ict2(k,my),ict1(k,mx),ipyx) & + + wct1(k,my) * wct2(k,mx) * coltabr (ict1(k,my),ict2(k,mx),ipyx) & + + wct2(k,my) * wct2(k,mx) * coltabr (ict2(k,my),ict2(k,mx),ipyx) + + rcy = min(rx(k,my),c1 * colfacr(k) * 10. ** (-tabvaly)) + + if (jnmb(mx) >= 5) then + tabvaln & + = wct1(k,mx) * wct1(k,my) * coltabc (ict1(k,mx),ict1(k,my),ipc) & + + wct2(k,mx) * wct1(k,my) * coltabc (ict2(k,mx),ict1(k,my),ipc) & + + wct1(k,mx) * wct2(k,my) * coltabc (ict1(k,mx),ict2(k,my),ipc) & + + wct2(k,mx) * wct2(k,my) * coltabc (ict2(k,mx),ict2(k,my),ipc) + + colnum = c1 * colfacc(k) * 10. ** (-tabvaln) + colnumx = min(cx(k,mx),colnum) + colnumy = min(cx(k,my),colnum) + coalnum = min(colnumx,colnumy) + else + colnumx = 0. + colnumy = 0. + coalnum = 0. + endif + + rcoal = rcx + rcy + qrcx = rcx * qx(k,mx) + qrcy = rcy * qx(k,my) + qrcoal = qrcx + qrcy + qcoal = qrcoal / max(1.e-20,rcoal) + + CALL qtc (qcoal,tcoal,fracliq) + + coalliq = rcoal * fracliq + coalice = rcoal - coalliq + + !Air temperature threshold for rain-ice coll (No new ice at T > 0 degC) + if (fracliq.ge.0.99 .or. tair(k).gt.273.15) then + + rxfer(k,my,mx) = rxfer(k,my,mx) + rcy + qrxfer(k,my,mx) = qrxfer(k,my,mx) + qrcy + if (jnmb(mx) >= 5) & + enxfer(k,my,my) = enxfer(k,my,my) + colnumy + + if(imbudget >= 1) xice2raint(k) = xice2raint(k) + rcy * budget_scalet + + else + + rfinlz = min(rcoal, & + alpha(jhcaty) * coalliq + beta(jhcaty) * rcx) + + !For pristine ice, snow, aggregates, graupel: + !'xtoz' is ALWAYS equal to 'rcx' because 'rfinlz' is ALWAYS + !at least equal to 'rcx' or 'rcx+rcy' + + xtoz = min(rcx,rfinlz) + + !Partitioning for destination categories based + !on Milbrandt and Yau 2005pII 3-component freezing (Eqns 39 & 40) + if((my.ge.4).and.(my.le.6))then + + dmeanr=(emb(k,mx)/cfmas(mx))**(1./pwmas(mx)) !rain mean mass D [m] + dmeany=(emb(k,my)/cfmas(my))**(1./pwmas(my)) !snow/aggr/grpl mean mass D + dmzz=max(dmeanr,dmeany) !mean mass diam of coalesc particles [m] + dens=deng !default ice cat rho is that for grpl + + if((my.eq.4).or.(my.eq.5))then + !coalesced particles will be hail based on pre-determined (offline) + !calculations of resulting densities (lrg rain collects smaller ice) + if(dmeanr.ge.dmeany)then + denz=denh + goto 33 + !compute densities of mean mass diams of s,a to determine dest cat + else + pwcoef=pwmas(my)-3. + !snow/aggr density of mean mass diam [kg/m^3] + dens=(6./3.14159)*cfmas(my)*(dmeany**pwcoef) + densg=0.5*(dens+deng) + endif + endif + + tmp1=dmzz*dmzz*dmzz + tmp2=dmeanr*dmeanr*dmeanr + tmp3=dmeany*dmeany*dmeany + !rho_z from Eqn 39 (rho of coalesced particles) + denz=(denr*tmp2+dens*tmp3)/tmp1 + + !Determine destination category based on denz (rho_z) + ! NOTE destination category is hail (mz=7) by default + if((my.eq.4).or.(my.eq.5))then + if(denz.le.densg)then + mz=my !<--dest category is snow or aggr + elseif((denz.gt.densg).and.(denz.le.dengh))then + mz=6 !<--dest category is graupel + endif + elseif((my.eq.6).and.(denz.le.dengh))then + mz=6 !<--dest category is graupel + endif + + !Set dest category density + denz=denh !default dest. cat. density is that of hail + if(mz.lt.6)then + denz=dens + elseif(mz.eq.6)then + denz=deng + endif + + elseif(my.eq.3)then !Use Ferrier 1994 formulation for r-p collisions + !to limit mass and # of new hailstones (frozen drops) + dmeanr=(emb(k,mx)/cfmas(mx))**(1./3.) !mean mass diam of rain [m] + dmeany=(emb(k,my)/cfmas(my))**(1./pwmas(my)) !pris ice mean mass diam [m] + denz=denh !coalesced particles have density of hail + dmzz=dmeanr !coalesced particles have mean mass diam of rain + + !diam threshholds for hail formation + if((dmeanr.ge.8.e-4).and.(dmeany.ge.40.e-6))then + !ansn unitless, ansr [kg] + CALL F94 (rx(k,2),cx(k,2),cx(k,3),dn0(k),ansn,ansr) + ansn=ansn*cx(k,2) !#/conc of new hailstones [1/kg] + ansr=ansr*cx(k,2) !mixing ratio of new hailstones [kg/kg] + cfinlz=coalnum*rfinlz/max(rcoal,1.e-20) !regular 2M value for # of new hail + if(ansr.lt.rcx)then !recompute these variables + rcx=ansr + rcoal=rcx+rcy + qrcx=rcx*qx(k,mx) + xtoz=rcx + rfinlz=rcoal + endif + if(ansn.lt.cfinlz)then + colnumx=min(ansn,cx(k,2)) + coalnum=min(colnumx,colnumy) + endif + !rain and/or pris ice mean mass diams too small to form hail + else + xtoz=0. + rfinlz=0. + rcoal=0. + endif !end of dmeanr >= 8.e-4 & dmeany >= 40e-6 + + endif !end of my >= 4 and my < 7 + 33 continue + + if(imbudget >= 1) xrain2icet(k) = xrain2icet(k) + rcx * budget_scalet + if(imbudget >= 2) then + if(my==3) xrain2prt(k) = xrain2prt(k) + rcx * budget_scalet + if(my==4) xrain2snt(k) = xrain2snt(k) + rcx * budget_scalet + if(my==5) xrain2agt(k) = xrain2agt(k) + rcx * budget_scalet + if(my==6) xrain2grt(k) = xrain2grt(k) + rcx * budget_scalet + if(my==7) xrain2hat(k) = xrain2hat(k) + rcx * budget_scalet + endif + + rxfer(k,mx,mz) = rxfer(k,mx,mz) + xtoz !from rain to cat z + qrxfer(k,mx,mz) = qrxfer(k,mx,mz) + qx(k,mx) * xtoz + + rxfer(k,mx,my) = rxfer(k,mx,my) + rcx - xtoz + qrxfer(k,mx,my) = qrxfer(k,mx,my) + qx(k,mx) * (rcx - xtoz) + + if (my .ne. mz) then !from cat y to cat z + rxfer(k,my,mz) = rxfer(k,my,mz) + rfinlz - xtoz + qrxfer(k,my,mz) = qrxfer(k,my,mz) + qx(k,my) * (rfinlz - xtoz) + tmp1=rcoal*(6./3.14159) + tmp2=denz*dmzz*dmzz*dmzz + cfinlzMY05=tmp1/tmp2 !<--Eqn 40 from Milbrandt and Yau 2005 part II + endif ! # conc of newly formed cat z particles [g or h] + + if (jnmb(mx) >= 5) then + cfinlz = coalnum * rfinlz / max(rcoal,1.e-20) + if (my .eq. mz) then + enxfer(k,mx,mx) = enxfer(k,mx,mx) + colnumx + elseif (colnumy .ge. colnumx) then + enxfer(k,mx,mz) = enxfer(k,mx,mz) + min(cfinlzMY05,cfinlz) + enxfer(k,mx,mx) = enxfer(k,mx,mx) + colnumx - cfinlz & + + max(0.,cfinlz-cfinlzMY05) + enxfer(k,my,my) = enxfer(k,my,my) + colnumy + else + enxfer(k,my,mz) = enxfer(k,my,mz) + min(cfinlzMY05,cfinlz) + enxfer(k,mx,mx) = enxfer(k,mx,mx) + colnumx + enxfer(k,my,my) = enxfer(k,my,my) + colnumy - cfinlz & + + max(0.,cfinlz-cfinlzMY05) + endif + endif !end of jnmb(mx) >= 5 + + endif !end of 'fracliq >= 0.99' section + endif !end of rx(k,mx), rx(k,my) >= rxmin if-statement +enddo + +return +END SUBROUTINE col3 + +!############################################################################## +Subroutine F94 (rxa,cxx,cxy,denk,ansn,ansr) + +! call F94(rx(k,2),cx(k,2),cx(k,3),dn0(k),ansn,ansr) +! Compute mass and number of frozen drops for r-p collisions +! Based on Eqn 4.19 for mass and Eqn 4.23 for number conc in Ferrier 1994. +! This allows for larger raindrops to collect more than 1 ice crystal in +! one timestep dtlt when large numbers of crystals are present. Assumes +! that crystal fall speed is zero and rain-pris collection efficiencies are 1. +! This routine uses [1/m^3] and [kg/m^3] units + +use mem_grid, only:dtlt +use micphys + +implicit none + +integer :: nbins,i,j +real :: rxa,cxx,cxy,dt,ipi4,pi314,mind,maxd,m +real :: tmp1,tmp2,tmp3,tmp4,tmp5,tmp6,summ,sumn +real :: chdiam,meand,dmbodn,ansn,ansr,denk +real,dimension(95) :: fgam +real,dimension(94) :: Pri,Nri +real, external :: gammln + +!--local constants +nbins=94 +ipi4=3.1415927/4. +sumn=0. +summ=0. +ansn=0. +ansr=0. + +!--compute characteristic diameter for rain (lcat=2) +dmbodn=(exp(gammln(gnu(2)+pwmas(2))-gammln(gnu(2))))**pwmasi(2) +tmp1=rxa/(max(cxx,rxmin)) !mean mass +meand=(tmp1/cfmas(2))**pwmasi(2) !mean mass diam +chdiam=meand/dmbodn !char. diam + +tmp2=1./chdiam +tmp4=gnu(2)-1. +tmp5=exp(gammln(gnu(2))) +tmp5=1./tmp5 + +do i=1,nbins !numerically integrate Eqs 4.19 & 4.23 over rain diameters +!-- Compute Nri, Pri (see F94) Nri: # of crystals collected by +!-- a drop with diam 'radF94' in one dtlt, assumed Eff=1 + Nri(i)=ipi4*cxy*denk*(radF94(i)*radF94(i))*avtF94(i)*dtlt !Eqn 4.21 in F94 + Nri(i)=Nri(i)/sqrt(denk) !<--AML 2/4/11 account for densty effcts on Vt + Pri(i)=min(1.,Nri(i)) !Probabilistic freezing of rain [Eqn 4.20 in F94] + tmp1=radF94(i)*tmp2 + fgam(i)=tmp2*exp(-tmp1)*(tmp1**tmp4)*tmp5 !gamma pdf values + if((fgam(i).lt.1.e-35).or.(fgam(i).gt.1.e+35))THEN + fgam(i)=0.0 + endif + tmp6=rdbF94(i+1)-rdbF94(i) !size bin width + sumn=sumn+Pri(i)*fgam(i)*tmp6 !eqn 4.23 in F94 + summ=summ+ramF94(i)*Pri(i)*fgam(i)*tmp6 !eqn 4.19 in F94 +enddo + +ansn=sumn !number of drops frozen +ansr=summ !change in rain mass owing to freezing of rain drops + +return +END SUBROUTINE F94 + +!############################################################################## +Subroutine colxfers (m1,k1,k2,rloss,enloss) + +use micphys + +implicit none + +integer :: m1,k,lcat,kd1,kd2,jcat +integer, dimension(11) :: k1,k2 +real, dimension(m1) :: rloss,enloss +real :: cldnumratio + +! All rxfer values are nonnegative. +do lcat = 1,8 + if (jnmb(lcat) .ge. 1) then + kd1 = k1(lcat) + kd2 = k2(lcat) + + do k = kd1,kd2 + rloss(k) = 0. + enloss(k) = 0. + enddo + + do jcat = 1,8 +! change this to include enxfer of the same categories + if (jnmb(jcat) .ge. 1) then + if (lcat .ne. jcat) then + do k = kd1,kd2 + rloss(k) = rloss(k) + rxfer(k,lcat,jcat) + enddo + endif + do k = kd1,kd2 + enloss(k) = enloss(k) + enxfer(k,lcat,jcat) + enddo + endif + enddo + + do k = kd1,kd2 + rloss(k) = min(1.,rx(k,lcat) / max(1.e-20,rloss(k))) + enloss(k) = min(1.,cx(k,lcat) / max(1.e-10,enloss(k))) + enddo + + do jcat = 1,8 + if (jnmb(jcat) .ge. 1) then + if (lcat .ne. jcat) then + do k = kd1,kd2 + rxfer(k,lcat,jcat) = rxfer(k,lcat,jcat)*rloss(k) + qrxfer(k,lcat,jcat)=qrxfer(k,lcat,jcat)*rloss(k) + enddo + endif + do k = kd1,kd2 + enxfer(k,lcat,jcat) = enxfer(k,lcat,jcat)*enloss(k) + enddo + endif + enddo + endif +enddo + +do lcat = 1,8 + + if (jnmb(lcat) .ge. 1) then + + kd1 = k1(lcat) + kd2 = k2(lcat) + + do jcat = 1,8 + + !TRANSFER MIXING RATIO AND NUMBER AND CCN MASS BETWEEN CATEGORIES + if (jnmb(jcat) .ge. 1 .and. lcat .ne. jcat) then + do k = kd1,kd2 + + !Double check prevent transfer of more rx than exists + if(rxfer(k,lcat,jcat)>rx(k,lcat)) then + rxfer(k,lcat,jcat)=rx(k,lcat) + endif + + !Aerosol and solubility tracking + !Transfer aerosol-in-hydrometeor masses between categories + if(iccnlev>=2 .and. rx(k,lcat)>0.0) then + rxferratio = rxfer(k,lcat,jcat)/rx(k,lcat) + ccnmass = cnmhx(k,lcat) * rxferratio + cnmhx(k,lcat) = cnmhx(k,lcat) - ccnmass + cnmhx(k,jcat) = cnmhx(k,jcat) + ccnmass + if(itrkepsilon==1) then + scnmass = snmhx(k,lcat) * rxferratio + snmhx(k,lcat) = snmhx(k,lcat) - scnmass + snmhx(k,jcat) = snmhx(k,jcat) + scnmass + endif + if(itrkdust==1)then + dcnmass = dnmhx(k,lcat) * rxferratio + dnmhx(k,lcat) = dnmhx(k,lcat) - dcnmass + dnmhx(k,jcat) = dnmhx(k,jcat) + dcnmass + endif + if(itrkdustifn==1)then + dinmass = dinhx(k,lcat) * rxferratio + dinhx(k,lcat) = dinhx(k,lcat) - dinmass + dinhx(k,jcat) = dinhx(k,jcat) + dinmass + endif + endif + !Transfer immersion freezing nuclei between cloud, driz, rain + if(iifn==3 .and. iccnlev>=1 .and. cx(k,lcat)>0.0) then + if(lcat==1.or.lcat==8.or.lcat==2) then + enxferratio = min(1.0,max(0.0,enxfer(k,lcat,jcat)/cx(k,lcat))) + ccnnum = immerhx(k,lcat) * enxferratio + immerhx(k,lcat) = immerhx(k,lcat) - ccnnum + if(jcat==8.or.jcat==2) & + immerhx(k,jcat) = immerhx(k,jcat) + ccnnum + endif + endif + !Update mixing ratio, number, and heat storage + rx(k,lcat) = rx(k,lcat) - rxfer(k,lcat,jcat) + rx(k,jcat) = rx(k,jcat) + rxfer(k,lcat,jcat) + qr(k,lcat) = qr(k,lcat) - qrxfer(k,lcat,jcat) + qr(k,jcat) = qr(k,jcat) + qrxfer(k,lcat,jcat) + cx(k,lcat) = cx(k,lcat) - enxfer(k,lcat,jcat) + cx(k,jcat) = cx(k,jcat) + enxfer(k,lcat,jcat) + if(rx(k,lcat)<=0.0 .or. cx(k,lcat)<=0.0) then + rx(k,lcat)=0.0 + cx(k,lcat)=0.0 + qx(k,lcat)=0.0 + qr(k,lcat)=0.0 + endif + + enddo + endif + enddo + + !Section to handle self-collection number change + if (jnmb(lcat) >= 5) then + do k = kd1,kd2 + cxtemp = cx(k,lcat) + cx(k,lcat) = cx(k,lcat) - enxfer(k,lcat,lcat) + if(cx(k,lcat)<0.0) cx(k,lcat)=0.0 + !Adjust immersion freezing nuclei number + if(iifn==3 .and. iccnlev>=1 .and. (lcat==1.or.lcat==8.or.lcat==2)) then + cldnumratio = min(1.0,max(0.0,cx(k,lcat)/max(1.e-20,cxtemp))) + immerhx(k,lcat) = max(0.,immerhx(k,lcat)*cldnumratio) + endif + enddo + endif + + endif +enddo + +return +END SUBROUTINE colxfers diff --git a/src/6.2.16/micro/mic_driv.f90 b/src/6.2.16/micro/mic_driv.f90 new file mode 100644 index 0000000..03ca777 --- /dev/null +++ b/src/6.2.16/micro/mic_driv.f90 @@ -0,0 +1,1148 @@ +!############################################################################## +Subroutine micro () + +use mem_basic +use mem_micro +use mem_grid +use mem_radiate +use mem_leaf +use node_mod +use rrad3 +use micphys +use io_params + +implicit none + +integer :: ngr,lhcat,i,j,k +integer, dimension(11) :: k1,k2,k3 +integer, save :: ncall = 0 +integer, save, dimension(maxgrds) :: ncallg +integer, save, dimension(16) :: lcat0 +real :: dtlti,sumtotal,sumcheck +data ncallg/maxgrds*0/ +data lcat0 /1,2,3,4,5,6,7,3,3,3,3,4,4,4,4,8/ + +if (level .ne. 3) return + +!****************************************************************************** +! INITIALIZE MICROPHYSICS LOOKUP TABLES AND VARIABLES AT START ONLY +!****************************************************************************** +!Run non-grid-dependent initialization at model startup for first timestep +if(ncall == 0) then + ncall = 1 + !Initialize many microphysics parameters and lookup tables + CALL micinit () + CALL setupF94 () + CALL make_autotab () + CALL haznuc () + CALL tabmelt () + CALL tabhab () + !Initialize several hydrometeor specific mass and fall speed coefficients + do lhcat = 1,nhcat + ch3(lhcat) = pwvt(lhcat) * pwmasi(lhcat) + cdp1(lhcat) = pwmasi(lhcat) * (1.5 + .5 * pwvt(lhcat)) + pwvtmasi(lhcat) = pwvt(lhcat) * pwmasi(lhcat) + enddo +endif + +!Run grid-dependent initialization at model start for parent and nested grids +if(ncallg(ngrid) == 0) then + ncallg(ngrid) = 1 + !Let user know when sedimentation tables are being created + if(iprntstmt>=1 .and. print_msg) & + print*,'Start Making Sedimentation Tables On (ngrid,dt):',ngrid,dtlt + !Make grid-dependent sedimentation lookup table for quasi-bin implementation + if(isedim==0) & + CALL mksedim_tab (mzp,ngrid,zm,dzt & + ,pcp_tab(ngrid)%pcpfillc(1,1,1,1,1,1) & + ,pcp_tab(ngrid)%pcpfillr(1,1,1,1,1,1) & + ,pcp_tab(ngrid)%sfcpcp(1,1,1,1,1) & + ,pcp_tab(ngrid)%allpcp(1,1,1,1,1) & + ,dtlt) + !Make grid-dependent sedimentation lookup table for true bin implementation + if(isedim==1) & + CALL mksedim_tab_trubin (mzp,zm,dzt & + ,pcp_tab(ngrid)%pcpfillc(1,1,1,1,1,1) & + ,pcp_tab(ngrid)%pcpfillr(1,1,1,1,1,1) & + ,pcp_tab(ngrid)%sfcpcp(1,1,1,1,1) & + ,pcp_tab(ngrid)%allpcp(1,1,1,1,1) & + ,dtlt) + !Let user know when sedimentation tables finished being created + if(iprntstmt>=1 .and. print_msg) & + print*,'Done Making Sedimentation Tables On (ngrid,dt):',ngrid,dtlt + !Make some sedimentation variable for each hydrometeor category + do lhcat = 1,nhcat + if(isedim==0) & + ch2(lhcat,ngrid) = float(nembfall-1) & + / log10(dispemb1(lhcat,ngrid) / dispemb0(lhcat,ngrid)) + if(isedim==1) & + ch2(lhcat,ngrid) = float(nembfall-1) & + / log10(1.*emb1(lcat0(lhcat))/emb0(lcat0(lhcat))) + enddo + !Make lookup table for homogeneous freezing that is grid and time dependent + CALL homfrzcl (dtlt,ngrid) +endif + +!Get time-step dependent coefficients for current grid-nest and get initial +! mean mass if jnmb==2 (fixed diameter), and get jhcat arrays, and set some +! initial arrays for vapor deposition. +CALL each_call (mzp,dtlt) +!Set inverse timestep to use as multiplier and avoid division by timestep +dtlti = 1. / dtlt + +!****************************************************************************** +! RUN THE MICROPHYSICS WITH IMBEDDED CALL TO HARRINGTON RADIATION +!****************************************************************************** +!Going forth, ngr is used as abbreviation for ngrid +ngr = ngrid + +!Zero out the radiative heating rate "fthrd" if this this a radiation timestep +!and if running Harrington Radiation as called below with microphysics loop. +if (iswrtyp .eq. 3 .or. ilwrtyp .eq. 3) then + if (mod(time + .001,radfrq) .lt. dtlt .or. time .lt. .001) then + CALL azero (mzp*mxp*myp,radiate_g(ngrid)%fthrd(1,1,1)) + endif +endif + +!Loop through domain or parallel sub-domain +do j = ja,jz + do i = ia,iz + !Do micro flag check and copy global variabes to local variables + CALL range_check (mzp,k1,k2,k3,i,j,frqstate(ngr),ngr,dtlt,time,micro_g(ngr)) + !Run the microphysics and Harrington radiation code + CALL mcphys (mzp,k1,k2,k3,i,j,ngr,maxnzp & + ,dtlt,dtlti,time,zm & + ,zt,radiate_g(ngr) & + ,basic_g(ngr)%up (1,i,j) & + ,basic_g(ngr)%vp (1,i,j) & + ,basic_g(ngr)%thp (1,i,j) & + ,basic_g(ngr)%theta (1,i,j) & + ,basic_g(ngr)%rtp (1,i,j) & + ,basic_g(ngr)%rv (1,i,j) & + ,basic_g(ngr)%wp (1,i,j) & + ,grid_g(ngr)%rtgt (i,j) & + ,micro_g(ngr)%pcpg (i,j) & + ,micro_g(ngr)%qpcpg (i,j) & + ,micro_g(ngr)%dpcpg (i,j) & + ,pcp_tab(ngr)%pcpfillc(1,1,1,1,1,1) & + ,pcp_tab(ngr)%pcpfillr(1,1,1,1,1,1) & + ,pcp_tab(ngr)%sfcpcp (1,1,1,1,1) & + ,pcp_tab(ngr)%allpcp (1,1,1,1,1) & + ,grid_g(ngr)%glat (i,j) & + ,grid_g(ngr)%topt (i,j) & + ,basic_g(ngr)%dn0 (1,i,j) & + ,basic_g(ngr)%pi0 (1,i,j) & + ,basic_g(ngr)%pp (1,i,j) & + ,leaf_g(ngr)%leaf_class(i,j,1:npatch) & + ,leaf_g(ngr)%patch_area(i,j,1:npatch) & + ,npatch & + !LEAF Variables needed for aerosol deposition + ,leaf_g(ngr)%ustar(i,j,1:npatch) & + ,leaf_g(ngr)%patch_rough(i,j,1:npatch) & + ,imonth1 & + ) + !Copy local variables back to global variables + CALL copyback (mzp,k2,k3,i,j,micro_g(ngr)) + !Quick way to view total accum precip + !Good for testing in SEQUENTIAL mode - not for testing in PARALLEL + sumcheck=0 + if(sumcheck==1)then + if(i==ia.and.j==ja)sumtotal=0.0 + if(idriz>0) sumtotal=sumtotal + micro_g(ngr)%accpd(i,j) + if(irain>0) sumtotal=sumtotal + micro_g(ngr)%accpr(i,j) + if(ipris>0) sumtotal=sumtotal + micro_g(ngr)%accpp(i,j) + if(isnow>0) sumtotal=sumtotal + micro_g(ngr)%accps(i,j) + if(iaggr>0) sumtotal=sumtotal + micro_g(ngr)%accpa(i,j) + if(igraup>0) sumtotal=sumtotal + micro_g(ngr)%accpg(i,j) + if(ihail>0) sumtotal=sumtotal + micro_g(ngr)%accph(i,j) + if(i==iz.and.j==jz)print*,"Grid total precip:",sumtotal + endif + !Write some output as need for testing and troubleshooting + !if(i+mi0(ngr)==12 .and. j+mj0(ngr)==14) then + ! do k=14,mzp,1 + ! print'(5i4,1f10.1,2X1f20.10)',k,i,ia,j,ja,time & + ! ,micro_g(ngr)%q7(k,i,j) + ! enddo + !endif + enddo +enddo + +return +END SUBROUTINE micro + +!############################################################################## +Subroutine mcphys (m1,k1,k2,k3,i,j,ngr,maxnzp & + ,dtlt,dtlti,time,zm,zt & + ,radiate & + ,uup,vvp,thp,theta,rtp,rv,wp & + ,rtgt,pcpg,qpcpg,dpcpg & + ,pcpfillc,pcpfillr,sfcpcp,allpcp & + ,glat,topt & + ,dn0 & + ,pi0,pp & + !LEAF Variables needed for aerosol deposition onto surface + ,lclass,parea,npatch & + ,ustar,prough,imonthx & + ) + +use mem_radiate +use rconstants +use rrad3 +use micphys + +implicit none + +type (radiate_vars) :: radiate + +integer :: i,j,k,lcat,jcat,icv,icx,mc1,mc2,mc3,mc4,m1 & + ,ngr & + ,maxnzp,mcat & + ,k1cnuc,k2cnuc,k1dnuc,k2dnuc,k1pnuc,k2pnuc,lhcat + +real, dimension(8) :: dpcp0 +integer, dimension(8) :: mcats,mivap,mix02 +integer, dimension(9,4) :: mcat1 +integer, dimension(8,2) :: mcat2,mcat22 +integer, dimension(4) :: mcat33 +integer, dimension(11) :: k1,k2,k3 +real :: dtlt,dtlti,time +real :: rtgt,pcpg,qpcpg,dpcpg +real, dimension(m1) :: zm,thp,theta,rtp,rv,wp,uup,vvp +real, dimension(m1) :: dn0 +real, dimension(m1) :: pi0,pp + +! Variables needed for Harrington radiation scheme +real :: glat,topt +real, dimension(m1) :: zt + +! Variables needed for hydrometeor sedimentation +real, dimension(m1,maxkfall,nembfall,nhcat,ndensrtgt,nband)::pcpfillc,pcpfillr +real, dimension(maxkfall,nembfall,nhcat,ndensrtgt,nband)::sfcpcp +real, dimension(m1,nembfall,nhcat,ndensrtgt,nband)::allpcp + +! LEAF Variables needed for aerosol surface deposition +integer :: npatch +integer :: imonthx +real, dimension(npatch) :: lclass,parea +real, dimension(npatch) :: ustar,prough + +! (mcats) is for rain, agg, graupel, hail self-collection (cols) +data mcats /0,3,0,0,6,7,10,0/ ! (effxy) number for coll efficiency +! (mcat1) is for ice-ice interactions (col1) +data mcat1 /3,3,3,4,4,4,5,5,6 & ! 1st variable to interact + ,5,6,7,5,6,7,6,7,7 & ! 2nd variable to interact + ,5,6,7,5,6,7,6,7,7 & ! transfer variable for (r) & (q) + ,4,7,8,5,7,8,7,8,8/ ! (effxy) number for coll efficiency +! (mcat2) is for cloud_1 - ice interactions (col2) +data mcat2 /0,0,0,6,6,7,7,0 & + ,0,0,0,2,2,9,9,0/ +! (mcat22) is for cloud_2 - ice interactions (col2) +data mcat22 /0,0,0,6,6,7,7,0 & + ,0,0,0,11,11,12,12,0/ +! (mcat33) is for pristine, snow self-collection (col3344) +data mcat33 /0,0,4,5/ ! (effxy) number for coll efficiency +! Order of vapor flux calculation +data mivap /1,8,3,4,5,2,6,7/ +! Order of melting calculation and transfer +! though Cloud and Drizzle not considered +data mix02 /3,1,8,4,5,6,7,2/ +! Multiplier in (sedim) +data dpcp0 /.001,.001,.010,.010,.010,.003,.001,.001/ +save + +! Compute pressure, temperature, and moisture for vapor diffusion + CALL thrmstr (m1,k1,k2,thp(1),theta(1),rtp(1),rv(1) & + ,pp(1),pi0(1) & + ) + +! Compute vapor diffusion terms + CALL each_column (m1,k1,k2,rv(1),dn0(1)) + +! Diagnose hydrometeor mean mass emb, and if necessary, number concentration. +do lcat = 1,8 + if (jnmb(lcat) .ge. 1) then + CALL enemb (m1,k1,k2,lcat,dn0(1)) + endif +enddo + +! Evaluate radiative heating rates if using Harrington radiation scheme +if (iswrtyp .eq. 3 .or. ilwrtyp .eq. 3) then + if (mod(time + .001,radfrq) .lt. dtlt .or. time .lt. .001) then + !Saleeby(2008): Change passing of 7 to 8 if adding drizzle mode + ! and modify locations in radcalc3 and radcomp3 to match + CALL radcalc3 (m1,i,j,ngr,maxnzp,7,iswrtyp,ilwrtyp,zm,zt & + ,glat,rtgt,topt,rv(1) & + ,radiate%albedt (i,j) & + ,radiate%cosz (i,j) & + ,radiate%rlongup(i,j) & + ,radiate%rshort (i,j) & + ,radiate%rlong (i,j) & + ,radiate%aodt (i,j) & + ,radiate%fthrd(1,i,j) & + ,radiate%bext (1,i,j) & + ,radiate%swup (1,i,j) & + ,radiate%swdn (1,i,j) & + ,radiate%lwup (1,i,j) & + ,radiate%lwdn (1,i,j) & + ,dn0(1) & + ) + endif +endif + +! Save rx and qx before vapor diffusion. +rx_lhr = rx +qx_lhr = qx + +! Pre-compute variables for vapor diffusion +do lcat = 1,8 + if (jnmb(lcat) .ge. 1) then + CALL diffprep (m1,lcat,k1(lcat),k2(lcat),rv(1),dn0(1)) + endif +enddo + +! Pre-compute variables for vapor diffusion + CALL vapdiff (m1,k1(11),k2(11),rv(1)) + +! Calculate vapor flux in order of species given by (mivap) +do icv = 1,8 + lcat = mivap(icv) + if (jnmb(lcat) .ge. 1) then + CALL vapflux (m1,lcat,k1(lcat),k2(lcat),rv(1),i,j) + endif +enddo + +! Pristine ice to snow transfer +if (jnmb(4) .ge. 1) then + CALL psxfer (k1(3),k2(3),k1(4),k2(4),i,j) +endif + +! Update temperature and moisture following vapor growth + CALL newtemp (m1,k1(11),k2(11),rv(1),theta(1)) + +! Computed updated mean mass and weights for collision lookup tables +do lcat = 1,8 + if (jnmb(lcat) .ge. 1) then + CALL enemb (m1,k1,k2,lcat,dn0(1)) + CALL getict (k1(lcat),k2(lcat),lcat) + endif +enddo + +! Add call to update LHR theta after vapor diffusion + CALL calc_lhr_vap (k1,k2) + +! Auto-accretion considered only for rain +if (jnmb(2) .ge. 1) then + CALL auto_accret (m1,k1(1),k2(1),k1(8),k2(8),dn0(1),dtlt,i,j) +endif + +! Binned riming of cloud species by the ice species +if(irime==1)then + do jcat = 1,8,7 + do lcat = 4,7 + if (jnmb(jcat) .ge. 1 .and. jnmb(lcat) .ge. 1) then + CALL auto_accret_ice (m1,jcat,lcat,k1(jcat),k2(jcat),dn0(1),dtlt) + endif + enddo + enddo +endif + +! Calculate collision/coalescence efficiencies before collection routines + CALL effxy (m1,k1,k2) + +! Self collection of rain, aggregates, graupel, hail: number change only +do lcat = 2,7 + if (lcat .eq. 3 .or. lcat .eq. 4) go to 29 + mc1 = mcats(lcat) + if (jnmb(lcat) >= 5) then + CALL cols (lcat,mc1,k1(lcat),k2(lcat)) + endif +29 continue +enddo + +! Self collection of pristine ice, snow (transfers to aggregates) +do lcat = 3,4 + mc1 = mcat33(lcat) + if (jnmb(lcat) .ge. 1 .and. jnmb(5) .ge. 1) then + CALL col3344 (lcat,5,mc1,k1(lcat),k2(lcat)) + endif +enddo + +! Collection between pristine ice and snow +if (jnmb(5) .ge. 1) then + CALL col3443 (3,4,5,max(k1(3),k1(4)),min(k2(3),k2(4))) +endif + +! Ice-ice collisions +do icx = 1,9 + mc1 = mcat1(icx,1) + mc2 = mcat1(icx,2) + mc3 = mcat1(icx,3) + mc4 = mcat1(icx,4) + if (jnmb(mc1) .ge. 1 .and. jnmb(mc3) .ge. 1) then + CALL col1 (mc1,mc2,mc3,mc4,max(k1(mc1),k1(mc2)) & + ,min(k2(mc1),k2(mc2))) + endif +enddo + +! Ice-cloud collisions +if(irime==0) then +do jcat = 1,8,7 + do lcat = 4,7 + if(jcat==1)then + mc1=mcat2(lcat,1) + mc2=mcat2(lcat,2) + endif + if(jcat==8)then + mc1=mcat22(lcat,1) + mc2=mcat22(lcat,2) + endif + if (jnmb(jcat) .ge. 1 .and. jnmb(lcat).ge.1 .and. jnmb(mc1).ge.1) then + CALL col2 (m1,jcat,lcat,mc1,mc2 & + ,max(k1(jcat),k1(lcat)),min(k2(jcat),k2(lcat)),dn0(1),dtlt) + endif + enddo +enddo +endif + +! Ice-rain collisions +do lcat = 3,7 + if (jnmb(2) .ge. 1 .and. jnmb(lcat) .ge. 1 .and. jnmb(7) .ge. 1) then + CALL col3 (m1,2,lcat,max(k1(2),k1(lcat)),min(k2(2),k2(lcat)),dn0(1)) + endif +enddo + +! Save rx and qx before collisions and melting... +! (colxfers is where mixing ratio is changed after collisions) +rx_lhr = rx +qx_lhr = qx + +! Make hydrometeor transfers due to collision-coalescence + CALL colxfers (m1,k1,k2,scrmic1,scrmic2) + +! Calcs r,q,c for each category considering melting processes +! in the order of pristine,cloud,drizzle,snow,agg,graupel,hail,rain +! though nothing done for cloud or drizzle in (x02) routine +do mcat = 1,8 + lcat = mix02(mcat) + if (jnmb(lcat) .ge. 1) then + CALL x02 (m1,k1,k2,lcat,dn0(1)) + endif +enddo + +! Add call to update LHR theta after collisions and melting + CALL calc_lhr_collmelt (m1) + +! Save rx and qx before cloud nucleation... +rx_lhr = rx +qx_lhr = qx + +! Calcs cloud mix ratio and concentration for cloud nucleation from CCN +if (jnmb(1) .ge. 1) then + CALL cldnuc (m1,k1cnuc,k2cnuc,k1dnuc,k2dnuc,rv(1),wp(1),i,j,dn0(1)) +endif + +! Finds bottom and top layer of cloud water +if(jnmb(1) .ge. 1) then + k1(1) = min(k1(1),k1cnuc) + k2(1) = max(k2(1),k2cnuc) + k3(1) = max(k2(1),k3(1)) +endif + +! Finds bottom and top layer of drizzle water +if(jnmb(8) .ge. 1) then + k1(8) = min(k1(8),k1dnuc) + k2(8) = max(k2(8),k2dnuc) + k3(8) = max(k2(8),k3(8)) +endif + +! Keeps cloud and drizzle mass and number in bounds +if (jnmb(1) .ge. 3) CALL enemb (m1,k1,k2,1,dn0(1)) +if (jnmb(8) .ge. 3) CALL enemb (m1,k1,k2,8,dn0(1)) + +! Add call to update LHR theta after cloud nucleation... + CALL calc_lhr_cldnuc (k1,k2) + +! Save rx and qx before ice nucleation. +rx_lhr = rx +qx_lhr = qx + +! Ice nucleation +if (jnmb(3) .ge. 1) then + CALL icenuc (m1,k1(1),k2(1),k1(8),k2(8),k1pnuc,k2pnuc,ngr,rv(1) & + ,dn0(1),dtlt,i,j) +endif + +! Finds bottom and top later of pristine ice +if (jnmb(3) .ge. 1) then + k1(3) = min(k1(3),k1pnuc) + k2(3) = max(k2(3),k2pnuc) + k3(3) = max(k2(3),k3(3)) +endif + +! Keeps pristine, cloud, and drizzle mass and number in bounds +if (jnmb(3) .ge. 3) CALL enemb (m1,k1,k2,3,dn0(1)) +if (jnmb(1) .ge. 3) CALL enemb (m1,k1,k2,1,dn0(1)) +if (jnmb(8) .ge. 3) CALL enemb (m1,k1,k2,8,dn0(1)) + +! Update latent heating budgets after ice nucleation + CALL calc_lhr_icenuc (k1,k2) + +! Zero out precip arrays that feed into land surface and soil +pcpg = 0. +qpcpg = 0. +dpcpg = 0. + +! tairc is used here to accumulate changes to thp from sedim +do k = 2,m1 + tairc(k) = 0. +enddo + +! Compute hydrometeor specific coefficient that goes into sedimentation +do lhcat = 1,nhcat + ch1(lhcat) = dtlt * cfvt(lhcat) / rtgt +enddo + +! Hydrometeor Sedimentation +do lcat = 1,8 + if (jnmb(lcat) .ge. 1) then + if(isedim==0) & + CALL sedim (m1,lcat,ngr & + ,k1(lcat),k2(lcat) & + ,rtp(1),thp(1),theta(1),dn0(1),dpcp0(lcat) & + ,pcpg,qpcpg,dpcpg,dtlti,scrmic1,scrmic2,scrmic3 & + ,pcpfillc,pcpfillr,sfcpcp,allpcp) + if(isedim==1) & + CALL sedim_trubin (m1,lcat,ngr & + ,k1(lcat),k2(lcat) & + ,rtp(1),thp(1),theta(1),dn0(1),dpcp0(lcat) & + ,pcpg,qpcpg,dpcpg,dtlti,scrmic1,scrmic2,scrmic3 & + ,pcpfillc,pcpfillr,sfcpcp,allpcp,rtgt) + endif +enddo + +! Update theta-il after microphysics is run +do k = 2,m1 + thp(k) = thp(k) + tairc(k) +enddo + +! Dust and sea-salt dry and wet deposition driver +! applied after sedimentation for computation of precip rate +if(iaerodep==1) & + CALL deposition_driver (i,j,m1,zm,rtgt & + ,rv(1),theta(1),uup(1),vvp(1) & + ,dn0(1) & + ,pi0(1),pp(1) & + ,lclass(1),parea(1) & + ,ustar(1),prough(1),imonthx & + ) + + +! Get final vertical range of each hydrometeor species +!do lcat = 1,8 +! if (jnmb(lcat) .ge. 1) then +! k1(lcat) = k1(11) +! k2(lcat) = 1 +! do k = k1(11),k2(11) +! if (rx(k,lcat) >= rxmin) k2(lcat) = k +! if (k2(lcat) == 1 .and. rx(k,lcat) < rxmin) k1(lcat) = k + 1 +! enddo +! endif +!enddo + + + +return +END SUBROUTINE mcphys + +!############################################################################## +Subroutine copyback (m1,k2,k3,i,j,micro) + +use mem_micro +use micphys + +implicit none + +type (micro_vars) :: micro + +integer, dimension(11) :: k2,k3 +integer :: m1,i,j,dtop,lcat + +!Set drizzle top for 1 or 2 moment +if (jnmb(8) >= 1) then + if(jnmb(8) >= 5) then + dtop=k3(8) + else + dtop=k2(11) + endif +endif + +!Note that "cifnp" does not need a copyback since the IN concentration +!is not changed by microphysics when used. + +!Copyback AEROSOLS +if (iaerosol > 0) then + CALL ae1kmic (2,m1-1,micro%cccnp(1,i,j),aerocon(1,1)) + CALL ae1kmic (2,m1-1,micro%cccmp(1,i,j),aeromas(1,1)) + CALL ae1kmic (2,m1-1,micro%gccnp(1,i,j),aerocon(1,2)) + CALL ae1kmic (2,m1-1,micro%gccmp(1,i,j),aeromas(1,2)) +endif +if (idust > 0) then + CALL ae1kmic (2,m1-1,micro%md1np(1,i,j),aerocon(1,3)) + CALL ae1kmic (2,m1-1,micro%md1mp(1,i,j),aeromas(1,3)) + CALL ae1kmic (2,m1-1,micro%md2np(1,i,j),aerocon(1,4)) + CALL ae1kmic (2,m1-1,micro%md2mp(1,i,j),aeromas(1,4)) +endif +if (isalt > 0) then + CALL ae1kmic (2,m1-1,micro%salt_film_np(1,i,j),aerocon(1,5)) + CALL ae1kmic (2,m1-1,micro%salt_film_mp(1,i,j),aeromas(1,5)) + CALL ae1kmic (2,m1-1,micro%salt_jet_np(1,i,j) ,aerocon(1,6)) + CALL ae1kmic (2,m1-1,micro%salt_jet_mp(1,i,j) ,aeromas(1,6)) + CALL ae1kmic (2,m1-1,micro%salt_spum_np(1,i,j),aerocon(1,7)) + CALL ae1kmic (2,m1-1,micro%salt_spum_mp(1,i,j),aeromas(1,7)) +endif + +!Copyback AEROSOL TRACKING VARIABLES +if (iccnlev>=2) then + if (jnmb(1) >= 1) then + CALL ae1kmic (2,k3(1),micro%cnmcp(1,i,j),cnmhx(1,1)) + if(itrkepsilon==1) CALL ae1kmic (2,k3(1),micro%snmcp(1,i,j),snmhx(1,1)) + if(itrkdust==1) CALL ae1kmic (2,k3(1),micro%dnmcp(1,i,j),dnmhx(1,1)) + if(itrkdustifn==1) CALL ae1kmic (2,k3(1),micro%dincp(1,i,j),dinhx(1,1)) + endif + if (jnmb(2) >= 1) then + CALL ae1kmic (2,k2(11),micro%cnmrp(1,i,j),cnmhx(1,2)) + if(itrkepsilon==1) CALL ae1kmic (2,k2(11),micro%snmrp(1,i,j),snmhx(1,2)) + if(itrkdust==1) CALL ae1kmic (2,k2(11),micro%dnmrp(1,i,j),dnmhx(1,2)) + if(itrkdustifn==1) CALL ae1kmic (2,k2(11),micro%dinrp(1,i,j),dinhx(1,2)) + endif + if (jnmb(3) >= 1) then + CALL ae1kmic (2,k3(3),micro%cnmpp(1,i,j),cnmhx(1,3)) + if(itrkepsilon==1) CALL ae1kmic (2,k3(3),micro%snmpp(1,i,j),snmhx(1,3)) + if(itrkdust==1) CALL ae1kmic (2,k3(3),micro%dnmpp(1,i,j),dnmhx(1,3)) + if(itrkdustifn==1) CALL ae1kmic (2,k3(3),micro%dinpp(1,i,j),dinhx(1,3)) + endif + if (jnmb(4) >= 1) then + CALL ae1kmic (2,k2(11),micro%cnmsp(1,i,j),cnmhx(1,4)) + if(itrkepsilon==1) CALL ae1kmic (2,k2(11),micro%snmsp(1,i,j),snmhx(1,4)) + if(itrkdust==1) CALL ae1kmic (2,k2(11),micro%dnmsp(1,i,j),dnmhx(1,4)) + if(itrkdustifn==1) CALL ae1kmic (2,k2(11),micro%dinsp(1,i,j),dinhx(1,4)) + endif + if (jnmb(5) >= 1) then + CALL ae1kmic (2,k2(11),micro%cnmap(1,i,j),cnmhx(1,5)) + if(itrkepsilon==1) CALL ae1kmic (2,k2(11),micro%snmap(1,i,j),snmhx(1,5)) + if(itrkdust==1) CALL ae1kmic (2,k2(11),micro%dnmap(1,i,j),dnmhx(1,5)) + if(itrkdustifn==1) CALL ae1kmic (2,k2(11),micro%dinap(1,i,j),dinhx(1,5)) + endif + if (jnmb(6) >= 1) then + CALL ae1kmic (2,k2(11),micro%cnmgp(1,i,j),cnmhx(1,6)) + if(itrkepsilon==1) CALL ae1kmic (2,k2(11),micro%snmgp(1,i,j),snmhx(1,6)) + if(itrkdust==1) CALL ae1kmic (2,k2(11),micro%dnmgp(1,i,j),dnmhx(1,6)) + if(itrkdustifn==1) CALL ae1kmic (2,k2(11),micro%dingp(1,i,j),dinhx(1,6)) + endif + if (jnmb(7) >= 1) then + CALL ae1kmic (2,k2(11),micro%cnmhp(1,i,j),cnmhx(1,7)) + if(itrkepsilon==1) CALL ae1kmic (2,k2(11),micro%snmhp(1,i,j),snmhx(1,7)) + if(itrkdust==1) CALL ae1kmic (2,k2(11),micro%dnmhp(1,i,j),dnmhx(1,7)) + if(itrkdustifn==1) CALL ae1kmic (2,k2(11),micro%dinhp(1,i,j),dinhx(1,7)) + endif + if (jnmb(8) >= 1) then + CALL ae1kmic (2,dtop,micro%cnmdp(1,i,j),cnmhx(1,8)) + if(itrkepsilon==1) CALL ae1kmic (2,dtop,micro%snmdp(1,i,j),snmhx(1,8)) + if(itrkdust==1) CALL ae1kmic (2,dtop,micro%dnmdp(1,i,j),dnmhx(1,8)) + if(itrkdustifn==1) CALL ae1kmic (2,dtop,micro%dindp(1,i,j),dinhx(1,8)) + endif + !Regenerated aerosol variables + CALL ae1kmic (2,m1-1,micro%regen_aero1_np(1,i,j),aerocon(1,8)) + CALL ae1kmic (2,m1-1,micro%regen_aero1_mp(1,i,j),aeromas(1,8)) + CALL ae1kmic (2,m1-1,micro%regen_aero2_np(1,i,j),aerocon(1,9)) + CALL ae1kmic (2,m1-1,micro%regen_aero2_mp(1,i,j),aeromas(1,9)) + if(itrkepsilon==1) then + CALL ae1kmic (2,m1-1,micro%resol_aero1_mp(1,i,j),regenmas(1,1)) + CALL ae1kmic (2,m1-1,micro%resol_aero2_mp(1,i,j),regenmas(1,2)) + endif + !Total aerosol accumulation variables + micro%pcpraero(i,j) = 0.0 + do lcat=1,ncat + micro%accpaero(i,j) = micro%accpaero(i,j) + accpaerox(lcat) + micro%pcpraero(i,j) = micro%pcpraero(i,j) + pcpraerox(lcat) + enddo + !Dust accumulation variables + if(itrkdust==1) then + micro%pcprdust(i,j) = 0.0 + do lcat=1,ncat + micro%accpdust(i,j) = micro%accpdust(i,j) + accpdustx(lcat) + micro%pcprdust(i,j) = micro%pcprdust(i,j) + pcprdustx(lcat) + enddo + endif +endif + +!Copyback Immersion freezing nuclei variables +if (iifn==3 .and. iccnlev>=1) then + if (jnmb(1) >= 5) CALL ae1kmic (2,m1-1,micro%ifnnucp(1,i,j),ifnnucx(1)) + if (jnmb(1) >= 5) CALL ae1kmic (2,k3(1),micro%immercp(1,i,j),immerhx(1,1)) + if (jnmb(2) >= 5) CALL ae1kmic (2,k2(11),micro%immerrp(1,i,j),immerhx(1,2)) + if (jnmb(8) >= 5) CALL ae1kmic (2,dtop,micro%immerdp(1,i,j),immerhx(1,8)) +endif + +if (jnmb(1) >= 1) then + CALL ae1kmic (2,k3(1),micro%rcp(1,i,j),rx(1,1)) + if (jnmb(1) >= 5) CALL ae1kmic (2,k3(1),micro%ccp(1,i,j),cx(1,1)) +endif + +if (jnmb(2) >= 1) then + CALL ae1kmic (2,k2(11),micro%rrp(1,i,j),rx(1,2)) + CALL ae1kmic (2,k2(11),micro%q2(1,i,j),qx(1,2)) + micro%accpr(i,j) = micro%accpr(i,j) + accpx(2) + micro%pcprr(i,j) = pcprx(2) + CALL ae1kmic (2,k2(11),micro%pcpvr(1,i,j),pcpvx(1,2)) + if (jnmb(2) >= 5) CALL ae1kmic (2,k2(11),micro%crp(1,i,j),cx(1,2)) +endif + +if (jnmb(3) >= 1) then + CALL ae1kmic (2,k3(3),micro%rpp(1,i,j),rx(1,3)) + micro%accpp(i,j) = micro%accpp(i,j) + accpx(3) + micro%pcprp(i,j) = pcprx(3) + CALL ae1kmic (2,k3(3),micro%pcpvp(1,i,j),pcpvx(1,3)) + if (jnmb(3) >= 5) CALL ae1kmic (2,k3(3),micro%cpp(1,i,j),cx(1,3)) +endif + +if (jnmb(4) >= 1) then + CALL ae1kmic (2,k2(11),micro%rsp(1,i,j),rx(1,4)) + micro%accps(i,j) = micro%accps(i,j) + accpx(4) + micro%pcprs(i,j) = pcprx(4) + CALL ae1kmic (2,k2(11),micro%pcpvs(1,i,j),pcpvx(1,4)) + if (jnmb(4) >= 5) CALL ae1kmic (2,k2(11),micro%csp(1,i,j),cx(1,4)) +endif + +if (jnmb(5) >= 1) then + CALL ae1kmic (2,k2(11),micro%rap(1,i,j),rx(1,5)) + micro%accpa(i,j) = micro%accpa(i,j) + accpx(5) + micro%pcpra(i,j) = pcprx(5) + CALL ae1kmic (2,k2(11),micro%pcpva(1,i,j),pcpvx(1,5)) + if (jnmb(5) >= 5) CALL ae1kmic (2,k2(11),micro%cap(1,i,j),cx(1,5)) +endif + +if (jnmb(6) >= 1) then + CALL ae1kmic (2,k2(11),micro%rgp(1,i,j),rx(1,6)) + CALL ae1kmic (2,k2(11),micro%q6(1,i,j),qx(1,6)) + micro%accpg(i,j) = micro%accpg(i,j) + accpx(6) + micro%pcprg(i,j) = pcprx(6) + CALL ae1kmic (2,k2(11),micro%pcpvg(1,i,j),pcpvx(1,6)) + if (jnmb(6) >= 5) CALL ae1kmic (2,k2(11),micro%cgp(1,i,j),cx(1,6)) +endif + +if (jnmb(7) >= 1) then + CALL ae1kmic (2,k2(11),micro%rhp(1,i,j),rx(1,7)) + CALL ae1kmic (2,k2(11),micro%q7(1,i,j),qx(1,7)) + micro%accph(i,j) = micro%accph(i,j) + accpx(7) + micro%pcprh(i,j) = pcprx(7) + CALL ae1kmic (2,k2(11),micro%pcpvh(1,i,j),pcpvx(1,7)) + if (jnmb(7) >= 5) CALL ae1kmic (2,k2(11),micro%chp(1,i,j),cx(1,7)) +endif + +if (jnmb(8) >= 1) then + CALL ae1kmic (2,dtop,micro%rdp(1,i,j),rx(1,8)) + micro%accpd(i,j) = micro%accpd(i,j) + accpx(8) + micro%pcprd(i,j) = pcprx(8) + CALL ae1kmic (2,dtop,micro%pcpvd(1,i,j),pcpvx(1,8)) + if (jnmb(8) >= 5) CALL ae1kmic (2,dtop,micro%cdp(1,i,j),cx(1,8)) +endif + +!Copyback Microphysical Budget Variables +if(imbudget>=1) then + CALL ae1kmic (1,m1,micro%latheatvap(1,i,j),xlatheatvap(1)) + CALL ae1kmic (1,m1,micro%latheatfrz(1,i,j),xlatheatfrz(1)) + CALL ae1kmic (1,m1,micro%nuccldrt(1,i,j),xnuccldrt(1)) + CALL ae1kmic (1,m1,micro%cld2raint(1,i,j),xcld2raint(1)) + CALL ae1kmic (1,m1,micro%ice2raint(1,i,j),xice2raint(1)) + CALL ae1kmic (1,m1,micro%nucicert(1,i,j),xnucicert(1)) + CALL ae1kmic (1,m1,micro%vapliqt(1,i,j),xvapliqt(1)) + CALL ae1kmic (1,m1,micro%vapicet(1,i,j),xvapicet(1)) + CALL ae1kmic (1,m1,micro%melticet(1,i,j),xmelticet(1)) + CALL ae1kmic (1,m1,micro%rimecldt(1,i,j),xrimecldt(1)) + CALL ae1kmic (1,m1,micro%rain2icet(1,i,j),xrain2icet(1)) + CALL ae1kmic (1,m1,micro%aggregatet(1,i,j),xaggregatet(1)) + CALL ae1kmic (1,m1,micro%latheatvapt(1,i,j),xlatheatvapt(1)) + CALL ae1kmic (1,m1,micro%latheatfrzt(1,i,j),xlatheatfrzt(1)) +endif +if(imbudget>=2) then + CALL ae1kmic (1,m1,micro%inuchomrt(1,i,j),xinuchomrt(1)) + CALL ae1kmic (1,m1,micro%inuccontrt(1,i,j),xinuccontrt(1)) + CALL ae1kmic (1,m1,micro%inucifnrt(1,i,j),xinucifnrt(1)) + CALL ae1kmic (1,m1,micro%inuchazrt(1,i,j),xinuchazrt(1)) + CALL ae1kmic (1,m1,micro%vapcldt(1,i,j),xvapcldt(1)) + CALL ae1kmic (1,m1,micro%vapraint(1,i,j),xvapraint(1)) + CALL ae1kmic (1,m1,micro%vapprist(1,i,j),xvapprist(1)) + CALL ae1kmic (1,m1,micro%vapsnowt(1,i,j),xvapsnowt(1)) + CALL ae1kmic (1,m1,micro%vapaggrt(1,i,j),xvapaggrt(1)) + CALL ae1kmic (1,m1,micro%vapgraut(1,i,j),xvapgraut(1)) + CALL ae1kmic (1,m1,micro%vaphailt(1,i,j),xvaphailt(1)) + CALL ae1kmic (1,m1,micro%vapdrizt(1,i,j),xvapdrizt(1)) + CALL ae1kmic (1,m1,micro%meltprist(1,i,j),xmeltprist(1)) + CALL ae1kmic (1,m1,micro%meltsnowt(1,i,j),xmeltsnowt(1)) + CALL ae1kmic (1,m1,micro%meltaggrt(1,i,j),xmeltaggrt(1)) + CALL ae1kmic (1,m1,micro%meltgraut(1,i,j),xmeltgraut(1)) + CALL ae1kmic (1,m1,micro%melthailt(1,i,j),xmelthailt(1)) + CALL ae1kmic (1,m1,micro%rimecldsnowt(1,i,j),xrimecldsnowt(1)) + CALL ae1kmic (1,m1,micro%rimecldaggrt(1,i,j),xrimecldaggrt(1)) + CALL ae1kmic (1,m1,micro%rimecldgraut(1,i,j),xrimecldgraut(1)) + CALL ae1kmic (1,m1,micro%rimecldhailt(1,i,j),xrimecldhailt(1)) + CALL ae1kmic (1,m1,micro%rain2prt(1,i,j),xrain2prt(1)) + CALL ae1kmic (1,m1,micro%rain2snt(1,i,j),xrain2snt(1)) + CALL ae1kmic (1,m1,micro%rain2agt(1,i,j),xrain2agt(1)) + CALL ae1kmic (1,m1,micro%rain2grt(1,i,j),xrain2grt(1)) + CALL ae1kmic (1,m1,micro%rain2hat(1,i,j),xrain2hat(1)) + CALL ae1kmic (1,m1,micro%aggrselfprist(1,i,j),xaggrselfprist(1)) + CALL ae1kmic (1,m1,micro%aggrselfsnowt(1,i,j),xaggrselfsnowt(1)) + CALL ae1kmic (1,m1,micro%aggrprissnowt(1,i,j),xaggrprissnowt(1)) +endif +if(imbudget==3 .and. idust>=1) then + CALL ae1kmic (1,m1,micro%dust1cldrt(1,i,j),xdust1cldrt(1)) + CALL ae1kmic (1,m1,micro%dust2cldrt(1,i,j),xdust2cldrt(1)) + CALL ae1kmic (1,m1,micro%dust1drzrt(1,i,j),xdust1drzrt(1)) + CALL ae1kmic (1,m1,micro%dust2drzrt(1,i,j),xdust2drzrt(1)) +endif + +!Set Micro Budgets bottom level with first level above ground +if(imbudget>=1) then + micro%latheatvap(1,i,j) = micro%latheatvap(2,i,j) + micro%latheatfrz(1,i,j) = micro%latheatfrz(2,i,j) + micro%nuccldrt(1,i,j) = micro%nuccldrt(2,i,j) + micro%cld2raint(1,i,j) = micro%cld2raint(2,i,j) + micro%ice2raint(1,i,j) = micro%ice2raint(2,i,j) + micro%nucicert(1,i,j) = micro%nucicert(2,i,j) + micro%vapliqt(1,i,j) = micro%vapliqt(2,i,j) + micro%vapicet(1,i,j) = micro%vapicet(2,i,j) + micro%melticet(1,i,j) = micro%melticet(2,i,j) + micro%rimecldt(1,i,j) = micro%rimecldt(2,i,j) + micro%rain2icet(1,i,j) = micro%rain2icet(2,i,j) + micro%aggregatet(1,i,j) = micro%aggregatet(2,i,j) + micro%latheatvapt(1,i,j) = micro%latheatvapt(2,i,j) + micro%latheatfrzt(1,i,j) = micro%latheatfrzt(2,i,j) +endif +if(imbudget>=2) then + micro%inuchomrt(1,i,j) = micro%inuchomrt(2,i,j) + micro%inuccontrt(1,i,j) = micro%inuccontrt(2,i,j) + micro%inucifnrt(1,i,j) = micro%inucifnrt(2,i,j) + micro%inuchazrt(1,i,j) = micro%inuchazrt(2,i,j) + micro%vapcldt(1,i,j) = micro%vapcldt(2,i,j) + micro%vapraint(1,i,j) = micro%vapraint(2,i,j) + micro%vapprist(1,i,j) = micro%vapprist(2,i,j) + micro%vapsnowt(1,i,j) = micro%vapsnowt(2,i,j) + micro%vapaggrt(1,i,j) = micro%vapaggrt(2,i,j) + micro%vapgraut(1,i,j) = micro%vapgraut(2,i,j) + micro%vaphailt(1,i,j) = micro%vaphailt(2,i,j) + micro%vapdrizt(1,i,j) = micro%vapdrizt(2,i,j) + micro%meltprist(1,i,j) = micro%meltprist(2,i,j) + micro%meltsnowt(1,i,j) = micro%meltsnowt(2,i,j) + micro%meltaggrt(1,i,j) = micro%meltaggrt(2,i,j) + micro%meltgraut(1,i,j) = micro%meltgraut(2,i,j) + micro%melthailt(1,i,j) = micro%melthailt(2,i,j) + micro%rimecldsnowt(1,i,j) = micro%rimecldsnowt(2,i,j) + micro%rimecldaggrt(1,i,j) = micro%rimecldaggrt(2,i,j) + micro%rimecldgraut(1,i,j) = micro%rimecldgraut(2,i,j) + micro%rimecldhailt(1,i,j) = micro%rimecldhailt(2,i,j) + micro%rain2prt(1,i,j) = micro%rain2prt(2,i,j) + micro%rain2snt(1,i,j) = micro%rain2snt(2,i,j) + micro%rain2agt(1,i,j) = micro%rain2agt(2,i,j) + micro%rain2grt(1,i,j) = micro%rain2grt(2,i,j) + micro%rain2hat(1,i,j) = micro%rain2hat(2,i,j) + micro%aggrselfprist(1,i,j) = micro%aggrselfprist(2,i,j) + micro%aggrselfsnowt(1,i,j) = micro%aggrselfsnowt(2,i,j) + micro%aggrprissnowt(1,i,j) = micro%aggrprissnowt(2,i,j) +endif +if(imbudget==3 .and. idust>=1) then + micro%dust1cldrt(1,i,j) = micro%dust1cldrt(2,i,j) + micro%dust2cldrt(1,i,j) = micro%dust2cldrt(2,i,j) + micro%dust1drzrt(1,i,j) = micro%dust1drzrt(2,i,j) + micro%dust2drzrt(1,i,j) = micro%dust2drzrt(2,i,j) +endif + +return +END SUBROUTINE copyback + +!############################################################################## +Subroutine calc_lhr_vap (k1,k2) + +! This routine computes the change to potential temperature associated +! with all of the RAMS microphysics vapor diffusion processes. It assumes +! that the heat storage and mixing ratios were stored before calls to vapor +! diffusion and accounts for fractional liquid/ice on hail and graupel. It uses +! the "jnmb" vector to determine whether changes to a given species are +! predicted. At this time, it does not differentiate between liquid and +! ice diffusion, nor does it keep track of condensation vs. evaporation. + +use rconstants +use micphys + +implicit none + +integer :: lcat,k +integer, dimension(11) :: k1,k2 +real :: temp,fracliq1,fracliq2,latheat + +if(imbudget>=1)then + + ! For each category, compute the change due to vapor transfer and apply to theta + do lcat=1,ncat + if (jnmb(lcat) .ge. 1) then + do k=k1(lcat),k2(lcat) + + ! Vapor to liquid + if (lcat .eq. 1 .or. lcat .eq. 2 .or. lcat .eq. 8) then + if (lhrtheta) then + latheat =(alvl/pitot(k))*(rx(k,lcat)-rx_lhr(k,lcat)) + else + latheat = alvl * cpi * (rx(k,lcat)-rx_lhr(k,lcat)) + endif + xlatheatvap(k) = xlatheatvap(k) + latheat + xlatheatvapt(k) = xlatheatvapt(k) + latheat + endif + + ! Vapor to ice + if (lcat .eq. 3 .or. lcat .eq. 4 .or. lcat .eq. 5) then + if (lhrtheta) then + latheat =(alvi/pitot(k))*(rx(k,lcat)-rx_lhr(k,lcat)) + else + latheat = alvi * cpi *(rx(k,lcat)-rx_lhr(k,lcat)) + endif + xlatheatvap(k) = xlatheatvap(k) + latheat + xlatheatvapt(k) = xlatheatvapt(k) + latheat + endif + + ! Account for fractional liquid in graupel and hail categories + if (lcat .eq. 6 .or. lcat .eq. 7) then + ! Get fraction of liquid from old values + CALL qtc (qx_lhr(k,lcat),temp,fracliq1) + ! Get fraction of liquid from new values + CALL qtc (qx(k,lcat), temp,fracliq2) + + ! First calculate vapor depsition + if (lhrtheta) then + latheat = (alvi/pitot(k)) * & + (rx(k,lcat)*(1.-fracliq1)-rx_lhr(k,lcat)*(1.-fracliq1)) + else + latheat = alvi * cpi * & + (rx(k,lcat)*(1.-fracliq1)-rx_lhr(k,lcat)*(1.-fracliq1)) + endif + xlatheatvap(k) = xlatheatvap(k) + latheat + xlatheatvapt(k) = xlatheatvapt(k) + latheat + + ! Now calculate melting + if (lhrtheta) then + latheat = (alli/pitot(k)) * (rx(k,lcat) & + *(1.-fracliq2)-rx(k,lcat)*(1.-fracliq1)) + else + latheat = alli * cpi * (rx(k,lcat) & + *(1.-fracliq2)-rx(k,lcat)*(1.-fracliq1)) + endif + xlatheatfrz(k) = xlatheatfrz(k) + latheat + xlatheatfrzt(k) = xlatheatfrzt(k) + latheat + endif + + enddo + endif + enddo + +endif + +return +END SUBROUTINE calc_lhr_vap + +!############################################################################## +Subroutine calc_lhr_collmelt (m1) + +! This routine computes the change to potential temperature associated +! with all of the RAMS microphysics collision freezing/melting processes. It +! assumes that the heat storage and mixing ratios were stored before calls to +! colxfers and accounts for fractional liquid/ice on hail and graupel. It uses +! the "jnmb" vector to determine whether changes to a given species are +! predicted. At this time, it does not differentiate between freezing and +! melting--it only computes the net effect of all freezing/melting processes +! on the potential temperature. + +use rconstants +use micphys + +implicit none + +integer :: m1,lcat,k +real :: fracliq1, fracliq2, temp +real, dimension(m1) :: rliq1,rice1,rliq2,rice2 + +if(imbudget>=1)then + + ! Compute total liquid and ice amounts before and after collisions/melting + rliq1 = 0. + rice1 = 0. + rliq2 = 0. + rice2 = 0. + do lcat=1,ncat + if (jnmb(lcat) .ge. 1) then + do k=2,m1 + if (lcat.eq.1 .or. lcat.eq.2 .or. lcat.eq.8) then ! liquid only + rliq1(k) = rliq1(k) + rx_lhr(k,lcat) + rliq2(k) = rliq2(k) + rx(k,lcat) + elseif (lcat.eq.3 .or. lcat.eq.4 .or. lcat.eq.5) then ! ice only + rice1(k) = rice1(k) + rx_lhr(k,lcat) + rice2(k) = rice2(k) + rx(k,lcat) + elseif (lcat.eq.6 .or. lcat.eq.7) then !mixed phase + !Get liquid fractions + CALL qtc (qx_lhr(k,lcat),temp,fracliq1) + CALL qtc (qx(k,lcat), temp,fracliq2) + !Accumulate liquid and ice + rliq1(k) = rliq1(k) + rx_lhr(k,lcat) * fracliq1 + rliq2(k) = rliq2(k) + rx(k,lcat) * fracliq2 + rice1(k) = rice1(k) + rx_lhr(k,lcat) * (1.-fracliq1) + rice2(k) = rice2(k) + rx(k,lcat) * (1.-fracliq2) + endif + enddo + endif + enddo + + ! Heating/cooling is due to change in net liquid vs. ice mass only + do k=2,m1 + if (lhrtheta) then + xlatheatfrz(k) = xlatheatfrz(k) + (alli/pitot(k))*(rice2(k)-rice1(k)) + xlatheatfrzt(k) = xlatheatfrzt(k) + (alli/pitot(k))*(rice2(k)-rice1(k)) + else + xlatheatfrz(k) = xlatheatfrz(k) + alli * cpi * (rice2(k)-rice1(k)) + xlatheatfrzt(k) = xlatheatfrzt(k) + alli * cpi * (rice2(k)-rice1(k)) + endif + enddo + +endif + +return +END SUBROUTINE calc_lhr_collmelt + +!############################################################################## +Subroutine calc_lhr_cldnuc (k1,k2) + +! This routine computes the change to potential temperature associated +! with cloud nucleation in RAMS microphysics. It assumes that the mass mixing +! ratios were stored before calls to cldnuc (hail/graupel are not considered +! here, and so there is no need to store the heat storage vectors). It uses +! the "jnmb" vector to determine whether changes to a given species are +! predicted. At this time, it does not differentiate between nucleation and +! evaporation--it only computes the net effect of the nucleation processes +! on the potential temperature. + +use rconstants +use micphys + +implicit none + +integer :: k +integer, dimension(11) :: k1,k2 + +if(imbudget>=1)then + + ! Cloud nucleation only changes the mixing ratio + ! (and number concentration) of cloud1 and cloud2 + if (jnmb(1) .ge. 1) then + do k=k1(1),k2(1) + if (lhrtheta) then + xlatheatvap(k) = xlatheatvap(k) + (alvl/pitot(k))*(rx(k,1)-rx_lhr(k,1)) + xlatheatvapt(k) = xlatheatvapt(k) + (alvl/pitot(k))*(rx(k,1)-rx_lhr(k,1)) + else + xlatheatvap(k) = xlatheatvap(k) + alvl * cpi * (rx(k,1)-rx_lhr(k,1)) + xlatheatvapt(k) = xlatheatvapt(k) + alvl * cpi * (rx(k,1)-rx_lhr(k,1)) + endif + enddo + endif + if (jnmb(8) .ge. 1) then + do k=k1(8),k2(8) + if (lhrtheta) then + xlatheatvap(k) = xlatheatvap(k) + (alvl/pitot(k))*(rx(k,8)-rx_lhr(k,8)) + xlatheatvapt(k) = xlatheatvapt(k) + (alvl/pitot(k))*(rx(k,8)-rx_lhr(k,8)) + else + xlatheatvap(k) = xlatheatvap(k) + alvl * cpi * (rx(k,8)-rx_lhr(k,8)) + xlatheatvapt(k) = xlatheatvapt(k) + alvl * cpi * (rx(k,8)-rx_lhr(k,8)) + endif + enddo + endif + +endif + +return +END SUBROUTINE calc_lhr_cldnuc + +!############################################################################## +Subroutine calc_lhr_icenuc (k1,k2) + +! This routine computes the change to potential temperature associated +! with ice nucleation in RAMS microphysics. It assumes that the mass mixing +! ratios were stored before calls to icenuc (hail/graupel are not considered +! here, and so there is no need to store the heat storage vectors). It uses +! the "jnmb" vector to determine whether changes to a given species are +! predicted. At this time, it does not differentiate between nucleation and +! sublimation--it only computes the net effect of the nucleation processes +! on the potential temperature. + +use rconstants +use micphys + +implicit none + +integer :: k +integer, dimension(11) :: k1,k2 +real, dimension(nzpmax) :: vapdep + +if(imbudget>=1)then + + ! Ice nucleation only changes the mixing ratio + ! (and number concentration) of pristine ice + if (jnmb(3) .ge. 1) then + ! However, some comes from contact nucleation of cloud1 and cloud2, + ! and some from vapor deposition... + ! These need to be treated seperately due to different latent heats... + + ! First, changes in cloud1 and cloud2 (contact nucleation) + if (jnmb(1) .ge. 1) then + do k=k1(1),k2(1) ! Loss of cloud1 + if (lhrtheta) then + xlatheatvap(k) = xlatheatvap(k) - (alli/pitot(k))*(rx(k,1)-rx_lhr(k,1)) + xlatheatvapt(k) = xlatheatvapt(k) - (alli/pitot(k))*(rx(k,1)-rx_lhr(k,1)) + else + xlatheatvap(k) = xlatheatvap(k) - alli * cpi * (rx(k,1)-rx_lhr(k,1)) + xlatheatvapt(k) = xlatheatvapt(k) - alli * cpi * (rx(k,1)-rx_lhr(k,1)) + endif + enddo + endif + if (jnmb(8) .ge. 1) then + do k=k1(8),k2(8) ! Loss of cloud2 + if (lhrtheta) then + xlatheatvap(k) = xlatheatvap(k) - (alli/pitot(k))*(rx(k,8)-rx_lhr(k,8)) + xlatheatvapt(k) = xlatheatvapt(k) - (alli/pitot(k))*(rx(k,8)-rx_lhr(k,8)) + else + xlatheatvap(k) = xlatheatvap(k) - alli * cpi * (rx(k,8)-rx_lhr(k,8)) + xlatheatvapt(k) = xlatheatvapt(k) - alli * cpi * (rx(k,8)-rx_lhr(k,8)) + endif + enddo + endif + + ! Then, changes in pristine ice minus changes in + ! cloud1 and cloud2 (vapor deposition) + do k=k1(3),k2(3) + ! First, compute total change in pristine ice (should be positive) + vapdep(k) = (rx(k,3)-rx_lhr(k,3)) + ! Then, subtract off contributions from cloud1 and cloud2 + if (jnmb(1) .ge. 1) vapdep(k) = vapdep(k) - (rx_lhr(k,1)-rx(k,1)) + if (jnmb(8) .ge. 1) vapdep(k) = vapdep(k) - (rx_lhr(k,8)-rx(k,8)) + ! Finally, compute change to theta due to vapor deposition... + if (lhrtheta) then + xlatheatvap(k) = xlatheatvap(k) + (alvi/pitot(k)) * vapdep(k) + xlatheatvapt(k) = xlatheatvapt(k) + (alvi/pitot(k)) * vapdep(k) + else + xlatheatvap(k) = xlatheatvap(k) + alvi * cpi * vapdep(k) + xlatheatvapt(k) = xlatheatvapt(k) + alvi * cpi * vapdep(k) + endif + enddo + + endif ! End test for whether pristine ice is predicted + +endif + +return +END SUBROUTINE calc_lhr_icenuc diff --git a/src/6.2.16/micro/mic_gamma.f90 b/src/6.2.16/micro/mic_gamma.f90 new file mode 100644 index 0000000..e0f9595 --- /dev/null +++ b/src/6.2.16/micro/mic_gamma.f90 @@ -0,0 +1,254 @@ +!############################################################################## +real Function gammp (a,x) + +implicit none + +real :: a,x,gln,gammcf + +if(x .lt. a+1.) then + CALL gser (gammp,a,x,gln) +else + CALL gcf (gammcf,a,x,gln) + gammp = 1. - gammcf +endif + +return +END FUNCTION gammp + +!############################################################################## +real Function gammq (a,x) + +implicit none + +real :: a,x,gamser,gln + +if(x .lt. a+1.) then + CALL gser (gamser,a,x,gln) + gammq = 1. - gamser +else + CALL gcf (gammq,a,x,gln) +endif + +return +END FUNCTION gammq + +!############################################################################## +Subroutine gcf (gammcf,a,x,gln) + +implicit none + +real :: a,x,gammcf,gln +integer, parameter :: itmax=100 +real, parameter :: eps=3.e-7 +real, external :: gammln +real :: gold,a0,a1,b0,b1,fac,an,ana,anf,gaccel +integer :: n + +gaccel=0. !Variable initialized + +gln = gammln(a) +gold = 0. +a0 = 1. +a1 = x +b0 = 0. +b1 = 1. +fac = 1. +do n = 1, itmax + an = float(n) + ana = an - a + a0 = (a1+a0*ana)*fac + b0 = (b1+b0*ana)*fac + anf = an*fac + a1 = x*a0 + anf*a1 + b1 = x*b0 + anf*b1 + if (a1 .ne. 0.) then + fac = 1./a1 + gaccel = b1*fac + if(abs((gaccel-gold)/gaccel) .lt. eps) goto 20 + gold = gaccel + endif +enddo +20 continue +gammcf = exp(-x+a*alog(x)-gln)*gaccel +if((-x+a*log(x)-gln) .gt. -38.) then + gammcf = exp(-x+a*alog(x)-gln)*gaccel +else + gammcf = 0. +endif + +return +END SUBROUTINE gcf + +!############################################################################## +Subroutine gser (gamser,a,x,gln) + +implicit none + +real :: a,x,gamser,gln +integer, parameter :: itmax=100 +real, parameter :: eps=3.e-7 +real, external :: gammln +real :: ap,sum,del +integer :: n + +gln = gammln(a) +if(x .le. 0.) then + gamser = 0. + return +endif +ap = a +sum = 1./a +del = sum +do n = 1, itmax + ap = ap + 1. + del = del*x/ap + sum = sum + del + if(abs(del) .lt. abs(sum)*eps) goto 20 +enddo +20 continue +if((-x+a*log(x)-gln) .gt. -38.) then + gamser = sum*exp(-x+a*log(x)-gln) +else + gamser = 0. +endif + +return +END SUBROUTINE gser + +!############################################################################## +real Function gammln (xx) + +implicit none + +real :: xx +real(kind=8) :: cof(6),stp +data cof, stp/76.18009173d0, -86.50532033d0, 24.01409822d0, & + -1.231739516d0, .120858003d-2, -.536382d-5, 2.50662827465d0/ +real(kind=8), parameter :: half=0.5d0, one=1.0d0, fpf=5.5d0 +real :: x,tmp,ser +integer :: j + +x=xx-one +tmp=x+fpf +tmp=(x+half)*log(tmp)-tmp +ser=one +do j=1,6 + x=x+one + ser=ser+cof(j)/x +enddo +gammln = tmp+log(stp*ser) + +return +END FUNCTION gammln + +!############################################################################## +Subroutine avint (x,y,n,xlo,xup,ans) + +implicit none + +integer :: n +real :: x(n),y(n),xlo,xup,ans +real(kind=8) ::r3,rp5,sum,syl,syl2,syl3,syu,syu2,syu3,x1,x2,x3 & +,x12,x13,x23,term1,term2,term3,a,b,c,ca,cb,cc +integer :: i,inlft,inrt,istart,istop +real :: slope,fl,fr + +ca=0.0 !Variable initialized +cb=0.0 !Variable initialized +cc=0.0 !Variable initialized + +ans=0.0 +if(xlo.lt.xup) goto 3 +if(xlo.eq.xup) goto 100 +if(xlo.gt.xup) goto 200 +3 if(n.lt.2) goto 215 +do i=2,n + if(x(i).le.x(i-1)) goto 210 + if(x(i).gt.xup) goto 6 +enddo +6 continue +if(n.ge.3) goto 9 + +! special n=2 case + +slope = (y(2)-y(1))/(x(2)-x(1)) +fl = y(1) + slope*(xlo-x(1)) +fr = y(2) + slope*(xup-x(2)) +ans = 0.5*(fl+fr)*(xup-xlo) +return +9 continue +if(x(n-2).lt.xlo) goto 205 +if(x(3).gt.xup) goto 205 +i = 1 +10 if(x(i).ge.xlo) goto 15 +i = i+1 +goto 10 +15 inlft = i +i = n +20 if(x(i).le.xup) goto 25 +i = i-1 +goto 20 +25 inrt = i +if((inrt-inlft).lt.2) goto 205 +istart = inlft +if(inlft.eq.1) istart = 2 +istop = inrt +if(inrt.eq.n) istop = n-1 + +r3 = 3.0d0 +rp5= 0.5d0 +sum = 0.0 +syl = xlo +syl2= syl*syl +syl3= syl2*syl + +do i=istart,istop + x1 = x(i-1) + x2 = x(i) + x3 = x(i+1) + x12 = x1-x2 + x13 = x1-x3 + x23 = x2-x3 + term1 = dble(y(i-1))/(x12*x13) + term2 =-dble(y(i)) /(x12*x23) + term3 = dble(y(i+1))/(x13*x23) + a = term1+term2+term3 + b = -(x2+x3)*term1 - (x1+x3)*term2 - (x1+x2)*term3 + c = x2*x3*term1 + x1*x3*term2 + x1*x2*term3 + if(i.le.istart) goto 30 + if(i.gt.istart) goto 35 +30 ca = a + cb = b + cc = c + goto 40 +35 ca = 0.5*(a+ca) + cb = 0.5*(b+cb) + cc = 0.5*(c+cc) +40 syu = x2 + syu2= syu*syu + syu3= syu2*syu + sum = sum + ca*(syu3-syl3)/r3 + cb*rp5*(syu2-syl2) & + + cc*(syu-syl) + ca = a + cb = b + cc = c + syl = syu + syl2= syu2 + syl3= syu3 +enddo +syu = xup +ans = sum + ca*(syu**3-syl3)/r3 + cb*rp5*(syu**2-syl2) & + + cc*(syu-syl) + +100 return +200 print*, 'Upper limit of integration not greater than lower limit.' +stop 'avint2' +205 print*, 'Less than 3 func values between integration limits.' +stop 'avint3' +210 print*, 'Abscissas not strictly increasing.' +stop 'avint4' +215 print*, 'Less than 2 func values were supplied.' +stop 'avint5' + +return +END SUBROUTINE avint diff --git a/src/6.2.16/micro/mic_init.f90 b/src/6.2.16/micro/mic_init.f90 new file mode 100644 index 0000000..0870df2 --- /dev/null +++ b/src/6.2.16/micro/mic_init.f90 @@ -0,0 +1,781 @@ +!############################################################################## +Subroutine micro_master () + +use micphys +use rconstants + +implicit none + +integer :: lhcat,khcat,lcat +integer, dimension(8) :: lcat0 + +real, dimension(7,16) :: dstprms,dstprms1,dstprms2 +real, dimension(16,16) :: jpairr,jpairc + +data lcat0 /1,2,3,4,5,6,7,16/ ! lcat corressponding to lhcat + +data dstprms1/ & +!---------------------------------------------------------------------- +! shape cfmas pwmas cfvt pwvt dmb0 dmb1 +!---------------------------------------------------------------------- + .5, 524., 3., 1.26e7, 1.91, 2.e-6, 40.e-6, & !cloud + .5, 524., 3., 149., .5, .1e-3, 5.e-3, & !rain + .179, 110.8, 2.91, 5.769e5, 1.88, 15.e-6, 125.e-6, & !pris col + .179, 2.739e-3, 1.74, 188.146, .933, .1e-3, 10.e-3, & !snow col + .5, .496, 2.4, 3.084, .2, .1e-3, 10.e-3, & !aggreg + .5, 157., 3., 93.3, .5, .1e-3, 5.e-3, & !graup + .5, 471., 3., 161., .5, .8e-3, 10.e-3, & !hail + .429, .8854, 2.5, 316., 1.01, 00, 00, & !pris hex + .3183, .377e-2, 2., 316., 1.01, 00, 00, & !pris den + .1803, 1.23e-3, 1.8, 5.769e5, 1.88, 00, 00, & !pris ndl + .5, .1001, 2.256, 3.19e4, 1.66, 00, 00, & !pris ros + .429, .8854, 2.5, 4.836, .25, 00, 00, & !snow hex + .3183, .377e-2, 2., 4.836, .25, 00, 00, & !snow den + .1803, 1.23e-3, 1.8, 188.146, .933, 00, 00, & !snow ndl + .5, .1001, 2.256, 1348.38, 1.241, 00, 00, & !snow ros + .5, 524., 3., 1.26e7, 1.91, 65.e-6, 100.e-6/ !drizzle + +data dstprms2/ & +!---------------------------------------------------------------------- +! shape cfmas pwmas cfvt pwvt dmb0 dmb1 +!---------------------------------------------------------------------- + .5, 524., 3., 1.26e7, 1.91, 2.e-6, 40.e-6, & !cloud + .5, 524., 3., 144., .497, .1e-3, 5.e-3, & !rain + .179, 110.8, 2.91, 1538., 1.00, 15.e-6, 125.e-6, & !pris col + .179, 2.739e-3, 1.74, 27.7, .484, .1e-3, 10.e-3, & !snow col + .5, .496, 2.4, 16.1, .416, .1e-3, 10.e-3, & !aggreg + .5, 157., 3., 332., .786, .1e-3, 5.e-3, & !graup + .5, 471., 3., 152.1, .497, .8e-3, 10.e-3, & !hail + .429, .8854, 2.5, 20801., 1.377, 00, 00, & !pris hex + .3183, .377e-2, 2., 56.4, .695, 00, 00, & !pris den + .1803, 1.23e-3, 1.8, 1617.9, .983, 00, 00, & !pris ndl + .5, .1001, 2.256, 6239., 1.24, 00, 00, & !pris ros + .429, .8854, 2.5, 30.08, .563, 00, 00, & !snow hex + .3183, .377e-2, 2., 3.39, .302, 00, 00, & !snow den + .1803, 1.23e-3, 1.8, 44.6, .522, 00, 00, & !snow ndl + .5, .1001, 2.256, 125.7, .716, 00, 00, & !snow ros + .5, 524., 3., 1.26e7, 1.91, 65.e-6, 100.e-6/ !drizzle + +data jpairr/ & + 0, 0, 0, 1, 2, 3, 4, 0, 0, 0, 0, 5, 6, 7, 8, 0, & + 0, 0, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 0, & + 0, 22, 23, 24, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & + 25, 26, 27, 28, 0, 0, 0, 29, 30, 31, 32, 0, 0, 0, 0, 33, & + 34, 35, 36, 37, 0, 0, 0, 38, 39, 40, 41, 42, 43, 44, 45, 46, & + 47, 48, 49, 50, 51, 0, 0, 52, 53, 54, 55, 56, 57, 58, 59, 60, & + 61, 62, 63, 64, 65, 66, 0, 67, 68, 69, 70, 71, 72, 73, 74, 75, & + 0, 76, 0, 77, 0, 0, 0, 78, 0, 0, 0, 79, 80, 81, 82, 0, & + 0, 83, 0, 84, 0, 0, 0, 0, 85, 0, 0, 86, 87, 88, 89, 0, & + 0, 90, 0, 91, 0, 0, 0, 0, 0, 92, 0, 93, 94, 95, 96, 0, & + 0, 97, 0, 98, 0, 0, 0, 0, 0, 0, 99,100,101,102,103, 0, & + 104,105,106, 0, 0, 0, 0,107,108,109,110,111, 0, 0, 0,112, & + 113,114,115, 0, 0, 0, 0,116,117,118,119, 0,120, 0, 0,121, & + 122,123,124, 0, 0, 0, 0,125,126,127,128, 0, 0,129, 0,130, & + 131,132,133, 0, 0, 0, 0,134,135,136,137, 0, 0, 0,138,139, & + 0, 0, 0,140,141,142,143, 0, 0, 0, 0,144,145,146,147, 0/ + +data jpairc/ & + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & + 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & + 0, 2, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & + 4, 5, 6, 7, 0, 0, 0, 8, 9, 10, 11, 0, 0, 0, 0, 12, & + 13, 14, 15, 16, 17, 0, 0, 18, 19, 20, 21, 22, 23, 24, 25, 26, & + 27, 28, 29, 30, 31, 32, 0, 33, 34, 35, 36, 37, 38, 39, 40, 41, & + 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, & + 0, 58, 0, 0, 0, 0, 0, 59, 0, 0, 0, 0, 0, 0, 0, 0, & + 0, 60, 0, 0, 0, 0, 0, 0, 61, 0, 0, 0, 0, 0, 0, 0, & + 0, 62, 0, 0, 0, 0, 0, 0, 0, 63, 0, 0, 0, 0, 0, 0, & + 0, 64, 0, 0, 0, 0, 0, 0, 0, 0, 65, 0, 0, 0, 0, 0, & + 66, 67, 68, 0, 0, 0, 0, 69, 70, 71, 72, 73, 0, 0, 0, 74, & + 75, 76, 77, 0, 0, 0, 0, 78, 79, 80, 81, 0, 82, 0, 0, 83, & + 84, 85, 86, 0, 0, 0, 0, 87, 88, 89, 90, 0, 0, 91, 0, 92, & + 93, 94, 95, 0, 0, 0, 0, 96, 97, 98, 99, 0, 0, 0,100,101, & + 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0/ + +! Define several parameters from above data list + +do lhcat=1,nhcat + !Using original RAMS 4.3 power laws + if(iplaws==0) then + dstprms(1,lhcat) = dstprms1(1,lhcat) + dstprms(2,lhcat) = dstprms1(2,lhcat) + dstprms(3,lhcat) = dstprms1(3,lhcat) + dstprms(4,lhcat) = dstprms1(4,lhcat) + dstprms(5,lhcat) = dstprms1(5,lhcat) + dstprms(6,lhcat) = dstprms1(6,lhcat) + dstprms(7,lhcat) = dstprms1(7,lhcat) + !Using Carver/Mitchell 1996 power laws + elseif(iplaws==1.or.iplaws==2) then + dstprms(1,lhcat) = dstprms2(1,lhcat) + dstprms(2,lhcat) = dstprms2(2,lhcat) + dstprms(3,lhcat) = dstprms2(3,lhcat) + dstprms(4,lhcat) = dstprms2(4,lhcat) + dstprms(5,lhcat) = dstprms2(5,lhcat) + dstprms(6,lhcat) = dstprms2(6,lhcat) + dstprms(7,lhcat) = dstprms2(7,lhcat) + endif + + shape(lhcat) = dstprms(1,lhcat) + cfmas(lhcat) = dstprms(2,lhcat) + pwmas(lhcat) = dstprms(3,lhcat) + cfvt (lhcat) = dstprms(4,lhcat) + pwvt (lhcat) = dstprms(5,lhcat) + + do khcat=1,nhcat + ipairc(lhcat,khcat) = jpairc(lhcat,khcat) + ipairr(lhcat,khcat) = jpairr(lhcat,khcat) + enddo +enddo + +do lcat=1,ncat + lhcat = lcat0(lcat) + emb0 (lcat) = cfmas(lhcat) * dstprms(6,lhcat) ** pwmas(lhcat) + emb1 (lcat) = cfmas(lhcat) * dstprms(7,lhcat) ** pwmas(lhcat) +enddo + +if (level .ne. 3) return + +! Handle the creating of the main microphysics collection table +CALL mkcoltb () + +return +END SUBROUTINE micro_master + +!############################################################################## +Subroutine init_ifn (n1,n2,n3,cifnp,dn0,ifm) + +use micphys +use rconstants +use mem_grid + +implicit none + +integer :: n1,n2,n3,i,j,k,ifm +real, dimension(n1,n2,n3) :: cifnp,dn0 +real :: cin_maxt + +! Initialize IFN +if(iaeroprnt==1 .and. print_msg) then + print*,'Start Initializing Ice Nuclei concentration' +endif + +do j = 1,n3 + do i = 1,n2 + do k = 1,n1 + + !Convert RAMSIN #/mg to #/kg + cin_maxt = cin_max * 1.e6 + + !Set up Vertical profile + if(k<=2) cifnp(k,i,j)=cin_maxt + ! Exponential decrease that scales with pressure decrease + if(k>2) cifnp(k,i,j)=cin_maxt*exp(-zt(k)/7000.) + + !Output initial sample profile + if(iaeroprnt==1 .and. i==1 .and. j==1 .and. print_msg) then + if(k==1) print*,' Ice Nuclei - init (k,zt,ifn/kg,ifn/L) on Grid:',ifm + print'(a9,i5,f11.1,2f17.7)',' IFN-init' & + ,k,zt(k),cifnp(k,i,j),cifnp(k,i,j)/1.e3*dn0(k,i,j) + endif + + + enddo + enddo +enddo + +if(iaeroprnt==1 .and. print_msg) print*,' ' + +return +END SUBROUTINE init_ifn + +!############################################################################## +Subroutine init_ccn (n1,n2,n3,cccnp,cccmp,dn0,ifm) + +use micphys +use rconstants +use mem_grid + +implicit none + +integer :: n1,n2,n3,i,j,k,ifm +real, dimension(n1,n2,n3) :: cccnp,cccmp,dn0 +real :: ccn_maxt + +! Initialize CCN +if(iaeroprnt==1 .and. print_msg) print*,'Start Initializing CCN concentration' + +!Convert RAMSIN #/mg to #/kg + ccn_maxt = ccn_max * 1.e6 + +do j = 1,n3 + do i = 1,n2 + do k = 1,n1 + + !Set up Vertical profile + if(k<=2) cccnp(k,i,j)=ccn_maxt + !Exponential decrease that scales with pressure decrease + if(k>2) cccnp(k,i,j)=ccn_maxt*exp(-zt(k)/7000.) + + !Output initial sample profile + if(iaeroprnt==1 .and. i==1 .and. j==1 .and. print_msg) then + if(k==1) print*,' CCN-init (k,zt,ccn/mg,ccn/cc) on Grid:',ifm + print'(a9,i5,f11.1,2f17.7)',' CCN-init' & + ,k,zt(k),cccnp(k,i,j)/1.e6,cccnp(k,i,j)/1.e6*dn0(k,i,j) + endif + + !Set up Field of CCN mass mixing ratio (kg/kg) + cccmp(k,i,j) = ((aero_medrad(1)*aero_rg2rm(1))**3.) & + *cccnp(k,i,j)/(0.23873/aero_rhosol(1)) + + enddo + enddo +enddo + +if(iaeroprnt==1 .and. print_msg) print*,' ' + +return +END SUBROUTINE init_ccn + +!############################################################################## +Subroutine init_gccn (n1,n2,n3,gccnp,gccmp,dn0,ifm) + +use micphys +use rconstants +use mem_grid + +implicit none + +integer :: n1,n2,n3,i,j,k,ifm +real, dimension(n1,n2,n3) :: gccnp,gccmp,dn0 +real :: gccn_maxt + +! Initialize Giant-CCN +if(iaeroprnt==1 .and. print_msg) print*,'Start Initializing GCCN concentration' + +!Convert RAMSIN #/mg to #/kg + gccn_maxt = gccn_max * 1.e6 + +do j = 1,n3 + do i = 1,n2 + do k = 1,n1 + + !Set up Vertical profile + if(k<=2) gccnp(k,i,j)=gccn_maxt + ! Exponential decrease that scales with pressure decrease + if(k>2) gccnp(k,i,j)=gccn_maxt*exp(-zt(k)/7000.) + + !Output initial sample profile + if(iaeroprnt==1 .and. i==1 .and. j==1 .and. print_msg) then + if(k==1) print*,' GCCN-init (k,zt,gccn/mg,gccn/cc) on Grid:',ifm + print'(a10,i5,f11.1,2f17.7)',' GCCN-init' & + ,k,zt(k),gccnp(k,i,j)/1.e6,gccnp(k,i,j)/1.e6*dn0(k,i,j) + endif + + !Set up Field of GCCN mass mixing ratio (kg/kg) + gccmp(k,i,j) = ((aero_medrad(2)*aero_rg2rm(2))**3.) & + *gccnp(k,i,j)/(0.23873/aero_rhosol(2)) + + enddo + enddo +enddo + +if(iaeroprnt==1 .and. print_msg) print*,' ' + +return +END SUBROUTINE init_gccn + +!############################################################################## +Subroutine init_dust (n1,n2,n3,md1np,md2np,md1mp,md2mp,dn0,ifm) + +use micphys +use rconstants +use mem_grid + +implicit none + +integer :: n1,n2,n3,i,j,k,ifm +real, dimension(n1,n2,n3) :: md1np,md2np,md1mp,md2mp,dn0 +real :: dust1_maxt,dust2_maxt + +! Initialize Dust +if(iaeroprnt==1 .and. print_msg) then + print*,'Start Initializing DUST concentration' + print*,'idust,iaerorad',idust,iaerorad +endif + +!Convert RAMSIN #/mg to #/kg + dust1_maxt = dust1_max * 1.e6 + dust2_maxt = dust2_max * 1.e6 + +do j = 1,n3 + do i = 1,n2 + do k = 1,n1 + + !If not using dust source model + if(idust == 1) then + !Set up concentration of SMALL MODE Mineral Dust (#/kg) + if(k<=2) md1np(k,i,j)=dust1_maxt + if(k>2) md1np(k,i,j)=dust1_maxt*exp(-zt(k)/7000.) + !Set up concentration of LARGE MODE Mineral Dust (#/kg) + if(k<=2) md2np(k,i,j)=dust2_maxt + if(k>2) md2np(k,i,j)=dust2_maxt*exp(-zt(k)/7000.) + + !Set up Field of SMALL MODE DUST mass (kg/kg) + md1mp(k,i,j) = ((aero_medrad(3)*aero_rg2rm(3))**3.) & + *md1np(k,i,j)/(0.23873/aero_rhosol(3)) + !Set up Field of LARGE MODE DUST mass (kg/kg) + md2mp(k,i,j) = ((aero_medrad(4)*aero_rg2rm(4))**3.) & + *md2np(k,i,j)/(0.23873/aero_rhosol(4)) + + !If using dust source model, do not initialize with background dust + elseif(idust == 2) then + md1np(k,i,j) = 0. + md2np(k,i,j) = 0. + md1mp(k,i,j) = 0. + md2mp(k,i,j) = 0. + endif + + !Output sample initial profile + if(iaeroprnt==1 .and. i==1 .and. j==1 .and. print_msg) then + if(k==1) print*,' Dust-init (k,zt,dust1/mg,dust2/mg) on Grid:',ifm + print'(a10,i5,f11.1,2f17.7)',' DUST-init' & + ,k,zt(k),md1np(k,i,j)/1.e6,md2np(k,i,j)/1.e6 + endif + + enddo + enddo +enddo + +if(iaeroprnt==1 .and. print_msg) print*,' ' + +return +END SUBROUTINE init_dust + +!############################################################################## +Subroutine init_salt (n1,n2,n3,salt_film_np,salt_jet_np,salt_spum_np & + ,salt_film_mp,salt_jet_mp,salt_spum_mp,ifm) + +use micphys +use rconstants +use mem_grid + +implicit none + +integer :: n1,n2,n3,i,j,k,ifm +real, dimension(n1,n2,n3) :: salt_film_np,salt_jet_np,salt_spum_np +real, dimension(n1,n2,n3) :: salt_film_mp,salt_jet_mp,salt_spum_mp +real :: saltf_maxt,saltj_maxt,salts_maxt + +! Initialize Sea-salt +if(iaeroprnt==1 .and. print_msg) then + print*,'Start Initializing SALT concentration' + print*,'isalt,iaerorad',isalt,iaerorad +endif + +!Convert RAMSIN #/mg to #/kg + saltf_maxt = saltf_max * 1.e6 + saltj_maxt = saltj_max * 1.e6 + salts_maxt = salts_max * 1.e6 + +do j = 1,n3 + do i = 1,n2 + do k = 1,n1 + + !If not using dust source model + if(isalt == 1) then + !Set up concentration of FILM MODE SALT (#/kg) + if(k<=2) salt_film_np(k,i,j)=saltf_maxt + if(k>2) salt_film_np(k,i,j)=saltf_maxt*exp(-zt(k)/7000.) + !Set up concentration of JET MODE Mineral Dust (#/kg) + if(k<=2) salt_jet_np(k,i,j)=saltj_maxt + if(k>2) salt_jet_np(k,i,j)=saltj_maxt*exp(-zt(k)/7000.) + !Set up concentration of SPUME MODE Mineral Dust (#/kg) + if(k<=2) salt_spum_np(k,i,j)=salts_maxt + if(k>2) salt_spum_np(k,i,j)=salts_maxt*exp(-zt(k)/7000.) + + !Set up 3D Field of FILM MODE SALT mass (kg/kg) + salt_film_mp(k,i,j) = ((aero_medrad(5)*aero_rg2rm(5))**3.) & + *salt_film_np(k,i,j)/(0.23873/aero_rhosol(5)) + !Set up 3D Field of JET MODE SALT mass (kg/kg) + salt_jet_mp(k,i,j) = ((aero_medrad(6)*aero_rg2rm(6))**3.) & + *salt_jet_np(k,i,j) /(0.23873/aero_rhosol(6)) + !Set up 3D Field of SPUME MODE SALT mass (kg/kg) + salt_spum_mp(k,i,j) = ((aero_medrad(7)*aero_rg2rm(7))**3.) & + *salt_spum_np(k,i,j)/(0.23873/aero_rhosol(7)) + + !If using salt source model, do not initialize with background salt + elseif(isalt == 2) then + salt_film_np(k,i,j) = 0. + salt_jet_np(k,i,j) = 0. + salt_spum_np(k,i,j) = 0. + salt_film_mp(k,i,j) = 0. + salt_jet_mp(k,i,j) = 0. + salt_spum_mp(k,i,j) = 0. + endif + + !Output initial sample profile + if(iaeroprnt==1 .and. i==1 .and. j==1 .and. print_msg) then + if(k==1) print*,' Salt-init (k,zt,film/mg,jet/mg,spume/mg) on Grid:',ifm + print'(a10,i5,f11.1,3f17.7)',' SALT-init',k,zt(k),salt_film_np(k,i,j)/1.e6 & + ,salt_jet_np(k,i,j)/1.e6,salt_spum_np(k,i,j)/1.e6 + endif + + enddo + enddo +enddo + +if(iaeroprnt==1 .and. print_msg) print*,' ' + +return +END SUBROUTINE init_salt + +!############################################################################## +Subroutine init_tracer (n1,n2,n3,tracerp,dn0,ifm,nsc) + +use micphys +use rconstants +use mem_grid +use mem_tracer +use node_mod + +implicit none + +integer :: n1,n2,n3,i,j,k,ifm,nsc,ii,jj +real, dimension(n1,n2,n3) :: tracerp,dn0 +real :: ccn_maxt + +! Initialize Tracers +if(print_msg) print*,'Start Initializing Tracers, Grid:',ifm,' Tracer:',nsc + +!Convert RAMSIN #/mg to #/kg + ccn_maxt = ccn_max * 1.e6 + +do j = 1,n3 + do i = 1,n2 + do k = 1,n1 + + !Get absolute grid points for parallel (& sequential) computation + ii = i+mi0(ngrid) + jj = j+mj0(ngrid) + + !Set up Vertical profile, Exponential decrease that scales with pressure + if(nsc==1) then + if(k<=2) tracerp(k,i,j)=ccn_maxt + if(k>2) tracerp(k,i,j)=ccn_maxt*exp(-zt(k)/7000.) + endif + !Set up Field of CCN mass mixing ratio (kg/kg) + if(nsc==2) then + tracerp(k,i,j) = ((aero_medrad(1)*aero_rg2rm(1))**3.) & + *tracer_g(1,ifm)%tracerp(k,i,j)/(0.23873/aero_rhosol(1)) + endif + + enddo + enddo +enddo + +if(nsc.eq.itracer .and. print_msg) print*,' ' + +return +END SUBROUTINE init_tracer + +!############################################################################## +Subroutine jnmbinit () + +use micphys +use mem_grid, only:print_msg + +implicit none + +if (level /= 3) then + + if (level <= 1) then + jnmb(1) = 0 + else + jnmb(1) = 4 + endif + + jnmb(2) = 0 + jnmb(3) = 0 + jnmb(4) = 0 + jnmb(5) = 0 + jnmb(6) = 0 + jnmb(7) = 0 + jnmb(8) = 0 + +else + + jnmb(1) = icloud + jnmb(2) = irain + jnmb(3) = ipris + jnmb(4) = isnow + jnmb(5) = iaggr + jnmb(6) = igraup + jnmb(7) = ihail + jnmb(8) = idriz + + if (icloud .eq. 1) jnmb(1) = 4 + if (irain .eq. 1) jnmb(2) = 2 + if (ipris .ge. 1) jnmb(3) = 5 + if (isnow .eq. 1) jnmb(4) = 2 + if (iaggr .eq. 1) jnmb(5) = 2 + if (igraup .eq. 1) jnmb(6) = 2 + if (ihail .eq. 1) jnmb(7) = 2 + if (idriz .eq. 1) jnmb(8) = 4 + + if (irain == 5 .or. isnow == 5 .or. iaggr == 5 .or. & + igraup == 5 .or. ihail == 5) then + + if (irain >= 1) jnmb(2) = 5 + if (isnow >= 1) jnmb(4) = 5 + if (iaggr >= 1) jnmb(5) = 5 + if (igraup >= 1) jnmb(6) = 5 + if (ihail >= 1) jnmb(7) = 5 + + endif + +endif + +if(print_msg) then + print*,'' + print*,'HYDROMETEOR SETTINGS' + print*,'icloud ',icloud,' ','jnmb-cloud ',jnmb(1) + print*,'idriz ',idriz, ' ','jnmb-drizzle ',jnmb(8) + print*,'irain ',irain, ' ','jnmb-rain ',jnmb(2) + print*,'ipris ',ipris, ' ','jnmb-pris ',jnmb(3) + print*,'isnow ',isnow, ' ','jnmb-snow ',jnmb(4) + print*,'iaggr ',iaggr, ' ','jnmb-aggr ',jnmb(5) + print*,'igraup ',igraup,' ','jnmb-graup ',jnmb(6) + print*,'ihail ',ihail, ' ','jnmb-hail ',jnmb(7) + print*,'' +endif + +return +END SUBROUTINE jnmbinit + +!############################################################################## +Subroutine micinit () + +use micphys +use mem_grid, only:print_msg + +implicit none + +integer :: lhcat,lcat,ia +integer, dimension(16) :: lcat0 +real :: cfmasi,c1,glg,glg1,glg2,glgm,glgc,flngi,dpsi,embsip,dnsip +real, external :: gammln +real, external :: gammp +real, external :: gammq + +data lcat0 /1,2,3,4,5,6,7,3,3,3,3,4,4,4,4,8/ ! lcat corressponding to lhcat + +! Initialize arrays based on microphysics namelist parameters +! Note: pparm for pristine ice is obsolete since IPRIS = 0 or 5 only + +parm(1) = cparm +parm(2) = rparm +parm(4) = sparm +parm(5) = aparm +parm(6) = gparm +parm(7) = hparm +parm(8) = dparm + +if (icloud .eq. 1) parm(1) = .3e9 +if (irain .eq. 1) parm(2) = .1e-2 +if (isnow .eq. 1) parm(4) = .1e-2 +if (iaggr .eq. 1) parm(5) = .1e-2 +if (igraup .eq. 1) parm(6) = .1e-2 +if (ihail .eq. 1) parm(7) = .3e-2 +if (idriz .eq. 1) parm(8) = .1e6 !# per kg ~ m^3 + !(mid-range avg from Feingold(99) + +if (icloud .eq. 0 .or. icloud .eq. 5) parm(1) = 0. +if (irain .eq. 0 .or. irain .eq. 5) parm(2) = 0. +if (isnow .eq. 0 .or. isnow .eq. 5) parm(4) = 0. +if (iaggr .eq. 0 .or. iaggr .eq. 5) parm(5) = 0. +if (igraup .eq. 0 .or. iaggr .eq. 5) parm(6) = 0. +if (ihail .eq. 0 .or. ihail .eq. 5) parm(7) = 0. +if (idriz .eq. 0 .or. idriz .eq. 5) parm(8) = 0. + +if(print_msg) then + print*,'' + print*,'More HYDROMETEOR SETTINGS' + print*,'Not used for: (1)No micro, (2)two-moment micro, (3)Bin-micro' + if(icloud==0 .or. icloud==5)then + print*,'cparm - cloud ','NOT USED' + else + print*,'cparm - cloud ',parm(1) + endif + + if(idriz==0 .or. idriz==5)then + print*,'dparm - drizzle ','NOT USED' + else + print*,'dparm - drizzle ',parm(8) + endif + + if(irain==0 .or. irain==5)then + print*,'rparm - rain ','NOT USED' + else + print*,'rparm - rain ',parm(2) + endif + + if(ipris==0 .or. ipris==5)then + print*,'pparm - pris ','NOT USED' + else + print*,'pparm - pris ','NOT USED' + endif + + if(isnow==0 .or. isnow==5)then + print*,'sparm - snow ','NOT USED' + else + print*,'sparm - snow ',parm(4) + endif + + if(iaggr==0 .or. iaggr==5)then + print*,'aparm - aggr ','NOT USED' + else + print*,'aparm - aggr ',parm(5) + endif + + if(igraup==0 .or. igraup==5)then + print*,'gparm - graup ','NOT USED' + else + print*,'gparm - graup ',parm(6) + endif + + if(ihail==0 .or. ihail==5)then + print*,'hparm - hail ','NOT USED' + else + print*,'hparm - hail ',parm(7) + endif + + print*,'' +endif + +dps = 125.e-6 +dps2 = dps ** 2 +rictmin = 1.0001 +rictmax = 0.9999 * float(nembc) + +do lhcat = 1,nhcat + lcat=lcat0(lhcat) + + cfden(lhcat) = cfmas(lhcat) * 6.0 / 3.14159 + pwden(lhcat) = pwmas(lhcat) - 3. + emb0log(lcat) = log(emb0(lcat)) + emb1log(lcat) = log(emb1(lcat)) + +! Define coefficients [frefac1, frefac2] used for terminal velocity +! and Reynolds number + + cfmasi = 1. / cfmas(lhcat) + pwmasi(lhcat) = 1. / pwmas(lhcat) + pwen0(lhcat) = 1. / (pwmas(lhcat) + 1.) + pwemb0(lhcat) = pwmas(lhcat) / (pwmas(lhcat) + 1.) + c1 = 1.5 + .5 * pwvt(lhcat) + + glg = gammln(gnu(lcat)) + glg1 = gammln(gnu(lcat) + 1.) + glg2 = gammln(gnu(lcat) + 2.) + glgm = gammln(gnu(lcat) + pwmas(lhcat)) + glgc = gammln(gnu(lcat) + c1) + + if (jnmb(lcat) .eq. 3) then + cfemb0(lhcat) = cfmas(lhcat) * exp(glgm - glg) & + ** pwen0(lhcat) * (1. / parm(lcat)) ** pwemb0(lhcat) + cfen0(lhcat) = parm(lcat) * (exp(glg - glgm) / parm(lcat)) & + ** pwen0(lhcat) + endif + + dnfac(lhcat) = (cfmasi * exp(glg - glgm)) ** pwmasi(lhcat) + + frefac1(lhcat) = shape(lhcat) * exp(glg1 - glg) & + * (cfmasi * exp(glg - glgm)) ** pwmasi(lhcat) + + frefac2(lhcat) = shape(lhcat) * 0.229 * sqrt(cfvt(lcat)) & + * (cfmasi * exp(glg - glgm)) ** (pwmasi(lhcat) * c1) & + * exp(glgc - glg) + + sipfac(lhcat) = .785 * exp(glg2 - glg) & + * (cfmasi * exp(glg - glgm)) ** (2. * pwmasi(lhcat)) + + dict(lcat) = float(nembc-1) / (emb1log(lcat) - emb0log(lcat)) + + dpsmi(lhcat) = 1. / (cfmas(lhcat) * dps ** pwmas(lhcat)) + if (lhcat .le. 4) gamm(lhcat) = exp(glg) + if (lhcat .le. 4) gamn1(lhcat) = exp(glg1) + +! gam1 : the integral of the pristine distribution from dps to infty +! gam2 : the integral of the snow dist. from 0 to dps +! gam3 : values of the exponential exp(-dps/dn) + +enddo + +!*********************************************************************** +!************** Secondary Ice Production Arrays ************************ +!*********************************************************************** +flngi = 1. / float(ngam) +do ia=1,ngam + dpsi = dps * 1.e6 / float(ia) + + gam(ia,1) = gammq(gnu(3) + 1., dpsi) + gam(ia,2) = gammp(gnu(4) + 1., dpsi) + gam(ia,3) = exp(-dpsi) + + GAMINC(IA,1)=gammq(GNU(3),dpsi) + GAMINC(IA,2)=gammp(GNU(4),dpsi) + + embsip = emb1(1) * float(ia) * flngi + dnsip = dnfac(1) * embsip ** pwmasi(1) + gamsip13(1,ia)=gammp(gnu(1),13.e-6/dnsip) + gamsip24(1,ia)=gammq(gnu(1),24.e-6/dnsip) + + embsip = emb1(8) * float(ia) * flngi + dnsip = dnfac(16) * embsip ** pwmasi(16) + gamsip13(2,ia)=gammp(gnu(8),13.e-6/dnsip) + gamsip24(2,ia)=gammq(gnu(8),24.e-6/dnsip) +enddo + +return +END SUBROUTINE micinit + +!############################################################################## +Subroutine setupF94 () + +!Routine to set up rain size bin partitions for F94 collection +!routine for rain-pris ice collection forming hail + +use micphys + +implicit none + +integer :: nbins,i +real :: pi314,mind,maxd,m,ii3,rmin,mmin,xjo,massdobl,tmp1 + +!--local constants +nbins=94 +pi314=4.*ATAN(1.) +ii3=(1./3.) +massdobl=2. !mass doubling bin factor for rain + +!--set up rain diameter bin partitions +mind=3.4668048E-07 !min rain diam [m] from subr 'mkcoltb' +maxd=1.7334025E-02 !max rain diam [m] from subr 'mkcoltb' +rmin=mind/2. !minimum radius +mmin=(4./3.)*pi314*(rmin)**3 !minimum mass +tmp1=massdobl*3. !mass is doubled every 'massdobl' # of bins +xjo=tmp1/LOG(2.) +do i=1,nbins+1 !*NOTE: nbins+1 needed to numerically integrate Fgam + m=mmin*exp(3*float(i-1)/(xjo)) + rdbF94(i)=2.*((3.*m/4./pi314)**ii3) !bin diameter bounds +enddo + +!--set up avg bin diams, term vel's, and mass +do i=1,nbins + radF94(i)=0.5*(rdbF94(i)+rdbF94(i+1)) !avg bin diam + avtF94(i)=cfvt(2)*(radF94(i))**pwvt(2) !term vel of avg diam + ramF94(i)=cfmas(2)*(radF94(i))**pwmas(2) !mass of drop w/ avg diam +enddo + +return +END SUBROUTINE setupF94 diff --git a/src/6.2.16/micro/mic_misc.f90 b/src/6.2.16/micro/mic_misc.f90 new file mode 100644 index 0000000..e1dd5fd --- /dev/null +++ b/src/6.2.16/micro/mic_misc.f90 @@ -0,0 +1,1480 @@ +!############################################################################## +! IMPORTANT ISSUE: k loop limits for the jnmb == 5 sections +! need to consider collection efficiencies for different habits? +! collection efficiency for hail too high. big hail should not +! coallesce. +!############################################################################## +Subroutine each_call (m1,dtlt) + +use rconstants +use micphys + +implicit none + +integer :: m1,lcat,k,lhcat +real :: dtlt +integer, dimension(8) :: lcat0 +data lcat0 /1,2,3,4,5,6,7,16/ ! lcat corressponding to lhcat + +! Initialize constants for vapor diffusion and, for fixed diameter cases, emb. + +colf = .785 * dtlt +pi4dt = pi4 * dtlt +sl(1) = alvl +sl(2) = alvi +sc(1) = 4186. +sc(2) = 2093. +sj(1) = 0 +sj(2) = 1 +sj(3) = 0 +sj(4) = 0 +sj(5) = 0 +sj(6) = 1 +sj(7) = 1 +sj(8) = 0 +sk(1) = alli +sk(2) = 0. + +do lcat = 1,8 + lhcat = lcat0(lcat) + if (jnmb(lcat) == 2) then + do k = 2,m1-1 + emb(k,lcat) = cfmas(lhcat) * parm(lcat) ** pwmas(lhcat) + enddo + endif + do k = 2,m1-1 + jhcat(k,lcat) = lhcat + enddo +enddo + +do k = 2,m1-1 + sh(k,1) = 0. + sh(k,2) = 1. + sh(k,6) = 1. + sh(k,7) = 1. + sh(k,8) = 0. + + sm(k,1) = 1. + sm(k,2) = 1. + sm(k,8) = 1. +enddo + +return +END SUBROUTINE each_call + +!############################################################################## +Subroutine range_check (m1,k1,k2,k3,i,j,frq,ngr,dtlt,time,micro) + +use mem_micro +use micphys +use mem_grid, only:iprntstmt,print_msg + +implicit none + +type (micro_vars) :: micro + +integer :: m1,i,j,k,lcat,l,jcat,ngr +integer, dimension(11) :: k1,k2,k3 +real :: frq,time,dtlt + +!Zero out microphysics scratch arrays for the present i,j column +do lcat = 1,ncat + do k = 2,m1-1 + rx(k,lcat) = 0. + cx(k,lcat) = 0. + qr(k,lcat) = 0. + qx(k,lcat) = 0. + vap(k,lcat) = 0. + tx(k,lcat) = 0. + enddo + + if (jnmb(lcat) >= 3) then + do k = 2,m1-1 + emb(k,lcat) = 0. + enddo + endif + + do jcat = 1,ncat + do k = 2,m1-1 + rxfer(k,lcat,jcat) = 0. + qrxfer(k,lcat,jcat) = 0. + enxfer(k,lcat,jcat) = 0. + enddo + enddo +enddo + +!Zero out aerosol scratch arrays +do acat = 1,aerocat + do k = 1,m1 + aerocon(k,acat) = 0.0 + aeromas(k,acat) = 0.0 + enddo +enddo + +!Zero out aerosol tracking mass scratch arrays +if(iccnlev>=2) then + do lcat = 1,ncat + pcpraerox(lcat) = 0. + accpaerox(lcat) = 0. + pcprdustx(lcat) = 0. + accpdustx(lcat) = 0. + do k = 1,m1 + cnmhx(k,lcat) = 0. + snmhx(k,lcat) = 0. + dnmhx(k,lcat) = 0. + dinhx(k,lcat) = 0. + enddo + enddo + do k = 1,m1 + regenmas(k,1)=0.0 + regenmas(k,2)=0.0 + enddo +endif + +!Zero out IFN aerosol scratch arrays +if (iifn==3) then + do k = 1,m1 + nifn(k) = 0. + enddo + if(iccnlev>=1)then + ifnnucx(k) = 0. + do lcat = 1,ncat + immerhx(k,lcat) = 0. + enddo + endif +endif + +!Zero out top and bottom of hydrometeor layers +do l = 1,8 + k1(l) = 2 + k2(l) = 1 +enddo + +!************************************************************************ +! FILL SCRATCH ARRAYS FOR TEMPORARY MICROPHYSICS VARIABLE IN COLUMNS +!************************************************************************ + +!Fill scratch arrays for aerosol modes +do k = 2,m1-1 + if (jnmb(3)>=5 .and. (iifn==1.or.iifn==2)) then + cifnx(k) = micro%cifnp(k,i,j) + endif + if (iaerosol > 0) then + aerocon(k,1) = micro%cccnp(k,i,j) + aeromas(k,1) = micro%cccmp(k,i,j) + aerocon(k,2) = micro%gccnp(k,i,j) + aeromas(k,2) = micro%gccmp(k,i,j) + endif + if (idust > 0) then + aerocon(k,3) = micro%md1np(k,i,j) + aeromas(k,3) = micro%md1mp(k,i,j) + aerocon(k,4) = micro%md2np(k,i,j) + aeromas(k,4) = micro%md2mp(k,i,j) + endif + if (isalt > 0) then + aerocon(k,5) = micro%salt_film_np(k,i,j) + aeromas(k,5) = micro%salt_film_mp(k,i,j) + aerocon(k,6) = micro%salt_jet_np(k,i,j) + aeromas(k,6) = micro%salt_jet_mp(k,i,j) + aerocon(k,7) = micro%salt_spum_np(k,i,j) + aeromas(k,7) = micro%salt_spum_mp(k,i,j) + endif +enddo + +!Aerosol and solubility tracking variables scratch arrays +if (iccnlev>=2) then + do k = 2,m1-1 + !Regenerated aerosol and solubility + aerocon(k,8) = micro%regen_aero1_np(k,i,j) + aeromas(k,8) = micro%regen_aero1_mp(k,i,j) + aerocon(k,9) = micro%regen_aero2_np(k,i,j) + aeromas(k,9) = micro%regen_aero2_mp(k,i,j) + if(itrkepsilon==1) then + regenmas(k,1) = micro%resol_aero1_mp(k,i,j) + regenmas(k,2) = micro%resol_aero2_mp(k,i,j) + endif + !Aerosol masses in cloud + if (jnmb(1) >= 1) then + if (micro%rcp(k,i,j) >= rxmin) then + cnmhx(k,1) = micro%cnmcp(k,i,j) + if(itrkepsilon==1) snmhx(k,1) = micro%snmcp(k,i,j) + if(itrkdust==1) dnmhx(k,1) = micro%dnmcp(k,i,j) + if(itrkdustifn==1) dinhx(k,1) = micro%dincp(k,i,j) + endif + endif + !Aerosol masses in rain + if (jnmb(2) >= 1) then + if (micro%rrp(k,i,j) >= rxmin) then + cnmhx(k,2) = micro%cnmrp(k,i,j) + if(itrkepsilon==1) snmhx(k,2) = micro%snmrp(k,i,j) + if(itrkdust==1) dnmhx(k,2) = micro%dnmrp(k,i,j) + if(itrkdustifn==1) dinhx(k,2) = micro%dinrp(k,i,j) + endif + endif + !Aerosol masses in pristine ice + if (jnmb(3) >= 1) then + if (micro%rpp(k,i,j) >= rxmin) then + cnmhx(k,3) = micro%cnmpp(k,i,j) + if(itrkepsilon==1) snmhx(k,3) = micro%snmpp(k,i,j) + if(itrkdust==1) dnmhx(k,3) = micro%dnmpp(k,i,j) + if(itrkdustifn==1) dinhx(k,3) = micro%dinpp(k,i,j) + endif + endif + !Aerosol masses in snow + if (jnmb(4) >= 1) then + if (micro%rsp(k,i,j) >= rxmin) then + cnmhx(k,4) = micro%cnmsp(k,i,j) + if(itrkepsilon==1) snmhx(k,4) = micro%snmsp(k,i,j) + if(itrkdust==1) dnmhx(k,4) = micro%dnmsp(k,i,j) + if(itrkdustifn==1) dinhx(k,4) = micro%dinsp(k,i,j) + endif + endif + !Aerosol masses in aggregates + if (jnmb(5) >= 1) then + if (micro%rap(k,i,j) >= rxmin) then + cnmhx(k,5) = micro%cnmap(k,i,j) + if(itrkepsilon==1) snmhx(k,5) = micro%snmap(k,i,j) + if(itrkdust==1) dnmhx(k,5) = micro%dnmap(k,i,j) + if(itrkdustifn==1) dinhx(k,5) = micro%dinap(k,i,j) + endif + endif + !Aerosol masses in graupel + if (jnmb(6) >= 1) then + if (micro%rgp(k,i,j) >= rxmin) then + cnmhx(k,6) = micro%cnmgp(k,i,j) + if(itrkepsilon==1) snmhx(k,6) = micro%snmgp(k,i,j) + if(itrkdust==1) dnmhx(k,6) = micro%dnmgp(k,i,j) + if(itrkdustifn==1) dinhx(k,6) = micro%dingp(k,i,j) + endif + endif + !Aerosol masses in hail + if (jnmb(7) >= 1) then + if (micro%rhp(k,i,j) >= rxmin) then + cnmhx(k,7) = micro%cnmhp(k,i,j) + if(itrkepsilon==1) snmhx(k,7) = micro%snmhp(k,i,j) + if(itrkdust==1) dnmhx(k,7) = micro%dnmhp(k,i,j) + if(itrkdustifn==1) dinhx(k,7) = micro%dinhp(k,i,j) + endif + endif + !Aerosol masses in drizzle + if (jnmb(8) >= 1) then + if (micro%rdp(k,i,j) >= rxmin) then + cnmhx(k,8) = micro%cnmdp(k,i,j) + if(itrkepsilon==1) snmhx(k,8) = micro%snmdp(k,i,j) + if(itrkdust==1) dnmhx(k,8) = micro%dnmdp(k,i,j) + if(itrkdustifn==1) dinhx(k,8) = micro%dindp(k,i,j) + endif + endif + enddo +endif + +!For tracking immersion freezing nuclei +if(iifn==3 .and. iccnlev>=1) then + do k = 2,m1-1 + if (jnmb(1) >= 5) ifnnucx(k) = micro%ifnnucp(k,i,j) + if (jnmb(1) >= 5) immerhx(k,1) = micro%immercp(k,i,j) + if (jnmb(8) >= 5) immerhx(k,8) = micro%immerdp(k,i,j) + if (jnmb(2) >= 5) immerhx(k,2) = micro%immerrp(k,i,j) + enddo +endif + +! fill scratch arrays for cloud water + +if (jnmb(1) >= 1) then + do k = 2,m1-1 + if (micro%rcp(k,i,j) >= rxmin) then + k2(1) = k + rx(k,1) = micro%rcp(k,i,j) + if (jnmb(1) >= 5) cx(k,1) = micro%ccp(k,i,j) + else + if (k2(1) == 1) k1(1) = k + 1 + endif + enddo +endif + +! fill scratch arrays for rain + +if (jnmb(2) >= 1) then + do k = 2,m1-1 + if (micro%rrp(k,i,j) >= rxmin) then + k2(2) = k + rx(k,2) = micro%rrp(k,i,j) + qx(k,2) = micro%q2(k,i,j) + qr(k,2) = qx(k,2) * rx(k,2) + if (jnmb(2) >= 5) cx(k,2) = micro%crp(k,i,j) + else + if (k2(2) == 1) k1(2) = k + 1 + endif + enddo +endif + +! fill scratch arrays for pristine ice + +if (jnmb(3) >= 1) then + do k = 2,m1-1 + if (micro%rpp(k,i,j) >= rxmin) then + k2(3) = k + rx(k,3) = micro%rpp(k,i,j) + if (jnmb(3) >= 5) cx(k,3) = micro%cpp(k,i,j) + else + if (k2(3) == 1) k1(3) = k + 1 + endif + enddo +endif + +! fill scratch arrays for snow + +if (jnmb(4) >= 1) then + do k = 2,m1-1 + if (micro%rsp(k,i,j) >= rxmin) then + k2(4) = k + rx(k,4) = micro%rsp(k,i,j) + if (jnmb(4) >= 5) cx(k,4) = micro%csp(k,i,j) + else + if (k2(4) == 1) k1(4) = k + 1 + endif + enddo +endif + +! fill scratch arrays for aggregates + +if (jnmb(5) >= 1) then + do k = 2,m1-1 + if (micro%rap(k,i,j) >= rxmin) then + k2(5) = k + rx(k,5) = micro%rap(k,i,j) + if (jnmb(5) >= 5) cx(k,5) = micro%cap(k,i,j) + else + if (k2(5) == 1) k1(5) = k + 1 + endif + enddo +endif + +! fill scratch arrays for graupel + +if (jnmb(6) >= 1) then + do k = 2,m1-1 + if (micro%rgp(k,i,j) >= rxmin) then + k2(6) = k + rx(k,6) = micro%rgp(k,i,j) + qx(k,6) = micro%q6(k,i,j) + qr(k,6) = qx(k,6) * rx(k,6) + if (jnmb(6) >= 5) cx(k,6) = micro%cgp(k,i,j) + else + if (k2(6) == 1) k1(6) = k + 1 + endif + enddo +endif + +! fill scratch arrays for hail + +if (jnmb(7) >= 1) then + do k = 2,m1-1 + if (micro%rhp(k,i,j) >= rxmin) then + k2(7) = k + rx(k,7) = micro%rhp(k,i,j) + qx(k,7) = micro%q7(k,i,j) + qr(k,7) = qx(k,7) * rx(k,7) + if (jnmb(7) >= 5) cx(k,7) = micro%chp(k,i,j) + else + if (k2(7) == 1) k1(7) = k + 1 + endif + enddo +endif + +! fill scratch arrays for drizzle +if (jnmb(8) >= 1) then + do k = 2,m1-1 + if (micro%rdp(k,i,j) >= rxmin) then + k2(8) = k + rx(k,8) = micro%rdp(k,i,j) + if (jnmb(8) >= 5) cx(k,8) = micro%cdp(k,i,j) + else + if (k2(8) == 1) k1(8) = k + 1 + endif + enddo +endif + +k3(1) = k2(1) +k3(3) = k2(3) +k3(8) = k2(8) + +k1(9) = min(k1(1),k1(2),k1(8)) +k2(9) = max(k2(1),k2(2),k2(8)) +k1(10) = min(k1(3),k1(4),k1(5),k1(6),k1(7)) +k2(10) = max(k2(3),k2(4),k2(5),k2(6),k2(7)) +k1(11) = min(k1(9),k1(10)) +k2(11) = max(k2(9),k2(10)) + +!Microphysics budget arrays +if(imbudget>=1) then + do k = 1,m1 + xlatheatvap(k) = micro%latheatvap(k,i,j) + xlatheatfrz(k) = micro%latheatfrz(k,i,j) + xnuccldrt(k) = micro%nuccldrt(k,i,j) + xcld2raint(k) = micro%cld2raint(k,i,j) + xice2raint(k) = micro%ice2raint(k,i,j) + xnucicert(k) = micro%nucicert(k,i,j) + xvapliqt(k) = micro%vapliqt(k,i,j) + xvapicet(k) = micro%vapicet(k,i,j) + xmelticet(k) = micro%melticet(k,i,j) + xrimecldt(k) = micro%rimecldt(k,i,j) + xaggregatet(k) = micro%aggregatet(k,i,j) + xrain2icet(k) = micro%rain2icet(k,i,j) + xlatheatvapt(k) = micro%latheatvapt(k,i,j) + xlatheatfrzt(k) = micro%latheatfrzt(k,i,j) + enddo +endif +if(imbudget>=2) then + do k = 1,m1 + xinuchomrt(k) = micro%inuchomrt(k,i,j) + xinuccontrt(k) = micro%inuccontrt(k,i,j) + xinucifnrt(k) = micro%inucifnrt(k,i,j) + xinuchazrt(k) = micro%inuchazrt(k,i,j) + xvapcldt(k) = micro%vapcldt(k,i,j) + xvapraint(k) = micro%vapraint(k,i,j) + xvapprist(k) = micro%vapprist(k,i,j) + xvapsnowt(k) = micro%vapsnowt(k,i,j) + xvapaggrt(k) = micro%vapaggrt(k,i,j) + xvapgraut(k) = micro%vapgraut(k,i,j) + xvaphailt(k) = micro%vaphailt(k,i,j) + xvapdrizt(k) = micro%vapdrizt(k,i,j) + xmeltprist(k) = micro%meltprist(k,i,j) + xmeltsnowt(k) = micro%meltsnowt(k,i,j) + xmeltaggrt(k) = micro%meltaggrt(k,i,j) + xmeltgraut(k) = micro%meltgraut(k,i,j) + xmelthailt(k) = micro%melthailt(k,i,j) + xrimecldsnowt(k) = micro%rimecldsnowt(k,i,j) + xrimecldaggrt(k) = micro%rimecldaggrt(k,i,j) + xrimecldgraut(k) = micro%rimecldgraut(k,i,j) + xrimecldhailt(k) = micro%rimecldhailt(k,i,j) + xrain2prt(k) = micro%rain2prt(k,i,j) + xrain2snt(k) = micro%rain2snt(k,i,j) + xrain2agt(k) = micro%rain2agt(k,i,j) + xrain2grt(k) = micro%rain2grt(k,i,j) + xrain2hat(k) = micro%rain2hat(k,i,j) + xaggrselfprist(k) = micro%aggrselfprist(k,i,j) + xaggrselfsnowt(k) = micro%aggrselfsnowt(k,i,j) + xaggrprissnowt(k) = micro%aggrprissnowt(k,i,j) + enddo +endif +if(imbudget==3 .and. idust>=1) then + do k = 1,m1 + xdust1cldrt(k) = micro%dust1cldrt(k,i,j) + xdust2cldrt(k) = micro%dust2cldrt(k,i,j) + xdust1drzrt(k) = micro%dust1drzrt(k,i,j) + xdust2drzrt(k) = micro%dust2drzrt(k,i,j) + enddo +endif + +!Microphysics budget arrays +!ZERO OUT INSTANTANEOUS dT FROM LATENT HEATING +if(imbudget>=1) then + do k = 1,m1 + xlatheatvap(k) = 0. + xlatheatfrz(k) = 0. + enddo +endif +!ZERO OUT MICRO BUDGET PROCESSES AFTER ANALYSIS WRITE +!THEN BEGIN ACCUMULATING AGAIN +if(mod(time+0.001,frq).lt.dtlt .or. time.lt.0.001)then + if(iprntstmt>=1 .and. imbudget>=1.and.i==2.and.j==2 .and. print_msg) & + print*,'Resetting micro budgets',time,ngr + if(imbudget>=1) then + do k = 1,m1 + xnuccldrt(k) = 0. + xcld2raint(k) = 0. + xice2raint(k) = 0. + xnucicert(k) = 0. + xvapliqt(k) = 0. + xvapicet(k) = 0. + xmelticet(k) = 0. + xrimecldt(k) = 0. + xaggregatet(k) = 0. + xrain2icet(k) = 0. + xlatheatvapt(k) = 0. + xlatheatfrzt(k) = 0. + enddo + endif + if(imbudget>=2) then + do k = 1,m1 + xinuchomrt(k) = 0. + xinuccontrt(k) = 0. + xinucifnrt(k) = 0. + xinuchazrt(k) = 0. + xvapcldt(k) = 0. + xvapraint(k) = 0. + xvapprist(k) = 0. + xvapsnowt(k) = 0. + xvapaggrt(k) = 0. + xvapgraut(k) = 0. + xvaphailt(k) = 0. + xvapdrizt(k) = 0. + xmeltprist(k) = 0. + xmeltsnowt(k) = 0. + xmeltaggrt(k) = 0. + xmeltgraut(k) = 0. + xmelthailt(k) = 0. + xrimecldsnowt(k) = 0. + xrimecldaggrt(k) = 0. + xrimecldgraut(k) = 0. + xrimecldhailt(k) = 0. + xrain2prt(k) = 0. + xrain2snt(k) = 0. + xrain2agt(k) = 0. + xrain2grt(k) = 0. + xrain2hat(k) = 0. + xaggrselfprist(k) = 0. + xaggrselfsnowt(k) = 0. + xaggrprissnowt(k) = 0. + enddo + endif + if(imbudget==3 .and. idust>=1) then + do k = 1,m1 + xdust1cldrt(k) = 0. + xdust2cldrt(k) = 0. + xdust1drzrt(k) = 0. + xdust2drzrt(k) = 0. + enddo + endif +endif !If time to reset at analysis write + +return +END SUBROUTINE range_check + +!############################################################################## +Subroutine each_column (m1,k1,k2,rv,dn0) + +use rconstants +use micphys + +implicit none + +integer :: m1,k,nt,ns +integer, dimension(11) :: k1,k2 +real :: ck1,ck2,ck3,elsref,elsrefp,dplinv,eisref,eisrefp,dpiinv,relhum +real, dimension(m1) :: rv,dn0 +real, external :: rslf +real, external :: rsif +real, external :: eslf +real, external :: eslpf +real, external :: esif +real, external :: esipf + +data ck1,ck2,ck3/-4.818544e-3,1.407892e-4,-1.249986e-7/ + +do k = 2,m1-1 + rvlsair(k) = rslf(press(k),tair(k)) + rvisair(k) = rsif(press(k),tair(k)) + dn0i(k) = 1. / dn0(k) + tairc(k) = tair(k) - 273.15 + tx(k,1) = tairc(k) + thrmcon(k) = ck1 + (ck2 + ck3 * tair(k)) * tair(k) + dynvisc(k) = .1718e-4 + .49e-7 * tairc(k) + + ! Diagnose habit of pristine ice and snow + + nt = max(1,min(31,-nint(tairc(k)))) + relhum = min(1.,rv(k) / rvlsair(k)) + ns = max(1,nint(100. * relhum)) + jhcat(k,3) = jhabtab(nt,ns,1) + jhcat(k,4) = jhabtab(nt,ns,2) + +enddo + +do k = k1(11),k2(11) + vapdif(k) = 2.14 * (tair(k) / 273.15) ** 1.94 / press(k) + rdynvsci(k) = sqrt(1. / dynvisc(k)) + denfac(k) = sqrt(dn0i(k)) + + colfacr(k) = colf * denfac(k) * dn0(k) + colfacr2(k) = 2. * colfacr(k) + +!Saleeby(2010): Loftus: remove density from: colfacc(k) = colfacr(k) * dn0(k) + colfacc(k) = colfacr(k) + + colfacc2(k) = 2. * colfacc(k) + + tref(k,1) = tairc(k) - min(25.,700. * (rvlsair(k) - rv(k))) + sa(k,2) = thrmcon(k) * sa(k,1) + sa(k,3) = thrmcon(k) * (tairstrc(k) + sa(k,1) * rvstr(k)) + + sumuy(k) = 0. + sumuz(k) = 0. + sumvr(k) = 0. +enddo + +do k = k1(9),k2(9) + elsref = eslf(tref(k,1)) + elsrefp = eslpf(tref(k,1)) + dplinv = 1. / (press(k) - elsref) + rvsref (k,1) = .622 * elsref * dplinv + rvsrefp(k,1) = .622 * elsrefp * dplinv * (1. + elsref * dplinv) + + sa(k,4) = rvsrefp(k,1) * tref(k,1) - rvsref(k,1) + sa(k,6) = alvl * rvsrefp(k,1) + sa(k,8) = alvl * sa(k,4) +enddo + +do k = k1(10),k2(10) + tref(k,2) = min(0.,tref(k,1)) + eisref = esif(tref(k,2)) + eisrefp = esipf(tref(k,2)) + dpiinv = 1. / (press(k) - eisref) + rvsref (k,2) = .622 * eisref * dpiinv + rvsrefp(k,2) = .622 * eisrefp * dpiinv * (1. + eisref * dpiinv) + rvs0(k) = 379.4 / (press(k) - 610.) + + sa(k,5) = rvsrefp(k,2) * tref(k,2) - rvsref(k,2) + sa(k,7) = alvi * rvsrefp(k,2) + sa(k,9) = alvi * sa(k,5) + sh(k,3) = 0. + sh(k,4) = 0. + sh(k,5) = 0. + +enddo + +return +END SUBROUTINE each_column + +!############################################################################## +Subroutine enemb (m1,k1,k2,lcat,dn0) + +use micphys + +implicit none + +integer, dimension(11) :: k1,k2 +integer :: m1,lcat,k,lhcat +real :: embi,parmi,embtemp,temprx,rxdif +real, dimension(m1) :: dn0 + +if (jnmb(lcat) == 2) then + embi = 1. / emb(2,lcat) + do k = k1(lcat),k2(lcat) + cx(k,lcat) = rx(k,lcat) * embi + enddo +elseif (jnmb(lcat) == 3) then + do k = k1(lcat),k2(lcat) + lhcat = jhcat(k,lcat) + emb(k,lcat) = cfemb0(lhcat) * (dn0(k) * rx(k,lcat)) ** pwemb0(lhcat) + cx(k,lcat) = cfen0(lhcat) * dn0i(k) & + * (dn0(k) * rx(k,lcat)) ** pwen0(lhcat) + enddo +elseif (jnmb(lcat) == 4) then + parmi = 1. / parm(lcat) + do k = k1(lcat),k2(lcat) + emb(k,lcat) = max(emb0(lcat),min(emb1(lcat),rx(k,lcat) * parmi)) + cx(k,lcat) = rx(k,lcat) / emb(k,lcat) + enddo +elseif (jnmb(lcat) == 5) then + do k = k1(lcat),k2(lcat) + embtemp=rx(k,lcat)/max(rxmin,cx(k,lcat)) + emb(k,lcat) = max(emb0(lcat),min(emb1(lcat),rx(k,lcat) & + / max(rxmin,cx(k,lcat)))) + !Saleeby(2011): Use of single precision here allows for enemb to produce + !artificial number concentration even when mass is in bounds. This is + !generally small but could accumulate over time. Added the IF statement + !to stop adjustment if mean size is in bounds. + if( (embtemp > 0.0 .and. (embtemp < 0.999*emb0(lcat) .or. & + embtemp > 1.001*emb1(lcat))) .or. & + (rx(k,lcat) == 0.0 .and. cx(k,lcat) > 0.0 ) .or. & + (embtemp >= emb0(lcat) .and. embtemp <= emb1(lcat) .and. & + cx(k,lcat)0.0)) then + cx(k,lcat) = rx(k,lcat) / emb(k,lcat) + endif + enddo +endif + +return +END SUBROUTINE enemb + +!############################################################################## +Subroutine x02 (m1,k1,k2,lcat,dn0) + +use rconstants +use micphys + +implicit none + +integer :: m1,lcat,k,lhcat,inc,idns +integer, dimension(11) :: k1,k2 +real :: rinv,closs,rxinv,rmelt,fracliq,cmelt,tcoal,ricetor6,rshed,rmltshed & + ,qrmltshed,shedmass,fracmloss,dn +real, dimension(m1) :: dn0 + +k1(lcat) = k1(11) +k2(lcat) = 1 +do k = k1(11),k2(11) + if (rx(k,lcat) >= rxmin) k2(lcat) = k + if (k2(lcat) == 1 .and. rx(k,lcat) < rxmin) k1(lcat) = k + 1 +enddo + +if ((lcat == 2 .or. lcat >= 4) .and. (lcat .ne. 8)) then + CALL enemb (m1,k1,k2,lcat,dn0) +endif + +if (lcat == 2) then + + do k = k1(lcat),k2(lcat) + + if (rx(k,lcat) >= rxmin) then + + rxinv = 1. / rx(k,lcat) + qx(k,lcat) = qr(k,lcat) * rxinv +! limit rain to under 48C and over -80C + qx(k,lcat) = max(0.,min(1.6*alli,qx(k,lcat))) + + endif + + enddo + +elseif (lcat == 3) then +!Allow pristine ice to melt to cloud1 since we assume that smaller +! particles will melt first. Perhaps need a way in the future to treat +! melting of larger pristine ice into cloud2. + + do k = k1(lcat),k2(lcat) + + if (rx(k,lcat) >= rxmin) then + + rinv = 1. / rx(k,lcat) + qx(k,lcat) = qr(k,lcat) * rinv + + CALL qtc (qx(k,lcat),tcoal,fracliq) + + rmelt = rx(k,lcat) * fracliq + cmelt = cx(k,lcat) * fracliq + + !Aerosol and solubility tracking + if(iccnlev>=2) then + rxferratio = min(1.0, rmelt / rx(k,lcat)) + ccnmass = cnmhx(k,lcat) * rxferratio + cnmhx(k,lcat) = cnmhx(k,lcat) - ccnmass + cnmhx(k,1) = cnmhx(k,1) + ccnmass + if(itrkepsilon==1) then + scnmass = snmhx(k,lcat) * rxferratio + snmhx(k,lcat) = snmhx(k,lcat) - scnmass + snmhx(k,1) = snmhx(k,1) + scnmass + endif + if(itrkdust==1)then + dcnmass = dnmhx(k,lcat) * rxferratio + dnmhx(k,lcat) = dnmhx(k,lcat) - dcnmass + dnmhx(k,1) = dnmhx(k,1) + dcnmass + endif + if(itrkdustifn==1)then + dinmass = dinhx(k,lcat) * rxferratio + dinhx(k,lcat) = dinhx(k,lcat) - dinmass + dinhx(k,1) = dinhx(k,1) + dinmass + endif + endif + + rx(k,lcat) = rx(k,lcat) - rmelt + rx(k,1) = rx(k,1) + rmelt + cx(k,lcat) = cx(k,lcat) - cmelt + cx(k,1) = cx(k,1) + cmelt + + if(imbudget >= 1) xmelticet(k) = xmelticet(k) + rmelt * budget_scalet + if(imbudget >= 2) xmeltprist(k) = xmeltprist(k) + rmelt * budget_scalet + + endif + + enddo +! +! meyers - source for cloud aerosol number here? +! +elseif (lcat == 4 .or. lcat == 5) then +!Allow snow and aggregates to melt to graupel. +!Perhaps snow should melt to cloud2 and aggregates to rain?? +!Change this??? move to rain instead ??? look at melting decisions in col2 + + do k = k1(lcat),k2(lcat) + + if (rx(k,lcat) >= rxmin) then + + rinv = 1. / rx(k,lcat) + qx(k,lcat) = qr(k,lcat) * rinv + CALL qtc (qx(k,lcat),tcoal,fracliq) + + if (fracliq > 1.e-6) then + !Compute liquid portion to xfer to graupel + rmelt = rx(k,lcat) * fracliq + !Compute ice portion of xfer to graupel + ricetor6 = min(rx(k,lcat) - rmelt,rmelt) + + !Aerosol and solubility tracking + if(iccnlev>=2) then + rxferratio = min(1.0, rmelt+ricetor6 / rx(k,lcat)) + ccnmass = cnmhx(k,lcat) * rxferratio + cnmhx(k,lcat) = cnmhx(k,lcat) - ccnmass + cnmhx(k,6) = cnmhx(k,6) + ccnmass + if(itrkepsilon==1) then + scnmass = snmhx(k,lcat) * rxferratio + snmhx(k,lcat) = snmhx(k,lcat) - scnmass + snmhx(k,6) = snmhx(k,6) + scnmass + endif + if(itrkdust==1)then + dcnmass = dnmhx(k,lcat) * rxferratio + dnmhx(k,lcat) = dnmhx(k,lcat) - dcnmass + dnmhx(k,6) = dnmhx(k,6) + dcnmass + endif + if(itrkdustifn==1)then + dinmass = dinhx(k,lcat) * rxferratio + dinhx(k,lcat) = dinhx(k,lcat) - dinmass + dinhx(k,6) = dinhx(k,6) + dinmass + endif + endif + + rx(k,lcat) = rx(k,lcat) - rmelt - ricetor6 + rx(k,6) = rx(k,6) + rmelt + ricetor6 + qr(k,6) = qr(k,6) + rmelt * alli + qx(k,lcat) = 0. + +! keep the above the same with ricetor6 +! meyers - use sa melt table here? yes + fracmloss = (rmelt + ricetor6) * rinv + closs = enmlttab(int(200. * fracmloss) + 1,jhcat(k,lcat)) * cx(k,lcat) + cx(k,lcat) = cx(k,lcat) - closs + cx(k,6) = cx(k,6) + closs + +! if(imbudget >= 1) xmelticet used to track ice melting to rain. Do not include +! melting of snow and aggregates since they are transferred +! to graupel, not rain + if(imbudget >= 2) then + if(lcat==4) xmeltsnowt(k) = xmeltsnowt(k) + (rmelt + ricetor6) * budget_scalet + if(lcat==5) xmeltaggrt(k) = xmeltaggrt(k) + (rmelt + ricetor6) * budget_scalet + endif + + endif + + endif + enddo + + +elseif (lcat == 6) then + + do k = k1(lcat),k2(lcat) + + if (rx(k,lcat) >= rxmin) then + + rxinv = 1. / rx(k,lcat) + qx(k,lcat) = qr(k,lcat) * rxinv + CALL qtc (qx(k,lcat),tcoal,fracliq) + + if (fracliq > 0.95) then + rx(k,2) = rx(k,2) + rx(k,6) + qr(k,2) = qr(k,2) + rx(k,6) * alli + cx(k,2) = cx(k,2) + cx(k,6) + + !Aerosol and solubility tracking + if(iccnlev>=2) then + rxferratio = 1.0 + ccnmass = cnmhx(k,lcat) * rxferratio + cnmhx(k,lcat) = cnmhx(k,lcat) - ccnmass + cnmhx(k,2) = cnmhx(k,2) + ccnmass + if(itrkepsilon==1) then + scnmass = snmhx(k,lcat) * rxferratio + snmhx(k,lcat) = snmhx(k,lcat) - scnmass + snmhx(k,2) = snmhx(k,2) + scnmass + endif + if(itrkdust==1)then + dcnmass = dnmhx(k,lcat) * rxferratio + dnmhx(k,lcat) = dnmhx(k,lcat) - dcnmass + dnmhx(k,2) = dnmhx(k,2) + dcnmass + endif + if(itrkdustifn==1)then + dinmass = dinhx(k,lcat) * rxferratio + dinhx(k,lcat) = dinhx(k,lcat) - dinmass + dinhx(k,2) = dinhx(k,2) + dinmass + endif + endif + + if(imbudget >= 1) xmelticet(k) = xmelticet(k) + rx(k,6) * budget_scalet + if(imbudget >= 2) xmeltgraut(k) = xmeltgraut(k) + rx(k,6) * budget_scalet + + rx(k,6) = 0. + qr(k,6) = 0. + qx(k,6) = 0. + cx(k,6) = 0. + endif + + endif + + enddo + +elseif (lcat == 7) then + + shedmass = 5.236e-7 + do k = k1(lcat),k2(lcat) + + if (rx(k,lcat) >= rxmin) then + + rxinv = 1. / rx(k,lcat) + qx(k,lcat) = qr(k,lcat) * rxinv + CALL qtc (qx(k,lcat),tcoal,fracliq) + + if (fracliq > 0.95) then + rx(k,2) = rx(k,2) + rx(k,7) + qr(k,2) = qr(k,2) + rx(k,7) * alli + cx(k,2) = cx(k,2) + cx(k,7) + + !Aerosol and solubility tracking + if(iccnlev>=2) then + rxferratio = 1.0 + ccnmass = cnmhx(k,lcat) * rxferratio + cnmhx(k,lcat) = cnmhx(k,lcat) - ccnmass + cnmhx(k,2) = cnmhx(k,2) + ccnmass + if(itrkepsilon==1) then + scnmass = snmhx(k,lcat) * rxferratio + snmhx(k,lcat) = snmhx(k,lcat) - scnmass + snmhx(k,2) = snmhx(k,2) + scnmass + endif + if(itrkdust==1)then + dcnmass = dnmhx(k,lcat) * rxferratio + dnmhx(k,lcat) = dnmhx(k,lcat) - dcnmass + dnmhx(k,2) = dnmhx(k,2) + dcnmass + endif + if(itrkdustifn==1)then + dinmass = dinhx(k,lcat) * rxferratio + dinhx(k,lcat) = dinhx(k,lcat) - dinmass + dinhx(k,2) = dinhx(k,2) + dinmass + endif + endif + + if(imbudget >= 1) xmelticet(k) = xmelticet(k) + rx(k,7) * budget_scalet + if(imbudget >= 2) xmelthailt(k) = xmelthailt(k) + rx(k,7) * budget_scalet + + rx(k,7) = 0. + qr(k,7) = 0. + qx(k,7) = 0. + cx(k,7) = 0. + +! take out following IF statement? + + elseif (fracliq > 0.3) then + + lhcat = jhcat(k,lcat) + inc = nint(200. * fracliq) + 1 + dn = dnfac(lhcat) * emb(k,lcat) ** pwmasi(lhcat) + idns = max(1,nint(1.e3 * dn * gnu(lcat))) + rshed = rx(k,lcat) * shedtab(inc,idns) + rmltshed = rshed + qrmltshed = rmltshed * alli + + !Aerosol and solubility tracking + if(iccnlev>=2) then + rxferratio = min(1.0, rmltshed / rx(k,lcat)) + ccnmass = cnmhx(k,lcat) * rxferratio + cnmhx(k,lcat) = cnmhx(k,lcat) - ccnmass + cnmhx(k,2) = cnmhx(k,2) + ccnmass + if(itrkepsilon==1) then + scnmass = snmhx(k,lcat) * rxferratio + snmhx(k,lcat) = snmhx(k,lcat) - scnmass + snmhx(k,2) = snmhx(k,2) + scnmass + endif + if(itrkdust==1)then + dcnmass = dnmhx(k,lcat) * rxferratio + dnmhx(k,lcat) = dnmhx(k,lcat) - dcnmass + dnmhx(k,2) = dnmhx(k,2) + dcnmass + endif + if(itrkdustifn==1)then + dinmass = dinhx(k,lcat) * rxferratio + dinhx(k,lcat) = dinhx(k,lcat) - dinmass + dinhx(k,2) = dinhx(k,2) + dinmass + endif + endif + + rx(k,2) = rx(k,2) + rmltshed + qr(k,2) = qr(k,2) + qrmltshed + cx(k,2) = cx(k,2) + rshed / shedmass + + rx(k,lcat) = rx(k,lcat) - rmltshed + qr(k,lcat) = qr(k,lcat) - qrmltshed + qx(k,lcat) = qr(k,lcat) * (1./rx(k,lcat)) + + if(imbudget >= 1) xmelticet(k) = xmelticet(k) + rmltshed * budget_scalet + if(imbudget >= 2) xmelthailt(k) = xmelthailt(k) + rmltshed * budget_scalet + + endif + + endif + + enddo + +endif + +return +END SUBROUTINE x02 + +!############################################################################## +Subroutine sedim (m1,lcat,ngr,k1,k2 & + ,rtp,thp,theta,dn0,alphasfc & + ,pcpg,qpcpg,dpcpg,dtlti,cnew,rnew,qrnew & + ,pcpfillc,pcpfillr,sfcpcp,allpcp) + +use rconstants +use micphys + +implicit none + +integer :: m1,lcat,ngr,k1,k2,k,lhcat,iemb,kkf,kk +real :: colddn0,rolddn0,qrolddn0,dispemb,riemb,psfc,qpcpg,pcpg & + ,dpcpg,dtlti,qnew,alphasfc,psfcdust,cnmold,snmold,dnmold,dinold,immerold & + ,pctemp,prtemp,psfctemp,psfcaero +real, dimension(m1) :: rtp,thp,theta,dn0,cnew,rnew,qrnew & + ,cnmnew,snmnew,immernew,dnmnew,dinnew +real, dimension(m1,maxkfall,nembfall,nhcat,ndensrtgt,nband) :: pcpfillc,pcpfillr +real, dimension(maxkfall,nembfall,nhcat,ndensrtgt,nband) :: sfcpcp +real, dimension(m1,nembfall,nhcat,ndensrtgt,nband) :: allpcp + +snmold=0. +cnmold=0. +dinold=0. +dnmold=0. +immerold=0. +psfc=0. +psfcaero=0. +psfcdust=0. +pcprx(lcat) = 0. +do k = 1,m1 + rnew(k) = 0. + cnew(k) = 0. + qrnew(k) = 0. + pcpvx(k,lcat) = 0. + cnmnew(k) = 0. + snmnew(k) = 0. + dnmnew(k) = 0. + dinnew(k) = 0. + immernew(k) = 0. +enddo + +do k = k1,k2 + lhcat = jhcat(k,lcat) + + if (rx(k,lcat) > 1.e-20) then + colddn0 = cx(k,lcat) * dn0(k) !Convert #/kg to #/m3 + rolddn0 = rx(k,lcat) * dn0(k) !Convert kg/kg to kg/m3 + qrolddn0 = qx(k,lcat) * rolddn0 + + !Aerosol and solubility tracking + if(iccnlev>=2) then + cnmold = cnmhx(k,lcat) * dn0(k) !Convert kg/kg to kg/m3 + if(itrkepsilon==1) snmold = snmhx(k,lcat) * dn0(k) !Convert kg/kg to kg/m3 + if(itrkdust==1) dnmold = dnmhx(k,lcat) * dn0(k) !Convert kg/kg to kg/m3 + if(itrkdustifn==1) dinold = dinhx(k,lcat) * dn0(k) !Convert kg/kg to kg/m3 + endif + + !For tracking immersion freezing nuclei + if(iifn==3 .and. iccnlev>=1 .and. (lcat==1.or.lcat==2.or.lcat==8)) & + immerold = immerhx(k,lcat) * dn0(k) !Convert #/kg to #/m3 + + !Here determine which set of powerlaws to use: the original + ! ones in RAMS or the ones from R.Carver from Mitchell 1996. + !The Mitchell power laws are not based at sea level so we adjust the + ! density factor based at 0.7 kg/m3 instead of 1.0 kg/m3. + if(iplaws==0) then + dispemb = ch1(lhcat) & + * (emb(k,lcat)/cfmas(lhcat)) ** ch3(lhcat) * sqrt(dn0i(k)) + else + dispemb = ch1(lhcat) & + * (emb(k,lcat)/cfmas(lhcat)) ** ch3(lhcat) * (0.7*dn0i(k))**.362 + endif + + riemb = 1. + ch2(lhcat,ngr) * log10(dispemb / dispemb0(lhcat,ngr)) + + !Limiting iemb to max of nembfall + iemb = min(nint(riemb),nembfall) + + if (k <= maxkfall) then + psfctemp = sfcpcp(k,iemb,lhcat,1,1) + psfc = rolddn0 * psfctemp + !Aerosol and solubility tracking + if(iccnlev>=2) psfcaero = cnmold * psfctemp + if(iccnlev>=2.and.itrkdust==1) psfcdust = dnmold * psfctemp + endif + + do kkf = 1,min(maxkfall,k-1) + kk = k + 1 - kkf + pctemp = pcpfillc(k,kkf,iemb,lhcat,1,1) + prtemp = pcpfillr(k,kkf,iemb,lhcat,1,1) + cnew(kk) = cnew(kk) + colddn0 * dn0i(kk) * pctemp + rnew(kk) = rnew(kk) + rolddn0 * dn0i(kk) * prtemp + qrnew(kk) = qrnew(kk) + qrolddn0 * dn0i(kk) * prtemp + !Aerosol and solubility tracking + if(iccnlev>=2) then + cnmnew(kk) = cnmnew(kk) + cnmold * dn0i(kk) * prtemp + if(itrkepsilon==1) snmnew(kk) = snmnew(kk) + snmold * dn0i(kk) * prtemp + if(itrkdust==1) dnmnew(kk) = dnmnew(kk) + dnmold * dn0i(kk) * prtemp + if(itrkdustifn==1) dinnew(kk) = dinnew(kk) + dinold * dn0i(kk) * prtemp + endif + !For tracking immersion freezing nuclei + if(iifn==3 .and. iccnlev>=1 .and. (lcat==1.or.lcat==2.or.lcat==8)) & + immernew(kk) = immernew(kk) + immerold * dn0i(kk) * pctemp + enddo + + !Surface Precip rate + if (k <= maxkfall) then + qpcpg = qpcpg + psfc * qx(k,lcat) + pcprx(lcat) = pcprx(lcat) + psfc + !Aerosol accumulation rate + if(iccnlev>=2) & + pcpraerox(lcat) = pcpraerox(lcat) + psfcaero + if(iccnlev>=2 .and. itrkdust==1) & + pcprdustx(lcat) = pcprdustx(lcat) + psfcdust + endif + + !Precip rate at all levels (mm/s) + pcpvx(k,lcat)= rolddn0 * allpcp(k,iemb,lhcat,1,1) * dtlti + + endif +enddo + +pcpg = pcpg + pcprx(lcat) +accpx(lcat) = pcprx(lcat) +dpcpg = dpcpg + pcprx(lcat) * alphasfc +pcprx(lcat) = pcprx(lcat) * dtlti + +!Aerosol accumulation tracking +if(iccnlev>=2) then + !Accumulate total aerosol on surface (kg/m2) + accpaerox(lcat) = pcpraerox(lcat) + pcpraerox(lcat) = pcpraerox(lcat) * dtlti + !Accumulate dust on surface (kg/m2) + if(itrkdust==1) then + accpdustx(lcat) = pcprdustx(lcat) + pcprdustx(lcat) = pcprdustx(lcat) * dtlti + endif +endif + +do k = 2,k2 + rtp(k) = rtp(k) + rnew(k) - rx(k,lcat) + qnew = qrnew(k) / max(1.e-20, rnew(k)) + + tairc(k) = tairc(k) - thp(k) * thp(k) & + * (2820. * (rnew(k) - rx(k,lcat)) & + - cpi * (qrnew(k) - qx(k,lcat) * rx(k,lcat))) & + / (max(tair(k), 253.) * theta(k)) + + rx(k,lcat) = rnew(k) + cx(k,lcat) = cnew(k) + qx(k,lcat) = qnew + + !Aerosol and solubility tracking + if(iccnlev>=2) then + cnmhx(k,lcat) = cnmnew(k) + if(itrkepsilon==1) snmhx(k,lcat) = snmnew(k) + if(itrkdust==1) dnmhx(k,lcat) = dnmnew(k) + if(itrkdustifn==1) dinhx(k,lcat) = dinnew(k) + endif + + !For tracking immersion freezing nuclei + if(iifn==3 .and. iccnlev>=1 .and. (lcat==1.or.lcat==2.or.lcat==8)) & + immerhx(k,lcat) = immernew(k) + + if(rx(k,lcat) < rxmin) then + rx(k,lcat) = 0. + cx(k,lcat) = 0. + qx(k,lcat) = 0. + pcpvx(k,lcat) = 0. + + !Aerosol and solubility tracking + if(iccnlev>=2) then + cnmhx(k,lcat) = 0. + if(itrkepsilon==1) snmhx(k,lcat) = 0. + if(itrkdust==1) dnmhx(k,lcat) = 0. + if(itrkdustifn==1) dinhx(k,lcat) = 0. + endif + !For tracking immersion freezing nuclei + if(iifn==3 .and. iccnlev>=1 .and. (lcat==1.or.lcat==2.or.lcat==8)) & + immerhx(k,lcat) = 0. + endif +enddo + +return +END SUBROUTINE sedim + +!############################################################################## +Subroutine sedim_trubin (m1,lcat,ngr,k1,k2 & + ,rtp,thp,theta,dn0,alphasfc & + ,pcpg,qpcpg,dpcpg,dtlti,cnew,rnew,qrnew & + ,pcpfillc,pcpfillr,sfcpcp,allpcp,rtgt) + +use rconstants +use micphys + +implicit none + +integer :: m1,lcat,ngr,k1,k2,k,lhcat,iemb1,idensrtgt,iband,kkf,kk +real :: colddn0,rolddn0,qrolddn0,riemb,psfc,qpcpg,pcpg,pcpvxtemp1,pcpvxtemp2 & + ,dpcpg,dtlti,qnew,alphasfc,psfcdust,cnmold,snmold,dnmold,dinold,immerold & + ,rtgt,embwt1,embwt2,dmb,dmode,bwt1,bwt2,bdenpowfac & + ,psfcaero,densrtgt,denwt1,denwt2,psfctemp1,psfctemp2,pctemp1,pctemp2 & + ,prtemp1,prtemp2 +real, dimension(m1) :: rtp,thp,theta,dn0,cnew,rnew,qrnew & + ,cnmnew,snmnew,dnmnew,dinnew,immernew +real, dimension(m1,maxkfall,nembfall,nhcat,ndensrtgt,nband) :: pcpfillc,pcpfillr +real, dimension(maxkfall,nembfall,nhcat,ndensrtgt,nband) :: sfcpcp +real, dimension(m1,nembfall,nhcat,ndensrtgt,nband) :: allpcp + +snmold=0. +cnmold=0. +dinold=0. +dnmold=0. +immerold=0. +psfc=0. +psfcaero=0. +psfcdust=0. +idensrtgt=0 +pcprx(lcat) = 0. +do k = 1,m1 + rnew(k) = 0. + cnew(k) = 0. + qrnew(k) = 0. + pcpvx(k,lcat) = 0. + cnmnew(k) = 0. + snmnew(k) = 0. + dnmnew(k) = 0. + dinnew(k) = 0. + immernew(k) = 0. +enddo + +do k = k1,k2 + lhcat = jhcat(k,lcat) + + if (rx(k,lcat) > 1.e-20) then + colddn0 = cx(k,lcat) * dn0(k) !Convert #/kg to #/m3 + rolddn0 = rx(k,lcat) * dn0(k) !Convert kg/kg to kg/m3 + qrolddn0 = qx(k,lcat) * rolddn0 + + !Aerosol and solubility tracking + if(iccnlev>=2) then + cnmold = cnmhx(k,lcat) * dn0(k) !Convert kg/kg to kg/m3 + if(itrkepsilon==1) snmold = snmhx(k,lcat) * dn0(k) !Convert kg/kg to kg/m3 + if(itrkdust==1) dnmold = dnmhx(k,lcat) * dn0(k) !Convert kg/kg to kg/m3 + if(itrkdustifn==1) dinold = dinhx(k,lcat) * dn0(k) !Convert kg/kg to kg/m3 + endif + + !For tracking immersion freezing nuclei + if(iifn==3 .and. iccnlev>=1 .and. (lcat==1.or.lcat==2.or.lcat==8)) & + immerold = immerhx(k,lcat) * dn0(k) !Convert #/kg to #/m3 + + !Determine which Vt power law band to use for IPLAWS=2 + dmb=(emb(k,lcat)/cfmas(lhcat))**pwmasi(lhcat) + dmode=dmb*(pwmas(lhcat)+gnu(lcat)-1.) + iband=0 + if(dmode < bdiam(1,lhcat)) then + iband=1 + bwt2 = 0.0 + bwt1 = 1.0 + elseif(dmode >= bdiam(1,lhcat) .and. dmode < bdiam(2,lhcat)) then + iband=1 + bwt2 = (dmode - bdiam(1,lhcat)) / (bdiam(2,lhcat)-bdiam(1,lhcat)) + bwt1 = 1.0 - bwt2 + elseif(dmode >= bdiam(2,lhcat) .and. dmode < bdiam(3,lhcat)) then + iband=2 + bwt2 = (dmode - bdiam(2,lhcat)) / (bdiam(3,lhcat)-bdiam(2,lhcat)) + bwt1 = 1.0 - bwt2 + elseif(dmode >= bdiam(3,lhcat)) then + iband=2 + bwt2 = 1.0 + bwt1 = 0.0 + else + print*,'Sedimentation diameter weights out of range: stop' + stop + endif + bdenpowfac=bwt1*bdenpow(iband,lhcat)+bwt2*bdenpow(iband+1,lhcat) + + if(iband==0) then + print*,'IBAND not set in sedimentation' + stop + endif + + ! Determine which set of powerlaws to use: the original ones in RAMS or + ! those from R.Carver from Mitchell 1996. + ! The Mitchell power laws are not based at sea level so we adjust the + ! density factor based at 0.7 kg/m3 instead of 1.0 kg/m3. + ! Include density and rtgt topography factors. Density where hydrometeors + ! are falling is typically between 0.3-1.2 kg/m3 and rtgt from 0.5-1.0. + if(iplaws==0) densrtgt = 10.0 * sqrt(dn0i(k)) / rtgt + if(iplaws==1) densrtgt = 10.0 * (0.7*dn0i(k))**0.362 / rtgt + if(iplaws==2) densrtgt = 10.0 * (0.7*dn0i(k))**bdenpowfac / rtgt + if(int(densrtgt)<1 .or. int(densrtgt)>40)then + print*,'Bad sedimentation densrtgt index.' + stop + endif + + !Get interpolation weights for density,rtgt indexing + idensrtgt = int(densrtgt) + if(idensrtgt==ndensrtgt) then + idensrtgt = idensrtgt - 1 + denwt1 = 0.0 + denwt2 = 1.0 + else + denwt2 = densrtgt - float(idensrtgt) + denwt1 = float(idensrtgt+1) - densrtgt + endif + + !Determine mean mass index + riemb = 1. + ch2(lhcat,ngr) * log10(emb(k,lcat)/emb0(lcat)) + if(int(riemb)<1 .or. int(riemb)>nembfall)then + print*,'Bad sedimentation mean mass index.' + stop + endif + + !Limiting iemb to max of nembfall + set interpolation weights + iemb1 = int(riemb) !mean mass index + if(iemb1==nembfall) then + iemb1 = iemb1 - 1 + embwt1 = 0.0 + embwt2 = 1.0 + else + embwt2 = riemb - float(iemb1) + embwt1 = float(iemb1+1) - riemb + endif + + if (k <= maxkfall) then + psfctemp1 = denwt1 * & + ( bwt1 * (embwt1 * sfcpcp(k,iemb1 ,lhcat,idensrtgt ,iband) & + + embwt2 * sfcpcp(k,iemb1+1,lhcat,idensrtgt ,iband)) & + + bwt2 * (embwt1 * sfcpcp(k,iemb1 ,lhcat,idensrtgt ,iband+1) & + + embwt2 * sfcpcp(k,iemb1+1,lhcat,idensrtgt ,iband+1)) ) + psfctemp2 = denwt2 * & + ( bwt1 * (embwt1 * sfcpcp(k,iemb1 ,lhcat,idensrtgt+1,iband) & + + embwt2 * sfcpcp(k,iemb1+1,lhcat,idensrtgt+1,iband)) & + + bwt2 * (embwt1 * sfcpcp(k,iemb1 ,lhcat,idensrtgt+1,iband+1) & + + embwt2 * sfcpcp(k,iemb1+1,lhcat,idensrtgt+1,iband+1)) ) + psfc = rolddn0 * (psfctemp1 + psfctemp2) + !Aerosol accumulation + if(iccnlev>=2) psfcaero = cnmold * (psfctemp1 + psfctemp2) + if(iccnlev>=2 .and. itrkdust==1) psfcdust = dnmold*(psfctemp1+psfctemp2) + endif + + do kkf = 1,min(maxkfall,k-1) + kk = k + 1 - kkf + pctemp1 = denwt1 * & + ( bwt1 * (embwt1 * pcpfillc(k,kkf,iemb1 ,lhcat,idensrtgt ,iband) & + + embwt2 * pcpfillc(k,kkf,iemb1+1,lhcat,idensrtgt ,iband)) & + + bwt2 * (embwt1 * pcpfillc(k,kkf,iemb1 ,lhcat,idensrtgt ,iband+1) & + + embwt2 * pcpfillc(k,kkf,iemb1+1,lhcat,idensrtgt ,iband+1)) ) + pctemp2 = denwt2 * & + ( bwt1 * (embwt1 * pcpfillc(k,kkf,iemb1 ,lhcat,idensrtgt+1,iband) & + + embwt2 * pcpfillc(k,kkf,iemb1+1,lhcat,idensrtgt+1,iband)) & + + bwt2 * (embwt1 * pcpfillc(k,kkf,iemb1 ,lhcat,idensrtgt+1,iband+1) & + + embwt2 * pcpfillc(k,kkf,iemb1+1,lhcat,idensrtgt+1,iband+1)) ) + prtemp1 = denwt1 * & + ( bwt1 * (embwt1 * pcpfillr(k,kkf,iemb1 ,lhcat,idensrtgt ,iband) & + + embwt2 * pcpfillr(k,kkf,iemb1+1,lhcat,idensrtgt ,iband)) & + + bwt2 * (embwt1 * pcpfillr(k,kkf,iemb1 ,lhcat,idensrtgt ,iband+1) & + + embwt2 * pcpfillr(k,kkf,iemb1+1,lhcat,idensrtgt ,iband+1)) ) + prtemp2 = denwt2 * & + ( bwt1 * (embwt1 * pcpfillr(k,kkf,iemb1 ,lhcat,idensrtgt+1,iband) & + + embwt2 * pcpfillr(k,kkf,iemb1+1,lhcat,idensrtgt+1,iband)) & + + bwt2 * (embwt1 * pcpfillr(k,kkf,iemb1 ,lhcat,idensrtgt+1,iband+1) & + + embwt2 * pcpfillr(k,kkf,iemb1+1,lhcat,idensrtgt+1,iband+1)) ) + cnew(kk) = cnew(kk) + colddn0 * dn0i(kk) * (pctemp1 + pctemp2) + rnew(kk) = rnew(kk) + rolddn0 * dn0i(kk) * (prtemp1 + prtemp2) + qrnew(kk) = qrnew(kk) + qrolddn0 * dn0i(kk) * (prtemp1 + prtemp2) + !Aerosol and solubility tracking + if(iccnlev>=2) then + cnmnew(kk) = cnmnew(kk) + cnmold * dn0i(kk) * (prtemp1 + prtemp2) + if(itrkepsilon==1) snmnew(kk) = snmnew(kk) + snmold * dn0i(kk) & + * (prtemp1 + prtemp2) + if(itrkdust==1) dnmnew(kk) = dnmnew(kk) + dnmold * dn0i(kk) & + * (prtemp1 + prtemp2) + if(itrkdustifn==1) dinnew(kk) = dinnew(kk) + dinold * dn0i(kk) & + * (prtemp1 + prtemp2) + endif + !For tracking immersion freezing nuclei + if(iifn==3 .and. iccnlev>=1 .and. (lcat==1.or.lcat==2.or.lcat==8)) & + immernew(kk) = immernew(kk) + immerold * dn0i(kk) * (pctemp1 + pctemp2) + enddo + + !Surface Precip rate + if (k <= maxkfall) then + qpcpg = qpcpg + psfc * qx(k,lcat) + pcprx(lcat) = pcprx(lcat) + psfc + !Aerosol accumulation + if(iccnlev>=2) & + pcpraerox(lcat) = pcpraerox(lcat) + psfcaero + if(iccnlev>=2 .and. itrkdust==1) & + pcprdustx(lcat) = pcprdustx(lcat) + psfcdust + endif + + !Precip rate at all levels (mm/s) + pcpvxtemp1 = denwt1 * & + ( bwt1 * (embwt1 * allpcp(k,iemb1 ,lhcat,idensrtgt ,iband) & + + embwt2 * allpcp(k,iemb1+1,lhcat,idensrtgt ,iband)) & + + bwt2 * (embwt1 * allpcp(k,iemb1 ,lhcat,idensrtgt ,iband+1) & + + embwt2 * allpcp(k,iemb1+1,lhcat,idensrtgt ,iband+1)) ) + pcpvxtemp2 = denwt2 * & + ( bwt1 * (embwt1 * allpcp(k,iemb1 ,lhcat,idensrtgt+1,iband) & + + embwt2 * allpcp(k,iemb1+1,lhcat,idensrtgt+1,iband)) & + + bwt2 * (embwt1 * allpcp(k,iemb1 ,lhcat,idensrtgt+1,iband+1) & + + embwt2 * allpcp(k,iemb1+1,lhcat,idensrtgt+1,iband+1)) ) + pcpvx(k,lcat)= rolddn0 * dtlti * (pcpvxtemp1 + pcpvxtemp2) + + endif +enddo + +pcpg = pcpg + pcprx(lcat) +accpx(lcat) = pcprx(lcat) +dpcpg = dpcpg + pcprx(lcat) * alphasfc +pcprx(lcat) = pcprx(lcat) * dtlti + +!Aerosol accumulation tracking +if(iccnlev>=2) then + !Accumulate total aerosol on surface (kg/m2) + accpaerox(lcat) = pcpraerox(lcat) + pcpraerox(lcat) = pcpraerox(lcat) * dtlti + !Accumulate dust on surface (kg/m2) + if(itrkdust==1) then + accpdustx(lcat) = pcprdustx(lcat) + pcprdustx(lcat) = pcprdustx(lcat) * dtlti + endif +endif + +do k = 2,k2 + rtp(k) = rtp(k) + rnew(k) - rx(k,lcat) + qnew = qrnew(k) / max(1.e-20, rnew(k)) + + tairc(k) = tairc(k) - thp(k) * thp(k) & + * (2820. * (rnew(k) - rx(k,lcat)) & + - cpi * (qrnew(k) - qx(k,lcat) * rx(k,lcat))) & + / (max(tair(k), 253.) * theta(k)) + + rx(k,lcat) = rnew(k) + cx(k,lcat) = cnew(k) + qx(k,lcat) = qnew + + !Aerosol and solubility tracking + if(iccnlev>=2) then + cnmhx(k,lcat) = cnmnew(k) + if(itrkepsilon==1) snmhx(k,lcat) = snmnew(k) + if(itrkdust==1) dnmhx(k,lcat) = dnmnew(k) + if(itrkdustifn==1) dinhx(k,lcat) = dinnew(k) + endif + + !For tracking immersion freezing nuclei + if(iifn==3 .and. iccnlev>=1 .and. (lcat==1.or.lcat==2.or.lcat==8)) & + immerhx(k,lcat) = immernew(k) + + if(rx(k,lcat) < rxmin) then + rx(k,lcat) = 0. + cx(k,lcat) = 0. + qx(k,lcat) = 0. + pcpvx(k,lcat) = 0. + !Aerosol and solubility tracking + if(iccnlev>=2) then + cnmhx(k,lcat) = 0. + if(itrkepsilon==1) snmhx(k,lcat) = 0. + if(itrkdust==1) dnmhx(k,lcat) = 0. + if(itrkdustifn==1) dinhx(k,lcat) = 0. + endif + !For tracking immersion freezing nuclei + if(iifn==3 .and. iccnlev>=1 .and. (lcat==1.or.lcat==2.or.lcat==8)) & + immerhx(k,lcat) = 0. + endif +enddo + +return +END SUBROUTINE sedim_trubin diff --git a/src/6.2.16/micro/mic_nuc.f90 b/src/6.2.16/micro/mic_nuc.f90 new file mode 100644 index 0000000..daf9c4e --- /dev/null +++ b/src/6.2.16/micro/mic_nuc.f90 @@ -0,0 +1,1039 @@ +!############################################################################## +Subroutine cldnuc (m1,k1cnuc,k2cnuc,k1dnuc,k2dnuc,rv,wp,i,j,dn0) + +use micphys +use mem_grid + +implicit none + +integer :: m1,i,j,k,k1cnuc,k2cnuc,k1dnuc,k2dnuc & + ,jtemp,jw,jconcen,rgccn1,ctc,epsnum,epstab,drop +real :: rnuc,excessrv,rcnew,vaprccn,num_ccn_ifn,epstemp +real, dimension(m1) :: rv,wp,dn0 +real :: tairc_nuc,w_nuc,rg_nuc,tab,sfcareatotal +real :: rjw,wtw1,wtw2,rjconcen,wtcon1,wtcon2,jrg1,jrg2,eps1,eps2 +real :: total_cld_nucc,total_drz_nucc,total_cld_nucr,total_drz_nucr +real, dimension(9) :: concen_tab + +!Re-set cloud layer before nucleation +k1cnuc = 2 +k2cnuc = 1 +!Re-set drizzle layer before nucleation if number prognostic +if(jnmb(8)>=5)then + k1dnuc = 2 + k2dnuc = 1 +else + k1dnuc = m1 + k2dnuc = 1 +endif + +!********************************************************* +!***** If NOT pronosing number concentration of cloud1**** +!********************************************************* +if (jnmb(1) == 1 .or. jnmb(1) == 4) then + rnuc = parm(1) * emb0(1) + do k = 2,m1-1 + excessrv = rv(k) - 1.0001 * rvlsair(k) + rcnew = 0. + if (excessrv > 0.) then + rcnew = min(rnuc,.5*excessrv) + rx(k,1) = rx(k,1) + rcnew + rv(k) = rv(k) - rcnew + k2cnuc = k + cx(k,1) = min(parm(1),rx(k,1) / emb0(1)) + if(imbudget >= 1) then + xnuccldrt(k) = xnuccldrt(k) + rcnew * budget_scalet + endif + elseif (k2cnuc == 1) then + k1cnuc = k + 1 + endif + enddo + +!************************************************************************* +!Saleeby(6/3/02) Prognosing number concentration of cloud and drizzle **** +!************************************************************************* +elseif (jnmb(1) >= 5) then + do k = 2,m1-1 + + !Do tolerance check for all aerosol types + CALL prenuc_ccn (k,i,j) + + !Set temp variable to zero to carry potential IN concentration + !as calculated in prenuc_ifn from aerosol distributions. + total_in(k) = 0.0 + + excessrv = rv(k) - 1.0001 * rvlsair(k) + if (excessrv > 0.) then + + !Set aside ice nuclei for DeMott scheme and recomute aerosol stats + if(iifn==3) CALL prenuc_ifn (m1,k,dn0,rv) + +!**********LOOP OVER CCN, GCCN, 2 DUST MODES, 3 SALT MODES *************** + !Use the acat loop for turning on aerosol nucleation + do acat=1,aerocat + + concen_tab(acat) = 0.0 + concen_nuc = 0.0 + + if((acat==1) .or. & ! CCN + (acat==2) .or. & ! GCCN + (acat==3 .and. idust>0) .or. & ! Small dust mode + (acat==4 .and. idust>0) .or. & ! Large dust mode + (acat==5 .and. isalt>0) .or. & ! Salt film mode + (acat==6 .and. isalt>0) .or. & ! Salt jet mode + (acat==7 .and. isalt>0) .or. & ! Salt spume mode + (acat==8 .and. iccnlev>=2) .or. & ! Small regenerated aerosol + (acat==9 .and. iccnlev>=2)) then ! Large regenerated aerosol + + !Assign aerosol specs to local arrays + concen_nuc = aerocon(k,acat) + aeromass = aeromas(k,acat) + rg = aero_rg(acat) + epsil = aero_epsilon(acat) + + !Aerosol and solubility tracking + if(iccnlev>=2 .and. itrkepsilon==1 .and. (acat==8.or.acat==9) & + .and. aeromas(k,acat)>0.) & + epsil = min(1.0,regenmas(k,acat-7)/aeromas(k,acat)) + + !Temporary check to make sure regensol is not > regen + if(acat==8.or.acat==9)then + if(regenmas(k,acat-7) > aeromas(k,acat))then + print*,'Soluble regenerated mass > Regenerated mass' & + ,acat,k,i,j,regenmas(k,acat-7)/aeromas(k,acat) & + ,regenmas(k,acat-7),aeromas(k,acat) + endif + endif + + !If not removing aerosols, subtract off Ice nuclei amount + if(iifn==3 .and. iccnlev==0)then + concen_nuc = concen_nuc - totifnn(k,acat) + endif + + !Only nucleate if aerosols are populous + if(concen_nuc > mincon .and. aeromass > minmas) then + + !**************TEMPERATURE DEPENDENCY********************************* + tairc_nuc = tairc(k) + if (tairc_nuc < -30.) then + tairc_nuc = -30. + elseif (tairc_nuc > 30.) then + tairc_nuc = 30. + endif + jtemp = nint(.1 * (tairc_nuc + 30.)) + 1 + !*******VERTICAL VELOCITY DEPENDENCY********************************** + w_nuc = wp(k) + if (w_nuc < .010001) then + w_nuc = .010001 + elseif (w_nuc > 99.99) then + w_nuc = 99.99 + endif + rjw = 2. * log10(100. * w_nuc) + 1. + jw = int(rjw) + wtw2 = rjw - float(jw) + wtw1 = 1. - wtw2 + !********** AEROSOL NUMBER, MASS, & MEDIAN RADIUS CONSTRAINTS ******** + rjconcen = max(1., min(7., 2. * log10(1.e-7 * concen_nuc) + 1.)) + jconcen = int(rjconcen) + wtcon2 = rjconcen - float(jconcen) + wtcon1 = 1. - wtcon2 + !********** MEDIAN RADIUS DEPENDENCY FOR CCN ************************* + rg_nuc = rg + if (rg_nuc < 0.01e-6) then + rg_nuc = 0.011e-6 + elseif (rg_nuc > 0.96e-6) then + rg_nuc = 0.959e-6 + endif + do rgb=1,maxrg-1 + if((rg_nuc>=rg_ccn(rgb)) .and. (rg_nuc<=rg_ccn(rgb+1))) then + rgccn1=rgb + jrg2 = (rg_nuc-rg_ccn(rgb)) / (rg_ccn(rgb+1)-rg_ccn(rgb)) + jrg1 = 1. - jrg2 + endif + enddo + !********** EPSILON SOLUBILITY FRACTION FOR CCN ********************** + !Determine weights for interpolating between epsilon table values + epstemp = epsil + if (epsil < 0.05) then + epsil = 0.05 + elseif (epsil > 1.00) then + epsil = 1.00 + endif + do epsnum=1,maxeps-1 + if((epsil>=epsfrac(epsnum)) .and. (epsil<=epsfrac(epsnum+1))) then + epstab=epsnum + eps2 = (epsil-epsfrac(epsnum)) / (epsfrac(epsnum+1)-epsfrac(epsnum)) + eps1 = 1. - eps2 + endif + enddo + !Reduce nucleation fraction for very small solubility + epstemp = max(0.0,min(1.0,log10(epstemp*100. + 1.0))) + !******************* DETERMINE LOOKUP TABLE VALUES ******************* + tab=0.0 + if(iaero_chem(acat)==1) then + CALL aero_nuc_tab_nh42so4 (rv(k),rvlsair(k),eps1,eps2,wtw1,wtw2,wtcon1 & + ,wtcon2,jrg1,jrg2,epstab,jw,jconcen,jtemp,rgccn1,tab) + elseif(iaero_chem(acat)==2) then + CALL aero_nuc_tab_nacl (rv(k),rvlsair(k),eps1,eps2,wtw1,wtw2,wtcon1 & + ,wtcon2,jrg1,jrg2,epstab,jw,jconcen,jtemp,rgccn1,tab) + endif + concen_tab(acat) = concen_nuc * tab * epstemp + + endif !if concen_nuc > mincon + endif !if acat aerosol type is valid + enddo !looping over aerocat + +!****Compute total surface areas and particle percentage of total************* + sfcareatotal=0.0 + do acat=1,aerocat + aero_ratio(acat) = 0.0 ! Aerosol fraction + aero_vap(acat) = 0.0 ! Total surface area of aerosol category + if((acat==1) .or. & ! CCN + (acat==2) .or. & ! GCCN + (acat==3 .and. idust>0) .or. & ! Small dust mode + (acat==4 .and. idust>0) .or. & ! Large dust mode + (acat==5 .and. isalt>0) .or. & ! Salt film mode + (acat==6 .and. isalt>0) .or. & ! Salt jet mode + (acat==7 .and. isalt>0) .or. & ! Salt spume mode + (acat==8 .and. iccnlev>=2) .or. & ! Small regenerated aerosol + (acat==9 .and. iccnlev>=2)) then ! Large regenerated aerosol + if(aerocon(k,acat) > mincon) then + aero_vap(acat) = (4.0 * 3.14159 * aero_rg(acat)**2) * concen_tab(acat) + sfcareatotal = sfcareatotal + aero_vap(acat) + endif + endif + enddo + if(sfcareatotal > 0.0) then + do acat=1,aerocat + aero_ratio(acat) = aero_vap(acat) / sfcareatotal + enddo + endif + +!*********FOR NUMBER CONCENTRATION PREDICTION OF CLOUD *********************** + total_cld_nucc=0.0 + total_drz_nucc=0.0 + total_cld_nucr=0.0 + total_drz_nucr=0.0 + do acat=1,aerocat + ctc = 0 + if((acat==1) .or. & ! CCN + (acat==2) .or. & ! GCCN + (acat==3 .and. idust>0) .or. & ! Small dust mode + (acat==4 .and. idust>0) .or. & ! Large dust mode + (acat==5 .and. isalt>0) .or. & ! Salt film mode + (acat==6 .and. isalt>0) .or. & ! Salt jet mode + (acat==7 .and. isalt>0) .or. & ! Salt spume mode + (acat==8 .and. iccnlev>=2) .or. & ! Small regenerated aerosol + (acat==9 .and. iccnlev>=2)) then ! Large regenerated aerosol + !Assign aerosol specs to local arrays + concen_nuc = aerocon(k,acat) + aeromass = aeromas(k,acat) + rg = aero_rg(acat) + rhosol = aero_rhosol(acat) + cldrat = aero_ratio(acat) + epsil = aero_epsilon(acat) + + !Aerosol and solubility tracking + if(iccnlev>=2 .and. itrkepsilon==1 .and. (acat==8.or.acat==9) & + .and. aeromas(k,acat)>0.) & + epsil = min(1.0,regenmas(k,acat-7)/aeromas(k,acat)) + + !If not removing aerosols, subtract off Ice nuclei amount + if(iifn==3 .and. iccnlev==0)then + concen_nuc = concen_nuc - totifnn(k,acat) + aeromass = aeromass - totifnm(k,acat) + endif + + if(concen_tab(acat) > mincon) ctc=1 !If #/kg > mincon, nucleate + + if(ctc==1) then + + !Vapor allocated to a given aerosol species + vaprccn = 0.5*excessrv*cldrat !Sum of all nucleation <= 1/2 excessrv + + !Determine if nucleated droplets go to cloud or drizzle + drop=1 + if(rg <= 0.96e-6) drop=1 !Nucleate to small droplet mode + if(rg > 0.96e-6 .and. jnmb(8)>=5) drop=8 !Nucleate to drizzle mode + + !Keep nucleated droplets in size bounds + if(concen_tab(acat) > vaprccn / emb0(drop)) concen_tab(acat) = vaprccn / emb0(drop) + if(concen_tab(acat) < vaprccn / emb1(drop)) vaprccn = concen_tab(acat) * emb1(drop) + +!Nucleate to 2-micron diameter droplets whose mass is emb0 +!if(concen_tab(acat) * emb0(drop) <= vaprccn) vaprccn=concen_tab(acat) * emb0(drop) + + !Accumulated nucleated particles if not removing them + if(iccnlev==0) then + if(drop==1)total_cld_nucc = total_cld_nucc + concen_tab(acat) + if(drop==1)total_cld_nucr = total_cld_nucr + vaprccn + if(drop==8)total_drz_nucc = total_drz_nucc + concen_tab(acat) + if(drop==8)total_drz_nucr = total_drz_nucr + vaprccn + endif + + !Add nucleated cloud water and number here if removing aerosol + if(iccnlev>=1)then + cx(k,drop) = cx(k,drop) + concen_tab(acat) + rx(k,drop) = rx(k,drop) + vaprccn + + !Nucleation budget diagnostics + if(imbudget >= 1) then + xnuccldrt(k) = xnuccldrt(k) + vaprccn * budget_scalet + endif + !Dust Budget diagnostics + if(acat==3 .and. drop==1 .and. imbudget==3 .and. idust >= 1) & + xdust1cldrt(k) = xdust1cldrt(k) + vaprccn * budget_scalet + if(acat==3 .and. drop==8 .and. imbudget==3 .and. idust >= 1) & + xdust1drzrt(k) = xdust1drzrt(k) + vaprccn * budget_scalet + if(acat==4 .and. drop==1 .and. imbudget==3 .and. idust >= 1) & + xdust2cldrt(k) = xdust2cldrt(k) + vaprccn * budget_scalet + if(acat==4 .and. drop==8 .and. imbudget==3 .and. idust >= 1) & + xdust2drzrt(k) = xdust2drzrt(k) + vaprccn * budget_scalet + + !Convert units for setting up lognormal distribution + concen_tab(acat) = concen_tab(acat) * dn0(k) !Convert #/kg to #/m3 + concen_nuc = concen_nuc * dn0(k) !Convert #/kg to #/m3 + aeromass = aeromass * dn0(k) !Convert kg/kg to kg/m3 + + !For determining mass of distirubtion to remove, use "concen_nuc" + !Doing size specific removal. Preferentially remove larger particles. + !Set up binned distribution masses(kg) and sizes(meters) + if(rg<=0.015e-6) then + rmsma = 1.0e-23 + rmlar = 2.0e-16 + elseif(rg>0.015e-6 .and. rg<=0.03e-6) then + rmsma = 1.0e-22 + rmlar = 2.0e-15 + elseif(rg>0.03e-6 .and. rg<=0.04e-6) then + rmsma = 1.0e-21 + rmlar = 2.0e-14 + elseif(rg>0.04e-6 .and. rg<=0.08e-6) then + rmsma = 3.0e-21 + rmlar = 6.0e-14 + elseif(rg>0.08e-6 .and. rg<=0.16e-6) then + rmsma = 5.0e-20 + rmlar = 1.0e-12 + elseif(rg>0.16e-6 .and. rg<=0.32e-6) then + rmsma = 5.0e-19 + rmlar = 1.0e-11 + elseif(rg>0.32e-6 .and. rg<=0.64e-6) then + rmsma = 1.0e-18 + rmlar = 2.0e-11 + elseif(rg>0.64e-6 .and. rg<=0.96e-6) then + rmsma = 1.0e-17 + rmlar = 2.0e-10 + elseif(rg>0.96e-6 .and. rg<=2.00e-6) then + rmsma = 3.0e-17 + rmlar = 6.0e-10 + elseif(rg>2.00e-6 .and. rg<=3.00e-6) then + rmsma = 1.0e-16 + rmlar = 2.0e-09 + elseif(rg>3.00e-6 .and. rg<=4.00e-6) then + rmsma = 7.0e-16 + rmlar = 1.5e-08 + elseif(rg>4.00e-6 .and. rg<=5.00e-6) then + rmsma = 7.0e-16 + rmlar = 1.5e-08 + elseif(rg>5.00e-6 .and. rg<=6.00e-6) then + rmsma = 1.0e-15 + rmlar = 2.0e-08 + elseif(rg>6.00e-6) then + rmsma = 1.0e-15 + rmlar = 2.0e-08 + endif + + !Set up binned distribution concentration + power = alog10(rmsma/rmlar) / float(itbin-1) + do ic=1,itbin + !bin radius equals [(3/4) x (1/pi) x (1/rho) x mass of bin] ^ (1/3) + smass(ic) = rmlar * 10.**(float(ic-1) * power) !solute masses (kg) + binrad(ic)=(0.23873/rhosol*smass(ic))**(.33333) !radius (meters) + enddo + + !Loop thru bins to determine amount of mass to remove based on number. + !This removes from the large end of the distribution first and works toward + !the smaller end with the assumption that larger particles activate first + ccnmass = 0.0 !Variable ccnmass is kg/m3 + num_ccn_ifn = 0.0 !Number of particles > 0.25 microns radius + do ic=1,itbin-1 + rcm=0.5*(binrad(ic)+binrad(ic+1)) + ccncon(ic) = concen_nuc/(1.47336267*rcm)*exp(-(alog(rcm/rg))**2/0.6909863) + ccncon(ic) = 1.00032 * ccncon(ic)*(binrad(ic)-binrad(ic+1)) + ccnmas(ic) = 0.920 * smass(ic) * ccncon(ic) + if(ic>1)then + ccncon(ic) = ccncon(ic) + ccncon(ic-1) + ccnmas(ic) = ccnmas(ic) + ccnmas(ic-1) + endif + !Track immersion freezing droplets that contain large CCN, GCCN, or DUST + ! Do not track immersion freezing for salt species (acat=5,6,7) + if(iifn==3.and.(acat==1.or.acat==2.or.acat==3.or.acat==4.or.acat==8.or.acat==9) & + .and. rcm > 0.25e-6 .and. ic>1) num_ccn_ifn=ccncon(ic-1) + !Track the amount of aerosol mass contained within new droplets + if(ccncon(ic)>=concen_tab(acat) .or. ccnmas(ic)>=aeromass .or. ic==itbin-1) then + !Further immersion freezing tracking for (acat=1,2,3,4,8,9) + if(iifn==3.and.(acat==1.or.acat==2.or.acat==3.or.acat==4.or.acat==8.or.acat==9) & + .and. rcm > 0.25e-6 .and. ic>1) num_ccn_ifn=concen_tab(acat) + ccnmass=ccnmas(ic-1) + go to 111 + endif + enddo +111 continue + + !If either is zero, set both to zero + if(concen_tab(acat)==0.0 .or. ccnmass==0.0) then + concen_tab(acat)=0.0 + ccnmass=0.0 + endif + + !Convert #/m3 back to #/kg and kg/m3 back to kg/kg + concen_tab(acat) = concen_tab(acat) / dn0(k) !Convert #/m3 to #/kg + ccnmass = ccnmass / dn0(k) !Convert kg/m3 to kg/kg + num_ccn_ifn = num_ccn_ifn / dn0(k) !Convert #/m3 to #/kg + + !Subtract off aerosol mass and number and keep both + or zero + aerocon(k,acat) = aerocon(k,acat) - concen_tab(acat) + aeromas(k,acat) = aeromas(k,acat) - ccnmass + if(aerocon(k,acat)<=0.0 .or. aeromas(k,acat)<=0.0) then + aerocon(k,acat) = 0.0 + aeromas(k,acat) = 0.0 + endif + + !Aerosol and solubility tracking + if(iccnlev>=2)then + cnmhx(k,drop) = cnmhx(k,drop) + ccnmass + if(itrkepsilon==1) then + snmhx(k,drop) = snmhx(k,drop) + ccnmass * epsil + if(acat==8.or.acat==9) & + regenmas(k,acat-7) = regenmas(k,acat-7) - ccnmass * epsil + endif + if(itrkdust==1 .and. (acat==3 .or. acat==4)) & + dnmhx(k,drop) = dnmhx(k,drop) + ccnmass + endif + + !Store number of large particles for immersion freezing + !if (1) 2-moment cloud, (2) iccnlev>=1, (3) iifn==3 + if(iifn==3) then + immerhx(k,drop) = immerhx(k,drop) + num_ccn_ifn !#/kg + total_in(k) = total_in(k) - num_ccn_ifn + endif + + endif !if ICCNLEV>=1 then remove aerosol mass + endif !if ctc==1 + endif !if acat aerosol type is valid + enddo !loop over acat 1 to aerocat + + !If not removing aerosol, only add number in excess of droplet number + if(iccnlev==0) then + total_cld_nucc = max(0.,total_cld_nucc - cx(k,1)) + total_drz_nucc = max(0.,total_drz_nucc - cx(k,8)) + if(total_cld_nucc > total_cld_nucr / emb0(1)) & + total_cld_nucc = total_cld_nucr / emb0(1) + if(total_cld_nucc < total_cld_nucr / emb1(1)) & + total_cld_nucr = total_cld_nucc * emb1(1) + cx(k,1) = cx(k,1) + total_cld_nucc + rx(k,1) = rx(k,1) + total_cld_nucr + if(total_drz_nucc > total_drz_nucr / emb0(8)) & + total_drz_nucc = total_drz_nucr / emb0(8) + if(total_drz_nucc < total_drz_nucr / emb1(8)) & + total_drz_nucr = total_drz_nucc * emb1(8) + cx(k,8) = cx(k,8) + total_drz_nucc + rx(k,8) = rx(k,8) + total_drz_nucr + !Nucleation budget diagnostics + if(imbudget >= 1) then + xnuccldrt(k) = xnuccldrt(k) & + + (total_cld_nucr + total_drz_nucr) * budget_scalet + endif + endif + + endif !if excess vapor + + !Update cloud layer following nucleation + if (rx(k,1) .ge. rxmin) k2cnuc = k + if (k2cnuc .eq. 1 .and. rx(k,1) .lt. rxmin) k1cnuc = k + 1 + !Update drizzle layer following nucleation if number prognostic + if(jnmb(8)>=5) then + if (rx(k,8) .ge. rxmin) k2dnuc = k + if (k2dnuc .eq. 1 .and. rx(k,8) .lt. rxmin) k1dnuc = k + 1 + endif + + enddo !loop over all vertical levels + +else + print*, 'icloud not allowed to be 2 or 3' + print*, 'stopping model ' + stop 'icloud' +endif !if number prediction of cloud droplets + +return +END SUBROUTINE cldnuc + +!############################################################################## +Subroutine icenuc (m1,kc1,kc2,kd1,kd2,k1pnuc,k2pnuc,ngr,rv,dn0,dtlt,i,j) + +use rconstants +use micphys + +implicit none + +integer :: m1,kc1,kc2,kd1,kd2,k1pnuc,k2pnuc,ngr,k,idnc,itc,irhhz,ithz,lcat,i,j +real :: dn1,fraccld,ridnc,dtlt,ssi0,wdnc2,tc,ritc,wtc2 & + ,pbvi,ptvi,pdvi,ptotvi,fracifn,cldnuc,rhhz,haznuc & + ,rirhhz,wrhhz2,thz,rithz,wthz2,frachaz,ssi,diagni,heterofrac & + ,vapnuc,vapnucr,availvap,cont_nuc,homo_nuc,nucfrac,pcthaze,excessrv + +real :: concen_tab,embtemp,frzc,frzr,tot_in,ifntemp,immerin,immersed + +real, dimension(m1) :: rv,dn0 + +! Define ssi0 to be maximum supersaturation with respect to ice for +! determining total number of IFN that can nucleate in Meyers' formula +data ssi0/0.40/ +save + +! implement paul's immersion freezing of rain here. This would +! replace mike's homogeneous freezing of rain which was in h03. + +!************************************************************************ +!************* CLOUD DROPLET HOMOGENEOUS ICE NUCLEATION****************** +!************************************************************************ +do k = kc1,kc2 + + !If cloud water exists at a minimum quantity + if (rx(k,1) .gt. 1.e-10) then + + !define dn locally from emb + dn1 = dnfac(1) * emb(k,1) ** pwmasi(1) + fraccld=0. + if (rx(k,1) .gt. 1.e-10 .and. tairc(k) .le. -30.01) then + ridnc = max(1.,min(float(ndnc-1),dn1 / ddnc)) + idnc = int(ridnc) + wdnc2 = ridnc - float(idnc) + tc = max(-49.99,tairc(k)) + ritc = (tc + 50.00) / dtc + 1.0 + itc = int(ritc) + wtc2 = ritc - float(itc) + fraccld = (1.-wdnc2) * (1.-wtc2) * fracc(idnc ,itc ,ngr) & + + wdnc2 * (1.-wtc2) * fracc(idnc+1,itc ,ngr) & + + (1.-wdnc2) * wtc2 * fracc(idnc ,itc+1,ngr) & + + wdnc2 * wtc2 * fracc(idnc+1,itc+1,ngr) + if(fraccld > 0.990) fraccld=1.0 + endif + +! Heterogeneous contact ice nucleation of cloud droplets by diffusio- +! phoresis, thermophoresis, and Brownian motion (transport of IN) + CALL contnuc (rx(k,1),cx(k,1),tx(k,1),vap(k,1),press(k) & + ,dynvisc(k),thrmcon(k),tair(k),tairc(k) & + ,pbvi,ptvi,pdvi,ptotvi,dn1,dtlt) + +! progIFN: Scale ptotvi returned from contnuc by prognosed IFN fraction +!::later ptotvi = ptotvi * fracifn +! MIKE ADDED THIS COMMENTED ccinp(k)=ccinp(k)-ptotvi, but +! probably do not want sink of ccinp here. + !Saleeby(2009): Need separate homogeneous freezing options for + !1-moment and 2-moment cloud and drizzle droplet treatments + if(jnmb(1) < 5) cldnuc = max(0.,fraccld * cx(k,1) - cx(k,3)) + if(jnmb(1) >= 5) cldnuc = max(0.,fraccld * cx(k,1)) + + cont_nuc = ptotvi * emb(k,1) + homo_nuc = fraccld * rx(k,1) + + if(cont_nuc + homo_nuc > rx(k,1)) then + nucfrac=rx(k,1)/(cont_nuc + homo_nuc) + cont_nuc=cont_nuc*nucfrac + homo_nuc=homo_nuc*nucfrac + cldnuc=cldnuc*nucfrac + ptotvi=ptotvi*nucfrac + endif + + !Aerosol and solubility tracking + !Transfering aerosol mass from cloud to pristine ice + if(iccnlev>=2) then + rxferratio = min(1.0, (cont_nuc + homo_nuc) / rx(k,1)) + ccnmass = cnmhx(k,1) * rxferratio + cnmhx(k,1) = cnmhx(k,1) - ccnmass + cnmhx(k,3) = cnmhx(k,3) + ccnmass + if(itrkepsilon==1)then + scnmass = snmhx(k,1) * rxferratio + snmhx(k,1) = snmhx(k,1) - scnmass + snmhx(k,3) = snmhx(k,3) + scnmass + endif + if(itrkdust==1)then + dcnmass = dnmhx(k,1) * rxferratio + dnmhx(k,1) = dnmhx(k,1) - dcnmass + dnmhx(k,3) = dnmhx(k,3) + dcnmass + endif + if(itrkdustifn==1)then + dinmass = dinhx(k,1) * rxferratio + dinhx(k,1) = dinhx(k,1) - dinmass + dinhx(k,3) = dinhx(k,3) + dinmass + endif + endif + + !Remove immersion freezing nuclei from cloud + if(iifn==3 .and. iccnlev>=1 .and. cx(k,1)>0.0) then + enxferratio = min(1.0,max(0.0,(cldnuc+ptotvi)/cx(k,1))) + ccnnum = immerhx(k,1) * enxferratio + immerhx(k,1) = immerhx(k,1) - ccnnum + endif + + rx(k,3) = rx(k,3) + min(rx(k,1),cont_nuc + homo_nuc) + rx(k,1) = rx(k,1) - min(rx(k,1),cont_nuc + homo_nuc) + cx(k,3) = cx(k,3) + min(cx(k,1),cldnuc + ptotvi) + cx(k,1) = cx(k,1) - min(cx(k,1),cldnuc + ptotvi) + + if(imbudget >= 1) then + xnucicert(k) = xnucicert(k) + (cont_nuc + homo_nuc) * budget_scalet + endif + if(imbudget >= 2) then + xinuchomrt(k) = xinuchomrt(k) + homo_nuc * budget_scalet + xinuccontrt(k) = xinuccontrt(k) + cont_nuc * budget_scalet + endif + + endif +enddo + +!************************************************************************ +!************* DRIZZLE DROPLET HOMOGENEOUS ICE NUCLEATION**************** +!************************************************************************ +do k = kd1,kd2 + + !If drizzle water exists at a minimum quantity + if (rx(k,8) .gt. 1.e-10) then + + !define dn locally from emb + dn1 = dnfac(16) * emb(k,8) ** pwmasi(16) + fraccld = 0. + if (rx(k,8) .gt. 1.e-10 .and. tairc(k) .le. -30.01) then + ridnc = max(1.,min(float(ndnc-1),dn1 / ddnc)) + idnc = int(ridnc) + wdnc2 = ridnc - float(idnc) + tc = max(-49.99,tairc(k)) + ritc = (tc + 50.00) / dtc + 1.0 + itc = int(ritc) + wtc2 = ritc - float(itc) + fraccld = (1.-wdnc2) * (1.-wtc2) * fracc(idnc ,itc ,ngr) & + + wdnc2 * (1.-wtc2) * fracc(idnc+1,itc ,ngr) & + + (1.-wdnc2) * wtc2 * fracc(idnc ,itc+1,ngr) & + + wdnc2 * wtc2 * fracc(idnc+1,itc+1,ngr) + if(fraccld > 0.990) fraccld=1.0 + endif + +! Heterogeneous contact ice nucleation of cloud droplets by diffusio- +! phoresis, thermophoresis, and Brownian motion (transport of IN) + CALL contnuc (rx(k,8),cx(k,8),tx(k,8),vap(k,8),press(k) & + ,dynvisc(k),thrmcon(k),tair(k),tairc(k) & + ,pbvi,ptvi,pdvi,ptotvi,dn1,dtlt) + +! progIFN: Scale ptotvi returned from contnuc by prognosed IFN fraction +!::later ptotvi = ptotvi * fracifn +! MIKE ADDED THIS COMMENTED ccinp(k)=ccinp(k)-ptotvi, but +! probably do not want sink of ccinp here. + !Saleeby(2009): Need separate homogeneous freezing options for + !1-moment and 2-moment cloud and drizzle droplet treatments + if(jnmb(8) < 5) cldnuc = max(0.,fraccld * cx(k,8) - cx(k,3)) + if(jnmb(8) >= 5) cldnuc = max(0.,fraccld * cx(k,8)) + + cont_nuc = ptotvi * emb(k,8) + homo_nuc = fraccld * rx(k,8) + + if(cont_nuc + homo_nuc > rx(k,8)) then + nucfrac=rx(k,8)/(cont_nuc + homo_nuc) + cont_nuc=cont_nuc*nucfrac + homo_nuc=homo_nuc*nucfrac + cldnuc=cldnuc*nucfrac + ptotvi=ptotvi*nucfrac + endif + + !Aerosol and solubility tracking + !Transfering aerosol mass from drizzle to pristine ice + if(iccnlev>=2) then + rxferratio = min(1.0,(cont_nuc + homo_nuc) / rx(k,8)) + ccnmass = cnmhx(k,8) * rxferratio + cnmhx(k,8) = cnmhx(k,8) - ccnmass + cnmhx(k,3) = cnmhx(k,3) + ccnmass + if(itrkepsilon==1)then + scnmass = snmhx(k,8) * rxferratio + snmhx(k,8) = snmhx(k,8) - scnmass + snmhx(k,3) = snmhx(k,3) + scnmass + endif + if(itrkdust==1)then + dcnmass = dnmhx(k,8) * rxferratio + dnmhx(k,8) = dnmhx(k,8) - dcnmass + dnmhx(k,3) = dnmhx(k,3) + dcnmass + endif + if(itrkdustifn==1)then + dinmass = dinhx(k,8) * rxferratio + dinhx(k,8) = dinhx(k,8) - dinmass + dinhx(k,3) = dinhx(k,3) + dinmass + endif + endif + + !Remove immersion freezing nuclei from cloud + if(iifn==3 .and. iccnlev>=1 .and. cx(k,8)>0.0) then + enxferratio = min(1.0,max(0.0,(cldnuc+ptotvi)/cx(k,8))) + ccnnum = immerhx(k,8) * enxferratio + immerhx(k,8) = immerhx(k,8) - ccnnum + endif + + rx(k,3) = rx(k,3) + min(rx(k,8),cont_nuc + homo_nuc) + rx(k,8) = rx(k,8) - min(rx(k,8),cont_nuc + homo_nuc) + cx(k,3) = cx(k,3) + min(cx(k,8),cldnuc + ptotvi) + cx(k,8) = cx(k,8) - min(cx(k,8),cldnuc + ptotvi) + + if(imbudget >= 1) then + xnucicert(k) = xnucicert(k) + (cont_nuc + homo_nuc) * budget_scalet + endif + if(imbudget >= 2) then + xinuchomrt(k) = xinuchomrt(k) + homo_nuc * budget_scalet + xinuccontrt(k) = xinuccontrt(k) + cont_nuc * budget_scalet + endif + + endif +enddo + +!************************************************************************ +! Homogeneous nucleation of haze +!************************************************************************ +k1pnuc = 2 +k2pnuc = 1 +do k = 2,m1-1 + rhhz = rv(k) / rvlsair(k) + haznuc = 0. + if (rhhz .gt. 0.82 .and. tairc(k) .le. -35.01) then + rirhhz = min(0.1799,rhhz-0.82) / drhhz + 1.0 + irhhz = int(rirhhz) + wrhhz2 = rirhhz - float(irhhz) + thz = max(-59.99,tairc(k)) + rithz = (thz + 60.00) / dthz + 1.0 + ithz = int(rithz) + wthz2 = rithz - float(ithz) + frachaz = (1.-wrhhz2) * (1.-wthz2) * frachz(irhhz ,ithz ) & + + wrhhz2 * (1.-wthz2) * frachz(irhhz+1,ithz ) & + + (1.-wrhhz2) * wthz2 * frachz(irhhz ,ithz+1) & + + wrhhz2 * wthz2 * frachz(irhhz+1,ithz+1) + frachaz = 1. - exp(-frachaz * dtlt) + + !Saleeby(2009): Haze nuclei can be too plentiful here compared + ! to reality. For 2-moment cloud droplet prediction I scale the + ! haze nuclei to the CCN concentration. Need better option here. + ! Need haznuc in #/kg + if(jnmb(1)>=5) haznuc = frachaz * aerocon(k,1) + if(jnmb(1)< 5) haznuc = frachaz * 300.e6 + endif + +!************************************************************************ +! Heterogeneous nucleation by immersion deposition condensation freezing +!************************************************************************ + !use Meyers formula CIFNX(#/kg) + diagni=0.0 + fracifn=0.0 + if(iifn==1) then + ssi = min(ssi0,rv(k) / rvisair(k) - 1.) + if (ssi .gt. 0. .and. tairc(k) .le. -5.) then + !Meyers formula + fracifn = exp(12.96 * (ssi - ssi0)) + !DeMott SPL modification + !fracifn = (10 ** (-4.077421 * ssi + 0.097562)) * fracifn + !Turn off traditional IN heterogeneous nucleation + diagni = fracifn * cifnx(k) + else + diagni = 0.0 + endif + !use DeMott(2010) IN nucleation NIFN(#/kg) from PPARM + elseif(iifn==2) then + excessrv = rv(k) - 1.0001 * rvlsair(k) + if (excessrv > 0. .and. tairc(k) < 0.0) then + !Convert tot_in from #/kg to #/cm3 + tot_in = cifnx(k) * dn0(k) / 1.e6 + !Convert to STP + !Nc(STP) = Nc * (101300(Pa) * T(K)) / (Pressure * 273.2(K)) + !P=rho*Rd*T + !Nc(STP) = Nc * (101300(Pa)/273.2(K)) * [1/(dn0*287(J/kg/k))] + tot_in = tot_in*1.29/dn0(k) + + !Input aerosols in #/cm3 and outputs #/L activated + if(iifn_formula==1) then + !Original Demott(2010) formula + nifn(k) = 0.0000594 * (-tairc(k))**3.33 & + * (tot_in)**(0.0264*(-tairc(k))+0.0033) + elseif(iifn_formula==2) then + !Modified Demott(2010) for dust-dominated cases + !Paul suggested an additional factor of 3 multiplier + nifn(k) = 3.0 * 0.0008 * 10 ** (-0.2*(tairc(k)+9.7)) * tot_in ** 1.25 + endif + + !Adjust units and such + nifn(k) = nifn(k)/1.29*dn0(k) !Convert FROM STP + tot_in = tot_in /1.29*dn0(k) !Convert FROM STP + tot_in = tot_in * 1000. !Convert to #/liter + nifn(k) = min(tot_in,nifn(k)) !IFN in #/liter + diagni = nifn(k) * 1.e3 / dn0(k) !Convert to #/kg + else + diagni = 0.0 + endif + !use DeMott(2010) IN nucleation NIFN(#/kg) from aerosol field + elseif(iifn==3) then + excessrv = rv(k) - 1.0001 * rvlsair(k) + if (excessrv > 0.) then + diagni = nifn(k) + else + diagni = 0.0 + endif + endif + + !Orig Meyers formula: + diagni = exp(6.269 + 12.96 * ssi) + !Combine nucleation types, and limit amounts + !vapnuc is #/kg_air and vapnucr is kg/kg_air + !BEGIN MIKE'S SECTION FOR LIMITING NUMBER OF CRYSTALS NUCLEATED + !BY NUMBER OF ICE CRYSTALS PRESENT ALREADY FOR 1-MOMENT MICRO + vapnuc=0.0 + if(jnmb(1)>=5)then + if(iccnlev==0) then + vapnuc = max(0.,haznuc + diagni - cx(k,3)) + elseif(iccnlev>=1 .and. iifn==3) then + vapnuc = max(0.,haznuc + diagni) + elseif(iccnlev>=1 .and. iifn<=2) then + vapnuc = max(0.,haznuc) + vapnuc = vapnuc + max(0.,diagni - cx(k,3)) + endif + else + vapnuc = max(0.,haznuc + diagni - cx(k,3)) + endif + + !Modify haze nucleation and IN nucleation if not enough vapor available + vapnucr = vapnuc * emb0(3) + if (vapnucr .gt. 0.) then + availvap = .5 * (rv(k) - rvisair(k)) + if (vapnucr .gt. availvap) then + vapnucr = min(vapnucr, max(0.,availvap)) + endif + endif + vapnuc = vapnucr / emb0(3) + + !(Saleeby10-17-2011) Determine haze nucleation and IN nucleation + !DeMott(2010) formula already applied for ICLOUD >= 5 + !Allow large DeMott (diagni) particles to preferentially nucleate + !over the haze particles (cccnp) for IIFN==3. Perhaps should include + !all aerosols into potential haze nucleation? + if((haznuc.gt.0.0 .or. diagni.gt.0.0) .and. jnmb(3).ge.5) then + + !Compute and test Haze fraction for DeMott(2010) aerosol micro + if(iifn==3 .and. iccnlev>=1 .and. jnmb(1)>=5) then + heterofrac=(vapnuc-diagni)/max(rxmin,haznuc) + heterofrac = min(1.0,max(0.0,heterofrac)) + !Compute and test Haze fraction for non-aerosol micro + else + heterofrac=(vapnuc)/(haznuc+diagni) + heterofrac = min(1.0,max(0.0,heterofrac)) + diagni = diagni*heterofrac + endif + !Determine Haze fraction + haznuc = haznuc*heterofrac + + !Subtract Haze particles from CCN field (acat==1) and add to tracking mass + if(haznuc>0.0 .and. iccnlev>=1) then + + concen_nuc = aerocon(k,1) + aeromass = aeromas(k,1) + concen_tab = min(concen_nuc,haznuc) + ccnmass = aeromass * (concen_tab/concen_nuc) + concen_tab=max(0.0,min(concen_tab,aerocon(k,1))) + ccnmass=max(0.0,min(ccnmass,aeromas(k,1))) + aerocon(k,1) = aerocon(k,1) - concen_tab + aeromas(k,1) = aeromas(k,1) - ccnmass + + !Aerosol and solubility tracking + if(iccnlev>=2) then + cnmhx(k,3) = cnmhx(k,3) + ccnmass + if(itrkepsilon==1) snmhx(k,3) = snmhx(k,3) + ccnmass * aero_epsilon(1) + endif + + endif + + endif + + !*********************************************************************** + !********** IMMERSION FREEZING OF DROPLETS ***************************** + !*********************************************************************** + !(Saleeby10-17-2011) Run DeMott formula again for immersed-in-cloud IN + !DeMott IN activation based on total number of all aerosol + !greater than 0.5 micron diameter. This is only done if: + !(1) 2-moment cloud, (2) iccnlev>=1, (3) iifn==3 + immerin = 0.0 + if(iifn==3 .and. iccnlev>=1 .and. jnmb(1)>=5) then + + do lcat=1,ncat + if(lcat==1.or.lcat==8.or.lcat==2) then + + frzc = 0.0 + frzr = 0.0 + ifntemp = 0.0 + + !Check immersion nuclei following homogeneous freezing + if(immerhx(k,lcat) > cx(k,lcat)) immerhx(k,lcat) = 0.9999 * cx(k,lcat) + + !If conditions allow for droplet immersion freezing + if(tairc(k) < 0.0 .and. immerhx(k,lcat) > mincon) then + !For DeMott Eqn, the aerosol number to put into the eqn needs to be + !the remaining of unprocessed aerosols > 0.5 microns + the remaining + !aerosols > 0.5 microns contained in droplets + + !the tracked number that have already been ice nucleated + immersed = immerhx(k,1) + immerhx(k,8) + immerhx(k,2) + tot_in = total_in(k) + immersed + ifnnucx(k) + tot_in = tot_in * dn0(k) / 1.e6 !Convert tot_in from #/kg to #/cm3 + tot_in = tot_in*1.29/dn0(k) !Convert TO STP + + !Input aerosols in #/cm3 and outputs #/L activated + if(iifn_formula==1) then + !Original Demott(2010) formula + ifntemp = 0.0000594 * (-tairc(k))**3.33 & + * (tot_in)**(0.0264*(-tairc(k))+0.0033) + elseif(iifn_formula==2) then + !Modified Demott(2010) for dust-dominated cases + !Paul suggested an additional factor of 3 multiplier + ifntemp = 3.0 * 0.0008 * 10 ** (-0.2*(tairc(k)+9.7)) * tot_in ** 1.25 + endif + + !Adjust units and such + ifntemp = ifntemp/1.29*dn0(k) !Convert FROM STP + tot_in = tot_in /1.29*dn0(k) !Convert FROM STP + tot_in = tot_in / dn0(k) * 1.e6 !Convert #/cm3 to #/kg + ifntemp = ifntemp / dn0(k) * 1.e3 !Convert #/L to #/kg + ifntemp = min(tot_in,ifntemp) + + !Limit activation to only the number greater than that already + !activated for the given grid cell parcel. + ifntemp = ifntemp - ifnnucx(k) + if(ifntemp < 0.0) ifntemp = 0.0 + + !Determine freezing number and mixing ratio + embtemp = max(emb0(lcat),min(emb1(lcat),rx(k,lcat) & !mean mass + / max(1.e-6,cx(k,lcat)))) + frzc = min(cx(k,lcat),ifntemp) + frzr = min(rx(k,lcat),frzc * embtemp) + + !Aerosol and solubility tracking + !Transfering immersion freezing aerosol mass from cloud to pristine ice + if(iccnlev>=2) then + rxferratio = min(1.0,frzr/max(rxmin,rx(k,lcat))) + ccnmass = cnmhx(k,lcat) * rxferratio + cnmhx(k,lcat) = cnmhx(k,lcat) - ccnmass + cnmhx(k,3) = cnmhx(k,3) + ccnmass + if(itrkepsilon==1)then + scnmass = snmhx(k,lcat) * rxferratio + snmhx(k,lcat) = snmhx(k,lcat) - scnmass + snmhx(k,3) = snmhx(k,3) + scnmass + endif + if(itrkdust==1)then + dcnmass = dnmhx(k,lcat) * rxferratio + dnmhx(k,lcat) = dnmhx(k,lcat) - dcnmass + dnmhx(k,3) = dnmhx(k,3) + dcnmass + endif + if(itrkdustifn==1)then + !Add new immersion freezing dust mass to dust as IN tracking + dinhx(k,3) = dinhx(k,3) + dcnmass + !Xfer dust mass from liquid hydromet to ice if present + dinmass = dinhx(k,lcat) * rxferratio + dinhx(k,lcat) = dinhx(k,lcat) - dinmass + dinhx(k,3) = dinhx(k,3) + dinmass + endif + endif + + cx(k,lcat) = cx(k,lcat) - frzc + rx(k,lcat) = rx(k,lcat) - frzr + immerhx(k,lcat) = max(0.,immerhx(k,lcat)-frzc) + endif + + !Update nucleation additive arrays for hazenuc and IN nuc + vapnucr = vapnucr + frzr + vapnuc = vapnuc + frzc + immerin = immerin + frzc + ifnnucx(k) = ifnnucx(k) + frzc + + endif + enddo + endif + !*********************************************************************** + + !Add new ice crystals to pristine ice category + rx(k,3) = rx(k,3) + vapnucr + cx(k,3) = cx(k,3) + vapnuc + + pcthaze = haznuc / max(1.e-30,(haznuc + diagni + immerin)) + + if(imbudget >= 1) then + xnucicert(k) = xnucicert(k) + vapnucr * budget_scalet + endif + if(imbudget >= 2) then + xinucifnrt(k) = xinucifnrt(k) + vapnucr * (1.0 - pcthaze) * budget_scalet + xinuchazrt(k) = xinuchazrt(k) + vapnucr * pcthaze * budget_scalet + endif + + if (rx(k,3) .gt. rxmin) k2pnuc = k + if (k2pnuc .eq. 1 .and. rx(k,3) .lt. rxmin) k1pnuc = k + 1 + +enddo + +! here mike has the habit diagnosis. option 1 is to use habit +! at cloud top, option 2 is to use new habit at each level. +! need to consider other options. how about method of formation? +! my question about how much of habit is due to existing ice +! structure, and how much is due to current growth environment +! (temp and supsat). relevant supsat is wrt liquid? + +return +END SUBROUTINE icenuc + +!############################################################################## +Subroutine contnuc (rx,cx,tx,vap,press & + ,dynvisc,thrmcon,tair,tairc,pbvi,ptvi,pdvi,ptotvi,dn1,dtlt) + +implicit none + +real :: rx,cx,tx,vap,press,dynvisc,thrmcon,tair,tairc,pbvi,ptvi,pdvi,ptotvi & + ,dn1,dtlt,aka,raros,ana,akn,dfar,f1,f2,ft +data aka,raros/5.39e-3,3.e-7/ + +! Heterogeneous contact ice nucleation of cloud droplets by diffusio- +! phoresis, thermophoresis, and Brownian motion (transport of IN) +! +! ana = # IN per kg available for contact freezing (from Meyers et al. 1992 +! where ana was interpreted as # per m^3) +! akn = Knudsen number (Walko et al. 1995, Eq. 58) +! [2.28e-5 = mfp * p00 / 293.15] +! raros = aerosol radius = 3.e-7 m from Cotton et al. (1986) +! dfar = aerosol diffusivity (Pruppacher and Klett Eq. 12-15) +! [7.32e-25 = Boltzmann constant / (6 pi)] +! f1 = "func 1" (Walko et al. 1995 Eq. 55) multiplied by delta t +! but now cld concen in #/kg_air so (pvbi, ptvi, pdvi) all per kg_air +! f2 = "func 2" (Walko et al. 1995 Eq. 56) +! ft = "func ft" (Walko et al. 1995 Eq. 57) +! pbvi = Brownian motion nucleation amount this timestep [#/kg_air] +! ptvi = Thermophoretic nucleation amount this timestep [#/kg_air] +! pdvi = Diffusiophoretic nucleation amount this timestep [#/kg_air], +! reformulated to use vapor diffusion directly. Factor of 1.2 +! is (1+sigma_va x_a) from Pruppacher and Klett Eq. 12-102 +! divided by .622, the molecular weight ratio between water and air. + + ptotvi = 0. + + if (tx .le. -2. .and. rx .gt. 1.e-10) then + + ana = exp(4.11 - 0.262 * tx) + akn = 2.28e-5 * tair / (press * raros) + dfar = 7.32e-25 * tair * (1.+ akn) / (raros * dynvisc) + f1 = 6.28318 * dn1 * cx * ana * dtlt + f2 = thrmcon * (tairc - tx) / press + ft = 0.4 * (1. + 1.45 * akn + 0.4 * akn * exp(-1. / akn)) & + * (thrmcon + 2.5 * akn * aka) & + / ((1. + 3. * akn) & + * (2. * thrmcon + 5. * aka * akn + aka)) + pbvi = f1 * dfar + ptvi = f1 * f2 * ft + pdvi = 1.2 * ana * vap + ptotvi = max(0.,pbvi + ptvi + pdvi) + + endif + +return +END SUBROUTINE contnuc diff --git a/src/6.2.16/micro/mic_nucpre.f90 b/src/6.2.16/micro/mic_nucpre.f90 new file mode 100644 index 0000000..22af83f --- /dev/null +++ b/src/6.2.16/micro/mic_nucpre.f90 @@ -0,0 +1,305 @@ +!############################################################################## +Subroutine prenuc_ccn (k,i,j) + +use micphys +use mem_grid + +implicit none + +integer :: k,i,j + +!*********** AEROSOL PROPERTIES CHECKING ****************************** +do acat=1,aerocat + + !Set default values to override if aerosol type exists + aero_rg(acat) = aero_medrad(acat) ! Default median radius + + if((acat==1) .or. & ! CCN + (acat==2) .or. & ! GCCN + (acat==3 .and. idust>0) .or. & ! Small dust mode + (acat==4 .and. idust>0) .or. & ! Large dust mode + (acat==5 .and. isalt>0) .or. & ! Salt film mode + (acat==6 .and. isalt>0) .or. & ! Salt jet mode + (acat==7 .and. isalt>0) .or. & ! Salt spume mode + (acat==8 .and. iccnlev>=2) .or. & ! Small regenerated aerosol + (acat==9 .and. iccnlev>=2)) then ! Large regenerated aerosol + + !Assign aerosol specs to local arrays + aeromass = aeromas(k,acat) + + !Keep median radius and aerosol mass in bounds + if(aerocon(k,acat) > mincon .and. aeromas(k,acat) > minmas) then + + rhosol=aero_rhosol(acat) + aero_rg(acat)=((0.23873/rhosol*aeromas(k,acat)/aerocon(k,acat)) & + **(1./3.))/aero_rg2rm(acat) + + if(aero_rg(acat) < 0.01e-6) aero_rg(acat) = 0.01e-6 + if(aero_rg(acat) > 6.50e-6) aero_rg(acat) = 6.50e-6 + + aeromas(k,acat) = ((aero_rg(acat)*aero_rg2rm(acat))**3.) & + *aerocon(k,acat)/(0.23873/rhosol) + + if(iccnlev>=2 .and. itrkepsilon==1 .and. (acat==8.or.acat==9)) & + regenmas(k,acat-7) = regenmas(k,acat-7) * (aeromas(k,acat) / aeromass) + + endif + + endif + +enddo + +return +END SUBROUTINE prenuc_ccn + +!############################################################################## +Subroutine prenuc_ifn (m1,k,dn0,rv) + +use micphys +use mem_grid + +implicit none + +integer :: m1,k,in_thresh +real :: tot_in,ifnfrac +real :: vapnuc,vapnucr,availvap,immersed +real, dimension(m1) :: dn0,rv + +!********************************************************************** +!*********** ICE NUCLEI DETERMIINATION ******************************** +!********************************************************************** + !For determining number concentration of aerosols with + !diameter greater than 0.5 microns for use as IN + tot_in = 0.0 + total_in(k) = 0.0 + + !Loop over CCN, GCCN, SMALL DUST, LARGE DUST, REGEN 1&2 (1,2,3,4,8,9) + !Not looping over salt species since these cannot act is ice nuclei + do acat=1,aerocat + + in_thresh = 1 + totifnn(k,acat) = 0.0 + totifnm(k,acat) = 0.0 + + if((acat==1) .or. & ! CCN + (acat==2) .or. & ! GCCN + (acat==3 .and. idust>0) .or. & ! Small dust mode + (acat==4 .and. idust>0) .or. & ! Large dust mode + (acat==8 .and. iccnlev>=2) .or. & ! Small regenerated aerosol + (acat==9 .and. iccnlev>=2)) then ! Large regenerated aerosol + + concen_nuc = aerocon(k,acat) + aeromass = aeromas(k,acat) + rg = aero_rg(acat) + rhosol = aero_rhosol(acat) + + !If aerosols are present in the given category then proceed + if(concen_nuc > mincon) then + + !Set up binned distribution mass and sizes + if(rg<=0.015e-6) then + rmsma = 1.0e-23 + rmlar = 2.0e-16 + elseif(rg>0.015e-6 .and. rg<=0.03e-6) then + rmsma = 1.0e-22 + rmlar = 2.0e-15 + elseif(rg>0.03e-6 .and. rg<=0.04e-6) then + rmsma = 1.0e-21 + rmlar = 2.0e-14 + elseif(rg>0.04e-6 .and. rg<=0.08e-6) then + rmsma = 3.0e-21 + rmlar = 6.0e-14 + elseif(rg>0.08e-6 .and. rg<=0.16e-6) then + rmsma = 5.0e-20 + rmlar = 1.0e-12 + elseif(rg>0.16e-6 .and. rg<=0.32e-6) then + rmsma = 5.0e-19 + rmlar = 1.0e-11 + elseif(rg>0.32e-6 .and. rg<=0.64e-6) then + rmsma = 1.0e-18 + rmlar = 2.0e-11 + elseif(rg>0.64e-6 .and. rg<=0.96e-6) then + rmsma = 1.0e-17 + rmlar = 2.0e-10 + elseif(rg>0.96e-6 .and. rg<=2.00e-6) then + rmsma = 3.0e-17 + rmlar = 6.0e-10 + elseif(rg>2.00e-6 .and. rg<=3.00e-6) then + rmsma = 1.0e-16 + rmlar = 2.0e-09 + elseif(rg>3.00e-6 .and. rg<=4.00e-6) then + rmsma = 7.0e-16 + rmlar = 1.5e-08 + elseif(rg>4.00e-6 .and. rg<=5.00e-6) then + rmsma = 7.0e-16 + rmlar = 1.5e-08 + elseif(rg>5.00e-6 .and. rg<=6.00e-6) then + rmsma = 1.0e-15 + rmlar = 2.0e-08 + elseif(rg>6.00e-6) then + rmsma = 1.0e-15 + rmlar = 2.0e-08 + endif + + !Convert units for setting up lognormal distribution + concen_nuc = concen_nuc * dn0(k) !Convert #/kg to #/m3 + aeromass = aeromass * dn0(k) !Convert kg/kg to kg/m3 + + !Set up binned distribution concentration (#/m3) + power = alog10(rmsma/rmlar) / float(itbin-1) + do ic=1,itbin + !bin radius equals [(3/4) x (1/pi) x (1/rho) x mass of bin] ^ (1/3) + smass(ic) = rmlar * 10.**(float(ic-1) * power) !solute masses (kg) + binrad(ic)=(0.23873/rhosol*smass(ic))**(.33333) !radius (meters) + enddo + do ic=1,itbin-1 + rcm=0.5*(binrad(ic)+binrad(ic+1)) + ccncon(ic) = concen_nuc/(1.47336267*rcm)*exp(-(alog(rcm/rg))**2/0.6909863) + ccncon(ic) = 1.00032 * ccncon(ic)*(binrad(ic)-binrad(ic+1)) + ccnmas(ic) = 0.920 * smass(ic) * ccncon(ic) + if(ic > 1) then + ccncon(ic) = ccncon(ic) + ccncon(ic-1) + ccnmas(ic) = ccnmas(ic) + ccnmas(ic-1) + endif + if(rcm<0.25e-6 .or. ccncon(ic)>=concen_nuc .or. ccnmas(ic)>=aeromass) then + in_thresh=ic-1 + go to 101 + endif + enddo +101 continue + totifnn(k,acat) = ccncon(in_thresh) / dn0(k) !store in #/kg + totifnm(k,acat) = ccnmas(in_thresh) / dn0(k) !store in kg/kg + total_in(k) = total_in(k) + ccncon(in_thresh) / dn0(k) !store #/kg + endif !if concen_nuc > 0 + + endif !if aerosol species turned on + + enddo !acat do loop + + !DeMott IN activation based on total number of all aerosol + !greater than 0.5 micron diameter. + nifn(k) = 0.0 + if(tairc(k) .lt. 0.0 .and. total_in(k) .gt. mincon) then + !For DeMott Eqn, the aerosol number to put into the eqn needs to be + !the remaining of unprocessed aerosols > 0.5 microns + the remaining + !aerosols > 0.5 microns contained in droplets + + !the tracked number that have already been ice nucleated + immersed = immerhx(k,1) + immerhx(k,8) + immerhx(k,2) + tot_in = total_in(k) + immersed + ifnnucx(k) + !Convert tot_in from #/kg to #/cm3 + tot_in = tot_in * dn0(k) / 1.e6 + + !Convert to STP + !Nc(STP) = Nc * (101300(Pa) * T(K)) / (Pressure * 273.2(K)) + !P=rho*Rd*T + !Nc(STP) = Nc * (101300(Pa)/273.2(K)) * [1/(dn0*287(J/kg/k))] + tot_in = tot_in*1.29/dn0(k) + + !Input aerosols in #/cm3 and outputs #/L activated + if(iifn_formula==1) then + !Original Demott(2010) formula + nifn(k) = 0.0000594 * (-tairc(k))**3.33 & + * (tot_in)**(0.0264*(-tairc(k))+0.0033) + elseif(iifn_formula==2) then + !Modified Demott(2010) for dust-dominated cases + !Paul suggested an additional factor of 3 multiplier + nifn(k) = 3.0 * 0.0008 * 10 ** (-0.2*(tairc(k)+9.7)) * tot_in ** 1.25 + endif + + !Adjust units and such + nifn(k) = nifn(k)/1.29*dn0(k) !Convert FROM STP + tot_in = tot_in /1.29*dn0(k) !Convert FROM STP + tot_in = tot_in / dn0(k) * 1.e6 !Convert #/cm3 to #/kg + nifn(k) = nifn(k) / dn0(k) * 1.e3 !Convert #/L to #/kg + nifn(k) = min(tot_in,nifn(k)) !IFN in #/kg + + !Limit activation to only the number greater than that already + !activated for the given grid cell parcel. + nifn(k) = nifn(k) - ifnnucx(k) + tot_in = tot_in - ifnnucx(k) + if(nifn(k) < 1.e-6) nifn(k) = 0.0 + if(tot_in < 1.e-6) tot_in = 0.0 + ifnfrac = max(0.0,min(1.0,nifn(k)/tot_in)) + if(nifn(k)==0.0 .or. tot_in==0.0) ifnfrac = 0.0 + else + nifn(k) = 0.0 + ifnfrac = 0.0 + endif + + !Pre-determine amount of IN that produce pristine ice and + !reduce number of IN if excess vapor does not support nucleation + !of all the pre-determined number of activate + if(nifn(k) > 0.0 .and. tot_in > 0.0) then + vapnuc = max(0.,nifn(k)) + vapnucr = vapnuc * emb0(3) + if (vapnucr .gt. 0.) then + availvap = .5 * (rv(k) - rvisair(k)) + if (vapnucr .gt. availvap) then + vapnucr = min(vapnucr, max(0.,availvap)) + endif + endif + vapnuc = vapnucr / emb0(3) + nifn(k) = vapnuc !IFN in #/kg + ifnfrac = max(0.,min(1.,nifn(k)/tot_in)) + endif + + !Compute fraction of each aerosol species to reserve for icenuc + !Then recompute the remainder of the aerosols for cldnuc + if(nifn(k) > 0.0)then + do acat=1,aerocat + totifnn(k,acat) = totifnn(k,acat) * ifnfrac + totifnm(k,acat) = totifnm(k,acat) * ifnfrac + if(iccnlev>=1 .and. ifnfrac>0.0) then + if((acat==1) .or. & ! CCN + (acat==2) .or. & ! GCCN + (acat==3 .and. idust>0) .or. & ! Small dust mode + (acat==4 .and. idust>0) .or. & ! Large dust mode + (acat==8 .and. iccnlev>=2) .or. & ! Small regenerated aerosol + (acat==9 .and. iccnlev>=2)) then ! Large regenerated aerosol + !Assign aerosol specs to local arrays + epsil = aero_epsilon(acat) + + !Aerosol and solubility tracking + if(iccnlev>=2 .and. itrkepsilon==1 .and. (acat==8.or.acat==9) & + .and. aeromas(k,acat)>0.) then + epsil = min(1.0,regenmas(k,acat-7)/aeromas(k,acat)) + endif + + aerocon(k,acat) = aerocon(k,acat) - totifnn(k,acat) + aeromas(k,acat) = aeromas(k,acat) - totifnm(k,acat) + total_in(k) = total_in(k) - totifnn(k,acat) + ifnnucx(k) = ifnnucx(k) + totifnn(k,acat) + + !Aerosol and solubility tracking + !Store any aerosol mass in cnmhx arrays + if(iccnlev>=2) then + cnmhx(k,3) = cnmhx(k,3) + totifnm(k,acat) + if(itrkepsilon==1) then + snmhx(k,3) = snmhx(k,3) + totifnm(k,acat) * epsil + if(acat==8.or.acat==9) & + regenmas(k,acat-7) = regenmas(k,acat-7) - totifnm(k,acat) * epsil + endif + if(itrkdust==1 .and. (acat==3 .or. acat==4)) & + dnmhx(k,3) = dnmhx(k,3) + totifnm(k,acat) + if(itrkdustifn==1 .and. (acat==3 .or. acat==4)) & + dinhx(k,3) = dinhx(k,3) + totifnm(k,acat) + endif + + aero_rg(acat) = aero_medrad(acat) ! Default median radius + if(aerocon(k,acat) > mincon) then + rhosol=aero_rhosol(acat) + aero_rg(acat)=((0.23873/rhosol*aeromas(k,acat)/aerocon(k,acat)) & + **(1./3.))/aero_rg2rm(acat) + if(aero_rg(acat) < 0.01e-6) aero_rg(acat) = 0.01e-6 + if(aero_rg(acat) > 6.50e-6) aero_rg(acat) = 6.50e-6 + aeromas(k,acat) = ((aero_rg(acat)*aero_rg2rm(acat))**3.) & + *aerocon(k,acat)/(0.23873/rhosol) + endif + endif + endif + enddo + endif + +return +END SUBROUTINE prenuc_ifn + diff --git a/src/6.2.16/micro/mic_nuctab.f90 b/src/6.2.16/micro/mic_nuctab.f90 new file mode 100644 index 0000000..44cbe21 --- /dev/null +++ b/src/6.2.16/micro/mic_nuctab.f90 @@ -0,0 +1,14360 @@ +!############################################################################## +Subroutine aero_nuc_tab_nh42so4 (rrv,rrvlsair,eps1,eps2,wtw1,wtw2,wtcon1,wtcon2 & + ,jrg1,jrg2,epstab,jw,jconcen,jtemp,rgccn1,tabvalue) + +implicit none + +integer :: iw,iconc +integer :: epstab,jw,jconcen,jtemp,rgccn1,ss +real :: eps1,eps2,wtw1,wtw2,wtcon1,wtcon2,jrg1,jrg2 +real :: tabvalue,nucvalue,nucvalue1,nucvalue2,ssvalue1,ssvalue2 +real, dimension(9,9,7,7,7) :: cldnuctab,supersat +real :: supsatpcnt,ssvalue11,ssvalue12,ssvalue21,ssvalue22 +real :: mult1,mult2,nucss1,nucss2,nucss,rrv,rrvlsair + +!Saleeby (6/3/02) +!The following tables are percent of prescibed CCN to activate. +!Table dimensions are: +! (median radius,updraft,concentration,temperature,solubility). +!Large aerosols or GCCN number are prescibed by the user and these +!automatically nucleate and they have no lookup tables. +!Small aerosols or CCN with median radius from 0.01 - 0.96 microns +!are user prescribed in concentration from 1 - 10,000 /mg. +!Median radius is in centimeters as is the parcel model. + +!cldnuctab(a,b,c,d,e) as produced in parcel model +!a = 1-9 median radius of aerosol dist (.01,.02,.04,.08,.16,.32,.48,.64,.96 microns) +!b = 1-9 vertical velocity (1 - 10,000 cm/s) +!c = 1-7 aerosol concentration (10 - 10,000 /mg) +!d = 1-7 air temperature (-30 to 30 C) +!e = 1-7 epsilon solubility fraction (0.05, 0.1, 0.2, 0.4, 0.6, 0.8, 1.0) + +!Input W (m/s), rg (m), concentration (/mg), T (C) + +data ((cldnuctab( 1,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +0.0167, 0.0467, 0.1256, 0.2824, 0.5471, 0.8354, 0.9846, 0.9970, 0.9970, & +0.0088, 0.0272, 0.0759, 0.1944, 0.4175, 0.7147, 0.9391, 0.9970, 0.9970, & +0.0050, 0.0167, 0.0508, 0.1342, 0.2963, 0.5792, 0.8548, 0.9861, 0.9970, & +0.0031, 0.0099, 0.0328, 0.0883, 0.2177, 0.4496, 0.7548, 0.9483, 0.9970, & +0.0018, 0.0063, 0.0204, 0.0599, 0.1625, 0.3551, 0.6418, 0.8809, 0.9899, & +0.0011, 0.0039, 0.0136, 0.0428, 0.1174, 0.2687, 0.5146, 0.7675, 0.9483, & +0.0006, 0.0024, 0.0088, 0.0299, 0.0819, 0.2059, 0.3551, 0.4983, 0.7007 / +data ((cldnuctab( 1,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +0.0110, 0.0328, 0.0883, 0.2059, 0.4335, 0.7418, 0.9525, 0.9970, 0.9970, & +0.0063, 0.0185, 0.0508, 0.1342, 0.3106, 0.5792, 0.8639, 0.9875, 0.9970, & +0.0035, 0.0110, 0.0328, 0.0883, 0.2177, 0.4496, 0.7418, 0.9483, 0.9970, & +0.0018, 0.0063, 0.0204, 0.0552, 0.1527, 0.3400, 0.6108, 0.8726, 0.9887, & +0.0011, 0.0035, 0.0122, 0.0359, 0.1021, 0.2425, 0.4983, 0.7798, 0.9600, & +0.0006, 0.0021, 0.0079, 0.0248, 0.0702, 0.1834, 0.3859, 0.6718, 0.8964, & +0.0003, 0.0012, 0.0050, 0.0167, 0.0508, 0.1342, 0.2963, 0.5308, 0.7418 / +data ((cldnuctab( 1,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +0.0088, 0.0248, 0.0649, 0.1625, 0.3551, 0.6418, 0.9036, 0.9942, 0.9970, & +0.0044, 0.0136, 0.0392, 0.1021, 0.2425, 0.4820, 0.7675, 0.9634, 0.9970, & +0.0024, 0.0071, 0.0225, 0.0649, 0.1625, 0.3400, 0.6264, 0.8889, 0.9919, & +0.0012, 0.0039, 0.0136, 0.0392, 0.1021, 0.2425, 0.4983, 0.7798, 0.9600, & +0.0007, 0.0024, 0.0079, 0.0248, 0.0702, 0.1728, 0.3704, 0.6569, 0.9036, & +0.0003, 0.0014, 0.0044, 0.0151, 0.0467, 0.1256, 0.2824, 0.5471, 0.8143, & +0.0002, 0.0008, 0.0031, 0.0099, 0.0299, 0.0883, 0.2177, 0.4335, 0.6864 / +data ((cldnuctab( 1,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +0.0071, 0.0204, 0.0552, 0.1342, 0.2963, 0.5632, 0.8453, 0.9846, 0.9970, & +0.0035, 0.0110, 0.0299, 0.0819, 0.1944, 0.4016, 0.6864, 0.9286, 0.9968, & +0.0018, 0.0056, 0.0167, 0.0467, 0.1174, 0.2824, 0.5308, 0.8143, 0.9747, & +0.0009, 0.0031, 0.0099, 0.0272, 0.0759, 0.1834, 0.4016, 0.6864, 0.9168, & +0.0005, 0.0016, 0.0056, 0.0167, 0.0467, 0.1256, 0.2824, 0.5471, 0.8250, & +0.0003, 0.0009, 0.0031, 0.0099, 0.0299, 0.0883, 0.2059, 0.4335, 0.7147, & +0.0001, 0.0005, 0.0018, 0.0063, 0.0204, 0.0599, 0.1527, 0.3251, 0.5951 / +data ((cldnuctab( 1,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +0.0056, 0.0167, 0.0467, 0.1174, 0.2554, 0.4983, 0.7917, 0.9695, 0.9970, & +0.0031, 0.0088, 0.0248, 0.0649, 0.1625, 0.3551, 0.6264, 0.8889, 0.9909, & +0.0014, 0.0044, 0.0136, 0.0392, 0.1021, 0.2299, 0.4658, 0.7548, 0.9525, & +0.0007, 0.0024, 0.0071, 0.0225, 0.0599, 0.1527, 0.3251, 0.5951, 0.8639, & +0.0004, 0.0012, 0.0039, 0.0122, 0.0359, 0.0950, 0.2299, 0.4496, 0.7418, & +0.0002, 0.0006, 0.0024, 0.0071, 0.0225, 0.0599, 0.1527, 0.3400, 0.6108, & +0.0001, 0.0003, 0.0012, 0.0044, 0.0136, 0.0392, 0.1095, 0.2554, 0.4983 / +data ((cldnuctab( 1,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +0.0050, 0.0151, 0.0428, 0.1021, 0.2299, 0.4658, 0.7548, 0.9564, 0.9970, & +0.0027, 0.0079, 0.0225, 0.0599, 0.1433, 0.3106, 0.5792, 0.8548, 0.9846, & +0.0012, 0.0039, 0.0122, 0.0328, 0.0883, 0.2059, 0.4175, 0.7007, 0.9286, & +0.0006, 0.0021, 0.0063, 0.0185, 0.0508, 0.1256, 0.2824, 0.5308, 0.8143, & +0.0003, 0.0011, 0.0035, 0.0099, 0.0299, 0.0759, 0.1834, 0.3859, 0.6718, & +0.0002, 0.0005, 0.0018, 0.0056, 0.0167, 0.0467, 0.1256, 0.2824, 0.5308, & +0.0001, 0.0003, 0.0009, 0.0031, 0.0099, 0.0299, 0.0819, 0.1944, 0.4016 / +data ((cldnuctab( 1,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +0.0050, 0.0136, 0.0392, 0.0950, 0.2177, 0.4335, 0.7284, 0.9438, 0.9970, & +0.0024, 0.0071, 0.0204, 0.0552, 0.1342, 0.2824, 0.5471, 0.8250, 0.9770, & +0.0012, 0.0035, 0.0110, 0.0299, 0.0759, 0.1834, 0.3704, 0.6569, 0.9036, & +0.0005, 0.0018, 0.0056, 0.0167, 0.0428, 0.1095, 0.2554, 0.4820, 0.7675, & +0.0003, 0.0009, 0.0031, 0.0088, 0.0248, 0.0649, 0.1625, 0.3400, 0.6108, & +0.0001, 0.0005, 0.0016, 0.0050, 0.0151, 0.0392, 0.1021, 0.2425, 0.4658, & +0.0001, 0.0002, 0.0008, 0.0027, 0.0079, 0.0248, 0.0649, 0.1625, 0.3400 / +data ((cldnuctab( 1,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +0.0248, 0.0649, 0.1527, 0.3400, 0.6108, 0.8726, 0.9887, 0.9970, 0.9970, & +0.0136, 0.0392, 0.1021, 0.2425, 0.4658, 0.7548, 0.9483, 0.9970, 0.9970, & +0.0088, 0.0248, 0.0702, 0.1728, 0.3551, 0.6264, 0.8809, 0.9887, 0.9970, & +0.0050, 0.0167, 0.0467, 0.1174, 0.2687, 0.5146, 0.7917, 0.9600, 0.9970, & +0.0031, 0.0110, 0.0328, 0.0883, 0.2059, 0.4175, 0.6864, 0.9036, 0.9919, & +0.0018, 0.0071, 0.0225, 0.0599, 0.1527, 0.3251, 0.5792, 0.7917, 0.9600, & +0.0012, 0.0044, 0.0151, 0.0428, 0.1174, 0.2425, 0.4016, 0.5308, 0.7284 / +data ((cldnuctab( 1,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +0.0167, 0.0467, 0.1174, 0.2554, 0.4983, 0.7798, 0.9600, 0.9970, 0.9970, & +0.0099, 0.0272, 0.0702, 0.1728, 0.3704, 0.6418, 0.8889, 0.9909, 0.9970, & +0.0056, 0.0167, 0.0467, 0.1174, 0.2687, 0.5146, 0.7798, 0.9600, 0.9970, & +0.0031, 0.0099, 0.0299, 0.0819, 0.1944, 0.4016, 0.6718, 0.9036, 0.9919, & +0.0018, 0.0063, 0.0185, 0.0552, 0.1433, 0.3106, 0.5632, 0.8143, 0.9695, & +0.0011, 0.0039, 0.0122, 0.0392, 0.1021, 0.2299, 0.4496, 0.7147, 0.9168, & +0.0006, 0.0024, 0.0079, 0.0248, 0.0702, 0.1728, 0.3551, 0.5792, 0.7798 / +data ((cldnuctab( 1,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +0.0122, 0.0359, 0.0883, 0.2059, 0.4016, 0.6864, 0.9229, 0.9959, 0.9970, & +0.0071, 0.0204, 0.0552, 0.1342, 0.2963, 0.5471, 0.8143, 0.9722, 0.9970, & +0.0039, 0.0110, 0.0328, 0.0883, 0.2059, 0.4016, 0.6864, 0.9103, 0.9935, & +0.0021, 0.0071, 0.0204, 0.0552, 0.1342, 0.2963, 0.5471, 0.8143, 0.9695, & +0.0012, 0.0039, 0.0122, 0.0359, 0.0950, 0.2177, 0.4335, 0.7147, 0.9229, & +0.0007, 0.0024, 0.0079, 0.0248, 0.0649, 0.1625, 0.3400, 0.6108, 0.8453, & +0.0004, 0.0014, 0.0050, 0.0167, 0.0467, 0.1174, 0.2687, 0.4983, 0.7284 / +data ((cldnuctab( 1,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +0.0099, 0.0272, 0.0702, 0.1728, 0.3551, 0.6264, 0.8726, 0.9875, 0.9970, & +0.0056, 0.0151, 0.0428, 0.1095, 0.2425, 0.4658, 0.7418, 0.9438, 0.9970, & +0.0027, 0.0088, 0.0248, 0.0649, 0.1625, 0.3400, 0.5951, 0.8548, 0.9811, & +0.0016, 0.0050, 0.0151, 0.0428, 0.1021, 0.2299, 0.4658, 0.7284, 0.9340, & +0.0008, 0.0027, 0.0088, 0.0248, 0.0702, 0.1625, 0.3551, 0.6108, 0.8548, & +0.0005, 0.0016, 0.0050, 0.0167, 0.0467, 0.1174, 0.2687, 0.4983, 0.7675, & +0.0003, 0.0009, 0.0031, 0.0110, 0.0299, 0.0819, 0.1944, 0.4016, 0.6569 / +data ((cldnuctab( 1,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +0.0088, 0.0248, 0.0599, 0.1433, 0.3106, 0.5632, 0.8354, 0.9770, 0.9970, & +0.0044, 0.0136, 0.0359, 0.0883, 0.2059, 0.4016, 0.6864, 0.9103, 0.9935, & +0.0024, 0.0071, 0.0204, 0.0552, 0.1342, 0.2824, 0.5308, 0.7917, 0.9634, & +0.0012, 0.0039, 0.0110, 0.0328, 0.0819, 0.1944, 0.3859, 0.6569, 0.8889, & +0.0006, 0.0021, 0.0063, 0.0185, 0.0508, 0.1256, 0.2824, 0.5146, 0.7917, & +0.0003, 0.0012, 0.0039, 0.0122, 0.0359, 0.0883, 0.2059, 0.4016, 0.6718, & +0.0002, 0.0006, 0.0024, 0.0071, 0.0225, 0.0599, 0.1433, 0.3106, 0.5632 / +data ((cldnuctab( 1,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +0.0079, 0.0225, 0.0552, 0.1342, 0.2824, 0.5308, 0.8032, 0.9666, 0.9970, & +0.0039, 0.0110, 0.0328, 0.0819, 0.1834, 0.3704, 0.6418, 0.8809, 0.9887, & +0.0021, 0.0063, 0.0167, 0.0467, 0.1095, 0.2425, 0.4820, 0.7548, 0.9438, & +0.0011, 0.0035, 0.0099, 0.0272, 0.0702, 0.1625, 0.3400, 0.5951, 0.8548, & +0.0005, 0.0016, 0.0056, 0.0151, 0.0428, 0.1095, 0.2425, 0.4496, 0.7284, & +0.0003, 0.0009, 0.0031, 0.0088, 0.0272, 0.0702, 0.1625, 0.3400, 0.5951, & +0.0002, 0.0005, 0.0016, 0.0056, 0.0167, 0.0467, 0.1174, 0.2554, 0.4820 / +data ((cldnuctab( 1,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +0.0071, 0.0204, 0.0508, 0.1256, 0.2687, 0.4983, 0.7798, 0.9564, 0.9970, & +0.0035, 0.0110, 0.0299, 0.0702, 0.1728, 0.3400, 0.6108, 0.8639, 0.9829, & +0.0018, 0.0056, 0.0151, 0.0428, 0.1021, 0.2299, 0.4335, 0.7147, 0.9286, & +0.0009, 0.0027, 0.0088, 0.0248, 0.0599, 0.1433, 0.3106, 0.5471, 0.8143, & +0.0005, 0.0014, 0.0044, 0.0136, 0.0359, 0.0950, 0.2059, 0.4016, 0.6718, & +0.0002, 0.0008, 0.0024, 0.0079, 0.0225, 0.0599, 0.1433, 0.2963, 0.5308, & +0.0001, 0.0004, 0.0014, 0.0044, 0.0136, 0.0359, 0.0950, 0.2177, 0.4175 / +data ((cldnuctab( 1,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +0.0359, 0.0950, 0.2059, 0.4175, 0.6718, 0.9036, 0.9919, 0.9970, 0.9970, & +0.0225, 0.0599, 0.1433, 0.3106, 0.5471, 0.8032, 0.9634, 0.9970, 0.9970, & +0.0136, 0.0392, 0.1021, 0.2299, 0.4335, 0.7007, 0.9103, 0.9919, 0.9970, & +0.0088, 0.0272, 0.0702, 0.1728, 0.3400, 0.5951, 0.8354, 0.9722, 0.9970, & +0.0056, 0.0185, 0.0508, 0.1256, 0.2687, 0.4983, 0.7548, 0.9286, 0.9942, & +0.0039, 0.0122, 0.0359, 0.0950, 0.2059, 0.4016, 0.6418, 0.8354, 0.9695, & +0.0024, 0.0079, 0.0248, 0.0649, 0.1527, 0.2963, 0.4496, 0.5308, 0.7548 / +data ((cldnuctab( 1,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +0.0248, 0.0649, 0.1527, 0.3251, 0.5792, 0.8250, 0.9722, 0.9970, 0.9970, & +0.0151, 0.0428, 0.1021, 0.2299, 0.4496, 0.7007, 0.9168, 0.9935, 0.9970, & +0.0088, 0.0272, 0.0702, 0.1625, 0.3400, 0.5792, 0.8354, 0.9722, 0.9970, & +0.0056, 0.0167, 0.0467, 0.1174, 0.2554, 0.4820, 0.7284, 0.9286, 0.9942, & +0.0035, 0.0110, 0.0328, 0.0819, 0.1944, 0.3859, 0.6264, 0.8639, 0.9770, & +0.0021, 0.0071, 0.0225, 0.0599, 0.1433, 0.3106, 0.5308, 0.7798, 0.9391, & +0.0012, 0.0044, 0.0151, 0.0428, 0.1095, 0.2425, 0.4335, 0.6418, 0.8143 / +data ((cldnuctab( 1,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +0.0185, 0.0508, 0.1256, 0.2687, 0.4820, 0.7548, 0.9438, 0.9970, 0.9970, & +0.0110, 0.0299, 0.0759, 0.1834, 0.3551, 0.6108, 0.8548, 0.9811, 0.9970, & +0.0063, 0.0185, 0.0508, 0.1256, 0.2687, 0.4820, 0.7418, 0.9340, 0.9959, & +0.0035, 0.0110, 0.0328, 0.0819, 0.1944, 0.3859, 0.6264, 0.8639, 0.9791, & +0.0021, 0.0071, 0.0204, 0.0552, 0.1342, 0.2963, 0.5308, 0.7798, 0.9438, & +0.0012, 0.0044, 0.0136, 0.0392, 0.1021, 0.2299, 0.4335, 0.6864, 0.8889, & +0.0008, 0.0027, 0.0088, 0.0272, 0.0702, 0.1728, 0.3400, 0.5792, 0.7798 / +data ((cldnuctab( 1,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +0.0151, 0.0428, 0.1021, 0.2177, 0.4335, 0.6864, 0.9103, 0.9919, 0.9970, & +0.0088, 0.0248, 0.0599, 0.1433, 0.2963, 0.5471, 0.8032, 0.9600, 0.9970, & +0.0050, 0.0136, 0.0392, 0.0950, 0.2059, 0.4016, 0.6718, 0.8889, 0.9875, & +0.0027, 0.0079, 0.0225, 0.0599, 0.1433, 0.3106, 0.5471, 0.7917, 0.9525, & +0.0014, 0.0050, 0.0151, 0.0392, 0.1021, 0.2299, 0.4335, 0.6864, 0.8964, & +0.0008, 0.0031, 0.0088, 0.0272, 0.0702, 0.1625, 0.3400, 0.5792, 0.8143, & +0.0005, 0.0018, 0.0056, 0.0185, 0.0508, 0.1256, 0.2687, 0.4820, 0.7147 / +data ((cldnuctab( 1,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +0.0136, 0.0359, 0.0883, 0.1944, 0.3859, 0.6418, 0.8809, 0.9846, 0.9970, & +0.0071, 0.0204, 0.0508, 0.1256, 0.2687, 0.4820, 0.7418, 0.9391, 0.9959, & +0.0039, 0.0110, 0.0299, 0.0759, 0.1728, 0.3551, 0.5951, 0.8453, 0.9747, & +0.0021, 0.0063, 0.0185, 0.0508, 0.1174, 0.2554, 0.4658, 0.7284, 0.9229, & +0.0011, 0.0035, 0.0110, 0.0299, 0.0819, 0.1834, 0.3551, 0.5951, 0.8354, & +0.0006, 0.0021, 0.0071, 0.0204, 0.0552, 0.1256, 0.2687, 0.4983, 0.7418, & +0.0003, 0.0012, 0.0044, 0.0122, 0.0359, 0.0950, 0.2059, 0.4016, 0.6418 / +data ((cldnuctab( 1,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +0.0122, 0.0328, 0.0759, 0.1728, 0.3551, 0.6108, 0.8548, 0.9770, 0.9970, & +0.0063, 0.0167, 0.0467, 0.1095, 0.2425, 0.4496, 0.7147, 0.9168, 0.9927, & +0.0035, 0.0099, 0.0272, 0.0649, 0.1527, 0.3106, 0.5471, 0.8032, 0.9600, & +0.0016, 0.0056, 0.0151, 0.0428, 0.1021, 0.2177, 0.4175, 0.6718, 0.8889, & +0.0009, 0.0031, 0.0088, 0.0248, 0.0649, 0.1527, 0.3106, 0.5308, 0.7917, & +0.0005, 0.0016, 0.0050, 0.0151, 0.0428, 0.1021, 0.2299, 0.4175, 0.6718, & +0.0003, 0.0009, 0.0031, 0.0099, 0.0272, 0.0702, 0.1625, 0.3251, 0.5632 / +data ((cldnuctab( 1,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +0.0110, 0.0299, 0.0759, 0.1625, 0.3400, 0.5792, 0.8354, 0.9722, 0.9970, & +0.0056, 0.0167, 0.0428, 0.1021, 0.2177, 0.4175, 0.6864, 0.8964, 0.9887, & +0.0031, 0.0088, 0.0248, 0.0599, 0.1433, 0.2963, 0.5146, 0.7798, 0.9483, & +0.0016, 0.0044, 0.0136, 0.0359, 0.0883, 0.1944, 0.3859, 0.6264, 0.8639, & +0.0008, 0.0027, 0.0079, 0.0204, 0.0552, 0.1342, 0.2687, 0.4983, 0.7418, & +0.0005, 0.0014, 0.0044, 0.0136, 0.0359, 0.0883, 0.1944, 0.3704, 0.6108, & +0.0002, 0.0008, 0.0027, 0.0079, 0.0225, 0.0599, 0.1342, 0.2824, 0.4983 / +data ((cldnuctab( 1,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +0.0552, 0.1342, 0.2824, 0.4983, 0.7548, 0.9340, 0.9954, 0.9970, 0.9970, & +0.0359, 0.0950, 0.2059, 0.4016, 0.6418, 0.8639, 0.9770, 0.9970, 0.9970, & +0.0248, 0.0649, 0.1527, 0.3106, 0.5308, 0.7798, 0.9391, 0.9954, 0.9970, & +0.0167, 0.0428, 0.1095, 0.2425, 0.4335, 0.6864, 0.8889, 0.9829, 0.9970, & +0.0110, 0.0299, 0.0819, 0.1834, 0.3551, 0.5951, 0.8143, 0.9525, 0.9968, & +0.0063, 0.0204, 0.0552, 0.1433, 0.2824, 0.4983, 0.7147, 0.8809, 0.9811, & +0.0035, 0.0122, 0.0359, 0.0950, 0.2059, 0.3400, 0.4820, 0.5471, 0.7675 / +data ((cldnuctab( 1,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +0.0392, 0.0950, 0.2177, 0.4175, 0.6569, 0.8809, 0.9829, 0.9970, 0.9970, & +0.0248, 0.0649, 0.1527, 0.3106, 0.5308, 0.7798, 0.9438, 0.9964, 0.9970, & +0.0151, 0.0428, 0.1095, 0.2299, 0.4335, 0.6718, 0.8809, 0.9829, 0.9970, & +0.0099, 0.0299, 0.0759, 0.1728, 0.3400, 0.5792, 0.8032, 0.9525, 0.9968, & +0.0063, 0.0185, 0.0552, 0.1256, 0.2687, 0.4820, 0.7147, 0.9036, 0.9875, & +0.0039, 0.0122, 0.0359, 0.0950, 0.2059, 0.4016, 0.6264, 0.8354, 0.9600, & +0.0024, 0.0079, 0.0248, 0.0649, 0.1625, 0.3106, 0.5146, 0.6864, 0.8639 / +data ((cldnuctab( 1,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +0.0299, 0.0759, 0.1728, 0.3400, 0.5792, 0.8250, 0.9634, 0.9970, 0.9970, & +0.0185, 0.0467, 0.1174, 0.2425, 0.4496, 0.7007, 0.9036, 0.9887, 0.9970, & +0.0110, 0.0299, 0.0759, 0.1728, 0.3400, 0.5792, 0.8143, 0.9600, 0.9970, & +0.0063, 0.0185, 0.0508, 0.1256, 0.2687, 0.4820, 0.7147, 0.9103, 0.9875, & +0.0039, 0.0122, 0.0359, 0.0883, 0.2059, 0.3859, 0.6264, 0.8354, 0.9666, & +0.0024, 0.0079, 0.0248, 0.0649, 0.1527, 0.3106, 0.5308, 0.7675, 0.9229, & +0.0014, 0.0050, 0.0167, 0.0467, 0.1095, 0.2425, 0.4335, 0.6569, 0.8453 / +data ((cldnuctab( 1,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +0.0248, 0.0599, 0.1433, 0.2963, 0.5146, 0.7675, 0.9391, 0.9954, 0.9970, & +0.0136, 0.0359, 0.0950, 0.2059, 0.3859, 0.6264, 0.8548, 0.9747, 0.9970, & +0.0079, 0.0225, 0.0599, 0.1342, 0.2824, 0.4983, 0.7548, 0.9286, 0.9927, & +0.0044, 0.0136, 0.0392, 0.0950, 0.2059, 0.4016, 0.6418, 0.8548, 0.9722, & +0.0027, 0.0088, 0.0248, 0.0649, 0.1527, 0.3106, 0.5308, 0.7675, 0.9340, & +0.0016, 0.0056, 0.0167, 0.0467, 0.1095, 0.2425, 0.4335, 0.6718, 0.8726, & +0.0009, 0.0035, 0.0110, 0.0299, 0.0819, 0.1834, 0.3551, 0.5792, 0.7917 / +data ((cldnuctab( 1,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +0.0204, 0.0508, 0.1256, 0.2554, 0.4658, 0.7284, 0.9168, 0.9919, 0.9970, & +0.0110, 0.0299, 0.0759, 0.1728, 0.3400, 0.5792, 0.8143, 0.9600, 0.9970, & +0.0063, 0.0185, 0.0467, 0.1174, 0.2425, 0.4496, 0.6864, 0.8964, 0.9861, & +0.0035, 0.0110, 0.0299, 0.0759, 0.1728, 0.3400, 0.5632, 0.8032, 0.9525, & +0.0021, 0.0063, 0.0185, 0.0508, 0.1174, 0.2554, 0.4496, 0.7007, 0.8889, & +0.0012, 0.0039, 0.0122, 0.0328, 0.0819, 0.1834, 0.3551, 0.5951, 0.8143, & +0.0007, 0.0024, 0.0079, 0.0225, 0.0599, 0.1433, 0.2824, 0.4983, 0.7284 / +data ((cldnuctab( 1,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +0.0185, 0.0467, 0.1095, 0.2425, 0.4335, 0.6864, 0.9036, 0.9875, 0.9970, & +0.0099, 0.0272, 0.0702, 0.1527, 0.3106, 0.5471, 0.7917, 0.9483, 0.9959, & +0.0056, 0.0151, 0.0392, 0.0950, 0.2177, 0.4016, 0.6418, 0.8639, 0.9770, & +0.0031, 0.0088, 0.0248, 0.0649, 0.1433, 0.2963, 0.5146, 0.7548, 0.9286, & +0.0016, 0.0050, 0.0151, 0.0392, 0.0950, 0.2059, 0.4016, 0.6418, 0.8548, & +0.0009, 0.0031, 0.0088, 0.0272, 0.0649, 0.1527, 0.3106, 0.5308, 0.7548, & +0.0005, 0.0018, 0.0056, 0.0167, 0.0467, 0.1095, 0.2299, 0.4335, 0.6569 / +data ((cldnuctab( 1,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +0.0167, 0.0428, 0.1021, 0.2177, 0.4175, 0.6718, 0.8889, 0.9829, 0.9970, & +0.0088, 0.0248, 0.0599, 0.1433, 0.2963, 0.5146, 0.7675, 0.9340, 0.9942, & +0.0050, 0.0136, 0.0359, 0.0883, 0.1944, 0.3704, 0.6108, 0.8453, 0.9695, & +0.0027, 0.0079, 0.0204, 0.0552, 0.1256, 0.2687, 0.4820, 0.7147, 0.9103, & +0.0014, 0.0044, 0.0122, 0.0359, 0.0819, 0.1834, 0.3551, 0.5951, 0.8143, & +0.0008, 0.0024, 0.0079, 0.0225, 0.0552, 0.1256, 0.2687, 0.4658, 0.7147, & +0.0005, 0.0014, 0.0044, 0.0136, 0.0359, 0.0883, 0.1944, 0.3704, 0.5951 / +data ((cldnuctab( 1,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +0.0702, 0.1625, 0.3251, 0.5632, 0.8032, 0.9525, 0.9968, 0.9970, 0.9970, & +0.0508, 0.1174, 0.2554, 0.4496, 0.7007, 0.8964, 0.9846, 0.9970, 0.9970, & +0.0328, 0.0819, 0.1834, 0.3704, 0.5951, 0.8250, 0.9564, 0.9968, 0.9970, & +0.0225, 0.0599, 0.1433, 0.2824, 0.4983, 0.7418, 0.9168, 0.9875, 0.9970, & +0.0151, 0.0428, 0.1021, 0.2299, 0.4175, 0.6569, 0.8548, 0.9666, 0.9970, & +0.0088, 0.0272, 0.0759, 0.1728, 0.3400, 0.5632, 0.7675, 0.9036, 0.9875, & +0.0044, 0.0151, 0.0467, 0.1174, 0.2299, 0.3704, 0.4983, 0.5308, 0.8143 / +data ((cldnuctab( 1,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +0.0508, 0.1256, 0.2554, 0.4658, 0.7147, 0.9103, 0.9887, 0.9970, 0.9970, & +0.0328, 0.0819, 0.1834, 0.3704, 0.5951, 0.8250, 0.9600, 0.9970, 0.9970, & +0.0225, 0.0599, 0.1342, 0.2824, 0.4983, 0.7284, 0.9103, 0.9875, 0.9970, & +0.0136, 0.0392, 0.0950, 0.2177, 0.4016, 0.6418, 0.8453, 0.9666, 0.9970, & +0.0088, 0.0272, 0.0702, 0.1625, 0.3251, 0.5471, 0.7675, 0.9286, 0.9909, & +0.0056, 0.0167, 0.0508, 0.1174, 0.2554, 0.4658, 0.6864, 0.8726, 0.9722, & +0.0031, 0.0099, 0.0299, 0.0819, 0.1944, 0.3551, 0.5632, 0.7418, 0.8889 / +data ((cldnuctab( 1,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +0.0392, 0.0950, 0.2059, 0.4016, 0.6418, 0.8639, 0.9747, 0.9970, 0.9970, & +0.0248, 0.0599, 0.1433, 0.2963, 0.5146, 0.7548, 0.9286, 0.9919, 0.9970, & +0.0151, 0.0392, 0.1021, 0.2177, 0.4016, 0.6418, 0.8548, 0.9722, 0.9970, & +0.0099, 0.0272, 0.0702, 0.1625, 0.3106, 0.5308, 0.7675, 0.9340, 0.9919, & +0.0056, 0.0185, 0.0467, 0.1174, 0.2425, 0.4496, 0.6864, 0.8726, 0.9747, & +0.0035, 0.0110, 0.0328, 0.0819, 0.1944, 0.3704, 0.5951, 0.8032, 0.9438, & +0.0021, 0.0071, 0.0204, 0.0599, 0.1433, 0.2963, 0.4983, 0.7147, 0.8726 / +data ((cldnuctab( 1,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +0.0299, 0.0759, 0.1728, 0.3400, 0.5792, 0.8143, 0.9564, 0.9970, 0.9970, & +0.0185, 0.0467, 0.1174, 0.2425, 0.4496, 0.6864, 0.8889, 0.9829, 0.9970, & +0.0110, 0.0299, 0.0759, 0.1728, 0.3400, 0.5632, 0.8032, 0.9483, 0.9954, & +0.0063, 0.0185, 0.0508, 0.1174, 0.2554, 0.4496, 0.7007, 0.8889, 0.9811, & +0.0039, 0.0122, 0.0328, 0.0883, 0.1944, 0.3704, 0.5951, 0.8143, 0.9525, & +0.0024, 0.0079, 0.0225, 0.0599, 0.1433, 0.2824, 0.4983, 0.7284, 0.9036, & +0.0014, 0.0044, 0.0151, 0.0428, 0.1021, 0.2299, 0.4175, 0.6418, 0.8354 / +data ((cldnuctab( 1,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +0.0272, 0.0649, 0.1527, 0.3106, 0.5308, 0.7798, 0.9391, 0.9942, 0.9970, & +0.0151, 0.0392, 0.0950, 0.2059, 0.4016, 0.6418, 0.8548, 0.9722, 0.9970, & +0.0088, 0.0248, 0.0599, 0.1433, 0.2824, 0.4983, 0.7418, 0.9229, 0.9899, & +0.0050, 0.0151, 0.0392, 0.0950, 0.2059, 0.3859, 0.6264, 0.8453, 0.9666, & +0.0031, 0.0088, 0.0248, 0.0649, 0.1527, 0.2963, 0.5146, 0.7548, 0.9168, & +0.0018, 0.0056, 0.0167, 0.0467, 0.1095, 0.2299, 0.4175, 0.6569, 0.8548, & +0.0011, 0.0035, 0.0110, 0.0299, 0.0759, 0.1728, 0.3400, 0.5632, 0.7798 / +data ((cldnuctab( 1,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +0.0225, 0.0599, 0.1342, 0.2824, 0.4983, 0.7418, 0.9286, 0.9919, 0.9970, & +0.0136, 0.0359, 0.0819, 0.1834, 0.3551, 0.5951, 0.8354, 0.9634, 0.9970, & +0.0071, 0.0204, 0.0508, 0.1256, 0.2554, 0.4658, 0.7007, 0.8964, 0.9846, & +0.0039, 0.0122, 0.0328, 0.0819, 0.1834, 0.3400, 0.5792, 0.8032, 0.9483, & +0.0024, 0.0071, 0.0204, 0.0552, 0.1256, 0.2554, 0.4658, 0.7007, 0.8889, & +0.0014, 0.0044, 0.0122, 0.0359, 0.0883, 0.1944, 0.3551, 0.5951, 0.8032, & +0.0008, 0.0027, 0.0079, 0.0225, 0.0599, 0.1433, 0.2824, 0.4820, 0.7147 / +data ((cldnuctab( 1,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +0.0204, 0.0552, 0.1256, 0.2687, 0.4820, 0.7284, 0.9168, 0.9887, 0.9970, & +0.0122, 0.0328, 0.0759, 0.1728, 0.3400, 0.5792, 0.8143, 0.9564, 0.9959, & +0.0063, 0.0185, 0.0467, 0.1095, 0.2299, 0.4335, 0.6718, 0.8809, 0.9791, & +0.0035, 0.0099, 0.0272, 0.0702, 0.1625, 0.3106, 0.5308, 0.7675, 0.9340, & +0.0021, 0.0063, 0.0167, 0.0428, 0.1095, 0.2299, 0.4175, 0.6569, 0.8639, & +0.0012, 0.0035, 0.0110, 0.0299, 0.0702, 0.1625, 0.3251, 0.5308, 0.7675, & +0.0006, 0.0021, 0.0063, 0.0185, 0.0508, 0.1174, 0.2425, 0.4335, 0.6718 / +data ((cldnuctab( 1,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +0.0883, 0.1944, 0.3704, 0.6108, 0.8354, 0.9634, 0.9970, 0.9970, 0.9970, & +0.0599, 0.1433, 0.2824, 0.4983, 0.7418, 0.9168, 0.9887, 0.9970, 0.9970, & +0.0392, 0.1021, 0.2177, 0.4016, 0.6418, 0.8548, 0.9666, 0.9970, 0.9970, & +0.0272, 0.0702, 0.1625, 0.3251, 0.5471, 0.7798, 0.9340, 0.9909, 0.9970, & +0.0185, 0.0508, 0.1256, 0.2687, 0.4658, 0.7007, 0.8809, 0.9747, 0.9970, & +0.0110, 0.0328, 0.0883, 0.2059, 0.3859, 0.5951, 0.7917, 0.9229, 0.9899, & +0.0050, 0.0167, 0.0508, 0.1342, 0.2425, 0.3704, 0.5146, 0.5632, 0.8032 / +data ((cldnuctab( 1,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +0.0649, 0.1433, 0.2963, 0.5146, 0.7548, 0.9286, 0.9919, 0.9970, 0.9970, & +0.0392, 0.1021, 0.2177, 0.4016, 0.6418, 0.8548, 0.9695, 0.9970, 0.9970, & +0.0272, 0.0702, 0.1625, 0.3106, 0.5308, 0.7675, 0.9286, 0.9909, 0.9970, & +0.0185, 0.0467, 0.1174, 0.2425, 0.4496, 0.6864, 0.8726, 0.9747, 0.9970, & +0.0110, 0.0328, 0.0883, 0.1944, 0.3704, 0.5951, 0.8032, 0.9438, 0.9935, & +0.0071, 0.0204, 0.0599, 0.1433, 0.2963, 0.4983, 0.7284, 0.8964, 0.9791, & +0.0035, 0.0110, 0.0359, 0.0950, 0.2177, 0.3859, 0.5951, 0.7548, 0.9103 / +data ((cldnuctab( 1,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +0.0467, 0.1095, 0.2425, 0.4335, 0.6864, 0.8889, 0.9811, 0.9970, 0.9970, & +0.0299, 0.0759, 0.1728, 0.3251, 0.5632, 0.7917, 0.9438, 0.9942, 0.9970, & +0.0185, 0.0508, 0.1174, 0.2554, 0.4496, 0.6864, 0.8809, 0.9791, 0.9970, & +0.0122, 0.0328, 0.0819, 0.1834, 0.3551, 0.5792, 0.8032, 0.9483, 0.9942, & +0.0071, 0.0225, 0.0599, 0.1433, 0.2824, 0.4983, 0.7284, 0.8964, 0.9811, & +0.0044, 0.0136, 0.0392, 0.1021, 0.2177, 0.4016, 0.6418, 0.8354, 0.9564, & +0.0024, 0.0079, 0.0248, 0.0702, 0.1625, 0.3251, 0.5471, 0.7548, 0.8964 / +data ((cldnuctab( 1,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +0.0359, 0.0883, 0.1944, 0.3859, 0.6264, 0.8453, 0.9666, 0.9970, 0.9970, & +0.0225, 0.0599, 0.1342, 0.2824, 0.4820, 0.7284, 0.9103, 0.9875, 0.9970, & +0.0136, 0.0359, 0.0883, 0.2059, 0.3859, 0.6108, 0.8354, 0.9600, 0.9964, & +0.0079, 0.0248, 0.0599, 0.1433, 0.2963, 0.4983, 0.7418, 0.9103, 0.9861, & +0.0050, 0.0151, 0.0428, 0.1021, 0.2177, 0.4016, 0.6418, 0.8453, 0.9634, & +0.0031, 0.0099, 0.0272, 0.0759, 0.1625, 0.3251, 0.5471, 0.7675, 0.9229, & +0.0018, 0.0056, 0.0185, 0.0508, 0.1256, 0.2554, 0.4658, 0.6864, 0.8548 / +data ((cldnuctab( 1,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +0.0328, 0.0759, 0.1728, 0.3400, 0.5792, 0.8143, 0.9525, 0.9959, 0.9970, & +0.0185, 0.0467, 0.1095, 0.2425, 0.4335, 0.6864, 0.8809, 0.9791, 0.9970, & +0.0110, 0.0299, 0.0759, 0.1625, 0.3251, 0.5471, 0.7798, 0.9391, 0.9927, & +0.0063, 0.0185, 0.0467, 0.1174, 0.2425, 0.4335, 0.6718, 0.8726, 0.9747, & +0.0039, 0.0110, 0.0328, 0.0819, 0.1728, 0.3400, 0.5632, 0.7917, 0.9391, & +0.0024, 0.0071, 0.0204, 0.0552, 0.1256, 0.2687, 0.4658, 0.7007, 0.8809, & +0.0014, 0.0044, 0.0136, 0.0359, 0.0950, 0.2059, 0.3859, 0.6108, 0.8143 / +data ((cldnuctab( 1,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +0.0272, 0.0702, 0.1527, 0.3106, 0.5471, 0.7798, 0.9438, 0.9942, 0.9970, & +0.0151, 0.0428, 0.1021, 0.2177, 0.4016, 0.6418, 0.8639, 0.9722, 0.9970, & +0.0088, 0.0248, 0.0649, 0.1433, 0.2963, 0.4983, 0.7418, 0.9229, 0.9887, & +0.0050, 0.0151, 0.0392, 0.0950, 0.2059, 0.3859, 0.6264, 0.8354, 0.9600, & +0.0031, 0.0088, 0.0248, 0.0649, 0.1433, 0.2963, 0.4983, 0.7418, 0.9103, & +0.0018, 0.0056, 0.0167, 0.0428, 0.1021, 0.2177, 0.4016, 0.6264, 0.8354, & +0.0009, 0.0035, 0.0099, 0.0272, 0.0702, 0.1625, 0.3251, 0.5308, 0.7548 / +data ((cldnuctab( 1,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +0.0248, 0.0649, 0.1433, 0.2963, 0.5146, 0.7675, 0.9340, 0.9919, 0.9970, & +0.0136, 0.0359, 0.0883, 0.1944, 0.3704, 0.6108, 0.8453, 0.9666, 0.9970, & +0.0079, 0.0225, 0.0552, 0.1256, 0.2687, 0.4658, 0.7147, 0.9036, 0.9846, & +0.0044, 0.0122, 0.0328, 0.0819, 0.1834, 0.3551, 0.5792, 0.8032, 0.9483, & +0.0027, 0.0079, 0.0225, 0.0552, 0.1256, 0.2554, 0.4658, 0.7007, 0.8889, & +0.0014, 0.0044, 0.0136, 0.0359, 0.0883, 0.1944, 0.3551, 0.5792, 0.8032, & +0.0008, 0.0027, 0.0079, 0.0225, 0.0599, 0.1342, 0.2824, 0.4820, 0.7147 / +data ((cldnuctab( 1,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +0.1021, 0.2177, 0.4016, 0.6418, 0.8548, 0.9695, 0.9970, 0.9970, 0.9970, & +0.0702, 0.1625, 0.3106, 0.5308, 0.7675, 0.9286, 0.9909, 0.9970, 0.9970, & +0.0467, 0.1174, 0.2425, 0.4496, 0.6718, 0.8726, 0.9722, 0.9970, 0.9970, & +0.0328, 0.0819, 0.1944, 0.3704, 0.5951, 0.8032, 0.9438, 0.9927, 0.9970, & +0.0225, 0.0599, 0.1433, 0.2963, 0.4983, 0.7284, 0.8964, 0.9791, 0.9970, & +0.0122, 0.0359, 0.1021, 0.2177, 0.4175, 0.6264, 0.8143, 0.9391, 0.9919, & +0.0056, 0.0185, 0.0552, 0.1433, 0.2554, 0.3859, 0.4820, 0.5792, 0.8250 / +data ((cldnuctab( 1,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +0.0702, 0.1625, 0.3251, 0.5471, 0.7798, 0.9391, 0.9935, 0.9970, 0.9970, & +0.0467, 0.1174, 0.2425, 0.4335, 0.6718, 0.8726, 0.9770, 0.9970, 0.9970, & +0.0328, 0.0819, 0.1834, 0.3551, 0.5792, 0.8032, 0.9438, 0.9935, 0.9970, & +0.0204, 0.0552, 0.1342, 0.2824, 0.4820, 0.7147, 0.8964, 0.9791, 0.9970, & +0.0136, 0.0392, 0.0950, 0.2177, 0.4016, 0.6264, 0.8354, 0.9564, 0.9948, & +0.0079, 0.0248, 0.0702, 0.1625, 0.3251, 0.5471, 0.7675, 0.9103, 0.9829, & +0.0039, 0.0122, 0.0392, 0.1095, 0.2425, 0.4175, 0.6264, 0.7917, 0.9229 / +data ((cldnuctab( 1,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +0.0552, 0.1256, 0.2687, 0.4658, 0.7147, 0.9036, 0.9846, 0.9970, 0.9970, & +0.0328, 0.0883, 0.1944, 0.3704, 0.5951, 0.8143, 0.9525, 0.9954, 0.9970, & +0.0225, 0.0599, 0.1342, 0.2824, 0.4820, 0.7147, 0.9036, 0.9829, 0.9970, & +0.0136, 0.0392, 0.0950, 0.2059, 0.3859, 0.6264, 0.8354, 0.9564, 0.9954, & +0.0088, 0.0272, 0.0702, 0.1625, 0.3106, 0.5308, 0.7548, 0.9168, 0.9861, & +0.0056, 0.0167, 0.0467, 0.1174, 0.2425, 0.4496, 0.6718, 0.8639, 0.9634, & +0.0027, 0.0088, 0.0272, 0.0759, 0.1834, 0.3551, 0.5792, 0.7675, 0.9103 / +data ((cldnuctab( 1,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +0.0428, 0.1021, 0.2177, 0.4175, 0.6569, 0.8639, 0.9747, 0.9970, 0.9970, & +0.0272, 0.0649, 0.1527, 0.3106, 0.5308, 0.7675, 0.9286, 0.9909, 0.9970, & +0.0167, 0.0428, 0.1021, 0.2177, 0.4175, 0.6418, 0.8548, 0.9666, 0.9970, & +0.0099, 0.0272, 0.0702, 0.1625, 0.3251, 0.5471, 0.7675, 0.9229, 0.9887, & +0.0063, 0.0185, 0.0508, 0.1174, 0.2425, 0.4496, 0.6718, 0.8639, 0.9695, & +0.0039, 0.0122, 0.0328, 0.0819, 0.1944, 0.3551, 0.5792, 0.8032, 0.9391, & +0.0021, 0.0063, 0.0204, 0.0552, 0.1342, 0.2824, 0.4983, 0.7147, 0.8809 / +data ((cldnuctab( 1,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +0.0359, 0.0883, 0.1944, 0.3704, 0.6108, 0.8354, 0.9634, 0.9970, 0.9970, & +0.0204, 0.0552, 0.1256, 0.2687, 0.4658, 0.7147, 0.9036, 0.9846, 0.9970, & +0.0122, 0.0328, 0.0819, 0.1834, 0.3551, 0.5792, 0.8143, 0.9483, 0.9948, & +0.0079, 0.0225, 0.0552, 0.1342, 0.2687, 0.4658, 0.7007, 0.8889, 0.9791, & +0.0044, 0.0136, 0.0359, 0.0950, 0.1944, 0.3704, 0.5951, 0.8143, 0.9483, & +0.0027, 0.0088, 0.0248, 0.0649, 0.1433, 0.2963, 0.4983, 0.7284, 0.9036, & +0.0016, 0.0050, 0.0151, 0.0428, 0.1021, 0.2299, 0.4175, 0.6418, 0.8354 / +data ((cldnuctab( 1,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +0.0328, 0.0759, 0.1728, 0.3400, 0.5792, 0.8143, 0.9525, 0.9954, 0.9970, & +0.0185, 0.0467, 0.1095, 0.2425, 0.4335, 0.6718, 0.8809, 0.9770, 0.9970, & +0.0110, 0.0299, 0.0702, 0.1625, 0.3251, 0.5471, 0.7798, 0.9340, 0.9919, & +0.0063, 0.0185, 0.0467, 0.1095, 0.2299, 0.4175, 0.6569, 0.8639, 0.9695, & +0.0035, 0.0110, 0.0299, 0.0759, 0.1625, 0.3251, 0.5471, 0.7675, 0.9229, & +0.0021, 0.0063, 0.0185, 0.0508, 0.1174, 0.2425, 0.4335, 0.6718, 0.8639, & +0.0012, 0.0039, 0.0122, 0.0328, 0.0819, 0.1834, 0.3551, 0.5792, 0.7917 / +data ((cldnuctab( 1,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +0.0299, 0.0702, 0.1625, 0.3251, 0.5471, 0.7917, 0.9438, 0.9942, 0.9970, & +0.0167, 0.0428, 0.1021, 0.2177, 0.4016, 0.6569, 0.8639, 0.9722, 0.9970, & +0.0088, 0.0248, 0.0649, 0.1433, 0.2963, 0.5146, 0.7418, 0.9229, 0.9887, & +0.0056, 0.0151, 0.0392, 0.0950, 0.2059, 0.3859, 0.6108, 0.8354, 0.9600, & +0.0031, 0.0088, 0.0248, 0.0649, 0.1433, 0.2824, 0.4983, 0.7284, 0.9036, & +0.0018, 0.0056, 0.0167, 0.0428, 0.1021, 0.2177, 0.3859, 0.6264, 0.8250, & +0.0011, 0.0031, 0.0099, 0.0272, 0.0702, 0.1527, 0.3106, 0.5146, 0.7418 / +data ((cldnuctab( 2,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +0.0643, 0.1516, 0.3234, 0.5773, 0.8441, 0.9767, 0.9994, 0.9999, 0.9999, & +0.0424, 0.1086, 0.2410, 0.4639, 0.7403, 0.9334, 0.9953, 0.9999, 0.9999, & +0.0269, 0.0752, 0.1715, 0.3686, 0.6246, 0.8629, 0.9809, 0.9995, 0.9999, & +0.0182, 0.0503, 0.1246, 0.2808, 0.5290, 0.7784, 0.9520, 0.9967, 0.9999, & +0.0121, 0.0355, 0.0942, 0.2163, 0.4316, 0.6847, 0.9027, 0.9859, 0.9996, & +0.0070, 0.0222, 0.0643, 0.1614, 0.3382, 0.5773, 0.8019, 0.9433, 0.9959, & +0.0039, 0.0134, 0.0424, 0.1086, 0.2285, 0.3686, 0.4964, 0.5290, 0.8130 / +data ((cldnuctab( 2,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +0.0424, 0.1086, 0.2539, 0.4801, 0.7533, 0.9433, 0.9967, 0.9999, 0.9999, & +0.0269, 0.0752, 0.1715, 0.3533, 0.6246, 0.8629, 0.9827, 0.9996, 0.9999, & +0.0165, 0.0462, 0.1246, 0.2672, 0.4964, 0.7660, 0.9478, 0.9963, 0.9999, & +0.0108, 0.0324, 0.0875, 0.2045, 0.3998, 0.6701, 0.8879, 0.9859, 0.9996, & +0.0070, 0.0201, 0.0593, 0.1516, 0.3089, 0.5613, 0.8130, 0.9596, 0.9974, & +0.0044, 0.0134, 0.0424, 0.1086, 0.2410, 0.4639, 0.7269, 0.9096, 0.9873, & +0.0023, 0.0087, 0.0269, 0.0752, 0.1821, 0.3686, 0.5773, 0.7784, 0.9222 / +data ((cldnuctab( 2,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +0.0324, 0.0812, 0.1931, 0.3841, 0.6551, 0.8955, 0.9897, 0.9998, 0.9999, & +0.0182, 0.0503, 0.1246, 0.2808, 0.5127, 0.7903, 0.9559, 0.9980, 0.9999, & +0.0108, 0.0324, 0.0875, 0.2045, 0.3998, 0.6701, 0.8955, 0.9873, 0.9997, & +0.0070, 0.0201, 0.0593, 0.1422, 0.3089, 0.5452, 0.8019, 0.9596, 0.9977, & +0.0044, 0.0134, 0.0388, 0.1012, 0.2285, 0.4477, 0.7131, 0.9096, 0.9897, & +0.0027, 0.0087, 0.0269, 0.0752, 0.1715, 0.3533, 0.6090, 0.8441, 0.9691, & +0.0016, 0.0055, 0.0165, 0.0503, 0.1246, 0.2808, 0.5127, 0.7403, 0.9096 / +data ((cldnuctab( 2,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +0.0245, 0.0643, 0.1614, 0.3234, 0.5933, 0.8441, 0.9789, 0.9994, 0.9999, & +0.0149, 0.0388, 0.1012, 0.2285, 0.4477, 0.7131, 0.9222, 0.9941, 0.9999, & +0.0087, 0.0245, 0.0643, 0.1516, 0.3234, 0.5773, 0.8342, 0.9719, 0.9988, & +0.0049, 0.0149, 0.0424, 0.1086, 0.2410, 0.4477, 0.7131, 0.9222, 0.9926, & +0.0030, 0.0097, 0.0269, 0.0752, 0.1715, 0.3533, 0.6090, 0.8441, 0.9744, & +0.0018, 0.0055, 0.0182, 0.0503, 0.1246, 0.2672, 0.4964, 0.7533, 0.9334, & +0.0011, 0.0034, 0.0108, 0.0324, 0.0875, 0.2045, 0.4156, 0.6551, 0.8716 / +data ((cldnuctab( 2,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +0.0222, 0.0546, 0.1332, 0.2947, 0.5290, 0.8019, 0.9630, 0.9985, 0.9999, & +0.0121, 0.0324, 0.0812, 0.1931, 0.3841, 0.6551, 0.8879, 0.9873, 0.9997, & +0.0062, 0.0182, 0.0503, 0.1246, 0.2672, 0.4964, 0.7660, 0.9478, 0.9967, & +0.0039, 0.0108, 0.0324, 0.0812, 0.1931, 0.3841, 0.6400, 0.8716, 0.9827, & +0.0021, 0.0070, 0.0201, 0.0546, 0.1332, 0.2808, 0.5127, 0.7784, 0.9478, & +0.0012, 0.0039, 0.0121, 0.0355, 0.0942, 0.2163, 0.4156, 0.6701, 0.8879, & +0.0007, 0.0023, 0.0078, 0.0245, 0.0643, 0.1516, 0.3234, 0.5613, 0.8019 / +data ((cldnuctab( 2,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +0.0182, 0.0503, 0.1246, 0.2672, 0.4964, 0.7660, 0.9520, 0.9974, 0.9999, & +0.0097, 0.0296, 0.0752, 0.1715, 0.3382, 0.6090, 0.8537, 0.9809, 0.9994, & +0.0055, 0.0165, 0.0424, 0.1086, 0.2410, 0.4477, 0.7131, 0.9279, 0.9941, & +0.0030, 0.0087, 0.0269, 0.0696, 0.1614, 0.3234, 0.5773, 0.8238, 0.9691, & +0.0018, 0.0055, 0.0165, 0.0424, 0.1086, 0.2410, 0.4477, 0.7131, 0.9160, & +0.0009, 0.0030, 0.0097, 0.0269, 0.0752, 0.1715, 0.3382, 0.5933, 0.8342, & +0.0006, 0.0018, 0.0062, 0.0182, 0.0503, 0.1246, 0.2672, 0.4801, 0.7403 / +data ((cldnuctab( 2,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +0.0165, 0.0462, 0.1086, 0.2410, 0.4639, 0.7403, 0.9385, 0.9959, 0.9999, & +0.0087, 0.0245, 0.0643, 0.1516, 0.3234, 0.5613, 0.8342, 0.9719, 0.9990, & +0.0049, 0.0134, 0.0388, 0.0942, 0.2163, 0.4156, 0.6847, 0.9027, 0.9908, & +0.0027, 0.0078, 0.0222, 0.0593, 0.1422, 0.2947, 0.5290, 0.7903, 0.9559, & +0.0014, 0.0044, 0.0134, 0.0355, 0.0875, 0.2045, 0.3998, 0.6551, 0.8800, & +0.0008, 0.0027, 0.0078, 0.0222, 0.0593, 0.1422, 0.2947, 0.5290, 0.7784, & +0.0004, 0.0016, 0.0049, 0.0149, 0.0388, 0.1012, 0.2163, 0.4156, 0.6701 / +data ((cldnuctab( 2,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +0.0942, 0.2045, 0.3998, 0.6551, 0.8800, 0.9844, 0.9996, 0.9999, 0.9999, & +0.0643, 0.1516, 0.3089, 0.5452, 0.7903, 0.9520, 0.9967, 0.9999, 0.9999, & +0.0424, 0.1086, 0.2410, 0.4477, 0.6991, 0.9027, 0.9873, 0.9996, 0.9999, & +0.0296, 0.0752, 0.1821, 0.3533, 0.6090, 0.8342, 0.9662, 0.9977, 0.9999, & +0.0182, 0.0546, 0.1332, 0.2808, 0.5127, 0.7533, 0.9279, 0.9908, 0.9997, & +0.0108, 0.0324, 0.0942, 0.2163, 0.4156, 0.6400, 0.8441, 0.9559, 0.9971, & +0.0049, 0.0182, 0.0546, 0.1332, 0.2539, 0.3841, 0.4801, 0.5773, 0.8537 / +data ((cldnuctab( 2,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +0.0643, 0.1516, 0.3234, 0.5613, 0.8019, 0.9596, 0.9977, 0.9999, 0.9999, & +0.0424, 0.1086, 0.2285, 0.4316, 0.6991, 0.9027, 0.9873, 0.9997, 0.9999, & +0.0269, 0.0752, 0.1715, 0.3382, 0.5773, 0.8238, 0.9630, 0.9977, 0.9999, & +0.0182, 0.0503, 0.1246, 0.2672, 0.4801, 0.7269, 0.9160, 0.9897, 0.9997, & +0.0121, 0.0355, 0.0875, 0.2045, 0.3998, 0.6400, 0.8629, 0.9719, 0.9982, & +0.0070, 0.0222, 0.0643, 0.1516, 0.3234, 0.5452, 0.7903, 0.9334, 0.9917, & +0.0034, 0.0121, 0.0388, 0.1012, 0.2285, 0.4156, 0.6246, 0.8130, 0.9385 / +data ((cldnuctab( 2,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +0.0503, 0.1164, 0.2539, 0.4639, 0.7269, 0.9279, 0.9934, 0.9999, 0.9999, & +0.0296, 0.0752, 0.1821, 0.3533, 0.5933, 0.8441, 0.9719, 0.9986, 0.9999, & +0.0182, 0.0503, 0.1246, 0.2672, 0.4801, 0.7403, 0.9222, 0.9917, 0.9998, & +0.0121, 0.0355, 0.0875, 0.1931, 0.3841, 0.6246, 0.8537, 0.9719, 0.9985, & +0.0078, 0.0222, 0.0593, 0.1422, 0.3089, 0.5290, 0.7784, 0.9385, 0.9934, & +0.0049, 0.0149, 0.0424, 0.1086, 0.2410, 0.4477, 0.6847, 0.8879, 0.9789, & +0.0023, 0.0078, 0.0245, 0.0696, 0.1715, 0.3533, 0.5773, 0.7903, 0.9334 / +data ((cldnuctab( 2,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +0.0388, 0.0942, 0.2045, 0.3998, 0.6551, 0.8879, 0.9859, 0.9996, 0.9999, & +0.0222, 0.0593, 0.1422, 0.2947, 0.5290, 0.7784, 0.9478, 0.9959, 0.9999, & +0.0134, 0.0388, 0.0942, 0.2163, 0.3998, 0.6551, 0.8716, 0.9809, 0.9993, & +0.0087, 0.0245, 0.0643, 0.1516, 0.3089, 0.5452, 0.7784, 0.9433, 0.9953, & +0.0055, 0.0165, 0.0424, 0.1086, 0.2410, 0.4316, 0.6847, 0.8879, 0.9827, & +0.0034, 0.0097, 0.0296, 0.0752, 0.1715, 0.3533, 0.5933, 0.8130, 0.9559, & +0.0018, 0.0062, 0.0182, 0.0503, 0.1246, 0.2808, 0.4964, 0.7269, 0.9027 / +data ((cldnuctab( 2,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +0.0324, 0.0812, 0.1821, 0.3533, 0.6090, 0.8537, 0.9767, 0.9991, 0.9999, & +0.0182, 0.0503, 0.1164, 0.2539, 0.4639, 0.7269, 0.9222, 0.9917, 0.9998, & +0.0108, 0.0296, 0.0752, 0.1715, 0.3382, 0.5933, 0.8238, 0.9662, 0.9980, & +0.0062, 0.0182, 0.0503, 0.1164, 0.2539, 0.4639, 0.7131, 0.9096, 0.9886, & +0.0039, 0.0121, 0.0324, 0.0812, 0.1821, 0.3686, 0.6090, 0.8342, 0.9630, & +0.0023, 0.0070, 0.0222, 0.0546, 0.1332, 0.2808, 0.4964, 0.7403, 0.9222, & +0.0014, 0.0044, 0.0134, 0.0388, 0.0942, 0.2163, 0.3998, 0.6551, 0.8537 / +data ((cldnuctab( 2,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +0.0269, 0.0696, 0.1614, 0.3234, 0.5773, 0.8238, 0.9662, 0.9982, 0.9999, & +0.0165, 0.0424, 0.1012, 0.2285, 0.4316, 0.6847, 0.8955, 0.9873, 0.9996, & +0.0087, 0.0245, 0.0643, 0.1516, 0.3089, 0.5290, 0.7903, 0.9478, 0.9963, & +0.0055, 0.0149, 0.0388, 0.1012, 0.2163, 0.4156, 0.6551, 0.8800, 0.9809, & +0.0030, 0.0097, 0.0269, 0.0643, 0.1516, 0.3089, 0.5290, 0.7784, 0.9433, & +0.0018, 0.0055, 0.0165, 0.0462, 0.1086, 0.2285, 0.4316, 0.6701, 0.8800, & +0.0011, 0.0034, 0.0097, 0.0296, 0.0752, 0.1715, 0.3382, 0.5773, 0.8019 / +data ((cldnuctab( 2,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +0.0269, 0.0643, 0.1516, 0.3089, 0.5452, 0.8019, 0.9596, 0.9974, 0.9999, & +0.0149, 0.0388, 0.0942, 0.2045, 0.3998, 0.6551, 0.8800, 0.9827, 0.9994, & +0.0078, 0.0222, 0.0593, 0.1332, 0.2808, 0.4964, 0.7533, 0.9334, 0.9941, & +0.0044, 0.0134, 0.0355, 0.0875, 0.1931, 0.3686, 0.6090, 0.8441, 0.9719, & +0.0027, 0.0078, 0.0222, 0.0546, 0.1332, 0.2672, 0.4801, 0.7269, 0.9222, & +0.0016, 0.0049, 0.0134, 0.0355, 0.0875, 0.1931, 0.3841, 0.6090, 0.8441, & +0.0009, 0.0030, 0.0087, 0.0245, 0.0593, 0.1422, 0.2947, 0.5127, 0.7533 / +data ((cldnuctab( 2,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +0.1332, 0.2808, 0.4964, 0.7403, 0.9222, 0.9908, 0.9997, 0.9999, 0.9999, & +0.0942, 0.2163, 0.3998, 0.6400, 0.8537, 0.9691, 0.9980, 0.9999, 0.9999, & +0.0696, 0.1614, 0.3234, 0.5452, 0.7784, 0.9334, 0.9917, 0.9997, 0.9999, & +0.0462, 0.1164, 0.2539, 0.4477, 0.6991, 0.8879, 0.9789, 0.9986, 0.9999, & +0.0296, 0.0812, 0.1931, 0.3686, 0.6090, 0.8238, 0.9520, 0.9941, 0.9998, & +0.0149, 0.0462, 0.1246, 0.2808, 0.4964, 0.7131, 0.8800, 0.9719, 0.9985, & +0.0062, 0.0222, 0.0696, 0.1614, 0.2947, 0.3998, 0.5127, 0.5127, 0.8537 / +data ((cldnuctab( 2,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +0.1012, 0.2163, 0.3998, 0.6551, 0.8629, 0.9767, 0.9988, 0.9999, 0.9999, & +0.0696, 0.1516, 0.3089, 0.5452, 0.7784, 0.9385, 0.9926, 0.9998, 0.9999, & +0.0462, 0.1086, 0.2410, 0.4316, 0.6847, 0.8800, 0.9767, 0.9986, 0.9999, & +0.0296, 0.0812, 0.1821, 0.3533, 0.5773, 0.8130, 0.9478, 0.9941, 0.9998, & +0.0201, 0.0546, 0.1332, 0.2808, 0.4964, 0.7269, 0.9027, 0.9844, 0.9991, & +0.0097, 0.0324, 0.0875, 0.2163, 0.3998, 0.6400, 0.8441, 0.9559, 0.9953, & +0.0044, 0.0149, 0.0503, 0.1332, 0.2947, 0.4801, 0.6991, 0.8441, 0.9596 / +data ((cldnuctab( 2,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +0.0752, 0.1715, 0.3382, 0.5613, 0.8019, 0.9520, 0.9963, 0.9999, 0.9999, & +0.0503, 0.1164, 0.2410, 0.4477, 0.6991, 0.8955, 0.9827, 0.9992, 0.9999, & +0.0324, 0.0812, 0.1821, 0.3533, 0.5773, 0.8130, 0.9520, 0.9953, 0.9999, & +0.0201, 0.0546, 0.1332, 0.2808, 0.4801, 0.7269, 0.9027, 0.9844, 0.9992, & +0.0134, 0.0388, 0.0942, 0.2163, 0.3998, 0.6246, 0.8441, 0.9630, 0.9963, & +0.0070, 0.0222, 0.0643, 0.1516, 0.3234, 0.5452, 0.7660, 0.9279, 0.9873, & +0.0034, 0.0108, 0.0355, 0.1012, 0.2285, 0.4316, 0.6701, 0.8537, 0.9520 / +data ((cldnuctab( 2,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +0.0593, 0.1332, 0.2808, 0.4964, 0.7533, 0.9279, 0.9917, 0.9998, 0.9999, & +0.0355, 0.0875, 0.2045, 0.3841, 0.6246, 0.8441, 0.9691, 0.9977, 0.9999, & +0.0222, 0.0593, 0.1422, 0.2808, 0.4964, 0.7403, 0.9222, 0.9886, 0.9996, & +0.0149, 0.0388, 0.1012, 0.2163, 0.3998, 0.6400, 0.8537, 0.9662, 0.9974, & +0.0097, 0.0269, 0.0696, 0.1614, 0.3234, 0.5452, 0.7660, 0.9279, 0.9897, & +0.0055, 0.0165, 0.0462, 0.1164, 0.2410, 0.4477, 0.6847, 0.8716, 0.9744, & +0.0027, 0.0087, 0.0245, 0.0752, 0.1821, 0.3533, 0.5933, 0.8019, 0.9334 / +data ((cldnuctab( 2,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +0.0503, 0.1164, 0.2410, 0.4477, 0.6991, 0.9027, 0.9859, 0.9995, 0.9999, & +0.0296, 0.0752, 0.1715, 0.3382, 0.5613, 0.8019, 0.9520, 0.9959, 0.9999, & +0.0182, 0.0462, 0.1164, 0.2410, 0.4316, 0.6847, 0.8879, 0.9809, 0.9990, & +0.0108, 0.0296, 0.0752, 0.1715, 0.3382, 0.5613, 0.7903, 0.9433, 0.9941, & +0.0070, 0.0201, 0.0546, 0.1246, 0.2539, 0.4639, 0.6991, 0.8879, 0.9789, & +0.0039, 0.0121, 0.0355, 0.0875, 0.1931, 0.3686, 0.5933, 0.8130, 0.9520, & +0.0023, 0.0062, 0.0201, 0.0546, 0.1422, 0.2947, 0.5127, 0.7403, 0.9027 / +data ((cldnuctab( 2,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +0.0424, 0.1012, 0.2163, 0.4156, 0.6701, 0.8800, 0.9809, 0.9991, 0.9999, & +0.0245, 0.0643, 0.1422, 0.2947, 0.5127, 0.7660, 0.9334, 0.9934, 0.9998, & +0.0149, 0.0388, 0.0942, 0.2045, 0.3998, 0.6400, 0.8537, 0.9691, 0.9980, & +0.0087, 0.0245, 0.0643, 0.1422, 0.2947, 0.5127, 0.7403, 0.9222, 0.9897, & +0.0055, 0.0149, 0.0424, 0.1012, 0.2163, 0.3998, 0.6400, 0.8441, 0.9662, & +0.0034, 0.0097, 0.0269, 0.0696, 0.1614, 0.3089, 0.5290, 0.7660, 0.9222, & +0.0016, 0.0055, 0.0165, 0.0424, 0.1086, 0.2410, 0.4316, 0.6701, 0.8629 / +data ((cldnuctab( 2,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +0.0388, 0.0942, 0.2045, 0.3998, 0.6400, 0.8629, 0.9767, 0.9986, 0.9999, & +0.0222, 0.0593, 0.1332, 0.2672, 0.4964, 0.7403, 0.9222, 0.9908, 0.9996, & +0.0134, 0.0355, 0.0875, 0.1821, 0.3533, 0.5933, 0.8238, 0.9630, 0.9967, & +0.0078, 0.0222, 0.0546, 0.1246, 0.2672, 0.4639, 0.7131, 0.9027, 0.9844, & +0.0049, 0.0134, 0.0355, 0.0875, 0.1931, 0.3533, 0.5933, 0.8130, 0.9520, & +0.0027, 0.0078, 0.0222, 0.0593, 0.1332, 0.2672, 0.4801, 0.7131, 0.8955, & +0.0014, 0.0044, 0.0134, 0.0355, 0.0942, 0.2045, 0.3841, 0.6090, 0.8238 / +data ((cldnuctab( 2,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +0.2045, 0.3841, 0.6090, 0.8238, 0.9559, 0.9953, 0.9998, 0.9999, 0.9999, & +0.1516, 0.2947, 0.5127, 0.7403, 0.9096, 0.9844, 0.9991, 0.9999, 0.9999, & +0.1086, 0.2285, 0.4156, 0.6551, 0.8537, 0.9630, 0.9959, 0.9998, 0.9999, & +0.0696, 0.1715, 0.3382, 0.5613, 0.7784, 0.9279, 0.9886, 0.9993, 0.9999, & +0.0388, 0.1086, 0.2539, 0.4639, 0.6991, 0.8879, 0.9719, 0.9971, 0.9999, & +0.0182, 0.0593, 0.1614, 0.3533, 0.5773, 0.7784, 0.9279, 0.9844, 0.9992, & +0.0070, 0.0245, 0.0812, 0.1821, 0.2947, 0.3686, 0.4316, 0.4316, 0.8955 / +data ((cldnuctab( 2,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +0.1422, 0.2947, 0.5127, 0.7403, 0.9160, 0.9873, 0.9994, 0.9999, 0.9999, & +0.1012, 0.2285, 0.4156, 0.6400, 0.8537, 0.9630, 0.9967, 0.9999, 0.9999, & +0.0752, 0.1715, 0.3234, 0.5452, 0.7784, 0.9279, 0.9886, 0.9994, 0.9999, & +0.0503, 0.1246, 0.2539, 0.4639, 0.6847, 0.8716, 0.9719, 0.9971, 0.9999, & +0.0269, 0.0812, 0.1931, 0.3686, 0.6090, 0.8130, 0.9433, 0.9917, 0.9995, & +0.0134, 0.0424, 0.1164, 0.2808, 0.4964, 0.7403, 0.9027, 0.9767, 0.9974, & +0.0049, 0.0182, 0.0593, 0.1614, 0.3382, 0.5452, 0.7403, 0.8955, 0.9744 / +data ((cldnuctab( 2,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +0.1086, 0.2410, 0.4316, 0.6701, 0.8716, 0.9744, 0.9982, 0.9999, 0.9999, & +0.0752, 0.1715, 0.3382, 0.5613, 0.7903, 0.9385, 0.9917, 0.9996, 0.9999, & +0.0503, 0.1246, 0.2539, 0.4639, 0.6847, 0.8800, 0.9744, 0.9977, 0.9999, & +0.0355, 0.0875, 0.1931, 0.3686, 0.5933, 0.8130, 0.9433, 0.9917, 0.9996, & +0.0201, 0.0593, 0.1422, 0.2947, 0.5127, 0.7269, 0.9027, 0.9789, 0.9982, & +0.0097, 0.0296, 0.0875, 0.2163, 0.4156, 0.6400, 0.8441, 0.9559, 0.9934, & +0.0039, 0.0134, 0.0424, 0.1246, 0.2947, 0.5127, 0.7403, 0.8955, 0.9744 / +data ((cldnuctab( 2,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +0.0875, 0.1931, 0.3686, 0.6090, 0.8342, 0.9596, 0.9963, 0.9999, 0.9999, & +0.0593, 0.1332, 0.2808, 0.4801, 0.7269, 0.9027, 0.9827, 0.9990, 0.9999, & +0.0388, 0.0942, 0.2045, 0.3841, 0.6090, 0.8238, 0.9559, 0.9948, 0.9998, & +0.0245, 0.0643, 0.1516, 0.2947, 0.5127, 0.7403, 0.9096, 0.9827, 0.9988, & +0.0149, 0.0424, 0.1086, 0.2285, 0.4156, 0.6551, 0.8441, 0.9596, 0.9953, & +0.0078, 0.0222, 0.0643, 0.1614, 0.3382, 0.5613, 0.7784, 0.9279, 0.9859, & +0.0030, 0.0097, 0.0324, 0.0942, 0.2285, 0.4477, 0.6847, 0.8629, 0.9630 / +data ((cldnuctab( 2,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +0.0752, 0.1614, 0.3234, 0.5613, 0.7903, 0.9433, 0.9934, 0.9997, 0.9999, & +0.0462, 0.1086, 0.2410, 0.4316, 0.6701, 0.8716, 0.9744, 0.9980, 0.9999, & +0.0296, 0.0752, 0.1715, 0.3234, 0.5452, 0.7784, 0.9334, 0.9897, 0.9995, & +0.0201, 0.0503, 0.1164, 0.2410, 0.4477, 0.6701, 0.8716, 0.9691, 0.9971, & +0.0121, 0.0324, 0.0812, 0.1821, 0.3533, 0.5773, 0.7903, 0.9334, 0.9897, & +0.0062, 0.0182, 0.0503, 0.1246, 0.2672, 0.4801, 0.6991, 0.8879, 0.9744, & +0.0027, 0.0078, 0.0245, 0.0752, 0.1821, 0.3686, 0.6090, 0.8130, 0.9433 / +data ((cldnuctab( 2,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +0.0643, 0.1516, 0.2947, 0.5127, 0.7660, 0.9279, 0.9908, 0.9996, 0.9999, & +0.0388, 0.0942, 0.2045, 0.3841, 0.6246, 0.8441, 0.9662, 0.9967, 0.9999, & +0.0245, 0.0643, 0.1422, 0.2808, 0.4964, 0.7269, 0.9096, 0.9859, 0.9991, & +0.0165, 0.0424, 0.1012, 0.2045, 0.3841, 0.6246, 0.8342, 0.9559, 0.9948, & +0.0097, 0.0269, 0.0643, 0.1516, 0.2947, 0.5127, 0.7403, 0.9096, 0.9827, & +0.0049, 0.0149, 0.0424, 0.1012, 0.2285, 0.4156, 0.6400, 0.8441, 0.9559, & +0.0021, 0.0070, 0.0201, 0.0593, 0.1516, 0.3234, 0.5452, 0.7660, 0.9160 / +data ((cldnuctab( 2,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +0.0593, 0.1332, 0.2808, 0.4964, 0.7403, 0.9160, 0.9886, 0.9994, 0.9999, & +0.0355, 0.0875, 0.1931, 0.3686, 0.5933, 0.8238, 0.9559, 0.9959, 0.9998, & +0.0222, 0.0546, 0.1246, 0.2539, 0.4639, 0.6991, 0.8955, 0.9809, 0.9986, & +0.0134, 0.0355, 0.0875, 0.1821, 0.3533, 0.5773, 0.8019, 0.9433, 0.9926, & +0.0078, 0.0222, 0.0546, 0.1332, 0.2672, 0.4639, 0.6991, 0.8800, 0.9744, & +0.0044, 0.0134, 0.0355, 0.0875, 0.1931, 0.3686, 0.5933, 0.8019, 0.9385, & +0.0018, 0.0062, 0.0182, 0.0503, 0.1246, 0.2672, 0.4801, 0.7131, 0.8879 / +data ((cldnuctab( 2,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +0.2410, 0.4477, 0.6701, 0.8716, 0.9691, 0.9971, 0.9999, 0.9999, 0.9999, & +0.1821, 0.3533, 0.5773, 0.7903, 0.9385, 0.9897, 0.9995, 0.9999, 0.9999, & +0.1332, 0.2808, 0.4801, 0.7131, 0.8879, 0.9744, 0.9974, 0.9999, 0.9999, & +0.0875, 0.2045, 0.3998, 0.6246, 0.8342, 0.9520, 0.9926, 0.9996, 0.9999, & +0.0462, 0.1332, 0.2947, 0.5290, 0.7660, 0.9160, 0.9827, 0.9982, 0.9999, & +0.0182, 0.0643, 0.1821, 0.3841, 0.6246, 0.8238, 0.9385, 0.9897, 0.9995, & +0.0070, 0.0269, 0.0812, 0.1931, 0.2947, 0.3533, 0.4316, 0.4477, 0.8716 / +data ((cldnuctab( 2,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +0.1821, 0.3533, 0.5773, 0.8019, 0.9433, 0.9917, 0.9996, 0.9999, 0.9999, & +0.1332, 0.2672, 0.4801, 0.7131, 0.8879, 0.9767, 0.9980, 0.9999, 0.9999, & +0.0942, 0.2045, 0.3841, 0.6090, 0.8238, 0.9478, 0.9926, 0.9996, 0.9999, & +0.0643, 0.1516, 0.3089, 0.5290, 0.7533, 0.9096, 0.9809, 0.9982, 0.9999, & +0.0324, 0.0942, 0.2285, 0.4316, 0.6701, 0.8537, 0.9630, 0.9948, 0.9997, & +0.0134, 0.0462, 0.1332, 0.3234, 0.5613, 0.7903, 0.9279, 0.9844, 0.9985, & +0.0055, 0.0201, 0.0643, 0.1821, 0.3686, 0.5773, 0.7784, 0.9027, 0.9827 / +data ((cldnuctab( 2,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +0.1422, 0.2808, 0.4964, 0.7269, 0.9096, 0.9844, 0.9990, 0.9999, 0.9999, & +0.1012, 0.2163, 0.3998, 0.6246, 0.8342, 0.9559, 0.9948, 0.9998, 0.9999, & +0.0696, 0.1516, 0.3089, 0.5290, 0.7533, 0.9096, 0.9827, 0.9986, 0.9999, & +0.0462, 0.1086, 0.2410, 0.4316, 0.6551, 0.8537, 0.9630, 0.9953, 0.9997, & +0.0245, 0.0696, 0.1715, 0.3533, 0.5773, 0.7903, 0.9279, 0.9873, 0.9990, & +0.0108, 0.0355, 0.1012, 0.2539, 0.4639, 0.7131, 0.8879, 0.9719, 0.9963, & +0.0044, 0.0149, 0.0503, 0.1422, 0.3234, 0.5613, 0.7784, 0.9222, 0.9827 / +data ((cldnuctab( 2,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +0.1164, 0.2410, 0.4316, 0.6701, 0.8716, 0.9744, 0.9977, 0.9999, 0.9999, & +0.0752, 0.1715, 0.3234, 0.5452, 0.7784, 0.9334, 0.9897, 0.9994, 0.9999, & +0.0503, 0.1164, 0.2539, 0.4477, 0.6847, 0.8716, 0.9691, 0.9967, 0.9998, & +0.0324, 0.0812, 0.1821, 0.3533, 0.5773, 0.7903, 0.9334, 0.9886, 0.9993, & +0.0182, 0.0546, 0.1332, 0.2808, 0.4801, 0.7131, 0.8879, 0.9744, 0.9971, & +0.0087, 0.0269, 0.0752, 0.1931, 0.3841, 0.6246, 0.8238, 0.9478, 0.9908, & +0.0034, 0.0108, 0.0355, 0.1086, 0.2672, 0.4964, 0.7269, 0.8955, 0.9744 / +data ((cldnuctab( 2,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +0.0942, 0.2045, 0.3841, 0.6246, 0.8342, 0.9630, 0.9963, 0.9998, 0.9999, & +0.0593, 0.1422, 0.2808, 0.4964, 0.7269, 0.9096, 0.9827, 0.9988, 0.9999, & +0.0388, 0.0942, 0.2045, 0.3841, 0.6090, 0.8238, 0.9520, 0.9941, 0.9997, & +0.0269, 0.0643, 0.1516, 0.2947, 0.5127, 0.7403, 0.9027, 0.9809, 0.9982, & +0.0149, 0.0424, 0.1012, 0.2285, 0.4156, 0.6400, 0.8342, 0.9559, 0.9934, & +0.0070, 0.0222, 0.0593, 0.1516, 0.3234, 0.5452, 0.7660, 0.9160, 0.9827, & +0.0027, 0.0087, 0.0296, 0.0812, 0.2163, 0.4316, 0.6701, 0.8629, 0.9596 / +data ((cldnuctab( 2,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +0.0812, 0.1821, 0.3533, 0.5773, 0.8130, 0.9520, 0.9948, 0.9997, 0.9999, & +0.0546, 0.1246, 0.2539, 0.4477, 0.6847, 0.8800, 0.9767, 0.9982, 0.9999, & +0.0324, 0.0812, 0.1821, 0.3382, 0.5613, 0.7903, 0.9385, 0.9908, 0.9995, & +0.0222, 0.0546, 0.1246, 0.2539, 0.4477, 0.6847, 0.8716, 0.9719, 0.9971, & +0.0121, 0.0355, 0.0875, 0.1821, 0.3533, 0.5773, 0.7903, 0.9334, 0.9886, & +0.0062, 0.0182, 0.0503, 0.1246, 0.2672, 0.4801, 0.6991, 0.8800, 0.9719, & +0.0023, 0.0078, 0.0245, 0.0696, 0.1715, 0.3686, 0.6090, 0.8130, 0.9433 / +data ((cldnuctab( 2,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +0.0752, 0.1715, 0.3234, 0.5613, 0.7903, 0.9433, 0.9934, 0.9997, 0.9999, & +0.0462, 0.1086, 0.2285, 0.4156, 0.6551, 0.8629, 0.9719, 0.9974, 0.9999, & +0.0296, 0.0696, 0.1614, 0.3089, 0.5290, 0.7533, 0.9222, 0.9873, 0.9992, & +0.0182, 0.0462, 0.1086, 0.2285, 0.4156, 0.6400, 0.8441, 0.9630, 0.9953, & +0.0108, 0.0296, 0.0752, 0.1614, 0.3234, 0.5290, 0.7533, 0.9160, 0.9844, & +0.0055, 0.0149, 0.0424, 0.1086, 0.2285, 0.4316, 0.6551, 0.8441, 0.9596, & +0.0021, 0.0070, 0.0201, 0.0593, 0.1516, 0.3234, 0.5452, 0.7660, 0.9160 / +data ((cldnuctab( 2,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +0.2808, 0.4964, 0.7131, 0.8955, 0.9767, 0.9980, 0.9999, 0.9999, 0.9999, & +0.2163, 0.3998, 0.6246, 0.8342, 0.9520, 0.9926, 0.9996, 0.9999, 0.9999, & +0.1614, 0.3234, 0.5290, 0.7533, 0.9096, 0.9827, 0.9985, 0.9999, 0.9999, & +0.1012, 0.2285, 0.4477, 0.6701, 0.8629, 0.9630, 0.9948, 0.9997, 0.9999, & +0.0503, 0.1422, 0.3234, 0.5773, 0.8019, 0.9334, 0.9873, 0.9988, 0.9999, & +0.0201, 0.0696, 0.1931, 0.3998, 0.6551, 0.8441, 0.9520, 0.9926, 0.9996, & +0.0078, 0.0269, 0.0875, 0.1931, 0.2808, 0.3382, 0.3382, 0.4639, 0.8879 / +data ((cldnuctab( 2,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +0.2163, 0.3998, 0.6246, 0.8342, 0.9559, 0.9948, 0.9997, 0.9999, 0.9999, & +0.1614, 0.3089, 0.5290, 0.7533, 0.9096, 0.9827, 0.9986, 0.9999, 0.9999, & +0.1164, 0.2410, 0.4316, 0.6701, 0.8537, 0.9630, 0.9948, 0.9997, 0.9999, & +0.0696, 0.1715, 0.3533, 0.5773, 0.7903, 0.9279, 0.9873, 0.9988, 0.9999, & +0.0355, 0.1086, 0.2539, 0.4801, 0.7131, 0.8879, 0.9719, 0.9963, 0.9998, & +0.0149, 0.0503, 0.1516, 0.3382, 0.5933, 0.8130, 0.9433, 0.9886, 0.9990, & +0.0055, 0.0201, 0.0696, 0.1931, 0.3841, 0.5933, 0.7784, 0.9222, 0.9873 / +data ((cldnuctab( 2,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +0.1614, 0.3234, 0.5452, 0.7784, 0.9279, 0.9886, 0.9993, 0.9999, 0.9999, & +0.1164, 0.2410, 0.4477, 0.6701, 0.8629, 0.9662, 0.9963, 0.9998, 0.9999, & +0.0812, 0.1821, 0.3533, 0.5773, 0.7903, 0.9334, 0.9886, 0.9991, 0.9999, & +0.0546, 0.1332, 0.2672, 0.4801, 0.7131, 0.8800, 0.9719, 0.9967, 0.9998, & +0.0269, 0.0812, 0.1931, 0.3841, 0.6246, 0.8238, 0.9478, 0.9908, 0.9993, & +0.0121, 0.0388, 0.1086, 0.2672, 0.5127, 0.7403, 0.9096, 0.9789, 0.9974, & +0.0044, 0.0149, 0.0503, 0.1516, 0.3533, 0.5933, 0.8130, 0.9334, 0.9859 / +data ((cldnuctab( 2,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +0.1332, 0.2672, 0.4801, 0.7131, 0.8955, 0.9809, 0.9985, 0.9999, 0.9999, & +0.0942, 0.1931, 0.3686, 0.5933, 0.8130, 0.9478, 0.9926, 0.9996, 0.9999, & +0.0593, 0.1422, 0.2808, 0.4964, 0.7269, 0.8955, 0.9789, 0.9980, 0.9999, & +0.0388, 0.1012, 0.2163, 0.3998, 0.6246, 0.8342, 0.9520, 0.9926, 0.9995, & +0.0222, 0.0593, 0.1516, 0.3089, 0.5290, 0.7533, 0.9096, 0.9809, 0.9980, & +0.0087, 0.0296, 0.0875, 0.2163, 0.4316, 0.6701, 0.8537, 0.9596, 0.9941, & +0.0034, 0.0121, 0.0388, 0.1164, 0.2808, 0.5290, 0.7660, 0.9160, 0.9809 / +data ((cldnuctab( 2,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +0.1086, 0.2285, 0.4316, 0.6701, 0.8716, 0.9719, 0.9974, 0.9999, 0.9999, & +0.0752, 0.1614, 0.3234, 0.5452, 0.7660, 0.9279, 0.9886, 0.9992, 0.9999, & +0.0503, 0.1164, 0.2410, 0.4316, 0.6551, 0.8629, 0.9662, 0.9959, 0.9998, & +0.0324, 0.0812, 0.1715, 0.3382, 0.5613, 0.7784, 0.9222, 0.9859, 0.9990, & +0.0182, 0.0503, 0.1164, 0.2539, 0.4639, 0.6847, 0.8716, 0.9662, 0.9959, & +0.0078, 0.0245, 0.0696, 0.1715, 0.3533, 0.5933, 0.8019, 0.9334, 0.9873, & +0.0030, 0.0097, 0.0296, 0.0875, 0.2285, 0.4639, 0.7131, 0.8879, 0.9691 / +data ((cldnuctab( 2,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +0.0942, 0.2045, 0.3998, 0.6246, 0.8441, 0.9630, 0.9963, 0.9998, 0.9999, & +0.0643, 0.1422, 0.2808, 0.4964, 0.7269, 0.9096, 0.9844, 0.9988, 0.9999, & +0.0424, 0.0942, 0.2045, 0.3841, 0.6090, 0.8238, 0.9520, 0.9941, 0.9996, & +0.0269, 0.0643, 0.1422, 0.2947, 0.4964, 0.7269, 0.8955, 0.9789, 0.9980, & +0.0149, 0.0388, 0.1012, 0.2163, 0.3998, 0.6246, 0.8238, 0.9520, 0.9926, & +0.0062, 0.0201, 0.0546, 0.1422, 0.2947, 0.5290, 0.7403, 0.9027, 0.9789, & +0.0023, 0.0078, 0.0245, 0.0752, 0.1931, 0.3998, 0.6400, 0.8441, 0.9559 / +data ((cldnuctab( 2,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +0.0875, 0.1931, 0.3686, 0.6090, 0.8238, 0.9596, 0.9953, 0.9998, 0.9999, & +0.0546, 0.1246, 0.2672, 0.4639, 0.6991, 0.8955, 0.9809, 0.9985, 0.9999, & +0.0355, 0.0875, 0.1821, 0.3533, 0.5773, 0.8019, 0.9433, 0.9917, 0.9995, & +0.0222, 0.0546, 0.1246, 0.2672, 0.4639, 0.6847, 0.8716, 0.9719, 0.9971, & +0.0134, 0.0355, 0.0875, 0.1931, 0.3533, 0.5773, 0.7903, 0.9334, 0.9886, & +0.0055, 0.0165, 0.0503, 0.1246, 0.2672, 0.4639, 0.6991, 0.8800, 0.9691, & +0.0021, 0.0070, 0.0222, 0.0643, 0.1614, 0.3533, 0.5933, 0.8019, 0.9385 / +data ((cldnuctab( 2,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +0.3089, 0.5290, 0.7533, 0.9096, 0.9827, 0.9986, 0.9999, 0.9999, 0.9999, & +0.2410, 0.4316, 0.6701, 0.8537, 0.9596, 0.9948, 0.9997, 0.9999, 0.9999, & +0.1715, 0.3533, 0.5773, 0.7903, 0.9279, 0.9859, 0.9988, 0.9999, 0.9999, & +0.1086, 0.2539, 0.4801, 0.7131, 0.8800, 0.9719, 0.9963, 0.9998, 0.9999, & +0.0503, 0.1516, 0.3533, 0.6090, 0.8238, 0.9478, 0.9897, 0.9991, 0.9999, & +0.0201, 0.0696, 0.2045, 0.4316, 0.6701, 0.8629, 0.9630, 0.9941, 0.9997, & +0.0078, 0.0269, 0.0875, 0.2045, 0.2808, 0.3234, 0.3382, 0.3533, 0.8955 / +data ((cldnuctab( 2,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +0.2410, 0.4316, 0.6701, 0.8629, 0.9662, 0.9959, 0.9998, 0.9999, 0.9999, & +0.1821, 0.3382, 0.5613, 0.7784, 0.9279, 0.9873, 0.9990, 0.9999, 0.9999, & +0.1246, 0.2672, 0.4801, 0.6991, 0.8800, 0.9691, 0.9963, 0.9998, 0.9999, & +0.0812, 0.1931, 0.3841, 0.6090, 0.8130, 0.9433, 0.9897, 0.9992, 0.9999, & +0.0388, 0.1164, 0.2672, 0.5127, 0.7403, 0.9027, 0.9789, 0.9974, 0.9998, & +0.0149, 0.0503, 0.1516, 0.3686, 0.6246, 0.8342, 0.9520, 0.9908, 0.9993, & +0.0055, 0.0201, 0.0696, 0.1931, 0.3998, 0.6090, 0.7903, 0.9334, 0.9908 / +data ((cldnuctab( 2,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +0.1821, 0.3533, 0.5773, 0.8019, 0.9433, 0.9917, 0.9995, 0.9999, 0.9999, & +0.1332, 0.2672, 0.4801, 0.7131, 0.8879, 0.9744, 0.9974, 0.9999, 0.9999, & +0.0942, 0.2045, 0.3841, 0.6090, 0.8130, 0.9433, 0.9908, 0.9994, 0.9999, & +0.0593, 0.1422, 0.2947, 0.5127, 0.7403, 0.9027, 0.9789, 0.9974, 0.9998, & +0.0296, 0.0875, 0.2163, 0.4156, 0.6551, 0.8441, 0.9559, 0.9934, 0.9995, & +0.0121, 0.0388, 0.1164, 0.2947, 0.5452, 0.7784, 0.9222, 0.9827, 0.9980, & +0.0044, 0.0149, 0.0546, 0.1614, 0.3686, 0.6246, 0.8238, 0.9433, 0.9897 / +data ((cldnuctab( 2,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +0.1516, 0.2947, 0.5127, 0.7533, 0.9160, 0.9859, 0.9990, 0.9999, 0.9999, & +0.1012, 0.2163, 0.3998, 0.6400, 0.8441, 0.9596, 0.9948, 0.9997, 0.9999, & +0.0696, 0.1614, 0.3234, 0.5290, 0.7533, 0.9160, 0.9827, 0.9985, 0.9999, & +0.0462, 0.1086, 0.2410, 0.4316, 0.6701, 0.8537, 0.9596, 0.9948, 0.9996, & +0.0222, 0.0643, 0.1614, 0.3382, 0.5613, 0.7784, 0.9279, 0.9859, 0.9986, & +0.0097, 0.0296, 0.0942, 0.2285, 0.4639, 0.6991, 0.8800, 0.9691, 0.9953, & +0.0034, 0.0121, 0.0388, 0.1246, 0.3089, 0.5613, 0.7903, 0.9334, 0.9844 / +data ((cldnuctab( 2,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +0.1246, 0.2539, 0.4639, 0.6991, 0.8879, 0.9789, 0.9982, 0.9999, 0.9999, & +0.0875, 0.1821, 0.3533, 0.5773, 0.8019, 0.9433, 0.9917, 0.9995, 0.9999, & +0.0546, 0.1332, 0.2672, 0.4639, 0.6991, 0.8800, 0.9719, 0.9971, 0.9998, & +0.0355, 0.0875, 0.1931, 0.3686, 0.5933, 0.8019, 0.9385, 0.9897, 0.9992, & +0.0182, 0.0546, 0.1332, 0.2808, 0.4964, 0.7131, 0.8879, 0.9744, 0.9967, & +0.0078, 0.0245, 0.0752, 0.1821, 0.3841, 0.6246, 0.8238, 0.9478, 0.9908, & +0.0030, 0.0097, 0.0324, 0.0942, 0.2410, 0.4801, 0.7403, 0.9027, 0.9767 / +data ((cldnuctab( 2,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +0.1086, 0.2285, 0.4316, 0.6701, 0.8716, 0.9719, 0.9974, 0.9999, 0.9999, & +0.0752, 0.1614, 0.3089, 0.5290, 0.7660, 0.9279, 0.9886, 0.9992, 0.9999, & +0.0462, 0.1086, 0.2285, 0.4156, 0.6400, 0.8537, 0.9630, 0.9953, 0.9997, & +0.0296, 0.0752, 0.1614, 0.3234, 0.5290, 0.7533, 0.9160, 0.9844, 0.9986, & +0.0165, 0.0462, 0.1086, 0.2410, 0.4316, 0.6551, 0.8537, 0.9596, 0.9941, & +0.0070, 0.0201, 0.0593, 0.1516, 0.3234, 0.5613, 0.7784, 0.9222, 0.9844, & +0.0027, 0.0078, 0.0269, 0.0752, 0.2045, 0.4156, 0.6701, 0.8629, 0.9630 / +data ((cldnuctab( 2,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +0.1012, 0.2163, 0.3998, 0.6400, 0.8537, 0.9662, 0.9967, 0.9998, 0.9999, & +0.0643, 0.1422, 0.2947, 0.4964, 0.7403, 0.9096, 0.9844, 0.9988, 0.9999, & +0.0424, 0.1012, 0.2045, 0.3841, 0.6090, 0.8238, 0.9520, 0.9941, 0.9996, & +0.0269, 0.0643, 0.1422, 0.2808, 0.4964, 0.7269, 0.8955, 0.9789, 0.9980, & +0.0149, 0.0388, 0.0942, 0.2045, 0.3841, 0.6090, 0.8238, 0.9478, 0.9917, & +0.0062, 0.0182, 0.0546, 0.1332, 0.2808, 0.4964, 0.7269, 0.8955, 0.9767, & +0.0021, 0.0070, 0.0222, 0.0643, 0.1715, 0.3686, 0.6246, 0.8342, 0.9478 / +data ((cldnuctab( 3,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +0.2107, 0.4002, 0.6519, 0.8697, 0.9795, 0.9990, 0.9999, 0.9999, 0.9999, & +0.1616, 0.3148, 0.5457, 0.7892, 0.9485, 0.9952, 0.9998, 0.9999, 0.9999, & +0.1117, 0.2527, 0.4542, 0.7013, 0.8967, 0.9836, 0.9992, 0.9999, 0.9999, & +0.0739, 0.1852, 0.3652, 0.6173, 0.8383, 0.9614, 0.9968, 0.9999, 0.9999, & +0.0385, 0.1117, 0.2676, 0.5091, 0.7617, 0.9260, 0.9898, 0.9994, 0.9999, & +0.0183, 0.0619, 0.1732, 0.3652, 0.6173, 0.8268, 0.9531, 0.9945, 0.9998, & +0.0070, 0.0254, 0.0806, 0.1852, 0.2986, 0.3481, 0.4181, 0.4361, 0.8882 / +data ((cldnuctab( 3,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +0.1507, 0.3148, 0.5457, 0.7892, 0.9531, 0.9958, 0.9999, 0.9999, 0.9999, & +0.1117, 0.2382, 0.4361, 0.6852, 0.8967, 0.9836, 0.9993, 0.9999, 0.9999, & +0.0739, 0.1732, 0.3481, 0.5997, 0.8268, 0.9575, 0.9963, 0.9999, 0.9999, & +0.0515, 0.1302, 0.2676, 0.4908, 0.7324, 0.9193, 0.9884, 0.9994, 0.9999, & +0.0283, 0.0806, 0.1977, 0.4002, 0.6519, 0.8598, 0.9716, 0.9976, 0.9999, & +0.0129, 0.0425, 0.1207, 0.2986, 0.5457, 0.7757, 0.9380, 0.9909, 0.9996, & +0.0054, 0.0183, 0.0619, 0.1732, 0.3481, 0.5638, 0.7757, 0.9122, 0.9898 / +data ((cldnuctab( 3,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +0.1207, 0.2527, 0.4542, 0.7170, 0.9122, 0.9898, 0.9997, 0.9999, 0.9999, & +0.0806, 0.1852, 0.3652, 0.5997, 0.8268, 0.9651, 0.9976, 0.9999, 0.9999, & +0.0515, 0.1302, 0.2676, 0.4908, 0.7324, 0.9193, 0.9898, 0.9996, 0.9999, & +0.0348, 0.0952, 0.2107, 0.4002, 0.6347, 0.8493, 0.9685, 0.9979, 0.9999, & +0.0205, 0.0619, 0.1507, 0.3148, 0.5457, 0.7757, 0.9380, 0.9920, 0.9997, & +0.0102, 0.0314, 0.0877, 0.2242, 0.4361, 0.6852, 0.8882, 0.9795, 0.9984, & +0.0041, 0.0129, 0.0425, 0.1302, 0.3148, 0.5457, 0.7757, 0.9322, 0.9898 / +data ((cldnuctab( 3,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +0.0952, 0.1977, 0.4002, 0.6519, 0.8697, 0.9795, 0.9991, 0.9999, 0.9999, & +0.0619, 0.1402, 0.2986, 0.5091, 0.7617, 0.9380, 0.9938, 0.9998, 0.9999, & +0.0385, 0.0952, 0.2107, 0.4002, 0.6519, 0.8697, 0.9771, 0.9986, 0.9999, & +0.0254, 0.0677, 0.1616, 0.3148, 0.5457, 0.7892, 0.9380, 0.9938, 0.9997, & +0.0163, 0.0425, 0.1117, 0.2382, 0.4542, 0.6852, 0.8882, 0.9795, 0.9988, & +0.0079, 0.0228, 0.0677, 0.1732, 0.3481, 0.5997, 0.8148, 0.9531, 0.9952, & +0.0031, 0.0102, 0.0348, 0.0952, 0.2382, 0.4725, 0.7170, 0.9047, 0.9795 / +data ((cldnuctab( 3,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +0.0739, 0.1732, 0.3481, 0.5818, 0.8268, 0.9685, 0.9982, 0.9999, 0.9999, & +0.0468, 0.1117, 0.2527, 0.4542, 0.7013, 0.9047, 0.9884, 0.9996, 0.9999, & +0.0314, 0.0806, 0.1732, 0.3481, 0.5818, 0.8148, 0.9575, 0.9968, 0.9999, & +0.0205, 0.0515, 0.1207, 0.2527, 0.4725, 0.7170, 0.9047, 0.9854, 0.9993, & +0.0115, 0.0348, 0.0877, 0.1852, 0.3652, 0.5997, 0.8268, 0.9614, 0.9963, & +0.0061, 0.0183, 0.0515, 0.1302, 0.2829, 0.5091, 0.7473, 0.9193, 0.9884, & +0.0027, 0.0079, 0.0254, 0.0739, 0.1977, 0.4002, 0.6519, 0.8598, 0.9651 / +data ((cldnuctab( 3,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +0.0677, 0.1507, 0.3148, 0.5457, 0.8022, 0.9575, 0.9968, 0.9999, 0.9999, & +0.0425, 0.0952, 0.2107, 0.4002, 0.6519, 0.8792, 0.9816, 0.9992, 0.9999, & +0.0254, 0.0677, 0.1507, 0.2986, 0.5274, 0.7757, 0.9380, 0.9938, 0.9998, & +0.0163, 0.0425, 0.1032, 0.2242, 0.4181, 0.6519, 0.8697, 0.9745, 0.9986, & +0.0102, 0.0283, 0.0677, 0.1616, 0.3148, 0.5457, 0.7757, 0.9380, 0.9929, & +0.0054, 0.0145, 0.0425, 0.1032, 0.2382, 0.4361, 0.6852, 0.8792, 0.9771, & +0.0020, 0.0070, 0.0205, 0.0619, 0.1616, 0.3312, 0.5638, 0.8022, 0.9434 / +data ((cldnuctab( 3,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +0.0619, 0.1402, 0.2829, 0.5091, 0.7757, 0.9434, 0.9958, 0.9999, 0.9999, & +0.0348, 0.0877, 0.1977, 0.3826, 0.6173, 0.8598, 0.9745, 0.9988, 0.9999, & +0.0228, 0.0565, 0.1302, 0.2676, 0.4908, 0.7324, 0.9193, 0.9909, 0.9997, & +0.0129, 0.0348, 0.0877, 0.1977, 0.3652, 0.5997, 0.8383, 0.9651, 0.9976, & +0.0079, 0.0228, 0.0565, 0.1302, 0.2829, 0.4908, 0.7324, 0.9122, 0.9870, & +0.0047, 0.0129, 0.0348, 0.0877, 0.1977, 0.3826, 0.6173, 0.8383, 0.9614, & +0.0020, 0.0061, 0.0183, 0.0515, 0.1302, 0.2829, 0.5091, 0.7473, 0.9193 / +data ((cldnuctab( 3,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +0.2829, 0.5091, 0.7473, 0.9193, 0.9870, 0.9994, 0.9999, 0.9999, 0.9999, & +0.2242, 0.4181, 0.6519, 0.8598, 0.9685, 0.9972, 0.9999, 0.9999, 0.9999, & +0.1616, 0.3312, 0.5638, 0.7757, 0.9322, 0.9909, 0.9995, 0.9999, 0.9999, & +0.1032, 0.2382, 0.4542, 0.7013, 0.8882, 0.9771, 0.9982, 0.9999, 0.9999, & +0.0468, 0.1402, 0.3312, 0.5997, 0.8268, 0.9531, 0.9938, 0.9997, 0.9999, & +0.0205, 0.0677, 0.1977, 0.4181, 0.6687, 0.8697, 0.9685, 0.9968, 0.9999, & +0.0070, 0.0283, 0.0877, 0.1977, 0.2829, 0.3312, 0.3312, 0.4542, 0.9047 / +data ((cldnuctab( 3,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +0.2242, 0.4181, 0.6519, 0.8598, 0.9716, 0.9979, 0.9999, 0.9999, 0.9999, & +0.1616, 0.3148, 0.5457, 0.7757, 0.9322, 0.9909, 0.9996, 0.9999, 0.9999, & +0.1117, 0.2527, 0.4542, 0.6852, 0.8792, 0.9745, 0.9979, 0.9999, 0.9999, & +0.0739, 0.1732, 0.3652, 0.5997, 0.8148, 0.9485, 0.9929, 0.9997, 0.9999, & +0.0348, 0.1032, 0.2527, 0.4908, 0.7324, 0.9047, 0.9836, 0.9986, 0.9999, & +0.0145, 0.0515, 0.1507, 0.3481, 0.6173, 0.8383, 0.9575, 0.9945, 0.9997, & +0.0054, 0.0205, 0.0677, 0.1977, 0.3826, 0.5997, 0.7892, 0.9380, 0.9938 / +data ((cldnuctab( 3,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +0.1732, 0.3312, 0.5638, 0.7892, 0.9434, 0.9945, 0.9998, 0.9999, 0.9999, & +0.1207, 0.2527, 0.4542, 0.6852, 0.8882, 0.9795, 0.9986, 0.9999, 0.9999, & +0.0806, 0.1852, 0.3652, 0.5997, 0.8148, 0.9485, 0.9938, 0.9997, 0.9999, & +0.0515, 0.1302, 0.2829, 0.4908, 0.7324, 0.9047, 0.9816, 0.9988, 0.9999, & +0.0283, 0.0806, 0.1977, 0.4002, 0.6347, 0.8493, 0.9614, 0.9958, 0.9998, & +0.0115, 0.0385, 0.1117, 0.2829, 0.5274, 0.7617, 0.9260, 0.9870, 0.9991, & +0.0041, 0.0145, 0.0515, 0.1507, 0.3481, 0.6173, 0.8268, 0.9485, 0.9929 / +data ((cldnuctab( 3,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +0.1302, 0.2829, 0.4908, 0.7324, 0.9193, 0.9884, 0.9995, 0.9999, 0.9999, & +0.0952, 0.1977, 0.3826, 0.6173, 0.8383, 0.9614, 0.9968, 0.9999, 0.9999, & +0.0619, 0.1402, 0.2986, 0.5091, 0.7473, 0.9122, 0.9870, 0.9992, 0.9999, & +0.0385, 0.1032, 0.2242, 0.4181, 0.6519, 0.8493, 0.9651, 0.9963, 0.9998, & +0.0205, 0.0619, 0.1507, 0.3148, 0.5457, 0.7757, 0.9260, 0.9884, 0.9993, & +0.0090, 0.0283, 0.0877, 0.2242, 0.4361, 0.6852, 0.8792, 0.9716, 0.9972, & +0.0036, 0.0115, 0.0385, 0.1207, 0.2986, 0.5457, 0.7892, 0.9380, 0.9884 / +data ((cldnuctab( 3,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +0.1117, 0.2382, 0.4361, 0.6852, 0.8882, 0.9816, 0.9990, 0.9999, 0.9999, & +0.0739, 0.1616, 0.3312, 0.5457, 0.7892, 0.9434, 0.9938, 0.9997, 0.9999, & +0.0515, 0.1207, 0.2382, 0.4361, 0.6852, 0.8792, 0.9771, 0.9984, 0.9999, & +0.0314, 0.0806, 0.1732, 0.3481, 0.5638, 0.7892, 0.9380, 0.9920, 0.9996, & +0.0183, 0.0468, 0.1207, 0.2676, 0.4725, 0.7013, 0.8882, 0.9771, 0.9982, & +0.0079, 0.0228, 0.0677, 0.1732, 0.3652, 0.5997, 0.8148, 0.9485, 0.9929, & +0.0027, 0.0090, 0.0314, 0.0877, 0.2382, 0.4725, 0.7170, 0.9047, 0.9795 / +data ((cldnuctab( 3,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +0.0952, 0.2107, 0.4002, 0.6347, 0.8598, 0.9745, 0.9984, 0.9999, 0.9999, & +0.0619, 0.1402, 0.2986, 0.5091, 0.7473, 0.9260, 0.9898, 0.9996, 0.9999, & +0.0425, 0.0952, 0.2107, 0.4002, 0.6173, 0.8383, 0.9651, 0.9968, 0.9999, & +0.0254, 0.0677, 0.1507, 0.2986, 0.5091, 0.7473, 0.9122, 0.9870, 0.9992, & +0.0145, 0.0425, 0.1032, 0.2242, 0.4002, 0.6347, 0.8493, 0.9614, 0.9963, & +0.0061, 0.0205, 0.0565, 0.1402, 0.3148, 0.5274, 0.7617, 0.9193, 0.9870, & +0.0024, 0.0079, 0.0254, 0.0739, 0.1977, 0.4002, 0.6519, 0.8598, 0.9651 / +data ((cldnuctab( 3,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +0.0877, 0.1977, 0.3652, 0.6173, 0.8383, 0.9685, 0.9979, 0.9999, 0.9999, & +0.0565, 0.1302, 0.2676, 0.4725, 0.7170, 0.9047, 0.9870, 0.9993, 0.9999, & +0.0348, 0.0877, 0.1852, 0.3481, 0.5818, 0.8148, 0.9531, 0.9952, 0.9998, & +0.0228, 0.0565, 0.1302, 0.2676, 0.4725, 0.7013, 0.8882, 0.9795, 0.9988, & +0.0129, 0.0348, 0.0877, 0.1852, 0.3652, 0.5818, 0.8022, 0.9485, 0.9938, & +0.0061, 0.0183, 0.0468, 0.1207, 0.2676, 0.4725, 0.7170, 0.8967, 0.9795, & +0.0024, 0.0070, 0.0205, 0.0619, 0.1616, 0.3481, 0.5997, 0.8268, 0.9485 / +data ((cldnuctab( 3,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +0.3826, 0.6173, 0.8268, 0.9531, 0.9938, 0.9997, 0.9999, 0.9999, 0.9999, & +0.2986, 0.5274, 0.7473, 0.9122, 0.9836, 0.9986, 0.9999, 0.9999, 0.9999, & +0.2107, 0.4181, 0.6519, 0.8598, 0.9614, 0.9952, 0.9997, 0.9999, 0.9999, & +0.1207, 0.2986, 0.5457, 0.7892, 0.9322, 0.9884, 0.9991, 0.9999, 0.9999, & +0.0565, 0.1732, 0.4002, 0.6852, 0.8792, 0.9716, 0.9968, 0.9998, 0.9999, & +0.0205, 0.0739, 0.2107, 0.4542, 0.7013, 0.8967, 0.9816, 0.9982, 0.9999, & +0.0079, 0.0283, 0.0952, 0.1977, 0.2382, 0.2527, 0.3148, 0.3652, 0.9193 / +data ((cldnuctab( 3,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +0.2986, 0.5091, 0.7473, 0.9122, 0.9854, 0.9990, 0.9999, 0.9999, 0.9999, & +0.2242, 0.4181, 0.6519, 0.8493, 0.9614, 0.9958, 0.9998, 0.9999, 0.9999, & +0.1616, 0.3312, 0.5638, 0.7757, 0.9260, 0.9870, 0.9991, 0.9999, 0.9999, & +0.0952, 0.2382, 0.4542, 0.7013, 0.8792, 0.9716, 0.9968, 0.9998, 0.9999, & +0.0425, 0.1302, 0.3148, 0.5818, 0.8148, 0.9434, 0.9909, 0.9993, 0.9999, & +0.0163, 0.0565, 0.1732, 0.4002, 0.6852, 0.8882, 0.9745, 0.9972, 0.9998, & +0.0061, 0.0228, 0.0739, 0.2107, 0.4181, 0.5997, 0.8148, 0.9575, 0.9958 / +data ((cldnuctab( 3,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +0.2382, 0.4361, 0.6687, 0.8697, 0.9716, 0.9972, 0.9999, 0.9999, 0.9999, & +0.1732, 0.3481, 0.5638, 0.7892, 0.9322, 0.9898, 0.9993, 0.9999, 0.9999, & +0.1207, 0.2676, 0.4725, 0.7013, 0.8792, 0.9716, 0.9972, 0.9998, 0.9999, & +0.0739, 0.1852, 0.3652, 0.5997, 0.8148, 0.9434, 0.9909, 0.9994, 0.9999, & +0.0314, 0.0952, 0.2527, 0.4908, 0.7324, 0.9047, 0.9795, 0.9979, 0.9999, & +0.0129, 0.0425, 0.1302, 0.3312, 0.6173, 0.8383, 0.9575, 0.9938, 0.9996, & +0.0047, 0.0163, 0.0565, 0.1732, 0.4002, 0.6519, 0.8598, 0.9685, 0.9963 / +data ((cldnuctab( 3,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +0.1977, 0.3652, 0.5997, 0.8148, 0.9531, 0.9945, 0.9997, 0.9999, 0.9999, & +0.1402, 0.2829, 0.4908, 0.7170, 0.8967, 0.9795, 0.9984, 0.9999, 0.9999, & +0.0952, 0.2107, 0.3826, 0.6173, 0.8268, 0.9531, 0.9938, 0.9996, 0.9999, & +0.0565, 0.1402, 0.2986, 0.5091, 0.7473, 0.9047, 0.9816, 0.9984, 0.9999, & +0.0254, 0.0806, 0.1977, 0.4002, 0.6519, 0.8493, 0.9614, 0.9945, 0.9997, & +0.0102, 0.0348, 0.1032, 0.2676, 0.5274, 0.7757, 0.9260, 0.9854, 0.9986, & +0.0036, 0.0129, 0.0425, 0.1302, 0.3312, 0.6173, 0.8383, 0.9575, 0.9938 / +data ((cldnuctab( 3,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +0.1616, 0.3148, 0.5457, 0.7757, 0.9322, 0.9909, 0.9996, 0.9999, 0.9999, & +0.1117, 0.2382, 0.4361, 0.6687, 0.8598, 0.9685, 0.9972, 0.9999, 0.9999, & +0.0806, 0.1732, 0.3312, 0.5457, 0.7757, 0.9260, 0.9884, 0.9992, 0.9999, & +0.0468, 0.1117, 0.2527, 0.4542, 0.6687, 0.8697, 0.9685, 0.9963, 0.9998, & +0.0228, 0.0619, 0.1616, 0.3481, 0.5638, 0.7892, 0.9322, 0.9884, 0.9991, & +0.0090, 0.0283, 0.0806, 0.2107, 0.4361, 0.7013, 0.8882, 0.9716, 0.9968, & +0.0031, 0.0102, 0.0348, 0.1032, 0.2676, 0.5457, 0.7892, 0.9380, 0.9884 / +data ((cldnuctab( 3,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +0.1402, 0.2829, 0.5091, 0.7473, 0.9193, 0.9884, 0.9993, 0.9999, 0.9999, & +0.0952, 0.2107, 0.3826, 0.6173, 0.8268, 0.9575, 0.9958, 0.9998, 0.9999, & +0.0677, 0.1507, 0.2829, 0.4908, 0.7324, 0.9047, 0.9816, 0.9986, 0.9999, & +0.0385, 0.0952, 0.2107, 0.4002, 0.6173, 0.8268, 0.9531, 0.9938, 0.9997, & +0.0183, 0.0515, 0.1402, 0.2986, 0.5091, 0.7324, 0.9047, 0.9816, 0.9982, & +0.0079, 0.0228, 0.0677, 0.1852, 0.3826, 0.6347, 0.8383, 0.9575, 0.9938, & +0.0036, 0.0090, 0.0283, 0.0877, 0.2242, 0.4725, 0.7324, 0.9122, 0.9816 / +data ((cldnuctab( 3,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +0.1302, 0.2676, 0.4725, 0.7170, 0.9047, 0.9854, 0.9991, 0.9999, 0.9999, & +0.0877, 0.1852, 0.3481, 0.5818, 0.8022, 0.9485, 0.9938, 0.9997, 0.9999, & +0.0565, 0.1302, 0.2676, 0.4542, 0.6852, 0.8792, 0.9771, 0.9982, 0.9999, & +0.0348, 0.0877, 0.1852, 0.3481, 0.5818, 0.7892, 0.9380, 0.9909, 0.9994, & +0.0163, 0.0468, 0.1207, 0.2527, 0.4542, 0.6852, 0.8792, 0.9716, 0.9972, & +0.0070, 0.0205, 0.0619, 0.1616, 0.3312, 0.5818, 0.8022, 0.9380, 0.9898, & +0.0036, 0.0079, 0.0254, 0.0739, 0.1977, 0.4181, 0.6852, 0.8792, 0.9716 / +data ((cldnuctab( 3,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +0.4908, 0.7170, 0.8967, 0.9771, 0.9976, 0.9998, 0.9999, 0.9999, 0.9999, & +0.4002, 0.6347, 0.8383, 0.9531, 0.9920, 0.9994, 0.9999, 0.9999, 0.9999, & +0.2676, 0.5274, 0.7617, 0.9122, 0.9816, 0.9982, 0.9999, 0.9999, 0.9999, & +0.1402, 0.3652, 0.6519, 0.8598, 0.9614, 0.9945, 0.9996, 0.9999, 0.9999, & +0.0619, 0.1852, 0.4542, 0.7473, 0.9260, 0.9870, 0.9986, 0.9999, 0.9999, & +0.0228, 0.0806, 0.2242, 0.4908, 0.7473, 0.9260, 0.9884, 0.9991, 0.9999, & +0.0115, 0.0348, 0.0952, 0.1852, 0.2242, 0.2382, 0.3148, 0.4002, 0.8792 / +data ((cldnuctab( 3,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +0.4002, 0.6347, 0.8383, 0.9531, 0.9938, 0.9996, 0.9999, 0.9999, 0.9999, & +0.3148, 0.5274, 0.7617, 0.9122, 0.9816, 0.9982, 0.9999, 0.9999, 0.9999, & +0.2107, 0.4181, 0.6687, 0.8598, 0.9614, 0.9945, 0.9996, 0.9999, 0.9999, & +0.1117, 0.2829, 0.5457, 0.7892, 0.9322, 0.9870, 0.9986, 0.9999, 0.9999, & +0.0468, 0.1507, 0.3652, 0.6687, 0.8792, 0.9716, 0.9963, 0.9997, 0.9999, & +0.0183, 0.0619, 0.1852, 0.4542, 0.7473, 0.9260, 0.9870, 0.9988, 0.9999, & +0.0090, 0.0254, 0.0806, 0.2107, 0.4002, 0.5997, 0.8383, 0.9575, 0.9979 / +data ((cldnuctab( 3,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +0.3312, 0.5457, 0.7757, 0.9260, 0.9870, 0.9990, 0.9999, 0.9999, 0.9999, & +0.2527, 0.4542, 0.6687, 0.8697, 0.9651, 0.9958, 0.9997, 0.9999, 0.9999, & +0.1732, 0.3481, 0.5818, 0.7892, 0.9322, 0.9870, 0.9988, 0.9999, 0.9999, & +0.0877, 0.2242, 0.4542, 0.7013, 0.8882, 0.9716, 0.9963, 0.9997, 0.9999, & +0.0348, 0.1117, 0.2986, 0.5818, 0.8148, 0.9434, 0.9909, 0.9991, 0.9999, & +0.0129, 0.0468, 0.1507, 0.3826, 0.6852, 0.8967, 0.9771, 0.9972, 0.9998, & +0.0090, 0.0183, 0.0619, 0.1852, 0.4181, 0.6852, 0.8967, 0.9836, 0.9984 / +data ((cldnuctab( 3,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +0.2676, 0.4725, 0.7013, 0.8882, 0.9771, 0.9979, 0.9999, 0.9999, 0.9999, & +0.1977, 0.3826, 0.5997, 0.8148, 0.9434, 0.9920, 0.9994, 0.9999, 0.9999, & +0.1302, 0.2829, 0.4908, 0.7170, 0.8967, 0.9771, 0.9976, 0.9998, 0.9999, & +0.0739, 0.1852, 0.3826, 0.6173, 0.8268, 0.9485, 0.9920, 0.9993, 0.9999, & +0.0283, 0.0877, 0.2382, 0.4908, 0.7473, 0.9122, 0.9795, 0.9979, 0.9998, & +0.0115, 0.0348, 0.1117, 0.2986, 0.5997, 0.8383, 0.9575, 0.9938, 0.9995, & +0.0090, 0.0145, 0.0468, 0.1402, 0.3652, 0.6687, 0.8882, 0.9771, 0.9976 / +data ((cldnuctab( 3,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +0.2382, 0.4181, 0.6519, 0.8598, 0.9685, 0.9963, 0.9998, 0.9999, 0.9999, & +0.1616, 0.3312, 0.5457, 0.7617, 0.9193, 0.9870, 0.9990, 0.9999, 0.9999, & +0.1117, 0.2382, 0.4361, 0.6687, 0.8598, 0.9614, 0.9952, 0.9997, 0.9999, & +0.0619, 0.1507, 0.3312, 0.5457, 0.7757, 0.9260, 0.9854, 0.9986, 0.9999, & +0.0254, 0.0739, 0.1977, 0.4181, 0.6687, 0.8697, 0.9651, 0.9952, 0.9997, & +0.0102, 0.0283, 0.0877, 0.2527, 0.5274, 0.7892, 0.9322, 0.9870, 0.9988, & +0.0102, 0.0115, 0.0348, 0.1117, 0.2986, 0.5997, 0.8493, 0.9651, 0.9952 / +data ((cldnuctab( 3,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +0.2107, 0.3826, 0.6173, 0.8268, 0.9575, 0.9952, 0.9997, 0.9999, 0.9999, & +0.1402, 0.2829, 0.4908, 0.7170, 0.8967, 0.9816, 0.9984, 0.9999, 0.9999, & +0.0952, 0.2107, 0.3826, 0.6173, 0.8148, 0.9485, 0.9929, 0.9995, 0.9999, & +0.0515, 0.1302, 0.2829, 0.4908, 0.7170, 0.8967, 0.9771, 0.9976, 0.9998, & +0.0228, 0.0619, 0.1732, 0.3652, 0.6173, 0.8268, 0.9485, 0.9920, 0.9993, & +0.0102, 0.0254, 0.0739, 0.2107, 0.4542, 0.7170, 0.9047, 0.9795, 0.9976, & +0.0102, 0.0115, 0.0314, 0.0952, 0.2527, 0.5274, 0.8022, 0.9485, 0.9920 / +data ((cldnuctab( 3,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +0.1852, 0.3652, 0.5818, 0.8148, 0.9485, 0.9938, 0.9996, 0.9999, 0.9999, & +0.1302, 0.2676, 0.4542, 0.6852, 0.8792, 0.9745, 0.9979, 0.9999, 0.9999, & +0.0877, 0.1852, 0.3481, 0.5638, 0.7892, 0.9322, 0.9898, 0.9992, 0.9999, & +0.0468, 0.1207, 0.2527, 0.4542, 0.6852, 0.8697, 0.9685, 0.9963, 0.9998, & +0.0205, 0.0565, 0.1507, 0.3312, 0.5638, 0.7892, 0.9322, 0.9870, 0.9990, & +0.0115, 0.0228, 0.0677, 0.1852, 0.4002, 0.6687, 0.8697, 0.9685, 0.9958, & +0.0115, 0.0129, 0.0254, 0.0806, 0.2107, 0.4725, 0.7617, 0.9322, 0.9870 / +data ((cldnuctab( 3,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +0.5638, 0.7757, 0.9260, 0.9854, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4542, 0.6852, 0.8792, 0.9685, 0.9958, 0.9997, 0.9999, 0.9999, 0.9999, & +0.2986, 0.5818, 0.8022, 0.9380, 0.9884, 0.9990, 0.9999, 0.9999, 0.9999, & +0.1507, 0.4002, 0.7013, 0.8967, 0.9745, 0.9968, 0.9997, 0.9999, 0.9999, & +0.0619, 0.1977, 0.4725, 0.7892, 0.9434, 0.9909, 0.9992, 0.9999, 0.9999, & +0.0254, 0.0877, 0.2382, 0.4908, 0.7617, 0.9380, 0.9920, 0.9995, 0.9999, & +0.0183, 0.0385, 0.0952, 0.1852, 0.2107, 0.2242, 0.2527, 0.3312, 0.8792 / +data ((cldnuctab( 3,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +0.4725, 0.7013, 0.8792, 0.9716, 0.9963, 0.9997, 0.9999, 0.9999, 0.9999, & +0.3652, 0.5997, 0.8148, 0.9380, 0.9898, 0.9990, 0.9999, 0.9999, 0.9999, & +0.2382, 0.4725, 0.7170, 0.8967, 0.9745, 0.9968, 0.9998, 0.9999, 0.9999, & +0.1207, 0.3148, 0.5997, 0.8268, 0.9531, 0.9920, 0.9992, 0.9999, 0.9999, & +0.0468, 0.1507, 0.4002, 0.7170, 0.9122, 0.9816, 0.9979, 0.9998, 0.9999, & +0.0183, 0.0619, 0.1977, 0.4725, 0.7757, 0.9485, 0.9920, 0.9993, 0.9999, & +0.0163, 0.0283, 0.0806, 0.2107, 0.4002, 0.5818, 0.8022, 0.9651, 0.9986 / +data ((cldnuctab( 3,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +0.3826, 0.6173, 0.8268, 0.9485, 0.9920, 0.9994, 0.9999, 0.9999, 0.9999, & +0.2986, 0.5091, 0.7324, 0.9047, 0.9795, 0.9976, 0.9998, 0.9999, 0.9999, & +0.1977, 0.4002, 0.6347, 0.8383, 0.9531, 0.9929, 0.9994, 0.9999, 0.9999, & +0.0952, 0.2527, 0.5091, 0.7617, 0.9193, 0.9816, 0.9979, 0.9998, 0.9999, & +0.0385, 0.1207, 0.3148, 0.6173, 0.8598, 0.9614, 0.9945, 0.9995, 0.9999, & +0.0163, 0.0468, 0.1507, 0.4002, 0.7170, 0.9193, 0.9854, 0.9984, 0.9999, & +0.0163, 0.0205, 0.0619, 0.1852, 0.4181, 0.7013, 0.9122, 0.9854, 0.9988 / +data ((cldnuctab( 3,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +0.3312, 0.5457, 0.7617, 0.9260, 0.9870, 0.9988, 0.9999, 0.9999, 0.9999, & +0.2382, 0.4361, 0.6687, 0.8598, 0.9651, 0.9952, 0.9997, 0.9999, 0.9999, & +0.1616, 0.3312, 0.5638, 0.7757, 0.9260, 0.9854, 0.9986, 0.9999, 0.9999, & +0.0806, 0.2107, 0.4361, 0.6852, 0.8697, 0.9685, 0.9952, 0.9996, 0.9999, & +0.0314, 0.0952, 0.2676, 0.5457, 0.7892, 0.9380, 0.9884, 0.9988, 0.9999, & +0.0163, 0.0385, 0.1207, 0.3312, 0.6347, 0.8792, 0.9716, 0.9963, 0.9997, & +0.0163, 0.0205, 0.0515, 0.1507, 0.3826, 0.6852, 0.9047, 0.9854, 0.9984 / +data ((cldnuctab( 3,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +0.2829, 0.4908, 0.7170, 0.8967, 0.9795, 0.9982, 0.9999, 0.9999, 0.9999, & +0.1977, 0.3826, 0.5997, 0.8148, 0.9485, 0.9920, 0.9994, 0.9999, 0.9999, & +0.1302, 0.2829, 0.4908, 0.7170, 0.8967, 0.9771, 0.9972, 0.9998, 0.9999, & +0.0677, 0.1732, 0.3652, 0.6173, 0.8268, 0.9485, 0.9909, 0.9992, 0.9999, & +0.0254, 0.0806, 0.2107, 0.4725, 0.7324, 0.9047, 0.9771, 0.9972, 0.9998, & +0.0183, 0.0314, 0.0952, 0.2676, 0.5638, 0.8268, 0.9531, 0.9920, 0.9993, & +0.0183, 0.0205, 0.0385, 0.1207, 0.3148, 0.6347, 0.8792, 0.9745, 0.9972 / +data ((cldnuctab( 3,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +0.2527, 0.4542, 0.6852, 0.8792, 0.9745, 0.9972, 0.9998, 0.9999, 0.9999, & +0.1732, 0.3481, 0.5638, 0.7757, 0.9322, 0.9884, 0.9991, 0.9999, 0.9999, & +0.1117, 0.2527, 0.4361, 0.6687, 0.8598, 0.9651, 0.9958, 0.9997, 0.9999, & +0.0565, 0.1507, 0.3312, 0.5638, 0.7757, 0.9260, 0.9854, 0.9986, 0.9999, & +0.0228, 0.0677, 0.1852, 0.4002, 0.6687, 0.8697, 0.9651, 0.9952, 0.9996, & +0.0183, 0.0254, 0.0806, 0.2242, 0.4908, 0.7757, 0.9322, 0.9870, 0.9986, & +0.0183, 0.0205, 0.0314, 0.0952, 0.2676, 0.5638, 0.8383, 0.9651, 0.9952 / +data ((cldnuctab( 3,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +0.2242, 0.4181, 0.6519, 0.8598, 0.9685, 0.9968, 0.9998, 0.9999, 0.9999, & +0.1616, 0.3148, 0.5274, 0.7473, 0.9193, 0.9854, 0.9988, 0.9999, 0.9999, & +0.1032, 0.2242, 0.4002, 0.6347, 0.8383, 0.9575, 0.9945, 0.9996, 0.9999, & +0.0515, 0.1402, 0.2986, 0.5091, 0.7473, 0.9047, 0.9816, 0.9982, 0.9999, & +0.0205, 0.0619, 0.1616, 0.3652, 0.6173, 0.8383, 0.9531, 0.9929, 0.9994, & +0.0205, 0.0228, 0.0677, 0.1977, 0.4361, 0.7170, 0.9047, 0.9795, 0.9976, & +0.0205, 0.0228, 0.0283, 0.0806, 0.2242, 0.5091, 0.8022, 0.9485, 0.9920 / +data ((cldnuctab( 3,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +0.5997, 0.8148, 0.9434, 0.9898, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4908, 0.7324, 0.8967, 0.9771, 0.9972, 0.9998, 0.9999, 0.9999, 0.9999, & +0.3312, 0.6173, 0.8383, 0.9531, 0.9920, 0.9993, 0.9999, 0.9999, 0.9999, & +0.1616, 0.4181, 0.7324, 0.9122, 0.9816, 0.9979, 0.9998, 0.9999, 0.9999, & +0.0619, 0.1977, 0.4908, 0.8022, 0.9575, 0.9938, 0.9995, 0.9999, 0.9999, & +0.0314, 0.0877, 0.2382, 0.4908, 0.7617, 0.9434, 0.9938, 0.9996, 0.9999, & +0.0254, 0.0468, 0.1032, 0.1852, 0.2107, 0.2242, 0.2527, 0.3481, 0.8148 / +data ((cldnuctab( 3,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +0.5091, 0.7324, 0.9047, 0.9795, 0.9976, 0.9998, 0.9999, 0.9999, 0.9999, & +0.4002, 0.6347, 0.8383, 0.9531, 0.9929, 0.9994, 0.9999, 0.9999, 0.9999, & +0.2527, 0.5091, 0.7617, 0.9193, 0.9816, 0.9979, 0.9998, 0.9999, 0.9999, & +0.1207, 0.3312, 0.6347, 0.8598, 0.9651, 0.9945, 0.9995, 0.9999, 0.9999, & +0.0515, 0.1616, 0.4181, 0.7473, 0.9260, 0.9870, 0.9986, 0.9999, 0.9999, & +0.0254, 0.0677, 0.1977, 0.4725, 0.7892, 0.9575, 0.9945, 0.9995, 0.9999, & +0.0254, 0.0348, 0.0877, 0.2107, 0.3826, 0.5818, 0.7892, 0.9685, 0.9986 / +data ((cldnuctab( 3,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +0.4361, 0.6687, 0.8598, 0.9614, 0.9945, 0.9996, 0.9999, 0.9999, 0.9999, & +0.3312, 0.5638, 0.7757, 0.9260, 0.9854, 0.9984, 0.9999, 0.9999, 0.9999, & +0.2107, 0.4361, 0.6852, 0.8697, 0.9651, 0.9952, 0.9996, 0.9999, 0.9999, & +0.1032, 0.2676, 0.5457, 0.7892, 0.9322, 0.9870, 0.9986, 0.9999, 0.9999, & +0.0385, 0.1207, 0.3312, 0.6519, 0.8792, 0.9716, 0.9963, 0.9997, 0.9999, & +0.0254, 0.0515, 0.1507, 0.4002, 0.7473, 0.9322, 0.9898, 0.9990, 0.9999, & +0.0228, 0.0283, 0.0677, 0.1852, 0.4181, 0.7013, 0.9193, 0.9884, 0.9992 / +data ((cldnuctab( 3,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +0.3652, 0.5818, 0.8022, 0.9434, 0.9909, 0.9993, 0.9999, 0.9999, 0.9999, & +0.2676, 0.4725, 0.7170, 0.8882, 0.9745, 0.9968, 0.9998, 0.9999, 0.9999, & +0.1732, 0.3652, 0.5997, 0.8148, 0.9434, 0.9898, 0.9991, 0.9999, 0.9999, & +0.0806, 0.2242, 0.4725, 0.7170, 0.8967, 0.9771, 0.9968, 0.9997, 0.9999, & +0.0314, 0.1032, 0.2676, 0.5638, 0.8268, 0.9485, 0.9920, 0.9992, 0.9999, & +0.0254, 0.0385, 0.1207, 0.3312, 0.6687, 0.8967, 0.9795, 0.9976, 0.9998, & +0.0254, 0.0283, 0.0515, 0.1507, 0.3826, 0.6852, 0.9122, 0.9884, 0.9988 / +data ((cldnuctab( 3,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +0.3148, 0.5274, 0.7617, 0.9193, 0.9854, 0.9988, 0.9999, 0.9999, 0.9999, & +0.2382, 0.4181, 0.6519, 0.8493, 0.9614, 0.9945, 0.9996, 0.9999, 0.9999, & +0.1507, 0.3148, 0.5457, 0.7617, 0.9193, 0.9836, 0.9984, 0.9999, 0.9999, & +0.0677, 0.1852, 0.4002, 0.6519, 0.8598, 0.9614, 0.9945, 0.9995, 0.9999, & +0.0283, 0.0806, 0.2242, 0.4908, 0.7617, 0.9260, 0.9836, 0.9984, 0.9999, & +0.0254, 0.0314, 0.0952, 0.2676, 0.5818, 0.8493, 0.9651, 0.9945, 0.9996, & +0.0254, 0.0283, 0.0425, 0.1207, 0.3148, 0.6347, 0.8882, 0.9816, 0.9982 / +data ((cldnuctab( 3,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +0.2829, 0.4908, 0.7170, 0.9047, 0.9816, 0.9984, 0.9999, 0.9999, 0.9999, & +0.2107, 0.3826, 0.5997, 0.8148, 0.9485, 0.9920, 0.9994, 0.9999, 0.9999, & +0.1302, 0.2829, 0.4908, 0.7170, 0.8882, 0.9771, 0.9972, 0.9998, 0.9999, & +0.0619, 0.1616, 0.3481, 0.5997, 0.8148, 0.9434, 0.9909, 0.9992, 0.9999, & +0.0283, 0.0739, 0.1977, 0.4361, 0.7013, 0.8882, 0.9745, 0.9968, 0.9997, & +0.0283, 0.0314, 0.0806, 0.2382, 0.5091, 0.8022, 0.9434, 0.9909, 0.9991, & +0.0283, 0.0314, 0.0348, 0.1032, 0.2676, 0.5818, 0.8598, 0.9716, 0.9968 / +data ((cldnuctab( 3,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +0.2676, 0.4542, 0.6852, 0.8882, 0.9771, 0.9979, 0.9999, 0.9999, 0.9999, & +0.1852, 0.3481, 0.5638, 0.7892, 0.9380, 0.9898, 0.9992, 0.9999, 0.9999, & +0.1207, 0.2527, 0.4542, 0.6852, 0.8697, 0.9685, 0.9963, 0.9997, 0.9999, & +0.0565, 0.1507, 0.3148, 0.5638, 0.7757, 0.9260, 0.9870, 0.9988, 0.9999, & +0.0283, 0.0619, 0.1732, 0.4002, 0.6519, 0.8598, 0.9651, 0.9952, 0.9996, & +0.0283, 0.0314, 0.0739, 0.1977, 0.4542, 0.7473, 0.9260, 0.9854, 0.9984, & +0.0283, 0.0314, 0.0385, 0.0877, 0.2382, 0.5274, 0.8268, 0.9614, 0.9945 / +data ((cldnuctab( 3,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +0.6347, 0.8383, 0.9531, 0.9929, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5274, 0.7617, 0.9193, 0.9816, 0.9979, 0.9998, 0.9999, 0.9999, 0.9999, & +0.3312, 0.6347, 0.8598, 0.9651, 0.9945, 0.9995, 0.9999, 0.9999, 0.9999, & +0.1616, 0.4181, 0.7473, 0.9260, 0.9870, 0.9986, 0.9999, 0.9999, 0.9999, & +0.0677, 0.2107, 0.5091, 0.8268, 0.9651, 0.9952, 0.9996, 0.9999, 0.9999, & +0.0348, 0.0952, 0.2382, 0.4908, 0.7617, 0.9485, 0.9952, 0.9997, 0.9999, & +0.0314, 0.0515, 0.1032, 0.1732, 0.2107, 0.2242, 0.2676, 0.3652, 0.8148 / +data ((cldnuctab( 3,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +0.5457, 0.7757, 0.9193, 0.9836, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4361, 0.6687, 0.8697, 0.9651, 0.9945, 0.9996, 0.9999, 0.9999, 0.9999, & +0.2676, 0.5457, 0.7892, 0.9322, 0.9870, 0.9986, 0.9999, 0.9999, 0.9999, & +0.1302, 0.3481, 0.6519, 0.8792, 0.9716, 0.9958, 0.9997, 0.9999, 0.9999, & +0.0515, 0.1616, 0.4181, 0.7617, 0.9380, 0.9898, 0.9990, 0.9999, 0.9999, & +0.0348, 0.0677, 0.1977, 0.4908, 0.8022, 0.9614, 0.9958, 0.9996, 0.9999, & +0.0314, 0.0425, 0.0952, 0.2107, 0.3826, 0.5638, 0.7892, 0.9685, 0.9988 / +data ((cldnuctab( 3,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +0.4725, 0.7013, 0.8792, 0.9716, 0.9963, 0.9997, 0.9999, 0.9999, 0.9999, & +0.3481, 0.5818, 0.8022, 0.9380, 0.9884, 0.9990, 0.9999, 0.9999, 0.9999, & +0.2242, 0.4542, 0.7170, 0.8882, 0.9745, 0.9963, 0.9997, 0.9999, 0.9999, & +0.1032, 0.2829, 0.5638, 0.8148, 0.9485, 0.9909, 0.9991, 0.9999, 0.9999, & +0.0385, 0.1302, 0.3481, 0.6687, 0.8967, 0.9795, 0.9972, 0.9998, 0.9999, & +0.0314, 0.0515, 0.1616, 0.4181, 0.7617, 0.9434, 0.9920, 0.9992, 0.9999, & +0.0314, 0.0385, 0.0739, 0.1977, 0.4181, 0.7013, 0.9260, 0.9909, 0.9994 / +data ((cldnuctab( 3,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +0.4002, 0.6347, 0.8383, 0.9531, 0.9929, 0.9995, 0.9999, 0.9999, 0.9999, & +0.2986, 0.5091, 0.7473, 0.9047, 0.9795, 0.9979, 0.9998, 0.9999, 0.9999, & +0.1852, 0.3826, 0.6347, 0.8383, 0.9531, 0.9929, 0.9994, 0.9999, 0.9999, & +0.0877, 0.2242, 0.4908, 0.7473, 0.9122, 0.9816, 0.9979, 0.9998, 0.9999, & +0.0314, 0.1032, 0.2829, 0.5818, 0.8493, 0.9614, 0.9938, 0.9994, 0.9999, & +0.0314, 0.0425, 0.1207, 0.3481, 0.6852, 0.9122, 0.9836, 0.9982, 0.9998, & +0.0314, 0.0385, 0.0565, 0.1616, 0.3826, 0.7013, 0.9193, 0.9909, 0.9992 / +data ((cldnuctab( 3,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +0.3481, 0.5638, 0.7892, 0.9380, 0.9898, 0.9992, 0.9999, 0.9999, 0.9999, & +0.2527, 0.4542, 0.6852, 0.8697, 0.9685, 0.9963, 0.9997, 0.9999, 0.9999, & +0.1616, 0.3312, 0.5638, 0.7892, 0.9322, 0.9870, 0.9988, 0.9999, 0.9999, & +0.0739, 0.1977, 0.4181, 0.6852, 0.8792, 0.9685, 0.9958, 0.9997, 0.9999, & +0.0348, 0.0877, 0.2382, 0.5091, 0.7892, 0.9380, 0.9884, 0.9988, 0.9999, & +0.0348, 0.0385, 0.1032, 0.2829, 0.5997, 0.8697, 0.9716, 0.9963, 0.9997, & +0.0348, 0.0385, 0.0468, 0.1302, 0.3148, 0.6519, 0.8967, 0.9854, 0.9986 / +data ((cldnuctab( 3,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +0.3148, 0.5274, 0.7473, 0.9193, 0.9854, 0.9988, 0.9999, 0.9999, 0.9999, & +0.2242, 0.4181, 0.6347, 0.8383, 0.9575, 0.9945, 0.9996, 0.9999, 0.9999, & +0.1402, 0.2986, 0.5274, 0.7473, 0.9122, 0.9816, 0.9982, 0.9999, 0.9999, & +0.0619, 0.1732, 0.3826, 0.6347, 0.8383, 0.9531, 0.9929, 0.9994, 0.9999, & +0.0348, 0.0739, 0.1977, 0.4542, 0.7324, 0.9122, 0.9816, 0.9979, 0.9998, & +0.0348, 0.0385, 0.0877, 0.2382, 0.5274, 0.8148, 0.9531, 0.9929, 0.9994, & +0.0348, 0.0385, 0.0468, 0.1032, 0.2676, 0.5818, 0.8697, 0.9771, 0.9976 / +data ((cldnuctab( 3,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +0.2986, 0.4908, 0.7324, 0.9047, 0.9816, 0.9984, 0.9999, 0.9999, 0.9999, & +0.2107, 0.3826, 0.5997, 0.8148, 0.9485, 0.9929, 0.9995, 0.9999, 0.9999, & +0.1302, 0.2676, 0.4908, 0.7170, 0.8882, 0.9745, 0.9972, 0.9998, 0.9999, & +0.0565, 0.1507, 0.3481, 0.5818, 0.8022, 0.9434, 0.9898, 0.9991, 0.9999, & +0.0385, 0.0677, 0.1852, 0.4181, 0.6852, 0.8792, 0.9716, 0.9963, 0.9997, & +0.0385, 0.0425, 0.0739, 0.2107, 0.4725, 0.7757, 0.9380, 0.9884, 0.9990, & +0.0385, 0.0425, 0.0468, 0.0952, 0.2382, 0.5274, 0.8383, 0.9685, 0.9963 / +data ((cldnuctab( 4,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +0.5136, 0.7509, 0.9140, 0.9858, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4046, 0.6560, 0.8519, 0.9660, 0.9965, 0.9998, 0.9999, 0.9999, 0.9999, & +0.2867, 0.5319, 0.7791, 0.9337, 0.9901, 0.9994, 0.9999, 0.9999, 0.9999, & +0.1427, 0.3694, 0.6728, 0.8815, 0.9751, 0.9977, 0.9999, 0.9999, 0.9999, & +0.0578, 0.1882, 0.4587, 0.7652, 0.9447, 0.9922, 0.9996, 0.9999, 0.9999, & +0.0235, 0.0823, 0.2276, 0.4953, 0.7509, 0.9394, 0.9932, 0.9997, 0.9999, & +0.0118, 0.0357, 0.0971, 0.1882, 0.2276, 0.2276, 0.2417, 0.4046, 0.8987 / +data ((cldnuctab( 4,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +0.4046, 0.6560, 0.8519, 0.9660, 0.9969, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3188, 0.5501, 0.7791, 0.9276, 0.9901, 0.9994, 0.9999, 0.9999, 0.9999, & +0.2140, 0.4405, 0.6892, 0.8815, 0.9724, 0.9977, 0.9999, 0.9999, 0.9999, & +0.1139, 0.2867, 0.5683, 0.8053, 0.9447, 0.9922, 0.9996, 0.9999, 0.9999, & +0.0479, 0.1427, 0.3869, 0.6892, 0.8987, 0.9800, 0.9985, 0.9999, 0.9999, & +0.0168, 0.0633, 0.1882, 0.4587, 0.7652, 0.9447, 0.9932, 0.9996, 0.9999, & +0.0093, 0.0261, 0.0823, 0.2140, 0.4046, 0.6040, 0.8519, 0.9693, 0.9991 / +data ((cldnuctab( 4,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +0.3353, 0.5683, 0.7925, 0.9394, 0.9922, 0.9996, 0.9999, 0.9999, 0.9999, & +0.2563, 0.4587, 0.6892, 0.8815, 0.9751, 0.9982, 0.9999, 0.9999, 0.9999, & +0.1761, 0.3522, 0.5862, 0.8053, 0.9447, 0.9932, 0.9996, 0.9999, 0.9999, & +0.0895, 0.2276, 0.4770, 0.7208, 0.8987, 0.9800, 0.9985, 0.9999, 0.9999, & +0.0357, 0.1139, 0.3025, 0.5862, 0.8296, 0.9585, 0.9947, 0.9997, 0.9999, & +0.0133, 0.0479, 0.1427, 0.3869, 0.7052, 0.9140, 0.9858, 0.9989, 0.9999, & +0.0093, 0.0188, 0.0578, 0.1761, 0.4225, 0.7052, 0.9140, 0.9901, 0.9994 / +data ((cldnuctab( 4,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +0.2713, 0.4953, 0.7208, 0.9066, 0.9858, 0.9991, 0.9999, 0.9999, 0.9999, & +0.2008, 0.3869, 0.6216, 0.8296, 0.9585, 0.9954, 0.9998, 0.9999, 0.9999, & +0.1326, 0.2867, 0.5136, 0.7361, 0.9140, 0.9841, 0.9990, 0.9999, 0.9999, & +0.0692, 0.1882, 0.3869, 0.6390, 0.8519, 0.9624, 0.9959, 0.9998, 0.9999, & +0.0290, 0.0895, 0.2417, 0.4953, 0.7652, 0.9276, 0.9874, 0.9991, 0.9999, & +0.0105, 0.0357, 0.1139, 0.3025, 0.6216, 0.8623, 0.9693, 0.9969, 0.9998, & +0.0093, 0.0133, 0.0479, 0.1427, 0.3694, 0.6728, 0.9066, 0.9858, 0.9989 / +data ((cldnuctab( 4,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +0.2417, 0.4225, 0.6728, 0.8721, 0.9751, 0.9985, 0.9999, 0.9999, 0.9999, & +0.1644, 0.3353, 0.5501, 0.7791, 0.9337, 0.9912, 0.9996, 0.9999, 0.9999, & +0.1139, 0.2417, 0.4405, 0.6728, 0.8721, 0.9724, 0.9977, 0.9999, 0.9999, & +0.0633, 0.1533, 0.3353, 0.5683, 0.7925, 0.9394, 0.9912, 0.9994, 0.9999, & +0.0261, 0.0755, 0.2008, 0.4225, 0.6892, 0.8815, 0.9751, 0.9977, 0.9999, & +0.0105, 0.0290, 0.0895, 0.2563, 0.5319, 0.7925, 0.9447, 0.9922, 0.9995, & +0.0105, 0.0118, 0.0357, 0.1139, 0.3025, 0.6040, 0.8721, 0.9751, 0.9977 / +data ((cldnuctab( 4,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +0.2140, 0.3869, 0.6216, 0.8410, 0.9660, 0.9977, 0.9999, 0.9999, 0.9999, & +0.1427, 0.2867, 0.4953, 0.7361, 0.9140, 0.9874, 0.9994, 0.9999, 0.9999, & +0.0971, 0.2140, 0.3869, 0.6216, 0.8296, 0.9585, 0.9959, 0.9998, 0.9999, & +0.0527, 0.1326, 0.2867, 0.5136, 0.7361, 0.9066, 0.9841, 0.9990, 0.9999, & +0.0210, 0.0633, 0.1761, 0.3694, 0.6216, 0.8410, 0.9585, 0.9954, 0.9998, & +0.0105, 0.0261, 0.0755, 0.2140, 0.4587, 0.7361, 0.9140, 0.9858, 0.9989, & +0.0105, 0.0118, 0.0290, 0.0895, 0.2563, 0.5501, 0.8177, 0.9585, 0.9954 / +data ((cldnuctab( 4,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +0.1882, 0.3694, 0.5862, 0.8177, 0.9585, 0.9965, 0.9999, 0.9999, 0.9999, & +0.1326, 0.2713, 0.4587, 0.7052, 0.8987, 0.9821, 0.9990, 0.9999, 0.9999, & +0.0895, 0.1882, 0.3522, 0.5862, 0.8053, 0.9447, 0.9940, 0.9997, 0.9999, & +0.0479, 0.1230, 0.2563, 0.4587, 0.6892, 0.8815, 0.9777, 0.9982, 0.9999, & +0.0188, 0.0578, 0.1533, 0.3353, 0.5683, 0.8053, 0.9447, 0.9922, 0.9996, & +0.0118, 0.0235, 0.0692, 0.1882, 0.4046, 0.6892, 0.8815, 0.9751, 0.9980, & +0.0118, 0.0133, 0.0261, 0.0823, 0.2140, 0.4953, 0.7791, 0.9394, 0.9922 / +data ((cldnuctab( 4,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +0.6216, 0.8296, 0.9496, 0.9932, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4953, 0.7361, 0.9066, 0.9821, 0.9982, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3188, 0.6216, 0.8519, 0.9624, 0.9947, 0.9997, 0.9999, 0.9999, 0.9999, & +0.1533, 0.4046, 0.7361, 0.9210, 0.9858, 0.9989, 0.9999, 0.9999, 0.9999, & +0.0633, 0.2008, 0.4953, 0.8177, 0.9624, 0.9959, 0.9998, 0.9999, 0.9999, & +0.0290, 0.0895, 0.2417, 0.4953, 0.7652, 0.9496, 0.9959, 0.9998, 0.9999, & +0.0261, 0.0435, 0.0971, 0.1882, 0.2140, 0.2276, 0.2563, 0.3522, 0.8296 / +data ((cldnuctab( 4,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +0.5136, 0.7509, 0.9140, 0.9841, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4046, 0.6560, 0.8519, 0.9624, 0.9947, 0.9997, 0.9999, 0.9999, 0.9999, & +0.2563, 0.5136, 0.7652, 0.9276, 0.9858, 0.9989, 0.9999, 0.9999, 0.9999, & +0.1230, 0.3353, 0.6390, 0.8721, 0.9693, 0.9965, 0.9998, 0.9999, 0.9999, & +0.0479, 0.1533, 0.4225, 0.7509, 0.9337, 0.9901, 0.9993, 0.9999, 0.9999, & +0.0261, 0.0692, 0.2008, 0.4770, 0.8053, 0.9585, 0.9959, 0.9998, 0.9999, & +0.0235, 0.0357, 0.0895, 0.2140, 0.3869, 0.5683, 0.7925, 0.9724, 0.9993 / +data ((cldnuctab( 4,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +0.4405, 0.6728, 0.8623, 0.9660, 0.9965, 0.9998, 0.9999, 0.9999, 0.9999, & +0.3353, 0.5683, 0.7791, 0.9337, 0.9888, 0.9991, 0.9999, 0.9999, 0.9999, & +0.2140, 0.4405, 0.6892, 0.8815, 0.9724, 0.9969, 0.9998, 0.9999, 0.9999, & +0.0971, 0.2713, 0.5501, 0.8053, 0.9394, 0.9901, 0.9993, 0.9999, 0.9999, & +0.0394, 0.1230, 0.3353, 0.6560, 0.8903, 0.9777, 0.9977, 0.9998, 0.9999, & +0.0235, 0.0527, 0.1533, 0.4046, 0.7509, 0.9394, 0.9922, 0.9994, 0.9999, & +0.0235, 0.0290, 0.0692, 0.1882, 0.4225, 0.7052, 0.9276, 0.9912, 0.9996 / +data ((cldnuctab( 4,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +0.3694, 0.6040, 0.8177, 0.9496, 0.9932, 0.9996, 0.9999, 0.9999, 0.9999, & +0.2713, 0.4770, 0.7208, 0.8903, 0.9777, 0.9980, 0.9999, 0.9999, 0.9999, & +0.1761, 0.3694, 0.6040, 0.8177, 0.9496, 0.9922, 0.9995, 0.9999, 0.9999, & +0.0823, 0.2276, 0.4770, 0.7208, 0.9066, 0.9800, 0.9980, 0.9999, 0.9999, & +0.0322, 0.0971, 0.2713, 0.5683, 0.8296, 0.9542, 0.9940, 0.9996, 0.9999, & +0.0261, 0.0394, 0.1230, 0.3353, 0.6728, 0.9066, 0.9841, 0.9985, 0.9999, & +0.0261, 0.0290, 0.0527, 0.1533, 0.3869, 0.6892, 0.9210, 0.9912, 0.9994 / +data ((cldnuctab( 4,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +0.3188, 0.5319, 0.7652, 0.9276, 0.9888, 0.9994, 0.9999, 0.9999, 0.9999, & +0.2276, 0.4225, 0.6560, 0.8519, 0.9660, 0.9965, 0.9998, 0.9999, 0.9999, & +0.1533, 0.3188, 0.5501, 0.7652, 0.9210, 0.9858, 0.9990, 0.9999, 0.9999, & +0.0692, 0.1882, 0.4046, 0.6560, 0.8623, 0.9660, 0.9959, 0.9998, 0.9999, & +0.0261, 0.0823, 0.2276, 0.4953, 0.7652, 0.9276, 0.9874, 0.9990, 0.9999, & +0.0261, 0.0322, 0.0971, 0.2713, 0.5862, 0.8519, 0.9693, 0.9965, 0.9998, & +0.0261, 0.0290, 0.0435, 0.1230, 0.3188, 0.6390, 0.8987, 0.9841, 0.9989 / +data ((cldnuctab( 4,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +0.2867, 0.4953, 0.7208, 0.9066, 0.9841, 0.9990, 0.9999, 0.9999, 0.9999, & +0.2008, 0.3869, 0.6040, 0.8177, 0.9542, 0.9940, 0.9997, 0.9999, 0.9999, & +0.1326, 0.2713, 0.4953, 0.7208, 0.8987, 0.9800, 0.9982, 0.9999, 0.9999, & +0.0633, 0.1644, 0.3522, 0.6040, 0.8177, 0.9496, 0.9922, 0.9995, 0.9999, & +0.0290, 0.0692, 0.2008, 0.4405, 0.7052, 0.8987, 0.9777, 0.9980, 0.9999, & +0.0290, 0.0322, 0.0823, 0.2276, 0.5136, 0.8053, 0.9496, 0.9932, 0.9995, & +0.0261, 0.0290, 0.0357, 0.0971, 0.2713, 0.5862, 0.8623, 0.9751, 0.9977 / +data ((cldnuctab( 4,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +0.2713, 0.4587, 0.7052, 0.8903, 0.9800, 0.9985, 0.9999, 0.9999, 0.9999, & +0.1882, 0.3522, 0.5683, 0.7925, 0.9394, 0.9922, 0.9996, 0.9999, 0.9999, & +0.1139, 0.2563, 0.4587, 0.6892, 0.8721, 0.9724, 0.9973, 0.9998, 0.9999, & +0.0578, 0.1427, 0.3188, 0.5501, 0.7791, 0.9337, 0.9888, 0.9993, 0.9999, & +0.0290, 0.0633, 0.1761, 0.3869, 0.6560, 0.8721, 0.9693, 0.9965, 0.9998, & +0.0290, 0.0322, 0.0755, 0.2008, 0.4587, 0.7652, 0.9276, 0.9874, 0.9990, & +0.0290, 0.0322, 0.0394, 0.0895, 0.2276, 0.5136, 0.8296, 0.9624, 0.9959 / +data ((cldnuctab( 4,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +0.7208, 0.8903, 0.9751, 0.9969, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5862, 0.8177, 0.9496, 0.9912, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3694, 0.6892, 0.8987, 0.9800, 0.9977, 0.9998, 0.9999, 0.9999, 0.9999, & +0.1644, 0.4405, 0.7925, 0.9542, 0.9940, 0.9995, 0.9999, 0.9999, 0.9999, & +0.0755, 0.2140, 0.5136, 0.8519, 0.9777, 0.9982, 0.9999, 0.9999, 0.9999, & +0.0578, 0.1053, 0.2417, 0.4770, 0.7509, 0.9542, 0.9973, 0.9999, 0.9999, & +0.0527, 0.0692, 0.1139, 0.1761, 0.2008, 0.2008, 0.2713, 0.3869, 0.8177 / +data ((cldnuctab( 4,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +0.6216, 0.8296, 0.9542, 0.9922, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4953, 0.7361, 0.9066, 0.9800, 0.9980, 0.9998, 0.9999, 0.9999, 0.9999, & +0.3025, 0.6040, 0.8410, 0.9585, 0.9940, 0.9995, 0.9999, 0.9999, 0.9999, & +0.1326, 0.3694, 0.7052, 0.9140, 0.9841, 0.9985, 0.9999, 0.9999, 0.9999, & +0.0578, 0.1644, 0.4405, 0.7925, 0.9624, 0.9954, 0.9996, 0.9999, 0.9999, & +0.0578, 0.0823, 0.2140, 0.4953, 0.8177, 0.9724, 0.9982, 0.9999, 0.9999, & +0.0527, 0.0633, 0.1053, 0.2140, 0.3694, 0.5319, 0.7652, 0.9447, 0.9995 / +data ((cldnuctab( 4,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +0.5501, 0.7652, 0.9210, 0.9858, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4225, 0.6560, 0.8623, 0.9624, 0.9954, 0.9996, 0.9999, 0.9999, 0.9999, & +0.2417, 0.5136, 0.7791, 0.9276, 0.9858, 0.9987, 0.9999, 0.9999, 0.9999, & +0.1053, 0.3025, 0.6216, 0.8623, 0.9693, 0.9959, 0.9997, 0.9999, 0.9999, & +0.0578, 0.1326, 0.3694, 0.7208, 0.9276, 0.9888, 0.9990, 0.9999, 0.9999, & +0.0578, 0.0692, 0.1644, 0.4225, 0.7791, 0.9624, 0.9965, 0.9998, 0.9999, & +0.0527, 0.0633, 0.0895, 0.2008, 0.4225, 0.6892, 0.9276, 0.9947, 0.9998 / +data ((cldnuctab( 4,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +0.4770, 0.7052, 0.8815, 0.9751, 0.9973, 0.9998, 0.9999, 0.9999, 0.9999, & +0.3522, 0.5862, 0.8053, 0.9394, 0.9901, 0.9993, 0.9999, 0.9999, 0.9999, & +0.2008, 0.4405, 0.7052, 0.8903, 0.9751, 0.9969, 0.9998, 0.9999, 0.9999, & +0.0895, 0.2417, 0.5319, 0.8053, 0.9447, 0.9912, 0.9993, 0.9999, 0.9999, & +0.0578, 0.1053, 0.3025, 0.6390, 0.8903, 0.9777, 0.9973, 0.9998, 0.9999, & +0.0578, 0.0692, 0.1326, 0.3522, 0.7052, 0.9394, 0.9922, 0.9994, 0.9999, & +0.0578, 0.0633, 0.0823, 0.1644, 0.3869, 0.7052, 0.9337, 0.9940, 0.9997 / +data ((cldnuctab( 4,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +0.4225, 0.6560, 0.8519, 0.9624, 0.9954, 0.9997, 0.9999, 0.9999, 0.9999, & +0.3025, 0.5319, 0.7509, 0.9140, 0.9841, 0.9987, 0.9999, 0.9999, 0.9999, & +0.1761, 0.3869, 0.6390, 0.8519, 0.9585, 0.9947, 0.9996, 0.9999, 0.9999, & +0.0755, 0.2140, 0.4770, 0.7509, 0.9140, 0.9841, 0.9985, 0.9999, 0.9999, & +0.0578, 0.0895, 0.2417, 0.5501, 0.8410, 0.9624, 0.9947, 0.9996, 0.9999, & +0.0578, 0.0692, 0.1053, 0.2867, 0.6216, 0.8987, 0.9841, 0.9985, 0.9999, & +0.0578, 0.0633, 0.0755, 0.1427, 0.3353, 0.6560, 0.9210, 0.9912, 0.9994 / +data ((cldnuctab( 4,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +0.3869, 0.6040, 0.8177, 0.9496, 0.9932, 0.9996, 0.9999, 0.9999, 0.9999, & +0.2713, 0.4770, 0.7052, 0.8903, 0.9777, 0.9977, 0.9999, 0.9999, 0.9999, & +0.1533, 0.3522, 0.5862, 0.8053, 0.9447, 0.9912, 0.9994, 0.9999, 0.9999, & +0.0692, 0.1882, 0.4225, 0.6892, 0.8903, 0.9751, 0.9969, 0.9998, 0.9999, & +0.0633, 0.0755, 0.2140, 0.4953, 0.7791, 0.9394, 0.9901, 0.9991, 0.9999, & +0.0633, 0.0692, 0.0895, 0.2417, 0.5501, 0.8623, 0.9724, 0.9969, 0.9998, & +0.0633, 0.0692, 0.0755, 0.1230, 0.2867, 0.6040, 0.8903, 0.9874, 0.9990 / +data ((cldnuctab( 4,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +0.3522, 0.5683, 0.7925, 0.9394, 0.9912, 0.9994, 0.9999, 0.9999, 0.9999, & +0.2563, 0.4587, 0.6728, 0.8721, 0.9693, 0.9969, 0.9998, 0.9999, 0.9999, & +0.1427, 0.3188, 0.5501, 0.7791, 0.9276, 0.9874, 0.9990, 0.9999, 0.9999, & +0.0692, 0.1644, 0.3869, 0.6560, 0.8623, 0.9660, 0.9954, 0.9997, 0.9999, & +0.0692, 0.0755, 0.1882, 0.4405, 0.7361, 0.9210, 0.9858, 0.9987, 0.9999, & +0.0692, 0.0692, 0.0823, 0.2140, 0.4953, 0.8177, 0.9585, 0.9947, 0.9996, & +0.0633, 0.0692, 0.0823, 0.1053, 0.2563, 0.5501, 0.8623, 0.9800, 0.9982 / +data ((cldnuctab( 4,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +0.8053, 0.9394, 0.9888, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6560, 0.8815, 0.9751, 0.9969, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3869, 0.7509, 0.9394, 0.9912, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, & +0.1761, 0.4587, 0.8296, 0.9751, 0.9973, 0.9998, 0.9999, 0.9999, 0.9999, & +0.1230, 0.2276, 0.5136, 0.8623, 0.9874, 0.9991, 0.9999, 0.9999, 0.9999, & +0.1139, 0.1427, 0.2563, 0.4587, 0.7052, 0.9337, 0.9973, 0.9999, 0.9999, & +0.0971, 0.1139, 0.1533, 0.2008, 0.2140, 0.2140, 0.2867, 0.3694, 0.7509 / +data ((cldnuctab( 4,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +0.7208, 0.8987, 0.9777, 0.9973, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5683, 0.8177, 0.9496, 0.9922, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3188, 0.6728, 0.8987, 0.9800, 0.9977, 0.9998, 0.9999, 0.9999, 0.9999, & +0.1427, 0.3869, 0.7509, 0.9496, 0.9932, 0.9994, 0.9999, 0.9999, 0.9999, & +0.1139, 0.1882, 0.4587, 0.8296, 0.9777, 0.9980, 0.9998, 0.9999, 0.9999, & +0.1139, 0.1326, 0.2417, 0.4770, 0.8177, 0.9800, 0.9990, 0.9999, 0.9999, & +0.1053, 0.1139, 0.1427, 0.2276, 0.3522, 0.4953, 0.7052, 0.9276, 0.9996 / +data ((cldnuctab( 4,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +0.6390, 0.8519, 0.9585, 0.9940, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4953, 0.7509, 0.9210, 0.9841, 0.9982, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2713, 0.5862, 0.8410, 0.9624, 0.9947, 0.9995, 0.9999, 0.9999, 0.9999, & +0.1139, 0.3188, 0.6728, 0.9140, 0.9858, 0.9985, 0.9999, 0.9999, 0.9999, & +0.1139, 0.1427, 0.3694, 0.7509, 0.9585, 0.9954, 0.9996, 0.9999, 0.9999, & +0.1139, 0.1326, 0.2008, 0.4405, 0.7925, 0.9751, 0.9982, 0.9999, 0.9999, & +0.1053, 0.1139, 0.1427, 0.2276, 0.4046, 0.6560, 0.9210, 0.9959, 0.9999 / +data ((cldnuctab( 4,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +0.5862, 0.7925, 0.9394, 0.9888, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4225, 0.6892, 0.8815, 0.9724, 0.9965, 0.9997, 0.9999, 0.9999, 0.9999, & +0.2276, 0.5136, 0.7925, 0.9394, 0.9888, 0.9990, 0.9999, 0.9999, 0.9999, & +0.1230, 0.2713, 0.5862, 0.8721, 0.9724, 0.9965, 0.9997, 0.9999, 0.9999, & +0.1230, 0.1326, 0.3188, 0.6728, 0.9276, 0.9888, 0.9990, 0.9999, 0.9999, & +0.1139, 0.1326, 0.1644, 0.3694, 0.7361, 0.9585, 0.9965, 0.9998, 0.9999, & +0.1139, 0.1230, 0.1427, 0.2008, 0.3869, 0.6728, 0.9337, 0.9965, 0.9998 / +data ((cldnuctab( 4,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +0.5136, 0.7509, 0.9140, 0.9841, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3869, 0.6216, 0.8410, 0.9585, 0.9940, 0.9995, 0.9999, 0.9999, 0.9999, & +0.2008, 0.4587, 0.7361, 0.9066, 0.9821, 0.9980, 0.9998, 0.9999, 0.9999, & +0.1230, 0.2276, 0.5136, 0.8177, 0.9542, 0.9932, 0.9994, 0.9999, 0.9999, & +0.1230, 0.1326, 0.2563, 0.5862, 0.8815, 0.9800, 0.9980, 0.9998, 0.9999, & +0.1230, 0.1326, 0.1533, 0.3025, 0.6560, 0.9337, 0.9922, 0.9994, 0.9999, & +0.1139, 0.1230, 0.1427, 0.1882, 0.3522, 0.6390, 0.9276, 0.9954, 0.9998 / +data ((cldnuctab( 4,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +0.4770, 0.7052, 0.8903, 0.9777, 0.9977, 0.9998, 0.9999, 0.9999, 0.9999, & +0.3353, 0.5862, 0.8053, 0.9394, 0.9901, 0.9993, 0.9999, 0.9999, 0.9999, & +0.1761, 0.4046, 0.6892, 0.8815, 0.9724, 0.9969, 0.9998, 0.9999, 0.9999, & +0.1230, 0.2008, 0.4770, 0.7652, 0.9337, 0.9888, 0.9990, 0.9999, 0.9999, & +0.1230, 0.1427, 0.2276, 0.5319, 0.8410, 0.9693, 0.9959, 0.9997, 0.9999, & +0.1230, 0.1326, 0.1533, 0.2713, 0.5862, 0.8987, 0.9858, 0.9989, 0.9999, & +0.1230, 0.1326, 0.1427, 0.1761, 0.3025, 0.5862, 0.9066, 0.9922, 0.9996 / +data ((cldnuctab( 4,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +0.4587, 0.6728, 0.8721, 0.9724, 0.9969, 0.9998, 0.9999, 0.9999, 0.9999, & +0.3188, 0.5501, 0.7791, 0.9276, 0.9874, 0.9990, 0.9999, 0.9999, 0.9999, & +0.1644, 0.3694, 0.6390, 0.8519, 0.9624, 0.9954, 0.9997, 0.9999, 0.9999, & +0.1326, 0.1761, 0.4225, 0.7361, 0.9140, 0.9841, 0.9985, 0.9999, 0.9999, & +0.1326, 0.1427, 0.2008, 0.4770, 0.8053, 0.9542, 0.9940, 0.9995, 0.9999, & +0.1326, 0.1427, 0.1533, 0.2417, 0.5319, 0.8623, 0.9777, 0.9980, 0.9998, & +0.1326, 0.1326, 0.1427, 0.1761, 0.2867, 0.5501, 0.8721, 0.9888, 0.9993 / +data ((cldnuctab( 4,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +0.8410, 0.9585, 0.9940, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6892, 0.9140, 0.9841, 0.9982, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4046, 0.7791, 0.9585, 0.9947, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2008, 0.4770, 0.8519, 0.9821, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, & +0.1644, 0.2563, 0.5136, 0.8721, 0.9901, 0.9995, 0.9999, 0.9999, 0.9999, & +0.1533, 0.1761, 0.2713, 0.4405, 0.6728, 0.9140, 0.9969, 0.9999, 0.9999, & +0.1326, 0.1533, 0.1882, 0.2417, 0.2140, 0.2140, 0.2713, 0.3869, 0.7509 / +data ((cldnuctab( 4,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +0.7791, 0.9276, 0.9858, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6040, 0.8623, 0.9660, 0.9954, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3353, 0.6892, 0.9210, 0.9874, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, & +0.1761, 0.3869, 0.7791, 0.9624, 0.9959, 0.9997, 0.9999, 0.9999, 0.9999, & +0.1644, 0.2140, 0.4587, 0.8410, 0.9841, 0.9989, 0.9999, 0.9999, 0.9999, & +0.1533, 0.1761, 0.2563, 0.4770, 0.8053, 0.9800, 0.9993, 0.9999, 0.9999, & +0.1427, 0.1533, 0.1882, 0.2563, 0.3353, 0.4587, 0.6728, 0.9066, 0.9991 / +data ((cldnuctab( 4,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +0.7052, 0.8903, 0.9751, 0.9969, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5319, 0.8053, 0.9447, 0.9901, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2713, 0.6216, 0.8815, 0.9751, 0.9969, 0.9998, 0.9999, 0.9999, 0.9999, & +0.1644, 0.3188, 0.6892, 0.9337, 0.9912, 0.9991, 0.9999, 0.9999, 0.9999, & +0.1644, 0.1882, 0.3869, 0.7652, 0.9660, 0.9969, 0.9998, 0.9999, 0.9999, & +0.1644, 0.1761, 0.2276, 0.4405, 0.7925, 0.9800, 0.9990, 0.9999, 0.9999, & +0.1533, 0.1644, 0.1882, 0.2563, 0.4046, 0.6216, 0.8987, 0.9954, 0.9999 / +data ((cldnuctab( 4,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +0.6390, 0.8410, 0.9585, 0.9940, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4587, 0.7361, 0.9140, 0.9821, 0.9980, 0.9998, 0.9999, 0.9999, 0.9999, & +0.2417, 0.5319, 0.8296, 0.9585, 0.9940, 0.9994, 0.9999, 0.9999, 0.9999, & +0.1761, 0.2713, 0.6216, 0.8903, 0.9821, 0.9980, 0.9998, 0.9999, 0.9999, & +0.1644, 0.1882, 0.3188, 0.6892, 0.9394, 0.9932, 0.9994, 0.9999, 0.9999, & +0.1644, 0.1761, 0.2140, 0.3869, 0.7361, 0.9660, 0.9977, 0.9998, 0.9999, & +0.1644, 0.1644, 0.1882, 0.2417, 0.3869, 0.6728, 0.9276, 0.9969, 0.9999 / +data ((cldnuctab( 4,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +0.5862, 0.8053, 0.9394, 0.9901, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4225, 0.6892, 0.8815, 0.9724, 0.9965, 0.9998, 0.9999, 0.9999, 0.9999, & +0.2140, 0.4770, 0.7791, 0.9337, 0.9888, 0.9990, 0.9999, 0.9999, 0.9999, & +0.1761, 0.2276, 0.5501, 0.8519, 0.9693, 0.9959, 0.9997, 0.9999, 0.9999, & +0.1761, 0.1882, 0.2713, 0.6040, 0.9066, 0.9874, 0.9989, 0.9999, 0.9999, & +0.1761, 0.1882, 0.2140, 0.3353, 0.6560, 0.9394, 0.9954, 0.9997, 0.9999, & +0.1644, 0.1761, 0.1882, 0.2276, 0.3694, 0.6390, 0.9210, 0.9965, 0.9998 / +data ((cldnuctab( 4,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +0.5501, 0.7652, 0.9210, 0.9858, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3869, 0.6390, 0.8519, 0.9624, 0.9947, 0.9996, 0.9999, 0.9999, 0.9999, & +0.1882, 0.4405, 0.7361, 0.9140, 0.9821, 0.9982, 0.9999, 0.9999, 0.9999, & +0.1761, 0.2008, 0.4953, 0.8053, 0.9542, 0.9932, 0.9994, 0.9999, 0.9999, & +0.1761, 0.1882, 0.2417, 0.5501, 0.8623, 0.9777, 0.9980, 0.9998, 0.9999, & +0.1761, 0.1882, 0.2140, 0.2867, 0.5862, 0.9066, 0.9912, 0.9994, 0.9999, & +0.1761, 0.1761, 0.1882, 0.2276, 0.3353, 0.5862, 0.8987, 0.9947, 0.9997 / +data ((cldnuctab( 4,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +0.5136, 0.7361, 0.9066, 0.9821, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3522, 0.6040, 0.8177, 0.9496, 0.9932, 0.9995, 0.9999, 0.9999, 0.9999, & +0.1882, 0.4046, 0.6892, 0.8903, 0.9777, 0.9973, 0.9998, 0.9999, 0.9999, & +0.1882, 0.2008, 0.4405, 0.7652, 0.9394, 0.9901, 0.9991, 0.9999, 0.9999, & +0.1882, 0.2008, 0.2276, 0.4953, 0.8296, 0.9693, 0.9965, 0.9998, 0.9999, & +0.1882, 0.2008, 0.2140, 0.2713, 0.5319, 0.8721, 0.9858, 0.9989, 0.9999, & +0.1761, 0.1882, 0.2008, 0.2276, 0.3188, 0.5501, 0.8721, 0.9912, 0.9996 / +data ((cldnuctab( 4,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +0.8721, 0.9693, 0.9959, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7052, 0.9276, 0.9888, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4046, 0.7925, 0.9660, 0.9965, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2276, 0.4770, 0.8519, 0.9858, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2008, 0.2713, 0.5136, 0.8623, 0.9912, 0.9996, 0.9999, 0.9999, 0.9999, & +0.1882, 0.2140, 0.2867, 0.4405, 0.6560, 0.8987, 0.9965, 0.9999, 0.9999, & +0.1644, 0.1761, 0.2140, 0.2867, 0.2417, 0.2417, 0.2713, 0.4046, 0.7052 / +data ((cldnuctab( 4,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +0.8053, 0.9447, 0.9901, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6216, 0.8815, 0.9751, 0.9969, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3353, 0.7052, 0.9394, 0.9912, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2140, 0.4046, 0.7925, 0.9693, 0.9973, 0.9998, 0.9999, 0.9999, 0.9999, & +0.2008, 0.2417, 0.4770, 0.8410, 0.9858, 0.9993, 0.9999, 0.9999, 0.9999, & +0.1882, 0.2140, 0.2867, 0.4770, 0.7925, 0.9800, 0.9994, 0.9999, 0.9999, & +0.1761, 0.1882, 0.2140, 0.2867, 0.3522, 0.4405, 0.6560, 0.8903, 0.9989 / +data ((cldnuctab( 4,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +0.7361, 0.9066, 0.9821, 0.9980, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5501, 0.8296, 0.9542, 0.9932, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2867, 0.6390, 0.8987, 0.9821, 0.9980, 0.9998, 0.9999, 0.9999, 0.9999, & +0.2140, 0.3353, 0.7052, 0.9447, 0.9932, 0.9994, 0.9999, 0.9999, 0.9999, & +0.2140, 0.2417, 0.4046, 0.7791, 0.9724, 0.9980, 0.9998, 0.9999, 0.9999, & +0.2008, 0.2140, 0.2713, 0.4405, 0.7925, 0.9821, 0.9993, 0.9999, 0.9999, & +0.1882, 0.2008, 0.2140, 0.2713, 0.4046, 0.6040, 0.8815, 0.9947, 0.9999 / +data ((cldnuctab( 4,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +0.6728, 0.8721, 0.9693, 0.9959, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4953, 0.7652, 0.9276, 0.9874, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2417, 0.5501, 0.8519, 0.9660, 0.9959, 0.9996, 0.9999, 0.9999, 0.9999, & +0.2140, 0.2713, 0.6216, 0.9066, 0.9858, 0.9987, 0.9999, 0.9999, 0.9999, & +0.2140, 0.2276, 0.3353, 0.6892, 0.9496, 0.9954, 0.9996, 0.9999, 0.9999, & +0.2008, 0.2140, 0.2563, 0.4046, 0.7361, 0.9693, 0.9985, 0.9999, 0.9999, & +0.2008, 0.2140, 0.2276, 0.2713, 0.4046, 0.6390, 0.9140, 0.9973, 0.9999 / +data ((cldnuctab( 4,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +0.6216, 0.8296, 0.9542, 0.9932, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4405, 0.7208, 0.8987, 0.9800, 0.9980, 0.9998, 0.9999, 0.9999, 0.9999, & +0.2276, 0.4953, 0.8053, 0.9496, 0.9922, 0.9994, 0.9999, 0.9999, 0.9999, & +0.2140, 0.2417, 0.5501, 0.8721, 0.9751, 0.9973, 0.9998, 0.9999, 0.9999, & +0.2140, 0.2417, 0.2867, 0.6216, 0.9210, 0.9901, 0.9993, 0.9999, 0.9999, & +0.2140, 0.2276, 0.2563, 0.3522, 0.6560, 0.9496, 0.9965, 0.9998, 0.9999, & +0.2140, 0.2140, 0.2276, 0.2563, 0.3869, 0.6216, 0.9140, 0.9969, 0.9999 / +data ((cldnuctab( 4,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +0.5862, 0.8053, 0.9394, 0.9912, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4046, 0.6728, 0.8721, 0.9724, 0.9965, 0.9998, 0.9999, 0.9999, 0.9999, & +0.2276, 0.4587, 0.7652, 0.9276, 0.9874, 0.9989, 0.9999, 0.9999, 0.9999, & +0.2276, 0.2417, 0.4953, 0.8296, 0.9624, 0.9954, 0.9997, 0.9999, 0.9999, & +0.2276, 0.2417, 0.2713, 0.5501, 0.8815, 0.9841, 0.9987, 0.9999, 0.9999, & +0.2276, 0.2276, 0.2563, 0.3188, 0.6040, 0.9140, 0.9932, 0.9996, 0.9999, & +0.2140, 0.2276, 0.2417, 0.2713, 0.3522, 0.5862, 0.8903, 0.9954, 0.9998 / +data ((cldnuctab( 4,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +0.5501, 0.7791, 0.9276, 0.9888, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3694, 0.6390, 0.8519, 0.9624, 0.9954, 0.9997, 0.9999, 0.9999, 0.9999, & +0.2417, 0.4225, 0.7208, 0.9140, 0.9841, 0.9985, 0.9999, 0.9999, 0.9999, & +0.2417, 0.2563, 0.4587, 0.7925, 0.9496, 0.9932, 0.9995, 0.9999, 0.9999, & +0.2276, 0.2417, 0.2713, 0.4953, 0.8410, 0.9751, 0.9977, 0.9998, 0.9999, & +0.2276, 0.2417, 0.2563, 0.3025, 0.5501, 0.8815, 0.9888, 0.9993, 0.9999, & +0.2276, 0.2276, 0.2417, 0.2713, 0.3353, 0.5501, 0.8623, 0.9922, 0.9997 / +data ((cldnuctab( 4,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +0.8815, 0.9751, 0.9969, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7208, 0.9394, 0.9912, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4046, 0.8053, 0.9724, 0.9973, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2563, 0.4770, 0.8623, 0.9888, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2417, 0.3025, 0.5136, 0.8519, 0.9922, 0.9997, 0.9999, 0.9999, 0.9999, & +0.2140, 0.2417, 0.3188, 0.4405, 0.6390, 0.8815, 0.9959, 0.9999, 0.9999, & +0.1882, 0.2008, 0.2276, 0.3025, 0.2713, 0.2417, 0.2867, 0.3869, 0.7052 / +data ((cldnuctab( 4,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +0.8296, 0.9542, 0.9932, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6390, 0.8987, 0.9800, 0.9980, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3353, 0.7208, 0.9447, 0.9932, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2563, 0.4046, 0.7925, 0.9751, 0.9980, 0.9998, 0.9999, 0.9999, 0.9999, & +0.2417, 0.2867, 0.4770, 0.8410, 0.9888, 0.9994, 0.9999, 0.9999, 0.9999, & +0.2276, 0.2417, 0.3025, 0.4770, 0.7652, 0.9777, 0.9995, 0.9999, 0.9999, & +0.2140, 0.2276, 0.2417, 0.3025, 0.3694, 0.4405, 0.6216, 0.8721, 0.9985 / +data ((cldnuctab( 4,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +0.7652, 0.9276, 0.9858, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5683, 0.8519, 0.9660, 0.9954, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2867, 0.6390, 0.9140, 0.9858, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2563, 0.3353, 0.7208, 0.9542, 0.9947, 0.9996, 0.9999, 0.9999, 0.9999, & +0.2417, 0.2713, 0.4046, 0.7791, 0.9777, 0.9985, 0.9999, 0.9999, 0.9999, & +0.2276, 0.2563, 0.2867, 0.4587, 0.7791, 0.9821, 0.9994, 0.9999, 0.9999, & +0.2276, 0.2276, 0.2563, 0.3025, 0.4225, 0.6040, 0.8623, 0.9940, 0.9999 / +data ((cldnuctab( 4,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +0.7052, 0.8903, 0.9751, 0.9973, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4953, 0.7925, 0.9447, 0.9912, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2563, 0.5683, 0.8623, 0.9724, 0.9969, 0.9998, 0.9999, 0.9999, 0.9999, & +0.2563, 0.2867, 0.6390, 0.9210, 0.9901, 0.9991, 0.9999, 0.9999, 0.9999, & +0.2563, 0.2713, 0.3522, 0.6892, 0.9542, 0.9965, 0.9998, 0.9999, 0.9999, & +0.2417, 0.2563, 0.2867, 0.4046, 0.7208, 0.9724, 0.9989, 0.9999, 0.9999, & +0.2276, 0.2417, 0.2563, 0.3025, 0.4225, 0.6216, 0.9066, 0.9973, 0.9999 / +data ((cldnuctab( 4,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +0.6560, 0.8623, 0.9660, 0.9954, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4587, 0.7509, 0.9210, 0.9841, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2563, 0.5136, 0.8177, 0.9585, 0.9940, 0.9995, 0.9999, 0.9999, 0.9999, & +0.2563, 0.2867, 0.5683, 0.8815, 0.9821, 0.9982, 0.9998, 0.9999, 0.9999, & +0.2563, 0.2713, 0.3025, 0.6216, 0.9276, 0.9922, 0.9994, 0.9999, 0.9999, & +0.2563, 0.2563, 0.2867, 0.3694, 0.6560, 0.9496, 0.9973, 0.9998, 0.9999, & +0.2417, 0.2563, 0.2713, 0.3025, 0.4046, 0.6216, 0.9140, 0.9969, 0.9999 / +data ((cldnuctab( 4,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +0.6040, 0.8296, 0.9542, 0.9932, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4225, 0.7052, 0.8903, 0.9777, 0.9977, 0.9998, 0.9999, 0.9999, 0.9999, & +0.2713, 0.4587, 0.7791, 0.9394, 0.9912, 0.9993, 0.9999, 0.9999, 0.9999, & +0.2713, 0.2867, 0.5136, 0.8410, 0.9693, 0.9969, 0.9998, 0.9999, 0.9999, & +0.2713, 0.2867, 0.3188, 0.5501, 0.8903, 0.9874, 0.9990, 0.9999, 0.9999, & +0.2563, 0.2713, 0.2867, 0.3522, 0.6040, 0.9210, 0.9947, 0.9997, 0.9999, & +0.2563, 0.2563, 0.2713, 0.3025, 0.3694, 0.5862, 0.8815, 0.9959, 0.9998 / +data ((cldnuctab( 4,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +0.5862, 0.8053, 0.9394, 0.9912, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3869, 0.6728, 0.8721, 0.9724, 0.9969, 0.9998, 0.9999, 0.9999, 0.9999, & +0.2713, 0.4225, 0.7509, 0.9276, 0.9874, 0.9989, 0.9999, 0.9999, 0.9999, & +0.2713, 0.2867, 0.4587, 0.8053, 0.9585, 0.9954, 0.9996, 0.9999, 0.9999, & +0.2713, 0.2867, 0.3188, 0.5136, 0.8519, 0.9800, 0.9982, 0.9999, 0.9999, & +0.2713, 0.2713, 0.3025, 0.3522, 0.5501, 0.8903, 0.9912, 0.9994, 0.9999, & +0.2563, 0.2713, 0.2867, 0.3025, 0.3694, 0.5501, 0.8519, 0.9932, 0.9998 / +data ((cldnuctab( 5,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +0.8084, 0.9459, 0.9925, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6601, 0.8924, 0.9783, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3912, 0.7544, 0.9459, 0.9934, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.1790, 0.4632, 0.8437, 0.9783, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, & +0.1253, 0.2310, 0.5181, 0.8744, 0.9904, 0.9995, 0.9999, 0.9999, 0.9999, & +0.1161, 0.1452, 0.2599, 0.4632, 0.7246, 0.9407, 0.9980, 0.9999, 0.9999, & +0.0991, 0.1161, 0.1560, 0.2040, 0.2173, 0.2173, 0.2906, 0.3737, 0.7686 / +data ((cldnuctab( 5,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +0.7246, 0.9085, 0.9806, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5727, 0.8325, 0.9553, 0.9942, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3228, 0.6768, 0.9085, 0.9845, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, & +0.1452, 0.3912, 0.7686, 0.9553, 0.9949, 0.9997, 0.9999, 0.9999, 0.9999, & +0.1253, 0.1912, 0.4632, 0.8325, 0.9806, 0.9989, 0.9999, 0.9999, 0.9999, & +0.1161, 0.1350, 0.2310, 0.4815, 0.8207, 0.9826, 0.9994, 0.9999, 0.9999, & +0.1073, 0.1161, 0.1452, 0.2310, 0.3564, 0.4998, 0.7091, 0.9351, 0.9995 / +data ((cldnuctab( 5,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +0.6432, 0.8545, 0.9633, 0.9955, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4998, 0.7544, 0.9227, 0.9862, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2750, 0.5906, 0.8545, 0.9668, 0.9961, 0.9998, 0.9999, 0.9999, 0.9999, & +0.1253, 0.3228, 0.6768, 0.9227, 0.9877, 0.9990, 0.9999, 0.9999, 0.9999, & +0.1161, 0.1452, 0.3737, 0.7544, 0.9633, 0.9966, 0.9998, 0.9999, 0.9999, & +0.1161, 0.1350, 0.1912, 0.4450, 0.7957, 0.9783, 0.9990, 0.9999, 0.9999, & +0.1073, 0.1253, 0.1452, 0.2310, 0.4090, 0.6601, 0.9227, 0.9970, 0.9999 / +data ((cldnuctab( 5,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +0.5906, 0.8084, 0.9407, 0.9915, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4269, 0.6931, 0.8837, 0.9758, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2310, 0.5181, 0.7957, 0.9407, 0.9915, 0.9994, 0.9999, 0.9999, 0.9999, & +0.1253, 0.2599, 0.5906, 0.8744, 0.9758, 0.9974, 0.9999, 0.9999, 0.9999, & +0.1253, 0.1350, 0.3065, 0.6768, 0.9291, 0.9915, 0.9995, 0.9999, 0.9999, & +0.1161, 0.1350, 0.1672, 0.3737, 0.7397, 0.9633, 0.9974, 0.9999, 0.9999, & +0.1161, 0.1253, 0.1452, 0.2040, 0.3912, 0.6768, 0.9407, 0.9974, 0.9999 / +data ((cldnuctab( 5,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +0.5181, 0.7544, 0.9158, 0.9862, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3737, 0.6432, 0.8437, 0.9595, 0.9955, 0.9997, 0.9999, 0.9999, 0.9999, & +0.2040, 0.4450, 0.7397, 0.9158, 0.9845, 0.9987, 0.9999, 0.9999, 0.9999, & +0.1253, 0.2310, 0.5181, 0.8207, 0.9595, 0.9949, 0.9997, 0.9999, 0.9999, & +0.1253, 0.1350, 0.2599, 0.5906, 0.8924, 0.9826, 0.9985, 0.9999, 0.9999, & +0.1253, 0.1350, 0.1560, 0.3065, 0.6601, 0.9351, 0.9942, 0.9997, 0.9999, & +0.1253, 0.1253, 0.1452, 0.1912, 0.3564, 0.6432, 0.9291, 0.9966, 0.9999 / +data ((cldnuctab( 5,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +0.4815, 0.7091, 0.8924, 0.9806, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3395, 0.5906, 0.8084, 0.9459, 0.9925, 0.9995, 0.9999, 0.9999, 0.9999, & +0.1790, 0.4090, 0.6931, 0.8837, 0.9758, 0.9977, 0.9999, 0.9999, 0.9999, & +0.1350, 0.2040, 0.4632, 0.7686, 0.9407, 0.9904, 0.9994, 0.9999, 0.9999, & +0.1350, 0.1452, 0.2310, 0.5364, 0.8437, 0.9701, 0.9970, 0.9998, 0.9999, & +0.1253, 0.1350, 0.1560, 0.2750, 0.5906, 0.9007, 0.9891, 0.9993, 0.9999, & +0.1253, 0.1350, 0.1452, 0.1790, 0.3065, 0.5906, 0.9085, 0.9942, 0.9997 / +data ((cldnuctab( 5,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +0.4632, 0.6931, 0.8744, 0.9758, 0.9977, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3228, 0.5546, 0.7824, 0.9291, 0.9891, 0.9994, 0.9999, 0.9999, 0.9999, & +0.1672, 0.3737, 0.6432, 0.8545, 0.9668, 0.9966, 0.9998, 0.9999, 0.9999, & +0.1350, 0.1790, 0.4269, 0.7397, 0.9158, 0.9862, 0.9989, 0.9999, 0.9999, & +0.1350, 0.1452, 0.2040, 0.4815, 0.8084, 0.9595, 0.9949, 0.9997, 0.9999, & +0.1350, 0.1452, 0.1560, 0.2452, 0.5364, 0.8647, 0.9806, 0.9985, 0.9999, & +0.1350, 0.1350, 0.1560, 0.1790, 0.2906, 0.5546, 0.8837, 0.9904, 0.9995 / +data ((cldnuctab( 5,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +0.8744, 0.9731, 0.9966, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7091, 0.9291, 0.9891, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4090, 0.7957, 0.9701, 0.9970, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2310, 0.4815, 0.8545, 0.9877, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2040, 0.2750, 0.5181, 0.8647, 0.9925, 0.9997, 0.9999, 0.9999, 0.9999, & +0.1912, 0.2173, 0.2906, 0.4269, 0.6601, 0.9007, 0.9974, 0.9999, 0.9999, & +0.1672, 0.1790, 0.2173, 0.2906, 0.2452, 0.2452, 0.2750, 0.4090, 0.7091 / +data ((cldnuctab( 5,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +0.8084, 0.9459, 0.9915, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6259, 0.8837, 0.9783, 0.9974, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3395, 0.7091, 0.9407, 0.9925, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2173, 0.4090, 0.7957, 0.9731, 0.9977, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2040, 0.2452, 0.4632, 0.8437, 0.9877, 0.9994, 0.9999, 0.9999, 0.9999, & +0.1912, 0.2173, 0.2906, 0.4815, 0.7957, 0.9826, 0.9996, 0.9999, 0.9999, & +0.1790, 0.1912, 0.2173, 0.2906, 0.3564, 0.4450, 0.6601, 0.8924, 0.9992 / +data ((cldnuctab( 5,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +0.7397, 0.9158, 0.9826, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5546, 0.8325, 0.9595, 0.9942, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2906, 0.6259, 0.9007, 0.9826, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2173, 0.3395, 0.7091, 0.9459, 0.9942, 0.9996, 0.9999, 0.9999, 0.9999, & +0.2040, 0.2452, 0.3912, 0.7824, 0.9758, 0.9983, 0.9999, 0.9999, 0.9999, & +0.2040, 0.2173, 0.2599, 0.4450, 0.7957, 0.9826, 0.9995, 0.9999, 0.9999, & +0.1912, 0.2040, 0.2173, 0.2750, 0.4090, 0.6084, 0.8837, 0.9955, 0.9999 / +data ((cldnuctab( 5,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +0.6768, 0.8744, 0.9701, 0.9966, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4815, 0.7686, 0.9351, 0.9891, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2452, 0.5546, 0.8545, 0.9701, 0.9961, 0.9997, 0.9999, 0.9999, 0.9999, & +0.2173, 0.2750, 0.6259, 0.9158, 0.9877, 0.9990, 0.9999, 0.9999, 0.9999, & +0.2173, 0.2310, 0.3395, 0.6931, 0.9508, 0.9961, 0.9997, 0.9999, 0.9999, & +0.2040, 0.2173, 0.2599, 0.3912, 0.7397, 0.9701, 0.9987, 0.9999, 0.9999, & +0.2040, 0.2040, 0.2310, 0.2750, 0.4090, 0.6432, 0.9227, 0.9977, 0.9999 / +data ((cldnuctab( 5,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +0.6259, 0.8325, 0.9553, 0.9942, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4450, 0.7246, 0.9007, 0.9806, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2173, 0.4998, 0.8084, 0.9508, 0.9934, 0.9995, 0.9999, 0.9999, 0.9999, & +0.2173, 0.2452, 0.5546, 0.8744, 0.9783, 0.9977, 0.9999, 0.9999, 0.9999, & +0.2173, 0.2310, 0.2906, 0.6084, 0.9227, 0.9915, 0.9994, 0.9999, 0.9999, & +0.2173, 0.2310, 0.2599, 0.3564, 0.6601, 0.9508, 0.9970, 0.9998, 0.9999, & +0.2040, 0.2173, 0.2310, 0.2599, 0.3737, 0.6259, 0.9158, 0.9974, 0.9999 / +data ((cldnuctab( 5,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +0.5906, 0.8084, 0.9407, 0.9915, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4090, 0.6768, 0.8744, 0.9731, 0.9970, 0.9998, 0.9999, 0.9999, 0.9999, & +0.2310, 0.4450, 0.7544, 0.9291, 0.9891, 0.9992, 0.9999, 0.9999, 0.9999, & +0.2310, 0.2452, 0.4998, 0.8325, 0.9668, 0.9961, 0.9997, 0.9999, 0.9999, & +0.2310, 0.2452, 0.2750, 0.5546, 0.8837, 0.9845, 0.9989, 0.9999, 0.9999, & +0.2173, 0.2310, 0.2599, 0.3228, 0.5906, 0.9158, 0.9942, 0.9997, 0.9999, & +0.2173, 0.2310, 0.2310, 0.2599, 0.3564, 0.5906, 0.8924, 0.9961, 0.9999 / +data ((cldnuctab( 5,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +0.5546, 0.7824, 0.9291, 0.9891, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3737, 0.6432, 0.8545, 0.9633, 0.9961, 0.9997, 0.9999, 0.9999, 0.9999, & +0.2452, 0.4269, 0.7246, 0.9158, 0.9845, 0.9987, 0.9999, 0.9999, 0.9999, & +0.2310, 0.2452, 0.4632, 0.7957, 0.9508, 0.9942, 0.9996, 0.9999, 0.9999, & +0.2310, 0.2452, 0.2750, 0.4998, 0.8437, 0.9758, 0.9980, 0.9999, 0.9999, & +0.2310, 0.2452, 0.2599, 0.3065, 0.5546, 0.8837, 0.9891, 0.9994, 0.9999, & +0.2310, 0.2310, 0.2452, 0.2750, 0.3395, 0.5546, 0.8647, 0.9934, 0.9998 / +data ((cldnuctab( 5,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +0.9158, 0.9862, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7397, 0.9595, 0.9955, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4269, 0.8084, 0.9806, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3395, 0.4998, 0.8545, 0.9925, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3065, 0.3564, 0.5364, 0.8325, 0.9925, 0.9998, 0.9999, 0.9999, 0.9999, & +0.2906, 0.3065, 0.3737, 0.4632, 0.5906, 0.8437, 0.9925, 0.9999, 0.9999, & +0.2750, 0.2750, 0.3065, 0.3737, 0.4090, 0.2599, 0.3065, 0.4090, 0.6768 / +data ((cldnuctab( 5,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +0.8647, 0.9731, 0.9966, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6601, 0.9227, 0.9891, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3564, 0.7397, 0.9633, 0.9966, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3395, 0.4269, 0.7957, 0.9826, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3228, 0.3564, 0.4998, 0.8325, 0.9915, 0.9997, 0.9999, 0.9999, 0.9999, & +0.3065, 0.3228, 0.3737, 0.4998, 0.7544, 0.9701, 0.9997, 0.9999, 0.9999, & +0.2750, 0.2906, 0.3065, 0.3737, 0.4632, 0.4450, 0.5906, 0.7957, 0.9915 / +data ((cldnuctab( 5,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +0.8084, 0.9508, 0.9925, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5906, 0.8837, 0.9783, 0.9977, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3395, 0.6601, 0.9351, 0.9925, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3395, 0.3737, 0.7246, 0.9668, 0.9974, 0.9998, 0.9999, 0.9999, 0.9999, & +0.3228, 0.3564, 0.4450, 0.7824, 0.9826, 0.9993, 0.9999, 0.9999, 0.9999, & +0.3228, 0.3228, 0.3564, 0.4815, 0.7544, 0.9806, 0.9997, 0.9999, 0.9999, & +0.3065, 0.3065, 0.3228, 0.3737, 0.4632, 0.5546, 0.8207, 0.9806, 0.9999 / +data ((cldnuctab( 5,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +0.7544, 0.9291, 0.9862, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5364, 0.8325, 0.9633, 0.9955, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3564, 0.5906, 0.8924, 0.9845, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3395, 0.3737, 0.6432, 0.9351, 0.9942, 0.9996, 0.9999, 0.9999, 0.9999, & +0.3395, 0.3564, 0.4090, 0.6931, 0.9633, 0.9980, 0.9999, 0.9999, 0.9999, & +0.3228, 0.3395, 0.3737, 0.4632, 0.7246, 0.9731, 0.9993, 0.9999, 0.9999, & +0.3228, 0.3228, 0.3395, 0.3737, 0.4632, 0.6259, 0.8647, 0.9966, 0.9999 / +data ((cldnuctab( 5,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +0.7091, 0.9007, 0.9806, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4815, 0.7957, 0.9459, 0.9915, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3564, 0.5181, 0.8545, 0.9731, 0.9974, 0.9998, 0.9999, 0.9999, 0.9999, & +0.3564, 0.3737, 0.5727, 0.9007, 0.9891, 0.9992, 0.9999, 0.9999, 0.9999, & +0.3395, 0.3564, 0.4090, 0.6259, 0.9351, 0.9955, 0.9998, 0.9999, 0.9999, & +0.3395, 0.3564, 0.3737, 0.4269, 0.6601, 0.9508, 0.9985, 0.9999, 0.9999, & +0.3228, 0.3395, 0.3564, 0.3737, 0.4450, 0.6259, 0.8837, 0.9970, 0.9999 / +data ((cldnuctab( 5,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +0.6768, 0.8744, 0.9731, 0.9970, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4450, 0.7544, 0.9291, 0.9877, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3564, 0.4815, 0.8207, 0.9633, 0.9955, 0.9997, 0.9999, 0.9999, 0.9999, & +0.3564, 0.3737, 0.5181, 0.8647, 0.9826, 0.9985, 0.9999, 0.9999, 0.9999, & +0.3564, 0.3737, 0.4090, 0.5727, 0.9007, 0.9925, 0.9995, 0.9999, 0.9999, & +0.3564, 0.3564, 0.3737, 0.4269, 0.6259, 0.9227, 0.9966, 0.9999, 0.9999, & +0.3395, 0.3395, 0.3564, 0.3737, 0.4269, 0.6084, 0.8647, 0.9961, 0.9999 / +data ((cldnuctab( 5,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +0.6432, 0.8545, 0.9633, 0.9961, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4090, 0.7246, 0.9085, 0.9845, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3737, 0.4450, 0.7824, 0.9508, 0.9934, 0.9995, 0.9999, 0.9999, 0.9999, & +0.3737, 0.3912, 0.4815, 0.8325, 0.9731, 0.9977, 0.9998, 0.9999, 0.9999, & +0.3737, 0.3737, 0.4090, 0.5181, 0.8744, 0.9877, 0.9992, 0.9999, 0.9999, & +0.3564, 0.3737, 0.3912, 0.4269, 0.5727, 0.8924, 0.9942, 0.9997, 0.9999, & +0.3564, 0.3564, 0.3737, 0.3912, 0.4269, 0.5727, 0.8325, 0.9934, 0.9999 / +data ((cldnuctab( 5,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +0.9459, 0.9942, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7544, 0.9731, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5181, 0.8084, 0.9877, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4632, 0.5546, 0.8437, 0.9942, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4450, 0.4815, 0.5727, 0.7957, 0.9877, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4090, 0.4269, 0.4632, 0.5727, 0.5727, 0.7686, 0.9553, 0.9999, 0.9999, & +0.3912, 0.3912, 0.4090, 0.4632, 0.5906, 0.3395, 0.3395, 0.4269, 0.6601 / +data ((cldnuctab( 5,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +0.9085, 0.9862, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6931, 0.9508, 0.9955, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4998, 0.7397, 0.9758, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4815, 0.5364, 0.7957, 0.9877, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4632, 0.4815, 0.5546, 0.8084, 0.9915, 0.9998, 0.9999, 0.9999, 0.9999, & +0.4269, 0.4450, 0.4815, 0.5727, 0.6931, 0.9351, 0.9995, 0.9999, 0.9999, & +0.4090, 0.4269, 0.4450, 0.4815, 0.5727, 0.4998, 0.5546, 0.7397, 0.9731 / +data ((cldnuctab( 5,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +0.8647, 0.9758, 0.9974, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6084, 0.9158, 0.9904, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4998, 0.6768, 0.9553, 0.9966, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4815, 0.5181, 0.7246, 0.9758, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4632, 0.4815, 0.5364, 0.7686, 0.9845, 0.9997, 0.9999, 0.9999, 0.9999, & +0.4450, 0.4632, 0.4815, 0.5546, 0.7397, 0.9668, 0.9998, 0.9999, 0.9999, & +0.4269, 0.4450, 0.4632, 0.4815, 0.5546, 0.6084, 0.7397, 0.9459, 0.9999 / +data ((cldnuctab( 5,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +0.8207, 0.9595, 0.9949, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5546, 0.8837, 0.9806, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4998, 0.6084, 0.9227, 0.9925, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4998, 0.5181, 0.6601, 0.9508, 0.9974, 0.9998, 0.9999, 0.9999, 0.9999, & +0.4815, 0.4998, 0.5364, 0.7091, 0.9701, 0.9992, 0.9999, 0.9999, 0.9999, & +0.4632, 0.4815, 0.4998, 0.5546, 0.7246, 0.9633, 0.9996, 0.9999, 0.9999, & +0.4450, 0.4632, 0.4632, 0.4998, 0.5546, 0.6601, 0.8084, 0.9891, 0.9999 / +data ((cldnuctab( 5,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +0.7824, 0.9407, 0.9915, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4998, 0.8437, 0.9701, 0.9970, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4998, 0.5364, 0.8837, 0.9862, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4998, 0.5181, 0.5906, 0.9227, 0.9942, 0.9997, 0.9999, 0.9999, 0.9999, & +0.4815, 0.4998, 0.5364, 0.6601, 0.9459, 0.9980, 0.9999, 0.9999, 0.9999, & +0.4815, 0.4815, 0.4998, 0.5364, 0.6931, 0.9407, 0.9990, 0.9999, 0.9999, & +0.4632, 0.4815, 0.4815, 0.4998, 0.5546, 0.6768, 0.8325, 0.9934, 0.9999 / +data ((cldnuctab( 5,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +0.7397, 0.9227, 0.9877, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5181, 0.8084, 0.9595, 0.9949, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5181, 0.5364, 0.8545, 0.9783, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5181, 0.5364, 0.5727, 0.8837, 0.9904, 0.9995, 0.9999, 0.9999, 0.9999, & +0.4998, 0.5181, 0.5364, 0.6259, 0.9085, 0.9961, 0.9998, 0.9999, 0.9999, & +0.4998, 0.4998, 0.5181, 0.5546, 0.6601, 0.9158, 0.9980, 0.9999, 0.9999, & +0.4815, 0.4815, 0.4998, 0.5181, 0.5546, 0.6601, 0.8325, 0.9915, 0.9999 / +data ((cldnuctab( 5,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +0.7246, 0.9085, 0.9845, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5364, 0.7824, 0.9459, 0.9934, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5181, 0.5546, 0.8207, 0.9731, 0.9974, 0.9998, 0.9999, 0.9999, 0.9999, & +0.5181, 0.5364, 0.5727, 0.8545, 0.9862, 0.9992, 0.9999, 0.9999, 0.9999, & +0.5181, 0.5181, 0.5546, 0.6084, 0.8744, 0.9934, 0.9997, 0.9999, 0.9999, & +0.4998, 0.5181, 0.5181, 0.5546, 0.6432, 0.8837, 0.9961, 0.9999, 0.9999, & +0.4998, 0.4998, 0.5181, 0.5181, 0.5546, 0.6432, 0.8084, 0.9891, 0.9999 / +data ((cldnuctab( 5,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +0.9595, 0.9966, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7544, 0.9783, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5906, 0.8084, 0.9904, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5546, 0.6084, 0.8325, 0.9942, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4998, 0.5364, 0.6259, 0.7824, 0.9783, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4998, 0.5181, 0.5364, 0.6259, 0.6259, 0.7246, 0.9291, 0.9998, 0.9999, & +0.4450, 0.4632, 0.4815, 0.5181, 0.6259, 0.5546, 0.3737, 0.4632, 0.6601 / +data ((cldnuctab( 5,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +0.9291, 0.9915, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6931, 0.9595, 0.9970, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5906, 0.7397, 0.9783, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5546, 0.6084, 0.7957, 0.9891, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5364, 0.5546, 0.6084, 0.7957, 0.9891, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5181, 0.5181, 0.5364, 0.6084, 0.7246, 0.9158, 0.9990, 0.9999, 0.9999, & +0.4998, 0.4998, 0.5181, 0.5546, 0.6259, 0.6601, 0.5546, 0.7246, 0.9407 / +data ((cldnuctab( 5,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +0.8924, 0.9845, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6259, 0.9351, 0.9934, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5906, 0.6768, 0.9595, 0.9977, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5727, 0.6084, 0.7397, 0.9758, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5546, 0.5727, 0.6084, 0.7824, 0.9826, 0.9998, 0.9999, 0.9999, 0.9999, & +0.5364, 0.5364, 0.5546, 0.6084, 0.7544, 0.9553, 0.9997, 0.9999, 0.9999, & +0.5181, 0.5181, 0.5364, 0.5546, 0.6084, 0.7091, 0.7246, 0.9158, 0.9995 / +data ((cldnuctab( 5,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +0.8545, 0.9731, 0.9970, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5906, 0.9007, 0.9877, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5906, 0.6259, 0.9351, 0.9955, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5727, 0.6084, 0.6768, 0.9553, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5727, 0.5727, 0.6084, 0.7397, 0.9668, 0.9994, 0.9999, 0.9999, 0.9999, & +0.5546, 0.5546, 0.5727, 0.6084, 0.7397, 0.9508, 0.9996, 0.9999, 0.9999, & +0.5364, 0.5364, 0.5546, 0.5727, 0.6084, 0.7246, 0.7824, 0.9758, 0.9999 / +data ((cldnuctab( 5,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +0.8084, 0.9595, 0.9949, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5906, 0.8647, 0.9806, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5906, 0.6259, 0.9007, 0.9915, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5906, 0.6084, 0.6601, 0.9227, 0.9966, 0.9998, 0.9999, 0.9999, 0.9999, & +0.5727, 0.5906, 0.6084, 0.6931, 0.9407, 0.9985, 0.9999, 0.9999, 0.9999, & +0.5727, 0.5727, 0.5906, 0.6084, 0.7091, 0.9291, 0.9992, 0.9999, 0.9999, & +0.5546, 0.5546, 0.5727, 0.5906, 0.6084, 0.7091, 0.8207, 0.9891, 0.9999 / +data ((cldnuctab( 5,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +0.7824, 0.9459, 0.9925, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6084, 0.8325, 0.9701, 0.9974, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6084, 0.6259, 0.8647, 0.9862, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5906, 0.6084, 0.6601, 0.8924, 0.9934, 0.9997, 0.9999, 0.9999, 0.9999, & +0.5906, 0.5906, 0.6259, 0.6768, 0.9085, 0.9970, 0.9999, 0.9999, 0.9999, & +0.5727, 0.5906, 0.5906, 0.6259, 0.6931, 0.9007, 0.9983, 0.9999, 0.9999, & +0.5727, 0.5727, 0.5727, 0.5906, 0.6259, 0.6931, 0.8325, 0.9877, 0.9999 / +data ((cldnuctab( 5,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +0.7544, 0.9351, 0.9904, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6259, 0.7957, 0.9633, 0.9961, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6084, 0.6259, 0.8325, 0.9806, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6084, 0.6259, 0.6601, 0.8647, 0.9891, 0.9995, 0.9999, 0.9999, 0.9999, & +0.5906, 0.6084, 0.6259, 0.6768, 0.8837, 0.9949, 0.9998, 0.9999, 0.9999, & +0.5906, 0.5906, 0.6084, 0.6259, 0.6931, 0.8744, 0.9966, 0.9999, 0.9999, & +0.5906, 0.5906, 0.5906, 0.6084, 0.6259, 0.6931, 0.8207, 0.9826, 0.9999 / +data ((cldnuctab( 5,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +0.9633, 0.9974, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7544, 0.9826, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6432, 0.8084, 0.9915, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6084, 0.6601, 0.8325, 0.9942, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5727, 0.5906, 0.6601, 0.7824, 0.9668, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5546, 0.5546, 0.5906, 0.6601, 0.7246, 0.7246, 0.9085, 0.9994, 0.9999, & +0.4998, 0.4998, 0.5181, 0.5546, 0.6432, 0.8325, 0.3912, 0.4815, 0.6768 / +data ((cldnuctab( 5,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +0.9407, 0.9942, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6931, 0.9668, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6432, 0.7544, 0.9806, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6084, 0.6601, 0.8084, 0.9891, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5906, 0.6084, 0.6601, 0.7957, 0.9845, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5727, 0.5906, 0.6084, 0.6432, 0.7686, 0.8837, 0.9980, 0.9999, 0.9999, & +0.5546, 0.5546, 0.5727, 0.5906, 0.6601, 0.7686, 0.5727, 0.7091, 0.9227 / +data ((cldnuctab( 5,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +0.9085, 0.9877, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6601, 0.9407, 0.9955, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6432, 0.6931, 0.9633, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6259, 0.6601, 0.7544, 0.9783, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6084, 0.6259, 0.6601, 0.7824, 0.9806, 0.9998, 0.9999, 0.9999, 0.9999, & +0.5906, 0.5906, 0.6084, 0.6601, 0.7686, 0.9351, 0.9997, 0.9999, 0.9999, & +0.5727, 0.5906, 0.5906, 0.6084, 0.6601, 0.7686, 0.7091, 0.8924, 0.9985 / +data ((cldnuctab( 5,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +0.8647, 0.9783, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6601, 0.9085, 0.9915, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6432, 0.6768, 0.9351, 0.9966, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6432, 0.6601, 0.7246, 0.9553, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6259, 0.6432, 0.6601, 0.7544, 0.9633, 0.9995, 0.9999, 0.9999, 0.9999, & +0.6084, 0.6259, 0.6259, 0.6601, 0.7544, 0.9407, 0.9996, 0.9999, 0.9999, & +0.6084, 0.6084, 0.6084, 0.6259, 0.6601, 0.7544, 0.7824, 0.9595, 0.9999 / +data ((cldnuctab( 5,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +0.8325, 0.9701, 0.9966, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6601, 0.8744, 0.9845, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6601, 0.6768, 0.9085, 0.9934, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6432, 0.6601, 0.7091, 0.9291, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6432, 0.6432, 0.6601, 0.7397, 0.9407, 0.9989, 0.9999, 0.9999, 0.9999, & +0.6259, 0.6259, 0.6432, 0.6601, 0.7397, 0.9227, 0.9992, 0.9999, 0.9999, & +0.6259, 0.6259, 0.6259, 0.6432, 0.6601, 0.7397, 0.8207, 0.9806, 0.9999 / +data ((cldnuctab( 5,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +0.7957, 0.9595, 0.9949, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6768, 0.8437, 0.9783, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6601, 0.6768, 0.8744, 0.9891, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6601, 0.6768, 0.7091, 0.8924, 0.9949, 0.9998, 0.9999, 0.9999, 0.9999, & +0.6432, 0.6601, 0.6768, 0.7246, 0.9085, 0.9974, 0.9999, 0.9999, 0.9999, & +0.6432, 0.6432, 0.6601, 0.6768, 0.7246, 0.9007, 0.9983, 0.9999, 0.9999, & +0.6259, 0.6432, 0.6432, 0.6432, 0.6768, 0.7246, 0.8437, 0.9758, 0.9999 / +data ((cldnuctab( 5,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +0.7686, 0.9459, 0.9934, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6768, 0.8084, 0.9701, 0.9974, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6768, 0.6931, 0.8437, 0.9845, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6601, 0.6768, 0.7091, 0.8647, 0.9915, 0.9997, 0.9999, 0.9999, 0.9999, & +0.6601, 0.6601, 0.6768, 0.7246, 0.8837, 0.9955, 0.9999, 0.9999, 0.9999, & +0.6432, 0.6601, 0.6601, 0.6768, 0.7246, 0.8744, 0.9966, 0.9999, 0.9999, & +0.6432, 0.6432, 0.6601, 0.6601, 0.6768, 0.7246, 0.8545, 0.9758, 0.9999 / +data ((cldnuctab( 5,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +0.9668, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7686, 0.9826, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6768, 0.8207, 0.9915, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6432, 0.6931, 0.8325, 0.9925, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6084, 0.6259, 0.6768, 0.7957, 0.9633, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5906, 0.6084, 0.6259, 0.6931, 0.7824, 0.7091, 0.8924, 0.9985, 0.9999, & +0.5181, 0.5364, 0.5364, 0.5727, 0.6432, 0.8207, 0.4090, 0.4815, 0.6601 / +data ((cldnuctab( 5,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +0.9459, 0.9955, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7091, 0.9668, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6768, 0.7686, 0.9826, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6601, 0.6931, 0.8084, 0.9891, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6259, 0.6432, 0.6931, 0.8084, 0.9826, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6259, 0.6259, 0.6432, 0.6931, 0.7957, 0.8647, 0.9961, 0.9999, 0.9999, & +0.5906, 0.5906, 0.6084, 0.6259, 0.6931, 0.8437, 0.5727, 0.7091, 0.9158 / +data ((cldnuctab( 5,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +0.9158, 0.9904, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6931, 0.9459, 0.9966, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6931, 0.7246, 0.9633, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6768, 0.6931, 0.7686, 0.9758, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6601, 0.6601, 0.6931, 0.7957, 0.9783, 0.9998, 0.9999, 0.9999, 0.9999, & +0.6432, 0.6432, 0.6601, 0.6931, 0.7957, 0.9291, 0.9995, 0.9999, 0.9999, & +0.6259, 0.6259, 0.6259, 0.6601, 0.6931, 0.8084, 0.7091, 0.8744, 0.9966 / +data ((cldnuctab( 5,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +0.8744, 0.9826, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6931, 0.9158, 0.9925, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6931, 0.7246, 0.9407, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6768, 0.6931, 0.7544, 0.9553, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6601, 0.6768, 0.6931, 0.7686, 0.9633, 0.9996, 0.9999, 0.9999, 0.9999, & +0.6601, 0.6601, 0.6768, 0.6931, 0.7824, 0.9291, 0.9995, 0.9999, 0.9999, & +0.6432, 0.6432, 0.6601, 0.6601, 0.6931, 0.7824, 0.7957, 0.9553, 0.9999 / +data ((cldnuctab( 5,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +0.8437, 0.9758, 0.9977, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7091, 0.8837, 0.9877, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6931, 0.7246, 0.9085, 0.9949, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6931, 0.7091, 0.7397, 0.9291, 0.9977, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6768, 0.6931, 0.7091, 0.7544, 0.9351, 0.9990, 0.9999, 0.9999, 0.9999, & +0.6601, 0.6768, 0.6931, 0.7091, 0.7686, 0.9158, 0.9992, 0.9999, 0.9999, & +0.6601, 0.6601, 0.6768, 0.6768, 0.7091, 0.7686, 0.8437, 0.9668, 0.9999 / +data ((cldnuctab( 5,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +0.8084, 0.9668, 0.9966, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7091, 0.8545, 0.9826, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7091, 0.7246, 0.8744, 0.9915, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6931, 0.7091, 0.7397, 0.8924, 0.9955, 0.9998, 0.9999, 0.9999, 0.9999, & +0.6931, 0.6931, 0.7091, 0.7544, 0.9085, 0.9977, 0.9999, 0.9999, 0.9999, & +0.6768, 0.6931, 0.6931, 0.7091, 0.7544, 0.9007, 0.9980, 0.9999, 0.9999, & +0.6768, 0.6768, 0.6768, 0.6931, 0.7091, 0.7544, 0.8647, 0.9701, 0.9999 / +data ((cldnuctab( 5,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +0.7824, 0.9553, 0.9949, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7246, 0.8207, 0.9758, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7091, 0.7397, 0.8437, 0.9862, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7091, 0.7246, 0.7544, 0.8647, 0.9925, 0.9997, 0.9999, 0.9999, 0.9999, & +0.7091, 0.7091, 0.7246, 0.7544, 0.8837, 0.9961, 0.9999, 0.9999, 0.9999, & +0.6931, 0.6931, 0.7091, 0.7246, 0.7544, 0.8837, 0.9966, 0.9999, 0.9999, & +0.6931, 0.6931, 0.6931, 0.7091, 0.7246, 0.7544, 0.8647, 0.9633, 0.9999 / +data ((cldnuctab( 6,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +0.9579, 0.9968, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7631, 0.9797, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5836, 0.8160, 0.9910, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5475, 0.6190, 0.8394, 0.9953, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5109, 0.5475, 0.6190, 0.7770, 0.9818, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4926, 0.5109, 0.5475, 0.6190, 0.6190, 0.7338, 0.9328, 0.9999, 0.9999, & +0.4560, 0.4560, 0.4743, 0.5292, 0.6190, 0.5292, 0.3843, 0.4743, 0.6868 / +data ((cldnuctab( 6,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +0.9266, 0.9921, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6868, 0.9618, 0.9972, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5836, 0.7487, 0.9797, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5475, 0.6014, 0.8035, 0.9899, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5292, 0.5475, 0.6190, 0.8035, 0.9910, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5109, 0.5292, 0.5475, 0.6190, 0.7186, 0.9266, 0.9993, 0.9999, 0.9999, & +0.4926, 0.5109, 0.5109, 0.5475, 0.6190, 0.6364, 0.5656, 0.7338, 0.9618 / +data ((cldnuctab( 6,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +0.8891, 0.9838, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6190, 0.9328, 0.9939, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5836, 0.6703, 0.9618, 0.9979, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5656, 0.6014, 0.7487, 0.9773, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5475, 0.5656, 0.6014, 0.7770, 0.9855, 0.9998, 0.9999, 0.9999, 0.9999, & +0.5292, 0.5475, 0.5656, 0.6190, 0.7487, 0.9536, 0.9998, 0.9999, 0.9999, & +0.5109, 0.5292, 0.5292, 0.5656, 0.6014, 0.7029, 0.7338, 0.9266, 0.9996 / +data ((cldnuctab( 6,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +0.8503, 0.9719, 0.9972, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5836, 0.8975, 0.9886, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5836, 0.6190, 0.9328, 0.9953, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5656, 0.6014, 0.6703, 0.9579, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5656, 0.5836, 0.6014, 0.7338, 0.9688, 0.9995, 0.9999, 0.9999, 0.9999, & +0.5475, 0.5656, 0.5656, 0.6190, 0.7338, 0.9536, 0.9997, 0.9999, 0.9999, & +0.5292, 0.5475, 0.5475, 0.5656, 0.6190, 0.7186, 0.8035, 0.9818, 0.9999 / +data ((cldnuctab( 6,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +0.8160, 0.9579, 0.9953, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6014, 0.8608, 0.9797, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5836, 0.6190, 0.8975, 0.9910, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5836, 0.6014, 0.6535, 0.9266, 0.9964, 0.9998, 0.9999, 0.9999, 0.9999, & +0.5656, 0.5836, 0.6190, 0.7028, 0.9439, 0.9988, 0.9999, 0.9999, 0.9999, & +0.5656, 0.5656, 0.5836, 0.6190, 0.7186, 0.9328, 0.9993, 0.9999, 0.9999, & +0.5475, 0.5656, 0.5656, 0.5836, 0.6190, 0.7186, 0.8160, 0.9921, 0.9999 / +data ((cldnuctab( 6,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +0.7770, 0.9439, 0.9930, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6014, 0.8279, 0.9719, 0.9972, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6014, 0.6190, 0.8707, 0.9855, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5836, 0.6014, 0.6535, 0.8975, 0.9939, 0.9997, 0.9999, 0.9999, 0.9999, & +0.5836, 0.6014, 0.6190, 0.6703, 0.9130, 0.9972, 0.9999, 0.9999, 0.9999, & +0.5836, 0.5836, 0.6014, 0.6190, 0.7028, 0.9055, 0.9986, 0.9999, 0.9999, & +0.5656, 0.5656, 0.5836, 0.5836, 0.6190, 0.7028, 0.8279, 0.9910, 0.9999 / +data ((cldnuctab( 6,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +0.7487, 0.9328, 0.9899, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6190, 0.8035, 0.9618, 0.9964, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6014, 0.6364, 0.8394, 0.9797, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6014, 0.6190, 0.6535, 0.8608, 0.9899, 0.9996, 0.9999, 0.9999, 0.9999, & +0.6014, 0.6014, 0.6190, 0.6703, 0.8801, 0.9953, 0.9998, 0.9999, 0.9999, & +0.5836, 0.6014, 0.6014, 0.6190, 0.6868, 0.8801, 0.9972, 0.9999, 0.9999, & +0.5836, 0.5836, 0.5836, 0.6014, 0.6190, 0.6868, 0.8279, 0.9871, 0.9999 / +data ((cldnuctab( 6,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +0.9719, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7631, 0.9838, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7029, 0.8279, 0.9921, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6703, 0.7028, 0.8394, 0.9921, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6535, 0.6703, 0.7029, 0.8160, 0.9536, 0.9998, 0.9999, 0.9999, 0.9999, & +0.6190, 0.6364, 0.6535, 0.7186, 0.8160, 0.7186, 0.8801, 0.9979, 0.9999, & +0.5475, 0.5475, 0.5656, 0.5836, 0.6535, 0.8160, 0.4560, 0.5109, 0.6868 / +data ((cldnuctab( 6,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +0.9489, 0.9964, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7338, 0.9688, 0.9988, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7028, 0.7770, 0.9818, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6868, 0.7186, 0.8160, 0.9886, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6535, 0.6703, 0.7186, 0.8160, 0.9797, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6535, 0.6535, 0.6703, 0.7029, 0.8160, 0.8707, 0.9953, 0.9999, 0.9999, & +0.6190, 0.6190, 0.6190, 0.6535, 0.7028, 0.8394, 0.6014, 0.7186, 0.9130 / +data ((cldnuctab( 6,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +0.9200, 0.9921, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7186, 0.9489, 0.9972, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7186, 0.7487, 0.9655, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7029, 0.7186, 0.7905, 0.9773, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6868, 0.6868, 0.7186, 0.8035, 0.9748, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6703, 0.6703, 0.6868, 0.7029, 0.8035, 0.9200, 0.9994, 0.9999, 0.9999, & +0.6535, 0.6535, 0.6535, 0.6703, 0.7186, 0.8279, 0.7338, 0.8707, 0.9959 / +data ((cldnuctab( 6,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +0.8891, 0.9855, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7338, 0.9200, 0.9939, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7186, 0.7487, 0.9386, 0.9976, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7029, 0.7186, 0.7631, 0.9579, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7029, 0.7029, 0.7186, 0.7905, 0.9618, 0.9997, 0.9999, 0.9999, 0.9999, & +0.6868, 0.6868, 0.7029, 0.7186, 0.7905, 0.9266, 0.9995, 0.9999, 0.9999, & +0.6703, 0.6703, 0.6868, 0.6868, 0.7186, 0.7905, 0.8160, 0.9536, 0.9999 / +data ((cldnuctab( 6,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +0.8503, 0.9773, 0.9982, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7338, 0.8891, 0.9899, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7338, 0.7487, 0.9055, 0.9953, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7186, 0.7338, 0.7631, 0.9266, 0.9979, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7029, 0.7186, 0.7338, 0.7770, 0.9386, 0.9991, 0.9999, 0.9999, 0.9999, & +0.7029, 0.7029, 0.7029, 0.7338, 0.7770, 0.9130, 0.9992, 0.9999, 0.9999, & +0.6868, 0.6868, 0.7028, 0.7029, 0.7338, 0.7770, 0.8707, 0.9618, 0.9999 / +data ((cldnuctab( 6,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +0.8160, 0.9688, 0.9972, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7338, 0.8503, 0.9838, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7338, 0.7487, 0.8801, 0.9921, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7186, 0.7338, 0.7631, 0.8975, 0.9964, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7186, 0.7186, 0.7338, 0.7770, 0.9130, 0.9982, 0.9999, 0.9999, 0.9999, & +0.7028, 0.7186, 0.7186, 0.7338, 0.7770, 0.8975, 0.9979, 0.9999, 0.9999, & +0.7029, 0.7029, 0.7029, 0.7186, 0.7338, 0.7770, 0.8801, 0.9655, 0.9999 / +data ((cldnuctab( 6,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +0.7905, 0.9618, 0.9959, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7487, 0.8279, 0.9797, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7487, 0.7631, 0.8503, 0.9886, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7338, 0.7487, 0.7770, 0.8707, 0.9939, 0.9998, 0.9999, 0.9999, 0.9999, & +0.7338, 0.7338, 0.7487, 0.7770, 0.8891, 0.9964, 0.9999, 0.9999, 0.9999, & +0.7186, 0.7186, 0.7338, 0.7487, 0.7770, 0.8891, 0.9964, 0.9999, 0.9999, & +0.7186, 0.7186, 0.7186, 0.7338, 0.7487, 0.7770, 0.8801, 0.9655, 0.9999 / +data ((cldnuctab( 6,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +0.9748, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8394, 0.9855, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8035, 0.8608, 0.9899, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7770, 0.7905, 0.8608, 0.9818, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7631, 0.7770, 0.8035, 0.8707, 0.9200, 0.9988, 0.9999, 0.9999, 0.9999, & +0.7186, 0.7186, 0.7338, 0.7770, 0.8707, 0.7631, 0.8503, 0.9797, 0.9999, & +0.6190, 0.6190, 0.6364, 0.6535, 0.6868, 0.7905, 0.9655, 0.5656, 0.7029 / +data ((cldnuctab( 6,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +0.9579, 0.9982, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8394, 0.9719, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8160, 0.8503, 0.9797, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7905, 0.8160, 0.8608, 0.9818, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7770, 0.7905, 0.8035, 0.8608, 0.9536, 0.9998, 0.9999, 0.9999, 0.9999, & +0.7631, 0.7631, 0.7770, 0.8035, 0.8707, 0.8707, 0.9719, 0.9999, 0.9999, & +0.7029, 0.7029, 0.7029, 0.7186, 0.7631, 0.8503, 0.8503, 0.7186, 0.8801 / +data ((cldnuctab( 6,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +0.9328, 0.9964, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8394, 0.9489, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8160, 0.8503, 0.9618, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8035, 0.8160, 0.8503, 0.9719, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7905, 0.8035, 0.8160, 0.8608, 0.9579, 0.9998, 0.9999, 0.9999, 0.9999, & +0.7905, 0.7905, 0.7905, 0.8160, 0.8608, 0.9266, 0.9964, 0.9999, 0.9999, & +0.7487, 0.7487, 0.7631, 0.7631, 0.7905, 0.8608, 0.9200, 0.8394, 0.9773 / +data ((cldnuctab( 6,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +0.9055, 0.9930, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8394, 0.9200, 0.9968, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8279, 0.8503, 0.9386, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8160, 0.8279, 0.8503, 0.9489, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8035, 0.8160, 0.8279, 0.8503, 0.9489, 0.9997, 0.9999, 0.9999, 0.9999, & +0.8035, 0.8035, 0.8035, 0.8279, 0.8503, 0.9328, 0.9976, 0.9999, 0.9999, & +0.7770, 0.7770, 0.7905, 0.7905, 0.8160, 0.8608, 0.9328, 0.9130, 0.9979 / +data ((cldnuctab( 6,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +0.8707, 0.9886, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8394, 0.8891, 0.9946, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8394, 0.8503, 0.9055, 0.9972, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8279, 0.8394, 0.8503, 0.9266, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8160, 0.8160, 0.8279, 0.8503, 0.9328, 0.9992, 0.9999, 0.9999, 0.9999, & +0.8160, 0.8160, 0.8160, 0.8279, 0.8503, 0.9328, 0.9972, 0.9999, 0.9999, & +0.7905, 0.8035, 0.8035, 0.8035, 0.8279, 0.8608, 0.9328, 0.9386, 0.9997 / +data ((cldnuctab( 6,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +0.8503, 0.9838, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8503, 0.8608, 0.9910, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8394, 0.8503, 0.8801, 0.9953, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8394, 0.8394, 0.8608, 0.9055, 0.9972, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8279, 0.8279, 0.8394, 0.8608, 0.9200, 0.9982, 0.9999, 0.9999, 0.9999, & +0.8279, 0.8279, 0.8279, 0.8394, 0.8608, 0.9200, 0.9953, 0.9999, 0.9999, & +0.8035, 0.8160, 0.8160, 0.8160, 0.8279, 0.8608, 0.9200, 0.9489, 0.9999 / +data ((cldnuctab( 6,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +0.8608, 0.9773, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8503, 0.8707, 0.9871, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8503, 0.8608, 0.8801, 0.9921, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8394, 0.8503, 0.8608, 0.8975, 0.9953, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8394, 0.8394, 0.8503, 0.8608, 0.9130, 0.9964, 0.9999, 0.9999, 0.9999, & +0.8279, 0.8394, 0.8394, 0.8394, 0.8608, 0.9130, 0.9910, 0.9999, 0.9999, & +0.8160, 0.8160, 0.8279, 0.8279, 0.8394, 0.8608, 0.9130, 0.9618, 0.9998 / +data ((cldnuctab( 6,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +0.9748, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9055, 0.9818, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8801, 0.9130, 0.9818, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8707, 0.8801, 0.9055, 0.9719, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8503, 0.8503, 0.8707, 0.9130, 0.9618, 0.9886, 0.9999, 0.9999, 0.9999, & +0.7905, 0.7905, 0.8035, 0.8279, 0.8891, 0.9818, 0.8394, 0.9489, 0.9999, & +0.6868, 0.6868, 0.6868, 0.7028, 0.7338, 0.7905, 0.9200, 0.6535, 0.7487 / +data ((cldnuctab( 6,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +0.9579, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9055, 0.9688, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8975, 0.9130, 0.9748, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8801, 0.8891, 0.9130, 0.9719, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8707, 0.8707, 0.8891, 0.9130, 0.9655, 0.9992, 0.9999, 0.9999, 0.9999, & +0.8394, 0.8394, 0.8503, 0.8707, 0.9055, 0.9838, 0.9439, 0.9991, 0.9999, & +0.7631, 0.7631, 0.7631, 0.7770, 0.8035, 0.8608, 0.9618, 0.7487, 0.8608 / +data ((cldnuctab( 6,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +0.9328, 0.9982, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9130, 0.9489, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8975, 0.9130, 0.9618, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8891, 0.8975, 0.9130, 0.9655, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8801, 0.8891, 0.8975, 0.9130, 0.9655, 0.9996, 0.9999, 0.9999, 0.9999, & +0.8707, 0.8707, 0.8707, 0.8891, 0.9130, 0.9688, 0.9818, 0.9999, 0.9999, & +0.8160, 0.8160, 0.8279, 0.8279, 0.8503, 0.8891, 0.9719, 0.8503, 0.9489 / +data ((cldnuctab( 6,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +0.9200, 0.9964, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9130, 0.9328, 0.9982, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9055, 0.9130, 0.9439, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8975, 0.9055, 0.9130, 0.9536, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8891, 0.8975, 0.8975, 0.9130, 0.9579, 0.9992, 0.9999, 0.9999, 0.9999, & +0.8801, 0.8801, 0.8891, 0.8975, 0.9130, 0.9579, 0.9899, 0.9999, 0.9999, & +0.8503, 0.8503, 0.8503, 0.8608, 0.8707, 0.9055, 0.9655, 0.9130, 0.9855 / +data ((cldnuctab( 6,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +0.9200, 0.9939, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9130, 0.9266, 0.9964, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9130, 0.9200, 0.9386, 0.9982, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9055, 0.9055, 0.9200, 0.9489, 0.9988, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8975, 0.9055, 0.9055, 0.9200, 0.9489, 0.9984, 0.9999, 0.9999, 0.9999, & +0.8891, 0.8975, 0.8975, 0.9055, 0.9200, 0.9489, 0.9910, 0.9999, 0.9999, & +0.8707, 0.8707, 0.8707, 0.8707, 0.8891, 0.9055, 0.9536, 0.9719, 0.9953 / +data ((cldnuctab( 6,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +0.9266, 0.9899, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9200, 0.9328, 0.9946, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9130, 0.9200, 0.9386, 0.9964, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9130, 0.9130, 0.9200, 0.9439, 0.9972, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9055, 0.9055, 0.9130, 0.9200, 0.9439, 0.9968, 0.9999, 0.9999, 0.9999, & +0.8975, 0.9055, 0.9055, 0.9130, 0.9200, 0.9439, 0.9910, 0.9999, 0.9999, & +0.8801, 0.8801, 0.8801, 0.8891, 0.8891, 0.9130, 0.9489, 0.9871, 0.9982 / +data ((cldnuctab( 6,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +0.9266, 0.9871, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9266, 0.9328, 0.9921, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9200, 0.9266, 0.9386, 0.9939, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9130, 0.9200, 0.9266, 0.9439, 0.9953, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9130, 0.9130, 0.9200, 0.9266, 0.9439, 0.9939, 0.9999, 0.9999, 0.9999, & +0.9055, 0.9055, 0.9130, 0.9130, 0.9200, 0.9439, 0.9910, 0.9999, 0.9999, & +0.8891, 0.8891, 0.8891, 0.8891, 0.8975, 0.9130, 0.9439, 0.9886, 0.9986 / +data ((cldnuctab( 6,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +0.9719, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9328, 0.9797, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9200, 0.9328, 0.9797, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9055, 0.9200, 0.9328, 0.9773, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8801, 0.8891, 0.8975, 0.9328, 0.9871, 0.9797, 0.9999, 0.9999, 0.9999, & +0.8160, 0.8160, 0.8279, 0.8503, 0.8891, 0.9719, 0.8503, 0.9386, 0.9997, & +0.7186, 0.7186, 0.7186, 0.7338, 0.7487, 0.8035, 0.9055, 0.7186, 0.7770 / +data ((cldnuctab( 6,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +0.9536, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9386, 0.9688, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9200, 0.9386, 0.9748, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9200, 0.9200, 0.9328, 0.9748, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9055, 0.9130, 0.9200, 0.9386, 0.9773, 0.9972, 0.9999, 0.9999, 0.9999, & +0.8707, 0.8707, 0.8801, 0.8891, 0.9200, 0.9797, 0.9328, 0.9964, 0.9999, & +0.7905, 0.7905, 0.8035, 0.8035, 0.8279, 0.8608, 0.9489, 0.8035, 0.8608 / +data ((cldnuctab( 6,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +0.9489, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9386, 0.9579, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9328, 0.9386, 0.9655, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9266, 0.9266, 0.9386, 0.9688, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9200, 0.9200, 0.9266, 0.9386, 0.9719, 0.9988, 0.9999, 0.9999, 0.9999, & +0.8975, 0.8975, 0.9055, 0.9130, 0.9328, 0.9773, 0.9748, 0.9999, 0.9999, & +0.8503, 0.8503, 0.8503, 0.8608, 0.8707, 0.8975, 0.9655, 0.8975, 0.9386 / +data ((cldnuctab( 6,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +0.9489, 0.9972, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9439, 0.9536, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9386, 0.9439, 0.9618, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9328, 0.9328, 0.9439, 0.9655, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9266, 0.9266, 0.9328, 0.9386, 0.9655, 0.9984, 0.9999, 0.9999, 0.9999, & +0.9130, 0.9130, 0.9200, 0.9266, 0.9386, 0.9688, 0.9886, 0.9999, 0.9999, & +0.8801, 0.8801, 0.8801, 0.8891, 0.8975, 0.9200, 0.9655, 0.9818, 0.9748 / +data ((cldnuctab( 6,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +0.9489, 0.9953, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9439, 0.9536, 0.9972, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9386, 0.9439, 0.9579, 0.9982, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9386, 0.9386, 0.9439, 0.9618, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9328, 0.9328, 0.9386, 0.9439, 0.9618, 0.9972, 0.9999, 0.9999, 0.9999, & +0.9266, 0.9266, 0.9266, 0.9328, 0.9439, 0.9618, 0.9939, 0.9999, 0.9999, & +0.8975, 0.8975, 0.8975, 0.9055, 0.9055, 0.9266, 0.9618, 0.9939, 0.9899 / +data ((cldnuctab( 6,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +0.9536, 0.9921, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9489, 0.9536, 0.9953, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9439, 0.9489, 0.9579, 0.9964, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9386, 0.9439, 0.9489, 0.9618, 0.9968, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9386, 0.9386, 0.9439, 0.9489, 0.9618, 0.9959, 0.9999, 0.9999, 0.9999, & +0.9328, 0.9328, 0.9328, 0.9386, 0.9439, 0.9618, 0.9939, 0.9999, 0.9999, & +0.9055, 0.9055, 0.9055, 0.9130, 0.9200, 0.9328, 0.9579, 0.9946, 0.9939 / +data ((cldnuctab( 6,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +0.9536, 0.9899, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9489, 0.9579, 0.9930, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9489, 0.9489, 0.9579, 0.9939, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9439, 0.9439, 0.9489, 0.9618, 0.9946, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9439, 0.9439, 0.9439, 0.9489, 0.9618, 0.9930, 0.9999, 0.9999, 0.9999, & +0.9386, 0.9386, 0.9386, 0.9386, 0.9489, 0.9618, 0.9921, 0.9999, 0.9999, & +0.9130, 0.9130, 0.9130, 0.9200, 0.9200, 0.9328, 0.9579, 0.9930, 0.9959 / +data ((cldnuctab( 6,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +0.9719, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9489, 0.9797, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9386, 0.9489, 0.9797, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9266, 0.9328, 0.9489, 0.9818, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8975, 0.9055, 0.9130, 0.9386, 0.9855, 0.9748, 0.9998, 0.9999, 0.9999, & +0.8394, 0.8394, 0.8503, 0.8608, 0.8975, 0.9655, 0.8608, 0.9328, 0.9990, & +0.7487, 0.7487, 0.7487, 0.7631, 0.7770, 0.8160, 0.8975, 0.9838, 0.8035 / +data ((cldnuctab( 6,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +0.9655, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9536, 0.9719, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9439, 0.9536, 0.9773, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9386, 0.9439, 0.9489, 0.9773, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9266, 0.9266, 0.9328, 0.9489, 0.9818, 0.9939, 0.9999, 0.9999, 0.9999, & +0.8891, 0.8891, 0.8975, 0.9055, 0.9328, 0.9797, 0.9386, 0.9921, 0.9999, & +0.8160, 0.8160, 0.8160, 0.8279, 0.8394, 0.8707, 0.9439, 0.9995, 0.8707 / +data ((cldnuctab( 6,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +0.9618, 0.9988, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9536, 0.9688, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9489, 0.9536, 0.9719, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9439, 0.9489, 0.9536, 0.9748, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9386, 0.9386, 0.9439, 0.9536, 0.9748, 0.9976, 0.9999, 0.9999, 0.9999, & +0.9200, 0.9200, 0.9200, 0.9266, 0.9439, 0.9797, 0.9818, 0.9997, 0.9999, & +0.8707, 0.8707, 0.8707, 0.8707, 0.8801, 0.9055, 0.9618, 0.9998, 0.9386 / +data ((cldnuctab( 6,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +0.9618, 0.9976, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9579, 0.9655, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9536, 0.9579, 0.9688, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9489, 0.9489, 0.9579, 0.9719, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9439, 0.9489, 0.9489, 0.9579, 0.9719, 0.9976, 0.9999, 0.9999, 0.9999, & +0.9328, 0.9328, 0.9328, 0.9386, 0.9536, 0.9748, 0.9946, 0.9999, 0.9999, & +0.8975, 0.8975, 0.8975, 0.8975, 0.9055, 0.9266, 0.9655, 0.9995, 0.9719 / +data ((cldnuctab( 6,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +0.9655, 0.9959, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9618, 0.9688, 0.9972, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9579, 0.9618, 0.9688, 0.9979, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9536, 0.9536, 0.9579, 0.9688, 0.9982, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9489, 0.9536, 0.9536, 0.9579, 0.9688, 0.9968, 0.9999, 0.9999, 0.9999, & +0.9439, 0.9439, 0.9439, 0.9489, 0.9536, 0.9719, 0.9959, 0.9999, 0.9999, & +0.9130, 0.9130, 0.9130, 0.9200, 0.9200, 0.9386, 0.9655, 0.9986, 0.9855 / +data ((cldnuctab( 6,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +0.9655, 0.9939, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9618, 0.9688, 0.9953, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9579, 0.9618, 0.9688, 0.9964, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9579, 0.9579, 0.9618, 0.9688, 0.9964, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9536, 0.9536, 0.9579, 0.9618, 0.9688, 0.9953, 0.9999, 0.9999, 0.9999, & +0.9489, 0.9489, 0.9489, 0.9536, 0.9579, 0.9719, 0.9946, 0.9999, 0.9999, & +0.9200, 0.9200, 0.9266, 0.9266, 0.9328, 0.9386, 0.9618, 0.9968, 0.9921 / +data ((cldnuctab( 6,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +0.9688, 0.9910, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9655, 0.9688, 0.9930, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9618, 0.9655, 0.9719, 0.9939, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9618, 0.9618, 0.9655, 0.9719, 0.9939, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9579, 0.9579, 0.9618, 0.9618, 0.9719, 0.9939, 0.9999, 0.9999, 0.9999, & +0.9489, 0.9536, 0.9536, 0.9536, 0.9618, 0.9719, 0.9930, 0.9999, 0.9999, & +0.9266, 0.9266, 0.9266, 0.9328, 0.9328, 0.9439, 0.9618, 0.9946, 0.9959 / +data ((cldnuctab( 6,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +0.9748, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9618, 0.9818, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9536, 0.9579, 0.9818, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9386, 0.9489, 0.9579, 0.9838, 0.9988, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9130, 0.9130, 0.9266, 0.9439, 0.9855, 0.9719, 0.9996, 0.9999, 0.9999, & +0.8503, 0.8503, 0.8608, 0.8707, 0.8975, 0.9618, 0.8975, 0.9328, 0.9972, & +0.7770, 0.7770, 0.7770, 0.7770, 0.7905, 0.8279, 0.8975, 0.9748, 0.8160 / +data ((cldnuctab( 6,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +0.9719, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9618, 0.9773, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9536, 0.9618, 0.9797, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9489, 0.9536, 0.9618, 0.9797, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9386, 0.9386, 0.9439, 0.9579, 0.9838, 0.9939, 0.9999, 0.9999, 0.9999, & +0.8975, 0.9055, 0.9055, 0.9130, 0.9386, 0.9773, 0.9719, 0.9871, 0.9999, & +0.8279, 0.8279, 0.8279, 0.8394, 0.8503, 0.8801, 0.9386, 0.9984, 0.8801 / +data ((cldnuctab( 6,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +0.9719, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9655, 0.9748, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9579, 0.9655, 0.9773, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9579, 0.9579, 0.9618, 0.9773, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9489, 0.9489, 0.9536, 0.9618, 0.9797, 0.9972, 0.9999, 0.9999, 0.9999, & +0.9266, 0.9266, 0.9328, 0.9386, 0.9536, 0.9797, 0.9946, 0.9992, 0.9999, & +0.8801, 0.8801, 0.8801, 0.8801, 0.8891, 0.9130, 0.9579, 0.9995, 0.9386 / +data ((cldnuctab( 6,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +0.9719, 0.9979, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9688, 0.9748, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9618, 0.9655, 0.9748, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9618, 0.9618, 0.9655, 0.9773, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9579, 0.9579, 0.9618, 0.9655, 0.9748, 0.9976, 0.9999, 0.9999, 0.9999, & +0.9439, 0.9439, 0.9439, 0.9489, 0.9579, 0.9797, 0.9976, 0.9999, 0.9999, & +0.9055, 0.9055, 0.9055, 0.9130, 0.9200, 0.9328, 0.9655, 0.9991, 0.9688 / +data ((cldnuctab( 6,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +0.9719, 0.9964, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9688, 0.9748, 0.9972, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9655, 0.9688, 0.9748, 0.9979, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9655, 0.9655, 0.9688, 0.9773, 0.9979, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9618, 0.9618, 0.9655, 0.9688, 0.9773, 0.9968, 0.9999, 0.9999, 0.9999, & +0.9536, 0.9536, 0.9536, 0.9579, 0.9618, 0.9773, 0.9968, 0.9999, 0.9999, & +0.9200, 0.9266, 0.9266, 0.9266, 0.9328, 0.9439, 0.9655, 0.9979, 0.9838 / +data ((cldnuctab( 6,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +0.9748, 0.9939, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9719, 0.9748, 0.9953, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9688, 0.9719, 0.9773, 0.9959, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9655, 0.9688, 0.9719, 0.9773, 0.9959, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9655, 0.9655, 0.9655, 0.9688, 0.9773, 0.9953, 0.9999, 0.9999, 0.9999, & +0.9579, 0.9579, 0.9579, 0.9618, 0.9655, 0.9773, 0.9959, 0.9999, 0.9999, & +0.9328, 0.9328, 0.9328, 0.9328, 0.9386, 0.9489, 0.9655, 0.9959, 0.9921 / +data ((cldnuctab( 6,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +0.9748, 0.9910, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9719, 0.9773, 0.9930, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9719, 0.9719, 0.9773, 0.9939, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9688, 0.9688, 0.9719, 0.9773, 0.9939, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9688, 0.9688, 0.9688, 0.9719, 0.9773, 0.9939, 0.9999, 0.9999, 0.9999, & +0.9618, 0.9618, 0.9618, 0.9618, 0.9688, 0.9773, 0.9939, 0.9999, 0.9999, & +0.9386, 0.9386, 0.9386, 0.9386, 0.9439, 0.9489, 0.9655, 0.9939, 0.9979 / +data ((cldnuctab( 7,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +0.9742, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7741, 0.9852, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7306, 0.8370, 0.9919, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6994, 0.7306, 0.8480, 0.9919, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6833, 0.6994, 0.7306, 0.8370, 0.9479, 0.9998, 0.9999, 0.9999, 0.9999, & +0.6499, 0.6667, 0.6833, 0.7306, 0.8686, 0.7306, 0.8781, 0.9963, 0.9999, & +0.5797, 0.5797, 0.5976, 0.6153, 0.6667, 0.8133, 0.4887, 0.5617, 0.6994 / +data ((cldnuctab( 7,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +0.9526, 0.9972, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7600, 0.9713, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7455, 0.8007, 0.9834, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7152, 0.7455, 0.8254, 0.9883, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6994, 0.7152, 0.7455, 0.8254, 0.9742, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6833, 0.6994, 0.6994, 0.7455, 0.8370, 0.8586, 0.9919, 0.9999, 0.9999, & +0.6499, 0.6499, 0.6499, 0.6833, 0.7306, 0.8480, 0.6327, 0.7306, 0.9114 / +data ((cldnuctab( 7,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +0.9252, 0.9937, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7600, 0.9479, 0.9979, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7455, 0.7741, 0.9681, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7306, 0.7455, 0.8007, 0.9768, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7152, 0.7306, 0.7455, 0.8133, 0.9713, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6994, 0.7152, 0.7152, 0.7455, 0.8254, 0.9185, 0.9992, 0.9999, 0.9999, & +0.6833, 0.6833, 0.6994, 0.6994, 0.7455, 0.8370, 0.7600, 0.8781, 0.9928 / +data ((cldnuctab( 7,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +0.8957, 0.9883, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7600, 0.9185, 0.9951, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7455, 0.7741, 0.9428, 0.9981, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7455, 0.7600, 0.7877, 0.9570, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7306, 0.7306, 0.7600, 0.8007, 0.9570, 0.9997, 0.9999, 0.9999, 0.9999, & +0.7152, 0.7306, 0.7306, 0.7455, 0.8133, 0.9252, 0.9996, 0.9999, 0.9999, & +0.6994, 0.7152, 0.7152, 0.7306, 0.7455, 0.8133, 0.8480, 0.9428, 0.9998 / +data ((cldnuctab( 7,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +0.8586, 0.9814, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7600, 0.8872, 0.9908, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7600, 0.7741, 0.9114, 0.9963, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7455, 0.7600, 0.7877, 0.9252, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7455, 0.7455, 0.7600, 0.8007, 0.9374, 0.9993, 0.9999, 0.9999, 0.9999, & +0.7306, 0.7306, 0.7455, 0.7600, 0.8007, 0.9185, 0.9991, 0.9999, 0.9999, & +0.7306, 0.7306, 0.7306, 0.7455, 0.7600, 0.8007, 0.8872, 0.9647, 0.9999 / +data ((cldnuctab( 7,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +0.8254, 0.9742, 0.9979, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7741, 0.8586, 0.9868, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7600, 0.7877, 0.8781, 0.9937, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7600, 0.7741, 0.7877, 0.8957, 0.9968, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7455, 0.7600, 0.7741, 0.8007, 0.9114, 0.9984, 0.9999, 0.9999, 0.9999, & +0.7455, 0.7455, 0.7600, 0.7600, 0.8007, 0.9038, 0.9981, 0.9999, 0.9999, & +0.7306, 0.7455, 0.7455, 0.7455, 0.7600, 0.8007, 0.8957, 0.9647, 0.9999 / +data ((cldnuctab( 7,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +0.8007, 0.9681, 0.9972, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7741, 0.8254, 0.9814, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7741, 0.7877, 0.8480, 0.9896, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7741, 0.7741, 0.8007, 0.8686, 0.9945, 0.9998, 0.9999, 0.9999, 0.9999, & +0.7600, 0.7600, 0.7741, 0.8007, 0.8957, 0.9968, 0.9999, 0.9999, 0.9999, & +0.7600, 0.7600, 0.7600, 0.7741, 0.8007, 0.8957, 0.9957, 0.9999, 0.9999, & +0.7455, 0.7455, 0.7455, 0.7600, 0.7741, 0.8007, 0.8872, 0.9610, 0.9999 / +data ((cldnuctab( 7,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +0.9768, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8586, 0.9852, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8370, 0.8686, 0.9883, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8133, 0.8254, 0.8781, 0.9792, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7877, 0.8007, 0.8254, 0.8781, 0.9185, 0.9979, 0.9999, 0.9999, 0.9999, & +0.7455, 0.7455, 0.7600, 0.8007, 0.8781, 0.8133, 0.8480, 0.9742, 0.9999, & +0.6499, 0.6499, 0.6499, 0.6667, 0.6994, 0.8007, 0.9526, 0.5976, 0.7306 / +data ((cldnuctab( 7,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +0.9570, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8586, 0.9713, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8370, 0.8686, 0.9792, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8133, 0.8370, 0.8686, 0.9792, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8133, 0.8133, 0.8254, 0.8781, 0.9526, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7877, 0.7877, 0.8007, 0.8254, 0.8872, 0.9114, 0.9647, 0.9999, 0.9999, & +0.7152, 0.7306, 0.7306, 0.7455, 0.7741, 0.8586, 0.9814, 0.7306, 0.8781 / +data ((cldnuctab( 7,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +0.9315, 0.9968, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8586, 0.9526, 0.9988, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8480, 0.8686, 0.9610, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8370, 0.8480, 0.8686, 0.9681, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8254, 0.8254, 0.8370, 0.8686, 0.9570, 0.9998, 0.9999, 0.9999, 0.9999, & +0.8133, 0.8133, 0.8254, 0.8370, 0.8781, 0.9374, 0.9945, 0.9999, 0.9999, & +0.7741, 0.7741, 0.7741, 0.7877, 0.8133, 0.8686, 0.9792, 0.8480, 0.9742 / +data ((cldnuctab( 7,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +0.9038, 0.9937, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8586, 0.9252, 0.9975, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8480, 0.8686, 0.9374, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8370, 0.8480, 0.8686, 0.9526, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8370, 0.8370, 0.8480, 0.8686, 0.9526, 0.9997, 0.9999, 0.9999, 0.9999, & +0.8254, 0.8254, 0.8370, 0.8480, 0.8686, 0.9428, 0.9972, 0.9999, 0.9999, & +0.8007, 0.8007, 0.8007, 0.8133, 0.8370, 0.8686, 0.9526, 0.9038, 0.9968 / +data ((cldnuctab( 7,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +0.8781, 0.9896, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8686, 0.8957, 0.9951, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8586, 0.8686, 0.9114, 0.9975, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8480, 0.8586, 0.8686, 0.9315, 0.9988, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8370, 0.8480, 0.8586, 0.8686, 0.9374, 0.9992, 0.9999, 0.9999, 0.9999, & +0.8370, 0.8370, 0.8480, 0.8480, 0.8686, 0.9374, 0.9963, 0.9999, 0.9999, & +0.8254, 0.8254, 0.8254, 0.8254, 0.8370, 0.8686, 0.9428, 0.9374, 0.9995 / +data ((cldnuctab( 7,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +0.8781, 0.9852, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8686, 0.8872, 0.9919, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8586, 0.8781, 0.9038, 0.9957, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8586, 0.8586, 0.8781, 0.9185, 0.9975, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8480, 0.8586, 0.8586, 0.8781, 0.9252, 0.9979, 0.9999, 0.9999, 0.9999, & +0.8480, 0.8480, 0.8480, 0.8586, 0.8781, 0.9252, 0.9928, 0.9999, 0.9999, & +0.8370, 0.8370, 0.8370, 0.8370, 0.8480, 0.8781, 0.9315, 0.9526, 0.9998 / +data ((cldnuctab( 7,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +0.8781, 0.9814, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8781, 0.8872, 0.9883, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8686, 0.8781, 0.9038, 0.9928, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8686, 0.8686, 0.8781, 0.9114, 0.9951, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8586, 0.8586, 0.8686, 0.8781, 0.9185, 0.9957, 0.9999, 0.9999, 0.9999, & +0.8586, 0.8586, 0.8586, 0.8686, 0.8781, 0.9185, 0.9908, 0.9999, 0.9999, & +0.8370, 0.8370, 0.8480, 0.8480, 0.8586, 0.8781, 0.9185, 0.9713, 0.9998 / +data ((cldnuctab( 7,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +0.9742, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9185, 0.9814, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8957, 0.9185, 0.9814, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8872, 0.8957, 0.9185, 0.9742, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8686, 0.8686, 0.8872, 0.9252, 0.9742, 0.9868, 0.9999, 0.9999, 0.9999, & +0.8007, 0.8007, 0.8133, 0.8370, 0.8872, 0.9792, 0.8370, 0.9479, 0.9999, & +0.6994, 0.6994, 0.7152, 0.7152, 0.7455, 0.8007, 0.9114, 0.6833, 0.7600 / +data ((cldnuctab( 7,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +0.9570, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9252, 0.9681, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9114, 0.9252, 0.9742, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8957, 0.9038, 0.9185, 0.9742, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8872, 0.8957, 0.9038, 0.9252, 0.9713, 0.9986, 0.9999, 0.9999, 0.9999, & +0.8586, 0.8586, 0.8586, 0.8781, 0.9185, 0.9834, 0.9374, 0.9984, 0.9999, & +0.7741, 0.7877, 0.7877, 0.7877, 0.8133, 0.8586, 0.9570, 0.7741, 0.8586 / +data ((cldnuctab( 7,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +0.9315, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9252, 0.9479, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9114, 0.9252, 0.9647, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9038, 0.9114, 0.9252, 0.9681, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9038, 0.9038, 0.9114, 0.9252, 0.9681, 0.9994, 0.9999, 0.9999, 0.9999, & +0.8781, 0.8872, 0.8872, 0.8957, 0.9252, 0.9768, 0.9792, 0.9999, 0.9999, & +0.8370, 0.8370, 0.8370, 0.8480, 0.8586, 0.8957, 0.9681, 0.8586, 0.9428 / +data ((cldnuctab( 7,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +0.9315, 0.9968, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9252, 0.9428, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9185, 0.9252, 0.9526, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9114, 0.9185, 0.9252, 0.9610, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9114, 0.9114, 0.9185, 0.9252, 0.9610, 0.9991, 0.9999, 0.9999, 0.9999, & +0.8957, 0.8957, 0.9038, 0.9114, 0.9252, 0.9647, 0.9868, 0.9999, 0.9999, & +0.8686, 0.8686, 0.8686, 0.8686, 0.8872, 0.9114, 0.9647, 0.9374, 0.9834 / +data ((cldnuctab( 7,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +0.9374, 0.9945, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9315, 0.9428, 0.9968, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9252, 0.9315, 0.9479, 0.9981, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9185, 0.9252, 0.9315, 0.9526, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9185, 0.9185, 0.9185, 0.9315, 0.9526, 0.9981, 0.9999, 0.9999, 0.9999, & +0.9114, 0.9114, 0.9114, 0.9185, 0.9315, 0.9570, 0.9919, 0.9999, 0.9999, & +0.8872, 0.8872, 0.8872, 0.8872, 0.8957, 0.9185, 0.9570, 0.9834, 0.9945 / +data ((cldnuctab( 7,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +0.9374, 0.9919, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9315, 0.9428, 0.9945, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9315, 0.9315, 0.9479, 0.9963, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9252, 0.9252, 0.9315, 0.9526, 0.9972, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9252, 0.9252, 0.9252, 0.9315, 0.9526, 0.9963, 0.9999, 0.9999, 0.9999, & +0.9185, 0.9185, 0.9185, 0.9252, 0.9315, 0.9526, 0.9919, 0.9999, 0.9999, & +0.8957, 0.8957, 0.8957, 0.8957, 0.9038, 0.9185, 0.9526, 0.9908, 0.9968 / +data ((cldnuctab( 7,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +0.9374, 0.9883, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9374, 0.9428, 0.9919, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9315, 0.9374, 0.9479, 0.9945, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9315, 0.9315, 0.9374, 0.9526, 0.9951, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9252, 0.9252, 0.9315, 0.9374, 0.9526, 0.9937, 0.9999, 0.9999, 0.9999, & +0.9185, 0.9185, 0.9252, 0.9252, 0.9374, 0.9526, 0.9919, 0.9999, 0.9999, & +0.9038, 0.9038, 0.9038, 0.9038, 0.9114, 0.9252, 0.9479, 0.9908, 0.9972 / +data ((cldnuctab( 7,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +0.9742, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9570, 0.9814, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9479, 0.9570, 0.9814, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9374, 0.9428, 0.9570, 0.9834, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9114, 0.9114, 0.9252, 0.9428, 0.9852, 0.9713, 0.9997, 0.9999, 0.9999, & +0.8480, 0.8480, 0.8586, 0.8686, 0.9038, 0.9610, 0.8872, 0.9374, 0.9979, & +0.7741, 0.7741, 0.7741, 0.7741, 0.7877, 0.8254, 0.8957, 0.9768, 0.8254 / +data ((cldnuctab( 7,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +0.9713, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9610, 0.9768, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9526, 0.9570, 0.9792, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9479, 0.9526, 0.9610, 0.9792, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9374, 0.9374, 0.9428, 0.9570, 0.9834, 0.9937, 0.9999, 0.9999, 0.9999, & +0.8957, 0.9038, 0.9038, 0.9114, 0.9374, 0.9768, 0.9570, 0.9883, 0.9999, & +0.8254, 0.8254, 0.8370, 0.8370, 0.8480, 0.8781, 0.9374, 0.9988, 0.8872 / +data ((cldnuctab( 7,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +0.9713, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9647, 0.9742, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9570, 0.9647, 0.9768, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9526, 0.9570, 0.9610, 0.9768, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9479, 0.9479, 0.9526, 0.9610, 0.9792, 0.9972, 0.9999, 0.9999, 0.9999, & +0.9252, 0.9252, 0.9315, 0.9374, 0.9526, 0.9792, 0.9928, 0.9994, 0.9999, & +0.8781, 0.8781, 0.8781, 0.8781, 0.8872, 0.9114, 0.9610, 0.9996, 0.9374 / +data ((cldnuctab( 7,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +0.9713, 0.9979, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9647, 0.9742, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9610, 0.9647, 0.9742, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9570, 0.9610, 0.9647, 0.9742, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9526, 0.9570, 0.9570, 0.9647, 0.9742, 0.9975, 0.9999, 0.9999, 0.9999, & +0.9428, 0.9428, 0.9428, 0.9479, 0.9570, 0.9768, 0.9968, 0.9999, 0.9999, & +0.9038, 0.9038, 0.9038, 0.9114, 0.9185, 0.9315, 0.9647, 0.9992, 0.9713 / +data ((cldnuctab( 7,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +0.9713, 0.9963, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9681, 0.9742, 0.9975, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9647, 0.9681, 0.9742, 0.9979, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9610, 0.9647, 0.9681, 0.9742, 0.9979, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9610, 0.9610, 0.9610, 0.9647, 0.9742, 0.9968, 0.9999, 0.9999, 0.9999, & +0.9479, 0.9479, 0.9526, 0.9526, 0.9610, 0.9768, 0.9968, 0.9999, 0.9999, & +0.9185, 0.9185, 0.9252, 0.9252, 0.9315, 0.9428, 0.9647, 0.9981, 0.9852 / +data ((cldnuctab( 7,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +0.9713, 0.9937, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9681, 0.9742, 0.9957, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9681, 0.9681, 0.9742, 0.9963, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9647, 0.9647, 0.9681, 0.9742, 0.9963, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9610, 0.9647, 0.9647, 0.9681, 0.9742, 0.9957, 0.9999, 0.9999, 0.9999, & +0.9526, 0.9570, 0.9570, 0.9570, 0.9647, 0.9742, 0.9957, 0.9999, 0.9999, & +0.9315, 0.9315, 0.9315, 0.9315, 0.9374, 0.9479, 0.9647, 0.9963, 0.9919 / +data ((cldnuctab( 7,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +0.9742, 0.9919, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9713, 0.9742, 0.9928, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9681, 0.9713, 0.9768, 0.9937, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9681, 0.9681, 0.9713, 0.9768, 0.9937, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9647, 0.9647, 0.9681, 0.9713, 0.9768, 0.9937, 0.9999, 0.9999, 0.9999, & +0.9570, 0.9570, 0.9610, 0.9610, 0.9647, 0.9742, 0.9937, 0.9999, 0.9999, & +0.9374, 0.9374, 0.9374, 0.9374, 0.9428, 0.9479, 0.9647, 0.9937, 0.9972 / +data ((cldnuctab( 7,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +0.9834, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9713, 0.9852, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9681, 0.9713, 0.9852, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9570, 0.9610, 0.9713, 0.9883, 0.9979, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9315, 0.9315, 0.9374, 0.9526, 0.9834, 0.9883, 0.9984, 0.9999, 0.9999, & +0.8781, 0.8781, 0.8781, 0.8872, 0.9114, 0.9570, 0.9994, 0.9374, 0.9945, & +0.8133, 0.8133, 0.8133, 0.8133, 0.8254, 0.8480, 0.9038, 0.9681, 0.8586 / +data ((cldnuctab( 7,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +0.9814, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9768, 0.9834, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9713, 0.9742, 0.9852, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9647, 0.9681, 0.9742, 0.9852, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9526, 0.9526, 0.9570, 0.9681, 0.9868, 0.9972, 0.9999, 0.9999, 0.9999, & +0.9185, 0.9185, 0.9185, 0.9252, 0.9428, 0.9742, 0.9998, 0.9852, 0.9999, & +0.8586, 0.8586, 0.8586, 0.8586, 0.8686, 0.8872, 0.9374, 0.9945, 0.8957 / +data ((cldnuctab( 7,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +0.9814, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9768, 0.9834, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9742, 0.9742, 0.9834, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9713, 0.9713, 0.9768, 0.9834, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9647, 0.9647, 0.9681, 0.9742, 0.9852, 0.9984, 0.9999, 0.9999, 0.9999, & +0.9428, 0.9428, 0.9479, 0.9479, 0.9610, 0.9814, 0.9997, 0.9981, 0.9999, & +0.8957, 0.8957, 0.8957, 0.8957, 0.9038, 0.9252, 0.9570, 0.9981, 0.9428 / +data ((cldnuctab( 7,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +0.9814, 0.9981, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9792, 0.9834, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9768, 0.9792, 0.9834, 0.9988, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9742, 0.9742, 0.9768, 0.9834, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9713, 0.9713, 0.9713, 0.9768, 0.9834, 0.9981, 0.9999, 0.9999, 0.9999, & +0.9570, 0.9570, 0.9570, 0.9610, 0.9681, 0.9834, 0.9993, 0.9997, 0.9999, & +0.9252, 0.9252, 0.9252, 0.9252, 0.9315, 0.9428, 0.9647, 0.9979, 0.9681 / +data ((cldnuctab( 7,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +0.9834, 0.9968, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9792, 0.9834, 0.9972, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9768, 0.9792, 0.9834, 0.9975, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9768, 0.9768, 0.9792, 0.9834, 0.9975, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9742, 0.9742, 0.9768, 0.9792, 0.9834, 0.9972, 0.9999, 0.9999, 0.9999, & +0.9647, 0.9647, 0.9647, 0.9681, 0.9713, 0.9834, 0.9984, 0.9999, 0.9999, & +0.9374, 0.9374, 0.9374, 0.9374, 0.9428, 0.9526, 0.9681, 0.9968, 0.9852 / +data ((cldnuctab( 7,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +0.9834, 0.9945, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9814, 0.9852, 0.9951, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9792, 0.9814, 0.9852, 0.9957, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9792, 0.9792, 0.9814, 0.9852, 0.9957, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9768, 0.9768, 0.9768, 0.9792, 0.9852, 0.9957, 0.9999, 0.9999, 0.9999, & +0.9681, 0.9681, 0.9681, 0.9713, 0.9742, 0.9834, 0.9968, 0.9999, 0.9999, & +0.9428, 0.9428, 0.9428, 0.9479, 0.9479, 0.9570, 0.9713, 0.9945, 0.9975 / +data ((cldnuctab( 7,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +0.9852, 0.9919, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9834, 0.9852, 0.9928, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9814, 0.9834, 0.9852, 0.9937, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9814, 0.9814, 0.9814, 0.9852, 0.9945, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9792, 0.9792, 0.9792, 0.9814, 0.9852, 0.9945, 0.9999, 0.9999, 0.9999, & +0.9713, 0.9713, 0.9713, 0.9742, 0.9768, 0.9834, 0.9951, 0.9999, 0.9999, & +0.9479, 0.9479, 0.9479, 0.9526, 0.9526, 0.9570, 0.9713, 0.9928, 0.9998 / +data ((cldnuctab( 7,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +0.9883, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9792, 0.9883, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9768, 0.9792, 0.9883, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9647, 0.9681, 0.9768, 0.9896, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9374, 0.9428, 0.9479, 0.9570, 0.9834, 0.9999, 0.9968, 0.9999, 0.9999, & +0.8872, 0.8872, 0.8957, 0.9038, 0.9185, 0.9570, 0.9979, 0.9428, 0.9919, & +0.8370, 0.8370, 0.8370, 0.8480, 0.8480, 0.8686, 0.9114, 0.9647, 0.9908 / +data ((cldnuctab( 7,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +0.9868, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9834, 0.9883, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9792, 0.9814, 0.9883, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9742, 0.9768, 0.9814, 0.9883, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9610, 0.9610, 0.9647, 0.9742, 0.9883, 0.9996, 0.9999, 0.9999, 0.9999, & +0.9252, 0.9315, 0.9315, 0.9374, 0.9479, 0.9742, 0.9995, 0.9814, 0.9999, & +0.8781, 0.8781, 0.8781, 0.8781, 0.8872, 0.9038, 0.9374, 0.9896, 0.9185 / +data ((cldnuctab( 7,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +0.9868, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9834, 0.9883, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9814, 0.9834, 0.9883, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9792, 0.9814, 0.9834, 0.9883, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9713, 0.9742, 0.9742, 0.9792, 0.9883, 0.9991, 0.9999, 0.9999, 0.9999, & +0.9526, 0.9526, 0.9526, 0.9570, 0.9647, 0.9834, 0.9995, 0.9963, 0.9999, & +0.9114, 0.9114, 0.9114, 0.9114, 0.9185, 0.9315, 0.9570, 0.9957, 0.9479 / +data ((cldnuctab( 7,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +0.9883, 0.9981, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9852, 0.9883, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9834, 0.9852, 0.9883, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9814, 0.9834, 0.9852, 0.9883, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9768, 0.9792, 0.9792, 0.9834, 0.9883, 0.9984, 0.9999, 0.9999, 0.9999, & +0.9647, 0.9647, 0.9647, 0.9681, 0.9742, 0.9852, 0.9991, 0.9991, 0.9999, & +0.9315, 0.9315, 0.9315, 0.9315, 0.9374, 0.9479, 0.9681, 0.9963, 0.9742 / +data ((cldnuctab( 7,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +0.9883, 0.9968, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9868, 0.9883, 0.9972, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9852, 0.9868, 0.9883, 0.9972, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9834, 0.9852, 0.9852, 0.9883, 0.9975, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9814, 0.9814, 0.9834, 0.9852, 0.9883, 0.9975, 0.9999, 0.9999, 0.9999, & +0.9713, 0.9713, 0.9713, 0.9742, 0.9768, 0.9852, 0.9981, 0.9997, 0.9999, & +0.9428, 0.9428, 0.9479, 0.9479, 0.9479, 0.9570, 0.9713, 0.9951, 0.9945 / +data ((cldnuctab( 7,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +0.9896, 0.9945, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9883, 0.9896, 0.9951, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9868, 0.9868, 0.9896, 0.9957, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9852, 0.9868, 0.9868, 0.9896, 0.9963, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9834, 0.9834, 0.9834, 0.9852, 0.9896, 0.9963, 0.9999, 0.9999, 0.9999, & +0.9742, 0.9742, 0.9768, 0.9768, 0.9792, 0.9868, 0.9972, 0.9999, 0.9999, & +0.9526, 0.9526, 0.9526, 0.9526, 0.9570, 0.9610, 0.9713, 0.9928, 0.9999 / +data ((cldnuctab( 7,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +0.9896, 0.9928, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9883, 0.9896, 0.9945, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9868, 0.9883, 0.9896, 0.9951, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9868, 0.9868, 0.9883, 0.9896, 0.9957, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9852, 0.9852, 0.9852, 0.9868, 0.9896, 0.9957, 0.9999, 0.9999, 0.9999, & +0.9768, 0.9768, 0.9792, 0.9792, 0.9814, 0.9868, 0.9957, 0.9999, 0.9999, & +0.9570, 0.9570, 0.9570, 0.9570, 0.9610, 0.9647, 0.9742, 0.9919, 0.9999 / +data ((cldnuctab( 7,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +0.9908, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9852, 0.9908, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9814, 0.9852, 0.9908, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9713, 0.9742, 0.9792, 0.9908, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9479, 0.9479, 0.9526, 0.9610, 0.9834, 0.9998, 0.9951, 0.9999, 0.9999, & +0.9038, 0.9038, 0.9038, 0.9114, 0.9252, 0.9570, 0.9963, 0.9479, 0.9908, & +0.8586, 0.8586, 0.8586, 0.8686, 0.8686, 0.8872, 0.9185, 0.9610, 0.9868 / +data ((cldnuctab( 7,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +0.9908, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9868, 0.9908, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9852, 0.9868, 0.9896, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9792, 0.9814, 0.9852, 0.9908, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9681, 0.9681, 0.9713, 0.9768, 0.9896, 0.9998, 0.9999, 0.9999, 0.9999, & +0.9374, 0.9374, 0.9374, 0.9428, 0.9526, 0.9742, 0.9990, 0.9792, 0.9997, & +0.8872, 0.8872, 0.8872, 0.8957, 0.8957, 0.9114, 0.9428, 0.9868, 0.9374 / +data ((cldnuctab( 7,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +0.9908, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9883, 0.9908, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9868, 0.9868, 0.9908, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9834, 0.9852, 0.9868, 0.9908, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9768, 0.9768, 0.9792, 0.9834, 0.9908, 0.9996, 0.9999, 0.9999, 0.9999, & +0.9570, 0.9570, 0.9610, 0.9610, 0.9681, 0.9834, 0.9992, 0.9951, 0.9999, & +0.9185, 0.9185, 0.9185, 0.9185, 0.9252, 0.9374, 0.9570, 0.9937, 0.9570 / +data ((cldnuctab( 7,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +0.9908, 0.9981, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9896, 0.9908, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9883, 0.9883, 0.9908, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9868, 0.9868, 0.9883, 0.9908, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9834, 0.9834, 0.9834, 0.9868, 0.9908, 0.9988, 0.9999, 0.9999, 0.9999, & +0.9713, 0.9713, 0.9713, 0.9742, 0.9768, 0.9868, 0.9990, 0.9988, 0.9999, & +0.9374, 0.9374, 0.9374, 0.9428, 0.9428, 0.9526, 0.9681, 0.9945, 0.9852 / +data ((cldnuctab( 7,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +0.9919, 0.9963, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9896, 0.9919, 0.9968, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9896, 0.9896, 0.9919, 0.9975, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9883, 0.9883, 0.9896, 0.9908, 0.9975, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9852, 0.9852, 0.9868, 0.9883, 0.9908, 0.9979, 0.9999, 0.9999, 0.9999, & +0.9768, 0.9768, 0.9768, 0.9792, 0.9814, 0.9883, 0.9981, 0.9997, 0.9999, & +0.9526, 0.9526, 0.9526, 0.9526, 0.9526, 0.9610, 0.9713, 0.9937, 0.9999 / +data ((cldnuctab( 7,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +0.9919, 0.9945, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9908, 0.9919, 0.9957, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9896, 0.9908, 0.9919, 0.9968, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9896, 0.9896, 0.9908, 0.9919, 0.9968, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9868, 0.9868, 0.9883, 0.9896, 0.9919, 0.9968, 0.9999, 0.9999, 0.9999, & +0.9792, 0.9792, 0.9792, 0.9814, 0.9834, 0.9883, 0.9972, 0.9999, 0.9999, & +0.9570, 0.9570, 0.9570, 0.9570, 0.9610, 0.9647, 0.9742, 0.9919, 0.9999 / +data ((cldnuctab( 7,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +0.9928, 0.9951, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9919, 0.9928, 0.9957, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9908, 0.9919, 0.9928, 0.9963, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9908, 0.9908, 0.9908, 0.9928, 0.9963, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9883, 0.9883, 0.9883, 0.9896, 0.9919, 0.9963, 0.9999, 0.9999, 0.9999, & +0.9814, 0.9814, 0.9814, 0.9834, 0.9852, 0.9883, 0.9963, 0.9999, 0.9999, & +0.9610, 0.9610, 0.9610, 0.9610, 0.9647, 0.9681, 0.9742, 0.9908, 0.9999 / +data ((cldnuctab( 8,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +0.9759, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8841, 0.9846, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8550, 0.8841, 0.9878, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8330, 0.8443, 0.8928, 0.9759, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8213, 0.8213, 0.8443, 0.8928, 0.9294, 0.9966, 0.9999, 0.9999, 0.9999, & +0.7693, 0.7693, 0.7830, 0.8090, 0.8841, 0.9011, 0.8443, 0.9702, 0.9999, & +0.6776, 0.6776, 0.6776, 0.6939, 0.7253, 0.7963, 0.9462, 0.6609, 0.7551 / +data ((cldnuctab( 8,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +0.9596, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8749, 0.9702, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8652, 0.8841, 0.9784, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8443, 0.8550, 0.8841, 0.9784, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8330, 0.8443, 0.8550, 0.8841, 0.9555, 0.9998, 0.9999, 0.9999, 0.9999, & +0.8090, 0.8090, 0.8213, 0.8443, 0.8928, 0.9410, 0.9596, 0.9999, 0.9999, & +0.7404, 0.7551, 0.7551, 0.7693, 0.7963, 0.8550, 0.9784, 0.7551, 0.8841 / +data ((cldnuctab( 8,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +0.9354, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8841, 0.9510, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8652, 0.8841, 0.9635, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8550, 0.8652, 0.8841, 0.9670, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8443, 0.8550, 0.8652, 0.8841, 0.9596, 0.9998, 0.9999, 0.9999, 0.9999, & +0.8330, 0.8330, 0.8443, 0.8550, 0.8928, 0.9510, 0.9915, 0.9999, 0.9999, & +0.7963, 0.7963, 0.7963, 0.8090, 0.8330, 0.8841, 0.9759, 0.8550, 0.9702 / +data ((cldnuctab( 8,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +0.9088, 0.9949, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8841, 0.9230, 0.9977, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8749, 0.8841, 0.9410, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8652, 0.8749, 0.8928, 0.9510, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8550, 0.8652, 0.8652, 0.8928, 0.9510, 0.9997, 0.9999, 0.9999, 0.9999, & +0.8550, 0.8550, 0.8550, 0.8652, 0.8841, 0.9510, 0.9955, 0.9999, 0.9999, & +0.8213, 0.8213, 0.8330, 0.8330, 0.8550, 0.8841, 0.9670, 0.9088, 0.9949 / +data ((cldnuctab( 8,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +0.8928, 0.9915, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8841, 0.9011, 0.9961, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8749, 0.8928, 0.9161, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8749, 0.8749, 0.8928, 0.9354, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8652, 0.8652, 0.8749, 0.8928, 0.9410, 0.9990, 0.9999, 0.9999, 0.9999, & +0.8652, 0.8652, 0.8652, 0.8749, 0.8928, 0.9410, 0.9949, 0.9999, 0.9999, & +0.8443, 0.8443, 0.8443, 0.8550, 0.8652, 0.8841, 0.9510, 0.9410, 0.9990 / +data ((cldnuctab( 8,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +0.8928, 0.9878, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8928, 0.9011, 0.9934, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8841, 0.8928, 0.9161, 0.9961, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8749, 0.8841, 0.8928, 0.9294, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8749, 0.8749, 0.8841, 0.8928, 0.9354, 0.9977, 0.9999, 0.9999, 0.9999, & +0.8652, 0.8749, 0.8749, 0.8841, 0.8928, 0.9354, 0.9925, 0.9999, 0.9999, & +0.8550, 0.8550, 0.8550, 0.8550, 0.8652, 0.8928, 0.9354, 0.9635, 0.9996 / +data ((cldnuctab( 8,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +0.9011, 0.9827, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8928, 0.9088, 0.9904, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8928, 0.9011, 0.9161, 0.9934, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8841, 0.8928, 0.9011, 0.9230, 0.9955, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8841, 0.8841, 0.8841, 0.9011, 0.9294, 0.9955, 0.9999, 0.9999, 0.9999, & +0.8749, 0.8749, 0.8841, 0.8841, 0.8928, 0.9294, 0.9904, 0.9999, 0.9999, & +0.8652, 0.8652, 0.8652, 0.8652, 0.8749, 0.8928, 0.9294, 0.9807, 0.9996 / +data ((cldnuctab( 8,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +0.9732, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9354, 0.9807, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9161, 0.9354, 0.9807, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9088, 0.9161, 0.9294, 0.9759, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8841, 0.8841, 0.9011, 0.9294, 0.9878, 0.9827, 0.9999, 0.9999, 0.9999, & +0.8213, 0.8213, 0.8330, 0.8550, 0.8928, 0.9759, 0.8550, 0.9462, 0.9999, & +0.7253, 0.7253, 0.7404, 0.7404, 0.7693, 0.8090, 0.9088, 0.7253, 0.7830 / +data ((cldnuctab( 8,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +0.9555, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9354, 0.9670, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9230, 0.9354, 0.9759, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9161, 0.9230, 0.9294, 0.9759, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9011, 0.9088, 0.9161, 0.9354, 0.9759, 0.9980, 0.9999, 0.9999, 0.9999, & +0.8652, 0.8749, 0.8749, 0.8928, 0.9230, 0.9807, 0.9410, 0.9974, 0.9999, & +0.7963, 0.7963, 0.7963, 0.8090, 0.8213, 0.8652, 0.9510, 0.7963, 0.8749 / +data ((cldnuctab( 8,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +0.9462, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9354, 0.9555, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9294, 0.9354, 0.9670, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9230, 0.9230, 0.9354, 0.9702, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9161, 0.9161, 0.9230, 0.9354, 0.9702, 0.9992, 0.9999, 0.9999, 0.9999, & +0.9011, 0.9011, 0.9011, 0.9088, 0.9354, 0.9759, 0.9784, 0.9999, 0.9999, & +0.8443, 0.8550, 0.8550, 0.8550, 0.8749, 0.9011, 0.9670, 0.8841, 0.9462 / +data ((cldnuctab( 8,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +0.9462, 0.9970, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9410, 0.9510, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9354, 0.9410, 0.9596, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9294, 0.9294, 0.9410, 0.9635, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9230, 0.9230, 0.9294, 0.9354, 0.9635, 0.9987, 0.9999, 0.9999, 0.9999, & +0.9088, 0.9161, 0.9161, 0.9230, 0.9354, 0.9670, 0.9878, 0.9999, 0.9999, & +0.8749, 0.8841, 0.8841, 0.8841, 0.8928, 0.9161, 0.9670, 0.9670, 0.9784 / +data ((cldnuctab( 8,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +0.9462, 0.9949, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9410, 0.9510, 0.9970, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9354, 0.9410, 0.9555, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9294, 0.9354, 0.9410, 0.9596, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9294, 0.9294, 0.9354, 0.9410, 0.9596, 0.9977, 0.9999, 0.9999, 0.9999, & +0.9230, 0.9230, 0.9230, 0.9294, 0.9410, 0.9596, 0.9934, 0.9999, 0.9999, & +0.8928, 0.8928, 0.9011, 0.9011, 0.9088, 0.9230, 0.9596, 0.9915, 0.9925 / +data ((cldnuctab( 8,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +0.9462, 0.9925, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9462, 0.9510, 0.9949, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9410, 0.9462, 0.9555, 0.9966, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9354, 0.9410, 0.9462, 0.9596, 0.9970, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9354, 0.9354, 0.9410, 0.9462, 0.9596, 0.9961, 0.9999, 0.9999, 0.9999, & +0.9294, 0.9294, 0.9294, 0.9354, 0.9410, 0.9596, 0.9934, 0.9999, 0.9999, & +0.9088, 0.9088, 0.9088, 0.9088, 0.9161, 0.9294, 0.9555, 0.9934, 0.9961 / +data ((cldnuctab( 8,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +0.9510, 0.9892, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9462, 0.9555, 0.9925, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9462, 0.9462, 0.9555, 0.9942, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9410, 0.9410, 0.9462, 0.9596, 0.9949, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9410, 0.9410, 0.9410, 0.9462, 0.9596, 0.9934, 0.9999, 0.9999, 0.9999, & +0.9354, 0.9354, 0.9354, 0.9410, 0.9462, 0.9596, 0.9925, 0.9999, 0.9999, & +0.9161, 0.9161, 0.9161, 0.9161, 0.9230, 0.9294, 0.9555, 0.9925, 0.9966 / +data ((cldnuctab( 8,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +0.9784, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9670, 0.9827, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9596, 0.9635, 0.9827, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9462, 0.9510, 0.9635, 0.9863, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9230, 0.9230, 0.9294, 0.9510, 0.9846, 0.9732, 0.9994, 0.9999, 0.9999, & +0.8652, 0.8652, 0.8652, 0.8841, 0.9088, 0.9596, 0.9998, 0.9354, 0.9966, & +0.7963, 0.7963, 0.7963, 0.7963, 0.8090, 0.8443, 0.9011, 0.9732, 0.8443 / +data ((cldnuctab( 8,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +0.9759, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9670, 0.9807, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9635, 0.9635, 0.9807, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9555, 0.9596, 0.9670, 0.9827, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9410, 0.9462, 0.9510, 0.9635, 0.9846, 0.9934, 0.9999, 0.9999, 0.9999, & +0.9088, 0.9088, 0.9161, 0.9230, 0.9410, 0.9759, 0.9904, 0.9863, 0.9999, & +0.8443, 0.8443, 0.8443, 0.8550, 0.8652, 0.8841, 0.9410, 0.9977, 0.8928 / +data ((cldnuctab( 8,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +0.9759, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9702, 0.9784, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9635, 0.9702, 0.9807, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9635, 0.9635, 0.9670, 0.9807, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9555, 0.9555, 0.9596, 0.9670, 0.9827, 0.9974, 0.9999, 0.9999, 0.9999, & +0.9354, 0.9354, 0.9354, 0.9410, 0.9555, 0.9807, 0.9974, 0.9989, 0.9999, & +0.8841, 0.8841, 0.8841, 0.8928, 0.9011, 0.9161, 0.9596, 0.9993, 0.9410 / +data ((cldnuctab( 8,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +0.9759, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9732, 0.9784, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9702, 0.9702, 0.9784, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9670, 0.9670, 0.9702, 0.9784, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9635, 0.9635, 0.9635, 0.9702, 0.9784, 0.9977, 0.9999, 0.9999, 0.9999, & +0.9510, 0.9510, 0.9510, 0.9555, 0.9635, 0.9807, 0.9980, 0.9999, 0.9999, & +0.9161, 0.9161, 0.9161, 0.9161, 0.9230, 0.9354, 0.9670, 0.9989, 0.9702 / +data ((cldnuctab( 8,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +0.9759, 0.9966, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9732, 0.9784, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9702, 0.9732, 0.9784, 0.9977, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9702, 0.9702, 0.9732, 0.9784, 0.9977, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9670, 0.9670, 0.9702, 0.9732, 0.9784, 0.9970, 0.9999, 0.9999, 0.9999, & +0.9555, 0.9555, 0.9596, 0.9596, 0.9670, 0.9784, 0.9974, 0.9999, 0.9999, & +0.9294, 0.9294, 0.9294, 0.9294, 0.9354, 0.9462, 0.9670, 0.9977, 0.9827 / +data ((cldnuctab( 8,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +0.9784, 0.9942, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9759, 0.9784, 0.9955, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9732, 0.9759, 0.9807, 0.9961, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9732, 0.9732, 0.9732, 0.9807, 0.9961, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9702, 0.9702, 0.9702, 0.9732, 0.9784, 0.9955, 0.9999, 0.9999, 0.9999, & +0.9596, 0.9635, 0.9635, 0.9635, 0.9702, 0.9784, 0.9961, 0.9999, 0.9999, & +0.9354, 0.9354, 0.9410, 0.9410, 0.9410, 0.9510, 0.9670, 0.9955, 0.9915 / +data ((cldnuctab( 8,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +0.9784, 0.9915, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9759, 0.9807, 0.9925, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9759, 0.9759, 0.9807, 0.9934, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9732, 0.9759, 0.9759, 0.9807, 0.9942, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9732, 0.9732, 0.9732, 0.9759, 0.9807, 0.9942, 0.9999, 0.9999, 0.9999, & +0.9635, 0.9635, 0.9670, 0.9670, 0.9702, 0.9784, 0.9942, 0.9999, 0.9999, & +0.9410, 0.9410, 0.9410, 0.9462, 0.9462, 0.9555, 0.9670, 0.9934, 0.9987 / +data ((cldnuctab( 8,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +0.9904, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9846, 0.9904, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9807, 0.9846, 0.9904, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9702, 0.9732, 0.9784, 0.9915, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9462, 0.9462, 0.9510, 0.9635, 0.9827, 0.9998, 0.9955, 0.9999, 0.9999, & +0.9011, 0.9011, 0.9011, 0.9088, 0.9230, 0.9555, 0.9966, 0.9462, 0.9915, & +0.8550, 0.8550, 0.8652, 0.8652, 0.8652, 0.8841, 0.9161, 0.9635, 0.9878 / +data ((cldnuctab( 8,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +0.9904, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9846, 0.9904, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9827, 0.9846, 0.9892, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9784, 0.9807, 0.9846, 0.9904, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9670, 0.9670, 0.9702, 0.9759, 0.9892, 0.9998, 0.9999, 0.9999, 0.9999, & +0.9354, 0.9354, 0.9354, 0.9410, 0.9510, 0.9759, 0.9992, 0.9807, 0.9998, & +0.8928, 0.8928, 0.8928, 0.8928, 0.9011, 0.9088, 0.9410, 0.9878, 0.9294 / +data ((cldnuctab( 8,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +0.9904, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9878, 0.9904, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9863, 0.9863, 0.9904, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9827, 0.9846, 0.9863, 0.9904, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9759, 0.9759, 0.9784, 0.9827, 0.9904, 0.9995, 0.9999, 0.9999, 0.9999, & +0.9555, 0.9555, 0.9596, 0.9596, 0.9670, 0.9827, 0.9993, 0.9955, 0.9999, & +0.9161, 0.9161, 0.9161, 0.9230, 0.9230, 0.9354, 0.9596, 0.9942, 0.9555 / +data ((cldnuctab( 8,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +0.9904, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9892, 0.9904, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9863, 0.9878, 0.9904, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9863, 0.9863, 0.9878, 0.9904, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9807, 0.9827, 0.9827, 0.9863, 0.9904, 0.9987, 0.9999, 0.9999, 0.9999, & +0.9702, 0.9702, 0.9702, 0.9732, 0.9759, 0.9863, 0.9989, 0.9987, 0.9999, & +0.9410, 0.9410, 0.9410, 0.9410, 0.9410, 0.9510, 0.9670, 0.9949, 0.9807 / +data ((cldnuctab( 8,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +0.9904, 0.9966, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9892, 0.9915, 0.9966, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9878, 0.9892, 0.9915, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9878, 0.9878, 0.9892, 0.9904, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9846, 0.9846, 0.9863, 0.9878, 0.9904, 0.9977, 0.9999, 0.9999, 0.9999, & +0.9759, 0.9759, 0.9759, 0.9784, 0.9807, 0.9878, 0.9980, 0.9997, 0.9999, & +0.9510, 0.9510, 0.9510, 0.9510, 0.9555, 0.9596, 0.9732, 0.9942, 0.9997 / +data ((cldnuctab( 8,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +0.9915, 0.9942, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9904, 0.9915, 0.9955, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9892, 0.9904, 0.9915, 0.9966, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9892, 0.9892, 0.9892, 0.9915, 0.9966, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9863, 0.9863, 0.9878, 0.9892, 0.9915, 0.9970, 0.9999, 0.9999, 0.9999, & +0.9784, 0.9784, 0.9784, 0.9807, 0.9827, 0.9878, 0.9970, 0.9999, 0.9999, & +0.9555, 0.9555, 0.9555, 0.9596, 0.9596, 0.9635, 0.9732, 0.9925, 0.9999 / +data ((cldnuctab( 8,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +0.9915, 0.9942, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9915, 0.9925, 0.9955, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9904, 0.9904, 0.9925, 0.9961, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9892, 0.9904, 0.9904, 0.9915, 0.9961, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9878, 0.9878, 0.9878, 0.9892, 0.9915, 0.9961, 0.9999, 0.9999, 0.9999, & +0.9807, 0.9807, 0.9807, 0.9827, 0.9846, 0.9892, 0.9961, 0.9999, 0.9999, & +0.9596, 0.9596, 0.9596, 0.9596, 0.9635, 0.9670, 0.9759, 0.9904, 0.9999 / +data ((cldnuctab( 8,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +0.9942, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9904, 0.9934, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9878, 0.9904, 0.9942, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9784, 0.9807, 0.9846, 0.9925, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9555, 0.9555, 0.9596, 0.9670, 0.9827, 0.9994, 0.9942, 0.9999, 0.9999, & +0.9230, 0.9230, 0.9230, 0.9294, 0.9410, 0.9596, 0.9925, 0.9635, 0.9892, & +0.8928, 0.8928, 0.8928, 0.8928, 0.9011, 0.9088, 0.9354, 0.9670, 0.9846 / +data ((cldnuctab( 8,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +0.9942, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9915, 0.9942, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9904, 0.9915, 0.9942, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9863, 0.9878, 0.9892, 0.9942, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9732, 0.9759, 0.9759, 0.9807, 0.9904, 0.9996, 0.9995, 0.9999, 0.9999, & +0.9462, 0.9462, 0.9510, 0.9510, 0.9596, 0.9759, 0.9974, 0.9827, 0.9990, & +0.9161, 0.9161, 0.9161, 0.9161, 0.9161, 0.9294, 0.9510, 0.9846, 0.9997 / +data ((cldnuctab( 8,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +0.9942, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9925, 0.9942, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9915, 0.9925, 0.9942, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9892, 0.9904, 0.9915, 0.9942, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9827, 0.9846, 0.9846, 0.9878, 0.9925, 0.9995, 0.9999, 0.9999, 0.9999, & +0.9670, 0.9670, 0.9670, 0.9702, 0.9732, 0.9846, 0.9985, 0.9955, 0.9999, & +0.9354, 0.9354, 0.9354, 0.9354, 0.9410, 0.9462, 0.9635, 0.9904, 0.9999 / +data ((cldnuctab( 8,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +0.9949, 0.9977, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9934, 0.9949, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9925, 0.9934, 0.9949, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9915, 0.9915, 0.9925, 0.9942, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9878, 0.9878, 0.9892, 0.9904, 0.9934, 0.9990, 0.9999, 0.9999, 0.9999, & +0.9759, 0.9759, 0.9759, 0.9784, 0.9807, 0.9878, 0.9983, 0.9995, 0.9999, & +0.9510, 0.9510, 0.9510, 0.9510, 0.9555, 0.9596, 0.9702, 0.9925, 0.9999 / +data ((cldnuctab( 8,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +0.9949, 0.9970, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9942, 0.9949, 0.9977, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9934, 0.9942, 0.9949, 0.9977, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9925, 0.9934, 0.9934, 0.9949, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9904, 0.9904, 0.9904, 0.9915, 0.9942, 0.9983, 0.9999, 0.9999, 0.9999, & +0.9807, 0.9807, 0.9827, 0.9827, 0.9846, 0.9904, 0.9977, 0.9999, 0.9999, & +0.9596, 0.9596, 0.9596, 0.9596, 0.9635, 0.9670, 0.9759, 0.9915, 0.9999 / +data ((cldnuctab( 8,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +0.9955, 0.9970, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9949, 0.9955, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9942, 0.9942, 0.9955, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9934, 0.9934, 0.9942, 0.9949, 0.9977, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9915, 0.9915, 0.9915, 0.9925, 0.9949, 0.9977, 0.9999, 0.9999, 0.9999, & +0.9846, 0.9846, 0.9846, 0.9846, 0.9878, 0.9904, 0.9970, 0.9999, 0.9999, & +0.9635, 0.9635, 0.9670, 0.9670, 0.9670, 0.9702, 0.9784, 0.9904, 0.9999 / +data ((cldnuctab( 8,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +0.9955, 0.9970, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9949, 0.9955, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9949, 0.9949, 0.9955, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9942, 0.9942, 0.9949, 0.9955, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9925, 0.9925, 0.9925, 0.9934, 0.9949, 0.9974, 0.9999, 0.9999, 0.9999, & +0.9863, 0.9863, 0.9863, 0.9863, 0.9878, 0.9915, 0.9966, 0.9999, 0.9999, & +0.9670, 0.9670, 0.9670, 0.9702, 0.9702, 0.9732, 0.9784, 0.9904, 0.9999 / +data ((cldnuctab( 8,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +0.9955, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9942, 0.9955, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9915, 0.9925, 0.9955, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9827, 0.9846, 0.9878, 0.9934, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9635, 0.9635, 0.9670, 0.9732, 0.9827, 0.9987, 0.9934, 0.9999, 0.9999, & +0.9354, 0.9354, 0.9354, 0.9410, 0.9462, 0.9635, 0.9904, 0.9999, 0.9904, & +0.9161, 0.9161, 0.9161, 0.9161, 0.9230, 0.9294, 0.9462, 0.9702, 0.9846 / +data ((cldnuctab( 8,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +0.9961, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9949, 0.9955, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9934, 0.9942, 0.9961, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9892, 0.9904, 0.9925, 0.9955, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9784, 0.9784, 0.9807, 0.9846, 0.9904, 0.9994, 0.9992, 0.9999, 0.9999, & +0.9555, 0.9555, 0.9555, 0.9596, 0.9635, 0.9759, 0.9961, 0.9999, 0.9985, & +0.9294, 0.9294, 0.9294, 0.9294, 0.9354, 0.9410, 0.9555, 0.9827, 0.9992 / +data ((cldnuctab( 8,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +0.9961, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9949, 0.9961, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9942, 0.9949, 0.9961, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9925, 0.9934, 0.9942, 0.9961, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9863, 0.9878, 0.9878, 0.9904, 0.9942, 0.9994, 0.9999, 0.9999, 0.9999, & +0.9702, 0.9702, 0.9732, 0.9732, 0.9784, 0.9846, 0.9977, 0.9999, 0.9999, & +0.9462, 0.9462, 0.9462, 0.9462, 0.9510, 0.9555, 0.9670, 0.9892, 0.9999 / +data ((cldnuctab( 8,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +0.9966, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9955, 0.9966, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9955, 0.9955, 0.9961, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9942, 0.9942, 0.9949, 0.9961, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9904, 0.9904, 0.9915, 0.9925, 0.9949, 0.9990, 0.9999, 0.9999, 0.9999, & +0.9807, 0.9807, 0.9807, 0.9827, 0.9846, 0.9892, 0.9980, 0.9999, 0.9999, & +0.9596, 0.9596, 0.9596, 0.9596, 0.9596, 0.9635, 0.9732, 0.9904, 0.9999 / +data ((cldnuctab( 8,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +0.9966, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9961, 0.9966, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9961, 0.9961, 0.9966, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9949, 0.9955, 0.9955, 0.9966, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9925, 0.9925, 0.9934, 0.9942, 0.9955, 0.9987, 0.9999, 0.9999, 0.9999, & +0.9846, 0.9846, 0.9846, 0.9863, 0.9878, 0.9915, 0.9977, 0.9999, 0.9999, & +0.9670, 0.9670, 0.9670, 0.9670, 0.9670, 0.9702, 0.9784, 0.9904, 0.9999 / +data ((cldnuctab( 8,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +0.9970, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9966, 0.9970, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9961, 0.9966, 0.9970, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9955, 0.9961, 0.9961, 0.9970, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9934, 0.9942, 0.9942, 0.9949, 0.9961, 0.9983, 0.9999, 0.9999, 0.9999, & +0.9878, 0.9878, 0.9878, 0.9878, 0.9892, 0.9925, 0.9974, 0.9999, 0.9999, & +0.9702, 0.9702, 0.9702, 0.9702, 0.9702, 0.9732, 0.9784, 0.9904, 0.9999 / +data ((cldnuctab( 8,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +0.9974, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9970, 0.9974, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9966, 0.9970, 0.9970, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9961, 0.9961, 0.9966, 0.9970, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9942, 0.9942, 0.9949, 0.9955, 0.9966, 0.9983, 0.9999, 0.9999, 0.9999, & +0.9892, 0.9892, 0.9892, 0.9892, 0.9904, 0.9925, 0.9970, 0.9999, 0.9999, & +0.9732, 0.9732, 0.9732, 0.9732, 0.9732, 0.9759, 0.9807, 0.9904, 0.9998 / +data ((cldnuctab( 8,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +0.9970, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9955, 0.9966, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9925, 0.9942, 0.9966, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9846, 0.9863, 0.9892, 0.9942, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9670, 0.9702, 0.9702, 0.9759, 0.9846, 0.9980, 0.9942, 0.9999, 0.9999, & +0.9462, 0.9462, 0.9462, 0.9510, 0.9555, 0.9670, 0.9904, 0.9999, 0.9925, & +0.9294, 0.9294, 0.9294, 0.9354, 0.9354, 0.9410, 0.9510, 0.9732, 0.9846 / +data ((cldnuctab( 8,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +0.9970, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9961, 0.9970, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9949, 0.9955, 0.9970, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9915, 0.9925, 0.9934, 0.9961, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9807, 0.9827, 0.9827, 0.9863, 0.9915, 0.9992, 0.9993, 0.9999, 0.9999, & +0.9635, 0.9635, 0.9635, 0.9635, 0.9702, 0.9784, 0.9949, 0.9999, 0.9983, & +0.9410, 0.9410, 0.9410, 0.9410, 0.9462, 0.9510, 0.9635, 0.9827, 0.9985 / +data ((cldnuctab( 8,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +0.9974, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9966, 0.9974, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9961, 0.9966, 0.9970, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9942, 0.9949, 0.9955, 0.9970, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9892, 0.9892, 0.9904, 0.9915, 0.9949, 0.9993, 0.9999, 0.9999, 0.9999, & +0.9759, 0.9759, 0.9759, 0.9759, 0.9807, 0.9863, 0.9970, 0.9999, 0.9999, & +0.9555, 0.9555, 0.9555, 0.9555, 0.9555, 0.9596, 0.9702, 0.9878, 0.9999 / +data ((cldnuctab( 8,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +0.9974, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9970, 0.9974, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9966, 0.9970, 0.9974, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9955, 0.9961, 0.9966, 0.9974, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9925, 0.9925, 0.9934, 0.9942, 0.9961, 0.9990, 0.9999, 0.9999, 0.9999, & +0.9827, 0.9827, 0.9827, 0.9846, 0.9863, 0.9904, 0.9974, 0.9999, 0.9999, & +0.9635, 0.9635, 0.9635, 0.9635, 0.9670, 0.9702, 0.9759, 0.9904, 0.9999 / +data ((cldnuctab( 8,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +0.9977, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9974, 0.9977, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9970, 0.9974, 0.9977, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9966, 0.9966, 0.9970, 0.9974, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9942, 0.9942, 0.9942, 0.9949, 0.9966, 0.9989, 0.9999, 0.9999, 0.9999, & +0.9863, 0.9863, 0.9878, 0.9878, 0.9892, 0.9925, 0.9974, 0.9999, 0.9999, & +0.9702, 0.9702, 0.9702, 0.9702, 0.9702, 0.9732, 0.9807, 0.9904, 0.9999 / +data ((cldnuctab( 8,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +0.9980, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9977, 0.9980, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9974, 0.9974, 0.9977, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9970, 0.9970, 0.9974, 0.9977, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9949, 0.9949, 0.9955, 0.9961, 0.9970, 0.9987, 0.9999, 0.9999, 0.9999, & +0.9892, 0.9892, 0.9892, 0.9892, 0.9904, 0.9934, 0.9974, 0.9999, 0.9999, & +0.9732, 0.9732, 0.9732, 0.9732, 0.9759, 0.9759, 0.9807, 0.9904, 0.9998 / +data ((cldnuctab( 8,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +0.9980, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9977, 0.9980, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9977, 0.9977, 0.9980, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9970, 0.9974, 0.9974, 0.9980, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9955, 0.9955, 0.9961, 0.9961, 0.9970, 0.9987, 0.9999, 0.9999, 0.9999, & +0.9904, 0.9904, 0.9904, 0.9904, 0.9915, 0.9934, 0.9970, 0.9999, 0.9999, & +0.9759, 0.9759, 0.9759, 0.9759, 0.9759, 0.9784, 0.9827, 0.9904, 0.9995 / +data ((cldnuctab( 9,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +0.9756, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9592, 0.9804, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9505, 0.9592, 0.9825, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9404, 0.9457, 0.9592, 0.9844, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9154, 0.9223, 0.9287, 0.9505, 0.9861, 0.9756, 0.9997, 0.9999, 0.9999, & +0.8642, 0.8642, 0.8739, 0.8832, 0.9080, 0.9666, 0.9080, 0.9457, 0.9985, & +0.8077, 0.8077, 0.8077, 0.8077, 0.8200, 0.8539, 0.9080, 0.9804, 0.8539 / +data ((cldnuctab( 9,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +0.9729, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9631, 0.9782, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9551, 0.9631, 0.9804, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9505, 0.9551, 0.9592, 0.9804, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9404, 0.9404, 0.9457, 0.9592, 0.9844, 0.9941, 0.9999, 0.9999, 0.9999, & +0.9080, 0.9080, 0.9080, 0.9223, 0.9404, 0.9782, 0.9592, 0.9914, 0.9999, & +0.8539, 0.8539, 0.8539, 0.8539, 0.8642, 0.8919, 0.9457, 0.9992, 0.9002 / +data ((cldnuctab( 9,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +0.9699, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9631, 0.9756, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9592, 0.9631, 0.9756, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9551, 0.9592, 0.9631, 0.9782, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9505, 0.9505, 0.9551, 0.9631, 0.9782, 0.9977, 0.9999, 0.9999, 0.9999, & +0.9287, 0.9348, 0.9348, 0.9404, 0.9551, 0.9804, 0.9903, 0.9996, 0.9999, & +0.8919, 0.8919, 0.8919, 0.8919, 0.9002, 0.9223, 0.9631, 0.9997, 0.9457 / +data ((cldnuctab( 9,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +0.9699, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9666, 0.9729, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9631, 0.9666, 0.9756, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9592, 0.9631, 0.9631, 0.9756, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9551, 0.9592, 0.9592, 0.9666, 0.9756, 0.9977, 0.9999, 0.9999, 0.9999, & +0.9457, 0.9457, 0.9457, 0.9505, 0.9592, 0.9782, 0.9965, 0.9999, 0.9999, & +0.9154, 0.9154, 0.9154, 0.9154, 0.9223, 0.9348, 0.9666, 0.9994, 0.9756 / +data ((cldnuctab( 9,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +0.9729, 0.9960, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9699, 0.9729, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9666, 0.9699, 0.9756, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9631, 0.9631, 0.9666, 0.9756, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9592, 0.9631, 0.9631, 0.9666, 0.9756, 0.9970, 0.9999, 0.9999, 0.9999, & +0.9505, 0.9505, 0.9551, 0.9551, 0.9631, 0.9756, 0.9965, 0.9999, 0.9999, & +0.9287, 0.9287, 0.9287, 0.9287, 0.9348, 0.9457, 0.9666, 0.9985, 0.9861 / +data ((cldnuctab( 9,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +0.9729, 0.9941, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9699, 0.9756, 0.9955, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9666, 0.9699, 0.9756, 0.9960, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9666, 0.9666, 0.9699, 0.9756, 0.9965, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9631, 0.9631, 0.9666, 0.9699, 0.9756, 0.9955, 0.9999, 0.9999, 0.9999, & +0.9551, 0.9592, 0.9592, 0.9592, 0.9666, 0.9756, 0.9955, 0.9999, 0.9999, & +0.9348, 0.9348, 0.9348, 0.9348, 0.9404, 0.9505, 0.9666, 0.9965, 0.9933 / +data ((cldnuctab( 9,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +0.9756, 0.9914, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9729, 0.9756, 0.9933, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9699, 0.9729, 0.9756, 0.9941, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9699, 0.9699, 0.9729, 0.9756, 0.9941, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9666, 0.9666, 0.9699, 0.9699, 0.9756, 0.9941, 0.9999, 0.9999, 0.9999, & +0.9592, 0.9592, 0.9631, 0.9631, 0.9666, 0.9756, 0.9941, 0.9999, 0.9999, & +0.9404, 0.9404, 0.9404, 0.9404, 0.9457, 0.9505, 0.9666, 0.9941, 0.9965 / +data ((cldnuctab( 9,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +0.9876, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9804, 0.9890, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9782, 0.9804, 0.9876, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9666, 0.9699, 0.9782, 0.9903, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9404, 0.9457, 0.9505, 0.9592, 0.9844, 0.9999, 0.9970, 0.9999, 0.9999, & +0.9002, 0.9002, 0.9002, 0.9080, 0.9223, 0.9592, 0.9983, 0.9505, 0.9924, & +0.8539, 0.8539, 0.8642, 0.8642, 0.8642, 0.8832, 0.9154, 0.9666, 0.9914 / +data ((cldnuctab( 9,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +0.9876, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9825, 0.9876, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9804, 0.9825, 0.9890, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9756, 0.9782, 0.9804, 0.9890, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9631, 0.9631, 0.9666, 0.9756, 0.9890, 0.9994, 0.9999, 0.9999, 0.9999, & +0.9348, 0.9348, 0.9348, 0.9404, 0.9505, 0.9756, 0.9996, 0.9844, 0.9999, & +0.8832, 0.8919, 0.8919, 0.8919, 0.9002, 0.9080, 0.9404, 0.9914, 0.9287 / +data ((cldnuctab( 9,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +0.9876, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9844, 0.9876, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9825, 0.9825, 0.9890, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9804, 0.9804, 0.9825, 0.9876, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9729, 0.9729, 0.9756, 0.9804, 0.9890, 0.9990, 0.9999, 0.9999, 0.9999, & +0.9551, 0.9551, 0.9551, 0.9592, 0.9666, 0.9825, 0.9995, 0.9965, 0.9999, & +0.9154, 0.9154, 0.9154, 0.9154, 0.9223, 0.9348, 0.9592, 0.9965, 0.9551 / +data ((cldnuctab( 9,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +0.9876, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9861, 0.9890, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9844, 0.9844, 0.9890, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9825, 0.9825, 0.9844, 0.9890, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9782, 0.9782, 0.9804, 0.9825, 0.9890, 0.9985, 0.9999, 0.9999, 0.9999, & +0.9666, 0.9666, 0.9666, 0.9699, 0.9756, 0.9861, 0.9992, 0.9994, 0.9999, & +0.9348, 0.9348, 0.9348, 0.9404, 0.9404, 0.9505, 0.9699, 0.9965, 0.9729 / +data ((cldnuctab( 9,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +0.9890, 0.9965, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9861, 0.9890, 0.9970, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9861, 0.9861, 0.9890, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9844, 0.9844, 0.9861, 0.9890, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9825, 0.9825, 0.9825, 0.9844, 0.9890, 0.9977, 0.9999, 0.9999, 0.9999, & +0.9729, 0.9729, 0.9729, 0.9756, 0.9782, 0.9861, 0.9983, 0.9997, 0.9999, & +0.9457, 0.9505, 0.9505, 0.9505, 0.9505, 0.9592, 0.9729, 0.9955, 0.9914 / +data ((cldnuctab( 9,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +0.9890, 0.9948, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9876, 0.9890, 0.9948, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9861, 0.9876, 0.9890, 0.9960, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9861, 0.9861, 0.9876, 0.9890, 0.9965, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9844, 0.9844, 0.9844, 0.9861, 0.9890, 0.9965, 0.9999, 0.9999, 0.9999, & +0.9756, 0.9756, 0.9756, 0.9782, 0.9804, 0.9861, 0.9970, 0.9999, 0.9999, & +0.9551, 0.9551, 0.9551, 0.9551, 0.9592, 0.9631, 0.9729, 0.9933, 0.9998 / +data ((cldnuctab( 9,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +0.9903, 0.9924, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9890, 0.9903, 0.9941, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9876, 0.9890, 0.9903, 0.9955, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9876, 0.9876, 0.9876, 0.9903, 0.9955, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9844, 0.9861, 0.9861, 0.9876, 0.9903, 0.9955, 0.9999, 0.9999, 0.9999, & +0.9782, 0.9782, 0.9782, 0.9804, 0.9825, 0.9876, 0.9960, 0.9999, 0.9999, & +0.9592, 0.9592, 0.9592, 0.9592, 0.9592, 0.9666, 0.9756, 0.9914, 0.9999 / +data ((cldnuctab( 9,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +0.9948, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9924, 0.9941, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9890, 0.9914, 0.9948, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9804, 0.9825, 0.9861, 0.9933, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9592, 0.9631, 0.9631, 0.9699, 0.9844, 0.9992, 0.9933, 0.9999, 0.9999, & +0.9348, 0.9348, 0.9348, 0.9348, 0.9457, 0.9631, 0.9924, 0.9999, 0.9903, & +0.9080, 0.9080, 0.9080, 0.9154, 0.9154, 0.9223, 0.9404, 0.9699, 0.9861 / +data ((cldnuctab( 9,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +0.9948, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9933, 0.9948, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9914, 0.9924, 0.9948, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9876, 0.9890, 0.9903, 0.9948, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9756, 0.9782, 0.9782, 0.9825, 0.9903, 0.9995, 0.9995, 0.9999, 0.9999, & +0.9551, 0.9551, 0.9551, 0.9551, 0.9631, 0.9756, 0.9970, 0.9861, 0.9989, & +0.9223, 0.9223, 0.9287, 0.9287, 0.9287, 0.9348, 0.9551, 0.9844, 0.9996 / +data ((cldnuctab( 9,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +0.9955, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9933, 0.9955, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9933, 0.9933, 0.9948, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9914, 0.9914, 0.9924, 0.9948, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9844, 0.9861, 0.9861, 0.9890, 0.9933, 0.9995, 0.9999, 0.9999, 0.9999, & +0.9699, 0.9699, 0.9699, 0.9729, 0.9756, 0.9844, 0.9983, 0.9960, 0.9999, & +0.9404, 0.9404, 0.9404, 0.9457, 0.9457, 0.9505, 0.9666, 0.9903, 0.9999 / +data ((cldnuctab( 9,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +0.9955, 0.9977, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9948, 0.9955, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9941, 0.9941, 0.9955, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9924, 0.9933, 0.9941, 0.9955, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9890, 0.9890, 0.9903, 0.9914, 0.9941, 0.9990, 0.9999, 0.9999, 0.9999, & +0.9782, 0.9782, 0.9782, 0.9804, 0.9825, 0.9890, 0.9983, 0.9999, 0.9999, & +0.9551, 0.9551, 0.9551, 0.9551, 0.9592, 0.9631, 0.9729, 0.9914, 0.9999 / +data ((cldnuctab( 9,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +0.9960, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9948, 0.9960, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9948, 0.9948, 0.9960, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9941, 0.9941, 0.9948, 0.9955, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9914, 0.9914, 0.9924, 0.9933, 0.9948, 0.9985, 0.9999, 0.9999, 0.9999, & +0.9825, 0.9825, 0.9844, 0.9844, 0.9861, 0.9903, 0.9977, 0.9999, 0.9999, & +0.9631, 0.9631, 0.9631, 0.9631, 0.9666, 0.9699, 0.9756, 0.9914, 0.9999 / +data ((cldnuctab( 9,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +0.9960, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9955, 0.9960, 0.9977, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9955, 0.9955, 0.9960, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9948, 0.9948, 0.9955, 0.9960, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9924, 0.9924, 0.9933, 0.9941, 0.9955, 0.9980, 0.9999, 0.9999, 0.9999, & +0.9861, 0.9861, 0.9861, 0.9861, 0.9876, 0.9914, 0.9974, 0.9999, 0.9999, & +0.9699, 0.9699, 0.9699, 0.9699, 0.9699, 0.9729, 0.9782, 0.9914, 0.9999 / +data ((cldnuctab( 9,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +0.9965, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9960, 0.9965, 0.9977, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9955, 0.9960, 0.9965, 0.9977, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9948, 0.9955, 0.9955, 0.9960, 0.9977, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9933, 0.9933, 0.9933, 0.9941, 0.9955, 0.9980, 0.9999, 0.9999, 0.9999, & +0.9876, 0.9876, 0.9876, 0.9876, 0.9890, 0.9924, 0.9970, 0.9999, 0.9999, & +0.9699, 0.9699, 0.9699, 0.9729, 0.9729, 0.9756, 0.9804, 0.9903, 0.9999 / +data ((cldnuctab( 9,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +0.9977, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9970, 0.9980, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9948, 0.9955, 0.9974, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9876, 0.9890, 0.9914, 0.9948, 0.9995, 0.9998, 0.9999, 0.9999, 0.9999, & +0.9756, 0.9756, 0.9756, 0.9804, 0.9861, 0.9974, 0.9999, 0.9997, 0.9999, & +0.9592, 0.9592, 0.9592, 0.9631, 0.9666, 0.9756, 0.9903, 0.9996, 0.9999, & +0.9505, 0.9505, 0.9505, 0.9505, 0.9551, 0.9592, 0.9666, 0.9782, 0.9876 / +data ((cldnuctab( 9,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +0.9983, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9977, 0.9980, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9965, 0.9970, 0.9980, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9933, 0.9941, 0.9948, 0.9970, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9844, 0.9861, 0.9861, 0.9876, 0.9924, 0.9987, 0.9999, 0.9999, 0.9999, & +0.9699, 0.9699, 0.9699, 0.9729, 0.9756, 0.9825, 0.9941, 0.9999, 0.9980, & +0.9592, 0.9592, 0.9592, 0.9592, 0.9592, 0.9631, 0.9699, 0.9861, 0.9977 / +data ((cldnuctab( 9,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +0.9983, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9980, 0.9983, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9974, 0.9977, 0.9983, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9960, 0.9960, 0.9965, 0.9977, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9914, 0.9914, 0.9924, 0.9933, 0.9955, 0.9992, 0.9999, 0.9999, 0.9999, & +0.9804, 0.9804, 0.9804, 0.9804, 0.9825, 0.9876, 0.9965, 0.9999, 0.9998, & +0.9666, 0.9666, 0.9666, 0.9666, 0.9666, 0.9699, 0.9756, 0.9890, 0.9997 / +data ((cldnuctab( 9,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +0.9985, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9983, 0.9985, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9980, 0.9980, 0.9985, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9970, 0.9974, 0.9974, 0.9983, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9941, 0.9941, 0.9948, 0.9955, 0.9970, 0.9992, 0.9999, 0.9999, 0.9999, & +0.9861, 0.9861, 0.9861, 0.9876, 0.9890, 0.9914, 0.9974, 0.9999, 0.9999, & +0.9729, 0.9729, 0.9729, 0.9729, 0.9729, 0.9756, 0.9804, 0.9903, 0.9999 / +data ((cldnuctab( 9,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +0.9987, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9983, 0.9985, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9983, 0.9983, 0.9985, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9977, 0.9977, 0.9980, 0.9985, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9955, 0.9955, 0.9960, 0.9965, 0.9974, 0.9990, 0.9999, 0.9999, 0.9999, & +0.9890, 0.9890, 0.9890, 0.9903, 0.9914, 0.9933, 0.9974, 0.9999, 0.9999, & +0.9756, 0.9756, 0.9756, 0.9756, 0.9782, 0.9782, 0.9825, 0.9914, 0.9998 / +data ((cldnuctab( 9,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +0.9987, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9985, 0.9987, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9985, 0.9985, 0.9987, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9980, 0.9980, 0.9983, 0.9985, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9965, 0.9965, 0.9965, 0.9970, 0.9977, 0.9990, 0.9999, 0.9999, 0.9999, & +0.9914, 0.9914, 0.9914, 0.9914, 0.9924, 0.9941, 0.9974, 0.9999, 0.9999, & +0.9782, 0.9782, 0.9782, 0.9804, 0.9804, 0.9804, 0.9844, 0.9914, 0.9995 / +data ((cldnuctab( 9,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +0.9989, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9987, 0.9989, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9985, 0.9987, 0.9989, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9983, 0.9983, 0.9985, 0.9987, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9970, 0.9970, 0.9970, 0.9974, 0.9980, 0.9990, 0.9999, 0.9999, 0.9999, & +0.9924, 0.9924, 0.9924, 0.9924, 0.9933, 0.9948, 0.9974, 0.9999, 0.9999, & +0.9804, 0.9804, 0.9804, 0.9804, 0.9804, 0.9825, 0.9861, 0.9914, 0.9990 / +data ((cldnuctab( 9,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +0.9989, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9983, 0.9989, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9965, 0.9970, 0.9983, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9914, 0.9914, 0.9933, 0.9955, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9825, 0.9825, 0.9825, 0.9844, 0.9890, 0.9965, 0.9999, 0.9995, 0.9999, & +0.9729, 0.9729, 0.9729, 0.9756, 0.9756, 0.9825, 0.9914, 0.9992, 0.9999, & +0.9699, 0.9699, 0.9699, 0.9699, 0.9699, 0.9729, 0.9756, 0.9844, 0.9903 / +data ((cldnuctab( 9,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +0.9990, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9987, 0.9990, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9980, 0.9983, 0.9989, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9955, 0.9955, 0.9965, 0.9977, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9890, 0.9890, 0.9890, 0.9914, 0.9933, 0.9983, 0.9999, 0.9999, 0.9999, & +0.9782, 0.9804, 0.9804, 0.9804, 0.9825, 0.9861, 0.9941, 0.9999, 0.9999, & +0.9729, 0.9729, 0.9729, 0.9729, 0.9729, 0.9756, 0.9804, 0.9876, 0.9970 / +data ((cldnuctab( 9,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +0.9992, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9989, 0.9990, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9985, 0.9987, 0.9990, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9974, 0.9974, 0.9977, 0.9985, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9933, 0.9933, 0.9941, 0.9948, 0.9965, 0.9990, 0.9999, 0.9999, 0.9999, & +0.9844, 0.9861, 0.9861, 0.9861, 0.9876, 0.9903, 0.9960, 0.9999, 0.9996, & +0.9756, 0.9756, 0.9756, 0.9756, 0.9782, 0.9782, 0.9825, 0.9903, 0.9993 / +data ((cldnuctab( 9,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +0.9993, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9990, 0.9992, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9989, 0.9990, 0.9992, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9983, 0.9983, 0.9985, 0.9989, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9960, 0.9960, 0.9960, 0.9965, 0.9974, 0.9992, 0.9999, 0.9999, 0.9999, & +0.9890, 0.9890, 0.9903, 0.9903, 0.9914, 0.9933, 0.9970, 0.9999, 0.9999, & +0.9804, 0.9804, 0.9804, 0.9804, 0.9804, 0.9825, 0.9844, 0.9914, 0.9995 / +data ((cldnuctab( 9,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +0.9993, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9992, 0.9993, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9990, 0.9992, 0.9993, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9985, 0.9987, 0.9987, 0.9990, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9970, 0.9970, 0.9970, 0.9974, 0.9980, 0.9992, 0.9999, 0.9999, 0.9999, & +0.9924, 0.9924, 0.9924, 0.9924, 0.9933, 0.9948, 0.9974, 0.9999, 0.9999, & +0.9825, 0.9825, 0.9825, 0.9825, 0.9844, 0.9844, 0.9876, 0.9924, 0.9993 / +data ((cldnuctab( 9,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +0.9994, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9993, 0.9994, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9992, 0.9993, 0.9994, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9989, 0.9989, 0.9990, 0.9992, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9974, 0.9977, 0.9977, 0.9980, 0.9983, 0.9993, 0.9999, 0.9999, 0.9999, & +0.9933, 0.9933, 0.9933, 0.9933, 0.9941, 0.9955, 0.9974, 0.9999, 0.9999, & +0.9844, 0.9844, 0.9844, 0.9844, 0.9844, 0.9861, 0.9876, 0.9924, 0.9989 / +data ((cldnuctab( 9,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +0.9995, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9994, 0.9994, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9993, 0.9993, 0.9994, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9990, 0.9990, 0.9990, 0.9993, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9977, 0.9977, 0.9980, 0.9980, 0.9985, 0.9993, 0.9999, 0.9999, 0.9999, & +0.9941, 0.9941, 0.9941, 0.9941, 0.9948, 0.9955, 0.9974, 0.9998, 0.9999, & +0.9861, 0.9861, 0.9861, 0.9861, 0.9861, 0.9876, 0.9890, 0.9924, 0.9983 / +data ((cldnuctab( 9,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +0.9993, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9989, 0.9992, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9974, 0.9977, 0.9985, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9933, 0.9933, 0.9941, 0.9960, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9861, 0.9861, 0.9861, 0.9876, 0.9914, 0.9965, 0.9999, 0.9995, 0.9999, & +0.9804, 0.9804, 0.9804, 0.9804, 0.9825, 0.9861, 0.9924, 0.9989, 0.9999, & +0.9782, 0.9782, 0.9782, 0.9782, 0.9782, 0.9804, 0.9825, 0.9876, 0.9914 / +data ((cldnuctab( 9,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +0.9994, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9992, 0.9994, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9985, 0.9987, 0.9992, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9965, 0.9965, 0.9970, 0.9980, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9914, 0.9914, 0.9914, 0.9924, 0.9948, 0.9980, 0.9999, 0.9999, 0.9999, & +0.9844, 0.9844, 0.9844, 0.9844, 0.9861, 0.9890, 0.9948, 0.9998, 0.9999, & +0.9804, 0.9804, 0.9804, 0.9804, 0.9804, 0.9825, 0.9844, 0.9903, 0.9970 / +data ((cldnuctab( 9,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +0.9995, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9994, 0.9995, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9990, 0.9992, 0.9994, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9980, 0.9980, 0.9983, 0.9989, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9948, 0.9948, 0.9948, 0.9955, 0.9970, 0.9989, 0.9999, 0.9999, 0.9999, & +0.9890, 0.9890, 0.9890, 0.9890, 0.9903, 0.9924, 0.9960, 0.9999, 0.9998, & +0.9825, 0.9825, 0.9825, 0.9825, 0.9825, 0.9844, 0.9861, 0.9924, 0.9989 / +data ((cldnuctab( 9,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +0.9995, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9995, 0.9995, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9993, 0.9994, 0.9995, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9987, 0.9987, 0.9989, 0.9992, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9965, 0.9965, 0.9970, 0.9974, 0.9980, 0.9992, 0.9999, 0.9999, 0.9999, & +0.9914, 0.9914, 0.9914, 0.9924, 0.9924, 0.9941, 0.9970, 0.9999, 0.9999, & +0.9844, 0.9844, 0.9844, 0.9844, 0.9861, 0.9861, 0.9890, 0.9933, 0.9992 / +data ((cldnuctab( 9,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +0.9996, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9995, 0.9995, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9994, 0.9995, 0.9995, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9990, 0.9990, 0.9992, 0.9994, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9977, 0.9977, 0.9977, 0.9980, 0.9985, 0.9993, 0.9999, 0.9999, 0.9999, & +0.9933, 0.9933, 0.9933, 0.9941, 0.9941, 0.9955, 0.9974, 0.9999, 0.9999, & +0.9876, 0.9876, 0.9876, 0.9876, 0.9876, 0.9876, 0.9903, 0.9933, 0.9989 / +data ((cldnuctab( 9,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +0.9996, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9996, 0.9996, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9995, 0.9995, 0.9996, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9992, 0.9992, 0.9993, 0.9995, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9980, 0.9980, 0.9983, 0.9983, 0.9987, 0.9993, 0.9999, 0.9999, 0.9999, & +0.9948, 0.9948, 0.9948, 0.9948, 0.9948, 0.9960, 0.9977, 0.9998, 0.9999, & +0.9876, 0.9876, 0.9876, 0.9876, 0.9890, 0.9890, 0.9903, 0.9933, 0.9985 / +data ((cldnuctab( 9,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +0.9996, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9996, 0.9996, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9995, 0.9995, 0.9996, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9993, 0.9993, 0.9994, 0.9995, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9983, 0.9983, 0.9983, 0.9985, 0.9989, 0.9994, 0.9999, 0.9999, 0.9999, & +0.9948, 0.9948, 0.9955, 0.9955, 0.9955, 0.9960, 0.9977, 0.9996, 0.9999, & +0.9890, 0.9890, 0.9890, 0.9890, 0.9890, 0.9903, 0.9914, 0.9933, 0.9980 / +data ((cldnuctab( 9,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +0.9995, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9992, 0.9994, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9977, 0.9980, 0.9987, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9941, 0.9941, 0.9948, 0.9965, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9890, 0.9890, 0.9890, 0.9903, 0.9924, 0.9965, 0.9999, 0.9999, 0.9999, & +0.9844, 0.9844, 0.9861, 0.9861, 0.9861, 0.9890, 0.9941, 0.9987, 0.9998, & +0.9825, 0.9825, 0.9825, 0.9844, 0.9844, 0.9844, 0.9876, 0.9903, 0.9933 / +data ((cldnuctab( 9,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +0.9996, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9994, 0.9995, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9989, 0.9990, 0.9993, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9970, 0.9970, 0.9974, 0.9983, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9924, 0.9924, 0.9933, 0.9941, 0.9955, 0.9980, 0.9999, 0.9999, 0.9999, & +0.9876, 0.9876, 0.9876, 0.9876, 0.9890, 0.9914, 0.9955, 0.9997, 0.9999, & +0.9825, 0.9825, 0.9844, 0.9844, 0.9844, 0.9861, 0.9876, 0.9924, 0.9974 / +data ((cldnuctab( 9,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +0.9996, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9995, 0.9996, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9993, 0.9994, 0.9995, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9983, 0.9985, 0.9987, 0.9990, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9955, 0.9955, 0.9960, 0.9960, 0.9974, 0.9989, 0.9999, 0.9999, 0.9999, & +0.9903, 0.9903, 0.9903, 0.9914, 0.9914, 0.9933, 0.9965, 0.9998, 0.9999, & +0.9861, 0.9861, 0.9861, 0.9861, 0.9861, 0.9876, 0.9890, 0.9933, 0.9987 / +data ((cldnuctab( 9,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +0.9997, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9996, 0.9996, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9995, 0.9995, 0.9996, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9990, 0.9990, 0.9992, 0.9994, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9974, 0.9974, 0.9974, 0.9977, 0.9983, 0.9992, 0.9999, 0.9999, 0.9999, & +0.9933, 0.9933, 0.9933, 0.9933, 0.9941, 0.9948, 0.9974, 0.9998, 0.9999, & +0.9876, 0.9876, 0.9876, 0.9876, 0.9890, 0.9890, 0.9903, 0.9941, 0.9990 / +data ((cldnuctab( 9,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +0.9997, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9996, 0.9997, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9996, 0.9996, 0.9996, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9993, 0.9993, 0.9994, 0.9995, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9980, 0.9980, 0.9980, 0.9983, 0.9987, 0.9994, 0.9999, 0.9999, 0.9999, & +0.9948, 0.9948, 0.9948, 0.9948, 0.9948, 0.9960, 0.9977, 0.9998, 0.9999, & +0.9890, 0.9890, 0.9890, 0.9903, 0.9903, 0.9903, 0.9914, 0.9941, 0.9987 / +data ((cldnuctab( 9,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +0.9997, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9997, 0.9997, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9996, 0.9996, 0.9997, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9994, 0.9994, 0.9995, 0.9995, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9983, 0.9985, 0.9985, 0.9985, 0.9989, 0.9994, 0.9999, 0.9999, 0.9999, & +0.9955, 0.9955, 0.9955, 0.9955, 0.9960, 0.9965, 0.9977, 0.9997, 0.9999, & +0.9903, 0.9903, 0.9903, 0.9903, 0.9903, 0.9914, 0.9924, 0.9941, 0.9983 / +data ((cldnuctab( 9,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +0.9998, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9997, 0.9997, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9996, 0.9997, 0.9997, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9995, 0.9995, 0.9995, 0.9996, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9985, 0.9987, 0.9987, 0.9987, 0.9990, 0.9994, 0.9999, 0.9999, 0.9999, & +0.9960, 0.9960, 0.9960, 0.9960, 0.9960, 0.9970, 0.9980, 0.9996, 0.9999, & +0.9914, 0.9914, 0.9914, 0.9914, 0.9914, 0.9914, 0.9924, 0.9948, 0.9980 / + +data ((supersat( 1,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +1.0171, 1.0249, 1.0378, 1.0598, 1.1011, 1.1902, 1.4374, 2.7352, 5.0027, & +1.0142, 1.0206, 1.0308, 1.0478, 1.0780, 1.1379, 1.2786, 1.7430, 4.0530, & +1.0120, 1.0172, 1.0255, 1.0392, 1.0625, 1.1060, 1.1982, 1.4418, 2.5803, & +1.0099, 1.0147, 1.0217, 1.0327, 1.0514, 1.0848, 1.1507, 1.3035, 1.7889, & +1.0088, 1.0125, 1.0186, 1.0278, 1.0433, 1.0699, 1.1197, 1.2257, 1.5066, & +1.0077, 1.0109, 1.0161, 1.0238, 1.0370, 1.0586, 1.0980, 1.1763, 1.3613, & +1.0056, 1.0093, 1.0138, 1.0207, 1.0320, 1.0502, 1.0820, 1.1423, 1.2736 / +data ((supersat( 1,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +1.0139, 1.0201, 1.0298, 1.0463, 1.0760, 1.1361, 1.2844, 1.8220, 3.7340, & +1.0115, 1.0163, 1.0242, 1.0367, 1.0587, 1.0999, 1.1892, 1.4354, 2.6145, & +1.0097, 1.0135, 1.0198, 1.0300, 1.0468, 1.0772, 1.1373, 1.2793, 1.7414, & +1.0078, 1.0114, 1.0166, 1.0250, 1.0384, 1.0618, 1.1057, 1.1990, 1.4465, & +1.0070, 1.0100, 1.0140, 1.0211, 1.0322, 1.0509, 1.0846, 1.1515, 1.3076, & +1.0061, 1.0082, 1.0124, 1.0181, 1.0275, 1.0429, 1.0697, 1.1203, 1.2287, & +1.0044, 1.0073, 1.0106, 1.0159, 1.0236, 1.0365, 1.0585, 1.0984, 1.1784 / +data ((supersat( 1,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +1.0117, 1.0166, 1.0245, 1.0373, 1.0598, 1.1036, 1.2038, 1.5019, 2.7537, & +1.0097, 1.0135, 1.0197, 1.0294, 1.0461, 1.0763, 1.1382, 1.2917, 1.8312, & +1.0080, 1.0111, 1.0162, 1.0239, 1.0366, 1.0588, 1.1011, 1.1937, 1.4490, & +1.0066, 1.0093, 1.0135, 1.0196, 1.0299, 1.0469, 1.0780, 1.1403, 1.2886, & +1.0056, 1.0081, 1.0114, 1.0166, 1.0249, 1.0386, 1.0625, 1.1077, 1.2052, & +1.0050, 1.0066, 1.0096, 1.0142, 1.0211, 1.0324, 1.0515, 1.0862, 1.1557, & +1.0040, 1.0058, 1.0085, 1.0119, 1.0180, 1.0277, 1.0433, 1.0709, 1.1234 / +data ((supersat( 1,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +1.0101, 1.0142, 1.0206, 1.0311, 1.0491, 1.0830, 1.1565, 1.3541, 2.1048, & +1.0083, 1.0115, 1.0165, 1.0245, 1.0376, 1.0610, 1.1072, 1.2143, 1.5329, & +1.0067, 1.0093, 1.0135, 1.0197, 1.0297, 1.0468, 1.0784, 1.1442, 1.3096, & +1.0058, 1.0079, 1.0112, 1.0162, 1.0240, 1.0371, 1.0602, 1.1048, 1.2041, & +1.0044, 1.0067, 1.0094, 1.0135, 1.0197, 1.0303, 1.0480, 1.0805, 1.1468, & +1.0042, 1.0056, 1.0078, 1.0115, 1.0168, 1.0252, 1.0394, 1.0644, 1.1122, & +1.0036, 1.0045, 1.0069, 1.0098, 1.0144, 1.0215, 1.0331, 1.0530, 1.0895 / +data ((supersat( 1,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +1.0089, 1.0125, 1.0179, 1.0268, 1.0417, 1.0694, 1.1273, 1.2738, 1.7469, & +1.0072, 1.0100, 1.0143, 1.0210, 1.0319, 1.0509, 1.0874, 1.1688, 1.3906, & +1.0059, 1.0082, 1.0116, 1.0167, 1.0249, 1.0388, 1.0637, 1.1140, 1.2333, & +1.0050, 1.0069, 1.0096, 1.0137, 1.0201, 1.0305, 1.0486, 1.0826, 1.1549, & +1.0041, 1.0055, 1.0079, 1.0114, 1.0164, 1.0247, 1.0384, 1.0630, 1.1114, & +1.0031, 1.0049, 1.0067, 1.0096, 1.0137, 1.0204, 1.0313, 1.0501, 1.0851, & +1.0031, 1.0039, 1.0056, 1.0081, 1.0117, 1.0172, 1.0262, 1.0411, 1.0677 / +data ((supersat( 1,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +1.0078, 1.0111, 1.0159, 1.0235, 1.0365, 1.0599, 1.1079, 1.2247, 1.5716, & +1.0064, 1.0090, 1.0126, 1.0184, 1.0277, 1.0438, 1.0742, 1.1399, 1.3105, & +1.0054, 1.0073, 1.0101, 1.0146, 1.0216, 1.0332, 1.0538, 1.0944, 1.1877, & +1.0042, 1.0060, 1.0083, 1.0118, 1.0172, 1.0259, 1.0407, 1.0680, 1.1245, & +1.0035, 1.0050, 1.0068, 1.0098, 1.0140, 1.0207, 1.0319, 1.0515, 1.0891, & +1.0031, 1.0042, 1.0059, 1.0082, 1.0116, 1.0170, 1.0258, 1.0406, 1.0675, & +1.0022, 1.0037, 1.0046, 1.0067, 1.0098, 1.0143, 1.0213, 1.0331, 1.0535 / +data ((supersat( 1,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +1.0071, 1.0099, 1.0142, 1.0209, 1.0323, 1.0528, 1.0940, 1.1919, 1.4692, & +1.0058, 1.0080, 1.0113, 1.0164, 1.0245, 1.0385, 1.0646, 1.1200, 1.2596, & +1.0047, 1.0065, 1.0091, 1.0130, 1.0190, 1.0291, 1.0467, 1.0810, 1.1577, & +1.0040, 1.0053, 1.0074, 1.0104, 1.0151, 1.0225, 1.0351, 1.0580, 1.1045, & +1.0031, 1.0045, 1.0062, 1.0086, 1.0122, 1.0179, 1.0273, 1.0435, 1.0743, & +1.0028, 1.0036, 1.0051, 1.0070, 1.0101, 1.0146, 1.0219, 1.0341, 1.0558, & +1.0024, 1.0031, 1.0043, 1.0059, 1.0085, 1.0122, 1.0180, 1.0275, 1.0439 / +data ((supersat( 1,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +1.0147, 1.0218, 1.0340, 1.0552, 1.0957, 1.1844, 1.4324, 2.7307, 5.0001, & +1.0121, 1.0181, 1.0276, 1.0438, 1.0732, 1.1323, 1.2730, 1.7384, 4.0482, & +1.0101, 1.0151, 1.0227, 1.0356, 1.0582, 1.1009, 1.1926, 1.4365, 2.5746, & +1.0088, 1.0126, 1.0192, 1.0297, 1.0476, 1.0802, 1.1453, 1.2979, 1.7835, & +1.0076, 1.0111, 1.0163, 1.0253, 1.0399, 1.0657, 1.1147, 1.2201, 1.5009, & +1.0055, 1.0092, 1.0142, 1.0218, 1.0338, 1.0548, 1.0932, 1.1708, 1.3554, & +1.0055, 1.0086, 1.0125, 1.0190, 1.0293, 1.0467, 1.0775, 1.1370, 1.2676 / +data ((supersat( 1,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +1.0119, 1.0174, 1.0265, 1.0421, 1.0709, 1.1305, 1.2793, 1.8185, 3.7311, & +1.0098, 1.0142, 1.0213, 1.0332, 1.0542, 1.0947, 1.1837, 1.4309, 2.6107, & +1.0079, 1.0118, 1.0175, 1.0270, 1.0430, 1.0725, 1.1321, 1.2742, 1.7372, & +1.0069, 1.0100, 1.0146, 1.0224, 1.0350, 1.0577, 1.1008, 1.1938, 1.4416, & +1.0059, 1.0082, 1.0126, 1.0190, 1.0293, 1.0473, 1.0802, 1.1463, 1.3024, & +1.0041, 1.0073, 1.0106, 1.0163, 1.0251, 1.0396, 1.0657, 1.1154, 1.2234, & +1.0040, 1.0066, 1.0096, 1.0139, 1.0215, 1.0337, 1.0548, 1.0938, 1.1731 / +data ((supersat( 1,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +1.0099, 1.0143, 1.0214, 1.0334, 1.0544, 1.0983, 1.1984, 1.4984, 2.7508, & +1.0080, 1.0115, 1.0171, 1.0262, 1.0420, 1.0714, 1.1329, 1.2872, 1.8286, & +1.0066, 1.0095, 1.0139, 1.0212, 1.0332, 1.0546, 1.0962, 1.1886, 1.4451, & +1.0056, 1.0081, 1.0114, 1.0173, 1.0269, 1.0433, 1.0735, 1.1353, 1.2839, & +1.0049, 1.0065, 1.0098, 1.0145, 1.0224, 1.0354, 1.0585, 1.1031, 1.2003, & +1.0036, 1.0057, 1.0085, 1.0123, 1.0190, 1.0296, 1.0479, 1.0819, 1.1509, & +1.0027, 1.0052, 1.0073, 1.0109, 1.0165, 1.0253, 1.0401, 1.0670, 1.1187 / +data ((supersat( 1,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +1.0084, 1.0121, 1.0179, 1.0276, 1.0448, 1.0780, 1.1515, 1.3505, 2.1027, & +1.0067, 1.0097, 1.0142, 1.0215, 1.0339, 1.0565, 1.1022, 1.2097, 1.5297, & +1.0057, 1.0080, 1.0115, 1.0172, 1.0266, 1.0429, 1.0738, 1.1393, 1.3055, & +1.0044, 1.0066, 1.0094, 1.0141, 1.0214, 1.0337, 1.0561, 1.1001, 1.1994, & +1.0041, 1.0055, 1.0079, 1.0117, 1.0175, 1.0274, 1.0444, 1.0762, 1.1421, & +1.0034, 1.0045, 1.0068, 1.0097, 1.0148, 1.0227, 1.0363, 1.0605, 1.1077, & +1.0024, 1.0043, 1.0058, 1.0086, 1.0125, 1.0194, 1.0303, 1.0496, 1.0853 / +data ((supersat( 1,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +1.0073, 1.0105, 1.0154, 1.0235, 1.0378, 1.0647, 1.1225, 1.2702, 1.7451, & +1.0059, 1.0084, 1.0122, 1.0182, 1.0284, 1.0467, 1.0827, 1.1642, 1.3876, & +1.0050, 1.0069, 1.0097, 1.0144, 1.0221, 1.0351, 1.0594, 1.1092, 1.2293, & +1.0040, 1.0055, 1.0079, 1.0117, 1.0176, 1.0274, 1.0448, 1.0781, 1.1503, & +1.0032, 1.0048, 1.0067, 1.0097, 1.0144, 1.0220, 1.0351, 1.0590, 1.1069, & +1.0030, 1.0037, 1.0056, 1.0080, 1.0121, 1.0182, 1.0284, 1.0466, 1.0809, & +1.0026, 1.0032, 1.0049, 1.0070, 1.0102, 1.0152, 1.0237, 1.0380, 1.0640 / +data ((supersat( 1,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +1.0065, 1.0093, 1.0135, 1.0206, 1.0327, 1.0555, 1.1032, 1.2212, 1.5698, & +1.0053, 1.0075, 1.0107, 1.0159, 1.0245, 1.0398, 1.0696, 1.1354, 1.3075, & +1.0042, 1.0060, 1.0085, 1.0125, 1.0189, 1.0298, 1.0497, 1.0899, 1.1836, & +1.0037, 1.0049, 1.0069, 1.0101, 1.0150, 1.0230, 1.0371, 1.0638, 1.1201, & +1.0029, 1.0041, 1.0059, 1.0082, 1.0121, 1.0183, 1.0289, 1.0478, 1.0848, & +1.0021, 1.0035, 1.0045, 1.0066, 1.0101, 1.0149, 1.0231, 1.0374, 1.0636, & +1.0021, 1.0026, 1.0042, 1.0059, 1.0085, 1.0126, 1.0191, 1.0303, 1.0500 / +data ((supersat( 1,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +1.0059, 1.0083, 1.0121, 1.0182, 1.0289, 1.0486, 1.0895, 1.1882, 1.4673, & +1.0047, 1.0066, 1.0095, 1.0141, 1.0216, 1.0348, 1.0603, 1.1157, 1.2566, & +1.0039, 1.0053, 1.0076, 1.0111, 1.0166, 1.0259, 1.0428, 1.0766, 1.1538, & +1.0031, 1.0045, 1.0062, 1.0088, 1.0130, 1.0199, 1.0318, 1.0540, 1.1002, & +1.0028, 1.0035, 1.0050, 1.0071, 1.0105, 1.0157, 1.0245, 1.0400, 1.0702, & +1.0022, 1.0031, 1.0043, 1.0060, 1.0086, 1.0127, 1.0195, 1.0310, 1.0522, & +1.0016, 1.0027, 1.0033, 1.0050, 1.0072, 1.0106, 1.0160, 1.0250, 1.0407 / +data ((supersat( 1,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +1.0123, 1.0191, 1.0304, 1.0505, 1.0900, 1.1782, 1.4271, 2.7259, 4.9977, & +1.0104, 1.0156, 1.0245, 1.0398, 1.0682, 1.1265, 1.2671, 1.7335, 4.0428, & +1.0088, 1.0128, 1.0202, 1.0323, 1.0539, 1.0956, 1.1866, 1.4309, 2.5689, & +1.0075, 1.0113, 1.0169, 1.0267, 1.0439, 1.0754, 1.1397, 1.2919, 1.7776, & +1.0055, 1.0093, 1.0147, 1.0228, 1.0366, 1.0614, 1.1094, 1.2141, 1.4946, & +1.0054, 1.0086, 1.0126, 1.0195, 1.0309, 1.0510, 1.0883, 1.1649, 1.3489, & +1.0052, 1.0071, 1.0110, 1.0165, 1.0265, 1.0431, 1.0729, 1.1312, 1.2610 / +data ((supersat( 1,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +1.0099, 1.0150, 1.0234, 1.0380, 1.0658, 1.1247, 1.2740, 1.8151, 3.7276, & +1.0081, 1.0123, 1.0187, 1.0298, 1.0498, 1.0893, 1.1780, 1.4261, 2.6064, & +1.0069, 1.0101, 1.0154, 1.0241, 1.0393, 1.0678, 1.1266, 1.2687, 1.7325, & +1.0058, 1.0084, 1.0130, 1.0198, 1.0319, 1.0536, 1.0958, 1.1883, 1.4364, & +1.0041, 1.0072, 1.0107, 1.0168, 1.0265, 1.0437, 1.0756, 1.1410, 1.2968, & +1.0040, 1.0065, 1.0096, 1.0141, 1.0226, 1.0365, 1.0615, 1.1104, 1.2177, & +1.0039, 1.0050, 1.0075, 1.0126, 1.0195, 1.0309, 1.0511, 1.0890, 1.1674 / +data ((supersat( 1,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +1.0081, 1.0122, 1.0185, 1.0298, 1.0505, 1.0928, 1.1930, 1.4948, 2.7479, & +1.0066, 1.0099, 1.0148, 1.0232, 1.0381, 1.0666, 1.1275, 1.2824, 1.8252, & +1.0055, 1.0081, 1.0120, 1.0186, 1.0298, 1.0503, 1.0911, 1.1834, 1.4409, & +1.0048, 1.0066, 1.0101, 1.0153, 1.0242, 1.0397, 1.0690, 1.1302, 1.2789, & +1.0035, 1.0057, 1.0085, 1.0129, 1.0199, 1.0323, 1.0545, 1.0983, 1.1951, & +1.0028, 1.0051, 1.0073, 1.0111, 1.0170, 1.0270, 1.0445, 1.0774, 1.1458, & +1.0027, 1.0040, 1.0058, 1.0090, 1.0145, 1.0228, 1.0370, 1.0629, 1.1138 / +data ((supersat( 1,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +1.0068, 1.0102, 1.0154, 1.0243, 1.0406, 1.0729, 1.1463, 1.3470, 2.1002, & +1.0057, 1.0082, 1.0122, 1.0188, 1.0304, 1.0521, 1.0970, 1.2050, 1.5267, & +1.0043, 1.0066, 1.0097, 1.0149, 1.0235, 1.0391, 1.0691, 1.1343, 1.3014, & +1.0040, 1.0055, 1.0081, 1.0121, 1.0189, 1.0306, 1.0520, 1.0953, 1.1946, & +1.0033, 1.0044, 1.0068, 1.0100, 1.0156, 1.0246, 1.0409, 1.0719, 1.1372, & +1.0022, 1.0041, 1.0058, 1.0087, 1.0131, 1.0205, 1.0333, 1.0566, 1.1031, & +1.0016, 1.0035, 1.0045, 1.0072, 1.0113, 1.0173, 1.0277, 1.0461, 1.0810 / +data ((supersat( 1,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +1.0060, 1.0088, 1.0132, 1.0206, 1.0339, 1.0599, 1.1175, 1.2665, 1.7433, & +1.0049, 1.0070, 1.0103, 1.0157, 1.0252, 1.0425, 1.0778, 1.1596, 1.3846, & +1.0039, 1.0055, 1.0082, 1.0124, 1.0194, 1.0316, 1.0550, 1.1044, 1.2252, & +1.0031, 1.0048, 1.0068, 1.0100, 1.0154, 1.0245, 1.0410, 1.0736, 1.1457, & +1.0029, 1.0037, 1.0056, 1.0080, 1.0125, 1.0196, 1.0319, 1.0550, 1.1024, & +1.0024, 1.0032, 1.0049, 1.0071, 1.0104, 1.0162, 1.0258, 1.0432, 1.0766, & +1.0017, 1.0030, 1.0037, 1.0057, 1.0088, 1.0136, 1.0215, 1.0350, 1.0601 / +data ((supersat( 1,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +1.0054, 1.0077, 1.0115, 1.0178, 1.0291, 1.0510, 1.0985, 1.2176, 1.5680, & +1.0042, 1.0061, 1.0090, 1.0136, 1.0215, 1.0360, 1.0651, 1.1309, 1.3045, & +1.0036, 1.0049, 1.0072, 1.0107, 1.0164, 1.0265, 1.0456, 1.0853, 1.1796, & +1.0027, 1.0041, 1.0059, 1.0084, 1.0129, 1.0204, 1.0337, 1.0595, 1.1156, & +1.0021, 1.0034, 1.0046, 1.0069, 1.0104, 1.0162, 1.0260, 1.0441, 1.0805, & +1.0020, 1.0024, 1.0041, 1.0060, 1.0086, 1.0131, 1.0208, 1.0342, 1.0597, & +1.0019, 1.0021, 1.0035, 1.0046, 1.0072, 1.0109, 1.0171, 1.0276, 1.0466 / +data ((supersat( 1,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +1.0047, 1.0068, 1.0102, 1.0157, 1.0256, 1.0445, 1.0850, 1.1847, 1.4655, & +1.0038, 1.0054, 1.0080, 1.0119, 1.0188, 1.0313, 1.0560, 1.1114, 1.2537, & +1.0031, 1.0045, 1.0064, 1.0094, 1.0143, 1.0229, 1.0390, 1.0722, 1.1499, & +1.0027, 1.0034, 1.0050, 1.0074, 1.0112, 1.0174, 1.0286, 1.0500, 1.0959, & +1.0021, 1.0030, 1.0042, 1.0061, 1.0089, 1.0137, 1.0218, 1.0366, 1.0661, & +1.0013, 1.0026, 1.0032, 1.0051, 1.0072, 1.0110, 1.0173, 1.0282, 1.0485, & +1.0011, 1.0019, 1.0031, 1.0043, 1.0062, 1.0092, 1.0142, 1.0225, 1.0376 / +data ((supersat( 1,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +1.0109, 1.0168, 1.0272, 1.0462, 1.0846, 1.1723, 1.4222, 2.7212, 4.9952, & +1.0088, 1.0137, 1.0218, 1.0362, 1.0635, 1.1209, 1.2614, 1.7287, 4.0375, & +1.0076, 1.0116, 1.0181, 1.0292, 1.0499, 1.0905, 1.1808, 1.4254, 2.5629, & +1.0055, 1.0092, 1.0153, 1.0243, 1.0404, 1.0709, 1.1342, 1.2861, 1.7716, & +1.0054, 1.0086, 1.0127, 1.0204, 1.0334, 1.0573, 1.1042, 1.2081, 1.4883, & +1.0051, 1.0072, 1.0113, 1.0176, 1.0283, 1.0472, 1.0835, 1.1590, 1.3423, & +1.0043, 1.0055, 1.0091, 1.0152, 1.0239, 1.0396, 1.0683, 1.1255, 1.2542 / +data ((supersat( 1,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +1.0085, 1.0128, 1.0206, 1.0343, 1.0610, 1.1192, 1.2690, 1.8118, 3.7245, & +1.0069, 1.0104, 1.0163, 1.0267, 1.0458, 1.0843, 1.1726, 1.4216, 2.6020, & +1.0058, 1.0089, 1.0134, 1.0216, 1.0359, 1.0634, 1.1214, 1.2636, 1.7284, & +1.0041, 1.0069, 1.0111, 1.0178, 1.0290, 1.0498, 1.0910, 1.1829, 1.4314, & +1.0040, 1.0065, 1.0098, 1.0151, 1.0242, 1.0404, 1.0713, 1.1358, 1.2913, & +1.0038, 1.0055, 1.0077, 1.0130, 1.0202, 1.0335, 1.0576, 1.1054, 1.2120, & +1.0034, 1.0040, 1.0072, 1.0107, 1.0171, 1.0283, 1.0475, 1.0843, 1.1618 / +data ((supersat( 1,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +1.0069, 1.0104, 1.0161, 1.0265, 1.0462, 1.0877, 1.1882, 1.4915, 2.7449, & +1.0055, 1.0083, 1.0129, 1.0206, 1.0345, 1.0620, 1.1224, 1.2780, 1.8225, & +1.0048, 1.0068, 1.0105, 1.0164, 1.0269, 1.0465, 1.0864, 1.1785, 1.4369, & +1.0034, 1.0057, 1.0086, 1.0136, 1.0217, 1.0364, 1.0648, 1.1253, 1.2742, & +1.0028, 1.0051, 1.0075, 1.0114, 1.0180, 1.0296, 1.0509, 1.0937, 1.1901, & +1.0027, 1.0039, 1.0058, 1.0095, 1.0151, 1.0246, 1.0412, 1.0733, 1.1409, & +1.0027, 1.0028, 1.0056, 1.0084, 1.0130, 1.0206, 1.0341, 1.0590, 1.1090 / +data ((supersat( 1,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +1.0058, 1.0086, 1.0132, 1.0214, 1.0367, 1.0682, 1.1416, 1.3436, 2.0980, & +1.0043, 1.0067, 1.0105, 1.0164, 1.0272, 1.0479, 1.0923, 1.2007, 1.5239, & +1.0039, 1.0056, 1.0085, 1.0131, 1.0210, 1.0357, 1.0648, 1.1296, 1.2976, & +1.0032, 1.0044, 1.0069, 1.0107, 1.0168, 1.0277, 1.0483, 1.0908, 1.1901, & +1.0021, 1.0041, 1.0059, 1.0090, 1.0139, 1.0223, 1.0378, 1.0678, 1.1327, & +1.0016, 1.0034, 1.0045, 1.0072, 1.0117, 1.0186, 1.0306, 1.0531, 1.0987, & +1.0016, 1.0023, 1.0043, 1.0066, 1.0098, 1.0155, 1.0252, 1.0428, 1.0768 / +data ((supersat( 1,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +1.0050, 1.0073, 1.0112, 1.0179, 1.0303, 1.0556, 1.1130, 1.2632, 1.7415, & +1.0039, 1.0057, 1.0088, 1.0136, 1.0223, 1.0387, 1.0733, 1.1554, 1.3818, & +1.0031, 1.0048, 1.0071, 1.0107, 1.0171, 1.0285, 1.0510, 1.1000, 1.2215, & +1.0028, 1.0036, 1.0056, 1.0087, 1.0136, 1.0220, 1.0376, 1.0694, 1.1414, & +1.0023, 1.0032, 1.0049, 1.0073, 1.0110, 1.0175, 1.0292, 1.0514, 1.0981, & +1.0015, 1.0029, 1.0037, 1.0057, 1.0093, 1.0145, 1.0235, 1.0400, 1.0727, & +1.0009, 1.0025, 1.0032, 1.0053, 1.0079, 1.0122, 1.0194, 1.0323, 1.0566 / +data ((supersat( 1,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +1.0042, 1.0064, 1.0097, 1.0154, 1.0259, 1.0470, 1.0942, 1.2144, 1.5665, & +1.0036, 1.0051, 1.0076, 1.0116, 1.0189, 1.0325, 1.0609, 1.1269, 1.3019, & +1.0027, 1.0041, 1.0060, 1.0091, 1.0143, 1.0237, 1.0419, 1.0811, 1.1760, & +1.0021, 1.0034, 1.0047, 1.0073, 1.0113, 1.0180, 1.0306, 1.0557, 1.1115, & +1.0020, 1.0024, 1.0041, 1.0061, 1.0091, 1.0143, 1.0235, 1.0407, 1.0765, & +1.0018, 1.0021, 1.0034, 1.0048, 1.0076, 1.0117, 1.0187, 1.0314, 1.0561, & +1.0015, 1.0021, 1.0024, 1.0043, 1.0064, 1.0098, 1.0153, 1.0252, 1.0434 / +data ((supersat( 1,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +1.0039, 1.0057, 1.0086, 1.0136, 1.0226, 1.0407, 1.0810, 1.1816, 1.4640, & +1.0030, 1.0045, 1.0066, 1.0102, 1.0164, 1.0281, 1.0521, 1.1075, 1.2512, & +1.0026, 1.0035, 1.0052, 1.0080, 1.0124, 1.0203, 1.0356, 1.0683, 1.1464, & +1.0020, 1.0030, 1.0043, 1.0064, 1.0097, 1.0153, 1.0257, 1.0464, 1.0920, & +1.0013, 1.0025, 1.0033, 1.0051, 1.0077, 1.0120, 1.0195, 1.0336, 1.0624, & +1.0011, 1.0018, 1.0030, 1.0043, 1.0065, 1.0098, 1.0155, 1.0257, 1.0452, & +1.0011, 1.0011, 1.0026, 1.0033, 1.0052, 1.0081, 1.0126, 1.0204, 1.0347 / +data ((supersat( 1,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +1.0098, 1.0154, 1.0254, 1.0440, 1.0817, 1.1692, 1.4196, 2.7187, 4.9938, & +1.0083, 1.0124, 1.0205, 1.0343, 1.0610, 1.1179, 1.2585, 1.7263, 4.0342, & +1.0066, 1.0107, 1.0168, 1.0278, 1.0477, 1.0878, 1.1778, 1.4225, 2.5599, & +1.0055, 1.0090, 1.0143, 1.0228, 1.0386, 1.0684, 1.1312, 1.2829, 1.7684, & +1.0052, 1.0080, 1.0122, 1.0193, 1.0320, 1.0551, 1.1014, 1.2049, 1.4848, & +1.0047, 1.0061, 1.0102, 1.0162, 1.0266, 1.0454, 1.0808, 1.1558, 1.3386, & +1.0036, 1.0054, 1.0088, 1.0140, 1.0226, 1.0378, 1.0658, 1.1222, 1.2503 / +data ((supersat( 1,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +1.0074, 1.0120, 1.0191, 1.0323, 1.0585, 1.1163, 1.2665, 1.8102, 3.7233, & +1.0065, 1.0098, 1.0154, 1.0251, 1.0437, 1.0816, 1.1698, 1.4193, 2.6000, & +1.0050, 1.0077, 1.0127, 1.0202, 1.0341, 1.0611, 1.1186, 1.2609, 1.7262, & +1.0041, 1.0069, 1.0104, 1.0166, 1.0277, 1.0478, 1.0884, 1.1801, 1.4287, & +1.0039, 1.0058, 1.0090, 1.0138, 1.0228, 1.0386, 1.0690, 1.1330, 1.2884, & +1.0036, 1.0041, 1.0074, 1.0121, 1.0193, 1.0319, 1.0555, 1.1028, 1.2090, & +1.0029, 1.0040, 1.0068, 1.0103, 1.0164, 1.0267, 1.0455, 1.0818, 1.1587 / +data ((supersat( 1,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +1.0060, 1.0095, 1.0150, 1.0249, 1.0440, 1.0851, 1.1857, 1.4899, 2.7433, & +1.0052, 1.0077, 1.0118, 1.0191, 1.0327, 1.0596, 1.1198, 1.2758, 1.8210, & +1.0041, 1.0058, 1.0097, 1.0154, 1.0254, 1.0444, 1.0839, 1.1760, 1.4348, & +1.0028, 1.0054, 1.0082, 1.0127, 1.0205, 1.0347, 1.0626, 1.1227, 1.2719, & +1.0027, 1.0045, 1.0066, 1.0107, 1.0169, 1.0280, 1.0489, 1.0913, 1.1876, & +1.0027, 1.0031, 1.0057, 1.0088, 1.0142, 1.0232, 1.0395, 1.0710, 1.1382, & +1.0025, 1.0028, 1.0053, 1.0079, 1.0118, 1.0196, 1.0326, 1.0570, 1.1064 / +data ((supersat( 1,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +1.0051, 1.0078, 1.0122, 1.0199, 1.0347, 1.0658, 1.1392, 1.3420, 2.0970, & +1.0042, 1.0063, 1.0094, 1.0153, 1.0256, 1.0458, 1.0898, 1.1985, 1.5227, & +1.0036, 1.0048, 1.0077, 1.0120, 1.0197, 1.0338, 1.0625, 1.1272, 1.2957, & +1.0026, 1.0043, 1.0065, 1.0096, 1.0158, 1.0262, 1.0463, 1.0885, 1.1879, & +1.0016, 1.0038, 1.0051, 1.0083, 1.0129, 1.0212, 1.0361, 1.0657, 1.1303, & +1.0016, 1.0028, 1.0044, 1.0070, 1.0109, 1.0173, 1.0291, 1.0511, 1.0964, & +1.0016, 1.0018, 1.0041, 1.0061, 1.0093, 1.0146, 1.0241, 1.0412, 1.0747 / +data ((supersat( 1,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +1.0045, 1.0067, 1.0103, 1.0166, 1.0285, 1.0533, 1.1107, 1.2617, 1.7409, & +1.0033, 1.0052, 1.0079, 1.0126, 1.0208, 1.0368, 1.0711, 1.1534, 1.3806, & +1.0030, 1.0043, 1.0064, 1.0098, 1.0159, 1.0269, 1.0489, 1.0977, 1.2196, & +1.0025, 1.0032, 1.0053, 1.0079, 1.0125, 1.0206, 1.0359, 1.0673, 1.1393, & +1.0018, 1.0030, 1.0043, 1.0066, 1.0102, 1.0165, 1.0277, 1.0495, 1.0959, & +1.0011, 1.0027, 1.0032, 1.0056, 1.0084, 1.0136, 1.0223, 1.0383, 1.0706, & +1.0007, 1.0020, 1.0031, 1.0049, 1.0074, 1.0114, 1.0184, 1.0308, 1.0546 / +data ((supersat( 1,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +1.0039, 1.0058, 1.0089, 1.0142, 1.0243, 1.0449, 1.0921, 1.2129, 1.5658, & +1.0031, 1.0044, 1.0069, 1.0107, 1.0176, 1.0308, 1.0587, 1.1249, 1.3007, & +1.0022, 1.0038, 1.0055, 1.0082, 1.0133, 1.0223, 1.0400, 1.0790, 1.1742, & +1.0020, 1.0029, 1.0043, 1.0065, 1.0103, 1.0169, 1.0290, 1.0537, 1.1095, & +1.0019, 1.0021, 1.0038, 1.0056, 1.0084, 1.0134, 1.0221, 1.0390, 1.0744, & +1.0016, 1.0021, 1.0029, 1.0044, 1.0068, 1.0108, 1.0177, 1.0300, 1.0543, & +1.0011, 1.0020, 1.0021, 1.0041, 1.0060, 1.0089, 1.0145, 1.0240, 1.0418 / +data ((supersat( 1,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +1.0034, 1.0050, 1.0078, 1.0125, 1.0211, 1.0388, 1.0790, 1.1802, 1.4633, & +1.0029, 1.0041, 1.0061, 1.0094, 1.0152, 1.0265, 1.0501, 1.1057, 1.2500, & +1.0023, 1.0031, 1.0048, 1.0072, 1.0114, 1.0190, 1.0339, 1.0663, 1.1447, & +1.0016, 1.0027, 1.0038, 1.0057, 1.0088, 1.0143, 1.0243, 1.0446, 1.0901, & +1.0011, 1.0021, 1.0031, 1.0048, 1.0070, 1.0112, 1.0184, 1.0320, 1.0605, & +1.0011, 1.0013, 1.0028, 1.0037, 1.0058, 1.0090, 1.0145, 1.0244, 1.0436, & +1.0011, 1.0011, 1.0021, 1.0032, 1.0051, 1.0073, 1.0119, 1.0194, 1.0333 / +data ((supersat( 1,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +1.0089, 1.0148, 1.0244, 1.0425, 1.0799, 1.1672, 1.4180, 2.7173, 4.9930, & +1.0079, 1.0121, 1.0195, 1.0331, 1.0594, 1.1160, 1.2566, 1.7249, 4.0324, & +1.0059, 1.0099, 1.0159, 1.0267, 1.0464, 1.0860, 1.1759, 1.4206, 2.5576, & +1.0054, 1.0087, 1.0134, 1.0221, 1.0374, 1.0669, 1.1293, 1.2809, 1.7663, & +1.0050, 1.0074, 1.0117, 1.0187, 1.0309, 1.0536, 1.0996, 1.2028, 1.4823, & +1.0043, 1.0055, 1.0093, 1.0157, 1.0258, 1.0440, 1.0791, 1.1536, 1.3361, & +1.0031, 1.0053, 1.0085, 1.0131, 1.0218, 1.0363, 1.0641, 1.1201, 1.2477 / +data ((supersat( 1,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +1.0070, 1.0113, 1.0182, 1.0311, 1.0569, 1.1145, 1.2650, 1.8093, 3.7223, & +1.0061, 1.0093, 1.0146, 1.0241, 1.0423, 1.0800, 1.1680, 1.4179, 2.5985, & +1.0043, 1.0073, 1.0120, 1.0193, 1.0330, 1.0595, 1.1169, 1.2592, 1.7248, & +1.0040, 1.0066, 1.0101, 1.0161, 1.0266, 1.0464, 1.0868, 1.1783, 1.4269, & +1.0038, 1.0052, 1.0083, 1.0134, 1.0221, 1.0374, 1.0674, 1.1312, 1.2866, & +1.0033, 1.0040, 1.0072, 1.0113, 1.0186, 1.0309, 1.0541, 1.1010, 1.2070, & +1.0026, 1.0039, 1.0065, 1.0099, 1.0157, 1.0257, 1.0441, 1.0800, 1.1566 / +data ((supersat( 1,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +1.0056, 1.0088, 1.0142, 1.0238, 1.0426, 1.0834, 1.1842, 1.4889, 2.7425, & +1.0049, 1.0072, 1.0111, 1.0183, 1.0315, 1.0581, 1.1181, 1.2744, 1.8204, & +1.0036, 1.0057, 1.0090, 1.0146, 1.0244, 1.0432, 1.0823, 1.1744, 1.4335, & +1.0028, 1.0052, 1.0078, 1.0119, 1.0195, 1.0336, 1.0612, 1.1211, 1.2703, & +1.0027, 1.0040, 1.0059, 1.0102, 1.0163, 1.0271, 1.0477, 1.0897, 1.1859, & +1.0026, 1.0028, 1.0056, 1.0085, 1.0138, 1.0224, 1.0384, 1.0696, 1.1365, & +1.0023, 1.0027, 1.0049, 1.0074, 1.0114, 1.0188, 1.0315, 1.0555, 1.1047 / +data ((supersat( 1,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +1.0046, 1.0072, 1.0114, 1.0190, 1.0335, 1.0642, 1.1377, 1.3410, 2.0967, & +1.0040, 1.0059, 1.0090, 1.0145, 1.0245, 1.0444, 1.0883, 1.1972, 1.5218, & +1.0032, 1.0044, 1.0070, 1.0116, 1.0188, 1.0327, 1.0611, 1.1257, 1.2945, & +1.0021, 1.0041, 1.0061, 1.0094, 1.0150, 1.0253, 1.0451, 1.0870, 1.1865, & +1.0016, 1.0034, 1.0045, 1.0076, 1.0122, 1.0203, 1.0350, 1.0643, 1.1288, & +1.0016, 1.0024, 1.0043, 1.0067, 1.0103, 1.0168, 1.0282, 1.0499, 1.0949, & +1.0016, 1.0016, 1.0039, 1.0056, 1.0089, 1.0141, 1.0232, 1.0400, 1.0732 / +data ((supersat( 1,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +1.0041, 1.0062, 1.0095, 1.0157, 1.0274, 1.0519, 1.1093, 1.2607, 1.7405, & +1.0031, 1.0050, 1.0074, 1.0118, 1.0199, 1.0356, 1.0696, 1.1521, 1.3798, & +1.0028, 1.0038, 1.0058, 1.0094, 1.0152, 1.0259, 1.0477, 1.0963, 1.2185, & +1.0022, 1.0032, 1.0050, 1.0076, 1.0120, 1.0199, 1.0347, 1.0659, 1.1380, & +1.0015, 1.0029, 1.0039, 1.0060, 1.0098, 1.0159, 1.0268, 1.0483, 1.0945, & +1.0009, 1.0024, 1.0032, 1.0054, 1.0080, 1.0129, 1.0214, 1.0373, 1.0693, & +1.0006, 1.0017, 1.0031, 1.0045, 1.0070, 1.0107, 1.0176, 1.0299, 1.0534 / +data ((supersat( 1,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +1.0037, 1.0054, 1.0083, 1.0134, 1.0232, 1.0436, 1.0909, 1.2120, 1.5654, & +1.0028, 1.0041, 1.0063, 1.0100, 1.0167, 1.0296, 1.0574, 1.1237, 1.2999, & +1.0021, 1.0035, 1.0051, 1.0079, 1.0126, 1.0213, 1.0388, 1.0776, 1.1731, & +1.0020, 1.0025, 1.0041, 1.0063, 1.0099, 1.0161, 1.0280, 1.0524, 1.1082, & +1.0018, 1.0021, 1.0035, 1.0051, 1.0081, 1.0127, 1.0213, 1.0379, 1.0732, & +1.0014, 1.0020, 1.0025, 1.0043, 1.0065, 1.0104, 1.0169, 1.0290, 1.0531, & +1.0009, 1.0019, 1.0021, 1.0038, 1.0057, 1.0086, 1.0139, 1.0231, 1.0407 / +data ((supersat( 1,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +1.0030, 1.0047, 1.0073, 1.0118, 1.0201, 1.0376, 1.0777, 1.1793, 1.4630, & +1.0026, 1.0037, 1.0056, 1.0088, 1.0144, 1.0254, 1.0489, 1.1045, 1.2492, & +1.0020, 1.0030, 1.0045, 1.0067, 1.0108, 1.0181, 1.0328, 1.0650, 1.1437, & +1.0013, 1.0025, 1.0034, 1.0053, 1.0084, 1.0136, 1.0234, 1.0434, 1.0889, & +1.0011, 1.0018, 1.0030, 1.0045, 1.0068, 1.0106, 1.0176, 1.0310, 1.0593, & +1.0011, 1.0011, 1.0026, 1.0033, 1.0053, 1.0087, 1.0139, 1.0235, 1.0425, & +1.0010, 1.0011, 1.0018, 1.0031, 1.0048, 1.0071, 1.0113, 1.0186, 1.0323 / +data ((supersat( 1,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +1.0088, 1.0143, 1.0237, 1.0415, 1.0786, 1.1659, 1.4168, 2.7165, 4.9924, & +1.0075, 1.0117, 1.0188, 1.0322, 1.0583, 1.1146, 1.2553, 1.7239, 4.0311, & +1.0055, 1.0092, 1.0156, 1.0258, 1.0453, 1.0848, 1.1745, 1.4193, 2.5563, & +1.0053, 1.0085, 1.0127, 1.0215, 1.0364, 1.0657, 1.1279, 1.2795, 1.7648, & +1.0049, 1.0069, 1.0113, 1.0181, 1.0299, 1.0525, 1.0982, 1.2012, 1.4806, & +1.0039, 1.0054, 1.0090, 1.0153, 1.0251, 1.0429, 1.0778, 1.1520, 1.3343, & +1.0028, 1.0052, 1.0082, 1.0124, 1.0211, 1.0355, 1.0628, 1.1184, 1.2457 / +data ((supersat( 1,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +1.0069, 1.0107, 1.0176, 1.0302, 1.0557, 1.1132, 1.2639, 1.8086, 3.7216, & +1.0057, 1.0088, 1.0140, 1.0235, 1.0413, 1.0787, 1.1668, 1.4169, 2.5977, & +1.0041, 1.0072, 1.0115, 1.0188, 1.0322, 1.0584, 1.1156, 1.2581, 1.7238, & +1.0039, 1.0063, 1.0098, 1.0156, 1.0258, 1.0455, 1.0856, 1.1771, 1.4257, & +1.0037, 1.0047, 1.0077, 1.0131, 1.0215, 1.0367, 1.0663, 1.1299, 1.2852, & +1.0031, 1.0040, 1.0070, 1.0106, 1.0180, 1.0301, 1.0530, 1.0997, 1.2055, & +1.0023, 1.0038, 1.0061, 1.0095, 1.0152, 1.0251, 1.0432, 1.0788, 1.1550 / +data ((supersat( 1,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +1.0054, 1.0083, 1.0135, 1.0229, 1.0415, 1.0822, 1.1831, 1.4884, 2.7420, & +1.0046, 1.0068, 1.0108, 1.0177, 1.0306, 1.0571, 1.1170, 1.2735, 1.8195, & +1.0031, 1.0056, 1.0086, 1.0140, 1.0237, 1.0422, 1.0812, 1.1733, 1.4328, & +1.0028, 1.0049, 1.0074, 1.0114, 1.0191, 1.0328, 1.0601, 1.1200, 1.2693, & +1.0027, 1.0036, 1.0058, 1.0097, 1.0158, 1.0265, 1.0467, 1.0886, 1.1847, & +1.0025, 1.0028, 1.0054, 1.0083, 1.0133, 1.0218, 1.0375, 1.0685, 1.1352, & +1.0022, 1.0027, 1.0046, 1.0070, 1.0112, 1.0182, 1.0307, 1.0546, 1.1034 / +data ((supersat( 1,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +1.0043, 1.0067, 1.0110, 1.0183, 1.0325, 1.0631, 1.1367, 1.3403, 2.0962, & +1.0038, 1.0056, 1.0087, 1.0138, 1.0238, 1.0435, 1.0872, 1.1963, 1.5213, & +1.0029, 1.0043, 1.0069, 1.0111, 1.0182, 1.0319, 1.0601, 1.1247, 1.2937, & +1.0018, 1.0040, 1.0058, 1.0091, 1.0144, 1.0246, 1.0442, 1.0860, 1.1855, & +1.0016, 1.0031, 1.0044, 1.0071, 1.0119, 1.0197, 1.0342, 1.0633, 1.1277, & +1.0016, 1.0020, 1.0042, 1.0065, 1.0098, 1.0163, 1.0275, 1.0490, 1.0938, & +1.0016, 1.0016, 1.0037, 1.0052, 1.0086, 1.0137, 1.0225, 1.0391, 1.0721 / +data ((supersat( 1,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +1.0038, 1.0058, 1.0092, 1.0151, 1.0266, 1.0509, 1.1083, 1.2601, 1.7402, & +1.0030, 1.0047, 1.0072, 1.0114, 1.0192, 1.0347, 1.0686, 1.1512, 1.3793, & +1.0027, 1.0035, 1.0055, 1.0090, 1.0146, 1.0252, 1.0467, 1.0953, 1.2178, & +1.0020, 1.0031, 1.0048, 1.0073, 1.0116, 1.0192, 1.0340, 1.0650, 1.1370, & +1.0013, 1.0028, 1.0035, 1.0057, 1.0095, 1.0153, 1.0261, 1.0474, 1.0935, & +1.0007, 1.0022, 1.0032, 1.0052, 1.0078, 1.0125, 1.0209, 1.0365, 1.0683, & +1.0006, 1.0015, 1.0030, 1.0042, 1.0066, 1.0103, 1.0171, 1.0292, 1.0525 / +data ((supersat( 1,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +1.0035, 1.0051, 1.0078, 1.0129, 1.0225, 1.0426, 1.0898, 1.2114, 1.5651, & +1.0025, 1.0040, 1.0060, 1.0096, 1.0161, 1.0288, 1.0564, 1.1229, 1.2994, & +1.0021, 1.0032, 1.0048, 1.0076, 1.0121, 1.0206, 1.0380, 1.0767, 1.1724, & +1.0019, 1.0022, 1.0040, 1.0061, 1.0095, 1.0156, 1.0273, 1.0516, 1.1074, & +1.0016, 1.0021, 1.0032, 1.0047, 1.0077, 1.0123, 1.0207, 1.0372, 1.0723, & +1.0012, 1.0020, 1.0022, 1.0042, 1.0064, 1.0101, 1.0164, 1.0283, 1.0522, & +1.0008, 1.0018, 1.0021, 1.0036, 1.0053, 1.0084, 1.0134, 1.0225, 1.0399 / +data ((supersat( 1,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +1.0030, 1.0045, 1.0069, 1.0112, 1.0195, 1.0368, 1.0769, 1.1787, 1.4627, & +1.0025, 1.0034, 1.0053, 1.0083, 1.0139, 1.0247, 1.0480, 1.1038, 1.2487, & +1.0018, 1.0029, 1.0043, 1.0065, 1.0103, 1.0175, 1.0320, 1.0642, 1.1430, & +1.0011, 1.0023, 1.0032, 1.0051, 1.0081, 1.0131, 1.0227, 1.0426, 1.0881, & +1.0011, 1.0016, 1.0029, 1.0042, 1.0065, 1.0103, 1.0171, 1.0303, 1.0584, & +1.0011, 1.0011, 1.0024, 1.0032, 1.0052, 1.0084, 1.0135, 1.0229, 1.0417, & +1.0011, 1.0011, 1.0016, 1.0030, 1.0046, 1.0069, 1.0109, 1.0181, 1.0316 / +data ((supersat( 2,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +1.0106, 1.0161, 1.0261, 1.0441, 1.0808, 1.1669, 1.4170, 2.7133, 4.9906, & +1.0087, 1.0132, 1.0212, 1.0347, 1.0608, 1.1164, 1.2559, 1.7237, 4.0288, & +1.0074, 1.0114, 1.0175, 1.0283, 1.0479, 1.0870, 1.1758, 1.4200, 2.5549, & +1.0055, 1.0092, 1.0150, 1.0235, 1.0390, 1.0683, 1.1299, 1.2807, 1.7658, & +1.0054, 1.0085, 1.0126, 1.0198, 1.0326, 1.0554, 1.1008, 1.2031, 1.4825, & +1.0050, 1.0070, 1.0111, 1.0169, 1.0274, 1.0459, 1.0807, 1.1545, 1.3364, & +1.0043, 1.0055, 1.0091, 1.0149, 1.0232, 1.0385, 1.0661, 1.1216, 1.2485 / +data ((supersat( 2,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +1.0082, 1.0126, 1.0198, 1.0327, 1.0582, 1.1147, 1.2642, 1.8075, 3.7194, & +1.0069, 1.0102, 1.0159, 1.0257, 1.0438, 1.0809, 1.1678, 1.4173, 2.5959, & +1.0057, 1.0085, 1.0132, 1.0209, 1.0345, 1.0609, 1.1173, 1.2588, 1.7239, & +1.0041, 1.0072, 1.0107, 1.0172, 1.0282, 1.0480, 1.0878, 1.1785, 1.4267, & +1.0040, 1.0064, 1.0096, 1.0146, 1.0234, 1.0391, 1.0689, 1.1319, 1.2865, & +1.0038, 1.0049, 1.0075, 1.0128, 1.0199, 1.0324, 1.0557, 1.1022, 1.2075, & +1.0034, 1.0040, 1.0071, 1.0106, 1.0169, 1.0275, 1.0461, 1.0817, 1.1576 / +data ((supersat( 2,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +1.0067, 1.0101, 1.0157, 1.0254, 1.0441, 1.0840, 1.1837, 1.4882, 2.7399, & +1.0055, 1.0082, 1.0125, 1.0198, 1.0331, 1.0594, 1.1183, 1.2739, 1.8188, & +1.0047, 1.0066, 1.0103, 1.0160, 1.0261, 1.0446, 1.0832, 1.1742, 1.4332, & +1.0033, 1.0056, 1.0086, 1.0133, 1.0211, 1.0351, 1.0625, 1.1216, 1.2700, & +1.0028, 1.0050, 1.0073, 1.0112, 1.0174, 1.0286, 1.0491, 1.0907, 1.1861, & +1.0027, 1.0038, 1.0059, 1.0092, 1.0146, 1.0239, 1.0400, 1.0710, 1.1372, & +1.0026, 1.0028, 1.0056, 1.0084, 1.0127, 1.0201, 1.0332, 1.0573, 1.1060 / +data ((supersat( 2,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +1.0057, 1.0084, 1.0129, 1.0205, 1.0350, 1.0652, 1.1376, 1.3405, 2.0945, & +1.0044, 1.0067, 1.0102, 1.0159, 1.0261, 1.0458, 1.0888, 1.1968, 1.5214, & +1.0039, 1.0055, 1.0083, 1.0127, 1.0203, 1.0342, 1.0622, 1.1259, 1.2942, & +1.0031, 1.0044, 1.0068, 1.0104, 1.0164, 1.0268, 1.0465, 1.0878, 1.1864, & +1.0022, 1.0041, 1.0058, 1.0088, 1.0136, 1.0217, 1.0365, 1.0656, 1.1293, & +1.0016, 1.0034, 1.0045, 1.0072, 1.0115, 1.0180, 1.0296, 1.0513, 1.0959, & +1.0016, 1.0023, 1.0043, 1.0066, 1.0097, 1.0151, 1.0247, 1.0417, 1.0746 / +data ((supersat( 2,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +1.0049, 1.0071, 1.0109, 1.0172, 1.0290, 1.0531, 1.1094, 1.2603, 1.7391, & +1.0039, 1.0055, 1.0086, 1.0132, 1.0214, 1.0371, 1.0704, 1.1519, 1.3794, & +1.0031, 1.0047, 1.0070, 1.0104, 1.0165, 1.0274, 1.0489, 1.0968, 1.2182, & +1.0028, 1.0035, 1.0055, 1.0084, 1.0132, 1.0212, 1.0363, 1.0670, 1.1381, & +1.0023, 1.0031, 1.0048, 1.0072, 1.0108, 1.0170, 1.0282, 1.0497, 1.0952, & +1.0016, 1.0029, 1.0036, 1.0057, 1.0091, 1.0142, 1.0229, 1.0387, 1.0705, & +1.0009, 1.0025, 1.0032, 1.0053, 1.0078, 1.0120, 1.0190, 1.0314, 1.0549 / +data ((supersat( 2,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +1.0042, 1.0062, 1.0095, 1.0149, 1.0248, 1.0448, 1.0911, 1.2116, 1.5646, & +1.0035, 1.0050, 1.0074, 1.0113, 1.0182, 1.0311, 1.0584, 1.1237, 1.2997, & +1.0027, 1.0041, 1.0059, 1.0089, 1.0138, 1.0228, 1.0402, 1.0783, 1.1730, & +1.0020, 1.0034, 1.0046, 1.0072, 1.0110, 1.0175, 1.0295, 1.0536, 1.1085, & +1.0019, 1.0023, 1.0041, 1.0060, 1.0088, 1.0140, 1.0227, 1.0393, 1.0741, & +1.0018, 1.0021, 1.0034, 1.0047, 1.0074, 1.0114, 1.0183, 1.0305, 1.0544, & +1.0015, 1.0020, 1.0024, 1.0042, 1.0064, 1.0096, 1.0150, 1.0246, 1.0422 / +data ((supersat( 2,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +1.0039, 1.0056, 1.0083, 1.0131, 1.0217, 1.0389, 1.0781, 1.1790, 1.4626, & +1.0029, 1.0045, 1.0065, 1.0099, 1.0159, 1.0269, 1.0500, 1.1047, 1.2490, & +1.0026, 1.0035, 1.0050, 1.0078, 1.0120, 1.0196, 1.0342, 1.0658, 1.1436, & +1.0020, 1.0030, 1.0043, 1.0063, 1.0094, 1.0149, 1.0248, 1.0447, 1.0894, & +1.0014, 1.0025, 1.0033, 1.0051, 1.0076, 1.0118, 1.0190, 1.0324, 1.0603, & +1.0009, 1.0018, 1.0030, 1.0043, 1.0063, 1.0095, 1.0151, 1.0249, 1.0438, & +1.0009, 1.0011, 1.0025, 1.0033, 1.0052, 1.0080, 1.0124, 1.0200, 1.0338 / +data ((supersat( 2,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +1.0089, 1.0146, 1.0240, 1.0417, 1.0780, 1.1645, 1.4154, 2.7117, 4.9895, & +1.0079, 1.0120, 1.0191, 1.0324, 1.0581, 1.1137, 1.2538, 1.7219, 4.0268, & +1.0057, 1.0097, 1.0158, 1.0261, 1.0454, 1.0843, 1.1733, 1.4179, 2.5518, & +1.0054, 1.0087, 1.0132, 1.0219, 1.0367, 1.0655, 1.1271, 1.2781, 1.7632, & +1.0050, 1.0073, 1.0116, 1.0185, 1.0303, 1.0527, 1.0978, 1.2002, 1.4795, & +1.0043, 1.0055, 1.0092, 1.0156, 1.0255, 1.0432, 1.0777, 1.1513, 1.3330, & +1.0031, 1.0052, 1.0085, 1.0129, 1.0215, 1.0359, 1.0629, 1.1180, 1.2447 / +data ((supersat( 2,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +1.0070, 1.0111, 1.0179, 1.0304, 1.0555, 1.1122, 1.2625, 1.8066, 3.7184, & +1.0060, 1.0092, 1.0144, 1.0237, 1.0414, 1.0782, 1.1656, 1.4158, 2.5939, & +1.0042, 1.0073, 1.0119, 1.0191, 1.0324, 1.0583, 1.1149, 1.2569, 1.7221, & +1.0040, 1.0066, 1.0100, 1.0159, 1.0262, 1.0456, 1.0852, 1.1761, 1.4247, & +1.0038, 1.0052, 1.0082, 1.0134, 1.0218, 1.0369, 1.0663, 1.1292, 1.2841, & +1.0033, 1.0040, 1.0072, 1.0111, 1.0184, 1.0305, 1.0531, 1.0994, 1.2046, & +1.0026, 1.0040, 1.0064, 1.0098, 1.0156, 1.0255, 1.0435, 1.0787, 1.1544 / +data ((supersat( 2,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +1.0055, 1.0086, 1.0139, 1.0232, 1.0415, 1.0815, 1.1819, 1.4874, 2.7394, & +1.0048, 1.0072, 1.0110, 1.0181, 1.0308, 1.0568, 1.1161, 1.2725, 1.8175, & +1.0035, 1.0057, 1.0088, 1.0144, 1.0240, 1.0423, 1.0807, 1.1723, 1.4319, & +1.0028, 1.0051, 1.0077, 1.0117, 1.0194, 1.0330, 1.0600, 1.1193, 1.2683, & +1.0027, 1.0040, 1.0059, 1.0100, 1.0162, 1.0268, 1.0468, 1.0882, 1.1839, & +1.0026, 1.0027, 1.0056, 1.0085, 1.0136, 1.0222, 1.0378, 1.0684, 1.1347, & +1.0023, 1.0027, 1.0049, 1.0074, 1.0114, 1.0186, 1.0310, 1.0547, 1.1032 / +data ((supersat( 2,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +1.0045, 1.0071, 1.0112, 1.0186, 1.0327, 1.0627, 1.1357, 1.3395, 2.0938, & +1.0040, 1.0059, 1.0089, 1.0142, 1.0241, 1.0434, 1.0866, 1.1953, 1.5205, & +1.0032, 1.0044, 1.0070, 1.0114, 1.0185, 1.0320, 1.0598, 1.1239, 1.2929, & +1.0021, 1.0041, 1.0061, 1.0093, 1.0148, 1.0249, 1.0442, 1.0855, 1.1846, & +1.0016, 1.0034, 1.0045, 1.0075, 1.0121, 1.0200, 1.0345, 1.0632, 1.1271, & +1.0016, 1.0024, 1.0043, 1.0067, 1.0101, 1.0166, 1.0278, 1.0491, 1.0935, & +1.0015, 1.0016, 1.0039, 1.0055, 1.0089, 1.0140, 1.0229, 1.0394, 1.0721 / +data ((supersat( 2,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +1.0041, 1.0061, 1.0094, 1.0154, 1.0266, 1.0507, 1.1076, 1.2594, 1.7385, & +1.0031, 1.0049, 1.0074, 1.0117, 1.0195, 1.0348, 1.0682, 1.1504, 1.3787, & +1.0028, 1.0038, 1.0058, 1.0093, 1.0149, 1.0254, 1.0467, 1.0947, 1.2170, & +1.0022, 1.0031, 1.0050, 1.0075, 1.0119, 1.0196, 1.0342, 1.0648, 1.1363, & +1.0015, 1.0029, 1.0038, 1.0060, 1.0097, 1.0157, 1.0264, 1.0475, 1.0931, & +1.0009, 1.0024, 1.0032, 1.0053, 1.0080, 1.0127, 1.0212, 1.0367, 1.0682, & +1.0006, 1.0017, 1.0031, 1.0045, 1.0069, 1.0106, 1.0173, 1.0295, 1.0526 / +data ((supersat( 2,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +1.0036, 1.0054, 1.0082, 1.0132, 1.0227, 1.0426, 1.0892, 1.2107, 1.5642, & +1.0028, 1.0041, 1.0062, 1.0099, 1.0164, 1.0290, 1.0562, 1.1222, 1.2989, & +1.0021, 1.0035, 1.0051, 1.0078, 1.0124, 1.0209, 1.0380, 1.0763, 1.1718, & +1.0020, 1.0025, 1.0041, 1.0062, 1.0098, 1.0159, 1.0275, 1.0515, 1.1068, & +1.0018, 1.0021, 1.0035, 1.0051, 1.0080, 1.0125, 1.0210, 1.0373, 1.0720, & +1.0014, 1.0020, 1.0025, 1.0043, 1.0065, 1.0104, 1.0167, 1.0286, 1.0522, & +1.0009, 1.0019, 1.0021, 1.0038, 1.0056, 1.0086, 1.0138, 1.0228, 1.0401 / +data ((supersat( 2,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +1.0030, 1.0047, 1.0072, 1.0116, 1.0198, 1.0368, 1.0764, 1.1781, 1.4621, & +1.0026, 1.0037, 1.0056, 1.0087, 1.0142, 1.0249, 1.0479, 1.1032, 1.2483, & +1.0020, 1.0030, 1.0045, 1.0067, 1.0107, 1.0178, 1.0321, 1.0639, 1.1424, & +1.0013, 1.0025, 1.0033, 1.0052, 1.0083, 1.0134, 1.0230, 1.0426, 1.0876, & +1.0011, 1.0018, 1.0030, 1.0045, 1.0067, 1.0105, 1.0174, 1.0305, 1.0583, & +1.0011, 1.0011, 1.0026, 1.0033, 1.0053, 1.0086, 1.0138, 1.0232, 1.0418, & +1.0011, 1.0011, 1.0018, 1.0031, 1.0047, 1.0071, 1.0111, 1.0184, 1.0319 / +data ((supersat( 2,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +1.0083, 1.0130, 1.0219, 1.0391, 1.0753, 1.1622, 1.4139, 2.7103, 4.9885, & +1.0065, 1.0108, 1.0177, 1.0303, 1.0555, 1.1111, 1.2518, 1.7203, 4.0242, & +1.0054, 1.0089, 1.0146, 1.0244, 1.0431, 1.0816, 1.1708, 1.4158, 2.5489, & +1.0051, 1.0078, 1.0122, 1.0200, 1.0346, 1.0629, 1.1244, 1.2755, 1.7601, & +1.0043, 1.0057, 1.0101, 1.0166, 1.0283, 1.0501, 1.0948, 1.1972, 1.4763, & +1.0032, 1.0053, 1.0086, 1.0141, 1.0234, 1.0407, 1.0746, 1.1479, 1.3294, & +1.0023, 1.0047, 1.0074, 1.0117, 1.0192, 1.0333, 1.0597, 1.1143, 1.2404 / +data ((supersat( 2,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +1.0063, 1.0098, 1.0162, 1.0283, 1.0530, 1.1099, 1.2611, 1.8055, 3.7170, & +1.0047, 1.0078, 1.0129, 1.0217, 1.0391, 1.0758, 1.1636, 1.4144, 2.5925, & +1.0040, 1.0068, 1.0104, 1.0176, 1.0303, 1.0559, 1.1125, 1.2550, 1.7205, & +1.0038, 1.0055, 1.0090, 1.0144, 1.0244, 1.0433, 1.0827, 1.1737, 1.4227, & +1.0033, 1.0040, 1.0073, 1.0122, 1.0199, 1.0346, 1.0637, 1.1266, 1.2816, & +1.0025, 1.0039, 1.0066, 1.0102, 1.0166, 1.0284, 1.0506, 1.0965, 1.2017, & +1.0018, 1.0036, 1.0053, 1.0086, 1.0137, 1.0234, 1.0409, 1.0757, 1.1511 / +data ((supersat( 2,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +1.0050, 1.0078, 1.0125, 1.0214, 1.0392, 1.0793, 1.1804, 1.4865, 2.7381, & +1.0038, 1.0058, 1.0100, 1.0163, 1.0288, 1.0545, 1.1141, 1.2712, 1.8169, & +1.0027, 1.0053, 1.0081, 1.0132, 1.0222, 1.0401, 1.0785, 1.1704, 1.4306, & +1.0027, 1.0042, 1.0065, 1.0109, 1.0179, 1.0311, 1.0577, 1.1171, 1.2665, & +1.0026, 1.0028, 1.0057, 1.0087, 1.0145, 1.0249, 1.0446, 1.0859, 1.1817, & +1.0023, 1.0027, 1.0050, 1.0078, 1.0122, 1.0204, 1.0356, 1.0659, 1.1321, & +1.0018, 1.0026, 1.0038, 1.0060, 1.0104, 1.0168, 1.0291, 1.0521, 1.1003 / +data ((supersat( 2,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +1.0040, 1.0063, 1.0100, 1.0169, 1.0305, 1.0605, 1.1342, 1.3388, 2.0929, & +1.0033, 1.0048, 1.0079, 1.0129, 1.0222, 1.0413, 1.0845, 1.1941, 1.5197, & +1.0023, 1.0042, 1.0065, 1.0102, 1.0170, 1.0301, 1.0577, 1.1221, 1.2917, & +1.0016, 1.0035, 1.0050, 1.0084, 1.0136, 1.0232, 1.0422, 1.0834, 1.1830, & +1.0016, 1.0025, 1.0043, 1.0069, 1.0112, 1.0186, 1.0325, 1.0610, 1.1251, & +1.0016, 1.0016, 1.0039, 1.0059, 1.0093, 1.0151, 1.0260, 1.0469, 1.0912, & +1.0015, 1.0016, 1.0032, 1.0044, 1.0076, 1.0125, 1.0213, 1.0373, 1.0696 / +data ((supersat( 2,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +1.0031, 1.0052, 1.0083, 1.0139, 1.0248, 1.0485, 1.1060, 1.2586, 1.7381, & +1.0028, 1.0041, 1.0065, 1.0105, 1.0178, 1.0328, 1.0662, 1.1491, 1.3780, & +1.0023, 1.0031, 1.0052, 1.0081, 1.0135, 1.0236, 1.0446, 1.0930, 1.2159, & +1.0015, 1.0029, 1.0042, 1.0067, 1.0106, 1.0180, 1.0322, 1.0627, 1.1348, & +1.0009, 1.0024, 1.0032, 1.0055, 1.0087, 1.0143, 1.0247, 1.0454, 1.0912, & +1.0006, 1.0017, 1.0031, 1.0047, 1.0073, 1.0118, 1.0196, 1.0348, 1.0661, & +1.0006, 1.0011, 1.0027, 1.0034, 1.0057, 1.0098, 1.0161, 1.0276, 1.0504 / +data ((supersat( 2,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +1.0030, 1.0044, 1.0071, 1.0118, 1.0209, 1.0405, 1.0877, 1.2099, 1.5637, & +1.0021, 1.0037, 1.0055, 1.0088, 1.0148, 1.0271, 1.0543, 1.1209, 1.2982, & +1.0020, 1.0027, 1.0042, 1.0068, 1.0112, 1.0193, 1.0361, 1.0745, 1.1707, & +1.0017, 1.0021, 1.0037, 1.0055, 1.0086, 1.0145, 1.0257, 1.0495, 1.1053, & +1.0013, 1.0020, 1.0027, 1.0043, 1.0070, 1.0115, 1.0195, 1.0354, 1.0702, & +1.0009, 1.0018, 1.0021, 1.0039, 1.0059, 1.0093, 1.0154, 1.0269, 1.0503, & +1.0006, 1.0015, 1.0020, 1.0031, 1.0046, 1.0078, 1.0125, 1.0213, 1.0381 / +data ((supersat( 2,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +1.0027, 1.0040, 1.0062, 1.0103, 1.0181, 1.0349, 1.0749, 1.1773, 1.4616, & +1.0021, 1.0030, 1.0048, 1.0076, 1.0127, 1.0231, 1.0460, 1.1019, 1.2477, & +1.0013, 1.0026, 1.0037, 1.0059, 1.0095, 1.0163, 1.0303, 1.0622, 1.1414, & +1.0011, 1.0019, 1.0031, 1.0047, 1.0073, 1.0121, 1.0213, 1.0408, 1.0861, & +1.0011, 1.0011, 1.0026, 1.0036, 1.0059, 1.0095, 1.0159, 1.0288, 1.0565, & +1.0011, 1.0011, 1.0019, 1.0031, 1.0049, 1.0076, 1.0125, 1.0216, 1.0400, & +1.0010, 1.0011, 1.0012, 1.0028, 1.0040, 1.0064, 1.0102, 1.0170, 1.0301 / +data ((supersat( 2,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +1.0073, 1.0118, 1.0204, 1.0370, 1.0731, 1.1604, 1.4126, 2.7080, 4.9873, & +1.0054, 1.0093, 1.0161, 1.0283, 1.0533, 1.1089, 1.2500, 1.7186, 4.0215, & +1.0051, 1.0082, 1.0131, 1.0226, 1.0409, 1.0793, 1.1686, 1.4138, 2.5462, & +1.0044, 1.0064, 1.0112, 1.0185, 1.0324, 1.0605, 1.1218, 1.2731, 1.7572, & +1.0033, 1.0053, 1.0088, 1.0153, 1.0263, 1.0477, 1.0921, 1.1942, 1.4729, & +1.0023, 1.0048, 1.0078, 1.0122, 1.0215, 1.0382, 1.0716, 1.1445, 1.3255, & +1.0018, 1.0039, 1.0060, 1.0103, 1.0175, 1.0308, 1.0565, 1.1104, 1.2358 / +data ((supersat( 2,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +1.0054, 1.0089, 1.0149, 1.0263, 1.0509, 1.1081, 1.2598, 1.8046, 3.7161, & +1.0040, 1.0067, 1.0119, 1.0203, 1.0371, 1.0737, 1.1619, 1.4132, 2.5909, & +1.0038, 1.0061, 1.0097, 1.0161, 1.0286, 1.0538, 1.1104, 1.2533, 1.7189, & +1.0034, 1.0048, 1.0076, 1.0132, 1.0227, 1.0413, 1.0805, 1.1717, 1.4207, & +1.0026, 1.0034, 1.0068, 1.0107, 1.0186, 1.0328, 1.0614, 1.1242, 1.2792, & +1.0018, 1.0033, 1.0056, 1.0092, 1.0153, 1.0265, 1.0482, 1.0937, 1.1988, & +1.0014, 1.0029, 1.0041, 1.0071, 1.0125, 1.0215, 1.0385, 1.0726, 1.1477 / +data ((supersat( 2,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +1.0043, 1.0068, 1.0112, 1.0197, 1.0373, 1.0774, 1.1792, 1.4855, 2.7372, & +1.0028, 1.0055, 1.0087, 1.0151, 1.0271, 1.0526, 1.1124, 1.2701, 1.8159, & +1.0027, 1.0046, 1.0073, 1.0119, 1.0207, 1.0382, 1.0765, 1.1689, 1.4294, & +1.0026, 1.0032, 1.0057, 1.0098, 1.0164, 1.0293, 1.0557, 1.1152, 1.2649, & +1.0023, 1.0027, 1.0052, 1.0082, 1.0135, 1.0234, 1.0426, 1.0837, 1.1797, & +1.0018, 1.0026, 1.0042, 1.0067, 1.0111, 1.0189, 1.0337, 1.0636, 1.1297, & +1.0013, 1.0023, 1.0029, 1.0054, 1.0090, 1.0155, 1.0270, 1.0498, 1.0975 / +data ((supersat( 2,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +1.0036, 1.0055, 1.0088, 1.0153, 1.0287, 1.0587, 1.1330, 1.3381, 2.0927, & +1.0025, 1.0042, 1.0068, 1.0115, 1.0206, 1.0394, 1.0829, 1.1930, 1.5189, & +1.0016, 1.0037, 1.0057, 1.0091, 1.0157, 1.0284, 1.0559, 1.1206, 1.2908, & +1.0016, 1.0027, 1.0044, 1.0072, 1.0123, 1.0216, 1.0404, 1.0817, 1.1816, & +1.0016, 1.0016, 1.0040, 1.0063, 1.0100, 1.0171, 1.0307, 1.0591, 1.1233, & +1.0015, 1.0016, 1.0033, 1.0048, 1.0084, 1.0140, 1.0243, 1.0449, 1.0891, & +1.0013, 1.0016, 1.0024, 1.0041, 1.0067, 1.0114, 1.0196, 1.0353, 1.0673 / +data ((supersat( 2,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +1.0029, 1.0046, 1.0073, 1.0125, 1.0231, 1.0468, 1.1048, 1.2579, 1.7377, & +1.0024, 1.0032, 1.0055, 1.0093, 1.0164, 1.0310, 1.0646, 1.1481, 1.3774, & +1.0017, 1.0030, 1.0046, 1.0073, 1.0123, 1.0221, 1.0429, 1.0916, 1.2151, & +1.0009, 1.0025, 1.0032, 1.0056, 1.0097, 1.0166, 1.0306, 1.0611, 1.1335, & +1.0006, 1.0018, 1.0031, 1.0050, 1.0078, 1.0132, 1.0231, 1.0437, 1.0896, & +1.0006, 1.0012, 1.0028, 1.0038, 1.0064, 1.0106, 1.0183, 1.0331, 1.0642, & +1.0006, 1.0008, 1.0022, 1.0031, 1.0053, 1.0087, 1.0146, 1.0259, 1.0484 / +data ((supersat( 2,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +1.0022, 1.0039, 1.0061, 1.0106, 1.0193, 1.0389, 1.0865, 1.2093, 1.5633, & +1.0020, 1.0030, 1.0047, 1.0078, 1.0135, 1.0255, 1.0527, 1.1199, 1.2978, & +1.0018, 1.0021, 1.0039, 1.0060, 1.0100, 1.0179, 1.0345, 1.0732, 1.1699, & +1.0014, 1.0020, 1.0030, 1.0047, 1.0079, 1.0134, 1.0242, 1.0480, 1.1040, & +1.0009, 1.0018, 1.0021, 1.0040, 1.0063, 1.0104, 1.0181, 1.0338, 1.0686, & +1.0007, 1.0015, 1.0020, 1.0033, 1.0052, 1.0084, 1.0142, 1.0254, 1.0486, & +1.0005, 1.0011, 1.0019, 1.0024, 1.0042, 1.0068, 1.0115, 1.0198, 1.0364 / +data ((supersat( 2,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +1.0022, 1.0033, 1.0054, 1.0091, 1.0166, 1.0333, 1.0737, 1.1768, 1.4613, & +1.0015, 1.0027, 1.0042, 1.0066, 1.0116, 1.0216, 1.0446, 1.1010, 1.2473, & +1.0011, 1.0020, 1.0031, 1.0050, 1.0084, 1.0150, 1.0288, 1.0609, 1.1406, & +1.0011, 1.0013, 1.0027, 1.0041, 1.0066, 1.0111, 1.0200, 1.0393, 1.0850, & +1.0011, 1.0011, 1.0021, 1.0032, 1.0051, 1.0086, 1.0148, 1.0273, 1.0551, & +1.0010, 1.0011, 1.0013, 1.0029, 1.0044, 1.0069, 1.0115, 1.0203, 1.0384, & +1.0008, 1.0010, 1.0011, 1.0023, 1.0032, 1.0055, 1.0092, 1.0158, 1.0285 / +data ((supersat( 2,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +1.0066, 1.0113, 1.0195, 1.0359, 1.0720, 1.1595, 1.4120, 2.7073, 4.9867, & +1.0053, 1.0089, 1.0153, 1.0274, 1.0521, 1.1078, 1.2491, 1.7178, 4.0198, & +1.0049, 1.0077, 1.0123, 1.0217, 1.0398, 1.0780, 1.1675, 1.4128, 2.5441, & +1.0040, 1.0056, 1.0104, 1.0178, 1.0314, 1.0593, 1.1205, 1.2718, 1.7553, & +1.0028, 1.0051, 1.0085, 1.0146, 1.0252, 1.0464, 1.0906, 1.1926, 1.4708, & +1.0020, 1.0044, 1.0071, 1.0117, 1.0205, 1.0369, 1.0699, 1.1426, 1.3231, & +1.0017, 1.0034, 1.0052, 1.0094, 1.0164, 1.0293, 1.0547, 1.1082, 1.2330 / +data ((supersat( 2,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +1.0047, 1.0082, 1.0141, 1.0255, 1.0499, 1.1072, 1.2593, 1.8043, 3.7155, & +1.0039, 1.0068, 1.0111, 1.0195, 1.0361, 1.0727, 1.1611, 1.4126, 2.5900, & +1.0037, 1.0055, 1.0092, 1.0155, 1.0275, 1.0528, 1.1094, 1.2525, 1.7181, & +1.0030, 1.0040, 1.0072, 1.0127, 1.0218, 1.0403, 1.0793, 1.1706, 1.4196, & +1.0022, 1.0038, 1.0064, 1.0102, 1.0178, 1.0317, 1.0601, 1.1229, 1.2779, & +1.0016, 1.0034, 1.0050, 1.0086, 1.0145, 1.0253, 1.0469, 1.0922, 1.1972, & +1.0013, 1.0027, 1.0036, 1.0066, 1.0117, 1.0204, 1.0371, 1.0710, 1.1457 / +data ((supersat( 2,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +1.0037, 1.0062, 1.0106, 1.0189, 1.0363, 1.0766, 1.1786, 1.4852, 2.7370, & +1.0028, 1.0052, 1.0083, 1.0144, 1.0262, 1.0516, 1.1116, 1.2695, 1.8153, & +1.0027, 1.0041, 1.0067, 1.0112, 1.0200, 1.0373, 1.0756, 1.1682, 1.4288, & +1.0024, 1.0027, 1.0056, 1.0091, 1.0159, 1.0285, 1.0547, 1.1142, 1.2641, & +1.0020, 1.0027, 1.0048, 1.0078, 1.0129, 1.0224, 1.0416, 1.0826, 1.1786, & +1.0015, 1.0025, 1.0036, 1.0059, 1.0106, 1.0182, 1.0326, 1.0624, 1.1284, & +1.0012, 1.0021, 1.0025, 1.0051, 1.0082, 1.0146, 1.0260, 1.0484, 1.0960 / +data ((supersat( 2,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +1.0032, 1.0049, 1.0084, 1.0147, 1.0278, 1.0579, 1.1324, 1.3378, 2.0924, & +1.0021, 1.0041, 1.0065, 1.0110, 1.0198, 1.0386, 1.0822, 1.1925, 1.5185, & +1.0016, 1.0034, 1.0051, 1.0087, 1.0150, 1.0276, 1.0550, 1.1200, 1.2903, & +1.0016, 1.0022, 1.0042, 1.0069, 1.0117, 1.0208, 1.0395, 1.0808, 1.1810, & +1.0015, 1.0016, 1.0038, 1.0059, 1.0094, 1.0164, 1.0299, 1.0581, 1.1224, & +1.0014, 1.0016, 1.0029, 1.0043, 1.0078, 1.0134, 1.0235, 1.0439, 1.0880, & +1.0012, 1.0014, 1.0021, 1.0039, 1.0064, 1.0108, 1.0187, 1.0342, 1.0660 / +data ((supersat( 2,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +1.0027, 1.0042, 1.0069, 1.0119, 1.0223, 1.0460, 1.1042, 1.2577, 1.7376, & +1.0021, 1.0031, 1.0052, 1.0089, 1.0157, 1.0302, 1.0639, 1.1476, 1.3771, & +1.0013, 1.0028, 1.0042, 1.0070, 1.0117, 1.0213, 1.0421, 1.0909, 1.2147, & +1.0008, 1.0022, 1.0032, 1.0054, 1.0092, 1.0160, 1.0298, 1.0603, 1.1329, & +1.0006, 1.0015, 1.0029, 1.0046, 1.0075, 1.0125, 1.0224, 1.0428, 1.0888, & +1.0006, 1.0010, 1.0025, 1.0033, 1.0059, 1.0100, 1.0176, 1.0322, 1.0633, & +1.0005, 1.0008, 1.0019, 1.0029, 1.0050, 1.0081, 1.0140, 1.0250, 1.0473 / +data ((supersat( 2,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +1.0021, 1.0036, 1.0058, 1.0100, 1.0186, 1.0382, 1.0860, 1.2091, 1.5631, & +1.0019, 1.0026, 1.0042, 1.0074, 1.0129, 1.0247, 1.0521, 1.1195, 1.2976, & +1.0016, 1.0021, 1.0036, 1.0057, 1.0096, 1.0172, 1.0337, 1.0726, 1.1695, & +1.0011, 1.0019, 1.0026, 1.0043, 1.0075, 1.0128, 1.0235, 1.0472, 1.1035, & +1.0007, 1.0017, 1.0021, 1.0038, 1.0060, 1.0100, 1.0175, 1.0330, 1.0679, & +1.0005, 1.0013, 1.0020, 1.0029, 1.0047, 1.0080, 1.0136, 1.0246, 1.0477, & +1.0005, 1.0010, 1.0017, 1.0020, 1.0039, 1.0062, 1.0108, 1.0191, 1.0354 / +data ((supersat( 2,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +1.0019, 1.0030, 1.0049, 1.0086, 1.0159, 1.0326, 1.0732, 1.1766, 1.4611, & +1.0012, 1.0025, 1.0038, 1.0063, 1.0110, 1.0209, 1.0439, 1.1006, 1.2471, & +1.0011, 1.0017, 1.0030, 1.0048, 1.0080, 1.0143, 1.0281, 1.0603, 1.1403, & +1.0011, 1.0011, 1.0025, 1.0037, 1.0062, 1.0105, 1.0193, 1.0386, 1.0845, & +1.0010, 1.0011, 1.0017, 1.0031, 1.0049, 1.0082, 1.0142, 1.0266, 1.0544, & +1.0009, 1.0011, 1.0011, 1.0026, 1.0040, 1.0065, 1.0110, 1.0196, 1.0377, & +1.0007, 1.0009, 1.0010, 1.0020, 1.0030, 1.0050, 1.0086, 1.0151, 1.0277 / +data ((supersat( 2,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +1.0061, 1.0109, 1.0189, 1.0353, 1.0713, 1.1589, 1.4115, 2.7068, 4.9861, & +1.0052, 1.0087, 1.0150, 1.0269, 1.0514, 1.1072, 1.2486, 1.7171, 4.0183, & +1.0047, 1.0073, 1.0121, 1.0212, 1.0391, 1.0773, 1.1668, 1.4120, 2.5431, & +1.0036, 1.0054, 1.0099, 1.0172, 1.0308, 1.0584, 1.1196, 1.2709, 1.7540, & +1.0025, 1.0049, 1.0082, 1.0140, 1.0246, 1.0455, 1.0895, 1.1915, 1.4692, & +1.0019, 1.0041, 1.0066, 1.0112, 1.0197, 1.0359, 1.0688, 1.1413, 1.3214, & +1.0016, 1.0031, 1.0048, 1.0087, 1.0155, 1.0282, 1.0533, 1.1066, 1.2310 / +data ((supersat( 2,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +1.0043, 1.0078, 1.0136, 1.0249, 1.0492, 1.1067, 1.2589, 1.8039, 3.7151, & +1.0039, 1.0066, 1.0106, 1.0189, 1.0355, 1.0721, 1.1606, 1.4121, 2.5894, & +1.0035, 1.0051, 1.0088, 1.0151, 1.0270, 1.0521, 1.1088, 1.2519, 1.7174, & +1.0028, 1.0039, 1.0071, 1.0123, 1.0214, 1.0395, 1.0786, 1.1699, 1.4188, & +1.0019, 1.0037, 1.0061, 1.0099, 1.0172, 1.0309, 1.0593, 1.1220, 1.2770, & +1.0014, 1.0031, 1.0046, 1.0081, 1.0138, 1.0246, 1.0460, 1.0912, 1.1960, & +1.0012, 1.0024, 1.0034, 1.0063, 1.0111, 1.0197, 1.0360, 1.0698, 1.1443 / +data ((supersat( 2,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +1.0034, 1.0057, 1.0103, 1.0184, 1.0357, 1.0761, 1.1783, 1.4850, 2.7369, & +1.0027, 1.0050, 1.0081, 1.0139, 1.0256, 1.0511, 1.1112, 1.2692, 1.8151, & +1.0026, 1.0037, 1.0064, 1.0109, 1.0194, 1.0367, 1.0751, 1.1678, 1.4283, & +1.0023, 1.0027, 1.0054, 1.0086, 1.0154, 1.0279, 1.0541, 1.1137, 1.2637, & +1.0018, 1.0026, 1.0045, 1.0074, 1.0124, 1.0218, 1.0409, 1.0819, 1.1779, & +1.0013, 1.0024, 1.0033, 1.0055, 1.0102, 1.0176, 1.0319, 1.0616, 1.1276, & +1.0011, 1.0019, 1.0024, 1.0048, 1.0079, 1.0139, 1.0252, 1.0475, 1.0949 / +data ((supersat( 2,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +1.0029, 1.0046, 1.0081, 1.0142, 1.0273, 1.0574, 1.1321, 1.3376, 2.0924, & +1.0018, 1.0039, 1.0063, 1.0107, 1.0193, 1.0380, 1.0817, 1.1923, 1.5182, & +1.0016, 1.0031, 1.0047, 1.0084, 1.0146, 1.0270, 1.0545, 1.1196, 1.2900, & +1.0016, 1.0019, 1.0042, 1.0067, 1.0114, 1.0204, 1.0389, 1.0803, 1.1805, & +1.0015, 1.0016, 1.0035, 1.0055, 1.0092, 1.0160, 1.0294, 1.0575, 1.1218, & +1.0013, 1.0015, 1.0026, 1.0042, 1.0074, 1.0129, 1.0229, 1.0432, 1.0873, & +1.0010, 1.0014, 1.0019, 1.0037, 1.0061, 1.0103, 1.0182, 1.0334, 1.0652 / +data ((supersat( 2,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +1.0026, 1.0039, 1.0066, 1.0115, 1.0218, 1.0456, 1.1040, 1.2576, 1.7374, & +1.0019, 1.0031, 1.0051, 1.0085, 1.0152, 1.0297, 1.0635, 1.1474, 1.3769, & +1.0011, 1.0027, 1.0039, 1.0067, 1.0113, 1.0208, 1.0416, 1.0905, 1.2144, & +1.0006, 1.0020, 1.0031, 1.0053, 1.0089, 1.0156, 1.0293, 1.0598, 1.1325, & +1.0006, 1.0013, 1.0028, 1.0043, 1.0072, 1.0121, 1.0219, 1.0423, 1.0883, & +1.0006, 1.0009, 1.0023, 1.0031, 1.0055, 1.0097, 1.0170, 1.0316, 1.0626, & +1.0005, 1.0008, 1.0017, 1.0028, 1.0047, 1.0076, 1.0135, 1.0244, 1.0466 / +data ((supersat( 2,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +1.0020, 1.0034, 1.0055, 1.0096, 1.0181, 1.0377, 1.0857, 1.2089, 1.5631, & +1.0018, 1.0023, 1.0041, 1.0071, 1.0125, 1.0243, 1.0517, 1.1193, 1.2974, & +1.0014, 1.0021, 1.0034, 1.0055, 1.0092, 1.0167, 1.0333, 1.0722, 1.1693, & +1.0009, 1.0019, 1.0023, 1.0042, 1.0071, 1.0124, 1.0231, 1.0468, 1.1032, & +1.0006, 1.0015, 1.0020, 1.0036, 1.0058, 1.0096, 1.0171, 1.0326, 1.0674, & +1.0005, 1.0011, 1.0019, 1.0027, 1.0043, 1.0077, 1.0132, 1.0241, 1.0472, & +1.0005, 1.0009, 1.0016, 1.0020, 1.0037, 1.0060, 1.0103, 1.0185, 1.0348 / +data ((supersat( 2,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +1.0017, 1.0029, 1.0047, 1.0083, 1.0155, 1.0322, 1.0730, 1.1764, 1.4610, & +1.0011, 1.0023, 1.0035, 1.0060, 1.0106, 1.0205, 1.0436, 1.1004, 1.2469, & +1.0011, 1.0015, 1.0029, 1.0046, 1.0078, 1.0140, 1.0277, 1.0600, 1.1401, & +1.0010, 1.0011, 1.0023, 1.0034, 1.0060, 1.0101, 1.0189, 1.0382, 1.0842, & +1.0009, 1.0011, 1.0015, 1.0030, 1.0048, 1.0079, 1.0138, 1.0261, 1.0540, & +1.0008, 1.0010, 1.0011, 1.0025, 1.0037, 1.0063, 1.0105, 1.0191, 1.0372, & +1.0006, 1.0009, 1.0010, 1.0018, 1.0029, 1.0048, 1.0083, 1.0147, 1.0272 / +data ((supersat( 2,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +1.0057, 1.0106, 1.0184, 1.0348, 1.0708, 1.1586, 1.4112, 2.7065, 4.9856, & +1.0052, 1.0085, 1.0147, 1.0264, 1.0509, 1.1067, 1.2482, 1.7166, 4.0174, & +1.0045, 1.0070, 1.0118, 1.0208, 1.0386, 1.0767, 1.1662, 1.4114, 2.5420, & +1.0033, 1.0053, 1.0094, 1.0168, 1.0302, 1.0578, 1.1190, 1.2702, 1.7530, & +1.0023, 1.0048, 1.0080, 1.0136, 1.0241, 1.0448, 1.0888, 1.1907, 1.4680, & +1.0018, 1.0038, 1.0062, 1.0108, 1.0191, 1.0351, 1.0679, 1.1402, 1.3200, & +1.0015, 1.0028, 1.0044, 1.0081, 1.0148, 1.0273, 1.0524, 1.1054, 1.2294 / +data ((supersat( 2,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +1.0040, 1.0074, 1.0132, 1.0245, 1.0488, 1.1063, 1.2587, 1.8037, 3.7149, & +1.0038, 1.0064, 1.0102, 1.0185, 1.0351, 1.0717, 1.1603, 1.4118, 2.5889, & +1.0034, 1.0047, 1.0085, 1.0147, 1.0266, 1.0516, 1.1084, 1.2516, 1.7169, & +1.0025, 1.0039, 1.0069, 1.0119, 1.0210, 1.0390, 1.0781, 1.1694, 1.4182, & +1.0017, 1.0036, 1.0058, 1.0097, 1.0167, 1.0304, 1.0587, 1.1214, 1.2763, & +1.0014, 1.0029, 1.0042, 1.0076, 1.0133, 1.0241, 1.0453, 1.0905, 1.1952, & +1.0012, 1.0022, 1.0033, 1.0060, 1.0106, 1.0190, 1.0353, 1.0689, 1.1432 / +data ((supersat( 2,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +1.0031, 1.0056, 1.0100, 1.0180, 1.0353, 1.0757, 1.1781, 1.4848, 2.7368, & +1.0027, 1.0048, 1.0079, 1.0135, 1.0252, 1.0507, 1.1109, 1.2690, 1.8149, & +1.0025, 1.0035, 1.0060, 1.0107, 1.0190, 1.0363, 1.0747, 1.1674, 1.4280, & +1.0022, 1.0027, 1.0053, 1.0084, 1.0151, 1.0275, 1.0536, 1.1132, 1.2632, & +1.0017, 1.0026, 1.0043, 1.0071, 1.0121, 1.0214, 1.0405, 1.0814, 1.1774, & +1.0012, 1.0023, 1.0030, 1.0054, 1.0098, 1.0171, 1.0314, 1.0610, 1.1269, & +1.0010, 1.0018, 1.0023, 1.0046, 1.0076, 1.0134, 1.0246, 1.0468, 1.0942 / +data ((supersat( 2,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +1.0027, 1.0043, 1.0078, 1.0139, 1.0269, 1.0571, 1.1319, 1.3374, 2.0923, & +1.0016, 1.0038, 1.0061, 1.0104, 1.0190, 1.0376, 1.0815, 1.1921, 1.5182, & +1.0016, 1.0029, 1.0044, 1.0082, 1.0142, 1.0266, 1.0541, 1.1193, 1.2898, & +1.0016, 1.0017, 1.0041, 1.0066, 1.0112, 1.0201, 1.0385, 1.0799, 1.1802, & +1.0014, 1.0016, 1.0034, 1.0053, 1.0090, 1.0157, 1.0289, 1.0571, 1.1214, & +1.0012, 1.0015, 1.0024, 1.0041, 1.0070, 1.0125, 1.0225, 1.0427, 1.0867, & +1.0010, 1.0013, 1.0018, 1.0035, 1.0058, 1.0100, 1.0177, 1.0328, 1.0645 / +data ((supersat( 2,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +1.0025, 1.0037, 1.0064, 1.0111, 1.0214, 1.0453, 1.1038, 1.2574, 1.7375, & +1.0017, 1.0030, 1.0049, 1.0083, 1.0149, 1.0294, 1.0632, 1.1472, 1.3767, & +1.0010, 1.0025, 1.0036, 1.0064, 1.0111, 1.0205, 1.0413, 1.0903, 1.2142, & +1.0006, 1.0018, 1.0031, 1.0052, 1.0086, 1.0153, 1.0289, 1.0595, 1.1323, & +1.0006, 1.0012, 1.0027, 1.0041, 1.0070, 1.0118, 1.0216, 1.0419, 1.0879, & +1.0005, 1.0009, 1.0022, 1.0030, 1.0054, 1.0095, 1.0166, 1.0311, 1.0622, & +1.0005, 1.0008, 1.0016, 1.0027, 1.0045, 1.0074, 1.0132, 1.0240, 1.0461 / +data ((supersat( 2,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +1.0020, 1.0033, 1.0054, 1.0093, 1.0178, 1.0375, 1.0855, 1.2089, 1.5630, & +1.0017, 1.0021, 1.0040, 1.0068, 1.0122, 1.0239, 1.0514, 1.1192, 1.2972, & +1.0013, 1.0020, 1.0032, 1.0053, 1.0090, 1.0164, 1.0330, 1.0720, 1.1692, & +1.0008, 1.0018, 1.0021, 1.0041, 1.0069, 1.0120, 1.0227, 1.0465, 1.1029, & +1.0006, 1.0014, 1.0020, 1.0034, 1.0056, 1.0094, 1.0168, 1.0322, 1.0671, & +1.0005, 1.0011, 1.0018, 1.0025, 1.0042, 1.0075, 1.0129, 1.0237, 1.0468, & +1.0005, 1.0008, 1.0015, 1.0019, 1.0036, 1.0058, 1.0100, 1.0181, 1.0344 / +data ((supersat( 2,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +1.0015, 1.0028, 1.0046, 1.0080, 1.0152, 1.0319, 1.0728, 1.1764, 1.4610, & +1.0011, 1.0022, 1.0034, 1.0058, 1.0104, 1.0202, 1.0433, 1.1002, 1.2468, & +1.0011, 1.0013, 1.0028, 1.0045, 1.0075, 1.0137, 1.0274, 1.0598, 1.1400, & +1.0010, 1.0011, 1.0022, 1.0032, 1.0058, 1.0099, 1.0186, 1.0379, 1.0840, & +1.0009, 1.0011, 1.0014, 1.0029, 1.0046, 1.0077, 1.0135, 1.0258, 1.0537, & +1.0007, 1.0010, 1.0011, 1.0023, 1.0035, 1.0061, 1.0103, 1.0188, 1.0368, & +1.0006, 1.0008, 1.0009, 1.0017, 1.0028, 1.0047, 1.0081, 1.0143, 1.0268 / +data ((supersat( 3,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +1.0071, 1.0117, 1.0200, 1.0362, 1.0720, 1.1593, 1.4119, 2.7073, 4.9866, & +1.0054, 1.0091, 1.0157, 1.0278, 1.0523, 1.1078, 1.2490, 1.7178, 4.0203, & +1.0051, 1.0081, 1.0128, 1.0222, 1.0402, 1.0782, 1.1675, 1.4129, 2.5447, & +1.0044, 1.0063, 1.0110, 1.0183, 1.0319, 1.0596, 1.1206, 1.2719, 1.7557, & +1.0032, 1.0053, 1.0088, 1.0151, 1.0257, 1.0469, 1.0909, 1.1929, 1.4713, & +1.0023, 1.0048, 1.0077, 1.0121, 1.0212, 1.0376, 1.0705, 1.1430, 1.3236, & +1.0018, 1.0039, 1.0059, 1.0101, 1.0172, 1.0302, 1.0555, 1.1089, 1.2337 / +data ((supersat( 3,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +1.0053, 1.0087, 1.0146, 1.0259, 1.0500, 1.1071, 1.2591, 1.8042, 3.7156, & +1.0040, 1.0069, 1.0116, 1.0199, 1.0365, 1.0727, 1.1610, 1.4126, 2.5898, & +1.0038, 1.0060, 1.0096, 1.0159, 1.0280, 1.0530, 1.1095, 1.2525, 1.7182, & +1.0034, 1.0042, 1.0074, 1.0131, 1.0223, 1.0407, 1.0795, 1.1707, 1.4198, & +1.0026, 1.0039, 1.0067, 1.0105, 1.0184, 1.0323, 1.0605, 1.1231, 1.2781, & +1.0018, 1.0036, 1.0056, 1.0091, 1.0151, 1.0260, 1.0475, 1.0926, 1.1975, & +1.0014, 1.0030, 1.0040, 1.0069, 1.0123, 1.0212, 1.0379, 1.0716, 1.1463 / +data ((supersat( 3,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +1.0042, 1.0067, 1.0109, 1.0194, 1.0366, 1.0765, 1.1785, 1.4853, 2.7366, & +1.0027, 1.0054, 1.0085, 1.0148, 1.0266, 1.0518, 1.1116, 1.2695, 1.8156, & +1.0027, 1.0045, 1.0072, 1.0117, 1.0204, 1.0376, 1.0757, 1.1682, 1.4289, & +1.0026, 1.0031, 1.0057, 1.0096, 1.0163, 1.0289, 1.0550, 1.1143, 1.2642, & +1.0022, 1.0027, 1.0052, 1.0081, 1.0134, 1.0230, 1.0420, 1.0828, 1.1788, & +1.0018, 1.0026, 1.0041, 1.0065, 1.0110, 1.0187, 1.0332, 1.0628, 1.1287, & +1.0013, 1.0023, 1.0029, 1.0054, 1.0089, 1.0153, 1.0267, 1.0490, 1.0965 / +data ((supersat( 3,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +1.0035, 1.0054, 1.0087, 1.0151, 1.0281, 1.0579, 1.1323, 1.3378, 2.0925, & +1.0025, 1.0042, 1.0067, 1.0114, 1.0202, 1.0388, 1.0821, 1.1925, 1.5186, & +1.0016, 1.0037, 1.0056, 1.0091, 1.0154, 1.0279, 1.0552, 1.1199, 1.2903, & +1.0016, 1.0027, 1.0044, 1.0071, 1.0121, 1.0213, 1.0398, 1.0809, 1.1810, & +1.0016, 1.0017, 1.0040, 1.0063, 1.0098, 1.0168, 1.0303, 1.0584, 1.1225, & +1.0015, 1.0016, 1.0033, 1.0048, 1.0083, 1.0138, 1.0239, 1.0444, 1.0883, & +1.0013, 1.0015, 1.0024, 1.0041, 1.0067, 1.0113, 1.0192, 1.0348, 1.0665 / +data ((supersat( 3,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +1.0029, 1.0045, 1.0072, 1.0123, 1.0226, 1.0461, 1.1042, 1.2577, 1.7375, & +1.0024, 1.0032, 1.0054, 1.0092, 1.0161, 1.0305, 1.0639, 1.1476, 1.3772, & +1.0016, 1.0030, 1.0046, 1.0073, 1.0121, 1.0217, 1.0423, 1.0909, 1.2147, & +1.0009, 1.0025, 1.0032, 1.0056, 1.0096, 1.0163, 1.0301, 1.0604, 1.1329, & +1.0006, 1.0018, 1.0031, 1.0050, 1.0077, 1.0130, 1.0228, 1.0431, 1.0889, & +1.0006, 1.0012, 1.0027, 1.0038, 1.0064, 1.0104, 1.0181, 1.0326, 1.0636, & +1.0005, 1.0009, 1.0022, 1.0031, 1.0053, 1.0086, 1.0144, 1.0255, 1.0478 / +data ((supersat( 3,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +1.0022, 1.0039, 1.0060, 1.0104, 1.0189, 1.0383, 1.0859, 1.2091, 1.5633, & +1.0020, 1.0030, 1.0046, 1.0077, 1.0133, 1.0250, 1.0521, 1.1195, 1.2975, & +1.0017, 1.0021, 1.0038, 1.0060, 1.0099, 1.0176, 1.0340, 1.0726, 1.1695, & +1.0014, 1.0020, 1.0029, 1.0046, 1.0078, 1.0132, 1.0239, 1.0474, 1.1035, & +1.0009, 1.0018, 1.0021, 1.0040, 1.0062, 1.0103, 1.0179, 1.0334, 1.0680, & +1.0006, 1.0015, 1.0020, 1.0033, 1.0051, 1.0083, 1.0141, 1.0250, 1.0480, & +1.0005, 1.0011, 1.0018, 1.0023, 1.0041, 1.0067, 1.0113, 1.0196, 1.0359 / +data ((supersat( 3,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +1.0022, 1.0032, 1.0054, 1.0090, 1.0163, 1.0328, 1.0732, 1.1765, 1.4612, & +1.0015, 1.0027, 1.0041, 1.0065, 1.0113, 1.0212, 1.0440, 1.1005, 1.2471, & +1.0010, 1.0020, 1.0031, 1.0050, 1.0083, 1.0147, 1.0283, 1.0604, 1.1403, & +1.0010, 1.0013, 1.0027, 1.0041, 1.0065, 1.0109, 1.0196, 1.0388, 1.0845, & +1.0010, 1.0011, 1.0021, 1.0031, 1.0051, 1.0085, 1.0146, 1.0269, 1.0546, & +1.0009, 1.0011, 1.0013, 1.0029, 1.0043, 1.0068, 1.0114, 1.0200, 1.0380, & +1.0008, 1.0010, 1.0011, 1.0023, 1.0032, 1.0054, 1.0090, 1.0156, 1.0282 / +data ((supersat( 3,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +1.0060, 1.0108, 1.0187, 1.0349, 1.0708, 1.1585, 1.4113, 2.7062, 4.9854, & +1.0052, 1.0087, 1.0149, 1.0267, 1.0511, 1.1067, 1.2482, 1.7168, 4.0178, & +1.0046, 1.0073, 1.0120, 1.0211, 1.0388, 1.0768, 1.1663, 1.4116, 2.5423, & +1.0036, 1.0053, 1.0098, 1.0171, 1.0305, 1.0580, 1.1191, 1.2703, 1.7534, & +1.0025, 1.0049, 1.0082, 1.0139, 1.0244, 1.0451, 1.0890, 1.1909, 1.4686, & +1.0019, 1.0041, 1.0066, 1.0112, 1.0196, 1.0356, 1.0683, 1.1406, 1.3204, & +1.0016, 1.0031, 1.0047, 1.0086, 1.0153, 1.0279, 1.0529, 1.1058, 1.2299 / +data ((supersat( 3,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +1.0042, 1.0077, 1.0135, 1.0247, 1.0488, 1.1063, 1.2587, 1.8037, 3.7147, & +1.0039, 1.0065, 1.0105, 1.0187, 1.0352, 1.0717, 1.1603, 1.4119, 2.5893, & +1.0035, 1.0050, 1.0088, 1.0150, 1.0268, 1.0517, 1.1084, 1.2516, 1.7172, & +1.0028, 1.0040, 1.0070, 1.0122, 1.0212, 1.0392, 1.0782, 1.1695, 1.4185, & +1.0019, 1.0037, 1.0061, 1.0099, 1.0170, 1.0307, 1.0589, 1.1215, 1.2764, & +1.0014, 1.0031, 1.0045, 1.0080, 1.0137, 1.0245, 1.0457, 1.0907, 1.1954, & +1.0012, 1.0024, 1.0034, 1.0062, 1.0110, 1.0195, 1.0358, 1.0693, 1.1436 / +data ((supersat( 3,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +1.0033, 1.0057, 1.0102, 1.0182, 1.0354, 1.0757, 1.1780, 1.4850, 2.7367, & +1.0027, 1.0050, 1.0080, 1.0137, 1.0254, 1.0507, 1.1109, 1.2690, 1.8150, & +1.0026, 1.0037, 1.0062, 1.0109, 1.0193, 1.0365, 1.0747, 1.1674, 1.4282, & +1.0023, 1.0027, 1.0054, 1.0085, 1.0153, 1.0277, 1.0538, 1.1133, 1.2634, & +1.0018, 1.0026, 1.0045, 1.0074, 1.0124, 1.0217, 1.0407, 1.0815, 1.1776, & +1.0013, 1.0024, 1.0032, 1.0055, 1.0101, 1.0174, 1.0317, 1.0612, 1.1271, & +1.0011, 1.0019, 1.0024, 1.0048, 1.0079, 1.0138, 1.0251, 1.0472, 1.0945 / +data ((supersat( 3,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +1.0029, 1.0045, 1.0080, 1.0141, 1.0270, 1.0571, 1.1319, 1.3375, 2.0919, & +1.0017, 1.0039, 1.0063, 1.0106, 1.0192, 1.0377, 1.0814, 1.1921, 1.5182, & +1.0016, 1.0031, 1.0047, 1.0084, 1.0144, 1.0268, 1.0542, 1.1193, 1.2898, & +1.0016, 1.0019, 1.0041, 1.0067, 1.0114, 1.0203, 1.0387, 1.0800, 1.1803, & +1.0015, 1.0016, 1.0035, 1.0055, 1.0091, 1.0159, 1.0292, 1.0572, 1.1215, & +1.0013, 1.0015, 1.0026, 1.0042, 1.0073, 1.0128, 1.0228, 1.0430, 1.0869, & +1.0010, 1.0013, 1.0019, 1.0037, 1.0061, 1.0103, 1.0181, 1.0332, 1.0648 / +data ((supersat( 3,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +1.0026, 1.0039, 1.0065, 1.0113, 1.0216, 1.0453, 1.1037, 1.2574, 1.7374, & +1.0019, 1.0030, 1.0051, 1.0085, 1.0151, 1.0295, 1.0632, 1.1472, 1.3769, & +1.0011, 1.0027, 1.0039, 1.0066, 1.0113, 1.0207, 1.0413, 1.0903, 1.2143, & +1.0006, 1.0020, 1.0031, 1.0053, 1.0089, 1.0155, 1.0291, 1.0595, 1.1323, & +1.0006, 1.0013, 1.0028, 1.0043, 1.0072, 1.0120, 1.0218, 1.0420, 1.0880, & +1.0006, 1.0009, 1.0023, 1.0031, 1.0055, 1.0097, 1.0169, 1.0314, 1.0624, & +1.0005, 1.0008, 1.0017, 1.0028, 1.0047, 1.0075, 1.0135, 1.0243, 1.0464 / +data ((supersat( 3,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +1.0020, 1.0034, 1.0055, 1.0095, 1.0180, 1.0375, 1.0855, 1.2089, 1.5630, & +1.0018, 1.0023, 1.0041, 1.0070, 1.0124, 1.0241, 1.0514, 1.1191, 1.2974, & +1.0014, 1.0020, 1.0034, 1.0054, 1.0092, 1.0166, 1.0331, 1.0720, 1.1692, & +1.0009, 1.0019, 1.0023, 1.0042, 1.0071, 1.0123, 1.0229, 1.0465, 1.1030, & +1.0006, 1.0015, 1.0020, 1.0036, 1.0057, 1.0096, 1.0170, 1.0324, 1.0672, & +1.0005, 1.0011, 1.0019, 1.0026, 1.0043, 1.0077, 1.0131, 1.0239, 1.0469, & +1.0005, 1.0009, 1.0016, 1.0019, 1.0037, 1.0060, 1.0102, 1.0184, 1.0346 / +data ((supersat( 3,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +1.0017, 1.0029, 1.0047, 1.0082, 1.0154, 1.0320, 1.0728, 1.1764, 1.4611, & +1.0011, 1.0023, 1.0035, 1.0060, 1.0105, 1.0203, 1.0434, 1.1002, 1.2469, & +1.0011, 1.0015, 1.0029, 1.0046, 1.0077, 1.0139, 1.0275, 1.0598, 1.1400, & +1.0010, 1.0011, 1.0023, 1.0034, 1.0059, 1.0101, 1.0188, 1.0380, 1.0840, & +1.0009, 1.0011, 1.0015, 1.0030, 1.0047, 1.0079, 1.0137, 1.0260, 1.0538, & +1.0008, 1.0010, 1.0011, 1.0025, 1.0037, 1.0063, 1.0105, 1.0190, 1.0370, & +1.0006, 1.0009, 1.0010, 1.0018, 1.0029, 1.0048, 1.0083, 1.0146, 1.0270 / +data ((supersat( 3,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +1.0054, 1.0099, 1.0177, 1.0338, 1.0698, 1.1578, 1.4107, 2.7050, 4.9841, & +1.0049, 1.0081, 1.0140, 1.0255, 1.0499, 1.1057, 1.2473, 1.7157, 4.0149, & +1.0040, 1.0062, 1.0113, 1.0199, 1.0374, 1.0755, 1.1651, 1.4102, 2.5398, & +1.0028, 1.0051, 1.0086, 1.0157, 1.0291, 1.0564, 1.1175, 1.2686, 1.7505, & +1.0020, 1.0043, 1.0073, 1.0125, 1.0229, 1.0433, 1.0871, 1.1886, 1.4654, & +1.0016, 1.0033, 1.0054, 1.0099, 1.0177, 1.0335, 1.0659, 1.1377, 1.3166, & +1.0013, 1.0023, 1.0037, 1.0070, 1.0133, 1.0256, 1.0501, 1.1024, 1.2252 / +data ((supersat( 3,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +1.0039, 1.0070, 1.0125, 1.0236, 1.0479, 1.1056, 1.2582, 1.8032, 3.7138, & +1.0036, 1.0059, 1.0098, 1.0178, 1.0341, 1.0708, 1.1596, 1.4113, 2.5879, & +1.0030, 1.0040, 1.0078, 1.0139, 1.0257, 1.0506, 1.1074, 1.2507, 1.7159, & +1.0021, 1.0038, 1.0066, 1.0112, 1.0201, 1.0380, 1.0769, 1.1683, 1.4170, & +1.0015, 1.0033, 1.0052, 1.0091, 1.0157, 1.0294, 1.0574, 1.1199, 1.2746, & +1.0012, 1.0025, 1.0036, 1.0067, 1.0124, 1.0230, 1.0438, 1.0887, 1.1930, & +1.0011, 1.0018, 1.0028, 1.0053, 1.0095, 1.0176, 1.0337, 1.0668, 1.1406 / +data ((supersat( 3,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +1.0027, 1.0054, 1.0095, 1.0173, 1.0345, 1.0751, 1.1777, 1.4845, 2.7359, & +1.0026, 1.0044, 1.0074, 1.0130, 1.0244, 1.0498, 1.1102, 1.2685, 1.8145, & +1.0024, 1.0029, 1.0056, 1.0102, 1.0183, 1.0354, 1.0738, 1.1667, 1.4275, & +1.0019, 1.0026, 1.0049, 1.0081, 1.0143, 1.0265, 1.0527, 1.1123, 1.2624, & +1.0014, 1.0024, 1.0038, 1.0065, 1.0112, 1.0206, 1.0394, 1.0802, 1.1762, & +1.0011, 1.0020, 1.0026, 1.0051, 1.0090, 1.0160, 1.0303, 1.0596, 1.1254, & +1.0009, 1.0015, 1.0021, 1.0040, 1.0070, 1.0125, 1.0233, 1.0452, 1.0923 / +data ((supersat( 3,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +1.0022, 1.0042, 1.0073, 1.0132, 1.0262, 1.0564, 1.1315, 1.3373, 2.0918, & +1.0016, 1.0035, 1.0057, 1.0099, 1.0183, 1.0369, 1.0809, 1.1917, 1.5179, & +1.0016, 1.0024, 1.0043, 1.0076, 1.0135, 1.0259, 1.0534, 1.1187, 1.2894, & +1.0015, 1.0016, 1.0038, 1.0062, 1.0107, 1.0193, 1.0377, 1.0791, 1.1795, & +1.0013, 1.0015, 1.0029, 1.0047, 1.0085, 1.0150, 1.0280, 1.0561, 1.1205, & +1.0010, 1.0014, 1.0021, 1.0039, 1.0065, 1.0116, 1.0216, 1.0416, 1.0856, & +1.0008, 1.0011, 1.0016, 1.0031, 1.0053, 1.0091, 1.0167, 1.0316, 1.0631 / +data ((supersat( 3,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +1.0022, 1.0032, 1.0059, 1.0106, 1.0208, 1.0447, 1.1034, 1.2573, 1.7372, & +1.0013, 1.0028, 1.0046, 1.0077, 1.0143, 1.0287, 1.0627, 1.1469, 1.3767, & +1.0007, 1.0023, 1.0032, 1.0059, 1.0106, 1.0198, 1.0406, 1.0898, 1.2139, & +1.0006, 1.0015, 1.0029, 1.0049, 1.0081, 1.0146, 1.0282, 1.0588, 1.1317, & +1.0006, 1.0010, 1.0025, 1.0036, 1.0065, 1.0113, 1.0208, 1.0411, 1.0871, & +1.0005, 1.0008, 1.0019, 1.0029, 1.0051, 1.0089, 1.0159, 1.0302, 1.0612, & +1.0004, 1.0007, 1.0014, 1.0024, 1.0040, 1.0069, 1.0123, 1.0229, 1.0449 / +data ((supersat( 3,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +1.0019, 1.0029, 1.0050, 1.0088, 1.0172, 1.0369, 1.0852, 1.2087, 1.5629, & +1.0015, 1.0020, 1.0038, 1.0063, 1.0117, 1.0233, 1.0509, 1.1189, 1.2972, & +1.0011, 1.0019, 1.0028, 1.0048, 1.0085, 1.0159, 1.0323, 1.0715, 1.1689, & +1.0007, 1.0016, 1.0020, 1.0039, 1.0064, 1.0115, 1.0221, 1.0459, 1.1025, & +1.0005, 1.0012, 1.0019, 1.0031, 1.0052, 1.0088, 1.0161, 1.0315, 1.0665, & +1.0005, 1.0009, 1.0016, 1.0021, 1.0040, 1.0069, 1.0122, 1.0229, 1.0459, & +1.0004, 1.0007, 1.0012, 1.0017, 1.0032, 1.0054, 1.0094, 1.0173, 1.0334 / +data ((supersat( 3,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +1.0012, 1.0026, 1.0043, 1.0075, 1.0146, 1.0314, 1.0725, 1.1762, 1.4609, & +1.0011, 1.0018, 1.0031, 1.0054, 1.0099, 1.0196, 1.0429, 1.0999, 1.2467, & +1.0010, 1.0011, 1.0026, 1.0042, 1.0071, 1.0132, 1.0268, 1.0594, 1.1397, & +1.0010, 1.0011, 1.0018, 1.0031, 1.0053, 1.0095, 1.0180, 1.0374, 1.0836, & +1.0008, 1.0010, 1.0012, 1.0027, 1.0043, 1.0072, 1.0130, 1.0252, 1.0531, & +1.0006, 1.0009, 1.0010, 1.0020, 1.0031, 1.0056, 1.0098, 1.0181, 1.0361, & +1.0005, 1.0007, 1.0008, 1.0015, 1.0026, 1.0043, 1.0076, 1.0135, 1.0259 / +data ((supersat( 3,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +1.0052, 1.0089, 1.0169, 1.0329, 1.0690, 1.1572, 1.4100, 2.7041, 4.9828, & +1.0045, 1.0075, 1.0131, 1.0244, 1.0489, 1.1048, 1.2464, 1.7145, 4.0118, & +1.0033, 1.0053, 1.0104, 1.0188, 1.0362, 1.0744, 1.1639, 1.4086, 2.5364, & +1.0022, 1.0047, 1.0081, 1.0146, 1.0276, 1.0549, 1.1159, 1.2666, 1.7470, & +1.0017, 1.0036, 1.0063, 1.0112, 1.0213, 1.0416, 1.0851, 1.1862, 1.4613, & +1.0013, 1.0025, 1.0043, 1.0085, 1.0162, 1.0315, 1.0634, 1.1346, 1.3119, & +1.0009, 1.0015, 1.0028, 1.0056, 1.0115, 1.0232, 1.0469, 1.0985, 1.2196 / +data ((supersat( 3,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +1.0038, 1.0066, 1.0119, 1.0228, 1.0471, 1.1051, 1.2578, 1.8028, 3.7130, & +1.0033, 1.0052, 1.0093, 1.0170, 1.0333, 1.0700, 1.1590, 1.4105, 2.5866, & +1.0025, 1.0039, 1.0070, 1.0129, 1.0247, 1.0496, 1.1065, 1.2498, 1.7145, & +1.0017, 1.0035, 1.0060, 1.0101, 1.0190, 1.0368, 1.0757, 1.1670, 1.4152, & +1.0013, 1.0027, 1.0044, 1.0081, 1.0148, 1.0280, 1.0559, 1.1183, 1.2724, & +1.0011, 1.0020, 1.0031, 1.0059, 1.0113, 1.0214, 1.0421, 1.0866, 1.1903, & +1.0008, 1.0012, 1.0021, 1.0043, 1.0080, 1.0159, 1.0315, 1.0642, 1.1372 / +data ((supersat( 3,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +1.0027, 1.0050, 1.0087, 1.0166, 1.0339, 1.0746, 1.1774, 1.4842, 2.7352, & +1.0025, 1.0038, 1.0068, 1.0123, 1.0237, 1.0492, 1.1097, 1.2681, 1.8138, & +1.0021, 1.0027, 1.0053, 1.0095, 1.0175, 1.0346, 1.0731, 1.1661, 1.4267, & +1.0015, 1.0025, 1.0044, 1.0076, 1.0133, 1.0256, 1.0517, 1.1114, 1.2614, & +1.0011, 1.0021, 1.0031, 1.0056, 1.0104, 1.0196, 1.0381, 1.0790, 1.1749, & +1.0009, 1.0016, 1.0022, 1.0045, 1.0079, 1.0150, 1.0288, 1.0580, 1.1235, & +1.0006, 1.0010, 1.0016, 1.0032, 1.0060, 1.0113, 1.0217, 1.0432, 1.0899 / +data ((supersat( 3,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +1.0017, 1.0039, 1.0066, 1.0125, 1.0255, 1.0560, 1.1312, 1.3369, 2.0916, & +1.0016, 1.0030, 1.0051, 1.0091, 1.0176, 1.0363, 1.0804, 1.1914, 1.5175, & +1.0015, 1.0019, 1.0041, 1.0069, 1.0129, 1.0252, 1.0527, 1.1182, 1.2889, & +1.0013, 1.0015, 1.0034, 1.0057, 1.0099, 1.0185, 1.0368, 1.0784, 1.1789, & +1.0011, 1.0014, 1.0024, 1.0041, 1.0078, 1.0140, 1.0270, 1.0551, 1.1195, & +1.0008, 1.0011, 1.0017, 1.0034, 1.0059, 1.0108, 1.0203, 1.0403, 1.0842, & +1.0005, 1.0008, 1.0013, 1.0024, 1.0044, 1.0080, 1.0153, 1.0301, 1.0612 / +data ((supersat( 3,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +1.0017, 1.0030, 1.0052, 1.0100, 1.0202, 1.0442, 1.1032, 1.2571, 1.7372, & +1.0010, 1.0026, 1.0041, 1.0072, 1.0137, 1.0281, 1.0623, 1.1467, 1.3763, & +1.0006, 1.0018, 1.0030, 1.0053, 1.0099, 1.0191, 1.0400, 1.0894, 1.2136, & +1.0006, 1.0011, 1.0027, 1.0044, 1.0074, 1.0139, 1.0275, 1.0581, 1.1312, & +1.0005, 1.0008, 1.0021, 1.0030, 1.0058, 1.0106, 1.0199, 1.0402, 1.0863, & +1.0004, 1.0007, 1.0015, 1.0026, 1.0046, 1.0081, 1.0150, 1.0292, 1.0601, & +1.0004, 1.0007, 1.0011, 1.0019, 1.0033, 1.0061, 1.0112, 1.0216, 1.0434 / +data ((supersat( 3,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +1.0017, 1.0024, 1.0044, 1.0083, 1.0166, 1.0365, 1.0850, 1.2086, 1.5628, & +1.0012, 1.0020, 1.0035, 1.0058, 1.0111, 1.0228, 1.0506, 1.1187, 1.2969, & +1.0008, 1.0017, 1.0023, 1.0042, 1.0078, 1.0152, 1.0318, 1.0712, 1.1687, & +1.0005, 1.0013, 1.0020, 1.0036, 1.0059, 1.0109, 1.0214, 1.0453, 1.1021, & +1.0005, 1.0010, 1.0017, 1.0026, 1.0045, 1.0081, 1.0153, 1.0307, 1.0658, & +1.0004, 1.0008, 1.0013, 1.0018, 1.0036, 1.0062, 1.0114, 1.0220, 1.0450, & +1.0004, 1.0006, 1.0009, 1.0014, 1.0026, 1.0047, 1.0086, 1.0162, 1.0322 / +data ((supersat( 3,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +1.0011, 1.0023, 1.0039, 1.0070, 1.0141, 1.0310, 1.0723, 1.1761, 1.4609, & +1.0011, 1.0014, 1.0029, 1.0049, 1.0093, 1.0191, 1.0425, 1.0998, 1.2466, & +1.0010, 1.0011, 1.0022, 1.0037, 1.0065, 1.0126, 1.0263, 1.0590, 1.1395, & +1.0008, 1.0010, 1.0014, 1.0029, 1.0048, 1.0089, 1.0174, 1.0369, 1.0832, & +1.0006, 1.0009, 1.0010, 1.0023, 1.0038, 1.0066, 1.0123, 1.0245, 1.0526, & +1.0005, 1.0007, 1.0009, 1.0017, 1.0028, 1.0049, 1.0091, 1.0173, 1.0353, & +1.0003, 1.0004, 1.0007, 1.0012, 1.0021, 1.0038, 1.0068, 1.0127, 1.0249 / +data ((supersat( 3,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +1.0050, 1.0086, 1.0165, 1.0324, 1.0686, 1.1568, 1.4095, 2.7030, 4.9815, & +1.0042, 1.0071, 1.0125, 1.0238, 1.0484, 1.1043, 1.2459, 1.7137, 4.0094, & +1.0029, 1.0051, 1.0099, 1.0181, 1.0356, 1.0737, 1.1632, 1.4076, 2.5341, & +1.0020, 1.0043, 1.0077, 1.0141, 1.0269, 1.0541, 1.1150, 1.2654, 1.7447, & +1.0015, 1.0032, 1.0057, 1.0106, 1.0204, 1.0405, 1.0838, 1.1846, 1.4586, & +1.0011, 1.0021, 1.0038, 1.0077, 1.0152, 1.0302, 1.0619, 1.1326, 1.3088, & +1.0007, 1.0012, 1.0023, 1.0047, 1.0103, 1.0216, 1.0450, 1.0959, 1.2158 / +data ((supersat( 3,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +1.0037, 1.0064, 1.0116, 1.0224, 1.0468, 1.1048, 1.2575, 1.8024, 3.7122, & +1.0031, 1.0048, 1.0090, 1.0166, 1.0328, 1.0696, 1.1586, 1.4101, 2.5855, & +1.0022, 1.0037, 1.0068, 1.0126, 1.0242, 1.0491, 1.1060, 1.2493, 1.7137, & +1.0015, 1.0032, 1.0056, 1.0097, 1.0183, 1.0362, 1.0750, 1.1662, 1.4141, & +1.0012, 1.0024, 1.0039, 1.0076, 1.0142, 1.0272, 1.0550, 1.1173, 1.2711, & +1.0009, 1.0016, 1.0027, 1.0054, 1.0106, 1.0204, 1.0410, 1.0853, 1.1886, & +1.0006, 1.0010, 1.0018, 1.0036, 1.0072, 1.0149, 1.0301, 1.0625, 1.1349 / +data ((supersat( 3,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +1.0026, 1.0048, 1.0084, 1.0162, 1.0335, 1.0743, 1.1772, 1.4840, 2.7350, & +1.0024, 1.0034, 1.0065, 1.0120, 1.0233, 1.0488, 1.1095, 1.2678, 1.8135, & +1.0019, 1.0026, 1.0051, 1.0091, 1.0171, 1.0342, 1.0727, 1.1657, 1.4261, & +1.0013, 1.0024, 1.0040, 1.0072, 1.0130, 1.0251, 1.0512, 1.1108, 1.2607, & +1.0010, 1.0019, 1.0027, 1.0052, 1.0100, 1.0189, 1.0375, 1.0783, 1.1740, & +1.0008, 1.0013, 1.0019, 1.0041, 1.0073, 1.0143, 1.0279, 1.0571, 1.1224, & +1.0005, 1.0008, 1.0014, 1.0027, 1.0053, 1.0104, 1.0207, 1.0420, 1.0884 / +data ((supersat( 3,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +1.0016, 1.0037, 1.0064, 1.0123, 1.0252, 1.0558, 1.1311, 1.3368, 2.0912, & +1.0016, 1.0027, 1.0048, 1.0088, 1.0172, 1.0360, 1.0802, 1.1913, 1.5174, & +1.0015, 1.0016, 1.0039, 1.0066, 1.0126, 1.0248, 1.0524, 1.1179, 1.2885, & +1.0012, 1.0015, 1.0031, 1.0053, 1.0095, 1.0180, 1.0364, 1.0780, 1.1785, & +1.0009, 1.0013, 1.0021, 1.0039, 1.0073, 1.0135, 1.0265, 1.0545, 1.1189, & +1.0006, 1.0009, 1.0015, 1.0031, 1.0055, 1.0103, 1.0197, 1.0396, 1.0833, & +1.0004, 1.0007, 1.0011, 1.0021, 1.0039, 1.0074, 1.0145, 1.0291, 1.0602 / +data ((supersat( 3,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +1.0015, 1.0029, 1.0051, 1.0097, 1.0199, 1.0441, 1.1031, 1.2570, 1.7370, & +1.0008, 1.0024, 1.0038, 1.0070, 1.0134, 1.0279, 1.0621, 1.1465, 1.3762, & +1.0006, 1.0016, 1.0030, 1.0052, 1.0095, 1.0188, 1.0397, 1.0892, 1.2134, & +1.0006, 1.0010, 1.0025, 1.0041, 1.0072, 1.0135, 1.0271, 1.0578, 1.1309, & +1.0005, 1.0008, 1.0018, 1.0029, 1.0054, 1.0101, 1.0194, 1.0398, 1.0859, & +1.0004, 1.0007, 1.0013, 1.0023, 1.0042, 1.0076, 1.0145, 1.0286, 1.0595, & +1.0004, 1.0006, 1.0009, 1.0016, 1.0029, 1.0056, 1.0105, 1.0209, 1.0426 / +data ((supersat( 3,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +1.0016, 1.0021, 1.0041, 1.0080, 1.0163, 1.0363, 1.0849, 1.2085, 1.5627, & +1.0011, 1.0019, 1.0032, 1.0056, 1.0108, 1.0225, 1.0504, 1.1186, 1.2968, & +1.0007, 1.0016, 1.0020, 1.0041, 1.0076, 1.0149, 1.0316, 1.0710, 1.1685, & +1.0005, 1.0012, 1.0019, 1.0033, 1.0057, 1.0106, 1.0211, 1.0450, 1.1019, & +1.0005, 1.0009, 1.0016, 1.0023, 1.0042, 1.0078, 1.0149, 1.0303, 1.0655, & +1.0004, 1.0007, 1.0011, 1.0016, 1.0033, 1.0057, 1.0110, 1.0215, 1.0445, & +1.0003, 1.0005, 1.0007, 1.0012, 1.0023, 1.0043, 1.0080, 1.0156, 1.0315 / +data ((supersat( 3,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +1.0011, 1.0021, 1.0037, 1.0068, 1.0139, 1.0309, 1.0722, 1.1761, 1.4608, & +1.0010, 1.0012, 1.0028, 1.0047, 1.0090, 1.0189, 1.0424, 1.0997, 1.2465, & +1.0009, 1.0011, 1.0020, 1.0034, 1.0063, 1.0123, 1.0261, 1.0589, 1.1394, & +1.0007, 1.0010, 1.0013, 1.0028, 1.0047, 1.0086, 1.0171, 1.0366, 1.0831, & +1.0006, 1.0008, 1.0010, 1.0021, 1.0035, 1.0063, 1.0120, 1.0242, 1.0523, & +1.0004, 1.0006, 1.0008, 1.0015, 1.0026, 1.0046, 1.0087, 1.0169, 1.0348, & +1.0003, 1.0004, 1.0006, 1.0011, 1.0018, 1.0034, 1.0063, 1.0121, 1.0243 / +data ((supersat( 3,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +1.0049, 1.0084, 1.0162, 1.0321, 1.0684, 1.1566, 1.4093, 2.7028, 4.9808, & +1.0039, 1.0068, 1.0122, 1.0235, 1.0480, 1.1040, 1.2456, 1.7132, 4.0079, & +1.0027, 1.0050, 1.0095, 1.0178, 1.0352, 1.0733, 1.1627, 1.4069, 2.5323, & +1.0018, 1.0041, 1.0074, 1.0137, 1.0264, 1.0536, 1.1143, 1.2645, 1.7430, & +1.0014, 1.0029, 1.0053, 1.0102, 1.0198, 1.0398, 1.0829, 1.1834, 1.4565, & +1.0009, 1.0017, 1.0034, 1.0071, 1.0144, 1.0293, 1.0607, 1.1311, 1.3064, & +1.0006, 1.0010, 1.0018, 1.0042, 1.0094, 1.0204, 1.0436, 1.0940, 1.2128 / +data ((supersat( 3,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +1.0036, 1.0062, 1.0114, 1.0222, 1.0466, 1.1047, 1.2574, 1.8022, 3.7116, & +1.0029, 1.0045, 1.0087, 1.0163, 1.0326, 1.0694, 1.1584, 1.4098, 2.5849, & +1.0020, 1.0037, 1.0066, 1.0123, 1.0239, 1.0488, 1.1057, 1.2489, 1.7130, & +1.0014, 1.0030, 1.0053, 1.0094, 1.0179, 1.0358, 1.0746, 1.1657, 1.4132, & +1.0011, 1.0022, 1.0036, 1.0072, 1.0137, 1.0267, 1.0544, 1.1165, 1.2700, & +1.0008, 1.0014, 1.0024, 1.0050, 1.0101, 1.0197, 1.0402, 1.0843, 1.1872, & +1.0005, 1.0008, 1.0015, 1.0031, 1.0066, 1.0141, 1.0291, 1.0612, 1.1332 / +data ((supersat( 3,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +1.0026, 1.0047, 1.0081, 1.0160, 1.0334, 1.0742, 1.1771, 1.4838, 2.7346, & +1.0023, 1.0032, 1.0062, 1.0117, 1.0231, 1.0486, 1.1093, 1.2677, 1.8134, & +1.0017, 1.0026, 1.0050, 1.0088, 1.0169, 1.0339, 1.0725, 1.1655, 1.4258, & +1.0012, 1.0022, 1.0038, 1.0069, 1.0127, 1.0247, 1.0508, 1.1105, 1.2603, & +1.0009, 1.0017, 1.0025, 1.0050, 1.0097, 1.0185, 1.0370, 1.0777, 1.1733, & +1.0007, 1.0011, 1.0018, 1.0038, 1.0070, 1.0138, 1.0273, 1.0564, 1.1215, & +1.0004, 1.0007, 1.0012, 1.0024, 1.0048, 1.0098, 1.0200, 1.0411, 1.0873 / +data ((supersat( 3,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +1.0016, 1.0036, 1.0062, 1.0121, 1.0251, 1.0557, 1.1310, 1.3367, 2.0914, & +1.0015, 1.0025, 1.0046, 1.0086, 1.0170, 1.0358, 1.0801, 1.1911, 1.5171, & +1.0014, 1.0016, 1.0038, 1.0065, 1.0124, 1.0246, 1.0522, 1.1178, 1.2883, & +1.0011, 1.0014, 1.0029, 1.0051, 1.0092, 1.0177, 1.0361, 1.0777, 1.1782, & +1.0008, 1.0012, 1.0020, 1.0037, 1.0070, 1.0132, 1.0261, 1.0542, 1.1184, & +1.0005, 1.0008, 1.0014, 1.0028, 1.0052, 1.0099, 1.0193, 1.0391, 1.0827, & +1.0004, 1.0006, 1.0010, 1.0018, 1.0035, 1.0070, 1.0140, 1.0284, 1.0594 / +data ((supersat( 3,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +1.0014, 1.0028, 1.0050, 1.0095, 1.0197, 1.0440, 1.1030, 1.2569, 1.7369, & +1.0007, 1.0022, 1.0036, 1.0068, 1.0132, 1.0277, 1.0620, 1.1465, 1.3761, & +1.0006, 1.0015, 1.0029, 1.0051, 1.0093, 1.0186, 1.0396, 1.0890, 1.2133, & +1.0005, 1.0009, 1.0024, 1.0039, 1.0070, 1.0132, 1.0269, 1.0576, 1.1307, & +1.0004, 1.0008, 1.0017, 1.0028, 1.0051, 1.0098, 1.0191, 1.0394, 1.0856, & +1.0004, 1.0007, 1.0012, 1.0021, 1.0040, 1.0073, 1.0141, 1.0281, 1.0590, & +1.0003, 1.0005, 1.0008, 1.0013, 1.0027, 1.0052, 1.0101, 1.0203, 1.0420 / +data ((supersat( 3,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +1.0015, 1.0020, 1.0040, 1.0078, 1.0162, 1.0362, 1.0848, 1.2085, 1.5627, & +1.0010, 1.0019, 1.0031, 1.0055, 1.0106, 1.0224, 1.0503, 1.1185, 1.2967, & +1.0006, 1.0015, 1.0020, 1.0040, 1.0075, 1.0148, 1.0314, 1.0709, 1.1684, & +1.0005, 1.0011, 1.0018, 1.0032, 1.0056, 1.0104, 1.0209, 1.0449, 1.1017, & +1.0004, 1.0008, 1.0015, 1.0021, 1.0040, 1.0076, 1.0147, 1.0301, 1.0652, & +1.0004, 1.0006, 1.0010, 1.0015, 1.0031, 1.0055, 1.0107, 1.0212, 1.0441, & +1.0003, 1.0004, 1.0006, 1.0011, 1.0021, 1.0040, 1.0077, 1.0151, 1.0309 / +data ((supersat( 3,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +1.0011, 1.0020, 1.0035, 1.0067, 1.0138, 1.0308, 1.0722, 1.1760, 1.4608, & +1.0010, 1.0011, 1.0027, 1.0046, 1.0089, 1.0187, 1.0423, 1.0996, 1.2464, & +1.0009, 1.0010, 1.0019, 1.0033, 1.0062, 1.0121, 1.0260, 1.0588, 1.1394, & +1.0007, 1.0009, 1.0012, 1.0027, 1.0045, 1.0084, 1.0169, 1.0365, 1.0829, & +1.0005, 1.0007, 1.0009, 1.0020, 1.0033, 1.0061, 1.0117, 1.0240, 1.0521, & +1.0003, 1.0005, 1.0007, 1.0014, 1.0024, 1.0044, 1.0084, 1.0166, 1.0345, & +1.0002, 1.0004, 1.0006, 1.0009, 1.0016, 1.0031, 1.0060, 1.0118, 1.0238 / +data ((supersat( 3,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +1.0048, 1.0083, 1.0160, 1.0319, 1.0682, 1.1564, 1.4090, 2.7022, 4.9802, & +1.0037, 1.0065, 1.0119, 1.0233, 1.0478, 1.1037, 1.2453, 1.7126, 4.0065, & +1.0025, 1.0048, 1.0092, 1.0175, 1.0349, 1.0729, 1.1623, 1.4063, 2.5309, & +1.0018, 1.0039, 1.0071, 1.0134, 1.0261, 1.0531, 1.1138, 1.2637, 1.7415, & +1.0013, 1.0026, 1.0050, 1.0098, 1.0193, 1.0392, 1.0822, 1.1824, 1.4548, & +1.0008, 1.0015, 1.0031, 1.0066, 1.0138, 1.0285, 1.0598, 1.1298, 1.3043, & +1.0005, 1.0008, 1.0016, 1.0037, 1.0087, 1.0195, 1.0424, 1.0923, 1.2103 / +data ((supersat( 3,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +1.0035, 1.0061, 1.0112, 1.0220, 1.0465, 1.1045, 1.2572, 1.8021, 3.7113, & +1.0027, 1.0043, 1.0086, 1.0161, 1.0324, 1.0692, 1.1582, 1.4095, 2.5844, & +1.0019, 1.0036, 1.0065, 1.0121, 1.0236, 1.0485, 1.1054, 1.2485, 1.7124, & +1.0013, 1.0029, 1.0050, 1.0092, 1.0177, 1.0354, 1.0742, 1.1652, 1.4125, & +1.0010, 1.0020, 1.0034, 1.0068, 1.0133, 1.0263, 1.0539, 1.1159, 1.2691, & +1.0007, 1.0012, 1.0022, 1.0047, 1.0096, 1.0192, 1.0395, 1.0835, 1.1861, & +1.0004, 1.0007, 1.0013, 1.0027, 1.0061, 1.0134, 1.0283, 1.0602, 1.1318 / +data ((supersat( 3,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +1.0025, 1.0045, 1.0079, 1.0159, 1.0332, 1.0741, 1.1770, 1.4838, 2.7346, & +1.0022, 1.0030, 1.0060, 1.0115, 1.0229, 1.0485, 1.1091, 1.2675, 1.8131, & +1.0016, 1.0025, 1.0049, 1.0086, 1.0167, 1.0337, 1.0723, 1.1653, 1.4255, & +1.0011, 1.0021, 1.0036, 1.0067, 1.0125, 1.0245, 1.0506, 1.1102, 1.2599, & +1.0009, 1.0016, 1.0024, 1.0048, 1.0094, 1.0182, 1.0367, 1.0773, 1.1728, & +1.0006, 1.0010, 1.0017, 1.0035, 1.0067, 1.0134, 1.0269, 1.0558, 1.1208, & +1.0004, 1.0006, 1.0010, 1.0021, 1.0045, 1.0094, 1.0194, 1.0404, 1.0864 / +data ((supersat( 3,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +1.0016, 1.0035, 1.0061, 1.0119, 1.0250, 1.0556, 1.1310, 1.3367, 2.0912, & +1.0015, 1.0024, 1.0044, 1.0085, 1.0168, 1.0357, 1.0800, 1.1911, 1.5170, & +1.0013, 1.0015, 1.0037, 1.0064, 1.0122, 1.0244, 1.0521, 1.1176, 1.2881, & +1.0010, 1.0014, 1.0027, 1.0049, 1.0090, 1.0175, 1.0359, 1.0775, 1.1779, & +1.0007, 1.0011, 1.0018, 1.0036, 1.0068, 1.0129, 1.0258, 1.0538, 1.1181, & +1.0004, 1.0007, 1.0013, 1.0026, 1.0050, 1.0096, 1.0189, 1.0387, 1.0822, & +1.0003, 1.0005, 1.0008, 1.0016, 1.0033, 1.0066, 1.0136, 1.0279, 1.0587 / +data ((supersat( 3,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +1.0012, 1.0028, 1.0049, 1.0094, 1.0197, 1.0439, 1.1030, 1.2568, 1.7369, & +1.0007, 1.0021, 1.0035, 1.0067, 1.0130, 1.0276, 1.0619, 1.1464, 1.3760, & +1.0006, 1.0014, 1.0028, 1.0050, 1.0092, 1.0185, 1.0394, 1.0889, 1.2131, & +1.0005, 1.0009, 1.0022, 1.0037, 1.0069, 1.0131, 1.0267, 1.0574, 1.1305, & +1.0004, 1.0007, 1.0016, 1.0027, 1.0049, 1.0096, 1.0189, 1.0392, 1.0853, & +1.0004, 1.0006, 1.0011, 1.0020, 1.0038, 1.0070, 1.0138, 1.0278, 1.0586, & +1.0003, 1.0004, 1.0007, 1.0012, 1.0024, 1.0049, 1.0098, 1.0199, 1.0415 / +data ((supersat( 3,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +1.0014, 1.0020, 1.0039, 1.0077, 1.0161, 1.0361, 1.0848, 1.2084, 1.5626, & +1.0009, 1.0018, 1.0030, 1.0054, 1.0105, 1.0223, 1.0502, 1.1185, 1.2967, & +1.0006, 1.0014, 1.0020, 1.0039, 1.0074, 1.0146, 1.0313, 1.0708, 1.1684, & +1.0005, 1.0010, 1.0018, 1.0031, 1.0054, 1.0103, 1.0207, 1.0447, 1.1016, & +1.0004, 1.0008, 1.0014, 1.0020, 1.0038, 1.0074, 1.0145, 1.0299, 1.0650, & +1.0004, 1.0006, 1.0009, 1.0014, 1.0029, 1.0053, 1.0104, 1.0209, 1.0438, & +1.0003, 1.0004, 1.0006, 1.0010, 1.0019, 1.0037, 1.0074, 1.0148, 1.0305 / +data ((supersat( 3,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +1.0011, 1.0019, 1.0034, 1.0065, 1.0137, 1.0307, 1.0721, 1.1760, 1.4607, & +1.0010, 1.0011, 1.0026, 1.0045, 1.0088, 1.0187, 1.0423, 1.0996, 1.2463, & +1.0008, 1.0010, 1.0018, 1.0031, 1.0061, 1.0120, 1.0259, 1.0588, 1.1393, & +1.0006, 1.0009, 1.0011, 1.0026, 1.0044, 1.0083, 1.0168, 1.0364, 1.0828, & +1.0005, 1.0007, 1.0009, 1.0019, 1.0032, 1.0060, 1.0116, 1.0238, 1.0519, & +1.0003, 1.0004, 1.0007, 1.0013, 1.0023, 1.0042, 1.0082, 1.0164, 1.0343, & +1.0002, 1.0003, 1.0005, 1.0008, 1.0015, 1.0029, 1.0057, 1.0115, 1.0235 / +data ((supersat( 4,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +1.0051, 1.0088, 1.0168, 1.0327, 1.0688, 1.1570, 1.4097, 2.7037, 4.9826, & +1.0044, 1.0074, 1.0129, 1.0242, 1.0487, 1.1046, 1.2462, 1.7141, 4.0109, & +1.0032, 1.0052, 1.0103, 1.0186, 1.0361, 1.0741, 1.1636, 1.4081, 2.5354, & +1.0022, 1.0046, 1.0080, 1.0146, 1.0274, 1.0547, 1.1156, 1.2661, 1.7462, & +1.0017, 1.0036, 1.0063, 1.0111, 1.0211, 1.0413, 1.0847, 1.1856, 1.4602, & +1.0013, 1.0025, 1.0043, 1.0084, 1.0160, 1.0312, 1.0630, 1.1340, 1.3106, & +1.0009, 1.0015, 1.0028, 1.0055, 1.0114, 1.0229, 1.0464, 1.0977, 1.2183 / +data ((supersat( 4,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +1.0038, 1.0066, 1.0119, 1.0226, 1.0470, 1.1050, 1.2576, 1.8027, 3.7127, & +1.0033, 1.0051, 1.0093, 1.0169, 1.0331, 1.0698, 1.1588, 1.4103, 2.5863, & +1.0025, 1.0039, 1.0070, 1.0129, 1.0246, 1.0494, 1.1063, 1.2495, 1.7142, & +1.0017, 1.0034, 1.0059, 1.0100, 1.0188, 1.0366, 1.0755, 1.1667, 1.4147, & +1.0013, 1.0027, 1.0043, 1.0081, 1.0147, 1.0279, 1.0557, 1.1180, 1.2718, & +1.0011, 1.0019, 1.0030, 1.0059, 1.0112, 1.0212, 1.0418, 1.0862, 1.1898, & +1.0008, 1.0012, 1.0021, 1.0042, 1.0079, 1.0158, 1.0312, 1.0637, 1.1365 / +data ((supersat( 4,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +1.0027, 1.0050, 1.0087, 1.0165, 1.0337, 1.0745, 1.1773, 1.4841, 2.7355, & +1.0025, 1.0037, 1.0068, 1.0122, 1.0235, 1.0490, 1.1096, 1.2680, 1.8138, & +1.0021, 1.0027, 1.0053, 1.0095, 1.0174, 1.0344, 1.0730, 1.1660, 1.4264, & +1.0015, 1.0025, 1.0044, 1.0075, 1.0133, 1.0254, 1.0515, 1.1112, 1.2611, & +1.0011, 1.0021, 1.0030, 1.0055, 1.0104, 1.0194, 1.0380, 1.0788, 1.1746, & +1.0009, 1.0015, 1.0022, 1.0045, 1.0078, 1.0149, 1.0286, 1.0578, 1.1232, & +1.0006, 1.0010, 1.0016, 1.0032, 1.0059, 1.0112, 1.0216, 1.0429, 1.0895 / +data ((supersat( 4,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +1.0017, 1.0039, 1.0065, 1.0125, 1.0254, 1.0559, 1.1312, 1.3369, 2.0915, & +1.0016, 1.0030, 1.0051, 1.0091, 1.0175, 1.0362, 1.0803, 1.1913, 1.5174, & +1.0015, 1.0018, 1.0041, 1.0068, 1.0129, 1.0251, 1.0526, 1.1181, 1.2887, & +1.0013, 1.0015, 1.0033, 1.0056, 1.0098, 1.0184, 1.0367, 1.0783, 1.1787, & +1.0011, 1.0014, 1.0024, 1.0041, 1.0077, 1.0139, 1.0269, 1.0549, 1.1193, & +1.0008, 1.0011, 1.0017, 1.0034, 1.0059, 1.0107, 1.0202, 1.0401, 1.0840, & +1.0005, 1.0007, 1.0013, 1.0024, 1.0044, 1.0080, 1.0152, 1.0299, 1.0610 / +data ((supersat( 4,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +1.0017, 1.0030, 1.0052, 1.0099, 1.0201, 1.0441, 1.1031, 1.2569, 1.7370, & +1.0010, 1.0025, 1.0041, 1.0071, 1.0136, 1.0280, 1.0622, 1.1466, 1.3762, & +1.0006, 1.0018, 1.0030, 1.0053, 1.0098, 1.0190, 1.0399, 1.0893, 1.2135, & +1.0006, 1.0012, 1.0027, 1.0044, 1.0074, 1.0138, 1.0274, 1.0580, 1.1311, & +1.0005, 1.0008, 1.0021, 1.0030, 1.0057, 1.0105, 1.0198, 1.0401, 1.0862, & +1.0004, 1.0007, 1.0015, 1.0025, 1.0045, 1.0080, 1.0149, 1.0290, 1.0599, & +1.0004, 1.0007, 1.0011, 1.0019, 1.0033, 1.0060, 1.0111, 1.0215, 1.0433 / +data ((supersat( 4,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +1.0017, 1.0024, 1.0044, 1.0082, 1.0165, 1.0364, 1.0849, 1.2085, 1.5628, & +1.0012, 1.0020, 1.0034, 1.0058, 1.0110, 1.0227, 1.0505, 1.1186, 1.2968, & +1.0008, 1.0017, 1.0023, 1.0042, 1.0078, 1.0152, 1.0317, 1.0711, 1.1686, & +1.0005, 1.0013, 1.0020, 1.0035, 1.0059, 1.0109, 1.0213, 1.0452, 1.1020, & +1.0005, 1.0010, 1.0017, 1.0026, 1.0045, 1.0080, 1.0152, 1.0306, 1.0657, & +1.0004, 1.0008, 1.0013, 1.0018, 1.0036, 1.0061, 1.0114, 1.0219, 1.0449, & +1.0004, 1.0006, 1.0009, 1.0013, 1.0026, 1.0047, 1.0085, 1.0161, 1.0320 / +data ((supersat( 4,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +1.0011, 1.0023, 1.0038, 1.0070, 1.0140, 1.0309, 1.0722, 1.1760, 1.4608, & +1.0011, 1.0014, 1.0029, 1.0049, 1.0092, 1.0190, 1.0425, 1.0997, 1.2464, & +1.0010, 1.0011, 1.0022, 1.0037, 1.0065, 1.0125, 1.0262, 1.0590, 1.1395, & +1.0008, 1.0010, 1.0014, 1.0029, 1.0048, 1.0089, 1.0173, 1.0368, 1.0832, & +1.0006, 1.0009, 1.0010, 1.0023, 1.0038, 1.0065, 1.0123, 1.0245, 1.0525, & +1.0005, 1.0007, 1.0008, 1.0017, 1.0028, 1.0049, 1.0091, 1.0173, 1.0352, & +1.0003, 1.0004, 1.0007, 1.0012, 1.0021, 1.0037, 1.0067, 1.0126, 1.0248 / +data ((supersat( 4,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +1.0049, 1.0084, 1.0161, 1.0320, 1.0683, 1.1566, 1.4092, 2.7024, 4.9808, & +1.0039, 1.0067, 1.0121, 1.0235, 1.0479, 1.1039, 1.2454, 1.7129, 4.0075, & +1.0027, 1.0050, 1.0095, 1.0177, 1.0352, 1.0732, 1.1626, 1.4066, 2.5319, & +1.0018, 1.0041, 1.0073, 1.0137, 1.0264, 1.0535, 1.1142, 1.2642, 1.7426, & +1.0014, 1.0029, 1.0053, 1.0101, 1.0197, 1.0397, 1.0828, 1.1832, 1.4560, & +1.0009, 1.0017, 1.0034, 1.0070, 1.0144, 1.0292, 1.0605, 1.1308, 1.3055, & +1.0006, 1.0010, 1.0018, 1.0041, 1.0094, 1.0203, 1.0434, 1.0936, 1.2121 / +data ((supersat( 4,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +1.0036, 1.0062, 1.0113, 1.0221, 1.0465, 1.1046, 1.2573, 1.8022, 3.7116, & +1.0029, 1.0045, 1.0087, 1.0163, 1.0325, 1.0693, 1.1583, 1.4097, 2.5848, & +1.0020, 1.0036, 1.0066, 1.0123, 1.0238, 1.0487, 1.1056, 1.2487, 1.7128, & +1.0014, 1.0030, 1.0053, 1.0094, 1.0179, 1.0357, 1.0745, 1.1656, 1.4129, & +1.0011, 1.0022, 1.0036, 1.0071, 1.0137, 1.0266, 1.0543, 1.1164, 1.2696, & +1.0008, 1.0014, 1.0024, 1.0050, 1.0100, 1.0197, 1.0400, 1.0841, 1.1869, & +1.0005, 1.0008, 1.0015, 1.0031, 1.0066, 1.0140, 1.0290, 1.0610, 1.1329 / +data ((supersat( 4,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +1.0026, 1.0047, 1.0081, 1.0160, 1.0333, 1.0742, 1.1770, 1.4839, 2.7348, & +1.0023, 1.0032, 1.0062, 1.0117, 1.0230, 1.0486, 1.1093, 1.2675, 1.8133, & +1.0017, 1.0026, 1.0050, 1.0088, 1.0168, 1.0338, 1.0724, 1.1655, 1.4256, & +1.0012, 1.0022, 1.0038, 1.0069, 1.0127, 1.0247, 1.0508, 1.1104, 1.2600, & +1.0009, 1.0017, 1.0025, 1.0050, 1.0097, 1.0184, 1.0370, 1.0777, 1.1732, & +1.0007, 1.0011, 1.0018, 1.0038, 1.0070, 1.0138, 1.0273, 1.0563, 1.1214, & +1.0004, 1.0007, 1.0012, 1.0024, 1.0048, 1.0098, 1.0199, 1.0410, 1.0871 / +data ((supersat( 4,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +1.0016, 1.0036, 1.0062, 1.0120, 1.0250, 1.0556, 1.1310, 1.3367, 2.0912, & +1.0015, 1.0025, 1.0045, 1.0086, 1.0170, 1.0358, 1.0801, 1.1911, 1.5171, & +1.0014, 1.0016, 1.0038, 1.0065, 1.0123, 1.0245, 1.0522, 1.1177, 1.2882, & +1.0011, 1.0014, 1.0029, 1.0050, 1.0092, 1.0177, 1.0361, 1.0777, 1.1781, & +1.0008, 1.0012, 1.0020, 1.0037, 1.0070, 1.0132, 1.0261, 1.0541, 1.1184, & +1.0005, 1.0008, 1.0014, 1.0028, 1.0052, 1.0099, 1.0192, 1.0390, 1.0826, & +1.0004, 1.0006, 1.0010, 1.0018, 1.0035, 1.0070, 1.0140, 1.0284, 1.0593 / +data ((supersat( 4,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +1.0013, 1.0028, 1.0049, 1.0095, 1.0197, 1.0439, 1.1030, 1.2568, 1.7370, & +1.0007, 1.0022, 1.0036, 1.0068, 1.0132, 1.0277, 1.0620, 1.1464, 1.3760, & +1.0006, 1.0014, 1.0029, 1.0050, 1.0093, 1.0186, 1.0395, 1.0890, 1.2132, & +1.0005, 1.0010, 1.0024, 1.0039, 1.0070, 1.0132, 1.0268, 1.0576, 1.1307, & +1.0004, 1.0008, 1.0017, 1.0027, 1.0051, 1.0098, 1.0191, 1.0394, 1.0855, & +1.0004, 1.0007, 1.0012, 1.0021, 1.0040, 1.0072, 1.0140, 1.0281, 1.0589, & +1.0003, 1.0005, 1.0008, 1.0013, 1.0026, 1.0052, 1.0101, 1.0203, 1.0419 / +data ((supersat( 4,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +1.0015, 1.0020, 1.0040, 1.0078, 1.0162, 1.0362, 1.0848, 1.2084, 1.5627, & +1.0010, 1.0019, 1.0031, 1.0055, 1.0106, 1.0224, 1.0503, 1.1185, 1.2967, & +1.0006, 1.0015, 1.0020, 1.0040, 1.0075, 1.0147, 1.0314, 1.0709, 1.1684, & +1.0005, 1.0011, 1.0018, 1.0032, 1.0056, 1.0104, 1.0208, 1.0448, 1.1017, & +1.0004, 1.0008, 1.0014, 1.0021, 1.0040, 1.0076, 1.0146, 1.0300, 1.0652, & +1.0004, 1.0006, 1.0010, 1.0015, 1.0031, 1.0055, 1.0107, 1.0211, 1.0441, & +1.0003, 1.0004, 1.0006, 1.0011, 1.0021, 1.0040, 1.0076, 1.0151, 1.0309 / +data ((supersat( 4,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +1.0011, 1.0020, 1.0035, 1.0066, 1.0137, 1.0308, 1.0721, 1.1760, 1.4607, & +1.0010, 1.0011, 1.0027, 1.0046, 1.0089, 1.0187, 1.0423, 1.0996, 1.2464, & +1.0009, 1.0010, 1.0019, 1.0033, 1.0061, 1.0121, 1.0259, 1.0588, 1.1393, & +1.0007, 1.0009, 1.0012, 1.0026, 1.0045, 1.0084, 1.0169, 1.0365, 1.0829, & +1.0005, 1.0007, 1.0009, 1.0020, 1.0033, 1.0061, 1.0117, 1.0240, 1.0521, & +1.0003, 1.0005, 1.0007, 1.0014, 1.0024, 1.0044, 1.0084, 1.0166, 1.0345, & +1.0002, 1.0004, 1.0006, 1.0009, 1.0016, 1.0031, 1.0059, 1.0117, 1.0238 / +data ((supersat( 4,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +1.0046, 1.0080, 1.0155, 1.0315, 1.0678, 1.1561, 1.4085, 2.7010, 4.9786, & +1.0034, 1.0061, 1.0114, 1.0228, 1.0472, 1.1032, 1.2445, 1.7115, 4.0030, & +1.0022, 1.0046, 1.0086, 1.0170, 1.0342, 1.0722, 1.1613, 1.4048, 2.5274, & +1.0016, 1.0034, 1.0065, 1.0127, 1.0252, 1.0521, 1.1125, 1.2617, 1.7379, & +1.0011, 1.0021, 1.0043, 1.0090, 1.0183, 1.0379, 1.0806, 1.1800, 1.4506, & +1.0006, 1.0011, 1.0024, 1.0056, 1.0125, 1.0268, 1.0576, 1.1268, 1.2991, & +1.0004, 1.0006, 1.0011, 1.0027, 1.0072, 1.0174, 1.0397, 1.0885, 1.2040 / +data ((supersat( 4,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +1.0033, 1.0058, 1.0109, 1.0217, 1.0462, 1.1043, 1.2569, 1.8017, 3.7103, & +1.0025, 1.0039, 1.0082, 1.0157, 1.0320, 1.0688, 1.1578, 1.4089, 2.5831, & +1.0016, 1.0034, 1.0062, 1.0117, 1.0230, 1.0480, 1.1048, 1.2476, 1.7111, & +1.0012, 1.0025, 1.0046, 1.0087, 1.0171, 1.0347, 1.0734, 1.1642, 1.4108, & +1.0009, 1.0017, 1.0030, 1.0062, 1.0126, 1.0253, 1.0528, 1.1145, 1.2668, & +1.0005, 1.0009, 1.0019, 1.0040, 1.0087, 1.0181, 1.0381, 1.0817, 1.1833, & +1.0003, 1.0005, 1.0009, 1.0021, 1.0051, 1.0120, 1.0266, 1.0578, 1.1284 / +data ((supersat( 4,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +1.0024, 1.0043, 1.0077, 1.0156, 1.0330, 1.0739, 1.1768, 1.4836, 2.7339, & +1.0020, 1.0027, 1.0057, 1.0112, 1.0226, 1.0482, 1.1089, 1.2671, 1.8126, & +1.0014, 1.0024, 1.0046, 1.0082, 1.0162, 1.0333, 1.0719, 1.1648, 1.4248, & +1.0010, 1.0019, 1.0032, 1.0063, 1.0120, 1.0239, 1.0500, 1.1095, 1.2588, & +1.0007, 1.0013, 1.0021, 1.0044, 1.0089, 1.0174, 1.0359, 1.0764, 1.1716, & +1.0004, 1.0007, 1.0014, 1.0030, 1.0061, 1.0126, 1.0259, 1.0546, 1.1192, & +1.0003, 1.0004, 1.0008, 1.0016, 1.0037, 1.0083, 1.0181, 1.0388, 1.0842 / +data ((supersat( 4,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +1.0016, 1.0033, 1.0059, 1.0117, 1.0247, 1.0554, 1.1309, 1.3365, 2.0909, & +1.0014, 1.0021, 1.0041, 1.0083, 1.0166, 1.0355, 1.0798, 1.1908, 1.5168, & +1.0012, 1.0015, 1.0035, 1.0061, 1.0118, 1.0241, 1.0518, 1.1173, 1.2877, & +1.0009, 1.0013, 1.0025, 1.0045, 1.0086, 1.0171, 1.0355, 1.0771, 1.1773, & +1.0006, 1.0009, 1.0016, 1.0033, 1.0063, 1.0124, 1.0252, 1.0532, 1.1173, & +1.0004, 1.0006, 1.0011, 1.0022, 1.0045, 1.0089, 1.0181, 1.0377, 1.0811, & +1.0003, 1.0004, 1.0006, 1.0012, 1.0027, 1.0059, 1.0126, 1.0267, 1.0572 / +data ((supersat( 4,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +1.0011, 1.0027, 1.0047, 1.0092, 1.0195, 1.0438, 1.1029, 1.2567, 1.7368, & +1.0006, 1.0019, 1.0032, 1.0065, 1.0128, 1.0274, 1.0618, 1.1462, 1.3758, & +1.0005, 1.0012, 1.0027, 1.0047, 1.0089, 1.0182, 1.0392, 1.0887, 1.2128, & +1.0004, 1.0008, 1.0020, 1.0034, 1.0066, 1.0127, 1.0263, 1.0571, 1.1302, & +1.0004, 1.0007, 1.0014, 1.0024, 1.0047, 1.0091, 1.0184, 1.0387, 1.0848, & +1.0003, 1.0005, 1.0009, 1.0017, 1.0033, 1.0064, 1.0131, 1.0271, 1.0578, & +1.0002, 1.0003, 1.0005, 1.0009, 1.0020, 1.0043, 1.0090, 1.0190, 1.0403 / +data ((supersat( 4,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +1.0012, 1.0020, 1.0038, 1.0075, 1.0159, 1.0360, 1.0847, 1.2083, 1.5625, & +1.0008, 1.0017, 1.0028, 1.0052, 1.0103, 1.0221, 1.0501, 1.1183, 1.2965, & +1.0005, 1.0013, 1.0019, 1.0038, 1.0071, 1.0144, 1.0311, 1.0707, 1.1681, & +1.0005, 1.0009, 1.0016, 1.0028, 1.0052, 1.0099, 1.0204, 1.0445, 1.1013, & +1.0004, 1.0007, 1.0012, 1.0018, 1.0036, 1.0071, 1.0141, 1.0295, 1.0646, & +1.0003, 1.0004, 1.0007, 1.0012, 1.0026, 1.0049, 1.0099, 1.0203, 1.0432, & +1.0002, 1.0003, 1.0004, 1.0008, 1.0015, 1.0032, 1.0067, 1.0140, 1.0296 / +data ((supersat( 4,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +1.0010, 1.0017, 1.0032, 1.0064, 1.0135, 1.0306, 1.0721, 1.1759, 1.4606, & +1.0009, 1.0010, 1.0024, 1.0043, 1.0086, 1.0185, 1.0422, 1.0995, 1.2462, & +1.0007, 1.0010, 1.0016, 1.0029, 1.0059, 1.0118, 1.0257, 1.0586, 1.1392, & +1.0005, 1.0008, 1.0010, 1.0024, 1.0042, 1.0080, 1.0165, 1.0362, 1.0827, & +1.0004, 1.0005, 1.0008, 1.0017, 1.0029, 1.0057, 1.0112, 1.0235, 1.0516, & +1.0002, 1.0004, 1.0006, 1.0011, 1.0020, 1.0039, 1.0078, 1.0159, 1.0338, & +1.0002, 1.0002, 1.0004, 1.0006, 1.0012, 1.0025, 1.0052, 1.0108, 1.0228 / +data ((supersat( 4,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +1.0042, 1.0077, 1.0150, 1.0310, 1.0673, 1.1555, 1.4078, 2.6992, 4.9761, & +1.0029, 1.0054, 1.0109, 1.0222, 1.0465, 1.1024, 1.2435, 1.7097, 3.9971, & +1.0019, 1.0041, 1.0078, 1.0161, 1.0333, 1.0710, 1.1599, 1.4025, 2.5217, & +1.0013, 1.0027, 1.0056, 1.0116, 1.0240, 1.0506, 1.1106, 1.2588, 1.7319, & +1.0007, 1.0014, 1.0034, 1.0077, 1.0167, 1.0358, 1.0780, 1.1762, 1.4438, & +1.0004, 1.0007, 1.0015, 1.0041, 1.0105, 1.0243, 1.0542, 1.1219, 1.2908, & +1.0003, 1.0004, 1.0007, 1.0015, 1.0050, 1.0143, 1.0353, 1.0823, 1.1940 / +data ((supersat( 4,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +1.0030, 1.0054, 1.0104, 1.0213, 1.0458, 1.1039, 1.2565, 1.8011, 3.7086, & +1.0021, 1.0036, 1.0077, 1.0151, 1.0315, 1.0683, 1.1572, 1.4081, 2.5810, & +1.0014, 1.0030, 1.0057, 1.0111, 1.0224, 1.0472, 1.1040, 1.2465, 1.7090, & +1.0010, 1.0020, 1.0039, 1.0080, 1.0162, 1.0336, 1.0722, 1.1625, 1.4081, & +1.0006, 1.0011, 1.0024, 1.0052, 1.0114, 1.0239, 1.0511, 1.1123, 1.2634, & +1.0003, 1.0006, 1.0012, 1.0029, 1.0073, 1.0164, 1.0359, 1.0788, 1.1789, & +1.0002, 1.0003, 1.0006, 1.0012, 1.0036, 1.0098, 1.0237, 1.0540, 1.1227 / +data ((supersat( 4,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +1.0023, 1.0039, 1.0074, 1.0152, 1.0327, 1.0737, 1.1765, 1.4832, 2.7333, & +1.0017, 1.0025, 1.0052, 1.0107, 1.0221, 1.0478, 1.1085, 1.2666, 1.8119, & +1.0012, 1.0022, 1.0042, 1.0076, 1.0157, 1.0327, 1.0713, 1.1641, 1.4238, & +1.0008, 1.0015, 1.0028, 1.0056, 1.0113, 1.0232, 1.0491, 1.1085, 1.2574, & +1.0005, 1.0008, 1.0017, 1.0038, 1.0080, 1.0164, 1.0347, 1.0750, 1.1695, & +1.0003, 1.0005, 1.0009, 1.0022, 1.0050, 1.0113, 1.0243, 1.0526, 1.1165, & +1.0002, 1.0003, 1.0005, 1.0010, 1.0025, 1.0067, 1.0160, 1.0362, 1.0807 / +data ((supersat( 4,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +1.0015, 1.0030, 1.0057, 1.0114, 1.0245, 1.0553, 1.1307, 1.3363, 2.0907, & +1.0013, 1.0018, 1.0039, 1.0080, 1.0162, 1.0352, 1.0795, 1.1905, 1.5163, & +1.0010, 1.0014, 1.0031, 1.0058, 1.0114, 1.0236, 1.0513, 1.1169, 1.2871, & +1.0007, 1.0010, 1.0021, 1.0040, 1.0081, 1.0165, 1.0348, 1.0764, 1.1764, & +1.0004, 1.0007, 1.0013, 1.0028, 1.0056, 1.0117, 1.0244, 1.0522, 1.1160, & +1.0003, 1.0004, 1.0007, 1.0016, 1.0037, 1.0079, 1.0170, 1.0363, 1.0794, & +1.0002, 1.0003, 1.0004, 1.0008, 1.0018, 1.0046, 1.0111, 1.0248, 1.0548 / +data ((supersat( 4,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +1.0009, 1.0025, 1.0045, 1.0089, 1.0193, 1.0436, 1.1027, 1.2566, 1.7366, & +1.0006, 1.0017, 1.0029, 1.0062, 1.0125, 1.0272, 1.0616, 1.1460, 1.3756, & +1.0005, 1.0010, 1.0024, 1.0044, 1.0086, 1.0178, 1.0389, 1.0884, 1.2124, & +1.0004, 1.0008, 1.0017, 1.0030, 1.0061, 1.0123, 1.0258, 1.0566, 1.1296, & +1.0003, 1.0006, 1.0011, 1.0020, 1.0042, 1.0085, 1.0177, 1.0379, 1.0839, & +1.0002, 1.0003, 1.0006, 1.0012, 1.0027, 1.0056, 1.0122, 1.0260, 1.0566, & +1.0002, 1.0002, 1.0003, 1.0006, 1.0013, 1.0033, 1.0078, 1.0175, 1.0385 / +data ((supersat( 4,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +1.0010, 1.0019, 1.0036, 1.0073, 1.0158, 1.0359, 1.0846, 1.2082, 1.5625, & +1.0006, 1.0015, 1.0025, 1.0050, 1.0100, 1.0219, 1.0500, 1.1182, 1.2964, & +1.0005, 1.0011, 1.0018, 1.0035, 1.0068, 1.0141, 1.0309, 1.0704, 1.1679, & +1.0004, 1.0007, 1.0014, 1.0025, 1.0048, 1.0095, 1.0200, 1.0441, 1.1009, & +1.0003, 1.0005, 1.0009, 1.0016, 1.0032, 1.0066, 1.0135, 1.0289, 1.0640, & +1.0002, 1.0003, 1.0005, 1.0010, 1.0020, 1.0043, 1.0091, 1.0194, 1.0422, & +1.0001, 1.0002, 1.0003, 1.0005, 1.0010, 1.0024, 1.0057, 1.0128, 1.0283 / +data ((supersat( 4,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +1.0010, 1.0015, 1.0029, 1.0061, 1.0133, 1.0305, 1.0720, 1.1758, 1.4606, & +1.0008, 1.0010, 1.0022, 1.0041, 1.0084, 1.0183, 1.0420, 1.0994, 1.2461, & +1.0006, 1.0009, 1.0014, 1.0028, 1.0056, 1.0115, 1.0255, 1.0585, 1.1390, & +1.0004, 1.0006, 1.0009, 1.0021, 1.0039, 1.0076, 1.0162, 1.0359, 1.0824, & +1.0003, 1.0004, 1.0007, 1.0014, 1.0025, 1.0052, 1.0107, 1.0230, 1.0511, & +1.0002, 1.0003, 1.0004, 1.0008, 1.0016, 1.0033, 1.0071, 1.0152, 1.0330, & +1.0001, 1.0002, 1.0003, 1.0004, 1.0008, 1.0018, 1.0044, 1.0098, 1.0216 / +data ((supersat( 4,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +1.0040, 1.0074, 1.0147, 1.0307, 1.0671, 1.1552, 1.4073, 2.6979, 4.9739, & +1.0026, 1.0051, 1.0106, 1.0218, 1.0461, 1.1019, 1.2428, 1.7085, 3.9931, & +1.0017, 1.0037, 1.0074, 1.0156, 1.0327, 1.0703, 1.1589, 1.4009, 2.5176, & +1.0010, 1.0023, 1.0051, 1.0109, 1.0232, 1.0496, 1.1093, 1.2567, 1.7278, & +1.0005, 1.0011, 1.0028, 1.0068, 1.0157, 1.0346, 1.0763, 1.1736, 1.4390, & +1.0003, 1.0005, 1.0011, 1.0032, 1.0092, 1.0226, 1.0520, 1.1186, 1.2851, & +1.0002, 1.0003, 1.0005, 1.0011, 1.0036, 1.0123, 1.0325, 1.0780, 1.1870 / +data ((supersat( 4,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +1.0029, 1.0052, 1.0102, 1.0211, 1.0456, 1.1037, 1.2562, 1.8006, 3.7074, & +1.0019, 1.0035, 1.0074, 1.0148, 1.0312, 1.0680, 1.1568, 1.4075, 2.5795, & +1.0013, 1.0027, 1.0054, 1.0107, 1.0220, 1.0468, 1.1034, 1.2456, 1.7075, & +1.0008, 1.0017, 1.0035, 1.0075, 1.0156, 1.0330, 1.0714, 1.1614, 1.4063, & +1.0004, 1.0009, 1.0020, 1.0047, 1.0106, 1.0231, 1.0501, 1.1108, 1.2611, & +1.0003, 1.0004, 1.0009, 1.0024, 1.0064, 1.0153, 1.0344, 1.0768, 1.1759, & +1.0002, 1.0003, 1.0005, 1.0009, 1.0027, 1.0084, 1.0218, 1.0514, 1.1188 / +data ((supersat( 4,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +1.0021, 1.0037, 1.0073, 1.0151, 1.0326, 1.0736, 1.1764, 1.4830, 2.7327, & +1.0015, 1.0025, 1.0051, 1.0105, 1.0219, 1.0476, 1.1083, 1.2663, 1.8114, & +1.0010, 1.0020, 1.0039, 1.0074, 1.0154, 1.0324, 1.0709, 1.1636, 1.4231, & +1.0007, 1.0013, 1.0025, 1.0053, 1.0109, 1.0227, 1.0486, 1.1078, 1.2564, & +1.0004, 1.0007, 1.0015, 1.0034, 1.0075, 1.0158, 1.0340, 1.0740, 1.1682, & +1.0002, 1.0004, 1.0007, 1.0017, 1.0044, 1.0104, 1.0233, 1.0513, 1.1147, & +1.0002, 1.0002, 1.0004, 1.0007, 1.0019, 1.0058, 1.0147, 1.0345, 1.0783 / +data ((supersat( 4,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +1.0015, 1.0029, 1.0055, 1.0113, 1.0244, 1.0552, 1.1306, 1.3362, 2.0905, & +1.0012, 1.0017, 1.0038, 1.0078, 1.0161, 1.0350, 1.0794, 1.1903, 1.5161, & +1.0009, 1.0013, 1.0029, 1.0056, 1.0111, 1.0234, 1.0511, 1.1166, 1.2867, & +1.0005, 1.0009, 1.0019, 1.0037, 1.0078, 1.0161, 1.0345, 1.0759, 1.1758, & +1.0003, 1.0006, 1.0012, 1.0025, 1.0052, 1.0112, 1.0238, 1.0515, 1.1151, & +1.0002, 1.0003, 1.0006, 1.0013, 1.0032, 1.0073, 1.0162, 1.0354, 1.0782, & +1.0001, 1.0002, 1.0003, 1.0006, 1.0014, 1.0039, 1.0101, 1.0236, 1.0532 / +data ((supersat( 4,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +1.0008, 1.0023, 1.0044, 1.0088, 1.0192, 1.0436, 1.1027, 1.2565, 1.7365, & +1.0005, 1.0015, 1.0028, 1.0060, 1.0124, 1.0270, 1.0615, 1.1459, 1.3754, & +1.0005, 1.0010, 1.0023, 1.0043, 1.0084, 1.0176, 1.0387, 1.0882, 1.2122, & +1.0004, 1.0007, 1.0015, 1.0028, 1.0059, 1.0120, 1.0255, 1.0563, 1.1292, & +1.0003, 1.0005, 1.0009, 1.0018, 1.0039, 1.0081, 1.0173, 1.0375, 1.0833, & +1.0002, 1.0003, 1.0005, 1.0010, 1.0023, 1.0052, 1.0116, 1.0253, 1.0557, & +1.0001, 1.0002, 1.0003, 1.0005, 1.0010, 1.0027, 1.0070, 1.0166, 1.0374 / +data ((supersat( 4,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +1.0010, 1.0018, 1.0035, 1.0071, 1.0157, 1.0359, 1.0846, 1.2081, 1.5624, & +1.0006, 1.0014, 1.0023, 1.0048, 1.0099, 1.0218, 1.0499, 1.1181, 1.2963, & +1.0005, 1.0010, 1.0017, 1.0034, 1.0066, 1.0139, 1.0307, 1.0703, 1.1677, & +1.0004, 1.0007, 1.0012, 1.0023, 1.0046, 1.0093, 1.0198, 1.0439, 1.1006, & +1.0002, 1.0004, 1.0007, 1.0014, 1.0029, 1.0063, 1.0132, 1.0285, 1.0636, & +1.0002, 1.0002, 1.0004, 1.0008, 1.0017, 1.0039, 1.0087, 1.0189, 1.0416, & +1.0001, 1.0002, 1.0002, 1.0004, 1.0008, 1.0020, 1.0051, 1.0121, 1.0273 / +data ((supersat( 4,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +1.0009, 1.0014, 1.0028, 1.0060, 1.0133, 1.0305, 1.0720, 1.1758, 1.4605, & +1.0007, 1.0010, 1.0021, 1.0040, 1.0083, 1.0183, 1.0420, 1.0993, 1.2460, & +1.0005, 1.0008, 1.0013, 1.0027, 1.0054, 1.0114, 1.0254, 1.0583, 1.1388, & +1.0003, 1.0005, 1.0008, 1.0019, 1.0037, 1.0074, 1.0160, 1.0357, 1.0822, & +1.0002, 1.0003, 1.0006, 1.0012, 1.0023, 1.0050, 1.0104, 1.0227, 1.0508, & +1.0001, 1.0002, 1.0003, 1.0006, 1.0014, 1.0030, 1.0067, 1.0147, 1.0325, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0006, 1.0015, 1.0039, 1.0092, 1.0209 / +data ((supersat( 4,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +1.0038, 1.0073, 1.0145, 1.0305, 1.0668, 1.1549, 1.4069, 2.6969, 4.9721, & +1.0025, 1.0049, 1.0104, 1.0215, 1.0458, 1.1015, 1.2422, 1.7075, 3.9899, & +1.0016, 1.0035, 1.0071, 1.0153, 1.0322, 1.0698, 1.1581, 1.3997, 2.5144, & +1.0008, 1.0020, 1.0047, 1.0104, 1.0226, 1.0489, 1.1082, 1.2552, 1.7245, & +1.0004, 1.0009, 1.0023, 1.0062, 1.0149, 1.0336, 1.0749, 1.1715, 1.4353, & +1.0003, 1.0004, 1.0009, 1.0026, 1.0083, 1.0213, 1.0502, 1.1159, 1.2806, & +1.0002, 1.0003, 1.0005, 1.0009, 1.0028, 1.0108, 1.0303, 1.0747, 1.1815 / +data ((supersat( 4,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +1.0027, 1.0051, 1.0101, 1.0209, 1.0455, 1.1036, 1.2560, 1.8003, 3.7066, & +1.0018, 1.0034, 1.0072, 1.0146, 1.0309, 1.0677, 1.1565, 1.4071, 2.5783, & +1.0012, 1.0026, 1.0052, 1.0105, 1.0217, 1.0464, 1.1030, 1.2450, 1.7063, & +1.0007, 1.0015, 1.0033, 1.0072, 1.0152, 1.0325, 1.0708, 1.1605, 1.4049, & +1.0004, 1.0007, 1.0018, 1.0043, 1.0101, 1.0224, 1.0492, 1.1097, 1.2592, & +1.0002, 1.0004, 1.0007, 1.0019, 1.0057, 1.0144, 1.0333, 1.0752, 1.1735, & +1.0002, 1.0002, 1.0004, 1.0007, 1.0021, 1.0074, 1.0204, 1.0494, 1.1158 / +data ((supersat( 4,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +1.0021, 1.0036, 1.0072, 1.0150, 1.0325, 1.0735, 1.1763, 1.4829, 2.7323, & +1.0014, 1.0024, 1.0050, 1.0103, 1.0218, 1.0474, 1.1081, 1.2661, 1.8110, & +1.0010, 1.0019, 1.0037, 1.0072, 1.0151, 1.0321, 1.0706, 1.1632, 1.4225, & +1.0006, 1.0011, 1.0023, 1.0050, 1.0106, 1.0224, 1.0482, 1.1073, 1.2556, & +1.0003, 1.0006, 1.0013, 1.0030, 1.0071, 1.0154, 1.0334, 1.0733, 1.1672, & +1.0002, 1.0003, 1.0006, 1.0014, 1.0039, 1.0098, 1.0226, 1.0503, 1.1133, & +1.0001, 1.0002, 1.0003, 1.0006, 1.0015, 1.0050, 1.0137, 1.0332, 1.0764 / +data ((supersat( 4,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +1.0014, 1.0028, 1.0054, 1.0112, 1.0243, 1.0551, 1.1305, 1.3361, 2.0903, & +1.0012, 1.0016, 1.0037, 1.0077, 1.0159, 1.0349, 1.0792, 1.1901, 1.5159, & +1.0008, 1.0012, 1.0028, 1.0054, 1.0110, 1.0232, 1.0509, 1.1163, 1.2864, & +1.0004, 1.0008, 1.0018, 1.0035, 1.0075, 1.0159, 1.0342, 1.0756, 1.1754, & +1.0003, 1.0005, 1.0010, 1.0022, 1.0049, 1.0108, 1.0234, 1.0510, 1.1145, & +1.0002, 1.0003, 1.0005, 1.0011, 1.0028, 1.0069, 1.0156, 1.0347, 1.0773, & +1.0001, 1.0002, 1.0003, 1.0005, 1.0011, 1.0034, 1.0094, 1.0226, 1.0519 / +data ((supersat( 4,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +1.0008, 1.0023, 1.0043, 1.0087, 1.0191, 1.0435, 1.1026, 1.2564, 1.7364, & +1.0005, 1.0014, 1.0028, 1.0059, 1.0123, 1.0270, 1.0614, 1.1458, 1.3753, & +1.0004, 1.0009, 1.0022, 1.0041, 1.0082, 1.0175, 1.0386, 1.0880, 1.2120, & +1.0004, 1.0007, 1.0014, 1.0026, 1.0057, 1.0118, 1.0253, 1.0560, 1.1289, & +1.0002, 1.0004, 1.0008, 1.0016, 1.0036, 1.0078, 1.0170, 1.0371, 1.0829, & +1.0002, 1.0002, 1.0004, 1.0008, 1.0020, 1.0048, 1.0111, 1.0248, 1.0551, & +1.0001, 1.0002, 1.0002, 1.0004, 1.0008, 1.0023, 1.0065, 1.0159, 1.0365 / +data ((supersat( 4,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +1.0009, 1.0018, 1.0034, 1.0071, 1.0156, 1.0358, 1.0845, 1.2081, 1.5623, & +1.0006, 1.0014, 1.0022, 1.0047, 1.0098, 1.0218, 1.0498, 1.1180, 1.2962, & +1.0004, 1.0009, 1.0016, 1.0033, 1.0065, 1.0138, 1.0306, 1.0702, 1.1676, & +1.0003, 1.0006, 1.0011, 1.0022, 1.0044, 1.0091, 1.0196, 1.0437, 1.1004, & +1.0002, 1.0003, 1.0006, 1.0013, 1.0027, 1.0060, 1.0129, 1.0282, 1.0632, & +1.0001, 1.0002, 1.0003, 1.0006, 1.0015, 1.0036, 1.0083, 1.0185, 1.0411, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0006, 1.0017, 1.0047, 1.0115, 1.0267 / +data ((supersat( 4,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +1.0009, 1.0013, 1.0028, 1.0060, 1.0132, 1.0305, 1.0719, 1.1757, 1.4605, & +1.0007, 1.0009, 1.0020, 1.0039, 1.0082, 1.0182, 1.0419, 1.0993, 1.2460, & +1.0005, 1.0007, 1.0012, 1.0026, 1.0053, 1.0113, 1.0253, 1.0583, 1.1388, & +1.0003, 1.0004, 1.0008, 1.0018, 1.0036, 1.0073, 1.0158, 1.0355, 1.0820, & +1.0002, 1.0003, 1.0005, 1.0011, 1.0022, 1.0048, 1.0102, 1.0225, 1.0506, & +1.0001, 1.0002, 1.0003, 1.0005, 1.0012, 1.0028, 1.0064, 1.0144, 1.0321, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0005, 1.0013, 1.0035, 1.0087, 1.0203 / +data ((supersat( 4,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +1.0037, 1.0071, 1.0144, 1.0303, 1.0667, 1.1547, 1.4066, 2.6960, 4.9707, & +1.0024, 1.0047, 1.0102, 1.0213, 1.0455, 1.1012, 1.2418, 1.7066, 3.9872, & +1.0015, 1.0033, 1.0069, 1.0150, 1.0319, 1.0693, 1.1575, 1.3987, 2.5116, & +1.0007, 1.0017, 1.0044, 1.0100, 1.0221, 1.0483, 1.1074, 1.2539, 1.7217, & +1.0004, 1.0007, 1.0020, 1.0057, 1.0143, 1.0328, 1.0738, 1.1698, 1.4320, & +1.0002, 1.0004, 1.0007, 1.0022, 1.0075, 1.0203, 1.0488, 1.1136, 1.2767, & +1.0002, 1.0003, 1.0005, 1.0008, 1.0022, 1.0097, 1.0286, 1.0720, 1.1769 / +data ((supersat( 4,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +1.0026, 1.0050, 1.0099, 1.0208, 1.0454, 1.1034, 1.2559, 1.8000, 3.7058, & +1.0017, 1.0033, 1.0070, 1.0144, 1.0308, 1.0675, 1.1562, 1.4067, 2.5773, & +1.0011, 1.0024, 1.0050, 1.0102, 1.0214, 1.0461, 1.1026, 1.2445, 1.7054, & +1.0006, 1.0013, 1.0031, 1.0069, 1.0149, 1.0321, 1.0703, 1.1598, 1.4036, & +1.0003, 1.0006, 1.0015, 1.0040, 1.0097, 1.0219, 1.0485, 1.1087, 1.2577, & +1.0002, 1.0003, 1.0006, 1.0016, 1.0052, 1.0137, 1.0324, 1.0739, 1.1715, & +1.0001, 1.0002, 1.0003, 1.0006, 1.0017, 1.0066, 1.0193, 1.0478, 1.1132 / +data ((supersat( 4,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +1.0020, 1.0035, 1.0071, 1.0149, 1.0324, 1.0734, 1.1762, 1.4827, 2.7319, & +1.0014, 1.0023, 1.0049, 1.0102, 1.0216, 1.0473, 1.1079, 1.2659, 1.8106, & +1.0009, 1.0017, 1.0036, 1.0071, 1.0149, 1.0319, 1.0704, 1.1630, 1.4220, & +1.0005, 1.0010, 1.0022, 1.0048, 1.0104, 1.0221, 1.0479, 1.1068, 1.2550, & +1.0003, 1.0005, 1.0012, 1.0028, 1.0067, 1.0150, 1.0329, 1.0727, 1.1663, & +1.0002, 1.0003, 1.0005, 1.0012, 1.0036, 1.0093, 1.0219, 1.0495, 1.1121, & +1.0001, 1.0002, 1.0003, 1.0005, 1.0012, 1.0044, 1.0129, 1.0321, 1.0749 / +data ((supersat( 4,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +1.0014, 1.0027, 1.0054, 1.0111, 1.0243, 1.0550, 1.1304, 1.3360, 2.0901, & +1.0011, 1.0015, 1.0037, 1.0076, 1.0159, 1.0348, 1.0791, 1.1900, 1.5157, & +1.0007, 1.0011, 1.0027, 1.0053, 1.0108, 1.0231, 1.0507, 1.1161, 1.2861, & +1.0004, 1.0007, 1.0017, 1.0034, 1.0074, 1.0157, 1.0339, 1.0753, 1.1750, & +1.0002, 1.0004, 1.0009, 1.0020, 1.0047, 1.0106, 1.0230, 1.0506, 1.1139, & +1.0002, 1.0002, 1.0004, 1.0009, 1.0025, 1.0065, 1.0152, 1.0341, 1.0765, & +1.0001, 1.0002, 1.0002, 1.0004, 1.0009, 1.0030, 1.0088, 1.0219, 1.0509 / +data ((supersat( 4,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +1.0007, 1.0022, 1.0042, 1.0087, 1.0191, 1.0435, 1.1026, 1.2564, 1.7363, & +1.0005, 1.0014, 1.0027, 1.0058, 1.0122, 1.0269, 1.0613, 1.1457, 1.3752, & +1.0004, 1.0009, 1.0021, 1.0040, 1.0081, 1.0174, 1.0384, 1.0879, 1.2119, & +1.0003, 1.0006, 1.0013, 1.0025, 1.0055, 1.0116, 1.0251, 1.0558, 1.1287, & +1.0002, 1.0003, 1.0007, 1.0015, 1.0034, 1.0076, 1.0167, 1.0368, 1.0825, & +1.0001, 1.0002, 1.0003, 1.0007, 1.0018, 1.0046, 1.0108, 1.0244, 1.0545, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0007, 1.0020, 1.0060, 1.0153, 1.0357 / +data ((supersat( 4,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +1.0008, 1.0017, 1.0034, 1.0070, 1.0156, 1.0358, 1.0845, 1.2081, 1.5623, & +1.0005, 1.0013, 1.0022, 1.0047, 1.0098, 1.0217, 1.0498, 1.1180, 1.2961, & +1.0004, 1.0009, 1.0015, 1.0032, 1.0064, 1.0137, 1.0305, 1.0701, 1.1675, & +1.0003, 1.0005, 1.0010, 1.0021, 1.0043, 1.0090, 1.0195, 1.0435, 1.1003, & +1.0002, 1.0003, 1.0006, 1.0012, 1.0026, 1.0058, 1.0127, 1.0280, 1.0630, & +1.0001, 1.0002, 1.0003, 1.0006, 1.0013, 1.0034, 1.0080, 1.0181, 1.0407, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0006, 1.0014, 1.0043, 1.0110, 1.0261 / +data ((supersat( 4,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +1.0009, 1.0012, 1.0027, 1.0059, 1.0132, 1.0304, 1.0719, 1.1757, 1.4605, & +1.0006, 1.0009, 1.0020, 1.0039, 1.0081, 1.0182, 1.0419, 1.0992, 1.2459, & +1.0004, 1.0007, 1.0012, 1.0025, 1.0053, 1.0112, 1.0252, 1.0582, 1.1387, & +1.0002, 1.0004, 1.0008, 1.0017, 1.0035, 1.0072, 1.0157, 1.0354, 1.0819, & +1.0002, 1.0003, 1.0005, 1.0010, 1.0021, 1.0046, 1.0100, 1.0223, 1.0504, & +1.0001, 1.0002, 1.0003, 1.0005, 1.0010, 1.0026, 1.0062, 1.0141, 1.0318, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0005, 1.0011, 1.0032, 1.0083, 1.0199 / +data ((supersat( 5,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +1.0042, 1.0076, 1.0150, 1.0309, 1.0673, 1.1554, 1.4077, 2.6990, 4.9755, & +1.0029, 1.0054, 1.0109, 1.0221, 1.0465, 1.1023, 1.2434, 1.7095, 3.9965, & +1.0019, 1.0041, 1.0078, 1.0161, 1.0332, 1.0710, 1.1597, 1.4023, 2.5209, & +1.0013, 1.0027, 1.0056, 1.0115, 1.0239, 1.0505, 1.1104, 1.2585, 1.7312, & +1.0007, 1.0014, 1.0033, 1.0076, 1.0166, 1.0357, 1.0778, 1.1758, 1.4431, & +1.0004, 1.0007, 1.0015, 1.0041, 1.0104, 1.0241, 1.0540, 1.1214, 1.2899, & +1.0003, 1.0004, 1.0007, 1.0015, 1.0049, 1.0142, 1.0350, 1.0817, 1.1928 / +data ((supersat( 5,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +1.0030, 1.0054, 1.0104, 1.0212, 1.0458, 1.1039, 1.2565, 1.8010, 3.7084, & +1.0021, 1.0036, 1.0076, 1.0151, 1.0314, 1.0682, 1.1571, 1.4080, 2.5808, & +1.0014, 1.0030, 1.0057, 1.0111, 1.0223, 1.0472, 1.1039, 1.2463, 1.7088, & +1.0010, 1.0020, 1.0039, 1.0080, 1.0162, 1.0336, 1.0721, 1.1624, 1.4079, & +1.0006, 1.0011, 1.0024, 1.0052, 1.0113, 1.0239, 1.0510, 1.1121, 1.2631, & +1.0003, 1.0006, 1.0012, 1.0029, 1.0072, 1.0163, 1.0358, 1.0786, 1.1785, & +1.0002, 1.0003, 1.0006, 1.0012, 1.0035, 1.0097, 1.0236, 1.0537, 1.1221 / +data ((supersat( 5,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +1.0023, 1.0039, 1.0074, 1.0152, 1.0327, 1.0737, 1.1765, 1.4832, 2.7332, & +1.0017, 1.0025, 1.0052, 1.0107, 1.0221, 1.0478, 1.1085, 1.2666, 1.8118, & +1.0012, 1.0021, 1.0041, 1.0076, 1.0157, 1.0327, 1.0713, 1.1640, 1.4237, & +1.0008, 1.0015, 1.0027, 1.0056, 1.0113, 1.0231, 1.0491, 1.1084, 1.2573, & +1.0005, 1.0008, 1.0017, 1.0038, 1.0080, 1.0164, 1.0347, 1.0749, 1.1694, & +1.0003, 1.0005, 1.0009, 1.0021, 1.0050, 1.0112, 1.0243, 1.0525, 1.1163, & +1.0002, 1.0003, 1.0005, 1.0010, 1.0025, 1.0067, 1.0160, 1.0361, 1.0804 / +data ((supersat( 5,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +1.0015, 1.0030, 1.0057, 1.0114, 1.0245, 1.0552, 1.1307, 1.3363, 2.0906, & +1.0013, 1.0018, 1.0039, 1.0079, 1.0162, 1.0352, 1.0795, 1.1905, 1.5163, & +1.0010, 1.0014, 1.0031, 1.0058, 1.0114, 1.0236, 1.0513, 1.1168, 1.2871, & +1.0007, 1.0010, 1.0021, 1.0040, 1.0081, 1.0165, 1.0348, 1.0763, 1.1764, & +1.0004, 1.0007, 1.0013, 1.0028, 1.0055, 1.0117, 1.0243, 1.0521, 1.1159, & +1.0003, 1.0004, 1.0007, 1.0016, 1.0036, 1.0079, 1.0169, 1.0363, 1.0793, & +1.0002, 1.0003, 1.0004, 1.0008, 1.0018, 1.0046, 1.0110, 1.0248, 1.0547 / +data ((supersat( 5,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +1.0009, 1.0025, 1.0045, 1.0089, 1.0192, 1.0436, 1.1027, 1.2566, 1.7365, & +1.0006, 1.0016, 1.0029, 1.0062, 1.0125, 1.0272, 1.0616, 1.1460, 1.3756, & +1.0005, 1.0010, 1.0024, 1.0044, 1.0086, 1.0178, 1.0389, 1.0884, 1.2124, & +1.0004, 1.0008, 1.0017, 1.0030, 1.0061, 1.0122, 1.0258, 1.0566, 1.1296, & +1.0003, 1.0006, 1.0011, 1.0020, 1.0042, 1.0085, 1.0177, 1.0379, 1.0839, & +1.0002, 1.0003, 1.0006, 1.0012, 1.0027, 1.0056, 1.0122, 1.0260, 1.0565, & +1.0002, 1.0002, 1.0003, 1.0006, 1.0013, 1.0033, 1.0078, 1.0175, 1.0385 / +data ((supersat( 5,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +1.0010, 1.0019, 1.0036, 1.0072, 1.0157, 1.0359, 1.0846, 1.2082, 1.5624, & +1.0006, 1.0015, 1.0025, 1.0049, 1.0100, 1.0219, 1.0500, 1.1182, 1.2964, & +1.0005, 1.0011, 1.0018, 1.0035, 1.0068, 1.0141, 1.0309, 1.0704, 1.1679, & +1.0004, 1.0007, 1.0014, 1.0025, 1.0048, 1.0095, 1.0200, 1.0441, 1.1009, & +1.0003, 1.0005, 1.0009, 1.0016, 1.0032, 1.0066, 1.0135, 1.0289, 1.0640, & +1.0002, 1.0003, 1.0005, 1.0010, 1.0020, 1.0043, 1.0091, 1.0194, 1.0422, & +1.0001, 1.0002, 1.0003, 1.0005, 1.0010, 1.0024, 1.0057, 1.0128, 1.0282 / +data ((supersat( 5,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +1.0010, 1.0015, 1.0029, 1.0061, 1.0133, 1.0305, 1.0720, 1.1758, 1.4606, & +1.0008, 1.0010, 1.0022, 1.0041, 1.0084, 1.0183, 1.0420, 1.0994, 1.2461, & +1.0006, 1.0009, 1.0014, 1.0028, 1.0056, 1.0115, 1.0255, 1.0584, 1.1390, & +1.0004, 1.0006, 1.0009, 1.0021, 1.0039, 1.0076, 1.0162, 1.0359, 1.0823, & +1.0003, 1.0004, 1.0007, 1.0014, 1.0025, 1.0052, 1.0107, 1.0230, 1.0511, & +1.0002, 1.0003, 1.0004, 1.0008, 1.0016, 1.0033, 1.0071, 1.0151, 1.0330, & +1.0001, 1.0002, 1.0003, 1.0004, 1.0008, 1.0018, 1.0044, 1.0098, 1.0217 / +data ((supersat( 5,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +1.0038, 1.0072, 1.0145, 1.0305, 1.0668, 1.1549, 1.4069, 2.6969, 4.9722, & +1.0025, 1.0049, 1.0104, 1.0215, 1.0458, 1.1015, 1.2422, 1.7074, 3.9896, & +1.0016, 1.0035, 1.0071, 1.0153, 1.0322, 1.0698, 1.1581, 1.3996, 2.5141, & +1.0008, 1.0020, 1.0047, 1.0104, 1.0225, 1.0488, 1.1082, 1.2550, 1.7242, & +1.0004, 1.0009, 1.0023, 1.0062, 1.0149, 1.0336, 1.0748, 1.1713, 1.4349, & +1.0003, 1.0004, 1.0009, 1.0026, 1.0083, 1.0213, 1.0501, 1.1156, 1.2802, & +1.0002, 1.0003, 1.0005, 1.0009, 1.0028, 1.0108, 1.0302, 1.0745, 1.1810 / +data ((supersat( 5,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +1.0027, 1.0051, 1.0100, 1.0209, 1.0455, 1.1036, 1.2560, 1.8003, 3.7065, & +1.0018, 1.0034, 1.0072, 1.0146, 1.0309, 1.0677, 1.1564, 1.4071, 2.5783, & +1.0012, 1.0026, 1.0052, 1.0104, 1.0216, 1.0464, 1.1029, 1.2450, 1.7063, & +1.0007, 1.0015, 1.0033, 1.0072, 1.0152, 1.0325, 1.0707, 1.1605, 1.4047, & +1.0004, 1.0007, 1.0018, 1.0043, 1.0101, 1.0224, 1.0492, 1.1096, 1.2591, & +1.0002, 1.0004, 1.0007, 1.0019, 1.0057, 1.0144, 1.0333, 1.0751, 1.1733, & +1.0002, 1.0002, 1.0004, 1.0007, 1.0021, 1.0074, 1.0204, 1.0494, 1.1156 / +data ((supersat( 5,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +1.0021, 1.0036, 1.0072, 1.0150, 1.0325, 1.0735, 1.1763, 1.4828, 2.7323, & +1.0014, 1.0024, 1.0050, 1.0103, 1.0218, 1.0474, 1.1081, 1.2661, 1.8110, & +1.0010, 1.0019, 1.0037, 1.0072, 1.0151, 1.0321, 1.0706, 1.1632, 1.4225, & +1.0006, 1.0011, 1.0023, 1.0050, 1.0106, 1.0224, 1.0482, 1.1073, 1.2556, & +1.0003, 1.0006, 1.0013, 1.0030, 1.0071, 1.0153, 1.0334, 1.0733, 1.1671, & +1.0002, 1.0003, 1.0006, 1.0014, 1.0039, 1.0098, 1.0226, 1.0503, 1.1132, & +1.0001, 1.0002, 1.0003, 1.0006, 1.0015, 1.0050, 1.0137, 1.0331, 1.0763 / +data ((supersat( 5,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +1.0014, 1.0028, 1.0054, 1.0112, 1.0243, 1.0551, 1.1305, 1.3361, 2.0902, & +1.0012, 1.0016, 1.0037, 1.0077, 1.0159, 1.0349, 1.0792, 1.1901, 1.5159, & +1.0008, 1.0012, 1.0028, 1.0054, 1.0110, 1.0232, 1.0509, 1.1163, 1.2864, & +1.0004, 1.0008, 1.0018, 1.0035, 1.0075, 1.0159, 1.0342, 1.0756, 1.1754, & +1.0003, 1.0005, 1.0010, 1.0022, 1.0049, 1.0108, 1.0234, 1.0510, 1.1145, & +1.0002, 1.0003, 1.0005, 1.0011, 1.0028, 1.0069, 1.0156, 1.0347, 1.0772, & +1.0001, 1.0002, 1.0003, 1.0005, 1.0011, 1.0034, 1.0094, 1.0226, 1.0519 / +data ((supersat( 5,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +1.0008, 1.0023, 1.0043, 1.0087, 1.0191, 1.0435, 1.1026, 1.2564, 1.7364, & +1.0005, 1.0014, 1.0028, 1.0059, 1.0123, 1.0270, 1.0614, 1.1458, 1.3753, & +1.0004, 1.0009, 1.0022, 1.0041, 1.0082, 1.0175, 1.0386, 1.0880, 1.2120, & +1.0004, 1.0007, 1.0014, 1.0026, 1.0057, 1.0118, 1.0253, 1.0560, 1.1289, & +1.0002, 1.0004, 1.0008, 1.0016, 1.0036, 1.0078, 1.0170, 1.0371, 1.0829, & +1.0002, 1.0002, 1.0004, 1.0008, 1.0020, 1.0048, 1.0111, 1.0248, 1.0551, & +1.0001, 1.0002, 1.0002, 1.0004, 1.0008, 1.0023, 1.0065, 1.0159, 1.0365 / +data ((supersat( 5,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +1.0009, 1.0018, 1.0034, 1.0071, 1.0156, 1.0358, 1.0845, 1.2081, 1.5623, & +1.0006, 1.0014, 1.0022, 1.0047, 1.0098, 1.0218, 1.0498, 1.1180, 1.2962, & +1.0004, 1.0009, 1.0016, 1.0033, 1.0065, 1.0138, 1.0306, 1.0702, 1.1676, & +1.0003, 1.0006, 1.0011, 1.0022, 1.0044, 1.0091, 1.0196, 1.0437, 1.1004, & +1.0002, 1.0003, 1.0006, 1.0013, 1.0027, 1.0060, 1.0129, 1.0282, 1.0632, & +1.0001, 1.0002, 1.0003, 1.0006, 1.0015, 1.0036, 1.0083, 1.0185, 1.0412, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0006, 1.0017, 1.0047, 1.0115, 1.0267 / +data ((supersat( 5,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +1.0009, 1.0013, 1.0028, 1.0060, 1.0132, 1.0305, 1.0719, 1.1757, 1.4605, & +1.0007, 1.0009, 1.0020, 1.0039, 1.0082, 1.0182, 1.0419, 1.0993, 1.2460, & +1.0005, 1.0007, 1.0012, 1.0026, 1.0053, 1.0113, 1.0253, 1.0583, 1.1388, & +1.0003, 1.0004, 1.0008, 1.0018, 1.0036, 1.0073, 1.0158, 1.0355, 1.0820, & +1.0002, 1.0003, 1.0005, 1.0011, 1.0022, 1.0048, 1.0102, 1.0225, 1.0506, & +1.0001, 1.0002, 1.0003, 1.0005, 1.0012, 1.0028, 1.0064, 1.0144, 1.0322, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0005, 1.0013, 1.0035, 1.0087, 1.0204 / +data ((supersat( 5,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +1.0034, 1.0068, 1.0140, 1.0300, 1.0663, 1.1542, 1.4059, 2.6940, 4.9676, & +1.0021, 1.0044, 1.0098, 1.0208, 1.0450, 1.1005, 1.2407, 1.7047, 3.9805, & +1.0012, 1.0028, 1.0063, 1.0143, 1.0311, 1.0683, 1.1561, 1.3962, 2.5051, & +1.0005, 1.0013, 1.0037, 1.0091, 1.0210, 1.0469, 1.1054, 1.2507, 1.7150, & +1.0003, 1.0005, 1.0014, 1.0046, 1.0129, 1.0309, 1.0711, 1.1657, 1.4244, & +1.0002, 1.0003, 1.0006, 1.0014, 1.0059, 1.0180, 1.0454, 1.1085, 1.2676, & +1.0002, 1.0002, 1.0004, 1.0007, 1.0015, 1.0072, 1.0247, 1.0658, 1.1660 / +data ((supersat( 5,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +1.0024, 1.0047, 1.0097, 1.0206, 1.0451, 1.1031, 1.2555, 1.7994, 3.7039, & +1.0015, 1.0031, 1.0067, 1.0141, 1.0304, 1.0671, 1.1557, 1.4058, 2.5750, & +1.0009, 1.0021, 1.0046, 1.0098, 1.0209, 1.0455, 1.1018, 1.2433, 1.7031, & +1.0004, 1.0010, 1.0026, 1.0063, 1.0142, 1.0312, 1.0691, 1.1582, 1.4007, & +1.0002, 1.0004, 1.0011, 1.0033, 1.0087, 1.0207, 1.0470, 1.1064, 1.2540, & +1.0002, 1.0003, 1.0005, 1.0011, 1.0040, 1.0122, 1.0303, 1.0709, 1.1668, & +1.0001, 1.0002, 1.0003, 1.0005, 1.0011, 1.0049, 1.0167, 1.0440, 1.1073 / +data ((supersat( 5,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +1.0019, 1.0033, 1.0069, 1.0147, 1.0322, 1.0732, 1.1759, 1.4824, 2.7311, & +1.0012, 1.0022, 1.0047, 1.0100, 1.0214, 1.0470, 1.1076, 1.2654, 1.8098, & +1.0007, 1.0015, 1.0033, 1.0068, 1.0146, 1.0315, 1.0699, 1.1623, 1.4209, & +1.0004, 1.0008, 1.0019, 1.0044, 1.0098, 1.0215, 1.0471, 1.1059, 1.2535, & +1.0002, 1.0004, 1.0008, 1.0023, 1.0061, 1.0141, 1.0319, 1.0713, 1.1642, & +1.0001, 1.0002, 1.0004, 1.0008, 1.0028, 1.0082, 1.0205, 1.0476, 1.1093, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0009, 1.0032, 1.0112, 1.0296, 1.0712 / +data ((supersat( 5,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +1.0013, 1.0025, 1.0052, 1.0110, 1.0241, 1.0549, 1.1303, 1.3358, 2.0898, & +1.0010, 1.0014, 1.0035, 1.0074, 1.0157, 1.0346, 1.0789, 1.1897, 1.5153, & +1.0006, 1.0010, 1.0024, 1.0050, 1.0105, 1.0227, 1.0504, 1.1157, 1.2855, & +1.0003, 1.0006, 1.0014, 1.0031, 1.0070, 1.0152, 1.0334, 1.0746, 1.1741, & +1.0002, 1.0003, 1.0006, 1.0017, 1.0042, 1.0099, 1.0223, 1.0497, 1.1127, & +1.0001, 1.0002, 1.0003, 1.0007, 1.0019, 1.0057, 1.0141, 1.0328, 1.0747, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0007, 1.0021, 1.0074, 1.0201, 1.0485 / +data ((supersat( 5,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +1.0007, 1.0021, 1.0041, 1.0085, 1.0190, 1.0434, 1.1025, 1.2563, 1.7362, & +1.0005, 1.0013, 1.0026, 1.0057, 1.0120, 1.0267, 1.0612, 1.1456, 1.3750, & +1.0004, 1.0008, 1.0019, 1.0038, 1.0079, 1.0171, 1.0382, 1.0876, 1.2115, & +1.0003, 1.0005, 1.0011, 1.0023, 1.0052, 1.0112, 1.0247, 1.0554, 1.1281, & +1.0002, 1.0003, 1.0005, 1.0012, 1.0030, 1.0071, 1.0162, 1.0361, 1.0816, & +1.0001, 1.0002, 1.0003, 1.0005, 1.0014, 1.0040, 1.0100, 1.0234, 1.0533, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0005, 1.0014, 1.0050, 1.0140, 1.0340 / +data ((supersat( 5,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +1.0008, 1.0017, 1.0033, 1.0069, 1.0155, 1.0357, 1.0844, 1.2080, 1.5622, & +1.0005, 1.0012, 1.0021, 1.0045, 1.0096, 1.0216, 1.0497, 1.1178, 1.2960, & +1.0004, 1.0008, 1.0014, 1.0030, 1.0062, 1.0135, 1.0304, 1.0699, 1.1672, & +1.0002, 1.0004, 1.0008, 1.0019, 1.0040, 1.0087, 1.0192, 1.0432, 1.0999, & +1.0001, 1.0002, 1.0004, 1.0010, 1.0023, 1.0054, 1.0122, 1.0275, 1.0624, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0010, 1.0029, 1.0074, 1.0174, 1.0398, & +1.0001, 1.0001, 1.0001, 1.0002, 1.0004, 1.0010, 1.0035, 1.0100, 1.0248 / +data ((supersat( 5,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +1.0008, 1.0012, 1.0027, 1.0059, 1.0131, 1.0304, 1.0718, 1.1757, 1.4604, & +1.0006, 1.0008, 1.0019, 1.0038, 1.0080, 1.0181, 1.0418, 1.0992, 1.2458, & +1.0003, 1.0006, 1.0011, 1.0024, 1.0051, 1.0111, 1.0251, 1.0580, 1.1385, & +1.0002, 1.0003, 1.0007, 1.0015, 1.0032, 1.0070, 1.0155, 1.0352, 1.0816, & +1.0001, 1.0002, 1.0004, 1.0008, 1.0018, 1.0043, 1.0097, 1.0219, 1.0499, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0008, 1.0022, 1.0057, 1.0135, 1.0311, & +1.0001, 1.0001, 1.0001, 1.0002, 1.0004, 1.0008, 1.0026, 1.0075, 1.0189 / +data ((supersat( 5,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +1.0030, 1.0064, 1.0135, 1.0295, 1.0656, 1.1534, 1.4046, 2.6905, 4.9617, & +1.0017, 1.0039, 1.0091, 1.0200, 1.0440, 1.0992, 1.2389, 1.7012, 3.9687, & +1.0008, 1.0021, 1.0054, 1.0132, 1.0297, 1.0665, 1.1535, 1.3919, 2.4937, & +1.0003, 1.0008, 1.0026, 1.0077, 1.0192, 1.0444, 1.1020, 1.2451, 1.7033, & +1.0002, 1.0003, 1.0008, 1.0031, 1.0105, 1.0278, 1.0666, 1.1585, 1.4110, & +1.0002, 1.0002, 1.0004, 1.0008, 1.0035, 1.0142, 1.0397, 1.0995, 1.2518, & +1.0000, 1.0000, 1.0002, 1.0005, 1.0011, 1.0037, 1.0185, 1.0555, 1.1480 / +data ((supersat( 5,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +1.0022, 1.0044, 1.0093, 1.0202, 1.0447, 1.1027, 1.2548, 1.7983, 3.7006, & +1.0013, 1.0027, 1.0062, 1.0135, 1.0298, 1.0663, 1.1547, 1.4043, 2.5708, & +1.0006, 1.0015, 1.0039, 1.0090, 1.0200, 1.0444, 1.1003, 1.2412, 1.6990, & +1.0003, 1.0006, 1.0019, 1.0053, 1.0130, 1.0297, 1.0671, 1.1552, 1.3956, & +1.0002, 1.0003, 1.0006, 1.0022, 1.0072, 1.0187, 1.0442, 1.1024, 1.2475, & +1.0001, 1.0002, 1.0003, 1.0007, 1.0024, 1.0096, 1.0268, 1.0658, 1.1585, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0008, 1.0025, 1.0126, 1.0378, 1.0972 / +data ((supersat( 5,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +1.0016, 1.0031, 1.0067, 1.0144, 1.0319, 1.0729, 1.1756, 1.4819, 2.7295, & +1.0010, 1.0019, 1.0044, 1.0096, 1.0209, 1.0465, 1.1070, 1.2646, 1.8084, & +1.0005, 1.0011, 1.0028, 1.0062, 1.0139, 1.0308, 1.0690, 1.1611, 1.4190, & +1.0002, 1.0005, 1.0014, 1.0037, 1.0090, 1.0204, 1.0458, 1.1041, 1.2509, & +1.0001, 1.0002, 1.0005, 1.0016, 1.0049, 1.0127, 1.0301, 1.0689, 1.1606, & +1.0001, 1.0002, 1.0003, 1.0005, 1.0017, 1.0065, 1.0181, 1.0444, 1.1045, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0005, 1.0017, 1.0084, 1.0255, 1.0650 / +data ((supersat( 5,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +1.0012, 1.0024, 1.0050, 1.0108, 1.0239, 1.0547, 1.1301, 1.3356, 2.0892, & +1.0008, 1.0013, 1.0032, 1.0071, 1.0153, 1.0343, 1.0785, 1.1893, 1.5146, & +1.0004, 1.0008, 1.0021, 1.0046, 1.0101, 1.0222, 1.0498, 1.1150, 1.2845, & +1.0002, 1.0004, 1.0010, 1.0026, 1.0063, 1.0145, 1.0325, 1.0735, 1.1726, & +1.0001, 1.0002, 1.0004, 1.0011, 1.0034, 1.0089, 1.0210, 1.0480, 1.1104, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0012, 1.0043, 1.0124, 1.0306, 1.0716, & +1.0001, 1.0001, 1.0001, 1.0002, 1.0004, 1.0012, 1.0054, 1.0172, 1.0443 / +data ((supersat( 5,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +1.0006, 1.0019, 1.0039, 1.0084, 1.0188, 1.0432, 1.1023, 1.2561, 1.7359, & +1.0005, 1.0011, 1.0024, 1.0054, 1.0118, 1.0265, 1.0609, 1.1452, 1.3746, & +1.0003, 1.0007, 1.0016, 1.0035, 1.0075, 1.0167, 1.0378, 1.0871, 1.2109, & +1.0002, 1.0003, 1.0007, 1.0020, 1.0047, 1.0107, 1.0241, 1.0546, 1.1271, & +1.0001, 1.0002, 1.0003, 1.0008, 1.0024, 1.0063, 1.0152, 1.0350, 1.0801, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0008, 1.0029, 1.0087, 1.0217, 1.0511, & +1.0001, 1.0001, 1.0001, 1.0002, 1.0003, 1.0008, 1.0035, 1.0118, 1.0310 / +data ((supersat( 5,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +1.0007, 1.0015, 1.0032, 1.0068, 1.0154, 1.0356, 1.0843, 1.2079, 1.5620, & +1.0005, 1.0010, 1.0019, 1.0043, 1.0095, 1.0214, 1.0495, 1.1176, 1.2957, & +1.0003, 1.0006, 1.0011, 1.0027, 1.0059, 1.0132, 1.0300, 1.0695, 1.1668, & +1.0002, 1.0003, 1.0006, 1.0015, 1.0036, 1.0082, 1.0187, 1.0426, 1.0992, & +1.0001, 1.0002, 1.0003, 1.0006, 1.0018, 1.0047, 1.0115, 1.0266, 1.0613, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0006, 1.0021, 1.0063, 1.0161, 1.0382, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0003, 1.0006, 1.0023, 1.0083, 1.0225 / +data ((supersat( 5,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +1.0007, 1.0011, 1.0025, 1.0058, 1.0131, 1.0303, 1.0718, 1.1756, 1.4603, & +1.0004, 1.0007, 1.0017, 1.0036, 1.0079, 1.0179, 1.0416, 1.0990, 1.2456, & +1.0002, 1.0004, 1.0010, 1.0021, 1.0048, 1.0108, 1.0248, 1.0578, 1.1382, & +1.0001, 1.0002, 1.0005, 1.0012, 1.0029, 1.0066, 1.0151, 1.0347, 1.0811, & +1.0001, 1.0001, 1.0002, 1.0005, 1.0014, 1.0037, 1.0090, 1.0212, 1.0491, & +1.0001, 1.0001, 1.0001, 1.0002, 1.0005, 1.0016, 1.0048, 1.0124, 1.0299, & +1.0000, 1.0001, 1.0001, 1.0001, 1.0002, 1.0005, 1.0016, 1.0061, 1.0171 / +data ((supersat( 5,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +1.0028, 1.0061, 1.0132, 1.0291, 1.0652, 1.1528, 1.4037, 2.6879, 4.9574, & +1.0015, 1.0036, 1.0086, 1.0195, 1.0434, 1.0984, 1.2377, 1.6988, 3.9603, & +1.0006, 1.0017, 1.0049, 1.0125, 1.0288, 1.0654, 1.1518, 1.3888, 2.4856, & +1.0003, 1.0006, 1.0020, 1.0068, 1.0179, 1.0428, 1.0996, 1.2413, 1.6951, & +1.0002, 1.0003, 1.0006, 1.0022, 1.0090, 1.0257, 1.0635, 1.1536, 1.4016, & +1.0001, 1.0002, 1.0004, 1.0007, 1.0022, 1.0118, 1.0361, 1.0935, 1.2409, & +0.9998, 0.9998, 1.0000, 1.0003, 1.0009, 1.0024, 1.0148, 1.0490, 1.1360 / +data ((supersat( 5,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +1.0020, 1.0042, 1.0091, 1.0200, 1.0444, 1.1023, 1.2544, 1.7975, 3.6982, & +1.0011, 1.0025, 1.0059, 1.0132, 1.0294, 1.0658, 1.1540, 1.4032, 2.5679, & +1.0005, 1.0013, 1.0035, 1.0085, 1.0194, 1.0437, 1.0994, 1.2397, 1.6961, & +1.0002, 1.0005, 1.0015, 1.0047, 1.0121, 1.0286, 1.0657, 1.1532, 1.3921, & +1.0001, 1.0002, 1.0005, 1.0016, 1.0062, 1.0173, 1.0424, 1.0997, 1.2429, & +1.0001, 1.0002, 1.0003, 1.0005, 1.0016, 1.0080, 1.0245, 1.0623, 1.1528, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0007, 1.0017, 1.0101, 1.0337, 1.0904 / +data ((supersat( 5,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +1.0015, 1.0030, 1.0065, 1.0143, 1.0318, 1.0727, 1.1753, 1.4815, 2.7284, & +1.0009, 1.0017, 1.0042, 1.0093, 1.0207, 1.0462, 1.1066, 1.2641, 1.8074, & +1.0004, 1.0009, 1.0025, 1.0059, 1.0135, 1.0303, 1.0684, 1.1603, 1.4176, & +1.0002, 1.0004, 1.0011, 1.0033, 1.0084, 1.0197, 1.0449, 1.1029, 1.2490, & +1.0001, 1.0002, 1.0004, 1.0011, 1.0042, 1.0118, 1.0288, 1.0672, 1.1580, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0012, 1.0053, 1.0165, 1.0421, 1.1011, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0005, 1.0012, 1.0066, 1.0228, 1.0608 / +data ((supersat( 5,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +1.0011, 1.0022, 1.0049, 1.0107, 1.0238, 1.0546, 1.1299, 1.3353, 2.0887, & +1.0006, 1.0012, 1.0031, 1.0069, 1.0151, 1.0341, 1.0783, 1.1890, 1.5141, & +1.0003, 1.0007, 1.0019, 1.0043, 1.0098, 1.0219, 1.0494, 1.1145, 1.2838, & +1.0002, 1.0003, 1.0008, 1.0023, 1.0059, 1.0140, 1.0319, 1.0728, 1.1715, & +1.0001, 1.0002, 1.0003, 1.0008, 1.0029, 1.0082, 1.0201, 1.0469, 1.1089, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0008, 1.0035, 1.0113, 1.0290, 1.0694, & +1.0001, 1.0001, 1.0001, 1.0002, 1.0004, 1.0009, 1.0041, 1.0153, 1.0416 / +data ((supersat( 5,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +1.0006, 1.0018, 1.0038, 1.0083, 1.0187, 1.0431, 1.1022, 1.2560, 1.7357, & +1.0004, 1.0011, 1.0023, 1.0053, 1.0117, 1.0263, 1.0607, 1.1450, 1.3743, & +1.0003, 1.0006, 1.0014, 1.0033, 1.0073, 1.0165, 1.0375, 1.0868, 1.2104, & +1.0001, 1.0003, 1.0006, 1.0017, 1.0044, 1.0103, 1.0236, 1.0541, 1.1264, & +1.0001, 1.0001, 1.0003, 1.0006, 1.0020, 1.0058, 1.0145, 1.0342, 1.0791, & +1.0001, 1.0001, 1.0001, 1.0003, 1.0006, 1.0023, 1.0078, 1.0206, 1.0496, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0003, 1.0006, 1.0026, 1.0103, 1.0291 / +data ((supersat( 5,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +1.0007, 1.0015, 1.0031, 1.0067, 1.0153, 1.0356, 1.0842, 1.2078, 1.5619, & +1.0004, 1.0009, 1.0018, 1.0042, 1.0093, 1.0213, 1.0494, 1.1175, 1.2955, & +1.0002, 1.0005, 1.0010, 1.0025, 1.0057, 1.0130, 1.0298, 1.0693, 1.1665, & +1.0001, 1.0002, 1.0005, 1.0013, 1.0033, 1.0079, 1.0183, 1.0422, 1.0987, & +1.0001, 1.0001, 1.0002, 1.0005, 1.0015, 1.0043, 1.0109, 1.0260, 1.0605, & +1.0001, 1.0001, 1.0001, 1.0002, 1.0005, 1.0016, 1.0056, 1.0152, 1.0371, & +1.0000, 1.0001, 1.0001, 1.0001, 1.0002, 1.0005, 1.0017, 1.0072, 1.0210 / +data ((supersat( 5,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +1.0006, 1.0010, 1.0025, 1.0057, 1.0130, 1.0302, 1.0717, 1.1755, 1.4602, & +1.0004, 1.0006, 1.0016, 1.0035, 1.0078, 1.0178, 1.0415, 1.0989, 1.2455, & +1.0002, 1.0004, 1.0009, 1.0020, 1.0047, 1.0107, 1.0247, 1.0576, 1.1380, & +1.0001, 1.0002, 1.0004, 1.0010, 1.0026, 1.0063, 1.0148, 1.0344, 1.0807, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0012, 1.0034, 1.0086, 1.0207, 1.0485, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0004, 1.0012, 1.0042, 1.0117, 1.0290, & +1.0000, 1.0001, 1.0001, 1.0001, 1.0002, 1.0004, 1.0012, 1.0052, 1.0158 / +data ((supersat( 5,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +1.0026, 1.0059, 1.0130, 1.0288, 1.0649, 1.1523, 1.4029, 2.6858, 4.9540, & +1.0013, 1.0034, 1.0083, 1.0191, 1.0429, 1.0977, 1.2367, 1.6969, 3.9536, & +1.0005, 1.0015, 1.0046, 1.0119, 1.0281, 1.0644, 1.1504, 1.3864, 2.4791, & +1.0002, 1.0005, 1.0016, 1.0061, 1.0170, 1.0415, 1.0977, 1.2382, 1.6885, & +1.0002, 1.0003, 1.0005, 1.0016, 1.0079, 1.0241, 1.0611, 1.1497, 1.3942, & +1.0000, 1.0001, 1.0003, 1.0007, 1.0017, 1.0101, 1.0333, 1.0889, 1.2324, & +0.9996, 0.9996, 0.9998, 1.0001, 1.0007, 1.0022, 1.0123, 1.0442, 1.1269 / +data ((supersat( 5,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +1.0019, 1.0041, 1.0090, 1.0198, 1.0442, 1.1021, 1.2540, 1.7969, 3.6963, & +1.0010, 1.0023, 1.0057, 1.0129, 1.0291, 1.0655, 1.1535, 1.4024, 2.5655, & +1.0004, 1.0011, 1.0032, 1.0082, 1.0190, 1.0431, 1.0986, 1.2385, 1.6937, & +1.0002, 1.0004, 1.0012, 1.0042, 1.0115, 1.0279, 1.0646, 1.1516, 1.3892, & +1.0001, 1.0002, 1.0004, 1.0012, 1.0054, 1.0163, 1.0409, 1.0975, 1.2393, & +1.0001, 1.0001, 1.0003, 1.0005, 1.0012, 1.0068, 1.0227, 1.0595, 1.1482, & +0.9999, 0.9999, 1.0000, 1.0002, 1.0006, 1.0014, 1.0083, 1.0307, 1.0852 / +data ((supersat( 5,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +1.0014, 1.0029, 1.0064, 1.0142, 1.0316, 1.0725, 1.1751, 1.4812, 2.7276, & +1.0008, 1.0016, 1.0040, 1.0091, 1.0205, 1.0460, 1.1063, 1.2636, 1.8065, & +1.0003, 1.0008, 1.0023, 1.0056, 1.0132, 1.0299, 1.0679, 1.1596, 1.4166, & +1.0002, 1.0003, 1.0009, 1.0029, 1.0080, 1.0192, 1.0442, 1.1020, 1.2475, & +1.0001, 1.0002, 1.0003, 1.0009, 1.0037, 1.0110, 1.0279, 1.0659, 1.1560, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0009, 1.0045, 1.0153, 1.0404, 1.0984, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0004, 1.0010, 1.0053, 1.0208, 1.0576 / +data ((supersat( 5,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +1.0010, 1.0022, 1.0048, 1.0106, 1.0237, 1.0545, 1.1298, 1.3352, 2.0884, & +1.0005, 1.0012, 1.0030, 1.0067, 1.0150, 1.0339, 1.0781, 1.1887, 1.5137, & +1.0003, 1.0006, 1.0017, 1.0041, 1.0095, 1.0216, 1.0491, 1.1141, 1.2832, & +1.0001, 1.0003, 1.0007, 1.0021, 1.0055, 1.0136, 1.0314, 1.0721, 1.1706, & +1.0001, 1.0001, 1.0003, 1.0007, 1.0025, 1.0076, 1.0195, 1.0461, 1.1076, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0007, 1.0029, 1.0104, 1.0279, 1.0677, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0003, 1.0007, 1.0033, 1.0139, 1.0394 / +data ((supersat( 5,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +1.0006, 1.0018, 1.0037, 1.0082, 1.0187, 1.0431, 1.1021, 1.2559, 1.7355, & +1.0004, 1.0010, 1.0022, 1.0052, 1.0115, 1.0262, 1.0606, 1.1449, 1.3740, & +1.0002, 1.0005, 1.0012, 1.0031, 1.0071, 1.0163, 1.0373, 1.0865, 1.2101, & +1.0001, 1.0002, 1.0005, 1.0015, 1.0041, 1.0100, 1.0233, 1.0537, 1.1258, & +1.0001, 1.0001, 1.0002, 1.0005, 1.0017, 1.0054, 1.0140, 1.0335, 1.0783, & +1.0001, 1.0001, 1.0001, 1.0002, 1.0005, 1.0019, 1.0071, 1.0198, 1.0484, & +1.0000, 1.0001, 1.0001, 1.0001, 1.0003, 1.0005, 1.0020, 1.0093, 1.0275 / +data ((supersat( 5,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +1.0006, 1.0014, 1.0030, 1.0067, 1.0153, 1.0355, 1.0842, 1.2077, 1.5618, & +1.0004, 1.0009, 1.0018, 1.0041, 1.0092, 1.0212, 1.0493, 1.1174, 1.2954, & +1.0002, 1.0004, 1.0009, 1.0024, 1.0056, 1.0129, 1.0297, 1.0691, 1.1663, & +1.0001, 1.0002, 1.0004, 1.0011, 1.0031, 1.0077, 1.0180, 1.0419, 1.0983, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0013, 1.0040, 1.0105, 1.0255, 1.0599, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0004, 1.0013, 1.0051, 1.0145, 1.0362, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0002, 1.0004, 1.0013, 1.0063, 1.0199 / +data ((supersat( 5,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +1.0006, 1.0010, 1.0024, 1.0056, 1.0129, 1.0302, 1.0717, 1.1754, 1.4601, & +1.0003, 1.0006, 1.0015, 1.0034, 1.0077, 1.0178, 1.0415, 1.0988, 1.2454, & +1.0002, 1.0003, 1.0008, 1.0019, 1.0046, 1.0106, 1.0245, 1.0574, 1.1378, & +1.0001, 1.0002, 1.0003, 1.0009, 1.0024, 1.0061, 1.0146, 1.0342, 1.0804, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0010, 1.0031, 1.0083, 1.0203, 1.0480, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0003, 1.0010, 1.0038, 1.0111, 1.0283, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0002, 1.0004, 1.0010, 1.0045, 1.0149 / +data ((supersat( 5,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +1.0025, 1.0057, 1.0128, 1.0286, 1.0646, 1.1519, 1.4023, 2.6841, 4.9511, & +1.0011, 1.0032, 1.0080, 1.0188, 1.0425, 1.0972, 1.2358, 1.6952, 3.9477, & +1.0004, 1.0012, 1.0042, 1.0115, 1.0275, 1.0636, 1.1492, 1.3844, 2.4735, & +1.0002, 1.0004, 1.0013, 1.0055, 1.0163, 1.0405, 1.0962, 1.2356, 1.6829, & +1.0001, 1.0003, 1.0005, 1.0013, 1.0071, 1.0228, 1.0591, 1.1464, 1.3879, & +1.0000, 1.0001, 1.0002, 1.0006, 1.0014, 1.0087, 1.0310, 1.0850, 1.2253, & +0.9994, 0.9995, 0.9996, 0.9999, 1.0005, 1.0021, 1.0103, 1.0405, 1.1196 / +data ((supersat( 5,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +1.0018, 1.0040, 1.0088, 1.0196, 1.0441, 1.1019, 1.2537, 1.7964, 3.6947, & +1.0009, 1.0021, 1.0055, 1.0127, 1.0288, 1.0651, 1.1530, 1.4017, 2.5635, & +1.0003, 1.0010, 1.0030, 1.0078, 1.0186, 1.0426, 1.0980, 1.2375, 1.6917, & +1.0002, 1.0003, 1.0010, 1.0038, 1.0110, 1.0272, 1.0637, 1.1502, 1.3867, & +1.0001, 1.0002, 1.0003, 1.0010, 1.0048, 1.0154, 1.0397, 1.0957, 1.2362, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0010, 1.0059, 1.0212, 1.0573, 1.1445, & +0.9998, 0.9999, 0.9999, 1.0001, 1.0005, 1.0013, 1.0070, 1.0283, 1.0809 / +data ((supersat( 5,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +1.0013, 1.0028, 1.0063, 1.0140, 1.0315, 1.0724, 1.1750, 1.4809, 2.7268, & +1.0007, 1.0015, 1.0039, 1.0090, 1.0203, 1.0458, 1.1060, 1.2633, 1.8058, & +1.0003, 1.0007, 1.0021, 1.0054, 1.0130, 1.0296, 1.0675, 1.1590, 1.4156, & +1.0001, 1.0003, 1.0007, 1.0027, 1.0076, 1.0187, 1.0437, 1.1012, 1.2462, & +1.0001, 1.0002, 1.0003, 1.0008, 1.0033, 1.0105, 1.0271, 1.0648, 1.1543, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0008, 1.0039, 1.0144, 1.0390, 1.0962, & +1.0000, 1.0000, 1.0000, 1.0002, 1.0004, 1.0009, 1.0044, 1.0192, 1.0550 / +data ((supersat( 5,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +1.0009, 1.0021, 1.0047, 1.0105, 1.0237, 1.0544, 1.1297, 1.3350, 2.0881, & +1.0005, 1.0011, 1.0028, 1.0066, 1.0149, 1.0337, 1.0779, 1.1885, 1.5133, & +1.0002, 1.0006, 1.0016, 1.0040, 1.0093, 1.0214, 1.0488, 1.1137, 1.2827, & +1.0001, 1.0002, 1.0006, 1.0019, 1.0053, 1.0133, 1.0310, 1.0716, 1.1699, & +1.0001, 1.0001, 1.0002, 1.0006, 1.0022, 1.0072, 1.0189, 1.0453, 1.1066, & +1.0001, 1.0001, 1.0001, 1.0002, 1.0006, 1.0025, 1.0097, 1.0269, 1.0663, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0003, 1.0006, 1.0026, 1.0127, 1.0376 / +data ((supersat( 5,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +1.0006, 1.0017, 1.0037, 1.0082, 1.0186, 1.0430, 1.1021, 1.2558, 1.7354, & +1.0004, 1.0010, 1.0021, 1.0051, 1.0114, 1.0261, 1.0605, 1.1447, 1.3738, & +1.0002, 1.0004, 1.0011, 1.0030, 1.0070, 1.0161, 1.0371, 1.0863, 1.2098, & +1.0001, 1.0002, 1.0004, 1.0014, 1.0039, 1.0097, 1.0230, 1.0533, 1.1254, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0015, 1.0051, 1.0136, 1.0330, 1.0776, & +1.0001, 1.0001, 1.0001, 1.0002, 1.0004, 1.0016, 1.0066, 1.0190, 1.0475, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0002, 1.0005, 1.0016, 1.0084, 1.0263 / +data ((supersat( 5,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +1.0006, 1.0014, 1.0030, 1.0067, 1.0152, 1.0355, 1.0841, 1.2076, 1.5617, & +1.0004, 1.0008, 1.0017, 1.0040, 1.0092, 1.0211, 1.0492, 1.1173, 1.2952, & +1.0002, 1.0004, 1.0009, 1.0023, 1.0055, 1.0128, 1.0295, 1.0689, 1.1661, & +1.0001, 1.0002, 1.0004, 1.0010, 1.0029, 1.0075, 1.0178, 1.0417, 1.0980, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0011, 1.0038, 1.0102, 1.0251, 1.0594, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0004, 1.0011, 1.0047, 1.0140, 1.0355, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0002, 1.0004, 1.0011, 1.0057, 1.0189 / +data ((supersat( 5,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +1.0006, 1.0010, 1.0024, 1.0056, 1.0129, 1.0302, 1.0716, 1.1754, 1.4601, & +1.0003, 1.0006, 1.0015, 1.0033, 1.0076, 1.0177, 1.0414, 1.0987, 1.2453, & +1.0001, 1.0003, 1.0008, 1.0018, 1.0044, 1.0105, 1.0244, 1.0573, 1.1376, & +1.0001, 1.0001, 1.0003, 1.0008, 1.0023, 1.0060, 1.0144, 1.0340, 1.0802, & +1.0001, 1.0001, 1.0001, 1.0003, 1.0008, 1.0029, 1.0080, 1.0200, 1.0476, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0003, 1.0008, 1.0034, 1.0107, 1.0277, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0002, 1.0003, 1.0009, 1.0040, 1.0141 / +data ((supersat( 6,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +1.0028, 1.0061, 1.0133, 1.0292, 1.0653, 1.1529, 1.4038, 2.6882, 4.9580, & +1.0015, 1.0036, 1.0087, 1.0196, 1.0435, 1.0985, 1.2379, 1.6992, 3.9613, & +1.0006, 1.0018, 1.0050, 1.0126, 1.0290, 1.0655, 1.1520, 1.3892, 2.4866, & +1.0003, 1.0006, 1.0021, 1.0069, 1.0181, 1.0430, 1.0999, 1.2417, 1.6960, & +1.0002, 1.0003, 1.0006, 1.0023, 1.0093, 1.0260, 1.0638, 1.1541, 1.4025, & +1.0001, 1.0002, 1.0004, 1.0007, 1.0024, 1.0121, 1.0364, 1.0940, 1.2418, & +0.9998, 0.9999, 1.0000, 1.0003, 1.0009, 1.0025, 1.0151, 1.0493, 1.1365 / +data ((supersat( 6,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +1.0020, 1.0042, 1.0092, 1.0200, 1.0445, 1.1024, 1.2545, 1.7977, 3.6985, & +1.0011, 1.0025, 1.0060, 1.0133, 1.0294, 1.0659, 1.1541, 1.4034, 2.5683, & +1.0005, 1.0013, 1.0036, 1.0086, 1.0195, 1.0438, 1.0995, 1.2399, 1.6965, & +1.0002, 1.0005, 1.0015, 1.0048, 1.0123, 1.0288, 1.0659, 1.1535, 1.3925, & +1.0001, 1.0002, 1.0005, 1.0017, 1.0063, 1.0175, 1.0426, 1.1001, 1.2435, & +1.0001, 1.0002, 1.0003, 1.0005, 1.0017, 1.0082, 1.0248, 1.0627, 1.1534, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0007, 1.0018, 1.0104, 1.0341, 1.0909 / +data ((supersat( 6,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +1.0015, 1.0030, 1.0065, 1.0143, 1.0318, 1.0727, 1.1754, 1.4816, 2.7286, & +1.0009, 1.0018, 1.0042, 1.0094, 1.0207, 1.0463, 1.1067, 1.2642, 1.8075, & +1.0004, 1.0009, 1.0026, 1.0059, 1.0136, 1.0304, 1.0685, 1.1604, 1.4179, & +1.0002, 1.0004, 1.0011, 1.0033, 1.0085, 1.0198, 1.0451, 1.1031, 1.2493, & +1.0001, 1.0002, 1.0004, 1.0012, 1.0043, 1.0119, 1.0291, 1.0675, 1.1585, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0012, 1.0055, 1.0168, 1.0424, 1.1016, & +1.0001, 1.0001, 1.0001, 1.0003, 1.0005, 1.0013, 1.0068, 1.0232, 1.0613 / +data ((supersat( 6,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +1.0011, 1.0023, 1.0049, 1.0107, 1.0238, 1.0546, 1.1300, 1.3354, 2.0888, & +1.0006, 1.0012, 1.0031, 1.0069, 1.0152, 1.0341, 1.0784, 1.1890, 1.5142, & +1.0003, 1.0007, 1.0019, 1.0044, 1.0098, 1.0220, 1.0495, 1.1146, 1.2839, & +1.0002, 1.0003, 1.0008, 1.0024, 1.0060, 1.0141, 1.0320, 1.0729, 1.1717, & +1.0001, 1.0002, 1.0003, 1.0009, 1.0030, 1.0083, 1.0203, 1.0472, 1.1092, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0009, 1.0036, 1.0115, 1.0293, 1.0698, & +1.0001, 1.0001, 1.0001, 1.0002, 1.0004, 1.0009, 1.0043, 1.0156, 1.0420 / +data ((supersat( 6,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +1.0006, 1.0018, 1.0038, 1.0083, 1.0188, 1.0432, 1.1022, 1.2560, 1.7357, & +1.0004, 1.0011, 1.0023, 1.0053, 1.0117, 1.0264, 1.0608, 1.1451, 1.3743, & +1.0003, 1.0006, 1.0014, 1.0033, 1.0073, 1.0165, 1.0376, 1.0869, 1.2105, & +1.0001, 1.0003, 1.0006, 1.0018, 1.0044, 1.0103, 1.0237, 1.0542, 1.1266, & +1.0001, 1.0001, 1.0003, 1.0006, 1.0021, 1.0059, 1.0147, 1.0343, 1.0794, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0006, 1.0024, 1.0080, 1.0209, 1.0499, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0003, 1.0007, 1.0027, 1.0106, 1.0294 / +data ((supersat( 6,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +1.0007, 1.0015, 1.0031, 1.0068, 1.0153, 1.0356, 1.0842, 1.2078, 1.5620, & +1.0004, 1.0009, 1.0018, 1.0042, 1.0093, 1.0213, 1.0494, 1.1175, 1.2956, & +1.0002, 1.0005, 1.0010, 1.0026, 1.0058, 1.0131, 1.0299, 1.0694, 1.1666, & +1.0001, 1.0002, 1.0005, 1.0014, 1.0034, 1.0080, 1.0184, 1.0423, 1.0989, & +1.0001, 1.0001, 1.0002, 1.0005, 1.0015, 1.0044, 1.0110, 1.0261, 1.0607, & +1.0001, 1.0001, 1.0001, 1.0002, 1.0005, 1.0017, 1.0057, 1.0154, 1.0374, & +1.0000, 1.0001, 1.0001, 1.0001, 1.0002, 1.0005, 1.0018, 1.0074, 1.0214 / +data ((supersat( 6,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +1.0006, 1.0010, 1.0025, 1.0057, 1.0130, 1.0303, 1.0717, 1.1755, 1.4602, & +1.0004, 1.0006, 1.0016, 1.0035, 1.0078, 1.0179, 1.0416, 1.0989, 1.2456, & +1.0002, 1.0004, 1.0009, 1.0020, 1.0047, 1.0107, 1.0247, 1.0576, 1.1381, & +1.0001, 1.0002, 1.0004, 1.0010, 1.0027, 1.0064, 1.0149, 1.0345, 1.0808, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0012, 1.0034, 1.0087, 1.0208, 1.0487, & +1.0001, 1.0001, 1.0001, 1.0002, 1.0004, 1.0013, 1.0043, 1.0119, 1.0292, & +1.0000, 1.0001, 1.0001, 1.0001, 1.0002, 1.0004, 1.0013, 1.0053, 1.0162 / +data ((supersat( 6,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +1.0024, 1.0056, 1.0127, 1.0285, 1.0644, 1.1518, 1.4020, 2.6832, 4.9495, & +1.0010, 1.0031, 1.0079, 1.0186, 1.0422, 1.0969, 1.2354, 1.6943, 3.9445, & +1.0004, 1.0011, 1.0041, 1.0112, 1.0272, 1.0632, 1.1486, 1.3832, 2.4703, & +1.0002, 1.0004, 1.0012, 1.0052, 1.0158, 1.0399, 1.0953, 1.2340, 1.6796, & +1.0001, 1.0002, 1.0004, 1.0012, 1.0066, 1.0220, 1.0580, 1.1445, 1.3842, & +0.9999, 1.0000, 1.0002, 1.0006, 1.0013, 1.0080, 1.0297, 1.0827, 1.2210, & +0.9993, 0.9993, 0.9994, 0.9997, 1.0004, 1.0020, 1.0093, 1.0383, 1.1152 / +data ((supersat( 6,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +1.0017, 1.0039, 1.0088, 1.0196, 1.0440, 1.1018, 1.2536, 1.7961, 3.6938, & +1.0008, 1.0021, 1.0054, 1.0126, 1.0287, 1.0650, 1.1528, 1.4013, 2.5624, & +1.0003, 1.0009, 1.0028, 1.0077, 1.0184, 1.0424, 1.0976, 1.2370, 1.6907, & +1.0002, 1.0003, 1.0009, 1.0036, 1.0107, 1.0269, 1.0632, 1.1494, 1.3854, & +1.0001, 1.0002, 1.0003, 1.0009, 1.0045, 1.0150, 1.0391, 1.0947, 1.2345, & +1.0000, 1.0001, 1.0002, 1.0004, 1.0009, 1.0054, 1.0204, 1.0560, 1.1423, & +0.9998, 0.9998, 0.9999, 1.0000, 1.0004, 1.0013, 1.0063, 1.0269, 1.0784 / +data ((supersat( 6,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +1.0013, 1.0028, 1.0063, 1.0140, 1.0315, 1.0723, 1.1749, 1.4808, 2.7264, & +1.0006, 1.0015, 1.0038, 1.0089, 1.0202, 1.0457, 1.1059, 1.2631, 1.8055, & +1.0003, 1.0007, 1.0020, 1.0053, 1.0128, 1.0295, 1.0673, 1.1588, 1.4152, & +1.0001, 1.0003, 1.0007, 1.0025, 1.0074, 1.0185, 1.0434, 1.1008, 1.2456, & +1.0001, 1.0001, 1.0003, 1.0007, 1.0030, 1.0101, 1.0267, 1.0642, 1.1534, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0007, 1.0035, 1.0138, 1.0382, 1.0950, & +0.9999, 1.0000, 1.0000, 1.0001, 1.0004, 1.0009, 1.0039, 1.0183, 1.0535 / +data ((supersat( 6,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +1.0009, 1.0021, 1.0047, 1.0105, 1.0236, 1.0544, 1.1296, 1.3350, 2.0880, & +1.0004, 1.0011, 1.0028, 1.0066, 1.0148, 1.0337, 1.0779, 1.1884, 1.5132, & +1.0002, 1.0005, 1.0015, 1.0039, 1.0092, 1.0213, 1.0487, 1.1136, 1.2824, & +1.0001, 1.0002, 1.0005, 1.0018, 1.0052, 1.0131, 1.0308, 1.0714, 1.1695, & +1.0001, 1.0001, 1.0002, 1.0005, 1.0020, 1.0070, 1.0186, 1.0450, 1.1060, & +1.0001, 1.0001, 1.0001, 1.0002, 1.0005, 1.0022, 1.0093, 1.0264, 1.0656, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0003, 1.0006, 1.0023, 1.0121, 1.0367 / +data ((supersat( 6,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +1.0006, 1.0017, 1.0037, 1.0082, 1.0186, 1.0430, 1.1020, 1.2557, 1.7353, & +1.0004, 1.0009, 1.0020, 1.0050, 1.0114, 1.0261, 1.0604, 1.1447, 1.3738, & +1.0002, 1.0004, 1.0011, 1.0029, 1.0069, 1.0161, 1.0370, 1.0862, 1.2096, & +1.0001, 1.0002, 1.0004, 1.0013, 1.0038, 1.0096, 1.0229, 1.0532, 1.1252, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0014, 1.0049, 1.0134, 1.0328, 1.0772, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0004, 1.0015, 1.0063, 1.0187, 1.0470, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0002, 1.0004, 1.0015, 1.0080, 1.0257 / +data ((supersat( 6,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +1.0006, 1.0013, 1.0029, 1.0066, 1.0152, 1.0354, 1.0841, 1.2076, 1.5617, & +1.0003, 1.0008, 1.0017, 1.0040, 1.0091, 1.0211, 1.0491, 1.1172, 1.2952, & +1.0002, 1.0003, 1.0009, 1.0022, 1.0054, 1.0127, 1.0295, 1.0689, 1.1660, & +1.0001, 1.0002, 1.0003, 1.0010, 1.0028, 1.0074, 1.0177, 1.0415, 1.0979, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0010, 1.0036, 1.0101, 1.0249, 1.0592, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0003, 1.0010, 1.0044, 1.0137, 1.0352, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0002, 1.0004, 1.0010, 1.0054, 1.0185 / +data ((supersat( 6,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +1.0005, 1.0010, 1.0024, 1.0056, 1.0129, 1.0301, 1.0716, 1.1754, 1.4601, & +1.0003, 1.0005, 1.0015, 1.0033, 1.0076, 1.0177, 1.0414, 1.0987, 1.2453, & +1.0001, 1.0003, 1.0007, 1.0018, 1.0044, 1.0104, 1.0244, 1.0572, 1.1376, & +1.0001, 1.0001, 1.0003, 1.0008, 1.0022, 1.0059, 1.0143, 1.0339, 1.0801, & +1.0001, 1.0001, 1.0001, 1.0003, 1.0008, 1.0028, 1.0079, 1.0198, 1.0475, & +1.0000, 1.0001, 1.0001, 1.0001, 1.0003, 1.0008, 1.0033, 1.0105, 1.0275, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0001, 1.0003, 1.0008, 1.0037, 1.0138 / +data ((supersat( 6,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +1.0019, 1.0050, 1.0120, 1.0276, 1.0634, 1.1503, 1.3997, 2.6765, 4.9384, & +1.0006, 1.0024, 1.0069, 1.0174, 1.0407, 1.0948, 1.2321, 1.6880, 3.9223, & +1.0002, 1.0006, 1.0029, 1.0096, 1.0251, 1.0603, 1.1442, 1.3754, 2.4492, & +1.0002, 1.0003, 1.0007, 1.0034, 1.0131, 1.0361, 1.0894, 1.2242, 1.6586, & +1.0000, 1.0001, 1.0003, 1.0008, 1.0038, 1.0175, 1.0509, 1.1326, 1.3609, & +0.9996, 0.9996, 0.9998, 1.0002, 1.0011, 1.0041, 1.0224, 1.0697, 1.1959, & +0.9983, 0.9984, 0.9985, 0.9988, 0.9994, 1.0011, 1.0052, 1.0272, 1.0918 / +data ((supersat( 6,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +1.0014, 1.0035, 1.0083, 1.0190, 1.0433, 1.1010, 1.2524, 1.7940, 3.6874, & +1.0005, 1.0017, 1.0048, 1.0118, 1.0277, 1.0638, 1.1511, 1.3985, 2.5546, & +1.0002, 1.0005, 1.0021, 1.0066, 1.0170, 1.0406, 1.0952, 1.2331, 1.6831, & +1.0001, 1.0002, 1.0005, 1.0024, 1.0089, 1.0245, 1.0598, 1.1443, 1.3761, & +1.0001, 1.0001, 1.0003, 1.0005, 1.0026, 1.0120, 1.0347, 1.0880, 1.2230, & +0.9999, 0.9999, 1.0000, 1.0003, 1.0007, 1.0028, 1.0156, 1.0481, 1.1287, & +0.9993, 0.9993, 0.9994, 0.9995, 0.9999, 1.0009, 1.0030, 1.0193, 1.0643 / +data ((supersat( 6,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +1.0010, 1.0025, 1.0059, 1.0136, 1.0310, 1.0719, 1.1743, 1.4798, 2.7235, & +1.0004, 1.0012, 1.0033, 1.0084, 1.0196, 1.0449, 1.1049, 1.2616, 1.8028, & +1.0002, 1.0004, 1.0015, 1.0046, 1.0119, 1.0283, 1.0658, 1.1566, 1.4116, & +1.0001, 1.0002, 1.0004, 1.0017, 1.0061, 1.0169, 1.0412, 1.0977, 1.2407, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0018, 1.0081, 1.0238, 1.0601, 1.1470, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0005, 1.0018, 1.0105, 1.0331, 1.0869, & +0.9997, 0.9997, 0.9997, 0.9998, 1.0001, 1.0006, 1.0019, 1.0131, 1.0445 / +data ((supersat( 6,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +1.0007, 1.0019, 1.0045, 1.0102, 1.0233, 1.0540, 1.1293, 1.3344, 2.0868, & +1.0003, 1.0009, 1.0024, 1.0061, 1.0143, 1.0332, 1.0772, 1.1875, 1.5118, & +1.0001, 1.0003, 1.0011, 1.0032, 1.0086, 1.0205, 1.0477, 1.1123, 1.2804, & +1.0001, 1.0001, 1.0003, 1.0012, 1.0043, 1.0119, 1.0294, 1.0694, 1.1667, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0012, 1.0055, 1.0166, 1.0422, 1.1021, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0004, 1.0012, 1.0069, 1.0229, 1.0603, & +0.9998, 0.9998, 0.9999, 0.9999, 1.0001, 1.0005, 1.0013, 1.0084, 1.0306 / +data ((supersat( 6,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +1.0005, 1.0015, 1.0035, 1.0080, 1.0184, 1.0427, 1.1018, 1.2554, 1.7347, & +1.0003, 1.0007, 1.0018, 1.0047, 1.0111, 1.0257, 1.0600, 1.1441, 1.3730, & +1.0001, 1.0003, 1.0008, 1.0024, 1.0064, 1.0155, 1.0363, 1.0853, 1.2084, & +1.0001, 1.0001, 1.0003, 1.0008, 1.0031, 1.0087, 1.0218, 1.0518, 1.1233, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0008, 1.0038, 1.0119, 1.0308, 1.0746, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0003, 1.0008, 1.0045, 1.0161, 1.0433, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0001, 1.0003, 1.0009, 1.0052, 1.0213 / +data ((supersat( 6,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +1.0005, 1.0012, 1.0028, 1.0065, 1.0151, 1.0353, 1.0839, 1.2074, 1.5613, & +1.0002, 1.0005, 1.0015, 1.0037, 1.0089, 1.0208, 1.0488, 1.1169, 1.2947, & +1.0001, 1.0002, 1.0006, 1.0019, 1.0050, 1.0122, 1.0289, 1.0682, 1.1652, & +1.0001, 1.0001, 1.0002, 1.0006, 1.0023, 1.0067, 1.0169, 1.0405, 1.0966, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0006, 1.0027, 1.0089, 1.0235, 1.0573, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0002, 1.0006, 1.0031, 1.0117, 1.0324, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0001, 1.0003, 1.0007, 1.0033, 1.0151 / +data ((supersat( 6,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +1.0004, 1.0009, 1.0023, 1.0055, 1.0127, 1.0300, 1.0714, 1.1752, 1.4598, & +1.0002, 1.0005, 1.0013, 1.0031, 1.0073, 1.0174, 1.0411, 1.0984, 1.2449, & +1.0001, 1.0002, 1.0005, 1.0015, 1.0040, 1.0100, 1.0239, 1.0568, 1.1370, & +1.0001, 1.0001, 1.0002, 1.0005, 1.0018, 1.0053, 1.0136, 1.0331, 1.0791, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0005, 1.0020, 1.0069, 1.0186, 1.0460, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0002, 1.0005, 1.0022, 1.0088, 1.0253, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0001, 1.0002, 1.0005, 1.0022, 1.0111 / +data ((supersat( 6,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +1.0013, 1.0043, 1.0112, 1.0266, 1.0621, 1.1485, 1.3967, 2.6677, 4.9235, & +1.0004, 1.0016, 1.0058, 1.0159, 1.0388, 1.0922, 1.2280, 1.6798, 3.8932, & +1.0002, 1.0004, 1.0017, 1.0077, 1.0226, 1.0567, 1.1386, 1.3654, 2.4219, & +1.0001, 1.0002, 1.0005, 1.0018, 1.0101, 1.0315, 1.0823, 1.2119, 1.6318, & +0.9998, 0.9999, 1.0001, 1.0006, 1.0019, 1.0127, 1.0427, 1.1182, 1.3323, & +0.9989, 0.9990, 0.9991, 0.9995, 1.0005, 1.0027, 1.0152, 1.0555, 1.1671, & +0.9969, 0.9969, 0.9970, 0.9973, 0.9980, 0.9996, 1.0037, 1.0172, 1.0686 / +data ((supersat( 6,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +1.0010, 1.0031, 1.0078, 1.0184, 1.0425, 1.1000, 1.2510, 1.7913, 3.6792, & +1.0003, 1.0012, 1.0041, 1.0109, 1.0265, 1.0622, 1.1490, 1.3949, 2.5444, & +1.0001, 1.0003, 1.0013, 1.0053, 1.0154, 1.0385, 1.0921, 1.2283, 1.6733, & +1.0001, 1.0002, 1.0003, 1.0013, 1.0069, 1.0216, 1.0557, 1.1377, 1.3643, & +1.0000, 1.0000, 1.0002, 1.0004, 1.0013, 1.0087, 1.0296, 1.0799, 1.2087, & +0.9995, 0.9996, 0.9997, 0.9999, 1.0005, 1.0017, 1.0106, 1.0392, 1.1127, & +0.9984, 0.9984, 0.9985, 0.9986, 0.9991, 1.0001, 1.0025, 1.0122, 1.0496 / +data ((supersat( 6,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +1.0007, 1.0022, 1.0055, 1.0132, 1.0305, 1.0712, 1.1735, 1.4785, 2.7197, & +1.0003, 1.0009, 1.0029, 1.0077, 1.0188, 1.0439, 1.1037, 1.2598, 1.7993, & +1.0001, 1.0003, 1.0009, 1.0037, 1.0108, 1.0269, 1.0640, 1.1539, 1.4070, & +1.0001, 1.0001, 1.0003, 1.0009, 1.0047, 1.0150, 1.0386, 1.0939, 1.2345, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0010, 1.0058, 1.0205, 1.0550, 1.1389, & +0.9998, 0.9998, 0.9999, 1.0001, 1.0004, 1.0011, 1.0070, 1.0273, 1.0772, & +0.9992, 0.9992, 0.9992, 0.9993, 0.9996, 1.0002, 1.0016, 1.0079, 1.0348 / +data ((supersat( 6,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +1.0006, 1.0017, 1.0042, 1.0099, 1.0230, 1.0536, 1.1288, 1.3337, 2.0853, & +1.0002, 1.0006, 1.0021, 1.0056, 1.0138, 1.0325, 1.0764, 1.1865, 1.5100, & +1.0001, 1.0002, 1.0007, 1.0027, 1.0077, 1.0195, 1.0465, 1.1106, 1.2779, & +1.0001, 1.0001, 1.0002, 1.0007, 1.0032, 1.0105, 1.0276, 1.0670, 1.1631, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0007, 1.0038, 1.0142, 1.0389, 1.0971, & +0.9999, 0.9999, 1.0000, 1.0001, 1.0003, 1.0007, 1.0044, 1.0188, 1.0540, & +0.9995, 0.9995, 0.9995, 0.9996, 0.9998, 1.0002, 1.0010, 1.0047, 1.0240 / +data ((supersat( 6,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +1.0005, 1.0013, 1.0032, 1.0077, 1.0181, 1.0425, 1.1014, 1.2550, 1.7340, & +1.0002, 1.0005, 1.0016, 1.0043, 1.0106, 1.0252, 1.0594, 1.1434, 1.3719, & +1.0001, 1.0002, 1.0005, 1.0020, 1.0058, 1.0147, 1.0354, 1.0842, 1.2068, & +1.0001, 1.0001, 1.0002, 1.0005, 1.0023, 1.0077, 1.0205, 1.0501, 1.1210, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0005, 1.0026, 1.0101, 1.0284, 1.0712, & +0.9999, 1.0000, 1.0000, 1.0001, 1.0002, 1.0006, 1.0027, 1.0131, 1.0389, & +0.9996, 0.9997, 0.9997, 0.9997, 0.9998, 1.0001, 1.0007, 1.0028, 1.0164 / +data ((supersat( 6,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +1.0004, 1.0010, 1.0026, 1.0063, 1.0148, 1.0350, 1.0837, 1.2071, 1.5609, & +1.0002, 1.0004, 1.0013, 1.0034, 1.0085, 1.0204, 1.0484, 1.1164, 1.2940, & +1.0001, 1.0002, 1.0004, 1.0015, 1.0045, 1.0116, 1.0282, 1.0674, 1.1641, & +1.0000, 1.0001, 1.0002, 1.0004, 1.0017, 1.0058, 1.0159, 1.0393, 1.0949, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0004, 1.0018, 1.0075, 1.0216, 1.0548, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0002, 1.0004, 1.0018, 1.0094, 1.0291, & +0.9997, 0.9997, 0.9997, 0.9998, 0.9999, 1.0001, 1.0005, 1.0019, 1.0114 / +data ((supersat( 6,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +1.0003, 1.0008, 1.0021, 1.0053, 1.0126, 1.0298, 1.0712, 1.1750, 1.4595, & +1.0001, 1.0003, 1.0010, 1.0028, 1.0071, 1.0171, 1.0408, 1.0980, 1.2444, & +1.0001, 1.0001, 1.0003, 1.0012, 1.0036, 1.0095, 1.0234, 1.0561, 1.1362, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0013, 1.0046, 1.0128, 1.0321, 1.0778, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0003, 1.0013, 1.0057, 1.0171, 1.0441, & +1.0000, 1.0000, 1.0000, 1.0000, 1.0001, 1.0003, 1.0013, 1.0069, 1.0227, & +0.9997, 0.9997, 0.9998, 0.9998, 0.9999, 1.0000, 1.0004, 1.0014, 1.0082 / +data ((supersat( 6,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +1.0011, 1.0038, 1.0106, 1.0259, 1.0612, 1.1472, 1.3945, 2.6614, 4.9128, & +1.0003, 1.0012, 1.0051, 1.0150, 1.0375, 1.0903, 1.2251, 1.6740, 3.8722, & +1.0002, 1.0003, 1.0012, 1.0065, 1.0209, 1.0542, 1.1347, 1.3583, 2.4023, & +1.0000, 1.0001, 1.0004, 1.0012, 1.0082, 1.0285, 1.0774, 1.2034, 1.6131, & +0.9995, 0.9996, 0.9999, 1.0004, 1.0017, 1.0098, 1.0375, 1.1087, 1.3130, & +0.9983, 0.9984, 0.9985, 0.9989, 0.9999, 1.0023, 1.0112, 1.0471, 1.1491, & +0.9959, 0.9959, 0.9960, 0.9963, 0.9969, 0.9985, 1.0025, 1.0123, 1.0561 / +data ((supersat( 6,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +1.0008, 1.0028, 1.0074, 1.0179, 1.0420, 1.0992, 1.2499, 1.7894, 3.6731, & +1.0002, 1.0009, 1.0036, 1.0103, 1.0257, 1.0612, 1.1474, 1.3923, 2.5370, & +1.0001, 1.0003, 1.0009, 1.0045, 1.0143, 1.0370, 1.0899, 1.2248, 1.6663, & +1.0001, 1.0001, 1.0003, 1.0009, 1.0056, 1.0197, 1.0528, 1.1332, 1.3560, & +0.9998, 0.9999, 1.0001, 1.0004, 1.0010, 1.0067, 1.0264, 1.0744, 1.1990, & +0.9992, 0.9993, 0.9994, 0.9996, 1.0002, 1.0015, 1.0077, 1.0338, 1.1023, & +0.9977, 0.9977, 0.9978, 0.9979, 0.9983, 0.9994, 1.0018, 1.0085, 1.0412 / +data ((supersat( 6,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +1.0006, 1.0020, 1.0052, 1.0129, 1.0302, 1.0708, 1.1729, 1.4776, 2.7170, & +1.0002, 1.0007, 1.0026, 1.0073, 1.0182, 1.0432, 1.1028, 1.2584, 1.7968, & +1.0001, 1.0002, 1.0007, 1.0032, 1.0100, 1.0259, 1.0627, 1.1520, 1.4036, & +1.0001, 1.0001, 1.0002, 1.0007, 1.0038, 1.0136, 1.0368, 1.0912, 1.2302, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0007, 1.0044, 1.0183, 1.0516, 1.1334, & +0.9996, 0.9997, 0.9997, 0.9999, 1.0002, 1.0010, 1.0049, 1.0236, 1.0709, & +0.9987, 0.9987, 0.9987, 0.9989, 0.9991, 0.9998, 1.0012, 1.0053, 1.0291 / +data ((supersat( 6,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +1.0005, 1.0015, 1.0040, 1.0096, 1.0227, 1.0533, 1.1284, 1.3332, 2.0842, & +1.0002, 1.0005, 1.0019, 1.0053, 1.0134, 1.0320, 1.0759, 1.1857, 1.5087, & +1.0001, 1.0002, 1.0005, 1.0022, 1.0072, 1.0188, 1.0456, 1.1094, 1.2761, & +1.0001, 1.0001, 1.0002, 1.0005, 1.0026, 1.0096, 1.0263, 1.0653, 1.1605, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0005, 1.0029, 1.0127, 1.0366, 1.0936, & +0.9998, 0.9998, 0.9999, 1.0000, 1.0002, 1.0007, 1.0030, 1.0163, 1.0499, & +0.9992, 0.9992, 0.9992, 0.9993, 0.9995, 0.9999, 1.0008, 1.0032, 1.0200 / +data ((supersat( 6,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +1.0004, 1.0012, 1.0031, 1.0076, 1.0179, 1.0422, 1.1012, 1.2546, 1.7335, & +1.0001, 1.0004, 1.0014, 1.0040, 1.0103, 1.0249, 1.0590, 1.1429, 1.3711, & +1.0001, 1.0001, 1.0004, 1.0016, 1.0054, 1.0142, 1.0348, 1.0834, 1.2057, & +1.0000, 1.0001, 1.0001, 1.0004, 1.0018, 1.0070, 1.0196, 1.0489, 1.1193, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0004, 1.0019, 1.0089, 1.0268, 1.0688, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0001, 1.0005, 1.0019, 1.0112, 1.0360, & +0.9994, 0.9994, 0.9994, 0.9995, 0.9996, 0.9999, 1.0005, 1.0020, 1.0135 / +data ((supersat( 6,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +1.0003, 1.0009, 1.0024, 1.0061, 1.0147, 1.0349, 1.0835, 1.2068, 1.5605, & +1.0001, 1.0003, 1.0011, 1.0032, 1.0083, 1.0201, 1.0481, 1.1160, 1.2935, & +1.0001, 1.0001, 1.0003, 1.0012, 1.0042, 1.0112, 1.0278, 1.0668, 1.1633, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0013, 1.0053, 1.0151, 1.0384, 1.0937, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0003, 1.0013, 1.0065, 1.0203, 1.0531, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0001, 1.0004, 1.0013, 1.0079, 1.0269, & +0.9995, 0.9995, 0.9995, 0.9996, 0.9997, 0.9999, 1.0003, 1.0014, 1.0092 / +data ((supersat( 6,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +1.0003, 1.0008, 1.0020, 1.0052, 1.0124, 1.0297, 1.0711, 1.1748, 1.4592, & +1.0001, 1.0003, 1.0009, 1.0026, 1.0069, 1.0169, 1.0405, 1.0977, 1.2440, & +1.0001, 1.0001, 1.0003, 1.0010, 1.0033, 1.0092, 1.0230, 1.0556, 1.1356, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0010, 1.0041, 1.0122, 1.0313, 1.0769, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0003, 1.0010, 1.0049, 1.0161, 1.0427, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0001, 1.0003, 1.0010, 1.0057, 1.0209, & +0.9995, 0.9996, 0.9996, 0.9996, 0.9997, 0.9999, 1.0002, 1.0011, 1.0064 / +data ((supersat( 6,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +1.0009, 1.0035, 1.0102, 1.0254, 1.0605, 1.1462, 1.3928, 2.6561, 4.9039, & +1.0002, 1.0009, 1.0046, 1.0142, 1.0365, 1.0888, 1.2227, 1.6692, 3.8552, & +1.0001, 1.0003, 1.0009, 1.0057, 1.0195, 1.0522, 1.1316, 1.3527, 2.3866, & +0.9999, 1.0001, 1.0004, 1.0010, 1.0068, 1.0262, 1.0737, 1.1967, 1.5983, & +0.9993, 0.9994, 0.9997, 1.0002, 1.0015, 1.0079, 1.0338, 1.1017, 1.2982, & +0.9978, 0.9978, 0.9980, 0.9984, 0.9994, 1.0018, 1.0087, 1.0414, 1.1361, & +0.9951, 0.9952, 0.9953, 0.9955, 0.9961, 0.9977, 1.0015, 1.0124, 1.0480 / +data ((supersat( 6,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +1.0007, 1.0025, 1.0071, 1.0175, 1.0416, 1.0987, 1.2491, 1.7878, 3.6682, & +1.0002, 1.0007, 1.0032, 1.0098, 1.0251, 1.0603, 1.1462, 1.3902, 2.5309, & +1.0001, 1.0002, 1.0007, 1.0039, 1.0135, 1.0358, 1.0882, 1.2220, 1.6606, & +1.0000, 1.0001, 1.0003, 1.0007, 1.0047, 1.0182, 1.0506, 1.1296, 1.3494, & +0.9997, 0.9998, 0.9999, 1.0003, 1.0010, 1.0054, 1.0239, 1.0702, 1.1913, & +0.9989, 0.9990, 0.9991, 0.9993, 0.9999, 1.0013, 1.0059, 1.0300, 1.0947, & +0.9971, 0.9971, 0.9971, 0.9973, 0.9977, 0.9987, 1.0012, 1.0077, 1.0356 / +data ((supersat( 6,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +1.0005, 1.0019, 1.0050, 1.0126, 1.0299, 1.0705, 1.1724, 1.4769, 2.7147, & +1.0002, 1.0005, 1.0023, 1.0070, 1.0178, 1.0428, 1.1021, 1.2573, 1.7946, & +1.0001, 1.0002, 1.0005, 1.0028, 1.0094, 1.0252, 1.0616, 1.1504, 1.4009, & +1.0000, 1.0001, 1.0002, 1.0006, 1.0032, 1.0126, 1.0354, 1.0891, 1.2267, & +0.9999, 0.9999, 1.0000, 1.0002, 1.0006, 1.0035, 1.0166, 1.0490, 1.1290, & +0.9995, 0.9995, 0.9996, 0.9997, 1.0001, 1.0009, 1.0037, 1.0210, 1.0662, & +0.9983, 0.9983, 0.9983, 0.9984, 0.9987, 0.9993, 1.0009, 1.0046, 1.0252 / +data ((supersat( 6,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +1.0004, 1.0014, 1.0038, 1.0095, 1.0225, 1.0531, 1.1281, 1.3328, 2.0832, & +1.0001, 1.0004, 1.0017, 1.0051, 1.0131, 1.0317, 1.0754, 1.1850, 1.5076, & +1.0001, 1.0001, 1.0004, 1.0019, 1.0067, 1.0183, 1.0449, 1.1085, 1.2746, & +1.0000, 1.0001, 1.0002, 1.0004, 1.0021, 1.0089, 1.0254, 1.0639, 1.1584, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0005, 1.0022, 1.0115, 1.0348, 1.0908, & +0.9997, 0.9997, 0.9998, 0.9999, 1.0001, 1.0006, 1.0023, 1.0144, 1.0467, & +0.9989, 0.9989, 0.9989, 0.9990, 0.9992, 0.9996, 1.0005, 1.0028, 1.0172 / +data ((supersat( 6,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +1.0003, 1.0010, 1.0029, 1.0074, 1.0178, 1.0421, 1.1010, 1.2544, 1.7330, & +1.0001, 1.0003, 1.0013, 1.0038, 1.0101, 1.0246, 1.0587, 1.1425, 1.3705, & +1.0001, 1.0001, 1.0003, 1.0014, 1.0050, 1.0138, 1.0343, 1.0828, 1.2047, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0015, 1.0064, 1.0188, 1.0480, 1.1179, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0004, 1.0015, 1.0081, 1.0255, 1.0669, & +0.9998, 0.9998, 0.9998, 0.9999, 1.0001, 1.0004, 1.0016, 1.0098, 1.0337, & +0.9992, 0.9992, 0.9992, 0.9993, 0.9994, 0.9997, 1.0003, 1.0018, 1.0115 / +data ((supersat( 6,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +1.0003, 1.0008, 1.0023, 1.0060, 1.0146, 1.0347, 1.0833, 1.2067, 1.5602, & +1.0001, 1.0003, 1.0010, 1.0030, 1.0081, 1.0199, 1.0478, 1.1157, 1.2930, & +1.0001, 1.0001, 1.0003, 1.0011, 1.0039, 1.0109, 1.0274, 1.0664, 1.1626, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0011, 1.0048, 1.0146, 1.0376, 1.0927, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0003, 1.0011, 1.0058, 1.0194, 1.0517, & +0.9998, 0.9998, 0.9999, 0.9999, 1.0001, 1.0003, 1.0011, 1.0068, 1.0252, & +0.9993, 0.9993, 0.9993, 0.9994, 0.9995, 0.9997, 1.0002, 1.0013, 1.0077 / +data ((supersat( 6,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +1.0002, 1.0007, 1.0020, 1.0051, 1.0123, 1.0296, 1.0710, 1.1746, 1.4590, & +1.0001, 1.0002, 1.0008, 1.0025, 1.0067, 1.0167, 1.0403, 1.0975, 1.2437, & +1.0000, 1.0001, 1.0002, 1.0008, 1.0031, 1.0089, 1.0226, 1.0553, 1.1351, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0008, 1.0038, 1.0117, 1.0307, 1.0761, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0002, 1.0008, 1.0044, 1.0153, 1.0416, & +0.9998, 0.9998, 0.9999, 0.9999, 1.0000, 1.0003, 1.0009, 1.0049, 1.0196, & +0.9994, 0.9994, 0.9994, 0.9994, 0.9995, 0.9997, 1.0001, 1.0009, 1.0052 / +data ((supersat( 6,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +1.0008, 1.0033, 1.0098, 1.0249, 1.0598, 1.1453, 1.3913, 2.6517, 4.8965, & +1.0002, 1.0008, 1.0041, 1.0135, 1.0356, 1.0876, 1.2207, 1.6652, 3.8407, & +1.0001, 1.0003, 1.0008, 1.0049, 1.0185, 1.0506, 1.1290, 1.3479, 2.3731, & +0.9998, 1.0000, 1.0003, 1.0010, 1.0058, 1.0244, 1.0706, 1.1911, 1.5859, & +0.9991, 0.9992, 0.9994, 1.0000, 1.0014, 1.0064, 1.0309, 1.0960, 1.2860, & +0.9973, 0.9974, 0.9975, 0.9980, 0.9990, 1.0014, 1.0069, 1.0370, 1.1260, & +0.9946, 0.9946, 0.9947, 0.9949, 0.9955, 0.9970, 1.0007, 1.0111, 1.0422 / +data ((supersat( 6,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +1.0006, 1.0023, 1.0069, 1.0173, 1.0412, 1.0982, 1.2484, 1.7865, 3.6641, & +1.0002, 1.0006, 1.0029, 1.0094, 1.0246, 1.0596, 1.1451, 1.3884, 2.5258, & +1.0001, 1.0002, 1.0006, 1.0035, 1.0128, 1.0348, 1.0868, 1.2196, 1.6558, & +1.0000, 1.0001, 1.0003, 1.0006, 1.0040, 1.0171, 1.0488, 1.1266, 1.3438, & +0.9996, 0.9997, 0.9998, 1.0002, 1.0009, 1.0043, 1.0220, 1.0669, 1.1851, & +0.9987, 0.9987, 0.9988, 0.9990, 0.9997, 1.0011, 1.0046, 1.0270, 1.0887, & +0.9965, 0.9966, 0.9966, 0.9968, 0.9972, 0.9982, 1.0007, 1.0071, 1.0314 / +data ((supersat( 6,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +1.0005, 1.0017, 1.0049, 1.0124, 1.0297, 1.0702, 1.1720, 1.4762, 2.7127, & +1.0002, 1.0005, 1.0021, 1.0067, 1.0175, 1.0423, 1.1014, 1.2564, 1.7928, & +1.0001, 1.0002, 1.0005, 1.0024, 1.0089, 1.0245, 1.0607, 1.1491, 1.3986, & +1.0000, 1.0001, 1.0002, 1.0005, 1.0027, 1.0118, 1.0342, 1.0874, 1.2237, & +0.9998, 0.9999, 1.0000, 1.0002, 1.0006, 1.0028, 1.0153, 1.0469, 1.1254, & +0.9993, 0.9993, 0.9994, 0.9996, 0.9999, 1.0008, 1.0030, 1.0190, 1.0623, & +0.9979, 0.9979, 0.9979, 0.9980, 0.9983, 0.9990, 1.0005, 1.0043, 1.0223 / +data ((supersat( 6,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +1.0004, 1.0013, 1.0037, 1.0093, 1.0223, 1.0529, 1.1279, 1.3324, 2.0825, & +1.0001, 1.0004, 1.0015, 1.0049, 1.0129, 1.0314, 1.0750, 1.1845, 1.5067, & +1.0001, 1.0001, 1.0004, 1.0017, 1.0064, 1.0178, 1.0443, 1.1076, 1.2733, & +1.0000, 1.0001, 1.0001, 1.0004, 1.0018, 1.0083, 1.0246, 1.0628, 1.1566, & +0.9999, 1.0000, 1.0000, 1.0002, 1.0004, 1.0018, 1.0105, 1.0334, 1.0886, & +0.9996, 0.9996, 0.9996, 0.9998, 1.0000, 1.0005, 1.0019, 1.0129, 1.0442, & +0.9986, 0.9986, 0.9987, 0.9987, 0.9989, 0.9993, 1.0003, 1.0026, 1.0151 / +data ((supersat( 6,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +1.0003, 1.0009, 1.0028, 1.0073, 1.0176, 1.0419, 1.1008, 1.2541, 1.7326, & +1.0001, 1.0003, 1.0011, 1.0037, 1.0099, 1.0244, 1.0584, 1.1421, 1.3700, & +1.0001, 1.0001, 1.0003, 1.0012, 1.0047, 1.0135, 1.0339, 1.0822, 1.2039, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0013, 1.0060, 1.0182, 1.0471, 1.1167, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0003, 1.0013, 1.0073, 1.0244, 1.0654, & +0.9997, 0.9997, 0.9998, 0.9998, 1.0000, 1.0004, 1.0013, 1.0087, 1.0319, & +0.9990, 0.9990, 0.9990, 0.9990, 0.9992, 0.9995, 1.0001, 1.0017, 1.0100 / +data ((supersat( 6,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +1.0002, 1.0008, 1.0023, 1.0060, 1.0145, 1.0346, 1.0832, 1.2065, 1.5600, & +1.0001, 1.0002, 1.0009, 1.0029, 1.0080, 1.0198, 1.0476, 1.1154, 1.2927, & +1.0000, 1.0001, 1.0002, 1.0009, 1.0037, 1.0106, 1.0270, 1.0659, 1.1621, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0009, 1.0045, 1.0141, 1.0370, 1.0919, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0003, 1.0009, 1.0053, 1.0185, 1.0505, & +0.9998, 0.9998, 0.9998, 0.9999, 1.0000, 1.0003, 1.0010, 1.0060, 1.0239, & +0.9991, 0.9991, 0.9991, 0.9992, 0.9993, 0.9995, 1.0000, 1.0011, 1.0065 / +data ((supersat( 6,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +1.0002, 1.0007, 1.0019, 1.0050, 1.0123, 1.0295, 1.0709, 1.1745, 1.4588, & +1.0001, 1.0002, 1.0007, 1.0024, 1.0066, 1.0166, 1.0402, 1.0973, 1.2434, & +1.0000, 1.0001, 1.0002, 1.0007, 1.0029, 1.0087, 1.0224, 1.0549, 1.1347, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0007, 1.0035, 1.0113, 1.0302, 1.0755, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0002, 1.0007, 1.0039, 1.0146, 1.0407, & +0.9998, 0.9998, 0.9998, 0.9999, 1.0000, 1.0002, 1.0008, 1.0042, 1.0185, & +0.9992, 0.9992, 0.9992, 0.9992, 0.9993, 0.9995, 1.0000, 1.0008, 1.0044 / +data ((supersat( 7,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +1.0023, 1.0055, 1.0125, 1.0283, 1.0642, 1.1515, 1.4015, 2.6817, 4.9472, & +1.0009, 1.0029, 1.0077, 1.0183, 1.0419, 1.0964, 1.2347, 1.6930, 3.9396, & +1.0003, 1.0010, 1.0038, 1.0109, 1.0268, 1.0626, 1.1476, 1.3815, 2.4659, & +1.0002, 1.0003, 1.0010, 1.0048, 1.0152, 1.0390, 1.0940, 1.2318, 1.6749, & +1.0001, 1.0002, 1.0004, 1.0010, 1.0059, 1.0210, 1.0563, 1.1417, 1.3788, & +0.9999, 0.9999, 1.0001, 1.0005, 1.0013, 1.0070, 1.0278, 1.0794, 1.2147, & +0.9991, 0.9991, 0.9992, 0.9995, 1.0002, 1.0018, 1.0079, 1.0351, 1.1086 / +data ((supersat( 7,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +1.0017, 1.0038, 1.0087, 1.0194, 1.0438, 1.1016, 1.2534, 1.7957, 3.6925, & +1.0007, 1.0020, 1.0053, 1.0124, 1.0285, 1.0647, 1.1525, 1.4007, 2.5608, & +1.0003, 1.0008, 1.0026, 1.0074, 1.0181, 1.0420, 1.0971, 1.2362, 1.6891, & +1.0001, 1.0003, 1.0008, 1.0033, 1.0104, 1.0263, 1.0625, 1.1483, 1.3834, & +1.0001, 1.0002, 1.0003, 1.0008, 1.0041, 1.0143, 1.0381, 1.0932, 1.2319, & +1.0000, 1.0001, 1.0002, 1.0004, 1.0008, 1.0047, 1.0193, 1.0540, 1.1390, & +0.9997, 0.9997, 0.9998, 0.9999, 1.0003, 1.0012, 1.0053, 1.0249, 1.0747 / +data ((supersat( 7,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +1.0012, 1.0027, 1.0062, 1.0139, 1.0314, 1.0722, 1.1748, 1.4806, 2.7259, & +1.0005, 1.0014, 1.0037, 1.0088, 1.0201, 1.0455, 1.1057, 1.2628, 1.8050, & +1.0002, 1.0006, 1.0019, 1.0051, 1.0126, 1.0292, 1.0670, 1.1583, 1.4145, & +1.0001, 1.0002, 1.0006, 1.0023, 1.0071, 1.0182, 1.0429, 1.1001, 1.2446, & +1.0001, 1.0001, 1.0002, 1.0006, 1.0027, 1.0097, 1.0261, 1.0633, 1.1520, & +1.0000, 1.0001, 1.0002, 1.0003, 1.0006, 1.0031, 1.0131, 1.0370, 1.0932, & +0.9999, 0.9999, 1.0000, 1.0001, 1.0003, 1.0008, 1.0033, 1.0170, 1.0513 / +data ((supersat( 7,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +1.0009, 1.0020, 1.0046, 1.0104, 1.0235, 1.0543, 1.1296, 1.3349, 2.0878, & +1.0004, 1.0011, 1.0027, 1.0065, 1.0147, 1.0336, 1.0777, 1.1882, 1.5129, & +1.0002, 1.0005, 1.0014, 1.0037, 1.0091, 1.0211, 1.0485, 1.1133, 1.2821, & +1.0001, 1.0002, 1.0005, 1.0016, 1.0050, 1.0128, 1.0306, 1.0710, 1.1690, & +1.0001, 1.0001, 1.0002, 1.0005, 1.0018, 1.0067, 1.0182, 1.0444, 1.1052, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0005, 1.0019, 1.0088, 1.0256, 1.0645, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0002, 1.0006, 1.0020, 1.0113, 1.0353 / +data ((supersat( 7,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +1.0006, 1.0016, 1.0036, 1.0081, 1.0185, 1.0429, 1.1020, 1.2557, 1.7352, & +1.0004, 1.0009, 1.0020, 1.0050, 1.0113, 1.0260, 1.0603, 1.1446, 1.3736, & +1.0002, 1.0004, 1.0010, 1.0028, 1.0068, 1.0159, 1.0369, 1.0861, 1.2094, & +1.0001, 1.0002, 1.0004, 1.0012, 1.0036, 1.0094, 1.0227, 1.0529, 1.1248, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0013, 1.0047, 1.0131, 1.0324, 1.0767, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0004, 1.0013, 1.0060, 1.0182, 1.0463, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0002, 1.0004, 1.0013, 1.0074, 1.0247 / +data ((supersat( 7,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +1.0006, 1.0013, 1.0029, 1.0066, 1.0152, 1.0354, 1.0841, 1.2076, 1.5616, & +1.0003, 1.0007, 1.0016, 1.0039, 1.0091, 1.0210, 1.0491, 1.1172, 1.2951, & +1.0001, 1.0003, 1.0008, 1.0021, 1.0053, 1.0126, 1.0294, 1.0688, 1.1659, & +1.0001, 1.0001, 1.0003, 1.0009, 1.0027, 1.0072, 1.0176, 1.0414, 1.0977, & +1.0001, 1.0001, 1.0001, 1.0003, 1.0009, 1.0034, 1.0098, 1.0247, 1.0589, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0003, 1.0009, 1.0042, 1.0133, 1.0346, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0002, 1.0003, 1.0009, 1.0049, 1.0178 / +data ((supersat( 7,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +1.0005, 1.0010, 1.0023, 1.0056, 1.0129, 1.0301, 1.0716, 1.1754, 1.4600, & +1.0002, 1.0005, 1.0014, 1.0032, 1.0075, 1.0176, 1.0413, 1.0986, 1.2452, & +1.0001, 1.0003, 1.0007, 1.0017, 1.0043, 1.0103, 1.0243, 1.0572, 1.1375, & +1.0001, 1.0001, 1.0003, 1.0007, 1.0022, 1.0058, 1.0142, 1.0337, 1.0799, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0007, 1.0026, 1.0077, 1.0196, 1.0473, & +1.0000, 1.0001, 1.0001, 1.0001, 1.0003, 1.0007, 1.0030, 1.0102, 1.0271, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0001, 1.0003, 1.0007, 1.0034, 1.0133 / +data ((supersat( 7,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +1.0018, 1.0049, 1.0118, 1.0274, 1.0631, 1.1499, 1.3991, 2.6747, 4.9352, & +1.0006, 1.0022, 1.0066, 1.0171, 1.0403, 1.0942, 1.2313, 1.6863, 3.9162, & +1.0002, 1.0006, 1.0026, 1.0092, 1.0246, 1.0595, 1.1430, 1.3733, 2.4436, & +1.0001, 1.0003, 1.0006, 1.0030, 1.0125, 1.0351, 1.0879, 1.2216, 1.6529, & +1.0000, 1.0001, 1.0003, 1.0008, 1.0032, 1.0164, 1.0490, 1.1293, 1.3546, & +0.9994, 0.9995, 0.9997, 1.0001, 1.0010, 1.0034, 1.0207, 1.0663, 1.1892, & +0.9980, 0.9981, 0.9982, 0.9984, 0.9991, 1.0008, 1.0049, 1.0246, 1.0859 / +data ((supersat( 7,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +1.0013, 1.0034, 1.0082, 1.0189, 1.0432, 1.1008, 1.2522, 1.7935, 3.6858, & +1.0005, 1.0016, 1.0047, 1.0116, 1.0275, 1.0634, 1.1507, 1.3978, 2.5525, & +1.0002, 1.0005, 1.0019, 1.0063, 1.0167, 1.0402, 1.0945, 1.2321, 1.6811, & +1.0001, 1.0002, 1.0005, 1.0021, 1.0085, 1.0238, 1.0589, 1.1429, 1.3737, & +1.0000, 1.0001, 1.0002, 1.0005, 1.0022, 1.0113, 1.0336, 1.0863, 1.2199, & +0.9998, 0.9999, 1.0000, 1.0002, 1.0007, 1.0023, 1.0144, 1.0461, 1.1251, & +0.9991, 0.9991, 0.9992, 0.9994, 0.9998, 1.0007, 1.0030, 1.0176, 1.0607 / +data ((supersat( 7,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +1.0010, 1.0024, 1.0058, 1.0135, 1.0309, 1.0717, 1.1741, 1.4796, 2.7229, & +1.0004, 1.0012, 1.0032, 1.0082, 1.0194, 1.0447, 1.1047, 1.2613, 1.8021, & +1.0002, 1.0004, 1.0013, 1.0044, 1.0117, 1.0280, 1.0655, 1.1561, 1.4107, & +1.0001, 1.0002, 1.0004, 1.0015, 1.0058, 1.0165, 1.0407, 1.0970, 1.2395, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0015, 1.0076, 1.0231, 1.0590, 1.1453, & +0.9999, 1.0000, 1.0000, 1.0002, 1.0005, 1.0015, 1.0097, 1.0318, 1.0848, & +0.9996, 0.9996, 0.9996, 0.9997, 1.0000, 1.0006, 1.0018, 1.0118, 1.0422 / +data ((supersat( 7,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +1.0006, 1.0018, 1.0044, 1.0101, 1.0232, 1.0540, 1.1292, 1.3343, 2.0865, & +1.0003, 1.0009, 1.0023, 1.0060, 1.0142, 1.0330, 1.0771, 1.1873, 1.5115, & +1.0001, 1.0003, 1.0010, 1.0031, 1.0084, 1.0203, 1.0475, 1.1120, 1.2800, & +1.0001, 1.0001, 1.0003, 1.0010, 1.0041, 1.0116, 1.0290, 1.0690, 1.1660, & +1.0001, 1.0001, 1.0001, 1.0003, 1.0010, 1.0051, 1.0160, 1.0415, 1.1011, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0004, 1.0011, 1.0063, 1.0220, 1.0590, & +0.9998, 0.9998, 0.9998, 0.9999, 1.0000, 1.0004, 1.0012, 1.0075, 1.0291 / +data ((supersat( 7,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +1.0005, 1.0015, 1.0034, 1.0079, 1.0183, 1.0427, 1.1017, 1.2553, 1.7346, & +1.0002, 1.0007, 1.0018, 1.0046, 1.0110, 1.0256, 1.0599, 1.1440, 1.3728, & +1.0001, 1.0002, 1.0007, 1.0023, 1.0062, 1.0153, 1.0361, 1.0851, 1.2082, & +1.0001, 1.0001, 1.0002, 1.0007, 1.0029, 1.0085, 1.0215, 1.0515, 1.1229, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0007, 1.0035, 1.0115, 1.0303, 1.0739, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0003, 1.0008, 1.0041, 1.0155, 1.0424, & +0.9998, 0.9999, 0.9999, 0.9999, 1.0000, 1.0003, 1.0008, 1.0046, 1.0202 / +data ((supersat( 7,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +1.0005, 1.0011, 1.0027, 1.0064, 1.0150, 1.0352, 1.0839, 1.2073, 1.5613, & +1.0002, 1.0005, 1.0015, 1.0037, 1.0088, 1.0207, 1.0487, 1.1168, 1.2946, & +1.0001, 1.0002, 1.0006, 1.0018, 1.0048, 1.0121, 1.0288, 1.0681, 1.1650, & +1.0001, 1.0001, 1.0002, 1.0006, 1.0022, 1.0065, 1.0167, 1.0403, 1.0963, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0006, 1.0025, 1.0086, 1.0231, 1.0568, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0002, 1.0006, 1.0027, 1.0112, 1.0318, & +0.9999, 0.9999, 0.9999, 0.9999, 1.0000, 1.0002, 1.0006, 1.0029, 1.0143 / +data ((supersat( 7,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +1.0003, 1.0009, 1.0022, 1.0054, 1.0127, 1.0300, 1.0714, 1.1752, 1.4598, & +1.0002, 1.0004, 1.0012, 1.0030, 1.0073, 1.0174, 1.0410, 1.0983, 1.2448, & +1.0001, 1.0002, 1.0005, 1.0015, 1.0039, 1.0099, 1.0238, 1.0566, 1.1369, & +1.0001, 1.0001, 1.0002, 1.0005, 1.0017, 1.0051, 1.0135, 1.0329, 1.0789, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0005, 1.0019, 1.0066, 1.0183, 1.0456, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0002, 1.0005, 1.0019, 1.0084, 1.0248, & +0.9999, 0.9999, 0.9999, 0.9999, 1.0000, 1.0002, 1.0005, 1.0019, 1.0105 / +data ((supersat( 7,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +1.0013, 1.0041, 1.0110, 1.0263, 1.0617, 1.1480, 1.3959, 2.6654, 4.9197, & +1.0003, 1.0014, 1.0055, 1.0155, 1.0383, 1.0914, 1.2269, 1.6776, 3.8853, & +1.0002, 1.0004, 1.0015, 1.0073, 1.0219, 1.0557, 1.1371, 1.3627, 2.4145, & +1.0001, 1.0002, 1.0005, 1.0015, 1.0093, 1.0303, 1.0804, 1.2086, 1.6246, & +0.9997, 0.9998, 1.0000, 1.0005, 1.0016, 1.0115, 1.0406, 1.1145, 1.3248, & +0.9987, 0.9987, 0.9989, 0.9993, 1.0003, 1.0026, 1.0135, 1.0521, 1.1598, & +0.9965, 0.9965, 0.9966, 0.9969, 0.9976, 0.9992, 1.0033, 1.0151, 1.0634 / +data ((supersat( 7,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +1.0009, 1.0030, 1.0076, 1.0182, 1.0423, 1.0997, 1.2506, 1.7906, 3.6770, & +1.0003, 1.0011, 1.0039, 1.0106, 1.0262, 1.0618, 1.1484, 1.3939, 2.5416, & +1.0001, 1.0003, 1.0011, 1.0050, 1.0150, 1.0379, 1.0913, 1.2269, 1.6707, & +1.0001, 1.0002, 1.0003, 1.0011, 1.0064, 1.0208, 1.0546, 1.1360, 1.3611, & +0.9999, 1.0000, 1.0001, 1.0004, 1.0012, 1.0079, 1.0283, 1.0777, 1.2050, & +0.9994, 0.9995, 0.9996, 0.9998, 1.0004, 1.0016, 1.0094, 1.0371, 1.1086, & +0.9981, 0.9981, 0.9982, 0.9984, 0.9988, 0.9998, 1.0022, 1.0107, 1.0461 / +data ((supersat( 7,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +1.0007, 1.0021, 1.0054, 1.0131, 1.0304, 1.0711, 1.1732, 1.4782, 2.7187, & +1.0002, 1.0008, 1.0028, 1.0076, 1.0186, 1.0437, 1.1033, 1.2593, 1.7983, & +1.0001, 1.0002, 1.0008, 1.0035, 1.0105, 1.0265, 1.0635, 1.1532, 1.4057, & +1.0001, 1.0001, 1.0002, 1.0008, 1.0044, 1.0145, 1.0379, 1.0929, 1.2329, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0008, 1.0053, 1.0196, 1.0537, 1.1368, & +0.9997, 0.9998, 0.9998, 1.0000, 1.0003, 1.0011, 1.0061, 1.0258, 1.0748, & +0.9990, 0.9990, 0.9990, 0.9991, 0.9994, 1.0000, 1.0014, 1.0068, 1.0325 / +data ((supersat( 7,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +1.0005, 1.0016, 1.0041, 1.0098, 1.0229, 1.0535, 1.1286, 1.3335, 2.0849, & +1.0002, 1.0006, 1.0020, 1.0055, 1.0137, 1.0323, 1.0762, 1.1862, 1.5096, & +1.0001, 1.0002, 1.0006, 1.0025, 1.0075, 1.0192, 1.0462, 1.1102, 1.2772, & +1.0001, 1.0001, 1.0002, 1.0006, 1.0030, 1.0102, 1.0271, 1.0664, 1.1621, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0006, 1.0034, 1.0136, 1.0380, 1.0958, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0002, 1.0007, 1.0038, 1.0178, 1.0524, & +0.9994, 0.9994, 0.9994, 0.9995, 0.9997, 1.0001, 1.0009, 1.0040, 1.0224 / +data ((supersat( 7,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +1.0004, 1.0012, 1.0032, 1.0077, 1.0180, 1.0424, 1.1014, 1.2549, 1.7338, & +1.0002, 1.0005, 1.0015, 1.0042, 1.0105, 1.0251, 1.0593, 1.1433, 1.3716, & +1.0001, 1.0002, 1.0005, 1.0018, 1.0056, 1.0145, 1.0352, 1.0839, 1.2064, & +1.0000, 1.0001, 1.0002, 1.0005, 1.0021, 1.0074, 1.0201, 1.0497, 1.1204, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0005, 1.0023, 1.0097, 1.0278, 1.0703, & +0.9999, 0.9999, 1.0000, 1.0000, 1.0002, 1.0005, 1.0024, 1.0124, 1.0378, & +0.9996, 0.9996, 0.9996, 0.9996, 0.9998, 1.0000, 1.0006, 1.0024, 1.0153 / +data ((supersat( 7,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +1.0003, 1.0009, 1.0025, 1.0062, 1.0148, 1.0350, 1.0836, 1.2070, 1.5608, & +1.0001, 1.0004, 1.0012, 1.0033, 1.0084, 1.0203, 1.0483, 1.1162, 1.2938, & +1.0001, 1.0001, 1.0004, 1.0014, 1.0044, 1.0115, 1.0281, 1.0672, 1.1638, & +1.0000, 1.0001, 1.0001, 1.0004, 1.0015, 1.0056, 1.0156, 1.0390, 1.0945, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0004, 1.0016, 1.0071, 1.0211, 1.0542, & +0.9999, 0.9999, 1.0000, 1.0000, 1.0001, 1.0004, 1.0016, 1.0088, 1.0283, & +0.9996, 0.9996, 0.9997, 0.9997, 0.9998, 1.0000, 1.0004, 1.0017, 1.0106 / +data ((supersat( 7,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +1.0003, 1.0008, 1.0021, 1.0052, 1.0125, 1.0298, 1.0712, 1.1749, 1.4594, & +1.0001, 1.0003, 1.0009, 1.0027, 1.0070, 1.0170, 1.0407, 1.0979, 1.2443, & +1.0001, 1.0001, 1.0003, 1.0011, 1.0035, 1.0094, 1.0232, 1.0560, 1.1360, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0012, 1.0044, 1.0126, 1.0318, 1.0775, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0003, 1.0012, 1.0054, 1.0167, 1.0436, & +0.9999, 0.9999, 1.0000, 1.0000, 1.0001, 1.0003, 1.0012, 1.0065, 1.0220, & +0.9997, 0.9997, 0.9997, 0.9997, 0.9998, 1.0000, 1.0003, 1.0012, 1.0075 / +data ((supersat( 7,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +1.0008, 1.0033, 1.0099, 1.0250, 1.0600, 1.1455, 1.3917, 2.6530, 4.8988, & +1.0002, 1.0008, 1.0042, 1.0137, 1.0359, 1.0879, 1.2213, 1.6663, 3.8447, & +1.0001, 1.0003, 1.0008, 1.0051, 1.0188, 1.0510, 1.1297, 1.3492, 2.3768, & +0.9999, 1.0000, 1.0003, 1.0010, 1.0060, 1.0249, 1.0714, 1.1926, 1.5893, & +0.9991, 0.9992, 0.9995, 1.0001, 1.0014, 1.0068, 1.0317, 1.0975, 1.2892, & +0.9974, 0.9975, 0.9977, 0.9981, 0.9991, 1.0015, 1.0073, 1.0382, 1.1286, & +0.9947, 0.9947, 0.9948, 0.9950, 0.9956, 0.9971, 1.0009, 1.0115, 1.0437 / +data ((supersat( 7,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +1.0006, 1.0024, 1.0069, 1.0173, 1.0413, 1.0983, 1.2486, 1.7869, 3.6653, & +1.0002, 1.0006, 1.0030, 1.0095, 1.0247, 1.0598, 1.1454, 1.3889, 2.5273, & +1.0001, 1.0002, 1.0006, 1.0036, 1.0130, 1.0351, 1.0872, 1.2203, 1.6572, & +1.0000, 1.0001, 1.0003, 1.0007, 1.0042, 1.0174, 1.0493, 1.1275, 1.3453, & +0.9997, 0.9997, 0.9999, 1.0002, 1.0009, 1.0046, 1.0225, 1.0678, 1.1867, & +0.9987, 0.9988, 0.9989, 0.9991, 0.9997, 1.0011, 1.0049, 1.0278, 1.0903, & +0.9967, 0.9967, 0.9967, 0.9969, 0.9973, 0.9983, 1.0008, 1.0072, 1.0325 / +data ((supersat( 7,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +1.0005, 1.0018, 1.0049, 1.0125, 1.0297, 1.0703, 1.1721, 1.4764, 2.7133, & +1.0002, 1.0005, 1.0021, 1.0068, 1.0176, 1.0424, 1.1016, 1.2567, 1.7933, & +1.0001, 1.0002, 1.0005, 1.0025, 1.0091, 1.0247, 1.0610, 1.1495, 1.3993, & +1.0000, 1.0001, 1.0002, 1.0005, 1.0028, 1.0121, 1.0345, 1.0878, 1.2245, & +0.9999, 0.9999, 1.0000, 1.0002, 1.0006, 1.0030, 1.0157, 1.0475, 1.1264, & +0.9993, 0.9994, 0.9994, 0.9996, 1.0000, 1.0008, 1.0031, 1.0195, 1.0634, & +0.9980, 0.9980, 0.9980, 0.9981, 0.9984, 0.9991, 1.0006, 1.0044, 1.0231 / +data ((supersat( 7,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +1.0004, 1.0013, 1.0037, 1.0093, 1.0224, 1.0530, 1.1279, 1.3325, 2.0827, & +1.0001, 1.0004, 1.0016, 1.0049, 1.0129, 1.0315, 1.0751, 1.1846, 1.5070, & +1.0001, 1.0001, 1.0004, 1.0018, 1.0065, 1.0179, 1.0445, 1.1079, 1.2737, & +1.0000, 1.0001, 1.0001, 1.0004, 1.0019, 1.0085, 1.0248, 1.0631, 1.1571, & +0.9999, 1.0000, 1.0000, 1.0002, 1.0004, 1.0019, 1.0108, 1.0338, 1.0892, & +0.9996, 0.9996, 0.9997, 0.9998, 1.0000, 1.0005, 1.0020, 1.0133, 1.0449, & +0.9987, 0.9987, 0.9987, 0.9988, 0.9990, 0.9994, 1.0004, 1.0027, 1.0157 / +data ((supersat( 7,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +1.0003, 1.0010, 1.0028, 1.0073, 1.0177, 1.0420, 1.1009, 1.2542, 1.7327, & +1.0001, 1.0003, 1.0012, 1.0037, 1.0100, 1.0244, 1.0585, 1.1422, 1.3701, & +1.0001, 1.0001, 1.0003, 1.0013, 1.0048, 1.0136, 1.0340, 1.0824, 1.2042, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0013, 1.0061, 1.0184, 1.0474, 1.1171, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0003, 1.0013, 1.0075, 1.0247, 1.0658, & +0.9997, 0.9997, 0.9998, 0.9998, 1.0000, 1.0004, 1.0014, 1.0090, 1.0324, & +0.9990, 0.9990, 0.9990, 0.9991, 0.9992, 0.9995, 1.0002, 1.0017, 1.0104 / +data ((supersat( 7,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +1.0002, 1.0008, 1.0023, 1.0060, 1.0145, 1.0347, 1.0832, 1.2065, 1.5601, & +1.0001, 1.0002, 1.0009, 1.0029, 1.0080, 1.0198, 1.0477, 1.1155, 1.2928, & +1.0001, 1.0001, 1.0002, 1.0010, 1.0037, 1.0107, 1.0271, 1.0661, 1.1623, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0010, 1.0045, 1.0142, 1.0372, 1.0921, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0003, 1.0010, 1.0054, 1.0188, 1.0509, & +0.9998, 0.9998, 0.9998, 0.9999, 1.0000, 1.0003, 1.0010, 1.0062, 1.0243, & +0.9992, 0.9992, 0.9992, 0.9992, 0.9993, 0.9996, 1.0001, 1.0012, 1.0068 / +data ((supersat( 7,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +1.0002, 1.0007, 1.0019, 1.0050, 1.0123, 1.0295, 1.0709, 1.1746, 1.4589, & +1.0001, 1.0002, 1.0007, 1.0024, 1.0066, 1.0166, 1.0402, 1.0973, 1.2435, & +1.0000, 1.0001, 1.0002, 1.0007, 1.0030, 1.0087, 1.0225, 1.0550, 1.1348, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0007, 1.0035, 1.0114, 1.0304, 1.0757, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0002, 1.0008, 1.0040, 1.0148, 1.0410, & +0.9998, 0.9998, 0.9998, 0.9999, 1.0000, 1.0002, 1.0008, 1.0044, 1.0188, & +0.9992, 0.9992, 0.9993, 0.9993, 0.9994, 0.9996, 1.0000, 1.0009, 1.0046 / +data ((supersat( 7,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +1.0006, 1.0028, 1.0092, 1.0241, 1.0588, 1.1438, 1.3887, 2.6440, 4.8835, & +1.0002, 1.0006, 1.0034, 1.0125, 1.0342, 1.0854, 1.2173, 1.6582, 3.8154, & +1.0001, 1.0002, 1.0006, 1.0038, 1.0167, 1.0479, 1.1246, 1.3397, 2.3499, & +0.9997, 0.9998, 1.0002, 1.0009, 1.0042, 1.0215, 1.0656, 1.1818, 1.5648, & +0.9987, 0.9988, 0.9990, 0.9996, 1.0010, 1.0044, 1.0264, 1.0869, 1.2661, & +0.9965, 0.9966, 0.9967, 0.9971, 0.9981, 1.0006, 1.0068, 1.0307, 1.1105, & +0.9937, 0.9937, 0.9938, 0.9940, 0.9945, 0.9959, 0.9994, 1.0090, 1.0341 / +data ((supersat( 7,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +1.0005, 1.0020, 1.0065, 1.0168, 1.0406, 1.0974, 1.2471, 1.7841, 3.6567, & +1.0002, 1.0005, 1.0024, 1.0087, 1.0237, 1.0584, 1.1433, 1.3853, 2.5168, & +1.0001, 1.0002, 1.0005, 1.0027, 1.0116, 1.0332, 1.0843, 1.2156, 1.6475, & +0.9999, 1.0000, 1.0002, 1.0006, 1.0029, 1.0151, 1.0457, 1.1216, 1.3342, & +0.9994, 0.9995, 0.9996, 1.0000, 1.0008, 1.0030, 1.0189, 1.0614, 1.1746, & +0.9981, 0.9981, 0.9982, 0.9985, 0.9991, 1.0006, 1.0043, 1.0225, 1.0792, & +0.9957, 0.9957, 0.9957, 0.9959, 0.9963, 0.9973, 0.9997, 1.0059, 1.0255 / +data ((supersat( 7,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +1.0004, 1.0015, 1.0046, 1.0121, 1.0292, 1.0697, 1.1713, 1.4750, 2.7093, & +1.0001, 1.0004, 1.0017, 1.0062, 1.0168, 1.0415, 1.1004, 1.2548, 1.7897, & +1.0001, 1.0001, 1.0004, 1.0019, 1.0081, 1.0234, 1.0592, 1.1468, 1.3946, & +1.0000, 1.0000, 1.0002, 1.0004, 1.0020, 1.0105, 1.0323, 1.0843, 1.2186, & +0.9997, 0.9998, 0.9999, 1.0001, 1.0005, 1.0020, 1.0132, 1.0434, 1.1193, & +0.9990, 0.9990, 0.9991, 0.9992, 0.9996, 1.0005, 1.0026, 1.0158, 1.0563, & +0.9972, 0.9972, 0.9972, 0.9973, 0.9976, 0.9983, 0.9999, 1.0037, 1.0180 / +data ((supersat( 7,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +1.0003, 1.0011, 1.0034, 1.0090, 1.0220, 1.0526, 1.1274, 1.3318, 2.0810, & +1.0001, 1.0003, 1.0013, 1.0045, 1.0124, 1.0308, 1.0743, 1.1835, 1.5051, & +1.0001, 1.0001, 1.0003, 1.0013, 1.0058, 1.0170, 1.0433, 1.1062, 1.2711, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0014, 1.0073, 1.0232, 1.0608, 1.1536, & +0.9998, 0.9999, 0.9999, 1.0001, 1.0004, 1.0014, 1.0090, 1.0310, 1.0847, & +0.9994, 0.9994, 0.9994, 0.9995, 0.9998, 1.0004, 1.0017, 1.0107, 1.0401, & +0.9981, 0.9981, 0.9981, 0.9982, 0.9984, 0.9988, 0.9998, 1.0022, 1.0120 / +data ((supersat( 7,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +1.0002, 1.0008, 1.0026, 1.0071, 1.0174, 1.0417, 1.1005, 1.2537, 1.7319, & +1.0001, 1.0002, 1.0010, 1.0034, 1.0096, 1.0240, 1.0580, 1.1415, 1.3690, & +1.0000, 1.0001, 1.0002, 1.0010, 1.0043, 1.0129, 1.0331, 1.0813, 1.2025, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0010, 1.0052, 1.0172, 1.0458, 1.1147, & +0.9999, 0.9999, 1.0000, 1.0001, 1.0003, 1.0010, 1.0062, 1.0227, 1.0627, & +0.9995, 0.9996, 0.9996, 0.9997, 0.9998, 1.0002, 1.0011, 1.0070, 1.0290, & +0.9985, 0.9985, 0.9986, 0.9986, 0.9987, 0.9991, 0.9998, 1.0014, 1.0077 / +data ((supersat( 7,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +1.0002, 1.0007, 1.0021, 1.0058, 1.0143, 1.0344, 1.0830, 1.2062, 1.5595, & +1.0001, 1.0002, 1.0007, 1.0027, 1.0077, 1.0194, 1.0473, 1.1150, 1.2920, & +1.0000, 1.0001, 1.0002, 1.0007, 1.0033, 1.0101, 1.0265, 1.0652, 1.1611, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0007, 1.0039, 1.0133, 1.0360, 1.0904, & +0.9999, 0.9999, 1.0000, 1.0001, 1.0002, 1.0008, 1.0044, 1.0172, 1.0486, & +0.9996, 0.9996, 0.9997, 0.9997, 0.9999, 1.0002, 1.0008, 1.0047, 1.0216, & +0.9987, 0.9987, 0.9988, 0.9988, 0.9989, 0.9992, 0.9997, 1.0009, 1.0049 / +data ((supersat( 7,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +1.0002, 1.0006, 1.0018, 1.0049, 1.0121, 1.0293, 1.0707, 1.1743, 1.4585, & +1.0001, 1.0002, 1.0006, 1.0022, 1.0064, 1.0163, 1.0398, 1.0969, 1.2429, & +1.0000, 1.0001, 1.0002, 1.0006, 1.0026, 1.0083, 1.0219, 1.0544, 1.1339, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0006, 1.0030, 1.0106, 1.0294, 1.0743, & +0.9999, 0.9999, 1.0000, 1.0000, 1.0002, 1.0006, 1.0032, 1.0135, 1.0391, & +0.9997, 0.9997, 0.9997, 0.9997, 0.9999, 1.0001, 1.0006, 1.0033, 1.0167, & +0.9989, 0.9989, 0.9989, 0.9989, 0.9990, 0.9992, 0.9996, 1.0006, 1.0034 / +data ((supersat( 7,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +1.0005, 1.0024, 1.0087, 1.0234, 1.0578, 1.1423, 1.3862, 2.6366, 4.8711, & +1.0002, 1.0005, 1.0028, 1.0116, 1.0329, 1.0835, 1.2140, 1.6516, 3.7916, & +1.0000, 1.0002, 1.0006, 1.0030, 1.0151, 1.0454, 1.1205, 1.3321, 2.3282, & +0.9995, 0.9997, 1.0000, 1.0008, 1.0031, 1.0190, 1.0612, 1.1735, 1.5457, & +0.9982, 0.9983, 0.9986, 0.9992, 1.0007, 1.0042, 1.0228, 1.0792, 1.2488, & +0.9958, 0.9958, 0.9960, 0.9964, 0.9974, 0.9998, 1.0059, 1.0258, 1.0981, & +0.9930, 0.9930, 0.9931, 0.9933, 0.9938, 0.9950, 0.9982, 1.0072, 1.0353 / +data ((supersat( 7,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +1.0004, 1.0018, 1.0061, 1.0163, 1.0400, 1.0966, 1.2459, 1.7819, 3.6497, & +1.0001, 1.0004, 1.0020, 1.0081, 1.0228, 1.0573, 1.1417, 1.3824, 2.5083, & +1.0001, 1.0002, 1.0004, 1.0021, 1.0106, 1.0317, 1.0820, 1.2118, 1.6397, & +0.9998, 0.9999, 1.0001, 1.0006, 1.0022, 1.0135, 1.0430, 1.1170, 1.3254, & +0.9992, 0.9992, 0.9994, 0.9998, 1.0006, 1.0024, 1.0164, 1.0566, 1.1653, & +0.9976, 0.9976, 0.9977, 0.9980, 0.9986, 1.0001, 1.0038, 1.0190, 1.0713, & +0.9949, 0.9949, 0.9950, 0.9951, 0.9955, 0.9964, 0.9988, 1.0048, 1.0210 / +data ((supersat( 7,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +1.0003, 1.0013, 1.0044, 1.0118, 1.0289, 1.0692, 1.1706, 1.4739, 2.7061, & +1.0001, 1.0003, 1.0014, 1.0057, 1.0163, 1.0408, 1.0994, 1.2532, 1.7867, & +1.0001, 1.0001, 1.0003, 1.0015, 1.0074, 1.0224, 1.0578, 1.1447, 1.3909, & +0.9999, 1.0000, 1.0001, 1.0004, 1.0015, 1.0094, 1.0305, 1.0816, 1.2139, & +0.9996, 0.9996, 0.9997, 1.0000, 1.0005, 1.0017, 1.0114, 1.0403, 1.1139, & +0.9986, 0.9986, 0.9987, 0.9989, 0.9993, 1.0002, 1.0024, 1.0133, 1.0511, & +0.9965, 0.9965, 0.9966, 0.9967, 0.9969, 0.9976, 0.9992, 1.0031, 1.0147 / +data ((supersat( 7,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +1.0002, 1.0010, 1.0032, 1.0088, 1.0218, 1.0523, 1.1270, 1.3312, 2.0797, & +1.0001, 1.0002, 1.0011, 1.0042, 1.0120, 1.0304, 1.0737, 1.1826, 1.5035, & +1.0001, 1.0001, 1.0002, 1.0011, 1.0053, 1.0163, 1.0424, 1.1049, 1.2689, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0011, 1.0065, 1.0220, 1.0590, 1.1507, & +0.9998, 0.9998, 0.9999, 1.0000, 1.0003, 1.0012, 1.0077, 1.0289, 1.0812, & +0.9991, 0.9991, 0.9992, 0.9993, 0.9996, 1.0002, 1.0015, 1.0088, 1.0366, & +0.9976, 0.9976, 0.9976, 0.9977, 0.9978, 0.9983, 0.9994, 1.0018, 1.0096 / +data ((supersat( 7,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +1.0002, 1.0008, 1.0025, 1.0069, 1.0172, 1.0415, 1.1003, 1.2533, 1.7312, & +1.0001, 1.0002, 1.0008, 1.0032, 1.0093, 1.0236, 1.0575, 1.1409, 1.3681, & +1.0000, 1.0001, 1.0002, 1.0008, 1.0039, 1.0123, 1.0325, 1.0803, 1.2012, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0008, 1.0046, 1.0163, 1.0445, 1.1128, & +0.9998, 0.9999, 0.9999, 1.0000, 1.0002, 1.0008, 1.0052, 1.0211, 1.0603, & +0.9994, 0.9994, 0.9994, 0.9995, 0.9997, 1.0001, 1.0010, 1.0057, 1.0265, & +0.9981, 0.9981, 0.9981, 0.9982, 0.9983, 0.9986, 0.9994, 1.0011, 1.0060 / +data ((supersat( 7,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +1.0002, 1.0006, 1.0020, 1.0056, 1.0141, 1.0343, 1.0828, 1.2059, 1.5591, & +1.0001, 1.0002, 1.0006, 1.0025, 1.0074, 1.0191, 1.0469, 1.1145, 1.2914, & +1.0000, 1.0001, 1.0002, 1.0006, 1.0030, 1.0097, 1.0259, 1.0645, 1.1601, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0006, 1.0034, 1.0126, 1.0350, 1.0890, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0002, 1.0006, 1.0036, 1.0160, 1.0468, & +0.9995, 0.9995, 0.9995, 0.9996, 0.9997, 1.0000, 1.0007, 1.0037, 1.0197, & +0.9984, 0.9984, 0.9984, 0.9984, 0.9985, 0.9988, 0.9994, 1.0006, 1.0039 / +data ((supersat( 7,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +1.0001, 1.0005, 1.0017, 1.0047, 1.0120, 1.0292, 1.0705, 1.1741, 1.4582, & +1.0001, 1.0001, 1.0005, 1.0020, 1.0061, 1.0160, 1.0396, 1.0966, 1.2424, & +1.0000, 1.0001, 1.0001, 1.0005, 1.0023, 1.0079, 1.0215, 1.0538, 1.1332, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0005, 1.0026, 1.0100, 1.0286, 1.0733, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0002, 1.0005, 1.0026, 1.0125, 1.0377, & +0.9995, 0.9995, 0.9995, 0.9996, 0.9997, 1.0000, 1.0006, 1.0027, 1.0151, & +0.9985, 0.9985, 0.9985, 0.9985, 0.9986, 0.9988, 0.9993, 1.0004, 1.0028 / +data ((supersat( 7,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +1.0004, 1.0021, 1.0082, 1.0228, 1.0570, 1.1411, 1.3841, 2.6302, 4.8603, & +1.0002, 1.0004, 1.0023, 1.0108, 1.0318, 1.0818, 1.2113, 1.6460, 3.7712, & +0.9999, 1.0001, 1.0006, 1.0024, 1.0139, 1.0435, 1.1172, 1.3257, 2.3098, & +0.9993, 0.9995, 0.9999, 1.0007, 1.0025, 1.0171, 1.0576, 1.1667, 1.5299, & +0.9978, 0.9979, 0.9982, 0.9988, 1.0003, 1.0039, 1.0201, 1.0733, 1.2350, & +0.9952, 0.9953, 0.9954, 0.9958, 0.9968, 0.9991, 1.0051, 1.0223, 1.0889, & +0.9926, 0.9926, 0.9926, 0.9928, 0.9933, 0.9944, 0.9974, 1.0058, 1.0320 / +data ((supersat( 7,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +1.0003, 1.0016, 1.0058, 1.0159, 1.0395, 1.0959, 1.2449, 1.7799, 3.6436, & +1.0001, 1.0003, 1.0017, 1.0076, 1.0221, 1.0563, 1.1402, 1.3799, 2.5009, & +1.0000, 1.0001, 1.0004, 1.0017, 1.0097, 1.0304, 1.0801, 1.2086, 1.6331, & +0.9997, 0.9998, 1.0000, 1.0005, 1.0018, 1.0122, 1.0408, 1.1132, 1.3181, & +0.9989, 0.9990, 0.9992, 0.9996, 1.0004, 1.0025, 1.0145, 1.0529, 1.1578, & +0.9971, 0.9972, 0.9972, 0.9975, 0.9982, 0.9997, 1.0034, 1.0164, 1.0653, & +0.9943, 0.9944, 0.9944, 0.9945, 0.9949, 0.9958, 0.9981, 1.0039, 1.0179 / +data ((supersat( 7,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +1.0003, 1.0012, 1.0042, 1.0115, 1.0285, 1.0688, 1.1701, 1.4730, 2.7032, & +1.0001, 1.0003, 1.0012, 1.0054, 1.0158, 1.0402, 1.0986, 1.2519, 1.7841, & +1.0000, 1.0001, 1.0003, 1.0013, 1.0068, 1.0216, 1.0566, 1.1429, 1.3877, & +0.9999, 1.0000, 1.0001, 1.0004, 1.0013, 1.0084, 1.0290, 1.0793, 1.2099, & +0.9995, 0.9995, 0.9996, 0.9998, 1.0004, 1.0016, 1.0100, 1.0378, 1.1094, & +0.9983, 0.9983, 0.9984, 0.9986, 0.9990, 0.9999, 1.0022, 1.0114, 1.0472, & +0.9960, 0.9960, 0.9960, 0.9961, 0.9964, 0.9970, 0.9986, 1.0025, 1.0124 / +data ((supersat( 7,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +1.0002, 1.0009, 1.0031, 1.0086, 1.0216, 1.0520, 1.1267, 1.3306, 2.0785, & +1.0001, 1.0002, 1.0009, 1.0039, 1.0117, 1.0299, 1.0731, 1.1818, 1.5022, & +1.0000, 1.0001, 1.0002, 1.0009, 1.0048, 1.0158, 1.0416, 1.1038, 1.2671, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0009, 1.0058, 1.0210, 1.0575, 1.1483, & +0.9997, 0.9997, 0.9998, 0.9999, 1.0003, 1.0010, 1.0067, 1.0272, 1.0784, & +0.9989, 0.9989, 0.9990, 0.9991, 0.9994, 1.0000, 1.0014, 1.0074, 1.0338, & +0.9971, 0.9971, 0.9971, 0.9972, 0.9974, 0.9978, 0.9989, 1.0014, 1.0079 / +data ((supersat( 7,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +1.0002, 1.0007, 1.0024, 1.0068, 1.0170, 1.0413, 1.1000, 1.2530, 1.7307, & +1.0001, 1.0002, 1.0007, 1.0030, 1.0090, 1.0233, 1.0571, 1.1404, 1.3672, & +1.0000, 1.0001, 1.0002, 1.0007, 1.0035, 1.0119, 1.0319, 1.0795, 1.2000, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0007, 1.0041, 1.0156, 1.0434, 1.1112, & +0.9998, 0.9998, 0.9998, 1.0000, 1.0002, 1.0007, 1.0045, 1.0199, 1.0583, & +0.9992, 0.9992, 0.9992, 0.9993, 0.9995, 1.0000, 1.0009, 1.0047, 1.0245, & +0.9977, 0.9977, 0.9977, 0.9978, 0.9979, 0.9982, 0.9990, 1.0007, 1.0050 / +data ((supersat( 7,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +1.0001, 1.0005, 1.0019, 1.0055, 1.0140, 1.0341, 1.0826, 1.2057, 1.5587, & +1.0001, 1.0001, 1.0005, 1.0023, 1.0072, 1.0189, 1.0466, 1.1141, 1.2908, & +1.0000, 1.0001, 1.0002, 1.0005, 1.0027, 1.0093, 1.0255, 1.0640, 1.1593, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0005, 1.0030, 1.0120, 1.0342, 1.0879, & +0.9998, 0.9998, 0.9999, 1.0000, 1.0002, 1.0006, 1.0031, 1.0150, 1.0453, & +0.9993, 0.9993, 0.9993, 0.9994, 0.9996, 0.9999, 1.0006, 1.0032, 1.0182, & +0.9980, 0.9980, 0.9980, 0.9981, 0.9982, 0.9984, 0.9990, 1.0004, 1.0035 / +data ((supersat( 7,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +1.0001, 1.0004, 1.0016, 1.0046, 1.0119, 1.0290, 1.0704, 1.1739, 1.4579, & +1.0001, 1.0001, 1.0004, 1.0019, 1.0060, 1.0158, 1.0393, 1.0963, 1.2420, & +1.0000, 1.0001, 1.0001, 1.0004, 1.0021, 1.0076, 1.0211, 1.0533, 1.1325, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0004, 1.0022, 1.0095, 1.0279, 1.0723, & +0.9998, 0.9998, 0.9999, 1.0000, 1.0001, 1.0005, 1.0023, 1.0117, 1.0365, & +0.9994, 0.9994, 0.9994, 0.9995, 0.9996, 0.9999, 1.0005, 1.0023, 1.0139, & +0.9982, 0.9982, 0.9982, 0.9982, 0.9983, 0.9985, 0.9990, 1.0001, 1.0026 / +data ((supersat( 8,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +1.0017, 1.0047, 1.0116, 1.0272, 1.0629, 1.1496, 1.3985, 2.6729, 4.9320, & +1.0005, 1.0020, 1.0064, 1.0168, 1.0399, 1.0937, 1.2304, 1.6847, 3.9100, & +1.0002, 1.0005, 1.0023, 1.0088, 1.0240, 1.0587, 1.1418, 1.3712, 2.4379, & +1.0001, 1.0003, 1.0005, 1.0026, 1.0118, 1.0340, 1.0862, 1.2188, 1.6470, & +0.9999, 1.0000, 1.0002, 1.0007, 1.0027, 1.0152, 1.0470, 1.1258, 1.3479, & +0.9993, 0.9993, 0.9995, 0.9999, 1.0008, 1.0029, 1.0188, 1.0626, 1.1818, & +0.9977, 0.9977, 0.9978, 0.9981, 0.9988, 1.0005, 1.0046, 1.0218, 1.0795 / +data ((supersat( 8,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +1.0012, 1.0033, 1.0081, 1.0187, 1.0430, 1.1006, 1.2519, 1.7930, 3.6841, & +1.0004, 1.0015, 1.0045, 1.0114, 1.0272, 1.0631, 1.1503, 1.3971, 2.5505, & +1.0002, 1.0004, 1.0017, 1.0060, 1.0163, 1.0397, 1.0939, 1.2311, 1.6791, & +1.0001, 1.0002, 1.0004, 1.0018, 1.0080, 1.0232, 1.0580, 1.1415, 1.3712, & +1.0000, 1.0001, 1.0002, 1.0005, 1.0019, 1.0105, 1.0324, 1.0844, 1.2167, & +0.9997, 0.9998, 0.9999, 1.0001, 1.0006, 1.0020, 1.0132, 1.0439, 1.1212, & +0.9989, 0.9989, 0.9990, 0.9992, 0.9996, 1.0005, 1.0029, 1.0157, 1.0568 / +data ((supersat( 8,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +1.0009, 1.0024, 1.0057, 1.0134, 1.0308, 1.0716, 1.1740, 1.4793, 2.7221, & +1.0003, 1.0011, 1.0031, 1.0081, 1.0192, 1.0445, 1.1044, 1.2609, 1.8015, & +1.0001, 1.0003, 1.0012, 1.0042, 1.0114, 1.0277, 1.0651, 1.1556, 1.4098, & +1.0001, 1.0001, 1.0003, 1.0013, 1.0055, 1.0161, 1.0401, 1.0962, 1.2382, & +1.0000, 1.0001, 1.0002, 1.0004, 1.0013, 1.0071, 1.0224, 1.0579, 1.1436, & +0.9999, 0.9999, 1.0000, 1.0002, 1.0005, 1.0014, 1.0089, 1.0304, 1.0826, & +0.9995, 0.9995, 0.9995, 0.9996, 0.9999, 1.0005, 1.0018, 1.0106, 1.0398 / +data ((supersat( 8,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +1.0006, 1.0018, 1.0043, 1.0100, 1.0232, 1.0539, 1.1291, 1.3342, 2.0863, & +1.0003, 1.0008, 1.0023, 1.0059, 1.0141, 1.0329, 1.0769, 1.1872, 1.5112, & +1.0001, 1.0003, 1.0009, 1.0030, 1.0082, 1.0201, 1.0472, 1.1117, 1.2795, & +1.0001, 1.0001, 1.0003, 1.0009, 1.0038, 1.0113, 1.0287, 1.0685, 1.1653, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0009, 1.0047, 1.0156, 1.0408, 1.1001, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0003, 1.0009, 1.0058, 1.0211, 1.0576, & +0.9997, 0.9997, 0.9997, 0.9998, 1.0000, 1.0003, 1.0011, 1.0067, 1.0276 / +data ((supersat( 8,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +1.0005, 1.0014, 1.0034, 1.0079, 1.0183, 1.0426, 1.1017, 1.2553, 1.7345, & +1.0002, 1.0006, 1.0017, 1.0045, 1.0109, 1.0255, 1.0598, 1.1439, 1.3726, & +1.0001, 1.0002, 1.0006, 1.0022, 1.0061, 1.0152, 1.0360, 1.0850, 1.2079, & +1.0001, 1.0001, 1.0002, 1.0007, 1.0027, 1.0083, 1.0213, 1.0512, 1.1225, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0007, 1.0032, 1.0112, 1.0299, 1.0733, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0003, 1.0007, 1.0037, 1.0148, 1.0416, & +0.9998, 0.9998, 0.9998, 0.9999, 1.0000, 1.0002, 1.0008, 1.0040, 1.0192 / +data ((supersat( 8,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +1.0005, 1.0011, 1.0027, 1.0064, 1.0150, 1.0352, 1.0838, 1.2073, 1.5612, & +1.0002, 1.0005, 1.0014, 1.0036, 1.0087, 1.0206, 1.0487, 1.1167, 1.2945, & +1.0001, 1.0002, 1.0005, 1.0017, 1.0047, 1.0120, 1.0287, 1.0680, 1.1648, & +1.0001, 1.0001, 1.0002, 1.0005, 1.0020, 1.0063, 1.0165, 1.0401, 1.0960, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0005, 1.0023, 1.0083, 1.0228, 1.0564, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0002, 1.0005, 1.0024, 1.0108, 1.0312, & +0.9998, 0.9998, 0.9999, 0.9999, 1.0000, 1.0002, 1.0006, 1.0025, 1.0136 / +data ((supersat( 8,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +1.0003, 1.0009, 1.0022, 1.0054, 1.0127, 1.0299, 1.0714, 1.1751, 1.4597, & +1.0002, 1.0004, 1.0011, 1.0029, 1.0072, 1.0173, 1.0410, 1.0983, 1.2448, & +1.0001, 1.0002, 1.0004, 1.0014, 1.0039, 1.0098, 1.0237, 1.0565, 1.1368, & +1.0000, 1.0001, 1.0002, 1.0004, 1.0016, 1.0050, 1.0133, 1.0327, 1.0787, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0004, 1.0017, 1.0064, 1.0181, 1.0453, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0002, 1.0004, 1.0017, 1.0081, 1.0244, & +0.9998, 0.9999, 0.9999, 0.9999, 1.0000, 1.0001, 1.0005, 1.0017, 1.0099 / +data ((supersat( 8,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +1.0012, 1.0039, 1.0108, 1.0261, 1.0614, 1.1475, 1.3951, 2.6630, 4.9154, & +1.0003, 1.0012, 1.0052, 1.0152, 1.0378, 1.0907, 1.2258, 1.6754, 3.8772, & +1.0002, 1.0003, 1.0013, 1.0068, 1.0212, 1.0548, 1.1356, 1.3600, 2.4072, & +1.0000, 1.0002, 1.0004, 1.0013, 1.0086, 1.0291, 1.0785, 1.2053, 1.6174, & +0.9996, 0.9997, 0.9999, 1.0005, 1.0017, 1.0104, 1.0386, 1.1107, 1.3171, & +0.9984, 0.9985, 0.9986, 0.9991, 1.0000, 1.0024, 1.0120, 1.0487, 1.1525, & +0.9961, 0.9961, 0.9962, 0.9965, 0.9971, 0.9987, 1.0028, 1.0132, 1.0583 / +data ((supersat( 8,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +1.0008, 1.0028, 1.0075, 1.0180, 1.0421, 1.0994, 1.2502, 1.7899, 3.6747, & +1.0003, 1.0009, 1.0037, 1.0104, 1.0259, 1.0615, 1.1478, 1.3930, 2.5389, & +1.0001, 1.0003, 1.0010, 1.0047, 1.0145, 1.0373, 1.0904, 1.2256, 1.6681, & +1.0001, 1.0001, 1.0003, 1.0010, 1.0059, 1.0201, 1.0535, 1.1343, 1.3580, & +0.9999, 0.9999, 1.0001, 1.0004, 1.0010, 1.0072, 1.0271, 1.0756, 1.2011, & +0.9993, 0.9993, 0.9994, 0.9997, 1.0002, 1.0016, 1.0083, 1.0349, 1.1044, & +0.9978, 0.9978, 0.9979, 0.9981, 0.9985, 0.9995, 1.0019, 1.0092, 1.0428 / +data ((supersat( 8,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +1.0006, 1.0021, 1.0053, 1.0129, 1.0303, 1.0709, 1.1730, 1.4779, 2.7177, & +1.0002, 1.0007, 1.0026, 1.0074, 1.0184, 1.0434, 1.1030, 1.2588, 1.7975, & +1.0001, 1.0002, 1.0007, 1.0033, 1.0102, 1.0262, 1.0630, 1.1525, 1.4045, & +1.0001, 1.0001, 1.0002, 1.0007, 1.0040, 1.0140, 1.0372, 1.0919, 1.2313, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0008, 1.0047, 1.0188, 1.0524, 1.1347, & +0.9997, 0.9997, 0.9998, 0.9999, 1.0003, 1.0010, 1.0054, 1.0244, 1.0723, & +0.9988, 0.9988, 0.9988, 0.9989, 0.9992, 0.9998, 1.0013, 1.0058, 1.0303 / +data ((supersat( 8,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +1.0005, 1.0015, 1.0040, 1.0097, 1.0228, 1.0534, 1.1285, 1.3334, 2.0845, & +1.0002, 1.0005, 1.0019, 1.0054, 1.0135, 1.0322, 1.0760, 1.1859, 1.5091, & +1.0001, 1.0002, 1.0005, 1.0023, 1.0073, 1.0190, 1.0458, 1.1098, 1.2766, & +1.0001, 1.0001, 1.0002, 1.0005, 1.0027, 1.0098, 1.0267, 1.0657, 1.1612, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0006, 1.0031, 1.0130, 1.0372, 1.0945, & +0.9998, 0.9998, 0.9999, 1.0000, 1.0002, 1.0007, 1.0033, 1.0169, 1.0509, & +0.9992, 0.9993, 0.9993, 0.9994, 0.9995, 0.9999, 1.0008, 1.0034, 1.0209 / +data ((supersat( 8,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +1.0004, 1.0012, 1.0031, 1.0076, 1.0180, 1.0423, 1.1013, 1.2547, 1.7337, & +1.0001, 1.0004, 1.0015, 1.0041, 1.0104, 1.0250, 1.0592, 1.1431, 1.3714, & +1.0001, 1.0001, 1.0004, 1.0017, 1.0054, 1.0143, 1.0350, 1.0837, 1.2061, & +1.0000, 1.0001, 1.0002, 1.0004, 1.0019, 1.0071, 1.0198, 1.0493, 1.1198, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0004, 1.0020, 1.0092, 1.0272, 1.0695, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0002, 1.0005, 1.0020, 1.0117, 1.0368, & +0.9995, 0.9995, 0.9995, 0.9995, 0.9997, 0.9999, 1.0005, 1.0022, 1.0142 / +data ((supersat( 8,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +1.0003, 1.0009, 1.0024, 1.0062, 1.0147, 1.0349, 1.0835, 1.2069, 1.5607, & +1.0001, 1.0003, 1.0011, 1.0032, 1.0083, 1.0202, 1.0482, 1.1161, 1.2937, & +1.0001, 1.0001, 1.0003, 1.0013, 1.0042, 1.0113, 1.0279, 1.0670, 1.1636, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0014, 1.0054, 1.0153, 1.0386, 1.0941, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0003, 1.0014, 1.0068, 1.0207, 1.0536, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0001, 1.0004, 1.0014, 1.0083, 1.0275, & +0.9995, 0.9996, 0.9996, 0.9996, 0.9997, 0.9999, 1.0004, 1.0015, 1.0098 / +data ((supersat( 8,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +1.0003, 1.0008, 1.0021, 1.0052, 1.0125, 1.0297, 1.0711, 1.1749, 1.4593, & +1.0001, 1.0003, 1.0009, 1.0027, 1.0069, 1.0169, 1.0406, 1.0978, 1.2442, & +1.0001, 1.0001, 1.0003, 1.0010, 1.0034, 1.0093, 1.0231, 1.0558, 1.1358, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0011, 1.0042, 1.0123, 1.0316, 1.0772, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0003, 1.0010, 1.0051, 1.0164, 1.0431, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0001, 1.0003, 1.0011, 1.0061, 1.0214, & +0.9996, 0.9996, 0.9996, 0.9996, 0.9997, 0.9999, 1.0003, 1.0011, 1.0069 / +data ((supersat( 8,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +1.0007, 1.0031, 1.0097, 1.0247, 1.0596, 1.1449, 1.3906, 2.6497, 4.8930, & +1.0002, 1.0007, 1.0039, 1.0132, 1.0353, 1.0870, 1.2198, 1.6633, 3.8339, & +1.0001, 1.0003, 1.0007, 1.0046, 1.0180, 1.0499, 1.1278, 1.3457, 2.3670, & +0.9998, 0.9999, 1.0003, 1.0010, 1.0053, 1.0236, 1.0692, 1.1885, 1.5801, & +0.9990, 0.9991, 0.9993, 0.9999, 1.0013, 1.0058, 1.0296, 1.0933, 1.2803, & +0.9971, 0.9971, 0.9973, 0.9977, 0.9987, 1.0011, 1.0075, 1.0351, 1.1213, & +0.9943, 0.9943, 0.9944, 0.9946, 0.9952, 0.9966, 1.0003, 1.0105, 1.0396 / +data ((supersat( 8,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +1.0005, 1.0022, 1.0068, 1.0171, 1.0410, 1.0980, 1.2480, 1.7859, 3.6621, & +1.0002, 1.0005, 1.0027, 1.0092, 1.0243, 1.0593, 1.1447, 1.3876, 2.5235, & +1.0001, 1.0002, 1.0006, 1.0032, 1.0125, 1.0344, 1.0861, 1.2186, 1.6537, & +1.0000, 1.0001, 1.0002, 1.0006, 1.0036, 1.0165, 1.0479, 1.1253, 1.3412, & +0.9996, 0.9996, 0.9998, 1.0001, 1.0009, 1.0039, 1.0211, 1.0653, 1.1821, & +0.9985, 0.9985, 0.9986, 0.9989, 0.9995, 1.0009, 1.0042, 1.0257, 1.0859, & +0.9963, 0.9963, 0.9963, 0.9965, 0.9969, 0.9979, 1.0004, 1.0067, 1.0296 / +data ((supersat( 8,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +1.0004, 1.0016, 1.0048, 1.0123, 1.0295, 1.0700, 1.1718, 1.4759, 2.7119, & +1.0001, 1.0004, 1.0019, 1.0065, 1.0173, 1.0421, 1.1012, 1.2560, 1.7921, & +1.0001, 1.0001, 1.0004, 1.0022, 1.0087, 1.0242, 1.0603, 1.1485, 1.3976, & +1.0000, 1.0001, 1.0002, 1.0005, 1.0024, 1.0115, 1.0337, 1.0866, 1.2224, & +0.9998, 0.9999, 0.9999, 1.0002, 1.0006, 1.0025, 1.0147, 1.0459, 1.1238, & +0.9992, 0.9992, 0.9993, 0.9995, 0.9998, 1.0007, 1.0027, 1.0181, 1.0606, & +0.9977, 0.9977, 0.9977, 0.9978, 0.9981, 0.9988, 1.0003, 1.0041, 1.0210 / +data ((supersat( 8,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +1.0003, 1.0012, 1.0036, 1.0092, 1.0223, 1.0528, 1.1278, 1.3323, 2.0821, & +1.0001, 1.0003, 1.0014, 1.0048, 1.0128, 1.0312, 1.0748, 1.1843, 1.5063, & +1.0001, 1.0001, 1.0003, 1.0016, 1.0062, 1.0176, 1.0441, 1.1073, 1.2728, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0016, 1.0080, 1.0242, 1.0623, 1.1558, & +0.9999, 0.9999, 1.0000, 1.0001, 1.0004, 1.0017, 1.0101, 1.0327, 1.0876, & +0.9995, 0.9995, 0.9996, 0.9997, 0.9999, 1.0005, 1.0018, 1.0123, 1.0430, & +0.9985, 0.9985, 0.9985, 0.9986, 0.9987, 0.9992, 1.0002, 1.0025, 1.0143 / +data ((supersat( 8,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +1.0003, 1.0009, 1.0028, 1.0072, 1.0176, 1.0419, 1.1008, 1.2540, 1.7325, & +1.0001, 1.0003, 1.0011, 1.0036, 1.0098, 1.0243, 1.0583, 1.1420, 1.3697, & +1.0001, 1.0001, 1.0003, 1.0011, 1.0046, 1.0133, 1.0337, 1.0820, 1.2036, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0012, 1.0058, 1.0180, 1.0468, 1.1163, & +0.9999, 1.0000, 1.0000, 1.0001, 1.0003, 1.0012, 1.0070, 1.0240, 1.0647, & +0.9997, 0.9997, 0.9997, 0.9998, 1.0000, 1.0003, 1.0012, 1.0083, 1.0312, & +0.9988, 0.9988, 0.9989, 0.9989, 0.9990, 0.9993, 1.0000, 1.0016, 1.0093 / +data ((supersat( 8,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +1.0002, 1.0008, 1.0022, 1.0059, 1.0144, 1.0346, 1.0831, 1.2064, 1.5599, & +1.0001, 1.0002, 1.0008, 1.0029, 1.0079, 1.0197, 1.0475, 1.1153, 1.2926, & +1.0000, 1.0001, 1.0002, 1.0009, 1.0035, 1.0105, 1.0269, 1.0658, 1.1619, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0009, 1.0043, 1.0139, 1.0368, 1.0916, & +0.9999, 1.0000, 1.0000, 1.0001, 1.0002, 1.0009, 1.0050, 1.0182, 1.0501, & +0.9997, 0.9997, 0.9998, 0.9998, 1.0000, 1.0002, 1.0009, 1.0056, 1.0233, & +0.9990, 0.9990, 0.9990, 0.9991, 0.9992, 0.9994, 0.9999, 1.0011, 1.0060 / +data ((supersat( 8,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +1.0002, 1.0006, 1.0019, 1.0050, 1.0122, 1.0294, 1.0708, 1.1745, 1.4588, & +1.0001, 1.0002, 1.0007, 1.0023, 1.0065, 1.0165, 1.0401, 1.0972, 1.2433, & +1.0000, 1.0001, 1.0002, 1.0007, 1.0028, 1.0085, 1.0223, 1.0548, 1.1345, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0007, 1.0033, 1.0111, 1.0301, 1.0752, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0002, 1.0007, 1.0037, 1.0143, 1.0403, & +0.9997, 0.9997, 0.9998, 0.9998, 0.9999, 1.0002, 1.0007, 1.0039, 1.0180, & +0.9991, 0.9991, 0.9991, 0.9991, 0.9992, 0.9994, 0.9999, 1.0008, 1.0041 / +data ((supersat( 8,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +1.0004, 1.0022, 1.0083, 1.0230, 1.0572, 1.1414, 1.3847, 2.6321, 4.8631, & +1.0002, 1.0004, 1.0024, 1.0110, 1.0321, 1.0823, 1.2121, 1.6476, 3.7770, & +1.0000, 1.0002, 1.0006, 1.0025, 1.0142, 1.0440, 1.1181, 1.3276, 2.3151, & +0.9994, 0.9995, 0.9999, 1.0007, 1.0027, 1.0177, 1.0586, 1.1685, 1.5343, & +0.9979, 0.9980, 0.9983, 0.9989, 1.0004, 1.0040, 1.0208, 1.0749, 1.2388, & +0.9954, 0.9954, 0.9956, 0.9960, 0.9969, 0.9993, 1.0053, 1.0232, 1.0914, & +0.9927, 0.9927, 0.9928, 0.9929, 0.9934, 0.9946, 0.9976, 1.0061, 1.0328 / +data ((supersat( 8,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +1.0003, 1.0016, 1.0059, 1.0160, 1.0397, 1.0961, 1.2452, 1.7805, 3.6454, & +1.0001, 1.0003, 1.0018, 1.0077, 1.0223, 1.0566, 1.1406, 1.3806, 2.5030, & +1.0000, 1.0002, 1.0004, 1.0018, 1.0100, 1.0308, 1.0807, 1.2095, 1.6350, & +0.9998, 0.9999, 1.0001, 1.0005, 1.0019, 1.0125, 1.0415, 1.1143, 1.3202, & +0.9990, 0.9991, 0.9992, 0.9996, 1.0005, 1.0025, 1.0150, 1.0539, 1.1599, & +0.9972, 0.9973, 0.9974, 0.9976, 0.9983, 0.9998, 1.0035, 1.0171, 1.0669, & +0.9945, 0.9945, 0.9946, 0.9947, 0.9951, 0.9960, 0.9983, 1.0042, 1.0187 / +data ((supersat( 8,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +1.0003, 1.0012, 1.0042, 1.0116, 1.0286, 1.0689, 1.1703, 1.4733, 2.7040, & +1.0001, 1.0003, 1.0013, 1.0055, 1.0160, 1.0404, 1.0988, 1.2523, 1.7849, & +1.0000, 1.0001, 1.0003, 1.0013, 1.0070, 1.0219, 1.0570, 1.1434, 1.3886, & +0.9999, 1.0000, 1.0001, 1.0004, 1.0013, 1.0087, 1.0295, 1.0799, 1.2111, & +0.9995, 0.9995, 0.9996, 0.9999, 1.0004, 1.0016, 1.0104, 1.0385, 1.1107, & +0.9984, 0.9984, 0.9985, 0.9986, 0.9991, 1.0000, 1.0022, 1.0119, 1.0483, & +0.9961, 0.9961, 0.9962, 0.9963, 0.9965, 0.9972, 0.9988, 1.0026, 1.0130 / +data ((supersat( 8,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +1.0002, 1.0009, 1.0031, 1.0087, 1.0216, 1.0521, 1.1268, 1.3308, 2.0788, & +1.0001, 1.0002, 1.0009, 1.0040, 1.0118, 1.0301, 1.0733, 1.1821, 1.5026, & +1.0000, 1.0001, 1.0002, 1.0010, 1.0050, 1.0159, 1.0418, 1.1041, 1.2676, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0010, 1.0060, 1.0213, 1.0579, 1.1490, & +0.9997, 0.9997, 0.9998, 1.0000, 1.0003, 1.0011, 1.0070, 1.0276, 1.0792, & +0.9990, 0.9990, 0.9990, 0.9991, 0.9994, 1.0000, 1.0014, 1.0078, 1.0346, & +0.9972, 0.9972, 0.9973, 0.9973, 0.9975, 0.9980, 0.9990, 1.0015, 1.0084 / +data ((supersat( 8,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +1.0002, 1.0007, 1.0024, 1.0068, 1.0171, 1.0413, 1.1001, 1.2531, 1.7308, & +1.0001, 1.0002, 1.0007, 1.0030, 1.0091, 1.0234, 1.0572, 1.1405, 1.3675, & +1.0000, 1.0001, 1.0002, 1.0007, 1.0036, 1.0120, 1.0320, 1.0798, 1.2004, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0007, 1.0042, 1.0158, 1.0437, 1.1117, & +0.9998, 0.9998, 0.9999, 1.0000, 1.0002, 1.0008, 1.0047, 1.0202, 1.0589, & +0.9992, 0.9992, 0.9993, 0.9994, 0.9996, 1.0000, 1.0009, 1.0050, 1.0251, & +0.9978, 0.9978, 0.9978, 0.9979, 0.9980, 0.9983, 0.9991, 1.0008, 1.0052 / +data ((supersat( 8,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +1.0002, 1.0005, 1.0020, 1.0055, 1.0140, 1.0341, 1.0826, 1.2058, 1.5588, & +1.0001, 1.0002, 1.0006, 1.0024, 1.0073, 1.0190, 1.0467, 1.1143, 1.2910, & +1.0000, 1.0001, 1.0002, 1.0006, 1.0028, 1.0095, 1.0256, 1.0641, 1.1596, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0006, 1.0031, 1.0121, 1.0344, 1.0882, & +0.9998, 0.9998, 0.9999, 1.0000, 1.0002, 1.0006, 1.0032, 1.0153, 1.0457, & +0.9994, 0.9994, 0.9994, 0.9995, 0.9996, 1.0000, 1.0007, 1.0033, 1.0186, & +0.9981, 0.9981, 0.9981, 0.9982, 0.9983, 0.9985, 0.9991, 1.0004, 1.0036 / +data ((supersat( 8,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +1.0001, 1.0004, 1.0016, 1.0046, 1.0119, 1.0291, 1.0704, 1.1739, 1.4580, & +1.0001, 1.0001, 1.0004, 1.0019, 1.0060, 1.0159, 1.0394, 1.0964, 1.2422, & +1.0000, 1.0001, 1.0001, 1.0004, 1.0022, 1.0077, 1.0212, 1.0535, 1.1327, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0005, 1.0023, 1.0097, 1.0281, 1.0726, & +0.9998, 0.9999, 0.9999, 1.0000, 1.0001, 1.0005, 1.0024, 1.0119, 1.0369, & +0.9994, 0.9994, 0.9994, 0.9995, 0.9996, 0.9999, 1.0005, 1.0024, 1.0143, & +0.9982, 0.9983, 0.9983, 0.9983, 0.9984, 0.9986, 0.9991, 1.0002, 1.0026 / +data ((supersat( 8,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +1.0003, 1.0017, 1.0074, 1.0218, 1.0556, 1.1390, 1.3805, 2.6191, 4.8415, & +1.0001, 1.0004, 1.0017, 1.0096, 1.0300, 1.0790, 1.2066, 1.6363, 3.7360, & +0.9998, 1.0000, 1.0005, 1.0018, 1.0119, 1.0402, 1.1116, 1.3150, 2.2781, & +0.9990, 0.9992, 0.9995, 1.0004, 1.0025, 1.0142, 1.0520, 1.1555, 1.5034, & +0.9971, 0.9972, 0.9975, 0.9981, 0.9996, 1.0033, 1.0161, 1.0642, 1.2132, & +0.9943, 0.9944, 0.9945, 0.9949, 0.9958, 0.9980, 1.0037, 1.0175, 1.0756, & +0.9919, 0.9920, 0.9920, 0.9922, 0.9926, 0.9936, 0.9962, 1.0036, 1.0268 / +data ((supersat( 8,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +1.0003, 1.0013, 1.0052, 1.0152, 1.0387, 1.0948, 1.2431, 1.7765, 3.6330, & +1.0001, 1.0003, 1.0013, 1.0067, 1.0210, 1.0547, 1.1378, 1.3756, 2.4882, & +1.0000, 1.0001, 1.0004, 1.0013, 1.0084, 1.0284, 1.0769, 1.2032, 1.6217, & +0.9996, 0.9997, 0.9999, 1.0004, 1.0016, 1.0101, 1.0373, 1.1069, 1.3057, & +0.9985, 0.9986, 0.9987, 0.9991, 1.0001, 1.0022, 1.0116, 1.0470, 1.1457, & +0.9963, 0.9963, 0.9964, 0.9967, 0.9973, 0.9989, 1.0026, 1.0128, 1.0564, & +0.9935, 0.9935, 0.9936, 0.9937, 0.9940, 0.9948, 0.9969, 1.0024, 1.0185 / +data ((supersat( 8,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +1.0002, 1.0009, 1.0038, 1.0110, 1.0280, 1.0681, 1.1691, 1.4714, 2.6982, & +1.0001, 1.0002, 1.0009, 1.0048, 1.0150, 1.0392, 1.0971, 1.2496, 1.7796, & +1.0000, 1.0001, 1.0003, 1.0010, 1.0059, 1.0203, 1.0546, 1.1398, 1.3821, & +0.9998, 0.9999, 1.0000, 1.0003, 1.0010, 1.0070, 1.0267, 1.0755, 1.2032, & +0.9992, 0.9992, 0.9993, 0.9996, 1.0002, 1.0014, 1.0079, 1.0339, 1.1021, & +0.9977, 0.9977, 0.9978, 0.9980, 0.9984, 0.9994, 1.0017, 1.0087, 1.0411, & +0.9951, 0.9951, 0.9952, 0.9952, 0.9955, 0.9961, 0.9977, 1.0014, 1.0118 / +data ((supersat( 8,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +1.0002, 1.0007, 1.0029, 1.0083, 1.0212, 1.0515, 1.1261, 1.3297, 2.0764, & +1.0001, 1.0002, 1.0007, 1.0035, 1.0111, 1.0292, 1.0722, 1.1805, 1.4998, & +1.0000, 1.0001, 1.0002, 1.0007, 1.0042, 1.0148, 1.0403, 1.1018, 1.2639, & +0.9999, 0.9999, 1.0000, 1.0002, 1.0008, 1.0048, 1.0193, 1.0550, 1.1442, & +0.9995, 0.9995, 0.9996, 0.9998, 1.0001, 1.0009, 1.0052, 1.0244, 1.0736, & +0.9985, 0.9985, 0.9985, 0.9987, 0.9989, 0.9996, 1.0011, 1.0055, 1.0296, & +0.9963, 0.9963, 0.9963, 0.9964, 0.9966, 0.9970, 0.9981, 1.0006, 1.0072 / +data ((supersat( 8,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +1.0001, 1.0005, 1.0022, 1.0065, 1.0167, 1.0409, 1.0996, 1.2524, 1.7296, & +1.0001, 1.0001, 1.0005, 1.0026, 1.0086, 1.0228, 1.0565, 1.1395, 1.3658, & +1.0000, 1.0001, 1.0002, 1.0005, 1.0030, 1.0112, 1.0309, 1.0782, 1.1980, & +0.9999, 1.0000, 1.0000, 1.0002, 1.0006, 1.0033, 1.0143, 1.0416, 1.1085, & +0.9996, 0.9997, 0.9997, 0.9998, 1.0001, 1.0007, 1.0034, 1.0179, 1.0550, & +0.9988, 0.9989, 0.9989, 0.9990, 0.9992, 0.9997, 1.0007, 1.0036, 1.0214, & +0.9970, 0.9970, 0.9970, 0.9971, 0.9972, 0.9975, 0.9983, 1.0001, 1.0045 / +data ((supersat( 8,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +1.0001, 1.0004, 1.0018, 1.0053, 1.0138, 1.0338, 1.0822, 1.2053, 1.5580, & +1.0001, 1.0001, 1.0004, 1.0021, 1.0068, 1.0185, 1.0461, 1.1135, 1.2898, & +1.0000, 1.0001, 1.0001, 1.0004, 1.0023, 1.0087, 1.0247, 1.0629, 1.1579, & +0.9999, 1.0000, 1.0000, 1.0001, 1.0004, 1.0024, 1.0110, 1.0328, 1.0859, & +0.9997, 0.9997, 0.9998, 0.9999, 1.0001, 1.0005, 1.0024, 1.0134, 1.0428, & +0.9990, 0.9990, 0.9991, 0.9991, 0.9993, 0.9997, 1.0005, 1.0025, 1.0158, & +0.9974, 0.9974, 0.9974, 0.9974, 0.9975, 0.9978, 0.9984, 0.9998, 1.0030 / +data ((supersat( 8,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +1.0001, 1.0004, 1.0014, 1.0044, 1.0116, 1.0288, 1.0701, 1.1736, 1.4574, & +1.0000, 1.0001, 1.0004, 1.0016, 1.0056, 1.0155, 1.0389, 1.0957, 1.2413, & +1.0000, 1.0000, 1.0001, 1.0004, 1.0018, 1.0071, 1.0205, 1.0525, 1.1314, & +0.9999, 1.0000, 1.0000, 1.0001, 1.0004, 1.0018, 1.0087, 1.0268, 1.0708, & +0.9997, 0.9997, 0.9998, 0.9999, 1.0000, 1.0004, 1.0018, 1.0104, 1.0345, & +0.9991, 0.9991, 0.9991, 0.9992, 0.9993, 0.9996, 1.0003, 1.0020, 1.0120, & +0.9976, 0.9976, 0.9976, 0.9976, 0.9977, 0.9979, 0.9984, 0.9996, 1.0021 / +data ((supersat( 8,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +1.0003, 1.0013, 1.0068, 1.0209, 1.0543, 1.1370, 1.3771, 2.6086, 4.8234, & +1.0001, 1.0004, 1.0013, 1.0085, 1.0283, 1.0765, 1.2023, 1.6272, 3.7027, & +0.9997, 0.9999, 1.0004, 1.0014, 1.0103, 1.0373, 1.1065, 1.3051, 2.2485, & +0.9986, 0.9988, 0.9992, 1.0001, 1.0022, 1.0118, 1.0472, 1.1457, 1.4798, & +0.9965, 0.9966, 0.9968, 0.9974, 0.9990, 1.0027, 1.0131, 1.0569, 1.1950, & +0.9936, 0.9937, 0.9938, 0.9941, 0.9950, 0.9971, 1.0025, 1.0185, 1.0654, & +0.9915, 0.9915, 0.9916, 0.9917, 0.9921, 0.9930, 0.9953, 1.0019, 1.0227 / +data ((supersat( 8,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +1.0002, 1.0010, 1.0048, 1.0147, 1.0379, 1.0937, 1.2414, 1.7733, 3.6230, & +1.0001, 1.0002, 1.0010, 1.0060, 1.0199, 1.0532, 1.1354, 1.3715, 2.4760, & +0.9999, 1.0000, 1.0003, 1.0011, 1.0072, 1.0266, 1.0740, 1.1981, 1.6110, & +0.9994, 0.9995, 0.9997, 1.0002, 1.0015, 1.0084, 1.0342, 1.1013, 1.2945, & +0.9981, 0.9981, 0.9983, 0.9987, 0.9997, 1.0019, 1.0093, 1.0421, 1.1353, & +0.9956, 0.9956, 0.9957, 0.9960, 0.9966, 0.9981, 1.0018, 1.0120, 1.0493, & +0.9929, 0.9929, 0.9929, 0.9930, 0.9933, 0.9941, 0.9960, 1.0011, 1.0160 / +data ((supersat( 8,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +1.0002, 1.0008, 1.0035, 1.0106, 1.0275, 1.0674, 1.1682, 1.4698, 2.6933, & +1.0001, 1.0002, 1.0008, 1.0043, 1.0143, 1.0382, 1.0957, 1.2475, 1.7753, & +1.0000, 1.0001, 1.0002, 1.0008, 1.0051, 1.0190, 1.0528, 1.1369, 1.3769, & +0.9997, 0.9998, 0.9999, 1.0002, 1.0010, 1.0058, 1.0246, 1.0720, 1.1970, & +0.9989, 0.9990, 0.9991, 0.9993, 0.9999, 1.0013, 1.0063, 1.0306, 1.0957, & +0.9971, 0.9972, 0.9972, 0.9974, 0.9978, 0.9988, 1.0012, 1.0075, 1.0362, & +0.9944, 0.9944, 0.9944, 0.9945, 0.9947, 0.9953, 0.9968, 1.0004, 1.0104 / +data ((supersat( 8,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +1.0001, 1.0006, 1.0026, 1.0080, 1.0208, 1.0511, 1.1255, 1.3288, 2.0744, & +1.0001, 1.0002, 1.0006, 1.0031, 1.0106, 1.0286, 1.0713, 1.1792, 1.4975, & +1.0000, 1.0001, 1.0002, 1.0006, 1.0036, 1.0139, 1.0390, 1.1000, 1.2609, & +0.9998, 0.9999, 1.0000, 1.0002, 1.0006, 1.0039, 1.0178, 1.0527, 1.1404, & +0.9993, 0.9994, 0.9994, 0.9996, 1.0000, 1.0008, 1.0041, 1.0221, 1.0694, & +0.9980, 0.9980, 0.9981, 0.9982, 0.9985, 0.9992, 1.0008, 1.0046, 1.0261, & +0.9956, 0.9956, 0.9956, 0.9957, 0.9959, 0.9963, 0.9974, 0.9999, 1.0063 / +data ((supersat( 8,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +1.0001, 1.0005, 1.0020, 1.0062, 1.0165, 1.0406, 1.0992, 1.2518, 1.7286, & +1.0001, 1.0001, 1.0005, 1.0023, 1.0082, 1.0223, 1.0558, 1.1386, 1.3644, & +1.0000, 1.0001, 1.0001, 1.0005, 1.0026, 1.0105, 1.0300, 1.0769, 1.1960, & +0.9999, 0.9999, 1.0000, 1.0001, 1.0005, 1.0027, 1.0132, 1.0400, 1.1059, & +0.9995, 0.9995, 0.9996, 0.9997, 1.0000, 1.0006, 1.0027, 1.0161, 1.0521, & +0.9985, 0.9985, 0.9985, 0.9986, 0.9988, 0.9993, 1.0004, 1.0030, 1.0188, & +0.9963, 0.9963, 0.9964, 0.9964, 0.9965, 0.9969, 0.9977, 0.9995, 1.0039 / +data ((supersat( 8,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +1.0001, 1.0004, 1.0016, 1.0051, 1.0135, 1.0336, 1.0819, 1.2048, 1.5573, & +1.0000, 1.0001, 1.0004, 1.0018, 1.0065, 1.0181, 1.0456, 1.1128, 1.2889, & +1.0000, 1.0000, 1.0001, 1.0004, 1.0019, 1.0082, 1.0240, 1.0620, 1.1565, & +0.9999, 0.9999, 1.0000, 1.0001, 1.0004, 1.0019, 1.0101, 1.0315, 1.0840, & +0.9996, 0.9996, 0.9997, 0.9998, 1.0000, 1.0004, 1.0020, 1.0120, 1.0406, & +0.9987, 0.9987, 0.9987, 0.9988, 0.9990, 0.9994, 1.0002, 1.0022, 1.0138, & +0.9967, 0.9967, 0.9968, 0.9968, 0.9969, 0.9972, 0.9978, 0.9992, 1.0025 / +data ((supersat( 8,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +1.0001, 1.0003, 1.0013, 1.0043, 1.0114, 1.0286, 1.0698, 1.1732, 1.4569, & +1.0000, 1.0001, 1.0003, 1.0015, 1.0054, 1.0151, 1.0385, 1.0952, 1.2406, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0015, 1.0066, 1.0198, 1.0517, 1.1303, & +0.9999, 0.9999, 1.0000, 1.0001, 1.0003, 1.0015, 1.0079, 1.0258, 1.0693, & +0.9996, 0.9996, 0.9997, 0.9998, 1.0000, 1.0003, 1.0015, 1.0092, 1.0327, & +0.9988, 0.9988, 0.9988, 0.9989, 0.9990, 0.9994, 1.0001, 1.0017, 1.0103, & +0.9969, 0.9970, 0.9970, 0.9970, 0.9971, 0.9973, 0.9979, 0.9991, 1.0017 / +data ((supersat( 8,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +1.0002, 1.0011, 1.0062, 1.0201, 1.0532, 1.1354, 1.3741, 2.5994, 4.8081, & +1.0001, 1.0003, 1.0011, 1.0076, 1.0270, 1.0743, 1.1986, 1.6194, 3.6744, & +0.9996, 0.9998, 1.0003, 1.0015, 1.0090, 1.0350, 1.1024, 1.2968, 2.2234, & +0.9983, 0.9985, 0.9989, 0.9998, 1.0020, 1.0101, 1.0435, 1.1379, 1.4604, & +0.9959, 0.9960, 0.9963, 0.9969, 0.9984, 1.0021, 1.0109, 1.0514, 1.1809, & +0.9931, 0.9932, 0.9933, 0.9936, 0.9944, 0.9963, 1.0015, 1.0166, 1.0582, & +0.9912, 0.9913, 0.9913, 0.9914, 0.9917, 0.9925, 0.9947, 1.0007, 1.0196 / +data ((supersat( 8,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +1.0002, 1.0009, 1.0045, 1.0142, 1.0373, 1.0927, 1.2400, 1.7704, 3.6143, & +1.0001, 1.0002, 1.0009, 1.0054, 1.0191, 1.0519, 1.1335, 1.3680, 2.4655, & +0.9999, 1.0000, 1.0003, 1.0009, 1.0063, 1.0251, 1.0716, 1.1939, 1.6019, & +0.9992, 0.9993, 0.9996, 1.0001, 1.0014, 1.0071, 1.0318, 1.0967, 1.2852, & +0.9977, 0.9977, 0.9979, 0.9983, 0.9993, 1.0015, 1.0077, 1.0384, 1.1270, & +0.9950, 0.9951, 0.9951, 0.9954, 0.9960, 0.9975, 1.0011, 1.0110, 1.0441, & +0.9924, 0.9924, 0.9925, 0.9926, 0.9928, 0.9936, 0.9953, 1.0001, 1.0140 / +data ((supersat( 8,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +1.0002, 1.0007, 1.0032, 1.0103, 1.0271, 1.0669, 1.1673, 1.4684, 2.6892, & +1.0001, 1.0002, 1.0007, 1.0039, 1.0137, 1.0374, 1.0946, 1.2456, 1.7716, & +1.0000, 1.0000, 1.0002, 1.0007, 1.0044, 1.0180, 1.0513, 1.1345, 1.3724, & +0.9996, 0.9997, 0.9998, 1.0002, 1.0009, 1.0048, 1.0230, 1.0692, 1.1919, & +0.9987, 0.9987, 0.9988, 0.9991, 0.9997, 1.0011, 1.0051, 1.0280, 1.0906, & +0.9966, 0.9967, 0.9967, 0.9969, 0.9973, 0.9983, 1.0007, 1.0070, 1.0325, & +0.9938, 0.9938, 0.9939, 0.9939, 0.9942, 0.9947, 0.9961, 0.9996, 1.0092 / +data ((supersat( 8,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +1.0001, 1.0005, 1.0024, 1.0078, 1.0205, 1.0507, 1.1249, 1.3280, 2.0726, & +1.0001, 1.0001, 1.0005, 1.0028, 1.0102, 1.0280, 1.0705, 1.1780, 1.4956, & +1.0000, 1.0000, 1.0002, 1.0005, 1.0031, 1.0132, 1.0380, 1.0984, 1.2584, & +0.9998, 0.9998, 0.9999, 1.0001, 1.0006, 1.0032, 1.0166, 1.0508, 1.1372, & +0.9992, 0.9992, 0.9993, 0.9994, 0.9998, 1.0007, 1.0034, 1.0202, 1.0661, & +0.9976, 0.9977, 0.9977, 0.9978, 0.9981, 0.9988, 1.0004, 1.0043, 1.0235, & +0.9950, 0.9950, 0.9951, 0.9951, 0.9953, 0.9957, 0.9968, 0.9993, 1.0056 / +data ((supersat( 8,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +1.0001, 1.0004, 1.0019, 1.0061, 1.0162, 1.0403, 1.0988, 1.2513, 1.7277, & +1.0000, 1.0001, 1.0004, 1.0021, 1.0078, 1.0218, 1.0553, 1.1378, 1.3632, & +1.0000, 1.0000, 1.0001, 1.0004, 1.0022, 1.0099, 1.0292, 1.0759, 1.1944, & +0.9998, 0.9999, 0.9999, 1.0001, 1.0004, 1.0023, 1.0123, 1.0386, 1.1037, & +0.9994, 0.9994, 0.9995, 0.9996, 0.9999, 1.0005, 1.0023, 1.0147, 1.0497, & +0.9982, 0.9982, 0.9982, 0.9983, 0.9985, 0.9990, 1.0002, 1.0028, 1.0169, & +0.9958, 0.9958, 0.9958, 0.9959, 0.9960, 0.9963, 0.9971, 0.9990, 1.0033 / +data ((supersat( 8,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +1.0001, 1.0003, 1.0015, 1.0049, 1.0133, 1.0333, 1.0817, 1.2045, 1.5567, & +1.0000, 1.0001, 1.0003, 1.0016, 1.0062, 1.0177, 1.0452, 1.1123, 1.2880, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0017, 1.0077, 1.0234, 1.0612, 1.1553, & +0.9999, 0.9999, 1.0000, 1.0001, 1.0004, 1.0017, 1.0093, 1.0305, 1.0824, & +0.9995, 0.9995, 0.9995, 0.9996, 0.9999, 1.0004, 1.0017, 1.0109, 1.0387, & +0.9984, 0.9984, 0.9984, 0.9985, 0.9987, 0.9991, 1.0000, 1.0020, 1.0123, & +0.9962, 0.9962, 0.9962, 0.9963, 0.9964, 0.9966, 0.9973, 0.9987, 1.0020 / +data ((supersat( 8,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +1.0001, 1.0003, 1.0012, 1.0041, 1.0113, 1.0284, 1.0696, 1.1729, 1.4565, & +1.0000, 1.0001, 1.0003, 1.0013, 1.0051, 1.0148, 1.0381, 1.0947, 1.2399, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0013, 1.0062, 1.0193, 1.0511, 1.1294, & +0.9999, 0.9999, 1.0000, 1.0001, 1.0003, 1.0013, 1.0073, 1.0249, 1.0680, & +0.9995, 0.9995, 0.9996, 0.9997, 0.9999, 1.0003, 1.0013, 1.0083, 1.0312, & +0.9985, 0.9985, 0.9986, 0.9986, 0.9988, 0.9991, 0.9999, 1.0015, 1.0091, & +0.9964, 0.9965, 0.9965, 0.9965, 0.9966, 0.9968, 0.9973, 0.9986, 1.0013 / +data ((supersat( 9,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +1.0008, 1.0034, 1.0100, 1.0251, 1.0602, 1.1458, 1.3922, 2.6544, 4.9005, & +1.0002, 1.0008, 1.0043, 1.0138, 1.0361, 1.0882, 1.2218, 1.6675, 3.8483, & +1.0001, 1.0003, 1.0008, 1.0052, 1.0189, 1.0513, 1.1302, 1.3503, 2.3806, & +0.9999, 1.0000, 1.0003, 1.0010, 1.0062, 1.0251, 1.0718, 1.1934, 1.5916, & +0.9991, 0.9992, 0.9995, 1.0001, 1.0014, 1.0070, 1.0318, 1.0978, 1.2904, & +0.9975, 0.9975, 0.9977, 0.9981, 0.9991, 1.0015, 1.0075, 1.0382, 1.1286, & +0.9948, 0.9948, 0.9949, 0.9951, 0.9957, 0.9972, 1.0010, 1.0116, 1.0434 / +data ((supersat( 9,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +1.0006, 1.0024, 1.0070, 1.0174, 1.0414, 1.0985, 1.2488, 1.7874, 3.6665, & +1.0002, 1.0006, 1.0030, 1.0096, 1.0248, 1.0600, 1.1457, 1.3895, 2.5289, & +1.0001, 1.0002, 1.0006, 1.0036, 1.0131, 1.0353, 1.0875, 1.2209, 1.6586, & +1.0000, 1.0001, 1.0003, 1.0007, 1.0043, 1.0176, 1.0496, 1.1280, 1.3465, & +0.9997, 0.9997, 0.9999, 1.0002, 1.0009, 1.0047, 1.0227, 1.0682, 1.1876, & +0.9987, 0.9988, 0.9989, 0.9991, 0.9997, 1.0011, 1.0051, 1.0280, 1.0906, & +0.9967, 0.9967, 0.9968, 0.9969, 0.9974, 0.9984, 1.0009, 1.0073, 1.0325 / +data ((supersat( 9,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +1.0005, 1.0018, 1.0049, 1.0125, 1.0298, 1.0704, 1.1723, 1.4766, 2.7141, & +1.0002, 1.0005, 1.0021, 1.0068, 1.0176, 1.0426, 1.1018, 1.2570, 1.7941, & +1.0001, 1.0002, 1.0005, 1.0025, 1.0092, 1.0248, 1.0612, 1.1499, 1.4001, & +1.0000, 1.0001, 1.0002, 1.0005, 1.0029, 1.0122, 1.0348, 1.0883, 1.2253, & +0.9999, 0.9999, 1.0000, 1.0002, 1.0006, 1.0031, 1.0159, 1.0478, 1.1271, & +0.9993, 0.9994, 0.9994, 0.9996, 1.0000, 1.0008, 1.0032, 1.0198, 1.0638, & +0.9980, 0.9980, 0.9980, 0.9982, 0.9984, 0.9991, 1.0006, 1.0044, 1.0233 / +data ((supersat( 9,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +1.0004, 1.0013, 1.0037, 1.0094, 1.0224, 1.0530, 1.1280, 1.3327, 2.0831, & +1.0001, 1.0004, 1.0016, 1.0049, 1.0130, 1.0316, 1.0753, 1.1849, 1.5074, & +1.0001, 1.0001, 1.0004, 1.0018, 1.0065, 1.0181, 1.0447, 1.1082, 1.2742, & +1.0000, 1.0001, 1.0001, 1.0004, 1.0019, 1.0086, 1.0250, 1.0634, 1.1577, & +0.9999, 1.0000, 1.0000, 1.0002, 1.0004, 1.0020, 1.0110, 1.0341, 1.0898, & +0.9996, 0.9996, 0.9997, 0.9998, 1.0000, 1.0005, 1.0021, 1.0136, 1.0453, & +0.9987, 0.9987, 0.9987, 0.9988, 0.9990, 0.9994, 1.0004, 1.0027, 1.0160 / +data ((supersat( 9,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +1.0003, 1.0010, 1.0029, 1.0074, 1.0177, 1.0420, 1.1010, 1.2544, 1.7330, & +1.0001, 1.0003, 1.0012, 1.0037, 1.0100, 1.0245, 1.0586, 1.1424, 1.3704, & +1.0001, 1.0001, 1.0003, 1.0013, 1.0049, 1.0137, 1.0342, 1.0826, 1.2046, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0013, 1.0062, 1.0186, 1.0477, 1.1176, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0003, 1.0013, 1.0077, 1.0251, 1.0664, & +0.9997, 0.9997, 0.9998, 0.9998, 1.0000, 1.0004, 1.0014, 1.0093, 1.0329, & +0.9990, 0.9990, 0.9990, 0.9991, 0.9992, 0.9995, 1.0002, 1.0017, 1.0107 / +data ((supersat( 9,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +1.0002, 1.0008, 1.0023, 1.0060, 1.0145, 1.0347, 1.0833, 1.2067, 1.5602, & +1.0001, 1.0002, 1.0009, 1.0030, 1.0080, 1.0199, 1.0478, 1.1157, 1.2931, & +1.0001, 1.0001, 1.0002, 1.0010, 1.0038, 1.0107, 1.0273, 1.0663, 1.1626, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0010, 1.0046, 1.0144, 1.0375, 1.0926, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0003, 1.0010, 1.0056, 1.0191, 1.0514, & +0.9998, 0.9998, 0.9998, 0.9999, 1.0000, 1.0003, 1.0010, 1.0064, 1.0247, & +0.9992, 0.9992, 0.9992, 0.9992, 0.9993, 0.9996, 1.0001, 1.0012, 1.0072 / +data ((supersat( 9,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +1.0002, 1.0007, 1.0019, 1.0050, 1.0123, 1.0295, 1.0710, 1.1747, 1.4590, & +1.0001, 1.0002, 1.0007, 1.0024, 1.0067, 1.0166, 1.0403, 1.0975, 1.2437, & +1.0000, 1.0001, 1.0002, 1.0008, 1.0030, 1.0088, 1.0226, 1.0552, 1.1351, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0008, 1.0036, 1.0116, 1.0306, 1.0761, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0002, 1.0008, 1.0041, 1.0151, 1.0414, & +0.9998, 0.9998, 0.9998, 0.9999, 1.0000, 1.0002, 1.0008, 1.0046, 1.0192, & +0.9992, 0.9992, 0.9993, 0.9993, 0.9994, 0.9996, 1.0000, 1.0009, 1.0049 / +data ((supersat( 9,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +1.0005, 1.0025, 1.0087, 1.0235, 1.0580, 1.1425, 1.3867, 2.6380, 4.8731, & +1.0002, 1.0005, 1.0028, 1.0117, 1.0331, 1.0838, 1.2145, 1.6527, 3.7952, & +1.0000, 1.0002, 1.0006, 1.0030, 1.0153, 1.0457, 1.1211, 1.3332, 2.3318, & +0.9995, 0.9997, 1.0000, 1.0008, 1.0032, 1.0193, 1.0616, 1.1744, 1.5482, & +0.9982, 0.9983, 0.9986, 0.9992, 1.0007, 1.0043, 1.0231, 1.0798, 1.2504, & +0.9958, 0.9959, 0.9960, 0.9964, 0.9974, 0.9998, 1.0060, 1.0262, 1.0989, & +0.9931, 0.9931, 0.9932, 0.9934, 0.9939, 0.9952, 0.9984, 1.0073, 1.0356 / +data ((supersat( 9,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +1.0004, 1.0018, 1.0061, 1.0163, 1.0401, 1.0967, 1.2462, 1.7823, 3.6509, & +1.0001, 1.0004, 1.0020, 1.0081, 1.0229, 1.0574, 1.1419, 1.3829, 2.5099, & +1.0001, 1.0002, 1.0004, 1.0022, 1.0107, 1.0319, 1.0823, 1.2124, 1.6410, & +0.9998, 0.9999, 1.0001, 1.0006, 1.0022, 1.0137, 1.0434, 1.1176, 1.3266, & +0.9992, 0.9992, 0.9994, 0.9998, 1.0006, 1.0024, 1.0167, 1.0571, 1.1663, & +0.9976, 0.9976, 0.9977, 0.9980, 0.9986, 1.0002, 1.0038, 1.0194, 1.0719, & +0.9950, 0.9950, 0.9950, 0.9952, 0.9956, 0.9965, 0.9989, 1.0049, 1.0214 / +data ((supersat( 9,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +1.0003, 1.0013, 1.0044, 1.0118, 1.0289, 1.0693, 1.1708, 1.4742, 2.7067, & +1.0001, 1.0003, 1.0015, 1.0058, 1.0164, 1.0409, 1.0996, 1.2536, 1.7873, & +1.0001, 1.0001, 1.0003, 1.0015, 1.0075, 1.0226, 1.0580, 1.1451, 1.3916, & +0.9999, 1.0000, 1.0001, 1.0004, 1.0016, 1.0095, 1.0307, 1.0820, 1.2147, & +0.9996, 0.9996, 0.9997, 1.0000, 1.0005, 1.0017, 1.0116, 1.0407, 1.1146, & +0.9986, 0.9987, 0.9987, 0.9989, 0.9993, 1.0002, 1.0024, 1.0136, 1.0517, & +0.9966, 0.9966, 0.9966, 0.9967, 0.9970, 0.9976, 0.9992, 1.0031, 1.0151 / +data ((supersat( 9,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +1.0002, 1.0010, 1.0033, 1.0088, 1.0218, 1.0523, 1.1271, 1.3313, 2.0801, & +1.0001, 1.0002, 1.0011, 1.0042, 1.0121, 1.0304, 1.0738, 1.1828, 1.5039, & +1.0001, 1.0001, 1.0002, 1.0011, 1.0053, 1.0164, 1.0426, 1.1052, 1.2694, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0011, 1.0066, 1.0222, 1.0593, 1.1513, & +0.9998, 0.9998, 0.9999, 1.0000, 1.0003, 1.0012, 1.0079, 1.0292, 1.0818, & +0.9991, 0.9991, 0.9992, 0.9993, 0.9996, 1.0002, 1.0015, 1.0091, 1.0371, & +0.9976, 0.9976, 0.9976, 0.9977, 0.9979, 0.9983, 0.9994, 1.0018, 1.0100 / +data ((supersat( 9,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +1.0002, 1.0008, 1.0025, 1.0069, 1.0172, 1.0415, 1.1003, 1.2535, 1.7315, & +1.0001, 1.0002, 1.0008, 1.0032, 1.0093, 1.0237, 1.0576, 1.1411, 1.3683, & +1.0000, 1.0001, 1.0002, 1.0008, 1.0039, 1.0124, 1.0326, 1.0806, 1.2016, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0008, 1.0047, 1.0165, 1.0447, 1.1133, & +0.9998, 0.9999, 0.9999, 1.0000, 1.0002, 1.0008, 1.0053, 1.0214, 1.0608, & +0.9994, 0.9994, 0.9994, 0.9995, 0.9997, 1.0001, 1.0010, 1.0059, 1.0269, & +0.9981, 0.9981, 0.9981, 0.9982, 0.9983, 0.9986, 0.9994, 1.0011, 1.0062 / +data ((supersat( 9,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +1.0002, 1.0006, 1.0020, 1.0056, 1.0142, 1.0343, 1.0828, 1.2060, 1.5592, & +1.0001, 1.0002, 1.0006, 1.0025, 1.0074, 1.0192, 1.0470, 1.1147, 1.2916, & +1.0000, 1.0001, 1.0002, 1.0006, 1.0030, 1.0098, 1.0260, 1.0647, 1.1604, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0006, 1.0034, 1.0127, 1.0352, 1.0894, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0002, 1.0006, 1.0037, 1.0162, 1.0472, & +0.9995, 0.9995, 0.9995, 0.9996, 0.9997, 1.0000, 1.0007, 1.0039, 1.0201, & +0.9984, 0.9984, 0.9984, 0.9984, 0.9985, 0.9988, 0.9994, 1.0006, 1.0040 / +data ((supersat( 9,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +1.0001, 1.0005, 1.0017, 1.0047, 1.0120, 1.0292, 1.0706, 1.1742, 1.4583, & +1.0001, 1.0001, 1.0005, 1.0020, 1.0062, 1.0161, 1.0396, 1.0967, 1.2426, & +1.0000, 1.0001, 1.0001, 1.0005, 1.0024, 1.0080, 1.0216, 1.0540, 1.1334, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0005, 1.0026, 1.0101, 1.0288, 1.0736, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0002, 1.0005, 1.0027, 1.0127, 1.0381, & +0.9995, 0.9995, 0.9995, 0.9996, 0.9997, 1.0000, 1.0006, 1.0027, 1.0155, & +0.9985, 0.9985, 0.9985, 0.9985, 0.9986, 0.9988, 0.9993, 1.0004, 1.0029 / +data ((supersat( 9,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +1.0003, 1.0015, 1.0072, 1.0215, 1.0552, 1.1384, 1.3794, 2.6159, 4.8358, & +1.0001, 1.0004, 1.0015, 1.0092, 1.0294, 1.0782, 1.2052, 1.6334, 3.7253, & +0.9998, 1.0000, 1.0005, 1.0016, 1.0113, 1.0392, 1.1099, 1.3117, 2.2686, & +0.9989, 0.9990, 0.9994, 1.0003, 1.0024, 1.0134, 1.0503, 1.1521, 1.4954, & +0.9969, 0.9970, 0.9972, 0.9979, 0.9994, 1.0031, 1.0150, 1.0615, 1.2067, & +0.9941, 0.9941, 0.9942, 0.9946, 0.9955, 0.9976, 1.0033, 1.0199, 1.0718, & +0.9918, 0.9918, 0.9919, 0.9920, 0.9924, 0.9934, 0.9959, 1.0030, 1.0253 / +data ((supersat( 9,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +1.0002, 1.0012, 1.0051, 1.0151, 1.0384, 1.0944, 1.2426, 1.7755, 3.6300, & +1.0001, 1.0003, 1.0012, 1.0065, 1.0206, 1.0542, 1.1370, 1.3743, 2.4844, & +1.0000, 1.0001, 1.0003, 1.0012, 1.0080, 1.0278, 1.0759, 1.2015, 1.6183, & +0.9995, 0.9996, 0.9998, 1.0003, 1.0015, 1.0095, 1.0362, 1.1050, 1.3020, & +0.9983, 0.9984, 0.9986, 0.9990, 0.9999, 1.0021, 1.0108, 1.0453, 1.1421, & +0.9960, 0.9961, 0.9962, 0.9964, 0.9970, 0.9986, 1.0023, 1.0118, 1.0538, & +0.9933, 0.9933, 0.9933, 0.9934, 0.9938, 0.9946, 0.9966, 1.0019, 1.0176 / +data ((supersat( 9,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +1.0002, 1.0009, 1.0037, 1.0109, 1.0278, 1.0679, 1.1688, 1.4709, 2.6968, & +1.0001, 1.0002, 1.0009, 1.0046, 1.0148, 1.0389, 1.0967, 1.2490, 1.7783, & +1.0000, 1.0001, 1.0002, 1.0009, 1.0056, 1.0198, 1.0541, 1.1389, 1.3805, & +0.9998, 0.9998, 1.0000, 1.0003, 1.0010, 1.0065, 1.0260, 1.0743, 1.2012, & +0.9991, 0.9991, 0.9992, 0.9995, 1.0001, 1.0014, 1.0074, 1.0328, 1.1000, & +0.9975, 0.9975, 0.9976, 0.9977, 0.9982, 0.9992, 1.0015, 1.0079, 1.0394, & +0.9948, 0.9948, 0.9949, 0.9950, 0.9952, 0.9958, 0.9973, 1.0010, 1.0113 / +data ((supersat( 9,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +1.0002, 1.0007, 1.0028, 1.0082, 1.0211, 1.0514, 1.1259, 1.3295, 2.0758, & +1.0001, 1.0002, 1.0007, 1.0034, 1.0109, 1.0290, 1.0719, 1.1801, 1.4992, & +1.0000, 1.0001, 1.0002, 1.0007, 1.0039, 1.0145, 1.0399, 1.1013, 1.2631, & +0.9999, 0.9999, 1.0000, 1.0002, 1.0007, 1.0044, 1.0188, 1.0542, 1.1431, & +0.9994, 0.9995, 0.9995, 0.9997, 1.0001, 1.0009, 1.0048, 1.0237, 1.0723, & +0.9983, 0.9983, 0.9984, 0.9985, 0.9988, 0.9995, 1.0010, 1.0050, 1.0284, & +0.9960, 0.9960, 0.9961, 0.9961, 0.9963, 0.9967, 0.9978, 1.0004, 1.0069 / +data ((supersat( 9,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +1.0001, 1.0005, 1.0021, 1.0064, 1.0166, 1.0408, 1.0995, 1.2522, 1.7293, & +1.0001, 1.0001, 1.0005, 1.0025, 1.0084, 1.0226, 1.0563, 1.1392, 1.3654, & +1.0000, 1.0001, 1.0001, 1.0005, 1.0029, 1.0109, 1.0306, 1.0779, 1.1975, & +0.9999, 0.9999, 1.0000, 1.0002, 1.0005, 1.0031, 1.0139, 1.0411, 1.1077, & +0.9996, 0.9996, 0.9997, 0.9998, 1.0001, 1.0006, 1.0031, 1.0173, 1.0541, & +0.9987, 0.9987, 0.9987, 0.9988, 0.9991, 0.9995, 1.0006, 1.0033, 1.0206, & +0.9967, 0.9967, 0.9968, 0.9968, 0.9969, 0.9973, 0.9981, 0.9999, 1.0043 / +data ((supersat( 9,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +1.0001, 1.0004, 1.0017, 1.0052, 1.0137, 1.0337, 1.0822, 1.2051, 1.5579, & +1.0000, 1.0001, 1.0004, 1.0020, 1.0067, 1.0183, 1.0460, 1.1133, 1.2896, & +1.0000, 1.0001, 1.0001, 1.0004, 1.0021, 1.0085, 1.0245, 1.0627, 1.1575, & +0.9999, 1.0000, 1.0000, 1.0001, 1.0004, 1.0022, 1.0107, 1.0324, 1.0853, & +0.9997, 0.9997, 0.9997, 0.9998, 1.0000, 1.0005, 1.0022, 1.0130, 1.0421, & +0.9989, 0.9989, 0.9989, 0.9990, 0.9992, 0.9996, 1.0004, 1.0024, 1.0152, & +0.9971, 0.9971, 0.9971, 0.9972, 0.9973, 0.9975, 0.9982, 0.9996, 1.0028 / +data ((supersat( 9,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +1.0001, 1.0003, 1.0014, 1.0044, 1.0116, 1.0287, 1.0700, 1.1735, 1.4573, & +1.0000, 1.0001, 1.0003, 1.0016, 1.0055, 1.0154, 1.0388, 1.0956, 1.2411, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0017, 1.0069, 1.0203, 1.0523, 1.1311, & +0.9999, 1.0000, 1.0000, 1.0001, 1.0003, 1.0017, 1.0084, 1.0265, 1.0704, & +0.9997, 0.9997, 0.9997, 0.9998, 1.0000, 1.0004, 1.0017, 1.0100, 1.0340, & +0.9990, 0.9990, 0.9990, 0.9991, 0.9992, 0.9995, 1.0002, 1.0018, 1.0115, & +0.9973, 0.9973, 0.9973, 0.9974, 0.9974, 0.9977, 0.9982, 0.9994, 1.0020 / +data ((supersat( 9,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +1.0002, 1.0009, 1.0055, 1.0190, 1.0517, 1.1330, 1.3699, 2.5864, 4.7866, & +1.0000, 1.0003, 1.0009, 1.0065, 1.0251, 1.0714, 1.1935, 1.6085, 3.6342, & +0.9993, 0.9996, 1.0001, 1.0014, 1.0073, 1.0319, 1.0967, 1.2854, 2.1883, & +0.9978, 0.9980, 0.9984, 0.9994, 1.0016, 1.0080, 1.0388, 1.1276, 1.4343, & +0.9952, 0.9952, 0.9955, 0.9961, 0.9976, 1.0012, 1.0111, 1.0447, 1.1630, & +0.9925, 0.9926, 0.9927, 0.9929, 0.9937, 0.9955, 1.0002, 1.0142, 1.0598, & +0.9910, 0.9910, 0.9910, 0.9911, 0.9914, 0.9921, 0.9940, 0.9993, 1.0160 / +data ((supersat( 9,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +1.0002, 1.0007, 1.0039, 1.0135, 1.0363, 1.0914, 1.2379, 1.7664, 3.6019, & +1.0001, 1.0002, 1.0007, 1.0046, 1.0179, 1.0501, 1.1307, 1.3630, 2.4506, & +0.9997, 0.9999, 1.0002, 1.0009, 1.0052, 1.0231, 1.0683, 1.1880, 1.5892, & +0.9989, 0.9990, 0.9993, 0.9999, 1.0012, 1.0056, 1.0286, 1.0906, 1.2725, & +0.9971, 0.9971, 0.9973, 0.9977, 0.9987, 1.0010, 1.0070, 1.0337, 1.1163, & +0.9943, 0.9943, 0.9944, 0.9946, 0.9952, 0.9966, 1.0001, 1.0096, 1.0379, & +0.9919, 0.9919, 0.9920, 0.9921, 0.9923, 0.9930, 0.9946, 0.9988, 1.0115 / +data ((supersat( 9,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +1.0001, 1.0005, 1.0029, 1.0098, 1.0264, 1.0660, 1.1662, 1.4664, 2.6833, & +1.0001, 1.0002, 1.0005, 1.0033, 1.0129, 1.0363, 1.0929, 1.2430, 1.7663, & +0.9999, 1.0000, 1.0002, 1.0006, 1.0036, 1.0166, 1.0492, 1.1311, 1.3661, & +0.9994, 0.9995, 0.9997, 1.0000, 1.0008, 1.0038, 1.0208, 1.0653, 1.1848, & +0.9982, 0.9983, 0.9984, 0.9987, 0.9993, 1.0008, 1.0044, 1.0247, 1.0839, & +0.9959, 0.9959, 0.9960, 0.9962, 0.9966, 0.9976, 1.0000, 1.0062, 1.0281, & +0.9931, 0.9932, 0.9932, 0.9933, 0.9935, 0.9940, 0.9953, 0.9986, 1.0076 / +data ((supersat( 9,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +1.0001, 1.0004, 1.0022, 1.0074, 1.0201, 1.0501, 1.1242, 1.3269, 2.0700, & +1.0000, 1.0001, 1.0004, 1.0024, 1.0096, 1.0272, 1.0695, 1.1764, 1.4928, & +1.0000, 1.0000, 1.0001, 1.0004, 1.0025, 1.0122, 1.0365, 1.0963, 1.2547, & +0.9997, 0.9997, 0.9998, 1.0001, 1.0006, 1.0026, 1.0150, 1.0482, 1.1328, & +0.9989, 0.9989, 0.9990, 0.9992, 0.9996, 1.0005, 1.0028, 1.0179, 1.0616, & +0.9970, 0.9970, 0.9971, 0.9972, 0.9975, 0.9982, 0.9999, 1.0039, 1.0202, & +0.9943, 0.9943, 0.9943, 0.9944, 0.9945, 0.9949, 0.9960, 0.9984, 1.0045 / +data ((supersat( 9,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +1.0001, 1.0003, 1.0017, 1.0058, 1.0159, 1.0399, 1.0983, 1.2506, 1.7264, & +1.0000, 1.0001, 1.0003, 1.0018, 1.0073, 1.0212, 1.0545, 1.1368, 1.3615, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0018, 1.0091, 1.0282, 1.0744, 1.1920, & +0.9998, 0.9998, 0.9999, 1.0000, 1.0004, 1.0018, 1.0111, 1.0367, 1.1008, & +0.9991, 0.9992, 0.9992, 0.9994, 0.9997, 1.0004, 1.0020, 1.0129, 1.0465, & +0.9976, 0.9977, 0.9977, 0.9978, 0.9980, 0.9985, 0.9997, 1.0025, 1.0145, & +0.9950, 0.9951, 0.9951, 0.9951, 0.9952, 0.9956, 0.9963, 0.9982, 1.0025 / +data ((supersat( 9,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +1.0001, 1.0003, 1.0013, 1.0047, 1.0130, 1.0330, 1.0813, 1.2039, 1.5559, & +1.0000, 1.0001, 1.0003, 1.0014, 1.0058, 1.0172, 1.0446, 1.1115, 1.2868, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0014, 1.0071, 1.0225, 1.0600, 1.1536, & +0.9998, 0.9998, 0.9999, 1.0000, 1.0003, 1.0014, 1.0084, 1.0290, 1.0802, & +0.9993, 0.9993, 0.9993, 0.9995, 0.9997, 1.0002, 1.0015, 1.0095, 1.0363, & +0.9979, 0.9980, 0.9980, 0.9981, 0.9982, 0.9987, 0.9996, 1.0017, 1.0104, & +0.9955, 0.9955, 0.9955, 0.9955, 0.9956, 0.9959, 0.9965, 0.9980, 1.0013 / +data ((supersat( 9,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +1.0001, 1.0002, 1.0011, 1.0039, 1.0110, 1.0281, 1.0693, 1.1725, 1.4558, & +1.0000, 1.0001, 1.0002, 1.0011, 1.0048, 1.0144, 1.0376, 1.0941, 1.2390, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0011, 1.0057, 1.0186, 1.0501, 1.1281, & +0.9998, 0.9998, 0.9999, 1.0000, 1.0003, 1.0011, 1.0065, 1.0237, 1.0662, & +0.9993, 0.9994, 0.9994, 0.9995, 0.9997, 1.0002, 1.0012, 1.0072, 1.0293, & +0.9981, 0.9981, 0.9981, 0.9982, 0.9983, 0.9987, 0.9995, 1.0012, 1.0076, & +0.9957, 0.9957, 0.9957, 0.9958, 0.9959, 0.9961, 0.9966, 0.9979, 1.0006 / +data ((supersat( 9,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +1.0002, 1.0007, 1.0044, 1.0174, 1.0492, 1.1292, 1.3631, 2.5647, 4.7504, & +0.9999, 1.0002, 1.0009, 1.0049, 1.0223, 1.0668, 1.1854, 1.5909, 3.5691, & +0.9989, 0.9992, 0.9998, 1.0011, 1.0052, 1.0275, 1.0883, 1.2679, 2.1322, & +0.9970, 0.9971, 0.9975, 0.9986, 1.0009, 1.0069, 1.0323, 1.1128, 1.3956, & +0.9941, 0.9942, 0.9944, 0.9950, 0.9964, 0.9998, 1.0092, 1.0361, 1.1390, & +0.9918, 0.9918, 0.9919, 0.9922, 0.9928, 0.9944, 0.9985, 1.0107, 1.0505, & +0.9907, 0.9907, 0.9907, 0.9908, 0.9910, 0.9916, 0.9931, 0.9975, 1.0115 / +data ((supersat( 9,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +1.0002, 1.0005, 1.0032, 1.0124, 1.0348, 1.0893, 1.2345, 1.7597, 3.5813, & +1.0000, 1.0002, 1.0006, 1.0035, 1.0161, 1.0474, 1.1263, 1.3549, 2.4259, & +0.9995, 0.9997, 1.0000, 1.0008, 1.0037, 1.0201, 1.0632, 1.1787, 1.5688, & +0.9984, 0.9985, 0.9988, 0.9994, 1.0008, 1.0044, 1.0241, 1.0816, 1.2531, & +0.9961, 0.9962, 0.9963, 0.9967, 0.9978, 1.0001, 1.0061, 1.0275, 1.1013, & +0.9933, 0.9933, 0.9934, 0.9936, 0.9941, 0.9954, 0.9987, 1.0075, 1.0350, & +0.9913, 0.9914, 0.9914, 0.9915, 0.9917, 0.9922, 0.9936, 0.9972, 1.0082 / +data ((supersat( 9,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +1.0001, 1.0004, 1.0024, 1.0091, 1.0255, 1.0647, 1.1643, 1.4631, 2.6733, & +1.0000, 1.0001, 1.0004, 1.0025, 1.0116, 1.0345, 1.0903, 1.2386, 1.7574, & +0.9998, 0.9999, 1.0001, 1.0006, 1.0026, 1.0146, 1.0459, 1.1257, 1.3559, & +0.9991, 0.9992, 0.9994, 0.9998, 1.0006, 1.0028, 1.0176, 1.0595, 1.1738, & +0.9975, 0.9976, 0.9977, 0.9980, 0.9987, 1.0002, 1.0039, 1.0202, 1.0742, & +0.9949, 0.9949, 0.9950, 0.9951, 0.9955, 0.9965, 0.9989, 1.0049, 1.0223, & +0.9923, 0.9923, 0.9924, 0.9924, 0.9926, 0.9931, 0.9942, 0.9971, 1.0052 / +data ((supersat( 9,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +1.0001, 1.0003, 1.0018, 1.0068, 1.0194, 1.0493, 1.1230, 1.3250, 2.0656, & +1.0000, 1.0001, 1.0003, 1.0018, 1.0086, 1.0259, 1.0677, 1.1738, 1.4880, & +0.9999, 1.0000, 1.0001, 1.0004, 1.0019, 1.0106, 1.0343, 1.0928, 1.2488, & +0.9995, 0.9995, 0.9996, 0.9999, 1.0004, 1.0020, 1.0127, 1.0442, 1.1259, & +0.9983, 0.9984, 0.9985, 0.9986, 0.9991, 1.0001, 1.0025, 1.0145, 1.0550, & +0.9961, 0.9961, 0.9962, 0.9963, 0.9966, 0.9973, 0.9990, 1.0030, 1.0159, & +0.9933, 0.9933, 0.9933, 0.9934, 0.9935, 0.9939, 0.9948, 0.9971, 1.0028 / +data ((supersat( 9,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +1.0001, 1.0003, 1.0014, 1.0053, 1.0153, 1.0392, 1.0974, 1.2493, 1.7241, & +1.0000, 1.0001, 1.0003, 1.0014, 1.0066, 1.0203, 1.0532, 1.1349, 1.3585, & +0.9999, 1.0000, 1.0001, 1.0003, 1.0014, 1.0080, 1.0265, 1.0719, 1.1881, & +0.9996, 0.9996, 0.9997, 0.9999, 1.0003, 1.0014, 1.0093, 1.0338, 1.0959, & +0.9987, 0.9988, 0.9988, 0.9990, 0.9993, 1.0001, 1.0017, 1.0104, 1.0417, & +0.9968, 0.9968, 0.9968, 0.9969, 0.9972, 0.9977, 0.9990, 1.0018, 1.0112, & +0.9940, 0.9940, 0.9940, 0.9941, 0.9942, 0.9945, 0.9953, 0.9970, 1.0012 / +data ((supersat( 9,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +1.0001, 1.0002, 1.0011, 1.0043, 1.0126, 1.0325, 1.0806, 1.2030, 1.5544, & +1.0000, 1.0001, 1.0002, 1.0011, 1.0052, 1.0164, 1.0436, 1.1101, 1.2847, & +0.9999, 1.0000, 1.0001, 1.0002, 1.0011, 1.0061, 1.0212, 1.0581, 1.1507, & +0.9997, 0.9997, 0.9998, 0.9999, 1.0002, 1.0011, 1.0069, 1.0267, 1.0765, & +0.9989, 0.9989, 0.9990, 0.9991, 0.9994, 1.0000, 1.0013, 1.0075, 1.0326, & +0.9972, 0.9972, 0.9972, 0.9973, 0.9975, 0.9979, 0.9989, 1.0011, 1.0078, & +0.9944, 0.9945, 0.9945, 0.9945, 0.9946, 0.9949, 0.9955, 0.9969, 1.0002 / +data ((supersat( 9,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +1.0001, 1.0002, 1.0009, 1.0036, 1.0106, 1.0276, 1.0687, 1.1718, 1.4547, & +1.0000, 1.0001, 1.0002, 1.0009, 1.0043, 1.0137, 1.0368, 1.0930, 1.2374, & +0.9999, 1.0000, 1.0000, 1.0002, 1.0009, 1.0049, 1.0175, 1.0486, 1.1258, & +0.9997, 0.9997, 0.9998, 0.9999, 1.0002, 1.0009, 1.0053, 1.0218, 1.0633, & +0.9990, 0.9990, 0.9991, 0.9992, 0.9994, 0.9999, 1.0010, 1.0055, 1.0263, & +0.9974, 0.9974, 0.9974, 0.9975, 0.9976, 0.9980, 0.9989, 1.0007, 1.0057, & +0.9947, 0.9947, 0.9947, 0.9947, 0.9948, 0.9950, 0.9956, 0.9968, 0.9996 / +data ((supersat( 9,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +1.0002, 1.0006, 1.0036, 1.0161, 1.0473, 1.1261, 1.3575, 2.5468, 4.7211, & +0.9997, 1.0001, 1.0008, 1.0038, 1.0203, 1.0633, 1.1790, 1.5768, 3.5169, & +0.9986, 0.9988, 0.9995, 1.0009, 1.0040, 1.0244, 1.0821, 1.2545, 2.0882, & +0.9963, 0.9964, 0.9969, 0.9979, 1.0002, 1.0062, 1.0280, 1.1024, 1.3674, & +0.9934, 0.9935, 0.9937, 0.9943, 0.9956, 0.9988, 1.0077, 1.0307, 1.1232, & +0.9914, 0.9914, 0.9915, 0.9917, 0.9923, 0.9937, 0.9974, 1.0084, 1.0441, & +0.9900, 0.9900, 0.9905, 0.9906, 0.9908, 0.9913, 0.9926, 0.9965, 1.0087 / +data ((supersat( 9,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +1.0001, 1.0004, 1.0027, 1.0116, 1.0337, 1.0876, 1.2318, 1.7542, 3.5643, & +0.9999, 1.0001, 1.0006, 1.0028, 1.0147, 1.0453, 1.1228, 1.3484, 2.4058, & +0.9993, 0.9995, 0.9999, 1.0007, 1.0029, 1.0180, 1.0593, 1.1716, 1.5527, & +0.9979, 0.9980, 0.9983, 0.9990, 1.0004, 1.0040, 1.0210, 1.0751, 1.2385, & +0.9954, 0.9954, 0.9956, 0.9960, 0.9970, 0.9993, 1.0052, 1.0234, 1.0910, & +0.9927, 0.9927, 0.9928, 0.9930, 0.9935, 0.9947, 0.9976, 1.0059, 1.0314, & +0.9910, 0.9910, 0.9911, 0.9911, 0.9913, 0.9918, 0.9930, 0.9962, 1.0060 / +data ((supersat( 9,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +1.0001, 1.0003, 1.0020, 1.0085, 1.0247, 1.0637, 1.1627, 1.4603, 2.6649, & +1.0000, 1.0001, 1.0004, 1.0020, 1.0107, 1.0331, 1.0882, 1.2351, 1.7501, & +0.9997, 0.9998, 1.0000, 1.0005, 1.0021, 1.0131, 1.0434, 1.1214, 1.3477, & +0.9988, 0.9989, 0.9991, 0.9995, 1.0004, 1.0026, 1.0153, 1.0552, 1.1653, & +0.9969, 0.9970, 0.9971, 0.9974, 0.9981, 0.9997, 1.0034, 1.0172, 1.0674, & +0.9942, 0.9942, 0.9942, 0.9944, 0.9948, 0.9957, 0.9980, 1.0038, 1.0186, & +0.9918, 0.9918, 0.9919, 0.9919, 0.9921, 0.9925, 0.9936, 0.9962, 1.0036 / +data ((supersat( 9,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +1.0001, 1.0003, 1.0015, 1.0064, 1.0188, 1.0485, 1.1220, 1.3234, 2.0619, & +1.0000, 1.0001, 1.0003, 1.0015, 1.0079, 1.0249, 1.0663, 1.1716, 1.4840, & +0.9998, 0.9999, 1.0000, 1.0004, 1.0015, 1.0095, 1.0325, 1.0900, 1.2440, & +0.9993, 0.9993, 0.9994, 0.9997, 1.0003, 1.0018, 1.0110, 1.0412, 1.1205, & +0.9979, 0.9979, 0.9980, 0.9982, 0.9987, 0.9998, 1.0022, 1.0123, 1.0502, & +0.9954, 0.9954, 0.9954, 0.9955, 0.9958, 0.9966, 0.9983, 1.0022, 1.0132, & +0.9927, 0.9927, 0.9927, 0.9928, 0.9929, 0.9933, 0.9941, 0.9962, 1.0016 / +data ((supersat( 9,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +1.0001, 1.0002, 1.0011, 1.0050, 1.0149, 1.0387, 1.0967, 1.2483, 1.7222, & +1.0000, 1.0001, 1.0002, 1.0011, 1.0060, 1.0195, 1.0522, 1.1334, 1.3560, & +0.9999, 0.9999, 1.0000, 1.0003, 1.0012, 1.0071, 1.0252, 1.0699, 1.1849, & +0.9995, 0.9995, 0.9996, 0.9998, 1.0002, 1.0013, 1.0080, 1.0316, 1.0922, & +0.9984, 0.9984, 0.9984, 0.9986, 0.9990, 0.9998, 1.0015, 1.0086, 1.0382, & +0.9961, 0.9962, 0.9962, 0.9963, 0.9965, 0.9971, 0.9983, 1.0012, 1.0091, & +0.9933, 0.9934, 0.9934, 0.9934, 0.9935, 0.9938, 0.9945, 0.9962, 1.0002 / +data ((supersat( 9,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +1.0001, 1.0002, 1.0009, 1.0040, 1.0122, 1.0320, 1.0801, 1.2022, 1.5531, & +1.0000, 1.0001, 1.0002, 1.0009, 1.0048, 1.0158, 1.0428, 1.1090, 1.2830, & +0.9999, 0.9999, 1.0000, 1.0002, 1.0009, 1.0054, 1.0201, 1.0566, 1.1483, & +0.9995, 0.9996, 0.9996, 0.9998, 1.0002, 1.0010, 1.0059, 1.0250, 1.0737, & +0.9986, 0.9986, 0.9987, 0.9988, 0.9991, 0.9997, 1.0011, 1.0061, 1.0299, & +0.9966, 0.9966, 0.9966, 0.9967, 0.9968, 0.9973, 0.9983, 1.0006, 1.0064, & +0.9938, 0.9938, 0.9938, 0.9938, 0.9939, 0.9941, 0.9947, 0.9961, 0.9993 / +data ((supersat( 9,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +1.0000, 1.0002, 1.0007, 1.0033, 1.0103, 1.0273, 1.0683, 1.1712, 1.4537, & +1.0000, 1.0001, 1.0002, 1.0007, 1.0039, 1.0132, 1.0361, 1.0921, 1.2360, & +0.9999, 0.9999, 1.0000, 1.0002, 1.0007, 1.0043, 1.0166, 1.0473, 1.1239, & +0.9996, 0.9996, 0.9997, 0.9998, 1.0001, 1.0008, 1.0045, 1.0203, 1.0611, & +0.9987, 0.9987, 0.9988, 0.9989, 0.9991, 0.9997, 1.0008, 1.0046, 1.0241, & +0.9968, 0.9968, 0.9968, 0.9969, 0.9970, 0.9974, 0.9983, 1.0002, 1.0049, & +0.9940, 0.9940, 0.9940, 0.9940, 0.9941, 0.9943, 0.9948, 0.9960, 0.9987 / +data ((supersat( 9,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +1.0002, 1.0006, 1.0030, 1.0151, 1.0458, 1.1236, 1.3528, 2.5314, 4.6960, & +0.9996, 1.0000, 1.0008, 1.0031, 1.0187, 1.0604, 1.1737, 1.5649, 3.4727, & +0.9982, 0.9985, 0.9992, 1.0006, 1.0042, 1.0221, 1.0771, 1.2436, 2.0516, & +0.9957, 0.9959, 0.9963, 0.9973, 0.9997, 1.0056, 1.0248, 1.0945, 1.3454, & +0.9929, 0.9930, 0.9932, 0.9937, 0.9950, 0.9980, 1.0065, 1.0327, 1.1238, & +0.9912, 0.9912, 0.9913, 0.9915, 0.9920, 0.9932, 0.9966, 1.0067, 1.0394, & +0.9900, 0.9900, 0.9900, 0.9905, 0.9907, 0.9911, 0.9923, 0.9958, 1.0068 / +data ((supersat( 9,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +1.0001, 1.0004, 1.0023, 1.0109, 1.0327, 1.0861, 1.2294, 1.7494, 3.5497, & +0.9999, 1.0001, 1.0005, 1.0023, 1.0136, 1.0435, 1.1199, 1.3429, 2.3886, & +0.9992, 0.9993, 0.9997, 1.0006, 1.0025, 1.0163, 1.0563, 1.1656, 1.5392, & +0.9975, 0.9976, 0.9979, 0.9986, 1.0001, 1.0037, 1.0187, 1.0700, 1.2268, & +0.9948, 0.9949, 0.9950, 0.9954, 0.9964, 0.9987, 1.0045, 1.0205, 1.0833, & +0.9923, 0.9923, 0.9923, 0.9925, 0.9930, 0.9941, 0.9969, 1.0046, 1.0286, & +0.9900, 0.9900, 0.9909, 0.9909, 0.9911, 0.9915, 0.9926, 0.9956, 1.0044 / +data ((supersat( 9,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +1.0001, 1.0003, 1.0017, 1.0080, 1.0240, 1.0628, 1.1613, 1.4580, 2.6577, & +1.0000, 1.0001, 1.0004, 1.0017, 1.0099, 1.0319, 1.0864, 1.2321, 1.7438, & +0.9996, 0.9997, 0.9999, 1.0004, 1.0018, 1.0119, 1.0414, 1.1179, 1.3409, & +0.9986, 0.9986, 0.9988, 0.9993, 1.0002, 1.0025, 1.0136, 1.0518, 1.1585, & +0.9964, 0.9965, 0.9966, 0.9969, 0.9976, 0.9992, 1.0030, 1.0150, 1.0621, & +0.9936, 0.9936, 0.9937, 0.9938, 0.9942, 0.9951, 0.9973, 1.0029, 1.0193, & +0.9915, 0.9915, 0.9915, 0.9916, 0.9917, 0.9921, 0.9931, 0.9955, 1.0024 / +data ((supersat( 9,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +1.0001, 1.0002, 1.0013, 1.0060, 1.0183, 1.0479, 1.1211, 1.3220, 2.0586, & +1.0000, 1.0001, 1.0003, 1.0013, 1.0073, 1.0241, 1.0651, 1.1697, 1.4806, & +0.9998, 0.9998, 1.0000, 1.0003, 1.0013, 1.0086, 1.0311, 1.0877, 1.2399, & +0.9991, 0.9991, 0.9993, 0.9996, 1.0002, 1.0017, 1.0098, 1.0389, 1.1161, & +0.9975, 0.9975, 0.9976, 0.9978, 0.9983, 0.9994, 1.0019, 1.0106, 1.0466, & +0.9948, 0.9948, 0.9949, 0.9950, 0.9953, 0.9960, 0.9976, 1.0016, 1.0125, & +0.9923, 0.9923, 0.9923, 0.9923, 0.9925, 0.9928, 0.9936, 0.9956, 1.0006 / +data ((supersat( 9,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +1.0001, 1.0002, 1.0010, 1.0047, 1.0145, 1.0382, 1.0961, 1.2474, 1.7205, & +1.0000, 1.0001, 1.0002, 1.0010, 1.0056, 1.0189, 1.0513, 1.1322, 1.3538, & +0.9998, 0.9999, 1.0000, 1.0002, 1.0010, 1.0064, 1.0241, 1.0682, 1.1821, & +0.9993, 0.9994, 0.9994, 0.9997, 1.0001, 1.0012, 1.0070, 1.0298, 1.0891, & +0.9980, 0.9980, 0.9981, 0.9983, 0.9986, 0.9995, 1.0013, 1.0074, 1.0355, & +0.9956, 0.9956, 0.9956, 0.9957, 0.9959, 0.9965, 0.9978, 1.0007, 1.0083, & +0.9929, 0.9929, 0.9929, 0.9929, 0.9930, 0.9933, 0.9940, 0.9955, 0.9994 / +data ((supersat( 9,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +1.0001, 1.0002, 1.0008, 1.0038, 1.0119, 1.0317, 1.0796, 1.2016, 1.5519, & +1.0000, 1.0001, 1.0002, 1.0008, 1.0044, 1.0153, 1.0421, 1.1080, 1.2814, & +0.9999, 0.9999, 1.0000, 1.0002, 1.0008, 1.0048, 1.0193, 1.0553, 1.1463, & +0.9994, 0.9995, 0.9995, 0.9997, 1.0001, 1.0009, 1.0051, 1.0236, 1.0714, & +0.9983, 0.9983, 0.9984, 0.9985, 0.9988, 0.9995, 1.0009, 1.0053, 1.0278, & +0.9960, 0.9960, 0.9961, 0.9961, 0.9963, 0.9968, 0.9978, 1.0002, 1.0059, & +0.9933, 0.9932, 0.9933, 0.9933, 0.9934, 0.9936, 0.9942, 0.9955, 0.9986 / +data ((supersat( 9,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +1.0000, 1.0001, 1.0006, 1.0031, 1.0101, 1.0270, 1.0679, 1.1706, 1.4528, & +1.0000, 1.0000, 1.0001, 1.0006, 1.0035, 1.0127, 1.0355, 1.0913, 1.2348, & +0.9999, 0.9999, 1.0000, 1.0002, 1.0007, 1.0038, 1.0159, 1.0463, 1.1223, & +0.9995, 0.9995, 0.9996, 0.9997, 1.0000, 1.0007, 1.0039, 1.0192, 1.0592, & +0.9984, 0.9984, 0.9985, 0.9986, 0.9988, 0.9994, 1.0006, 1.0040, 1.0223, & +0.9963, 0.9963, 0.9963, 0.9963, 0.9965, 0.9969, 0.9978, 0.9998, 1.0044, & +0.9935, 0.9935, 0.9935, 0.9935, 0.9936, 0.9938, 0.9943, 0.9954, 0.9981 / + +nucvalue1 = wtw1*(wtcon1*(jrg1*cldnuctab(rgccn1 ,jw ,jconcen ,jtemp,epstab ) & + + jrg2*cldnuctab(rgccn1+1,jw ,jconcen ,jtemp,epstab)) & + + wtcon2*(jrg1*cldnuctab(rgccn1 ,jw ,jconcen+1,jtemp,epstab ) & + + jrg2*cldnuctab(rgccn1+1,jw ,jconcen+1,jtemp,epstab))) & + +wtw2*(wtcon1*(jrg1*cldnuctab(rgccn1 ,jw+1,jconcen ,jtemp,epstab ) & + + jrg2*cldnuctab(rgccn1+1,jw+1,jconcen ,jtemp,epstab)) & + + wtcon2*(jrg1*cldnuctab(rgccn1 ,jw+1,jconcen+1,jtemp,epstab ) & + + jrg2*cldnuctab(rgccn1+1,jw+1,jconcen+1,jtemp,epstab))) + +nucvalue2 = wtw1*(wtcon1*(jrg1*cldnuctab(rgccn1 ,jw ,jconcen ,jtemp,epstab+1 ) & + + jrg2*cldnuctab(rgccn1+1,jw ,jconcen ,jtemp,epstab+1)) & + + wtcon2*(jrg1*cldnuctab(rgccn1 ,jw ,jconcen+1,jtemp,epstab+1 ) & + + jrg2*cldnuctab(rgccn1+1,jw ,jconcen+1,jtemp,epstab+1))) & + +wtw2*(wtcon1*(jrg1*cldnuctab(rgccn1 ,jw+1,jconcen ,jtemp,epstab+1 ) & + + jrg2*cldnuctab(rgccn1+1,jw+1,jconcen ,jtemp,epstab+1)) & + + wtcon2*(jrg1*cldnuctab(rgccn1 ,jw+1,jconcen+1,jtemp,epstab+1 ) & + + jrg2*cldnuctab(rgccn1+1,jw+1,jconcen+1,jtemp,epstab+1))) + +nucvalue = eps1 * nucvalue1 + eps2 * nucvalue2 + +supsatpcnt = rrv / (1.0001 * rrvlsair) +nucss=0.0 +!Saleeby(2011): Supersaturation tables are essentially the inverse of the W +!tables above. These could be used in situations where W is small but super- +!saturation still exists. These should be further tested in regions of non-W +!super-saturation to be sure how viable they are. +!TURNED OFF FOR NOW +do ss=9,8 + print*,'TEST FOR SUPER-SATURATION TABLES - THEY ARE TURNED ON',ss + ssvalue11 = wtcon1*(jrg1*supersat(rgccn1 ,ss,jconcen ,jtemp,epstab ) & + + jrg2*supersat(rgccn1+1,ss,jconcen ,jtemp,epstab)) & + + wtcon2*(jrg1*supersat(rgccn1 ,ss,jconcen+1,jtemp,epstab ) & + + jrg2*supersat(rgccn1+1,ss,jconcen+1,jtemp,epstab)) + ssvalue12 = wtcon1*(jrg1*supersat(rgccn1 ,ss,jconcen ,jtemp,epstab+1 ) & + + jrg2*supersat(rgccn1+1,ss,jconcen ,jtemp,epstab+1)) & + + wtcon2*(jrg1*supersat(rgccn1 ,ss,jconcen+1,jtemp,epstab+1 ) & + + jrg2*supersat(rgccn1+1,ss,jconcen+1,jtemp,epstab+1)) + ssvalue1 = eps1 * ssvalue11 + eps2 * ssvalue12 + + ssvalue21 = wtcon1*(jrg1*supersat(rgccn1 ,ss+1,jconcen ,jtemp,epstab ) & + + jrg2*supersat(rgccn1+1,ss+1,jconcen ,jtemp,epstab)) & + + wtcon2*(jrg1*supersat(rgccn1 ,ss+1,jconcen+1,jtemp,epstab ) & + + jrg2*supersat(rgccn1+1,ss+1,jconcen+1,jtemp,epstab)) + ssvalue22 = wtcon1*(jrg1*supersat(rgccn1 ,ss+1,jconcen ,jtemp,epstab+1 ) & + + jrg2*supersat(rgccn1+1,ss+1,jconcen ,jtemp,epstab+1)) & + + wtcon2*(jrg1*supersat(rgccn1 ,ss+1,jconcen+1,jtemp,epstab+1 ) & + + jrg2*supersat(rgccn1+1,ss+1,jconcen+1,jtemp,epstab+1)) + ssvalue2 = eps1 * ssvalue21 + eps2 * ssvalue22 + + if((supsatpcnt>=ssvalue1.and.supsatpcnt<=ssvalue2).or. & + (supsatpcnt>ssvalue2).and.ss==8) then + mult1=(ssvalue2-supsatpcnt)/(ssvalue2-ssvalue1) + mult2=(supsatpcnt-ssvalue1)/(ssvalue2-ssvalue1) + + if(ssvalue1==ssvalue2 .or. ssvalue1>ssvalue2 .or. supsatpcnt>ssvalue2) then + mult1=0.0 + mult2=1.0 + endif + + nucss1 =mult1*(wtcon1*(jrg1*cldnuctab(rgccn1 ,ss ,jconcen ,jtemp,epstab ) & + + jrg2*cldnuctab(rgccn1+1,ss ,jconcen ,jtemp,epstab)) & + + wtcon2*(jrg1*cldnuctab(rgccn1 ,ss ,jconcen+1,jtemp,epstab ) & + + jrg2*cldnuctab(rgccn1+1,ss ,jconcen+1,jtemp,epstab))) & + +mult2*(wtcon1*(jrg1*cldnuctab(rgccn1 ,ss+1,jconcen ,jtemp,epstab ) & + + jrg2*cldnuctab(rgccn1+1,ss+1,jconcen ,jtemp,epstab)) & + + wtcon2*(jrg1*cldnuctab(rgccn1 ,ss+1,jconcen+1,jtemp,epstab ) & + + jrg2*cldnuctab(rgccn1+1,ss+1,jconcen+1,jtemp,epstab))) + nucss2 =mult1*(wtcon1*(jrg1*cldnuctab(rgccn1 ,ss ,jconcen ,jtemp,epstab+1 ) & + + jrg2*cldnuctab(rgccn1+1,ss ,jconcen ,jtemp,epstab+1)) & + + wtcon2*(jrg1*cldnuctab(rgccn1 ,ss ,jconcen+1,jtemp,epstab+1 ) & + + jrg2*cldnuctab(rgccn1+1,ss ,jconcen+1,jtemp,epstab+1))) & + +mult2*(wtcon1*(jrg1*cldnuctab(rgccn1 ,ss+1,jconcen ,jtemp,epstab+1 ) & + + jrg2*cldnuctab(rgccn1+1,ss+1,jconcen ,jtemp,epstab+1)) & + + wtcon2*(jrg1*cldnuctab(rgccn1 ,ss+1,jconcen+1,jtemp,epstab+1 ) & + + jrg2*cldnuctab(rgccn1+1,ss+1,jconcen+1,jtemp,epstab+1))) + nucss = eps1 * nucss1 + eps2 * nucss2 + go to 102 + endif +enddo +102 continue +tabvalue=max(nucvalue,nucss) +if(tabvalue < 0.0 .or. tabvalue > 1.0)then + print*,'Nucleation fraction unreal',tabvalue + stop +endif + +return +END SUBROUTINE aero_nuc_tab_nh42so4 + +!############################################################################## +Subroutine aero_nuc_tab_nacl (rrv,rrvlsair,eps1,eps2,wtw1,wtw2,wtcon1,wtcon2 & + ,jrg1,jrg2,epstab,jw,jconcen,jtemp,rgccn1,tabvalue) + +implicit none + +integer :: iw,iconc +integer :: epstab,jw,jconcen,jtemp,rgccn1,ss +real :: eps1,eps2,wtw1,wtw2,wtcon1,wtcon2,jrg1,jrg2 +real :: tabvalue,nucvalue,nucvalue1,nucvalue2,ssvalue1,ssvalue2 +real, dimension(9,9,7,7,7) :: cldnuctab,supersat +real :: supsatpcnt,ssvalue11,ssvalue12,ssvalue21,ssvalue22 +real :: mult1,mult2,nucss1,nucss2,nucss,rrv,rrvlsair + +!Saleeby (6/3/02) +!The following tables are percent of prescibed CCN to activate. +!Table dimensions are: +! (median radius,updraft,concentration,temperature,solubility). +!Large aerosols or GCCN number are prescibed by the user and these +!automatically nucleate and they have no lookup tables. +!Small aerosols or CCN with median radius from 0.01 - 0.96 microns +!are user prescribed in concentration from 1 - 10,000 /mg. +!Median radius is in centimeters as is the parcel model. + +!cldnuctab(a,b,c,d,e) as produced in parcel model +!a = 1-9 median radius of aerosol dist (.01,.02,.04,.08,.16,.32,.48,.64,.96 microns) +!b = 1-9 vertical velocity (1 - 10,000 cm/s) +!c = 1-7 aerosol concentration (10 - 10,000 /mg) +!d = 1-7 air temperature (-30 to 30 C) +!e = 1-7 epsilon solubility fraction (0.05, 0.1, 0.2, 0.4, 0.6, 0.8, 1.0) + +!Input W (m/s), rg (m), concentration (/mg), T (C) + +data ((cldnuctab( 1,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +0.0267, 0.0692, 0.1707, 0.3674, 0.6388, 0.8873, 0.9907, 0.9979, 0.9979, & +0.0148, 0.0421, 0.1158, 0.2661, 0.4951, 0.7774, 0.9593, 0.9979, 0.9979, & +0.0097, 0.0267, 0.0748, 0.1813, 0.3829, 0.6540, 0.8950, 0.9907, 0.9979, & +0.0055, 0.0181, 0.0500, 0.1325, 0.2936, 0.5439, 0.8122, 0.9660, 0.9979, & +0.0034, 0.0120, 0.0353, 0.0936, 0.2275, 0.4464, 0.7120, 0.9156, 0.9934, & +0.0021, 0.0077, 0.0243, 0.0692, 0.1707, 0.3521, 0.5920, 0.8122, 0.9660, & +0.0014, 0.0049, 0.0164, 0.0459, 0.1240, 0.2661, 0.4144, 0.5114, 0.7258 / +data ((cldnuctab( 1,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +0.0181, 0.0500, 0.1240, 0.2797, 0.5277, 0.8010, 0.9689, 0.9979, 0.9979, & +0.0108, 0.0294, 0.0807, 0.1923, 0.3985, 0.6689, 0.9022, 0.9926, 0.9979, & +0.0062, 0.0181, 0.0500, 0.1325, 0.2936, 0.5439, 0.8010, 0.9660, 0.9979, & +0.0034, 0.0108, 0.0322, 0.0870, 0.2154, 0.4303, 0.6980, 0.9156, 0.9934, & +0.0021, 0.0069, 0.0221, 0.0589, 0.1508, 0.3223, 0.5920, 0.8434, 0.9742, & +0.0012, 0.0043, 0.0148, 0.0421, 0.1080, 0.2529, 0.4789, 0.7392, 0.9275, & +0.0007, 0.0026, 0.0097, 0.0294, 0.0807, 0.1923, 0.3829, 0.5920, 0.7894 / +data ((cldnuctab( 1,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +0.0133, 0.0385, 0.0936, 0.2154, 0.4303, 0.7120, 0.9330, 0.9967, 0.9979, & +0.0077, 0.0221, 0.0589, 0.1415, 0.3078, 0.5601, 0.8334, 0.9766, 0.9979, & +0.0038, 0.0120, 0.0353, 0.0936, 0.2154, 0.4303, 0.7120, 0.9217, 0.9947, & +0.0023, 0.0069, 0.0221, 0.0589, 0.1508, 0.3223, 0.5761, 0.8434, 0.9766, & +0.0014, 0.0043, 0.0133, 0.0385, 0.1080, 0.2400, 0.4626, 0.7392, 0.9330, & +0.0007, 0.0026, 0.0087, 0.0267, 0.0748, 0.1813, 0.3674, 0.6388, 0.8709, & +0.0004, 0.0016, 0.0055, 0.0181, 0.0500, 0.1325, 0.2936, 0.5277, 0.7523 / +data ((cldnuctab( 1,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +0.0108, 0.0294, 0.0807, 0.1813, 0.3674, 0.6388, 0.8950, 0.9907, 0.9979, & +0.0055, 0.0164, 0.0459, 0.1158, 0.2529, 0.4951, 0.7651, 0.9517, 0.9979, & +0.0030, 0.0097, 0.0267, 0.0692, 0.1707, 0.3521, 0.6234, 0.8709, 0.9842, & +0.0016, 0.0055, 0.0164, 0.0459, 0.1158, 0.2529, 0.4789, 0.7523, 0.9474, & +0.0009, 0.0030, 0.0097, 0.0294, 0.0748, 0.1813, 0.3674, 0.6388, 0.8793, & +0.0005, 0.0018, 0.0055, 0.0181, 0.0500, 0.1325, 0.2797, 0.5277, 0.7894, & +0.0003, 0.0011, 0.0034, 0.0120, 0.0353, 0.0936, 0.2154, 0.4303, 0.6836 / +data ((cldnuctab( 1,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +0.0097, 0.0267, 0.0692, 0.1606, 0.3371, 0.5920, 0.8530, 0.9826, 0.9979, & +0.0049, 0.0133, 0.0385, 0.0936, 0.2154, 0.4303, 0.7120, 0.9217, 0.9947, & +0.0026, 0.0077, 0.0221, 0.0589, 0.1415, 0.3078, 0.5439, 0.8122, 0.9689, & +0.0014, 0.0043, 0.0120, 0.0353, 0.0870, 0.2036, 0.4144, 0.6836, 0.9091, & +0.0007, 0.0023, 0.0069, 0.0200, 0.0589, 0.1415, 0.3078, 0.5439, 0.8122, & +0.0004, 0.0012, 0.0043, 0.0133, 0.0385, 0.0936, 0.2154, 0.4303, 0.6980, & +0.0002, 0.0007, 0.0023, 0.0077, 0.0243, 0.0639, 0.1606, 0.3371, 0.5920 / +data ((cldnuctab( 1,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +0.0087, 0.0221, 0.0589, 0.1415, 0.3078, 0.5601, 0.8230, 0.9717, 0.9979, & +0.0043, 0.0120, 0.0322, 0.0870, 0.1923, 0.3985, 0.6689, 0.9022, 0.9907, & +0.0021, 0.0069, 0.0181, 0.0500, 0.1240, 0.2661, 0.4951, 0.7774, 0.9517, & +0.0011, 0.0034, 0.0108, 0.0294, 0.0748, 0.1707, 0.3674, 0.6234, 0.8709, & +0.0006, 0.0018, 0.0055, 0.0164, 0.0459, 0.1158, 0.2529, 0.4789, 0.7523, & +0.0003, 0.0011, 0.0030, 0.0097, 0.0294, 0.0748, 0.1813, 0.3674, 0.6234, & +0.0002, 0.0005, 0.0018, 0.0062, 0.0181, 0.0500, 0.1240, 0.2661, 0.5114 / +data ((cldnuctab( 1,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +0.0077, 0.0221, 0.0543, 0.1325, 0.2797, 0.5277, 0.8010, 0.9628, 0.9979, & +0.0038, 0.0108, 0.0294, 0.0748, 0.1813, 0.3674, 0.6234, 0.8793, 0.9858, & +0.0021, 0.0062, 0.0164, 0.0459, 0.1080, 0.2400, 0.4626, 0.7392, 0.9381, & +0.0009, 0.0030, 0.0087, 0.0243, 0.0639, 0.1508, 0.3223, 0.5761, 0.8334, & +0.0005, 0.0016, 0.0049, 0.0148, 0.0385, 0.1006, 0.2275, 0.4303, 0.6980, & +0.0002, 0.0009, 0.0026, 0.0077, 0.0243, 0.0639, 0.1508, 0.3223, 0.5601, & +0.0001, 0.0005, 0.0016, 0.0049, 0.0148, 0.0421, 0.1006, 0.2275, 0.4464 / +data ((cldnuctab( 1,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +0.0385, 0.1006, 0.2275, 0.4464, 0.7120, 0.9217, 0.9941, 0.9979, 0.9979, & +0.0243, 0.0639, 0.1606, 0.3371, 0.5920, 0.8334, 0.9717, 0.9979, 0.9979, & +0.0148, 0.0459, 0.1158, 0.2529, 0.4789, 0.7392, 0.9275, 0.9941, 0.9979, & +0.0097, 0.0294, 0.0807, 0.1923, 0.3829, 0.6388, 0.8622, 0.9787, 0.9979, & +0.0062, 0.0200, 0.0543, 0.1415, 0.2936, 0.5277, 0.7894, 0.9429, 0.9958, & +0.0043, 0.0133, 0.0385, 0.1006, 0.2275, 0.4464, 0.6689, 0.8622, 0.9766, & +0.0023, 0.0087, 0.0267, 0.0748, 0.1707, 0.3078, 0.4464, 0.5601, 0.7651 / +data ((cldnuctab( 1,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +0.0267, 0.0748, 0.1707, 0.3521, 0.6078, 0.8530, 0.9787, 0.9979, 0.9979, & +0.0164, 0.0459, 0.1158, 0.2529, 0.4789, 0.7392, 0.9330, 0.9953, 0.9979, & +0.0097, 0.0294, 0.0748, 0.1813, 0.3674, 0.6234, 0.8622, 0.9787, 0.9979, & +0.0062, 0.0181, 0.0500, 0.1325, 0.2797, 0.5114, 0.7651, 0.9429, 0.9958, & +0.0038, 0.0133, 0.0353, 0.0936, 0.2154, 0.4144, 0.6689, 0.8873, 0.9842, & +0.0023, 0.0077, 0.0243, 0.0692, 0.1606, 0.3371, 0.5761, 0.8010, 0.9517, & +0.0014, 0.0049, 0.0164, 0.0459, 0.1158, 0.2661, 0.4626, 0.6540, 0.8434 / +data ((cldnuctab( 1,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +0.0200, 0.0543, 0.1325, 0.2797, 0.5277, 0.7894, 0.9556, 0.9979, 0.9979, & +0.0120, 0.0322, 0.0870, 0.1923, 0.3829, 0.6540, 0.8793, 0.9858, 0.9979, & +0.0069, 0.0200, 0.0543, 0.1325, 0.2797, 0.5277, 0.7774, 0.9474, 0.9971, & +0.0038, 0.0120, 0.0353, 0.0936, 0.2036, 0.4144, 0.6689, 0.8873, 0.9842, & +0.0023, 0.0077, 0.0221, 0.0639, 0.1508, 0.3223, 0.5601, 0.8010, 0.9556, & +0.0014, 0.0049, 0.0148, 0.0421, 0.1080, 0.2400, 0.4626, 0.7120, 0.9091, & +0.0008, 0.0030, 0.0097, 0.0294, 0.0807, 0.1923, 0.3674, 0.6078, 0.8122 / +data ((cldnuctab( 1,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +0.0164, 0.0459, 0.1080, 0.2400, 0.4626, 0.7258, 0.9275, 0.9941, 0.9979, & +0.0087, 0.0267, 0.0692, 0.1606, 0.3223, 0.5761, 0.8230, 0.9689, 0.9979, & +0.0049, 0.0148, 0.0421, 0.1006, 0.2275, 0.4464, 0.6980, 0.9091, 0.9907, & +0.0030, 0.0087, 0.0243, 0.0692, 0.1606, 0.3371, 0.5761, 0.8230, 0.9660, & +0.0016, 0.0055, 0.0164, 0.0459, 0.1158, 0.2400, 0.4626, 0.7120, 0.9156, & +0.0009, 0.0034, 0.0097, 0.0294, 0.0807, 0.1813, 0.3674, 0.6078, 0.8434, & +0.0005, 0.0021, 0.0062, 0.0200, 0.0543, 0.1325, 0.2936, 0.5114, 0.7523 / +data ((cldnuctab( 1,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +0.0148, 0.0385, 0.0936, 0.2036, 0.4144, 0.6689, 0.8950, 0.9896, 0.9979, & +0.0077, 0.0221, 0.0543, 0.1325, 0.2797, 0.5114, 0.7774, 0.9517, 0.9971, & +0.0038, 0.0120, 0.0322, 0.0870, 0.1923, 0.3829, 0.6388, 0.8709, 0.9807, & +0.0023, 0.0069, 0.0200, 0.0543, 0.1240, 0.2797, 0.4951, 0.7523, 0.9381, & +0.0012, 0.0038, 0.0120, 0.0322, 0.0870, 0.1923, 0.3829, 0.6388, 0.8622, & +0.0007, 0.0023, 0.0069, 0.0221, 0.0589, 0.1415, 0.2936, 0.5277, 0.7774, & +0.0004, 0.0014, 0.0043, 0.0133, 0.0385, 0.1006, 0.2275, 0.4303, 0.6689 / +data ((cldnuctab( 1,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +0.0120, 0.0353, 0.0870, 0.1923, 0.3829, 0.6388, 0.8709, 0.9842, 0.9979, & +0.0069, 0.0181, 0.0500, 0.1158, 0.2529, 0.4789, 0.7392, 0.9330, 0.9947, & +0.0034, 0.0108, 0.0294, 0.0748, 0.1707, 0.3371, 0.5920, 0.8334, 0.9717, & +0.0018, 0.0055, 0.0164, 0.0459, 0.1080, 0.2400, 0.4464, 0.6980, 0.9091, & +0.0011, 0.0030, 0.0097, 0.0267, 0.0692, 0.1606, 0.3371, 0.5761, 0.8122, & +0.0005, 0.0018, 0.0055, 0.0164, 0.0459, 0.1158, 0.2400, 0.4464, 0.7120, & +0.0003, 0.0011, 0.0034, 0.0108, 0.0294, 0.0748, 0.1813, 0.3521, 0.5920 / +data ((cldnuctab( 1,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +0.0120, 0.0322, 0.0807, 0.1813, 0.3521, 0.6078, 0.8530, 0.9787, 0.9979, & +0.0062, 0.0164, 0.0459, 0.1080, 0.2400, 0.4464, 0.7120, 0.9156, 0.9926, & +0.0030, 0.0097, 0.0243, 0.0639, 0.1508, 0.3078, 0.5439, 0.8010, 0.9593, & +0.0016, 0.0049, 0.0148, 0.0385, 0.0936, 0.2154, 0.3985, 0.6689, 0.8873, & +0.0008, 0.0026, 0.0077, 0.0221, 0.0589, 0.1415, 0.2936, 0.5277, 0.7774, & +0.0005, 0.0016, 0.0049, 0.0133, 0.0385, 0.0936, 0.2036, 0.3985, 0.6540, & +0.0002, 0.0008, 0.0026, 0.0087, 0.0243, 0.0639, 0.1508, 0.3078, 0.5277 / +data ((cldnuctab( 1,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +0.0639, 0.1508, 0.3078, 0.5439, 0.7894, 0.9517, 0.9971, 0.9979, 0.9979, & +0.0385, 0.1006, 0.2275, 0.4303, 0.6836, 0.8873, 0.9842, 0.9979, 0.9979, & +0.0267, 0.0692, 0.1707, 0.3371, 0.5761, 0.8122, 0.9556, 0.9971, 0.9979, & +0.0181, 0.0500, 0.1240, 0.2661, 0.4789, 0.7258, 0.9156, 0.9885, 0.9979, & +0.0120, 0.0353, 0.0870, 0.2036, 0.3985, 0.6388, 0.8530, 0.9660, 0.9979, & +0.0069, 0.0221, 0.0639, 0.1508, 0.3223, 0.5439, 0.7523, 0.9091, 0.9872, & +0.0038, 0.0133, 0.0385, 0.1006, 0.2154, 0.3521, 0.4789, 0.5761, 0.8010 / +data ((cldnuctab( 1,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +0.0421, 0.1080, 0.2400, 0.4464, 0.6980, 0.9022, 0.9885, 0.9979, 0.9979, & +0.0267, 0.0692, 0.1606, 0.3371, 0.5761, 0.8122, 0.9593, 0.9977, 0.9979, & +0.0164, 0.0459, 0.1158, 0.2529, 0.4626, 0.7120, 0.9091, 0.9885, 0.9979, & +0.0108, 0.0322, 0.0807, 0.1923, 0.3674, 0.6078, 0.8434, 0.9660, 0.9979, & +0.0069, 0.0221, 0.0589, 0.1415, 0.2936, 0.5114, 0.7651, 0.9275, 0.9907, & +0.0043, 0.0133, 0.0385, 0.1006, 0.2275, 0.4303, 0.6689, 0.8709, 0.9717, & +0.0023, 0.0087, 0.0267, 0.0748, 0.1707, 0.3371, 0.5439, 0.7258, 0.8873 / +data ((cldnuctab( 1,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +0.0322, 0.0807, 0.1813, 0.3674, 0.6234, 0.8530, 0.9742, 0.9979, 0.9979, & +0.0200, 0.0500, 0.1240, 0.2661, 0.4789, 0.7392, 0.9275, 0.9926, 0.9979, & +0.0120, 0.0322, 0.0870, 0.1923, 0.3829, 0.6234, 0.8530, 0.9717, 0.9979, & +0.0069, 0.0200, 0.0543, 0.1415, 0.2936, 0.5114, 0.7523, 0.9275, 0.9917, & +0.0043, 0.0133, 0.0385, 0.1006, 0.2154, 0.4144, 0.6540, 0.8709, 0.9766, & +0.0026, 0.0087, 0.0267, 0.0692, 0.1606, 0.3371, 0.5601, 0.8010, 0.9429, & +0.0016, 0.0055, 0.0164, 0.0500, 0.1240, 0.2661, 0.4789, 0.6980, 0.8709 / +data ((cldnuctab( 1,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +0.0243, 0.0639, 0.1508, 0.3078, 0.5601, 0.8010, 0.9556, 0.9971, 0.9979, & +0.0148, 0.0385, 0.1006, 0.2154, 0.4144, 0.6689, 0.8873, 0.9842, 0.9979, & +0.0087, 0.0243, 0.0639, 0.1508, 0.3078, 0.5439, 0.7894, 0.9474, 0.9953, & +0.0049, 0.0148, 0.0421, 0.1006, 0.2275, 0.4303, 0.6689, 0.8793, 0.9807, & +0.0030, 0.0097, 0.0267, 0.0692, 0.1707, 0.3371, 0.5601, 0.8010, 0.9475, & +0.0018, 0.0055, 0.0181, 0.0500, 0.1240, 0.2529, 0.4626, 0.7120, 0.9022, & +0.0011, 0.0038, 0.0120, 0.0322, 0.0870, 0.1923, 0.3829, 0.6234, 0.8230 / +data ((cldnuctab( 1,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +0.0221, 0.0543, 0.1325, 0.2797, 0.4951, 0.7651, 0.9381, 0.9947, 0.9979, & +0.0120, 0.0322, 0.0807, 0.1813, 0.3674, 0.6078, 0.8530, 0.9717, 0.9979, & +0.0069, 0.0200, 0.0500, 0.1240, 0.2661, 0.4789, 0.7258, 0.9156, 0.9907, & +0.0038, 0.0120, 0.0322, 0.0807, 0.1813, 0.3674, 0.6078, 0.8334, 0.9660, & +0.0023, 0.0069, 0.0200, 0.0543, 0.1325, 0.2661, 0.4951, 0.7258, 0.9156, & +0.0014, 0.0043, 0.0133, 0.0353, 0.0936, 0.2036, 0.3829, 0.6234, 0.8434, & +0.0008, 0.0026, 0.0077, 0.0243, 0.0639, 0.1508, 0.3078, 0.5277, 0.7651 / +data ((cldnuctab( 1,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +0.0200, 0.0500, 0.1158, 0.2529, 0.4626, 0.7258, 0.9217, 0.9917, 0.9979, & +0.0108, 0.0294, 0.0748, 0.1606, 0.3371, 0.5761, 0.8230, 0.9628, 0.9974, & +0.0055, 0.0164, 0.0421, 0.1080, 0.2275, 0.4303, 0.6836, 0.8950, 0.9842, & +0.0030, 0.0097, 0.0267, 0.0692, 0.1508, 0.3078, 0.5439, 0.7894, 0.9474, & +0.0018, 0.0055, 0.0164, 0.0421, 0.1080, 0.2275, 0.4303, 0.6689, 0.8793, & +0.0011, 0.0034, 0.0097, 0.0294, 0.0748, 0.1606, 0.3223, 0.5601, 0.7894, & +0.0006, 0.0021, 0.0055, 0.0181, 0.0500, 0.1158, 0.2529, 0.4626, 0.6980 / +data ((cldnuctab( 1,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +0.0181, 0.0459, 0.1080, 0.2400, 0.4464, 0.6980, 0.9091, 0.9885, 0.9979, & +0.0097, 0.0267, 0.0639, 0.1508, 0.3078, 0.5439, 0.7894, 0.9517, 0.9963, & +0.0049, 0.0148, 0.0385, 0.0936, 0.2036, 0.3985, 0.6540, 0.8709, 0.9787, & +0.0026, 0.0077, 0.0221, 0.0589, 0.1325, 0.2797, 0.5114, 0.7523, 0.9330, & +0.0016, 0.0049, 0.0133, 0.0353, 0.0870, 0.2036, 0.3829, 0.6234, 0.8530, & +0.0008, 0.0026, 0.0087, 0.0221, 0.0589, 0.1415, 0.2797, 0.4951, 0.7392, & +0.0005, 0.0016, 0.0049, 0.0148, 0.0385, 0.1006, 0.2154, 0.3985, 0.6388 / +data ((cldnuctab( 1,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +0.0936, 0.2154, 0.3985, 0.6540, 0.8622, 0.9742, 0.9979, 0.9979, 0.9979, & +0.0639, 0.1508, 0.3078, 0.5439, 0.7774, 0.9381, 0.9926, 0.9979, 0.9979, & +0.0459, 0.1080, 0.2400, 0.4464, 0.6836, 0.8793, 0.9787, 0.9979, 0.9979, & +0.0294, 0.0807, 0.1813, 0.3521, 0.5920, 0.8122, 0.9517, 0.9947, 0.9979, & +0.0200, 0.0543, 0.1325, 0.2797, 0.5114, 0.7392, 0.9091, 0.9826, 0.9979, & +0.0108, 0.0353, 0.0936, 0.2154, 0.4144, 0.6388, 0.8230, 0.9429, 0.9941, & +0.0049, 0.0181, 0.0543, 0.1415, 0.2529, 0.3829, 0.4789, 0.5761, 0.8334 / +data ((cldnuctab( 1,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +0.0692, 0.1606, 0.3223, 0.5439, 0.7894, 0.9474, 0.9953, 0.9979, 0.9979, & +0.0459, 0.1080, 0.2400, 0.4303, 0.6836, 0.8873, 0.9807, 0.9979, 0.9979, & +0.0294, 0.0748, 0.1707, 0.3371, 0.5761, 0.8122, 0.9475, 0.9947, 0.9979, & +0.0181, 0.0543, 0.1240, 0.2661, 0.4789, 0.7258, 0.9022, 0.9826, 0.9979, & +0.0120, 0.0353, 0.0936, 0.2036, 0.3985, 0.6388, 0.8434, 0.9628, 0.9958, & +0.0069, 0.0221, 0.0639, 0.1508, 0.3223, 0.5439, 0.7651, 0.9217, 0.9858, & +0.0034, 0.0120, 0.0385, 0.1006, 0.2275, 0.4144, 0.6234, 0.7894, 0.9330 / +data ((cldnuctab( 1,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +0.0500, 0.1240, 0.2529, 0.4626, 0.7258, 0.9091, 0.9885, 0.9979, 0.9979, & +0.0322, 0.0807, 0.1813, 0.3521, 0.5920, 0.8230, 0.9593, 0.9967, 0.9979, & +0.0200, 0.0543, 0.1240, 0.2661, 0.4789, 0.7258, 0.9091, 0.9858, 0.9979, & +0.0120, 0.0353, 0.0936, 0.2036, 0.3829, 0.6234, 0.8434, 0.9628, 0.9967, & +0.0077, 0.0243, 0.0639, 0.1508, 0.3078, 0.5277, 0.7651, 0.9217, 0.9885, & +0.0049, 0.0148, 0.0421, 0.1080, 0.2400, 0.4464, 0.6836, 0.8709, 0.9689, & +0.0026, 0.0087, 0.0267, 0.0748, 0.1813, 0.3521, 0.5761, 0.7774, 0.9156 / +data ((cldnuctab( 1,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +0.0385, 0.0936, 0.2154, 0.4144, 0.6540, 0.8709, 0.9787, 0.9979, 0.9979, & +0.0243, 0.0639, 0.1415, 0.2936, 0.5277, 0.7651, 0.9330, 0.9926, 0.9979, & +0.0148, 0.0385, 0.1006, 0.2154, 0.3985, 0.6540, 0.8622, 0.9717, 0.9979, & +0.0087, 0.0243, 0.0692, 0.1508, 0.3078, 0.5439, 0.7774, 0.9330, 0.9907, & +0.0055, 0.0164, 0.0459, 0.1080, 0.2400, 0.4303, 0.6836, 0.8709, 0.9742, & +0.0034, 0.0108, 0.0294, 0.0807, 0.1813, 0.3521, 0.5761, 0.8010, 0.9429, & +0.0018, 0.0062, 0.0181, 0.0543, 0.1325, 0.2797, 0.4951, 0.7258, 0.8873 / +data ((cldnuctab( 1,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +0.0322, 0.0807, 0.1813, 0.3674, 0.6078, 0.8434, 0.9689, 0.9977, 0.9979, & +0.0200, 0.0500, 0.1240, 0.2529, 0.4626, 0.7120, 0.9091, 0.9872, 0.9979, & +0.0120, 0.0322, 0.0807, 0.1813, 0.3521, 0.5920, 0.8122, 0.9556, 0.9958, & +0.0069, 0.0200, 0.0500, 0.1240, 0.2529, 0.4626, 0.7120, 0.8950, 0.9826, & +0.0038, 0.0120, 0.0353, 0.0870, 0.1923, 0.3674, 0.5920, 0.8230, 0.9556, & +0.0026, 0.0077, 0.0221, 0.0589, 0.1415, 0.2797, 0.4951, 0.7392, 0.9091, & +0.0014, 0.0043, 0.0133, 0.0385, 0.1006, 0.2154, 0.4144, 0.6388, 0.8434 / +data ((cldnuctab( 1,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +0.0294, 0.0748, 0.1707, 0.3371, 0.5761, 0.8122, 0.9593, 0.9967, 0.9979, & +0.0164, 0.0421, 0.1080, 0.2275, 0.4303, 0.6836, 0.8873, 0.9807, 0.9979, & +0.0097, 0.0267, 0.0692, 0.1508, 0.3078, 0.5277, 0.7774, 0.9381, 0.9934, & +0.0055, 0.0164, 0.0421, 0.1006, 0.2154, 0.4144, 0.6540, 0.8622, 0.9742, & +0.0034, 0.0097, 0.0267, 0.0692, 0.1606, 0.3078, 0.5277, 0.7651, 0.9330, & +0.0021, 0.0062, 0.0164, 0.0459, 0.1080, 0.2400, 0.4303, 0.6689, 0.8709, & +0.0011, 0.0034, 0.0108, 0.0294, 0.0748, 0.1707, 0.3371, 0.5761, 0.7894 / +data ((cldnuctab( 1,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +0.0267, 0.0692, 0.1508, 0.3078, 0.5439, 0.7894, 0.9517, 0.9953, 0.9979, & +0.0148, 0.0385, 0.0936, 0.2036, 0.3985, 0.6540, 0.8709, 0.9766, 0.9979, & +0.0087, 0.0221, 0.0589, 0.1325, 0.2797, 0.4951, 0.7523, 0.9275, 0.9907, & +0.0049, 0.0133, 0.0353, 0.0870, 0.1923, 0.3674, 0.6078, 0.8334, 0.9628, & +0.0026, 0.0087, 0.0221, 0.0589, 0.1325, 0.2797, 0.4951, 0.7258, 0.9091, & +0.0016, 0.0049, 0.0148, 0.0385, 0.0936, 0.2036, 0.3829, 0.6078, 0.8334, & +0.0009, 0.0030, 0.0087, 0.0243, 0.0639, 0.1508, 0.2936, 0.5114, 0.7392 / +data ((cldnuctab( 1,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +0.1240, 0.2529, 0.4626, 0.7120, 0.9022, 0.9842, 0.9979, 0.9979, 0.9979, & +0.0870, 0.1923, 0.3674, 0.6078, 0.8230, 0.9556, 0.9958, 0.9979, 0.9979, & +0.0589, 0.1415, 0.2936, 0.5114, 0.7392, 0.9156, 0.9858, 0.9979, 0.9979, & +0.0421, 0.1006, 0.2275, 0.4144, 0.6540, 0.8622, 0.9689, 0.9967, 0.9979, & +0.0267, 0.0692, 0.1707, 0.3371, 0.5761, 0.7894, 0.9381, 0.9896, 0.9979, & +0.0133, 0.0421, 0.1158, 0.2529, 0.4626, 0.6836, 0.8622, 0.9593, 0.9963, & +0.0055, 0.0200, 0.0639, 0.1508, 0.2797, 0.3985, 0.4951, 0.5114, 0.8709 / +data ((cldnuctab( 1,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +0.0870, 0.1923, 0.3829, 0.6234, 0.8434, 0.9660, 0.9971, 0.9979, 0.9979, & +0.0589, 0.1415, 0.2797, 0.5114, 0.7392, 0.9156, 0.9872, 0.9979, 0.9979, & +0.0385, 0.1006, 0.2154, 0.3985, 0.6388, 0.8530, 0.9660, 0.9971, 0.9979, & +0.0267, 0.0692, 0.1606, 0.3223, 0.5439, 0.7774, 0.9330, 0.9896, 0.9979, & +0.0164, 0.0459, 0.1158, 0.2529, 0.4626, 0.6980, 0.8873, 0.9742, 0.9977, & +0.0097, 0.0294, 0.0807, 0.1923, 0.3829, 0.6078, 0.8230, 0.9429, 0.9917, & +0.0043, 0.0148, 0.0459, 0.1240, 0.2661, 0.4626, 0.6689, 0.8230, 0.9474 / +data ((cldnuctab( 1,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +0.0639, 0.1508, 0.3078, 0.5277, 0.7774, 0.9381, 0.9926, 0.9979, 0.9979, & +0.0421, 0.1006, 0.2275, 0.4144, 0.6540, 0.8709, 0.9742, 0.9979, 0.9979, & +0.0267, 0.0692, 0.1606, 0.3223, 0.5439, 0.7774, 0.9381, 0.9917, 0.9979, & +0.0181, 0.0500, 0.1158, 0.2529, 0.4464, 0.6836, 0.8793, 0.9766, 0.9979, & +0.0108, 0.0322, 0.0807, 0.1923, 0.3674, 0.5920, 0.8122, 0.9475, 0.9934, & +0.0062, 0.0200, 0.0543, 0.1415, 0.2936, 0.5114, 0.7392, 0.9091, 0.9807, & +0.0030, 0.0097, 0.0322, 0.0936, 0.2154, 0.4144, 0.6388, 0.8230, 0.9429 / +data ((cldnuctab( 1,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +0.0500, 0.1240, 0.2529, 0.4626, 0.7120, 0.9091, 0.9872, 0.9979, 0.9979, & +0.0322, 0.0807, 0.1813, 0.3521, 0.5920, 0.8230, 0.9556, 0.9958, 0.9979, & +0.0200, 0.0543, 0.1240, 0.2661, 0.4626, 0.7120, 0.9022, 0.9826, 0.9979, & +0.0120, 0.0353, 0.0870, 0.1923, 0.3674, 0.6078, 0.8230, 0.9556, 0.9947, & +0.0077, 0.0221, 0.0589, 0.1415, 0.2936, 0.5114, 0.7392, 0.9091, 0.9842, & +0.0049, 0.0148, 0.0385, 0.1006, 0.2275, 0.4144, 0.6540, 0.8530, 0.9628, & +0.0023, 0.0077, 0.0243, 0.0639, 0.1606, 0.3371, 0.5601, 0.7774, 0.9217 / +data ((cldnuctab( 1,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +0.0421, 0.1006, 0.2275, 0.4144, 0.6689, 0.8793, 0.9787, 0.9979, 0.9979, & +0.0267, 0.0639, 0.1508, 0.3078, 0.5277, 0.7774, 0.9381, 0.9926, 0.9979, & +0.0164, 0.0421, 0.1006, 0.2154, 0.4144, 0.6540, 0.8622, 0.9717, 0.9977, & +0.0097, 0.0267, 0.0692, 0.1508, 0.3078, 0.5277, 0.7651, 0.9275, 0.9896, & +0.0055, 0.0164, 0.0459, 0.1080, 0.2400, 0.4303, 0.6689, 0.8622, 0.9689, & +0.0034, 0.0108, 0.0294, 0.0748, 0.1707, 0.3371, 0.5601, 0.7894, 0.9381, & +0.0018, 0.0055, 0.0181, 0.0500, 0.1240, 0.2661, 0.4789, 0.7120, 0.8793 / +data ((cldnuctab( 1,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +0.0385, 0.0936, 0.2036, 0.3829, 0.6388, 0.8622, 0.9742, 0.9979, 0.9979, & +0.0221, 0.0543, 0.1325, 0.2661, 0.4951, 0.7392, 0.9217, 0.9885, 0.9979, & +0.0133, 0.0353, 0.0870, 0.1923, 0.3674, 0.6078, 0.8230, 0.9593, 0.9963, & +0.0077, 0.0221, 0.0543, 0.1325, 0.2661, 0.4789, 0.7120, 0.9022, 0.9842, & +0.0043, 0.0133, 0.0353, 0.0870, 0.1923, 0.3674, 0.6078, 0.8230, 0.9517, & +0.0026, 0.0087, 0.0243, 0.0589, 0.1415, 0.2936, 0.4951, 0.7258, 0.9022, & +0.0016, 0.0049, 0.0133, 0.0385, 0.1006, 0.2154, 0.3985, 0.6388, 0.8434 / +data ((cldnuctab( 1,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +0.0353, 0.0870, 0.1923, 0.3674, 0.6078, 0.8434, 0.9660, 0.9974, 0.9979, & +0.0200, 0.0500, 0.1158, 0.2529, 0.4626, 0.7120, 0.9022, 0.9858, 0.9979, & +0.0108, 0.0294, 0.0748, 0.1707, 0.3371, 0.5601, 0.8010, 0.9474, 0.9947, & +0.0069, 0.0181, 0.0459, 0.1158, 0.2400, 0.4303, 0.6689, 0.8793, 0.9766, & +0.0038, 0.0120, 0.0294, 0.0748, 0.1707, 0.3371, 0.5601, 0.7894, 0.9381, & +0.0023, 0.0069, 0.0200, 0.0500, 0.1158, 0.2529, 0.4464, 0.6836, 0.8709, & +0.0012, 0.0038, 0.0120, 0.0322, 0.0807, 0.1813, 0.3521, 0.5761, 0.8010 / +data ((cldnuctab( 1,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +0.1415, 0.2936, 0.5114, 0.7523, 0.9217, 0.9885, 0.9979, 0.9979, 0.9979, & +0.1006, 0.2275, 0.4144, 0.6540, 0.8622, 0.9689, 0.9971, 0.9979, 0.9979, & +0.0748, 0.1707, 0.3371, 0.5601, 0.7894, 0.9330, 0.9907, 0.9979, 0.9979, & +0.0500, 0.1240, 0.2661, 0.4626, 0.6980, 0.8873, 0.9766, 0.9979, 0.9979, & +0.0294, 0.0807, 0.1923, 0.3829, 0.6234, 0.8334, 0.9517, 0.9926, 0.9979, & +0.0148, 0.0459, 0.1325, 0.2936, 0.5114, 0.7258, 0.8873, 0.9717, 0.9977, & +0.0062, 0.0221, 0.0692, 0.1707, 0.2797, 0.4144, 0.5114, 0.5277, 0.8530 / +data ((cldnuctab( 1,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +0.1006, 0.2275, 0.4144, 0.6689, 0.8709, 0.9742, 0.9979, 0.9979, 0.9979, & +0.0692, 0.1606, 0.3223, 0.5439, 0.7894, 0.9381, 0.9917, 0.9979, 0.9979, & +0.0500, 0.1158, 0.2529, 0.4464, 0.6836, 0.8793, 0.9766, 0.9979, 0.9979, & +0.0322, 0.0870, 0.1923, 0.3674, 0.5920, 0.8122, 0.9474, 0.9934, 0.9979, & +0.0200, 0.0589, 0.1415, 0.2936, 0.5114, 0.7392, 0.9091, 0.9826, 0.9979, & +0.0108, 0.0322, 0.0936, 0.2154, 0.4144, 0.6540, 0.8530, 0.9556, 0.9941, & +0.0043, 0.0148, 0.0500, 0.1415, 0.2936, 0.4951, 0.6836, 0.8530, 0.9593 / +data ((cldnuctab( 1,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +0.0748, 0.1707, 0.3521, 0.5761, 0.8122, 0.9517, 0.9953, 0.9979, 0.9979, & +0.0500, 0.1240, 0.2529, 0.4626, 0.7120, 0.8950, 0.9807, 0.9979, 0.9979, & +0.0322, 0.0870, 0.1923, 0.3674, 0.5920, 0.8230, 0.9517, 0.9941, 0.9979, & +0.0221, 0.0589, 0.1415, 0.2797, 0.4951, 0.7392, 0.9091, 0.9826, 0.9979, & +0.0133, 0.0385, 0.1006, 0.2154, 0.4144, 0.6388, 0.8434, 0.9628, 0.9953, & +0.0077, 0.0243, 0.0639, 0.1606, 0.3223, 0.5601, 0.7774, 0.9275, 0.9872, & +0.0034, 0.0108, 0.0353, 0.1006, 0.2400, 0.4464, 0.6689, 0.8530, 0.9517 / +data ((cldnuctab( 1,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +0.0589, 0.1415, 0.2936, 0.5114, 0.7523, 0.9275, 0.9907, 0.9979, 0.9979, & +0.0385, 0.0936, 0.2036, 0.3985, 0.6388, 0.8530, 0.9689, 0.9971, 0.9979, & +0.0243, 0.0639, 0.1508, 0.2936, 0.5114, 0.7523, 0.9217, 0.9885, 0.9979, & +0.0164, 0.0421, 0.1006, 0.2275, 0.4144, 0.6540, 0.8530, 0.9660, 0.9967, & +0.0097, 0.0267, 0.0748, 0.1707, 0.3371, 0.5601, 0.7774, 0.9330, 0.9885, & +0.0055, 0.0164, 0.0500, 0.1158, 0.2529, 0.4626, 0.6980, 0.8793, 0.9717, & +0.0026, 0.0087, 0.0267, 0.0748, 0.1813, 0.3674, 0.6078, 0.8122, 0.9381 / +data ((cldnuctab( 1,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +0.0500, 0.1240, 0.2529, 0.4626, 0.7120, 0.9091, 0.9858, 0.9979, 0.9979, & +0.0322, 0.0807, 0.1707, 0.3371, 0.5761, 0.8122, 0.9517, 0.9947, 0.9979, & +0.0200, 0.0500, 0.1158, 0.2529, 0.4464, 0.6980, 0.8873, 0.9787, 0.9979, & +0.0120, 0.0322, 0.0807, 0.1813, 0.3521, 0.5761, 0.8010, 0.9474, 0.9934, & +0.0077, 0.0200, 0.0543, 0.1325, 0.2661, 0.4789, 0.7120, 0.8950, 0.9787, & +0.0043, 0.0133, 0.0353, 0.0936, 0.2036, 0.3829, 0.6078, 0.8230, 0.9517, & +0.0021, 0.0069, 0.0200, 0.0589, 0.1415, 0.2936, 0.5114, 0.7523, 0.9091 / +data ((cldnuctab( 1,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +0.0459, 0.1080, 0.2275, 0.4303, 0.6836, 0.8873, 0.9807, 0.9979, 0.9979, & +0.0267, 0.0692, 0.1508, 0.3078, 0.5277, 0.7774, 0.9381, 0.9926, 0.9979, & +0.0164, 0.0421, 0.1006, 0.2154, 0.3985, 0.6388, 0.8622, 0.9717, 0.9974, & +0.0097, 0.0267, 0.0639, 0.1508, 0.3078, 0.5277, 0.7523, 0.9217, 0.9885, & +0.0062, 0.0181, 0.0421, 0.1080, 0.2275, 0.4144, 0.6540, 0.8530, 0.9660, & +0.0034, 0.0108, 0.0294, 0.0748, 0.1606, 0.3223, 0.5439, 0.7774, 0.9275, & +0.0018, 0.0055, 0.0164, 0.0459, 0.1158, 0.2529, 0.4464, 0.6836, 0.8709 / +data ((cldnuctab( 1,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +0.0421, 0.1006, 0.2154, 0.3985, 0.6540, 0.8709, 0.9766, 0.9979, 0.9979, & +0.0243, 0.0589, 0.1415, 0.2797, 0.4951, 0.7523, 0.9275, 0.9896, 0.9979, & +0.0133, 0.0353, 0.0870, 0.1923, 0.3674, 0.6078, 0.8334, 0.9628, 0.9963, & +0.0087, 0.0221, 0.0589, 0.1325, 0.2661, 0.4789, 0.7258, 0.9022, 0.9842, & +0.0049, 0.0148, 0.0385, 0.0936, 0.1923, 0.3674, 0.6078, 0.8230, 0.9517, & +0.0030, 0.0087, 0.0243, 0.0589, 0.1415, 0.2797, 0.4951, 0.7258, 0.9022, & +0.0016, 0.0043, 0.0133, 0.0385, 0.0936, 0.2154, 0.3985, 0.6234, 0.8334 / +data ((cldnuctab( 1,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +0.1606, 0.3223, 0.5439, 0.7894, 0.9381, 0.9917, 0.9979, 0.9979, 0.9979, & +0.1158, 0.2529, 0.4464, 0.6836, 0.8793, 0.9766, 0.9979, 0.9979, 0.9979, & +0.0807, 0.1923, 0.3674, 0.5920, 0.8122, 0.9475, 0.9934, 0.9979, 0.9979, & +0.0589, 0.1415, 0.2936, 0.5114, 0.7392, 0.9091, 0.9826, 0.9979, 0.9979, & +0.0322, 0.0936, 0.2154, 0.4144, 0.6540, 0.8530, 0.9593, 0.9947, 0.9979, & +0.0164, 0.0500, 0.1415, 0.3078, 0.5277, 0.7523, 0.9022, 0.9766, 0.9979, & +0.0062, 0.0221, 0.0748, 0.1707, 0.2797, 0.3829, 0.4464, 0.5439, 0.8709 / +data ((cldnuctab( 1,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +0.1158, 0.2529, 0.4626, 0.6980, 0.8950, 0.9807, 0.9979, 0.9979, 0.9979, & +0.0807, 0.1813, 0.3521, 0.5920, 0.8122, 0.9474, 0.9941, 0.9979, 0.9979, & +0.0543, 0.1325, 0.2797, 0.4951, 0.7258, 0.9022, 0.9807, 0.9979, 0.9979, & +0.0385, 0.0936, 0.2154, 0.3985, 0.6388, 0.8434, 0.9593, 0.9947, 0.9979, & +0.0221, 0.0639, 0.1606, 0.3223, 0.5439, 0.7774, 0.9275, 0.9858, 0.9979, & +0.0120, 0.0353, 0.1006, 0.2400, 0.4464, 0.6836, 0.8709, 0.9660, 0.9958, & +0.0049, 0.0164, 0.0543, 0.1508, 0.3078, 0.5114, 0.7120, 0.8709, 0.9689 / +data ((cldnuctab( 1,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +0.0870, 0.1923, 0.3829, 0.6234, 0.8434, 0.9628, 0.9967, 0.9979, 0.9979, & +0.0589, 0.1415, 0.2797, 0.4951, 0.7392, 0.9156, 0.9858, 0.9979, 0.9979, & +0.0385, 0.1006, 0.2154, 0.3985, 0.6388, 0.8434, 0.9628, 0.9958, 0.9979, & +0.0267, 0.0692, 0.1606, 0.3223, 0.5439, 0.7651, 0.9217, 0.9872, 0.9979, & +0.0164, 0.0459, 0.1158, 0.2400, 0.4464, 0.6836, 0.8709, 0.9689, 0.9967, & +0.0087, 0.0267, 0.0748, 0.1813, 0.3674, 0.5920, 0.8122, 0.9429, 0.9896, & +0.0034, 0.0120, 0.0385, 0.1080, 0.2661, 0.4789, 0.6980, 0.8709, 0.9628 / +data ((cldnuctab( 1,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +0.0692, 0.1606, 0.3223, 0.5439, 0.7894, 0.9429, 0.9934, 0.9979, 0.9979, & +0.0459, 0.1080, 0.2275, 0.4303, 0.6689, 0.8709, 0.9742, 0.9979, 0.9979, & +0.0294, 0.0748, 0.1707, 0.3223, 0.5601, 0.7894, 0.9381, 0.9907, 0.9979, & +0.0181, 0.0500, 0.1158, 0.2529, 0.4464, 0.6836, 0.8793, 0.9742, 0.9977, & +0.0120, 0.0322, 0.0870, 0.1923, 0.3674, 0.5920, 0.8122, 0.9429, 0.9917, & +0.0062, 0.0200, 0.0543, 0.1325, 0.2797, 0.4951, 0.7258, 0.9022, 0.9787, & +0.0026, 0.0087, 0.0294, 0.0807, 0.2036, 0.3985, 0.6388, 0.8334, 0.9474 / +data ((cldnuctab( 1,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +0.0589, 0.1325, 0.2797, 0.4951, 0.7392, 0.9217, 0.9896, 0.9979, 0.9979, & +0.0353, 0.0870, 0.1923, 0.3674, 0.6078, 0.8334, 0.9628, 0.9963, 0.9979, & +0.0221, 0.0589, 0.1325, 0.2797, 0.4951, 0.7258, 0.9091, 0.9842, 0.9979, & +0.0133, 0.0385, 0.0936, 0.2036, 0.3829, 0.6234, 0.8334, 0.9556, 0.9947, & +0.0087, 0.0243, 0.0639, 0.1508, 0.2936, 0.5114, 0.7392, 0.9091, 0.9842, & +0.0049, 0.0148, 0.0421, 0.1006, 0.2275, 0.4144, 0.6540, 0.8530, 0.9628, & +0.0023, 0.0069, 0.0221, 0.0639, 0.1606, 0.3223, 0.5601, 0.7774, 0.9217 / +data ((cldnuctab( 1,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +0.0500, 0.1240, 0.2529, 0.4626, 0.7120, 0.9091, 0.9858, 0.9979, 0.9979, & +0.0322, 0.0748, 0.1707, 0.3371, 0.5761, 0.8010, 0.9517, 0.9947, 0.9979, & +0.0181, 0.0500, 0.1158, 0.2400, 0.4464, 0.6836, 0.8793, 0.9766, 0.9979, & +0.0120, 0.0322, 0.0748, 0.1707, 0.3371, 0.5601, 0.7894, 0.9381, 0.9917, & +0.0069, 0.0200, 0.0500, 0.1240, 0.2529, 0.4464, 0.6836, 0.8793, 0.9742, & +0.0038, 0.0120, 0.0322, 0.0870, 0.1813, 0.3521, 0.5761, 0.8010, 0.9381, & +0.0018, 0.0062, 0.0181, 0.0500, 0.1240, 0.2661, 0.4789, 0.7120, 0.8873 / +data ((cldnuctab( 1,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +0.0459, 0.1080, 0.2400, 0.4303, 0.6836, 0.8950, 0.9826, 0.9979, 0.9979, & +0.0267, 0.0692, 0.1508, 0.3078, 0.5439, 0.7774, 0.9381, 0.9926, 0.9979, & +0.0164, 0.0421, 0.1006, 0.2154, 0.3985, 0.6388, 0.8622, 0.9717, 0.9974, & +0.0097, 0.0267, 0.0692, 0.1508, 0.2936, 0.5114, 0.7523, 0.9217, 0.9885, & +0.0062, 0.0164, 0.0421, 0.1006, 0.2154, 0.3985, 0.6388, 0.8434, 0.9628, & +0.0034, 0.0097, 0.0267, 0.0692, 0.1606, 0.3078, 0.5277, 0.7523, 0.9156, & +0.0016, 0.0049, 0.0148, 0.0421, 0.1080, 0.2275, 0.4303, 0.6540, 0.8530 / +data ((cldnuctab( 2,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +0.0998, 0.2261, 0.4285, 0.6819, 0.9014, 0.9870, 0.9997, 0.9999, 0.9999, & +0.0685, 0.1594, 0.3353, 0.5742, 0.8217, 0.9624, 0.9974, 0.9999, 0.9999, & +0.0454, 0.1149, 0.2514, 0.4770, 0.7242, 0.9148, 0.9895, 0.9997, 0.9999, & +0.0318, 0.0800, 0.1910, 0.3810, 0.6370, 0.8519, 0.9714, 0.9982, 0.9999, & +0.0198, 0.0584, 0.1404, 0.3061, 0.5420, 0.7760, 0.9375, 0.9924, 0.9998, & +0.0118, 0.0349, 0.0998, 0.2261, 0.4285, 0.6672, 0.8611, 0.9624, 0.9980, & +0.0054, 0.0179, 0.0584, 0.1404, 0.2645, 0.3967, 0.4932, 0.4932, 0.8611 / +data ((cldnuctab( 2,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +0.0685, 0.1594, 0.3353, 0.5742, 0.8322, 0.9686, 0.9984, 0.9999, 0.9999, & +0.0454, 0.1149, 0.2514, 0.4607, 0.7242, 0.9148, 0.9906, 0.9998, 0.9999, & +0.0290, 0.0800, 0.1800, 0.3656, 0.6060, 0.8422, 0.9686, 0.9982, 0.9999, & +0.0198, 0.0538, 0.1315, 0.2781, 0.5095, 0.7636, 0.9323, 0.9924, 0.9998, & +0.0131, 0.0381, 0.0998, 0.2140, 0.4125, 0.6672, 0.8784, 0.9785, 0.9988, & +0.0076, 0.0240, 0.0685, 0.1594, 0.3353, 0.5742, 0.8109, 0.9469, 0.9940, & +0.0038, 0.0118, 0.0381, 0.1071, 0.2385, 0.4445, 0.6522, 0.8322, 0.9469 / +data ((cldnuctab( 2,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +0.0494, 0.1230, 0.2645, 0.4932, 0.7508, 0.9375, 0.9946, 0.9999, 0.9999, & +0.0318, 0.0800, 0.1910, 0.3810, 0.6216, 0.8611, 0.9763, 0.9989, 0.9999, & +0.0198, 0.0538, 0.1315, 0.2781, 0.5095, 0.7636, 0.9375, 0.9940, 0.9998, & +0.0131, 0.0381, 0.0928, 0.2140, 0.4125, 0.6522, 0.8699, 0.9785, 0.9989, & +0.0085, 0.0240, 0.0633, 0.1594, 0.3206, 0.5582, 0.7996, 0.9469, 0.9952, & +0.0048, 0.0162, 0.0454, 0.1149, 0.2514, 0.4607, 0.7104, 0.9014, 0.9840, & +0.0026, 0.0085, 0.0264, 0.0741, 0.1800, 0.3656, 0.6060, 0.8109, 0.9424 / +data ((cldnuctab( 2,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +0.0416, 0.0998, 0.2261, 0.4285, 0.6819, 0.9014, 0.9883, 0.9997, 0.9999, & +0.0240, 0.0633, 0.1497, 0.3061, 0.5420, 0.7996, 0.9552, 0.9970, 0.9999, & +0.0146, 0.0416, 0.0998, 0.2261, 0.4285, 0.6819, 0.8941, 0.9840, 0.9994, & +0.0095, 0.0264, 0.0685, 0.1594, 0.3206, 0.5582, 0.8109, 0.9552, 0.9962, & +0.0054, 0.0162, 0.0454, 0.1149, 0.2514, 0.4607, 0.7104, 0.9014, 0.9856, & +0.0033, 0.0106, 0.0318, 0.0800, 0.1910, 0.3656, 0.6060, 0.8422, 0.9624, & +0.0020, 0.0061, 0.0198, 0.0538, 0.1404, 0.2919, 0.5095, 0.7508, 0.9148 / +data ((cldnuctab( 2,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +0.0349, 0.0862, 0.1910, 0.3810, 0.6370, 0.8699, 0.9805, 0.9993, 0.9999, & +0.0198, 0.0538, 0.1230, 0.2645, 0.4932, 0.7508, 0.9323, 0.9940, 0.9998, & +0.0118, 0.0318, 0.0800, 0.1800, 0.3656, 0.6060, 0.8422, 0.9714, 0.9986, & +0.0068, 0.0198, 0.0538, 0.1230, 0.2645, 0.4932, 0.7377, 0.9210, 0.9916, & +0.0042, 0.0118, 0.0349, 0.0862, 0.2023, 0.3810, 0.6216, 0.8519, 0.9714, & +0.0026, 0.0076, 0.0218, 0.0584, 0.1404, 0.2919, 0.5258, 0.7636, 0.9323, & +0.0015, 0.0048, 0.0146, 0.0416, 0.0998, 0.2261, 0.4285, 0.6672, 0.8699 / +data ((cldnuctab( 2,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +0.0290, 0.0741, 0.1695, 0.3503, 0.5902, 0.8422, 0.9739, 0.9988, 0.9999, & +0.0162, 0.0454, 0.1071, 0.2385, 0.4445, 0.7104, 0.9083, 0.9906, 0.9997, & +0.0095, 0.0264, 0.0685, 0.1594, 0.3206, 0.5582, 0.8109, 0.9589, 0.9970, & +0.0054, 0.0162, 0.0416, 0.1071, 0.2261, 0.4285, 0.6819, 0.8941, 0.9840, & +0.0033, 0.0095, 0.0264, 0.0685, 0.1594, 0.3206, 0.5582, 0.7996, 0.9512, & +0.0020, 0.0061, 0.0179, 0.0454, 0.1149, 0.2514, 0.4445, 0.6963, 0.8941, & +0.0012, 0.0038, 0.0106, 0.0318, 0.0800, 0.1800, 0.3656, 0.5902, 0.8217 / +data ((cldnuctab( 2,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +0.0264, 0.0685, 0.1594, 0.3206, 0.5742, 0.8217, 0.9656, 0.9982, 0.9999, & +0.0146, 0.0416, 0.0998, 0.2140, 0.4125, 0.6672, 0.8941, 0.9870, 0.9995, & +0.0085, 0.0240, 0.0584, 0.1404, 0.2919, 0.5258, 0.7760, 0.9469, 0.9957, & +0.0048, 0.0146, 0.0381, 0.0928, 0.2023, 0.3810, 0.6370, 0.8611, 0.9763, & +0.0029, 0.0085, 0.0240, 0.0584, 0.1404, 0.2919, 0.5095, 0.7508, 0.9323, & +0.0015, 0.0048, 0.0146, 0.0381, 0.0928, 0.2140, 0.3967, 0.6370, 0.8611, & +0.0010, 0.0029, 0.0085, 0.0240, 0.0633, 0.1497, 0.3061, 0.5258, 0.7636 / +data ((cldnuctab( 2,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +0.1497, 0.3061, 0.5258, 0.7760, 0.9375, 0.9932, 0.9998, 0.9999, 0.9999, & +0.1071, 0.2261, 0.4285, 0.6672, 0.8784, 0.9785, 0.9988, 0.9999, 0.9999, & +0.0741, 0.1695, 0.3353, 0.5742, 0.7996, 0.9469, 0.9946, 0.9998, 0.9999, & +0.0494, 0.1230, 0.2645, 0.4770, 0.7242, 0.9083, 0.9840, 0.9990, 0.9999, & +0.0290, 0.0862, 0.2023, 0.3967, 0.6370, 0.8519, 0.9624, 0.9962, 0.9999, & +0.0146, 0.0494, 0.1315, 0.2919, 0.5258, 0.7377, 0.9014, 0.9785, 0.9988, & +0.0061, 0.0218, 0.0685, 0.1695, 0.2781, 0.4125, 0.4445, 0.5258, 0.8699 / +data ((cldnuctab( 2,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +0.1071, 0.2261, 0.4285, 0.6819, 0.8864, 0.9823, 0.9992, 0.9999, 0.9999, & +0.0741, 0.1695, 0.3353, 0.5582, 0.7996, 0.9512, 0.9952, 0.9999, 0.9999, & +0.0494, 0.1230, 0.2514, 0.4607, 0.7104, 0.9014, 0.9823, 0.9990, 0.9999, & +0.0318, 0.0862, 0.1910, 0.3810, 0.6060, 0.8322, 0.9589, 0.9962, 0.9999, & +0.0198, 0.0584, 0.1404, 0.2919, 0.5258, 0.7508, 0.9210, 0.9883, 0.9994, & +0.0106, 0.0349, 0.0928, 0.2261, 0.4285, 0.6672, 0.8699, 0.9656, 0.9967, & +0.0048, 0.0162, 0.0494, 0.1404, 0.2919, 0.5095, 0.6963, 0.8611, 0.9686 / +data ((cldnuctab( 2,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +0.0800, 0.1800, 0.3503, 0.5902, 0.8322, 0.9624, 0.9974, 0.9999, 0.9999, & +0.0494, 0.1230, 0.2645, 0.4770, 0.7242, 0.9083, 0.9870, 0.9995, 0.9999, & +0.0349, 0.0862, 0.1910, 0.3810, 0.6060, 0.8322, 0.9624, 0.9967, 0.9999, & +0.0218, 0.0584, 0.1404, 0.2919, 0.5095, 0.7508, 0.9210, 0.9883, 0.9994, & +0.0146, 0.0381, 0.0998, 0.2261, 0.4125, 0.6522, 0.8611, 0.9714, 0.9974, & +0.0076, 0.0240, 0.0685, 0.1594, 0.3353, 0.5742, 0.7996, 0.9375, 0.9916, & +0.0033, 0.0118, 0.0349, 0.1071, 0.2385, 0.4607, 0.6819, 0.8611, 0.9624 / +data ((cldnuctab( 2,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +0.0633, 0.1404, 0.2919, 0.5258, 0.7760, 0.9424, 0.9940, 0.9998, 0.9999, & +0.0381, 0.0928, 0.2140, 0.3967, 0.6522, 0.8611, 0.9763, 0.9986, 0.9999, & +0.0240, 0.0633, 0.1497, 0.3061, 0.5258, 0.7636, 0.9323, 0.9924, 0.9997, & +0.0162, 0.0416, 0.1071, 0.2261, 0.4285, 0.6672, 0.8699, 0.9739, 0.9982, & +0.0095, 0.0290, 0.0741, 0.1695, 0.3353, 0.5582, 0.7996, 0.9424, 0.9924, & +0.0054, 0.0179, 0.0494, 0.1230, 0.2645, 0.4770, 0.7104, 0.8941, 0.9805, & +0.0026, 0.0085, 0.0264, 0.0741, 0.1910, 0.3810, 0.6060, 0.8217, 0.9469 / +data ((cldnuctab( 2,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +0.0494, 0.1230, 0.2645, 0.4770, 0.7242, 0.9210, 0.9906, 0.9997, 0.9999, & +0.0318, 0.0800, 0.1800, 0.3503, 0.5902, 0.8217, 0.9624, 0.9970, 0.9999, & +0.0198, 0.0494, 0.1230, 0.2514, 0.4607, 0.7104, 0.9014, 0.9856, 0.9993, & +0.0118, 0.0318, 0.0800, 0.1800, 0.3503, 0.5902, 0.8217, 0.9552, 0.9957, & +0.0076, 0.0218, 0.0538, 0.1315, 0.2781, 0.4932, 0.7242, 0.9083, 0.9840, & +0.0042, 0.0131, 0.0349, 0.0928, 0.2023, 0.3967, 0.6216, 0.8422, 0.9624, & +0.0020, 0.0068, 0.0198, 0.0584, 0.1404, 0.3061, 0.5258, 0.7636, 0.9210 / +data ((cldnuctab( 2,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +0.0454, 0.1071, 0.2261, 0.4285, 0.6963, 0.9014, 0.9856, 0.9994, 0.9999, & +0.0264, 0.0685, 0.1497, 0.3061, 0.5420, 0.7880, 0.9469, 0.9952, 0.9998, & +0.0162, 0.0416, 0.0998, 0.2140, 0.4125, 0.6522, 0.8699, 0.9785, 0.9986, & +0.0095, 0.0264, 0.0685, 0.1497, 0.3061, 0.5258, 0.7760, 0.9323, 0.9924, & +0.0061, 0.0162, 0.0454, 0.1071, 0.2261, 0.4285, 0.6672, 0.8699, 0.9739, & +0.0038, 0.0106, 0.0290, 0.0741, 0.1695, 0.3353, 0.5582, 0.7880, 0.9375, & +0.0018, 0.0054, 0.0162, 0.0454, 0.1149, 0.2514, 0.4607, 0.6963, 0.8784 / +data ((cldnuctab( 2,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +0.0416, 0.0998, 0.2140, 0.4125, 0.6672, 0.8864, 0.9823, 0.9992, 0.9999, & +0.0240, 0.0584, 0.1404, 0.2919, 0.5095, 0.7636, 0.9375, 0.9932, 0.9998, & +0.0146, 0.0381, 0.0928, 0.2023, 0.3810, 0.6216, 0.8519, 0.9686, 0.9980, & +0.0085, 0.0240, 0.0584, 0.1315, 0.2781, 0.4932, 0.7377, 0.9148, 0.9883, & +0.0048, 0.0146, 0.0381, 0.0928, 0.2023, 0.3810, 0.6060, 0.8322, 0.9624, & +0.0029, 0.0085, 0.0240, 0.0633, 0.1404, 0.2919, 0.4932, 0.7377, 0.9083, & +0.0015, 0.0048, 0.0131, 0.0381, 0.0998, 0.2140, 0.3967, 0.6370, 0.8422 / +data ((cldnuctab( 2,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +0.2140, 0.3967, 0.6370, 0.8519, 0.9656, 0.9970, 0.9999, 0.9999, 0.9999, & +0.1594, 0.3206, 0.5420, 0.7636, 0.9268, 0.9895, 0.9994, 0.9999, 0.9999, & +0.1149, 0.2385, 0.4445, 0.6819, 0.8784, 0.9739, 0.9977, 0.9999, 0.9999, & +0.0741, 0.1800, 0.3656, 0.5902, 0.8109, 0.9469, 0.9924, 0.9996, 0.9999, & +0.0416, 0.1149, 0.2645, 0.4932, 0.7377, 0.9083, 0.9805, 0.9982, 0.9999, & +0.0179, 0.0584, 0.1695, 0.3656, 0.5902, 0.8109, 0.9323, 0.9883, 0.9995, & +0.0068, 0.0240, 0.0800, 0.1910, 0.2919, 0.3656, 0.4285, 0.4445, 0.9083 / +data ((cldnuctab( 2,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +0.1594, 0.3061, 0.5420, 0.7760, 0.9323, 0.9916, 0.9997, 0.9999, 0.9999, & +0.1071, 0.2385, 0.4285, 0.6672, 0.8699, 0.9739, 0.9980, 0.9999, 0.9999, & +0.0800, 0.1800, 0.3503, 0.5742, 0.7996, 0.9424, 0.9924, 0.9996, 0.9999, & +0.0538, 0.1315, 0.2781, 0.4770, 0.7242, 0.8941, 0.9785, 0.9982, 0.9999, & +0.0290, 0.0800, 0.2023, 0.3967, 0.6370, 0.8422, 0.9589, 0.9946, 0.9997, & +0.0131, 0.0416, 0.1230, 0.2919, 0.5258, 0.7636, 0.9148, 0.9823, 0.9986, & +0.0054, 0.0179, 0.0633, 0.1695, 0.3503, 0.5582, 0.7636, 0.8941, 0.9805 / +data ((cldnuctab( 2,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +0.1149, 0.2514, 0.4607, 0.6963, 0.8941, 0.9823, 0.9989, 0.9999, 0.9999, & +0.0800, 0.1800, 0.3503, 0.5902, 0.8109, 0.9512, 0.9946, 0.9998, 0.9999, & +0.0538, 0.1315, 0.2781, 0.4770, 0.7104, 0.9014, 0.9805, 0.9986, 0.9999, & +0.0381, 0.0928, 0.2023, 0.3967, 0.6216, 0.8322, 0.9552, 0.9946, 0.9998, & +0.0218, 0.0584, 0.1497, 0.3061, 0.5258, 0.7636, 0.9210, 0.9856, 0.9989, & +0.0095, 0.0318, 0.0928, 0.2261, 0.4285, 0.6672, 0.8699, 0.9686, 0.9957, & +0.0038, 0.0131, 0.0454, 0.1315, 0.3061, 0.5420, 0.7636, 0.9148, 0.9805 / +data ((cldnuctab( 2,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +0.0928, 0.2023, 0.3967, 0.6370, 0.8519, 0.9686, 0.9977, 0.9999, 0.9999, & +0.0633, 0.1404, 0.2919, 0.5095, 0.7508, 0.9210, 0.9883, 0.9994, 0.9999, & +0.0416, 0.0998, 0.2140, 0.3967, 0.6370, 0.8519, 0.9656, 0.9967, 0.9999, & +0.0264, 0.0685, 0.1594, 0.3206, 0.5420, 0.7636, 0.9268, 0.9883, 0.9993, & +0.0162, 0.0454, 0.1149, 0.2385, 0.4445, 0.6819, 0.8699, 0.9686, 0.9970, & +0.0076, 0.0240, 0.0685, 0.1695, 0.3503, 0.5742, 0.7996, 0.9424, 0.9906, & +0.0033, 0.0106, 0.0349, 0.0998, 0.2385, 0.4607, 0.7104, 0.8864, 0.9714 / +data ((cldnuctab( 2,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +0.0800, 0.1695, 0.3503, 0.5742, 0.8109, 0.9552, 0.9957, 0.9998, 0.9999, & +0.0494, 0.1149, 0.2514, 0.4445, 0.6963, 0.8941, 0.9805, 0.9988, 0.9999, & +0.0318, 0.0800, 0.1800, 0.3353, 0.5742, 0.7996, 0.9469, 0.9932, 0.9997, & +0.0198, 0.0538, 0.1230, 0.2645, 0.4607, 0.6963, 0.8864, 0.9785, 0.9982, & +0.0118, 0.0349, 0.0862, 0.1910, 0.3656, 0.5902, 0.8109, 0.9469, 0.9932, & +0.0061, 0.0179, 0.0538, 0.1315, 0.2781, 0.4932, 0.7242, 0.9014, 0.9805, & +0.0026, 0.0085, 0.0264, 0.0741, 0.1910, 0.3967, 0.6370, 0.8422, 0.9552 / +data ((cldnuctab( 2,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +0.0685, 0.1594, 0.3061, 0.5420, 0.7880, 0.9424, 0.9940, 0.9997, 0.9999, & +0.0416, 0.0998, 0.2140, 0.4125, 0.6522, 0.8611, 0.9739, 0.9980, 0.9999, & +0.0264, 0.0685, 0.1497, 0.3061, 0.5258, 0.7508, 0.9268, 0.9895, 0.9994, & +0.0162, 0.0416, 0.1071, 0.2261, 0.4125, 0.6370, 0.8519, 0.9656, 0.9967, & +0.0095, 0.0290, 0.0685, 0.1594, 0.3206, 0.5258, 0.7636, 0.9210, 0.9870, & +0.0048, 0.0162, 0.0416, 0.1071, 0.2385, 0.4285, 0.6672, 0.8611, 0.9656, & +0.0023, 0.0068, 0.0218, 0.0633, 0.1594, 0.3353, 0.5582, 0.7880, 0.9323 / +data ((cldnuctab( 2,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +0.0633, 0.1404, 0.2919, 0.5095, 0.7636, 0.9323, 0.9924, 0.9997, 0.9999, & +0.0381, 0.0928, 0.2023, 0.3810, 0.6216, 0.8422, 0.9656, 0.9974, 0.9999, & +0.0240, 0.0584, 0.1315, 0.2645, 0.4770, 0.7242, 0.9083, 0.9856, 0.9992, & +0.0146, 0.0381, 0.0928, 0.1910, 0.3656, 0.5902, 0.8217, 0.9552, 0.9952, & +0.0085, 0.0240, 0.0584, 0.1404, 0.2781, 0.4770, 0.7104, 0.9014, 0.9805, & +0.0048, 0.0131, 0.0381, 0.0928, 0.2023, 0.3810, 0.6060, 0.8217, 0.9512, & +0.0020, 0.0061, 0.0179, 0.0538, 0.1315, 0.2781, 0.5095, 0.7377, 0.9083 / +data ((cldnuctab( 2,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +0.2919, 0.5095, 0.7377, 0.9148, 0.9840, 0.9989, 0.9999, 0.9999, 0.9999, & +0.2261, 0.4125, 0.6522, 0.8519, 0.9624, 0.9957, 0.9998, 0.9999, 0.9999, & +0.1594, 0.3353, 0.5582, 0.7760, 0.9323, 0.9883, 0.9990, 0.9999, 0.9999, & +0.0998, 0.2385, 0.4607, 0.6963, 0.8864, 0.9739, 0.9970, 0.9998, 0.9999, & +0.0494, 0.1497, 0.3353, 0.5902, 0.8217, 0.9469, 0.9916, 0.9994, 0.9999, & +0.0198, 0.0685, 0.2023, 0.4125, 0.6672, 0.8611, 0.9624, 0.9952, 0.9998, & +0.0076, 0.0264, 0.0862, 0.2023, 0.2781, 0.3353, 0.3353, 0.3503, 0.9014 / +data ((cldnuctab( 2,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +0.2261, 0.4125, 0.6522, 0.8611, 0.9686, 0.9967, 0.9998, 0.9999, 0.9999, & +0.1695, 0.3206, 0.5582, 0.7760, 0.9268, 0.9883, 0.9993, 0.9999, 0.9999, & +0.1149, 0.2514, 0.4607, 0.6819, 0.8784, 0.9714, 0.9970, 0.9998, 0.9999, & +0.0741, 0.1800, 0.3656, 0.5902, 0.8109, 0.9424, 0.9916, 0.9994, 0.9999, & +0.0381, 0.1071, 0.2645, 0.4932, 0.7377, 0.9014, 0.9805, 0.9980, 0.9999, & +0.0146, 0.0494, 0.1497, 0.3503, 0.6216, 0.8322, 0.9552, 0.9924, 0.9994, & +0.0054, 0.0198, 0.0685, 0.1910, 0.3967, 0.6060, 0.7880, 0.9323, 0.9916 / +data ((cldnuctab( 2,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +0.1695, 0.3353, 0.5742, 0.7996, 0.9424, 0.9924, 0.9996, 0.9999, 0.9999, & +0.1230, 0.2514, 0.4607, 0.6963, 0.8864, 0.9763, 0.9980, 0.9999, 0.9999, & +0.0862, 0.1910, 0.3656, 0.5902, 0.8109, 0.9469, 0.9924, 0.9995, 0.9999, & +0.0538, 0.1404, 0.2919, 0.4932, 0.7242, 0.9014, 0.9805, 0.9980, 0.9999, & +0.0290, 0.0800, 0.2023, 0.3967, 0.6370, 0.8422, 0.9589, 0.9940, 0.9996, & +0.0118, 0.0381, 0.1149, 0.2781, 0.5258, 0.7636, 0.9210, 0.9856, 0.9984, & +0.0042, 0.0146, 0.0538, 0.1497, 0.3503, 0.6060, 0.8217, 0.9469, 0.9906 / +data ((cldnuctab( 2,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +0.1404, 0.2781, 0.4932, 0.7377, 0.9148, 0.9870, 0.9992, 0.9999, 0.9999, & +0.0928, 0.2023, 0.3810, 0.6216, 0.8322, 0.9589, 0.9952, 0.9998, 0.9999, & +0.0633, 0.1497, 0.3061, 0.5095, 0.7508, 0.9148, 0.9840, 0.9988, 0.9999, & +0.0416, 0.1071, 0.2261, 0.4125, 0.6522, 0.8519, 0.9624, 0.9952, 0.9997, & +0.0218, 0.0633, 0.1594, 0.3206, 0.5582, 0.7760, 0.9268, 0.9870, 0.9989, & +0.0095, 0.0290, 0.0862, 0.2261, 0.4445, 0.6819, 0.8784, 0.9714, 0.9962, & +0.0033, 0.0118, 0.0381, 0.1149, 0.2919, 0.5420, 0.7880, 0.9323, 0.9856 / +data ((cldnuctab( 2,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +0.1149, 0.2385, 0.4445, 0.6819, 0.8864, 0.9805, 0.9984, 0.9999, 0.9999, & +0.0800, 0.1695, 0.3353, 0.5582, 0.7880, 0.9424, 0.9924, 0.9996, 0.9999, & +0.0494, 0.1230, 0.2514, 0.4445, 0.6819, 0.8784, 0.9739, 0.9977, 0.9999, & +0.0318, 0.0800, 0.1800, 0.3503, 0.5742, 0.7996, 0.9375, 0.9906, 0.9994, & +0.0179, 0.0494, 0.1230, 0.2645, 0.4770, 0.7104, 0.8864, 0.9739, 0.9974, & +0.0076, 0.0240, 0.0685, 0.1800, 0.3656, 0.6060, 0.8217, 0.9469, 0.9916, & +0.0029, 0.0095, 0.0318, 0.0928, 0.2385, 0.4770, 0.7242, 0.9014, 0.9785 / +data ((cldnuctab( 2,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +0.0998, 0.2140, 0.4125, 0.6522, 0.8611, 0.9739, 0.9977, 0.9999, 0.9999, & +0.0685, 0.1497, 0.2919, 0.5095, 0.7508, 0.9210, 0.9883, 0.9994, 0.9999, & +0.0454, 0.0998, 0.2140, 0.3967, 0.6370, 0.8422, 0.9624, 0.9962, 0.9998, & +0.0264, 0.0685, 0.1497, 0.3061, 0.5095, 0.7508, 0.9148, 0.9856, 0.9989, & +0.0146, 0.0416, 0.1071, 0.2261, 0.4125, 0.6522, 0.8422, 0.9589, 0.9952, & +0.0068, 0.0198, 0.0584, 0.1497, 0.3061, 0.5420, 0.7636, 0.9210, 0.9856, & +0.0026, 0.0076, 0.0264, 0.0741, 0.1910, 0.4125, 0.6672, 0.8611, 0.9656 / +data ((cldnuctab( 2,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +0.0928, 0.2023, 0.3810, 0.6216, 0.8422, 0.9656, 0.9970, 0.9999, 0.9999, & +0.0584, 0.1315, 0.2781, 0.4770, 0.7242, 0.9083, 0.9856, 0.9990, 0.9999, & +0.0381, 0.0928, 0.1910, 0.3656, 0.5902, 0.8109, 0.9512, 0.9946, 0.9997, & +0.0240, 0.0584, 0.1315, 0.2645, 0.4770, 0.7104, 0.8941, 0.9785, 0.9982, & +0.0131, 0.0349, 0.0862, 0.1910, 0.3656, 0.5902, 0.8109, 0.9469, 0.9924, & +0.0061, 0.0179, 0.0494, 0.1230, 0.2781, 0.4932, 0.7104, 0.8941, 0.9763, & +0.0023, 0.0068, 0.0218, 0.0633, 0.1695, 0.3656, 0.6060, 0.8217, 0.9469 / +data ((cldnuctab( 2,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +0.3503, 0.5742, 0.7996, 0.9424, 0.9906, 0.9994, 0.9999, 0.9999, 0.9999, & +0.2781, 0.4770, 0.7104, 0.8941, 0.9763, 0.9977, 0.9999, 0.9999, 0.9999, & +0.2023, 0.3967, 0.6216, 0.8322, 0.9512, 0.9932, 0.9995, 0.9999, 0.9999, & +0.1149, 0.2781, 0.5258, 0.7636, 0.9148, 0.9840, 0.9984, 0.9999, 0.9999, & +0.0538, 0.1594, 0.3810, 0.6522, 0.8611, 0.9656, 0.9946, 0.9996, 0.9999, & +0.0218, 0.0741, 0.2140, 0.4445, 0.6963, 0.8941, 0.9763, 0.9974, 0.9999, & +0.0076, 0.0290, 0.0928, 0.2023, 0.2781, 0.2645, 0.3206, 0.3656, 0.9148 / +data ((cldnuctab( 2,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +0.2781, 0.4770, 0.7104, 0.8941, 0.9805, 0.9982, 0.9999, 0.9999, 0.9999, & +0.2023, 0.3810, 0.6216, 0.8322, 0.9512, 0.9932, 0.9996, 0.9999, 0.9999, & +0.1497, 0.3061, 0.5258, 0.7508, 0.9148, 0.9823, 0.9984, 0.9999, 0.9999, & +0.0862, 0.2140, 0.4285, 0.6672, 0.8611, 0.9624, 0.9952, 0.9997, 0.9999, & +0.0416, 0.1230, 0.3061, 0.5582, 0.7880, 0.9323, 0.9870, 0.9989, 0.9999, & +0.0162, 0.0538, 0.1695, 0.3967, 0.6672, 0.8699, 0.9686, 0.9957, 0.9997, & +0.0061, 0.0218, 0.0741, 0.2023, 0.4125, 0.6216, 0.8109, 0.9469, 0.9932 / +data ((cldnuctab( 2,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +0.2140, 0.3967, 0.6370, 0.8422, 0.9624, 0.9957, 0.9998, 0.9999, 0.9999, & +0.1594, 0.3061, 0.5258, 0.7508, 0.9210, 0.9856, 0.9989, 0.9999, 0.9999, & +0.1071, 0.2385, 0.4285, 0.6672, 0.8611, 0.9656, 0.9957, 0.9997, 0.9999, & +0.0685, 0.1695, 0.3353, 0.5742, 0.7880, 0.9323, 0.9883, 0.9989, 0.9999, & +0.0318, 0.0928, 0.2385, 0.4607, 0.6963, 0.8864, 0.9739, 0.9967, 0.9998, & +0.0118, 0.0416, 0.1230, 0.3206, 0.5902, 0.8217, 0.9469, 0.9906, 0.9992, & +0.0042, 0.0162, 0.0538, 0.1695, 0.3810, 0.6370, 0.8611, 0.9624, 0.9946 / +data ((cldnuctab( 2,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +0.1695, 0.3353, 0.5582, 0.7880, 0.9424, 0.9924, 0.9996, 0.9999, 0.9999, & +0.1230, 0.2514, 0.4607, 0.6819, 0.8784, 0.9739, 0.9977, 0.9999, 0.9999, & +0.0862, 0.1910, 0.3503, 0.5902, 0.7996, 0.9424, 0.9906, 0.9994, 0.9999, & +0.0538, 0.1315, 0.2781, 0.4770, 0.7104, 0.8941, 0.9763, 0.9974, 0.9998, & +0.0240, 0.0741, 0.1800, 0.3810, 0.6216, 0.8217, 0.9512, 0.9924, 0.9994, & +0.0095, 0.0318, 0.0998, 0.2514, 0.4932, 0.7377, 0.9083, 0.9805, 0.9980, & +0.0038, 0.0118, 0.0416, 0.1315, 0.3206, 0.5902, 0.8217, 0.9512, 0.9916 / +data ((cldnuctab( 2,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +0.1497, 0.2919, 0.5095, 0.7508, 0.9210, 0.9883, 0.9993, 0.9999, 0.9999, & +0.0998, 0.2140, 0.3967, 0.6216, 0.8422, 0.9624, 0.9957, 0.9998, 0.9999, & +0.0685, 0.1497, 0.3061, 0.5095, 0.7377, 0.9148, 0.9840, 0.9988, 0.9999, & +0.0416, 0.0998, 0.2261, 0.4125, 0.6370, 0.8422, 0.9589, 0.9946, 0.9997, & +0.0198, 0.0584, 0.1497, 0.3206, 0.5420, 0.7636, 0.9210, 0.9840, 0.9986, & +0.0085, 0.0264, 0.0800, 0.2023, 0.4125, 0.6672, 0.8611, 0.9656, 0.9952, & +0.0029, 0.0095, 0.0318, 0.0998, 0.2645, 0.5258, 0.7760, 0.9268, 0.9856 / +data ((cldnuctab( 2,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +0.1315, 0.2645, 0.4607, 0.7104, 0.9014, 0.9840, 0.9989, 0.9999, 0.9999, & +0.0862, 0.1800, 0.3503, 0.5742, 0.8109, 0.9469, 0.9940, 0.9997, 0.9999, & +0.0584, 0.1315, 0.2645, 0.4607, 0.6963, 0.8864, 0.9763, 0.9980, 0.9999, & +0.0349, 0.0862, 0.1910, 0.3656, 0.5902, 0.7996, 0.9424, 0.9916, 0.9994, & +0.0179, 0.0494, 0.1230, 0.2645, 0.4770, 0.7104, 0.8864, 0.9739, 0.9974, & +0.0076, 0.0218, 0.0633, 0.1695, 0.3656, 0.6060, 0.8217, 0.9469, 0.9916, & +0.0026, 0.0085, 0.0264, 0.0800, 0.2140, 0.4607, 0.7104, 0.8941, 0.9763 / +data ((cldnuctab( 2,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +0.1149, 0.2385, 0.4445, 0.6819, 0.8864, 0.9805, 0.9984, 0.9999, 0.9999, & +0.0741, 0.1695, 0.3206, 0.5420, 0.7760, 0.9375, 0.9916, 0.9995, 0.9999, & +0.0494, 0.1149, 0.2385, 0.4285, 0.6522, 0.8611, 0.9686, 0.9970, 0.9998, & +0.0318, 0.0741, 0.1695, 0.3206, 0.5420, 0.7636, 0.9268, 0.9870, 0.9990, & +0.0162, 0.0454, 0.1071, 0.2385, 0.4285, 0.6672, 0.8611, 0.9656, 0.9957, & +0.0068, 0.0198, 0.0584, 0.1497, 0.3206, 0.5420, 0.7760, 0.9268, 0.9856, & +0.0026, 0.0076, 0.0240, 0.0685, 0.1910, 0.3967, 0.6672, 0.8611, 0.9656 / +data ((cldnuctab( 2,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +0.3967, 0.6216, 0.8322, 0.9552, 0.9940, 0.9997, 0.9999, 0.9999, 0.9999, & +0.3061, 0.5258, 0.7636, 0.9148, 0.9840, 0.9986, 0.9999, 0.9999, 0.9999, & +0.2261, 0.4285, 0.6672, 0.8611, 0.9656, 0.9952, 0.9997, 0.9999, 0.9999, & +0.1230, 0.3061, 0.5582, 0.7996, 0.9375, 0.9883, 0.9989, 0.9999, 0.9999, & +0.0538, 0.1695, 0.4125, 0.6819, 0.8864, 0.9739, 0.9967, 0.9998, 0.9999, & +0.0218, 0.0741, 0.2140, 0.4607, 0.7104, 0.9014, 0.9823, 0.9980, 0.9999, & +0.0085, 0.0290, 0.0928, 0.2023, 0.2385, 0.2514, 0.3206, 0.3810, 0.8699 / +data ((cldnuctab( 2,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +0.3061, 0.5258, 0.7636, 0.9210, 0.9856, 0.9989, 0.9999, 0.9999, 0.9999, & +0.2385, 0.4285, 0.6672, 0.8611, 0.9656, 0.9957, 0.9997, 0.9999, 0.9999, & +0.1695, 0.3353, 0.5742, 0.7880, 0.9323, 0.9883, 0.9989, 0.9999, 0.9999, & +0.0928, 0.2385, 0.4607, 0.7104, 0.8864, 0.9739, 0.9967, 0.9998, 0.9999, & +0.0416, 0.1315, 0.3206, 0.5902, 0.8217, 0.9469, 0.9916, 0.9993, 0.9999, & +0.0162, 0.0584, 0.1695, 0.4125, 0.6963, 0.8941, 0.9763, 0.9970, 0.9998, & +0.0061, 0.0218, 0.0741, 0.2023, 0.4125, 0.5902, 0.8217, 0.9424, 0.9957 / +data ((cldnuctab( 2,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +0.2514, 0.4445, 0.6819, 0.8784, 0.9739, 0.9974, 0.9999, 0.9999, 0.9999, & +0.1800, 0.3503, 0.5742, 0.7996, 0.9375, 0.9906, 0.9993, 0.9999, 0.9999, & +0.1230, 0.2645, 0.4770, 0.7104, 0.8864, 0.9739, 0.9970, 0.9998, 0.9999, & +0.0741, 0.1800, 0.3810, 0.6060, 0.8217, 0.9469, 0.9916, 0.9994, 0.9999, & +0.0349, 0.0998, 0.2514, 0.4932, 0.7377, 0.9083, 0.9805, 0.9980, 0.9998, & +0.0131, 0.0416, 0.1315, 0.3353, 0.6216, 0.8422, 0.9589, 0.9940, 0.9995, & +0.0048, 0.0162, 0.0584, 0.1695, 0.3967, 0.6522, 0.8699, 0.9714, 0.9962 / +data ((cldnuctab( 2,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +0.2023, 0.3810, 0.6060, 0.8322, 0.9552, 0.9952, 0.9997, 0.9999, 0.9999, & +0.1404, 0.2919, 0.4932, 0.7377, 0.9083, 0.9823, 0.9984, 0.9999, 0.9999, & +0.0998, 0.2140, 0.3967, 0.6370, 0.8322, 0.9552, 0.9940, 0.9996, 0.9999, & +0.0584, 0.1497, 0.3061, 0.5258, 0.7508, 0.9148, 0.9823, 0.9984, 0.9999, & +0.0264, 0.0800, 0.2023, 0.4125, 0.6672, 0.8611, 0.9624, 0.9946, 0.9996, & +0.0106, 0.0349, 0.0998, 0.2645, 0.5258, 0.7760, 0.9323, 0.9870, 0.9988, & +0.0038, 0.0131, 0.0416, 0.1315, 0.3353, 0.6216, 0.8519, 0.9624, 0.9946 / +data ((cldnuctab( 2,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +0.1695, 0.3353, 0.5582, 0.7880, 0.9375, 0.9916, 0.9995, 0.9999, 0.9999, & +0.1149, 0.2385, 0.4445, 0.6672, 0.8699, 0.9714, 0.9974, 0.9998, 0.9999, & +0.0800, 0.1800, 0.3353, 0.5582, 0.7880, 0.9323, 0.9895, 0.9993, 0.9999, & +0.0494, 0.1230, 0.2514, 0.4607, 0.6819, 0.8784, 0.9714, 0.9967, 0.9998, & +0.0218, 0.0633, 0.1695, 0.3503, 0.5902, 0.7996, 0.9375, 0.9895, 0.9992, & +0.0085, 0.0264, 0.0800, 0.2140, 0.4607, 0.7104, 0.8941, 0.9739, 0.9970, & +0.0033, 0.0106, 0.0349, 0.1071, 0.2781, 0.5420, 0.7996, 0.9424, 0.9895 / +data ((cldnuctab( 2,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +0.1497, 0.2919, 0.5095, 0.7508, 0.9268, 0.9883, 0.9993, 0.9999, 0.9999, & +0.0998, 0.2140, 0.3967, 0.6216, 0.8422, 0.9624, 0.9957, 0.9998, 0.9999, & +0.0685, 0.1497, 0.2919, 0.5095, 0.7377, 0.9083, 0.9840, 0.9988, 0.9999, & +0.0416, 0.0998, 0.2140, 0.3967, 0.6370, 0.8322, 0.9552, 0.9940, 0.9996, & +0.0198, 0.0538, 0.1404, 0.2919, 0.5258, 0.7508, 0.9148, 0.9823, 0.9984, & +0.0076, 0.0240, 0.0685, 0.1800, 0.3967, 0.6370, 0.8519, 0.9589, 0.9940, & +0.0038, 0.0085, 0.0290, 0.0862, 0.2261, 0.4770, 0.7508, 0.9148, 0.9840 / +data ((cldnuctab( 2,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +0.1404, 0.2781, 0.4770, 0.7242, 0.9083, 0.9856, 0.9990, 0.9999, 0.9999, & +0.0928, 0.1910, 0.3656, 0.5902, 0.8109, 0.9512, 0.9946, 0.9997, 0.9999, & +0.0584, 0.1315, 0.2645, 0.4770, 0.6963, 0.8864, 0.9785, 0.9982, 0.9999, & +0.0349, 0.0862, 0.1910, 0.3656, 0.5902, 0.7996, 0.9424, 0.9916, 0.9994, & +0.0179, 0.0494, 0.1230, 0.2645, 0.4770, 0.7104, 0.8864, 0.9739, 0.9974, & +0.0068, 0.0198, 0.0584, 0.1594, 0.3503, 0.5902, 0.8109, 0.9424, 0.9906, & +0.0042, 0.0076, 0.0240, 0.0741, 0.2023, 0.4285, 0.6963, 0.8864, 0.9763 / +data ((cldnuctab( 2,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +0.4285, 0.6672, 0.8611, 0.9656, 0.9957, 0.9997, 0.9999, 0.9999, 0.9999, & +0.3353, 0.5742, 0.7880, 0.9323, 0.9883, 0.9989, 0.9999, 0.9999, 0.9999, & +0.2385, 0.4607, 0.7104, 0.8864, 0.9739, 0.9967, 0.9998, 0.9999, 0.9999, & +0.1315, 0.3353, 0.5902, 0.8217, 0.9469, 0.9916, 0.9993, 0.9999, 0.9999, & +0.0584, 0.1800, 0.4285, 0.7104, 0.9014, 0.9805, 0.9977, 0.9998, 0.9999, & +0.0218, 0.0741, 0.2261, 0.4770, 0.7242, 0.9148, 0.9823, 0.9984, 0.9999, & +0.0095, 0.0318, 0.0928, 0.2023, 0.2385, 0.2514, 0.3061, 0.3810, 0.8784 / +data ((cldnuctab( 2,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +0.3503, 0.5742, 0.7880, 0.9375, 0.9895, 0.9993, 0.9999, 0.9999, 0.9999, & +0.2645, 0.4770, 0.6963, 0.8864, 0.9739, 0.9970, 0.9998, 0.9999, 0.9999, & +0.1800, 0.3656, 0.6060, 0.8217, 0.9469, 0.9916, 0.9993, 0.9999, 0.9999, & +0.0998, 0.2514, 0.4932, 0.7377, 0.9014, 0.9785, 0.9977, 0.9998, 0.9999, & +0.0454, 0.1404, 0.3353, 0.6216, 0.8422, 0.9589, 0.9940, 0.9995, 0.9999, & +0.0162, 0.0584, 0.1800, 0.4285, 0.7104, 0.9083, 0.9823, 0.9980, 0.9998, & +0.0061, 0.0218, 0.0741, 0.2140, 0.4125, 0.6060, 0.8322, 0.9512, 0.9967 / +data ((cldnuctab( 2,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +0.2781, 0.4770, 0.7104, 0.8941, 0.9805, 0.9982, 0.9999, 0.9999, 0.9999, & +0.2023, 0.3810, 0.6060, 0.8217, 0.9512, 0.9932, 0.9995, 0.9999, 0.9999, & +0.1404, 0.2919, 0.5095, 0.7377, 0.9083, 0.9805, 0.9980, 0.9999, 0.9999, & +0.0800, 0.2023, 0.4125, 0.6522, 0.8519, 0.9589, 0.9940, 0.9996, 0.9999, & +0.0349, 0.1071, 0.2781, 0.5258, 0.7760, 0.9268, 0.9856, 0.9986, 0.9999, & +0.0131, 0.0454, 0.1404, 0.3503, 0.6522, 0.8699, 0.9686, 0.9952, 0.9997, & +0.0048, 0.0162, 0.0584, 0.1695, 0.4125, 0.6672, 0.8784, 0.9763, 0.9974 / +data ((cldnuctab( 2,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +0.2261, 0.4125, 0.6522, 0.8519, 0.9656, 0.9962, 0.9998, 0.9999, 0.9999, & +0.1594, 0.3206, 0.5420, 0.7636, 0.9210, 0.9870, 0.9989, 0.9999, 0.9999, & +0.1149, 0.2385, 0.4285, 0.6672, 0.8611, 0.9656, 0.9957, 0.9997, 0.9999, & +0.0633, 0.1594, 0.3353, 0.5582, 0.7880, 0.9323, 0.9870, 0.9989, 0.9999, & +0.0290, 0.0862, 0.2140, 0.4445, 0.6963, 0.8784, 0.9714, 0.9962, 0.9997, & +0.0106, 0.0349, 0.1071, 0.2781, 0.5582, 0.7996, 0.9424, 0.9906, 0.9990, & +0.0048, 0.0131, 0.0454, 0.1404, 0.3503, 0.6370, 0.8699, 0.9686, 0.9957 / +data ((cldnuctab( 2,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +0.1910, 0.3656, 0.5902, 0.8109, 0.9512, 0.9940, 0.9997, 0.9999, 0.9999, & +0.1315, 0.2645, 0.4770, 0.7104, 0.8941, 0.9785, 0.9982, 0.9999, 0.9999, & +0.0928, 0.2023, 0.3656, 0.6060, 0.8109, 0.9469, 0.9924, 0.9994, 0.9999, & +0.0538, 0.1315, 0.2781, 0.4932, 0.7242, 0.8941, 0.9785, 0.9977, 0.9998, & +0.0240, 0.0685, 0.1800, 0.3810, 0.6216, 0.8322, 0.9512, 0.9924, 0.9994, & +0.0085, 0.0290, 0.0862, 0.2261, 0.4770, 0.7377, 0.9083, 0.9805, 0.9980, & +0.0054, 0.0106, 0.0349, 0.1071, 0.2919, 0.5742, 0.8217, 0.9552, 0.9924 / +data ((cldnuctab( 2,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +0.1695, 0.3206, 0.5582, 0.7880, 0.9375, 0.9916, 0.9995, 0.9999, 0.9999, & +0.1149, 0.2385, 0.4285, 0.6672, 0.8611, 0.9714, 0.9970, 0.9998, 0.9999, & +0.0741, 0.1695, 0.3206, 0.5420, 0.7760, 0.9268, 0.9883, 0.9992, 0.9999, & +0.0454, 0.1149, 0.2385, 0.4285, 0.6672, 0.8611, 0.9656, 0.9957, 0.9997, & +0.0198, 0.0584, 0.1497, 0.3206, 0.5582, 0.7760, 0.9268, 0.9870, 0.9988, & +0.0076, 0.0240, 0.0741, 0.1910, 0.4125, 0.6672, 0.8699, 0.9686, 0.9957, & +0.0054, 0.0085, 0.0290, 0.0862, 0.2385, 0.5095, 0.7760, 0.9323, 0.9870 / +data ((cldnuctab( 2,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +0.1497, 0.3061, 0.5258, 0.7636, 0.9268, 0.9895, 0.9994, 0.9999, 0.9999, & +0.1071, 0.2140, 0.3967, 0.6216, 0.8422, 0.9624, 0.9962, 0.9998, 0.9999, & +0.0685, 0.1497, 0.2919, 0.5095, 0.7377, 0.9083, 0.9840, 0.9988, 0.9999, & +0.0416, 0.0998, 0.2140, 0.3967, 0.6216, 0.8322, 0.9552, 0.9940, 0.9996, & +0.0179, 0.0538, 0.1315, 0.2919, 0.5095, 0.7377, 0.9014, 0.9805, 0.9982, & +0.0068, 0.0218, 0.0633, 0.1695, 0.3656, 0.6216, 0.8322, 0.9552, 0.9932, & +0.0061, 0.0076, 0.0240, 0.0741, 0.2023, 0.4445, 0.7242, 0.9083, 0.9805 / +data ((cldnuctab( 3,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +0.3065, 0.5182, 0.7687, 0.9291, 0.9903, 0.9996, 0.9999, 0.9999, 0.9999, & +0.2311, 0.4270, 0.6769, 0.8745, 0.9731, 0.9977, 0.9999, 0.9999, 0.9999, & +0.1673, 0.3395, 0.5727, 0.7957, 0.9460, 0.9925, 0.9996, 0.9999, 0.9999, & +0.0991, 0.2453, 0.4815, 0.7247, 0.9007, 0.9806, 0.9985, 0.9999, 0.9999, & +0.0490, 0.1453, 0.3565, 0.6084, 0.8438, 0.9595, 0.9949, 0.9997, 0.9999, & +0.0193, 0.0707, 0.2041, 0.4270, 0.6769, 0.8837, 0.9731, 0.9974, 0.9999, & +0.0074, 0.0268, 0.0913, 0.2041, 0.2751, 0.3229, 0.3229, 0.3395, 0.9158 / +data ((cldnuctab( 3,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +0.2311, 0.4270, 0.6602, 0.8745, 0.9758, 0.9983, 0.9999, 0.9999, 0.9999, & +0.1673, 0.3395, 0.5727, 0.7957, 0.9407, 0.9934, 0.9997, 0.9999, 0.9999, & +0.1161, 0.2600, 0.4632, 0.7091, 0.8924, 0.9806, 0.9985, 0.9999, 0.9999, & +0.0772, 0.1790, 0.3738, 0.6084, 0.8325, 0.9553, 0.9949, 0.9998, 0.9999, & +0.0366, 0.1074, 0.2751, 0.4998, 0.7545, 0.9158, 0.9862, 0.9990, 0.9999, & +0.0154, 0.0490, 0.1560, 0.3565, 0.6259, 0.8545, 0.9668, 0.9955, 0.9998, & +0.0057, 0.0193, 0.0707, 0.1913, 0.3913, 0.6084, 0.8085, 0.9460, 0.9949 / +data ((cldnuctab( 3,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +0.1790, 0.3395, 0.5727, 0.8085, 0.9553, 0.9955, 0.9998, 0.9999, 0.9999, & +0.1253, 0.2600, 0.4632, 0.7091, 0.9007, 0.9826, 0.9990, 0.9999, 0.9999, & +0.0913, 0.1913, 0.3738, 0.6084, 0.8325, 0.9553, 0.9955, 0.9998, 0.9999, & +0.0539, 0.1350, 0.2906, 0.5182, 0.7545, 0.9158, 0.9862, 0.9990, 0.9999, & +0.0298, 0.0840, 0.2041, 0.4090, 0.6602, 0.8647, 0.9668, 0.9966, 0.9998, & +0.0122, 0.0366, 0.1161, 0.2906, 0.5364, 0.7824, 0.9351, 0.9903, 0.9993, & +0.0044, 0.0154, 0.0539, 0.1560, 0.3565, 0.6259, 0.8438, 0.9553, 0.9942 / +data ((cldnuctab( 3,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +0.1453, 0.2906, 0.4998, 0.7545, 0.9291, 0.9915, 0.9996, 0.9999, 0.9999, & +0.0991, 0.2041, 0.3913, 0.6432, 0.8545, 0.9668, 0.9974, 0.9999, 0.9999, & +0.0647, 0.1560, 0.3065, 0.5182, 0.7545, 0.9227, 0.9891, 0.9995, 0.9999, & +0.0404, 0.1074, 0.2311, 0.4270, 0.6602, 0.8647, 0.9701, 0.9974, 0.9999, & +0.0216, 0.0647, 0.1560, 0.3395, 0.5546, 0.7957, 0.9351, 0.9915, 0.9995, & +0.0096, 0.0298, 0.0913, 0.2311, 0.4450, 0.7091, 0.8924, 0.9783, 0.9980, & +0.0033, 0.0122, 0.0404, 0.1161, 0.2906, 0.5546, 0.7957, 0.9460, 0.9903 / +data ((cldnuctab( 3,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +0.1161, 0.2453, 0.4450, 0.6932, 0.9007, 0.9845, 0.9993, 0.9999, 0.9999, & +0.0772, 0.1790, 0.3395, 0.5727, 0.8085, 0.9508, 0.9949, 0.9998, 0.9999, & +0.0539, 0.1253, 0.2600, 0.4632, 0.6932, 0.8924, 0.9806, 0.9987, 0.9999, & +0.0330, 0.0840, 0.1913, 0.3565, 0.5907, 0.8085, 0.9508, 0.9942, 0.9997, & +0.0173, 0.0490, 0.1253, 0.2751, 0.4815, 0.7247, 0.9007, 0.9806, 0.9985, & +0.0074, 0.0241, 0.0707, 0.1790, 0.3738, 0.6259, 0.8325, 0.9553, 0.9949, & +0.0029, 0.0096, 0.0298, 0.0913, 0.2453, 0.4815, 0.7398, 0.9158, 0.9826 / +data ((cldnuctab( 3,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +0.0991, 0.2173, 0.4090, 0.6602, 0.8745, 0.9783, 0.9989, 0.9999, 0.9999, & +0.0647, 0.1560, 0.3065, 0.5182, 0.7687, 0.9351, 0.9925, 0.9997, 0.9999, & +0.0446, 0.1074, 0.2173, 0.4090, 0.6432, 0.8545, 0.9701, 0.9977, 0.9999, & +0.0268, 0.0707, 0.1560, 0.3065, 0.5364, 0.7545, 0.9227, 0.9891, 0.9995, & +0.0154, 0.0404, 0.1074, 0.2311, 0.4270, 0.6602, 0.8647, 0.9668, 0.9970, & +0.0065, 0.0193, 0.0591, 0.1453, 0.3229, 0.5546, 0.7824, 0.9291, 0.9891, & +0.0025, 0.0084, 0.0241, 0.0772, 0.2041, 0.4090, 0.6769, 0.8745, 0.9701 / +data ((cldnuctab( 3,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +0.0913, 0.2041, 0.3913, 0.6259, 0.8545, 0.9731, 0.9983, 0.9999, 0.9999, & +0.0591, 0.1350, 0.2751, 0.4815, 0.7398, 0.9158, 0.9891, 0.9995, 0.9999, & +0.0366, 0.0913, 0.1913, 0.3738, 0.6084, 0.8325, 0.9595, 0.9966, 0.9998, & +0.0241, 0.0591, 0.1350, 0.2751, 0.4815, 0.7247, 0.9007, 0.9845, 0.9990, & +0.0137, 0.0366, 0.0913, 0.2041, 0.3738, 0.6084, 0.8207, 0.9553, 0.9949, & +0.0057, 0.0173, 0.0490, 0.1253, 0.2751, 0.4998, 0.7247, 0.9085, 0.9826, & +0.0022, 0.0074, 0.0216, 0.0647, 0.1673, 0.3738, 0.6084, 0.8325, 0.9553 / +data ((cldnuctab( 3,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +0.4090, 0.6432, 0.8438, 0.9595, 0.9955, 0.9998, 0.9999, 0.9999, 0.9999, & +0.3065, 0.5364, 0.7687, 0.9227, 0.9862, 0.9990, 0.9999, 0.9999, 0.9999, & +0.2311, 0.4450, 0.6769, 0.8745, 0.9701, 0.9966, 0.9998, 0.9999, 0.9999, & +0.1253, 0.3065, 0.5727, 0.8085, 0.9407, 0.9915, 0.9994, 0.9999, 0.9999, & +0.0539, 0.1673, 0.4090, 0.6932, 0.8924, 0.9783, 0.9977, 0.9998, 0.9999, & +0.0216, 0.0772, 0.2173, 0.4632, 0.7091, 0.9085, 0.9826, 0.9987, 0.9999, & +0.0084, 0.0298, 0.0913, 0.2041, 0.2453, 0.2453, 0.3065, 0.3738, 0.8745 / +data ((cldnuctab( 3,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +0.3229, 0.5364, 0.7687, 0.9291, 0.9891, 0.9993, 0.9999, 0.9999, 0.9999, & +0.2453, 0.4450, 0.6769, 0.8647, 0.9701, 0.9970, 0.9998, 0.9999, 0.9999, & +0.1673, 0.3395, 0.5727, 0.7957, 0.9407, 0.9903, 0.9994, 0.9999, 0.9999, & +0.0991, 0.2453, 0.4632, 0.7091, 0.8924, 0.9758, 0.9977, 0.9999, 0.9999, & +0.0446, 0.1350, 0.3229, 0.6084, 0.8325, 0.9553, 0.9934, 0.9995, 0.9999, & +0.0173, 0.0591, 0.1790, 0.4090, 0.6932, 0.9007, 0.9806, 0.9980, 0.9999, & +0.0057, 0.0216, 0.0772, 0.2041, 0.4090, 0.6084, 0.8325, 0.9508, 0.9966 / +data ((cldnuctab( 3,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +0.2453, 0.4450, 0.6932, 0.8837, 0.9758, 0.9980, 0.9999, 0.9999, 0.9999, & +0.1790, 0.3565, 0.5907, 0.8085, 0.9407, 0.9925, 0.9996, 0.9999, 0.9999, & +0.1253, 0.2751, 0.4815, 0.7091, 0.8924, 0.9783, 0.9980, 0.9999, 0.9999, & +0.0772, 0.1913, 0.3738, 0.6259, 0.8325, 0.9553, 0.9934, 0.9996, 0.9999, & +0.0330, 0.0991, 0.2600, 0.4998, 0.7545, 0.9158, 0.9845, 0.9985, 0.9999, & +0.0122, 0.0446, 0.1350, 0.3395, 0.6259, 0.8545, 0.9633, 0.9955, 0.9997, & +0.0044, 0.0173, 0.0591, 0.1673, 0.3913, 0.6602, 0.8745, 0.9758, 0.9974 / +data ((cldnuctab( 3,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +0.2041, 0.3913, 0.6084, 0.8325, 0.9595, 0.9961, 0.9998, 0.9999, 0.9999, & +0.1453, 0.2906, 0.4998, 0.7398, 0.9085, 0.9845, 0.9990, 0.9999, 0.9999, & +0.0991, 0.2173, 0.4090, 0.6432, 0.8438, 0.9595, 0.9955, 0.9998, 0.9999, & +0.0591, 0.1453, 0.3065, 0.5364, 0.7545, 0.9227, 0.9862, 0.9989, 0.9999, & +0.0268, 0.0772, 0.2041, 0.4270, 0.6602, 0.8647, 0.9668, 0.9961, 0.9998, & +0.0108, 0.0330, 0.1074, 0.2751, 0.5364, 0.7824, 0.9351, 0.9891, 0.9992, & +0.0038, 0.0122, 0.0446, 0.1350, 0.3395, 0.6259, 0.8545, 0.9668, 0.9955 / +data ((cldnuctab( 3,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +0.1673, 0.3395, 0.5546, 0.7957, 0.9460, 0.9934, 0.9997, 0.9999, 0.9999, & +0.1161, 0.2453, 0.4450, 0.6769, 0.8745, 0.9758, 0.9980, 0.9999, 0.9999, & +0.0772, 0.1790, 0.3395, 0.5727, 0.7957, 0.9351, 0.9915, 0.9995, 0.9999, & +0.0490, 0.1161, 0.2600, 0.4632, 0.6932, 0.8837, 0.9731, 0.9974, 0.9999, & +0.0216, 0.0647, 0.1673, 0.3565, 0.5907, 0.8085, 0.9407, 0.9915, 0.9995, & +0.0084, 0.0268, 0.0840, 0.2173, 0.4632, 0.7091, 0.8924, 0.9783, 0.9977, & +0.0033, 0.0108, 0.0330, 0.1074, 0.2751, 0.5546, 0.8085, 0.9460, 0.9915 / +data ((cldnuctab( 3,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +0.1560, 0.3065, 0.5182, 0.7545, 0.9291, 0.9903, 0.9995, 0.9999, 0.9999, & +0.0991, 0.2173, 0.3913, 0.6259, 0.8438, 0.9668, 0.9970, 0.9998, 0.9999, & +0.0707, 0.1560, 0.3065, 0.5182, 0.7398, 0.9158, 0.9862, 0.9990, 0.9999, & +0.0404, 0.0991, 0.2173, 0.4090, 0.6432, 0.8438, 0.9595, 0.9955, 0.9998, & +0.0193, 0.0539, 0.1453, 0.3065, 0.5182, 0.7545, 0.9158, 0.9845, 0.9987, & +0.0074, 0.0241, 0.0707, 0.1790, 0.3913, 0.6432, 0.8545, 0.9633, 0.9955, & +0.0038, 0.0084, 0.0268, 0.0840, 0.2311, 0.4815, 0.7545, 0.9227, 0.9862 / +data ((cldnuctab( 3,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +0.1350, 0.2751, 0.4815, 0.7247, 0.9158, 0.9877, 0.9994, 0.9999, 0.9999, & +0.0913, 0.1913, 0.3738, 0.5907, 0.8207, 0.9553, 0.9955, 0.9998, 0.9999, & +0.0591, 0.1350, 0.2751, 0.4815, 0.7091, 0.8924, 0.9806, 0.9987, 0.9999, & +0.0366, 0.0913, 0.1913, 0.3738, 0.5907, 0.8085, 0.9460, 0.9934, 0.9996, & +0.0173, 0.0490, 0.1253, 0.2600, 0.4815, 0.7091, 0.8924, 0.9783, 0.9980, & +0.0065, 0.0216, 0.0591, 0.1560, 0.3565, 0.5907, 0.8085, 0.9460, 0.9925, & +0.0044, 0.0074, 0.0241, 0.0707, 0.2041, 0.4270, 0.7091, 0.8924, 0.9783 / +data ((cldnuctab( 3,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +0.5182, 0.7398, 0.9085, 0.9826, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4090, 0.6432, 0.8438, 0.9595, 0.9949, 0.9996, 0.9999, 0.9999, 0.9999, & +0.2751, 0.5364, 0.7687, 0.9227, 0.9862, 0.9987, 0.9999, 0.9999, 0.9999, & +0.1453, 0.3738, 0.6602, 0.8745, 0.9701, 0.9961, 0.9997, 0.9999, 0.9999, & +0.0591, 0.1913, 0.4632, 0.7687, 0.9351, 0.9891, 0.9990, 0.9999, 0.9999, & +0.0241, 0.0840, 0.2311, 0.4998, 0.7545, 0.9351, 0.9903, 0.9995, 0.9999, & +0.0122, 0.0330, 0.0991, 0.1913, 0.2173, 0.2311, 0.2453, 0.4090, 0.8837 / +data ((cldnuctab( 3,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +0.4090, 0.6432, 0.8545, 0.9633, 0.9955, 0.9997, 0.9999, 0.9999, 0.9999, & +0.3229, 0.5546, 0.7687, 0.9227, 0.9862, 0.9989, 0.9999, 0.9999, 0.9999, & +0.2173, 0.4450, 0.6769, 0.8745, 0.9701, 0.9961, 0.9998, 0.9999, 0.9999, & +0.1161, 0.2906, 0.5546, 0.7957, 0.9407, 0.9891, 0.9992, 0.9999, 0.9999, & +0.0446, 0.1453, 0.3738, 0.6769, 0.8924, 0.9758, 0.9974, 0.9998, 0.9999, & +0.0173, 0.0591, 0.1913, 0.4632, 0.7545, 0.9351, 0.9903, 0.9992, 0.9999, & +0.0108, 0.0268, 0.0772, 0.2173, 0.3913, 0.5907, 0.8438, 0.9633, 0.9985 / +data ((cldnuctab( 3,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +0.3395, 0.5546, 0.7824, 0.9351, 0.9903, 0.9994, 0.9999, 0.9999, 0.9999, & +0.2600, 0.4632, 0.6932, 0.8745, 0.9731, 0.9970, 0.9998, 0.9999, 0.9999, & +0.1673, 0.3565, 0.5907, 0.8085, 0.9407, 0.9903, 0.9993, 0.9999, 0.9999, & +0.0913, 0.2311, 0.4632, 0.7247, 0.8924, 0.9783, 0.9974, 0.9998, 0.9999, & +0.0366, 0.1161, 0.3065, 0.5907, 0.8325, 0.9553, 0.9925, 0.9995, 0.9999, & +0.0137, 0.0446, 0.1453, 0.3738, 0.6932, 0.9085, 0.9826, 0.9980, 0.9998, & +0.0096, 0.0193, 0.0591, 0.1790, 0.4270, 0.6932, 0.9085, 0.9862, 0.9989 / +data ((cldnuctab( 3,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +0.2906, 0.4998, 0.7247, 0.9007, 0.9826, 0.9985, 0.9999, 0.9999, 0.9999, & +0.2041, 0.3913, 0.6259, 0.8325, 0.9553, 0.9942, 0.9996, 0.9999, 0.9999, & +0.1350, 0.2906, 0.5182, 0.7398, 0.9085, 0.9806, 0.9983, 0.9999, 0.9999, & +0.0707, 0.1913, 0.3913, 0.6432, 0.8438, 0.9595, 0.9942, 0.9996, 0.9999, & +0.0298, 0.0913, 0.2453, 0.4998, 0.7545, 0.9227, 0.9845, 0.9985, 0.9999, & +0.0108, 0.0366, 0.1161, 0.3065, 0.6084, 0.8545, 0.9668, 0.9955, 0.9996, & +0.0108, 0.0137, 0.0446, 0.1453, 0.3738, 0.6602, 0.8924, 0.9826, 0.9980 / +data ((cldnuctab( 3,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +0.2453, 0.4270, 0.6769, 0.8745, 0.9731, 0.9977, 0.9999, 0.9999, 0.9999, & +0.1790, 0.3395, 0.5546, 0.7824, 0.9291, 0.9891, 0.9993, 0.9999, 0.9999, & +0.1161, 0.2453, 0.4450, 0.6769, 0.8647, 0.9701, 0.9966, 0.9998, 0.9999, & +0.0591, 0.1560, 0.3395, 0.5727, 0.7957, 0.9351, 0.9891, 0.9990, 0.9999, & +0.0241, 0.0772, 0.2041, 0.4270, 0.6932, 0.8837, 0.9731, 0.9966, 0.9998, & +0.0108, 0.0298, 0.0913, 0.2600, 0.5364, 0.7957, 0.9407, 0.9903, 0.9992, & +0.0108, 0.0122, 0.0366, 0.1161, 0.3065, 0.6084, 0.8647, 0.9701, 0.9966 / +data ((cldnuctab( 3,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +0.2173, 0.3913, 0.6259, 0.8438, 0.9633, 0.9966, 0.9998, 0.9999, 0.9999, & +0.1560, 0.2906, 0.4998, 0.7398, 0.9085, 0.9845, 0.9989, 0.9999, 0.9999, & +0.0991, 0.2173, 0.3913, 0.6259, 0.8325, 0.9553, 0.9942, 0.9997, 0.9999, & +0.0539, 0.1350, 0.2906, 0.4998, 0.7398, 0.9085, 0.9826, 0.9983, 0.9999, & +0.0216, 0.0647, 0.1790, 0.3738, 0.6259, 0.8325, 0.9553, 0.9934, 0.9996, & +0.0122, 0.0268, 0.0772, 0.2173, 0.4632, 0.7398, 0.9085, 0.9826, 0.9983, & +0.0108, 0.0137, 0.0298, 0.0913, 0.2600, 0.5364, 0.8207, 0.9553, 0.9942 / +data ((cldnuctab( 3,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +0.1913, 0.3738, 0.5907, 0.8207, 0.9553, 0.9955, 0.9998, 0.9999, 0.9999, & +0.1350, 0.2751, 0.4632, 0.7091, 0.8924, 0.9806, 0.9985, 0.9999, 0.9999, & +0.0913, 0.1913, 0.3565, 0.5907, 0.7957, 0.9407, 0.9925, 0.9995, 0.9999, & +0.0490, 0.1253, 0.2600, 0.4632, 0.6932, 0.8837, 0.9731, 0.9974, 0.9998, & +0.0193, 0.0591, 0.1560, 0.3395, 0.5727, 0.7957, 0.9407, 0.9903, 0.9993, & +0.0122, 0.0216, 0.0707, 0.1913, 0.4090, 0.6932, 0.8837, 0.9731, 0.9970, & +0.0122, 0.0137, 0.0268, 0.0772, 0.2173, 0.4815, 0.7687, 0.9351, 0.9903 / +data ((cldnuctab( 3,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +0.6259, 0.8325, 0.9508, 0.9925, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4998, 0.7545, 0.9085, 0.9826, 0.9980, 0.9998, 0.9999, 0.9999, 0.9999, & +0.3229, 0.6259, 0.8545, 0.9595, 0.9942, 0.9996, 0.9999, 0.9999, 0.9999, & +0.1560, 0.4090, 0.7398, 0.9227, 0.9862, 0.9987, 0.9999, 0.9999, 0.9999, & +0.0647, 0.2041, 0.4998, 0.8207, 0.9633, 0.9955, 0.9996, 0.9999, 0.9999, & +0.0330, 0.0913, 0.2311, 0.4998, 0.7545, 0.9508, 0.9955, 0.9998, 0.9999, & +0.0268, 0.0490, 0.0991, 0.1790, 0.2041, 0.2311, 0.2600, 0.3565, 0.8207 / +data ((cldnuctab( 3,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +0.5182, 0.7545, 0.9158, 0.9826, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4090, 0.6602, 0.8545, 0.9633, 0.9949, 0.9996, 0.9999, 0.9999, 0.9999, & +0.2600, 0.5364, 0.7687, 0.9291, 0.9862, 0.9987, 0.9999, 0.9999, 0.9999, & +0.1253, 0.3395, 0.6432, 0.8745, 0.9701, 0.9961, 0.9997, 0.9999, 0.9999, & +0.0490, 0.1560, 0.4090, 0.7545, 0.9351, 0.9891, 0.9990, 0.9999, 0.9999, & +0.0268, 0.0647, 0.2041, 0.4815, 0.7957, 0.9595, 0.9961, 0.9996, 0.9999, & +0.0268, 0.0366, 0.0913, 0.2173, 0.3738, 0.5727, 0.7824, 0.9701, 0.9990 / +data ((cldnuctab( 3,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +0.4450, 0.6769, 0.8647, 0.9668, 0.9966, 0.9998, 0.9999, 0.9999, 0.9999, & +0.3395, 0.5727, 0.7957, 0.9351, 0.9877, 0.9990, 0.9999, 0.9999, 0.9999, & +0.2173, 0.4450, 0.6932, 0.8837, 0.9731, 0.9966, 0.9998, 0.9999, 0.9999, & +0.0991, 0.2751, 0.5546, 0.8085, 0.9407, 0.9903, 0.9992, 0.9999, 0.9999, & +0.0404, 0.1253, 0.3395, 0.6602, 0.8924, 0.9783, 0.9974, 0.9998, 0.9999, & +0.0268, 0.0490, 0.1560, 0.4090, 0.7545, 0.9407, 0.9915, 0.9993, 0.9999, & +0.0268, 0.0330, 0.0707, 0.1913, 0.4270, 0.7091, 0.9227, 0.9903, 0.9995 / +data ((cldnuctab( 3,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +0.3738, 0.6084, 0.8207, 0.9508, 0.9934, 0.9995, 0.9999, 0.9999, 0.9999, & +0.2751, 0.4998, 0.7247, 0.9007, 0.9783, 0.9977, 0.9998, 0.9999, 0.9999, & +0.1790, 0.3738, 0.6259, 0.8325, 0.9508, 0.9925, 0.9995, 0.9999, 0.9999, & +0.0840, 0.2311, 0.4815, 0.7398, 0.9085, 0.9806, 0.9980, 0.9998, 0.9999, & +0.0330, 0.0991, 0.2751, 0.5727, 0.8325, 0.9553, 0.9934, 0.9995, 0.9999, & +0.0268, 0.0404, 0.1253, 0.3395, 0.6769, 0.9085, 0.9826, 0.9983, 0.9998, & +0.0268, 0.0330, 0.0539, 0.1560, 0.3738, 0.6932, 0.9227, 0.9903, 0.9993 / +data ((cldnuctab( 3,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +0.3229, 0.5546, 0.7687, 0.9291, 0.9891, 0.9993, 0.9999, 0.9999, 0.9999, & +0.2453, 0.4270, 0.6602, 0.8647, 0.9668, 0.9961, 0.9998, 0.9999, 0.9999, & +0.1560, 0.3229, 0.5546, 0.7687, 0.9291, 0.9862, 0.9989, 0.9999, 0.9999, & +0.0707, 0.1913, 0.4090, 0.6602, 0.8647, 0.9668, 0.9955, 0.9997, 0.9999, & +0.0298, 0.0840, 0.2311, 0.4998, 0.7687, 0.9291, 0.9877, 0.9989, 0.9999, & +0.0268, 0.0330, 0.0991, 0.2751, 0.5907, 0.8647, 0.9701, 0.9961, 0.9997, & +0.0268, 0.0330, 0.0446, 0.1253, 0.3229, 0.6432, 0.9007, 0.9845, 0.9987 / +data ((cldnuctab( 3,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +0.2906, 0.4998, 0.7398, 0.9085, 0.9845, 0.9989, 0.9999, 0.9999, 0.9999, & +0.2173, 0.3913, 0.6259, 0.8325, 0.9553, 0.9942, 0.9996, 0.9999, 0.9999, & +0.1350, 0.2906, 0.4998, 0.7247, 0.9007, 0.9806, 0.9980, 0.9999, 0.9999, & +0.0647, 0.1673, 0.3565, 0.6084, 0.8207, 0.9508, 0.9925, 0.9995, 0.9999, & +0.0298, 0.0707, 0.2041, 0.4450, 0.7247, 0.9007, 0.9783, 0.9977, 0.9998, & +0.0298, 0.0330, 0.0840, 0.2311, 0.5182, 0.8085, 0.9508, 0.9925, 0.9995, & +0.0298, 0.0330, 0.0404, 0.0991, 0.2751, 0.5727, 0.8647, 0.9758, 0.9977 / +data ((cldnuctab( 3,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +0.2751, 0.4815, 0.7091, 0.8924, 0.9806, 0.9985, 0.9999, 0.9999, 0.9999, & +0.1913, 0.3565, 0.5907, 0.7957, 0.9407, 0.9925, 0.9995, 0.9999, 0.9999, & +0.1161, 0.2600, 0.4632, 0.6932, 0.8745, 0.9731, 0.9974, 0.9998, 0.9999, & +0.0539, 0.1453, 0.3229, 0.5727, 0.7957, 0.9351, 0.9891, 0.9992, 0.9999, & +0.0330, 0.0647, 0.1790, 0.3913, 0.6769, 0.8745, 0.9701, 0.9966, 0.9998, & +0.0330, 0.0366, 0.0707, 0.2041, 0.4632, 0.7687, 0.9291, 0.9877, 0.9990, & +0.0330, 0.0366, 0.0404, 0.0913, 0.2311, 0.5182, 0.8325, 0.9633, 0.9961 / +data ((cldnuctab( 3,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +0.6769, 0.8745, 0.9701, 0.9961, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5546, 0.7957, 0.9407, 0.9891, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3565, 0.6769, 0.8837, 0.9758, 0.9970, 0.9998, 0.9999, 0.9999, 0.9999, & +0.1673, 0.4450, 0.7687, 0.9460, 0.9915, 0.9993, 0.9999, 0.9999, 0.9999, & +0.0707, 0.2041, 0.5182, 0.8438, 0.9731, 0.9974, 0.9998, 0.9999, 0.9999, & +0.0490, 0.0991, 0.2453, 0.4815, 0.7545, 0.9553, 0.9966, 0.9998, 0.9999, & +0.0446, 0.0591, 0.1074, 0.1673, 0.2041, 0.2311, 0.2600, 0.3738, 0.8207 / +data ((cldnuctab( 3,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +0.5907, 0.8085, 0.9407, 0.9903, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4632, 0.7091, 0.8924, 0.9758, 0.9970, 0.9998, 0.9999, 0.9999, 0.9999, & +0.2906, 0.5727, 0.8207, 0.9508, 0.9915, 0.9993, 0.9999, 0.9999, 0.9999, & +0.1350, 0.3565, 0.6932, 0.9007, 0.9806, 0.9977, 0.9998, 0.9999, 0.9999, & +0.0539, 0.1673, 0.4270, 0.7824, 0.9553, 0.9942, 0.9995, 0.9999, 0.9999, & +0.0446, 0.0707, 0.2041, 0.4815, 0.8207, 0.9668, 0.9974, 0.9998, 0.9999, & +0.0446, 0.0539, 0.0991, 0.2173, 0.3738, 0.5364, 0.7687, 0.9701, 0.9993 / +data ((cldnuctab( 3,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +0.4998, 0.7398, 0.9085, 0.9806, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3913, 0.6259, 0.8438, 0.9553, 0.9934, 0.9995, 0.9999, 0.9999, 0.9999, & +0.2311, 0.4998, 0.7545, 0.9158, 0.9826, 0.9980, 0.9998, 0.9999, 0.9999, & +0.1074, 0.2906, 0.5907, 0.8438, 0.9633, 0.9942, 0.9995, 0.9999, 0.9999, & +0.0446, 0.1253, 0.3565, 0.6932, 0.9158, 0.9862, 0.9985, 0.9999, 0.9999, & +0.0446, 0.0539, 0.1673, 0.4270, 0.7687, 0.9553, 0.9949, 0.9996, 0.9999, & +0.0446, 0.0490, 0.0840, 0.1913, 0.4270, 0.6932, 0.9291, 0.9934, 0.9997 / +data ((cldnuctab( 3,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +0.4450, 0.6769, 0.8647, 0.9668, 0.9961, 0.9998, 0.9999, 0.9999, 0.9999, & +0.3229, 0.5546, 0.7824, 0.9291, 0.9877, 0.9989, 0.9999, 0.9999, 0.9999, & +0.1913, 0.4270, 0.6769, 0.8745, 0.9668, 0.9961, 0.9997, 0.9999, 0.9999, & +0.0840, 0.2453, 0.5182, 0.7824, 0.9351, 0.9877, 0.9989, 0.9999, 0.9999, & +0.0446, 0.1074, 0.2906, 0.6084, 0.8745, 0.9731, 0.9966, 0.9997, 0.9999, & +0.0446, 0.0539, 0.1253, 0.3395, 0.6932, 0.9291, 0.9891, 0.9990, 0.9999, & +0.0446, 0.0490, 0.0647, 0.1673, 0.3913, 0.6932, 0.9291, 0.9925, 0.9996 / +data ((cldnuctab( 3,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +0.3913, 0.6084, 0.8207, 0.9508, 0.9942, 0.9996, 0.9999, 0.9999, 0.9999, & +0.2906, 0.4998, 0.7247, 0.9007, 0.9783, 0.9980, 0.9999, 0.9999, 0.9999, & +0.1673, 0.3738, 0.6084, 0.8207, 0.9508, 0.9925, 0.9995, 0.9999, 0.9999, & +0.0772, 0.2041, 0.4450, 0.7247, 0.9007, 0.9783, 0.9977, 0.9998, 0.9999, & +0.0490, 0.0840, 0.2453, 0.5364, 0.8207, 0.9508, 0.9925, 0.9994, 0.9999, & +0.0490, 0.0539, 0.1074, 0.2906, 0.6259, 0.8924, 0.9806, 0.9980, 0.9998, & +0.0446, 0.0490, 0.0647, 0.1350, 0.3229, 0.6602, 0.9085, 0.9891, 0.9993 / +data ((cldnuctab( 3,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +0.3565, 0.5727, 0.7957, 0.9407, 0.9915, 0.9995, 0.9999, 0.9999, 0.9999, & +0.2453, 0.4450, 0.6769, 0.8745, 0.9701, 0.9970, 0.9998, 0.9999, 0.9999, & +0.1453, 0.3229, 0.5546, 0.7824, 0.9291, 0.9877, 0.9990, 0.9999, 0.9999, & +0.0647, 0.1790, 0.4090, 0.6602, 0.8647, 0.9668, 0.9961, 0.9997, 0.9999, & +0.0490, 0.0772, 0.2041, 0.4815, 0.7687, 0.9291, 0.9877, 0.9989, 0.9999, & +0.0490, 0.0539, 0.0913, 0.2453, 0.5546, 0.8438, 0.9668, 0.9961, 0.9997, & +0.0490, 0.0539, 0.0647, 0.1161, 0.2751, 0.5907, 0.8837, 0.9845, 0.9987 / +data ((cldnuctab( 3,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +0.3229, 0.5364, 0.7687, 0.9291, 0.9891, 0.9993, 0.9999, 0.9999, 0.9999, & +0.2311, 0.4270, 0.6432, 0.8438, 0.9633, 0.9955, 0.9997, 0.9999, 0.9999, & +0.1350, 0.2906, 0.5182, 0.7545, 0.9158, 0.9845, 0.9985, 0.9999, 0.9999, & +0.0591, 0.1673, 0.3565, 0.6259, 0.8325, 0.9553, 0.9942, 0.9996, 0.9999, & +0.0539, 0.0647, 0.1913, 0.4270, 0.7247, 0.9085, 0.9806, 0.9980, 0.9998, & +0.0539, 0.0591, 0.0772, 0.2173, 0.4998, 0.7957, 0.9508, 0.9934, 0.9995, & +0.0490, 0.0539, 0.0647, 0.0991, 0.2453, 0.5364, 0.8545, 0.9758, 0.9977 / +data ((cldnuctab( 3,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +0.7247, 0.9007, 0.9783, 0.9974, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5907, 0.8325, 0.9553, 0.9925, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3738, 0.6932, 0.9085, 0.9826, 0.9980, 0.9998, 0.9999, 0.9999, 0.9999, & +0.1673, 0.4450, 0.7957, 0.9553, 0.9942, 0.9995, 0.9999, 0.9999, 0.9999, & +0.0772, 0.2173, 0.5182, 0.8545, 0.9783, 0.9983, 0.9998, 0.9999, 0.9999, & +0.0647, 0.1074, 0.2453, 0.4815, 0.7398, 0.9553, 0.9974, 0.9999, 0.9999, & +0.0539, 0.0707, 0.1161, 0.1790, 0.2041, 0.2041, 0.2751, 0.3913, 0.8207 / +data ((cldnuctab( 3,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +0.6432, 0.8438, 0.9553, 0.9934, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4998, 0.7545, 0.9158, 0.9826, 0.9983, 0.9998, 0.9999, 0.9999, 0.9999, & +0.3065, 0.6084, 0.8545, 0.9633, 0.9949, 0.9996, 0.9999, 0.9999, 0.9999, & +0.1350, 0.3738, 0.7091, 0.9227, 0.9862, 0.9985, 0.9999, 0.9999, 0.9999, & +0.0647, 0.1673, 0.4450, 0.7957, 0.9633, 0.9955, 0.9997, 0.9999, 0.9999, & +0.0591, 0.0840, 0.2173, 0.4815, 0.8207, 0.9731, 0.9983, 0.9999, 0.9999, & +0.0591, 0.0707, 0.1161, 0.2173, 0.3738, 0.5364, 0.7545, 0.9407, 0.9995 / +data ((cldnuctab( 3,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +0.5546, 0.7824, 0.9291, 0.9862, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4270, 0.6769, 0.8647, 0.9668, 0.9955, 0.9997, 0.9999, 0.9999, 0.9999, & +0.2453, 0.5182, 0.7824, 0.9351, 0.9877, 0.9989, 0.9999, 0.9999, 0.9999, & +0.1074, 0.3065, 0.6259, 0.8745, 0.9701, 0.9966, 0.9997, 0.9999, 0.9999, & +0.0647, 0.1350, 0.3565, 0.7247, 0.9351, 0.9903, 0.9990, 0.9999, 0.9999, & +0.0591, 0.0707, 0.1673, 0.4270, 0.7824, 0.9633, 0.9966, 0.9998, 0.9999, & +0.0591, 0.0707, 0.0991, 0.2041, 0.4090, 0.6932, 0.9291, 0.9942, 0.9998 / +data ((cldnuctab( 3,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +0.4815, 0.7091, 0.8924, 0.9758, 0.9977, 0.9998, 0.9999, 0.9999, 0.9999, & +0.3565, 0.6084, 0.8207, 0.9460, 0.9915, 0.9994, 0.9999, 0.9999, 0.9999, & +0.2041, 0.4450, 0.7091, 0.8924, 0.9783, 0.9974, 0.9998, 0.9999, 0.9999, & +0.0913, 0.2453, 0.5364, 0.8085, 0.9508, 0.9925, 0.9993, 0.9999, 0.9999, & +0.0647, 0.1074, 0.2906, 0.6432, 0.8924, 0.9783, 0.9977, 0.9998, 0.9999, & +0.0647, 0.0707, 0.1350, 0.3565, 0.7091, 0.9407, 0.9925, 0.9995, 0.9999, & +0.0591, 0.0707, 0.0840, 0.1673, 0.3913, 0.6932, 0.9351, 0.9942, 0.9997 / +data ((cldnuctab( 3,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +0.4270, 0.6602, 0.8545, 0.9668, 0.9961, 0.9998, 0.9999, 0.9999, 0.9999, & +0.3065, 0.5364, 0.7687, 0.9227, 0.9862, 0.9987, 0.9999, 0.9999, 0.9999, & +0.1790, 0.3913, 0.6432, 0.8545, 0.9633, 0.9949, 0.9996, 0.9999, 0.9999, & +0.0772, 0.2173, 0.4815, 0.7545, 0.9227, 0.9845, 0.9985, 0.9999, 0.9999, & +0.0647, 0.0913, 0.2453, 0.5546, 0.8438, 0.9633, 0.9949, 0.9996, 0.9999, & +0.0647, 0.0707, 0.1074, 0.2906, 0.6259, 0.9085, 0.9845, 0.9987, 0.9999, & +0.0647, 0.0707, 0.0840, 0.1453, 0.3395, 0.6602, 0.9158, 0.9925, 0.9995 / +data ((cldnuctab( 3,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +0.3913, 0.6084, 0.8325, 0.9553, 0.9942, 0.9996, 0.9999, 0.9999, 0.9999, & +0.2751, 0.4998, 0.7247, 0.9007, 0.9783, 0.9980, 0.9999, 0.9999, 0.9999, & +0.1560, 0.3565, 0.6084, 0.8207, 0.9460, 0.9925, 0.9994, 0.9999, 0.9999, & +0.0707, 0.1913, 0.4270, 0.7091, 0.8924, 0.9758, 0.9974, 0.9998, 0.9999, & +0.0707, 0.0772, 0.2173, 0.4998, 0.7957, 0.9460, 0.9915, 0.9993, 0.9999, & +0.0647, 0.0772, 0.0913, 0.2453, 0.5546, 0.8647, 0.9758, 0.9974, 0.9998, & +0.0647, 0.0707, 0.0840, 0.1253, 0.2906, 0.5907, 0.8924, 0.9877, 0.9990 / +data ((cldnuctab( 3,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +0.3565, 0.5907, 0.8085, 0.9460, 0.9925, 0.9995, 0.9999, 0.9999, 0.9999, & +0.2600, 0.4632, 0.6932, 0.8745, 0.9731, 0.9974, 0.9998, 0.9999, 0.9999, & +0.1453, 0.3229, 0.5546, 0.7824, 0.9351, 0.9891, 0.9992, 0.9999, 0.9999, & +0.0707, 0.1673, 0.3913, 0.6602, 0.8647, 0.9668, 0.9961, 0.9997, 0.9999, & +0.0707, 0.0772, 0.1913, 0.4450, 0.7545, 0.9227, 0.9862, 0.9989, 0.9999, & +0.0707, 0.0772, 0.0913, 0.2173, 0.4998, 0.8207, 0.9633, 0.9955, 0.9996, & +0.0707, 0.0772, 0.0840, 0.1161, 0.2600, 0.5364, 0.8647, 0.9806, 0.9985 / +data ((cldnuctab( 3,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +0.7545, 0.9158, 0.9826, 0.9983, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6084, 0.8545, 0.9633, 0.9949, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3738, 0.7247, 0.9227, 0.9862, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, & +0.1673, 0.4632, 0.8085, 0.9633, 0.9961, 0.9997, 0.9999, 0.9999, 0.9999, & +0.0913, 0.2173, 0.5182, 0.8647, 0.9826, 0.9987, 0.9999, 0.9999, 0.9999, & +0.0772, 0.1161, 0.2453, 0.4632, 0.7398, 0.9407, 0.9966, 0.9999, 0.9999, & +0.0707, 0.0840, 0.1253, 0.1790, 0.2041, 0.2041, 0.2751, 0.3565, 0.7545 / +data ((cldnuctab( 3,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +0.6602, 0.8647, 0.9668, 0.9955, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5182, 0.7824, 0.9291, 0.9877, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3065, 0.6259, 0.8745, 0.9701, 0.9961, 0.9997, 0.9999, 0.9999, 0.9999, & +0.1350, 0.3738, 0.7247, 0.9351, 0.9891, 0.9990, 0.9999, 0.9999, 0.9999, & +0.0772, 0.1790, 0.4450, 0.8085, 0.9701, 0.9970, 0.9998, 0.9999, 0.9999, & +0.0772, 0.0991, 0.2173, 0.4815, 0.8207, 0.9758, 0.9985, 0.9999, 0.9999, & +0.0707, 0.0840, 0.1253, 0.2173, 0.3565, 0.5182, 0.7398, 0.9351, 0.9995 / +data ((cldnuctab( 3,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +0.5907, 0.8085, 0.9407, 0.9903, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4450, 0.7091, 0.8924, 0.9758, 0.9970, 0.9998, 0.9999, 0.9999, 0.9999, & +0.2600, 0.5546, 0.8085, 0.9460, 0.9915, 0.9992, 0.9999, 0.9999, 0.9999, & +0.1074, 0.3065, 0.6432, 0.8924, 0.9783, 0.9974, 0.9998, 0.9999, 0.9999, & +0.0772, 0.1350, 0.3738, 0.7398, 0.9460, 0.9925, 0.9994, 0.9999, 0.9999, & +0.0772, 0.0913, 0.1790, 0.4270, 0.7957, 0.9701, 0.9974, 0.9998, 0.9999, & +0.0772, 0.0840, 0.1074, 0.2041, 0.4090, 0.6769, 0.9227, 0.9949, 0.9998 / +data ((cldnuctab( 3,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +0.5182, 0.7398, 0.9085, 0.9826, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3913, 0.6259, 0.8438, 0.9553, 0.9942, 0.9995, 0.9999, 0.9999, 0.9999, & +0.2173, 0.4815, 0.7398, 0.9158, 0.9826, 0.9983, 0.9998, 0.9999, 0.9999, & +0.0913, 0.2600, 0.5546, 0.8325, 0.9595, 0.9942, 0.9995, 0.9999, 0.9999, & +0.0772, 0.1074, 0.3065, 0.6432, 0.9085, 0.9845, 0.9983, 0.9999, 0.9999, & +0.0772, 0.0913, 0.1453, 0.3565, 0.7247, 0.9460, 0.9942, 0.9996, 0.9999, & +0.0772, 0.0840, 0.1074, 0.1790, 0.3913, 0.6932, 0.9351, 0.9955, 0.9998 / +data ((cldnuctab( 3,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +0.4632, 0.6932, 0.8837, 0.9731, 0.9974, 0.9998, 0.9999, 0.9999, 0.9999, & +0.3395, 0.5727, 0.7957, 0.9351, 0.9891, 0.9992, 0.9999, 0.9999, 0.9999, & +0.1913, 0.4090, 0.6769, 0.8745, 0.9701, 0.9966, 0.9998, 0.9999, 0.9999, & +0.0840, 0.2173, 0.4998, 0.7824, 0.9351, 0.9891, 0.9990, 0.9999, 0.9999, & +0.0840, 0.0913, 0.2600, 0.5727, 0.8545, 0.9701, 0.9966, 0.9997, 0.9999, & +0.0840, 0.0913, 0.1161, 0.3065, 0.6432, 0.9158, 0.9891, 0.9990, 0.9999, & +0.0840, 0.0840, 0.0991, 0.1560, 0.3395, 0.6602, 0.9227, 0.9934, 0.9996 / +data ((cldnuctab( 3,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +0.4270, 0.6432, 0.8545, 0.9633, 0.9961, 0.9998, 0.9999, 0.9999, 0.9999, & +0.3065, 0.5182, 0.7545, 0.9158, 0.9845, 0.9987, 0.9999, 0.9999, 0.9999, & +0.1673, 0.3738, 0.6259, 0.8438, 0.9595, 0.9942, 0.9996, 0.9999, 0.9999, & +0.0840, 0.1913, 0.4450, 0.7247, 0.9085, 0.9826, 0.9983, 0.9999, 0.9999, & +0.0840, 0.0913, 0.2173, 0.4998, 0.8085, 0.9553, 0.9934, 0.9995, 0.9999, & +0.0840, 0.0913, 0.1074, 0.2600, 0.5727, 0.8745, 0.9806, 0.9980, 0.9998, & +0.0840, 0.0913, 0.0991, 0.1350, 0.2906, 0.5907, 0.9007, 0.9903, 0.9993 / +data ((cldnuctab( 3,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +0.3913, 0.6259, 0.8325, 0.9553, 0.9949, 0.9997, 0.9999, 0.9999, 0.9999, & +0.2751, 0.4998, 0.7247, 0.9007, 0.9806, 0.9983, 0.9999, 0.9999, 0.9999, & +0.1560, 0.3395, 0.5907, 0.8085, 0.9460, 0.9915, 0.9994, 0.9999, 0.9999, & +0.0913, 0.1790, 0.4090, 0.6932, 0.8837, 0.9758, 0.9974, 0.9998, 0.9999, & +0.0913, 0.0991, 0.1913, 0.4632, 0.7687, 0.9351, 0.9903, 0.9992, 0.9999, & +0.0913, 0.0991, 0.1074, 0.2311, 0.5182, 0.8325, 0.9701, 0.9966, 0.9998, & +0.0913, 0.0913, 0.1074, 0.1350, 0.2600, 0.5364, 0.8647, 0.9845, 0.9989 / +data ((cldnuctab( 4,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +0.6302, 0.8353, 0.9564, 0.9943, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5043, 0.7580, 0.9175, 0.9849, 0.9988, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3269, 0.6302, 0.8571, 0.9677, 0.9957, 0.9997, 0.9999, 0.9999, 0.9999, & +0.1587, 0.4134, 0.7434, 0.9306, 0.9894, 0.9992, 0.9999, 0.9999, 0.9999, & +0.0662, 0.2073, 0.5043, 0.8237, 0.9677, 0.9967, 0.9998, 0.9999, 0.9999, & +0.0339, 0.0932, 0.2345, 0.5043, 0.7721, 0.9564, 0.9967, 0.9999, 0.9999, & +0.0275, 0.0456, 0.1011, 0.1820, 0.2073, 0.2206, 0.2636, 0.3607, 0.8237 / +data ((cldnuctab( 4,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +0.5227, 0.7580, 0.9175, 0.9866, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4134, 0.6643, 0.8571, 0.9677, 0.9962, 0.9998, 0.9999, 0.9999, 0.9999, & +0.2636, 0.5409, 0.7857, 0.9306, 0.9881, 0.9991, 0.9999, 0.9999, 0.9999, & +0.1277, 0.3436, 0.6474, 0.8768, 0.9738, 0.9971, 0.9998, 0.9999, 0.9999, & +0.0502, 0.1587, 0.4134, 0.7580, 0.9421, 0.9917, 0.9994, 0.9999, 0.9999, & +0.0275, 0.0662, 0.1944, 0.4860, 0.8115, 0.9642, 0.9971, 0.9998, 0.9999, & +0.0275, 0.0375, 0.0932, 0.2206, 0.3780, 0.5772, 0.7989, 0.9738, 0.9994 / +data ((cldnuctab( 4,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +0.4495, 0.6809, 0.8768, 0.9708, 0.9975, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3436, 0.5772, 0.7989, 0.9365, 0.9906, 0.9994, 0.9999, 0.9999, 0.9999, & +0.2206, 0.4495, 0.6971, 0.8859, 0.9764, 0.9975, 0.9998, 0.9999, 0.9999, & +0.1011, 0.2788, 0.5591, 0.8115, 0.9472, 0.9927, 0.9995, 0.9999, 0.9999, & +0.0375, 0.1277, 0.3436, 0.6643, 0.8945, 0.9811, 0.9981, 0.9999, 0.9999, & +0.0275, 0.0502, 0.1587, 0.4134, 0.7580, 0.9472, 0.9936, 0.9995, 0.9999, & +0.0275, 0.0339, 0.0723, 0.1944, 0.4314, 0.7130, 0.9306, 0.9927, 0.9997 / +data ((cldnuctab( 4,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +0.3780, 0.6127, 0.8237, 0.9519, 0.9943, 0.9997, 0.9999, 0.9999, 0.9999, & +0.2788, 0.5043, 0.7284, 0.9027, 0.9811, 0.9986, 0.9999, 0.9999, 0.9999, & +0.1820, 0.3780, 0.6302, 0.8353, 0.9564, 0.9943, 0.9997, 0.9999, 0.9999, & +0.0858, 0.2206, 0.4860, 0.7434, 0.9103, 0.9831, 0.9986, 0.9999, 0.9999, & +0.0339, 0.1011, 0.2788, 0.5772, 0.8353, 0.9604, 0.9950, 0.9997, 0.9999, & +0.0275, 0.0375, 0.1183, 0.3436, 0.6809, 0.9103, 0.9866, 0.9988, 0.9999, & +0.0275, 0.0306, 0.0551, 0.1587, 0.3780, 0.6971, 0.9243, 0.9927, 0.9995 / +data ((cldnuctab( 4,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +0.3269, 0.5591, 0.7721, 0.9306, 0.9906, 0.9995, 0.9999, 0.9999, 0.9999, & +0.2345, 0.4314, 0.6643, 0.8672, 0.9708, 0.9971, 0.9998, 0.9999, 0.9999, & +0.1479, 0.3269, 0.5591, 0.7857, 0.9306, 0.9894, 0.9992, 0.9999, 0.9999, & +0.0723, 0.1944, 0.4134, 0.6643, 0.8672, 0.9708, 0.9967, 0.9998, 0.9999, & +0.0275, 0.0858, 0.2345, 0.5043, 0.7857, 0.9365, 0.9894, 0.9992, 0.9999, & +0.0275, 0.0339, 0.1011, 0.2788, 0.5950, 0.8672, 0.9738, 0.9971, 0.9998, & +0.0275, 0.0339, 0.0456, 0.1277, 0.3269, 0.6474, 0.9027, 0.9866, 0.9991 / +data ((cldnuctab( 4,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +0.2945, 0.5043, 0.7434, 0.9175, 0.9866, 0.9992, 0.9999, 0.9999, 0.9999, & +0.2206, 0.3956, 0.6302, 0.8353, 0.9564, 0.9950, 0.9998, 0.9999, 0.9999, & +0.1375, 0.2788, 0.5043, 0.7284, 0.9027, 0.9831, 0.9986, 0.9999, 0.9999, & +0.0605, 0.1701, 0.3607, 0.6127, 0.8353, 0.9564, 0.9943, 0.9997, 0.9999, & +0.0306, 0.0723, 0.1944, 0.4495, 0.7284, 0.9027, 0.9811, 0.9983, 0.9999, & +0.0306, 0.0339, 0.0858, 0.2345, 0.5227, 0.8115, 0.9564, 0.9943, 0.9996, & +0.0306, 0.0339, 0.0414, 0.1011, 0.2788, 0.5772, 0.8672, 0.9789, 0.9981 / +data ((cldnuctab( 4,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +0.2788, 0.4677, 0.7130, 0.9027, 0.9831, 0.9989, 0.9999, 0.9999, 0.9999, & +0.1944, 0.3607, 0.5772, 0.7989, 0.9472, 0.9936, 0.9997, 0.9999, 0.9999, & +0.1183, 0.2636, 0.4677, 0.6971, 0.8859, 0.9764, 0.9978, 0.9999, 0.9999, & +0.0551, 0.1479, 0.3269, 0.5772, 0.7989, 0.9365, 0.9906, 0.9994, 0.9999, & +0.0339, 0.0662, 0.1820, 0.3956, 0.6809, 0.8768, 0.9738, 0.9971, 0.9998, & +0.0339, 0.0375, 0.0723, 0.2073, 0.4677, 0.7721, 0.9365, 0.9894, 0.9993, & +0.0306, 0.0339, 0.0414, 0.0858, 0.2345, 0.5227, 0.8353, 0.9677, 0.9967 / +data ((cldnuctab( 4,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +0.7284, 0.9027, 0.9789, 0.9978, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5950, 0.8353, 0.9564, 0.9936, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3607, 0.6971, 0.9103, 0.9831, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, & +0.1701, 0.4495, 0.7989, 0.9604, 0.9950, 0.9997, 0.9999, 0.9999, 0.9999, & +0.0788, 0.2206, 0.5227, 0.8571, 0.9811, 0.9986, 0.9999, 0.9999, 0.9999, & +0.0662, 0.1095, 0.2488, 0.4860, 0.7434, 0.9564, 0.9978, 0.9999, 0.9999, & +0.0551, 0.0723, 0.1183, 0.1820, 0.1944, 0.2073, 0.2788, 0.3956, 0.8115 / +data ((cldnuctab( 4,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +0.6302, 0.8465, 0.9564, 0.9943, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5043, 0.7580, 0.9175, 0.9849, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2945, 0.6127, 0.8571, 0.9642, 0.9950, 0.9997, 0.9999, 0.9999, 0.9999, & +0.1375, 0.3607, 0.7130, 0.9243, 0.9866, 0.9989, 0.9999, 0.9999, 0.9999, & +0.0662, 0.1701, 0.4495, 0.7989, 0.9642, 0.9962, 0.9997, 0.9999, 0.9999, & +0.0605, 0.0858, 0.2073, 0.4860, 0.8237, 0.9738, 0.9986, 0.9999, 0.9999, & +0.0605, 0.0723, 0.1095, 0.2206, 0.3780, 0.5227, 0.7580, 0.9472, 0.9996 / +data ((cldnuctab( 4,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +0.5591, 0.7721, 0.9306, 0.9881, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4314, 0.6809, 0.8672, 0.9677, 0.9962, 0.9997, 0.9999, 0.9999, 0.9999, & +0.2488, 0.5227, 0.7857, 0.9365, 0.9894, 0.9991, 0.9999, 0.9999, 0.9999, & +0.1095, 0.2945, 0.6302, 0.8768, 0.9738, 0.9967, 0.9998, 0.9999, 0.9999, & +0.0605, 0.1375, 0.3607, 0.7284, 0.9365, 0.9906, 0.9993, 0.9999, 0.9999, & +0.0605, 0.0723, 0.1701, 0.4314, 0.7857, 0.9642, 0.9971, 0.9998, 0.9999, & +0.0605, 0.0662, 0.0932, 0.2073, 0.4134, 0.6971, 0.9306, 0.9950, 0.9998 / +data ((cldnuctab( 4,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +0.4860, 0.7130, 0.8945, 0.9789, 0.9978, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3607, 0.5950, 0.8237, 0.9472, 0.9917, 0.9995, 0.9999, 0.9999, 0.9999, & +0.2073, 0.4495, 0.7130, 0.8945, 0.9789, 0.9978, 0.9998, 0.9999, 0.9999, & +0.0932, 0.2488, 0.5409, 0.8115, 0.9519, 0.9927, 0.9995, 0.9999, 0.9999, & +0.0662, 0.1095, 0.2945, 0.6302, 0.8945, 0.9811, 0.9981, 0.9999, 0.9999, & +0.0605, 0.0723, 0.1375, 0.3607, 0.7130, 0.9421, 0.9936, 0.9995, 0.9999, & +0.0605, 0.0662, 0.0858, 0.1701, 0.3780, 0.6971, 0.9365, 0.9950, 0.9998 / +data ((cldnuctab( 4,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +0.4314, 0.6643, 0.8571, 0.9677, 0.9967, 0.9998, 0.9999, 0.9999, 0.9999, & +0.3105, 0.5409, 0.7721, 0.9243, 0.9866, 0.9989, 0.9999, 0.9999, 0.9999, & +0.1820, 0.3956, 0.6474, 0.8571, 0.9642, 0.9957, 0.9997, 0.9999, 0.9999, & +0.0788, 0.2073, 0.4860, 0.7580, 0.9243, 0.9866, 0.9988, 0.9999, 0.9999, & +0.0662, 0.0858, 0.2488, 0.5591, 0.8465, 0.9642, 0.9957, 0.9997, 0.9999, & +0.0662, 0.0723, 0.1095, 0.2945, 0.6302, 0.9103, 0.9866, 0.9989, 0.9999, & +0.0662, 0.0723, 0.0858, 0.1479, 0.3269, 0.6643, 0.9175, 0.9927, 0.9996 / +data ((cldnuctab( 4,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +0.3956, 0.6127, 0.8237, 0.9564, 0.9950, 0.9997, 0.9999, 0.9999, 0.9999, & +0.2788, 0.4860, 0.7284, 0.9027, 0.9811, 0.9983, 0.9999, 0.9999, 0.9999, & +0.1587, 0.3607, 0.5950, 0.8237, 0.9472, 0.9927, 0.9995, 0.9999, 0.9999, & +0.0662, 0.1820, 0.4314, 0.6971, 0.8945, 0.9789, 0.9978, 0.9999, 0.9999, & +0.0662, 0.0788, 0.2206, 0.4860, 0.7989, 0.9472, 0.9917, 0.9994, 0.9999, & +0.0662, 0.0723, 0.0932, 0.2488, 0.5591, 0.8672, 0.9764, 0.9975, 0.9998, & +0.0662, 0.0723, 0.0858, 0.1277, 0.2945, 0.5950, 0.8945, 0.9881, 0.9992 / +data ((cldnuctab( 4,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +0.3607, 0.5772, 0.7989, 0.9472, 0.9927, 0.9996, 0.9999, 0.9999, 0.9999, & +0.2636, 0.4677, 0.6971, 0.8768, 0.9738, 0.9975, 0.9999, 0.9999, 0.9999, & +0.1479, 0.3269, 0.5591, 0.7857, 0.9365, 0.9894, 0.9993, 0.9999, 0.9999, & +0.0723, 0.1701, 0.3956, 0.6643, 0.8672, 0.9677, 0.9962, 0.9998, 0.9999, & +0.0723, 0.0788, 0.1944, 0.4495, 0.7580, 0.9243, 0.9881, 0.9989, 0.9999, & +0.0723, 0.0788, 0.0932, 0.2206, 0.5043, 0.8237, 0.9642, 0.9957, 0.9997, & +0.0723, 0.0788, 0.0858, 0.1095, 0.2488, 0.5409, 0.8672, 0.9811, 0.9986 / +data ((cldnuctab( 4,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +0.8115, 0.9472, 0.9917, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6643, 0.8945, 0.9789, 0.9975, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3956, 0.7580, 0.9472, 0.9927, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, & +0.1820, 0.4677, 0.8353, 0.9764, 0.9981, 0.9999, 0.9999, 0.9999, 0.9999, & +0.1277, 0.2345, 0.5227, 0.8672, 0.9881, 0.9994, 0.9999, 0.9999, 0.9999, & +0.1183, 0.1479, 0.2636, 0.4495, 0.6971, 0.9306, 0.9975, 0.9999, 0.9999, & +0.1095, 0.1183, 0.1587, 0.2073, 0.2073, 0.2073, 0.2636, 0.3780, 0.7580 / +data ((cldnuctab( 4,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +0.7284, 0.9027, 0.9811, 0.9978, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5772, 0.8353, 0.9564, 0.9936, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3269, 0.6809, 0.9027, 0.9831, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, & +0.1375, 0.3956, 0.7580, 0.9564, 0.9943, 0.9996, 0.9999, 0.9999, 0.9999, & +0.1277, 0.1944, 0.4495, 0.8353, 0.9789, 0.9986, 0.9999, 0.9999, 0.9999, & +0.1183, 0.1375, 0.2345, 0.4860, 0.8115, 0.9811, 0.9992, 0.9999, 0.9999, & +0.1095, 0.1183, 0.1479, 0.2345, 0.3436, 0.4860, 0.6971, 0.9243, 0.9993 / +data ((cldnuctab( 4,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +0.6643, 0.8571, 0.9642, 0.9950, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5043, 0.7580, 0.9243, 0.9866, 0.9988, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2788, 0.5950, 0.8571, 0.9677, 0.9957, 0.9997, 0.9999, 0.9999, 0.9999, & +0.1277, 0.3269, 0.6809, 0.9175, 0.9866, 0.9988, 0.9999, 0.9999, 0.9999, & +0.1277, 0.1479, 0.3780, 0.7580, 0.9604, 0.9962, 0.9997, 0.9999, 0.9999, & +0.1183, 0.1375, 0.1944, 0.4314, 0.7989, 0.9764, 0.9988, 0.9999, 0.9999, & +0.1183, 0.1277, 0.1479, 0.2345, 0.3956, 0.6474, 0.9175, 0.9962, 0.9999 / +data ((cldnuctab( 4,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +0.5950, 0.8115, 0.9421, 0.9906, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4314, 0.6971, 0.8859, 0.9738, 0.9971, 0.9998, 0.9999, 0.9999, 0.9999, & +0.2345, 0.5227, 0.7989, 0.9421, 0.9906, 0.9992, 0.9999, 0.9999, 0.9999, & +0.1277, 0.2636, 0.5950, 0.8768, 0.9738, 0.9971, 0.9998, 0.9999, 0.9999, & +0.1277, 0.1375, 0.3105, 0.6809, 0.9306, 0.9906, 0.9993, 0.9999, 0.9999, & +0.1277, 0.1375, 0.1701, 0.3780, 0.7284, 0.9604, 0.9971, 0.9998, 0.9999, & +0.1183, 0.1277, 0.1479, 0.2073, 0.3956, 0.6643, 0.9365, 0.9971, 0.9999 / +data ((cldnuctab( 4,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +0.5409, 0.7580, 0.9175, 0.9849, 0.9988, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3780, 0.6474, 0.8465, 0.9604, 0.9950, 0.9997, 0.9999, 0.9999, 0.9999, & +0.2073, 0.4495, 0.7434, 0.9175, 0.9831, 0.9983, 0.9999, 0.9999, 0.9999, & +0.1277, 0.2345, 0.5227, 0.8237, 0.9564, 0.9943, 0.9996, 0.9999, 0.9999, & +0.1277, 0.1479, 0.2636, 0.5950, 0.8945, 0.9831, 0.9983, 0.9999, 0.9999, & +0.1277, 0.1375, 0.1587, 0.3105, 0.6474, 0.9365, 0.9936, 0.9995, 0.9999, & +0.1277, 0.1375, 0.1479, 0.1944, 0.3436, 0.6474, 0.9243, 0.9957, 0.9998 / +data ((cldnuctab( 4,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +0.4860, 0.7284, 0.8945, 0.9789, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3436, 0.5950, 0.8115, 0.9472, 0.9917, 0.9995, 0.9999, 0.9999, 0.9999, & +0.1820, 0.4134, 0.6971, 0.8859, 0.9764, 0.9975, 0.9998, 0.9999, 0.9999, & +0.1375, 0.2073, 0.4677, 0.7721, 0.9365, 0.9906, 0.9992, 0.9999, 0.9999, & +0.1375, 0.1479, 0.2345, 0.5227, 0.8465, 0.9708, 0.9967, 0.9998, 0.9999, & +0.1375, 0.1479, 0.1587, 0.2636, 0.5772, 0.9027, 0.9881, 0.9991, 0.9999, & +0.1277, 0.1375, 0.1479, 0.1820, 0.3105, 0.5950, 0.9027, 0.9936, 0.9997 / +data ((cldnuctab( 4,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +0.4677, 0.6971, 0.8768, 0.9738, 0.9975, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3269, 0.5591, 0.7857, 0.9306, 0.9894, 0.9992, 0.9999, 0.9999, 0.9999, & +0.1701, 0.3780, 0.6474, 0.8672, 0.9677, 0.9962, 0.9997, 0.9999, 0.9999, & +0.1479, 0.1820, 0.4314, 0.7434, 0.9175, 0.9866, 0.9988, 0.9999, 0.9999, & +0.1375, 0.1479, 0.2073, 0.4860, 0.8115, 0.9564, 0.9950, 0.9997, 0.9999, & +0.1375, 0.1479, 0.1701, 0.2488, 0.5227, 0.8672, 0.9811, 0.9983, 0.9999, & +0.1375, 0.1479, 0.1587, 0.1820, 0.2788, 0.5409, 0.8768, 0.9894, 0.9995 / +data ((cldnuctab( 4,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +0.8768, 0.9738, 0.9967, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7130, 0.9365, 0.9906, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3956, 0.7989, 0.9708, 0.9971, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2345, 0.4860, 0.8571, 0.9881, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2206, 0.2945, 0.5227, 0.8571, 0.9917, 0.9997, 0.9999, 0.9999, 0.9999, & +0.1944, 0.2206, 0.2945, 0.4314, 0.6474, 0.8859, 0.9962, 0.9999, 0.9999, & +0.1701, 0.1820, 0.2206, 0.2945, 0.2488, 0.2488, 0.2788, 0.4134, 0.7130 / +data ((cldnuctab( 4,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +0.8115, 0.9472, 0.9917, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6302, 0.8859, 0.9789, 0.9975, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3436, 0.7130, 0.9421, 0.9927, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2345, 0.3956, 0.7857, 0.9738, 0.9978, 0.9998, 0.9999, 0.9999, 0.9999, & +0.2206, 0.2636, 0.4677, 0.8353, 0.9881, 0.9994, 0.9999, 0.9999, 0.9999, & +0.2073, 0.2206, 0.2945, 0.4860, 0.7857, 0.9789, 0.9995, 0.9999, 0.9999, & +0.1944, 0.2073, 0.2206, 0.2945, 0.3607, 0.4495, 0.6302, 0.8768, 0.9988 / +data ((cldnuctab( 4,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +0.7434, 0.9175, 0.9831, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5591, 0.8353, 0.9604, 0.9943, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2788, 0.6302, 0.9027, 0.9831, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2206, 0.3269, 0.7130, 0.9472, 0.9943, 0.9996, 0.9999, 0.9999, 0.9999, & +0.2206, 0.2488, 0.3956, 0.7721, 0.9764, 0.9983, 0.9999, 0.9999, 0.9999, & +0.2073, 0.2345, 0.2788, 0.4495, 0.7857, 0.9831, 0.9994, 0.9999, 0.9999, & +0.2073, 0.2073, 0.2345, 0.2788, 0.4134, 0.5950, 0.8672, 0.9943, 0.9999 / +data ((cldnuctab( 4,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +0.6809, 0.8768, 0.9708, 0.9967, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4860, 0.7857, 0.9365, 0.9894, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2488, 0.5591, 0.8571, 0.9708, 0.9967, 0.9997, 0.9999, 0.9999, 0.9999, & +0.2345, 0.2788, 0.6302, 0.9175, 0.9881, 0.9991, 0.9999, 0.9999, 0.9999, & +0.2206, 0.2488, 0.3436, 0.6971, 0.9519, 0.9962, 0.9997, 0.9999, 0.9999, & +0.2206, 0.2345, 0.2636, 0.3956, 0.7284, 0.9708, 0.9988, 0.9999, 0.9999, & +0.2073, 0.2206, 0.2345, 0.2788, 0.4134, 0.6302, 0.9103, 0.9975, 0.9999 / +data ((cldnuctab( 4,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +0.6302, 0.8465, 0.9604, 0.9943, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4495, 0.7284, 0.9103, 0.9831, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2345, 0.5043, 0.8115, 0.9519, 0.9936, 0.9995, 0.9999, 0.9999, 0.9999, & +0.2345, 0.2488, 0.5591, 0.8768, 0.9789, 0.9978, 0.9998, 0.9999, 0.9999, & +0.2345, 0.2488, 0.2945, 0.6127, 0.9243, 0.9917, 0.9994, 0.9999, 0.9999, & +0.2206, 0.2345, 0.2636, 0.3607, 0.6643, 0.9472, 0.9971, 0.9998, 0.9999, & +0.2206, 0.2206, 0.2345, 0.2788, 0.3780, 0.6127, 0.9103, 0.9971, 0.9999 / +data ((cldnuctab( 4,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +0.5950, 0.8115, 0.9472, 0.9917, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4134, 0.6809, 0.8859, 0.9738, 0.9971, 0.9998, 0.9999, 0.9999, 0.9999, & +0.2345, 0.4495, 0.7721, 0.9365, 0.9894, 0.9992, 0.9999, 0.9999, 0.9999, & +0.2345, 0.2636, 0.5043, 0.8353, 0.9677, 0.9962, 0.9997, 0.9999, 0.9999, & +0.2345, 0.2488, 0.2788, 0.5591, 0.8859, 0.9849, 0.9989, 0.9999, 0.9999, & +0.2345, 0.2488, 0.2636, 0.3269, 0.5950, 0.9175, 0.9943, 0.9997, 0.9999, & +0.2345, 0.2345, 0.2488, 0.2788, 0.3607, 0.5950, 0.8859, 0.9957, 0.9998 / +data ((cldnuctab( 4,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +0.5591, 0.7857, 0.9365, 0.9894, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3780, 0.6474, 0.8571, 0.9677, 0.9962, 0.9997, 0.9999, 0.9999, 0.9999, & +0.2488, 0.4314, 0.7284, 0.9175, 0.9849, 0.9988, 0.9999, 0.9999, 0.9999, & +0.2488, 0.2636, 0.4677, 0.7989, 0.9564, 0.9943, 0.9996, 0.9999, 0.9999, & +0.2488, 0.2636, 0.2945, 0.5043, 0.8465, 0.9789, 0.9981, 0.9999, 0.9999, & +0.2488, 0.2488, 0.2788, 0.3269, 0.5409, 0.8859, 0.9894, 0.9994, 0.9999, & +0.2345, 0.2488, 0.2488, 0.2788, 0.3436, 0.5591, 0.8571, 0.9927, 0.9998 / +data ((cldnuctab( 4,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +0.9027, 0.9831, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7284, 0.9519, 0.9943, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4134, 0.8115, 0.9789, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3105, 0.4860, 0.8571, 0.9906, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2788, 0.3269, 0.5227, 0.8465, 0.9927, 0.9998, 0.9999, 0.9999, 0.9999, & +0.2636, 0.2788, 0.3436, 0.4495, 0.5950, 0.8571, 0.9936, 0.9999, 0.9999, & +0.2345, 0.2488, 0.2636, 0.3269, 0.3436, 0.2488, 0.2945, 0.3956, 0.6809 / +data ((cldnuctab( 4,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +0.8465, 0.9642, 0.9957, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6643, 0.9175, 0.9866, 0.9988, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3436, 0.7284, 0.9564, 0.9957, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2945, 0.4134, 0.7989, 0.9811, 0.9988, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2788, 0.3269, 0.4860, 0.8353, 0.9906, 0.9997, 0.9999, 0.9999, 0.9999, & +0.2636, 0.2788, 0.3269, 0.4860, 0.7434, 0.9738, 0.9996, 0.9999, 0.9999, & +0.2488, 0.2636, 0.2788, 0.3436, 0.4134, 0.4495, 0.6127, 0.8465, 0.9971 / +data ((cldnuctab( 4,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +0.7989, 0.9421, 0.9906, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5772, 0.8672, 0.9738, 0.9971, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2945, 0.6474, 0.9243, 0.9894, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2945, 0.3436, 0.7130, 0.9604, 0.9967, 0.9998, 0.9999, 0.9999, 0.9999, & +0.2945, 0.3105, 0.4314, 0.7721, 0.9811, 0.9991, 0.9999, 0.9999, 0.9999, & +0.2788, 0.2945, 0.3269, 0.4677, 0.7721, 0.9811, 0.9996, 0.9999, 0.9999, & +0.2636, 0.2788, 0.2945, 0.3269, 0.4495, 0.5772, 0.8353, 0.9831, 0.9999 / +data ((cldnuctab( 4,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +0.7284, 0.9103, 0.9831, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5227, 0.8237, 0.9564, 0.9936, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3105, 0.5772, 0.8859, 0.9811, 0.9981, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2945, 0.3269, 0.6474, 0.9306, 0.9927, 0.9995, 0.9999, 0.9999, 0.9999, & +0.2945, 0.3105, 0.3780, 0.6971, 0.9604, 0.9975, 0.9998, 0.9999, 0.9999, & +0.2945, 0.2945, 0.3269, 0.4314, 0.7284, 0.9708, 0.9992, 0.9999, 0.9999, & +0.2788, 0.2788, 0.2945, 0.3269, 0.4314, 0.6302, 0.8859, 0.9967, 0.9999 / +data ((cldnuctab( 4,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +0.6809, 0.8859, 0.9738, 0.9971, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4677, 0.7721, 0.9365, 0.9894, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3105, 0.5227, 0.8353, 0.9677, 0.9962, 0.9997, 0.9999, 0.9999, 0.9999, & +0.3105, 0.3269, 0.5772, 0.8945, 0.9866, 0.9989, 0.9999, 0.9999, 0.9999, & +0.3105, 0.3269, 0.3607, 0.6302, 0.9306, 0.9943, 0.9997, 0.9999, 0.9999, & +0.2945, 0.3105, 0.3269, 0.3956, 0.6643, 0.9519, 0.9981, 0.9999, 0.9999, & +0.2945, 0.2945, 0.3105, 0.3436, 0.4134, 0.6127, 0.8945, 0.9971, 0.9999 / +data ((cldnuctab( 4,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +0.6474, 0.8571, 0.9642, 0.9957, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4314, 0.7284, 0.9103, 0.9849, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3105, 0.4677, 0.7989, 0.9519, 0.9936, 0.9995, 0.9999, 0.9999, 0.9999, & +0.3105, 0.3436, 0.5227, 0.8571, 0.9764, 0.9978, 0.9999, 0.9999, 0.9999, & +0.3105, 0.3269, 0.3607, 0.5591, 0.8945, 0.9906, 0.9994, 0.9999, 0.9999, & +0.3105, 0.3105, 0.3436, 0.3956, 0.6127, 0.9243, 0.9962, 0.9998, 0.9999, & +0.2945, 0.3105, 0.3105, 0.3436, 0.4134, 0.5950, 0.8768, 0.9957, 0.9999 / +data ((cldnuctab( 4,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +0.6127, 0.8353, 0.9564, 0.9943, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3956, 0.6971, 0.8945, 0.9789, 0.9981, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3269, 0.4314, 0.7721, 0.9421, 0.9906, 0.9993, 0.9999, 0.9999, 0.9999, & +0.3269, 0.3436, 0.4677, 0.8237, 0.9677, 0.9967, 0.9998, 0.9999, 0.9999, & +0.3269, 0.3436, 0.3607, 0.5227, 0.8672, 0.9849, 0.9989, 0.9999, 0.9999, & +0.3105, 0.3269, 0.3436, 0.3956, 0.5591, 0.8859, 0.9927, 0.9997, 0.9999, & +0.3105, 0.3105, 0.3269, 0.3436, 0.3956, 0.5772, 0.8465, 0.9927, 0.9998 / +data ((cldnuctab( 4,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +0.9175, 0.9881, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7434, 0.9604, 0.9957, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4314, 0.8115, 0.9831, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3607, 0.5043, 0.8571, 0.9927, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3269, 0.3780, 0.5409, 0.8353, 0.9917, 0.9998, 0.9999, 0.9999, 0.9999, & +0.2945, 0.3269, 0.3780, 0.4860, 0.5950, 0.8237, 0.9894, 0.9999, 0.9999, & +0.2788, 0.2945, 0.3105, 0.3780, 0.4314, 0.2788, 0.3105, 0.4134, 0.6809 / +data ((cldnuctab( 4,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +0.8768, 0.9738, 0.9971, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6643, 0.9306, 0.9906, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3607, 0.7434, 0.9642, 0.9967, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3607, 0.4314, 0.7989, 0.9831, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3269, 0.3607, 0.5043, 0.8237, 0.9917, 0.9997, 0.9999, 0.9999, 0.9999, & +0.3105, 0.3269, 0.3780, 0.5043, 0.7434, 0.9677, 0.9997, 0.9999, 0.9999, & +0.2945, 0.3105, 0.3269, 0.3780, 0.4677, 0.4314, 0.5772, 0.7721, 0.9881 / +data ((cldnuctab( 4,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +0.8237, 0.9564, 0.9936, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5950, 0.8859, 0.9811, 0.9981, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3607, 0.6643, 0.9365, 0.9927, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3607, 0.3956, 0.7284, 0.9677, 0.9978, 0.9998, 0.9999, 0.9999, 0.9999, & +0.3436, 0.3780, 0.4495, 0.7721, 0.9831, 0.9993, 0.9999, 0.9999, 0.9999, & +0.3269, 0.3436, 0.3780, 0.4860, 0.7580, 0.9789, 0.9997, 0.9999, 0.9999, & +0.3105, 0.3269, 0.3436, 0.3780, 0.4860, 0.5772, 0.7989, 0.9764, 0.9999 / +data ((cldnuctab( 4,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +0.7721, 0.9306, 0.9881, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5409, 0.8465, 0.9642, 0.9957, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3607, 0.5950, 0.9027, 0.9849, 0.9988, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3607, 0.3956, 0.6474, 0.9421, 0.9943, 0.9997, 0.9999, 0.9999, 0.9999, & +0.3436, 0.3780, 0.4314, 0.6971, 0.9642, 0.9983, 0.9999, 0.9999, 0.9999, & +0.3436, 0.3607, 0.3780, 0.4677, 0.7130, 0.9708, 0.9994, 0.9999, 0.9999, & +0.3269, 0.3436, 0.3436, 0.3780, 0.4677, 0.6127, 0.8768, 0.9957, 0.9999 / +data ((cldnuctab( 4,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +0.7130, 0.9027, 0.9811, 0.9981, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4860, 0.7989, 0.9472, 0.9927, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3607, 0.5227, 0.8571, 0.9764, 0.9975, 0.9998, 0.9999, 0.9999, 0.9999, & +0.3607, 0.3956, 0.5772, 0.9027, 0.9894, 0.9993, 0.9999, 0.9999, 0.9999, & +0.3607, 0.3780, 0.4134, 0.6302, 0.9365, 0.9962, 0.9998, 0.9999, 0.9999, & +0.3436, 0.3607, 0.3780, 0.4495, 0.6643, 0.9519, 0.9986, 0.9999, 0.9999, & +0.3436, 0.3436, 0.3607, 0.3780, 0.4495, 0.6127, 0.8768, 0.9967, 0.9999 / +data ((cldnuctab( 4,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +0.6809, 0.8768, 0.9738, 0.9971, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4495, 0.7580, 0.9306, 0.9894, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3780, 0.4860, 0.8237, 0.9642, 0.9957, 0.9997, 0.9999, 0.9999, 0.9999, & +0.3780, 0.3956, 0.5227, 0.8672, 0.9831, 0.9986, 0.9999, 0.9999, 0.9999, & +0.3780, 0.3780, 0.4134, 0.5772, 0.9027, 0.9927, 0.9996, 0.9999, 0.9999, & +0.3607, 0.3780, 0.3956, 0.4314, 0.6127, 0.9243, 0.9971, 0.9999, 0.9999, & +0.3607, 0.3607, 0.3780, 0.3956, 0.4495, 0.6127, 0.8571, 0.9957, 0.9999 / +data ((cldnuctab( 4,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +0.6474, 0.8571, 0.9677, 0.9962, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4134, 0.7284, 0.9175, 0.9849, 0.9988, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3956, 0.4495, 0.7857, 0.9519, 0.9943, 0.9996, 0.9999, 0.9999, 0.9999, & +0.3780, 0.3956, 0.4860, 0.8353, 0.9764, 0.9978, 0.9999, 0.9999, 0.9999, & +0.3780, 0.3956, 0.4314, 0.5227, 0.8672, 0.9881, 0.9993, 0.9999, 0.9999, & +0.3780, 0.3780, 0.3956, 0.4314, 0.5772, 0.8859, 0.9943, 0.9998, 0.9999, & +0.3607, 0.3780, 0.3780, 0.3956, 0.4495, 0.5772, 0.8237, 0.9936, 0.9999 / +data ((cldnuctab( 4,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +0.9306, 0.9906, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7580, 0.9642, 0.9971, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4495, 0.8115, 0.9849, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3956, 0.5227, 0.8571, 0.9936, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3607, 0.4134, 0.5409, 0.8237, 0.9906, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3269, 0.3436, 0.4134, 0.5043, 0.5772, 0.7989, 0.9849, 0.9999, 0.9999, & +0.3269, 0.3269, 0.3607, 0.4134, 0.5043, 0.2945, 0.3269, 0.4314, 0.6809 / +data ((cldnuctab( 4,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +0.8859, 0.9789, 0.9978, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6809, 0.9365, 0.9927, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4134, 0.7434, 0.9677, 0.9978, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3956, 0.4677, 0.7989, 0.9849, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3780, 0.4134, 0.5227, 0.8237, 0.9917, 0.9998, 0.9999, 0.9999, 0.9999, & +0.3607, 0.3780, 0.4134, 0.5227, 0.7130, 0.9564, 0.9996, 0.9999, 0.9999, & +0.3436, 0.3436, 0.3607, 0.3956, 0.5043, 0.4495, 0.5772, 0.7580, 0.9831 / +data ((cldnuctab( 4,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +0.8353, 0.9642, 0.9950, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6127, 0.9027, 0.9849, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4134, 0.6643, 0.9421, 0.9943, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3956, 0.4314, 0.7284, 0.9708, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3780, 0.4134, 0.4860, 0.7721, 0.9831, 0.9995, 0.9999, 0.9999, 0.9999, & +0.3780, 0.3780, 0.4134, 0.5043, 0.7434, 0.9764, 0.9997, 0.9999, 0.9999, & +0.3607, 0.3607, 0.3780, 0.4134, 0.5043, 0.5772, 0.7721, 0.9642, 0.9999 / +data ((cldnuctab( 4,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +0.7857, 0.9421, 0.9906, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5409, 0.8571, 0.9738, 0.9971, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4134, 0.5950, 0.9103, 0.9881, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4134, 0.4314, 0.6474, 0.9472, 0.9957, 0.9997, 0.9999, 0.9999, 0.9999, & +0.3956, 0.4134, 0.4677, 0.6971, 0.9677, 0.9988, 0.9999, 0.9999, 0.9999, & +0.3780, 0.3956, 0.4134, 0.4860, 0.7130, 0.9677, 0.9995, 0.9999, 0.9999, & +0.3780, 0.3780, 0.3956, 0.4134, 0.5043, 0.6302, 0.8571, 0.9943, 0.9999 / +data ((cldnuctab( 4,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +0.7434, 0.9175, 0.9849, 0.9988, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4860, 0.8115, 0.9564, 0.9943, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4134, 0.5409, 0.8672, 0.9811, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4134, 0.4314, 0.5772, 0.9103, 0.9917, 0.9995, 0.9999, 0.9999, 0.9999, & +0.4134, 0.4314, 0.4677, 0.6302, 0.9421, 0.9971, 0.9998, 0.9999, 0.9999, & +0.3956, 0.4134, 0.4314, 0.4860, 0.6643, 0.9472, 0.9988, 0.9999, 0.9999, & +0.3956, 0.3956, 0.4134, 0.4314, 0.4860, 0.6302, 0.8571, 0.9957, 0.9999 / +data ((cldnuctab( 4,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +0.7130, 0.9027, 0.9789, 0.9981, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4495, 0.7721, 0.9421, 0.9917, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4314, 0.4860, 0.8353, 0.9708, 0.9971, 0.9998, 0.9999, 0.9999, 0.9999, & +0.4314, 0.4495, 0.5227, 0.8768, 0.9866, 0.9991, 0.9999, 0.9999, 0.9999, & +0.4134, 0.4314, 0.4677, 0.5772, 0.9103, 0.9943, 0.9997, 0.9999, 0.9999, & +0.4134, 0.4134, 0.4314, 0.4677, 0.6302, 0.9175, 0.9975, 0.9999, 0.9999, & +0.3956, 0.4134, 0.4134, 0.4314, 0.4860, 0.6127, 0.8353, 0.9943, 0.9999 / +data ((cldnuctab( 4,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +0.6809, 0.8768, 0.9738, 0.9975, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4314, 0.7434, 0.9306, 0.9881, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4314, 0.4495, 0.7989, 0.9604, 0.9957, 0.9997, 0.9999, 0.9999, 0.9999, & +0.4314, 0.4495, 0.4860, 0.8465, 0.9789, 0.9983, 0.9999, 0.9999, 0.9999, & +0.4314, 0.4495, 0.4677, 0.5409, 0.8768, 0.9906, 0.9995, 0.9999, 0.9999, & +0.4134, 0.4314, 0.4495, 0.4860, 0.5950, 0.8859, 0.9950, 0.9998, 0.9999, & +0.4134, 0.4134, 0.4314, 0.4495, 0.4860, 0.6127, 0.8237, 0.9927, 0.9999 / +data ((cldnuctab( 5,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +0.8791, 0.9744, 0.9972, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7168, 0.9379, 0.9909, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4000, 0.8020, 0.9716, 0.9976, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2380, 0.4722, 0.8596, 0.9884, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2240, 0.2826, 0.5271, 0.8696, 0.9929, 0.9998, 0.9999, 0.9999, 0.9999, & +0.1975, 0.2240, 0.2984, 0.4358, 0.6516, 0.8966, 0.9972, 0.9999, 0.9999, & +0.1850, 0.1850, 0.2240, 0.2984, 0.2524, 0.2524, 0.2826, 0.4178, 0.7168 / +data ((cldnuctab( 5,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +0.8146, 0.9531, 0.9929, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6345, 0.8881, 0.9794, 0.9979, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3310, 0.7168, 0.9434, 0.9929, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2240, 0.4000, 0.7890, 0.9744, 0.9982, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2240, 0.2673, 0.4722, 0.8381, 0.9884, 0.9995, 0.9999, 0.9999, 0.9999, & +0.2105, 0.2240, 0.2984, 0.4905, 0.7890, 0.9816, 0.9997, 0.9999, 0.9999, & +0.1975, 0.2105, 0.2240, 0.2984, 0.3649, 0.4540, 0.6516, 0.8881, 0.9991 / +data ((cldnuctab( 5,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +0.7470, 0.9192, 0.9854, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5635, 0.8381, 0.9614, 0.9952, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2826, 0.6345, 0.9046, 0.9854, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2240, 0.3310, 0.7168, 0.9531, 0.9952, 0.9997, 0.9999, 0.9999, 0.9999, & +0.2240, 0.2524, 0.4000, 0.7755, 0.9771, 0.9986, 0.9999, 0.9999, 0.9999, & +0.2105, 0.2240, 0.2826, 0.4540, 0.7890, 0.9836, 0.9995, 0.9999, 0.9999, & +0.2105, 0.2105, 0.2380, 0.2826, 0.4178, 0.5994, 0.8791, 0.9958, 0.9999 / +data ((cldnuctab( 5,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +0.6849, 0.8791, 0.9744, 0.9972, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4905, 0.7755, 0.9379, 0.9897, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2380, 0.5635, 0.8596, 0.9716, 0.9968, 0.9998, 0.9999, 0.9999, 0.9999, & +0.2240, 0.2826, 0.6345, 0.9192, 0.9884, 0.9992, 0.9999, 0.9999, 0.9999, & +0.2240, 0.2524, 0.3310, 0.7010, 0.9531, 0.9963, 0.9998, 0.9999, 0.9999, & +0.2240, 0.2380, 0.2673, 0.4000, 0.7321, 0.9716, 0.9990, 0.9999, 0.9999, & +0.2105, 0.2240, 0.2380, 0.2826, 0.4178, 0.6516, 0.9192, 0.9979, 0.9999 / +data ((cldnuctab( 5,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +0.6345, 0.8491, 0.9614, 0.9952, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4358, 0.7321, 0.9121, 0.9836, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2380, 0.5088, 0.8146, 0.9531, 0.9938, 0.9996, 0.9999, 0.9999, 0.9999, & +0.2380, 0.2524, 0.5635, 0.8791, 0.9794, 0.9982, 0.9999, 0.9999, 0.9999, & +0.2380, 0.2524, 0.2984, 0.6170, 0.9259, 0.9920, 0.9995, 0.9999, 0.9999, & +0.2240, 0.2380, 0.2673, 0.3649, 0.6684, 0.9531, 0.9976, 0.9999, 0.9999, & +0.2240, 0.2240, 0.2380, 0.2826, 0.3823, 0.6170, 0.9121, 0.9976, 0.9999 / +data ((cldnuctab( 5,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +0.5994, 0.8146, 0.9484, 0.9929, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4000, 0.6849, 0.8881, 0.9744, 0.9976, 0.9998, 0.9999, 0.9999, 0.9999, & +0.2380, 0.4540, 0.7615, 0.9379, 0.9897, 0.9992, 0.9999, 0.9999, 0.9999, & +0.2380, 0.2524, 0.5088, 0.8381, 0.9685, 0.9968, 0.9998, 0.9999, 0.9999, & +0.2380, 0.2524, 0.2826, 0.5454, 0.8881, 0.9854, 0.9990, 0.9999, 0.9999, & +0.2380, 0.2524, 0.2673, 0.3310, 0.5994, 0.9192, 0.9945, 0.9997, 0.9999, & +0.2240, 0.2380, 0.2524, 0.2826, 0.3649, 0.5994, 0.8966, 0.9963, 0.9999 / +data ((cldnuctab( 5,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +0.5635, 0.7890, 0.9379, 0.9897, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3823, 0.6516, 0.8596, 0.9685, 0.9963, 0.9998, 0.9999, 0.9999, 0.9999, & +0.2524, 0.4178, 0.7321, 0.9192, 0.9854, 0.9988, 0.9999, 0.9999, 0.9999, & +0.2524, 0.2673, 0.4540, 0.8020, 0.9574, 0.9945, 0.9997, 0.9999, 0.9999, & +0.2524, 0.2673, 0.2826, 0.5088, 0.8491, 0.9794, 0.9984, 0.9999, 0.9999, & +0.2380, 0.2524, 0.2673, 0.3145, 0.5454, 0.8881, 0.9909, 0.9995, 0.9999, & +0.2380, 0.2524, 0.2524, 0.2826, 0.3478, 0.5454, 0.8596, 0.9938, 0.9998 / +data ((cldnuctab( 5,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +0.9192, 0.9884, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7470, 0.9614, 0.9963, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4178, 0.8146, 0.9836, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3649, 0.5088, 0.8596, 0.9929, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3310, 0.3649, 0.5271, 0.8381, 0.9929, 0.9999, 0.9999, 0.9999, 0.9999, & +0.2984, 0.3310, 0.3823, 0.4722, 0.5994, 0.8266, 0.9909, 0.9999, 0.9999, & +0.2826, 0.2984, 0.3145, 0.3823, 0.4358, 0.2826, 0.3145, 0.4178, 0.6849 / +data ((cldnuctab( 5,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +0.8791, 0.9744, 0.9972, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6684, 0.9321, 0.9909, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3649, 0.7470, 0.9651, 0.9972, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3478, 0.4358, 0.8020, 0.9836, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3310, 0.3649, 0.5088, 0.8266, 0.9920, 0.9998, 0.9999, 0.9999, 0.9999, & +0.3145, 0.3310, 0.3823, 0.5088, 0.7470, 0.9685, 0.9997, 0.9999, 0.9999, & +0.2984, 0.3145, 0.3310, 0.3823, 0.4722, 0.4358, 0.5994, 0.7890, 0.9897 / +data ((cldnuctab( 5,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +0.8266, 0.9574, 0.9938, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5994, 0.8881, 0.9816, 0.9982, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3649, 0.6684, 0.9379, 0.9929, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3478, 0.4000, 0.7168, 0.9685, 0.9979, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3478, 0.3649, 0.4540, 0.7755, 0.9836, 0.9994, 0.9999, 0.9999, 0.9999, & +0.3310, 0.3478, 0.3823, 0.4905, 0.7615, 0.9816, 0.9997, 0.9999, 0.9999, & +0.3145, 0.3310, 0.3478, 0.3823, 0.4722, 0.5816, 0.8020, 0.9771, 0.9999 / +data ((cldnuctab( 5,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +0.7615, 0.9321, 0.9884, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5271, 0.8381, 0.9651, 0.9958, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3649, 0.5816, 0.8966, 0.9854, 0.9988, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3649, 0.3823, 0.6516, 0.9379, 0.9945, 0.9997, 0.9999, 0.9999, 0.9999, & +0.3478, 0.3649, 0.4358, 0.7010, 0.9651, 0.9984, 0.9999, 0.9999, 0.9999, & +0.3478, 0.3478, 0.3823, 0.4722, 0.7168, 0.9716, 0.9994, 0.9999, 0.9999, & +0.3310, 0.3478, 0.3478, 0.3823, 0.4722, 0.6170, 0.8791, 0.9963, 0.9999 / +data ((cldnuctab( 5,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +0.7168, 0.9046, 0.9816, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4905, 0.8020, 0.9484, 0.9929, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3649, 0.5271, 0.8596, 0.9771, 0.9976, 0.9998, 0.9999, 0.9999, 0.9999, & +0.3649, 0.4000, 0.5816, 0.9046, 0.9897, 0.9993, 0.9999, 0.9999, 0.9999, & +0.3649, 0.3823, 0.4178, 0.6345, 0.9379, 0.9963, 0.9998, 0.9999, 0.9999, & +0.3478, 0.3649, 0.3823, 0.4358, 0.6684, 0.9531, 0.9986, 0.9999, 0.9999, & +0.3478, 0.3478, 0.3649, 0.3823, 0.4540, 0.6170, 0.8791, 0.9968, 0.9999 / +data ((cldnuctab( 5,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +0.6849, 0.8791, 0.9744, 0.9972, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4540, 0.7615, 0.9321, 0.9897, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3823, 0.4905, 0.8266, 0.9651, 0.9958, 0.9997, 0.9999, 0.9999, 0.9999, & +0.3823, 0.4000, 0.5271, 0.8696, 0.9836, 0.9988, 0.9999, 0.9999, 0.9999, & +0.3649, 0.3823, 0.4178, 0.5816, 0.9046, 0.9929, 0.9996, 0.9999, 0.9999, & +0.3649, 0.3649, 0.4000, 0.4358, 0.6170, 0.9259, 0.9972, 0.9999, 0.9999, & +0.3649, 0.3649, 0.3649, 0.4000, 0.4540, 0.5994, 0.8596, 0.9958, 0.9999 / +data ((cldnuctab( 5,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +0.6516, 0.8596, 0.9685, 0.9963, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4178, 0.7321, 0.9192, 0.9854, 0.9988, 0.9999, 0.9999, 0.9999, 0.9999, & +0.3823, 0.4540, 0.7890, 0.9531, 0.9945, 0.9996, 0.9999, 0.9999, 0.9999, & +0.3823, 0.4000, 0.4722, 0.8381, 0.9744, 0.9979, 0.9999, 0.9999, 0.9999, & +0.3823, 0.4000, 0.4178, 0.5271, 0.8696, 0.9884, 0.9993, 0.9999, 0.9999, & +0.3823, 0.3823, 0.4000, 0.4358, 0.5816, 0.8881, 0.9945, 0.9998, 0.9999, & +0.3649, 0.3823, 0.3823, 0.4000, 0.4540, 0.5816, 0.8266, 0.9945, 0.9999 / +data ((cldnuctab( 5,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +0.9484, 0.9945, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7615, 0.9744, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5271, 0.8146, 0.9884, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4905, 0.5635, 0.8491, 0.9945, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4540, 0.4905, 0.5816, 0.7890, 0.9870, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4358, 0.4540, 0.4722, 0.5816, 0.5816, 0.7470, 0.9484, 0.9999, 0.9999, & +0.4000, 0.4178, 0.4358, 0.4722, 0.5994, 0.3823, 0.3478, 0.4358, 0.6684 / +data ((cldnuctab( 5,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +0.9121, 0.9884, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6849, 0.9531, 0.9958, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5088, 0.7470, 0.9771, 0.9988, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4905, 0.5454, 0.8020, 0.9884, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4722, 0.4905, 0.5635, 0.8020, 0.9909, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4358, 0.4540, 0.4905, 0.5816, 0.7010, 0.9259, 0.9995, 0.9999, 0.9999, & +0.4358, 0.4358, 0.4540, 0.4905, 0.5816, 0.5271, 0.5635, 0.7321, 0.9685 / +data ((cldnuctab( 5,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +0.8696, 0.9771, 0.9976, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6170, 0.9192, 0.9909, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5088, 0.6684, 0.9531, 0.9968, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5088, 0.5454, 0.7321, 0.9744, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4905, 0.5088, 0.5635, 0.7755, 0.9854, 0.9997, 0.9999, 0.9999, 0.9999, & +0.4722, 0.4722, 0.5088, 0.5635, 0.7321, 0.9651, 0.9997, 0.9999, 0.9999, & +0.4540, 0.4540, 0.4722, 0.4905, 0.5635, 0.6345, 0.7321, 0.9379, 0.9999 / +data ((cldnuctab( 5,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +0.8266, 0.9614, 0.9952, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5635, 0.8881, 0.9836, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5088, 0.5994, 0.9259, 0.9929, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5088, 0.5271, 0.6684, 0.9531, 0.9976, 0.9999, 0.9999, 0.9999, 0.9999, & +0.4905, 0.5088, 0.5454, 0.7168, 0.9685, 0.9992, 0.9999, 0.9999, 0.9999, & +0.4905, 0.4905, 0.5088, 0.5635, 0.7168, 0.9614, 0.9996, 0.9999, 0.9999, & +0.4722, 0.4722, 0.4905, 0.5088, 0.5635, 0.6684, 0.8020, 0.9870, 0.9999 / +data ((cldnuctab( 5,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +0.7890, 0.9434, 0.9920, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5271, 0.8491, 0.9716, 0.9972, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5271, 0.5454, 0.8881, 0.9884, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5088, 0.5454, 0.5994, 0.9192, 0.9952, 0.9997, 0.9999, 0.9999, 0.9999, & +0.5088, 0.5271, 0.5454, 0.6684, 0.9434, 0.9982, 0.9999, 0.9999, 0.9999, & +0.4905, 0.5088, 0.5271, 0.5635, 0.6849, 0.9433, 0.9991, 0.9999, 0.9999, & +0.4905, 0.4905, 0.5088, 0.5271, 0.5635, 0.6849, 0.8266, 0.9909, 0.9999 / +data ((cldnuctab( 5,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +0.7470, 0.9321, 0.9884, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5271, 0.8146, 0.9614, 0.9958, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5271, 0.5635, 0.8596, 0.9816, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5271, 0.5454, 0.5816, 0.8881, 0.9909, 0.9996, 0.9999, 0.9999, 0.9999, & +0.5271, 0.5271, 0.5635, 0.6345, 0.9121, 0.9963, 0.9998, 0.9999, 0.9999, & +0.5088, 0.5088, 0.5271, 0.5635, 0.6684, 0.9121, 0.9982, 0.9999, 0.9999, & +0.5088, 0.5088, 0.5088, 0.5271, 0.5635, 0.6684, 0.8146, 0.9929, 0.9999 / +data ((cldnuctab( 5,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +0.7321, 0.9192, 0.9854, 0.9988, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5454, 0.7755, 0.9531, 0.9938, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5454, 0.5635, 0.8266, 0.9744, 0.9979, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5454, 0.5635, 0.5994, 0.8596, 0.9870, 0.9992, 0.9999, 0.9999, 0.9999, & +0.5271, 0.5454, 0.5635, 0.6170, 0.8791, 0.9938, 0.9997, 0.9999, 0.9999, & +0.5271, 0.5271, 0.5454, 0.5635, 0.6516, 0.8791, 0.9963, 0.9999, 0.9999, & +0.5088, 0.5271, 0.5271, 0.5454, 0.5635, 0.6516, 0.8146, 0.9870, 0.9999 / +data ((cldnuctab( 5,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +0.9651, 0.9979, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7615, 0.9836, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6516, 0.8146, 0.9909, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6170, 0.6684, 0.8381, 0.9938, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5816, 0.5994, 0.6684, 0.7890, 0.9685, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5635, 0.5816, 0.5994, 0.6684, 0.7470, 0.7168, 0.8966, 0.9990, 0.9999, & +0.5088, 0.5088, 0.5271, 0.5635, 0.6345, 0.8266, 0.4178, 0.4905, 0.6849 / +data ((cldnuctab( 5,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +0.9434, 0.9945, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6849, 0.9651, 0.9982, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6516, 0.7615, 0.9816, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6345, 0.6684, 0.8020, 0.9897, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6170, 0.6345, 0.6684, 0.8020, 0.9836, 0.9999, 0.9999, 0.9999, 0.9999, & +0.5994, 0.5994, 0.6170, 0.6516, 0.7755, 0.8791, 0.9972, 0.9999, 0.9999, & +0.5635, 0.5635, 0.5816, 0.5994, 0.6684, 0.8381, 0.5635, 0.7168, 0.9192 / +data ((cldnuctab( 5,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +0.9121, 0.9884, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6684, 0.9434, 0.9958, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6516, 0.7010, 0.9651, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6345, 0.6684, 0.7615, 0.9771, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6170, 0.6345, 0.6684, 0.7890, 0.9794, 0.9998, 0.9999, 0.9999, 0.9999, & +0.5994, 0.6170, 0.6345, 0.6684, 0.7755, 0.9259, 0.9996, 0.9999, 0.9999, & +0.5994, 0.5994, 0.6170, 0.6345, 0.6684, 0.7755, 0.7010, 0.8791, 0.9976 / +data ((cldnuctab( 5,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +0.8696, 0.9816, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6684, 0.9121, 0.9920, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6684, 0.7010, 0.9379, 0.9968, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6516, 0.6684, 0.7321, 0.9574, 0.9988, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6345, 0.6516, 0.6684, 0.7615, 0.9651, 0.9996, 0.9999, 0.9999, 0.9999, & +0.6170, 0.6345, 0.6516, 0.6684, 0.7615, 0.9321, 0.9996, 0.9999, 0.9999, & +0.6170, 0.6170, 0.6345, 0.6345, 0.6684, 0.7615, 0.7890, 0.9614, 0.9999 / +data ((cldnuctab( 5,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +0.8381, 0.9716, 0.9972, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6684, 0.8791, 0.9854, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6684, 0.7010, 0.9046, 0.9938, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6684, 0.6849, 0.7168, 0.9259, 0.9976, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6516, 0.6684, 0.6849, 0.7470, 0.9379, 0.9990, 0.9999, 0.9999, 0.9999, & +0.6345, 0.6516, 0.6516, 0.6849, 0.7470, 0.9192, 0.9991, 0.9999, 0.9999, & +0.6345, 0.6345, 0.6345, 0.6516, 0.6684, 0.7470, 0.8381, 0.9744, 0.9999 / +data ((cldnuctab( 5,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +0.8020, 0.9614, 0.9958, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6849, 0.8491, 0.9794, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6849, 0.7010, 0.8696, 0.9897, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6684, 0.6849, 0.7168, 0.8966, 0.9952, 0.9998, 0.9999, 0.9999, 0.9999, & +0.6684, 0.6684, 0.6849, 0.7321, 0.9121, 0.9976, 0.9999, 0.9999, 0.9999, & +0.6516, 0.6516, 0.6684, 0.6849, 0.7321, 0.8966, 0.9982, 0.9999, 0.9999, & +0.6516, 0.6516, 0.6516, 0.6684, 0.6849, 0.7470, 0.8596, 0.9771, 0.9999 / +data ((cldnuctab( 5,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +0.7755, 0.9531, 0.9938, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6849, 0.8146, 0.9716, 0.9979, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6849, 0.7010, 0.8381, 0.9854, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6849, 0.7010, 0.7168, 0.8596, 0.9920, 0.9997, 0.9999, 0.9999, 0.9999, & +0.6684, 0.6849, 0.7010, 0.7321, 0.8791, 0.9958, 0.9999, 0.9999, 0.9999, & +0.6684, 0.6684, 0.6849, 0.7010, 0.7321, 0.8791, 0.9963, 0.9999, 0.9999, & +0.6684, 0.6684, 0.6684, 0.6684, 0.6849, 0.7321, 0.8596, 0.9716, 0.9999 / +data ((cldnuctab( 5,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +0.9716, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7755, 0.9854, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7168, 0.8266, 0.9909, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6849, 0.7321, 0.8381, 0.9909, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6684, 0.6849, 0.7168, 0.8266, 0.9379, 0.9997, 0.9999, 0.9999, 0.9999, & +0.6345, 0.6516, 0.6684, 0.7168, 0.8596, 0.7168, 0.8696, 0.9920, 0.9999, & +0.5635, 0.5635, 0.5635, 0.5994, 0.6684, 0.8020, 0.4722, 0.5271, 0.6849 / +data ((cldnuctab( 5,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +0.9484, 0.9968, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7470, 0.9685, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7321, 0.7890, 0.9816, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7010, 0.7321, 0.8266, 0.9870, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6849, 0.6849, 0.7321, 0.8266, 0.9716, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6684, 0.6684, 0.6849, 0.7321, 0.8266, 0.8596, 0.9897, 0.9999, 0.9999, & +0.6345, 0.6345, 0.6345, 0.6684, 0.7168, 0.8491, 0.6170, 0.7010, 0.8881 / +data ((cldnuctab( 5,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +0.9192, 0.9929, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7470, 0.9484, 0.9972, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7321, 0.7615, 0.9651, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7168, 0.7321, 0.8020, 0.9744, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7010, 0.7168, 0.7321, 0.8146, 0.9716, 0.9998, 0.9999, 0.9999, 0.9999, & +0.6849, 0.7010, 0.7010, 0.7321, 0.8146, 0.9121, 0.9990, 0.9999, 0.9999, & +0.6684, 0.6684, 0.6849, 0.7010, 0.7321, 0.8266, 0.7615, 0.8696, 0.9909 / +data ((cldnuctab( 5,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +0.8881, 0.9870, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7470, 0.9192, 0.9945, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7321, 0.7615, 0.9379, 0.9979, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7321, 0.7470, 0.7890, 0.9531, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7168, 0.7168, 0.7470, 0.8020, 0.9574, 0.9997, 0.9999, 0.9999, 0.9999, & +0.7010, 0.7168, 0.7168, 0.7321, 0.8020, 0.9192, 0.9994, 0.9999, 0.9999, & +0.6849, 0.7010, 0.7010, 0.7168, 0.7321, 0.8020, 0.8491, 0.9321, 0.9997 / +data ((cldnuctab( 5,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +0.8596, 0.9794, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7470, 0.8881, 0.9909, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7470, 0.7615, 0.9046, 0.9958, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7321, 0.7470, 0.7755, 0.9259, 0.9982, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7321, 0.7321, 0.7470, 0.7890, 0.9321, 0.9991, 0.9999, 0.9999, 0.9999, & +0.7168, 0.7168, 0.7321, 0.7470, 0.7890, 0.9121, 0.9988, 0.9999, 0.9999, & +0.7168, 0.7168, 0.7168, 0.7321, 0.7470, 0.7890, 0.8881, 0.9574, 0.9999 / +data ((cldnuctab( 5,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +0.8266, 0.9716, 0.9976, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7615, 0.8596, 0.9854, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7470, 0.7755, 0.8791, 0.9929, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7470, 0.7615, 0.7890, 0.8966, 0.9963, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7321, 0.7470, 0.7615, 0.7890, 0.9121, 0.9982, 0.9999, 0.9999, 0.9999, & +0.7321, 0.7321, 0.7470, 0.7615, 0.7890, 0.9046, 0.9976, 0.9999, 0.9999, & +0.7168, 0.7321, 0.7321, 0.7321, 0.7470, 0.7890, 0.8881, 0.9574, 0.9999 / +data ((cldnuctab( 5,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +0.8020, 0.9651, 0.9968, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7615, 0.8266, 0.9794, 0.9988, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7615, 0.7755, 0.8491, 0.9897, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7615, 0.7615, 0.7890, 0.8696, 0.9938, 0.9998, 0.9999, 0.9999, 0.9999, & +0.7470, 0.7470, 0.7615, 0.7890, 0.8881, 0.9963, 0.9999, 0.9999, 0.9999, & +0.7470, 0.7470, 0.7470, 0.7615, 0.7890, 0.8881, 0.9952, 0.9999, 0.9999, & +0.7321, 0.7321, 0.7470, 0.7470, 0.7615, 0.7890, 0.8791, 0.9574, 0.9999 / +data ((cldnuctab( 5,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +0.9744, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8020, 0.9854, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7615, 0.8381, 0.9909, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7321, 0.7615, 0.8491, 0.9870, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7168, 0.7321, 0.7615, 0.8491, 0.9259, 0.9994, 0.9999, 0.9999, 0.9999, & +0.6849, 0.6849, 0.7010, 0.7615, 0.8696, 0.7321, 0.8491, 0.9836, 0.9999, & +0.5994, 0.5994, 0.5994, 0.6170, 0.6684, 0.8020, 0.5454, 0.5454, 0.6849 / +data ((cldnuctab( 5,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +0.9531, 0.9976, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7890, 0.9716, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7755, 0.8146, 0.9816, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7615, 0.7755, 0.8381, 0.9836, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7321, 0.7470, 0.7615, 0.8381, 0.9651, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7168, 0.7168, 0.7321, 0.7755, 0.8491, 0.8596, 0.9794, 0.9999, 0.9999, & +0.6684, 0.6684, 0.6849, 0.7010, 0.7470, 0.8491, 0.7168, 0.7168, 0.8791 / +data ((cldnuctab( 5,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +0.9259, 0.9945, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7890, 0.9484, 0.9982, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7755, 0.8146, 0.9651, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7615, 0.7755, 0.8266, 0.9744, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7470, 0.7615, 0.7755, 0.8266, 0.9651, 0.9998, 0.9999, 0.9999, 0.9999, & +0.7470, 0.7470, 0.7615, 0.7755, 0.8381, 0.9046, 0.9972, 0.9999, 0.9999, & +0.7168, 0.7168, 0.7168, 0.7321, 0.7615, 0.8491, 0.8491, 0.8491, 0.9836 / +data ((cldnuctab( 5,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +0.8966, 0.9909, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8020, 0.9192, 0.9958, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7890, 0.8146, 0.9379, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7755, 0.7890, 0.8266, 0.9531, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7615, 0.7755, 0.7890, 0.8266, 0.9531, 0.9997, 0.9999, 0.9999, 0.9999, & +0.7615, 0.7615, 0.7615, 0.7755, 0.8266, 0.9259, 0.9988, 0.9999, 0.9999, & +0.7321, 0.7470, 0.7470, 0.7615, 0.7755, 0.8381, 0.8966, 0.9259, 0.9990 / +data ((cldnuctab( 5,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +0.8696, 0.9854, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8020, 0.8881, 0.9929, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7890, 0.8146, 0.9046, 0.9968, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7890, 0.7890, 0.8146, 0.9259, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7755, 0.7755, 0.7890, 0.8266, 0.9321, 0.9992, 0.9999, 0.9999, 0.9999, & +0.7755, 0.7755, 0.7755, 0.7890, 0.8266, 0.9192, 0.9979, 0.9999, 0.9999, & +0.7615, 0.7615, 0.7615, 0.7755, 0.7890, 0.8266, 0.9121, 0.9434, 0.9998 / +data ((cldnuctab( 5,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +0.8381, 0.9794, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8020, 0.8596, 0.9884, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8020, 0.8146, 0.8791, 0.9938, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7890, 0.8020, 0.8266, 0.8966, 0.9968, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7890, 0.7890, 0.8020, 0.8266, 0.9121, 0.9982, 0.9999, 0.9999, 0.9999, & +0.7755, 0.7890, 0.7890, 0.8020, 0.8266, 0.9121, 0.9968, 0.9999, 0.9999, & +0.7755, 0.7755, 0.7755, 0.7755, 0.7890, 0.8266, 0.9046, 0.9531, 0.9999 / +data ((cldnuctab( 5,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +0.8146, 0.9716, 0.9979, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8146, 0.8266, 0.9836, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8020, 0.8266, 0.8491, 0.9909, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8020, 0.8146, 0.8266, 0.8791, 0.9945, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7890, 0.8020, 0.8146, 0.8266, 0.8966, 0.9963, 0.9999, 0.9999, 0.9999, & +0.7890, 0.7890, 0.8020, 0.8020, 0.8266, 0.8966, 0.9929, 0.9999, 0.9999, & +0.7755, 0.7755, 0.7890, 0.7890, 0.8020, 0.8266, 0.8966, 0.9574, 0.9999 / +data ((cldnuctab( 5,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +0.9744, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8381, 0.9854, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8020, 0.8596, 0.9897, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7755, 0.7890, 0.8596, 0.9836, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7615, 0.7615, 0.7890, 0.8596, 0.9192, 0.9986, 0.9999, 0.9999, 0.9999, & +0.7168, 0.7168, 0.7321, 0.7755, 0.8696, 0.7755, 0.8381, 0.9771, 0.9999, & +0.6170, 0.6170, 0.6170, 0.6345, 0.6849, 0.7890, 0.9614, 0.5635, 0.7010 / +data ((cldnuctab( 5,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +0.9574, 0.9982, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8266, 0.9716, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8020, 0.8491, 0.9794, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7890, 0.8020, 0.8491, 0.9816, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7755, 0.7755, 0.8020, 0.8596, 0.9574, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7470, 0.7615, 0.7755, 0.8020, 0.8696, 0.8791, 0.9685, 0.9999, 0.9999, & +0.7010, 0.7010, 0.7010, 0.7168, 0.7615, 0.8491, 0.8491, 0.7168, 0.8696 / +data ((cldnuctab( 5,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +0.9321, 0.9958, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8266, 0.9484, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8146, 0.8381, 0.9651, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8020, 0.8146, 0.8491, 0.9716, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7890, 0.8020, 0.8020, 0.8491, 0.9614, 0.9998, 0.9999, 0.9999, 0.9999, & +0.7755, 0.7755, 0.7890, 0.8020, 0.8491, 0.9192, 0.9963, 0.9999, 0.9999, & +0.7470, 0.7470, 0.7470, 0.7615, 0.7890, 0.8596, 0.9121, 0.8381, 0.9771 / +data ((cldnuctab( 5,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +0.9046, 0.9920, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8266, 0.9192, 0.9968, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8146, 0.8381, 0.9379, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8146, 0.8146, 0.8491, 0.9531, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8020, 0.8020, 0.8146, 0.8491, 0.9484, 0.9997, 0.9999, 0.9999, 0.9999, & +0.7890, 0.7890, 0.8020, 0.8146, 0.8491, 0.9321, 0.9976, 0.9999, 0.9999, & +0.7755, 0.7755, 0.7755, 0.7890, 0.8020, 0.8491, 0.9259, 0.9046, 0.9976 / +data ((cldnuctab( 5,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +0.8696, 0.9870, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8381, 0.8881, 0.9938, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8266, 0.8381, 0.9046, 0.9972, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8146, 0.8266, 0.8491, 0.9259, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8146, 0.8146, 0.8266, 0.8491, 0.9321, 0.9992, 0.9999, 0.9999, 0.9999, & +0.8020, 0.8020, 0.8146, 0.8266, 0.8491, 0.9259, 0.9972, 0.9999, 0.9999, & +0.7890, 0.7890, 0.7890, 0.8020, 0.8146, 0.8491, 0.9259, 0.9379, 0.9996 / +data ((cldnuctab( 5,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +0.8491, 0.9816, 0.9988, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8381, 0.8596, 0.9909, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8381, 0.8491, 0.8791, 0.9952, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8266, 0.8381, 0.8491, 0.9046, 0.9972, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8146, 0.8266, 0.8266, 0.8491, 0.9192, 0.9982, 0.9999, 0.9999, 0.9999, & +0.8146, 0.8146, 0.8266, 0.8266, 0.8491, 0.9192, 0.9952, 0.9999, 0.9999, & +0.8020, 0.8020, 0.8020, 0.8146, 0.8266, 0.8491, 0.9192, 0.9531, 0.9998 / +data ((cldnuctab( 5,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +0.8491, 0.9771, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8491, 0.8596, 0.9870, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8381, 0.8491, 0.8791, 0.9920, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8381, 0.8381, 0.8491, 0.8966, 0.9952, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8266, 0.8266, 0.8381, 0.8596, 0.9046, 0.9958, 0.9999, 0.9999, 0.9999, & +0.8266, 0.8266, 0.8266, 0.8381, 0.8491, 0.9121, 0.9920, 0.9999, 0.9999, & +0.8146, 0.8146, 0.8146, 0.8146, 0.8266, 0.8491, 0.9121, 0.9614, 0.9998 / +data ((cldnuctab( 6,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +0.9704, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7701, 0.9847, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7262, 0.8219, 0.9916, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6785, 0.7262, 0.8448, 0.9916, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6618, 0.6785, 0.7107, 0.8219, 0.9513, 0.9998, 0.9999, 0.9999, 0.9999, & +0.6277, 0.6449, 0.6618, 0.7262, 0.8657, 0.7107, 0.8846, 0.9974, 0.9999, & +0.5564, 0.5564, 0.5745, 0.5924, 0.6618, 0.8097, 0.4650, 0.5382, 0.6948 / +data ((cldnuctab( 6,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +0.9513, 0.9966, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7412, 0.9704, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7262, 0.7838, 0.9828, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6948, 0.7262, 0.8219, 0.9879, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6785, 0.6785, 0.7262, 0.8219, 0.9785, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6618, 0.6785, 0.6948, 0.7262, 0.8219, 0.8657, 0.9942, 0.9999, 0.9999, & +0.6277, 0.6277, 0.6449, 0.6618, 0.7107, 0.8448, 0.6102, 0.7262, 0.9092 / +data ((cldnuctab( 6,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +0.9233, 0.9926, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7412, 0.9465, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7262, 0.7701, 0.9672, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7107, 0.7262, 0.7970, 0.9761, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6948, 0.7107, 0.7262, 0.8097, 0.9734, 0.9999, 0.9999, 0.9999, 0.9999, & +0.6785, 0.6948, 0.6948, 0.7262, 0.8097, 0.9165, 0.9994, 0.9999, 0.9999, & +0.6618, 0.6618, 0.6785, 0.6948, 0.7262, 0.8336, 0.7412, 0.8657, 0.9949 / +data ((cldnuctab( 6,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +0.8846, 0.9864, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7412, 0.9165, 0.9942, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7262, 0.7559, 0.9413, 0.9978, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7262, 0.7412, 0.7838, 0.9557, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7107, 0.7262, 0.7412, 0.7970, 0.9599, 0.9997, 0.9999, 0.9999, 0.9999, & +0.6948, 0.7107, 0.7107, 0.7262, 0.7970, 0.9233, 0.9996, 0.9999, 0.9999, & +0.6948, 0.6948, 0.6948, 0.7107, 0.7412, 0.7970, 0.8336, 0.9465, 0.9999 / +data ((cldnuctab( 6,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +0.8555, 0.9785, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7412, 0.8846, 0.9905, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7412, 0.7559, 0.9092, 0.9956, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7262, 0.7412, 0.7701, 0.9297, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7262, 0.7262, 0.7412, 0.7838, 0.9357, 0.9992, 0.9999, 0.9999, 0.9999, & +0.7107, 0.7107, 0.7262, 0.7412, 0.7838, 0.9165, 0.9992, 0.9999, 0.9999, & +0.7107, 0.7107, 0.7107, 0.7262, 0.7412, 0.7838, 0.8754, 0.9672, 0.9999 / +data ((cldnuctab( 6,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +0.8219, 0.9704, 0.9974, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7559, 0.8555, 0.9847, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7412, 0.7701, 0.8754, 0.9926, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7412, 0.7559, 0.7838, 0.8933, 0.9966, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7262, 0.7412, 0.7559, 0.7838, 0.9092, 0.9981, 0.9999, 0.9999, 0.9999, & +0.7262, 0.7262, 0.7412, 0.7559, 0.7838, 0.9015, 0.9981, 0.9999, 0.9999, & +0.7107, 0.7262, 0.7262, 0.7262, 0.7412, 0.7838, 0.8846, 0.9637, 0.9999 / +data ((cldnuctab( 6,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +0.7970, 0.9637, 0.9966, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7559, 0.8219, 0.9808, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7559, 0.7701, 0.8448, 0.9892, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7412, 0.7559, 0.7838, 0.8657, 0.9942, 0.9998, 0.9999, 0.9999, 0.9999, & +0.7412, 0.7412, 0.7559, 0.7838, 0.8933, 0.9966, 0.9999, 0.9999, 0.9999, & +0.7412, 0.7412, 0.7412, 0.7559, 0.7838, 0.8846, 0.9961, 0.9999, 0.9999, & +0.7262, 0.7262, 0.7412, 0.7412, 0.7559, 0.7838, 0.8846, 0.9599, 0.9999 / +data ((cldnuctab( 6,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +0.9761, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8555, 0.9847, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8219, 0.8657, 0.9892, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7970, 0.8097, 0.8657, 0.9808, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7701, 0.7838, 0.8097, 0.8754, 0.9165, 0.9983, 0.9999, 0.9999, 0.9999, & +0.7262, 0.7412, 0.7559, 0.7838, 0.8754, 0.7970, 0.8448, 0.9761, 0.9999, & +0.6277, 0.6277, 0.6449, 0.6618, 0.6948, 0.7970, 0.9557, 0.5924, 0.7107 / +data ((cldnuctab( 6,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +0.9599, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8448, 0.9704, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8219, 0.8555, 0.9808, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7970, 0.8219, 0.8657, 0.9808, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7970, 0.7970, 0.8219, 0.8657, 0.9557, 0.9999, 0.9999, 0.9999, 0.9999, & +0.7701, 0.7838, 0.7838, 0.8097, 0.8754, 0.8933, 0.9672, 0.9999, 0.9999, & +0.7107, 0.7107, 0.7262, 0.7262, 0.7701, 0.8555, 0.9828, 0.7262, 0.8754 / +data ((cldnuctab( 6,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +0.9357, 0.9966, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8448, 0.9513, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8336, 0.8555, 0.9637, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8219, 0.8336, 0.8657, 0.9704, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8097, 0.8097, 0.8219, 0.8657, 0.9599, 0.9998, 0.9999, 0.9999, 0.9999, & +0.7970, 0.7970, 0.8097, 0.8219, 0.8657, 0.9357, 0.9949, 0.9999, 0.9999, & +0.7559, 0.7559, 0.7701, 0.7838, 0.8097, 0.8657, 0.9357, 0.8448, 0.9761 / +data ((cldnuctab( 6,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +0.9015, 0.9935, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8448, 0.9233, 0.9970, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8336, 0.8555, 0.9357, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8336, 0.8336, 0.8555, 0.9513, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8219, 0.8219, 0.8336, 0.8657, 0.9513, 0.9997, 0.9999, 0.9999, 0.9999, & +0.8097, 0.8097, 0.8219, 0.8336, 0.8555, 0.9413, 0.9978, 0.9999, 0.9999, & +0.7838, 0.7970, 0.7970, 0.7970, 0.8219, 0.8657, 0.9413, 0.9015, 0.9970 / +data ((cldnuctab( 6,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +0.8754, 0.9892, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8555, 0.8933, 0.9949, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8448, 0.8555, 0.9092, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8336, 0.8448, 0.8657, 0.9297, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8336, 0.8336, 0.8448, 0.8657, 0.9357, 0.9992, 0.9999, 0.9999, 0.9999, & +0.8219, 0.8219, 0.8336, 0.8448, 0.8657, 0.9297, 0.9961, 0.9999, 0.9999, & +0.8097, 0.8097, 0.8097, 0.8219, 0.8336, 0.8657, 0.9357, 0.9413, 0.9995 / +data ((cldnuctab( 6,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +0.8657, 0.9847, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8555, 0.8754, 0.9916, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8555, 0.8657, 0.8933, 0.9956, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8448, 0.8555, 0.8657, 0.9092, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8336, 0.8448, 0.8448, 0.8657, 0.9233, 0.9981, 0.9999, 0.9999, 0.9999, & +0.8336, 0.8336, 0.8448, 0.8448, 0.8657, 0.9233, 0.9942, 0.9999, 0.9999, & +0.8219, 0.8219, 0.8219, 0.8336, 0.8448, 0.8657, 0.9233, 0.9513, 0.9998 / +data ((cldnuctab( 6,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +0.8657, 0.9785, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8657, 0.8754, 0.9879, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8555, 0.8657, 0.8933, 0.9926, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8555, 0.8555, 0.8657, 0.9092, 0.9949, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8448, 0.8448, 0.8555, 0.8657, 0.9165, 0.9961, 0.9999, 0.9999, 0.9999, & +0.8448, 0.8448, 0.8448, 0.8555, 0.8657, 0.9165, 0.9916, 0.9999, 0.9999, & +0.8336, 0.8336, 0.8336, 0.8336, 0.8448, 0.8657, 0.9165, 0.9672, 0.9998 / +data ((cldnuctab( 6,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +0.9734, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9165, 0.9808, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8846, 0.9165, 0.9828, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8754, 0.8933, 0.9092, 0.9734, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8555, 0.8657, 0.8754, 0.9165, 0.9672, 0.9879, 0.9999, 0.9999, 0.9999, & +0.7970, 0.7970, 0.8097, 0.8336, 0.8846, 0.9808, 0.8448, 0.9465, 0.9999, & +0.6948, 0.6948, 0.7107, 0.7107, 0.7412, 0.7970, 0.9165, 0.6785, 0.7559 / +data ((cldnuctab( 6,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +0.9557, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9165, 0.9672, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9015, 0.9165, 0.9761, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8933, 0.8933, 0.9165, 0.9734, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8754, 0.8846, 0.8933, 0.9165, 0.9672, 0.9987, 0.9999, 0.9999, 0.9999, & +0.8448, 0.8448, 0.8555, 0.8754, 0.9092, 0.9828, 0.9357, 0.9985, 0.9999, & +0.7701, 0.7701, 0.7838, 0.7838, 0.8097, 0.8657, 0.9599, 0.7701, 0.8657 / +data ((cldnuctab( 6,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +0.9357, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9165, 0.9465, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9092, 0.9165, 0.9599, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8933, 0.9015, 0.9165, 0.9672, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8933, 0.8933, 0.9015, 0.9165, 0.9637, 0.9995, 0.9999, 0.9999, 0.9999, & +0.8754, 0.8754, 0.8846, 0.8933, 0.9165, 0.9761, 0.9808, 0.9999, 0.9999, & +0.8336, 0.8336, 0.8336, 0.8336, 0.8555, 0.8933, 0.9704, 0.8555, 0.9465 / +data ((cldnuctab( 6,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +0.9233, 0.9966, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9165, 0.9357, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9092, 0.9233, 0.9465, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9015, 0.9092, 0.9233, 0.9557, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9015, 0.9015, 0.9092, 0.9165, 0.9599, 0.9992, 0.9999, 0.9999, 0.9999, & +0.8933, 0.8933, 0.8933, 0.9015, 0.9233, 0.9599, 0.9892, 0.9999, 0.9999, & +0.8555, 0.8555, 0.8657, 0.8657, 0.8754, 0.9092, 0.9637, 0.9297, 0.9828 / +data ((cldnuctab( 6,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +0.9297, 0.9935, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9233, 0.9357, 0.9966, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9165, 0.9233, 0.9413, 0.9981, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9092, 0.9165, 0.9233, 0.9513, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9092, 0.9092, 0.9165, 0.9233, 0.9513, 0.9983, 0.9999, 0.9999, 0.9999, & +0.9015, 0.9015, 0.9015, 0.9092, 0.9233, 0.9513, 0.9905, 0.9999, 0.9999, & +0.8754, 0.8754, 0.8754, 0.8846, 0.8933, 0.9092, 0.9557, 0.9808, 0.9949 / +data ((cldnuctab( 6,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +0.9297, 0.9905, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9233, 0.9357, 0.9942, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9233, 0.9297, 0.9413, 0.9966, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9165, 0.9233, 0.9297, 0.9465, 0.9970, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9165, 0.9165, 0.9165, 0.9233, 0.9465, 0.9966, 0.9999, 0.9999, 0.9999, & +0.9092, 0.9092, 0.9092, 0.9165, 0.9233, 0.9465, 0.9916, 0.9999, 0.9999, & +0.8846, 0.8846, 0.8846, 0.8933, 0.9015, 0.9165, 0.9513, 0.9892, 0.9970 / +data ((cldnuctab( 6,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +0.9357, 0.9879, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9297, 0.9357, 0.9916, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9233, 0.9297, 0.9413, 0.9942, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9233, 0.9233, 0.9297, 0.9465, 0.9949, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9165, 0.9233, 0.9233, 0.9297, 0.9465, 0.9942, 0.9999, 0.9999, 0.9999, & +0.9165, 0.9165, 0.9165, 0.9233, 0.9297, 0.9465, 0.9905, 0.9999, 0.9999, & +0.8933, 0.8933, 0.8933, 0.9015, 0.9015, 0.9165, 0.9465, 0.9892, 0.9974 / +data ((cldnuctab( 6,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +0.9734, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9557, 0.9808, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9465, 0.9513, 0.9808, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9357, 0.9413, 0.9513, 0.9828, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9092, 0.9092, 0.9233, 0.9413, 0.9847, 0.9734, 0.9997, 0.9999, 0.9999, & +0.8448, 0.8448, 0.8555, 0.8657, 0.9015, 0.9637, 0.8933, 0.9357, 0.9978, & +0.7701, 0.7701, 0.7701, 0.7701, 0.7838, 0.8219, 0.8933, 0.9785, 0.8219 / +data ((cldnuctab( 6,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +0.9672, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9557, 0.9734, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9465, 0.9557, 0.9785, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9413, 0.9465, 0.9557, 0.9785, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9297, 0.9357, 0.9413, 0.9513, 0.9828, 0.9942, 0.9999, 0.9999, 0.9999, & +0.8933, 0.8933, 0.9015, 0.9092, 0.9357, 0.9785, 0.9637, 0.9905, 0.9999, & +0.8219, 0.8219, 0.8336, 0.8336, 0.8448, 0.8754, 0.9413, 0.9991, 0.8846 / +data ((cldnuctab( 6,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +0.9672, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9599, 0.9704, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9513, 0.9599, 0.9734, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9513, 0.9513, 0.9557, 0.9761, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9413, 0.9465, 0.9465, 0.9557, 0.9761, 0.9974, 0.9999, 0.9999, 0.9999, & +0.9233, 0.9233, 0.9233, 0.9357, 0.9465, 0.9785, 0.9905, 0.9995, 0.9999, & +0.8754, 0.8754, 0.8754, 0.8754, 0.8846, 0.9092, 0.9599, 0.9997, 0.9357 / +data ((cldnuctab( 6,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +0.9672, 0.9978, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9599, 0.9704, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9557, 0.9599, 0.9734, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9557, 0.9557, 0.9599, 0.9734, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9513, 0.9513, 0.9557, 0.9599, 0.9734, 0.9978, 0.9999, 0.9999, 0.9999, & +0.9357, 0.9357, 0.9413, 0.9465, 0.9557, 0.9761, 0.9961, 0.9999, 0.9999, & +0.9015, 0.9015, 0.9015, 0.9092, 0.9165, 0.9297, 0.9672, 0.9994, 0.9704 / +data ((cldnuctab( 6,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +0.9672, 0.9961, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9637, 0.9704, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9599, 0.9637, 0.9704, 0.9981, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9557, 0.9599, 0.9637, 0.9734, 0.9981, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9557, 0.9557, 0.9599, 0.9637, 0.9734, 0.9970, 0.9999, 0.9999, 0.9999, & +0.9465, 0.9465, 0.9465, 0.9513, 0.9599, 0.9734, 0.9961, 0.9999, 0.9999, & +0.9165, 0.9165, 0.9165, 0.9233, 0.9297, 0.9413, 0.9637, 0.9983, 0.9847 / +data ((cldnuctab( 6,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +0.9672, 0.9935, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9672, 0.9704, 0.9956, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9637, 0.9672, 0.9734, 0.9961, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9599, 0.9637, 0.9637, 0.9734, 0.9961, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9599, 0.9599, 0.9599, 0.9637, 0.9734, 0.9956, 0.9999, 0.9999, 0.9999, & +0.9513, 0.9513, 0.9513, 0.9557, 0.9599, 0.9734, 0.9949, 0.9999, 0.9999, & +0.9297, 0.9297, 0.9297, 0.9297, 0.9357, 0.9413, 0.9637, 0.9966, 0.9916 / +data ((cldnuctab( 6,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +0.9704, 0.9916, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9672, 0.9734, 0.9926, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9637, 0.9672, 0.9734, 0.9935, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9637, 0.9637, 0.9672, 0.9734, 0.9942, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9599, 0.9637, 0.9637, 0.9672, 0.9734, 0.9935, 0.9999, 0.9999, 0.9999, & +0.9557, 0.9557, 0.9557, 0.9599, 0.9637, 0.9734, 0.9935, 0.9999, 0.9999, & +0.9357, 0.9357, 0.9357, 0.9357, 0.9357, 0.9465, 0.9637, 0.9942, 0.9974 / +data ((cldnuctab( 6,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +0.9808, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9704, 0.9847, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9637, 0.9704, 0.9847, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9557, 0.9599, 0.9672, 0.9879, 0.9981, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9297, 0.9297, 0.9357, 0.9513, 0.9847, 0.9879, 0.9983, 0.9999, 0.9999, & +0.8754, 0.8754, 0.8754, 0.8846, 0.9092, 0.9557, 0.9995, 0.9357, 0.9949, & +0.8097, 0.8097, 0.8097, 0.8097, 0.8219, 0.8448, 0.9015, 0.9672, 0.8657 / +data ((cldnuctab( 6,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +0.9808, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9734, 0.9828, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9672, 0.9704, 0.9828, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9637, 0.9637, 0.9704, 0.9828, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9513, 0.9513, 0.9557, 0.9672, 0.9864, 0.9966, 0.9999, 0.9999, 0.9999, & +0.9165, 0.9165, 0.9165, 0.9233, 0.9413, 0.9761, 0.9998, 0.9847, 0.9999, & +0.8555, 0.8555, 0.8555, 0.8555, 0.8657, 0.8933, 0.9357, 0.9949, 0.9015 / +data ((cldnuctab( 6,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +0.9785, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9733, 0.9808, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9704, 0.9734, 0.9828, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9672, 0.9704, 0.9734, 0.9828, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9599, 0.9637, 0.9637, 0.9704, 0.9847, 0.9981, 0.9999, 0.9999, 0.9999, & +0.9413, 0.9413, 0.9413, 0.9465, 0.9599, 0.9808, 0.9997, 0.9981, 0.9999, & +0.8933, 0.8933, 0.8933, 0.9015, 0.9015, 0.9233, 0.9557, 0.9983, 0.9413 / +data ((cldnuctab( 6,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +0.9808, 0.9981, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9761, 0.9808, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9734, 0.9761, 0.9828, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9704, 0.9734, 0.9761, 0.9828, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9672, 0.9672, 0.9704, 0.9734, 0.9828, 0.9981, 0.9999, 0.9999, 0.9999, & +0.9557, 0.9557, 0.9557, 0.9599, 0.9672, 0.9828, 0.9989, 0.9997, 0.9999, & +0.9233, 0.9233, 0.9233, 0.9233, 0.9297, 0.9413, 0.9672, 0.9983, 0.9704 / +data ((cldnuctab( 6,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +0.9808, 0.9966, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9785, 0.9808, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9761, 0.9785, 0.9828, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9734, 0.9761, 0.9761, 0.9828, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9704, 0.9704, 0.9734, 0.9761, 0.9828, 0.9970, 0.9999, 0.9999, 0.9999, & +0.9599, 0.9637, 0.9637, 0.9637, 0.9704, 0.9808, 0.9978, 0.9999, 0.9999, & +0.9357, 0.9357, 0.9357, 0.9357, 0.9413, 0.9513, 0.9672, 0.9970, 0.9864 / +data ((cldnuctab( 6,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +0.9808, 0.9942, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9785, 0.9828, 0.9956, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9785, 0.9785, 0.9828, 0.9956, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9761, 0.9761, 0.9785, 0.9828, 0.9961, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9734, 0.9734, 0.9761, 0.9785, 0.9828, 0.9956, 0.9999, 0.9999, 0.9999, & +0.9672, 0.9672, 0.9672, 0.9704, 0.9734, 0.9808, 0.9961, 0.9999, 0.9999, & +0.9413, 0.9413, 0.9413, 0.9465, 0.9465, 0.9557, 0.9704, 0.9949, 0.9978 / +data ((cldnuctab( 6,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +0.9828, 0.9916, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9808, 0.9828, 0.9926, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9785, 0.9808, 0.9828, 0.9935, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9785, 0.9785, 0.9808, 0.9828, 0.9942, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9761, 0.9761, 0.9785, 0.9785, 0.9828, 0.9942, 0.9999, 0.9999, 0.9999, & +0.9704, 0.9704, 0.9704, 0.9704, 0.9734, 0.9808, 0.9949, 0.9999, 0.9999, & +0.9465, 0.9465, 0.9465, 0.9465, 0.9513, 0.9557, 0.9704, 0.9926, 0.9998 / +data ((cldnuctab( 6,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +0.9864, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9785, 0.9879, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9734, 0.9785, 0.9864, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9637, 0.9672, 0.9734, 0.9892, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9357, 0.9413, 0.9465, 0.9599, 0.9828, 0.9999, 0.9966, 0.9999, 0.9999, & +0.8933, 0.8933, 0.8933, 0.9015, 0.9165, 0.9557, 0.9981, 0.9413, 0.9916, & +0.8336, 0.8448, 0.8448, 0.8448, 0.8555, 0.8657, 0.9092, 0.9637, 0.9905 / +data ((cldnuctab( 6,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +0.9864, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9808, 0.9864, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9761, 0.9785, 0.9864, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9734, 0.9734, 0.9785, 0.9879, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9599, 0.9599, 0.9637, 0.9734, 0.9879, 0.9992, 0.9999, 0.9999, 0.9999, & +0.9297, 0.9297, 0.9297, 0.9357, 0.9465, 0.9761, 0.9996, 0.9808, 0.9999, & +0.8754, 0.8754, 0.8754, 0.8754, 0.8846, 0.9015, 0.9357, 0.9905, 0.9165 / +data ((cldnuctab( 6,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +0.9864, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9828, 0.9864, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9785, 0.9808, 0.9864, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9761, 0.9785, 0.9808, 0.9864, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9704, 0.9704, 0.9734, 0.9785, 0.9879, 0.9989, 0.9999, 0.9999, 0.9999, & +0.9513, 0.9513, 0.9513, 0.9557, 0.9637, 0.9828, 0.9995, 0.9966, 0.9999, & +0.9092, 0.9092, 0.9092, 0.9092, 0.9165, 0.9297, 0.9557, 0.9961, 0.9513 / +data ((cldnuctab( 6,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +0.9864, 0.9981, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9828, 0.9864, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9808, 0.9828, 0.9864, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9808, 0.9808, 0.9828, 0.9864, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9761, 0.9761, 0.9785, 0.9808, 0.9879, 0.9983, 0.9999, 0.9999, 0.9999, & +0.9637, 0.9637, 0.9637, 0.9672, 0.9734, 0.9847, 0.9992, 0.9994, 0.9999, & +0.9297, 0.9297, 0.9297, 0.9357, 0.9357, 0.9465, 0.9672, 0.9966, 0.9734 / +data ((cldnuctab( 6,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +0.9864, 0.9966, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9847, 0.9879, 0.9970, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9828, 0.9847, 0.9879, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9828, 0.9828, 0.9847, 0.9879, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9785, 0.9785, 0.9808, 0.9828, 0.9879, 0.9974, 0.9999, 0.9999, 0.9999, & +0.9704, 0.9704, 0.9704, 0.9734, 0.9761, 0.9847, 0.9983, 0.9997, 0.9999, & +0.9465, 0.9465, 0.9465, 0.9465, 0.9465, 0.9557, 0.9704, 0.9956, 0.9956 / +data ((cldnuctab( 6,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +0.9879, 0.9942, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9864, 0.9879, 0.9949, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9847, 0.9864, 0.9879, 0.9956, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9828, 0.9847, 0.9847, 0.9879, 0.9961, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9808, 0.9808, 0.9828, 0.9847, 0.9879, 0.9961, 0.9999, 0.9999, 0.9999, & +0.9734, 0.9734, 0.9734, 0.9761, 0.9785, 0.9847, 0.9970, 0.9999, 0.9999, & +0.9513, 0.9513, 0.9513, 0.9513, 0.9557, 0.9599, 0.9734, 0.9935, 0.9999 / +data ((cldnuctab( 6,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +0.9879, 0.9916, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9864, 0.9879, 0.9935, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9864, 0.9864, 0.9879, 0.9949, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9847, 0.9847, 0.9864, 0.9879, 0.9949, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9828, 0.9828, 0.9847, 0.9847, 0.9879, 0.9956, 0.9999, 0.9999, 0.9999, & +0.9761, 0.9761, 0.9761, 0.9785, 0.9808, 0.9864, 0.9956, 0.9999, 0.9999, & +0.9557, 0.9557, 0.9557, 0.9557, 0.9599, 0.9637, 0.9734, 0.9916, 0.9999 / +data ((cldnuctab( 6,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +0.9892, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9828, 0.9892, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9808, 0.9828, 0.9892, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9704, 0.9734, 0.9785, 0.9905, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9465, 0.9465, 0.9513, 0.9599, 0.9828, 0.9998, 0.9956, 0.9999, 0.9999, & +0.9015, 0.9015, 0.9015, 0.9092, 0.9233, 0.9557, 0.9961, 0.9513, 0.9905, & +0.8657, 0.8657, 0.8657, 0.8657, 0.8657, 0.8846, 0.9165, 0.9637, 0.9879 / +data ((cldnuctab( 6,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +0.9892, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9847, 0.9892, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9828, 0.9847, 0.9892, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9785, 0.9808, 0.9828, 0.9905, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9672, 0.9672, 0.9704, 0.9761, 0.9892, 0.9998, 0.9999, 0.9999, 0.9999, & +0.9357, 0.9357, 0.9357, 0.9413, 0.9513, 0.9734, 0.9992, 0.9808, 0.9997, & +0.8933, 0.8933, 0.8933, 0.8933, 0.9015, 0.9092, 0.9413, 0.9864, 0.9999 / +data ((cldnuctab( 6,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +0.9892, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9864, 0.9892, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9847, 0.9864, 0.9905, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9828, 0.9828, 0.9864, 0.9892, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9761, 0.9761, 0.9785, 0.9828, 0.9905, 0.9995, 0.9999, 0.9999, 0.9999, & +0.9557, 0.9557, 0.9599, 0.9599, 0.9672, 0.9828, 0.9993, 0.9956, 0.9999, & +0.9165, 0.9165, 0.9165, 0.9233, 0.9233, 0.9357, 0.9599, 0.9942, 0.9599 / +data ((cldnuctab( 6,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +0.9892, 0.9981, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9879, 0.9905, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9864, 0.9879, 0.9905, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9847, 0.9864, 0.9864, 0.9892, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9808, 0.9808, 0.9828, 0.9847, 0.9905, 0.9985, 0.9999, 0.9999, 0.9999, & +0.9672, 0.9704, 0.9704, 0.9704, 0.9761, 0.9864, 0.9989, 0.9991, 0.9999, & +0.9413, 0.9413, 0.9413, 0.9413, 0.9413, 0.9513, 0.9672, 0.9949, 0.9905 / +data ((cldnuctab( 6,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +0.9905, 0.9966, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9892, 0.9905, 0.9970, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9879, 0.9879, 0.9905, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9864, 0.9879, 0.9879, 0.9905, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9847, 0.9847, 0.9847, 0.9864, 0.9905, 0.9978, 0.9999, 0.9999, 0.9999, & +0.9734, 0.9761, 0.9761, 0.9761, 0.9808, 0.9879, 0.9981, 0.9998, 0.9999, & +0.9513, 0.9513, 0.9513, 0.9513, 0.9557, 0.9599, 0.9734, 0.9942, 0.9999 / +data ((cldnuctab( 6,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +0.9905, 0.9942, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9892, 0.9916, 0.9956, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9892, 0.9892, 0.9916, 0.9961, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9879, 0.9879, 0.9892, 0.9905, 0.9966, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9864, 0.9864, 0.9864, 0.9879, 0.9905, 0.9966, 0.9999, 0.9999, 0.9999, & +0.9785, 0.9785, 0.9785, 0.9808, 0.9828, 0.9879, 0.9970, 0.9999, 0.9999, & +0.9557, 0.9557, 0.9557, 0.9557, 0.9599, 0.9637, 0.9734, 0.9926, 0.9999 / +data ((cldnuctab( 6,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +0.9916, 0.9942, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9905, 0.9916, 0.9949, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9892, 0.9905, 0.9916, 0.9956, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9892, 0.9892, 0.9905, 0.9916, 0.9961, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9864, 0.9879, 0.9879, 0.9892, 0.9916, 0.9961, 0.9999, 0.9999, 0.9999, & +0.9808, 0.9808, 0.9808, 0.9808, 0.9828, 0.9879, 0.9961, 0.9999, 0.9999, & +0.9599, 0.9599, 0.9599, 0.9599, 0.9637, 0.9672, 0.9761, 0.9905, 0.9999 / +data ((cldnuctab( 7,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +0.9755, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8734, 0.9843, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8425, 0.8827, 0.9876, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8193, 0.8312, 0.8827, 0.9755, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8070, 0.8070, 0.8312, 0.8915, 0.9219, 0.9974, 0.9999, 0.9999, 0.9999, & +0.7528, 0.7528, 0.7670, 0.8070, 0.8827, 0.8636, 0.8425, 0.9727, 0.9999, & +0.6582, 0.6582, 0.6582, 0.6749, 0.7073, 0.7942, 0.9503, 0.6239, 0.7380 / +data ((cldnuctab( 7,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +0.9590, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8636, 0.9697, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8533, 0.8734, 0.9780, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8312, 0.8425, 0.8827, 0.9780, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8193, 0.8312, 0.8425, 0.8734, 0.9548, 0.9998, 0.9999, 0.9999, 0.9999, & +0.7942, 0.7942, 0.8070, 0.8312, 0.8915, 0.9219, 0.9629, 0.9999, 0.9999, & +0.7380, 0.7380, 0.7380, 0.7528, 0.7809, 0.8533, 0.9803, 0.7380, 0.8827 / +data ((cldnuctab( 7,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +0.9344, 0.9970, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8636, 0.9503, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8533, 0.8734, 0.9629, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8425, 0.8533, 0.8734, 0.9697, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8312, 0.8425, 0.8425, 0.8827, 0.9590, 0.9998, 0.9999, 0.9999, 0.9999, & +0.8193, 0.8193, 0.8312, 0.8425, 0.8827, 0.9454, 0.9933, 0.9999, 0.9999, & +0.7809, 0.7809, 0.7942, 0.7942, 0.8193, 0.8734, 0.9780, 0.8425, 0.9727 / +data ((cldnuctab( 7,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +0.9076, 0.9941, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8734, 0.9219, 0.9977, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8636, 0.8734, 0.9401, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8533, 0.8636, 0.8734, 0.9503, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8425, 0.8533, 0.8533, 0.8827, 0.9503, 0.9996, 0.9999, 0.9999, 0.9999, & +0.8312, 0.8425, 0.8425, 0.8533, 0.8734, 0.9454, 0.9965, 0.9999, 0.9999, & +0.8070, 0.8070, 0.8193, 0.8193, 0.8425, 0.8827, 0.9664, 0.9076, 0.9960 / +data ((cldnuctab( 7,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +0.8827, 0.9902, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8734, 0.8915, 0.9954, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8636, 0.8827, 0.9150, 0.9977, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8636, 0.8636, 0.8827, 0.9344, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8533, 0.8533, 0.8636, 0.8827, 0.9401, 0.9992, 0.9999, 0.9999, 0.9999, & +0.8425, 0.8533, 0.8533, 0.8636, 0.8734, 0.9401, 0.9954, 0.9999, 0.9999, & +0.8312, 0.8312, 0.8312, 0.8425, 0.8533, 0.8827, 0.9454, 0.9401, 0.9993 / +data ((cldnuctab( 7,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +0.8827, 0.9860, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8827, 0.8915, 0.9924, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8734, 0.8827, 0.9076, 0.9960, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8636, 0.8734, 0.8827, 0.9219, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8636, 0.8636, 0.8734, 0.8827, 0.9284, 0.9980, 0.9999, 0.9999, 0.9999, & +0.8533, 0.8533, 0.8636, 0.8636, 0.8827, 0.9284, 0.9933, 0.9999, 0.9999, & +0.8425, 0.8425, 0.8425, 0.8533, 0.8533, 0.8827, 0.9344, 0.9590, 0.9997 / +data ((cldnuctab( 7,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +0.8827, 0.9824, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8827, 0.8998, 0.9890, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8734, 0.8827, 0.9076, 0.9933, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8734, 0.8734, 0.8915, 0.9150, 0.9954, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8636, 0.8734, 0.8734, 0.8915, 0.9219, 0.9960, 0.9999, 0.9999, 0.9999, & +0.8636, 0.8636, 0.8734, 0.8734, 0.8827, 0.9219, 0.9902, 0.9999, 0.9999, & +0.8533, 0.8533, 0.8533, 0.8533, 0.8636, 0.8827, 0.9219, 0.9755, 0.9997 / +data ((cldnuctab( 7,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +0.9727, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9284, 0.9803, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9076, 0.9284, 0.9803, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8998, 0.9076, 0.9219, 0.9755, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8734, 0.8734, 0.8915, 0.9284, 0.9876, 0.9843, 0.9999, 0.9999, 0.9999, & +0.8070, 0.8193, 0.8193, 0.8425, 0.8915, 0.9755, 0.8533, 0.9454, 0.9999, & +0.7229, 0.7229, 0.7229, 0.7380, 0.7528, 0.8070, 0.9076, 0.7073, 0.7809 / +data ((cldnuctab( 7,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +0.9548, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9284, 0.9664, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9150, 0.9284, 0.9755, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9076, 0.9150, 0.9219, 0.9727, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8915, 0.8998, 0.9076, 0.9284, 0.9727, 0.9985, 0.9999, 0.9999, 0.9999, & +0.8636, 0.8636, 0.8734, 0.8827, 0.9219, 0.9824, 0.9401, 0.9977, 0.9999, & +0.7942, 0.7942, 0.7942, 0.8070, 0.8193, 0.8636, 0.9548, 0.7942, 0.8636 / +data ((cldnuctab( 7,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +0.9401, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9284, 0.9503, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9219, 0.9284, 0.9629, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9150, 0.9150, 0.9284, 0.9664, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9076, 0.9076, 0.9150, 0.9284, 0.9697, 0.9993, 0.9999, 0.9999, 0.9999, & +0.8915, 0.8915, 0.8915, 0.9076, 0.9284, 0.9755, 0.9780, 0.9999, 0.9999, & +0.8425, 0.8425, 0.8425, 0.8533, 0.8636, 0.8998, 0.9664, 0.8734, 0.9454 / +data ((cldnuctab( 7,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +0.9401, 0.9970, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9344, 0.9454, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9284, 0.9344, 0.9548, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9219, 0.9219, 0.9344, 0.9590, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9150, 0.9150, 0.9219, 0.9284, 0.9629, 0.9990, 0.9999, 0.9999, 0.9999, & +0.9076, 0.9076, 0.9076, 0.9150, 0.9284, 0.9664, 0.9876, 0.9999, 0.9999, & +0.8734, 0.8734, 0.8734, 0.8827, 0.8915, 0.9150, 0.9664, 0.9629, 0.9803 / +data ((cldnuctab( 7,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +0.9401, 0.9948, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9344, 0.9454, 0.9970, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9284, 0.9344, 0.9503, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9219, 0.9284, 0.9344, 0.9548, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9219, 0.9219, 0.9284, 0.9344, 0.9590, 0.9977, 0.9999, 0.9999, 0.9999, & +0.9150, 0.9150, 0.9150, 0.9219, 0.9344, 0.9590, 0.9924, 0.9999, 0.9999, & +0.8915, 0.8915, 0.8915, 0.8915, 0.8998, 0.9219, 0.9590, 0.9890, 0.9933 / +data ((cldnuctab( 7,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +0.9401, 0.9914, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9401, 0.9454, 0.9948, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9344, 0.9401, 0.9503, 0.9965, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9284, 0.9344, 0.9401, 0.9548, 0.9970, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9284, 0.9284, 0.9344, 0.9401, 0.9548, 0.9960, 0.9999, 0.9999, 0.9999, & +0.9219, 0.9219, 0.9219, 0.9284, 0.9344, 0.9548, 0.9933, 0.9999, 0.9999, & +0.8998, 0.8998, 0.8998, 0.8998, 0.9076, 0.9219, 0.9548, 0.9924, 0.9965 / +data ((cldnuctab( 7,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +0.9454, 0.9890, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9401, 0.9503, 0.9924, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9401, 0.9401, 0.9548, 0.9941, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9344, 0.9344, 0.9401, 0.9548, 0.9948, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9344, 0.9344, 0.9344, 0.9401, 0.9548, 0.9933, 0.9999, 0.9999, 0.9999, & +0.9284, 0.9284, 0.9284, 0.9344, 0.9401, 0.9548, 0.9914, 0.9999, 0.9999, & +0.9076, 0.9076, 0.9076, 0.9076, 0.9150, 0.9284, 0.9548, 0.9914, 0.9970 / +data ((cldnuctab( 7,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +0.9755, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9629, 0.9824, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9548, 0.9590, 0.9824, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9454, 0.9503, 0.9590, 0.9843, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9150, 0.9219, 0.9284, 0.9454, 0.9843, 0.9755, 0.9994, 0.9999, 0.9999, & +0.8636, 0.8636, 0.8636, 0.8734, 0.9076, 0.9590, 0.9999, 0.9344, 0.9970, & +0.7942, 0.7942, 0.7942, 0.7942, 0.8070, 0.8312, 0.8998, 0.9727, 0.8312 / +data ((cldnuctab( 7,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +0.9727, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9629, 0.9780, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9590, 0.9629, 0.9803, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9548, 0.9548, 0.9629, 0.9803, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9401, 0.9401, 0.9454, 0.9590, 0.9843, 0.9933, 0.9999, 0.9999, 0.9999, & +0.9076, 0.9076, 0.9076, 0.9150, 0.9401, 0.9780, 0.9876, 0.9876, 0.9999, & +0.8425, 0.8425, 0.8425, 0.8425, 0.8533, 0.8827, 0.9401, 0.9980, 0.8915 / +data ((cldnuctab( 7,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +0.9727, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9664, 0.9755, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9590, 0.9664, 0.9780, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9590, 0.9590, 0.9629, 0.9780, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9503, 0.9548, 0.9548, 0.9629, 0.9803, 0.9974, 0.9999, 0.9999, 0.9999, & +0.9284, 0.9344, 0.9344, 0.9401, 0.9548, 0.9803, 0.9965, 0.9990, 0.9999, & +0.8827, 0.8827, 0.8827, 0.8915, 0.8998, 0.9150, 0.9590, 0.9994, 0.9401 / +data ((cldnuctab( 7,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +0.9727, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9697, 0.9755, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9629, 0.9697, 0.9755, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9629, 0.9629, 0.9664, 0.9780, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9590, 0.9590, 0.9629, 0.9664, 0.9755, 0.9977, 0.9999, 0.9999, 0.9999, & +0.9454, 0.9454, 0.9454, 0.9503, 0.9590, 0.9780, 0.9974, 0.9999, 0.9999, & +0.9076, 0.9076, 0.9150, 0.9150, 0.9219, 0.9344, 0.9664, 0.9990, 0.9697 / +data ((cldnuctab( 7,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +0.9727, 0.9965, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9697, 0.9755, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9664, 0.9697, 0.9755, 0.9977, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9664, 0.9664, 0.9697, 0.9780, 0.9977, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9629, 0.9629, 0.9664, 0.9697, 0.9755, 0.9970, 0.9999, 0.9999, 0.9999, & +0.9548, 0.9548, 0.9548, 0.9590, 0.9629, 0.9780, 0.9970, 0.9999, 0.9999, & +0.9284, 0.9284, 0.9284, 0.9284, 0.9344, 0.9454, 0.9664, 0.9980, 0.9843 / +data ((cldnuctab( 7,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +0.9755, 0.9941, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9727, 0.9755, 0.9954, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9697, 0.9727, 0.9780, 0.9960, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9697, 0.9697, 0.9727, 0.9780, 0.9960, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9664, 0.9664, 0.9664, 0.9697, 0.9780, 0.9954, 0.9999, 0.9999, 0.9999, & +0.9590, 0.9590, 0.9590, 0.9629, 0.9664, 0.9780, 0.9954, 0.9999, 0.9999, & +0.9344, 0.9344, 0.9344, 0.9344, 0.9401, 0.9503, 0.9664, 0.9960, 0.9933 / +data ((cldnuctab( 7,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +0.9755, 0.9914, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9727, 0.9780, 0.9933, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9727, 0.9727, 0.9780, 0.9933, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9697, 0.9727, 0.9727, 0.9780, 0.9941, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9697, 0.9697, 0.9697, 0.9727, 0.9780, 0.9941, 0.9999, 0.9999, 0.9999, & +0.9629, 0.9629, 0.9629, 0.9629, 0.9697, 0.9780, 0.9941, 0.9999, 0.9999, & +0.9401, 0.9401, 0.9401, 0.9401, 0.9454, 0.9503, 0.9664, 0.9941, 0.9987 / +data ((cldnuctab( 7,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +0.9890, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9824, 0.9890, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9780, 0.9824, 0.9890, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9697, 0.9727, 0.9780, 0.9902, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9454, 0.9454, 0.9503, 0.9629, 0.9824, 0.9998, 0.9954, 0.9999, 0.9999, & +0.8998, 0.8998, 0.8998, 0.9076, 0.9219, 0.9548, 0.9970, 0.9503, 0.9914, & +0.8533, 0.8533, 0.8533, 0.8636, 0.8636, 0.8827, 0.9150, 0.9629, 0.9890 / +data ((cldnuctab( 7,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +0.9890, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9843, 0.9890, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9824, 0.9843, 0.9890, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9780, 0.9780, 0.9824, 0.9902, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9629, 0.9664, 0.9697, 0.9755, 0.9890, 0.9998, 0.9999, 0.9999, 0.9999, & +0.9344, 0.9344, 0.9344, 0.9401, 0.9503, 0.9755, 0.9993, 0.9824, 0.9998, & +0.8915, 0.8915, 0.8915, 0.8915, 0.8998, 0.9076, 0.9401, 0.9876, 0.9344 / +data ((cldnuctab( 7,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +0.9890, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9860, 0.9890, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9843, 0.9843, 0.9890, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9803, 0.9824, 0.9843, 0.9890, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9755, 0.9755, 0.9780, 0.9803, 0.9890, 0.9993, 0.9999, 0.9999, 0.9999, & +0.9548, 0.9548, 0.9590, 0.9590, 0.9664, 0.9824, 0.9994, 0.9954, 0.9999, & +0.9150, 0.9150, 0.9150, 0.9219, 0.9219, 0.9344, 0.9590, 0.9948, 0.9590 / +data ((cldnuctab( 7,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +0.9890, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9876, 0.9890, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9860, 0.9860, 0.9890, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9843, 0.9843, 0.9860, 0.9890, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9803, 0.9803, 0.9824, 0.9843, 0.9890, 0.9985, 0.9999, 0.9999, 0.9999, & +0.9664, 0.9664, 0.9697, 0.9697, 0.9755, 0.9860, 0.9990, 0.9990, 0.9999, & +0.9344, 0.9344, 0.9401, 0.9401, 0.9401, 0.9503, 0.9664, 0.9954, 0.9824 / +data ((cldnuctab( 7,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +0.9890, 0.9965, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9876, 0.9902, 0.9970, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9860, 0.9876, 0.9902, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9860, 0.9860, 0.9876, 0.9902, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9824, 0.9824, 0.9843, 0.9860, 0.9902, 0.9977, 0.9999, 0.9999, 0.9999, & +0.9727, 0.9727, 0.9755, 0.9755, 0.9803, 0.9860, 0.9983, 0.9998, 0.9999, & +0.9503, 0.9503, 0.9503, 0.9503, 0.9548, 0.9590, 0.9727, 0.9948, 0.9996 / +data ((cldnuctab( 7,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +0.9902, 0.9948, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9890, 0.9902, 0.9948, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9876, 0.9890, 0.9902, 0.9960, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9876, 0.9876, 0.9890, 0.9902, 0.9965, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9843, 0.9843, 0.9860, 0.9876, 0.9902, 0.9965, 0.9999, 0.9999, 0.9999, & +0.9780, 0.9780, 0.9780, 0.9780, 0.9824, 0.9876, 0.9970, 0.9999, 0.9999, & +0.9548, 0.9548, 0.9548, 0.9548, 0.9590, 0.9629, 0.9727, 0.9924, 0.9999 / +data ((cldnuctab( 7,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +0.9902, 0.9933, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9902, 0.9914, 0.9948, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9890, 0.9890, 0.9914, 0.9954, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9876, 0.9890, 0.9890, 0.9902, 0.9960, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9860, 0.9860, 0.9876, 0.9876, 0.9902, 0.9960, 0.9999, 0.9999, 0.9999, & +0.9803, 0.9803, 0.9803, 0.9803, 0.9824, 0.9876, 0.9960, 0.9999, 0.9999, & +0.9590, 0.9590, 0.9590, 0.9590, 0.9629, 0.9664, 0.9755, 0.9914, 0.9999 / +data ((cldnuctab( 7,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +0.9933, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9902, 0.9933, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9860, 0.9890, 0.9933, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9780, 0.9803, 0.9843, 0.9924, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9548, 0.9548, 0.9590, 0.9664, 0.9824, 0.9995, 0.9941, 0.9999, 0.9999, & +0.9219, 0.9219, 0.9219, 0.9284, 0.9401, 0.9590, 0.9933, 0.9664, 0.9902, & +0.8915, 0.8915, 0.8915, 0.8998, 0.8998, 0.9076, 0.9284, 0.9629, 0.9843 / +data ((cldnuctab( 7,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +0.9933, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9902, 0.9933, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9890, 0.9902, 0.9933, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9843, 0.9860, 0.9890, 0.9933, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9727, 0.9727, 0.9755, 0.9803, 0.9902, 0.9996, 0.9996, 0.9999, 0.9999, & +0.9454, 0.9454, 0.9503, 0.9503, 0.9590, 0.9755, 0.9977, 0.9843, 0.9993, & +0.9150, 0.9150, 0.9150, 0.9150, 0.9219, 0.9284, 0.9503, 0.9843, 0.9998 / +data ((cldnuctab( 7,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +0.9933, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9914, 0.9933, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9902, 0.9914, 0.9933, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9890, 0.9890, 0.9902, 0.9933, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9824, 0.9824, 0.9843, 0.9860, 0.9924, 0.9995, 0.9999, 0.9999, 0.9999, & +0.9664, 0.9664, 0.9664, 0.9697, 0.9727, 0.9843, 0.9987, 0.9954, 0.9999, & +0.9344, 0.9344, 0.9344, 0.9344, 0.9401, 0.9454, 0.9629, 0.9902, 0.9999 / +data ((cldnuctab( 7,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +0.9941, 0.9977, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9924, 0.9941, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9914, 0.9924, 0.9941, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9902, 0.9914, 0.9924, 0.9941, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9860, 0.9876, 0.9876, 0.9902, 0.9933, 0.9990, 0.9999, 0.9999, 0.9999, & +0.9755, 0.9755, 0.9755, 0.9780, 0.9803, 0.9876, 0.9985, 0.9996, 0.9999, & +0.9503, 0.9503, 0.9503, 0.9503, 0.9548, 0.9590, 0.9697, 0.9924, 0.9999 / +data ((cldnuctab( 7,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +0.9941, 0.9965, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9933, 0.9941, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9924, 0.9933, 0.9941, 0.9977, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9914, 0.9924, 0.9924, 0.9941, 0.9977, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9890, 0.9890, 0.9902, 0.9914, 0.9933, 0.9980, 0.9999, 0.9999, 0.9999, & +0.9803, 0.9803, 0.9803, 0.9824, 0.9843, 0.9890, 0.9980, 0.9999, 0.9999, & +0.9590, 0.9590, 0.9590, 0.9590, 0.9629, 0.9664, 0.9755, 0.9924, 0.9999 / +data ((cldnuctab( 7,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +0.9948, 0.9965, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9941, 0.9948, 0.9970, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9933, 0.9933, 0.9948, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9924, 0.9933, 0.9933, 0.9941, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9902, 0.9902, 0.9914, 0.9924, 0.9941, 0.9974, 0.9999, 0.9999, 0.9999, & +0.9843, 0.9843, 0.9843, 0.9843, 0.9860, 0.9902, 0.9974, 0.9999, 0.9999, & +0.9629, 0.9629, 0.9629, 0.9664, 0.9664, 0.9697, 0.9780, 0.9914, 0.9999 / +data ((cldnuctab( 7,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +0.9948, 0.9965, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9941, 0.9948, 0.9970, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9941, 0.9941, 0.9948, 0.9970, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9933, 0.9933, 0.9941, 0.9948, 0.9974, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9914, 0.9914, 0.9924, 0.9924, 0.9941, 0.9974, 0.9999, 0.9999, 0.9999, & +0.9843, 0.9860, 0.9860, 0.9860, 0.9876, 0.9914, 0.9965, 0.9999, 0.9999, & +0.9664, 0.9664, 0.9664, 0.9664, 0.9697, 0.9727, 0.9780, 0.9902, 0.9999 / +data ((cldnuctab( 7,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +0.9954, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9933, 0.9948, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9902, 0.9924, 0.9954, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9824, 0.9843, 0.9860, 0.9933, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9629, 0.9629, 0.9664, 0.9727, 0.9843, 0.9989, 0.9941, 0.9999, 0.9999, & +0.9344, 0.9344, 0.9401, 0.9401, 0.9454, 0.9629, 0.9902, 0.9999, 0.9914, & +0.9150, 0.9150, 0.9150, 0.9150, 0.9219, 0.9284, 0.9454, 0.9664, 0.9843 / +data ((cldnuctab( 7,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +0.9954, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9941, 0.9954, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9924, 0.9933, 0.9954, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9890, 0.9902, 0.9914, 0.9948, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9780, 0.9780, 0.9803, 0.9843, 0.9914, 0.9995, 0.9994, 0.9999, 0.9999, & +0.9548, 0.9548, 0.9548, 0.9590, 0.9629, 0.9780, 0.9960, 0.9999, 0.9987, & +0.9284, 0.9284, 0.9284, 0.9284, 0.9344, 0.9401, 0.9548, 0.9824, 0.9992 / +data ((cldnuctab( 7,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +0.9960, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9941, 0.9954, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9941, 0.9941, 0.9954, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9924, 0.9924, 0.9933, 0.9954, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9860, 0.9860, 0.9876, 0.9890, 0.9941, 0.9994, 0.9999, 0.9999, 0.9999, & +0.9697, 0.9697, 0.9727, 0.9727, 0.9780, 0.9860, 0.9980, 0.9999, 0.9999, & +0.9454, 0.9454, 0.9454, 0.9454, 0.9503, 0.9548, 0.9664, 0.9890, 0.9999 / +data ((cldnuctab( 7,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +0.9960, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9948, 0.9960, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9948, 0.9948, 0.9954, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9933, 0.9941, 0.9948, 0.9960, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9902, 0.9902, 0.9914, 0.9924, 0.9948, 0.9990, 0.9999, 0.9999, 0.9999, & +0.9803, 0.9803, 0.9803, 0.9803, 0.9843, 0.9890, 0.9980, 0.9999, 0.9999, & +0.9590, 0.9590, 0.9590, 0.9590, 0.9590, 0.9629, 0.9727, 0.9914, 0.9999 / +data ((cldnuctab( 7,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +0.9965, 0.9977, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9954, 0.9965, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9954, 0.9954, 0.9960, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9948, 0.9948, 0.9954, 0.9960, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9924, 0.9924, 0.9924, 0.9933, 0.9954, 0.9985, 0.9999, 0.9999, 0.9999, & +0.9843, 0.9843, 0.9843, 0.9860, 0.9876, 0.9914, 0.9977, 0.9999, 0.9999, & +0.9664, 0.9664, 0.9664, 0.9664, 0.9664, 0.9697, 0.9780, 0.9914, 0.9999 / +data ((cldnuctab( 7,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +0.9965, 0.9977, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9960, 0.9965, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9954, 0.9960, 0.9965, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9948, 0.9954, 0.9954, 0.9965, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9933, 0.9933, 0.9933, 0.9941, 0.9954, 0.9983, 0.9999, 0.9999, 0.9999, & +0.9860, 0.9860, 0.9876, 0.9876, 0.9890, 0.9924, 0.9974, 0.9999, 0.9999, & +0.9697, 0.9697, 0.9697, 0.9697, 0.9727, 0.9727, 0.9803, 0.9902, 0.9999 / +data ((cldnuctab( 7,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +0.9970, 0.9977, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9965, 0.9970, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9960, 0.9965, 0.9965, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9954, 0.9960, 0.9960, 0.9965, 0.9980, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9941, 0.9941, 0.9941, 0.9948, 0.9960, 0.9980, 0.9999, 0.9999, 0.9999, & +0.9876, 0.9876, 0.9890, 0.9890, 0.9902, 0.9924, 0.9970, 0.9999, 0.9999, & +0.9727, 0.9727, 0.9727, 0.9727, 0.9727, 0.9755, 0.9803, 0.9902, 0.9998 / +data ((cldnuctab( 7,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +0.9965, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9948, 0.9965, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9924, 0.9941, 0.9965, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9843, 0.9860, 0.9890, 0.9941, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9664, 0.9697, 0.9697, 0.9755, 0.9843, 0.9983, 0.9954, 0.9999, 0.9999, & +0.9454, 0.9454, 0.9454, 0.9503, 0.9548, 0.9664, 0.9902, 0.9999, 0.9941, & +0.9344, 0.9344, 0.9344, 0.9344, 0.9344, 0.9401, 0.9503, 0.9727, 0.9843 / +data ((cldnuctab( 7,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +0.9970, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9954, 0.9965, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9948, 0.9954, 0.9965, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9914, 0.9914, 0.9933, 0.9960, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9803, 0.9824, 0.9824, 0.9860, 0.9914, 0.9992, 0.9995, 0.9999, 0.9999, & +0.9629, 0.9629, 0.9629, 0.9629, 0.9697, 0.9780, 0.9948, 0.9999, 0.9983, & +0.9401, 0.9401, 0.9401, 0.9454, 0.9454, 0.9503, 0.9629, 0.9824, 0.9985 / +data ((cldnuctab( 7,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +0.9970, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9960, 0.9970, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9954, 0.9960, 0.9970, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9941, 0.9941, 0.9948, 0.9965, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9890, 0.9890, 0.9890, 0.9914, 0.9948, 0.9993, 0.9999, 0.9999, 0.9999, & +0.9755, 0.9755, 0.9755, 0.9755, 0.9803, 0.9860, 0.9974, 0.9999, 0.9999, & +0.9548, 0.9548, 0.9548, 0.9548, 0.9548, 0.9590, 0.9697, 0.9876, 0.9999 / +data ((cldnuctab( 7,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +0.9974, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9965, 0.9970, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9960, 0.9965, 0.9970, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9954, 0.9954, 0.9960, 0.9970, 0.9989, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9924, 0.9924, 0.9924, 0.9933, 0.9954, 0.9992, 0.9999, 0.9999, 0.9999, & +0.9824, 0.9824, 0.9824, 0.9843, 0.9860, 0.9902, 0.9977, 0.9999, 0.9999, & +0.9629, 0.9629, 0.9629, 0.9629, 0.9664, 0.9697, 0.9755, 0.9902, 0.9999 / +data ((cldnuctab( 7,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +0.9974, 0.9983, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9970, 0.9974, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9965, 0.9970, 0.9974, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9960, 0.9960, 0.9965, 0.9974, 0.9987, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9933, 0.9941, 0.9941, 0.9948, 0.9965, 0.9987, 0.9999, 0.9999, 0.9999, & +0.9860, 0.9860, 0.9876, 0.9876, 0.9890, 0.9924, 0.9974, 0.9999, 0.9999, & +0.9697, 0.9697, 0.9697, 0.9697, 0.9727, 0.9727, 0.9803, 0.9902, 0.9999 / +data ((cldnuctab( 7,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +0.9977, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9974, 0.9977, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9970, 0.9974, 0.9974, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9965, 0.9965, 0.9970, 0.9974, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9948, 0.9948, 0.9948, 0.9954, 0.9965, 0.9985, 0.9999, 0.9999, 0.9999, & +0.9890, 0.9890, 0.9890, 0.9890, 0.9902, 0.9933, 0.9974, 0.9999, 0.9999, & +0.9727, 0.9727, 0.9727, 0.9727, 0.9755, 0.9780, 0.9803, 0.9902, 0.9998 / +data ((cldnuctab( 7,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +0.9977, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9974, 0.9977, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9974, 0.9974, 0.9977, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9970, 0.9970, 0.9970, 0.9977, 0.9985, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9954, 0.9954, 0.9954, 0.9960, 0.9970, 0.9985, 0.9999, 0.9999, 0.9999, & +0.9902, 0.9902, 0.9902, 0.9902, 0.9914, 0.9933, 0.9970, 0.9999, 0.9999, & +0.9755, 0.9755, 0.9755, 0.9755, 0.9780, 0.9780, 0.9824, 0.9902, 0.9996 / +data ((cldnuctab( 8,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +0.9717, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9382, 0.9795, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9196, 0.9382, 0.9795, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9125, 0.9196, 0.9382, 0.9772, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.8885, 0.8885, 0.9049, 0.9324, 0.9870, 0.9817, 0.9999, 0.9999, 0.9999, & +0.8271, 0.8271, 0.8386, 0.8601, 0.8970, 0.9746, 0.8601, 0.9486, 0.9998, & +0.7477, 0.7477, 0.7477, 0.7622, 0.7761, 0.8151, 0.9049, 0.7477, 0.8026 / +data ((cldnuctab( 8,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +0.9533, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9382, 0.9686, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9262, 0.9382, 0.9746, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9196, 0.9262, 0.9382, 0.9746, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9125, 0.9125, 0.9196, 0.9382, 0.9772, 0.9976, 0.9999, 0.9999, 0.9999, & +0.8795, 0.8795, 0.8885, 0.8970, 0.9262, 0.9817, 0.9382, 0.9968, 0.9999, & +0.8151, 0.8151, 0.8151, 0.8151, 0.8386, 0.8700, 0.9533, 0.8151, 0.8795 / +data ((cldnuctab( 8,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +0.9486, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9436, 0.9576, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9324, 0.9436, 0.9686, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9262, 0.9324, 0.9382, 0.9717, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9196, 0.9262, 0.9262, 0.9382, 0.9717, 0.9990, 0.9999, 0.9999, 0.9999, & +0.9049, 0.9049, 0.9049, 0.9196, 0.9382, 0.9772, 0.9772, 0.9999, 0.9999, & +0.8601, 0.8601, 0.8601, 0.8601, 0.8795, 0.9049, 0.9652, 0.9049, 0.9436 / +data ((cldnuctab( 8,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +0.9486, 0.9972, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9436, 0.9576, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9382, 0.9436, 0.9616, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9324, 0.9324, 0.9436, 0.9652, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9324, 0.9324, 0.9324, 0.9436, 0.9652, 0.9986, 0.9999, 0.9999, 0.9999, & +0.9196, 0.9196, 0.9196, 0.9262, 0.9382, 0.9686, 0.9885, 0.9999, 0.9999, & +0.8885, 0.8885, 0.8885, 0.8885, 0.8970, 0.9196, 0.9652, 0.9817, 0.9772 / +data ((cldnuctab( 8,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +0.9486, 0.9952, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9486, 0.9576, 0.9972, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9436, 0.9486, 0.9616, 0.9982, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9382, 0.9382, 0.9486, 0.9616, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9382, 0.9382, 0.9382, 0.9436, 0.9616, 0.9976, 0.9999, 0.9999, 0.9999, & +0.9262, 0.9262, 0.9324, 0.9324, 0.9436, 0.9652, 0.9938, 0.9999, 0.9999, & +0.9049, 0.9049, 0.9049, 0.9049, 0.9125, 0.9262, 0.9616, 0.9938, 0.9910 / +data ((cldnuctab( 8,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +0.9533, 0.9930, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9486, 0.9576, 0.9952, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9436, 0.9486, 0.9616, 0.9963, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9436, 0.9436, 0.9486, 0.9616, 0.9968, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9382, 0.9436, 0.9436, 0.9486, 0.9616, 0.9958, 0.9999, 0.9999, 0.9999, & +0.9324, 0.9324, 0.9382, 0.9382, 0.9486, 0.9616, 0.9938, 0.9999, 0.9999, & +0.9125, 0.9125, 0.9125, 0.9125, 0.9196, 0.9324, 0.9576, 0.9946, 0.9952 / +data ((cldnuctab( 8,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +0.9533, 0.9898, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9533, 0.9576, 0.9930, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9486, 0.9533, 0.9616, 0.9946, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9486, 0.9486, 0.9533, 0.9616, 0.9946, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9436, 0.9436, 0.9486, 0.9486, 0.9616, 0.9938, 0.9999, 0.9999, 0.9999, & +0.9382, 0.9382, 0.9382, 0.9436, 0.9486, 0.9616, 0.9920, 0.9999, 0.9999, & +0.9196, 0.9196, 0.9196, 0.9196, 0.9262, 0.9382, 0.9576, 0.9930, 0.9968 / +data ((cldnuctab( 8,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +0.9795, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9686, 0.9837, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9616, 0.9686, 0.9837, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9533, 0.9576, 0.9652, 0.9870, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9262, 0.9262, 0.9324, 0.9533, 0.9854, 0.9795, 0.9990, 0.9999, 0.9999, & +0.8700, 0.8700, 0.8795, 0.8885, 0.9125, 0.9576, 0.9997, 0.9382, 0.9958, & +0.8151, 0.8151, 0.8151, 0.8151, 0.8271, 0.8496, 0.9049, 0.9717, 0.8601 / +data ((cldnuctab( 8,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +0.9795, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9717, 0.9817, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9652, 0.9686, 0.9817, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9616, 0.9616, 0.9686, 0.9817, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9486, 0.9486, 0.9533, 0.9652, 0.9854, 0.9946, 0.9999, 0.9999, 0.9999, & +0.9125, 0.9125, 0.9196, 0.9262, 0.9436, 0.9772, 0.9999, 0.9870, 0.9999, & +0.8601, 0.8601, 0.8601, 0.8601, 0.8700, 0.8885, 0.9382, 0.9963, 0.8970 / +data ((cldnuctab( 8,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +0.9772, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9717, 0.9795, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9686, 0.9717, 0.9817, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9652, 0.9686, 0.9717, 0.9817, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9576, 0.9616, 0.9616, 0.9686, 0.9837, 0.9979, 0.9999, 0.9999, 0.9999, & +0.9382, 0.9382, 0.9436, 0.9486, 0.9576, 0.9817, 0.9990, 0.9988, 0.9999, & +0.8970, 0.8970, 0.8970, 0.8970, 0.9049, 0.9196, 0.9576, 0.9990, 0.9436 / +data ((cldnuctab( 8,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +0.9772, 0.9982, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9746, 0.9795, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9717, 0.9746, 0.9817, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9686, 0.9717, 0.9717, 0.9817, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9652, 0.9652, 0.9686, 0.9717, 0.9817, 0.9979, 0.9999, 0.9999, 0.9999, & +0.9533, 0.9533, 0.9533, 0.9576, 0.9652, 0.9817, 0.9984, 0.9998, 0.9999, & +0.9196, 0.9196, 0.9196, 0.9196, 0.9262, 0.9382, 0.9652, 0.9986, 0.9717 / +data ((cldnuctab( 8,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +0.9795, 0.9963, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9772, 0.9795, 0.9972, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9746, 0.9746, 0.9817, 0.9976, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9717, 0.9717, 0.9746, 0.9817, 0.9976, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9686, 0.9686, 0.9717, 0.9746, 0.9795, 0.9972, 0.9999, 0.9999, 0.9999, & +0.9616, 0.9616, 0.9616, 0.9652, 0.9686, 0.9795, 0.9976, 0.9999, 0.9999, & +0.9324, 0.9324, 0.9324, 0.9382, 0.9382, 0.9486, 0.9686, 0.9976, 0.9854 / +data ((cldnuctab( 8,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +0.9795, 0.9946, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9772, 0.9817, 0.9952, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9746, 0.9772, 0.9817, 0.9958, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9746, 0.9746, 0.9772, 0.9817, 0.9958, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9717, 0.9717, 0.9746, 0.9772, 0.9817, 0.9958, 0.9999, 0.9999, 0.9999, & +0.9652, 0.9652, 0.9652, 0.9686, 0.9717, 0.9795, 0.9963, 0.9999, 0.9999, & +0.9436, 0.9436, 0.9436, 0.9436, 0.9486, 0.9533, 0.9686, 0.9952, 0.9946 / +data ((cldnuctab( 8,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +0.9817, 0.9920, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9795, 0.9817, 0.9930, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9772, 0.9795, 0.9817, 0.9938, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9772, 0.9772, 0.9772, 0.9817, 0.9946, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9746, 0.9746, 0.9746, 0.9772, 0.9817, 0.9946, 0.9999, 0.9999, 0.9999, & +0.9686, 0.9686, 0.9686, 0.9686, 0.9746, 0.9817, 0.9946, 0.9999, 0.9999, & +0.9486, 0.9486, 0.9486, 0.9486, 0.9486, 0.9576, 0.9686, 0.9930, 0.9996 / +data ((cldnuctab( 8,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +0.9910, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9854, 0.9910, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9817, 0.9854, 0.9910, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9717, 0.9746, 0.9817, 0.9910, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9486, 0.9533, 0.9533, 0.9652, 0.9837, 0.9997, 0.9952, 0.9999, 0.9999, & +0.9125, 0.9125, 0.9125, 0.9196, 0.9324, 0.9576, 0.9958, 0.9533, 0.9910, & +0.8795, 0.8795, 0.8795, 0.8795, 0.8795, 0.8970, 0.9262, 0.9652, 0.9870 / +data ((cldnuctab( 8,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +0.9910, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9870, 0.9910, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9854, 0.9870, 0.9898, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9817, 0.9817, 0.9854, 0.9920, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9686, 0.9686, 0.9717, 0.9772, 0.9898, 0.9997, 0.9998, 0.9999, 0.9999, & +0.9382, 0.9382, 0.9436, 0.9436, 0.9533, 0.9746, 0.9988, 0.9817, 0.9997, & +0.8970, 0.8970, 0.8970, 0.9049, 0.9049, 0.9196, 0.9436, 0.9870, 0.9999 / +data ((cldnuctab( 8,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +0.9910, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9885, 0.9910, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9870, 0.9885, 0.9910, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9854, 0.9854, 0.9870, 0.9910, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9795, 0.9795, 0.9795, 0.9837, 0.9910, 0.9995, 0.9999, 0.9999, 0.9999, & +0.9616, 0.9616, 0.9616, 0.9652, 0.9717, 0.9837, 0.9992, 0.9952, 0.9999, & +0.9262, 0.9262, 0.9262, 0.9262, 0.9324, 0.9382, 0.9616, 0.9930, 0.9686 / +data ((cldnuctab( 8,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +0.9910, 0.9979, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9898, 0.9920, 0.9982, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9885, 0.9885, 0.9920, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9870, 0.9870, 0.9885, 0.9910, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9837, 0.9837, 0.9854, 0.9870, 0.9910, 0.9988, 0.9999, 0.9999, 0.9999, & +0.9717, 0.9717, 0.9717, 0.9746, 0.9772, 0.9870, 0.9988, 0.9990, 0.9999, & +0.9436, 0.9436, 0.9436, 0.9436, 0.9486, 0.9533, 0.9686, 0.9946, 0.9979 / +data ((cldnuctab( 8,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +0.9920, 0.9963, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9910, 0.9920, 0.9968, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9898, 0.9898, 0.9920, 0.9976, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9885, 0.9885, 0.9898, 0.9920, 0.9976, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9854, 0.9854, 0.9870, 0.9885, 0.9920, 0.9979, 0.9999, 0.9999, 0.9999, & +0.9772, 0.9772, 0.9772, 0.9795, 0.9817, 0.9885, 0.9982, 0.9998, 0.9999, & +0.9533, 0.9533, 0.9533, 0.9533, 0.9576, 0.9616, 0.9746, 0.9938, 0.9999 / +data ((cldnuctab( 8,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +0.9920, 0.9946, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9910, 0.9920, 0.9958, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9910, 0.9910, 0.9920, 0.9968, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9898, 0.9898, 0.9910, 0.9920, 0.9968, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9870, 0.9870, 0.9885, 0.9898, 0.9920, 0.9968, 0.9999, 0.9999, 0.9999, & +0.9795, 0.9795, 0.9817, 0.9817, 0.9837, 0.9885, 0.9972, 0.9999, 0.9999, & +0.9616, 0.9616, 0.9616, 0.9616, 0.9616, 0.9652, 0.9746, 0.9920, 0.9999 / +data ((cldnuctab( 8,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +0.9930, 0.9952, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9920, 0.9930, 0.9958, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9910, 0.9920, 0.9930, 0.9963, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9910, 0.9910, 0.9920, 0.9930, 0.9963, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9885, 0.9885, 0.9898, 0.9910, 0.9920, 0.9963, 0.9999, 0.9999, 0.9999, & +0.9817, 0.9817, 0.9817, 0.9837, 0.9854, 0.9898, 0.9963, 0.9999, 0.9999, & +0.9616, 0.9652, 0.9652, 0.9652, 0.9652, 0.9686, 0.9772, 0.9910, 0.9999 / +data ((cldnuctab( 8,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +0.9963, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9946, 0.9958, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9920, 0.9930, 0.9963, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9837, 0.9854, 0.9885, 0.9938, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9686, 0.9686, 0.9686, 0.9746, 0.9837, 0.9984, 0.9946, 0.9999, 0.9999, & +0.9436, 0.9436, 0.9436, 0.9486, 0.9533, 0.9686, 0.9898, 0.9999, 0.9930, & +0.9262, 0.9324, 0.9324, 0.9324, 0.9324, 0.9382, 0.9486, 0.9717, 0.9854 / +data ((cldnuctab( 8,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +0.9963, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9952, 0.9958, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9938, 0.9946, 0.9963, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9910, 0.9910, 0.9930, 0.9958, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9795, 0.9817, 0.9817, 0.9854, 0.9910, 0.9992, 0.9992, 0.9999, 0.9999, & +0.9616, 0.9616, 0.9616, 0.9652, 0.9686, 0.9795, 0.9952, 0.9999, 0.9984, & +0.9382, 0.9382, 0.9382, 0.9436, 0.9436, 0.9486, 0.9616, 0.9837, 0.9988 / +data ((cldnuctab( 8,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +0.9968, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9958, 0.9968, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9952, 0.9958, 0.9963, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9938, 0.9938, 0.9946, 0.9963, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9885, 0.9885, 0.9885, 0.9910, 0.9946, 0.9993, 0.9999, 0.9999, 0.9999, & +0.9746, 0.9746, 0.9746, 0.9772, 0.9795, 0.9854, 0.9972, 0.9999, 0.9999, & +0.9533, 0.9533, 0.9533, 0.9533, 0.9533, 0.9576, 0.9686, 0.9885, 0.9999 / +data ((cldnuctab( 8,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +0.9968, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9963, 0.9968, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9958, 0.9963, 0.9968, 0.9988, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9946, 0.9952, 0.9958, 0.9968, 0.9988, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9920, 0.9920, 0.9920, 0.9930, 0.9958, 0.9991, 0.9999, 0.9999, 0.9999, & +0.9817, 0.9817, 0.9817, 0.9837, 0.9854, 0.9898, 0.9979, 0.9999, 0.9999, & +0.9616, 0.9616, 0.9616, 0.9616, 0.9652, 0.9686, 0.9746, 0.9910, 0.9999 / +data ((cldnuctab( 8,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +0.9972, 0.9982, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9968, 0.9972, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9963, 0.9963, 0.9968, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9958, 0.9958, 0.9963, 0.9968, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9930, 0.9938, 0.9938, 0.9946, 0.9963, 0.9988, 0.9999, 0.9999, 0.9999, & +0.9854, 0.9854, 0.9870, 0.9870, 0.9885, 0.9920, 0.9976, 0.9999, 0.9999, & +0.9686, 0.9686, 0.9686, 0.9686, 0.9717, 0.9746, 0.9795, 0.9910, 0.9999 / +data ((cldnuctab( 8,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +0.9972, 0.9982, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9968, 0.9972, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9968, 0.9968, 0.9972, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9963, 0.9963, 0.9968, 0.9972, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9946, 0.9946, 0.9946, 0.9952, 0.9963, 0.9984, 0.9999, 0.9999, 0.9999, & +0.9885, 0.9885, 0.9885, 0.9885, 0.9898, 0.9930, 0.9972, 0.9999, 0.9999, & +0.9717, 0.9717, 0.9746, 0.9746, 0.9746, 0.9772, 0.9817, 0.9910, 0.9999 / +data ((cldnuctab( 8,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +0.9976, 0.9982, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9972, 0.9976, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9972, 0.9972, 0.9976, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9968, 0.9968, 0.9968, 0.9976, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9952, 0.9952, 0.9952, 0.9958, 0.9968, 0.9984, 0.9999, 0.9999, 0.9999, & +0.9898, 0.9898, 0.9898, 0.9898, 0.9910, 0.9930, 0.9972, 0.9999, 0.9999, & +0.9746, 0.9746, 0.9746, 0.9746, 0.9772, 0.9772, 0.9817, 0.9898, 0.9997 / +data ((cldnuctab( 8,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +0.9976, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9968, 0.9979, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9946, 0.9958, 0.9976, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9885, 0.9885, 0.9910, 0.9946, 0.9995, 0.9998, 0.9999, 0.9999, 0.9999, & +0.9746, 0.9746, 0.9772, 0.9795, 0.9870, 0.9972, 0.9999, 0.9997, 0.9999, & +0.9616, 0.9616, 0.9616, 0.9616, 0.9652, 0.9746, 0.9898, 0.9996, 0.9999, & +0.9533, 0.9533, 0.9533, 0.9533, 0.9533, 0.9576, 0.9652, 0.9772, 0.9870 / +data ((cldnuctab( 8,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +0.9982, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9976, 0.9979, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9963, 0.9968, 0.9979, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9938, 0.9938, 0.9952, 0.9968, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9854, 0.9854, 0.9870, 0.9885, 0.9920, 0.9988, 0.9999, 0.9999, 0.9999, & +0.9717, 0.9717, 0.9717, 0.9717, 0.9746, 0.9817, 0.9938, 0.9999, 0.9982, & +0.9576, 0.9576, 0.9576, 0.9576, 0.9616, 0.9652, 0.9717, 0.9854, 0.9976 / +data ((cldnuctab( 8,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +0.9982, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9979, 0.9982, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9972, 0.9976, 0.9982, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9958, 0.9963, 0.9968, 0.9976, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9910, 0.9910, 0.9920, 0.9930, 0.9952, 0.9991, 0.9999, 0.9999, 0.9999, & +0.9795, 0.9795, 0.9817, 0.9817, 0.9837, 0.9885, 0.9963, 0.9999, 0.9997, & +0.9652, 0.9652, 0.9652, 0.9652, 0.9686, 0.9686, 0.9772, 0.9885, 0.9997 / +data ((cldnuctab( 8,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +0.9984, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9982, 0.9984, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9979, 0.9979, 0.9982, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9968, 0.9972, 0.9976, 0.9982, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9938, 0.9946, 0.9946, 0.9952, 0.9968, 0.9991, 0.9999, 0.9999, 0.9999, & +0.9870, 0.9870, 0.9870, 0.9870, 0.9885, 0.9920, 0.9972, 0.9999, 0.9999, & +0.9717, 0.9717, 0.9717, 0.9717, 0.9746, 0.9746, 0.9795, 0.9898, 0.9998 / +data ((cldnuctab( 8,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +0.9986, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9982, 0.9984, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9982, 0.9982, 0.9984, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9976, 0.9976, 0.9979, 0.9984, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9958, 0.9958, 0.9958, 0.9963, 0.9972, 0.9990, 0.9999, 0.9999, 0.9999, & +0.9898, 0.9898, 0.9898, 0.9898, 0.9910, 0.9930, 0.9972, 0.9999, 0.9999, & +0.9772, 0.9772, 0.9772, 0.9772, 0.9772, 0.9795, 0.9837, 0.9910, 0.9997 / +data ((cldnuctab( 8,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +0.9986, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9984, 0.9986, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9984, 0.9984, 0.9986, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9979, 0.9979, 0.9982, 0.9984, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9963, 0.9963, 0.9963, 0.9968, 0.9976, 0.9990, 0.9999, 0.9999, 0.9999, & +0.9910, 0.9910, 0.9910, 0.9920, 0.9920, 0.9938, 0.9972, 0.9999, 0.9999, & +0.9795, 0.9795, 0.9795, 0.9795, 0.9795, 0.9817, 0.9854, 0.9910, 0.9995 / +data ((cldnuctab( 8,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +0.9988, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9986, 0.9988, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9984, 0.9986, 0.9986, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9982, 0.9982, 0.9984, 0.9986, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9968, 0.9968, 0.9968, 0.9972, 0.9979, 0.9990, 0.9999, 0.9999, 0.9999, & +0.9920, 0.9920, 0.9920, 0.9930, 0.9930, 0.9946, 0.9972, 0.9999, 0.9999, & +0.9817, 0.9817, 0.9817, 0.9817, 0.9817, 0.9837, 0.9854, 0.9910, 0.9990 / +data ((cldnuctab( 8,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +0.9986, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9979, 0.9986, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9958, 0.9968, 0.9979, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9910, 0.9910, 0.9920, 0.9952, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9795, 0.9817, 0.9817, 0.9837, 0.9885, 0.9968, 0.9999, 0.9996, 0.9999, & +0.9717, 0.9717, 0.9717, 0.9717, 0.9746, 0.9795, 0.9910, 0.9992, 0.9999, & +0.9652, 0.9652, 0.9652, 0.9652, 0.9686, 0.9686, 0.9746, 0.9817, 0.9885 / +data ((cldnuctab( 8,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +0.9986, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9984, 0.9986, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9976, 0.9979, 0.9986, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9952, 0.9952, 0.9958, 0.9976, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9885, 0.9885, 0.9885, 0.9898, 0.9930, 0.9984, 0.9999, 0.9999, 0.9999, & +0.9772, 0.9772, 0.9772, 0.9795, 0.9817, 0.9854, 0.9938, 0.9999, 0.9990, & +0.9686, 0.9686, 0.9686, 0.9686, 0.9717, 0.9717, 0.9772, 0.9870, 0.9972 / +data ((cldnuctab( 8,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +0.9990, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9986, 0.9988, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9982, 0.9984, 0.9988, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9968, 0.9972, 0.9976, 0.9984, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9930, 0.9930, 0.9938, 0.9946, 0.9963, 0.9990, 0.9999, 0.9999, 0.9999, & +0.9837, 0.9837, 0.9837, 0.9854, 0.9870, 0.9898, 0.9958, 0.9999, 0.9997, & +0.9746, 0.9746, 0.9746, 0.9746, 0.9746, 0.9772, 0.9817, 0.9898, 0.9993 / +data ((cldnuctab( 8,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +0.9990, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9988, 0.9990, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9986, 0.9986, 0.9990, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9979, 0.9979, 0.9982, 0.9986, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9952, 0.9958, 0.9958, 0.9963, 0.9972, 0.9991, 0.9999, 0.9999, 0.9999, & +0.9885, 0.9885, 0.9885, 0.9898, 0.9910, 0.9930, 0.9972, 0.9999, 0.9999, & +0.9795, 0.9795, 0.9795, 0.9795, 0.9795, 0.9817, 0.9837, 0.9910, 0.9996 / +data ((cldnuctab( 8,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +0.9991, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9990, 0.9991, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9988, 0.9988, 0.9990, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9984, 0.9984, 0.9986, 0.9988, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9968, 0.9968, 0.9968, 0.9972, 0.9979, 0.9991, 0.9999, 0.9999, 0.9999, & +0.9910, 0.9910, 0.9920, 0.9920, 0.9930, 0.9946, 0.9972, 0.9999, 0.9999, & +0.9817, 0.9817, 0.9817, 0.9817, 0.9817, 0.9837, 0.9854, 0.9920, 0.9994 / +data ((cldnuctab( 8,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +0.9992, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9991, 0.9991, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9990, 0.9990, 0.9991, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9986, 0.9986, 0.9988, 0.9990, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9972, 0.9972, 0.9972, 0.9976, 0.9982, 0.9991, 0.9999, 0.9999, 0.9999, & +0.9930, 0.9930, 0.9930, 0.9930, 0.9938, 0.9952, 0.9976, 0.9999, 0.9999, & +0.9837, 0.9837, 0.9837, 0.9837, 0.9837, 0.9854, 0.9870, 0.9920, 0.9990 / +data ((cldnuctab( 8,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +0.9992, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9991, 0.9992, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9991, 0.9991, 0.9992, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9986, 0.9988, 0.9988, 0.9991, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9976, 0.9976, 0.9976, 0.9979, 0.9984, 0.9991, 0.9999, 0.9999, 0.9999, & +0.9938, 0.9938, 0.9938, 0.9938, 0.9946, 0.9952, 0.9976, 0.9998, 0.9999, & +0.9854, 0.9854, 0.9854, 0.9854, 0.9854, 0.9854, 0.9885, 0.9920, 0.9984 / +data ((cldnuctab( 8,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +0.9990, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9984, 0.9990, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9968, 0.9972, 0.9984, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9920, 0.9920, 0.9938, 0.9958, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9837, 0.9837, 0.9854, 0.9870, 0.9898, 0.9963, 0.9999, 0.9995, 0.9999, & +0.9772, 0.9772, 0.9772, 0.9772, 0.9795, 0.9837, 0.9920, 0.9990, 0.9999, & +0.9717, 0.9717, 0.9746, 0.9746, 0.9746, 0.9772, 0.9795, 0.9854, 0.9910 / +data ((cldnuctab( 8,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +0.9991, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9988, 0.9991, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9982, 0.9984, 0.9990, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9958, 0.9963, 0.9968, 0.9979, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9898, 0.9898, 0.9910, 0.9920, 0.9938, 0.9982, 0.9999, 0.9999, 0.9999, & +0.9817, 0.9817, 0.9817, 0.9837, 0.9837, 0.9870, 0.9946, 0.9999, 0.9999, & +0.9772, 0.9772, 0.9772, 0.9772, 0.9772, 0.9795, 0.9817, 0.9898, 0.9968 / +data ((cldnuctab( 8,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +0.9992, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9991, 0.9992, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9988, 0.9988, 0.9991, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9976, 0.9976, 0.9979, 0.9986, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9938, 0.9946, 0.9946, 0.9952, 0.9963, 0.9990, 0.9999, 0.9999, 0.9999, & +0.9870, 0.9870, 0.9870, 0.9870, 0.9885, 0.9910, 0.9963, 0.9999, 0.9997, & +0.9795, 0.9795, 0.9795, 0.9795, 0.9795, 0.9817, 0.9854, 0.9910, 0.9990 / +data ((cldnuctab( 8,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +0.9993, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9992, 0.9992, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9990, 0.9991, 0.9992, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9984, 0.9984, 0.9986, 0.9990, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9963, 0.9963, 0.9963, 0.9968, 0.9976, 0.9991, 0.9999, 0.9999, 0.9999, & +0.9910, 0.9910, 0.9910, 0.9910, 0.9920, 0.9938, 0.9972, 0.9999, 0.9999, & +0.9817, 0.9817, 0.9837, 0.9837, 0.9837, 0.9837, 0.9870, 0.9920, 0.9992 / +data ((cldnuctab( 8,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +0.9993, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9993, 0.9993, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9991, 0.9992, 0.9993, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9988, 0.9988, 0.9990, 0.9991, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9972, 0.9972, 0.9972, 0.9976, 0.9982, 0.9992, 0.9999, 0.9999, 0.9999, & +0.9930, 0.9930, 0.9930, 0.9930, 0.9938, 0.9952, 0.9976, 0.9999, 0.9999, & +0.9854, 0.9854, 0.9854, 0.9854, 0.9854, 0.9870, 0.9885, 0.9930, 0.9991 / +data ((cldnuctab( 8,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +0.9994, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9993, 0.9994, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9992, 0.9993, 0.9994, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9990, 0.9990, 0.9991, 0.9992, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9976, 0.9979, 0.9979, 0.9979, 0.9984, 0.9992, 0.9999, 0.9999, 0.9999, & +0.9938, 0.9938, 0.9938, 0.9938, 0.9946, 0.9958, 0.9976, 0.9998, 0.9999, & +0.9870, 0.9870, 0.9870, 0.9870, 0.9870, 0.9870, 0.9898, 0.9930, 0.9986 / +data ((cldnuctab( 8,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +0.9995, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9994, 0.9995, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9993, 0.9993, 0.9994, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9991, 0.9991, 0.9991, 0.9993, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9979, 0.9979, 0.9982, 0.9982, 0.9986, 0.9992, 0.9999, 0.9999, 0.9999, & +0.9946, 0.9946, 0.9946, 0.9946, 0.9952, 0.9958, 0.9976, 0.9997, 0.9999, & +0.9870, 0.9870, 0.9870, 0.9870, 0.9870, 0.9885, 0.9898, 0.9930, 0.9982 / +data ((cldnuctab( 9,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +0.9897, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9835, 0.9897, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9793, 0.9835, 0.9897, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9714, 0.9714, 0.9793, 0.9909, 0.9988, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9481, 0.9481, 0.9528, 0.9612, 0.9835, 0.9999, 0.9968, 0.9999, 0.9999, & +0.9041, 0.9117, 0.9117, 0.9189, 0.9318, 0.9612, 0.9979, 0.9528, 0.9929, & +0.8690, 0.8690, 0.8690, 0.8786, 0.8786, 0.8961, 0.9255, 0.9683, 0.9909 / +data ((cldnuctab( 9,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +0.9884, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9853, 0.9897, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9815, 0.9835, 0.9897, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9769, 0.9793, 0.9835, 0.9897, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9649, 0.9683, 0.9683, 0.9769, 0.9884, 0.9998, 0.9999, 0.9999, 0.9999, & +0.9376, 0.9376, 0.9376, 0.9431, 0.9528, 0.9769, 0.9995, 0.9835, 0.9999, & +0.8961, 0.8961, 0.8961, 0.8961, 0.9041, 0.9189, 0.9431, 0.9909, 0.9318 / +data ((cldnuctab( 9,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +0.9884, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9869, 0.9897, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9835, 0.9853, 0.9897, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9815, 0.9835, 0.9853, 0.9897, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9743, 0.9769, 0.9769, 0.9815, 0.9897, 0.9992, 0.9999, 0.9999, 0.9999, & +0.9572, 0.9572, 0.9572, 0.9612, 0.9683, 0.9835, 0.9995, 0.9968, 0.9999, & +0.9189, 0.9255, 0.9255, 0.9255, 0.9255, 0.9376, 0.9612, 0.9958, 0.9572 / +data ((cldnuctab( 9,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +0.9897, 0.9982, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9869, 0.9897, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9853, 0.9869, 0.9897, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9835, 0.9853, 0.9869, 0.9897, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9815, 0.9815, 0.9815, 0.9853, 0.9897, 0.9986, 0.9999, 0.9999, 0.9999, & +0.9683, 0.9683, 0.9683, 0.9714, 0.9769, 0.9869, 0.9991, 0.9993, 0.9999, & +0.9431, 0.9431, 0.9431, 0.9431, 0.9431, 0.9528, 0.9683, 0.9963, 0.9769 / +data ((cldnuctab( 9,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +0.9897, 0.9968, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9884, 0.9897, 0.9972, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9869, 0.9884, 0.9897, 0.9975, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9853, 0.9869, 0.9869, 0.9897, 0.9975, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9835, 0.9835, 0.9853, 0.9869, 0.9897, 0.9976, 0.9999, 0.9999, 0.9999, & +0.9743, 0.9743, 0.9743, 0.9769, 0.9793, 0.9869, 0.9982, 0.9997, 0.9999, & +0.9528, 0.9528, 0.9528, 0.9528, 0.9528, 0.9612, 0.9743, 0.9952, 0.9958 / +data ((cldnuctab( 9,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +0.9909, 0.9945, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9897, 0.9909, 0.9952, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9884, 0.9884, 0.9909, 0.9963, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9869, 0.9884, 0.9884, 0.9909, 0.9963, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9853, 0.9853, 0.9853, 0.9869, 0.9909, 0.9968, 0.9999, 0.9999, 0.9999, & +0.9769, 0.9769, 0.9793, 0.9793, 0.9815, 0.9869, 0.9972, 0.9999, 0.9999, & +0.9572, 0.9572, 0.9572, 0.9572, 0.9612, 0.9649, 0.9743, 0.9929, 0.9999 / +data ((cldnuctab( 9,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +0.9909, 0.9937, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9897, 0.9909, 0.9952, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9897, 0.9897, 0.9909, 0.9958, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9884, 0.9884, 0.9897, 0.9909, 0.9958, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9869, 0.9869, 0.9869, 0.9884, 0.9909, 0.9958, 0.9999, 0.9999, 0.9999, & +0.9793, 0.9793, 0.9793, 0.9815, 0.9835, 0.9884, 0.9963, 0.9999, 0.9999, & +0.9612, 0.9612, 0.9612, 0.9612, 0.9649, 0.9683, 0.9743, 0.9919, 0.9999 / +data ((cldnuctab( 9,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +0.9952, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9929, 0.9952, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9909, 0.9919, 0.9952, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9815, 0.9835, 0.9869, 0.9937, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9649, 0.9649, 0.9683, 0.9714, 0.9835, 0.9990, 0.9937, 0.9999, 0.9999, & +0.9376, 0.9376, 0.9431, 0.9431, 0.9528, 0.9649, 0.9919, 0.9999, 0.9909, & +0.9255, 0.9255, 0.9255, 0.9255, 0.9255, 0.9318, 0.9481, 0.9714, 0.9853 / +data ((cldnuctab( 9,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +0.9958, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9937, 0.9958, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9929, 0.9937, 0.9952, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9897, 0.9897, 0.9919, 0.9952, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9793, 0.9793, 0.9815, 0.9835, 0.9909, 0.9995, 0.9994, 0.9999, 0.9999, & +0.9572, 0.9572, 0.9572, 0.9612, 0.9649, 0.9769, 0.9968, 0.9909, 0.9990, & +0.9318, 0.9318, 0.9318, 0.9376, 0.9376, 0.9431, 0.9572, 0.9835, 0.9994 / +data ((cldnuctab( 9,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +0.9958, 0.9988, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9945, 0.9958, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9937, 0.9945, 0.9958, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9919, 0.9929, 0.9937, 0.9958, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9869, 0.9869, 0.9884, 0.9897, 0.9937, 0.9994, 0.9999, 0.9999, 0.9999, & +0.9714, 0.9714, 0.9714, 0.9743, 0.9769, 0.9853, 0.9979, 0.9990, 0.9999, & +0.9481, 0.9481, 0.9481, 0.9481, 0.9528, 0.9572, 0.9683, 0.9897, 0.9999 / +data ((cldnuctab( 9,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +0.9963, 0.9979, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9952, 0.9963, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9945, 0.9952, 0.9958, 0.9986, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9937, 0.9937, 0.9945, 0.9958, 0.9988, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9897, 0.9909, 0.9909, 0.9919, 0.9952, 0.9991, 0.9999, 0.9999, 0.9999, & +0.9793, 0.9815, 0.9815, 0.9815, 0.9835, 0.9897, 0.9982, 0.9999, 0.9999, & +0.9612, 0.9612, 0.9612, 0.9612, 0.9612, 0.9649, 0.9743, 0.9919, 0.9999 / +data ((cldnuctab( 9,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +0.9963, 0.9979, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9958, 0.9963, 0.9982, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9952, 0.9958, 0.9963, 0.9982, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9945, 0.9945, 0.9952, 0.9963, 0.9984, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9919, 0.9919, 0.9929, 0.9937, 0.9952, 0.9986, 0.9999, 0.9999, 0.9999, & +0.9853, 0.9853, 0.9853, 0.9853, 0.9869, 0.9909, 0.9979, 0.9999, 0.9999, & +0.9683, 0.9683, 0.9683, 0.9683, 0.9683, 0.9714, 0.9793, 0.9919, 0.9999 / +data ((cldnuctab( 9,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +0.9968, 0.9979, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9963, 0.9968, 0.9979, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9958, 0.9958, 0.9963, 0.9982, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9952, 0.9952, 0.9958, 0.9963, 0.9982, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9929, 0.9937, 0.9937, 0.9945, 0.9958, 0.9982, 0.9999, 0.9999, 0.9999, & +0.9869, 0.9869, 0.9869, 0.9884, 0.9897, 0.9919, 0.9972, 0.9999, 0.9999, & +0.9714, 0.9714, 0.9714, 0.9714, 0.9714, 0.9743, 0.9793, 0.9909, 0.9999 / +data ((cldnuctab( 9,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +0.9968, 0.9979, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9963, 0.9968, 0.9979, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9963, 0.9963, 0.9968, 0.9982, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9958, 0.9958, 0.9963, 0.9968, 0.9982, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9937, 0.9937, 0.9945, 0.9952, 0.9958, 0.9982, 0.9999, 0.9999, 0.9999, & +0.9884, 0.9884, 0.9884, 0.9884, 0.9897, 0.9929, 0.9972, 0.9999, 0.9999, & +0.9743, 0.9743, 0.9743, 0.9743, 0.9743, 0.9769, 0.9815, 0.9909, 0.9999 / +data ((cldnuctab( 9,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +0.9982, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9975, 0.9982, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9952, 0.9963, 0.9975, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9897, 0.9897, 0.9919, 0.9952, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9769, 0.9793, 0.9793, 0.9815, 0.9869, 0.9972, 0.9999, 0.9997, 0.9999, & +0.9649, 0.9683, 0.9683, 0.9683, 0.9714, 0.9769, 0.9909, 0.9995, 0.9999, & +0.9612, 0.9612, 0.9612, 0.9612, 0.9612, 0.9649, 0.9714, 0.9815, 0.9884 / +data ((cldnuctab( 9,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +0.9984, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9979, 0.9984, 0.9994, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9972, 0.9975, 0.9982, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9945, 0.9945, 0.9952, 0.9972, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9869, 0.9869, 0.9884, 0.9897, 0.9929, 0.9986, 0.9999, 0.9999, 0.9999, & +0.9743, 0.9743, 0.9743, 0.9769, 0.9793, 0.9835, 0.9945, 0.9999, 0.9984, & +0.9649, 0.9649, 0.9649, 0.9649, 0.9649, 0.9683, 0.9743, 0.9869, 0.9976 / +data ((cldnuctab( 9,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +0.9986, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9982, 0.9984, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9979, 0.9979, 0.9984, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9963, 0.9968, 0.9972, 0.9982, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9919, 0.9919, 0.9929, 0.9937, 0.9958, 0.9991, 0.9999, 0.9999, 0.9999, & +0.9815, 0.9815, 0.9835, 0.9835, 0.9853, 0.9897, 0.9963, 0.9999, 0.9997, & +0.9714, 0.9714, 0.9714, 0.9714, 0.9714, 0.9743, 0.9793, 0.9897, 0.9996 / +data ((cldnuctab( 9,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +0.9986, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9984, 0.9986, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9982, 0.9984, 0.9986, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9976, 0.9975, 0.9979, 0.9984, 0.9993, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9945, 0.9952, 0.9952, 0.9958, 0.9972, 0.9991, 0.9999, 0.9999, 0.9999, & +0.9869, 0.9884, 0.9884, 0.9884, 0.9897, 0.9919, 0.9972, 0.9999, 0.9999, & +0.9743, 0.9769, 0.9769, 0.9769, 0.9769, 0.9793, 0.9815, 0.9909, 0.9998 / +data ((cldnuctab( 9,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +0.9988, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9986, 0.9988, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9984, 0.9986, 0.9988, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9979, 0.9979, 0.9982, 0.9986, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9963, 0.9963, 0.9963, 0.9968, 0.9975, 0.9991, 0.9999, 0.9999, 0.9999, & +0.9909, 0.9909, 0.9909, 0.9909, 0.9919, 0.9937, 0.9975, 0.9999, 0.9999, & +0.9793, 0.9793, 0.9793, 0.9793, 0.9793, 0.9815, 0.9853, 0.9919, 0.9997 / +data ((cldnuctab( 9,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +0.9990, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9988, 0.9990, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9986, 0.9986, 0.9988, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9982, 0.9982, 0.9984, 0.9988, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9968, 0.9968, 0.9968, 0.9972, 0.9979, 0.9991, 0.9999, 0.9999, 0.9999, & +0.9919, 0.9919, 0.9919, 0.9919, 0.9929, 0.9945, 0.9976, 0.9999, 0.9999, & +0.9815, 0.9815, 0.9815, 0.9815, 0.9815, 0.9835, 0.9853, 0.9919, 0.9993 / +data ((cldnuctab( 9,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +0.9990, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9988, 0.9990, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9988, 0.9988, 0.9990, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9984, 0.9984, 0.9986, 0.9988, 0.9992, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9972, 0.9972, 0.9972, 0.9975, 0.9982, 0.9991, 0.9999, 0.9999, 0.9999, & +0.9929, 0.9929, 0.9929, 0.9929, 0.9937, 0.9952, 0.9976, 0.9999, 0.9999, & +0.9835, 0.9835, 0.9835, 0.9835, 0.9835, 0.9853, 0.9869, 0.9919, 0.9988 / +data ((cldnuctab( 9,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +0.9994, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9990, 0.9993, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9975, 0.9979, 0.9986, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9937, 0.9945, 0.9952, 0.9963, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9884, 0.9884, 0.9884, 0.9897, 0.9919, 0.9968, 0.9999, 0.9999, 0.9999, & +0.9835, 0.9853, 0.9853, 0.9853, 0.9869, 0.9884, 0.9937, 0.9988, 0.9999, & +0.9815, 0.9815, 0.9815, 0.9835, 0.9835, 0.9835, 0.9869, 0.9897, 0.9929 / +data ((cldnuctab( 9,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +0.9995, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9993, 0.9994, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9988, 0.9988, 0.9992, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9968, 0.9972, 0.9972, 0.9982, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9929, 0.9929, 0.9929, 0.9937, 0.9952, 0.9982, 0.9999, 0.9999, 0.9999, & +0.9869, 0.9869, 0.9869, 0.9884, 0.9884, 0.9909, 0.9952, 0.9997, 0.9999, & +0.9815, 0.9835, 0.9835, 0.9835, 0.9853, 0.9853, 0.9869, 0.9919, 0.9972 / +data ((cldnuctab( 9,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +0.9995, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9994, 0.9995, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9991, 0.9992, 0.9994, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9982, 0.9984, 0.9986, 0.9990, 0.9996, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9952, 0.9958, 0.9958, 0.9963, 0.9972, 0.9990, 0.9999, 0.9999, 0.9999, & +0.9909, 0.9909, 0.9909, 0.9909, 0.9919, 0.9929, 0.9963, 0.9999, 0.9999, & +0.9853, 0.9853, 0.9853, 0.9853, 0.9869, 0.9869, 0.9884, 0.9929, 0.9988 / +data ((cldnuctab( 9,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +0.9996, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9995, 0.9996, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9993, 0.9994, 0.9995, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9988, 0.9990, 0.9990, 0.9992, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9972, 0.9972, 0.9972, 0.9975, 0.9982, 0.9992, 0.9999, 0.9999, 0.9999, & +0.9929, 0.9929, 0.9929, 0.9929, 0.9937, 0.9952, 0.9972, 0.9999, 0.9999, & +0.9884, 0.9884, 0.9884, 0.9884, 0.9884, 0.9884, 0.9909, 0.9937, 0.9990 / +data ((cldnuctab( 9,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +0.9996, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9996, 0.9996, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9995, 0.9995, 0.9996, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9991, 0.9991, 0.9992, 0.9994, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9979, 0.9979, 0.9979, 0.9982, 0.9986, 0.9993, 0.9999, 0.9999, 0.9999, & +0.9945, 0.9945, 0.9945, 0.9945, 0.9952, 0.9958, 0.9976, 0.9998, 0.9999, & +0.9897, 0.9897, 0.9897, 0.9897, 0.9897, 0.9897, 0.9909, 0.9937, 0.9988 / +data ((cldnuctab( 9,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +0.9997, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9996, 0.9997, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9996, 0.9996, 0.9996, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9992, 0.9993, 0.9993, 0.9995, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9982, 0.9984, 0.9984, 0.9984, 0.9988, 0.9993, 0.9999, 0.9999, 0.9999, & +0.9952, 0.9952, 0.9952, 0.9952, 0.9958, 0.9963, 0.9979, 0.9997, 0.9999, & +0.9897, 0.9897, 0.9897, 0.9897, 0.9909, 0.9909, 0.9919, 0.9945, 0.9984 / +data ((cldnuctab( 9,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +0.9997, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9997, 0.9997, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9996, 0.9996, 0.9997, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9993, 0.9994, 0.9994, 0.9995, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9984, 0.9984, 0.9986, 0.9986, 0.9990, 0.9994, 0.9999, 0.9999, 0.9999, & +0.9958, 0.9958, 0.9958, 0.9958, 0.9963, 0.9968, 0.9979, 0.9996, 0.9999, & +0.9909, 0.9909, 0.9909, 0.9909, 0.9909, 0.9909, 0.9919, 0.9945, 0.9982 / +data ((cldnuctab( 9,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +0.9997, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9994, 0.9996, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9984, 0.9986, 0.9990, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9958, 0.9958, 0.9963, 0.9972, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9929, 0.9929, 0.9929, 0.9937, 0.9945, 0.9972, 0.9998, 0.9999, 0.9999, & +0.9909, 0.9909, 0.9909, 0.9909, 0.9919, 0.9929, 0.9958, 0.9988, 0.9997, & +0.9897, 0.9897, 0.9897, 0.9897, 0.9909, 0.9909, 0.9919, 0.9937, 0.9958 / +data ((cldnuctab( 9,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +0.9997, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9996, 0.9997, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9992, 0.9992, 0.9995, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9979, 0.9979, 0.9982, 0.9986, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9952, 0.9952, 0.9952, 0.9958, 0.9963, 0.9984, 0.9999, 0.9999, 0.9999, & +0.9919, 0.9919, 0.9919, 0.9929, 0.9929, 0.9937, 0.9963, 0.9996, 0.9999, & +0.9897, 0.9897, 0.9897, 0.9909, 0.9909, 0.9909, 0.9919, 0.9945, 0.9979 / +data ((cldnuctab( 9,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +0.9997, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9997, 0.9997, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9995, 0.9996, 0.9997, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9988, 0.9988, 0.9990, 0.9992, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9968, 0.9968, 0.9968, 0.9972, 0.9979, 0.9990, 0.9999, 0.9999, 0.9999, & +0.9937, 0.9937, 0.9937, 0.9937, 0.9945, 0.9952, 0.9972, 0.9997, 0.9999, & +0.9919, 0.9919, 0.9919, 0.9919, 0.9919, 0.9919, 0.9929, 0.9952, 0.9988 / +data ((cldnuctab( 9,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +0.9998, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9997, 0.9998, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9996, 0.9997, 0.9997, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9992, 0.9992, 0.9993, 0.9995, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9979, 0.9979, 0.9979, 0.9982, 0.9986, 0.9992, 0.9999, 0.9999, 0.9999, & +0.9952, 0.9952, 0.9952, 0.9952, 0.9958, 0.9963, 0.9979, 0.9997, 0.9999, & +0.9919, 0.9919, 0.9929, 0.9929, 0.9929, 0.9929, 0.9937, 0.9958, 0.9988 / +data ((cldnuctab( 9,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +0.9998, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9998, 0.9998, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9997, 0.9997, 0.9997, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9994, 0.9994, 0.9995, 0.9996, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9984, 0.9984, 0.9986, 0.9986, 0.9990, 0.9994, 0.9999, 0.9999, 0.9999, & +0.9963, 0.9963, 0.9963, 0.9963, 0.9963, 0.9968, 0.9982, 0.9997, 0.9999, & +0.9929, 0.9929, 0.9929, 0.9929, 0.9937, 0.9937, 0.9945, 0.9958, 0.9986 / +data ((cldnuctab( 9,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +0.9998, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9998, 0.9998, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9997, 0.9997, 0.9998, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9996, 0.9996, 0.9996, 0.9997, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9988, 0.9988, 0.9988, 0.9990, 0.9991, 0.9995, 0.9999, 0.9999, 0.9999, & +0.9968, 0.9968, 0.9968, 0.9968, 0.9968, 0.9972, 0.9982, 0.9996, 0.9999, & +0.9937, 0.9937, 0.9937, 0.9937, 0.9937, 0.9937, 0.9945, 0.9958, 0.9984 / +data ((cldnuctab( 9,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9998, 0.9998, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9998, 0.9998, 0.9998, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9996, 0.9996, 0.9996, 0.9997, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9990, 0.9990, 0.9990, 0.9990, 0.9992, 0.9995, 0.9999, 0.9999, 0.9999, & +0.9968, 0.9968, 0.9968, 0.9972, 0.9972, 0.9975, 0.9982, 0.9995, 0.9999, & +0.9937, 0.9937, 0.9937, 0.9937, 0.9937, 0.9945, 0.9945, 0.9958, 0.9982 / +data ((cldnuctab( 9,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9996, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9986, 0.9988, 0.9991, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9968, 0.9972, 0.9972, 0.9979, 0.9990, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9952, 0.9952, 0.9952, 0.9958, 0.9963, 0.9979, 0.9998, 0.9999, 0.9999, & +0.9937, 0.9937, 0.9937, 0.9937, 0.9945, 0.9952, 0.9968, 0.9990, 0.9997, & +0.9937, 0.9937, 0.9937, 0.9937, 0.9937, 0.9937, 0.9945, 0.9958, 0.9968 / +data ((cldnuctab( 9,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9997, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9993, 0.9994, 0.9996, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9982, 0.9984, 0.9984, 0.9988, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9963, 0.9963, 0.9963, 0.9968, 0.9972, 0.9986, 0.9999, 0.9999, 0.9999, & +0.9945, 0.9945, 0.9945, 0.9945, 0.9952, 0.9958, 0.9972, 0.9995, 0.9999, & +0.9937, 0.9937, 0.9937, 0.9937, 0.9937, 0.9945, 0.9952, 0.9963, 0.9982 / +data ((cldnuctab( 9,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9998, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9996, 0.9997, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9991, 0.9991, 0.9992, 0.9993, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9975, 0.9975, 0.9976, 0.9979, 0.9982, 0.9991, 0.9999, 0.9999, 0.9999, & +0.9958, 0.9958, 0.9958, 0.9958, 0.9958, 0.9968, 0.9979, 0.9996, 0.9999, & +0.9937, 0.9937, 0.9945, 0.9945, 0.9945, 0.9945, 0.9952, 0.9968, 0.9988 / +data ((cldnuctab( 9,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9998, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9997, 0.9997, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9994, 0.9994, 0.9995, 0.9996, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9984, 0.9984, 0.9984, 0.9986, 0.9988, 0.9993, 0.9999, 0.9999, 0.9999, & +0.9963, 0.9963, 0.9963, 0.9968, 0.9968, 0.9972, 0.9982, 0.9996, 0.9999, & +0.9945, 0.9945, 0.9952, 0.9952, 0.9952, 0.9952, 0.9958, 0.9968, 0.9990 / +data ((cldnuctab( 9,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9998, 0.9998, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9996, 0.9996, 0.9996, 0.9997, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9988, 0.9988, 0.9988, 0.9990, 0.9991, 0.9995, 0.9999, 0.9999, 0.9999, & +0.9972, 0.9972, 0.9972, 0.9972, 0.9972, 0.9975, 0.9984, 0.9996, 0.9999, & +0.9952, 0.9952, 0.9952, 0.9952, 0.9952, 0.9958, 0.9958, 0.9968, 0.9988 / +data ((cldnuctab( 9,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9998, 0.9998, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9997, 0.9997, 0.9997, 0.9997, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9990, 0.9990, 0.9991, 0.9991, 0.9992, 0.9995, 0.9999, 0.9999, 0.9999, & +0.9975, 0.9975, 0.9975, 0.9975, 0.9975, 0.9979, 0.9986, 0.9995, 0.9999, & +0.9958, 0.9958, 0.9958, 0.9958, 0.9958, 0.9958, 0.9963, 0.9972, 0.9986 / +data ((cldnuctab( 9,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9998, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9997, 0.9997, 0.9997, 0.9997, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9991, 0.9991, 0.9992, 0.9992, 0.9993, 0.9996, 0.9999, 0.9999, 0.9999, & +0.9975, 0.9976, 0.9975, 0.9979, 0.9979, 0.9982, 0.9986, 0.9995, 0.9999, & +0.9958, 0.9958, 0.9958, 0.9958, 0.9958, 0.9958, 0.9963, 0.9972, 0.9984 / +data ((cldnuctab( 9,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9996, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9990, 0.9991, 0.9993, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9975, 0.9975, 0.9979, 0.9982, 0.9991, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9963, 0.9963, 0.9963, 0.9968, 0.9972, 0.9982, 0.9997, 0.9999, 0.9999, & +0.9952, 0.9952, 0.9958, 0.9958, 0.9958, 0.9963, 0.9975, 0.9991, 0.9997, & +0.9952, 0.9952, 0.9952, 0.9952, 0.9958, 0.9958, 0.9963, 0.9968, 0.9976 / +data ((cldnuctab( 9,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9998, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9995, 0.9996, 0.9996, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9986, 0.9986, 0.9988, 0.9990, 0.9995, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9972, 0.9972, 0.9972, 0.9975, 0.9979, 0.9988, 0.9998, 0.9999, 0.9999, & +0.9963, 0.9963, 0.9963, 0.9963, 0.9963, 0.9968, 0.9979, 0.9995, 0.9999, & +0.9952, 0.9952, 0.9952, 0.9952, 0.9958, 0.9958, 0.9963, 0.9972, 0.9986 / +data ((cldnuctab( 9,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9997, 0.9997, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9992, 0.9992, 0.9993, 0.9995, 0.9997, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9982, 0.9982, 0.9982, 0.9982, 0.9986, 0.9991, 0.9999, 0.9999, 0.9999, & +0.9968, 0.9968, 0.9968, 0.9968, 0.9972, 0.9975, 0.9982, 0.9996, 0.9999, & +0.9958, 0.9958, 0.9958, 0.9958, 0.9958, 0.9963, 0.9968, 0.9976, 0.9990 / +data ((cldnuctab( 9,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9998, 0.9998, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9995, 0.9996, 0.9996, 0.9997, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9986, 0.9986, 0.9988, 0.9988, 0.9990, 0.9994, 0.9999, 0.9999, 0.9999, & +0.9972, 0.9972, 0.9972, 0.9975, 0.9975, 0.9979, 0.9986, 0.9996, 0.9999, & +0.9958, 0.9958, 0.9963, 0.9963, 0.9963, 0.9963, 0.9968, 0.9976, 0.9991 / +data ((cldnuctab( 9,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9998, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9997, 0.9997, 0.9997, 0.9997, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9990, 0.9990, 0.9991, 0.9991, 0.9992, 0.9995, 0.9999, 0.9999, 0.9999, & +0.9979, 0.9979, 0.9979, 0.9979, 0.9979, 0.9982, 0.9986, 0.9996, 0.9999, & +0.9963, 0.9963, 0.9963, 0.9968, 0.9968, 0.9968, 0.9972, 0.9976, 0.9990 / +data ((cldnuctab( 9,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9997, 0.9997, 0.9997, 0.9998, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9992, 0.9992, 0.9992, 0.9992, 0.9993, 0.9996, 0.9999, 0.9999, 0.9999, & +0.9979, 0.9979, 0.9979, 0.9982, 0.9982, 0.9984, 0.9988, 0.9995, 0.9999, & +0.9968, 0.9968, 0.9968, 0.9968, 0.9968, 0.9968, 0.9972, 0.9976, 0.9988 / +data ((cldnuctab( 9,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9997, 0.9997, 0.9998, 0.9998, 0.9999, 0.9999, 0.9999, 0.9999, 0.9999, & +0.9993, 0.9993, 0.9993, 0.9993, 0.9994, 0.9996, 0.9999, 0.9999, 0.9999, & +0.9982, 0.9982, 0.9982, 0.9982, 0.9982, 0.9984, 0.9988, 0.9995, 0.9999, & +0.9968, 0.9968, 0.9968, 0.9968, 0.9968, 0.9972, 0.9972, 0.9979, 0.9988 / + +data ((supersat( 1,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +1.0144, 1.0214, 1.0331, 1.0538, 1.0937, 1.1818, 1.4300, 2.7273, 4.9985, & +1.0119, 1.0176, 1.0268, 1.0426, 1.0716, 1.1301, 1.2705, 1.7361, 4.0450, & +1.0096, 1.0148, 1.0222, 1.0348, 1.0569, 1.0991, 1.1902, 1.4340, 2.5713, & +1.0087, 1.0124, 1.0189, 1.0291, 1.0466, 1.0787, 1.1433, 1.2955, 1.7809, & +1.0073, 1.0107, 1.0161, 1.0247, 1.0391, 1.0644, 1.1129, 1.2178, 1.4984, & +1.0055, 1.0092, 1.0138, 1.0213, 1.0333, 1.0539, 1.0918, 1.1688, 1.3530, & +1.0055, 1.0085, 1.0124, 1.0186, 1.0287, 1.0458, 1.0761, 1.1352, 1.2654 / +data ((supersat( 1,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +1.0115, 1.0169, 1.0258, 1.0409, 1.0693, 1.1283, 1.2770, 1.8166, 3.7290, & +1.0096, 1.0137, 1.0208, 1.0324, 1.0529, 1.0928, 1.1814, 1.4287, 2.6081, & +1.0075, 1.0114, 1.0170, 1.0262, 1.0421, 1.0710, 1.1300, 1.2719, 1.7351, & +1.0068, 1.0098, 1.0142, 1.0219, 1.0344, 1.0565, 1.0991, 1.1917, 1.4393, & +1.0056, 1.0079, 1.0123, 1.0186, 1.0288, 1.0464, 1.0788, 1.1444, 1.3001, & +1.0040, 1.0072, 1.0105, 1.0160, 1.0243, 1.0388, 1.0645, 1.1138, 1.2213, & +1.0040, 1.0065, 1.0093, 1.0138, 1.0209, 1.0330, 1.0539, 1.0923, 1.1712 / +data ((supersat( 1,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +1.0096, 1.0138, 1.0208, 1.0325, 1.0537, 1.0963, 1.1961, 1.4967, 2.7489, & +1.0079, 1.0111, 1.0166, 1.0256, 1.0410, 1.0699, 1.1308, 1.2850, 1.8269, & +1.0063, 1.0092, 1.0136, 1.0206, 1.0323, 1.0533, 1.0944, 1.1865, 1.4432, & +1.0055, 1.0079, 1.0113, 1.0169, 1.0263, 1.0423, 1.0721, 1.1334, 1.2817, & +1.0047, 1.0062, 1.0094, 1.0143, 1.0219, 1.0346, 1.0574, 1.1014, 1.1983, & +1.0035, 1.0057, 1.0084, 1.0119, 1.0186, 1.0289, 1.0471, 1.0805, 1.1491, & +1.0028, 1.0051, 1.0070, 1.0107, 1.0160, 1.0247, 1.0395, 1.0658, 1.1172 / +data ((supersat( 1,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +1.0082, 1.0117, 1.0174, 1.0268, 1.0436, 1.0763, 1.1494, 1.3489, 2.1009, & +1.0066, 1.0093, 1.0138, 1.0209, 1.0330, 1.0552, 1.1003, 1.2077, 1.5283, & +1.0055, 1.0077, 1.0113, 1.0166, 1.0258, 1.0418, 1.0723, 1.1374, 1.3037, & +1.0043, 1.0065, 1.0093, 1.0137, 1.0209, 1.0330, 1.0549, 1.0984, 1.1974, & +1.0040, 1.0053, 1.0076, 1.0115, 1.0171, 1.0268, 1.0435, 1.0749, 1.1403, & +1.0033, 1.0044, 1.0067, 1.0097, 1.0145, 1.0223, 1.0355, 1.0594, 1.1062, & +1.0023, 1.0042, 1.0056, 1.0083, 1.0124, 1.0190, 1.0298, 1.0486, 1.0840 / +data ((supersat( 1,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +1.0071, 1.0102, 1.0150, 1.0229, 1.0367, 1.0631, 1.1205, 1.2685, 1.7439, & +1.0057, 1.0082, 1.0118, 1.0177, 1.0276, 1.0454, 1.0810, 1.1623, 1.3862, & +1.0048, 1.0067, 1.0096, 1.0140, 1.0215, 1.0342, 1.0580, 1.1074, 1.2275, & +1.0038, 1.0054, 1.0077, 1.0115, 1.0171, 1.0267, 1.0437, 1.0766, 1.1485, & +1.0031, 1.0047, 1.0065, 1.0095, 1.0141, 1.0214, 1.0343, 1.0578, 1.1054, & +1.0029, 1.0035, 1.0055, 1.0079, 1.0118, 1.0177, 1.0279, 1.0457, 1.0795, & +1.0025, 1.0032, 1.0048, 1.0068, 1.0100, 1.0150, 1.0233, 1.0373, 1.0628 / +data ((supersat( 1,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +1.0062, 1.0090, 1.0132, 1.0200, 1.0317, 1.0540, 1.1015, 1.2196, 1.5688, & +1.0052, 1.0073, 1.0104, 1.0154, 1.0238, 1.0388, 1.0681, 1.1337, 1.3062, & +1.0041, 1.0059, 1.0082, 1.0121, 1.0184, 1.0289, 1.0485, 1.0883, 1.1819, & +1.0036, 1.0047, 1.0067, 1.0098, 1.0145, 1.0224, 1.0362, 1.0624, 1.1184, & +1.0027, 1.0041, 1.0057, 1.0081, 1.0118, 1.0179, 1.0281, 1.0467, 1.0833, & +1.0021, 1.0034, 1.0044, 1.0066, 1.0099, 1.0147, 1.0227, 1.0366, 1.0624, & +1.0021, 1.0025, 1.0041, 1.0058, 1.0084, 1.0124, 1.0188, 1.0296, 1.0491 / +data ((supersat( 1,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +1.0057, 1.0081, 1.0117, 1.0177, 1.0281, 1.0473, 1.0879, 1.1867, 1.4664, & +1.0046, 1.0065, 1.0093, 1.0136, 1.0210, 1.0339, 1.0589, 1.1140, 1.2553, & +1.0037, 1.0051, 1.0074, 1.0107, 1.0161, 1.0252, 1.0418, 1.0751, 1.1522, & +1.0031, 1.0043, 1.0061, 1.0086, 1.0127, 1.0193, 1.0310, 1.0528, 1.0986, & +1.0027, 1.0033, 1.0050, 1.0070, 1.0103, 1.0154, 1.0239, 1.0391, 1.0688, & +1.0021, 1.0031, 1.0041, 1.0058, 1.0085, 1.0125, 1.0191, 1.0304, 1.0511, & +1.0015, 1.0026, 1.0032, 1.0050, 1.0071, 1.0104, 1.0157, 1.0244, 1.0399 / +data ((supersat( 1,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +1.0121, 1.0186, 1.0296, 1.0492, 1.0880, 1.1755, 1.4246, 2.7227, 4.9962, & +1.0100, 1.0153, 1.0239, 1.0387, 1.0666, 1.1242, 1.2644, 1.7310, 4.0395, & +1.0086, 1.0126, 1.0195, 1.0316, 1.0526, 1.0937, 1.1841, 1.4283, 2.5653, & +1.0073, 1.0110, 1.0163, 1.0262, 1.0429, 1.0739, 1.1375, 1.2893, 1.7748, & +1.0055, 1.0091, 1.0143, 1.0224, 1.0359, 1.0601, 1.1075, 1.2116, 1.4919, & +1.0055, 1.0084, 1.0124, 1.0192, 1.0302, 1.0500, 1.0868, 1.1627, 1.3462, & +1.0051, 1.0068, 1.0107, 1.0163, 1.0261, 1.0422, 1.0715, 1.1292, 1.2583 / +data ((supersat( 1,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +1.0097, 1.0146, 1.0227, 1.0369, 1.0641, 1.1224, 1.2716, 1.8131, 3.7257, & +1.0078, 1.0120, 1.0183, 1.0290, 1.0486, 1.0875, 1.1756, 1.4239, 2.6034, & +1.0068, 1.0100, 1.0150, 1.0235, 1.0384, 1.0663, 1.1245, 1.2663, 1.7305, & +1.0056, 1.0081, 1.0127, 1.0195, 1.0312, 1.0524, 1.0940, 1.1860, 1.4341, & +1.0041, 1.0075, 1.0106, 1.0165, 1.0260, 1.0428, 1.0741, 1.1390, 1.2944, & +1.0040, 1.0063, 1.0094, 1.0140, 1.0222, 1.0356, 1.0603, 1.1086, 1.2154, & +1.0039, 1.0048, 1.0075, 1.0123, 1.0190, 1.0302, 1.0501, 1.0875, 1.1653 / +data ((supersat( 1,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +1.0080, 1.0118, 1.0181, 1.0289, 1.0491, 1.0908, 1.1908, 1.4931, 2.7455, & +1.0064, 1.0096, 1.0144, 1.0226, 1.0371, 1.0650, 1.1253, 1.2803, 1.8237, & +1.0055, 1.0080, 1.0116, 1.0182, 1.0291, 1.0492, 1.0893, 1.1812, 1.4389, & +1.0046, 1.0063, 1.0098, 1.0149, 1.0236, 1.0388, 1.0676, 1.1282, 1.2768, & +1.0033, 1.0056, 1.0084, 1.0126, 1.0196, 1.0316, 1.0534, 1.0966, 1.1930, & +1.0027, 1.0050, 1.0071, 1.0109, 1.0167, 1.0263, 1.0436, 1.0761, 1.1439, & +1.0027, 1.0038, 1.0059, 1.0089, 1.0143, 1.0224, 1.0364, 1.0617, 1.1121 / +data ((supersat( 1,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +1.0066, 1.0099, 1.0150, 1.0236, 1.0394, 1.0712, 1.1442, 1.3452, 2.0989, & +1.0055, 1.0080, 1.0117, 1.0182, 1.0295, 1.0507, 1.0951, 1.2029, 1.5253, & +1.0043, 1.0065, 1.0094, 1.0145, 1.0230, 1.0381, 1.0676, 1.1323, 1.2995, & +1.0039, 1.0053, 1.0079, 1.0119, 1.0185, 1.0299, 1.0509, 1.0936, 1.1926, & +1.0031, 1.0044, 1.0067, 1.0097, 1.0152, 1.0242, 1.0401, 1.0705, 1.1354, & +1.0021, 1.0041, 1.0056, 1.0085, 1.0127, 1.0200, 1.0325, 1.0556, 1.1015, & +1.0016, 1.0034, 1.0045, 1.0071, 1.0110, 1.0171, 1.0272, 1.0452, 1.0796 / +data ((supersat( 1,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +1.0058, 1.0086, 1.0128, 1.0199, 1.0329, 1.0584, 1.1156, 1.2649, 1.7422, & +1.0048, 1.0069, 1.0100, 1.0153, 1.0245, 1.0414, 1.0761, 1.1577, 1.3832, & +1.0038, 1.0054, 1.0080, 1.0120, 1.0188, 1.0308, 1.0537, 1.1026, 1.2234, & +1.0031, 1.0046, 1.0066, 1.0098, 1.0150, 1.0239, 1.0400, 1.0721, 1.1439, & +1.0028, 1.0034, 1.0055, 1.0080, 1.0123, 1.0191, 1.0313, 1.0539, 1.1007, & +1.0023, 1.0031, 1.0048, 1.0069, 1.0103, 1.0159, 1.0253, 1.0423, 1.0753, & +1.0016, 1.0029, 1.0035, 1.0057, 1.0085, 1.0132, 1.0210, 1.0343, 1.0590 / +data ((supersat( 1,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +1.0052, 1.0075, 1.0112, 1.0173, 1.0283, 1.0497, 1.0968, 1.2160, 1.5671, & +1.0041, 1.0060, 1.0087, 1.0132, 1.0209, 1.0350, 1.0636, 1.1292, 1.3032, & +1.0035, 1.0048, 1.0070, 1.0103, 1.0160, 1.0258, 1.0445, 1.0837, 1.1779, & +1.0026, 1.0040, 1.0058, 1.0083, 1.0126, 1.0198, 1.0328, 1.0582, 1.1139, & +1.0021, 1.0033, 1.0044, 1.0067, 1.0102, 1.0158, 1.0254, 1.0431, 1.0790, & +1.0020, 1.0023, 1.0041, 1.0058, 1.0085, 1.0128, 1.0204, 1.0335, 1.0586, & +1.0019, 1.0021, 1.0034, 1.0044, 1.0070, 1.0108, 1.0168, 1.0270, 1.0457 / +data ((supersat( 1,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +1.0047, 1.0067, 1.0099, 1.0153, 1.0248, 1.0433, 1.0834, 1.1831, 1.4647, & +1.0037, 1.0053, 1.0078, 1.0116, 1.0183, 1.0304, 1.0547, 1.1098, 1.2524, & +1.0030, 1.0044, 1.0062, 1.0091, 1.0139, 1.0223, 1.0380, 1.0708, 1.1483, & +1.0026, 1.0033, 1.0050, 1.0072, 1.0109, 1.0170, 1.0278, 1.0489, 1.0943, & +1.0020, 1.0030, 1.0041, 1.0059, 1.0087, 1.0134, 1.0213, 1.0358, 1.0648, & +1.0013, 1.0025, 1.0032, 1.0050, 1.0071, 1.0108, 1.0169, 1.0276, 1.0475, & +1.0011, 1.0018, 1.0030, 1.0041, 1.0061, 1.0090, 1.0139, 1.0221, 1.0368 / +data ((supersat( 1,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +1.0106, 1.0163, 1.0265, 1.0451, 1.0827, 1.1699, 1.4200, 2.7183, 4.9936, & +1.0087, 1.0133, 1.0214, 1.0352, 1.0621, 1.1188, 1.2590, 1.7266, 4.0341, & +1.0074, 1.0114, 1.0177, 1.0286, 1.0487, 1.0888, 1.1786, 1.4231, 2.5595, & +1.0055, 1.0092, 1.0150, 1.0237, 1.0395, 1.0695, 1.1322, 1.2837, 1.7689, & +1.0054, 1.0085, 1.0126, 1.0198, 1.0328, 1.0562, 1.1025, 1.2058, 1.4856, & +1.0050, 1.0069, 1.0110, 1.0170, 1.0277, 1.0464, 1.0820, 1.1568, 1.3396, & +1.0042, 1.0056, 1.0091, 1.0149, 1.0233, 1.0389, 1.0670, 1.1235, 1.2515 / +data ((supersat( 1,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +1.0082, 1.0126, 1.0200, 1.0334, 1.0595, 1.1171, 1.2669, 1.8101, 3.7229, & +1.0068, 1.0102, 1.0160, 1.0261, 1.0447, 1.0826, 1.1705, 1.4197, 2.5997, & +1.0056, 1.0085, 1.0132, 1.0211, 1.0351, 1.0620, 1.1195, 1.2615, 1.7264, & +1.0041, 1.0072, 1.0107, 1.0174, 1.0284, 1.0487, 1.0894, 1.1809, 1.4293, & +1.0040, 1.0064, 1.0096, 1.0147, 1.0236, 1.0396, 1.0700, 1.1339, 1.2892, & +1.0038, 1.0048, 1.0075, 1.0128, 1.0199, 1.0328, 1.0564, 1.1038, 1.2099, & +1.0033, 1.0040, 1.0071, 1.0106, 1.0169, 1.0277, 1.0466, 1.0829, 1.1597 / +data ((supersat( 1,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +1.0067, 1.0101, 1.0157, 1.0258, 1.0451, 1.0859, 1.1862, 1.4900, 2.7430, & +1.0055, 1.0081, 1.0126, 1.0201, 1.0336, 1.0606, 1.1205, 1.2762, 1.8210, & +1.0046, 1.0066, 1.0103, 1.0161, 1.0263, 1.0454, 1.0848, 1.1765, 1.4352, & +1.0032, 1.0056, 1.0085, 1.0133, 1.0213, 1.0356, 1.0635, 1.1235, 1.2724, & +1.0028, 1.0050, 1.0073, 1.0112, 1.0175, 1.0289, 1.0499, 1.0922, 1.1883, & +1.0027, 1.0037, 1.0058, 1.0092, 1.0146, 1.0241, 1.0404, 1.0720, 1.1391, & +1.0026, 1.0028, 1.0055, 1.0084, 1.0127, 1.0201, 1.0335, 1.0580, 1.1074 / +data ((supersat( 1,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +1.0057, 1.0084, 1.0129, 1.0208, 1.0357, 1.0667, 1.1398, 1.3422, 2.0970, & +1.0043, 1.0067, 1.0102, 1.0160, 1.0265, 1.0468, 1.0906, 1.1990, 1.5226, & +1.0039, 1.0055, 1.0083, 1.0128, 1.0205, 1.0348, 1.0634, 1.1279, 1.2961, & +1.0031, 1.0044, 1.0068, 1.0104, 1.0165, 1.0271, 1.0473, 1.0893, 1.1884, & +1.0020, 1.0040, 1.0057, 1.0088, 1.0136, 1.0219, 1.0370, 1.0666, 1.1310, & +1.0016, 1.0033, 1.0044, 1.0072, 1.0115, 1.0181, 1.0299, 1.0521, 1.0973, & +1.0016, 1.0023, 1.0043, 1.0065, 1.0097, 1.0151, 1.0248, 1.0420, 1.0756 / +data ((supersat( 1,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +1.0049, 1.0071, 1.0109, 1.0174, 1.0295, 1.0543, 1.1113, 1.2619, 1.7406, & +1.0038, 1.0055, 1.0086, 1.0133, 1.0217, 1.0378, 1.0719, 1.1538, 1.3807, & +1.0031, 1.0047, 1.0069, 1.0104, 1.0166, 1.0278, 1.0499, 1.0984, 1.2200, & +1.0028, 1.0034, 1.0055, 1.0084, 1.0132, 1.0215, 1.0368, 1.0682, 1.1399, & +1.0022, 1.0031, 1.0048, 1.0071, 1.0107, 1.0171, 1.0286, 1.0504, 1.0967, & +1.0014, 1.0029, 1.0035, 1.0057, 1.0091, 1.0142, 1.0230, 1.0392, 1.0715, & +1.0009, 1.0024, 1.0032, 1.0052, 1.0078, 1.0120, 1.0191, 1.0317, 1.0556 / +data ((supersat( 1,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +1.0041, 1.0061, 1.0095, 1.0150, 1.0252, 1.0458, 1.0927, 1.2131, 1.5657, & +1.0035, 1.0049, 1.0074, 1.0114, 1.0184, 1.0317, 1.0596, 1.1254, 1.3009, & +1.0026, 1.0040, 1.0059, 1.0089, 1.0139, 1.0231, 1.0409, 1.0797, 1.1746, & +1.0021, 1.0033, 1.0046, 1.0071, 1.0110, 1.0176, 1.0299, 1.0546, 1.1101, & +1.0020, 1.0023, 1.0040, 1.0060, 1.0088, 1.0140, 1.0230, 1.0399, 1.0752, & +1.0018, 1.0021, 1.0033, 1.0046, 1.0074, 1.0115, 1.0184, 1.0308, 1.0551, & +1.0014, 1.0020, 1.0023, 1.0042, 1.0063, 1.0096, 1.0150, 1.0247, 1.0426 / +data ((supersat( 1,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +1.0038, 1.0056, 1.0083, 1.0132, 1.0220, 1.0397, 1.0796, 1.1805, 1.4633, & +1.0030, 1.0045, 1.0065, 1.0099, 1.0160, 1.0273, 1.0510, 1.1062, 1.2502, & +1.0026, 1.0033, 1.0050, 1.0078, 1.0120, 1.0198, 1.0348, 1.0671, 1.1451, & +1.0019, 1.0030, 1.0042, 1.0062, 1.0094, 1.0150, 1.0251, 1.0454, 1.0907, & +1.0012, 1.0024, 1.0032, 1.0050, 1.0075, 1.0118, 1.0191, 1.0329, 1.0612, & +1.0011, 1.0017, 1.0030, 1.0042, 1.0063, 1.0096, 1.0152, 1.0251, 1.0444, & +1.0011, 1.0011, 1.0025, 1.0033, 1.0052, 1.0080, 1.0124, 1.0200, 1.0341 / +data ((supersat( 1,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +1.0089, 1.0145, 1.0239, 1.0416, 1.0784, 1.1654, 1.4163, 2.7147, 4.9917, & +1.0077, 1.0119, 1.0190, 1.0324, 1.0583, 1.1143, 1.2548, 1.7231, 4.0297, & +1.0056, 1.0096, 1.0157, 1.0260, 1.0454, 1.0847, 1.1741, 1.4187, 2.5547, & +1.0054, 1.0086, 1.0130, 1.0217, 1.0366, 1.0657, 1.1276, 1.2790, 1.7640, & +1.0050, 1.0072, 1.0115, 1.0183, 1.0302, 1.0526, 1.0981, 1.2008, 1.4800, & +1.0041, 1.0055, 1.0091, 1.0155, 1.0254, 1.0430, 1.0778, 1.1517, 1.3338, & +1.0030, 1.0052, 1.0084, 1.0127, 1.0213, 1.0357, 1.0628, 1.1182, 1.2452 / +data ((supersat( 1,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +1.0070, 1.0110, 1.0178, 1.0304, 1.0557, 1.1129, 1.2634, 1.8079, 3.7206, & +1.0059, 1.0091, 1.0142, 1.0237, 1.0414, 1.0786, 1.1664, 1.4165, 2.5963, & +1.0041, 1.0073, 1.0118, 1.0190, 1.0324, 1.0585, 1.1154, 1.2576, 1.7232, & +1.0040, 1.0065, 1.0100, 1.0158, 1.0261, 1.0456, 1.0855, 1.1767, 1.4253, & +1.0038, 1.0050, 1.0081, 1.0133, 1.0217, 1.0368, 1.0663, 1.1297, 1.2848, & +1.0032, 1.0040, 1.0071, 1.0109, 1.0182, 1.0304, 1.0531, 1.0996, 1.2052, & +1.0025, 1.0039, 1.0063, 1.0097, 1.0154, 1.0253, 1.0434, 1.0788, 1.1548 / +data ((supersat( 1,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +1.0055, 1.0085, 1.0138, 1.0232, 1.0416, 1.0820, 1.1827, 1.4878, 2.7410, & +1.0047, 1.0071, 1.0109, 1.0180, 1.0308, 1.0570, 1.1167, 1.2731, 1.8189, & +1.0034, 1.0057, 1.0087, 1.0142, 1.0239, 1.0423, 1.0811, 1.1729, 1.4323, & +1.0028, 1.0051, 1.0076, 1.0116, 1.0193, 1.0330, 1.0601, 1.1197, 1.2689, & +1.0027, 1.0038, 1.0058, 1.0100, 1.0160, 1.0267, 1.0468, 1.0885, 1.1844, & +1.0026, 1.0028, 1.0055, 1.0085, 1.0135, 1.0220, 1.0377, 1.0685, 1.1350, & +1.0023, 1.0027, 1.0048, 1.0072, 1.0113, 1.0185, 1.0309, 1.0547, 1.1033 / +data ((supersat( 1,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +1.0044, 1.0070, 1.0111, 1.0185, 1.0327, 1.0630, 1.1364, 1.3400, 2.0955, & +1.0039, 1.0058, 1.0088, 1.0141, 1.0240, 1.0435, 1.0870, 1.1960, 1.5210, & +1.0031, 1.0044, 1.0069, 1.0113, 1.0184, 1.0320, 1.0600, 1.1244, 1.2934, & +1.0020, 1.0040, 1.0060, 1.0092, 1.0147, 1.0248, 1.0443, 1.0858, 1.1852, & +1.0016, 1.0033, 1.0045, 1.0074, 1.0121, 1.0199, 1.0344, 1.0633, 1.1275, & +1.0016, 1.0022, 1.0043, 1.0066, 1.0100, 1.0165, 1.0277, 1.0491, 1.0937, & +1.0016, 1.0016, 1.0038, 1.0054, 1.0088, 1.0139, 1.0227, 1.0393, 1.0722 / +data ((supersat( 1,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +1.0040, 1.0060, 1.0093, 1.0153, 1.0267, 1.0509, 1.1081, 1.2599, 1.7397, & +1.0031, 1.0049, 1.0073, 1.0116, 1.0194, 1.0348, 1.0685, 1.1509, 1.3790, & +1.0028, 1.0037, 1.0056, 1.0092, 1.0148, 1.0254, 1.0467, 1.0951, 1.2175, & +1.0022, 1.0031, 1.0049, 1.0075, 1.0118, 1.0195, 1.0341, 1.0649, 1.1368, & +1.0014, 1.0029, 1.0037, 1.0058, 1.0097, 1.0155, 1.0263, 1.0475, 1.0934, & +1.0008, 1.0023, 1.0032, 1.0053, 1.0079, 1.0126, 1.0211, 1.0366, 1.0683, & +1.0006, 1.0016, 1.0030, 1.0044, 1.0068, 1.0104, 1.0172, 1.0294, 1.0526 / +data ((supersat( 1,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +1.0036, 1.0053, 1.0080, 1.0131, 1.0227, 1.0427, 1.0896, 1.2112, 1.5647, & +1.0027, 1.0041, 1.0062, 1.0098, 1.0163, 1.0290, 1.0564, 1.1227, 1.2992, & +1.0021, 1.0034, 1.0050, 1.0077, 1.0123, 1.0208, 1.0381, 1.0766, 1.1722, & +1.0020, 1.0023, 1.0041, 1.0062, 1.0097, 1.0158, 1.0275, 1.0516, 1.1072, & +1.0017, 1.0021, 1.0034, 1.0050, 1.0079, 1.0125, 1.0209, 1.0373, 1.0722, & +1.0013, 1.0020, 1.0023, 1.0043, 1.0065, 1.0103, 1.0166, 1.0285, 1.0523, & +1.0009, 1.0018, 1.0021, 1.0037, 1.0055, 1.0085, 1.0137, 1.0227, 1.0400 / +data ((supersat( 1,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +1.0030, 1.0046, 1.0072, 1.0115, 1.0197, 1.0368, 1.0767, 1.1785, 1.4624, & +1.0026, 1.0036, 1.0055, 1.0086, 1.0141, 1.0248, 1.0480, 1.1035, 1.2486, & +1.0019, 1.0030, 1.0044, 1.0066, 1.0106, 1.0177, 1.0321, 1.0641, 1.1428, & +1.0012, 1.0024, 1.0032, 1.0051, 1.0083, 1.0133, 1.0229, 1.0427, 1.0879, & +1.0011, 1.0017, 1.0030, 1.0044, 1.0067, 1.0104, 1.0173, 1.0305, 1.0584, & +1.0011, 1.0011, 1.0025, 1.0033, 1.0053, 1.0085, 1.0137, 1.0231, 1.0418, & +1.0011, 1.0011, 1.0017, 1.0031, 1.0047, 1.0070, 1.0110, 1.0183, 1.0318 / +data ((supersat( 1,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +1.0085, 1.0136, 1.0225, 1.0398, 1.0764, 1.1634, 1.4148, 2.7133, 4.9904, & +1.0069, 1.0112, 1.0182, 1.0310, 1.0564, 1.1122, 1.2529, 1.7216, 4.0275, & +1.0055, 1.0090, 1.0150, 1.0250, 1.0438, 1.0826, 1.1719, 1.4167, 2.5523, & +1.0052, 1.0081, 1.0124, 1.0206, 1.0352, 1.0638, 1.1254, 1.2767, 1.7616, & +1.0046, 1.0062, 1.0106, 1.0172, 1.0289, 1.0509, 1.0959, 1.1984, 1.4773, & +1.0035, 1.0054, 1.0088, 1.0146, 1.0240, 1.0415, 1.0755, 1.1491, 1.3307, & +1.0025, 1.0049, 1.0077, 1.0120, 1.0199, 1.0341, 1.0607, 1.1155, 1.2419 / +data ((supersat( 1,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +1.0066, 1.0100, 1.0167, 1.0289, 1.0539, 1.1109, 1.2619, 1.8070, 3.7195, & +1.0051, 1.0082, 1.0132, 1.0224, 1.0398, 1.0767, 1.1646, 1.4151, 2.5951, & +1.0040, 1.0070, 1.0107, 1.0180, 1.0309, 1.0567, 1.1134, 1.2559, 1.7217, & +1.0039, 1.0059, 1.0093, 1.0149, 1.0249, 1.0441, 1.0836, 1.1747, 1.4234, & +1.0035, 1.0041, 1.0074, 1.0126, 1.0205, 1.0353, 1.0645, 1.1276, 1.2827, & +1.0028, 1.0040, 1.0068, 1.0104, 1.0170, 1.0288, 1.0514, 1.0974, 1.2028, & +1.0020, 1.0037, 1.0056, 1.0090, 1.0143, 1.0240, 1.0417, 1.0766, 1.1522 / +data ((supersat( 1,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +1.0052, 1.0080, 1.0129, 1.0220, 1.0400, 1.0802, 1.1812, 1.4871, 2.7404, & +1.0042, 1.0063, 1.0103, 1.0169, 1.0294, 1.0553, 1.1149, 1.2718, 1.8182, & +1.0028, 1.0054, 1.0083, 1.0135, 1.0228, 1.0408, 1.0793, 1.1713, 1.4312, & +1.0027, 1.0046, 1.0069, 1.0111, 1.0184, 1.0317, 1.0585, 1.1179, 1.2673, & +1.0026, 1.0031, 1.0057, 1.0090, 1.0151, 1.0254, 1.0453, 1.0867, 1.1826, & +1.0024, 1.0027, 1.0052, 1.0080, 1.0127, 1.0210, 1.0362, 1.0667, 1.1331, & +1.0019, 1.0027, 1.0042, 1.0064, 1.0107, 1.0173, 1.0297, 1.0529, 1.1012 / +data ((supersat( 1,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +1.0042, 1.0065, 1.0104, 1.0174, 1.0312, 1.0613, 1.1349, 1.3392, 2.0949, & +1.0035, 1.0051, 1.0082, 1.0133, 1.0227, 1.0420, 1.0853, 1.1947, 1.5202, & +1.0025, 1.0043, 1.0066, 1.0106, 1.0175, 1.0307, 1.0584, 1.1229, 1.2922, & +1.0016, 1.0037, 1.0054, 1.0087, 1.0140, 1.0236, 1.0428, 1.0842, 1.1838, & +1.0016, 1.0028, 1.0044, 1.0070, 1.0115, 1.0190, 1.0331, 1.0618, 1.1258, & +1.0016, 1.0017, 1.0041, 1.0062, 1.0095, 1.0157, 1.0265, 1.0476, 1.0920, & +1.0016, 1.0016, 1.0034, 1.0047, 1.0080, 1.0130, 1.0217, 1.0379, 1.0704 / +data ((supersat( 1,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +1.0034, 1.0053, 1.0087, 1.0144, 1.0254, 1.0493, 1.1067, 1.2590, 1.7392, & +1.0030, 1.0044, 1.0068, 1.0109, 1.0183, 1.0334, 1.0669, 1.1497, 1.3784, & +1.0025, 1.0032, 1.0054, 1.0085, 1.0139, 1.0241, 1.0453, 1.0937, 1.2165, & +1.0017, 1.0030, 1.0045, 1.0070, 1.0110, 1.0184, 1.0328, 1.0634, 1.1354, & +1.0010, 1.0026, 1.0032, 1.0056, 1.0090, 1.0146, 1.0251, 1.0461, 1.0919, & +1.0006, 1.0020, 1.0031, 1.0049, 1.0076, 1.0121, 1.0201, 1.0354, 1.0668, & +1.0006, 1.0013, 1.0028, 1.0037, 1.0061, 1.0100, 1.0165, 1.0281, 1.0511 / +data ((supersat( 1,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +1.0032, 1.0047, 1.0074, 1.0122, 1.0214, 1.0412, 1.0883, 1.2103, 1.5644, & +1.0022, 1.0038, 1.0058, 1.0092, 1.0153, 1.0277, 1.0549, 1.1215, 1.2986, & +1.0020, 1.0029, 1.0043, 1.0071, 1.0115, 1.0198, 1.0367, 1.0752, 1.1712, & +1.0018, 1.0021, 1.0038, 1.0058, 1.0090, 1.0149, 1.0263, 1.0502, 1.1059, & +1.0015, 1.0021, 1.0029, 1.0044, 1.0073, 1.0118, 1.0199, 1.0360, 1.0708, & +1.0010, 1.0019, 1.0021, 1.0040, 1.0061, 1.0097, 1.0158, 1.0274, 1.0509, & +1.0007, 1.0016, 1.0021, 1.0033, 1.0049, 1.0080, 1.0128, 1.0218, 1.0387 / +data ((supersat( 1,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +1.0028, 1.0043, 1.0065, 1.0107, 1.0185, 1.0355, 1.0755, 1.1778, 1.4620, & +1.0022, 1.0031, 1.0049, 1.0079, 1.0132, 1.0236, 1.0467, 1.1024, 1.2480, & +1.0015, 1.0027, 1.0040, 1.0062, 1.0098, 1.0167, 1.0308, 1.0628, 1.1419, & +1.0011, 1.0021, 1.0031, 1.0049, 1.0077, 1.0125, 1.0218, 1.0414, 1.0867, & +1.0011, 1.0013, 1.0028, 1.0039, 1.0062, 1.0098, 1.0164, 1.0293, 1.0571, & +1.0011, 1.0011, 1.0021, 1.0032, 1.0051, 1.0080, 1.0129, 1.0221, 1.0405, & +1.0010, 1.0011, 1.0014, 1.0029, 1.0043, 1.0066, 1.0105, 1.0175, 1.0306 / +data ((supersat( 1,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +1.0082, 1.0128, 1.0216, 1.0388, 1.0751, 1.1622, 1.4139, 2.7122, 4.9898, & +1.0063, 1.0107, 1.0175, 1.0301, 1.0552, 1.1109, 1.2517, 1.7206, 4.0260, & +1.0054, 1.0088, 1.0145, 1.0242, 1.0427, 1.0813, 1.1706, 1.4155, 2.5508, & +1.0050, 1.0076, 1.0121, 1.0197, 1.0343, 1.0626, 1.1241, 1.2753, 1.7601, & +1.0042, 1.0055, 1.0099, 1.0163, 1.0281, 1.0497, 1.0944, 1.1968, 1.4755, & +1.0031, 1.0052, 1.0086, 1.0139, 1.0230, 1.0403, 1.0741, 1.1474, 1.3285, & +1.0023, 1.0047, 1.0072, 1.0115, 1.0189, 1.0328, 1.0591, 1.1136, 1.2396 / +data ((supersat( 1,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +1.0063, 1.0097, 1.0159, 1.0280, 1.0527, 1.1098, 1.2611, 1.8065, 3.7189, & +1.0046, 1.0076, 1.0128, 1.0216, 1.0388, 1.0755, 1.1635, 1.4143, 2.5942, & +1.0040, 1.0068, 1.0103, 1.0174, 1.0301, 1.0556, 1.1123, 1.2549, 1.7209, & +1.0038, 1.0054, 1.0088, 1.0142, 1.0242, 1.0430, 1.0824, 1.1735, 1.4223, & +1.0033, 1.0040, 1.0072, 1.0120, 1.0197, 1.0343, 1.0633, 1.1263, 1.2813, & +1.0024, 1.0039, 1.0065, 1.0101, 1.0164, 1.0281, 1.0502, 1.0961, 1.2013, & +1.0017, 1.0035, 1.0051, 1.0084, 1.0134, 1.0231, 1.0404, 1.0752, 1.1505 / +data ((supersat( 1,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +1.0050, 1.0077, 1.0124, 1.0211, 1.0389, 1.0791, 1.1804, 1.4865, 2.7396, & +1.0037, 1.0057, 1.0098, 1.0161, 1.0285, 1.0543, 1.1139, 1.2711, 1.8176, & +1.0028, 1.0052, 1.0081, 1.0130, 1.0220, 1.0399, 1.0782, 1.1704, 1.4305, & +1.0027, 1.0041, 1.0063, 1.0107, 1.0177, 1.0308, 1.0574, 1.1168, 1.2663, & +1.0026, 1.0028, 1.0056, 1.0087, 1.0143, 1.0247, 1.0443, 1.0856, 1.1815, & +1.0022, 1.0027, 1.0049, 1.0076, 1.0120, 1.0202, 1.0353, 1.0656, 1.1318, & +1.0017, 1.0026, 1.0038, 1.0058, 1.0102, 1.0167, 1.0287, 1.0517, 1.0999 / +data ((supersat( 1,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +1.0040, 1.0062, 1.0099, 1.0167, 1.0302, 1.0603, 1.1341, 1.3388, 2.0944, & +1.0032, 1.0046, 1.0077, 1.0127, 1.0219, 1.0410, 1.0844, 1.1940, 1.5198, & +1.0022, 1.0041, 1.0064, 1.0100, 1.0168, 1.0298, 1.0574, 1.1220, 1.2916, & +1.0016, 1.0034, 1.0049, 1.0082, 1.0135, 1.0230, 1.0419, 1.0832, 1.1829, & +1.0016, 1.0024, 1.0043, 1.0068, 1.0111, 1.0184, 1.0323, 1.0607, 1.1248, & +1.0016, 1.0016, 1.0039, 1.0058, 1.0092, 1.0149, 1.0258, 1.0466, 1.0909, & +1.0015, 1.0016, 1.0030, 1.0044, 1.0075, 1.0123, 1.0210, 1.0369, 1.0692 / +data ((supersat( 1,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +1.0031, 1.0051, 1.0082, 1.0137, 1.0245, 1.0483, 1.1059, 1.2585, 1.7391, & +1.0028, 1.0041, 1.0064, 1.0103, 1.0176, 1.0325, 1.0660, 1.1490, 1.3780, & +1.0022, 1.0031, 1.0052, 1.0079, 1.0134, 1.0234, 1.0444, 1.0928, 1.2159, & +1.0015, 1.0029, 1.0041, 1.0065, 1.0105, 1.0178, 1.0320, 1.0625, 1.1347, & +1.0008, 1.0024, 1.0032, 1.0054, 1.0085, 1.0142, 1.0245, 1.0452, 1.0910, & +1.0006, 1.0017, 1.0030, 1.0046, 1.0072, 1.0116, 1.0194, 1.0345, 1.0658, & +1.0006, 1.0011, 1.0027, 1.0033, 1.0056, 1.0096, 1.0159, 1.0274, 1.0501 / +data ((supersat( 1,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +1.0029, 1.0043, 1.0070, 1.0116, 1.0206, 1.0403, 1.0875, 1.2099, 1.5641, & +1.0021, 1.0036, 1.0055, 1.0087, 1.0147, 1.0269, 1.0541, 1.1209, 1.2983, & +1.0020, 1.0026, 1.0042, 1.0067, 1.0110, 1.0191, 1.0359, 1.0744, 1.1707, & +1.0017, 1.0021, 1.0036, 1.0055, 1.0085, 1.0143, 1.0255, 1.0493, 1.1051, & +1.0013, 1.0020, 1.0026, 1.0043, 1.0069, 1.0113, 1.0193, 1.0352, 1.0699, & +1.0008, 1.0018, 1.0021, 1.0038, 1.0059, 1.0092, 1.0153, 1.0267, 1.0500, & +1.0006, 1.0015, 1.0020, 1.0030, 1.0045, 1.0077, 1.0124, 1.0210, 1.0379 / +data ((supersat( 1,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +1.0027, 1.0039, 1.0061, 1.0101, 1.0179, 1.0346, 1.0747, 1.1773, 1.4619, & +1.0020, 1.0030, 1.0047, 1.0075, 1.0126, 1.0229, 1.0458, 1.1018, 1.2477, & +1.0013, 1.0025, 1.0036, 1.0058, 1.0094, 1.0161, 1.0301, 1.0620, 1.1413, & +1.0011, 1.0018, 1.0030, 1.0047, 1.0072, 1.0120, 1.0211, 1.0406, 1.0860, & +1.0011, 1.0011, 1.0026, 1.0035, 1.0058, 1.0094, 1.0158, 1.0285, 1.0563, & +1.0010, 1.0011, 1.0018, 1.0031, 1.0049, 1.0075, 1.0124, 1.0214, 1.0398, & +1.0010, 1.0011, 1.0012, 1.0028, 1.0039, 1.0063, 1.0101, 1.0169, 1.0299 / +data ((supersat( 1,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +1.0079, 1.0122, 1.0211, 1.0380, 1.0742, 1.1614, 1.4133, 2.7115, 4.9893, & +1.0057, 1.0102, 1.0170, 1.0294, 1.0544, 1.1100, 1.2510, 1.7200, 4.0248, & +1.0053, 1.0086, 1.0140, 1.0236, 1.0419, 1.0804, 1.1697, 1.4147, 2.5497, & +1.0048, 1.0072, 1.0118, 1.0191, 1.0335, 1.0617, 1.1231, 1.2743, 1.7589, & +1.0039, 1.0054, 1.0093, 1.0158, 1.0274, 1.0488, 1.0934, 1.1957, 1.4742, & +1.0027, 1.0051, 1.0083, 1.0133, 1.0223, 1.0394, 1.0730, 1.1461, 1.3270, & +1.0020, 1.0044, 1.0068, 1.0111, 1.0183, 1.0319, 1.0580, 1.1122, 1.2379 / +data ((supersat( 1,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +1.0060, 1.0094, 1.0155, 1.0273, 1.0519, 1.1090, 1.2605, 1.8061, 3.7184, & +1.0041, 1.0072, 1.0125, 1.0211, 1.0381, 1.0747, 1.1628, 1.4138, 2.5935, & +1.0040, 1.0065, 1.0101, 1.0168, 1.0295, 1.0548, 1.1115, 1.2541, 1.7202, & +1.0036, 1.0050, 1.0084, 1.0136, 1.0236, 1.0423, 1.0815, 1.1727, 1.4215, & +1.0030, 1.0040, 1.0071, 1.0115, 1.0193, 1.0337, 1.0625, 1.1254, 1.2803, & +1.0022, 1.0038, 1.0062, 1.0098, 1.0160, 1.0275, 1.0493, 1.0951, 1.2002, & +1.0016, 1.0034, 1.0047, 1.0079, 1.0131, 1.0223, 1.0397, 1.0741, 1.1493 / +data ((supersat( 1,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +1.0047, 1.0074, 1.0119, 1.0205, 1.0382, 1.0783, 1.1799, 1.4862, 2.7394, & +1.0033, 1.0057, 1.0094, 1.0157, 1.0279, 1.0535, 1.1132, 1.2706, 1.8173, & +1.0028, 1.0050, 1.0078, 1.0126, 1.0214, 1.0392, 1.0775, 1.1697, 1.4300, & +1.0027, 1.0038, 1.0059, 1.0104, 1.0171, 1.0302, 1.0567, 1.1161, 1.2657, & +1.0025, 1.0027, 1.0055, 1.0085, 1.0140, 1.0242, 1.0436, 1.0848, 1.1807, & +1.0021, 1.0027, 1.0047, 1.0073, 1.0115, 1.0196, 1.0347, 1.0647, 1.1309, & +1.0016, 1.0025, 1.0035, 1.0056, 1.0098, 1.0163, 1.0280, 1.0509, 1.0989 / +data ((supersat( 1,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +1.0039, 1.0060, 1.0094, 1.0162, 1.0296, 1.0596, 1.1336, 1.3384, 2.0942, & +1.0030, 1.0044, 1.0073, 1.0123, 1.0214, 1.0403, 1.0837, 1.1936, 1.5196, & +1.0018, 1.0040, 1.0061, 1.0095, 1.0163, 1.0292, 1.0568, 1.1214, 1.2912, & +1.0016, 1.0032, 1.0045, 1.0079, 1.0131, 1.0225, 1.0412, 1.0825, 1.1824, & +1.0016, 1.0021, 1.0042, 1.0067, 1.0107, 1.0179, 1.0317, 1.0600, 1.1242, & +1.0016, 1.0016, 1.0037, 1.0055, 1.0089, 1.0145, 1.0252, 1.0459, 1.0901, & +1.0014, 1.0016, 1.0028, 1.0043, 1.0070, 1.0119, 1.0205, 1.0362, 1.0684 / +data ((supersat( 1,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +1.0030, 1.0050, 1.0078, 1.0132, 1.0239, 1.0477, 1.1054, 1.2583, 1.7388, & +1.0027, 1.0037, 1.0060, 1.0099, 1.0171, 1.0319, 1.0654, 1.1486, 1.3778, & +1.0020, 1.0031, 1.0050, 1.0077, 1.0130, 1.0229, 1.0437, 1.0923, 1.2155, & +1.0012, 1.0028, 1.0038, 1.0062, 1.0101, 1.0174, 1.0314, 1.0619, 1.1341, & +1.0007, 1.0022, 1.0032, 1.0053, 1.0081, 1.0138, 1.0239, 1.0446, 1.0903, & +1.0006, 1.0014, 1.0030, 1.0043, 1.0070, 1.0112, 1.0189, 1.0339, 1.0651, & +1.0006, 1.0010, 1.0025, 1.0032, 1.0055, 1.0093, 1.0154, 1.0268, 1.0494 / +data ((supersat( 1,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +1.0026, 1.0041, 1.0067, 1.0111, 1.0201, 1.0397, 1.0871, 1.2096, 1.5640, & +1.0021, 1.0034, 1.0052, 1.0083, 1.0142, 1.0263, 1.0535, 1.1204, 1.2980, & +1.0019, 1.0023, 1.0041, 1.0063, 1.0106, 1.0186, 1.0353, 1.0738, 1.1703, & +1.0016, 1.0021, 1.0034, 1.0052, 1.0083, 1.0139, 1.0250, 1.0487, 1.1047, & +1.0011, 1.0020, 1.0023, 1.0042, 1.0065, 1.0109, 1.0188, 1.0346, 1.0694, & +1.0007, 1.0017, 1.0021, 1.0037, 1.0056, 1.0088, 1.0148, 1.0261, 1.0494, & +1.0005, 1.0013, 1.0020, 1.0028, 1.0043, 1.0073, 1.0121, 1.0205, 1.0373 / +data ((supersat( 1,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +1.0025, 1.0037, 1.0059, 1.0097, 1.0174, 1.0341, 1.0743, 1.1771, 1.4618, & +1.0018, 1.0029, 1.0045, 1.0072, 1.0122, 1.0224, 1.0453, 1.1014, 1.2475, & +1.0011, 1.0024, 1.0033, 1.0055, 1.0090, 1.0157, 1.0295, 1.0615, 1.1410, & +1.0011, 1.0016, 1.0030, 1.0045, 1.0069, 1.0116, 1.0207, 1.0400, 1.0856, & +1.0011, 1.0011, 1.0024, 1.0032, 1.0055, 1.0090, 1.0154, 1.0280, 1.0558, & +1.0010, 1.0011, 1.0016, 1.0030, 1.0047, 1.0072, 1.0121, 1.0209, 1.0392, & +1.0009, 1.0011, 1.0011, 1.0026, 1.0036, 1.0060, 1.0098, 1.0164, 1.0293 / +data ((supersat( 2,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +1.0088, 1.0144, 1.0236, 1.0409, 1.0772, 1.1637, 1.4149, 2.7106, 4.9892, & +1.0077, 1.0118, 1.0189, 1.0318, 1.0574, 1.1129, 1.2531, 1.7215, 4.0259, & +1.0055, 1.0095, 1.0157, 1.0258, 1.0448, 1.0835, 1.1725, 1.4172, 2.5508, & +1.0054, 1.0086, 1.0128, 1.0215, 1.0361, 1.0649, 1.1263, 1.2773, 1.7625, & +1.0050, 1.0071, 1.0113, 1.0182, 1.0298, 1.0521, 1.0970, 1.1993, 1.4787, & +1.0041, 1.0054, 1.0091, 1.0154, 1.0252, 1.0427, 1.0769, 1.1504, 1.3322, & +1.0030, 1.0052, 1.0084, 1.0125, 1.0212, 1.0354, 1.0623, 1.1171, 1.2437 / +data ((supersat( 2,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +1.0069, 1.0108, 1.0176, 1.0299, 1.0548, 1.1114, 1.2620, 1.8062, 3.7179, & +1.0058, 1.0090, 1.0141, 1.0233, 1.0408, 1.0775, 1.1649, 1.4154, 2.5938, & +1.0040, 1.0072, 1.0116, 1.0189, 1.0319, 1.0577, 1.1141, 1.2562, 1.7218, & +1.0040, 1.0065, 1.0099, 1.0157, 1.0257, 1.0451, 1.0845, 1.1753, 1.4241, & +1.0038, 1.0050, 1.0080, 1.0132, 1.0215, 1.0364, 1.0656, 1.1285, 1.2834, & +1.0033, 1.0040, 1.0071, 1.0108, 1.0180, 1.0300, 1.0526, 1.0986, 1.2039, & +1.0025, 1.0039, 1.0063, 1.0097, 1.0153, 1.0251, 1.0430, 1.0780, 1.1536 / +data ((supersat( 2,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +1.0055, 1.0084, 1.0136, 1.0228, 1.0409, 1.0808, 1.1813, 1.4869, 2.7389, & +1.0047, 1.0070, 1.0109, 1.0178, 1.0304, 1.0562, 1.1154, 1.2719, 1.8176, & +1.0034, 1.0057, 1.0086, 1.0140, 1.0237, 1.0417, 1.0800, 1.1717, 1.4315, & +1.0028, 1.0050, 1.0076, 1.0115, 1.0191, 1.0325, 1.0594, 1.1186, 1.2677, & +1.0027, 1.0038, 1.0058, 1.0099, 1.0159, 1.0264, 1.0462, 1.0875, 1.1832, & +1.0026, 1.0028, 1.0055, 1.0085, 1.0134, 1.0219, 1.0373, 1.0678, 1.1340, & +1.0023, 1.0027, 1.0048, 1.0072, 1.0113, 1.0183, 1.0307, 1.0542, 1.1024 / +data ((supersat( 2,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +1.0043, 1.0069, 1.0110, 1.0182, 1.0321, 1.0620, 1.1352, 1.3393, 2.0938, & +1.0039, 1.0057, 1.0088, 1.0139, 1.0236, 1.0429, 1.0859, 1.1949, 1.5202, & +1.0031, 1.0044, 1.0069, 1.0112, 1.0183, 1.0316, 1.0592, 1.1233, 1.2925, & +1.0020, 1.0040, 1.0060, 1.0092, 1.0145, 1.0245, 1.0437, 1.0849, 1.1841, & +1.0016, 1.0033, 1.0045, 1.0073, 1.0120, 1.0197, 1.0340, 1.0626, 1.1265, & +1.0016, 1.0022, 1.0043, 1.0066, 1.0099, 1.0164, 1.0274, 1.0485, 1.0929, & +1.0016, 1.0016, 1.0038, 1.0054, 1.0087, 1.0138, 1.0225, 1.0390, 1.0715 / +data ((supersat( 2,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +1.0040, 1.0060, 1.0093, 1.0151, 1.0263, 1.0500, 1.1070, 1.2591, 1.7385, & +1.0031, 1.0048, 1.0073, 1.0115, 1.0192, 1.0343, 1.0676, 1.1499, 1.3785, & +1.0028, 1.0036, 1.0056, 1.0091, 1.0146, 1.0250, 1.0461, 1.0942, 1.2167, & +1.0022, 1.0031, 1.0049, 1.0074, 1.0117, 1.0192, 1.0337, 1.0642, 1.1358, & +1.0014, 1.0029, 1.0037, 1.0058, 1.0096, 1.0154, 1.0260, 1.0470, 1.0926, & +1.0008, 1.0023, 1.0032, 1.0053, 1.0079, 1.0126, 1.0209, 1.0363, 1.0676, & +1.0006, 1.0016, 1.0030, 1.0043, 1.0068, 1.0104, 1.0171, 1.0291, 1.0521 / +data ((supersat( 2,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +1.0036, 1.0053, 1.0079, 1.0129, 1.0223, 1.0420, 1.0887, 1.2104, 1.5640, & +1.0027, 1.0041, 1.0061, 1.0097, 1.0161, 1.0285, 1.0556, 1.1217, 1.2987, & +1.0021, 1.0034, 1.0049, 1.0077, 1.0122, 1.0206, 1.0375, 1.0757, 1.1714, & +1.0020, 1.0024, 1.0041, 1.0062, 1.0096, 1.0157, 1.0271, 1.0509, 1.1063, & +1.0017, 1.0021, 1.0034, 1.0049, 1.0079, 1.0124, 1.0207, 1.0368, 1.0715, & +1.0013, 1.0020, 1.0023, 1.0043, 1.0064, 1.0102, 1.0165, 1.0282, 1.0518, & +1.0009, 1.0018, 1.0021, 1.0037, 1.0055, 1.0085, 1.0136, 1.0226, 1.0397 / +data ((supersat( 2,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +1.0030, 1.0046, 1.0071, 1.0113, 1.0194, 1.0362, 1.0759, 1.1778, 1.4619, & +1.0026, 1.0035, 1.0054, 1.0085, 1.0139, 1.0245, 1.0473, 1.1027, 1.2481, & +1.0019, 1.0030, 1.0044, 1.0066, 1.0104, 1.0175, 1.0317, 1.0634, 1.1421, & +1.0012, 1.0024, 1.0032, 1.0051, 1.0082, 1.0132, 1.0226, 1.0421, 1.0872, & +1.0011, 1.0017, 1.0030, 1.0044, 1.0066, 1.0104, 1.0171, 1.0301, 1.0578, & +1.0011, 1.0011, 1.0025, 1.0032, 1.0053, 1.0085, 1.0136, 1.0229, 1.0414, & +1.0011, 1.0011, 1.0018, 1.0031, 1.0047, 1.0070, 1.0110, 1.0182, 1.0315 / +data ((supersat( 2,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +1.0081, 1.0127, 1.0215, 1.0385, 1.0746, 1.1615, 1.4134, 2.7094, 4.9882, & +1.0062, 1.0106, 1.0174, 1.0299, 1.0549, 1.1104, 1.2511, 1.7197, 4.0229, & +1.0054, 1.0088, 1.0144, 1.0241, 1.0425, 1.0809, 1.1700, 1.4151, 2.5481, & +1.0050, 1.0076, 1.0120, 1.0196, 1.0341, 1.0623, 1.1235, 1.2747, 1.7593, & +1.0042, 1.0055, 1.0098, 1.0162, 1.0279, 1.0494, 1.0940, 1.1962, 1.4753, & +1.0031, 1.0052, 1.0085, 1.0138, 1.0229, 1.0401, 1.0738, 1.1469, 1.3282, & +1.0022, 1.0047, 1.0072, 1.0115, 1.0188, 1.0327, 1.0589, 1.1132, 1.2391 / +data ((supersat( 2,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +1.0062, 1.0097, 1.0158, 1.0278, 1.0523, 1.1092, 1.2606, 1.8052, 3.7167, & +1.0045, 1.0075, 1.0128, 1.0215, 1.0386, 1.0751, 1.1630, 1.4139, 2.5918, & +1.0040, 1.0067, 1.0103, 1.0173, 1.0299, 1.0553, 1.1118, 1.2544, 1.7201, & +1.0038, 1.0054, 1.0088, 1.0141, 1.0241, 1.0428, 1.0820, 1.1730, 1.4220, & +1.0033, 1.0040, 1.0072, 1.0120, 1.0196, 1.0342, 1.0630, 1.1259, 1.2809, & +1.0025, 1.0039, 1.0065, 1.0100, 1.0164, 1.0280, 1.0500, 1.0957, 1.2008, & +1.0018, 1.0036, 1.0051, 1.0084, 1.0134, 1.0230, 1.0403, 1.0749, 1.1501 / +data ((supersat( 2,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +1.0049, 1.0076, 1.0123, 1.0210, 1.0386, 1.0786, 1.1799, 1.4863, 2.7380, & +1.0037, 1.0057, 1.0098, 1.0161, 1.0283, 1.0539, 1.1134, 1.2707, 1.8165, & +1.0028, 1.0052, 1.0080, 1.0130, 1.0219, 1.0396, 1.0778, 1.1699, 1.4302, & +1.0027, 1.0041, 1.0063, 1.0107, 1.0176, 1.0307, 1.0571, 1.1164, 1.2660, & +1.0026, 1.0027, 1.0056, 1.0086, 1.0143, 1.0246, 1.0441, 1.0852, 1.1810, & +1.0022, 1.0027, 1.0049, 1.0076, 1.0119, 1.0201, 1.0352, 1.0653, 1.1314, & +1.0017, 1.0026, 1.0038, 1.0058, 1.0102, 1.0166, 1.0286, 1.0516, 1.0995 / +data ((supersat( 2,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +1.0040, 1.0062, 1.0098, 1.0166, 1.0300, 1.0599, 1.1337, 1.3386, 2.0929, & +1.0032, 1.0046, 1.0077, 1.0127, 1.0218, 1.0407, 1.0840, 1.1937, 1.5194, & +1.0022, 1.0041, 1.0064, 1.0099, 1.0167, 1.0296, 1.0571, 1.1216, 1.2913, & +1.0016, 1.0034, 1.0048, 1.0082, 1.0134, 1.0229, 1.0417, 1.0829, 1.1826, & +1.0016, 1.0024, 1.0043, 1.0068, 1.0110, 1.0183, 1.0321, 1.0605, 1.1245, & +1.0016, 1.0016, 1.0039, 1.0057, 1.0092, 1.0149, 1.0257, 1.0464, 1.0906, & +1.0015, 1.0016, 1.0031, 1.0044, 1.0074, 1.0122, 1.0210, 1.0368, 1.0690 / +data ((supersat( 2,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +1.0031, 1.0051, 1.0082, 1.0136, 1.0244, 1.0480, 1.1055, 1.2583, 1.7380, & +1.0028, 1.0040, 1.0064, 1.0103, 1.0175, 1.0323, 1.0657, 1.1487, 1.3778, & +1.0022, 1.0031, 1.0052, 1.0079, 1.0133, 1.0232, 1.0441, 1.0925, 1.2156, & +1.0015, 1.0029, 1.0041, 1.0065, 1.0104, 1.0177, 1.0318, 1.0622, 1.1343, & +1.0008, 1.0024, 1.0032, 1.0054, 1.0085, 1.0141, 1.0243, 1.0450, 1.0907, & +1.0006, 1.0016, 1.0030, 1.0046, 1.0072, 1.0116, 1.0193, 1.0344, 1.0656, & +1.0006, 1.0011, 1.0027, 1.0033, 1.0056, 1.0096, 1.0158, 1.0273, 1.0499 / +data ((supersat( 2,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +1.0029, 1.0043, 1.0070, 1.0115, 1.0205, 1.0401, 1.0872, 1.2097, 1.5636, & +1.0021, 1.0036, 1.0054, 1.0086, 1.0146, 1.0267, 1.0538, 1.1205, 1.2981, & +1.0019, 1.0026, 1.0042, 1.0066, 1.0110, 1.0189, 1.0356, 1.0741, 1.1704, & +1.0017, 1.0021, 1.0036, 1.0054, 1.0084, 1.0143, 1.0254, 1.0491, 1.1048, & +1.0013, 1.0020, 1.0025, 1.0043, 1.0068, 1.0113, 1.0192, 1.0350, 1.0697, & +1.0008, 1.0018, 1.0021, 1.0038, 1.0059, 1.0091, 1.0152, 1.0266, 1.0498, & +1.0006, 1.0015, 1.0020, 1.0030, 1.0045, 1.0077, 1.0124, 1.0210, 1.0377 / +data ((supersat( 2,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +1.0027, 1.0039, 1.0061, 1.0101, 1.0177, 1.0345, 1.0744, 1.1771, 1.4615, & +1.0020, 1.0030, 1.0047, 1.0075, 1.0125, 1.0227, 1.0456, 1.1015, 1.2475, & +1.0012, 1.0025, 1.0036, 1.0058, 1.0093, 1.0160, 1.0299, 1.0618, 1.1411, & +1.0011, 1.0018, 1.0030, 1.0047, 1.0072, 1.0119, 1.0210, 1.0404, 1.0857, & +1.0011, 1.0011, 1.0026, 1.0035, 1.0058, 1.0093, 1.0157, 1.0284, 1.0561, & +1.0011, 1.0011, 1.0018, 1.0031, 1.0049, 1.0075, 1.0124, 1.0213, 1.0396, & +1.0010, 1.0011, 1.0012, 1.0027, 1.0039, 1.0063, 1.0101, 1.0168, 1.0298 / +data ((supersat( 2,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +1.0071, 1.0117, 1.0201, 1.0365, 1.0725, 1.1598, 1.4122, 2.7076, 4.9868, & +1.0054, 1.0091, 1.0157, 1.0280, 1.0527, 1.1083, 1.2495, 1.7181, 4.0203, & +1.0051, 1.0081, 1.0128, 1.0222, 1.0404, 1.0786, 1.1679, 1.4132, 2.5450, & +1.0044, 1.0063, 1.0110, 1.0183, 1.0320, 1.0599, 1.1211, 1.2724, 1.7561, & +1.0032, 1.0053, 1.0087, 1.0151, 1.0258, 1.0471, 1.0913, 1.1934, 1.4718, & +1.0023, 1.0047, 1.0076, 1.0121, 1.0212, 1.0377, 1.0708, 1.1435, 1.3242, & +1.0018, 1.0038, 1.0058, 1.0101, 1.0172, 1.0302, 1.0557, 1.1093, 1.2343 / +data ((supersat( 2,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +1.0052, 1.0087, 1.0146, 1.0260, 1.0504, 1.1075, 1.2595, 1.8043, 3.7158, & +1.0040, 1.0070, 1.0117, 1.0200, 1.0367, 1.0732, 1.1614, 1.4128, 2.5904, & +1.0038, 1.0059, 1.0096, 1.0159, 1.0282, 1.0533, 1.1099, 1.2529, 1.7184, & +1.0033, 1.0041, 1.0074, 1.0130, 1.0223, 1.0409, 1.0799, 1.1711, 1.4202, & +1.0025, 1.0039, 1.0067, 1.0104, 1.0184, 1.0324, 1.0608, 1.1235, 1.2785, & +1.0018, 1.0036, 1.0055, 1.0091, 1.0151, 1.0261, 1.0477, 1.0930, 1.1980, & +1.0014, 1.0030, 1.0040, 1.0069, 1.0123, 1.0212, 1.0379, 1.0719, 1.1467 / +data ((supersat( 2,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +1.0042, 1.0067, 1.0109, 1.0195, 1.0369, 1.0769, 1.1788, 1.4853, 2.7372, & +1.0028, 1.0054, 1.0085, 1.0149, 1.0267, 1.0521, 1.1119, 1.2697, 1.8156, & +1.0027, 1.0045, 1.0072, 1.0117, 1.0205, 1.0378, 1.0760, 1.1685, 1.4290, & +1.0026, 1.0030, 1.0057, 1.0096, 1.0163, 1.0290, 1.0553, 1.1147, 1.2645, & +1.0022, 1.0027, 1.0051, 1.0081, 1.0134, 1.0231, 1.0422, 1.0831, 1.1791, & +1.0017, 1.0026, 1.0040, 1.0065, 1.0109, 1.0187, 1.0333, 1.0631, 1.1290, & +1.0013, 1.0023, 1.0029, 1.0053, 1.0088, 1.0153, 1.0267, 1.0492, 1.0968 / +data ((supersat( 2,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +1.0035, 1.0054, 1.0087, 1.0151, 1.0283, 1.0583, 1.1326, 1.3379, 2.0924, & +1.0024, 1.0042, 1.0067, 1.0114, 1.0203, 1.0390, 1.0825, 1.1927, 1.5187, & +1.0016, 1.0036, 1.0055, 1.0090, 1.0155, 1.0281, 1.0555, 1.1202, 1.2905, & +1.0016, 1.0026, 1.0044, 1.0070, 1.0121, 1.0213, 1.0400, 1.0812, 1.1812, & +1.0016, 1.0016, 1.0040, 1.0062, 1.0098, 1.0169, 1.0304, 1.0587, 1.1228, & +1.0015, 1.0016, 1.0032, 1.0047, 1.0083, 1.0138, 1.0240, 1.0445, 1.0885, & +1.0013, 1.0015, 1.0023, 1.0041, 1.0067, 1.0113, 1.0192, 1.0349, 1.0667 / +data ((supersat( 2,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +1.0029, 1.0045, 1.0072, 1.0124, 1.0228, 1.0464, 1.1045, 1.2578, 1.7376, & +1.0024, 1.0032, 1.0054, 1.0092, 1.0162, 1.0307, 1.0642, 1.1478, 1.3772, & +1.0016, 1.0029, 1.0045, 1.0073, 1.0121, 1.0218, 1.0425, 1.0912, 1.2148, & +1.0009, 1.0025, 1.0032, 1.0056, 1.0096, 1.0164, 1.0303, 1.0607, 1.1332, & +1.0006, 1.0018, 1.0031, 1.0049, 1.0077, 1.0130, 1.0229, 1.0433, 1.0891, & +1.0006, 1.0011, 1.0027, 1.0037, 1.0063, 1.0104, 1.0181, 1.0327, 1.0638, & +1.0006, 1.0009, 1.0021, 1.0030, 1.0052, 1.0086, 1.0144, 1.0256, 1.0480 / +data ((supersat( 2,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +1.0021, 1.0038, 1.0060, 1.0104, 1.0190, 1.0385, 1.0861, 1.2092, 1.5632, & +1.0019, 1.0029, 1.0046, 1.0077, 1.0133, 1.0252, 1.0524, 1.1197, 1.2977, & +1.0017, 1.0021, 1.0038, 1.0060, 1.0099, 1.0176, 1.0342, 1.0728, 1.1697, & +1.0013, 1.0020, 1.0029, 1.0045, 1.0078, 1.0132, 1.0240, 1.0476, 1.1037, & +1.0009, 1.0018, 1.0021, 1.0040, 1.0062, 1.0103, 1.0179, 1.0335, 1.0682, & +1.0006, 1.0015, 1.0020, 1.0032, 1.0051, 1.0083, 1.0141, 1.0251, 1.0482, & +1.0005, 1.0011, 1.0018, 1.0023, 1.0041, 1.0066, 1.0113, 1.0196, 1.0360 / +data ((supersat( 2,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +1.0022, 1.0032, 1.0053, 1.0090, 1.0164, 1.0330, 1.0734, 1.1767, 1.4612, & +1.0014, 1.0027, 1.0041, 1.0065, 1.0114, 1.0213, 1.0443, 1.1007, 1.2471, & +1.0011, 1.0020, 1.0031, 1.0050, 1.0083, 1.0148, 1.0285, 1.0606, 1.1404, & +1.0011, 1.0012, 1.0027, 1.0040, 1.0065, 1.0109, 1.0197, 1.0390, 1.0847, & +1.0010, 1.0011, 1.0020, 1.0032, 1.0051, 1.0085, 1.0146, 1.0270, 1.0548, & +1.0010, 1.0011, 1.0013, 1.0028, 1.0043, 1.0068, 1.0114, 1.0201, 1.0381, & +1.0008, 1.0010, 1.0011, 1.0023, 1.0031, 1.0054, 1.0090, 1.0156, 1.0282 / +data ((supersat( 2,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +1.0059, 1.0108, 1.0186, 1.0349, 1.0709, 1.1586, 1.4111, 2.7062, 4.9856, & +1.0052, 1.0086, 1.0148, 1.0266, 1.0510, 1.1067, 1.2482, 1.7167, 4.0174, & +1.0046, 1.0072, 1.0119, 1.0210, 1.0387, 1.0768, 1.1662, 1.4114, 2.5421, & +1.0035, 1.0053, 1.0097, 1.0170, 1.0304, 1.0579, 1.1190, 1.2702, 1.7529, & +1.0024, 1.0049, 1.0081, 1.0138, 1.0243, 1.0449, 1.0889, 1.1907, 1.4680, & +1.0018, 1.0040, 1.0064, 1.0110, 1.0194, 1.0354, 1.0681, 1.1403, 1.3200, & +1.0016, 1.0030, 1.0046, 1.0084, 1.0151, 1.0276, 1.0526, 1.1055, 1.2294 / +data ((supersat( 2,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +1.0041, 1.0076, 1.0134, 1.0247, 1.0489, 1.1063, 1.2587, 1.8037, 3.7146, & +1.0039, 1.0065, 1.0104, 1.0186, 1.0352, 1.0717, 1.1603, 1.4118, 2.5889, & +1.0035, 1.0049, 1.0087, 1.0149, 1.0267, 1.0517, 1.1084, 1.2516, 1.7170, & +1.0027, 1.0040, 1.0070, 1.0121, 1.0211, 1.0392, 1.0781, 1.1694, 1.4182, & +1.0019, 1.0036, 1.0060, 1.0098, 1.0169, 1.0306, 1.0588, 1.1215, 1.2763, & +1.0014, 1.0031, 1.0044, 1.0079, 1.0136, 1.0243, 1.0455, 1.0906, 1.1952, & +1.0012, 1.0023, 1.0034, 1.0062, 1.0109, 1.0193, 1.0356, 1.0691, 1.1433 / +data ((supersat( 2,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +1.0033, 1.0056, 1.0101, 1.0182, 1.0354, 1.0758, 1.1781, 1.4847, 2.7361, & +1.0027, 1.0049, 1.0080, 1.0137, 1.0253, 1.0507, 1.1109, 1.2690, 1.8149, & +1.0026, 1.0036, 1.0062, 1.0108, 1.0192, 1.0364, 1.0747, 1.1675, 1.4280, & +1.0023, 1.0027, 1.0054, 1.0085, 1.0152, 1.0276, 1.0537, 1.1133, 1.2633, & +1.0018, 1.0026, 1.0044, 1.0073, 1.0123, 1.0216, 1.0406, 1.0815, 1.1775, & +1.0013, 1.0023, 1.0032, 1.0055, 1.0100, 1.0173, 1.0316, 1.0611, 1.1270, & +1.0011, 1.0019, 1.0024, 1.0047, 1.0078, 1.0137, 1.0249, 1.0470, 1.0943 / +data ((supersat( 2,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +1.0028, 1.0044, 1.0080, 1.0141, 1.0270, 1.0571, 1.1319, 1.3374, 2.0920, & +1.0017, 1.0039, 1.0062, 1.0106, 1.0191, 1.0377, 1.0815, 1.1921, 1.5182, & +1.0016, 1.0030, 1.0046, 1.0083, 1.0144, 1.0268, 1.0542, 1.1193, 1.2898, & +1.0016, 1.0019, 1.0041, 1.0067, 1.0113, 1.0202, 1.0386, 1.0800, 1.1802, & +1.0015, 1.0016, 1.0035, 1.0054, 1.0091, 1.0159, 1.0291, 1.0572, 1.1214, & +1.0013, 1.0015, 1.0026, 1.0042, 1.0072, 1.0127, 1.0227, 1.0429, 1.0868, & +1.0010, 1.0013, 1.0018, 1.0036, 1.0060, 1.0102, 1.0179, 1.0330, 1.0647 / +data ((supersat( 2,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +1.0025, 1.0038, 1.0065, 1.0113, 1.0216, 1.0453, 1.1038, 1.2575, 1.7374, & +1.0018, 1.0030, 1.0050, 1.0084, 1.0150, 1.0295, 1.0633, 1.1472, 1.3767, & +1.0011, 1.0026, 1.0038, 1.0066, 1.0112, 1.0206, 1.0413, 1.0903, 1.2143, & +1.0006, 1.0019, 1.0031, 1.0053, 1.0088, 1.0154, 1.0290, 1.0595, 1.1323, & +1.0006, 1.0012, 1.0028, 1.0042, 1.0071, 1.0120, 1.0217, 1.0420, 1.0879, & +1.0006, 1.0009, 1.0022, 1.0031, 1.0054, 1.0096, 1.0168, 1.0313, 1.0623, & +1.0005, 1.0008, 1.0017, 1.0028, 1.0046, 1.0075, 1.0134, 1.0241, 1.0462 / +data ((supersat( 2,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +1.0020, 1.0034, 1.0055, 1.0094, 1.0179, 1.0375, 1.0855, 1.2089, 1.5629, & +1.0018, 1.0022, 1.0041, 1.0070, 1.0124, 1.0240, 1.0514, 1.1191, 1.2973, & +1.0014, 1.0020, 1.0033, 1.0054, 1.0091, 1.0165, 1.0330, 1.0720, 1.1692, & +1.0009, 1.0019, 1.0022, 1.0042, 1.0070, 1.0122, 1.0228, 1.0465, 1.1030, & +1.0006, 1.0015, 1.0020, 1.0035, 1.0057, 1.0095, 1.0169, 1.0323, 1.0672, & +1.0005, 1.0011, 1.0019, 1.0026, 1.0042, 1.0076, 1.0131, 1.0238, 1.0469, & +1.0005, 1.0009, 1.0015, 1.0019, 1.0037, 1.0060, 1.0102, 1.0183, 1.0345 / +data ((supersat( 2,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +1.0017, 1.0029, 1.0046, 1.0081, 1.0154, 1.0320, 1.0728, 1.1764, 1.4610, & +1.0011, 1.0023, 1.0035, 1.0060, 1.0105, 1.0203, 1.0434, 1.1002, 1.2468, & +1.0011, 1.0014, 1.0029, 1.0046, 1.0077, 1.0138, 1.0275, 1.0598, 1.1400, & +1.0010, 1.0011, 1.0023, 1.0033, 1.0059, 1.0100, 1.0187, 1.0380, 1.0840, & +1.0009, 1.0011, 1.0015, 1.0029, 1.0047, 1.0078, 1.0136, 1.0259, 1.0538, & +1.0008, 1.0010, 1.0011, 1.0024, 1.0036, 1.0062, 1.0104, 1.0189, 1.0369, & +1.0006, 1.0009, 1.0010, 1.0018, 1.0029, 1.0048, 1.0082, 1.0145, 1.0269 / +data ((supersat( 2,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +1.0054, 1.0102, 1.0179, 1.0342, 1.0701, 1.1580, 1.4107, 2.7056, 4.9849, & +1.0050, 1.0083, 1.0143, 1.0258, 1.0502, 1.1060, 1.2476, 1.7159, 4.0157, & +1.0042, 1.0066, 1.0115, 1.0203, 1.0378, 1.0759, 1.1654, 1.4104, 2.5402, & +1.0030, 1.0052, 1.0088, 1.0161, 1.0295, 1.0569, 1.1179, 1.2690, 1.7510, & +1.0021, 1.0045, 1.0076, 1.0130, 1.0233, 1.0438, 1.0876, 1.1892, 1.4658, & +1.0017, 1.0035, 1.0057, 1.0103, 1.0182, 1.0340, 1.0665, 1.1384, 1.3174, & +1.0014, 1.0025, 1.0040, 1.0075, 1.0139, 1.0262, 1.0508, 1.1032, 1.2263 / +data ((supersat( 2,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +1.0040, 1.0071, 1.0127, 1.0240, 1.0482, 1.1058, 1.2583, 1.8034, 3.7142, & +1.0037, 1.0061, 1.0100, 1.0181, 1.0344, 1.0710, 1.1598, 1.4113, 2.5881, & +1.0032, 1.0043, 1.0081, 1.0143, 1.0261, 1.0509, 1.1077, 1.2510, 1.7161, & +1.0023, 1.0038, 1.0067, 1.0115, 1.0204, 1.0383, 1.0772, 1.1686, 1.4171, & +1.0016, 1.0034, 1.0055, 1.0093, 1.0160, 1.0298, 1.0578, 1.1204, 1.2750, & +1.0013, 1.0027, 1.0039, 1.0071, 1.0127, 1.0234, 1.0443, 1.0892, 1.1936, & +1.0011, 1.0020, 1.0030, 1.0056, 1.0100, 1.0181, 1.0343, 1.0674, 1.1413 / +data ((supersat( 2,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +1.0028, 1.0055, 1.0097, 1.0175, 1.0348, 1.0753, 1.1778, 1.4845, 2.7361, & +1.0026, 1.0046, 1.0076, 1.0132, 1.0247, 1.0501, 1.1104, 1.2686, 1.8146, & +1.0025, 1.0031, 1.0057, 1.0104, 1.0185, 1.0357, 1.0741, 1.1670, 1.4275, & +1.0020, 1.0027, 1.0051, 1.0083, 1.0146, 1.0269, 1.0530, 1.1126, 1.2626, & +1.0015, 1.0025, 1.0040, 1.0068, 1.0116, 1.0209, 1.0397, 1.0806, 1.1766, & +1.0011, 1.0021, 1.0028, 1.0052, 1.0094, 1.0165, 1.0307, 1.0600, 1.1258, & +1.0010, 1.0016, 1.0022, 1.0043, 1.0073, 1.0129, 1.0238, 1.0458, 1.0929 / +data ((supersat( 2,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +1.0025, 1.0042, 1.0075, 1.0135, 1.0264, 1.0566, 1.1316, 1.3372, 2.0921, & +1.0016, 1.0036, 1.0059, 1.0101, 1.0186, 1.0372, 1.0810, 1.1918, 1.5178, & +1.0016, 1.0026, 1.0043, 1.0079, 1.0138, 1.0262, 1.0536, 1.1189, 1.2894, & +1.0015, 1.0016, 1.0039, 1.0064, 1.0109, 1.0196, 1.0379, 1.0794, 1.1798, & +1.0014, 1.0016, 1.0031, 1.0049, 1.0087, 1.0153, 1.0284, 1.0564, 1.1207, & +1.0011, 1.0014, 1.0022, 1.0040, 1.0067, 1.0120, 1.0219, 1.0420, 1.0859, & +1.0009, 1.0012, 1.0016, 1.0033, 1.0055, 1.0095, 1.0171, 1.0321, 1.0635 / +data ((supersat( 2,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +1.0023, 1.0034, 1.0061, 1.0108, 1.0210, 1.0449, 1.1035, 1.2572, 1.7373, & +1.0015, 1.0029, 1.0048, 1.0079, 1.0145, 1.0289, 1.0629, 1.1470, 1.3766, & +1.0008, 1.0024, 1.0033, 1.0061, 1.0108, 1.0201, 1.0408, 1.0899, 1.2140, & +1.0006, 1.0016, 1.0030, 1.0050, 1.0083, 1.0149, 1.0285, 1.0590, 1.1319, & +1.0006, 1.0011, 1.0026, 1.0038, 1.0067, 1.0115, 1.0211, 1.0413, 1.0874, & +1.0005, 1.0008, 1.0020, 1.0030, 1.0052, 1.0092, 1.0161, 1.0305, 1.0615, & +1.0005, 1.0008, 1.0015, 1.0025, 1.0042, 1.0071, 1.0127, 1.0233, 1.0453 / +data ((supersat( 2,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +1.0019, 1.0031, 1.0051, 1.0090, 1.0174, 1.0371, 1.0853, 1.2088, 1.5629, & +1.0016, 1.0021, 1.0039, 1.0066, 1.0119, 1.0235, 1.0511, 1.1190, 1.2971, & +1.0012, 1.0020, 1.0030, 1.0050, 1.0087, 1.0161, 1.0326, 1.0717, 1.1690, & +1.0007, 1.0017, 1.0021, 1.0040, 1.0066, 1.0117, 1.0223, 1.0461, 1.1026, & +1.0005, 1.0013, 1.0020, 1.0032, 1.0053, 1.0091, 1.0164, 1.0317, 1.0667, & +1.0005, 1.0010, 1.0017, 1.0023, 1.0041, 1.0072, 1.0125, 1.0232, 1.0462, & +1.0005, 1.0008, 1.0014, 1.0018, 1.0034, 1.0056, 1.0097, 1.0176, 1.0337 / +data ((supersat( 2,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +1.0014, 1.0027, 1.0044, 1.0077, 1.0149, 1.0316, 1.0726, 1.1763, 1.4610, & +1.0011, 1.0020, 1.0031, 1.0056, 1.0101, 1.0198, 1.0430, 1.1000, 1.2467, & +1.0011, 1.0012, 1.0027, 1.0043, 1.0073, 1.0134, 1.0270, 1.0595, 1.1398, & +1.0010, 1.0011, 1.0020, 1.0031, 1.0055, 1.0097, 1.0182, 1.0375, 1.0837, & +1.0008, 1.0011, 1.0013, 1.0028, 1.0044, 1.0074, 1.0132, 1.0254, 1.0533, & +1.0007, 1.0009, 1.0010, 1.0022, 1.0032, 1.0058, 1.0100, 1.0184, 1.0363, & +1.0005, 1.0008, 1.0009, 1.0016, 1.0027, 1.0045, 1.0078, 1.0138, 1.0263 / +data ((supersat( 2,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +1.0053, 1.0098, 1.0176, 1.0337, 1.0697, 1.1577, 1.4104, 2.7050, 4.9843, & +1.0049, 1.0081, 1.0139, 1.0253, 1.0497, 1.1055, 1.2472, 1.7154, 4.0143, & +1.0039, 1.0061, 1.0112, 1.0198, 1.0372, 1.0754, 1.1649, 1.4097, 2.5389, & +1.0027, 1.0050, 1.0086, 1.0155, 1.0289, 1.0562, 1.1172, 1.2682, 1.7497, & +1.0019, 1.0043, 1.0072, 1.0123, 1.0227, 1.0430, 1.0867, 1.1881, 1.4642, & +1.0016, 1.0032, 1.0053, 1.0097, 1.0175, 1.0331, 1.0654, 1.1371, 1.3154, & +1.0013, 1.0022, 1.0036, 1.0068, 1.0131, 1.0252, 1.0495, 1.1016, 1.2240 / +data ((supersat( 2,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +1.0039, 1.0070, 1.0125, 1.0235, 1.0478, 1.1055, 1.2581, 1.8031, 3.7137, & +1.0036, 1.0058, 1.0098, 1.0177, 1.0340, 1.0706, 1.1595, 1.4110, 2.5875, & +1.0030, 1.0040, 1.0077, 1.0138, 1.0256, 1.0505, 1.1073, 1.2505, 1.7156, & +1.0021, 1.0037, 1.0065, 1.0110, 1.0199, 1.0378, 1.0767, 1.1680, 1.4163, & +1.0015, 1.0032, 1.0051, 1.0090, 1.0156, 1.0292, 1.0572, 1.1196, 1.2741, & +1.0012, 1.0025, 1.0035, 1.0066, 1.0123, 1.0228, 1.0435, 1.0883, 1.1924, & +1.0010, 1.0018, 1.0027, 1.0052, 1.0093, 1.0174, 1.0333, 1.0663, 1.1399 / +data ((supersat( 2,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +1.0027, 1.0054, 1.0094, 1.0172, 1.0344, 1.0750, 1.1776, 1.4845, 2.7358, & +1.0026, 1.0043, 1.0074, 1.0129, 1.0243, 1.0497, 1.1101, 1.2684, 1.8142, & +1.0024, 1.0028, 1.0056, 1.0101, 1.0182, 1.0353, 1.0737, 1.1667, 1.4271, & +1.0019, 1.0026, 1.0049, 1.0080, 1.0142, 1.0264, 1.0525, 1.1122, 1.2621, & +1.0014, 1.0024, 1.0037, 1.0064, 1.0111, 1.0205, 1.0392, 1.0800, 1.1760, & +1.0011, 1.0019, 1.0025, 1.0050, 1.0089, 1.0159, 1.0300, 1.0593, 1.1250, & +1.0009, 1.0014, 1.0020, 1.0039, 1.0069, 1.0124, 1.0231, 1.0449, 1.0918 / +data ((supersat( 2,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +1.0022, 1.0041, 1.0072, 1.0131, 1.0261, 1.0564, 1.1315, 1.3371, 2.0919, & +1.0016, 1.0035, 1.0057, 1.0098, 1.0182, 1.0368, 1.0808, 1.1917, 1.5178, & +1.0016, 1.0023, 1.0043, 1.0076, 1.0135, 1.0258, 1.0533, 1.1186, 1.2891, & +1.0015, 1.0016, 1.0038, 1.0062, 1.0106, 1.0192, 1.0375, 1.0790, 1.1794, & +1.0013, 1.0015, 1.0029, 1.0046, 1.0084, 1.0149, 1.0279, 1.0559, 1.1203, & +1.0010, 1.0013, 1.0020, 1.0038, 1.0065, 1.0115, 1.0214, 1.0414, 1.0853, & +1.0007, 1.0010, 1.0015, 1.0030, 1.0052, 1.0089, 1.0165, 1.0314, 1.0627 / +data ((supersat( 2,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +1.0021, 1.0031, 1.0058, 1.0105, 1.0207, 1.0446, 1.1034, 1.2571, 1.7372, & +1.0013, 1.0028, 1.0045, 1.0076, 1.0142, 1.0286, 1.0626, 1.1469, 1.3764, & +1.0007, 1.0022, 1.0032, 1.0058, 1.0105, 1.0197, 1.0405, 1.0897, 1.2138, & +1.0006, 1.0014, 1.0029, 1.0048, 1.0080, 1.0146, 1.0281, 1.0587, 1.1316, & +1.0006, 1.0010, 1.0024, 1.0035, 1.0064, 1.0112, 1.0207, 1.0409, 1.0870, & +1.0005, 1.0008, 1.0018, 1.0028, 1.0050, 1.0088, 1.0158, 1.0301, 1.0610, & +1.0004, 1.0007, 1.0014, 1.0023, 1.0039, 1.0068, 1.0122, 1.0227, 1.0446 / +data ((supersat( 2,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +1.0019, 1.0029, 1.0049, 1.0087, 1.0171, 1.0368, 1.0851, 1.2086, 1.5629, & +1.0015, 1.0021, 1.0038, 1.0063, 1.0116, 1.0232, 1.0509, 1.1188, 1.2970, & +1.0010, 1.0019, 1.0028, 1.0048, 1.0084, 1.0158, 1.0323, 1.0715, 1.1689, & +1.0007, 1.0016, 1.0020, 1.0039, 1.0063, 1.0115, 1.0220, 1.0458, 1.1024, & +1.0005, 1.0012, 1.0019, 1.0030, 1.0051, 1.0088, 1.0160, 1.0314, 1.0664, & +1.0005, 1.0009, 1.0016, 1.0021, 1.0039, 1.0068, 1.0121, 1.0228, 1.0458, & +1.0004, 1.0007, 1.0012, 1.0017, 1.0031, 1.0053, 1.0093, 1.0171, 1.0332 / +data ((supersat( 2,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +1.0012, 1.0026, 1.0042, 1.0075, 1.0146, 1.0314, 1.0725, 1.1762, 1.4608, & +1.0011, 1.0018, 1.0030, 1.0054, 1.0098, 1.0196, 1.0428, 1.0999, 1.2466, & +1.0010, 1.0011, 1.0026, 1.0041, 1.0070, 1.0131, 1.0267, 1.0593, 1.1397, & +1.0009, 1.0011, 1.0018, 1.0031, 1.0052, 1.0094, 1.0179, 1.0373, 1.0835, & +1.0008, 1.0010, 1.0011, 1.0026, 1.0042, 1.0071, 1.0129, 1.0251, 1.0531, & +1.0006, 1.0009, 1.0010, 1.0020, 1.0030, 1.0055, 1.0097, 1.0180, 1.0360, & +1.0005, 1.0007, 1.0008, 1.0015, 1.0025, 1.0043, 1.0075, 1.0134, 1.0258 / +data ((supersat( 2,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +1.0053, 1.0094, 1.0173, 1.0334, 1.0694, 1.1575, 1.4101, 2.7045, 4.9836, & +1.0047, 1.0078, 1.0136, 1.0249, 1.0494, 1.1052, 1.2469, 1.7150, 4.0132, & +1.0037, 1.0058, 1.0109, 1.0194, 1.0368, 1.0749, 1.1645, 1.4091, 2.5377, & +1.0025, 1.0049, 1.0084, 1.0151, 1.0284, 1.0556, 1.1167, 1.2675, 1.7485, & +1.0018, 1.0040, 1.0069, 1.0119, 1.0221, 1.0424, 1.0860, 1.1873, 1.4628, & +1.0015, 1.0029, 1.0049, 1.0093, 1.0170, 1.0325, 1.0646, 1.1361, 1.3138, & +1.0012, 1.0019, 1.0033, 1.0063, 1.0125, 1.0244, 1.0484, 1.1003, 1.2221 / +data ((supersat( 2,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +1.0039, 1.0069, 1.0123, 1.0232, 1.0475, 1.1053, 1.2579, 1.8030, 3.7133, & +1.0035, 1.0056, 1.0096, 1.0174, 1.0337, 1.0704, 1.1593, 1.4108, 2.5871, & +1.0028, 1.0039, 1.0074, 1.0135, 1.0253, 1.0501, 1.1070, 1.2502, 1.7151, & +1.0019, 1.0036, 1.0063, 1.0107, 1.0196, 1.0374, 1.0763, 1.1676, 1.4158, & +1.0014, 1.0030, 1.0048, 1.0087, 1.0153, 1.0287, 1.0566, 1.1191, 1.2733, & +1.0012, 1.0023, 1.0034, 1.0063, 1.0119, 1.0222, 1.0430, 1.0876, 1.1915, & +1.0010, 1.0016, 1.0025, 1.0049, 1.0088, 1.0168, 1.0326, 1.0654, 1.1388 / +data ((supersat( 2,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +1.0027, 1.0052, 1.0091, 1.0170, 1.0342, 1.0748, 1.1775, 1.4842, 2.7358, & +1.0026, 1.0041, 1.0072, 1.0127, 1.0241, 1.0495, 1.1100, 1.2682, 1.8141, & +1.0023, 1.0027, 1.0055, 1.0099, 1.0179, 1.0350, 1.0735, 1.1664, 1.4269, & +1.0017, 1.0026, 1.0047, 1.0079, 1.0138, 1.0260, 1.0522, 1.1118, 1.2617, & +1.0013, 1.0023, 1.0034, 1.0061, 1.0108, 1.0201, 1.0387, 1.0796, 1.1755, & +1.0010, 1.0018, 1.0024, 1.0049, 1.0085, 1.0156, 1.0296, 1.0588, 1.1244, & +1.0008, 1.0013, 1.0018, 1.0037, 1.0066, 1.0120, 1.0226, 1.0442, 1.0910 / +data ((supersat( 2,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +1.0020, 1.0041, 1.0069, 1.0129, 1.0258, 1.0562, 1.1314, 1.3370, 2.0916, & +1.0016, 1.0033, 1.0055, 1.0095, 1.0180, 1.0366, 1.0806, 1.1916, 1.5176, & +1.0016, 1.0022, 1.0042, 1.0073, 1.0133, 1.0256, 1.0531, 1.1185, 1.2890, & +1.0014, 1.0016, 1.0036, 1.0060, 1.0103, 1.0189, 1.0373, 1.0788, 1.1792, & +1.0012, 1.0015, 1.0027, 1.0043, 1.0082, 1.0146, 1.0275, 1.0556, 1.1199, & +1.0009, 1.0013, 1.0019, 1.0037, 1.0063, 1.0112, 1.0210, 1.0409, 1.0848, & +1.0007, 1.0009, 1.0015, 1.0028, 1.0049, 1.0085, 1.0161, 1.0309, 1.0621 / +data ((supersat( 2,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +1.0020, 1.0031, 1.0056, 1.0103, 1.0205, 1.0444, 1.1033, 1.2570, 1.7372, & +1.0012, 1.0027, 1.0044, 1.0074, 1.0140, 1.0284, 1.0625, 1.1468, 1.3763, & +1.0007, 1.0021, 1.0031, 1.0056, 1.0103, 1.0195, 1.0403, 1.0896, 1.2137, & +1.0006, 1.0013, 1.0028, 1.0047, 1.0077, 1.0143, 1.0278, 1.0584, 1.1315, & +1.0005, 1.0009, 1.0023, 1.0033, 1.0062, 1.0110, 1.0204, 1.0406, 1.0867, & +1.0005, 1.0008, 1.0017, 1.0028, 1.0049, 1.0086, 1.0155, 1.0297, 1.0607, & +1.0004, 1.0007, 1.0013, 1.0022, 1.0037, 1.0065, 1.0118, 1.0223, 1.0442 / +data ((supersat( 2,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +1.0018, 1.0027, 1.0047, 1.0086, 1.0169, 1.0367, 1.0850, 1.2086, 1.5628, & +1.0014, 1.0020, 1.0037, 1.0061, 1.0114, 1.0230, 1.0507, 1.1188, 1.2969, & +1.0009, 1.0019, 1.0026, 1.0046, 1.0082, 1.0156, 1.0321, 1.0713, 1.1688, & +1.0006, 1.0015, 1.0020, 1.0038, 1.0061, 1.0113, 1.0217, 1.0456, 1.1023, & +1.0005, 1.0011, 1.0018, 1.0029, 1.0049, 1.0085, 1.0157, 1.0311, 1.0661, & +1.0005, 1.0008, 1.0015, 1.0019, 1.0038, 1.0066, 1.0118, 1.0225, 1.0455, & +1.0004, 1.0007, 1.0011, 1.0016, 1.0030, 1.0051, 1.0091, 1.0168, 1.0328 / +data ((supersat( 2,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +1.0011, 1.0025, 1.0041, 1.0073, 1.0144, 1.0312, 1.0724, 1.1761, 1.4609, & +1.0011, 1.0017, 1.0030, 1.0052, 1.0096, 1.0194, 1.0427, 1.0999, 1.2465, & +1.0010, 1.0011, 1.0024, 1.0040, 1.0068, 1.0129, 1.0265, 1.0592, 1.1397, & +1.0009, 1.0011, 1.0016, 1.0030, 1.0050, 1.0092, 1.0177, 1.0371, 1.0834, & +1.0007, 1.0010, 1.0011, 1.0025, 1.0041, 1.0069, 1.0127, 1.0249, 1.0529, & +1.0006, 1.0008, 1.0010, 1.0019, 1.0029, 1.0053, 1.0095, 1.0178, 1.0357, & +1.0004, 1.0006, 1.0007, 1.0014, 1.0024, 1.0041, 1.0072, 1.0131, 1.0254 / +data ((supersat( 3,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +1.0059, 1.0107, 1.0184, 1.0347, 1.0706, 1.1583, 1.4112, 2.7063, 4.9854, & +1.0052, 1.0086, 1.0147, 1.0264, 1.0508, 1.1064, 1.2480, 1.7166, 4.0173, & +1.0046, 1.0071, 1.0119, 1.0209, 1.0385, 1.0765, 1.1660, 1.4113, 2.5418, & +1.0035, 1.0053, 1.0096, 1.0169, 1.0303, 1.0577, 1.1187, 1.2700, 1.7530, & +1.0024, 1.0049, 1.0081, 1.0137, 1.0242, 1.0447, 1.0886, 1.1905, 1.4682, & +1.0018, 1.0040, 1.0064, 1.0110, 1.0193, 1.0352, 1.0679, 1.1401, 1.3199, & +1.0016, 1.0030, 1.0046, 1.0084, 1.0151, 1.0275, 1.0524, 1.1053, 1.2293 / +data ((supersat( 3,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +1.0041, 1.0076, 1.0133, 1.0245, 1.0486, 1.1061, 1.2585, 1.8036, 3.7144, & +1.0039, 1.0065, 1.0103, 1.0185, 1.0350, 1.0715, 1.1601, 1.4118, 2.5887, & +1.0034, 1.0049, 1.0086, 1.0148, 1.0266, 1.0515, 1.1082, 1.2514, 1.7169, & +1.0027, 1.0039, 1.0070, 1.0121, 1.0210, 1.0390, 1.0779, 1.1692, 1.4183, & +1.0019, 1.0036, 1.0060, 1.0098, 1.0168, 1.0305, 1.0586, 1.1213, 1.2761, & +1.0014, 1.0030, 1.0044, 1.0078, 1.0135, 1.0242, 1.0453, 1.0904, 1.1951, & +1.0012, 1.0023, 1.0033, 1.0061, 1.0108, 1.0192, 1.0355, 1.0689, 1.1432 / +data ((supersat( 3,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +1.0032, 1.0056, 1.0101, 1.0180, 1.0352, 1.0755, 1.1780, 1.4848, 2.7362, & +1.0027, 1.0049, 1.0079, 1.0136, 1.0252, 1.0505, 1.1107, 1.2689, 1.8148, & +1.0026, 1.0036, 1.0061, 1.0108, 1.0191, 1.0362, 1.0745, 1.1673, 1.4281, & +1.0023, 1.0027, 1.0054, 1.0085, 1.0152, 1.0275, 1.0535, 1.1131, 1.2631, & +1.0018, 1.0026, 1.0044, 1.0073, 1.0122, 1.0215, 1.0404, 1.0813, 1.1773, & +1.0013, 1.0023, 1.0032, 1.0054, 1.0100, 1.0172, 1.0315, 1.0609, 1.1268, & +1.0011, 1.0019, 1.0024, 1.0047, 1.0078, 1.0136, 1.0248, 1.0468, 1.0941 / +data ((supersat( 3,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +1.0028, 1.0044, 1.0079, 1.0140, 1.0268, 1.0569, 1.1318, 1.3375, 2.0920, & +1.0017, 1.0039, 1.0062, 1.0105, 1.0190, 1.0375, 1.0813, 1.1920, 1.5182, & +1.0016, 1.0030, 1.0046, 1.0083, 1.0143, 1.0266, 1.0540, 1.1192, 1.2897, & +1.0016, 1.0019, 1.0041, 1.0066, 1.0113, 1.0201, 1.0385, 1.0798, 1.1801, & +1.0015, 1.0016, 1.0035, 1.0054, 1.0091, 1.0158, 1.0290, 1.0570, 1.1213, & +1.0013, 1.0015, 1.0025, 1.0042, 1.0072, 1.0126, 1.0226, 1.0427, 1.0867, & +1.0010, 1.0013, 1.0018, 1.0036, 1.0060, 1.0101, 1.0179, 1.0329, 1.0645 / +data ((supersat( 3,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +1.0025, 1.0038, 1.0065, 1.0112, 1.0214, 1.0451, 1.1036, 1.2574, 1.7373, & +1.0018, 1.0030, 1.0050, 1.0084, 1.0149, 1.0293, 1.0631, 1.1472, 1.3769, & +1.0010, 1.0026, 1.0038, 1.0065, 1.0112, 1.0205, 1.0412, 1.0902, 1.2142, & +1.0006, 1.0019, 1.0031, 1.0052, 1.0088, 1.0153, 1.0289, 1.0593, 1.1322, & +1.0006, 1.0012, 1.0028, 1.0042, 1.0071, 1.0119, 1.0216, 1.0418, 1.0878, & +1.0006, 1.0009, 1.0022, 1.0031, 1.0054, 1.0096, 1.0168, 1.0312, 1.0622, & +1.0005, 1.0008, 1.0017, 1.0027, 1.0046, 1.0075, 1.0133, 1.0241, 1.0461 / +data ((supersat( 3,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +1.0020, 1.0034, 1.0054, 1.0094, 1.0178, 1.0373, 1.0854, 1.2088, 1.5630, & +1.0018, 1.0022, 1.0041, 1.0069, 1.0123, 1.0239, 1.0513, 1.1191, 1.2973, & +1.0014, 1.0020, 1.0033, 1.0054, 1.0091, 1.0165, 1.0329, 1.0719, 1.1691, & +1.0009, 1.0018, 1.0022, 1.0042, 1.0070, 1.0121, 1.0227, 1.0464, 1.1029, & +1.0006, 1.0015, 1.0020, 1.0035, 1.0057, 1.0095, 1.0168, 1.0322, 1.0670, & +1.0005, 1.0011, 1.0019, 1.0026, 1.0042, 1.0076, 1.0130, 1.0238, 1.0467, & +1.0005, 1.0009, 1.0015, 1.0019, 1.0037, 1.0059, 1.0101, 1.0182, 1.0344 / +data ((supersat( 3,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +1.0017, 1.0029, 1.0046, 1.0081, 1.0153, 1.0319, 1.0727, 1.1763, 1.4610, & +1.0011, 1.0023, 1.0034, 1.0059, 1.0104, 1.0202, 1.0432, 1.1001, 1.2468, & +1.0011, 1.0014, 1.0029, 1.0046, 1.0076, 1.0138, 1.0273, 1.0597, 1.1399, & +1.0011, 1.0011, 1.0022, 1.0033, 1.0059, 1.0100, 1.0186, 1.0379, 1.0839, & +1.0009, 1.0011, 1.0015, 1.0029, 1.0047, 1.0078, 1.0136, 1.0258, 1.0537, & +1.0008, 1.0010, 1.0011, 1.0024, 1.0036, 1.0062, 1.0104, 1.0188, 1.0368, & +1.0006, 1.0009, 1.0009, 1.0018, 1.0029, 1.0048, 1.0082, 1.0144, 1.0269 / +data ((supersat( 3,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +1.0053, 1.0097, 1.0175, 1.0336, 1.0696, 1.1576, 1.4105, 2.7052, 4.9840, & +1.0049, 1.0080, 1.0138, 1.0253, 1.0497, 1.1055, 1.2471, 1.7154, 4.0143, & +1.0039, 1.0061, 1.0111, 1.0197, 1.0372, 1.0753, 1.1648, 1.4099, 2.5390, & +1.0027, 1.0050, 1.0086, 1.0155, 1.0288, 1.0561, 1.1172, 1.2682, 1.7498, & +1.0019, 1.0043, 1.0072, 1.0123, 1.0226, 1.0430, 1.0866, 1.1881, 1.4646, & +1.0016, 1.0032, 1.0052, 1.0097, 1.0174, 1.0331, 1.0653, 1.1371, 1.3156, & +1.0013, 1.0022, 1.0036, 1.0068, 1.0130, 1.0252, 1.0495, 1.1016, 1.2241 / +data ((supersat( 3,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +1.0039, 1.0070, 1.0125, 1.0235, 1.0477, 1.1055, 1.2581, 1.8031, 3.7136, & +1.0036, 1.0058, 1.0098, 1.0177, 1.0339, 1.0706, 1.1594, 1.4111, 2.5875, & +1.0030, 1.0040, 1.0077, 1.0138, 1.0255, 1.0504, 1.1072, 1.2505, 1.7156, & +1.0021, 1.0037, 1.0065, 1.0110, 1.0199, 1.0377, 1.0766, 1.1680, 1.4167, & +1.0015, 1.0032, 1.0051, 1.0090, 1.0156, 1.0291, 1.0571, 1.1196, 1.2741, & +1.0012, 1.0025, 1.0035, 1.0066, 1.0122, 1.0227, 1.0435, 1.0883, 1.1925, & +1.0010, 1.0018, 1.0027, 1.0052, 1.0093, 1.0173, 1.0333, 1.0663, 1.1399 / +data ((supersat( 3,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +1.0027, 1.0053, 1.0094, 1.0172, 1.0344, 1.0749, 1.1776, 1.4845, 2.7359, & +1.0026, 1.0043, 1.0074, 1.0129, 1.0243, 1.0497, 1.1101, 1.2685, 1.8144, & +1.0024, 1.0028, 1.0056, 1.0101, 1.0182, 1.0352, 1.0737, 1.1666, 1.4273, & +1.0019, 1.0026, 1.0049, 1.0080, 1.0141, 1.0263, 1.0525, 1.1121, 1.2621, & +1.0014, 1.0024, 1.0036, 1.0064, 1.0111, 1.0205, 1.0391, 1.0800, 1.1759, & +1.0011, 1.0019, 1.0025, 1.0050, 1.0089, 1.0159, 1.0300, 1.0593, 1.1250, & +1.0009, 1.0014, 1.0020, 1.0039, 1.0069, 1.0124, 1.0230, 1.0449, 1.0918 / +data ((supersat( 3,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +1.0022, 1.0041, 1.0072, 1.0131, 1.0260, 1.0563, 1.1314, 1.3373, 2.0919, & +1.0016, 1.0034, 1.0056, 1.0097, 1.0182, 1.0368, 1.0808, 1.1917, 1.5178, & +1.0015, 1.0023, 1.0043, 1.0075, 1.0134, 1.0258, 1.0532, 1.1186, 1.2892, & +1.0015, 1.0016, 1.0038, 1.0062, 1.0105, 1.0192, 1.0375, 1.0790, 1.1794, & +1.0013, 1.0015, 1.0029, 1.0046, 1.0084, 1.0148, 1.0278, 1.0559, 1.1202, & +1.0010, 1.0014, 1.0020, 1.0038, 1.0065, 1.0115, 1.0213, 1.0413, 1.0853, & +1.0008, 1.0010, 1.0015, 1.0030, 1.0051, 1.0089, 1.0165, 1.0314, 1.0627 / +data ((supersat( 3,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +1.0021, 1.0031, 1.0058, 1.0105, 1.0206, 1.0445, 1.1033, 1.2572, 1.7372, & +1.0013, 1.0028, 1.0045, 1.0076, 1.0142, 1.0286, 1.0626, 1.1468, 1.3766, & +1.0007, 1.0022, 1.0032, 1.0058, 1.0105, 1.0197, 1.0404, 1.0897, 1.2139, & +1.0005, 1.0015, 1.0029, 1.0048, 1.0080, 1.0145, 1.0281, 1.0586, 1.1316, & +1.0006, 1.0010, 1.0024, 1.0035, 1.0064, 1.0112, 1.0207, 1.0409, 1.0870, & +1.0005, 1.0008, 1.0018, 1.0028, 1.0050, 1.0088, 1.0158, 1.0300, 1.0610, & +1.0004, 1.0007, 1.0013, 1.0023, 1.0039, 1.0068, 1.0122, 1.0227, 1.0446 / +data ((supersat( 3,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +1.0019, 1.0028, 1.0049, 1.0087, 1.0171, 1.0368, 1.0851, 1.2087, 1.5629, & +1.0015, 1.0020, 1.0038, 1.0062, 1.0116, 1.0232, 1.0508, 1.1188, 1.2972, & +1.0010, 1.0019, 1.0028, 1.0048, 1.0084, 1.0157, 1.0322, 1.0714, 1.1689, & +1.0007, 1.0016, 1.0020, 1.0039, 1.0063, 1.0114, 1.0219, 1.0457, 1.1024, & +1.0005, 1.0012, 1.0019, 1.0030, 1.0051, 1.0087, 1.0160, 1.0313, 1.0663, & +1.0005, 1.0009, 1.0016, 1.0021, 1.0039, 1.0068, 1.0121, 1.0227, 1.0457, & +1.0004, 1.0007, 1.0012, 1.0017, 1.0031, 1.0053, 1.0093, 1.0171, 1.0332 / +data ((supersat( 3,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +1.0012, 1.0026, 1.0042, 1.0074, 1.0145, 1.0313, 1.0724, 1.1762, 1.4609, & +1.0011, 1.0018, 1.0030, 1.0054, 1.0098, 1.0195, 1.0428, 1.0999, 1.2467, & +1.0010, 1.0011, 1.0026, 1.0041, 1.0070, 1.0131, 1.0267, 1.0593, 1.1397, & +1.0009, 1.0011, 1.0018, 1.0031, 1.0052, 1.0094, 1.0179, 1.0372, 1.0835, & +1.0008, 1.0010, 1.0011, 1.0026, 1.0042, 1.0071, 1.0129, 1.0251, 1.0530, & +1.0006, 1.0009, 1.0010, 1.0020, 1.0030, 1.0055, 1.0097, 1.0180, 1.0359, & +1.0005, 1.0007, 1.0008, 1.0015, 1.0025, 1.0043, 1.0075, 1.0134, 1.0258 / +data ((supersat( 3,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +1.0051, 1.0088, 1.0168, 1.0327, 1.0689, 1.1570, 1.4098, 2.7037, 4.9823, & +1.0044, 1.0074, 1.0129, 1.0242, 1.0487, 1.1046, 1.2462, 1.7142, 4.0108, & +1.0032, 1.0052, 1.0103, 1.0186, 1.0360, 1.0741, 1.1636, 1.4082, 2.5354, & +1.0022, 1.0046, 1.0080, 1.0145, 1.0274, 1.0547, 1.1155, 1.2661, 1.7461, & +1.0016, 1.0035, 1.0062, 1.0110, 1.0210, 1.0412, 1.0846, 1.1855, 1.4601, & +1.0013, 1.0024, 1.0042, 1.0083, 1.0159, 1.0310, 1.0628, 1.1338, 1.3106, & +1.0009, 1.0014, 1.0027, 1.0054, 1.0112, 1.0227, 1.0462, 1.0974, 1.2180 / +data ((supersat( 3,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +1.0038, 1.0066, 1.0118, 1.0226, 1.0470, 1.1050, 1.2577, 1.8026, 3.7126, & +1.0033, 1.0051, 1.0092, 1.0169, 1.0331, 1.0698, 1.1588, 1.4103, 2.5861, & +1.0024, 1.0038, 1.0070, 1.0128, 1.0246, 1.0495, 1.1063, 1.2496, 1.7142, & +1.0016, 1.0034, 1.0059, 1.0100, 1.0188, 1.0366, 1.0754, 1.1667, 1.4147, & +1.0013, 1.0027, 1.0042, 1.0080, 1.0146, 1.0278, 1.0556, 1.1179, 1.2719, & +1.0010, 1.0019, 1.0030, 1.0058, 1.0111, 1.0211, 1.0417, 1.0861, 1.1896, & +1.0007, 1.0012, 1.0021, 1.0041, 1.0078, 1.0156, 1.0310, 1.0635, 1.1363 / +data ((supersat( 3,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +1.0027, 1.0050, 1.0086, 1.0165, 1.0337, 1.0745, 1.1773, 1.4841, 2.7349, & +1.0025, 1.0037, 1.0067, 1.0122, 1.0236, 1.0490, 1.1096, 1.2680, 1.8138, & +1.0020, 1.0027, 1.0053, 1.0094, 1.0174, 1.0344, 1.0730, 1.1660, 1.4264, & +1.0015, 1.0025, 1.0043, 1.0075, 1.0133, 1.0254, 1.0515, 1.1112, 1.2611, & +1.0011, 1.0020, 1.0030, 1.0055, 1.0103, 1.0194, 1.0379, 1.0787, 1.1745, & +1.0009, 1.0015, 1.0021, 1.0044, 1.0078, 1.0148, 1.0285, 1.0577, 1.1231, & +1.0006, 1.0009, 1.0016, 1.0031, 1.0058, 1.0111, 1.0214, 1.0428, 1.0893 / +data ((supersat( 3,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +1.0016, 1.0039, 1.0065, 1.0125, 1.0254, 1.0559, 1.1312, 1.3369, 2.0915, & +1.0016, 1.0030, 1.0051, 1.0090, 1.0175, 1.0362, 1.0803, 1.1914, 1.5174, & +1.0015, 1.0018, 1.0040, 1.0068, 1.0128, 1.0251, 1.0526, 1.1181, 1.2888, & +1.0013, 1.0015, 1.0033, 1.0056, 1.0098, 1.0183, 1.0367, 1.0783, 1.1787, & +1.0010, 1.0014, 1.0023, 1.0040, 1.0077, 1.0139, 1.0268, 1.0549, 1.1192, & +1.0008, 1.0011, 1.0017, 1.0033, 1.0059, 1.0107, 1.0201, 1.0401, 1.0839, & +1.0005, 1.0007, 1.0013, 1.0024, 1.0043, 1.0079, 1.0151, 1.0298, 1.0609 / +data ((supersat( 3,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +1.0017, 1.0030, 1.0052, 1.0099, 1.0201, 1.0442, 1.1031, 1.2571, 1.7371, & +1.0009, 1.0025, 1.0041, 1.0071, 1.0136, 1.0280, 1.0622, 1.1466, 1.3763, & +1.0006, 1.0018, 1.0030, 1.0053, 1.0098, 1.0190, 1.0399, 1.0893, 1.2135, & +1.0006, 1.0011, 1.0026, 1.0043, 1.0074, 1.0138, 1.0273, 1.0580, 1.1311, & +1.0005, 1.0009, 1.0020, 1.0030, 1.0057, 1.0105, 1.0198, 1.0401, 1.0862, & +1.0004, 1.0007, 1.0015, 1.0025, 1.0045, 1.0080, 1.0148, 1.0290, 1.0599, & +1.0004, 1.0006, 1.0011, 1.0018, 1.0032, 1.0060, 1.0110, 1.0214, 1.0432 / +data ((supersat( 3,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +1.0017, 1.0023, 1.0044, 1.0082, 1.0165, 1.0364, 1.0849, 1.2086, 1.5627, & +1.0012, 1.0020, 1.0034, 1.0058, 1.0110, 1.0227, 1.0505, 1.1186, 1.2969, & +1.0008, 1.0017, 1.0023, 1.0042, 1.0078, 1.0152, 1.0317, 1.0711, 1.1686, & +1.0005, 1.0013, 1.0019, 1.0035, 1.0059, 1.0109, 1.0213, 1.0452, 1.1020, & +1.0005, 1.0009, 1.0017, 1.0025, 1.0045, 1.0080, 1.0152, 1.0306, 1.0657, & +1.0004, 1.0007, 1.0013, 1.0018, 1.0035, 1.0061, 1.0113, 1.0219, 1.0448, & +1.0004, 1.0006, 1.0009, 1.0013, 1.0026, 1.0046, 1.0085, 1.0161, 1.0319 / +data ((supersat( 3,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +1.0011, 1.0023, 1.0038, 1.0070, 1.0140, 1.0310, 1.0722, 1.1761, 1.4609, & +1.0011, 1.0014, 1.0029, 1.0048, 1.0092, 1.0190, 1.0425, 1.0997, 1.2466, & +1.0010, 1.0011, 1.0022, 1.0036, 1.0064, 1.0125, 1.0262, 1.0590, 1.1395, & +1.0008, 1.0010, 1.0014, 1.0029, 1.0048, 1.0089, 1.0173, 1.0368, 1.0832, & +1.0006, 1.0009, 1.0010, 1.0023, 1.0037, 1.0065, 1.0122, 1.0244, 1.0525, & +1.0005, 1.0007, 1.0008, 1.0016, 1.0027, 1.0049, 1.0090, 1.0172, 1.0351, & +1.0003, 1.0004, 1.0007, 1.0012, 1.0021, 1.0037, 1.0067, 1.0125, 1.0247 / +data ((supersat( 3,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +1.0049, 1.0084, 1.0161, 1.0320, 1.0683, 1.1565, 1.4091, 2.7022, 4.9802, & +1.0039, 1.0067, 1.0121, 1.0234, 1.0479, 1.1038, 1.2454, 1.7127, 4.0067, & +1.0026, 1.0049, 1.0094, 1.0176, 1.0350, 1.0730, 1.1624, 1.4064, 2.5312, & +1.0018, 1.0040, 1.0073, 1.0136, 1.0262, 1.0533, 1.1139, 1.2639, 1.7417, & +1.0014, 1.0028, 1.0052, 1.0100, 1.0196, 1.0394, 1.0824, 1.1826, 1.4551, & +1.0009, 1.0016, 1.0033, 1.0068, 1.0141, 1.0288, 1.0600, 1.1301, 1.3046, & +1.0006, 1.0009, 1.0018, 1.0040, 1.0091, 1.0199, 1.0427, 1.0927, 1.2107 / +data ((supersat( 3,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +1.0036, 1.0062, 1.0113, 1.0221, 1.0465, 1.1046, 1.2573, 1.8021, 3.7113, & +1.0028, 1.0044, 1.0087, 1.0162, 1.0325, 1.0692, 1.1583, 1.4096, 2.5845, & +1.0019, 1.0036, 1.0066, 1.0122, 1.0237, 1.0486, 1.1055, 1.2486, 1.7125, & +1.0014, 1.0030, 1.0052, 1.0093, 1.0178, 1.0356, 1.0743, 1.1653, 1.4126, & +1.0011, 1.0021, 1.0035, 1.0070, 1.0135, 1.0264, 1.0541, 1.1161, 1.2693, & +1.0008, 1.0013, 1.0024, 1.0049, 1.0099, 1.0194, 1.0397, 1.0837, 1.1863, & +1.0005, 1.0008, 1.0014, 1.0030, 1.0064, 1.0137, 1.0286, 1.0605, 1.1321 / +data ((supersat( 3,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +1.0026, 1.0046, 1.0080, 1.0159, 1.0333, 1.0742, 1.1770, 1.4838, 2.7346, & +1.0022, 1.0031, 1.0061, 1.0116, 1.0230, 1.0485, 1.1092, 1.2676, 1.8133, & +1.0017, 1.0026, 1.0049, 1.0087, 1.0168, 1.0338, 1.0723, 1.1654, 1.4255, & +1.0012, 1.0022, 1.0037, 1.0068, 1.0126, 1.0246, 1.0507, 1.1103, 1.2599, & +1.0009, 1.0017, 1.0025, 1.0049, 1.0096, 1.0183, 1.0368, 1.0775, 1.1730, & +1.0006, 1.0011, 1.0017, 1.0037, 1.0069, 1.0136, 1.0271, 1.0560, 1.1210, & +1.0004, 1.0007, 1.0012, 1.0023, 1.0047, 1.0096, 1.0197, 1.0407, 1.0866 / +data ((supersat( 3,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +1.0016, 1.0036, 1.0062, 1.0120, 1.0250, 1.0556, 1.1310, 1.3367, 2.0912, & +1.0015, 1.0025, 1.0045, 1.0086, 1.0169, 1.0358, 1.0800, 1.1911, 1.5171, & +1.0014, 1.0015, 1.0038, 1.0064, 1.0123, 1.0245, 1.0521, 1.1177, 1.2882, & +1.0011, 1.0014, 1.0028, 1.0050, 1.0091, 1.0176, 1.0360, 1.0776, 1.1780, & +1.0008, 1.0012, 1.0019, 1.0037, 1.0069, 1.0131, 1.0260, 1.0540, 1.1182, & +1.0005, 1.0007, 1.0014, 1.0028, 1.0051, 1.0098, 1.0191, 1.0388, 1.0824, & +1.0004, 1.0005, 1.0009, 1.0017, 1.0034, 1.0068, 1.0138, 1.0281, 1.0589 / +data ((supersat( 3,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +1.0013, 1.0028, 1.0049, 1.0095, 1.0197, 1.0439, 1.1030, 1.2569, 1.7370, & +1.0007, 1.0022, 1.0036, 1.0068, 1.0131, 1.0276, 1.0619, 1.1464, 1.3760, & +1.0006, 1.0014, 1.0029, 1.0050, 1.0092, 1.0185, 1.0395, 1.0890, 1.2132, & +1.0005, 1.0009, 1.0023, 1.0038, 1.0070, 1.0132, 1.0268, 1.0575, 1.1306, & +1.0004, 1.0008, 1.0017, 1.0027, 1.0050, 1.0097, 1.0190, 1.0393, 1.0854, & +1.0004, 1.0007, 1.0012, 1.0021, 1.0039, 1.0071, 1.0139, 1.0280, 1.0588, & +1.0003, 1.0005, 1.0007, 1.0013, 1.0026, 1.0051, 1.0100, 1.0201, 1.0416 / +data ((supersat( 3,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +1.0015, 1.0020, 1.0039, 1.0078, 1.0161, 1.0362, 1.0848, 1.2084, 1.5626, & +1.0009, 1.0019, 1.0031, 1.0055, 1.0106, 1.0223, 1.0503, 1.1185, 1.2967, & +1.0006, 1.0015, 1.0020, 1.0040, 1.0074, 1.0147, 1.0314, 1.0709, 1.1684, & +1.0005, 1.0011, 1.0018, 1.0031, 1.0055, 1.0103, 1.0208, 1.0448, 1.1016, & +1.0004, 1.0008, 1.0014, 1.0021, 1.0039, 1.0075, 1.0146, 1.0300, 1.0651, & +1.0004, 1.0006, 1.0010, 1.0015, 1.0030, 1.0054, 1.0106, 1.0210, 1.0440, & +1.0003, 1.0004, 1.0006, 1.0011, 1.0020, 1.0039, 1.0075, 1.0150, 1.0307 / +data ((supersat( 3,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +1.0011, 1.0019, 1.0035, 1.0066, 1.0137, 1.0307, 1.0721, 1.1760, 1.4607, & +1.0010, 1.0011, 1.0026, 1.0045, 1.0088, 1.0187, 1.0423, 1.0996, 1.2464, & +1.0008, 1.0010, 1.0019, 1.0032, 1.0061, 1.0121, 1.0259, 1.0588, 1.1393, & +1.0006, 1.0009, 1.0012, 1.0026, 1.0045, 1.0084, 1.0168, 1.0364, 1.0829, & +1.0005, 1.0007, 1.0009, 1.0019, 1.0033, 1.0061, 1.0117, 1.0239, 1.0520, & +1.0003, 1.0005, 1.0007, 1.0013, 1.0024, 1.0043, 1.0084, 1.0165, 1.0344, & +1.0002, 1.0003, 1.0005, 1.0009, 1.0016, 1.0031, 1.0059, 1.0116, 1.0237 / +data ((supersat( 3,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +1.0046, 1.0082, 1.0157, 1.0316, 1.0680, 1.1562, 1.4087, 2.7013, 4.9788, & +1.0035, 1.0063, 1.0116, 1.0230, 1.0474, 1.1034, 1.2448, 1.7118, 4.0038, & +1.0023, 1.0047, 1.0089, 1.0172, 1.0345, 1.0724, 1.1616, 1.4051, 2.5283, & +1.0016, 1.0036, 1.0068, 1.0130, 1.0255, 1.0524, 1.1129, 1.2623, 1.7388, & +1.0012, 1.0024, 1.0046, 1.0093, 1.0187, 1.0383, 1.0810, 1.1807, 1.4517, & +1.0007, 1.0013, 1.0027, 1.0060, 1.0130, 1.0274, 1.0583, 1.1276, 1.3004, & +1.0004, 1.0007, 1.0013, 1.0031, 1.0078, 1.0181, 1.0405, 1.0895, 1.2057 / +data ((supersat( 3,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +1.0034, 1.0060, 1.0110, 1.0218, 1.0463, 1.1044, 1.2570, 1.8018, 3.7105, & +1.0026, 1.0041, 1.0083, 1.0158, 1.0321, 1.0689, 1.1579, 1.4091, 2.5834, & +1.0017, 1.0035, 1.0063, 1.0119, 1.0233, 1.0482, 1.1050, 1.2479, 1.7114, & +1.0012, 1.0027, 1.0048, 1.0089, 1.0173, 1.0350, 1.0737, 1.1645, 1.4112, & +1.0010, 1.0018, 1.0031, 1.0064, 1.0129, 1.0256, 1.0532, 1.1149, 1.2675, & +1.0006, 1.0010, 1.0020, 1.0043, 1.0091, 1.0185, 1.0385, 1.0822, 1.1841, & +1.0004, 1.0006, 1.0011, 1.0024, 1.0055, 1.0125, 1.0271, 1.0585, 1.1293 / +data ((supersat( 3,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +1.0025, 1.0044, 1.0078, 1.0157, 1.0331, 1.0740, 1.1769, 1.4836, 2.7343, & +1.0021, 1.0028, 1.0058, 1.0113, 1.0227, 1.0483, 1.1090, 1.2673, 1.8127, & +1.0015, 1.0025, 1.0047, 1.0084, 1.0164, 1.0334, 1.0720, 1.1650, 1.4250, & +1.0011, 1.0020, 1.0034, 1.0065, 1.0122, 1.0242, 1.0502, 1.1097, 1.2591, & +1.0008, 1.0014, 1.0022, 1.0046, 1.0091, 1.0177, 1.0362, 1.0767, 1.1720, & +1.0005, 1.0008, 1.0015, 1.0032, 1.0063, 1.0129, 1.0263, 1.0550, 1.1197, & +1.0003, 1.0005, 1.0009, 1.0018, 1.0040, 1.0087, 1.0185, 1.0393, 1.0848 / +data ((supersat( 3,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +1.0016, 1.0034, 1.0060, 1.0118, 1.0248, 1.0555, 1.1309, 1.3366, 2.0910, & +1.0015, 1.0022, 1.0042, 1.0084, 1.0167, 1.0356, 1.0799, 1.1909, 1.5169, & +1.0013, 1.0015, 1.0036, 1.0062, 1.0120, 1.0242, 1.0519, 1.1174, 1.2878, & +1.0010, 1.0013, 1.0026, 1.0047, 1.0087, 1.0172, 1.0356, 1.0772, 1.1775, & +1.0007, 1.0010, 1.0017, 1.0034, 1.0065, 1.0126, 1.0255, 1.0534, 1.1175, & +1.0004, 1.0007, 1.0012, 1.0024, 1.0047, 1.0092, 1.0184, 1.0381, 1.0815, & +1.0003, 1.0004, 1.0007, 1.0013, 1.0029, 1.0062, 1.0130, 1.0271, 1.0577 / +data ((supersat( 3,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +1.0011, 1.0027, 1.0048, 1.0093, 1.0195, 1.0438, 1.1029, 1.2567, 1.7368, & +1.0006, 1.0020, 1.0033, 1.0066, 1.0129, 1.0275, 1.0618, 1.1463, 1.3759, & +1.0006, 1.0013, 1.0027, 1.0048, 1.0090, 1.0183, 1.0393, 1.0888, 1.2129, & +1.0005, 1.0009, 1.0021, 1.0035, 1.0067, 1.0129, 1.0264, 1.0572, 1.1303, & +1.0004, 1.0007, 1.0015, 1.0025, 1.0048, 1.0093, 1.0186, 1.0389, 1.0850, & +1.0004, 1.0006, 1.0010, 1.0018, 1.0035, 1.0067, 1.0134, 1.0274, 1.0581, & +1.0002, 1.0004, 1.0006, 1.0011, 1.0022, 1.0045, 1.0093, 1.0193, 1.0407 / +data ((supersat( 3,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +1.0013, 1.0020, 1.0038, 1.0076, 1.0160, 1.0361, 1.0847, 1.2083, 1.5626, & +1.0008, 1.0018, 1.0029, 1.0053, 1.0104, 1.0222, 1.0502, 1.1184, 1.2966, & +1.0005, 1.0014, 1.0020, 1.0038, 1.0072, 1.0145, 1.0312, 1.0707, 1.1682, & +1.0005, 1.0010, 1.0017, 1.0029, 1.0053, 1.0101, 1.0205, 1.0446, 1.1014, & +1.0004, 1.0007, 1.0013, 1.0019, 1.0037, 1.0072, 1.0142, 1.0296, 1.0648, & +1.0003, 1.0005, 1.0008, 1.0013, 1.0027, 1.0051, 1.0101, 1.0205, 1.0434, & +1.0002, 1.0003, 1.0005, 1.0009, 1.0017, 1.0034, 1.0070, 1.0143, 1.0300 / +data ((supersat( 3,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +1.0010, 1.0018, 1.0033, 1.0064, 1.0136, 1.0307, 1.0721, 1.1759, 1.4607, & +1.0009, 1.0011, 1.0025, 1.0044, 1.0087, 1.0186, 1.0422, 1.0996, 1.2463, & +1.0008, 1.0010, 1.0017, 1.0030, 1.0059, 1.0119, 1.0258, 1.0587, 1.1392, & +1.0006, 1.0008, 1.0011, 1.0025, 1.0043, 1.0081, 1.0166, 1.0362, 1.0827, & +1.0004, 1.0006, 1.0008, 1.0018, 1.0030, 1.0058, 1.0114, 1.0236, 1.0517, & +1.0003, 1.0004, 1.0007, 1.0012, 1.0021, 1.0040, 1.0080, 1.0161, 1.0340, & +1.0002, 1.0003, 1.0004, 1.0007, 1.0013, 1.0027, 1.0054, 1.0111, 1.0230 / +data ((supersat( 3,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +1.0045, 1.0080, 1.0155, 1.0314, 1.0677, 1.1560, 1.4084, 2.7006, 4.9779, & +1.0033, 1.0060, 1.0113, 1.0227, 1.0471, 1.1031, 1.2444, 1.7111, 4.0015, & +1.0022, 1.0045, 1.0085, 1.0168, 1.0341, 1.0720, 1.1610, 1.4042, 2.5261, & +1.0015, 1.0033, 1.0064, 1.0125, 1.0250, 1.0518, 1.1121, 1.2611, 1.7365, & +1.0010, 1.0021, 1.0042, 1.0088, 1.0181, 1.0375, 1.0800, 1.1792, 1.4491, & +1.0006, 1.0011, 1.0023, 1.0054, 1.0122, 1.0263, 1.0569, 1.1257, 1.2972, & +1.0004, 1.0006, 1.0011, 1.0025, 1.0068, 1.0169, 1.0388, 1.0871, 1.2018 / +data ((supersat( 3,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +1.0033, 1.0058, 1.0108, 1.0216, 1.0461, 1.1042, 1.2568, 1.8016, 3.7099, & +1.0024, 1.0038, 1.0081, 1.0156, 1.0319, 1.0687, 1.1577, 1.4088, 2.5825, & +1.0016, 1.0033, 1.0061, 1.0116, 1.0229, 1.0479, 1.1047, 1.2474, 1.7106, & +1.0012, 1.0025, 1.0045, 1.0086, 1.0170, 1.0345, 1.0732, 1.1639, 1.4102, & +1.0008, 1.0016, 1.0029, 1.0061, 1.0124, 1.0251, 1.0525, 1.1141, 1.2661, & +1.0005, 1.0009, 1.0018, 1.0039, 1.0085, 1.0178, 1.0376, 1.0811, 1.1824, & +1.0003, 1.0005, 1.0009, 1.0020, 1.0049, 1.0117, 1.0260, 1.0570, 1.1271 / +data ((supersat( 3,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +1.0024, 1.0042, 1.0077, 1.0155, 1.0329, 1.0739, 1.1768, 1.4835, 2.7339, & +1.0020, 1.0026, 1.0056, 1.0111, 1.0225, 1.0481, 1.1088, 1.2671, 1.8125, & +1.0014, 1.0024, 1.0045, 1.0081, 1.0162, 1.0332, 1.0718, 1.1647, 1.4246, & +1.0010, 1.0019, 1.0032, 1.0062, 1.0119, 1.0238, 1.0498, 1.1093, 1.2586, & +1.0007, 1.0012, 1.0021, 1.0044, 1.0087, 1.0173, 1.0357, 1.0761, 1.1712, & +1.0004, 1.0007, 1.0014, 1.0029, 1.0059, 1.0124, 1.0256, 1.0542, 1.1186, & +1.0003, 1.0004, 1.0007, 1.0015, 1.0035, 1.0081, 1.0177, 1.0383, 1.0834 / +data ((supersat( 3,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +1.0016, 1.0033, 1.0059, 1.0117, 1.0247, 1.0554, 1.1309, 1.3365, 2.0909, & +1.0014, 1.0021, 1.0041, 1.0082, 1.0165, 1.0354, 1.0798, 1.1908, 1.5167, & +1.0012, 1.0015, 1.0034, 1.0061, 1.0118, 1.0240, 1.0517, 1.1173, 1.2876, & +1.0009, 1.0013, 1.0024, 1.0044, 1.0085, 1.0170, 1.0354, 1.0769, 1.1772, & +1.0006, 1.0009, 1.0016, 1.0032, 1.0062, 1.0123, 1.0251, 1.0530, 1.1170, & +1.0004, 1.0006, 1.0011, 1.0022, 1.0044, 1.0088, 1.0180, 1.0375, 1.0808, & +1.0002, 1.0004, 1.0006, 1.0012, 1.0026, 1.0057, 1.0124, 1.0263, 1.0567 / +data ((supersat( 3,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +1.0010, 1.0026, 1.0047, 1.0091, 1.0194, 1.0437, 1.1028, 1.2567, 1.7368, & +1.0006, 1.0018, 1.0032, 1.0064, 1.0128, 1.0274, 1.0617, 1.1462, 1.3758, & +1.0005, 1.0012, 1.0026, 1.0047, 1.0089, 1.0181, 1.0392, 1.0887, 1.2128, & +1.0004, 1.0008, 1.0020, 1.0034, 1.0065, 1.0127, 1.0262, 1.0570, 1.1301, & +1.0004, 1.0007, 1.0014, 1.0024, 1.0046, 1.0091, 1.0183, 1.0386, 1.0846, & +1.0003, 1.0005, 1.0009, 1.0016, 1.0033, 1.0063, 1.0130, 1.0269, 1.0576, & +1.0002, 1.0003, 1.0005, 1.0009, 1.0019, 1.0042, 1.0088, 1.0187, 1.0400 / +data ((supersat( 3,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +1.0012, 1.0020, 1.0038, 1.0075, 1.0159, 1.0360, 1.0847, 1.2083, 1.5626, & +1.0008, 1.0017, 1.0027, 1.0052, 1.0102, 1.0221, 1.0501, 1.1183, 1.2965, & +1.0005, 1.0013, 1.0019, 1.0037, 1.0071, 1.0143, 1.0311, 1.0706, 1.1681, & +1.0005, 1.0009, 1.0016, 1.0028, 1.0051, 1.0099, 1.0204, 1.0444, 1.1013, & +1.0004, 1.0006, 1.0011, 1.0018, 1.0035, 1.0070, 1.0140, 1.0294, 1.0645, & +1.0003, 1.0004, 1.0007, 1.0012, 1.0025, 1.0049, 1.0098, 1.0202, 1.0430, & +1.0002, 1.0003, 1.0004, 1.0007, 1.0014, 1.0031, 1.0066, 1.0138, 1.0294 / +data ((supersat( 3,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +1.0010, 1.0017, 1.0031, 1.0063, 1.0135, 1.0306, 1.0721, 1.1759, 1.4606, & +1.0009, 1.0011, 1.0024, 1.0043, 1.0086, 1.0185, 1.0421, 1.0995, 1.2462, & +1.0007, 1.0010, 1.0016, 1.0029, 1.0058, 1.0118, 1.0257, 1.0586, 1.1392, & +1.0005, 1.0008, 1.0010, 1.0023, 1.0042, 1.0080, 1.0165, 1.0361, 1.0826, & +1.0003, 1.0005, 1.0008, 1.0016, 1.0029, 1.0056, 1.0111, 1.0234, 1.0515, & +1.0002, 1.0004, 1.0006, 1.0011, 1.0019, 1.0038, 1.0077, 1.0158, 1.0337, & +1.0002, 1.0002, 1.0004, 1.0006, 1.0012, 1.0024, 1.0051, 1.0107, 1.0226 / +data ((supersat( 3,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +1.0044, 1.0079, 1.0153, 1.0312, 1.0676, 1.1558, 1.4081, 2.7000, 4.9771, & +1.0032, 1.0058, 1.0112, 1.0225, 1.0469, 1.1028, 1.2440, 1.7105, 3.9998, & +1.0021, 1.0044, 1.0082, 1.0166, 1.0338, 1.0716, 1.1606, 1.4035, 2.5241, & +1.0014, 1.0031, 1.0061, 1.0122, 1.0246, 1.0513, 1.1115, 1.2602, 1.7346, & +1.0009, 1.0018, 1.0039, 1.0084, 1.0175, 1.0368, 1.0792, 1.1780, 1.4468, & +1.0005, 1.0009, 1.0020, 1.0049, 1.0115, 1.0255, 1.0558, 1.1241, 1.2945, & +1.0003, 1.0005, 1.0009, 1.0021, 1.0061, 1.0159, 1.0374, 1.0851, 1.1986 / +data ((supersat( 3,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +1.0032, 1.0057, 1.0107, 1.0215, 1.0460, 1.1041, 1.2567, 1.8013, 3.7094, & +1.0023, 1.0037, 1.0079, 1.0154, 1.0317, 1.0685, 1.1575, 1.4085, 2.5819, & +1.0015, 1.0032, 1.0060, 1.0114, 1.0227, 1.0476, 1.1044, 1.2470, 1.7099, & +1.0011, 1.0023, 1.0043, 1.0084, 1.0167, 1.0342, 1.0728, 1.1633, 1.4093, & +1.0007, 1.0014, 1.0027, 1.0058, 1.0120, 1.0246, 1.0519, 1.1134, 1.2650, & +1.0004, 1.0008, 1.0016, 1.0035, 1.0080, 1.0173, 1.0369, 1.0801, 1.1810, & +1.0003, 1.0004, 1.0008, 1.0017, 1.0044, 1.0109, 1.0251, 1.0558, 1.1253 / +data ((supersat( 3,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +1.0024, 1.0041, 1.0076, 1.0154, 1.0329, 1.0738, 1.1767, 1.4834, 2.7337, & +1.0019, 1.0026, 1.0054, 1.0110, 1.0224, 1.0480, 1.1087, 1.2669, 1.8123, & +1.0013, 1.0023, 1.0044, 1.0079, 1.0160, 1.0330, 1.0716, 1.1645, 1.4243, & +1.0009, 1.0018, 1.0030, 1.0060, 1.0117, 1.0236, 1.0496, 1.1090, 1.2581, & +1.0006, 1.0011, 1.0020, 1.0041, 1.0085, 1.0169, 1.0353, 1.0757, 1.1705, & +1.0004, 1.0006, 1.0012, 1.0026, 1.0056, 1.0120, 1.0251, 1.0536, 1.1178, & +1.0002, 1.0004, 1.0006, 1.0013, 1.0031, 1.0076, 1.0171, 1.0375, 1.0823 / +data ((supersat( 3,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +1.0015, 1.0032, 1.0058, 1.0116, 1.0246, 1.0553, 1.1308, 1.3364, 2.0909, & +1.0014, 1.0020, 1.0041, 1.0081, 1.0164, 1.0353, 1.0797, 1.1907, 1.5166, & +1.0011, 1.0014, 1.0033, 1.0060, 1.0116, 1.0239, 1.0516, 1.1171, 1.2874, & +1.0008, 1.0012, 1.0023, 1.0043, 1.0083, 1.0168, 1.0352, 1.0767, 1.1769, & +1.0005, 1.0008, 1.0015, 1.0031, 1.0059, 1.0121, 1.0248, 1.0527, 1.1166, & +1.0003, 1.0005, 1.0010, 1.0020, 1.0041, 1.0085, 1.0176, 1.0370, 1.0802, & +1.0002, 1.0003, 1.0005, 1.0010, 1.0023, 1.0053, 1.0119, 1.0257, 1.0559 / +data ((supersat( 3,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +1.0010, 1.0026, 1.0046, 1.0091, 1.0194, 1.0437, 1.1028, 1.2566, 1.7367, & +1.0006, 1.0018, 1.0031, 1.0063, 1.0127, 1.0273, 1.0617, 1.1462, 1.3757, & +1.0005, 1.0011, 1.0026, 1.0046, 1.0088, 1.0180, 1.0390, 1.0886, 1.2127, & +1.0004, 1.0008, 1.0019, 1.0032, 1.0064, 1.0125, 1.0261, 1.0568, 1.1299, & +1.0004, 1.0007, 1.0013, 1.0023, 1.0045, 1.0088, 1.0181, 1.0383, 1.0843, & +1.0003, 1.0004, 1.0008, 1.0014, 1.0031, 1.0061, 1.0127, 1.0266, 1.0572, & +1.0002, 1.0003, 1.0004, 1.0008, 1.0017, 1.0039, 1.0085, 1.0183, 1.0394 / +data ((supersat( 3,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +1.0012, 1.0019, 1.0037, 1.0074, 1.0158, 1.0360, 1.0847, 1.2082, 1.5625, & +1.0007, 1.0016, 1.0026, 1.0051, 1.0102, 1.0220, 1.0501, 1.1183, 1.2965, & +1.0005, 1.0012, 1.0019, 1.0037, 1.0070, 1.0142, 1.0310, 1.0706, 1.1680, & +1.0004, 1.0008, 1.0015, 1.0027, 1.0050, 1.0097, 1.0202, 1.0443, 1.1011, & +1.0004, 1.0006, 1.0010, 1.0017, 1.0034, 1.0069, 1.0138, 1.0292, 1.0643, & +1.0002, 1.0004, 1.0006, 1.0011, 1.0023, 1.0046, 1.0096, 1.0199, 1.0427, & +1.0002, 1.0002, 1.0004, 1.0006, 1.0013, 1.0029, 1.0063, 1.0135, 1.0290 / +data ((supersat( 3,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +1.0010, 1.0016, 1.0031, 1.0062, 1.0134, 1.0306, 1.0720, 1.1759, 1.4606, & +1.0009, 1.0010, 1.0023, 1.0042, 1.0085, 1.0184, 1.0421, 1.0995, 1.2462, & +1.0007, 1.0009, 1.0015, 1.0029, 1.0057, 1.0117, 1.0256, 1.0585, 1.1391, & +1.0005, 1.0007, 1.0010, 1.0023, 1.0041, 1.0078, 1.0164, 1.0360, 1.0825, & +1.0003, 1.0004, 1.0007, 1.0015, 1.0027, 1.0055, 1.0110, 1.0232, 1.0514, & +1.0002, 1.0003, 1.0005, 1.0010, 1.0018, 1.0036, 1.0075, 1.0155, 1.0334, & +1.0001, 1.0002, 1.0003, 1.0005, 1.0010, 1.0022, 1.0048, 1.0104, 1.0222 / +data ((supersat( 4,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +1.0049, 1.0084, 1.0160, 1.0319, 1.0682, 1.1565, 1.4091, 2.7024, 4.9806, & +1.0038, 1.0067, 1.0120, 1.0234, 1.0478, 1.1038, 1.2453, 1.7128, 4.0072, & +1.0026, 1.0049, 1.0094, 1.0176, 1.0350, 1.0730, 1.1624, 1.4064, 2.5316, & +1.0018, 1.0040, 1.0073, 1.0135, 1.0262, 1.0533, 1.1140, 1.2639, 1.7421, & +1.0014, 1.0028, 1.0052, 1.0100, 1.0196, 1.0394, 1.0825, 1.1828, 1.4556, & +1.0009, 1.0016, 1.0033, 1.0069, 1.0141, 1.0289, 1.0602, 1.1304, 1.3050, & +1.0006, 1.0009, 1.0018, 1.0040, 1.0091, 1.0200, 1.0429, 1.0931, 1.2114 / +data ((supersat( 4,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +1.0036, 1.0062, 1.0113, 1.0220, 1.0465, 1.1046, 1.2572, 1.8021, 3.7115, & +1.0028, 1.0044, 1.0086, 1.0162, 1.0324, 1.0692, 1.1583, 1.4096, 2.5846, & +1.0019, 1.0036, 1.0066, 1.0122, 1.0237, 1.0486, 1.1055, 1.2486, 1.7126, & +1.0014, 1.0030, 1.0052, 1.0093, 1.0178, 1.0355, 1.0743, 1.1654, 1.4127, & +1.0011, 1.0021, 1.0035, 1.0070, 1.0135, 1.0264, 1.0541, 1.1162, 1.2693, & +1.0008, 1.0013, 1.0024, 1.0049, 1.0099, 1.0195, 1.0398, 1.0838, 1.1866, & +1.0005, 1.0008, 1.0014, 1.0030, 1.0064, 1.0138, 1.0287, 1.0607, 1.1324 / +data ((supersat( 4,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +1.0026, 1.0046, 1.0080, 1.0159, 1.0333, 1.0742, 1.1770, 1.4838, 2.7347, & +1.0022, 1.0031, 1.0061, 1.0116, 1.0229, 1.0485, 1.1092, 1.2675, 1.8132, & +1.0017, 1.0026, 1.0049, 1.0087, 1.0167, 1.0337, 1.0723, 1.1654, 1.4255, & +1.0012, 1.0022, 1.0037, 1.0068, 1.0126, 1.0246, 1.0507, 1.1103, 1.2599, & +1.0009, 1.0017, 1.0025, 1.0049, 1.0096, 1.0183, 1.0368, 1.0775, 1.1731, & +1.0006, 1.0011, 1.0017, 1.0037, 1.0069, 1.0136, 1.0271, 1.0561, 1.1211, & +1.0004, 1.0007, 1.0012, 1.0023, 1.0047, 1.0096, 1.0197, 1.0407, 1.0868 / +data ((supersat( 4,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +1.0016, 1.0036, 1.0062, 1.0120, 1.0250, 1.0556, 1.1310, 1.3367, 2.0912, & +1.0015, 1.0025, 1.0045, 1.0086, 1.0169, 1.0357, 1.0800, 1.1910, 1.5171, & +1.0014, 1.0016, 1.0038, 1.0064, 1.0123, 1.0245, 1.0521, 1.1177, 1.2882, & +1.0011, 1.0014, 1.0028, 1.0050, 1.0091, 1.0176, 1.0360, 1.0776, 1.1780, & +1.0008, 1.0012, 1.0019, 1.0037, 1.0069, 1.0131, 1.0260, 1.0540, 1.1182, & +1.0005, 1.0007, 1.0014, 1.0028, 1.0051, 1.0098, 1.0191, 1.0388, 1.0825, & +1.0004, 1.0005, 1.0009, 1.0017, 1.0034, 1.0069, 1.0138, 1.0282, 1.0590 / +data ((supersat( 4,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +1.0013, 1.0028, 1.0049, 1.0095, 1.0197, 1.0439, 1.1030, 1.2568, 1.7368, & +1.0007, 1.0022, 1.0036, 1.0067, 1.0131, 1.0276, 1.0619, 1.1464, 1.3760, & +1.0006, 1.0014, 1.0029, 1.0050, 1.0092, 1.0185, 1.0395, 1.0890, 1.2131, & +1.0005, 1.0009, 1.0023, 1.0038, 1.0070, 1.0131, 1.0267, 1.0575, 1.1306, & +1.0004, 1.0008, 1.0017, 1.0027, 1.0050, 1.0097, 1.0190, 1.0393, 1.0854, & +1.0004, 1.0007, 1.0012, 1.0021, 1.0039, 1.0071, 1.0139, 1.0280, 1.0588, & +1.0003, 1.0005, 1.0007, 1.0013, 1.0026, 1.0051, 1.0100, 1.0201, 1.0417 / +data ((supersat( 4,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +1.0014, 1.0020, 1.0039, 1.0078, 1.0161, 1.0362, 1.0848, 1.2084, 1.5626, & +1.0009, 1.0018, 1.0030, 1.0055, 1.0105, 1.0223, 1.0503, 1.1185, 1.2967, & +1.0006, 1.0015, 1.0020, 1.0040, 1.0074, 1.0147, 1.0313, 1.0709, 1.1683, & +1.0005, 1.0011, 1.0018, 1.0031, 1.0055, 1.0103, 1.0208, 1.0448, 1.1016, & +1.0004, 1.0008, 1.0014, 1.0021, 1.0039, 1.0075, 1.0146, 1.0300, 1.0651, & +1.0004, 1.0006, 1.0010, 1.0015, 1.0030, 1.0054, 1.0106, 1.0210, 1.0440, & +1.0003, 1.0004, 1.0006, 1.0011, 1.0020, 1.0039, 1.0075, 1.0150, 1.0307 / +data ((supersat( 4,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +1.0011, 1.0019, 1.0034, 1.0066, 1.0137, 1.0307, 1.0721, 1.1759, 1.4607, & +1.0010, 1.0011, 1.0026, 1.0045, 1.0088, 1.0187, 1.0423, 1.0996, 1.2463, & +1.0008, 1.0010, 1.0019, 1.0032, 1.0061, 1.0121, 1.0259, 1.0588, 1.1393, & +1.0006, 1.0009, 1.0012, 1.0026, 1.0045, 1.0084, 1.0168, 1.0364, 1.0829, & +1.0005, 1.0007, 1.0009, 1.0019, 1.0033, 1.0061, 1.0117, 1.0239, 1.0520, & +1.0003, 1.0005, 1.0007, 1.0013, 1.0024, 1.0043, 1.0084, 1.0165, 1.0344, & +1.0002, 1.0003, 1.0005, 1.0009, 1.0016, 1.0031, 1.0059, 1.0116, 1.0237 / +data ((supersat( 4,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +1.0045, 1.0080, 1.0155, 1.0314, 1.0677, 1.1560, 1.4084, 2.7007, 4.9781, & +1.0033, 1.0060, 1.0113, 1.0227, 1.0471, 1.1031, 1.2443, 1.7112, 4.0020, & +1.0022, 1.0045, 1.0085, 1.0168, 1.0341, 1.0720, 1.1611, 1.4044, 2.5264, & +1.0015, 1.0033, 1.0064, 1.0125, 1.0250, 1.0519, 1.1122, 1.2612, 1.7368, & +1.0010, 1.0021, 1.0042, 1.0088, 1.0181, 1.0375, 1.0801, 1.1794, 1.4495, & +1.0006, 1.0011, 1.0023, 1.0054, 1.0122, 1.0264, 1.0570, 1.1260, 1.2977, & +1.0004, 1.0006, 1.0011, 1.0025, 1.0069, 1.0170, 1.0390, 1.0874, 1.2023 / +data ((supersat( 4,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +1.0033, 1.0058, 1.0108, 1.0216, 1.0461, 1.1042, 1.2568, 1.8015, 3.7099, & +1.0024, 1.0038, 1.0081, 1.0156, 1.0319, 1.0687, 1.1577, 1.4088, 2.5828, & +1.0016, 1.0033, 1.0061, 1.0116, 1.0229, 1.0479, 1.1047, 1.2474, 1.7107, & +1.0012, 1.0025, 1.0045, 1.0086, 1.0170, 1.0345, 1.0732, 1.1639, 1.4103, & +1.0008, 1.0016, 1.0029, 1.0061, 1.0124, 1.0251, 1.0525, 1.1142, 1.2663, & +1.0005, 1.0009, 1.0018, 1.0039, 1.0085, 1.0179, 1.0377, 1.0812, 1.1826, & +1.0003, 1.0005, 1.0009, 1.0020, 1.0049, 1.0117, 1.0261, 1.0572, 1.1274 / +data ((supersat( 4,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +1.0024, 1.0042, 1.0077, 1.0155, 1.0329, 1.0739, 1.1768, 1.4835, 2.7340, & +1.0020, 1.0026, 1.0056, 1.0111, 1.0225, 1.0481, 1.1088, 1.2670, 1.8125, & +1.0014, 1.0024, 1.0045, 1.0081, 1.0162, 1.0332, 1.0718, 1.1647, 1.4246, & +1.0010, 1.0019, 1.0032, 1.0062, 1.0119, 1.0238, 1.0498, 1.1094, 1.2586, & +1.0007, 1.0012, 1.0021, 1.0044, 1.0088, 1.0173, 1.0357, 1.0762, 1.1712, & +1.0004, 1.0007, 1.0014, 1.0029, 1.0059, 1.0124, 1.0257, 1.0543, 1.1188, & +1.0003, 1.0004, 1.0007, 1.0015, 1.0035, 1.0081, 1.0178, 1.0384, 1.0836 / +data ((supersat( 4,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +1.0016, 1.0033, 1.0059, 1.0117, 1.0247, 1.0554, 1.1308, 1.3365, 2.0910, & +1.0014, 1.0021, 1.0041, 1.0082, 1.0165, 1.0354, 1.0797, 1.1907, 1.5167, & +1.0012, 1.0015, 1.0034, 1.0061, 1.0118, 1.0240, 1.0517, 1.1173, 1.2876, & +1.0009, 1.0013, 1.0024, 1.0044, 1.0085, 1.0170, 1.0354, 1.0769, 1.1772, & +1.0006, 1.0009, 1.0016, 1.0032, 1.0062, 1.0123, 1.0251, 1.0530, 1.1171, & +1.0004, 1.0006, 1.0011, 1.0022, 1.0044, 1.0088, 1.0180, 1.0375, 1.0809, & +1.0002, 1.0004, 1.0006, 1.0012, 1.0026, 1.0057, 1.0124, 1.0264, 1.0568 / +data ((supersat( 4,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +1.0010, 1.0026, 1.0047, 1.0091, 1.0194, 1.0437, 1.1029, 1.2567, 1.7367, & +1.0006, 1.0019, 1.0032, 1.0064, 1.0127, 1.0274, 1.0617, 1.1462, 1.3758, & +1.0005, 1.0012, 1.0026, 1.0047, 1.0089, 1.0181, 1.0392, 1.0887, 1.2128, & +1.0004, 1.0008, 1.0020, 1.0034, 1.0065, 1.0127, 1.0262, 1.0570, 1.1301, & +1.0004, 1.0007, 1.0014, 1.0024, 1.0046, 1.0091, 1.0183, 1.0386, 1.0846, & +1.0003, 1.0005, 1.0009, 1.0016, 1.0033, 1.0063, 1.0130, 1.0269, 1.0576, & +1.0002, 1.0003, 1.0005, 1.0009, 1.0019, 1.0042, 1.0089, 1.0188, 1.0401 / +data ((supersat( 4,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +1.0012, 1.0020, 1.0038, 1.0075, 1.0159, 1.0360, 1.0847, 1.2083, 1.5626, & +1.0007, 1.0017, 1.0027, 1.0052, 1.0102, 1.0221, 1.0501, 1.1183, 1.2965, & +1.0005, 1.0013, 1.0019, 1.0037, 1.0071, 1.0143, 1.0311, 1.0706, 1.1681, & +1.0005, 1.0009, 1.0016, 1.0028, 1.0051, 1.0099, 1.0204, 1.0444, 1.1013, & +1.0004, 1.0006, 1.0011, 1.0018, 1.0035, 1.0070, 1.0140, 1.0294, 1.0645, & +1.0003, 1.0004, 1.0007, 1.0012, 1.0025, 1.0049, 1.0098, 1.0202, 1.0431, & +1.0002, 1.0003, 1.0004, 1.0007, 1.0014, 1.0031, 1.0066, 1.0139, 1.0294 / +data ((supersat( 4,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +1.0010, 1.0017, 1.0032, 1.0063, 1.0135, 1.0306, 1.0721, 1.1759, 1.4606, & +1.0009, 1.0011, 1.0024, 1.0043, 1.0086, 1.0185, 1.0421, 1.0995, 1.2462, & +1.0007, 1.0010, 1.0016, 1.0029, 1.0058, 1.0118, 1.0257, 1.0586, 1.1391, & +1.0005, 1.0008, 1.0010, 1.0023, 1.0042, 1.0080, 1.0165, 1.0361, 1.0826, & +1.0003, 1.0005, 1.0008, 1.0016, 1.0029, 1.0056, 1.0111, 1.0234, 1.0516, & +1.0002, 1.0004, 1.0006, 1.0011, 1.0019, 1.0038, 1.0077, 1.0158, 1.0337, & +1.0002, 1.0002, 1.0004, 1.0006, 1.0012, 1.0024, 1.0051, 1.0107, 1.0226 / +data ((supersat( 4,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +1.0041, 1.0076, 1.0149, 1.0309, 1.0673, 1.1554, 1.4076, 2.6987, 4.9749, & +1.0028, 1.0054, 1.0108, 1.0221, 1.0464, 1.1023, 1.2432, 1.7092, 3.9956, & +1.0018, 1.0040, 1.0077, 1.0160, 1.0331, 1.0708, 1.1595, 1.4019, 2.5200, & +1.0012, 1.0026, 1.0055, 1.0114, 1.0237, 1.0503, 1.1101, 1.2581, 1.7303, & +1.0007, 1.0013, 1.0032, 1.0075, 1.0164, 1.0354, 1.0774, 1.1752, 1.4420, & +1.0004, 1.0007, 1.0014, 1.0039, 1.0101, 1.0237, 1.0535, 1.1207, 1.2887, & +1.0003, 1.0004, 1.0007, 1.0014, 1.0046, 1.0137, 1.0343, 1.0807, 1.1913 / +data ((supersat( 4,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +1.0030, 1.0054, 1.0104, 1.0212, 1.0458, 1.1039, 1.2564, 1.8009, 3.7082, & +1.0021, 1.0036, 1.0076, 1.0150, 1.0314, 1.0682, 1.1571, 1.4079, 2.5804, & +1.0014, 1.0029, 1.0056, 1.0110, 1.0223, 1.0471, 1.1038, 1.2462, 1.7084, & +1.0010, 1.0020, 1.0038, 1.0079, 1.0161, 1.0334, 1.0719, 1.1621, 1.4074, & +1.0006, 1.0010, 1.0023, 1.0051, 1.0112, 1.0237, 1.0508, 1.1118, 1.2626, & +1.0003, 1.0006, 1.0011, 1.0028, 1.0071, 1.0161, 1.0354, 1.0781, 1.1778, & +1.0002, 1.0003, 1.0006, 1.0012, 1.0033, 1.0094, 1.0231, 1.0531, 1.1213 / +data ((supersat( 4,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +1.0022, 1.0039, 1.0074, 1.0152, 1.0327, 1.0737, 1.1765, 1.4832, 2.7331, & +1.0017, 1.0025, 1.0052, 1.0107, 1.0221, 1.0478, 1.1084, 1.2666, 1.8117, & +1.0011, 1.0021, 1.0041, 1.0076, 1.0156, 1.0326, 1.0712, 1.1639, 1.4235, & +1.0008, 1.0015, 1.0027, 1.0056, 1.0112, 1.0231, 1.0490, 1.1083, 1.2570, & +1.0005, 1.0008, 1.0017, 1.0037, 1.0079, 1.0163, 1.0345, 1.0747, 1.1691, & +1.0003, 1.0005, 1.0009, 1.0021, 1.0049, 1.0111, 1.0241, 1.0522, 1.1159, & +1.0002, 1.0003, 1.0005, 1.0009, 1.0024, 1.0065, 1.0157, 1.0357, 1.0798 / +data ((supersat( 4,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +1.0015, 1.0030, 1.0057, 1.0114, 1.0245, 1.0552, 1.1307, 1.3363, 2.0905, & +1.0013, 1.0018, 1.0039, 1.0079, 1.0162, 1.0351, 1.0795, 1.1904, 1.5162, & +1.0010, 1.0014, 1.0031, 1.0057, 1.0113, 1.0236, 1.0513, 1.1168, 1.2870, & +1.0006, 1.0010, 1.0020, 1.0039, 1.0080, 1.0164, 1.0347, 1.0762, 1.1762, & +1.0004, 1.0007, 1.0013, 1.0027, 1.0055, 1.0116, 1.0242, 1.0520, 1.1157, & +1.0002, 1.0004, 1.0007, 1.0015, 1.0036, 1.0078, 1.0168, 1.0361, 1.0790, & +1.0002, 1.0002, 1.0004, 1.0007, 1.0017, 1.0045, 1.0108, 1.0244, 1.0543 / +data ((supersat( 4,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +1.0009, 1.0024, 1.0044, 1.0089, 1.0192, 1.0436, 1.1027, 1.2566, 1.7365, & +1.0006, 1.0016, 1.0029, 1.0061, 1.0125, 1.0271, 1.0616, 1.1460, 1.3755, & +1.0005, 1.0010, 1.0024, 1.0044, 1.0085, 1.0178, 1.0388, 1.0884, 1.2124, & +1.0004, 1.0008, 1.0017, 1.0030, 1.0061, 1.0122, 1.0257, 1.0565, 1.1295, & +1.0003, 1.0006, 1.0011, 1.0020, 1.0041, 1.0084, 1.0176, 1.0378, 1.0837, & +1.0002, 1.0003, 1.0006, 1.0012, 1.0026, 1.0056, 1.0120, 1.0258, 1.0563, & +1.0001, 1.0002, 1.0003, 1.0006, 1.0013, 1.0032, 1.0076, 1.0173, 1.0382 / +data ((supersat( 4,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +1.0010, 1.0019, 1.0036, 1.0072, 1.0157, 1.0359, 1.0846, 1.2082, 1.5624, & +1.0006, 1.0015, 1.0024, 1.0049, 1.0100, 1.0219, 1.0500, 1.1182, 1.2963, & +1.0005, 1.0011, 1.0018, 1.0035, 1.0068, 1.0140, 1.0308, 1.0704, 1.1678, & +1.0004, 1.0007, 1.0013, 1.0024, 1.0048, 1.0095, 1.0200, 1.0440, 1.1008, & +1.0003, 1.0005, 1.0008, 1.0015, 1.0031, 1.0065, 1.0134, 1.0288, 1.0639, & +1.0002, 1.0003, 1.0005, 1.0009, 1.0020, 1.0042, 1.0090, 1.0193, 1.0421, & +1.0001, 1.0002, 1.0003, 1.0005, 1.0010, 1.0023, 1.0056, 1.0126, 1.0280 / +data ((supersat( 4,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +1.0010, 1.0014, 1.0029, 1.0061, 1.0133, 1.0305, 1.0720, 1.1758, 1.4606, & +1.0008, 1.0010, 1.0022, 1.0041, 1.0083, 1.0183, 1.0420, 1.0994, 1.2461, & +1.0006, 1.0009, 1.0014, 1.0028, 1.0056, 1.0115, 1.0255, 1.0584, 1.1389, & +1.0004, 1.0006, 1.0009, 1.0021, 1.0039, 1.0076, 1.0161, 1.0358, 1.0823, & +1.0002, 1.0004, 1.0007, 1.0013, 1.0025, 1.0052, 1.0106, 1.0229, 1.0511, & +1.0002, 1.0003, 1.0004, 1.0007, 1.0015, 1.0033, 1.0070, 1.0150, 1.0329, & +1.0001, 1.0002, 1.0003, 1.0004, 1.0008, 1.0018, 1.0043, 1.0097, 1.0214 / +data ((supersat( 4,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +1.0038, 1.0072, 1.0144, 1.0304, 1.0667, 1.1548, 1.4067, 2.6962, 4.9709, & +1.0024, 1.0048, 1.0103, 1.0214, 1.0456, 1.1013, 1.2419, 1.7069, 3.9877, & +1.0015, 1.0034, 1.0070, 1.0151, 1.0320, 1.0695, 1.1577, 1.3989, 2.5123, & +1.0008, 1.0019, 1.0046, 1.0102, 1.0223, 1.0485, 1.1076, 1.2542, 1.7223, & +1.0004, 1.0008, 1.0022, 1.0060, 1.0146, 1.0331, 1.0741, 1.1702, 1.4327, & +1.0003, 1.0004, 1.0008, 1.0024, 1.0079, 1.0207, 1.0492, 1.1142, 1.2776, & +1.0002, 1.0003, 1.0005, 1.0009, 1.0025, 1.0102, 1.0292, 1.0727, 1.1779 / +data ((supersat( 4,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +1.0027, 1.0050, 1.0100, 1.0209, 1.0454, 1.1035, 1.2559, 1.8001, 3.7059, & +1.0018, 1.0034, 1.0071, 1.0145, 1.0309, 1.0676, 1.1563, 1.4068, 2.5776, & +1.0011, 1.0025, 1.0051, 1.0104, 1.0215, 1.0463, 1.1027, 1.2447, 1.7056, & +1.0007, 1.0015, 1.0032, 1.0071, 1.0151, 1.0323, 1.0704, 1.1600, 1.4039, & +1.0004, 1.0007, 1.0017, 1.0042, 1.0099, 1.0222, 1.0488, 1.1090, 1.2581, & +1.0002, 1.0004, 1.0007, 1.0018, 1.0055, 1.0140, 1.0328, 1.0743, 1.1720, & +1.0002, 1.0002, 1.0004, 1.0007, 1.0019, 1.0070, 1.0197, 1.0483, 1.1139 / +data ((supersat( 4,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +1.0020, 1.0036, 1.0072, 1.0149, 1.0324, 1.0734, 1.1762, 1.4828, 2.7320, & +1.0014, 1.0024, 1.0050, 1.0103, 1.0217, 1.0474, 1.1080, 1.2660, 1.8107, & +1.0009, 1.0018, 1.0037, 1.0072, 1.0150, 1.0320, 1.0705, 1.1631, 1.4222, & +1.0005, 1.0011, 1.0023, 1.0049, 1.0105, 1.0222, 1.0480, 1.1070, 1.2552, & +1.0003, 1.0006, 1.0013, 1.0029, 1.0069, 1.0152, 1.0331, 1.0729, 1.1666, & +1.0002, 1.0003, 1.0006, 1.0014, 1.0038, 1.0096, 1.0222, 1.0498, 1.1124, & +1.0001, 1.0002, 1.0003, 1.0006, 1.0014, 1.0047, 1.0133, 1.0325, 1.0753 / +data ((supersat( 4,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +1.0014, 1.0027, 1.0054, 1.0112, 1.0243, 1.0551, 1.1305, 1.3361, 2.0902, & +1.0011, 1.0016, 1.0037, 1.0076, 1.0159, 1.0349, 1.0792, 1.1901, 1.5158, & +1.0008, 1.0012, 1.0027, 1.0054, 1.0109, 1.0231, 1.0508, 1.1162, 1.2862, & +1.0004, 1.0008, 1.0017, 1.0035, 1.0075, 1.0158, 1.0340, 1.0754, 1.1751, & +1.0003, 1.0005, 1.0010, 1.0021, 1.0048, 1.0107, 1.0232, 1.0508, 1.1141, & +1.0002, 1.0003, 1.0005, 1.0010, 1.0027, 1.0067, 1.0154, 1.0344, 1.0768, & +1.0001, 1.0002, 1.0003, 1.0005, 1.0010, 1.0032, 1.0091, 1.0222, 1.0512 / +data ((supersat( 4,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +1.0007, 1.0022, 1.0042, 1.0087, 1.0191, 1.0435, 1.1026, 1.2564, 1.7363, & +1.0005, 1.0014, 1.0028, 1.0059, 1.0122, 1.0269, 1.0614, 1.1458, 1.3752, & +1.0004, 1.0009, 1.0021, 1.0041, 1.0082, 1.0174, 1.0385, 1.0880, 1.2119, & +1.0004, 1.0006, 1.0014, 1.0026, 1.0056, 1.0117, 1.0252, 1.0559, 1.1288, & +1.0002, 1.0004, 1.0007, 1.0016, 1.0036, 1.0077, 1.0169, 1.0369, 1.0826, & +1.0001, 1.0002, 1.0004, 1.0008, 1.0019, 1.0047, 1.0110, 1.0246, 1.0547, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0008, 1.0022, 1.0062, 1.0156, 1.0360 / +data ((supersat( 4,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +1.0009, 1.0018, 1.0034, 1.0071, 1.0156, 1.0358, 1.0845, 1.2081, 1.5623, & +1.0006, 1.0013, 1.0022, 1.0047, 1.0098, 1.0217, 1.0498, 1.1180, 1.2962, & +1.0004, 1.0009, 1.0016, 1.0032, 1.0065, 1.0138, 1.0306, 1.0701, 1.1675, & +1.0003, 1.0006, 1.0011, 1.0021, 1.0044, 1.0091, 1.0196, 1.0436, 1.1004, & +1.0002, 1.0003, 1.0006, 1.0013, 1.0027, 1.0059, 1.0128, 1.0281, 1.0631, & +1.0001, 1.0002, 1.0003, 1.0006, 1.0014, 1.0035, 1.0082, 1.0183, 1.0409, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0006, 1.0016, 1.0045, 1.0113, 1.0263 / +data ((supersat( 4,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +1.0009, 1.0013, 1.0028, 1.0060, 1.0132, 1.0305, 1.0719, 1.1757, 1.4605, & +1.0007, 1.0009, 1.0020, 1.0039, 1.0082, 1.0182, 1.0419, 1.0993, 1.2460, & +1.0005, 1.0007, 1.0012, 1.0026, 1.0053, 1.0113, 1.0253, 1.0582, 1.1387, & +1.0003, 1.0004, 1.0008, 1.0018, 1.0035, 1.0073, 1.0158, 1.0355, 1.0819, & +1.0002, 1.0003, 1.0005, 1.0010, 1.0022, 1.0047, 1.0101, 1.0224, 1.0505, & +1.0001, 1.0002, 1.0003, 1.0005, 1.0011, 1.0027, 1.0063, 1.0142, 1.0320, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0005, 1.0012, 1.0034, 1.0085, 1.0201 / +data ((supersat( 4,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +1.0035, 1.0070, 1.0142, 1.0301, 1.0664, 1.1543, 1.4061, 2.6945, 4.9683, & +1.0022, 1.0045, 1.0099, 1.0210, 1.0452, 1.1007, 1.2410, 1.7052, 3.9821, & +1.0013, 1.0030, 1.0066, 1.0146, 1.0314, 1.0686, 1.1565, 1.3968, 2.5068, & +1.0006, 1.0015, 1.0040, 1.0095, 1.0214, 1.0473, 1.1060, 1.2515, 1.7167, & +1.0003, 1.0006, 1.0016, 1.0051, 1.0134, 1.0315, 1.0719, 1.1668, 1.4263, & +1.0002, 1.0003, 1.0006, 1.0017, 1.0065, 1.0187, 1.0464, 1.1099, 1.2699, & +1.0002, 1.0003, 1.0004, 1.0007, 1.0017, 1.0080, 1.0258, 1.0673, 1.1688 / +data ((supersat( 4,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +1.0025, 1.0048, 1.0098, 1.0207, 1.0452, 1.1033, 1.2556, 1.7996, 3.7044, & +1.0016, 1.0032, 1.0068, 1.0142, 1.0305, 1.0672, 1.1558, 1.4061, 2.5756, & +1.0010, 1.0022, 1.0048, 1.0100, 1.0211, 1.0457, 1.1020, 1.2436, 1.7037, & +1.0005, 1.0011, 1.0028, 1.0066, 1.0145, 1.0315, 1.0695, 1.1586, 1.4015, & +1.0003, 1.0005, 1.0013, 1.0036, 1.0091, 1.0211, 1.0475, 1.1070, 1.2549, & +1.0002, 1.0003, 1.0005, 1.0013, 1.0045, 1.0127, 1.0310, 1.0718, 1.1680, & +1.0001, 1.0002, 1.0003, 1.0005, 1.0013, 1.0055, 1.0175, 1.0451, 1.1089 / +data ((supersat( 4,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +1.0019, 1.0034, 1.0070, 1.0148, 1.0323, 1.0733, 1.1760, 1.4825, 2.7313, & +1.0013, 1.0022, 1.0048, 1.0101, 1.0215, 1.0471, 1.1077, 1.2656, 1.8101, & +1.0008, 1.0016, 1.0034, 1.0069, 1.0147, 1.0317, 1.0701, 1.1625, 1.4212, & +1.0004, 1.0008, 1.0020, 1.0046, 1.0100, 1.0217, 1.0474, 1.1062, 1.2539, & +1.0002, 1.0004, 1.0010, 1.0025, 1.0063, 1.0145, 1.0322, 1.0717, 1.1648, & +1.0002, 1.0002, 1.0004, 1.0010, 1.0031, 1.0087, 1.0210, 1.0482, 1.1101, & +1.0001, 1.0002, 1.0003, 1.0004, 1.0010, 1.0037, 1.0118, 1.0304, 1.0723 / +data ((supersat( 4,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +1.0013, 1.0026, 1.0053, 1.0110, 1.0242, 1.0550, 1.1303, 1.3359, 2.0899, & +1.0010, 1.0015, 1.0036, 1.0075, 1.0157, 1.0347, 1.0790, 1.1898, 1.5154, & +1.0006, 1.0010, 1.0025, 1.0051, 1.0106, 1.0229, 1.0505, 1.1159, 1.2857, & +1.0004, 1.0007, 1.0015, 1.0032, 1.0071, 1.0154, 1.0336, 1.0749, 1.1744, & +1.0002, 1.0004, 1.0007, 1.0018, 1.0044, 1.0102, 1.0226, 1.0500, 1.1130, & +1.0001, 1.0002, 1.0004, 1.0008, 1.0022, 1.0060, 1.0145, 1.0333, 1.0752, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0008, 1.0025, 1.0079, 1.0207, 1.0492 / +data ((supersat( 4,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +1.0007, 1.0021, 1.0041, 1.0086, 1.0190, 1.0434, 1.1025, 1.2563, 1.7362, & +1.0005, 1.0013, 1.0027, 1.0057, 1.0121, 1.0268, 1.0612, 1.1456, 1.3750, & +1.0004, 1.0008, 1.0020, 1.0039, 1.0080, 1.0172, 1.0383, 1.0877, 1.2116, & +1.0003, 1.0006, 1.0012, 1.0024, 1.0054, 1.0114, 1.0249, 1.0556, 1.1283, & +1.0002, 1.0003, 1.0006, 1.0014, 1.0032, 1.0073, 1.0164, 1.0364, 1.0819, & +1.0001, 1.0002, 1.0003, 1.0006, 1.0016, 1.0042, 1.0103, 1.0237, 1.0537, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0006, 1.0017, 1.0054, 1.0144, 1.0345 / +data ((supersat( 4,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +1.0008, 1.0017, 1.0033, 1.0070, 1.0155, 1.0358, 1.0844, 1.2080, 1.5622, & +1.0005, 1.0012, 1.0021, 1.0046, 1.0097, 1.0216, 1.0497, 1.1179, 1.2960, & +1.0004, 1.0008, 1.0015, 1.0031, 1.0063, 1.0136, 1.0304, 1.0700, 1.1673, & +1.0003, 1.0005, 1.0009, 1.0019, 1.0042, 1.0088, 1.0193, 1.0433, 1.1000, & +1.0002, 1.0003, 1.0005, 1.0011, 1.0024, 1.0056, 1.0124, 1.0277, 1.0626, & +1.0001, 1.0002, 1.0003, 1.0005, 1.0012, 1.0031, 1.0076, 1.0177, 1.0401, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0005, 1.0012, 1.0038, 1.0104, 1.0252 / +data ((supersat( 4,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +1.0008, 1.0012, 1.0027, 1.0059, 1.0132, 1.0304, 1.0719, 1.1757, 1.4604, & +1.0006, 1.0009, 1.0019, 1.0038, 1.0081, 1.0181, 1.0418, 1.0992, 1.2459, & +1.0004, 1.0006, 1.0011, 1.0024, 1.0052, 1.0112, 1.0251, 1.0581, 1.1386, & +1.0002, 1.0004, 1.0007, 1.0016, 1.0034, 1.0071, 1.0156, 1.0353, 1.0817, & +1.0001, 1.0002, 1.0004, 1.0008, 1.0020, 1.0044, 1.0098, 1.0220, 1.0501, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0009, 1.0024, 1.0059, 1.0137, 1.0314, & +1.0001, 1.0001, 1.0001, 1.0002, 1.0004, 1.0009, 1.0028, 1.0078, 1.0192 / +data ((supersat( 4,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +1.0034, 1.0068, 1.0140, 1.0299, 1.0662, 1.1540, 1.4056, 2.6932, 4.9662, & +1.0021, 1.0043, 1.0097, 1.0207, 1.0448, 1.1002, 1.2404, 1.7039, 3.9777, & +1.0012, 1.0027, 1.0062, 1.0141, 1.0308, 1.0680, 1.1555, 1.3952, 2.5024, & +1.0005, 1.0013, 1.0036, 1.0089, 1.0207, 1.0464, 1.1047, 1.2494, 1.7123, & +1.0003, 1.0005, 1.0013, 1.0044, 1.0125, 1.0303, 1.0702, 1.1641, 1.4213, & +1.0002, 1.0003, 1.0005, 1.0013, 1.0055, 1.0172, 1.0442, 1.1064, 1.2639, & +1.0001, 1.0002, 1.0004, 1.0007, 1.0014, 1.0065, 1.0233, 1.0634, 1.1618 / +data ((supersat( 4,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +1.0024, 1.0047, 1.0097, 1.0205, 1.0451, 1.1031, 1.2554, 1.7992, 3.7031, & +1.0015, 1.0031, 1.0066, 1.0140, 1.0303, 1.0670, 1.1555, 1.4055, 2.5740, & +1.0009, 1.0020, 1.0045, 1.0097, 1.0208, 1.0453, 1.1015, 1.2428, 1.7021, & +1.0004, 1.0010, 1.0026, 1.0062, 1.0140, 1.0309, 1.0687, 1.1575, 1.3996, & +1.0002, 1.0004, 1.0010, 1.0032, 1.0085, 1.0204, 1.0464, 1.1056, 1.2525, & +1.0002, 1.0002, 1.0004, 1.0010, 1.0038, 1.0117, 1.0296, 1.0698, 1.1649, & +1.0001, 1.0002, 1.0003, 1.0005, 1.0011, 1.0045, 1.0159, 1.0427, 1.1050 / +data ((supersat( 4,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +1.0018, 1.0033, 1.0069, 1.0147, 1.0322, 1.0732, 1.1759, 1.4823, 2.7307, & +1.0012, 1.0022, 1.0047, 1.0099, 1.0213, 1.0469, 1.1075, 1.2653, 1.8095, & +1.0007, 1.0015, 1.0032, 1.0067, 1.0145, 1.0314, 1.0697, 1.1620, 1.4205, & +1.0004, 1.0007, 1.0018, 1.0043, 1.0097, 1.0213, 1.0469, 1.1055, 1.2529, & +1.0002, 1.0004, 1.0008, 1.0022, 1.0059, 1.0139, 1.0315, 1.0708, 1.1634, & +1.0001, 1.0002, 1.0004, 1.0008, 1.0027, 1.0080, 1.0201, 1.0470, 1.1082, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0008, 1.0030, 1.0107, 1.0288, 1.0699 / +data ((supersat( 4,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +1.0013, 1.0025, 1.0052, 1.0110, 1.0241, 1.0549, 1.1303, 1.3358, 2.0897, & +1.0009, 1.0014, 1.0035, 1.0073, 1.0156, 1.0346, 1.0789, 1.1897, 1.5152, & +1.0005, 1.0009, 1.0024, 1.0050, 1.0105, 1.0227, 1.0503, 1.1156, 1.2853, & +1.0003, 1.0006, 1.0014, 1.0030, 1.0069, 1.0151, 1.0333, 1.0744, 1.1738, & +1.0002, 1.0003, 1.0006, 1.0016, 1.0041, 1.0098, 1.0221, 1.0494, 1.1122, & +1.0001, 1.0002, 1.0003, 1.0006, 1.0018, 1.0055, 1.0139, 1.0324, 1.0741, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0006, 1.0020, 1.0071, 1.0196, 1.0476 / +data ((supersat( 4,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +1.0007, 1.0021, 1.0041, 1.0085, 1.0190, 1.0434, 1.1025, 1.2563, 1.7361, & +1.0005, 1.0013, 1.0026, 1.0056, 1.0120, 1.0267, 1.0611, 1.1455, 1.3749, & +1.0004, 1.0008, 1.0019, 1.0038, 1.0079, 1.0171, 1.0381, 1.0875, 1.2114, & +1.0003, 1.0005, 1.0011, 1.0023, 1.0052, 1.0112, 1.0246, 1.0553, 1.1279, & +1.0002, 1.0003, 1.0005, 1.0012, 1.0029, 1.0070, 1.0160, 1.0359, 1.0813, & +1.0001, 1.0002, 1.0003, 1.0005, 1.0013, 1.0038, 1.0098, 1.0231, 1.0529, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0005, 1.0013, 1.0048, 1.0136, 1.0334 / +data ((supersat( 4,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +1.0008, 1.0017, 1.0033, 1.0069, 1.0155, 1.0357, 1.0844, 1.2080, 1.5622, & +1.0005, 1.0012, 1.0020, 1.0045, 1.0096, 1.0216, 1.0496, 1.1178, 1.2959, & +1.0004, 1.0007, 1.0014, 1.0030, 1.0062, 1.0135, 1.0303, 1.0698, 1.1672, & +1.0002, 1.0004, 1.0008, 1.0018, 1.0040, 1.0086, 1.0191, 1.0431, 1.0998, & +1.0001, 1.0002, 1.0004, 1.0009, 1.0022, 1.0053, 1.0121, 1.0273, 1.0622, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0010, 1.0028, 1.0072, 1.0172, 1.0395, & +1.0001, 1.0001, 1.0001, 1.0002, 1.0004, 1.0010, 1.0033, 1.0097, 1.0244 / +data ((supersat( 4,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +1.0008, 1.0012, 1.0026, 1.0058, 1.0131, 1.0304, 1.0718, 1.1756, 1.4604, & +1.0006, 1.0008, 1.0018, 1.0037, 1.0080, 1.0181, 1.0418, 1.0991, 1.2458, & +1.0003, 1.0005, 1.0011, 1.0023, 1.0051, 1.0111, 1.0250, 1.0580, 1.1385, & +1.0002, 1.0003, 1.0007, 1.0015, 1.0032, 1.0069, 1.0154, 1.0351, 1.0815, & +1.0001, 1.0002, 1.0003, 1.0007, 1.0018, 1.0042, 1.0096, 1.0218, 1.0498, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0008, 1.0021, 1.0056, 1.0133, 1.0309, & +1.0001, 1.0001, 1.0001, 1.0002, 1.0003, 1.0008, 1.0024, 1.0072, 1.0185 / +data ((supersat( 4,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +1.0032, 1.0066, 1.0138, 1.0297, 1.0660, 1.1538, 1.4052, 2.6920, 4.9643, & +1.0020, 1.0041, 1.0095, 1.0204, 1.0445, 1.0998, 1.2398, 1.7028, 3.9740, & +1.0010, 1.0025, 1.0059, 1.0138, 1.0304, 1.0674, 1.1547, 1.3938, 2.4988, & +1.0004, 1.0010, 1.0032, 1.0085, 1.0201, 1.0456, 1.1036, 1.2477, 1.7086, & +1.0002, 1.0004, 1.0011, 1.0039, 1.0117, 1.0293, 1.0687, 1.1618, 1.4170, & +1.0002, 1.0003, 1.0005, 1.0011, 1.0047, 1.0160, 1.0424, 1.1036, 1.2589, & +1.0001, 1.0002, 1.0003, 1.0006, 1.0012, 1.0053, 1.0213, 1.0601, 1.1560 / +data ((supersat( 4,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +1.0023, 1.0046, 1.0095, 1.0204, 1.0449, 1.1029, 1.2552, 1.7988, 3.7021, & +1.0014, 1.0029, 1.0065, 1.0138, 1.0301, 1.0667, 1.1552, 1.4050, 2.5728, & +1.0008, 1.0019, 1.0043, 1.0094, 1.0205, 1.0450, 1.1010, 1.2422, 1.7008, & +1.0004, 1.0008, 1.0023, 1.0059, 1.0136, 1.0304, 1.0681, 1.1566, 1.3980, & +1.0002, 1.0004, 1.0009, 1.0028, 1.0080, 1.0197, 1.0456, 1.1043, 1.2504, & +1.0001, 1.0002, 1.0004, 1.0009, 1.0033, 1.0109, 1.0285, 1.0682, 1.1622, & +1.0001, 1.0002, 1.0003, 1.0005, 1.0009, 1.0037, 1.0146, 1.0407, 1.1017 / +data ((supersat( 4,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +1.0018, 1.0032, 1.0068, 1.0146, 1.0321, 1.0731, 1.1758, 1.4822, 2.7303, & +1.0011, 1.0021, 1.0046, 1.0098, 1.0212, 1.0468, 1.1073, 1.2650, 1.8090, & +1.0006, 1.0013, 1.0031, 1.0065, 1.0143, 1.0312, 1.0694, 1.1617, 1.4199, & +1.0003, 1.0007, 1.0017, 1.0041, 1.0094, 1.0210, 1.0465, 1.1049, 1.2521, & +1.0002, 1.0003, 1.0007, 1.0020, 1.0055, 1.0135, 1.0310, 1.0700, 1.1623, & +1.0001, 1.0002, 1.0003, 1.0007, 1.0023, 1.0074, 1.0193, 1.0459, 1.1067, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0007, 1.0025, 1.0098, 1.0275, 1.0679 / +data ((supersat( 4,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +1.0013, 1.0025, 1.0051, 1.0109, 1.0241, 1.0548, 1.1302, 1.3357, 2.0895, & +1.0009, 1.0014, 1.0034, 1.0072, 1.0155, 1.0345, 1.0787, 1.1895, 1.5149, & +1.0005, 1.0009, 1.0023, 1.0048, 1.0103, 1.0225, 1.0501, 1.1153, 1.2850, & +1.0003, 1.0005, 1.0013, 1.0029, 1.0067, 1.0149, 1.0330, 1.0741, 1.1733, & +1.0002, 1.0003, 1.0005, 1.0014, 1.0039, 1.0094, 1.0217, 1.0489, 1.1115, & +1.0001, 1.0002, 1.0003, 1.0005, 1.0016, 1.0050, 1.0133, 1.0317, 1.0730, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0005, 1.0016, 1.0065, 1.0187, 1.0463 / +data ((supersat( 4,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +1.0007, 1.0020, 1.0040, 1.0085, 1.0189, 1.0433, 1.1024, 1.2562, 1.7360, & +1.0005, 1.0012, 1.0025, 1.0056, 1.0119, 1.0266, 1.0610, 1.1454, 1.3748, & +1.0004, 1.0008, 1.0018, 1.0037, 1.0077, 1.0170, 1.0380, 1.0874, 1.2112, & +1.0002, 1.0004, 1.0010, 1.0022, 1.0050, 1.0110, 1.0244, 1.0550, 1.1276, & +1.0001, 1.0002, 1.0004, 1.0011, 1.0028, 1.0068, 1.0157, 1.0356, 1.0809, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0011, 1.0035, 1.0094, 1.0226, 1.0522, & +1.0001, 1.0001, 1.0001, 1.0002, 1.0004, 1.0011, 1.0043, 1.0129, 1.0325 / +data ((supersat( 4,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +1.0007, 1.0016, 1.0032, 1.0069, 1.0155, 1.0357, 1.0844, 1.2079, 1.5621, & +1.0005, 1.0011, 1.0020, 1.0044, 1.0096, 1.0215, 1.0496, 1.1177, 1.2959, & +1.0003, 1.0007, 1.0013, 1.0029, 1.0061, 1.0134, 1.0302, 1.0697, 1.1670, & +1.0002, 1.0004, 1.0007, 1.0017, 1.0039, 1.0085, 1.0189, 1.0429, 1.0995, & +1.0001, 1.0002, 1.0004, 1.0008, 1.0021, 1.0051, 1.0119, 1.0271, 1.0618, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0008, 1.0025, 1.0069, 1.0168, 1.0390, & +1.0001, 1.0001, 1.0001, 1.0002, 1.0004, 1.0008, 1.0029, 1.0092, 1.0236 / +data ((supersat( 4,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +1.0008, 1.0011, 1.0026, 1.0058, 1.0131, 1.0303, 1.0718, 1.1756, 1.4603, & +1.0005, 1.0008, 1.0018, 1.0037, 1.0080, 1.0180, 1.0417, 1.0991, 1.2457, & +1.0003, 1.0005, 1.0010, 1.0023, 1.0050, 1.0110, 1.0250, 1.0579, 1.1384, & +1.0002, 1.0003, 1.0006, 1.0014, 1.0031, 1.0068, 1.0153, 1.0350, 1.0813, & +1.0001, 1.0002, 1.0003, 1.0007, 1.0017, 1.0040, 1.0094, 1.0215, 1.0495, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0007, 1.0019, 1.0053, 1.0130, 1.0305, & +1.0001, 1.0001, 1.0001, 1.0002, 1.0003, 1.0007, 1.0021, 1.0068, 1.0180 / +data ((supersat( 5,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +1.0038, 1.0072, 1.0144, 1.0304, 1.0668, 1.1548, 1.4068, 2.6966, 4.9717, & +1.0024, 1.0048, 1.0103, 1.0214, 1.0457, 1.1014, 1.2421, 1.7072, 3.9889, & +1.0015, 1.0034, 1.0070, 1.0151, 1.0321, 1.0696, 1.1579, 1.3993, 2.5135, & +1.0008, 1.0019, 1.0046, 1.0103, 1.0224, 1.0486, 1.1079, 1.2547, 1.7235, & +1.0004, 1.0008, 1.0022, 1.0061, 1.0147, 1.0333, 1.0745, 1.1709, 1.4341, & +1.0003, 1.0004, 1.0008, 1.0025, 1.0080, 1.0210, 1.0497, 1.1150, 1.2792, & +1.0002, 1.0003, 1.0005, 1.0009, 1.0026, 1.0104, 1.0297, 1.0737, 1.1798 / +data ((supersat( 5,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +1.0027, 1.0050, 1.0100, 1.0209, 1.0454, 1.1035, 1.2560, 1.8002, 3.7063, & +1.0018, 1.0034, 1.0071, 1.0145, 1.0309, 1.0676, 1.1564, 1.4069, 2.5780, & +1.0011, 1.0025, 1.0051, 1.0104, 1.0216, 1.0463, 1.1028, 1.2448, 1.7060, & +1.0007, 1.0015, 1.0032, 1.0071, 1.0151, 1.0323, 1.0706, 1.1603, 1.4045, & +1.0004, 1.0007, 1.0017, 1.0042, 1.0099, 1.0223, 1.0490, 1.1093, 1.2587, & +1.0002, 1.0004, 1.0007, 1.0018, 1.0055, 1.0142, 1.0330, 1.0748, 1.1728, & +1.0002, 1.0002, 1.0004, 1.0007, 1.0019, 1.0071, 1.0200, 1.0488, 1.1149 / +data ((supersat( 5,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +1.0020, 1.0036, 1.0072, 1.0149, 1.0324, 1.0734, 1.1762, 1.4828, 2.7321, & +1.0014, 1.0024, 1.0050, 1.0103, 1.0217, 1.0474, 1.1080, 1.2660, 1.8108, & +1.0009, 1.0018, 1.0037, 1.0072, 1.0151, 1.0321, 1.0705, 1.1632, 1.4224, & +1.0005, 1.0011, 1.0023, 1.0049, 1.0105, 1.0223, 1.0481, 1.1071, 1.2554, & +1.0003, 1.0006, 1.0013, 1.0029, 1.0070, 1.0152, 1.0332, 1.0731, 1.1669, & +1.0002, 1.0003, 1.0006, 1.0014, 1.0038, 1.0097, 1.0224, 1.0501, 1.1129, & +1.0001, 1.0002, 1.0003, 1.0006, 1.0014, 1.0048, 1.0135, 1.0328, 1.0759 / +data ((supersat( 5,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +1.0014, 1.0027, 1.0054, 1.0112, 1.0243, 1.0551, 1.1305, 1.3361, 2.0902, & +1.0011, 1.0016, 1.0037, 1.0076, 1.0159, 1.0349, 1.0792, 1.1901, 1.5158, & +1.0008, 1.0012, 1.0027, 1.0054, 1.0109, 1.0232, 1.0508, 1.1163, 1.2863, & +1.0004, 1.0008, 1.0017, 1.0035, 1.0075, 1.0158, 1.0341, 1.0755, 1.1753, & +1.0003, 1.0005, 1.0010, 1.0021, 1.0048, 1.0107, 1.0233, 1.0509, 1.1143, & +1.0002, 1.0003, 1.0005, 1.0010, 1.0027, 1.0067, 1.0155, 1.0345, 1.0770, & +1.0001, 1.0002, 1.0003, 1.0005, 1.0010, 1.0033, 1.0092, 1.0224, 1.0516 / +data ((supersat( 5,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +1.0007, 1.0022, 1.0042, 1.0087, 1.0191, 1.0435, 1.1026, 1.2564, 1.7364, & +1.0005, 1.0014, 1.0028, 1.0059, 1.0122, 1.0269, 1.0614, 1.1458, 1.3753, & +1.0004, 1.0009, 1.0021, 1.0041, 1.0082, 1.0174, 1.0385, 1.0880, 1.2120, & +1.0004, 1.0006, 1.0014, 1.0026, 1.0056, 1.0117, 1.0252, 1.0560, 1.1288, & +1.0002, 1.0004, 1.0007, 1.0016, 1.0036, 1.0077, 1.0169, 1.0370, 1.0828, & +1.0001, 1.0002, 1.0004, 1.0008, 1.0019, 1.0048, 1.0110, 1.0247, 1.0549, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0008, 1.0022, 1.0063, 1.0157, 1.0362 / +data ((supersat( 5,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +1.0009, 1.0018, 1.0034, 1.0071, 1.0156, 1.0358, 1.0845, 1.2081, 1.5623, & +1.0006, 1.0013, 1.0022, 1.0047, 1.0098, 1.0217, 1.0498, 1.1180, 1.2962, & +1.0004, 1.0009, 1.0016, 1.0032, 1.0065, 1.0138, 1.0306, 1.0702, 1.1675, & +1.0003, 1.0006, 1.0011, 1.0021, 1.0044, 1.0091, 1.0196, 1.0436, 1.1004, & +1.0002, 1.0003, 1.0006, 1.0013, 1.0027, 1.0060, 1.0128, 1.0282, 1.0632, & +1.0001, 1.0002, 1.0003, 1.0006, 1.0015, 1.0035, 1.0082, 1.0184, 1.0410, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0006, 1.0016, 1.0045, 1.0114, 1.0265 / +data ((supersat( 5,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +1.0009, 1.0013, 1.0028, 1.0060, 1.0132, 1.0305, 1.0719, 1.1757, 1.4605, & +1.0007, 1.0009, 1.0020, 1.0039, 1.0082, 1.0182, 1.0419, 1.0993, 1.2460, & +1.0005, 1.0007, 1.0012, 1.0026, 1.0053, 1.0113, 1.0253, 1.0582, 1.1387, & +1.0003, 1.0004, 1.0008, 1.0018, 1.0035, 1.0073, 1.0158, 1.0355, 1.0820, & +1.0002, 1.0003, 1.0005, 1.0010, 1.0022, 1.0047, 1.0102, 1.0224, 1.0505, & +1.0001, 1.0002, 1.0003, 1.0005, 1.0011, 1.0027, 1.0064, 1.0143, 1.0321, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0005, 1.0012, 1.0034, 1.0086, 1.0202 / +data ((supersat( 5,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +1.0034, 1.0068, 1.0140, 1.0299, 1.0662, 1.1541, 1.4057, 2.6935, 4.9668, & +1.0021, 1.0043, 1.0097, 1.0207, 1.0448, 1.1003, 1.2405, 1.7042, 3.9786, & +1.0012, 1.0027, 1.0062, 1.0142, 1.0309, 1.0680, 1.1557, 1.3955, 2.5034, & +1.0005, 1.0013, 1.0036, 1.0090, 1.0207, 1.0465, 1.1049, 1.2498, 1.7132, & +1.0003, 1.0005, 1.0013, 1.0044, 1.0125, 1.0305, 1.0704, 1.1646, 1.4223, & +1.0002, 1.0003, 1.0005, 1.0013, 1.0055, 1.0174, 1.0445, 1.1070, 1.2651, & +1.0001, 1.0002, 1.0004, 1.0007, 1.0014, 1.0066, 1.0237, 1.0641, 1.1631 / +data ((supersat( 5,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +1.0024, 1.0047, 1.0097, 1.0205, 1.0451, 1.1031, 1.2554, 1.7992, 3.7034, & +1.0015, 1.0031, 1.0066, 1.0140, 1.0303, 1.0670, 1.1555, 1.4056, 2.5744, & +1.0009, 1.0020, 1.0045, 1.0097, 1.0208, 1.0454, 1.1016, 1.2430, 1.7024, & +1.0004, 1.0010, 1.0026, 1.0062, 1.0140, 1.0310, 1.0688, 1.1577, 1.4000, & +1.0002, 1.0004, 1.0010, 1.0032, 1.0085, 1.0204, 1.0466, 1.1058, 1.2530, & +1.0002, 1.0002, 1.0004, 1.0010, 1.0039, 1.0118, 1.0298, 1.0701, 1.1655, & +1.0001, 1.0002, 1.0003, 1.0005, 1.0011, 1.0045, 1.0161, 1.0430, 1.1057 / +data ((supersat( 5,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +1.0018, 1.0033, 1.0069, 1.0147, 1.0322, 1.0732, 1.1759, 1.4824, 2.7308, & +1.0012, 1.0021, 1.0047, 1.0099, 1.0213, 1.0470, 1.1075, 1.2653, 1.8096, & +1.0007, 1.0015, 1.0032, 1.0067, 1.0145, 1.0314, 1.0698, 1.1621, 1.4207, & +1.0004, 1.0007, 1.0019, 1.0043, 1.0097, 1.0213, 1.0469, 1.1056, 1.2531, & +1.0002, 1.0004, 1.0008, 1.0022, 1.0059, 1.0140, 1.0316, 1.0709, 1.1637, & +1.0001, 1.0002, 1.0004, 1.0008, 1.0027, 1.0080, 1.0202, 1.0472, 1.1086, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0008, 1.0030, 1.0108, 1.0290, 1.0703 / +data ((supersat( 5,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +1.0013, 1.0025, 1.0052, 1.0110, 1.0241, 1.0549, 1.1303, 1.3358, 2.0897, & +1.0010, 1.0014, 1.0035, 1.0073, 1.0156, 1.0346, 1.0789, 1.1897, 1.5152, & +1.0005, 1.0009, 1.0024, 1.0050, 1.0105, 1.0227, 1.0503, 1.1156, 1.2854, & +1.0003, 1.0006, 1.0014, 1.0030, 1.0069, 1.0151, 1.0333, 1.0745, 1.1739, & +1.0002, 1.0003, 1.0006, 1.0016, 1.0041, 1.0098, 1.0221, 1.0495, 1.1123, & +1.0001, 1.0002, 1.0003, 1.0006, 1.0018, 1.0055, 1.0139, 1.0325, 1.0743, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0006, 1.0020, 1.0072, 1.0197, 1.0479 / +data ((supersat( 5,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +1.0007, 1.0021, 1.0041, 1.0085, 1.0190, 1.0434, 1.1025, 1.2563, 1.7361, & +1.0005, 1.0013, 1.0026, 1.0056, 1.0120, 1.0267, 1.0611, 1.1455, 1.3749, & +1.0004, 1.0008, 1.0019, 1.0038, 1.0079, 1.0171, 1.0381, 1.0876, 1.2114, & +1.0003, 1.0005, 1.0011, 1.0023, 1.0052, 1.0112, 1.0247, 1.0553, 1.1280, & +1.0002, 1.0003, 1.0005, 1.0012, 1.0029, 1.0070, 1.0160, 1.0360, 1.0814, & +1.0001, 1.0002, 1.0003, 1.0005, 1.0013, 1.0039, 1.0098, 1.0232, 1.0530, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0005, 1.0013, 1.0049, 1.0137, 1.0336 / +data ((supersat( 5,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +1.0008, 1.0017, 1.0033, 1.0069, 1.0155, 1.0357, 1.0844, 1.2080, 1.5622, & +1.0005, 1.0012, 1.0020, 1.0045, 1.0096, 1.0216, 1.0496, 1.1178, 1.2960, & +1.0004, 1.0007, 1.0014, 1.0030, 1.0062, 1.0135, 1.0303, 1.0698, 1.1672, & +1.0002, 1.0004, 1.0008, 1.0018, 1.0040, 1.0086, 1.0191, 1.0431, 1.0998, & +1.0001, 1.0002, 1.0004, 1.0009, 1.0022, 1.0053, 1.0121, 1.0274, 1.0622, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0010, 1.0028, 1.0072, 1.0172, 1.0396, & +1.0001, 1.0001, 1.0001, 1.0002, 1.0004, 1.0010, 1.0034, 1.0098, 1.0245 / +data ((supersat( 5,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +1.0008, 1.0012, 1.0026, 1.0058, 1.0131, 1.0304, 1.0718, 1.1756, 1.4604, & +1.0006, 1.0008, 1.0018, 1.0037, 1.0080, 1.0181, 1.0418, 1.0991, 1.2458, & +1.0003, 1.0005, 1.0011, 1.0023, 1.0051, 1.0111, 1.0251, 1.0580, 1.1385, & +1.0002, 1.0003, 1.0007, 1.0015, 1.0032, 1.0069, 1.0155, 1.0351, 1.0815, & +1.0001, 1.0002, 1.0003, 1.0007, 1.0018, 1.0042, 1.0096, 1.0218, 1.0498, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0008, 1.0021, 1.0056, 1.0134, 1.0310, & +1.0001, 1.0001, 1.0001, 1.0002, 1.0003, 1.0008, 1.0024, 1.0073, 1.0186 / +data ((supersat( 5,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +1.0030, 1.0063, 1.0135, 1.0294, 1.0655, 1.1532, 1.4043, 2.6895, 4.9601, & +1.0017, 1.0038, 1.0090, 1.0199, 1.0438, 1.0990, 1.2385, 1.7004, 3.9657, & +1.0007, 1.0020, 1.0053, 1.0130, 1.0295, 1.0662, 1.1530, 1.3908, 2.4908, & +1.0003, 1.0007, 1.0025, 1.0075, 1.0188, 1.0439, 1.1012, 1.2438, 1.7004, & +1.0002, 1.0003, 1.0007, 1.0029, 1.0101, 1.0271, 1.0656, 1.1568, 1.4077, & +1.0001, 1.0002, 1.0004, 1.0008, 1.0031, 1.0135, 1.0385, 1.0974, 1.2479, & +1.0000, 1.0000, 1.0002, 1.0004, 1.0011, 1.0033, 1.0173, 1.0532, 1.1436 / +data ((supersat( 5,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +1.0021, 1.0044, 1.0093, 1.0202, 1.0446, 1.1026, 1.2547, 1.7980, 3.6998, & +1.0013, 1.0027, 1.0062, 1.0135, 1.0297, 1.0662, 1.1545, 1.4040, 2.5698, & +1.0006, 1.0015, 1.0039, 1.0089, 1.0199, 1.0442, 1.1000, 1.2407, 1.6980, & +1.0003, 1.0006, 1.0018, 1.0052, 1.0128, 1.0294, 1.0666, 1.1545, 1.3944, & +1.0002, 1.0003, 1.0006, 1.0021, 1.0069, 1.0183, 1.0437, 1.1015, 1.2459, & +1.0001, 1.0002, 1.0003, 1.0006, 1.0022, 1.0092, 1.0261, 1.0646, 1.1565, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0007, 1.0023, 1.0119, 1.0364, 1.0948 / +data ((supersat( 5,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +1.0016, 1.0031, 1.0067, 1.0144, 1.0319, 1.0728, 1.1755, 1.4818, 2.7291, & +1.0010, 1.0019, 1.0043, 1.0095, 1.0209, 1.0465, 1.1069, 1.2645, 1.8080, & +1.0005, 1.0010, 1.0028, 1.0061, 1.0138, 1.0307, 1.0688, 1.1608, 1.4186, & +1.0002, 1.0005, 1.0013, 1.0036, 1.0088, 1.0202, 1.0456, 1.1037, 1.2502, & +1.0001, 1.0002, 1.0005, 1.0015, 1.0048, 1.0125, 1.0297, 1.0683, 1.1598, & +1.0001, 1.0001, 1.0002, 1.0005, 1.0016, 1.0062, 1.0177, 1.0437, 1.1033, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0005, 1.0016, 1.0079, 1.0247, 1.0636 / +data ((supersat( 5,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +1.0012, 1.0023, 1.0050, 1.0108, 1.0239, 1.0547, 1.1300, 1.3355, 2.0890, & +1.0007, 1.0013, 1.0032, 1.0070, 1.0153, 1.0342, 1.0785, 1.1892, 1.5144, & +1.0004, 1.0008, 1.0020, 1.0045, 1.0100, 1.0222, 1.0497, 1.1148, 1.2842, & +1.0002, 1.0004, 1.0010, 1.0026, 1.0062, 1.0144, 1.0324, 1.0733, 1.1722, & +1.0001, 1.0002, 1.0004, 1.0011, 1.0033, 1.0087, 1.0208, 1.0477, 1.1099, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0011, 1.0041, 1.0121, 1.0301, 1.0709, & +1.0001, 1.0001, 1.0001, 1.0002, 1.0004, 1.0011, 1.0051, 1.0167, 1.0435 / +data ((supersat( 5,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +1.0006, 1.0019, 1.0039, 1.0084, 1.0188, 1.0432, 1.1023, 1.2561, 1.7358, & +1.0005, 1.0011, 1.0024, 1.0054, 1.0118, 1.0265, 1.0609, 1.1452, 1.3745, & +1.0003, 1.0007, 1.0016, 1.0034, 1.0075, 1.0167, 1.0377, 1.0871, 1.2107, & +1.0002, 1.0003, 1.0007, 1.0019, 1.0046, 1.0106, 1.0240, 1.0545, 1.1269, & +1.0001, 1.0002, 1.0003, 1.0008, 1.0024, 1.0062, 1.0150, 1.0347, 1.0798, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0008, 1.0028, 1.0085, 1.0214, 1.0507, & +1.0001, 1.0001, 1.0001, 1.0002, 1.0003, 1.0008, 1.0033, 1.0114, 1.0304 / +data ((supersat( 5,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +1.0007, 1.0015, 1.0031, 1.0068, 1.0154, 1.0356, 1.0843, 1.2078, 1.5620, & +1.0005, 1.0010, 1.0019, 1.0043, 1.0094, 1.0214, 1.0494, 1.1176, 1.2957, & +1.0003, 1.0006, 1.0011, 1.0027, 1.0059, 1.0132, 1.0300, 1.0695, 1.1667, & +1.0002, 1.0003, 1.0006, 1.0015, 1.0036, 1.0082, 1.0186, 1.0425, 1.0991, & +1.0001, 1.0002, 1.0003, 1.0006, 1.0018, 1.0046, 1.0113, 1.0264, 1.0611, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0006, 1.0020, 1.0061, 1.0159, 1.0379, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0003, 1.0006, 1.0022, 1.0080, 1.0221 / +data ((supersat( 5,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +1.0007, 1.0011, 1.0025, 1.0057, 1.0130, 1.0303, 1.0717, 1.1755, 1.4603, & +1.0004, 1.0007, 1.0017, 1.0036, 1.0078, 1.0179, 1.0416, 1.0990, 1.2456, & +1.0002, 1.0004, 1.0010, 1.0021, 1.0048, 1.0108, 1.0248, 1.0577, 1.1381, & +1.0001, 1.0002, 1.0005, 1.0012, 1.0028, 1.0065, 1.0150, 1.0346, 1.0810, & +1.0001, 1.0001, 1.0002, 1.0005, 1.0013, 1.0036, 1.0089, 1.0210, 1.0489, & +1.0001, 1.0001, 1.0001, 1.0002, 1.0005, 1.0015, 1.0046, 1.0122, 1.0296, & +1.0000, 1.0001, 1.0001, 1.0001, 1.0002, 1.0005, 1.0015, 1.0059, 1.0167 / +data ((supersat( 5,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +1.0026, 1.0058, 1.0129, 1.0287, 1.0647, 1.1521, 1.4025, 2.6846, 4.9519, & +1.0013, 1.0033, 1.0082, 1.0189, 1.0426, 1.0974, 1.2361, 1.6957, 3.9492, & +1.0004, 1.0014, 1.0044, 1.0117, 1.0278, 1.0639, 1.1496, 1.3849, 2.4750, & +1.0002, 1.0004, 1.0015, 1.0058, 1.0166, 1.0409, 1.0967, 1.2363, 1.6843, & +1.0002, 1.0003, 1.0005, 1.0015, 1.0075, 1.0233, 1.0598, 1.1474, 1.3896, & +1.0000, 1.0001, 1.0003, 1.0006, 1.0016, 1.0093, 1.0318, 1.0861, 1.2272, & +0.9995, 0.9996, 0.9997, 1.0000, 1.0007, 1.0022, 1.0110, 1.0416, 1.1216 / +data ((supersat( 5,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +1.0019, 1.0040, 1.0089, 1.0197, 1.0441, 1.1020, 1.2538, 1.7965, 3.6951, & +1.0010, 1.0022, 1.0056, 1.0128, 1.0289, 1.0653, 1.1532, 1.4019, 2.5641, & +1.0004, 1.0011, 1.0031, 1.0080, 1.0188, 1.0428, 1.0982, 1.2378, 1.6923, & +1.0002, 1.0004, 1.0011, 1.0040, 1.0113, 1.0275, 1.0640, 1.1506, 1.3874, & +1.0001, 1.0002, 1.0004, 1.0011, 1.0051, 1.0158, 1.0402, 1.0963, 1.2371, & +1.0001, 1.0001, 1.0002, 1.0005, 1.0012, 1.0064, 1.0218, 1.0580, 1.1456, & +0.9999, 0.9999, 1.0000, 1.0002, 1.0006, 1.0014, 1.0075, 1.0291, 1.0822 / +data ((supersat( 5,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +1.0014, 1.0029, 1.0064, 1.0141, 1.0316, 1.0725, 1.1750, 1.4810, 2.7271, & +1.0007, 1.0015, 1.0039, 1.0091, 1.0204, 1.0459, 1.1061, 1.2634, 1.8061, & +1.0003, 1.0008, 1.0023, 1.0055, 1.0131, 1.0298, 1.0677, 1.1592, 1.4159, & +1.0002, 1.0003, 1.0008, 1.0028, 1.0078, 1.0190, 1.0439, 1.1015, 1.2466, & +1.0001, 1.0002, 1.0003, 1.0008, 1.0035, 1.0108, 1.0274, 1.0651, 1.1549, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0009, 1.0042, 1.0148, 1.0395, 1.0969, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0004, 1.0009, 1.0048, 1.0198, 1.0558 / +data ((supersat( 5,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +1.0010, 1.0022, 1.0048, 1.0105, 1.0237, 1.0544, 1.1297, 1.3351, 2.0882, & +1.0005, 1.0012, 1.0029, 1.0067, 1.0149, 1.0338, 1.0780, 1.1886, 1.5135, & +1.0003, 1.0006, 1.0017, 1.0041, 1.0095, 1.0215, 1.0490, 1.1139, 1.2828, & +1.0001, 1.0003, 1.0006, 1.0020, 1.0054, 1.0134, 1.0312, 1.0718, 1.1701, & +1.0001, 1.0001, 1.0003, 1.0006, 1.0024, 1.0074, 1.0192, 1.0456, 1.1069, & +1.0001, 1.0001, 1.0001, 1.0003, 1.0006, 1.0027, 1.0100, 1.0273, 1.0668, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0003, 1.0007, 1.0030, 1.0132, 1.0383 / +data ((supersat( 5,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +1.0006, 1.0017, 1.0037, 1.0082, 1.0186, 1.0430, 1.1021, 1.2558, 1.7354, & +1.0004, 1.0010, 1.0022, 1.0051, 1.0115, 1.0262, 1.0605, 1.1448, 1.3739, & +1.0002, 1.0005, 1.0012, 1.0031, 1.0071, 1.0162, 1.0372, 1.0864, 1.2099, & +1.0001, 1.0002, 1.0005, 1.0015, 1.0040, 1.0099, 1.0232, 1.0535, 1.1256, & +1.0001, 1.0001, 1.0002, 1.0005, 1.0017, 1.0053, 1.0138, 1.0332, 1.0778, & +1.0001, 1.0001, 1.0001, 1.0002, 1.0005, 1.0018, 1.0069, 1.0194, 1.0478, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0002, 1.0005, 1.0019, 1.0088, 1.0268 / +data ((supersat( 5,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +1.0006, 1.0014, 1.0030, 1.0067, 1.0153, 1.0355, 1.0841, 1.2077, 1.5617, & +1.0004, 1.0008, 1.0017, 1.0041, 1.0092, 1.0212, 1.0492, 1.1173, 1.2953, & +1.0002, 1.0004, 1.0009, 1.0024, 1.0056, 1.0128, 1.0296, 1.0690, 1.1662, & +1.0001, 1.0002, 1.0004, 1.0011, 1.0031, 1.0076, 1.0179, 1.0418, 1.0981, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0012, 1.0039, 1.0104, 1.0253, 1.0596, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0004, 1.0013, 1.0049, 1.0142, 1.0358, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0002, 1.0004, 1.0013, 1.0060, 1.0193 / +data ((supersat( 5,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +1.0006, 1.0010, 1.0024, 1.0056, 1.0129, 1.0302, 1.0716, 1.1754, 1.4601, & +1.0003, 1.0006, 1.0015, 1.0034, 1.0077, 1.0177, 1.0414, 1.0988, 1.2453, & +1.0002, 1.0003, 1.0008, 1.0019, 1.0045, 1.0105, 1.0245, 1.0574, 1.1377, & +1.0001, 1.0002, 1.0003, 1.0009, 1.0024, 1.0061, 1.0145, 1.0341, 1.0803, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0009, 1.0030, 1.0082, 1.0201, 1.0478, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0003, 1.0009, 1.0037, 1.0109, 1.0280, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0002, 1.0003, 1.0009, 1.0043, 1.0145 / +data ((supersat( 5,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +1.0023, 1.0055, 1.0125, 1.0283, 1.0641, 1.1513, 1.4013, 2.6811, 4.9461, & +1.0009, 1.0030, 1.0077, 1.0183, 1.0418, 1.0963, 1.2344, 1.6924, 3.9376, & +1.0003, 1.0010, 1.0038, 1.0108, 1.0267, 1.0624, 1.1473, 1.3808, 2.4638, & +1.0002, 1.0003, 1.0010, 1.0048, 1.0151, 1.0388, 1.0936, 1.2311, 1.6731, & +1.0001, 1.0002, 1.0004, 1.0011, 1.0059, 1.0208, 1.0559, 1.1409, 1.3770, & +0.9999, 1.0000, 1.0001, 1.0005, 1.0013, 1.0069, 1.0275, 1.0788, 1.2133, & +0.9991, 0.9992, 0.9993, 0.9996, 1.0003, 1.0018, 1.0077, 1.0348, 1.1078 / +data ((supersat( 5,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +1.0017, 1.0038, 1.0087, 1.0194, 1.0438, 1.1016, 1.2533, 1.7955, 3.6918, & +1.0007, 1.0020, 1.0053, 1.0124, 1.0284, 1.0646, 1.1523, 1.4004, 2.5599, & +1.0003, 1.0008, 1.0026, 1.0074, 1.0181, 1.0419, 1.0969, 1.2358, 1.6883, & +1.0002, 1.0003, 1.0008, 1.0034, 1.0103, 1.0262, 1.0622, 1.1479, 1.3825, & +1.0001, 1.0002, 1.0003, 1.0008, 1.0040, 1.0142, 1.0378, 1.0927, 1.2310, & +1.0000, 1.0001, 1.0002, 1.0004, 1.0009, 1.0047, 1.0190, 1.0536, 1.1382, & +0.9997, 0.9997, 0.9998, 1.0000, 1.0004, 1.0012, 1.0052, 1.0246, 1.0741 / +data ((supersat( 5,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +1.0013, 1.0027, 1.0062, 1.0139, 1.0314, 1.0722, 1.1747, 1.4805, 2.7256, & +1.0006, 1.0014, 1.0037, 1.0088, 1.0200, 1.0455, 1.1056, 1.2626, 1.8046, & +1.0002, 1.0006, 1.0019, 1.0051, 1.0126, 1.0292, 1.0669, 1.1581, 1.4141, & +1.0001, 1.0002, 1.0006, 1.0023, 1.0071, 1.0181, 1.0428, 1.0999, 1.2441, & +1.0001, 1.0001, 1.0002, 1.0006, 1.0027, 1.0097, 1.0259, 1.0630, 1.1515, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0006, 1.0031, 1.0129, 1.0367, 1.0926, & +0.9999, 0.9999, 1.0000, 1.0001, 1.0003, 1.0008, 1.0033, 1.0167, 1.0508 / +data ((supersat( 5,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +1.0009, 1.0021, 1.0047, 1.0104, 1.0235, 1.0543, 1.1295, 1.3348, 2.0876, & +1.0004, 1.0011, 1.0027, 1.0065, 1.0147, 1.0336, 1.0777, 1.1881, 1.5127, & +1.0002, 1.0005, 1.0014, 1.0037, 1.0091, 1.0211, 1.0484, 1.1132, 1.2818, & +1.0001, 1.0002, 1.0005, 1.0016, 1.0050, 1.0128, 1.0305, 1.0708, 1.1687, & +1.0001, 1.0001, 1.0002, 1.0005, 1.0018, 1.0066, 1.0181, 1.0442, 1.1048, & +1.0001, 1.0001, 1.0001, 1.0002, 1.0005, 1.0020, 1.0087, 1.0254, 1.0640, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0003, 1.0006, 1.0020, 1.0111, 1.0349 / +data ((supersat( 5,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +1.0006, 1.0017, 1.0036, 1.0081, 1.0185, 1.0429, 1.1020, 1.2556, 1.7351, & +1.0004, 1.0009, 1.0020, 1.0050, 1.0113, 1.0260, 1.0603, 1.1445, 1.3735, & +1.0002, 1.0004, 1.0010, 1.0028, 1.0068, 1.0159, 1.0368, 1.0860, 1.2093, & +1.0001, 1.0002, 1.0004, 1.0012, 1.0036, 1.0094, 1.0226, 1.0528, 1.1246, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0013, 1.0047, 1.0130, 1.0322, 1.0764, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0004, 1.0013, 1.0059, 1.0180, 1.0459, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0002, 1.0004, 1.0013, 1.0072, 1.0243 / +data ((supersat( 5,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +1.0006, 1.0013, 1.0029, 1.0066, 1.0152, 1.0354, 1.0840, 1.2076, 1.5616, & +1.0003, 1.0007, 1.0017, 1.0040, 1.0091, 1.0210, 1.0490, 1.1171, 1.2950, & +1.0001, 1.0003, 1.0008, 1.0021, 1.0053, 1.0126, 1.0293, 1.0687, 1.1657, & +1.0001, 1.0001, 1.0003, 1.0009, 1.0027, 1.0072, 1.0175, 1.0413, 1.0975, & +1.0001, 1.0001, 1.0001, 1.0003, 1.0009, 1.0034, 1.0098, 1.0245, 1.0586, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0003, 1.0009, 1.0041, 1.0132, 1.0343, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0002, 1.0003, 1.0009, 1.0048, 1.0175 / +data ((supersat( 5,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +1.0005, 1.0010, 1.0023, 1.0056, 1.0129, 1.0301, 1.0716, 1.1753, 1.4600, & +1.0003, 1.0005, 1.0014, 1.0033, 1.0075, 1.0176, 1.0413, 1.0986, 1.2452, & +1.0001, 1.0003, 1.0007, 1.0017, 1.0043, 1.0103, 1.0243, 1.0571, 1.1374, & +1.0001, 1.0001, 1.0003, 1.0007, 1.0022, 1.0058, 1.0142, 1.0337, 1.0798, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0007, 1.0026, 1.0076, 1.0195, 1.0470, & +1.0000, 1.0001, 1.0001, 1.0001, 1.0003, 1.0007, 1.0030, 1.0101, 1.0268, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0001, 1.0003, 1.0007, 1.0033, 1.0130 / +data ((supersat( 5,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +1.0021, 1.0053, 1.0123, 1.0279, 1.0637, 1.1507, 1.4003, 2.6783, 4.9413, & +1.0008, 1.0027, 1.0073, 1.0178, 1.0412, 1.0954, 1.2330, 1.6897, 3.9282, & +1.0003, 1.0008, 1.0033, 1.0102, 1.0258, 1.0612, 1.1454, 1.3775, 2.4549, & +1.0002, 1.0003, 1.0008, 1.0041, 1.0140, 1.0372, 1.0911, 1.2269, 1.6642, & +1.0001, 1.0002, 1.0004, 1.0009, 1.0047, 1.0189, 1.0529, 1.1359, 1.3672, & +0.9997, 0.9998, 1.0000, 1.0004, 1.0012, 1.0052, 1.0245, 1.0732, 1.2026, & +0.9988, 0.9988, 0.9989, 0.9992, 0.9999, 1.0015, 1.0056, 1.0301, 1.0979 / +data ((supersat( 5,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +1.0016, 1.0037, 1.0085, 1.0192, 1.0435, 1.1012, 1.2528, 1.7946, 3.6892, & +1.0006, 1.0019, 1.0051, 1.0121, 1.0280, 1.0641, 1.1516, 1.3993, 2.5567, & +1.0002, 1.0006, 1.0023, 1.0070, 1.0175, 1.0412, 1.0959, 1.2342, 1.6851, & +1.0001, 1.0002, 1.0006, 1.0028, 1.0096, 1.0252, 1.0608, 1.1457, 1.3786, & +1.0001, 1.0002, 1.0003, 1.0007, 1.0033, 1.0129, 1.0360, 1.0899, 1.2261, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0008, 1.0036, 1.0170, 1.0503, 1.1324, & +0.9995, 0.9995, 0.9996, 0.9998, 1.0002, 1.0011, 1.0038, 1.0214, 1.0681 / +data ((supersat( 5,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +1.0012, 1.0026, 1.0061, 1.0138, 1.0312, 1.0720, 1.1745, 1.4801, 2.7243, & +1.0005, 1.0013, 1.0035, 1.0086, 1.0198, 1.0451, 1.1052, 1.2620, 1.8035, & +1.0002, 1.0005, 1.0017, 1.0049, 1.0122, 1.0287, 1.0663, 1.1572, 1.4126, & +1.0001, 1.0002, 1.0005, 1.0020, 1.0066, 1.0174, 1.0419, 1.0986, 1.2421, & +1.0001, 1.0001, 1.0002, 1.0005, 1.0022, 1.0088, 1.0247, 1.0612, 1.1488, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0006, 1.0023, 1.0115, 1.0346, 1.0891, & +0.9998, 0.9998, 0.9999, 1.0000, 1.0002, 1.0007, 1.0024, 1.0145, 1.0470 / +data ((supersat( 5,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +1.0008, 1.0020, 1.0046, 1.0103, 1.0234, 1.0541, 1.1294, 1.3346, 2.0871, & +1.0004, 1.0010, 1.0026, 1.0063, 1.0145, 1.0333, 1.0774, 1.1878, 1.5122, & +1.0002, 1.0004, 1.0012, 1.0035, 1.0088, 1.0208, 1.0480, 1.1127, 1.2810, & +1.0001, 1.0002, 1.0004, 1.0014, 1.0046, 1.0123, 1.0299, 1.0700, 1.1675, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0015, 1.0060, 1.0173, 1.0430, 1.1032, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0004, 1.0015, 1.0077, 1.0239, 1.0618, & +0.9999, 0.9999, 1.0000, 1.0000, 1.0002, 1.0005, 1.0016, 1.0095, 1.0323 / +data ((supersat( 5,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +1.0006, 1.0016, 1.0035, 1.0080, 1.0184, 1.0428, 1.1019, 1.2555, 1.7349, & +1.0003, 1.0008, 1.0019, 1.0048, 1.0112, 1.0258, 1.0601, 1.1443, 1.3732, & +1.0001, 1.0003, 1.0009, 1.0026, 1.0066, 1.0157, 1.0365, 1.0856, 1.2088, & +1.0001, 1.0001, 1.0003, 1.0010, 1.0033, 1.0090, 1.0222, 1.0522, 1.1239, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0010, 1.0042, 1.0124, 1.0314, 1.0753, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0003, 1.0010, 1.0051, 1.0169, 1.0444, & +0.9999, 1.0000, 1.0000, 1.0000, 1.0002, 1.0004, 1.0011, 1.0061, 1.0225 / +data ((supersat( 5,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +1.0006, 1.0012, 1.0028, 1.0065, 1.0151, 1.0353, 1.0840, 1.2075, 1.5614, & +1.0003, 1.0006, 1.0016, 1.0039, 1.0089, 1.0209, 1.0489, 1.1170, 1.2948, & +1.0001, 1.0003, 1.0007, 1.0020, 1.0051, 1.0124, 1.0291, 1.0684, 1.1654, & +1.0001, 1.0001, 1.0003, 1.0008, 1.0025, 1.0069, 1.0172, 1.0409, 1.0970, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0008, 1.0030, 1.0093, 1.0239, 1.0578, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0003, 1.0008, 1.0036, 1.0124, 1.0332, & +1.0000, 1.0000, 1.0000, 1.0000, 1.0001, 1.0003, 1.0008, 1.0040, 1.0161 / +data ((supersat( 5,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +1.0004, 1.0009, 1.0023, 1.0055, 1.0128, 1.0300, 1.0715, 1.1753, 1.4599, & +1.0002, 1.0005, 1.0013, 1.0032, 1.0074, 1.0175, 1.0412, 1.0985, 1.2450, & +1.0001, 1.0002, 1.0006, 1.0016, 1.0042, 1.0102, 1.0241, 1.0569, 1.1372, & +1.0001, 1.0001, 1.0002, 1.0006, 1.0020, 1.0055, 1.0139, 1.0333, 1.0794, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0006, 1.0023, 1.0072, 1.0190, 1.0464, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0002, 1.0006, 1.0026, 1.0094, 1.0260, & +1.0000, 1.0000, 1.0000, 1.0000, 1.0001, 1.0002, 1.0006, 1.0027, 1.0119 / +data ((supersat( 5,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +1.0020, 1.0051, 1.0120, 1.0276, 1.0634, 1.1502, 1.3995, 2.6759, 4.9372, & +1.0007, 1.0024, 1.0069, 1.0174, 1.0407, 1.0947, 1.2319, 1.6875, 3.9201, & +1.0002, 1.0007, 1.0029, 1.0096, 1.0251, 1.0601, 1.1439, 1.3748, 2.4473, & +1.0002, 1.0003, 1.0007, 1.0034, 1.0131, 1.0359, 1.0890, 1.2234, 1.6567, & +1.0000, 1.0001, 1.0004, 1.0008, 1.0039, 1.0174, 1.0504, 1.1317, 1.3590, & +0.9996, 0.9997, 0.9998, 1.0002, 1.0011, 1.0041, 1.0221, 1.0688, 1.1940, & +0.9984, 0.9985, 0.9986, 0.9989, 0.9995, 1.0012, 1.0052, 1.0265, 1.0902 / +data ((supersat( 5,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +1.0014, 1.0036, 1.0083, 1.0190, 1.0433, 1.1009, 1.2524, 1.7938, 3.6869, & +1.0005, 1.0017, 1.0049, 1.0119, 1.0277, 1.0637, 1.1510, 1.3983, 2.5539, & +1.0002, 1.0005, 1.0021, 1.0066, 1.0171, 1.0406, 1.0950, 1.2329, 1.6824, & +1.0001, 1.0002, 1.0005, 1.0024, 1.0090, 1.0244, 1.0597, 1.1439, 1.3753, & +1.0001, 1.0001, 1.0003, 1.0006, 1.0027, 1.0119, 1.0345, 1.0876, 1.2221, & +0.9999, 0.9999, 1.0000, 1.0003, 1.0008, 1.0028, 1.0154, 1.0476, 1.1277, & +0.9993, 0.9994, 0.9994, 0.9996, 1.0000, 1.0009, 1.0030, 1.0190, 1.0634 / +data ((supersat( 5,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +1.0011, 1.0025, 1.0059, 1.0136, 1.0310, 1.0718, 1.1742, 1.4798, 2.7233, & +1.0004, 1.0013, 1.0033, 1.0084, 1.0196, 1.0449, 1.1049, 1.2615, 1.8026, & +1.0002, 1.0004, 1.0015, 1.0046, 1.0119, 1.0283, 1.0658, 1.1565, 1.4113, & +1.0001, 1.0002, 1.0004, 1.0017, 1.0062, 1.0169, 1.0412, 1.0975, 1.2403, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0018, 1.0081, 1.0238, 1.0598, 1.1465, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0005, 1.0019, 1.0104, 1.0328, 1.0863, & +0.9997, 0.9997, 0.9998, 0.9999, 1.0001, 1.0007, 1.0020, 1.0128, 1.0439 / +data ((supersat( 5,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +1.0007, 1.0019, 1.0045, 1.0102, 1.0233, 1.0540, 1.1292, 1.3344, 2.0867, & +1.0003, 1.0010, 1.0024, 1.0062, 1.0144, 1.0332, 1.0772, 1.1875, 1.5117, & +1.0002, 1.0003, 1.0011, 1.0033, 1.0086, 1.0205, 1.0477, 1.1122, 1.2803, & +1.0001, 1.0002, 1.0003, 1.0012, 1.0043, 1.0119, 1.0293, 1.0693, 1.1665, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0012, 1.0055, 1.0166, 1.0421, 1.1018, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0004, 1.0013, 1.0069, 1.0227, 1.0600, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0001, 1.0005, 1.0013, 1.0083, 1.0303 / +data ((supersat( 5,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +1.0006, 1.0015, 1.0035, 1.0080, 1.0184, 1.0428, 1.1018, 1.2554, 1.7347, & +1.0003, 1.0008, 1.0019, 1.0047, 1.0111, 1.0257, 1.0600, 1.1441, 1.3729, & +1.0001, 1.0003, 1.0008, 1.0024, 1.0064, 1.0155, 1.0363, 1.0853, 1.2083, & +1.0001, 1.0001, 1.0003, 1.0009, 1.0031, 1.0088, 1.0218, 1.0517, 1.1232, & +1.0001, 1.0001, 1.0001, 1.0003, 1.0009, 1.0038, 1.0119, 1.0307, 1.0744, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0003, 1.0009, 1.0046, 1.0160, 1.0431, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0001, 1.0003, 1.0009, 1.0052, 1.0210 / +data ((supersat( 5,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +1.0005, 1.0012, 1.0028, 1.0065, 1.0151, 1.0353, 1.0839, 1.2074, 1.5613, & +1.0002, 1.0006, 1.0015, 1.0038, 1.0089, 1.0208, 1.0488, 1.1168, 1.2946, & +1.0001, 1.0002, 1.0006, 1.0019, 1.0050, 1.0122, 1.0289, 1.0682, 1.1651, & +1.0001, 1.0001, 1.0002, 1.0007, 1.0023, 1.0067, 1.0169, 1.0405, 1.0965, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0007, 1.0028, 1.0089, 1.0234, 1.0571, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0002, 1.0007, 1.0031, 1.0117, 1.0323, & +0.9999, 0.9999, 1.0000, 1.0000, 1.0001, 1.0003, 1.0007, 1.0033, 1.0150 / +data ((supersat( 5,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +1.0004, 1.0009, 1.0023, 1.0055, 1.0128, 1.0300, 1.0714, 1.1752, 1.4598, & +1.0002, 1.0005, 1.0013, 1.0031, 1.0074, 1.0174, 1.0411, 1.0984, 1.2449, & +1.0001, 1.0002, 1.0005, 1.0015, 1.0040, 1.0100, 1.0239, 1.0567, 1.1369, & +1.0001, 1.0001, 1.0002, 1.0005, 1.0018, 1.0053, 1.0137, 1.0331, 1.0790, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0005, 1.0021, 1.0069, 1.0186, 1.0459, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0002, 1.0005, 1.0022, 1.0088, 1.0252, & +0.9999, 0.9999, 1.0000, 1.0000, 1.0001, 1.0002, 1.0005, 1.0023, 1.0110 / +data ((supersat( 6,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +1.0024, 1.0056, 1.0126, 1.0284, 1.0643, 1.1516, 1.4019, 2.6827, 4.9489, & +1.0010, 1.0030, 1.0078, 1.0185, 1.0421, 1.0967, 1.2351, 1.6939, 3.9431, & +1.0004, 1.0011, 1.0039, 1.0111, 1.0270, 1.0630, 1.1483, 1.3827, 2.4691, & +1.0002, 1.0004, 1.0011, 1.0050, 1.0156, 1.0396, 1.0948, 1.2334, 1.6783, & +1.0001, 1.0002, 1.0004, 1.0011, 1.0063, 1.0216, 1.0574, 1.1436, 1.3826, & +0.9999, 1.0000, 1.0002, 1.0005, 1.0013, 1.0076, 1.0290, 1.0816, 1.2192, & +0.9992, 0.9992, 0.9994, 0.9997, 1.0003, 1.0019, 1.0087, 1.0372, 1.1131 / +data ((supersat( 6,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +1.0017, 1.0039, 1.0087, 1.0195, 1.0439, 1.1017, 1.2535, 1.7959, 3.6934, & +1.0008, 1.0020, 1.0054, 1.0125, 1.0286, 1.0649, 1.1527, 1.4011, 2.5619, & +1.0003, 1.0008, 1.0027, 1.0076, 1.0183, 1.0422, 1.0974, 1.2367, 1.6902, & +1.0002, 1.0003, 1.0008, 1.0035, 1.0106, 1.0266, 1.0629, 1.1491, 1.3848, & +1.0001, 1.0002, 1.0003, 1.0009, 1.0043, 1.0147, 1.0387, 1.0942, 1.2337, & +1.0000, 1.0001, 1.0002, 1.0004, 1.0009, 1.0051, 1.0200, 1.0553, 1.1413, & +0.9997, 0.9998, 0.9998, 1.0000, 1.0004, 1.0013, 1.0058, 1.0261, 1.0772 / +data ((supersat( 6,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +1.0013, 1.0027, 1.0062, 1.0140, 1.0314, 1.0723, 1.1748, 1.4807, 2.7263, & +1.0006, 1.0014, 1.0037, 1.0089, 1.0201, 1.0456, 1.1058, 1.2630, 1.8053, & +1.0002, 1.0006, 1.0020, 1.0052, 1.0127, 1.0294, 1.0672, 1.1586, 1.4149, & +1.0001, 1.0002, 1.0006, 1.0024, 1.0073, 1.0184, 1.0432, 1.1005, 1.2452, & +1.0001, 1.0001, 1.0003, 1.0006, 1.0029, 1.0100, 1.0264, 1.0639, 1.1530, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0007, 1.0033, 1.0135, 1.0377, 1.0944, & +0.9999, 0.9999, 1.0000, 1.0001, 1.0003, 1.0008, 1.0036, 1.0178, 1.0527 / +data ((supersat( 6,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +1.0009, 1.0021, 1.0047, 1.0104, 1.0236, 1.0543, 1.1296, 1.3349, 2.0879, & +1.0004, 1.0011, 1.0027, 1.0065, 1.0147, 1.0336, 1.0778, 1.1883, 1.5131, & +1.0002, 1.0005, 1.0014, 1.0038, 1.0092, 1.0212, 1.0486, 1.1135, 1.2823, & +1.0001, 1.0002, 1.0005, 1.0017, 1.0051, 1.0130, 1.0307, 1.0712, 1.1694, & +1.0001, 1.0001, 1.0002, 1.0005, 1.0020, 1.0068, 1.0185, 1.0447, 1.1058, & +1.0001, 1.0001, 1.0001, 1.0002, 1.0005, 1.0021, 1.0091, 1.0261, 1.0652, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0003, 1.0006, 1.0022, 1.0118, 1.0362 / +data ((supersat( 6,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +1.0006, 1.0017, 1.0036, 1.0081, 1.0186, 1.0430, 1.1020, 1.2557, 1.7353, & +1.0004, 1.0009, 1.0020, 1.0050, 1.0114, 1.0260, 1.0604, 1.1446, 1.3737, & +1.0002, 1.0004, 1.0010, 1.0028, 1.0068, 1.0160, 1.0369, 1.0862, 1.2096, & +1.0001, 1.0002, 1.0004, 1.0012, 1.0037, 1.0095, 1.0228, 1.0531, 1.1251, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0013, 1.0048, 1.0133, 1.0326, 1.0771, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0004, 1.0014, 1.0062, 1.0185, 1.0467, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0002, 1.0004, 1.0014, 1.0077, 1.0253 / +data ((supersat( 6,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +1.0006, 1.0013, 1.0029, 1.0066, 1.0152, 1.0354, 1.0841, 1.2076, 1.5617, & +1.0003, 1.0007, 1.0017, 1.0040, 1.0091, 1.0210, 1.0491, 1.1172, 1.2952, & +1.0002, 1.0003, 1.0008, 1.0022, 1.0054, 1.0127, 1.0294, 1.0688, 1.1659, & +1.0001, 1.0002, 1.0003, 1.0009, 1.0028, 1.0073, 1.0177, 1.0415, 1.0978, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0010, 1.0035, 1.0100, 1.0248, 1.0591, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0003, 1.0010, 1.0043, 1.0135, 1.0350, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0002, 1.0003, 1.0010, 1.0052, 1.0182 / +data ((supersat( 6,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +1.0005, 1.0010, 1.0023, 1.0056, 1.0129, 1.0301, 1.0716, 1.1754, 1.4600, & +1.0003, 1.0005, 1.0014, 1.0033, 1.0076, 1.0176, 1.0413, 1.0987, 1.2453, & +1.0001, 1.0003, 1.0007, 1.0018, 1.0044, 1.0104, 1.0243, 1.0572, 1.1376, & +1.0001, 1.0001, 1.0003, 1.0007, 1.0022, 1.0059, 1.0143, 1.0338, 1.0800, & +1.0001, 1.0001, 1.0001, 1.0003, 1.0007, 1.0027, 1.0078, 1.0197, 1.0474, & +1.0000, 1.0001, 1.0001, 1.0001, 1.0003, 1.0007, 1.0032, 1.0103, 1.0273, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0001, 1.0003, 1.0008, 1.0036, 1.0136 / +data ((supersat( 6,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +1.0019, 1.0050, 1.0119, 1.0275, 1.0632, 1.1501, 1.3993, 2.6752, 4.9359, & +1.0006, 1.0023, 1.0068, 1.0172, 1.0405, 1.0944, 1.2316, 1.6869, 3.9181, & +1.0002, 1.0006, 1.0027, 1.0094, 1.0248, 1.0598, 1.1434, 1.3740, 2.4454, & +1.0002, 1.0003, 1.0006, 1.0032, 1.0127, 1.0354, 1.0884, 1.2224, 1.6547, & +1.0000, 1.0001, 1.0003, 1.0008, 1.0035, 1.0168, 1.0496, 1.1304, 1.3567, & +0.9995, 0.9996, 0.9998, 1.0001, 1.0010, 1.0037, 1.0212, 1.0674, 1.1914, & +0.9982, 0.9982, 0.9983, 0.9986, 0.9993, 1.0010, 1.0050, 1.0254, 1.0878 / +data ((supersat( 6,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +1.0014, 1.0035, 1.0083, 1.0189, 1.0432, 1.1008, 1.2523, 1.7937, 3.6863, & +1.0005, 1.0017, 1.0047, 1.0117, 1.0276, 1.0636, 1.1508, 1.3980, 2.5531, & +1.0002, 1.0005, 1.0020, 1.0064, 1.0168, 1.0404, 1.0947, 1.2325, 1.6817, & +1.0001, 1.0002, 1.0005, 1.0023, 1.0087, 1.0241, 1.0593, 1.1434, 1.3744, & +1.0001, 1.0001, 1.0003, 1.0005, 1.0024, 1.0115, 1.0340, 1.0868, 1.2210, & +0.9999, 0.9999, 1.0000, 1.0002, 1.0007, 1.0025, 1.0148, 1.0467, 1.1263, & +0.9992, 0.9992, 0.9993, 0.9995, 0.9999, 1.0008, 1.0031, 1.0181, 1.0619 / +data ((supersat( 6,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +1.0010, 1.0025, 1.0059, 1.0136, 1.0310, 1.0718, 1.1742, 1.4797, 2.7231, & +1.0004, 1.0012, 1.0033, 1.0083, 1.0195, 1.0448, 1.1048, 1.2614, 1.8023, & +1.0002, 1.0004, 1.0014, 1.0045, 1.0118, 1.0281, 1.0656, 1.1563, 1.4110, & +1.0001, 1.0002, 1.0004, 1.0016, 1.0059, 1.0167, 1.0409, 1.0972, 1.2399, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0016, 1.0078, 1.0234, 1.0594, 1.1459, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0005, 1.0017, 1.0100, 1.0322, 1.0855, & +0.9996, 0.9997, 0.9997, 0.9998, 1.0001, 1.0006, 1.0018, 1.0122, 1.0430 / +data ((supersat( 6,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +1.0007, 1.0019, 1.0044, 1.0102, 1.0233, 1.0540, 1.1292, 1.3343, 2.0866, & +1.0003, 1.0009, 1.0024, 1.0061, 1.0143, 1.0331, 1.0771, 1.1874, 1.5116, & +1.0001, 1.0003, 1.0010, 1.0032, 1.0085, 1.0204, 1.0476, 1.1121, 1.2801, & +1.0001, 1.0001, 1.0003, 1.0011, 1.0042, 1.0117, 1.0292, 1.0691, 1.1662, & +1.0001, 1.0001, 1.0002, 1.0003, 1.0011, 1.0053, 1.0163, 1.0418, 1.1014, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0004, 1.0011, 1.0065, 1.0223, 1.0594, & +0.9998, 0.9998, 0.9999, 0.9999, 1.0001, 1.0004, 1.0012, 1.0078, 1.0296 / +data ((supersat( 6,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +1.0005, 1.0015, 1.0034, 1.0079, 1.0183, 1.0427, 1.1017, 1.2553, 1.7347, & +1.0003, 1.0007, 1.0018, 1.0047, 1.0110, 1.0256, 1.0599, 1.1441, 1.3728, & +1.0001, 1.0003, 1.0008, 1.0023, 1.0063, 1.0154, 1.0362, 1.0852, 1.2082, & +1.0001, 1.0001, 1.0003, 1.0008, 1.0030, 1.0086, 1.0217, 1.0516, 1.1230, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0008, 1.0037, 1.0117, 1.0305, 1.0741, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0003, 1.0008, 1.0043, 1.0157, 1.0427, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0001, 1.0003, 1.0009, 1.0049, 1.0206 / +data ((supersat( 6,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +1.0005, 1.0011, 1.0028, 1.0065, 1.0150, 1.0352, 1.0839, 1.2073, 1.5613, & +1.0002, 1.0005, 1.0015, 1.0037, 1.0088, 1.0207, 1.0488, 1.1168, 1.2946, & +1.0001, 1.0002, 1.0006, 1.0018, 1.0049, 1.0122, 1.0288, 1.0681, 1.1650, & +1.0001, 1.0001, 1.0002, 1.0006, 1.0022, 1.0066, 1.0168, 1.0404, 1.0964, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0006, 1.0026, 1.0087, 1.0232, 1.0570, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0002, 1.0006, 1.0029, 1.0114, 1.0320, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0001, 1.0002, 1.0006, 1.0031, 1.0146 / +data ((supersat( 6,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +1.0004, 1.0009, 1.0022, 1.0054, 1.0127, 1.0300, 1.0714, 1.1752, 1.4598, & +1.0002, 1.0005, 1.0012, 1.0030, 1.0073, 1.0174, 1.0411, 1.0983, 1.2448, & +1.0001, 1.0002, 1.0005, 1.0015, 1.0040, 1.0100, 1.0239, 1.0567, 1.1369, & +1.0001, 1.0001, 1.0002, 1.0005, 1.0017, 1.0052, 1.0136, 1.0330, 1.0790, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0005, 1.0020, 1.0068, 1.0184, 1.0458, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0002, 1.0005, 1.0021, 1.0086, 1.0250, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0000, 1.0002, 1.0005, 1.0021, 1.0107 / +data ((supersat( 6,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +1.0013, 1.0042, 1.0111, 1.0264, 1.0618, 1.1481, 1.3960, 2.6656, 4.9199, & +1.0004, 1.0015, 1.0056, 1.0157, 1.0385, 1.0916, 1.2271, 1.6779, 3.8861, & +1.0002, 1.0004, 1.0016, 1.0074, 1.0221, 1.0559, 1.1373, 1.3631, 2.4153, & +1.0001, 1.0002, 1.0005, 1.0016, 1.0095, 1.0306, 1.0807, 1.2091, 1.6255, & +0.9997, 0.9998, 1.0001, 1.0006, 1.0017, 1.0118, 1.0410, 1.1150, 1.3257, & +0.9988, 0.9989, 0.9990, 0.9994, 1.0004, 1.0027, 1.0138, 1.0526, 1.1608, & +0.9967, 0.9968, 0.9969, 0.9971, 0.9978, 0.9994, 1.0035, 1.0154, 1.0641 / +data ((supersat( 6,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +1.0010, 1.0030, 1.0077, 1.0183, 1.0424, 1.0998, 1.2507, 1.7907, 3.6772, & +1.0003, 1.0011, 1.0040, 1.0108, 1.0263, 1.0619, 1.1485, 1.3941, 2.5419, & +1.0001, 1.0003, 1.0012, 1.0052, 1.0151, 1.0380, 1.0914, 1.2271, 1.6710, & +1.0001, 1.0002, 1.0003, 1.0012, 1.0066, 1.0210, 1.0548, 1.1363, 1.3615, & +0.9999, 1.0000, 1.0001, 1.0004, 1.0013, 1.0082, 1.0286, 1.0781, 1.2055, & +0.9995, 0.9995, 0.9996, 0.9999, 1.0004, 1.0017, 1.0097, 1.0374, 1.1092, & +0.9983, 0.9983, 0.9984, 0.9985, 0.9989, 1.0000, 1.0023, 1.0109, 1.0466 / +data ((supersat( 6,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +1.0007, 1.0022, 1.0055, 1.0131, 1.0304, 1.0711, 1.1733, 1.4783, 2.7188, & +1.0002, 1.0008, 1.0028, 1.0077, 1.0187, 1.0438, 1.1034, 1.2594, 1.7984, & +1.0001, 1.0002, 1.0009, 1.0036, 1.0106, 1.0266, 1.0636, 1.1533, 1.4059, & +1.0001, 1.0001, 1.0003, 1.0009, 1.0045, 1.0146, 1.0381, 1.0931, 1.2331, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0009, 1.0055, 1.0198, 1.0540, 1.1372, & +0.9998, 0.9998, 0.9999, 1.0000, 1.0004, 1.0011, 1.0064, 1.0261, 1.0752, & +0.9991, 0.9991, 0.9991, 0.9993, 0.9995, 1.0001, 1.0015, 1.0071, 1.0329 / +data ((supersat( 6,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +1.0005, 1.0017, 1.0041, 1.0098, 1.0229, 1.0536, 1.1287, 1.3336, 2.0849, & +1.0002, 1.0006, 1.0021, 1.0056, 1.0137, 1.0324, 1.0763, 1.1862, 1.5096, & +1.0001, 1.0002, 1.0006, 1.0026, 1.0076, 1.0193, 1.0462, 1.1103, 1.2773, & +1.0001, 1.0001, 1.0002, 1.0006, 1.0031, 1.0103, 1.0272, 1.0665, 1.1623, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0007, 1.0036, 1.0138, 1.0382, 1.0960, & +0.9999, 0.9999, 1.0000, 1.0001, 1.0003, 1.0007, 1.0040, 1.0181, 1.0527, & +0.9995, 0.9995, 0.9995, 0.9996, 0.9997, 1.0001, 1.0010, 1.0042, 1.0227 / +data ((supersat( 6,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +1.0005, 1.0013, 1.0032, 1.0077, 1.0181, 1.0424, 1.1014, 1.2549, 1.7339, & +1.0002, 1.0005, 1.0016, 1.0043, 1.0106, 1.0251, 1.0593, 1.1433, 1.3717, & +1.0001, 1.0002, 1.0005, 1.0019, 1.0057, 1.0146, 1.0353, 1.0840, 1.2065, & +1.0001, 1.0001, 1.0002, 1.0005, 1.0022, 1.0075, 1.0202, 1.0498, 1.1205, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0005, 1.0024, 1.0098, 1.0279, 1.0705, & +0.9999, 0.9999, 1.0000, 1.0001, 1.0002, 1.0005, 1.0025, 1.0126, 1.0380, & +0.9996, 0.9996, 0.9996, 0.9997, 0.9998, 1.0001, 1.0007, 1.0026, 1.0155 / +data ((supersat( 6,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +1.0004, 1.0009, 1.0025, 1.0063, 1.0148, 1.0350, 1.0836, 1.2070, 1.5608, & +1.0001, 1.0004, 1.0012, 1.0034, 1.0085, 1.0203, 1.0483, 1.1163, 1.2939, & +1.0001, 1.0001, 1.0004, 1.0015, 1.0044, 1.0115, 1.0281, 1.0673, 1.1639, & +1.0000, 1.0001, 1.0001, 1.0004, 1.0016, 1.0057, 1.0157, 1.0390, 1.0946, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0004, 1.0017, 1.0072, 1.0213, 1.0543, & +0.9999, 1.0000, 1.0000, 1.0000, 1.0002, 1.0004, 1.0017, 1.0090, 1.0285, & +0.9997, 0.9997, 0.9997, 0.9997, 0.9998, 1.0000, 1.0005, 1.0018, 1.0108 / +data ((supersat( 6,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +1.0003, 1.0008, 1.0021, 1.0053, 1.0125, 1.0298, 1.0712, 1.1749, 1.4594, & +1.0001, 1.0003, 1.0010, 1.0028, 1.0070, 1.0171, 1.0407, 1.0979, 1.2443, & +1.0001, 1.0001, 1.0003, 1.0011, 1.0036, 1.0095, 1.0233, 1.0560, 1.1360, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0012, 1.0045, 1.0126, 1.0319, 1.0776, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0003, 1.0012, 1.0056, 1.0169, 1.0437, & +1.0000, 1.0000, 1.0000, 1.0000, 1.0001, 1.0003, 1.0013, 1.0067, 1.0222, & +0.9997, 0.9997, 0.9997, 0.9998, 0.9998, 1.0000, 1.0004, 1.0013, 1.0077 / +data ((supersat( 6,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +1.0008, 1.0034, 1.0100, 1.0251, 1.0601, 1.1456, 1.3918, 2.6531, 4.8987, & +1.0002, 1.0009, 1.0044, 1.0139, 1.0360, 1.0880, 1.2214, 1.6664, 3.8449, & +1.0001, 1.0003, 1.0009, 1.0053, 1.0189, 1.0512, 1.1299, 1.3494, 2.3771, & +0.9999, 1.0000, 1.0003, 1.0010, 1.0062, 1.0251, 1.0716, 1.1928, 1.5895, & +0.9992, 0.9993, 0.9996, 1.0002, 1.0015, 1.0070, 1.0319, 1.0977, 1.2896, & +0.9976, 0.9977, 0.9979, 0.9983, 0.9993, 1.0017, 1.0075, 1.0384, 1.1289, & +0.9949, 0.9950, 0.9950, 0.9953, 0.9959, 0.9974, 1.0011, 1.0117, 1.0439 / +data ((supersat( 6,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +1.0007, 1.0025, 1.0070, 1.0174, 1.0414, 1.0984, 1.2486, 1.7869, 3.6653, & +1.0002, 1.0007, 1.0031, 1.0096, 1.0248, 1.0599, 1.1455, 1.3890, 2.5273, & +1.0001, 1.0002, 1.0007, 1.0037, 1.0131, 1.0352, 1.0873, 1.2204, 1.6573, & +1.0000, 1.0001, 1.0003, 1.0007, 1.0043, 1.0176, 1.0495, 1.1276, 1.3455, & +0.9997, 0.9998, 0.9999, 1.0002, 1.0010, 1.0048, 1.0227, 1.0680, 1.1870, & +0.9988, 0.9989, 0.9990, 0.9992, 0.9998, 1.0012, 1.0051, 1.0280, 1.0905, & +0.9969, 0.9969, 0.9970, 0.9971, 0.9975, 0.9985, 1.0010, 1.0074, 1.0327 / +data ((supersat( 6,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +1.0005, 1.0018, 1.0050, 1.0126, 1.0298, 1.0703, 1.1722, 1.4764, 2.7133, & +1.0002, 1.0005, 1.0022, 1.0068, 1.0176, 1.0425, 1.1017, 1.2567, 1.7934, & +1.0001, 1.0002, 1.0005, 1.0026, 1.0092, 1.0248, 1.0611, 1.1496, 1.3994, & +1.0000, 1.0001, 1.0002, 1.0005, 1.0030, 1.0122, 1.0347, 1.0880, 1.2247, & +0.9999, 0.9999, 1.0000, 1.0002, 1.0006, 1.0032, 1.0158, 1.0476, 1.1266, & +0.9994, 0.9994, 0.9995, 0.9997, 1.0000, 1.0008, 1.0033, 1.0197, 1.0636, & +0.9982, 0.9982, 0.9982, 0.9983, 0.9986, 0.9992, 1.0007, 1.0045, 1.0233 / +data ((supersat( 6,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +1.0004, 1.0014, 1.0037, 1.0094, 1.0224, 1.0530, 1.1280, 1.3325, 2.0827, & +1.0001, 1.0004, 1.0016, 1.0050, 1.0130, 1.0315, 1.0752, 1.1847, 1.5070, & +1.0001, 1.0001, 1.0004, 1.0019, 1.0066, 1.0180, 1.0446, 1.1080, 1.2737, & +1.0000, 1.0001, 1.0002, 1.0004, 1.0020, 1.0086, 1.0249, 1.0632, 1.1572, & +0.9999, 1.0000, 1.0000, 1.0002, 1.0004, 1.0021, 1.0110, 1.0340, 1.0894, & +0.9997, 0.9997, 0.9997, 0.9998, 1.0001, 1.0006, 1.0021, 1.0135, 1.0450, & +0.9988, 0.9988, 0.9988, 0.9989, 0.9991, 0.9995, 1.0005, 1.0027, 1.0159 / +data ((supersat( 6,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +1.0003, 1.0010, 1.0029, 1.0074, 1.0177, 1.0420, 1.1009, 1.2542, 1.7328, & +1.0001, 1.0003, 1.0012, 1.0038, 1.0100, 1.0245, 1.0586, 1.1423, 1.3701, & +1.0001, 1.0001, 1.0003, 1.0014, 1.0049, 1.0137, 1.0341, 1.0824, 1.2042, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0014, 1.0062, 1.0185, 1.0475, 1.1172, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0003, 1.0014, 1.0077, 1.0249, 1.0660, & +0.9998, 0.9998, 0.9998, 0.9999, 1.0001, 1.0004, 1.0015, 1.0092, 1.0326, & +0.9991, 0.9991, 0.9991, 0.9992, 0.9993, 0.9996, 1.0003, 1.0018, 1.0106 / +data ((supersat( 6,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +1.0003, 1.0008, 1.0023, 1.0060, 1.0145, 1.0347, 1.0833, 1.2066, 1.5601, & +1.0001, 1.0003, 1.0009, 1.0030, 1.0080, 1.0199, 1.0477, 1.1155, 1.2928, & +1.0001, 1.0001, 1.0003, 1.0010, 1.0038, 1.0108, 1.0272, 1.0661, 1.1623, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0010, 1.0047, 1.0143, 1.0373, 1.0922, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0003, 1.0010, 1.0056, 1.0189, 1.0510, & +0.9998, 0.9998, 0.9998, 0.9999, 1.0000, 1.0003, 1.0011, 1.0064, 1.0244, & +0.9993, 0.9993, 0.9993, 0.9993, 0.9994, 0.9996, 1.0001, 1.0012, 1.0070 / +data ((supersat( 6,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +1.0002, 1.0007, 1.0020, 1.0051, 1.0123, 1.0295, 1.0709, 1.1746, 1.4589, & +1.0001, 1.0002, 1.0008, 1.0025, 1.0067, 1.0166, 1.0402, 1.0974, 1.2435, & +1.0000, 1.0001, 1.0002, 1.0008, 1.0030, 1.0088, 1.0225, 1.0551, 1.1348, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0008, 1.0036, 1.0115, 1.0305, 1.0757, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0002, 1.0008, 1.0042, 1.0149, 1.0411, & +0.9998, 0.9998, 0.9999, 0.9999, 1.0000, 1.0002, 1.0008, 1.0046, 1.0189, & +0.9993, 0.9993, 0.9993, 0.9994, 0.9995, 0.9996, 1.0001, 1.0009, 1.0048 / +data ((supersat( 6,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +1.0006, 1.0029, 1.0093, 1.0242, 1.0589, 1.1438, 1.3887, 2.6440, 4.8833, & +1.0002, 1.0006, 1.0035, 1.0126, 1.0343, 1.0856, 1.2173, 1.6582, 3.8153, & +1.0001, 1.0003, 1.0007, 1.0040, 1.0169, 1.0480, 1.1247, 1.3398, 2.3499, & +0.9997, 0.9999, 1.0002, 1.0009, 1.0044, 1.0217, 1.0657, 1.1819, 1.5649, & +0.9988, 0.9989, 0.9991, 0.9997, 1.0011, 1.0046, 1.0266, 1.0870, 1.2662, & +0.9968, 0.9968, 0.9970, 0.9974, 0.9984, 1.0008, 1.0070, 1.0308, 1.1106, & +0.9939, 0.9939, 0.9940, 0.9942, 0.9947, 0.9961, 0.9996, 1.0092, 1.0341 / +data ((supersat( 6,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +1.0005, 1.0021, 1.0066, 1.0168, 1.0407, 1.0974, 1.2472, 1.7841, 3.6567, & +1.0002, 1.0005, 1.0025, 1.0088, 1.0238, 1.0585, 1.1434, 1.3854, 2.5168, & +1.0001, 1.0002, 1.0005, 1.0029, 1.0118, 1.0333, 1.0844, 1.2157, 1.6476, & +0.9999, 1.0000, 1.0002, 1.0006, 1.0031, 1.0153, 1.0459, 1.1217, 1.3343, & +0.9995, 0.9995, 0.9997, 1.0000, 1.0008, 1.0032, 1.0191, 1.0615, 1.1747, & +0.9983, 0.9983, 0.9984, 0.9987, 0.9993, 1.0007, 1.0044, 1.0227, 1.0793, & +0.9959, 0.9959, 0.9960, 0.9961, 0.9965, 0.9975, 0.9999, 1.0061, 1.0256 / +data ((supersat( 6,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +1.0004, 1.0015, 1.0047, 1.0122, 1.0293, 1.0697, 1.1714, 1.4751, 2.7093, & +1.0001, 1.0004, 1.0018, 1.0063, 1.0169, 1.0416, 1.1005, 1.2548, 1.7897, & +1.0001, 1.0001, 1.0004, 1.0020, 1.0083, 1.0236, 1.0593, 1.1469, 1.3947, & +1.0000, 1.0001, 1.0002, 1.0004, 1.0021, 1.0107, 1.0324, 1.0845, 1.2187, & +0.9998, 0.9998, 0.9999, 1.0001, 1.0006, 1.0022, 1.0134, 1.0435, 1.1195, & +0.9991, 0.9991, 0.9992, 0.9993, 0.9997, 1.0006, 1.0027, 1.0160, 1.0564, & +0.9974, 0.9974, 0.9974, 0.9975, 0.9978, 0.9985, 1.0000, 1.0038, 1.0181 / +data ((supersat( 6,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +1.0003, 1.0011, 1.0035, 1.0091, 1.0221, 1.0526, 1.1275, 1.3318, 2.0811, & +1.0001, 1.0003, 1.0013, 1.0046, 1.0125, 1.0309, 1.0744, 1.1836, 1.5051, & +1.0001, 1.0001, 1.0003, 1.0014, 1.0059, 1.0171, 1.0434, 1.1063, 1.2711, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0015, 1.0075, 1.0233, 1.0609, 1.1537, & +0.9999, 0.9999, 1.0000, 1.0001, 1.0004, 1.0015, 1.0092, 1.0311, 1.0848, & +0.9994, 0.9995, 0.9995, 0.9996, 0.9999, 1.0004, 1.0017, 1.0108, 1.0402, & +0.9983, 0.9983, 0.9983, 0.9984, 0.9985, 0.9990, 1.0000, 1.0023, 1.0122 / +data ((supersat( 6,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +1.0002, 1.0009, 1.0027, 1.0072, 1.0175, 1.0417, 1.1006, 1.2538, 1.7319, & +1.0001, 1.0002, 1.0010, 1.0035, 1.0096, 1.0241, 1.0580, 1.1416, 1.3690, & +1.0001, 1.0001, 1.0003, 1.0010, 1.0044, 1.0130, 1.0332, 1.0813, 1.2026, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0010, 1.0054, 1.0174, 1.0459, 1.1148, & +0.9999, 0.9999, 1.0000, 1.0001, 1.0003, 1.0011, 1.0064, 1.0229, 1.0629, & +0.9996, 0.9996, 0.9996, 0.9997, 0.9999, 1.0003, 1.0012, 1.0072, 1.0292, & +0.9987, 0.9987, 0.9987, 0.9987, 0.9989, 0.9992, 0.9999, 1.0015, 1.0079 / +data ((supersat( 6,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +1.0002, 1.0007, 1.0022, 1.0058, 1.0144, 1.0345, 1.0830, 1.2062, 1.5595, & +1.0001, 1.0002, 1.0008, 1.0028, 1.0077, 1.0195, 1.0473, 1.1150, 1.2921, & +1.0000, 1.0001, 1.0002, 1.0008, 1.0034, 1.0102, 1.0265, 1.0653, 1.1611, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0008, 1.0040, 1.0134, 1.0361, 1.0905, & +0.9999, 1.0000, 1.0000, 1.0001, 1.0002, 1.0008, 1.0045, 1.0173, 1.0487, & +0.9997, 0.9997, 0.9997, 0.9998, 0.9999, 1.0002, 1.0009, 1.0049, 1.0218, & +0.9989, 0.9989, 0.9989, 0.9989, 0.9990, 0.9993, 0.9998, 1.0010, 1.0051 / +data ((supersat( 6,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +1.0002, 1.0006, 1.0018, 1.0049, 1.0121, 1.0293, 1.0707, 1.1743, 1.4585, & +1.0001, 1.0002, 1.0006, 1.0023, 1.0064, 1.0163, 1.0399, 1.0969, 1.2430, & +1.0000, 1.0001, 1.0002, 1.0006, 1.0027, 1.0084, 1.0220, 1.0544, 1.1339, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0006, 1.0031, 1.0108, 1.0295, 1.0744, & +0.9999, 1.0000, 1.0000, 1.0001, 1.0002, 1.0006, 1.0033, 1.0137, 1.0393, & +0.9997, 0.9997, 0.9997, 0.9998, 0.9999, 1.0001, 1.0007, 1.0035, 1.0168, & +0.9990, 0.9990, 0.9990, 0.9990, 0.9991, 0.9993, 0.9997, 1.0007, 1.0035 / +data ((supersat( 6,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +1.0005, 1.0026, 1.0088, 1.0235, 1.0579, 1.1424, 1.3863, 2.6366, 4.8706, & +1.0002, 1.0005, 1.0029, 1.0117, 1.0330, 1.0836, 1.2141, 1.6516, 3.7914, & +1.0000, 1.0002, 1.0006, 1.0032, 1.0153, 1.0456, 1.1206, 1.3322, 2.3281, & +0.9996, 0.9997, 1.0001, 1.0008, 1.0033, 1.0192, 1.0613, 1.1736, 1.5457, & +0.9984, 0.9985, 0.9987, 0.9994, 1.0008, 1.0043, 1.0229, 1.0793, 1.2488, & +0.9960, 0.9961, 0.9962, 0.9966, 0.9976, 1.0000, 1.0061, 1.0259, 1.0982, & +0.9932, 0.9932, 0.9933, 0.9935, 0.9940, 0.9952, 0.9984, 1.0074, 1.0355 / +data ((supersat( 6,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +1.0004, 1.0019, 1.0062, 1.0164, 1.0401, 1.0966, 1.2460, 1.7819, 3.6496, & +1.0001, 1.0004, 1.0021, 1.0082, 1.0229, 1.0574, 1.1417, 1.3824, 2.5082, & +1.0001, 1.0002, 1.0004, 1.0023, 1.0108, 1.0318, 1.0821, 1.2119, 1.6397, & +0.9999, 0.9999, 1.0001, 1.0006, 1.0024, 1.0137, 1.0432, 1.1171, 1.3255, & +0.9993, 0.9993, 0.9995, 0.9998, 1.0007, 1.0025, 1.0166, 1.0568, 1.1654, & +0.9978, 0.9978, 0.9979, 0.9982, 0.9988, 1.0003, 1.0039, 1.0191, 1.0714, & +0.9952, 0.9952, 0.9952, 0.9954, 0.9957, 0.9967, 0.9990, 1.0050, 1.0211 / +data ((supersat( 6,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +1.0003, 1.0013, 1.0045, 1.0119, 1.0289, 1.0692, 1.1707, 1.4740, 2.7061, & +1.0001, 1.0003, 1.0015, 1.0058, 1.0164, 1.0409, 1.0995, 1.2533, 1.7867, & +1.0001, 1.0001, 1.0003, 1.0016, 1.0076, 1.0226, 1.0579, 1.1448, 1.3909, & +1.0000, 1.0000, 1.0001, 1.0004, 1.0016, 1.0095, 1.0306, 1.0817, 1.2140, & +0.9996, 0.9997, 0.9998, 1.0000, 1.0005, 1.0017, 1.0116, 1.0404, 1.1140, & +0.9988, 0.9988, 0.9988, 0.9990, 0.9994, 1.0003, 1.0025, 1.0134, 1.0513, & +0.9968, 0.9968, 0.9968, 0.9969, 0.9972, 0.9978, 0.9994, 1.0032, 1.0149 / +data ((supersat( 6,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +1.0003, 1.0010, 1.0033, 1.0089, 1.0218, 1.0523, 1.1271, 1.3312, 2.0797, & +1.0001, 1.0003, 1.0011, 1.0043, 1.0121, 1.0304, 1.0737, 1.1827, 1.5036, & +1.0001, 1.0001, 1.0003, 1.0012, 1.0054, 1.0165, 1.0425, 1.1050, 1.2690, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0012, 1.0067, 1.0221, 1.0591, 1.1508, & +0.9998, 0.9998, 0.9999, 1.0000, 1.0004, 1.0012, 1.0079, 1.0290, 1.0813, & +0.9992, 0.9992, 0.9993, 0.9994, 0.9997, 1.0002, 1.0016, 1.0090, 1.0367, & +0.9978, 0.9978, 0.9978, 0.9979, 0.9980, 0.9985, 0.9995, 1.0020, 1.0098 / +data ((supersat( 6,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +1.0002, 1.0008, 1.0026, 1.0070, 1.0172, 1.0415, 1.1003, 1.2534, 1.7313, & +1.0001, 1.0002, 1.0008, 1.0033, 1.0093, 1.0237, 1.0576, 1.1410, 1.3681, & +1.0000, 1.0001, 1.0002, 1.0008, 1.0040, 1.0124, 1.0325, 1.0804, 1.2012, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0009, 1.0047, 1.0165, 1.0446, 1.1129, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0003, 1.0009, 1.0054, 1.0213, 1.0605, & +0.9994, 0.9994, 0.9995, 0.9996, 0.9997, 1.0002, 1.0011, 1.0059, 1.0267, & +0.9983, 0.9983, 0.9983, 0.9983, 0.9985, 0.9988, 0.9995, 1.0012, 1.0062 / +data ((supersat( 6,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +1.0002, 1.0006, 1.0021, 1.0057, 1.0142, 1.0343, 1.0828, 1.2060, 1.5591, & +1.0001, 1.0002, 1.0007, 1.0026, 1.0075, 1.0192, 1.0470, 1.1146, 1.2914, & +1.0000, 1.0001, 1.0002, 1.0007, 1.0031, 1.0098, 1.0260, 1.0646, 1.1602, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0007, 1.0035, 1.0127, 1.0351, 1.0891, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0002, 1.0007, 1.0038, 1.0161, 1.0469, & +0.9995, 0.9995, 0.9996, 0.9996, 0.9998, 1.0001, 1.0008, 1.0039, 1.0199, & +0.9985, 0.9985, 0.9985, 0.9986, 0.9987, 0.9989, 0.9995, 1.0007, 1.0041 / +data ((supersat( 6,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +1.0001, 1.0005, 1.0017, 1.0048, 1.0120, 1.0292, 1.0705, 1.1741, 1.4582, & +1.0001, 1.0001, 1.0005, 1.0021, 1.0062, 1.0161, 1.0396, 1.0966, 1.2425, & +1.0000, 1.0001, 1.0002, 1.0005, 1.0024, 1.0080, 1.0216, 1.0539, 1.1332, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0005, 1.0027, 1.0102, 1.0287, 1.0733, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0002, 1.0005, 1.0028, 1.0127, 1.0378, & +0.9996, 0.9996, 0.9996, 0.9997, 0.9998, 1.0000, 1.0006, 1.0028, 1.0153, & +0.9986, 0.9986, 0.9986, 0.9987, 0.9988, 0.9990, 0.9994, 1.0005, 1.0030 / +data ((supersat( 6,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +1.0004, 1.0022, 1.0083, 1.0229, 1.0571, 1.1412, 1.3842, 2.6302, 4.8600, & +1.0002, 1.0004, 1.0025, 1.0110, 1.0319, 1.0819, 1.2114, 1.6460, 3.7709, & +1.0000, 1.0002, 1.0006, 1.0026, 1.0141, 1.0436, 1.1173, 1.3258, 2.3096, & +0.9994, 0.9996, 0.9999, 1.0007, 1.0027, 1.0173, 1.0577, 1.1667, 1.5297, & +0.9980, 0.9981, 0.9984, 0.9990, 1.0005, 1.0040, 1.0202, 1.0734, 1.2350, & +0.9955, 0.9955, 0.9957, 0.9960, 0.9970, 0.9993, 1.0053, 1.0224, 1.0890, & +0.9927, 0.9928, 0.9928, 0.9930, 0.9934, 0.9946, 0.9976, 1.0059, 1.0321 / +data ((supersat( 6,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +1.0003, 1.0017, 1.0059, 1.0160, 1.0396, 1.0960, 1.2449, 1.7799, 3.6436, & +1.0001, 1.0004, 1.0018, 1.0077, 1.0223, 1.0564, 1.1403, 1.3799, 2.5009, & +1.0000, 1.0002, 1.0004, 1.0019, 1.0099, 1.0306, 1.0802, 1.2087, 1.6330, & +0.9998, 0.9999, 1.0001, 1.0005, 1.0019, 1.0123, 1.0410, 1.1133, 1.3181, & +0.9991, 0.9991, 0.9993, 0.9997, 1.0005, 1.0025, 1.0147, 1.0530, 1.1579, & +0.9973, 0.9974, 0.9975, 0.9977, 0.9984, 0.9999, 1.0035, 1.0166, 1.0654, & +0.9946, 0.9946, 0.9946, 0.9948, 0.9951, 0.9960, 0.9983, 1.0041, 1.0215 / +data ((supersat( 6,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +1.0003, 1.0012, 1.0043, 1.0116, 1.0286, 1.0688, 1.1701, 1.4730, 2.7032, & +1.0001, 1.0003, 1.0013, 1.0055, 1.0159, 1.0403, 1.0986, 1.2520, 1.7841, & +1.0001, 1.0001, 1.0003, 1.0014, 1.0070, 1.0218, 1.0567, 1.1430, 1.3877, & +0.9999, 1.0000, 1.0001, 1.0004, 1.0014, 1.0086, 1.0292, 1.0794, 1.2100, & +0.9995, 0.9996, 0.9997, 0.9999, 1.0004, 1.0016, 1.0102, 1.0380, 1.1095, & +0.9985, 0.9985, 0.9985, 0.9987, 0.9991, 1.0001, 1.0023, 1.0115, 1.0473, & +0.9962, 0.9962, 0.9963, 0.9964, 0.9966, 0.9973, 0.9988, 1.0027, 1.0125 / +data ((supersat( 6,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +1.0002, 1.0009, 1.0032, 1.0087, 1.0216, 1.0520, 1.1267, 1.3307, 2.0785, & +1.0001, 1.0002, 1.0010, 1.0040, 1.0118, 1.0300, 1.0732, 1.1819, 1.5022, & +1.0000, 1.0001, 1.0002, 1.0010, 1.0050, 1.0159, 1.0417, 1.1038, 1.2672, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0010, 1.0060, 1.0211, 1.0576, 1.1484, & +0.9997, 0.9998, 0.9998, 1.0000, 1.0003, 1.0011, 1.0069, 1.0273, 1.0785, & +0.9990, 0.9990, 0.9991, 0.9992, 0.9995, 1.0001, 1.0015, 1.0076, 1.0340, & +0.9973, 0.9973, 0.9973, 0.9974, 0.9976, 0.9980, 0.9991, 1.0016, 1.0081 / +data ((supersat( 6,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +1.0002, 1.0007, 1.0025, 1.0068, 1.0171, 1.0413, 1.1000, 1.2530, 1.7307, & +1.0001, 1.0002, 1.0007, 1.0031, 1.0091, 1.0234, 1.0572, 1.1404, 1.3673, & +1.0000, 1.0001, 1.0002, 1.0007, 1.0037, 1.0120, 1.0320, 1.0796, 1.2001, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0007, 1.0042, 1.0157, 1.0435, 1.1113, & +0.9998, 0.9998, 0.9999, 1.0000, 1.0002, 1.0008, 1.0047, 1.0200, 1.0585, & +0.9993, 0.9993, 0.9993, 0.9994, 0.9996, 1.0000, 1.0010, 1.0049, 1.0247, & +0.9979, 0.9979, 0.9979, 0.9980, 0.9981, 0.9984, 0.9992, 1.0009, 1.0052 / +data ((supersat( 6,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +1.0002, 1.0006, 1.0020, 1.0056, 1.0141, 1.0341, 1.0826, 1.2057, 1.5587, & +1.0001, 1.0002, 1.0006, 1.0024, 1.0073, 1.0190, 1.0467, 1.1142, 1.2909, & +1.0000, 1.0001, 1.0002, 1.0006, 1.0028, 1.0095, 1.0256, 1.0640, 1.1594, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0006, 1.0031, 1.0121, 1.0343, 1.0880, & +0.9998, 0.9999, 0.9999, 1.0000, 1.0002, 1.0006, 1.0032, 1.0152, 1.0454, & +0.9994, 0.9994, 0.9994, 0.9995, 0.9996, 1.0000, 1.0007, 1.0033, 1.0183, & +0.9982, 0.9982, 0.9982, 0.9982, 0.9983, 0.9986, 0.9992, 1.0005, 1.0036 / +data ((supersat( 6,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +1.0001, 1.0005, 1.0016, 1.0047, 1.0119, 1.0291, 1.0704, 1.1739, 1.4579, & +1.0001, 1.0001, 1.0005, 1.0019, 1.0060, 1.0159, 1.0394, 1.0963, 1.2421, & +1.0000, 1.0001, 1.0001, 1.0005, 1.0022, 1.0077, 1.0212, 1.0534, 1.1326, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0005, 1.0024, 1.0097, 1.0280, 1.0724, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0001, 1.0005, 1.0024, 1.0119, 1.0366, & +0.9994, 0.9994, 0.9995, 0.9995, 0.9997, 0.9999, 1.0005, 1.0024, 1.0140, & +0.9983, 0.9983, 0.9983, 0.9984, 0.9984, 0.9987, 0.9992, 1.0002, 1.0026 / +data ((supersat( 7,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +1.0017, 1.0048, 1.0117, 1.0273, 1.0630, 1.1498, 1.3989, 2.6742, 4.9346, & +1.0005, 1.0021, 1.0065, 1.0169, 1.0401, 1.0940, 1.2310, 1.6858, 3.9145, & +1.0002, 1.0005, 1.0025, 1.0090, 1.0243, 1.0592, 1.1426, 1.3727, 2.4420, & +1.0001, 1.0003, 1.0006, 1.0028, 1.0122, 1.0346, 1.0873, 1.2207, 1.6512, & +0.9999, 1.0001, 1.0003, 1.0007, 1.0030, 1.0159, 1.0483, 1.1282, 1.3527, & +0.9994, 0.9994, 0.9996, 1.0000, 1.0009, 1.0031, 1.0199, 1.0650, 1.1869, & +0.9979, 0.9979, 0.9980, 0.9983, 0.9990, 1.0007, 1.0048, 1.0235, 1.0837 / +data ((supersat( 7,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +1.0013, 1.0034, 1.0081, 1.0188, 1.0431, 1.1007, 1.2521, 1.7933, 3.6853, & +1.0004, 1.0015, 1.0046, 1.0116, 1.0274, 1.0633, 1.1505, 1.3975, 2.5519, & +1.0002, 1.0004, 1.0018, 1.0062, 1.0165, 1.0400, 1.0943, 1.2318, 1.6805, & +1.0001, 1.0002, 1.0004, 1.0020, 1.0083, 1.0236, 1.0586, 1.1424, 1.3729, & +1.0000, 1.0001, 1.0002, 1.0005, 1.0021, 1.0109, 1.0331, 1.0856, 1.2190, & +0.9998, 0.9998, 0.9999, 1.0002, 1.0007, 1.0022, 1.0139, 1.0453, 1.1238, & +0.9990, 0.9990, 0.9991, 0.9993, 0.9997, 1.0007, 1.0029, 1.0168, 1.0594 / +data ((supersat( 7,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +1.0009, 1.0024, 1.0058, 1.0135, 1.0309, 1.0717, 1.1741, 1.4795, 2.7226, & +1.0003, 1.0011, 1.0032, 1.0082, 1.0193, 1.0446, 1.1046, 1.2611, 1.8019, & +1.0001, 1.0003, 1.0013, 1.0043, 1.0116, 1.0279, 1.0653, 1.1559, 1.4104, & +1.0001, 1.0002, 1.0004, 1.0014, 1.0057, 1.0163, 1.0405, 1.0967, 1.2391, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0014, 1.0074, 1.0228, 1.0586, 1.1448, & +0.9999, 1.0000, 1.0000, 1.0002, 1.0005, 1.0015, 1.0093, 1.0313, 1.0841, & +0.9995, 0.9995, 0.9996, 0.9997, 1.0000, 1.0005, 1.0018, 1.0113, 1.0413 / +data ((supersat( 7,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +1.0006, 1.0018, 1.0044, 1.0101, 1.0232, 1.0539, 1.1291, 1.3342, 2.0864, & +1.0003, 1.0009, 1.0023, 1.0060, 1.0142, 1.0330, 1.0770, 1.1873, 1.5114, & +1.0001, 1.0003, 1.0009, 1.0030, 1.0083, 1.0202, 1.0474, 1.1118, 1.2798, & +1.0001, 1.0001, 1.0003, 1.0010, 1.0040, 1.0115, 1.0289, 1.0688, 1.1658, & +1.0001, 1.0001, 1.0001, 1.0003, 1.0010, 1.0049, 1.0159, 1.0413, 1.1007, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0003, 1.0010, 1.0061, 1.0216, 1.0585, & +0.9997, 0.9998, 0.9998, 0.9999, 1.0000, 1.0004, 1.0012, 1.0071, 1.0285 / +data ((supersat( 7,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +1.0005, 1.0014, 1.0034, 1.0079, 1.0183, 1.0427, 1.1017, 1.2553, 1.7346, & +1.0002, 1.0007, 1.0018, 1.0046, 1.0109, 1.0255, 1.0598, 1.1440, 1.3727, & +1.0001, 1.0002, 1.0007, 1.0023, 1.0062, 1.0153, 1.0361, 1.0851, 1.2081, & +1.0001, 1.0001, 1.0002, 1.0007, 1.0028, 1.0084, 1.0214, 1.0514, 1.1228, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0007, 1.0034, 1.0114, 1.0301, 1.0737, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0003, 1.0007, 1.0039, 1.0152, 1.0421, & +0.9998, 0.9998, 0.9999, 0.9999, 1.0000, 1.0003, 1.0008, 1.0043, 1.0198 / +data ((supersat( 7,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +1.0005, 1.0011, 1.0027, 1.0064, 1.0150, 1.0352, 1.0838, 1.2073, 1.5612, & +1.0002, 1.0005, 1.0014, 1.0036, 1.0087, 1.0207, 1.0487, 1.1167, 1.2945, & +1.0001, 1.0002, 1.0005, 1.0018, 1.0048, 1.0120, 1.0287, 1.0680, 1.1649, & +1.0001, 1.0001, 1.0002, 1.0005, 1.0021, 1.0064, 1.0166, 1.0402, 1.0962, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0005, 1.0024, 1.0085, 1.0230, 1.0567, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0002, 1.0006, 1.0026, 1.0110, 1.0315, & +0.9999, 0.9999, 0.9999, 0.9999, 1.0000, 1.0002, 1.0006, 1.0027, 1.0140 / +data ((supersat( 7,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +1.0003, 1.0009, 1.0022, 1.0054, 1.0127, 1.0299, 1.0714, 1.1752, 1.4597, & +1.0002, 1.0004, 1.0012, 1.0030, 1.0073, 1.0173, 1.0410, 1.0983, 1.2448, & +1.0001, 1.0002, 1.0004, 1.0014, 1.0039, 1.0099, 1.0238, 1.0566, 1.1368, & +1.0001, 1.0001, 1.0002, 1.0004, 1.0016, 1.0051, 1.0134, 1.0328, 1.0788, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0004, 1.0018, 1.0065, 1.0182, 1.0455, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0002, 1.0004, 1.0018, 1.0083, 1.0246, & +0.9999, 0.9999, 0.9999, 0.9999, 1.0000, 1.0002, 1.0005, 1.0019, 1.0103 / +data ((supersat( 7,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +1.0012, 1.0040, 1.0109, 1.0262, 1.0615, 1.1477, 1.3953, 2.6636, 4.9169, & +1.0003, 1.0013, 1.0054, 1.0153, 1.0380, 1.0910, 1.2261, 1.6761, 3.8797, & +1.0002, 1.0003, 1.0014, 1.0070, 1.0215, 1.0551, 1.1361, 1.3608, 2.4094, & +1.0000, 1.0002, 1.0005, 1.0014, 1.0089, 1.0295, 1.0791, 1.2063, 1.6196, & +0.9996, 0.9997, 1.0000, 1.0005, 1.0017, 1.0108, 1.0392, 1.1119, 1.3195, & +0.9986, 0.9986, 0.9988, 0.9992, 1.0002, 1.0025, 1.0125, 1.0498, 1.1548, & +0.9963, 0.9963, 0.9964, 0.9967, 0.9973, 0.9990, 1.0030, 1.0137, 1.0599 / +data ((supersat( 7,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +1.0009, 1.0029, 1.0076, 1.0181, 1.0422, 1.0995, 1.2503, 1.7901, 3.6753, & +1.0003, 1.0010, 1.0038, 1.0106, 1.0260, 1.0616, 1.1480, 1.3933, 2.5397, & +1.0001, 1.0003, 1.0010, 1.0049, 1.0147, 1.0375, 1.0907, 1.2260, 1.6689, & +1.0001, 1.0002, 1.0003, 1.0010, 1.0061, 1.0204, 1.0538, 1.1348, 1.3589, & +0.9999, 1.0000, 1.0001, 1.0004, 1.0011, 1.0074, 1.0275, 1.0763, 1.2024, & +0.9994, 0.9994, 0.9995, 0.9998, 1.0003, 1.0016, 1.0087, 1.0356, 1.1058, & +0.9980, 0.9980, 0.9981, 0.9982, 0.9986, 0.9997, 1.0021, 1.0096, 1.0438 / +data ((supersat( 7,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +1.0007, 1.0021, 1.0054, 1.0130, 1.0303, 1.0710, 1.1731, 1.4780, 2.7180, & +1.0002, 1.0007, 1.0027, 1.0075, 1.0185, 1.0435, 1.1031, 1.2590, 1.7977, & +1.0001, 1.0002, 1.0008, 1.0034, 1.0103, 1.0263, 1.0632, 1.1527, 1.4049, & +1.0001, 1.0001, 1.0002, 1.0008, 1.0042, 1.0141, 1.0375, 1.0922, 1.2318, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0008, 1.0050, 1.0191, 1.0529, 1.1354, & +0.9997, 0.9997, 0.9998, 1.0000, 1.0003, 1.0010, 1.0056, 1.0249, 1.0731, & +0.9989, 0.9989, 0.9990, 0.9991, 0.9993, 0.9999, 1.0014, 1.0062, 1.0310 / +data ((supersat( 7,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +1.0005, 1.0016, 1.0040, 1.0097, 1.0228, 1.0535, 1.1285, 1.3334, 2.0846, & +1.0002, 1.0006, 1.0020, 1.0054, 1.0136, 1.0322, 1.0761, 1.1860, 1.5092, & +1.0001, 1.0002, 1.0006, 1.0024, 1.0074, 1.0191, 1.0460, 1.1099, 1.2768, & +1.0001, 1.0001, 1.0002, 1.0006, 1.0029, 1.0100, 1.0268, 1.0659, 1.1615, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0006, 1.0032, 1.0133, 1.0374, 1.0949, & +0.9998, 0.9999, 0.9999, 1.0000, 1.0002, 1.0007, 1.0035, 1.0172, 1.0514, & +0.9993, 0.9993, 0.9994, 0.9994, 0.9996, 1.0000, 1.0009, 1.0037, 1.0213 / +data ((supersat( 7,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +1.0004, 1.0012, 1.0031, 1.0076, 1.0180, 1.0423, 1.1013, 1.2548, 1.7337, & +1.0002, 1.0004, 1.0015, 1.0042, 1.0105, 1.0250, 1.0592, 1.1431, 1.3715, & +1.0001, 1.0002, 1.0004, 1.0018, 1.0055, 1.0144, 1.0350, 1.0838, 1.2062, & +1.0000, 1.0001, 1.0002, 1.0004, 1.0020, 1.0073, 1.0199, 1.0494, 1.1200, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0005, 1.0021, 1.0094, 1.0274, 1.0697, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0002, 1.0005, 1.0022, 1.0119, 1.0371, & +0.9995, 0.9995, 0.9995, 0.9996, 0.9997, 1.0000, 1.0006, 1.0023, 1.0146 / +data ((supersat( 7,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +1.0003, 1.0009, 1.0025, 1.0062, 1.0148, 1.0349, 1.0836, 1.2069, 1.5607, & +1.0001, 1.0004, 1.0012, 1.0033, 1.0084, 1.0203, 1.0482, 1.1161, 1.2937, & +1.0001, 1.0001, 1.0004, 1.0013, 1.0043, 1.0114, 1.0280, 1.0671, 1.1636, & +1.0000, 1.0001, 1.0001, 1.0004, 1.0015, 1.0055, 1.0154, 1.0388, 1.0942, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0004, 1.0015, 1.0069, 1.0208, 1.0538, & +0.9999, 0.9999, 1.0000, 1.0000, 1.0001, 1.0004, 1.0015, 1.0085, 1.0278, & +0.9996, 0.9996, 0.9996, 0.9997, 0.9998, 1.0000, 1.0004, 1.0016, 1.0100 / +data ((supersat( 7,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +1.0003, 1.0008, 1.0021, 1.0052, 1.0125, 1.0297, 1.0712, 1.1749, 1.4593, & +1.0001, 1.0003, 1.0009, 1.0027, 1.0070, 1.0170, 1.0406, 1.0978, 1.2442, & +1.0001, 1.0001, 1.0003, 1.0011, 1.0035, 1.0093, 1.0231, 1.0559, 1.1359, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0011, 1.0043, 1.0124, 1.0316, 1.0773, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0003, 1.0011, 1.0053, 1.0165, 1.0433, & +0.9999, 0.9999, 1.0000, 1.0000, 1.0001, 1.0003, 1.0011, 1.0062, 1.0216, & +0.9996, 0.9996, 0.9997, 0.9997, 0.9998, 0.9999, 1.0003, 1.0012, 1.0071 / +data ((supersat( 7,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +1.0007, 1.0032, 1.0098, 1.0248, 1.0597, 1.1450, 1.3907, 2.6501, 4.8938, & +1.0002, 1.0007, 1.0040, 1.0134, 1.0354, 1.0872, 1.2200, 1.6636, 3.8350, & +1.0001, 1.0003, 1.0008, 1.0048, 1.0182, 1.0501, 1.1280, 1.3461, 2.3680, & +0.9998, 1.0000, 1.0003, 1.0010, 1.0055, 1.0238, 1.0695, 1.1890, 1.5811, & +0.9991, 0.9992, 0.9994, 1.0000, 1.0013, 1.0060, 1.0299, 1.0939, 1.2813, & +0.9973, 0.9973, 0.9975, 0.9979, 0.9989, 1.0013, 1.0076, 1.0355, 1.1222, & +0.9945, 0.9945, 0.9946, 0.9948, 0.9954, 0.9968, 1.0005, 1.0108, 1.0401 / +data ((supersat( 7,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +1.0006, 1.0023, 1.0068, 1.0172, 1.0411, 1.0980, 1.2481, 1.7860, 3.6625, & +1.0002, 1.0006, 1.0029, 1.0093, 1.0244, 1.0594, 1.1448, 1.3878, 2.5239, & +1.0001, 1.0002, 1.0006, 1.0034, 1.0126, 1.0345, 1.0863, 1.2188, 1.6540, & +1.0000, 1.0001, 1.0002, 1.0006, 1.0038, 1.0167, 1.0482, 1.1256, 1.3417, & +0.9996, 0.9997, 0.9998, 1.0002, 1.0009, 1.0041, 1.0214, 1.0657, 1.1827, & +0.9986, 0.9987, 0.9988, 0.9990, 0.9996, 1.0010, 1.0044, 1.0260, 1.0865, & +0.9965, 0.9965, 0.9966, 0.9967, 0.9971, 0.9981, 1.0006, 1.0069, 1.0300 / +data ((supersat( 7,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +1.0004, 1.0017, 1.0049, 1.0124, 1.0296, 1.0701, 1.1719, 1.4760, 2.7121, & +1.0001, 1.0005, 1.0020, 1.0066, 1.0174, 1.0422, 1.1013, 1.2561, 1.7922, & +1.0001, 1.0002, 1.0005, 1.0024, 1.0088, 1.0243, 1.0605, 1.1487, 1.3978, & +1.0000, 1.0001, 1.0002, 1.0005, 1.0026, 1.0117, 1.0339, 1.0868, 1.2226, & +0.9998, 0.9999, 1.0000, 1.0002, 1.0006, 1.0027, 1.0149, 1.0462, 1.1241, & +0.9993, 0.9993, 0.9994, 0.9995, 0.9999, 1.0008, 1.0029, 1.0183, 1.0610, & +0.9979, 0.9979, 0.9979, 0.9980, 0.9983, 0.9989, 1.0005, 1.0043, 1.0213 / +data ((supersat( 7,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +1.0004, 1.0013, 1.0036, 1.0093, 1.0223, 1.0529, 1.1278, 1.3323, 2.0822, & +1.0001, 1.0004, 1.0015, 1.0048, 1.0128, 1.0313, 1.0749, 1.1843, 1.5064, & +1.0001, 1.0001, 1.0004, 1.0017, 1.0063, 1.0177, 1.0442, 1.1074, 1.2729, & +1.0000, 1.0001, 1.0001, 1.0004, 1.0018, 1.0082, 1.0243, 1.0624, 1.1560, & +0.9999, 1.0000, 1.0000, 1.0001, 1.0004, 1.0018, 1.0103, 1.0329, 1.0878, & +0.9996, 0.9996, 0.9996, 0.9997, 1.0000, 1.0005, 1.0019, 1.0125, 1.0433, & +0.9986, 0.9986, 0.9986, 0.9987, 0.9989, 0.9993, 1.0003, 1.0026, 1.0145 / +data ((supersat( 7,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +1.0003, 1.0009, 1.0028, 1.0073, 1.0176, 1.0419, 1.1008, 1.2541, 1.7325, & +1.0001, 1.0003, 1.0011, 1.0037, 1.0099, 1.0243, 1.0584, 1.1420, 1.3698, & +1.0001, 1.0001, 1.0003, 1.0012, 1.0047, 1.0134, 1.0338, 1.0821, 1.2037, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0012, 1.0059, 1.0181, 1.0469, 1.1164, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0003, 1.0012, 1.0072, 1.0242, 1.0649, & +0.9997, 0.9997, 0.9997, 0.9998, 1.0000, 1.0004, 1.0013, 1.0085, 1.0314, & +0.9989, 0.9989, 0.9990, 0.9990, 0.9991, 0.9995, 1.0001, 1.0017, 1.0095 / +data ((supersat( 7,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +1.0002, 1.0008, 1.0023, 1.0059, 1.0145, 1.0346, 1.0832, 1.2065, 1.5599, & +1.0001, 1.0002, 1.0009, 1.0029, 1.0079, 1.0197, 1.0476, 1.1154, 1.2926, & +1.0000, 1.0001, 1.0002, 1.0009, 1.0036, 1.0106, 1.0270, 1.0658, 1.1619, & +1.0000, 1.0001, 1.0001, 1.0002, 1.0009, 1.0044, 1.0140, 1.0369, 1.0916, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0003, 1.0009, 1.0052, 1.0184, 1.0502, & +0.9998, 0.9998, 0.9998, 0.9999, 1.0000, 1.0003, 1.0010, 1.0058, 1.0235, & +0.9991, 0.9991, 0.9991, 0.9992, 0.9993, 0.9995, 1.0000, 1.0011, 1.0062 / +data ((supersat( 7,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +1.0002, 1.0007, 1.0019, 1.0050, 1.0123, 1.0295, 1.0709, 1.1745, 1.4588, & +1.0001, 1.0002, 1.0007, 1.0024, 1.0066, 1.0165, 1.0401, 1.0972, 1.2434, & +1.0000, 1.0001, 1.0002, 1.0007, 1.0029, 1.0086, 1.0223, 1.0549, 1.1345, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0007, 1.0034, 1.0113, 1.0301, 1.0753, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0002, 1.0007, 1.0039, 1.0145, 1.0405, & +0.9998, 0.9998, 0.9998, 0.9999, 1.0000, 1.0002, 1.0008, 1.0041, 1.0182, & +0.9992, 0.9992, 0.9992, 0.9992, 0.9993, 0.9995, 0.9999, 1.0008, 1.0042 / +data ((supersat( 7,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +1.0004, 1.0023, 1.0085, 1.0231, 1.0573, 1.1415, 1.3848, 2.6322, 4.8636, & +1.0002, 1.0005, 1.0026, 1.0112, 1.0322, 1.0824, 1.2122, 1.6477, 3.7773, & +1.0000, 1.0002, 1.0006, 1.0027, 1.0144, 1.0442, 1.1183, 1.3277, 2.3154, & +0.9995, 0.9996, 1.0000, 1.0008, 1.0028, 1.0178, 1.0588, 1.1688, 1.5346, & +0.9981, 0.9982, 0.9985, 0.9991, 1.0005, 1.0041, 1.0209, 1.0751, 1.2391, & +0.9956, 0.9957, 0.9958, 0.9962, 0.9971, 0.9995, 1.0055, 1.0234, 1.0916, & +0.9928, 0.9929, 0.9929, 0.9931, 0.9936, 0.9948, 0.9978, 1.0063, 1.0331 / +data ((supersat( 7,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +1.0004, 1.0017, 1.0060, 1.0161, 1.0397, 1.0962, 1.2453, 1.7805, 3.6455, & +1.0001, 1.0004, 1.0019, 1.0078, 1.0225, 1.0567, 1.1407, 1.3807, 2.5032, & +1.0000, 1.0002, 1.0004, 1.0020, 1.0102, 1.0309, 1.0808, 1.2096, 1.6351, & +0.9998, 0.9999, 1.0001, 1.0005, 1.0020, 1.0127, 1.0416, 1.1144, 1.3203, & +0.9991, 0.9992, 0.9993, 0.9997, 1.0005, 1.0026, 1.0152, 1.0541, 1.1602, & +0.9974, 0.9975, 0.9976, 0.9978, 0.9985, 1.0000, 1.0037, 1.0173, 1.0672, & +0.9947, 0.9947, 0.9948, 0.9949, 0.9953, 0.9962, 0.9985, 1.0044, 1.0189 / +data ((supersat( 7,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +1.0003, 1.0013, 1.0043, 1.0117, 1.0287, 1.0690, 1.1703, 1.4733, 2.7041, & +1.0001, 1.0003, 1.0014, 1.0056, 1.0161, 1.0405, 1.0989, 1.2524, 1.7849, & +1.0001, 1.0001, 1.0003, 1.0014, 1.0072, 1.0220, 1.0571, 1.1435, 1.3887, & +0.9999, 1.0000, 1.0001, 1.0004, 1.0014, 1.0089, 1.0296, 1.0801, 1.2112, & +0.9996, 0.9996, 0.9997, 0.9999, 1.0004, 1.0016, 1.0106, 1.0387, 1.1109, & +0.9985, 0.9986, 0.9986, 0.9988, 0.9992, 1.0001, 1.0023, 1.0121, 1.0485, & +0.9964, 0.9964, 0.9964, 0.9965, 0.9968, 0.9974, 0.9990, 1.0028, 1.0132 / +data ((supersat( 7,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +1.0002, 1.0009, 1.0032, 1.0087, 1.0217, 1.0521, 1.1268, 1.3308, 2.0789, & +1.0001, 1.0002, 1.0010, 1.0041, 1.0119, 1.0301, 1.0734, 1.1821, 1.5026, & +1.0000, 1.0001, 1.0002, 1.0010, 1.0051, 1.0161, 1.0419, 1.1042, 1.2677, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0010, 1.0062, 1.0214, 1.0581, 1.1491, & +0.9997, 0.9998, 0.9998, 1.0000, 1.0003, 1.0011, 1.0072, 1.0278, 1.0793, & +0.9991, 0.9991, 0.9991, 0.9992, 0.9995, 1.0001, 1.0015, 1.0080, 1.0348, & +0.9974, 0.9974, 0.9974, 0.9975, 0.9977, 0.9981, 0.9992, 1.0017, 1.0086 / +data ((supersat( 7,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +1.0002, 1.0007, 1.0025, 1.0069, 1.0171, 1.0414, 1.1001, 1.2531, 1.7309, & +1.0001, 1.0002, 1.0008, 1.0031, 1.0091, 1.0235, 1.0573, 1.1406, 1.3675, & +1.0000, 1.0001, 1.0002, 1.0008, 1.0038, 1.0121, 1.0321, 1.0799, 1.2004, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0008, 1.0044, 1.0159, 1.0439, 1.1118, & +0.9998, 0.9998, 0.9999, 1.0000, 1.0002, 1.0008, 1.0049, 1.0204, 1.0591, & +0.9993, 0.9993, 0.9994, 0.9994, 0.9996, 1.0001, 1.0010, 1.0052, 1.0253, & +0.9980, 0.9980, 0.9980, 0.9980, 0.9982, 0.9985, 0.9993, 1.0010, 1.0054 / +data ((supersat( 7,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +1.0002, 1.0006, 1.0020, 1.0056, 1.0141, 1.0342, 1.0827, 1.2058, 1.5588, & +1.0001, 1.0002, 1.0006, 1.0024, 1.0073, 1.0190, 1.0468, 1.1143, 1.2910, & +1.0000, 1.0001, 1.0002, 1.0006, 1.0029, 1.0096, 1.0257, 1.0642, 1.1596, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0006, 1.0032, 1.0123, 1.0346, 1.0883, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0002, 1.0006, 1.0034, 1.0154, 1.0459, & +0.9994, 0.9994, 0.9995, 0.9995, 0.9997, 1.0000, 1.0007, 1.0035, 1.0188, & +0.9983, 0.9983, 0.9983, 0.9983, 0.9984, 0.9987, 0.9993, 1.0005, 1.0037 / +data ((supersat( 7,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +1.0001, 1.0005, 1.0017, 1.0047, 1.0119, 1.0291, 1.0704, 1.1740, 1.4580, & +1.0001, 1.0001, 1.0005, 1.0020, 1.0061, 1.0159, 1.0394, 1.0964, 1.2422, & +1.0000, 1.0001, 1.0001, 1.0005, 1.0023, 1.0078, 1.0213, 1.0536, 1.1328, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0005, 1.0024, 1.0098, 1.0282, 1.0727, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0001, 1.0005, 1.0025, 1.0121, 1.0370, & +0.9995, 0.9995, 0.9995, 0.9996, 0.9997, 1.0000, 1.0005, 1.0025, 1.0144, & +0.9984, 0.9984, 0.9984, 0.9984, 0.9985, 0.9987, 0.9992, 1.0003, 1.0027 / +data ((supersat( 7,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +1.0003, 1.0018, 1.0076, 1.0219, 1.0557, 1.1391, 1.3805, 2.6192, 4.8416, & +1.0002, 1.0004, 1.0018, 1.0097, 1.0301, 1.0792, 1.2067, 1.6364, 3.7359, & +0.9999, 1.0001, 1.0005, 1.0019, 1.0121, 1.0403, 1.1117, 1.3150, 2.2780, & +0.9991, 0.9993, 0.9996, 1.0005, 1.0025, 1.0144, 1.0521, 1.1556, 1.5035, & +0.9973, 0.9974, 0.9977, 0.9983, 0.9998, 1.0035, 1.0162, 1.0643, 1.2133, & +0.9946, 0.9946, 0.9947, 0.9951, 0.9960, 0.9982, 1.0039, 1.0176, 1.0757, & +0.9921, 0.9921, 0.9921, 0.9923, 0.9927, 0.9937, 0.9963, 1.0038, 1.0269 / +data ((supersat( 7,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +1.0003, 1.0013, 1.0053, 1.0154, 1.0388, 1.0948, 1.2432, 1.7765, 3.6331, & +1.0001, 1.0003, 1.0014, 1.0069, 1.0211, 1.0548, 1.1378, 1.3756, 2.4882, & +1.0000, 1.0001, 1.0004, 1.0014, 1.0086, 1.0285, 1.0770, 1.2033, 1.6217, & +0.9996, 0.9997, 0.9999, 1.0004, 1.0015, 1.0103, 1.0375, 1.1070, 1.3058, & +0.9986, 0.9987, 0.9989, 0.9993, 1.0002, 1.0023, 1.0118, 1.0471, 1.1458, & +0.9965, 0.9966, 0.9967, 0.9969, 0.9975, 0.9991, 1.0028, 1.0129, 1.0565, & +0.9937, 0.9937, 0.9938, 0.9939, 0.9942, 0.9950, 0.9971, 1.0026, 1.0187 / +data ((supersat( 7,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +1.0002, 1.0010, 1.0039, 1.0111, 1.0281, 1.0681, 1.1691, 1.4714, 2.6982, & +1.0001, 1.0002, 1.0010, 1.0049, 1.0151, 1.0393, 1.0972, 1.2497, 1.7796, & +1.0000, 1.0001, 1.0003, 1.0010, 1.0060, 1.0204, 1.0548, 1.1399, 1.3822, & +0.9998, 0.9999, 1.0000, 1.0003, 1.0011, 1.0072, 1.0268, 1.0756, 1.2033, & +0.9993, 0.9993, 0.9994, 0.9997, 1.0002, 1.0015, 1.0081, 1.0341, 1.1023, & +0.9979, 0.9979, 0.9980, 0.9981, 0.9986, 0.9995, 1.0018, 1.0088, 1.0412, & +0.9953, 0.9954, 0.9954, 0.9955, 0.9957, 0.9963, 0.9979, 1.0016, 1.0120 / +data ((supersat( 7,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +1.0002, 1.0007, 1.0029, 1.0084, 1.0212, 1.0516, 1.1261, 1.3298, 2.0764, & +1.0001, 1.0002, 1.0008, 1.0036, 1.0112, 1.0293, 1.0723, 1.1805, 1.4998, & +1.0000, 1.0001, 1.0002, 1.0008, 1.0043, 1.0149, 1.0404, 1.1019, 1.2640, & +0.9999, 1.0000, 1.0000, 1.0002, 1.0008, 1.0049, 1.0195, 1.0551, 1.1443, & +0.9996, 0.9996, 0.9997, 0.9998, 1.0002, 1.0010, 1.0054, 1.0246, 1.0738, & +0.9986, 0.9986, 0.9987, 0.9988, 0.9991, 0.9997, 1.0012, 1.0057, 1.0297, & +0.9965, 0.9965, 0.9966, 0.9966, 0.9968, 0.9972, 0.9983, 1.0008, 1.0073 / +data ((supersat( 7,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +1.0002, 1.0006, 1.0023, 1.0066, 1.0168, 1.0410, 1.0996, 1.2524, 1.7296, & +1.0001, 1.0002, 1.0006, 1.0027, 1.0086, 1.0228, 1.0565, 1.1395, 1.3658, & +1.0000, 1.0001, 1.0002, 1.0006, 1.0031, 1.0113, 1.0310, 1.0783, 1.1980, & +0.9999, 1.0000, 1.0000, 1.0002, 1.0006, 1.0034, 1.0145, 1.0417, 1.1086, & +0.9997, 0.9997, 0.9998, 0.9999, 1.0001, 1.0007, 1.0036, 1.0180, 1.0552, & +0.9990, 0.9990, 0.9990, 0.9991, 0.9993, 0.9998, 1.0008, 1.0037, 1.0216, & +0.9972, 0.9972, 0.9972, 0.9973, 0.9974, 0.9977, 0.9985, 1.0003, 1.0046 / +data ((supersat( 7,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +1.0001, 1.0005, 1.0018, 1.0053, 1.0138, 1.0339, 1.0823, 1.2053, 1.5580, & +1.0001, 1.0001, 1.0005, 1.0021, 1.0069, 1.0185, 1.0462, 1.1135, 1.2899, & +1.0000, 1.0001, 1.0001, 1.0005, 1.0024, 1.0088, 1.0248, 1.0630, 1.1579, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0005, 1.0025, 1.0111, 1.0329, 1.0860, & +0.9997, 0.9998, 0.9998, 0.9999, 1.0001, 1.0005, 1.0025, 1.0136, 1.0429, & +0.9991, 0.9991, 0.9991, 0.9992, 0.9994, 0.9997, 1.0005, 1.0026, 1.0160, & +0.9976, 0.9976, 0.9976, 0.9976, 0.9977, 0.9980, 0.9986, 1.0000, 1.0031 / +data ((supersat( 7,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +1.0001, 1.0004, 1.0015, 1.0045, 1.0117, 1.0288, 1.0701, 1.1736, 1.4574, & +1.0000, 1.0001, 1.0004, 1.0017, 1.0057, 1.0155, 1.0389, 1.0958, 1.2413, & +1.0000, 1.0000, 1.0001, 1.0004, 1.0019, 1.0072, 1.0205, 1.0526, 1.1315, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0004, 1.0019, 1.0088, 1.0269, 1.0709, & +0.9998, 0.9998, 0.9998, 0.9999, 1.0001, 1.0004, 1.0019, 1.0105, 1.0347, & +0.9992, 0.9992, 0.9992, 0.9993, 0.9994, 0.9997, 1.0004, 1.0020, 1.0121, & +0.9977, 0.9977, 0.9977, 0.9978, 0.9979, 0.9981, 0.9986, 0.9997, 1.0022 / +data ((supersat( 7,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +1.0003, 1.0014, 1.0069, 1.0210, 1.0544, 1.1371, 1.3771, 2.6086, 4.8237, & +1.0001, 1.0004, 1.0014, 1.0087, 1.0285, 1.0766, 1.2024, 1.6272, 3.7025, & +0.9997, 1.0000, 1.0004, 1.0015, 1.0104, 1.0374, 1.1066, 1.3051, 2.2483, & +0.9988, 0.9989, 0.9993, 1.0002, 1.0023, 1.0120, 1.0473, 1.1458, 1.4796, & +0.9967, 0.9968, 0.9970, 0.9977, 0.9992, 1.0028, 1.0132, 1.0569, 1.1949, & +0.9938, 0.9939, 0.9940, 0.9943, 0.9952, 0.9973, 1.0027, 1.0187, 1.0654, & +0.9916, 0.9917, 0.9917, 0.9918, 0.9922, 0.9931, 0.9954, 1.0021, 1.0228 / +data ((supersat( 7,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +1.0002, 1.0011, 1.0049, 1.0148, 1.0380, 1.0937, 1.2415, 1.7733, 3.6230, & +1.0001, 1.0002, 1.0011, 1.0062, 1.0201, 1.0533, 1.1355, 1.3715, 2.4759, & +0.9999, 1.0001, 1.0003, 1.0011, 1.0074, 1.0267, 1.0741, 1.1982, 1.6110, & +0.9995, 0.9996, 0.9998, 1.0003, 1.0015, 1.0086, 1.0344, 1.1014, 1.2945, & +0.9982, 0.9983, 0.9984, 0.9989, 0.9998, 1.0020, 1.0095, 1.0422, 1.1353, & +0.9958, 0.9959, 0.9960, 0.9962, 0.9968, 0.9983, 1.0020, 1.0121, 1.0494, & +0.9930, 0.9931, 0.9931, 0.9932, 0.9935, 0.9943, 0.9962, 1.0013, 1.0162 / +data ((supersat( 7,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +1.0002, 1.0008, 1.0036, 1.0107, 1.0276, 1.0675, 1.1682, 1.4698, 2.6934, & +1.0001, 1.0002, 1.0008, 1.0044, 1.0144, 1.0383, 1.0958, 1.2475, 1.7753, & +1.0000, 1.0001, 1.0002, 1.0008, 1.0052, 1.0192, 1.0530, 1.1370, 1.3769, & +0.9997, 0.9998, 1.0000, 1.0003, 1.0010, 1.0060, 1.0248, 1.0721, 1.1971, & +0.9990, 0.9991, 0.9992, 0.9994, 1.0000, 1.0013, 1.0065, 1.0307, 1.0959, & +0.9973, 0.9974, 0.9974, 0.9976, 0.9980, 0.9990, 1.0014, 1.0076, 1.0363, & +0.9946, 0.9946, 0.9946, 0.9947, 0.9950, 0.9956, 0.9970, 1.0006, 1.0106 / +data ((supersat( 7,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +1.0002, 1.0006, 1.0027, 1.0081, 1.0209, 1.0511, 1.1255, 1.3288, 2.0744, & +1.0001, 1.0002, 1.0006, 1.0032, 1.0107, 1.0287, 1.0714, 1.1792, 1.4975, & +1.0000, 1.0001, 1.0002, 1.0006, 1.0037, 1.0140, 1.0391, 1.1001, 1.2610, & +0.9999, 0.9999, 1.0000, 1.0002, 1.0007, 1.0041, 1.0180, 1.0528, 1.1405, & +0.9994, 0.9994, 0.9995, 0.9997, 1.0001, 1.0009, 1.0042, 1.0222, 1.0696, & +0.9982, 0.9982, 0.9983, 0.9984, 0.9987, 0.9993, 1.0009, 1.0046, 1.0262, & +0.9958, 0.9958, 0.9959, 0.9959, 0.9961, 0.9965, 0.9976, 1.0001, 1.0065 / +data ((supersat( 7,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +1.0001, 1.0005, 1.0021, 1.0063, 1.0165, 1.0406, 1.0992, 1.2518, 1.7286, & +1.0001, 1.0001, 1.0005, 1.0024, 1.0083, 1.0224, 1.0559, 1.1386, 1.3644, & +1.0000, 1.0001, 1.0001, 1.0005, 1.0027, 1.0106, 1.0301, 1.0770, 1.1961, & +0.9999, 0.9999, 1.0000, 1.0002, 1.0005, 1.0028, 1.0133, 1.0401, 1.1060, & +0.9996, 0.9996, 0.9996, 0.9998, 1.0000, 1.0006, 1.0029, 1.0163, 1.0522, & +0.9986, 0.9986, 0.9987, 0.9987, 0.9990, 0.9995, 1.0005, 1.0031, 1.0190, & +0.9966, 0.9966, 0.9966, 0.9966, 0.9968, 0.9971, 0.9979, 0.9997, 1.0040 / +data ((supersat( 7,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +1.0001, 1.0004, 1.0017, 1.0051, 1.0136, 1.0336, 1.0820, 1.2049, 1.5573, & +1.0000, 1.0001, 1.0004, 1.0019, 1.0066, 1.0181, 1.0457, 1.1129, 1.2889, & +1.0000, 1.0000, 1.0001, 1.0004, 1.0020, 1.0083, 1.0241, 1.0621, 1.1565, & +0.9999, 0.9999, 1.0000, 1.0001, 1.0004, 1.0021, 1.0102, 1.0316, 1.0841, & +0.9996, 0.9997, 0.9997, 0.9998, 1.0000, 1.0005, 1.0021, 1.0122, 1.0407, & +0.9988, 0.9988, 0.9989, 0.9989, 0.9991, 0.9995, 1.0003, 1.0023, 1.0139, & +0.9970, 0.9970, 0.9970, 0.9970, 0.9971, 0.9974, 0.9980, 0.9994, 1.0026 / +data ((supersat( 7,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +1.0001, 1.0003, 1.0014, 1.0043, 1.0115, 1.0286, 1.0699, 1.1732, 1.4569, & +1.0000, 1.0001, 1.0003, 1.0015, 1.0054, 1.0152, 1.0385, 1.0953, 1.2406, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0016, 1.0067, 1.0199, 1.0518, 1.1304, & +0.9999, 1.0000, 1.0000, 1.0001, 1.0003, 1.0016, 1.0081, 1.0259, 1.0694, & +0.9997, 0.9997, 0.9997, 0.9998, 1.0000, 1.0004, 1.0016, 1.0094, 1.0329, & +0.9989, 0.9989, 0.9989, 0.9990, 0.9992, 0.9995, 1.0002, 1.0017, 1.0105, & +0.9972, 0.9972, 0.9972, 0.9972, 0.9973, 0.9975, 0.9980, 0.9992, 1.0018 / +data ((supersat( 7,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +1.0003, 1.0012, 1.0064, 1.0203, 1.0533, 1.1354, 1.3741, 2.5993, 4.8082, & +1.0001, 1.0003, 1.0012, 1.0078, 1.0271, 1.0744, 1.1987, 1.6194, 3.6740, & +0.9996, 0.9999, 1.0004, 1.0015, 1.0092, 1.0351, 1.1025, 1.2968, 2.2231, & +0.9985, 0.9986, 0.9990, 0.9999, 1.0021, 1.0102, 1.0436, 1.1379, 1.4603, & +0.9961, 0.9962, 0.9965, 0.9971, 0.9986, 1.0023, 1.0110, 1.0515, 1.1808, & +0.9933, 0.9933, 0.9935, 0.9938, 0.9946, 0.9965, 1.0017, 1.0168, 1.0582, & +0.9913, 0.9913, 0.9914, 0.9915, 0.9918, 0.9927, 0.9948, 1.0008, 1.0197 / +data ((supersat( 7,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +1.0002, 1.0009, 1.0046, 1.0143, 1.0373, 1.0928, 1.2400, 1.7705, 3.6142, & +1.0001, 1.0002, 1.0009, 1.0056, 1.0192, 1.0520, 1.1336, 1.3680, 2.4654, & +0.9999, 1.0000, 1.0003, 1.0010, 1.0065, 1.0252, 1.0717, 1.1940, 1.6019, & +0.9993, 0.9994, 0.9996, 1.0002, 1.0014, 1.0073, 1.0319, 1.0968, 1.2852, & +0.9978, 0.9979, 0.9981, 0.9985, 0.9994, 1.0017, 1.0079, 1.0385, 1.1271, & +0.9953, 0.9953, 0.9954, 0.9956, 0.9962, 0.9977, 1.0013, 1.0112, 1.0442, & +0.9926, 0.9926, 0.9926, 0.9927, 0.9930, 0.9937, 0.9955, 1.0003, 1.0142 / +data ((supersat( 7,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +1.0002, 1.0007, 1.0033, 1.0104, 1.0271, 1.0669, 1.1674, 1.4684, 2.6892, & +1.0001, 1.0002, 1.0007, 1.0040, 1.0139, 1.0375, 1.0947, 1.2457, 1.7715, & +1.0000, 1.0001, 1.0002, 1.0007, 1.0046, 1.0182, 1.0514, 1.1346, 1.3724, & +0.9997, 0.9997, 0.9999, 1.0002, 1.0009, 1.0050, 1.0231, 1.0693, 1.1919, & +0.9988, 0.9988, 0.9989, 0.9992, 0.9998, 1.0012, 1.0053, 1.0282, 1.0907, & +0.9969, 0.9969, 0.9969, 0.9971, 0.9975, 0.9985, 1.0009, 1.0071, 1.0326, & +0.9940, 0.9940, 0.9941, 0.9942, 0.9944, 0.9950, 0.9964, 0.9998, 1.0094 / +data ((supersat( 7,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +1.0001, 1.0005, 1.0025, 1.0078, 1.0206, 1.0507, 1.1250, 1.3280, 2.0726, & +1.0001, 1.0001, 1.0005, 1.0029, 1.0103, 1.0281, 1.0706, 1.1781, 1.4956, & +1.0000, 1.0001, 1.0002, 1.0006, 1.0033, 1.0133, 1.0381, 1.0985, 1.2584, & +0.9998, 0.9998, 0.9999, 1.0002, 1.0006, 1.0034, 1.0168, 1.0509, 1.1373, & +0.9992, 0.9993, 0.9993, 0.9995, 0.9999, 1.0008, 1.0036, 1.0204, 1.0662, & +0.9978, 0.9978, 0.9979, 0.9980, 0.9983, 0.9990, 1.0006, 1.0045, 1.0236, & +0.9953, 0.9953, 0.9953, 0.9953, 0.9955, 0.9959, 0.9970, 0.9995, 1.0058 / +data ((supersat( 7,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +1.0001, 1.0004, 1.0019, 1.0061, 1.0163, 1.0404, 1.0989, 1.2513, 1.7277, & +1.0001, 1.0001, 1.0004, 1.0022, 1.0079, 1.0219, 1.0553, 1.1379, 1.3632, & +1.0000, 1.0000, 1.0001, 1.0004, 1.0024, 1.0100, 1.0293, 1.0759, 1.1944, & +0.9999, 0.9999, 1.0000, 1.0001, 1.0005, 1.0024, 1.0124, 1.0387, 1.1038, & +0.9994, 0.9995, 0.9995, 0.9996, 0.9999, 1.0005, 1.0025, 1.0149, 1.0498, & +0.9983, 0.9983, 0.9984, 0.9984, 0.9987, 0.9992, 1.0003, 1.0029, 1.0170, & +0.9960, 0.9960, 0.9960, 0.9961, 0.9962, 0.9965, 0.9973, 0.9992, 1.0035 / +data ((supersat( 7,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +1.0001, 1.0003, 1.0015, 1.0050, 1.0134, 1.0334, 1.0817, 1.2045, 1.5567, & +1.0000, 1.0001, 1.0003, 1.0017, 1.0063, 1.0178, 1.0452, 1.1123, 1.2881, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0018, 1.0079, 1.0235, 1.0612, 1.1553, & +0.9999, 0.9999, 1.0000, 1.0001, 1.0004, 1.0018, 1.0095, 1.0306, 1.0824, & +0.9995, 0.9995, 0.9996, 0.9997, 0.9999, 1.0004, 1.0018, 1.0111, 1.0389, & +0.9985, 0.9986, 0.9986, 0.9987, 0.9988, 0.9992, 1.0001, 1.0021, 1.0124, & +0.9964, 0.9965, 0.9965, 0.9965, 0.9966, 0.9969, 0.9975, 0.9989, 1.0022 / +data ((supersat( 7,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +1.0001, 1.0003, 1.0013, 1.0042, 1.0113, 1.0284, 1.0697, 1.1730, 1.4565, & +1.0000, 1.0001, 1.0003, 1.0014, 1.0052, 1.0149, 1.0382, 1.0948, 1.2399, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0014, 1.0063, 1.0194, 1.0512, 1.1294, & +0.9999, 0.9999, 1.0000, 1.0001, 1.0003, 1.0014, 1.0075, 1.0250, 1.0681, & +0.9996, 0.9996, 0.9996, 0.9997, 0.9999, 1.0003, 1.0014, 1.0085, 1.0314, & +0.9987, 0.9987, 0.9987, 0.9988, 0.9989, 0.9992, 1.0000, 1.0016, 1.0092, & +0.9967, 0.9967, 0.9967, 0.9967, 0.9968, 0.9970, 0.9976, 0.9988, 1.0014 / +data ((supersat( 8,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +1.0011, 1.0038, 1.0107, 1.0260, 1.0613, 1.1474, 1.3948, 2.6623, 4.9141, & +1.0003, 1.0012, 1.0051, 1.0150, 1.0376, 1.0905, 1.2255, 1.6748, 3.8750, & +1.0002, 1.0003, 1.0012, 1.0066, 1.0210, 1.0544, 1.1351, 1.3592, 2.4052, & +1.0000, 1.0001, 1.0004, 1.0012, 1.0083, 1.0286, 1.0778, 1.2042, 1.6154, & +0.9995, 0.9996, 0.9999, 1.0004, 1.0017, 1.0099, 1.0378, 1.1094, 1.3147, & +0.9983, 0.9984, 0.9985, 0.9989, 0.9999, 1.0023, 1.0113, 1.0474, 1.1499, & +0.9959, 0.9959, 0.9960, 0.9962, 0.9969, 0.9985, 1.0026, 1.0123, 1.0563 / +data ((supersat( 8,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +1.0008, 1.0028, 1.0074, 1.0179, 1.0420, 1.0993, 1.2501, 1.7897, 3.6741, & +1.0002, 1.0009, 1.0036, 1.0103, 1.0258, 1.0613, 1.1476, 1.3927, 2.5382, & +1.0001, 1.0003, 1.0009, 1.0046, 1.0144, 1.0371, 1.0902, 1.2252, 1.6673, & +1.0001, 1.0001, 1.0003, 1.0009, 1.0057, 1.0198, 1.0531, 1.1337, 1.3570, & +0.9998, 0.9999, 1.0001, 1.0004, 1.0010, 1.0068, 1.0265, 1.0748, 1.1999, & +0.9992, 0.9993, 0.9994, 0.9996, 1.0002, 1.0015, 1.0078, 1.0341, 1.1030, & +0.9977, 0.9977, 0.9977, 0.9979, 0.9983, 0.9994, 1.0018, 1.0086, 1.0415 / +data ((supersat( 8,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +1.0006, 1.0020, 1.0052, 1.0129, 1.0302, 1.0709, 1.1730, 1.4778, 2.7174, & +1.0002, 1.0007, 1.0026, 1.0073, 1.0183, 1.0434, 1.1029, 1.2586, 1.7972, & +1.0001, 1.0002, 1.0007, 1.0032, 1.0101, 1.0260, 1.0628, 1.1523, 1.4042, & +1.0001, 1.0001, 1.0002, 1.0007, 1.0038, 1.0137, 1.0370, 1.0916, 1.2308, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0007, 1.0045, 1.0184, 1.0520, 1.1340, & +0.9996, 0.9997, 0.9997, 0.9999, 1.0002, 1.0010, 1.0050, 1.0238, 1.0714, & +0.9987, 0.9987, 0.9987, 0.9988, 0.9991, 0.9998, 1.0012, 1.0054, 1.0294 / +data ((supersat( 8,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +1.0005, 1.0015, 1.0040, 1.0096, 1.0227, 1.0534, 1.1285, 1.3333, 2.0844, & +1.0002, 1.0005, 1.0019, 1.0053, 1.0135, 1.0321, 1.0759, 1.1858, 1.5090, & +1.0001, 1.0002, 1.0005, 1.0023, 1.0072, 1.0189, 1.0457, 1.1096, 1.2764, & +1.0001, 1.0001, 1.0002, 1.0005, 1.0026, 1.0097, 1.0265, 1.0655, 1.1609, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0005, 1.0029, 1.0128, 1.0368, 1.0941, & +0.9998, 0.9998, 0.9999, 1.0000, 1.0002, 1.0007, 1.0031, 1.0164, 1.0503, & +0.9992, 0.9992, 0.9992, 0.9993, 0.9995, 0.9999, 1.0008, 1.0032, 1.0202 / +data ((supersat( 8,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +1.0004, 1.0012, 1.0031, 1.0076, 1.0179, 1.0423, 1.1012, 1.2547, 1.7336, & +1.0001, 1.0004, 1.0014, 1.0041, 1.0104, 1.0249, 1.0591, 1.1430, 1.3713, & +1.0001, 1.0001, 1.0004, 1.0016, 1.0054, 1.0143, 1.0349, 1.0836, 1.2060, & +1.0000, 1.0001, 1.0001, 1.0004, 1.0018, 1.0070, 1.0197, 1.0491, 1.1196, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0004, 1.0019, 1.0090, 1.0270, 1.0692, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0001, 1.0005, 1.0019, 1.0114, 1.0364, & +0.9994, 0.9994, 0.9994, 0.9995, 0.9996, 0.9999, 1.0005, 1.0021, 1.0138 / +data ((supersat( 8,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +1.0003, 1.0009, 1.0024, 1.0062, 1.0147, 1.0349, 1.0835, 1.2069, 1.5606, & +1.0001, 1.0003, 1.0011, 1.0032, 1.0083, 1.0202, 1.0481, 1.1161, 1.2936, & +1.0001, 1.0001, 1.0003, 1.0012, 1.0042, 1.0112, 1.0278, 1.0670, 1.1635, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0013, 1.0053, 1.0152, 1.0385, 1.0940, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0003, 1.0013, 1.0066, 1.0205, 1.0534, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0001, 1.0004, 1.0014, 1.0080, 1.0272, & +0.9995, 0.9995, 0.9995, 0.9996, 0.9997, 0.9999, 1.0003, 1.0014, 1.0094 / +data ((supersat( 8,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +1.0003, 1.0008, 1.0021, 1.0052, 1.0125, 1.0297, 1.0711, 1.1748, 1.4593, & +1.0001, 1.0003, 1.0009, 1.0026, 1.0069, 1.0169, 1.0406, 1.0978, 1.2441, & +1.0001, 1.0001, 1.0003, 1.0010, 1.0034, 1.0092, 1.0230, 1.0558, 1.1358, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0010, 1.0041, 1.0123, 1.0315, 1.0771, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0003, 1.0010, 1.0050, 1.0162, 1.0430, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0001, 1.0003, 1.0010, 1.0059, 1.0212, & +0.9996, 0.9996, 0.9996, 0.9996, 0.9997, 0.9999, 1.0002, 1.0011, 1.0066 / +data ((supersat( 8,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +1.0007, 1.0031, 1.0095, 1.0245, 1.0593, 1.1444, 1.3898, 2.6474, 4.8888, & +1.0002, 1.0007, 1.0037, 1.0130, 1.0348, 1.0864, 1.2188, 1.6613, 3.8262, & +1.0001, 1.0003, 1.0007, 1.0043, 1.0175, 1.0490, 1.1264, 1.3432, 2.3601, & +0.9998, 0.9999, 1.0002, 1.0010, 1.0048, 1.0227, 1.0676, 1.1857, 1.5737, & +0.9989, 0.9990, 0.9992, 0.9998, 1.0012, 1.0052, 1.0281, 1.0905, 1.2741, & +0.9969, 0.9970, 0.9971, 0.9975, 0.9985, 1.0010, 1.0072, 1.0330, 1.1164, & +0.9941, 0.9941, 0.9942, 0.9944, 0.9949, 0.9963, 0.9999, 1.0099, 1.0369 / +data ((supersat( 8,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +1.0005, 1.0022, 1.0067, 1.0170, 1.0409, 1.0977, 1.2477, 1.7852, 3.6599, & +1.0002, 1.0005, 1.0026, 1.0090, 1.0241, 1.0590, 1.1442, 1.3867, 2.5209, & +1.0001, 1.0002, 1.0005, 1.0031, 1.0121, 1.0339, 1.0854, 1.2174, 1.6512, & +0.9999, 1.0000, 1.0002, 1.0006, 1.0034, 1.0160, 1.0470, 1.1237, 1.3383, & +0.9995, 0.9996, 0.9997, 1.0001, 1.0009, 1.0035, 1.0202, 1.0636, 1.1789, & +0.9984, 0.9984, 0.9985, 0.9988, 0.9994, 1.0008, 1.0045, 1.0243, 1.0829, & +0.9961, 0.9961, 0.9961, 0.9963, 0.9967, 0.9977, 1.0001, 1.0065, 1.0277 / +data ((supersat( 8,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +1.0004, 1.0016, 1.0047, 1.0123, 1.0294, 1.0699, 1.1716, 1.4756, 2.7109, & +1.0001, 1.0004, 1.0019, 1.0064, 1.0171, 1.0419, 1.1009, 1.2555, 1.7912, & +1.0001, 1.0001, 1.0004, 1.0021, 1.0085, 1.0239, 1.0599, 1.1479, 1.3965, & +1.0000, 1.0001, 1.0002, 1.0004, 1.0023, 1.0111, 1.0331, 1.0857, 1.2209, & +0.9998, 0.9998, 0.9999, 1.0001, 1.0006, 1.0023, 1.0141, 1.0449, 1.1219, & +0.9991, 0.9992, 0.9992, 0.9994, 0.9998, 1.0006, 1.0026, 1.0171, 1.0587, & +0.9975, 0.9975, 0.9976, 0.9977, 0.9980, 0.9986, 1.0002, 1.0040, 1.0197 / +data ((supersat( 8,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +1.0003, 1.0012, 1.0035, 1.0092, 1.0222, 1.0527, 1.1276, 1.3321, 2.0817, & +1.0001, 1.0003, 1.0014, 1.0047, 1.0127, 1.0311, 1.0746, 1.1840, 1.5059, & +1.0001, 1.0001, 1.0003, 1.0015, 1.0061, 1.0174, 1.0438, 1.1069, 1.2721, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0016, 1.0078, 1.0238, 1.0617, 1.1550, & +0.9999, 0.9999, 1.0000, 1.0001, 1.0004, 1.0016, 1.0097, 1.0320, 1.0864, & +0.9995, 0.9995, 0.9995, 0.9997, 0.9999, 1.0004, 1.0017, 1.0116, 1.0418, & +0.9984, 0.9984, 0.9984, 0.9985, 0.9986, 0.9991, 1.0001, 1.0024, 1.0133 / +data ((supersat( 8,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +1.0003, 1.0009, 1.0027, 1.0072, 1.0175, 1.0418, 1.1007, 1.2539, 1.7323, & +1.0001, 1.0003, 1.0010, 1.0036, 1.0097, 1.0242, 1.0582, 1.1418, 1.3695, & +1.0001, 1.0001, 1.0003, 1.0011, 1.0045, 1.0132, 1.0335, 1.0817, 1.2033, & +1.0000, 1.0001, 1.0001, 1.0003, 1.0011, 1.0056, 1.0177, 1.0464, 1.1157, & +0.9999, 0.9999, 1.0000, 1.0001, 1.0003, 1.0011, 1.0067, 1.0235, 1.0640, & +0.9996, 0.9996, 0.9997, 0.9998, 0.9999, 1.0003, 1.0012, 1.0078, 1.0303, & +0.9988, 0.9988, 0.9988, 0.9988, 0.9990, 0.9993, 1.0000, 1.0015, 1.0086 / +data ((supersat( 8,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +1.0002, 1.0007, 1.0022, 1.0059, 1.0144, 1.0345, 1.0831, 1.2064, 1.5598, & +1.0001, 1.0002, 1.0008, 1.0028, 1.0078, 1.0196, 1.0474, 1.1152, 1.2924, & +1.0000, 1.0001, 1.0002, 1.0008, 1.0035, 1.0104, 1.0267, 1.0656, 1.1616, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0008, 1.0042, 1.0137, 1.0365, 1.0912, & +0.9999, 1.0000, 1.0000, 1.0001, 1.0002, 1.0008, 1.0048, 1.0178, 1.0495, & +0.9997, 0.9997, 0.9997, 0.9998, 0.9999, 1.0002, 1.0009, 1.0053, 1.0227, & +0.9989, 0.9989, 0.9990, 0.9990, 0.9991, 0.9993, 0.9999, 1.0010, 1.0056 / +data ((supersat( 8,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +1.0002, 1.0006, 1.0019, 1.0049, 1.0122, 1.0294, 1.0708, 1.1744, 1.4587, & +1.0001, 1.0002, 1.0006, 1.0023, 1.0065, 1.0164, 1.0400, 1.0971, 1.2432, & +1.0000, 1.0001, 1.0002, 1.0006, 1.0028, 1.0085, 1.0221, 1.0547, 1.1343, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0006, 1.0032, 1.0110, 1.0298, 1.0750, & +0.9999, 1.0000, 1.0000, 1.0001, 1.0002, 1.0007, 1.0035, 1.0141, 1.0399, & +0.9997, 0.9997, 0.9997, 0.9998, 0.9999, 1.0002, 1.0007, 1.0037, 1.0175, & +0.9990, 0.9990, 0.9990, 0.9991, 0.9992, 0.9994, 0.9998, 1.0007, 1.0038 / +data ((supersat( 8,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +1.0004, 1.0021, 1.0081, 1.0227, 1.0568, 1.1407, 1.3834, 2.6280, 4.8561, & +1.0002, 1.0004, 1.0023, 1.0107, 1.0315, 1.0813, 1.2104, 1.6440, 3.7637, & +0.9999, 1.0001, 1.0006, 1.0023, 1.0136, 1.0428, 1.1160, 1.3235, 2.3031, & +0.9993, 0.9995, 0.9998, 1.0007, 1.0025, 1.0166, 1.0564, 1.1642, 1.5241, & +0.9978, 0.9979, 0.9982, 0.9988, 1.0003, 1.0039, 1.0192, 1.0712, 1.2301, & +0.9952, 0.9952, 0.9954, 0.9957, 0.9967, 0.9990, 1.0049, 1.0212, 1.0857, & +0.9925, 0.9925, 0.9926, 0.9927, 0.9932, 0.9943, 0.9972, 1.0054, 1.0308 / +data ((supersat( 8,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +1.0003, 1.0016, 1.0057, 1.0158, 1.0394, 1.0957, 1.2446, 1.7792, 3.6414, & +1.0001, 1.0003, 1.0017, 1.0075, 1.0220, 1.0560, 1.1398, 1.3790, 2.4983, & +1.0000, 1.0001, 1.0004, 1.0017, 1.0096, 1.0301, 1.0795, 1.2075, 1.6307, & +0.9997, 0.9998, 1.0000, 1.0005, 1.0018, 1.0118, 1.0402, 1.1119, 1.3155, & +0.9989, 0.9990, 0.9992, 0.9995, 1.0004, 1.0025, 1.0139, 1.0516, 1.1552, & +0.9971, 0.9971, 0.9972, 0.9975, 0.9981, 0.9996, 1.0033, 1.0156, 1.0633, & +0.9943, 0.9943, 0.9943, 0.9945, 0.9948, 0.9957, 0.9979, 1.0037, 1.0208 / +data ((supersat( 8,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +1.0003, 1.0012, 1.0042, 1.0115, 1.0285, 1.0687, 1.1699, 1.4727, 2.7022, & +1.0001, 1.0003, 1.0012, 1.0053, 1.0157, 1.0401, 1.0983, 1.2515, 1.7832, & +1.0000, 1.0001, 1.0003, 1.0012, 1.0067, 1.0214, 1.0563, 1.1423, 1.3866, & +0.9999, 1.0000, 1.0001, 1.0004, 1.0013, 1.0082, 1.0286, 1.0786, 1.2086, & +0.9995, 0.9995, 0.9996, 0.9998, 1.0004, 1.0016, 1.0097, 1.0371, 1.1079, & +0.9983, 0.9983, 0.9984, 0.9985, 0.9990, 0.9999, 1.0022, 1.0108, 1.0459, & +0.9960, 0.9960, 0.9960, 0.9961, 0.9963, 0.9970, 0.9985, 1.0024, 1.0117 / +data ((supersat( 8,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +1.0002, 1.0009, 1.0031, 1.0086, 1.0215, 1.0519, 1.1266, 1.3305, 2.0781, & +1.0001, 1.0002, 1.0009, 1.0039, 1.0117, 1.0298, 1.0730, 1.1816, 1.5018, & +1.0000, 1.0001, 1.0002, 1.0009, 1.0048, 1.0156, 1.0414, 1.1034, 1.2665, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0009, 1.0057, 1.0207, 1.0571, 1.1475, & +0.9997, 0.9997, 0.9998, 0.9999, 1.0003, 1.0010, 1.0065, 1.0267, 1.0775, & +0.9989, 0.9989, 0.9990, 0.9991, 0.9993, 1.0000, 1.0014, 1.0071, 1.0330, & +0.9971, 0.9971, 0.9971, 0.9972, 0.9973, 0.9978, 0.9989, 1.0014, 1.0076 / +data ((supersat( 8,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +1.0002, 1.0007, 1.0024, 1.0068, 1.0170, 1.0412, 1.0999, 1.2529, 1.7305, & +1.0001, 1.0002, 1.0007, 1.0030, 1.0089, 1.0232, 1.0570, 1.1402, 1.3670, & +1.0000, 1.0001, 1.0002, 1.0007, 1.0035, 1.0118, 1.0318, 1.0794, 1.1997, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0007, 1.0040, 1.0154, 1.0431, 1.1108, & +0.9998, 0.9998, 0.9998, 1.0000, 1.0002, 1.0007, 1.0044, 1.0196, 1.0578, & +0.9992, 0.9992, 0.9992, 0.9993, 0.9995, 0.9999, 1.0009, 1.0045, 1.0239, & +0.9977, 0.9977, 0.9977, 0.9977, 0.9979, 0.9982, 0.9990, 1.0007, 1.0050 / +data ((supersat( 8,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +1.0001, 1.0005, 1.0019, 1.0055, 1.0140, 1.0341, 1.0825, 1.2056, 1.5586, & +1.0001, 1.0001, 1.0005, 1.0023, 1.0072, 1.0189, 1.0466, 1.1141, 1.2907, & +1.0000, 1.0001, 1.0001, 1.0005, 1.0027, 1.0093, 1.0254, 1.0638, 1.1591, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0005, 1.0029, 1.0119, 1.0340, 1.0876, & +0.9998, 0.9998, 0.9999, 1.0000, 1.0001, 1.0006, 1.0030, 1.0148, 1.0449, & +0.9993, 0.9993, 0.9993, 0.9994, 0.9996, 0.9999, 1.0006, 1.0031, 1.0178, & +0.9980, 0.9980, 0.9980, 0.9980, 0.9981, 0.9984, 0.9990, 1.0003, 1.0034 / +data ((supersat( 8,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +1.0001, 1.0004, 1.0016, 1.0046, 1.0118, 1.0290, 1.0703, 1.1738, 1.4578, & +1.0001, 1.0001, 1.0004, 1.0019, 1.0059, 1.0158, 1.0393, 1.0962, 1.2419, & +1.0000, 1.0001, 1.0001, 1.0004, 1.0021, 1.0076, 1.0210, 1.0532, 1.1324, & +1.0000, 1.0000, 1.0000, 1.0001, 1.0004, 1.0022, 1.0095, 1.0278, 1.0721, & +0.9998, 0.9998, 0.9999, 1.0000, 1.0001, 1.0005, 1.0022, 1.0115, 1.0362, & +0.9994, 0.9994, 0.9994, 0.9995, 0.9996, 0.9999, 1.0005, 1.0023, 1.0136, & +0.9981, 0.9981, 0.9982, 0.9982, 0.9983, 0.9985, 0.9990, 1.0001, 1.0025 / +data ((supersat( 8,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +1.0003, 1.0012, 1.0065, 1.0205, 1.0536, 1.1360, 1.3751, 2.6023, 4.8128, & +1.0001, 1.0004, 1.0013, 1.0080, 1.0275, 1.0751, 1.1999, 1.6219, 3.6831, & +0.9997, 0.9999, 1.0004, 1.0016, 1.0095, 1.0358, 1.1038, 1.2994, 2.2311, & +0.9985, 0.9987, 0.9991, 1.0000, 1.0022, 1.0107, 1.0447, 1.1404, 1.4663, & +0.9963, 0.9964, 0.9966, 0.9973, 0.9988, 1.0024, 1.0116, 1.0531, 1.1851, & +0.9934, 0.9935, 0.9936, 0.9939, 0.9947, 0.9967, 1.0020, 1.0173, 1.0603, & +0.9913, 0.9914, 0.9915, 0.9916, 0.9919, 0.9928, 0.9949, 1.0012, 1.0206 / +data ((supersat( 8,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +1.0002, 1.0010, 1.0047, 1.0145, 1.0375, 1.0931, 1.2405, 1.7714, 3.6170, & +1.0001, 1.0002, 1.0010, 1.0057, 1.0195, 1.0524, 1.1342, 1.3691, 2.4688, & +0.9999, 1.0000, 1.0003, 1.0010, 1.0068, 1.0257, 1.0725, 1.1953, 1.6048, & +0.9993, 0.9994, 0.9997, 1.0002, 1.0014, 1.0077, 1.0326, 1.0982, 1.2881, & +0.9979, 0.9980, 0.9982, 0.9986, 0.9995, 1.0018, 1.0083, 1.0396, 1.1296, & +0.9954, 0.9954, 0.9955, 0.9958, 0.9964, 0.9979, 1.0015, 1.0115, 1.0457, & +0.9927, 0.9927, 0.9927, 0.9928, 0.9931, 0.9939, 0.9957, 1.0005, 1.0148 / +data ((supersat( 8,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +1.0002, 1.0007, 1.0034, 1.0105, 1.0273, 1.0671, 1.1676, 1.4689, 2.6906, & +1.0001, 1.0002, 1.0007, 1.0041, 1.0140, 1.0378, 1.0950, 1.2463, 1.7728, & +1.0000, 1.0001, 1.0002, 1.0008, 1.0048, 1.0185, 1.0519, 1.1353, 1.3739, & +0.9997, 0.9997, 0.9999, 1.0002, 1.0009, 1.0053, 1.0236, 1.0702, 1.1936, & +0.9989, 0.9989, 0.9990, 0.9993, 0.9999, 1.0012, 1.0056, 1.0289, 1.0923, & +0.9970, 0.9970, 0.9971, 0.9972, 0.9976, 0.9987, 1.0010, 1.0072, 1.0337, & +0.9942, 0.9942, 0.9942, 0.9943, 0.9945, 0.9951, 0.9965, 1.0001, 1.0097 / +data ((supersat( 8,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +1.0001, 1.0006, 1.0026, 1.0079, 1.0207, 1.0509, 1.1252, 1.3283, 2.0732, & +1.0001, 1.0001, 1.0006, 1.0030, 1.0104, 1.0283, 1.0709, 1.1785, 1.4962, & +1.0000, 1.0001, 1.0002, 1.0006, 1.0034, 1.0135, 1.0384, 1.0990, 1.2593, & +0.9998, 0.9999, 1.0000, 1.0002, 1.0006, 1.0036, 1.0171, 1.0515, 1.1383, & +0.9993, 0.9993, 0.9994, 0.9996, 1.0000, 1.0008, 1.0037, 1.0209, 1.0672, & +0.9979, 0.9979, 0.9980, 0.9981, 0.9984, 0.9991, 1.0006, 1.0045, 1.0244, & +0.9954, 0.9954, 0.9954, 0.9955, 0.9957, 0.9961, 0.9971, 0.9996, 1.0060 / +data ((supersat( 8,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +1.0001, 1.0004, 1.0020, 1.0062, 1.0164, 1.0404, 1.0990, 1.2515, 1.7280, & +1.0001, 1.0001, 1.0004, 1.0023, 1.0080, 1.0221, 1.0555, 1.1381, 1.3636, & +1.0000, 1.0000, 1.0001, 1.0004, 1.0024, 1.0102, 1.0296, 1.0763, 1.1950, & +0.9999, 0.9999, 1.0000, 1.0001, 1.0005, 1.0025, 1.0127, 1.0391, 1.1045, & +0.9995, 0.9995, 0.9995, 0.9997, 1.0000, 1.0006, 1.0026, 1.0153, 1.0506, & +0.9984, 0.9984, 0.9984, 0.9985, 0.9987, 0.9992, 1.0004, 1.0030, 1.0176, & +0.9962, 0.9962, 0.9962, 0.9962, 0.9964, 0.9967, 0.9975, 0.9993, 1.0036 / +data ((supersat( 8,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +1.0001, 1.0004, 1.0016, 1.0050, 1.0134, 1.0335, 1.0818, 1.2046, 1.5570, & +1.0000, 1.0001, 1.0004, 1.0017, 1.0064, 1.0179, 1.0454, 1.1125, 1.2884, & +1.0000, 1.0000, 1.0001, 1.0004, 1.0018, 1.0080, 1.0237, 1.0615, 1.1557, & +0.9999, 0.9999, 1.0000, 1.0001, 1.0004, 1.0018, 1.0097, 1.0309, 1.0830, & +0.9996, 0.9996, 0.9996, 0.9997, 0.9999, 1.0004, 1.0019, 1.0114, 1.0394, & +0.9986, 0.9986, 0.9987, 0.9987, 0.9989, 0.9993, 1.0002, 1.0021, 1.0129, & +0.9966, 0.9966, 0.9966, 0.9966, 0.9967, 0.9970, 0.9976, 0.9991, 1.0023 / +data ((supersat( 8,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +1.0001, 1.0003, 1.0013, 1.0042, 1.0114, 1.0285, 1.0697, 1.1731, 1.4566, & +1.0000, 1.0001, 1.0003, 1.0014, 1.0053, 1.0150, 1.0383, 1.0949, 1.2401, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0014, 1.0064, 1.0196, 1.0514, 1.1298, & +0.9999, 0.9999, 1.0000, 1.0001, 1.0003, 1.0014, 1.0077, 1.0253, 1.0685, & +0.9996, 0.9996, 0.9996, 0.9997, 0.9999, 1.0003, 1.0015, 1.0088, 1.0319, & +0.9987, 0.9987, 0.9988, 0.9988, 0.9990, 0.9993, 1.0000, 1.0016, 1.0096, & +0.9968, 0.9968, 0.9968, 0.9968, 0.9969, 0.9971, 0.9977, 0.9989, 1.0015 / +data ((supersat( 8,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +1.0002, 1.0009, 1.0055, 1.0190, 1.0515, 1.1326, 1.3691, 2.5835, 4.7815, & +1.0000, 1.0003, 1.0010, 1.0064, 1.0249, 1.0709, 1.1925, 1.6063, 3.6256, & +0.9994, 0.9996, 1.0002, 1.0014, 1.0072, 1.0315, 1.0958, 1.2832, 2.1808, & +0.9979, 0.9980, 0.9985, 0.9994, 1.0017, 1.0077, 1.0380, 1.1257, 1.4292, & +0.9953, 0.9953, 0.9956, 0.9962, 0.9977, 1.0012, 1.0110, 1.0436, 1.1597, & +0.9926, 0.9926, 0.9927, 0.9930, 0.9937, 0.9955, 1.0001, 1.0139, 1.0587, & +0.9910, 0.9910, 0.9910, 0.9911, 0.9914, 0.9921, 0.9939, 0.9991, 1.0154 / +data ((supersat( 8,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +1.0002, 1.0007, 1.0040, 1.0135, 1.0362, 1.0912, 1.2375, 1.7656, 3.5991, & +1.0001, 1.0002, 1.0007, 1.0046, 1.0178, 1.0499, 1.1302, 1.3620, 2.4474, & +0.9998, 0.9999, 1.0002, 1.0009, 1.0051, 1.0228, 1.0677, 1.1869, 1.5866, & +0.9990, 0.9991, 0.9993, 0.9999, 1.0012, 1.0055, 1.0281, 1.0895, 1.2700, & +0.9972, 0.9972, 0.9974, 0.9978, 0.9988, 1.0011, 1.0071, 1.0329, 1.1144, & +0.9944, 0.9944, 0.9945, 0.9947, 0.9953, 0.9967, 1.0001, 1.0095, 1.0369, & +0.9920, 0.9920, 0.9920, 0.9921, 0.9923, 0.9930, 0.9945, 0.9988, 1.0112 / +data ((supersat( 8,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +1.0001, 1.0005, 1.0029, 1.0098, 1.0264, 1.0659, 1.1660, 1.4660, 2.6820, & +1.0001, 1.0002, 1.0006, 1.0033, 1.0129, 1.0362, 1.0927, 1.2425, 1.7651, & +0.9999, 1.0000, 1.0002, 1.0006, 1.0036, 1.0165, 1.0489, 1.1305, 1.3648, & +0.9995, 0.9995, 0.9997, 1.0000, 1.0008, 1.0038, 1.0205, 1.0647, 1.1834, & +0.9983, 0.9984, 0.9985, 0.9987, 0.9994, 1.0008, 1.0045, 1.0242, 1.0827, & +0.9960, 0.9960, 0.9961, 0.9963, 0.9967, 0.9977, 1.0001, 1.0062, 1.0273, & +0.9932, 0.9932, 0.9933, 0.9933, 0.9935, 0.9941, 0.9953, 0.9986, 1.0074 / +data ((supersat( 8,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +1.0001, 1.0004, 1.0022, 1.0074, 1.0201, 1.0501, 1.1241, 1.3267, 2.0695, & +1.0001, 1.0001, 1.0004, 1.0024, 1.0096, 1.0271, 1.0693, 1.1762, 1.4922, & +1.0000, 1.0000, 1.0001, 1.0005, 1.0026, 1.0121, 1.0364, 1.0959, 1.2540, & +0.9997, 0.9997, 0.9998, 1.0001, 1.0006, 1.0026, 1.0149, 1.0478, 1.1320, & +0.9989, 0.9989, 0.9990, 0.9992, 0.9996, 1.0006, 1.0028, 1.0175, 1.0608, & +0.9971, 0.9971, 0.9972, 0.9973, 0.9976, 0.9983, 1.0000, 1.0039, 1.0197, & +0.9944, 0.9944, 0.9944, 0.9944, 0.9946, 0.9950, 0.9960, 0.9984, 1.0045 / +data ((supersat( 8,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +1.0001, 1.0003, 1.0017, 1.0058, 1.0159, 1.0399, 1.0982, 1.2504, 1.7261, & +1.0000, 1.0001, 1.0003, 1.0018, 1.0074, 1.0212, 1.0544, 1.1366, 1.3611, & +1.0000, 1.0000, 1.0001, 1.0004, 1.0019, 1.0091, 1.0281, 1.0741, 1.1916, & +0.9998, 0.9998, 0.9999, 1.0001, 1.0004, 1.0019, 1.0110, 1.0365, 1.1002, & +0.9992, 0.9992, 0.9993, 0.9994, 0.9997, 1.0004, 1.0020, 1.0127, 1.0459, & +0.9977, 0.9977, 0.9978, 0.9979, 0.9981, 0.9986, 0.9998, 1.0025, 1.0141, & +0.9952, 0.9952, 0.9952, 0.9952, 0.9953, 0.9956, 0.9964, 0.9982, 1.0025 / +data ((supersat( 8,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +1.0001, 1.0003, 1.0013, 1.0047, 1.0131, 1.0330, 1.0812, 1.2038, 1.5557, & +1.0000, 1.0001, 1.0003, 1.0014, 1.0059, 1.0172, 1.0445, 1.1113, 1.2866, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0014, 1.0071, 1.0225, 1.0599, 1.1533, & +0.9998, 0.9998, 0.9999, 1.0000, 1.0003, 1.0014, 1.0083, 1.0288, 1.0798, & +0.9993, 0.9993, 0.9994, 0.9995, 0.9997, 1.0003, 1.0015, 1.0094, 1.0359, & +0.9980, 0.9980, 0.9981, 0.9981, 0.9983, 0.9987, 0.9997, 1.0017, 1.0101, & +0.9956, 0.9956, 0.9956, 0.9956, 0.9957, 0.9960, 0.9966, 0.9981, 1.0014 / +data ((supersat( 8,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +1.0001, 1.0002, 1.0011, 1.0039, 1.0110, 1.0281, 1.0693, 1.1724, 1.4557, & +1.0000, 1.0001, 1.0002, 1.0011, 1.0048, 1.0144, 1.0376, 1.0940, 1.2388, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0011, 1.0057, 1.0186, 1.0500, 1.1278, & +0.9998, 0.9999, 0.9999, 1.0000, 1.0003, 1.0011, 1.0065, 1.0236, 1.0659, & +0.9994, 0.9994, 0.9994, 0.9995, 0.9997, 1.0002, 1.0012, 1.0071, 1.0290, & +0.9982, 0.9982, 0.9982, 0.9983, 0.9984, 0.9988, 0.9996, 1.0013, 1.0074, & +0.9958, 0.9958, 0.9959, 0.9959, 0.9960, 0.9962, 0.9967, 0.9979, 1.0007 / +data ((supersat( 8,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +1.0002, 1.0007, 1.0047, 1.0178, 1.0498, 1.1299, 1.3642, 2.5682, 4.7558, & +0.9999, 1.0002, 1.0009, 1.0053, 1.0229, 1.0677, 1.1868, 1.5937, 3.5793, & +0.9991, 0.9994, 0.9999, 1.0012, 1.0057, 1.0284, 1.0898, 1.2707, 2.1410, & +0.9973, 0.9975, 0.9979, 0.9989, 1.0012, 1.0071, 1.0334, 1.1151, 1.4016, & +0.9945, 0.9946, 0.9948, 0.9954, 0.9968, 1.0003, 1.0097, 1.0374, 1.1426, & +0.9920, 0.9921, 0.9922, 0.9924, 0.9931, 0.9947, 0.9989, 1.0114, 1.0520, & +0.9900, 0.9900, 0.9908, 0.9909, 0.9911, 0.9917, 0.9933, 0.9979, 1.0122 / +data ((supersat( 8,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +1.0002, 1.0006, 1.0035, 1.0127, 1.0352, 1.0897, 1.2352, 1.7608, 3.5845, & +1.0000, 1.0002, 1.0006, 1.0038, 1.0165, 1.0480, 1.1271, 1.3563, 2.4299, & +0.9996, 0.9998, 1.0001, 1.0009, 1.0041, 1.0208, 1.0641, 1.1803, 1.5721, & +0.9986, 0.9987, 0.9990, 0.9996, 1.0010, 1.0043, 1.0249, 1.0831, 1.2562, & +0.9965, 0.9966, 0.9967, 0.9971, 0.9981, 1.0005, 1.0064, 1.0285, 1.1037, & +0.9937, 0.9937, 0.9938, 0.9940, 0.9945, 0.9958, 0.9991, 1.0080, 1.0313, & +0.9915, 0.9915, 0.9916, 0.9916, 0.9919, 0.9924, 0.9938, 0.9976, 1.0088 / +data ((supersat( 8,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +1.0001, 1.0005, 1.0025, 1.0093, 1.0257, 1.0650, 1.1646, 1.4637, 2.6749, & +1.0000, 1.0001, 1.0005, 1.0028, 1.0120, 1.0349, 1.0908, 1.2394, 1.7588, & +0.9998, 0.9999, 1.0001, 1.0006, 1.0029, 1.0151, 1.0466, 1.1266, 1.3576, & +0.9993, 0.9993, 0.9995, 0.9999, 1.0007, 1.0030, 1.0182, 1.0606, 1.1756, & +0.9979, 0.9979, 0.9980, 0.9983, 0.9989, 1.0004, 1.0041, 1.0210, 1.0758, & +0.9953, 0.9953, 0.9954, 0.9955, 0.9959, 0.9969, 0.9993, 1.0053, 1.0232, & +0.9926, 0.9926, 0.9926, 0.9927, 0.9929, 0.9934, 0.9946, 0.9975, 1.0058 / +data ((supersat( 8,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +1.0001, 1.0004, 1.0019, 1.0070, 1.0196, 1.0495, 1.1233, 1.3253, 2.0663, & +1.0000, 1.0001, 1.0004, 1.0020, 1.0089, 1.0263, 1.0681, 1.1743, 1.4888, & +0.9999, 1.0000, 1.0001, 1.0004, 1.0021, 1.0111, 1.0348, 1.0934, 1.2498, & +0.9996, 0.9996, 0.9997, 1.0000, 1.0005, 1.0021, 1.0132, 1.0450, 1.1271, & +0.9986, 0.9986, 0.9987, 0.9989, 0.9993, 1.0003, 1.0027, 1.0152, 1.0561, & +0.9965, 0.9965, 0.9965, 0.9967, 0.9970, 0.9977, 0.9993, 1.0033, 1.0167, & +0.9937, 0.9937, 0.9937, 0.9937, 0.9939, 0.9943, 0.9952, 0.9975, 1.0033 / +data ((supersat( 8,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +1.0001, 1.0003, 1.0015, 1.0055, 1.0155, 1.0394, 1.0976, 1.2496, 1.7245, & +1.0000, 1.0001, 1.0003, 1.0015, 1.0068, 1.0205, 1.0535, 1.1353, 1.3590, & +0.9999, 1.0000, 1.0001, 1.0003, 1.0015, 1.0083, 1.0269, 1.0724, 1.1888, & +0.9997, 0.9997, 0.9998, 1.0000, 1.0004, 1.0016, 1.0097, 1.0344, 1.0968, & +0.9989, 0.9989, 0.9990, 0.9991, 0.9995, 1.0002, 1.0018, 1.0109, 1.0426, & +0.9972, 0.9972, 0.9972, 0.9973, 0.9975, 0.9981, 0.9993, 1.0021, 1.0118, & +0.9944, 0.9944, 0.9944, 0.9945, 0.9946, 0.9949, 0.9957, 0.9974, 1.0016 / +data ((supersat( 8,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +1.0001, 1.0002, 1.0012, 1.0045, 1.0127, 1.0326, 1.0808, 1.2032, 1.5546, & +1.0000, 1.0001, 1.0002, 1.0012, 1.0054, 1.0167, 1.0438, 1.1104, 1.2851, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0012, 1.0064, 1.0215, 1.0585, 1.1512, & +0.9997, 0.9998, 0.9998, 1.0000, 1.0003, 1.0012, 1.0073, 1.0272, 1.0772, & +0.9991, 0.9991, 0.9991, 0.9993, 0.9995, 1.0001, 1.0014, 1.0080, 1.0333, & +0.9975, 0.9975, 0.9975, 0.9976, 0.9978, 0.9982, 0.9992, 1.0014, 1.0083, & +0.9949, 0.9949, 0.9949, 0.9949, 0.9950, 0.9953, 0.9959, 0.9973, 1.0006 / +data ((supersat( 8,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +1.0001, 1.0002, 1.0009, 1.0037, 1.0108, 1.0278, 1.0689, 1.1719, 1.4549, & +1.0000, 1.0001, 1.0002, 1.0009, 1.0044, 1.0139, 1.0370, 1.0932, 1.2377, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0009, 1.0051, 1.0178, 1.0489, 1.1262, & +0.9998, 0.9998, 0.9998, 1.0000, 1.0002, 1.0010, 1.0057, 1.0222, 1.0639, & +0.9992, 0.9992, 0.9992, 0.9993, 0.9995, 1.0000, 1.0011, 1.0060, 1.0269, & +0.9977, 0.9977, 0.9977, 0.9978, 0.9979, 0.9983, 0.9991, 1.0009, 1.0061, & +0.9951, 0.9951, 0.9951, 0.9952, 0.9952, 0.9954, 0.9960, 0.9972, 0.9999 / +data ((supersat( 8,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +1.0002, 1.0007, 1.0041, 1.0169, 1.0483, 1.1276, 1.3601, 2.5548, 4.7338, & +0.9998, 1.0002, 1.0009, 1.0045, 1.0214, 1.0650, 1.1820, 1.5831, 3.5401, & +0.9989, 0.9991, 0.9997, 1.0011, 1.0047, 1.0260, 1.0850, 1.2605, 2.1077, & +0.9968, 0.9970, 0.9974, 0.9984, 1.0007, 1.0067, 1.0300, 1.1070, 1.3798, & +0.9940, 0.9940, 0.9943, 0.9948, 0.9962, 0.9995, 1.0085, 1.0331, 1.1300, & +0.9917, 0.9917, 0.9918, 0.9920, 0.9926, 0.9941, 0.9980, 1.0096, 1.0470, & +0.9900, 0.9900, 0.9906, 0.9907, 0.9909, 0.9915, 0.9929, 0.9970, 1.0099 / +data ((supersat( 8,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +1.0002, 1.0005, 1.0030, 1.0121, 1.0343, 1.0885, 1.2331, 1.7567, 3.5719, & +1.0000, 1.0002, 1.0006, 1.0033, 1.0155, 1.0464, 1.1245, 1.3514, 2.4149, & +0.9995, 0.9997, 1.0000, 1.0008, 1.0034, 1.0191, 1.0612, 1.1749, 1.5599, & +0.9983, 0.9984, 0.9987, 0.9993, 1.0007, 1.0043, 1.0225, 1.0781, 1.2450, & +0.9960, 0.9960, 0.9962, 0.9966, 0.9976, 0.9999, 1.0058, 1.0253, 1.0956, & +0.9932, 0.9932, 0.9932, 0.9934, 0.9939, 0.9952, 0.9983, 1.0068, 1.0332, & +0.9913, 0.9913, 0.9913, 0.9914, 0.9916, 0.9921, 0.9933, 0.9968, 1.0070 / +data ((supersat( 8,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +1.0001, 1.0004, 1.0023, 1.0089, 1.0252, 1.0642, 1.1635, 1.4617, 2.6687, & +1.0000, 1.0001, 1.0004, 1.0024, 1.0113, 1.0339, 1.0892, 1.2367, 1.7534, & +0.9998, 0.9999, 1.0001, 1.0005, 1.0024, 1.0139, 1.0447, 1.1234, 1.3515, & +0.9991, 0.9991, 0.9993, 0.9997, 1.0006, 1.0026, 1.0165, 1.0573, 1.1692, & +0.9974, 0.9975, 0.9976, 0.9979, 0.9985, 1.0001, 1.0038, 1.0186, 1.0705, & +0.9947, 0.9948, 0.9948, 0.9950, 0.9953, 0.9963, 0.9986, 1.0045, 1.0203, & +0.9922, 0.9922, 0.9922, 0.9923, 0.9925, 0.9929, 0.9940, 0.9968, 1.0045 / +data ((supersat( 8,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +1.0001, 1.0003, 1.0017, 1.0067, 1.0192, 1.0489, 1.1225, 1.3242, 2.0636, & +1.0000, 1.0001, 1.0003, 1.0017, 1.0084, 1.0255, 1.0670, 1.1726, 1.4859, & +0.9999, 0.9999, 1.0001, 1.0004, 1.0018, 1.0102, 1.0335, 1.0914, 1.2462, & +0.9994, 0.9995, 0.9996, 0.9999, 1.0004, 1.0019, 1.0120, 1.0427, 1.1230, & +0.9983, 0.9983, 0.9984, 0.9986, 0.9990, 1.0001, 1.0025, 1.0134, 1.0524, & +0.9960, 0.9960, 0.9960, 0.9961, 0.9964, 0.9971, 0.9988, 1.0028, 1.0145, & +0.9931, 0.9932, 0.9932, 0.9932, 0.9934, 0.9937, 0.9946, 0.9968, 1.0023 / +data ((supersat( 8,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +1.0001, 1.0003, 1.0013, 1.0052, 1.0152, 1.0390, 1.0971, 1.2488, 1.7231, & +1.0000, 1.0001, 1.0003, 1.0013, 1.0064, 1.0200, 1.0528, 1.1342, 1.3571, & +0.9999, 1.0000, 1.0001, 1.0003, 1.0013, 1.0076, 1.0259, 1.0709, 1.1864, & +0.9996, 0.9996, 0.9997, 0.9999, 1.0003, 1.0014, 1.0087, 1.0327, 1.0940, & +0.9987, 0.9987, 0.9988, 0.9989, 0.9992, 1.0000, 1.0017, 1.0096, 1.0399, & +0.9967, 0.9967, 0.9967, 0.9968, 0.9970, 0.9976, 0.9988, 1.0017, 1.0101, & +0.9939, 0.9939, 0.9939, 0.9939, 0.9940, 0.9943, 0.9951, 0.9968, 1.0008 / +data ((supersat( 8,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +1.0001, 1.0002, 1.0010, 1.0042, 1.0125, 1.0323, 1.0804, 1.2026, 1.5537, & +1.0000, 1.0001, 1.0002, 1.0010, 1.0051, 1.0162, 1.0432, 1.1095, 1.2838, & +0.9999, 1.0000, 1.0001, 1.0002, 1.0010, 1.0059, 1.0207, 1.0574, 1.1495, & +0.9996, 0.9997, 0.9998, 0.9999, 1.0002, 1.0011, 1.0065, 1.0259, 1.0751, & +0.9989, 0.9989, 0.9989, 0.9991, 0.9993, 0.9999, 1.0012, 1.0069, 1.0312, & +0.9971, 0.9971, 0.9971, 0.9972, 0.9973, 0.9978, 0.9988, 1.0010, 1.0072, & +0.9943, 0.9943, 0.9943, 0.9943, 0.9944, 0.9947, 0.9953, 0.9967, 0.9999 / +data ((supersat( 8,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +1.0001, 1.0002, 1.0008, 1.0035, 1.0105, 1.0275, 1.0685, 1.1715, 1.4542, & +1.0000, 1.0001, 1.0002, 1.0008, 1.0041, 1.0136, 1.0365, 1.0926, 1.2367, & +0.9999, 1.0000, 1.0000, 1.0002, 1.0008, 1.0047, 1.0171, 1.0480, 1.1248, & +0.9997, 0.9997, 0.9998, 0.9999, 1.0002, 1.0009, 1.0050, 1.0211, 1.0622, & +0.9990, 0.9990, 0.9990, 0.9991, 0.9994, 0.9999, 1.0009, 1.0051, 1.0252, & +0.9973, 0.9973, 0.9973, 0.9974, 0.9975, 0.9979, 0.9987, 1.0006, 1.0054, & +0.9945, 0.9946, 0.9946, 0.9946, 0.9947, 0.9949, 0.9954, 0.9966, 0.9993 / +data ((supersat( 9,iw,iconc,1, 1),iw=1,9),iconc=1,7)/ & +1.0004, 1.0024, 1.0086, 1.0234, 1.0578, 1.1423, 1.3864, 2.6371, 4.8712, & +1.0002, 1.0005, 1.0027, 1.0115, 1.0328, 1.0834, 1.2141, 1.6519, 3.7921, & +1.0000, 1.0002, 1.0006, 1.0028, 1.0149, 1.0452, 1.1204, 1.3321, 2.3292, & +0.9995, 0.9996, 1.0000, 1.0008, 1.0030, 1.0187, 1.0607, 1.1730, 1.5454, & +0.9981, 0.9982, 0.9985, 0.9991, 1.0006, 1.0042, 1.0223, 1.0783, 1.2474, & +0.9956, 0.9957, 0.9958, 0.9962, 0.9972, 0.9996, 1.0058, 1.0251, 1.0965, & +0.9929, 0.9929, 0.9929, 0.9931, 0.9936, 0.9948, 0.9980, 1.0069, 1.0347 / +data ((supersat( 9,iw,iconc,2, 1),iw=1,9),iconc=1,7)/ & +1.0004, 1.0017, 1.0060, 1.0162, 1.0400, 1.0966, 1.2460, 1.7821, 3.6500, & +1.0001, 1.0004, 1.0019, 1.0080, 1.0228, 1.0572, 1.1417, 1.3825, 2.5089, & +1.0000, 1.0002, 1.0004, 1.0020, 1.0105, 1.0316, 1.0819, 1.2118, 1.6401, & +0.9998, 0.9999, 1.0001, 1.0005, 1.0021, 1.0133, 1.0428, 1.1168, 1.3254, & +0.9991, 0.9992, 0.9993, 0.9997, 1.0006, 1.0026, 1.0161, 1.0562, 1.1648, & +0.9974, 0.9975, 0.9976, 0.9978, 0.9985, 1.0000, 1.0037, 1.0186, 1.0704, & +0.9947, 0.9947, 0.9948, 0.9949, 0.9953, 0.9963, 0.9986, 1.0046, 1.0204 / +data ((supersat( 9,iw,iconc,3, 1),iw=1,9),iconc=1,7)/ & +1.0003, 1.0013, 1.0043, 1.0117, 1.0288, 1.0692, 1.1707, 1.4741, 2.7064, & +1.0001, 1.0003, 1.0014, 1.0057, 1.0162, 1.0408, 1.0994, 1.2534, 1.7870, & +1.0001, 1.0001, 1.0003, 1.0014, 1.0073, 1.0224, 1.0578, 1.1448, 1.3911, & +0.9999, 1.0000, 1.0001, 1.0004, 1.0015, 1.0092, 1.0304, 1.0815, 1.2140, & +0.9996, 0.9996, 0.9997, 0.9999, 1.0004, 1.0016, 1.0112, 1.0401, 1.1137, & +0.9985, 0.9986, 0.9986, 0.9988, 0.9992, 1.0001, 1.0024, 1.0130, 1.0507, & +0.9964, 0.9964, 0.9964, 0.9965, 0.9968, 0.9974, 0.9990, 1.0029, 1.0143 / +data ((supersat( 9,iw,iconc,4, 1),iw=1,9),iconc=1,7)/ & +1.0002, 1.0010, 1.0032, 1.0088, 1.0218, 1.0523, 1.1271, 1.3313, 2.0799, & +1.0001, 1.0002, 1.0010, 1.0042, 1.0120, 1.0303, 1.0737, 1.1827, 1.5038, & +1.0000, 1.0001, 1.0002, 1.0010, 1.0052, 1.0163, 1.0424, 1.1050, 1.2692, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0010, 1.0064, 1.0219, 1.0590, 1.1509, & +0.9997, 0.9998, 0.9998, 1.0000, 1.0003, 1.0011, 1.0076, 1.0288, 1.0812, & +0.9991, 0.9991, 0.9991, 0.9992, 0.9995, 1.0001, 1.0015, 1.0086, 1.0364, & +0.9974, 0.9974, 0.9975, 0.9975, 0.9977, 0.9982, 0.9992, 1.0017, 1.0094 / +data ((supersat( 9,iw,iconc,5, 1),iw=1,9),iconc=1,7)/ & +1.0002, 1.0007, 1.0025, 1.0069, 1.0172, 1.0415, 1.1003, 1.2534, 1.7314, & +1.0001, 1.0002, 1.0008, 1.0031, 1.0092, 1.0236, 1.0575, 1.1410, 1.3682, & +1.0000, 1.0001, 1.0002, 1.0008, 1.0038, 1.0123, 1.0325, 1.0804, 1.2014, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0008, 1.0045, 1.0163, 1.0445, 1.1131, & +0.9998, 0.9998, 0.9999, 1.0000, 1.0002, 1.0008, 1.0051, 1.0211, 1.0604, & +0.9993, 0.9993, 0.9994, 0.9994, 0.9996, 1.0001, 1.0010, 1.0056, 1.0264, & +0.9980, 0.9980, 0.9980, 0.9981, 0.9982, 0.9985, 0.9993, 1.0010, 1.0059 / +data ((supersat( 9,iw,iconc,6, 1),iw=1,9),iconc=1,7)/ & +1.0002, 1.0006, 1.0020, 1.0056, 1.0141, 1.0343, 1.0828, 1.2060, 1.5592, & +1.0001, 1.0002, 1.0006, 1.0025, 1.0074, 1.0191, 1.0469, 1.1146, 1.2916, & +1.0000, 1.0001, 1.0002, 1.0006, 1.0029, 1.0097, 1.0260, 1.0646, 1.1604, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0006, 1.0033, 1.0126, 1.0351, 1.0893, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0002, 1.0006, 1.0036, 1.0160, 1.0469, & +0.9994, 0.9994, 0.9995, 0.9995, 0.9997, 1.0000, 1.0007, 1.0037, 1.0197, & +0.9983, 0.9983, 0.9983, 0.9983, 0.9984, 0.9987, 0.9993, 1.0006, 1.0038 / +data ((supersat( 9,iw,iconc,7, 1),iw=1,9),iconc=1,7)/ & +1.0001, 1.0005, 1.0017, 1.0047, 1.0120, 1.0292, 1.0705, 1.1741, 1.4583, & +1.0001, 1.0001, 1.0005, 1.0020, 1.0061, 1.0160, 1.0396, 1.0966, 1.2426, & +1.0000, 1.0001, 1.0001, 1.0005, 1.0023, 1.0079, 1.0215, 1.0539, 1.1334, & +1.0000, 1.0000, 1.0001, 1.0001, 1.0005, 1.0025, 1.0100, 1.0287, 1.0735, & +0.9999, 0.9999, 0.9999, 1.0000, 1.0001, 1.0005, 1.0026, 1.0125, 1.0379, & +0.9995, 0.9995, 0.9995, 0.9996, 0.9997, 1.0000, 1.0005, 1.0026, 1.0152, & +0.9984, 0.9984, 0.9984, 0.9984, 0.9985, 0.9987, 0.9992, 1.0003, 1.0028 / +data ((supersat( 9,iw,iconc,1, 2),iw=1,9),iconc=1,7)/ & +1.0003, 1.0014, 1.0070, 1.0212, 1.0547, 1.1377, 1.3782, 2.6123, 4.8296, & +1.0001, 1.0004, 1.0015, 1.0088, 1.0288, 1.0773, 1.2037, 1.6302, 3.7134, & +0.9997, 1.0000, 1.0004, 1.0015, 1.0108, 1.0382, 1.1080, 1.3081, 2.2581, & +0.9988, 0.9989, 0.9993, 1.0002, 1.0023, 1.0125, 1.0485, 1.1485, 1.4868, & +0.9967, 0.9968, 0.9970, 0.9977, 0.9992, 1.0029, 1.0138, 1.0588, 1.1999, & +0.9938, 0.9939, 0.9940, 0.9943, 0.9952, 0.9973, 1.0029, 1.0191, 1.0679, & +0.9916, 0.9917, 0.9917, 0.9918, 0.9922, 0.9931, 0.9955, 1.0024, 1.0237 / +data ((supersat( 9,iw,iconc,2, 2),iw=1,9),iconc=1,7)/ & +1.0002, 1.0011, 1.0050, 1.0149, 1.0382, 1.0941, 1.2420, 1.7744, 3.6264, & +1.0001, 1.0002, 1.0011, 1.0063, 1.0203, 1.0537, 1.1362, 1.3729, 2.4802, & +0.9999, 1.0001, 1.0003, 1.0011, 1.0076, 1.0271, 1.0749, 1.1998, 1.6145, & +0.9995, 0.9996, 0.9998, 1.0003, 1.0015, 1.0089, 1.0351, 1.1030, 1.2979, & +0.9982, 0.9983, 0.9985, 0.9989, 0.9998, 1.0020, 1.0100, 1.0435, 1.1383, & +0.9958, 0.9959, 0.9960, 0.9962, 0.9968, 0.9984, 1.0021, 1.0108, 1.0511, & +0.9930, 0.9931, 0.9931, 0.9932, 0.9935, 0.9943, 0.9963, 1.0014, 1.0167 / +data ((supersat( 9,iw,iconc,3, 2),iw=1,9),iconc=1,7)/ & +1.0002, 1.0008, 1.0036, 1.0108, 1.0277, 1.0677, 1.1685, 1.4704, 2.6951, & +1.0001, 1.0002, 1.0008, 1.0045, 1.0146, 1.0386, 1.0962, 1.2483, 1.7769, & +1.0000, 1.0001, 1.0002, 1.0008, 1.0053, 1.0194, 1.0534, 1.1379, 1.3787, & +0.9997, 0.9998, 1.0000, 1.0003, 1.0010, 1.0061, 1.0253, 1.0731, 1.1991, & +0.9990, 0.9991, 0.9992, 0.9994, 1.0000, 1.0013, 1.0068, 1.0316, 1.0977, & +0.9973, 0.9974, 0.9974, 0.9976, 0.9980, 0.9990, 1.0014, 1.0072, 1.0376, & +0.9946, 0.9946, 0.9946, 0.9947, 0.9950, 0.9956, 0.9971, 1.0007, 1.0108 / +data ((supersat( 9,iw,iconc,4, 2),iw=1,9),iconc=1,7)/ & +1.0002, 1.0006, 1.0027, 1.0081, 1.0209, 1.0512, 1.1257, 1.3292, 2.0751, & +1.0001, 1.0002, 1.0006, 1.0033, 1.0108, 1.0288, 1.0717, 1.1797, 1.4984, & +1.0000, 1.0001, 1.0002, 1.0006, 1.0038, 1.0142, 1.0395, 1.1007, 1.2621, & +0.9999, 0.9999, 1.0000, 1.0002, 1.0007, 1.0042, 1.0183, 1.0535, 1.1418, & +0.9994, 0.9994, 0.9995, 0.9997, 1.0001, 1.0009, 1.0044, 1.0228, 1.0708, & +0.9982, 0.9982, 0.9983, 0.9984, 0.9987, 0.9994, 1.0009, 1.0047, 1.0272, & +0.9958, 0.9958, 0.9959, 0.9959, 0.9961, 0.9965, 0.9976, 1.0002, 1.0066 / +data ((supersat( 9,iw,iconc,5, 2),iw=1,9),iconc=1,7)/ & +1.0001, 1.0005, 1.0021, 1.0063, 1.0166, 1.0407, 1.0993, 1.2521, 1.7290, & +1.0001, 1.0001, 1.0005, 1.0025, 1.0083, 1.0225, 1.0561, 1.1390, 1.3650, & +1.0000, 1.0001, 1.0001, 1.0005, 1.0027, 1.0107, 1.0303, 1.0775, 1.1968, & +0.9999, 0.9999, 1.0000, 1.0002, 1.0005, 1.0029, 1.0136, 1.0406, 1.1069, & +0.9996, 0.9996, 0.9996, 0.9998, 1.0000, 1.0006, 1.0029, 1.0167, 1.0531, & +0.9986, 0.9986, 0.9987, 0.9987, 0.9990, 0.9995, 1.0005, 1.0032, 1.0197, & +0.9966, 0.9966, 0.9966, 0.9966, 0.9968, 0.9971, 0.9979, 0.9997, 1.0041 / +data ((supersat( 9,iw,iconc,6, 2),iw=1,9),iconc=1,7)/ & +1.0001, 1.0004, 1.0017, 1.0052, 1.0136, 1.0337, 1.0821, 1.2050, 1.5576, & +1.0000, 1.0001, 1.0004, 1.0019, 1.0066, 1.0182, 1.0458, 1.1131, 1.2893, & +1.0000, 1.0000, 1.0001, 1.0004, 1.0021, 1.0084, 1.0243, 1.0624, 1.1571, & +0.9999, 0.9999, 1.0000, 1.0001, 1.0004, 1.0021, 1.0104, 1.0320, 1.0847, & +0.9996, 0.9997, 0.9997, 0.9998, 1.0000, 1.0005, 1.0021, 1.0125, 1.0414, & +0.9988, 0.9988, 0.9989, 0.9989, 0.9991, 0.9995, 1.0003, 1.0023, 1.0145, & +0.9969, 0.9970, 0.9970, 0.9970, 0.9971, 0.9974, 0.9980, 0.9995, 1.0027 / +data ((supersat( 9,iw,iconc,7, 2),iw=1,9),iconc=1,7)/ & +1.0001, 1.0003, 1.0014, 1.0043, 1.0115, 1.0287, 1.0700, 1.1734, 1.4571, & +1.0000, 1.0001, 1.0003, 1.0015, 1.0055, 1.0153, 1.0386, 1.0954, 1.2409, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0016, 1.0068, 1.0201, 1.0521, 1.1308, & +0.9999, 1.0000, 1.0000, 1.0001, 1.0003, 1.0016, 1.0082, 1.0262, 1.0699, & +0.9997, 0.9997, 0.9997, 0.9998, 1.0000, 1.0004, 1.0016, 1.0097, 1.0334, & +0.9989, 0.9989, 0.9989, 0.9990, 0.9992, 0.9995, 1.0002, 1.0017, 1.0109, & +0.9972, 0.9972, 0.9972, 0.9972, 0.9973, 0.9975, 0.9981, 0.9993, 1.0019 / +data ((supersat( 9,iw,iconc,1, 3),iw=1,9),iconc=1,7)/ & +1.0002, 1.0008, 1.0052, 1.0186, 1.0510, 1.1318, 1.3678, 2.5796, 4.7750, & +1.0000, 1.0003, 1.0009, 1.0060, 1.0243, 1.0700, 1.1910, 1.6030, 3.6134, & +0.9993, 0.9995, 1.0001, 1.0013, 1.0067, 1.0306, 1.0940, 1.2798, 2.1702, & +0.9977, 0.9978, 0.9982, 0.9992, 1.0015, 1.0071, 1.0366, 1.1226, 1.4215, & +0.9950, 0.9950, 0.9953, 0.9959, 0.9973, 1.0009, 1.0106, 1.0417, 1.1546, & +0.9923, 0.9924, 0.9925, 0.9927, 0.9934, 0.9952, 0.9997, 1.0131, 1.0567, & +0.9908, 0.9909, 0.9909, 0.9910, 0.9913, 0.9919, 0.9937, 0.9987, 1.0144 / +data ((supersat( 9,iw,iconc,2, 3),iw=1,9),iconc=1,7)/ & +1.0002, 1.0007, 1.0038, 1.0132, 1.0359, 1.0908, 1.2369, 1.7644, 3.5954, & +1.0000, 1.0002, 1.0007, 1.0043, 1.0174, 1.0494, 1.1294, 1.3605, 2.4428, & +0.9997, 0.9999, 1.0002, 1.0009, 1.0048, 1.0222, 1.0667, 1.1851, 1.5827, & +0.9988, 0.9989, 0.9992, 0.9998, 1.0011, 1.0050, 1.0272, 1.0877, 1.2661, & +0.9969, 0.9969, 0.9971, 0.9975, 0.9985, 1.0008, 1.0068, 1.0316, 1.1113, & +0.9941, 0.9941, 0.9942, 0.9944, 0.9950, 0.9963, 0.9998, 1.0090, 1.0351, & +0.9917, 0.9918, 0.9918, 0.9919, 0.9921, 0.9927, 0.9943, 0.9983, 1.0104 / +data ((supersat( 9,iw,iconc,3, 3),iw=1,9),iconc=1,7)/ & +1.0001, 1.0005, 1.0028, 1.0097, 1.0262, 1.0657, 1.1656, 1.4654, 2.6802, & +1.0001, 1.0002, 1.0005, 1.0031, 1.0126, 1.0358, 1.0922, 1.2417, 1.7635, & +0.9999, 1.0000, 1.0002, 1.0006, 1.0033, 1.0161, 1.0482, 1.1294, 1.3629, & +0.9994, 0.9995, 0.9996, 1.0000, 1.0008, 1.0035, 1.0198, 1.0635, 1.1813, & +0.9981, 0.9982, 0.9983, 0.9986, 0.9992, 1.0007, 1.0044, 1.0233, 1.0807, & +0.9957, 0.9957, 0.9958, 0.9960, 0.9964, 0.9974, 0.9998, 1.0059, 1.0261, & +0.9930, 0.9930, 0.9930, 0.9931, 0.9933, 0.9938, 0.9950, 0.9982, 1.0069 / +data ((supersat( 9,iw,iconc,4, 3),iw=1,9),iconc=1,7)/ & +1.0001, 1.0004, 1.0021, 1.0073, 1.0199, 1.0499, 1.1239, 1.3263, 2.0687, & +1.0000, 1.0001, 1.0004, 1.0023, 1.0094, 1.0269, 1.0690, 1.1757, 1.4913, & +0.9999, 1.0000, 1.0001, 1.0004, 1.0024, 1.0118, 1.0359, 1.0953, 1.2530, & +0.9996, 0.9997, 0.9998, 1.0000, 1.0005, 1.0024, 1.0144, 1.0470, 1.1307, & +0.9988, 0.9988, 0.9989, 0.9991, 0.9995, 1.0005, 1.0028, 1.0168, 1.0595, & +0.9969, 0.9969, 0.9969, 0.9970, 0.9973, 0.9981, 0.9997, 1.0037, 1.0188, & +0.9941, 0.9941, 0.9941, 0.9941, 0.9943, 0.9947, 0.9957, 0.9981, 1.0041 / +data ((supersat( 9,iw,iconc,5, 3),iw=1,9),iconc=1,7)/ & +1.0001, 1.0003, 1.0016, 1.0057, 1.0158, 1.0397, 1.0981, 1.2502, 1.7257, & +1.0000, 1.0001, 1.0003, 1.0017, 1.0072, 1.0210, 1.0542, 1.1362, 1.3606, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0017, 1.0089, 1.0277, 1.0737, 1.1909, & +0.9997, 0.9998, 0.9999, 1.0000, 1.0004, 1.0018, 1.0106, 1.0359, 1.0993, & +0.9991, 0.9991, 0.9992, 0.9993, 0.9996, 1.0003, 1.0019, 1.0122, 1.0450, & +0.9975, 0.9975, 0.9975, 0.9976, 0.9979, 0.9984, 0.9996, 1.0024, 1.0134, & +0.9948, 0.9948, 0.9949, 0.9949, 0.9950, 0.9953, 0.9961, 0.9979, 1.0022 / +data ((supersat( 9,iw,iconc,6, 3),iw=1,9),iconc=1,7)/ & +1.0001, 1.0003, 1.0013, 1.0046, 1.0129, 1.0329, 1.0811, 1.2037, 1.5554, & +1.0000, 1.0001, 1.0003, 1.0013, 1.0057, 1.0170, 1.0443, 1.1111, 1.2862, & +1.0000, 1.0000, 1.0001, 1.0003, 1.0013, 1.0069, 1.0222, 1.0595, 1.1528, & +0.9998, 0.9998, 0.9999, 1.0000, 1.0003, 1.0013, 1.0080, 1.0284, 1.0791, & +0.9992, 0.9992, 0.9993, 0.9994, 0.9997, 1.0002, 1.0014, 1.0089, 1.0352, & +0.9978, 0.9978, 0.9979, 0.9979, 0.9981, 0.9985, 0.9995, 1.0016, 1.0096, & +0.9953, 0.9953, 0.9953, 0.9953, 0.9954, 0.9957, 0.9963, 0.9978, 1.0011 / +data ((supersat( 9,iw,iconc,7, 3),iw=1,9),iconc=1,7)/ & +1.0001, 1.0002, 1.0010, 1.0039, 1.0110, 1.0280, 1.0692, 1.1723, 1.4555, & +1.0000, 1.0001, 1.0002, 1.0010, 1.0047, 1.0143, 1.0374, 1.0938, 1.2385, & +1.0000, 1.0000, 1.0001, 1.0002, 1.0010, 1.0055, 1.0184, 1.0497, 1.1274, & +0.9998, 0.9998, 0.9999, 1.0000, 1.0002, 1.0011, 1.0062, 1.0232, 1.0654, & +0.9993, 0.9993, 0.9993, 0.9994, 0.9997, 1.0001, 1.0011, 1.0067, 1.0284, & +0.9980, 0.9980, 0.9980, 0.9981, 0.9982, 0.9986, 0.9994, 1.0011, 1.0070, & +0.9955, 0.9955, 0.9955, 0.9956, 0.9957, 0.9959, 0.9964, 0.9977, 1.0004 / +data ((supersat( 9,iw,iconc,1, 4),iw=1,9),iconc=1,7)/ & +1.0002, 1.0006, 1.0034, 1.0156, 1.0464, 1.1245, 1.3544, 2.5364, 4.7036, & +0.9997, 1.0000, 1.0008, 1.0035, 1.0193, 1.0614, 1.1755, 1.5687, 3.4866, & +0.9985, 0.9987, 0.9994, 1.0008, 1.0044, 1.0229, 1.0788, 1.2471, 2.0630, & +0.9961, 0.9963, 0.9967, 0.9977, 1.0000, 1.0059, 1.0258, 1.0969, 1.3521, & +0.9933, 0.9933, 0.9935, 0.9940, 0.9953, 0.9985, 1.0070, 1.0336, 1.1265, & +0.9912, 0.9913, 0.9914, 0.9916, 0.9921, 0.9934, 0.9969, 1.0073, 1.0409, & +0.9900, 0.9900, 0.9900, 0.9905, 0.9907, 0.9912, 0.9924, 0.9960, 1.0074 / +data ((supersat( 9,iw,iconc,2, 4),iw=1,9),iconc=1,7)/ & +1.0001, 1.0004, 1.0025, 1.0112, 1.0331, 1.0867, 1.2302, 1.7510, 3.5544, & +0.9999, 1.0001, 1.0006, 1.0026, 1.0141, 1.0442, 1.1209, 1.3447, 2.3942, & +0.9993, 0.9995, 0.9998, 1.0007, 1.0027, 1.0170, 1.0574, 1.1676, 1.5435, & +0.9978, 0.9979, 0.9982, 0.9988, 1.0003, 1.0039, 1.0195, 1.0717, 1.2305, & +0.9952, 0.9953, 0.9954, 0.9958, 0.9968, 0.9991, 1.0049, 1.0214, 1.0857, & +0.9925, 0.9925, 0.9926, 0.9928, 0.9933, 0.9944, 0.9973, 1.0052, 1.0296, & +0.9900, 0.9910, 0.9910, 0.9910, 0.9912, 0.9917, 0.9928, 0.9958, 1.0050 / +data ((supersat( 9,iw,iconc,3, 4),iw=1,9),iconc=1,7)/ & +1.0001, 1.0003, 1.0019, 1.0083, 1.0244, 1.0632, 1.1618, 1.4588, 2.6600, & +1.0000, 1.0001, 1.0004, 1.0019, 1.0103, 1.0324, 1.0870, 1.2331, 1.7459, & +0.9997, 0.9998, 1.0000, 1.0005, 1.0020, 1.0124, 1.0422, 1.1191, 1.3432, & +0.9988, 0.9988, 0.9990, 0.9994, 1.0004, 1.0026, 1.0143, 1.0530, 1.1608, & +0.9968, 0.9968, 0.9969, 0.9972, 0.9979, 0.9995, 1.0033, 1.0158, 1.0638, & +0.9940, 0.9940, 0.9940, 0.9942, 0.9946, 0.9955, 0.9977, 1.0033, 1.0200, & +0.9917, 0.9917, 0.9917, 0.9918, 0.9919, 0.9924, 0.9933, 0.9959, 1.0029 / +data ((supersat( 9,iw,iconc,4, 4),iw=1,9),iconc=1,7)/ & +1.0001, 1.0003, 1.0014, 1.0062, 1.0186, 1.0482, 1.1215, 1.3225, 2.0597, & +1.0000, 1.0001, 1.0003, 1.0014, 1.0076, 1.0245, 1.0656, 1.1704, 1.4818, & +0.9998, 0.9999, 1.0000, 1.0003, 1.0015, 1.0091, 1.0317, 1.0885, 1.2413, & +0.9992, 0.9993, 0.9994, 0.9997, 1.0003, 1.0017, 1.0103, 1.0397, 1.1177, & +0.9978, 0.9978, 0.9979, 0.9981, 0.9986, 0.9996, 1.0021, 1.0112, 1.0478, & +0.9952, 0.9952, 0.9952, 0.9954, 0.9956, 0.9964, 0.9980, 1.0020, 1.0130, & +0.9925, 0.9925, 0.9926, 0.9926, 0.9927, 0.9931, 0.9939, 0.9959, 1.0011 / +data ((supersat( 9,iw,iconc,5, 4),iw=1,9),iconc=1,7)/ & +1.0001, 1.0002, 1.0011, 1.0049, 1.0147, 1.0385, 1.0964, 1.2477, 1.7211, & +1.0000, 1.0001, 1.0002, 1.0011, 1.0058, 1.0192, 1.0517, 1.1326, 1.3546, & +0.9999, 0.9999, 1.0000, 1.0003, 1.0011, 1.0067, 1.0246, 1.0689, 1.1831, & +0.9994, 0.9995, 0.9995, 0.9998, 1.0002, 1.0012, 1.0075, 1.0305, 1.0902, & +0.9983, 0.9983, 0.9983, 0.9985, 0.9989, 0.9997, 1.0014, 1.0079, 1.0365, & +0.9960, 0.9960, 0.9960, 0.9961, 0.9963, 0.9969, 0.9981, 1.0010, 1.0086, & +0.9932, 0.9932, 0.9932, 0.9932, 0.9933, 0.9936, 0.9943, 0.9959, 0.9998 / +data ((supersat( 9,iw,iconc,6, 4),iw=1,9),iconc=1,7)/ & +1.0001, 1.0002, 1.0009, 1.0039, 1.0121, 1.0319, 1.0798, 1.2018, 1.5523, & +1.0000, 1.0001, 1.0002, 1.0009, 1.0046, 1.0156, 1.0424, 1.1084, 1.2820, & +0.9999, 0.9999, 1.0000, 1.0002, 1.0009, 1.0052, 1.0197, 1.0558, 1.1471, & +0.9995, 0.9995, 0.9996, 0.9998, 1.0001, 1.0009, 1.0055, 1.0242, 1.0723, & +0.9985, 0.9985, 0.9986, 0.9987, 0.9990, 0.9996, 1.0010, 1.0057, 1.0286, & +0.9964, 0.9964, 0.9964, 0.9965, 0.9967, 0.9971, 0.9982, 1.0005, 1.0062, & +0.9936, 0.9936, 0.9936, 0.9936, 0.9937, 0.9939, 0.9945, 0.9959, 0.9990 / +data ((supersat( 9,iw,iconc,7, 4),iw=1,9),iconc=1,7)/ & +1.0000, 1.0002, 1.0007, 1.0033, 1.0102, 1.0271, 1.0681, 1.1709, 1.4532, & +1.0000, 1.0000, 1.0002, 1.0007, 1.0037, 1.0130, 1.0358, 1.0916, 1.2353, & +0.9999, 0.9999, 1.0000, 1.0002, 1.0007, 1.0041, 1.0162, 1.0467, 1.1230, & +0.9996, 0.9996, 0.9996, 0.9998, 1.0001, 1.0008, 1.0042, 1.0197, 1.0599, & +0.9986, 0.9986, 0.9987, 0.9988, 0.9990, 0.9996, 1.0007, 1.0043, 1.0230, & +0.9966, 0.9966, 0.9966, 0.9967, 0.9969, 0.9972, 0.9981, 1.0001, 1.0047, & +0.9938, 0.9938, 0.9938, 0.9938, 0.9939, 0.9941, 0.9946, 0.9958, 0.9984 / +data ((supersat( 9,iw,iconc,1, 5),iw=1,9),iconc=1,7)/ & +1.0001, 1.0006, 1.0024, 1.0136, 1.0433, 1.1194, 1.3448, 2.5049, 4.6525, & +0.9994, 0.9998, 1.0006, 1.0026, 1.0163, 1.0560, 1.1651, 1.5450, 3.3978, & +0.9978, 0.9981, 0.9987, 1.0002, 1.0039, 1.0187, 1.0696, 1.2262, 1.9911, & +0.9951, 0.9952, 0.9956, 0.9966, 0.9989, 1.0046, 1.0204, 1.0828, 1.3121, & +0.9924, 0.9925, 0.9927, 0.9931, 0.9942, 0.9970, 1.0047, 1.0286, 1.1105, & +0.9909, 0.9909, 0.9910, 0.9912, 0.9916, 0.9927, 0.9956, 1.0044, 1.0328, & +0.9900, 0.9900, 0.9900, 0.9904, 0.9905, 0.9909, 0.9919, 0.9949, 1.0042 / +data ((supersat( 9,iw,iconc,2, 5),iw=1,9),iconc=1,7)/ & +1.0001, 1.0004, 1.0019, 1.0099, 1.0312, 1.0838, 1.2254, 1.7412, 3.5244, & +0.9998, 1.0000, 1.0005, 1.0019, 1.0120, 1.0408, 1.1151, 1.3336, 2.3591, & +0.9989, 0.9991, 0.9995, 1.0004, 1.0025, 1.0139, 1.0515, 1.1561, 1.5168, & +0.9970, 0.9971, 0.9974, 0.9980, 0.9996, 1.0033, 1.0154, 1.0623, 1.2085, & +0.9942, 0.9942, 0.9944, 0.9947, 0.9957, 0.9979, 1.0034, 1.0197, 1.0722, & +0.9918, 0.9918, 0.9919, 0.9921, 0.9925, 0.9935, 0.9960, 1.0029, 1.0244, & +0.9900, 0.9900, 0.9900, 0.9907, 0.9909, 0.9912, 0.9922, 0.9947, 1.0024 / +data ((supersat( 9,iw,iconc,3, 5),iw=1,9),iconc=1,7)/ & +1.0001, 1.0003, 1.0014, 1.0073, 1.0231, 1.0613, 1.1591, 1.4539, 2.6451, & +0.9999, 1.0001, 1.0003, 1.0014, 1.0088, 1.0301, 1.0835, 1.2270, 1.7330, & +0.9994, 0.9995, 0.9998, 1.0003, 1.0017, 1.0102, 1.0383, 1.1122, 1.3294, & +0.9982, 0.9983, 0.9985, 0.9989, 0.9999, 1.0022, 1.0112, 1.0467, 1.1477, & +0.9958, 0.9959, 0.9960, 0.9962, 0.9969, 0.9985, 1.0023, 1.0120, 1.0545, & +0.9930, 0.9931, 0.9931, 0.9932, 0.9936, 0.9944, 0.9965, 1.0017, 1.0169, & +0.9912, 0.9912, 0.9912, 0.9913, 0.9914, 0.9917, 0.9926, 0.9947, 1.0007 / +data ((supersat( 9,iw,iconc,4, 5),iw=1,9),iconc=1,7)/ & +1.0001, 1.0002, 1.0011, 1.0055, 1.0176, 1.0469, 1.1197, 1.3197, 2.0530, & +1.0000, 1.0001, 1.0003, 1.0011, 1.0065, 1.0229, 1.0632, 1.1666, 1.4748, & +0.9997, 0.9997, 0.9999, 1.0003, 1.0012, 1.0074, 1.0289, 1.0840, 1.2331, & +0.9988, 0.9989, 0.9990, 0.9993, 1.0000, 1.0015, 1.0080, 1.0353, 1.1091, & +0.9970, 0.9970, 0.9971, 0.9973, 0.9978, 0.9989, 1.0015, 1.0084, 1.0411, & +0.9942, 0.9942, 0.9942, 0.9943, 0.9946, 0.9953, 0.9969, 1.0007, 1.0111, & +0.9918, 0.9918, 0.9918, 0.9919, 0.9920, 0.9923, 0.9930, 0.9948, 0.9994 / +data ((supersat( 9,iw,iconc,5, 5),iw=1,9),iconc=1,7)/ & +1.0001, 1.0002, 1.0009, 1.0043, 1.0140, 1.0375, 1.0951, 1.2458, 1.7175, & +1.0000, 1.0000, 1.0002, 1.0009, 1.0050, 1.0179, 1.0499, 1.1300, 1.3501, & +0.9998, 0.9998, 0.9999, 1.0002, 1.0009, 1.0055, 1.0225, 1.0656, 1.1776, & +0.9991, 0.9992, 0.9993, 0.9995, 1.0000, 1.0011, 1.0057, 1.0272, 1.0842, & +0.9976, 0.9976, 0.9977, 0.9978, 0.9982, 0.9991, 1.0009, 1.0060, 1.0315, & +0.9950, 0.9950, 0.9950, 0.9951, 0.9953, 0.9958, 0.9971, 1.0000, 1.0074, & +0.9924, 0.9924, 0.9924, 0.9924, 0.9925, 0.9927, 0.9934, 0.9948, 0.9984 / +data ((supersat( 9,iw,iconc,6, 5),iw=1,9),iconc=1,7)/ & +1.0000, 1.0001, 1.0007, 1.0035, 1.0115, 1.0311, 1.0788, 1.2004, 1.5499, & +1.0000, 1.0000, 1.0002, 1.0007, 1.0039, 1.0146, 1.0410, 1.1064, 1.2788, & +0.9998, 0.9998, 0.9999, 1.0002, 1.0007, 1.0041, 1.0180, 1.0533, 1.1430, & +0.9993, 0.9993, 0.9994, 0.9996, 0.9999, 1.0008, 1.0042, 1.0215, 1.0677, & +0.9979, 0.9979, 0.9980, 0.9981, 0.9984, 0.9991, 1.0006, 1.0044, 1.0247, & +0.9954, 0.9954, 0.9954, 0.9955, 0.9957, 0.9961, 0.9972, 0.9995, 1.0052, & +0.9927, 0.9927, 0.9927, 0.9927, 0.9928, 0.9930, 0.9935, 0.9948, 0.9977 / +data ((supersat( 9,iw,iconc,7, 5),iw=1,9),iconc=1,7)/ & +1.0000, 1.0001, 1.0006, 1.0029, 1.0097, 1.0265, 1.0673, 1.1697, 1.4514, & +1.0000, 1.0000, 1.0001, 1.0006, 1.0031, 1.0121, 1.0346, 1.0900, 1.2328, & +0.9998, 0.9999, 0.9999, 1.0001, 1.0006, 1.0032, 1.0148, 1.0446, 1.1197, & +0.9993, 0.9993, 0.9994, 0.9996, 0.9999, 1.0006, 1.0033, 1.0174, 1.0562, & +0.9981, 0.9981, 0.9981, 0.9982, 0.9985, 0.9991, 1.0003, 1.0034, 1.0198, & +0.9956, 0.9956, 0.9957, 0.9957, 0.9959, 0.9963, 0.9972, 0.9992, 1.0038, & +0.9929, 0.9929, 0.9929, 0.9929, 0.9930, 0.9932, 0.9936, 0.9947, 0.9972 / +data ((supersat( 9,iw,iconc,1, 6),iw=1,9),iconc=1,7)/ & +1.0000, 1.0005, 1.0020, 1.0122, 1.0409, 1.1154, 1.3371, 2.4792, 4.6107, & +0.9991, 0.9995, 1.0004, 1.0026, 1.0142, 1.0519, 1.1572, 1.5263, 3.3276, & +0.9972, 0.9975, 0.9982, 0.9997, 1.0034, 1.0158, 1.0632, 1.2109, 1.9362, & +0.9943, 0.9945, 0.9949, 0.9958, 0.9980, 1.0036, 1.0170, 1.0734, 1.2948, & +0.9919, 0.9920, 0.9921, 0.9926, 0.9936, 0.9961, 1.0032, 1.0250, 1.0991, & +0.9900, 0.9907, 0.9908, 0.9909, 0.9913, 0.9922, 0.9948, 1.0026, 1.0277, & +0.9900, 0.9900, 0.9900, 0.9900, 0.9904, 0.9907, 0.9916, 0.9942, 1.0023 / +data ((supersat( 9,iw,iconc,2, 6),iw=1,9),iconc=1,7)/ & +1.0001, 1.0004, 1.0015, 1.0089, 1.0297, 1.0815, 1.2215, 1.7331, 3.5000, & +0.9996, 0.9999, 1.0004, 1.0016, 1.0105, 1.0382, 1.1106, 1.3248, 2.3308, & +0.9985, 0.9987, 0.9992, 1.0001, 1.0023, 1.0118, 1.0473, 1.1475, 1.4961, & +0.9963, 0.9964, 0.9967, 0.9974, 0.9989, 1.0026, 1.0128, 1.0559, 1.1926, & +0.9935, 0.9935, 0.9937, 0.9940, 0.9949, 0.9970, 1.0022, 1.0176, 1.0635, & +0.9914, 0.9914, 0.9915, 0.9916, 0.9920, 0.9929, 0.9951, 1.0014, 1.0208, & +0.9900, 0.9900, 0.9900, 0.9905, 0.9907, 0.9910, 0.9918, 0.9940, 1.0008 / +data ((supersat( 9,iw,iconc,3, 6),iw=1,9),iconc=1,7)/ & +1.0001, 1.0002, 1.0012, 1.0066, 1.0221, 1.0599, 1.1568, 1.4499, 2.6329, & +0.9998, 1.0000, 1.0003, 1.0012, 1.0077, 1.0284, 1.0807, 1.2221, 1.7226, & +0.9992, 0.9993, 0.9996, 1.0002, 1.0016, 1.0086, 1.0354, 1.1069, 1.3186, & +0.9977, 0.9978, 0.9980, 0.9984, 0.9995, 1.0019, 1.0092, 1.0423, 1.1380, & +0.9951, 0.9951, 0.9952, 0.9955, 0.9962, 0.9978, 1.0015, 1.0118, 1.0482, & +0.9925, 0.9925, 0.9925, 0.9926, 0.9929, 0.9937, 0.9956, 1.0004, 1.0146, & +0.9900, 0.9900, 0.9909, 0.9910, 0.9911, 0.9914, 0.9921, 0.9940, 0.9994 / +data ((supersat( 9,iw,iconc,4, 6),iw=1,9),iconc=1,7)/ & +1.0001, 1.0002, 1.0009, 1.0050, 1.0169, 1.0460, 1.1183, 1.3173, 2.0473, & +0.9999, 1.0000, 1.0002, 1.0009, 1.0057, 1.0216, 1.0613, 1.1635, 1.4690, & +0.9995, 0.9996, 0.9998, 1.0002, 1.0011, 1.0062, 1.0269, 1.0804, 1.2266, & +0.9985, 0.9985, 0.9987, 0.9990, 0.9997, 1.0013, 1.0065, 1.0321, 1.1028, & +0.9963, 0.9963, 0.9964, 0.9966, 0.9971, 0.9983, 1.0009, 1.0078, 1.0366, & +0.9935, 0.9935, 0.9935, 0.9936, 0.9939, 0.9945, 0.9960, 0.9997, 1.0096, & +0.9914, 0.9914, 0.9914, 0.9915, 0.9916, 0.9918, 0.9925, 0.9941, 0.9982 / +data ((supersat( 9,iw,iconc,5, 6),iw=1,9),iconc=1,7)/ & +1.0000, 1.0002, 1.0007, 1.0039, 1.0134, 1.0368, 1.0941, 1.2442, 1.7146, & +0.9999, 1.0000, 1.0002, 1.0007, 1.0043, 1.0170, 1.0485, 1.1279, 1.3465, & +0.9997, 0.9997, 0.9998, 1.0001, 1.0008, 1.0046, 1.0209, 1.0630, 1.1732, & +0.9988, 0.9989, 0.9990, 0.9992, 0.9998, 1.0009, 1.0047, 1.0247, 1.0797, & +0.9970, 0.9970, 0.9971, 0.9972, 0.9976, 0.9985, 1.0005, 1.0053, 1.0281, & +0.9942, 0.9942, 0.9943, 0.9943, 0.9945, 0.9951, 0.9963, 0.9991, 1.0063, & +0.9919, 0.9919, 0.9919, 0.9919, 0.9920, 0.9922, 0.9928, 0.9941, 0.9974 / +data ((supersat( 9,iw,iconc,6, 6),iw=1,9),iconc=1,7)/ & +1.0000, 1.0001, 1.0006, 1.0031, 1.0110, 1.0305, 1.0780, 1.1992, 1.5479, & +1.0000, 1.0000, 1.0001, 1.0006, 1.0034, 1.0137, 1.0399, 1.1047, 1.2762, & +0.9997, 0.9998, 0.9999, 1.0001, 1.0006, 1.0035, 1.0167, 1.0513, 1.1397, & +0.9990, 0.9990, 0.9991, 0.9993, 0.9998, 1.0007, 1.0035, 1.0195, 1.0642, & +0.9974, 0.9974, 0.9974, 0.9976, 0.9979, 0.9986, 1.0002, 1.0039, 1.0219, & +0.9947, 0.9947, 0.9947, 0.9948, 0.9949, 0.9954, 0.9964, 0.9987, 1.0043, & +0.9922, 0.9922, 0.9922, 0.9922, 0.9923, 0.9925, 0.9929, 0.9941, 0.9968 / +data ((supersat( 9,iw,iconc,7, 6),iw=1,9),iconc=1,7)/ & +1.0000, 1.0001, 1.0005, 1.0026, 1.0093, 1.0260, 1.0666, 1.1688, 1.4498, & +1.0000, 1.0000, 1.0001, 1.0005, 1.0027, 1.0114, 1.0337, 1.0887, 1.2307, & +0.9997, 0.9998, 0.9999, 1.0001, 1.0005, 1.0027, 1.0137, 1.0430, 1.1171, & +0.9991, 0.9991, 0.9992, 0.9994, 0.9997, 1.0005, 1.0028, 1.0158, 1.0534, & +0.9975, 0.9976, 0.9976, 0.9977, 0.9980, 0.9986, 1.0000, 1.0030, 1.0175, & +0.9949, 0.9949, 0.9949, 0.9950, 0.9951, 0.9955, 0.9964, 0.9984, 1.0030, & +0.9923, 0.9923, 0.9923, 0.9924, 0.9924, 0.9926, 0.9930, 0.9940, 0.9964 / +data ((supersat( 9,iw,iconc,1, 7),iw=1,9),iconc=1,7)/ & +0.9999, 1.0005, 1.0017, 1.0111, 1.0390, 1.1121, 1.3306, 2.4571, 4.5753, & +0.9989, 0.9993, 1.0002, 1.0025, 1.0126, 1.0487, 1.1507, 1.5109, 3.2690, & +0.9967, 0.9970, 0.9977, 0.9992, 1.0030, 1.0137, 1.0582, 1.1989, 1.8918, & +0.9938, 0.9939, 0.9943, 0.9952, 0.9973, 1.0027, 1.0185, 1.0666, 1.2770, & +0.9916, 0.9916, 0.9918, 0.9922, 0.9931, 0.9955, 1.0020, 1.0223, 1.0906, & +0.9900, 0.9900, 0.9906, 0.9907, 0.9911, 0.9919, 0.9943, 1.0014, 1.0241, & +0.9900, 0.9900, 0.9900, 0.9900, 0.9903, 0.9906, 0.9914, 0.9937, 1.0011 / +data ((supersat( 9,iw,iconc,2, 7),iw=1,9),iconc=1,7)/ & +1.0000, 1.0003, 1.0013, 1.0082, 1.0285, 1.0796, 1.2182, 1.7262, 3.4791, & +0.9995, 0.9998, 1.0003, 1.0016, 1.0093, 1.0361, 1.1069, 1.3174, 2.3067, & +0.9982, 0.9984, 0.9988, 0.9998, 1.0021, 1.0102, 1.0440, 1.1405, 1.4791, & +0.9958, 0.9959, 0.9962, 0.9968, 0.9984, 1.0021, 1.0124, 1.0511, 1.1804, & +0.9930, 0.9930, 0.9932, 0.9935, 0.9943, 0.9963, 1.0013, 1.0160, 1.0641, & +0.9912, 0.9912, 0.9912, 0.9914, 0.9917, 0.9925, 0.9945, 1.0003, 1.0182, & +0.9900, 0.9900, 0.9900, 0.9900, 0.9906, 0.9908, 0.9916, 0.9936, 0.9997 / +data ((supersat( 9,iw,iconc,3, 7),iw=1,9),iconc=1,7)/ & +1.0001, 1.0002, 1.0010, 1.0061, 1.0212, 1.0587, 1.1549, 1.4464, 2.6222, & +0.9998, 0.9999, 1.0003, 1.0011, 1.0069, 1.0270, 1.0783, 1.2180, 1.7136, & +0.9990, 0.9991, 0.9994, 1.0000, 1.0015, 1.0074, 1.0331, 1.1025, 1.3097, & +0.9973, 0.9974, 0.9975, 0.9980, 0.9991, 1.0015, 1.0078, 1.0389, 1.1304, & +0.9945, 0.9946, 0.9947, 0.9949, 0.9956, 0.9971, 1.0008, 1.0108, 1.0436, & +0.9921, 0.9921, 0.9921, 0.9922, 0.9925, 0.9932, 0.9950, 0.9995, 1.0128, & +0.9900, 0.9900, 0.9900, 0.9908, 0.9909, 0.9912, 0.9918, 0.9935, 0.9985 / +data ((supersat( 9,iw,iconc,4, 7),iw=1,9),iconc=1,7)/ & +1.0001, 1.0002, 1.0008, 1.0046, 1.0163, 1.0451, 1.1170, 1.3152, 2.0424, & +0.9999, 1.0000, 1.0002, 1.0008, 1.0051, 1.0206, 1.0597, 1.1609, 1.4640, & +0.9994, 0.9995, 0.9997, 1.0001, 1.0010, 1.0054, 1.0252, 1.0775, 1.2212, & +0.9981, 0.9982, 0.9983, 0.9987, 0.9994, 1.0011, 1.0056, 1.0296, 1.0977, & +0.9958, 0.9958, 0.9959, 0.9961, 0.9966, 0.9977, 1.0004, 1.0072, 1.0332, & +0.9930, 0.9930, 0.9930, 0.9931, 0.9934, 0.9940, 0.9954, 0.9989, 1.0084, & +0.9900, 0.9900, 0.9912, 0.9912, 0.9913, 0.9916, 0.9921, 0.9936, 0.9974 / +data ((supersat( 9,iw,iconc,5, 7),iw=1,9),iconc=1,7)/ & +1.0000, 1.0001, 1.0006, 1.0036, 1.0129, 1.0361, 1.0932, 1.2428, 1.7119, & +0.9999, 1.0000, 1.0002, 1.0007, 1.0038, 1.0162, 1.0474, 1.1261, 1.3433, & +0.9995, 0.9996, 0.9998, 1.0001, 1.0007, 1.0039, 1.0196, 1.0609, 1.1695, & +0.9986, 0.9986, 0.9987, 0.9990, 0.9995, 1.0007, 1.0041, 1.0228, 1.0760, & +0.9965, 0.9965, 0.9966, 0.9967, 0.9971, 0.9980, 1.0000, 1.0049, 1.0255, & +0.9937, 0.9937, 0.9937, 0.9938, 0.9940, 0.9945, 0.9957, 0.9984, 1.0054, & +0.9915, 0.9915, 0.9916, 0.9916, 0.9917, 0.9919, 0.9924, 0.9936, 0.9967 / +data ((supersat( 9,iw,iconc,6, 7),iw=1,9),iconc=1,7)/ & +1.0000, 1.0001, 1.0005, 1.0028, 1.0106, 1.0300, 1.0773, 1.1982, 1.5461, & +0.9999, 1.0000, 1.0001, 1.0005, 1.0030, 1.0131, 1.0389, 1.1033, 1.2739, & +0.9996, 0.9997, 0.9998, 1.0000, 1.0006, 1.0030, 1.0156, 1.0496, 1.1370, & +0.9988, 0.9988, 0.9989, 0.9991, 0.9996, 1.0005, 1.0031, 1.0180, 1.0614, & +0.9969, 0.9969, 0.9970, 0.9971, 0.9974, 0.9982, 0.9998, 1.0036, 1.0199, & +0.9941, 0.9941, 0.9941, 0.9942, 0.9944, 0.9948, 0.9958, 0.9981, 1.0036, & +0.9918, 0.9918, 0.9918, 0.9918, 0.9919, 0.9921, 0.9925, 0.9936, 0.9961 / +data ((supersat( 9,iw,iconc,7, 7),iw=1,9),iconc=1,7)/ & +1.0000, 1.0001, 1.0004, 1.0023, 1.0089, 1.0255, 1.0660, 1.1680, 1.4484, & +0.9999, 1.0000, 1.0001, 1.0004, 1.0024, 1.0108, 1.0329, 1.0875, 1.2289, & +0.9997, 0.9997, 0.9998, 1.0000, 1.0005, 1.0024, 1.0128, 1.0416, 1.1148, & +0.9989, 0.9989, 0.9990, 0.9992, 0.9996, 1.0004, 1.0025, 1.0145, 1.0510, & +0.9971, 0.9971, 0.9972, 0.9973, 0.9975, 0.9982, 0.9996, 1.0027, 1.0158, & +0.9944, 0.9944, 0.9944, 0.9944, 0.9946, 0.9950, 0.9958, 0.9978, 1.0024, & +0.9919, 0.9920, 0.9920, 0.9920, 0.9920, 0.9922, 0.9926, 0.9935, 0.9957 / + +nucvalue1 = wtw1*(wtcon1*(jrg1*cldnuctab(rgccn1 ,jw ,jconcen ,jtemp,epstab ) & + + jrg2*cldnuctab(rgccn1+1,jw ,jconcen ,jtemp,epstab)) & + + wtcon2*(jrg1*cldnuctab(rgccn1 ,jw ,jconcen+1,jtemp,epstab ) & + + jrg2*cldnuctab(rgccn1+1,jw ,jconcen+1,jtemp,epstab))) & + +wtw2*(wtcon1*(jrg1*cldnuctab(rgccn1 ,jw+1,jconcen ,jtemp,epstab ) & + + jrg2*cldnuctab(rgccn1+1,jw+1,jconcen ,jtemp,epstab)) & + + wtcon2*(jrg1*cldnuctab(rgccn1 ,jw+1,jconcen+1,jtemp,epstab ) & + + jrg2*cldnuctab(rgccn1+1,jw+1,jconcen+1,jtemp,epstab))) + +nucvalue2 = wtw1*(wtcon1*(jrg1*cldnuctab(rgccn1 ,jw ,jconcen ,jtemp,epstab+1 ) & + + jrg2*cldnuctab(rgccn1+1,jw ,jconcen ,jtemp,epstab+1)) & + + wtcon2*(jrg1*cldnuctab(rgccn1 ,jw ,jconcen+1,jtemp,epstab+1 ) & + + jrg2*cldnuctab(rgccn1+1,jw ,jconcen+1,jtemp,epstab+1))) & + +wtw2*(wtcon1*(jrg1*cldnuctab(rgccn1 ,jw+1,jconcen ,jtemp,epstab+1 ) & + + jrg2*cldnuctab(rgccn1+1,jw+1,jconcen ,jtemp,epstab+1)) & + + wtcon2*(jrg1*cldnuctab(rgccn1 ,jw+1,jconcen+1,jtemp,epstab+1 ) & + + jrg2*cldnuctab(rgccn1+1,jw+1,jconcen+1,jtemp,epstab+1))) + +nucvalue = eps1 * nucvalue1 + eps2 * nucvalue2 + +supsatpcnt = rrv / (1.0001 * rrvlsair) +nucss=0.0 +!Saleeby(2011): Supersaturation tables are essentially the inverse of the W +!tables above. These could be used in situations where W is small but super- +!saturation still exists. These should be further tested in regions of non-W +!super-saturation to be sure how viable they are. +!TURNED OFF FOR NOW +do ss=9,8 + print*,'TEST FOR SUPER-SATURATION TABLES - THEY ARE TURNED ON',ss + ssvalue11 = wtcon1*(jrg1*supersat(rgccn1 ,ss,jconcen ,jtemp,epstab ) & + + jrg2*supersat(rgccn1+1,ss,jconcen ,jtemp,epstab)) & + + wtcon2*(jrg1*supersat(rgccn1 ,ss,jconcen+1,jtemp,epstab ) & + + jrg2*supersat(rgccn1+1,ss,jconcen+1,jtemp,epstab)) + ssvalue12 = wtcon1*(jrg1*supersat(rgccn1 ,ss,jconcen ,jtemp,epstab+1 ) & + + jrg2*supersat(rgccn1+1,ss,jconcen ,jtemp,epstab+1)) & + + wtcon2*(jrg1*supersat(rgccn1 ,ss,jconcen+1,jtemp,epstab+1 ) & + + jrg2*supersat(rgccn1+1,ss,jconcen+1,jtemp,epstab+1)) + ssvalue1 = eps1 * ssvalue11 + eps2 * ssvalue12 + + ssvalue21 = wtcon1*(jrg1*supersat(rgccn1 ,ss+1,jconcen ,jtemp,epstab ) & + + jrg2*supersat(rgccn1+1,ss+1,jconcen ,jtemp,epstab)) & + + wtcon2*(jrg1*supersat(rgccn1 ,ss+1,jconcen+1,jtemp,epstab ) & + + jrg2*supersat(rgccn1+1,ss+1,jconcen+1,jtemp,epstab)) + ssvalue22 = wtcon1*(jrg1*supersat(rgccn1 ,ss+1,jconcen ,jtemp,epstab+1 ) & + + jrg2*supersat(rgccn1+1,ss+1,jconcen ,jtemp,epstab+1)) & + + wtcon2*(jrg1*supersat(rgccn1 ,ss+1,jconcen+1,jtemp,epstab+1 ) & + + jrg2*supersat(rgccn1+1,ss+1,jconcen+1,jtemp,epstab+1)) + ssvalue2 = eps1 * ssvalue21 + eps2 * ssvalue22 + + if((supsatpcnt>=ssvalue1.and.supsatpcnt<=ssvalue2).or. & + (supsatpcnt>ssvalue2).and.ss==8) then + mult1=(ssvalue2-supsatpcnt)/(ssvalue2-ssvalue1) + mult2=(supsatpcnt-ssvalue1)/(ssvalue2-ssvalue1) + + if(ssvalue1==ssvalue2 .or. ssvalue1>ssvalue2 .or. supsatpcnt>ssvalue2) then + mult1=0.0 + mult2=1.0 + endif + + nucss1 =mult1*(wtcon1*(jrg1*cldnuctab(rgccn1 ,ss ,jconcen ,jtemp,epstab ) & + + jrg2*cldnuctab(rgccn1+1,ss ,jconcen ,jtemp,epstab)) & + + wtcon2*(jrg1*cldnuctab(rgccn1 ,ss ,jconcen+1,jtemp,epstab ) & + + jrg2*cldnuctab(rgccn1+1,ss ,jconcen+1,jtemp,epstab))) & + +mult2*(wtcon1*(jrg1*cldnuctab(rgccn1 ,ss+1,jconcen ,jtemp,epstab ) & + + jrg2*cldnuctab(rgccn1+1,ss+1,jconcen ,jtemp,epstab)) & + + wtcon2*(jrg1*cldnuctab(rgccn1 ,ss+1,jconcen+1,jtemp,epstab ) & + + jrg2*cldnuctab(rgccn1+1,ss+1,jconcen+1,jtemp,epstab))) + nucss2 =mult1*(wtcon1*(jrg1*cldnuctab(rgccn1 ,ss ,jconcen ,jtemp,epstab+1 ) & + + jrg2*cldnuctab(rgccn1+1,ss ,jconcen ,jtemp,epstab+1)) & + + wtcon2*(jrg1*cldnuctab(rgccn1 ,ss ,jconcen+1,jtemp,epstab+1 ) & + + jrg2*cldnuctab(rgccn1+1,ss ,jconcen+1,jtemp,epstab+1))) & + +mult2*(wtcon1*(jrg1*cldnuctab(rgccn1 ,ss+1,jconcen ,jtemp,epstab+1 ) & + + jrg2*cldnuctab(rgccn1+1,ss+1,jconcen ,jtemp,epstab+1)) & + + wtcon2*(jrg1*cldnuctab(rgccn1 ,ss+1,jconcen+1,jtemp,epstab+1 ) & + + jrg2*cldnuctab(rgccn1+1,ss+1,jconcen+1,jtemp,epstab+1))) + nucss = eps1 * nucss1 + eps2 * nucss2 + go to 102 + endif +enddo +102 continue +tabvalue=max(nucvalue,nucss) +if(tabvalue < 0.0 .or. tabvalue > 1.0)then + print*,'Nucleation fraction unreal',tabvalue + stop +endif + +return +END SUBROUTINE aero_nuc_tab_nacl + diff --git a/src/6.2.16/micro/mic_tabs.f90 b/src/6.2.16/micro/mic_tabs.f90 new file mode 100644 index 0000000..fc9ac66 --- /dev/null +++ b/src/6.2.16/micro/mic_tabs.f90 @@ -0,0 +1,2780 @@ +!############################################################################## +Subroutine haznuc () + +use micphys + +implicit none + +integer :: ithz,irhhz,k +real :: denccn,gnuccn,dnccn,ddccn,rhhz,c1hz,c2hz,c3hz,bhz,dm,sum & + ,dccn,y,dum,thz +real, external :: gammln + +! Haze nucleation table + +!Density of ammonium sulfate (g/cm3) +denccn = 1.769 +!Saleeby(02-21-2007) Shape parameter; Originally = 1. +gnuccn = 2. +!Saleeby(02-21-2007) Originally = .075e-4 (cm) +!Convert median radius (m) to (cm) and to diameter +dnccn = 2. * aero_medrad(1) * 1.e2 +!Bin increment (cm) +ddccn = .005e-4 + +do ithz = 1,nthz + thz = -60. + dthz * float(ithz - 1) + do irhhz = 1,nrhhz + rhhz = 0.82 + drhhz * float(irhhz - 1) + c1hz = (3.14159 * denccn / 6.) ** (-.333333) + c2hz = -14.65 - 1.045 * thz + c3hz = -492.35 - 8.34 * thz - 0.0608 * thz ** 2 + bhz = min(38., max(-38., c2hz + c3hz * (1. - rhhz))) + dm = c1hz * 10 ** (-bhz/6.) + + sum = 0. + dccn = 0. + do k=1,200 + dccn = dccn + ddccn + y=dccn / dnccn + dum=min(50., (dccn / dm) ** 6) + sum = sum + y ** (gnuccn-1.) * exp(-y) * (1. - exp(-dum)) + enddo + frachz(irhhz,ithz) = sum*ddccn/(exp(gammln(gnuccn))*dnccn) + enddo +enddo + +return +END SUBROUTINE haznuc + +!############################################################################## +Subroutine homfrzcl (dtlt,ngr) + +use micphys + +implicit none + +integer :: itc,ngr,k,idnc +real :: ddc,ajlso,dnc,sum,dc,v1,tc,y,dtlt +real, external :: gammln + +! Make table for homogeneous freezing of cloud droplets +! Uses characteristic diameter instead of true diameter + +ddc = 0.5e-6 +!ndnc = 11 | both preset in micphys.h +!ddnc = 2.e-6 | + +do itc = 1,ntc + tc = -50. + dtc * float(itc-1) + y = -(606.3952+tc*(52.6611+tc*(1.7439+tc*(.0265+tc*1.536e-4)))) + ajlso = 1.e6 * 10. ** y + + do idnc = 1,ndnc + dnc = ddnc * float(idnc) + sum = 0. + dc = 0. + do k = 1,2000 + dc = dc + ddc + v1 = 0.523599 * dc ** 3 + sum = sum + (dc / dnc) ** (gnu(1) - 1.) * exp(-dc / dnc) & + * (1. - exp(-ajlso * v1 * dtlt)) + enddo + fracc(idnc,itc,ngr) = sum * ddc / (exp(gammln(gnu(1))) * dnc) + enddo + +enddo + +return +END SUBROUTINE homfrzcl + +!############################################################################## +Subroutine mksedim_tab (m1,ngr,zm,dzt,pcpfillc,pcpfillr,sfcpcp,allpcp,dtsed) + +! As before, sedimentation is not yet designed to transfer hydrometeor mass +! between grids in the case where a nested grid does not reach the top and/or +! bottom of the model domain. Thus, keep vertical nested grid boundaries away +! from where sedimentation occurs. + +use micphys + +implicit none + +integer, parameter :: nbin=50 +integer :: m1,iembs,lcat,lhcat,k,kkf,ibin,kk,jbin,ngr,idensrtgt,iband +integer, dimension(16) :: lcat0 + +real, dimension(16) :: dmbsed + +real :: dmbodn,diam0,diam1,fac1,fac3,sumc,sumr,diam,fac2,fac4 & + ,disp,ztopnew,zbotnew,fallin,delzsfc,dispemb,dispmax,dispmx +real :: dtsed,dispmax0,dispmax1 +real, dimension(m1) :: zm,dzt +real, dimension(m1,maxkfall,nembfall,nhcat,ndensrtgt,nband) :: pcpfillc,pcpfillr +real, dimension(maxkfall,nembfall,nhcat,ndensrtgt,nband) :: sfcpcp +real, dimension(m1,nembfall,nhcat,ndensrtgt,nband) :: allpcp +real, dimension(nbin) :: cbin,rbin,reldisp +real, external :: gammln +real, external :: gammp + +data lcat0 /1,2,3,4,5,6,7,3,3,3,3,4,4,4,4,8/ + +data dmbsed/40.e-6,7.e-3,750.e-6,10.e-3,15.e-3,15.e-3,30.e-3,750.e-6 & + ,750.e-6,750.e-6,750.e-6,10.e-3,10.e-3,10.e-3,10.e-3,150.e-6/ + +! Because timestep may now be variable in time, define sedtime0 and sedtime1 +! here as 0.1 seconds and 3000 seconds. The former is supposed to be +! less than 0.7 of the shortest timestep on any grid (sqrt(dn0i) never exceeds +! 0.7) and the latter is the longest timestep expected to ever be used (300 +! seconds) times a factor of 2 for the maximum inverse of rtgt times a factor +! of 5 for the largest value of sqrt(dn0i). + +sedtime0 = .1 +sedtime1 = 3000. +dispmax0 = 500. + +! Loop over hydrometeor categories + +do lhcat = 1,nhcat + lcat = lcat0(lhcat) + + !Displacement max based on largest size and timestep (Saleeby 8-17-05) + dispmax1 = dtsed * cfvt(lhcat) * dmbsed(lhcat) ** pwvt(lhcat) + dispmax = min(dispmax0,dispmax1) + + dispemb0(lhcat,ngr) = sedtime0 * cfvt(lhcat) & + * (emb0(lcat) / cfmas(lhcat)) ** (pwvt(lhcat) * pwmasi(lhcat)) + + dispemb1(lhcat,ngr) = sedtime1 * cfvt(lhcat) & + * (emb1(lcat) / cfmas(lhcat)) ** (pwvt(lhcat) * pwmasi(lhcat)) + + !Limit dispemb1 to a maximum of dispmax + if (dispemb1(lhcat,ngr) .gt. dispmax) dispemb1(lhcat,ngr) = dispmax + +! Loop over bins, filling them with fractional number, fractional mass, +! and displacement quotient relative to emb. + + dmbodn = (exp(gammln(gnu(lcat)+pwmas(lhcat)) & + -gammln(gnu(lcat))))**pwmasi(lhcat) + diam0 = 0.06 * dmbodn + diam1 = 1.0 * dmbodn + fac1 = gammp(gnu(lcat),diam0) + fac3 = gammp(gnu(lcat) + pwmas(lhcat),diam0) + sumc = 0. + sumr = 0. + + do jbin = 1,nbin + + diam = diam0 * (diam1 / diam0) ** (float(jbin)/float(nbin)) + fac2 = gammp(gnu(lcat),diam) + fac4 = gammp(gnu(lcat) + pwmas(lhcat),diam) + cbin(jbin) = fac2 - fac1 + rbin(jbin) = fac4 - fac3 + fac1 = fac2 + fac3 = fac4 + sumc = sumc + cbin(jbin) + sumr = sumr + rbin(jbin) + reldisp(jbin) = diam ** pwvt(lhcat) + + enddo + + do jbin = 1,nbin + cbin(jbin) = cbin(jbin) / sumc + rbin(jbin) = rbin(jbin) / sumr + enddo + +! Loop over displacement distance for size emb. + + do iembs = 1,nembfall + dispemb = dispemb0(lhcat,ngr) & + * (dispemb1(lhcat,ngr) / dispemb0(lhcat,ngr)) & + ** (float(iembs-1) / float(nembfall-1)) + +! Zero out concentration and mass fill arrays and surface precip array +! before accumulation. + do iband=1,nband + do idensrtgt=1,ndensrtgt + do k = 1,m1 + do kkf = 1,maxkfall + pcpfillc(k,kkf,iembs,lhcat,idensrtgt,iband) = 0. + pcpfillr(k,kkf,iembs,lhcat,idensrtgt,iband) = 0. + enddo + allpcp(k,iembs,lhcat,idensrtgt,iband) = 0. + if (k .le. maxkfall) sfcpcp(k,iembs,lhcat,idensrtgt,iband) = 0. + enddo + enddo + enddo + +! Loop over vertical grid index. + + do k = 2,m1-1 + +!Bob (10/24/00): Limit disp distance to (maxkfall-1) levels + + dispmx = dispmax + if (k .gt. maxkfall) then + dispmx = min(dispmx,zm(k-1) - zm(k-maxkfall)) + endif + +! Loop over bins + + do ibin = 1,nbin + disp = dispemb * reldisp(ibin) + if (disp .gt. dispmx) disp = dispmx + ztopnew = zm(k) - disp + zbotnew = zm(k-1) - disp + +! Loop over grid cells that a parcel falls into. + + do kkf = 1,min(k-1,maxkfall) + + kk = k + 1 - kkf + if (zbotnew .gt. zm(kk)) go to 50 + + if (ztopnew .le. zm(kk-1)) then + fallin = 0. + else + fallin = dzt(kk) * & + (min(zm(kk),ztopnew) - max(zm(kk-1),zbotnew)) + endif + + pcpfillc(k,kkf,iembs,lhcat,1,1) = pcpfillc(k,kkf,iembs,lhcat,1,1) & + + fallin * cbin(ibin) + + pcpfillr(k,kkf,iembs,lhcat,1,1) = pcpfillr(k,kkf,iembs,lhcat,1,1) & + + fallin * rbin(ibin) + + enddo +50 continue + +! Compute precip rate at levels above ground + allpcp(k,iembs,lhcat,1,1) = allpcp(k,iembs,lhcat,1,1) + disp * rbin(ibin) + +! Compute surface precipitation. + if (zbotnew .lt. 0.) then + delzsfc = min(0.,ztopnew) - zbotnew + if (k .le. maxkfall) sfcpcp(k,iembs,lhcat,1,1) & + = sfcpcp(k,iembs,lhcat,1,1) + delzsfc * rbin(ibin) + endif + + enddo + + enddo + enddo +enddo + +return +END SUBROUTINE mksedim_tab + +!############################################################################## +Subroutine mksedim_tab_trubin (m1,zm,dzt,pcpfillc,pcpfillr,sfcpcp,allpcp,dtsed) + +! As before, sedimentation is not yet designed to transfer hydrometeor mass +! between grids in the case where a nested grid does not reach the top and/or +! bottom of the model domain. Thus, keep vertical nested grid boundaries away +! from where sedimentation occurs. + +use micphys + +implicit none + +integer, parameter :: nbin=41 +integer :: m1,iembs,lcat,lhcat,k,kkf,ibin,kk,idensrtgt,iband +integer, dimension(16) :: lcat0 + +real :: dmbodn,fac1,sumc,sumr,fac2 & + ,disp,ztopnew,zbotnew,fallin,delzsfc,dispmax,dispmx,dtsed +real, dimension(m1) :: zm,dzt +real, dimension(m1,maxkfall,nembfall,nhcat,ndensrtgt,nband) :: pcpfillc,pcpfillr +real, dimension(maxkfall,nembfall,nhcat,ndensrtgt,nband) :: sfcpcp +real, dimension(m1,nembfall,nhcat,ndensrtgt,nband) :: allpcp +real, dimension(nbin) :: cbin,rbin,fall +real, dimension(nbin+1) :: diam,massx +real :: tmpa,hemb,meand,dn1,pi,densrtgt +real, external :: gammln +real, external :: gammp + +data lcat0 /1,2,3,4,5,6,7,3,3,3,3,4,4,4,4,8/ +pi=3.141592654 + +! NEED TO COMPLETELY REDO SEDIMENTATION TABLES IF YOU USE VARIABLE TIMESTEP + +! Loop over three size bands for Vt power laws +do iband=1,nband + +! Loop over hydrometeor categories +do lhcat = 1,nhcat + lcat = lcat0(lhcat) + + pwmasi(lhcat) = 1. / pwmas(lhcat) + dmbodn = ( exp(gammln(gnu(lcat) + pwmas(lhcat)) & !ratio of diam assoc w/ mean mass + -gammln(gnu(lcat))) ) ** pwmasi(lhcat) !to char. diam [unitless] + + !Calculating the mass categories (m.k.s) with the lowest diameter + !of 3.125 microns and mass doubling every bin + diam(1)=1.5625 * 2.0 * 1.e-6 + massx(1)=cfmas(lhcat)*diam(1)**pwmas(lhcat) + do ibin=2,nbin+1 + massx(ibin)=2.0*massx(ibin-1) + diam(ibin)=(massx(ibin) / cfmas(lhcat)) ** pwmasi(lhcat) + enddo + +! Loop over displacement distance for size emb. + do iembs = 1,nembfall + sumc = 0. + sumr = 0. + tmpa = emb1(lcat)/emb0(lcat) + hemb = emb0(lcat)*(tmpa**(float(iembs-1)/float(nembfall-1))) + meand = (hemb/cfmas(lhcat))**pwmasi(lhcat) !diam assoc w/ mean mass (NOT MEAN DIAM!) + dn1 = meand/dmbodn !char diam for current mean mass-gnu pair + + !Determine gamma distribution values for size bin + do ibin=1,nbin + cbin(ibin) = 0. + rbin(ibin) = 0. + fac1 = gammp(gnu(lcat),diam(ibin)/dn1) + fac2 = gammp(gnu(lcat),diam(ibin+1)/dn1) + cbin(ibin) = fac2-fac1 + sumc = sumc + cbin(ibin) + fac1 = gammp(gnu(lcat)+3.,(diam(ibin)/dn1)) + fac2 = gammp(gnu(lcat)+3.,(diam(ibin+1)/dn1)) + rbin(ibin) = fac2-fac1 + sumr = sumr + rbin(ibin) + enddo + + !Truncate top and bottom 5% of gamma distribution to prevent + !tails from dominating the sedimentation response + sumc=0.0 + sumr=0.0 + do ibin=1,nbin + if(rbin(ibin)<0.05 .and. cbin(ibin)<0.05) then + cbin(ibin) = 0.0 + rbin(ibin) = 0.0 + endif + sumc = sumc + cbin(ibin) + sumr = sumr + rbin(ibin) + enddo + + !Normalize bin moment values + do ibin=1,nbin + cbin(ibin) = cbin(ibin) / sumc + rbin(ibin) = rbin(ibin) / sumr + enddo + +! Loop over density/rtgt range to get adjusted fall speed 0.8 to 3.65 + + do idensrtgt=1,ndensrtgt + densrtgt = idensrtgt / 10.0 + +! Zero out concentration and mass fill arrays and surface precip array +! before accumulation. + + do k = 1,m1 + do kkf = 1,maxkfall + pcpfillc(k,kkf,iembs,lhcat,idensrtgt,iband) = 0. + pcpfillr(k,kkf,iembs,lhcat,idensrtgt,iband) = 0. + enddo + allpcp(k,iembs,lhcat,idensrtgt,iband) = 0. + if (k .le. maxkfall) sfcpcp(k,iembs,lhcat,idensrtgt,iband) = 0. + enddo + +!Displacement max based on largest size and timestep (Saleeby 8-17-05) + + dispmax=0. + do ibin=1,nbin + !distance fallen in 1 sec + if(iplaws==0 .or. iplaws==1) & + fall(ibin) = cfvt(lhcat) * (diam(ibin)**pwvt(lhcat)) + if(iplaws==2) & + fall(ibin) = bcfvt(iband,lhcat) * (diam(ibin)**bpwvt(iband,lhcat)) + if(lhcat==2) fall(ibin) = min(13.0,fall(ibin)) !limit rain to 13m/s max + if(lhcat==4) fall(ibin) = min( 6.0,fall(ibin)) !limit snow to 6m/s max + if(lhcat==14) fall(ibin) = min( 6.0,fall(ibin)) !limit snow ndl to 6m/s max + if(lhcat==15) fall(ibin) = min( 6.0,fall(ibin)) !limit snow ros to 6m/s max + fall(ibin) = fall(ibin) * densrtgt !adjust for air density and rtgt + if(rbin(ibin)>0.) dispmax = fall(ibin) * dtsed !max timestep displacement + enddo + +! Loop over vertical grid index. + + do k = 2,m1-1 + dispmx = dispmax + if (k .gt. maxkfall) then + dispmx = min(dispmx,zm(k-1) - zm(k-maxkfall)) + endif + +! Loop over bins + + do ibin = 1,nbin + disp = dtsed * fall(ibin) !distance fallen in 1 timestep + if (disp .gt. dispmx) disp = dispmx + ztopnew = zm(k) - disp + zbotnew = zm(k-1) - disp !drops @ z(k) is over layer z(k-1) to z(k) + +! Loop over grid cells that a parcel falls into. + + do kkf = 1,min(k-1,maxkfall) + + kk = k + 1 - kkf + if (zbotnew .gt. zm(kk)) go to 50 + + if (ztopnew .le. zm(kk-1)) then + fallin = 0. + else + fallin = dzt(kk) * & + (min(zm(kk),ztopnew) - max(zm(kk-1),zbotnew)) + endif + + pcpfillc(k,kkf,iembs,lhcat,idensrtgt,iband) = & + pcpfillc(k,kkf,iembs,lhcat,idensrtgt,iband) & + + fallin * cbin(ibin) + + pcpfillr(k,kkf,iembs,lhcat,idensrtgt,iband) = & + pcpfillr(k,kkf,iembs,lhcat,idensrtgt,iband) & + + fallin * rbin(ibin) + + enddo +50 continue + +! Compute precip rate at levels above ground + allpcp(k,iembs,lhcat,idensrtgt,iband) = & + allpcp(k,iembs,lhcat,idensrtgt,iband) & + + disp * rbin(ibin) + +! Compute surface precipitation. + if (zbotnew .lt. 0.) then + delzsfc = min(0.,ztopnew) - zbotnew + if (k .le. maxkfall) sfcpcp(k,iembs,lhcat,idensrtgt,iband) & + = sfcpcp(k,iembs,lhcat,idensrtgt,iband) + delzsfc * rbin(ibin) + endif + + enddo !ibin + enddo !k-index + enddo !idensrtgt + enddo !iembs +enddo !lhcat +enddo !iband + +return +END SUBROUTINE mksedim_tab_trubin + +!############################################################################## +Subroutine tabmelt () + +use micphys + +implicit none + +integer, parameter :: nbins=500 + +integer :: lhcat,lcat,ndns1,ibin,inc,iter,idns +integer, dimension(16) :: lcat0 +real :: dn,gammaa,totfmg,totmass,vtx,fre,totqm,qmgoal,qmnow,totmdqdt,deltat & + ,pliqmass,picemass,critmass,vk + +real, dimension(nbins) :: db,fmg,pmass,binmass,dqdt,q +real, dimension(ncat) :: dmean +real, external :: gammln +data lcat0/1,2,3,4,5,6,7,3,3,3,3,4,4,4,4,8/ +data dmean/20.e-6,500.e-6,30.e-6,500.e-6,500.e-6,500.e-6,8000.e-6,60.e-6/ +data vk/0.2123e-04/ + +do lhcat = 1,nhcat + lcat = lcat0(lhcat) + dn = dmean(lcat) / gnu(lcat) + gammaa = exp(gammln(gnu(lcat))) + + rmlttab(1,lhcat) = 0.0 + rmlttab(ninc,lhcat) = 1.0 + enmlttab(1,lhcat) = 0.0 + enmlttab(ninc,lhcat) = 1.0 + + ndns1 = 1 + if (lcat .eq. 7) ndns1 = ndns + + do idns = 1,ndns1 + shedtab(1,idns) = 0.0 + shedtab(ninc,idns) = 0.0 + + if (ndns1 .gt. 1) dn = 1.e-3 * float(idns) / gnu(lcat) + + totfmg = 0. + totmass = 0. + do ibin = 1,nbins + db(ibin) = 0.02 * dn * (float(ibin) - 0.5) + fmg(ibin) = (db(ibin) / dn) ** (gnu(lcat) - 1.) & + / (dn * gammaa) * exp(-db(ibin) / dn) + totfmg = totfmg + fmg(ibin) + q(ibin) = 0. + pmass(ibin) = cfmas(lhcat) * db(ibin) ** pwmas(lhcat) + binmass(ibin) = pmass(ibin) * fmg(ibin) + totmass = totmass + binmass(ibin) + vtx = cfvt(lhcat) * db(ibin) ** pwvt(lhcat) + fre = (1.0 + 0.229 * sqrt(vtx * db(ibin) / vk)) & + * shape(lhcat) + dqdt(ibin) = db(ibin) ** (1. - pwmas(lhcat)) * fre + enddo + totqm = totmass * 80. + + do inc = 2,ninc-1 + qmgoal = totqm * float(inc-1) / float(ninc-1) + + do iter = 1,2 + qmnow = 0. + totmdqdt = 0. + do ibin = 1,nbins + if(q(ibin) .lt. 79.9999)then + totmdqdt = totmdqdt + binmass(ibin) * dqdt(ibin) + endif + qmnow = qmnow + q(ibin) * binmass(ibin) + enddo + deltat = max(0.,(qmgoal - qmnow) / totmdqdt) + do ibin = 1,nbins + q(ibin) = min(80.,q(ibin) + dqdt(ibin) * deltat) + enddo + enddo + +! For the current inc value (representing total liquid fraction), compute +! melted mixing ratio (rmlttab) and number (enmlttab) from totally-melted +! bins and compute shedded mixing ratio (shedtab) from partially-melted bins. + + if(idns .eq. 7 .or. ndns1 .eq. 1)then + rmlttab(inc,lhcat) = 0.0 + do ibin = 1,nbins + if(q(ibin) .gt. 79.9)then + rmlttab(inc,lhcat) = rmlttab(inc,lhcat) + binmass(ibin) + endif + enddo + rmlttab(inc,lhcat) = rmlttab(inc,lhcat) / totmass + endif + + if(idns .eq. 7 .or. ndns1 .eq. 1)then + enmlttab(inc,lhcat) = 0.0 + do ibin = 1,nbins + if(q(ibin) .gt. 79.9)then + enmlttab(inc,lhcat) = enmlttab(inc,lhcat) & + + fmg(ibin) + endif + enddo + enmlttab(inc,lhcat) = enmlttab(inc,lhcat) / totfmg + endif + + if(lcat .eq. 7)then + shedtab(inc,idns) = 0.0 + do ibin = 1,nbins + if(q(ibin) .le. 79.9)then + pliqmass = pmass(ibin) * q(ibin) / 80. + picemass = pmass(ibin) - pliqmass + critmass = .268e-3 + .1389 * picemass + shedtab(inc,idns) = shedtab(inc,idns) & + + max(0.0, pliqmass - critmass) * fmg(ibin) + endif + enddo + shedtab(inc,idns) = shedtab(inc,idns) / totmass + endif + + enddo + enddo +enddo + +return +END SUBROUTINE tabmelt + +!############################################################################## +Subroutine mkcoltb () + +use micphys +use mem_grid, only:iprntstmt,print_msg + +implicit none + +integer, parameter :: ndx=20 +integer :: ihx,ix,ihy,iy,iemby,iembx,idx +integer, dimension(16) :: ix0,iy0 +real :: gxm,dnminx,dnmaxx,dxlo,dxhi,gyn,gyn1,gyn2,gynp,gynp1,gynp2,gym & + ,dnminy,dnmaxy,dny,vny,dnx,ans +real, external :: gammln +real, external :: xj_col + +real, dimension(ndx) :: dx,fx,gx +data ix0/1,2,3,4,5,6,7,3,3,3,3,4,4,4,4,8/ +data iy0/1,2,3,4,5,6,7,3,3,3,3,4,4,4,4,8/ + +if(iprntstmt>=1 .and. print_msg) & + print*,'Making the 2-Moment Microphysics Collection Tables' + +do ihx = 1,nhcat + + ix = ix0(ihx) + + gxm = exp(gammln(gnu(ix))-gammln(gnu(ix) + pwmas(ihx))) + dnminx = ((emb0(ix) / cfmas(ihx)) * gxm) ** (1. / pwmas(ihx)) + dnmaxx = ((emb1(ix) / cfmas(ihx)) * gxm) ** (1. / pwmas(ihx)) + dxlo = .01 * dnminx + dxhi = 10. * dnmaxx + +do ihy = 1,nhcat + + !print*, 'ihx,ihy,ipairc,ipairr',ihx,ihy,ipairc(ihx,ihy) & + ! ,ipairr(ihx,ihy) + + iy = iy0(ihy) + + if (ipairc(ihx,ihy) .gt. 0 .or. ipairr(ihx,ihy) .gt. 0) then + gyn = exp(gammln(gnu(iy))) + gyn1 = exp(gammln(gnu(iy) + 1.)) / gyn + gyn2 = exp(gammln(gnu(iy) + 2.)) / gyn + gynp = exp(gammln(gnu(iy) + pwvt(ihy))) / gyn + gynp1 = exp(gammln(gnu(iy) + pwvt(ihy) + 1.)) / gyn + gynp2 = exp(gammln(gnu(iy) + pwvt(ihy) + 2.)) / gyn + + gym = exp(gammln(gnu(iy))-gammln(gnu(iy) + pwmas(ihy))) + dnminy = ((emb0(iy) / cfmas(ihy)) * gym) ** (1. /pwmas(ihy)) + dnmaxy = ((emb1(iy) / cfmas(ihy)) * gym) ** (1. /pwmas(ihy)) + + do iemby = 1,nembc + dny = dnminy * (dnmaxy / dnminy) ** (float(iemby-1) & + / float(nembc-1)) + vny = cfvt(ihy) * dny ** pwvt(ihy) + do iembx = 1,nembc + + dnx = dnminx * (dnmaxx / dnminx) ** (float(iembx-1) & + / float(nembc-1)) + do idx = 1,ndx + dx(idx) = dxlo * (dxhi / dxlo) & + ** (float(idx-1) / float(ndx-1)) + fx(idx) = xj_col(dx(idx),cfvt(ihx),pwvt(ihx),cfvt(ihy) & + ,pwvt(ihy),vny,dnx,dny,gnu(ix),gnu(iy) & + ,gyn1,gyn2,gynp,gynp1,gynp2) + gx(idx) = fx(idx) * cfmas(ihx) & + * dx(idx) ** pwmas(ihx) + + enddo + if (ipairc(ihx,ihy) .gt. 0) then + CALL avint (dx,fx,ndx,dxlo,dxhi,ans) + coltabc(iembx,iemby,ipairc(ihx,ihy))= & + -log10(max(1.e-30,ans)) + endif + if (ipairr(ihx,ihy) .gt. 0) then + CALL avint (dx,gx,ndx,dxlo,dxhi,ans) + coltabr(iembx,iemby,ipairr(ihx,ihy))= & + -log10(max(1.e-30,ans)) + endif + enddo + enddo + endif +enddo +enddo + +return +END SUBROUTINE mkcoltb + +!############################################################################## +real Function xj_col (dx,cvx,pvx,cvy,pvy,vny,dnx,dny,xnu,ynu & + ,gyn1,gyn2,gynp,gynp1,gynp2) + +implicit none + +real :: dx,cvx,pvx,cvy,pvy,vny,dnx,dny,xnu,ynu,gyn1,gyn2,gynp,gynp1,gynp2 & + ,dnxi,rdx,vx,dxy,ynup +real, external :: gammln +real, external :: gammp +real, external :: gammq + +dnxi = 1. / dnx +rdx = dx * dnxi +vx = cvx * dx ** pvx +dxy = (vx / cvy) ** (1. / pvy) / dny +ynup = ynu + pvy + +if (rdx .lt. 38.) then + xj_col = exp(-rdx-gammln(xnu)-gammln(ynu))*rdx**(xnu-1.)*dnxi*( & + vx*(dx*dx*(gammp(ynu,dxy)-gammq(ynu,dxy)) & + +2.*dx*dny*gyn1*(gammp(ynu+1.,dxy)-gammq(ynu+1.,dxy)) & + +dny*dny*gyn2*(gammp(ynu+2.,dxy)-gammq(ynu+2.,dxy))) & + -vny*(dx*dx*gynp*(gammp(ynup,dxy)-gammq(ynup,dxy)) & + +2.*dx*dny*gynp1*(gammp(ynup+1.,dxy)-gammq(ynup+1.,dxy)) & + +dny*dny*gynp2*(gammp(ynup+2.,dxy)-gammq(ynup+2.,dxy)))) +else + xj_col = 0. +endif + +return +END FUNCTION xj_col + +!############################################################################## +Subroutine make_autotab () + +use micphys + +implicit none + +integer, parameter :: ithresh=14,ithresh1=17,ibins=36,icutoff=15 +integer :: i,k,idcc,id1cd,id2cd,idccr,irrcr,idrcr,lcat,cld,maxcld +real :: r1,r2,r3,ri,en1,en2,en3,enice,en1i,en1i2,d1,d2,d3,di & + ,sum1,sum10,sun1,sun10,sum2,sum20,sun2,sun20,sum3,sum30,sun3,sun30 +real :: collectormass + +real, dimension(ibins+1) :: x,diam,xcs,diamcs,xca,diamca,xcg,diamcg,xch,diamch +real, dimension(ibins+1,4) :: xi,diami +real, dimension(ibins) :: ank0,amk0,ank,amk,ank1,amk1,ank2,amk2,ank3,amk3 +real, dimension(ibins,ibins,6) :: akbarx +real, dimension(ibins,ibins,4) :: akbarci,akbarxci +real, dimension(ibins,ibins) :: akbar,akbarcs,akbarca,akbarcg,akbarch + +! This routine works in cgs units. +! read in mass grid x(k+1)=2*x(k), diameters (diam) and collection kernel kbar +! GNF: kernels for ice with cloud? + +CALL data (x,diam,akbar,ibins) +CALL data_cs (xcs,diamcs,akbarcs,ibins,cfmas(4),pwmas(4)) +CALL data_ca (xca,diamca,akbarca,ibins,cfmas(5),pwmas(5)) +CALL data_cg (xcg,diamcg,akbarcg,ibins,cfmas(6),pwmas(6)) +CALL data_ch (xch,diamch,akbarch,ibins,cfmas(7),pwmas(7)) + +CALL azero (ibins*ibins*6,akbarx) +CALL azero (ibins*ibins*4,akbarci) +CALL azero (ibins*ibins*4,akbarxci) + +do i=1,ibins+1 + xi(i,1)=xcs(i) + xi(i,2)=xca(i) + xi(i,3)=xcg(i) + xi(i,4)=xch(i) + diami(i,1)=diamcs(i) + diami(i,2)=diamca(i) + diami(i,3)=diamcg(i) + diami(i,4)=diamch(i) +enddo +do i=1,ibins + do k=1,ibins + akbarci(i,k,1)=akbarcs(i,k) + akbarci(i,k,2)=akbarca(i,k) + akbarci(i,k,3)=akbarcg(i,k) + akbarci(i,k,4)=akbarch(i,k) + enddo +enddo + +!Break up kernel in 6 different segments for cloud,drizzle,rain +do i=1,ibins + do k=1,ibins + !For CLOUD-CLOUD collection for 1 and 2 mode options + if(i < ithresh .and. k < ithresh .and. jnmb(8).gt.0) & + akbarx(i,k,1) = akbar(i,k) + if(i <= icutoff .and. k <= icutoff .and. jnmb(8).eq.0) & + akbarx(i,k,1) = akbar(i,k) + + !For RAIN-CLOUD collection + if(i > ithresh1 .and. k < ithresh .and. jnmb(8).gt.0) & + akbarx(i,k,3) = akbar(i,k) + if(i > icutoff .and. k <= icutoff .and. jnmb(8).eq.0) & + akbarx(i,k,3) = akbar(i,k) + + if(jnmb(8).gt.0) then !Dual-cloud mode option only + !For DRIZZLE-CLOUD collection + if(i >= ithresh .and. i <= ithresh1 .and. k < ithresh) & + akbarx(i,k,2) = akbar(i,k) + + !For DRIZZLE-DRIZZLE collection + if(i<=ithresh1 .and. i>=ithresh .and. k<=ithresh1 .and. k>=ithresh) & + akbarx(i,k,5) = akbar(i,k) + + !For RAIN-DRIZZLEcollection + if(i > ithresh1 .and. k <= ithresh1 .and. k >= ithresh) & + akbarx(i,k,4) = akbar(i,k) + endif + + !For RAIN-RAIN collection (not currently used) + !if(i > ithresh1 .and. k > ithresh1) & + ! akbarx(i,k,6) = akbar(i,k) + enddo +enddo + +!Break up kernel in 2 different segments for c1,c2,ice species +do lcat=4,7 + do i=1,ibins + do k=1,ibins + if(i > icutoff .and. k <= icutoff) & + akbarxci(i,k,lcat-3) = akbarci(i,k,lcat-3) + enddo + enddo +enddo + +!(d1min and d1max are equivalent to dmb0 and dmb1, but may have diff values) +!Diameters in cm (4.e-4 cm = 4 microns) +!Mixing ratios in g/cm3 (.01e-6g/cm3 = .01e-3kg/kg = .01 g/kg for dn0=1) +d1min = 4.e-4 +if(jnmb(8).eq.0) d1max = 40.e-4 +if(jnmb(8).gt.0) d1max = 35.e-4 +d2min = 65.e-4 +d2max = 100.e-4 +d3min = 2.e-2 +d3max = 1. +r3min = .01e-6 +r3max = 20.e-6 +!For ICE SPECIES: SNOW, AGGREGATES, GRAUPEL, AND HAIL +dimin = 2.e-2 +dimax = 1. +rimin = .01e-6 +rimax = 20.e-6 + +d1ecr = log10 (d1max / d1min) / float(ndccr-1) +d2ecr = log10 (d2max / d2min) / float(ndccr-1) +r3ecr = log10 (r3max / r3min) / float(nrrcr-1) +r3err = log10 (r3max / r3min) / float(nrrr-1) +!For SNOW, AGGREGATES, GRAUPEL, AND HAIL +rieci = log10 (rimax / rimin) / float(nrrcr-1) + +en1 = 100. +en2 = 1. +en3 = 1.e-6 +!For SNOW, AGGREGATES, GRAUPEL, AND HAIL +enice = 1.e-6 + +en1i = 1. / en1 +en1i2 = en1i ** 2. + +!************************************************************************** +!**************************** CLOUD-CLOUD ********************************* +!************************************************************************** +! Start 1 cc loop for r(1) and c(1,2) [r1 approx = (-r2)] +d2 = 65.e-4 +r2 = en2 * .5236 * d2 ** 3 +r3 = .01e-6 + +do idcc = 1,ndcc + d1 = d1min + (d1max - d1min) * float(idcc-1) / float(ndcc-1) + r1 = en1 * .5236 * d1 ** 3 + + if(jnmb(8).gt.0) then + CALL initg2mode (r1,r2,r3,en1,en2,en3,gnu(1),gnu(8),gnu(2),diam & + ,amk0,ank0,ank1,amk1,ank2,amk2,ank3,amk3,ithresh,ithresh1,ibins) + CALL sumn (ank0,amk0,1,ithresh-1,ibins,sun10,sum10) + CALL sumn (ank0,amk0,ithresh,ithresh1,ibins,sun20,sum20) + CALL sxy (x,amk0,ank0,amk,ank,akbarx(1,1,1)) + CALL sumn (ank,amk,1,ithresh-1,ibins,sun1,sum1) + CALL sumn (ank,amk,ithresh,ithresh1,ibins,sun2,sum2) + endif + if(jnmb(8).eq.0) then + CALL initg1mode (r1,r3,en1,en3,gnu(1),gnu(2),diam & + ,amk0,ank0,ank1,amk1,ank3,amk3,icutoff,ibins,2) + CALL sumn (ank0,amk0,1,icutoff,ibins,sun10,sum10) + CALL sumn (ank0,amk0,icutoff+1,ibins,ibins,sun20,sum20) + CALL sxy (x,amk0,ank0,amk,ank,akbarx(1,1,1)) + CALL sumn (ank,amk,1,icutoff,ibins,sun1,sum1) + CALL sumn (ank,amk,icutoff+1,ibins,ibins,sun2,sum2) + endif + + r1tabcc(idcc) = max(0.,max((sum10-sum1)*en1i2,(sum2-sum20)*en1i2)) + c1tabcc(idcc) = max(0.,(sun10-sun1)*en1i2) + c2tabcc(idcc) = max(0.,(sun2-sun20)*en1i2) + if(r1tabcc(idcc)==0.0 .or. c1tabcc(idcc)==0.0 .or. c2tabcc(idcc)==0.0) then + r1tabcc(idcc) = 0. + c1tabcc(idcc) = 0. + c2tabcc(idcc) = 0. + endif + +! write(*,'(a2,2X,f7.1,2X,i2,2X,e10.3,2X,e10.3,2X,e10.3)') & +! 'CC',d1*10000,idcc,r1tabcc(idcc),c1tabcc(idcc),c2tabcc(idcc) +enddo + +!************************************************************************** +!**************************** RAIN-CLOUD ********************************** +!************************************************************************** +! Start 3 cr loops for r(1) c(1,3) [r1 approx = (-r3)] +d2 = 65.e-4 +r2 = en2 * .5236 * d2 ** 3 + +do idccr = 1,ndccr + d1 = d1min * 10. ** (d1ecr * float(idccr-1)) + r1 = en1 * .5236 * d1 ** 3 + + do irrcr = 1,nrrcr + r3 = r3min * 10. ** (r3ecr * float(irrcr-1)) + d3minx = max(d3min,(r3 / (.1 * .5236)) ** .333333) + d3ecr = alog10(d3max / d3minx) / float(ndrcr-1) + + do idrcr = 1,ndrcr + d3 = d3minx * 10. ** (d3ecr * float(idrcr-1)) + en3 = r3 / (.5236 * d3 ** 3) + + if(jnmb(8).gt.0) then + CALL initg2mode (r1,r2,r3,en1,en2,en3,gnu(1),gnu(8),gnu(2),diam & + ,amk0,ank0,ank1,amk1,ank2,amk2,ank3,amk3,ithresh,ithresh1,ibins) + CALL sumn (ank0,amk0,1,ithresh-1,ibins,sun10,sum10) + CALL sxy (x,amk0,ank0,amk,ank,akbarx(1,1,3)) + CALL sumn (ank,amk,1,ithresh-1,ibins,sun1,sum1) + endif + if(jnmb(8).eq.0) then + CALL initg1mode (r1,r3,en1,en3,gnu(1),gnu(2),diam & + ,amk0,ank0,ank1,amk1,ank3,amk3,icutoff,ibins,2) + CALL sumn (ank0,amk0,1,icutoff,ibins,sun10,sum10) + CALL sxy (x,amk0,ank0,amk,ank,akbarx(1,1,3)) + CALL sumn (ank,amk,1,icutoff,ibins,sun1,sum1) + endif + + r1tabcr(idccr,irrcr,idrcr) = alog10(max(1.e-20,(sum10-sum1)*en1i)) + c1tabcr(idccr,irrcr,idrcr) = alog10(max(1.e-20,(sun10-sun1)*en1i)) + +! write(*,'(a2,2X,i2,2X,i2,2X,i2,2X,f7.1,2X,f10.2,2X,f10.2)') & +! 'CR',idccr,irrcr,idrcr,d1*10000,r1tabcr(idccr,irrcr,idrcr) & +! ,c1tabcr(idccr,irrcr,idrcr) + enddo + enddo +enddo + +if(jnmb(8).gt.0) then +!************************************************************************** +!*************************** DRIZZLE-CLOUD ******************************** +!************************************************************************** +r3 = .01e-6 + +do id1cd = 1,ndcd + d1 = d1min + (d1max - d1min) * float(id1cd-1) / float(ndcd-1) + r1 = en1 * .5236 * d1 ** 3 + + do id2cd = 1,ndcd + d2 = d2min + (d2max - d2min) * float(id2cd-1) / float(ndcd-1) + r2 = en2 * .5236 * d2 ** 3 + + CALL initg2mode (r1,r2,r3,en1,en2,en3,gnu(1),gnu(8),gnu(2),diam & + ,amk0,ank0,ank1,amk1,ank2,amk2,ank3,amk3,ithresh,ithresh1,ibins) + CALL sumn (ank0,amk0,1,ithresh-1,ibins,sun10,sum10) + CALL sumn (ank0,amk0,ithresh,ithresh1,ibins,sun20,sum20) + CALL sumn (ank0,amk0,ithresh1+1,ibins,ibins,sun30,sum30) + CALL sxy (x,amk0,ank0,amk,ank,akbarx(1,1,2)) + CALL sumn (ank,amk,1,ithresh-1,ibins,sun1,sum1) + CALL sumn (ank,amk,ithresh,ithresh1,ibins,sun2,sum2) + CALL sumn (ank,amk,ithresh1+1,ibins,ibins,sun3,sum3) + + r1tabcd(id1cd,id2cd) = (sum10-sum1)*en1i + c1tabcd(id1cd,id2cd) = (sun10-sun1)*en1i + r2tabcd(id1cd,id2cd) = (sum20-sum2)*en1i + c2tabcd(id1cd,id2cd) = (sun20-sun2)*en1i + +! write(*,'(a3,2X,i2,2X,i2,2X,f6.1,2X,f6.1,6(2X,e10.3))') & +! ,'CD',id1cd,id2cd,d1*10000,d2*10000 & +! ,r1tabcd(id1cd,id2cd),r2tabcd(id1cd,id2cd),(sum30-sum3)*en1i & +! ,c1tabcd(id1cd,id2cd),c2tabcd(id1cd,id2cd),(sun30-sun3)*en1i + enddo +enddo + +!************************************************************************** +!**************************** RAIN-DRIZZLE ******************************** +!************************************************************************** +! Start 3 dr loops for r(2) c(2,3) [r2 approx = (-r3)] +d1 = 4.e-4 +r1 = en1 * .5236 * d1 ** 3 + +do idccr = 1,ndccr + d2 = d2min * 10. ** (d2ecr * float(idccr-1)) + r2 = en2 * .5236 * d2 ** 3 + + do irrcr = 1,nrrcr + r3 = r3min * 10. ** (r3ecr * float(irrcr-1)) + d3minx = max(d3min,(r3 / (.1 * .5236)) ** .333333) + d3ecr = alog10(d3max / d3minx) / float(ndrcr-1) + + do idrcr = 1,ndrcr + d3 = d3minx * 10. ** (d3ecr * float(idrcr-1)) + en3 = r3 / (.5236 * d3 ** 3) + + CALL initg2mode (r1,r2,r3,en1,en2,en3,gnu(1),gnu(8),gnu(2),diam & + ,amk0,ank0,ank1,amk1,ank2,amk2,ank3,amk3,ithresh,ithresh1,ibins) + CALL sumn (ank0,amk0,ithresh,ithresh1,ibins,sun20,sum20) + CALL sxy (x,amk0,ank0,amk,ank,akbarx(1,1,4)) + CALL sumn (ank,amk,ithresh,ithresh1,ibins,sun2,sum2) + + r2tabcr(idccr,irrcr,idrcr) = alog10(max(1.e-20,sum20-sum2)) + c2tabcr(idccr,irrcr,idrcr) = alog10(max(1.e-20,sun20-sun2)) + +! write(*,'(a3,2X,i2,2X,i2,2X,i2,2X,f10.2,2X,f10.2)') & +! ,'DR',idccr,irrcr,idrcr,r2tabcr(idccr,irrcr,idrcr) & +! ,c2tabcr(idccr,irrcr,idrcr) + enddo + enddo +enddo + +!************************************************************************** +!**************************** DRIZZLE-DRIZZLE ***************************** +!************************************************************************** +! Start 1 dd loop for r(2) and c(2,3) [r2=(-r3)] +d1 = 4.e-4 +r1 = en1 * .5236 * d1 ** 3 +r3 = .01e-6 + +do idcc = 1,ndcc + d2 = d2min + (d2max - d2min) * float(idcc-1) / float(ndcc-1) + r2 = en2 * .5236 * d2 ** 3 + + CALL initg2mode (r1,r2,r3,en1,en2,en3,gnu(1),gnu(8),gnu(2),diam & + ,amk0,ank0,ank1,amk1,ank2,amk2,ank3,amk3,ithresh,ithresh1,ibins) + CALL sumn (ank0,amk0,ithresh,ithresh1,ibins,sun20,sum20) + CALL sumn (ank0,amk0,ithresh1+1,ibins,ibins,sun30,sum30) + CALL sxy (x,amk0,ank0,amk,ank,akbarx(1,1,5)) + CALL sumn (ank,amk,ithresh,ithresh1,ibins,sun2,sum2) + CALL sumn (ank,amk,ithresh1+1,ibins,ibins,sun3,sum3) + + r2tabdd(idcc) = max(0.,sum20-sum2) + c2tabdd(idcc) = max(0.,sun20-sun2) + c3tabdd(idcc) = max(0.,sun3-sun30) + +! write(*,'(a4,2X,f7.1,2X,i2,4(2X,e10.3))') ,'DD',d2*10000,idcc & +! ,r2tabdd(idcc),sum30-sum3,c2tabdd(idcc),c3tabdd(idcc) +enddo + +endif !IF CLOUD2 turned on + +!************************************************************************* +!*********************** CLOUD1/CLOUD2 ICE SPECIES *********************** +!************************************************************************* +maxcld=1 +if(jnmb(8).gt.0) maxcld=2 + +do cld=1,maxcld +do lcat=4,7 + +do idccr = 1,ndccr + if(cld==1)then + d1 = d1min * 10. ** (d1ecr * float(idccr-1)) + r1 = en1 * .5236 * d1 ** 3 + elseif(cld==2)then + d2 = d2min * 10. ** (d2ecr * float(idccr-1)) + r2 = en2 * .5236 * d2 ** 3 + endif + + do irrcr = 1,nrrcr + ri = rimin * 10. ** (rieci * float(irrcr-1)) + !Convert ri (g to kg) & switch diminx (m to cm) after + !Multiply by 200 instead of 100 to bump up the min diameter + diminx=max(dimin,((ri/1000./cfmas(lcat))**(1./pwmas(lcat)))*200.) + dieci = alog10(dimax / diminx) / float(ndrcr-1) + + do idrcr = 1,ndrcr + di = diminx * 10. ** (dieci * float(idrcr-1)) + !Here ri has units of (g/cm3) + enice = ri / (1000. * cfmas(lcat) * (di/100.) ** pwmas(lcat)) + + if(cld==1) then + CALL initg1mode (r1,ri,en1,enice,gnu(1),gnu(lcat) & + ,diami(1,lcat-3),amk0,ank0,ank1,amk1 & + ,ank3,amk3,icutoff,ibins,lcat) + CALL sxyice (amk1,ank1,amk3,ank3,akbarxci(1,1,lcat-3),sum1 & + ,collectormass,sun1) + endif + if(cld==2) then + CALL initg1mode (r2,ri,en2,enice,gnu(8),gnu(lcat) & + ,diami(1,lcat-3),amk0,ank0,ank2,amk2 & + ,ank3,amk3,ithresh1,ibins,lcat) + CALL sxyice (amk2,ank2,amk3,ank3,akbarxci(1,1,lcat-3) & + ,sum1,collectormass,sun1) + endif + + if(cld==1)then + r1tabci(idccr,irrcr,idrcr,lcat-3) = alog10(max(1.e-20,sum1*en1i)) + c1tabci(idccr,irrcr,idrcr,lcat-3) = alog10(max(1.e-20,sun1*en1i)) + r1rimer(idccr,irrcr,idrcr,lcat-3) = alog10(max(1.e-20,collectormass*en1i)) +! write(*,'(a2,2X,a5,i2,3(2X,a6,i2),3(2X,f10.2))') & +! 'CI','lcat=',lcat,'idccr=',idccr,'irrcr=',irrcr,'idrcr=',idrcr & +! ,r1tabci(idccr,irrcr,idrcr,lcat-3) & +! ,c1tabci(idccr,irrcr,idrcr,lcat-3),r1rimer(idccr,irrcr,idrcr,lcat-3) + endif + + if(cld==2)then + r2tabci(idccr,irrcr,idrcr,lcat-3) = alog10(max(1.e-20,sum1)) + c2tabci(idccr,irrcr,idrcr,lcat-3) = alog10(max(1.e-20,sun1)) + r2rimer(idccr,irrcr,idrcr,lcat-3) = alog10(max(1.e-20,collectormass)) +! write(*,'(a3,2X,a5,i2,3(2X,a6,i2),3(2X,f10.2))') & +! 'DI','lcat=',lcat,'idccr=',idccr,'irrcr=',irrcr,'idrcr=',idrcr & +! ,r2tabci(idccr,irrcr,idrcr,lcat-3) & +! ,c2tabci(idccr,irrcr,idrcr,lcat-3),r2rimer(idccr,irrcr,idrcr,lcat-3) + endif + + enddo + enddo +enddo + +enddo !for looping lcat=4,7 +enddo !for looping maxcld=1,2 + +return +END SUBROUTINE make_autotab + +!############################################################################## +Subroutine sxy (x,amkd,ankd,amk,ank,akbar) + +implicit none + +integer, parameter :: ibins=36 +integer :: i,ik,k,l +real, dimension(ibins+1) :: x +real, dimension(ibins,ibins) :: akbar +real, dimension(ibins) :: xave,ankd,ank,amkd,amk,am2,am3,am4,psi,f +real :: ap,pi,dm,dn,sm1,sm2,sm3,sm4,sm5,sn1,sn2,sn3,sn4,dm4,dm2 + +data ap/1.062500000/ +data pi/3.141592654/ + +do l=1,ibins + if(ankd(l).gt.0)then + xave(l)=amkd(l)/ankd(l) + else + xave(l)=0. + amkd(l)=0. !If bin number is zero, make sure mass is zero. + endif +enddo + +!LOOP THRU ALL 36 BINS OF TRIANGULAR MATRIX +do k=1,ibins + +! calculation of the 2nd, 3rd, and 4th moments of the mass distribution +! based on equation 8 in reference. + + am2(k)=ap*xave(k)*amkd(k) + am3(k)=ap*ap*xave(k)*am2(k) + am4(k)=ap*ap*ap*xave(k)*am3(k) + +! these come out of the linear approximations used to integrate +! over partial bins. they are defined: +! psi(k) = nk(k+1) +! f(k) = nk(k) +! where nk is the distribution func. see equation 13 in reference. + + psi(k)=2./x(k)*(amkd(k)/x(k)-ankd(k)) + f(k)=2./x(k)*(2.*ankd(k)-amkd(k)/x(k)) + !print*,'psi1',k,psi(k),f(k),amkd(k),ankd(k) + +! zeroing the tendencies on the moments. + + sm1=0. + sm2=0. + sm3=0. + sm4=0. + sm5=0. + sn1=0. + sn2=0. + sn3=0. + sn4=0. + +! calculation of tendencies on moments + + !Sum tendencies from current k bin with all larger bins. + !This is a LOSS of mass and number from bin k. + do i=k,ibins + dm=akbar(i,k)*(am2(k)*ankd(i)+amkd(k)*amkd(i)) + dn=akbar(i,k)*(ankd(k)*amkd(i)+amkd(k)*ankd(i)) + sm5=sm5+dm + sn4=sn4+dn + enddo + + !Get self-collection tendencies for same bin interactions k-1. + !This is a gain of mass and number for bin k + if(k.gt.1)then + sm3=akbar(k-1,k-1)*(am2(k-1)*ankd(k-1)+amkd(k-1)**2) + sn2=akbar(k-1,k-1)*ankd(k-1)*amkd(k-1) + dn=sn2 + dm=sm3 + endif + + !Sum contributions of mass and number to current bin K due + !to interactions between bin k and all previous bins up to k-1. + do i=1,k-1 + !Source of mass to add to current bin k. + dm4=akbar(k,i)*(ankd(k)*am2(i)+amkd(k)*amkd(i)) + sm4=sm4+dm4 + !If the average starting mass in bin k is greater than bin-center + !mass then compute amount of mass and number to REMOVE from the bin + !due to interactions between bin k and all previous bins up to k-1. + if(xave(k).ge.x(k))then + dm2=akbar(k,i)*(4.*x(k)**2*psi(k)*amkd(i) & + +0.5*x(k)*(4.*psi(k)+f(k))*am2(i) & + -(psi(k)-f(k))*am3(i) & + -0.5/(x(k))*(psi(k)-f(k))*am4(i)) + sm2=sm2+dm2 + dn=akbar(k,i)*(2.*x(k)*psi(k)*amkd(i) & + +0.5*f(k)*am2(i) & + -0.5/(x(k))*(psi(k)-f(k))*am3(i)) + sn3=sn3+dn + endif + enddo + + !Sum contributions of mass and number to current bin k due + !to interactions between bin k-1 and all previous bins up to k-2. + do i=1,k-2 + ik=k-1 + !Compute this mass and number to ADD to bin k if the average starting + !mass in bin k-1 is greater than bin-center mass of k-1. Otherwise, + !mass can just be added to k-1 without crossing over to the larger + !mass in k + if(xave(ik).ge.x(ik))then + dm=akbar(ik,i)*(4.*x(ik)**2*psi(ik)*amkd(i) & + +x(ik)/2.*(4.*psi(ik)+f(ik))*am2(i) & + -(psi(ik)-f(ik))*am3(i) & + -0.5/(x(ik))*(psi(ik)-f(ik))*am4(i)) + sm1=sm1+dm + dn=akbar(ik,i)*(2.*x(ik)*psi(ik)*amkd(i) & + +0.5*f(ik)*am2(i) & + -0.5/(x(ik))*(psi(ik)-f(ik))*am3(i)) + sn1=sn1+dn + endif + enddo + + amk(k)=amkd(k)+sm1-sm2+sm3+sm4-sm5 + ank(k)=ankd(k)+sn1+sn2-sn3-sn4 + +enddo + +return +END SUBROUTINE sxy + +!############################################################################## +Subroutine sxyice (amkdw,ankdw,amkdi,ankdi,akbar,smw,smi,sn) + +implicit none + +integer, parameter :: ibins=36 +integer :: i,ik,k,l +real, dimension(ibins,ibins) :: akbar +real, dimension(ibins) :: xavew,xavei,ankdw,ankdi,amkdw,amkdi & +,am2w,am2i +real :: ap,pi,dmw,dmi,dn,smw,smi,sn + +data ap/1.062500000/ +data pi/3.141592654/ + +do l=1,ibins + !Water spectrum + if(ankdw(l).gt.0)then + xavew(l)=amkdw(l)/ankdw(l) + else + xavew(l)=0. + amkdw(l)=0. !If bin number is zero, make sure mass is zero. + endif + !Ice spectrum + if(ankdi(l).gt.0)then + xavei(l)=amkdi(l)/ankdi(l) + else + xavei(l)=0. + amkdi(l)=0. !If bin number is zero, make sure mass is zero. + endif +enddo + +! zeroing the tendencies on the moments. + smw=0. + smi=0. + sn=0. + +!LOOP THRU ALL 36 BINS OF TRIANGULAR MATRIX +do k=1,ibins !ice bins + +! calculation of tendencies on moments + + !Sum tendencies from current k bin with all bins. + do i=1,ibins !water bins + dn=akbar(k,i)*(ankdi(k)*amkdw(i)+amkdi(k)*ankdw(i)) + + !Assumption is that dn is the same for water and ice + dmw=dn*xavew(i) + dmi=dn*xavei(k) + + sn=sn+dn !Number of drops participating in collection + smw=smw+dmw !Water participating in collection + smi=smi+dmi !Ice participating in collection + enddo +enddo + +return +END SUBROUTINE sxyice + +!############################################################################## +Subroutine data (x,diam,akbar,ibins) + +implicit none + +integer :: l,i,j,ibins,n,kernel +real :: pi +real, dimension(ibins+1) :: x,diam +real, dimension(ibins,ibins) :: akbar +real, dimension(36,36) :: aabar,ahbar + +kernel=1 + +if(kernel==1) then !Long's collection kernel +data (aabar( 1,n),n=1, 1) /-.47757E-01 / +data (aabar( 2,n),n=1, 2) /-.26460E+00,-.47965E-01 / +data (aabar( 3,n),n=1, 3) /-.82258E+00,-.26760E+00,-.20453E-01 / +data (aabar( 4,n),n=1, 4) /-.19050E+01,-.82072E+00,-.11992E+00, .78909E-01 / +data (aabar( 5,n),n=1, 5) /-.39171E+01,-.18915E+01,-.33270E+00, .41936E+00 & + ,.34801E+00 / +data (aabar( 6,n),n=1, 6) /-.76415E+01,-.38808E+01,-.73737E+00, .14121E+01 & + ,.18851E+01,.99793E+00 / +data (aabar( 7,n),n=1, 7) /-.14595E+02,-.75638E+01,-.14861E+01, .33598E+01 & + ,.61219E+01, .54314E+01, .24751E+01 / +data (aabar( 8,n),n=1, 8) /-.27720E+02,-.14442E+02,-.28741E+01, .69895E+01 & + ,.14394E+02, .17479E+02, .13500E+02, .57110E+01 / +data (aabar( 9,n),n=1, 9) /-.52737E+02,-.27428E+02,-.54729E+01, .13703E+02 & + ,.29792E+02, .40971E+02, .43267E+02, .31185E+02, .12630E+02 / +data (aabar(10,n),n=1,10) /-.10083E+03,-.52188E+02,-.10391E+02, .26218E+02 & + ,.58283E+02, .84686E+02, .10128E+03, .99726E+02, .69014E+02, .27176E+02 / +data (aabar(11,n),n=1,11) /-.19396E+03,-.99799E+02,-.19790E+02, .49801E+02 & + ,.11143E+03, .16558E+03, .20922E+03, .23326E+03, .22039E+03, .14858E+03 & + ,.57396E+02 / +data (aabar(12,n),n=1,12) /-.37536E+03,-.19200E+03,-.37896E+02, .94692E+02 & + ,.21165E+03, .31650E+03, .40896E+03, .48169E+03, .51524E+03, .47402E+03 & + ,.31389E+03, .11962E+03 / +data (aabar(13,n),n=1,13) /-.73047E+03,-.37164E+03,-.73015E+02, .18089E+03 & + ,.40253E+03, .60115E+03, .78166E+03, .94143E+03, .10638E+04, .11078E+04 & + ,.10008E+04, .65436E+03, .24691E+03 / +data (aabar(14,n),n=1,14) /-.14285E+04,-.72333E+03,-.14152E+03, .34764E+03 & + ,.76925E+03, .11434E+04, .14846E+04, .17993E+04, .20789E+04, .22870E+04 & + ,.23385E+04, .20854E+04, .13509E+04, .50600E+03 / +data (aabar(15,n),n=1,15) /-.41365E+04,-.20869E+04,-.40697E+03, .99310E+03 & + ,.21878E+04, .32394E+04, .41995E+04, .51084E+04, .59888E+04, .68297E+04 & + ,.75528E+04, .79583E+04, .76785E+04, .62489E+04, .76776E+03 / +data (aabar(16,n),n=1,16) / .63760E+04, .64739E+04, .65970E+04, .67516E+04 & + ,.69451E+04, .71861E+04, .74835E+04, .78448E+04, .82709E+04, .87453E+04 & + ,.92111E+04, .95276E+04, .94079E+04, .83797E+04, .26045E+04, .89777E+03 / +data (aabar(17,n),n=1,17) / .62974E+04, .63746E+04, .64717E+04, .65934E+04 & + ,.67457E+04, .69355E+04, .71702E+04, .74571E+04, .78005E+04, .81957E+04 & + ,.86163E+04, .89879E+04, .91399E+04, .87394E+04, .46530E+04, .26045E+04 & + ,.89777E+03 / +data (aabar(18,n),n=1,18) / .62353E+04, .62963E+04, .63729E+04, .64689E+04 & + ,.65889E+04, .67383E+04, .69233E+04, .71502E+04, .74238E+04, .77446E+04 & + ,.81009E+04, .84538E+04, .87067E+04, .86514E+04, .59471E+04, .46530E+04 & + ,.26045E+04, .89777E+03 / +data (aabar(19,n),n=1,19) / .61862E+04, .62344E+04, .62949E+04, .63707E+04 & + ,.64653E+04, .65831E+04, .67290E+04, .69080E+04, .71250E+04, .73819E+04 & + ,.76742E+04, .79815E+04, .82491E+04, .83524E+04, .66125E+04, .59471E+04 & + ,.46530E+04, .26045E+04, .89777E+03 / +data (aabar(20,n),n=1,20) / .61474E+04, .61855E+04, .62334E+04, .62932E+04 & + ,.63679E+04, .64608E+04, .65759E+04, .67172E+04, .68887E+04, .70932E+04 & + ,.73291E+04, .75856E+04, .78311E+04, .79911E+04, .68735E+04, .66125E+04 & + ,.59471E+04, .46530E+04, .26045E+04, .89777E+03 / +data (aabar(21,n),n=1,21) / .61166E+04, .61468E+04, .61847E+04, .62320E+04 & + ,.62910E+04, .63644E+04, .64552E+04, .65668E+04, .67023E+04, .68644E+04 & + ,.70531E+04, .72625E+04, .74738E+04, .76415E+04, .69140E+04, .68735E+04 & + ,.66125E+04, .59471E+04, .46530E+04, .26045E+04, .89777E+03 / +data (aabar(22,n),n=1,22) / .60923E+04, .61162E+04, .61462E+04, .61836E+04 & + ,.62303E+04, .62883E+04, .63600E+04, .64481E+04, .65553E+04, .66836E+04 & + ,.68338E+04, .70027E+04, .71786E+04, .73330E+04, .68498E+04, .69140E+04 & + ,.68735E+04, .66125E+04, .59471E+04, .46530E+04, .26045E+04, .89777E+03 / +data (aabar(23,n),n=1,23) / .60730E+04, .60919E+04, .61157E+04, .61453E+04 & + ,.61823E+04, .62281E+04, .62848E+04, .63545E+04, .64392E+04, .65408E+04 & + ,.66601E+04, .67953E+04, .69391E+04, .70729E+04, .67447E+04, .68498E+04 & + ,.69140E+04, .68735E+04, .66125E+04, .59471E+04, .46530E+04, .26045E+04 & + ,.89777E+03 / +data (aabar(24,n),n=1,24) / .60577E+04, .60727E+04, .60915E+04, .61150E+04 & + ,.61443E+04, .61806E+04, .62254E+04, .62805E+04, .63475E+04, .64279E+04 & + ,.65225E+04, .66304E+04, .67467E+04, .68590E+04, .66311E+04, .67447E+04 & + ,.68498E+04, .69140E+04, .68735E+04, .66125E+04, .59471E+04, .46530E+04 & + ,.26045E+04, .89777E+03 / +data (aabar(25,n),n=1,25) / .77967E+04, .78122E+04, .78316E+04, .78560E+04 & + ,.78863E+04, .79242E+04, .79713E+04, .80294E+04, .81008E+04, .81878E+04 & + ,.82924E+04, .84158E+04, .85571E+04, .87104E+04, .86265E+04, .88325E+04 & + ,.90719E+04, .93363E+04, .95996E+04, .98007E+04, .98157E+04, .94274E+04 & + ,.83361E+04, .63023E+04, .57988E+03 / +data (aabar(26,n),n=1,26) / .69349E+04, .69458E+04, .69595E+04, .69766E+04 & + ,.69979E+04, .70244E+04, .70573E+04, .70978E+04, .71473E+04, .72072E+04 & + ,.72788E+04, .73623E+04, .74565E+04, .75566E+04, .74715E+04, .76064E+04 & + ,.77647E+04, .79435E+04, .81311E+04, .82983E+04, .83827E+04, .82640E+04 & + ,.77406E+04, .65488E+04, .15807E+04, .51662E+03 / +data (aabar(27,n),n=1,27) / .61704E+04, .61781E+04, .61877E+04, .61997E+04 & + ,.62147E+04, .62333E+04, .62562E+04, .62843E+04, .63186E+04, .63598E+04 & + ,.64086E+04, .64648E+04, .65271E+04, .65912E+04, .65100E+04, .65961E+04 & + ,.66976E+04, .68135E+04, .69382E+04, .70574E+04, .71390E+04, .71194E+04 & + ,.68816E+04, .62379E+04, .26526E+04, .14083E+04, .46025E+03 / +data (aabar(28,n),n=1,28) / .54916E+04, .54971E+04, .55038E+04, .55123E+04 & + ,.55228E+04, .55357E+04, .55517E+04, .55712E+04, .55949E+04, .56232E+04 & + ,.56562E+04, .56938E+04, .57345E+04, .57747E+04, .57001E+04, .57533E+04 & + ,.58161E+04, .58880E+04, .59661E+04, .60426E+04, .61008E+04, .61062E+04 & + ,.59940E+04, .56500E+04, .31742E+04, .23632E+04, .12546E+04, .41004E+03 / +data (aabar(29,n),n=1,29) / .48886E+04, .48924E+04, .48971E+04, .49031E+04 & + ,.49104E+04, .49195E+04, .49306E+04, .49441E+04, .49604E+04, .49797E+04 & + ,.50020E+04, .50269E+04, .50530E+04, .50774E+04, .50108E+04, .50422E+04 & + ,.50792E+04, .51212E+04, .51667E+04, .52111E+04, .52447E+04, .52486E+04 & + ,.51861E+04, .49913E+04, .32935E+04, .28279E+04, .21054E+04, .11177E+04 & + ,.36530E+03 / +data (aabar(30,n),n=1,30) / .43524E+04, .43551E+04, .43585E+04, .43626E+04 & + ,.43678E+04, .43741E+04, .43818E+04, .43912E+04, .44024E+04, .44155E+04 & + ,.44304E+04, .44467E+04, .44631E+04, .44771E+04, .44188E+04, .44361E+04 & + ,.44561E+04, .44786E+04, .45022E+04, .45241E+04, .45384E+04, .45339E+04 & + ,.44893E+04, .43663E+04, .31847E+04, .29342E+04, .25193E+04, .18757E+04 & + ,.99579E+03, .32545E+03 / +data (aabar(31,n),n=1,31) / .38756E+04, .38775E+04, .38799E+04, .38828E+04 & + ,.38864E+04, .38908E+04, .38961E+04, .39026E+04, .39102E+04, .39191E+04 & + ,.39290E+04, .39395E+04, .39494E+04, .39568E+04, .39066E+04, .39149E+04 & + ,.39241E+04, .39340E+04, .39435E+04, .39507E+04, .39516E+04, .39392E+04 & + ,.39006E+04, .38129E+04, .29707E+04, .28372E+04, .26141E+04, .22445E+04 & + ,.16710E+04, .88715E+03, .28994E+03 / +data (aabar(32,n),n=1,32) / .30106E+04, .30118E+04, .30132E+04, .30149E+04 & + ,.30171E+04, .30197E+04, .30229E+04, .30266E+04, .30309E+04, .30357E+04 & + ,.30408E+04, .30456E+04, .30491E+04, .30494E+04, .30032E+04, .30013E+04 & + ,.29981E+04, .29929E+04, .29844E+04, .29706E+04, .29480E+04, .29111E+04 & + ,.28504E+04, .27503E+04, .20956E+04, .19717E+04, .17926E+04, .15245E+04 & + ,.11243E+04, .55892E+03, .22135E+03, .00000E+00 / +data (aabar(33,n),n=1,33) / .23888E+04, .23895E+04, .23903E+04, .23914E+04 & + ,.23927E+04, .23943E+04, .23962E+04, .23983E+04, .24007E+04, .24033E+04 & + ,.24057E+04, .24075E+04, .24077E+04, .24049E+04, .23645E+04, .23582E+04 & + ,.23497E+04, .23382E+04, .23225E+04, .23007E+04, .22699E+04, .22258E+04 & + ,.21613E+04, .20655E+04, .15572E+04, .14495E+04, .13057E+04, .11057E+04 & + ,.82055E+03, .41732E+03, .17636E+03, .00000E+00, .00000E+00 / +data (aabar(34,n),n=1,34) / .18955E+04, .18959E+04, .18964E+04, .18971E+04 & + ,.18979E+04, .18988E+04, .18999E+04, .19011E+04, .19024E+04, .19036E+04 & + ,.19045E+04, .19047E+04, .19033E+04, .18990E+04, .18647E+04, .18567E+04 & + ,.18462E+04, .18326E+04, .18145E+04, .17905E+04, .17581E+04, .17138E+04 & + ,.16525E+04, .15662E+04, .11695E+04, .10771E+04, .95995E+03, .80547E+03 & + ,.59516E+03, .30433E+03, .13287E+03, .00000E+00, .00000E+00, .00000E+00 / +data (aabar(35,n),n=1,35) / .15041E+04, .15044E+04, .15047E+04, .15051E+04 & + ,.15056E+04, .15061E+04, .15067E+04, .15074E+04, .15080E+04, .15084E+04 & + ,.15085E+04, .15079E+04, .15058E+04, .15011E+04, .14725E+04, .14642E+04 & + ,.14536E+04, .14399E+04, .14221E+04, .13988E+04, .13682E+04, .13274E+04 & + ,.12725E+04, .11976E+04, .88682E+03, .80897E+03, .71340E+03, .59221E+03 & + ,.43360E+03, .22074E+03, .97241E+02, .00000E+00, .00000E+00, .00000E+00 & + ,.00000E+00 / +data (aabar(36,n),n=1,36) / .11936E+04, .11938E+04, .11940E+04, .11942E+04 & + ,.11945E+04, .11948E+04, .11951E+04, .11954E+04, .11957E+04, .11957E+04 & + ,.11954E+04, .11943E+04, .11921E+04, .11876E+04, .11640E+04, .11563E+04 & + ,.11464E+04, .11337E+04, .11174E+04, .10963E+04, .10689E+04, .10330E+04 & + ,.98554E+03, .92214E+03, .67808E+03, .61344E+03, .53582E+03, .44015E+03 & + ,.31885E+03, .16089E+03, .70536E+02, .00000E+00, .00000E+00, .00000E+00 & + ,.00000E+00, .00000E+00 / +endif + +if(kernel==2) then !Hall's collection kernel +data (ahbar( 1,n),n=1, 1)/ & +0.19826E+00/ +data (ahbar( 2,n),n=1, 2)/ & +0.11115E+01, 0.31472E+00/ +data (ahbar( 3,n),n=1, 3)/ & +0.29798E+01, 0.17644E+01, 0.49959E+00/ +data (ahbar( 4,n),n=1, 4)/ & +0.48803E+01, 0.47301E+01, 0.28009E+01, 0.79305E+00/ +data (ahbar( 5,n),n=1, 5)/ & +0.64832E+01, 0.77470E+01, 0.75086E+01, 0.44461E+01, 0.12589E+01/ +data (ahbar( 6,n),n=1, 6)/ & +0.75069E+01, 0.10291E+02, 0.12298E+02, 0.11919E+02, 0.70577E+01, 0.19984E+01/ +data (ahbar( 7,n),n=1, 7)/ & +0.97323E+01, 0.11917E+02, 0.16337E+02, 0.19521E+02, 0.18921E+02, 0.11203E+02,& +0.31722E+01/ +data (ahbar( 8,n),n=1, 8)/ & +0.11705E+02, 0.15449E+02, 0.18916E+02, 0.25933E+02, 0.30988E+02, 0.30034E+02,& +0.17784E+02, 0.50356E+01/ +data (ahbar( 9,n),n=1, 9)/ & +0.28432E+01, 0.18581E+02, 0.24524E+02, 0.30028E+02, 0.41166E+02, 0.49190E+02,& +0.47677E+02, 0.28231E+02, 0.79935E+01/ +data (ahbar(10,n),n=1,10)/ & +0.11264E+01, 0.54577E+01, 0.24506E+02, 0.33433E+02, 0.44838E+02, 0.64398E+02,& +0.80924E+02, 0.77938E+02, 0.41342E+02, 0.10151E+02/ +data (ahbar(11,n),n=1,11)/ & +0.19148E+00, 0.30048E+01, 0.99008E+01, 0.32365E+02, 0.45873E+02, 0.67472E+02,& +0.10098E+03, 0.13218E+03, 0.12667E+03, 0.61080E+02, 0.12790E+02/ +data (ahbar(12,n),n=1,12)/ & +0.23333E+00, 0.24125E+00, 0.63028E+01, 0.17275E+02, 0.43141E+02, 0.63748E+02,& +0.10244E+03, 0.15873E+03, 0.21451E+03, 0.20480E+03, 0.91229E+02, 0.16114E+02/ +data (ahbar(13,n),n=1,13)/ & +0.96499E+00, 0.18995E+01, 0.31461E+01, 0.21422E+02, 0.49047E+02, 0.95732E+02,& +0.19602E+03, 0.44815E+03, 0.86833E+03, 0.11774E+04, 0.10705E+04, 0.54659E+03,& +0.20565E+03/ +data (ahbar(14,n),n=1,14)/ & +0.82031E+00, 0.11610E+02, 0.26319E+02, 0.45949E+02, 0.14169E+03, 0.27697E+03,& +0.47057E+03, 0.76235E+03, 0.13258E+04, 0.22194E+04, 0.28021E+04, 0.24852E+04,& +0.13356E+04, 0.61752E+03/ +data (ahbar(15,n),n=1,15)/ & +0.49547E+01, 0.63623E+01, 0.11954E+03, 0.27411E+03, 0.48091E+03, 0.12745E+04,& +0.23941E+04, 0.39885E+04, 0.53365E+04, 0.64055E+04, 0.75273E+04, 0.78726E+04,& +0.71201E+04, 0.55775E+04, 0.12227E+04/ +data (ahbar(16,n),n=1,16)/ & +0.19925E+02, 0.25489E+02, 0.32725E+02, 0.70048E+03, 0.16119E+04, 0.28297E+04,& +0.37418E+04, 0.48244E+04, 0.57636E+04, 0.68214E+04, 0.77280E+04, 0.83723E+04,& +0.84671E+04, 0.74915E+04, 0.23147E+04, 0.20493E+04/ +data (ahbar(17,n),n=1,17)/ & +0.29658E+03, 0.37826E+03, 0.48383E+03, 0.62105E+03, 0.12813E+04, 0.21736E+04,& +0.33625E+04, 0.42800E+04, 0.53873E+04, 0.64521E+04, 0.73410E+04, 0.79541E+04,& +0.83280E+04, 0.80576E+04, 0.42900E+04, 0.25057E+04, 0.29399E+04/ +data (ahbar(18,n),n=1,18)/ & +0.72103E+03, 0.91733E+03, 0.11698E+04, 0.14961E+04, 0.19199E+04, 0.25718E+04,& +0.34340E+04, 0.45765E+04, 0.53658E+04, 0.62564E+04, 0.68926E+04, 0.76242E+04,& +0.81438E+04, 0.82870E+04, 0.57426E+04, 0.44930E+04, 0.25977E+04, 0.27291E+04/ +data (ahbar(19,n),n=1,19)/ & +0.96659E+03, 0.12273E+04, 0.15613E+04, 0.19908E+04, 0.25456E+04, 0.32656E+04,& +0.38523E+04, 0.46057E+04, 0.55962E+04, 0.62746E+04, 0.69491E+04, 0.70313E+04,& +0.78366E+04, 0.83524E+04, 0.66125E+04, 0.59471E+04, 0.46530E+04, 0.26045E+04,& +0.89099E+03/ +data (ahbar(20,n),n=1,20)/ & +0.97638E+03, 0.12378E+04, 0.15716E+04, 0.19991E+04, 0.25486E+04, 0.32579E+04,& +0.41778E+04, 0.46749E+04, 0.52921E+04, 0.60950E+04, 0.66107E+04, 0.71113E+04,& +0.71824E+04, 0.77993E+04, 0.68735E+04, 0.66125E+04, 0.59471E+04, 0.46530E+04,& +0.26045E+04, 0.89099E+03/ +data (ahbar(21,n),n=1,21)/ & +0.94823E+03, 0.12006E+04, 0.15220E+04, 0.19322E+04, 0.24575E+04, 0.31324E+04,& +0.40029E+04, 0.51305E+04, 0.55255E+04, 0.59887E+04, 0.65800E+04, 0.69248E+04,& +0.72481E+04, 0.73294E+04, 0.69140E+04, 0.68735E+04, 0.66125E+04, 0.59471E+04,& +0.46530E+04, 0.26045E+04, 0.89099E+03/ +data (ahbar(22,n),n=1,22)/ & +0.82817E+03, 0.10475E+04, 0.13263E+04, 0.16812E+04, 0.21341E+04, 0.27139E+04,& +0.34583E+04, 0.44175E+04, 0.56582E+04, 0.59651E+04, 0.62990E+04, 0.67126E+04,& +0.69632E+04, 0.72083E+04, 0.68455E+04, 0.69140E+04, 0.68735E+04, 0.66125E+04,& +0.59471E+04, 0.46530E+04, 0.26045E+04, 0.89099E+03/ +data (ahbar(23,n),n=1,23)/ & +0.69439E+03, 0.87760E+03, 0.11100E+04, 0.14053E+04, 0.17812E+04, 0.22609E+04,& +0.28745E+04, 0.36617E+04, 0.46749E+04, 0.59830E+04, 0.62384E+04, 0.64949E+04,& +0.67994E+04, 0.69710E+04, 0.66897E+04, 0.68477E+04, 0.69140E+04, 0.68735E+04,& +0.66125E+04, 0.59471E+04, 0.46530E+04, 0.26045E+04, 0.89099E+03/ +data (ahbar(24,n),n=1,24)/ & +0.57838E+03, 0.73052E+03, 0.92325E+03, 0.11677E+04, 0.14782E+04, 0.18735E+04,& +0.23776E+04, 0.30221E+04, 0.38482E+04, 0.49098E+04, 0.62770E+04, 0.64812E+04,& +0.66606E+04, 0.68557E+04, 0.66311E+04, 0.67447E+04, 0.68498E+04, 0.69140E+04,& +0.68735E+04, 0.66125E+04, 0.59471E+04, 0.46530E+04, 0.26045E+04, 0.89099E+03/ +data (ahbar(25,n),n=1,25)/ & +0.59084E+03, 0.74589E+03, 0.94211E+03, 0.11907E+04, 0.15060E+04, 0.19065E+04,& +0.24163E+04, 0.30665E+04, 0.38980E+04, 0.49639E+04, 0.63340E+04, 0.80991E+04,& +0.83645E+04, 0.85993E+04, 0.86224E+04, 0.88325E+04, 0.90719E+04, 0.93363E+04,& +0.95996E+04, 0.98007E+04, 0.98157E+04, 0.94274E+04, 0.83361E+04, 0.63023E+04,& +0.57550E+03/ +data (ahbar(26,n),n=1,26)/ & +0.41712E+03, 0.52636E+03, 0.66448E+03, 0.83925E+03, 0.10606E+04, 0.13414E+04,& +0.16979E+04, 0.21515E+04, 0.27296E+04, 0.34680E+04, 0.44128E+04, 0.56235E+04,& +0.71759E+04, 0.73865E+04, 0.73763E+04, 0.76028E+04, 0.77647E+04, 0.79435E+04,& +0.81311E+04, 0.82983E+04, 0.83827E+04, 0.82640E+04, 0.77406E+04, 0.65488E+04,& +0.15807E+04, 0.51271E+03/ +data (ahbar(27,n),n=1,27)/ & +0.29457E+03, 0.37160E+03, 0.46891E+03, 0.59194E+03, 0.74760E+03, 0.94473E+03,& +0.11947E+04, 0.15119E+04, 0.19153E+04, 0.24289E+04, 0.30837E+04, 0.39193E+04,& +0.49856E+04, 0.63431E+04, 0.63635E+04, 0.65119E+04, 0.66944E+04, 0.68135E+04,& +0.69382E+04, 0.70574E+04, 0.71390E+04, 0.71194E+04, 0.68816E+04, 0.62379E+04,& +0.26526E+04, 0.14083E+04, 0.45678E+03/ +data (ahbar(28,n),n=1,28)/ & +0.20808E+03, 0.26243E+03, 0.33104E+03, 0.41773E+03, 0.52730E+03, 0.66592E+03,& +0.84143E+03, 0.10639E+04, 0.13461E+04, 0.17045E+04, 0.21602E+04, 0.27398E+04,& +0.34765E+04, 0.44108E+04, 0.54855E+04, 0.56238E+04, 0.57419E+04, 0.58852E+04,& +0.59661E+04, 0.60426E+04, 0.61008E+04, 0.61062E+04, 0.59940E+04, 0.56500E+04,& +0.31742E+04, 0.23632E+04, 0.12546E+04, 0.40694E+03/ +data (ahbar(29,n),n=1,29)/ & +0.14702E+03, 0.18538E+03, 0.23379E+03, 0.29491E+03, 0.37212E+03, 0.46970E+03,& +0.59313E+03, 0.74934E+03, 0.94723E+03, 0.11981E+04, 0.15162E+04, 0.19199E+04,& +0.24314E+04, 0.30782E+04, 0.38273E+04, 0.48524E+04, 0.49649E+04, 0.50559E+04,& +0.51642E+04, 0.52111E+04, 0.52447E+04, 0.52486E+04, 0.51861E+04, 0.49913E+04,& +0.32935E+04, 0.28279E+04, 0.21054E+04, 0.11177E+04, 0.36254E+03/ +data (ahbar(30,n),n=1,30)/ & +0.10389E+03, 0.13098E+03, 0.16515E+03, 0.20827E+03, 0.26271E+03, 0.33147E+03,& +0.41837E+03, 0.52824E+03, 0.66723E+03, 0.84316E+03, 0.10659E+04, 0.13479E+04,& +0.17045E+04, 0.21543E+04, 0.26789E+04, 0.33884E+04, 0.42884E+04, 0.43778E+04,& +0.44448E+04, 0.45220E+04, 0.45384E+04, 0.45339E+04, 0.44893E+04, 0.43663E+04,& +0.31847E+04, 0.29342E+04, 0.25193E+04, 0.18757E+04, 0.99579E+03, 0.32299E+03/ +data (ahbar(31,n),n=1,31)/ & +0.73425E+02, 0.92555E+02, 0.11668E+03, 0.14712E+03, 0.18553E+03, 0.23402E+03,& +0.29525E+03, 0.37261E+03, 0.47038E+03, 0.59398E+03, 0.75026E+03, 0.94780E+03,& +0.11972E+04, 0.15111E+04, 0.18798E+04, 0.23734E+04, 0.29973E+04, 0.37859E+04,& +0.38548E+04, 0.39003E+04, 0.39497E+04, 0.39392E+04, 0.39006E+04, 0.38129E+04,& +0.29707E+04, 0.28372E+04, 0.26141E+04, 0.22445E+04, 0.16710E+04, 0.88715E+03,& +0.28775E+03/ +data (ahbar(32,n),n=1,32)/ & +0.45270E+02, 0.57059E+02, 0.71923E+02, 0.90671E+02, 0.11432E+03, 0.14416E+03,& +0.18182E+03, 0.22936E+03, 0.28938E+03, 0.36518E+03, 0.46087E+03, 0.58157E+03,& +0.73358E+03, 0.92435E+03, 0.11470E+04, 0.14441E+04, 0.18176E+04, 0.22860E+04,& +0.28721E+04, 0.29038E+04, 0.29104E+04, 0.29097E+04, 0.28504E+04, 0.27503E+04,& +0.20956E+04, 0.19717E+04, 0.17926E+04, 0.15245E+04, 0.11243E+04, 0.55892E+03,& +0.21886E+03, 0.00000E+00/ +data (ahbar(33,n),n=1,33)/ & +0.28509E+02, 0.35930E+02, 0.45286E+02, 0.57082E+02, 0.71958E+02, 0.90722E+02,& +0.11439E+03, 0.14425E+03, 0.18193E+03, 0.22946E+03, 0.28939E+03, 0.36488E+03,& +0.45978E+03, 0.57859E+03, 0.71675E+03, 0.90062E+03, 0.11306E+04, 0.14176E+04,& +0.17740E+04, 0.22141E+04, 0.22189E+04, 0.21974E+04, 0.21603E+04, 0.20655E+04,& +0.15572E+04, 0.14495E+04, 0.13057E+04, 0.11057E+04, 0.82055E+03, 0.41732E+03,& +0.17442E+03, 0.00000E+00, 0.00000E+00/ +data (ahbar(34,n),n=1,34)/ & +0.17955E+02, 0.22627E+02, 0.28517E+02, 0.35941E+02, 0.45302E+02, 0.57105E+02,& +0.71988E+02, 0.90757E+02, 0.11442E+03, 0.14426E+03, 0.18184E+03, 0.22912E+03,& +0.28847E+03, 0.36263E+03, 0.44864E+03, 0.56281E+03, 0.70510E+03, 0.88179E+03,& +0.11001E+04, 0.13676E+04, 0.16919E+04, 0.16753E+04, 0.16315E+04, 0.15655E+04,& +0.11695E+04, 0.10771E+04, 0.95995E+03, 0.80547E+03, 0.59516E+03, 0.30433E+03,& +0.13143E+03, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (ahbar(35,n),n=1,35)/ & +0.11309E+02, 0.14251E+02, 0.17959E+02, 0.22632E+02, 0.28524E+02, 0.35950E+02,& +0.45313E+02, 0.57115E+02, 0.71989E+02, 0.90728E+02, 0.11432E+03, 0.14397E+03,& +0.18114E+03, 0.22752E+03, 0.28119E+03, 0.35228E+03, 0.44063E+03, 0.54992E+03,& +0.68429E+03, 0.84805E+03, 0.10451E+04, 0.12774E+04, 0.12438E+04, 0.11823E+04,& +0.88640E+03, 0.80897E+03, 0.71340E+03, 0.59221E+03, 0.43360E+03, 0.22074E+03,& +0.96191E+02, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (ahbar(36,n),n=1,36)/ & +0.71229E+01, 0.89755E+01, 0.11310E+02, 0.14253E+02, 0.17962E+02, 0.22636E+02,& +0.28527E+02, 0.35951E+02, 0.45304E+02, 0.57082E+02, 0.71899E+02, 0.90509E+02,& +0.11382E+03, 0.14286E+03, 0.17642E+03, 0.22080E+03, 0.27581E+03, 0.34365E+03,& +0.42675E+03, 0.52753E+03, 0.64803E+03, 0.78904E+03, 0.94844E+03, 0.90139E+03,& +0.66943E+03, 0.61315E+03, 0.53582E+03, 0.44015E+03, 0.31885E+03, 0.16089E+03,& +0.69774E+02, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +endif + +data pi/3.141592654/ + +!calculating the mass categories (c.g.s) with the lowest diameter +!of 3.125 microns and mass doubling every bin +diam(1)=1.5625*2.e-04 +x(1)=pi/6.*diam(1)**3. +do l=2,ibins+1 + x(l)=2.*x(l-1) + diam(l)=(6./pi*x(l))**(0.333333333333) +enddo + +!Long's or Halls's collection kernel as calculated +!by Walko or Saleeby (1-36) with (1-36) weighted for (x+y) +do i=1,ibins + do j=1,i + if(kernel==1) akbar(i,j)=aabar(i,j) + if(kernel==2) akbar(i,j)=ahbar(i,j) + if(akbar(i,j).lt.0.) akbar(i,j)=0. + akbar(36,i)=0. + enddo +enddo + +!Invert here for use in routine 'sxy' +do j=1,ibins + do i=1,j + akbar(i,j)=akbar(j,i) + enddo +enddo + +return +END SUBROUTINE data + +!############################################################################## +Subroutine data_cs (x,diam,akbarcs,ibins,cfmass,pwmass) + +implicit none + +integer :: l,i,j,ibins,n +real :: pi,cfmass,pwmass +real, dimension(ibins+1) :: x,diam +real, dimension(ibins,ibins) :: akbarcs +real, dimension(36,36) :: abarcs + +data (abarcs( 1,n),n=1, 1)/ & +0.00000E+00/ +data (abarcs( 2,n),n=1, 2)/ & +0.00000E+00, 0.00000E+00/ +data (abarcs( 3,n),n=1, 3)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcs( 4,n),n=1, 4)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcs( 5,n),n=1, 5)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcs( 6,n),n=1, 6)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcs( 7,n),n=1, 7)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00/ +data (abarcs( 8,n),n=1, 8)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00/ +data (abarcs( 9,n),n=1, 9)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcs(10,n),n=1,10)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcs(11,n),n=1,11)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcs(12,n),n=1,12)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcs(13,n),n=1,13)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00/ +data (abarcs(14,n),n=1,14)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00/ +data (abarcs(15,n),n=1,15)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcs(16,n),n=1,16)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.53661E+03, 0.10639E+04, 0.17461E+04,& +0.24939E+04, 0.33922E+04, 0.42133E+04, 0.49714E+04, 0.55472E+04, 0.60605E+04,& +0.63566E+04, 0.61133E+04, 0.44610E+04, 0.00000E+00/ +data (abarcs(17,n),n=1,17)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.78871E+03, 0.13744E+04, 0.21286E+04,& +0.28583E+04, 0.37032E+04, 0.43698E+04, 0.50716E+04, 0.56088E+04, 0.61575E+04,& +0.67201E+04, 0.69407E+04, 0.62550E+04, 0.00000E+00, 0.00000E+00/ +data (abarcs(18,n),n=1,18)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.98141E+03, 0.15955E+04, 0.23830E+04,& +0.30290E+04, 0.37710E+04, 0.43724E+04, 0.49581E+04, 0.54050E+04, 0.59129E+04,& +0.64845E+04, 0.68763E+04, 0.68208E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcs(19,n),n=1,19)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.94193E+03, 0.15293E+04, 0.22799E+04,& +0.28902E+04, 0.35847E+04, 0.41352E+04, 0.46578E+04, 0.50365E+04, 0.54635E+04,& +0.59603E+04, 0.63647E+04, 0.65881E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00/ +data (abarcs(20,n),n=1,20)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.90457E+03, 0.14671E+04, 0.21839E+04,& +0.27625E+04, 0.34159E+04, 0.39236E+04, 0.43940E+04, 0.47161E+04, 0.50718E+04,& +0.54881E+04, 0.58466E+04, 0.61587E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00/ +data (abarcs(21,n),n=1,21)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.86909E+03, 0.14084E+04, 0.20940E+04,& +0.26442E+04, 0.32615E+04, 0.37332E+04, 0.41607E+04, 0.44372E+04, 0.47337E+04,& +0.50775E+04, 0.53735E+04, 0.56824E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcs(22,n),n=1,22)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.83531E+03, 0.13528E+04, 0.20093E+04,& +0.25339E+04, 0.31192E+04, 0.35602E+04, 0.39523E+04, 0.41924E+04, 0.44415E+04,& +0.47247E+04, 0.49598E+04, 0.52295E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcs(23,n),n=1,23)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.80308E+03, 0.12999E+04, 0.19294E+04,& +0.24303E+04, 0.29870E+04, 0.34017E+04, 0.37643E+04, 0.39754E+04, 0.41870E+04,& +0.44214E+04, 0.46040E+04, 0.48253E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcs(24,n),n=1,24)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.77228E+03, 0.12496E+04, 0.18535E+04,& +0.23328E+04, 0.28635E+04, 0.32551E+04, 0.35929E+04, 0.37809E+04, 0.39630E+04,& +0.41587E+04, 0.42986E+04, 0.44740E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcs(25,n),n=1,25)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.74279E+03, 0.12015E+04, 0.17813E+04,& +0.22404E+04, 0.27474E+04, 0.31187E+04, 0.34353E+04, 0.36048E+04, 0.37635E+04,& +0.39289E+04, 0.40351E+04, 0.41711E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00/ +data (abarcs(26,n),n=1,26)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.71453E+03, 0.11555E+04, 0.17125E+04,& +0.21526E+04, 0.26377E+04, 0.29909E+04, 0.32892E+04, 0.34436E+04, 0.35840E+04,& +0.37256E+04, 0.38055E+04, 0.39095E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00/ +data (abarcs(27,n),n=1,27)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.68743E+03, 0.11114E+04, 0.16467E+04,& +0.20691E+04, 0.25338E+04, 0.28705E+04, 0.31528E+04, 0.32948E+04, 0.34205E+04,& +0.35435E+04, 0.36034E+04, 0.36821E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcs(28,n),n=1,28)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.66142E+03, 0.10692E+04, 0.15838E+04,& +0.19894E+04, 0.24350E+04, 0.27566E+04, 0.30247E+04, 0.31565E+04, 0.32704E+04,& +0.33787E+04, 0.34234E+04, 0.34824E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcs(29,n),n=1,29)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.63643E+03, 0.10287E+04, 0.15235E+04,& +0.19131E+04, 0.23408E+04, 0.26485E+04, 0.29038E+04, 0.30270E+04, 0.31313E+04,& +0.32280E+04, 0.32611E+04, 0.33051E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcs(30,n),n=1,30)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.61242E+03, 0.98978E+03, 0.14657E+04,& +0.18402E+04, 0.22508E+04, 0.25457E+04, 0.27893E+04, 0.29051E+04, 0.30015E+04,& +0.30889E+04, 0.31134E+04, 0.31459E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcs(31,n),n=1,31)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.58935E+03, 0.95241E+03, 0.14102E+04,& +0.17702E+04, 0.21648E+04, 0.24475E+04, 0.26805E+04, 0.27898E+04, 0.28796E+04,& +0.29595E+04, 0.29775E+04, 0.30014E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00/ +data (abarcs(32,n),n=1,32)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.56716E+03, 0.91651E+03, 0.13569E+04,& +0.17031E+04, 0.20823E+04, 0.23537E+04, 0.25768E+04, 0.26805E+04, 0.27646E+04,& +0.28383E+04, 0.28516E+04, 0.28690E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00/ +data (abarcs(33,n),n=1,33)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.54583E+03, 0.88199E+03, 0.13057E+04,& +0.16387E+04, 0.20033E+04, 0.22639E+04, 0.24778E+04, 0.25764E+04, 0.26557E+04,& +0.27243E+04, 0.27339E+04, 0.27466E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcs(34,n),n=1,34)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.52531E+03, 0.84880E+03, 0.12565E+04,& +0.15768E+04, 0.19274E+04, 0.21778E+04, 0.23830E+04, 0.24771E+04, 0.25522E+04,& +0.26165E+04, 0.26234E+04, 0.26326E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcs(35,n),n=1,35)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.50557E+03, 0.81688E+03, 0.12092E+04,& +0.15174E+04, 0.18546E+04, 0.20953E+04, 0.22923E+04, 0.23822E+04, 0.24536E+04,& +0.25141E+04, 0.25191E+04, 0.25256E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcs(36,n),n=1,36)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.48657E+03, 0.78617E+03, 0.11637E+04,& +0.14602E+04, 0.17846E+04, 0.20160E+04, 0.22053E+04, 0.22913E+04, 0.23594E+04,& +0.24167E+04, 0.24203E+04, 0.24249E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ + +data pi/3.141592654/ + +!calculating the mass categories (c.g.s) with the lowest diameter +!of 3.125 microns and mass doubling every bin +diam(1)=1.5625*2.e-04 +x(1)=pi/6.*diam(1)**3. +do l=2,15 + x(l)=2.*x(l-1) + diam(l)=(6./pi*x(l))**(0.333333333333) +enddo +do l=16,ibins+1 + x(l)=2.*x(l-1) + !uses power law values in m.k.s. and converts back to c.g.s. + diam(l)=100 * ((x(l) / 1000.0 / cfmass) ** (1./pwmass)) +enddo + +!(Wang & Ji 2000) collection kernel by Saleeby 6/23/04 (1-36) with (1-36) +! weighted for (x+y) +do i=1,ibins + do j=1,i + akbarcs(i,j)=abarcs(i,j) + if(akbarcs(i,j).lt.0.) akbarcs(i,j)=0. + akbarcs(36,i)=0. + enddo +enddo + +!Invert here for use in routine 'sxy' +do j=1,ibins + do i=1,j + akbarcs(i,j)=akbarcs(j,i) + enddo +enddo + +return +END SUBROUTINE data_cs + +!############################################################################## +Subroutine data_ca (x,diam,akbarca,ibins,cfmass,pwmass) + +implicit none + +integer :: l,i,j,ibins,n +real :: pi,cfmass,pwmass +real, dimension(ibins+1) :: x,diam +real, dimension(ibins,ibins) :: akbarca +real, dimension(36,36) :: abarca + +data (abarca( 1,n),n=1, 1)/ & +0.00000E+00/ +data (abarca( 2,n),n=1, 2)/ & +0.00000E+00, 0.00000E+00/ +data (abarca( 3,n),n=1, 3)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarca( 4,n),n=1, 4)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarca( 5,n),n=1, 5)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarca( 6,n),n=1, 6)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarca( 7,n),n=1, 7)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00/ +data (abarca( 8,n),n=1, 8)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00/ +data (abarca( 9,n),n=1, 9)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarca(10,n),n=1,10)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarca(11,n),n=1,11)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarca(12,n),n=1,12)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarca(13,n),n=1,13)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00/ +data (abarca(14,n),n=1,14)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00/ +data (abarca(15,n),n=1,15)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarca(16,n),n=1,16)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.28025E+03, 0.19753E+04, 0.44248E+04, 0.51978E+04, 0.25782E+04,& +0.17774E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarca(17,n),n=1,17)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.15165E+02, 0.21553E+02, 0.30125E+02,& +0.95567E+02, 0.54009E+03, 0.27604E+04, 0.42918E+04, 0.52676E+04, 0.59298E+04,& +0.46823E+04, 0.58190E+03, 0.47702E+03, 0.00000E+00, 0.00000E+00/ +data (abarca(18,n),n=1,18)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.80274E+02, 0.11345E+03, 0.15744E+03,& +0.49499E+03, 0.11319E+04, 0.27491E+04, 0.39822E+04, 0.47690E+04, 0.54275E+04,& +0.50150E+04, 0.28583E+04, 0.24930E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarca(19,n),n=1,19)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.14965E+03, 0.21054E+03, 0.29048E+03,& +0.90652E+03, 0.17427E+04, 0.28230E+04, 0.38189E+04, 0.44627E+04, 0.51297E+04,& +0.53979E+04, 0.48803E+04, 0.43975E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00/ +data (abarca(20,n),n=1,20)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.22645E+03, 0.34181E+03, 0.49202E+03,& +0.11955E+04, 0.20566E+04, 0.28031E+04, 0.35326E+04, 0.41222E+04, 0.47278E+04,& +0.52342E+04, 0.55333E+04, 0.51884E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00/ +data (abarca(21,n),n=1,21)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.30376E+03, 0.49729E+03, 0.74755E+03,& +0.13160E+04, 0.20052E+04, 0.26270E+04, 0.30831E+04, 0.36595E+04, 0.41208E+04,& +0.44659E+04, 0.47916E+04, 0.47526E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarca(22,n),n=1,22)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.34992E+03, 0.58085E+03, 0.87785E+03,& +0.13542E+04, 0.19195E+04, 0.24082E+04, 0.27781E+04, 0.31993E+04, 0.35298E+04,& +0.37789E+04, 0.40148E+04, 0.40734E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarca(23,n),n=1,23)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.36413E+03, 0.59007E+03, 0.87939E+03,& +0.12668E+04, 0.17268E+04, 0.21466E+04, 0.25022E+04, 0.28012E+04, 0.30599E+04,& +0.32423E+04, 0.34123E+04, 0.34479E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarca(24,n),n=1,24)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.36375E+03, 0.56448E+03, 0.82063E+03,& +0.11622E+04, 0.15651E+04, 0.19284E+04, 0.22304E+04, 0.24484E+04, 0.26537E+04,& +0.27880E+04, 0.29102E+04, 0.29263E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarca(25,n),n=1,25)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.32438E+03, 0.50280E+03, 0.72984E+03,& +0.10315E+04, 0.13856E+04, 0.17017E+04, 0.19600E+04, 0.21406E+04, 0.23060E+04,& +0.24061E+04, 0.24944E+04, 0.24966E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00/ +data (abarca(26,n),n=1,26)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.28950E+03, 0.44831E+03, 0.64996E+03,& +0.91719E+03, 0.12295E+04, 0.15060E+04, 0.17290E+04, 0.18807E+04, 0.20161E+04,& +0.20921E+04, 0.21568E+04, 0.21500E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00/ +data (abarca(27,n),n=1,27)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.25852E+03, 0.40004E+03, 0.57943E+03,& +0.81665E+03, 0.10930E+04, 0.13361E+04, 0.15299E+04, 0.16588E+04, 0.17715E+04,& +0.18303E+04, 0.18785E+04, 0.18666E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarca(28,n),n=1,28)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.23096E+03, 0.35720E+03, 0.51698E+03,& +0.72793E+03, 0.97301E+03, 0.11875E+04, 0.13571E+04, 0.14678E+04, 0.15628E+04,& +0.16093E+04, 0.16461E+04, 0.16315E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarca(29,n),n=1,29)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.20642E+03, 0.31910E+03, 0.46158E+03,& +0.64942E+03, 0.86721E+03, 0.10571E+04, 0.12061E+04, 0.13020E+04, 0.13831E+04,& +0.14206E+04, 0.14494E+04, 0.14341E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarca(30,n),n=1,30)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.18455E+03, 0.28518E+03, 0.41232E+03,& +0.57977E+03, 0.77362E+03, 0.94208E+03, 0.10736E+04, 0.11572E+04, 0.12272E+04,& +0.12581E+04, 0.12813E+04, 0.12663E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarca(31,n),n=1,31)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.16503E+03, 0.25495E+03, 0.36848E+03,& +0.51788E+03, 0.69063E+03, 0.84038E+03, 0.95683E+03, 0.10302E+04, 0.10911E+04,& +0.11170E+04, 0.11362E+04, 0.11222E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00/ +data (abarca(32,n),n=1,32)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.14760E+03, 0.22798E+03, 0.32940E+03,& +0.46280E+03, 0.61689E+03, 0.75022E+03, 0.85358E+03, 0.91828E+03, 0.97164E+03,& +0.99373E+03, 0.10099E+04, 0.99737E+03, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00/ +data (abarca(33,n),n=1,33)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.13204E+03, 0.20390E+03, 0.29455E+03,& +0.41371E+03, 0.55127E+03, 0.67013E+03, 0.76204E+03, 0.81931E+03, 0.86633E+03,& +0.88544E+03, 0.89946E+03, 0.88837E+03, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarca(34,n),n=1,34)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.11812E+03, 0.18239E+03, 0.26344E+03,& +0.36994E+03, 0.49280E+03, 0.59886E+03, 0.68073E+03, 0.73156E+03, 0.77319E+03,& +0.78991E+03, 0.80225E+03, 0.79263E+03, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarca(35,n),n=1,35)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.10569E+03, 0.16318E+03, 0.23565E+03,& +0.33086E+03, 0.44066E+03, 0.53536E+03, 0.60838E+03, 0.65360E+03, 0.69057E+03,& +0.70534E+03, 0.71635E+03, 0.70812E+03, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarca(36,n),n=1,36)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.94570E+02, 0.14600E+03, 0.21082E+03,& +0.29596E+03, 0.39412E+03, 0.47873E+03, 0.54392E+03, 0.58422E+03, 0.61715E+03,& +0.63028E+03, 0.64020E+03, 0.63323E+03, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ + +data pi/3.141592654/ + +!calculating the mass categories (c.g.s) with the lowest diameter +!of 3.125 microns and mass doubling every bin +diam(1)=1.5625*2.e-04 +x(1)=pi/6.*diam(1)**3. +do l=2,15 + x(l)=2.*x(l-1) + diam(l)=(6./pi*x(l))**(0.333333333333) +enddo +do l=16,ibins+1 + x(l)=2.*x(l-1) + !uses power law values in m.k.s. and converts back to c.g.s. + diam(l)=100 * ((x(l) / 1000.0 / cfmass) ** (1./pwmass)) +enddo + +!(Cober & List) collection kernel by Saleeby 6/23/04 for graupel/cloud droplet +! weighted for (x+y) +do i=1,ibins + do j=1,i + akbarca(i,j)=abarca(i,j) + if(akbarca(i,j).lt.0.) akbarca(i,j)=0. + akbarca(36,i)=0. + enddo +enddo + +!Invert here for use in routine 'sxy' +do j=1,ibins + do i=1,j + akbarca(i,j)=akbarca(j,i) + enddo +enddo + +return +END SUBROUTINE data_ca + +!############################################################################## +Subroutine data_cg (x,diam,akbarcg,ibins,cfmass,pwmass) + +implicit none + +integer :: l,i,j,ibins,n +real :: pi,cfmass,pwmass +real, dimension(ibins+1) :: x,diam +real, dimension(ibins,ibins) :: akbarcg +real, dimension(36,36) :: abarcg + +data (abarcg( 1,n),n=1, 1)/ & +0.00000E+00/ +data (abarcg( 2,n),n=1, 2)/ & +0.00000E+00, 0.00000E+00/ +data (abarcg( 3,n),n=1, 3)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcg( 4,n),n=1, 4)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcg( 5,n),n=1, 5)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcg( 6,n),n=1, 6)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcg( 7,n),n=1, 7)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00/ +data (abarcg( 8,n),n=1, 8)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00/ +data (abarcg( 9,n),n=1, 9)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcg(10,n),n=1,10)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcg(11,n),n=1,11)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcg(12,n),n=1,12)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcg(13,n),n=1,13)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00/ +data (abarcg(14,n),n=1,14)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00/ +data (abarcg(15,n),n=1,15)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcg(16,n),n=1,16)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.20097E+04, 0.27318E+04, 0.37157E+04,& +0.46118E+04, 0.57679E+04, 0.71030E+04, 0.83257E+04, 0.90047E+04, 0.95292E+04,& +0.95098E+04, 0.82568E+04, 0.48994E+04, 0.00000E+00/ +data (abarcg(17,n),n=1,17)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.16987E+04, 0.23372E+04, 0.31963E+04,& +0.39602E+04, 0.49292E+04, 0.60116E+04, 0.71421E+04, 0.77369E+04, 0.82349E+04,& +0.84640E+04, 0.79619E+04, 0.59465E+04, 0.00000E+00, 0.00000E+00/ +data (abarcg(18,n),n=1,18)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.14234E+04, 0.19958E+04, 0.27574E+04,& +0.34313E+04, 0.42664E+04, 0.51380E+04, 0.61732E+04, 0.67127E+04, 0.71282E+04,& +0.74157E+04, 0.72934E+04, 0.62066E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcg(19,n),n=1,19)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.12169E+04, 0.17370E+04, 0.24222E+04,& +0.29970E+04, 0.37072E+04, 0.44738E+04, 0.53043E+04, 0.58948E+04, 0.62214E+04,& +0.64880E+04, 0.65268E+04, 0.59820E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00/ +data (abarcg(20,n),n=1,20)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.10146E+04, 0.14914E+04, 0.21143E+04,& +0.26354E+04, 0.32668E+04, 0.39109E+04, 0.46347E+04, 0.52403E+04, 0.54895E+04,& +0.57105E+04, 0.58021E+04, 0.55433E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00/ +data (abarcg(21,n),n=1,21)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.84352E+03, 0.12842E+04, 0.18560E+04,& +0.23127E+04, 0.28662E+04, 0.34522E+04, 0.40906E+04, 0.46506E+04, 0.48989E+04,& +0.50724E+04, 0.51697E+04, 0.50527E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcg(22,n),n=1,22)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.67913E+03, 0.10889E+04, 0.16176E+04,& +0.20412E+04, 0.25492E+04, 0.30732E+04, 0.36139E+04, 0.41457E+04, 0.44188E+04,& +0.45511E+04, 0.46361E+04, 0.45862E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcg(23,n),n=1,23)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.55392E+03, 0.93719E+03, 0.14293E+04,& +0.18106E+04, 0.22657E+04, 0.27380E+04, 0.32206E+04, 0.37126E+04, 0.40228E+04,& +0.41228E+04, 0.41911E+04, 0.41713E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcg(24,n),n=1,24)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.44246E+03, 0.80234E+03, 0.12627E+04,& +0.16159E+04, 0.20349E+04, 0.24655E+04, 0.28794E+04, 0.33378E+04, 0.36877E+04,& +0.37675E+04, 0.38197E+04, 0.38122E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcg(25,n),n=1,25)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.35167E+03, 0.69069E+03, 0.11230E+04,& +0.14523E+04, 0.18408E+04, 0.22369E+04, 0.26134E+04, 0.30271E+04, 0.34046E+04,& +0.34689E+04, 0.35074E+04, 0.35041E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00/ +data (abarcg(26,n),n=1,26)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.33314E+03, 0.65352E+03, 0.10611E+04,& +0.13698E+04, 0.17326E+04, 0.21001E+04, 0.24465E+04, 0.28245E+04, 0.31656E+04,& +0.32144E+04, 0.32421E+04, 0.32396E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00/ +data (abarcg(27,n),n=1,27)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.31588E+03, 0.61910E+03, 0.10041E+04,& +0.12944E+04, 0.16345E+04, 0.19773E+04, 0.22980E+04, 0.26460E+04, 0.29572E+04,& +0.29945E+04, 0.30139E+04, 0.30108E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcg(28,n),n=1,28)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.29975E+03, 0.58706E+03, 0.95122E+03,& +0.12249E+04, 0.15448E+04, 0.18657E+04, 0.21644E+04, 0.24869E+04, 0.27731E+04,& +0.28018E+04, 0.28150E+04, 0.28112E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcg(29,n),n=1,29)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.28462E+03, 0.55710E+03, 0.90203E+03,& +0.11605E+04, 0.14620E+04, 0.17636E+04, 0.20429E+04, 0.23435E+04, 0.26084E+04,& +0.26308E+04, 0.26395E+04, 0.26350E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcg(30,n),n=1,30)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.27038E+03, 0.52899E+03, 0.85603E+03,& +0.11006E+04, 0.13854E+04, 0.16695E+04, 0.19316E+04, 0.22129E+04, 0.24596E+04,& +0.24773E+04, 0.24827E+04, 0.24779E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcg(31,n),n=1,31)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.25696E+03, 0.50254E+03, 0.81287E+03,& +0.10445E+04, 0.13139E+04, 0.15821E+04, 0.18289E+04, 0.20931E+04, 0.23239E+04,& +0.23381E+04, 0.23412E+04, 0.23363E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00/ +data (abarcg(32,n),n=1,32)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.24427E+03, 0.47760E+03, 0.77225E+03,& +0.99191E+03, 0.12471E+04, 0.15007E+04, 0.17336E+04, 0.19824E+04, 0.21990E+04,& +0.22106E+04, 0.22123E+04, 0.22074E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00/ +data (abarcg(33,n),n=1,33)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.23227E+03, 0.45403E+03, 0.73393E+03,& +0.94238E+03, 0.11843E+04, 0.14245E+04, 0.16446E+04, 0.18794E+04, 0.20835E+04,& +0.20932E+04, 0.20938E+04, 0.20892E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcg(34,n),n=1,34)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.22090E+03, 0.43173E+03, 0.69773E+03,& +0.89565E+03, 0.11252E+04, 0.13529E+04, 0.15613E+04, 0.17834E+04, 0.19760E+04,& +0.19842E+04, 0.19842E+04, 0.19800E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcg(35,n),n=1,35)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.21012E+03, 0.41060E+03, 0.66347E+03,& +0.85150E+03, 0.10695E+04, 0.12855E+04, 0.14830E+04, 0.16933E+04, 0.18755E+04,& +0.18826E+04, 0.18822E+04, 0.18783E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarcg(36,n),n=1,36)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.19990E+03, 0.39057E+03, 0.63102E+03,& +0.80970E+03, 0.10168E+04, 0.12219E+04, 0.14092E+04, 0.16086E+04, 0.17811E+04,& +0.17875E+04, 0.17868E+04, 0.17834E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ + +data pi/3.141592654/ + +!calculating the mass categories (c.g.s) with the lowest diameter +!of 3.125 microns and mass doubling every bin +diam(1)=1.5625*2.e-04 +x(1)=pi/6.*diam(1)**3. +do l=2,15 + x(l)=2.*x(l-1) + diam(l)=(6./pi*x(l))**(0.333333333333) +enddo +do l=16,ibins+1 + x(l)=2.*x(l-1) + !uses power law values in m.k.s. and converts back to c.g.s. + diam(l)=100 * ((x(l) / 1000.0 / cfmass) ** (1./pwmass)) +enddo + +!(Cober & List) collection kernel by Saleeby 6/23/04 for graupel/cloud droplet +! weighted for (x+y) +do i=1,ibins + do j=1,i + akbarcg(i,j)=abarcg(i,j) + if(akbarcg(i,j).lt.0.) akbarcg(i,j)=0. + akbarcg(36,i)=0. + enddo +enddo + +!Invert here for use in routine 'sxy' +do j=1,ibins + do i=1,j + akbarcg(i,j)=akbarcg(j,i) + enddo +enddo + +return +END SUBROUTINE data_cg + +!############################################################################## +Subroutine data_ch (x,diam,akbarch,ibins,cfmass,pwmass) + +implicit none + +integer :: l,i,j,ibins,n +real :: pi,cfmass,pwmass +real, dimension(ibins+1) :: x,diam +real, dimension(ibins,ibins) :: akbarch +real, dimension(36,36) :: abarch + +data (abarch( 1,n),n=1, 1)/ & +0.00000E+00/ +data (abarch( 2,n),n=1, 2)/ & +0.00000E+00, 0.00000E+00/ +data (abarch( 3,n),n=1, 3)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarch( 4,n),n=1, 4)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarch( 5,n),n=1, 5)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarch( 6,n),n=1, 6)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarch( 7,n),n=1, 7)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00/ +data (abarch( 8,n),n=1, 8)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00/ +data (abarch( 9,n),n=1, 9)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarch(10,n),n=1,10)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarch(11,n),n=1,11)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarch(12,n),n=1,12)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarch(13,n),n=1,13)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00/ +data (abarch(14,n),n=1,14)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00/ +data (abarch(15,n),n=1,15)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarch(16,n),n=1,16)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.18260E+05, 0.20193E+05, 0.22753E+05,& +0.25470E+05, 0.28811E+05, 0.32097E+05, 0.34658E+05, 0.37576E+05, 0.40716E+05,& +0.43471E+05, 0.44623E+05, 0.42478E+05, 0.00000E+00/ +data (abarch(17,n),n=1,17)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.15640E+05, 0.17168E+05, 0.19175E+05,& +0.21303E+05, 0.23918E+05, 0.26556E+05, 0.28532E+05, 0.30665E+05, 0.33125E+05,& +0.35677E+05, 0.37715E+05, 0.38066E+05, 0.00000E+00, 0.00000E+00/ +data (abarch(18,n),n=1,18)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.13413E+05, 0.14624E+05, 0.16204E+05,& +0.17895E+05, 0.19982E+05, 0.22178E+05, 0.23750E+05, 0.25262E+05, 0.27063E+05,& +0.29078E+05, 0.31045E+05, 0.32337E+05, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarch(19,n),n=1,19)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.11513E+05, 0.12479E+05, 0.13731E+05,& +0.15093E+05, 0.16787E+05, 0.18664E+05, 0.19978E+05, 0.21041E+05, 0.22316E+05,& +0.23794E+05, 0.25369E+05, 0.26737E+05, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00/ +data (abarch(20,n),n=1,20)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.99570E+04, 0.10768E+05, 0.11814E+05,& +0.12914E+05, 0.14272E+05, 0.15772E+05, 0.16933E+05, 0.17716E+05, 0.18604E+05,& +0.19649E+05, 0.20808E+05, 0.21934E+05, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00/ +data (abarch(21,n),n=1,21)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.85951E+04, 0.92827E+04, 0.10166E+05,& +0.11059E+05, 0.12156E+05, 0.13373E+05, 0.14464E+05, 0.15063E+05, 0.15676E+05,& +0.16400E+05, 0.17218E+05, 0.18052E+05, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarch(22,n),n=1,22)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.74082E+04, 0.79966E+04, 0.87497E+04,& +0.94753E+04, 0.10365E+05, 0.11367E+05, 0.12415E+05, 0.12916E+05, 0.13337E+05,& +0.13834E+05, 0.14397E+05, 0.14983E+05, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarch(23,n),n=1,23)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.64420E+04, 0.69498E+04, 0.75977E+04,& +0.81863E+04, 0.89094E+04, 0.97458E+04, 0.10607E+05, 0.11155E+05, 0.11443E+05,& +0.11782E+05, 0.12164E+05, 0.12561E+05, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarch(24,n),n=1,24)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.55999E+04, 0.60408E+04, 0.66020E+04,& +0.70880E+04, 0.76832E+04, 0.83750E+04, 0.90909E+04, 0.96786E+04, 0.98885E+04,& +0.10118E+05, 0.10374E+05, 0.10637E+05, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarch(25,n),n=1,25)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.48735E+04, 0.52583E+04, 0.57470E+04,& +0.61660E+04, 0.66700E+04, 0.72217E+04, 0.78235E+04, 0.84162E+04, 0.85953E+04,& +0.87498E+04, 0.89198E+04, 0.90907E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00/ +data (abarch(26,n),n=1,26)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.42480E+04, 0.45742E+04, 0.49877E+04,& +0.53505E+04, 0.57835E+04, 0.62430E+04, 0.67549E+04, 0.72897E+04, 0.75073E+04,& +0.76107E+04, 0.77222E+04, 0.78304E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00/ +data (abarch(27,n),n=1,27)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.37128E+04, 0.39889E+04, 0.43384E+04,& +0.46543E+04, 0.50280E+04, 0.54099E+04, 0.58491E+04, 0.63067E+04, 0.65815E+04,& +0.66513E+04, 0.67234E+04, 0.67898E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarch(28,n),n=1,28)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.32507E+04, 0.34939E+04, 0.38016E+04,& +0.40743E+04, 0.43920E+04, 0.46976E+04, 0.50766E+04, 0.54796E+04, 0.57855E+04,& +0.58353E+04, 0.58809E+04, 0.59199E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarch(29,n),n=1,29)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.28356E+04, 0.30476E+04, 0.33154E+04,& +0.35379E+04, 0.38059E+04, 0.41076E+04, 0.44301E+04, 0.47688E+04, 0.50874E+04,& +0.51352E+04, 0.51633E+04, 0.51845E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarch(30,n),n=1,30)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.24670E+04, 0.26464E+04, 0.28729E+04,& +0.30809E+04, 0.33290E+04, 0.35938E+04, 0.38390E+04, 0.41414E+04, 0.44456E+04,& +0.45303E+04, 0.45470E+04, 0.45569E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarch(31,n),n=1,31)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.21568E+04, 0.23211E+04, 0.25284E+04,& +0.26978E+04, 0.29021E+04, 0.31352E+04, 0.33501E+04, 0.36060E+04, 0.38781E+04,& +0.40046E+04, 0.40138E+04, 0.40168E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00/ +data (abarch(32,n),n=1,32)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.18847E+04, 0.20216E+04, 0.21943E+04,& +0.23437E+04, 0.25242E+04, 0.27298E+04, 0.29188E+04, 0.31405E+04, 0.33788E+04,& +0.35454E+04, 0.35499E+04, 0.35489E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00/ +data (abarch(33,n),n=1,33)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.16557E+04, 0.17717E+04, 0.19180E+04,& +0.20500E+04, 0.22098E+04, 0.23916E+04, 0.25583E+04, 0.27365E+04, 0.29461E+04,& +0.31428E+04, 0.31444E+04, 0.31411E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarch(34,n),n=1,34)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.14489E+04, 0.15486E+04, 0.16743E+04,& +0.17911E+04, 0.19318E+04, 0.20881E+04, 0.22352E+04, 0.23881E+04, 0.25675E+04,& +0.27711E+04, 0.27885E+04, 0.27841E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarch(35,n),n=1,35)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.12611E+04, 0.13496E+04, 0.14613E+04,& +0.15650E+04, 0.16877E+04, 0.18146E+04, 0.19444E+04, 0.20938E+04, 0.22391E+04,& +0.24180E+04, 0.24751E+04, 0.24705E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ +data (abarch(36,n),n=1,36)/ & +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.11018E+04, 0.11805E+04, 0.12797E+04,& +0.13718E+04, 0.14800E+04, 0.15887E+04, 0.17036E+04, 0.18296E+04, 0.19537E+04,& +0.21119E+04, 0.21986E+04, 0.21941E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,& +0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00/ + +data pi/3.141592654/ + +!calculating the mass categories (c.g.s) with the lowest diameter +!of 3.125 microns and mass doubling every bin +diam(1)=1.5625*2.e-04 +x(1)=pi/6.*diam(1)**3. +do l=2,15 + x(l)=2.*x(l-1) + diam(l)=(6./pi*x(l))**(0.333333333333) +enddo +do l=16,ibins+1 + x(l)=2.*x(l-1) + !uses power law values in m.k.s. and converts back to c.g.s. + diam(l)=100 * ((x(l) / 1000.0 / cfmass) ** (1./pwmass)) +enddo + +!(Greenan & List) collection kernel by Saleeby 12/07/04 for hail/cloud droplet +! weighted for (x+y) +do i=1,ibins + do j=1,i + akbarch(i,j)=abarch(i,j) + if(akbarch(i,j).lt.0.) akbarch(i,j)=0. + akbarch(36,i)=0. + enddo +enddo + +!Invert here for use in routine 'sxy' +do j=1,ibins + do i=1,j + akbarch(i,j)=akbarch(j,i) + enddo +enddo + +return +END SUBROUTINE data_ch + +!############################################################################## +Subroutine initg2mode (r1,r2,r3,n1,n2,n3,gnu1,gnu2,gnu3,diam,amk,ank & + ,ank1,amk1,ank2,amk2,ank3,amk3,ithresh,ithresh1,ibins) + +use micphys + +implicit none + +integer :: i,ibins,ithresh,ithresh1 +real :: r1,r2,r3,n1,n2,n3,gnu1,gnu2,gnu3,dn1,dn2,dn3,trunc,fac1,fac2,pi & + ,dmean,ex1 +real, dimension(ibins+1) :: diam +real, dimension(ibins) :: amk,ank,amk1,ank1,amk2,ank2,amk3,ank3 + +real, external :: gammln +real, external :: gammp + +! * * +! * Initial triple gamma distribution: n(D) = n1(D) + n2(D) + n3(D) +! * * + +data pi/3.141592654/ +data ex1/0.333333333/ + +! * * +! * gamma spectrum +! * * + +do i=1,ibins + ank1(i)=0. + amk1(i)=0. + ank2(i)=0. + amk2(i)=0. + ank3(i)=0. + amk3(i)=0. +enddo + +!******************************************* +! CLOUD +!******************************************* +dmean = (6.*r1/(pi*n1))**ex1 !mass mean diam +dn1 = dmean * (exp(gammln(gnu1)-gammln(gnu1+3.))) ** ex1 + +do i=1,ithresh + fac1 = gammp(gnu1,diam(i)/dn1) + fac2 = gammp(gnu1,diam(i+1)/dn1) + trunc=fac2-fac1 + ank1(i)=n1*trunc + + fac1 = gammp(gnu1+3.,(diam(i)/dn1)) + fac2 = gammp(gnu1+3.,(diam(i+1)/dn1)) + trunc=fac2-fac1 + amk1(i)=r1*trunc +enddo + +!This is a single bin patch for cases of truncation of cloud1 +ank1(ithresh-1) = ank1(ithresh-1) + ank1(ithresh) +amk1(ithresh-1) = amk1(ithresh-1) + amk1(ithresh) +ank1(ithresh) = 0.0 +amk1(ithresh) = 0.0 + +!******************************************** +! CLOUD 2 +!******************************************** +dmean = (6. * r2 / (pi * n2)) ** ex1 !mass mean diam +dn2 = dmean * (exp(gammln(gnu2)-gammln(gnu2+3.))) ** ex1 + +do i=ithresh,ithresh1+1 + fac1 = gammp(gnu2,diam(i)/dn2) + fac2 = gammp(gnu2,diam(i+1)/dn2) + trunc=fac2-fac1 + ank2(i)=n2*trunc + + fac1 = gammp(gnu2+3.,(diam(i)/dn2)) + fac2 = gammp(gnu2+3.,(diam(i+1)/dn2)) + trunc=fac2-fac1 + amk2(i)=r2*trunc +enddo + +!This is a single bin patch for cases of truncation of cloud2 +ank2(ithresh1) = ank2(ithresh1) + ank2(ithresh1+1) +amk2(ithresh1) = amk2(ithresh1) + amk2(ithresh1+1) +ank2(ithresh1+1) = 0.0 +amk2(ithresh1+1) = 0.0 + +!******************************************** +! RAIN +!******************************************** +dmean = (6. * r3 / (pi * n3)) ** ex1 !mass mean diam +dn3 = dmean * (exp(gammln(gnu3)-gammln(gnu3+3.))) ** ex1 + +do i=ithresh1+1,ibins + fac1 = gammp(gnu3,diam(i)/dn3) + fac2 = gammp(gnu3,diam(i+1)/dn3) + trunc=fac2-fac1 + ank3(i)=n3*trunc + + fac1 = gammp(gnu3+3.,(diam(i)/dn3)) + fac2 = gammp(gnu3+3.,(diam(i+1)/dn3)) + trunc=fac2-fac1 + amk3(i)=r3*trunc +enddo + +!********************************************** +! SUM THE NUMBER AND MASS OF EACH DISTRIBUTION +!********************************************** +do i=1,ibins + ank(i)=ank1(i)+ank2(i)+ank3(i) + amk(i)=amk1(i)+amk2(i)+amk3(i) +enddo + +return +END SUBROUTINE initg2mode + +!############################################################################## +Subroutine sumn (ank,amk,imin,imax,ibins,sun,sum) + +implicit none + +integer :: imin,imax,ibins +real :: sun,sum +real, dimension(ibins) :: ank,amk + +integer :: i + + sum=0. + sun=0. + + do i=imin,imax + sun=sun+ank(i) + sum=sum+amk(i) + enddo + +return +END SUBROUTINE sumn + +!############################################################################## +Subroutine initg1mode (r1,r3,n1,n3,gnu1,gnu3,diam,amk,ank & + ,ank1,amk1,ank3,amk3,ithresh,ibins,hyd) + +use micphys + +implicit none + +integer :: i,ibins,ithresh,hyd +real :: r1,r3,n1,n3,gnu1,gnu3,dn1,dn3,trunc,fac1,fac2,pi,dmean,ex1 +real, dimension(ibins+1) :: diam +real, dimension(ibins) :: amk,ank,amk1,ank1,amk3,ank3 +real, external :: gammln +real, external :: gammp + +data pi/3.141592654/ +data ex1/0.333333333/ + +do i=1,ibins + ank1(i)=0. + amk1(i)=0. + ank3(i)=0. + amk3(i)=0. +enddo + +!******************************************* +! CLOUD +!******************************************* +dmean = (6.*r1/(pi*n1))**ex1 !mass mean diam +dn1 = dmean * (exp(gammln(gnu1)-gammln(gnu1+3.))) ** ex1 + +do i=1,ithresh + fac1 = gammp(gnu1,diam(i)/dn1) + fac2 = gammp(gnu1,diam(i+1)/dn1) + trunc=fac2-fac1 + ank1(i)=n1*trunc + + fac1 = gammp(gnu1+3.,(diam(i)/dn1)) + fac2 = gammp(gnu1+3.,(diam(i+1)/dn1)) + trunc=fac2-fac1 + amk1(i)=r1*trunc +enddo + +!******************************************** +! RAIN, SNOW, AGGREGATES, GRAUPEL, or HAIL +!******************************************** +dmean = 100 * (r3 / n3 / 1000. / cfmas(hyd)) ** (1./pwmas(hyd)) +dn3 = dmean * (exp(gammln(gnu3)-gammln(gnu3+pwmas(hyd)))) ** (1./pwmas(hyd)) + +do i=ithresh+1,ibins + fac1 = gammp(gnu3,diam(i)/dn3) + fac2 = gammp(gnu3,diam(i+1)/dn3) + trunc=fac2-fac1 + ank3(i)=n3*trunc + + fac1 = gammp(gnu3+pwmas(hyd),(diam(i)/dn3)) + fac2 = gammp(gnu3+pwmas(hyd),(diam(i+1)/dn3)) + trunc=fac2-fac1 + amk3(i)=r3*trunc +enddo + +!********************************************** +! SUM THE NUMBER AND MASS OF EACH DISTRIBUTION +!********************************************** +do i=1,ibins + ank(i)=ank1(i)+ank3(i) + amk(i)=amk1(i)+amk3(i) +enddo + +return +END SUBROUTINE initg1mode + +!############################################################################## +Subroutine tabhab () + +use micphys +use mem_grid, only:iprntstmt,print_msg + +implicit none + +integer, parameter :: nhab=0 +integer :: it,is + +if(iprntstmt>=1 .and. print_msg)then + if (nhab .eq. 0) print*,'VARIABLE HABIT PREDICTION' + if (nhab .eq. 3) print*,'ASSUMED HABIT IS COLUMNS' + if (nhab .eq. 8) print*,'ASSUMED HABIT IS HEX PLATES' + if (nhab .eq. 9) print*,'ASSUMED HABIT IS DENDRITES' + if (nhab .eq. 10) print*,'ASSUMED HABIT IS NEEDLES' + if (nhab .eq. 11) print*,'ASSUMED HABIT IS ROSETTES' + !if (nhab .eq. x) print*,'ASSUMED HABIT IS SPHERES' +endif + +! nt is temp, ns = satur (liq) + +do it = 1,31 + do is = 1,100 + if (nhab .eq. 0) then + if (it .ge. 0 .and. it .le. 2) then + if (is .le. 95) then + jhabtab(it,is,1) = 3 + jhabtab(it,is,2) = 4 + else + jhabtab(it,is,1) = 8 + jhabtab(it,is,2) = 12 + endif + else if(it .gt. 2 .and. it .le. 4) then + if (is .lt. 90) then + jhabtab(it,is,1) = 3 + jhabtab(it,is,2) = 4 + else + jhabtab(it,is,1) = 8 + jhabtab(it,is,2) = 12 + endif + else if(it .gt. 4 .and. it .le. 6) then + if (is .lt. 85) then + jhabtab(it,is,1) = 3 + jhabtab(it,is,2) = 4 + else + jhabtab(it,is,1) = 10 + jhabtab(it,is,2) = 14 + endif + else if(it .gt. 6 .and. it .le. 9) then + if (is .lt. 90) then + jhabtab(it,is,1) = 3 + jhabtab(it,is,2) = 4 + else + jhabtab(it,is,1) = 10 + jhabtab(it,is,2) = 14 + endif + else if(it .gt. 9 .and. it .le. 22) then + if (is .lt. 90) then + jhabtab(it,is,1) = 8 + jhabtab(it,is,2) = 12 + else + jhabtab(it,is,1) = 9 + jhabtab(it,is,2) = 13 + endif + elseif(it .gt. 22 .and. it .le. 30) then + if (is .lt. 80) then + jhabtab(it,is,1) = 3 + jhabtab(it,is,2) = 4 + else + jhabtab(it,is,1) = 10 + jhabtab(it,is,2) = 14 + endif + elseif(it .gt. 30) then + if (is .lt. 90) then + jhabtab(it,is,1) = 3 + jhabtab(it,is,2) = 4 + else + jhabtab(it,is,1) = 11 + jhabtab(it,is,2) = 15 + endif + endif + else + jhabtab(it,is,1) = nhab + jhabtab(it,is,2) = nhab + 4 + if (nhab .eq. 3) jhabtab(it,is,2) = 4 + endif + enddo +enddo + +return +END SUBROUTINE tabhab diff --git a/src/6.2.16/micro/mic_vap.f90 b/src/6.2.16/micro/mic_vap.f90 new file mode 100644 index 0000000..607b297 --- /dev/null +++ b/src/6.2.16/micro/mic_vap.f90 @@ -0,0 +1,601 @@ +!############################################################################## +Subroutine thrmstr (m1,k1,k2,thp,theta,rtp,rv & + ,pp,pi0 & + ) + +use rconstants +use micphys + +implicit none + +integer :: m1,k,lcat +real :: fracliq,tcoal,tairstr +integer, dimension(11) :: k1,k2 +real, dimension(m1) :: thp,theta,rtp,rv +real, dimension(m1) :: pp,pi0 + +!OVER WHOLE COLUMN +do k = 1,m1 + pitot(k) = pi0(k) + pp(k) + press(k) = p00 * (pitot(k) * cpi) ** cpor + tair(k) = theta(k) * pitot(k) * cpi +enddo +!LOWER VAPOR LAYER +do k = 1,k1(11)-1 + theta(k) = thp(k) + rv(k) = rtp(k) +enddo +!UPPER VAPOR LAYER +do k = k2(11)+1,m1 + theta(k) = thp(k) + rv(k) = rtp(k) +enddo +!ICE AND LIQUID LAYER +do k = k1(11),k2(11) + til(k) = thp(k) * pitot(k) * cpi + rliq(k) = 0. + rice(k) = 0. +enddo +!CLOUD AND RAIN +do lcat = 1,2 + do k = k1(lcat),k2(lcat) + rliq(k) = rliq(k) + rx(k,lcat) + enddo +enddo +!DRIZZLE MODE +do lcat = 8,8 + do k = k1(lcat),k2(lcat) + rliq(k) = rliq(k) + rx(k,lcat) + enddo +enddo +!PRISTINE ICE, SNOW, AGGREGATES +do lcat = 3,5 + do k = k1(lcat),k2(lcat) + rice(k) = rice(k) + rx(k,lcat) + enddo +enddo +!GRAUPEL AND HAIL +!qtc gets temperature and fraction of liquid from q +do lcat = 6,7 + do k = k1(lcat),k2(lcat) + CALL qtc (qx(k,lcat),tcoal,fracliq) + rliq(k) = rliq(k) + rx(k,lcat) * fracliq + rice(k) = rice(k) + rx(k,lcat) * (1. - fracliq) + enddo +enddo +!FOR ICE/LIQUID LAYER get hydro heat and sat vap mix ratio +do k = k1(11),k2(11) + qhydm(k) = alvl * rliq(k) + alvi * rice(k) + rvstr(k) = rtp(k) - rliq(k) - rice(k) + sa(k,1) = til(k) * qhydm(k) / max(rxmin,rliq(k) + rice(k)) +enddo +!FOR ICE/LIQUID LAYER get temp of sat air in Celcius +do k = k1(11),k2(11) + if (tair(k) .gt. 253.) then + tairstr = 0.5 * (til(k) & + + sqrt(til(k) * (til(k) + cpi4 * qhydm(k)))) + sa(k,1) = sa(k,1) * cpi / (2. * tairstr - til(k)) + else + tairstr = til(k) * (1. + qhydm(k) * cp253i) + sa(k,1) = sa(k,1) * cp253i + endif + tairstrc(k) = tairstr - 273.15 +enddo + +return +END SUBROUTINE thrmstr + +!############################################################################## +Subroutine diffprep (m1,lcat,k1,k2,rv,dn0) + +use rconstants +use micphys + +implicit none + +integer :: m1,lcat,k1,k2,k,if1,if4,if6,if8,lhcat +real :: fre,scdei +real, dimension(m1) :: rv,dn0 + +!CODE BASED ON WALKO ET AL 2000 +!EFFICIENT COMPUTATION OF VAPOR AND HEAT DIFFUSION BETWEEN HYDROMETEORS +!IN A NUMERICAL MODEL + +!DETERMINES WHETHER TO CALCULATE USING LIQUID OR ICE "SA" ARRAYS +if ((lcat .le. 2) .or. (lcat .eq. 8)) then + if1 = 1 + if4 = 4 + if6 = 6 + if8 = 8 +else + if1 = 2 + if4 = 5 + if6 = 7 + if8 = 9 +endif + +do k = k1,k2 + lhcat = jhcat(k,lcat) + + if (rx(k,lcat) .lt. rxmin) go to 229 + + fre = frefac1(lhcat) * emb(k,lcat) ** pwmasi(lhcat) & + + rdynvsci(k) * frefac2(lhcat) * emb(k,lcat) ** cdp1(lhcat) + + sb(k,lcat) = cx(k,lcat) * dn0(k) * fre * pi4dt + su(k,lcat) = vapdif(k) * sb(k,lcat) + +!zero for rain,graupel,hail + sd(k,lcat) = sh(k,lcat) * rx(k,lcat) + se(k,lcat) = su(k,lcat) * sa(k,if6) + sb(k,lcat) * thrmcon(k) + sf(k,lcat) = su(k,lcat) * sl(if1) - sb(k,lcat) * sa(k,2) +!q term used for rain,graupel,hail + sg(k,lcat) = su(k,lcat) * sa(k,if8) + sb(k,lcat) * sa(k,3) & + + sj(lcat) * qr(k,lcat) +!reduces to 1/se if not rain,graupel,hail + scdei = 1. / (sc(if1) * sd(k,lcat) + se(k,lcat)) + ss(k,lcat) = sf(k,lcat) * scdei +!reduces to sg*scdei if not all-liquid species + sw(k,lcat) = (sg(k,lcat) - sk(if1) * sd(k,lcat)) * scdei + ttest(k,lcat) = ss(k,lcat) * rv(k) + sw(k,lcat) + +229 continue + +enddo + +!FOR ALL ICE HYDROS, "SM" IS 1 +!IF PRISTINE,SNOW,AGG ABOVE OR= ZERO, "SH" IS 1 +if (lcat .ge. 3 .and. lcat .le. 5) then + do k = k1,k2 + if (rx(k,lcat) .lt. rxmin) go to 228 + if (ttest(k,lcat) .ge. 0.) then + sm(k,lcat) = 0. + sh(k,lcat) = 1. + sd(k,lcat) = sh(k,lcat) * rx(k,lcat) + scdei = 1. / (sc(if1) * sd(k,lcat) + se(k,lcat)) + ss(k,lcat) = sf(k,lcat) * scdei + sw(k,lcat) = (sg(k,lcat) - sk(if1) * sd(k,lcat)) * scdei + else + sm(k,lcat) = 1. + endif +228 continue + enddo +endif + +!FOR MIXED-PHASE HYDROMETEORS, "SM" IS 0 +if (lcat .ge. 6 .and. lcat .le. 7) then + do k = k1,k2 + if (rx(k,lcat) .lt. rxmin) go to 227 + if (ttest(k,lcat) .ge. 0.) then + sm(k,lcat) = 0. + else + sm(k,lcat) = 1. + endif +227 continue + enddo +endif + +do k = k1,k2 + if (rx(k,lcat) .lt. rxmin) go to 226 + sy(k,lcat) = rvsrefp(k,if1) * sm(k,lcat) * sw(k,lcat) - sa(k,if4) + sz(k,lcat) = 1. - rvsrefp(k,if1) * ss(k,lcat) * sm(k,lcat) + sumuy(k) = sumuy(k) + su(k,lcat) * sy(k,lcat) + sumuz(k) = sumuz(k) + su(k,lcat) * sz(k,lcat) + +226 continue +enddo + +return +END SUBROUTINE diffprep + +!############################################################################## +Subroutine vapdiff (m1,kf1,kf2,rv) + +use micphys + +implicit none + +integer :: m1,kf1,kf2,k +real, dimension(m1) :: rv + +!BASED ON FINAL EQUATION OF WALKO ET AL 2000 +do k = kf1,kf2 + rv(k) = max(0.,(rvstr(k) + sumuy(k)) / (1.0 + sumuz(k))) +enddo + +return +END SUBROUTINE vapdiff + +!############################################################################## +Subroutine vapflux (m1,lcat,k1,k2,rv,i,j) + +use micphys + +implicit none + +integer :: m1,lcat,k,k1,k2,if1,if4,i,j +real :: rxx +real, dimension(m1) :: rv + +!UPDATES MIXING RATIO AND HEAT DUE TO FLUX OF VAPOR +!ALSO LINKED TO WALKO ET AL 2000 + +if ((lcat .le. 2) .or. (lcat .eq. 8)) then + if1 = 1 + if4 = 4 +else + if1 = 2 + if4 = 5 +endif + +do k = k1,k2 + + if (rx(k,lcat) .lt. rxmin) go to 229 + rxx = 0. + rxtemp = rx(k,lcat) + cxtemp = cx(k,lcat) + tx(k,lcat) = (ss(k,lcat) * rv(k) + sw(k,lcat)) * sm(k,lcat) + vap(k,lcat) = su(k,lcat) * (rv(k) + sa(k,if4) - rvsrefp(k,if1) * tx(k,lcat)) + + if (vap(k,lcat) .gt. -rx(k,lcat)) then + + rxx = rx(k,lcat) + vap(k,lcat) + + if (sm(k,lcat) .gt. .5) then + qx(k,lcat) = sc(if1) * tx(k,lcat) + sk(if1) + qr(k,lcat) = qx(k,lcat) * rxx + else + qx(k,lcat) = (rv(k) * sf(k,lcat) + sg(k,lcat) & + - tx(k,lcat) * se(k,lcat)) / sd(k,lcat) + qx(k,lcat) = min(350000.,max(-100000.,qx(k,lcat))) + qr(k,lcat) = qx(k,lcat) * rxx + endif + + endif + +!Do the following section if pristine ice totally melts: evaporate it too. + +!Saleeby(10/5/06): Aerosol restoration source. +!If total evap occurs, transfer aerosol mass within hydromet to regenerated +!aerosol field and add aerosol number that is equal to the number of totally +!evaporated hydrometeors. We calculate the proportion of evaporated mass and +!return the proportion of aerosol mass contained with the hydrometeor species. +!We compute the median radius of restored particles with the assumption of +!log-normal distribution, and if the median radius < 0.96 microns this goes +!to small regenerated mode, otherwise large regenerated mode. + + rxferratio = 0. + cxloss = 0. + + !If we are doing FULL EVAPORATION + if ((lcat .eq. 3 .and. qx(k,lcat) .gt. 330000.) .or. & + vap(k,lcat) .le. -rx(k,lcat)) then + + sumuy(k) = sumuy(k) - su(k,lcat) * sy(k,lcat) + sumuz(k) = sumuz(k) - su(k,lcat) * sz(k,lcat) + sumvr(k) = sumvr(k) + rx(k,lcat) + rv(k) = max(0.,(rvstr(k) + sumuy(k) + sumvr(k)) / (1.0 + sumuz(k))) + vap(k,lcat) = - rx(k,lcat) + tx(k,lcat) = 0. + rx(k,lcat) = 0. + qx(k,lcat) = 0. + qr(k,lcat) = 0. + cxloss = cx(k,lcat) + cx(k,lcat) = 0. + rxferratio = 1. + + !If we are doing VAPOR GROWTH or PARTIAL EVAPORATION + else + + if(vap(k,lcat) .lt. 0.) then + !Compute losses from partial evaporation + fracmass = min(1.,-vap(k,lcat) / rx(k,lcat)) + cxloss = cx(k,lcat) * enmlttab( int(200.*fracmass)+1, jhcat(k,lcat) ) + cx(k,lcat) = cx(k,lcat) - cxloss + rxferratio = rmlttab(int(200.*fracmass)+1,jhcat(k,lcat)) + endif + + rx(k,lcat) = rxx + endif !if (full evaporation occurs) or (vapor growth or partial evap) + + !Aerosol and solubility tracking + if(iccnlev>=2 .and. vap(k,lcat)<0.0 .and. rxferratio > .0001 .and. & + cxloss > 0.0 .and. cnmhx(k,lcat) > 0.0) then + ccnmass = cnmhx(k,lcat) * rxferratio + cnmhx(k,lcat) = cnmhx(k,lcat) - ccnmass + + !For approximation, test rg based on regenerated aerosol + acat=8 + rg=((0.23873/aero_rhosol(acat)*ccnmass/cxloss)**(0.3333))/aero_rg2rm(acat) + if(rg>0.96e-6) then + acat=9 + else + acat=8 + endif + aeromas(k,acat) = aeromas(k,acat) + ccnmass + aerocon(k,acat) = aerocon(k,acat) + cxloss + + if(itrkepsilon==1)then + scnmass = snmhx(k,lcat) * rxferratio + snmhx(k,lcat) = snmhx(k,lcat) - scnmass + regenmas(k,acat-7) = regenmas(k,acat-7) + scnmass + endif + if(itrkdust==1)then + dcnmass = dnmhx(k,lcat) * rxferratio + dnmhx(k,lcat) = dnmhx(k,lcat) - dcnmass + endif + if(itrkdustifn==1)then + dinmass = dinhx(k,lcat) * rxferratio + dinhx(k,lcat) = dinhx(k,lcat) - dinmass + endif + endif + + !Remove immersion freezing nuclei from cloud + if(iifn==3 .and. iccnlev>=1 .and. cxtemp>0.0) then + if(lcat==1.or.lcat==8.or.lcat==2) then + enxferratio = min(1.0,max(0.0,cxloss/cxtemp)) + ccnnum = immerhx(k,lcat) * enxferratio + immerhx(k,lcat) = immerhx(k,lcat) - ccnnum + endif + endif + + !Vapor deposition and evaporation budgets for all species + if(imbudget >= 1) then + if(lcat.eq.1 .or. lcat.eq.2 .or. lcat.eq.8) & + xvapliqt(k) = xvapliqt(k) + vap(k,lcat)*budget_scalet + if(lcat.ge.3 .and. lcat.le.7) & + xvapicet(k) = xvapicet(k) + vap(k,lcat)*budget_scalet + endif + if(imbudget >= 2) then + if(lcat==1) xvapcldt(k) = xvapcldt(k) + vap(k,lcat)*budget_scalet + if(lcat==2) xvapraint(k) = xvapraint(k) + vap(k,lcat)*budget_scalet + if(lcat==3) xvapprist(k) = xvapprist(k) + vap(k,lcat)*budget_scalet + if(lcat==4) xvapsnowt(k) = xvapsnowt(k) + vap(k,lcat)*budget_scalet + if(lcat==5) xvapaggrt(k) = xvapaggrt(k) + vap(k,lcat)*budget_scalet + if(lcat==6) xvapgraut(k) = xvapgraut(k) + vap(k,lcat)*budget_scalet + if(lcat==7) xvaphailt(k) = xvaphailt(k) + vap(k,lcat)*budget_scalet + if(lcat==8) xvapdrizt(k) = xvapdrizt(k) + vap(k,lcat)*budget_scalet + endif + +229 continue + +enddo + +return +END SUBROUTINE vapflux + +!############################################################################## +Subroutine psxfer (k13,k23,k14,k24,i,j) + +use micphys + +implicit none + +integer :: k1,k2,k13,k23,k14,k24,i,j,k,lhcat,it +real :: embx,dn,xlim,dvap,dqr,dnum +real :: old_m,old_c,old_r,prelim_m,delta_c, delta_r + +k1 = min(k13,k14) +k2 = max(k23,k24) + +do k = k1,k2 + + if (vap(k,3) .gt. 0. .or. vap(k,4) .lt. 0.) then + + if (vap(k,3) .gt. 0.) then + lhcat = jhcat(k,3) + embx = max(rxmin,rx(k,3)) / max(1.e-6,cx(k,3)) + dn = dnfac(lhcat) * embx ** pwmasi(lhcat) + it = min(5000,max(1,nint(dn * 1.e6))) + + xlim = gam(it,3) * dps2 * (dps / dn) ** (gnu(3) - 1.) & + / (gamn1(3) * pwmas(lhcat) * dn ** 2) + + dvap = min(rx(k,3), & + vap(k,3) * (xlim + gam(it,1) / gamn1(3))) + dqr = dvap * qx(k,3) + dnum = min(cx(k,3),dvap * min(dpsmi(lhcat),1./embx)) + + !Aerosol and solubility tracking + !Transfer aerosol-in-hydrometeor masses between categories + if(iccnlev>=2) then + ccnmass=0.0 + scnmass=0.0 + dcnmass=0.0 + dinmass=0.0 + if(rx(k,3)>0.0 .and. dvap>0.0) then + rxferratio = min(1.0 , dvap / rx(k,3)) + ccnmass = cnmhx(k,3) * rxferratio + if(itrkepsilon==1) scnmass = snmhx(k,3) * rxferratio + if(itrkdust==1) dcnmass = dnmhx(k,3) * rxferratio + if(itrkdustifn==1) dinmass = dinhx(k,3) * rxferratio + endif + endif + + else + lhcat = jhcat(k,4) + embx = max(rxmin,rx(k,4)) / max(1.e-6,cx(k,4)) + dn = dnfac(lhcat) * embx ** pwmasi(lhcat) + it = min(5000,max(1,nint(dn * 1.e6))) + + xlim = gam(it,3) * dps2 * (dps / dn) ** (gnu(4) - 1.) & + / (gamn1(4) * pwmas(lhcat) * dn ** 2) + + dvap = max(-rx(k,4),vap(k,4) * xlim) + dqr = dvap * qx(k,4) + dnum = max(-cx(k,4),dvap * max(dpsmi(lhcat),1./embx)) + + !Aerosol and solubility tracking + !Transfer aerosol-in-hydrometeor masses between categories + if(iccnlev>=2) then + ccnmass=0.0 + scnmass=0.0 + dcnmass=0.0 + dinmass=0.0 + if(rx(k,4)>0.0 .and. dvap<0.0) then + rxferratio = max(-1.0 , dvap / rx(k,4)) + ccnmass = cnmhx(k,4) * rxferratio + if(itrkepsilon==1) scnmass = snmhx(k,4) * rxferratio + if(itrkdust==1) dcnmass = dnmhx(k,4) * rxferratio + if(itrkdustifn==1) dinmass = dinhx(k,4) * rxferratio + endif + endif + + endif + + !Aerosol and solubility tracking + !Transfer aerosol-in-hydrometeor masses between categories + if(iccnlev>=2) then + cnmhx(k,3) = cnmhx(k,3) - ccnmass + cnmhx(k,4) = cnmhx(k,4) + ccnmass + if(itrkepsilon==1) then + snmhx(k,3) = snmhx(k,3) - scnmass + snmhx(k,4) = snmhx(k,4) + scnmass + endif + if(itrkdust==1) then + dnmhx(k,3) = dnmhx(k,3) - dcnmass + dnmhx(k,4) = dnmhx(k,4) + dcnmass + endif + if(itrkdustifn==1) then + dinhx(k,3) = dinhx(k,3) - dinmass + dinhx(k,4) = dinhx(k,4) + dinmass + endif + endif + + rx(k,3) = rx(k,3) - dvap + cx(k,3) = cx(k,3) - dnum + qr(k,3) = qr(k,3) - dqr + rx(k,4) = rx(k,4) + dvap + cx(k,4) = cx(k,4) + dnum + qr(k,4) = qr(k,4) + dqr + + !Make sure xfers do not create negative values. + if(rx(k,3)<0.0.or.rx(k,4)<0.0.or.cx(k,3)<0.0.or.cx(k,4)<0.0) then + print*,'Pristine ice or snow are negative at PSXFER',k,i,j + print*,rx(k,3),rx(k,4),cx(k,3),cx(k,4),dvap,dnum,vap(k,3),vap(k,4) + stop + endif + + !Carrio 2003: Better xfer pristine to snow to prevent routine + !enemb from artificially creating pristine number concentration + !when a bounds problem appears with the pristine ice cutoff size. + !Compare preliminary calculation pristine mean mass with maximum. + delta_r = 0.0 + prelim_m = 0.0 + if(cx(k,3) > 1.e-6) prelim_m = rx(k,3) / cx(k,3) + if (prelim_m .gt. emb1(3)) then + old_m = (rx(k,3) + dvap) / (cx(k,3) + dnum) + old_c = cx(k,3) + dnum + old_r = rx(k,3) + dvap + delta_r = rx(k,3) - old_c * emb1(3) + delta_c = delta_r / emb1(3) ! delta_c only adds to snow + + !Aerosol and solubility tracking + if(iccnlev>=2) then + ccnmass=0.0 + scnmass=0.0 + dcnmass=0.0 + dinmass=0.0 + endif + + if(delta_r>0.0) then !xfer more Pristine ice to Snow + delta_r = min(rx(k,3),delta_r) + delta_c = delta_r / emb1(3) + !Aerosol and solubility tracking + if(iccnlev>=2) then + if(rx(k,3)>0.0) then + rxferratio = min(1.0 , delta_r / rx(k,3)) + ccnmass = cnmhx(k,3) * rxferratio + if(itrkepsilon==1) scnmass = snmhx(k,3) * rxferratio + if(itrkdust==1) dcnmass = dnmhx(k,3) * rxferratio + if(itrkdustifn==1) dinmass = dinhx(k,3) * rxferratio + endif + endif + elseif(delta_r<0.0) then !xfer more Snow to Pristine ice + delta_r = max(-rx(k,4),delta_r) + delta_c = delta_r / emb1(3) + !Aerosol and solubility tracking + if(iccnlev>=2) then + if(rx(k,4)>0.0) then + rxferratio = max(-1.0 , delta_r / rx(k,4)) + ccnmass = cnmhx(k,4) * rxferratio + if(itrkepsilon==1) scnmass = snmhx(k,4) * rxferratio + if(itrkdust==1) dcnmass = dnmhx(k,4) * rxferratio + if(itrkdustifn==1) dinmass = dinhx(k,4) * rxferratio + endif + endif + endif + + !Aerosol and solubility tracking + if(iccnlev>=2 .and. delta_r /= 0) then + cnmhx(k,3) = cnmhx(k,3) - ccnmass + cnmhx(k,4) = cnmhx(k,4) + ccnmass + if(itrkepsilon==1) then + snmhx(k,3) = snmhx(k,3) - scnmass + snmhx(k,4) = snmhx(k,4) + scnmass + endif + if(itrkdust==1) then + dnmhx(k,3) = dnmhx(k,3) - dcnmass + dnmhx(k,4) = dnmhx(k,4) + dcnmass + endif + if(itrkdustifn==1) then + dinhx(k,3) = dinhx(k,3) - dinmass + dinhx(k,4) = dinhx(k,4) + dinmass + endif + endif + + rx(k,3) = rx(k,3) - delta_r + cx(k,3) = old_c + rx(k,4) = rx(k,4) + delta_r + cx(k,4) = cx(k,4) + delta_c + endif + + endif +enddo + +!Re-determine pris and snow levels since xfers occurred +k13=2 +k14=2 +k23=1 +k24=1 +do k = k1,k2 + if(rx(k,3) >= rxmin) then + k23 = k + else + if(k23 == 1) k13 = k + 1 + endif + if(rx(k,4) >= rxmin) then + k24 = k + else + if(k24 == 1) k14 = k + 1 + endif +enddo + +return +END SUBROUTINE psxfer + +!############################################################################## +Subroutine newtemp (m1,kf1,kf2,rv,theta) + +use rconstants +use micphys + +implicit none + +real, external :: rslf +real, external :: rsif + +integer :: m1,kf1,kf2,k +real, dimension(m1) :: rv,theta + +do k = kf1,kf2 + tairc(k) = tairstrc(k) + sa(k,1) * (rvstr(k) - rv(k)) + tair(k) = tairc(k) + 273.15 + theta(k) = tair(k) * cp / pitot(k) + + rvlsair(k) = rslf(press(k),tair(k)) + rvisair(k) = rsif(press(k),tair(k)) +enddo + +return +END SUBROUTINE newtemp diff --git a/src/6.2.16/micro/micphys.f90 b/src/6.2.16/micro/micphys.f90 new file mode 100644 index 0000000..ac1a32e --- /dev/null +++ b/src/6.2.16/micro/micphys.f90 @@ -0,0 +1,336 @@ +!############################################################################## +Module micphys + +use grid_dims + +implicit none + +!-------------------------------------------------------------------------- +! The product [(nthz-1) * dthz ] must equal 25.0. +! The product [(nrhhz-1) * drhhz] must equal 0.18. +! The product [(ntc-1) * dtc ] must equal 20.0. +! The product [(ndnc-1) * ddnc ] must equal 20.e-6. + +integer, parameter :: nthz=26,nrhhz=10,ngam=5000,ninc=201 & + ,ndns=15,ntc=21,ndnc=11 & + ,ndcc=60,ndcd=20,ndccr=15,nrrcr=30 & + ,ndrcr=30,nrrr=20,ndrr=20 & + ,ncat=8,nhcat=16,npairc=101,npairr=147 & + ,nembc=20 +real, parameter :: dtc=1.,ddnc=2.e-6 ,dthz=1.,drhhz=.02 +real, parameter :: budget_scalet=1. +real, parameter :: rxmin=1.e-12 + +!IDIFFPERTS +!0=normal scalar diffusion +!1=diffuse perturbations THP,RTP from 3D base state +!2=diffuse perturbations THP,RTP from 3D current domain-mean state +!3=diffuse perturbations THP,RTP from 3D varfile state +integer :: idiffperts + +!-------------------------------------------------------------------------- +integer :: level,icloud,idriz,irain,ipris,isnow,iaggr,igraup,ihail & + ,irime,iplaws,iaerosol,idust,idustloft,isalt,iaerorad,iifn & + ,imbudget,isedim,itrkepsilon,itrkdust,itrkdustifn,iaerodep,icheckmic & + ,iaeroprnt,iaerohist,iifn_formula,iscm,iscmx,iscmy + +integer, dimension(maxgrds) :: iaerolbc,ico2lbc +real, dimension(maxgrds) :: bctau + +integer, dimension(ncat) :: jnmb +integer, dimension(nhcat,nhcat) :: ipairc,ipairr +integer, dimension(31,100,2) :: jhabtab +integer, dimension(nzpmax,ncat) :: jhcat,ict1,ict2 + +logical, parameter :: lhrtheta = .true. + +real :: cparm,dparm,rparm,pparm,sparm,aparm,gparm,hparm & + ,rictmin,rictmax,dps,dps2 & + ,d1min,d1max,d2min,d2max,d3min,d3minx,d3max,r3min,r3max & + ,d1ecr,d2ecr,d3ecr,r3ecr,d3err,r3err & + ,colf,pi4dt,sedtime0,sedtime1 & + ,dimin,diminx,dimax,rimin,rimax,dieci,rieci,scmtime + +real, dimension(ncat) :: emb0,emb1,gnu,parm,emb0log,emb1log,dict +real, dimension(nhcat) :: shape,cfmas,pwmas,cfvt,pwvt,dpsmi,cfden,pwden & + ,cfemb0,cfen0,pwemb0,pwen0,frefac1,frefac2 & + ,dnfac,sipfac,pwmasi,ch1,ch3,cdp1,pwvtmasi +real, dimension(nzpmax) :: tair,tairc,tairstrc,til,rvstr,press,pitot & + ,rliq,rice,qhydm,rvlsair,rvisair,rvs0,thrmcon & + ,vapdif,dynvisc,rdynvsci,denfac,dn0i,colfacr & + ,colfacr2,colfacc,colfacc2,sumuy,sumuz,sumvr & + ,scrmic1,scrmic2,scrmic3 +real, dimension(nzpmax,ncat) :: rx,cx,qr,qx,tx,pcpvx,emb,vap,ttest,wct1 & + ,wct2,sb,sd,se,sf,sg,sh,sm,ss,su,sw,sy,sz & + ,rx_lhr,qx_lhr +real, dimension(nzpmax,2) :: tref,rvsref,rvsrefp +real, dimension(nzpmax,9) :: sa +real, dimension(nzpmax,12) :: eff + +!Arrays for pristine ice - rain collisions +real,dimension(95) :: rdbF94 +real,dimension(94) :: radF94,ramF94,avtF94 + +real, dimension(nzpmax,ncat,ncat) :: rxfer,qrxfer,enxfer +real, dimension(nhcat,maxgrds) :: dispemb0,dispemb1,ch2 + +real, dimension(nembc,nembc,npairc) :: coltabc +real, dimension(nembc,nembc,npairr) :: coltabr + +real, dimension(nrhhz,nthz) :: frachz +real, dimension(ndnc,ntc,maxgrds) :: fracc +real, dimension(4) :: gamm,gamn1 +real, dimension(ngam,3) :: gam +real, dimension(ngam,2) :: gaminc +real, dimension(2,ngam) :: gamsip13,gamsip24 +real, dimension(ninc,nhcat) :: rmlttab +real, dimension(ninc,nhcat) :: enmlttab +real, dimension(ninc,ndns) :: shedtab +real, dimension(2) :: sc,sk,sl +real, dimension(8) :: sj,pcprx,accpx + +!Lookup tables for droplet autoconversion and liquid collection +real, dimension(ndcc) :: r1tabcc,c1tabcc,c2tabcc +real, dimension(ndcc) :: r2tabdd,c2tabdd,c3tabdd +real, dimension(ndcd,ndcd) :: r1tabcd,c1tabcd,r2tabcd,c2tabcd +real, dimension(ndccr,nrrcr,ndrcr) :: r1tabcr,c1tabcr,r2tabcr,c2tabcr +real, dimension(nrrr,ndrr) :: c3tabrr + +character(len=strl1) :: dustfile + +!Lookup table arrays for Binned Riming Scheme +real, dimension(ndccr,nrrcr,ndrcr,4) :: r1tabci,c1tabci,r2tabci,c2tabci & + ,r1rimer,r2rimer + +!******Variables Needed for COMPUTING BUDGETS ****************************** +!For imbudget>=1 +real, dimension(nzpmax) :: xlatheatvap,xlatheatfrz,xnuccldrt,xcld2raint & +,xice2raint,xnucicert,xvapliqt,xvapicet,xmelticet,xrimecldt,xaggregatet & +,xrain2icet,xlatheatvapt,xlatheatfrzt + +!For imbudget>=2 +real, dimension(nzpmax) :: xinuchomrt,xinuccontrt,xinucifnrt,xinuchazrt & +,xvapcldt,xvapraint,xvapprist,xvapsnowt,xvapaggrt,xvapgraut,xvaphailt & +,xvapdrizt,xmeltprist,xmeltsnowt,xmeltaggrt,xmeltgraut,xmelthailt & +,xrimecldsnowt,xrimecldaggrt,xrimecldgraut,xrimecldhailt,xrain2prt & +,xrain2snt,xrain2agt,xrain2grt,xrain2hat,xaggrselfprist & +,xaggrselfsnowt,xaggrprissnowt + +!For imbudget>=3 +real, dimension(nzpmax) :: xdust1cldrt,xdust2cldrt,xdust1drzrt,xdust2drzrt + +!******Variables Needed for BUBBLE SIMULATION ****************************** +integer :: ibubble,ibubgrd,ibdxia,ibdxiz,ibdyja,ibdyjz,ibdzk1,ibdzk2 +real :: bthp,brtp + +!******Variables Needed for CONVERGENCE FORCING **************************** +integer :: iconv,icongr,icicent,icjcent,icvert,ickmax,ickcent +real :: cxrad,cyrad,czrad,cdivmax,ctau,ctmax + +!******Variables Needed for CCN nucleation and restore ********************* +integer :: iccnlev,ic,rgb +real :: cin_max,ccn_max,gccn_max,dust1_max,dust2_max,saltf_max,saltj_max & + ,salts_max,enxferratio,rxferratio,ccnmass,ccnnum,rxtemp,cxtemp,fracmass & + ,cxloss,concen_nuc,aeromass,rg,rhosol,cldrat,epsil,ant,rcm,rmlar,rmsma & + ,power,scnmass,dcnmass,dinmass +real, dimension(nzpmax) :: nifn + +!Tracking total aerosol mass, immersion freezing number in hydrometeors cats +real, dimension(nzpmax,ncat) :: cnmhx,immerhx,snmhx,dnmhx,dinhx +real, dimension(ncat) :: pcpraerox,accpaerox,pcprdustx,accpdustx +real, dimension(nzpmax) :: ifnnucx,total_in + +!Number of bins in lognormal aerosol distribution +!If you change itbin, you need to recheck its use in micro +!Current rg thresholds are set for itbin of 100 +integer, parameter :: itbin=100 +real, dimension(itbin) :: binrad,smass,ccncon,ccnmas + +!Solubility fraction (epsilon) +integer,parameter :: maxeps=7 +real, dimension(maxeps) :: epsfrac +data epsfrac / 0.05,0.1,0.2,0.4,0.6,0.8,1.0 / + +!Median radii (meters) for CCN +integer, parameter :: maxrg=20 +real, dimension(maxrg) :: rg_ccn +data rg_ccn / 0.01e-6,0.02e-6,0.04e-6,0.08e-6 & + ,0.16e-6,0.32e-6,0.48e-6,0.64e-6 & + ,0.96e-6,1.50e-6,2.00e-6,2.50e-6 & + ,3.00e-6,3.50e-6,4.00e-6,4.50e-6 & + ,5.00e-6,5.50e-6,6.00e-6,6.50e-6 / + +!Number of aerosol species being used & Ice nuclei arrays +!Make sure you change both if you alter number of species +!Each category can have the soluble component be either +!Ammonium sulfate (NH4-2SO4) or Sodium chloride (NaCl) +! 1 = Sub-micron CCN +! 2 = Super-micron GCCN +! 3 = Small mode mineral dust (soluble coating) +! 4 = Large mode mineral dust (soluble coating) +! 5 = Film mode sea salt +! 6 = Jet mode sea salt +! 7 = Spume mode sea salt +! 8 = Sub-micron radius regenerated mixed aerosols +! 9 = Super-micron radius regenerated mixed aerosols +integer :: acat +integer, parameter :: aerocat=9 +real, dimension(nzpmax) :: cifnx +real, dimension(nzpmax,2) :: regenmas +real, dimension(nzpmax,aerocat) :: totifnn,totifnm,aerocon,aeromas +real, dimension(aerocat) :: aero_rhosol,aero_epsilon,aero_medrad & + ,aero_sigma,aero_rg2rm,aero_rg,aero_vap,aero_ratio +integer, dimension(aerocat) :: iaero_chem,aero_vanthoff + +!Minimum aerosol concentration (#/kg) and mass (kg/kg) +!values for condition statements involving aerosols +real, parameter :: mincon=1.e-1 & + ,minmas=1.e-21 & + ,maxaero=20000.e6 & + ,minmashydro=1.e-27 & + ,minifn=1.e-14 + +!Aerosol distribution spectral width (sigma) +!Note: do not change this unless you update cloud nucleation lookup +!tables with parcel model runs using a new sigma. The median radii bins +!in nucleation and pre_nucleation routines (rg, rmsma, rmlar) are also +!specifically set for sigma=1.8. These would need to be updated as well. +data aero_sigma / 1.80 & !CCN + ,1.80 & !GCCN + ,1.80 & !small mineral dust + ,1.80 & !large mineral dust + ,1.80 & !salt film mode + ,1.80 & !salt jet mode + ,1.80 & !salt spume mode + ,1.80 & !sub-micro regenerated aerosol (mixed) + ,1.80 / !super-micro regenerated aerosol (mixed) +!Set the relationship between median radius and mean mass radius +!based on aerosol distribution spectral width +!exp(1.5 * (alog(sigma))**2) +data aero_rg2rm / 1.6791 & !CCN + ,1.6791 & !GCCN + ,1.6791 & !small mineral dust + ,1.6791 & !large mineral dust + ,1.6791 & !salt film mode + ,1.6791 & !salt jet mode + ,1.6791 & !salt spume mode + ,1.6791 & !sub-micro regenerated aerosol (mixed) + ,1.6791 / !super-micro regenerated aerosol (mixed) + +!********************************************************************* +! R.W. Carver's banded sedimentation scheme, defines band number, and +! banded variables from data derived from Mitchell (1996) +! Last Updated on 03-30-2005 +!--------------------------------------------------------------------- +! Notes on banded data +! The idea is simple, looking at Mitchell's power-law data, on a +! log-log scale, we see that vt(diam) is a curve that can be +! well approximated by a set of power-laws. The starting point +! for the valid range of each law is given by rc_diam. For diams < +! the first band cutoff, we just use the data for the first band. Not +! much of a problem since the first cutoffs are near dmb0 +!--------------------------------------------------------------------- +integer, parameter :: nband=3,nembfall=40,ndensrtgt=40,maxkfall=4 +real, dimension(nband,nhcat) :: bcfvt,bpwvt,bdenpow,bdiam + +!Band Data by Habit + !Small !Medium !Large +data bcfvt / 1.26E7, 1.26E7, 234101.5, & ! 1 cloud + 2032., 143.9, 143.9, & ! 2 rain + 3207543., 72523., 1538., & ! 3 pristine columns + 871., 27.7, 5.00, & ! 4 snow columns + 427.3, 16.1, 3.26, & ! 5 aggregates + 22133.2, 332.4, 34.9, & ! 6 graupel + 256914., 2183., 152.1, & ! 7 hail + 106861., 106861., 20801., & ! 8 pristine hex + 74256., 754, 56.4, & ! 9 pristine dendrites (fix) + 37880., 37880., 1617.9, & ! 10 pristine needles + 183098., 183098., 6239., & ! 11 pristine rosette + 968.1, 30.08, 5.33, & ! 12 snow hex + 753.9, 56.4, 3.39, & ! 13 snow dendrites + 1617., 44.6, 7.26, & ! 14 snow needles + 6239., 125.7, 16.3, & ! 15 snow rosettes + 1.26E7, 1.26E7, 234101.5 / ! 16 drizzle droplets + +data bpwvt / 1.91, 1.91, 1.493, & + 0.914, 0.497, 0.497, & + 1.82, 1.42, 1.00, & + 0.933, 0.484, 0.161, & + 0.844, 0.416, 0.108, & + 1.33, 0.786, 0.397, & + 1.493, 0.914, 0.497, & + 1.522, 1.522, 1.377, & + 1.492, 0.978, 0.695, & + 1.31, 1.31, 0.983, & + 1.61, 1.61, 1.24, & + 1.04, 0.563, 0.222, & + 0.979, 0.695, 0.302, & + 0.982, 0.522, 0.191, & + 1.24, 0.716, 0.342, & + 1.91, 1.91, 1.493 / + +data bdenpow / 0.0, 0.0, 0.0, & + 0.169, 0.362, 0.501, & + 0.0, 0.0, 0.0, & + 0.169, 0.362, 0.501, & + 0.169, 0.362, 0.501, & + 0.169, 0.362, 0.501, & + 0.169, 0.362, 0.501, & + 0.0, 0.0, 0.0, & + 0.0, 0.0, 0.0, & + 0.0, 0.0, 0.0, & + 0.0, 0.0, 0.0, & + 0.169, 0.362, 0.501, & + 0.169, 0.362, 0.501, & + 0.169, 0.362, 0.501, & + 0.169, 0.362, 0.501, & + 0.0, 0.0, 0.0 / + +data bdiam / 15E-6, 25E-6, 71E-6, & + 275E-6, 1768E-6, 11768E-6, & + 15E-6, 86E-6, 101E-6, & + 301E-6, 462E-6, 5091E-6, & + 76E-6, 471E-6, 5820E-6, & + 99E-6, 422E-6, 3099E-6, & + 69E-6, 265E-6, 1704E-6, & + 15E-6, 25E-6, 101E-6, & + 15E-6, 101E-6, 108E-6, & + 15E-6, 25E-6, 75E-6, & + 15E-6, 25E-6, 120E-6, & + 123E-6, 646E-6, 6314E-6, & + 101E-6, 108E-6, 789E-6, & + 75E-6, 410E-6, 4254E-6, & + 120E-6, 541E-6, 4311E-6, & + 15E-6, 25E-6, 71E-6 / +!--------------------------------------------------------------- +!lcat Species Category +! 1 cloud +! 2 rain +! 3 pristine +! 4 snow +! 5 aggregate +! 6 graupel +! 7 hail +! 8 large cloud droplets +!--------------------------------------------------------------- +!--------------------------------------------------------------- +!lhcat Habit Category +! 1 cloud +! 2 rain +! 3 pristine columns +! 4 snow columns +! 5 aggregates +! 6 graupel +! 7 hail +! 8 pristine hex +! 9 pristine dendrites +! 10 pristine needles +! 11 pristine rosette +! 12 snow hex +! 13 snow dendrites +! 14 snow needles +! 15 snow rosettes +! 16 large cloud droplets +!--------------------------------------------------------------- + +END MODULE micphys diff --git a/src/6.2.16/micro/write_scm.f90 b/src/6.2.16/micro/write_scm.f90 new file mode 100644 index 0000000..1a4ab0f --- /dev/null +++ b/src/6.2.16/micro/write_scm.f90 @@ -0,0 +1,348 @@ +!############################################################################## +Subroutine simdata (fname,fln) + +use mem_grid +use node_mod, only:mmzp,mzp +use io_params, only:frqstate + +implicit none + +integer :: i +character(len=*) :: fname,fln +character(len=64) :: fullname + +fullname=trim(fln)//trim(fname) + +open(50,file=trim(fullname),status='unknown') +write(50,*)iyear1 +write(50,*)imonth1 +write(50,*)idate1 +write(50,*)itime1 +write(50,*) +write(50,*)dtlt +write(50,*)time +write(50,*)ngrid +write(50,*)mzp +write(50,*) +write(50,*)ngrids +do i=1,ngrids +write(50,*)mmzp(i) +enddo +do i=1,ngrids +write(50,*)frqstate(i) +enddo +close(50) + +return +END SUBROUTINE simdata + +!############################################################################## +Subroutine iofil (fname,x,ix,wf,fln) + +use mem_grid, only:time,dtlt + +implicit none + +character(len=*) :: fname,fln +character(len=64) :: fullname +integer :: ix !number vertical levels +integer :: wf !read or write flag +real, dimension(ix) :: x !variable to read/write + +integer k,l + +fullname=trim(fln)//trim(fname) + +!READ SCM DATA +if(wf == 1) then + stop 'No reading of SCM data for full RAMS model' +!WRITE SCM DATA +elseif (wf >= 2) then + open(50,file=trim(fullname),status='unknown') + if(wf==2)write(50,*)'Elapsed time',time + if(wf==3)write(50,*)'Elapsed time',time+dtlt + do k=1,ix + write(50,'(i5,e26.18)') k,x(k) + enddo + close(50) +endif + +return +END SUBROUTINE iofil + +!############################################################################## +Subroutine readwrite_scm (wf,fln) + +use mem_basic +use mem_micro +use mem_grid +use mem_radiate +use mem_leaf +use micphys +use rconstants +use node_mod, only:mi0,mj0,my_rams_num,my_scm_num,mzp + +implicit none + +character(len=*) :: fln +integer :: m1,k,i,j,wf,ng + +if(iprntstmt>=1 .and. my_rams_num==my_scm_num) & + print*,'Writing out SCM variables at time:',time,' on grid:',ngrid + +!Set the grid we are on to local variable +ng = ngrid +m1 = mzp + +!Get sub-grid point associated with absolute point +i=iscmx-mi0(ng) +j=iscmy-mj0(ng) + +!Compute pressure from Exner function +do k=1,m1 + pitot(k) = basic_g(ng)%pi0(k,i,j) + basic_g(ng)%pp(k,i,j) + press(k) = p00 * (pitot(k) * cpi) ** cpor +enddo +call iofil('pressure.txt' ,press(:),m1,wf,fln) + +!Output all the potential variables in the chosen column +call iofil('soil_water.txt',leaf_g(ng)%soil_water(nzg,i,j,:),npatch,wf,fln) +call iofil('patch_area.txt',leaf_g(ng)%patch_area(i,j,:),npatch,wf,fln) +call iofil('leaf_class.txt',leaf_g(ng)%leaf_class(i,j,:),npatch,wf,fln) +call iofil('soil_text.txt' ,leaf_g(ng)%soil_text(nzg,i,j,:),npatch,wf,fln) + +call iofil('zm.txt',zm,m1,wf,fln) +call iofil('zt.txt',zt,m1,wf,fln) +call iofil('glat.txt',grid_g(ng)%glat(i,j),1,wf,fln) +call iofil('glon.txt',grid_g(ng)%glon(i,j),1,wf,fln) +call iofil('topt.txt',grid_g(ng)%topt(i,j),1,wf,fln) + +call iofil('up.txt' ,basic_g(ng)%up (:,i,j),m1,wf,fln) +call iofil('vp.txt' ,basic_g(ng)%vp (:,i,j),m1,wf,fln) +call iofil('wp.txt' ,basic_g(ng)%wp (:,i,j),m1,wf,fln) +call iofil('thp.txt' ,basic_g(ng)%thp (:,i,j),m1,wf,fln) +call iofil('theta.txt',basic_g(ng)%theta(:,i,j),m1,wf,fln) +call iofil('pp.txt' ,basic_g(ng)%pp (:,i,j),m1,wf,fln) +call iofil('rtp.txt' ,basic_g(ng)%rtp (:,i,j),m1,wf,fln) +call iofil('rv.txt' ,basic_g(ng)%rv (:,i,j),m1,wf,fln) +call iofil('dn0.txt' ,basic_g(ng)%dn0 (:,i,j),m1,wf,fln) +call iofil('pi0.txt' ,basic_g(ng)%pi0 (:,i,j),m1,wf,fln) + +if(iswrtyp == 3 .or. ilwrtyp == 3) then + call iofil('fthrd.txt' ,radiate_g(ng)%fthrd (:,i,j),m1,wf,fln) + call iofil('fthrdp.txt' ,radiate_g(ng)%fthrdp (:,i,j),m1,wf,fln) + call iofil('bext.txt' ,radiate_g(ng)%bext (:,i,j),m1,wf,fln) + call iofil('swdn.txt' ,radiate_g(ng)%swdn (:,i,j),m1,wf,fln) + call iofil('swup.txt' ,radiate_g(ng)%swup (:,i,j),m1,wf,fln) + call iofil('lwdn.txt' ,radiate_g(ng)%lwdn (:,i,j),m1,wf,fln) + call iofil('lwup.txt' ,radiate_g(ng)%lwup (:,i,j),m1,wf,fln) + call iofil('rshort.txt' ,radiate_g(ng)%rshort (i,j),1,wf,fln) + call iofil('rlong.txt' ,radiate_g(ng)%rlong (i,j),1,wf,fln) + call iofil('rlongup.txt',radiate_g(ng)%rlongup(i,j),1,wf,fln) + call iofil('albedt.txt' ,radiate_g(ng)%albedt (i,j),1,wf,fln) + call iofil('cosz.txt' ,radiate_g(ng)%cosz (i,j),1,wf,fln) + call iofil('aodt.txt' ,radiate_g(ng)%aodt (i,j),1,wf,fln) +endif + +if(iaerosol > 0) then + call iofil('cccnp.txt',micro_g(ng)%cccnp(:,i,j),m1,wf,fln) + call iofil('cccmp.txt',micro_g(ng)%cccmp(:,i,j),m1,wf,fln) + call iofil('gccnp.txt',micro_g(ng)%gccnp(:,i,j),m1,wf,fln) + call iofil('gccmp.txt',micro_g(ng)%gccmp(:,i,j),m1,wf,fln) +endif + +if(idust > 0) then + call iofil('md1np.txt',micro_g(ng)%md1np(:,i,j),m1,wf,fln) + call iofil('md2np.txt',micro_g(ng)%md2np(:,i,j),m1,wf,fln) + call iofil('md1mp.txt',micro_g(ng)%md1mp(:,i,j),m1,wf,fln) + call iofil('md2mp.txt',micro_g(ng)%md2mp(:,i,j),m1,wf,fln) + if(idust == 2) call iofil('dustfrac.txt',micro_g(ng)%dustfrac(i,j),1,wf,fln) +endif + +if(isalt > 0) then + call iofil('salt_film_np.txt',micro_g(ng)%salt_film_np(:,i,j),m1,wf,fln) + call iofil('salt_jet_np.txt' ,micro_g(ng)%salt_jet_np (:,i,j),m1,wf,fln) + call iofil('salt_spum_np.txt',micro_g(ng)%salt_spum_np(:,i,j),m1,wf,fln) + call iofil('salt_film_mp.txt',micro_g(ng)%salt_film_mp(:,i,j),m1,wf,fln) + call iofil('salt_jet_mp.txt' ,micro_g(ng)%salt_jet_mp (:,i,j),m1,wf,fln) + call iofil('salt_spum_mp.txt',micro_g(ng)%salt_spum_mp(:,i,j),m1,wf,fln) +endif + +if(level == 2 .or. level == 3) then + call iofil('rcp.txt',micro_g(ng)%rcp(:,i,j),m1,wf,fln) +endif + +if(level == 3) then + call iofil('pcpg.txt' ,micro_g(ng)%pcpg (i,j),1,wf,fln) + call iofil('qpcpg.txt',micro_g(ng)%qpcpg(i,j),1,wf,fln) + call iofil('dpcpg.txt',micro_g(ng)%dpcpg(i,j),1,wf,fln) + if(ipris>=5 .and. (iifn==1.or.iifn==2)) then + call iofil('cifnp.txt',micro_g(ng)%cifnp(:,i,j),m1,wf,fln) + endif + if(idriz >= 1) then + call iofil('rdp.txt' ,micro_g(ng)%rdp (:,i,j),m1,wf,fln) + call iofil('pcpvd.txt',micro_g(ng)%pcpvd(:,i,j),m1,wf,fln) + call iofil('pcprd.txt',micro_g(ng)%pcprd(i,j),1,wf,fln) + call iofil('accpd.txt',micro_g(ng)%accpd(i,j),1,wf,fln) + endif + if(irain >= 1) then + call iofil('rrp.txt' ,micro_g(ng)%rrp (:,i,j),m1,wf,fln) + call iofil('pcpvr.txt',micro_g(ng)%pcpvr(:,i,j),m1,wf,fln) + call iofil('q2.txt' ,micro_g(ng)%q2 (:,i,j),m1,wf,fln) + call iofil('pcprr.txt',micro_g(ng)%pcprr(i,j),1,wf,fln) + call iofil('accpr.txt',micro_g(ng)%accpr(i,j),1,wf,fln) + endif + if(ipris >= 1) then + call iofil('rpp.txt' ,micro_g(ng)%rpp (:,i,j),m1,wf,fln) + call iofil('pcpvp.txt',micro_g(ng)%pcpvp(:,i,j),m1,wf,fln) + call iofil('pcprp.txt',micro_g(ng)%pcprp(i,j),1,wf,fln) + call iofil('accpp.txt',micro_g(ng)%accpp(i,j),1,wf,fln) + endif + if(isnow >= 1) then + call iofil('rsp.txt' ,micro_g(ng)%rsp (:,i,j),m1,wf,fln) + call iofil('pcpvs.txt',micro_g(ng)%pcpvs(:,i,j),m1,wf,fln) + call iofil('pcprs.txt',micro_g(ng)%pcprs(i,j),1,wf,fln) + call iofil('accps.txt',micro_g(ng)%accps(i,j),1,wf,fln) + endif + if(iaggr >= 1) then + call iofil('rap.txt' ,micro_g(ng)%rap (:,i,j),m1,wf,fln) + call iofil('pcpva.txt',micro_g(ng)%pcpva(:,i,j),m1,wf,fln) + call iofil('pcpra.txt',micro_g(ng)%pcpra(i,j),1,wf,fln) + call iofil('accpa.txt',micro_g(ng)%accpa(i,j),1,wf,fln) + endif + if(igraup >= 1) then + call iofil('rgp.txt' ,micro_g(ng)%rgp (:,i,j),m1,wf,fln) + call iofil('pcpvg.txt',micro_g(ng)%pcpvg(:,i,j),m1,wf,fln) + call iofil('q6.txt' ,micro_g(ng)%q6 (:,i,j),m1,wf,fln) + call iofil('pcprg.txt',micro_g(ng)%pcprg(i,j),1,wf,fln) + call iofil('accpg.txt',micro_g(ng)%accpg(i,j),1,wf,fln) + endif + if(ihail >=1) then + call iofil('rhp.txt' ,micro_g(ng)%rhp (:,i,j),m1,wf,fln) + call iofil('pcpvh.txt',micro_g(ng)%pcpvh(:,i,j),m1,wf,fln) + call iofil('q7.txt' ,micro_g(ng)%q7 (:,i,j),m1,wf,fln) + call iofil('pcprh.txt',micro_g(ng)%pcprh(i,j),1,wf,fln) + call iofil('accph.txt',micro_g(ng)%accph(i,j),1,wf,fln) + endif + if(jnmb(1) >= 5) call iofil('ccp.txt',micro_g(ng)%ccp(:,i,j),m1,wf,fln) + if(jnmb(8) >= 5) call iofil('cdp.txt',micro_g(ng)%cdp(:,i,j),m1,wf,fln) + if(jnmb(2) >= 5) call iofil('crp.txt',micro_g(ng)%crp(:,i,j),m1,wf,fln) + if(jnmb(3) >= 5) call iofil('cpp.txt',micro_g(ng)%cpp(:,i,j),m1,wf,fln) + if(jnmb(4) >= 5) call iofil('csp.txt',micro_g(ng)%csp(:,i,j),m1,wf,fln) + if(jnmb(5) >= 5) call iofil('cap.txt',micro_g(ng)%cap(:,i,j),m1,wf,fln) + if(jnmb(6) >= 5) call iofil('cgp.txt',micro_g(ng)%cgp(:,i,j),m1,wf,fln) + if(jnmb(7) >= 5) call iofil('chp.txt',micro_g(ng)%chp(:,i,j),m1,wf,fln) + if(iccnlev >= 2) then + call iofil('regen_aero1_np.txt',micro_g(ng)%regen_aero1_np(:,i,j),m1,wf,fln) + call iofil('regen_aero1_mp.txt',micro_g(ng)%regen_aero1_mp(:,i,j),m1,wf,fln) + call iofil('regen_aero2_np.txt',micro_g(ng)%regen_aero2_np(:,i,j),m1,wf,fln) + call iofil('regen_aero2_mp.txt',micro_g(ng)%regen_aero2_mp(:,i,j),m1,wf,fln) + if(jnmb(1)>=1) call iofil('cnmcp.txt',micro_g(ng)%cnmcp(:,i,j),m1,wf,fln) + if(jnmb(8)>=1) call iofil('cnmdp.txt',micro_g(ng)%cnmdp(:,i,j),m1,wf,fln) + if(jnmb(2)>=1) call iofil('cnmrp.txt',micro_g(ng)%cnmrp(:,i,j),m1,wf,fln) + if(jnmb(3)>=1) call iofil('cnmpp.txt',micro_g(ng)%cnmpp(:,i,j),m1,wf,fln) + if(jnmb(4)>=1) call iofil('cnmsp.txt',micro_g(ng)%cnmsp(:,i,j),m1,wf,fln) + if(jnmb(5)>=1) call iofil('cnmap.txt',micro_g(ng)%cnmap(:,i,j),m1,wf,fln) + if(jnmb(6)>=1) call iofil('cnmgp.txt',micro_g(ng)%cnmgp(:,i,j),m1,wf,fln) + if(jnmb(7)>=1) call iofil('cnmhp.txt',micro_g(ng)%cnmhp(:,i,j),m1,wf,fln) + call iofil('accpaero.txt',micro_g(ng)%accpaero(i,j),1,wf,fln) + call iofil('pcpraero.txt',micro_g(ng)%pcpraero(i,j),1,wf,fln) + if(itrkdust==1 .and. idust>0) then + call iofil('accpdust.txt',micro_g(ng)%accpdust(i,j),1,wf,fln) + call iofil('pcprdust.txt',micro_g(ng)%pcprdust(i,j),1,wf,fln) + if(jnmb(1)>=1) call iofil('dnmcp.txt',micro_g(ng)%dnmcp(:,i,j),m1,wf,fln) + if(jnmb(8)>=1) call iofil('dnmdp.txt',micro_g(ng)%dnmdp(:,i,j),m1,wf,fln) + if(jnmb(2)>=1) call iofil('dnmrp.txt',micro_g(ng)%dnmrp(:,i,j),m1,wf,fln) + if(jnmb(3)>=1) call iofil('dnmpp.txt',micro_g(ng)%dnmpp(:,i,j),m1,wf,fln) + if(jnmb(4)>=1) call iofil('dnmsp.txt',micro_g(ng)%dnmsp(:,i,j),m1,wf,fln) + if(jnmb(5)>=1) call iofil('dnmap.txt',micro_g(ng)%dnmap(:,i,j),m1,wf,fln) + if(jnmb(6)>=1) call iofil('dnmgp.txt',micro_g(ng)%dnmgp(:,i,j),m1,wf,fln) + if(jnmb(7)>=1) call iofil('dnmhp.txt',micro_g(ng)%dnmhp(:,i,j),m1,wf,fln) + endif + if(itrkdustifn==1 .and. idust>0) then + if(jnmb(1)>=1) call iofil('dincp.txt',micro_g(ng)%dincp(:,i,j),m1,wf,fln) + if(jnmb(8)>=1) call iofil('dindp.txt',micro_g(ng)%dindp(:,i,j),m1,wf,fln) + if(jnmb(2)>=1) call iofil('dinrp.txt',micro_g(ng)%dinrp(:,i,j),m1,wf,fln) + if(jnmb(3)>=1) call iofil('dinpp.txt',micro_g(ng)%dinpp(:,i,j),m1,wf,fln) + if(jnmb(4)>=1) call iofil('dinsp.txt',micro_g(ng)%dinsp(:,i,j),m1,wf,fln) + if(jnmb(5)>=1) call iofil('dinap.txt',micro_g(ng)%dinap(:,i,j),m1,wf,fln) + if(jnmb(6)>=1) call iofil('dingp.txt',micro_g(ng)%dingp(:,i,j),m1,wf,fln) + if(jnmb(7)>=1) call iofil('dinhp.txt',micro_g(ng)%dinhp(:,i,j),m1,wf,fln) + endif + if(itrkepsilon==1) then + call iofil('resol_aero1_mp.txt',micro_g(ng)%resol_aero1_mp(:,i,j),m1,wf,fln) + call iofil('resol_aero2_mp.txt',micro_g(ng)%resol_aero2_mp(:,i,j),m1,wf,fln) + if(jnmb(1)>=1) call iofil('snmcp.txt',micro_g(ng)%snmcp(:,i,j),m1,wf,fln) + if(jnmb(8)>=1) call iofil('snmdp.txt',micro_g(ng)%snmdp(:,i,j),m1,wf,fln) + if(jnmb(2)>=1) call iofil('snmrp.txt',micro_g(ng)%snmrp(:,i,j),m1,wf,fln) + if(jnmb(3)>=1) call iofil('snmpp.txt',micro_g(ng)%snmpp(:,i,j),m1,wf,fln) + if(jnmb(4)>=1) call iofil('snmsp.txt',micro_g(ng)%snmsp(:,i,j),m1,wf,fln) + if(jnmb(5)>=1) call iofil('snmap.txt',micro_g(ng)%snmap(:,i,j),m1,wf,fln) + if(jnmb(6)>=1) call iofil('snmgp.txt',micro_g(ng)%snmgp(:,i,j),m1,wf,fln) + if(jnmb(7)>=1) call iofil('snmhp.txt',micro_g(ng)%snmhp(:,i,j),m1,wf,fln) + endif + endif + if(iifn==3 .and. iccnlev>=1) then + if(jnmb(1)>=5)call iofil('ifnnucp.txt',micro_g(ng)%ifnnucp(:,i,j),m1,wf,fln) + if(jnmb(1)>=5)call iofil('immercp.txt',micro_g(ng)%immercp(:,i,j),m1,wf,fln) + if(jnmb(8)>=5)call iofil('immerdp.txt',micro_g(ng)%immerdp(:,i,j),m1,wf,fln) + if(jnmb(2)>=5)call iofil('immerrp.txt',micro_g(ng)%immerrp(:,i,j),m1,wf,fln) + endif + if(imbudget>=1) then !14 + call iofil('latheatvap.txt' ,micro_g(ng)%latheatvap (:,i,j),m1,wf,fln) + call iofil('latheatfrz.txt' ,micro_g(ng)%latheatfrz (:,i,j),m1,wf,fln) + call iofil('nuccldrt.txt' ,micro_g(ng)%nuccldrt (:,i,j),m1,wf,fln) + call iofil('cld2raint.txt' ,micro_g(ng)%cld2raint (:,i,j),m1,wf,fln) + call iofil('ice2raint.txt' ,micro_g(ng)%ice2raint (:,i,j),m1,wf,fln) + call iofil('nucicert.txt' ,micro_g(ng)%nucicert (:,i,j),m1,wf,fln) + call iofil('vapliqt.txt' ,micro_g(ng)%vapliqt (:,i,j),m1,wf,fln) + call iofil('vapicet.txt' ,micro_g(ng)%vapicet (:,i,j),m1,wf,fln) + call iofil('melticet.txt' ,micro_g(ng)%melticet (:,i,j),m1,wf,fln) + call iofil('rimecldt.txt' ,micro_g(ng)%rimecldt (:,i,j),m1,wf,fln) + call iofil('rain2icet.txt' ,micro_g(ng)%rain2icet (:,i,j),m1,wf,fln) + call iofil('aggregatet.txt' ,micro_g(ng)%aggregatet (:,i,j),m1,wf,fln) + call iofil('latheatvapt.txt',micro_g(ng)%latheatvapt(:,i,j),m1,wf,fln) + call iofil('latheatfrzt.txt',micro_g(ng)%latheatfrzt(:,i,j),m1,wf,fln) + endif + if(imbudget>=2) then !29 + call iofil('inuchomrt.txt' ,micro_g(ng)%inuchomrt (:,i,j),m1,wf,fln) + call iofil('inuccontrt.txt' ,micro_g(ng)%inuccontrt (:,i,j),m1,wf,fln) + call iofil('inucifnrt.txt' ,micro_g(ng)%inucifnrt (:,i,j),m1,wf,fln) + call iofil('inuchazrt.txt' ,micro_g(ng)%inuchazrt (:,i,j),m1,wf,fln) + call iofil('vapcldt.txt' ,micro_g(ng)%vapcldt (:,i,j),m1,wf,fln) + call iofil('vapraint.txt' ,micro_g(ng)%vapraint (:,i,j),m1,wf,fln) + call iofil('vapprist.txt' ,micro_g(ng)%vapprist (:,i,j),m1,wf,fln) + call iofil('vapsnowt.txt' ,micro_g(ng)%vapsnowt (:,i,j),m1,wf,fln) + call iofil('vapaggrt.txt' ,micro_g(ng)%vapaggrt (:,i,j),m1,wf,fln) + call iofil('vapgraut.txt' ,micro_g(ng)%vapgraut (:,i,j),m1,wf,fln) + call iofil('vaphailt.txt' ,micro_g(ng)%vaphailt (:,i,j),m1,wf,fln) + call iofil('vapdrizt.txt' ,micro_g(ng)%vapdrizt (:,i,j),m1,wf,fln) + call iofil('meltprist.txt' ,micro_g(ng)%meltprist (:,i,j),m1,wf,fln) + call iofil('meltsnowt.txt' ,micro_g(ng)%meltsnowt (:,i,j),m1,wf,fln) + call iofil('meltaggrt.txt' ,micro_g(ng)%meltaggrt (:,i,j),m1,wf,fln) + call iofil('meltgraut.txt' ,micro_g(ng)%meltgraut (:,i,j),m1,wf,fln) + call iofil('melthailt.txt' ,micro_g(ng)%melthailt (:,i,j),m1,wf,fln) + call iofil('rimecldsnowt.txt' ,micro_g(ng)%rimecldsnowt (:,i,j),m1,wf,fln) + call iofil('rimecldaggrt.txt' ,micro_g(ng)%rimecldaggrt (:,i,j),m1,wf,fln) + call iofil('rimecldgraut.txt' ,micro_g(ng)%rimecldgraut (:,i,j),m1,wf,fln) + call iofil('rimecldhailt.txt' ,micro_g(ng)%rimecldhailt (:,i,j),m1,wf,fln) + call iofil('rain2prt.txt' ,micro_g(ng)%rain2prt (:,i,j),m1,wf,fln) + call iofil('rain2snt.txt' ,micro_g(ng)%rain2snt (:,i,j),m1,wf,fln) + call iofil('rain2agt.txt' ,micro_g(ng)%rain2agt (:,i,j),m1,wf,fln) + call iofil('rain2grt.txt' ,micro_g(ng)%rain2grt (:,i,j),m1,wf,fln) + call iofil('rain2hat.txt' ,micro_g(ng)%rain2hat (:,i,j),m1,wf,fln) + call iofil('aggrselfprist.txt',micro_g(ng)%aggrselfprist(:,i,j),m1,wf,fln) + call iofil('aggrselfsnowt.txt',micro_g(ng)%aggrselfsnowt(:,i,j),m1,wf,fln) + call iofil('aggrprissnowt.txt',micro_g(ng)%aggrprissnowt(:,i,j),m1,wf,fln) + endif + if(imbudget==3 .and. idust>0) then !4 + call iofil('dust1cldrt.txt',micro_g(ng)%dust1cldrt(:,i,j),m1,wf,fln) + call iofil('dust2cldrt.txt',micro_g(ng)%dust2cldrt(:,i,j),m1,wf,fln) + call iofil('dust1drzrt.txt',micro_g(ng)%dust1drzrt(:,i,j),m1,wf,fln) + call iofil('dust2drzrt.txt',micro_g(ng)%dust2drzrt(:,i,j),m1,wf,fln) + endif + +endif !if level == 3 + +return +END SUBROUTINE readwrite_scm diff --git a/src/6.2.16/micro_bin/micro_prm.f90 b/src/6.2.16/micro_bin/micro_prm.f90 new file mode 100644 index 0000000..dd7cb2a --- /dev/null +++ b/src/6.2.16/micro_bin/micro_prm.f90 @@ -0,0 +1,173 @@ +!############################################################################## +Module micro_prm + +use grid_dims +implicit none + +! variable to contain path to HUCM input files +character(len=strl1) :: hucmfile + +! number of bins +integer, parameter :: nkr=33 + +! for bulk nucleation +integer, parameter :: BULKNUC=0 + +! COL=Ln2/3 (for xl(k+1)=xl(k)*2.) +real :: COL = 0.231049060186648 !=log(2.)/3. +real :: COL3 = 0.693147180559945 !=log(2.) + +! Aerosols +! add for diagnostic CCN. If diagCCN=.false., CCN is prognostic +LOGICAL, PARAMETER :: diagCCN=.false. + +! Parameters are used for calculation of + +! RO_SOLUTE - density of aerosol+h20 +! ROCCN0, g/cm^3 - density of aerosol +! Molecular weight of dry aerosol +! Number of ions +real :: RO_SOLUTE,ROCCN0,MWAERO,IONS + +! ACCN in 1/cm^3, BCCN - coefficients for calculation of FCCNR(KR) +! FCCNR(KR)=1.5*ACCN*BCCN*S_KR**BCCN, +! where S_KR - water supersaturation, % +real, parameter :: ACCN=1.0000E02, BCCN=0.4620E00 + +! ICCN - set maximum mass of aerosol +! XL(ICCN) - maximum mass of aerosol, is determined as minimum +! mass drop in bin with number ICCN +integer, parameter :: ICCN=1 + +! if ICEPROCS=1 it is ice microphysics +! ICEPROCS is set to one by setting any of the ice flags in RAMSIN to a value above 0 +integer :: ICEPROCS,IFASTSBM + +! ICEFLAG=0 USE MEYERS ICE NUCLEATION SCHEME; ICEFLAG=1 USE Classical Theory +integer :: ICEFLAG + +! ICEMAX - number of ice crystal types +integer, parameter :: ICEMAX=3 + +! flags for turbulance in collection kernals +integer, parameter :: LIQTURB=1 +integer, parameter :: ICETURB=1 +integer, parameter :: NHYDR=5,NHYDRO=7 & + ,K0_LL=8,KRMIN_LL=1,KRMAX_LL=19,L0_LL=6 & + ,IEPS_400=1,IEPS_800=0,IEPS_1600=0 & !For turbulent enhancement to collection kernal + ,K0L_GL=16,K0G_GL=16 & !Bins that have turbulent enhancement + ,KRMINL_GL=1,KRMAXL_GL=24 & + ,KRMING_GL=1,KRMAXG_GL=33 & + ,KRDROP=14 & !First Bin number that is rain in FFCD + ,JMAX=33,JBREAK = 18 !For rain breakup routines +integer,dimension(ICEMAX), parameter:: & + KRPRIS=(/14,16,16/) !First Bin number that is RAMS snow for each + !of the 3 ice crystal types + +!Coefficient for deposition-condensation freezing, and contact nuclei +!formulations from Meyers, respectively. The code came to me (Adele) +!with C2_MEY=0, corresponding to no contact nuclei. This should stay zero +!unless the nucleation code is fixed. It currently does not treat the contact +!nuclei correctly. +real, parameter :: C1_MEY=0.00012,C2_MEY=0. + +! For drop freezing (iceform=1) or drop evaporation nuclei (iceform = 2) +integer, parameter :: iceform = 2 + +! KRFREEZ set bin boundary between plates and hail with freezing +! AFREEZE, BFREEZE, BFREEZEMAX - coefficients in formula of +! homogeneous freezing +integer, PARAMETER :: KRFREEZ=21 +REAL, PARAMETER :: BFREEZMAX=0.66E0 + +! other parameters and thresholds +real, parameter :: AFREEZMY=0.3333E-04,BFREEZMY=0.6600E00 + +! Parameters are used in algorithm of diffusional growth +! NCOND determine timestep (DT/NCOND) with diffusional growth +integer, parameter :: NCOND=1 +real :: DTCOND + +! Coeffients for diffusional growth +real, parameter :: A1_MYN=2.53,BB1_MYN=5.42, A2_MYN=3.41E1,BB2_MYN=6.13 +real, parameter :: AA1_MY=2.53E12,BB1_MY=5.42E3, AA2_MY=3.41E13,BB2_MY=6.13E3 +real, parameter :: DEL_BB=BB2_MY-BB1_MY, DEL_BBN=BB2_MYN-BB1_MYN, DEL_BBR=BB1_MYN/DEL_BBN + +! COAGULATION +!Do COAL_BOTT_NEW every NDTCOLL time steps +integer :: NDTCOLL +real :: DTCOLL + +! Kernels (collisions), depend on heights +! P1=1000mb=1000000 dynes/cm^2 +real, parameter :: p1=1000000.0,p2=750000.0,p3=500000.0 + +! Parameters used into subroutine coal_bott (collisions): +! if temperature less than TTCOAL then no calculations of +! temperature dependence of collision kernels +real, parameter :: TTCOAL=233.15E00 + +! TCRIT - temperature boundary between graupel and hail with coagulation +real, parameter :: TCRIT=270.15E00 + +! alcr=1.0 g/m**3 :threshold for graupel formation snow-drop collisions +real, parameter :: ALCR=1.5 + +! threshold for hail formation graupel-drop collisions +integer, parameter :: alcr_hail=3 + +! threshold bin number for hail formation from graupel-drop collisions +integer, parameter :: kp_hail=25 + +! scal=1.0 is valid under condition of mass doubling : +! xl(k+1)=xl(k)*2 +real, parameter :: SCAL=1.0E00 + +! Parameters used for ice multiplication : +! if icempl=0 no ice multiplication; +! if icempl=1 - ice multiplication is included +integer, parameter :: ICEMPL=1 +integer, parameter :: kr_icempl=9 + +! 3-point remapping +integer, parameter :: I3POINT=1 + +! For new ice nucleation from J. Comstock (ICEFLAG =1) + +! version +! adapted from aerosol_prop_mks.h; from J.Comstock +! purpose +! -define properties for aerosol composition used in +! heterogeneous nucleation (KC1999) +! -define aerosol size distribution parameters +! NOTE MKS units + +! ========================================================================= +! aerosol solubility in terms of volume fraction (Qv) +real, parameter :: qvaero=0.4 +! aerosol parameter describing composition +real, parameter :: betafr=0.5 +! molecular weight of dry aerosol (g/mol) (NH4)2SO4 Ammonium Sulfate KC1999 +real, parameter :: Ms2=0.132 +! density of dry aerosol (kg/m3) (NH4)2SO4 Ammonium Sulate KC1999 +real, parameter :: rhos2=1770.0 +! wettability +real, parameter :: wetcoef = 0.90 +! relative area of active sites +real, parameter :: alf = 0.1e-5 +! misfit strain parameter +real, parameter :: epsil = 2.5e-2 +! IN fraction +real :: fracin +! ========================================================================== +!!! For ccn regeneration +real :: ccnreg +real :: inreg +! ================================================ +! For idealized ccn distributions +real :: sig_g, rp_g !cm + +! For radiation: +real, dimension(nzpmax,11) :: rxb2, cxb2 + +END MODULE micro_prm diff --git a/src/6.2.16/micro_bin/microphysics.f90 b/src/6.2.16/micro_bin/microphysics.f90 new file mode 100644 index 0000000..9d75b09 --- /dev/null +++ b/src/6.2.16/micro_bin/microphysics.f90 @@ -0,0 +1,1452 @@ +!############################################################################## +!A. Igel - 5/2013 - Adapting for CLOUD model +!This module adapts the SBM from wrf, originally from A. Khain. + +!############################################################################## +Subroutine micro_bin () + +use node_mod, only:mzp,mxp,myp,ia,iz,ja,jz + +implicit none +integer, save :: ncall = 0 + +!Things to do on the first call to micro_bin +if (ncall == 0) then + CALL micro_init2 () + ncall = 1 +endif + +!Things to do every time +CALL thermo () + +!Precipitation +CALL precipitation () + +!update rtp, thp - theta, tempc, pressure do not change +CALL update_thermo () + +!Zero Out Budgets +CALL zero_budgets () + +!Main microphysics driver +CALL micro_proc () + +return +END SUBROUTINE micro_bin + +!############################################################################## +Subroutine micro_proc () + +use module_hujisbm +use node_mod +use mem_grid +use mem_basic +use mem_micro +use rconstants +use micro_prm +use micphys, only: imbudget,ipris,igraup,ihail + +IMPLICIT NONE + +REAL::qv,tabs,pcgs,rhocgs +REAL::theta,exner +! SBM VARIABLES +REAL,DIMENSION (nkr) :: FF1IN,FF3IN,FF4IN,FF5IN,& + FF1R,FF3R,FF4R,FF5R,FCCN,FIN +REAL,DIMENSION (nkr,icemax) :: FF2IN,FF2R + +REAL :: SUP2_OLD +DOUBLE PRECISION :: ss_max=0.003d0 +double precision del1in_limit +DOUBLE PRECISION DEL1NR,DEL2NR,DEL12R,DEL12RD,ES1N,ES2N,EW1N,EW1PN +DOUBLE PRECISION DELSUP1,DELSUP2,DELDIV1,DELDIV2 +DOUBLE PRECISION TT,QQ,TTA,QQA,PP,QQt +DOUBLE PRECISION DIV1,DIV2,DIV3,DIV4,DEL1IN,DEL2IN,DEL1AD,DEL2AD +!For bulk nucleation +REAL FACTZ,CONCCCN_XZ,CONCDROP +!Flags +INTEGER ISYM1,ISYM2,ISYM3,ISYM4,ISYM5 +INTEGER DIFFU +!!! For CCN regeneration +real fccn0(nkr) +real :: ndrop, subtot ! for diagnostic CCN +!functions +real :: sum_pris, sum_snow +INTEGER :: k,i,j +integer itimestep, kr, ikl + +!-------------BEGIN Loops over Space------------ +do k = 1,mzp + do i = ia,iz + do j = ja,jz + exner=(basic_g(ngrid)%pi0(k,i,j) + basic_g(ngrid)%pp(k,i,j)) + theta=basic_g(ngrid)%theta(k,i,j) + tabs=theta*exner*cpi + pcgs = 10. * p00 * (basic_g(ngrid)%pi0(k,i,j) * cpi) ** cpor + qv=basic_g(ngrid)%rv(k,i,j) + rhocgs=basic_g(ngrid)%dn0(k,i,j)*0.001 + + !Convert distributions from d(mixing ratio)/dln(r) to d(#/cm3)/d(mass) + ! CCN + IF (diagCCN) then + ndrop=0.0 + DO KR=1,NKR + ndrop=ndrop+COL*micro_g(ngrid)%ffcd(k,i,j,KR)/XL(KR)*rhocgs + ENDDO + FCCN(:) = FCCN0(:) + if (ndrop >= FCCN0(NKR)*COL) then + subtot=0.0 + do kr = nkr, 1, -1 + subtot=subtot+FCCN0(kr)*COL + FCCN(kr)=0.0 + if (subtot >= ndrop) then + FCCN(kr)= (subtot-ndrop)/COL + exit + endif + enddo + endif + ELSE ! if (diagCCN) not true, i.e., prognostic + DO KR=1,NKR + FCCN(KR)=micro_g(ngrid)%fncn(k,i,j,KR)*rhocgs/xccn(kr) + END DO + ENDIF ! if (diagCCN) + + !Convert distributions from d(mixing ratio)/dln(r) to + !d(#/cm3)/d(mass)/mass. This is a meaningless quantity, but it is + !treated this way through the remainder of the bin micro code. + !So be it. Adele + + ! LIQUID + DO KR=1,NKR + FF1R(KR)=micro_g(ngrid)%ffcd(k,i,j,KR)*rhocgs/xl(kr)/xl(kr)/3.0 + END DO + + ! ICE + IF (ICEPROCS.EQ.1)THEN + DO KR=1,NKR + !ICE NUCLEI + IF (ICEFLAG .eq. 1) THEN + FIN(KR)=micro_g(ngrid)%ffin(k,i,j,KR)*rhocgs/xccn(kr) + ELSE + FIN(KR)=0. + ENDIF + ! COLUMNS + IF (IPRIS == 1 .or. IPRIS >= 4) THEN + FF2R(KR,1)=micro_g(ngrid)%ffic(k,i,j,KR)*rhocgs/xi(kr,1)/xi(kr,1)/3.0 + ELSE + FF2R(KR,1) = 0. + ENDIF + + ! PLATES + IF (IPRIS == 2 .or. IPRIS >= 4) THEN + FF2R(KR,2)=micro_g(ngrid)%ffip(k,i,j,KR)*rhocgs/xi(kr,2)/xi(kr,2)/3.0 + ELSE + FF2R(KR,2) = 0. + ENDIF + + ! DENDRITES + IF (IPRIS >= 3) THEN + FF2R(KR,3)=micro_g(ngrid)%ffid(k,i,j,KR)*rhocgs/xi(kr,3)/xi(kr,3)/3.0 + ELSE + FF2R(KR,3) = 0. + ENDIF + + ! SNOW/RAMS AGGREGATES + FF3R(KR)=micro_g(ngrid)%ffsn(k,i,j,KR)*rhocgs/xs(kr)/xs(kr)/3.0 + + ! GRAUPEL + IF (IGRAUP > 0) THEN + FF4R(KR)=micro_g(ngrid)%ffgl(k,i,j,KR)*rhocgs/xg(kr)/xg(kr)/3.0 + ELSE + FF4R(KR) = 0. + ENDIF + + ! HAIL + IF (IHAIL > 0) THEN + FF5R(KR)=micro_g(ngrid)%ffhl(k,i,j,KR)*rhocgs/xh(kr)/xh(kr)/3.0 + ELSE + FF5R(KR) = 0. + ENDIF + END DO +!-------------------------------------------------------- +!Freezing (homogeneous nucleation) + IF (ICEPROCS .eq. 1) THEN + CALL lhf_budget (FF1R,EXNER,RHOCGS,K,I,J,'beg') + CALL FREEZ (FF1R,FF2R,FF5R, & + tabs,dtlt,rhocgs, & + K,I,J) + IF (ifastsbm==1) CALL fastsbm_reassign (FF2R,FF3R,FF4R,FF5R) +!-------------------------------------------------------- +!Melting + IF(TABS > 273.15) CALL MELT (FF1R,FF2R,FF3R,FF4R,FF5R, & + tabs,rhocgs,K,I,J) + !No need to call fastsbm_reassign - nothing is created in MELT + CALL lhf_budget (FF1R,EXNER,RHOCGS,K,I,J,'end') + ENDIF + ENDIF ! if iceprocess == 1 +!----------------------------------------------- +!Condensation and Nucleation Preparation + IF (micro_g(ngrid)%t_old(k,i,j).GT.233)THEN + TT=micro_g(ngrid)%t_old(k,i,j) + QQ=micro_g(ngrid)%RV_OLD(k,i,j)/(1+micro_g(ngrid)%RV_OLD(k,i,j)) + PP=pcgs + TTA=tabs + QQA=qv/(1+qv) + !old values, 1 liquid, 2 ice + ES1N=AA1_MY*DEXP(-BB1_MY/TT) + ES2N=AA2_MY*DEXP(-BB2_MY/TT) + EW1N=QQ*PP/(0.622+0.378*QQ) + DIV1=EW1N/ES1N !Saturation ratio wrt liquid + DEL1IN=EW1N/ES1N-1. + DIV2=EW1N/ES2N !Saturation ratio wrt ice + DEL2IN=EW1N/ES2N-1. + !new values + ES1N=AA1_MY*DEXP(-BB1_MY/TTA) + ES2N=AA2_MY*DEXP(-BB2_MY/TTA) + EW1N=QQA*PP/(0.622+0.378*QQA) + DIV3=EW1N/ES1N + DEL1AD=EW1N/ES1N-1. + DIV4=EW1N/ES2N + DEL2AD=EW1N/ES2N-1. + SUP2_OLD=DEL2IN + !local change + DELSUP1=(DEL1AD-DEL1IN)/NCOND + DELSUP2=(DEL2AD-DEL2IN)/NCOND + DELDIV1=(DIV3-DIV1)/NCOND + DELDIV2=(DIV4-DIV2)/NCOND +!--------------------------------------------------- + !Latent heating budget prep + CALL lhv_budget (FF1R,FF2R,FF3R,FF4R,FF5R, & + EXNER,RHOCGS,K,I,J,'beg') + +!Start nucleation/condensation loop + DO IKL=1,NCOND + + DEL1IN=DEL1IN+DELSUP1 + DEL2IN=DEL2IN+DELSUP2 + DIV1=DIV1+DELDIV1 + DIV2=DIV2+DELDIV2 + DIFFU=1 + IF (DIV1.GT.DIV2.AND.TT.LE.265)THEN + DIV2=0.99999*DIV1 + DEL2IN=0.99999*DEL2IN + DIFFU=0 + END IF + DEL1NR=A1_MYN*(100.*DIV1) + DEL2NR=A2_MYN*(100.*DIV2) + if (DEL2NR.EQ.0) then + print*, 'DEL2NR',tt,qq, tta,qqa + PRINT*,'DEL2NR = 0',k,i,j + STOP + endif + DEL12R=DEL1NR/DEL2NR + DEL12RD=DEL12R**DEL_BBR + EW1PN=AA1_MY*100.*DIV1*DEL12RD/100. + IF (DEL12R.EQ.0)PRINT*,'DEL12R = 0' + IF (DEL12R.EQ.0)STOP + TT=-DEL_BB/DLOG(DEL12R) + QQ=0.622*EW1PN/(PP-0.378*EW1PN) + FF1IN=FF1R + FF2IN=FF2R + FF3IN=FF3R + FF4IN=FF4R + FF5IN=FF5R +!------------------------------------------------- +!Nucleation + IF (BULKNUC.eq.1)THEN + IF (DEL1IN.GT.0)THEN + IF (zt(k).LE.500.)THEN + FACTZ=0. + ELSE + FACTZ=1 + END IF + CONCCCN_XZ=FACTZ*ACCN*(100.*DEL1IN)**BCCN + CONCDROP = sum(FF1IN*XL)*3.d0*col + + IF(CONCCCN_XZ.GT.CONCDROP) & + FF1IN(1)=FF1IN(1)+(CONCCCN_XZ-CONCDROP)/(3.D0*COL*XL(1)) + END IF + !If supersat wrt liq or ice + ELSEIF (DEL1IN.GT.0.OR.(ICEPROCS.EQ.1.and.DEL2IN.GT.0))THEN + !mo Limit SS for the droplet nucleation + del1in_limit = min(DEL1IN,ss_max) + !NUCLEATION + CALL JERNUCL01 (FF1IN,FF2IN,FCCN & + ,TT,RHOCGS & + ,DEL1IN_limit,DEL2IN & + ,SUP2_OLD & + ,DTLT,FIN & + ,K,I,J) + IF (ifastsbm==1) CALL fastsbm_reassign (FF2R,FF3R,FF4R,FF5R) + END IF !If bulknuc + +!------------------------------------------------------------------- +!Condensation/Deposition/Evaporation/Sublimation + FF1R=FF1IN + FF2R=FF2IN + + !FF3IN, FF4IN, FF5IN have not changed + !Flags to determine if deposition/sublimation is necessary + ISYM1=0;ISYM2=0;ISYM3=0;ISYM4=0;ISYM5=0 + if (any(FF1R.gt.1.e-6))ISYM1=1 + if (iceprocs.eq.1) then + if(any(FF2R.gt.1.e-6))ISYM2=1 + if(any(FF3R.gt.1.e-6))ISYM3=1 + if(any(FF4R.gt.1.e-6))ISYM4=1 + if(any(FF5R.gt.1.e-6))ISYM5=1 + endif + + ccnreg=0. + inreg=0. + + IF (DIFFU.NE.0 .and. (ISYM1.eq.1.or.ISYM2.eq.1.or.ISYM3.eq.1 & + .or.ISYM4.eq.1.or.ISYM5.eq.1))THEN + !DIFFU = 0 if too cold and RH>RHi (does this make sense?) + CALL vap_budget (FF1R,FF2R,FF3R,FF4R,FF5R,RHOCGS,K,I,J,'beg') + + !If liquid + IF (ISYM1.EQ.1.AND.((TT-273.15).GT.-0.187.OR. & + (ISYM2.EQ.0.AND.ISYM3.EQ.0.AND.ISYM4.EQ.0.AND.ISYM5.EQ.0)))THEN + CALL ONECOND1 (TT,QQ,PP,rhocgs & + ,VR1,pcgs & + ,DEL1IN,DEL2IN,DIV1,DIV2 & + ,FF1R,FF1IN,XL,RLEC,RO1BL & + ,AA1_MY,BB1_MY,AA2_MY,BB2_MY & + ,COL,DTCOND,ICEMAX,NKR) + !If ice + ELSE IF(ISYM1.EQ.0.AND.(TT-273.15).LE.-0.187.AND. & + (ISYM2.EQ.1.OR.ISYM3.EQ.1.OR.ISYM4.EQ.1.OR.ISYM5.EQ.1))THEN + CALL ONECOND2 (TT,QQ,PP,rhocgs & + ,VR2,VR3,VR4,VR5,pcgs & + ,DEL1IN,DEL2IN,DIV1,DIV2 & + ,FF2R,FF2IN,XI,RIEC,RO2BL & + ,FF3R,FF3IN,XS,RSEC,RO3BL & + ,FF4R,FF4IN,XG,RGEC,RO4BL & + ,FF5R,FF5IN,XH,RHEC,RO5BL & + ,AA1_MY,BB1_MY,AA2_MY,BB2_MY & + ,COL,DTCOND,ICEMAX,NKR & + ,ISYM2,ISYM3,ISYM4,ISYM5) + !If mixed-phase + ELSE IF(ISYM1.EQ.1.AND.(TT-273.15).LE.-0.187.AND. & + (ISYM2.EQ.1.OR.ISYM3.EQ.1.OR.ISYM4.EQ.1.OR.ISYM5.EQ.1))THEN + CALL ONECOND3 (TT,QQ,PP,rhocgs & + ,VR1,VR2,VR3,VR4,VR5,pcgs & + ,DEL1IN,DEL2IN,DIV1,DIV2 & + ,FF1R,FF1IN,XL,RLEC,RO1BL & + ,FF2R,FF2IN,XI,RIEC,RO2BL & + ,FF3R,FF3IN,XS,RSEC,RO3BL & + ,FF4R,FF4IN,XG,RGEC,RO4BL & + ,FF5R,FF5IN,XH,RHEC,RO5BL & + ,AA1_MY,BB1_MY,AA2_MY,BB2_MY & + ,COL,DTCOND,ICEMAX,NKR & + ,ISYM1,ISYM2,ISYM3,ISYM4,ISYM5) + END IF + IF (ifastsbm==1) CALL fastsbm_reassign (FF2R,FF3R,FF4R,FF5R) + + CALL vap_budget (FF1R,FF2R,FF3R,FF4R,FF5R,RHOCGS,K,I,J,'end') + END IF + +!----------------------------------------------------------------------- +!CCN and IN regeneration + !For ccn regeneration from evaporation (J. Fan Oct 2007) + !if (fixice .ne.1 .and. iceflag == 1) then + ! ! For drop freezing from evaporation (J. Fan Oct 2007) + ! if (iceform == 1) then + ! if (ccnreg > 0.0 .and. TT < (273.15-5.0)) then + ! frzfract = 0.8e-5 + ! call evapfrz (ccnreg,frzfract,NKR,ICEMAX,TT,dtlt,xi,ff2r,rndrop) + ! !rndropr(k,i,j) = rndrop + ! endif + ! if (inreg > 0.) then + ! fin(nkr)=fin(nkr)+inreg/col + ! endif + ! ! part of drop evaporating residuals back to inreg + ! else if (iceform == 2) then + ! inreg= inreg + ccnreg*0.5e-5 + ! fin(nkr)=fin(nkr)+inreg/col + ! endif + !endif !if (.not.fixice .and. iceflag == 1) + + !Put ccnreg back to aerosol (CCN regeneration) if diagCCN = false + !if (diagCCN .eqv. .false.) then + ! tot_reg = ccnreg + ! if (tot_reg > 0.0) then + ! fccnin(:) = fccn(:) + ! call ccn_reg (fccn0,fccnin,fccn,nkr,tot_reg,ff1r,xl, & + ! ff2r,xi,ff3r,xs,ff4r,xg) + ! endif + ! endif + + END DO ! end NCOND + !Finish latent heating budget + CALL lhv_budget (FF1R,FF2R,FF3R,FF4R,FF5R, & + EXNER,RHOCGS,K,I,J,'end') + +!--------------------------------------------------------------------------- +!Collisions (called every NDTCOLL*dt) + IF (mod(istp,NDTCOLL).eq.0 .and. ((iceprocs.eq.0 .and. any(FF1R>0.)) & + .or. any(FF1R>0.).or.any(FF2R>0.).or.any(FF3R>0.))) THEN + CALL lhf_budget (FF1R,EXNER,RHOCGS,K,I,J,'beg') + !Graupel and hail do not self-collect, so don't need to call + !collection if they are the only species present + CALL COAL_BOTT_NEW (FF1R,FF2R,FF3R, & + FF4R,FF5R,TT,QQ,PP,rhocgs,DTCOLL,TCRIT,TTCOAL,K,I,J) + IF (ifastsbm==1) CALL fastsbm_reassign (FF2R,FF3R,FF4R,FF5R) + CALL lhf_budget (FF1R,EXNER,RHOCGS,K,I,J,'end') + END IF +!--------------------------------------------------------------------------- +!Updates + + micro_g(ngrid)%t_old(k,i,j)= tt + micro_g(ngrid)%rv_old(k,i,j)=qq/(1-qq) + END IF !If t_old > 233 + + ! Convert back to f(diam) + DO KR=1,NKR + micro_g(ngrid)%fncn(k,i,j,KR)=FCCN(KR)/rhocgs*xccn(kr) + micro_g(ngrid)%ffcd(k,i,j,KR)=FF1R(KR)/rhocgs*xl(kr)*xl(kr)*3.0 + END DO + + IF (ICEPROCS.EQ.1)THEN + DO KR=1,NKR + if (iceflag .eq. 1) & + micro_g(ngrid)%ffin(k,i,j,KR)=FIN(KR)/rhocgs*xccn(kr) + if (ipris == 1 .or. ipris >= 4) & + micro_g(ngrid)%ffic(k,i,j,KR)=FF2R(KR,1)/rhocgs*xi(kr,1)*xi(kr,1)*3.0 + if (ipris == 2 .or. ipris >= 4) & + micro_g(ngrid)%ffip(k,i,j,KR)=FF2R(KR,2)/rhocgs*xi(kr,2)*xi(kr,2)*3.0 + if (ipris >= 3) & + micro_g(ngrid)%ffid(k,i,j,KR)=FF2R(KR,3)/rhocgs*xi(kr,3)*xi(kr,3)*3.0 + micro_g(ngrid)%ffsn(k,i,j,KR)=FF3R(KR)/rhocgs*xs(kr)*xs(kr)*3.0 + if (igraup > 0) & + micro_g(ngrid)%ffgl(k,i,j,KR)=FF4R(KR)/rhocgs*xg(kr)*xg(kr)*3.0 + if (ihail > 0) & + micro_g(ngrid)%ffhl(k,i,j,KR)=FF5R(KR)/rhocgs*xh(kr)*xh(kr)*3.0 + END DO + END IF + END DO !End loops over space + END DO +END DO + + +RETURN +END SUBROUTINE micro_proc + +!############################################################################## +Subroutine micro_init (bininit) + +use node_mod +use micro_prm +use mem_micro +use mem_grid +use micphys, only:ccn_max,cin_max,iaero_chem,aero_medrad,iifn +use module_hujisbm + +IMPLICIT NONE + +character(len=strl1) :: hname +INTEGER k,i,j,KR,bininit +INTEGER,parameter :: hujisbm_unit1 = 22 +REAL PI +data pi/3.141592654/ +! dtime - timestep of integration (calculated in main program) : +! ax - coefficient used for masses calculation +! ima(i,j) - k-category number, c(i,j) - courant number +REAL X0DROP,DEG01,X0CCN + +if (my_mpi_num .eq. 0) PRINT*, 'INITIALIZING HUCM' +if (my_mpi_num .eq. 0) print *, ' ****** HUCM *******' + +dlnr=dlog(2.d0)/(3.d0*scal) + +!--- Read in various lookup tables + +900 FORMAT(6E13.5) +! MASSES +hname=trim(hucmfile)//'/masses.asc' +OPEN(UNIT=hujisbm_unit1,FILE=hname,FORM="FORMATTED",STATUS="OLD") +READ(hujisbm_unit1,900) XL,XI,XS,XG,XH +CLOSE(hujisbm_unit1) + +! BULKRADIUS +hname=trim(hucmfile)//'/bulkradii.asc_s_0_03_0_9' +OPEN(UNIT=hujisbm_unit1,FILE=hname,FORM="FORMATTED",STATUS="OLD") +READ(hujisbm_unit1,*) RADXXO +CLOSE(hujisbm_unit1) + +! INITIALIZE AEROSOLS +DEG01=1./3. +X0DROP=XL(ICCN) !Maximum ccn mass (minimum drop mass) +X0CCN =X0DROP/(2.**(NKR-1)) !Minimum ccn mass + +DROPRADII = RADXXO(:,1) + +!Choose aerosol type +IF (IAERO_CHEM(1) == 1) THEN +!Ammonium sulfate + ROCCN0 = 1.769 + RO_SOLUTE = 1.769 + MWAERO = 132.0 + IONS = 3 + RP_G = AERO_MEDRAD(1)*100. + SIG_G = 1.8 +ELSEIF (IAERO_CHEM(1) == 2) THEN +!Sodium chloride + ROCCN0 = 2.165 + RO_SOLUTE = 2.165 + MWAERO = 58.4 + IONS = 2 + RP_G = AERO_MEDRAD(1)*100. + SIG_G = 1.8 +ELSE + PRINT*, 'INVALID AERO_CHEM TYPE. MUST EQUAL 1 OR 2', IAERO_CHEM(1) + STOP +ENDIF + +!Find CCN density, mass, and diameter for each bin +DO KR=1,NKR + ROCCN(KR)=ROCCN0 + XCCN(KR)=X0CCN*2.**(KR-1) + RCCN(KR)=(3.*XCCN(KR)/4./3.141593/ROCCN(KR))**DEG01 +ENDDO + +! Lognormal functional Form +DO KR=1,NKR + fccnr0(kr) = 1./(sqrt(2.*pi)*log(sig_g)) & + *exp(-(log(rccn(kr)/rp_g))**2./2.0/(log(sig_g))**2.) +ENDDO +fccnr0 = fccnr0 / (sum(fccnr0) * col) + +if (my_mpi_num .eq. 0) then + PRINT *, '********* DROP RADII *******' + PRINT 200, DROPRADII + PRINT *, '********* CCN RADII *******' + PRINT 200, RCCN + PRINT *, '********* CCN MASSES *******' + PRINT 200, XCCN + PRINT *, '********* INITIAL NORMALIZED CCN DISTRIBUTION *******' + PRINT 200, FCCNR0 +endif +200 FORMAT(6E13.5) + +! Initialize arrays for the initial run. Do not run this for history restart. +if(bininit==1) then +!Factor of 1000 is to convert to CGS units. ccn_max is #/mg + DO k=1,mzp + DO i=1,mxp + DO j=1,myp + DO KR=1,NKR + IF (k<=2) THEN + micro_g(ngrid)%fncn(k,i,j,KR)=FCCNR0(KR)*1000.*xccn(kr)*ccn_max + ELSE + micro_g(ngrid)%fncn(k,i,j,KR)=FCCNR0(KR)*1000.*xccn(kr)* & + ccn_max*exp(-zt(k)/7000.) + ENDIF + ENDDO + ENDDO + END DO + END DO + if (iceprocs == 1 .and. iifn == 2) then + fracin = cin_max/ccn_max + micro_g(ngrid)%ffin=micro_g(ngrid)%fncn*fracin + endif +endif + +return +END SUBROUTINE micro_init + +!############################################################################## +Subroutine micro_init2 () + +use node_mod, only: my_mpi_num +use mem_grid, only: dtlt,ngrid,initial,runtype +use rconstants, only: cpi +use micro_prm +use mem_micro +use mem_basic +use micphys, only:iifn,ipris,igraup,ihail +use module_hujisbm + +IMPLICIT NONE + +character(len=strl1) :: hname +INTEGER KR +INTEGER,parameter :: hujisbm_unit1 = 22 +REAL PI,NDTCOLL_REAL +data PI/3.141592654/ + +!--- Read in various lookup tables +! CAPACITIES : +! Capacities are used for the condensation rates +hname=trim(hucmfile)//'/capacity.asc' +OPEN(UNIT=hujisbm_unit1,FILE=hname,FORM="FORMATTED",STATUS="OLD") +900 FORMAT(6E13.5) +READ(hujisbm_unit1,900) RLEC,RIEC,RSEC,RGEC,RHEC +CLOSE(hujisbm_unit1) + +! MASSES : +hname=trim(hucmfile)//'/masses.asc' +OPEN(UNIT=hujisbm_unit1,FILE=hname,FORM="FORMATTED",STATUS="OLD") +READ(hujisbm_unit1,900) XL,XI,XS,XG,XH +CLOSE(hujisbm_unit1) + + +! TERMINAL VELOCITY : +hname=trim(hucmfile)//'/termvels.asc' +OPEN(UNIT=hujisbm_unit1,FILE=hname,FORM="FORMATTED",STATUS="OLD") +READ(hujisbm_unit1,*) VR1,VR2,VR3,VR4,VR5 +CLOSE(hujisbm_unit1) + +! CONSTANTS : !Adele - none of these constants are used anywhere +!OPEN(UNIT=hujisbm_unit1,FILE="../etc/HUCM-SBM/constants.asc", & +! FORM="FORMATTED",STATUS="OLD") +!READ(hujisbm_unit1,900) SLIC,TLIC,COEFIN,C2,C3,C4 +!CLOSE(hujisbm_unit1) + +! KERNELS DEPENDING ON PRESSURE : +hname=trim(hucmfile)//'/kernels_z.asc' +OPEN(UNIT=hujisbm_unit1,FILE=hname,FORM="FORMATTED",STATUS="OLD") +READ(hujisbm_unit1,900) YWLL_1000MB,YWLL_750MB,YWLL_500MB +CLOSE(hujisbm_unit1) + +! KERNELS NOT DEPENDING ON PRESSURE : +hname=trim(hucmfile)//'/kernels.asc_s_0_03_0_9' +OPEN(UNIT=hujisbm_unit1,FILE=hname,FORM="FORMATTED",STATUS="OLD") +READ(hujisbm_unit1,900) & + YWLL,YWLI,YWLS,YWLG,YWLH, & + YWIL,YWII,YWIS,YWIG,YWIH, & + YWSL,YWSI,YWSS,YWSG,YWSH, & + YWGL,YWGI,YWGS,YWGG,YWGH, & + YWHL,YWHI,YWHS,YWHG,YWHH +close (hujisbm_unit1) + +! BULKDENSITY : +hname=trim(hucmfile)//'/bulkdens.asc_s_0_03_0_9' +OPEN(UNIT=hujisbm_unit1,FILE=hname,FORM="FORMATTED",STATUS="OLD") +READ(hujisbm_unit1,900) RO1BL,RO2BL,RO3BL,RO4BL,RO5BL +CLOSE(hujisbm_unit1) + +! BULKRADIUS +hname=trim(hucmfile)//'/bulkradii.asc_s_0_03_0_9' +OPEN(UNIT=hujisbm_unit1,FILE=hname,FORM="FORMATTED",STATUS="OLD") +READ(hujisbm_unit1,*) RADXXO +CLOSE(hujisbm_unit1) + +do kr=1,nkr + xl_mg(kr)=xl(kr)*1.e3 + xs_mg(kr)=xs(kr)*1.e3 + xg_mg(kr)=xg(kr)*1.e3 + xh_mg(kr)=xh(kr)*1.e3 + xi1_mg(kr)=xi(kr,1)*1.e3 + xi2_mg(kr)=xi(kr,2)*1.e3 + xi3_mg(kr)=xi(kr,3)*1.e3 +enddo +CALL courant_bott () + +!Initialize collision-coalescence parameters +CALL BREAKINIT () +! Collisions are called every NDTCOLL*dt +DTCOLL=dtlt*real(NDTCOLL) +CALL kernals (DTCOLL) + +!Initialize some other parameters +DTCOND=dtlt/REAL(NCOND) +ICEFLAG = IIFN-1 +IFASTSBM = 0 +if (IPRIS < 4 .or. IGRAUP == 0 .or. IHAIL == 0) IFASTSBM = 1 + +if (iceprocs.eq.1 .and. my_mpi_num.eq.0)print*,'ICE PROCESSES ACTIVE' +if (iceprocs.eq.0 .and. my_mpi_num.eq.0)print*,'LIQUID PROCESSES ONLY' + +!Initialize t_old and rv_old if not history initialization or restart +if (initial .ne. 3) then + micro_g(ngrid)%t_old=basic_g(ngrid)%theta * & + (basic_g(ngrid)%pi0(:,:,:)+basic_g(ngrid)%pp(:,:,:)) * cpi + micro_g(ngrid)%rv_old=basic_g(ngrid)%rv +endif + +return +END SUBROUTINE micro_init2 + +!############################################################################## +Subroutine sum_bins (speciesbin,rx,m1,m2,m3,krs,kre,izero) + +use micro_prm, only:nkr, col +use node_mod, only:ia,iz,ja,jz + +implicit none + +integer :: i,j,k,kr,krs,kre,m1,m2,m3,izero +real, dimension(m1,m2,m3,nkr) :: speciesbin +real, dimension(m1,m2,m3) :: rx + +if (izero==0) then + rx=0. + izero=1 +endif + +do kr=krs,kre + do j = 1,m3 + do i = 1,m2 + do k = 1,m1 + rx(k,i,j)=rx(k,i,j)+speciesbin(k,i,j,kr)*col + enddo + enddo + enddo +enddo + +return +END SUBROUTINE sum_bins + +!############################################################################## +Subroutine sum_bins_conc (speciesbin,cx,xsp,m1,m2,m3,krs,kre,izero) + +use micro_prm, only:nkr, col +use node_mod, only:ia,iz,ja,jz + +implicit none + +integer :: i,j,k,kr,krs,kre,m1,m2,m3,izero +real, dimension(m1,m2,m3,nkr) :: speciesbin +real, dimension(m1,m2,m3) :: cx +real, dimension(nkr) :: xsp + +if (izero==0) then + cx=0. + izero = 1 +endif +do k = 1,m1 + do j = 1,m3 + do i = 1,m2 + do kr=krs,kre + cx(k,i,j)=cx(k,i,j)+speciesbin(k,i,j,kr)*col/xsp(kr)*1000. + enddo + enddo + enddo +enddo + +return +END SUBROUTINE sum_bins_conc + +!############################################################################## +real Function sum_pris (ff2r,rhocgs) + +use micro_prm, only:nkr, icemax, col3, krpris +use module_hujisbm, only:xi,sum_mass +use micphys, only:ipris + +implicit none +real :: rhocgs +real, dimension(nkr,icemax)::ff2r + +IF (IPRIS >=4) THEN + sum_pris = sum_mass(ff2r(:,1),XI(:,1),rhocgs,1,KRPRIS(1)-1) & + + sum_mass(ff2r(:,2),XI(:,2),rhocgs,1,KRPRIS(2)-1) & + + sum_mass(ff2r(:,3),XI(:,3),rhocgs,1,KRPRIS(3)-1) + +ELSEIF (IPRIS==1 .or. IPRIS==2 .or. IPRIS==3) THEN + sum_pris = sum_mass(ff2r(:,IPRIS),XI(:,IPRIS),rhocgs,1,KRPRIS(IPRIS)-1) +ENDIF + +END FUNCTION sum_pris + +!############################################################################## +real Function sum_snow (ff2r,rhocgs) + +use micro_prm, only:nkr, icemax, col3, krpris +use module_hujisbm, only:xi,sum_mass +use micphys, only:ipris + +implicit none +real:: rhocgs +real, dimension(nkr,icemax)::ff2r + +IF (IPRIS >=4) THEN + sum_snow = sum_mass(ff2r(:,1),XI(:,1),rhocgs,KRPRIS(1),NKR) & + + sum_mass(ff2r(:,2),XI(:,2),rhocgs,KRPRIS(2),NKR) & + + sum_mass(ff2r(:,3),XI(:,3),rhocgs,KRPRIS(3),NKR) + +ELSEIF (IPRIS==1 .or. IPRIS==2 .or. IPRIS==3) THEN + sum_snow = sum_mass(ff2r(:,IPRIS),XI(:,IPRIS),rhocgs,KRPRIS(IPRIS),NKR) +ENDIF + +END FUNCTION sum_snow + +!############################################################################## +Subroutine precipitation () + +use module_hujisbm, only: vr1,vr2,vr3,vr4,vr5 +use mem_micro +use mem_grid +use mem_basic +use node_mod, only:mmxp,mmyp +use micro_prm, only:iceprocs,nkr,krpris +use micphys, only:ipris,igraup,ihail +use rconstants, only:cpi + +implicit none +integer :: icecat +real,dimension(mmxp(ngrid),mmyp(ngrid)) :: tempc + +!Precipitation (fall speeds are in cm/s) + +!Zero out arrays +micro_g(ngrid)%pcpg = 0. +micro_g(ngrid)%qpcpg = 0. +micro_g(ngrid)%dpcpg = 0. + +!Calculate surface temperature +tempc = basic_g(ngrid)%theta(2,:,:) * & + (basic_g(ngrid)%pi0(2,:,:) + basic_g(ngrid)%pp(2,:,:)) * cpi & + - 273.15 + +!Liquid precipitation +micro_g(ngrid)%pcprr = 0. +micro_g(ngrid)%pcpvr = 0. + +CALL sedim_bin (vr1,1,micro_g(ngrid)%ffcd,micro_g(ngrid)%accpr, & + micro_g(ngrid)%pcpvr,micro_g(ngrid)%pcprr, & + tempc,1,nkr) + +!Ice +if (iceprocs .eq. 1) then + if (ipris >= 1) then + micro_g(ngrid)%pcprp = 0. + micro_g(ngrid)%pcpvp = 0. + micro_g(ngrid)%pcprs = 0. + micro_g(ngrid)%pcpvs = 0. + endif + + if (ipris == 1 .or. ipris >= 4) then + icecat = 1 + micro_g(ngrid)%accpic = micro_g(ngrid)%accpic - & + micro_g(ngrid)%accpp - micro_g(ngrid)%accps + micro_g(ngrid)%pcpric = 0. - micro_g(ngrid)%pcprp - micro_g(ngrid)%pcprs + micro_g(ngrid)%pcpvic = 0. - micro_g(ngrid)%pcpvp - micro_g(ngrid)%pcpvs + + CALL sedim_bin (vr2(:,icecat),icecat+1,micro_g(ngrid)%ffic,micro_g(ngrid)%accpp, & + micro_g(ngrid)%pcpvp,micro_g(ngrid)%pcprp, & + tempc,1,krpris(icecat)-1) + CALL sedim_bin (vr2(:,icecat),icecat+1,micro_g(ngrid)%ffic,micro_g(ngrid)%accps, & + micro_g(ngrid)%pcpvs,micro_g(ngrid)%pcprs, & + tempc,krpris(icecat),nkr) + + micro_g(ngrid)%accpic = micro_g(ngrid)%accpic + & + micro_g(ngrid)%accpp + micro_g(ngrid)%accps + micro_g(ngrid)%pcpric = micro_g(ngrid)%pcpric + micro_g(ngrid)%pcprp + micro_g(ngrid)%pcprs + micro_g(ngrid)%pcpvic = micro_g(ngrid)%pcpvic + micro_g(ngrid)%pcpvp + micro_g(ngrid)%pcpvs + endif + + if (ipris == 2 .or. ipris >= 4) then + icecat = 2 + micro_g(ngrid)%accpip = micro_g(ngrid)%accpip - & + micro_g(ngrid)%accpp - micro_g(ngrid)%accps + micro_g(ngrid)%pcprip = 0. - micro_g(ngrid)%pcprp - micro_g(ngrid)%pcprs + micro_g(ngrid)%pcpvip = 0. - micro_g(ngrid)%pcpvp - micro_g(ngrid)%pcpvs + + CALL sedim_bin (vr2(:,icecat),icecat+1,micro_g(ngrid)%ffip,micro_g(ngrid)%accpp, & + micro_g(ngrid)%pcpvp,micro_g(ngrid)%pcprp, & + tempc,1,krpris(icecat)-1) + CALL sedim_bin (vr2(:,icecat),icecat+1,micro_g(ngrid)%ffip,micro_g(ngrid)%accps, & + micro_g(ngrid)%pcpvs,micro_g(ngrid)%pcprs, & + tempc,krpris(icecat),nkr) + micro_g(ngrid)%accpip = micro_g(ngrid)%accpip + & + micro_g(ngrid)%accpp + micro_g(ngrid)%accps + micro_g(ngrid)%pcprip = micro_g(ngrid)%pcprip + micro_g(ngrid)%pcprp + micro_g(ngrid)%pcprs + micro_g(ngrid)%pcpvip = micro_g(ngrid)%pcpvip + micro_g(ngrid)%pcpvp + micro_g(ngrid)%pcpvs + endif + + if (ipris >= 3) then + icecat = 3 + micro_g(ngrid)%accpid = micro_g(ngrid)%accpid - & + micro_g(ngrid)%accpp - micro_g(ngrid)%accps + micro_g(ngrid)%pcprid = 0. - micro_g(ngrid)%pcprp - micro_g(ngrid)%pcprs + micro_g(ngrid)%pcpvid = 0. - micro_g(ngrid)%pcpvp - micro_g(ngrid)%pcpvs + + CALL sedim_bin (vr2(:,icecat),icecat+1,micro_g(ngrid)%ffid,micro_g(ngrid)%accpp, & + micro_g(ngrid)%pcpvp,micro_g(ngrid)%pcprp, & + tempc,1,krpris(icecat)-1) + CALL sedim_bin (vr2(:,icecat),icecat+1,micro_g(ngrid)%ffid,micro_g(ngrid)%accps, & + micro_g(ngrid)%pcpvs,micro_g(ngrid)%pcprs, & + tempc,krpris(icecat),nkr) + micro_g(ngrid)%accpid = micro_g(ngrid)%accpid + & + micro_g(ngrid)%accpp + micro_g(ngrid)%accps + micro_g(ngrid)%pcprid = micro_g(ngrid)%pcprid + micro_g(ngrid)%pcprp + micro_g(ngrid)%pcprs + micro_g(ngrid)%pcpvid = micro_g(ngrid)%pcpvid + micro_g(ngrid)%pcpvp + micro_g(ngrid)%pcpvs + endif + + micro_g(ngrid)%pcpra = 0. + micro_g(ngrid)%pcpva = 0. + CALL sedim_bin (vr3,5,micro_g(ngrid)%ffsn,micro_g(ngrid)%accpa, & + micro_g(ngrid)%pcpva,micro_g(ngrid)%pcpra, & + tempc,1,nkr) + + if (igraup > 0) then + micro_g(ngrid)%pcprg = 0. + micro_g(ngrid)%pcpvg = 0. + CALL sedim_bin (vr4,6,micro_g(ngrid)%ffgl,micro_g(ngrid)%accpg, & + micro_g(ngrid)%pcpvg,micro_g(ngrid)%pcprg, & + tempc,1,nkr) + endif + + if (ihail > 0) then + micro_g(ngrid)%pcprh = 0. + micro_g(ngrid)%pcpvh = 0. + CALL sedim_bin (vr5,7,micro_g(ngrid)%ffhl,micro_g(ngrid)%accph, & + micro_g(ngrid)%pcpvh,micro_g(ngrid)%pcprh, & + tempc,1,nkr) + endif + +endif + +return +END SUBROUTINE precipitation + +!############################################################################## +Subroutine sedim_bin (fallvelcm,lhcat,rx,precip,pcpv,pcpr,tempc,krs,kre) + +use micro_prm +use mem_micro +use mem_grid +use node_mod +use mem_basic +use rconstants, only: alli +use micphys, only: igraup,ihail +implicit none + +integer :: i,j,k,kk,kkf,kr,krs,kre,lhcat,maxkfall = 4 +integer :: idensrtgt, ndensrtgt = 40 +integer, save :: ialloc = 0, ncall = 0 +real :: disp, ztopnew, zbotnew, fallin, rolddn0, newprecip +real :: densrtgt +real, dimension(nkr) :: fallvel, fallvelcm +real, dimension(mmxp(ngrid),mmyp(ngrid)) :: precip, pcpr, tempc +real, dimension(mmzp(ngrid),mmxp(ngrid),mmyp(ngrid)) :: pcpv +real, dimension(mmzp(ngrid),mmxp(ngrid),mmyp(ngrid),nkr) :: rx +real, allocatable, dimension(:,:,:,:) :: rnew +real, allocatable, dimension(:,:,:,:,:), save :: pcpfill +real, allocatable, dimension(:,:,:,:), save :: sfcpcp,allpcp +real, dimension(7) :: dpcp0 +!For use in the leaf3 scheme +data dpcp0 /0.001, 0.010, 0.010, 0.010, 0.010, 0.003, 0.001/ + +!allocate 4D local array for "rnew" +allocate(rnew(mmzp(ngrid),mmxp(ngrid),mmyp(ngrid),nkr)) + +!If first call, make table +if (ncall == 0 .and. krs == 1) then + fallvel=fallvelcm*0.01 !Convert velocicty from cm/s to m/s + if (ialloc == 0) then + allocate (pcpfill(mmzp(ngrid),maxkfall,nkr,ndensrtgt,7)) + allocate (sfcpcp(mmzp(ngrid),nkr,ndensrtgt,7)) + allocate (allpcp(mmzp(ngrid),nkr,7,ndensrtgt)) + pcpfill = 0. + sfcpcp = 0. + allpcp = 0. + ialloc = 1 + endif + ! Loop over vertical grid index. + do k = 2,mmzp(ngrid)-1 + ! Loop over bins + do kr = 1,nkr + do idensrtgt=1,ndensrtgt + densrtgt = idensrtgt / 10.0 + + disp = dtlt * fallvel(kr)*densrtgt + ztopnew = zm(k) - disp + zbotnew = zm(k-1) - disp + + ! Loop over grid cells that a parcel falls into. + do kkf = 1,min(k-1,maxkfall) + !kk = k to k-3 (or 2) + kk = k + 1 - kkf + if (zbotnew .gt. zm(kk)) go to 50 !i.e. if precip does not fall into current box + if (ztopnew .le. zm(kk-1)) then + fallin = 0. + else + fallin = dzt(kk) * & + (min(zm(kk),ztopnew) - max(zm(kk-1),zbotnew)) + endif + !Amount from level k that is now in level kk + pcpfill(k,kkf,kr,idensrtgt,lhcat) = fallin + + !Precipitation rate (will divide by the time step later) + allpcp(k,kr,lhcat,idensrtgt) = allpcp(k,kr,lhcat,idensrtgt) + disp + enddo +50 continue + + ! Compute surface precipitation. + if (zbotnew .lt. 0.) sfcpcp(k,kr,idensrtgt,lhcat) = min(0.,ztopnew) - zbotnew + enddo + enddo + enddo + if( (iceprocs==0 .and. lhcat==1) .or. & + (iceprocs==1 .and. ihail==0 .and. lhcat==6) .or. & + (iceprocs==1 .and. ihail==1 .and. lhcat==7) ) then + ncall = 1 + endif +endif + +!Now let precipitate +!kg/m2 = mm +rnew = 0. +do k = 2,mmzp(ngrid) + do i = ia,iz + do j = ja,jz + do kr = krs,kre + rolddn0 = rx(k,i,j,kr) * basic_g(ngrid)%dn0(k,i,j) + idensrtgt = nint(10.0*(0.7/basic_g(ngrid)%dn0(k,i,j))**0.5/grid_g(ngrid)%rtgt(i,j)) + idensrtgt=max(1,min(40,idensrtgt)) + do kkf = 1,min(maxkfall,k-1) + kk = k+1-kkf + rnew(kk,i,j,kr) = rnew(kk,i,j,kr) + rolddn0 / & + basic_g(ngrid)%dn0(kk,i,j) * pcpfill(k,kkf,kr,idensrtgt,lhcat) + enddo + newprecip = rolddn0 * col * sfcpcp(k,kr,idensrtgt,lhcat) + + !Precip is accumulated from the beginning of the simulation and is tracked + !separately for each species + precip(i,j) = precip(i,j) + newprecip + pcpr(i,j) = pcpr(i,j) + newprecip / dtlt + pcpv(k,i,j) = pcpv(k,i,j) + allpcp(k,kr,lhcat,idensrtgt) / dtlt * rolddn0 + + !Pcpg is reset every timestep and is a total for all precipitation types + micro_g(ngrid)%pcpg(i,j) = micro_g(ngrid)%pcpg(i,j) & + + newprecip + !dpcp0 converts mm to m + micro_g(ngrid)%dpcpg(i,j) = micro_g(ngrid)%dpcpg(i,j) & + + newprecip*dpcp0(lhcat) + if (lhcat.eq.1) then + micro_g(ngrid)%qpcpg(i,j) = micro_g(ngrid)%qpcpg(i,j) & + + newprecip*(tempc(i,j)*4186.+alli) + elseif (lhcat.gt.1) then + micro_g(ngrid)%qpcpg(i,j) = micro_g(ngrid)%qpcpg(i,j) & + + newprecip*(tempc(i,j)*2093.) + endif + enddo + enddo + enddo +enddo + +rx = rnew + +deallocate(rnew) + +return +END SUBROUTINE sedim_bin + +!############################################################################## +Subroutine update_thermo () + +use rconstants +use mem_micro +use mem_basic +use micro_prm +use mem_grid, only: ngrid +use node_mod +use micphys, only:ipris,igraup,ihail + +implicit none + +real, allocatable, dimension(:,:,:,:) :: ice_bins +real, allocatable, dimension(:,:,:) :: rliq,rice,tair,qhyd + +integer:: k,i,j,izero + +allocate(ice_bins(mmzp(ngrid),mmxp(ngrid),mmyp(ngrid),nkr)) +allocate(rliq(mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) +allocate(rice(mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) +allocate(tair(mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) +allocate(qhyd(mmzp(ngrid),mmxp(ngrid),mmyp(ngrid))) + +izero=0 +CALL sum_bins (micro_g(ngrid)%ffcd,rliq,mmzp(ngrid),mmxp(ngrid),mmyp(ngrid),1,nkr,izero) + +if(iceprocs.eq.1) then + ice_bins = micro_g(ngrid)%ffsn + if (ipris == 1 .or. ipris >= 4) ice_bins = ice_bins + micro_g(ngrid)%ffic + if (ipris == 2 .or. ipris >= 4) ice_bins = ice_bins + micro_g(ngrid)%ffip + if (ipris >= 3) ice_bins = ice_bins + micro_g(ngrid)%ffid + if (igraup > 0) ice_bins = ice_bins + micro_g(ngrid)%ffgl + if (ihail > 0) ice_bins = ice_bins + micro_g(ngrid)%ffhl + izero=0 + CALL sum_bins (ice_bins,rice,mmzp(ngrid),mmxp(ngrid),mmyp(ngrid),1,nkr,izero) +else + rice=0. +endif + +do k=1,mmzp(ngrid) + do i=ia,iz + do j=ja,jz + basic_g(ngrid)%rtp(k,i,j) = basic_g(ngrid)%rv(k,i,j) + rliq(k,i,j) + rice(k,i,j) + + tair(k,i,j) = basic_g(ngrid)%theta(k,i,j) * (basic_g(ngrid)%pi0(k,i,j) & + + basic_g(ngrid)%pp(k,i,j)) * cpi + qhyd(k,i,j) = (alvl * rliq(k,i,j)+alvi * rice(k,i,j)) * cpi / (max(tair(k,i,j), 253.)) + basic_g(ngrid)%thp(k,i,j)= basic_g(ngrid)%theta(k,i,j) / (1. + qhyd(k,i,j)) + enddo + enddo +enddo + +deallocate(ice_bins,rliq,rice,tair,qhyd) + +return +END SUBROUTINE update_thermo + +!############################################################################## +Subroutine zero_budgets () + +use mem_micro +use micro_prm, only: iceprocs +use mem_grid, only:time,dtlt,istp,ngrid +use io_params, only: ioutput, frqstate +use micphys, only:imbudget,ipris,igraup,ihail + +implicit none + +!-------Zero out micro budgets----------------------- +if (imbudget >= 1) then + micro_g(ngrid)%latheatvap = 0. + if (iceprocs == 1) micro_g(ngrid)%latheatfrz = 0. +endif + +if (mod(time+0.001,frqstate(ngrid)) < dtlt .or. istp == 1) then + if (imbudget >= 1) then + micro_g(ngrid)%nuccldrt = 0. + micro_g(ngrid)%nuccldct = 0. + micro_g(ngrid)%cld2raint = 0. + micro_g(ngrid)%vapliqt = 0. + micro_g(ngrid)%latheatvapt = 0. + if (iceprocs == 1) then + micro_g(ngrid)%latheatfrzt = 0. + micro_g(ngrid)%nucicert = 0. + micro_g(ngrid)%nucicect = 0. + micro_g(ngrid)%vapicet = 0. + micro_g(ngrid)%melticet = 0. + micro_g(ngrid)%rain2icet = 0. + micro_g(ngrid)%aggregatet = 0. + micro_g(ngrid)%rimecldt = 0. + endif + endif + if (imbudget >= 2) then + micro_g(ngrid)%vapcldt = 0. + micro_g(ngrid)%vapraint = 0. + if (iceprocs == 1) then + micro_g(ngrid)%inuchomrt = 0. + micro_g(ngrid)%inuchomct = 0. + micro_g(ngrid)%inucifnrt = 0. + micro_g(ngrid)%inucifnct = 0. + if (ipris > 0) micro_g(ngrid)%vapprist = 0. + if (ipris > 0) micro_g(ngrid)%vapsnowt = 0. + micro_g(ngrid)%vapaggrt = 0. + if (igraup > 0) micro_g(ngrid)%vapgraut = 0. + if (ihail > 0) micro_g(ngrid)%vaphailt = 0. + if (ipris > 0) micro_g(ngrid)%meltprist = 0. + if (ipris > 0) micro_g(ngrid)%meltsnowt = 0. + micro_g(ngrid)%meltaggrt = 0. + if (igraup > 0) micro_g(ngrid)%meltgraut = 0. + if (ihail > 0) micro_g(ngrid)%melthailt = 0. + if (ipris > 0) micro_g(ngrid)%rimecldsnowt = 0. + micro_g(ngrid)%rimecldaggrt = 0. + if (igraup > 0) micro_g(ngrid)%rimecldgraut = 0. + if (ihail > 0) micro_g(ngrid)%rimecldhailt = 0. + if (ipris > 0) micro_g(ngrid)%rain2snt = 0. + micro_g(ngrid)%rain2agt = 0. + if (igraup > 0) micro_g(ngrid)%rain2grt = 0. + if (ihail > 0) micro_g(ngrid)%rain2hat = 0. + endif + endif +endif + +return +END SUBROUTINE zero_budgets + +!############################################################################## +Subroutine adj1_bin (m1,m2,m3,rtp,micro) + +use mem_micro +use micro_prm, only:nkr,col,iceprocs,iceflag +use micphys, only:ipris,igraup,ihail,rxmin + +implicit none + +type (micro_vars) :: micro + +integer :: m1,m2,m3 +integer :: i,j,k,kr +real :: frac, totbef +real, dimension(m1,m2,m3) :: rtp +real, dimension(m1) :: vctr9 + +do j=1,m3 + do i=1,m2 + do k=1,m1 + totbef=0. + do kr = 1,nkr + totbef = totbef + micro%ffcd(k,i,j,kr) + if (iceprocs == 1) then + totbef = totbef + micro%ffsn(k,i,j,kr) + if (ipris == 1 .or. ipris >= 4) totbef = totbef + micro%ffic(k,i,j,kr) + if (ipris == 2 .or. ipris >= 4) totbef = totbef + micro%ffip(k,i,j,kr) + if (ipris >= 3) totbef = totbef + micro%ffid(k,i,j,kr) + if (igraup > 0) totbef = totbef + micro%ffgl(k,i,j,kr) + if (ihail > 0) totbef = totbef + micro%ffhl(k,i,j,kr) + endif + enddo + do kr = 1,nkr + if (micro%ffcd(k,i,j,kr)*col < rxmin) micro%ffcd(k,i,j,kr) = 0. + if (iceprocs == 1) then + if (ipris == 1 .or. ipris >= 4) then + if (micro%ffic(k,i,j,kr)*col < rxmin) micro%ffic(k,i,j,kr) = 0. + endif + if (ipris == 2 .or. ipris >= 4) then + if (micro%ffip(k,i,j,kr)*col < rxmin) micro%ffip(k,i,j,kr) = 0. + endif + if (ipris >= 3) then + if (micro%ffid(k,i,j,kr)*col < rxmin) micro%ffid(k,i,j,kr) = 0. + endif + if (micro%ffsn(k,i,j,kr)*col < rxmin) micro%ffsn(k,i,j,kr) = 0. + if (igraup > 0) then + if (micro%ffgl(k,i,j,kr)*col < rxmin) micro%ffgl(k,i,j,kr) = 0. + endif + if (ihail > 0) then + if (micro%ffhl(k,i,j,kr)*col < rxmin) micro%ffhl(k,i,j,kr) = 0. + endif + if (iceflag == 1) then + if (micro%ffin(k,i,j,kr)*col < rxmin) micro%ffin(k,i,j,kr) = 0. + endif + endif + if (micro%fncn(k,i,j,kr)*col < rxmin) micro%fncn(k,i,j,kr) = 0. + enddo + + if (totbef < 0.) then + totbef = 0.0 + endif + rtp(k,i,j) = max(totbef * col * 1.01,rtp(k,i,j)) + vctr9(k)=0. + do kr = 1,nkr + vctr9(k) = vctr9(k) + micro%ffcd(k,i,j,kr) + if (iceprocs == 1) then + vctr9(k) = vctr9(k) + micro%ffsn(k,i,j,kr) + if (ipris == 1 .or. ipris >= 4) vctr9(k) = vctr9(k) + micro%ffic(k,i,j,kr) + if (ipris == 2 .or. ipris >= 4) vctr9(k) = vctr9(k) + micro%ffip(k,i,j,kr) + if (ipris >= 3) vctr9(k) = vctr9(k) + micro%ffid(k,i,j,kr) + if (igraup > 0) vctr9(k) = vctr9(k) + micro%ffgl(k,i,j,kr) + if (ihail > 0) vctr9(k) = vctr9(k) + micro%ffhl(k,i,j,kr) + endif + enddo + + if (vctr9(k) > totbef .and. vctr9(k) > 0.) then + frac = totbef / (vctr9(k)) + do kr = 1,nkr + micro%ffcd(k,i,j,kr) = micro%ffcd(k,i,j,kr) * frac + if (iceprocs == 1) then + if (ipris==1 .or. ipris>=4) micro%ffic(k,i,j,kr) = micro%ffic(k,i,j,kr)*frac + if (ipris==2 .or. ipris>=4) micro%ffip(k,i,j,kr) = micro%ffip(k,i,j,kr)*frac + if (ipris>=3) micro%ffid(k,i,j,kr) = micro%ffid(k,i,j,kr) * frac + micro%ffsn(k,i,j,kr) = micro%ffsn(k,i,j,kr) * frac + if (igraup > 0) micro%ffgl(k,i,j,kr) = micro%ffgl(k,i,j,kr) * frac + if (ihail > 0) micro%ffhl(k,i,j,kr) = micro%ffhl(k,i,j,kr) * frac + endif + enddo + endif + enddo + enddo +enddo + +return +END SUBROUTINE adj1_bin + +!############################################################################## +Subroutine fastsbm_reassign (FF2R,FF3R,FF4R,FF5R) + +use micphys, only:ipris,igraup,ihail +use micro_prm, only:nkr,icemax + +implicit none + +real, dimension(nkr,icemax) :: FF2R +real, dimension(nkr) :: FF3R,FF4R,FF5R +integer :: ikl + +IF (IPRIS == 1 .or. IPRIS == 2 .or. IPRIS == 3) THEN + FF2R(:,IPRIS) = FF2R(:,1)+FF2R(:,2)+FF2R(:,3) + DO IKL=1,ICEMAX + IF (IKL .ne. IPRIS) FF2R(:,IKL)=0. + ENDDO +ELSEIF (IPRIS == 0) THEN + FF3R(:) = FF3R(:)+FF2R(:,1)+FF2R(:,2)+FF2R(:,3) + DO IKL=1,ICEMAX + FF2R(:,IKL)=0. + ENDDO +ENDIF +IF (IGRAUP == 0) THEN + FF5R(:)=FF5R(:)+FF4R(:) + FF4R(:)=0. +ENDIF +IF (IHAIL == 0) THEN + FF4R(:)=FF4R(:)+FF5R(:) + FF5R(:)=0. +ENDIF + +return +END SUBROUTINE fastsbm_reassign + +!############################################################################## +Subroutine vap_budget (ff1r,ff2r,ff3r,ff4r,ff5r,dens,k,i,j,str) + +use mem_micro +use micro_prm, only:nkr,iceprocs,icemax,krdrop,krpris +use module_hujisbm, only:xl,xi,xs,xg,xh,sum_mass +use micphys, only:imbudget, ipris, igraup, ihail +use mem_grid, only:ngrid + +implicit none + +real, dimension(nkr) :: ff1r,ff3r,ff4r,ff5r +real, dimension(nkr,icemax) :: ff2r +real :: dens,plusminus,sum_pris,sum_snow +integer :: k,i,j +character(len=3) :: str + +!plusminus = -1 for budget prep, = +1 for budget finish +if (str .eq. 'beg') then + plusminus = -1. +elseif (str .eq. 'end') then + plusminus = 1. +else + print*, 'Invalid string for budgets' + stop +endif + +if (imbudget >= 1) then + micro_g(ngrid)%vapliqt(k,i,j) = micro_g(ngrid)%vapliqt(k,i,j) + & + plusminus * sum_mass(ff1r,xl(:),dens,1,nkr) + + if(iceprocs.eq.1) & + micro_g(ngrid)%vapicet(k,i,j) = micro_g(ngrid)%vapicet(k,i,j) + plusminus * & + sum_mass(ff2r(:,1)+ff2r(:,2)+ff2r(:,3)+ff3r+ff4r+ff5r,xs,dens,1,nkr) +endif +if (imbudget >= 2) then + micro_g(ngrid)%vapcldt(k,i,j) = micro_g(ngrid)%vapcldt(k,i,j) + & + plusminus * sum_mass(ff1r,xl,dens,1,krdrop-1) + micro_g(ngrid)%vapraint(k,i,j) = micro_g(ngrid)%vapraint(k,i,j) + & + plusminus * sum_mass(ff1r,xl,dens,krdrop-1,nkr) + if(iceprocs.eq.1) then + if (ipris > 0) & + micro_g(ngrid)%vapprist(k,i,j) = micro_g(ngrid)%vapprist(k,i,j) + & + plusminus * sum_pris(ff2r,dens) + if (ipris > 0) & + micro_g(ngrid)%vapsnowt(k,i,j) = micro_g(ngrid)%vapsnowt(k,i,j) + & + plusminus * sum_snow(ff2r,dens) + micro_g(ngrid)%vapaggrt(k,i,j) = micro_g(ngrid)%vapaggrt(k,i,j) + & + plusminus * sum_mass(ff3r,xs,dens,1,nkr) + if (igraup > 0) & + micro_g(ngrid)%vapgraut(k,i,j) = micro_g(ngrid)%vapgraut(k,i,j) + & + plusminus * sum_mass(ff4r,xg,dens,1,nkr) + if (ihail > 0) & + micro_g(ngrid)%vaphailt(k,i,j) = micro_g(ngrid)%vaphailt(k,i,j) + & + plusminus * sum_mass(ff5r,xh,dens,1,nkr) + endif +endif + +return +END SUBROUTINE vap_budget + +!############################################################################## +Subroutine lhv_budget (ff1r,ff2r,ff3r,ff4r,ff5r,pitot,dens,k,i,j,str) + +use mem_micro +use micro_prm, only:nkr,iceprocs,icemax +use module_hujisbm, only:xl,xi,xs,xg,xh,sum_mass +use micphys, only:imbudget,lhrtheta +use mem_grid, only:ngrid +use rconstants, only:cpi,alvl,alvi + +implicit none + +real, dimension(nkr) :: ff1r,ff3r,ff4r,ff5r +real, dimension(nkr,icemax) :: ff2r +real :: pitot,dens,fac,plusminus +integer :: k,i,j +character(len=3) :: str + +!plusminus = -1 for budget prep, = +1 for budget finish +if (str .eq. 'beg') then + plusminus = -1. +elseif (str .eq. 'end') then + plusminus = 1. +else + print*, 'Invalid string for budgets' + stop +endif + +if (lhrtheta) then + fac = 1./pitot +else + fac = cpi +endif + +if (imbudget >= 1) then + micro_g(ngrid)%latheatvap(k,i,j) = micro_g(ngrid)%latheatvap(k,i,j) + & + plusminus * alvl * fac * sum_mass(ff1r,xl(:),dens,1,nkr) + + if(iceprocs.eq.1) & + micro_g(ngrid)%latheatvap(k,i,j) = micro_g(ngrid)%latheatvap(k,i,j) + & + plusminus * alvi * fac * & + sum_mass(ff2r(:,1)+ff2r(:,2)+ff2r(:,3)+ff3r+ff4r+ff5r,xs,dens,1,nkr) +endif + +if (imbudget >=1 .and. plusminus .eq. 1) then + micro_g(ngrid)%latheatvapt(k,i,j) = micro_g(ngrid)%latheatvapt(k,i,j) + & + micro_g(ngrid)%latheatvap(k,i,j) +endif + +return +END SUBROUTINE lhv_budget + +!############################################################################## +Subroutine lhf_budget (ff1r,pitot,dens,k,i,j,str) + +use mem_micro +use micro_prm, only:nkr,iceprocs +use module_hujisbm, only:xl,sum_mass +use micphys, only:imbudget,lhrtheta +use mem_grid, only:ngrid +use rconstants, only:cpi,alli + +implicit none + +real, dimension(nkr) :: ff1r +real :: pitot,dens,fac,plusminus +integer :: k,i,j +character(len=3) :: str + +!plusminus = -1 for budget prep, = +1 for budget finish +if (str .eq. 'beg') then + plusminus = -1. +elseif (str .eq. 'end') then + plusminus = 1. +else + print*, 'Invalid string for budgets' + stop +endif + +if (lhrtheta) then + fac = 1./pitot +else + fac = cpi +endif + +if (imbudget >= 1 .and. iceprocs == 1) then + micro_g(ngrid)%latheatfrz(k,i,j) = micro_g(ngrid)%latheatfrz(k,i,j) + & + plusminus * (-1.) * alli * fac * sum_mass(ff1r,xl(:),dens,1,nkr) +endif + +if (imbudget >=1 .and. iceprocs == 1 .and. plusminus .eq. 1) then + micro_g(ngrid)%latheatfrzt(k,i,j) = micro_g(ngrid)%latheatfrzt(k,i,j) + & + micro_g(ngrid)%latheatfrz(k,i,j) +endif + +return +END SUBROUTINE lhf_budget diff --git a/src/6.2.16/micro_bin/module_hujisbm.f90 b/src/6.2.16/micro_bin/module_hujisbm.f90 new file mode 100644 index 0000000..52f9e1c --- /dev/null +++ b/src/6.2.16/micro_bin/module_hujisbm.f90 @@ -0,0 +1,6007 @@ +!############################################################################## +Module module_hujisbm + +use micro_prm +use micphys, only: imbudget,ipris,igraup,ihail + +! YWLL_1000MB(nkr,nkr) - input array of kernels for pressure 1000mb +! YWLL_750MB(nkr,nkr) - input array of kernels for pressure 750mb +! YWLL_500MB(nkr,nkr) - input array of kernels for pressure 500mb +REAL, SAVE :: & +! CRYSTALS + YWLI(NKR,NKR,ICEMAX) & +! MIXTURES + ,YWIL(NKR,NKR,ICEMAX),YWII(NKR,NKR,ICEMAX,ICEMAX) & + ,YWIS(NKR,NKR,ICEMAX),YWIG(NKR,NKR,ICEMAX) & + ,YWIH(NKR,NKR,ICEMAX),YWSI(NKR,NKR,ICEMAX) & + ,YWGI(NKR,NKR,ICEMAX),YWHI(NKR,NKR,ICEMAX) +! +REAL, DIMENSION(NKR,NKR),SAVE :: & + YWLL_1000MB,YWLL_750MB,YWLL_500MB,YWLL,YWLS,YWLG,YWLH & +! SNOW : + ,YWSL,YWSS,YWSG,YWSH & +! GRAUPELS : + ,YWGL,YWGS,YWGG,YWGH & +! HAIL : + ,YWHL,YWHS,YWHG,YWHH +REAL,SAVE :: & + XI(NKR,ICEMAX) & + ,RADXX(NKR,NHYDR-1),MASSXX(NKR,NHYDR-1),DENXX(NKR,NHYDR-1) & + ,RADXXO(NKR,NHYDRO),MASSXXO(NKR,NHYDRO),DENXXO(NKR,NHYDRO) & + ,RIEC(NKR,ICEMAX),COEFIN(NKR),SLIC(NKR,6),TLIC(NKR,2) & + ,RO2BL(NKR,ICEMAX) +REAL, SAVE :: VR1(NKR),VR2(NKR,ICEMAX),VR3(NKR) & + ,VR4(NKR),VR5(NKR),VRX(NKR) +REAL,DIMENSION(NKR),SAVE :: & + XL,RLEC,XX,XCCN,XS,RSEC & + ,XG,RGEC,XH,RHEC,RO1BL,RO3BL,RO4BL,RO5BL & + ,ROCCN,RCCN,DROPRADII +REAL, SAVE :: ICEN(NKR) +REAL, SAVE :: FCCNR0(NKR), FCCNR_mp(NKR) + +REAL :: C2,C3,C4 +double precision,save :: cwll(nkr,nkr) +double precision,save:: & + xl_mg(0:nkr),xs_mg(0:nkr),xg_mg(0:nkr),xh_mg(0:nkr) & + ,xi1_mg(0:nkr),xi2_mg(0:nkr),xi3_mg(0:nkr) & + ,chucm(nkr,nkr),ima(nkr,nkr) & + ,cwll_1000mb(nkr,nkr),cwll_750mb(nkr,nkr),cwll_500mb(nkr,nkr) & + ,cwli_1(nkr,nkr),cwli_2(nkr,nkr),cwli_3(nkr,nkr) & + ,cwls(nkr,nkr),cwlg(nkr,nkr),cwlh(nkr,nkr) & + + ,cwil_1(nkr,nkr),cwil_2(nkr,nkr),cwil_3(nkr,nkr) & + + ,cwii_1_1(nkr,nkr),cwii_1_2(nkr,nkr),cwii_1_3(nkr,nkr) & + ,cwii_2_1(nkr,nkr),cwii_2_2(nkr,nkr),cwii_2_3(nkr,nkr) & + ,cwii_3_1(nkr,nkr),cwii_3_2(nkr,nkr),cwii_3_3(nkr,nkr) & + + ,cwis_1(nkr,nkr),cwis_2(nkr,nkr),cwis_3(nkr,nkr) & + ,cwig_1(nkr,nkr),cwig_2(nkr,nkr),cwig_3(nkr,nkr) & + ,cwih_1(nkr,nkr),cwih_2(nkr,nkr),cwih_3(nkr,nkr) & + + ,cwsl(nkr,nkr) & + ,cwsi_1(nkr,nkr),cwsi_2(nkr,nkr),cwsi_3(nkr,nkr)& + ,cwss(nkr,nkr),cwsg(nkr,nkr),cwsh(nkr,nkr) & + ,cwgl(nkr,nkr)& + ,cwgi_1(nkr,nkr),cwgi_2(nkr,nkr),cwgi_3(nkr,nkr)& + ,cwgs(nkr,nkr),cwgg(nkr,nkr),cwgh(nkr,nkr) & + + ,cwhl(nkr,nkr) & + ,cwhi_1(nkr,nkr),cwhi_2(nkr,nkr),cwhi_3(nkr,nkr) & + ,cwhs(nkr,nkr),cwhg(nkr,nkr),cwhh(nkr,nkr) & + ,dlnr & + ,CTURBLL(KRMAX_LL,KRMAX_LL)& + ,CTURB_LL(K0_LL,K0_LL)& + ,CTURBGL(KRMAXG_GL,KRMAXL_GL)& + ,CTURB_GL(K0G_GL,K0L_GL) + +DOUBLE PRECISION, save :: & + BRKWEIGHT(JBREAK),PKIJ(JBREAK,JBREAK,JBREAK), & + QKJ(JBREAK,JBREAK),ECOALMASSM(NKR,NKR) + +contains + +!############################################################################## +real Function sum_mass (speciesbin,xbin,dens,krs,kre) + +implicit none + +integer :: krs,kre +real, dimension(nkr) :: speciesbin,xbin +real :: dens + +sum_mass = col3/dens*sum(speciesbin(krs:kre)*xbin(krs:kre)*xbin(krs:kre)) + +return +END FUNCTION sum_mass + +!############################################################################## +Subroutine BREAKINIT () + +! GT : MASS DISTRIBUTION function +! XT_MG : MASS OF BIN IN MG +! JMAX : NUMBER OF BINS + +IMPLICIT NONE + +character(len=strl1) :: hname +INTEGER,PARAMETER :: hujisbm_unit1=22 +LOGICAL, PARAMETER :: PRINT_diag=.FALSE. +INTEGER AP,IE,JE,KE +PARAMETER (AP = 1) +INTEGER I,J,K,JDIFF +REAL PI,D0 +DOUBLE PRECISION M(0:JBREAK),ALM +INTEGER IP,KP,JP,KQ,JQ +CHARACTER*20 FILENAME_P,FILENAME_Q + +FILENAME_P = 'coeff_p.asc' +FILENAME_Q = 'coeff_q.asc' + +IE = JBREAK +JE = JBREAK +KE = JBREAK +PI = 3.1415927 +D0 = 0.0101593 +M(1) = PI/6.0 * D0**3 + +!.....IN CGS +!.....SHIFT BETWEEN COAGULATION AND BREAKUP GRID + +JDIFF = JMAX - JBREAK + +!.....INITIALIZATION +!........CALCULATING THE BREAKUP GRID +ALM = 2.d0 +M(0) = M(1)/ALM +DO K=1,KE-1 + M(K+1) = M(K)*ALM +ENDDO +DO K=1,KE + BRKWEIGHT(K) = 2./(M(K)**2 - M(K-1)**2) +ENDDO + +!........OUTPUT +!WRITE (*,*) 'COLL_BREAKUP_INI: COAGULATION AND BREAKUP GRID' +!WRITE (*,'(2A5,5A15)') 'ICOAG','IBREAK','XCOAG','DCOAG', & +! 'XBREAK','DBREAK','MWEIGHT' + +!........READ DER BREAKUP COEFFICIENTS FROM INPUT FILE + +!WRITE (*,*) 'COLL_BREAKUP: READ THE BREAKUP COEFFS' +!WRITE (*,*) ' FILE PKIJ: ', FILENAME_P +hname=trim(hucmfile)//'/coeff_p.asc' +OPEN(UNIT=hujisbm_unit1,FILE=hname,FORM="FORMATTED",STATUS="OLD") +DO K=1,KE + DO I=1,IE + DO J=1,I + READ(hujisbm_unit1,'(3I6,1E16.8)') KP,IP,JP,PKIJ(KP,IP,JP) + ENDDO + ENDDO +ENDDO +CLOSE(hujisbm_unit1) + +hname=trim(hucmfile)//'/coeff_q.asc' +OPEN(UNIT=hujisbm_unit1,FILE=hname,FORM="FORMATTED",STATUS="OLD") +DO K=1,KE + DO J=1,JE + READ(hujisbm_unit1,'(2I6,1E16.8)') KQ,JQ,QKJ(KQ,JQ) + ENDDO +ENDDO +CLOSE(hujisbm_unit1) + +DO I=1,JMAX + DO J=1,JMAX + ECOALMASSM(I,J)=1.0D0 + ENDDO +ENDDO + +DO I=1,JMAX + DO J=1,JMAX + ECOALMASSM(I,J)=ECOALMASS(XL(I),XL(J)) + ENDDO +ENDDO + +RETURN +END SUBROUTINE BREAKINIT + +!############################################################################## +real Function ECOALMASS (ETA,KSI) + +IMPLICIT NONE +REAL PI +PARAMETER (PI = 3.1415927) + +REAL ETA,KSI +REAL KPI,RHO +REAL DETA,DKSI + +PARAMETER (RHO = 1.0) + +! REAL ECOALDIAM +! EXTERNAL ECOALDIAM + +KPI = 6./PI + +DETA = (KPI*ETA/RHO)**(1./3.) +DKSI = (KPI*KSI/RHO)**(1./3.) + +ECOALMASS = ECOALDIAM(DETA,DKSI) + +RETURN +END FUNCTION ECOALMASS + +!############################################################################# +real Function ECOALDIAM (DETA,DKSI) + +!------------------------------------------------ +! COALESCENCE EFFICIENCY AS FUNC OF DIAMETERS +!------------------------------------------------ + +REAL DETA,DKSI +REAL DGR,DKL,RGR,RKL,P,Q,E,X,QMIN,QMAX +REAL ZERO,ONE,EPS,PI + +PARAMETER (ZERO = 0.0) +PARAMETER (ONE = 1.0) +PARAMETER (EPS = 1.0E-30) +PARAMETER (PI = 3.1415927) + +DGR = MAX(DETA,DKSI) +DKL = MIN(DETA,DKSI) + +RGR = 0.5*DGR +RKL = 0.5*DKL + +P = (RKL / RGR) +Q = (RKL * RGR)**0.5 +Q = 0.5 * (RKL + RGR) + +qmin = 250e-4 +qmax = 400e-4 +if (q.lt.qmin) then + e = max(ECOALOCHS(Dgr,Dkl),ecoalBeard(Dgr,Dkl)) +elseif (q.ge.qmin.and.q.lt.qmax) then + x = (q - qmin) / (qmax - qmin) + e = sin(pi/2.0*x)**2 * ECOALLOWLIST(Dgr,Dkl) & + + sin(pi/2.0*(1 - x))**2 * ECOALOCHS(Dgr,Dkl) +elseif (q.ge.qmax) then + e = ECOALLOWLIST(Dgr,Dkl) +else + e = 1.0 +endif + +ECOALDIAM = MAX(MIN(ONE,E),EPS) + +RETURN +END FUNCTION ECOALDIAM + +!############################################################################ +real Function ECOALLOWLIST (DGR,DKL) + +!-------------------------------------------------- +! COALESCENCE EFFICIENCY (LOW&LIST) +!-------------------------------------------------- +IMPLICIT NONE +REAL PI,SIGMA,KA,KB,EPSI +REAL DGR,DKL,RGR,RKL +REAL ST,SC,ET,DSTSC,CKE,W1,W2,DC,ECL +REAL QQ0,QQ1,QQ2 + +PARAMETER (EPSI=1.E-20) + +PI = 3.1415927 +SIGMA = 72.8 +KA = 0.778 +KB = 2.61E-4 + +RGR = 0.5*DGR +RKL = 0.5*DKL + +CALL COLLENERGY (DGR,DKL,CKE,ST,SC,W1,W2,DC) + +DSTSC = ST-SC +ET = CKE+DSTSC +IF (ET .LT. 50.0) THEN + QQ0=1.0+(DKL/DGR) + QQ1=KA/QQ0**2 + QQ2=KB*SIGMA*(ET**2)/(SC+EPSI) + ECL=QQ1*EXP(-QQ2) +ELSE + ECL=0.0 +ENDIF + +ECOALLOWLIST = ECL + +RETURN +END FUNCTION ECOALLOWLIST + +!########################################################################### +real Function ECOALOCHS (D_L,D_S) + +!-------------------------------------------------- +! COALESCENCE EFFICIENCY (BEARD AND OCHS) +!-------------------------------------------------- +IMPLICIT NONE +REAL D_L,D_S +REAL PI,SIGMA,N_W,R_S,R_L,DV,P,G,X,E +REAL EPSF,FPMIN +PARAMETER (EPSF = 1.E-30) +PARAMETER (FPMIN = 1.E-30) + +PI = 3.1415927 +SIGMA = 72.8 + +R_S = 0.5 * D_S +R_L = 0.5 * D_L +P = R_S / R_L + +DV = ABS(VTBEARD(D_L) - VTBEARD(D_S)) +IF (DV.LT.FPMIN) DV = FPMIN +N_W = R_S * DV**2 / SIGMA +G = 2**(3./2.)/(6.*PI) * P**4 * (1.+ P) / ((1.+P**2)*(1.+P**3)) +X = N_W**(0.5) * G +E = 0.767 - 10.14 * X + +ECOALOCHS = E + +RETURN +END FUNCTION ECOALOCHS + +!############################################################################## +Subroutine COLLENERGY (DGR,DKL,CKE,ST,SC,W1,W2,DC) + +!----------------------------------------- +! CALCULATING THE COLLISION ENERGY +!----------------------------------------- + +IMPLICIT NONE + +REAL DGR,DKL,DC +REAL K10,PI,SIGMA,RHO +REAL CKE,W1,W2,ST,SC +REAL DGKA3,DGKB3,DGKA2 +REAL V1,V2,DV +REAL EPSF,FPMIN +PARAMETER (EPSF = 1.E-30) +PARAMETER (FPMIN = 1.E-30) + +PI = 3.1415927 +RHO = 1.0 +SIGMA = 72.8 + +K10=RHO*PI/12.0D0 + +DGR = MAX(DGR,EPSF) +DKL = MAX(DKL,EPSF) + +DGKA2=(DGR**2)+(DKL**2) + +DGKA3=(DGR**3)+(DKL**3) + +IF (DGR.NE.DKL) THEN + V1 = VTBEARD(DGR) + V2 = VTBEARD(DKL) + DV = (V1-V2) + IF (DV.LT.FPMIN) DV = FPMIN + DV = DV**2 + IF (DV.LT.FPMIN) DV = FPMIN + DGKB3=(DGR**3)*(DKL**3) + CKE = K10 * DV * DGKB3/DGKA3 +ELSE + CKE = 0.0D0 +ENDIF +ST = PI*SIGMA*DGKA2 +SC = PI*SIGMA*DGKA3**(2./3.) + +W1=CKE/(SC+EPSF) +W2=CKE/(ST+EPSF) + +DC=DGKA3**(1./3.) + +RETURN +END SUBROUTINE COLLENERGY + +!############################################################################## +real Function VTBEARD (DIAM) + +!-------------------------------------------------- +! CALCULATING TERMINAL VELOCITY (BEARD-FORMULA) +!-------------------------------------------------- + +IMPLICIT NONE + +REAL DIAM,AA +REAL ROP,RU,AMT,PP,RL,TT,ETA,DENS,CD,D,A +REAL ALA,GR,SI,BOND,PART,XX,YY,RE,VT +REAL B00,B11,B22,B33,B44,B55,B0,B1,B2,B3,B4,B5,B6 +INTEGER ID + +DATA B00,B11,B22,B33,B44,B55,B0,B1,B2,B3,B4,B5,B6/-5.00015, & + 5.23778,-2.04914,.475294,-.0542819,.00238449,-3.18657,.992696, & + -.153193E-2,-.987059E-3,-.578878E-3,.855176E-4,-.327815E-5/ + +AA = DIAM/2.0 +ROP = 1.0 +RU = 8.3144E+7 +AMT = 28.9644 +ID = 10000 +PP = FLOAT(ID)*100. +RL = RU/AMT +TT = 283.15 +ETA = (1.718+.0049*(TT-273.15))*1.E-4 +DENS = PP/TT/RL +ALA = 6.6E-6*1.01325E+6/PP*TT/293.15 +GR = 979.69 +SI = 76.1-.155*(TT-273.15) + +IF (AA.GT.500.E-4) THEN + BOND = GR*(ROP-DENS)*AA*AA/SI + PART = (SI**3*DENS*DENS/(ETA**4*GR*(ROP-DENS)))**(1./6.) + XX = LOG(16./3.*BOND*PART) + YY = B00+B11*XX+B22*XX*XX+B33*XX**3+B44*XX**4+B55*XX**5 + RE = PART*EXP(YY) + VT = ETA*RE/2./DENS/AA +ELSEIF (AA.GT.1.E-3) THEN + CD = 32.*AA*AA*AA*(ROP-DENS)*DENS*GR/3./ETA/ETA + XX = LOG(CD) + RE = EXP(B0+B1*XX+B2*XX*XX+B3*XX**3+B4*XX**4+B5*XX**5+B6*XX**6) + D = CD/RE/24.-1. + VT = ETA*RE/2./DENS/AA +ELSE + A = 1.+1.26*ALA/AA + A = A*2.*AA*AA*GR*(ROP-DENS)/9./ETA + CD = 12*ETA/A/AA/DENS + VT = A +ENDIF + +VTBEARD = VT + +RETURN +END FUNCTION VTBEARD + +!######################################################################## +real Function ecoalBeard (D_l,D_s) + +!-------------------------------------------------- +! function f. Coalescence-Efficiency +! Eq. (7) of Beard and Ochs (1995) +!-------------------------------------------------- + +IMPLICIT NONE +REAL D_l,D_s +REAL R_s,R_l +REAL rcoeff +REAL epsf +PARAMETER (epsf = 1.e-30) +INTEGER its +COMPLEX acoeff(4),x + +R_s = 0.5 * D_s +R_l = 0.5 * D_l + +rcoeff = 5.07 - log(R_s*1e4) - log(R_l*1e4/200.0) + +acoeff(1) = CMPLX(rcoeff) +acoeff(2) = CMPLX(-5.94) +acoeff(3) = CMPLX(+7.27) +acoeff(4) = CMPLX(-5.29) + +x = (0.50,0) + +CALL laguer (acoeff,3,x,its) + +ecoalBeard = REAL(x) + +RETURN +END FUNCTION ecoalBeard + +!############################################################################## +Subroutine laguer (a,m,x,its) + +INTEGER m,its,MAXIT,MR,MT +REAL EPSS +COMPLEX a(m+1),x +PARAMETER (EPSS=2.e-7,MR=8,MT=10,MAXIT=MT*MR) +INTEGER iter,j +REAL abx,abp,abm,err,frac(MR) +COMPLEX dx,x1,b,d,f,g,h,sq,gp,gm,g2 +SAVE frac +DATA frac /.5,.25,.75,.13,.38,.62,.88,1./ +do iter=1,MAXIT + its=iter + b=a(m+1) + err=abs(b) + d=cmplx(0.,0.) + f=cmplx(0.,0.) + abx=abs(x) + do j=m,1,-1 + f=x*f+d + d=x*d+b + b=x*b+a(j) + err=abs(b)+abx*err + enddo + err=EPSS*err + if(abs(b).le.err) then + return + else + g=d/b + g2=g*g + h=g2-2.*f/b + sq=sqrt((m-1)*(m*h-g2)) + gp=g+sq + gm=g-sq + abp=abs(gp) + abm=abs(gm) + if(abp.lt.abm) gp=gm + if (max(abp,abm).gt.0.) then + dx=m/gp + else + dx=exp(cmplx(log(1.+abx),float(iter))) + endif + endif + x1=x-dx + if(x.eq.x1)return + if (mod(iter,MT).ne.0) then + x=x1 + else + x=x-dx*frac(iter/MT) + endif +enddo +return +END SUBROUTINE laguer + +!############################################################################## +Subroutine courant_bott () + +implicit none +integer k,kk,j,i +double precision x0 +! ima(i,j) - k-category number, +! chucm(i,j) - courant number : +! logarithmic grid distance(dlnr) : +xl_mg(0)=xl_mg(1)/2 +do i=1,nkr + do j=i,nkr + x0=xl_mg(i)+xl_mg(j) + do k=j,nkr + kk=k + if(xl_mg(k).ge.x0.and.xl_mg(k-1).lt.x0) then + chucm(i,j)=dlog(x0/xl_mg(k-1))/(3.d0*dlnr) + if(chucm(i,j).gt.1.-1.d-08) then + chucm(i,j)=0. + kk=kk+1 + endif + ima(i,j)=min(nkr-1,kk-1) + + goto 2000 + endif + enddo + 2000 continue + chucm(j,i)=chucm(i,j) + ima(j,i)=ima(i,j) + enddo +enddo +return +END SUBROUTINE courant_bott + +!############################################################################## +Subroutine kernals (DTIME) + +! KHAIN30/07/99 +IMPLICIT NONE +INTEGER I,J +REAL PI +!****************************************************************** +data pi/3.141592654/ +! dtime - timestep of integration (calculated in main program) : +! dlnr - logarithmic grid distance +! ima(i,j) - k-category number, c(i,j) - courant number +! cw*(i,j) (in cm**3) - multiply help kernel with constant +! timestep(dt) and logarithmic grid distance(dlnr) : +REAL DTIME +! logarithmic grid distance(dlnr) : +! dlnr=dlog(2.d0)/(3.d0*scal) +! scal is micro.prm file parameter(scal=1.d0 for x(k+1)=x(k)*2) +! calculation of cw*(i,j) (in cm**3) - multiply help kernel +! with constant timestep(dtime) and logarithmic grid distance(dlnr) : +! print*,'dlnr in kernal = ',dlnr,dtime + DO I=1,NKR + DO J=1,NKR + CWLL_1000MB(I,J)=DTIME*DLNR*YWLL_1000MB(I,J) + CWLL_750MB(I,J)=DTIME*DLNR*YWLL_750MB(I,J) + CWLL_500MB(I,J)=DTIME*DLNR*YWLL_500MB(I,J) + + CWLL(I,J)=DTIME*DLNR*YWLL(I,J) + CWLS(I,J)=DTIME*DLNR*YWLS(I,J) + CWLG(I,J)=DTIME*DLNR*YWLG(I,J) + CWLH(I,J)=DTIME*DLNR*YWLH(I,J) + + CWSL(I,J)=DTIME*DLNR*YWSL(I,J) + CWSS(I,J)=DTIME*DLNR*YWSS(I,J) + CWSG(I,J)=DTIME*DLNR*YWSG(I,J) + CWSH(I,J)=DTIME*DLNR*YWSH(I,J) + + CWGL(I,J)=DTIME*DLNR*YWGL(I,J) + IF(RADXXO(I,6).LT.2.0D-2) THEN + IF(RADXXO(J,1).LT.1.0D-3) THEN + IF(RADXXO(J,1).GE.7.0D-4) THEN + CWGL(I,J)=DTIME*DLNR*YWGL(I,J)/1.5D0 + ELSE + CWGL(I,J)=DTIME*DLNR*YWGL(I,J)/3.0D0 + ENDIF + ENDIF + ENDIF + IF(I.LE.14.AND.J.LE.7) CWGL(I,J)=0.0D0 + CWGS(I,J)=DTIME*DLNR*YWGS(I,J) + CWGG(I,J)=DTIME*DLNR*YWGG(I,J) + CWGH(I,J)=DTIME*DLNR*YWGH(I,J) + + CWHL(I,J)=DTIME*DLNR*YWHL(I,J) + CWHS(I,J)=DTIME*DLNR*YWHS(I,J) + CWHG(I,J)=DTIME*DLNR*YWHG(I,J) + CWHH(I,J)=DTIME*DLNR*YWHH(I,J) + + CWLI_1(I,J)=DTIME*DLNR*YWLI(I,J,1) + CWLI_2(I,J)=DTIME*DLNR*YWLI(I,J,2) + CWLI_3(I,J)=DTIME*DLNR*YWLI(I,J,3) + + CWIL_1(I,J)=DTIME*DLNR*YWIL(I,J,1) + CWIL_2(I,J)=DTIME*DLNR*YWIL(I,J,2) + CWIL_3(I,J)=DTIME*DLNR*YWIL(I,J,3) + + CWIS_1(I,J)=DTIME*DLNR*YWIS(I,J,1) + CWIS_2(I,J)=DTIME*DLNR*YWIS(I,J,2) + CWIS_3(I,J)=DTIME*DLNR*YWIS(I,J,3) + + CWSI_1(I,J)=DTIME*DLNR*YWSI(I,J,1) + CWSI_2(I,J)=DTIME*DLNR*YWSI(I,J,2) + CWSI_3(I,J)=DTIME*DLNR*YWSI(I,J,3) + + CWIG_1(I,J)=DTIME*DLNR*YWIG(I,J,1) + CWIG_2(I,J)=DTIME*DLNR*YWIG(I,J,2) + CWIG_3(I,J)=DTIME*DLNR*YWIG(I,J,3) + + CWGI_1(I,J)=DTIME*DLNR*YWGI(I,J,1) + CWGI_2(I,J)=DTIME*DLNR*YWGI(I,J,2) + CWGI_3(I,J)=DTIME*DLNR*YWGI(I,J,3) + + CWIH_1(I,J)=DTIME*DLNR*YWIH(I,J,1) + CWIH_2(I,J)=DTIME*DLNR*YWIH(I,J,2) + CWIH_3(I,J)=DTIME*DLNR*YWIH(I,J,3) + + CWHI_1(I,J)=DTIME*DLNR*YWHI(I,J,1) + CWHI_2(I,J)=DTIME*DLNR*YWHI(I,J,2) + CWHI_3(I,J)=DTIME*DLNR*YWHI(I,J,3) + + CWII_1_1(I,J)=DTIME*DLNR*YWII(I,J,1,1) + CWII_1_2(I,J)=DTIME*DLNR*YWII(I,J,1,2) + CWII_1_3(I,J)=DTIME*DLNR*YWII(I,J,1,3) + + CWII_2_1(I,J)=DTIME*DLNR*YWII(I,J,2,1) + CWII_2_2(I,J)=DTIME*DLNR*YWII(I,J,2,2) + CWII_2_3(I,J)=DTIME*DLNR*YWII(I,J,2,3) + + CWII_3_1(I,J)=DTIME*DLNR*YWII(I,J,3,1) + CWII_3_2(I,J)=DTIME*DLNR*YWII(I,J,3,2) + CWII_3_3(I,J)=DTIME*DLNR*YWII(I,J,3,3) + ENDDO + ENDDO + CALL TURBCOEF () + DO J=1,7 + DO I=15,24-J + CWGL(I,J)=0.0D0 + ENDDO + ENDDO + DO I=1,NKR + DO J=1,NKR + CWLG(J,I)=CWGL(I,J) + ENDDO + ENDDO + DO I=KRMING_GL,KRMAXG_GL + DO J=KRMINL_GL,KRMAXL_GL + IF (ICETURB.EQ.1)THEN + CWGL(I,J)=CTURBGL(I,J)*CWGL(I,J) + ELSE + CWGL(I,J)=CWGL(I,J) + END IF + ENDDO + ENDDO + DO I=KRMING_GL,KRMAXG_GL + DO J=KRMINL_GL,KRMAXL_GL + CWLG(J,I)=CWGL(I,J) + ENDDO + ENDDO + +RETURN +END SUBROUTINE kernals + +!############################################################################## +Subroutine TURBCOEF () + +IMPLICIT NONE +INTEGER I,J +DOUBLE PRECISION X_KERN,Y_KERN +DOUBLE PRECISION RL_LL(K0_LL),RL_GL(K0L_GL),RG_GL(K0G_GL) +RL_LL(1)=RADXXO(KRMIN_LL,1)*1.E4 +RL_LL(2)=10.0D0 +RL_LL(3)=20.0D0 +RL_LL(4)=30.0D0 +RL_LL(5)=40.0D0 +RL_LL(6)=50.0D0 +RL_LL(7)=60.0D0 +RL_LL(8)=RADXXO(KRMAX_LL,1)*1.E4 +DO J=1,K0_LL + DO I=1,K0_LL + CTURB_LL(I,J)=1.0D0 + ENDDO +ENDDO + CTURB_LL(1,1)=4.50D0 + CTURB_LL(1,2)=4.50D0 + CTURB_LL(1,3)=3.00D0 + CTURB_LL(1,4)=2.25D0 + CTURB_LL(1,5)=1.95D0 + CTURB_LL(1,6)=1.40D0 + CTURB_LL(1,7)=1.40D0 + CTURB_LL(1,8)=1.40D0 + + CTURB_LL(2,1)=4.50D0 + CTURB_LL(2,2)=4.50D0 + CTURB_LL(2,3)=3.00D0 + CTURB_LL(2,4)=2.25D0 + CTURB_LL(2,5)=1.95D0 + CTURB_LL(2,6)=1.40D0 + CTURB_LL(2,7)=1.40D0 + CTURB_LL(2,8)=1.40D0 + + CTURB_LL(3,1)=3.00D0 + CTURB_LL(3,2)=3.00D0 + CTURB_LL(3,3)=2.70D0 + CTURB_LL(3,4)=2.25D0 + CTURB_LL(3,5)=1.65D0 + CTURB_LL(3,6)=1.40D0 + CTURB_LL(3,7)=1.40D0 + CTURB_LL(3,8)=1.40D0 + + CTURB_LL(4,1)=2.25D0 + CTURB_LL(4,2)=2.25D0 + CTURB_LL(4,3)=2.25D0 + CTURB_LL(4,4)=1.95D0 + CTURB_LL(4,5)=1.65D0 + CTURB_LL(4,6)=1.40D0 + CTURB_LL(4,7)=1.40D0 + CTURB_LL(4,8)=1.40D0 + + CTURB_LL(5,1)=1.95D0 + CTURB_LL(5,2)=1.95D0 + CTURB_LL(5,3)=1.65D0 + CTURB_LL(5,4)=1.65D0 + CTURB_LL(5,5)=1.65D0 + CTURB_LL(5,6)=1.40D0 + CTURB_LL(5,7)=1.40D0 + CTURB_LL(5,8)=1.40D0 + + CTURB_LL(6,1)=1.40D0 + CTURB_LL(6,2)=1.40D0 + CTURB_LL(6,3)=1.40D0 + CTURB_LL(6,4)=1.40D0 + CTURB_LL(6,5)=1.40D0 + CTURB_LL(6,6)=1.40D0 + CTURB_LL(6,7)=1.40D0 + CTURB_LL(6,8)=1.40D0 + + CTURB_LL(7,1)=1.40D0 + CTURB_LL(7,2)=1.40D0 + CTURB_LL(7,3)=1.40D0 + CTURB_LL(7,4)=1.40D0 + CTURB_LL(7,5)=1.40D0 + CTURB_LL(7,6)=1.40D0 + CTURB_LL(7,7)=1.40D0 + CTURB_LL(7,8)=1.40D0 + + CTURB_LL(8,1)=1.40D0 + CTURB_LL(8,2)=1.40D0 + CTURB_LL(8,3)=1.40D0 + CTURB_LL(8,4)=1.40D0 + CTURB_LL(8,5)=1.40D0 + CTURB_LL(8,6)=1.40D0 + CTURB_LL(8,7)=1.40D0 + CTURB_LL(8,8)=1.40D0 +DO J=1,K0_LL + DO I=1,K0_LL + CTURB_LL(I,J)=(CTURB_LL(I,J)-1.0D0)/1.5D0+1.0D0 + ENDDO +ENDDO +DO I=KRMIN_LL,KRMAX_LL + DO J=KRMIN_LL,KRMAX_LL + CTURBLL(I,J)=1.0D0 + ENDDO +ENDDO +DO I=KRMIN_LL,KRMAX_LL + X_KERN=RADXXO(I,1)*1.0D4 + IF(X_KERN.LT.RL_LL(1)) X_KERN=RL_LL(1) + IF(X_KERN.GT.RL_LL(K0_LL)) X_KERN=RL_LL(K0_LL) + DO J=KRMIN_LL,KRMAX_LL + Y_KERN=RADXXO(J,1)*1.0D4 + IF(Y_KERN.LT.RL_LL(1)) Y_KERN=RL_LL(1) + IF(Y_KERN.GT.RL_LL(K0_LL)) Y_KERN=RL_LL(K0_LL) + CTURBLL(I,J)=F(X_KERN,Y_KERN,RL_LL,RL_LL,CTURB_LL & + ,K0_LL,K0_LL) + ENDDO +ENDDO + RL_GL(1) = RADXXO(1,1)*1.E4 + RL_GL(2) = 8.0D0 + RL_GL(3) = 10.0D0 + RL_GL(4) = 16.0D0 + RL_GL(5) = 20.0D0 + RL_GL(6) = 30.0D0 + RL_GL(7) = 40.0D0 + RL_GL(8) = 50.0D0 + RL_GL(9) = 60.0D0 + RL_GL(10)= 70.0D0 + RL_GL(11)= 80.0D0 + RL_GL(12)= 90.0D0 + RL_GL(13)=100.0D0 + RL_GL(14)=200.0D0 + RL_GL(15)=300.0D0 + RL_GL(16)=RADXXO(24,1)*1.0D4 +! TURBULENCE GRAUPEL BULK RADII IN MKM + RG_GL(1) = RADXXO(1,6)*1.0D4 + RG_GL(2) = 30.0D0 + RG_GL(3) = 60.0D0 + RG_GL(4) = 100.0D0 + RG_GL(5) = 200.0D0 + RG_GL(6) = 300.0D0 + RG_GL(7) = 400.0D0 + RG_GL(8) = 500.0D0 + RG_GL(9) = 600.0D0 + RG_GL(10)= 700.0D0 + RG_GL(11)= 800.0D0 + RG_GL(12)= 900.0D0 + RG_GL(13)=1000.0D0 + RG_GL(14)=2000.0D0 + RG_GL(15)=3000.0D0 + RG_GL(16)=RADXXO(33,6)*1.0D4 +DO I=KRMING_GL,KRMAXG_GL + DO J=KRMINL_GL,KRMAXL_GL + CTURBGL(I,J)=1.0D0 + ENDDO +ENDDO +DO I=1,K0G_GL + DO J=1,K0L_GL + CTURB_GL(I,J)=1.0D0 + ENDDO +ENDDO +IF(IEPS_400.EQ.1) THEN + CTURB_GL(1,1)=0.0D0 + CTURB_GL(1,2)=0.0D0 + CTURB_GL(1,3)=1.2D0 + CTURB_GL(1,4)=1.3D0 + CTURB_GL(1,5)=1.4D0 + CTURB_GL(1,6)=1.5D0 + CTURB_GL(1,7)=1.5D0 + CTURB_GL(1,8)=1.5D0 + CTURB_GL(1,9)=1.5D0 + CTURB_GL(1,10)=1.5D0 + CTURB_GL(1,11)=1.5D0 + CTURB_GL(1,12)=1.0D0 + CTURB_GL(1,13)=1.0D0 + CTURB_GL(1,14)=1.0D0 + CTURB_GL(1,15)=1.0D0 + + CTURB_GL(2,1)=1.0D0 + CTURB_GL(2,2)=1.4D0 + CTURB_GL(2,3)=1.8D0 + CTURB_GL(2,4)=2.2D0 + CTURB_GL(2,5)=2.6D0 + CTURB_GL(2,6)=3.0D0 + CTURB_GL(2,7)=2.85D0 + CTURB_GL(2,8)=2.7D0 + CTURB_GL(2,9)=2.55D0 + CTURB_GL(2,10)=2.4D0 + CTURB_GL(2,11)=2.25D0 + CTURB_GL(2,12)=1.0D0 + CTURB_GL(2,13)=1.0D0 + CTURB_GL(2,14)=1.0D0 + + CTURB_GL(3,1)=7.5D0 + CTURB_GL(3,2)=7.5D0 + CTURB_GL(3,3)=4.5D0 + CTURB_GL(3,4)=4.5D0 + CTURB_GL(3,5)=4.65D0 + CTURB_GL(3,6)=4.65D0 + CTURB_GL(3,7)=4.5D0 + CTURB_GL(3,8)=4.5D0 + CTURB_GL(3,9)=4.0D0 + CTURB_GL(3,10)=3.0D0 + CTURB_GL(3,11)=2.0D0 + CTURB_GL(3,12)=1.5D0 + CTURB_GL(3,13)=1.3D0 + CTURB_GL(3,14)=1.0D0 + + CTURB_GL(4,1)=5.5D0 + CTURB_GL(4,2)=5.5D0 + CTURB_GL(4,3)=4.5D0 + CTURB_GL(4,4)=4.5D0 + CTURB_GL(4,5)=4.65D0 + CTURB_GL(4,6)=4.65D0 + CTURB_GL(4,7)=4.5D0 + CTURB_GL(4,8)=4.5D0 + CTURB_GL(4,9)=4.0D0 + CTURB_GL(4,10)=3.0D0 + CTURB_GL(4,11)=2.0D0 + CTURB_GL(4,12)=1.5D0 + CTURB_GL(4,13)=1.35D0 + CTURB_GL(4,14)=1.0D0 + + CTURB_GL(5,1)=4.5D0 + CTURB_GL(5,2)=4.5D0 + CTURB_GL(5,3)=3.3D0 + CTURB_GL(5,4)=3.3D0 + CTURB_GL(5,5)=3.3D0 + CTURB_GL(5,6)=3.4D0 + CTURB_GL(5,7)=3.8D0 + CTURB_GL(5,8)=3.8D0 + CTURB_GL(5,9)=3.8D0 + CTURB_GL(5,10)=3.6D0 + CTURB_GL(5,11)=2.5D0 + CTURB_GL(5,12)=2.0D0 + CTURB_GL(5,13)=1.4D0 + CTURB_GL(5,14)=1.0D0 + + CTURB_GL(6,1)=4.0D0 + CTURB_GL(6,2)=4.0D0 + CTURB_GL(6,3)=2.8D0 + CTURB_GL(6,4)=2.8D0 + CTURB_GL(6,5)=2.85D0 + CTURB_GL(6,6)=2.9D0 + CTURB_GL(6,7)=3.0D0 + CTURB_GL(6,8)=3.1D0 + CTURB_GL(6,9)=2.9D0 + CTURB_GL(6,10)=2.6D0 + CTURB_GL(6,11)=2.5D0 + CTURB_GL(6,12)=2.0D0 + CTURB_GL(6,13)=1.3D0 + CTURB_GL(6,14)=1.1D0 + + CTURB_GL(7,1)=3.5D0 + CTURB_GL(7,2)=3.5D0 + CTURB_GL(7,3)=2.5D0 + CTURB_GL(7,4)=2.5D0 + CTURB_GL(7,5)=2.6D0 + CTURB_GL(7,6)=2.7D0 + CTURB_GL(7,7)=2.8D0 + CTURB_GL(7,8)=2.8D0 + CTURB_GL(7,9)=2.8D0 + CTURB_GL(7,10)=2.6D0 + CTURB_GL(7,11)=2.3D0 + CTURB_GL(7,12)=2.0D0 + CTURB_GL(7,13)=1.3D0 + CTURB_GL(7,14)=1.1D0 + + CTURB_GL(8,1)=3.25D0 + CTURB_GL(8,2)=3.25D0 + CTURB_GL(8,3)=2.3D0 + CTURB_GL(8,4)=2.3D0 + CTURB_GL(8,5)=2.35D0 + CTURB_GL(8,6)=2.37D0 + CTURB_GL(8,7)=2.55D0 + CTURB_GL(8,8)=2.55D0 + CTURB_GL(8,9)=2.55D0 + CTURB_GL(8,10)=2.3D0 + CTURB_GL(8,11)=2.1D0 + CTURB_GL(8,12)=1.9D0 + CTURB_GL(8,13)=1.3D0 + CTURB_GL(8,14)=1.1D0 + + CTURB_GL(9,1)=3.0D0 + CTURB_GL(9,2)=3.0D0 + CTURB_GL(9,3)=3.1D0 + CTURB_GL(9,4)=2.2D0 + CTURB_GL(9,5)=2.2D0 + CTURB_GL(9,6)=2.2D0 + CTURB_GL(9,7)=2.3D0 + CTURB_GL(9,8)=2.3D0 + CTURB_GL(9,9)=2.5D0 + CTURB_GL(9,10)=2.5D0 + CTURB_GL(9,11)=2.2D0 + CTURB_GL(9,12)=1.8D0 + CTURB_GL(9,13)=1.25D0 + CTURB_GL(9,14)=1.1D0 + + CTURB_GL(10,1)=2.75D0 + CTURB_GL(10,2)=2.75D0 + CTURB_GL(10,3)=2.0D0 + CTURB_GL(10,4)=2.0D0 + CTURB_GL(10,5)=2.0D0 + CTURB_GL(10,6)=2.1D0 + CTURB_GL(10,7)=2.2D0 + CTURB_GL(10,8)=2.2D0 + CTURB_GL(10,9)=2.3D0 + CTURB_GL(10,10)=2.3D0 + CTURB_GL(10,11)=2.3D0 + CTURB_GL(10,12)=1.8D0 + CTURB_GL(10,13)=1.2D0 + CTURB_GL(10,14)=1.1D0 + + CTURB_GL(11,1)=2.6D0 + CTURB_GL(11,2)=2.6D0 + CTURB_GL(11,3)=1.95D0 + CTURB_GL(11,4)=1.95D0 + CTURB_GL(11,5)=1.95D0 + CTURB_GL(11,6)=2.05D0 + CTURB_GL(11,7)=2.15D0 + CTURB_GL(11,8)=2.15D0 + CTURB_GL(11,9)=2.25D0 + CTURB_GL(11,10)=2.25D0 + CTURB_GL(11,11)=1.9D0 + CTURB_GL(11,12)=1.8D0 + CTURB_GL(11,13)=1.2D0 + CTURB_GL(11,14)=1.1D0 + + CTURB_GL(12,1)=2.4D0 + CTURB_GL(12,2)=2.4D0 + CTURB_GL(12,3)=1.85D0 + CTURB_GL(12,4)=1.85D0 + CTURB_GL(12,5)=1.85D0 + CTURB_GL(12,6)=1.75D0 + CTURB_GL(12,7)=1.85D0 + CTURB_GL(12,8)=1.85D0 + CTURB_GL(12,9)=2.1D0 + CTURB_GL(12,10)=2.1D0 + CTURB_GL(12,11)=1.9D0 + CTURB_GL(12,12)=1.8D0 + CTURB_GL(12,13)=1.3D0 + CTURB_GL(12,14)=1.1D0 + + CTURB_GL(13,1)=1.67D0 + CTURB_GL(13,2)=1.67D0 + CTURB_GL(13,3)=1.75D0 + CTURB_GL(13,4)=1.83D0 + CTURB_GL(13,5)=1.87D0 + CTURB_GL(13,6)=2.0D0 + CTURB_GL(13,7)=2.1D0 + CTURB_GL(13,8)=2.12D0 + CTURB_GL(13,9)=2.15D0 + CTURB_GL(13,10)=2.18D0 + CTURB_GL(13,11)=2.19D0 + CTURB_GL(13,12)=1.67D0 + CTURB_GL(13,13)=1.28D0 + CTURB_GL(13,14)=1.0D0 + + CTURB_GL(14,1)=1.3D0 + CTURB_GL(14,2)=1.3D0 + CTURB_GL(14,3)=1.35D0 + CTURB_GL(14,4)=1.4D0 + CTURB_GL(14,5)=1.6D0 + CTURB_GL(14,6)=1.7D0 + CTURB_GL(14,7)=1.7D0 + CTURB_GL(14,8)=1.7D0 + CTURB_GL(14,9)=1.7D0 + CTURB_GL(14,10)=1.7D0 + CTURB_GL(14,11)=1.7D0 + CTURB_GL(14,12)=1.4D0 + CTURB_GL(14,13)=1.25D0 + CTURB_GL(14,14)=1.0D0 + + CTURB_GL(15,1)=1.17D0 + CTURB_GL(15,2)=1.17D0 + CTURB_GL(15,3)=1.17D0 + CTURB_GL(15,4)=1.25D0 + CTURB_GL(15,5)=1.3D0 + CTURB_GL(15,6)=1.35D0 + CTURB_GL(15,7)=1.4D0 + CTURB_GL(15,8)=1.4D0 + CTURB_GL(15,9)=1.45D0 + CTURB_GL(15,10)=1.47D0 + CTURB_GL(15,11)=1.44D0 + CTURB_GL(15,12)=1.3D0 + CTURB_GL(15,13)=1.12D0 + CTURB_GL(15,14)=1.0D0 + + CTURB_GL(16,1)=1.17D0 + CTURB_GL(16,2)=1.17D0 + CTURB_GL(16,3)=1.17D0 + CTURB_GL(16,4)=1.25D0 + CTURB_GL(16,5)=1.3D0 + CTURB_GL(16,6)=1.35D0 + CTURB_GL(16,7)=1.4D0 + CTURB_GL(16,8)=1.45D0 + CTURB_GL(16,9)=1.45D0 + CTURB_GL(16,10)=1.47D0 + CTURB_GL(16,11)=1.44D0 + CTURB_GL(16,12)=1.3D0 + CTURB_GL(16,13)=1.12D0 + CTURB_GL(16,14)=1.0D0 +ENDIF +IF(IEPS_800.EQ.1) THEN + CTURB_GL(1,1) =0.00D0 + CTURB_GL(1,2) =0.00D0 + CTURB_GL(1,3) =1.00D0 + CTURB_GL(1,4) =1.50D0 + CTURB_GL(1,5) =1.40D0 + CTURB_GL(1,6) =1.30D0 + CTURB_GL(1,7) =1.20D0 + CTURB_GL(1,8) =1.10D0 + CTURB_GL(1,9) =1.00D0 + CTURB_GL(1,10)=1.00D0 + CTURB_GL(1,11)=1.00D0 + CTURB_GL(1,12)=1.00D0 + CTURB_GL(1,13)=1.00D0 + CTURB_GL(1,14)=1.00D0 + CTURB_GL(1,15)=1.00D0 + CTURB_GL(1,16)=1.00D0 + + CTURB_GL(2,1) =0.00D0 + CTURB_GL(2,2) =0.00D0 + CTURB_GL(2,3) =1.00D0 + CTURB_GL(2,4) =2.00D0 + CTURB_GL(2,5) =1.80D0 + CTURB_GL(2,6) =1.70D0 + CTURB_GL(2,7) =1.60D0 + CTURB_GL(2,8) =1.50D0 + CTURB_GL(2,9) =1.50D0 + CTURB_GL(2,10)=1.50D0 + CTURB_GL(2,11)=1.50D0 + CTURB_GL(2,12)=1.50D0 + CTURB_GL(2,13)=1.50D0 + CTURB_GL(2,14)=1.00D0 + CTURB_GL(2,15)=1.00D0 + CTURB_GL(2,16)=1.00D0 + + CTURB_GL(3,1) =0.00D0 + CTURB_GL(3,2) =0.00D0 + CTURB_GL(3,3) =4.00D0 + CTURB_GL(3,4) =7.65D0 + CTURB_GL(3,5) =7.65D0 + CTURB_GL(3,6) =8.00D0 + CTURB_GL(3,7) =8.00D0 + CTURB_GL(3,8) =7.50D0 + CTURB_GL(3,9) =6.50D0 + CTURB_GL(3,10)=6.00D0 + CTURB_GL(3,11)=5.00D0 + CTURB_GL(3,12)=4.50D0 + CTURB_GL(3,13)=4.00D0 + CTURB_GL(3,14)=2.00D0 + CTURB_GL(3,15)=1.30D0 + CTURB_GL(3,16)=1.00D0 + + CTURB_GL(4,1) =7.50D0 + CTURB_GL(4,2) =7.50D0 + CTURB_GL(4,3) =7.50D0 + CTURB_GL(4,4) =7.65D0 + CTURB_GL(4,5) =7.65D0 + CTURB_GL(4,6) =8.00D0 + CTURB_GL(4,7) =8.00D0 + CTURB_GL(4,8) =7.50D0 + CTURB_GL(4,9) =6.50D0 + CTURB_GL(4,10)=6.00D0 + CTURB_GL(4,11)=5.00D0 + CTURB_GL(4,12)=4.50D0 + CTURB_GL(4,13)=4.00D0 + CTURB_GL(4,14)=2.00D0 + CTURB_GL(4,15)=1.30D0 + CTURB_GL(4,16)=1.00D0 + + CTURB_GL(5,1) =5.50D0 + CTURB_GL(5,2) =5.50D0 + CTURB_GL(5,3) =5.50D0 + CTURB_GL(5,4) =5.75D0 + CTURB_GL(5,5) =5.75D0 + CTURB_GL(5,6) =6.00D0 + CTURB_GL(5,7) =6.25D0 + CTURB_GL(5,8) =6.17D0 + CTURB_GL(5,9) =5.75D0 + CTURB_GL(5,10)=5.25D0 + CTURB_GL(5,11)=4.75D0 + CTURB_GL(5,12)=4.25D0 + CTURB_GL(5,13)=4.00D0 + CTURB_GL(5,14)=2.00D0 + CTURB_GL(5,15)=1.35D0 + CTURB_GL(5,16)=1.00D0 + + CTURB_GL(6,1) =4.50D0 + CTURB_GL(6,2) =4.50D0 + CTURB_GL(6,3) =4.50D0 + CTURB_GL(6,4) =4.75D0 + CTURB_GL(6,5) =4.75D0 + CTURB_GL(6,6) =5.00D0 + CTURB_GL(6,7) =5.25D0 + CTURB_GL(6,8) =5.25D0 + CTURB_GL(6,9) =5.00D0 + CTURB_GL(6,10)=4.75D0 + CTURB_GL(6,11)=4.50D0 + CTURB_GL(6,12)=4.00D0 + CTURB_GL(6,13)=3.75D0 + CTURB_GL(6,14)=2.00D0 + CTURB_GL(6,15)=1.40D0 + CTURB_GL(6,16)=1.00D0 + + CTURB_GL(7,1) =4.00D0 + CTURB_GL(7,2) =4.00D0 + CTURB_GL(7,3) =4.00D0 + CTURB_GL(7,4) =4.00D0 + CTURB_GL(7,5) =4.00D0 + CTURB_GL(7,6) =4.25D0 + CTURB_GL(7,7) =4.50D0 + CTURB_GL(7,8) =4.67D0 + CTURB_GL(7,9) =4.50D0 + CTURB_GL(7,10)=4.30D0 + CTURB_GL(7,11)=4.10D0 + CTURB_GL(7,12)=3.80D0 + CTURB_GL(7,13)=3.50D0 + CTURB_GL(7,14)=2.00D0 + CTURB_GL(7,15)=1.30D0 + CTURB_GL(7,16)=1.10D0 + + CTURB_GL(8,1) =3.50D0 + CTURB_GL(8,2) =3.50D0 + CTURB_GL(8,3) =3.50D0 + CTURB_GL(8,4) =3.65D0 + CTURB_GL(8,5) =3.65D0 + CTURB_GL(8,6) =3.80D0 + CTURB_GL(8,7) =4.1D02 + CTURB_GL(8,8) =4.17D0 + CTURB_GL(8,9) =4.17D0 + CTURB_GL(8,10)=4.00D0 + CTURB_GL(8,11)=3.80D0 + CTURB_GL(8,12)=3.67D0 + CTURB_GL(8,13)=3.40D0 + CTURB_GL(8,14)=2.00D0 + CTURB_GL(8,15)=1.30D0 + CTURB_GL(8,16)=1.10D0 + + CTURB_GL(9,1) =3.25D0 + CTURB_GL(9,2) =3.25D0 + CTURB_GL(9,3) =3.25D0 + CTURB_GL(9,4) =3.25D0 + CTURB_GL(9,5) =3.25D0 + CTURB_GL(9,6) =3.50D0 + CTURB_GL(9,7) =3.75D0 + CTURB_GL(9,8) =3.75D0 + CTURB_GL(9,9) =3.75D0 + CTURB_GL(9,10)=3.75D0 + CTURB_GL(9,11)=3.60D0 + CTURB_GL(9,12)=3.40D0 + CTURB_GL(9,13)=3.25D0 + CTURB_GL(9,14)=2.00D0 + CTURB_GL(9,15)=1.30D0 + CTURB_GL(9,16)=1.10D0 + + CTURB_GL(10,1) =3.00D0 + CTURB_GL(10,2) =3.00D0 + CTURB_GL(10,3) =3.00D0 + CTURB_GL(10,4) =3.10D0 + CTURB_GL(10,5) =3.10D0 + CTURB_GL(10,6) =3.25D0 + CTURB_GL(10,7) =3.40D0 + CTURB_GL(10,8) =3.50D0 + CTURB_GL(10,9) =3.50D0 + CTURB_GL(10,10)=3.50D0 + CTURB_GL(10,11)=3.40D0 + CTURB_GL(10,12)=3.25D0 + CTURB_GL(10,13)=3.15D0 + CTURB_GL(10,14)=1.90D0 + CTURB_GL(10,15)=1.30D0 + CTURB_GL(10,16)=1.10D0 + + CTURB_GL(11,1) =2.75D0 + CTURB_GL(11,2) =2.75D0 + CTURB_GL(11,3) =2.75D0 + CTURB_GL(11,4) =2.75D0 + CTURB_GL(11,5) =2.75D0 + CTURB_GL(11,6) =3.00D0 + CTURB_GL(11,7) =3.25D0 + CTURB_GL(11,8) =3.25D0 + CTURB_GL(11,9) =3.25D0 + CTURB_GL(11,10)=3.25D0 + CTURB_GL(11,11)=3.25D0 + CTURB_GL(11,12)=3.15D0 + CTURB_GL(11,13)=3.00D0 + CTURB_GL(11,14)=1.80D0 + CTURB_GL(11,15)=1.30D0 + CTURB_GL(11,16)=1.10D0 + + CTURB_GL(12,1) =2.60D0 + CTURB_GL(12,2) =2.60D0 + CTURB_GL(12,3) =2.60D0 + CTURB_GL(12,4) =2.67D0 + CTURB_GL(12,5) =2.67D0 + CTURB_GL(12,6) =2.75D0 + CTURB_GL(12,7) =3.00D0 + CTURB_GL(12,8) =3.17D0 + CTURB_GL(12,9) =3.17D0 + CTURB_GL(12,10)=3.17D0 + CTURB_GL(12,11)=3.10D0 + CTURB_GL(12,12)=2.90D0 + CTURB_GL(12,13)=2.80D0 + CTURB_GL(12,14)=1.87D0 + CTURB_GL(12,15)=1.37D0 + CTURB_GL(12,16)=1.10D0 + + CTURB_GL(13,1) =2.40D0 + CTURB_GL(13,2) =2.40D0 + CTURB_GL(13,3) =2.40D0 + CTURB_GL(13,4) =2.50D0 + CTURB_GL(13,5) =2.50D0 + CTURB_GL(13,6) =2.67D0 + CTURB_GL(13,7) =2.83D0 + CTURB_GL(13,8) =2.90D0 + CTURB_GL(13,9) =3.00D0 + CTURB_GL(13,10)=2.90D0 + CTURB_GL(13,11)=2.85D0 + CTURB_GL(13,12)=2.80D0 + CTURB_GL(13,13)=2.75D0 + CTURB_GL(13,14)=1.83D0 + CTURB_GL(13,15)=1.30D0 + CTURB_GL(13,16)=1.10D0 + + CTURB_GL(14,1) =1.67D0 + CTURB_GL(14,2) =1.67D0 + CTURB_GL(14,3) =1.67D0 + CTURB_GL(14,4) =1.75D0 + CTURB_GL(14,5) =1.75D0 + CTURB_GL(14,6) =1.83D0 + CTURB_GL(14,7) =1.87D0 + CTURB_GL(14,8) =2.00D0 + CTURB_GL(14,9) =2.10D0 + CTURB_GL(14,10)=2.12D0 + CTURB_GL(14,11)=2.15D0 + CTURB_GL(14,12)=2.18D0 + CTURB_GL(14,13)=2.19D0 + CTURB_GL(14,14)=1.67D0 + CTURB_GL(14,15)=1.28D0 + CTURB_GL(14,16)=1.00D0 + + CTURB_GL(15,1) =1.30D0 + CTURB_GL(15,2) =1.30D0 + CTURB_GL(15,3) =1.30D0 + CTURB_GL(15,4) =1.35D0 + CTURB_GL(15,5) =1.35D0 + CTURB_GL(15,6) =1.40D0 + CTURB_GL(15,7) =1.60D0 + CTURB_GL(15,8) =1.70D0 + CTURB_GL(15,9) =1.70D0 + CTURB_GL(15,10)=1.70D0 + CTURB_GL(15,11)=1.70D0 + CTURB_GL(15,12)=1.70D0 + CTURB_GL(15,13)=1.70D0 + CTURB_GL(15,14)=1.40D0 + CTURB_GL(15,15)=1.25D0 + CTURB_GL(15,16)=1.00D0 + + CTURB_GL(16,1) =1.17D0 + CTURB_GL(16,2) =1.17D0 + CTURB_GL(16,3) =1.17D0 + CTURB_GL(16,4) =1.17D0 + CTURB_GL(16,5) =1.17D0 + CTURB_GL(16,6) =1.25D0 + CTURB_GL(16,7) =1.30D0 + CTURB_GL(16,8) =1.35D0 + CTURB_GL(16,9) =1.40D0 + CTURB_GL(16,10)=1.45D0 + CTURB_GL(16,11)=1.45D0 + CTURB_GL(16,12)=1.47D0 + CTURB_GL(16,13)=1.44D0 + CTURB_GL(16,14)=1.30D0 + CTURB_GL(16,15)=1.12D0 + CTURB_GL(16,16)=1.00D0 +ENDIF +IF(IEPS_800.EQ.1.AND.IEPS_1600.EQ.1) THEN + DO I=1,K0G_GL + DO J=1,K0L_GL + CTURB_GL(I,J)=CTURB_GL(I,J)*1.7D0 + ENDDO + ENDDO +ENDIF +DO J=1,K0L_GL + DO I=1,K0G_GL + CTURB_GL(I,J)=(CTURB_GL(I,J)-1.0D0)/1.5D0+1.0D0 + ENDDO +ENDDO +DO I=KRMING_GL,KRMAXG_GL + DO J=KRMINL_GL,KRMAXL_GL + CTURBGL(I,J)=1. + ENDDO +ENDDO +DO I=KRMING_GL,KRMAXG_GL + X_KERN=RADXXO(I,6)*1.0D4 + IF(X_KERN.LT.RG_GL(1)) X_KERN=RG_GL(1) + IF(X_KERN.GT.RG_GL(K0G_GL)) X_KERN=RG_GL(K0G_GL) + DO J=KRMINL_GL,KRMAXL_GL + Y_KERN=RADXXO(J,1)*1.0D4 + IF(Y_KERN.LT.RL_GL(1)) Y_KERN=RL_GL(1) + IF(Y_KERN.GT.RL_GL(K0L_GL)) Y_KERN=RL_GL(K0L_GL) + CTURBGL(I,J)=F(X_KERN,Y_KERN,RG_GL,RL_GL,CTURB_GL & + ,K0G_GL,K0L_GL) + ENDDO +ENDDO +IF(IEPS_800.EQ.1) THEN + DO I=KRMING_GL,15 + DO J=KRMINL_GL,13 + IF(CTURBGL(I,J).LT.3.0D0) CTURBGL(I,J)=3.0D0 + ENDDO + ENDDO +ENDIF +IF(IEPS_1600.EQ.1) THEN + DO I=KRMING_GL,15 + DO J=KRMINL_GL,13 + IF(CTURBGL(I,J).LT.5.1D0) CTURBGL(I,J)=5.1D0 + ENDDO + ENDDO +ENDIF +DO I=1,33 + DO J=1,24 + IF(I.LE.14.AND.J.EQ.8) CTURBGL(I,J)=1.0D0 + IF(I.GT.14.AND.J.LE.8) CTURBGL(I,J)=1.2D0 + ENDDO +ENDDO +RETURN +END SUBROUTINE TURBCOEF + +!############################################################################## +real Function f (x,y,x0,y0,table,k0,kk0) + +! two-dimensional linear interpolation of the collision efficiency +! with help table(k0,kk0) + + implicit none + integer k0,kk0,k,ir,kk,iq + double precision x,y,p,q,ec,ek + double precision x0(k0),y0(kk0),table(k0,kk0) + +do k=2,k0 + if(x.le.x0(k).and.x.ge.x0(k-1)) then + ir=k + elseif(x.gt.x0(k0)) then + ir=k0+1 + elseif(x.lt.x0(1)) then + ir=1 + endif +enddo +do kk=2,kk0 + if(y.le.y0(kk).and.y.ge.y0(kk-1)) iq=kk +enddo +if(ir.lt.k0+1) then + if(ir.ge.2) then + p =(x-x0(ir-1))/(x0(ir)-x0(ir-1)) + q =(y-y0(iq-1))/(y0(iq)-y0(iq-1)) + ec=(1.d0-p)*(1.d0-q)*table(ir-1,iq-1)+ & + p*(1.d0-q)*table(ir,iq-1)+ & + q*(1.d0-p)*table(ir-1,iq)+ & + p*q*table(ir,iq) + else + q =(y-y0(iq-1))/(y0(iq)-y0(iq-1)) + ec=(1.d0-q)*table(1,iq-1)+q*table(1,iq) + endif + else + q =(y-y0(iq-1))/(y0(iq)-y0(iq-1)) + ek=(1.d0-q)*table(k0,iq-1)+q*table(k0,iq) + ec=min(ek,1.d0) + endif + f=ec + +return +END FUNCTION f + +!############################################################################## +Subroutine FREEZ (FF1,FF2,FF5,TIN,DT,RO,K,I,J) + +use mem_micro +use mem_grid, only:ngrid + +IMPLICIT NONE +INTEGER KR,ICE_TYPE +REAL DT,RO,YKK,PF,PF_1,DEL_T,ARG_1,DF1,BF,ARG_M, & + TT_DROP_AFTER_FREEZ,CFREEZ,TIN,TTIN,AF +REAL FF1(NKR),FF2(NKR,ICEMAX),FF5(NKR) +REAL SUM_NUM,SUM_ICE +INTEGER K,I,J + +TTIN=TIN +DEL_T=TTIN-273.15 +!Frozen cloud droplets sent to plates +ICE_TYPE=2 + +IF(DEL_T.LT.0.AND.any(FF1>0.)) THEN + SUM_ICE=0.0 + SUM_NUM = 0.0 + AF=AFREEZMY + CFREEZ=(BFREEZMAX-BFREEZMY)/XL(NKR) + DO KR=1,NKR + ARG_M=XL(KR) + BF=BFREEZMY+CFREEZ*ARG_M + PF_1=AF*EXP(-BF*DEL_T) + PF=ARG_M*PF_1 + YKK=EXP(-PF*DT) + DF1=FF1(KR)*(1.-YKK) + FF1(KR)=FF1(KR)*YKK + IF(KR.LE.KRFREEZ) THEN + FF2(KR,ICE_TYPE)=FF2(KR,ICE_TYPE)+DF1 + ELSE + FF5(KR)=FF5(KR)+DF1 + ENDIF + SUM_ICE=SUM_ICE+DF1*XI(KR,1)*XI(KR,1)*COL3/RO + SUM_NUM = SUM_NUM + DF1*XI(KR,1)*COL3/RO*1000. + IF (imbudget >= 1) THEN + micro_g(ngrid)%nucicert(k,i,j) = micro_g(ngrid)%nucicert(k,i,j) + SUM_ICE + micro_g(ngrid)%nucicect(k,i,j) = micro_g(ngrid)%nucicect(k,i,j) + SUM_NUM + END IF + IF (imbudget >= 2) THEN + micro_g(ngrid)%inuchomrt(k,i,j) = micro_g(ngrid)%inuchomrt(k,i,j) + SUM_ICE + micro_g(ngrid)%inuchomct(k,i,j) = micro_g(ngrid)%inuchomct(k,i,j) + SUM_NUM + END IF + ENDDO + + !NEW TEMPERATURE + ARG_1=333.*SUM_ICE ! 333=334000/1004 [K] + TT_DROP_AFTER_FREEZ=TTIN+ARG_1 + TIN=TT_DROP_AFTER_FREEZ +ENDIF + +RETURN +END SUBROUTINE FREEZ + +!############################################################################## +Subroutine MELT (FF1,FF2,FF3,FF4,FF5,TIN,RO,K,I,J) + +use mem_micro +use mem_grid, only:ngrid + +IMPLICIT NONE + +INTEGER K,I,J +INTEGER KR,ICE +REAL ARG_M,ARG_1,RO,SUMICE,TIN +REAL FF1(NKR),FF2(NKR,ICEMAX),FF3(NKR),FF4(NKR),FF5(NKR) + +IF (IMBUDGET >= 2) THEN !Everything melts - just add it all up + IF (IPRIS >=2) THEN + micro_g(ngrid)%meltprist(k,i,j) = micro_g(ngrid)%meltprist(k,i,j) & + + SUM_MASS(FF2(:,1),XI(:,1),RO,1,KRPRIS(1)-1) & + + SUM_MASS(FF2(:,2),XI(:,2),RO,1,KRPRIS(2)-1) & + + SUM_MASS(FF2(:,3),XI(:,3),RO,1,KRPRIS(3)-1) + + micro_g(ngrid)%meltsnowt(k,i,j) = micro_g(ngrid)%meltsnowt(k,i,j) & + + SUM_MASS(FF2(:,1),XI(:,1),RO,KRPRIS(1),NKR) & + + SUM_MASS(FF2(:,2),XI(:,2),RO,KRPRIS(2),NKR) & + + SUM_MASS(FF2(:,3),XI(:,3),RO,KRPRIS(3),NKR) + + ELSEIF (IPRIS==1 .or. IPRIS==2 .or. IPRIS==3) THEN + micro_g(ngrid)%meltprist(k,i,j) = micro_g(ngrid)%meltprist(k,i,j) & + + SUM_MASS(FF2(:,IPRIS),XI(:,IPRIS),RO,1,KRPRIS(IPRIS)-1) + micro_g(ngrid)%meltsnowt(k,i,j) = micro_g(ngrid)%meltsnowt(k,i,j) & + + SUM_MASS(FF2(:,IPRIS),XI(:,IPRIS),RO,KRPRIS(IPRIS),NKR) + ENDIF + micro_g(ngrid)%meltaggrt(k,i,j) = micro_g(ngrid)%meltaggrt(k,i,j) & + + SUM_MASS(FF3,XS,RO,1,NKR) + IF(IGRAUP>0) micro_g(ngrid)%meltgraut(k,i,j) = micro_g(ngrid)%meltgraut(k,i,j) & + + SUM_MASS(FF4,XG,RO,1,NKR) + IF(IHAIL>0) micro_g(ngrid)%melthailt(k,i,j) = micro_g(ngrid)%melthailt(k,i,j) & + + SUM_MASS(FF5,XH,RO,1,NKR) +ENDIF + +SUMICE=0. +DO KR=1,NKR + ARG_M=FF3(KR)+FF4(KR)+FF5(KR) + DO ICE=1,ICEMAX + ARG_M=ARG_M+FF2(KR,ICE) + FF2(KR,ICE)=0. + ENDDO + FF1(KR)=FF1(KR)+ARG_M + FF3(KR)=0. + FF4(KR)=0. + FF5(KR)=0. + SUMICE=SUMICE+ARG_M*3.*XL(KR)*XL(KR)*COL +ENDDO +! NEW TEMPERATURE : +ARG_1=333.*SUMICE/RO +TIN=TIN-ARG_1 +IF (IMBUDGET >= 1) micro_g(ngrid)%melticet(k,i,j) = & + micro_g(ngrid)%melticet(k,i,j) + SUMICE/RO + +RETURN +END SUBROUTINE MELT + +!############################################################################## +Subroutine JERNUCL01 (PSI1,PSI2,FCCNR,DTT,ROR,DSUP1,DSUP2,SUP2_OLD,DT,finr,K,I,J) + +IMPLICIT NONE + +INTEGER K,I,J +REAL SUP2_OLD, & + FCCNR(NKR),FINR(NKR) +DOUBLE PRECISION DTT,DSUP1,DSUP2 +REAL TT,ROR, & + TPC,SUP1,SUP2,DEL1N,DEL2N,AL1,AL2, & + TEMP1,TEMP2,TEMP3,A1,B1,A2,B2,DT +REAL PSI1(NKR),PSI2(NKR,ICEMAX) +REAL alwc +DATA A1,B1,A2,B2/-0.639,0.1296,-2.8,0.262/ +DATA TEMP1,TEMP2,TEMP3/-5.,-2.,-20./ +DATA AL1/2500./,AL2/2834./ +SUP1=DSUP1 +SUP2=DSUP2 + +TT=DTT + +DEL1N=100.*SUP1 +TPC=TT-273.15 + +IF(DEL1N.GT.0.AND.TPC.GT.-30.) THEN + CALL WATER_NUCL (PSI1,FCCNR,XL,TT,SUP1 & + ,RCCN,DROPRADII,NKR,ror,K,I,J) +ENDIF + +IF (ICEPROCS.EQ.1)THEN + DEL2N=100.*SUP2 + IF(TPC.LT.0..AND.TPC.GE.-35..AND.DEL2N.GT.0.) THEN + CALL ICE_NUCL (PSI2,XI,TT,ROR,SUP2,SUP2_OLD,SUP1,DT,finr,K,I,J) + ENDIF +ENDIF + +RETURN +END SUBROUTINE JERNUCL01 + +!############################################################################## +Subroutine WATER_NUCL (PSI1,FCCNR,X1,TT,SUP1 & + ,RCCN,DROPRADII,NKR,dens,K,I,J) + +use mem_micro +use mem_grid, only:ngrid + +IMPLICIT NONE + +INTEGER K,I,J +INTEGER NDROPMAX,KR,NKR +REAL PSI1(NKR),FCCNR(NKR),X1(NKR) +REAL DROPCONCN(NKR) +REAL RCCN(NKR),DROPRADII(NKR) +REAL TT,SUP1,DX +real dens + +CALL NUCLEATION (SUP1,TT,FCCNR,DROPCONCN & + ,NDROPMAX,RCCN,DROPRADII,NKR) + +! NEW WATER SIZE DISTRIBUTION function (BEGIN) + DO KR=1,NDROPMAX + DX=3.*COL*X1(KR) + PSI1(KR)=PSI1(KR)+DROPCONCN(KR)/DX + + IF (imbudget >= 1) THEN + micro_g(ngrid)%nuccldrt(k,i,j) = micro_g(ngrid)%nuccldrt(k,i,j) & + + dropconcn(kr)*x1(kr)/dens + micro_g(ngrid)%nuccldct(k,i,j) = micro_g(ngrid)%nuccldct(k,i,j) & + + dropconcn(kr)/dens*1000. + ENDIF + ENDDO + +RETURN +END SUBROUTINE WATER_NUCL + +!############################################################################## +Subroutine ICE_NUCL (PSI2,X2,TT,ROR,SUP2,SUP2_OLD & + ,SUP1,DT,finr,K,I,J) + +! ICE_NUCL Modifcation History +! (April 2007 J. Comstock) +! modified to include classical theory heterogeneous nucleation +! via the condensation/immersion freezing mode +! Added ICEFLAG=0 Use Meyers param, ICEFLAG=1 Use Classical Theory + +use mem_micro +use mem_grid, only:ngrid + +IMPLICIT NONE + + INTEGER K,I,J + INTEGER ITYPE,KR,ICE,NRGI,K1,ki + REAL DEL2N,SUP1,SUP2,C1,C2,TPC,TT,ROR + REAL DX + REAL HELEK1,HELEK2,TPCC,DEL2NN,FF1BN + REAL FACT,DSUP2N,SUP2_OLD,DELTACD,DELTAF,ADDF + REAL X2(NKR,ICEMAX),PSI2(NKR,ICEMAX) + REAL DT,finr(NKR) + REAL QHET(NKR),NUMHET(NKR) + + real rcn(nkr) + real inic(nkr) + + REAL A1,B1,A2,B2 + DATA A1,B1,A2,B2/-0.639,0.1296,-2.8,0.262/ + REAL TEMP1,TEMP2,TEMP3 + DATA TEMP1,TEMP2,TEMP3/-5.,-2.,-20./ + + C1=C1_MEY + C2=C2_MEY +! TYPE OF ICE WITH NUCLEATION (BEGIN) + + TPC=TT-273.15 + ITYPE=0 + + IF((TPC.GT.-4.0).OR.(TPC.LE.-8.1.AND.TPC.GT.-12.7).OR.& + (TPC.LE.-17.8.AND.TPC.GT.-22.4)) THEN + ITYPE=2 + ELSE + IF((TPC.LE.-4.0.AND.TPC.GT.-8.1).OR.(TPC.LE.-22.4)) THEN + ITYPE=1 + ELSE + ITYPE=3 + ENDIF + ENDIF + +! NEW CRYSTAL SIZE DISTRIBUTION function (BEGIN) + + ICE=ITYPE + + IF (ICEFLAG .EQ. 0) THEN !USE MEYERS ICE NUCLEATION SCHEME + NRGI=2 + IF(TPC.LT.TEMP1) THEN + DEL2N=100.*SUP2 + DEL2NN=DEL2N + IF(DEL2N.GT.50.0) DEL2NN=50. + HELEK1=C1*EXP(A1+B1*DEL2NN) + ELSE + HELEK1=0. + ENDIF + + IF(TPC.LT.TEMP2) THEN + TPCC=TPC + IF(TPCC.LT.TEMP3) TPCC=TEMP3 + HELEK2=C2*EXP(A2-B2*TPCC) + ELSE + HELEK2=0. + ENDIF + + FF1BN=HELEK1+HELEK2 + + FACT=1. + DSUP2N=(SUP2-SUP2_OLD)*100. + + SUP2_OLD=SUP2 + + IF(DSUP2N.GT.50.) DSUP2N=50. + + DELTACD=FF1BN*B1*DSUP2N + + IF(DELTACD.GE.FF1BN) DELTACD=FF1BN + IF(DELTACD.GT.0.) THEN + DELTAF=DELTACD*FACT + DO KR=1,NRGI-1 + DX=X2(KR,ICE)*COL3 + ADDF=DELTAF/DX + PSI2(KR,ICE)=PSI2(KR,ICE)+ADDF + IF (imbudget >=1) THEN + micro_g(ngrid)%nucicert(k,i,j) = micro_g(ngrid)%nucicert(k,i,j) & + + DELTAF*X2(KR,ICE)/ROR + micro_g(ngrid)%nucicect(k,i,j) = micro_g(ngrid)%nucicect(k,i,j) & + + DELTAF/ROR*1000. + ENDIF + IF (imbudget >= 2) THEN + micro_g(ngrid)%inucifnrt(k,i,j) = micro_g(ngrid)%inucifnrt(k,i,j) & + + DELTAF*X2(KR,ICE)/ROR + micro_g(ngrid)%inucifnct(k,i,j) = micro_g(ngrid)%inucifnct(k,i,j) & + + DELTAF/ROR*1000. + ENDIF + ENDDO + ENDIF + ELSE !USE CLASSICAL THEORY NUCLEATION SCHEME + +!===================CCN-version ice nucleation (added by J. Fan)======================= + + DO KR=1,NKR + rcn(kr) = rccn(kr)*1.e-2 ! transform to m from cm + ENDDO + + DO KR=1,NKR + inic(kr) = finr(kr)*col*1.e6 ! m-3 + ENDDO + + CALL heteronuc_ccn (TT,SUP1,DT,NKR,inic,rcn,QHET,NUMHET) + ! Distribute nucleated aerosols to appropriate ice size bin (QHET:kg; NUMHET: m-3) + + ! Update IN + DO KR=1, NKR + finr(kr) = inic(kr)*1.e-6/col + ENDDO + + if (sum(NUMHET(:)) > 0.) then + do ki=1,NKR + do kr=1,NKR + if (QHET (ki)*1.e3 .LE. X2(1,ice) ) k1=1 + if (QHET (ki)*1.e3 .GE. X2(nkr,ice) ) k1=nkr + if ((kr.GT.1) .and. (QHET (ki)*1.e3 .LE. X2(kr,ice)).and. & + (QHET (ki)*1.e3 .GT. X2(kr-1,ice))) k1=kr + enddo + DX=3.*X2(k1,ICE)*COL + PSI2(K1,ICE) = PSI2(K1,ICE) + NUMHET(ki)*1.e-6/DX + IF (imbudget >=1) THEN + micro_g(ngrid)%nucicert(k,i,j) = micro_g(ngrid)%nucicert(k,i,j) & + + numhet(ki)/DX*COL3*X2(k1,ICE)*X2(k1,ICE)/ROR*1.e-6 + micro_g(ngrid)%nucicect(k,i,j) = micro_g(ngrid)%nucicect(k,i,j) & + + numhet(ki)/DX*COL3*X2(k1,ICE)/ROR*1.e-3 + ENDIF + IF (imbudget >=2) THEN + micro_g(ngrid)%inucifnrt(k,i,j) = micro_g(ngrid)%inucifnrt(k,i,j) & + + numhet(ki)/DX*COL3*X2(k1,ICE)*X2(k1,ICE)/ROR*1.e-6 + micro_g(ngrid)%inucifnct(k,i,j) = micro_g(ngrid)%inucifnct(k,i,j) & + + numhet(ki)/DX*COL3*X2(k1,ICE)/ROR*1.e-3 + ENDIF + + enddo + endif + ENDIF + +RETURN +END SUBROUTINE ICE_NUCL + +!############################################################################## +Subroutine heteronuc_ccn (temp,Sw,dt,INBINMAX,icenuclei, & + draeros,qhet,numhet) + +! Computes heterogeneous freezing rate, crystal number and mass assuming +! immersion freezing from ccn distribution (assuming ccn in aqueous soln) +! Assumes nucleation is immersion/condensation freezing from solution drops+ccn + +! This is main subroutine for heterogeneous nucleation +! described in Morrison et al. 2005 JAS. + +! modified to interface with HUCM Spectral Bin Model (18 Apr 2007 JMC) + +! Germ formation rates due to condensation freezing are described in +! Khvorostyanov and Curry 2005 JAS. +! This formulation passes the aerosol (IN) size distribution into subroutine +! and tracks IN loss due to nucleation scavenging. + +! modified to pass the drop size distribution rather than the IN dry aerosol +! distribution and removed aerosol growth. (Oct 2007 JMC) + +implicit none + +! input: +integer INBINMAX ! number of aerosol (IN) bins +real temp, & ! temperature (K) + Sw , & ! water supersaturation ratio (dimensionless) + dt , & ! time step (s) + icenuclei(INBINMAX),& ! ice nuclei (from ccn distribution) (m-3) + draeros(INBINMAX) ! dry aerosol radius (m) + +! output: +! note: numhet and qhet are the total number aerosol nucleated during time step, +! not nucleation rate!!! +real numhet(INBINMAX) ! number of aerosol nucleated for aerosol bin (m-3) +real qhet(INBINMAX) ! mass of single ice crystal nucleated per aerosol bin (kg) + +! internal: +real raeros, & ! radius of insoluble substrate (m) + wraeros, & ! wet aerosol radius (m) + ajlsfrz, & ! het frz rate for particle + probhet, & ! probability of het frz for particle + Tc, & ! temperature (C) + hrel ! saturation ratio (unitless) +integer kr ! counter for aerosol size bin + +! other parameter +real rhow, & !density of water + rhoi !density of ice +real pi + +Tc = temp-273.15 !! K to C +hrel = Sw + 1.0 ! saturation ratio + +! define constants +pi = 4.*atan(1.) + +! qvaero = 0.85 !aerosol solubility in terms of volume fraction +! this quantity is assumed, may want to upgrade formulation +! wettability +! wetcoef = 0.9 +! relative area of active sites +! alf = 0.5e-5 +! misfit strain parameter +! epsil = 2.5e-2 ! e=2.5% Turnbull vonegut, 1952 +! epsil = 0.1e-2 !! e~0; Turnbull vonegut, 1952 +! epsil=0.01 !e=1% +! density of water (kg/m3) +rhow = 1000.0 +! density of ice (kg/m3) +rhoi = 900.0 +! aerosol parameter describing composition (Khvorostyanov and Curry 1999) +! betafr = 0.5 + +!----------------------------------------------------------------------- +! numerical integration of size bins + +! initialize nucleation number and mass + +do kr = 1,INBINMAX + numhet(kr) = 0. + qhet(kr) = 0. +end do + +! main loop around aerosol size bins, starting with largest bin + +do kr=INBINMAX,1,-1 + +! determine radius of insoluble portion of aerosol raeros +! size of insoluble substrate determines germ formation rate +! See Khvorostyanov and Curry 2004 + + raeros = draeros(kr) * (1.-qvaero)**(1./3.) !m + +! print*,'raeros=',raeros +! call to get germ formation rate + + if (raeros.gt.0.) then + CALL jhetfrz2 (Tc,hrel,raeros,ajlsfrz) + else + ajlsfrz = 0. + end if + +! calculate probability of aerosol particle freezing within dt + + probhet = 1.-exp(-ajlsfrz*dt) +! if (probhet > 1.e-3) print *,'probhet',probhet,ajlsfrz,raeros + +! print *,probhet,ajlsfrz,raeros + +! if there is no freezing associated with largest size bin, then +! exit loop, there will be no nucleation +! use probability of 1.e-10 as cutoff + + if (kr.eq.INBINMAX) then + if (probhet.lt.1.e-10) return + end if + +! nucleate if probability is significant + + if (probhet.ge.1.e-10) then + +! number of ice nucleated for each drop size bin (1/m3) + + numhet(kr) = probhet * AMAX1(icenuclei(kr),0.0) +! print*,'numhet',kr,numhet(kr),ajlsfrz,probhet,icenuclei(kr) + +!---------------------------------------------------------------------------------- +! note, use wetted aerosol for radius to calculate mass +! of nucleated crystals for size bin (kg m-3) +! this is done by multiplying nucleation rate (m-3) by +! 4/3*pi*rhoi*r^3 +! rhoi = 900 kg m-3 is assumed bulk density of ice + + CALL req_haze (temp,Sw,draeros(kr),wraeros) +! print*, 'wet rad', kr, draeros(kr), wraeros + + qhet(kr) = 4./3.*pi*rhoi*(wraeros)**3.0 !mass of a single particle in (kg) + + icenuclei(kr) = icenuclei(kr) - numhet(kr) + + end if !! significant freezing probability +end do !! end loop around size bins + +return +END SUBROUTINE heteronuc_ccn + +!############################################################################## +Subroutine jhetfrz2 (ttc,relh,raeros,ajlshet) + +! this subroutine calculates germ formation rates on insoluble subsrate for +! given T, S, etc. +! Khvorostyanov and Curry, 2005 JAS +! All units are mks (JMC) 18 Apr 2007 + +implicit none + +! input data + +real ttc, & ! temperature (C!!!!) + relh, & ! saturation ratio over water + sig_iw0, & !surface tension ice/water interface + raeros !radius of the insolouble substrate (m) + +! output data + +real ajlshet !nucleation rate (s-1) +real sw_th !threshold saturation + +! internal variables +!!!!!!! Modified by Yi Wang !!!!!!! +!!!! Using c1s (c,one,s) is same as cls (c,l,s) +!!!! Change c1s to cleans + +REAL cturn,rhoimean,akbol,rhoi,akplank,cleans,almmeanc & + ,a_lm0,a_lm1,a_lm2,ttze,a_lmtn(4),rlog,cor1,cor2 & + ,almmean,ttk,tt0,humf,expind,sw_thresh,fgerms,Rv +REAL factivh,xxx,fisize,fisizeSS,xmfi,ccc1,ccc2,ccc3, & + ffshape2,fshape,fgerms0,dfgerms,coefnucl,rgerms + +! Turnb-Vonneg strain const, [NT/m^-2], 24 June 2000, PK97, p.343 +CTurn=1.7e10 +cleans=1.e19 ! [m^-2], conc. molec. per 1 m^2 of surface, PK97, p.342 + ! PK97, p. 206, was 10^18!!! !m^-2, number of molec. per 1 + ! [m^2], contact. ice germ +RHOIMEAN=900.0 !kg/m3, mean ice density +RHOI=900.0 !kg/m3, ice density + + +akbol =1.380622e-23 ![J/K], Boltzmann constant +akplank =6.626176e-34 ![J*s], Planck constant +Rv =4.615e2 !specific gas constant for water vapor (J/kg/K) + +sig_iw0=(28.0+0.25*TTC)*1.e-3 !surface tension, [NT/m] ice-water interface + + +TTZE=273.15 + +A_LM0 =70.0 ! Lm=70 cal/g !Prup'95 +A_LM1 =0.708 +A_LM2 =-2.5e-3 !L''m, Prup.'78, p.89 +ALMMEANC =79.7 + 0.693*TTC-2.5E-3*TTC**2 !old PK78, corr. 2 June 1998 +A_LMTN(1)=79.7 + A_LM1*TTC+A_LM2*(TTC**2) ! Lm, Prup'78, p.89; +A_LMTN(2)=A_LM0 + A_LM1*TTC+A_LM2*TTC**2 ! Pr95, fig.8, PK97, fig. 3-12 + +! below: Temperature correction fi(T) from +! Integr. melt. heat -temp. corr. + +RLOG =alog(TTZE/(TTC+TTZE)) +cor1 =-A_LM1/A_LM0*(TTZE+TTC/RLOG) +cor2 = A_LM2/A_LM0*(TTZE**2.0-TTC/RLOG*(TTC-2.0*TTZE)/2.) + +A_LMTN(4)=1.+cor1+cor2 +A_LMTN(3)=A_LM0 * A_LMTN(4) + +! effective melting heat + +ALMMEANC=A_LMTN(1) ![kcal/kg] or [cal/g] +ALMMEAN=ALMMEANC*4.18e3 ![J/kg] + +TTK=TTC+273.15 !Temperature Kelvin +TT0=273.15 !0 C (Kelvin=273.15) +! param. G=Rv*T/Lm (divided by corr. Lm(TTC), 1 June 1998 +humf=0.11*TTK/ALMMEANC + + +expind=CTurn*epsil**2.0/(RHOI*ALMMEAN) + +! thershold saturation + +Sw_thresh=(TTK/TT0*exp(expind))**(1./humf) +Sw_th=Sw_thresh !for output + +! if sw less than theshold then exit out, no nucleation +! print*,' Sw_th=',Sw_th +if (Sw_thresh.GE.relh) then !no nucleation, go out + AJLSHet=1.e-20 + FGERMS=1.e-14 + rgerms=1.e-08 + go to 98765 +endif + +! activation energy + +!******Activation energy at T=-30 C is 10 kkal/mole (PK97, Fig. 3-11, p.95); +!*** this is =0.694*10^-12 erg; starting point for this fit at T=-30 C. +!*** It decreases with T and coincides with Jensen94 at T=-90 C + +FACTIVH= & ! Activation energy, erg + 0.694E-12*(1.+0.027*(TTC+30.0)) !Linear fit to Prupp.'95 4 Nov 1997 +if (TTC.gt.-30.0) FACTIVH=0.385e-12* & + exp(-8.423e-3*TTC+6.384e-4*TTC**2.0+7.891e-6*TTC**3.0) !p.96 + +if (TTC.le.-40.) FACTIVH= & !for`low T<-40 C + 0.694E-12*(1.+0.027*(TTC+30.0)*exp(0.010*(TTC+30.0))) !MY CHOICE +FACTIVH = FACTIVH * 1.E-7 !convert from erg to Joules + +! rgerms in m +rgerms=2.0*sig_iw0/(ALMMEAN*RHOIMEAN*(ALOG(273.15/TTK) & + +humf*ALOG(relh))-CTurn*epsil**2.0) !corr 24 June 2000 for misfit strain + +! this check is to make sure that radius of germ is greater than 0 + +if (rgerms.gt.0.) go to 12345 !continue if rgerms>0 + +!*****************go out with AJLSHet=0, if rgerms<0 ********************** + +if (rgerms.le.0.) then + AJLSHet=1.e-20 !no nucleation, go out + FGERMS=1.e-24 + rgerms=1.e-18 +! print*,'rgerms.le.0.' + go to 98765 !go out with AJLSHet=0, if rgerms<0 +endif + +12345 xxx=raeros/rgerms + +! shape factor + +fisizeSS=(1.0-2.0*wetcoef*xxx+xxx**2.0)**0.5 !12 Nov 1998, PK97, p. 302 +fisize=fisizeSS !18 July 2000, derevn. +xmfi=(xxx-wetcoef)/fisizeSS + +ccc1=((1-wetcoef*xxx)/fisizeSS)**3.0 +ccc2=(xxx**3.0)*(2.0-3.0*xmfi+xmfi**3.0) +ccc3=3*wetcoef*(xxx**2)*(xmfi-1) +ffshape2=0.5*(1+ccc1+ccc2+ccc3) +fshape=ffshape2 +!print*,'fshape=',fshape +FGERMS0=4./3.*3.1416*sig_iw0*(rgerms**2.0)*fshape !Germ energy with shape +!print*,'fgerms0=',fgerms0,sig_iw0,rgerms + +!*****!Fletcher's correction for active site, PK97, p.345, !11 April 1999 +DFGERMS=alf*(raeros**2.0)*sig_iw0*(1.-wetcoef) !11 April 1999, PK97, p.345 +!print*,'dfgerms=',dfgerms + +! correction for active site, PK97, p.345; 24 June 2000 + +FGERMS=FGERMS0-DFGERMS +if (FGERMS.le.0.) FGERMS=0. ! no zero values ??? + +! output to screen +! if (FGERMS.le.0.) write (*,*) 'FGERMS LT 0.',' TTK=',TTK, +! # ' relh=',relh,' FGERMS0=',FGERMS0,' DFGERMS=',DFGERMS,'alf=',alf, +! # ' raeros=',raeros + +! preexpon. fact. PK97, p.342, heterogen. 12 Nov 1998 + +coefnucl=(akbol*TTK/akplank)* & !12 Nov 1998, PK97, p. 342 + (4.0*3.1416*raeros**2.0)*cleans +!print*,'coefnucl=',coefnucl,akbol,ttk,akplank,raeros,cleans +! calculate freezing rate + +AJLSHet= & !s^-1, heterogen. salt nucleation rate, PK97, p. 342 + coefnucl*exp(-(FACTIVH+FGERMS)/(akbol*TTK)) !KS.98 + +if (AJLSHet.lt.1.e-20) AJLSHet=1.e-20 + +98765 return !go here if rgerms<0 +END SUBROUTINE jhetfrz2 + +!############################################################################## +Subroutine req_haze (temp,sw,draeros,wraeros) + +! this subroutine calculates germ formation rates on insoluble subsrate for +! given T, S, etc. +! Khvorostyanov and Curry, 2005 JAS +! All units are mks (JMC) 18 Apr 2007 + +! purpose +! input temp [K] +! sw saturation ratio +! draeros [m] dry aerosol radius +! betafr aerosol parameter describing composition +! qvaeros aerosol solubility in terms of volume fraction (unitless) +! output wraeros [m] +! +! comment +! dilute solution approx. +! works for RHW <=100.0 +! Note +! output wraeros >= draeros +! source: +! Hugh Morrison, Jennifer Comstock +! reference: +! Khvorostyanov and Curry (1999) JGR +! http://mathworld.wolfram.com +!=============================================================== + +IMPLICIT NONE + +! INCLUDE "aerosol_prop_mks.inc" + +real temp ! temperature [K} +real sw ! saturation ratio (water) +real draeros ! dry aerosol radius [m] +real Tc,T0 +real H +real sigvl,rhow +real b, A, BB +real wr100 +real a0,a1,a2,s1,s2 +real Q,Q3,R,R2,D,D12 +real theta +real wraeros +real Mw,Rv +!real rhos2 + +!print*,'Req_haze...' + +!rhos2 = 1770.0 !density of dry aerosol (kg/m3) (NH4)2SO4 Ammonium Sulate KC1999 +!Ms2 = 0.132 !molecular weight of dry aerosol (g/mol) (NH4)2SO4 KC1999 +Mw = 1.8e-2 !molecular weight of water (kg/mol) +Rv = 4.615e2 !specific gas constant for water vapor (J/kg/K) +T0 = 273.15 +Tc= temp-T0 ! K to C +H = sw+1.0 ! saturation ratio +rhow= 1000.0 ! density of water (kg/m3) + +sigvl= 0.0761 - 1.55e-4 * Tc + +!aerosol parameter describing composition, Eq (11), KC1999 +b = 2.0 * qvaero*(rhos2/rhow)*(Mw/Ms2) +!Kelvin parameter, KC1999 +BB = 2.0 * sigvl/(Rv*temp*rhow) +A = b * (draeros)**(2.0+2.0*betafr) +wr100= (A/BB)**0.5 !wet radius at RH=100% + +!print*,'BB kel=',BB +!if (h > 0.0) print*,'check para', qvaero, rhos2, Ms2, draeros, betafr,h + +if (H .lt. 1.0) then + +! cubic formula, http://mathworld.wolfram.com + + a0 = A/(H-1.) + a1 = 0. + a2 = -BB/(H-1.) +! print*,a0,a1,a2 +! cubic root solution + + Q= (3.*a1 -(a2*a2))/9.0 + R= (9.*a1*a2-27.*a0-2.*a2*a2*a2)/54.0 + Q3 = Q*Q*Q + R2 = R*R + D= Q3+R2 +! print*,'Q&R',Q,R +! print*,'Dvalue', D, Q, R, a0, a2, A, BB + + if (D .gt. 0.0) then + D12 = D**0.5 + + if ( (R + D12).gt.0.0) then + s1 = (R + D12)**(1./3.) + else + s1 = -(abs(R + D12)**(1./3.)) + endif + + if ( (R - D12).gt.0.0) then + s2 = (R - D12)**(1./3.) + else + s2 = -(abs(R - D12))**(1./3.) + endif +! print*,'s1&s2=',s1,s2 + + wraeros = (s1+s2)-a2/3. +! print*,'D gt 0:',wraeros + else if (D .lt. 0.0) then +! 3 real solutions +! choose the first solution (most realistic) + theta = acos(R/sqrt(-Q3)) + + wraeros = 2 * ((-Q)**0.5) * cos( theta / 3. ) - a2/3.0 +! print*,'D lt 0:',wraeros + endif +else +! for water saturated or greater + + wraeros = wr100 +! make sure aerosol size does not exceed value when RH = 100% + + if (wraeros .gt. wr100) then + wraeros = wr100 + endif + +! make sure wraeros is not smaller than draeros + wraeros = AMAX1(wraeros,draeros) +endif + +RETURN +END SUBROUTINE req_haze + +!############################################################################## +Subroutine NUCLEATION (SUP1,TT,FCCNR,DROPCONCN,NDROPMAX,RCCN,DROPRADII,NKR) + +! DROPCONCN(KR), 1/cm^3 - drop bin concentrations, KR=1,...,NKR + +! determination of new size spectra due to drop nucleation + +IMPLICIT NONE +INTEGER NDROPMAX,IDROP,INEXT,ISMALL,KR,NCRITI +INTEGER IMIN,IMAX,NKR,I +REAL & + SUP1,TT,RACTMAX,RCRITI,BKOE, & + AKOE,DEG01 +REAL CCNCONC(NKR) +REAL CCNCONC_BFNUCL,CCNCONC_AFNUCL, DEl_CCNCONC +REAL RCCN(NKR),DROPRADII(NKR),FCCNR(NKR) +REAL RACT(NKR),DROPCONCN(NKR) + + DEG01=1./3. + + +! calculation initial value of NDROPMAX - maximal number of drop bin +! which is activated + +! initial value of NDROPMAX + + NDROPMAX=0 + + DO KR=1,NKR +! initialization of bin radii of activated drops + RACT(KR)=0. +! initialization of aerosol(CCN) bin concentrations + CCNCONC(KR)=0. +! initialization of drop bin concentrations + DROPCONCN(KR)=0. + ENDDO + +! CCNCONC_BFNUCL - concentration of aerosol particles before +!nucleation + + CCNCONC_BFNUCL=0. + DO I=1,NKR + CCNCONC_BFNUCL=CCNCONC_BFNUCL+FCCNR(I) + ENDDO + + CCNCONC_BFNUCL=CCNCONC_BFNUCL*COL + + IF(CCNCONC_BFNUCL.EQ.0.) THEN + RETURN + ELSE + CALL BOUNDARY (IMIN,IMAX,FCCNR,NKR) + CALL CRITICAL (AKOE,BKOE,TT,RCRITI,SUP1,DEG01) +! print*, 'rcriti',RCRITI,imax,RCCN(IMAX) + + IF(RCRITI.GE.RCCN(IMAX)) RETURN + END IF + +! calculation of CCNCONC(I) - aerosol(CCN) bin concentrations; +! I=IMIN,...,IMAX +! determination of NCRITI - number bin in which is located RCRITI + IF (IMIN.EQ.1)THEN + CALL CCNIMIN (IMIN,IMAX,RCRITI,NCRITI,RCCN,CCNCONC, & + FCCNR,NKR) + CALL CCNLOOP (IMIN,IMAX,RCRITI,NCRITI,RCCN,CCNCONC, & + FCCNR,NKR) + ELSE + CALL CCNLOOP (IMIN,IMAX,RCRITI,NCRITI,RCCN,CCNCONC, & + FCCNR,NKR) + END IF + +! calculation CCNCONC_AFNUCL - ccn concentration after nucleation + + CCNCONC_AFNUCL=0. + + DO I=IMIN,IMAX + CCNCONC_AFNUCL=CCNCONC_AFNUCL+FCCNR(I) + ENDDO + + CCNCONC_AFNUCL=CCNCONC_AFNUCL*COL + + DEL_CCNCONC=CCNCONC_BFNUCL-CCNCONC_AFNUCL + + CALL ACTIVATE (IMIN,IMAX,AKOE,BKOE,RCCN,RACTMAX,NKR) + CALL DROPMAX (DROPRADII,RACTMAX,NDROPMAX,NKR) +! put nucleated droplets into the drop bin according to radius +! change in drop concentration due to activation DROPCONCN(IDROP) + ISMALL=NCRITI + + INEXT=ISMALL + + DO IDROP=1,NDROPMAX + DROPCONCN(IDROP)=0. + DO I=ISMALL,IMAX + IF(RACT(I).LE.DROPRADII(IDROP)) THEN + DROPCONCN(IDROP)=DROPCONCN(IDROP)+CCNCONC(I) + INEXT=I+1 + ENDIF + ENDDO + ISMALL=INEXT + ENDDO + +RETURN +END SUBROUTINE NUCLEATION + +!############################################################################## +Subroutine BOUNDARY (IMIN,IMAX,FCCNR,NKR) + +! IMIN - left CCN spectrum boundary +IMPLICIT NONE +INTEGER I,IMIN,IMAX,NKR +REAL FCCNR(NKR) + +IMIN=0 + +DO I=1,NKR + IF(FCCNR(I).NE.0.) THEN + IMIN=I + EXIT + ENDIF +ENDDO + +! IMAX - right CCN spectrum boundary +IMAX=0 + +DO I=NKR,1,-1 + IF(FCCNR(I).NE.0.) THEN + IMAX=I + EXIT + ENDIF +ENDDO + +RETURN +END SUBROUTINE BOUNDARY + +!############################################################################## +Subroutine CRITICAL (AKOE,BKOE,TT,RCRITI,SUP1,DEG01) + +! AKOE & BKOE - constants in Koehler equation +IMPLICIT NONE +REAL AKOE,BKOE,TT,RCRITI,SUP1,DEG01 + + AKOE=3.3E-05/TT + BKOE=ions*4.3/mwaero + BKOE=BKOE*(4./3.)*3.141593*RO_SOLUTE + +! RCRITI, cm - critical radius of "dry" aerosol + + RCRITI=(AKOE/3.)*(4./BKOE/SUP1/SUP1)**DEG01 + +RETURN +END SUBROUTINE CRITICAL + +!############################################################################## +Subroutine CCNIMIN (IMIN,IMAX,RCRITI,NCRITI,RCCN,CCNCONC,FCCNR,NKR) + +IMPLICIT NONE +INTEGER IMIN,II,IMAX,NCRITI,NKR +REAL RCRITI +REAL RCCN(NKR),FCCNR(NKR),CCNCONC(NKR) +REAL RCCN_MIN +REAL DLN1,DLN2 +! rccn_min - minimum aerosol(ccn) radius + RCCN_MIN=RCCN(1)/10000. +! calculation of ccnconc(ii)=fccnr(ii)*col - aerosol(ccn) bin +! concentrations, +! ii=imin,...,imax +! determination of ncriti - number bin in which is located rcriti +! calculation of ccnconc(ncriti)=fccnr(ncriti)*dln1/(dln1+dln2), +! where, +! dln1=Ln(rcriti)-Ln(rccn_min) +! dln2=Ln(rccn(1)-Ln(rcriti) + +IF(RCRITI.LE.RCCN_MIN) THEN + NCRITI=1 + DO II=NCRITI+1,IMAX + CCNCONC(II)=COL*FCCNR(II) + FCCNR(II)=0. + ENDDO +ELSEIF(RCRITI.GT.RCCN_MIN.AND.RCRITI.LT.RCCN(IMIN)) THEN + NCRITI=1 + DO II=NCRITI+1,IMAX + CCNCONC(II)=COL*FCCNR(II) + FCCNR(II)=0. + ENDDO + DLN1=ALOG(RCRITI)-ALOG(RCCN_MIN) + DLN2=ALOG(RCCN(1))-ALOG(RCRITI) + CCNCONC(NCRITI)=DLN2*FCCNR(NCRITI) + FCCNR(NCRITI)=FCCNR(NCRITI)*DLN1/(DLN1+DLN2) +ENDIF + +RETURN +END SUBROUTINE CCNIMIN + +!############################################################################## +Subroutine CCNLOOP (IMIN,IMAX,RCRITI,NCRITI,RCCN,CCNCONC,FCCNR,NKR) + +IMPLICIT NONE +INTEGER I,IMIN,IMAX,NKR,II,NCRITI +REAL RCRITI,RCCN(NKR),CCNCONC(NKR),FCCNR(NKR) +REAL DLN1,DLN2 + + IF(IMIN.GT.1) THEN + IF(RCRITI.LE.RCCN(IMIN-1)) THEN + NCRITI=IMIN + DO II=NCRITI,IMAX + CCNCONC(II)=COL*FCCNR(II) + FCCNR(II)=0. + ENDDO + RETURN + ENDIF + IF(RCRITI.LT.RCCN(IMIN).AND.RCRITI.GT.RCCN(IMIN-1)) THEN + NCRITI=IMIN + + DO II=NCRITI+1,IMAX + CCNCONC(II)=COL*FCCNR(II) + FCCNR(II)=0. + ENDDO + DLN1=ALOG(RCRITI)-ALOG(RCCN(IMIN-1)) + DLN2=COL-DLN1 + CCNCONC(NCRITI)=DLN2*FCCNR(NCRITI) + FCCNR(NCRITI)=FCCNR(NCRITI)*DLN1/COL + RETURN + ENDIF + ENDIF + + DO I=IMIN,IMAX-1 + IF(RCRITI.EQ.RCCN(I)) THEN + NCRITI=I+1 + DO II=I+1,IMAX + CCNCONC(II)=COL*FCCNR(II) + FCCNR(II)=0. + ENDDO + RETURN + ENDIF + IF(RCRITI.GT.RCCN(I).AND.RCRITI.LT.RCCN(I+1)) THEN + NCRITI=I+1 + IF(I.NE.IMAX-1) THEN + DO II=NCRITI+1,IMAX + CCNCONC(II)=COL*FCCNR(II) + FCCNR(II)=0. + ENDDO + ENDIF + DLN1=ALOG(RCRITI)-ALOG(RCCN(I)) + DLN2=COL-DLN1 + CCNCONC(NCRITI)=DLN2*FCCNR(NCRITI) + FCCNR(NCRITI)=FCCNR(NCRITI)*DLN1/COL + RETURN + END IF + ENDDO + +RETURN +END SUBROUTINE CCNLOOP + +!############################################################################## +Subroutine ACTIVATE (IMIN,IMAX,AKOE,BKOE,RCCN,RACTMAX,NKR) + +IMPLICIT NONE + +INTEGER IMIN,IMAX,NKR +INTEGER I,I0,I1 +REAL RCCN(NKR) +REAL R03,SUPCRITI,RACT(NKR),XKOE +REAL AKOE,BKOE,AKOE23,RACTMAX + +! Spectrum of activated drops (begin) + DO I=IMIN,IMAX + ! critical water supersaturations appropriating CCN radii + XKOE=(4./27.)*(AKOE**3./BKOE) + AKOE23=AKOE*2./3. + R03=RCCN(I)**3. + SUPCRITI=SQRT(XKOE/R03) + +! RACT(I) - radii of activated drops, I=IMIN,...,IMAX + + IF(RCCN(I).LE.(0.3E-5)) RACT(I)=AKOE23/SUPCRITI + IF(RCCN(I).GT.(0.3E-5)) RACT(I)=5.*RCCN(I) + ENDDO + + I0=IMIN + + DO I=IMIN,IMAX-1 + IF(RACT(I+1).LT.RACT(I)) THEN + I0=I+1 + EXIT + ENDIF + ENDDO + + I1=I0-1 + + IF(I0.EQ.IMIN) GOTO 47 + + IF(I0.EQ.IMAX) THEN + RACT(IMAX)=RACT(IMAX-1) + GOTO 47 + ENDIF + + IF(RACT(IMAX).LE.RACT(I0-1)) THEN + DO I=I0,IMAX + RACT(I)=RACT(I0-1) + ENDDO + GOTO 47 + ENDIF + + DO I=I0+1,IMAX + IF(RACT(I).GE.RACT(I0-1)) THEN + I1=I + EXIT + ENDIF + ENDDO + +! line interpolation RACT(I) for I=I0,...,I1 + + DO I=I0,I1 + RACT(I)=RACT(I0-1)+(I-I0+1)*(RACT(I1)-RACT(I0-1)) & + /(I1-I0+1) + ENDDO + + 47 CONTINUE + + RACTMAX=0. + + DO I=IMIN,IMAX + RACTMAX=AMAX1(RACTMAX,RACT(I)) + ENDDO + +RETURN +END SUBROUTINE ACTIVATE + +!############################################################################## +Subroutine DROPMAX (DROPRADII,RACTMAX,NDROPMAX,NKR) + +IMPLICIT NONE +INTEGER IDROP,NKR,NDROPMAX +REAL RACTMAX,DROPRADII(NKR) +! calculation of NDROPMAX - maximal number of drop bin which +! is activated + + NDROPMAX=1 + + DO IDROP=1,NKR + IF(RACTMAX.LE.DROPRADII(IDROP)) THEN + NDROPMAX=IDROP + RETURN + ENDIF + ENDDO + +RETURN +END SUBROUTINE DROPMAX + +!############################################################################## +Subroutine ONECOND1 (TT,QQ,PP,ROR & + ,VR1,PSINGLE & + ,DEL1N,DEL2N,DIV1,DIV2 & + ,FF1,PSI1,R1,RLEC,RO1BL & + ,AA1_MY,BB1_MY,AA2_MY,BB2_MY & + ,COL,DTCOND,ICEMAX,NKR) + +IMPLICIT NONE + +INTEGER NKR,ICEMAX +REAL COL,VR1(NKR),PSINGLE & + ,AA1_MY,BB1_MY,AA2_MY,BB2_MY & + ,DTCOND + +INTEGER KR,ITIME,KCOND,NR,NRM,KLIMIT,KM +REAL AL1,AL2,D,GAM,POD, & + RV_MY,CF_MY,D_MYIN,AL1_MY,AL2_MY,DT0LREF,DTLREF, & + DT,DTT, & + TPC1, TPC2, TPC3, TPC4, TPC5, & + EPSDEL, EPSDEL2,DT0L, DT0I,& + ROR, CWHUCM,B6,B8L, & + DEL1,DEL2,DEL1S,DEL2S, & + TIMENEW,TIMEREV,SFN11,SFN12, & + SFNL,SFNI,B5L,B5I,B7L,B7I,DOPL,DOPI,RW,RI,QW,PW, & + PI,QI,DTNEWL,DTNEWL1,D1N,D2N, & + DT0L0,DT0I0 + +INTEGER K + +REAL FF1_OLD(NKR),SUPINTW(NKR) +DOUBLE PRECISION DSUPINTW(NKR),DD1N,DB11_MY +DOUBLE PRECISION COL3,DAL1,RORI,TPN,TPS,QPN,QPS,TOLD,QOLD & + ,FI1_K,R1_K,FI1R1 & + ,RMASSLAA,RMASSLBB & + ,ES1N,ES2N,EW1N,ARGEXP & + ,TT,QQ,PP & + ,DEL1N,DEL2N,DIV1,DIV2 & + ,OPER2,OPER3,AR1,AR2 + +DOUBLE PRECISION DELMASSL1 + +! DROPLETS + +REAL R1(NKR) & + ,RLEC(NKR),RO1BL(NKR) & + ,FI1(NKR),FF1(NKR),PSI1(NKR) & + ,B11_MY(NKR),B12_MY(NKR) + +REAL DTIMEO(NKR),DTIMEL(NKR) & + ,TIMESTEPD(NKR) + +! CCN regeneration +real tot_before, tot_after +! NEW ALGORITHM (NO TYPE OF ICE) + +OPER2(AR1)=0.622/(0.622+0.378*AR1)/AR1 +OPER3(AR1,AR2)=AR1*AR2/(0.622+0.378*AR1) + +DATA AL1 /2500./, AL2 /2834./, D /0.211/ & + ,GAM /1.E-4/, POD /10./ + +DATA RV_MY,CF_MY,D_MYIN,AL1_MY,AL2_MY & + /461.5,0.24E-1,0.211E-4,2.5E6,2.834E6/ + +DATA TPC1, TPC2, TPC3, TPC4, TPC5 & + /-4.0,-8.1,-12.7,-17.8,-22.4/ + +DATA EPSDEL, EPSDEL2 /0.1E-03,0.1E-03/ + +DATA DT0L, DT0I /1.E20,1.E20/ + +! CONTROL OF DROP SPECTRUM IN subroutine ONECOND + +COL3=3.0*COL +KCOND=0 +DT0LREF=0.2 +DTLREF=0.4 + +NR=NKR +DT=DTCOND +DTT=DTCOND + +CWHUCM=0. +B6=CWHUCM*GAM +B8L=1./ROR +RORI=1./ROR + +!!! add ccn regeneration (calculate the total droplets before cond-evap) +tot_before = 0.0 +do k = 1, nkr + tot_before = tot_before+psi1(k)*3.0*r1(k)*col +enddo +!!! + +DO KR=1,NKR + FF1_OLD(KR)=FF1(KR) + SUPINTW(KR)=0. + DSUPINTW(KR)=0. +ENDDO +TPN=TT +QPN=QQ +DO KR=1,NKR + FI1(KR)=FF1(KR) +ENDDO +TIMENEW=0. +ITIME=0 +TOLD=TPN +QOLD=QPN +!----------------Begin small timestep loop---------------------------- +56 ITIME=ITIME+1 + TIMEREV=DT-TIMENEW + DEL1=DEL1N + DEL2=DEL2N + DEL1S=DEL1N + DEL2S=DEL2N + TPS=TPN + QPS=QPN + CALL JERRATE (R1,TPS,PP,ROR,VR1,PSINGLE & + ,RLEC,RO1BL,B11_MY,B12_MY,1,1,ICEMAX,NKR) + + CALL JERTIMESC (FI1,R1,SFN11,SFN12 & + ,B11_MY,B12_MY,B8L,1,COL,NKR) + + SFNL=SFN11+SFN12 + SFNI=0. + + B5L=BB1_MY/TPS/TPS + B5I=BB2_MY/TPS/TPS + B7L=B5L*B6 + B7I=B5I*B6 + DOPL=1.+DEL1S + DOPI=1.+DEL2S + RW=(OPER2(QPS)+B5L*AL1)*DOPL*SFNL + RI=(OPER2(QPS)+B5L*AL2)*DOPL*SFNI + QW=B7L*DOPL + PW=(OPER2(QPS)+B5I*AL1)*DOPI*SFNL + PI=(OPER2(QPS)+B5I*AL2)*DOPI*SFNI + QI=B7I*DOPI + + KCOND=10 + + IF(DEL1.GT.0) KCOND=11 + + IF(KCOND.EQ.11) THEN !Condensation + DTNEWL=ABS(R1(ITIME)/(B11_MY(ITIME)*DEL1N & + -B12_MY(ITIME))) + IF(DTNEWL.GT.DT) DTNEWL=DT + TIMESTEPD(ITIME)=DTNEWL + + IF((TIMENEW+DTNEWL).GT.DT.AND.ITIME.LT.(NKR-1)) & + DTNEWL=DT-TIMENEW + IF(ITIME.EQ.(NKR-1)) DTNEWL=DT-TIMENEW + + TIMESTEPD(ITIME)=DTNEWL + TIMENEW=TIMENEW+DTNEWL + DTT=DTNEWL + +! SOLVING FOR SUPERSATURATION + CALL JERSUPSAT (DEL1,DEL2,DEL1N,DEL2N & + ,RW,PW,RI,PI,QW,QI & + ,DTT,D1N,D2N,DT0L,DT0I) + +! DROPLET DISTRIBUTION function + CALL JERDFUN (R1,B11_MY,B12_MY & + ,FI1,PSI1,D1N & + ,1,1,COL,NKR) + + ELSE ! EVAPORATION - ONLY WATER + + IF (DEL1N.EQ.0)THEN + DTIMEO(1)=DT + DO KR=2,NKR + DTIMEO(KR)=DT + ENDDO + ELSE + DTIMEO(1)=-R1(1)/(B11_MY(1)*DEL1N-B12_MY(1)) + DO KR=2,NKR + KM=KR-1 + DTIMEO(KR)=(R1(KM)-R1(KR))/(B11_MY(KR)*DEL1N & + -B12_MY(KR)) + ENDDO + END IF + + KLIMIT=1 + + DO KR=1,NKR + IF(DTIMEO(KR).GT.TIMEREV) GOTO 55 + KLIMIT=KR + ENDDO + +55 KLIMIT=KLIMIT-1 + + IF(KLIMIT.LT.1) KLIMIT=1 + + DTNEWL1=AMIN1(DTIMEO(KLIMIT),TIMEREV) + IF(DTNEWL1.LT.DTLREF) DTNEWL1=AMIN1(DTLREF,TIMEREV) + DTNEWL=DTNEWL1 + TIMESTEPD(ITIME)=DTNEWL + + IF(DTNEWL.GT.DT) DTNEWL=DT + IF((TIMENEW+DTNEWL).GT.DT.AND.ITIME.LT.(NKR-1)) & + DTNEWL=DT-TIMENEW + IF(ITIME.EQ.(NKR-1)) DTNEWL=DT-TIMENEW + + TIMESTEPD(ITIME)=DTNEWL + TIMENEW=TIMENEW+DTNEWL + DTT=DTNEWL + +! SOLVING FOR SUPERSATURATION + CALL JERSUPSAT (DEL1,DEL2,DEL1N,DEL2N & + ,RW,PW,RI,PI,QW,QI & + ,DTT,D1N,D2N,DT0L0,DT0I0) + + CALL JERDFUN (R1,B11_MY,B12_MY & + ,FI1,PSI1,D1N & + ,1,1,COL,NKR) + + ENDIF + + RMASSLBB=0. + RMASSLAA=0. + +! BEFORE JERNEWF (ONLY WATER) + DO K=1,NKR + FI1_K=FI1(K) + R1_K=R1(K) + FI1R1=FI1_K*R1_K*R1_K + RMASSLBB=RMASSLBB+FI1R1 + ENDDO + RMASSLBB=RMASSLBB*COL3*RORI + IF(RMASSLBB.LE.0.) RMASSLBB=0. + DO K=1,NKR + FI1_K=PSI1(K) + R1_K=R1(K) + FI1R1=FI1_K*R1_K*R1_K + RMASSLAA=RMASSLAA+FI1R1 + ENDDO + RMASSLAA=RMASSLAA*COL3*RORI + IF(RMASSLAA.LE.0.) RMASSLAA=0. + DELMASSL1=RMASSLAA-RMASSLBB + QPN=QPS-DELMASSL1 + DAL1=AL1 + TPN=TPS+DAL1*DELMASSL1 +! SUPERSATURATION (ONLY WATER) + ARGEXP=-BB1_MY/TPN + ES1N=AA1_MY*DEXP(ARGEXP) + ARGEXP=-BB2_MY/TPN + ES2N=AA2_MY*DEXP(ARGEXP) + EW1N=OPER3(QPN,PP) + IF(ES1N.EQ.0)THEN + DEL1N=0.5 + DIV1=1.5 + ELSE + DIV1=EW1N/ES1N + DEL1N=EW1N/ES1N-1. + END IF + IF(ES2N.EQ.0)THEN + DEL2N=0.5 + DIV2=1.5 + ELSE + DEL2N=EW1N/ES2N-1. + DIV2=EW1N/ES2N + END IF + DO KR=1,NKR + SUPINTW(KR)=SUPINTW(KR)+B11_MY(KR)*D1N + DD1N=D1N + DB11_MY=B11_MY(KR) + DSUPINTW(KR)=DSUPINTW(KR)+DB11_MY*DD1N + ENDDO +! REPEAT TIME STEP (ONLY WATER: CONDENSATION OR EVAPORATION) + IF(TIMENEW.LT.DT) GOTO 56 +!------------------------------------------------------------ +CALL JERDFUN_NEW (R1,DSUPINTW & + ,FF1_OLD,PSI1,D1N & + ,1,1,COL,NKR) +RMASSLAA=0.0 +RMASSLBB=0.0 +! BEFORE JERNEWF +DO K=1,NKR + FI1_K=FF1_OLD(K) + R1_K=R1(K) + FI1R1=FI1_K*R1_K*R1_K + RMASSLBB=RMASSLBB+FI1R1 +ENDDO +RMASSLBB=RMASSLBB*COL3*RORI +IF(RMASSLBB.LT.0.0) RMASSLBB=0.0 +! AFTER JERNEWF +!add CCN regeneration. Calculate the total droplets after condensation -J. Fan +tot_after = 0. +DO K=1,NKR + FI1_K=PSI1(K) + R1_K=R1(K) + FI1R1=FI1_K*R1_K*R1_K + RMASSLAA=RMASSLAA+FI1R1 + tot_after = tot_after+psi1(k)*3.0*r1(k)*col +ENDDO +! CCN regeneration from evaporation +ccnreg = max((tot_before-tot_after),0.0) + +RMASSLAA=RMASSLAA*COL3*RORI +IF(RMASSLAA.LT.0.0) RMASSLAA=0.0 +DELMASSL1=RMASSLAA-RMASSLBB +QPN=QOLD-DELMASSL1 +DAL1 = AL1 +TPN=TOLD+DAL1*DELMASSL1 +! SUPERSATURATION +ARGEXP=-BB1_MY/TPN +ES1N=AA1_MY*DEXP(ARGEXP) +ARGEXP=-BB2_MY/TPN +ES2N=AA2_MY*DEXP(ARGEXP) +EW1N=OPER3(QPN,PP) +DIV1=EW1N/ES1N +DEL1N=EW1N/ES1N-1. +DEL2N=EW1N/ES2N-1. +DIV2=EW1N/ES2N +TT=TPN +QQ=QPN +DO KR=1,NKR + FF1(KR)=PSI1(KR) +ENDDO + +RETURN +END SUBROUTINE ONECOND1 + +!############################################################################## +Subroutine JERDFUN (R2,B21_MY,B22_MY,FI2,PSI2,DEL2N,IND,ITYPE,COL,NKR) + +IMPLICIT NONE +REAL COL,DEL2N +INTEGER IND,ITYPE,KR,ICE,ITYP,NRM,NR,NKR +REAL R2(NKR,IND),R2N(NKR,IND) & + ,FI2(NKR,IND),PSI2(NKR,IND) & + ,B21_MY(NKR,IND),B22_MY(NKR,IND) & + ,DEL_R2M(NKR,IND) +DOUBLE PRECISION R2R(NKR),R2NR(NKR),FI2R(NKR),PSI2R(NKR) +DOUBLE PRECISION DR2(NKR,IND),DR2N(NKR,IND),DDEL2N, & + DB21_MY(NKR,IND) +DOUBLE PRECISION CHECK +CHECK=0.D0 +DO KR=1,NKR + CHECK=B21_MY(1,1)*B21_MY(KR,1) + IF (CHECK.LT.0)print*,'CHECK < 0',KR,B21_MY(1,1),B21_MY(KR,1) + IF (CHECK.LT.0)STOP +END DO + +IF(IND.NE.1) THEN + ITYP=ITYPE + ELSE + ITYP=1 +ENDIF + +DDEL2N=DEL2N +DO KR=1,NKR + PSI2R(KR)=FI2(KR,ITYP) + FI2R(KR)=FI2(KR,ITYP) + DR2(KR,ITYP)=R2(KR,ITYP) + DB21_MY(KR,ITYP)=B21_MY(KR,ITYP) +ENDDO + +NR=NKR +NRM=NKR-1 + +! NEW DISTRIBUTION function +DO ICE=1,IND + IF(ITYP.EQ.ICE) THEN + DO KR=1,NKR + DR2N(KR,ICE)=DR2(KR,ICE)+DDEL2N*DB21_MY(KR,ICE) + R2N(KR,ICE)=DR2N(KR,ICE) + ENDDO + ENDIF +ENDDO + +DO ICE=1,IND + IF(ITYP.EQ.ICE) THEN + DO KR=1,NKR + R2R(KR)=DR2(KR,ICE) + R2NR(KR)=DR2N(KR,ICE) + ENDDO + + CALL JERNEWF (NR,NRM,R2R,FI2R,PSI2R,R2NR,COL,NKR) + DO KR=1,NKR + PSI2(KR,ICE)=PSI2R(KR) + ENDDO + ENDIF +ENDDO + +RETURN +END SUBROUTINE JERDFUN + +!############################################################################## +Subroutine JERDFUN_NEW (R2,B21_MY & + ,FI2,PSI2,DEL2N & + ,IND,ITYPE,COL,NKR) + +IMPLICIT NONE +INTEGER IND,ITYPE,KR,ICE,NRM,NR,NKR +REAL R2(NKR,IND),FI2(NKR,IND),PSI2(NKR,IND),COL,DEL2N +DOUBLE PRECISION B21_MY(NKR,IND) +DOUBLE PRECISION R2R(NKR),R2NR(NKR),FI2R(NKR),PSI2R(NKR) + +DO KR=1,NKR + FI2R(KR)=FI2(KR,ITYPE) +ENDDO + +NR=NKR +NRM=NKR-1 +ICE = ITYPE + +DO KR=1,NKR + R2R(KR)=R2(KR,ICE) + R2NR(KR)=R2(KR,ICE)+B21_MY(KR,ICE) +ENDDO + +CALL JERNEWF (NR,NRM,R2R,FI2R,PSI2R,R2NR,COL,NKR) +DO KR=1,NKR + PSI2(KR,ICE)=PSI2R(KR) +ENDDO + +RETURN +END SUBROUTINE JERDFUN_NEW + +!############################################################################## +Subroutine JERNEWF (NRX,NRM,RR,FI_OLD,PSI,RN,COL,NKR) + +IMPLICIT NONE + +INTEGER I,K,KM,NRXP,IM,IP,IFIN,IIN,NKR +REAL COL +DOUBLE PRECISION RNTMP,RRTMP,RRP,RRM,RNTMP2,RRTMP2,RRP2,RRM2, & + GN1,GN1P,GN2,GN3,GMAT2 + +DOUBLE PRECISION DRP,FNEW,FIK,PSINEW,DRM,GMAT,R1,R2,R3,RRI,RNK + +INTEGER NRX,NRM + +DOUBLE PRECISION RR(NRX),FI(NRX),PSI(NRX),RN(NRX) & + ,RRS(NKR+1),RNS(NKR+1),PSIN(NKR+1),FIN(NKR+1) + +DOUBLE PRECISION FI_OLD(NRX) +DOUBLE PRECISION PSI_IM,PSI_I,PSI_IP + +NRXP=NRX+1 + +DO K=1,NRX + FI(K)=FI_OLD(K) +ENDDO + +DO K=1,NRX + PSI(K)=0.0D0 +ENDDO + +IF(RN(NRX).NE.RR(NRX)) THEN +! Kovetz-Olund method (start) + IF(RN(1).GT.RR(1)) THEN !CONDENSATION + RNS(NRXP)=1024.0D0*RR(NRX) + RRS(NRXP)=1024.0D0*RR(NRX) + PSIN(NRXP)=0.0D0 + FIN(NRXP)=0.0D0 + + DO K=1,NRX + RNS(K)=RN(K) + RRS(K)=RR(K) + PSIN(K)=0.0D0 +! FIN(K) - initial(before condensation) concentration of hydrometeors + FIN(K)=3.0D0*FI(K)*RR(K)*COL + ENDDO + +! NUMBER OF NEW RADII POSITION IN REGULAR GRID +! RNK - new first bin mass(after condensation) + RNK=RNS(1) + + DO I=1,NRX + RRI=RRS(I) + IF(RRI.GT.RNK) EXIT + ENDDO + IIN=I-1 + + IFIN=NRX + + DO I=IIN,IFIN + IP=I+1 + IM=MAX(1,I-1) + + R1=RRS(IM) + R2=RRS(I) + R3=RRS(IP) + + DRM=R2-R1 + DRP=R3-R2 + + FNEW=0.0D0 + + DO K=1,I + FIK=FIN(K) + + IF(FIK.NE.0.0D0) THEN + KM=K-1 + +! RNK - new bin mass(after condensation) + RNK=RNS(K) + + IF(RNK.NE.R2) THEN + GMAT=0.0D0 + IF(RNK.GT.R1.AND.RNK.LT.R3) THEN + IF(RNK.LT.R2) THEN + GMAT=(RNK-R1)/DRM + ELSE + GMAT=(R3-RNK)/DRP + ENDIF + ENDIF + ELSE + GMAT=1.0D0 + ENDIF + + FNEW=FNEW+FIK*GMAT + ENDIF + ENDDO +! PSIN(I)) - new concentration of hydrometeors after condensation + PSIN(I)=FNEW + ENDDO +! PSI(K) - new size distribution function of hydrometeors after +! condensation, K=1,...,NRX=NKR + DO K=1,NRX + PSI(K)=PSIN(K)/3./RR(K)/COL + ENDDO + + ELSE !EVAPORATION + + RNS(1)=0.0D0 + RRS(1)=0.0D0 + FIN(1)=0.0D0 + PSIN(1)=0.0D0 + +! FIN(K) - initial(before evaporation) concentration of hydrometeors + DO K=2,NRXP + KM=K-1 + RNS(K)=RN(KM) + RRS(K)=RR(KM) + PSIN(K)=0.0D0 + FIN(K)=3.0D0*FI(KM)*RR(KM)*COL + ENDDO + + DO I=1,NRXP + IM=MAX(I-1,1) + IP=MIN(I+1,NRXP) + + R1=RRS(IP) + R2=RRS(I) + R3=RRS(IM) + + DRM=R1-R2 + DRP=R2-R3 + + FNEW=0.0D0 + + DO K=I,NRXP + RNK=RNS(K) + IF(RNK.GE.R1) EXIT + IF(RNK.GT.R3)THEN + IF(RNK.GT.R2) THEN + FNEW=FNEW+FIN(K)*(R1-RNK)/DRM + ELSE + FNEW=FNEW+FIN(K)*(RNK-R3)/DRP + ENDIF + ENDIF + ENDDO + +! PSIN(I) - new concentration of hydrometeors after evaporation + + PSIN(I)=FNEW + + ENDDO +! NEW VALUES OF DISTRIBUTION function (start) +! PSI(K), 1/g/cm^3 - new size distribution function of hydrometeors +! after evaporation, K=1,...,NRX + DO K=2,NRXP + KM=K-1 + R1=PSIN(K)*RR(KM) + PSINEW=PSIN(K)/3.0D0/RR(KM)/COL + IF(R1.LT.1.0D-20) PSINEW=0.0D0 + PSI(KM)=PSINEW + ENDDO + ENDIF !End if condensation or evaporation + + IF(I3POINT.NE.0) THEN + + DO K=1,NKR + RRS(K)=RR(K) + ENDDO + + RRS(NKR+1)=RRS(NKR)*1024.0D0 + + DO I=1,NKR + PSI(I)=PSI(I)*RR(I) +! PSI(I) - concenration hydrometeors after KO divided on COL*3.0D0 +! RN(I), g - new masses after condensation or evaporation + IF(RN(I).LT.0.0D0) THEN + RN(I)=1.0D-50 + FI(I)=0.0D0 + ENDIF + + ENDDO + + DO K=1,NKR + IF(FI(K).NE.0.0D0) THEN + IF(RRS(2).LT.RN(K)) THEN + I=2 + + DO WHILE (.NOT.(RRS(I).LT.RN(K).AND.RRS(I+1).GT.RN(K)) & + .AND.I.LT.NKR) + I=I+1 + ENDDO + IF(I.LT.NKR-2) THEN + RNTMP=RN(K) + RRTMP=RRS(I) + RRP=RRS(I+1) + RRM=RRS(I-1) + + RNTMP2=RN(K+1) + + RRTMP2=RRS(I+1) + RRP2=RRS(I+2) + RRM2=RRS(I) + + GN1=(RRP-RNTMP)*(RRTMP-RNTMP)/(RRP-RRM)/ & + (RRTMP-RRM) + + GN1P=(RRP2-RNTMP2)*(RRTMP2-RNTMP2)/ & + (RRP2-RRM2)/(RRTMP2-RRM2) + + GN2=(RRP-RNTMP)*(RNTMP-RRM)/(RRP-RRTMP)/ & + (RRTMP-RRM) + + GMAT=(RRP-RNTMP)/(RRP-RRTMP) + GN3=(RRTMP-RNTMP)*(RRM-RNTMP)/(RRP-RRM)/ & + (RRP-RRTMP) + GMAT2=(RNTMP-RRTMP)/(RRP-RRTMP) + + PSI_IM=PSI(I-1)+GN1*FI(K)*RR(K) + PSI_I=PSI(I)+(GN1P+GN2-GMAT)*FI(K+1)*RR(K+1) + PSI_IP=PSI(I+1)+(GN3-GMAT2)*FI(K)*RR(K) + + IF(PSI_IM.GT.0.0D0) THEN + IF(PSI_IP.GT.0.0D0) THEN + IF(I.GT.2) THEN +! smoothing criteria + IF(PSI_IM.GT.PSI(I-2).AND.PSI_IM.LT.PSI_I & + .AND.PSI(I-2).LT.PSI(I).OR.PSI(I-2) & + .GE.PSI(I)) THEN + + PSI(I-1)=PSI_IM + + PSI(I)=PSI(I)+FI(K)*RR(K)*(GN2-GMAT) + + PSI(I+1)=PSI_IP + ENDIF + ENDIF + ENDIF + ENDIF + ENDIF +!!! CCN generation from evaporation J.Fan Oct.2007 +! else ! RRS(2).GE.RN(K) +! ccnreg = ccnreg+fi(k)*3*col*rr(k) +! ccnreg = ccnreg+fi(k)*3*col*xccn(k) +!!! + ENDIF + ENDIF + ENDDO +! PSI(K) - new hydrometeor size distribution function + DO K=1,NKR + PSI(K)=PSI(K)/RR(K) + ENDDO + ENDIF !If using 3 point redistribution +ELSE !If droplet sizes haven't changed - don't need to do anything + DO K=1,NKR + PSI(K)=FI(K) + ENDDO +ENDIF + +RETURN +END SUBROUTINE JERNEWF + +!############################################################################## +Subroutine JERRATE (R1S,TP,PP,ROR,VR1,PSINGLE,RIEC,RO1BL & + ,B11_MY,B12_MY,ID,IN,ICEMAX,NKR) + +IMPLICIT NONE +INTEGER ID,IN,KR,ICE,NRM,ICEMAX,NKR +DOUBLE PRECISION TP,PP +REAL DETL,FACTPL,VENTPL,CONSTL,RVT,D_MY,CONST +REAL VR1(NKR,ID),PSINGLE & + ,R1S(NKR,ID),B11_MY(NKR,ID),B12_MY(NKR,ID) & + ,RO1BL(NKR,ID),RIEC(NKR,ID) & + ,FD1(NKR,ICEMAX),FK1(NKR,ICEMAX),FACTRL(NKR,ICEMAX) & + ,R11_MY(NKR,ICEMAX) & + ,R1_MY1(NKR,ICEMAX) & + ,AL1(2),AL1_MY(2),A1_MY(2),BB1_MY(2),ESAT1(2),CONSTLI(ICEMAX) +DOUBLE PRECISION TZERO +REAL PZERO,CF_MY,D_MYIN,RV_MY,DEG01,DEG03 +REAL COEFF_VISCOUS,SHMIDT_NUMBER,A,B +REAL REINOLDS_NUMBER,RESHM,ROR +PARAMETER (TZERO=273.150,PZERO=1.013E6) +DATA AL1/2500.,2833./ + +DEG01=1./3. +DEG03=1./3. +CONST=12.566372 !4*pi +AL1_MY(1)=2.5E10 +AL1_MY(2)=2.834E10 +A1_MY(1)=2.53E12 +A1_MY(2)=3.41E13 +BB1_MY(1)=5.42E3 +BB1_MY(2)=6.13E3 +CF_MY=2.4E3 +D_MYIN=0.221 +RV_MY=461.5E4 +NRM=NKR-1 +! rhs for "maxwell" equation +! coefficient of diffusion +D_MY=D_MYIN*(PZERO/PP)*(TP/TZERO)**1.94 +! coefficient of viscousity +COEFF_VISCOUS=1.72E-2*SQRT(TP/273.)*393./(TP-120.)/ROR +! Shmidt number +SHMIDT_NUMBER=COEFF_VISCOUS/D_MY +! Constants used for calculation of Reynolds number +A=2.*(3./4./3.141593)**DEG01 +B=A/COEFF_VISCOUS + +RVT=RV_MY*TP +ESAT1(IN)=A1_MY(IN)*EXP(-BB1_MY(IN)/TP) +DO ICE=1,ID + DO KR=1,NKR +! Reynolds numbers + REINOLDS_NUMBER=B*VR1(KR,ICE)*SQRT(1.E6/PSINGLE)* & + (R1S(KR,ICE)/RO1BL(KR,ICE))**DEG03 + RESHM=SQRT(REINOLDS_NUMBER)*SHMIDT_NUMBER**DEG03 + !Adele - see P&K Ch. 13 + IF(REINOLDS_NUMBER.LT.2.5) THEN + VENTPL=1.+0.108*RESHM*RESHM + ELSE + VENTPL=0.78+0.308*RESHM + ENDIF + CONSTL=CONST*RIEC(KR,ICE) + CONSTLI(ICE)=CONSTL + FACTPL=1. + FACTRL(KR,ICE)=FACTPL + FD1(KR,ICE)=RVT/D_MY/ESAT1(IN)/FACTPL + FK1(KR,ICE)=(AL1_MY(IN)/RVT-1.)*AL1_MY(IN)/CF_MY/TP + R1_MY1(KR,ICE)=VENTPL*CONSTL + R11_MY(KR,ICE)=R1_MY1(KR,ICE) +! growth rate + DETL=FK1(KR,ICE)+FD1(KR,ICE) + B11_MY(KR,ICE)=R11_MY(KR,ICE)/DETL + B12_MY(KR,ICE)=0. + ENDDO +ENDDO + +RETURN +END SUBROUTINE JERRATE + +!############################################################################## +Subroutine JERSUPSAT (DEL1,DEL2,DEL1N,DEL2N & + ,RW,PW,RI,PI,QW,QI & + ,DT,DEL1INT,DEL2INT,DT0L,DT0I) + +IMPLICIT NONE +REAL DEL1,DEL2,RW,PW,RI,PI,QW,QI, & + DT,DEL1INT,DEL2INT,DT0L,DT0I,DTLIN,DTIIN +REAL DETER,ALFAMX,ALFAPX, & + R1RES,R2RES,R1,R2,R3,R4,R21,R11,R10,R41,R31,R30 +DOUBLE PRECISION DEL1N,DEL2N +DOUBLE PRECISION DEL1N_2P,DEL1INT_2P,DEL2N_2P,DEL2INT_2P +DOUBLE PRECISION EXPP_2P,EXPM_2P,ARGEXP +DOUBLE PRECISION RW_DP,PW_DP,PI_DP,RI_DP,X_DP,ALFA_DP +DTLIN=1000.E17 +DTIIN=1000.E17 +DETER=RW*PI-PW*RI + +IF(DETER.EQ.0) THEN + IF(RW.EQ.0.AND.RI.EQ.0) THEN ! WITHOUT WATER & ICE + DEL1N_2P=DEL1 + DEL2N_2P=DEL2 + DEL1INT_2P=DEL1*DT + DEL2INT_2P=DEL2*DT + ELSE ! (WATER OR ICE) + IF(RW.NE.0) THEN ! ONLY WATER + ARGEXP=-RW*DT + DEL1N_2P=DEL1*DEXP(ARGEXP)+QW*(1.-DEXP(ARGEXP)) + DEL1INT_2P=(DEL1-DEL1N_2P)/RW + DEL2N_2P=DEL2-PW*DEL1INT_2P + DEL2INT_2P= & + (DEL2N_2P-PW*DEL1N_2P/RW)*DT+PW*DEL1INT_2P/RW + ELSE ! ONLY ICE + ARGEXP=-PI*DT + DEL2N_2P=DEL2*DEXP(ARGEXP)+QI*(1.-DEXP(ARGEXP)) + DEL2INT_2P=(DEL2-DEL2N_2P)/PI + DEL1N_2P=DEL1-RI*DEL2INT_2P + DEL1INT_2P= (DEL1N_2P-RI*DEL2N_2P/PI)*DT+RI*DEL2INT_2P/PI + ENDIF + ENDIF +ELSE ! IN CASE: DETER.NE.0 ! COMPLETE SOLUTION + RW_DP=RW + RI_DP=RI + PI_DP=PI + PW_DP=PW + IF (RW.LE.0)PRINT*,'RW = ',RW + IF (PW.LE.0)PRINT*,'PW = ',PW + IF (RI.LE.0)PRINT*,'RI = ',RI + IF (PI.LE.0)PRINT*,'PI = ',PI,DEL1,DEL2,QW,QI + IF (RW.LE.0 .OR. PW.LE.0 .OR. RI.LE.0 .OR. PI.LE.0)STOP + ALFA_DP=SQRT((RW_DP-PI_DP)*(RW_DP-PI_DP)+4.*PW_DP*RI_DP) + X_DP=RW_DP+PI_DP + ALFAPX=.5*(ALFA_DP+X_DP) + IF (ALFAPX.LE.0)PRINT*,'ALFAPX=',ALFAPX + IF (ALFAPX.LE.0)STOP + ALFAMX=.5*(ALFA_DP-X_DP) + + ARGEXP=-ALFAPX*DT + EXPP_2P=DEXP(ARGEXP) + ARGEXP=ALFAMX*DT + EXPM_2P=DEXP(ARGEXP) +! DROPLETS + R10=RW*DEL1+RI*DEL2 + R11=R10-ALFAPX*DEL1 + R21=R10+ALFAMX*DEL1 + DEL1N_2P=(R21*EXPP_2P-R11*EXPM_2P)/ALFA_DP + IF(ALFAMX.NE.0) THEN + R1=-R11/ALFAMX + R2=R21/ALFAPX + DEL1INT_2P=(R1*(EXPM_2P-1.)-R2*(EXPP_2P-1.))/ALFA_DP + ELSE + DEL1INT_2P = 0. + ENDIF + + R1RES=0. + IF(R11.NE.0) R1RES=R21/R11 + IF(R1RES.GT.0) DTLIN=ALOG(R1RES)/ALFA_DP +! ICE + R30=PW*DEL1+PI*DEL2 + R31=R30-ALFAPX*DEL2 + R41=R30+ALFAMX*DEL2 + + DEL2N_2P=(R41*EXPP_2P-R31*EXPM_2P)/ALFA_DP + IF(ALFAMX.NE.0.AND.ALFAPX.NE.0) THEN + R3=-R31/ALFAMX + R4=R41/ALFAPX + DEL2INT_2P=(R3*(EXPM_2P-1.)-R4*(EXPP_2P-1.))/ALFA_DP + ELSE + DEL2INT_2P=0. + ENDIF + R2RES=0. + IF(R31.NE.0) R2RES=R41/R31 + IF(R2RES.GT.0) DTIIN=ALOG(R2RES)/ALFA_DP +! END OF COMPLETE SOLUTION +ENDIF +DEL1N=DEL1N_2P +DEL2N=DEL2N_2P + +DEL1INT=DEL1INT_2P +DEL2INT=DEL2INT_2P +DT0L=DTLIN +IF(DT0L.LT.0) DT0L=1.E20 +DT0I=DTIIN +IF(DT0I.LT.0) DT0I=1.E20 + +RETURN +END SUBROUTINE JERSUPSAT + +!############################################################################## +Subroutine JERTIMESC (FI1,X1,SFN11,SFN12 & + ,B11_MY,B12_MY,CF,ID,COL,NKR) + +IMPLICIT NONE +INTEGER NRM,KR,ICE,ID,NKR +REAL B12,B11,FUN,DELM,FK,CF,SFN12S,SFN11S +REAL COL,X1(NKR,ID),FI1(NKR,ID),B11_MY(NKR,ID),B12_MY(NKR,ID) & + ,SFN11,SFN12 + +NRM=NKR-1 +DO ICE=1,ID + SFN11S=0. + SFN12S=0. + SFN11=CF*SFN11S + SFN12=CF*SFN12S + DO KR=1,NRM +! VALUE OF DISTRIBUTION function + FK=FI1(KR,ICE) + DELM=X1(KR,ICE)*3.*COL +! INTEGRAL'S EXPRESSION + FUN=FK*DELM +! VALUES OF INTEGRALS + B11=B11_MY(KR,ICE) + B12=B12_MY(KR,ICE) + SFN11S=SFN11S+FUN*B11 + SFN12S=SFN12S+FUN*B12 + ENDDO + SFN11=CF*SFN11S + SFN12=CF*SFN12S +ENDDO + +RETURN +END SUBROUTINE JERTIMESC + +!############################################################################## +Subroutine JERTIMESC_ICE (FI1,X1,SFN11,SFN12 & + ,B11_MY,B12_MY,CF,ID,COL,NKR) + +IMPLICIT NONE +INTEGER NRM,KR,ICE,ID,NKR +REAL B12,B11,FUN,DELM,FK,CF,SFN12S,SFN11S +REAL COL,X1(NKR,ID),FI1(NKR,ID),B11_MY(NKR,ID),B12_MY(NKR,ID) & + ,SFN11(ID),SFN12(ID) + +NRM=NKR-1 +DO ICE=1,ID + SFN11S=0. + SFN12S=0. + SFN11(ICE)=CF*SFN11S + SFN12(ICE)=CF*SFN12S + DO KR=1,NRM +! VALUE OF DISTRIBUTION function + FK=FI1(KR,ICE) + DELM=X1(KR,ICE)*3.*COL +! INTEGRAL'S EXPRESSION + FUN=FK*DELM +! VALUES OF INTEGRALS + B11=B11_MY(KR,ICE) + B12=B12_MY(KR,ICE) + SFN11S=SFN11S+FUN*B11 + SFN12S=SFN12S+FUN*B12 + ENDDO + SFN11(ICE)=CF*SFN11S + SFN12(ICE)=CF*SFN12S +ENDDO + +RETURN +END SUBROUTINE JERTIMESC_ICE + +!############################################################################## +Subroutine ONECOND2 (TT,QQ,PP,ROR & +,VR2,VR3,VR4,VR5,PSINGLE & +,DEL1N,DEL2N,DIV1,DIV2 & +,FF2,PSI2,R2,RIEC,RO2BL & +,FF3,PSI3,R3,RSEC,RO3BL & +,FF4,PSI4,R4,RGEC,RO4BL & +,FF5,PSI5,R5,RHEC,RO5BL & +,AA1_MY,BB1_MY,AA2_MY,BB2_MY & +,COL,DTCOND,ICEMAX,NKR & +,ISYM2,ISYM3,ISYM4,ISYM5) + +IMPLICIT NONE +INTEGER NKR,ICEMAX +REAL VR2(NKR,ICEMAX),VR3(NKR),VR4(NKR) & + ,VR5(NKR),PSINGLE & + ,AA1_MY,BB1_MY,AA2_MY,BB2_MY & + ,FI1_K,FI2_K,FI3_K,FI4_K,FI5_K & + ,R1_K,R2_K,R3_K,R4_K,R5_K & + ,DTCOND,COL +INTEGER KR,ICE,ITIME,ICM,KCOND,NR,NRM, & + ISYM2,ISYM3,ISYM4,ISYM5 +REAL AL1,AL2,D,GAM,POD, & + RV_MY,CF_MY,D_MYIN,AL1_MY,AL2_MY,DT0LREF,DTLREF, & + A1_MYN, BB1_MYN, A2_MYN, BB2_MYN,DT,DTT,XRAD, & + TPC1, TPC2, TPC3, TPC4, TPC5, & + EPSDEL, DT0L, DT0I,ROR,CWHUCM,B6,B8L,B8I, & + DEL1,DEL2,DEL1S,DEL2S,TIMENEW,TIMEREV, & + SFNL,SFNI,B5L,B5I,B7L,B7I,DOPL,DOPI,OPERQ,RW,RI,QW,PW, & + PI,QI,DTNEWL,D1N,D2N,DT0L0,DT0I0,SFN31,SFN32,SFN52, & + SFNII1,SFN21,SFN22,DTNEWI3,DTNEWI4,DTNEWI5,DTNEWI2_1, & + DTNEWI2_2,DTNEWI1,SFN41,SFN42,DTNEWI2_3,DTNEWI2, & + SFN51,SFNII2 +REAL DT_WATER_COND,DT_WATER_EVAP,DT_ICE_COND,DT_ICE_EVAP, & + DT_MIX_COND,DT_MIX_EVAP,DT_MIX_BERGERON,DT_MIX_ANTIBERGERON +INTEGER K +DOUBLE PRECISION DAL2 +DOUBLE PRECISION RORI,TPN,TPS,QPN,QPS & + ,FI2R2,FI3R3,FI4R4,FI5R5 & + ,RMASSIAA,RMASSIBB & + ,ES1N,ES2N,EW1N,ARGEXP & + ,TT,QQ,PP & + ,DEL1N,DEL2N,DIV1,DIV2 & + ,OPER2,OPER3,AR1,AR2 +DOUBLE PRECISION DELMASSI1 +! CRYSTALS + +REAL R2(NKR,ICEMAX),RIEC(NKR,ICEMAX),RO2BL(NKR,ICEMAX) & + ,FI2(NKR,ICEMAX),PSI2(NKR,ICEMAX),FF2(NKR,ICEMAX) & + ,B21_MY(NKR,ICEMAX),B22_MY(NKR,ICEMAX) +! SNOW +REAL R3(NKR),RSEC(NKR),RO3BL(NKR) & + ,FI3(NKR),FF3(NKR),PSI3(NKR) & + ,B31_MY(NKR),B32_MY(NKR) + +! GRAUPELS +REAL R4(NKR),RGEC(NKR),RO4BL(NKR) & + ,FI4(NKR),FF4(NKR),PSI4(NKR) & + ,B41_MY(NKR),B42_MY(NKR) + +! HAIL +REAL R5(NKR),RHEC(NKR),RO5BL(NKR) & + ,FI5(NKR),FF5(NKR),PSI5(NKR) & + ,B51_MY(NKR),B52_MY(NKR) + +REAL DEL2D(ICEMAX),SFNI1(ICEMAX),SFNI2(ICEMAX) & + ,TIMESTEPD(NKR) + +! For IN regeneration +real totin_before, totin_after + +OPER2(AR1)=0.622/(0.622+0.378*AR1)/AR1 +OPER3(AR1,AR2)=AR1*AR2/(0.622+0.378*AR1) + +DATA AL1 /2500./, AL2 /2834./, D /0.211/ & + ,GAM /1.E-4/, POD /10./ + +DATA RV_MY,CF_MY,D_MYIN,AL1_MY,AL2_MY & + /461.5,0.24E-1,0.211E-4,2.5E6,2.834E6/ + +DATA A1_MYN, BB1_MYN, A2_MYN, BB2_MYN & + /2.53,5.42,3.41E1,6.13/ + +DATA TPC1, TPC2, TPC3, TPC4, TPC5 & + /-4.0,-8.1,-12.7,-17.8,-22.4/ + +DATA EPSDEL/0.1E-03/ + +DATA DT0L, DT0I /1.E20,1.E20/ + +! SOME CONSTANTS +COL3=3.0*COL +ICM=ICEMAX +ITIME=0 +KCOND=0 +DT_WATER_COND=0.4 +DT_WATER_EVAP=0.4 +DT_ICE_COND=0.4 +DT_ICE_EVAP=0.4 +DT_MIX_COND=0.4 +DT_MIX_EVAP=0.4 +DT_MIX_BERGERON=0.4 +DT_MIX_ANTIBERGERON=0.4 +DT0LREF=0.2 +DTLREF=0.4 + +NR=NKR +NRM=NKR-1 +DT=DTCOND +DTT=DTCOND +XRAD=0. + +CWHUCM=0. +XRAD=0. +B6=CWHUCM*GAM-XRAD +B8L=1./ROR +B8I=1./ROR +RORI=1./ROR + +TPN=TT +QPN=QQ + +DO ICE=1,ICEMAX + SFNI1(ICE)=0. + SFNI2(ICE)=0. + DEL2D(ICE)=0. +ENDDO + +TIMENEW=0. +ITIME=0 +! IN regeneration: calculate the total ice particles before cond - J. Fan +totin_before = 0.0 +do kr = 1, nkr + totin_before = totin_before+psi2(kr,1)*r2(kr,1)*col3 & + +psi2(kr,2)*r2(kr,2)*col3 & + +psi2(kr,3)*r2(kr,3)*col3 & + +psi3(kr)*r3(kr)*col3 & + +psi4(kr)*r4(kr)*col3 & + +psi5(kr)*r5(kr)*col3 +enddo + +!-----------Start small time step loop---------------------------- +46 ITIME=ITIME+1 + + TIMEREV=DT-TIMENEW + + DEL1=DEL1N + DEL2=DEL2N + DEL1S=DEL1N + DEL2S=DEL2N + DEL2D(1)=DEL2N + DEL2D(2)=DEL2N + DEL2D(3)=DEL2N + TPS=TPN + QPS=QPN + DO KR=1,NKR + FI3(KR)=PSI3(KR) + FI4(KR)=PSI4(KR) + FI5(KR)=PSI5(KR) + DO ICE=1,ICEMAX + FI2(KR,ICE)=PSI2(KR,ICE) + ENDDO + ENDDO +! TIME-STEP GROWTH RATE: + CALL JERRATE (R2,TPS,PP,ROR,VR2,PSINGLE & + ,RIEC,RO2BL,B21_MY,B22_MY,3,2,ICEMAX,NKR) + CALL JERRATE (R3,TPS,PP,ROR,VR3,PSINGLE & + ,RSEC,RO3BL,B31_MY,B32_MY,1,2,ICEMAX,NKR) + CALL JERRATE (R4,TPS,PP,ROR,VR4,PSINGLE & + ,RGEC,RO4BL,B41_MY,B42_MY,1,2,ICEMAX,NKR) + CALL JERRATE (R5,TPS,PP,ROR,VR5,PSINGLE & + ,RHEC,RO5BL,B51_MY,B52_MY,1,2,ICEMAX,NKR) + +! INTEGRALS IN DELTA EQUATION + + CALL JERTIMESC_ICE (FI2,R2,SFNI1,SFNI2,B21_MY,B22_MY,B8I,ICM,COL,NKR) + CALL JERTIMESC (FI3,R3,SFN31,SFN32,B31_MY,B32_MY,B8I,1,COL,NKR) + CALL JERTIMESC (FI4,R4,SFN41,SFN42,B41_MY,B42_MY,B8I,1,COL,NKR) + CALL JERTIMESC (FI5,R5,SFN51,SFN52,B51_MY,B52_MY,B8I,1,COL,NKR) + SFNII1=SFNI1(1)+SFNI1(2)+SFNI1(3) + SFNII2=SFNI2(1)+SFNI2(2)+SFNI2(3) + SFN21=SFNII1+SFN31+SFN41+SFN51 + SFN22=SFNII2+SFN32+SFN42+SFN52 + SFNL=0. + SFNI=SFN21+SFN22 +! SOME CONSTANTS + B5L=BB1_MY/TPS/TPS + B5I=BB2_MY/TPS/TPS + B7L=B5L*B6 + B7I=B5I*B6 + DOPL=1.+DEL1S + DOPI=1.+DEL2S + OPERQ=OPER2(QPS) + RW=(OPERQ+B5L*AL1)*DOPL*SFNL + QW=B7L*DOPL + PW=(OPERQ+B5I*AL1)*DOPI*SFNL + RI=(OPERQ+B5L*AL2)*DOPL*SFNI + PI=(OPERQ+B5I*AL2)*DOPI*SFNI + QI=B7I*DOPI + KCOND=20 + + IF(DEL2.GT.0) KCOND=21 + + IF(KCOND.EQ.21) THEN ! ONLY_ICE: CONDENSATION + DT0I=1.E20 + DTNEWI1=DTCOND + DTNEWL=DTNEWI1 + IF(ITIME.GE.NKR) THEN + PRINT *, 'ONLY_ICE: CONDENSATION' + STOP + ENDIF + TIMESTEPD(ITIME)=DTNEWL +! NEW TIME STEP (ONLY_ICE: CONDENSATION) + IF(DTNEWL.GT.DT) DTNEWL=DT + IF((TIMENEW+DTNEWL).GT.DT.AND.ITIME.LT.(NKR-1)) & + DTNEWL=DT-TIMENEW + IF(ITIME.EQ.(NKR-1)) DTNEWL=DT-TIMENEW + TIMESTEPD(ITIME)=DTNEWL + TIMENEW=TIMENEW+DTNEWL + DTT=DTNEWL + +! SOLVING FOR SUPERSATURATION (ONLY ICE: CONDENSATION) + CALL JERSUPSAT (DEL1,DEL2,DEL1N,DEL2N & + ,RW,PW,RI,PI,QW,QI & + ,DTT,D1N,D2N,DT0L0,DT0I0) + + IF(ISYM2.NE.0) THEN + CALL JERDFUN (R2,B21_MY,B22_MY & + ,FI2,PSI2,D2N & + ,ICM,1,COL,NKR) + + CALL JERDFUN (R2,B21_MY,B22_MY & + ,FI2,PSI2,D2N & + ,ICM,2,COL,NKR) + + CALL JERDFUN (R2,B21_MY,B22_MY & + ,FI2,PSI2,D2N & + ,ICM,3,COL,NKR) + ENDIF + IF(ISYM3.NE.0) THEN !Snow + CALL JERDFUN (R3,B31_MY,B32_MY & + ,FI3,PSI3,D2N & + ,1,4,COL,NKR) + ENDIF + IF(ISYM4.NE.0) THEN !Graupel + CALL JERDFUN (R4,B41_MY,B42_MY & + ,FI4,PSI4,D2N & + ,1,4,COL,NKR) + ENDIF + IF(ISYM5.NE.0) THEN !Hail + CALL JERDFUN (R5,B51_MY,B52_MY & + ,FI5,PSI5,D2N & + ,1,5,COL,NKR) + ENDIF + ELSE + DT0I=1.E20 + IF (DEL2N.EQ.0)THEN + DTNEWL=DT + ELSE + DTNEWI3=-R3(3)/(B31_MY(3)*DEL2N-B32_MY(3)) + DTNEWI4=-R4(3)/(B41_MY(3)*DEL2N-B42_MY(3)) + DTNEWI5=-R5(3)/(B51_MY(3)*DEL2N-B52_MY(3)) + DTNEWI2_1=-R2(3,1)/(B21_MY(1,1)*DEL2N-B22_MY(1,1)) + DTNEWI2_2=-R2(3,2)/(B21_MY(1,2)*DEL2N-B22_MY(1,2)) + DTNEWI2_3=-R2(3,3)/(B21_MY(1,3)*DEL2N-B22_MY(1,3)) + DTNEWI2=AMIN1(DTNEWI2_1,DTNEWI2_2,DTNEWI2_3) + DTNEWI1=AMIN1(DTNEWI2,DTNEWI3,DTNEWI4 & + ,DTNEWI5,DT0I,TIMEREV) + DTNEWI1=AMIN1(DTNEWI2,DTNEWI4,DTNEWI5,DT0I,TIMEREV) + DTNEWL=DTNEWI1 + IF(DTNEWL.LT.DTLREF) DTNEWL=AMIN1(DTLREF,TIMEREV) + END IF + IF(ITIME.GE.NKR) THEN + PRINT *, 'ONLY_ICE: EVAPORATION' + STOP + ENDIF + TIMESTEPD(ITIME)=DTNEWL + + IF(DTNEWL.GT.DT) DTNEWL=DT + IF((TIMENEW+DTNEWL).GT.DT.AND.ITIME.LT.(NKR-1)) & + DTNEWL=DT-TIMENEW + IF(ITIME.EQ.(NKR-1)) DTNEWL=DT-TIMENEW + TIMENEW=TIMENEW+DTNEWL + TIMESTEPD(ITIME)=DTNEWL + DTT=DTNEWL +! SOLVING FOR SUPERSATURATION (ONLY_ICE: EVAPORATION) + CALL JERSUPSAT (DEL1,DEL2,DEL1N,DEL2N & + ,RW,PW,RI,PI,QW,QI & + ,DTT,D1N,D2N,DT0L0,DT0I0) + IF(ISYM2.NE.0) THEN !CRYSTALS + CALL JERDFUN (R2,B21_MY,B22_MY & + ,FI2,PSI2,D2N & + ,ICM,1,COL,NKR) + + CALL JERDFUN (R2,B21_MY,B22_MY & + ,FI2,PSI2,D2N & + ,ICM,2,COL,NKR) + + CALL JERDFUN (R2,B21_MY,B22_MY & + ,FI2,PSI2,D2N & + ,ICM,3,COL,NKR) + ENDIF + IF(ISYM3.NE.0) THEN !SNOW + CALL JERDFUN (R3,B31_MY,B32_MY & + ,FI3,PSI3,D2N & + ,1,3,COL,NKR) + ENDIF + IF(ISYM4.NE.0) THEN !GRAUPEL + CALL JERDFUN (R4,B41_MY,B42_MY & + ,FI4,PSI4,D2N & + ,1,4,COL,NKR) + ENDIF + IF(ISYM5.NE.0) THEN !HAIL + CALL JERDFUN (R5,B51_MY,B52_MY & + ,FI5,PSI5,D2N & + ,1,5,COL,NKR) + ENDIF + ENDIF + +! MASSES + RMASSIBB=0.0 + RMASSIAA=0.0 +! BEFORE JERNEWF + DO K=1,NKR + DO ICE =1,ICEMAX + FI2_K=FI2(K,ICE) + R2_K=R2(K,ICE) + FI2R2=FI2_K*R2_K*R2_K + RMASSIBB=RMASSIBB+FI2R2 + ENDDO + FI3_K=FI3(K) + FI4_K=FI4(K) + FI5_K=FI5(K) + R3_K=R3(K) + R4_K=R4(K) + R5_K=R5(K) + FI3R3=FI3_K*R3_K*R3_K + FI4R4=FI4_K*R4_K*R4_K + FI5R5=FI5_K*R5_K*R5_K + RMASSIBB=RMASSIBB+FI3R3 + RMASSIBB=RMASSIBB+FI4R4 + RMASSIBB=RMASSIBB+FI5R5 + ENDDO + RMASSIBB=RMASSIBB*COL3*RORI + IF(RMASSIBB.LT.0.0) RMASSIBB=0.0 + DO K=1,NKR + DO ICE =1,ICEMAX + FI2_K=PSI2(K,ICE) + R2_K=R2(K,ICE) + FI2R2=FI2_K*R2_K*R2_K + RMASSIAA=RMASSIAA+FI2R2 + ENDDO + FI3_K=PSI3(K) + FI4_K=PSI4(K) + FI5_K=PSI5(K) + R3_K=R3(K) + R4_K=R4(K) + R5_K=R5(K) + FI3R3=FI3_K*R3_K*R3_K + FI4R4=FI4_K*R4_K*R4_K + FI5R5=FI5_K*R5_K*R5_K + RMASSIAA=RMASSIAA+FI3R3 + RMASSIAA=RMASSIAA+FI4R4 + RMASSIAA=RMASSIAA+FI5R5 + ENDDO + RMASSIAA=RMASSIAA*COL3*RORI + IF(RMASSIAA.LT.0.0) RMASSIAA=0.0 + DELMASSI1=RMASSIAA-RMASSIBB + QPN=QPS-DELMASSI1 + DAL2=AL2 + TPN=TPS+DAL2*DELMASSI1 +! SUPERSATURATION + ARGEXP=-BB1_MY/TPN + ES1N=AA1_MY*DEXP(ARGEXP) + ARGEXP=-BB2_MY/TPN + ES2N=AA2_MY*DEXP(ARGEXP) + EW1N=OPER3(QPN,PP) + IF(ES1N.EQ.0)THEN + DEL1N=0.5 + DIV1=1.5 + print*,'es1n onecond2 = 0' + stop + ELSE + DIV1=EW1N/ES1N + DEL1N=EW1N/ES1N-1. + END IF + IF(ES2N.EQ.0)THEN + DEL2N=0.5 + DIV2=1.5 + print*,'es2n onecond2 = 0' + stop + ELSE + DEL2N=EW1N/ES2N-1. + DIV2=EW1N/ES2N + END IF + +! END OF TIME SPLITTING +IF(TIMENEW.LT.DT) GOTO 46 + +! IN regeneration: calculate the total ice particles after cond - J. Fan +totin_after = 0.0 +do kr = 1, nkr +totin_after = totin_after+psi2(kr,1)*r2(kr,1)*3.*col & + +psi2(kr,2)*r2(kr,2)*3.*col & + +psi2(kr,3)*r2(kr,3)*3.*col & + +psi3(kr)*r3(kr)*3.*col & + +psi4(kr)*r4(kr)*3.*col & + +psi5(kr)*r5(kr)*3.*col +enddo +inreg = max((totin_before - totin_after),0.0) + +TT=TPN +QQ=QPN +DO KR=1,NKR + DO ICE=1,ICEMAX + FF2(KR,ICE)=PSI2(KR,ICE) + ENDDO + FF3(KR)=PSI3(KR) + FF4(KR)=PSI4(KR) + FF5(KR)=PSI5(KR) +ENDDO + +RETURN +END SUBROUTINE ONECOND2 + +!############################################################################## +Subroutine ONECOND3 (TT,QQ,PP,ROR & +,VR1,VR2,VR3,VR4,VR5,PSINGLE & +,DEL1N,DEL2N,DIV1,DIV2 & +,FF1,PSI1,R1,RLEC,RO1BL & +,FF2,PSI2,R2,RIEC,RO2BL & +,FF3,PSI3,R3,RSEC,RO3BL & +,FF4,PSI4,R4,RGEC,RO4BL & +,FF5,PSI5,R5,RHEC,RO5BL & +,AA1_MY,BB1_MY,AA2_MY,BB2_MY & +,COL,DTCOND,ICEMAX,NKR & +,ISYM1,ISYM2,ISYM3,ISYM4,ISYM5) + +IMPLICIT NONE +INTEGER NKR,KR,ITIME,ICE,KCOND,K,ICEMAX & + ,ISYM1,ISYM2,ISYM3,ISYM4,ISYM5 +INTEGER KLIMITL,KLIMITG,KLIMITH,KLIMITI_1,KLIMITI_2,KLIMITI_3 +REAL ROR,VR1(NKR),VR2(NKR,ICEMAX),VR3(NKR),VR4(NKR) & + ,VR5(NKR),PSINGLE,AA1_MY,BB1_MY,AA2_MY,BB2_MY & + ,DTCOND,COL + +! DROPLETS +REAL R1(NKR),RLEC(NKR),RO1BL(NKR) & + ,FI1(NKR),FF1(NKR),PSI1(NKR) & + ,B11_MY(NKR),B12_MY(NKR) + +! CRYSTALS +REAL R2(NKR,ICEMAX) & + ,RIEC(NKR,ICEMAX) & + ,RO2BL(NKR,ICEMAX) & + ,FI2(NKR,ICEMAX),PSI2(NKR,ICEMAX) & + ,FF2(NKR,ICEMAX) & + ,B21_MY(NKR,ICEMAX),B22_MY(NKR,ICEMAX) + +! SNOW +REAL R3(NKR) & + ,RSEC(NKR),RO3BL(NKR) & + ,FI3(NKR),FF3(NKR),PSI3(NKR) & + ,B31_MY(NKR),B32_MY(NKR) + +! GRAUPELS +REAL R4(NKR) & + ,RGEC(NKR),RO4BL(NKR) & + ,FI4(NKR),FF4(NKR),PSI4(NKR) & + ,B41_MY(NKR),B42_MY(NKR) + +! HAIL +REAL R5(NKR) & + ,RHEC(NKR),RO5BL(NKR) & + ,FI5(NKR),FF5(NKR),PSI5(NKR) & + ,B51_MY(NKR),B52_MY(NKR) + +DOUBLE PRECISION DAL1,DAL2 +DOUBLE PRECISION RORI,TPN,TPS,QPN,QPS & + ,FI1R1,FI2R2,FI3R3,FI4R4,FI5R5 & + ,FI1_K,FI2_K,FI3_K,FI4_K,FI5_K & + ,R1_K,R2_K,R3_K,R4_K,R5_K & + ,RMASSLAA,RMASSLBB,RMASSIAA,RMASSIBB & + ,ES1N,ES2N,EW1N,ARGEXP & + ,TT,QQ,PP,DEL1N0,DEL2N0 & + ,DEL1N,DEL2N,DIV1,DIV2 & + ,OPER2,OPER3,AR1,AR2 + +DOUBLE PRECISION DELTAQ1,DELMASSI1,DELMASSL1 + +REAL A1_MYN, BB1_MYN, A2_MYN, BB2_MYN +DATA A1_MYN, BB1_MYN, A2_MYN, BB2_MYN & + /2.53,5.42,3.41E1,6.13/ +REAL B8L,B8I,SFN11,SFN12,SFNL,SFNI +REAL B5L,B5I,B7L,B7I,B6,DOPL,DEL1S,DEL2S,DOPI,RW,QW,PW, & + RI,PI,QI,SFNI1(ICEMAX),SFNI2(ICEMAX),AL1,AL2 +REAL D1N,D2N,DT0L, DT0I,D1N0,D2N0 +REAL SFN21,SFN22,SFNII1,SFNII2,SFN31,SFN32,SFN41,SFN42,SFN51,SFN52 +REAL DEL1,DEL2 +REAL TIMEREV,DT,DTT,TIMENEW +REAL DTIMEG(NKR),DTIMEH(NKR) + +REAL DEL2D(ICEMAX),DTIMEL(NKR) & + ,DTIMEI_1(NKR),DTIMEI_2(NKR),DTIMEI_3(NKR) +REAL DT_WATER_COND,DT_WATER_EVAP,DT_ICE_COND,DT_ICE_EVAP, & + DT_MIX_COND,DT_MIX_EVAP,DT_MIX_BERGERON,DT_MIX_ANTIBERGERON +REAL DTNEWL0,DTNEWL1,DTNEWI1,DTNEWI2_1,DTNEWI2_2,DTNEWI2_3, & +DTNEWI2,DTNEWI3,DTNEWI4,DTNEWI5, & +DTNEWL,DTNEWL2,DTNEWG1,DTNEWH1 +REAL TIMESTEPD(NKR) + +! CCN/IN regeneration +real totccn_before, totccn_after, totin_before, totin_after + +DATA AL1 /2500./, AL2 /2834./ +REAL EPSDEL,EPSDEL2 +DATA EPSDEL, EPSDEL2 /0.1E-03,0.1E-03/ +OPER2(AR1)=0.622/(0.622+0.378*AR1)/AR1 +OPER3(AR1,AR2)=AR1*AR2/(0.622+0.378*AR1) + +DT_WATER_COND=0.4 +DT_WATER_EVAP=0.4 +DT_ICE_COND=0.4 +DT_ICE_EVAP=0.4 +DT_MIX_COND=0.4 +DT_MIX_EVAP=0.4 +DT_MIX_BERGERON=0.4 +DT_MIX_ANTIBERGERON=0.4 + +ITIME = 0 +TIMENEW=0. +DT=DTCOND +DTT=DTCOND + +B6=0. +B8L=1./ROR +B8I=1./ROR +RORI=1.D0/ROR +TPN=TT +QPN=QQ +! Calculate total CCN and IN before cond - J. Fan +totccn_before = 0.0 +totin_before = 0.0 +do kr = 1, nkr + totccn_before = totccn_before+psi1(kr)*r1(kr)*col3 + totin_before = totin_before+psi2(kr,1)*r2(kr,1)*col3 & + +psi2(kr,2)*r2(kr,2)*col3 & + +psi2(kr,3)*r2(kr,3)*col3 & + +psi3(kr)*r3(kr)*col3 & + +psi4(kr)*r4(kr)*col3 & + +psi5(kr)*r5(kr)*col3 +enddo + +!-------------Time-splitting Loop begins here----------------------- +16 ITIME=ITIME+1 + IF((TPN-273.15).GE.-0.187) GO TO 17 + TIMEREV=DT-TIMENEW + DEL1=DEL1N + DEL2=DEL2N + DEL1S=DEL1N + DEL2S=DEL2N +! NEW ALGORITHM (NO TYPE ICE) + DEL2D(1)=DEL2N + DEL2D(2)=DEL2N + DEL2D(3)=DEL2N + TPS=TPN + QPS=QPN + DO KR=1,NKR + FI1(KR)=PSI1(KR) + FI3(KR)=PSI3(KR) + FI4(KR)=PSI4(KR) + FI5(KR)=PSI5(KR) + DO ICE=1,ICEMAX + FI2(KR,ICE)=PSI2(KR,ICE) + ENDDO + ENDDO +! TIME-STEP GROWTH RATE + CALL JERRATE (R1,TPS,PP,ROR,VR1,PSINGLE & + ,RLEC,RO1BL,B11_MY,B12_MY,1,1,ICEMAX,NKR) + CALL JERRATE (R2,TPS,PP,ROR,VR2,PSINGLE & + ,RIEC,RO2BL,B21_MY,B22_MY,3,2,ICEMAX,NKR) + CALL JERRATE (R3,TPS,PP,ROR,VR3,PSINGLE & + ,RSEC,RO3BL,B31_MY,B32_MY,1,2,ICEMAX,NKR) + CALL JERRATE (R4,TPS,PP,ROR,VR4,PSINGLE & + ,RGEC,RO4BL,B41_MY,B42_MY,1,2,ICEMAX,NKR) + CALL JERRATE (R5,TPS,PP,ROR,VR5,PSINGLE & + ,RHEC,RO5BL,B51_MY,B52_MY,1,2,ICEMAX,NKR) + + CALL JERTIMESC (FI1,R1,SFN11,SFN12 & + ,B11_MY,B12_MY,B8L,1,COL,NKR) + CALL JERTIMESC_ICE (FI2,R2,SFNI1,SFNI2 & + ,B21_MY,B22_MY,B8I,ICEMAX,COL,NKR) + CALL JERTIMESC (FI3,R3,SFN31,SFN32 & + ,B31_MY,B32_MY,B8I,1,COL,NKR) + CALL JERTIMESC (FI4,R4,SFN41,SFN42 & + ,B41_MY,B42_MY,B8I,1,COL,NKR) + CALL JERTIMESC (FI5,R5,SFN51,SFN52 & + ,B51_MY,B52_MY,B8I,1,COL,NKR) + + SFNII1=SFNI1(1)+SFNI1(2)+SFNI1(3) + SFNII2=SFNI2(1)+SFNI2(2)+SFNI2(3) + SFN21=SFNII1+SFN31+SFN41+SFN51 + SFN22=SFNII2+SFN32+SFN42+SFN52 + SFNL=SFN11+SFN12 + SFNI=SFN21+SFN22 +! SOME CONSTANTS (QW,QI=0,since B6=0.) + B5L=BB1_MY/TPS/TPS + B5I=BB2_MY/TPS/TPS + B7L=B5L*B6 + B7I=B5I*B6 + DOPL=1.+DEL1S + DOPI=1.+DEL2S + RW=(OPER2(QPS)+B5L*AL1)*DOPL*SFNL + QW=B7L*DOPL + PW=(OPER2(QPS)+B5I*AL1)*DOPI*SFNL + RI=(OPER2(QPS)+B5L*AL2)*DOPL*SFNI + PI=(OPER2(QPS)+B5I*AL2)*DOPI*SFNI + QI=B7I*DOPI +! SOLVING FOR TIMEZERO + CALL JERSUPSAT (DEL1,DEL2,DEL1N0,DEL2N0 & + ,RW,PW,RI,PI,QW,QI & + ,DTT,D1N0,D2N0,DT0L,DT0I) +! DEL1 > 0, DEL2 < 0 (ANTIBERGERON MIXED PHASE - KCOND=50) +! DEL1 < 0 AND DEL2 < 0 (EVAPORATION MIXED_PHASE - KCOND=30) +! DEL1 > 0 AND DEL2 > 0 (CONDENSATION MIXED PHASE - KCOND=31) +! DEL1 < 0, DEL2 > 0 (BERGERON MIXED PHASE - KCOND=32) + KCOND=50 + IF(DEL1.LT.0.AND.DEL2.LT.0) KCOND=30 + IF(DEL1.GT.0.AND.DEL2.GT.0) KCOND=31 + IF(DEL1.LT.0.AND.DEL2.GT.0) KCOND=32 + +!----------SSw>0, SSi<0---------------------------------- +!Adele-Physically impossible, why does this section exist? + IF(KCOND.EQ.50) THEN + IF(DT0L.EQ.0) THEN + DTNEWL=DT + ELSE + DTNEWL=AMIN1(DT,DT0L) + ENDIF + IF(DTNEWL.GT.DT) DTNEWL=DT + IF((TIMENEW+DTNEWL).GT.DT.AND.ITIME.LT.(NKR-1)) & + DTNEWL=DT-TIMENEW + IF(ITIME.EQ.(NKR-1)) DTNEWL=DT-TIMENEW + TIMENEW=TIMENEW+DTNEWL + DTT=DTNEWL + IF(ITIME.GE.NKR) THEN + PRINT *, 'ANTIBERGERON MIXED PHASE' + STOP + ENDIF + TIMESTEPD(ITIME)=DTNEWL + ENDIF +!------------SSw>0, SSi>0 Everything grows ----------------------------- + IF(KCOND.EQ.31) THEN + IF (DEL1N.EQ.0)THEN + DTNEWL0=DT + ELSE + DTNEWL0=ABS(R1(ITIME)/(B11_MY(ITIME)*DEL1N- & + B12_MY(ITIME))) + END IF + + IF (DEL2N.EQ.0)THEN + DTNEWI2_1=DT + DTNEWI2_2=DT + DTNEWI2_3=DT + DTNEWI2=DT + DTNEWI3=DT + DTNEWI4=DT + DTNEWI5=DT + ELSE + DTNEWI2_1=ABS(R2(ITIME,1)/ & + (B21_MY(ITIME,1)*DEL2N-B22_MY(ITIME,1))) + DTNEWI2_2=ABS(R2(ITIME,2)/ & + (B21_MY(ITIME,2)*DEL2N-B22_MY(ITIME,2))) + DTNEWI2_3=ABS(R2(ITIME,3)/ & + (B21_MY(ITIME,3)*DEL2N-B22_MY(ITIME,3))) + DTNEWI2=AMIN1(DTNEWI2_1,DTNEWI2_2,DTNEWI2_3) + + DTNEWI3=ABS(R3(ITIME)/(B31_MY(ITIME)*DEL2N- & + B32_MY(ITIME))) + DTNEWI4=ABS(R4(ITIME)/(B41_MY(ITIME)*DEL2N- & + B42_MY(ITIME))) + DTNEWI5=ABS(R5(ITIME)/(B51_MY(ITIME)*DEL2N- & + B52_MY(ITIME))) + END IF + DTNEWI1=AMIN1(DTNEWI2,DTNEWI4,DTNEWI5,DT0I) + IF(DT0L.NE.0) THEN + IF(ABS(DT0L).LT.DT_MIX_COND) THEN + DTNEWL1=AMIN1(DT_MIX_COND,DTNEWL0) + ELSE + DTNEWL1=AMIN1(DT0L,DTNEWL0) + ENDIF + ELSE + DTNEWL1=DTNEWL0 + ENDIF + DTNEWL=AMIN1(DTNEWL1,DTNEWI1) + IF(ITIME.GE.NKR) THEN + PRINT *, 'CONDENSATION MIXED PHASE' + STOP + ENDIF + TIMESTEPD(ITIME)=DTNEWL + IF(DTNEWL.GT.DT) DTNEWL=DT + IF((TIMENEW+DTNEWL).GT.DT.AND.ITIME.LT.(NKR-1)) & + DTNEWL=DT-TIMENEW + IF(ITIME.EQ.(NKR-1)) DTNEWL=DT-TIMENEW + TIMENEW=TIMENEW+DTNEWL + TIMESTEPD(ITIME)=DTNEWL + DTT=DTNEWL + ENDIF +!-------------SSw<0, SSi<0 All evaporation ------------------------------- + IF(KCOND.EQ.30) THEN + DO KR=1,NKR + DTIMEL(KR)=0. + DTIMEG(KR)=0. + DTIMEH(KR)=0. + DTIMEI_1(KR)=0. + DTIMEI_2(KR)=0. + DTIMEI_3(KR)=0. + ENDDO + DO KR=1,NKR + IF (DEL1N.EQ.0) THEN + DTIMEL(KR)=DT + DTIMEG(KR)=DT + DTIMEH(KR)=DT + ELSE + DTIMEL(KR)=-R1(KR)/(B11_MY(KR)*DEL1N- & + B12_MY(KR)) + DTIMEG(KR)=-R4(KR)/(B41_MY(KR)*DEL1N- & + B42_MY(KR)) + DTIMEH(KR)=-R5(KR)/(B51_MY(KR)*DEL1N- & + B52_MY(KR)) +! NEW ALGORITHM (NO TYPE OF ICE) + END IF + IF (DEL2N.EQ.0) THEN + DTIMEI_1(KR)=DT + DTIMEI_2(KR)=DT + DTIMEI_3(KR)=DT + ELSE + DTIMEI_1(KR)=-R2(KR,1)/ & + (B21_MY(KR,1)*DEL2N-B22_MY(KR,1)) + DTIMEI_2(KR)=-R2(KR,2)/ & + (B21_MY(KR,2)*DEL2N-B22_MY(KR,2)) + DTIMEI_3(KR)=-R2(KR,3)/ & + (B21_MY(KR,3)*DEL2N-B22_MY(KR,3)) + END IF + ENDDO +! WATER + KLIMITL=1 + DO KR=1,NKR + IF(DTIMEL(KR).GT.TIMEREV) EXIT + KLIMITL=KR + ENDDO + KLIMITL=KLIMITL-1 + IF(KLIMITL.LT.1) KLIMITL=1 + DTNEWL1=AMIN1(DTIMEL(KLIMITL),DT0L,TIMEREV) + +! GRAUPELS + KLIMITG=1 + DO KR=1,NKR + IF(DTIMEG(KR).GT.TIMEREV) EXIT + KLIMITG=KR + ENDDO + KLIMITG=KLIMITG-1 + IF(KLIMITG.LT.1) KLIMITG=1 + DTNEWG1=AMIN1(DTIMEG(KLIMITG),TIMEREV) + +! HAIL + KLIMITH=1 + DO KR=1,NKR + IF(DTIMEH(KR).GT.TIMEREV) EXIT + KLIMITH=KR + ENDDO + KLIMITH=KLIMITH-1 + IF(KLIMITH.LT.1) KLIMITH=1 + DTNEWH1=AMIN1(DTIMEH(KLIMITH),TIMEREV) + +! ICE CRYSTALS + KLIMITI_1=1 + KLIMITI_2=1 + KLIMITI_3=1 + DO KR=1,NKR + IF(DTIMEI_1(KR).GT.TIMEREV) EXIT + KLIMITI_1=KR + ENDDO + + DO KR=1,NKR + IF(DTIMEI_2(KR).GT.TIMEREV) EXIT + KLIMITI_2=KR + ENDDO + + DO KR=1,NKR + IF(DTIMEI_3(KR).GT.TIMEREV) EXIT + KLIMITI_3=KR + ENDDO + + KLIMITI_1=KLIMITI_1-1 + IF(KLIMITI_1.LT.1) KLIMITI_1=1 + DTNEWI2_1=AMIN1(DTIMEI_1(KLIMITI_1),TIMEREV) + + KLIMITI_2=KLIMITI_2-1 + IF(KLIMITI_2.LT.1) KLIMITI_2=1 + DTNEWI2_2=AMIN1(DTIMEI_2(KLIMITI_2),TIMEREV) + + KLIMITI_3=KLIMITI_3-1 + IF(KLIMITI_3.LT.1) KLIMITI_3=1 + DTNEWI2_3=AMIN1(DTIMEI_3(KLIMITI_3),TIMEREV) + + DTNEWI2=AMIN1(DTNEWI2_1,DTNEWI2_2,DTNEWI2_3) + DTNEWI1=AMIN1(DTNEWI2,DTNEWG1,DTNEWH1,DT0I) + + IF(ABS(DEL2N).LT.EPSDEL2) & + DTNEWI1=AMIN1(DTNEWI2,DTNEWG1,DTNEWH1) + DTNEWL2=AMIN1(DTNEWL1,DTNEWI1) + DTNEWL=DTNEWL2 + IF(DTNEWL.LT.DT_MIX_EVAP) & + DTNEWL=AMIN1(DT_MIX_EVAP,TIMEREV) + IF(ITIME.GE.NKR) THEN + PRINT *, 'EVAPORATION MIXED PHASE' + STOP + ENDIF + + TIMESTEPD(ITIME)=DTNEWL + IF(DTNEWL.GT.DT) DTNEWL=DT + IF((TIMENEW+DTNEWL).GT.DT.AND.ITIME.LT.(NKR-1)) & + DTNEWL=DT-TIMENEW + IF(ITIME.EQ.(NKR-1)) DTNEWL=DT-TIMENEW + TIMESTEPD(ITIME)=DTNEWL + TIMENEW=TIMENEW+DTNEWL + DTT=DTNEWL + ENDIF + +!-------------SSw<0, SSi>0 Bergeron case ------------------------------------ + IF(KCOND.EQ.32) THEN + IF (DEL1N.EQ.0)THEN + DTNEWL0=DT + ELSE + DTNEWL0=-R1(1)/(B11_MY(1)*DEL1N-B12_MY(1)) + END IF + + IF (DEL2N.EQ.0)THEN + DTNEWI2_1=DT + DTNEWI2_2=DT + DTNEWI2_3=DT + ELSE + DTNEWI2_1=R2(1,1)/(B21_MY(1,1)*DEL2N-B22_MY(1,1)) + DTNEWI2_2=R2(1,2)/(B21_MY(1,2)*DEL2N-B22_MY(1,2)) + DTNEWI2_3=R2(1,3)/(B21_MY(1,3)*DEL2N-B22_MY(1,3)) + END IF + DTNEWI2=AMIN1(DTNEWI2_1,DTNEWI2_2,DTNEWI2_3) + IF (DEL2N.EQ.0)THEN + DTNEWI3=DT + DTNEWI4=DT + DTNEWI5=DT + ELSE + DTNEWI3=R3(1)/(B31_MY(1)*DEL2N-B32_MY(1)) + DTNEWI4=R4(1)/(B41_MY(1)*DEL2N-B42_MY(1)) + DTNEWI5=R5(1)/(B51_MY(1)*DEL2N-B52_MY(1)) + END IF + DTNEWL1=AMIN1(DTNEWL0,DT0L,TIMEREV) + DTNEWI1=AMIN1(DTNEWI2,DTNEWI3,DTNEWI4 & + ,DTNEWI5,DT0I,TIMEREV) + DTNEWI1=AMIN1(DTNEWI2,DTNEWI4,DTNEWI5,DT0I,TIMEREV) + DTNEWL=AMIN1(DTNEWL1,DTNEWI1) + + IF(DTNEWL.LT.DT_MIX_BERGERON) & + DTNEWL=AMIN1(DT_MIX_BERGERON,TIMEREV) + TIMESTEPD(ITIME)=DTNEWL + + IF(DTNEWL.GT.DT) DTNEWL=DT + IF((TIMENEW+DTNEWL).GT.DT.AND.ITIME.LT.(NKR-1)) & + DTNEWL=DT-TIMENEW + IF(ITIME.EQ.(NKR-1)) DTNEWL=DT-TIMENEW + TIMESTEPD(ITIME)=DTNEWL + TIMENEW=TIMENEW+DTNEWL + DTT=DTNEWL + ENDIF +!------------end kcond cases---------------------------------------------- + +! SOLVING FOR SUPERSATURATION + + CALL JERSUPSAT (DEL1,DEL2,DEL1N,DEL2N & + ,RW,PW,RI,PI,QW,QI & + ,DTT,D1N,D2N,DT0L,DT0I) + +!------------- DROPLETS----------------------------------------------- + IF(ISYM1.NE.0) THEN + CALL JERDFUN (R1,B11_MY,B12_MY & + ,FI1,PSI1,D1N & + ,1,1,COL,NKR) + ENDIF +!------------ CRYSTALS --------------------------------------------- + IF(ISYM2.NE.0) THEN + CALL JERDFUN (R2,B21_MY,B22_MY & + ,FI2,PSI2,D2N & + ,ICEMAX,1,COL,NKR) + + CALL JERDFUN (R2,B21_MY,B22_MY & + ,FI2,PSI2,D2N & + ,ICEMAX,2,COL,NKR) + + CALL JERDFUN (R2,B21_MY,B22_MY & + ,FI2,PSI2,D2N & + ,ICEMAX,3,COL,NKR) + ENDIF +! ---------------SNOW ----------------------------------------- + IF(ISYM3.NE.0) THEN + CALL JERDFUN (R3,B31_MY,B32_MY & + ,FI3,PSI3,D2N & + ,1,3,COL,NKR) + ENDIF +!------------- GRAUPELS ------------------------------------- + IF(ISYM4.NE.0) THEN + CALL JERDFUN (R4,B41_MY,B42_MY & + ,FI4,PSI4,D2N & + ,1,4,COL,NKR) + ENDIF +! ---------------HAIL -------------------------------------- + IF(ISYM5.NE.0) THEN + CALL JERDFUN (R5,B51_MY,B52_MY & + ,FI5,PSI5,D2N & + ,1,5,COL,NKR) + ENDIF + +!------------Update other variables----------------------------- +! MASSES + RMASSLBB=0.D0 + RMASSIBB=0.D0 + RMASSLAA=0.D0 + RMASSIAA=0.D0 +! BEFORE JERNEWF + DO K=1,NKR + FI1_K=FI1(K) + R1_K=R1(K) + FI1R1=FI1_K*R1_K*R1_K + RMASSLBB=RMASSLBB+FI1R1 + DO ICE =1,ICEMAX + FI2_K=FI2(K,ICE) + R2_K=R2(K,ICE) + FI2R2=FI2_K*R2_K*R2_K + RMASSIBB=RMASSIBB+FI2R2 + ENDDO + FI3_K=FI3(K) + FI4_K=FI4(K) + FI5_K=FI5(K) + R3_K=R3(K) + R4_K=R4(K) + R5_K=R5(K) + FI3R3=FI3_K*R3_K*R3_K + FI4R4=FI4_K*R4_K*R4_K + FI5R5=FI5_K*R5_K*R5_K + RMASSIBB=RMASSIBB+FI3R3 + RMASSIBB=RMASSIBB+FI4R4 + RMASSIBB=RMASSIBB+FI5R5 + ENDDO + RMASSIBB=RMASSIBB*COL3*RORI + IF(RMASSIBB.LT.0.0) RMASSIBB=0.0 + RMASSLBB=RMASSLBB*COL3*RORI + IF(RMASSLBB.LT.0.0) RMASSLBB=0.0 +! AFTER JERNEWF + DO K=1,NKR + FI1_K=PSI1(K) + R1_K=R1(K) + FI1R1=FI1_K*R1_K*R1_K + RMASSLAA=RMASSLAA+FI1R1 + DO ICE =1,ICEMAX + FI2(K,ICE)=PSI2(K,ICE) + FI2_K=FI2(K,ICE) + R2_K=R2(K,ICE) + FI2R2=FI2_K*R2_K*R2_K + RMASSIAA=RMASSIAA+FI2R2 + ENDDO + FI3_K=PSI3(K) + FI4_K=PSI4(K) + FI5_K=PSI5(K) + R3_K=R3(K) + R4_K=R4(K) + R5_K=R5(K) + FI3R3=FI3_K*R3_K*R3_K + FI4R4=FI4_K*R4_K*R4_K + FI5R5=FI5_K*R5_K*R5_K + RMASSIAA=RMASSIAA+FI3R3 + RMASSIAA=RMASSIAA+FI4R4 + RMASSIAA=RMASSIAA+FI5R5 + ENDDO + RMASSIAA=RMASSIAA*COL3*RORI + IF(RMASSIAA.LE.0.0) RMASSIAA=0.0 + RMASSLAA=RMASSLAA*COL3*RORI + IF(RMASSLAA.LT.0.0) RMASSLAA=0.0 + DELMASSL1=RMASSLAA-RMASSLBB + DELMASSI1=RMASSIAA-RMASSIBB + DELTAQ1=DELMASSL1+DELMASSI1 + QPN=QPS-DELTAQ1 + DAL1=AL1 + DAL2=AL2 + TPN=TPS+DAL1*DELMASSL1+DAL2*DELMASSI1 +! SUPERSATURATION + ARGEXP=-BB1_MY/TPN + ES1N=AA1_MY*DEXP(ARGEXP) + ARGEXP=-BB2_MY/TPN + ES2N=AA2_MY*DEXP(ARGEXP) + EW1N=OPER3(QPN,PP) + IF(ES1N.EQ.0)THEN + DEL1N=0.5 + DIV1=1.5 + ELSE + DIV1=EW1N/ES1N + DEL1N=EW1N/ES1N-1. + END IF + IF(ES2N.EQ.0)THEN + DEL2N=0.5 + DIV2=1.5 + ELSE + DEL2N=EW1N/ES2N-1. + DIV2=EW1N/ES2N + END IF +IF(TIMENEW.LT.DT) GOTO 16 +! -----------------END OF TIME SPLITTING------------------------------- +17 CONTINUE + +! Calculate total CCN and IN after cond (CCN/IN regeneration)- J. Fan +totccn_after = 0.0 +totin_after = 0.0 +do kr = 1, nkr + totccn_after = totccn_after+psi1(kr)*r1(kr)*col3 + totin_after = totin_after+psi2(kr,1)*r2(kr,1)*col3 & + +psi2(kr,2)*r2(kr,2)*col3 & + +psi2(kr,3)*r2(kr,3)*col3 & + +psi3(kr)*r3(kr)*col3 & + +psi4(kr)*r4(kr)*col3 & + +psi5(kr)*r5(kr)*col3 +enddo +ccnreg = max((totccn_before-totccn_after),0.0) +inreg = max((totin_before-totin_after),0.0) + +TT=TPN +QQ=QPN +DO KR=1,NKR + FF1(KR)=PSI1(KR) + DO ICE=1,ICEMAX + FF2(KR,ICE)=PSI2(KR,ICE) + ENDDO + FF3(KR)=PSI3(KR) + FF4(KR)=PSI4(KR) + FF5(KR)=PSI5(KR) +ENDDO + +RETURN +END SUBROUTINE ONECOND3 + +!############################################################################## +Subroutine COAL_BOTT_NEW (FF1R,FF2R,FF3R, & + FF4R,FF5R,TT,QQ,PP,RHO,dthalf,TCRIT,TTCOAL, & + kdir,idir,jdir) + +use mem_micro +use mem_grid, only:ngrid + +IMPLICIT NONE + +INTEGER kdir,idir,jdir +INTEGER KR,ICE +INTEGER icol_drop,icol_snow,icol_graupel,icol_hail, & + icol_column,icol_plate,icol_dendrite,icol_drop_brk +double precision g1(nkr),g2(nkr,icemax),g3(nkr),g4(nkr),g5(nkr) +double precision gdumb(nkr),xl_dumb(0:nkr) +double precision g2_1(nkr),g2_2(nkr),g2_3(nkr) +real cont_fin_drop,dconc,conc_icempl,deldrop,t_new, & + cont_fin_ice,conc_old,conc_new,cont_init_ice, & + cont_init_drop,ALWC +REAL FF1R(NKR),FF2R(NKR,ICEMAX),FF3R(NKR),FF4R(NKR),FF5R(NKR) +REAL DTHALF +REAL TCRIT,TTCOAL +INTEGER I,J,IT,NDIV +REAL RHO +REAL :: totalcloud,totalrain,totalprissnow +DOUBLE PRECISION break_drop_bef,break_drop_aft,dtbreakup +DOUBLE PRECISION break_drop_per +DOUBLE PRECISION TT,QQ,PP,prdkrn,prdkrn1 +parameter (prdkrn1=1.d0) + +icol_drop_brk=0 +icol_drop=0 +icol_snow=0 +icol_graupel=0 +icol_hail=0 +icol_column=0 +icol_plate=0 +icol_dendrite=0 +t_new=tt +CALL MISC1 (PP,cwll_1000mb,cwll_750mb,cwll_500mb,cwll,nkr) +! THIS IS FOR BREAKUP +DO I=1,NKR + DO J=1,NKR + CWLL(I,J)=ECOALMASSM(I,J)*CWLL(I,J) + ENDDO +ENDDO + +! THIS IS FOR TURBULENCE +IF (LIQTURB.EQ.1)THEN + DO I=1,KRMAX_LL + DO J=1,KRMAX_LL + CWLL(I,J)=CTURBLL(I,J)*CWLL(I,J) + END DO + END DO +END IF +CALL modkrn (TT,QQ,PP,PRDKRN,TTCOAL) +DO KR=1,NKR + G1(KR)=FF1R(KR)*3.*XL(KR)*XL(KR)*1.E3 + G2(KR,1)=FF2R(KR,1)*3*xi(KR,1)*XI(KR,1)*1.e3 + G2(KR,2)=FF2R(KR,2)*3.*xi(KR,2)*XI(KR,2)*1.e3 + G2(KR,3)=FF2R(KR,3)*3.*xi(KR,3)*XI(KR,3)*1.e3 + G3(KR)=FF3R(KR)*3.*xs(kr)*xs(kr)*1.e3 + G4(KR)=FF4R(KR)*3.*xg(kr)*xg(kr)*1.e3 + G5(KR)=FF5R(KR)*3.*xh(kr)*xh(kr)*1.e3 + g2_1(kr)=g2(KR,1) + g2_2(KR)=g2(KR,2) + g2_3(KR)=g2(KR,3) + if(kr.gt.(nkr-jbreak).and.g1(kr).gt.1.e-17)icol_drop_brk=1 + if(g1(kr).gt.1.e-10)icol_drop=1 + if(g2_1(kr).gt.1.e-10)icol_column=1 + if(g2_2(kr).gt.1.e-10)icol_plate=1 + if(g2_3(kr).gt.1.e-10)icol_dendrite=1 + if(g3(kr).gt.1.e-10)icol_snow=1 + if(g4(kr).gt.1.e-10)icol_graupel=1 + if(g5(kr).gt.1.e-10)icol_hail=1 +ENDDO +! calculation of initial hydromteors content in g/cm**3 : +cont_init_drop=0. +cont_init_ice=0. +do kr=1,nkr + cont_init_drop=cont_init_drop+g1(kr) + cont_init_ice=cont_init_ice+g3(kr)+g4(kr)+g5(kr) + do ice=1,icemax + cont_init_ice=cont_init_ice+g2(kr,ice) + enddo +enddo +cont_init_drop=col*cont_init_drop*1.e-3 +cont_init_ice=col*cont_init_ice*1.e-3 +! calculation of alwc in g/m**3 +alwc=cont_init_drop*1.e6 +! calculation of initial hydromteors content in g/cm**3 : + +!----------LIQUID-LIQUID INTERACTIONS----------------------- +totalcloud = sum(g1(1:krdrop-1))*col*1e-3/rho +if (icol_drop.eq.1)then + if (imbudget >= 1) then + micro_g(ngrid)%cld2raint(kdir,idir,jdir) = micro_g(ngrid)%cld2raint(kdir,idir,jdir) & + + totalcloud + endif + CALL coll_xxx (G1,CWLL,XL_MG,CHUCM,IMA,NKR) + if (imbudget >= 1) then + totalcloud = sum(g1(1:krdrop-1))*col*1e-3/rho + micro_g(ngrid)%cld2raint(kdir,idir,jdir) = micro_g(ngrid)%cld2raint(kdir,idir,jdir) & + - totalcloud + endif + +!-----------RAINDROP BREAKUP------------------------------ + if(icol_drop_brk.eq.1)then + ndiv=1 +10 continue + do it = 1,ndiv + if (ndiv.gt.10000)stop + dtbreakup = dthalf/ndiv + if (it.eq.1)then + do kr=1,nkr + gdumb(kr)= g1(kr)*1.D-3 + xl_dumb(kr)=xl_mg(KR)*1.D-3 + end do + break_drop_bef=0.d0 + do kr=1,nkr + break_drop_bef=break_drop_bef+g1(kr)*1.D-3 + enddo + end if + CALL breakup (gdumb,xl_dumb,dtbreakup,brkweight, & + pkij,qkj,nkr,jbreak) + end do + break_drop_aft=0.0d0 + do kr=1,nkr + break_drop_aft=break_drop_aft+gdumb(kr) + enddo + break_drop_per=break_drop_aft/break_drop_bef + if (break_drop_per.gt.1.001)then + ndiv=ndiv*2 + GO TO 10 + else + do kr=1,nkr + g1(kr)=gdumb(kr)*1.D3 + end do + end if + end if + totalrain = sum(g1(krdrop:nkr))*col*1e-3/rho +!-----------------SNOW-LIQUID COLLISIONS--------------------- + if (iceprocs .eq. 1) then + if (imbudget >= 1) then + micro_g(ngrid)%rimecldt(kdir,idir,jdir) = micro_g(ngrid)%rimecldt(kdir,idir,jdir) & + + totalcloud + micro_g(ngrid)%rain2icet(kdir,idir,jdir) = micro_g(ngrid)%rain2icet(kdir,idir,jdir) & + + totalrain + endif + if (icol_snow.eq.1)then + if (imbudget >= 2) then + micro_g(ngrid)%rimecldaggrt(kdir,idir,jdir) = micro_g(ngrid)%rimecldaggrt(kdir,idir,jdir) & + + totalcloud + micro_g(ngrid)%rain2agt(kdir,idir,jdir) = micro_g(ngrid)%rain2agt(kdir,idir,jdir) & + + totalrain + endif + if(tt.lt.tcrit) then + CALL coll_xyz (g1,g3,g4,cwls,xl_mg,xs_mg, & + chucm,ima,prdkrn1,nkr,0) + endif + if(tt.ge.tcrit) then + CALL coll_xyz (g1,g3,g5,cwls,xl_mg,xs_mg, & + chucm,ima,prdkrn1,nkr,0) + endif + if(alwc.lt.alcr) then + CALL coll_xyx (g3,g1,cwsl,xs_mg,xl_mg, & + chucm,ima,prdkrn1,nkr,1) + endif + if(alwc.ge.alcr) then + CALL coll_xyz (g3,g1,g4,cwsl,xs_mg,xl_mg, & + chucm,ima,prdkrn1,nkr,1) + endif + if (imbudget >= 2) then + totalcloud = sum(g1(1:krdrop-1))*col*1e-3/rho + micro_g(ngrid)%rimecldaggrt(kdir,idir,jdir) = micro_g(ngrid)%rimecldaggrt(kdir,idir,jdir) & + - totalcloud + totalrain = sum(g1(krdrop:nkr))*col*1e-3/rho + micro_g(ngrid)%rain2agt(kdir,idir,jdir) = micro_g(ngrid)%rain2agt(kdir,idir,jdir) & + - totalrain + endif + end if +!-----------------GRAUPEL-LIQUID COLLISIONS---------------- +! water - graupel = graupel (t < tcrit ; xl_mg ge xg_mg) +! graupel - water = graupel (t < tcrit ; xg_mg > xl_mg) +! water - graupel = hail (t ge tcrit ; xl_mg ge xg_mg) +! graupel - water = hail (t ge tcrit ; xg_mg > xl_mg) + if (icol_graupel.eq.1)then + if (imbudget >= 2) then + micro_g(ngrid)%rimecldgraut(kdir,idir,jdir) = micro_g(ngrid)%rimecldgraut(kdir,idir,jdir) & + + totalcloud + micro_g(ngrid)%rain2grt(kdir,idir,jdir) = micro_g(ngrid)%rain2grt(kdir,idir,jdir) & + + totalrain + endif + if (alwc.lt.alcr_hail) then + CALL coll_xyy (g1,g4,cwlg,xl_mg,xg_mg, & + chucm,ima,prdkrn1,nkr,0) +! if cwc .gt. alcr_hail, water+graupel - hail for nr .gt. kp_hail + else + CALL coll_xyyz (g1,g4,g5,cwlg,xl_mg,xg_mg,chucm, & + ima,prdkrn1,nkr,0,kp_hail) + endif + ! ice-multiplication preparation: + conc_old=0. + conc_new=0. + do kr=kr_icempl,nkr + conc_old=conc_old+col*g1(kr)/xl_mg(kr) + enddo + if (alwc.lt.alcr_hail) then + CALL coll_xyx (g4,g1,cwgl,xg_mg,xl_mg, & + chucm,ima,prdkrn1,nkr,1) + else + CALL coll_xyxz (g4,g1,g5,cwlg,xg_mg,xl_mg,chucm, & + ima,prdkrn1,nkr,1,kp_hail) + endif + if (imbudget >= 2) then + totalcloud = sum(g1(1:krdrop-1))*col*1e-3/rho + micro_g(ngrid)%rimecldgraut(kdir,idir,jdir) = micro_g(ngrid)%rimecldgraut(kdir,idir,jdir) & + - totalcloud + totalrain = sum(g1(krdrop:nkr))*col*1e-3/rho + micro_g(ngrid)%rain2grt(kdir,idir,jdir) = micro_g(ngrid)%rain2grt(kdir,idir,jdir) & + - totalrain + endif +!----ICE-MULTIPLICATION : Hallet-Mossop processes (1 per 250 collisions) + if (icempl.eq.1) then + if (tt.ge.265.15.and.tt.le.270.15) then + do kr=kr_icempl,nkr + conc_new=conc_new+col*g1(kr)/xl_mg(kr) + enddo + dconc=conc_old-conc_new + if(tt.le.268.15) then + conc_icempl=dconc*4.e-3*(265.15-tt)/(265.15-268.15) + elseif(tt.gt.268.15) then + conc_icempl=dconc*4.e-3*(tcrit-tt)/(tcrit-268.15) + endif + g2_2(1)=g2_2(1)+conc_icempl*xi2_mg(1)/col + endif + endif + endif +!---------------HAIL-LIQUID COLLISIONS----------------------------- +! water - hail = hail (xl_mg ge xh_mg) (kxyy=2) +! hail - water = hail (xh_mg > xl_mg) (kxyx=3) + if(icol_hail.eq.1) then + if (imbudget >= 2) then + micro_g(ngrid)%rimecldhailt(kdir,idir,jdir) = micro_g(ngrid)%rimecldhailt(kdir,idir,jdir) & + + totalcloud + micro_g(ngrid)%rain2hat(kdir,idir,jdir) = micro_g(ngrid)%rain2hat(kdir,idir,jdir) & + + totalrain + endif + CALL coll_xyy (g1,g5,cwlh,xl_mg,xh_mg, & + chucm,ima,prdkrn1,nkr,0) + CALL coll_xyx (g5,g1,cwhl,xh_mg,xl_mg, & + chucm,ima,prdkrn1,nkr,1) + if (imbudget >= 2) then + totalcloud = sum(g1(1:krdrop-1))*col*1e-3/rho + micro_g(ngrid)%rimecldhailt(kdir,idir,jdir) = micro_g(ngrid)%rimecldhailt(kdir,idir,jdir) & + - totalcloud + totalrain = sum(g1(krdrop:nkr))*col*1e-3/rho + micro_g(ngrid)%rain2hat(kdir,idir,jdir) = micro_g(ngrid)%rain2hat(kdir,idir,jdir) & + - totalrain + endif + endif +!--------------COLUMN-LIQUID COLLISIONS-------------------------- +! interactions between water and crystals : +! interactions between water and columns : +! water - columns = graupel (t < tcrit ; xl_mg ge xi_mg) (kxyz=6) +! water - columns = hail (t ge tcrit ; xl_mg ge xi_mg) (kxyz=7) +! columns - water = columns/graupel (xi_mg > xl_mg) (kxyx=4); kxyxz=2) +! now: columns - water = columns (xi_mg > xl_mg) (kxyx=4); kxyxz=2) + if (imbudget >= 2 .and. ipris > 0) then + micro_g(ngrid)%rimecldsnowt(kdir,idir,jdir) = micro_g(ngrid)%rimecldsnowt(kdir,idir,jdir) & + + totalcloud + micro_g(ngrid)%rain2snt(kdir,idir,jdir) = micro_g(ngrid)%rain2snt(kdir,idir,jdir) & + + totalrain + endif + if(icol_column.eq.1) then + if(tt.lt.tcrit) then + CALL coll_xyz (g1,g2_1,g4,cwli_1,xl_mg,xi1_mg, & + chucm,ima,prdkrn,nkr,0) + endif + if(tt.ge.tcrit) then + CALL coll_xyz (g1,g2_1,g5,cwli_1,xl_mg,xi1_mg, & + chucm,ima,prdkrn,nkr,0) + endif + CALL coll_xyx (g2_1,g1,cwil_1,xi1_mg,xl_mg, & + chucm,ima,prdkrn,nkr,1) + endif +!------------PLATE-LIQUID COLLISIONS--------------------------------- +! water - plates = graupel (t < tcrit ; xl_mg ge xi2_mg) (kxyz=8) +! water - plates = hail (t ge tcrit ; xl_mg ge xi2_mg) (kxyz=9) +! plates - water = plates/graupel (xi2_mg > xl_mg) (kxyx=5; kxyxz=3) +!now: plates - water = plates (xi2_mg > xl_mg) (kxyx=5; kxyxz=3) + if(icol_plate.eq.1) then + if(tt.lt.tcrit) then + CALL coll_xyz (g1,g2_2,g4,cwli_2,xl_mg,xi2_mg, & + chucm,ima,prdkrn,nkr,0) + endif + if(tt.ge.tcrit) then + CALL coll_xyz (g1,g2_2,g5,cwli_2,xl_mg,xi2_mg, & + chucm,ima,prdkrn,nkr,0) + endif + CALL coll_xyx (g2_2,g1,cwil_2,xi2_mg,xl_mg, & + chucm,ima,prdkrn,nkr,1) + endif +!--------------DENDRITE-LIQUID COLLISIONS------------------------------ +! water - dendrites = graupel (t < tcrit ; xl_mg ge xi3_mg) (kxyz=10) +! water - dendrites = hail (t ge tcrit ; xl_mg ge xi3_mg) (kxyz=11) +! dendrites - water = dendrites/graupel (xi3_mg > xl_mg) (kxyx=6; kxyxz=4) +!now dendrites - water = dendrites (xi3_mg > xl_mg) (kxyx=6; kxyxz=4) + if(icol_dendrite.eq.1) then + if(tt.lt.tcrit) then + CALL coll_xyz (g1,g2_3,g4,cwli_3,xl_mg,xi3_mg, & + chucm,ima,prdkrn,nkr,0) + endif + if(tt.ge.tcrit) then + CALL coll_xyz (g1,g2_3,g5,cwli_3,xl_mg,xi3_mg, & + chucm,ima,prdkrn,nkr,0) + endif + CALL coll_xyx (g2_3,g1,cwil_3,xi3_mg,xl_mg, & + chucm,ima,prdkrn,nkr,1) + endif + if (imbudget >= 1) then + totalcloud = sum(g1(1:krdrop-1))*col*1e-3/rho + totalrain = sum(g1(krdrop:nkr))*col*1e-3/rho + micro_g(ngrid)%rimecldt(kdir,idir,jdir) = micro_g(ngrid)%rimecldt(kdir,idir,jdir) & + - totalcloud + micro_g(ngrid)%rain2icet(kdir,idir,jdir) = micro_g(ngrid)%rain2icet(kdir,idir,jdir) & + - totalrain + endif + if (imbudget >= 2 .and. ipris > 0) then + micro_g(ngrid)%rimecldsnowt(kdir,idir,jdir) = micro_g(ngrid)%rimecldsnowt(kdir,idir,jdir) & + - totalcloud + micro_g(ngrid)%rain2snt(kdir,idir,jdir) = micro_g(ngrid)%rain2snt(kdir,idir,jdir) & + - totalrain + endif + endif !endif ice present +endif !endif liquid collisions + +!------------CRYSTAL-CRYSTAL INTERACTIONS-------------------------- +! if(t.le.TTCOAL) - no interactions between crystals +if(tt.gt.TTCOAL .and. iceprocs == 1) then + if (imbudget >= 1) then + totalprissnow = sum(g3)*col*1e-3/rho + micro_g(ngrid)%aggregatet(kdir,idir,jdir) = micro_g(ngrid)%aggregatet(kdir,idir,jdir) & + - totalprissnow + endif +!------------COLUMN-ICE COLLISIONS-------------------------------- +if(icol_column.eq.1) then + ! columns - columns = snow + CALL coll_xxy (g2_1,g3,cwii_1_1,xi1_mg, & + chucm,ima,prdkrn,nkr) + ! columns - plates = snow (xi1_mg ge xi2_mg) (kxyz=12) + ! plates - columns = snow (xi2_mg > xi1_mg) (kxyz=13) + if(icol_plate.eq.1) then + CALL coll_xyz (g2_1,g2_2,g3,cwii_1_2,xi1_mg,xi2_mg, & + chucm,ima,prdkrn,nkr,0) + CALL coll_xyz (g2_2,g2_1,g3,cwii_2_1,xi2_mg,xi1_mg, & + chucm,ima,prdkrn,nkr,1) + end if + ! columns - dendrites = snow (xi1_mg ge xi3_mg) (kxyz=14) + ! dendrites - columns = snow (xi3_mg > xi1_mg) (kxyz=15) + if(icol_dendrite.eq.1) then + CALL coll_xyz (g2_1,g2_3,g3,cwii_1_3,xi1_mg,xi3_mg, & + chucm,ima,prdkrn,nkr,0) + CALL coll_xyz (g2_3,g2_1,g3,cwii_3_1,xi3_mg,xi1_mg, & + chucm,ima,prdkrn,nkr,1) + end if + ! columns - snow = snow (xi1_mg ge xs_mg) (kxyy=3) + ! snow - columns = snow (xs_mg > xi1_mg) (kxyx=7) + if(icol_snow.eq.1) then +! call coll_xyy (g2_1,g3,cwis_1,xi1_mg,xs_mg, & +! chucm,ima,prdkrn,nkr,0) + CALL coll_xyx (g3,g2_1,cwsi_1,xs_mg,xi1_mg, & + chucm,ima,prdkrn,nkr,1) + endif +endif +!-----------------PLATES-ICE COLLISIONS------------------------- + ! plates - plates = snow +if(icol_plate.eq.1) then + CALL coll_xxy (g2_2,g3,cwii_2_2,xi2_mg, & + chucm,ima,prdkrn,nkr) + ! plates - dendrites = snow (xi2_mg ge xi3_mg) (kxyz=17) + ! dendrites - plates = snow (xi3_mg > xi2_mg) (kxyz=18) + if(icol_dendrite.eq.1) then + CALL coll_xyz (g2_2,g2_3,g3,cwii_2_3,xi2_mg,xi3_mg, & + chucm,ima,prdkrn,nkr,0) + CALL coll_xyz (g2_3,g2_2,g3,cwii_3_2,xi3_mg,xi2_mg, & + chucm,ima,prdkrn,nkr,1) + end if + ! plates - snow = snow (xi2_mg ge xs_mg) (kxyy=4) + ! snow - plates = snow (xs_mg > xi2_mg) (kxyx=12) + if(icol_snow.eq.1) then +! call coll_xyy (g2_2,g3,cwis_2,xi2_mg,xs_mg, & +! chucm,ima,prdkrn,nkr,0) + CALL coll_xyx (g3,g2_2,cwsi_2,xs_mg,xi2_mg, & + chucm,ima,prdkrn,nkr,1) + end if +endif +!------------DENDRITES-ICE COLLISIONS--------------------------- + ! dendrites - dendrites = snow +if(icol_dendrite.eq.1) then + CALL coll_xxy (g2_3,g3,cwii_3_3,xi3_mg, & + chucm,ima,prdkrn,nkr) + ! dendrites - snow = snow (xi3_mg ge xs_mg) (kxyy=5) + ! snow - dendrites = snow (xs_mg > xi3_mg) (kxyx=17) + if(icol_snow.eq.1) then +! call coll_xyy (g2_3,g3,cwis_3,xi3_mg,xs_mg, & +! chucm,ima,prdkrn,nkr,0) + CALL coll_xyx (g3,g2_3,cwsi_3,xs_mg,xi3_mg, & + chucm,ima,prdkrn,nkr,1) + end if +endif +!-------------SNOW-SNOW COLLISIONS------------------------------- + if(icol_snow.ne.0) then + ! snow - snow = snow + CALL coll_xxx_prd (g3,cwss,xs_mg,chucm,ima,prdkrn,nkr) + ! snow - graupel = snow (xs_mg > xg_mg) (kxyx=22) + ! graupel - snow = graupel (xg_mg ge xs_mg) (kxyx=23) + + !JF4 no snow-graupel interactions + ! if(icol_graupel.eq.1) then + ! call coll_xyx (g3,g4,cwsg,xs_mg,xg_mg, & + ! & chucm,ima,prdkrn,nkr,1) + ! endif + !end JF4 + endif + if (imbudget >= 1) then + totalprissnow = sum(g3)*col*1e-3/rho + micro_g(ngrid)%aggregatet(kdir,idir,jdir) = micro_g(ngrid)%aggregatet(kdir,idir,jdir) & + + totalprissnow + endif +endif + +!-------------END OF COLLISION CALCULATIONS------------------- + +! calculation of finish hydrometeors contents in g/cm**3 : +cont_fin_drop=0. +cont_fin_ice=0. +do kr=1,nkr + g2(kr,1)=g2_1(kr) + g2(kr,2)=g2_2(kr) + g2(kr,3)=g2_3(kr) + cont_fin_drop=cont_fin_drop+g1(kr) + cont_fin_ice=cont_fin_ice+g3(kr)+g4(kr)+g5(kr) + do ice=1,icemax + cont_fin_ice=cont_fin_ice+g2(kr,ice) + enddo +enddo +cont_fin_drop=col*cont_fin_drop*1.e-3 +cont_fin_ice=col*cont_fin_ice*1.e-3 +deldrop=cont_init_drop-cont_fin_drop +! deldrop in g/cm**3 +! resulted value of temperature (rob in g/cm**3) : +if(t_new.le.273.15) then + if(deldrop.ge.0.) then + t_new=t_new+320.*deldrop/rho + else +! if deldrop < 0 + if(abs(deldrop).gt.cont_init_drop*0.05) then + print *, '*** deldrop < 0 in coal_bott ***' + print *,'*** coal_bott ***' + print*,'cont_fin_drop = ',cont_fin_drop,cont_fin_ice + print*,'cont_init_drop = ',cont_init_drop,cont_init_ice + stop + endif + endif +endif + +! recalculation of density function f1,f2,f3,f4,f5 in 1/(g*cm**3) : +DO KR=1,NKR + FF1R(KR)=G1(KR)/(3.*XL(KR)*XL(KR)*1.E3) + FF2R(KR,1)=G2(KR,1)/(3*xi(KR,1)*XI(KR,1)*1.e3) + FF2R(KR,2)=G2(KR,2)/(3.*xi(KR,2)*XI(KR,2)*1.e3) + FF2R(KR,3)=G2(KR,3)/(3.*xi(KR,3)*XI(KR,3)*1.e3) + FF3R(KR)=G3(KR)/(3.*xs(kr)*xs(kr)*1.e3) + FF4R(KR)=G4(KR)/(3.*xg(kr)*xg(kr)*1.e3) + FF5R(KR)=G5(KR)/(3.*xh(kr)*xh(kr)*1.e3) +ENDDO + +tt=t_new + +RETURN +END SUBROUTINE COAL_BOTT_NEW + +!############################################################################## +Subroutine MISC1 (PP,cwll_1000mb,cwll_750mb,cwll_500mb,cwll,nkr) + +IMPLICIT NONE +INTEGER kr1,kr2,NKR +DOUBLE PRECISION PP +REAL P_Z +double precision cwll(nkr,nkr),cwll_1,cwll_2,cwll_3 & + ,cwll_1000mb(nkr,nkr),cwll_750mb(nkr,nkr),cwll_500mb(nkr,nkr) + +P_Z=PP +do kr1=1,nkr + do kr2=1,nkr + cwll_1=cwll_1000mb(kr1,kr2) + cwll_2=cwll_750mb(kr1,kr2) + cwll_3=cwll_500mb(kr1,kr2) + if(p_z.ge.p1) cwll(kr1,kr2)=cwll_1 + if(p_z.eq.p2) cwll(kr1,kr2)=cwll_2 + if(p_z.eq.p3) cwll(kr1,kr2)=cwll_3 + if(p_z.lt.p1.and.p_z.gt.p2) & + cwll(kr1,kr2)=cwll_2+ & + (cwll_1-cwll_2)*(p_z-p2)/(p1-p2) + if(p_z.lt.p2.and.p_z.gt.p3) & + cwll(kr1,kr2)=cwll_3+ & + (cwll_2-cwll_3)*(p_z-p3)/(p2-p3) + if(p_z.lt.p3) cwll(kr1,kr2)=cwll_3 + enddo +enddo + +RETURN +END SUBROUTINE MISC1 + +!############################################################################## +Subroutine coll_xxx (g,ckxx,x,chucm,ima,nkr) + +implicit double precision (a-h,o-z) +dimension g(nkr),ckxx(nkr,nkr),x(0:nkr) +dimension chucm(nkr,nkr) +double precision ima(nkr,nkr) +gmin=1.d-60 +! lower and upper integration limit ix0,ix1 +do i=1,nkr-1 + ix0=i + if(g(i).gt.gmin) exit +enddo + +if(ix0.eq.nkr-1) return + +do i=nkr-1,1,-1 + ix1=i + if(g(i).gt.gmin) exit +enddo + +do i=ix0,ix1 + do j=i,ix1 + k=ima(i,j) + kp=k+1 + x0=ckxx(i,j)*g(i)*g(j) + x0=min(x0,g(i)*x(j)) + if(j.ne.k) then + x0=min(x0,g(j)*x(i)) + endif + gsi=x0/x(j) + gsj=x0/x(i) + gsk=gsi+gsj + g(i)=g(i)-gsi + if(g(i).lt.0.d0) g(i)=0.d0 + g(j)=g(j)-gsj + gk=g(k)+gsk + if(g(j).lt.0.d0.and.gk.lt.gmin) then + g(j)=0.d0 + g(k)=g(k)+gsi + endif + flux=0.d0 + + if(gk.gt.gmin) then + x1=dlog(g(kp)/gk+1.d-15) + if (x1.eq.0)then + flux=0 + else + flux=gsk/x1*(dexp(0.5*x1)-dexp(x1*(0.5-chucm(i,j)))) + flux=min(flux,gsk) + end if + + g(k)=gk-flux + if(gk .lt. flux) flux=gk + if(g(k).lt.0.d0) g(k)=0.d0 + g(kp)=g(kp)+flux + endif + end do +end do + +return +END SUBROUTINE coll_xxx + +!############################################################################## +Subroutine coll_xxx_prd (g,ckxx,x,chucm,ima,prdkrn,nkr) + +implicit double precision (a-h,o-z) +dimension g(nkr),ckxx(nkr,nkr),x(0:nkr) +dimension chucm(nkr,nkr) +double precision ima(nkr,nkr) + +gmin=1.d-60 +! lower and upper integration limit ix0,ix1 +do i=1,nkr-1 + ix0=i + if(g(i).gt.gmin) exit +enddo + +if(ix0.eq.nkr-1) return + +do i=nkr-1,1,-1 + ix1=i + if(g(i).gt.gmin) exit +enddo + +do i=ix0,ix1 + do j=i,ix1 + k=ima(i,j) + kp=k+1 + x0=ckxx(i,j)*g(i)*g(j)*prdkrn + x0=min(x0,g(i)*x(j)) + if(j.ne.k) then + x0=min(x0,g(j)*x(i)) + endif + gsi=x0/x(j) + gsj=x0/x(i) + gsk=gsi+gsj + g(i)=g(i)-gsi + if(g(i).lt.0.d0) g(i)=0.d0 + g(j)=g(j)-gsj + gk=g(k)+gsk + if(g(j).lt.0.d0.and.gk.lt.gmin) then + g(j)=0.d0 + g(k)=g(k)+gsi + endif + flux=0.d0 + + if(gk.gt.gmin) then + x1=dlog(g(kp)/gk+1.d-15) + if (x1.eq.0)then + flux=0 + else + flux=gsk/x1*(dexp(0.5*x1)-dexp(x1*(0.5-chucm(i,j)))) + flux=min(flux,gsk) + end if + g(k)=gk-flux + if(gk .lt. flux) flux=gk + + if(g(k).lt.0.d0) g(k)=0.d0 + g(kp)=g(kp)+flux + endif + enddo +enddo + +return +END SUBROUTINE coll_xxx_prd + +!############################################################################## +Subroutine modkrn (TT,QQ,PP,PRDKRN,TTCOAL) + +implicit none +real epsf,tc,ttt1,ttt,factor,qs2,qq1,dele,f,factor_t +double precision TT,QQ,PP,satq2,t,p +double precision prdkrn +REAL at,bt,ct,dt,temp,a,b,c,d,tc_min,tc_max +real factor_max,factor_min +REAL TTCOAL +data at,bt,ct,dt/0.88333,0.0931878,0.0034793,4.5185186e-05/ + +satq2(t,p)=3.80e3*(10**(9.76421-2667.1/t))/p +temp(a,b,c,d,tc)=d*tc*tc*tc+c*tc*tc+b*tc+a + +IF (QQ.LE.0)QQ=1.0E-12 +epsf=.5 +tc=tt-273.15 +if(tc.le.0) then + ttt1 =temp(at,bt,ct,dt,tc) + ttt =ttt1 + qs2 =satq2(tt,pp) + qq1 =qq*(0.622+0.378*qs2)/(0.622+0.378*qq)/qs2 + dele =ttt*qq1 + if(tc.ge.-6.) then + factor = dele + if(factor.lt.epsf) factor=epsf + if(factor.gt.1.) factor=1. + endif + factor_t=factor + if(tc.ge.-12.5.and.tc.lt.-6.) factor_t=0.5 + if(tc.ge.-17.0.and.tc.lt.-12.5) factor_t=1. + if(tc.ge.-20.0.and.tc.lt.-17.) factor_t=0.4 + if(tc.lt.-20.) then + tc_min=ttcoal-273.15 + tc_max=-20. + factor_max=0.25 + factor_min=0. + f=factor_min+(tc-tc_min)*(factor_max-factor_min)/ & + (tc_max-tc_min) + factor_t=f + endif + if (factor_t.lt.0)factor_t=0.01 + prdkrn=factor_t +else + prdkrn=1.d0 +end if + +RETURN +END SUBROUTINE modkrn + +!############################################################################## +Subroutine coll_xxy (gx,gy,ckxx,x,chucm,ima,prdkrn,nkr) + +implicit double precision (a-h,o-z) +dimension chucm(nkr,nkr) +double precision ima(nkr,nkr) +dimension gx(nkr),gy(nkr),ckxx(nkr,nkr),x(0:nkr) + +gmin=1.d-60 +! lower and upper integration limit ix0,ix1 +do i=1,nkr-1 + ix0=i + if(gx(i).gt.gmin) exit +enddo + +if(ix0.eq.nkr-1) return + +do i=nkr-1,1,-1 + ix1=i + if(gx(i).gt.gmin) exit +enddo + +! collisions +do i=ix0,ix1 + do j=i,ix1 + k=ima(i,j) + kp=k+1 + x0=ckxx(i,j)*gx(i)*gx(j)*prdkrn + x0=min(x0,gx(i)*x(j)) + x0=min(x0,gx(j)*x(i)) + gsi=x0/x(j) + gsj=x0/x(i) + gsk=gsi+gsj + gx(i)=gx(i)-gsi + if(gx(i).lt.0.d0) gx(i)=0.d0 + gx(j)=gx(j)-gsj + if(gx(j).lt.0.d0) gx(j)=0.d0 + gk=gy(k)+gsk + flux=0.d0 + if(gk.gt.gmin) then + x1=dlog(gy(kp)/gk+1.d-15) + if (x1.eq.0)then + flux=0 + else + flux=gsk/x1*(dexp(0.5*x1)-dexp(x1*(0.5-chucm(i,j)))) + flux=min(flux,gsk) + end if + gy(k)=gk-flux + if(gk .lt. flux) flux=gk + if(gy(k).lt.0.d0) gy(k)=0.d0 + gy(kp)=gy(kp)+flux + endif + enddo +enddo + +return +END SUBROUTINE coll_xxy + +!############################################################################## +Subroutine coll_xyy (gx,gy,ckxy,x,y,chucm,ima, & + prdkrn,nkr,indc) + +implicit double precision (a-h,o-z) +dimension gy(nkr),gx(nkr),ckxy(nkr,nkr),x(0:nkr),y(0:nkr) +dimension chucm(nkr,nkr) +double precision ima(nkr,nkr) + +gmin=1.d-60 +! lower and upper integration limit ix0,ix1 +do i=1,nkr-1 + ix0=i + if(gx(i).gt.gmin) exit +enddo + +if(ix0.eq.nkr-1) return + +do i=nkr-1,1,-1 + ix1=i + if(gx(i).gt.gmin) exit +enddo + +! lower and upper integration limit iy0,iy1 +do i=1,nkr-1 + iy0=i + if(gy(i).gt.gmin) exit +enddo + +if(iy0.eq.nkr-1) return + +do i=nkr-1,1,-1 + iy1=i + if(gy(i).gt.gmin) exit +enddo + +! collisions : +do i=iy0,iy1 + jmin=i + if(jmin.eq.(nkr-1)) return + if(i.lt.ix0) jmin=ix0-indc + do j=jmin+indc,ix1 + k=ima(i,j) + kp=k+1 + x0=ckxy(j,i)*gy(i)*gx(j)*prdkrn + x0=min(x0,gy(i)*x(j)) + x0=min(x0,gx(j)*y(i)) + gsi=x0/x(j) + gsj=x0/y(i) + gsk=gsi+gsj + gy(i)=gy(i)-gsi + if(gy(i).lt.0.d0) gy(i)=0.d0 + gx(j)=gx(j)-gsj + if(gx(j).lt.0.d0) gx(j)=0.d0 + gk=gy(k)+gsk + flux=0.d0 + if(gk.gt.gmin) then + x1=dlog(gy(kp)/gk+1.d-15) + if (x1.eq.0)then + flux=0 + else + flux=gsk/x1*(dexp(0.5*x1)-dexp(x1*(0.5-chucm(i,j)))) + flux=min(flux,gsk) + end if + gy(k)=gk-flux + if(gk .lt. flux) flux=gk + if(gy(k).lt.0.d0) gy(k)=0.d0 + gy(kp)=gy(kp)+flux + endif + enddo +enddo + +return +END SUBROUTINE coll_xyy + +!############################################################################## +Subroutine coll_xyx (gx,gy,ckxy,x,y,chucm,ima,prdkrn,nkr,indc) + +implicit double precision (a-h,o-z) +dimension gy(nkr),gx(nkr),ckxy(nkr,nkr),x(0:nkr),y(0:nkr) +dimension chucm(nkr,nkr) +double precision ima(nkr,nkr) + +gmin=1.d-60 +! lower and upper integration limit ix0,ix1 +do i=1,nkr-1 + ix0=i + if(gx(i).gt.gmin) exit +enddo + +if(ix0.eq.nkr-1) return + +do i=nkr-1,1,-1 + ix1=i + if(gx(i).gt.gmin) exit +enddo + +! lower and upper integration limit iy0,iy1 +do i=1,nkr-1 + iy0=i + if(gy(i).gt.gmin) exit +enddo + +if(iy0.eq.nkr-1) return + +do i=nkr-1,1,-1 + iy1=i + if(gy(i).gt.gmin) exit +enddo + +! collisions : +do i=iy0,iy1 + jmin=i + if(jmin.eq.(nkr-1)) return + if(i.lt.ix0) jmin=ix0-indc + do j=jmin+indc,ix1 + k=ima(i,j) + kp=k+1 + x0=ckxy(j,i)*gy(i)*gx(j)*prdkrn + x0=min(x0,gy(i)*x(j)) + if(j.ne.k) then + x0=min(x0,gx(j)*y(i)) + endif + gsi=x0/x(j) + gsj=x0/y(i) + gsk=gsi+gsj + gy(i)=gy(i)-gsi + if(gy(i).lt.0.d0) gy(i)=0.d0 + gx(j)=gx(j)-gsj + gk=gx(k)+gsk + if(gx(j).lt.0.d0.and.gk.lt.gmin) then + gx(j)=0.d0 + gx(k)=gx(k)+gsi + endif + flux=0.d0 + if(gk.gt.gmin) then + x1=dlog(gx(kp)/gk+1.d-15) + if (x1.eq.0)then + flux=0 + else + flux=gsk/x1*(dexp(0.5*x1)-dexp(x1*(0.5-chucm(i,j)))) + flux=min(flux,gsk) + end if + gx(k)=gk-flux + if(gk .lt. flux) flux=gk + + if(gx(k).lt.0.d0) gx(k)=0.d0 + gx(kp)=gx(kp)+flux + endif + enddo +enddo + +return +END SUBROUTINE coll_xyx + +!############################################################################## +Subroutine coll_xyxz (gx,gy,gz,ckxy,x,y,chucm,ima, & + prdkrn,nkr,indc, kp_bound) + +implicit double precision (a-h,o-z) +dimension gy(nkr),gx(nkr),gz(nkr),ckxy(nkr,nkr),x(0:nkr),y(0:nkr) +dimension chucm(nkr,nkr) +double precision ima(nkr,nkr) +integer kp_bound + +gmin=1.d-60 +! lower and upper integration limit ix0,ix1 +do i=1,nkr-1 + ix0=i + if(gx(i).gt.gmin) exit +enddo + +if(ix0.eq.nkr-1) return + +do i=nkr-1,1,-1 + ix1=i + if(gx(i).gt.gmin) exit +enddo + +! lower and upper integration limit iy0,iy1 +do i=1,nkr-1 + iy0=i + if(gy(i).gt.gmin) exit +enddo + +if(iy0.eq.nkr-1) return + +do i=nkr-1,1,-1 + iy1=i + if(gy(i).gt.gmin) exit +enddo + +! collisions : +do i=iy0,iy1 + jmin=i + if(jmin.eq.(nkr-1)) return + if(i.lt.ix0) jmin=ix0-indc + do j=jmin+indc,ix1 + k=ima(i,j) + kp=k+1 + x0=ckxy(j,i)*gy(i)*gx(j)*prdkrn + x0=min(x0,gy(i)*x(j)) + if(j.ne.k) then + x0=min(x0,gx(j)*y(i)) + endif + gsi=x0/x(j) + gsj=x0/y(i) + gsk=gsi+gsj + gy(i)=gy(i)-gsi + if(gy(i).lt.0.d0) gy(i)=0.d0 + gx(j)=gx(j)-gsj + gk=gx(k)+gsk + if(gx(j).lt.0.d0.and.gk.lt.gmin) then + gx(j)=0.d0 + gx(k)=gx(k)+gsi + endif + flux=0.d0 + if(kp.lt.kp_bound) gkp=gx(kp) + if(kp.ge.kp_bound) gkp=gz(kp) + if(gk.gt.gmin) then + x1=dlog(gkp/gk+1.d-15) + if (x1.eq.0)then + flux=0 + else + flux=gsk/x1*(dexp(0.5*x1)-dexp(x1*(0.5-chucm(i,j)))) + flux=min(flux,gsk) + end if + gx(k)=gk-flux + if(gk .lt. flux) flux=gk + + if(gx(k).lt.0.d0) gx(k)=0.d0 + if(kp.lt.kp_bound) gx(kp)=gkp+flux + if(kp.ge.kp_bound) gz(kp)=gkp+flux + + endif + enddo +enddo + +return +END SUBROUTINE coll_xyxz + +!############################################################################## +Subroutine coll_xyz (gx,gy,gz,ckxy,x,y,chucm,ima, & + prdkrn,nkr,indc) + +implicit double precision (a-h,o-z) +dimension gx(nkr),gy(nkr),gz(nkr),ckxy(nkr,nkr),x(0:nkr),y(0:nkr) +dimension chucm(nkr,nkr) +double precision ima(nkr,nkr) + +gmin=1.d-60 +! lower and upper integration limit ix0,ix1 +do i=1,nkr-1 + ix0=i + if(gx(i).gt.gmin) exit +enddo + +if(ix0.eq.nkr-1) return + +do i=nkr-1,1,-1 + ix1=i + if(gx(i).gt.gmin) exit +enddo +! lower and upper integration limit iy0,iy1 +do i=1,nkr-1 + iy0=i + if(gy(i).gt.gmin) exit +enddo + +if(iy0.eq.nkr-1) return + +do i=nkr-1,1,-1 + iy1=i + if(gy(i).gt.gmin) exit +enddo + +! collisions : +do i=iy0,iy1 + jmin=i + if(jmin.eq.(nkr-1)) return + if(i.lt.ix0) jmin=ix0-indc + do j=jmin+indc,ix1 + k=ima(i,j) + kp=k+1 + x0=ckxy(j,i)*gy(i)*gx(j)*prdkrn + x0=min(x0,gy(i)*x(j)) + x0=min(x0,gx(j)*y(i)) + gsi=x0/x(j) + gsj=x0/y(i) + gsk=gsi+gsj + gy(i)=gy(i)-gsi + if(gy(i).lt.0.d0) gy(i)=0.d0 + gx(j)=gx(j)-gsj + if(gx(j).lt.0.d0) gx(j)=0.d0 + gk=gz(k)+gsk + flux=0.d0 + if(gk.gt.gmin) then + x1=dlog(gz(kp)/gk+1.d-15) + if (x1.eq.0)then + flux=0 + else + flux=gsk/x1*(dexp(0.5*x1)-dexp(x1*(0.5-chucm(i,j)))) + flux=min(flux,gsk) + end if + gz(k)=gk-flux + if(gk .lt. flux) flux=gk + + if(gz(k).lt.0.d0) gz(k)=0.d0 + gz(kp)=gz(kp)+flux + endif + enddo +enddo + +return +END SUBROUTINE coll_xyz + +!############################################################################## +Subroutine coll_xyyz (gx,gy,gz,ckxy,x,y,chucm,ima,prdkrn,nkr,indc,kp_bound) + +implicit double precision (a-h,o-z) +dimension gy(nkr),gx(nkr),gz(nkr),ckxy(nkr,nkr),x(0:nkr),y(0:nkr) +dimension chucm(nkr,nkr) +double precision ima(nkr,nkr) +integer kp_bound + +gmin=1.d-60 +! lower and upper integration limit ix0,ix1 +do i=1,nkr-1 + ix0=i + if(gx(i).gt.gmin) exit +enddo + +if(ix0.eq.nkr-1) return + +do i=nkr-1,1,-1 + ix1=i + if(gx(i).gt.gmin) exit +enddo +! lower and upper integration limit iy0,iy1 +do i=1,nkr-1 + iy0=i + if(gy(i).gt.gmin) exit +enddo + +if(iy0.eq.nkr-1) return + +do i=nkr-1,1,-1 + iy1=i + if(gy(i).gt.gmin) exit +enddo + +! collisions : +do i=iy0,iy1 + jmin=i + if(jmin.eq.(nkr-1)) return + if(i.lt.ix0) jmin=ix0-indc + do j=jmin+indc,ix1 + k=ima(i,j) + kp=k+1 + x0=ckxy(j,i)*gy(i)*gx(j)*prdkrn + x0=min(x0,gy(i)*x(j)) + x0=min(x0,gx(j)*y(i)) +! if(j.ne.k) then +! x0=min(x0,gx(j)*y(i)) +! endif + gsi=x0/x(j) + gsj=x0/y(i) + gsk=gsi+gsj + gy(i)=gy(i)-gsi + if(gy(i).lt.0.d0) gy(i)=0.d0 + gx(j)=gx(j)-gsj + if(gx(j).lt.0.d0) gx(j)=0.d0 + gk=gy(k)+gsk + flux=0.d0 + if(kp.lt.kp_bound) gkp=gy(kp) + if(kp.ge.kp_bound) gkp=gz(kp) + if(gk.gt.gmin) then + x1=dlog(gkp/gk+1.d-15) + if (x1.eq.0)then + flux=0 + else + flux=gsk/x1*(dexp(0.5*x1)-dexp(x1*(0.5-chucm(i,j)))) + flux=min(flux,gsk) + end if + gy(k)=gk-flux + if(gk .lt. flux) flux=gk + + if(gy(k).lt.0.d0) gy(k)=0.d0 + if(kp.lt.kp_bound) gy(kp)=gkp+flux + if(kp.ge.kp_bound) gz(kp)=gkp+flux + endif + enddo +enddo + +return +END SUBROUTINE coll_xyyz + +!############################################################################## +Subroutine breakup (GT_MG,XT_MG,DT,BRKWEIGHT,PKIJ,QKJ,JMAX,JBREAK) + +!.....INPUT VARIABLES +! +! GT : MASS DISTRIBUTION function +! XT_MG : MASS OF BIN IN MG +! JMAX : NUMBER OF BINS +! DT : TIMESTEP IN S + +INTEGER JMAX + +!.....LOCAL VARIABLES + +INTEGER JBREAK,AP,IA,JA,KA,IE,JE,KE +DOUBLE PRECISION EPS,NEGSUM + +PARAMETER (AP = 1) +PARAMETER (IA = 1) +PARAMETER (JA = 1) +PARAMETER (KA = 1) +PARAMETER (EPS = 1.D-20) + +INTEGER I,J,K,JDIFF +DOUBLE PRECISION GT_MG(JMAX),XT_MG(0:JMAX),DT +DOUBLE PRECISION BRKWEIGHT(JBREAK),PKIJ(JBREAK,JBREAK,JBREAK), & + QKJ(JBREAK,JBREAK) +DOUBLE PRECISION HLP(JMAX) +DOUBLE PRECISION FT(JMAX),FA(JMAX) +DOUBLE PRECISION DG(JMAX),DF(JMAX),DBREAK(JBREAK),GAIN,LOSS +REAL PI +PARAMETER (PI = 3.1415927) +IE = JBREAK +JE = JBREAK +KE = JBREAK +!.....IN CGS + +!.....SHIFT BETWEEN COAGULATION AND BREAKUP GRID + +JDIFF = JMAX - JBREAK + +!.....INITIALIZATION + +!.....TRANSFORMATION FROM G(LN X) = X**2 F(X) TO F(X) +DO J=1,JMAX + FT(J) = GT_MG(J) / XT_MG(J)**2 +ENDDO + +!.....SHIFT TO BREAKUP GRID + +DO K=1,KE + FA(K) = FT(K+JDIFF) +ENDDO + +!.....BREAKUP: BLECK'S FIRST ORDER METHOD +! +! PKIJ: GAIN COEFFICIENTS +! QKJ : LOSS COEFFICIENTS +! + +DO K=1,KE + GAIN = 0.0 + DO I=1,IE + DO J=1,I + GAIN = GAIN + FA(I)*FA(J)*PKIJ(K,I,J) + ENDDO + ENDDO + LOSS = 0.0 + DO J=1,JE + LOSS = LOSS + FA(J)*QKJ(K,J) + ENDDO + DBREAK(K) = BRKWEIGHT(K) * (GAIN - FA(K)*LOSS) +ENDDO + +!.....SHIFT RATE TO COAGULATION GRID + +DO J=1,JDIFF + DF(J) = 0.0 +ENDDO +DO J=1,KE + DF(J+JDIFF) = DBREAK(J) +ENDDO +!.....TRANSFORMATION TO MASS DISTRIBUTION function G(LN X) + +DO J=1,JMAX + DG(J) = DF(J) * XT_MG(J)**2 +ENDDO + +!.....TIME INTEGRATION + +DO J=1,JMAX +HLP(J) = 0.0 +NEGSUM = 0.0 +GT_MG(J) = GT_MG(J) + DG(J) * DT +IF (GT_MG(J).LT.0) THEN + HLP(J) = MIN(GT_MG(J),HLP(J)) + GT_MG(J) = EPS +ENDIF +ENDDO + +RETURN +END SUBROUTINE breakup + +!############################################################################## +Subroutine ccn_reg (fccn0,fccnin,fccnout,nkr,ccnreg, & + ff1r,xl,ff2r,xi,ff3r,xs,ff4r,xg) + +!!! added for ccn regeneration (J. Fan Oct 2007) + +implicit none + +real delccn0,delccn,dn0,total,totalcn,totalhydro,coeff +real ccnreg +integer nkr, kr +real fccn0(nkr), fccnin(nkr) +real ff1r(nkr), ff2r(nkr,3),ff3r(nkr),ff4r(nkr) +real xl(nkr) ,xi(nkr,3),xs(nkr),xg(nkr) +real ccn0(nkr), regcn0(nkr), regcn(nkr) + +real fccnout(nkr) + +!----------------------------------- +! total number of ccn in the "ideal" spectrum +!--------------------------------------------------- +dn0=0. +do kr=1,nkr + dn0=dn0+fccn0(kr)*col +end do +!----------------------------------- +! total ccn in the current spectrum if all drops evaporated +!---------------------------------- +totalcn=0. +do kr=1,nkr + totalcn=totalcn+fccnin(kr)*col +end do +totalhydro=0. +do kr=1,nkr + totalhydro=totalhydro+ff1r(kr)*col3*xl(kr) & + +ff2r(kr,1)*col3*xi(kr,1) & + +ff2r(kr,2)*col3*xi(kr,2) & + +ff2r(kr,3)*col3*xi(kr,3) & + +ff3r(kr)*col3*xs(kr) & + +ff4r(kr)*col3*xg(kr) +end do +totalhydro = totalhydro + ccnreg +total=totalhydro+totalcn +coeff=total/dn0 +!------------------------------------------ +! spectrum of ccn if all drops evaporated +!--------------------------------------------- +delccn0=0. +do kr=1,nkr + delccn0=delccn0+amax1(0.,(fccn0(kr)*col*coeff-fccnin(kr)*col)) +end do +if(abs(delccn0).gt.1.e-5) then + do kr=1,nkr + regcn0(kr)=amax1(0.,(fccn0(kr)*col*coeff-fccnin(kr)*col))/delccn0 + ccn0(kr)=fccnin(kr)+totalhydro*regcn0(kr)/col + end do +else + do kr=1,nkr + ccn0(kr)=fccnin(kr) + end do +end if ! abs(delccn)... + +if (ccnreg > 0.) then + delccn=0. + do kr=1,nkr + delccn=delccn+amax1(0.,(ccn0(kr)*col-fccnin(kr)*col)) + end do + if(abs(delccn).gt.1.e-5) then + do kr=1,nkr + regcn(kr)=amax1(0.,(ccn0(kr)*col-fccnin(kr)*col))/delccn + fccnout(kr)=fccnin(kr)+ccnreg*regcn(kr)/col + end do + end if ! abs(delccn)... +end if ! cdreg.gt... + +return +END SUBROUTINE ccn_reg + +!############################################################################## +Subroutine ccn_reg2 (fccnin,fccnout,rccn,nkr,ccnreg) + +! ANother module to add ccnreg evenly to the bins with radius no less than 0.05 um + +implicit none + +real ccnreg +integer nkr, kr +real rccn(nkr) +real fccnin(nkr) +real fccnout(nkr) +integer countn + +countn = 0 +do kr = 1, nkr + if (rccn(kr) .GE. 0.05*1.e-4) countn=countn+1 +enddo + +! ccnreg ia added evenly to the bins larger than 0.05 um (radius) + +if (ccnreg > 0.) then + do kr=nkr-countn+1,nkr + fccnout(kr)=fccnin(kr)+ ccnreg/col/float(countn) + end do +endif + +return +END SUBROUTINE ccn_reg2 + +!############################################################################## +Subroutine evapfrz (ccnreg,frzfract,NKR,ICEMAX, TT, DT, xi,ff2r,rndrop) + +! for dropet freezing + +IMPLICIT NONE +DOUBLE PRECISION TT +integer nkr, icemax +REAL,DIMENSION (nkr,icemax) ::FF2R, xi +real rndrop +real ccnreg +real dt +real TPC, dx +integer ITYPE, ice +real frzfract, nfreez + +! Type of ice +TPC=TT-273.15 +ITYPE=0 +IF((TPC.GT.-4.0).OR.(TPC.LE.-8.1.AND.TPC.GT.-12.7).OR.& + (TPC.LE.-17.8.AND.TPC.GT.-22.4)) THEN + ITYPE=2 +ELSE + IF((TPC.LE.-4.0.AND.TPC.GT.-8.1).OR.(TPC.LE.-22.4)) THEN + ITYPE=1 + ELSE + ITYPE=3 + ENDIF +ENDIF + +ice=ITYPE + +nfreez = frzfract*ccnreg !cm-3 +! put it in the smallest bin of ice crystal +DX=3.*XI(1,ICE)*COL +ff2r(1,ICE) = ff2r(1,ICE) + nfreez/DX +rndrop= nfreez/DT !cm-3 s-1 + +return +END SUBROUTINE evapfrz + +END MODULE module_hujisbm diff --git a/src/6.2.16/mksfc/geodat.f90 b/src/6.2.16/mksfc/geodat.f90 new file mode 100644 index 0000000..608fe25 --- /dev/null +++ b/src/6.2.16/mksfc/geodat.f90 @@ -0,0 +1,519 @@ +!############################################################################## +Subroutine geodat (n2,n3,datr,hfn,ofn,vt2da,vt2db,ngr,vnam) + +use mem_grid +use io_params +use node_mod + +implicit none + +integer :: n2,n3,ngr +real :: vt2da(*),vt2db(*),datr(n2,n3) +character(len=strl1) :: hfn,ofn,title,h5name +character(len=3) :: vnam + +integer :: lb,iblksizo,no,isbego,iwbego,iodim,mof,niq,njq,np +real :: offlat,offlon,deltallo,deltaxq,deltaxp + +real,allocatable:: dato(:) + +print*,'=====================================================' +if(VNAM(1:2).eq.'TO') then + print*,'starting topography on grid:',NGR +elseif(VNAM(1:2).eq.'ZO') then + print*,'starting surface roughness on grid:',NGR +else + print*,'starting '//vnam//' data on grid:',NGR +endif + +LB=len_trim(HFN) +if(LB.le.0) then + print*,'===================================================' + print*,'| Problem in GEODAT, Input data prefix incorrect !' + print*,'| Grid :',ngrid + print*,'| File prefix:',HFN + print*,'===================================================' + stop 'GEODAT-file' +endif + +if((vnam(1:2).eq.'TO'.or.vnam(1:2).eq.'ZO').and. & + (ITOPSFLG(NGR).eq.1.and.TOPTENH(NGR).gt.1.)) then + print*,'===================================================' + print*,'| Problem in GEODAT, Silhouette weight too high !' + print*,'| Grid :',NGR + print*,'| Weight (range TOPTENH=0-1):',TOPTENH(NGR) + print*,'===================================================' + stop 'GEODAT' +endif + +! configure grid specs for raw data to rams grid (R) transfer + +! raw data grid (O) +TITLE=HFN(1:LB)//'HEADER' +LB=len_trim(TITLE) +CALL rams_f_open (29,title(1:lb),'FORMATTED','OLD','READ',0) +READ(29,*,end=1)IBLKSIZO,NO,ISBEGO,IWBEGO,offlat,offlon,h5name +1 continue +CLOSE(29) +DELTALLO=FLOAT(IBLKSIZO)/FLOAT(NO-1) + +iodim=max(100000,4*no*no) +MOF=IODIM/(NO*NO) + + allocate(dato(iodim+mof+mof)) + +! temp grid (Q) - smoothing only applied to topo +if(vnam(1:2).eq.'TO') then + DELTAXQ=0.5*TOPTWVL(NGR)*DELTAXN(NGR) +else + DELTAXQ=DELTAXN(NGR) +endif +NIQ=INT(FLOAT(N2-1)*DELTAXN(NGR)/DELTAXQ)+4 +NJQ=INT(FLOAT(N3-1)*DELTAXN(NGR)/DELTAXQ)+4 + +! interpollated raw data grid (P) +NP=MIN(10,MAX(1,INT(DELTAXQ/(DELTALLO*111000.)))) +DELTAXP=DELTAXQ/FLOAT(NP) + +! Need to line up XTN and YTN with this sub-domain. Do this by setting the +! addresses for the xt and yt arguments to 1 plus the x and y offsets associated +! with the sub-domain. +CALL sfcopqr (NO,MOF,NP,NIQ,NJQ,N2,N3,XTN(MI0(NGR)+1,NGR),YTN(MJ0(NGR)+1,NGR) & + ,polelat,polelon & + ,DELTALLO,DELTAXP,DELTAXQ,IBLKSIZO & + ,ISBEGO,IWBEGO,DATO(1),VT2DA,VT2DB,DATR & + ,OFN,offlat,offlon,VNAM,NGR,itopsflg(ngr),iz0flg(ngr),h5name) + +deallocate(dato) + +return +END SUBROUTINE geodat + +!############################################################################## +Subroutine sfcopqr (no,mof,np,niq,njq,n2,n3,xt,yt,polelat,polelon & + ,deltallo,deltaxp,deltaxq,iblksizo & + ,isbego,iwbego,dato,datp,datq,datr & + ,ofn,offlat,offlon,vnam,ngr,itopsflg,iz0flg,h5name) + +use grid_dims +use node_mod +use hdf5_utils + +implicit none + +integer :: no,mof,np,niq,njq,n2,n3,iblksizo,isbego,iwbego,ngr & + ,itopsflg,iz0flg +real :: dato(no,no,mof),datp(np,np),datq(niq,njq),datr(n2,n3) & + ,xt(n2),yt(n3) +real :: deltallo,deltaxp,deltaxq,offlat,offlon +character(len=strl1) :: ofn,title3 +character(len=3) :: title1,vnam +character(len=4) :: title2 +character(len=*) :: h5name +logical :: l1,l2 +character(len=strl1) :: fnmiss(maxmiss) +real, allocatable :: sdq(:,:),shaq(:,:),sdr(:,:),datre(:,:) +real, allocatable :: iso(:),iwo(:) + +real :: polelat,polelon,xcentr,ycentr,glatp,glonp,rio_full,rjo_full & + ,xq,yq,xp,yp,wio1,wio2,wjo1,wjo2,sha,rha,rh2,sh,rh & + ,xq1,yq1,xr,yr,rval,diff,difflcl +integer :: nmiss,nono,nofr,iof,iq,jq,ip,jp,iwoc,isoc,io1,io2,jo1,jo2 & + ,lb,nn,isocpt,isocpo,iwocpo,iwocph,iwocpt,io_full,jo_full & + ,iofr,jofr,ir,jr,is,js,i,j + +integer*8 :: h5_fid +integer :: iphdf5 +type (hdf5_select_type) :: mem_select,file_select + +if (nmachs .gt. 1) then + iphdf5 = 1 +else + iphdf5 = 0 +endif + +allocate (sdq(niq,njq),shaq(niq,njq),sdr(n2,n3),datre(n2,n3)) +allocate (iso(mof),iwo(mof)) + +nmiss=0 + +nono=no*no +XCENTR=0.5*(XT(1)+XT(N2)) +YCENTR=0.5*(YT(1)+YT(N3)) +NOFR=0 +DO IOF=1,MOF + ISO(IOF)=0 + IWO(IOF)=0 +ENDDO +DO JQ=1,NJQ + DO IQ=1,NIQ + XQ=(FLOAT(IQ)-0.5*FLOAT(NIQ+1))*DELTAXQ+XCENTR + YQ=(FLOAT(JQ)-0.5*FLOAT(NJQ+1))*DELTAXQ+YCENTR + DO JP=1,NP + DO IP=1,NP + XP=XQ+(FLOAT(IP)-0.5*FLOAT(NP+1))*DELTAXP + YP=YQ+(FLOAT(JP)-0.5*FLOAT(NP+1))*DELTAXP + + CALL xy_ll (GLATP,GLONP,polelat,polelon,xp,yp) + + glatp = max(-89.9999,min(89.9999,glatp - offlat)) + glonp = max(-179.999,min(179.999,glonp - offlon)) + + if (glonp >= 180.) glonp = glonp - 360. + if (glonp <= -180.) glonp = glonp + 360. + + rio_full = (glonp - float(iwbego)) / deltallo + rjo_full = (glatp - float(isbego)) / deltallo + + io_full = int(rio_full) + jo_full = int(rjo_full) + + iwoc = (io_full / (no-1)) * iblksizo + iwbego + isoc = (jo_full / (no-1)) * iblksizo + isbego + + wio2 = rio_full - float(io_full) + wjo2 = rjo_full - float(jo_full) + + wio1 = 1. - wio2 + wjo1 = 1. - wjo2 + + io1 = mod(io_full,no-1) + 1 + jo1 = mod(jo_full,no-1) + 1 + + io2 = io1 + 1 + jo2 = jo1 + 1 + + DO IOFR=1,NOFR + JOFR=IOFR + IF(ISO(IOFR).EQ.ISOC.AND.IWO(IOFR).EQ.IWOC)GO TO 10 + ENDDO + + ISOCPT=ABS(ISOC)/10 + ISOCPO=ABS(ISOC)-ISOCPT*10 + IWOCPH=ABS(IWOC)/100 + IWOCPT=(ABS(IWOC)-IWOCPH*100)/10 + IWOCPO=ABS(IWOC)-IWOCPH*100-IWOCPT*10 + IF(ISOC.GE.0) THEN + WRITE(TITLE1,'(2I1,A1)')ISOCPT,ISOCPO,'N' + ELSE + WRITE(TITLE1,'(2I1,A1)')ISOCPT,ISOCPO,'S' + ENDIF + IF(IWOC.GE.0) THEN + !Saleeby(2009) Put in statement to solve SST dateline issues + if(vnam.eq.'SST') then + WRITE(TITLE2,'(4A1)')'0','0','0','E' + else + WRITE(TITLE2,'(3I1,A1)')IWOCPH,IWOCPT,IWOCPO,'E' + endif + ELSE + WRITE(TITLE2,'(3I1,A1)')IWOCPH,IWOCPT,IWOCPO,'W' + ENDIF + + !Determine data file name and see if it exists + LB=len_trim(OFN) + TITLE3=OFN(1:LB)//TITLE1//TITLE2 + LB=len_trim(TITLE3) + title3=title3(1:lb)//'.h5' + inquire(file=trim(title3),exist=l1,opened=l2) + + IF(.NOT.L1)THEN + do nn=1,nmiss + if(trim(TITLE3).eq.fnmiss(nn)) goto 302 + enddo + nmiss=nmiss+1 + fnmiss(nmiss)=trim(TITLE3) +302 continue + DATP(IP,JP)=0. + GOTO 20 + ENDIF + + IF(NOFR.GE.MOF) THEN + DO IOF=1,MOF + ISO(IOF)=0 + IWO(IOF)=0 + ENDDO + NOFR=0 + ENDIF + NOFR=NOFR+1 + JOFR=NOFR + + !Open h5 data file and retrieve data + ! Set the hyperslab specs to read the entire dataset + mem_select%ndims = 2 + mem_select%dims(1:2) = (/ no, no /) + mem_select%block(1:2) = (/ no, no /) + mem_select%count(1:2) = (/ 1, 1 /) + mem_select%offset(1:2) = (/ 0, 0 /) + mem_select%stride(1:2) = (/ 1, 1 /) + + file_select%ndims = 2 + file_select%dims(1:2) = (/ no, no /) + file_select%block(1:2) = (/ no, no /) + file_select%count(1:2) = (/ 1, 1 /) + file_select%offset(1:2) = (/ 0, 0 /) + file_select%stride(1:2) = (/ 1, 1 /) + + CALL shdf5_open (title3,'R',iphdf5,h5_fid) + CALL shdf5_irec (h5_fid,iphdf5,trim(h5name),mem_select & + ,file_select,rvara=dato(1,1,nofr)) + CALL shdf5_close (h5_fid) + + ISO(NOFR)=ISOC + IWO(NOFR)=IWOC + +10 CONTINUE + + datp(ip,jp)=wio1*(wjo1*dato(io1,jo1,jofr) & + +wjo2*dato(io1,jo2,jofr)) & + +wio2*(wjo1*dato(io2,jo1,jofr) & + +wjo2*dato(io2,jo2,jofr)) + +20 CONTINUE + ENDDO + ENDDO + +! std dev for envelope orog and topo based zo schemes + SHA=0. + RHA=0. + RH2=0. + DO JP=1,NP + SH=0. + RH=0. + DO IP=1,NP + SH=MAX(SH,DATP(IP,JP)) + RH=RH+DATP(IP,JP) + RH2=RH2+DATP(IP,JP)**2 + ENDDO + SHA=SHA+SH/(2.*FLOAT(NP)) + RHA=RHA+RH + ENDDO + DATQ(IQ,JQ)=RHA/FLOAT(NP*NP) + SDQ(IQ,JQ)=SQRT(max(0.,RH2/NP**2-DATQ(IQ,JQ)**2)) + DO IP=1,NP + SH=0. + DO JP=1,NP + SH=MAX(SH,DATP(IP,JP)) + ENDDO + SHA=SHA+SH/(2.*FLOAT(NP)) + ENDDO + SHAQ(IQ,JQ)=SHA + + ENDDO +! print*,'finished sfcopqr row jq = ',jq +ENDDO + +! envelope and zo schemes + +if((vnam.eq.'TOP').and. & + (ITOPSFLG.eq.2).and. & + NP*NP.lt.8) print*,'Warning - ' & + ,'trying to calc a std dev for: ',NP*NP,' points' +if((vnam.eq.'ZOT').and. & + IZ0FLG.eq.1.and.NP*NP.lt.8) print*,'Warning - ' & + ,'trying to calc a std dev for: ',NP*NP,' points' + + +! envelope orog and zo schemes +if(vnam.eq.'TOP') & + CALL topoq (NIQ,NJQ,DATQ,SDQ,SHAQ,DATRE,NGR,N2,N3) +if(vnam.eq.'ZOT') & + CALL zoq (NIQ,NJQ,DATQ,SDQ,NGR) + +XQ1=(1.-0.5*FLOAT(NIQ+1))*DELTAXQ+XCENTR +YQ1=(1.-0.5*FLOAT(NJQ+1))*DELTAXQ+YCENTR +DO JR=1,N3 + DO IR=1,N2 + XR=(XT(IR)-XQ1)/DELTAXQ+1. + YR=(YT(JR)-YQ1)/DELTAXQ+1. + CALL gdtost (DATQ,NIQ,NJQ,XR,YR,RVAL) + + if(vnam.eq.'TOP') then + DATR(IR,JR)=RVAL + elseif(vnam.eq.'ZOT') then + DATR(IR,JR)=MAX(0.,RVAL) + else + DATR(IR,JR)=MAX(0.,RVAL) + endif + + CALL gdtost (SDQ,NIQ,NJQ,XR,YR,RVAL) + SDR(IR,JR)=MAX(0.,RVAL) + ENDDO +ENDDO + +if(nmiss.gt.0) then + print*,'-----------------------------------------------------' + print*,'Input physiographical data file processing:' + print*,'-----------------------------------------------------' + print*,' Input data blocks not found ' & + ,' (data assumed to be zero):' + do nn=1,nmiss + print*,fnmiss(nn) + enddo + print*,'-----------------------------------------------------' +endif + +! check to find the largest change in topo height + +if(vnam.eq.'TOP') then + diff=0. + difflcl=0. + is=-999 + js=-999 + do j=2,n3-1 + do i=2,n2-1 + difflcl=max(difflcl,abs(datr(i,j)-datr(i-1,j))) + difflcl=max(difflcl,abs(datr(i,j)-datr(i+1,j))) + difflcl=max(difflcl,abs(datr(i,j)-datr(i,j-1))) + difflcl=max(difflcl,abs(datr(i,j)-datr(i,j+1))) + if(abs(diff-difflcl).gt.1.) then + is=i + js=j + endif + diff=max(diff,difflcl) + enddo + enddo + write(6,100) ' Max d(topo) on grid @i,j=',ngr,is,js,diff +100 format(a,3i4,f8.1) +endif + +deallocate(SDQ,SHAQ,SDR,DATRE) +deallocate(ISO,IWO) + +return +END SUBROUTINE sfcopqr + +!############################################################################## +Subroutine topoq (niq,njq,datq,sdq,shaq,datre,ngr,n2,n3) + +use io_params + +implicit none + +integer :: niq,njq,ngr,n2,n3 +real :: datq(niq,njq),sdq(niq,njq),shaq(niq,njq),datre(n2,n3) + +integer :: iq,jq,jmin,imin,ire,jre,imax,jmax +real :: rad,count,total,remax,remin,average + +! orographic schemes + +if(ITOPSFLG(ngr).lt.0) then ! No orography + do jq=1,njq + do iq=1,niq + datq(iq,jq)=0. +! print*,'None',iq,jq,datq(iq,jq) + enddo + enddo + print *,'No orography' + +elseif(ITOPSFLG(ngr).lt.0) then ! Average + print *,'No orography enhancement applied' + + elseif(ITOPSFLG(ngr).eq.1) then ! Silhouette + do jq=1,njq + do iq=1,niq + datq(iq,jq)=SHAQ(IQ,JQ)*toptenh(ngr) & + +DATQ(IQ,JQ)*(1.-toptenh(ngr)) +! print*,'Silhouette',iq,jq,datq(iq,jq) + enddo + enddo + print *,'Silhouette Orography applied with' + print *,'weighting = ',toptenh(ngr) + + elseif(ITOPSFLG(ngr).eq.2) then ! Envelope + do jq=1,njq + do iq=1,niq + datq(iq,jq)=datq(iq,jq)+toptenh(ngr)*sdq(iq,jq) +! print*,'EO',iq,jq,datq(iq,jq) + enddo + enddo + print *,'Envelope Orography applied with' + print *,'enhancement = ',toptenh(ngr),' x std dev' + + else if(ITOPSFLG(ngr).ge.3) then ! Reflected Envelope + +! the radius we want to search for the current pts relative +! height should correspond well to half the filtering wavelength +! used on the topo (toptwvl) + + Rad=toptwvl(ngr)/2 + do jq=1,njq + do iq=1,niq + datre(iq,jq)=datq(iq,jq) + enddo + enddo + do jq=1,njq + do iq=1,niq + count=0. + total=0. + remax=datre(iq,jq) + remin=datre(iq,jq) + jmin=jq-nint(Rad) + imin=iq-nint(Rad) + jmax=jq+nint(Rad) + imax=iq+nint(Rad) + do jre=max(1,jmin),min(njq,jmax) + do ire=max(1,imin),min(niq,imax) + if((float((iq-ire)))**2 & + +(float((jq-jre)))**2.le.Rad**2) then + count=count+1. + total=total+datre(ire,jre) + remax=max(remax,datre(ire,jre)) + remin=min(remin,datre(ire,jre)) + endif + enddo + enddo + average=total/count + if(remax.ne.remin) & + datq(iq,jq)=datre(iq,jq)+(datre(iq,jq)-average)/ & + ((remax-remin)/2)*toptenh(ngr)*sdq(iq,jq) +! print*,'REO',iq,jq,datre(iq,jq),sdq(iq,jq),datq(iq,jq) +! print*,'avg,n',average,count,remax,remin + enddo + enddo + print *,'Reflected Envelope Orography applied with' + print *,'enhancement = ',toptenh(ngr),' x std dev' + print *,'and search radius (grid points) = ',Rad +endif + +return +END SUBROUTINE topoq + +!############################################################################## +Subroutine zoq (NIQ,NJQ,DATQ,SDQ,NGR) + +use io_params +use mem_leaf + +implicit none + +integer :: NIQ,NJQ,NGR +real :: DATQ(NIQ,NJQ),SDQ(NIQ,NJQ) + +integer :: iq,jq + +! topo base roughness length. + + +do jq=1,njq + do iq=1,niq + if(ITOPSFLG(ngr).lt.0) then ! No orography + datq(iq,jq)=zrough + elseif(iz0flg(ngr).eq.1) then + datq(iq,jq)=min(z0fact*sdq(iq,jq),z0max(NGR)) + else + datq(iq,jq)=zrough + endif + enddo +enddo +if(ITOPSFLG(ngr).lt.0) then ! No orography + print *,'No orography' +else + print *,'Subgrid terrain roughness applied with' + print *,'factor = ',z0fact,' x std dev' + print *,'maximum = ',z0max(NGR) +endif + +return +END SUBROUTINE zoq + diff --git a/src/6.2.16/mksfc/landuse_input.f90 b/src/6.2.16/mksfc/landuse_input.f90 new file mode 100644 index 0000000..ac55928 --- /dev/null +++ b/src/6.2.16/mksfc/landuse_input.f90 @@ -0,0 +1,677 @@ +!############################################################################## +Subroutine patch_array_size (npq,deltax & + ,ivegtflg,ivegtfn,isoilflg,isoilfn,ndviflg,ndvifn) + +use grid_dims + +implicit none + +integer :: npq,ivegtflg,isoilflg,ndviflg +character(len=*) :: ivegtfn,isoilfn,ndvifn +character(len=strl1) :: h5name +real :: deltax +integer :: iblksiz,no,isbeg,iwbeg +real :: offlat,offlon,deltall,deltallo_min + +! Find highest resolution dataset among all that are to be used + +deltallo_min = 1.e20 +if (ivegtflg == 1) then + CALL read_header (ivegtfn,iblksiz,no,isbeg & + ,iwbeg,offlat,offlon,deltall,'veg',h5name) + deltallo_min = min(deltallo_min,deltall) +endif + +if (isoilflg == 1) then + CALL read_header (isoilfn,iblksiz,no,isbeg & + ,iwbeg,offlat,offlon,deltall,'soil',h5name) + deltallo_min = min(deltallo_min,deltall) +endif + +if (ndviflg == 1) then + CALL read_header (ndvifn,iblksiz,no,isbeg & + ,iwbeg,offlat,offlon,deltall,'ndvi',h5name) + deltallo_min = min(deltallo_min,deltall) +endif + +npq = min(10,max(1,nint(deltax / (deltallo_min * 111000.)))) + +return +END SUBROUTINE patch_array_size + +!############################################################################## +Subroutine patch_latlon (n2,n3,xt,yt,deltax,polelat,polelon) + +use mem_mksfc + +implicit none + +integer :: n2,n3 +real :: xt(n2),yt(n3),polelat,polelon +integer :: jr,jp,ip,ir +real :: yp,xp,deltax,deltaxp + +! Fill arrays with offset latitudes and longitudes of all p points + + deltaxp = deltax / float(npq) + do jr = 1,n3 + do jp = 1,npq + yp = yt(jr) + (float(jp) - .5 * float(npq+1)) * deltaxp + do ir = 1,n2 + do ip = 1,npq + xp = xt(ir) + (float(ip) - .5 * float(npq+1)) * deltaxp + CALL xy_ll (glatp(ip,jp,ir,jr),glonp(ip,jp,ir,jr) & + ,polelat,polelon,xp,yp) + enddo + enddo + enddo + enddo + +return +END SUBROUTINE patch_latlon + +!############################################################################## +Subroutine landuse_opqr (n2,n3,mzg,npat,nvegpat & + ,ivegtfn,isoilfn,ndvifn,cndvifil,iaction & + ,soil_text,patch_area,leaf_class,veg_ndvif) + +! Routine landuse_opr reads in one or more landuse data types and defines +! and fills subgrid patches from them. Currently, landuse (vegetation) class, +! soil textural class, and ndvi value are implemented. In this version of +! landuse_opr, landuse class must be used if any datasets are used. Patch +! areas are determined from landuse class alone. If soil textural class data +! is used, the most dominant type occurring in each landuse-class-defined +! patch is assigned to that patch. If ndvi data is used, the average value +! for each landuse-class-defined patch is assigned to that patch. + +use mem_mksfc +use rconstants + +implicit none + +integer :: n2,n3,mzg,npat,nvegpat +character(len=*) :: iaction,ivegtfn,isoilfn,ndvifn,cndvifil +integer :: nmiss +real, dimension(mzg,n2,n3,npat) :: soil_text +real, dimension(n2,n3,npat) :: patch_area,leaf_class,veg_ndvif +character(len=strl1) :: fnmiss(maxmiss),h5name +integer, parameter :: maxdatq=32,nsoil=12 +integer :: datq,ngrdpix(0:maxdatq,2),datq_pat & + ,datsoil,soil_count & + ,jr,jp,ir,ip,iqv,ing,maxdq,jng,jng1,ngstor1 & + ,ngstor2,npatpixs,nwat,ipat,idatq,isoil,jsoil,k & + ,no_veg ,iblksizo_veg ,isbego_veg ,iwbego_veg & + ,no_soil,iblksizo_soil,isbego_soil,iwbego_soil & + ,no_ndvi,iblksizo_ndvi,isbego_ndvi,iwbego_ndvi +integer, dimension(0:maxdatq) :: sumpix +integer, dimension(0:maxdatq,nsoil) :: datq_soil +real :: deltallo_veg ,deltallo_soil ,deltallo_ndvi & + ,offlat_veg ,offlat_soil ,offlat_ndvi & + ,offlon_veg ,offlon_soil ,offlon_ndvi & + ,fracwat,plpp +real, dimension(0:maxdatq) :: sumndvi + +nmiss=0 + +if (iaction .eq. 'veg') then + + CALL read_header (ivegtfn,iblksizo_veg,no_veg,isbego_veg & + ,iwbego_veg,offlat_veg,offlon_veg,deltallo_veg,'veg',h5name) + + CALL fill_datp (n2,n3,no_veg,iblksizo_veg,isbego_veg,iwbego_veg & + ,offlat_veg,offlon_veg,deltallo_veg,ivegtfn,iaction & + ,nmiss,fnmiss,h5name) + +! 9/30/97: Carry out the first translation of the input DATP values into a +! condensed set called DATQ_patch. The range of DATQ_patch values represents +! the total variety of land surface conditions (patches) to be allowed for +! the present simulation, and may be a broader class than the LEAF-2 +! vegetation classes for which all the vegetation physical parameters are +! defined. For example, two different DATQ_patch classes may be mapped to +! the same LEAF-2 vegetation class, but be initialized with different soil +! moistures or soil types, and therefore require different patches. + +! Fill datq_patch (patch class) values from input landuse dataset. +! Currently, this data serves as the primary criterion for defining patches. + + do jr = 1,n3 + do ir = 1,n2 + + do iqv = 0,maxdatq + ngrdpix(iqv,1) = 0 ! Initialize counter for datq pixels + ngrdpix(iqv,2) = iqv ! Initialize array of consecutive datq values + enddo + + do jp = 1,npq + do ip = 1,npq + CALL datp_datq (datp(ip,jp,ir,jr),datq_patch(ip,jp,ir,jr)) + datq = datq_patch(ip,jp,ir,jr) + ngrdpix(datq,1) = ngrdpix(datq,1) + 1 + enddo + enddo + +! Sort values of ngrdpix by prevalence for non-water patches (datq .ge. 2) + jng1=2 !Variable initialized + do ing = 2,maxdatq + maxdq = -1 + do jng = ing,maxdatq + if (ngrdpix(jng,1) .gt. maxdq) then + jng1 = jng + maxdq = ngrdpix(jng,1) + endif + enddo + ngstor1 = ngrdpix(ing,1) + ngstor2 = ngrdpix(ing,2) + ngrdpix(ing,1) = ngrdpix(jng1,1) + ngrdpix(ing,2) = ngrdpix(jng1,2) + ngrdpix(jng1,1) = ngstor1 + ngrdpix(jng1,2) = ngstor2 + enddo + +! Fill patches numbered 2 through nvegpat+1 with the nvegpat most prevalent +! nonwater landuse types. Count pixels for these patches for normalization +! of total grid cell area + + npatpixs = 1 + nwat = ngrdpix(0,1) + ngrdpix(1,1) + + if (nwat .lt. npq*npq) then + npatpixs = 0 + do ipat = 2,nvegpat+1 + datq = ngrdpix(ipat,2) + leaf_class(ir,jr,ipat) = float(datq) + npatpixs = npatpixs + ngrdpix(ipat,1) + enddo + endif + + fracwat = float(nwat) / float(npq * npq) + plpp = (1. - fracwat) / float(npatpixs) + patch_area(ir,jr,1) = fracwat + + if (ngrdpix(0,1) .ge. ngrdpix(1,1)) then + leaf_class(ir,jr,1) = 0. + else + leaf_class(ir,jr,1) = 1. + endif + + do ipat = 2,nvegpat+1 + patch_area(ir,jr,ipat) = plpp * float(ngrdpix(ipat,1)) + enddo + + enddo + + enddo + +elseif (iaction .eq. 'soil') then + + CALL read_header (isoilfn,iblksizo_soil,no_soil,isbego_soil & + ,iwbego_soil,offlat_soil,offlon_soil,deltallo_soil,'soil',h5name) + + CALL fill_datp (n2,n3,no_soil,iblksizo_soil,isbego_soil,iwbego_soil & + ,offlat_soil,offlon_soil,deltallo_soil,isoilfn,iaction & + ,nmiss,fnmiss,h5name) + + do jr = 1,n3 + do ir = 1,n2 + if (patch_area(ir,jr,1) .le. .9999) then + + do idatq = 0,maxdatq + do isoil = 1,nsoil + datq_soil(idatq,isoil) = 0 ! Initialize counter for datq pixels + enddo + enddo + + do jp = 1,npq + do ip = 1,npq + +! Fill datq_soil values as secondary criterion. This is for finding dominant +! soil class for each datq class. + + CALL datp_datsoil (datp(ip,jp,ir,jr),datsoil) + datq_pat = datq_patch(ip,jp,ir,jr) + datq_soil(datq_pat,datsoil) & + = datq_soil(datq_pat,datsoil) + 1 + + enddo + enddo + + do ipat = 2,nvegpat+1 + if (patch_area(ir,jr,ipat) .ge. .0001) then + + datq_pat = nint(leaf_class(ir,jr,ipat)) + +! Find isoil value for which soil_tab(datq_pat,isoil) is a maximum + jsoil=1 !Variable initialized + soil_count = 0 + do isoil = 1,nsoil + if (datq_soil(datq_pat,isoil) .gt. soil_count) then + soil_count = datq_soil(datq_pat,isoil) + jsoil = isoil + endif + enddo + +! For now, assume single level of input soil data (e.g., FAO) and +! fill all soil levels with this value. + + do k = 1,mzg + soil_text(k,ir,jr,ipat) = float(jsoil) + enddo + + endif + enddo + + endif + enddo + enddo + +elseif (iaction .eq. 'ndvi') then + + CALL read_header (ndvifn,iblksizo_ndvi,no_ndvi,isbego_ndvi & + ,iwbego_ndvi,offlat_ndvi,offlon_ndvi,deltallo_ndvi,'ndvi',h5name) + + CALL fill_datp (n2,n3,no_ndvi,iblksizo_ndvi,isbego_ndvi,iwbego_ndvi & + ,offlat_ndvi,offlon_ndvi,deltallo_ndvi,cndvifil,iaction & + ,nmiss,fnmiss,h5name) + + do jr = 1,n3 + do ir = 1,n2 + if (patch_area(ir,jr,1) .le. .9999) then + + do idatq = 0,maxdatq + sumndvi(idatq) = 0. ! initialize ndvi sum + sumpix(idatq) = 0 ! initialize ndvi pixel count + enddo + + do jp = 1,npq + do ip = 1,npq + +! Fill datq_ndvi values to compute average value for each datq class. + + datq_pat = datq_patch(ip,jp,ir,jr) + sumndvi(datq_pat) = sumndvi(datq_pat) + datp(ip,jp,ir,jr) + sumpix(datq_pat) = sumpix(datq_pat) + 1 + + enddo + enddo + + do ipat = 2,nvegpat+1 + datq_pat = nint(leaf_class(ir,jr,ipat)) + if(sumpix(datq_pat) > 0) then + veg_ndvif(ir,jr,ipat) = max( .05, & + sumndvi(datq_pat)/ sumpix(datq_pat) ) + else + veg_ndvif(ir,jr,ipat) = .05 + endif + enddo + + endif + enddo + enddo + +endif + +if(nmiss.gt.0) then + print*,'-----------------------------------------------------' + print*,'Input surface characteristic data file processing:',iaction + print*,'-----------------------------------------------------' + print*,' Some input data blocks not found (data assumed to be ocean or default):' +! do nn=1,nmiss +! print*,trim(fnmiss(nn)) +! enddo + print*,trim(fnmiss(1)) + print*,' plus a total of ',nmiss,'files' + print*,'-----------------------------------------------------' +endif + +return +END SUBROUTINE landuse_opqr + +!############################################################################## +Subroutine read_header (ofn,iblksizo,no,isbego,iwbego,offlat,offlon,deltallo & + ,ifield,h5name) + +use grid_dims +use node_mod + +implicit none + +integer :: iblksizo,no,isbego,iwbego,lb +real :: offlat,offlon,deltallo +character(len=*) :: ofn,ifield,h5name +character(len=strl1) :: title + +lb = len_trim(ofn) +if (lb .le. 0) then + print*,'| ',ifield,' input data prefix incorrect !' + print*,'| file prefix:',ofn(1:lb) + print*,'=====================================================' + stop 'landuse-file' +endif + +title = ofn(1:lb)//'HEADER' +lb = len_trim(title) + +CALL rams_f_open (29,title(1:lb),'FORMATTED','OLD','READ',0) +read(29,*,end=1) iblksizo,no,isbego,iwbego,offlat,offlon,h5name +1 continue +close(29) +deltallo = float(iblksizo) / float(no-1) + +print*, 'read_header1 ',ifield +print*, 'read_header2 ',iblksizo,no,isbego,iwbego,offlat,offlon,deltallo + +return +END SUBROUTINE read_header + +!############################################################################## +Subroutine fill_datp (n2,n3,no,iblksizo,isbego,iwbego & + ,offlat,offlon,deltallo,ofn,iaction,nmiss,fnmiss,h5name) + +use mem_mksfc +use hdf5_utils +use mem_grid, only:iprntstmt +use node_mod + +implicit none + +character(len=*) :: ofn,iaction,fnmiss(*),h5name +integer :: nmiss +integer :: n2,n3,no,iblksizo,isbego,iwbego,isoc,iwoc & + ,isocpt,isocpo,iwocph,iwocpt,iwocpo,lb,io,jo & + ,ir,jr,ip,jp,ind,nc3,nc2,j3d,j2d,j1d,ind1,ind2,io1,jo1 & + ,ifile_max,jfile_max,ifile,jfile,missing,ptab,ptab0,idatp,nn +real :: rio,rjo,rno,offlat,offlon & + ,glatp1,glonp1,deltallo,wio2,wjo2,wio1,wjo1 +character(len=3) :: title1 +character(len=4) :: title2 +character(len=strl1) :: title3 +logical :: l1,l2 +integer*8 :: h5_fid +integer :: iphdf5 +type (hdf5_select_type) :: mem_select,file_select + +!if (nmachs .gt. 1) then +! iphdf5 = 1 +!else +! iphdf5 = 0 +!endif + +! The set of files that are being read by this routine have separate files for +! each data sample point (lat,lon). This makes is so that the sub domains will +! require different sets of files since they exist in different lat,lon locations. +! Because of this, we can't open the files in parallel mode (all processes have +! open the same set of files) without requiring that all processes open all files +! over the entire domain. It turns out that multiple processes can access the same +! HDF5 file simultaneously in non-parallel mode as long as they are only doing reads. +! +! Figure out the set of files for each process and read just those files in non- +! parallel mode. This means to give patch_latlon() the dimensions and locations +! of the sub domain, and always set iphdf5 to zero. +iphdf5 = 0 + +! Compute number of files in input dataset that span all latitudes and +! longitudes on earth. Allocate nump and numpind arrays to this size and +! initialize to 0. +! Allocate ptable array. + +rno = float(no) +ifile_max = 360 / iblksizo +jfile_max = 180 / iblksizo + +if (iaction == 'ndvi') then + allocate (dato(no,no)) +else + allocate (cdato(no,no),idato(no,no)) +endif + +allocate (nump (ifile_max,jfile_max) & + ,numpind (ifile_max,jfile_max) & + ,numpind1(ifile_max,jfile_max) & + ,numpind2(ifile_max,jfile_max) & + ,ptable (npq*npq*n2*n3)) + +do jfile = 1,jfile_max + do ifile = 1,ifile_max + nump(ifile,jfile) = 0 + numpind(ifile,jfile) = 0 + enddo +enddo + +! Get file index (ifile,jfile) within full dataset and count number of p +! points (nump) that occur in each file + +do jr = 1,n3 + do jp = 1,npq + do ir = 1,n2 + do ip = 1,npq + + glatp1 = max(-89.9999,min(89.9999,glatp(ip,jp,ir,jr) - offlat)) + + !Saleeby(2010):For glonp1, use the min/max func + !glonp1 = glonp(ip,jp,ir,jr) - offlon + glonp1 = max(-179.9999,min(179.9999,glonp(ip,jp,ir,jr) - offlon)) + + if (glonp1 .ge. 180.) glonp1 = glonp1 - 360. + if (glonp1 .le. -180.) glonp1 = glonp1 + 360. + + ifile = int((glonp1 - float(iwbego)) / float(iblksizo)) + 1 + jfile = int((glatp1 - float(isbego)) / float(iblksizo)) + 1 + + nump(ifile,jfile) = nump(ifile,jfile) + 1 + + !write(6,202) ip,jp,ir,jr,ifile,jfile,nump(ifile,jfile) & + !,glatp1,glonp1 + !202 format('at2',7i5,2f10.4) + + enddo + enddo + enddo +enddo + +! Set up array index values for ptable array + +ind = 1 +do jfile = 1,jfile_max + do ifile = 1,ifile_max + numpind1(ifile,jfile) = ind + numpind2(ifile,jfile) = ind + ind = ind + nump(ifile,jfile) + enddo +enddo + +! Fill ptable array + +nc3 = n2 * npq * npq +nc2 = npq * npq + +do jr = 1,n3 + j3d = (jr - 1) * nc3 + do ir = 1,n2 + j2d = (ir - 1) * nc2 + do jp = 1,npq + j1d = (jp - 1) * npq + do ip = 1,npq + + glatp1 = max(-89.9999,min(89.9999,glatp(ip,jp,ir,jr) - offlat)) + + !Saleeby(2010):For glonp1, use the min/max func + !glonp1 = glonp(ip,jp,ir,jr) - offlon + glonp1 = max(-179.9999,min(179.9999,glonp(ip,jp,ir,jr) - offlon)) + + if (glonp1 .ge. 180.) glonp1 = glonp1 - 360. + if (glonp1 .le. -180.) glonp1 = glonp1 + 360. + + ifile = int((glonp1 - float(iwbego)) / float(iblksizo)) + 1 + jfile = int((glatp1 - float(isbego)) / float(iblksizo)) + 1 + + ind = numpind2(ifile,jfile) + ptable(ind) = j3d + j2d + j1d + ip + numpind2(ifile,jfile) = numpind2(ifile,jfile) + 1 + + enddo + enddo + enddo +enddo + +! Read files and extract data + +do jfile = 1,jfile_max + do ifile = 1,ifile_max + + ind1 = numpind1(ifile,jfile) + ind2 = numpind2(ifile,jfile) + + if (ind2 .gt. ind1) then + isoc = (jfile - 1) * iblksizo + isbego + iwoc = (ifile - 1) * iblksizo + iwbego + +! Construct filename + + isocpt = abs(isoc) / 10 + isocpo = abs(isoc) - isocpt*10 + iwocph = abs(iwoc) / 100 + iwocpt = (abs(iwoc) - iwocph * 100) / 10 + iwocpo = abs(iwoc) - iwocph * 100 - iwocpt * 10 + + if (isoc .ge. 0) then + write(title1,'(2i1,a1)') isocpt,isocpo,'N' + else + write(title1,'(2i1,a1)') isocpt,isocpo,'S' + endif + + if (iwoc .ge. 0) then + write(title2,'(3i1,a1)') iwocph,iwocpt,iwocpo,'E' + else + write(title2,'(3i1,a1)') iwocph,iwocpt,iwocpo,'W' + endif + + lb = len_trim(ofn) + title3 = ofn(1:lb)//title1//title2 + lb = len_trim(title3) + title3=trim(title3)//'.h5' + inquire(file=trim(title3),exist=l1,opened=l2) + +! Read file or set missing flag to 1 + + if(iprntstmt>=1)print*,'inquire file: ',title3(1:lb),l1,l2,ir,jr,ip,jp + if (l1) then + missing = 0 + if(iprntstmt>=1)print*,'getting file: ',title3 + + ! Set the hyperslab specs to read the entire dataset + mem_select%ndims = 2 + mem_select%dims(1:2) = (/ no, no /) + mem_select%block(1:2) = (/ no, no /) + mem_select%count(1:2) = (/ 1, 1 /) + mem_select%offset(1:2) = (/ 0, 0 /) + mem_select%stride(1:2) = (/ 1, 1 /) + + file_select%ndims = 2 + file_select%dims(1:2) = (/ no, no /) + file_select%block(1:2) = (/ no, no /) + file_select%count(1:2) = (/ 1, 1 /) + file_select%offset(1:2) = (/ 0, 0 /) + file_select%stride(1:2) = (/ 1, 1 /) + + if (iaction == 'ndvi') then + CALL shdf5_open (title3,'R',iphdf5,h5_fid) + CALL shdf5_irec (h5_fid,iphdf5,trim(h5name),mem_select & + ,file_select,rvara=dato) + CALL shdf5_close (h5_fid) + else + CALL shdf5_open (title3,'R',iphdf5,h5_fid) + CALL shdf5_irec (h5_fid,iphdf5,trim(h5name),mem_select & + ,file_select,ivara=idato) + CALL shdf5_close (h5_fid) + endif + else + do nn=1,nmiss + if(trim(title3(1:lb)) == trim(fnmiss(nn)) ) goto 302 + enddo + nmiss=nmiss+1 + fnmiss(nmiss)=title3(1:lb) +302 continue + missing = 1 + endif + + do ind = ind1,ind2-1 + + ptab = ptable(ind) + ptab0 = ptab - 1 + jr = ptab0 / nc3 + 1 + j3d = (jr - 1) * nc3 + ir = (ptab0 - j3d) / nc2 + 1 + j2d = (ir - 1) * nc2 + jp = (ptab0 - j3d - j2d) / npq + 1 + j1d = (jp - 1) * npq + ip = ptab - j3d - j2d - j1d + + glatp1 = max(-89.9999,min(89.9999,glatp(ip,jp,ir,jr) - offlat)) + + !Saleeby(2010):For glonp1, use the min/max func + !glonp1 = glonp(ip,jp,ir,jr) - offlon + glonp1 = max(-179.9999,min(179.9999,glonp(ip,jp,ir,jr) - offlon)) + + if (glonp1 .ge. 180.) glonp1 = glonp1 - 360. + if (glonp1 .le. -180.) glonp1 = glonp1 + 360. + + rio = (glonp1 - float(iwoc)) / deltallo + 1. + !if( abs(glonp1 - float(iwoc)) < 1.e-5 ) rio = 1. + rjo = (glatp1 - float(isoc)) / deltallo + 1. + !if( abs(glatp1 - float(isoc)) < 1.e-5 ) rjo = 1. + + if (rio .lt. .9 .or. rio .gt. rno+.1 .or. & + rjo .lt. .9 .or. rjo .gt. rno+.1) then + print*, 'rio,rjo out of range ',rio,rjo,ip,jp,ir,jr + stop 45 + endif + + if (missing .eq. 0) then + + if (iaction .eq. 'veg' .or. iaction .eq. 'soil') then + io = nint(rio) + jo = nint(rjo) + idatp = idato(io,jo) + datp(ip,jp,ir,jr) = float(mod(idatp+256,256)) + + elseif (iaction .eq. 'ndvi') then + io1 = max(1,min(int(rio),no-1)) + jo1 = max(1,min(int(rjo),no-1)) + wio2 = rio - float(io1) + wjo2 = rjo - float(jo1) + wio1 = 1. - wio2 + wjo1 = 1. - wjo2 + if(jo1==0) then + print*,'jp0:',ip,jp,ir,jr,io1,jo1,rio,rjo,rno + print*,'jp0:',rjo, glatp1 , float(isoc) & + ,glatp1-float(isoc), deltallo + stop + endif + datp(ip,jp,ir,jr) = & + wio1 * (wjo1 * dato(io1 ,jo1 ) & + + wjo2 * dato(io1 ,jo1+1)) & + + wio2 * (wjo1 * dato(io1+1,jo1 ) & + + wjo2 * dato(io1+1,jo1+1)) + endif + + else + + datp(ip,jp,ir,jr) = 0. + + endif + + enddo + endif + enddo +enddo + +if (iaction == 'ndvi') then + deallocate (dato) +else + deallocate (cdato,idato) +endif + +deallocate(nump,numpind,numpind1,numpind2,ptable) + +return +END SUBROUTINE fill_datp diff --git a/src/6.2.16/mksfc/mksfc_driver.f90 b/src/6.2.16/mksfc/mksfc_driver.f90 new file mode 100644 index 0000000..10419fa --- /dev/null +++ b/src/6.2.16/mksfc/mksfc_driver.f90 @@ -0,0 +1,260 @@ +!############################################################################## +Subroutine make_sfcfiles () + +!TAKE INTO ACCOUNT ALL OPTIONS, HISTORY STARTS, ADDED GRIDS, ETC. + +use mem_mksfc +use mem_grid +use io_params +use node_mod + +implicit none + +integer :: ifm,nvtime,ivtime,ng1,ng2,ng1t,ng2t,ng1s,ng2s +integer :: isfcerr,itoperr,issterr,indvierr + +! This routine makes sure that all surface, topo, sst, and ndvi +! files required for the present run exist and are correct. + +! The logical choices made are as follows: + +! For runtype = 'MAKESFC': +! Make all surface, topo, sst, and ndvi files for grids 1:NGRIDS. +! For runtype = 'INITIAL', 'ERROR', or 'MAKEVFILE', 'MAKEHFILE, 'HISTORY': +! Check for existence and correctness of all surface, topo, sst, +! and ndvi files for grids 1:NGRIDS. Remake all grids if the files +! are incorrect for the set of files: topo, sfc/ndvi, sst + +isfcerr = 0 +itoperr = 0 +issterr = 0 +indvierr = 0 + +! Allocate memory needed for initializing sfcfiles + +!print*,'before alloc_sfcfile',ngrids +allocate( sfcfile_p(ngrids) ) +do ifm = 1,ngrids + CALL alloc_sfcfile (sfcfile_p(ifm),mmxp(ifm),mmyp(ifm),nzg,npatch) +enddo + +allocate (scr1 (nxpmax,nypmax)) +allocate (scr2 (nxpmax,nypmax)) +allocate (vt2da(nxpmax,nypmax)) +allocate (vt2db(nxpmax,nypmax)) + +!print*,'after allocations',runtype,nxpmax,nypmax,maxval(nnxyp(1:ifm))*nzg*npatch + +ng1=1 ; ng2 =ngrids !Variable initialized +ng1t=1 ; ng2t=ngrids !Variable initialized +ng1s=1 ; ng2s=ngrids !Variable initialized + +if (trim(runtype) == 'MAKESFC') then + + print*, 'MAKESFC run: Making all surface, topo, sst, and ndvi files.' + itoperr = 1 + isfcerr = 1 + issterr = 1 + indvierr = 1 + + ng1=1 ; ng2 =ngrids ! sst,ndvi grid bounds + ng1t=1 ; ng2t=ngrids ! topo grid bounds + ng1s=1 ; ng2s=ngrids ! sfc grid bounds + +elseif (trim(runtype) == 'INITIAL' .or. trim(runtype) == 'MAKEVFILE' & + .or. trim(runtype) == 'MAKEHFILE' & + .or. trim(runtype) == 'HISTORY' & + .or. trim(runtype) == 'ERROR') then + + ! Check sfc files + do ifm = 1,ngrids + CALL sfc_check (ifm,isfcerr) + if(isfcerr == 1) exit + enddo + + ! Check topo files + do ifm = 1,ngrids + CALL top_check (ifm,itoperr) + if(itoperr == 1) exit + enddo + + ! Check sst files + CALL sst_read (2,ifm,issterr) + + ! Check ndvi files + CALL ndvi_read (2,ifm,indvierr) + + ! If we are making ndvi files, we must also make the sfc files (and vice versa) + if(indvierr == 1) isfcerr = 1 + if(isfcerr == 1) indvierr = 1 + + if (isfcerr==0 .and. issterr==0 .and. & + itoperr==0 .and.indvierr==0) then + print*, 'Surface, topo, sst, and ndvi files all ok for' + print*, ' RUNTYPE = ',trim(runtype) + + ! Deallocate memory needed for initializing sfcfiles + do ifm = 1,ngrids + CALL dealloc_sfcfile (sfcfile_p(ifm)) + enddo + deallocate (sfcfile_p) + + deallocate (scr1,scr2,vt2da,vt2db) + + return + else + print*, 'Nonexistent or incorrect surface files for' + print*, ' RUNTYPE = ',trim(runtype),'...(re)making:' + if(isfcerr == 1 ) print*, ' sfc files' + if(itoperr == 1 ) print*, ' top files' + if(issterr == 1 ) print*, ' sst files' + if(indvierr == 1) print*, ' ndvi files' + endif + + ng1=1 ; ng2=ngrids + ng1t=1 ; ng2t=ngrids + ng1s=1 ; ng2s=ngrids + +endif + +! If we got here, at least one set of files are bad. Re-make the bad ones. + +!------------------------------------------ +! TOP (topo and roughness) file creation +if(itoperr == 1) then + ! do topography, topo roughness on all grids + CALL toptnest (ng1t,ng2t) + do ifm = 1,ngrids + CALL top_write (ifm) + enddo +endif + +!------------------------------------------ +! SFC (veg class, patch area, soil type) and NDVI file creation +! If we are making ndvi files, we must also make the sfc files (and vice versa) +if(isfcerr == 1 .or. indvierr == 1) then + + ! If iupdndvi = 1, require that: + ! (1) ndviflg = 1 for a grid that has nxtnest = 0, + ! (2) ndviflg /= 2 for all other grids. + + if (iupdndvi == 1) then + do ifm = 1,ngrids + if (ndviflg(ifm) /= 1 .and. nxtnest(ifm) == 0) then + print*, 'iupdndvi = 1 and ndviflg /= 1 for grid ', ifm + stop 'iupdndvi' + endif + + if (ndviflg(ifm) == 2) then + print*, 'iupdndvi = 1 and ndviflg = 2 for grid ', ifm + stop 'iupdndvi' + endif + enddo + endif + + + do ifm = ng1s,ng2s + + if (ivegtflg(ifm) == 1 .or. isoilflg(ifm) == 1 .or. ndviflg(ifm) == 1) then + + ! Find size of patch arrays + CALL patch_array_size (npq,(xtn(2,ifm)-xtn(1,ifm)) & + ,ivegtflg(ifm),ivegtfn(ifm),isoilflg(ifm),isoilfn(ifm) & + ,ndviflg(ifm),ndvifn(ifm) ) + + ! Allocate arrays that need npq dimension + allocate (glatp(npq,npq,mmxp(ifm),mmyp(ifm)) & + ,glonp(npq,npq,mmxp(ifm),mmyp(ifm)) & + ,datq_patch(npq,npq,mmxp(ifm),mmyp(ifm)) & + ,datp(npq,npq,mmxp(ifm),mmyp(ifm)) ) + + ! Fill lat-lon + ! Need to line up XTN and YTN with this sub-domain. Do this by setting the + ! addresses for the xt and yt arguments to 1 plus the x and y offsets associated + ! with the sub-domain. + CALL patch_latlon (mmxp(ifm),mmyp(ifm) & + ,xtn(mi0(ifm)+1,ifm),ytn(mj0(ifm)+1,ifm),deltaxn(ifm) & + ,polelat,polelon ) + endif + + + ! do sfcfile + CALL geonest_file (ifm) + CALL sfc_write (ifm) + + + ! do ndvifile + if (ndviflg(ifm) == 1) then + CALL ndvi_read_dataheader (ifm) + nvtime = nvndvif(ifm) + elseif (ndviflg(ifm) == 0) then + nvtime = nvndvif(nxtnest(ifm)) + else + nvtime = 1 + endif + + do ivtime = 1,nvtime + CALL ndvinest (ifm,ivtime) + CALL ndvi_write (ifm,ivtime) + enddo + + ! Deallocate arrays that needed npq dimension + if(allocated(glatp)) deallocate (glatp,glonp,datq_patch,datp) + + enddo + +endif + +!------------------------------------------ +! SST file creation +if(issterr == 1) then + + ! If iupdsst = 1, require that: + ! (1) isstflg = 1 for a grid that has nxtnest = 0, + ! (2) isstflg /= 2 for all other grids. + + if (iupdsst == 1) then + do ifm = 1,ngrids + if (isstflg(ifm) /= 1 .and. nxtnest(ifm) == 0) then + print*, 'iupdsst = 1 and isstflg /= 1 for grid ', ifm + stop 'iupdsst' + endif + + if (isstflg(ifm) == 2) then + print*, 'iupdsst = 1 and isstflg = 2 for grid ', ifm + stop 'iupdsst' + endif + enddo + endif + + do ifm = ng1,ng2 + ! do sstfile + if (isstflg(ifm) == 1) then + CALL sst_read_dataheader (ifm) + nvtime = nvsstf(ifm) + elseif (isstflg(ifm) == 0) then + nvtime = nvsstf(nxtnest(ifm)) + else + nvtime = 1 + endif + + do ivtime = 1,nvtime + CALL sstnest (ifm,ivtime) + CALL sst_write (ifm,ivtime) + enddo + enddo + +endif + + +! Deallocate memory needed for initializing sfcfiles +do ifm = 1,ngrids + CALL dealloc_sfcfile (sfcfile_p(ifm)) +enddo +deallocate (sfcfile_p) + +deallocate (scr1,scr2,vt2da,vt2db) + +return +END SUBROUTINE make_sfcfiles + diff --git a/src/6.2.16/mksfc/mksfc_ndvi.f90 b/src/6.2.16/mksfc/mksfc_ndvi.f90 new file mode 100644 index 0000000..cb65ca9 --- /dev/null +++ b/src/6.2.16/mksfc/mksfc_ndvi.f90 @@ -0,0 +1,254 @@ +!############################################################################## +Subroutine ndvi_read_dataheader (ifm) + +use mem_mksfc +use io_params +use node_mod + +implicit none + +integer :: ifm +integer :: itime,nc +character(len=strl1) :: flnm,line,line2 +character(len=1) :: dummy +logical :: there +integer, external :: lastslash + +! Read header file for all ndvidata files (all times and locations). The header +! file contains: +! first line: geographic block size (degrees), file size, geographic +! starting point for the dataset (south pole), and offsets +! second line: number of data times (NDTIM) +! next NDTIM lines: file prefix, year, month, day, and hour for one data time +! last 3 lines: comments describing the first, second, and following lines +! above + +! Construct header file name + +flnm=trim(ndvifn(ifm))//'HEADER' + +print*, 'ndvifn(ifm):',trim(flnm) + +print*,'------------------------------------------------' +print*,'---> Check grid:',ifm,' ndvi data. ' +print*,'---> Filename:',trim(flnm) + +inquire(file=flnm,exist=there) +if (.not.there) then + print*,'ndvifn data header file for grid ',ifm,' not there.' + stop 'ndvi_read_fileheader-1' +endif + +! Read this header file + +CALL rams_f_open (25,flnm,'FORMATTED','OLD','READ',0) +rewind 25 + +! read number of data times in dataset + +read(25,*) dummy +read(25,*) nvndvif(ifm) + +if (nvndvif(ifm) <= 0) then + print*, 'No ndvi input files found with specified prefix or incorrect header' + close(25) + stop 'ndvi_read_fileheader-2' +endif + +! read prefix list and times + +do itime = 1,nvndvif(ifm) + read(25,'(A80)') line + CALL char_strip_var (line,flnm,line2) + read (line2,*) iyearvn(itime,ifm),imonthvn(itime,ifm) & + ,idatevn(itime,ifm),ihourvn(itime,ifm) + + nc = lastslash(ndvifn(ifm)) + vndvifil(itime,ifm)=ndvifn(ifm)(1:nc)//trim(flnm) + +! For testing, print out nndvif, ndvitime, and vndvifil. +! print*, 'ifm,itime,nvndvif(ifm)',ifm,itime,nvndvif(ifm) +! print*, 'vndvifil(itime,ifm)' & +! ,vndvifil(itime,ifm),iyearvs(itime,ifm),imonthvs(itime,ifm) & +! ,idatevs(itime,ifm),ihourvs(itime,ifm) +! stop + +enddo + +close(25) + +return +END SUBROUTINE ndvi_read_dataheader + +!############################################################################## +Subroutine ndvinest (ifm,ivtime) + +use mem_mksfc +use mem_grid +use mem_leaf +use io_params +use node_mod + +implicit none + +integer :: ifm,icm,ivtime,i,j,k,ic,jc,ipat + +icm = nxtnest(ifm) + +! Initialize SEATP and SEATF in routine ndviinit + +CALL ndviinit (mmxp(ifm),mmyp(ifm),npatch,sfcfile_p(ifm)%veg_ndvif(1,1,1)) + +if (icm >= 1 .and. ndviflg(ifm) == 0) then + + ! Assign NDVIF from coarser grid + + do ipat = 2,npatch + do k = 1,nzg + do j = 1,mmyp(ifm) + do i = 1,mmxp(ifm) + ic = ipm(i,ifm) + jc = jpm(j,ifm) + + sfcfile_p(ifm)%veg_ndvif(i,j,ipat) = & + sfcfile_p(icm)%veg_ndvif(ic,jc,ipat) + + enddo + enddo + enddo + enddo + + nvndvif(ifm) = nvndvif(icm) + iyearvn (1:nvndvif(ifm),ifm) = iyearvn (1:nvndvif(ifm),icm) + imonthvn(1:nvndvif(ifm),ifm) = imonthvn(1:nvndvif(ifm),icm) + idatevn (1:nvndvif(ifm),ifm) = idatevn (1:nvndvif(ifm),icm) + ihourvn (1:nvndvif(ifm),ifm) = ihourvn (1:nvndvif(ifm),icm) + +elseif (ndviflg(ifm) == 1) then + + ! Assign NDVIF from standard dataset: + + CALL landuse_opqr (mmxp(ifm),mmyp(ifm),nzg,npatch,nvegpat & + ,ivegtfn(ifm),isoilfn(ifm) & + ,ndvifn(ifm),vndvifil(ivtime,ifm) & + ,'ndvi' & + ,sfcfile_p(ifm)%soil_text(1,1,1,1) & + ,sfcfile_p(ifm)%patch_area(1,1,1) & + ,sfcfile_p(ifm)%leaf_class(1,1,1) & + ,sfcfile_p(ifm)%veg_ndvif(1,1,1)) +else + + iyearvn (1,ifm) = iyear1 ; imonthvn(1,ifm) = imonth1 + idatevn (1,ifm) = idate1 ; ihourvn (1,ifm) = ihour1 + +endif + +! If desired, override current values of NDVIP and NDVIF in user-specified +! changes to routine ndviinit_user in the file ruser.f. + +CALL ndviinit_user (mmxp(ifm),mmyp(ifm),npatch,ifm & + ,sfcfile_p(ifm)%veg_ndvif(1,1,1)) + +return +END SUBROUTINE ndvinest + +!############################################################################## +Subroutine ndviinit (n2,n3,npat,veg_ndvif) + +implicit none + +integer :: n2,n3,npat,i,j,ipat +real, dimension(n2,n3,npat) :: veg_ndvif + +! Fill the veg_ndvif array with a default value of .5. This default is +! used only when a standard RAMS ndvi dataset is not used and when no +! overrides to ndvi values are defined in routine ndviinit_user in the +! file ruser.f. + +do j = 1,n3 + do i = 1,n2 + veg_ndvif(i,j,1) = 0. + veg_ndvif(i,j,2) = .5 + + do ipat = 3,npat + veg_ndvif(i,j,ipat) = veg_ndvif(i,j,2) + enddo + + enddo +enddo + +return +END SUBROUTINE ndviinit + +!############################################################################## +Subroutine ndvi_write (ifm,ivt) + +use mem_mksfc +use mem_grid +use node_mod +use io_params +use hdf5_utils + +implicit none + +integer :: ifm,ivt + +real :: glatr,glonr +character(len=strl1) :: flnm +character(len=2) :: cgrid +integer*8 :: h5_fid +integer :: iphdf5 +type (hdf5_select_type) :: mem_select,file_select +integer, dimension(HDF5_MAX_DIMS) :: file_chunks + +if (nmachs .gt. 1) then + iphdf5 = 1 +else + iphdf5 = 0 +endif + +! Write ndvi data to ndvi file for one grid and one time + +write(cgrid,'(a1,i1)') 'g',ifm +CALL makefnam (flnm,ndvifpfx,0.,iyearvn(ivt,ifm),imonthvn(ivt,ifm) & + ,idatevn(ivt,ifm),ihourvn (ivt,ifm)*10000,'N',cgrid,'h5') + +CALL xy_ll (glatr,glonr,polelat,polelon,xtn(1,ifm),ytn(1,ifm)) + + +CALL shdf5_open (flnm,'W',iphdf5,h5_fid,iclobber) +! Scalar vars +CALL shdf5_set_hs_select (1,'W',ifm,mem_select,file_select,file_chunks) +CALL shdf5_orec (h5_fid,iphdf5,'year',mem_select,file_select & + ,file_chunks,ivars=iyearvn(ivt,ifm)) +CALL shdf5_orec (h5_fid,iphdf5,'month',mem_select,file_select & + ,file_chunks,ivars=imonthvn(ivt,ifm)) +CALL shdf5_orec (h5_fid,iphdf5,'day',mem_select,file_select & + ,file_chunks,ivars=idatevn(ivt,ifm)) +CALL shdf5_orec (h5_fid,iphdf5,'hour',mem_select,file_select & + ,file_chunks,ivars=ihourvn(ivt,ifm)) +CALL shdf5_orec (h5_fid,iphdf5,'nx',mem_select,file_select & + ,file_chunks,ivars=nnxp(ifm)) +CALL shdf5_orec (h5_fid,iphdf5,'ny',mem_select,file_select & + ,file_chunks,ivars=nnyp(ifm)) +CALL shdf5_orec (h5_fid,iphdf5,'npatch',mem_select,file_select & + ,file_chunks,ivars=npatch) +CALL shdf5_orec (h5_fid,iphdf5,'dx',mem_select,file_select & + ,file_chunks,rvars=deltaxn(ifm)) +CALL shdf5_orec (h5_fid,iphdf5,'polelat',mem_select,file_select & + ,file_chunks,rvars=polelat) +CALL shdf5_orec (h5_fid,iphdf5,'polelon',mem_select,file_select & + ,file_chunks,rvars=polelon) +CALL shdf5_orec (h5_fid,iphdf5,'sw_lat',mem_select,file_select & + ,file_chunks,rvars=glatr) +CALL shdf5_orec (h5_fid,iphdf5,'sw_lon',mem_select,file_select & + ,file_chunks,rvars=glonr) + +! Leaf3 2D vars +CALL shdf5_set_hs_select (6,'W',ifm,mem_select,file_select,file_chunks) +CALL shdf5_orec (h5_fid,iphdf5,'VEG_NDVIF',mem_select,file_select & + ,file_chunks,rvara=sfcfile_p(ifm)%veg_ndvif) +CALL shdf5_close (h5_fid) + +return +END SUBROUTINE ndvi_write diff --git a/src/6.2.16/mksfc/mksfc_sfc.f90 b/src/6.2.16/mksfc/mksfc_sfc.f90 new file mode 100644 index 0000000..029efe6 --- /dev/null +++ b/src/6.2.16/mksfc/mksfc_sfc.f90 @@ -0,0 +1,296 @@ +!############################################################################## +Subroutine sfc_read (ifm) + +use mem_grid +use mem_leaf +use node_mod +use io_params +use hdf5_utils + +implicit none + +integer :: ifm,ip,i,j,k +logical :: there + +character(len=strl1) :: flnm +character(len=2) :: cgrid +integer*8 :: h5_fid +integer :: iphdf5 +type (hdf5_select_type) :: mem_select,file_select +integer, dimension(HDF5_MAX_DIMS) :: file_chunks + +real, dimension(:), allocatable :: r_scratch + +if (nmachs .gt. 1) then + iphdf5 = 1 +else + iphdf5 = 0 +endif + +! read the "sfc" file + +write(cgrid,'(a1,i1)') 'g',ifm +flnm=trim(sfcfiles)//'-S-'//cgrid//'.h5' + +inquire(file=flnm,exist=there) + +if(.not.there) then + print*,'------------------------------------------------' + print*,'SFC_read: file for grid ',ifm,' not there.' + print*,'SFC_read: file:',trim(flnm) + print*,'------------------------------------------------' + stop 'sfc_read: no file' +endif + +CALL shdf5_open (flnm,'R',iphdf5,h5_fid) + +! Leaf3 2D vars +CALL shdf5_set_hs_select (6,'R',ifm,mem_select,file_select,file_chunks) +CALL shdf5_irec (h5_fid,iphdf5,'PATCH_AREA',mem_select & + ,file_select,rvara=leaf_g(ifm)%patch_area) +CALL shdf5_irec (h5_fid,iphdf5,'LEAF_CLASS',mem_select & + ,file_select,rvara=leaf_g(ifm)%leaf_class) + +! Leaf3 Soil 3D vars +allocate(r_scratch(mmxysp(ifm))) +CALL shdf5_set_hs_select (4,'R',ifm,mem_select,file_select,file_chunks) +CALL shdf5_irec (h5_fid,iphdf5,'SOIL_TEXT',mem_select & + ,file_select,rvara=r_scratch) +CALL unarrange_p (mmxp(ifm),mmyp(ifm),nzg,npatch,r_scratch & + ,leaf_g(ifm)%soil_text) +deallocate(r_scratch) + +CALL shdf5_close (h5_fid) + +!Saleeby(2014): Set grid boundaries as in leaf3 for surface characteristics +!Do this here so that boundary assignments are made before the first +!analysis write and first timestep. +do ip = 1,npatch + do j = 1,mmyp(ifm) + leaf_g(ifm)%leaf_class(1,j,ip)=leaf_g(ifm)%leaf_class(2,j,ip) + leaf_g(ifm)%patch_area(1,j,ip)=leaf_g(ifm)%patch_area(2,j,ip) + do k = 1,nzg + leaf_g(ifm)%soil_text(k,1,j,ip)=leaf_g(ifm)%soil_text(k,2,j,ip) + enddo + leaf_g(ifm)%leaf_class(mmxp(ifm),j,ip)=leaf_g(ifm)%leaf_class(mmxp(ifm)-1,j,ip) + leaf_g(ifm)%patch_area(mmxp(ifm),j,ip)=leaf_g(ifm)%patch_area(mmxp(ifm)-1,j,ip) + do k = 1,nzg + leaf_g(ifm)%soil_text(k,mmxp(ifm),j,ip)=leaf_g(ifm)%soil_text(k,mmxp(ifm)-1,j,ip) + enddo + enddo + if (jdim == 1) then + do i = 1,mmxp(ifm) + leaf_g(ifm)%leaf_class(i,1,ip)=leaf_g(ifm)%leaf_class(i,2,ip) + leaf_g(ifm)%patch_area(i,1,ip)=leaf_g(ifm)%patch_area(i,2,ip) + do k = 1,nzg + leaf_g(ifm)%soil_text(k,i,1,ip)=leaf_g(ifm)%soil_text(k,i,2,ip) + enddo + leaf_g(ifm)%leaf_class(i,mmyp(ifm),ip)=leaf_g(ifm)%leaf_class(i,mmyp(ifm)-1,ip) + leaf_g(ifm)%patch_area(i,mmyp(ifm),ip)=leaf_g(ifm)%patch_area(i,mmyp(ifm)-1,ip) + do k = 1,nzg + leaf_g(ifm)%soil_text(k,i,mmyp(ifm),ip)=leaf_g(ifm)%soil_text(k,i,mmyp(ifm)-1,ip) + enddo + enddo + endif +enddo + +return +END SUBROUTINE sfc_read + +!############################################################################## +Subroutine sfc_check (ifm,ierr) + +! This routine checks for the existence of a surface file for +! grid number ifm, and if it exists, also checks for agreement of +! grid configuration between the file and the current model run. +! If the file does not exist or does not match grid configuration, +! the flag ifileok is returned with a value of 0. If the file +! exists and is ok, ifileok is returned with a value of 1. + +use mem_grid +use node_mod +use io_params +use hdf5_utils + +implicit none + +integer :: ifm,ierr +integer :: lc,nsfx,nsfy,nsfzg ,nsivegtflg,nsisoilflg,nspatch +real :: sfdx,sfplat,sfplon,sflat,sflon,glatr,glonr + +character(len=strl1) :: flnm +character(len=2) :: cgrid +logical there +integer*8 :: h5_fid +integer :: iphdf5 +type (hdf5_select_type) :: mem_select,file_select +integer, dimension(HDF5_MAX_DIMS) :: file_chunks + +if (nmachs .gt. 1) then + iphdf5 = 1 +else + iphdf5 = 0 +endif + +lc=len_trim(sfcfiles) +write(cgrid,'(a1,i1)') 'g',ifm +flnm=trim(sfcfiles)//'-S-'//cgrid//'.h5' + +print*,'------------------------------------------------' +print*,'---> Check grid:',ifm,' sfc file... ' +print*,'---> Filename:',trim(flnm) + +inquire(file=flnm,exist=there) + +if(.not.there) then + ierr = 1 + print*,'SFCfile for grid ',ifm,' not there.' + print*,'------------------------------------------------' + return +endif + +CALL xy_ll (glatr,glonr,polelat,polelon,xtn(1,ifm),ytn(1,ifm)) + +CALL shdf5_open (flnm,'R',iphdf5,h5_fid) + +! Scalar variables (single values, no array) +CALL shdf5_set_hs_select (1,'R',ifm,mem_select,file_select,file_chunks) +CALL shdf5_irec (h5_fid,iphdf5,'nx',mem_select,file_select,ivars=nsfx) +CALL shdf5_irec (h5_fid,iphdf5,'ny',mem_select,file_select,ivars=nsfy) +CALL shdf5_irec (h5_fid,iphdf5,'nzg',mem_select,file_select,ivars=nsfzg) +CALL shdf5_irec (h5_fid,iphdf5,'npatch',mem_select,file_select,ivars=nspatch) +CALL shdf5_irec (h5_fid,iphdf5,'dx',mem_select,file_select,rvars=sfdx) +CALL shdf5_irec (h5_fid,iphdf5,'polelat',mem_select,file_select,rvars=sfplat) +CALL shdf5_irec (h5_fid,iphdf5,'polelon',mem_select,file_select,rvars=sfplon) +CALL shdf5_irec (h5_fid,iphdf5,'sw_lat',mem_select,file_select,rvars=sflat) +CALL shdf5_irec (h5_fid,iphdf5,'sw_lon',mem_select,file_select,rvars=sflon) +CALL shdf5_irec (h5_fid,iphdf5,'ivegtflg',mem_select,file_select,ivars=nsivegtflg) +CALL shdf5_irec (h5_fid,iphdf5,'isoilflg',mem_select,file_select,ivars=nsisoilflg) + +CALL shdf5_close (h5_fid) + + +if (nsfx .ne. nnxp(ifm) .or. & + nsfy .ne. nnyp(ifm) .or. & + nsfzg .ne. nzg .or. & + nspatch .ne. npatch .or. & + abs(sfdx-deltaxn(ifm)) .gt. .001 .or. & + abs(sfplat-polelat) .gt. .001 .or. & + abs(sfplon-polelon) .gt. .001 .or. & + abs(sflat-glatr) .gt. .001 .or. & + abs(sflon-glonr) .gt. .001 .or. & + nsivegtflg .ne. ivegtflg(ifm) .or. & + nsisoilflg .ne. isoilflg(ifm) ) then + + ierr = 1 + + print*,'SFCfile mismatch on grid:',ifm + print*,'Values: model, file' + print*,'-------------------' + print*,'nnxp:',nnxp(ifm),nsfx + print*,'nnyp:',nnyp(ifm),nsfy + print*,'deltax:',deltaxn(ifm),sfdx + print*,'polelat:',polelat,sfplat + print*,'polelon:',polelon,sfplon + print*,'SW lat:',glatr,sflat + print*,'SW lon:',glonr,sflon + print*,'ivegtflg:',ivegtflg(ifm),nsivegtflg + print*,'isoilflg:',isoilflg(ifm),nsisoilflg + print*,'-------------------' + +else + + ierr = 0 + print*,'---> Grid:',ifm,' surface file data okay. ' + print*,'------------------------------------------------' + +endif + +return +END SUBROUTINE sfc_check + +!############################################################################## +Subroutine sfc_write (ifm) + +use mem_mksfc +use mem_grid +use node_mod +use io_params +use hdf5_utils + +implicit none + +integer :: ifm +real :: glatr,glonr +character(len=strl1) :: flnm +character(len=2) :: cgrid +integer*8 :: h5_fid +integer :: iphdf5 +type (hdf5_select_type) :: mem_select,file_select +integer, dimension(HDF5_MAX_DIMS) :: file_chunks + +real, dimension(:), allocatable :: r_scratch + +if (nmachs .gt. 1) then + iphdf5 = 1 +else + iphdf5 = 0 +endif + +! write surface characteristics, one file for each grid + + +write(cgrid,'(a1,i1)') 'g',ifm + +flnm=trim(sfcfiles)//'-S-'//cgrid//'.h5' + +CALL xy_ll (glatr,glonr,polelat,polelon,xtn(1,ifm),ytn(1,ifm)) + + +CALL shdf5_open (flnm,'W',iphdf5,h5_fid,iclobber) + +! Scalar variables +CALL shdf5_set_hs_select (1,'W',ifm,mem_select,file_select,file_chunks) +CALL shdf5_orec (h5_fid,iphdf5,'nx',mem_select,file_select & + ,file_chunks,ivars=nnxp(ifm)) +CALL shdf5_orec (h5_fid,iphdf5,'ny',mem_select,file_select & + ,file_chunks,ivars=nnyp(ifm)) +CALL shdf5_orec (h5_fid,iphdf5,'nzg',mem_select,file_select & + ,file_chunks,ivars=nzg) +CALL shdf5_orec (h5_fid,iphdf5,'npatch',mem_select,file_select & + ,file_chunks,ivars=npatch) +CALL shdf5_orec (h5_fid,iphdf5,'dx',mem_select,file_select & + ,file_chunks,rvars=deltaxn(ifm)) +CALL shdf5_orec (h5_fid,iphdf5,'polelat',mem_select,file_select & + ,file_chunks,rvars=polelat) +CALL shdf5_orec (h5_fid,iphdf5,'polelon',mem_select,file_select & + ,file_chunks,rvars=polelon) +CALL shdf5_orec (h5_fid,iphdf5,'sw_lat',mem_select,file_select & + ,file_chunks,rvars=glatr) +CALL shdf5_orec (h5_fid,iphdf5,'sw_lon',mem_select,file_select & + ,file_chunks,rvars=glonr) +CALL shdf5_orec (h5_fid,iphdf5,'ivegtflg',mem_select,file_select & + ,file_chunks,ivars=ivegtflg(ifm)) +CALL shdf5_orec (h5_fid,iphdf5,'isoilflg',mem_select,file_select & + ,file_chunks,ivars=isoilflg(ifm)) + +! Leaf3 2D vars +CALL shdf5_set_hs_select (6,'W',ifm,mem_select,file_select,file_chunks) +CALL shdf5_orec (h5_fid,iphdf5,'PATCH_AREA',mem_select,file_select & + ,file_chunks,rvara=sfcfile_p(ifm)%patch_area) +CALL shdf5_orec (h5_fid,iphdf5,'LEAF_CLASS',mem_select,file_select & + ,file_chunks,rvara=sfcfile_p(ifm)%leaf_class) + +! Leaf3 Soil 3D vars +allocate(r_scratch(mmxysp(ifm))) +CALL rearrange_p (mmxp(ifm),mmyp(ifm),nzg,npatch,sfcfile_p(ifm)%soil_text & + ,r_scratch) +CALL shdf5_set_hs_select (4,'W',ifm,mem_select,file_select,file_chunks) +CALL shdf5_orec (h5_fid,iphdf5,'SOIL_TEXT',mem_select,file_select & + ,file_chunks,rvara=r_scratch) +deallocate(r_scratch) + +CALL shdf5_close (h5_fid) + +return +END SUBROUTINE sfc_write diff --git a/src/6.2.16/mksfc/mksfc_sst.f90 b/src/6.2.16/mksfc/mksfc_sst.f90 new file mode 100644 index 0000000..2b1076b --- /dev/null +++ b/src/6.2.16/mksfc/mksfc_sst.f90 @@ -0,0 +1,246 @@ +!############################################################################## +Subroutine sst_read_dataheader (ifm) + +use mem_mksfc +use mem_grid +use io_params +use node_mod + +implicit none + +integer :: ifm +integer :: itime,nsst,issty,isstm,isstd,issth +character(len=strl1) :: flnm,line,line2 +character(len=1) :: dummy +logical :: there +character(len=14) :: totdate_init,totdatem,totdatesst + +! Read header file for all sstdata files (all times and locations). The header +! file contains: +! first line: geographic block size (degrees), file size, geographic +! starting point for the dataset (south pole), and offsets +! second line: number of data times (NDTIM) +! next NDTIM lines: file prefix, year, month, day, and hour for one data time +! last 3 lines: comments describing the first, second, and following lines +! above + +! Construct header file name + +flnm=trim(isstfn(ifm))//'HEADER' + +print*, 'isstfn(ifm):',trim(flnm) + +print*,'------------------------------------------------' +print*,'---> Check grid:',ifm,' sst data. ' +print*,'---> Filename:',trim(flnm) + +inquire(file=flnm,exist=there) +if (.not.there) then + print*,'SSTDATA header file for grid ',ifm,' not there.' + stop 'sst_read_fileheader-1' +endif + +! Read this header file + +CALL rams_f_open (25,flnm,'FORMATTED','OLD','READ',0) +rewind 25 + +! read number of data times in dataset + +read(25,*) dummy +read(25,*) nsst + +if (nsst <= 0) then + print*, 'No SST input files found with specified prefix or incorrect header' + close(25) + stop 'sst_read_fileheader-2' +endif + +! read prefix list and times + +CALL date_make_big (iyear1,imonth1,idate1,itime1*100,totdate_init) +CALL date_add_to_big (totdate_init,timmax,'s',totdatem) + +nvsstf(ifm)=0 +do itime = 1,nsst + read(25,'(A80)') line + CALL char_strip_var (line,flnm,line2) + read (line2,*) issty,isstm,isstd,issth + + CALL date_make_big (issty,isstm,isstd,issth*100,totdatesst) + + ! assumes data in header file is chronologically ordered oldest to newest + ! if issty=0, assume climo data and do all times + + nvsstf(ifm)=nvsstf(ifm)+1 + if(issty /= 0 .and. totdatesst < totdate_init) nvsstf(ifm)=1 + + vsstfil(nvsstf(ifm),ifm)=trim(isstfn(ifm))//trim(flnm) + iyearvs(nvsstf(ifm),ifm)=issty + imonthvs(nvsstf(ifm),ifm)=isstm + idatevs(nvsstf(ifm),ifm)=isstd + ihourvs(nvsstf(ifm),ifm)=issth + + + if(issty /= 0 .and. totdatesst > totdatem) exit + +! For testing, print out nsstf, ssttime, and vsstfil. +! print*, 'ifm,itime,nvsstf(ifm)',ifm,itime,nvsstf(ifm) +! print*, 'vsstfil(itime,ifm)',vsstfil(nvsstf(ifm),ifm) & +! ,iyearvs(nvsstf(ifm),ifm),imonthvs(nvsstf(ifm),ifm) & +! ,idatevs(nvsstf(ifm),ifm),ihourvs(nvsstf(ifm),ifm) +! stop + +enddo + +close(25) + +return +END SUBROUTINE sst_read_dataheader + +!############################################################################## +Subroutine sstnest (ifm,ivtime) + +use mem_mksfc +use mem_grid +use io_params +use node_mod + +implicit none + +integer :: ifm,icm,ivtime + +icm = nxtnest(ifm) + +! Initialize SEATP and SEATF in routine sstinit + +CALL sstinit (mmxp(ifm),mmyp(ifm),sfcfile_p(ifm)%seatf(1,1)) + +if (icm >= 1 .and. isstflg(ifm) == 0) then + +! Interpolate SEATF from coarser grid + CALL newgrid (ifm) + CALL interp_fine_grid_sfcvar (ifm,icm,IFG_SST_INIT) + + nvsstf(ifm) = nvsstf(icm) + iyearvs (1:nvsstf(ifm),ifm) = iyearvs (1:nvsstf(ifm),icm) + imonthvs(1:nvsstf(ifm),ifm) = imonthvs(1:nvsstf(ifm),icm) + idatevs (1:nvsstf(ifm),ifm) = idatevs (1:nvsstf(ifm),icm) + ihourvs (1:nvsstf(ifm),ifm) = ihourvs (1:nvsstf(ifm),icm) + +elseif (isstflg(ifm) == 1) then + +! Interpolate SEATF from standard dataset + + CALL geodat (mmxp(ifm),mmyp(ifm),sfcfile_p(ifm)%seatf(1,1) & + ,isstfn(ifm),vsstfil(ivtime,ifm),vt2da,vt2db,ifm,'SST') + +else + + iyearvs (1,ifm) = iyear1 ; imonthvs(1,ifm) = imonth1 + idatevs (1,ifm) = idate1 ; ihourvs (1,ifm) = ihour1 + +endif + +! If desired, override current values of SEATF with user-defined +! changes to routine sstinit_user. + +CALL sstinit_user (mmxp(ifm),mmyp(ifm),ifm ,sfcfile_p(ifm)%seatf(1,1)) + +return +END SUBROUTINE sstnest + +!############################################################################## +Subroutine sstinit (n2,n3,seatf) + +use mem_leaf + +implicit none + +integer :: n2,n3,i,j +real, dimension(n2,n3) :: seatf + +! Fill the SEATF array with a default value of seatmp. This +! default is used only when a standard RAMS sst dataset is not used and when +! no overrides to sea temperature are defined in routine sstinit_user +! in the file ruser.f90. + +do j = 1,n3 + do i = 1,n2 + seatf(i,j) = seatmp + enddo +enddo + +return +END SUBROUTINE sstinit + +!############################################################################## +Subroutine sst_write (ifm,ivt) + +use mem_mksfc +use mem_grid +use node_mod +use io_params +use hdf5_utils + +implicit none + +integer :: ifm,ivt +real :: glatr,glonr +character(len=strl1) :: flnm +character(len=2) :: cgrid +integer*8 :: h5_fid +integer :: iphdf5 +type (hdf5_select_type) :: mem_select,file_select +integer, dimension(HDF5_MAX_DIMS) :: file_chunks + +if (nmachs .gt. 1) then + iphdf5 = 1 +else + iphdf5 = 0 +endif + +! Write sst data to sst file for one grid and one time + +write(cgrid,'(a1,i1)') 'g',ifm +CALL makefnam (flnm,sstfpfx,0.,iyearvs(ivt,ifm),imonthvs(ivt,ifm) & + ,idatevs(ivt,ifm),ihourvs (ivt,ifm)*10000,'W',cgrid,'h5') + +CALL xy_ll (glatr,glonr,polelat,polelon,xtn(1,ifm),ytn(1,ifm)) + +CALL shdf5_open (flnm,'W',iphdf5,h5_fid,iclobber) + +! Scalar vars +CALL shdf5_set_hs_select (1,'W',ifm,mem_select,file_select,file_chunks) +CALL shdf5_orec (h5_fid,iphdf5,'year',mem_select,file_select & + ,file_chunks,ivars=iyearvn(ivt,ifm)) +CALL shdf5_orec (h5_fid,iphdf5,'month',mem_select,file_select & + ,file_chunks,ivars=imonthvn(ivt,ifm)) +CALL shdf5_orec (h5_fid,iphdf5,'day',mem_select,file_select & + ,file_chunks,ivars=idatevn(ivt,ifm)) +CALL shdf5_orec (h5_fid,iphdf5,'hour',mem_select,file_select & + ,file_chunks,ivars=ihourvn(ivt,ifm)) +CALL shdf5_orec (h5_fid,iphdf5,'nx',mem_select,file_select & + ,file_chunks,ivars=nnxp(ifm)) +CALL shdf5_orec (h5_fid,iphdf5,'ny',mem_select,file_select & + ,file_chunks,ivars=nnyp(ifm)) +CALL shdf5_orec (h5_fid,iphdf5,'dx',mem_select,file_select & + ,file_chunks,rvars=deltaxn(ifm)) +CALL shdf5_orec (h5_fid,iphdf5,'polelat',mem_select,file_select & + ,file_chunks,rvars=polelat) +CALL shdf5_orec (h5_fid,iphdf5,'polelon',mem_select,file_select & + ,file_chunks,rvars=polelon) +CALL shdf5_orec (h5_fid,iphdf5,'sw_lat',mem_select,file_select & + ,file_chunks,rvars=glatr) +CALL shdf5_orec (h5_fid,iphdf5,'sw_lon',mem_select,file_select & + ,file_chunks,rvars=glonr) + +! Atmos 2D vars +CALL shdf5_set_hs_select (2,'W',ifm,mem_select,file_select,file_chunks) +CALL shdf5_orec (h5_fid,iphdf5,'SEATF',mem_select,file_select & + ,file_chunks,rvara=sfcfile_p(ifm)%seatf) + +CALL shdf5_close (h5_fid) + +return +END SUBROUTINE sst_write diff --git a/src/6.2.16/mksfc/mksfc_top.f90 b/src/6.2.16/mksfc/mksfc_top.f90 new file mode 100644 index 0000000..b714eaa --- /dev/null +++ b/src/6.2.16/mksfc/mksfc_top.f90 @@ -0,0 +1,280 @@ +!############################################################################## +Subroutine top_read (ifm) + +use mem_grid +use node_mod +use io_params +use hdf5_utils + +implicit none + +integer :: ifm +character(len=strl1) :: flnm +character(len=2) :: cgrid +logical :: there +integer*8 :: h5_fid +integer :: iphdf5 +type (hdf5_select_type) :: mem_select,file_select +integer, dimension(HDF5_MAX_DIMS) :: file_chunks + +if (nmachs .gt. 1) then + iphdf5 = 1 +else + iphdf5 = 0 +endif + +! read the "top" file + +write(cgrid,'(a1,i1)') 'g',ifm +flnm=trim(topfiles)//'-S-'//cgrid//'.h5' + +inquire(file=flnm,exist=there) + +if(.not.there) then + print*,'------------------------------------------------' + print*,'TOP_read: file for grid ',ifm,' not there.' + print*,'TOP_read: file:',trim(flnm) + print*,'------------------------------------------------' + stop 'top_read: no file' +endif + +CALL shdf5_open (flnm,'R',iphdf5,h5_fid) + +! Atmos 2D vars +CALL shdf5_set_hs_select (2,'R',ifm,mem_select,file_select,file_chunks) +CALL shdf5_irec (h5_fid,iphdf5,'TOPT',mem_select & + ,file_select,rvara=grid_g(ifm)%topt) +CALL shdf5_irec (h5_fid,iphdf5,'TOPZO',mem_select & + ,file_select,rvara=grid_g(ifm)%topzo) + +CALL shdf5_close (h5_fid) + +return +END SUBROUTINE top_read + +!############################################################################## +Subroutine top_check (ifm,ierr) + +! This routine checks for the existence of a surface file for +! grid number ifm, and if it exists, also checks for agreement of +! grid configuration between the file and the current model run. +! If the file does not exist or does not match grid configuration, +! the flag ifileok is returned with a value of 0. If the file +! exists and is ok, ifileok is returned with a value of 1. + +use mem_grid +use node_mod +use io_params +use hdf5_utils + +implicit none + +integer :: ifm,ierr + +integer :: lc,nsfx,nsfy,nsitoptflg,nsitopsflg,nsiz0flg +real :: sfdx,sfplat,sfplon,sflat,sflon,stoptenh,stoptwvl & + ,sz0max,sz0fact,glatr,glonr + +character(len=strl1) :: flnm +character(len=2) :: cgrid +logical there +integer*8 :: h5_fid +integer :: iphdf5 +type (hdf5_select_type) :: mem_select,file_select +integer, dimension(HDF5_MAX_DIMS) :: file_chunks + +if (nmachs .gt. 1) then + iphdf5 = 1 +else + iphdf5 = 0 +endif + +lc=len_trim(topfiles) +write(cgrid,'(a1,i1)') 'g',ifm +flnm=trim(topfiles)//'-S-'//cgrid//'.h5' + +print*,'------------------------------------------------' +print*,'---> Check grid:',ifm,' top file... ' +print*,'---> Filename:',trim(flnm) + +inquire(file=flnm,exist=there) + +if(.not.there) then + ierr = 1 + print*,'TOPfile for grid ',ifm,' not there.' + print*,'------------------------------------------------' + return +endif + +CALL xy_ll (glatr,glonr,polelat,polelon,xtn(1,ifm),ytn(1,ifm)) + +CALL shdf5_open (flnm,'R',iphdf5,h5_fid) + +! Scalar vars +CALL shdf5_set_hs_select (1,'R',ifm,mem_select,file_select,file_chunks) +CALL shdf5_irec (h5_fid,iphdf5,'nx',mem_select,file_select,ivars=nsfx) +CALL shdf5_irec (h5_fid,iphdf5,'ny',mem_select,file_select,ivars=nsfy) +CALL shdf5_irec (h5_fid,iphdf5,'dx',mem_select,file_select,rvars=sfdx) +CALL shdf5_irec (h5_fid,iphdf5,'polelat',mem_select,file_select,rvars=sfplat) +CALL shdf5_irec (h5_fid,iphdf5,'polelon',mem_select,file_select,rvars=sfplon) +CALL shdf5_irec (h5_fid,iphdf5,'sw_lat',mem_select,file_select,rvars=sflat) +CALL shdf5_irec (h5_fid,iphdf5,'sw_lon',mem_select,file_select,rvars=sflon) +CALL shdf5_irec (h5_fid,iphdf5,'itoptflg',mem_select,file_select,ivars=nsitoptflg) +CALL shdf5_irec (h5_fid,iphdf5,'itopsflg',mem_select,file_select,ivars=nsitopsflg) +CALL shdf5_irec (h5_fid,iphdf5,'toptenh',mem_select,file_select,rvars=stoptenh) +CALL shdf5_irec (h5_fid,iphdf5,'toptwvl',mem_select,file_select,rvars=stoptwvl) +CALL shdf5_irec (h5_fid,iphdf5,'iz0flg',mem_select,file_select,ivars=nsiz0flg) +CALL shdf5_irec (h5_fid,iphdf5,'z0max',mem_select,file_select,rvars=sz0max) +CALL shdf5_irec (h5_fid,iphdf5,'z0fact',mem_select,file_select,rvars=sz0fact) + +CALL shdf5_close (h5_fid) + + +if (nsfx .ne. nnxp(ifm) .or. & + nsfy .ne. nnyp(ifm) .or. & + abs(sfdx-deltaxn(ifm)) .gt. .001 .or. & + abs(sfplat-polelat) .gt. .001 .or. & + abs(sfplon-polelon) .gt. .001 .or. & + abs(sflat-glatr) .gt. .001 .or. & + abs(sflon-glonr) .gt. .001 .or. & + nsitoptflg .ne. itoptflg(ifm) .or. & + nsitopsflg .ne. itopsflg(ifm) .or. & + abs(stoptenh-toptenh(ifm)) .gt. .001 .or. & + abs(stoptwvl-toptwvl(ifm)) .gt. .001 .or. & + nsiz0flg .ne. iz0flg(ifm) .or. & + abs(sz0max-z0max(ifm)) .gt. .001 .or. & + abs(sz0fact-z0fact) .gt. .00001) then + + ierr = 1 + + print*,'SFCfile mismatch on grid:',ifm + print*,'Values: model, file' + print*,'-------------------' + print*,'nnxp:',nnxp(ifm),nsfx + print*,'nnyp:',nnyp(ifm),nsfy + print*,'deltax:',deltaxn(ifm),sfdx + print*,'polelat:',polelat,sfplat + print*,'polelon:',polelon,sfplon + print*,'SW lat:',glatr,sflat + print*,'SW lon:',glonr,sflon + print*,'itoptflg:',itoptflg(ifm),nsitoptflg + print*,'itopsflg:',itopsflg(ifm),nsitopsflg + print*,'toptenh:',toptenh(ifm),stoptenh + print*,'toptwvl:',toptwvl(ifm),stoptwvl + print*,'iz0flg:',iz0flg(ifm),nsiz0flg + print*,'z0max:',z0max(ifm),sz0max + print*,'z0fact:',z0fact,sz0fact + print*,'-------------------' + +else + + ierr = 0 + print*,'---> Grid:',ifm,' topography file data okay. ' + print*,'------------------------------------------------' + +endif + +return +END SUBROUTINE top_check + +!############################################################################## +Subroutine toptinit (n2,n3,topt,topzo) + +implicit none + +integer :: n2,n3,i,j +real, dimension(n2,n3) :: topt,topzo + +! Fill the TOPT array with a default value of 0. This default is used only +! when a standard RAMS topography dataset is not used and when no overrides +! to topography heights are defined in routine toptinit_user in the +! file ruser.f. + +do j = 1,n3 + do i = 1,n2 + topt(i,j) = 0. + topzo(i,j) = .0001 + enddo +enddo + +return +END SUBROUTINE toptinit + +!############################################################################## +Subroutine top_write (ifm) + +use mem_mksfc +use mem_grid +use node_mod +use io_params +use hdf5_utils + +implicit none + +integer :: ifm +real :: glatr,glonr +character(len=strl1) :: flnm +character(len=2) :: cgrid +integer*8 :: h5_fid +integer :: iphdf5 +type (hdf5_select_type) :: mem_select,file_select +integer, dimension(HDF5_MAX_DIMS) :: file_chunks + +if (nmachs .gt. 1) then + iphdf5 = 1 +else + iphdf5 = 0 +endif + +! write surface characteristics, one file for each grid + +write(cgrid,'(a1,i1)') 'g',ifm + +flnm=trim(topfiles)//'-S-'//cgrid//'.h5' + +CALL xy_ll (glatr,glonr,polelat,polelon,xtn(1,ifm),ytn(1,ifm)) + +CALL shdf5_open (flnm,'W',iphdf5,h5_fid,iclobber) + +! Scalar vars +CALL shdf5_set_hs_select (1,'W',ifm,mem_select,file_select,file_chunks) +CALL shdf5_orec (h5_fid,iphdf5,'nx',mem_select,file_select & + ,file_chunks,ivars=nnxp(ifm)) +CALL shdf5_orec (h5_fid,iphdf5,'ny',mem_select,file_select & + ,file_chunks,ivars=nnyp(ifm)) +CALL shdf5_orec (h5_fid,iphdf5,'dx',mem_select,file_select & + ,file_chunks,rvars=deltaxn(ifm)) +CALL shdf5_orec (h5_fid,iphdf5,'polelat',mem_select,file_select & + ,file_chunks,rvars=polelat) +CALL shdf5_orec (h5_fid,iphdf5,'polelon',mem_select,file_select & + ,file_chunks,rvars=polelon) +CALL shdf5_orec (h5_fid,iphdf5,'sw_lat',mem_select,file_select & + ,file_chunks,rvars=glatr) +CALL shdf5_orec (h5_fid,iphdf5,'sw_lon',mem_select,file_select & + ,file_chunks,rvars=glonr) +CALL shdf5_orec (h5_fid,iphdf5,'itoptflg',mem_select,file_select & + ,file_chunks,ivars=itoptflg(ifm)) +CALL shdf5_orec (h5_fid,iphdf5,'itopsflg',mem_select,file_select & + ,file_chunks,ivars=itopsflg(ifm)) +CALL shdf5_orec (h5_fid,iphdf5,'toptenh',mem_select,file_select & + ,file_chunks,rvars=toptenh(ifm)) +CALL shdf5_orec (h5_fid,iphdf5,'toptwvl',mem_select,file_select & + ,file_chunks,rvars=toptwvl(ifm)) +CALL shdf5_orec (h5_fid,iphdf5,'iz0flg',mem_select,file_select & + ,file_chunks,ivars=iz0flg(ifm)) +CALL shdf5_orec (h5_fid,iphdf5,'z0max',mem_select,file_select & + ,file_chunks,rvars=z0max(ifm)) +CALL shdf5_orec (h5_fid,iphdf5,'z0fact',mem_select,file_select & + ,file_chunks,rvars=z0fact) + +! Atmos 2D vars +CALL shdf5_set_hs_select (2,'W',ifm,mem_select,file_select,file_chunks) +CALL shdf5_orec (h5_fid,iphdf5,'TOPT',mem_select,file_select & + ,file_chunks,rvara=sfcfile_p(ifm)%topt) +CALL shdf5_orec (h5_fid,iphdf5,'TOPZO',mem_select,file_select & + ,file_chunks,rvara=sfcfile_p(ifm)%topzo) + +CALL shdf5_close (h5_fid) + +return +END SUBROUTINE top_write diff --git a/src/6.2.16/mksfc/ndvi_read.f90 b/src/6.2.16/mksfc/ndvi_read.f90 new file mode 100644 index 0000000..d38c4c5 --- /dev/null +++ b/src/6.2.16/mksfc/ndvi_read.f90 @@ -0,0 +1,497 @@ +!############################################################################## +Subroutine ndvi_read (runflag,ifm,ierr) + +use mem_grid +use mem_leaf +use io_params +use node_mod + +implicit none + +integer :: runflag,ifm,ierr + +character(len=14), save :: totdate_start,totdate_init +character(len=14) :: totdate,totdatem +integer :: nf,ng,i,j,ip +real :: timefac_ndvi +real(kind=8) :: secs_init,secs1,secs2 + +ierr = 0 + +if (runflag == 1 .or. runflag == 2) then ! Initialization(1) or file check(2) + + ! Inventory all ndvi surface files. + CALL ndvi_file_inv (ndvifpfx,ierr) + if(ierr == 1) then + if(runflag == 2) return + if(runflag == 1) stop 'ndvi_read: error on init' + endif + + ! Find init and start date + CALL date_make_big (iyear1,imonth1,idate1,itime1*100 & + ,totdate_init) + if (trim(runtype) == 'HISTORY') then + CALL date_add_to_big (totdate_init,time,'s',totdate_start) + elseif (trim(runtype) == 'INITIAL' .or. trim(runtype) == 'ERROR' .or. & + trim(runtype) == 'MAKEVFILE' .or. trim(runtype) == 'MAKEHFILE') then + totdate_start=totdate_init + endif + + ! Do some checks on times + do ng = 1, ngrids + if(itotdate_ndvi(1,ng) > totdate_start .and. indvicycdata == 0) then + print*, 'initial ndvi file time for grid ',ng & + ,' later than beginning of run' + ierr = 1 + endif + + if(iupdndvi == 1 .and. nndvifiles(ng) == 1) then + print*, 'updating ndvi values but only one ndvi file' & + ,' for grid',ng + ierr = 1 + endif + + CALL date_add_to_big (totdate_init,timmax,'s',totdatem) + if(iupdndvi == 1 .and. indvicycdata == 0 .and. & + itotdate_ndvi(nndvifiles(ng),ng) < totdatem) then + print*, 'ndvi_read: final ndvi file time for grid ',ng & + ,'earlier than end of run - making new ndvi files' + ierr = 1 + endif + enddo + + ! Return if errors + if(ierr == 1 .and. runflag == 1) return + + ! If we are only checking, we're done. + if(runflag == 2) return + + do ng = 1, ngrids + + ! Change the ndvi file dates to the current year. We will increment + ! when we need to read a future file. + if(indvicyclic == 1) then + do nf=1,nndvifiles(ng) + itotdate_ndvi(nf,ng)(1:4)=totdate_start(1:4) + enddo + endif + + ! Find past time file. The files are ordered in time, so we only + ! need to find when start time is greater than a file. + indviflp(ng)=0 + do nf=nndvifiles(ng),1,-1 + if(totdate_start >= itotdate_ndvi(nf,ng) ) then + indviflp(ng)=nf + exit + endif + enddo + + indviflf(ng)=indviflp(ng)+1 + + ! If we are cyclic, we possibly didn't find a start time later than + ! a file time. I think it is safe to assume that we will use the + ! last file for the start file. Also see if future time will be on + ! next cycle. + if(indvicycdata == 1 ) then + if(indviflp(ng) == 0) indviflp(ng) = nndvifiles(ng) + if(indviflf(ng) > nndvifiles(ng)) indviflf(ng)=1 + endif + + if(print_msg) print*,'ndvi starting at file:',ng,indviflp(ng),indviflf(ng) + + ! Read past/future time ndvi field + + CALL ndvi_update (0,indviflp(ng)) + + if(iupdndvi == 1) then + ! Read future time ndvi field if updating + CALL ndvi_update (1,indviflf(ng)) + + ! Compute times as number of seconds past 1 Jan 1900 + CALL date_abs_secs (totdate_init,secs_init) + + ! Get model time of past file + totdatem=itotdate_ndvi(indviflp(ng),ng) + if(indvicyclic == 1) then + ! If month of past file > current month, subtract a year + if(totdatem(5:6) > totdate_start(5:6)) & + CALL date_add_to_big (totdatem,-365.,'d',totdatem) + endif + CALL date_abs_secs (totdatem,secs1) + + totdatem=itotdate_ndvi(indviflf(ng),ng) + if(indvicyclic == 1) then + if(totdatem < totdate_start) then + ! Future file is in next year. Update all file names for a new year + CALL date_add_to_big (totdatem, 365.,'d',totdatem) + do nf=1,nndvifiles(ng) + itotdate_ndvi(nf,ng)(1:4)=totdatem(1:4) + enddo + endif + endif + CALL date_abs_secs (totdatem,secs2) + + ndvitime1(ng) = secs1 - secs_init + ndvitime2(ng) = secs2 - secs_init + else + do ip=1,npatch + leaf_g(ng)%veg_ndvip(1:mmxp(ng),1:mmyp(ng),ip)= & + leaf_g(ng)%veg_ndvif(1:mmxp(ng),1:mmyp(ng),ip) + enddo + ndvitime1(ng) = 0. + ndvitime2(ng) = 0. + endif + + ! Fill "current" time ndvi values for INITIAL start + ! History restart will already have the current value stored + if (trim(runtype) /= 'HISTORY')then + if (iupdndvi == 0) then + timefac_ndvi = 0. + else + timefac_ndvi = (time - ndvitime1(ng)) & + / (ndvitime2(ng) - ndvitime1(ng)) + endif + + do ip=1,npatch + do j=1,mmyp(ng) + do i=1,mmxp(ng) + leaf_g(ng)%veg_ndvic(i,j,ip) = leaf_g(ng)%veg_ndvip(i,j,ip) & + + (leaf_g(ng)%veg_ndvif(i,j,ip) & + - leaf_g(ng)%veg_ndvip(i,j,ip)) * timefac_ndvi + ! print*,'ndvi:',i,j,ip,leaf_g(ng)%veg_ndvic(i,j,ip) + enddo + enddo + enddo + endif + + enddo + + return + +elseif (runflag == 3) then ! Runtime file increment + + CALL date_add_to_big (totdate_init,time,'s',totdate) + + if ( time >= ndvitime2(ifm) ) then + + ! Update ndvi fields + indviflp(ifm) = indviflf(ifm) + indviflf(ifm) = indviflp(ifm) + 1 + + ! Compute times as number of seconds past 1 Jan 1900 + ! If cyclic, modify file date + CALL date_abs_secs (totdate_init,secs_init) + CALL date_add_to_big (totdate_init,time,'s',totdate) + + totdatem=itotdate_ndvi(indviflp(ifm),ifm) + CALL date_abs_secs (totdatem,secs1) + + ! Need to deal with cyclic. + if(indvicyclic == 1 .and. indviflf(ifm) > nndvifiles(ifm)) then + indviflf(ifm)=1 + ! Update all file names for a new year + totdatem=itotdate_ndvi(indviflf(ifm),ifm) + CALL date_add_to_big (totdatem, 365.,'d',totdatem) + do nf=1,nndvifiles(ifm) + itotdate_ndvi(nf,ifm)(1:4)=totdatem(1:4) + enddo + endif + + totdatem=itotdate_ndvi(indviflf(ifm),ifm) + CALL date_abs_secs (totdatem,secs2) + + ndvitime1(ifm) = secs1 - secs_init + ndvitime2(ifm) = secs2 - secs_init + + ! Finally read the actual field + CALL ndvi_update (1,indviflf(ifm)) + + print*,'Switched ndvi files:',ndvitime1(ifm),ndvitime2(ifm) & + ,secs1,secs2,secs_init + + else + + return + + endif + +endif + +return +END SUBROUTINE ndvi_read + +!############################################################################## +Subroutine ndvi_file_inv (sfilin,ierr) + +use mem_grid +use io_params + +implicit none + +character(len=*) :: sfilin +integer :: ierr,nf,lnf,nftot,ng,inyear,inmonth,indate,inhour +character(len=strl1) :: fnames(maxndvifiles) +character(len=14) :: itotdate +character(len=1) :: cgrid +real(kind=8) :: secs_init + +ierr=0 + +! Get abs seconds of run start + +CALL date_abs_secs2 (iyear1,imonth1,idate1,itime1*100,secs_init) + +! Go through ndvi files and make inventory. We unfortunately have to do this +! for all grids. + +indvicyclic=0 +indvicycdata=0 + +do ng = 1, ngrids + + nftot = -1 + write(cgrid,'(i1)') ng + CALL rams_filelist (fnames,trim(sfilin)//'-N-*-g'//cgrid//'.h5',nftot) + + if(nftot <= 0) then + print*,'No ndvi files for grid '//cgrid + ierr=1 + return + endif + + if(nftot > maxndvifiles) then + print*,'too many ndvi files' + stop 'ndvi_file_inv: lots_of_ndvi' + endif + + + ! We need to see if the data is to be considered "cyclic". Count how many files + ! have the year 0000. If all of them do not, we probably have an error. + ! indvicycdata = 1 when data is cyclic + ! indvicyclic =1 when we are have cyclic data and will be updating in time + + nndvifiles(ng)=0 + do nf=1,nftot + lnf=len_trim(fnames(nf)) + read(fnames(nf)(lnf-22:lnf-6),20) inyear,inmonth,indate,inhour + 20 format(i4,1x,i2,1x,i2,1x,i6) + + ! Check the file headers + CALL ndvi_check_header (ng,fnames(nf),ierr) + if(ierr == 1) return + + if(inyear == 0) indvicycdata=indvicycdata+1 + + CALL date_make_big (inyear,inmonth,indate,inhour,itotdate) + + nndvifiles(ng)=nndvifiles(ng)+1 + fnames_ndvi(nndvifiles(ng),ng)=fnames(nf) + itotdate_ndvi(nndvifiles(ng),ng)=itotdate + + enddo + + CALL rams_dintsort (nndvifiles(ng),itotdate_ndvi(1,ng),fnames_ndvi(1,ng)) + + + ! start printing section + !-------------------------------------------------------------- + + if(print_msg) then + print*,'-------------------------------------------------------------' + print*,'----------- NDVI Input File Inventory: Grid '//cgrid + print*,'-------------------------------------------------------------' + do nf=1,nndvifiles(ng) + print*, itotdate_ndvi(nf,ng),' ',trim(fnames_ndvi(nf,ng)) + enddo + print*,'------------------------------------------------------' + endif + +enddo + +! Check the cyclic condition. Only relevant if we are updating in time. +! WE ARE ONLY ALLOWING CYCLIC ON ALL GRIDS +if(indvicycdata > 0) then + if(indvicycdata /= sum(nndvifiles(1:ngrids))) then + print*, 'All ndvi surface files do not have year 0000' + print*, 'This confuses the gods and can not occur.' + stop 'ndvi_inv' + endif + indvicycdata=1 +else + indvicycdata=0 +endif + + +! Set the main cyclic flag. Only relevant if we are updating in time. +if(iupdndvi == 1 .and. indvicycdata == 1) indvicyclic=1 + +return +END SUBROUTINE ndvi_file_inv + +!############################################################################## +Subroutine ndvi_update (iswap,nfile) + +use mem_leaf +use mem_grid +use node_mod +use io_params +use hdf5_utils + +implicit none + +integer :: iswap,nfile,i,j +integer :: ng,nc,ip +character(len=1) :: cgrid +character(len=strl1) :: flnm +integer*8 :: h5_fid +integer :: iphdf5 +type (hdf5_select_type) :: mem_select,file_select +integer, dimension(HDF5_MAX_DIMS) :: file_chunks + +if (nmachs .gt. 1) then + iphdf5 = 1 +else + iphdf5 = 0 +endif + + +! Put new fields into future arrays. If iswap == 1, +! swap future into past first + +if (iswap == 1) then + do ng=1,ngrids + do ip = 1,npatch + leaf_g(ng)%veg_ndvip(1:mmxp(ng),1:mmyp(ng),ip)= & + leaf_g(ng)%veg_ndvif(1:mmxp(ng),1:mmyp(ng),ip) + enddo + enddo +endif + + +! Open the input file for each grid and read field. +do ng=1,ngrids + ! Contruct file name for this grid + write(cgrid, '(i1)') ng + flnm=fnames_ndvi(nfile,ng) + nc=len_trim(flnm)-3 + flnm(nc:nc)=cgrid + + CALL shdf5_open (flnm,'R',iphdf5,h5_fid) + ! Leaf 3 2D vars + CALL shdf5_set_hs_select (6,'R',ng,mem_select,file_select,file_chunks) + CALL shdf5_irec (h5_fid,iphdf5,'VEG_NDVIF',mem_select & + ,file_select,rvara=leaf_g(ng)%veg_ndvif) + CALL shdf5_close (h5_fid) +enddo + +!Saleeby(2010): Set grid boundarys as in leaf3 for NDVI +!Do this here so that boundary assignments are made before the first +!analysis write and first timestep. +do ng=1,ngrids + do ip = 1,npatch + do j = 1,mmyp(ng) + leaf_g(ng)%veg_ndvif(1,j,ip)=leaf_g(ng)%veg_ndvif(2,j,ip) + leaf_g(ng)%veg_ndvif(mmxp(ng),j,ip)=leaf_g(ng)%veg_ndvif(mmxp(ng)-1,j,ip) + enddo + if (jdim == 1) then + do i = 1,mmxp(ng) + leaf_g(ng)%veg_ndvif(i,1,ip)=leaf_g(ng)%veg_ndvif(i,2,ip) + leaf_g(ng)%veg_ndvif(i,mmyp(ng),ip)=leaf_g(ng)%veg_ndvif(i,mmyp(ng)-1,ip) + enddo + endif + enddo +enddo + +return +END SUBROUTINE ndvi_update + +!############################################################################## +Subroutine ndvi_check_header (ifm,flnm,ierr) + +! This routine checks for the existence of an ndvi file for +! grid number ifm, and if it exists, also checks for agreement of +! grid configuration between the file and the current model run. +! If the file does not exist or does not match grid configuration, +! the flag ierr is returned with a value of 1. If the file +! exists and is ok, ierr is returned with a value of 0. + +use mem_grid +use node_mod +use hdf5_utils + +implicit none + +integer :: ifm,ierr +character(len=*) :: flnm + +integer :: nsfx,nsfy,nsfpat +real :: sfdx,sfplat,sfplon,sflat,sflon,glatr,glonr +integer*8 :: h5_fid +integer :: iphdf5 +type (hdf5_select_type) :: mem_select,file_select +integer, dimension(HDF5_MAX_DIMS) :: file_chunks + +if (nmachs .gt. 1) then + iphdf5 = 1 +else + iphdf5 = 0 +endif + +ierr = 0 + +if(print_msg) & + print '(a,i3,1x,a,a,$)',' ---> Check grid:',ifm,' ndvi filename:',trim(flnm) + +CALL xy_ll (glatr,glonr,polelat,polelon,xtn(1,ifm),ytn(1,ifm)) + + +CALL shdf5_open (flnm,'R',iphdf5,h5_fid) + +! Scalar vars (set 3rd argument, igrid, to 1 since always have at least 1 grid) +CALL shdf5_set_hs_select (1,'R',1,mem_select,file_select,file_chunks) +CALL shdf5_irec (h5_fid,iphdf5,'nx',mem_select,file_select,ivars=nsfx) +CALL shdf5_irec (h5_fid,iphdf5,'ny',mem_select,file_select,ivars=nsfy) +CALL shdf5_irec (h5_fid,iphdf5,'npatch',mem_select,file_select,ivars=nsfpat) +CALL shdf5_irec (h5_fid,iphdf5,'dx',mem_select,file_select,rvars=sfdx) +CALL shdf5_irec (h5_fid,iphdf5,'polelat',mem_select,file_select,rvars=sfplat) +CALL shdf5_irec (h5_fid,iphdf5,'polelon',mem_select,file_select,rvars=sfplon) +CALL shdf5_irec (h5_fid,iphdf5,'sw_lat',mem_select,file_select,rvars=sflat) +CALL shdf5_irec (h5_fid,iphdf5,'sw_lon',mem_select,file_select,rvars=sflon) + +CALL shdf5_close (h5_fid) + +if (nsfx .ne. nnxp(ifm) .or. & + nsfy .ne. nnyp(ifm) .or. & + nsfpat .ne. npatch .or. & + abs(sfdx-deltaxn(ifm)) .gt. .001 .or. & + abs(sfplat-polelat) .gt. .001 .or. & + abs(sfplon-polelon) .gt. .001 .or. & + abs(sflat-glatr) .gt. .001 .or. & + abs(sflon-glonr) .gt. .001) then + + ierr = 1 + + print* + print*,'ndvifile mismatch on grid:',ifm + print*,'Values: model, file' + print*,'-------------------' + print*,'nnxp:',nnxp(ifm),nsfx + print*,'nnyp:',nnyp(ifm),nsfy + print*,'npatch:',npatch,nsfpat + print*,'deltax:',deltaxn(ifm),sfdx + print*,'polelat:',polelat,sfplat + print*,'polelon:',polelon,sfplon + print*,'SW lat:',glatr,sflat + print*,'SW lon:',glonr,sflon + print*,'-------------------' + +else + + ierr = 0 + if(print_msg) print*,' ---> good ' + +endif + +return +END SUBROUTINE ndvi_check_header + diff --git a/src/6.2.16/mksfc/nest_geosst.f90 b/src/6.2.16/mksfc/nest_geosst.f90 new file mode 100644 index 0000000..3b8abf5 --- /dev/null +++ b/src/6.2.16/mksfc/nest_geosst.f90 @@ -0,0 +1,474 @@ +!############################################################################## +Subroutine toptnest (ngra,ngrb) + +use mem_mksfc +use mem_grid +use io_params +use node_mod + +implicit none + +integer :: ngra,ngrb +integer :: ifm,icm,nc1 + +do ifm = ngra,ngrb + icm = nxtnest(ifm) +! Initialize TOPOGRAPHY in toptinit. + + CALL toptinit (mmxp(ifm),mmyp(ifm) & + ,sfcfile_p(ifm)%topt(1,1),sfcfile_p(ifm)%topzo(1,1)) + + if (icm .ge. 1 .and. itoptflg(ifm) .eq. 0) then + CALL newgrid (ifm) + CALL interp_fine_grid_sfcvar (ifm,icm,IFG_TOPT1_INIT) + + elseif (itoptflg(ifm) .eq. 1) then + + ! Interpolate TOPO from standard dataset: + CALL geodat (mmxp(ifm),mmyp(ifm),sfcfile_p(ifm)%topt(1,1) & + ,itoptfn(ifm),itoptfn(ifm),vt2da,vt2db,ifm,'TOP') + ! Interpolate TOPO ZO from standard dataset: + CALL geodat (mmxp(ifm),mmyp(ifm),sfcfile_p(ifm)%topzo(1,1) & + ,itoptfn(ifm),itoptfn(ifm),vt2da,vt2db,ifm,'ZOT') + + endif + +! If desired, override current values of TOPOGRAPHY in ruser.f routine. + + CALL toptinit_user (mmxp(ifm),mmyp(ifm),ifm & + ,sfcfile_p(ifm)%topt(1,1) ,sfcfile_p(ifm)%topzo(1,1)) + +enddo + +if (ngra .eq. ngrb) return + +! In case topography data have been independently reassigned on any grid, +! average fine mesh topography sequentially to the coarser grids. + +do ifm = ngrb,ngra,-1 + if (nxtnest(ifm) .gt. ngridsh .and. ifm .ge. 2) then + icm = nxtnest(ifm) + + CALL fdback (sfcfile_p(icm)%topt(1,1),sfcfile_p(ifm)%topt(1,1) & + ,vt2da,scr2,1,mmxp(icm),mmyp(icm) & + ,1,mmxp(ifm),mmyp(ifm),ifm,'terr',vt2db) + + endif +enddo + +! In case terrain heights have been independently reassigned on +! any grid, we want to smooth out (re-interpolate) the boundary +! region (roughly one nstratx worth of fine grid points). Do this +! by: +! 1) copy fine topt to scr1 +! 2) interpolate topt +! 3) copy interpolated fine topt to scr2 +! 4) copy the interior (call to ae2 subroutine) of +! scr1 (orignial topt) to scr2 (interpolated topt) +! 5) copy scr2 to fine topt + +do ifm = ngra,ngrb + icm = nxtnest(ifm) + if (icm .ge. 1) then + ! Copy fine topt to scr1 + CALL ae1 (mmxp(ifm)*mmyp(ifm),scr1,sfcfile_p(ifm)%topt(1,1)) + + ! Interpolate topt + CALL newgrid (ifm) + CALL interp_fine_grid_sfcvar (ifm,icm,IFG_TOPT2_INIT) + + ! Copy interpolated topt to scr2 + CALL ae1 (mmxp(ifm)*mmyp(ifm),scr2,sfcfile_p(ifm)%topt(1,1)) + + ! Copy interior of scr1 to scr2 + nc1 = jdim * (nstraty(ifm) + 1) + CALL ae2 (mmxp(ifm),mmyp(ifm),2+nstratx(ifm) & + ,mmxp(ifm)-1-nstratx(ifm),1+nc1,mmyp(ifm)-nc1 & + ,scr2,scr1) + + ! Copy scr2 to topt + CALL ae1 (mmxp(ifm)*mmyp(ifm),sfcfile_p(ifm)%topt(1,1),scr2) + + endif +enddo + +return +END SUBROUTINE toptnest + +!############################################################################## +Subroutine geonest_file (ifm) + +use mem_mksfc +use mem_grid +use io_params +use mem_leaf +use node_mod + +implicit none + +integer :: ifm +integer :: icm,ipat,i,j,k + +icm = nxtnest(ifm) + +! Initialize PATCH AREA, LANDUSE CLASS, and SOIL TEXTURAL CLASS +! in routine sfcinit. + +CALL sfcinit_file (mmxp(ifm),mmyp(ifm),nzg,npatch & + ,sfcfile_p(ifm)%patch_area(1,1,1) & + ,sfcfile_p(ifm)%leaf_class(1,1,1) & + ,sfcfile_p(ifm)%soil_text(1,1,1,1)) + + +print*, ' ' +print*,'=====================================================' +print*,'Starting landuse data input on grid ',ifm +print*,'=====================================================' + +if (icm .ge. 1 .and. ivegtflg(ifm) .eq. 0) then + +! Assign PATCH AREAS and PATCH CLASSES from coarser grid: + + do ipat = 1,npatch + do j = 1,mmyp(ifm) + do i = 1,mmxp(ifm) + + sfcfile_p(ifm)%patch_area(i,j,ipat) = & + sfcfile_p(icm)%patch_area(ipm(i,ifm),jpm(j,ifm),ipat) + sfcfile_p(ifm)%leaf_class(i,j,ipat) = & + sfcfile_p(icm)%leaf_class(ipm(i,ifm),jpm(j,ifm),ipat) + + enddo + enddo + enddo + + +elseif (ivegtflg(ifm) .eq. 1) then + +! Assign PATCH AREAS and PATCH CLASSES from standard dataset: + + CALL landuse_opqr (mmxp(ifm),mmyp(ifm),nzg,npatch,nvegpat & + ,ivegtfn(ifm),isoilfn(ifm) & + ,ndvifn(ifm),vndvifil(1,ifm) & + ,'veg' & + ,sfcfile_p(ifm)%soil_text(1,1,1,1) & + ,sfcfile_p(ifm)%patch_area(1,1,1) & + ,sfcfile_p(ifm)%leaf_class(1,1,1) & + ,sfcfile_p(ifm)%veg_ndvif(1,1,1)) + + +endif + +if (icm .ge. 1 .and. isoilflg(ifm) .eq. 0) then + +! Assign SOIL TEXTURE CLASS from coarser grid + + do ipat = 2,npatch + do k = 1,nzg + do j = 1,mmyp(ifm) + do i = 1,mmxp(ifm) + sfcfile_p(ifm)%soil_text(k,i,j,ipat) = & + sfcfile_p(icm)%soil_text(k,ipm(i,ifm),jpm(j,ifm),ipat) + enddo + enddo + enddo + enddo + +elseif (isoilflg(ifm) .eq. 1) then + +! Assign SOIL TEXTURE CLASS from standard dataset: + + CALL landuse_opqr (mmxp(ifm),mmyp(ifm),nzg,npatch,nvegpat & + ,ivegtfn(ifm),isoilfn(ifm) & + ,ndvifn(ifm),vndvifil(1,ifm) & + ,'soil' & + ,sfcfile_p(ifm)%soil_text(1,1,1,1) & + ,sfcfile_p(ifm)%patch_area(1,1,1) & + ,sfcfile_p(ifm)%leaf_class(1,1,1) & + ,sfcfile_p(ifm)%veg_ndvif(1,1,1)) + +endif + +! If desired, override current values of PATCH AREA, PATCH CLASS, +! LEAF-2 VEGETATION CLASS, SOIL TEXTURAL CLASS, and/or +! NDVI in ruser.f routines. + +CALL sfcinit_file_user (mmxp(ifm),mmyp(ifm),nzg,npatch,ifm & + ,sfcfile_p(ifm)%patch_area (1,1,1) & + ,sfcfile_p(ifm)%leaf_class (1,1,1) & + ,sfcfile_p(ifm)%soil_text (1,1,1,1) ) + +! As a final initialization step, eliminate any land patch area that is less +! than 1% of the total grid cell area. Set its area to zero, and compensate +! by enlarging areas of remaining patches. + +CALL patch_minsize (mmxp(ifm),mmyp(ifm),npatch & + ,sfcfile_p(ifm)%patch_area(1,1,1)) + +return +END SUBROUTINE geonest_file + +!############################################################################## +Subroutine geonest_nofile (ngra,ngrb) + +use mem_leaf +use mem_sib +use mem_basic +use mem_scratch +use mem_grid +use io_params +use node_mod + +implicit none + +integer :: ngra,ngrb +integer :: isiz,ifm,icm,ipat,i,j,k,ic,jc + +! Initialization/interpolation of leaf-2 variables for which standard RAMS +! datasets never exist. + +isiz = maxnxp * maxnyp + +do ifm = ngra,ngrb + icm = nxtnest(ifm) + +! First, fill NOFILE LEAF-2 variables with default values in SFCINIT. + + CALL sfcinit_nofile (mmzp(ifm),mmxp(ifm),mmyp(ifm),nzg,nzs & + ,npatch,ifm & + ,basic_g(ifm)%theta (1,1,1) & + ,basic_g(ifm)%pi0 (1,1,1) & + ,basic_g(ifm)%pp (1,1,1) & + ,basic_g(ifm)%rv (1,1,1) & + + ,leaf_g(ifm)%seatp (1,1) & + ,leaf_g(ifm)%seatf (1,1) & + + ,leaf_g(ifm)%soil_water (1,1,1,1) & + ,leaf_g(ifm)%soil_energy (1,1,1,1) & + ,leaf_g(ifm)%soil_text (1,1,1,1) & + ,leaf_g(ifm)%sfcwater_mass (1,1,1,1) & + ,leaf_g(ifm)%sfcwater_energy (1,1,1,1) & + ,leaf_g(ifm)%sfcwater_depth (1,1,1,1) & + ,leaf_g(ifm)%veg_fracarea (1,1,1) & + ,leaf_g(ifm)%veg_lai (1,1,1) & + ,leaf_g(ifm)%veg_tai (1,1,1) & + ,leaf_g(ifm)%veg_rough (1,1,1) & + ,leaf_g(ifm)%veg_height (1,1,1) & + ,leaf_g(ifm)%veg_albedo (1,1,1) & + ,leaf_g(ifm)%patch_area (1,1,1) & + ,leaf_g(ifm)%patch_rough (1,1,1) & + ,leaf_g(ifm)%leaf_class (1,1,1) & + ,leaf_g(ifm)%soil_rough (1,1,1) & + ,leaf_g(ifm)%sfcwater_nlev (1,1,1) & + ,leaf_g(ifm)%stom_resist (1,1,1) & + ,leaf_g(ifm)%ground_rsat (1,1,1) & + ,leaf_g(ifm)%ground_rvap (1,1,1) & + ,leaf_g(ifm)%veg_water (1,1,1) & + ,leaf_g(ifm)%veg_temp (1,1,1) & + ,leaf_g(ifm)%can_rvap (1,1,1) & + ,leaf_g(ifm)%can_temp (1,1,1) & + ,leaf_g(ifm)%veg_ndvip (1,1,1) & + ,leaf_g(ifm)%veg_ndvic (1,1,1) & + ,leaf_g(ifm)%veg_ndvif (1,1,1) & + ,leaf_g(ifm)%snow_mass (1,1) & + ,leaf_g(ifm)%snow_depth (1,1) & + ,leaf_g(ifm)%soil_moist_top (1,1) & + ,leaf_g(ifm)%soil_moist_bot (1,1) & + ,leaf_g(ifm)%soil_temp_top (1,1) & + ,leaf_g(ifm)%soil_temp_bot (1,1) & + ,grid_g(ifm)%glat (1,1) & + ,grid_g(ifm)%glon (1,1) & + ,grid_g(ifm)%topzo (1,1)) + +! Assignment section for NOFILE surface variables (LEAF3 and/or SiB). +! If needed, this section of code could be used to assign parent +! grid variable to nested grid variables in the following manner. +! if (icm > 0) then +! do ipat = 1,npatch +! do j = 1,nnyp(ifm) +! do i = 1,nnxp(ifm) +! ic = ipm(i,ifm) +! jc = jpm(j,ifm) +! do k = 1,nzg +! leaf_g(ifm)%soil_water (k,i,j,ipat) = & +! leaf_g(icm)%soil_water (k,ic,jc,ipat) +! leaf_g(ifm)%soil_energy (k,i,j,ipat) = & +! leaf_g(icm)%soil_energy (k,ic,jc,ipat) +! enddo +! do k = 1,nzs +! leaf_g(ifm)%sfcwater_mass (k,i,j,ipat) = & +! leaf_g(icm)%sfcwater_mass (k,ic,jc,ipat) +! leaf_g(ifm)%sfcwater_energy (k,i,j,ipat) = & +! leaf_g(icm)%sfcwater_energy (k,ic,jc,ipat) +! leaf_g(ifm)%sfcwater_depth (k,i,j,ipat) = & +! leaf_g(icm)%sfcwater_depth (k,ic,jc,ipat) +! enddo +! leaf_g(ifm)%veg_fracarea (i,j,ipat) = & +! leaf_g(icm)%veg_fracarea (ic,jc,ipat) +! leaf_g(ifm)%veg_lai (i,j,ipat) = & +! leaf_g(icm)%veg_lai (ic,jc,ipat) +! leaf_g(ifm)%veg_tai (i,j,ipat) = & +! leaf_g(icm)%veg_tai (ic,jc,ipat) +! leaf_g(ifm)%veg_rough (i,j,ipat) = & +! leaf_g(icm)%veg_rough (ic,jc,ipat) +! leaf_g(ifm)%veg_height (i,j,ipat) = & +! leaf_g(icm)%veg_height (ic,jc,ipat) +! leaf_g(ifm)%veg_albedo (i,j,ipat) = & +! leaf_g(icm)%veg_albedo (ic,jc,ipat) +! leaf_g(ifm)%patch_rough (i,j,ipat) = & +! leaf_g(icm)%patch_rough (ic,jc,ipat) +! leaf_g(ifm)%soil_rough (i,j,ipat) = & +! leaf_g(icm)%soil_rough (ic,jc,ipat) +! leaf_g(ifm)%sfcwater_nlev (i,j,ipat) = & +! leaf_g(icm)%sfcwater_nlev (ic,jc,ipat) +! leaf_g(ifm)%stom_resist (i,j,ipat) = & +! leaf_g(icm)%stom_resist (ic,jc,ipat) +! leaf_g(ifm)%ground_rsat (i,j,ipat) = & +! leaf_g(icm)%ground_rsat (ic,jc,ipat) +! leaf_g(ifm)%ground_rvap (i,j,ipat) = & +! leaf_g(icm)%ground_rvap (ic,jc,ipat) +! leaf_g(ifm)%veg_water (i,j,ipat) = & +! leaf_g(icm)%veg_water (ic,jc,ipat) +! leaf_g(ifm)%veg_temp (i,j,ipat) = & +! leaf_g(icm)%veg_temp (ic,jc,ipat) +! leaf_g(ifm)%can_rvap (i,j,ipat) = & +! leaf_g(icm)%can_rvap (ic,jc,ipat) +! leaf_g(ifm)%can_temp (i,j,ipat) = & +! leaf_g(icm)%can_temp (ic,jc,ipat) +! leaf_g(ifm)%veg_ndvic (i,j,ipat) = & +! leaf_g(icm)%veg_ndvic (ic,jc,ipat) +! !If running SIB land surface scheme +! if(isfcl==2)then +! sib_g(ifm)%snow1 (i,j,ipat) = sib_g(icm)%snow1 (ic,jc,ipat) +! sib_g(ifm)%snow2 (i,j,ipat) = sib_g(icm)%snow2 (ic,jc,ipat) +! sib_g(ifm)%capac1 (i,j,ipat) = sib_g(icm)%capac1 (ic,jc,ipat) +! sib_g(ifm)%capac2 (i,j,ipat) = sib_g(icm)%capac2 (ic,jc,ipat) +! sib_g(ifm)%pco2ap (i,j,ipat) = sib_g(icm)%pco2ap (ic,jc,ipat) +! sib_g(ifm)%co2flx (i,j,ipat) = sib_g(icm)%co2flx (ic,jc,ipat) +! sib_g(ifm)%sfcswa (i,j,ipat) = sib_g(icm)%sfcswa (ic,jc,ipat) +! sib_g(ifm)%uplwrf (i,j,ipat) = sib_g(icm)%uplwrf (ic,jc,ipat) +! sib_g(ifm)%assimn (i,j,ipat) = sib_g(icm)%assimn (ic,jc,ipat) +! sib_g(ifm)%respg (i,j,ipat) = sib_g(icm)%respg (ic,jc,ipat) +! sib_g(ifm)%rstfac1 (i,j,ipat) = sib_g(icm)%rstfac1 (ic,jc,ipat) +! sib_g(ifm)%rstfac2 (i,j,ipat) = sib_g(icm)%rstfac2 (ic,jc,ipat) +! sib_g(ifm)%rstfac3 (i,j,ipat) = sib_g(icm)%rstfac3 (ic,jc,ipat) +! sib_g(ifm)%ect (i,j,ipat) = sib_g(icm)%ect (ic,jc,ipat) +! sib_g(ifm)%eci (i,j,ipat) = sib_g(icm)%eci (ic,jc,ipat) +! sib_g(ifm)%egi (i,j,ipat) = sib_g(icm)%egi (ic,jc,ipat) +! sib_g(ifm)%egs (i,j,ipat) = sib_g(icm)%egs (ic,jc,ipat) +! sib_g(ifm)%hc (i,j,ipat) = sib_g(icm)%hc (ic,jc,ipat) +! sib_g(ifm)%hg (i,j,ipat) = sib_g(icm)%hg (ic,jc,ipat) +! sib_g(ifm)%ra (i,j,ipat) = sib_g(icm)%ra (ic,jc,ipat) +! sib_g(ifm)%rb (i,j,ipat) = sib_g(icm)%rb (ic,jc,ipat) +! sib_g(ifm)%rc (i,j,ipat) = sib_g(icm)%rc (ic,jc,ipat) +! sib_g(ifm)%rd (i,j,ipat) = sib_g(icm)%rd (ic,jc,ipat) +! sib_g(ifm)%roff (i,j,ipat) = sib_g(icm)%roff (ic,jc,ipat) +! sib_g(ifm)%green (i,j,ipat) = sib_g(icm)%green (ic,jc,ipat) +! sib_g(ifm)%apar (i,j,ipat) = sib_g(icm)%apar (ic,jc,ipat) +! sib_g(ifm)%ventmf (i,j,ipat) = sib_g(icm)%ventmf (ic,jc,ipat) +! sib_g(ifm)%pco2c (i,j,ipat) = sib_g(icm)%pco2c (ic,jc,ipat) +! sib_g(ifm)%pco2i (i,j,ipat) = sib_g(icm)%pco2i (ic,jc,ipat) +! sib_g(ifm)%pco2s (i,j,ipat) = sib_g(icm)%pco2s (ic,jc,ipat) +! sib_g(ifm)%pco2m (i,j,ipat) = sib_g(icm)%pco2m (ic,jc,ipat) +! sib_g(ifm)%ea (i,j,ipat) = sib_g(icm)%ea (ic,jc,ipat) +! sib_g(ifm)%em (i,j,ipat) = sib_g(icm)%em (ic,jc,ipat) +! sib_g(ifm)%rha (i,j,ipat) = sib_g(icm)%rha (ic,jc,ipat) +! sib_g(ifm)%radvbc (i,j,ipat) = sib_g(icm)%radvbc (ic,jc,ipat) +! sib_g(ifm)%radvdc (i,j,ipat) = sib_g(icm)%radvdc (ic,jc,ipat) +! sib_g(ifm)%radnbc (i,j,ipat) = sib_g(icm)%radnbc (ic,jc,ipat) +! sib_g(ifm)%radndc (i,j,ipat) = sib_g(icm)%radndc (ic,jc,ipat) +! sib_g(ifm)%psy (i,j,ipat) = sib_g(icm)%psy (ic,jc,ipat) +! endif +! enddo +! enddo +! enddo +! endif + +! Override any of the above variable assignments by user-specified changes +! to routine sfcinit_nofile_user. + + CALL sfcinit_nofile_user (mmzp(ifm),mmxp(ifm),mmyp(ifm),nzg,nzs & + ,npatch,ifm & + ,basic_g(ifm)%theta (1,1,1) & + ,basic_g(ifm)%pi0 (1,1,1) & + ,basic_g(ifm)%pp (1,1,1) & + ,basic_g(ifm)%rv (1,1,1) & + + ,leaf_g(ifm)%seatp (1,1) & + ,leaf_g(ifm)%seatf (1,1) & + + ,leaf_g(ifm)%soil_water (1,1,1,1) & + ,leaf_g(ifm)%soil_energy (1,1,1,1) & + ,leaf_g(ifm)%soil_text (1,1,1,1) & + ,leaf_g(ifm)%sfcwater_mass (1,1,1,1) & + ,leaf_g(ifm)%sfcwater_energy (1,1,1,1) & + ,leaf_g(ifm)%sfcwater_depth (1,1,1,1) & + ,leaf_g(ifm)%veg_fracarea (1,1,1) & + ,leaf_g(ifm)%veg_lai (1,1,1) & + ,leaf_g(ifm)%veg_tai (1,1,1) & + ,leaf_g(ifm)%veg_rough (1,1,1) & + ,leaf_g(ifm)%veg_height (1,1,1) & + ,leaf_g(ifm)%veg_albedo (1,1,1) & + ,leaf_g(ifm)%patch_area (1,1,1) & + ,leaf_g(ifm)%patch_rough (1,1,1) & + ,leaf_g(ifm)%leaf_class (1,1,1) & + ,leaf_g(ifm)%soil_rough (1,1,1) & + ,leaf_g(ifm)%sfcwater_nlev (1,1,1) & + ,leaf_g(ifm)%stom_resist (1,1,1) & + ,leaf_g(ifm)%ground_rsat (1,1,1) & + ,leaf_g(ifm)%ground_rvap (1,1,1) & + ,leaf_g(ifm)%veg_water (1,1,1) & + ,leaf_g(ifm)%veg_temp (1,1,1) & + ,leaf_g(ifm)%can_rvap (1,1,1) & + ,leaf_g(ifm)%can_temp (1,1,1) & + ,leaf_g(ifm)%veg_ndvip (1,1,1) & + ,leaf_g(ifm)%veg_ndvic (1,1,1) & + ,leaf_g(ifm)%veg_ndvif (1,1,1) & + ,leaf_g(ifm)%snow_mass (1,1) & + ,leaf_g(ifm)%snow_depth (1,1) & + ,leaf_g(ifm)%soil_moist_top (1,1) & + ,leaf_g(ifm)%soil_moist_bot (1,1) & + ,leaf_g(ifm)%soil_temp_top (1,1) & + ,leaf_g(ifm)%soil_temp_bot (1,1) & + ,grid_g(ifm)%glat (1,1) & + ,grid_g(ifm)%glon (1,1) & + ,grid_g(ifm)%topzo (1,1)) + +enddo + +return +END SUBROUTINE geonest_nofile + +!############################################################################## +Subroutine patch_minsize (n2,n3,npat,patch_area) + +implicit none + +integer :: n2,n3,npat,i,j,ipat,jpat +real :: orig_size +real, dimension(n2,n3,npat) :: patch_area + +do j = 1,n3 + do i = 1,n2 + do ipat = 2,npat + if (patch_area(i,j,ipat) .gt. 0. .and. & + patch_area(i,j,ipat) .lt. .01) then + + orig_size = patch_area(i,j,ipat) + patch_area(i,j,ipat) = 0. + + do jpat = 1,npat + if (jpat .ne. ipat) then + patch_area(i,j,jpat) = patch_area(i,j,jpat) & + / (1. - orig_size) + endif + enddo + endif + enddo + enddo +enddo + +return +END SUBROUTINE patch_minsize + diff --git a/src/6.2.16/mksfc/sst_read.f90 b/src/6.2.16/mksfc/sst_read.f90 new file mode 100644 index 0000000..c59b02f --- /dev/null +++ b/src/6.2.16/mksfc/sst_read.f90 @@ -0,0 +1,448 @@ +!############################################################################## +Subroutine sst_read (runflag,ifm,ierr) + +use mem_grid +use mem_leaf +use io_params +use node_mod + +implicit none + +integer :: runflag,ifm,ierr,nf,ng +character(len=14), save :: totdate_start,totdate_init +character(len=14) :: totdate,totdatem +real(kind=8) :: secs_init,secs1,secs2 + +ierr = 0 + +if (runflag == 1 .or. runflag == 2) then ! Initialization(1) or file check(2) + + ! Inventory all sst surface files. + CALL sst_file_inv (sstfpfx,ierr) + if(ierr == 1) then + if(runflag == 2) return + if(runflag == 1) stop 'sst_read: error on init' + endif + + ! Find init and start date + CALL date_make_big (iyear1,imonth1,idate1,itime1*100 & + ,totdate_init) + if (trim(runtype) == 'HISTORY') then + CALL date_add_to_big (totdate_init,time,'s',totdate_start) + elseif (trim(runtype) == 'INITIAL' .or. trim(runtype) == 'ERROR' .or. & + trim(runtype) == 'MAKEVFILE' .or. trim(runtype) == 'MAKEHFILE') then + totdate_start=totdate_init + endif + + ! Do some checks on times + do ng = 1, ngrids + if(itotdate_sst(1,ng) > totdate_start .and. isstcycdata == 0) then + print*, 'sst_read: initial sst file time for grid ',ng & + ,' later than beginning of run' + ierr = 1 + endif + + if(iupdsst == 1 .and. nsstfiles(ng) == 1) then + print*, 'sst_read: updating SST values but only one SST file' & + ,' for grid',ng + ierr = 1 + endif + + CALL date_add_to_big (totdate_init,timmax,'s',totdatem) + if(iupdsst == 1 .and. isstcycdata == 0 .and. & + itotdate_sst(nsstfiles(ng),ng) < totdatem) then + print*, 'sst_read: final sst file time for grid ',ng & + ,'earlier than end of run - making new sst files' + ierr = 1 + endif + enddo + + ! Return if errors + if(ierr == 1 .and. runflag == 1) return + + ! If we are only checking, we're done. + if(runflag == 2) return + + do ng = 1, ngrids + + ! Change the sst file dates to the current year. We will increment + ! when we need to read a future file. + if(isstcycdata == 1) then + do nf=1,nsstfiles(ng) + itotdate_sst(nf,ng)(1:4)=totdate_start(1:4) + enddo + endif + + ! Find past time file. The files are ordered in time, so we only + ! need to find when start time is greater than a file. + isstflp(ng)=0 + do nf=nsstfiles(ng),1,-1 + if(totdate_start >= itotdate_sst(nf,ng) ) then + isstflp(ng)=nf + exit + endif + enddo + + isstflf(ng)=isstflp(ng)+1 + + ! If we are cyclic, we possibly didn't find a start time later than + ! a file time. I think it is safe to assume that we will use the + ! last file for the start file. Also see if future time will be on + ! next cycle. + if(isstcycdata == 1 ) then + if(isstflp(ng) == 0) isstflp(ng) = nsstfiles(ng) + if(isstflf(ng) > nsstfiles(ng)) isstflf(ng)=1 + endif + + if(print_msg) print*,'sst starting at file:',ng,isstflp(ng),isstflf(ng) + + ! Read past/future time sst field + + CALL sst_update (0,isstflp(ng)) + + if(iupdsst == 1 ) then + ! Read future time sst field if updating + CALL sst_update (1,isstflf(ng)) + + ! Compute times as number of seconds past 1 Jan 1900 + CALL date_abs_secs (totdate_init,secs_init) + + ! Get model time of past file + totdatem=itotdate_sst(isstflp(ng),ng) + if(isstcyclic == 1) then + ! If month of past file > current month, subtract a year + if(totdatem(5:6) > totdate_start(5:6)) & + CALL date_add_to_big (totdatem,-365.,'d',totdatem) + endif + CALL date_abs_secs (totdatem,secs1) + + totdatem=itotdate_sst(isstflf(ng),ng) + if(isstcyclic == 1) then + if(totdatem < totdate_start) then + ! Future file is in next year. Update all file names for a new year + CALL date_add_to_big (totdatem, 365.,'d',totdatem) + do nf=1,nsstfiles(ng) + itotdate_sst(nf,ng)(1:4)=totdatem(1:4) + enddo + endif + endif + CALL date_abs_secs (totdatem,secs2) + + ssttime1(ng) = secs1 - secs_init + ssttime2(ng) = secs2 - secs_init + else + leaf_g(ng)%seatp(1:mmxp(ng),1:mmyp(ng))= & + leaf_g(ng)%seatf(1:mmxp(ng),1:mmyp(ng)) + ssttime1(ng) = 0. + ssttime2(ng) = 0. + endif + enddo + + return + +elseif (runflag == 3) then ! Runtime file increment + + if ( time >= ssttime2(ifm) ) then + + ! Update sst fields + isstflp(ifm) = isstflf(ifm) + isstflf(ifm) = isstflp(ifm) + 1 + + ! Compute times as number of seconds past 1 Jan 1900 + ! If cyclic, modify file date + CALL date_abs_secs (totdate_init,secs_init) + CALL date_add_to_big (totdate_init,time,'s',totdate) + + totdatem=itotdate_sst(isstflp(ifm),ifm) + CALL date_abs_secs (totdatem,secs1) + + ! Need to deal with cyclic. + if(isstcyclic == 1 .and. isstflf(ifm) > nsstfiles(ifm)) then + isstflf(ifm)=1 + ! Update all file names for a new year + totdatem=itotdate_sst(isstflf(ifm),ifm) + CALL date_add_to_big (totdatem, 365.,'d',totdatem) + do nf=1,nsstfiles(ifm) + itotdate_sst(nf,ifm)(1:4)=totdatem(1:4) + enddo + endif + + totdatem=itotdate_sst(isstflf(ifm),ifm) + CALL date_abs_secs (totdatem,secs2) + + ssttime1(ifm) = secs1 - secs_init + ssttime2(ifm) = secs2 - secs_init + + ! Finally read the actual field + CALL sst_update (1,isstflf(ifm)) + + print*,'Switched sst files:',ssttime1(ifm),ssttime2(ifm) & + ,secs1,secs2,secs_init + + else + + return + + endif + +endif + +return +END SUBROUTINE sst_read + +!############################################################################## +Subroutine sst_file_inv (sfilin,ierr) + +use mem_grid +use io_params + +implicit none + +character(len=*) :: sfilin +integer :: ierr,nf,lnf,nftot,ng,inyear,inmonth,indate,inhour +character(len=strl1) :: fnames(maxsstfiles) +character(len=14) :: itotdate +character(len=1) :: cgrid +real(kind=8) :: secs_init + +ierr=0 + +! Get abs seconds of run start + +CALL date_abs_secs2 (iyear1,imonth1,idate1,itime1*100,secs_init) + +! Go through sst files and make inventory. We unfortunately have to do this +! for all grids. + +isstcyclic=0 +isstcycdata=0 + +do ng = 1, ngrids + + nftot = -1 + write(cgrid,'(i1)') ng + CALL rams_filelist (fnames,trim(sfilin)//'-W-*-g'//cgrid//'.h5',nftot) + + if(nftot <= 0) then + print*,'No sst files for grid '//cgrid + ierr=1 + return + endif + + if(nftot > maxsstfiles) then + print*,'too many sst files' + stop 'sst_file_inv: lots_of_sst' + endif + + + ! We need to see if the data is to be considered "cyclic". Count how many files + ! have the year 0000. If all of them do not, we probably have an error. + ! isstcycdata = 1 when data is cyclic + ! isstcyclic =1 when we are have cyclic data and will be updating in time + + if(print_msg)print*,'-----------------------------------------------------' + nsstfiles(ng)=0 + do nf=1,nftot + lnf=len_trim(fnames(nf)) + read(fnames(nf)(lnf-22:lnf-6),20) inyear,inmonth,indate,inhour + 20 format(i4,1x,i2,1x,i2,1x,i6) + + ! Check the file headers + CALL sst_check_header (ng,fnames(nf),ierr) + if(ierr == 1) return + + if(inyear == 0) isstcycdata=isstcycdata+1 + + CALL date_make_big (inyear,inmonth,indate,inhour,itotdate) + + nsstfiles(ng)=nsstfiles(ng)+1 + fnames_sst(nsstfiles(ng),ng)=fnames(nf) + itotdate_sst(nsstfiles(ng),ng)=itotdate + + enddo + + CALL rams_dintsort (nsstfiles(ng),itotdate_sst(1,ng),fnames_sst(1,ng)) + + + ! start printing section + !-------------------------------------------------------------- + + if(print_msg) then + print*,'-------------------------------------------------------------' + print*,'----------- SST Input File Inventory: Grid '//cgrid + print*,'-------------------------------------------------------------' + do nf=1,nsstfiles(ng) + print*, itotdate_sst(nf,ng),' ',trim(fnames_sst(nf,ng)) + enddo + print*,'------------------------------------------------------' + endif + +enddo + +! Check the cyclic data condition. +! WE ARE ONLY ALLOWING CYCLIC ON ALL GRIDS +if(isstcycdata > 0) then + if(isstcycdata /= sum(nsstfiles(1:ngrids))) then + print*, 'All sst surface files do not have year 0000' + print*, 'This confuses the gods and can not occur.' + stop 'sst_inv' + endif + isstcycdata=1 +else + isstcycdata=0 +endif + + +! Set the main cyclic flag. Only relevant if we are updating in time. +if(iupdsst == 1 .and. isstcycdata == 1) isstcyclic=1 + +return +END SUBROUTINE sst_file_inv + +!############################################################################## +Subroutine sst_update (iswap,nfile) + +use mem_grid +use mem_leaf +use node_mod +use io_params +use hdf5_utils +use node_mod + +implicit none + +integer :: iswap,nfile + +integer :: ng,nc +character(len=1) :: cgrid +character(len=strl1) :: flnm +integer*8 :: h5_fid +integer :: iphdf5 +type (hdf5_select_type) :: mem_select,file_select +integer, dimension(HDF5_MAX_DIMS) :: file_chunks + +if (nmachs .gt. 1) then + iphdf5 = 1 +else + iphdf5 = 0 +endif + +! Put new fields into future arrays. If iswap == 1, +! swap future into past first + +if (iswap == 1) then + do ng=1,ngrids + leaf_g(ng)%seatp(1:mmxp(ng),1:mmyp(ng))= & + leaf_g(ng)%seatf(1:mmxp(ng),1:mmyp(ng)) + enddo +endif + + +! Open the input file for each grid and read field. +do ng=1,ngrids + ! Contruct file name for this grid + write(cgrid, '(i1)') ng + flnm=fnames_sst(nfile,ng) + nc=len_trim(flnm)-3 + flnm(nc:nc)=cgrid + + CALL shdf5_open (flnm,'R',iphdf5,h5_fid) + + ! Atmos 2D vars + CALL shdf5_set_hs_select (2,'R',ng,mem_select,file_select,file_chunks) + CALL shdf5_irec (h5_fid,iphdf5,'SEATF',mem_select & + ,file_select,rvara=leaf_g(ng)%seatf) + + CALL shdf5_close (h5_fid) + +enddo + +return +END SUBROUTINE sst_update + +!############################################################################## +Subroutine sst_check_header (ifm,flnm,ierr) + +! This routine checks for the existence of an sst file for +! grid number ifm, and if it exists, also checks for agreement of +! grid configuration between the file and the current model run. +! If the file does not exist or does not match grid configuration, +! the flag ierr is returned with a value of 1. If the file +! exists and is ok, ierr is returned with a value of 0. + +use mem_grid +use node_mod +use hdf5_utils + +implicit none + +integer :: ifm,ierr,nsfx,nsfy +character(len=*) :: flnm +real :: sfdx,sfplat,sfplon,sflat,sflon,glatr,glonr +integer*8 :: h5_fid +integer :: iphdf5 +type (hdf5_select_type) :: mem_select,file_select +integer, dimension(HDF5_MAX_DIMS) :: file_chunks + +if (nmachs .gt. 1) then + iphdf5 = 1 +else + iphdf5 = 0 +endif + +ierr = 0 + +if(print_msg) & + print '(a,i3,1x,a,a,$)',' ---> Check grid:',ifm,' sst filename:',trim(flnm) + + +CALL xy_ll (glatr,glonr,polelat,polelon,xtn(1,ifm),ytn(1,ifm)) + + +CALL shdf5_open (flnm,'R',iphdf5,h5_fid) + +! Scalar vars +CALL shdf5_set_hs_select (1,'R',1,mem_select,file_select,file_chunks) +CALL shdf5_irec (h5_fid,iphdf5,'nx',mem_select,file_select,ivars=nsfx) +CALL shdf5_irec (h5_fid,iphdf5,'ny',mem_select,file_select,ivars=nsfy) +CALL shdf5_irec (h5_fid,iphdf5,'dx',mem_select,file_select,rvars=sfdx) +CALL shdf5_irec (h5_fid,iphdf5,'polelat',mem_select,file_select,rvars=sfplat) +CALL shdf5_irec (h5_fid,iphdf5,'polelon',mem_select,file_select,rvars=sfplon) +CALL shdf5_irec (h5_fid,iphdf5,'sw_lat',mem_select,file_select,rvars=sflat) +CALL shdf5_irec (h5_fid,iphdf5,'sw_lon',mem_select,file_select,rvars=sflon) + +CALL shdf5_close (h5_fid) + +if (nsfx .ne. nnxp(ifm) .or. & + nsfy .ne. nnyp(ifm) .or. & + abs(sfdx-deltaxn(ifm)) .gt. .001 .or. & + abs(sfplat-polelat) .gt. .001 .or. & + abs(sfplon-polelon) .gt. .001 .or. & + abs(sflat-glatr) .gt. .001 .or. & + abs(sflon-glonr) .gt. .001) then + + ierr = 1 + + print* + print*,'SSTfile mismatch on grid:',ifm + print*,'Values: model, file' + print*,'-------------------' + print*,'nnxp:',nnxp(ifm),nsfx + print*,'nnyp:',nnyp(ifm),nsfy + print*,'deltax:',deltaxn(ifm),sfdx + print*,'polelat:',polelat,sfplat + print*,'polelon:',polelon,sfplon + print*,'SW lat:',glatr,sflat + print*,'SW lon:',glonr,sflon + print*,'-------------------' + +else + + ierr = 0 + if(print_msg) print*,' ---> good ' + +endif + +return +END SUBROUTINE sst_check_header + diff --git a/src/6.2.16/mpi/mpass_cyclic.f90 b/src/6.2.16/mpi/mpass_cyclic.f90 new file mode 100644 index 0000000..0b75f7e --- /dev/null +++ b/src/6.2.16/mpi/mpass_cyclic.f90 @@ -0,0 +1,547 @@ +!############################################################################## +Subroutine ipaths_cyc_alloc (nxp,nyp,ibnd,jbnd,maxmach) + +use cyclic_mod + +implicit none + +integer :: nxp,nyp,ibnd,jbnd,maxmach + +npts_cyc = 4 * maxmach +if (ibnd .eq. 2) npts_cyc = npts_cyc + nyp * 4 +if (jbnd .eq. 2) npts_cyc = npts_cyc + nxp * 4 + +! 7 coded entries (isn,is,js,idn,id,jd,avgflg) +! by npts by 2 directions +allocate (ipathst_cyc(7,npts_cyc,2)) +allocate (ipathsu_cyc(7,npts_cyc,2)) +allocate (ipathsv_cyc(7,npts_cyc,2)) + +! 7 coded entries * 2 directions * npts +CALL azero_int (14*npts_cyc,ipathst_cyc(1,1,1)) +CALL azero_int (14*npts_cyc,ipathsu_cyc(1,1,1)) +CALL azero_int (14*npts_cyc,ipathsv_cyc(1,1,1)) + +return +END SUBROUTINE ipaths_cyc_alloc + +!############################################################################## +Subroutine node_cycinit (nzp,npvar,nmachs,my_rams_num) + +use cyclic_mod +use micro_prm, only:nkr + +implicit none + +integer :: nmachs,my_rams_num,nzp,icycpts,mdn,msn,ndn,nsn,npvar,nm +integer, save, allocatable :: ijcount(:) +integer :: maxijrecv_cyc, maxijsendt_cyc, maxijsendu_cyc, maxijsendv_cyc, & + maxijrecvt_cyc, maxijrecvu_cyc, maxijrecvv_cyc, idir, & + max_ndns_cyc, max_nsns_cyc + +! This routine is called by each node process. It uses information from +! the master cyclic parallel array [ipaths_cyc] to construct integer scalars +! and arrays that the node needs for parallel data sends and receives for +! cyclic boundary conditions + +! ldgrant(2012): This routine is called within the time loop in rams_node +! (rams_node calls init_fields if sending information back to the master, +! and init_fields calls this routine) +! Thus added deallocate statements; this fixes the issue where memory usage +! increases through the run when cyclic boundary conditions are used, +! sometimes causing the node to crash. + +! if ndn_cyc is allocated, the rest are as well +if ( allocated(ndn_cyc) ) then + deallocate (ndn_cyc,nsn_cyc,msn_cyc,mdn_cyc & + ,nijsendt_cyc,nijsendu_cyc,nijsendv_cyc & + ,nijrecvt_cyc,nijrecvu_cyc,nijrecvv_cyc & + ,ijcount,isend_req_cyc,irecv_req_cyc) +endif + +allocate (ndn_cyc(nmachs,2),nsn_cyc(nmachs,2),msn_cyc(nmachs,2),mdn_cyc(nmachs,2) & + ,nijsendt_cyc(nmachs,2),nijsendu_cyc(nmachs,2),nijsendv_cyc(nmachs,2) & + ,nijrecvt_cyc(nmachs,2),nijrecvu_cyc(nmachs,2),nijrecvv_cyc(nmachs,2) & + ,ijcount(nmachs) & + ,isend_req_cyc(6,nmachs,2),irecv_req_cyc(6,nmachs,2)) + +do nm = 1,nmachs + nijsendt_cyc(nm,1:2) = 0 + nijsendu_cyc(nm,1:2) = 0 + nijsendv_cyc(nm,1:2) = 0 + nijrecvt_cyc(nm,1:2) = 0 + nijrecvu_cyc(nm,1:2) = 0 + nijrecvv_cyc(nm,1:2) = 0 + isend_req_cyc(1:6,nm,1:2)=-999 + irecv_req_cyc(1:6,nm,1:2)=-999 +enddo + +do idir = 1, 2 + do icycpts = 1,npts_cyc + msn = ipathst_cyc(1,icycpts,idir) + mdn = ipathst_cyc(4,icycpts,idir) + + if (msn .eq. my_rams_num .and. mdn .gt. 0) then + nijsendt_cyc(mdn,idir) = nijsendt_cyc(mdn,idir) + 1 + endif + + if (mdn .eq. my_rams_num .and. msn .gt. 0) then + nijrecvt_cyc(msn,idir) = nijrecvt_cyc(msn,idir) + 1 + endif + enddo + + do icycpts = 1,npts_cyc + msn = ipathsu_cyc(1,icycpts,idir) + mdn = ipathsu_cyc(4,icycpts,idir) + + if (msn .eq. my_rams_num .and. mdn .gt. 0) then + nijsendu_cyc(mdn,idir) = nijsendu_cyc(mdn,idir) + 1 + endif + if (mdn .eq. my_rams_num .and. msn .gt. 0) then + nijrecvu_cyc(msn,idir) = nijrecvu_cyc(msn,idir) + 1 + endif + enddo + + do icycpts = 1,npts_cyc + msn = ipathsv_cyc(1,icycpts,idir) + mdn = ipathsv_cyc(4,icycpts,idir) + + if (msn .eq. my_rams_num .and. mdn .gt. 0) then + nijsendv_cyc(mdn,idir) = nijsendv_cyc(mdn,idir) + 1 + endif + if (mdn .eq. my_rams_num .and. msn .gt. 0) then + nijrecvv_cyc(msn,idir) = nijrecvv_cyc(msn,idir) + 1 + endif + enddo +enddo + +! figure out sizes for send lists +maxijsendt_cyc = 0 +maxijsendu_cyc = 0 +maxijsendv_cyc = 0 +maxijrecvt_cyc = 0 +maxijrecvu_cyc = 0 +maxijrecvv_cyc = 0 + +max_ndns_cyc = 0 +max_nsns_cyc = 0 + +do idir = 1, 2 + nsn = 0 + ndn = 0 + + do nm = 1,nmachs + if (nijsendt_cyc(nm,idir) .gt. 0) then + ndn = ndn + 1 + ndn_cyc(nm,idir) = ndn + mdn_cyc(ndn,idir) = nm + nijsendt_cyc(ndn,idir) = nijsendt_cyc(nm,idir) + nijsendu_cyc(ndn,idir) = nijsendu_cyc(nm,idir) + nijsendv_cyc(ndn,idir) = nijsendv_cyc(nm,idir) + maxijsendt_cyc = max(maxijsendt_cyc,nijsendt_cyc(ndn,idir)) + maxijsendu_cyc = max(maxijsendu_cyc,nijsendu_cyc(ndn,idir)) + maxijsendv_cyc = max(maxijsendv_cyc,nijsendv_cyc(ndn,idir)) + endif + + if (nijrecvt_cyc(nm,idir) .gt. 0) then + nsn = nsn + 1 + nsn_cyc(nm,idir) = nsn + msn_cyc(nsn,idir) = nm + nijrecvt_cyc(nsn,idir) = nijrecvt_cyc(nm,idir) + nijrecvu_cyc(nsn,idir) = nijrecvu_cyc(nm,idir) + nijrecvv_cyc(nsn,idir) = nijrecvv_cyc(nm,idir) + maxijrecvt_cyc = max(maxijrecvt_cyc,nijrecvt_cyc(nsn,idir)) + maxijrecvu_cyc = max(maxijrecvu_cyc,nijrecvu_cyc(nsn,idir)) + maxijrecvv_cyc = max(maxijrecvv_cyc,nijrecvv_cyc(nsn,idir)) + endif + enddo + + ndns_cyc(idir) = ndn + nsns_cyc(idir) = nsn + max_ndns_cyc = max(max_ndns_cyc, ndns_cyc(idir)) + max_nsns_cyc = max(max_nsns_cyc, nsns_cyc(idir)) + +enddo + +maxijrecv_cyc = max(maxijrecvt_cyc,maxijrecvu_cyc,maxijrecvv_cyc) + +! Allocate buffers for send lists +! ldgrant(2012): added deallocate statements; see comment at top of this routine +if ( allocated(ijsendt_cyc) ) deallocate(ijsendt_cyc) +if ( allocated(ijsendu_cyc) ) deallocate(ijsendu_cyc) +if ( allocated(ijsendv_cyc) ) deallocate(ijsendv_cyc) +if ( allocated(ijrecv_cyc) ) deallocate(ijrecv_cyc) + +allocate (ijsendt_cyc(5,maxijsendt_cyc,max_ndns_cyc,2) & + ,ijsendu_cyc(5,maxijsendu_cyc,max_ndns_cyc,2) & + ,ijsendv_cyc(5,maxijsendv_cyc,max_ndns_cyc,2) & + ,ijrecv_cyc(5,maxijrecv_cyc)) + +! Fill in the send lists +do idir = 1,2 + do ndn = 1,ndns_cyc(idir) + ijcount(ndn) = 0 + enddo + + do icycpts = 1,npts_cyc + msn = ipathst_cyc(1,icycpts,idir) + mdn = ipathst_cyc(4,icycpts,idir) + if (msn .eq. my_rams_num .and. mdn .gt. 0) then + ndn = ndn_cyc(mdn,idir) + ijcount(ndn) = ijcount(ndn) + 1 + ijsendt_cyc(1,ijcount(ndn),ndn,idir) = ipathst_cyc(2,icycpts,idir) + ijsendt_cyc(2,ijcount(ndn),ndn,idir) = ipathst_cyc(3,icycpts,idir) + ijsendt_cyc(3,ijcount(ndn),ndn,idir) = ipathst_cyc(5,icycpts,idir) + ijsendt_cyc(4,ijcount(ndn),ndn,idir) = ipathst_cyc(6,icycpts,idir) + ijsendt_cyc(5,ijcount(ndn),ndn,idir) = ipathst_cyc(7,icycpts,idir) + endif + enddo + + do ndn = 1,ndns_cyc(idir) + ijcount(ndn) = 0 + enddo + + do icycpts = 1,npts_cyc + msn = ipathsu_cyc(1,icycpts,idir) + mdn = ipathsu_cyc(4,icycpts,idir) + if (msn .eq. my_rams_num .and. mdn .gt. 0) then + ndn = ndn_cyc(mdn,idir) + ijcount(ndn) = ijcount(ndn) + 1 + ijsendu_cyc(1,ijcount(ndn),ndn,idir) = ipathsu_cyc(2,icycpts,idir) + ijsendu_cyc(2,ijcount(ndn),ndn,idir) = ipathsu_cyc(3,icycpts,idir) + ijsendu_cyc(3,ijcount(ndn),ndn,idir) = ipathsu_cyc(5,icycpts,idir) + ijsendu_cyc(4,ijcount(ndn),ndn,idir) = ipathsu_cyc(6,icycpts,idir) + ijsendu_cyc(5,ijcount(ndn),ndn,idir) = ipathsu_cyc(7,icycpts,idir) + endif + enddo + + do ndn = 1,ndns_cyc(idir) + ijcount(ndn) = 0 + enddo + + do icycpts = 1,npts_cyc + msn = ipathsv_cyc(1,icycpts,idir) + mdn = ipathsv_cyc(4,icycpts,idir) + if (msn .eq. my_rams_num .and. mdn .gt. 0) then + ndn = ndn_cyc(mdn,idir) + ijcount(ndn) = ijcount(ndn) + 1 + ijsendv_cyc(1,ijcount(ndn),ndn,idir) = ipathsv_cyc(2,icycpts,idir) + ijsendv_cyc(2,ijcount(ndn),ndn,idir) = ipathsv_cyc(3,icycpts,idir) + ijsendv_cyc(3,ijcount(ndn),ndn,idir) = ipathsv_cyc(5,icycpts,idir) + ijsendv_cyc(4,ijcount(ndn),ndn,idir) = ipathsv_cyc(6,icycpts,idir) + ijsendv_cyc(5,ijcount(ndn),ndn,idir) = ipathsv_cyc(7,icycpts,idir) + endif + enddo + +enddo ! idir = 1, 2 + +! allocate cyclic buffers + +nbuffsend_cyc = max(maxijsendt_cyc * (max(2,npvar) * nzp * nkr + 6) + 1 & + ,maxijsendu_cyc * (nzp + 6) + 1 & + + maxijsendv_cyc * (nzp + 6) + 1 ) + +! ldgrant(2012): added deallocate statement +if ( allocated(buffsend_cyc) ) deallocate(buffsend_cyc) +allocate (buffsend_cyc(nbuffsend_cyc,max_ndns_cyc)) + +nbuffrecv_cyc = max(maxijrecvt_cyc * (max(2,npvar) * nzp *nkr + 6) + 1 & + ,maxijrecvu_cyc * (nzp + 6) + 1 & + + maxijrecvv_cyc * (nzp + 6) + 1 ) + +! ldgrant(2012): added deallocate statement +if ( allocated(buffrecv_cyc) ) deallocate(buffrecv_cyc) +allocate (buffrecv_cyc(nbuffrecv_cyc,max_nsns_cyc)) + +return +END SUBROUTINE node_cycinit + +!############################################################################## +! node_sendcyclic() +! +! This routine along with node_getcyclic() handles the application of cyclic +! boundary conditions upon the domain boundaries. The intention of the parallel +! cyclic boundary application is to mimic the sequential application as seen +! in the routine cyclic(). The order of execution in parallel mode can vary +! according to how the nodes are assigned so the algorithm that exists in cyclic() +! is split up into pieces, for the parallel scheme, that will work independent of +! the order of execution. This code appears in cyclic_para(). +! +Subroutine node_sendcyclic (isflag,idir) + +use mem_grid +use var_tables +use cyclic_mod +use mem_basic +use node_mod + +implicit none + +integer :: nsn,icycpts,msn,mdn,isn,jsn,isflag,idir,ndn,nv,mtp +real, pointer :: scalarp +real, dimension(:), allocatable :: cyc_buff + +if (ibnd .ne. 2 .and. jbnd .ne. 2) return + +! First, before we send anything, let's post the receives + +do nsn = 1,nsns_cyc(idir) + msn = msn_cyc(nsn,idir) +! IN IN + CALL par_get_noblock (buffrecv_cyc(1,nsn),nbuffrecv_cyc & +! IN IN + ,CYCLIC_TAG_BASE+100*machnum(msn)+10*machnum(my_rams_num)+isflag,machnum(msn) & +! OUT + ,irecv_req_cyc(isflag,msn,idir)) +enddo + +! Now we can actually go on to sending the stuff +mtp = mmzp(1) +allocate(cyc_buff(mtp)) + +do ndn = 1,ndns_cyc(idir) + + mdn = mdn_cyc(ndn,idir) + CALL par_init_put (buffsend_cyc(1,ndn),nbuffsend_cyc) + + if (isflag == LBC_ALL_SCALARS .or. isflag == LBC_PP .or. isflag == LBC_WP) then + CALL par_put_int (nijsendt_cyc(ndn,idir),1) + CALL par_put_int (ijsendt_cyc(1,1,ndn,idir),5*nijsendt_cyc(ndn,idir)) + + do icycpts = 1,nijsendt_cyc(ndn,idir) + + isn = ijsendt_cyc(1,icycpts,ndn,idir) - mi0(1) + jsn = ijsendt_cyc(2,icycpts,ndn,idir) - mj0(1) + + if (isflag == LBC_ALL_SCALARS) then + ! scalar vars (all scalars are 3D) + ! Even the bin micro variables are 3D + ! in the scalar table. In the scalar table + ! each bin of a species distribution is a + ! separate variable. Adele + do nv = 1, num_scalar(1) + scalarp => scalar_tab(nv,1)%var_p + CALL mkcycbuff (mmzp(1),mmxp(1),mmyp(1) & + ,scalarp,cyc_buff,isn,jsn) + CALL par_put_float (cyc_buff,mtp) + enddo + elseif (isflag == LBC_PP) then + ! pp + CALL mkcycbuff (mmzp(1),mmxp(1),mmyp(1) & + ,basic_g(1)%pp(1,1,1),cyc_buff & + ,isn,jsn) + CALL par_put_float (cyc_buff,mtp) + + elseif (isflag == LBC_WP) then + ! wp + CALL mkcycbuff (mmzp(1),mmxp(1),mmyp(1) & + ,basic_g(1)%wp(1,1,1),cyc_buff & + ,isn,jsn) + CALL par_put_float (cyc_buff,mtp) + + endif + enddo + + elseif (isflag == LBC_UP) then + ! up + CALL par_put_int (nijsendu_cyc(ndn,idir),1) + CALL par_put_int (ijsendu_cyc(1,1,ndn,idir),5*nijsendu_cyc(ndn,idir)) + + do icycpts = 1,nijsendu_cyc(ndn,idir) + + isn = ijsendu_cyc(1,icycpts,ndn,idir) - mi0(1) + jsn = ijsendu_cyc(2,icycpts,ndn,idir) - mj0(1) + + CALL mkcycbuff (mmzp(1),mmxp(1),mmyp(1) & + ,basic_g(1)%up(1,1,1),cyc_buff & + ,isn,jsn) + CALL par_put_float (cyc_buff,mtp) + + enddo + + elseif (isflag == LBC_VP) then + ! vp + CALL par_put_int (nijsendv_cyc(ndn,idir),1) + CALL par_put_int (ijsendv_cyc(1,1,ndn,idir),5*nijsendv_cyc(ndn,idir)) + + do icycpts = 1,nijsendv_cyc(ndn,idir) + + isn = ijsendv_cyc(1,icycpts,ndn,idir) - mi0(1) + jsn = ijsendv_cyc(2,icycpts,ndn,idir) - mj0(1) + + CALL mkcycbuff (mmzp(1),mmxp(1),mmyp(1) & + ,basic_g(1)%vp(1,1,1),cyc_buff & + ,isn,jsn) + CALL par_put_float (cyc_buff,mtp) + + enddo + + endif + +! IN IN + CALL par_send_noblock (machnum(mdn),CYCLIC_TAG_BASE+100*machnum(my_rams_num)+10*machnum(mdn)+isflag & +! OUT + ,isend_req_cyc(isflag,mdn,idir)) + +enddo + +deallocate(cyc_buff) + +return +END SUBROUTINE node_sendcyclic + +!############################################################################## +Subroutine node_getcyclic (isflag,idir) + +use mem_grid +use var_tables +use cyclic_mod +use mem_basic +use node_mod + +implicit none + +integer :: ndn,nsn,mdn,msn,mtp,ibytes,msgid,ihostnum,isflag,idir,mijrecv,ijr,nv +real, pointer :: scalarp +real, dimension(:), allocatable :: cyc_buff + +if (ibnd .ne. 2 .and. jbnd .ne. 2) return + +! First, let's make sure our sends are all finished and de-allocated + +do ndn = 1,ndns_cyc(idir) + mdn = mdn_cyc(ndn,idir) + +! input out out out + CALL par_wait (isend_req_cyc(isflag,mdn,idir),ibytes,msgid,ihostnum) + +enddo + +! Now, let's wait on our receives + +mtp = mmzp(1) +allocate(cyc_buff(mtp)) + +do nsn = 1,nsns_cyc(idir) + msn = msn_cyc(nsn,idir) + +! input out out out + CALL par_wait (irecv_req_cyc(isflag,msn,idir),ibytes,msgid,ihostnum) + +! We got all our stuff. Now unpack it into appropriate space. + + CALL par_assoc_buff (buffrecv_cyc(1,nsn),nbuffrecv_cyc) + + if (isflag == LBC_ALL_SCALARS .or. isflag == LBC_PP .or. isflag == LBC_WP) then + CALL par_get_int (mijrecv,1) + CALL par_get_int (ijrecv_cyc(1,1),5*mijrecv) + + do ijr = 1,mijrecv + + if (isflag == LBC_ALL_SCALARS) then + ! scalar vars (all scalars are 3D) + do nv = 1, num_scalar(1) + scalarp => scalar_tab(nv,1)%var_p + CALL par_get_float (cyc_buff,mtp) + CALL cyclic_para (mmzp(1),mmxp(1),mmyp(1) & + ,scalarp,cyc_buff & + ,ijr,mi0(1),mj0(1)) + enddo + elseif (isflag == LBC_PP) then + ! pp + CALL par_get_float (cyc_buff,mtp) + CALL cyclic_para (mmzp(1),mmxp(1),mmyp(1) & + ,basic_g(1)%pp(1,1,1),cyc_buff,ijr,mi0(1),mj0(1)) + elseif (isflag == LBC_WP) then + ! wp + CALL par_get_float (cyc_buff,mtp) + CALL cyclic_para (mmzp(1),mmxp(1),mmyp(1) & + ,basic_g(1)%wp(1,1,1),cyc_buff,ijr,mi0(1),mj0(1)) + endif + enddo + + elseif (isflag == LBC_UP) then + ! up + CALL par_get_int (mijrecv,1) + CALL par_get_int (ijrecv_cyc(1,1),5*mijrecv) + + do ijr = 1,mijrecv + CALL par_get_float (cyc_buff,mtp) + CALL cyclic_para (mmzp(1),mmxp(1),mmyp(1) & + ,basic_g(1)%up(1,1,1),cyc_buff,ijr,mi0(1),mj0(1)) + enddo + + elseif (isflag .eq. LBC_VP) then + ! vp + CALL par_get_int (mijrecv,1) + CALL par_get_int (ijrecv_cyc(1,1),5*mijrecv) + + do ijr = 1,mijrecv + CALL par_get_float (cyc_buff,mtp) + CALL cyclic_para (mmzp(1),mmxp(1),mmyp(1) & + ,basic_g(1)%vp(1,1,1),cyc_buff,ijr,mi0(1),mj0(1)) + enddo + + endif + +enddo + +deallocate(cyc_buff) + +return +END SUBROUTINE node_getcyclic + +!############################################################################## +Subroutine cyclic_para (m1,m2,m3,af,bf,ijr,i0,j0) + +use cyclic_mod + +implicit none + +integer :: m1,m2,m3,ijr,i0,j0 +real, dimension(m1,m2,m3) :: af +real, dimension(*) :: bf +integer :: idn,jdn,k,isn,jsn + +! The receive buffer contains: +! 1 - source node i +! 2 - source node j +! 3 - destination node i +! 4 - destination node j +! 5 - average flag (0 - do not average, 1 - average) + +isn = ijrecv_cyc(1,ijr) +jsn = ijrecv_cyc(2,ijr) +idn = ijrecv_cyc(3,ijr) - i0 +jdn = ijrecv_cyc(4,ijr) - j0 + +do k = 1,m1 + if (ijrecv_cyc(5,ijr) .eq. 1) then + ! replace with average of existing and received value + af(k,idn,jdn) = (af(k,idn,jdn) + bf(k)) * 0.5 + else + ! replace with received value + af(k,idn,jdn) = bf(k) + endif +enddo + +return +END SUBROUTINE cyclic_para + +!############################################################################## +Subroutine mkcycbuff (n1,n2,n3,a,b,i,j) + +implicit none + +integer :: k,i,j,n1,n2,n3 +real, dimension(n1,n2,n3) :: a +real, dimension(*) :: b + + +do k = 1,n1 + b(k) = a(k,i,j) +enddo + +return +END SUBROUTINE mkcycbuff + diff --git a/src/6.2.16/mpi/mpass_dtl.f90 b/src/6.2.16/mpi/mpass_dtl.f90 new file mode 100644 index 0000000..87cf597 --- /dev/null +++ b/src/6.2.16/mpi/mpass_dtl.f90 @@ -0,0 +1,348 @@ +!############################################################################## +! This routine will collect elapsed cpu and wall clock times from all of the +! nodes and report these to stdout. mainnum node will handle the collecting +! and reporting so that only one copy of the message is output. MPI_Gather() +! is used to do the collecting. MPI_Gather() will place the data into the +! receive buffers in the order of the node numbering. +!############################################################################## +Subroutine report_time_allnodes (msg,cpu_etime,wall_etime) + +use mem_grid +use node_mod + +implicit none + +character (len=*) :: msg +real :: cpu_etime,wall_etime,sum_cpu_time,sum_wall_time,avg_cpu_time & + ,avg_wall_time +real, dimension(:), allocatable :: cpu_times,wall_times +integer :: i + +allocate(cpu_times(nmachs),wall_times(nmachs)) + + if (my_rams_num .eq. mainnum) then + ! mainnum collects the data and prints out the messages. + if (nmachs .gt. 1) then + CALL par_gather_floats (cpu_etime,cpu_times,1,machnum(mainnum)) + CALL par_gather_floats (wall_etime,wall_times,1,machnum(mainnum)) + + sum_cpu_time = 0.0 + sum_wall_time = 0.0 + do i = 1, nmachs + sum_cpu_time = sum_cpu_time + cpu_times(i) + sum_wall_time = sum_wall_time + wall_times(i) + enddo + avg_cpu_time = sum_cpu_time / float(nmachs) + avg_wall_time = sum_wall_time / float(nmachs) + else + cpu_times(1) = cpu_etime + wall_times(1) = wall_etime + sum_cpu_time = cpu_etime + sum_wall_time = wall_etime + avg_cpu_time = cpu_etime + avg_wall_time = wall_etime + endif + +! print 200,msg,sum_cpu_time,avg_cpu_time,sum_wall_time,avg_wall_time +!200 format(a,' CPU time- Sum:Avg(sec)=(',f10.2,':',f10.2,') & +! , Wall time- Sum:Avg(sec)=(',f10.2,':',f10.2')') + print 200,msg,avg_wall_time +200 format(a,' Wall time(sec)=',f6.2) + + ! If printing is enabled, add in the individual node times + if(iprntstmt>=2 .and. print_msg) then + print 201,(cpu_times(i),i=1,nmachs) + print 202,(wall_times(i),i=1,nmachs) +201 format(' Node---CPU(sec)=',2000f8.3) +202 format(' Node--wall(sec)=',2000f8.3) + endif + else + if (nmachs .gt. 1) then + ! Nodes other than mainnum send their data. Note that the machine + ! number of mainnum is used instead of the node of this process. + CALL par_gather_floats (cpu_etime,cpu_times,1,machnum(mainnum)) + CALL par_gather_floats (wall_etime,wall_times,1,machnum(mainnum)) + endif + endif + + deallocate(cpu_times,wall_times) + +return +END SUBROUTINE report_time_allnodes + +!############################################################################## +! This routine will collect cflxy and cflz numbers from all of the nodes +! nodes to mainnum, determine the maximum of these and broadcast the result +! back to all of the nodes. MPI_Gather() is used to do the collecting. +! MPI_Gather() will place the data into the receive buffers in the order of +! the node numbering. +! +! Note that the cflxy_all and cflz_all arrays must be organized as (ngrids,nmachs) +! since the gather func will place the cflxy(1:ngrids) from node 1 in the first +! portion of the buffer, followed by clfxy(1:ngrids) from node 2, etc. + +Subroutine set_cflmax_allnodes () + +use mem_grid +use node_mod + +implicit none + +real, dimension(:,:), allocatable :: cflxy_all, cflz_all +integer :: igrid,inode,nwords +real, dimension(:), allocatable :: buff + +allocate(cflxy_all(ngrids,nmachs),cflz_all(ngrids,nmachs)) + + ! Prep for broadcast + if (nmachs .gt. 1) then + nwords = 10 + (2 * ngrids) + allocate (buff(nwords)) + endif + + ! Collect the cfl numbers from all the nodes + if (my_rams_num .eq. mainnum) then + ! mainnum collects the data and prints out the messages. + if (nmachs .gt. 1) then + CALL par_gather_floats (cflxy,cflxy_all,ngrids,machnum(mainnum)) + CALL par_gather_floats (cflz,cflz_all,ngrids,machnum(mainnum)) + else + cflxy_all(1:ngrids,1) = cflxy(1:ngrids) + cflz_all(1:ngrids,1) = cflz(1:ngrids) + endif + else + if (nmachs .gt. 1) then + ! Nodes other than mainnum send their data. Note that the machine + ! number of mainnum is used instead of the node of this process. + CALL par_gather_floats (cflxy,cflxy_all,ngrids,machnum(mainnum)) + CALL par_gather_floats (cflz,cflz_all,ngrids,machnum(mainnum)) + endif + endif + + ! At this point, cflxy_all and cflz_all are filled up with the + ! cfl numbers from all of the nodes (including the case where there + ! is only one node. + ! + ! If this is the mainnum node, calculate the cflxy_max and cflz_max values + ! and broadcast to the other nodes. + if (my_rams_num .eq. mainnum) then + do igrid = 1, ngrids + cflxy_max(igrid) = cflxy_all(igrid,1) + cflz_max(igrid) = cflz_all(igrid,1) + + do inode = 2, nmachs + if (cflxy_all(igrid,inode) .gt. cflxy_max(igrid)) then + cflxy_max(igrid) = cflxy_all(igrid,inode) + endif + if (cflz_all(igrid,inode) .gt. cflz_max(igrid)) then + cflz_max(igrid) = cflz_all(igrid,inode) + endif + enddo + enddo + + if (nmachs .gt. 1) then + ! broadcast the cflmax numbers to all the nodes + CALL par_init_put (buff,nwords) + CALL par_put_float (cflxy_max,ngrids) + CALL par_put_float (cflz_max,ngrids) + CALL par_broadcast (machnum(mainnum)) + endif + else + if (nmachs .gt. 1) then + ! Receiving nodes for broadcast + CALL par_init_recv_bcast (buff,nwords) + CALL par_broadcast (machnum(mainnum)) + CALL par_get_float (cflxy_max,ngrids) + CALL par_get_float (cflz_max,ngrids) + endif + endif + + deallocate(cflxy_all,cflz_all) + + if (nmachs .gt. 1) then + deallocate(buff) + endif + +return +END SUBROUTINE set_cflmax_allnodes + +!############################################################################## +! This routine will collect vertical velocity from all of the nodes +! nodes to mainnum, determine the maximum of these and broadcast the result +! back to all of the nodes. MPI_Gather() is used to do the collecting. +! MPI_Gather() will place the data into the receive buffers in the order of +! the node numbering. +! +! Note that the vertvel_all array must be organized as (ngrids,nmachs) since +! the gather func will place the vertvel(1:ngrids) from node 1 in the first +! portion of the buffer, followed by vertvel(1:ngrids) from node 2, etc. + +Subroutine set_vertvelmax_allnodes () + +use mem_grid +use node_mod + +implicit none + +real, dimension(:,:), allocatable :: vertvel_all +integer :: igrid,inode,nwords +real, dimension(:), allocatable :: buff + + allocate(vertvel_all(ngrids,nmachs)) + CALL azero (ngrids*nmachs,vertvel_all) + + ! Prep for broadcast + if (nmachs .gt. 1) then + nwords = 10 + (1 * ngrids) + allocate (buff(nwords)) + endif + + ! Collect the vertical velocity from all the nodes + if (my_rams_num .eq. mainnum) then + ! mainnum collects the data and prints out the messages. + if (nmachs .gt. 1) then + CALL par_gather_floats (vertvel,vertvel_all,ngrids,machnum(mainnum)) + else + vertvel_all(1:ngrids,1) = vertvel(1:ngrids) + endif + else + if (nmachs .gt. 1) then + ! Nodes other than mainnum send their data. Note that the machine + ! number of mainnum is used instead of the node of this process. + CALL par_gather_floats (vertvel,vertvel_all,ngrids,machnum(mainnum)) + endif + endif + + ! At this point, vertvel_all is filled up with the + ! vertvel from all of the nodes (including the case where there + ! is only one node. + ! + ! If this is the mainnum node, calculate the vertvel_max values + ! and broadcast to the other nodes. + if (my_rams_num .eq. mainnum) then + do igrid = 1,ngrids + vertvel_max(igrid) = vertvel_all(igrid,1) + + do inode = 2,nmachs + if (vertvel_all(igrid,inode) .gt. vertvel_max(igrid)) then + vertvel_max(igrid) = vertvel_all(igrid,inode) + endif + enddo + enddo + + if (nmachs .gt. 1) then + ! broadcast the max vertical velocity to all the nodes + CALL par_init_put (buff,nwords) + CALL par_put_float (vertvel_max,ngrids) + CALL par_broadcast (machnum(mainnum)) + endif + else + if (nmachs .gt. 1) then + ! Receiving nodes for broadcast + CALL par_init_recv_bcast (buff,nwords) + CALL par_broadcast (machnum(mainnum)) + CALL par_get_float (vertvel_max,ngrids) + endif + endif + + deallocate(vertvel_all) + + if (nmachs .gt. 1) then + deallocate(buff) + endif + +return +END SUBROUTINE set_vertvelmax_allnodes + +!############################################################################## +! This routine will collect ocean mixed-layer depth (HMIX) from all the nodes +! nodes to mainnum, determine the maximum of these and broadcast the result +! back to all of the nodes. MPI_Gather() is used to do the collecting. +! MPI_Gather() will place the data into the receive buffers in the order of +! the node numbering. +! +! Note that the hmixdepth_all array must be organized as (ngrids,nmachs) since +! the gather func will place the hmixdepth(1:ngrids) from node 1 in the first +! portion of the buffer, followed by hmixdepth(1:ngrids) from node 2, etc. + +Subroutine set_hmixmax_allnodes () + +use mem_grid +use node_mod +use kpp_parameters, only:hmixdepth,hmixdepth_max,ikpp + +implicit none + +real, dimension(:,:), allocatable :: hmixdepth_all +integer :: igrid,inode,nwords +real, dimension(:), allocatable :: buff + + allocate(hmixdepth_all(ngrids,nmachs)) + CALL azero (ngrids*nmachs,hmixdepth_all) + + ! Prep for broadcast + if (nmachs .gt. 1) then + nwords = 10 + (1 * ngrids) + allocate (buff(nwords)) + endif + + ! Collect the vertical velocity from all the nodes + if (my_rams_num .eq. mainnum) then + ! mainnum collects the data and prints out the messages. + if (nmachs .gt. 1) then + CALL par_gather_floats (hmixdepth,hmixdepth_all,ngrids,machnum(mainnum)) + else + hmixdepth_all(1:ngrids,1) = hmixdepth(1:ngrids) + endif + else + if (nmachs .gt. 1) then + ! Nodes other than mainnum send their data. Note that the machine + ! number of mainnum is used instead of the node of this process. + CALL par_gather_floats (hmixdepth,hmixdepth_all,ngrids,machnum(mainnum)) + endif + endif + + ! At this point, hmixdepth_all is filled up with the + ! hmixdepth from all of the nodes (including the case where there + ! is only one node. + ! + ! If this is the mainnum node, calculate the hmixdepth_max values + ! and broadcast to the other nodes. + if (my_rams_num .eq. mainnum) then + do igrid = 1,ngrids + hmixdepth_max(igrid) = hmixdepth_all(igrid,1) + + do inode = 2,nmachs + if (hmixdepth_all(igrid,inode) .gt. hmixdepth_max(igrid)) then + hmixdepth_max(igrid) = hmixdepth_all(igrid,inode) + endif + enddo + enddo + + if (nmachs .gt. 1) then + ! broadcast the max vertical velocity to all the nodes + CALL par_init_put (buff,nwords) + CALL par_put_float (hmixdepth_max,ngrids) + CALL par_broadcast (machnum(mainnum)) + endif + else + if (nmachs .gt. 1) then + ! Receiving nodes for broadcast + CALL par_init_recv_bcast (buff,nwords) + CALL par_broadcast (machnum(mainnum)) + CALL par_get_float (hmixdepth_max,ngrids) + endif + endif + + deallocate(hmixdepth_all) + + if (nmachs .gt. 1) then + deallocate(buff) + endif + + if(iprntstmt>=1 .and. print_msg) & + print*,'Ngrid, Time, Domain Max HMIX: ',ngrid,time,hmixdepth_max(ngrid) + +return +END SUBROUTINE set_hmixmax_allnodes + diff --git a/src/6.2.16/mpi/mpass_init.f90 b/src/6.2.16/mpi/mpass_init.f90 new file mode 100644 index 0000000..4e1da6f --- /dev/null +++ b/src/6.2.16/mpi/mpass_init.f90 @@ -0,0 +1,1482 @@ +!############################################################################## +Subroutine broadcast_config () + +! This routine will broadcast the namelist variables to all processes. It is important +! to keep the order of the par_put_* calls matching the order of the par_get_* calls. +! par_put_* stuffs the variables into a buffer (MPI_Pack) in the order of the calls, +! while par_get_* extracts the variables from the buffer (MPI_Unpack) in the order +! of the calls. Mixing up the order between the puts and the gets will scramble +! the variable values, and there is nothing to prevent this from happinging, nor +! detect that it has happened. +! +! Keep the list of variables being broadcast here in sync with the list of variables +! that are being extracted from the namelist file via read_nl() and set by eng_params(). +! The list of variables appears in: +! nvfillm() - rname.f90 +! nvfills() - isan_name.f90 +! eng_params() - ruser.f90 + +use mem_all +use isan_coms +use node_mod +use leaf_coms, only:ifreeslip + +implicit none + + real, allocatable :: buff(:) + integer :: nwords, nm + + !Saleeby(2016) + !Increment memory buffer size here if you add RAMSIN Namelist variables. + !Add to the appropriate section below as (#-of-them * arraysize). + nwords = 216 * 1 & !single values + + 1 * 8 & !micro (8-hydromet types for gnu) + + 3 * 9 & !micro (9-aerosol species) + + 42 * maxgrds & !grid-dependent (max grids) + + 3 * nzpmax & !max vertical levels + + 3 * nzgmax & !max soil levels + + 1 * maxisn & !max isentropic levels + + 4 * maxagrds & !max varfile grids + + 6 * maxsndg & !max input sounding levels + + 2 * 32 & !32 character length strings + + 1 * maxlite * 32 & !lite variables 32 char length strings + + 17 * 1 * strl1 & !individual input strings + + 1 * 50 * strl1 & !array of input strings + + 5 * maxgrds * strl1 & !grid-dependent array of input strings + + 100 !extras so we have enough buffer + + allocate (buff(nwords)) ! note that what got allocated was nwords*sizeof(real) bytes + + ! If you add variables below to "put" and "get", you need to increment "nwords" + ! above. But only increment 1 for a single put/get combination. + + ! The mainnum process will send data, all others will receive in the broadcast + ! + ! Therefore, the algorithm is: + ! For mainnum + ! pack buffer + ! broadcast buffer to other processes + ! For the other processes + ! receive buffer from mainnum + ! unpack buffer + if (my_rams_num .eq. mainnum) then + ! sending node: pack data into the buffer, then send + CALL par_init_put (buff,nwords) + + ! $MODEL_GRID namelist group + CALL par_put_char (EXPNME,strl1) + CALL par_put_char (RUNTYPE,32) + CALL par_put_char (TIMEUNIT,32) + CALL par_put_float (TIMMAX,1) + CALL par_put_int (IMONTH1,1) + CALL par_put_int (IDATE1,1) + CALL par_put_int (IYEAR1,1) + CALL par_put_int (ITIME1,1) + CALL par_put_int (NGRIDS,1) + CALL par_put_int (NNXP,MAXGRDS) + CALL par_put_int (NNYP,MAXGRDS) + CALL par_put_int (NNZP,MAXGRDS) + CALL par_put_int (NZG,1) + CALL par_put_int (NZS,1) + CALL par_put_int (NXTNEST,MAXGRDS) + CALL par_put_int (IPRNTSTMT,1) + CALL par_put_int (IHTRAN,1) + CALL par_put_float (DELTAX,1) + CALL par_put_float (DELTAZ,1) + CALL par_put_float (DZRAT,1) + CALL par_put_float (DZMAX,1) + CALL par_put_float (ZZ,NZPMAX) + CALL par_put_float (DTLONG,1) + CALL par_put_int (NACOUST,1) + CALL par_put_int (NSTRATX,MAXGRDS) + CALL par_put_int (NSTRATY,MAXGRDS) + CALL par_put_int (NNDTRAT,MAXGRDS) + CALL par_put_int (NESTZ,1) + CALL par_put_int (NSTRATZ,NZPMAX) + CALL par_put_float (POLELAT,1) + CALL par_put_float (POLELON,1) + CALL par_put_int (NINEST,MAXGRDS) + CALL par_put_int (NJNEST,MAXGRDS) + CALL par_put_int (NKNEST,MAXGRDS) + CALL par_put_float (CENTLAT,MAXGRDS) + CALL par_put_float (CENTLON,MAXGRDS) + CALL par_put_int (NNSTTOP,MAXGRDS) + CALL par_put_int (NNSTBOT,MAXGRDS) + + ! $MODEL_FILE_INFO namelist group + CALL par_put_int (INITIAL,1) + CALL par_put_int (NUD_TYPE,1) + CALL par_put_char (VARFPFX,strl1) + CALL par_put_float (VWAIT1,1) + CALL par_put_float (VWAITTOT,1) + CALL par_put_int (NUDLAT,1) + CALL par_put_float (TNUDLAT,1) + CALL par_put_float (TNUDCENT,1) + CALL par_put_float (TNUDTOP,1) + CALL par_put_float (ZNUDTOP,1) + CALL par_put_float (WT_NUDGE_G,maxgrds) + CALL par_put_float (WT_NUDGE_UV,1) + CALL par_put_float (WT_NUDGE_TH,1) + CALL par_put_float (WT_NUDGE_PI,1) + CALL par_put_float (WT_NUDGE_RT,1) + CALL par_put_int (NUD_COND,1) + CALL par_put_float (TCOND_BEG,1) + CALL par_put_float (TCOND_END,1) + CALL par_put_float (T_NUDGE_RC,1) + CALL par_put_float (WT_NUDGEC,maxgrds) + CALL par_put_float (SNUDCENT,1) + CALL par_put_int (IF_ODA,1) + CALL par_put_char (ODA_UPAPREF,strl1) + CALL par_put_char (ODA_SFCPREF,strl1) + CALL par_put_float (FRQODA,1) + CALL par_put_float (TODABEG,1) + CALL par_put_float (TODAEND,1) + CALL par_put_float (TNUDODA,1) + CALL par_put_float (WT_ODA_GRID,MAXGRDS) + CALL par_put_float (WT_ODA_UV,1) + CALL par_put_float (WT_ODA_TH,1) + CALL par_put_float (WT_ODA_PI,1) + CALL par_put_float (WT_ODA_RT,1) + CALL par_put_float (RODA_SFCE,MAXGRDS) + CALL par_put_float (RODA_SFC0,MAXGRDS) + CALL par_put_float (RODA_UPAE,MAXGRDS) + CALL par_put_float (RODA_UPA0,MAXGRDS) + CALL par_put_float (RODA_HGT,MAXGRDS) + CALL par_put_float (RODA_ZFAC,MAXGRDS) + CALL par_put_float (ODA_SFC_TIL,1) + CALL par_put_float (ODA_SFC_TEL,1) + CALL par_put_float (ODA_UPA_TIL,1) + CALL par_put_float (ODA_UPA_TEL,1) + CALL par_put_char (HFILIN,strl1) + CALL par_put_int (IPAST_SFC,1) + CALL par_put_int (ICLOBBER,1) + CALL par_put_int (IOUTPUT,1) + CALL par_put_char (AFILEPREF,strl1) + CALL par_put_float (FRQSTATE,MAXGRDS) + CALL par_put_float (FRQST_KEEP,1) + CALL par_put_float (FRQLITE,1) + CALL par_put_float (NLITE_VARS,1) + do nm = 1, nlite_vars + print*,'lite pack:',nm,trim(LITE_VARS(nm)) + CALL par_put_char (LITE_VARS(nm),32) + enddo + CALL par_put_float (AVGTIM,1) + CALL par_put_float (FRQMEAN,1) + CALL par_put_float (FRQBOTH,1) + CALL par_put_char (TOPFILES,strl1) + CALL par_put_char (SFCFILES,strl1) + CALL par_put_char (SSTFPFX,strl1) + CALL par_put_char (NDVIFPFX,strl1) + CALL par_put_int (ITOPTFLG,MAXGRDS) + CALL par_put_int (ISSTFLG,MAXGRDS) + CALL par_put_int (IVEGTFLG,MAXGRDS) + CALL par_put_int (ISOILFLG,MAXGRDS) + CALL par_put_int (NDVIFLG,MAXGRDS) + CALL par_put_int (IUPDNDVI,1) + CALL par_put_int (IUPDSST,1) + CALL par_put_char (ITOPTFN,MAXGRDS*strl1) + CALL par_put_char (ISSTFN,MAXGRDS*strl1) + CALL par_put_char (IVEGTFN,MAXGRDS*strl1) + CALL par_put_char (ISOILFN,MAXGRDS*strl1) + CALL par_put_char (NDVIFN,MAXGRDS*strl1) + CALL par_put_int (ITOPSFLG,MAXGRDS) + CALL par_put_float (TOPTENH,MAXGRDS) + CALL par_put_float (TOPTWVL,MAXGRDS) + CALL par_put_int (IZ0FLG,MAXGRDS) + CALL par_put_float (Z0MAX,MAXGRDS) + CALL par_put_float (Z0FACT,1) + + ! $MODEL_OPTIONS namelist group + CALL par_put_int (ICORFLG,1) + CALL par_put_int (IBND,1) + CALL par_put_int (JBND,1) + CALL par_put_float (CPHAS,1) + CALL par_put_int (LSFLG,1) + CALL par_put_int (NFPT,1) + CALL par_put_float (DISTIM,1) + CALL par_put_int (ILWRTYP,1) + CALL par_put_int (ISWRTYP,1) + CALL par_put_float (RADFRQ,1) + CALL par_put_int (LONRAD,1) + CALL par_put_int (NNQPARM,MAXGRDS) + CALL par_put_float (CONFRQ,1) + CALL par_put_float (WCLDBS,1) + CALL par_put_int (IKPP,1) + CALL par_put_int (NKPPZ,1) + CALL par_put_float (FRQKPP,1) + CALL par_put_float (RELAX_SST,1) + CALL par_put_float (RELAX_OCNT,1) + CALL par_put_float (RELAX_SAL,1) + CALL par_put_float (DMAXKPP,1) + CALL par_put_float (DSCALEKPP,1) + CALL par_put_int (KPPITERMAX,1) + CALL par_put_int (KPPRNT,1) + CALL par_put_float (UBMN_KPP,1) + CALL par_put_int (NPATCH,1) + CALL par_put_int (NVEGPAT,1) + CALL par_put_int (ISFCL,1) + CALL par_put_int (IFREESLIP,1) + CALL par_put_char (SIBFILE,strl1) + CALL par_put_float (CO2_INIT,NZPMAX) + CALL par_put_int (ISOILDAT,1) + CALL par_put_int (ISNOWDAT,1) + CALL par_put_int (NVGCON,1) + CALL par_put_float (PCTLCON,1) + CALL par_put_int (NSLCON,1) + CALL par_put_float (ZROUGH,1) + CALL par_put_float (ALBEDO,1) + CALL par_put_float (SEATMP,1) + CALL par_put_float (DTHCON,1) + CALL par_put_float (DRTCON,1) + CALL par_put_float (SLZ,NZGMAX) + CALL par_put_float (SLMSTR,NZGMAX) + CALL par_put_float (STGOFF,NZGMAX) + CALL par_put_int (IDIFFK,MAXGRDS) + CALL par_put_int (IDIFFPERTS,1) + CALL par_put_int (IHORGRAD,1) + CALL par_put_float (CSX,MAXGRDS) + CALL par_put_float (CSZ,MAXGRDS) + CALL par_put_float (XKHKM,MAXGRDS) + CALL par_put_float (ZKHKM,MAXGRDS) + CALL par_put_float (AKMIN,MAXGRDS) + CALL par_put_float (FRACSAT,1) + CALL par_put_int (IBUBBLE,1) + CALL par_put_int (IBUBGRD,1) + CALL par_put_int (IBDXIA,1) + CALL par_put_int (IBDXIZ,1) + CALL par_put_int (IBDYJA,1) + CALL par_put_int (IBDYJZ,1) + CALL par_put_int (IBDZK1,1) + CALL par_put_int (IBDZK2,1) + CALL par_put_float (BTHP,1) + CALL par_put_float (BRTP,1) + CALL par_put_int (ICONV,1) + CALL par_put_int (ICONGR,1) + CALL par_put_int (ICICENT,1) + CALL par_put_int (ICJCENT,1) + CALL par_put_float (CXRAD,1) + CALL par_put_float (CYRAD,1) + CALL par_put_int (ICVERT,1) + CALL par_put_int (ICKMAX,1) + CALL par_put_float (CZRAD,1) + CALL par_put_int (ICKCENT,1) + CALL par_put_float (CDIVMAX,1) + CALL par_put_float (CTAU,1) + CALL par_put_float (CTMAX,1) + CALL par_put_int (IRCE,1) + CALL par_put_float (RCE_SZEN,1) + CALL par_put_float (RCE_SOLC,1) + CALL par_put_float (RCE_UBMN,1) + CALL par_put_float (RCE_BUBL,1) + CALL par_put_int (ITRACER,1) + CALL par_put_int (ITRACHIST,1) + CALL par_put_int (LEVEL,1) + CALL par_put_int (ISCM,1) + CALL par_put_float (SCMTIME,1) + CALL par_put_int (ISCMX,1) + CALL par_put_int (ISCMY,1) + CALL par_put_int (ICHECKMIC,1) + CALL par_put_int (IMBUDGET,1) + CALL par_put_int (IRIME,1) + CALL par_put_int (IPLAWS,1) + CALL par_put_int (ISEDIM,1) + CALL par_put_int (ICLOUD,1) + CALL par_put_int (IDRIZ,1) + CALL par_put_int (IRAIN,1) + CALL par_put_int (IPRIS,1) + CALL par_put_int (ISNOW,1) + CALL par_put_int (IAGGR,1) + CALL par_put_int (IGRAUP,1) + CALL par_put_int (IHAIL,1) + CALL par_put_float (CPARM,1) + CALL par_put_float (DPARM,1) + CALL par_put_float (RPARM,1) + CALL par_put_float (PPARM,1) + CALL par_put_float (SPARM,1) + CALL par_put_float (APARM,1) + CALL par_put_float (GPARM,1) + CALL par_put_float (HPARM,1) + CALL par_put_float (GNU,8) + CALL par_put_char (HUCMFILE,strl1) + CALL par_put_int (NDTCOLL,1) + CALL par_put_int (IAEROSOL,1) + CALL par_put_int (ISALT,1) + CALL par_put_int (IDUST,1) + CALL par_put_int (IDUSTLOFT,1) + CALL par_put_char (DUSTFILE,strl1) + CALL par_put_int (ICCNLEV,1) + CALL par_put_int (IIFN,1) + CALL par_put_int (IIFN_FORMULA,1) + CALL par_put_int (IAERORAD,1) + CALL par_put_int (IAERODEP,1) + CALL par_put_int (IAEROPRNT,1) + CALL par_put_int (IAEROHIST,1) + CALL par_put_float (CIN_MAX,1) + CALL par_put_float (CCN_MAX,1) + CALL par_put_float (GCCN_MAX,1) + CALL par_put_float (DUST1_MAX,1) + CALL par_put_float (DUST2_MAX,1) + CALL par_put_float (SALTF_MAX,1) + CALL par_put_float (SALTJ_MAX,1) + CALL par_put_float (SALTS_MAX,1) + CALL par_put_int (IAEROLBC,MAXGRDS) + CALL par_put_int (ICO2LBC,MAXGRDS) + CALL par_put_float (BCTAU,MAXGRDS) + CALL par_put_int (IAERO_CHEM,9) + CALL par_put_float (AERO_EPSILON,9) + CALL par_put_float (AERO_MEDRAD,9) + CALL par_put_int (ITRKEPSILON,1) + CALL par_put_int (ITRKDUST,1) + CALL par_put_int (ITRKDUSTIFN,1) + CALL par_put_int (ICEPROCS,1) + + ! $MODEL_SOUND namelist group + CALL par_put_int (IPSFLG,1) + CALL par_put_int (ITSFLG,1) + CALL par_put_int (IRTSFLG,1) + CALL par_put_int (IUSFLG,1) + CALL par_put_float (HS,MAXSNDG) + CALL par_put_float (PS,MAXSNDG) + CALL par_put_float (TS,MAXSNDG) + CALL par_put_float (RTS,MAXSNDG) + CALL par_put_float (US,MAXSNDG) + CALL par_put_float (VS,MAXSNDG) + + ! $ISAN_CONTROL namelist group + CALL par_put_int (ISZSTAGE,1) + CALL par_put_int (IVRSTAGE,1) + CALL par_put_int (ISAN_INC,1) + CALL par_put_int (I1ST_FLG,1) + CALL par_put_int (IUPA_FLG,1) + CALL par_put_int (ISFC_FLG,1) + CALL par_put_char (IAPR,strl1) + CALL par_put_char (IARAWI,strl1) + CALL par_put_char (IASRFCE,strl1) + CALL par_put_char (VAR_HFILE,strl1) + CALL par_put_char (VARPFX,strl1) + CALL par_put_int (IOFLGISZ,1) + CALL par_put_int (IOFLGVAR,1) + CALL par_put_int (IDATAIN,1) + + ! $ISAN_ISENTROPIC namelist group + CALL par_put_int (NIGRIDS,1) + CALL par_put_int (NFEEDVAR,1) + CALL par_put_float (SIGZWT,1) + CALL par_put_int (NISN,1) + CALL par_put_int (LEVTH,MAXISN) + CALL par_put_float (TOPSIGZ,1) + CALL par_put_float (HYBBOT,1) + CALL par_put_float (HYBTOP,1) + CALL par_put_float (SFCINF,1) + CALL par_put_int (MAXSTA,1) + CALL par_put_int (MAXSFC,1) + CALL par_put_float (GOBSEP,1) + CALL par_put_float (GOBRAD,1) + CALL par_put_float (WVLNTH,MAXAGRDS) + CALL par_put_float (SWVLNTH,MAXAGRDS) + CALL par_put_float (RESPON,MAXAGRDS) + CALL par_put_float (STASEP,1) + CALL par_put_int (IGRIDFL,1) + CALL par_put_float (GRIDWT,MAXAGRDS) + CALL par_put_int (NOTSTA,1) + CALL par_put_char (NOTID,50*strl1) + CALL par_put_char (USED_FILE,strl1) + CALL par_put_int (IOBSWIN,1) + + ! eng_params() vars + CALL par_put_float (SSPCT,1) + CALL par_put_int (IMPL,1) + + CALL par_broadcast (machnum(mainnum)) + else + ! receiving nodes + CALL par_init_recv_bcast (buff, nwords) ! don't call this if you are mainnum + CALL par_broadcast (machnum(mainnum)) + + ! $MODEL_GRID namelist group + CALL par_get_char (EXPNME,strl1) + CALL par_get_char (RUNTYPE,32) + CALL par_get_char (TIMEUNIT,32) + CALL par_get_float (TIMMAX,1) + CALL par_get_int (IMONTH1,1) + CALL par_get_int (IDATE1,1) + CALL par_get_int (IYEAR1,1) + CALL par_get_int (ITIME1,1) + CALL par_get_int (NGRIDS,1) + CALL par_get_int (NNXP,MAXGRDS) + CALL par_get_int (NNYP,MAXGRDS) + CALL par_get_int (NNZP,MAXGRDS) + CALL par_get_int (NZG,1) + CALL par_get_int (NZS,1) + CALL par_get_int (NXTNEST,MAXGRDS) + CALL par_get_int (IPRNTSTMT,1) + CALL par_get_int (IHTRAN,1) + CALL par_get_float (DELTAX,1) + CALL par_get_float (DELTAZ,1) + CALL par_get_float (DZRAT,1) + CALL par_get_float (DZMAX,1) + CALL par_get_float (ZZ,NZPMAX) + CALL par_get_float (DTLONG,1) + CALL par_get_int (NACOUST,1) + CALL par_get_int (NSTRATX,MAXGRDS) + CALL par_get_int (NSTRATY,MAXGRDS) + CALL par_get_int (NNDTRAT,MAXGRDS) + CALL par_get_int (NESTZ,1) + CALL par_get_int (NSTRATZ,NZPMAX) + CALL par_get_float (POLELAT,1) + CALL par_get_float (POLELON,1) + CALL par_get_int (NINEST,MAXGRDS) + CALL par_get_int (NJNEST,MAXGRDS) + CALL par_get_int (NKNEST,MAXGRDS) + CALL par_get_float (CENTLAT,MAXGRDS) + CALL par_get_float (CENTLON,MAXGRDS) + CALL par_get_int (NNSTTOP,MAXGRDS) + CALL par_get_int (NNSTBOT,MAXGRDS) + + ! $MODEL_FILE_INFO namelist group + CALL par_get_int (INITIAL,1) + CALL par_get_int (NUD_TYPE,1) + CALL par_get_char (VARFPFX,strl1) + CALL par_get_float (VWAIT1,1) + CALL par_get_float (VWAITTOT,1) + CALL par_get_int (NUDLAT,1) + CALL par_get_float (TNUDLAT,1) + CALL par_get_float (TNUDCENT,1) + CALL par_get_float (TNUDTOP,1) + CALL par_get_float (ZNUDTOP,1) + CALL par_get_float (WT_NUDGE_G,maxgrds) + CALL par_get_float (WT_NUDGE_UV,1) + CALL par_get_float (WT_NUDGE_TH,1) + CALL par_get_float (WT_NUDGE_PI,1) + CALL par_get_float (WT_NUDGE_RT,1) + CALL par_get_int (NUD_COND,1) + CALL par_get_float (TCOND_BEG,1) + CALL par_get_float (TCOND_END,1) + CALL par_get_float (T_NUDGE_RC,1) + CALL par_get_float (WT_NUDGEC,maxgrds) + CALL par_get_float (SNUDCENT,1) + CALL par_get_int (IF_ODA,1) + CALL par_get_char (ODA_UPAPREF,strl1) + CALL par_get_char (ODA_SFCPREF,strl1) + CALL par_get_float (FRQODA,1) + CALL par_get_float (TODABEG,1) + CALL par_get_float (TODAEND,1) + CALL par_get_float (TNUDODA,1) + CALL par_get_float (WT_ODA_GRID,MAXGRDS) + CALL par_get_float (WT_ODA_UV,1) + CALL par_get_float (WT_ODA_TH,1) + CALL par_get_float (WT_ODA_PI,1) + CALL par_get_float (WT_ODA_RT,1) + CALL par_get_float (RODA_SFCE,MAXGRDS) + CALL par_get_float (RODA_SFC0,MAXGRDS) + CALL par_get_float (RODA_UPAE,MAXGRDS) + CALL par_get_float (RODA_UPA0,MAXGRDS) + CALL par_get_float (RODA_HGT,MAXGRDS) + CALL par_get_float (RODA_ZFAC,MAXGRDS) + CALL par_get_float (ODA_SFC_TIL,1) + CALL par_get_float (ODA_SFC_TEL,1) + CALL par_get_float (ODA_UPA_TIL,1) + CALL par_get_float (ODA_UPA_TEL,1) + CALL par_get_char (HFILIN,strl1) + CALL par_get_int (IPAST_SFC,1) + CALL par_get_int (ICLOBBER,1) + CALL par_get_int (IOUTPUT,1) + CALL par_get_char (AFILEPREF,strl1) + CALL par_get_float (FRQSTATE,MAXGRDS) + CALL par_get_float (FRQST_KEEP,1) + CALL par_get_float (FRQLITE,1) + CALL par_get_float (NLITE_VARS,1) + do nm = 1, nlite_vars + CALL par_get_char (LITE_VARS(nm),32) + enddo + CALL par_get_float (AVGTIM,1) + CALL par_get_float (FRQMEAN,1) + CALL par_get_float (FRQBOTH,1) + CALL par_get_char (TOPFILES,strl1) + CALL par_get_char (SFCFILES,strl1) + CALL par_get_char (SSTFPFX,strl1) + CALL par_get_char (NDVIFPFX,strl1) + CALL par_get_int (ITOPTFLG,MAXGRDS) + CALL par_get_int (ISSTFLG,MAXGRDS) + CALL par_get_int (IVEGTFLG,MAXGRDS) + CALL par_get_int (ISOILFLG,MAXGRDS) + CALL par_get_int (NDVIFLG,MAXGRDS) + CALL par_get_int (IUPDNDVI,1) + CALL par_get_int (IUPDSST,1) + CALL par_get_char (ITOPTFN,MAXGRDS*strl1) + CALL par_get_char (ISSTFN,MAXGRDS*strl1) + CALL par_get_char (IVEGTFN,MAXGRDS*strl1) + CALL par_get_char (ISOILFN,MAXGRDS*strl1) + CALL par_get_char (NDVIFN,MAXGRDS*strl1) + CALL par_get_int (ITOPSFLG,MAXGRDS) + CALL par_get_float (TOPTENH,MAXGRDS) + CALL par_get_float (TOPTWVL,MAXGRDS) + CALL par_get_int (IZ0FLG,MAXGRDS) + CALL par_get_float (Z0MAX,MAXGRDS) + CALL par_get_float (Z0FACT,1) + + ! $MODEL_OPTIONS namelist group + CALL par_get_int (ICORFLG,1) + CALL par_get_int (IBND,1) + CALL par_get_int (JBND,1) + CALL par_get_float (CPHAS,1) + CALL par_get_int (LSFLG,1) + CALL par_get_int (NFPT,1) + CALL par_get_float (DISTIM,1) + CALL par_get_int (ILWRTYP,1) + CALL par_get_int (ISWRTYP,1) + CALL par_get_float (RADFRQ,1) + CALL par_get_int (LONRAD,1) + CALL par_get_int (NNQPARM,MAXGRDS) + CALL par_get_float (CONFRQ,1) + CALL par_get_float (WCLDBS,1) + CALL par_get_int (IKPP,1) + CALL par_get_int (NKPPZ,1) + CALL par_get_float (FRQKPP,1) + CALL par_get_float (RELAX_SST,1) + CALL par_get_float (RELAX_OCNT,1) + CALL par_get_float (RELAX_SAL,1) + CALL par_get_float (DMAXKPP,1) + CALL par_get_float (DSCALEKPP,1) + CALL par_get_int (KPPITERMAX,1) + CALL par_get_int (KPPRNT,1) + CALL par_get_float (UBMN_KPP,1) + CALL par_get_int (NPATCH,1) + CALL par_get_int (NVEGPAT,1) + CALL par_get_int (ISFCL,1) + CALL par_get_int (IFREESLIP,1) + CALL par_get_char (SIBFILE,strl1) + CALL par_get_float (CO2_INIT,NZPMAX) + CALL par_get_int (ISOILDAT,1) + CALL par_get_int (ISNOWDAT,1) + CALL par_get_int (NVGCON,1) + CALL par_get_float (PCTLCON,1) + CALL par_get_int (NSLCON,1) + CALL par_get_float (ZROUGH,1) + CALL par_get_float (ALBEDO,1) + CALL par_get_float (SEATMP,1) + CALL par_get_float (DTHCON,1) + CALL par_get_float (DRTCON,1) + CALL par_get_float (SLZ,NZGMAX) + CALL par_get_float (SLMSTR,NZGMAX) + CALL par_get_float (STGOFF,NZGMAX) + CALL par_get_int (IDIFFK,MAXGRDS) + CALL par_get_int (IDIFFPERTS,1) + CALL par_get_int (IHORGRAD,1) + CALL par_get_float (CSX,MAXGRDS) + CALL par_get_float (CSZ,MAXGRDS) + CALL par_get_float (XKHKM,MAXGRDS) + CALL par_get_float (ZKHKM,MAXGRDS) + CALL par_get_float (AKMIN,MAXGRDS) + CALL par_get_float (FRACSAT,1) + CALL par_get_int (IBUBBLE,1) + CALL par_get_int (IBUBGRD,1) + CALL par_get_int (IBDXIA,1) + CALL par_get_int (IBDXIZ,1) + CALL par_get_int (IBDYJA,1) + CALL par_get_int (IBDYJZ,1) + CALL par_get_int (IBDZK1,1) + CALL par_get_int (IBDZK2,1) + CALL par_get_float (BTHP,1) + CALL par_get_float (BRTP,1) + CALL par_get_int (ICONV,1) + CALL par_get_int (ICONGR,1) + CALL par_get_int (ICICENT,1) + CALL par_get_int (ICJCENT,1) + CALL par_get_float (CXRAD,1) + CALL par_get_float (CYRAD,1) + CALL par_get_int (ICVERT,1) + CALL par_get_int (ICKMAX,1) + CALL par_get_float (CZRAD,1) + CALL par_get_int (ICKCENT,1) + CALL par_get_float (CDIVMAX,1) + CALL par_get_float (CTAU,1) + CALL par_get_float (CTMAX,1) + CALL par_get_int (IRCE,1) + CALL par_get_float (RCE_SZEN,1) + CALL par_get_float (RCE_SOLC,1) + CALL par_get_float (RCE_UBMN,1) + CALL par_get_float (RCE_BUBL,1) + CALL par_get_int (ITRACER,1) + CALL par_get_int (ITRACHIST,1) + CALL par_get_int (LEVEL,1) + CALL par_get_int (ISCM,1) + CALL par_get_float (SCMTIME,1) + CALL par_get_int (ISCMX,1) + CALL par_get_int (ISCMY,1) + CALL par_get_int (ICHECKMIC,1) + CALL par_get_int (IMBUDGET,1) + CALL par_get_int (IRIME,1) + CALL par_get_int (IPLAWS,1) + CALL par_get_int (ISEDIM,1) + CALL par_get_int (ICLOUD,1) + CALL par_get_int (IDRIZ,1) + CALL par_get_int (IRAIN,1) + CALL par_get_int (IPRIS,1) + CALL par_get_int (ISNOW,1) + CALL par_get_int (IAGGR,1) + CALL par_get_int (IGRAUP,1) + CALL par_get_int (IHAIL,1) + CALL par_get_float (CPARM,1) + CALL par_get_float (DPARM,1) + CALL par_get_float (RPARM,1) + CALL par_get_float (PPARM,1) + CALL par_get_float (SPARM,1) + CALL par_get_float (APARM,1) + CALL par_get_float (GPARM,1) + CALL par_get_float (HPARM,1) + CALL par_get_float (GNU,8) + CALL par_get_char (HUCMFILE,strl1) + CALL par_get_int (NDTCOLL,1) + CALL par_get_int (IAEROSOL,1) + CALL par_get_int (ISALT,1) + CALL par_get_int (IDUST,1) + CALL par_get_int (IDUSTLOFT,1) + CALL par_get_char (DUSTFILE,strl1) + CALL par_get_int (ICCNLEV,1) + CALL par_get_int (IIFN,1) + CALL par_get_int (IIFN_FORMULA,1) + CALL par_get_int (IAERORAD,1) + CALL par_get_int (IAERODEP,1) + CALL par_get_int (IAEROPRNT,1) + CALL par_get_int (IAEROHIST,1) + CALL par_get_float (CIN_MAX,1) + CALL par_get_float (CCN_MAX,1) + CALL par_get_float (GCCN_MAX,1) + CALL par_get_float (DUST1_MAX,1) + CALL par_get_float (DUST2_MAX,1) + CALL par_get_float (SALTF_MAX,1) + CALL par_get_float (SALTJ_MAX,1) + CALL par_get_float (SALTS_MAX,1) + CALL par_get_int (IAEROLBC,MAXGRDS) + CALL par_get_int (ICO2LBC,MAXGRDS) + CALL par_get_float (BCTAU,MAXGRDS) + CALL par_get_int (IAERO_CHEM,9) + CALL par_get_float (AERO_EPSILON,9) + CALL par_get_float (AERO_MEDRAD,9) + CALL par_get_int (ITRKEPSILON,1) + CALL par_get_int (ITRKDUST,1) + CALL par_get_int (ITRKDUSTIFN,1) + CALL par_get_int (ICEPROCS,1) + + ! $MODEL_SOUND namelist group + CALL par_get_int (IPSFLG,1) + CALL par_get_int (ITSFLG,1) + CALL par_get_int (IRTSFLG,1) + CALL par_get_int (IUSFLG,1) + CALL par_get_float (HS,MAXSNDG) + CALL par_get_float (PS,MAXSNDG) + CALL par_get_float (TS,MAXSNDG) + CALL par_get_float (RTS,MAXSNDG) + CALL par_get_float (US,MAXSNDG) + CALL par_get_float (VS,MAXSNDG) + + ! $ISAN_CONTROL namelist group + CALL par_get_int (ISZSTAGE,1) + CALL par_get_int (IVRSTAGE,1) + CALL par_get_int (ISAN_INC,1) + CALL par_get_int (I1ST_FLG,1) + CALL par_get_int (IUPA_FLG,1) + CALL par_get_int (ISFC_FLG,1) + CALL par_get_char (IAPR,strl1) + CALL par_get_char (IARAWI,strl1) + CALL par_get_char (IASRFCE,strl1) + CALL par_get_char (VAR_HFILE,strl1) + CALL par_get_char (VARPFX,strl1) + CALL par_get_int (IOFLGISZ,1) + CALL par_get_int (IOFLGVAR,1) + CALL par_get_int (IDATAIN,1) + + ! $ISAN_ISENTROPIC namelist group + CALL par_get_int (NIGRIDS,1) + CALL par_get_int (NFEEDVAR,1) + CALL par_get_float (SIGZWT,1) + CALL par_get_int (NISN,1) + CALL par_get_int (LEVTH,MAXISN) + CALL par_get_float (TOPSIGZ,1) + CALL par_get_float (HYBBOT,1) + CALL par_get_float (HYBTOP,1) + CALL par_get_float (SFCINF,1) + CALL par_get_int (MAXSTA,1) + CALL par_get_int (MAXSFC,1) + CALL par_get_float (GOBSEP,1) + CALL par_get_float (GOBRAD,1) + CALL par_get_float (WVLNTH,MAXAGRDS) + CALL par_get_float (SWVLNTH,MAXAGRDS) + CALL par_get_float (RESPON,MAXAGRDS) + CALL par_get_float (STASEP,1) + CALL par_get_int (IGRIDFL,1) + CALL par_get_float (GRIDWT,MAXAGRDS) + CALL par_get_int (NOTSTA,1) + CALL par_get_char (NOTID,50*strl1) + CALL par_get_char (USED_FILE,strl1) + CALL par_get_int (IOBSWIN,1) + + ! eng_params() vars + CALL par_get_float (SSPCT,1) + CALL par_get_int (IMPL,1) + + endif + + deallocate (buff) + +return +END SUBROUTINE broadcast_config + +!########################################################################## +Subroutine broadcast_grid () + +use mem_grid +use node_mod + +implicit none + + real, allocatable :: buff(:) + integer :: nwords + + nwords = 50 + (20 + 10*nxpmax + 10*nypmax + 19*nzpmax) * maxgrds + allocate (buff(nwords)) ! note that what got allocated was nwords*sizeof(real) bytes + + ! The mainnum process will send data, all others will receive in the broadcast + ! + ! Therefore, the algorithm is: + ! For mainnum + ! pack buffer + ! broadcast buffer to other processes + ! For the other processes + ! receive buffer from mainnum + ! unpack buffer + if (my_rams_num .eq. mainnum) then + ! sending node: pack data into the buffer, then send + CALL par_init_put (buff,nwords) + + ! grid vars + CALL par_put_int (nnx,maxgrds) + CALL par_put_int (nnx1,maxgrds) + CALL par_put_int (nnx2,maxgrds) + CALL par_put_int (nny,maxgrds) + CALL par_put_int (nny1,maxgrds) + CALL par_put_int (nny2,maxgrds) + CALL par_put_int (nnz,maxgrds) + CALL par_put_int (nnz1,maxgrds) + CALL par_put_int (nnxyzp,maxgrds) + CALL par_put_int (nnxysp,maxgrds) + CALL par_put_int (nnxyp,maxgrds) + CALL par_put_int (jdim,1) + + ! coordinate values + CALL par_put_int (nrz,nzpmax*maxgrds) + CALL par_put_int (ipm,nxpmax*maxgrds) + CALL par_put_int (jpm,nypmax*maxgrds) + CALL par_put_int (kpm,nzpmax*maxgrds) + CALL par_put_float (xmn,nxpmax*maxgrds) + CALL par_put_float (ymn,nypmax*maxgrds) + CALL par_put_float (zmn,nzpmax*maxgrds) + CALL par_put_float (xtn,nxpmax*maxgrds) + CALL par_put_float (ytn,nypmax*maxgrds) + CALL par_put_float (ztn,nzpmax*maxgrds) + CALL par_put_float (dzmn,nzpmax*maxgrds) + CALL par_put_float (dzm2n,nzpmax*maxgrds) + CALL par_put_float (dztn,nzpmax*maxgrds) + CALL par_put_float (dzt2n,nzpmax*maxgrds) + CALL par_put_float (deltaxn,maxgrds) + CALL par_put_float (deltazn,maxgrds) + CALL par_put_float (ztop,1) + + ! nesting coefficients + CALL par_put_float (ei1,nxpmax*maxgrds) + CALL par_put_float (ei2,nxpmax*maxgrds) + CALL par_put_float (ei3,nxpmax*maxgrds) + CALL par_put_float (ei4,nxpmax*maxgrds) + CALL par_put_float (ei5,nxpmax*maxgrds) + CALL par_put_float (ei6,nxpmax*maxgrds) + CALL par_put_float (ei7,nxpmax*maxgrds) + + CALL par_put_float (ej1,nypmax*maxgrds) + CALL par_put_float (ej2,nypmax*maxgrds) + CALL par_put_float (ej3,nypmax*maxgrds) + CALL par_put_float (ej4,nypmax*maxgrds) + CALL par_put_float (ej5,nypmax*maxgrds) + CALL par_put_float (ej6,nypmax*maxgrds) + CALL par_put_float (ej7,nypmax*maxgrds) + + CALL par_put_float (ek1,nzpmax*maxgrds) + CALL par_put_float (ek2,nzpmax*maxgrds) + CALL par_put_float (ek3,nzpmax*maxgrds) + CALL par_put_float (ek4,nzpmax*maxgrds) + CALL par_put_float (ek5,nzpmax*maxgrds) + CALL par_put_float (ek6,nzpmax*maxgrds) + CALL par_put_float (ek7,nzpmax*maxgrds) + CALL par_put_float (fbcf,nzpmax*maxgrds*4) + + CALL par_broadcast (machnum(mainnum)) + else + ! receiving nodes + CALL par_init_recv_bcast (buff, nwords) ! don't call this if you are mainnum + CALL par_broadcast (machnum(mainnum)) + + ! grid vars + CALL par_get_int (nnx,maxgrds) + CALL par_get_int (nnx1,maxgrds) + CALL par_get_int (nnx2,maxgrds) + CALL par_get_int (nny,maxgrds) + CALL par_get_int (nny1,maxgrds) + CALL par_get_int (nny2,maxgrds) + CALL par_get_int (nnz,maxgrds) + CALL par_get_int (nnz1,maxgrds) + CALL par_get_int (nnxyzp,maxgrds) + CALL par_get_int (nnxysp,maxgrds) + CALL par_get_int (nnxyp,maxgrds) + CALL par_get_int (jdim,1) + + ! coordinate values + CALL par_get_int (nrz,nzpmax*maxgrds) + CALL par_get_int (ipm,nxpmax*maxgrds) + CALL par_get_int (jpm,nypmax*maxgrds) + CALL par_get_int (kpm,nzpmax*maxgrds) + CALL par_get_float (xmn,nxpmax*maxgrds) + CALL par_get_float (ymn,nypmax*maxgrds) + CALL par_get_float (zmn,nzpmax*maxgrds) + CALL par_get_float (xtn,nxpmax*maxgrds) + CALL par_get_float (ytn,nypmax*maxgrds) + CALL par_get_float (ztn,nzpmax*maxgrds) + CALL par_get_float (dzmn,nzpmax*maxgrds) + CALL par_get_float (dzm2n,nzpmax*maxgrds) + CALL par_get_float (dztn,nzpmax*maxgrds) + CALL par_get_float (dzt2n,nzpmax*maxgrds) + CALL par_get_float (deltaxn,maxgrds) + CALL par_get_float (deltazn,maxgrds) + CALL par_get_float (ztop,1) + + ! nesting coefficients + CALL par_get_float (ei1,nxpmax*maxgrds) + CALL par_get_float (ei2,nxpmax*maxgrds) + CALL par_get_float (ei3,nxpmax*maxgrds) + CALL par_get_float (ei4,nxpmax*maxgrds) + CALL par_get_float (ei5,nxpmax*maxgrds) + CALL par_get_float (ei6,nxpmax*maxgrds) + CALL par_get_float (ei7,nxpmax*maxgrds) + + CALL par_get_float (ej1,nypmax*maxgrds) + CALL par_get_float (ej2,nypmax*maxgrds) + CALL par_get_float (ej3,nypmax*maxgrds) + CALL par_get_float (ej4,nypmax*maxgrds) + CALL par_get_float (ej5,nypmax*maxgrds) + CALL par_get_float (ej6,nypmax*maxgrds) + CALL par_get_float (ej7,nypmax*maxgrds) + + CALL par_get_float (ek1,nzpmax*maxgrds) + CALL par_get_float (ek2,nzpmax*maxgrds) + CALL par_get_float (ek3,nzpmax*maxgrds) + CALL par_get_float (ek4,nzpmax*maxgrds) + CALL par_get_float (ek5,nzpmax*maxgrds) + CALL par_get_float (ek6,nzpmax*maxgrds) + CALL par_get_float (ek7,nzpmax*maxgrds) + CALL par_get_float (fbcf,nzpmax*maxgrds*4) + endif + + deallocate (buff) + +return +END SUBROUTINE broadcast_grid + +!########################################################################## +Subroutine broadcast_decomp () + +use node_mod + +implicit none + + real, allocatable :: buff(:) + integer :: nwords + + nwords = 50 + (4 * maxgrds) + (10 * maxmach * maxgrds) + allocate (buff(nwords)) ! note that what got allocated was nwords*sizeof(real) bytes + + ! The mainnum process will send data, all others will receive in the broadcast + ! + ! Therefore, the algorithm is: + ! For mainnum + ! pack buffer + ! broadcast buffer to other processes + ! For the other processes + ! receive buffer from mainnum + ! unpack buffer + if (my_rams_num .eq. mainnum) then + ! sending node: pack data into the buffer, then send + CALL par_init_put (buff,nwords) + + ! node vars + CALL par_put_int (ixb,maxmach*maxgrds) ! these are arrays with size maxmach*maxgrds + CALL par_put_int (ixe,maxmach*maxgrds) ! that were set in assign_node_subdomain + CALL par_put_int (iyb,maxmach*maxgrds) + CALL par_put_int (iye,maxmach*maxgrds) + CALL par_put_int (fd_sw_num,maxgrds) + CALL par_put_int (fd_nw_num,maxgrds) + CALL par_put_int (fd_se_num,maxgrds) + CALL par_put_int (fd_ne_num,maxgrds) + + ! broadcast node that contains SCM output point + CALL par_put_int (my_scm_num,1) + + CALL par_broadcast (machnum(mainnum)) + else + ! receiving nodes + CALL par_init_recv_bcast (buff, nwords) ! don't call this if you are mainnum + CALL par_broadcast (machnum(mainnum)) + + ! node vars + CALL par_get_int (ixb,maxmach*maxgrds) + CALL par_get_int (ixe,maxmach*maxgrds) + CALL par_get_int (iyb,maxmach*maxgrds) + CALL par_get_int (iye,maxmach*maxgrds) + CALL par_get_int (fd_sw_num,maxgrds) + CALL par_get_int (fd_nw_num,maxgrds) + CALL par_get_int (fd_se_num,maxgrds) + CALL par_get_int (fd_ne_num,maxgrds) + + ! broadcast node that contains SCM output point + CALL par_get_int (my_scm_num,1) + endif + + deallocate (buff) + +return +END SUBROUTINE broadcast_decomp + +!########################################################################## +Subroutine broadcast_bub_rand_nums (npts,bub_rand_nums) + +! Random numbers for T perturbations are only generated by one processor + +use node_mod + +implicit none + + integer :: npts + real, dimension(npts) :: bub_rand_nums + + real, allocatable :: buff(:) + integer :: nwords + + nwords = 50 + npts + allocate (buff(nwords)) ! note that what got allocated was nwords*sizeof(real) bytes + + ! The mainnum process will send data, all others will receive in the broadcast + ! + ! Therefore, the algorithm is: + ! For mainnum + ! pack buffer + ! broadcast buffer to other processes + ! For the other processes + ! receive buffer from mainnum + ! unpack buffer + if (my_rams_num .eq. mainnum) then + ! sending node: pack data into the buffer, then send + CALL par_init_put (buff,nwords) + + ! random numbers + CALL par_put_float (bub_rand_nums,npts) + + CALL par_broadcast (machnum(mainnum)) + else + ! receiving nodes + CALL par_init_recv_bcast (buff, nwords) ! don't call this if you are mainnum + CALL par_broadcast (machnum(mainnum)) + + ! random numbers + CALL par_get_float (bub_rand_nums,npts) + endif + + deallocate (buff) + +return +END SUBROUTINE broadcast_bub_rand_nums + +!########################################################################## +Subroutine broadcast_coltab () + +use micphys +use node_mod + +implicit none + + real, allocatable :: buff(:) + integer :: nwords + + nwords = 50 + (3 * ncat) + (4 * nhcat) + (nembc * nembc * (npairc + npairr)) + allocate (buff(nwords)) ! note that what got allocated was nwords*sizeof(real) bytes + + ! The mainnum process will send data, all others will receive in the broadcast + ! + ! Therefore, the algorithm is: + ! For mainnum + ! pack buffer + ! broadcast buffer to other processes + ! For the other processes + ! receive buffer from mainnum + ! unpack buffer + if (my_rams_num .eq. mainnum) then + ! sending node: pack data into the buffer, then send + CALL par_init_put (buff,nwords) + + ! node vars + CALL par_put_float (gnu,ncat) + CALL par_put_float (emb0,ncat) + CALL par_put_float (emb1,ncat) + + CALL par_put_float (cfmas,nhcat) + CALL par_put_float (pwmas,nhcat) + CALL par_put_float (cfvt,nhcat) + CALL par_put_float (pwvt,nhcat) + + CALL par_put_float (coltabc,nembc*nembc*npairc) + CALL par_put_float (coltabr,nembc*nembc*npairr) + + CALL par_broadcast (machnum(mainnum)) + else + ! receiving nodes + CALL par_init_recv_bcast (buff, nwords) ! don't call this if you are mainnum + CALL par_broadcast (machnum(mainnum)) + + ! node vars + CALL par_get_float (gnu,ncat) + CALL par_get_float (emb0,ncat) + CALL par_get_float (emb1,ncat) + + CALL par_get_float (cfmas,nhcat) + CALL par_get_float (pwmas,nhcat) + CALL par_get_float (cfvt,nhcat) + CALL par_get_float (pwvt,nhcat) + + CALL par_get_float (coltabc,nembc*nembc*npairc) + CALL par_get_float (coltabr,nembc*nembc*npairr) + endif + + deallocate (buff) + +return +END SUBROUTINE broadcast_coltab + +!############################################################################## +Subroutine broadcast_hist_header (ngrids1,nnxp1,nnyp1,nnzp1,nzg1 & + ,nzs1,nkppz1,npatch1) + +use mem_grid +use node_mod +use ref_sounding +use an_header +use kpp_parameters, only:nkppz + +implicit none + + integer :: ngrids1, nzg1, nzs1, nkppz1, npatch1 + integer, dimension(maxgrds) :: nnxp1, nnyp1, nnzp1 + + real, allocatable :: buff(:) + integer :: nwords + integer :: atable_elem_size, atable_elem_words + + type (head_table) :: dummy_atable + + ! this will produce number of bytes + + ! get the size of one record (an element of atable) + atable_elem_size = sizeof(dummy_atable) + atable_elem_words = atable_elem_size / 4 + + !Saleeby(2018): Increment "nwords" buffer if added "par_put" and + !"par_get" calls below. + nwords = 17 + ((3 + (6 * nzpmax)) * maxgrds) + (6 * maxsndg) & + + (maxvars * atable_elem_words) + + ! note that what got allocated was nwords*sizeof(real) bytes + allocate (buff(nwords)) + + ! The mainnum process sends data, all others will receive in the broadcast + ! + ! Therefore, the algorithm is: + ! For mainnum + ! pack buffer + ! broadcast buffer to other processes + ! For the other processes + ! receive buffer from mainnum + ! unpack buffer + if (my_rams_num .eq. mainnum) then + ! sending node: pack data into the buffer, then send + CALL par_init_put (buff,nwords) + + ! former grid structure + CALL par_put_int (ngrids1,1) + CALL par_put_int (nnxp1,maxgrds) + CALL par_put_int (nnyp1,maxgrds) + CALL par_put_int (nnzp1,maxgrds) + CALL par_put_int (npatch1,1) + CALL par_put_int (nzg1,1) + CALL par_put_int (nzs1,1) + CALL par_put_int (nkppz,1) + CALL par_put_float (time,1) + + ! Flag to determine if we are past the first timestep + CALL par_put_int (ngbegun,ngrids) + ! Flag to retain initial runtype if we are doing history initialization + CALL par_put_int (initorig,1) + + ! Reference sounding + CALL par_put_int (iref,1) + CALL par_put_int (jref,1) + CALL par_put_float (topref,1) + CALL par_put_int (nsndg,1) + CALL par_put_float (us,maxsndg) + CALL par_put_float (vs,maxsndg) + CALL par_put_float (ts,maxsndg) + CALL par_put_float (thds,maxsndg) + CALL par_put_float (ps,maxsndg) + CALL par_put_float (hs,maxsndg) + + ! 1-D reference state for all grids + CALL par_put_float (u01dn,nzpmax*maxgrds) + CALL par_put_float (v01dn,nzpmax*maxgrds) + CALL par_put_float (pi01dn,nzpmax*maxgrds) + CALL par_put_float (th01dn,nzpmax*maxgrds) + CALL par_put_float (dn01dn,nzpmax*maxgrds) + CALL par_put_float (rt01dn,nzpmax*maxgrds) + + ! anal_table - array of structures + ! use par_put_char since sizeof returns number of bytes + CALL par_put_int (nvbtab,1) + CALL par_put_char (anal_table,nvbtab*atable_elem_size) + + CALL par_broadcast (machnum(mainnum)) + else + ! receiving nodes + CALL par_init_recv_bcast (buff, nwords) ! don't call this if you are mainnum + CALL par_broadcast (machnum(mainnum)) + + ! former grid structure + CALL par_get_int (ngrids1,1) + ngridsh = ngrids1 + CALL par_get_int (nnxp1,maxgrds) + CALL par_get_int (nnyp1,maxgrds) + CALL par_get_int (nnzp1,maxgrds) + CALL par_get_int (npatch1,1) + CALL par_get_int (nzg1,1) + CALL par_get_int (nzs1,1) + CALL par_get_int (nkppz1,1) + CALL par_get_float (time,1) + + ! Flag to determine if we are past the first timestep + CALL par_get_int (ngbegun,ngrids) + ! Flag to retain initial runtype if we are doing history initialization + CALL par_get_int (initorig,1) + + ! Reference sounding + CALL par_get_int (iref,1) + CALL par_get_int (jref,1) + CALL par_get_float (topref,1) + CALL par_get_int (nsndg,1) + CALL par_get_float (us,maxsndg) + CALL par_get_float (vs,maxsndg) + CALL par_get_float (ts,maxsndg) + CALL par_get_float (thds,maxsndg) + CALL par_get_float (ps,maxsndg) + CALL par_get_float (hs,maxsndg) + + ! 1-D reference state for all grids + CALL par_get_float (u01dn,nzpmax*maxgrds) + CALL par_get_float (v01dn,nzpmax*maxgrds) + CALL par_get_float (pi01dn,nzpmax*maxgrds) + CALL par_get_float (th01dn,nzpmax*maxgrds) + CALL par_get_float (dn01dn,nzpmax*maxgrds) + CALL par_get_float (rt01dn,nzpmax*maxgrds) + + ! anal_table - array of structures + ! use par_get_char since sizeof returns number of bytes + CALL par_get_int (nvbtab,1) + allocate (anal_table(nvbtab)) + CALL par_get_char (anal_table,nvbtab*atable_elem_size) + endif + + deallocate (buff) + +return +END SUBROUTINE broadcast_hist_header + +!########################################################################## +Subroutine broadcast_vfile_selection () + +use mem_grid +use node_mod +use mem_varinit + +implicit none + + real, allocatable :: buff(:) + integer :: nwords + + nwords = 20 + (maxnudfiles * (strl1 + 15)) + allocate (buff(nwords)) ! note that what got allocated was nwords*sizeof(real) bytes + + ! The mainnum process will send data, all others will receive in the broadcast + ! + ! Therefore, the algorithm is: + ! For mainnum + ! pack buffer + ! broadcast buffer to other processes + ! For the other processes + ! receive buffer from mainnum + ! unpack buffer + if (my_rams_num .eq. mainnum) then + ! sending node: pack data into the buffer, then send + CALL par_init_put (buff,nwords) + + ! var file selection + CALL par_put_int (nvarffiles,1) + CALL par_put_int (nvarffl,1) + CALL par_put_char (fnames_varf,maxnudfiles*strl1) + CALL par_put_char (itotdate_varf,maxnudfiles*14) + CALL par_put_float (varf_times,maxnudfiles) + + CALL par_broadcast (machnum(mainnum)) + else + ! receiving nodes + CALL par_init_recv_bcast (buff, nwords) ! don't call this if you are mainnum + CALL par_broadcast (machnum(mainnum)) + + ! var file selection + CALL par_get_int (nvarffiles,1) + CALL par_get_int (nvarffl,1) + CALL par_get_char (fnames_varf,maxnudfiles*strl1) + CALL par_get_char (itotdate_varf,maxnudfiles*14) + CALL par_get_float (varf_times,maxnudfiles) + endif + + deallocate (buff) + +return +END SUBROUTINE broadcast_vfile_selection + +!########################################################################## +Subroutine broadcast_vfile_refstate () + +use mem_grid +use node_mod +use ref_sounding + +implicit none + + real, allocatable :: buff(:) + integer :: nwords + + nwords = 20 + (6 * nzpmax * maxgrds) + allocate (buff(nwords)) ! note that what got allocated was nwords*sizeof(real) bytes + + ! The mainnum process will send data, all others will receive in the broadcast + ! + ! Therefore, the algorithm is: + ! For mainnum + ! pack buffer + ! broadcast buffer to other processes + ! For the other processes + ! receive buffer from mainnum + ! unpack buffer + if (my_rams_num .eq. mainnum) then + ! sending node: pack data into the buffer, then send + CALL par_init_put (buff,nwords) + + ! var 1D ref state + CALL par_put_int (iref,1) + CALL par_put_int (jref,1) + CALL par_put_float (topref,1) + CALL par_put_float (u01dn,nzpmax*maxgrds) + CALL par_put_float (v01dn,nzpmax*maxgrds) + CALL par_put_float (rt01dn,nzpmax*maxgrds) + CALL par_put_float (th01dn,nzpmax*maxgrds) + CALL par_put_float (pi01dn,nzpmax*maxgrds) + CALL par_put_float (dn01dn,nzpmax*maxgrds) + + CALL par_broadcast (machnum(mainnum)) + else + ! receiving nodes + CALL par_init_recv_bcast (buff, nwords) ! don't call this if you are mainnum + CALL par_broadcast (machnum(mainnum)) + + ! var 1D ref state + CALL par_get_int (iref,1) + CALL par_get_int (jref,1) + CALL par_get_float (topref,1) + CALL par_get_float (u01dn,nzpmax*maxgrds) + CALL par_get_float (v01dn,nzpmax*maxgrds) + CALL par_get_float (rt01dn,nzpmax*maxgrds) + CALL par_get_float (th01dn,nzpmax*maxgrds) + CALL par_get_float (pi01dn,nzpmax*maxgrds) + CALL par_get_float (dn01dn,nzpmax*maxgrds) + endif + + deallocate (buff) + +return +END SUBROUTINE broadcast_vfile_refstate + +!############################################################################ +Subroutine get_fd_corner_vals (igrid,sw_val,nw_val,se_val,ne_val) + +! This routine will find the max of the dxt values sampled from the +! four corners of the domain. + +use mem_grid +use node_mod + +implicit none + + integer :: igrid + real :: sw_val, nw_val, se_val, ne_val + + integer :: inode + real, dimension(:), allocatable :: all_sw_val, all_nw_val, all_se_val, all_ne_val + + ! If we are running in parallel, we need to exchange + ! our local corner values with those at the full domain + ! corners. + ! + if (nmachs .gt. 1) then + ! Allocate MPI buffers + allocate(all_sw_val(nmachs)) + allocate(all_nw_val(nmachs)) + allocate(all_se_val(nmachs)) + allocate(all_ne_val(nmachs)) + + ! Mainnum collects the corner values, adjusts corner dxt values and + ! broadcasts to other nodes. + if (my_rams_num .eq. mainnum) then + CALL par_gather_floats (sw_val, all_sw_val, 1, machnum(mainnum)) + CALL par_gather_floats (nw_val, all_nw_val, 1, machnum(mainnum)) + CALL par_gather_floats (se_val, all_se_val, 1, machnum(mainnum)) + CALL par_gather_floats (ne_val, all_ne_val, 1, machnum(mainnum)) + + ! Find the domain corners and reset local dxt values accordingly + do inode = 1, nmachs + sw_val = all_sw_val(fd_sw_num(igrid)) ! south west corner + nw_val = all_nw_val(fd_nw_num(igrid)) ! north west corner + se_val = all_se_val(fd_se_num(igrid)) ! south east corner + ne_val = all_ne_val(fd_ne_num(igrid)) ! north east corner + enddo + + ! Broadcast the new dxt_* values to the other nodes + CALL broadcast_fd_corners (sw_val,nw_val,se_val,ne_val) + else + CALL par_gather_floats (sw_val, all_sw_val, 1, machnum(mainnum)) + CALL par_gather_floats (nw_val, all_nw_val, 1, machnum(mainnum)) + CALL par_gather_floats (se_val, all_se_val, 1, machnum(mainnum)) + CALL par_gather_floats (ne_val, all_ne_val, 1, machnum(mainnum)) + + ! Recieve the new dxt_* values from mainnum + CALL broadcast_fd_corners (sw_val,nw_val,se_val,ne_val) + endif + + ! Deallocate MPI buffers + deallocate(all_sw_val) + deallocate(all_nw_val) + deallocate(all_se_val) + deallocate(all_ne_val) + endif + +return +END SUBROUTINE get_fd_corner_vals + +!########################################################################## +Subroutine broadcast_fd_corners (sw_val,nw_val,se_val,ne_val) + +use node_mod + +implicit none + + real :: sw_val, nw_val, se_val, ne_val + + real, allocatable :: buff(:) + integer :: nwords + + nwords = 20 + allocate (buff(nwords)) ! note that what got allocated was nwords*sizeof(real) bytes + + ! The mainnum process will send data, all others will receive in the broadcast + ! + ! Therefore, the algorithm is: + ! For mainnum + ! pack buffer + ! broadcast buffer to other processes + ! For the other processes + ! receive buffer from mainnum + ! unpack buffer + if (my_rams_num .eq. mainnum) then + ! sending node: pack data into the buffer, then send + CALL par_init_put (buff,nwords) + + ! domain corners + CALL par_put_float (sw_val,1) + CALL par_put_float (nw_val,1) + CALL par_put_float (se_val,1) + CALL par_put_float (ne_val,1) + + CALL par_broadcast (machnum(mainnum)) + else + ! receiving nodes + CALL par_init_recv_bcast (buff, nwords) ! don't call this if you are mainnum + CALL par_broadcast (machnum(mainnum)) + + ! domain corners + CALL par_get_float (sw_val,1) + CALL par_get_float (nw_val,1) + CALL par_get_float (se_val,1) + CALL par_get_float (ne_val,1) + endif + + deallocate (buff) + +return +END SUBROUTINE broadcast_fd_corners + +!########################################################################## +Subroutine broadcast_dustsource (source,nx_source,ny_source) + +use node_mod + +implicit none + + real, allocatable :: buff(:) + integer :: nwords,nx_source,ny_source + real, dimension(nx_source,ny_source) :: source + + nwords = 50 + nx_source*ny_source + allocate (buff(nwords)) ! note that what got allocated was nwords*sizeof(real) bytes + + ! The mainnum process will send data, all others will receive in the broadcast + ! + ! Therefore, the algorithm is: + ! For mainnum + ! pack buffer + ! broadcast buffer to other processes + ! For the other processes + ! receive buffer from mainnum + ! unpack buffer + if (my_rams_num .eq. mainnum) then + ! sending node: pack data into the buffer, then send + CALL par_init_put (buff,nwords) + + ! dust source values + CALL par_put_float (source,nx_source*ny_source) + + CALL par_broadcast (machnum(mainnum)) + else + ! receiving nodes + CALL par_init_recv_bcast (buff,nwords) ! don't call this if you are mainnum + CALL par_broadcast (machnum(mainnum)) + + ! random numbers + CALL par_get_float (source,nx_source*ny_source) + endif + + deallocate (buff) + +return +END SUBROUTINE broadcast_dustsource diff --git a/src/6.2.16/mpi/mpass_lbc.f90 b/src/6.2.16/mpi/mpass_lbc.f90 new file mode 100644 index 0000000..d8e64d7 --- /dev/null +++ b/src/6.2.16/mpi/mpass_lbc.f90 @@ -0,0 +1,584 @@ +!############################################################################ +! update_lbc_vgroup() +! +! node_sendlbc_vgroup() and node_getlbc_vgroup() always have to be called in pairs. +! This routine provides a convenient utility to do that. +! +Subroutine update_lbc_vgroup (ngr,isflag) + implicit none + + integer :: ngr, isflag + + CALL node_sendlbc_vgroup (ngr,isflag) + CALL node_getlbc_vgroup (ngr,isflag) + + return +END SUBROUTINE update_lbc_vgroup + +!############################################################################ +! node_sendlbc_vgroup() +! +! This routine along with node_getlbc_vgroup() handles the updating of internal +! (internodal) overlap regions. These routines will run on a group of variables +! as opposed to a single variable. For single variable updating, use the +! update_lbc_var(), node_sendlbc_var() and node_getlbc_var() routines. +! +! The variables involved in these transfers are of different sizes, but can +! all be cast into a general 4D array. The idim_type element of the variable +! table structures identifies the size of that variable. So for a 4D variable +! that is organized as var(n1,n2,n3,n4), use the following sizes for +! each dimension: +! +! idim_type n1 n2 n3 n4 note +! +! 2 1 mxp myp 1 2D atmos variable +! 3 mzp mxp myp 1 3D atmos variable +! 4 nzg mxp myp npatch 4D soil variable +! 5 nzs mxp myp npatch 4D surface water variable +! 6 1 mxp myp npatch 3D leaf variable +! 7 mzp mxp myp nkr 3D atmos variable, bin micro +! 10 nkppz mxp myp 1 3D KPP ocean model variable +! +! Use the following sizes for calculating the size of the buffer that +! holds the overlap piece (tile). This buffer will be a 1D buffer +! with size = n1 * n2 * n3 * n4 +! +! idim_type n1 n2 n3 n4 note +! +! 2 1 nxt nyt 1 2D atmos variable +! 3 mzp nxt nyt 1 3D atmos variable +! 4 nzg nxt nyt npatch 4D soil variable +! 5 nzs nxt nyt npatch 4D surface water variable +! 6 1 nxt nyt npatch 3D leaf variable +! 7 mzp nxt nyt nkr 3D atmos variable, bin micro +! 10 nkppz nxt nyt 1 3D KPP ocean model variable +! +! where nxt and nyt are the horizontal sizes of the tile. +! +Subroutine node_sendlbc_vgroup (ngr,isflag) + +use mem_grid +use node_mod +use var_tables +use mem_basic +use mem_varinit +use micro_prm, only:nkr +use kpp_parameters, only:nkppz + +implicit none + +integer :: isflag,ngr +integer :: itype,nm,i1,i2,j1,j2,nv,mtp2,mtp3,mtp4,mtp5,mtp6,mtp7,mtp10 +real, pointer :: scalarp +real, dimension(:), allocatable :: lbc_buff + +itype=1 +!______________________ +! +! First, before we send anything, let's post the receives. Also, make sure +! any pending sends are complete. + +do nm=1,nmachs + if (iget_paths(itype,ngr,nm).ne.not_a_node) then + CALL par_get_noblock (node_buffs(nm)%lbc_recv_buff(1) & + ,node_buffs(nm)%nrecv ,LBOUND_TAG_BASE+ngr,machnum(nm),irecv_req(nm) ) + endif +enddo + + +!______________________ +! +! Now we can actually go on to sending the stuff + +do nm=1,nmachs + + if(ipaths(5,itype,ngr,nm).ne.not_a_node) then + + i1=ipaths(1,itype,ngr,nm) + i2=ipaths(2,itype,ngr,nm) + j1=ipaths(3,itype,ngr,nm) + j2=ipaths(4,itype,ngr,nm) + + CALL par_init_put (node_buffs(nm)%lbc_send_buff(1) & + ,node_buffs(nm)%nsend ) + CALL par_put_int (i1,1) + CALL par_put_int (i2,1) + CALL par_put_int (j1,1) + CALL par_put_int (j2,1) + CALL par_put_int (my_rams_num,1) + + mtp2 = (i2-i1+1)*(j2-j1+1) + mtp3 = nnzp(ngr) * mtp2 + mtp4 = nzg * mtp2 * npatch + mtp5 = nzs * mtp2 * npatch + mtp6 = mtp2 * npatch + mtp7 = nkr * mtp3 + mtp10 = nkppz * mtp2 + + select case (isflag) + case (LBC_ALL_VARS) + do nv = 1,num_var(ngr) + !This applies for impt1=1 which is for advected quantities + if ( vtab_r(nv,ngr)%impt1 == 1) then + if ( vtab_r(nv,ngr)%idim_type == 2) then + allocate(lbc_buff(mtp2)) + CALL mklbcbuff (1,mxp,myp,1,mtp2,vtab_r(nv,ngr)%var_p & + ,lbc_buff,i1-i0,i2-i0,j1-j0,j2-j0) + CALL par_put_float (lbc_buff,mtp2) + elseif ( vtab_r(nv,ngr)%idim_type == 3) then + allocate(lbc_buff(mtp3)) + CALL mklbcbuff (mzp,mxp,myp,1,mtp3,vtab_r(nv,ngr)%var_p & + ,lbc_buff,i1-i0,i2-i0,j1-j0,j2-j0) + CALL par_put_float (lbc_buff,mtp3) + elseif ( vtab_r(nv,ngr)%idim_type == 7) then + allocate(lbc_buff(mtp7)) + CALL mklbcbuff (mzp,mxp,myp,nkr,mtp7,vtab_r(nv,ngr)%var_p & + ,lbc_buff,i1-i0,i2-i0,j1-j0,j2-j0) + CALL par_put_float (lbc_buff,mtp7) + endif + deallocate(lbc_buff) + endif + enddo + case (LBC_ALL_INIT_VARS) + do nv = 1,num_var(ngr) + !This applies to all variables that need to be initialized + if ( vtab_r(nv,ngr)%impti == 1) then + + if ( vtab_r(nv,ngr)%idim_type == 2) then + allocate(lbc_buff(mtp2)) + CALL mklbcbuff (1,mxp,myp,1,mtp2,vtab_r(nv,ngr)%var_p & + ,lbc_buff,i1-i0,i2-i0,j1-j0,j2-j0) + CALL par_put_float (lbc_buff,mtp2) + elseif ( vtab_r(nv,ngr)%idim_type == 3) then + allocate(lbc_buff(mtp3)) + CALL mklbcbuff (mzp,mxp,myp,1,mtp3,vtab_r(nv,ngr)%var_p & + ,lbc_buff,i1-i0,i2-i0,j1-j0,j2-j0) + CALL par_put_float (lbc_buff,mtp3) + elseif ( vtab_r(nv,ngr)%idim_type == 4) then + allocate(lbc_buff(mtp4)) + CALL mklbcbuff (nzg,mxp,myp,npatch,mtp4,vtab_r(nv,ngr)%var_p & + ,lbc_buff,i1-i0,i2-i0,j1-j0,j2-j0) + CALL par_put_float (lbc_buff,mtp4) + elseif ( vtab_r(nv,ngr)%idim_type == 5) then + allocate(lbc_buff(mtp5)) + CALL mklbcbuff (nzs,mxp,myp,npatch,mtp5,vtab_r(nv,ngr)%var_p & + ,lbc_buff,i1-i0,i2-i0,j1-j0,j2-j0) + CALL par_put_float (lbc_buff,mtp5) + elseif ( vtab_r(nv,ngr)%idim_type == 6) then + allocate(lbc_buff(mtp6)) + CALL mklbcbuff (1,mxp,myp,npatch,mtp6,vtab_r(nv,ngr)%var_p & + ,lbc_buff,i1-i0,i2-i0,j1-j0,j2-j0) + CALL par_put_float (lbc_buff,mtp6) + elseif ( vtab_r(nv,ngr)%idim_type == 7) then + allocate(lbc_buff(mtp7)) + CALL mklbcbuff (mzp,mxp,myp,nkr,mtp7,vtab_r(nv,ngr)%var_p & + ,lbc_buff,i1-i0,i2-i0,j1-j0,j2-j0) + CALL par_put_float (lbc_buff,mtp7) + elseif ( vtab_r(nv,ngr)%idim_type == 10) then + allocate(lbc_buff(mtp10)) + CALL mklbcbuff (nkppz,mxp,myp,1,mtp10,vtab_r(nv,ngr)%var_p & + ,lbc_buff,i1-i0,i2-i0,j1-j0,j2-j0) + CALL par_put_float (lbc_buff,mtp10) + + endif + deallocate(lbc_buff) + + endif + enddo + case (LBC_ALL_SCALARS) + ! scalar vars (all scalars are 3D) + do nv = 1, num_scalar(ngr) + scalarp => scalar_tab(nv,ngr)%var_p + allocate(lbc_buff(mtp3)) + CALL mklbcbuff (mzp,mxp,myp,1,mtp3,scalarp & + ,lbc_buff,i1-i0,i2-i0,j1-j0,j2-j0) + CALL par_put_float (lbc_buff,mtp3) + deallocate(lbc_buff) + enddo + endselect + + CALL par_send_noblock (machnum(ipaths(5,itype,ngr,nm)) & + ,LBOUND_TAG_BASE+ngr,isend_req(nm)) + + endif + +enddo + +return +END SUBROUTINE node_sendlbc_vgroup + +!############################################################################ +! node_getlbc_vgroup() +! +! This routine along with node_getlbc_vgroup() handles the updating of internal +! (internodal) overlap regions. +! +Subroutine node_getlbc_vgroup (ngr,isflag) + +use mem_grid +use node_mod +use var_tables +use mem_basic +use mem_varinit +use micro_prm, only:nkr +use kpp_parameters, only:nkppz + +implicit none + +integer :: isflag,ngr +integer :: itype,nm,ibytes,msgid,ihostnum,i1,i2,j1,j2 & + ,nv,node_src,mtp2,mtp3,mtp4,mtp5,mtp6,mtp7,mtp10 +real, pointer :: scalarp +real, dimension(:), allocatable :: lbc_buff + +itype=1 + +!_____________________________________________________________________ +! +! First, let's make sure our sends are all finished and de-allocated + +do nm=1,nmachs + if(ipaths(5,itype,ngr,nm).ne.not_a_node) then + CALL par_wait (isend_req(nm),ibytes,msgid,ihostnum) + endif +enddo +!_____________________________________________________________________ +! +! Now, let's wait on our receives + +do nm=1,nmachs + if (iget_paths(itype,ngr,nm).ne.not_a_node) then + CALL par_wait (irecv_req(nm),ibytes,msgid,ihostnum) + endif +enddo +!_____________________________________________________________________ +! +! We got all our stuff. Now unpack it into appropriate space. + +do nm=1,nmachs + + if (iget_paths(itype,ngr,nm).ne.not_a_node) then + + + CALL par_assoc_buff (node_buffs(nm)%lbc_recv_buff(1) & + ,node_buffs(nm)%nrecv) + + + CALL par_get_int (i1,1) + CALL par_get_int (i2,1) + CALL par_get_int (j1,1) + CALL par_get_int (j2,1) + CALL par_get_int (node_src,1) + + mtp2 = (i2-i1+1)*(j2-j1+1) + mtp3 = nnzp(ngr) * mtp2 + mtp4 = nzg * mtp2 * npatch + mtp5 = nzs * mtp2 * npatch + mtp6 = mtp2 * npatch + mtp7 = nkr * mtp3 + mtp10 = nkppz * mtp2 + + select case (isflag) + case (LBC_ALL_VARS) + do nv = 1,num_var(ngr) + if ( vtab_r(nv,ngr)%impt1 == 1) then + if ( vtab_r(nv,ngr)%idim_type == 2) then + allocate(lbc_buff(mtp2)) + CALL par_get_float (lbc_buff,mtp2) + CALL exlbcbuff (1,mxp,myp,1,mtp2,vtab_r(nv,ngr)%var_p & + ,lbc_buff,i1-i0,i2-i0,j1-j0,j2-j0) + elseif ( vtab_r(nv,ngr)%idim_type == 3) then + allocate(lbc_buff(mtp3)) + CALL par_get_float (lbc_buff,mtp3) + CALL exlbcbuff (mzp,mxp,myp,1,mtp3,vtab_r(nv,ngr)%var_p & + ,lbc_buff,i1-i0,i2-i0,j1-j0,j2-j0) + elseif ( vtab_r(nv,ngr)%idim_type == 7) then + allocate(lbc_buff(mtp7)) + CALL par_get_float (lbc_buff,mtp7) + CALL exlbcbuff (mzp,mxp,myp,nkr,mtp7,vtab_r(nv,ngr)%var_p & + ,lbc_buff,i1-i0,i2-i0,j1-j0,j2-j0) + endif + deallocate(lbc_buff) + endif + enddo + case (LBC_ALL_INIT_VARS) + do nv = 1,num_var(ngr) + if ( vtab_r(nv,ngr)%impti == 1) then + + if ( vtab_r(nv,ngr)%idim_type == 2) then + allocate(lbc_buff(mtp2)) + CALL par_get_float (lbc_buff,mtp2) + CALL exlbcbuff (1,mxp,myp,1,mtp2,vtab_r(nv,ngr)%var_p & + ,lbc_buff,i1-i0,i2-i0,j1-j0,j2-j0) + elseif ( vtab_r(nv,ngr)%idim_type == 3) then + allocate(lbc_buff(mtp3)) + CALL par_get_float (lbc_buff,mtp3) + CALL exlbcbuff (mzp,mxp,myp,1,mtp3,vtab_r(nv,ngr)%var_p & + ,lbc_buff,i1-i0,i2-i0,j1-j0,j2-j0) + elseif ( vtab_r(nv,ngr)%idim_type == 4) then + allocate(lbc_buff(mtp4)) + CALL par_get_float (lbc_buff,mtp4) + CALL exlbcbuff (nzg,mxp,myp,npatch,mtp4,vtab_r(nv,ngr)%var_p & + ,lbc_buff,i1-i0,i2-i0,j1-j0,j2-j0) + elseif ( vtab_r(nv,ngr)%idim_type == 5) then + allocate(lbc_buff(mtp5)) + CALL par_get_float (lbc_buff,mtp5) + CALL exlbcbuff (nzs,mxp,myp,npatch,mtp5,vtab_r(nv,ngr)%var_p & + ,lbc_buff,i1-i0,i2-i0,j1-j0,j2-j0) + elseif ( vtab_r(nv,ngr)%idim_type == 6) then + allocate(lbc_buff(mtp6)) + CALL par_get_float (lbc_buff,mtp6) + CALL exlbcbuff (1,mxp,myp,npatch,mtp6,vtab_r(nv,ngr)%var_p & + ,lbc_buff,i1-i0,i2-i0,j1-j0,j2-j0) + elseif ( vtab_r(nv,ngr)%idim_type == 7) then + allocate(lbc_buff(mtp7)) + CALL par_get_float (lbc_buff,mtp7) + CALL exlbcbuff (mzp,mxp,myp,nkr,mtp7,vtab_r(nv,ngr)%var_p & + ,lbc_buff,i1-i0,i2-i0,j1-j0,j2-j0) + elseif ( vtab_r(nv,ngr)%idim_type == 10) then + allocate(lbc_buff(mtp10)) + CALL par_get_float (lbc_buff,mtp10) + CALL exlbcbuff (nkppz,mxp,myp,1,mtp10,vtab_r(nv,ngr)%var_p & + ,lbc_buff,i1-i0,i2-i0,j1-j0,j2-j0) + endif + deallocate(lbc_buff) + + endif + enddo + case (LBC_ALL_SCALARS) + ! scalar vars (all scalars are 3D) + do nv = 1, num_scalar(ngr) + allocate(lbc_buff(mtp3)) + scalarp => scalar_tab(nv,ngr)%var_p + CALL par_get_float (lbc_buff,mtp3) + CALL exlbcbuff (mzp,mxp,myp,1,mtp3,scalarp & + ,lbc_buff,i1-i0,i2-i0,j1-j0,j2-j0) + deallocate(lbc_buff) + enddo + endselect + endif +enddo + +return +END SUBROUTINE node_getlbc_vgroup + +!############################################################################ +! update_lbc_var() +! +! node_sendlbc_var() and node_getlbc_var() always have to be called in pairs. +! This routine provides a convenient utility to do that. +! +Subroutine update_lbc_var (nz,nx,ny,ngr,var,dimtype) + implicit none + + integer :: nz, nx, ny, ngr, dimtype + real, dimension(nz,nx,ny) :: var + + CALL node_sendlbc_var (nz,nx,ny,ngr,var,dimtype) + CALL node_getlbc_var (nz,nx,ny,ngr,var,dimtype) + + return +END SUBROUTINE update_lbc_var + +!############################################################################ +! node_sendlbc_var() +! +! This routine along with node_getlbc_var() handles the updating of internal +! (internodal) overlap regions. These routines will handle a single variable. +! +Subroutine node_sendlbc_var (nz,nx,ny,ngr,var,dimtype) + +use node_mod +use var_tables +use mem_basic +use mem_varinit + +implicit none + +integer :: nz, nx, ny, ngr, dimtype +real, dimension(nz,nx,ny) :: var + +integer :: itype,nm,i1,i2,j1,j2,npts +real, dimension(:), allocatable :: lbc_buff + +itype=1 +!______________________ +! +! First, before we send anything, let's post the receives. Also, make sure +! any pending sends are complete. + +do nm=1,nmachs + if (iget_paths(itype,ngr,nm).ne.not_a_node) then + CALL par_get_noblock (node_buffs(nm)%lbc_recv_buff(1) & + ,node_buffs(nm)%nrecv ,LBOUND_TAG_BASE+ngr,machnum(nm),irecv_req(nm) ) + endif +enddo + + +!______________________ +! +! Now we can actually go on to sending the stuff + +do nm=1,nmachs + + if(ipaths(5,itype,ngr,nm).ne.not_a_node) then + + i1=ipaths(1,itype,ngr,nm) + i2=ipaths(2,itype,ngr,nm) + j1=ipaths(3,itype,ngr,nm) + j2=ipaths(4,itype,ngr,nm) + + CALL par_init_put (node_buffs(nm)%lbc_send_buff(1) & + ,node_buffs(nm)%nsend ) + CALL par_put_int (i1,1) + CALL par_put_int (i2,1) + CALL par_put_int (j1,1) + CALL par_put_int (j2,1) + CALL par_put_int (my_rams_num,1) + + select case (dimtype) + case (2) + npts = ((i2-i1)+1)*((j2-j1)+1) + case (3) + npts = nz*((i2-i1)+1)*((j2-j1)+1) + endselect + + allocate(lbc_buff(npts)) + CALL mklbcbuff (nz,nx,ny,1,npts,var,lbc_buff,i1-i0,i2-i0,j1-j0,j2-j0) + CALL par_put_float (lbc_buff,npts) + deallocate(lbc_buff) + + CALL par_send_noblock (machnum(ipaths(5,itype,ngr,nm)) & + ,LBOUND_TAG_BASE+ngr,isend_req(nm)) + + endif + +enddo + +return +END SUBROUTINE node_sendlbc_var + +!############################################################################ +! node_getlbc_var() +! +! This routine along with node_getlbc() handles the updating of internal +! (internodal) overlap regions. These routines handle a single variable. +! +Subroutine node_getlbc_var (nz,nx,ny,ngr,var,dimtype) + +use node_mod +use var_tables +use mem_basic +use mem_varinit + +implicit none + +integer :: nz, nx, ny, ngr, dimtype +real, dimension(nz,nx,ny) :: var + +integer :: itype,nm,ibytes,msgid,ihostnum,i1,i2,j1,j2,node_src,npts +real, dimension(:), allocatable :: lbc_buff + +itype=1 + +!_____________________________________________________________________ +! +! First, let's make sure our sends are all finished and de-allocated + +do nm=1,nmachs + if(ipaths(5,itype,ngr,nm).ne.not_a_node) then + CALL par_wait (isend_req(nm),ibytes,msgid,ihostnum) + endif +enddo +!_____________________________________________________________________ +! +! Now, let's wait on our receives + +do nm=1,nmachs + if (iget_paths(itype,ngr,nm).ne.not_a_node) then + CALL par_wait (irecv_req(nm),ibytes,msgid,ihostnum) + endif +enddo +!_____________________________________________________________________ +! +! We got all our stuff. Now unpack it into appropriate space. + +do nm=1,nmachs + + if (iget_paths(itype,ngr,nm).ne.not_a_node) then + + + CALL par_assoc_buff (node_buffs(nm)%lbc_recv_buff(1) & + ,node_buffs(nm)%nrecv) + + + CALL par_get_int (i1,1) + CALL par_get_int (i2,1) + CALL par_get_int (j1,1) + CALL par_get_int (j2,1) + CALL par_get_int (node_src,1) + + select case (dimtype) + case (2) + npts = ((i2-i1)+1)*((j2-j1)+1) + case (3) + npts = nz*((i2-i1)+1)*((j2-j1)+1) + endselect + + allocate(lbc_buff(npts)) + CALL par_get_float (lbc_buff,npts) + CALL exlbcbuff (nz,nx,ny,1,npts,var,lbc_buff,i1-i0,i2-i0,j1-j0,j2-j0) + deallocate(lbc_buff) + endif +enddo + +return +END SUBROUTINE node_getlbc_var + +!############################################################################## +Subroutine mklbcbuff (n1,n2,n3,n4,nb,a,b,il,ir,jb,jt) + +implicit none + +integer :: n1,n2,n3,n4,nb,il,ir,jb,jt +real :: a(n1,n2,n3,n4),b(nb) +integer :: i,j,k,l,ind + +ind=0 +do l=1,n4 + do j=jb,jt + do i=il,ir + do k=1,n1 + ind=ind+1 + b(ind)=a(k,i,j,l) + enddo + enddo + enddo +enddo + +return +END SUBROUTINE mklbcbuff + +!############################################################################## +Subroutine exlbcbuff (n1,n2,n3,n4,nb,a,b,il,ir,jb,jt) + +implicit none + +integer :: n1,n2,n3,n4,nb,il,ir,jb,jt +real :: a(n1,n2,n3,n4),b(nb) +integer :: i,j,k,l,ind + +ind=0 +do l=1,n4 + do j=jb,jt + do i=il,ir + do k=1,n1 + ind=ind+1 + a(k,i,j,l)=b(ind) + enddo + enddo + enddo +enddo + +return +END SUBROUTINE exlbcbuff diff --git a/src/6.2.16/mpi/mpass_nest.f90 b/src/6.2.16/mpi/mpass_nest.f90 new file mode 100644 index 0000000..b1f51f0 --- /dev/null +++ b/src/6.2.16/mpi/mpass_nest.f90 @@ -0,0 +1,337 @@ +!############################################################################## +! update_ctile() +! +! This routine will make a node_send_ctile(), node_get_ctile() pair call. +! +Subroutine update_ctile(nzc,nxc,nyc,varc,nzct,nxct,nyct,varc_tile,ic0,jc0,ifm,icm,dimtype) + implicit none + + integer :: nzc, nxc, nyc, nzct, nxct, nyct, ifm, icm, ic0, jc0, dimtype + real, dimension(nzc,nxc,nyc) :: varc + real, dimension(nzct,nxct,nyct) :: varc_tile + + CALL node_send_ctile(nzc,nxc,nyc,varc,ic0,jc0,ifm,icm,dimtype) + CALL node_get_ctile(nzct,nxct,nyct,varc_tile,ifm,dimtype) + + return +END SUBROUTINE update_ctile + +!############################################################################## +! node_send_ctile() +! +! This routine, along with node_get_ctile, will form a coarse grid tile, which will +! be used for interpolation to the fine grid, and exchange the tile pieces among +! nodes so that each fine grid subdomain will end up with their associated coarse +! grid tile. +! +! The argument 'dimtype' describes what the actual variable organization looks like, +! while varc is always treated as a 3D variable (nzc,nxc,nyc). The caller of node_send_ctile() +! and node_get_ctile() needs to send in nzc,nxc,nyc,ic0,jc0 according to below: +! +! actual argument settings +! dimtype organization nzc nxc nyc ic0 jc0 +! +! 1 var(nzc) nzc 1 1 0 0 +! 2 var(nxc,nyc) 1 nxc nyc ic0 jc0 +! 3 var(nzc,nxc,nyc) nzc nxc nyc ic0 jc0 +! +Subroutine node_send_ctile (nzc,nxc,nyc,var,ic0,jc0,ifm,icm,dimtype) + use node_mod + + implicit none + + integer :: nzc,nxc,nyc,ic0,jc0,ifm,icm,dimtype + real, dimension(nzc,nxc,nyc) :: var + + integer :: nm,i1,i2,j1,j2,k1,k2,ng,itype,npts,ctile_tag + real, allocatable :: buffnest(:) + + itype=5 + ctile_tag = CTILE_TAG_BASE + (icm * 1000) + (ifm * 100) + + !______________________ + ! + ! First, before we send anything, let's post the receives. + + do nm=1,nmachs + irecv_req(nm)=0 + if (iget_paths(itype,ifm,nm).ne.not_a_node) then + CALL par_get_noblock (node_buffs(nm)%lbc_recv_buff(1) & + ,node_buffs(nm)%nrecv ,ctile_tag,machnum(nm),irecv_req(nm) ) + endif + enddo + + ! Send coarse grid points necessary for fine grid boundary interpolation + ! to fine grid nodes. Note that even though coarse grid points are sent, + ! ipaths is referenced by the fine grid, since all nests only have one + ! parent, not vice versa. + + do nm=1,nmachs + + isend_req(nm)=0 + + if(ipaths(5,itype,ifm,nm).ne. not_a_node) then + + i1=ipaths(1,itype,ifm,nm) + i2=ipaths(2,itype,ifm,nm) + j1=ipaths(3,itype,ifm,nm) + j2=ipaths(4,itype,ifm,nm) + k1=1 + k2=nzc + + select case (dimtype) + case (1) + ! var(nzc,1,1) + ! force i1,i2,j1,j2 to 1 while creating the buffer + npts = (k2-k1+1) + allocate(buffnest(npts)) + CALL mknest_buff (var,buffnest,nzc,nxc,nyc,ic0,jc0,1,1,1,1,k1,k2) + case (2) + ! var(1,nxc,nyc) + ! force k1,k2 to 1 while creating the buffer + npts = (i2-i1+1)*(j2-j1+1) + allocate(buffnest(npts)) + CALL mknest_buff (var,buffnest,nzc,nxc,nyc,ic0,jc0,i1,i2,j1,j2,1,1) + case (3) + ! var(nzc,nxc,nyc) + npts = (k2-k1+1)*(i2-i1+1)*(j2-j1+1) + allocate(buffnest(npts)) + CALL mknest_buff (var,buffnest,nzc,nxc,nyc,ic0,jc0,i1,i2,j1,j2,k1,k2) + endselect + + ! Fill up MPI buffer and send + CALL par_init_put (node_buffs(nm)%lbc_send_buff(1) & + ,node_buffs(nm)%nsend ) + + CALL par_put_int (i1,1) + CALL par_put_int (i2,1) + CALL par_put_int (j1,1) + CALL par_put_int (j2,1) + CALL par_put_int (k1,1) + CALL par_put_int (k2,1) + CALL par_put_int (npts,1) + + CALL par_put_float (buffnest,npts) + + CALL par_send_noblock (machnum(ipaths(5,itype,ifm,nm)),ctile_tag,isend_req(nm)) + + deallocate(buffnest) + + endif + + enddo + + return + +END SUBROUTINE node_send_ctile + +!************************************************************************************* +! node_get_ctile() +! +! This routine, along with node_send_ctile, will form the coarse grid tiles to be +! used for interpolation to the fine grid. +! +Subroutine node_get_ctile (nzct, nxct, nyct, varc_tile, ifm, dimtype) + + use node_mod + + implicit none + + integer :: nzct, nxct, nyct, ifm, dimtype + real, dimension(nzct,nxct,nyct) :: varc_tile + + integer, dimension(maxmach) :: i1c,i2c,j1c,j2c,k1c,k2c,nodim,iptc + integer :: itype,nm,ibytes,msgid,ihostnum,iptr,nwords,nv,ict0,jct0 + real, allocatable :: buffnest(:) + integer :: nbuff_size + + itype=5 + + ! i[12]c, j[12]c, k[12]c contain dimensions for 3D vars, which will not + ! work for 2D and 1D vars. nodim is an array that holds '1's which can + ! be substituted for i[12]c, or j[12]c, or k[12] for non 3D vars. + do nm = 1, nmachs + nodim(nm) = 1 + enddo + + !_____________________________________________________________________ + ! + ! First, let's make sure our sends are all finished and de-allocated + + do nm=1,nmachs + if(ipaths(5,itype,ifm,nm).ne.not_a_node)then + CALL par_wait (isend_req(nm),ibytes,msgid,ihostnum) + endif + enddo + !_____________________________________________________________________ + ! + ! Now, let's wait on our receives + + do nm=1,nmachs + if(iget_paths(itype,ifm,nm).ne.not_a_node)then + CALL par_wait (irecv_req(nm),ibytes,msgid,ihostnum) + endif + enddo + !_____________________________________________________________________ + ! + + ! Compute size of buffer needed and allocate if necessary + ! Data from all incoming nodes will be placed into buffnest so the + ! size of buffnest must be the sum of all the buffer sizes from the + ! incoming nodes. + + nbuff_size = 0 + do nm = 1, nmachs + if(iget_paths(itype,ifm,nm).ne.not_a_node)then + nbuff_size = nbuff_size + node_buffs(nm)%nrecv + endif + enddo + + allocate (buffnest(nbuff_size)) + + ! From the fine grid nodes, get the coarse grid buffers, + ! interpolate the boundaries, and put them in the "b" array. + + iptr = 0 + ict0 = -1 + jct0 = -1 + do nm=1,nmachs + + if(iget_paths(itype,ifm,nm).ne.not_a_node) then + + CALL par_assoc_buff (node_buffs(nm)%lbc_recv_buff(1) & + ,node_buffs(nm)%nrecv) + + CALL par_get_int (i1c(nm),1) + CALL par_get_int (i2c(nm),1) + CALL par_get_int (j1c(nm),1) + CALL par_get_int (j2c(nm),1) + CALL par_get_int (k1c(nm),1) + CALL par_get_int (k2c(nm),1) + CALL par_get_int (nwords,1) + + CALL par_get_float (buffnest(1+iptr),nwords) + iptc(nm)=1+iptr + + iptr=iptr+nwords + + if ((ict0 .eq. -1) .or. (i1c(nm) .lt. ict0)) then + ict0 = i1c(nm) + endif + if ((jct0 .eq. -1) .or. (j1c(nm) .lt. jct0)) then + jct0 = j1c(nm) + endif + endif + enddo + ict0 = ict0 - 1 + jct0 = jct0 - 1 + + ! At this point, buffnest contains the data for all of the tile pieces for + ! the variable (vnum) from all of the nodes affecting this node. The data are + ! organized sequentially in buffnest as follows: + ! + ! := ... + ! + ! where consiststs of coarse tile pieces for the variable from + ! one of the nodes that affects this node. + ! + ! Note that different node blocks can be different lengths. + ! + ! iptc(nm) points to the beginning of the data from node nm in buffnest + ! + + select case (dimtype) + case(1) + CALL extract_var_from_buff (nzct,nxct,nyct,varc_tile,nbuff_size,buffnest,iptc, & + nmachs,nodim,nodim,nodim,nodim,k1c,k2c,0,0,ifm,itype) + case(2) + CALL extract_var_from_buff (nzct,nxct,nyct,varc_tile,nbuff_size,buffnest,iptc, & + nmachs,i1c,i2c,j1c,j2c,nodim,nodim,ict0,jct0,ifm,itype) + case(3) + CALL extract_var_from_buff (nzct,nxct,nyct,varc_tile,nbuff_size,buffnest,iptc, & + nmachs,i1c,i2c,j1c,j2c,k1c,k2c,ict0,jct0,ifm,itype) + endselect + + deallocate(buffnest) + + return + +END SUBROUTINE node_get_ctile + +!************************************************************************************* +Subroutine mknest_buff (ac,acs,m1,m2,m3,i0,j0,i1,i2,j1,j2,k1,k2) + +implicit none + +integer :: m1,m2,m3,i0,j0,i1,i2,j1,j2,k1,k2 +real :: ac(m1,m2,m3),acs(0:k2-k1,0:i2-i1,0:j2-j1) +integer :: i,j,k + +do j=j1,j2 + do i=i1,i2 + do k=k1,k2 + acs(k-k1,i-i1,j-j1)=ac(k,i-i0,j-j0) + enddo + enddo +enddo + +return +END SUBROUTINE mknest_buff + +!************************************************************************************* +! extract_var_from_buffnest() +! +! This routine will piece together the tiles for a single variable by collecting +! and assimilating the corresponding var blocks from each node block. +! +Subroutine extract_var_from_buff (nzc,nxc,nyc,ctile,nbuff,buffnest,iptc, & + nmachs,i1c,i2c,j1c,j2c,k1c,k2c,ict0,jct0,ifm,itype) + + use node_mod, only:IGET_PATHS,NOT_A_NODE + + implicit none + + integer :: nzc, nxc, nyc, nbuff, nmachs, ict0, jct0, ifm, itype + real, dimension(nzc,nxc,nyc) :: ctile + real, dimension(nbuff) :: buffnest + integer, dimension(nmachs) :: iptc, i1c, i2c, j1c, j2c, k1c, k2c + + integer :: nm, numx, numy, numz, mtp + + do nm=1,nmachs + if(iget_paths(itype,ifm,nm).ne.not_a_node) then + numz=k2c(nm)-k1c(nm)+1 + numx=i2c(nm)-i1c(nm)+1 + numy=j2c(nm)-j1c(nm)+1 + mtp=numz*numx*numy + + ! Copy the var block data into the place where they fit within the ctile + CALL unmkbuff (ctile,buffnest(iptc(nm)),nzc,nxc,nyc,numz,numx,numy, & + i1c(nm)-ict0,i2c(nm)-ict0,j1c(nm)-jct0,j2c(nm)-jct0,k1c(nm),k2c(nm)) + + endif + enddo + + return +END SUBROUTINE extract_var_from_buff + +!############################################################################## +Subroutine unmkbuff (ac,buff,max1,max2,max3,m1,m2,m3,i1,i2,j1,j2,k1,k2) + +implicit none + +integer :: max1,max2,max3,m1,m2,m3,i1,i2,j1,j2,k1,k2 +real :: ac(max1,max2,max3),buff(0:m1-1,0:m2-1,0:m3-1) +integer :: i,j,k + +do j=j1,j2 + do i=i1,i2 + do k=k1,k2 + ac(k,i,j)=buff(k-k1,i-i1,j-j1) + enddo + enddo +enddo + +return +END SUBROUTINE unmkbuff + diff --git a/src/6.2.16/mpi/mpass_oda.f90 b/src/6.2.16/mpi/mpass_oda.f90 new file mode 100644 index 0000000..4abe87d --- /dev/null +++ b/src/6.2.16/mpi/mpass_oda.f90 @@ -0,0 +1,264 @@ +!############################################################################## +Subroutine masterput_oda () + +use grid_dims +use mem_oda +use node_mod + +implicit none + +! +------------------------------------------------------------------ +! ! This routine gives obs data to the nodes for ODA. All obs are sent +! ! to all nodes. +! +------------------------------------------------------------------ + +real, allocatable :: buff(:) +integer :: nwords, nm, ns + +nwords = 12 + 7 * maxodagrids + 6 +allocate (buff(nwords)) + +CALL par_init_put (buff,nwords) + +! Namelist info +CALL par_put_float (wt_oda_grid,maxodagrids) +CALL par_put_float (frqoda,1) +CALL par_put_float (todabeg,1) +CALL par_put_float (todaend,1) +CALL par_put_float (tnudoda,1) +CALL par_put_float (wt_oda_uv,1) +CALL par_put_float (wt_oda_th,1) +CALL par_put_float (wt_oda_pi,1) +CALL par_put_float (wt_oda_rt,1) +CALL par_put_float (oda_sfc_til,1) +CALL par_put_float (oda_sfc_tel,1) +CALL par_put_float (oda_upa_til,1) +CALL par_put_float (oda_upa_tel,1) +CALL par_put_float (roda_sfce,maxodagrids) +CALL par_put_float (roda_sfc0,maxodagrids) +CALL par_put_float (roda_upae,maxodagrids) +CALL par_put_float (roda_upa0,maxodagrids) +CALL par_put_float (roda_zfac,maxodagrids) +CALL par_put_float (roda_hgt,maxodagrids) + +! Sizes for arrays +CALL par_put_int (num_oda_sfc,1) +CALL par_put_int (nsfcfiles,1) +CALL par_put_int (maxtimes_sfc,1) +CALL par_put_int (num_oda_upa,1) +CALL par_put_int (nupafiles,1) +CALL par_put_int (maxtimes_upa,1) + + +do nm=1,nmachs + CALL par_send (machnum(nm),ODA_TAG_BASE+1) +enddo + +deallocate (buff) + +! Surface obs + +nwords= num_oda_sfc*( 10 + 3*maxodagrids + 8*maxtimes_sfc) +allocate (buff(nwords)) + +CALL par_init_put (buff,nwords) + + +do ns=1,num_oda_sfc + CALL par_put_char (oda_sfc_info(ns)%id,8) + CALL par_put_int (oda_sfc_info(ns)%intid,1) + CALL par_put_int (oda_sfc_info(ns)%ntimes,1) + CALL par_put_int (oda_sfc_info(ns)%iactive(1),maxodagrids) + CALL par_put_float (oda_sfc_info(ns)%xista(1),maxodagrids) + CALL par_put_float (oda_sfc_info(ns)%xjsta(1),maxodagrids) + CALL par_put_float (oda_sfc_info(ns)%xlat,1) + CALL par_put_float (oda_sfc_info(ns)%xlon,1) + CALL par_put_float (oda_sfc_info(ns)%xsta,1) + CALL par_put_float (oda_sfc_info(ns)%ysta,1) + CALL par_put_float (oda_sfc_info(ns)%stopo,1) + + CALL par_put_float (oda_sfc_obs(ns)%time(1) ,maxtimes_sfc) + CALL par_put_float (oda_sfc_obs(ns)%temp(1) ,maxtimes_sfc) + CALL par_put_float (oda_sfc_obs(ns)%dewpt(1),maxtimes_sfc) + CALL par_put_float (oda_sfc_obs(ns)%us(1) ,maxtimes_sfc) + CALL par_put_float (oda_sfc_obs(ns)%vs(1) ,maxtimes_sfc) + CALL par_put_float (oda_sfc_obs(ns)%u (1) ,maxtimes_sfc) + CALL par_put_float (oda_sfc_obs(ns)%v (1) ,maxtimes_sfc) + CALL par_put_float (oda_sfc_obs(ns)%ps(1) ,maxtimes_sfc) + CALL par_put_float (oda_sfc_obs(ns)%psref ,1) +enddo + +do nm=1,nmachs + CALL par_send (machnum(nm),ODA_TAG_BASE+2) +enddo + +deallocate (buff) + +! Upper air obs + +nwords= num_oda_upa*( 9 + 3*maxodagrids + 3*maxtimes_upa & + + 9*maxupalevs*maxtimes_upa) +allocate (buff(nwords)) + +CALL par_init_put (buff,nwords) + + +do ns=1,num_oda_upa + CALL par_put_char (oda_upa_info(ns)%id,8) + CALL par_put_int (oda_upa_info(ns)%intid,1) + CALL par_put_int (oda_upa_info(ns)%ntimes,1) + CALL par_put_int (oda_upa_info(ns)%iactive(1),maxodagrids) + CALL par_put_float (oda_upa_info(ns)%xista(1),maxodagrids) + CALL par_put_float (oda_upa_info(ns)%xjsta(1),maxodagrids) + CALL par_put_float (oda_upa_info(ns)%xlat,1) + CALL par_put_float (oda_upa_info(ns)%xlon,1) + CALL par_put_float (oda_upa_info(ns)%xsta,1) + CALL par_put_float (oda_upa_info(ns)%ysta,1) + CALL par_put_float (oda_upa_info(ns)%stopo,1) + + CALL par_put_float (oda_upa_obs(ns)%time(1),maxtimes_upa) + CALL par_put_float (oda_upa_obs(ns)%lp (1),maxtimes_upa) + CALL par_put_float (oda_upa_obs(ns)%lz (1),maxtimes_upa) + CALL par_put_float (oda_upa_obs(ns)%theta(1,1),maxupalevs*maxtimes_upa) + CALL par_put_float (oda_upa_obs(ns)%rv (1,1),maxupalevs*maxtimes_upa) + CALL par_put_float (oda_upa_obs(ns)%us (1,1),maxupalevs*maxtimes_upa) + CALL par_put_float (oda_upa_obs(ns)%vs (1,1),maxupalevs*maxtimes_upa) + CALL par_put_float (oda_upa_obs(ns)%zz (1,1),maxupalevs*maxtimes_upa) + CALL par_put_float (oda_upa_obs(ns)%u (1,1),maxupalevs*maxtimes_upa) + CALL par_put_float (oda_upa_obs(ns)%v (1,1),maxupalevs*maxtimes_upa) + CALL par_put_float (oda_upa_obs(ns)%pi (1,1),maxupalevs*maxtimes_upa) + CALL par_put_float (oda_upa_obs(ns)%zgeo (1,1),maxupalevs*maxtimes_upa) +enddo + +do nm=1,nmachs + CALL par_send (machnum(nm),ODA_TAG_BASE+3) +enddo + +deallocate (buff) + +return +END SUBROUTINE masterput_oda + +!############################################################################## +Subroutine nodeget_oda () + +use node_mod +use mem_oda + +implicit none + +real, allocatable :: buff(:) +integer :: nwords,ibytes,msgtype,ihostnum, ns + +nwords = 12 + 7 * maxodagrids + 6 +allocate (buff(nwords)) + +CALL par_get_new (buff,nwords,ODA_TAG_BASE+1,ibytes,msgtype,ihostnum) + +! Namelist info +CALL par_get_float (wt_oda_grid,maxodagrids) +CALL par_get_float (frqoda,1) +CALL par_get_float (todabeg,1) +CALL par_get_float (todaend,1) +CALL par_get_float (tnudoda,1) +CALL par_get_float (wt_oda_uv,1) +CALL par_get_float (wt_oda_th,1) +CALL par_get_float (wt_oda_pi,1) +CALL par_get_float (wt_oda_rt,1) +CALL par_get_float (oda_sfc_til,1) +CALL par_get_float (oda_sfc_tel,1) +CALL par_get_float (oda_upa_til,1) +CALL par_get_float (oda_upa_tel,1) +CALL par_get_float (roda_sfce,maxodagrids) +CALL par_get_float (roda_sfc0,maxodagrids) +CALL par_get_float (roda_upae,maxodagrids) +CALL par_get_float (roda_upa0,maxodagrids) +CALL par_get_float (roda_zfac,maxodagrids) +CALL par_get_float (roda_hgt,maxodagrids) + +! Sizes for arrays +CALL par_get_int (num_oda_sfc,1) +CALL par_get_int (nsfcfiles,1) +CALL par_get_int (maxtimes_sfc,1) +CALL par_get_int (num_oda_upa,1) +CALL par_get_int (nupafiles,1) +CALL par_get_int (maxtimes_upa,1) + +deallocate (buff) + +! Allocate main obs arrays + +CALL oda_obs_alloc () + +! Surface obs + +nwords= num_oda_sfc*( 10 + 3*maxodagrids + 8*maxtimes_sfc) +allocate (buff(nwords)) + +CALL par_get_new (buff,nwords,ODA_TAG_BASE+2,ibytes,msgtype,ihostnum) + +do ns=1,num_oda_sfc + CALL par_get_char (oda_sfc_info(ns)%id,8) + CALL par_get_int (oda_sfc_info(ns)%intid,1) + CALL par_get_int (oda_sfc_info(ns)%ntimes,1) + CALL par_get_int (oda_sfc_info(ns)%iactive(1),maxodagrids) + CALL par_get_float (oda_sfc_info(ns)%xista(1),maxodagrids) + CALL par_get_float (oda_sfc_info(ns)%xjsta(1),maxodagrids) + CALL par_get_float (oda_sfc_info(ns)%xlat,1) + CALL par_get_float (oda_sfc_info(ns)%xlon,1) + CALL par_get_float (oda_sfc_info(ns)%xsta,1) + CALL par_get_float (oda_sfc_info(ns)%ysta,1) + CALL par_get_float (oda_sfc_info(ns)%stopo,1) + + CALL par_get_float (oda_sfc_obs(ns)%time(1) ,maxtimes_sfc) + CALL par_get_float (oda_sfc_obs(ns)%temp(1) ,maxtimes_sfc) + CALL par_get_float (oda_sfc_obs(ns)%dewpt(1),maxtimes_sfc) + CALL par_get_float (oda_sfc_obs(ns)%us(1) ,maxtimes_sfc) + CALL par_get_float (oda_sfc_obs(ns)%vs(1) ,maxtimes_sfc) + CALL par_get_float (oda_sfc_obs(ns)%u (1) ,maxtimes_sfc) + CALL par_get_float (oda_sfc_obs(ns)%v (1) ,maxtimes_sfc) + CALL par_get_float (oda_sfc_obs(ns)%ps(1) ,maxtimes_sfc) + CALL par_get_float (oda_sfc_obs(ns)%psref ,1) +enddo + +deallocate (buff) + +! Upper air obs + +nwords= num_oda_upa*( 9 + 3*maxodagrids + 3*maxtimes_upa & + + 9*maxupalevs*maxtimes_upa) +allocate (buff(nwords)) + +CALL par_get_new (buff,nwords,ODA_TAG_BASE+3,ibytes,msgtype,ihostnum) + +do ns=1,num_oda_upa + CALL par_get_char (oda_upa_info(ns)%id,8) + CALL par_get_int (oda_upa_info(ns)%intid,1) + CALL par_get_int (oda_upa_info(ns)%ntimes,1) + CALL par_get_int (oda_upa_info(ns)%iactive(1),maxodagrids) + CALL par_get_float (oda_upa_info(ns)%xista(1),maxodagrids) + CALL par_get_float (oda_upa_info(ns)%xjsta(1),maxodagrids) + CALL par_get_float (oda_upa_info(ns)%xlat,1) + CALL par_get_float (oda_upa_info(ns)%xlon,1) + CALL par_get_float (oda_upa_info(ns)%xsta,1) + CALL par_get_float (oda_upa_info(ns)%ysta,1) + CALL par_get_float (oda_upa_info(ns)%stopo,1) + + CALL par_get_float (oda_upa_obs(ns)%time(1),maxtimes_upa) + CALL par_get_float (oda_upa_obs(ns)%lp (1),maxtimes_upa) + CALL par_get_float (oda_upa_obs(ns)%lz (1),maxtimes_upa) + CALL par_get_float (oda_upa_obs(ns)%theta(1,1),maxupalevs*maxtimes_upa) + CALL par_get_float (oda_upa_obs(ns)%rv (1,1),maxupalevs*maxtimes_upa) + CALL par_get_float (oda_upa_obs(ns)%us (1,1),maxupalevs*maxtimes_upa) + CALL par_get_float (oda_upa_obs(ns)%vs (1,1),maxupalevs*maxtimes_upa) + CALL par_get_float (oda_upa_obs(ns)%zz (1,1),maxupalevs*maxtimes_upa) + CALL par_get_float (oda_upa_obs(ns)%u (1,1),maxupalevs*maxtimes_upa) + CALL par_get_float (oda_upa_obs(ns)%v (1,1),maxupalevs*maxtimes_upa) + CALL par_get_float (oda_upa_obs(ns)%pi (1,1),maxupalevs*maxtimes_upa) + CALL par_get_float (oda_upa_obs(ns)%zgeo (1,1),maxupalevs*maxtimes_upa) +enddo + +deallocate (buff) + +return +END SUBROUTINE nodeget_oda diff --git a/src/6.2.16/mpi/node_mod.f90 b/src/6.2.16/mpi/node_mod.f90 new file mode 100644 index 0000000..fcae3ff --- /dev/null +++ b/src/6.2.16/mpi/node_mod.f90 @@ -0,0 +1,118 @@ +!############################################################################## +Module node_mod + +use grid_dims + +implicit none + +!--------------------------------------------------------------------------- +! For the blocking and non-blocking MPI send/receive pairings, tags are used +! to help uniquely identify all of the different messages. At this point, +! the following routines use MPI send/receives and thus need tags. +! +! File Routine +! +! mpass_oda.f90 masterput_oda() +! nodeget_oda() +! +! mpass_nest.f90 node_send_ctile() +! +! mpass_lbc.f90 node_sendlbc() +! +! mpass_cyclic.f90 node_sendcyclic() +! +! +! The actual tags are generated by adding things like grid numbers or +! variable numbers to the tag base. This doesn't guarantee that they +! remain unique, but if the bases are chosen sufficiently far apart, +! then the tags will remain unique. +! +integer, parameter :: ODA_TAG_BASE = 10000 + +integer, parameter :: CTILE_TAG_BASE = 20000 + +integer, parameter :: LBOUND_TAG_BASE = 30000 + +integer, parameter :: CYCLIC_TAG_BASE = 40000 + + +! Arbitrarily set this to 20. This is used for setting buffer sizes in +! para_init.f90 and rnode.f90. +integer, parameter :: NUM_NEST_VARS = 20 + +!--------------------------------------------------------------------------- +! The following parameters are coding for the LBC (lateral boundary) update +! routines node_sendlbc_vgroup() and node_getlbc_vgroup(). These are also used by +! update_cyclic(). +integer, parameter :: LBC_ALL_VARS = 0 +integer, parameter :: LBC_ALL_INIT_VARS = 1 +integer, parameter :: LBC_ALL_SCALARS = 2 +integer, parameter :: LBC_UP = 3 +integer, parameter :: LBC_VP = 4 +integer, parameter :: LBC_PP = 5 +integer, parameter :: LBC_WP = 6 + +!--------------------------------------------------------------------------- +! The following parameters are used by interp_fine_grid() routine, "IFG", to +! signal which subsystem is calling interp_fine_grid() and thus which set +! of variables to initialize. +integer, parameter :: IFG_HH_INIT = 1 ! horizontal homogeneous init +integer, parameter :: IFG_VF_INIT = 2 ! var file init +integer, parameter :: IFG_HIST_INIT = 3 ! history init +integer, parameter :: IFG_MKVF_INIT = 4 ! init during MAKEVFILE +integer, parameter :: IFG_MKHF_INIT = 5 ! init during MAKEHFILE +integer, parameter :: IFG_TOPT1_INIT = 6 ! init during MAKESFC (topography) +integer, parameter :: IFG_TOPT2_INIT = 7 ! init during MAKESFC (topography) +integer, parameter :: IFG_SST_INIT = 8 ! init during MAKESFC (sea surface temp) + +!--------------------------------------------------------------------------- +integer :: mainnum,nmachs,my_mpi_num,not_a_node,my_rams_num,my_scm_num +integer, dimension(maxmach) :: machnum +integer, dimension(maxmach,maxgrds) :: ixb,ixe,iyb,iye +integer, dimension(maxmach,maxgrds,4) :: nextnode +real, dimension(maxmach) :: hperf +real, dimension(maxmach,maxgrds) :: perf +!--------------------------------------------------------------------------- + +!--------------------------------------------------------------------------- +integer :: mxp,myp,mzp,ia,iz,ja,jz,i0,j0,ibcon & + ,ia_1,ia_2,ia_3,ia1,ia2,ia3,ja_1,ja_2,ja_3,ja1,ja2,ja3 & + ,iz_1,iz_2,iz_3,iz1,iz2,iz3,jz_1,jz_2,jz_3,jz1,jz2,jz3 & + ,izu,jzv,mxyzp,mxysp,mxyp +!--------------------------------------------------------------------------- +! ct* vars are for "coarse tiles" in the parallel nesting scheme +integer, dimension(maxgrds) :: mmxp,mmyp,mmzp,mmxyzp,mmxysp,mmxyp,mmxyzbp & + ,mmxyzkp,mia,miz,mja,mjz,mi0,mj0,mibcon,mxbeg,mxend,mybeg,myend & + ,fd_sw_num,fd_nw_num,fd_se_num,fd_ne_num & + ,ctxbeg,ctxend,ctybeg,ctyend,cti0,ctj0,ctnxp,ctnyp,ctnzp +!--------------------------------------------------------------------------- +integer, dimension(nxpmax,maxgrds) :: ctipm +integer, dimension(nypmax,maxgrds) :: ctjpm +integer, dimension(nzpmax,maxgrds) :: ctkpm +!--------------------------------------------------------------------------- +type io_descrip + integer :: xblock + integer :: yblock + integer :: xoff + integer :: yoff +end type io_descrip + +integer, dimension(maxgrds) :: file_xchunk, file_ychunk +type (io_descrip), dimension(maxgrds) :: mem_read,mem_write,file_read,file_write +!--------------------------------------------------------------------------- +integer, dimension(5,7,maxgrds,maxmach) :: ipaths +integer, dimension(6,maxgrds,maxmach) :: iget_paths +!--------------------------------------------------------------------------- +integer :: newbuff_feed,nbuff_feed +!--------------------------------------------------------------------------- +integer, dimension(maxmach) :: irecv_req,isend_req +!--------------------------------------------------------------------------- + +type lbc_buff_type + real, allocatable :: lbc_send_buff(:),lbc_recv_buff(:) + integer :: nsend,nrecv +end type + +type (lbc_buff_type) :: node_buffs(maxmach) + +END MODULE node_mod diff --git a/src/6.2.16/mpi/par_decomp.f90 b/src/6.2.16/mpi/par_decomp.f90 new file mode 100644 index 0000000..4f243ee --- /dev/null +++ b/src/6.2.16/mpi/par_decomp.f90 @@ -0,0 +1,624 @@ +!############################################################################## +Subroutine par_decomp_domain (nxp,nyp,nodes,ixb,ixe,iyb,iye) + +implicit none + +integer :: nxp,nyp,nodes +integer, dimension(nodes) :: ixb,ixe,iyb,iye + +real :: anodes,aslabs +integer :: nslabs,min_blocks,nbigslabs +integer, dimension(:), allocatable :: nblocks +integer :: islab, inode, iblock +integer, dimension(:), allocatable :: temp_ixb,temp_ixe,temp_iyb,temp_iye +real, dimension(:), allocatable :: weights + + ! This routine decomposes grid domains of size (nnxp,nnyp) into a number, + ! specified by nodes, of rectangular subdomains. The convention is followed + ! that any internal boundaries (between subdomains) that are parallel to + ! the x-axis run continuously across the full domain, while boundaries + ! parallel to the y-axis may or may not run the full distance across the + ! domain. For convenience, regions of the domain bounded by adjacent + ! east-west internal boundaries are termed "slabs", while smaller divisions + ! within each slab are termed "blocks". Each block is required to have + ! a minimum dimension of 6 by 6 grid cells. If this cannot be satisfied + ! with the given input parameters, the routine stops. + + ! Assume that all nodes run at the same speed, and that all columns in + ! the domain take the same number of compute cycles during simulation. This + ! boils the problem down to dividing the domain into regions that all have + ! the same number of columns (ie, the same horizontal area). + + ! Make an intial guess by attempting to chop up the domain into same + ! sized rectangle that tile into the domain. + anodes = float(nodes) + aslabs = sqrt(anodes * (float(nyp) / float(nxp))) + nslabs = min(nodes, max(1, nint(aslabs))) + + allocate(nblocks(nslabs), temp_iyb(nslabs), temp_iye(nslabs)) + + ! The above code won't typically find an exact solution so clean up by + ! placing leftover blocks, one each, into the bottom slabs. This will + ! keep the tile sizes close to the same (note that this works better + ! as the number of nodes goes up). + min_blocks = nodes / nslabs + nbigslabs = mod(nodes, nslabs) + do islab = 1, nslabs + if (islab .le. nbigslabs) then + nblocks(islab) = min_blocks + 1 + else + nblocks(islab) = min_blocks + endif + enddo + + ! In order to keep the balance between slabs where we want each block to be + ! the same area, we want to split the slabs where the ones with more blocks + ! are taller than the ones with fewer blocks. Do this by biasing the height + ! of each slab by the count of blocks within each slab divided by the total + ! number of nodes. + allocate(weights(nslabs)) + do islab = 1, nslabs + weights(islab) = float(nblocks(islab)) / float(nodes) + enddo + + ! First figure out the spacing of the slabs (along the y dimension). Every + ! sub-domain in a given slab will have the same iyb and iye values so just + ! compute them once and record them to be copied into the actual nodes that + ! get assigned to each slab. + CALL calc_ibeg_iend_values (nyp,nslabs,weights,temp_iyb,temp_iye) + deallocate(weights) + + ! Now walk through each slab and assign the x beginning and end values to + ! each block within a given slab. Start with node 1 in the "southwest" + ! corner, increment the node number as you go across (west to east) each + ! slab. Walk through the slabs from south to north. + ! + ! For each slab, we want to bias the width of the blocks by 1 divided by + ! the number of blocks in the slab. + inode = 0 + do islab = 1, nslabs + allocate(temp_ixb(nblocks(islab)),temp_ixe(nblocks(islab)) & + ,weights(nblocks(islab))) + + do iblock = 1, nblocks(islab) + weights(iblock) = 1.0 / float(nblocks(islab)) + enddo + + CALL calc_ibeg_iend_values (nxp,nblocks(islab),weights,temp_ixb,temp_ixe) + + do iblock = 1, nblocks(islab) + inode = inode + 1 + ixb(inode) = temp_ixb(iblock) + ixe(inode) = temp_ixe(iblock) + iyb(inode) = temp_iyb(islab) + iye(inode) = temp_iye(islab) + enddo + deallocate(temp_ixb,temp_ixe,weights) + enddo + + deallocate(nblocks,temp_iyb,temp_iye) + + ! Check to make sure that each subdomain has at least 2 interior + ! rows and columns. Don't do this check if there is only one node + ! in order to allow a single node run to do a 2D simulation. + if(nodes .gt. 1) then + do inode = 1,nodes + if(iye(inode)-iyb(inode) .lt. 1 .or. ixe(inode)-ixb(inode) .lt. 1) then + print*,'grid:',nxp,nyp,' subdomain too small on node ',inode + print*,'(ixb,ixe,iyb,iye) = ',ixb(inode),ixe(inode),iyb(inode),iye(inode) + stop 'small_nodes' + endif + enddo + endif + +return +END SUBROUTINE par_decomp_domain + +!############################################################################## +Subroutine calc_ibeg_iend_values (npts,nintervals,weights,ibeg,iend) + +implicit none + +integer :: npts, nintervals +integer, dimension(nintervals) :: ibeg, iend +real, dimension(nintervals) :: weights + +integer :: i +real, dimension(:), allocatable :: dist, ends + + ! The decomposition does not include the boundaries of the domain meaning + ! that the interval across the entire axis goes from 2 to npts-1. + ! + ! dist(1) = ((npts-1) - 2) * weights(1) = (npts-3) * weights(1) + ! dist(2) = (npts-3) * weights(2) + ! dist(3) = (npts-3) * weights(3) + ! ... + ! + ! Then the endpoint of each interval: + ! + ! end(1) = 2 + dist + ! end(2) = end(1) + dist + ! end(3) = end(2) + dist + ! ... + ! + ! and the beginning point of each interval: + ! + ! beg(1) = 2 + ! beg(2) = end(1) + 1 + ! beg(3) = end(2) + 1 + ! ... + ! + allocate(ends(nintervals), dist(nintervals)) + + do i = 1, nintervals + dist(i) = float(npts-3) * weights(i) + enddo + + ibeg(1) = 2 + ends(1) = 2.0 + dist(1) + iend(1) = nint(ends(1)) + do i = 2, nintervals + ends(i) = ends(i-1) + dist(i) + iend(i) = nint(ends(i)) + ibeg(i) = iend(i-1) + 1 + enddo + + ! Just to be safe, force the final end point to match npts-1 + iend(nintervals) = npts - 1 + + deallocate(ends) + + return +END SUBROUTINE calc_ibeg_iend_values + +!############################################################################## +Subroutine par_node_paths (maxgrds,ngrids,nxpmax,nypmax,nnxp,nnyp & + ,nxtnest,mynode,maxmach,nodes,ipm,jpm,ixb,ixe,iyb,iye,ipaths & + ,igetpaths,ibnd,jbnd,not_a_node) + +use cyclic_mod + +implicit none + +integer :: maxgrds,ngrids,nxpmax,nypmax,mynode,maxmach,nodes,not_a_node + +integer :: nnxp(maxgrds),nnyp(maxgrds),nxtnest(maxgrds) & + ,ipm(nxpmax,maxgrds),jpm(nypmax,maxgrds) & + ,ixb(maxmach,maxgrds),ixe(maxmach,maxgrds),iyb(maxmach,maxgrds) & + ,iye(maxmach,maxgrds),ipaths(5,7,maxgrds,maxmach) & + ,igetpaths(6,maxgrds,maxmach) + +integer :: ngr,isend_type,idn,isn,i,j,ibnd,jbnd,info,nnn & + ,id,jd,is,js,is_t(2),js_t(2),is_u(2),js_u(2),is_v(2),js_v(2) & + ,indt(2),indu(2),indv(2),nxp,nyp,avgflg_t(2),avgflg_u(2),avgflg_v(2) & + ,dir,i1d,i2d,j1d,j2d,i1s,i2s,j1s,j2s + +! if using cyclic boundary conditions, allocate ipaths_cyc array + +if (ibnd .eq. 2 .or. jbnd .eq. 2) then + CALL ipaths_cyc_alloc (nnxp(1),nnyp(1),ibnd,jbnd,maxmach) +endif + +! Put in zeros +! Set entries representing node numbers with "not_a_node" +do ngr=1,ngrids + do isend_type = 1,6 + do i = 1,nodes + igetpaths(isend_type,ngr,i) = not_a_node + do info = 1,4 + ipaths(info,isend_type,ngr,i) = 0 + enddo + ipaths(5,isend_type,ngr,i) = not_a_node + enddo + enddo +enddo + + +do ngr=1,ngrids + nnn = nxtnest(ngr) + + ! Fill in the ipaths array which represents this node (mynode) + ! acting as the source node + do idn = 1,nodes + if (idn .ne. mynode) then + ! if there is overlap between mynode and idn then record the path + if(ixb(idn,ngr)-1 .le. ixe(mynode,ngr) .and. & + iyb(idn,ngr)-1 .le. iye(mynode,ngr) .and. & + ixe(idn,ngr)+1 .ge. ixb(mynode,ngr) .and. & + iye(idn,ngr)+1 .ge. iyb(mynode,ngr)) then + + ipaths(1,1,ngr,idn)=max(ixb(mynode,ngr),ixb(idn,ngr)-1) + ipaths(2,1,ngr,idn)=min(ixe(mynode,ngr),ixe(idn,ngr)+1) + ipaths(3,1,ngr,idn)=max(iyb(mynode,ngr),iyb(idn,ngr)-1) + ipaths(4,1,ngr,idn)=min(iye(mynode,ngr),iye(idn,ngr)+1) + ipaths(5,1,ngr,idn)=idn + + ! Expand ipaths to include [coarse] grid extern boundary points. + + if (ipaths(1,1,ngr,idn) .eq. 2) & + ipaths(1,1,ngr,idn) = 1 + if (ipaths(2,1,ngr,idn) .eq. nnxp(ngr)-1) & + ipaths(2,1,ngr,idn) = nnxp(ngr) + if (ipaths(3,1,ngr,idn) .eq. 2) & + ipaths(3,1,ngr,idn) = 1 + if (ipaths(4,1,ngr,idn) .eq. nnyp(ngr)-1) & + ipaths(4,1,ngr,idn) = nnyp(ngr) + + ! Small timestep overlap regions for u + + if (ixb(idn,ngr)-1 .eq. ixe(mynode,ngr) .and. & + iye(idn,ngr) .ge. iyb(mynode,ngr) .and. & + iyb(idn,ngr) .le. iye(mynode,ngr)) then + + ipaths(1,2,ngr,idn)=ixe(mynode,ngr) + ipaths(2,2,ngr,idn)=ixe(mynode,ngr) + ipaths(3,2,ngr,idn)=max(iyb(mynode,ngr),iyb(idn,ngr)) + ipaths(4,2,ngr,idn)=min(iye(mynode,ngr),iye(idn,ngr)) + ipaths(5,2,ngr,idn)=idn + endif + + ! Small timestep overlap regions for v + + if (iyb(idn,ngr)-1 .eq. iye(mynode,ngr) .and. & + ixe(idn,ngr) .ge. ixb(mynode,ngr) .and. & + ixb(idn,ngr) .le. ixe(mynode,ngr)) then + + ipaths(1,3,ngr,idn)=max(ixb(mynode,ngr),ixb(idn,ngr)) + ipaths(2,3,ngr,idn)=min(ixe(mynode,ngr),ixe(idn,ngr)) + ipaths(3,3,ngr,idn)=iye(mynode,ngr) + ipaths(4,3,ngr,idn)=iye(mynode,ngr) + ipaths(5,3,ngr,idn)=idn + endif + + ! Small timestep overlap regions for pi' + + if (ixe(idn,ngr)+1 .eq. ixb(mynode,ngr) .and. & + iye(idn,ngr) .ge. iyb(mynode,ngr) .and. & + iyb(idn,ngr) .le. iye(mynode,ngr)) then + + ipaths(1,4,ngr,idn)=ixb(mynode,ngr) + ipaths(2,4,ngr,idn)=ixb(mynode,ngr) + ipaths(3,4,ngr,idn)=max(iyb(mynode,ngr),iyb(idn,ngr)) + ipaths(4,4,ngr,idn)=min(iye(mynode,ngr),iye(idn,ngr)) + ipaths(5,4,ngr,idn)=idn + + elseif (iye(idn,ngr)+1 .eq. iyb(mynode,ngr) .and. & + ixe(idn,ngr) .ge. ixb(mynode,ngr) .and. & + ixb(idn,ngr) .le. ixe(mynode,ngr)) then + + ipaths(1,4,ngr,idn)=max(ixb(mynode,ngr),ixb(idn,ngr)) + ipaths(2,4,ngr,idn)=min(ixe(mynode,ngr),ixe(idn,ngr)) + ipaths(3,4,ngr,idn)=iyb(mynode,ngr) + ipaths(4,4,ngr,idn)=iyb(mynode,ngr) + ipaths(5,4,ngr,idn)=idn + endif + endif + endif + + ! If this is a grid that belongs to a parent grid, then + ! record paths for doing the nesting interpolation and feedback. + if (nnn .gt. 0) then + + ! Coarse grid to fine grid interpolation communication + + if(ipm(ixb(idn,ngr)-1,ngr)-2 .le. ixe(mynode,nnn).and. & + jpm(iyb(idn,ngr)-1,ngr)-2 .le. iye(mynode,nnn).and. & + ipm(ixe(idn,ngr)+1,ngr)+1 .ge. ixb(mynode,nnn).and. & + jpm(iye(idn,ngr)+1,ngr)+1 .ge. iyb(mynode,nnn)) then + + ipaths(1,5,ngr,idn) = max(ixb(mynode,nnn), ipm(ixb(idn,ngr)-1,ngr)-2) + ipaths(2,5,ngr,idn) = min(ixe(mynode,nnn), ipm(ixe(idn,ngr)+1,ngr)+1) + ipaths(3,5,ngr,idn) = max(iyb(mynode,nnn), jpm(iyb(idn,ngr)-1,ngr)-2) + ipaths(4,5,ngr,idn) = min(iye(mynode,nnn), jpm(iye(idn,ngr)+1,ngr)+1) + ipaths(5,5,ngr,idn) = idn + endif + + ! Fine grid to coarse grid averaging communication + + if(ixb(idn,nnn)-1 .le. ipm(ixe(mynode,ngr),ngr).and. & + iyb(idn,nnn)-1 .le. jpm(iye(mynode,ngr),ngr).and. & + ixe(idn,nnn)+1 .ge. ipm(ixb(mynode,ngr),ngr).and. & + iye(idn,nnn)+1 .ge. jpm(iyb(mynode,ngr),ngr)) then + + ipaths(1,6,ngr,idn) = max(ipm(ixb(mynode,ngr),ngr), ixb(idn,nnn)-1) + ipaths(2,6,ngr,idn) = min(ipm(ixe(mynode,ngr),ngr), ixe(idn,nnn)+1) + ipaths(3,6,ngr,idn) = max(jpm(iyb(mynode,ngr),ngr), iyb(idn,nnn)-1) + ipaths(4,6,ngr,idn) = min(jpm(iye(mynode,ngr),ngr), iye(idn,nnn)+1) + ipaths(5,6,ngr,idn) = idn + + ! A second index value of 7 of the ipaths array is used to determine + ! the loop limits in fdbackp for averaging the fm over the overlap + ! between the cm node and fm node, rather than always over the full + ! fm node. It is not used for actually sending stuff. The + ! ipaths(*,6,*,*,*) part of the array is still used for sending the + ! block of averaged cm points from the fm node to the cm node. + + do i = ixb(mynode,ngr),ixe(mynode,ngr) + if (ipm(i,ngr) .eq. ipaths(1,6,ngr,idn)) then + ipaths(1,7,ngr,idn) = i + exit + endif + enddo + + do i = ixe(mynode,ngr),ixb(mynode,ngr),-1 + if (ipm(i,ngr) .eq. ipaths(2,6,ngr,idn)) then + ipaths(2,7,ngr,idn) = i + exit + endif + enddo + + do j = iyb(mynode,ngr),iye(mynode,ngr) + if (jpm(j,ngr) .eq. ipaths(3,6,ngr,idn)) then + ipaths(3,7,ngr,idn) = j + exit + endif + enddo + + do j = iye(mynode,ngr),iyb(mynode,ngr),-1 + if (jpm(j,ngr) .eq. ipaths(4,6,ngr,idn)) then + ipaths(4,7,ngr,idn) = j + exit + endif + enddo + endif + endif + enddo + + ! Fill in the igetpaths array - this node (mynode) acting + ! as the destination node + do isn = 1,nodes + if (isn .ne. mynode) then + ! if there is overlap between mynode and isn then record the paths + if(ixb(mynode,ngr)-1 .le. ixe(isn,ngr) .and. & + iyb(mynode,ngr)-1 .le. iye(isn,ngr) .and. & + ixe(mynode,ngr)+1 .ge. ixb(isn,ngr) .and. & + iye(mynode,ngr)+1 .ge. iyb(isn,ngr)) then + + igetpaths(1,ngr,isn) = isn + + ! Small timestep overlap regions for u + + if (ixb(mynode,ngr)-1 .eq. ixe(isn,ngr) .and. & + iye(mynode,ngr) .ge. iyb(isn,ngr) .and. & + iyb(mynode,ngr) .le. iye(isn,ngr)) then + + igetpaths(2,ngr,isn) = isn + endif + + ! Small timestep overlap regions for v + + if (iyb(mynode,ngr)-1 .eq. iye(isn,ngr) .and. & + ixe(mynode,ngr) .ge. ixb(isn,ngr) .and. & + ixb(mynode,ngr) .le. ixe(isn,ngr)) then + + igetpaths(3,ngr,isn) = isn + endif + + ! Small timestep overlap regions for pi' + + if (ixe(mynode,ngr)+1 .eq. ixb(isn,ngr) .and. & + iye(mynode,ngr) .ge. iyb(isn,ngr) .and. & + iyb(mynode,ngr) .le. iye(isn,ngr)) then + + igetpaths(4,ngr,isn) = isn + + elseif (iye(mynode,ngr)+1 .eq. iyb(isn,ngr) .and. & + ixe(mynode,ngr) .ge. ixb(isn,ngr) .and. & + ixb(mynode,ngr) .le. ixe(isn,ngr)) then + + igetpaths(4,ngr,isn) = isn + endif + endif + endif + + ! If this is a grid that belongs to a parent grid, then + ! record paths for doing the nesting interpolation and feedback. + if (nnn .gt. 0) then + + ! Coarse grid to fine grid interpolation communication + + if(ipm(ixb(mynode,ngr)-1,ngr)-2 .le. ixe(isn,nnn).and. & + jpm(iyb(mynode,ngr)-1,ngr)-2 .le. iye(isn,nnn).and. & + ipm(ixe(mynode,ngr)+1,ngr)+1 .ge. ixb(isn,nnn).and. & + jpm(iye(mynode,ngr)+1,ngr)+1 .ge. iyb(isn,nnn)) then + + igetpaths(5,ngr,isn) = isn + endif + + ! Fine grid to coarse grid averaging communication + + if(ixb(mynode,nnn)-1 .le. ipm(ixe(isn,ngr),ngr).and. & + iyb(mynode,nnn)-1 .le. jpm(iye(isn,ngr),ngr).and. & + ixe(mynode,nnn)+1.ge. ipm(ixb(isn,ngr),ngr).and. & + iye(mynode,nnn)+1.ge. jpm(iyb(isn,ngr),ngr)) then + + igetpaths(6,ngr,isn) = isn + endif + endif + enddo +enddo + +! Cyclic boundary conditions (grid 1 only) + +indt = 0 +indu = 0 +indv = 0 + +nxp = nnxp(1) +nyp = nnyp(1) + +! Loop over all destination ij columns + +do jd = 1,nyp + do id = 1,nxp + if (id <= 2 .or. id >= nxp-1 .or. jd <= 2 .or. jd >= nyp-1) then + + is_t = 0 + js_t = 0 + is_u = 0 + js_u = 0 + is_v = 0 + js_v = 0 + avgflg_t = 0 + avgflg_u = 0 + avgflg_v = 0 + + ! Record source i,j for t, u, and v in the i direction + ! (element 1 of is,js arrays) + if (ibnd == 2) then +! t + if (id <= 2) then + is_t(1) = id+nxp-3 + js_t(1) = jd + elseif (id >= nxp-1) then + is_t(1) = id-nxp+3 + js_t(1) = jd + endif +! u + if (id == 1) then + is_u(1) = id+nxp-3 + js_u(1) = jd + elseif (id == nxp-1) then + is_u(1) = id-nxp+3 + js_u(1) = jd + endif +! v + if (id <= 2) then + is_v(1) = id+nxp-3 + js_v(1) = jd + elseif (id >= nxp-1) then + is_v(1) = id-nxp+3 + js_v(1) = jd + endif + + endif + + ! Record source i,j for t, u, and v in the j direction + ! (element 2 of is,js arrays) + if (jbnd == 2) then +!t + if (jd <= 2) then + is_t(2) = id + js_t(2) = jd+nyp-3 + elseif (jd >= nyp-1) then + is_t(2) = id + js_t(2) = jd-nyp+3 + endif +!u + if (jd <= 2) then + is_u(2) = id + js_u(2) = jd+nyp-3 + elseif (jd >= nyp-1) then + is_u(2) = id + js_u(2) = jd-nyp+3 + endif +!v + if (jd == 1) then + is_v(2) = id + js_v(2) = jd+nyp-3 + elseif (jd == nyp-1) then + is_v(2) = id + js_v(2) = jd-nyp+3 + endif + + endif + + ! Do averaging if on the "2" or "n-1" points + if ((id .eq. 2) .or. (id .eq. nxp-1)) then + avgflg_t(1) = 1 + avgflg_v(1) = 1 + endif + if ((jd .eq. 2) .or. (jd .eq. nyp-1)) then + avgflg_t(2) = 1 + avgflg_u(2) = 1 + endif + +! Loop over all destination nodes and check if current ij destination column +! is in it + + do idn = 1,nodes + ! grab end points (compute columns) + i1d = ixb(idn,1) + i2d = ixe(idn,1) + j1d = iyb(idn,1) + j2d = iye(idn,1) + ! include domain boundaries + if (i1d .eq. 2) i1d = 1 + if (i2d .eq. nxp-1) i2d = nxp + if (j1d .eq. 2) j1d = 1 + if (j2d .eq. nyp-1) j2d = nyp + + if (id >= i1d .and. id <= i2d .and. jd >= j1d .and. jd <= j2d) then + +! Loop over all source nodes and check if current ij source column is in it +! The t paths for each corresponding direction will always contain source +! nodes, however the u and v paths may not. (Eg, dir == 1, u paths only exist +! for id == 1 and nxp-1 (and not for id == 2 and nxp). + + do dir = 1,2 + ! dir == 1 --> along the x-axis ("i" direction) + ! dir == 2 --> along the y-axis ("j" direction) + is = is_t(dir) + js = js_t(dir) + + do isn = 1,nodes + ! grab end points (compute columns) + i1s = ixb(isn,1) + i2s = ixe(isn,1) + j1s = iyb(isn,1) + j2s = iye(isn,1) + ! include domain boundaries + if (i1s .eq. 2) i1s = 1 + if (i2s .eq. nxp-1) i2s = nxp + if (j1s .eq. 2) j1s = 1 + if (j2s .eq. nyp-1) j2s = nyp + + if (is >= i1s .and. is <= i2s .and. js >= j1s .and. js <= j2s) then + + indt(dir) = indt(dir) + 1 + ipathst_cyc(1,indt(dir),dir) = isn ! source node # + ipathst_cyc(2,indt(dir),dir) = is_t(dir) ! source node i + ipathst_cyc(3,indt(dir),dir) = js_t(dir) ! source node j + ipathst_cyc(4,indt(dir),dir) = idn ! destination node # + ipathst_cyc(5,indt(dir),dir) = id ! destination node i + ipathst_cyc(6,indt(dir),dir) = jd ! destination node j + ipathst_cyc(7,indt(dir),dir) = avgflg_t(dir) ! average flag + + if (is_u(dir) .gt. 0) then + indu(dir) = indu(dir) + 1 + ipathsu_cyc(1,indu(dir),dir) = isn ! source node # + ipathsu_cyc(2,indu(dir),dir) = is_u(dir) ! source node i + ipathsu_cyc(3,indu(dir),dir) = js_u(dir) ! source node j + ipathsu_cyc(4,indu(dir),dir) = idn ! destination node # + ipathsu_cyc(5,indu(dir),dir) = id ! destination node i + ipathsu_cyc(6,indu(dir),dir) = jd ! destination node j + ipathsu_cyc(7,indu(dir),dir) = avgflg_u(dir) ! average flag + endif + + if (is_v(dir) .gt. 0) then + indv(dir) = indv(dir) + 1 + ipathsv_cyc(1,indv(dir),dir) = isn ! source node # + ipathsv_cyc(2,indv(dir),dir) = is_v(dir) ! source node i + ipathsv_cyc(3,indv(dir),dir) = js_v(dir) ! source node j + ipathsv_cyc(4,indv(dir),dir) = idn ! destination node # + ipathsv_cyc(5,indv(dir),dir) = id ! destination node i + ipathsv_cyc(6,indv(dir),dir) = jd ! destination node j + ipathsv_cyc(7,indv(dir),dir) = avgflg_v(dir) ! average flag + endif + + exit ! since we found the source node + endif + enddo ! source nodes + + enddo ! dir = 1, 2 + + exit ! since we found the destination node + endif + enddo ! destination nodes + + endif ! id, jd along boundaries + enddo ! id +enddo ! jd + +return +END SUBROUTINE par_node_paths diff --git a/src/6.2.16/mpi/para_init.f90 b/src/6.2.16/mpi/para_init.f90 new file mode 100644 index 0000000..6c9ea3a --- /dev/null +++ b/src/6.2.16/mpi/para_init.f90 @@ -0,0 +1,545 @@ +!############################################################################## +Subroutine assign_node_subdomain () + +use mem_grid +use node_mod +use micphys, only:iscmx,iscmy,iscm + +implicit none + + integer :: ngr + integer :: jnode, ncols + + ! Decompose all grids into subdomains + + do ngr = 1,ngrids + ! Decompose the domain into rectangular sub-domains that have horizontal + ! areas (ie, number of columns) match as closely as possible. + CALL par_decomp_domain (nnxp(ngr),nnyp(ngr),nmachs,ixb(1,ngr),ixe(1,ngr) & + ,iyb(1,ngr),iye(1,ngr)) + + if (nmachs .gt. 1) then + print*,'!------------------------------------------------' + print*,'! Domain decomposition' + print*,'! grid# node# x-beg x-end y-beg y-end #cols' + print*,'!------------------------------------------------' + do jnode = 1,nmachs + ncols= (1+ixe(jnode,ngr)-ixb(jnode,ngr)) & + *(1+iye(jnode,ngr)-iyb(jnode,ngr)) + print '('' ! '',7i6,f12.4)', ngr,jnode,ixb(jnode,ngr) & + ,ixe(jnode,ngr),iyb(jnode,ngr),iye(jnode,ngr),ncols + enddo + print*,'!------------------------------------------------' + print*,'' + endif + + !Determine if this node has the SCM point to print in "subroutine timestep". + !Only do this if RAMS running a single grid; no nested grids for SCM output. + my_scm_num = -999 + if (iscm==ngr .and. nmachs==1) my_scm_num = 1 + if (iscm==ngr .and. nmachs>1) then + do jnode = 1,nmachs + if( ixb(jnode,ngr) <= iscmx .and. iscmx <= ixe(jnode,ngr) .and. & + iyb(jnode,ngr) <= iscmy .and. iscmy <= iye(jnode,ngr) ) then + my_scm_num = jnode + print*,'SCM POINT ON NODE: ',my_scm_num + endif + enddo + endif + + ! Figure out and record which sub domains are in the corners + ! of the full domain + do jnode = 1, nmachs + if ((ixb(jnode,ngr) .eq. 2) .and. (iyb(jnode,ngr) & + .eq. 2)) fd_sw_num(ngr) = jnode + if ((ixb(jnode,ngr) .eq. 2) .and. (iye(jnode,ngr) & + .eq. (nnyp(ngr)-1))) fd_nw_num(ngr) = jnode + if ((ixe(jnode,ngr) .eq. (nnxp(ngr)-1)) .and. (iyb(jnode,ngr) & + .eq. 2)) fd_se_num(ngr) = jnode + if ((ixe(jnode,ngr) .eq. (nnxp(ngr)-1)) .and. (iye(jnode,ngr) & + .eq. (nnyp(ngr)-1))) fd_ne_num(ngr) = jnode + enddo + enddo + +return +END SUBROUTINE assign_node_subdomain + +!############################################################################## +Subroutine node_init () + + use mem_grid + use node_mod + + implicit none + + integer :: ngr, n + +!!DEBUG +! integer :: inode, itype, info +!!DEBUG + + ! finish off the domain decomposition by filling in boundary information + CALL par_decomp_bounds () + + ! figure out which nodes need to talk to each other and record these paths + CALL par_node_paths (maxgrds,ngrids,nxpmax,nypmax,nnxp,nnyp & + ,nxtnest,my_rams_num,maxmach,nmachs,ipm,jpm,ixb,ixe,iyb,iye,ipaths & + ,iget_paths,ibnd,jbnd,not_a_node) + +!!DEBUG +!do ngr = 1,ngrids +! do inode=1,nmachs +! print'(a,i0,a)', 'DEBUG: NODE', my_rams_num, ':' +! print'(a,i0,a)', 'DEBUG: NODE', my_rams_num, ': ngr idn itype info ipaths ' +! do itype=1,7 +! print'(a,i0,a)', 'DEBUG: NODE', my_rams_num, ':' +! do info=1,5 +! print'(a,i0,a,5i6)', 'DEBUG: NODE', my_rams_num, ': ',ngr,inode,itype,info & +! ,ipaths(info,itype,ngr,inode) +! enddo +! enddo +! enddo +!enddo +! +!do ngr = 1,ngrids +! do inode = 1,nmachs +! print'(a,i0,a)', 'DEBUG: NODE', my_rams_num, ':' +! print'(a,i0,a)', 'DEBUG: NODE', my_rams_num, ': ngr isn itype iget_paths ' +! do itype = 1,6 +! print'(a,i0,a,4i6)', 'DEBUG: NODE', my_rams_num, ': ',ngr,inode,itype & +! ,iget_paths(itype,ngr,inode) +! enddo +! enddo +!enddo +!!DEBUG + + ! In the parallel nesting scheme, each subgrid on the fine + ! mesh will keep a copy of the coarse mesh "tile", for each + ! variable, that covers the fine mesh subgrid enough for doing + ! interpolation. + ! + do ngr = 2,ngrids + ! Determine size of coarse tile + ! + ! Need extra grids cells beyond those recorded in [ij]pm arrays for + ! the interpolation. + ! 2 extra parent grid cells at the "left" end + ! 1 extra parent grid cell at the "right" end + ctxbeg(ngr) = ipm(mxbeg(ngr),ngr) - 2 + ctxend(ngr) = ipm(mxend(ngr),ngr) + 1 + if(jdim == 1) then + ctybeg(ngr) = jpm(mybeg(ngr),ngr) - 2 + ctyend(ngr) = jpm(myend(ngr),ngr) + 1 + else + ctybeg(ngr) = 1 + ctyend(ngr) = 1 + endif + + ctnxp(ngr) = (ctxend(ngr) - ctxbeg(ngr)) + 1 + ctnyp(ngr) = (ctyend(ngr) - ctybeg(ngr)) + 1 + ctnzp(ngr) = mmzp(ngr) + + ! Determine offset of coarse tile + ! This is the distance into the coarse grid. The array holding the coarse tile will go from 1..nxc and + ! 1..nyc, so the offset is the distance from (1,1) in the coarse grid to where the coarse tile + ! is located. + cti0(ngr) = ctxbeg(ngr) - 1 + ctj0(ngr) = ctybeg(ngr) - 1 + + ! Shift ipm and jpm to hold indices relative to the origin being at (1,1) + ! Copy kpm, for now. + do n = 1,mmxp(ngr) + ctipm(n,ngr) = ipm(n+mi0(ngr),ngr) - cti0(ngr) + enddo + do n = 1,mmyp(ngr) + ctjpm(n,ngr) = jpm(n+mj0(ngr),ngr) - ctj0(ngr) + enddo + do n = 1,mmzp(ngr) + ctkpm(n,ngr) = kpm(n,ngr) + enddo + enddo + +return +END SUBROUTINE node_init + +!############################################################################## +Subroutine par_set_comm_buff_sizes () + +use mem_grid +use node_mod +use var_tables +use micro_prm, only: nkr +use kpp_parameters, only: nkppz + +implicit none + + integer :: inode,ng,mp_nzp,icm,ifm,nestvar,nf,nc,nv + integer :: isn,idn,itype + integer :: i1,i2,j1,j2 + integer :: ixy,ixyz,num_lbc_buff,num_nest_buff,num_feed_buff + integer :: npvar2,npvar3,npvar7 + integer :: nivar2,nivar3,nivars4,nivarw4,nivars3,nivarb4,nivark4 + integer :: num_init_buff + + integer, dimension(nmachs) :: recv_buff_sizes + + ! Compute send and receive buffer sizes. These will be maximum of + ! long timestep, initialization, turbulence, nest boundaries, and nest feedback. + ! + ! Small timestep will use same buffers as they are always smaller. + ! + ! node_buffs(*)%nsend - sizes when I am the source node + ! node_buffs(*)%nrecv - sizes when I am the destination node + + do inode=1,nmachs + node_buffs(inode)%nsend=0 + node_buffs(inode)%nrecv=0 + enddo + + mp_nzp=0 + do ng=1,ngrids + mp_nzp=max(mp_nzp,mmzp(ng)) + enddo + + + do ng=1,ngrids + + ! Find number of nested variables to be communicated. + icm=ng + ifm=ng + if(ng /= 1) icm=nxtnest(ifm) + nestvar = NUM_NEST_VARS + do nf=1,num_scalar(ifm) + do nc=1,num_scalar(icm) + if(scalar_tab(nf,ifm)%name==scalar_tab(nc,icm)%name) & + nestvar=nestvar+1 + enddo + enddo + + ! Find number of lbc variables to be communicated. + npvar3=0 ; npvar2=0 ; npvar7=0 + do nv = 1,num_var(ng) + if(vtab_r(nv,ng)%impt1 == 1 ) then + if (vtab_r(nv,ng)%idim_type==2) npvar2=npvar2+1 + if (vtab_r(nv,ng)%idim_type==3) npvar3=npvar3+1 + if (vtab_r(nv,ng)%idim_type==7) npvar7=npvar7+1 + endif + enddo + + ! Find number of init variables to be communicated. + nivar2 = 0 + nivar3 = 0 + nivars4 = 0 + nivarw4 = 0 + nivars3 = 0 + nivarb4 = 0 + nivark4 = 0 + do nv = 1,num_var(ng) + if(vtab_r(nv,ng)%impti == 1 ) then + if (vtab_r(nv,ng)%idim_type==2) nivar2=nivar2+1 + if (vtab_r(nv,ng)%idim_type==3) nivar3=nivar3+1 + if (vtab_r(nv,ng)%idim_type==4) nivars4=nivars4+1 + if (vtab_r(nv,ng)%idim_type==5) nivarw4=nivarw4+1 + if (vtab_r(nv,ng)%idim_type==6) nivars3=nivars3+1 + if (vtab_r(nv,ng)%idim_type==7) nivarb4=nivarb4+1 + if (vtab_r(nv,ng)%idim_type==10)nivark4=nivark4+1 + endif + enddo + + ! Figure out buffer sizes when I am the sending node + do idn=1,nmachs + num_lbc_buff=0 + num_init_buff=0 + num_nest_buff=0 + num_feed_buff=0 + + itype=1 + i1=ipaths(1,itype,ng,idn) + i2=ipaths(2,itype,ng,idn) + j1=ipaths(3,itype,ng,idn) + j2=ipaths(4,itype,ng,idn) + if(i1.ne.0) then + ixy=(i2-i1+1)*(j2-j1+1) + ixyz=(i2-i1+1)*(j2-j1+1)*(mp_nzp) + + !Buffer for LBC things + num_lbc_buff=ixyz*npvar3 & + +ixy*npvar2 & + +ixyz*nkr*npvar7 & + +2*(npvar3+npvar2+npvar7+100) + + !Buffer for all things initialized (should be all vars) + num_init_buff = & + (ixy*nivar2) & !Standard 2D vars + + (ixyz*nivar3) & !Standard 3D vars + + (nivars4*ixy*nzg*npatch) & !Sfc model soil-levels/patches + + (nivarw4*ixy*nzs*npatch) & !Sfc model snow-levels/patches + + (nivars3*ixy*npatch) & !Sfc model patches + + (nivarb4*ixyz*nkr) & !HUCM-BIN micro bins + + (nivark4*ixyz*nkppz) & !KPP ocean levels + + 2*(nivar2+nivar3+nivars4+nivarw4 & + +nivars3+nivarb4+nivark4+100) + endif + + itype=5 + i1=ipaths(1,itype,ng,idn) + i2=ipaths(2,itype,ng,idn) + j1=ipaths(3,itype,ng,idn) + j2=ipaths(4,itype,ng,idn) + if(i1.ne.0) then + ixyz=(i2-i1+1)*(j2-j1+1)*(mp_nzp) + num_nest_buff=ixyz*nestvar+2*(nestvar+100) + endif + + itype=6 + i1=ipaths(1,itype,ng,idn) + i2=ipaths(2,itype,ng,idn) + j1=ipaths(3,itype,ng,idn) + j2=ipaths(4,itype,ng,idn) + if(i1.ne.0) then + ixyz=(i2-i1+1)*(j2-j1+1)*(mp_nzp) + num_feed_buff=ixyz*nestvar+2*(nestvar+100) + endif + + node_buffs(idn)%nsend = max(node_buffs(idn)%nsend & + ,num_lbc_buff,num_init_buff,num_nest_buff,num_feed_buff) + enddo + enddo + + ! At this point we have placed the max buffer sizes for sending data to + ! other nodes considering all grids. Ie, one send size will account for + ! what is needed for all grids. + + ! Now figure out buffer sizes when this node is the destination node. + ! + ! We need information from the other nodes in order to accomplish + ! this since our copy of ipaths only accounts for when we are the + ! sending node (and when another node is sending to us, the buffer + ! size could be different). Can use an MPI gather to collect the + ! send buffer sizes from the other nodes and load them (in correct + ! order) into our receive buffer size vars. + ! + ! The basic idea is that for node 1, the receive buffer sizes have been + ! computed in the first entry of all the other nodes' send buffer size + ! arrays (since they are sending to node 1). For node 2, we want to + ! collect the second entry of all the other nodes' send buffer size + ! arrays. For node 3, collect the third entries, and so on. + ! + ! The algorithm then becomes: + ! For each node number + ! Issue a gather sending your individual send buffer size and + ! collecting into a buffer large enough to hold all the numbers + ! from the other nodes + ! Once the gather loop is finished, dole out the numbers in your + ! buffer into your receive buffer size entries. + ! + ! Every node must issue a gather to all nodes including itself. This + ! makes the gathers match up across the collection of processes and + ! each node receives the entries it needs. + ! + ! Note that this algorithm effectively transposes the send matrix + ! (formed by the send arrays from all the nodes) into the receive matrix. + + do isn = 1, nmachs + CALL par_gather_ints (node_buffs(isn)%nsend, recv_buff_sizes, 1, machnum(isn)) + enddo + + do isn = 1, nmachs + node_buffs(isn)%nrecv = recv_buff_sizes(isn) + enddo + +return +END SUBROUTINE par_set_comm_buff_sizes + +!############################################################################## +Subroutine par_decomp_bounds () + +use mem_grid +use node_mod +use micro_prm, only: nkr +use kpp_parameters, only: nkppz + +implicit none + + integer :: igrid, inode + integer :: nxpts, nypts + + !Compute various subdomain boundary numbers for this node + ! mxbeg,mybeg,mxend,myend - portions of full domain that node will have + ! - includes overlap region + ! mi0,mj0 - subdomain offsets relative to full domain + ! mia,miz,mja,mjz - subdomain "compute" points, + ! or normal thermodynamic tendency points (2-nx, 2-ny for + ! non-parallel run + ! mibcon - flag denoting if real boundary is on subdomain + ! bit 1=west, bit 2=east, bit 3=south, bit 4=north + ! + ! Subdomain boundary numbers for parallel HDF5 file IO + ! mem_read(igrid)%xblock, mem_read(igrid)%yblock + ! - memory block size for read operation + ! mem_write(igrid)%xblock, mem_write(igrid)%yblock + ! - memory block size for write operation + ! mem_read(igrid)%xoff, mem_read(igrid)%yoff + ! - memory subdomain offset relative to subdomain for read operation + ! mem_write(igrid)%xoff, mem_write(igrid)%yoff + ! - memory subdomain offset relative to subdomain for write operation + ! file_read(igrid)%xblock, file_read(igrid)%yblock + ! - file block size for read operation + ! file_write(igrid)%xblock, file_write(igrid)%yblock + ! - file block size for write operation + ! file_read(igrid)%xoff, file_read(igrid)%yoff + ! - file subdomain offset relative to full domain for read operation + ! file_write(igrid)%xoff, file_write(igrid)%yoff + ! - file subdomain offset relative to full domain for write operation + ! file_xchunk, file_ychunk + ! - chunk size write operation + + ! This routine assumes that boundaries are all 1 point wide + + ! need chunk size to be max(all mmxp) by max(all mmyp) + do igrid = 1, ngrids + mibcon(igrid) = 0 + + file_xchunk(igrid) = 0 + file_ychunk(igrid) = 0 + + do inode = 1, nmachs + ! Find the size of inode's sub-domain + nxpts = (ixe(inode,igrid) - ixb(inode,igrid)) + 3 + nypts = (iye(inode,igrid) - iyb(inode,igrid)) + 3 + + ! Save these if they are the max so far + if (nxpts > file_xchunk(igrid)) then + file_xchunk(igrid) = nxpts + endif + if (nypts > file_ychunk(igrid)) then + file_ychunk(igrid) = nypts + endif + + ! If we are on the inode matched with this process, then record + ! and calculate all of the other boundary information + ! + ! Calculate the numbers as if the sub-domain doesn't share a full + ! domain boundary. Then check for the full domain boundary and adjust + ! numbers accordingly. + ! + ! ixb,ixe,iyb,iye denote the compute region of the subdomain + if (inode .eq. my_rams_num) then + mmxp(igrid) = nxpts + mmyp(igrid) = nypts + mmzp(igrid) = nnzp(igrid) + + !print*,'Z-pts,node,nnzp,mmzp: ',inode,nnzp(igrid),mmzp(igrid) + !print*,'X-pts,node,nnxp,mmxp: ',inode,nnxp(igrid),mmxp(igrid) + !print*,'Y-pts,node,nnyp,mmyp: ',inode,nnyp(igrid),mmyp(igrid) + !print*,'' + + mmxyzp(igrid) = mmxp(igrid) * mmyp(igrid) * mmzp(igrid) + mmxysp(igrid) = mmxp(igrid) * mmyp(igrid) * (nzg+nzs+3) * npatch + mmxyp(igrid) = mmxp(igrid) * mmyp(igrid) + mmxyzbp(igrid) = mmxyzp(igrid) * nkr + mmxyzkp(igrid) = mmxp(igrid) * mmyp(igrid) * nkppz + + ! mxbeg, mxend, mybeg, myend extend 1 beyond ixb,ixe,iyb,iye + mxbeg(igrid) = ixb(inode,igrid) - 1 + mxend(igrid) = ixe(inode,igrid) + 1 + mybeg(igrid) = iyb(inode,igrid) - 1 + myend(igrid) = iye(inode,igrid) + 1 + + ! offsets are 2 less than ixb,iyb + mi0(igrid) = ixb(inode,igrid) - 2 + mj0(igrid) = iyb(inode,igrid) - 2 + + ! mia,mja are 2 + ! miz,mjz are 2 + (i[xy]e-i[xy]b) + mia(igrid) = 2 + miz(igrid) = 2 + (ixe(inode,igrid) - ixb(inode,igrid)) + mja(igrid) = 2 + mjz(igrid) = 2 + (iye(inode,igrid) - iyb(inode,igrid)) + + ! generate io sizes and offsets + ! read operation uses entire sub-domain (compute area plus boundaries) + mem_read(igrid)%xblock = mmxp(igrid) + mem_read(igrid)%yblock = mmyp(igrid) + mem_read(igrid)%xoff = 0 + mem_read(igrid)%yoff = 0 + + file_read(igrid)%xblock = mem_read(igrid)%xblock + file_read(igrid)%yblock = mem_read(igrid)%yblock + file_read(igrid)%xoff = mi0(igrid) + file_read(igrid)%yoff = mj0(igrid) + + ! write operations uses sub-domain area minus interior boundaries + ! set values here as if sub-domain is completely surrounded + ! by interior boundaries + mem_write(igrid)%xblock = (miz(igrid) - mia(igrid)) + 1 + mem_write(igrid)%yblock = (mjz(igrid) - mja(igrid)) + 1 + mem_write(igrid)%xoff = 1 + mem_write(igrid)%yoff = 1 + + file_write(igrid)%xblock = mem_write(igrid)%xblock + file_write(igrid)%yblock = mem_write(igrid)%yblock + file_write(igrid)%xoff = mi0(igrid) + 1 + file_write(igrid)%yoff = mj0(igrid) + 1 + + ! check west boundary + if (ixb(inode,igrid) .eq. 2) then + mibcon(igrid) = mibcon(igrid) + 1 + ! add west boundary back into the io write region + mem_write(igrid)%xblock = mem_write(igrid)%xblock + 1 + mem_write(igrid)%xoff = mem_write(igrid)%xoff - 1 + + file_write(igrid)%xblock = file_write(igrid)%xblock + 1 + file_write(igrid)%xoff = file_write(igrid)%xoff - 1 + endif + + ! check east boundary + if (ixe(inode,igrid) .eq. (nnxp(igrid)-1)) then + mibcon(igrid) = mibcon(igrid) + 2 + ! add east boundary back into the io write region + mem_write(igrid)%xblock = mem_write(igrid)%xblock + 1 + + file_write(igrid)%xblock = file_write(igrid)%xblock + 1 + endif + + ! check south boundary + if (iyb(inode,igrid) .eq. 2) then + mibcon(igrid) = mibcon(igrid) + 4 + ! add south boundary back into the io write region + mem_write(igrid)%yblock = mem_write(igrid)%yblock + 1 + mem_write(igrid)%yoff = mem_write(igrid)%yoff - 1 + + file_write(igrid)%yblock = file_write(igrid)%yblock + 1 + file_write(igrid)%yoff = file_write(igrid)%yoff - 1 + endif + + ! check north boundary + if (iye(inode,igrid) .eq. (nnyp(igrid)-1)) then + mibcon(igrid) = mibcon(igrid) + 8 + ! add north boundary back into the io write region + mem_write(igrid)%yblock = mem_write(igrid)%yblock + 1 + + file_write(igrid)%yblock = file_write(igrid)%yblock + 1 + endif + + endif + enddo + enddo + + ! In the special case where we only have one machine (nmachs ==1), + ! We need to make sure that the chunk size is not too big. + ! If the chunk size ends up too big, the entire domain will need to + ! be read into RAM. That won't work for sufficiently large domain sizes. + ! So, in the special case where number of machs is 1, set chunk size + ! to be equal to the minimum between number of points and an arbitrary value. + ! In this case, an arbitrary value of 50 is chosen to match the value set + ! in core/rams_model.f90. See more info there. + if (nmachs ==1) then + do igrid = 1, ngrids + file_xchunk(igrid) = min(50, nnxp(igrid)) + file_ychunk(igrid) = min(50, nnyp(igrid)) + enddo + endif + +return +END SUBROUTINE par_decomp_bounds diff --git a/src/6.2.16/mpi/rnode.f90 b/src/6.2.16/mpi/rnode.f90 new file mode 100644 index 0000000..dd978a3 --- /dev/null +++ b/src/6.2.16/mpi/rnode.f90 @@ -0,0 +1,272 @@ +!############################################################################## +Subroutine rams_node () + + use mem_grid + use node_mod + use micphys, only:idiffperts,iconv + use kpp_parameters, only:IKPP + + implicit none + + real :: wtime_ref,wtime_beg,wtime_end,ctime_beg,ctime_end,begtime,timeh + real, external :: walltime + character (len=200) :: timestep_msg + integer :: npass,igrid,icm,ifm,nfeed + + ! Record a reference time for the walltime routine. + wtime_ref = walltime(0.0) + + ! Initialize counters + istp = 0 + + ! Run the time integration. + do while (time < timmax) + + ! Record start cpu and wall times. + CALL timing (1,ctime_beg) + wtime_beg = walltime(wtime_ref) + + ! Record beginning time for this integration step. This is used to + ! offset time to the approriate value when working on nested grid + ! integration steps. + begtime = time + + istp = istp + 1 + + ! Examine Courant numbers in case model needs to be stopped or + CALL dtset () + +!---------------------------------------------------------------------------- +! Compute new "temporary base state" for THP and RTP for diffusing +! perturbations from the mean state at current time. +!---------------------------------------------------------------------------- + if(idiffperts==1 .or. idiffperts==2)then + do ifm = 1,ngrids + CALL newgrid (ifm) + CALL new_base_state (mzp,mxp,myp) + enddo + endif + +!---------------------------------------------------------------------------- +! Loop through all grids and advance a 'DTLONG' timestep. +!---------------------------------------------------------------------------- +! Start the timestep schedule + + do npass = 1, nsubs + !print*,'-->starting schedule :',mynum,npass,nt,nsubs + + isstp=isched(npass,3) + igrid=isched(npass,1) + CALL newgrid (igrid) + + CALL node_index () + +!---------------------------------------------------------------------------- +! Advance this grid forward by the appropriate timestep. + + time=begtime + (isched(npass,5)-1) * dtlt + + !Call main timestep driver + CALL timestep () + + ngbegun(igrid)=1 + +!---------------------------------------------------------------------------- +! Is it time to send the coarse domain points to the nested +! nodes to interpolate a nested grid's boundaries? + + if(isched(npass,2).ne.0) then + ifm=isched(npass,2) + CALL newgrid (ifm) + isstp=isched(npass,3) + icm=nxtnest(ifm) + CALL interp_nest_bounds(icm,ifm) + endif + + enddo ! do npass = 1, nsubs + +! All nesting operations (interpolation) have been carried out. + +!---------------------------------------------------------------------------- +! Compute Courant numbers cflxy and cflz and do averaging. + + do ifm = 1,ngrids + CALL newgrid (ifm) + CALL cfl (mzp,mxp,myp,i0,j0,my_rams_num) + !THETAM and RVM have not been updated after nesting feedback + !This means that these variables are really a timestep + !behind the instantaneous variables. + !Calculate the mean/average each of the analysis variables over time + CALL anlavg () + enddo + + ! get cfl max numbers for checking during the next iteration (by dtset()) + CALL set_cflmax_allnodes () + + ! Make the following call to get the domain max vertical velocity for the + ! convergence forcing code used to initiate idealized convection. + if(iprntstmt>=1 .or. ICONV > 0) & + CALL set_vertvelmax_allnodes () + + ! Make the following call to get the domain max mixed layer depth if + ! KPP mixed layer ocean model is running + if(iprntstmt>=1 .and. IKPP > 0) & + CALL set_hmixmax_allnodes () + + ! Move to next integration step. Make sure you are stepping by the + ! primary (grid 1) dtlong value. + time = begtime + dtlongn(1) + + ! Report time for this integration step. + CALL timing (2,ctime_end) + wtime_end = walltime(wtime_ref) + + timeh = time / 3600.0 + write(timestep_msg, 900) istp, time, timeh +900 format(' Timestep-', i8, ' Sim time(sec)=', f10.1, ' (hr)=', f9.2) + CALL report_time_allnodes (trim(timestep_msg),ctime_end-ctime_beg & + ,wtime_end-wtime_beg) + if(print_msg) then + print*,'----------------------------------------------' + endif + + ! Write analysis files. rams_output() will check to see if it's the + ! proper time before issuing the file write. + CALL rams_output () + + enddo ! do while (time < timmax) + +return +END SUBROUTINE rams_node + +!############################################################################## +Subroutine init_fields () + +use mem_grid +use node_mod +use var_tables + +implicit none + +integer :: ng,nm,itype,i1,j1,i2,j2,memf,npvar,nv + + +! Can we use existing memory for the nesting communication buffers? +! If not, allocate new buffers or compute buffer sizes. + +! Check feedback buffer. + +itype=6 +nbuff_feed=0 +do ng=1,ngrids + do nm=1,nmachs + i1=ipaths(1,itype,ng,nm) + i2=ipaths(2,itype,ng,nm) + j1=ipaths(3,itype,ng,nm) + j2=ipaths(4,itype,ng,nm) + memf=(i2-i1+1)*(j2-j1+1)*(nnzp(ng)) & + *(NUM_NEST_VARS+num_scalar(ng)) + nbuff_feed=max(nbuff_feed,memf) + enddo +enddo + +!____________________________________________ +! +! Allocate long time step send and receive buffers +do nm=1,nmachs + ! send buffers + if (allocated(node_buffs(nm)%lbc_send_buff) ) & + deallocate(node_buffs(nm)%lbc_send_buff) + if (node_buffs(nm)%nsend > 0) & + allocate(node_buffs(nm)%lbc_send_buff(node_buffs(nm)%nsend)) + + ! receive buffers + if (allocated(node_buffs(nm)%lbc_recv_buff) ) & + deallocate(node_buffs(nm)%lbc_recv_buff) + if (node_buffs(nm)%nrecv > 0) & + allocate(node_buffs(nm)%lbc_recv_buff(node_buffs(nm)%nrecv)) + if(iprntstmt>=2)print'(a,6i10)','LBC node alloc:',my_rams_num,nm & + ,node_buffs(nm)%nsend, node_buffs(nm)%nrecv +enddo + +! If using cyclic boundary conditions, initialize parallel communication +! for them +! Find number of lbc variables to be communicated. + npvar=0 + do nv = 1,num_var(1) + if(vtab_r(nv,1)%impt1 == 1 ) then + npvar=npvar+1 + endif + enddo + +if (ibnd .eq. 2 .or. jbnd .eq. 2) then + CALL node_cycinit (nnzp(1),npvar,nmachs,my_rams_num) +endif + +return +END SUBROUTINE init_fields + +!############################################################################## +Subroutine node_index () + +use node_mod + +implicit none + +ia_1=max(ia-1,1) +ia_2=max(ia-2,1) +ia_3=max(ia-3,1) +ia1=ia+1 +ia2=ia+2 +ia3=ia+3 +iz_1=iz-1 +iz_2=iz-2 +iz_3=iz-3 +iz1=min(iz+1,mxp) +iz2=min(iz+2,mxp) +iz3=min(iz+3,mxp) + +izu=iz +if(iand(ibcon,2).ne.0) izu=iz-1 + +if(myp.gt.1) then + ja_1=max(ja-1,1) + ja_2=max(ja-2,1) + ja_3=max(ja-3,1) + ja1=ja+1 + ja2=ja+2 + ja3=ja+3 + jz_1=jz-1 + jz_2=jz-2 + jz_3=jz-3 + jz1=min(jz+1,myp) + jz2=min(jz+2,myp) + jz3=min(jz+3,myp) + + jzv=jz + if(iand(ibcon,8).ne.0) jzv=jz-1 + +else + if (nmachs .gt. 1) then + print*,'Trying to do 2-dimensional run?' + stop 'no parallel 2d' + endif + ja=1 + jz=1 + ja_1=1 + ja_2=1 + ja_3=1 + ja1=1 + ja2=1 + ja3=1 + jz_1=1 + jz_2=1 + jz_3=1 + jz1=1 + jz2=1 + jz3=1 + jzv=1 +endif + +return +END SUBROUTINE node_index diff --git a/src/6.2.16/nesting/nest_drivers.f90 b/src/6.2.16/nesting/nest_drivers.f90 new file mode 100644 index 0000000..98c3e76 --- /dev/null +++ b/src/6.2.16/nesting/nest_drivers.f90 @@ -0,0 +1,703 @@ +!############################################################################## +Subroutine nstbdriv () + +use mem_tend +use var_tables +use mem_basic +use mem_nestb +use node_mod +use mem_grid + +implicit none + +integer :: n +real :: tymeinvv,tymeinvs + +tymeinvv = 1.0 / (dtlv * 0.5 * float(nndtrat(ngrid)+2-isstp)) +tymeinvs = 1.0 / (dtlt * float(nndtrat(ngrid)+1-isstp)) + +! print*, 'calling nstbtnd for u' +! print*, 'jdim,ibcon,ia,iz,ja,jz' +! print*, jdim,ibcon,ia,iz,ja,jz + + +CALL nstbtnd (mzp,mxp,myp,ia,iz,ja,jz,ibcon & + ,basic_g(ngrid)%up(1,1,1),tend%ut(1) & + ,nbounds(ngrid)%bux(1,1,1),nbounds(ngrid)%buy(1,1,1) & + ,nbounds(ngrid)%buz(1,1,1) & + ,'u',tymeinvv,nstbot,nsttop,jdim) + +CALL nstbtnd (mzp,mxp,myp,ia,iz,ja,jz,ibcon & + ,basic_g(ngrid)%vp(1,1,1),tend%vt(1) & + ,nbounds(ngrid)%bvx(1,1,1),nbounds(ngrid)%bvy(1,1,1) & + ,nbounds(ngrid)%bvz(1,1,1) & + ,'v',tymeinvv,nstbot,nsttop,jdim) + +CALL nstbtnd (mzp,mxp,myp,ia,iz,ja,jz,ibcon & + ,basic_g(ngrid)%wp(1,1,1),tend%wt(1) & + ,nbounds(ngrid)%bwx(1,1,1),nbounds(ngrid)%bwy(1,1,1) & + ,nbounds(ngrid)%bwz(1,1,1) & + ,'w',tymeinvv,nstbot,nsttop,jdim) + +CALL nstbtnd (mzp,mxp,myp,ia,iz,ja,jz,ibcon & + ,basic_g(ngrid)%pp(1,1,1),tend%pt(1) & + ,nbounds(ngrid)%bpx(1,1,1),nbounds(ngrid)%bpy(1,1,1) & + ,nbounds(ngrid)%bpz(1,1,1) & + ,'p',tymeinvv,nstbot,nsttop,jdim) + +do n = 1,num_scalar(ngrid) + CALL nstbtnd (mzp,mxp,myp,ia,iz,ja,jz,ibcon & + ,scalar_tab(n,ngrid)%var_p,scalar_tab(n,ngrid)%var_t & + ,nbounds(ngrid)%bsx(1,1,1,n),nbounds(ngrid)%bsy(1,1,1,n) & + ,nbounds(ngrid)%bsz(1,1,1,n) & + ,'t',tymeinvs,nstbot,nsttop,jdim) +enddo + +return +END SUBROUTINE nstbdriv + +!############################################################################## +Subroutine interp_fine_grid (ifm,icm,ifg_mode) + +! This routine will perform initialization of a fine grid by interpolating +! from the parent (coarse) grid. +! +! The argument ifg_mode denotes which subsystem (consequently which variable +! set) to initialize. The following modes are currently supported, and the +! corresponding parameters are found in node_mode.f90. +! +! parameter mode +! +! IFG_HH_INIT horizonally homogeneous initialization +! IFG_VF_INIT var file initialization +! IFG_HIST_INIT history file initialization +! IFG_MKVF_INIT initialization for MAKEVFILE +! IFG_MKHF_INIT initialization for MAKEHFILE +! IFG_TOPT1_INIT initialization for MAKESFC, topography +! IFG_TOPT2_INIT initialization for MAKESFC, topography +! IFG_SST_INIT initialization for MAKESFC, sea surface temperature +! +! It is the caller's responsibility to check that ifm and icm are a valid +! coarse-fine grid pair. The caller also needs to do a call to newgrid(ifm). + + use node_mod + use mem_grid + use mem_basic + use mem_mksfc + use ref_sounding + use var_tables + use isan_coms + + implicit none + + integer :: ifm, icm + integer :: ifg_mode + + integer :: nzc, nxc, nyc + integer :: nzct, nxct, nyct + integer :: nzf, nxf, nyf + integer :: ic0, jc0 + integer :: ict0, jct0 + integer :: if0, jf0 + integer :: ibconf + integer :: ifileok + integer :: i, j, k, ivar + real, dimension(:,:,:), allocatable :: dn0ct, dn0uct, dn0vct + real, dimension(:), allocatable :: dn01dnct + real, dimension(:,:), allocatable :: toptf_int + + ! These are for convenience + nxf = mmxp(ifm) + nyf = mmyp(ifm) + nzf = mmzp(ifm) + + nxc = mmxp(icm) + nyc = mmyp(icm) + nzc = mmzp(icm) + + nxct = ctnxp(ifm) + nyct = ctnyp(ifm) + nzct = ctnzp(ifm) + + ic0 = mi0(icm) + jc0 = mj0(icm) + + ict0 = cti0(ifm) + jct0 = ctj0(ifm) + + if0 = mi0(ifm) + jf0 = mj0(ifm) + + ibconf = mibcon(ifm) + + allocate(dn01dnct(nzct)) + allocate(toptf_int(nxf,nyf)) + allocate(dn0ct(nzct,nxct,nyct)) + allocate(dn0uct(nzct,nxct,nyct)) + allocate(dn0vct(nzct,nxct,nyct)) + + ! Fill the "tiles" for the density vars + if ((ifg_mode .eq. IFG_HH_INIT) .or. (ifg_mode .eq. IFG_HIST_INIT) & + .or. (ifg_mode .eq. IFG_VF_INIT)) then + CALL fill_density_tiles (nzc,nxc,nyc,dn01dn(1,icm), & + basic_g(icm)%dn0,basic_g(icm)%dn0u,basic_g(icm)%dn0v, & + nzct,nxct,nyct,dn01dnct,dn0ct,dn0uct,dn0vct,ic0,jc0,ict0,jct0,ifm,icm) + elseif ((ifg_mode .eq. IFG_MKVF_INIT) .or. (ifg_mode .eq. IFG_MKHF_INIT)) then + CALL fill_density_tiles (nzc,nxc,nyc,dnref(1,icm), & + is_grids(icm)%rr_dn0,is_grids(icm)%rr_dn0u,is_grids(icm)%rr_dn0v, & + nzct,nxct,nyct,dn01dnct,dn0ct,dn0uct,dn0vct,ic0,jc0,ict0,jct0,ifm,icm) + endif + + + ! Interpolate topography for subsequent interp_var calls, or for MAKESFC + if ((ifg_mode .eq. IFG_TOPT1_INIT) .or. (ifg_mode .eq. IFG_TOPT2_INIT)) then + CALL interp_var (1,nxc,nyc,sfcfile_p(icm)%topt,1,nxct,nyct,dn0ct, & + 1,nxf,nyf,sfcfile_p(ifm)%topt,basic_g(ifm)%dn0, & + grid_g(ifm)%topt,toptf_int,ifm,icm,ctipm(1,ifm), & + ctjpm(1,ifm),ctkpm(1,ifm),ic0,jc0,ict0,jct0,if0,jf0, & + ibconf,'t',0,0,2) + if (ifg_mode .eq. IFG_TOPT1_INIT) then + CALL interp_var (1,nxc,nyc,sfcfile_p(icm)%topzo,1,nxct,nyct,dn0ct, & + 1,nxf,nyf,sfcfile_p(ifm)%topzo,basic_g(ifm)%dn0, & + grid_g(ifm)%topt,toptf_int,ifm,icm,ctipm(1,ifm), & + ctjpm(1,ifm),ctkpm(1,ifm),ic0,jc0,ict0,jct0,if0,jf0, & + ibconf,'t',0,0,2) + endif + else + CALL interp_var (1,nxc,nyc,grid_g(icm)%topt,1,nxct,nyct,dn0ct, & + 1,nxf,nyf,toptf_int,basic_g(ifm)%dn0,grid_g(ifm)%topt, & + toptf_int,ifm,icm,ctipm(1,ifm),ctjpm(1,ifm),ctkpm(1,ifm), & + ic0,jc0,ict0,jct0,if0,jf0,ibconf,'t',0,0,2) + endif + + ! Interpolate SST for MAKESFC + if (ifg_mode .eq. IFG_SST_INIT) then + CALL interp_var (1,nxc,nyc,sfcfile_p(icm)%seatf,1,nxct,nyct,dn0ct, & + 1,nxf,nyf,sfcfile_p(ifm)%seatf,basic_g(ifm)%dn0, & + grid_g(ifm)%topt,toptf_int,ifm,icm,ctipm(1,ifm), & + ctjpm(1,ifm),ctkpm(1,ifm),ic0,jc0,ict0,jct0,if0,jf0, & + ibconf,'t',0,0,2) + endif + + + ! Interpolate the 1D reference state + if ((ifg_mode .eq. IFG_HH_INIT) .or. (ifg_mode .eq. IFG_HIST_INIT) & + .or. (ifg_mode .eq. IFG_VF_INIT)) then + CALL interp_refs_1d (nzc,dn01dn(1,icm),th01dn(1,icm),u01dn(1,icm), & + v01dn(1,icm),rt01dn(1,icm),pi01dn(1,icm),nzct,dn01dnct, & + nzf,nxf,nyf,dn01dn(1,ifm),th01dn(1,ifm),u01dn(1,ifm),v01dn(1,ifm), & + rt01dn(1,ifm),pi01dn(1,ifm),grid_g(ifm)%topt,toptf_int, & + ifm,icm,ctipm(1,ifm),ctjpm(1,ifm),ctkpm(1,ifm),ibconf,ifg_mode) + elseif (ifg_mode .eq. IFG_MKVF_INIT) then + CALL interp_refs_1d (nzc,dnref(1,icm),thref(1,icm),u01dn(1,icm), & + v01dn(1,icm),rtref(1,icm),piref(1,icm),nzct,dn01dnct, & + nzf,nxf,nyf,dnref(1,ifm),thref(1,ifm),u01dn(1,ifm),v01dn(1,ifm), & + rtref(1,ifm),piref(1,ifm),grid_g(ifm)%topt,toptf_int, & + ifm,icm,ctipm(1,ifm),ctjpm(1,ifm),ctkpm(1,ifm),ibconf,ifg_mode) + endif + + + ! Interpolate the 3D reference state + if ((ifg_mode .eq. IFG_HH_INIT) .or. (ifg_mode .eq. IFG_HIST_INIT) & + .or. (ifg_mode .eq. IFG_VF_INIT)) then + CALL interp_refs_3d (nzc,nxc,nyc,basic_g(icm)%dn0,basic_g(icm)%th0,nzct, & + nxct,nyct,dn0ct,nzf,nxf,nyf,basic_g(ifm)%dn0,basic_g(ifm)%dn0u, & + basic_g(ifm)%dn0v,basic_g(ifm)%th0,basic_g(ifm)%pi0,basic_g(ifm)%pp, & + grid_g(ifm)%topt,toptf_int,ifm,icm,ctipm(1,ifm),ctjpm(1,ifm), & + ctkpm(1,ifm),ic0,jc0,ict0,jct0,if0,jf0,ibconf,ifg_mode) + elseif ((ifg_mode .eq. IFG_MKVF_INIT) .or. (ifg_mode .eq. IFG_MKHF_INIT)) then + CALL interp_refs_3d (nzc,nxc,nyc,is_grids(icm)%rr_dn0,is_grids(icm)%rr_th0, & + nzct,nxct,nyct,dn0ct,nzf,nxf,nyf,is_grids(ifm)%rr_dn0, & + is_grids(ifm)%rr_dn0u,is_grids(ifm)%rr_dn0v,is_grids(ifm)%rr_th0, & + is_grids(ifm)%rr_pi0,is_grids(ifm)%rr_p,grid_g(ifm)%topt,toptf_int, & + ifm,icm,ctipm(1,ifm),ctjpm(1,ifm),ctkpm(1,ifm),ic0,jc0,ict0,jct0,if0, & + jf0,ibconf,ifg_mode) + endif + + + ! Interpolate the prognostic variables (u, v, w, p, and scalars), then do the + ! terrain adjustment. + ! Skip this step if doing history file initialization, as well as any file + ! creation processes (MAKESFC, etc) + if ((ifg_mode .eq. IFG_HH_INIT) .or. (ifg_mode .eq. IFG_VF_INIT)) then + CALL interp_var (nzc,nxc,nyc,basic_g(icm)%uc,nzct,nxct,nyct,dn0uct, & + nzf,nxf,nyf,basic_g(ifm)%uc,basic_g(ifm)%dn0u,grid_g(ifm)%topt,toptf_int, & + ifm,icm,ctipm(1,ifm),ctjpm(1,ifm),ctkpm(1,ifm),ic0,jc0,ict0,jct0,if0,jf0, & + ibconf,'u',1,1,3) + + CALL interp_var (nzc,nxc,nyc,basic_g(icm)%vc,nzct,nxct,nyct,dn0vct, & + nzf,nxf,nyf,basic_g(ifm)%vc,basic_g(ifm)%dn0v,grid_g(ifm)%topt,toptf_int, & + ifm,icm,ctipm(1,ifm),ctjpm(1,ifm),ctkpm(1,ifm),ic0,jc0,ict0,jct0,if0,jf0, & + ibconf,'v',1,1,3) + + CALL interp_var (nzc,nxc,nyc,basic_g(icm)%wc,nzct,nxct,nyct,dn0ct, & + nzf,nxf,nyf,basic_g(ifm)%wc,basic_g(ifm)%dn0,grid_g(ifm)%topt,toptf_int, & + ifm,icm,ctipm(1,ifm),ctjpm(1,ifm),ctkpm(1,ifm),ic0,jc0,ict0,jct0,if0,jf0, & + ibconf,'w',1,1,3) + + CALL interp_var (nzc,nxc,nyc,basic_g(icm)%pc,nzct,nxct,nyct,dn0ct, & + nzf,nxf,nyf,basic_g(ifm)%pc,basic_g(ifm)%dn0,grid_g(ifm)%topt,toptf_int, & + ifm,icm,ctipm(1,ifm),ctjpm(1,ifm),ctkpm(1,ifm),ic0,jc0,ict0,jct0,if0,jf0, & + ibconf,'t',0,1,3) + + do ivar = 1,num_scalar(ifm) + CALL interp_var (nzc,nxc,nyc,scalar_tab(ivar,icm)%var_p,nzct,nxct,nyct, & + dn0ct,nzf,nxf,nyf,scalar_tab(ivar,ifm)%var_p,basic_g(ifm)%dn0, & + grid_g(ifm)%topt,toptf_int,ifm,icm,ctipm(1,ifm),ctjpm(1,ifm), & + ctkpm(1,ifm),ic0,jc0,ict0,jct0,if0,jf0,ibconf,'t',1,1,3) + enddo + endif + + ! If initializing from var files, then make the attempt to read the var files. + ! If var files are missing, the code above has horizontally homogeneously + ! initialized the prognostic vars and we will continue with that initialization. + if (ifg_mode .eq. IFG_VF_INIT) then + CALL varf_update (0,ifileok,1) + + if (ifileok == 1) then + ! Everything's cool... + if (print_msg) print*,'VarRead Initial varfile read of grid-',ifm + else + ! Using interpolated nudging arrays from parent grid. + if (print_msg) print*,'VarRead Initial interpolation of grid-',ifm + endif + endif + + ! Interpolate 3D density, considering terrain this time + ! For parallel runs, calc_dn0uv() uses the data in the overlap region + ! for dn0 so need to update + if ((ifg_mode .eq. IFG_HH_INIT) .or. (ifg_mode .eq. IFG_HIST_INIT) & + .or. (ifg_mode .eq. IFG_VF_INIT)) then + CALL interp_topo (nzf,nxf,nyf,basic_g(ifm)%dn0,toptf_int,grid_g(ifm)%topt, & + ifm,'t',ibconf,3) + CALL calc_dn0uv (nzf,nxf,nyf,basic_g(ifm)%dn0,basic_g(ifm)%dn0u, & + basic_g(ifm)%dn0v,ibconf,ifm) + elseif (ifg_mode .eq. IFG_MKVF_INIT) then + CALL interp_topo (nzf,nxf,nyf,is_grids(ifm)%rr_dn0,toptf_int, & + grid_g(ifm)%topt,ifm,'t',ibconf,3) + CALL calc_dn0uv (nzf,nxf,nyf,is_grids(ifm)%rr_dn0,is_grids(ifm)%rr_dn0u, & + is_grids(ifm)%rr_dn0v,ibconf,ifm) + endif + + + if (((ifg_mode .eq. IFG_HH_INIT) .or. (ifg_mode .eq. IFG_HIST_INIT)) & + .and. (print_msg)) then + print'(a)', '----------------------------------------------------' + print'(a,i5)', 'Model Start Initial interpolation of grid-',ifm + print'(a)', '----------------------------------------------------' + print'(a)', '' + endif + + deallocate(dn01dnct) + deallocate(toptf_int) + deallocate(dn0ct) + deallocate(dn0uct) + deallocate(dn0vct) + + return +END SUBROUTINE interp_fine_grid + +!############################################################################## +Subroutine interp_fine_grid_sfcvar (ifm,icm,ifg_mode) + +! This routine will perform initialization of a fine grid by interpolating +! from the parent (coarse) grid. +! +! The argument ifg_mode denotes which subsystem (consequently which variable +! set) to initialize. The following modes are currently supported, and the +! corresponding parameters are found in node_mode.f90. +! +! parameter mode +! +! IFG_MKVF_INIT initialization for MAKEVFILE +! IFG_MKHF_INIT initialization for MAKEHFILE +! IFG_TOPT1_INIT initialization for MAKESFC, topography +! IFG_TOPT2_INIT initialization for MAKESFC, topography +! IFG_SST_INIT initialization for MAKESFC, sea surface temperature +! +! It is the caller's responsibility to check that ifm and icm are a valid +! coarse-fine grid pair. The caller also needs to do a call to newgrid(ifm). + + use node_mod + use mem_grid + use mem_basic + use mem_mksfc + use ref_sounding + use var_tables + use isan_coms + + implicit none + + integer :: ifm, icm + integer :: ifg_mode + + integer :: nzc, nxc, nyc + integer :: nzct, nxct, nyct + integer :: nzf, nxf, nyf + integer :: ic0, jc0 + integer :: ict0, jct0 + integer :: if0, jf0 + integer :: ibconf + integer :: ifileok + integer :: i, j, k, ivar + real, dimension(:,:,:), allocatable :: dn0ct, dn0uct, dn0vct + real, dimension(:), allocatable :: dn01dnct + real, dimension(:,:), allocatable :: toptf_int + + ! These are for convenience + nxf = mmxp(ifm) + nyf = mmyp(ifm) + nzf = mmzp(ifm) + + nxc = mmxp(icm) + nyc = mmyp(icm) + nzc = mmzp(icm) + + nxct = ctnxp(ifm) + nyct = ctnyp(ifm) + nzct = ctnzp(ifm) + + ic0 = mi0(icm) + jc0 = mj0(icm) + + ict0 = cti0(ifm) + jct0 = ctj0(ifm) + + if0 = mi0(ifm) + jf0 = mj0(ifm) + + ibconf = mibcon(ifm) + + allocate(dn01dnct(nzct)) + allocate(toptf_int(nxf,nyf)) + allocate(dn0ct(nzct,nxct,nyct)) + allocate(dn0uct(nzct,nxct,nyct)) + allocate(dn0vct(nzct,nxct,nyct)) + + ! Fill the "tiles" for the density vars + if ((ifg_mode .eq. IFG_MKVF_INIT) .or. (ifg_mode .eq. IFG_MKHF_INIT)) then + CALL fill_density_tiles (nzc,nxc,nyc,dnref(1,icm), & + is_grids(icm)%rr_dn0,is_grids(icm)%rr_dn0u,is_grids(icm)%rr_dn0v, & + nzct,nxct,nyct,dn01dnct,dn0ct,dn0uct,dn0vct,ic0,jc0,ict0,jct0,ifm,icm) + endif + + + ! Interpolate topography for subsequent interp_var calls, or for MAKESFC + if ((ifg_mode .eq. IFG_TOPT1_INIT) .or. (ifg_mode .eq. IFG_TOPT2_INIT)) then + CALL interp_varsfc (1,nxc,nyc,sfcfile_p(icm)%topt,1,nxct,nyct, & + 1,nxf,nyf,sfcfile_p(ifm)%topt, & + ifm,icm,ctipm(1,ifm), & + ctjpm(1,ifm),ctkpm(1,ifm),ic0,jc0,ict0,jct0,if0,jf0, & + ibconf,'t',2) + if (ifg_mode .eq. IFG_TOPT1_INIT) then + CALL interp_varsfc (1,nxc,nyc,sfcfile_p(icm)%topzo,1,nxct,nyct, & + 1,nxf,nyf,sfcfile_p(ifm)%topzo, & + ifm,icm,ctipm(1,ifm), & + ctjpm(1,ifm),ctkpm(1,ifm),ic0,jc0,ict0,jct0,if0,jf0, & + ibconf,'t',2) + endif + else + CALL interp_varsfc (1,nxc,nyc,grid_g(icm)%topt,1,nxct,nyct, & + 1,nxf,nyf,toptf_int, & + ifm,icm,ctipm(1,ifm),ctjpm(1,ifm),ctkpm(1,ifm), & + ic0,jc0,ict0,jct0,if0,jf0,ibconf,'t',2) + endif + + ! Interpolate SST for MAKESFC + if (ifg_mode .eq. IFG_SST_INIT) then + CALL interp_varsfc (1,nxc,nyc,sfcfile_p(icm)%seatf,1,nxct,nyct, & + 1,nxf,nyf,sfcfile_p(ifm)%seatf, & + ifm,icm,ctipm(1,ifm), & + ctjpm(1,ifm),ctkpm(1,ifm),ic0,jc0,ict0,jct0,if0,jf0, & + ibconf,'t',2) + endif + + + ! Interpolate the 1D reference state + if (ifg_mode .eq. IFG_MKVF_INIT) then + CALL interp_refs_1d (nzc,dnref(1,icm),thref(1,icm),u01dn(1,icm), & + v01dn(1,icm),rtref(1,icm),piref(1,icm),nzct,dn01dnct, & + nzf,nxf,nyf,dnref(1,ifm),thref(1,ifm),u01dn(1,ifm),v01dn(1,ifm), & + rtref(1,ifm),piref(1,ifm),grid_g(ifm)%topt,toptf_int, & + ifm,icm,ctipm(1,ifm),ctjpm(1,ifm),ctkpm(1,ifm),ibconf,ifg_mode) + endif + + + ! Interpolate the 3D reference state + if ((ifg_mode .eq. IFG_MKVF_INIT) .or. (ifg_mode .eq. IFG_MKHF_INIT)) then + CALL interp_refs_3d (nzc,nxc,nyc,is_grids(icm)%rr_dn0,is_grids(icm)%rr_th0, & + nzct,nxct,nyct,dn0ct,nzf,nxf,nyf,is_grids(ifm)%rr_dn0, & + is_grids(ifm)%rr_dn0u,is_grids(ifm)%rr_dn0v,is_grids(ifm)%rr_th0, & + is_grids(ifm)%rr_pi0,is_grids(ifm)%rr_p,grid_g(ifm)%topt,toptf_int, & + ifm,icm,ctipm(1,ifm),ctjpm(1,ifm),ctkpm(1,ifm),ic0,jc0,ict0,jct0,if0, & + jf0,ibconf,ifg_mode) + endif + + ! Interpolate 3D density, considering terrain this time + ! For parallel runs, calc_dn0uv() uses the data in the overlap region + ! for dn0 so need to update + if (ifg_mode .eq. IFG_MKVF_INIT) then + CALL interp_topo (nzf,nxf,nyf,is_grids(ifm)%rr_dn0,toptf_int, & + grid_g(ifm)%topt,ifm,'t',ibconf,3) + CALL calc_dn0uv (nzf,nxf,nyf,is_grids(ifm)%rr_dn0,is_grids(ifm)%rr_dn0u, & + is_grids(ifm)%rr_dn0v,ibconf,ifm) + endif + + + deallocate(dn01dnct) + deallocate(toptf_int) + deallocate(dn0ct) + deallocate(dn0uct) + deallocate(dn0vct) + + return +END SUBROUTINE interp_fine_grid_sfcvar + +!############################################################################## +Subroutine interp_varf (ifm, ifflag) + +! This routine will perform initialization of fine grids by interpolating +! from the parent (coarse) grid for variables in the var file system +! (varu[pf], varv[pf], varp[pf], vart[pf], varr[pf]). + + use node_mod + use mem_grid + use mem_basic + use mem_varinit + + implicit none + + integer :: ifm, ifflag + integer :: icm + integer :: nzc, nxc, nyc + integer :: nzct, nxct, nyct + integer :: nzf, nxf, nyf + integer :: ic0, jc0 + integer :: ict0, jct0 + integer :: if0, jf0 + integer :: ibconf + integer :: ifileok + real :: c1, c2 + integer :: i, j, k, ivar + real, dimension(:,:,:), allocatable :: dn0ct, dn0uct, dn0vct + real, dimension(:,:), allocatable :: toptf_int + + icm = nxtnest(ifm) + if (icm == 0) return + + CALL newgrid (ifm) + + ! These are for convenience + nxf = mmxp(ifm) + nyf = mmyp(ifm) + nzf = mmzp(ifm) + + nxc = mmxp(icm) + nyc = mmyp(icm) + nzc = mmzp(icm) + + nxct = ctnxp(ifm) + nyct = ctnyp(ifm) + nzct = ctnzp(ifm) + + ic0 = mi0(icm) + jc0 = mj0(icm) + + ict0 = cti0(ifm) + jct0 = ctj0(ifm) + + if0 = mi0(ifm) + jf0 = mj0(ifm) + + ibconf = mibcon(ifm) + + allocate(toptf_int(nxf,nyf)) + allocate(dn0ct(nzct,nxct,nyct)) + allocate(dn0uct(nzct,nxct,nyct)) + allocate(dn0vct(nzct,nxct,nyct)) + + ! Grab the coarse tile density vars + CALL fill_coarse_tile (nzc,nxc,nyc,basic_g(icm)%dn0,nzct,nxct,nyct,dn0ct, & + ic0,jc0,ict0,jct0,ifm,icm,3) + CALL fill_coarse_tile (nzc,nxc,nyc,basic_g(icm)%dn0u,nzct,nxct,nyct,dn0uct, & + ic0,jc0,ict0,jct0,ifm,icm,3) + CALL fill_coarse_tile (nzc,nxc,nyc,basic_g(icm)%dn0v,nzct,nxct,nyct,dn0vct, & + ic0,jc0,ict0,jct0,ifm,icm,3) + + ! Interpolate topography for subsequent interp_var calls + CALL interp_var (1,nxc,nyc,grid_g(icm)%topt,1,nxct,nyct,dn0ct, & + 1,nxf,nyf,toptf_int,basic_g(ifm)%dn0,grid_g(ifm)%topt, & + toptf_int,ifm,icm,ctipm(1,ifm),ctjpm(1,ifm),ctkpm(1,ifm), & + ic0,jc0,ict0,jct0,if0,jf0,ibconf,'t',0,0,2) + + ! ifflag == 1 --> interpolate the var weights + ! ifflag == 2 --> interpolate the future level atmospheric variables + + select case (ifflag) + case (1) + ! var weights + CALL interp_var (nzc,nxc,nyc,varinit_g(icm)%varwts,nzct,nxct,nyct,dn0ct, & + nzf,nxf,nyf,varinit_g(ifm)%varwts,basic_g(ifm)%dn0, & + grid_g(ifm)%topt,toptf_int,ifm,icm,ctipm(1,ifm), & + ctjpm(1,ifm),ctkpm(1,ifm),ic0,jc0,ict0,jct0,if0,jf0, & + ibconf,'t',0,1,3) + + case (2) + ! future level vars + + ! U + CALL interp_var (nzc,nxc,nyc,varinit_g(icm)%varuf,nzct,nxct,nyct,dn0uct, & + nzf,nxf,nyf,varinit_g(ifm)%varuf,basic_g(ifm)%dn0u, & + grid_g(ifm)%topt,toptf_int,ifm,icm,ctipm(1,ifm), & + ctjpm(1,ifm),ctkpm(1,ifm),ic0,jc0,ict0,jct0,if0,jf0, & + ibconf,'u',1,1,3) + + ! V + CALL interp_var (nzc,nxc,nyc,varinit_g(icm)%varvf,nzct,nxct,nyct,dn0vct, & + nzf,nxf,nyf,varinit_g(ifm)%varvf,basic_g(ifm)%dn0v, & + grid_g(ifm)%topt,toptf_int,ifm,icm,ctipm(1,ifm), & + ctjpm(1,ifm),ctkpm(1,ifm),ic0,jc0,ict0,jct0,if0,jf0, & + ibconf,'v',1,1,3) + + ! P + CALL interp_var (nzc,nxc,nyc,varinit_g(icm)%varpf,nzct,nxct,nyct,dn0ct, & + nzf,nxf,nyf,varinit_g(ifm)%varpf,basic_g(ifm)%dn0, & + grid_g(ifm)%topt,toptf_int,ifm,icm,ctipm(1,ifm), & + ctjpm(1,ifm),ctkpm(1,ifm),ic0,jc0,ict0,jct0,if0,jf0, & + ibconf,'t',0,1,3) + + ! T + CALL interp_var (nzc,nxc,nyc,varinit_g(icm)%vartf,nzct,nxct,nyct,dn0ct, & + nzf,nxf,nyf,varinit_g(ifm)%vartf,basic_g(ifm)%dn0, & + grid_g(ifm)%topt,toptf_int,ifm,icm,ctipm(1,ifm), & + ctjpm(1,ifm),ctkpm(1,ifm),ic0,jc0,ict0,jct0,if0,jf0, & + ibconf,'t',1,1,3) + + ! R + CALL interp_var (nzc,nxc,nyc,varinit_g(icm)%varrf,nzct,nxct,nyct,dn0ct, & + nzf,nxf,nyf,varinit_g(ifm)%varrf,basic_g(ifm)%dn0, & + grid_g(ifm)%topt,toptf_int,ifm,icm,ctipm(1,ifm), & + ctjpm(1,ifm),ctkpm(1,ifm),ic0,jc0,ict0,jct0,if0,jf0, & + ibconf,'t',1,1,3) + + endselect + + deallocate(toptf_int) + deallocate(dn0ct) + deallocate(dn0uct) + deallocate(dn0vct) + + return +END SUBROUTINE interp_varf + +!############################################################################## +Subroutine interp_nest_bounds (icm,ifm) + +! This routine will perform initialization of fine grids by interpolating +! from the parent (coarse) grid. + + use node_mod + use mem_grid + use mem_basic + use mem_nestb + use var_tables + + implicit none + + integer :: icm, ifm + + integer :: nxf, nyf, nzf, nxc, nyc, nzc, nxct, nyct, nzct, ic0, jc0, ict0, jct0, if0, jf0, ivar, ibconf + real, dimension(:,:,:), allocatable :: dn0ct, dn0uct, dn0vct, varf + + ! These are for convenience + nxf = mmxp(ifm) + nyf = mmyp(ifm) + nzf = mmzp(ifm) + + nxc = mmxp(icm) + nyc = mmyp(icm) + nzc = mmzp(icm) + + nxct = ctnxp(ifm) + nyct = ctnyp(ifm) + nzct = ctnzp(ifm) + + ic0 = mi0(icm) + jc0 = mj0(icm) + + ict0 = cti0(ifm) + jct0 = ctj0(ifm) + + if0 = mi0(ifm) + jf0 = mj0(ifm) + + ibconf = mibcon(ifm) + + allocate(dn0ct(nzct,nxct,nyct)) + allocate(dn0uct(nzct,nxct,nyct)) + allocate(dn0vct(nzct,nxct,nyct)) + + allocate(varf(nzf,nxf,nyf)) + + ! Interpolate the prognostic variables (u, v, w, p, and scalars), then copy + ! tile edges to domain boundaries. + ! Since the topology interpolation is not being used (irtgflg == 0) in the + ! calls to interp_var, use grid_g(ifm)%topt for both topt arguments. + CALL fill_coarse_tile (nzc,nxc,nyc,basic_g(icm)%dn0,nzct,nxct,nyct,dn0ct & + ,ic0,jc0,ict0,jct0,ifm,icm,3) + CALL fill_coarse_tile (nzc,nxc,nyc,basic_g(icm)%dn0u,nzct,nxct,nyct,dn0uct & + ,ic0,jc0,ict0,jct0,ifm,icm,3) + CALL fill_coarse_tile (nzc,nxc,nyc,basic_g(icm)%dn0v,nzct,nxct,nyct,dn0vct & + ,ic0,jc0,ict0,jct0,ifm,icm,3) + + ! U + CALL interp_var (nzc,nxc,nyc,basic_g(icm)%uc,nzct,nxct,nyct,dn0uct & + ,nzf,nxf,nyf,varf,basic_g(ifm)%dn0u,grid_g(ifm)%topt & + ,grid_g(ifm)%topt,ifm,icm,ctipm(1,ifm),ctjpm(1,ifm) & + ,ctkpm(1,ifm),ic0,jc0,ict0,jct0,if0,jf0,ibconf,'u',1,0,3) + CALL copy_nest_bounds (nzf,nxf,nyf,varf,nbounds(ifm)%bux,nbounds(ifm)%buy & + ,nbounds(ifm)%buz,'u',nstbot,nsttop,ibcon) + + ! V + CALL interp_var (nzc,nxc,nyc,basic_g(icm)%vc,nzct,nxct,nyct,dn0vct & + ,nzf,nxf,nyf,varf,basic_g(ifm)%dn0v,grid_g(ifm)%topt & + ,grid_g(ifm)%topt,ifm,icm,ctipm(1,ifm),ctjpm(1,ifm) & + ,ctkpm(1,ifm),ic0,jc0,ict0,jct0,if0,jf0,ibconf,'v',1,0,3) + CALL copy_nest_bounds (nzf,nxf,nyf,varf,nbounds(ifm)%bvx,nbounds(ifm)%bvy & + ,nbounds(ifm)%bvz,'v',nstbot,nsttop,ibcon) + + ! W + CALL interp_var (nzc,nxc,nyc,basic_g(icm)%wc,nzct,nxct,nyct,dn0ct & + ,nzf,nxf,nyf,varf,basic_g(ifm)%dn0,grid_g(ifm)%topt & + ,grid_g(ifm)%topt,ifm,icm,ctipm(1,ifm),ctjpm(1,ifm) & + ,ctkpm(1,ifm),ic0,jc0,ict0,jct0,if0,jf0,ibconf,'w',1,0,3) + CALL copy_nest_bounds (nzf,nxf,nyf,varf,nbounds(ifm)%bwx,nbounds(ifm)%bwy & + ,nbounds(ifm)%bwz,'w',nstbot,nsttop,ibcon) + + ! P + CALL interp_var (nzc,nxc,nyc,basic_g(icm)%pc,nzct,nxct,nyct,dn0ct & + ,nzf,nxf,nyf,varf,basic_g(ifm)%dn0,grid_g(ifm)%topt & + ,grid_g(ifm)%topt,ifm,icm,ctipm(1,ifm),ctjpm(1,ifm) & + ,ctkpm(1,ifm),ic0,jc0,ict0,jct0,if0,jf0,ibconf,'t',0,0,3) + CALL copy_nest_bounds (nzf,nxf,nyf,varf,nbounds(ifm)%bpx,nbounds(ifm)%bpy & + ,nbounds(ifm)%bpz,'t',nstbot,nsttop,ibcon) + + do ivar = 1,num_scalar(ifm) + CALL interp_var (nzc,nxc,nyc,scalar_tab(ivar,icm)%var_p,nzct,nxct,nyct & + ,dn0ct,nzf,nxf,nyf,varf,basic_g(ifm)%dn0,grid_g(ifm)%topt & + ,grid_g(ifm)%topt,ifm,icm,ctipm(1,ifm),ctjpm(1,ifm) & + ,ctkpm(1,ifm),ic0,jc0,ict0,jct0,if0,jf0,ibconf,'t',1,0,3) + CALL copy_nest_bounds (nzf,nxf,nyf,varf,nbounds(ifm)%bsx(1,1,1,ivar) & + ,nbounds(ifm)%bsy(1,1,1,ivar),nbounds(ifm)%bsz(1,1,1,ivar),'t' & + ,nstbot,nsttop,ibcon) + enddo + + deallocate(dn0ct) + deallocate(dn0uct) + deallocate(dn0vct) + + deallocate(varf) + + return +END SUBROUTINE interp_nest_bounds + diff --git a/src/6.2.16/nesting/nest_feed.f90 b/src/6.2.16/nesting/nest_feed.f90 new file mode 100644 index 0000000..921dcbf --- /dev/null +++ b/src/6.2.16/nesting/nest_feed.f90 @@ -0,0 +1,107 @@ +!############################################################################## +Subroutine fdback (ac,af,dc,df,nzc,nxc,nyc,nzf,nxf,nyf,nf,vnam,sumflg) + +use mem_grid + +implicit none + +integer :: nzc,nxc,nyc,nzf,nxf,nyf,nf,ibeg,jbeg,kbeg,iend,jend,kend & + ,nc,iinc,jinc,kv,ifbcf,ic,jc,kc,if,jf,kf +real, dimension(nzc,nxc,nyc) :: ac,dc,sumflg +real, dimension(nzf,nxf,nyf) :: af,df +character(len=*) :: vnam + +nc = nxtnest(nf) +CALL azero (nzc*nxc*nyc,sumflg) +ibeg = 2 +jbeg = 1 + jdim +kbeg = 2 +iend = nxf - 1 +jend = nyf - jdim +kend = nzf - 1 +iinc = 1 +jinc = 1 +kv = 0 + +if (vnam .eq. 'u') then + ibeg = 1 + nstratx(nf) + iend = nxf - 1 - nstratx(nf) + iinc = nstratx(nf) + ifbcf = 1 +elseif (vnam .eq. 'v') then + jbeg = 1 + nstraty(nf) * jdim + jend = nyf - (1 + nstraty(nf)) * jdim + jinc = nstraty(nf) + ifbcf = 2 +elseif (vnam .eq. 'w' .or. vnam .eq. 'terr') then + if (vnam .eq. 'w') then + kbeg = 1 + nrz(kpm(2,nf),nf) + kend = nzf - 1 - nrz(kpm(nzf-1,nf),nf) + kv = 1 + else + kbeg = 1 + kend = 1 + endif + ifbcf = 3 +else + ifbcf = 4 +endif + +!print*,'fdback:',vnam,':',ibeg,iend,ipm(ibeg,nf),ipm(iend,nf) + +kf = kbeg +1 continue + kc = kpm(kf,nf) + if (vnam .eq. 'terr') kc = 1 + + do jf = jbeg,jend,jinc + jc = jpm(jf,nf) + if (vnam .eq. 'p' .or. vnam .eq. 'terr') then + do if = ibeg,iend,iinc + ic = ipm(if,nf) + ac(kc,ic,jc) = ac(kc,ic,jc) * sumflg(kc,ic,jc) & + + af(kf,if,jf) * fbcf(kf,nf,ifbcf) + sumflg(kc,ic,jc) = 1. + enddo + elseif (vnam .eq. 'w') then + do if = ibeg,iend,iinc + ic = ipm(if,nf) + ac(kc,ic,jc) = ac(kc,ic,jc) * sumflg(kc,ic,jc) & + + af(kf,if,jf) * fbcf(kf,nf,ifbcf) & + * (df(kf,if,jf) + df(kf+kv,if,jf)) + sumflg(kc,ic,jc) = 1. + enddo + else + do if = ibeg,iend,iinc + ic = ipm(if,nf) + ac(kc,ic,jc) = ac(kc,ic,jc) * sumflg(kc,ic,jc) & + + af(kf,if,jf) * fbcf(kf,nf,ifbcf) * df(kf,if,jf) + sumflg(kc,ic,jc) = 1. + enddo + endif + enddo + kf = kf + 1 + if (vnam .eq. 'w') kf = kf + nrz(kpm(kf,nf),nf) - 1 +if (kf .le. kend) go to 1 + +do kc = kpm(kbeg,nf),kpm(kend,nf) + do jc = jpm(jbeg,nf),jpm(jend,nf) + + if (vnam .eq. 'w') then + + do ic = ipm(ibeg,nf),ipm(iend,nf) + ac(kc,ic,jc) = ac(kc,ic,jc) / (dc(kc,ic,jc) + dc(kc+kv,ic,jc)) + enddo + + elseif (vnam .ne. 'p' .and. vnam .ne. 'terr') then + + do ic = ipm(ibeg,nf),ipm(iend,nf) + ac(kc,ic,jc) = ac(kc,ic,jc) / dc(kc,ic,jc) + enddo + + endif + enddo +enddo + +return +END SUBROUTINE fdback diff --git a/src/6.2.16/nesting/nest_filldens.f90 b/src/6.2.16/nesting/nest_filldens.f90 new file mode 100644 index 0000000..8e9b851 --- /dev/null +++ b/src/6.2.16/nesting/nest_filldens.f90 @@ -0,0 +1,96 @@ +!############################################################################## +Subroutine fillscr (m1,m2,m3,n1,n2,n3,k1,k2,scr,var) + +implicit none + +integer :: m1,m2,m3,n1,n2,n3,k1,k2 +real :: scr(m1,m2,m3),var(n1,n2,n3) +integer :: i,j,k + +do j = 1,n3 + do i = 1,n2 + do k = k1,k2 + scr(k,i,j) = var(k,i,j) + enddo + enddo +enddo + +return +END SUBROUTINE fillscr + +!############################################################################## +Subroutine fillvar (m1,m2,m3,n1,n2,n3,k1,k2,scr,var) + +implicit none + +integer :: m1,m2,m3,n1,n2,n3,k1,k2 +real :: scr(m1,m2,m3),var(n1,n2,n3) +integer :: i,j,k + +do j = 1,n3 + do i = 1,n2 + do k = k1,k2 + var(k,i,j) = scr(k,i,j) + enddo + enddo +enddo + +return +END SUBROUTINE fillvar + +!############################################################################## +Subroutine dnswt2 (nzmx,nxmx,nymx,n1,n2,n3,var1,dn0x,vnam,idir) + +implicit none + +integer :: nzmx,nxmx,nymx,n1,n2,n3,idir +real :: var1(nzmx,nxmx,nymx),dn0x(n1,n2,n3) +character(len=*) :: vnam +integer :: i,j,k + +if (idir .eq. 1) then + + if (vnam .eq. 'w') then + do j = 1,n3 + do i = 1,n2 + do k = 1,n1-1 + var1(k,i,j) = var1(k,i,j) & + * .5 * (dn0x(k,i,j) + dn0x(k+1,i,j)) + enddo + enddo + enddo + else + do j = 1,n3 + do i = 1,n2 + do k = 1,n1 + var1(k,i,j) = var1(k,i,j) * dn0x(k,i,j) + enddo + enddo + enddo + endif + +elseif (idir .eq. 2) then + + if (vnam .eq. 'w') then + do j = 1,n3 + do i = 1,n2 + do k = 1,n1-1 + var1(k,i,j) = var1(k,i,j) & + / (.5 * (dn0x(k,i,j) + dn0x(k+1,i,j))) + enddo + enddo + enddo + else + do j = 1,n3 + do i = 1,n2 + do k = 1,n1 + var1(k,i,j) = var1(k,i,j) / dn0x(k,i,j) + enddo + enddo + enddo + endif + +endif + +return +END SUBROUTINE dnswt2 diff --git a/src/6.2.16/nesting/nest_intrp.f90 b/src/6.2.16/nesting/nest_intrp.f90 new file mode 100644 index 0000000..1211e49 --- /dev/null +++ b/src/6.2.16/nesting/nest_intrp.f90 @@ -0,0 +1,1140 @@ +!############################################################################## +Subroutine nstbtnd (m1,m2,m3,ia,iz,ja,jz,ibcon & + ,scp,sct,bx,by,bz,vnam,tymeinv,nstbot,nsttop,jdim) + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,ibcon,nstbot,nsttop,jdim,i,j,k & + ,nzfm,nxfm,nyfm,incia,inciz,incja,incjz +real :: tymeinv +real, dimension(m1,m2,m3) :: scp,sct +real, dimension(m1,m3,2) :: bx +real, dimension(m1,m2,2) :: by +real, dimension(m2,m3,2) :: bz +character(len=*) :: vnam + +nzfm = m1 +nxfm = iz + 1 +nyfm = jz + 1 +if (vnam .eq. 'w') nzfm =nzfm - 1 +if (vnam .eq. 'u') nxfm =nxfm - 1 +if (vnam .eq. 'v') nyfm =nyfm - 1 +if (jdim .eq. 0) nyfm = 1 + +incia = 0 +inciz = 0 +if (iand(ibcon,1) .ne. 0) incia = 1 +if (iand(ibcon,2) .ne. 0 .and. vnam .ne. 'u') inciz = 1 +incja = 0 +incjz = 0 +if (iand(ibcon,4) .ne. 0) incja = jdim +if (iand(ibcon,8) .ne. 0 .and. vnam .ne. 'v') incjz = jdim + +if (nstbot .eq. 0) then + do j = ja,jz + do i = ia,iz + sct(1,i,j) = (bz(i,j,1) - scp(1,i,j)) * tymeinv + enddo + enddo +endif +if (nsttop .eq. 0) then + do j = ja,jz + do i = ia,iz + sct(nzfm,i,j) = (bz(i,j,2) - scp(nzfm,i,j)) * tymeinv + enddo + enddo +endif + +if (iand(ibcon,1) .ne. 0) then + do j = ja-incja,jz+incjz + do k = 1,m1 + sct(k,1,j) = (bx(k,j,1) - scp(k,1,j)) * tymeinv + enddo + enddo +endif + +if (iand(ibcon,2) .ne. 0) then + do j = ja-incja,jz+incjz + do k = 1,m1 + sct(k,nxfm,j) = (bx(k,j,2) - scp(k,nxfm,j)) * tymeinv + enddo + enddo +endif + +if (jdim .eq. 1) then + if (iand(ibcon,4) .ne. 0) then + do i = ia-incia,iz+inciz + do k = 1,m1 + sct(k,i,1) = (by(k,i,1) - scp(k,i,1)) * tymeinv + enddo + enddo + endif + if (iand(ibcon,8) .ne. 0) then + do i = ia-incia,iz+inciz + do k = 1,m1 + sct(k,i,nyfm) = (by(k,i,2) - scp(k,i,nyfm)) * tymeinv + enddo + enddo + endif +endif + +return +END SUBROUTINE nstbtnd + +!############################################################################## +Subroutine cofnest () + +use mem_grid + +implicit none + +integer :: nf,nc,nrat,if,jf,kf,kc +real :: alpha,et,ev +real, dimension(:), allocatable :: vctr1, vctr2, vctr3 + +do nf = 2,ngrids + nc = nxtnest(nf) + + allocate(vctr1(nnzp(nc))) + allocate(vctr2(nnzp(nc))) + allocate(vctr3(nnzp(nc))) + + if (nc .eq. 0) go to 50 + nrat = nstratx(nf) + alpha = ((1. / float(nrat)) ** 2 - 1.) / 24. + do if = 1,nnxp(nf) + et = -.5 + float(2 * mod(if+nrat-2,nrat) + 1) / (2.0 * float(nrat)) + ev = -.5 + float(mod(if+nrat-2,nrat) + 1) / float(nrat) + + ei1(if,nf) = et * (et - 1.) / 2. + alpha + ei2(if,nf) = (1. - et * et) - 2. * alpha + ei3(if,nf) = et * (et + 1.) / 2. + alpha + ei4(if,nf) = (ev * ev - 0.25) * (1.5 - ev) / 6.0 + ei5(if,nf) = (0.5 - ev) * (2.25 - ev * ev) * 0.5 + ei6(if,nf) = (0.5 + ev) * (2.25 - ev * ev) * 0.5 + ei7(if,nf) = (ev * ev - 0.25) * (1.5 + ev) / 6.0 + enddo + + if (jdim .eq. 1) then + nrat = nstraty(nf) + alpha = ((1. / float(nrat)) ** 2 - 1.) / 24. + do jf = 1,nnyp(nf) + et = -.5 + float(2 * mod(jf+nrat-2,nrat) + 1) / (2.0 * float(nrat)) + ev = -.5 + float(mod(jf+nrat-2,nrat) + 1) / float(nrat) + + ej1(jf,nf) = et * (et - 1.) / 2. + alpha + ej2(jf,nf) = (1. - et * et) - 2. * alpha + ej3(jf,nf) = et * (et + 1.) / 2. + alpha + ej4(jf,nf) = (ev * ev - 0.25) * (1.5 - ev) / 6.0 + ej5(jf,nf) = (0.5 - ev) * (2.25 - ev * ev) * 0.5 + ej6(jf,nf) = (0.5 + ev) * (2.25 - ev * ev) * 0.5 + ej7(jf,nf) = (ev * ev - 0.25) * (1.5 + ev) / 6.0 + enddo + endif + + do kc = 1,nnzp(nc) + vctr1(kc) = 0. + vctr2(kc) = 0. + vctr3(kc) = 0. + enddo + + do kf = 1,nnzp(nf) + kc = kpm(kf,nf) + ek1(kf,nf) = (ztn(kf,nf) - ztn(kc,nc)) * (ztn(kf,nf) - ztn(kc+1,nc)) & + / ((ztn(kc-1,nc) - ztn(kc,nc)) * (ztn(kc-1,nc) - ztn(kc+1,nc))) + ek2(kf,nf) = (ztn(kf,nf) - ztn(kc-1,nc)) * (ztn(kf,nf) - ztn(kc+1,nc & + )) / ((ztn(kc,nc) - ztn(kc-1,nc)) * (ztn(kc,nc) - ztn(kc+1,nc))) + ek3(kf,nf) = (ztn(kf,nf) - ztn(kc-1,nc)) * (ztn(kf,nf) - ztn(kc,nc)) & + / ((ztn(kc+1,nc) - ztn(kc-1,nc)) * (ztn(kc+1,nc) - ztn(kc,nc))) + if (kf .ge. 2 .and. kf .le. nnzp(nf) - 1) then + vctr1(kc) = vctr1(kc) + (zmn(kf,nf) - zmn(kf-1,nf)) * ek1(kf,nf) + vctr2(kc) = vctr2(kc) + (zmn(kf,nf) - zmn(kf-1,nf)) * ek2(kf,nf) + vctr3(kc) = vctr3(kc) + (zmn(kf,nf) - zmn(kf-1,nf)) * ek3(kf,nf) + endif + enddo +!c if(kpm(2,nf).gt.2)then +!c vctr1(1)=vctr1(1+nrz(kpm(2,nf),nc) +!c vctr2(1)=vctr2(1) +!c vctr3(1)=vctr3(1) +!c endif +!c if(kpm(nnzp(nf)-1,nf).lt.nnzp(nc)-1)then +!c vctr1(nnzp(nf))=vctr1(nnzp(nf)-1) +!c vctr2(nnzp(nf))=vctr2(nnzp(nf)-1) +!c vctr3(nnzp(nf))=vctr3(nnzp(nf)-1) +!c endif + do kf = 2,nnzp(nf) - 1 + kc = kpm(kf,nf) + ek1(kf,nf) = ek1(kf,nf) - dztn(kc,nc) * vctr1(kc) + ek2(kf,nf) = ek2(kf,nf) - dztn(kc,nc) * vctr2(kc) + 1. + ek3(kf,nf) = ek3(kf,nf) - dztn(kc,nc) * vctr3(kc) + enddo +!cccccccccccccccc +!cc ek1(1,nf)=ek1(2,nf) +!cc ek2(1,nf)=ek2(2,nf) +!cc ek3(1,nf)=ek3(2,nf) +!cccccccccccccccccc + + do kf = 1,nnzp(nf)-1 + kc = kpm(kf+1,nf) + if (kf .eq. 1 .or. kf .eq. nnzp(nf)-1 .or. kc .ne. kpm(kf,nf)) then + ek4(kf,nf) = 0. + ek5(kf,nf) = 1. + ek6(kf,nf) = 0. + ek7(kf,nf) = 0. + else + ek4(kf,nf) = ek4(kf-1,nf) + (zmn(kf,nf) - zmn(kf-1,nf)) & + * (-ek1(kf,nf)) * dztn(kc-1,nc) + ek5(kf,nf) = ek5(kf-1,nf) + (zmn(kf,nf) - zmn(kf-1,nf)) & + * (ek1(kf,nf) * dztn(kc-1,nc) - ek2(kf,nf) * dztn(kc,nc)) + ek6(kf,nf) = ek6(kf-1,nf) + (zmn(kf,nf) - zmn(kf-1,nf)) & + * (ek2(kf,nf) * dztn(kc,nc) - ek3(kf,nf) * dztn(kc+1,nc)) + ek7(kf,nf) = ek7(kf-1,nf) + (zmn(kf,nf) - zmn(kf-1,nf)) & + * ek3(kf,nf) * dztn(kc+1,nc) + endif + enddo + do kf = 1,nnzp(nf) + fbcf(kf,nf,1) = dztn(kpm(kf,nf),nc) / (float(nstraty(nf)) * dztn(kf,nf)) + fbcf(kf,nf,2) = dztn(kpm(kf,nf),nc) / (float(nstratx(nf)) * dztn(kf,nf)) + fbcf(kf,nf,3) = 1. / float(nstratx(nf) * nstraty(nf)) + fbcf(kf,nf,4) = dztn(kpm(kf,nf),nc) & + / (float(nstratx(nf) * nstraty(nf)) * dztn(kf,nf)) + enddo +50 continue + + deallocate(vctr1) + deallocate(vctr2) + deallocate(vctr3) +enddo + +return +END SUBROUTINE cofnest + +!############################################################################## +Subroutine fill_density_tiles (nzc,nxc,nyc,dn01dc,dn0c,dn0uc,dn0vc, & + nzct,nxct,nyct,dn01dct,dn0ct,dn0uct,dn0vct, & + ic0,jc0,ict0,jct0,ifm,icm) + +! This routine will call fill_coarse_tile() for the 1D and 3D density +! variables. + + use node_mod + + implicit none + + integer :: nzc, nxc, nyc, nzct, nxct, nyct + integer :: ic0, jc0, ict0, jct0, ifm, icm + real, dimension(nzc) :: dn01dc + real, dimension(nzct) :: dn01dct + real, dimension(nzc,nxc,nyc) :: dn0c, dn0uc, dn0vc + real, dimension(nzct,nxct,nyct) :: dn0ct, dn0uct, dn0vct + + ! 1D Density + CALL fill_coarse_tile (nzc,1,1,dn01dc,nzct,1,1,dn01dct,0,0,0,0,ifm,icm,1) + + ! 3D Density + CALL fill_coarse_tile (nzc,nxc,nyc,dn0c,nzct,nxct,nyct,dn0ct & + ,ic0,jc0,ict0,jct0,ifm,icm,3) + CALL fill_coarse_tile (nzc,nxc,nyc,dn0uc,nzct,nxct,nyct,dn0uct & + ,ic0,jc0,ict0,jct0,ifm,icm,3) + CALL fill_coarse_tile (nzc,nxc,nyc,dn0vc,nzct,nxct,nyct,dn0vct & + ,ic0,jc0,ict0,jct0,ifm,icm,3) + + return +END SUBROUTINE fill_density_tiles + +!############################################################################## +Subroutine interp_refs_1d (nzc,dn01dc,th01dc,u01dc,v01dc,rt01dc,pi01dc,nzct & + ,dn01dct,nzf,nxf,nyf,dn01df,th01df,u01df,v01df,rt01df,pi01df,toptf & + ,toptf_int,ifm,icm,ctipm,ctjpm,ctkpm,ibconf,ifg_mode) + +! This routine will interpolate the 1D reference state from the parent grid. + + use node_mod, only:IFG_HH_INIT,IFG_HIST_INIT,IFG_VF_INIT + use rconstants + + implicit none + + integer :: nzc, nzct, nzf, nxf, nyf, ifm, icm, ibconf, ifg_mode + real, dimension(nzc) :: dn01dc, th01dc, u01dc, v01dc, rt01dc, pi01dc + real, dimension(nzct) :: dn01dct + real, dimension(nzf) :: dn01df, th01df, u01df, v01df, rt01df, pi01df, toptf, toptf_int + integer, dimension(nxf) :: ctipm + integer, dimension(nyf) :: ctjpm + integer, dimension(nzf) :: ctkpm + + integer :: k + real :: c1, c2 + + ! for calculation of pi (exner) + c1 = rgas / (cp - rgas) + c2 = cp * (rgas / p00) ** c1 + + ! Interpolate dn01d, th01d, u01d, v01d, rt01d and use dn01d, th01d to calculate pi + CALL interp_var (nzc,1,1,dn01dc,nzct,1,1,dn01dct,nzf,1,1,dn01df,dn01df,toptf,toptf_int, & + ifm,icm,ctipm,ctjpm,ctkpm,0,0,0,0,0,0,ibconf,'t',0,0,1) + + CALL interp_var (nzc,1,1,th01dc,nzct,1,1,dn01dct,nzf,1,1,th01df,dn01df,toptf,toptf_int, & + ifm,icm,ctipm,ctjpm,ctkpm,0,0,0,0,0,0,ibconf,'t',1,0,1) + + if ((ifg_mode .eq. IFG_HH_INIT) .or. (ifg_mode .eq. IFG_HIST_INIT) & + .or. (ifg_mode .eq. IFG_VF_INIT)) then + CALL interp_var (nzc,1,1,u01dc,nzct,1,1,dn01dct,nzf,1,1,u01df,dn01df,toptf,toptf_int, & + ifm,icm,ctipm,ctjpm,ctkpm,0,0,0,0,0,0,ibconf,'t',1,0,1) + + CALL interp_var (nzc,1,1,v01dc,nzct,1,1,dn01dct,nzf,1,1,v01df,dn01df,toptf,toptf_int, & + ifm,icm,ctipm,ctjpm,ctkpm,0,0,0,0,0,0,ibconf,'t',1,0,1) + endif + + CALL interp_var (nzc,1,1,rt01dc,nzct,1,1,dn01dct,nzf,1,1,rt01df,dn01df,toptf,toptf_int, & + ifm,icm,ctipm,ctjpm,ctkpm,0,0,0,0,0,0,ibconf,'t',1,0,1) + + do k = 1,nzf + pi01df(k) = c2 * (dn01df(k) * th01df(k)) ** c1 + enddo + + return +END SUBROUTINE interp_refs_1d + +!############################################################################## +Subroutine interp_refs_3d (nzc,nxc,nyc,dn0c,th0c,nzct,nxct,nyct,dn0ct, & + nzf,nxf,nyf,dn0f,dn0uf,dn0vf,th0f,pi0f,pf,toptf,toptf_int, & + ifm,icm,ctipm,ctjpm,ctkpm,ic0,jc0,ict0,jct0,if0,jf0,ibconf,ifg_mode) + +! This routine will interpolate the 3D reference state from the parent grid. + + use node_mod, only:nmachs,IFG_MKVF_INIT,IFG_MKHF_INIT + use rconstants + + implicit none + + integer :: nzc,nxc,nyc,nzct,nxct,nyct,nzf,nxf,nyf + integer :: ifm,icm,ic0,jc0,ict0,jct0,if0,jf0,ibconf,ifg_mode + real, dimension(nzc,nxc,nyc) :: dn0c,th0c + real, dimension(nzct,nxct,nyct) :: dn0ct + real, dimension(nzf,nxf,nyf) :: dn0f,dn0uf,dn0vf,th0f,pi0f,pf,toptf,toptf_int + integer, dimension(nzf) :: ctipm,ctjpm,ctkpm + + integer :: i,j,k + real :: c1,c2 + + ! for calculation of pi (exner) + c1 = rgas / (cp - rgas) + c2 = cp * (rgas / p00) ** c1 + + ! Interpolate dn0, th0, and calculate pi0 + ! 1. Do dn0 and th0 first without terrain + ! 2. Use dn0 and th0 (interpolated without terraine) to calculate pi0 + ! 3. Apply terrain interpolation to th0 and pi0 (leave dn0 alone for now) + + CALL interp_var (nzc,nxc,nyc,dn0c,nzct,nxct,nyct,dn0ct, & + nzf,nxf,nyf,dn0f,dn0f,toptf,toptf_int, & + ifm,icm,ctipm,ctjpm,ctkpm,ic0,jc0,ict0,jct0,if0,jf0,ibconf,'t',0,0,3) + + CALL interp_var (nzc,nxc,nyc,th0c,nzct,nxct,nyct,dn0ct, & + nzf,nxf,nyf,th0f,dn0f,toptf,toptf_int, & + ifm,icm,ctipm,ctjpm,ctkpm,ic0,jc0,ict0,jct0,if0,jf0,ibconf,'t',1,0,3) + + do j = 1,nyf + do i = 1,nxf + do k = 1,nzf + pi0f(k,i,j) = c2 * (dn0f(k,i,j) * th0f(k,i,j)) ** c1 + enddo + enddo + enddo + if (nmachs .gt. 1) then + CALL update_lbc_var (nzf,nxf,nyf,ifm,pi0f,3) + endif + + CALL interp_topo (nzf,nxf,nyf,th0f,toptf_int,toptf,ifm,'t',ibconf,3) + CALL interp_topo (nzf,nxf,nyf,pi0f,toptf_int,toptf,ifm,'t',ibconf,3) + + ! Average dn0 (grid center) to the horizontal grid cell edges. + CALL calc_dn0uv (nzf,nxf,nyf,dn0f,dn0uf,dn0vf,ibconf,ifm) + + ! Form the perturbation pressure if doing MAKEVFILE + if ((ifg_mode .eq. IFG_MKVF_INIT) .or. (ifg_mode .eq. IFG_MKHF_INIT)) then + if (ifg_mode .eq. IFG_MKVF_INIT) then + do j = 1,nyf + do i = 1,nxf + do k = 1,nzf + pf(k,i,j) = pf(k,i,j) - pi0f(k,i,j) + enddo + enddo + enddo + elseif (ifg_mode .eq. IFG_MKHF_INIT) then + do j = 1,nyf + do i = 1,nxf + do k = 1,nzf + pf(k,i,j) = pf(k,i,j) + pi0f(k,i,j) + enddo + enddo + enddo + endif + if (nmachs .gt. 1) then + CALL update_lbc_var (nzf,nxf,nyf,ifm,pf,3) + endif + endif + + return +END SUBROUTINE interp_refs_3d + +!############################################################################## +Subroutine interp_var (nzc,nxc,nyc,varc,nzct,nxct,nyct,densc,nzf,nxf,nyf,varf & + ,densf,toptf,toptf_int,ifm,icm,ctipm,ctjpm,ctkpm,ic0,jc0,ict0,jct0,if0,jf0 & + ,ibcon,vloc,idwflg,irtgflg,dimtype) + +! This routine will interpolate one variable. This routine will handle the +! application of density weighting. It can also deal with 1D, 2D and 3D fields. +! However, the arrays are always declared as 3D (z,x,y). Just set the corresponding +! dimension size to 1 if calling with a field of lesser rank than 3. Eg, if have +! 2D horizontal field (x,y), set nz to 1; if have a 2D vertical field (z,y), set +! nx to 1; etc. +! +! The argument vloc represents where the quantity is located on the Arakawa-C grid +! 'u' - west and east edges +! 'v' - north and south edges +! 'w' - top and bottom edges +! 't' - center (this can actually be anything but 'u', 'v', or 'w') +! +! For the density weighting, make sure corresponding density variable is used. +! Eg, for scalars, use dn0; for u, use dn0u; for v, use dn0v; etc. + + use node_mod, only: nmachs + + implicit none + + integer :: nzc, nxc, nyc, nzct, nxct, nyct, nzf, nxf, nyf, ifm, icm + integer :: ic0, jc0, ict0, jct0, if0, jf0, ibcon, idwflg, irtgflg, dimtype + character :: vloc + real, dimension(nzc,nxc,nyc) :: varc + real, dimension(nzct,nxct,nyct) :: densc + real, dimension(nzf,nxf,nyf) :: varf, densf + real, dimension(nxf,nyf) :: toptf, toptf_int + integer, dimension(nxf) :: ctipm + integer, dimension(nyf) :: ctjpm + integer, dimension(nzf) :: ctkpm + + integer :: avgflg + ! make temporary vars allocatable so that they don't take up space on the stack + real, dimension(:,:,:), allocatable :: varc_tile, tmp_varc, tmp_varf + + ! Extract the coarse tile which is the rectangular piece + allocate(varc_tile(nzct,nxct,nyct)) + CALL fill_coarse_tile (nzc,nxc,nyc,varc,nzct,nxct,nyct,varc_tile,ic0,jc0 & + ,ict0,jct0,ifm,icm,dimtype) + + if (idwflg .eq. 1) then + allocate(tmp_varc(nzct,nxct,nyct)) + allocate(tmp_varf(nzf,nxf,nyf)) + + ! For w, average the density, located in grid centers, to the grid edges. + if (vloc .eq. 'w') then + avgflg = 1 + else + avgflg = 0 + endif + + ! apply density weighting + ! this is a tile which needs all of its i,j locations worked on. Trick + ! denswt into applying weights everywhere by telling it that the varible + ! location is in the grid center (vloc = 't'), and + ! all four sides are domain boundaries (ibcon = 15). + CALL denswt (nzct,nxct,nyct,varc_tile,densc,tmp_varc,avgflg,1,'t',15) + + ! interpolate + CALL interp_field (nzct,nxct,nyct,tmp_varc,nzf,nxf,nyf,tmp_varf,ctipm & + ,ctjpm,ctkpm,if0,jf0,ifm,vloc,ibcon) + + ! remove density weighting + CALL denswt (nzf,nxf,nyf,tmp_varf,densf,varf,avgflg,0,vloc,ibcon) + + deallocate(tmp_varc) + deallocate(tmp_varf) + else + ! just interpolate + CALL interp_field (nzct,nxct,nyct,varc_tile,nzf,nxf,nyf,varf,ctipm,ctjpm & + ,ctkpm,if0,jf0,ifm,vloc,ibcon) + endif + + ! Vertical interpolation according to topography + ! If in parallel mode, interp_topo will update the subdomain boundaries. + ! If irtgflg is not 1, then we need to update the boundaries in this routine. + if (irtgflg .eq. 1) then + CALL interp_topo (nzf,nxf,nyf,varf,toptf_int,toptf,ifm,vloc,ibcon,dimtype) + else + ! Skip the update if this is a 1D (dimtype == 1) variable since there is no + ! need (no lateral boundary overlap). + if ((nmachs .gt. 1) .and. (dimtype .ne. 1)) then + CALL update_lbc_var (nzf,nxf,nyf,ifm,varf,dimtype) + endif + endif + + deallocate(varc_tile) + + return +END SUBROUTINE interp_var + +!############################################################################## +Subroutine interp_varsfc (nzc,nxc,nyc,varc,nzct,nxct,nyct,nzf,nxf,nyf,varf & + ,ifm,icm,ctipm,ctjpm,ctkpm,ic0,jc0,ict0,jct0,if0,jf0 & + ,ibcon,vloc,dimtype) + +! This routine is the counterpart to interp_var but for use with runtypes: +! IFG_MKVF_INIT initialization for MAKEVFILE +! IFG_MKHF_INIT initialization for MAKEHFILE +! IFG_TOPT1_INIT initialization for MAKESFC, topography +! IFG_TOPT2_INIT initialization for MAKESFC, topography +! IFG_SST_INIT initialization for MAKESFC, sea surface temperature +! +! These runtypes associated with make surface and make varfile do not require +! full memory allocation, and so these are streamlined to save memory since +! these runtypes can only be done on a single processor (nmachs=1) by default. +! +! The argument vloc represents where the quantity is located on the Arakawa-C grid +! 'u' - west and east edges +! 'v' - north and south edges +! 'w' - top and bottom edges +! 't' - center (this can actually be anything but 'u', 'v', or 'w') + + use node_mod, only: nmachs + + implicit none + + integer :: nzc, nxc, nyc, nzct, nxct, nyct, nzf, nxf, nyf, ifm, icm + integer :: ic0, jc0, ict0, jct0, if0, jf0, ibcon, dimtype + character :: vloc + real, dimension(nzc,nxc,nyc) :: varc + real, dimension(nzf,nxf,nyf) :: varf + integer, dimension(nxf) :: ctipm + integer, dimension(nyf) :: ctjpm + integer, dimension(nzf) :: ctkpm + + integer :: avgflg + ! make temporary vars allocatable so that they don't take up space on the stack + real, dimension(:,:,:), allocatable :: varc_tile + + ! Extract the coarse tile which is the rectangular piece + allocate(varc_tile(nzct,nxct,nyct)) + CALL fill_coarse_tile (nzc,nxc,nyc,varc,nzct,nxct,nyct,varc_tile,ic0,jc0 & + ,ict0,jct0,ifm,icm,dimtype) + + ! just interpolate + CALL interp_field (nzct,nxct,nyct,varc_tile,nzf,nxf,nyf,varf,ctipm,ctjpm & + ,ctkpm,if0,jf0,ifm,vloc,ibcon) + + deallocate(varc_tile) + + return +END SUBROUTINE interp_varsfc + +!############################################################################## +Subroutine fill_coarse_tile (nzc,nxc,nyc,varc,nzct,nxct,nyct,varc_tile & + ,ic0,jc0,ict0,jct0,ifm,icm,dimtype) + +! This routine will fill in coarse variable with the appropriate tile region. +! +! For sequential mode, simply pull the tile directly out of the coarse variables. +! +! For parallel mode, go through the send/receive MPI exchange which will piece +! together the tile. +! +! Variable numbers are defined in node_mod.f90. If no match for any variable +! number, then vnum is the index into the scalar table. + + use node_mod + use var_tables + use mem_basic + use mem_grid + use mem_varinit + use ref_sounding + + implicit none + + integer :: nzc,nxc,nyc,nzct,nxct,nyct,ic0,jc0,ict0,jct0,ifm,icm,dimtype + real, dimension(nzc,nxc,nyc) :: varc + real, dimension(nzct,nxct,nyct) :: varc_tile + + if (nmachs > 1) then + ! Parallel mode + CALL update_ctile (nzc,nxc,nyc,varc,nzct,nxct,nyct,varc_tile,ic0,jc0 & + ,ifm,icm,dimtype) + else + ! Sequential mode + CALL copy_coarse_tile (nzc,nxc,nyc,varc,nzct,nxct,nyct,varc_tile,ict0,jct0) + endif + + return +END SUBROUTINE fill_coarse_tile + +!############################################################################## +Subroutine copy_coarse_tile (nzc,nxc,nyc,varc,nzct,nxct,nyct,varc_tile,ict0,jct0) + +! This routine will pull out a tile from the main coarse variable and +! place a copy of this into ctile. + + implicit none + + integer :: nzc, nxc, nyc, nzct, nxct, nyct, ict0, jct0 + real, dimension(nzc,nxc,nyc) :: varc + real, dimension(nzct,nxct,nyct) :: varc_tile + + integer :: i, j, k + + do j = 1, nyct + do i = 1, nxct + do k = 1, nzct + varc_tile(k,i,j) = varc(k,i+ict0,j+jct0) + enddo + enddo + enddo + + return +END SUBROUTINE copy_coarse_tile + +!############################################################################## +Subroutine denswt (nz,nx,ny,var,dens,vout,avgflg,idir,vloc,ibcon) + +! This routine will apply density weighting as part of the interpolation +! process. +! +! The avgflg argument controls whether the density is averaged in +! the vertical +! avgflg action +! 1 use average of density at k and k+1 levels +! 0 use (k,i,j) value of density +! +! The idir argument controls whether the weights are being +! applied or removed. +! idir action +! 1 multiply by density +! 0 divide by density + + implicit none + + integer :: nz, nx, ny, avgflg, idir, ibcon + real, dimension(nz,nx,ny) :: var, dens, vout + character :: vloc + + integer :: i, j, k + integer :: i1, i2, j1, j2 + + CALL set_horiz_limits (nx,ny,i1,i2,j1,j2,vloc,ibcon) + if (idir .eq. 1) then + ! multiply by density + if (avgflg .eq. 1) then + ! vertically average density + do j = j1, j2 + do i = i1, i2 + do k = 1, nz-1 + vout(k,i,j) = var(k,i,j) * 0.5 * (dens(k,i,j)+dens(k+1,i,j)) + enddo + enddo + enddo + else + ! use density as is + do j = j1, j2 + do i = i1, i2 + do k = 1, nz + vout(k,i,j) = var(k,i,j) * dens(k,i,j) + enddo + enddo + enddo + endif + else + ! divide by density + if (avgflg .eq. 1) then + ! vertically average density + do j = j1, j2 + do i = i1, i2 + do k = 1, nz-1 + vout(k,i,j) = var(k,i,j) / (0.5 * (dens(k,i,j)+dens(k+1,i,j))) + enddo + enddo + enddo + else + ! use density as is + do j = j1, j2 + do i = i1, i2 + do k = 1, nz + vout(k,i,j) = var(k,i,j) / dens(k,i,j) + enddo + enddo + enddo + endif + endif + + return +END SUBROUTINE denswt + +!############################################################################## +Subroutine interp_field (nzc,nxc,nyc,varc,nzf,nxf,nyf,varf,ctipm,ctjpm,ctkpm & + ,if0,jf0,ifm,vloc,ibcon) + +! This routine will interpolate the coarse tile (varc) onto the fine tile +! (varf). It is assumed that the caller arranged the coarse tile so that +! its origin has the correct offset from the origin of the fine tile. +! +! This routine can also deal with 1D, 2D and 3D fields. However, the arrays are +! declared as 3D (z,x,y). Just set the corresponding dimension size to 1 if +! calling with a field of lesser rank than 3. Eg, if have 2D horizontal +! field (x,y), set nz to 1; if have a 2D vertical field (z,y), set nx to 1; etc. +! +! The argument vloc gives where the quantity is located on the Arakawa-C grid +! 'u' - west and east edges +! 'v' - north and south edges +! 'w' - top and bottom edges +! 't' - center (this can actually be anything but 'u', 'v', or 'w') + + use mem_grid + + implicit none + + integer :: nzc,nxc,nyc,nzf,nxf,nyf,if0,jf0,ifm,ibcon + character :: vloc + real, dimension(nzc,nxc,nyc) :: varc + real, dimension(nzf,nxf,nyf) :: varf + integer, dimension(nzf) :: ctkpm + integer, dimension(nxf) :: ctipm + integer, dimension(nyf) :: ctjpm + + integer :: ic, jc, kc, if, jf, kf, i1f, i2f, j1f, j2f + real, dimension(:,:,:), allocatable :: temp_var1, temp_var2 + + ! The idea here is to process one dimension at a time. First the x-dimension, + ! then the y-dimension, and last the z-dimension. As each dimension is + ! interpolated, that dimension goes from the coarse positions to the fine + ! positions. There are two scratch variables allocated in order to + ! hold the results after processing the x and y dimensions. The flow + ! looks like: + ! 1. interpolate x-dim: varc(nzc,nxc,nyc) --> temp_var1(nzc,nxf,nyc) + ! 2. interpolate y-dim: temp_var1(nzc,nxf,nyc) --> temp_var2(nzc,nxf,nyf) + ! 3. interpolate z-dim: temp_var2(nzc,nxf,nyf) --> varf(nzf,nxf,nyf) + ! + ! Make temp_var1, temp_var2 allocatable so that the memory gets placed + ! in the heap instead of the stack. This will keep the stack from growing + ! too large. + + allocate(temp_var1(nzc,nxf,nyc)) + allocate(temp_var2(nzc,nxf,nyf)) + + CALL set_horiz_limits (nxf,nyf,i1f,i2f,j1f,j2f,vloc,ibcon) + ! interpolate x-dimension + if (nxf .eq. 1) then + ! x-dimension is not used, assume that nxc is also 1 + ! copy varc to temp_var1 + do jc = 1,nyc + do kc = 1,nzc + temp_var1(kc,1,jc) = varc(kc,1,jc) + enddo + enddo + else + if (vloc .eq. 'u') then + ! u - interpolate to the grid cell edge + ! leave off last x position since that is an "extra" u entry + do jc = 1,nyc + do if = i1f,i2f + ic = ctipm(if) + do kc = 1,nzc + temp_var1(kc,if,jc)=ei4(if+if0,ifm)*varc(kc,ic-2,jc) & + +ei5(if+if0,ifm)*varc(kc,ic-1,jc) & + +ei6(if+if0,ifm)*varc(kc,ic ,jc) & + +ei7(if+if0,ifm)*varc(kc,ic+1,jc) + enddo + enddo + enddo + else + ! not u - interpolate to the grid cell center + do jc = 1,nyc + do if = i1f,i2f + ic = ctipm(if) + do kc = 1,nzc + temp_var1(kc,if,jc)=ei1(if+if0,ifm)*varc(kc,ic-1,jc) & + +ei2(if+if0,ifm)*varc(kc,ic ,jc) & + +ei3(if+if0,ifm)*varc(kc,ic+1,jc) + enddo + enddo + enddo + endif + endif + + ! interpolate y-dimension + if (nyf .eq. 1) then + ! y-dimension is not used, assume that nyc is also 1 + ! copy temp_var1 to temp_var2 + do if = i1f,i2f + do kc = 1,nzc + temp_var2(kc,if,1) = temp_var1(kc,if,1) + enddo + enddo + else + if (vloc .eq. 'v') then + ! v - interpolate to the grid cell edge + ! leave off last y position since that is an "extra" v entry + do jf = j1f,j2f + jc = ctjpm(jf) + do if = i1f,i2f + do kc = 1,nzc + temp_var2(kc,if,jf)=ej4(jf+jf0,ifm)*temp_var1(kc,if,jc-2) & + +ej5(jf+jf0,ifm)*temp_var1(kc,if,jc-1) & + +ej6(jf+jf0,ifm)*temp_var1(kc,if,jc ) & + +ej7(jf+jf0,ifm)*temp_var1(kc,if,jc+1) + + enddo + enddo + enddo + else + ! not v - interpolate to the grid cell center + do jf = j1f,j2f + jc = ctjpm(jf) + do if = i1f,i2f + do kc = 1,nzc + temp_var2(kc,if,jf)=ej1(jf+jf0,ifm)*temp_var1(kc,if,jc-1) & + +ej2(jf+jf0,ifm)*temp_var1(kc,if,jc ) & + +ej3(jf+jf0,ifm)*temp_var1(kc,if,jc+1) + enddo + enddo + enddo + endif + endif + + ! interpolate z-dimension + if (nzf .eq. 1) then + ! z-dimension is not used, assume that nzc is also 1 + ! copy temp_var2 to varf + do jf = j1f,j2f + do if = i1f,i2f + varf(1,if,jf) = temp_var2(1,if,jf) + enddo + enddo + else + if (vloc .eq. 'w') then + ! w - interpolate to the grid cell edge + ! leave off last z position since that is an "extra" w entry + do jf = j1f,j2f + do if = i1f,i2f + do kf = 1,nzf-1 + kc = ctkpm(kf+1) + varf(kf,if,jf) = ek4(kf,ifm) * temp_var2(max(1 ,kc-2),if,jf) & + + ek5(kf,ifm) * temp_var2( kc-1 ,if,jf) & + + ek6(kf,ifm) * temp_var2( kc ,if,jf) & + + ek7(kf,ifm) * temp_var2(min(nzc-1,kc+1),if,jf) + enddo + enddo + enddo + else + ! not w - interpolate to the grid cell center + do jf = j1f,j2f + do if = i1f,i2f + do kf = 1,nzf + kc = ctkpm(kf) + varf(kf,if,jf) = ek1(kf,ifm) * temp_var2(kc-1,if,jf) & + + ek2(kf,ifm) * temp_var2(kc ,if,jf) & + + ek3(kf,ifm) * temp_var2(kc+1,if,jf) + enddo + enddo + enddo + endif + endif + + deallocate(temp_var1) + deallocate(temp_var2) + + return +END SUBROUTINE interp_field + +!############################################################################## +Subroutine interp_topo (nz,nx,ny,var,topt_interp,topt_assign,ngr,vloc & + ,ibcon,dimtype) + +! This routine will perform a special vertical interpolation to cover the +! case where the terrain assigned to the fine grid is different from what +! would be the terrain interpolated from the coarse grid. + + use mem_grid, only: zmn,ztop,ztn + use node_mod, only: nmachs + + implicit none + + integer :: nz, nx, ny, ngr, ibcon, dimtype + real, dimension(nz,nx,ny) :: var + real, dimension(nx,ny) :: topt_interp, topt_assign + character :: vloc + + integer :: i, j, k, i1, i2, j1, j2 + real, dimension(:), allocatable :: hghts_interp, hghts_assign, temp_var + + allocate(hghts_interp(nz)) + allocate(hghts_assign(nz)) + allocate(temp_var(nz)) + + CALL set_horiz_limits (nx,ny,i1,i2,j1,j2,vloc,ibcon) + do j = j1,j2 + do i = i1,i2 + ! If doing 'w', interpolate to the grid cell edges; otherwise interpolate + ! to the grid cell centers. + if (vloc .eq. 'w') then + do k = 1,nz + hghts_interp(k) = zmn(k,ngr)*(1.0-topt_interp(i,j)/ztop)+topt_interp(i,j) + hghts_assign(k) = zmn(k,ngr)*(1.0-topt_assign(i,j)/ztop)+topt_assign(i,j) + temp_var(k) = var(k,i,j) + enddo + else + do k = 1,nz + hghts_interp(k) = ztn(k,ngr)*(1.0-topt_interp(i,j)/ztop)+topt_interp(i,j) + hghts_assign(k) = ztn(k,ngr)*(1.0-topt_assign(i,j)/ztop)+topt_assign(i,j) + temp_var(k) = var(k,i,j) + enddo + endif + CALL htint (nz,temp_var,hghts_interp,nz,var(1,i,j),hghts_assign) + enddo + enddo + + ! Update subdomain boundaries if in parallel mode. Skip the update if this + ! is a column variable (no lateral overlap), ie dimtype == 1. + if ((nmachs .gt. 1) .and. (dimtype .ne. 1)) then + CALL update_lbc_var (nz,nx,ny,ngr,var,dimtype) + endif + + deallocate(hghts_interp) + deallocate(hghts_assign) + deallocate(temp_var) + + return +END SUBROUTINE interp_topo + +!############################################################################## +Subroutine copy_nest_bounds (nz,nx,ny,var,bx,by,bz,vloc,nstbot,nsttop,ibcon) + +! This routine will mimic what nstb() does, but will in addition handle +! a subdomain when running in parallel mode. + + implicit none + + integer :: nz, nx, ny, nstbot, nsttop, ibcon + character :: vloc + real, dimension(nz,nx,ny) :: var + real, dimension(nz,ny,2) :: bx + real, dimension(nz,nx,2) :: by + real, dimension(nx,ny,2) :: bz + + integer :: i, j, k + integer :: i1, i2, j1, j2, k1, k2 + + CALL set_horiz_limits (nx,ny,i1,i2,j1,j2,vloc,ibcon) + + ! West side + if (iand(ibcon,1) .ne. 0) then + do j = j1, j2 + do k = 1, nz + bx(k,j,1) = var(k,i1,j) + enddo + enddo + endif + + ! East side + if (iand(ibcon,2) .ne. 0) then + do j = j1, j2 + do k = 1, nz + bx(k,j,2) = var(k,i2,j) + enddo + enddo + endif + + ! South side + if (iand(ibcon,4) .ne. 0) then + do i = i1, i2 + do k = 1, nz + by(k,i,1) = var(k,i,j1) + enddo + enddo + endif + + ! North side + if (iand(ibcon,8) .ne. 0) then + do i = i1, i2 + do k = 1, nz + by(k,i,2) = var(k,i,j2) + enddo + enddo + endif + + k1 = 1 + if (vloc .eq. 'w') then + k2 = nz - 1 + else + k2 = nz + endif + + ! Bottom side + if (nstbot .eq. 0) then + do j = j1,j2 + do i = i1,i2 + bz(i,j,1) = var(k1,i,j) + enddo + enddo + endif + + ! Top side + if (nsttop .eq. 0) then + do j = j1,j2 + do i = i1,i2 + bz(i,j,2) = var(k2,i,j) + enddo + enddo + endif + +END SUBROUTINE copy_nest_bounds + +!############################################################################## +Subroutine calc_dn0uv (nz,nx,ny,denst,densu,densv,ibcon,ngr) + +! This routine will calculate the density values at the u and v grid locations +! by averaging the density values at the t grid locations. + + use node_mod, only: nmachs + + implicit none + + integer :: nz, nx, ny, ibcon, ngr + real, dimension(nz,nx,ny) :: denst, densu, densv + + integer :: i, j, k, i1, i2, j1, j2 + + ! Average to u locations. + CALL set_horiz_limits (nx,ny,i1,i2,j1,j2,'u',ibcon) + do j = j1,j2 + do i = i1,i2 + do k = 1,nz + if (i .lt. nx) then + densu(k,i,j) = .5 * (denst(k,i,j) + denst(k,i+1,j)) + else + densu(k,i,j) = denst(k,i,j) + endif + enddo + enddo + enddo + + ! Average to v locations. + CALL set_horiz_limits (nx,ny,i1,i2,j1,j2,'v',ibcon) + do j = j1,j2 + do i = i1,i2 + do k = 1,nz + if (j .lt. ny) then + densv(k,i,j) = .5 * (denst(k,i,j) + denst(k,i,j+1)) + else + densv(k,i,j) = denst(k,i,j) + endif + enddo + enddo + enddo + + ! Update subdomain boundaries if in parallel mode. + if (nmachs .gt. 1) then + CALL update_lbc_var (nz,nx,ny,ngr,densu,3) + CALL update_lbc_var (nz,nx,ny,ngr,densv,3) + endif + + return +END SUBROUTINE calc_dn0uv + +!############################################################################## +Subroutine init_3d_refstate (nz,nx,ny,pi0,dn0,dn0u,dn0v,th0,topt,rtgt,ibcon) + + use mem_grid, only:zt,nzp,ngrid,ztop,dzm + use ref_sounding + use rconstants + use node_mod, only:nmachs,mibcon + + implicit none + + integer :: nz,nx,ny + real, dimension(nz,nx,ny) :: pi0, dn0, dn0u, dn0v, th0 + real, dimension(nx,ny) :: topt, rtgt + + integer :: i,j,k,i1,i2,j1,j2,ibcon + real :: c1,c2,c3 + real, dimension(:), allocatable :: zt_topo + + CALL set_horiz_limits (nx,ny,i1,i2,j1,j2,'t',ibcon) + + allocate(zt_topo(nz)) + + do j=j1,j2 + do i=i1,i2 + + do k = 1,nz + zt_topo(k) = zt(k) * rtgt(i,j) + topt(i,j) + enddo + CALL htint (nzp,pi01dn(1,ngrid),zt,nzp,pi0(1,i,j),zt_topo) + CALL htint (nzp,th01dn(1,ngrid),zt,nzp,th0(1,i,j),zt_topo) + c1 = g * 2. * (1. - topt(i,j) / ztop) + + c2 = 1. - cpor + c3 = cp ** c2 + do k = nz-1,1,-1 + pi0(k,i,j) = pi0(k+1,i,j) & + + c1 / ((th0(k,i,j) + th0(k+1,i,j)) * dzm(k)) + enddo + + do k = 1,nz + dn0(k,i,j) = (c3 * p00) / (rgas * th0(k,i,j) * pi0(k,i,j) ** c2) + enddo + + enddo + enddo + + ! Need to update boundaries on dn0 for the subsequent calc_dn0uv call + if (nmachs .gt. 1) CALL update_lbc_var (nz,nx,ny,ngrid,dn0,3) + CALL calc_dn0uv (nz,nx,ny,dn0,dn0u,dn0v,mibcon(ngrid),ngrid) + + ! Update boundaries for th0 and pi0 (calc_dn0uv already updated dn0u and dn0v) + if (nmachs .gt. 1) then + CALL update_lbc_var (nz,nx,ny,ngrid,th0,3) + CALL update_lbc_var (nz,nx,ny,ngrid,pi0,3) + endif + + deallocate(zt_topo) + + return +END SUBROUTINE init_3d_refstate + +!############################################################################## +Subroutine set_horiz_limits (nx,ny,i1,i2,j1,j2,vloc,ibcon) + +! This routine will consider 1D, 2D, 3D fields, the variable being worked on, +! and the domain boundaries in order to set the x and y loop limits. This is +! intended to be used by the interpolation routines. + + implicit none + + integer :: nx, ny, i1, i2, j1, j2, ibcon + character :: vloc + + if (nx .le. 1) then + i1 = 1 + i2 = 1 + else + i1 = 2 + ! If subdomain contains east domain boundary + if (iand(ibcon,1) .ne. 0) i1 = 1 + + i2 = nx-1 + ! If subdomain contains west domain boundary + if ((iand(ibcon,2) .ne. 0) .and. (vloc .ne. 'u')) i2 = nx + endif + + if (ny .le. 1) then + j1 = 1 + j2 = 1 + else + j1 = 2 + ! If subdomain contains south domain boundary + if (iand(ibcon,4) .ne. 0) j1 = 1 + + j2 = ny-1 + ! If subdomain contains north domain boundary + if ((iand(ibcon,8) .ne. 0) .and. (vloc .ne. 'v')) j2 = ny + endif + + return +END SUBROUTINE set_horiz_limits diff --git a/src/6.2.16/radiate/rad_aero.f90 b/src/6.2.16/radiate/rad_aero.f90 new file mode 100644 index 0000000..e99798f --- /dev/null +++ b/src/6.2.16/radiate/rad_aero.f90 @@ -0,0 +1,5585 @@ +!############################################################################## +Subroutine aerorad (i,j,mb,nb,nrad,m1,dzl,relh,tp,omgp,gp,dn0,aodt) + +! ib .......... band number +! mb .......... maximum number of bands (8) +! nb .......... total number of bands +! m1 .......... number of vertical levels +! dzl .......... delta z in each level (m) +! nrad - number of vertical levels in radiation calculations +! naerbins - number of aerosol bins for radiative calculations (17) +! nrh - number of relative humidity levels for radiative calculations (20) +! relh(m1) - relative humidity at each vertical level +! iaerorad - flag to turn on aerosol radiation +! aerocon(m1,aerocat) - aerosol category number concentration (#/kg) +! aeromas(m1,aerocat) - aerosol category mass (kg/kg) +! irh - the relative humidity level (1=80%,20=99%) +! aerocat - number of aerosol species in the model +! aerotype - aerosol type to be used through the radiation code +! rnaer(m1,naerbins) - aerosol number concentration in a given bin (#/m3) +!*************************************************************************** +use micphys + +implicit none + +! Variable declaration: +INTEGER mb,nb,ib,nrad,m1,ibns,naerbins,irh,nrh,k,i,j +REAL dzl(nrad),tp(nrad,mb),omgp(nrad,mb),gp(nrad,mb),relh(m1),aodt +REAL rma(17),ext_sum,om_sum,asym_sum,con_sum,ext,om,gg +REAL gfact,qext,qscat,gasym,dm,pi + +PARAMETER(naerbins=17,nrh=20) + +INTEGER aerotype(aerocat) +REAL rnaer(m1,naerbins),aeroradius(m1,aerocat),dn0(m1) + +PARAMETER (pi=3.141593) + +! Drop radius at bin center in centimeters +DATA rma /2.0358125E-08,3.2316509E-08,5.1299262E-08 & + ,8.1432499E-08,1.2926605E-07,2.0519707E-07,3.2573003E-07 & + ,5.1706418E-07,8.2078826E-07,1.3029201E-06,2.0682569E-06 & + ,3.2831531E-06,5.2116811E-06,8.2730281E-06,1.3132613E-05 & + ,2.0846725E-05,3.3092112E-05/ + +! Initializing aerotype: +! Although there are multiple aerosol variables, there are currently only +! three types that are coded. Aerotype indicies are as follows: +! 1 - Ammonium sulfate +! 2 - Sea Salt +! 3 - Mineral Dust +do acat=1,aerocat + aerotype(acat) = 0 +enddo + +if(iaerosol>0) then + aerotype(1) = 1 ! CCN + aerotype(2) = 1 ! GCCN +endif +if(idust>0) then + aerotype(3) = 3 ! Small dust mode + aerotype(4) = 3 ! Large dust mode +endif +if(isalt>0) then + aerotype(5) = 2 ! Salt film mode + aerotype(6) = 2 ! Salt jet mode + aerotype(7) = 2 ! Salt spume mode +endif +if(iccnlev>=2) then + aerotype(8) = 1 ! Small regenerated aerosol + aerotype(9) = 1 ! Large regenerated aerosol +endif + +!Loop thru all aerosol species and set number and size +!Set aeroradius() at all levels, 1 through m1, since aerobin() looks +!at all levels. +do acat=1,aerocat + if(aerotype(acat)>0) then + do k = 1,m1 + if(aerocon(k,acat)>mincon .and. aeromas(k,acat)>=minmas) then + aeroradius(k,acat)=((0.23873/aero_rhosol(acat) & + *aeromas(k,acat)/aerocon(k,acat))**(1./3.))/aero_rg2rm(acat) + else + aeroradius(k,acat)=0.005e-6 + endif + enddo + endif +enddo + +! Looping over each aerosol species. If the aerosol is turned off, the +! code checks for the next active aerosol: +aodt=0.0 +DO acat=1,aerocat + IF(aerotype(acat).gt.0) then + ! For each aerosol, the code requires a total number concentration of + ! the aerosol at each grid point, along with either a total mass at the + ! grid point or a median radius. + CALL aerobin (m1,naerbins,aerocon(1,acat),aeroradius(1,acat),rnaer,dn0) + ! This is the routine that calculates the optical properties of the + ! aerosols within the radiation routine: + ! Doing over all vertical levels (not including radiation levels) + DO k = 2,m1-1 + ! Locate RH as a percentage for table lookup + irh=INT(100.*(relh(k)-0.80)) + 1 + irh=MAX(1,MIN(irh,20) ) + + DO ib=1,nb + + ! Resetting temporary storage variabes to zero for next set of calcs: + ext_sum = 0.0 + om_sum = 0.0 + asym_sum = 0.0 + con_sum = 0.0 + ext = 0.0 + om = 0.0 + gg = 0.0 + + ! Calculating optical properties at over each aerosol bin: + DO ibns = 1,naerbins + ! Retrieving values for the growth factor, the extinction coefficient, + ! the scattering coefficient and the asymmetry parameter, from their + ! appropriate look up tables: + CALL aerogrowth (aerotype(acat),ibns,irh,gfact) + CALL aeroqext (aerotype(acat),ib,ibns,irh,qext) + CALL aeroqscat (aerotype(acat),ib,ibns,irh,qscat) + CALL aerogasym (aerotype(acat),ib,ibns,irh,gasym) + ! Determining mean diameter of bin (meters), with deliquescence growth factor + dm = 2. * rma(ibns) * gfact + ! Updating temporary storage variables: + if(qext>0.0 .and. rnaer(k,ibns)>0.0)then + ext_sum = ext_sum + (pi/4. * dm**2 * rnaer(k,ibns) * qext) !Bext + om_sum = om_sum + (pi/4. * dm**2 * rnaer(k,ibns) * qscat) !Bscat + asym_sum = asym_sum + (rnaer(k,ibns) * gasym) !Asymmetry parameter + con_sum = con_sum + rnaer(k,ibns) !Total aerosol number + endif + ENDDO ! Aerosol bins (ibns) + !Set up ext, om, gg same as Harrington's cloud_top for consistency + ext = ext_sum * dzl(k) !Tau = Bext * dz + if(ext>0.0) then + om = om_sum / ext_sum !Omega = Bscat / Bext + gg = asym_sum/(con_sum+1.E-30) !normalize asym_sum by total number + else + ext = 0.0 + endif + ! Obtain values of optical depth (tp), single scatter albedo (omgp), + ! asymmetry parameter (gp) in a form to interact with cloud_opt. + ! Some values of dzl may be <0; in this case set tp to 0. + ! Factor in layer depth for optical depth extinction + aodt = aodt + ext + tp(k,ib) = tp(k,ib) + ext + omgp(k,ib) = omgp(k,ib) + om * ext + gp(k,ib) = gp(k,ib) + gg * om * ext + ENDDO ! Radiation band loop + ENDDO ! Vertical level loop + ENDIF !Aerosol type if +ENDDO ! Aerotype loop + +return +END SUBROUTINE aerorad + +!############################################################################## +Subroutine aerobin (m1,naerbins,numconc,medianrad,rnaer,dn0) + +! The purpose of this routine was to take a number concentration +! and median radius for any given aerosol and turn it into a binned +! distribution +! Input Variables: m1 - Integer, number of vertical levels +! naerbins - Integer number of bins used in aerosol radiation +! calculations. Set to 17 in radcalc3. +! numconc - Number concentration of aerosol (#/kg) +! medianrad - Median radius of the given aerosol type (m) +! interp - Determines beginning point for interpolation calculations +! radlim - Radii at which aerosol distribution was explicitly +! binned (in cm) +! radparam - Percentage of aerosol mass in each of the 17 bins, +! as a func of median radius. +! rg - Median radius of aerosol (m) +! L(4) - Values used in the 3rd order Lagrangian polynomial +! interpolation scheme to determine percentage of aerosol +! within a given bin +! m - Used to define which four median radii should +! be used in interpolation +! Output variable: rnaer(m1,naerbins) - Number concentrations for +! all 17 bins at every vertical level (#/m3) +!************************************************************************** + +implicit none + +! Incoming variable declaration: + INTEGER m1,naerbins + REAL numconc(m1),medianrad(m1),dn0(m1) + +! Internal variable declaraion: + INTEGER bin,i,k,n,m,interp + REAL radlim(26),radparam(26,17),rg,L(4) + +! Outgoing variable declaration: + REAL rnaer(m1,naerbins) + +! Data statement containing the radii for which the binning routine was +! run off-line...i.e., explicit binning done at these radii: + DATA radlim/0.00945E-06, 0.01191E-06, 0.01500E-06, 0.01890E-06 & + ,0.02382E-06, 0.03000E-06, 0.03780E-06, 0.04760E-06 & + ,0.06000E-06, 0.07560E-06, 0.09520E-06, 0.12000E-06 & + ,0.15120E-06, 0.19050E-06, 0.24000E-06, 0.30240E-06 & + ,0.38100E-06, 0.48000E-06, 0.60500E-06, 0.76200E-06 & + ,0.96000E-06, 1.20900E-06, 1.52400E-06, 1.92000E-06 & + ,2.41900E-06, 3.04800E-06/ ! in meters + +! Percentage of mass within each bin at the above given radii: + DATA (radparam(1,bin),bin=1,17) & ! at 9.45nm + /0.1580, 0.0489, 0.0084, 0.0008, 0.0000, 0.0000 & + ,0.0000, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000 & + ,0.0000, 0.0000, 0.0000, 0.0000, 0.0000/ + + DATA (radparam(2,bin),bin=1,17) & ! at 11.91nm + /0.2280, 0.0947, 0.0218, 0.0028, 0.0002, 0.0000 & + ,0.0000, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000 & + ,0.0000, 0.0000, 0.0000, 0.0000, 0.0000/ + + DATA (radparam(3,bin),bin=1,17) & ! at 15nm + /0.2839, 0.1580, 0.0488, 0.0083, 0.0008, 0.0000 & + ,0.0000, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000 & + ,0.0000, 0.0000, 0.0000, 0.0000, 0.0000/ + + DATA (radparam(4,bin),bin=1,17) & ! at 18.9nm + /0.3055, 0.2280, 0.0945, 0.0217, 0.0028, 0.0002 & + ,0.0000, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000 & + ,0.0000, 0.0000, 0.0000, 0.0000, 0.0000/ + + DATA (radparam(5,bin),bin=1,17) & ! at 23.82nm + /0.2839, 0.2841, 0.1581, 0.0487, 0.0084, 0.0008 & + ,0.0000, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000 & + ,0.0000, 0.0000, 0.0000, 0.0000, 0.0000/ + + DATA (radparam(6,bin),bin=1,17) & ! at 30nm + /0.2279, 0.3056, 0.2280, 0.0943, 0.0217, 0.0028 & + ,0.0002, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000 & + ,0.0000, 0.0000, 0.0000, 0.0000, 0.0000/ + + DATA (radparam(7,bin),bin=1,17) & ! at 37.8nm + /0.1579, 0.2840, 0.2841, 0.1577, 0.0488, 0.0084 & + ,0.0008, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000 & + ,0.0000, 0.0000, 0.0000, 0.0000, 0.0000/ + + DATA (radparam(8,bin),bin=1,17) & ! at 47.6nm + /0.0946, 0.2280, 0.3057, 0.2276, 0.0943, 0.0217 & + ,0.0028, 0.0002, 0.0000, 0.0000, 0.0000, 0.0000 & + ,0.0000, 0.0000, 0.0000, 0.0000, 0.0000/ + + DATA (radparam(9,bin),bin=1,17) & ! at 60nm + /0.0488, 0.1579, 0.2481, 0.2838, 0.1579, 0.0488 & + ,0.0084, 0.0008, 0.0000, 0.0000, 0.0000, 0.0000 & + ,0.0000, 0.0000, 0.0000, 0.0000, 0.0000/ + + DATA (radparam(10,bin),bin=1,17) & ! at 75.6nm + /0.0218, 0.0945, 0.2280, 0.3055, 0.2278, 0.0946 & + ,0.0218, 0.0028, 0.0002, 0.0000, 0.0000, 0.0000 & + ,0.0000, 0.0000, 0.0000, 0.0000, 0.0000/ + + DATA (radparam(11,bin),bin=1,17) & ! at 95.2nm + /0.0084, 0.0489, 0.1581, 0.2841, 0.2838, 0.1578 & + ,0.0488, 0.0083, 0.0008, 0.0000, 0.0000, 0.0000 & + ,0.0000, 0.0000, 0.0000, 0.0000, 0.0000/ + + DATA (radparam(12,bin),bin=1,17) & ! at 120nm + /0.0028, 0.0217, 0.0945, 0.2280, 0.3055, 0.2279 & + ,0.0946, 0.0217, 0.0028, 0.0002, 0.0000, 0.0000 & + ,0.0000, 0.0000, 0.0000, 0.0000, 0.0000/ + + DATA (radparam(13,bin),bin=1,17) & ! at 151.2nm + /0.0008, 0.0084, 0.0488, 0.1580, 0.2839, 0.2840 & + ,0.1581, 0.0487, 0.0083, 0.0008, 0.0000, 0.0000 & + ,0.0000, 0.0000, 0.0000, 0.0000, 0.0000/ + + DATA (radparam(14,bin),bin=1,17) & ! at 190.5nm + /0.0002, 0.0028, 0.0217, 0.0945, 0.2279, 0.3056 & + ,0.2281, 0.0944, 0.0217, 0.0028, 0.0002, 0.0000 & + ,0.0000, 0.0000, 0.0000, 0.0000, 0.0000/ + + DATA (radparam(15,bin),bin=1,17) & ! at 240nm + /0.0000, 0.0008, 0.0083, 0.0488, 0.1580, 0.2840 & + ,0.2841, 0.1578, 0.0487, 0.0084, 0.0008, 0.0000 & + ,0.0000, 0.0000, 0.0000, 0.0000, 0.0000/ + + DATA (radparam(16,bin),bin=1,17) & ! at 302.4 nm + /0.0000, 0.0002, 0.0028, 0.0218, 0.0945, 0.2279 & + ,0.3057, 0.2278, 0.0944, 0.0218, 0.0028, 0.0002 & + ,0.0000, 0.0000, 0.0000, 0.0000, 0.0000/ + + DATA (radparam(17,bin),bin=1,17) & ! at 381nm + /0.0000, 0.0000, 0.0008, 0.0084, 0.0488, 0.1579 & + ,0.2841, 0.2840, 0.1578, 0.0488, 0.0084, 0.0008 & + ,0.0000, 0.0000, 0.0000, 0.0000, 0.0000/ + + DATA (radparam(18,bin),bin=1,17) & ! at 480nm + /0.0000, 0.0000, 0.0002, 0.0028, 0.0215, 0.0945 & + ,0.2279, 0.3056, 0.2277, 0.0945, 0.0218, 0.0028 & + ,0.0002, 0.0000, 0.0000, 0.0000, 0.0000/ + + DATA (radparam(19,bin),bin=1,17) & ! at 605nm + /0.0000, 0.0000, 0.0000, 0.0008, 0.0084, 0.0487 & + ,0.1587, 0.2840, 0.2839, 0.1580, 0.0489, 0.0084 & + ,0.0008, 0.0000, 0.0000, 0.0000, 0.0000/ + + DATA (radparam(20,bin),bin=1,17) & ! at 762nm + /0.0000, 0.0000, 0.0000, 0.0002, 0.0028, 0.0217 & + ,0.0944, 0.2280, 0.3055, 0.2279, 0.0946, 0.0218 & + ,0.0028, 0.0002, 0.0000, 0.0000, 0.0000/ + + DATA (radparam(21,bin),bin=1,17) & ! at 960nm + /0.0000, 0.0000, 0.0000, 0.0000, 0.0008, 0.0084 & + ,0.0488, 0.1580, 0.2840, 0.2839, 0.1580, 0.0488 & + ,0.0083, 0.0008, 0.0000, 0.0000, 0.0000/ + + DATA (radparam(22,bin),bin=1,17) & ! at 1.209 microns + /0.0000, 0.0000, 0.0000, 0.0000, 0.0002, 0.0028 & + ,0.0218, 0.0946, 0.2281, 0.3055, 0.2278, 0.0945 & + ,0.0216, 0.0028, 0.0002, 0.0000, 0.0000/ + + DATA (radparam(23,bin),bin=1,17) & ! at 1.524 microns + /0.0000, 0.0000, 0.0000, 0.0000, 0.0000, 0.0008 & + ,0.0083, 0.0488, 0.1580, 0.2839, 0.2840, 0.1581 & + ,0.0486, 0.0084, 0.0008, 0.0000, 0.0000/ + + DATA (radparam(24,bin),bin=1,17) & ! at 1.92 microns + /0.0000, 0.0000, 0.0000, 0.0000, 0.0000, 0.0002 & + ,0.0028, 0.0217, 0.0945, 0.2279, 0.3056, 0.2281 & + ,0.0943, 0.0217, 0.0028, 0.0002, 0.0000/ + + DATA (radparam(25,bin),bin=1,17) & ! at 2.419 microns + /0.0000, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000 & + ,0.0008, 0.0084, 0.0488, 0.1580, 0.2840, 0.2842 & + ,0.1577, 0.0487, 0.0084, 0.0008, 0.0000/ + + DATA (radparam(26,bin),bin=1,17) & ! at 3.048 microns + /0.0000, 0.0000, 0.0000, 0.0000, 0.0000, 0.0000 & + ,0.0002, 0.0028, 0.0218, 0.0945, 0.2279, 0.3058 & + ,0.2277, 0.0944, 0.0218, 0.0028, 0.0002/ + +! Vertical level loop: + DO k = 1,m1 + + rg = medianrad(k) + + !Determining which four points to use in the interpolation scheme + interp = 0 + DO n=1,25 + IF(rg.GE.radlim(n).AND.rg.LE.radlim(n+1)) THEN + interp = n + ENDIF + ENDDO + if(interp == 0) then + IF(rg.LT.radlim(1)) interp = 1 + IF(rg.GT.radlim(25)) interp = 25 + endif + m = interp - 1 + IF(interp.EQ.1) m = 1 + IF(interp.EQ.25) m = 23 + + ! Determining the coefficients to be used in the 3rd order + !Lagrangian polynomial interpolation scheme: + L(1) = (rg-radlim(m+3))*(rg-radlim(m+2))* & + (rg-radlim(m+1))/(radlim(m)-radlim(m+3))/ & + (radlim(m)-radlim(m+2))/(radlim(m)-radlim(m+1)) + L(2) = (rg-radlim(m+3))*(rg-radlim(m+2))* & + (rg-radlim(m))/(radlim(m+1)-radlim(m+3))/ & + (radlim(m+1)-radlim(m+2))/(radlim(m+1)-radlim(m)) + L(3) = (rg-radlim(m+3))*(rg-radlim(m+1))* & + (rg-radlim(m))/(radlim(m+2)-radlim(m+3))/ & + (radlim(m+2)-radlim(m+1))/(radlim(m+2)-radlim(m)) + L(4) = (rg-radlim(m+2))*(rg-radlim(m+1))* & + (rg-radlim(m))/(radlim(m+3)-radlim(m+2))/ & + (radlim(m+3)-radlim(m+1))/(radlim(m+3)-radlim(m)) + + !At each bin, determine the number concentration of aerosol + DO i = 1,naerbins + rnaer(k,i) = L(1)*radparam(m,i) + L(2)*radparam(m+1,i) + & + L(3)*radparam(m+2,i) + L(4)*radparam(m+3,i) + IF(rnaer(k,i).LT.0.) rnaer(k,i) = 0. + ! Conversion from #/kg to #/m3: + rnaer(k,i) = rnaer(k,i) * numconc(k) * dn0(k) + ENDDO ! Bin loop (i) + + ENDDO ! Vertical level loop (k) + +return +END SUBROUTINE aerobin + +!############################################################################## +Subroutine aerogrowth (aerotype,bin,rh,value) + +implicit none + + INTEGER aerotype,bin,rh,ib + REAL growth(3,17,20),value + +! Ammonium sulfate with 90% insoluble inclusion (dust) + DATA(growth(1,ib,1),ib=1,17) & ! Amm. Sulf. at 80% RH + /1.0000, 1.0000, 1.0000, 1.0000, 1.0000, 1.0000 & + ,1.0000, 1.0000, 1.0000, 1.0000, 1.0000, 1.0000 & + ,1.0000, 1.0000, 1.0000, 1.0000, 1.0000/ + + DATA(growth(1,ib,2),ib=1,17) & ! Amm. Sulf. at 81% RH + /1.0024, 1.0027, 1.0030, 1.0031, 1.0033, 1.0033 & + ,1.0034, 1.0034, 1.0034, 1.0034, 1.0035, 1.0035 & + ,1.0035, 1.0035, 1.0035, 1.0035, 1.0035/ + + DATA(growth(1,ib,3),ib=1,17) & ! Amm. Sulf. at 82% RH + /1.0050, 1.0057, 1.0062, 1.0066, 1.0068, 1.0070 & + ,1.0071, 1.0072, 1.0072, 1.0073, 1.0073, 1.0073 & + ,1.0073, 1.0073, 1.0073, 1.0073, 1.0073/ + + DATA(growth(1,ib,4),ib=1,17) & ! Amm. Sulf. at 83% RH + /1.0078, 1.0089, 1.0098, 1.0104, 1.0108, 1.0111 & + ,1.0112, 1.0114, 1.0114, 1.0115, 1.0115, 1.0115 & + ,1.0115, 1.0115, 1.0115, 1.0115, 1.0115/ + + DATA(growth(1,ib,5),ib=1,17) & ! Amm. Sulf. at 84% RH + /1.0108, 1.0125, 1.0138, 1.0146, 1.0152, 1.0156 & + ,1.0159, 1.0160, 1.0161, 1.0162, 1.0162, 1.0162 & + ,1.0163, 1.0163, 1.0163, 1.0163, 1.0163/ + + DATA(growth(1,ib,6),ib=1,17) & ! Amm. Sulf. at 85% RH + /1.0142, 1.0165, 1.0182, 1.0193, 1.0201, 1.0207 & + ,1.0210, 1.0212, 1.0214, 1.0215, 1.0215, 1.0216 & + ,1.0216, 1.0216, 1.0216, 1.0216, 1.0216/ + + DATA(growth(1,ib,7),ib=1,17) & ! Amm. Sulf. at 86% RH + /1.0179, 1.0209, 1.0231, 1.0246, 1.0257, 1.0264 & + ,1.0268, 1.0271, 1.0273, 1.0274, 1.0275, 1.0276 & + ,1.0276, 1.0276, 1.0276, 1.0276, 1.0276/ + + DATA(growth(1,ib,8),ib=1,17) & ! Amm. Sulf. at 87% RH + /1.0220, 1.0258, 1.0286, 1.0306, 1.0320, 1.0329 & + ,1.0335, 1.0339, 1.0341, 1.0343, 1.0344, 1.0344 & + ,1.0345, 1.0345, 1.0345, 1.0345, 1.0345/ + + DATA(growth(1,ib,9),ib=1,17) & ! Amm. Sulf. at 88% RH + /1.0266, 1.0313, 1.0349, 1.0374, 1.0392, 1.0404 & + ,1.0411, 1.0416, 1.0419, 1.0421, 1.0422, 1.0423 & + ,1.0424, 1.0424, 1.0424, 1.0424, 1.0425/ + + DATA(growth(1,ib,10),ib=1,17) & ! Amm. Sulf. at 89% RH + /1.0317, 1.0376, 1.0421, 1.0453, 1.0475, 1.0490 & + ,1.0500, 1.0506, 1.0510, 1.0513, 1.0514, 1.0515 & + ,1.0516, 1.0516, 1.0517, 1.0517, 1.0517/ + + DATA(growth(1,ib,11),ib=1,17) & ! Amm. Sulf. at 90% RH + /1.0375, 1.0448, 1.0504, 1.0545, 1.0573, 1.0592 & + ,1.0604, 1.0612, 1.0617, 1.0621, 1.0623, 1.0624 & + ,1.0625, 1.0625, 1.0626, 1.0626, 1.0626/ + + DATA(growth(1,ib,12),ib=1,17) & ! Amm. Sulf. at 91% RH + /1.0441, 1.0531, 1.0602, 1.0653, 1.0689, 1.0713 & + ,1.0729, 1.0739, 1.0746, 1.0750, 1.0752, 1.0754 & + ,1.0755, 1.0756, 1.0756, 1.0756, 1.0757/ + + DATA(growth(1,ib,13),ib=1,17) & ! Amm. Sulf. at 92% RH + /1.0518, 1.0629, 1.0718, 1.0783, 1.0829, 1.0860 & + ,1.0880, 1.0894, 1.0902, 1.0907, 1.0911, 1.0913 & + ,1.0914, 1.0915, 1.0916, 1.0916, 1.0916/ + + DATA(growth(1,ib,14),ib=1,17) & ! Amm. Sulf. at 93% RH + /1.0606, 1.0745, 1.0859, 1.0943, 1.1002, 1.1042 & + ,1.1069, 1.1086, 1.1097, 1.1104, 1.1108, 1.1111 & + ,1.1113, 1.1114, 1.1115, 1.1115, 1.1116/ + + DATA(growth(1,ib,15),ib=1,17) & ! Amm. Sulf. at 94% RH + /1.0711, 1.0887, 1.1033, 1.1143, 1.1221, 1.1275 & + ,1.1310, 1.1333, 1.1347, 1.1357, 1.1363, 1.1367 & + ,1.1369, 1.1371, 1.1371, 1.1372, 1.1372/ + + DATA(growth(1,ib,16),ib=1,17) & ! Amm. Sulf. at 95% RH + /1.0837, 1.1063, 1.1255, 1.1402, 1.1508, 1.1581 & + ,1.1630, 1.1661, 1.1682, 1.1695, 1.1703, 1.1708 & + ,1.1711, 1.1714, 1.1715, 1.1716, 1.1716/ + + DATA(growth(1,ib,17),ib=1,17) & ! Amm. Sulf. at 96% RH + /1.0993, 1.1289, 1.1548, 1.1753, 1.1903, 1.2007 & + ,1.2077, 1.2123, 1.2152, 1.2171, 1.2183, 1.2190 & + ,1.2195, 1.2198, 1.2200, 1.2201, 1.2202/ + + DATA(growth(1,ib,18),ib=1,17) & ! Amm. Sulf. at 97% RH + /1.1190, 1.1591, 1.1959, 1.2260, 1.2486, 1.2644 & + ,1.2752, 1.2822, 1.2868, 1.2898, 1.2916, 1.2928 & + ,1.2936, 1.2940, 1.2943, 1.2945, 1.2947/ + + DATA(growth(1,ib,19),ib=1,17) & ! Amm. Sulf. at 98% RH + /1.1451, 1.2022, 1.2585, 1.3071, 1.3448, 1.3720 & + ,1.3907, 1.4032, 1.4113, 1.4165, 1.4199, 1.4220 & + ,1.4233, 1.4242, 1.4247, 1.4250, 1.4253/ + + DATA(growth(1,ib,20),ib=1,17) & ! Amm. Sulf. at 99% RH + /1.1816, 1.2705, 1.3696, 1.4645, 1.5442, 1.6047 & + ,1.6476, 1.6766, 1.6958, 1.7082, 1.7162, 1.7213 & + ,1.7245, 1.7265, 1.7278, 1.7286, 1.7291/ + +! Sea salt with no insoluble inclusion + DATA(growth(2,ib,1),ib=1,17) & ! Sea Salt at 80% RH + /1.0000, 1.0000, 1.0000, 1.0000, 1.0000, 1.0000 & + ,1.0000, 1.0000, 1.0000, 1.0000, 1.0000, 1.0000 & + ,1.0000, 1.0000, 1.0000, 1.0000, 1.0000/ + + DATA(growth(2,ib,2),ib=1,17) & ! Sea Salt at 81% RH + /1.0151, 1.0142, 1.0134, 1.0136, 1.0137, 1.0137 & + ,1.0138, 1.0138, 1.0138, 1.0138, 1.0138, 1.0138 & + ,1.0138, 1.0138, 1.0138, 1.0138, 1.0138/ + + DATA(growth(2,ib,3),ib=1,17) & ! Sea Salt at 82% RH + /1.0295, 1.0281, 1.0276, 1.0279, 1.0281, 1.0282 & + ,1.0283, 1.0283, 1.0283, 1.0284, 1.0284, 1.0284 & + ,1.0284, 1.0284, 1.0284, 1.0284, 1.0284/ + + DATA(growth(2,ib,4),ib=1,17) & ! Sea Salt at 83% RH + /1.0437, 1.0428, 1.0425, 1.0430, 1.0433, 1.0435 & + ,1.0437, 1.0438, 1.0438, 1.0439, 1.0439, 1.0439 & + ,1.0439, 1.0439, 1.0439, 1.0439, 1.0439/ + + DATA(growth(2,ib,5),ib=1,17) & ! Sea Salt at 84% RH + /1.0588, 1.0584, 1.0584, 1.0592, 1.0597, 1.0600 & + ,1.0602, 1.0603, 1.0604, 1.0605, 1.0605, 1.0605 & + ,1.0606, 1.0606, 1.0606, 1.0606, 1.0606/ + + DATA(growth(2,ib,6),ib=1,17) & ! Sea Salt at 85% RH + /1.0748, 1.0750, 1.0756, 1.0767, 1.0774, 1.0778 & + ,1.0781, 1.0783, 1.0784, 1.0785, 1.0785, 1.0786 & + ,1.0786, 1.0786, 1.0786, 1.0786, 1.0786/ + + DATA(growth(2,ib,7),ib=1,17) & ! Sea Salt at 86% RH + /1.0920, 1.0931, 1.0942, 1.0957, 1.0966, 1.0973 & + ,1.0977, 1.0979, 1.0981, 1.0982, 1.0982, 1.0983 & + ,1.0983, 1.0983, 1.0983, 1.0983, 1.0983/ + + DATA(growth(2,ib,8),ib=1,17) & ! Sea Salt at 87% RH + /1.1107, 1.1127, 1.1146, 1.1166, 1.1179, 1.1187 & + ,1.1192, 1.1196, 1.1198, 1.1199, 1.1200, 1.1201 & + ,1.1201, 1.1201, 1.1201, 1.1201, 1.1201/ + + DATA(growth(2,ib,9),ib=1,17) & ! Sea Salt at 88% RH + /1.1312, 1.1345, 1.1372, 1.1398, 1.1415, 1.1426 & + ,1.1433, 1.1437, 1.1440, 1.1442, 1.1443, 1.1444 & + ,1.1444, 1.1444, 1.1444, 1.1445, 1.1445/ + + DATA(growth(2,ib,10),ib=1,17) & ! Sea Salt at 89% RH + /1.1539, 1.1588, 1.1626, 1.1659, 1.1681, 1.1695 & + ,1.1704, 1.1710, 1.1713, 1.1715, 1.1717, 1.1718 & + ,1.1718, 1.1719, 1.1719, 1.1719, 1.1719/ + + DATA(growth(2,ib,11),ib=1,17) & ! Sea Salt at 90% RH + /1.1794, 1.1862, 1.1914, 1.1956, 1.1984, 1.2002 & + ,1.2013, 1.2020, 1.2025, 1.2028, 1.2029, 1.2030 & + ,1.2031, 1.2032, 1.2032, 1.2032, 1.2032/ + + DATA(growth(2,ib,12),ib=1,17) & ! Sea Salt at 91% RH + /1.2083, 1.2177, 1.2245, 1.2298, 1.2333, 1.2356 & + ,1.2370, 1.2379, 1.2385, 1.2388, 1.2390, 1.2392 & + ,1.2393, 1.2393, 1.2394, 1.2394, 1.2394/ + + DATA(growth(2,ib,13),ib=1,17) & ! Sea Salt at 92% RH + /1.2417, 1.2541, 1.2631, 1.2698, 1.2742, 1.2770 & + ,1.2788, 1.2799, 1.2807, 1.2811, 1.2814, 1.2816 & + ,1.2817, 1.2818, 1.2818, 1.2819, 1.2819/ + + DATA(growth(2,ib,14),ib=1,17) & ! Sea Salt at 93% RH + /1.2808, 1.2971, 1.3088, 1.3173, 1.3229, 1.3265 & + ,1.3288, 1.3302, 1.3311, 1.3317, 1.3321, 1.3323 & + ,1.3324, 1.3325, 1.3326, 1.3326, 1.3327/ + + DATA(growth(2,ib,15),ib=1,17) & ! Sea Salt at 94% RH + /1.3275, 1.3489, 1.3642, 1.3751, 1.3823, 1.3869 & + ,1.3899, 1.3917, 1.3929, 1.3937, 1.3941, 1.3944 & + ,1.3946, 1.3947, 1.3948, 1.3948, 1.3949/ + + DATA(growth(2,ib,16),ib=1,17) & ! Sea Salt at 95% RH + /1.3846, 1.4131, 1.4334, 1.4478, 1.4572, 1.4632 & + ,1.4671, 1.4696, 1.4711, 1.4721, 1.4727, 1.4731 & + ,1.4734, 1.4735, 1.4736, 1.4737, 1.4737/ + + DATA(growth(2,ib,17),ib=1,17) & ! Sea Salt at 96% RH + /1.4570, 1.4959, 1.5235, 1.5431, 1.5559, 1.5642 & + ,1.5696, 1.5729, 1.5751, 1.5764, 1.5773, 1.5778 & + ,1.5782, 1.5784, 1.5785, 1.5786, 1.5786/ + + DATA(growth(2,ib,18),ib=1,17) & ! Sea Salt at 97% RH + /1.5534, 1.6089, 1.6489, 1.6770, 1.6956, 1.7077 & + ,1.7154, 1.7204, 1.7235, 1.7255, 1.7267, 1.7275 & + ,1.7280, 1.7283, 1.7285, 1.7287, 1.7287/ + + DATA(growth(2,ib,19),ib=1,17) & ! Sea Salt at 98% RH + /1.6927, 1.7790, 1.8425, 1.8875, 1.9175, 1.9371 & + ,1.9497, 1.9578, 1.9629, 1.9662, 1.9682, 1.9695 & + ,1.9704, 1.9709, 1.9712, 1.9714, 1.9715/ + + DATA(growth(2,ib,20),ib=1,17) & ! Sea Salt at 99% RH + /1.9269, 2.0871, 2.2119, 2.3031, 2.3656, 2.4071 & + ,2.4341, 2.4515, 2.4626, 2.4696, 2.4741, 2.4769 & + ,2.4787, 2.4798, 2.4805, 2.4809, 2.4812/ + + value = growth(aerotype,bin,rh) + +! No growth factor for dust at RH under 100%: + IF(AEROTYPE.EQ.3) value = 1.0 + +return +END SUBROUTINE aerogrowth + +!############################################################################## +Subroutine aeroqext (aerotype,radband,bin,rh,value) + +implicit none + + INTEGER aerotype,radband,bin,rh,ib + REAL qext(3,8,17,20),value + +! Setting for aerosol with no growth (completely insoluble): + IF(AEROTYPE.EQ.3) rh = 1 + +! Qext for Ammonium Sulfate (with a 90% insoluble dust inclusion): + DATA(qext(1,1,ib,1),ib=1,17) & ! Band 1, RH = 80% + /0.00149, 0.00242, 0.00397, 0.00702, 0.01392, 0.04336 & + ,0.16334, 0.54998, 1.39850, 2.52940, 2.77530, 2.71620 & + ,2.41690, 2.20950, 2.17190, 2.12740, 2.09270/ + + DATA(qext(1,1,ib,2),ib=1,17) & ! Band 1, RH = 81% + /0.00150, 0.00243, 0.00401, 0.00708, 0.01406, 0.04380 & + ,0.16471, 0.55391, 1.40580, 2.53920, 2.78010, 2.71520 & + ,2.41230, 2.21190, 2.17210, 2.12720, 2.09250/ + + DATA(qext(1,1,ib,3),ib=1,17) & ! Band 1, RH = 82% + /0.00151, 0.00245, 0.00404, 0.00714, 0.01421, 0.04428 & + ,0.16621, 0.55824, 1.41380, 2.55000, 2.78520, 2.71450 & + ,2.40880, 2.21310, 2.17130, 2.12680, 2.09230/ + + DATA(qext(1,1,ib,4),ib=1,17) & ! Band 1, RH = 83% + /0.00153, 0.00247, 0.00408, 0.00722, 0.01438, 0.04482 & + ,0.16789, 0.56306, 1.42280, 2.56170, 2.79030, 2.71480 & + ,2.40350, 2.21140, 2.16910, 2.12630, 2.09200/ + + DATA(qext(1,1,ib,5),ib=1,17) & ! Band 1, RH = 84% + /0.00154, 0.00250, 0.00412, 0.00730, 0.01457, 0.04543 & + ,0.16976, 0.56845, 1.43290, 2.57470, 2.79550, 2.71600 & + ,2.39450, 2.20870, 2.16830, 2.12590, 2.09170/ + + DATA(qext(1,1,ib,6),ib=1,17) & ! Band 1, RH = 85% + /0.00155, 0.00252, 0.00417, 0.00739, 0.01478, 0.04611 & + ,0.17188, 0.57450, 1.44430, 2.58890, 2.80060, 2.71690 & + ,2.38340, 2.21340, 2.16940, 2.12460, 2.09120/ + + DATA(qext(1,1,ib,7),ib=1,17) & ! Band 1, RH = 86% + /0.00157, 0.00255, 0.00422, 0.00749, 0.01501, 0.04688 & + ,0.17428, 0.58136, 1.45740, 2.60470, 2.80550, 2.71630 & + ,2.37520, 2.22400, 2.16840, 2.12420, 2.09060/ + + DATA(qext(1,1,ib,8),ib=1,17) & ! Band 1, RH = 87% + /0.00158, 0.00258, 0.00427, 0.00760, 0.01528, 0.04776 & + ,0.17702, 0.58920, 1.47230, 2.62230, 2.81030, 2.71180 & + ,2.36970, 2.22790, 2.16710, 2.12250, 2.08990/ + + DATA(qext(1,1,ib,9),ib=1,17) & ! Band 1, RH = 88% + /0.00160, 0.00261, 0.00434, 0.00772, 0.01559, 0.04878 & + ,0.18021, 0.59823, 1.48980, 2.64210, 2.81470, 2.70850 & + ,2.35840, 2.22120, 2.16830, 2.12150, 2.08920/ + + DATA(qext(1,1,ib,10),ib=1,17) & ! Band 1, RH = 89% + /0.00162, 0.00265, 0.00441, 0.00787, 0.01594, 0.04998 & + ,0.18393, 0.60878, 1.51030, 2.66460, 2.81890, 2.70760 & + ,2.34990, 2.22930, 2.16630, 2.11990, 2.08840/ + + DATA(qext(1,1,ib,11),ib=1,17) & ! Band 1, RH = 90% + /0.00164, 0.00270, 0.00450, 0.00804, 0.01636, 0.05140 & + ,0.18836, 0.62123, 1.53480, 2.69040, 2.82340, 2.69900 & + ,2.34020, 2.23700, 2.16640, 2.11830, 2.08770/ + + DATA(qext(1,1,ib,12),ib=1,17) & ! Band 1, RH = 91% + /0.00167, 0.00275, 0.00459, 0.00824, 0.01686, 0.05312 & + ,0.19370, 0.63617, 1.56440, 2.72060, 2.82970, 2.68780 & + ,2.32630, 2.22930, 2.16360, 2.11730, 2.08720/ + + DATA(qext(1,1,ib,13),ib=1,17) & ! Band 1, RH = 92% + /0.00170, 0.00281, 0.00471, 0.00847, 0.01746, 0.05524 & + ,0.20029, 0.65445, 1.60100, 2.75700, 2.83770, 2.68130 & + ,2.31590, 2.23730, 2.16100, 2.11630, 2.08670/ + + DATA(qext(1,1,ib,14),ib=1,17) & ! Band 1, RH = 93% + /0.00173, 0.00287, 0.00484, 0.00876, 0.01821, 0.05793 & + ,0.20863, 0.67733, 1.64690, 2.80240, 2.84230, 2.66420 & + ,2.30400, 2.24000, 2.15680, 2.11670, 2.08580/ + + DATA(qext(1,1,ib,15),ib=1,17) & ! Band 1, RH = 94% + /0.00177, 0.00296, 0.00501, 0.00912, 0.01917, 0.06144 & + ,0.21952, 0.70689, 1.70590, 2.86090, 2.83750, 2.63840 & + ,2.29430, 2.23600, 2.15490, 2.11590, 2.08410/ + + DATA(qext(1,1,ib,16),ib=1,17) & ! Band 1, RH = 95% + /0.00181, 0.00305, 0.00521, 0.00958, 0.02044, 0.06625 & + ,0.23443, 0.74677, 1.78360, 2.93450, 2.81970, 2.60950 & + ,2.28910, 2.22880, 2.15040, 2.11410, 2.08210/ + + DATA(qext(1,1,ib,17),ib=1,17) & ! Band 1, RH = 96% + /0.00187, 0.00318, 0.00548, 0.01020, 0.02224, 0.07325 & + ,0.25619, 0.80417, 1.88990, 3.01840, 2.79740, 2.56840 & + ,2.27980, 2.21950, 2.15160, 2.10840, 2.08070/ + + DATA(qext(1,1,ib,18),ib=1,17) & ! Band 1, RH = 97% + /0.00194, 0.00334, 0.00584, 0.01109, 0.02502, 0.08445 & + ,0.29133, 0.89605, 2.04820, 3.11820, 2.73070, 2.49010 & + ,2.26510, 2.19690, 2.14400, 2.10610, 2.07700/ + + DATA(qext(1,1,ib,19),ib=1,17) & ! Band 1, RH = 98% + /0.00202, 0.00356, 0.00638, 0.01253, 0.02998, 0.10540 & + ,0.35938, 1.07060, 2.32480, 3.22630, 2.61070, 2.36850 & + ,2.24080, 2.18350, 2.13650, 2.09820, 2.07280/ + + DATA(qext(1,1,ib,20),ib=1,17) & ! Band 1, RH = 99% + /0.00214, 0.00390, 0.00730, 0.01549, 0.04218, 0.15907 & + ,0.54778, 1.48410, 2.85730, 3.16580, 2.46260, 2.24560 & + ,2.24020, 2.15030, 2.11870, 2.08630, 2.06390/ + + DATA(qext(1,2,ib,1),ib=1,17) & ! Band 2, RH = 80% + /0.00188, 0.00355, 0.00926, 0.03712, 0.17250, 0.70887 & + ,2.02340, 3.42880, 3.06140, 2.60440, 2.33320, 2.26490 & + ,2.18920, 2.14060, 2.10170, 2.07490, 2.05500/ + + DATA(qext(1,2,ib,2),ib=1,17) & ! Band 2, RH = 81% + /0.00187, 0.00355, 0.00927, 0.03727, 0.17317, 0.71054 & + ,2.02350, 3.42780, 3.06090, 2.60320, 2.33340, 2.26490 & + ,2.18890, 2.14040, 2.10140, 2.07480, 2.05490/ + + DATA(qext(1,2,ib,3),ib=1,17) & ! Band 2, RH = 82% + /0.00187, 0.00354, 0.00928, 0.03745, 0.17391, 0.71241 & + ,2.02380, 3.42680, 3.06020, 2.60170, 2.33270, 2.26420 & + ,2.18820, 2.13990, 2.10130, 2.07470, 2.05480/ + + DATA(qext(1,2,ib,4),ib=1,17) & ! Band 2, RH = 83% + /0.00186, 0.00353, 0.00929, 0.03764, 0.17474, 0.71450 & + ,2.02410, 3.42580, 3.05930, 2.59990, 2.33180, 2.26250 & + ,2.18720, 2.13950, 2.10110, 2.07430, 2.05460/ + + DATA(qext(1,2,ib,5),ib=1,17) & ! Band 2, RH = 84% + /0.00185, 0.00352, 0.00931, 0.03785, 0.17567, 0.71686 & + ,2.02460, 3.42490, 3.05800, 2.59810, 2.33210, 2.26150 & + ,2.18680, 2.13900, 2.10070, 2.07430, 2.05450/ + + DATA(qext(1,2,ib,6),ib=1,17) & ! Band 2, RH = 85% + /0.00184, 0.00351, 0.00932, 0.03810, 0.17672, 0.71955 & + ,2.02530, 3.42410, 3.05620, 2.59560, 2.33120, 2.26080 & + ,2.18620, 2.13880, 2.10050, 2.07390, 2.05430/ + + DATA(qext(1,2,ib,7),ib=1,17) & ! Band 2, RH = 86% + /0.00183, 0.00349, 0.00934, 0.03838, 0.17791, 0.72262 & + ,2.02620, 3.42360, 3.05390, 2.59220, 2.33080, 2.25870 & + ,2.18510, 2.13780, 2.10020, 2.07370, 2.05410/ + + DATA(qext(1,2,ib,8),ib=1,17) & ! Band 2, RH = 87% + /0.00182, 0.00348, 0.00936, 0.03870, 0.17928, 0.72617 & + ,2.02740, 3.42350, 3.05080, 2.58880, 2.32980, 2.25760 & + ,2.18450, 2.13770, 2.09980, 2.07350, 2.05380/ + + DATA(qext(1,2,ib,9),ib=1,17) & ! Band 2, RH = 88% + /0.00181, 0.00347, 0.00939, 0.03908, 0.18086, 0.73033 & + ,2.02910, 3.42380, 3.04690, 2.58440, 2.33040, 2.25510 & + ,2.18280, 2.13650, 2.09940, 2.07300, 2.05360/ + + DATA(qext(1,2,ib,10),ib=1,17) & ! Band 2, RH = 89% + /0.00180, 0.00345, 0.00942, 0.03952, 0.18272, 0.73524 & + ,2.03140, 3.42500, 3.04210, 2.58090, 2.33060, 2.25290 & + ,2.18150, 2.13590, 2.09920, 2.07260, 2.05330/ + + DATA(qext(1,2,ib,11),ib=1,17) & ! Band 2, RH = 90% + /0.00178, 0.00343, 0.00946, 0.04005, 0.18493, 0.74113 & + ,2.03470, 3.42720, 3.03680, 2.57490, 2.33030, 2.25160 & + ,2.18050, 2.13440, 2.09850, 2.07210, 2.05300/ + + DATA(qext(1,2,ib,12),ib=1,17) & ! Band 2, RH = 91% + /0.00177, 0.00341, 0.00952, 0.04070, 0.18761, 0.74832 & + ,2.03930, 3.43070, 3.03190, 2.56800, 2.32880, 2.24900 & + ,2.17930, 2.13300, 2.09790, 2.07150, 2.05250/ + + DATA(qext(1,2,ib,13),ib=1,17) & ! Band 2, RH = 92% + /0.00175, 0.00339, 0.00958, 0.04150, 0.19092, 0.75725 & + ,2.04600, 3.43560, 3.02700, 2.56100, 2.32750, 2.24590 & + ,2.17700, 2.13130, 2.09730, 2.07070, 2.05200/ + + DATA(qext(1,2,ib,14),ib=1,17) & ! Band 2, RH = 93% + /0.00173, 0.00337, 0.00967, 0.04253, 0.19510, 0.76865 & + ,2.05610, 3.44170, 3.01910, 2.55060, 2.32680, 2.24070 & + ,2.17520, 2.12960, 2.09560, 2.06980, 2.05140/ + + DATA(qext(1,2,ib,15),ib=1,17) & ! Band 2, RH = 94% + /0.00171, 0.00334, 0.00979, 0.04388, 0.20056, 0.78361 & + ,2.07180, 3.44860, 3.00600, 2.53720, 2.32560, 2.23450 & + ,2.17290, 2.12670, 2.09400, 2.06870, 2.05060/ + + DATA(qext(1,2,ib,16),ib=1,17) & ! Band 2, RH = 95% + /0.00168, 0.00331, 0.00997, 0.04574, 0.20801, 0.80407 & + ,2.09750, 3.45520, 2.98110, 2.51670, 2.32710, 2.22770 & + ,2.17010, 2.12290, 2.09200, 2.06740, 2.04970/ + + DATA(qext(1,2,ib,17),ib=1,17) & ! Band 2, RH = 96% + /0.00165, 0.00328, 0.01024, 0.04847, 0.21878, 0.83363 & + ,2.14150, 3.46280, 2.94540, 2.49200, 2.32280, 2.21880 & + ,2.16770, 2.12000, 2.08910, 2.06590, 2.04830/ + + DATA(qext(1,2,ib,18),ib=1,17) & ! Band 2, RH = 97% + /0.00161, 0.00325, 0.01068, 0.05282, 0.23577, 0.88021 & + ,2.21860, 3.48830, 2.88970, 2.45290, 2.31840, 2.21050 & + ,2.16160, 2.11590, 2.08590, 2.06310, 2.04650/ + + DATA(qext(1,2,ib,19),ib=1,17) & ! Band 2, RH = 98% + /0.00156, 0.00322, 0.01150, 0.06079, 0.26694, 0.96671 & + ,2.35780, 3.52060, 2.77450, 2.37700, 2.31220, 2.19790 & + ,2.15500, 2.11260, 2.08080, 2.05910, 2.04360/ + + DATA(qext(1,2,ib,20),ib=1,17) & ! Band 2, RH = 99% + /0.00150, 0.00323, 0.01343, 0.07997, 0.34651, 1.20200 & + ,2.70630, 3.51110, 2.55470, 2.24690, 2.28820, 2.19750 & + ,2.12670, 2.09840, 2.07060, 2.05250, 2.03840/ + + DATA(qext(1,3,ib,1),ib=1,17) & ! Band 3, RH = 80% + /0.00551, 0.01885, 0.08808, 0.39024, 1.29860, 2.89670 & + ,3.70940, 2.63090, 2.41080, 2.25560, 2.20910, 2.15790 & + ,2.11870, 2.08870, 2.06480, 2.04770, 2.03510/ + + DATA(qext(1,3,ib,2),ib=1,17) & ! Band 3, RH = 81% + /0.00551, 0.01891, 0.08848, 0.39154, 1.30010, 2.89550 & + ,3.70770, 2.63050, 2.41050, 2.25380, 2.20850, 2.15760 & + ,2.11860, 2.08850, 2.06470, 2.04760, 2.03500/ + + DATA(qext(1,3,ib,3),ib=1,17) & ! Band 3, RH = 82% + /0.00551, 0.01898, 0.08893, 0.39298, 1.30180, 2.89420 & + ,3.70590, 2.62920, 2.41030, 2.25390, 2.20810, 2.15700 & + ,2.11840, 2.08830, 2.06460, 2.04750, 2.03500/ + + DATA(qext(1,3,ib,4),ib=1,17) & ! Band 3, RH = 83% + /0.00551, 0.01905, 0.08943, 0.39457, 1.30380, 2.89300 & + ,3.70390, 2.62760, 2.40910, 2.25360, 2.20740, 2.15680 & + ,2.11800, 2.08810, 2.06440, 2.04740, 2.03490/ + + DATA(qext(1,3,ib,5),ib=1,17) & ! Band 3, RH = 84% + /0.00551, 0.01914, 0.08998, 0.39636, 1.30600, 2.89170 & + ,3.70190, 2.62610, 2.40740, 2.25150, 2.20660, 2.15630 & + ,2.11750, 2.08800, 2.06420, 2.04730, 2.03480/ + + DATA(qext(1,3,ib,6),ib=1,17) & ! Band 3, RH = 85% + /0.00551, 0.01923, 0.09060, 0.39837, 1.30850, 2.89040 & + ,3.70000, 2.62440, 2.40800, 2.25050, 2.20620, 2.15550 & + ,2.11720, 2.08760, 2.06400, 2.04710, 2.03460/ + + DATA(qext(1,3,ib,7),ib=1,17) & ! Band 3, RH = 86% + /0.00551, 0.01933, 0.09131, 0.40064, 1.31150, 2.88920 & + ,3.69760, 2.62270, 2.40740, 2.24890, 2.20580, 2.15510 & + ,2.11670, 2.08730, 2.06370, 2.04690, 2.03450/ + + DATA(qext(1,3,ib,8),ib=1,17) & ! Band 3, RH = 87% + /0.00551, 0.01945, 0.09211, 0.40325, 1.31500, 2.88800 & + ,3.69400, 2.61990, 2.40630, 2.24880, 2.20490, 2.15420 & + ,2.11610, 2.08680, 2.06340, 2.04670, 2.03430/ + + DATA(qext(1,3,ib,9),ib=1,17) & ! Band 3, RH = 88% + /0.00551, 0.01959, 0.09302, 0.40626, 1.31910, 2.88700 & + ,3.68970, 2.61740, 2.40600, 2.24650, 2.20380, 2.15380 & + ,2.11560, 2.08660, 2.06310, 2.04650, 2.03420/ + + DATA(qext(1,3,ib,10),ib=1,17) & ! Band 3, RH = 89% + /0.00551, 0.01975, 0.09409, 0.40979, 1.32400, 2.88630 & + ,3.68580, 2.61230, 2.40590, 2.24480, 2.20240, 2.15230 & + ,2.11490, 2.08610, 2.06270, 2.04620, 2.03400/ + + DATA(qext(1,3,ib,11),ib=1,17) & ! Band 3, RH = 90% + /0.00551, 0.01993, 0.09535, 0.41396, 1.32990, 2.88600 & + ,3.68140, 2.60580, 2.40550, 2.24300, 2.20110, 2.15100 & + ,2.11390, 2.08550, 2.06240, 2.04590, 2.03380/ + + DATA(qext(1,3,ib,12),ib=1,17) & ! Band 3, RH = 91% + /0.00551, 0.02015, 0.09686, 0.41900, 1.33730, 2.88670 & + ,3.67640, 2.59860, 2.40280, 2.24230, 2.20020, 2.15010 & + ,2.11310, 2.08490, 2.06180, 2.04550, 2.03350/ + + DATA(qext(1,3,ib,13),ib=1,17) & ! Band 3, RH = 92% + /0.00552, 0.02042, 0.09869, 0.42519, 1.34650, 2.88870 & + ,3.67070, 2.58810, 2.39860, 2.23810, 2.19920, 2.14890 & + ,2.11150, 2.08400, 2.06120, 2.04510, 2.03320/ + + DATA(qext(1,3,ib,14),ib=1,17) & ! Band 3, RH = 93% + /0.00552, 0.02076, 0.10097, 0.43299, 1.35840, 2.89280 & + ,3.66370, 2.57630, 2.39500, 2.23540, 2.19610, 2.14750 & + ,2.11050, 2.08340, 2.06040, 2.04460, 2.03280/ + + DATA(qext(1,3,ib,15),ib=1,17) & ! Band 3, RH = 94% + /0.00554, 0.02118, 0.10388, 0.44312, 1.37410, 2.90010 & + ,3.65460, 2.55910, 2.39170, 2.23010, 2.19550, 2.14500 & + ,2.10840, 2.08210, 2.05950, 2.04390, 2.03230/ + + DATA(qext(1,3,ib,16),ib=1,17) & ! Band 3, RH = 95% + /0.00555, 0.02174, 0.10775, 0.45682, 1.39590, 2.91340 & + ,3.64110, 2.53880, 2.39300, 2.22590, 2.19220, 2.14330 & + ,2.10700, 2.08030, 2.05830, 2.04300, 2.03160/ + + DATA(qext(1,3,ib,17),ib=1,17) & ! Band 3, RH = 96% + /0.00558, 0.02250, 0.11313, 0.47637, 1.42780, 2.93820 & + ,3.61530, 2.51250, 2.39590, 2.21830, 2.19110, 2.14040 & + ,2.10350, 2.07690, 2.05710, 2.04190, 2.03080/ + + DATA(qext(1,3,ib,18),ib=1,17) & ! Band 3, RH = 97% + /0.00562, 0.02360, 0.12118, 0.50645, 1.48020, 2.98580 & + ,3.57030, 2.45720, 2.39760, 2.21380, 2.19370, 2.13760 & + ,2.09990, 2.07450, 2.05490, 2.04030, 2.02960/ + + DATA(qext(1,3,ib,19),ib=1,17) & ! Band 3, RH = 98% + /0.00569, 0.02534, 0.13461, 0.55830, 1.58210, 3.08140 & + ,3.49730, 2.36320, 2.40250, 2.21830, 2.19310, 2.13570 & + ,2.09610, 2.06970, 2.05130, 2.03780, 2.02780/ + + DATA(qext(1,3,ib,20),ib=1,17) & ! Band 3, RH = 99% + /0.00582, 0.02851, 0.16184, 0.66856, 1.82450, 3.29450 & + ,3.25540, 2.21460, 2.38670, 2.24740, 2.15090, 2.11170 & + ,2.08330, 2.06190, 2.04540, 2.03320, 2.02430/ + + DATA(qext(1,4,ib,1),ib=1,17) & ! Band 4, RH = 80% + /0.00254, 0.00407, 0.00650, 0.01036, 0.01535, 0.02445 & + ,0.03903, 0.06275, 0.10298, 0.17894, 0.35874, 0.90169 & + ,2.24330, 3.18390, 2.89810, 2.58850, 2.44120/ + + DATA(qext(1,4,ib,2),ib=1,17) & ! Band 4, RH = 81% + /0.00256, 0.00410, 0.00654, 0.01044, 0.01547, 0.02465 & + ,0.03935, 0.06328, 0.10386, 0.18051, 0.36192, 0.90814 & + ,2.24520, 3.17780, 2.89510, 2.58700, 2.44020/ + + DATA(qext(1,4,ib,3),ib=1,17) & ! Band 4, RH = 82% + /0.00257, 0.00412, 0.00659, 0.01052, 0.01561, 0.02487 & + ,0.03971, 0.06386, 0.10483, 0.18224, 0.36544, 0.91524 & + ,2.24730, 3.17110, 2.89170, 2.58540, 2.43900/ + + DATA(qext(1,4,ib,4),ib=1,17) & ! Band 4, RH = 83% + /0.00259, 0.00416, 0.00665, 0.01061, 0.01575, 0.02511 & + ,0.04010, 0.06450, 0.10590, 0.18416, 0.36934, 0.92309 & + ,2.24960, 3.16390, 2.88800, 2.58360, 2.43780/ + + DATA(qext(1,4,ib,5),ib=1,17) & ! Band 4, RH = 84% + /0.00261, 0.00419, 0.00671, 0.01071, 0.01592, 0.02538 & + ,0.04054, 0.06521, 0.10710, 0.18630, 0.37370, 0.93181 & + ,2.25200, 3.15600, 2.88390, 2.58160, 2.43630/ + + DATA(qext(1,4,ib,6),ib=1,17) & ! Band 4, RH = 85% + /0.00263, 0.00423, 0.00677, 0.01082, 0.01610, 0.02568 & + ,0.04103, 0.06601, 0.10843, 0.18870, 0.37859, 0.94156 & + ,2.25480, 3.14750, 2.87940, 2.57940, 2.43480/ + + DATA(qext(1,4,ib,7),ib=1,17) & ! Band 4, RH = 86% + /0.00265, 0.00427, 0.00685, 0.01095, 0.01631, 0.02602 & + ,0.04158, 0.06691, 0.10994, 0.19140, 0.38412, 0.95255 & + ,2.25780, 3.13810, 2.87430, 2.57700, 2.43300/ + + DATA(qext(1,4,ib,8),ib=1,17) & ! Band 4, RH = 87% + /0.00267, 0.00431, 0.00693, 0.01109, 0.01654, 0.02640 & + ,0.04220, 0.06794, 0.11166, 0.19449, 0.39043, 0.96501 & + ,2.26130, 3.12790, 2.86860, 2.57420, 2.43100/ + + DATA(qext(1,4,ib,9),ib=1,17) & ! Band 4, RH = 88% + /0.00270, 0.00436, 0.00702, 0.01125, 0.01681, 0.02684 & + ,0.04292, 0.06911, 0.11363, 0.19804, 0.39770, 0.97927 & + ,2.26520, 3.11660, 2.86210, 2.57110, 2.42870/ + + DATA(qext(1,4,ib,10),ib=1,17) & ! Band 4, RH = 89% + /0.00273, 0.00442, 0.00713, 0.01143, 0.01711, 0.02734 & + ,0.04375, 0.07046, 0.11591, 0.20216, 0.40616, 0.99575 & + ,2.26960, 3.10410, 2.85470, 2.56750, 2.42600/ + + DATA(qext(1,4,ib,11),ib=1,17) & ! Band 4, RH = 90% + /0.00276, 0.00449, 0.00725, 0.01164, 0.01747, 0.02793 & + ,0.04471, 0.07205, 0.11859, 0.20701, 0.41614, 1.01500 & + ,2.27490, 3.09030, 2.84620, 2.56340, 2.42290/ + + DATA(qext(1,4,ib,12),ib=1,17) & ! Band 4, RH = 91% + /0.00280, 0.00457, 0.00739, 0.01189, 0.01789, 0.02863 & + ,0.04586, 0.07394, 0.12178, 0.21280, 0.42809, 1.03790 & + ,2.28110, 3.07500, 2.83630, 2.55850, 2.41930/ + + DATA(qext(1,4,ib,13),ib=1,17) & ! Band 4, RH = 92% + /0.00285, 0.00465, 0.00756, 0.01219, 0.01839, 0.02947 & + ,0.04724, 0.07622, 0.12565, 0.21985, 0.44269, 1.06540 & + ,2.28870, 3.05790, 2.82450, 2.55260, 2.41490/ + + DATA(qext(1,4,ib,14),ib=1,17) & ! Band 4, RH = 93% + /0.00290, 0.00476, 0.00776, 0.01255, 0.01901, 0.03050 & + ,0.04894, 0.07904, 0.13044, 0.22862, 0.46091, 1.09920 & + ,2.29840, 3.03870, 2.81020, 2.54540, 2.40960/ + + DATA(qext(1,4,ib,15),ib=1,17) & ! Band 4, RH = 94% + /0.00296, 0.00489, 0.00801, 0.01300, 0.01978, 0.03179 & + ,0.05109, 0.08261, 0.13653, 0.23985, 0.48434, 1.14180 & + ,2.31120, 3.01700, 2.79240, 2.53650, 2.40290/ + + DATA(qext(1,4,ib,16),ib=1,17) & ! Band 4, RH = 95% + /0.00303, 0.00504, 0.00832, 0.01357, 0.02077, 0.03348 & + ,0.05390, 0.08730, 0.14457, 0.25478, 0.51567, 1.19720 & + ,2.32910, 2.99200, 2.76940, 2.52510, 2.39430/ + + DATA(qext(1,4,ib,17),ib=1,17) & ! Band 4, RH = 96% + /0.00312, 0.00524, 0.00872, 0.01434, 0.02211, 0.03578 & + ,0.05775, 0.09375, 0.15572, 0.27574, 0.55989, 1.27230 & + ,2.35630, 2.96150, 2.73870, 2.50990, 2.38290/ + + DATA(qext(1,4,ib,18),ib=1,17) & ! Band 4, RH = 97% + /0.00323, 0.00551, 0.00928, 0.01541, 0.02404, 0.03911 & + ,0.06340, 0.10331, 0.17240, 0.30764, 0.62751, 1.38080 & + ,2.40100, 2.92120, 2.69690, 2.48850, 2.36690/ + + DATA(qext(1,4,ib,19),ib=1,17) & ! Band 4, RH = 98% + /0.00337, 0.00587, 0.01010, 0.01708, 0.02710, 0.04453 & + ,0.07271, 0.11925, 0.20078, 0.36342, 0.74568, 1.55280 & + ,2.47950, 2.86420, 2.63600, 2.45590, 2.34270/ + + DATA(qext(1,4,ib,20),ib=1,17) & ! Band 4, RH = 99% + /0.00357, 0.00644, 0.01151, 0.02016, 0.03309, 0.05554 & + ,0.09218, 0.15362, 0.26458, 0.49546, 1.01500, 1.87470 & + ,2.61310, 2.76300, 2.53870, 2.39880, 2.30010/ + + DATA(qext(1,5,ib,1),ib=1,17) & ! Band 5, RH = 80% + /0.00242, 0.00394, 0.00635, 0.01020, 0.01324, 0.02120 & + ,0.03410, 0.05576, 0.09577, 0.18722, 0.45630, 1.20090 & + ,2.49710, 3.34910, 2.66470, 2.46510, 2.32040/ + + DATA(qext(1,5,ib,2),ib=1,17) & ! Band 5, RH = 81% + /0.00246, 0.00401, 0.00647, 0.01040, 0.01357, 0.02174 & + ,0.03498, 0.05718, 0.09817, 0.19146, 0.46379, 1.20960 & + ,2.49280, 3.33110, 2.66380, 2.46090, 2.31910/ + + DATA(qext(1,5,ib,3),ib=1,17) & ! Band 5, RH = 82% + /0.00250, 0.00408, 0.00660, 0.01062, 0.01393, 0.02233 & + ,0.03594, 0.05875, 0.10080, 0.19614, 0.47202, 1.21900 & + ,2.48820, 3.31180, 2.66260, 2.45650, 2.31770/ + + DATA(qext(1,5,ib,4),ib=1,17) & ! Band 5, RH = 83% + /0.00255, 0.00416, 0.00675, 0.01086, 0.01433, 0.02298 & + ,0.03700, 0.06049, 0.10372, 0.20131, 0.48109, 1.22930 & + ,2.48340, 3.29090, 2.66090, 2.45200, 2.31630/ + + DATA(qext(1,5,ib,5),ib=1,17) & ! Band 5, RH = 84% + /0.00260, 0.00425, 0.00691, 0.01113, 0.01477, 0.02370 & + ,0.03817, 0.06242, 0.10696, 0.20705, 0.49114, 1.24070 & + ,2.47820, 3.26840, 2.65870, 2.44730, 2.31480/ + + DATA(qext(1,5,ib,6),ib=1,17) & ! Band 5, RH = 85% + /0.00265, 0.00435, 0.00708, 0.01143, 0.01526, 0.02451 & + ,0.03948, 0.06457, 0.11059, 0.21348, 0.50236, 1.25320 & + ,2.47260, 3.24390, 2.65590, 2.44240, 2.31310/ + + DATA(qext(1,5,ib,7),ib=1,17) & ! Band 5, RH = 86% + /0.00271, 0.00446, 0.00727, 0.01176, 0.01581, 0.02541 & + ,0.04096, 0.06700, 0.11468, 0.22073, 0.51494, 1.26710 & + ,2.46670, 3.21730, 2.65230, 2.43720, 2.31130/ + + DATA(qext(1,5,ib,8),ib=1,17) & ! Band 5, RH = 87% + /0.00277, 0.00458, 0.00749, 0.01213, 0.01643, 0.02644 & + ,0.04264, 0.06975, 0.11932, 0.22895, 0.52915, 1.28270 & + ,2.46030, 3.18810, 2.64780, 2.43180, 2.30920/ + + DATA(qext(1,5,ib,9),ib=1,17) & ! Band 5, RH = 88% + /0.00284, 0.00472, 0.00774, 0.01256, 0.01714, 0.02761 & + ,0.04455, 0.07289, 0.12463, 0.23837, 0.54535, 1.30010 & + ,2.45340, 3.15620, 2.64210, 2.42610, 2.30690/ + + DATA(qext(1,5,ib,10),ib=1,17) & ! Band 5, RH = 89% + /0.00292, 0.00488, 0.00802, 0.01305, 0.01796, 0.02895 & + ,0.04676, 0.07653, 0.13077, 0.24926, 0.56397, 1.31990 & + ,2.44600, 3.12090, 2.63500, 2.42000, 2.30430/ + + DATA(qext(1,5,ib,11),ib=1,17) & ! Band 5, RH = 90% + /0.00301, 0.00505, 0.00834, 0.01361, 0.01891, 0.03052 & + ,0.04933, 0.08078, 0.13796, 0.26200, 0.58561, 1.34250 & + ,2.43800, 3.08180, 2.62620, 2.41350, 2.30130/ + + DATA(qext(1,5,ib,12),ib=1,17) & ! Band 5, RH = 91% + /0.00311, 0.00526, 0.00872, 0.01427, 0.02002, 0.03238 & + ,0.05238, 0.08581, 0.14649, 0.27713, 0.61107, 1.36850 & + ,2.42950, 3.03820, 2.61510, 2.40630, 2.29760/ + + DATA(qext(1,5,ib,13),ib=1,17) & ! Band 5, RH = 92% + /0.00323, 0.00549, 0.00916, 0.01505, 0.02135, 0.03460 & + ,0.05604, 0.09188, 0.15678, 0.29537, 0.64147, 1.39880 & + ,2.42040, 2.98930, 2.60130, 2.39830, 2.29320/ + + DATA(qext(1,5,ib,14),ib=1,17) & ! Band 5, RH = 93% + /0.00337, 0.00577, 0.00969, 0.01600, 0.02297, 0.03731 & + ,0.06053, 0.09933, 0.16944, 0.31784, 0.67841, 1.43460 & + ,2.41080, 2.93430, 2.58380, 2.38920, 2.28780/ + + DATA(qext(1,5,ib,15),ib=1,17) & ! Band 5, RH = 94% + /0.00352, 0.00610, 0.01033, 0.01716, 0.02499, 0.04071 & + ,0.06618, 0.10872, 0.18545, 0.34620, 0.72430, 1.47770 & + ,2.40100, 2.87210, 2.56160, 2.37850, 2.28100/ + + DATA(qext(1,5,ib,16),ib=1,17) & ! Band 5, RH = 95% + /0.00371, 0.00651, 0.01114, 0.01865, 0.02759, 0.04510 & + ,0.07350, 0.12094, 0.20636, 0.38324, 0.78291, 1.53050 & + ,2.39160, 2.80170, 2.53300, 2.36540, 2.27230/ + + DATA(qext(1,5,ib,17),ib=1,17) & ! Band 5, RH = 96% + /0.00394, 0.00703, 0.01219, 0.02061, 0.03105, 0.05102 & + ,0.08342, 0.13760, 0.23498, 0.43381, 0.86060, 1.59740 & + ,2.38360, 2.72230, 2.49650, 2.34870, 2.26100/ + + DATA(qext(1,5,ib,18),ib=1,17) & ! Band 5, RH = 97% + /0.00423, 0.00771, 0.01361, 0.02334, 0.03596, 0.05950 & + ,0.09777, 0.16184, 0.27693, 0.50762, 0.96915, 1.68600 & + ,2.37880, 2.63290, 2.45060, 2.32640, 2.24580/ + + DATA(qext(1,5,ib,19),ib=1,17) & ! Band 5, RH = 98% + /0.00460, 0.00864, 0.01569, 0.02749, 0.04362, 0.07297 & + ,0.12084, 0.20129, 0.34589, 0.62753, 1.13410, 1.81250 & + ,2.37980, 2.53210, 2.39340, 2.29560, 2.22470/ + + DATA(qext(1,5,ib,20),ib=1,17) & ! Band 5, RH = 99% + /0.00511, 0.01006, 0.01915, 0.03493, 0.05805, 0.09927 & + ,0.16713, 0.28246, 0.49044, 0.86851, 1.42940, 2.02170 & + ,2.39120, 2.41690, 2.32250, 2.25050, 2.19270/ + + DATA(qext(1,6,ib,1),ib=1,17) & ! Band 6, RH = 80% + /0.00499, 0.00790, 0.01251, 0.01984, 0.03252, 0.05194 & + ,0.08390, 0.13958, 0.24905, 0.49482, 0.98441, 1.69740 & + ,2.35350, 2.59790, 2.44710, 2.28060, 2.21050/ + + DATA(qext(1,6,ib,2),ib=1,17) & ! Band 6, RH = 81% + /0.00498, 0.00787, 0.01247, 0.01978, 0.03242, 0.05176 & + ,0.08362, 0.13916, 0.24846, 0.49408, 0.98344, 1.69790 & + ,2.35730, 2.60170, 2.44690, 2.28000, 2.21020/ + + DATA(qext(1,6,ib,3),ib=1,17) & ! Band 6, RH = 82% + /0.00497, 0.00785, 0.01243, 0.01971, 0.03230, 0.05158 & + ,0.08332, 0.13870, 0.24782, 0.49327, 0.98243, 1.69860 & + ,2.36140, 2.60580, 2.44650, 2.27940, 2.20980/ + + DATA(qext(1,6,ib,4),ib=1,17) & ! Band 6, RH = 83% + /0.00495, 0.00783, 0.01239, 0.01964, 0.03217, 0.05137 & + ,0.08299, 0.13819, 0.24713, 0.49240, 0.98136, 1.69950 & + ,2.36610, 2.61030, 2.44600, 2.27870, 2.20940/ + + DATA(qext(1,6,ib,5),ib=1,17) & ! Band 6, RH = 84% + /0.00494, 0.00780, 0.01234, 0.01956, 0.03203, 0.05114 & + ,0.08263, 0.13764, 0.24637, 0.49147, 0.98025, 1.70050 & + ,2.37140, 2.61540, 2.44530, 2.27800, 2.20900/ + + DATA(qext(1,6,ib,6),ib=1,17) & ! Band 6, RH = 85% + /0.00492, 0.00777, 0.01229, 0.01947, 0.03188, 0.05089 & + ,0.08223, 0.13703, 0.24554, 0.49046, 0.97909, 1.70170 & + ,2.37740, 2.62090, 2.44440, 2.27720, 2.20850/ + + DATA(qext(1,6,ib,7),ib=1,17) & ! Band 6, RH = 86% + /0.00490, 0.00774, 0.01223, 0.01937, 0.03170, 0.05061 & + ,0.08179, 0.13635, 0.24462, 0.48937, 0.97790, 1.70320 & + ,2.38420, 2.62710, 2.44330, 2.27630, 2.20790/ + + DATA(qext(1,6,ib,8),ib=1,17) & ! Band 6, RH = 87% + /0.00488, 0.00770, 0.01217, 0.01926, 0.03151, 0.05030 & + ,0.08129, 0.13560, 0.24361, 0.48818, 0.97670, 1.70520 & + ,2.39210, 2.63410, 2.44180, 2.27530, 2.20730/ + + DATA(qext(1,6,ib,9),ib=1,17) & ! Band 6, RH = 88% + /0.00486, 0.00766, 0.01209, 0.01914, 0.03130, 0.04995 & + ,0.08073, 0.13475, 0.24248, 0.48691, 0.97551, 1.70760 & + ,2.40130, 2.64190, 2.43990, 2.27430, 2.20650/ + + DATA(qext(1,6,ib,10),ib=1,17) & ! Band 6, RH = 89% + /0.00484, 0.00762, 0.01201, 0.01901, 0.03105, 0.04955 & + ,0.08010, 0.13380, 0.24123, 0.48553, 0.97440, 1.71080 & + ,2.41220, 2.65080, 2.43740, 2.27320, 2.20560/ + + DATA(qext(1,6,ib,11),ib=1,17) & ! Band 6, RH = 90% + /0.00481, 0.00757, 0.01192, 0.01885, 0.03078, 0.04910 & + ,0.07938, 0.13271, 0.23982, 0.48406, 0.97344, 1.71490 & + ,2.42520, 2.66090, 2.43410, 2.27210, 2.20450/ + + DATA(qext(1,6,ib,12),ib=1,17) & ! Band 6, RH = 91% + /0.00478, 0.00751, 0.01182, 0.01867, 0.03046, 0.04858 & + ,0.07855, 0.13147, 0.23825, 0.48251, 0.97279, 1.72040 & + ,2.44110, 2.67260, 2.42970, 2.27110, 2.20320/ + + DATA(qext(1,6,ib,13),ib=1,17) & ! Band 6, RH = 92% + /0.00475, 0.00744, 0.01170, 0.01847, 0.03009, 0.04797 & + ,0.07759, 0.13003, 0.23647, 0.48093, 0.97270, 1.72790 & + ,2.46090, 2.68610, 2.42330, 2.26990, 2.20150/ + + DATA(qext(1,6,ib,14),ib=1,17) & ! Band 6, RH = 93% + /0.00471, 0.00737, 0.01157, 0.01823, 0.02965, 0.04726 & + ,0.07645, 0.12835, 0.23449, 0.47939, 0.97367, 1.73840 & + ,2.48600, 2.70200, 2.41390, 2.26910, 2.19960/ + + DATA(qext(1,6,ib,15),ib=1,17) & ! Band 6, RH = 94% + /0.00467, 0.00728, 0.01140, 0.01794, 0.02913, 0.04640 & + ,0.07510, 0.12638, 0.23230, 0.47812, 0.97656, 1.75390 & + ,2.51900, 2.72070, 2.40030, 2.26880, 2.19720/ + + DATA(qext(1,6,ib,16),ib=1,17) & ! Band 6, RH = 95% + /0.00462, 0.00718, 0.01121, 0.01760, 0.02850, 0.04537 & + ,0.07347, 0.12405, 0.22996, 0.47757, 0.98317, 1.77750 & + ,2.56350, 2.74130, 2.38190, 2.26880, 2.19440/ + + DATA(qext(1,6,ib,17),ib=1,17) & ! Band 6, RH = 96% + /0.00456, 0.00705, 0.01097, 0.01718, 0.02772, 0.04409 & + ,0.07147, 0.12131, 0.22775, 0.47887, 0.99733, 1.81550 & + ,2.62500, 2.75890, 2.35230, 2.26910, 2.19110/ + + DATA(qext(1,6,ib,18),ib=1,17) & ! Band 6, RH = 97% + /0.00449, 0.00690, 0.01068, 0.01665, 0.02674, 0.04248 & + ,0.06902, 0.11822, 0.22660, 0.48500, 1.02820, 1.88150 & + ,2.71410, 2.77030, 2.31190, 2.26620, 2.18620/ + + DATA(qext(1,6,ib,19),ib=1,17) & ! Band 6, RH = 98% + /0.00440, 0.00671, 0.01030, 0.01598, 0.02548, 0.04049 & + ,0.06614, 0.11546, 0.23018, 0.50585, 1.10060, 2.01490 & + ,2.86900, 2.73110, 2.26860, 2.24470, 2.17470/ + + DATA(qext(1,6,ib,20),ib=1,17) & ! Band 6, RH = 99% + /0.00429, 0.00646, 0.00981, 0.01515, 0.02399, 0.03839 & + ,0.06412, 0.11859, 0.25934, 0.59425, 1.31360, 2.37590 & + ,3.08790, 2.48080, 2.31080, 2.20770, 2.15760/ + + DATA(qext(1,7,ib,1),ib=1,17) & ! Band 7, RH = 80% + /0.00480, 0.00761, 0.01208, 0.01921, 0.03078, 0.04945 & + ,0.08113, 0.14118, 0.28491, 0.73426, 1.97470, 3.23210 & + ,3.10530, 2.50640, 2.43460, 2.32000, 2.23810/ + + DATA(qext(1,7,ib,2),ib=1,17) & ! Band 7, RH = 81% + /0.00479, 0.00761, 0.01208, 0.01919, 0.03077, 0.04942 & + ,0.08109, 0.14112, 0.28480, 0.73326, 1.96640, 3.22440 & + ,3.10860, 2.50420, 2.43450, 2.31940, 2.23750/ + + DATA(qext(1,7,ib,3),ib=1,17) & ! Band 7, RH = 82% + /0.00479, 0.00760, 0.01207, 0.01918, 0.03075, 0.04940 & + ,0.08105, 0.14105, 0.28468, 0.73217, 1.95740, 3.21590 & + ,3.11220, 2.50190, 2.43440, 2.31870, 2.23690/ + + DATA(qext(1,7,ib,4),ib=1,17) & ! Band 7, RH = 83% + /0.00479, 0.00760, 0.01206, 0.01916, 0.03073, 0.04936 & + ,0.08100, 0.14098, 0.28454, 0.73094, 1.94760, 3.20650 & + ,3.11610, 2.49950, 2.43430, 2.31790, 2.23630/ + + DATA(qext(1,7,ib,5),ib=1,17) & ! Band 7, RH = 84% + /0.00479, 0.00759, 0.01205, 0.01914, 0.03071, 0.04933 & + ,0.08093, 0.14088, 0.28438, 0.72958, 1.93680, 3.19600 & + ,3.12030, 2.49690, 2.43420, 2.31710, 2.23550/ + + DATA(qext(1,7,ib,6),ib=1,17) & ! Band 7, RH = 85% + /0.00478, 0.00758, 0.01203, 0.01912, 0.03068, 0.04928 & + ,0.08086, 0.14077, 0.28419, 0.72803, 1.92490, 3.18420 & + ,3.12500, 2.49410, 2.43410, 2.31610, 2.23470/ + + DATA(qext(1,7,ib,7),ib=1,17) & ! Band 7, RH = 86% + /0.00478, 0.00758, 0.01202, 0.01910, 0.03065, 0.04923 & + ,0.08078, 0.14064, 0.28396, 0.72629, 1.91170, 3.17090 & + ,3.13000, 2.49110, 2.43390, 2.31510, 2.23380/ + + DATA(qext(1,7,ib,8),ib=1,17) & ! Band 7, RH = 87% + /0.00477, 0.00757, 0.01200, 0.01907, 0.03061, 0.04916 & + ,0.08067, 0.14048, 0.28369, 0.72429, 1.89710, 3.15580 & + ,3.13550, 2.48800, 2.43380, 2.31400, 2.23270/ + + DATA(qext(1,7,ib,9),ib=1,17) & ! Band 7, RH = 88% + /0.00477, 0.00756, 0.01198, 0.01903, 0.03056, 0.04908 & + ,0.08055, 0.14029, 0.28336, 0.72199, 1.88060, 3.13850 & + ,3.14160, 2.48470, 2.43360, 2.31270, 2.23160/ + + DATA(qext(1,7,ib,10),ib=1,17) & ! Band 7, RH = 89% + /0.00476, 0.00754, 0.01196, 0.01899, 0.03050, 0.04899 & + ,0.08039, 0.14006, 0.28296, 0.71932, 1.86210, 3.11850 & + ,3.14820, 2.48130, 2.43340, 2.31130, 2.23020/ + + DATA(qext(1,7,ib,11),ib=1,17) & ! Band 7, RH = 90% + /0.00476, 0.00753, 0.01193, 0.01894, 0.03043, 0.04887 & + ,0.08020, 0.13976, 0.28247, 0.71619, 1.84100, 3.09520 & + ,3.15540, 2.47790, 2.43300, 2.30960, 2.22860/ + + DATA(qext(1,7,ib,12),ib=1,17) & ! Band 7, RH = 91% + /0.00475, 0.00751, 0.01190, 0.01888, 0.03034, 0.04872 & + ,0.07996, 0.13939, 0.28187, 0.71247, 1.81690, 3.06760 & + ,3.16320, 2.47450, 2.43250, 2.30760, 2.22670/ + + DATA(qext(1,7,ib,13),ib=1,17) & ! Band 7, RH = 92% + /0.00474, 0.00749, 0.01186, 0.01881, 0.03023, 0.04853 & + ,0.07965, 0.13892, 0.28111, 0.70800, 1.78910, 3.03460 & + ,3.17130, 2.47150, 2.43170, 2.30530, 2.22450/ + + DATA(qext(1,7,ib,14),ib=1,17) & ! Band 7, RH = 93% + /0.00473, 0.00747, 0.01181, 0.01872, 0.03008, 0.04828 & + ,0.07925, 0.13832, 0.28015, 0.70256, 1.75670, 2.99450 & + ,3.17930, 2.46920, 2.43040, 2.30230, 2.22180/ + + DATA(qext(1,7,ib,15),ib=1,17) & ! Band 7, RH = 94% + /0.00471, 0.00743, 0.01174, 0.01860, 0.02989, 0.04795 & + ,0.07872, 0.13752, 0.27893, 0.69585, 1.71850, 2.94500 & + ,3.18610, 2.46820, 2.42810, 2.29850, 2.21840/ + + DATA(qext(1,7,ib,16),ib=1,17) & ! Band 7, RH = 95% + /0.00469, 0.00739, 0.01166, 0.01844, 0.02963, 0.04751 & + ,0.07800, 0.13645, 0.27737, 0.68746, 1.67330, 2.88290 & + ,3.18940, 2.46930, 2.42370, 2.29340, 2.21410/ + + DATA(qext(1,7,ib,17),ib=1,17) & ! Band 7, RH = 96% + /0.00467, 0.00734, 0.01155, 0.01823, 0.02926, 0.04689 & + ,0.07701, 0.13501, 0.27544, 0.67690, 1.61940, 2.80360 & + ,3.18460, 2.47420, 2.41530, 2.28590, 2.20840/ + + DATA(qext(1,7,ib,18),ib=1,17) & ! Band 7, RH = 97% + /0.00464, 0.00727, 0.01140, 0.01794, 0.02874, 0.04602 & + ,0.07562, 0.13310, 0.27332, 0.66393, 1.55590, 2.70240 & + ,3.16540, 2.48320, 2.40070, 2.27470, 2.20060/ + + DATA(qext(1,7,ib,19),ib=1,17) & ! Band 7, RH = 98% + /0.00460, 0.00717, 0.01118, 0.01753, 0.02798, 0.04476 & + ,0.07372, 0.13090, 0.27257, 0.65053, 1.48570, 2.58440 & + ,3.13330, 2.48800, 2.37430, 2.25700, 2.18850/ + + DATA(qext(1,7,ib,20),ib=1,17) & ! Band 7, RH = 99% + /0.00455, 0.00702, 0.01086, 0.01696, 0.02694, 0.04324 & + ,0.07208, 0.13183, 0.28505, 0.66024, 1.44830, 2.52130 & + ,3.07560, 2.44530, 2.33400, 2.22740, 2.16620/ + + DATA(qext(1,8,ib,1),ib=1,17) & ! Band 8, RH = 80% + /0.00163, 0.00259, 0.00411, 0.00654, 0.01041, 0.01685 & + ,0.02841, 0.05378, 0.12576, 0.32198, 0.82147, 1.75220 & + ,2.80160, 2.74470, 2.40400, 2.22710, 2.17840/ + + DATA(qext(1,8,ib,2),ib=1,17) & ! Band 8, RH = 81% + /0.00163, 0.00259, 0.00411, 0.00654, 0.01042, 0.01686 & + ,0.02845, 0.05398, 0.12665, 0.32480, 0.82901, 1.76620 & + ,2.81420, 2.74120, 2.40490, 2.22820, 2.17680/ + + DATA(qext(1,8,ib,3),ib=1,17) & ! Band 8, RH = 82% + /0.00163, 0.00259, 0.00411, 0.00655, 0.01042, 0.01687 & + ,0.02850, 0.05420, 0.12765, 0.32794, 0.83738, 1.78160 & + ,2.82800, 2.73720, 2.40590, 2.22950, 2.17510/ + + DATA(qext(1,8,ib,4),ib=1,17) & ! Band 8, RH = 83% + /0.00163, 0.00259, 0.00412, 0.00655, 0.01043, 0.01689 & + ,0.02855, 0.05446, 0.12876, 0.33145, 0.84670, 1.79860 & + ,2.84300, 2.73280, 2.40700, 2.23120, 2.17340/ + + DATA(qext(1,8,ib,5),ib=1,17) & ! Band 8, RH = 84% + /0.00163, 0.00259, 0.00412, 0.00655, 0.01043, 0.01690 & + ,0.02861, 0.05474, 0.13002, 0.33540, 0.85717, 1.81760 & + ,2.85950, 2.72770, 2.40810, 2.23330, 2.17160/ + + DATA(qext(1,8,ib,6),ib=1,17) & ! Band 8, RH = 85% + /0.00163, 0.00259, 0.00412, 0.00656, 0.01044, 0.01692 & + ,0.02868, 0.05507, 0.13144, 0.33989, 0.86900, 1.83900 & + ,2.87760, 2.72180, 2.40900, 2.23590, 2.16970/ + + DATA(qext(1,8,ib,7),ib=1,17) & ! Band 8, RH = 86% + /0.00163, 0.00259, 0.00412, 0.00657, 0.01045, 0.01694 & + ,0.02876, 0.05544, 0.13308, 0.34503, 0.88249, 1.86310 & + ,2.89760, 2.71470, 2.40920, 2.23890, 2.16790/ + + DATA(qext(1,8,ib,8),ib=1,17) & ! Band 8, RH = 87% + /0.00163, 0.00260, 0.00413, 0.00657, 0.01046, 0.01697 & + ,0.02885, 0.05588, 0.13498, 0.35098, 0.89800, 1.89050 & + ,2.91970, 2.70590, 2.40830, 2.24230, 2.16640/ + + DATA(qext(1,8,ib,9),ib=1,17) & ! Band 8, RH = 88% + /0.00163, 0.00260, 0.00413, 0.00658, 0.01047, 0.01700 & + ,0.02897, 0.05640, 0.13720, 0.35793, 0.91602, 1.92210 & + ,2.94410, 2.69470, 2.40600, 2.24610, 2.16530/ + + DATA(qext(1,8,ib,10),ib=1,17) & ! Band 8, RH = 89% + /0.00164, 0.00260, 0.00414, 0.00659, 0.01048, 0.01704 & + ,0.02911, 0.05702, 0.13983, 0.36618, 0.93722, 1.95870 & + ,2.97090, 2.68010, 2.40290, 2.25010, 2.16490/ + + DATA(qext(1,8,ib,11),ib=1,17) & ! Band 8, RH = 90% + /0.00164, 0.00260, 0.00414, 0.00660, 0.01050, 0.01709 & + ,0.02927, 0.05778, 0.14300, 0.37610, 0.96251, 2.00160 & + ,3.00020, 2.66140, 2.39900, 2.25370, 2.16550/ + + DATA(qext(1,8,ib,12),ib=1,17) & ! Band 8, RH = 91% + /0.00164, 0.00261, 0.00415, 0.00662, 0.01053, 0.01715 & + ,0.02948, 0.05871, 0.14690, 0.38828, 0.99316, 2.05240 & + ,3.03170, 2.63890, 2.39260, 2.25630, 2.16720/ + + DATA(qext(1,8,ib,13),ib=1,17) & ! Band 8, RH = 92% + /0.00164, 0.00261, 0.00416, 0.00664, 0.01056, 0.01723 & + ,0.02976, 0.05991, 0.15178, 0.40358, 1.03100, 2.11360 & + ,3.06510, 2.61260, 2.38150, 2.25620, 2.16960/ + + DATA(qext(1,8,ib,14),ib=1,17) & ! Band 8, RH = 93% + /0.00164, 0.00262, 0.00418, 0.00667, 0.01061, 0.01733 & + ,0.03012, 0.06147, 0.15808, 0.42334, 1.07880, 2.18790 & + ,3.10060, 2.57890, 2.36740, 2.25160, 2.17130/ + + DATA(qext(1,8,ib,15),ib=1,17) & ! Band 8, RH = 94% + /0.00165, 0.00263, 0.00419, 0.00670, 0.01067, 0.01748 & + ,0.03061, 0.06360, 0.16650, 0.44979, 1.14070, 2.27980 & + ,3.13870, 2.53230, 2.34560, 2.23960, 2.16910/ + + DATA(qext(1,8,ib,16),ib=1,17) & ! Band 8, RH = 95% + /0.00165, 0.00264, 0.00422, 0.00676, 0.01076, 0.01770 & + ,0.03133, 0.06666, 0.17829, 0.48689, 1.22340, 2.39660 & + ,3.17410, 2.47980, 2.31710, 2.21940, 2.15990/ + + DATA(qext(1,8,ib,17),ib=1,17) & ! Band 8, RH = 96% + /0.00166, 0.00266, 0.00426, 0.00683, 0.01090, 0.01804 & + ,0.03244, 0.07138, 0.19586, 0.54214, 1.33890, 2.55320 & + ,3.18710, 2.41090, 2.28240, 2.19910, 2.14960/ + + DATA(qext(1,8,ib,18),ib=1,17) & ! Band 8, RH = 97% + /0.00167, 0.00268, 0.00432, 0.00696, 0.01114, 0.01863 & + ,0.03436, 0.07949, 0.22470, 0.63126, 1.51360, 2.77130 & + ,3.15860, 2.34700, 2.25630, 2.20040, 2.15260/ + + DATA(qext(1,8,ib,19),ib=1,17) & ! Band 8, RH = 98% + /0.00168, 0.00272, 0.00441, 0.00719, 0.01160, 0.01979 & + ,0.03834, 0.09623, 0.28030, 0.79283, 1.82160, 3.05890 & + ,2.99010, 2.32150, 2.27670, 2.20150, 2.13750/ + + DATA(qext(1,8,ib,20),ib=1,17) & ! Band 8, RH = 99% + /0.00170, 0.00279, 0.00462, 0.00771, 0.01277, 0.02302 & + ,0.05034, 0.14638, 0.43704, 1.19370, 2.46260, 3.34130 & + ,2.49980, 2.33230, 2.21850, 2.16760, 2.12290/ + +! Qext for Sea Salt: + DATA(qext(2,1,ib,1),ib=1,17) & ! Band 1, RH = 80% + /0.00349, 0.00585, 0.01063, 0.02441, 0.07376, 0.26299 & + ,0.84952, 2.05200, 3.35470, 2.85810, 2.47760, 2.33190 & + ,2.20670, 2.15340, 2.10590, 2.08120, 2.05990/ + + DATA(qext(2,1,ib,2),ib=1,17) & ! Band 1, RH = 81% + /0.00357, 0.00599, 0.01089, 0.02518, 0.07646, 0.27096 & + ,0.86962, 2.08480, 3.36910, 2.82990, 2.48150, 2.33470 & + ,2.21820, 2.14500, 2.11100, 2.07930, 2.06000/ + + DATA(qext(2,1,ib,3),ib=1,17) & ! Band 1, RH = 82% + /0.00365, 0.00611, 0.01117, 0.02600, 0.07936, 0.27951 & + ,0.89098, 2.11900, 3.38140, 2.80200, 2.47430, 2.32240 & + ,2.21670, 2.14250, 2.10880, 2.08250, 2.05990/ + + DATA(qext(2,1,ib,4),ib=1,17) & ! Band 1, RH = 83% + /0.00372, 0.00625, 0.01146, 0.02689, 0.08251, 0.28878 & + ,0.91393, 2.15500, 3.39170, 2.76950, 2.48360, 2.31850 & + ,2.21360, 2.13720, 2.11040, 2.08130, 2.05790/ + + DATA(qext(2,1,ib,5),ib=1,17) & ! Band 1, RH = 84% + /0.00380, 0.00639, 0.01177, 0.02786, 0.08596, 0.29893 & + ,0.93888, 2.19320, 3.40050, 2.73050, 2.48410, 2.31380 & + ,2.23340, 2.13990, 2.11120, 2.07980, 2.05830/ + + DATA(qext(2,1,ib,6),ib=1,17) & ! Band 1, RH = 85% + /0.00389, 0.00655, 0.01211, 0.02894, 0.08979, 0.31019 & + ,0.96636, 2.23450, 3.40910, 2.68780, 2.47120, 2.30470 & + ,2.22760, 2.14050, 2.10520, 2.07710, 2.05760/ + + DATA(qext(2,1,ib,7),ib=1,17) & ! Band 1, RH = 86% + /0.00397, 0.00671, 0.01248, 0.03014, 0.09408, 0.32282 & + ,0.99705, 2.27990, 3.41940, 2.65090, 2.46890, 2.30380 & + ,2.22180, 2.14070, 2.10180, 2.07730, 2.05520/ + + DATA(qext(2,1,ib,8),ib=1,17) & ! Band 1, RH = 87% + /0.00407, 0.00689, 0.01290, 0.03150, 0.09895, 0.33721 & + ,1.03180, 2.33070, 3.43100, 2.61480, 2.46280, 2.28200 & + ,2.21590, 2.14180, 2.10560, 2.07630, 2.05630/ + + DATA(qext(2,1,ib,9),ib=1,17) & ! Band 1, RH = 88% + /0.00418, 0.00709, 0.01336, 0.03307, 0.10453, 0.35383 & + ,1.07160, 2.38810, 3.43980, 2.56950, 2.44850, 2.27090 & + ,2.20540, 2.13770, 2.10780, 2.07520, 2.05480/ + + DATA(qext(2,1,ib,10),ib=1,17) & ! Band 1, RH = 89% + /0.00429, 0.00731, 0.01389, 0.03490, 0.11102, 0.37334 & + ,1.11760, 2.45290, 3.44060, 2.52130, 2.42610, 2.26750 & + ,2.19970, 2.13440, 2.10170, 2.07460, 2.05400/ + + DATA(qext(2,1,ib,11),ib=1,17) & ! Band 1, RH = 90% + /0.00442, 0.00757, 0.01451, 0.03707, 0.11868, 0.39663 & + ,1.17140, 2.52490, 3.43240, 2.48520, 2.39120, 2.23590 & + ,2.16620, 2.12900, 2.09940, 2.07080, 2.05470/ + + DATA(qext(2,1,ib,12),ib=1,17) & ! Band 1, RH = 91% + /0.00457, 0.00786, 0.01524, 0.03968, 0.12784, 0.42494 & + ,1.23440, 2.60350, 3.42150, 2.43800, 2.35710, 2.22370 & + ,2.17250, 2.13740, 2.09600, 2.07170, 2.05300/ + + DATA(qext(2,1,ib,13),ib=1,17) & ! Band 1, RH = 92% + /0.00473, 0.00819, 0.01611, 0.04291, 0.13902, 0.45998 & + ,1.30850, 2.68960, 3.40300, 2.40630, 2.31340, 2.21730 & + ,2.16670, 2.13510, 2.09370, 2.06860, 2.05170/ + + DATA(qext(2,1,ib,14),ib=1,17) & ! Band 1, RH = 93% + /0.00493, 0.00859, 0.01718, 0.04701, 0.15294, 0.50417 & + ,1.39610, 2.78890, 3.35590, 2.37480, 2.28100, 2.21960 & + ,2.17270, 2.12740, 2.09420, 2.06590, 2.05000/ + + DATA(qext(2,1,ib,15),ib=1,17) & ! Band 1, RH = 94% + /0.00516, 0.00908, 0.01855, 0.05238, 0.17077, 0.56086 & + ,1.50230, 2.90860, 3.29510, 2.36550, 2.23540, 2.23320 & + ,2.16420, 2.11760, 2.08870, 2.06420, 2.04830/ + + DATA(qext(2,1,ib,16),ib=1,17) & ! Band 1, RH = 95% + /0.00544, 0.00970, 0.02037, 0.05975, 0.19450, 0.63487 & + ,1.63810, 3.03920, 3.18750, 2.38200, 2.23630, 2.23270 & + ,2.15860, 2.11720, 2.08660, 2.06270, 2.04640/ + + DATA(qext(2,1,ib,17),ib=1,17) & ! Band 1, RH = 96% + /0.00579, 0.01051, 0.02294, 0.07055, 0.22793, 0.73404 & + ,1.82270, 3.18160, 3.02990, 2.41900, 2.28590, 2.20170 & + ,2.15960, 2.11370, 2.08370, 2.05950, 2.04270/ + + DATA(qext(2,1,ib,18),ib=1,17) & ! Band 1, RH = 97% + /0.00626, 0.01167, 0.02696, 0.08791, 0.27982, 0.87708 & + ,2.07510, 3.32470, 2.79050, 2.45920, 2.32460, 2.21040 & + ,2.14170, 2.10430, 2.07820, 2.05680, 2.04480/ + + DATA(qext(2,1,ib,19),ib=1,17) & ! Band 1, RH = 98% + /0.00695, 0.01356, 0.03432, 0.12030, 0.37724, 1.12820 & + ,2.46260, 3.40740, 2.49130, 2.38910, 2.24180, 2.17780 & + ,2.12330, 2.09340, 2.07070, 2.05270, 2.04050/ + + DATA(qext(2,1,ib,20),ib=1,17) & ! Band 1, RH = 99% + /0.00814, 0.01752, 0.05311, 0.20048, 0.63541, 1.67050 & + ,3.07500, 3.11800, 2.39820, 2.25790, 2.21080, 2.15350 & + ,2.11390, 2.08310, 2.06090, 2.04480, 2.03340/ + + DATA(qext(2,2,ib,1),ib=1,17) & ! Band 2, RH = 80% + /0.00073, 0.00478, 0.02966, 0.15050, 0.53722, 1.54670 & + ,3.05970, 3.42670, 2.44540, 2.26250, 2.22890, 2.15640 & + ,2.12460, 2.08730, 2.06720, 2.04990, 2.03650/ + + DATA(qext(2,2,ib,2),ib=1,17) & ! Band 2, RH = 81% + /0.00077, 0.00503, 0.03101, 0.15593, 0.55377, 1.57760 & + ,3.09020, 3.40500, 2.43890, 2.27260, 2.22590, 2.15460 & + ,2.12160, 2.09360, 2.06470, 2.04870, 2.03610/ + + DATA(qext(2,2,ib,3),ib=1,17) & ! Band 2, RH = 82% + /0.00081, 0.00527, 0.03248, 0.16174, 0.57138, 1.61060 & + ,3.12080, 3.37910, 2.43450, 2.27830, 2.21480, 2.16280 & + ,2.12660, 2.09620, 2.06490, 2.04830, 2.03510/ + + DATA(qext(2,2,ib,4),ib=1,17) & ! Band 2, RH = 83% + /0.00085, 0.00555, 0.03409, 0.16803, 0.59022, 1.64620 & + ,3.15150, 3.34960, 2.43090, 2.29100, 2.19980, 2.15830 & + ,2.11930, 2.08830, 2.06620, 2.04760, 2.03490/ + + DATA(qext(2,2,ib,5),ib=1,17) & ! Band 2, RH = 84% + /0.00090, 0.00585, 0.03587, 0.17489, 0.61054, 1.68490 & + ,3.18270, 3.31850, 2.42300, 2.30130, 2.19480, 2.16140 & + ,2.12130, 2.08860, 2.06390, 2.04680, 2.03520/ + + DATA(qext(2,2,ib,6),ib=1,17) & ! Band 2, RH = 85% + /0.00095, 0.00618, 0.03785, 0.18244, 0.63264, 1.72720 & + ,3.21510, 3.28760, 2.42060, 2.30780, 2.19060, 2.16150 & + ,2.11790, 2.08930, 2.06310, 2.04700, 2.03460/ + + DATA(qext(2,2,ib,7),ib=1,17) & ! Band 2, RH = 86% + /0.00100, 0.00656, 0.04009, 0.19087, 0.65691, 1.77390 & + ,3.25010, 3.25270, 2.41610, 2.31980, 2.18760, 2.16470 & + ,2.11480, 2.08460, 2.06290, 2.04650, 2.03430/ + + DATA(qext(2,2,ib,8),ib=1,17) & ! Band 2, RH = 87% + /0.00107, 0.00700, 0.04265, 0.20038, 0.68382, 1.82560 & + ,3.28870, 3.20910, 2.40750, 2.33030, 2.18670, 2.16050 & + ,2.11590, 2.08410, 2.06090, 2.04530, 2.03320/ + + DATA(qext(2,2,ib,9),ib=1,17) & ! Band 2, RH = 88% + /0.00114, 0.00751, 0.04562, 0.21127, 0.71403, 1.88290 & + ,3.33030, 3.15620, 2.40130, 2.33820, 2.18590, 2.15390 & + ,2.11220, 2.08320, 2.06180, 2.04550, 2.03290/ + + DATA(qext(2,2,ib,10),ib=1,17) & ! Band 2, RH = 89% + /0.00123, 0.00810, 0.04911, 0.22392, 0.74842, 1.94670 & + ,3.37220, 3.10120, 2.39480, 2.35070, 2.18800, 2.15340 & + ,2.11070, 2.08280, 2.06080, 2.04420, 2.03280/ + + DATA(qext(2,2,ib,11),ib=1,17) & ! Band 2, RH = 90% + /0.00133, 0.00882, 0.05327, 0.23887, 0.78821, 2.01810 & + ,3.41150, 3.03950, 2.38500, 2.34780, 2.19880, 2.15390 & + ,2.11260, 2.08450, 2.06070, 2.04320, 2.03230/ + + DATA(qext(2,2,ib,12),ib=1,17) & ! Band 2, RH = 91% + /0.00145, 0.00971, 0.05833, 0.25688, 0.83522, 2.09940 & + ,3.44850, 2.96190, 2.37200, 2.35100, 2.20660, 2.15880 & + ,2.11170, 2.08000, 2.05730, 2.04270, 2.03170/ + + DATA(qext(2,2,ib,13),ib=1,17) & ! Band 2, RH = 92% + /0.00161, 0.01081, 0.06459, 0.27911, 0.89214, 2.19430 & + ,3.48840, 2.88390, 2.35320, 2.33630, 2.21150, 2.15930 & + ,2.10720, 2.07590, 2.05600, 2.04210, 2.03100/ + + DATA(qext(2,2,ib,14),ib=1,17) & ! Band 2, RH = 93% + /0.00180, 0.01223, 0.07253, 0.30737, 0.96298, 2.30810 & + ,3.52580, 2.78820, 2.32890, 2.31120, 2.20410, 2.14200 & + ,2.10330, 2.07500, 2.05530, 2.04220, 2.03110/ + + DATA(qext(2,2,ib,15),ib=1,17) & ! Band 2, RH = 94% + /0.00206, 0.01413, 0.08288, 0.34459, 1.05340, 2.44450 & + ,3.54420, 2.68990, 2.29220, 2.28850, 2.19630, 2.13620 & + ,2.10310, 2.07400, 2.05410, 2.03940, 2.02820/ + + DATA(qext(2,2,ib,16),ib=1,17) & ! Band 2, RH = 95% + /0.00242, 0.01676, 0.09691, 0.39573, 1.17090, 2.60460 & + ,3.54950, 2.58520, 2.25350, 2.27360, 2.19760, 2.13130 & + ,2.09650, 2.06900, 2.05110, 2.03880, 2.02800/ + + DATA(qext(2,2,ib,17),ib=1,17) & ! Band 2, RH = 96% + /0.00293, 0.02066, 0.11694, 0.46932, 1.32710, 2.80500 & + ,3.50020, 2.49110, 2.22740, 2.26050, 2.17740, 2.12660 & + ,2.09100, 2.06630, 2.04970, 2.03680, 2.02690/ + + DATA(qext(2,2,ib,18),ib=1,17) & ! Band 2, RH = 97% + /0.00374, 0.02698, 0.14786, 0.58054, 1.55110, 3.05690 & + ,3.36840, 2.42170, 2.26450, 2.20950, 2.14900, 2.11740 & + ,2.08720, 2.06380, 2.04620, 2.03400, 2.02590/ + + DATA(qext(2,2,ib,19),ib=1,17) & ! Band 2, RH = 98% + /0.00520, 0.03881, 0.20254, 0.76450, 1.91460, 3.35310 & + ,3.06610, 2.38510, 2.34530, 2.19040, 2.15060, 2.10930 & + ,2.08170, 2.05850, 2.04290, 2.03050, 2.02300/ + + DATA(qext(2,2,ib,20),ib=1,17) & ! Band 2, RH = 99% + /0.00854, 0.06789, 0.33643, 1.18010, 2.58590, 3.53320 & + ,2.54050, 2.23250, 2.26170, 2.19240, 2.12710, 2.09350 & + ,2.06850, 2.05000, 2.03640, 2.02810, 2.02020/ + + DATA(qext(2,3,ib,1),ib=1,17) & ! Band 3, RH = 80% + /0.01390, 0.07864, 0.33227, 1.04460, 2.28450, 3.49860 & + ,2.98590, 2.19520, 2.34920, 2.22500, 2.14170, 2.11100 & + ,2.08200, 2.06070, 2.04250, 2.03250, 2.02220/ + + DATA(qext(2,3,ib,2),ib=1,17) & ! Band 3, RH = 81% + /0.01464, 0.08201, 0.34275, 1.06840, 2.31620, 3.50960 & + ,2.95390, 2.20050, 2.34220, 2.22620, 2.13860, 2.10850 & + ,2.08410, 2.05850, 2.04410, 2.03120, 2.02240/ + + DATA(qext(2,3,ib,3),ib=1,17) & ! Band 3, RH = 82% + /0.01537, 0.08541, 0.35400, 1.09360, 2.34930, 3.52010 & + ,2.92280, 2.20660, 2.32180, 2.21840, 2.14490, 2.10860 & + ,2.07680, 2.05670, 2.04130, 2.03020, 2.02270/ + + DATA(qext(2,3,ib,4),ib=1,17) & ! Band 3, RH = 83% + /0.01612, 0.08908, 0.36614, 1.12070, 2.38480, 3.53090 & + ,2.89170, 2.21720, 2.31400, 2.20760, 2.14590, 2.10120 & + ,2.07690, 2.05470, 2.04240, 2.03040, 2.02310/ + + DATA(qext(2,3,ib,5),ib=1,17) & ! Band 3, RH = 84% + /0.01694, 0.09310, 0.37934, 1.14990, 2.42310, 3.53880 & + ,2.85880, 2.22360, 2.29950, 2.20100, 2.14770, 2.09830 & + ,2.07260, 2.05660, 2.04210, 2.02990, 2.02290/ + + DATA(qext(2,3,ib,6),ib=1,17) & ! Band 3, RH = 85% + /0.01784, 0.09754, 0.39382, 1.18200, 2.46470, 3.54480 & + ,2.82240, 2.23140, 2.28320, 2.19710, 2.14640, 2.10400 & + ,2.07280, 2.05520, 2.04110, 2.02970, 2.02150/ + + DATA(qext(2,3,ib,7),ib=1,17) & ! Band 3, RH = 86% + /0.01885, 0.10249, 0.40984, 1.21740, 2.50980, 3.54840 & + ,2.78170, 2.24250, 2.26770, 2.18710, 2.15200, 2.09650 & + ,2.07650, 2.05450, 2.03980, 2.02960, 2.02250/ + + DATA(qext(2,3,ib,8),ib=1,17) & ! Band 3, RH = 87% + /0.01999, 0.10807, 0.42771, 1.25700, 2.55930, 3.54920 & + ,2.73530, 2.25490, 2.25220, 2.18260, 2.14880, 2.10060 & + ,2.07430, 2.05380, 2.03970, 2.03000, 2.02120/ + + DATA(qext(2,3,ib,9),ib=1,17) & ! Band 3, RH = 88% + /0.02130, 0.11445, 0.44784, 1.30140, 2.61360, 3.55050 & + ,2.68520, 2.27430, 2.23320, 2.16970, 2.14060, 2.10390 & + ,2.07340, 2.05340, 2.03930, 2.02810, 2.02020/ + + DATA(qext(2,3,ib,10),ib=1,17) & ! Band 3, RH = 89% + /0.02282, 0.12184, 0.47072, 1.35140, 2.67260, 3.54930 & + ,2.63090, 2.28640, 2.21800, 2.16130, 2.12830, 2.09900 & + ,2.07080, 2.05160, 2.03850, 2.02900, 2.02030/ + + DATA(qext(2,3,ib,11),ib=1,17) & ! Band 3, RH = 90% + /0.02461, 0.13049, 0.49706, 1.40850, 2.73990, 3.54170 & + ,2.57320, 2.30470, 2.20080, 2.15640, 2.13060, 2.09570 & + ,2.06830, 2.05220, 2.03740, 2.02830, 2.02120/ + + DATA(qext(2,3,ib,12),ib=1,17) & ! Band 3, RH = 91% + /0.02676, 0.14077, 0.52789, 1.47490, 2.81590, 3.52420 & + ,2.51200, 2.32930, 2.18840, 2.16050, 2.12120, 2.09040 & + ,2.06970, 2.05110, 2.03810, 2.02760, 2.01930/ + + DATA(qext(2,3,ib,13),ib=1,17) & ! Band 3, RH = 92% + /0.02940, 0.15318, 0.56477, 1.55310, 2.90210, 3.49850 & + ,2.44450, 2.34220, 2.18330, 2.16790, 2.11720, 2.08720 & + ,2.06750, 2.05040, 2.03660, 2.02660, 2.02010/ + + DATA(qext(2,3,ib,14),ib=1,17) & ! Band 3, RH = 93% + /0.03270, 0.16840, 0.61014, 1.64650, 2.99490, 3.45990 & + ,2.36890, 2.36290, 2.18670, 2.17930, 2.12060, 2.09160 & + ,2.06580, 2.04780, 2.03540, 2.02620, 2.01870/ + + DATA(qext(2,3,ib,15),ib=1,17) & ! Band 3, RH = 94% + /0.03695, 0.18755, 0.66800, 1.75840, 3.09880, 3.39210 & + ,2.30260, 2.37550, 2.20480, 2.17800, 2.12780, 2.08800 & + ,2.06190, 2.04560, 2.03420, 2.02420, 2.01850/ + + DATA(qext(2,3,ib,16),ib=1,17) & ! Band 3, RH = 95% + /0.04262, 0.21252, 0.74478, 1.89610, 3.21790, 3.30210 & + ,2.23270, 2.37720, 2.22460, 2.16150, 2.11120, 2.08180 & + ,2.06340, 2.04430, 2.03370, 2.02530, 2.01850/ + + DATA(qext(2,3,ib,17),ib=1,17) & ! Band 3, RH = 96% + /0.05057, 0.24710, 0.84932, 2.07510, 3.34410, 3.16020 & + ,2.18690, 2.36780, 2.23490, 2.14050, 2.10870, 2.07700 & + ,2.05890, 2.04380, 2.03110, 2.02410, 2.01650/ + + DATA(qext(2,3,ib,18),ib=1,17) & ! Band 3, RH = 97% + /0.06256, 0.29951, 0.99765, 2.31660, 3.47200, 2.94570 & + ,2.19220, 2.32250, 2.21080, 2.13720, 2.10380, 2.07590 & + ,2.05420, 2.04030, 2.03010, 2.02140, 2.01610/ + + DATA(qext(2,3,ib,19),ib=1,17) & ! Band 3, RH = 98% + /0.08290, 0.38942, 1.23930, 2.67350, 3.53380, 2.61790 & + ,2.28460, 2.20780, 2.15350, 2.12660, 2.09820, 2.06710 & + ,2.04930, 2.03730, 2.02680, 2.01970, 2.01480/ + + DATA(qext(2,3,ib,20),ib=1,17) & ! Band 3, RH = 99% + /0.12530, 0.57315, 1.71420, 3.21310, 3.30290, 2.21790 & + ,2.38380, 2.23300, 2.15730, 2.10010, 2.08190, 2.05830 & + ,2.04370, 2.03130, 2.02260, 2.01610, 2.01320/ + + DATA(qext(2,4,ib,1),ib=1,17) & ! Band 4, RH = 80% + /0.00639, 0.01033, 0.01658, 0.02650, 0.04061, 0.06489 & + ,0.10424, 0.17010, 0.28871, 0.52953, 1.02380, 1.76560 & + ,2.43410, 2.64750, 2.49550, 2.36480, 2.27530/ + + DATA(qext(2,4,ib,2),ib=1,17) & ! Band 4, RH = 81% + /0.00652, 0.01052, 0.01687, 0.02697, 0.04136, 0.06610 & + ,0.10622, 0.17347, 0.29498, 0.54260, 1.04820, 1.79500 & + ,2.45320, 2.64710, 2.49060, 2.36200, 2.27320/ + + DATA(qext(2,4,ib,3),ib=1,17) & ! Band 4, RH = 82% + /0.00664, 0.01071, 0.01718, 0.02747, 0.04214, 0.06736 & + ,0.10829, 0.17701, 0.30162, 0.55646, 1.07370, 1.82530 & + ,2.47220, 2.64620, 2.48570, 2.35910, 2.27100/ + + DATA(qext(2,4,ib,4),ib=1,17) & ! Band 4, RH = 83% + /0.00676, 0.01091, 0.01750, 0.02798, 0.04297, 0.06869 & + ,0.11047, 0.18076, 0.30869, 0.57126, 1.10070, 1.85660 & + ,2.49110, 2.64460, 2.48050, 2.35600, 2.26870/ + + DATA(qext(2,4,ib,5),ib=1,17) & ! Band 4, RH = 84% + /0.00689, 0.01112, 0.01784, 0.02854, 0.04384, 0.07011 & + ,0.11281, 0.18477, 0.31628, 0.58721, 1.12950, 1.88930 & + ,2.51000, 2.64230, 2.47520, 2.35290, 2.26630/ + + DATA(qext(2,4,ib,6),ib=1,17) & ! Band 4, RH = 85% + /0.00702, 0.01134, 0.01821, 0.02913, 0.04478, 0.07163 & + ,0.11532, 0.18911, 0.32454, 0.60458, 1.16030, 1.92360 & + ,2.52880, 2.63920, 2.46960, 2.34950, 2.26370/ + + DATA(qext(2,4,ib,7),ib=1,17) & ! Band 4, RH = 86% + /0.00716, 0.01158, 0.01860, 0.02977, 0.04580, 0.07328 & + ,0.11804, 0.19384, 0.33359, 0.62366, 1.19380, 1.95990 & + ,2.54750, 2.63530, 2.46380, 2.34590, 2.26100/ + + DATA(qext(2,4,ib,8),ib=1,17) & ! Band 4, RH = 87% + /0.00731, 0.01183, 0.01902, 0.03046, 0.04691, 0.07509 & + ,0.12104, 0.19905, 0.34363, 0.64486, 1.23020, 1.99850 & + ,2.56620, 2.63030, 2.45760, 2.34200, 2.25800/ + + DATA(qext(2,4,ib,9),ib=1,17) & ! Band 4, RH = 88% + /0.00748, 0.01212, 0.01949, 0.03123, 0.04814, 0.07709 & + ,0.12436, 0.20485, 0.35490, 0.66865, 1.27040, 2.03990 & + ,2.58470, 2.62410, 2.45100, 2.33780, 2.25480/ + + DATA(qext(2,4,ib,10),ib=1,17) & ! Band 4, RH = 89% + /0.00766, 0.01243, 0.02002, 0.03209, 0.04951, 0.07933 & + ,0.12808, 0.21139, 0.36770, 0.69565, 1.31500, 2.08430 & + ,2.60300, 2.61660, 2.44400, 2.33320, 2.25130/ + + DATA(qext(2,4,ib,11),ib=1,17) & ! Band 4, RH = 90% + /0.00787, 0.01278, 0.02061, 0.03306, 0.05106, 0.08186 & + ,0.13231, 0.21886, 0.38243, 0.72666, 1.36490, 2.13220 & + ,2.62080, 2.60740, 2.43640, 2.32810, 2.24740/ + + DATA(qext(2,4,ib,12),ib=1,17) & ! Band 4, RH = 91% + /0.00810, 0.01318, 0.02128, 0.03417, 0.05283, 0.08476 & + ,0.13716, 0.22749, 0.39963, 0.76273, 1.42120, 2.18400 & + ,2.63770, 2.59620, 2.42810, 2.32250, 2.24320/ + + DATA(qext(2,4,ib,13),ib=1,17) & ! Band 4, RH = 92% + /0.00836, 0.01364, 0.02205, 0.03545, 0.05488, 0.08813 & + ,0.14283, 0.23766, 0.42008, 0.80532, 1.48540, 2.23990 & + ,2.65320, 2.58300, 2.41920, 2.31620, 2.23840/ + + DATA(qext(2,4,ib,14),ib=1,17) & ! Band 4, RH = 93% + /0.00867, 0.01418, 0.02296, 0.03696, 0.05731, 0.09213 & + ,0.14958, 0.24986, 0.44492, 0.85650, 1.55930, 2.30050 & + ,2.66600, 2.56720, 2.40920, 2.30910, 2.23290/ + + DATA(qext(2,4,ib,15),ib=1,17) & ! Band 4, RH = 94% + /0.00903, 0.01482, 0.02406, 0.03878, 0.06024, 0.09697 & + ,0.15782, 0.26494, 0.47599, 0.91943, 1.64560, 2.36600 & + ,2.67460, 2.54850, 2.39810, 2.30080, 2.22660/ + + DATA(qext(2,4,ib,16),ib=1,17) & ! Band 4, RH = 95% + /0.00947, 0.01561, 0.02541, 0.04106, 0.06390, 0.10306 & + ,0.16825, 0.28427, 0.51639, 0.99916, 1.74810, 2.43730 & + ,2.67710, 2.52640, 2.38520, 2.29120, 2.21930/ + + DATA(qext(2,4,ib,17),ib=1,17) & ! Band 4, RH = 96% + /0.01001, 0.01661, 0.02716, 0.04401, 0.06870, 0.11107 & + ,0.18212, 0.31048, 0.57190, 1.10440, 1.87310, 2.51460 & + ,2.67010, 2.49990, 2.36980, 2.27940, 2.21030/ + + DATA(qext(2,4,ib,18),ib=1,17) & ! Band 4, RH = 97% + /0.01074, 0.01797, 0.02957, 0.04812, 0.07542, 0.12242 & + ,0.20207, 0.34912, 0.65467, 1.25180, 2.03180, 2.59460 & + ,2.64740, 2.46830, 2.35040, 2.26450, 2.19900/ + + DATA(qext(2,4,ib,19),ib=1,17) & ! Band 4, RH = 98% + /0.01178, 0.01999, 0.03324, 0.05452, 0.08603, 0.14061 & + ,0.23485, 0.41494, 0.79538, 1.47760, 2.24250, 2.66530 & + ,2.59810, 2.42900, 2.32400, 2.24430, 2.18350/ + + DATA(qext(2,4,ib,20),ib=1,17) & ! Band 4, RH = 99% + /0.01349, 0.02361, 0.04019, 0.06707, 0.10742, 0.17855 & + ,0.30676, 0.56758, 1.10240, 1.87870, 2.52380, 2.67720 & + ,2.50420, 2.37300, 2.28190, 2.21220, 2.15910/ + + DATA(qext(2,5,ib,1),ib=1,17) & ! Band 5, RH = 80% + /0.01209, 0.01960, 0.03151, 0.05042, 0.07698, 0.12332 & + ,0.19914, 0.32792, 0.55770, 0.95268, 1.49610, 2.03990 & + ,2.35980, 2.37690, 2.29660, 2.23220, 2.17940/ + + DATA(qext(2,5,ib,2),ib=1,17) & ! Band 5, RH = 81% + /0.01237, 0.02001, 0.03214, 0.05143, 0.07859, 0.12591 & + ,0.20340, 0.33514, 0.57015, 0.97128, 1.51680, 2.05430 & + ,2.36200, 2.37290, 2.29380, 2.23010, 2.17790/ + + DATA(qext(2,5,ib,3),ib=1,17) & ! Band 5, RH = 82% + /0.01263, 0.02042, 0.03279, 0.05248, 0.08026, 0.12863 & + ,0.20787, 0.34272, 0.58320, 0.99062, 1.53800, 2.06890 & + ,2.36410, 2.36880, 2.29090, 2.22800, 2.17620/ + + DATA(qext(2,5,ib,4),ib=1,17) & ! Band 5, RH = 83% + /0.01288, 0.02084, 0.03348, 0.05359, 0.08203, 0.13149 & + ,0.21258, 0.35074, 0.59698, 1.01090, 1.56000, 2.08370 & + ,2.36610, 2.36470, 2.28800, 2.22580, 2.17460/ + + DATA(qext(2,5,ib,5),ib=1,17) & ! Band 5, RH = 84% + /0.01315, 0.02128, 0.03420, 0.05477, 0.08390, 0.13453 & + ,0.21760, 0.35929, 0.61167, 1.03220, 1.58290, 2.09880 & + ,2.36780, 2.36050, 2.28510, 2.22360, 2.17280/ + + DATA(qext(2,5,ib,6),ib=1,17) & ! Band 5, RH = 85% + /0.01344, 0.02175, 0.03498, 0.05602, 0.08591, 0.13779 & + ,0.22299, 0.36850, 0.62746, 1.05490, 1.60700, 2.11440 & + ,2.36940, 2.35620, 2.28200, 2.22120, 2.17100/ + + DATA(qext(2,5,ib,7),ib=1,17) & ! Band 5, RH = 86% + /0.01374, 0.02226, 0.03581, 0.05738, 0.08807, 0.14132 & + ,0.22884, 0.37851, 0.64458, 1.07920, 1.63230, 2.13040 & + ,2.37070, 2.35170, 2.27880, 2.21880, 2.16910/ + + DATA(qext(2,5,ib,8),ib=1,17) & ! Band 5, RH = 87% + /0.01407, 0.02281, 0.03671, 0.05886, 0.09044, 0.14518 & + ,0.23525, 0.38950, 0.66334, 1.10560, 1.65930, 2.14710 & + ,2.37180, 2.34700, 2.27550, 2.21610, 2.16710/ + + DATA(qext(2,5,ib,9),ib=1,17) & ! Band 5, RH = 88% + /0.01442, 0.02341, 0.03771, 0.06049, 0.09305, 0.14944 & + ,0.24234, 0.40169, 0.68408, 1.13430, 1.68820, 2.16430 & + ,2.37260, 2.34210, 2.27190, 2.21330, 2.16490/ + + DATA(qext(2,5,ib,10),ib=1,17) & ! Band 5, RH = 89% + /0.01481, 0.02407, 0.03881, 0.06230, 0.09596, 0.15420 & + ,0.25028, 0.41536, 0.70723, 1.16580, 1.71940, 2.18230 & + ,2.37300, 2.33690, 2.26810, 2.21030, 2.16250/ + + DATA(qext(2,5,ib,11),ib=1,17) & ! Band 5, RH = 90% + /0.01524, 0.02481, 0.04005, 0.06434, 0.09923, 0.15957 & + ,0.25926, 0.43087, 0.73334, 1.20080, 1.75320, 2.20110 & + ,2.37280, 2.33140, 2.26400, 2.20710, 2.15990/ + + DATA(qext(2,5,ib,12),ib=1,17) & ! Band 5, RH = 91% + /0.01572, 0.02565, 0.04146, 0.06667, 0.10297, 0.16570 & + ,0.26955, 0.44870, 0.76313, 1.24000, 1.79020, 2.22070 & + ,2.37200, 2.32560, 2.25960, 2.20350, 2.15710/ + + DATA(qext(2,5,ib,13),ib=1,17) & ! Band 5, RH = 92% + /0.01628, 0.02661, 0.04309, 0.06935, 0.10729, 0.17282 & + ,0.28153, 0.46949, 0.79755, 1.28440, 1.83080, 2.24120 & + ,2.37030, 2.31920, 2.25470, 2.19950, 2.15400/ + + DATA(qext(2,5,ib,14),ib=1,17) & ! Band 5, RH = 93% + /0.01692, 0.02774, 0.04499, 0.07251, 0.11238, 0.18123 & + ,0.29574, 0.49422, 0.83796, 1.33520, 1.87590, 2.26250 & + ,2.36750, 2.31230, 2.24920, 2.19510, 2.15050/ + + DATA(qext(2,5,ib,15),ib=1,17) & ! Band 5, RH = 94% + /0.01767, 0.02907, 0.04727, 0.07631, 0.11851, 0.19140 & + ,0.31302, 0.52435, 0.88637, 1.39450, 1.92640, 2.28440 & + ,2.36330, 2.30460, 2.24300, 2.19000, 2.14640/ + + DATA(qext(2,5,ib,16),ib=1,17) & ! Band 5, RH = 95% + /0.01858, 0.03071, 0.05008, 0.08102, 0.12614, 0.20413 & + ,0.33475, 0.56232, 0.94596, 1.46520, 1.98390, 2.30640 & + ,2.35720, 2.29590, 2.23580, 2.18420, 2.14180/ + + DATA(qext(2,5,ib,17),ib=1,17) & ! Band 5, RH = 96% + /0.01972, 0.03279, 0.05369, 0.08712, 0.13609, 0.22081 & + ,0.36348, 0.61250, 1.02220, 1.55190, 2.05010, 2.32730 & + ,2.34830, 2.28570, 2.22720, 2.17710, 2.13610/ + + DATA(qext(2,5,ib,18),ib=1,17) & ! Band 5, RH = 97% + /0.02122, 0.03558, 0.05864, 0.09558, 0.14998, 0.24434 & + ,0.40440, 0.68366, 1.12520, 1.66280, 2.12760, 2.34560 & + ,2.33560, 2.27300, 2.21630, 2.16820, 2.12900/ + + DATA(qext(2,5,ib,19),ib=1,17) & ! Band 5, RH = 98% + /0.02334, 0.03972, 0.06616, 0.10869, 0.17179, 0.28185 & + ,0.47054, 0.79670, 1.27790, 1.81370, 2.21820, 2.35610 & + ,2.31650, 2.25560, 2.20140, 2.15600, 2.11930/ + + DATA(qext(2,5,ib,20),ib=1,17) & ! Band 5, RH = 99% + /0.02685, 0.04709, 0.08028, 0.13427, 0.21559, 0.35945 & + ,0.60968, 1.02060, 1.54900, 2.04310, 2.31850, 2.34380 & + ,2.28470, 2.22730, 2.17750, 2.13660, 2.10400/ + + DATA(qext(2,6,ib,1),ib=1,17) & ! Band 6, RH = 80% + /0.00213, 0.00345, 0.00556, 0.00893, 0.01376, 0.02276 & + ,0.04070, 0.08782, 0.23711, 0.63424, 1.54460, 2.85800 & + ,3.34830, 2.16410, 2.41000, 2.23520, 2.15250/ + + DATA(qext(2,6,ib,2),ib=1,17) & ! Band 6, RH = 81% + /0.00218, 0.00353, 0.00567, 0.00911, 0.01405, 0.02327 & + ,0.04172, 0.09039, 0.24392, 0.65093, 1.57260, 2.88340 & + ,3.32840, 2.15330, 2.39860, 2.22840, 2.15190/ + + DATA(qext(2,6,ib,3),ib=1,17) & ! Band 6, RH = 82% + /0.00222, 0.00360, 0.00579, 0.00930, 0.01436, 0.02381 & + ,0.04279, 0.09314, 0.25116, 0.66887, 1.60200, 2.90880 & + ,3.30480, 2.14640, 2.38540, 2.22100, 2.15110/ + + DATA(qext(2,6,ib,4),ib=1,17) & ! Band 6, RH = 83% + /0.00227, 0.00367, 0.00591, 0.00950, 0.01468, 0.02438 & + ,0.04394, 0.09611, 0.25891, 0.68830, 1.63310, 2.93380 & + ,3.27840, 2.13970, 2.37090, 2.21320, 2.14980/ + + DATA(qext(2,6,ib,5),ib=1,17) & ! Band 6, RH = 84% + /0.00232, 0.00375, 0.00604, 0.00971, 0.01503, 0.02498 & + ,0.04518, 0.09934, 0.26730, 0.70949, 1.66610, 2.95830 & + ,3.25100, 2.13040, 2.35460, 2.20510, 2.14820/ + + DATA(qext(2,6,ib,6),ib=1,17) & ! Band 6, RH = 85% + /0.00237, 0.00384, 0.00618, 0.00993, 0.01540, 0.02563 & + ,0.04652, 0.10289, 0.27645, 0.73278, 1.70100, 2.98230 & + ,3.22320, 2.12250, 2.33660, 2.19700, 2.14620/ + + DATA(qext(2,6,ib,7),ib=1,17) & ! Band 6, RH = 86% + /0.00242, 0.00393, 0.00633, 0.01018, 0.01580, 0.02634 & + ,0.04800, 0.10684, 0.28653, 0.75853, 1.73830, 3.00700 & + ,3.19320, 2.12200, 2.31720, 2.18910, 2.14370/ + + DATA(qext(2,6,ib,8),ib=1,17) & ! Band 6, RH = 87% + /0.00248, 0.00402, 0.00649, 0.01044, 0.01624, 0.02712 & + ,0.04965, 0.11129, 0.29776, 0.78720, 1.77840, 3.03400 & + ,3.15690, 2.12510, 2.29540, 2.18190, 2.14100/ + + DATA(qext(2,6,ib,9),ib=1,17) & ! Band 6, RH = 88% + /0.00254, 0.00413, 0.00666, 0.01074, 0.01672, 0.02799 & + ,0.05151, 0.11635, 0.31041, 0.81926, 1.82210, 3.06570 & + ,3.11110, 2.12550, 2.27320, 2.17590, 2.13810/ + + DATA(qext(2,6,ib,10),ib=1,17) & ! Band 6, RH = 89% + /0.00261, 0.00425, 0.00686, 0.01106, 0.01726, 0.02897 & + ,0.05363, 0.12220, 0.32482, 0.85527, 1.87090, 3.10360 & + ,3.05750, 2.13550, 2.24940, 2.17170, 2.13520/ + + DATA(qext(2,6,ib,11),ib=1,17) & ! Band 6, RH = 90% + /0.00269, 0.00438, 0.00708, 0.01143, 0.01787, 0.03008 & + ,0.05609, 0.12905, 0.34147, 0.89586, 1.92680, 3.14610 & + ,2.99950, 2.15290, 2.22670, 2.16980, 2.13260/ + + DATA(qext(2,6,ib,12),ib=1,17) & ! Band 6, RH = 91% + /0.00277, 0.00453, 0.00733, 0.01185, 0.01857, 0.03137 & + ,0.05899, 0.13720, 0.36101, 0.94179, 1.99290, 3.18670 & + ,2.93040, 2.17320, 2.20670, 2.17040, 2.13020/ + + DATA(qext(2,6,ib,13),ib=1,17) & ! Band 6, RH = 92% + /0.00287, 0.00470, 0.00762, 0.01234, 0.01939, 0.03289 & + ,0.06247, 0.14709, 0.38439, 0.99421, 2.07290, 3.21980 & + ,2.84340, 2.20760, 2.19170, 2.17280, 2.12780/ + + DATA(qext(2,6,ib,14),ib=1,17) & ! Band 6, RH = 93% + /0.00299, 0.00490, 0.00796, 0.01291, 0.02035, 0.03472 & + ,0.06675, 0.15938, 0.41314, 1.05520, 2.16900, 3.25110 & + ,2.74560, 2.24990, 2.18570, 2.17450, 2.12470/ + + DATA(qext(2,6,ib,15),ib=1,17) & ! Band 6, RH = 94% + /0.00312, 0.00514, 0.00837, 0.01360, 0.02152, 0.03697 & + ,0.07220, 0.17510, 0.44983, 1.12920, 2.28080, 3.29000 & + ,2.62430, 2.29930, 2.19220, 2.17170, 2.12060/ + + DATA(qext(2,6,ib,16),ib=1,17) & ! Band 6, RH = 95% + /0.00328, 0.00543, 0.00887, 0.01446, 0.02299, 0.03987 & + ,0.07946, 0.19601, 0.49931, 1.22580, 2.40990, 3.30810 & + ,2.48670, 2.35200, 2.21070, 2.16180, 2.11610/ + + DATA(qext(2,6,ib,17),ib=1,17) & ! Band 6, RH = 96% + /0.00348, 0.00580, 0.00952, 0.01558, 0.02494, 0.04383 & + ,0.08976, 0.22538, 0.57139, 1.36440, 2.57810, 3.29950 & + ,2.33350, 2.38660, 2.22800, 2.14920, 2.11090/ + + DATA(qext(2,6,ib,18),ib=1,17) & ! Band 6, RH = 97% + /0.00375, 0.00629, 0.01041, 0.01714, 0.02771, 0.04973 & + ,0.10589, 0.27002, 0.68707, 1.57060, 2.79420, 3.22210 & + ,2.18910, 2.36130, 2.21230, 2.14280, 2.10420/ + + DATA(qext(2,6,ib,19),ib=1,17) & ! Band 6, RH = 98% + /0.00413, 0.00703, 0.01176, 0.01959, 0.03222, 0.06002 & + ,0.13567, 0.34740, 0.88707, 1.87840, 3.06290, 2.99080 & + ,2.15230, 2.23840, 2.16860, 2.12980, 2.09540/ + + DATA(qext(2,6,ib,20),ib=1,17) & ! Band 6, RH = 99% + /0.00475, 0.00834, 0.01432, 0.02449, 0.04203, 0.08539 & + ,0.21228, 0.53671, 1.29000, 2.47370, 3.27290, 2.40570 & + ,2.36280, 2.21670, 2.15200, 2.11140, 2.08170/ + + DATA(qext(2,7,ib,1),ib=1,17) & ! Band 7, RH = 80% + /0.00239, 0.00388, 0.00624, 0.01001, 0.01536, 0.02502 & + ,0.04264, 0.08196, 0.19158, 0.47030, 1.13170, 2.22660 & + ,3.17280, 2.62430, 2.28710, 2.21190, 2.16120/ + + DATA(qext(2,7,ib,2),ib=1,17) & ! Band 7, RH = 81% + /0.00245, 0.00396, 0.00637, 0.01021, 0.01568, 0.02557 & + ,0.04364, 0.08411, 0.19678, 0.48106, 1.15000, 2.24760 & + ,3.17130, 2.59950, 2.29250, 2.21170, 2.15940/ + + DATA(qext(2,7,ib,3),ib=1,17) & ! Band 7, RH = 82% + /0.00250, 0.00404, 0.00650, 0.01043, 0.01602, 0.02614 & + ,0.04468, 0.08640, 0.20231, 0.49261, 1.16970, 2.26990 & + ,3.17000, 2.57430, 2.29710, 2.21150, 2.15750/ + + DATA(qext(2,7,ib,4),ib=1,17) & ! Band 7, RH = 83% + /0.00255, 0.00413, 0.00664, 0.01065, 0.01638, 0.02674 & + ,0.04580, 0.08885, 0.20822, 0.50511, 1.19100, 2.29390 & + ,3.16900, 2.54940, 2.30220, 2.21120, 2.15560/ + + DATA(qext(2,7,ib,5),ib=1,17) & ! Band 7, RH = 84% + /0.00261, 0.00422, 0.00678, 0.01089, 0.01676, 0.02739 & + ,0.04699, 0.09149, 0.21460, 0.51877, 1.21430, 2.32010 & + ,3.16780, 2.52400, 2.30690, 2.21080, 2.15380/ + + DATA(qext(2,7,ib,6),ib=1,17) & ! Band 7, RH = 85% + /0.00266, 0.00431, 0.00694, 0.01114, 0.01717, 0.02808 & + ,0.04828, 0.09438, 0.22156, 0.53386, 1.24010, 2.34870 & + ,3.16550, 2.49650, 2.31050, 2.21010, 2.15190/ + + DATA(qext(2,7,ib,7),ib=1,17) & ! Band 7, RH = 86% + /0.00272, 0.00441, 0.00711, 0.01141, 0.01762, 0.02883 & + ,0.04969, 0.09757, 0.22922, 0.55071, 1.26860, 2.38000 & + ,3.16080, 2.46670, 2.31410, 2.20910, 2.15010/ + + DATA(qext(2,7,ib,8),ib=1,17) & ! Band 7, RH = 87% + /0.00279, 0.00452, 0.00729, 0.01171, 0.01810, 0.02966 & + ,0.05125, 0.10113, 0.23774, 0.56974, 1.30050, 2.41400 & + ,3.15320, 2.43670, 2.31650, 2.20770, 2.14820/ + + DATA(qext(2,7,ib,9),ib=1,17) & ! Band 7, RH = 88% + /0.00286, 0.00464, 0.00749, 0.01204, 0.01863, 0.03057 & + ,0.05299, 0.10516, 0.24732, 0.59146, 1.33640, 2.45080 & + ,3.14320, 2.40660, 2.31750, 2.20550, 2.14630/ + + DATA(qext(2,7,ib,10),ib=1,17) & ! Band 7, RH = 89% + /0.00294, 0.00478, 0.00771, 0.01240, 0.01923, 0.03160 & + ,0.05496, 0.10977, 0.25821, 0.61649, 1.37670, 2.49050 & + ,3.13200, 2.37340, 2.31690, 2.20250, 2.14420/ + + DATA(qext(2,7,ib,11),ib=1,17) & ! Band 7, RH = 90% + /0.00302, 0.00492, 0.00796, 0.01281, 0.01990, 0.03276 & + ,0.05723, 0.11513, 0.27075, 0.64563, 1.42240, 2.53400 & + ,3.11790, 2.34020, 2.31380, 2.19850, 2.14190/ + + DATA(qext(2,7,ib,12),ib=1,17) & ! Band 7, RH = 91% + /0.00312, 0.00509, 0.00824, 0.01328, 0.02067, 0.03410 & + ,0.05986, 0.12145, 0.28538, 0.67986, 1.47450, 2.58300 & + ,3.09590, 2.30790, 2.30720, 2.19340, 2.13910/ + + DATA(qext(2,7,ib,13),ib=1,17) & ! Band 7, RH = 92% + /0.00323, 0.00529, 0.00857, 0.01383, 0.02156, 0.03566 & + ,0.06299, 0.12904, 0.30273, 0.72038, 1.53480, 2.63990 & + ,3.06460, 2.27550, 2.29670, 2.18730, 2.13570/ + + DATA(qext(2,7,ib,14),ib=1,17) & ! Band 7, RH = 93% + /0.00336, 0.00551, 0.00895, 0.01446, 0.02261, 0.03752 & + ,0.06678, 0.13839, 0.32377, 0.76877, 1.60660, 2.70490 & + ,3.02570, 2.24770, 2.28130, 2.18060, 2.13180/ + + DATA(qext(2,7,ib,15),ib=1,17) & ! Band 7, RH = 94% + /0.00351, 0.00578, 0.00940, 0.01523, 0.02388, 0.03980 & + ,0.07152, 0.15024, 0.35002, 0.82727, 1.69520, 2.77490 & + ,2.96670, 2.22730, 2.26110, 2.17410, 2.12750/ + + DATA(qext(2,7,ib,16),ib=1,17) & ! Band 7, RH = 95% + /0.00369, 0.00610, 0.00997, 0.01619, 0.02547, 0.04269 & + ,0.07770, 0.16587, 0.38424, 0.89983, 1.80760, 2.85230 & + ,2.88670, 2.21860, 2.23760, 2.16810, 2.12280/ + + DATA(qext(2,7,ib,17),ib=1,17) & ! Band 7, RH = 96% + /0.00392, 0.00652, 0.01069, 0.01743, 0.02755, 0.04656 & + ,0.08625, 0.18771, 0.43198, 0.99545, 1.95140, 2.93730 & + ,2.76920, 2.22880, 2.21580, 2.16160, 2.11720/ + + DATA(qext(2,7,ib,18),ib=1,17) & ! Band 7, RH = 97% + /0.00422, 0.00708, 0.01168, 0.01915, 0.03049, 0.05219 & + ,0.09923, 0.22079, 0.50632, 1.13760, 2.14720, 3.01460 & + ,2.60090, 2.26170, 2.20290, 2.15090, 2.11010/ + + DATA(qext(2,7,ib,19),ib=1,17) & ! Band 7, RH = 98% + /0.00464, 0.00791, 0.01320, 0.02183, 0.03520, 0.06163 & + ,0.12230, 0.27801, 0.64258, 1.37710, 2.43090, 3.03960 & + ,2.37750, 2.29060, 2.19190, 2.13760, 2.10070/ + + DATA(qext(2,7,ib,20),ib=1,17) & ! Band 7, RH = 99% + /0.00534, 0.00938, 0.01605, 0.02713, 0.04504, 0.08336 & + ,0.17931, 0.41017, 0.94219, 1.85680, 2.85380, 2.80770 & + ,2.22470, 2.22210, 2.16160, 2.11770, 2.08630/ + + DATA(qext(2,8,ib,1),ib=1,17) & ! Band 8, RH = 80% + /0.00177, 0.00288, 0.00466, 0.00761, 0.01236, 0.02417 & + ,0.06347, 0.21225, 0.66898, 1.71760, 3.12360, 3.25790 & + ,2.27840, 2.29480, 2.24140, 2.15630, 2.11720/ + + DATA(qext(2,8,ib,2),ib=1,17) & ! Band 8, RH = 81% + /0.00182, 0.00294, 0.00476, 0.00777, 0.01264, 0.02484 & + ,0.06566, 0.21914, 0.68848, 1.74790, 3.14920, 3.22830 & + ,2.28360, 2.29320, 2.23880, 2.15360, 2.11640/ + + DATA(qext(2,8,ib,3),ib=1,17) & ! Band 8, RH = 82% + /0.00185, 0.00300, 0.00485, 0.00793, 0.01295, 0.02556 & + ,0.06803, 0.22651, 0.70921, 1.77990, 3.17580, 3.19910 & + ,2.28710, 2.29300, 2.23500, 2.15120, 2.11530/ + + DATA(qext(2,8,ib,4),ib=1,17) & ! Band 8, RH = 83% + /0.00189, 0.00307, 0.00496, 0.00811, 0.01327, 0.02634 & + ,0.07060, 0.23445, 0.73136, 1.81430, 3.20270, 3.16830 & + ,2.28770, 2.29420, 2.23000, 2.14930, 2.11380/ + + DATA(qext(2,8,ib,5),ib=1,17) & ! Band 8, RH = 84% + /0.00193, 0.00313, 0.00507, 0.00830, 0.01361, 0.02718 & + ,0.07342, 0.24308, 0.75519, 1.85160, 3.22930, 3.13290 & + ,2.29180, 2.29520, 2.22300, 2.14840, 2.11200/ + + DATA(qext(2,8,ib,6),ib=1,17) & ! Band 8, RH = 85% + /0.00197, 0.00320, 0.00518, 0.00850, 0.01399, 0.02810 & + ,0.07655, 0.25256, 0.78103, 1.89270, 3.25500, 3.09140 & + ,2.30210, 2.29600, 2.21520, 2.14840, 2.11020/ + + DATA(qext(2,8,ib,7),ib=1,17) & ! Band 8, RH = 86% + /0.00202, 0.00328, 0.00531, 0.00871, 0.01440, 0.02913 & + ,0.08006, 0.26308, 0.80925, 1.93820, 3.27980, 3.04470 & + ,2.31160, 2.29960, 2.20630, 2.14920, 2.10870/ + + DATA(qext(2,8,ib,8),ib=1,17) & ! Band 8, RH = 87% + /0.00207, 0.00336, 0.00544, 0.00895, 0.01485, 0.03029 & + ,0.08405, 0.27490, 0.84036, 1.98920, 3.30450, 2.99600 & + ,2.31780, 2.29990, 2.19720, 2.15010, 2.10740/ + + DATA(qext(2,8,ib,9),ib=1,17) & ! Band 8, RH = 88% + /0.00212, 0.00345, 0.00560, 0.00921, 0.01535, 0.03161 & + ,0.08865, 0.28834, 0.87498, 2.04630, 3.33100, 2.94370 & + ,2.32970, 2.30200, 2.18880, 2.15000, 2.10600/ + + DATA(qext(2,8,ib,10),ib=1,17) & ! Band 8, RH = 89% + /0.00218, 0.00354, 0.00576, 0.00951, 0.01592, 0.03313 & + ,0.09402, 0.30384, 0.91397, 2.10990, 3.36090, 2.88030 & + ,2.34080, 2.30070, 2.18270, 2.14770, 2.10440/ + + DATA(qext(2,8,ib,11),ib=1,17) & ! Band 8, RH = 90% + /0.00224, 0.00365, 0.00595, 0.00984, 0.01658, 0.03493 & + ,0.10038, 0.32200, 0.95855, 2.18040, 3.39140, 2.80790 & + ,2.35260, 2.29680, 2.18000, 2.14270, 2.10270/ + + DATA(qext(2,8,ib,12),ib=1,17) & ! Band 8, RH = 91% + /0.00231, 0.00378, 0.00617, 0.01023, 0.01735, 0.03707 & + ,0.10805, 0.34366, 1.01060, 2.25850, 3.41560, 2.73660 & + ,2.35920, 2.28670, 2.18150, 2.13670, 2.10110/ + + DATA(qext(2,8,ib,13),ib=1,17) & ! Band 8, RH = 92% + /0.00239, 0.00392, 0.00641, 0.01068, 0.01826, 0.03970 & + ,0.11747, 0.37015, 1.07290, 2.34660, 3.42990, 2.64860 & + ,2.36740, 2.27010, 2.18470, 2.13250, 2.09850/ + + DATA(qext(2,8,ib,14),ib=1,17) & ! Band 8, RH = 93% + /0.00249, 0.00409, 0.00671, 0.01121, 0.01937, 0.04300 & + ,0.12934, 0.40351, 1.14980, 2.45100, 3.44240, 2.55890 & + ,2.36480, 2.24720, 2.18500, 2.13050, 2.09550/ + + DATA(qext(2,8,ib,15),ib=1,17) & ! Band 8, RH = 94% + /0.00260, 0.00429, 0.00706, 0.01186, 0.02077, 0.04730 & + ,0.14474, 0.44726, 1.24790, 2.57970, 3.44160, 2.46190 & + ,2.35110, 2.22250, 2.17720, 2.12690, 2.09300/ + + DATA(qext(2,8,ib,16),ib=1,17) & ! Band 8, RH = 95% + /0.00273, 0.00453, 0.00749, 0.01269, 0.02260, 0.05319 & + ,0.16556, 0.50753, 1.37520, 2.73180, 3.40190, 2.37440 & + ,2.32520, 2.20960, 2.16710, 2.12280, 2.08970/ + + DATA(qext(2,8,ib,17),ib=1,17) & ! Band 8, RH = 96% + /0.00290, 0.00484, 0.00806, 0.01379, 0.02516, 0.06182 & + ,0.19530, 0.59537, 1.54120, 2.90450, 3.32350, 2.30460 & + ,2.29590, 2.22100, 2.16390, 2.11660, 2.08560/ + + DATA(qext(2,8,ib,18),ib=1,17) & ! Band 8, RH = 97% + /0.00312, 0.00526, 0.00884, 0.01538, 0.02911, 0.07586 & + ,0.24142, 0.73009, 1.77310, 3.12150, 3.14720, 2.29110 & + ,2.28460, 2.22470, 2.14560, 2.11030, 2.08040/ + + DATA(qext(2,8,ib,19),ib=1,17) & ! Band 8, RH = 98% + /0.00344, 0.00589, 0.01006, 0.01804, 0.03634, 0.10299 & + ,0.32442, 0.95126, 2.14830, 3.34280, 2.80740, 2.34140 & + ,2.29160, 2.17850, 2.13990, 2.10020, 2.07370/ + + DATA(qext(2,8,ib,20),ib=1,17) & ! Band 8, RH = 99% + /0.00396, 0.00701, 0.01245, 0.02405, 0.05555, 0.17662 & + ,0.54577, 1.45180, 2.80730, 3.34810, 2.33220, 2.30030 & + ,2.21140, 2.16340, 2.11850, 2.08590, 2.06320/ + +! Qext for Mineral Dust: + DATA(qext(3,1,ib,1),ib=1,17) & ! Band 1, All RH's + /0.00124, 0.00198, 0.00323, 0.00566, 0.01209, 0.03703 & + ,0.13977, 0.46990, 1.22290, 2.26570, 2.61390, 2.64980 & + ,2.54470, 2.19980, 2.20590, 2.13130, 2.09540/ + + DATA(qext(3,2,ib,1),ib=1,17) & ! Band 2, All RH's + /0.00224, 0.00409, 0.00974, 0.03551, 0.16816, 0.69694 & + ,2.02260, 3.42610, 3.04780, 2.63640, 2.33260, 2.27750 & + ,2.19670, 2.14290, 2.10390, 2.07640, 2.05630/ + + DATA(qext(3,3,ib,1),ib=1,17) & ! Band 3, All RH's + /0.00599, 0.01846, 0.08179, 0.36834, 1.28590, 2.91150 & + ,3.72340, 2.62500, 2.42800, 2.26110, 2.21600, 2.16130 & + ,2.12100, 2.09050, 2.06620, 2.04880, 2.03590/ + + DATA(qext(3,4,ib,1),ib=1,17) & ! Band 4, All RH's + /0.00232, 0.00368, 0.00584, 0.00927, 0.01472, 0.02341 & + ,0.03733, 0.05997, 0.09838, 0.17106, 0.34448, 0.88581 & + ,2.31920, 3.26570, 2.89620, 2.60710, 2.45250/ + + DATA(qext(3,5,ib,1),ib=1,17) & ! Band 5, All RH's + /0.00154, 0.00240, 0.00387, 0.00615, 0.00978, 0.01558 & + ,0.02498, 0.04083, 0.07056, 0.14147, 0.36788, 1.06280 & + ,2.46800, 3.53330, 2.71720, 2.50290, 2.33060/ + + DATA(qext(3,6,ib,1),ib=1,17) & ! Band 6, All RH's + /0.00319, 0.00506, 0.00804, 0.01277, 0.02033, 0.03253 & + ,0.05279, 0.08919, 0.16752, 0.38114, 0.93498, 1.87920 & + ,2.68110, 2.74410, 2.47570, 2.30710, 2.22650/ + + DATA(qext(3,7,ib,1),ib=1,17) & ! Band 7, All RH's + /0.00347, 0.00550, 0.00874, 0.01389, 0.02215, 0.03557 & + ,0.05837, 0.10191, 0.20923, 0.57176, 1.73950, 3.22860 & + ,3.29090, 2.47200, 2.45570, 2.32820, 2.24460/ + + DATA(qext(3,8,ib,1),ib=1,17) & ! Band 8, All RH's + /0.00147, 0.00234, 0.00371, 0.00591, 0.00942, 0.01519 & + ,0.02535, 0.04659, 0.10365, 0.25753, 0.65195, 1.44010 & + ,2.51080, 2.84480, 2.33600, 2.25070, 2.18000/ + +! Returning value for qext: + value = qext(aerotype,radband,bin,rh) + +return +END SUBROUTINE aeroqext + +!############################################################################## +Subroutine aeroqscat (aerotype,radband,bin,rh,value) + +implicit none + + INTEGER aerotype,radband,bin,rh,ib + REAL qscat(3,8,17,20),value + +! Setting for aerosol with no growth (completely insoluble): + IF(AEROTYPE.EQ.3) rh = 1 + +! Qscat for Ammonium Sulfate (with a 90% insoluble dust inclusion): + DATA(qscat(1,1,ib,1),ib=1,17) & ! Band 1, RH = 80% + /0.00000, 0.00002, 0.00013, 0.00080, 0.00454, 0.02746 & + ,0.13553, 0.49914, 1.31130, 2.38440, 2.54700, 2.37630 & + ,1.94730, 1.59790, 1.42910, 1.27210, 1.16110/ + + DATA(qscat(1,1,ib,2),ib=1,17) & ! Band 1, RH = 81% + /0.00000, 0.00002, 0.00013, 0.00081, 0.00459, 0.02775 & + ,0.13664, 0.50267, 1.31790, 2.39340, 2.55060, 2.37430 & + ,1.94120, 1.60120, 1.42960, 1.27260, 1.16180/ + + DATA(qscat(1,1,ib,3),ib=1,17) & ! Band 1, RH = 82% + /0.00000, 0.00002, 0.00013, 0.00082, 0.00465, 0.02807 & + ,0.13788, 0.50658, 1.32520, 2.40310, 2.55440, 2.37240 & + ,1.93570, 1.60310, 1.43000, 1.27350, 1.16250/ + + DATA(qscat(1,1,ib,4),ib=1,17) & ! Band 1, RH = 83% + /0.00000, 0.00002, 0.00013, 0.00083, 0.00471, 0.02843 & + ,0.13925, 0.51092, 1.33340, 2.41380, 2.55820, 2.37100 & + ,1.92910, 1.60270, 1.42970, 1.27440, 1.16330/ + + DATA(qscat(1,1,ib,5),ib=1,17) & ! Band 1, RH = 84% + /0.00000, 0.00002, 0.00013, 0.00084, 0.00478, 0.02884 & + ,0.14079, 0.51578, 1.34270, 2.42560, 2.56200, 2.37010 & + ,1.91990, 1.60110, 1.43010, 1.27550, 1.16420/ + + DATA(qscat(1,1,ib,6),ib=1,17) & ! Band 1, RH = 85% + /0.00000, 0.00002, 0.00013, 0.00086, 0.00486, 0.02930 & + ,0.14253, 0.52125, 1.35310, 2.43850, 2.56570, 2.36890 & + ,1.90880, 1.60400, 1.43220, 1.27660, 1.16510/ + + DATA(qscat(1,1,ib,7),ib=1,17) & ! Band 1, RH = 86% + /0.00000, 0.00002, 0.00014, 0.00087, 0.00495, 0.02982 & + ,0.14452, 0.52746, 1.36510, 2.45300, 2.56910, 2.36640 & + ,1.89930, 1.61320, 1.43390, 1.27800, 1.16620/ + + DATA(qscat(1,1,ib,8),ib=1,17) & ! Band 1, RH = 87% + /0.00000, 0.00002, 0.00014, 0.00089, 0.00506, 0.03043 & + ,0.14679, 0.53456, 1.37880, 2.46900, 2.57220, 2.36120 & + ,1.89220, 1.62010, 1.43540, 1.27940, 1.16740/ + + DATA(qscat(1,1,ib,9),ib=1,17) & ! Band 1, RH = 88% + /0.00000, 0.00002, 0.00014, 0.00091, 0.00518, 0.03113 & + ,0.14944, 0.54276, 1.39490, 2.48710, 2.57490, 2.35660 & + ,1.88130, 1.61800, 1.43910, 1.28130, 1.16890/ + + DATA(qscat(1,1,ib,10),ib=1,17) & ! Band 1, RH = 89% + /0.00000, 0.00002, 0.00015, 0.00093, 0.00532, 0.03197 & + ,0.15255, 0.55234, 1.41380, 2.50770, 2.57720, 2.35330 & + ,1.87260, 1.62400, 1.44170, 1.28330, 1.17070/ + + DATA(qscat(1,1,ib,11),ib=1,17) & ! Band 1, RH = 90% + /0.00000, 0.00002, 0.00015, 0.00096, 0.00549, 0.03297 & + ,0.15625, 0.56369, 1.43640, 2.53130, 2.57940, 2.34380 & + ,1.86270, 1.63620, 1.44590, 1.28640, 1.17310/ + + DATA(qscat(1,1,ib,12),ib=1,17) & ! Band 1, RH = 91% + /0.00000, 0.00002, 0.00015, 0.00100, 0.00570, 0.03420 & + ,0.16075, 0.57732, 1.46390, 2.55900, 2.58290, 2.33190 & + ,1.85060, 1.63320, 1.44980, 1.29070, 1.17640/ + + DATA(qscat(1,1,ib,13),ib=1,17) & ! Band 1, RH = 92% + /0.00000, 0.00002, 0.00016, 0.00104, 0.00597, 0.03573 & + ,0.16631, 0.59404, 1.49790, 2.59240, 2.58770, 2.32240 & + ,1.84220, 1.64720, 1.45460, 1.29700, 1.18070/ + + DATA(qscat(1,1,ib,14),ib=1,17) & ! Band 1, RH = 93% + /0.00000, 0.00003, 0.00017, 0.00110, 0.00630, 0.03769 & + ,0.17340, 0.61501, 1.54080, 2.63430, 2.58920, 2.30550 & + ,1.83310, 1.65330, 1.45950, 1.30520, 1.18570/ + + DATA(qscat(1,1,ib,15),ib=1,17) & ! Band 1, RH = 94% + /0.00000, 0.00003, 0.00018, 0.00117, 0.00675, 0.04031 & + ,0.18273, 0.64219, 1.59610, 2.68860, 2.58160, 2.28040 & + ,1.82810, 1.65800, 1.46740, 1.31530, 1.19150/ + + DATA(qscat(1,1,ib,16),ib=1,17) & ! Band 1, RH = 95% + /0.00000, 0.00003, 0.00019, 0.00128, 0.00738, 0.04396 & + ,0.19560, 0.67898, 1.66920, 2.75720, 2.56080, 2.25160 & + ,1.82730, 1.66620, 1.47870, 1.32690, 1.19970/ + + DATA(qscat(1,1,ib,17),ib=1,17) & ! Band 1, RH = 96% + /0.00000, 0.00003, 0.00021, 0.00142, 0.00832, 0.04940 & + ,0.21458, 0.73217, 1.76990, 2.83560, 2.53460, 2.21090 & + ,1.82830, 1.67110, 1.49800, 1.34040, 1.21270/ + + DATA(qscat(1,1,ib,18),ib=1,17) & ! Band 1, RH = 97% + /0.00000, 0.00003, 0.00024, 0.00166, 0.00987, 0.05834 & + ,0.24568, 0.81783, 1.92050, 2.92820, 2.46480, 2.13970 & + ,1.82830, 1.67450, 1.51900, 1.36490, 1.23070/ + + DATA(qscat(1,1,ib,19),ib=1,17) & ! Band 1, RH = 98% + /0.00000, 0.00004, 0.00029, 0.00211, 0.01290, 0.07563 & + ,0.30715, 0.98207, 2.18580, 3.02680, 2.34250, 2.02900 & + ,1.82970, 1.69690, 1.55040, 1.39930, 1.26190/ + + DATA(qscat(1,1,ib,20),ib=1,17) & ! Band 1, RH = 99% + /0.00001, 0.00005, 0.00040, 0.00323, 0.02131, 0.12172 & + ,0.48233, 1.37510, 2.69820, 2.95220, 2.19410, 1.92460 & + ,1.86720, 1.71550, 1.59730, 1.45850, 1.32080/ + + DATA(qscat(1,2,ib,1),ib=1,17) & ! Band 2, RH = 80% + /0.00011, 0.00071, 0.00458, 0.02897, 0.15655, 0.67540 & + ,1.95970, 3.31950, 2.88180, 2.33520, 1.97270, 1.79570 & + ,1.59220, 1.41060, 1.26120, 1.16840, 1.12650/ + + DATA(qscat(1,2,ib,2),ib=1,17) & ! Band 2, RH = 81% + /0.00011, 0.00072, 0.00461, 0.02916, 0.15731, 0.67728 & + ,1.96030, 3.31930, 2.88280, 2.33570, 1.97470, 1.79770 & + ,1.59440, 1.41280, 1.26260, 1.16900, 1.12650/ + + DATA(qscat(1,2,ib,3),ib=1,17) & ! Band 2, RH = 82% + /0.00011, 0.00072, 0.00464, 0.02938, 0.15814, 0.67936 & + ,1.96110, 3.31920, 2.88370, 2.33620, 1.97680, 1.79970 & + ,1.59660, 1.41510, 1.26430, 1.16980, 1.12650/ + + DATA(qscat(1,2,ib,4),ib=1,17) & ! Band 2, RH = 83% + /0.00011, 0.00073, 0.00468, 0.02962, 0.15906, 0.68169 & + ,1.96200, 3.31930, 2.88460, 2.33660, 1.97900, 1.80160 & + ,1.59910, 1.41770, 1.26620, 1.17050, 1.12650/ + + DATA(qscat(1,2,ib,5),ib=1,17) & ! Band 2, RH = 84% + /0.00011, 0.00074, 0.00472, 0.02988, 0.16010, 0.68431 & + ,1.96310, 3.31940, 2.88530, 2.33720, 1.98170, 1.80390 & + ,1.60210, 1.42050, 1.26820, 1.17150, 1.12660/ + + DATA(qscat(1,2,ib,6),ib=1,17) & ! Band 2, RH = 85% + /0.00012, 0.00074, 0.00477, 0.03019, 0.16127, 0.68728 & + ,1.96450, 3.31990, 2.88570, 2.33740, 1.98440, 1.80680 & + ,1.60540, 1.42370, 1.27070, 1.17240, 1.12660/ + + DATA(qscat(1,2,ib,7),ib=1,17) & ! Band 2, RH = 86% + /0.00012, 0.00075, 0.00482, 0.03053, 0.16259, 0.69068 & + ,1.96620, 3.32070, 2.88580, 2.33750, 1.98770, 1.80940 & + ,1.60920, 1.42720, 1.27330, 1.17370, 1.12670/ + + DATA(qscat(1,2,ib,8),ib=1,17) & ! Band 2, RH = 87% + /0.00012, 0.00076, 0.00488, 0.03093, 0.16410, 0.69460 & + ,1.96830, 3.32190, 2.88540, 2.33770, 1.99110, 1.81280 & + ,1.61340, 1.43150, 1.27640, 1.17510, 1.12680/ + + DATA(qscat(1,2,ib,9),ib=1,17) & ! Band 2, RH = 88% + /0.00012, 0.00077, 0.00496, 0.03138, 0.16586, 0.69916 & + ,1.97090, 3.32390, 2.88440, 2.33750, 1.99590, 1.81580 & + ,1.61780, 1.43610, 1.28010, 1.17670, 1.12700/ + + DATA(qscat(1,2,ib,10),ib=1,17) & ! Band 2, RH = 89% + /0.00012, 0.00078, 0.00504, 0.03192, 0.16791, 0.70454 & + ,1.97430, 3.32680, 2.88300, 2.33790, 2.00150, 1.82010 & + ,1.62330, 1.44160, 1.28450, 1.17870, 1.12730/ + + DATA(qscat(1,2,ib,11),ib=1,17) & ! Band 2, RH = 90% + /0.00012, 0.00079, 0.00514, 0.03255, 0.17034, 0.71097 & + ,1.97880, 3.33110, 2.88130, 2.33730, 2.00740, 1.82540 & + ,1.62980, 1.44780, 1.28950, 1.18120, 1.12770/ + + DATA(qscat(1,2,ib,12),ib=1,17) & ! Band 2, RH = 91% + /0.00012, 0.00081, 0.00525, 0.03332, 0.17327, 0.71878 & + ,1.98480, 3.33690, 2.88030, 2.33650, 2.01350, 1.83110 & + ,1.63780, 1.45510, 1.29570, 1.18440, 1.12830/ + + DATA(qscat(1,2,ib,13),ib=1,17) & ! Band 2, RH = 92% + /0.00013, 0.00083, 0.00539, 0.03426, 0.17687, 0.72845 & + ,1.99310, 3.34460, 2.87970, 2.33620, 2.02040, 1.83790 & + ,1.64670, 1.46420, 1.30350, 1.18820, 1.12910/ + + DATA(qscat(1,2,ib,14),ib=1,17) & ! Band 2, RH = 93% + /0.00013, 0.00085, 0.00557, 0.03545, 0.18141, 0.74072 & + ,2.00510, 3.35410, 2.87720, 2.33430, 2.02940, 1.84500 & + ,1.65830, 1.47550, 1.31260, 1.19350, 1.13040/ + + DATA(qscat(1,2,ib,15),ib=1,17) & ! Band 2, RH = 94% + /0.00013, 0.00088, 0.00580, 0.03701, 0.18731, 0.75676 & + ,2.02300, 3.36520, 2.87100, 2.33060, 2.04090, 1.85500 & + ,1.67270, 1.48950, 1.32480, 1.20060, 1.13250/ + + DATA(qscat(1,2,ib,16),ib=1,17) & ! Band 2, RH = 95% + /0.00014, 0.00092, 0.00611, 0.03912, 0.19529, 0.77856 & + ,2.05140, 3.37710, 2.85500, 2.32270, 2.05760, 1.86700 & + ,1.69140, 1.50760, 1.34150, 1.21130, 1.13620/ + + DATA(qscat(1,2,ib,17),ib=1,17) & ! Band 2, RH = 96% + /0.00014, 0.00097, 0.00654, 0.04216, 0.20674, 0.80984 & + ,2.09870, 3.39130, 2.82950, 2.31320, 2.07370, 1.88270 & + ,1.71700, 1.53410, 1.36470, 1.22720, 1.14240/ + + DATA(qscat(1,2,ib,18),ib=1,17) & ! Band 2, RH = 97% + /0.00015, 0.00104, 0.00719, 0.04693, 0.22465, 0.85868 & + ,2.18040, 3.42460, 2.78720, 2.29430, 2.09670, 1.90580 & + ,1.75050, 1.57290, 1.40170, 1.25330, 1.15470/ + + DATA(qscat(1,2,ib,19),ib=1,17) & ! Band 2, RH = 98% + /0.00016, 0.00115, 0.00830, 0.05550, 0.25710, 0.94827 & + ,2.32580, 3.46800, 2.69020, 2.24680, 2.12630, 1.94210 & + ,1.80220, 1.63660, 1.46260, 1.30290, 1.18290/ + + DATA(qscat(1,2,ib,20),ib=1,17) & ! Band 2, RH = 99% + /0.00017, 0.00135, 0.01067, 0.07559, 0.33861, 1.18810 & + ,2.68340, 3.47430, 2.49650, 2.15760, 2.15960, 2.01730 & + ,1.87270, 1.74060, 1.58500, 1.42040, 1.26840/ + + DATA(qscat(1,3,ib,1),ib=1,17) & ! Band 3, RH = 80% + /0.00202, 0.01296, 0.07746, 0.36935, 1.25280, 2.81310 & + ,3.56840, 2.40800, 2.09700, 1.85010, 1.68620, 1.50270 & + ,1.33810, 1.21600, 1.14800, 1.12260, 1.11420/ + + DATA(qscat(1,3,ib,2),ib=1,17) & ! Band 3, RH = 81% + /0.00203, 0.01305, 0.07791, 0.37075, 1.25460, 2.81260 & + ,3.56790, 2.40940, 2.09830, 1.85140, 1.68820, 1.50500 & + ,1.34000, 1.21710, 1.14830, 1.12240, 1.11390/ + + DATA(qscat(1,3,ib,3),ib=1,17) & ! Band 3, RH = 82% + /0.00204, 0.01314, 0.07841, 0.37230, 1.25670, 2.81200 & + ,3.56730, 2.41030, 2.09990, 1.85340, 1.69050, 1.50740 & + ,1.34210, 1.21830, 1.14860, 1.12220, 1.11360/ + + DATA(qscat(1,3,ib,4),ib=1,17) & ! Band 3, RH = 83% + /0.00206, 0.01324, 0.07896, 0.37402, 1.25900, 2.81160 & + ,3.56670, 2.41100, 2.10140, 1.85550, 1.69310, 1.51030 & + ,1.34450, 1.21970, 1.14890, 1.12200, 1.11330/ + + DATA(qscat(1,3,ib,5),ib=1,17) & ! Band 3, RH = 84% + /0.00207, 0.01336, 0.07958, 0.37594, 1.26160, 2.81110 & + ,3.56620, 2.41190, 2.10310, 1.85730, 1.69600, 1.51340 & + ,1.34690, 1.22130, 1.14930, 1.12170, 1.11290/ + + DATA(qscat(1,3,ib,6),ib=1,17) & ! Band 3, RH = 85% + /0.00209, 0.01348, 0.08027, 0.37810, 1.26450, 2.81080 & + ,3.56580, 2.41280, 2.10580, 1.85970, 1.69940, 1.51670 & + ,1.34980, 1.22300, 1.14980, 1.12150, 1.11250/ + + DATA(qscat(1,3,ib,7),ib=1,17) & ! Band 3, RH = 86% + /0.00211, 0.01363, 0.08105, 0.38055, 1.26800, 2.81050 & + ,3.56530, 2.41390, 2.10840, 1.86230, 1.70310, 1.52050 & + ,1.35310, 1.22500, 1.15040, 1.12130, 1.11200/ + + DATA(qscat(1,3,ib,8),ib=1,17) & ! Band 3, RH = 87% + /0.00213, 0.01379, 0.08193, 0.38335, 1.27200, 2.81050 & + ,3.56370, 2.41440, 2.11160, 1.86550, 1.70750, 1.52480 & + ,1.35670, 1.22720, 1.15100, 1.12100, 1.11150/ + + DATA(qscat(1,3,ib,9),ib=1,17) & ! Band 3, RH = 88% + /0.00216, 0.01397, 0.08295, 0.38657, 1.27660, 2.81070 & + ,3.56160, 2.41510, 2.11540, 1.86900, 1.71210, 1.52990 & + ,1.36120, 1.23000, 1.15190, 1.12080, 1.11090/ + + DATA(qscat(1,3,ib,10),ib=1,17) & ! Band 3, RH = 89% + /0.00219, 0.01418, 0.08412, 0.39034, 1.28220, 2.81140 & + ,3.56020, 2.41410, 2.12040, 1.87270, 1.71740, 1.53530 & + ,1.36620, 1.23330, 1.15300, 1.12050, 1.11030/ + + DATA(qscat(1,3,ib,11),ib=1,17) & ! Band 3, RH = 90% + /0.00222, 0.01443, 0.08551, 0.39479, 1.28900, 2.81280 & + ,3.55860, 2.41240, 2.12550, 1.87770, 1.72340, 1.54170 & + ,1.37210, 1.23720, 1.15440, 1.12020, 1.10960/ + + DATA(qscat(1,3,ib,12),ib=1,17) & ! Band 3, RH = 91% + /0.00225, 0.01472, 0.08715, 0.40014, 1.29720, 2.81530 & + ,3.55690, 2.40990, 2.12980, 1.88390, 1.73120, 1.55000 & + ,1.37920, 1.24210, 1.15610, 1.12010, 1.10870/ + + DATA(qscat(1,3,ib,13),ib=1,17) & ! Band 3, RH = 92% + /0.00230, 0.01507, 0.08915, 0.40670, 1.30740, 2.81950 & + ,3.55480, 2.40560, 2.13390, 1.88930, 1.74070, 1.55990 & + ,1.38780, 1.24790, 1.15850, 1.12000, 1.10780/ + + DATA(qscat(1,3,ib,14),ib=1,17) & ! Band 3, RH = 93% + /0.00235, 0.01550, 0.09162, 0.41494, 1.32050, 2.82600 & + ,3.55210, 2.40080, 2.13970, 1.89680, 1.75090, 1.57220 & + ,1.39900, 1.25600, 1.16170, 1.12000, 1.10670/ + + DATA(qscat(1,3,ib,15),ib=1,17) & ! Band 3, RH = 94% + /0.00241, 0.01603, 0.09476, 0.42561, 1.33780, 2.83630 & + ,3.54830, 2.39230, 2.14830, 1.90550, 1.76540, 1.58680 & + ,1.41270, 1.26620, 1.16650, 1.12050, 1.10550/ + + DATA(qscat(1,3,ib,16),ib=1,17) & ! Band 3, RH = 95% + /0.00249, 0.01672, 0.09891, 0.43996, 1.36130, 2.85320 & + ,3.54130, 2.38190, 2.16300, 1.91810, 1.78270, 1.60670 & + ,1.43190, 1.28040, 1.17360, 1.12160, 1.10420/ + + DATA(qscat(1,3,ib,17),ib=1,17) & ! Band 3, RH = 96% + /0.00259, 0.01764, 0.10465, 0.46034, 1.39550, 2.88250 & + ,3.52370, 2.36790, 2.18340, 1.93290, 1.80760, 1.63290 & + ,1.45770, 1.30030, 1.18540, 1.12450, 1.10290/ + + DATA(qscat(1,3,ib,18),ib=1,17) & ! Band 3, RH = 97% + /0.00272, 0.01894, 0.11316, 0.49152, 1.45080, 2.93570 & + ,3.48900, 2.32910, 2.20870, 1.95730, 1.84510, 1.67120 & + ,1.49660, 1.33330, 1.20570, 1.13130, 1.10220/ + + DATA(qscat(1,3,ib,19),ib=1,17) & ! Band 3, RH = 98% + /0.00290, 0.02096, 0.12723, 0.54491, 1.55650, 3.03920 & + ,3.42950, 2.25740, 2.24620, 2.00390, 1.89780, 1.73310 & + ,1.56050, 1.39220, 1.24710, 1.15000, 1.10490/ + + DATA(qscat(1,3,ib,20),ib=1,17) & ! Band 3, RH = 99% + /0.00317, 0.02451, 0.15542, 0.65754, 1.80500, 3.26390 & + ,3.20780, 2.14190, 2.27970, 2.09880, 1.94200, 1.81610 & + ,1.67600, 1.51750, 1.35540, 1.21840, 1.13060/ + + DATA(qscat(1,4,ib,1),ib=1,17) & ! Band 4, RH = 80% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & + ,0.00003, 0.00020, 0.00131, 0.00844, 0.05454, 0.31563 & + ,1.12620, 1.76130, 1.40620, 1.22980, 1.23050/ + + DATA(qscat(1,4,ib,2),ib=1,17) & ! Band 4, RH = 81% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & + ,0.00003, 0.00021, 0.00132, 0.00853, 0.05505, 0.31755 & + ,1.12530, 1.75470, 1.40390, 1.22910, 1.23000/ + + DATA(qscat(1,4,ib,3),ib=1,17) & ! Band 4, RH = 82% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & + ,0.00003, 0.00021, 0.00134, 0.00862, 0.05562, 0.31968 & + ,1.12420, 1.74750, 1.40150, 1.22830, 1.22940/ + + DATA(qscat(1,4,ib,4),ib=1,17) & ! Band 4, RH = 83% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & + ,0.00003, 0.00021, 0.00135, 0.00873, 0.05626, 0.32204 & + ,1.12310, 1.73970, 1.39880, 1.22750, 1.22880/ + + DATA(qscat(1,4,ib,5),ib=1,17) & ! Band 4, RH = 84% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & + ,0.00003, 0.00021, 0.00137, 0.00884, 0.05697, 0.32468 & + ,1.12200, 1.73110, 1.39580, 1.22670, 1.22810/ + + DATA(qscat(1,4,ib,6),ib=1,17) & ! Band 4, RH = 85% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & + ,0.00003, 0.00022, 0.00139, 0.00898, 0.05779, 0.32766 & + ,1.12070, 1.72180, 1.39250, 1.22580, 1.22730/ + + DATA(qscat(1,4,ib,7),ib=1,17) & ! Band 4, RH = 86% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & + ,0.00003, 0.00022, 0.00142, 0.00914, 0.05872, 0.33104 & + ,1.11930, 1.71160, 1.38870, 1.22480, 1.22650/ + + DATA(qscat(1,4,ib,8),ib=1,17) & ! Band 4, RH = 87% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & + ,0.00004, 0.00023, 0.00145, 0.00932, 0.05981, 0.33492 & + ,1.11790, 1.70030, 1.38460, 1.22370, 1.22550/ + + DATA(qscat(1,4,ib,9),ib=1,17) & ! Band 4, RH = 88% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & + ,0.00004, 0.00023, 0.00148, 0.00953, 0.06108, 0.33940 & + ,1.11630, 1.68780, 1.37990, 1.22250, 1.22450/ + + DATA(qscat(1,4,ib,10),ib=1,17) & ! Band 4, RH = 89% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & + ,0.00004, 0.00024, 0.00152, 0.00978, 0.06259, 0.34463 & + ,1.11470, 1.67390, 1.37450, 1.22130, 1.22330/ + + DATA(qscat(1,4,ib,11),ib=1,17) & ! Band 4, RH = 90% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & + ,0.00004, 0.00024, 0.00157, 0.01009, 0.06441, 0.35084 & + ,1.11300, 1.65840, 1.36840, 1.21980, 1.22190/ + + DATA(qscat(1,4,ib,12),ib=1,17) & ! Band 4, RH = 91% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & + ,0.00004, 0.00025, 0.00162, 0.01047, 0.06665, 0.35832 & + ,1.11130, 1.64090, 1.36130, 1.21820, 1.22030/ + + DATA(qscat(1,4,ib,13),ib=1,17) & ! Band 4, RH = 92% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & + ,0.00004, 0.00026, 0.00170, 0.01095, 0.06947, 0.36749 & + ,1.10970, 1.62130, 1.35310, 1.21640, 1.21850/ + + DATA(qscat(1,4,ib,14),ib=1,17) & ! Band 4, RH = 93% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & + ,0.00004, 0.00028, 0.00180, 0.01157, 0.07314, 0.37902 & + ,1.10830, 1.59900, 1.34330, 1.21430, 1.21630/ + + DATA(qscat(1,4,ib,15),ib=1,17) & ! Band 4, RH = 94% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & + ,0.00005, 0.00030, 0.00193, 0.01243, 0.07808, 0.39393 & + ,1.10770, 1.57350, 1.33160, 1.21180, 1.21380/ + + DATA(qscat(1,4,ib,16),ib=1,17) & ! Band 4, RH = 95% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & + ,0.00005, 0.00033, 0.00212, 0.01366, 0.08508, 0.41397 & + ,1.10860, 1.54430, 1.31710, 1.20890, 1.21060/ + + DATA(qscat(1,4,ib,17),ib=1,17) & ! Band 4, RH = 96% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & + ,0.00006, 0.00038, 0.00242, 0.01556, 0.09576, 0.44237 & + ,1.11300, 1.51030, 1.29860, 1.20530, 1.20680/ + + DATA(qscat(1,4,ib,18),ib=1,17) & ! Band 4, RH = 97% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & + ,0.00007, 0.00046, 0.00295, 0.01891, 0.11385, 0.48578 & + ,1.12530, 1.46890, 1.27450, 1.20070, 1.20200/ + + DATA(qscat(1,4,ib,19),ib=1,17) & ! Band 4, RH = 98% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00001 & + ,0.00010, 0.00063, 0.00409, 0.02614, 0.15040, 0.56095 & + ,1.15670, 1.41490, 1.24270, 1.19470, 1.19590/ + + DATA(qscat(1,4,ib,20),ib=1,17) & ! Band 4, RH = 99% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00003 & + ,0.00018, 0.00121, 0.00804, 0.05065, 0.25404, 0.72700 & + ,1.23010, 1.33440, 1.20190, 1.18720, 1.18810/ + + DATA(qscat(1,5,ib,1),ib=1,17) & ! Band 5, RH = 80% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & + ,0.00012, 0.00074, 0.00470, 0.02958, 0.16912, 0.66331 & + ,1.65090, 2.22490, 1.39120, 1.22580, 1.17470/ + + DATA(qscat(1,5,ib,2),ib=1,17) & ! Band 5, RH = 81% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & + ,0.00012, 0.00074, 0.00473, 0.02977, 0.16963, 0.66110 & + ,1.63450, 2.19630, 1.38460, 1.21940, 1.17280/ + + DATA(qscat(1,5,ib,3),ib=1,17) & ! Band 5, RH = 82% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & + ,0.00012, 0.00075, 0.00477, 0.02998, 0.17021, 0.65875 & + ,1.61700, 2.16600, 1.37770, 1.21300, 1.17110/ + + DATA(qscat(1,5,ib,4),ib=1,17) & ! Band 5, RH = 83% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & + ,0.00012, 0.00076, 0.00481, 0.03021, 0.17087, 0.65624 & + ,1.59820, 2.13360, 1.37040, 1.20660, 1.16930/ + + DATA(qscat(1,5,ib,5),ib=1,17) & ! Band 5, RH = 84% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & + ,0.00012, 0.00076, 0.00486, 0.03048, 0.17163, 0.65358 & + ,1.57810, 2.09910, 1.36260, 1.20040, 1.16770/ + + DATA(qscat(1,5,ib,6),ib=1,17) & ! Band 5, RH = 85% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & + ,0.00012, 0.00077, 0.00492, 0.03079, 0.17250, 0.65074 & + ,1.55650, 2.06200, 1.35440, 1.19420, 1.16610/ + + DATA(qscat(1,5,ib,7),ib=1,17) & ! Band 5, RH = 86% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & + ,0.00012, 0.00078, 0.00498, 0.03115, 0.17353, 0.64773 & + ,1.53320, 2.02230, 1.34560, 1.18820, 1.16460/ + + DATA(qscat(1,5,ib,8),ib=1,17) & ! Band 5, RH = 87% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & + ,0.00013, 0.00080, 0.00506, 0.03156, 0.17474, 0.64454 & + ,1.50800, 1.97960, 1.33630, 1.18250, 1.16310/ + + DATA(qscat(1,5,ib,9),ib=1,17) & ! Band 5, RH = 88% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & + ,0.00013, 0.00081, 0.00515, 0.03206, 0.17618, 0.64116 & + ,1.48080, 1.93360, 1.32620, 1.17700, 1.16170/ + + DATA(qscat(1,5,ib,10),ib=1,17) & ! Band 5, RH = 89% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & + ,0.00013, 0.00083, 0.00526, 0.03266, 0.17794, 0.63763 & + ,1.45130, 1.88380, 1.31520, 1.17180, 1.16020/ + + DATA(qscat(1,5,ib,11),ib=1,17) & ! Band 5, RH = 90% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & + ,0.00013, 0.00085, 0.00539, 0.03340, 0.18011, 0.63397 & + ,1.41930, 1.82990, 1.30320, 1.16690, 1.15870/ + + DATA(qscat(1,5,ib,12),ib=1,17) & ! Band 5, RH = 91% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & + ,0.00014, 0.00088, 0.00556, 0.03433, 0.18284, 0.63028 & + ,1.38460, 1.77130, 1.29010, 1.16240, 1.15710/ + + DATA(qscat(1,5,ib,13),ib=1,17) & ! Band 5, RH = 92% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & + ,0.00014, 0.00091, 0.00577, 0.03553, 0.18635, 0.62671 & + ,1.34680, 1.70760, 1.27540, 1.15830, 1.15540/ + + DATA(qscat(1,5,ib,14),ib=1,17) & ! Band 5, RH = 93% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & + ,0.00015, 0.00096, 0.00606, 0.03712, 0.19102, 0.62354 & + ,1.30580, 1.63810, 1.25900, 1.15460, 1.15340/ + + DATA(qscat(1,5,ib,15),ib=1,17) & ! Band 5, RH = 94% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & + ,0.00016, 0.00102, 0.00647, 0.03932, 0.19743, 0.62135 & + ,1.26170, 1.56250, 1.24040, 1.15110, 1.15120/ + + DATA(qscat(1,5,ib,16),ib=1,17) & ! Band 5, RH = 95% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00003 & + ,0.00017, 0.00112, 0.00706, 0.04254, 0.20666, 0.62120 & + ,1.21480, 1.48050, 1.21920, 1.14770, 1.14860/ + + DATA(qscat(1,5,ib,17),ib=1,17) & ! Band 5, RH = 96% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00003 & + ,0.00020, 0.00127, 0.00802, 0.04762, 0.22074, 0.62533 & + ,1.16630, 1.39270, 1.19490, 1.14410, 1.14570/ + + DATA(qscat(1,5,ib,18),ib=1,17) & ! Band 5, RH = 97% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00004 & + ,0.00024, 0.00155, 0.00974, 0.05659, 0.24414, 0.63873 & + ,1.11930, 1.30100, 1.16810, 1.13990, 1.14260/ + + DATA(qscat(1,5,ib,19),ib=1,17) & ! Band 5, RH = 98% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00005 & + ,0.00033, 0.00216, 0.01358, 0.07558, 0.28828, 0.67420 & + ,1.08080, 1.21010, 1.14150, 1.13550, 1.14010/ + + DATA(qscat(1,5,ib,20),ib=1,17) & ! Band 5, RH = 99% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00009 & + ,0.00065, 0.00435, 0.02689, 0.13280, 0.39431, 0.77241 & + ,1.06860, 1.13330, 1.12400, 1.13420, 1.14010/ + + DATA(qscat(1,6,ib,1),ib=1,17) & ! Band 6, RH = 80% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00008 & + ,0.00052, 0.00327, 0.02003, 0.10642, 0.35826, 0.81682 & + ,1.26810, 1.40030, 1.24000, 1.12530, 1.11970/ + + DATA(qscat(1,6,ib,2),ib=1,17) & ! Band 6, RH = 81% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00008 & + ,0.00052, 0.00330, 0.02017, 0.10695, 0.35922, 0.81974 & + ,1.27370, 1.40510, 1.24010, 1.12480, 1.11950/ + + DATA(qscat(1,6,ib,3),ib=1,17) & ! Band 6, RH = 82% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00008 & + ,0.00053, 0.00332, 0.02032, 0.10754, 0.36029, 0.82298 & + ,1.28000, 1.41040, 1.24010, 1.12440, 1.11930/ + + DATA(qscat(1,6,ib,4),ib=1,17) & ! Band 6, RH = 83% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00008 & + ,0.00053, 0.00335, 0.02049, 0.10820, 0.36151, 0.82662 & + ,1.28690, 1.41620, 1.24010, 1.12380, 1.11900/ + + DATA(qscat(1,6,ib,5),ib=1,17) & ! Band 6, RH = 84% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00008 & + ,0.00054, 0.00339, 0.02068, 0.10895, 0.36290, 0.83072 & + ,1.29470, 1.42260, 1.24000, 1.12330, 1.11870/ + + DATA(qscat(1,6,ib,6),ib=1,17) & ! Band 6, RH = 85% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00009 & + ,0.00054, 0.00343, 0.02090, 0.10980, 0.36451, 0.83537 & + ,1.30350, 1.42980, 1.23970, 1.12270, 1.11840/ + + DATA(qscat(1,6,ib,7),ib=1,17) & ! Band 6, RH = 86% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00009 & + ,0.00055, 0.00347, 0.02115, 0.11078, 0.36638, 0.84071 & + ,1.31340, 1.43780, 1.23920, 1.12210, 1.11810/ + + DATA(qscat(1,6,ib,8),ib=1,17) & ! Band 6, RH = 87% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00009 & + ,0.00056, 0.00352, 0.02145, 0.11191, 0.36859, 0.84687 & + ,1.32470, 1.44680, 1.23850, 1.12150, 1.11770/ + + DATA(qscat(1,6,ib,9),ib=1,17) & ! Band 6, RH = 88% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00009 & + ,0.00057, 0.00358, 0.02179, 0.11324, 0.37122, 0.85408 & + ,1.33790, 1.45690, 1.23740, 1.12090, 1.11720/ + + DATA(qscat(1,6,ib,10),ib=1,17) & ! Band 6, RH = 89% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00009 & + ,0.00058, 0.00366, 0.02220, 0.11482, 0.37441, 0.86263 & + ,1.35320, 1.46850, 1.23580, 1.12020, 1.11660/ + + DATA(qscat(1,6,ib,11),ib=1,17) & ! Band 6, RH = 90% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00009 & + ,0.00059, 0.00374, 0.02270, 0.11672, 0.37835, 0.87292 & + ,1.37130, 1.48170, 1.23350, 1.11970, 1.11600/ + + DATA(qscat(1,6,ib,12),ib=1,17) & ! Band 6, RH = 91% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00002, 0.00010 & + ,0.00061, 0.00385, 0.02332, 0.11907, 0.38330, 0.88553 & + ,1.39310, 1.49700, 1.23030, 1.11940, 1.11530/ + + DATA(qscat(1,6,ib,13),ib=1,17) & ! Band 6, RH = 92% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00002, 0.00010 & + ,0.00063, 0.00399, 0.02410, 0.12201, 0.38971, 0.90135 & + ,1.41980, 1.51470, 1.22580, 1.11930, 1.11440/ + + DATA(qscat(1,6,ib,14),ib=1,17) & ! Band 6, RH = 93% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00002, 0.00010 & + ,0.00066, 0.00417, 0.02512, 0.12583, 0.39827, 0.92175 & + ,1.45330, 1.53550, 1.21890, 1.11980, 1.11340/ + + DATA(qscat(1,6,ib,15),ib=1,17) & ! Band 6, RH = 94% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00002, 0.00011 & + ,0.00070, 0.00441, 0.02650, 0.13094, 0.41018, 0.94902 & + ,1.49640, 1.56020, 1.20840, 1.12110, 1.11240/ + + DATA(qscat(1,6,ib,16),ib=1,17) & ! Band 6, RH = 95% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00002, 0.00012 & + ,0.00076, 0.00477, 0.02848, 0.13812, 0.42765, 0.98717 & + ,1.55410, 1.58920, 1.19320, 1.12370, 1.11150/ + + DATA(qscat(1,6,ib,17),ib=1,17) & ! Band 6, RH = 96% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00002, 0.00013 & + ,0.00084, 0.00531, 0.03154, 0.14888, 0.45526, 1.04370 & + ,1.63410, 1.61940, 1.16990, 1.12790, 1.11110/ + + DATA(qscat(1,6,ib,18),ib=1,17) & ! Band 6, RH = 97% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00002, 0.00015 & + ,0.00099, 0.00626, 0.03682, 0.16662, 0.50348, 1.13400 & + ,1.74790, 1.64320, 1.13760, 1.13120, 1.11060/ + + DATA(qscat(1,6,ib,19),ib=1,17) & ! Band 6, RH = 98% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00020 & + ,0.00131, 0.00830, 0.04787, 0.20080, 0.59996, 1.29650 & + ,1.92570, 1.62550, 1.10700, 1.12130, 1.10660/ + + DATA(qscat(1,6,ib,20),ib=1,17) & ! Band 6, RH = 99% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00005, 0.00034 & + ,0.00234, 0.01505, 0.08212, 0.29489, 0.83761, 1.68570 & + ,2.17570, 1.39960, 1.17480, 1.10880, 1.10420/ + + DATA(qscat(1,7,ib,1),ib=1,17) & ! Band 7, RH = 80% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00018 & + ,0.00113, 0.00725, 0.04681, 0.27904, 1.07380, 1.99160 & + ,1.71550, 1.15450, 1.22020, 1.20580, 1.19920/ + + DATA(qscat(1,7,ib,2),ib=1,17) & ! Band 7, RH = 81% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00018 & + ,0.00113, 0.00727, 0.04691, 0.27900, 1.06960, 1.98870 & + ,1.72160, 1.15300, 1.22000, 1.20480, 1.19820/ + + DATA(qscat(1,7,ib,3),ib=1,17) & ! Band 7, RH = 82% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00018 & + ,0.00113, 0.00729, 0.04701, 0.27895, 1.06510, 1.98550 & + ,1.72820, 1.15150, 1.21970, 1.20380, 1.19710/ + + DATA(qscat(1,7,ib,4),ib=1,17) & ! Band 7, RH = 83% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00018 & + ,0.00114, 0.00732, 0.04713, 0.27889, 1.06020, 1.98180 & + ,1.73540, 1.14990, 1.21950, 1.20270, 1.19600/ + + DATA(qscat(1,7,ib,5),ib=1,17) & ! Band 7, RH = 84% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00018 & + ,0.00114, 0.00735, 0.04727, 0.27883, 1.05480, 1.97770 & + ,1.74340, 1.14840, 1.21920, 1.20140, 1.19470/ + + DATA(qscat(1,7,ib,6),ib=1,17) & ! Band 7, RH = 85% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00018 & + ,0.00115, 0.00738, 0.04741, 0.27876, 1.04880, 1.97310 & + ,1.75220, 1.14680, 1.21900, 1.20010, 1.19330/ + + DATA(qscat(1,7,ib,7),ib=1,17) & ! Band 7, RH = 86% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00018 & + ,0.00115, 0.00741, 0.04758, 0.27867, 1.04230, 1.96780 & + ,1.76190, 1.14520, 1.21870, 1.19860, 1.19170/ + + DATA(qscat(1,7,ib,8),ib=1,17) & ! Band 7, RH = 87% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00018 & + ,0.00116, 0.00745, 0.04778, 0.27857, 1.03490, 1.96170 & + ,1.77280, 1.14380, 1.21840, 1.19700, 1.19000/ + + DATA(qscat(1,7,ib,9),ib=1,17) & ! Band 7, RH = 88% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00018 & + ,0.00117, 0.00749, 0.04800, 0.27846, 1.02680, 1.95460 & + ,1.78500, 1.14250, 1.21810, 1.19530, 1.18800/ + + DATA(qscat(1,7,ib,10),ib=1,17) & ! Band 7, RH = 89% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00018 & + ,0.00118, 0.00755, 0.04826, 0.27833, 1.01760, 1.94630 & + ,1.79880, 1.14160, 1.21770, 1.19330, 1.18570/ + + DATA(qscat(1,7,ib,11),ib=1,17) & ! Band 7, RH = 90% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00019 & + ,0.00119, 0.00761, 0.04858, 0.27817, 1.00720, 1.93650 & + ,1.81440, 1.14110, 1.21730, 1.19100, 1.18320/ + + DATA(qscat(1,7,ib,12),ib=1,17) & ! Band 7, RH = 91% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00019 & + ,0.00120, 0.00769, 0.04896, 0.27800, 0.99543, 1.92480 & + ,1.83230, 1.14150, 1.21670, 1.18850, 1.18020/ + + DATA(qscat(1,7,ib,13),ib=1,17) & ! Band 7, RH = 92% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00019 & + ,0.00121, 0.00778, 0.04943, 0.27781, 0.98196, 1.91050 & + ,1.85290, 1.14310, 1.21590, 1.18550, 1.17670/ + + DATA(qscat(1,7,ib,14),ib=1,17) & ! Band 7, RH = 93% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00019 & + ,0.00123, 0.00790, 0.05003, 0.27762, 0.96649, 1.89300 & + ,1.87670, 1.14700, 1.21470, 1.18200, 1.17260/ + + DATA(qscat(1,7,ib,15),ib=1,17) & ! Band 7, RH = 94% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00020 & + ,0.00126, 0.00807, 0.05084, 0.27747, 0.94870, 1.87110 & + ,1.90410, 1.15420, 1.21280, 1.17770, 1.16770/ + + DATA(qscat(1,7,ib,16),ib=1,17) & ! Band 7, RH = 95% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00003, 0.00020 & + ,0.00130, 0.00830, 0.05197, 0.27745, 0.92833, 1.84320 & + ,1.93510, 1.16690, 1.20960, 1.17220, 1.16170/ + + DATA(qscat(1,7,ib,17),ib=1,17) & ! Band 7, RH = 96% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00003, 0.00021 & + ,0.00135, 0.00865, 0.05369, 0.27785, 0.90559, 1.80740 & + ,1.96830, 1.18820, 1.20390, 1.16480, 1.15420/ + + DATA(qscat(1,7,ib,18),ib=1,17) & ! Band 7, RH = 97% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00003, 0.00023 & + ,0.00145, 0.00924, 0.05664, 0.27950, 0.88222, 1.76160 & + ,1.99960, 1.22220, 1.19440, 1.15460, 1.14470/ + + DATA(qscat(1,7,ib,19),ib=1,17) & ! Band 7, RH = 98% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00004, 0.00025 & + ,0.00165, 0.01049, 0.06282, 0.28553, 0.86576, 1.71140 & + ,2.02930, 1.26800, 1.17990, 1.14030, 1.13180/ + + DATA(qscat(1,7,ib,20),ib=1,17) & ! Band 7, RH = 99% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00005, 0.00034 & + ,0.00227, 0.01454, 0.08216, 0.31465, 0.89350, 1.72680 & + ,2.05730, 1.28860, 1.16810, 1.12220, 1.11360/ + + DATA(qscat(1,8,ib,1),ib=1,17) & ! Band 8, RH = 80% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00004, 0.00025 & + ,0.00155, 0.00939, 0.05049, 0.19427, 0.60629, 1.41840 & + ,2.31550, 2.08250, 1.57030, 1.27520, 1.17020/ + + DATA(qscat(1,8,ib,2),ib=1,17) & ! Band 8, RH = 81% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00004, 0.00025 & + ,0.00158, 0.00955, 0.05129, 0.19688, 0.61344, 1.43180 & + ,2.32740, 2.07790, 1.57040, 1.27600, 1.16880/ + + DATA(qscat(1,8,ib,3),ib=1,17) & ! Band 8, RH = 82% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00004, 0.00026 & + ,0.00160, 0.00973, 0.05218, 0.19978, 0.62137, 1.44650 & + ,2.34020, 2.07270, 1.57040, 1.27710, 1.16730/ + + DATA(qscat(1,8,ib,4),ib=1,17) & ! Band 8, RH = 83% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00004, 0.00026 & + ,0.00164, 0.00993, 0.05318, 0.20303, 0.63022, 1.46290 & + ,2.35420, 2.06690, 1.57020, 1.27850, 1.16570/ + + DATA(qscat(1,8,ib,5),ib=1,17) & ! Band 8, RH = 84% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00004, 0.00027 & + ,0.00168, 0.01016, 0.05430, 0.20669, 0.64014, 1.48110 & + ,2.36960, 2.06030, 1.56990, 1.28030, 1.16400/ + + DATA(qscat(1,8,ib,6),ib=1,17) & ! Band 8, RH = 85% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00004, 0.00027 & + ,0.00172, 0.01042, 0.05557, 0.21084, 0.65136, 1.50160 & + ,2.38640, 2.05270, 1.56930, 1.28260, 1.16240/ + + DATA(qscat(1,8,ib,7),ib=1,17) & ! Band 8, RH = 86% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00004, 0.00028 & + ,0.00177, 0.01072, 0.05703, 0.21558, 0.66415, 1.52470 & + ,2.40500, 2.04380, 1.56820, 1.28530, 1.16090/ + + DATA(qscat(1,8,ib,8),ib=1,17) & ! Band 8, RH = 87% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00005, 0.00029 & + ,0.00183, 0.01107, 0.05872, 0.22107, 0.67885, 1.55090 & + ,2.42540, 2.03300, 1.56590, 1.28840, 1.15970/ + + DATA(qscat(1,8,ib,9),ib=1,17) & ! Band 8, RH = 88% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00005, 0.00030 & + ,0.00190, 0.01148, 0.06070, 0.22748, 0.69593, 1.58110 & + ,2.44790, 2.01960, 1.56230, 1.29190, 1.15900/ + + DATA(qscat(1,8,ib,10),ib=1,17) & ! Band 8, RH = 89% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00005, 0.00031 & + ,0.00198, 0.01197, 0.06304, 0.23508, 0.71603, 1.61610 & + ,2.47260, 2.00280, 1.55720, 1.29560, 1.15910/ + + DATA(qscat(1,8,ib,11),ib=1,17) & ! Band 8, RH = 90% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00005, 0.00033 & + ,0.00208, 0.01256, 0.06586, 0.24421, 0.74000, 1.65710 & + ,2.49940, 1.98150, 1.55080, 1.29900, 1.16030/ + + DATA(qscat(1,8,ib,12),ib=1,17) & ! Band 8, RH = 91% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00005, 0.00035 & + ,0.00220, 0.01329, 0.06931, 0.25542, 0.76907, 1.70580 & + ,2.52800, 1.95550, 1.54190, 1.30130, 1.16270/ + + DATA(qscat(1,8,ib,13),ib=1,17) & ! Band 8, RH = 92% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00006, 0.00037 & + ,0.00235, 0.01422, 0.07364, 0.26948, 0.80499, 1.76420 & + ,2.55800, 1.92480, 1.52840, 1.30110, 1.16600/ + + DATA(qscat(1,8,ib,14),ib=1,17) & ! Band 8, RH = 93% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00006, 0.00040 & + ,0.00256, 0.01543, 0.07921, 0.28764, 0.85037, 1.83530 & + ,2.58880, 1.88630, 1.51060, 1.29640, 1.16870/ + + DATA(qscat(1,8,ib,15),ib=1,17) & ! Band 8, RH = 94% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00007, 0.00045 & + ,0.00283, 0.01708, 0.08665, 0.31195, 0.90923, 1.92300 & + ,2.62070, 1.83390, 1.48550, 1.28440, 1.16770/ + + DATA(qscat(1,8,ib,16),ib=1,17) & ! Band 8, RH = 95% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00008, 0.00051 & + ,0.00323, 0.01944, 0.09704, 0.34604, 0.98798, 2.03400 & + ,2.64840, 1.77250, 1.45270, 1.26450, 1.16000/ + + DATA(qscat(1,8,ib,17),ib=1,17) & ! Band 8, RH = 96% + /0.00000, 0.00000, 0.00000, 0.00002, 0.00009, 0.00060 & + ,0.00384, 0.02308, 0.11251, 0.39687, 1.09790, 2.18180 & + ,2.65190, 1.69420, 1.41300, 1.24430, 1.15140/ + + DATA(qscat(1,8,ib,18),ib=1,17) & ! Band 8, RH = 97% + /0.00000, 0.00000, 0.00000, 0.00002, 0.00011, 0.00076 & + ,0.00491, 0.02938, 0.13787, 0.47899, 1.26320, 2.38650 & + ,2.60680, 1.61500, 1.38070, 1.24570, 1.15620/ + + DATA(qscat(1,8,ib,19),ib=1,17) & ! Band 8, RH = 98% + /0.00000, 0.00000, 0.00000, 0.00003, 0.00016, 0.00109 & + ,0.00717, 0.04257, 0.18672, 0.62789, 1.55310, 2.65130 & + ,2.41220, 1.56670, 1.39370, 1.24530, 1.14310/ + + DATA(qscat(1,8,ib,20),ib=1,17) & ! Band 8, RH = 99% + /0.00000, 0.00000, 0.00000, 0.00004, 0.00029, 0.00214 & + ,0.01460, 0.08332, 0.32481, 0.99785, 2.15220, 2.88160 & + ,1.86390, 1.53510, 1.32100, 1.20400, 1.13080/ + +! Qscat for Sea Salt: + DATA(qscat(2,1,ib,1),ib=1,17) & ! Band 1, RH = 80% + /0.00003, 0.00023, 0.00149, 0.00939, 0.04968, 0.22147 & + ,0.77965, 1.94100, 3.20120, 2.66530, 2.25360, 2.08700 & + ,1.94680, 1.87010, 1.79000, 1.71870, 1.63600/ + + DATA(qscat(2,1,ib,2),ib=1,17) & ! Band 1, RH = 81% + /0.00004, 0.00024, 0.00156, 0.00984, 0.05183, 0.22852 & + ,0.79833, 1.97240, 3.21400, 2.63550, 2.25630, 2.08880 & + ,1.95830, 1.86100, 1.79370, 1.71480, 1.63280/ + + DATA(qscat(2,1,ib,3),ib=1,17) & ! Band 1, RH = 82% + /0.00004, 0.00025, 0.00164, 0.01034, 0.05417, 0.23611 & + ,0.81821, 2.00500, 3.22470, 2.60610, 2.24820, 2.07650 & + ,1.95460, 1.85800, 1.78920, 1.71450, 1.63000/ + + DATA(qscat(2,1,ib,4),ib=1,17) & ! Band 1, RH = 83% + /0.00004, 0.00027, 0.00173, 0.01088, 0.05672, 0.24437 & + ,0.83960, 2.03930, 3.23330, 2.57200, 2.25660, 2.07190 & + ,1.95030, 1.85180, 1.78940, 1.71120, 1.62450/ + + DATA(qscat(2,1,ib,5),ib=1,17) & ! Band 1, RH = 84% + /0.00004, 0.00028, 0.00182, 0.01148, 0.05954, 0.25345 & + ,0.86288, 2.07580, 3.24040, 2.53150, 2.25600, 2.06590 & + ,1.96800, 1.85280, 1.78620, 1.70630, 1.62150/ + + DATA(qscat(2,1,ib,6),ib=1,17) & ! Band 1, RH = 85% + /0.00004, 0.00030, 0.00193, 0.01216, 0.06268, 0.26355 & + ,0.88858, 2.11520, 3.24720, 2.48740, 2.24190, 2.05630 & + ,1.96270, 1.85210, 1.77880, 1.70090, 1.61750/ + + DATA(qscat(2,1,ib,7),ib=1,17) & ! Band 1, RH = 86% + /0.00005, 0.00032, 0.00206, 0.01293, 0.06622, 0.27494 & + ,0.91733, 2.15860, 3.25540, 2.44900, 2.23810, 2.05370 & + ,1.95530, 1.85060, 1.77410, 1.69820, 1.61130/ + + DATA(qscat(2,1,ib,8),ib=1,17) & ! Band 1, RH = 87% + /0.00005, 0.00034, 0.00220, 0.01382, 0.07027, 0.28797 & + ,0.94994, 2.20710, 3.26490, 2.41120, 2.23060, 2.03180 & + ,1.94810, 1.84910, 1.77440, 1.69360, 1.60810/ + + DATA(qscat(2,1,ib,9),ib=1,17) & ! Band 1, RH = 88% + /0.00005, 0.00036, 0.00237, 0.01487, 0.07495, 0.30310 & + ,0.98740, 2.26210, 3.27140, 2.36400, 2.21510, 2.01950 & + ,1.93600, 1.84180, 1.77430, 1.68870, 1.60190/ + + DATA(qscat(2,1,ib,10),ib=1,17) & ! Band 1, RH = 89% + /0.00006, 0.00039, 0.00256, 0.01611, 0.08042, 0.32095 & + ,1.03090, 2.32420, 3.26950, 2.31350, 2.19120, 2.01160 & + ,1.92730, 1.83760, 1.76450, 1.68410, 1.59630/ + + DATA(qscat(2,1,ib,11),ib=1,17) & ! Band 1, RH = 90% + /0.00006, 0.00043, 0.00281, 0.01762, 0.08693, 0.34238 & + ,1.08180, 2.39320, 3.25850, 2.27510, 2.15490, 1.98210 & + ,1.89400, 1.82910, 1.75840, 1.67620, 1.59180/ + + DATA(qscat(2,1,ib,12),ib=1,17) & ! Band 1, RH = 91% + /0.00007, 0.00047, 0.00310, 0.01948, 0.09478, 0.36857 & + ,1.14150, 2.46850, 3.24460, 2.22580, 2.11910, 1.96730 & + ,1.89710, 1.83400, 1.75170, 1.67160, 1.58420/ + + DATA(qscat(2,1,ib,13),ib=1,17) & ! Band 1, RH = 92% + /0.00008, 0.00052, 0.00348, 0.02183, 0.10442, 0.40118 & + ,1.21190, 2.55100, 3.22300, 2.19160, 2.07350, 1.95850 & + ,1.88940, 1.82850, 1.74540, 1.66310, 1.57630/ + + DATA(qscat(2,1,ib,14),ib=1,17) & ! Band 1, RH = 93% + /0.00009, 0.00060, 0.00398, 0.02488, 0.11652, 0.44251 & + ,1.29540, 2.64610, 3.17240, 2.15710, 2.03900, 1.96080 & + ,1.89320, 1.81750, 1.74010, 1.65410, 1.56660/ + + DATA(qscat(2,1,ib,15),ib=1,17) & ! Band 1, RH = 94% + /0.00010, 0.00069, 0.00464, 0.02899, 0.13215, 0.49579 & + ,1.39680, 2.76130, 3.10740, 2.14490, 1.99140, 1.97110 & + ,1.88210, 1.80270, 1.72890, 1.64440, 1.55620/ + + DATA(qscat(2,1,ib,16),ib=1,17) & ! Band 1, RH = 95% + /0.00011, 0.00082, 0.00559, 0.03478, 0.15313, 0.56556 & + ,1.52720, 2.88630, 2.99490, 2.15750, 1.98940, 1.96780 & + ,1.87020, 1.79730, 1.71910, 1.63360, 1.54360/ + + DATA(qscat(2,1,ib,17),ib=1,17) & ! Band 1, RH = 96% + /0.00014, 0.00102, 0.00704, 0.04349, 0.18298, 0.65921 & + ,1.70550, 3.02210, 2.83180, 2.19030, 2.03520, 1.93300 & + ,1.86740, 1.78680, 1.70660, 1.61860, 1.52670/ + + DATA(qscat(2,1,ib,18),ib=1,17) & ! Band 1, RH = 97% + /0.00018, 0.00135, 0.00949, 0.05791, 0.22988, 0.79447 & + ,1.94980, 3.15690, 2.58510, 2.22550, 2.06930, 1.93750 & + ,1.84350, 1.76800, 1.68880, 1.60050, 1.51170/ + + DATA(qscat(2,1,ib,19),ib=1,17) & ! Band 1, RH = 98% + /0.00025, 0.00200, 0.01443, 0.08564, 0.31960, 1.03340 & + ,2.32480, 3.22770, 2.27650, 2.14850, 1.98140, 1.89820 & + ,1.81540, 1.74170, 1.66240, 1.57390, 1.48310/ + + DATA(qscat(2,1,ib,20),ib=1,17) & ! Band 1, RH = 99% + /0.00041, 0.00372, 0.02853, 0.15654, 0.56295, 1.55470 & + ,2.91620, 2.92000, 2.16930, 2.00640, 1.94160, 1.85940 & + ,1.78410, 1.70410, 1.61750, 1.52570, 1.43480/ + + DATA(qscat(2,2,ib,1),ib=1,17) & ! Band 2, RH = 80% + /0.00072, 0.00477, 0.02963, 0.15046, 0.53715, 1.54660 & + ,3.05940, 3.42630, 2.44470, 2.26150, 2.22730, 2.15380 & + ,2.12090, 2.08190, 2.05890, 2.03700, 2.01700/ + + DATA(qscat(2,2,ib,2),ib=1,17) & ! Band 2, RH = 81% + /0.00076, 0.00501, 0.03099, 0.15589, 0.55370, 1.57750 & + ,3.09000, 3.40460, 2.43820, 2.27160, 2.22420, 2.15200 & + ,2.11780, 2.08800, 2.05630, 2.03580, 2.01610/ + + DATA(qscat(2,2,ib,3),ib=1,17) & ! Band 2, RH = 82% + /0.00080, 0.00526, 0.03246, 0.16170, 0.57131, 1.61050 & + ,3.12060, 3.37870, 2.43390, 2.27720, 2.21310, 2.15960 & + ,2.12290, 2.09040, 2.05620, 2.03510, 2.01490/ + + DATA(qscat(2,2,ib,4),ib=1,17) & ! Band 2, RH = 83% + /0.00084, 0.00553, 0.03407, 0.16799, 0.59015, 1.64610 & + ,3.15130, 3.34920, 2.43020, 2.28990, 2.19800, 2.15550 & + ,2.11540, 2.08230, 2.05730, 2.03420, 2.01430/ + + DATA(qscat(2,2,ib,5),ib=1,17) & ! Band 2, RH = 84% + /0.00089, 0.00583, 0.03584, 0.17484, 0.61047, 1.68470 & + ,3.18240, 3.31810, 2.42230, 2.30020, 2.19300, 2.15860 & + ,2.11740, 2.08240, 2.05500, 2.03310, 2.01400/ + + DATA(qscat(2,2,ib,6),ib=1,17) & ! Band 2, RH = 85% + /0.00094, 0.00617, 0.03782, 0.18240, 0.63257, 1.72710 & + ,3.21490, 3.28710, 2.41990, 2.30660, 2.18880, 2.15850 & + ,2.11360, 2.08300, 2.05380, 2.03290, 2.01300/ + + DATA(qscat(2,2,ib,7),ib=1,17) & ! Band 2, RH = 86% + /0.00099, 0.00655, 0.04006, 0.19083, 0.65683, 1.77380 & + ,3.24990, 3.25220, 2.41540, 2.31860, 2.18580, 2.16170 & + ,2.11070, 2.07830, 2.05340, 2.03210, 2.01230/ + + DATA(qscat(2,2,ib,8),ib=1,17) & ! Band 2, RH = 87% + /0.00106, 0.00698, 0.04262, 0.20034, 0.68374, 1.82540 & + ,3.28840, 3.20860, 2.40670, 2.32910, 2.18470, 2.15730 & + ,2.11170, 2.07770, 2.05120, 2.03050, 2.01070/ + + DATA(qscat(2,2,ib,9),ib=1,17) & ! Band 2, RH = 88% + /0.00113, 0.00749, 0.04559, 0.21122, 0.71395, 1.88270 & + ,3.33000, 3.15580, 2.40060, 2.33690, 2.18390, 2.15110 & + ,2.10790, 2.07670, 2.05180, 2.03040, 2.00970/ + + DATA(qscat(2,2,ib,10),ib=1,17) & ! Band 2, RH = 89% + /0.00122, 0.00809, 0.04908, 0.22387, 0.74833, 1.94650 & + ,3.37200, 3.10070, 2.39400, 2.34940, 2.18590, 2.15040 & + ,2.10630, 2.07600, 2.05060, 2.02860, 2.00890/ + + DATA(qscat(2,2,ib,11),ib=1,17) & ! Band 2, RH = 90% + /0.00132, 0.00881, 0.05324, 0.23881, 0.78812, 2.01800 & + ,3.41120, 3.03900, 2.38420, 2.34650, 2.19670, 2.15080 & + ,2.10790, 2.07760, 2.05020, 2.02720, 2.00780/ + + DATA(qscat(2,2,ib,12),ib=1,17) & ! Band 2, RH = 91% + /0.00144, 0.00969, 0.05830, 0.25683, 0.83512, 2.09920 & + ,3.44820, 2.96140, 2.37110, 2.34970, 2.20440, 2.15580 & + ,2.10690, 2.07290, 2.04620, 2.02620, 2.00630/ + + DATA(qscat(2,2,ib,13),ib=1,17) & ! Band 2, RH = 92% + /0.00160, 0.01079, 0.06456, 0.27906, 0.89204, 2.19410 & + ,3.48810, 2.88340, 2.35240, 2.33490, 2.20920, 2.15610 & + ,2.10200, 2.06850, 2.04480, 2.02490, 2.00460/ + + DATA(qscat(2,2,ib,14),ib=1,17) & ! Band 2, RH = 93% + /0.00179, 0.01221, 0.07250, 0.30731, 0.96288, 2.30790 & + ,3.52540, 2.78770, 2.32800, 2.30970, 2.20170, 2.13850 & + ,2.09820, 2.06730, 2.04360, 2.02430, 2.00360/ + + DATA(qscat(2,2,ib,15),ib=1,17) & ! Band 2, RH = 94% + /0.00205, 0.01411, 0.08285, 0.34453, 1.05330, 2.44430 & + ,3.54380, 2.68930, 2.29120, 2.28690, 2.19390, 2.13260 & + ,2.09760, 2.06590, 2.04180, 2.02050, 1.99920/ + + DATA(qscat(2,2,ib,16),ib=1,17) & ! Band 2, RH = 95% + /0.00241, 0.01674, 0.09687, 0.39566, 1.17080, 2.60430 & + ,3.54910, 2.58460, 2.25250, 2.27190, 2.19490, 2.12740 & + ,2.09050, 2.06060, 2.03810, 2.01890, 1.99730/ + + DATA(qscat(2,2,ib,17),ib=1,17) & ! Band 2, RH = 96% + /0.00292, 0.02064, 0.11690, 0.46925, 1.32690, 2.80480 & + ,3.49980, 2.49040, 2.22630, 2.25870, 2.17460, 2.12250 & + ,2.08490, 2.05700, 2.03570, 2.01540, 1.99400/ + + DATA(qscat(2,2,ib,18),ib=1,17) & ! Band 2, RH = 97% + /0.00373, 0.02695, 0.14781, 0.58045, 1.55090, 3.05660 & + ,3.36790, 2.42100, 2.26320, 2.20750, 2.14610, 2.11300 & + ,2.08050, 2.05380, 2.03080, 2.01050, 1.98990/ + + DATA(qscat(2,2,ib,19),ib=1,17) & ! Band 2, RH = 98% + /0.00518, 0.03878, 0.20249, 0.76440, 1.91440, 3.35280 & + ,3.06560, 2.38420, 2.34390, 2.18810, 2.14700, 2.10430 & + ,2.07410, 2.04700, 2.02540, 2.00370, 1.98210/ + + DATA(qscat(2,2,ib,20),ib=1,17) & ! Band 2, RH = 99% + /0.00852, 0.06786, 0.33636, 1.18000, 2.58570, 3.53280 & + ,2.53990, 2.23140, 2.25990, 2.18940, 2.12290, 2.08720 & + ,2.05920, 2.03590, 2.01470, 1.99480, 1.96930/ + + DATA(qscat(2,3,ib,1),ib=1,17) & ! Band 3, RH = 80% + /0.01390, 0.07864, 0.33227, 1.04460, 2.28450, 3.49860 & + ,2.98590, 2.19520, 2.34920, 2.22500, 2.14170, 2.11090 & + ,2.08200, 2.06070, 2.04250, 2.03250, 2.02210/ + + DATA(qscat(2,3,ib,2),ib=1,17) & ! Band 3, RH = 81% + /0.01464, 0.08201, 0.34275, 1.06840, 2.31620, 3.50960 & + ,2.95390, 2.20050, 2.34220, 2.22620, 2.13850, 2.10850 & + ,2.08410, 2.05840, 2.04400, 2.03110, 2.02240/ + + DATA(qscat(2,3,ib,3),ib=1,17) & ! Band 3, RH = 82% + /0.01537, 0.08541, 0.35400, 1.09360, 2.34930, 3.52010 & + ,2.92280, 2.20660, 2.32180, 2.21840, 2.14490, 2.10860 & + ,2.07680, 2.05670, 2.04120, 2.03020, 2.02260/ + + DATA(qscat(2,3,ib,4),ib=1,17) & ! Band 3, RH = 83% + /0.01612, 0.08908, 0.36614, 1.12070, 2.38480, 3.53090 & + ,2.89170, 2.21720, 2.31400, 2.20760, 2.14590, 2.10120 & + ,2.07690, 2.05470, 2.04240, 2.03030, 2.02300/ + + DATA(qscat(2,3,ib,5),ib=1,17) & ! Band 3, RH = 84% + /0.01694, 0.09310, 0.37934, 1.14990, 2.42310, 3.53880 & + ,2.85880, 2.22360, 2.29950, 2.20100, 2.14770, 2.09830 & + ,2.07260, 2.05660, 2.04210, 2.02990, 2.02280/ + + DATA(qscat(2,3,ib,6),ib=1,17) & ! Band 3, RH = 85% + /0.01784, 0.09754, 0.39382, 1.18200, 2.46470, 3.54480 & + ,2.82230, 2.23140, 2.28320, 2.19710, 2.14640, 2.10400 & + ,2.07280, 2.05520, 2.04100, 2.02960, 2.02140/ + + DATA(qscat(2,3,ib,7),ib=1,17) & ! Band 3, RH = 86% + /0.01885, 0.10249, 0.40984, 1.21740, 2.50980, 3.54840 & + ,2.78170, 2.24250, 2.26770, 2.18710, 2.15200, 2.09650 & + ,2.07650, 2.05450, 2.03970, 2.02960, 2.02240/ + + DATA(qscat(2,3,ib,8),ib=1,17) & ! Band 3, RH = 87% + /0.01999, 0.10807, 0.42771, 1.25700, 2.55930, 3.54920 & + ,2.73530, 2.25490, 2.25220, 2.18260, 2.14880, 2.10060 & + ,2.07430, 2.05380, 2.03970, 2.02990, 2.02110/ + + DATA(qscat(2,3,ib,9),ib=1,17) & ! Band 3, RH = 88% + /0.02130, 0.11445, 0.44784, 1.30140, 2.61360, 3.55050 & + ,2.68520, 2.27430, 2.23320, 2.16970, 2.14060, 2.10390 & + ,2.07340, 2.05340, 2.03930, 2.02810, 2.02010/ + + DATA(qscat(2,3,ib,10),ib=1,17) & ! Band 3, RH = 89% + /0.02282, 0.12184, 0.47072, 1.35140, 2.67260, 3.54930 & + ,2.63090, 2.28640, 2.21800, 2.16130, 2.12830, 2.09900 & + ,2.07080, 2.05150, 2.03840, 2.02900, 2.02020/ + + DATA(qscat(2,3,ib,11),ib=1,17) & ! Band 3, RH = 90% + /0.02461, 0.13049, 0.49706, 1.40850, 2.73990, 3.54170 & + ,2.57320, 2.30470, 2.20080, 2.15640, 2.13060, 2.09570 & + ,2.06830, 2.05220, 2.03740, 2.02830, 2.02120/ + + DATA(qscat(2,3,ib,12),ib=1,17) & ! Band 3, RH = 91% + /0.02676, 0.14077, 0.52789, 1.47490, 2.81590, 3.52420 & + ,2.51200, 2.32930, 2.18840, 2.16050, 2.12120, 2.09040 & + ,2.06970, 2.05100, 2.03810, 2.02760, 2.01930/ + + DATA(qscat(2,3,ib,13),ib=1,17) & ! Band 3, RH = 92% + /0.02940, 0.15318, 0.56477, 1.55310, 2.90210, 3.49850 & + ,2.44450, 2.34220, 2.18330, 2.16790, 2.11720, 2.08720 & + ,2.06750, 2.05040, 2.03660, 2.02660, 2.02000/ + + DATA(qscat(2,3,ib,14),ib=1,17) & ! Band 3, RH = 93% + /0.03270, 0.16840, 0.61014, 1.64650, 2.99490, 3.45990 & + ,2.36890, 2.36290, 2.18670, 2.17930, 2.12060, 2.09150 & + ,2.06570, 2.04780, 2.03540, 2.02620, 2.01870/ + + DATA(qscat(2,3,ib,15),ib=1,17) & ! Band 3, RH = 94% + /0.03695, 0.18755, 0.66800, 1.75840, 3.09880, 3.39210 & + ,2.30260, 2.37550, 2.20480, 2.17790, 2.12780, 2.08800 & + ,2.06190, 2.04560, 2.03420, 2.02410, 2.01840/ + + DATA(qscat(2,3,ib,16),ib=1,17) & ! Band 3, RH = 95% + /0.04262, 0.21252, 0.74478, 1.89610, 3.21790, 3.30210 & + ,2.23270, 2.37720, 2.22460, 2.16150, 2.11120, 2.08170 & + ,2.06330, 2.04430, 2.03360, 2.02530, 2.01840/ + + DATA(qscat(2,3,ib,17),ib=1,17) & ! Band 3, RH = 96% + /0.05057, 0.24710, 0.84932, 2.07510, 3.34410, 3.16020 & + ,2.18690, 2.36780, 2.23490, 2.14050, 2.10870, 2.07700 & + ,2.05890, 2.04380, 2.03100, 2.02410, 2.01650/ + + DATA(qscat(2,3,ib,18),ib=1,17) & ! Band 3, RH = 97% + /0.06256, 0.29951, 0.99765, 2.31660, 3.47200, 2.94570 & + ,2.19220, 2.32250, 2.21080, 2.13720, 2.10380, 2.07590 & + ,2.05420, 2.04030, 2.03000, 2.02130, 2.01610/ + + DATA(qscat(2,3,ib,19),ib=1,17) & ! Band 3, RH = 98% + /0.08290, 0.38942, 1.23930, 2.67350, 3.53380, 2.61790 & + ,2.28460, 2.20780, 2.15350, 2.12650, 2.09820, 2.06710 & + ,2.04930, 2.03730, 2.02680, 2.01960, 2.01470/ + + DATA(qscat(2,3,ib,20),ib=1,17) & ! Band 3, RH = 99% + /0.12530, 0.57315, 1.71420, 3.21310, 3.30290, 2.21790 & + ,2.38380, 2.23300, 2.15730, 2.10010, 2.08180, 2.05830 & + ,2.04370, 2.03130, 2.02260, 2.01610, 2.01310/ + + DATA(qscat(2,4,ib,1),ib=1,17) & ! Band 4, RH = 80% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00004 & + ,0.00024, 0.00152, 0.00959, 0.05679, 0.25333, 0.66013 & + ,1.11390, 1.27140, 1.18610, 1.16220, 1.16420/ + + DATA(qscat(2,4,ib,2),ib=1,17) & ! Band 4, RH = 81% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00004 & + ,0.00025, 0.00162, 0.01019, 0.06010, 0.26415, 0.67730 & + ,1.12620, 1.27060, 1.18430, 1.16280, 1.16480/ + + DATA(qscat(2,4,ib,3),ib=1,17) & ! Band 4, RH = 82% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00004 & + ,0.00027, 0.00173, 0.01085, 0.06372, 0.27565, 0.69517 & + ,1.13860, 1.26930, 1.18250, 1.16350, 1.16540/ + + DATA(qscat(2,4,ib,4),ib=1,17) & ! Band 4, RH = 83% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00005 & + ,0.00029, 0.00184, 0.01159, 0.06771, 0.28796, 0.71387 & + ,1.15090, 1.26770, 1.18080, 1.16410, 1.16610/ + + DATA(qscat(2,4,ib,5),ib=1,17) & ! Band 4, RH = 84% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00005 & + ,0.00031, 0.00198, 0.01241, 0.07215, 0.30124, 0.73358 & + ,1.16340, 1.26570, 1.17910, 1.16480, 1.16670/ + + DATA(qscat(2,4,ib,6),ib=1,17) & ! Band 4, RH = 85% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00005 & + ,0.00033, 0.00213, 0.01335, 0.07714, 0.31569, 0.75450 & + ,1.17590, 1.26320, 1.17760, 1.16550, 1.16730/ + + DATA(qscat(2,4,ib,7),ib=1,17) & ! Band 4, RH = 86% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00006 & + ,0.00036, 0.00230, 0.01443, 0.08281, 0.33155, 0.77685 & + ,1.18850, 1.26020, 1.17620, 1.16630, 1.16790/ + + DATA(qscat(2,4,ib,8),ib=1,17) & ! Band 4, RH = 87% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00006 & + ,0.00039, 0.00251, 0.01569, 0.08933, 0.34912, 0.80090 & + ,1.20110, 1.25670, 1.17480, 1.16710, 1.16860/ + + DATA(qscat(2,4,ib,9),ib=1,17) & ! Band 4, RH = 88% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00007 & + ,0.00043, 0.00275, 0.01718, 0.09692, 0.36876, 0.82693 & + ,1.21370, 1.25250, 1.17360, 1.16790, 1.16920/ + + DATA(qscat(2,4,ib,10),ib=1,17) & ! Band 4, RH = 89% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00007 & + ,0.00048, 0.00304, 0.01898, 0.10588, 0.39091, 0.85525 & + ,1.22620, 1.24760, 1.17260, 1.16870, 1.16980/ + + DATA(qscat(2,4,ib,11),ib=1,17) & ! Band 4, RH = 90% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00008 & + ,0.00053, 0.00340, 0.02118, 0.11660, 0.41616, 0.88620 & + ,1.23830, 1.24190, 1.17170, 1.16960, 1.17050/ + + DATA(qscat(2,4,ib,12),ib=1,17) & ! Band 4, RH = 91% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00009 & + ,0.00060, 0.00385, 0.02393, 0.12962, 0.44525, 0.92013 & + ,1.24990, 1.23530, 1.17110, 1.17060, 1.17110/ + + DATA(qscat(2,4,ib,13),ib=1,17) & ! Band 4, RH = 92% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00002, 0.00011 & + ,0.00070, 0.00444, 0.02746, 0.14571, 0.47917, 0.95741 & + ,1.26060, 1.22770, 1.17080, 1.17150, 1.17170/ + + DATA(qscat(2,4,ib,14),ib=1,17) & ! Band 4, RH = 93% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00002, 0.00013 & + ,0.00082, 0.00521, 0.03212, 0.16600, 0.51934, 0.99844 & + ,1.26970, 1.21930, 1.17080, 1.17250, 1.17230/ + + DATA(qscat(2,4,ib,15),ib=1,17) & ! Band 4, RH = 94% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00002, 0.00015 & + ,0.00099, 0.00630, 0.03852, 0.19226, 0.56782, 1.04370 & + ,1.27620, 1.21000, 1.17120, 1.17350, 1.17290/ + + DATA(qscat(2,4,ib,16),ib=1,17) & ! Band 4, RH = 95% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00003, 0.00019 & + ,0.00124, 0.00788, 0.04775, 0.22733, 0.62776, 1.09350 & + ,1.27870, 1.20000, 1.17200, 1.17450, 1.17330/ + + DATA(qscat(2,4,ib,17),ib=1,17) & ! Band 4, RH = 96% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00004, 0.00025 & + ,0.00163, 0.01041, 0.06207, 0.27624, 0.70427, 1.14850 & + ,1.27500, 1.19010, 1.17320, 1.17540, 1.17370/ + + DATA(qscat(2,4,ib,18),ib=1,17) & ! Band 4, RH = 97% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00005, 0.00036 & + ,0.00235, 0.01496, 0.08672, 0.34865, 0.80602, 1.20730 & + ,1.26180, 1.18110, 1.17490, 1.17630, 1.17370/ + + DATA(qscat(2,4,ib,19),ib=1,17) & ! Band 4, RH = 98% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00009, 0.00061 & + ,0.00396, 0.02502, 0.13662, 0.46683, 0.94793, 1.26120 & + ,1.23430, 1.17550, 1.17670, 1.17680, 1.17330/ + + DATA(qscat(2,4,ib,20),ib=1,17) & ! Band 4, RH = 99% + /0.00000, 0.00000, 0.00000, 0.00003, 0.00021, 0.00146 & + ,0.00967, 0.05933, 0.27152, 0.70240, 1.14990, 1.27720 & + ,1.19220, 1.17600, 1.17830, 1.17630, 1.17150/ + + DATA(qscat(2,5,ib,1),ib=1,17) & ! Band 5, RH = 80% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00016 & + ,0.00102, 0.00634, 0.03632, 0.15966, 0.42250, 0.78438 & + ,1.05280, 1.11540, 1.11680, 1.12900, 1.13530/ + + DATA(qscat(2,5,ib,2),ib=1,17) & ! Band 5, RH = 81% + /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00017 & + ,0.00109, 0.00671, 0.03828, 0.16598, 0.43241, 0.79364 & + ,1.05510, 1.11410, 1.11710, 1.12950, 1.13570/ + + DATA(qscat(2,5,ib,3),ib=1,17) & ! Band 5, RH = 82% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00003, 0.00018 & + ,0.00115, 0.00712, 0.04042, 0.17270, 0.44281, 0.80317 & + ,1.05740, 1.11300, 1.11750, 1.13000, 1.13600/ + + DATA(qscat(2,5,ib,4),ib=1,17) & ! Band 5, RH = 83% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00003, 0.00019 & + ,0.00123, 0.00758, 0.04278, 0.17991, 0.45380, 0.81303 & + ,1.05970, 1.11190, 1.11790, 1.13050, 1.13640/ + + DATA(qscat(2,5,ib,5),ib=1,17) & ! Band 5, RH = 84% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00003, 0.00021 & + ,0.00131, 0.00809, 0.04540, 0.18769, 0.46551, 0.82330 & + ,1.06210, 1.11090, 1.11850, 1.13110, 1.13680/ + + DATA(qscat(2,5,ib,6),ib=1,17) & ! Band 5, RH = 85% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00003, 0.00022 & + ,0.00141, 0.00867, 0.04833, 0.19615, 0.47810, 0.83407 & + ,1.06460, 1.11010, 1.11900, 1.13170, 1.13730/ + + DATA(qscat(2,5,ib,7),ib=1,17) & ! Band 5, RH = 86% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00004, 0.00024 & + ,0.00152, 0.00934, 0.05166, 0.20546, 0.49174, 0.84542 & + ,1.06710, 1.10940, 1.11970, 1.13230, 1.13770/ + + DATA(qscat(2,5,ib,8),ib=1,17) & ! Band 5, RH = 87% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00004, 0.00026 & + ,0.00165, 0.01011, 0.05548, 0.21576, 0.50663, 0.85747 & + ,1.06960, 1.10880, 1.12050, 1.13300, 1.13810/ + + DATA(qscat(2,5,ib,9),ib=1,17) & ! Band 5, RH = 88% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00004, 0.00029 & + ,0.00181, 0.01103, 0.05992, 0.22728, 0.52304, 0.87032 & + ,1.07230, 1.10840, 1.12130, 1.13370, 1.13860/ + + DATA(qscat(2,5,ib,10),ib=1,17) & ! Band 5, RH = 89% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00005, 0.00032 & + ,0.00199, 0.01213, 0.06515, 0.24028, 0.54125, 0.88408 & + ,1.07500, 1.10820, 1.12230, 1.13440, 1.13910/ + + DATA(qscat(2,5,ib,11),ib=1,17) & ! Band 5, RH = 90% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00005, 0.00035 & + ,0.00222, 0.01347, 0.07140, 0.25507, 0.56162, 0.89887 & + ,1.07780, 1.10820, 1.12340, 1.13530, 1.13960/ + + DATA(qscat(2,5,ib,12),ib=1,17) & ! Band 5, RH = 91% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00006, 0.00040 & + ,0.00250, 0.01515, 0.07898, 0.27209, 0.58459, 0.91482 & + ,1.08070, 1.10850, 1.12470, 1.13610, 1.14010/ + + DATA(qscat(2,5,ib,13),ib=1,17) & ! Band 5, RH = 92% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00007, 0.00046 & + ,0.00287, 0.01728, 0.08834, 0.29191, 0.61069, 0.93207 & + ,1.08360, 1.10920, 1.12610, 1.13710, 1.14060/ + + DATA(qscat(2,5,ib,14),ib=1,17) & ! Band 5, RH = 93% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00008, 0.00053 & + ,0.00336, 0.02008, 0.10014, 0.31535, 0.64066, 0.95078 & + ,1.08660, 1.11030, 1.12760, 1.13810, 1.14110/ + + DATA(qscat(2,5,ib,15),ib=1,17) & ! Band 5, RH = 94% + /0.00000, 0.00000, 0.00000, 0.00002, 0.00010, 0.00064 & + ,0.00403, 0.02390, 0.11542, 0.34367, 0.67546, 0.97112 & + ,1.08960, 1.11190, 1.12940, 1.13910, 1.14160/ + + DATA(qscat(2,5,ib,16),ib=1,17) & ! Band 5, RH = 95% + /0.00000, 0.00000, 0.00000, 0.00002, 0.00012, 0.00080 & + ,0.00502, 0.02938, 0.13589, 0.37894, 0.71650, 0.99317 & + ,1.09270, 1.11410, 1.13150, 1.14030, 1.14210/ + + DATA(qscat(2,5,ib,17),ib=1,17) & ! Band 5, RH = 96% + /0.00000, 0.00000, 0.00000, 0.00003, 0.00016, 0.00105 & + ,0.00657, 0.03779, 0.16456, 0.42484, 0.76588, 1.01690 & + ,1.09610, 1.11720, 1.13380, 1.14150, 1.14250/ + + DATA(qscat(2,5,ib,18),ib=1,17) & ! Band 5, RH = 97% + /0.00000, 0.00000, 0.00001, 0.00004, 0.00023, 0.00150 & + ,0.00934, 0.05212, 0.20727, 0.48860, 0.82691, 1.04210 & + ,1.10020, 1.12140, 1.13650, 1.14270, 1.14280/ + + DATA(qscat(2,5,ib,19),ib=1,17) & ! Band 5, RH = 98% + /0.00000, 0.00000, 0.00001, 0.00006, 0.00038, 0.00248 & + ,0.01535, 0.08081, 0.27711, 0.58578, 0.90485, 1.06790 & + ,1.10620, 1.12710, 1.13960, 1.14380, 1.14280/ + + DATA(qscat(2,5,ib,20),ib=1,17) & ! Band 5, RH = 99% + /0.00000, 0.00000, 0.00002, 0.00014, 0.00088, 0.00586 & + ,0.03514, 0.15840, 0.41680, 0.75471, 1.00690, 1.09230 & + ,1.11740, 1.13510, 1.14320, 1.14450, 1.14170/ + + DATA(qscat(2,6,ib,1),ib=1,17) & ! Band 6, RH = 80% + /0.00000, 0.00000, 0.00000, 0.00002, 0.00011, 0.00068 & + ,0.00424, 0.02545, 0.12815, 0.43942, 1.22370, 2.36600 & + ,2.65160, 1.26560, 1.38750, 1.18780, 1.11420/ + + DATA(qscat(2,6,ib,2),ib=1,17) & ! Band 6, RH = 81% + /0.00000, 0.00000, 0.00000, 0.00002, 0.00011, 0.00071 & + ,0.00444, 0.02659, 0.13253, 0.45157, 1.24550, 2.38380 & + ,2.62430, 1.24700, 1.37230, 1.17960, 1.11400/ + + DATA(qscat(2,6,ib,3),ib=1,17) & ! Band 6, RH = 82% + /0.00000, 0.00000, 0.00000, 0.00002, 0.00012, 0.00075 & + ,0.00466, 0.02783, 0.13723, 0.46478, 1.26870, 2.40190 & + ,2.59320, 1.23150, 1.35570, 1.17110, 1.11360/ + + DATA(qscat(2,6,ib,4),ib=1,17) & ! Band 6, RH = 83% + /0.00000, 0.00000, 0.00000, 0.00002, 0.00012, 0.00078 & + ,0.00491, 0.02919, 0.14231, 0.47924, 1.29350, 2.41980 & + ,2.55870, 1.21730, 1.33760, 1.16220, 1.11280/ + + DATA(qscat(2,6,ib,5),ib=1,17) & ! Band 6, RH = 84% + /0.00000, 0.00000, 0.00000, 0.00002, 0.00013, 0.00083 & + ,0.00518, 0.03071, 0.14783, 0.49521, 1.31980, 2.43720 & + ,2.52170, 1.20200, 1.31800, 1.15320, 1.11180/ + + DATA(qscat(2,6,ib,6),ib=1,17) & ! Band 6, RH = 85% + /0.00000, 0.00000, 0.00000, 0.00002, 0.00014, 0.00088 & + ,0.00549, 0.03241, 0.15391, 0.51297, 1.34800, 2.45390 & + ,2.48310, 1.18690, 1.29660, 1.14420, 1.11040/ + + DATA(qscat(2,6,ib,7),ib=1,17) & ! Band 6, RH = 86% + /0.00000, 0.00000, 0.00000, 0.00003, 0.00015, 0.00094 & + ,0.00584, 0.03435, 0.16065, 0.53286, 1.37810, 2.47020 & + ,2.44160, 1.17650, 1.27370, 1.13550, 1.10870/ + + DATA(qscat(2,6,ib,8),ib=1,17) & ! Band 6, RH = 87% + /0.00000, 0.00000, 0.00000, 0.00003, 0.00016, 0.00100 & + ,0.00625, 0.03659, 0.16822, 0.55527, 1.41060, 2.48740 & + ,2.39430, 1.17070, 1.24900, 1.12770, 1.10680/ + + DATA(qscat(2,6,ib,9),ib=1,17) & ! Band 6, RH = 88% + /0.00000, 0.00000, 0.00000, 0.00003, 0.00017, 0.00108 & + ,0.00673, 0.03920, 0.17680, 0.58066, 1.44600, 2.50700 & + ,2.33790, 1.16440, 1.22330, 1.12120, 1.10500/ + + DATA(qscat(2,6,ib,10),ib=1,17) & ! Band 6, RH = 89% + /0.00000, 0.00000, 0.00000, 0.00003, 0.00018, 0.00118 & + ,0.00731, 0.04230, 0.18665, 0.60951, 1.48530, 2.53050 & + ,2.27220, 1.16350, 1.19670, 1.11660, 1.10330/ + + DATA(qscat(2,6,ib,11),ib=1,17) & ! Band 6, RH = 90% + /0.00000, 0.00000, 0.00001, 0.00004, 0.00020, 0.00129 & + ,0.00802, 0.04602, 0.19811, 0.64239, 1.53030, 2.55720 & + ,2.19910, 1.17110, 1.17100, 1.11460, 1.10200/ + + DATA(qscat(2,6,ib,12),ib=1,17) & ! Band 6, RH = 91% + /0.00000, 0.00000, 0.00001, 0.00004, 0.00023, 0.00144 & + ,0.00890, 0.05059, 0.21164, 0.67993, 1.58350, 2.58260 & + ,2.11420, 1.18160, 1.14790, 1.11540, 1.10130/ + + DATA(qscat(2,6,ib,13),ib=1,17) & ! Band 6, RH = 92% + /0.00000, 0.00000, 0.00001, 0.00004, 0.00025, 0.00162 & + ,0.01002, 0.05630, 0.22793, 0.72299, 1.64830, 2.60080 & + ,2.01080, 1.20470, 1.13040, 1.11820, 1.10070/ + + DATA(qscat(2,6,ib,14),ib=1,17) & ! Band 6, RH = 93% + /0.00000, 0.00000, 0.00001, 0.00005, 0.00029, 0.00186 & + ,0.01150, 0.06362, 0.24811, 0.77306, 1.72740, 2.61330 & + ,1.89310, 1.23470, 1.12230, 1.12080, 1.09980/ + + DATA(qscat(2,6,ib,15),ib=1,17) & ! Band 6, RH = 94% + /0.00000, 0.00000, 0.00001, 0.00006, 0.00034, 0.00220 & + ,0.01352, 0.07331, 0.27412, 0.83336, 1.82040, 2.62670 & + ,1.75080, 1.27270, 1.12720, 1.11960, 1.09830/ + + DATA(qscat(2,6,ib,16),ib=1,17) & ! Band 6, RH = 95% + /0.00000, 0.00000, 0.00001, 0.00007, 0.00042, 0.00269 & + ,0.01642, 0.08668, 0.30970, 0.91153, 1.92660, 2.61830 & + ,1.58800, 1.31280, 1.14470, 1.11200, 1.09690/ + + DATA(qscat(2,6,ib,17),ib=1,17) & ! Band 6, RH = 96% + /0.00000, 0.00000, 0.00001, 0.00009, 0.00054, 0.00345 & + ,0.02094, 0.10614, 0.36288, 1.02410, 2.06130, 2.57390 & + ,1.40530, 1.33520, 1.16200, 1.10310, 1.09550/ + + DATA(qscat(2,6,ib,18),ib=1,17) & ! Band 6, RH = 97% + /0.00000, 0.00000, 0.00002, 0.00013, 0.00075, 0.00481 & + ,0.02879, 0.13681, 0.45204, 1.19610, 2.23820, 2.45290 & + ,1.22660, 1.29830, 1.14790, 1.10240, 1.09390/ + + DATA(qscat(2,6,ib,19),ib=1,17) & ! Band 6, RH = 98% + /0.00000, 0.00000, 0.00003, 0.00020, 0.00121, 0.00776 & + ,0.04513, 0.19164, 0.61562, 1.45610, 2.44340, 2.15890 & + ,1.14680, 1.16680, 1.10830, 1.09820, 1.09190/ + + DATA(qscat(2,6,ib,20),ib=1,17) & ! Band 6, RH = 99% + /0.00000, 0.00001, 0.00006, 0.00044, 0.00273, 0.01760 & + ,0.09380, 0.32978, 0.95046, 1.95710, 2.54660, 1.47480 & + ,1.30660, 1.14630, 1.10370, 1.09440, 1.08890/ + + DATA(qscat(2,7,ib,1),ib=1,17) & ! Band 7, RH = 80% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00006, 0.00038 & + ,0.00236, 0.01426, 0.07517, 0.27122, 0.80264, 1.72410 & + ,2.46210, 1.70540, 1.23030, 1.13150, 1.10550/ + + DATA(qscat(2,7,ib,2),ib=1,17) & ! Band 7, RH = 81% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00006, 0.00039 & + ,0.00247, 0.01488, 0.07782, 0.27758, 0.81510, 1.73760 & + ,2.45240, 1.67410, 1.23210, 1.13080, 1.10410/ + + DATA(qscat(2,7,ib,3),ib=1,17) & ! Band 7, RH = 82% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00007, 0.00041 & + ,0.00259, 0.01556, 0.08066, 0.28450, 0.82862, 1.75220 & + ,2.44260, 1.64180, 1.23350, 1.13020, 1.10280/ + + DATA(qscat(2,7,ib,4),ib=1,17) & ! Band 7, RH = 83% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00007, 0.00043 & + ,0.00272, 0.01631, 0.08375, 0.29209, 0.84342, 1.76800 & + ,2.43250, 1.60920, 1.23490, 1.12960, 1.10160/ + + DATA(qscat(2,7,ib,5),ib=1,17) & ! Band 7, RH = 84% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00007, 0.00046 & + ,0.00286, 0.01714, 0.08713, 0.30051, 0.85977, 1.78540 & + ,2.42190, 1.57600, 1.23620, 1.12900, 1.10050/ + + DATA(qscat(2,7,ib,6),ib=1,17) & ! Band 7, RH = 85% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00008, 0.00048 & + ,0.00303, 0.01807, 0.09087, 0.30996, 0.87799, 1.80470 & + ,2.40990, 1.54100, 1.23670, 1.12820, 1.09960/ + + DATA(qscat(2,7,ib,7),ib=1,17) & ! Band 7, RH = 86% + /0.00000, 0.00000, 0.00000, 0.00001, 0.00008, 0.00052 & + ,0.00322, 0.01914, 0.09504, 0.32068, 0.89846, 1.82600 & + ,2.39550, 1.50360, 1.23680, 1.12730, 1.09870/ + + DATA(qscat(2,7,ib,8),ib=1,17) & ! Band 7, RH = 87% + /0.00000, 0.00000, 0.00000, 0.00002, 0.00009, 0.00055 & + ,0.00344, 0.02037, 0.09975, 0.33301, 0.92161, 1.84960 & + ,2.37760, 1.46490, 1.23600, 1.12600, 1.09790/ + + DATA(qscat(2,7,ib,9),ib=1,17) & ! Band 7, RH = 88% + /0.00000, 0.00000, 0.00000, 0.00002, 0.00009, 0.00059 & + ,0.00370, 0.02181, 0.10512, 0.34734, 0.94794, 1.87540 & + ,2.35620, 1.42550, 1.23380, 1.12430, 1.09730/ + + DATA(qscat(2,7,ib,10),ib=1,17) & ! Band 7, RH = 89% + /0.00000, 0.00000, 0.00000, 0.00002, 0.00010, 0.00064 & + ,0.00401, 0.02352, 0.11132, 0.36421, 0.97796, 1.90340 & + ,2.33180, 1.38350, 1.23010, 1.12200, 1.09660/ + + DATA(qscat(2,7,ib,11),ib=1,17) & ! Band 7, RH = 90% + /0.00000, 0.00000, 0.00000, 0.00002, 0.00011, 0.00071 & + ,0.00439, 0.02559, 0.11856, 0.38428, 1.01230, 1.93400 & + ,2.30340, 1.34000, 1.22390, 1.11890, 1.09590/ + + DATA(qscat(2,7,ib,12),ib=1,17) & ! Band 7, RH = 91% + /0.00000, 0.00000, 0.00000, 0.00002, 0.00012, 0.00078 & + ,0.00486, 0.02813, 0.12713, 0.40838, 1.05190, 1.96800 & + ,2.26680, 1.29710, 1.21470, 1.11510, 1.09500/ + + DATA(qscat(2,7,ib,13),ib=1,17) & ! Band 7, RH = 92% + /0.00000, 0.00000, 0.00000, 0.00002, 0.00014, 0.00088 & + ,0.00547, 0.03133, 0.13744, 0.43759, 1.09800, 2.00720 & + ,2.21910, 1.25350, 1.20180, 1.11070, 1.09380/ + + DATA(qscat(2,7,ib,14),ib=1,17) & ! Band 7, RH = 93% + /0.00000, 0.00000, 0.00000, 0.00003, 0.00016, 0.00101 & + ,0.00626, 0.03546, 0.15012, 0.47326, 1.15310, 2.05200 & + ,2.16040, 1.21390, 1.18450, 1.10610, 1.09230/ + + DATA(qscat(2,7,ib,15),ib=1,17) & ! Band 7, RH = 94% + /0.00000, 0.00000, 0.00000, 0.00003, 0.00019, 0.00119 & + ,0.00735, 0.04098, 0.16617, 0.51722, 1.22160, 2.09940 & + ,2.08070, 1.18030, 1.16300, 1.10240, 1.09100/ + + DATA(qscat(2,7,ib,16),ib=1,17) & ! Band 7, RH = 95% + /0.00000, 0.00000, 0.00001, 0.00004, 0.00023, 0.00145 & + ,0.00892, 0.04868, 0.18739, 0.57241, 1.30980, 2.14940 & + ,1.97550, 1.15820, 1.13940, 1.10010, 1.08990/ + + DATA(qscat(2,7,ib,17),ib=1,17) & ! Band 7, RH = 96% + /0.00000, 0.00000, 0.00001, 0.00005, 0.00029, 0.00186 & + ,0.01136, 0.06010, 0.21759, 0.64532, 1.42370, 2.20050 & + ,1.82860, 1.15440, 1.11910, 1.09840, 1.08870/ + + DATA(qscat(2,7,ib,18),ib=1,17) & ! Band 7, RH = 97% + /0.00000, 0.00000, 0.00001, 0.00007, 0.00040, 0.00259 & + ,0.01563, 0.07859, 0.26627, 0.75393, 1.57760, 2.23340 & + ,1.62510, 1.17320, 1.11030, 1.09430, 1.08710/ + + DATA(qscat(2,7,ib,19),ib=1,17) & ! Band 7, RH = 98% + /0.00000, 0.00000, 0.00002, 0.00011, 0.00065, 0.00417 & + ,0.02463, 0.11278, 0.36187, 0.94196, 1.80160, 2.19720 & + ,1.35710, 1.19040, 1.10810, 1.09080, 1.08520/ + + DATA(qscat(2,7,ib,20),ib=1,17) & ! Band 7, RH = 99% + /0.00000, 0.00000, 0.00003, 0.00023, 0.00146, 0.00946 & + ,0.05239, 0.19656, 0.59175, 1.32850, 2.11640, 1.86710 & + ,1.14870, 1.12170, 1.09590, 1.08710, 1.08250/ + + DATA(qscat(2,8,ib,1),ib=1,17) & ! Band 8, RH = 80% + /0.00000, 0.00000, 0.00002, 0.00014, 0.00080, 0.00507 & + ,0.03067, 0.15390, 0.56158, 1.53360, 2.83190, 2.82510 & + ,1.68210, 1.55970, 1.40520, 1.23670, 1.15300/ + + DATA(qscat(2,8,ib,2),ib=1,17) & ! Band 8, RH = 81% + /0.00000, 0.00000, 0.00002, 0.00015, 0.00084, 0.00532 & + ,0.03209, 0.15943, 0.57857, 1.56040, 2.85230, 2.78920 & + ,1.67970, 1.55290, 1.39780, 1.23060, 1.15060/ + + DATA(qscat(2,8,ib,3),ib=1,17) & ! Band 8, RH = 82% + /0.00000, 0.00000, 0.00002, 0.00016, 0.00089, 0.00559 & + ,0.03365, 0.16536, 0.59667, 1.58870, 2.87350, 2.75320 & + ,1.67690, 1.54710, 1.38900, 1.22480, 1.14790/ + + DATA(qscat(2,8,ib,4),ib=1,17) & ! Band 8, RH = 83% + /0.00000, 0.00000, 0.00003, 0.00016, 0.00094, 0.00590 & + ,0.03536, 0.17177, 0.61606, 1.61920, 2.89480, 2.71520 & + ,1.67180, 1.54220, 1.37890, 1.21970, 1.14500/ + + DATA(qscat(2,8,ib,5),ib=1,17) & ! Band 8, RH = 84% + /0.00000, 0.00000, 0.00003, 0.00017, 0.00099, 0.00623 & + ,0.03727, 0.17878, 0.63697, 1.65220, 2.91570, 2.67260 & + ,1.66840, 1.53760, 1.36690, 1.21540, 1.14180/ + + DATA(qscat(2,8,ib,6),ib=1,17) & ! Band 8, RH = 85% + /0.00000, 0.00000, 0.00003, 0.00018, 0.00105, 0.00662 & + ,0.03941, 0.18650, 0.65968, 1.68870, 2.93550, 2.62400 & + ,1.66980, 1.53250, 1.35380, 1.21200, 1.13860/ + + DATA(qscat(2,8,ib,7),ib=1,17) & ! Band 8, RH = 86% + /0.00000, 0.00000, 0.00003, 0.00020, 0.00112, 0.00705 & + ,0.04184, 0.19511, 0.68454, 1.72920, 2.95400, 2.56950 & + ,1.67150, 1.52920, 1.33940, 1.20930, 1.13570/ + + DATA(qscat(2,8,ib,8),ib=1,17) & ! Band 8, RH = 87% + /0.00000, 0.00000, 0.00003, 0.00021, 0.00120, 0.00756 & + ,0.04465, 0.20482, 0.71198, 1.77480, 2.97200, 2.51210 & + ,1.67000, 1.52340, 1.32450, 1.20670, 1.13310/ + + DATA(qscat(2,8,ib,9),ib=1,17) & ! Band 8, RH = 88% + /0.00000, 0.00001, 0.00003, 0.00023, 0.00130, 0.00816 & + ,0.04793, 0.21591, 0.74258, 1.82600, 2.99080, 2.45020 & + ,1.67190, 1.51810, 1.31020, 1.20300, 1.13050/ + + DATA(qscat(2,8,ib,10),ib=1,17) & ! Band 8, RH = 89% + /0.00000, 0.00001, 0.00004, 0.00025, 0.00141, 0.00888 & + ,0.05181, 0.22875, 0.77709, 1.88330, 3.01190, 2.37720 & + ,1.67350, 1.50950, 1.29770, 1.19700, 1.12770/ + + DATA(qscat(2,8,ib,11),ib=1,17) & ! Band 8, RH = 90% + /0.00000, 0.00001, 0.00004, 0.00027, 0.00155, 0.00976 & + ,0.05649, 0.24387, 0.81663, 1.94700, 3.03290, 2.29370 & + ,1.67410, 1.49720, 1.28840, 1.18830, 1.12490/ + + DATA(qscat(2,8,ib,12),ib=1,17) & ! Band 8, RH = 91% + /0.00000, 0.00001, 0.00005, 0.00030, 0.00173, 0.01085 & + ,0.06221, 0.26202, 0.86288, 2.01740, 3.04690, 2.20850 & + ,1.66990, 1.47860, 1.28270, 1.17830, 1.12210/ + + DATA(qscat(2,8,ib,13),ib=1,17) & ! Band 8, RH = 92% + /0.00000, 0.00001, 0.00005, 0.00034, 0.00195, 0.01224 & + ,0.06936, 0.28434, 0.91848, 2.09650, 3.04930, 2.10790 & + ,1.66450, 1.45260, 1.27850, 1.17020, 1.11870/ + + DATA(qscat(2,8,ib,14),ib=1,17) & ! Band 8, RH = 93% + /0.00000, 0.00001, 0.00006, 0.00039, 0.00225, 0.01407 & + ,0.07852, 0.31268, 0.98759, 2.18970, 3.04670, 2.00080 & + ,1.64720, 1.41920, 1.27050, 1.16420, 1.11500/ + + DATA(qscat(2,8,ib,15),ib=1,17) & ! Band 8, RH = 94% + /0.00000, 0.00001, 0.00007, 0.00046, 0.00266, 0.01657 & + ,0.09061, 0.35017, 1.07630, 2.30470, 3.02940, 1.88620 & + ,1.61820, 1.38250, 1.25390, 1.15650, 1.11200/ + + DATA(qscat(2,8,ib,16),ib=1,17) & ! Band 8, RH = 95% + /0.00000, 0.00001, 0.00008, 0.00056, 0.00325, 0.02017 & + ,0.10725, 0.40242, 1.19210, 2.44110, 2.97010, 1.77580 & + ,1.57480, 1.35600, 1.23420, 1.14830, 1.10860/ + + DATA(qscat(2,8,ib,17),ib=1,17) & ! Band 8, RH = 96% + /0.00000, 0.00002, 0.00011, 0.00072, 0.00417, 0.02575 & + ,0.13143, 0.47960, 1.34390, 2.59430, 2.86590, 1.67950 & + ,1.52410, 1.35150, 1.22040, 1.13830, 1.10490/ + + DATA(qscat(2,8,ib,18),ib=1,17) & ! Band 8, RH = 97% + /0.00000, 0.00002, 0.00014, 0.00099, 0.00579, 0.03540 & + ,0.16962, 0.59953, 1.55510, 2.78250, 2.65520, 1.63000 & + ,1.48860, 1.33560, 1.19030, 1.12860, 1.10110/ + + DATA(qscat(2,8,ib,19),ib=1,17) & ! Band 8, RH = 98% + /0.00000, 0.00003, 0.00022, 0.00157, 0.00928, 0.05539 & + ,0.23956, 0.79819, 1.89870, 2.96230, 2.26500, 1.63460 & + ,1.46420, 1.26460, 1.17180, 1.11640, 1.09710/ + + DATA(qscat(2,8,ib,20),ib=1,17) & ! Band 8, RH = 99% + /0.00001, 0.00006, 0.00046, 0.00342, 0.02065, 0.11394 & + ,0.43157, 1.25490, 2.49680, 2.88860, 1.70360, 1.52330 & + ,1.33570, 1.21560, 1.13740, 1.10350, 1.09250/ + +! Qscat for Mineral Dust: + DATA(qscat(3,1,ib,1),ib=1,17) & ! Band 1, All RH's + /0.00000, 0.00002, 0.00010, 0.00060, 0.00379, 0.02291 & + ,0.11493, 0.42401, 1.14410, 2.13480, 2.40680, 2.33500 & + ,2.10380, 1.61510, 1.47100, 1.27120, 1.15620/ + + DATA(qscat(3,2,ib,1),ib=1,17) & ! Band 2, All RH's + /0.00001, 0.00063, 0.00402, 0.02557, 0.14955, 0.65760 & + ,1.94660, 3.29530, 2.83420, 2.32070, 1.91820, 1.74640 & + ,1.53580, 1.35690, 1.22550, 1.15300, 1.12440/ + + DATA(qscat(3,3,ib,1),ib=1,17) & ! Band 3, All RH's + /0.00177, 0.01133, 0.06890, 0.34280, 1.23190, 2.81180 & + ,3.55540, 2.36150, 2.06270, 1.79890, 1.62930, 1.44460 & + ,1.29170, 1.19010, 1.14040, 1.12370, 1.11720/ + + DATA(qscat(3,4,ib,1),ib=1,17) & ! Band 4, All RH's + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000 & + ,0.00003, 0.00020, 0.00125, 0.00808, 0.05258, 0.31342 & + ,1.17700, 1.80920, 1.38670, 1.24760, 1.24330/ + + DATA(qscat(3,5,ib,1),ib=1,17) & ! Band 5, All RH's + /0.00000, 0.00000, 0.00000, 0.00000, 0.00000, 0.00002 & + ,0.00010, 0.00066, 0.00420, 0.02663, 0.15649, 0.65345 & + ,1.77580, 2.55670, 1.53740, 1.30830, 1.20600/ + + DATA(qscat(3,6,ib,1),ib=1,17) & ! Band 6, All RH's + /0.00000, 0.00000, 0.00000, 0.00000, 0.00001, 0.00009 & + ,0.00054, 0.00344, 0.02155, 0.12273, 0.47129, 1.15740 & + ,1.71170, 1.59490, 1.27650, 1.14810, 1.13330/ + + DATA(qscat(3,7,ib,1),ib=1,17) & ! Band 7, All RH's + /0.00000, 0.00000, 0.00000, 0.00000, 0.00002, 0.00015 & + ,0.00094, 0.00603, 0.03906, 0.24079, 1.02410, 2.13950 & + ,1.96750, 1.11300, 1.22940, 1.20200, 1.19660/ + + DATA(qscat(3,8,ib,1),ib=1,17) & ! Band 8, All RH's + /0.00000, 0.00000, 0.00000, 0.00000, 0.00003, 0.00018 & + ,0.00112, 0.00676, 0.03661, 0.14457, 0.46121, 1.13810 & + ,2.05970, 2.21310, 1.51910, 1.29570, 1.16240/ + +! Returning value for qscat: + value = qscat(aerotype,radband,bin,rh) + +return +END SUBROUTINE aeroqscat + +!############################################################################## +Subroutine aerogasym (aerotype,radband,bin,rh,value) + +implicit none + + INTEGER aerotype,radband,bin,rh,ib + REAL gasym(3,8,17,20),value + +! Setting for aerosol with no growth (completely insoluble): + IF(AEROTYPE.EQ.3) rh = 1 + +! gasym for Ammonium Sulfate (with a 90% insoluble dust inclusion): + DATA(gasym(1,1,ib,1),ib=1,17) & ! Band 1, RH = 80% + /0.00117, 0.00297, 0.00750, 0.01891, 0.04501, 0.11364 & + ,0.30041, 0.62353, 0.76482, 0.83189, 0.82722, 0.84191 & + ,0.86233, 0.88780, 0.92578, 0.94922, 0.96426/ + + DATA(gasym(1,1,ib,2),ib=1,17) & ! Band 1, RH = 81% + /0.00118, 0.00298, 0.00754, 0.01902, 0.04528, 0.11433 & + ,0.30236, 0.62443, 0.76550, 0.83229, 0.82734, 0.84191 & + ,0.86158, 0.88833, 0.92577, 0.94911, 0.96418/ + + DATA(gasym(1,1,ib,3),ib=1,17) & ! Band 1, RH = 82% + /0.00118, 0.00300, 0.00759, 0.01914, 0.04557, 0.11510 & + ,0.30451, 0.62540, 0.76626, 0.83272, 0.82747, 0.84173 & + ,0.86062, 0.88873, 0.92584, 0.94902, 0.96409/ + + DATA(gasym(1,1,ib,4),ib=1,17) & ! Band 1, RH = 83% + /0.00119, 0.00302, 0.00764, 0.01927, 0.04589, 0.11595 & + ,0.30691, 0.62645, 0.76709, 0.83317, 0.82761, 0.84128 & + ,0.86007, 0.88931, 0.92590, 0.94883, 0.96397/ + + DATA(gasym(1,1,ib,5),ib=1,17) & ! Band 1, RH = 84% + /0.00119, 0.00304, 0.00769, 0.01942, 0.04625, 0.11690 & + ,0.30959, 0.62761, 0.76803, 0.83367, 0.82776, 0.84069 & + ,0.86013, 0.88994, 0.92575, 0.94868, 0.96384/ + + DATA(gasym(1,1,ib,6),ib=1,17) & ! Band 1, RH = 85% + /0.00120, 0.00306, 0.00775, 0.01958, 0.04666, 0.11797 & + ,0.31262, 0.62889, 0.76907, 0.83420, 0.82792, 0.84021 & + ,0.86009, 0.88998, 0.92561, 0.94848, 0.96368/ + + DATA(gasym(1,1,ib,7),ib=1,17) & ! Band 1, RH = 86% + /0.00121, 0.00308, 0.00782, 0.01977, 0.04712, 0.11919 & + ,0.31605, 0.63030, 0.77026, 0.83478, 0.82805, 0.83996 & + ,0.85896, 0.89010, 0.92573, 0.94821, 0.96351/ + + DATA(gasym(1,1,ib,8),ib=1,17) & ! Band 1, RH = 87% + /0.00122, 0.00311, 0.00790, 0.01998, 0.04764, 0.12058 & + ,0.31998, 0.63188, 0.77161, 0.83539, 0.82812, 0.83997 & + ,0.85767, 0.89090, 0.92560, 0.94795, 0.96330/ + + DATA(gasym(1,1,ib,9),ib=1,17) & ! Band 1, RH = 88% + /0.00123, 0.00314, 0.00798, 0.02022, 0.04824, 0.12219 & + ,0.32452, 0.63367, 0.77317, 0.83605, 0.82808, 0.83918 & + ,0.85796, 0.89187, 0.92527, 0.94763, 0.96305/ + + DATA(gasym(1,1,ib,10),ib=1,17) & ! Band 1, RH = 89% + /0.00124, 0.00317, 0.00809, 0.02050, 0.04895, 0.12407 & + ,0.32984, 0.63570, 0.77497, 0.83676, 0.82783, 0.83799 & + ,0.85685, 0.89159, 0.92530, 0.94720, 0.96277/ + + DATA(gasym(1,1,ib,11),ib=1,17) & ! Band 1, RH = 90% + /0.00125, 0.00321, 0.00820, 0.02083, 0.04978, 0.12631 & + ,0.33613, 0.63806, 0.77709, 0.83752, 0.82724, 0.83802 & + ,0.85651, 0.89251, 0.92482, 0.94675, 0.96243/ + + DATA(gasym(1,1,ib,12),ib=1,17) & ! Band 1, RH = 91% + /0.00127, 0.00326, 0.00834, 0.02122, 0.05078, 0.12901 & + ,0.34372, 0.64084, 0.77961, 0.83834, 0.82621, 0.83744 & + ,0.85565, 0.89289, 0.92456, 0.94623, 0.96204/ + + DATA(gasym(1,1,ib,13),ib=1,17) & ! Band 1, RH = 92% + /0.00128, 0.00332, 0.00851, 0.02170, 0.05200, 0.13232 & + ,0.35303, 0.64421, 0.78262, 0.83925, 0.82515, 0.83570 & + ,0.85597, 0.89394, 0.92415, 0.94573, 0.96155/ + + DATA(gasym(1,1,ib,14),ib=1,17) & ! Band 1, RH = 93% + /0.00130, 0.00338, 0.00872, 0.02229, 0.05352, 0.13651 & + ,0.36471, 0.64843, 0.78628, 0.84035, 0.82455, 0.83452 & + ,0.85580, 0.89337, 0.92354, 0.94496, 0.96094/ + + DATA(gasym(1,1,ib,15),ib=1,17) & ! Band 1, RH = 94% + /0.00133, 0.00347, 0.00898, 0.02305, 0.05550, 0.14196 & + ,0.37980, 0.65397, 0.79078, 0.84189, 0.82410, 0.83402 & + ,0.85608, 0.89339, 0.92216, 0.94413, 0.96012/ + + DATA(gasym(1,1,ib,16),ib=1,17) & ! Band 1, RH = 95% + /0.00136, 0.00357, 0.00932, 0.02405, 0.05814, 0.14936 & + ,0.39998, 0.66174, 0.79638, 0.84413, 0.82178, 0.83185 & + ,0.85500, 0.89460, 0.92144, 0.94287, 0.95907/ + + DATA(gasym(1,1,ib,17),ib=1,17) & ! Band 1, RH = 96% + /0.00139, 0.00371, 0.00977, 0.02545, 0.06190, 0.16004 & + ,0.42820, 0.67353, 0.80355, 0.84662, 0.81739, 0.82839 & + ,0.85644, 0.89306, 0.91969, 0.94117, 0.95762/ + + DATA(gasym(1,1,ib,18),ib=1,17) & ! Band 1, RH = 97% + /0.00144, 0.00389, 0.01043, 0.02754, 0.06767, 0.17687 & + ,0.46979, 0.69307, 0.81322, 0.84775, 0.81114, 0.82726 & + ,0.85801, 0.89402, 0.91828, 0.93885, 0.95543/ + + DATA(gasym(1,1,ib,19),ib=1,17) & ! Band 1, RH = 98% + /0.00150, 0.00417, 0.01148, 0.03107, 0.07786, 0.20775 & + ,0.53350, 0.72611, 0.82632, 0.84856, 0.80037, 0.82507 & + ,0.86271, 0.89448, 0.91520, 0.93532, 0.95194/ + + DATA(gasym(1,1,ib,20),ib=1,17) & ! Band 1, RH = 99% + /0.00159, 0.00462, 0.01348, 0.03859, 0.10155, 0.28522 & + ,0.61997, 0.77368, 0.84552, 0.83754, 0.79296, 0.83100 & + ,0.86785, 0.89273, 0.91179, 0.92955, 0.94555/ + + DATA(gasym(1,2,ib,1),ib=1,17) & ! Band 2, RH = 80% + /0.00537, 0.01357, 0.03414, 0.08571, 0.20982, 0.51975 & + ,0.67945, 0.74366, 0.69649, 0.72276, 0.77858, 0.83411 & + ,0.87045, 0.90423, 0.92975, 0.94564, 0.95243/ + + DATA(gasym(1,2,ib,2),ib=1,17) & ! Band 2, RH = 81% + /0.00539, 0.01363, 0.03432, 0.08619, 0.21107, 0.52133 & + ,0.68060, 0.74461, 0.69749, 0.72297, 0.77893, 0.83415 & + ,0.87043, 0.90414, 0.92969, 0.94569, 0.95257/ + + DATA(gasym(1,2,ib,3),ib=1,17) & ! Band 2, RH = 82% + /0.00541, 0.01370, 0.03451, 0.08671, 0.21245, 0.52304 & + ,0.68185, 0.74565, 0.69858, 0.72328, 0.77939, 0.83428 & + ,0.87043, 0.90399, 0.92964, 0.94574, 0.95272/ + + DATA(gasym(1,2,ib,4),ib=1,17) & ! Band 2, RH = 83% + /0.00544, 0.01378, 0.03473, 0.08729, 0.21398, 0.52492 & + ,0.68322, 0.74678, 0.69978, 0.72365, 0.77991, 0.83449 & + ,0.87040, 0.90389, 0.92959, 0.94579, 0.95289/ + + DATA(gasym(1,2,ib,5),ib=1,17) & ! Band 2, RH = 84% + /0.00547, 0.01387, 0.03497, 0.08793, 0.21570, 0.52698 & + ,0.68473, 0.74802, 0.70110, 0.72409, 0.78041, 0.83462 & + ,0.87037, 0.90386, 0.92949, 0.94583, 0.95306/ + + DATA(gasym(1,2,ib,6),ib=1,17) & ! Band 2, RH = 85% + /0.00550, 0.01396, 0.03523, 0.08866, 0.21763, 0.52926 & + ,0.68640, 0.74939, 0.70255, 0.72472, 0.78112, 0.83478 & + ,0.87037, 0.90372, 0.92942, 0.94589, 0.95325/ + + DATA(gasym(1,2,ib,7),ib=1,17) & ! Band 2, RH = 86% + /0.00554, 0.01407, 0.03553, 0.08948, 0.21982, 0.53179 & + ,0.68825, 0.75092, 0.70415, 0.72547, 0.78177, 0.83508 & + ,0.87038, 0.90354, 0.92931, 0.94593, 0.95346/ + + DATA(gasym(1,2,ib,8),ib=1,17) & ! Band 2, RH = 87% + /0.00558, 0.01419, 0.03587, 0.09041, 0.22233, 0.53461 & + ,0.69032, 0.75262, 0.70589, 0.72630, 0.78261, 0.83521 & + ,0.87035, 0.90345, 0.92919, 0.94598, 0.95368/ + + DATA(gasym(1,2,ib,9),ib=1,17) & ! Band 2, RH = 88% + /0.00562, 0.01432, 0.03626, 0.09148, 0.22522, 0.53779 & + ,0.69265, 0.75455, 0.70778, 0.72729, 0.78326, 0.83565 & + ,0.87037, 0.90321, 0.92901, 0.94600, 0.95393/ + + DATA(gasym(1,2,ib,10),ib=1,17) & ! Band 2, RH = 89% + /0.00567, 0.01448, 0.03671, 0.09273, 0.22860, 0.54138 & + ,0.69531, 0.75675, 0.70979, 0.72817, 0.78424, 0.83590 & + ,0.87040, 0.90304, 0.92886, 0.94602, 0.95419/ + + DATA(gasym(1,2,ib,11),ib=1,17) & ! Band 2, RH = 90% + /0.00573, 0.01466, 0.03723, 0.09419, 0.23261, 0.54547 & + ,0.69835, 0.75930, 0.71184, 0.72949, 0.78557, 0.83612 & + ,0.87030, 0.90273, 0.92863, 0.94602, 0.95448/ + + DATA(gasym(1,2,ib,12),ib=1,17) & ! Band 2, RH = 91% + /0.00579, 0.01486, 0.03785, 0.09595, 0.23743, 0.55019 & + ,0.70189, 0.76229, 0.71394, 0.73083, 0.78731, 0.83647 & + ,0.87034, 0.90242, 0.92832, 0.94598, 0.95479/ + + DATA(gasym(1,2,ib,13),ib=1,17) & ! Band 2, RH = 92% + /0.00587, 0.01511, 0.03859, 0.09808, 0.24335, 0.55569 & + ,0.70606, 0.76584, 0.71640, 0.73203, 0.78905, 0.83695 & + ,0.87035, 0.90206, 0.92794, 0.94588, 0.95511/ + + DATA(gasym(1,2,ib,14),ib=1,17) & ! Band 2, RH = 93% + /0.00595, 0.01541, 0.03951, 0.10073, 0.25078, 0.56219 & + ,0.71109, 0.77007, 0.71960, 0.73402, 0.79098, 0.83778 & + ,0.87030, 0.90148, 0.92734, 0.94571, 0.95545/ + + DATA(gasym(1,2,ib,15),ib=1,17) & ! Band 2, RH = 94% + /0.00606, 0.01578, 0.04065, 0.10412, 0.26041, 0.57001 & + ,0.71730, 0.77509, 0.72358, 0.73632, 0.79331, 0.83847 & + ,0.87039, 0.90095, 0.92660, 0.94537, 0.95576/ + + DATA(gasym(1,2,ib,16),ib=1,17) & ! Band 2, RH = 95% + /0.00619, 0.01624, 0.04215, 0.10863, 0.27337, 0.57968 & + ,0.72525, 0.78093, 0.72828, 0.73877, 0.79636, 0.83940 & + ,0.87055, 0.90006, 0.92562, 0.94483, 0.95602/ + + DATA(gasym(1,2,ib,17),ib=1,17) & ! Band 2, RH = 96% + /0.00635, 0.01685, 0.04418, 0.11494, 0.29181, 0.59216 & + ,0.73581, 0.78747, 0.73166, 0.74242, 0.80100, 0.84085 & + ,0.87058, 0.89893, 0.92409, 0.94380, 0.95606/ + + DATA(gasym(1,2,ib,18),ib=1,17) & ! Band 2, RH = 97% + /0.00656, 0.01768, 0.04711, 0.12443, 0.32012, 0.60965 & + ,0.75025, 0.79526, 0.73673, 0.74748, 0.80696, 0.84210 & + ,0.87099, 0.89742, 0.92179, 0.94185, 0.95557/ + + DATA(gasym(1,2,ib,19),ib=1,17) & ! Band 2, RH = 98% + /0.00684, 0.01891, 0.05178, 0.14060, 0.36901, 0.63865 & + ,0.77047, 0.80597, 0.73957, 0.75422, 0.81475, 0.84571 & + ,0.87128, 0.89539, 0.91761, 0.93788, 0.95349/ + + DATA(gasym(1,2,ib,20),ib=1,17) & ! Band 2, RH = 99% + /0.00725, 0.02096, 0.06071, 0.17559, 0.46942, 0.69948 & + ,0.80194, 0.81321, 0.73877, 0.76821, 0.82788, 0.85142 & + ,0.87170, 0.89043, 0.90992, 0.92852, 0.94582/ + + DATA(gasym(1,3,ib,1),ib=1,17) & ! Band 3, RH = 80% + /0.02652, 0.06689, 0.16982, 0.38963, 0.59803, 0.70274 & + ,0.72603, 0.64355, 0.74197, 0.79950, 0.84232, 0.88036 & + ,0.91173, 0.93410, 0.94606, 0.95018, 0.95093/ + + DATA(gasym(1,3,ib,2),ib=1,17) & ! Band 3, RH = 81% + /0.02664, 0.06724, 0.17082, 0.39114, 0.59937, 0.70378 & + ,0.72705, 0.64464, 0.74209, 0.79992, 0.84241, 0.88032 & + ,0.91169, 0.93412, 0.94617, 0.95037, 0.95114/ + + DATA(gasym(1,3,ib,3),ib=1,17) & ! Band 3, RH = 82% + /0.02678, 0.06763, 0.17192, 0.39279, 0.60083, 0.70491 & + ,0.72817, 0.64591, 0.74225, 0.80011, 0.84247, 0.88028 & + ,0.91165, 0.93412, 0.94628, 0.95057, 0.95136/ + + DATA(gasym(1,3,ib,4),ib=1,17) & ! Band 3, RH = 83% + /0.02692, 0.06806, 0.17313, 0.39461, 0.60244, 0.70616 & + ,0.72936, 0.64728, 0.74254, 0.80045, 0.84253, 0.88019 & + ,0.91153, 0.93410, 0.94641, 0.95078, 0.95161/ + + DATA(gasym(1,3,ib,5),ib=1,17) & ! Band 3, RH = 84% + /0.02708, 0.06853, 0.17448, 0.39663, 0.60422, 0.70755 & + ,0.73064, 0.64868, 0.74289, 0.80099, 0.84257, 0.88022 & + ,0.91143, 0.93410, 0.94654, 0.95102, 0.95188/ + + DATA(gasym(1,3,ib,6),ib=1,17) & ! Band 3, RH = 85% + /0.02726, 0.06905, 0.17598, 0.39888, 0.60619, 0.70909 & + ,0.73201, 0.65017, 0.74311, 0.80141, 0.84258, 0.88020 & + ,0.91135, 0.93406, 0.94668, 0.95128, 0.95218/ + + DATA(gasym(1,3,ib,7),ib=1,17) & ! Band 3, RH = 86% + /0.02745, 0.06964, 0.17767, 0.40140, 0.60839, 0.71081 & + ,0.73359, 0.65177, 0.74361, 0.80186, 0.84266, 0.88011 & + ,0.91121, 0.93404, 0.94683, 0.95156, 0.95250/ + + DATA(gasym(1,3,ib,8),ib=1,17) & ! Band 3, RH = 87% + /0.02767, 0.07030, 0.17958, 0.40425, 0.61086, 0.71274 & + ,0.73548, 0.65356, 0.74409, 0.80209, 0.84280, 0.88002 & + ,0.91107, 0.93397, 0.94698, 0.95187, 0.95287/ + + DATA(gasym(1,3,ib,9),ib=1,17) & ! Band 3, RH = 88% + /0.02791, 0.07104, 0.18177, 0.40750, 0.61365, 0.71492 & + ,0.73754, 0.65535, 0.74491, 0.80274, 0.84313, 0.87996 & + ,0.91088, 0.93393, 0.94715, 0.95222, 0.95328/ + + DATA(gasym(1,3,ib,10),ib=1,17) & ! Band 3, RH = 89% + /0.02819, 0.07190, 0.18429, 0.41125, 0.61683, 0.71741 & + ,0.73966, 0.65761, 0.74578, 0.80359, 0.84342, 0.87982 & + ,0.91070, 0.93383, 0.94732, 0.95260, 0.95373/ + + DATA(gasym(1,3,ib,11),ib=1,17) & ! Band 3, RH = 90% + /0.02850, 0.07288, 0.18724, 0.41560, 0.62048, 0.72028 & + ,0.74212, 0.65986, 0.74711, 0.80424, 0.84366, 0.87978 & + ,0.91041, 0.93367, 0.94749, 0.95302, 0.95425/ + + DATA(gasym(1,3,ib,12),ib=1,17) & ! Band 3, RH = 91% + /0.02885, 0.07403, 0.19073, 0.42073, 0.62472, 0.72362 & + ,0.74487, 0.66221, 0.74900, 0.80509, 0.84388, 0.87959 & + ,0.91005, 0.93349, 0.94764, 0.95349, 0.95484/ + + DATA(gasym(1,3,ib,13),ib=1,17) & ! Band 3, RH = 92% + /0.02927, 0.07540, 0.19491, 0.42687, 0.62971, 0.72758 & + ,0.74806, 0.66500, 0.75110, 0.80661, 0.84425, 0.87948 & + ,0.90966, 0.93325, 0.94779, 0.95401, 0.95552/ + + DATA(gasym(1,3,ib,14),ib=1,17) & ! Band 3, RH = 93% + /0.02976, 0.07705, 0.20005, 0.43436, 0.63563, 0.73234 & + ,0.75176, 0.66810, 0.75336, 0.80775, 0.84493, 0.87937 & + ,0.90922, 0.93283, 0.94789, 0.95459, 0.95630/ + + DATA(gasym(1,3,ib,15),ib=1,17) & ! Band 3, RH = 94% + /0.03034, 0.07908, 0.20649, 0.44370, 0.64280, 0.73821 & + ,0.75610, 0.67233, 0.75594, 0.80926, 0.84533, 0.87916 & + ,0.90845, 0.93229, 0.94791, 0.95521, 0.95722/ + + DATA(gasym(1,3,ib,16),ib=1,17) & ! Band 3, RH = 95% + /0.03105, 0.08164, 0.21483, 0.45569, 0.65166, 0.74557 & + ,0.76131, 0.67693, 0.75913, 0.81125, 0.84655, 0.87886 & + ,0.90758, 0.93139, 0.94775, 0.95586, 0.95829/ + + DATA(gasym(1,3,ib,17),ib=1,17) & ! Band 3, RH = 96% + /0.03194, 0.08501, 0.22605, 0.47164, 0.66294, 0.75515 & + ,0.76732, 0.68256, 0.76585, 0.81410, 0.84773, 0.87844 & + ,0.90638, 0.93002, 0.94723, 0.95645, 0.95954/ + + DATA(gasym(1,3,ib,18),ib=1,17) & ! Band 3, RH = 97% + /0.03309, 0.08963, 0.24195, 0.49387, 0.67800, 0.76753 & + ,0.77344, 0.68949, 0.77355, 0.81770, 0.84944, 0.87792 & + ,0.90439, 0.92765, 0.94589, 0.95673, 0.96093/ + + DATA(gasym(1,3,ib,19),ib=1,17) & ! Band 3, RH = 98% + /0.03464, 0.09648, 0.26626, 0.52682, 0.70007, 0.78416 & + ,0.77991, 0.69494, 0.78672, 0.82441, 0.85278, 0.87796 & + ,0.90114, 0.92354, 0.94257, 0.95579, 0.96215/ + + DATA(gasym(1,3,ib,20),ib=1,17) & ! Band 3, RH = 99% + /0.03689, 0.10790, 0.30789, 0.58123, 0.73588, 0.80519 & + ,0.77954, 0.71019, 0.80913, 0.83581, 0.85567, 0.87534 & + ,0.89539, 0.91457, 0.93322, 0.94957, 0.96066/ + + DATA(gasym(1,4,ib,1),ib=1,17) & ! Band 4, RH = 80% + /0.00001, 0.00002, 0.00005, 0.00013, 0.00030, 0.00076 & + ,0.00191, 0.00482, 0.01212, 0.03042, 0.07694, 0.20715 & + ,0.50616, 0.68219, 0.77144, 0.85518, 0.88175/ + + DATA(gasym(1,4,ib,2),ib=1,17) & ! Band 4, RH = 81% + /0.00001, 0.00002, 0.00005, 0.00013, 0.00030, 0.00076 & + ,0.00192, 0.00484, 0.01218, 0.03059, 0.07737, 0.20845 & + ,0.50735, 0.68348, 0.77275, 0.85571, 0.88217/ + + DATA(gasym(1,4,ib,3),ib=1,17) & ! Band 4, RH = 82% + /0.00001, 0.00002, 0.00005, 0.00013, 0.00030, 0.00077 & + ,0.00194, 0.00487, 0.01225, 0.03077, 0.07785, 0.20990 & + ,0.50866, 0.68489, 0.77416, 0.85629, 0.88263/ + + DATA(gasym(1,4,ib,4),ib=1,17) & ! Band 4, RH = 83% + /0.00001, 0.00002, 0.00005, 0.00013, 0.00031, 0.00077 & + ,0.00195, 0.00491, 0.01234, 0.03098, 0.07839, 0.21152 & + ,0.51013, 0.68644, 0.77571, 0.85692, 0.88314/ + + DATA(gasym(1,4,ib,5),ib=1,17) & ! Band 4, RH = 84% + /0.00001, 0.00002, 0.00005, 0.00013, 0.00031, 0.00078 & + ,0.00196, 0.00494, 0.01243, 0.03121, 0.07899, 0.21334 & + ,0.51177, 0.68816, 0.77740, 0.85762, 0.88369/ + + DATA(gasym(1,4,ib,6),ib=1,17) & ! Band 4, RH = 85% + /0.00001, 0.00002, 0.00005, 0.00013, 0.00031, 0.00078 & + ,0.00198, 0.00498, 0.01253, 0.03147, 0.07968, 0.21541 & + ,0.51362, 0.69006, 0.77925, 0.85839, 0.88430/ + + DATA(gasym(1,4,ib,7),ib=1,17) & ! Band 4, RH = 86% + /0.00001, 0.00002, 0.00005, 0.00013, 0.00031, 0.00079 & + ,0.00200, 0.00503, 0.01265, 0.03177, 0.08046, 0.21777 & + ,0.51572, 0.69220, 0.78130, 0.85925, 0.88497/ + + DATA(gasym(1,4,ib,8),ib=1,17) & ! Band 4, RH = 87% + /0.00001, 0.00002, 0.00005, 0.00013, 0.00032, 0.00080 & + ,0.00202, 0.00508, 0.01278, 0.03211, 0.08136, 0.22049 & + ,0.51814, 0.69461, 0.78359, 0.86022, 0.88572/ + + DATA(gasym(1,4,ib,9),ib=1,17) & ! Band 4, RH = 88% + /0.00001, 0.00002, 0.00005, 0.00013, 0.00032, 0.00081 & + ,0.00204, 0.00515, 0.01294, 0.03251, 0.08241, 0.22366 & + ,0.52093, 0.69735, 0.78614, 0.86130, 0.88655/ + + DATA(gasym(1,4,ib,10),ib=1,17) & ! Band 4, RH = 89% + /0.00001, 0.00002, 0.00005, 0.00013, 0.00032, 0.00082 & + ,0.00207, 0.00522, 0.01313, 0.03298, 0.08365, 0.22741 & + ,0.52421, 0.70050, 0.78902, 0.86254, 0.88750/ + + DATA(gasym(1,4,ib,11),ib=1,17) & ! Band 4, RH = 90% + /0.00001, 0.00002, 0.00005, 0.00014, 0.00033, 0.00083 & + ,0.00210, 0.00531, 0.01335, 0.03354, 0.08514, 0.23189 & + ,0.52810, 0.70416, 0.79230, 0.86395, 0.88857/ + + DATA(gasym(1,4,ib,12),ib=1,17) & ! Band 4, RH = 91% + /0.00001, 0.00002, 0.00005, 0.00014, 0.00034, 0.00085 & + ,0.00215, 0.00541, 0.01362, 0.03422, 0.08695, 0.23737 & + ,0.53280, 0.70848, 0.79607, 0.86559, 0.88980/ + + DATA(gasym(1,4,ib,13),ib=1,17) & ! Band 4, RH = 92% + /0.00001, 0.00002, 0.00006, 0.00014, 0.00034, 0.00087 & + ,0.00220, 0.00554, 0.01395, 0.03507, 0.08921, 0.24418 & + ,0.53858, 0.71364, 0.80043, 0.86750, 0.89122/ + + DATA(gasym(1,4,ib,14),ib=1,17) & ! Band 4, RH = 93% + /0.00001, 0.00002, 0.00006, 0.00015, 0.00035, 0.00089 & + ,0.00226, 0.00571, 0.01438, 0.03616, 0.09210, 0.25290 & + ,0.54588, 0.71991, 0.80553, 0.86977, 0.89288/ + + DATA(gasym(1,4,ib,15),ib=1,17) & ! Band 4, RH = 94% + /0.00001, 0.00002, 0.00006, 0.00015, 0.00036, 0.00093 & + ,0.00235, 0.00593, 0.01494, 0.03759, 0.09595, 0.26441 & + ,0.55537, 0.72768, 0.81156, 0.87251, 0.89487/ + + DATA(gasym(1,4,ib,16),ib=1,17) & ! Band 4, RH = 95% + /0.00001, 0.00002, 0.00006, 0.00016, 0.00038, 0.00097 & + ,0.00246, 0.00623, 0.01571, 0.03957, 0.10130, 0.28029 & + ,0.56815, 0.73748, 0.81876, 0.87588, 0.89727/ + + DATA(gasym(1,4,ib,17),ib=1,17) & ! Band 4, RH = 96% + /0.00001, 0.00002, 0.00006, 0.00017, 0.00040, 0.00103 & + ,0.00263, 0.00667, 0.01685, 0.04249, 0.10926, 0.30344 & + ,0.58622, 0.75008, 0.82756, 0.88017, 0.90024/ + + DATA(gasym(1,4,ib,18),ib=1,17) & ! Band 4, RH = 97% + /0.00001, 0.00003, 0.00007, 0.00018, 0.00044, 0.00113 & + ,0.00290, 0.00738, 0.01868, 0.04722, 0.12238, 0.33989 & + ,0.61329, 0.76667, 0.83880, 0.88576, 0.90404/ + + DATA(gasym(1,4,ib,19),ib=1,17) & ! Band 4, RH = 98% + /0.00001, 0.00003, 0.00007, 0.00020, 0.00050, 0.00132 & + ,0.00341, 0.00872, 0.02215, 0.05630, 0.14816, 0.40341 & + ,0.65647, 0.78999, 0.85407, 0.89340, 0.90910/ + + DATA(gasym(1,4,ib,20),ib=1,17) & ! Band 4, RH = 99% + /0.00001, 0.00003, 0.00009, 0.00025, 0.00065, 0.00177 & + ,0.00470, 0.01222, 0.03142, 0.08120, 0.22183, 0.52633 & + ,0.72828, 0.82645, 0.87706, 0.90476, 0.91638/ + + DATA(gasym(1,5,ib,1),ib=1,17) & ! Band 5, RH = 80% + /0.00002, 0.00004, 0.00011, 0.00029, 0.00069, 0.00175 & + ,0.00440, 0.01106, 0.02775, 0.06976, 0.18122, 0.49305 & + ,0.69945, 0.80568, 0.82301, 0.91174, 0.92981/ + + DATA(gasym(1,5,ib,2),ib=1,17) & ! Band 5, RH = 81% + /0.00002, 0.00005, 0.00011, 0.00029, 0.00070, 0.00175 & + ,0.00442, 0.01111, 0.02789, 0.07013, 0.18234, 0.49524 & + ,0.70166, 0.80776, 0.82698, 0.91278, 0.93043/ + + DATA(gasym(1,5,ib,3),ib=1,17) & ! Band 5, RH = 82% + /0.00002, 0.00005, 0.00011, 0.00029, 0.00070, 0.00176 & + ,0.00444, 0.01118, 0.02805, 0.07055, 0.18358, 0.49764 & + ,0.70405, 0.80999, 0.83110, 0.91382, 0.93104/ + + DATA(gasym(1,5,ib,4),ib=1,17) & ! Band 5, RH = 83% + /0.00002, 0.00005, 0.00012, 0.00029, 0.00070, 0.00177 & + ,0.00447, 0.01124, 0.02823, 0.07101, 0.18496, 0.50029 & + ,0.70664, 0.81236, 0.83537, 0.91489, 0.93166/ + + DATA(gasym(1,5,ib,5),ib=1,17) & ! Band 5, RH = 84% + /0.00002, 0.00005, 0.00012, 0.00029, 0.00071, 0.00179 & + ,0.00450, 0.01132, 0.02843, 0.07153, 0.18651, 0.50322 & + ,0.70944, 0.81490, 0.83980, 0.91597, 0.93229/ + + DATA(gasym(1,5,ib,6),ib=1,17) & ! Band 5, RH = 85% + /0.00002, 0.00005, 0.00012, 0.00030, 0.00071, 0.00180 & + ,0.00453, 0.01141, 0.02865, 0.07212, 0.18827, 0.50648 & + ,0.71250, 0.81763, 0.84441, 0.91707, 0.93291/ + + DATA(gasym(1,5,ib,7),ib=1,17) & ! Band 5, RH = 86% + /0.00002, 0.00005, 0.00012, 0.00030, 0.00072, 0.00181 & + ,0.00457, 0.01151, 0.02891, 0.07279, 0.19028, 0.51013 & + ,0.71584, 0.82056, 0.84919, 0.91819, 0.93355/ + + DATA(gasym(1,5,ib,8),ib=1,17) & ! Band 5, RH = 87% + /0.00002, 0.00005, 0.00012, 0.00030, 0.00073, 0.00183 & + ,0.00462, 0.01162, 0.02920, 0.07356, 0.19260, 0.51425 & + ,0.71952, 0.82372, 0.85414, 0.91933, 0.93419/ + + DATA(gasym(1,5,ib,9),ib=1,17) & ! Band 5, RH = 88% + /0.00002, 0.00005, 0.00012, 0.00030, 0.00073, 0.00185 & + ,0.00467, 0.01176, 0.02954, 0.07446, 0.19529, 0.51893 & + ,0.72358, 0.82713, 0.85929, 0.92050, 0.93486/ + + DATA(gasym(1,5,ib,10),ib=1,17) & ! Band 5, RH = 89% + /0.00002, 0.00005, 0.00012, 0.00031, 0.00074, 0.00188 & + ,0.00473, 0.01191, 0.02994, 0.07552, 0.19847, 0.52431 & + ,0.72809, 0.83083, 0.86463, 0.92169, 0.93554/ + + DATA(gasym(1,5,ib,11),ib=1,17) & ! Band 5, RH = 90% + /0.00002, 0.00005, 0.00012, 0.00031, 0.00075, 0.00190 & + ,0.00480, 0.01210, 0.03042, 0.07679, 0.20228, 0.53053 & + ,0.73314, 0.83485, 0.87016, 0.92292, 0.93625/ + + DATA(gasym(1,5,ib,12),ib=1,17) & ! Band 5, RH = 91% + /0.00002, 0.00005, 0.00012, 0.00032, 0.00077, 0.00194 & + ,0.00489, 0.01233, 0.03100, 0.07834, 0.20692, 0.53783 & + ,0.73883, 0.83924, 0.87590, 0.92420, 0.93700/ + + DATA(gasym(1,5,ib,13),ib=1,17) & ! Band 5, RH = 92% + /0.00002, 0.00005, 0.00013, 0.00032, 0.00078, 0.00198 & + ,0.00500, 0.01261, 0.03172, 0.08026, 0.21271, 0.54652 & + ,0.74533, 0.84404, 0.88183, 0.92555, 0.93779/ + + DATA(gasym(1,5,ib,14),ib=1,17) & ! Band 5, RH = 93% + /0.00002, 0.00005, 0.00013, 0.00033, 0.00080, 0.00203 & + ,0.00514, 0.01296, 0.03263, 0.08271, 0.22012, 0.55702 & + ,0.75283, 0.84933, 0.88794, 0.92697, 0.93863/ + + DATA(gasym(1,5,ib,15),ib=1,17) & ! Band 5, RH = 94% + /0.00002, 0.00005, 0.00013, 0.00034, 0.00083, 0.00210 & + ,0.00532, 0.01343, 0.03385, 0.08597, 0.22994, 0.56997 & + ,0.76162, 0.85521, 0.89421, 0.92851, 0.93955/ + + DATA(gasym(1,5,ib,16),ib=1,17) & ! Band 5, RH = 95% + /0.00002, 0.00005, 0.00014, 0.00035, 0.00086, 0.00220 & + ,0.00557, 0.01408, 0.03552, 0.09049, 0.24358, 0.58634 & + ,0.77216, 0.86187, 0.90057, 0.93019, 0.94054/ + + DATA(gasym(1,5,ib,17),ib=1,17) & ! Band 5, RH = 96% + /0.00002, 0.00005, 0.00014, 0.00037, 0.00091, 0.00233 & + ,0.00593, 0.01502, 0.03798, 0.09721, 0.26377, 0.60767 & + ,0.78515, 0.86958, 0.90698, 0.93206, 0.94162/ + + DATA(gasym(1,5,ib,18),ib=1,17) & ! Band 5, RH = 97% + /0.00002, 0.00006, 0.00015, 0.00040, 0.00099, 0.00255 & + ,0.00651, 0.01654, 0.04197, 0.10825, 0.29657, 0.63655 & + ,0.80174, 0.87873, 0.91350, 0.93414, 0.94276/ + + DATA(gasym(1,5,ib,19),ib=1,17) & ! Band 5, RH = 98% + /0.00002, 0.00006, 0.00017, 0.00045, 0.00112, 0.00294 & + ,0.00759, 0.01942, 0.04962, 0.12986, 0.35812, 0.67803 & + ,0.82399, 0.88994, 0.92023, 0.93648, 0.94390/ + + DATA(gasym(1,5,ib,20),ib=1,17) & ! Band 5, RH = 99% + /0.00002, 0.00007, 0.00019, 0.00055, 0.00145, 0.00392 & + ,0.01037, 0.02704, 0.07051, 0.19134, 0.50142, 0.74725 & + ,0.85771, 0.90532, 0.92795, 0.93927, 0.94494/ + + DATA(gasym(1,6,ib,1),ib=1,17) & ! Band 6, RH = 80% + /0.00004, 0.00011, 0.00029, 0.00072, 0.00173, 0.00436 & + ,0.01099, 0.02767, 0.07017, 0.18631, 0.51579, 0.74556 & + ,0.86027, 0.91201, 0.93629, 0.95085, 0.95889/ + + DATA(gasym(1,6,ib,2),ib=1,17) & ! Band 6, RH = 81% + /0.00004, 0.00011, 0.00029, 0.00073, 0.00174, 0.00439 & + ,0.01105, 0.02784, 0.07062, 0.18757, 0.51852, 0.74668 & + ,0.86088, 0.91227, 0.93639, 0.95103, 0.95908/ + + DATA(gasym(1,6,ib,3),ib=1,17) & ! Band 6, RH = 82% + /0.00005, 0.00011, 0.00029, 0.00073, 0.00175, 0.00442 & + ,0.01113, 0.02803, 0.07111, 0.18896, 0.52153, 0.74791 & + ,0.86155, 0.91255, 0.93650, 0.95122, 0.95928/ + + DATA(gasym(1,6,ib,4),ib=1,17) & ! Band 6, RH = 83% + /0.00005, 0.00012, 0.00029, 0.00074, 0.00176, 0.00445 & + ,0.01121, 0.02825, 0.07167, 0.19051, 0.52485, 0.74928 & + ,0.86229, 0.91286, 0.93660, 0.95144, 0.95950/ + + DATA(gasym(1,6,ib,5),ib=1,17) & ! Band 6, RH = 84% + /0.00005, 0.00012, 0.00029, 0.00074, 0.00178, 0.00449 & + ,0.01131, 0.02849, 0.07229, 0.19226, 0.52853, 0.75081 & + ,0.86311, 0.91319, 0.93671, 0.95168, 0.95975/ + + DATA(gasym(1,6,ib,6),ib=1,17) & ! Band 6, RH = 85% + /0.00005, 0.00012, 0.00030, 0.00075, 0.00179, 0.00453 & + ,0.01141, 0.02876, 0.07300, 0.19423, 0.53265, 0.75253 & + ,0.86402, 0.91355, 0.93683, 0.95194, 0.96001/ + + DATA(gasym(1,6,ib,7),ib=1,17) & ! Band 6, RH = 86% + /0.00005, 0.00012, 0.00030, 0.00076, 0.00181, 0.00458 & + ,0.01154, 0.02907, 0.07380, 0.19648, 0.53728, 0.75447 & + ,0.86503, 0.91395, 0.93694, 0.95224, 0.96031/ + + DATA(gasym(1,6,ib,8),ib=1,17) & ! Band 6, RH = 87% + /0.00005, 0.00012, 0.00030, 0.00077, 0.00183, 0.00463 & + ,0.01168, 0.02943, 0.07472, 0.19907, 0.54252, 0.75669 & + ,0.86618, 0.91439, 0.93706, 0.95257, 0.96063/ + + DATA(gasym(1,6,ib,9),ib=1,17) & ! Band 6, RH = 88% + /0.00005, 0.00012, 0.00031, 0.00078, 0.00186, 0.00469 & + ,0.01184, 0.02984, 0.07580, 0.20209, 0.54850, 0.75924 & + ,0.86748, 0.91487, 0.93718, 0.95294, 0.96099/ + + DATA(gasym(1,6,ib,10),ib=1,17) & ! Band 6, RH = 89% + /0.00005, 0.00012, 0.00031, 0.00079, 0.00188, 0.00477 & + ,0.01203, 0.03033, 0.07706, 0.20564, 0.55537, 0.76221 & + ,0.86897, 0.91541, 0.93731, 0.95337, 0.96140/ + + DATA(gasym(1,6,ib,11),ib=1,17) & ! Band 6, RH = 90% + /0.00005, 0.00012, 0.00031, 0.00080, 0.00192, 0.00485 & + ,0.01225, 0.03091, 0.07856, 0.20989, 0.56333, 0.76571 & + ,0.87070, 0.91601, 0.93745, 0.95388, 0.96186/ + + DATA(gasym(1,6,ib,12),ib=1,17) & ! Band 6, RH = 91% + /0.00005, 0.00012, 0.00032, 0.00082, 0.00196, 0.00496 & + ,0.01252, 0.03161, 0.08039, 0.21506, 0.57268, 0.76988 & + ,0.87273, 0.91667, 0.93758, 0.95448, 0.96239/ + + DATA(gasym(1,6,ib,13),ib=1,17) & ! Band 6, RH = 92% + /0.00005, 0.00013, 0.00033, 0.00084, 0.00201, 0.00509 & + ,0.01286, 0.03248, 0.08265, 0.22150, 0.58374, 0.77493 & + ,0.87511, 0.91740, 0.93766, 0.95518, 0.96299/ + + DATA(gasym(1,6,ib,14),ib=1,17) & ! Band 6, RH = 93% + /0.00005, 0.00013, 0.00033, 0.00086, 0.00207, 0.00525 & + ,0.01329, 0.03358, 0.08554, 0.22972, 0.59699, 0.78112 & + ,0.87795, 0.91822, 0.93760, 0.95604, 0.96370/ + + DATA(gasym(1,6,ib,15),ib=1,17) & ! Band 6, RH = 94% + /0.00005, 0.00013, 0.00035, 0.00089, 0.00215, 0.00546 & + ,0.01385, 0.03503, 0.08935, 0.24061, 0.61300, 0.78881 & + ,0.88128, 0.91911, 0.93741, 0.95712, 0.96453/ + + DATA(gasym(1,6,ib,16),ib=1,17) & ! Band 6, RH = 95% + /0.00005, 0.00014, 0.00036, 0.00093, 0.00225, 0.00575 & + ,0.01461, 0.03702, 0.09459, 0.25570, 0.63242, 0.79840 & + ,0.88503, 0.91994, 0.93727, 0.95848, 0.96553/ + + DATA(gasym(1,6,ib,17),ib=1,17) & ! Band 6, RH = 96% + /0.00005, 0.00014, 0.00038, 0.00099, 0.00241, 0.00617 & + ,0.01572, 0.03992, 0.10229, 0.27802, 0.65566, 0.81017 & + ,0.88885, 0.92037, 0.93673, 0.96024, 0.96674/ + + DATA(gasym(1,6,ib,18),ib=1,17) & ! Band 6, RH = 97% + /0.00006, 0.00015, 0.00040, 0.00107, 0.00264, 0.00683 & + ,0.01749, 0.04457, 0.11476, 0.31438, 0.68192, 0.82394 & + ,0.89319, 0.92098, 0.93630, 0.96249, 0.96823/ + + DATA(gasym(1,6,ib,19),ib=1,17) & ! Band 6, RH = 98% + /0.00006, 0.00016, 0.00045, 0.00122, 0.00306, 0.00802 & + ,0.02075, 0.05329, 0.13856, 0.38365, 0.70776, 0.84055 & + ,0.90334, 0.91878, 0.93739, 0.96510, 0.97000/ + + DATA(gasym(1,6,ib,20),ib=1,17) & ! Band 6, RH = 99% + /0.00006, 0.00018, 0.00053, 0.00152, 0.00402, 0.01095 & + ,0.02908, 0.07617, 0.20364, 0.55160, 0.75796, 0.87080 & + ,0.91192, 0.90909, 0.94921, 0.96868, 0.97261/ + + DATA(gasym(1,7,ib,1),ib=1,17) & ! Band 7, RH = 80% + /0.00004, 0.00011, 0.00028, 0.00071, 0.00171, 0.00431 & + ,0.01083, 0.02720, 0.06855, 0.18178, 0.51389, 0.69553 & + ,0.77061, 0.84653, 0.89565, 0.90847, 0.91468/ + + DATA(gasym(1,7,ib,2),ib=1,17) & ! Band 7, RH = 81% + /0.00004, 0.00011, 0.00028, 0.00071, 0.00172, 0.00433 & + ,0.01088, 0.02732, 0.06886, 0.18266, 0.51574, 0.69711 & + ,0.77197, 0.84659, 0.89649, 0.90914, 0.91533/ + + DATA(gasym(1,7,ib,3),ib=1,17) & ! Band 7, RH = 82% + /0.00004, 0.00011, 0.00028, 0.00071, 0.00172, 0.00435 & + ,0.01093, 0.02745, 0.06921, 0.18364, 0.51778, 0.69884 & + ,0.77346, 0.84667, 0.89741, 0.90988, 0.91604/ + + DATA(gasym(1,7,ib,4),ib=1,17) & ! Band 7, RH = 83% + /0.00004, 0.00011, 0.00028, 0.00072, 0.00173, 0.00437 & + ,0.01099, 0.02760, 0.06959, 0.18473, 0.52005, 0.70073 & + ,0.77511, 0.84675, 0.89841, 0.91069, 0.91682/ + + DATA(gasym(1,7,ib,5),ib=1,17) & ! Band 7, RH = 84% + /0.00004, 0.00011, 0.00028, 0.00072, 0.00174, 0.00439 & + ,0.01106, 0.02777, 0.07003, 0.18597, 0.52256, 0.70282 & + ,0.77693, 0.84685, 0.89951, 0.91157, 0.91767/ + + DATA(gasym(1,7,ib,6),ib=1,17) & ! Band 7, RH = 85% + /0.00004, 0.00011, 0.00029, 0.00072, 0.00175, 0.00442 & + ,0.01113, 0.02796, 0.07052, 0.18737, 0.52539, 0.70514 & + ,0.77895, 0.84696, 0.90072, 0.91254, 0.91861/ + + DATA(gasym(1,7,ib,7),ib=1,17) & ! Band 7, RH = 86% + /0.00004, 0.00011, 0.00029, 0.00073, 0.00177, 0.00446 & + ,0.01122, 0.02818, 0.07108, 0.18897, 0.52857, 0.70772 & + ,0.78121, 0.84711, 0.90206, 0.91362, 0.91965/ + + DATA(gasym(1,7,ib,8),ib=1,17) & ! Band 7, RH = 87% + /0.00004, 0.00011, 0.00029, 0.00074, 0.00178, 0.00450 & + ,0.01132, 0.02843, 0.07173, 0.19083, 0.53219, 0.71061 & + ,0.78376, 0.84729, 0.90355, 0.91483, 0.92082/ + + DATA(gasym(1,7,ib,9),ib=1,17) & ! Band 7, RH = 88% + /0.00005, 0.00012, 0.00029, 0.00074, 0.00180, 0.00454 & + ,0.01143, 0.02873, 0.07249, 0.19300, 0.53633, 0.71388 & + ,0.78664, 0.84752, 0.90521, 0.91618, 0.92212/ + + DATA(gasym(1,7,ib,10),ib=1,17) & ! Band 7, RH = 89% + /0.00005, 0.00012, 0.00030, 0.00075, 0.00182, 0.00459 & + ,0.01157, 0.02907, 0.07338, 0.19558, 0.54113, 0.71759 & + ,0.78993, 0.84783, 0.90707, 0.91770, 0.92359/ + + DATA(gasym(1,7,ib,11),ib=1,17) & ! Band 7, RH = 90% + /0.00005, 0.00012, 0.00030, 0.00076, 0.00184, 0.00466 & + ,0.01173, 0.02949, 0.07446, 0.19867, 0.54674, 0.72185 & + ,0.79372, 0.84825, 0.90916, 0.91944, 0.92527/ + + DATA(gasym(1,7,ib,12),ib=1,17) & ! Band 7, RH = 91% + /0.00005, 0.00012, 0.00030, 0.00077, 0.00187, 0.00473 & + ,0.01193, 0.02999, 0.07577, 0.20247, 0.55337, 0.72679 & + ,0.79811, 0.84885, 0.91152, 0.92143, 0.92720/ + + DATA(gasym(1,7,ib,13),ib=1,17) & ! Band 7, RH = 92% + /0.00005, 0.00012, 0.00031, 0.00079, 0.00191, 0.00483 & + ,0.01217, 0.03062, 0.07741, 0.20723, 0.56133, 0.73259 & + ,0.80326, 0.84969, 0.91420, 0.92375, 0.92943/ + + DATA(gasym(1,7,ib,14),ib=1,17) & ! Band 7, RH = 93% + /0.00005, 0.00012, 0.00031, 0.00080, 0.00195, 0.00495 & + ,0.01249, 0.03143, 0.07952, 0.21336, 0.57102, 0.73947 & + ,0.80934, 0.85094, 0.91725, 0.92646, 0.93206/ + + DATA(gasym(1,7,ib,15),ib=1,17) & ! Band 7, RH = 94% + /0.00005, 0.00012, 0.00032, 0.00083, 0.00201, 0.00510 & + ,0.01290, 0.03250, 0.08232, 0.22156, 0.58302, 0.74777 & + ,0.81658, 0.85283, 0.92072, 0.92969, 0.93518/ + + DATA(gasym(1,7,ib,16),ib=1,17) & ! Band 7, RH = 95% + /0.00005, 0.00013, 0.00033, 0.00086, 0.00209, 0.00532 & + ,0.01347, 0.03398, 0.08622, 0.23303, 0.59815, 0.75794 & + ,0.82528, 0.85581, 0.92466, 0.93360, 0.93896/ + + DATA(gasym(1,7,ib,17),ib=1,17) & ! Band 7, RH = 96% + /0.00005, 0.00013, 0.00035, 0.00090, 0.00221, 0.00563 & + ,0.01431, 0.03616, 0.09201, 0.25020, 0.61750, 0.77066 & + ,0.83583, 0.86073, 0.92905, 0.93844, 0.94362/ + + DATA(gasym(1,7,ib,18),ib=1,17) & ! Band 7, RH = 97% + /0.00005, 0.00014, 0.00037, 0.00096, 0.00238, 0.00613 & + ,0.01565, 0.03971, 0.10151, 0.27857, 0.64237, 0.78703 & + ,0.84920, 0.86884, 0.93399, 0.94459, 0.94949/ + + DATA(gasym(1,7,ib,19),ib=1,17) & ! Band 7, RH = 98% + /0.00005, 0.00015, 0.00040, 0.00108, 0.00270, 0.00706 & + ,0.01818, 0.04646, 0.11991, 0.33373, 0.67384, 0.80995 & + ,0.86888, 0.88109, 0.93985, 0.95262, 0.95704/ + + DATA(gasym(1,7,ib,20),ib=1,17) & ! Band 7, RH = 99% + /0.00006, 0.00016, 0.00046, 0.00132, 0.00346, 0.00936 & + ,0.02475, 0.06451, 0.17095, 0.47769, 0.72551, 0.85047 & + ,0.89604, 0.90077, 0.94941, 0.96342, 0.96696/ + + DATA(gasym(1,8,ib,1),ib=1,17) & ! Band 8, RH = 80% + /0.00012, 0.00031, 0.00078, 0.00198, 0.00470, 0.01184 & + ,0.02979, 0.07506, 0.19257, 0.49463, 0.73032, 0.84980 & + ,0.89773, 0.89442, 0.90417, 0.94218, 0.96453/ + + DATA(gasym(1,8,ib,2),ib=1,17) & ! Band 8, RH = 81% + /0.00012, 0.00031, 0.00079, 0.00199, 0.00473, 0.01192 & + ,0.02999, 0.07557, 0.19396, 0.49757, 0.73161, 0.85033 & + ,0.89766, 0.89377, 0.90422, 0.94234, 0.96452/ + + DATA(gasym(1,8,ib,3),ib=1,17) & ! Band 8, RH = 82% + /0.00012, 0.00031, 0.00079, 0.00200, 0.00476, 0.01200 & + ,0.03022, 0.07615, 0.19550, 0.50079, 0.73304, 0.85090 & + ,0.89758, 0.89305, 0.90424, 0.94252, 0.96452/ + + DATA(gasym(1,8,ib,4),ib=1,17) & ! Band 8, RH = 83% + /0.00012, 0.00031, 0.00080, 0.00202, 0.00480, 0.01210 & + ,0.03047, 0.07678, 0.19722, 0.50434, 0.73461, 0.85152 & + ,0.89748, 0.89225, 0.90424, 0.94273, 0.96451/ + + DATA(gasym(1,8,ib,5),ib=1,17) & ! Band 8, RH = 84% + /0.00012, 0.00032, 0.00080, 0.00204, 0.00484, 0.01221 & + ,0.03075, 0.07750, 0.19914, 0.50826, 0.73636, 0.85219 & + ,0.89738, 0.89136, 0.90425, 0.94295, 0.96451/ + + DATA(gasym(1,8,ib,6),ib=1,17) & ! Band 8, RH = 85% + /0.00013, 0.00032, 0.00081, 0.00206, 0.00489, 0.01233 & + ,0.03106, 0.07830, 0.20131, 0.51263, 0.73832, 0.85294 & + ,0.89726, 0.89039, 0.90430, 0.94322, 0.96452/ + + DATA(gasym(1,8,ib,7),ib=1,17) & ! Band 8, RH = 86% + /0.00013, 0.00032, 0.00082, 0.00208, 0.00494, 0.01247 & + ,0.03142, 0.07922, 0.20378, 0.51751, 0.74051, 0.85376 & + ,0.89713, 0.88932, 0.90443, 0.94354, 0.96454/ + + DATA(gasym(1,8,ib,8),ib=1,17) & ! Band 8, RH = 87% + /0.00013, 0.00033, 0.00083, 0.00210, 0.00500, 0.01263 & + ,0.03183, 0.08027, 0.20662, 0.52299, 0.74298, 0.85465 & + ,0.89699, 0.88815, 0.90463, 0.94392, 0.96457/ + + DATA(gasym(1,8,ib,9),ib=1,17) & ! Band 8, RH = 88% + /0.00013, 0.00033, 0.00084, 0.00213, 0.00507, 0.01282 & + ,0.03230, 0.08148, 0.20992, 0.52919, 0.74579, 0.85564 & + ,0.89683, 0.88682, 0.90484, 0.94434, 0.96463/ + + DATA(gasym(1,8,ib,10),ib=1,17) & ! Band 8, RH = 89% + /0.00013, 0.00033, 0.00085, 0.00216, 0.00516, 0.01303 & + ,0.03285, 0.08291, 0.21379, 0.53626, 0.74898, 0.85671 & + ,0.89663, 0.88526, 0.90491, 0.94478, 0.96473/ + + DATA(gasym(1,8,ib,11),ib=1,17) & ! Band 8, RH = 90% + /0.00013, 0.00034, 0.00086, 0.00220, 0.00525, 0.01329 & + ,0.03351, 0.08460, 0.21841, 0.54437, 0.75263, 0.85788 & + ,0.89638, 0.88330, 0.90494, 0.94527, 0.96486/ + + DATA(gasym(1,8,ib,12),ib=1,17) & ! Band 8, RH = 91% + /0.00013, 0.00034, 0.00088, 0.00225, 0.00537, 0.01359 & + ,0.03430, 0.08665, 0.22402, 0.55374, 0.75682, 0.85915 & + ,0.89605, 0.88076, 0.90516, 0.94577, 0.96504/ + + DATA(gasym(1,8,ib,13),ib=1,17) & ! Band 8, RH = 92% + /0.00013, 0.00035, 0.00090, 0.00230, 0.00551, 0.01397 & + ,0.03528, 0.08918, 0.23096, 0.56464, 0.76164, 0.86050 & + ,0.89554, 0.87763, 0.90546, 0.94625, 0.96525/ + + DATA(gasym(1,8,ib,14),ib=1,17) & ! Band 8, RH = 93% + /0.00014, 0.00036, 0.00092, 0.00237, 0.00569, 0.01444 & + ,0.03651, 0.09238, 0.23979, 0.57741, 0.76716, 0.86196 & + ,0.89478, 0.87422, 0.90558, 0.94662, 0.96545/ + + DATA(gasym(1,8,ib,15),ib=1,17) & ! Band 8, RH = 94% + /0.00014, 0.00037, 0.00095, 0.00246, 0.00592, 0.01506 & + ,0.03812, 0.09657, 0.25141, 0.59239, 0.77349, 0.86363 & + ,0.89369, 0.87011, 0.90613, 0.94682, 0.96555/ + + DATA(gasym(1,8,ib,16),ib=1,17) & ! Band 8, RH = 95% + /0.00014, 0.00038, 0.00099, 0.00257, 0.00623, 0.01589 & + ,0.04030, 0.10230, 0.26741, 0.60994, 0.78075, 0.86586 & + ,0.89205, 0.86463, 0.90693, 0.94688, 0.96547/ + + DATA(gasym(1,8,ib,17),ib=1,17) & ! Band 8, RH = 96% + /0.00015, 0.00039, 0.00104, 0.00274, 0.00666, 0.01708 & + ,0.04346, 0.11065, 0.29084, 0.63023, 0.78934, 0.86939 & + ,0.88866, 0.85896, 0.90863, 0.94720, 0.96543/ + + DATA(gasym(1,8,ib,18),ib=1,17) & ! Band 8, RH = 97% + /0.00015, 0.00042, 0.00112, 0.00298, 0.00733, 0.01894 & + ,0.04844, 0.12399, 0.32847, 0.65354, 0.80092, 0.87401 & + ,0.88307, 0.85464, 0.91303, 0.94895, 0.96599/ + + DATA(gasym(1,8,ib,19),ib=1,17) & ! Band 8, RH = 98% + /0.00016, 0.00045, 0.00124, 0.00338, 0.00851, 0.02229 & + ,0.05760, 0.14906, 0.39807, 0.68417, 0.81977, 0.87745 & + ,0.87024, 0.85966, 0.92344, 0.95183, 0.96660/ + + DATA(gasym(1,8,ib,20),ib=1,17) & ! Band 8, RH = 99% + /0.00017, 0.00050, 0.00147, 0.00425, 0.01122, 0.03047 & + ,0.08085, 0.21585, 0.54999, 0.75096, 0.84944, 0.87763 & + ,0.83675, 0.88566, 0.93352, 0.95632, 0.96844/ + +! gasym for Sea Salt: + DATA(gasym(2,1,ib,1),ib=1,17) & ! Band 1, RH = 80% + /0.00372, 0.00962, 0.02456, 0.06213, 0.14883, 0.39219 & + ,0.65438, 0.78972, 0.83671, 0.78626, 0.78165, 0.83022 & + ,0.85802, 0.86761, 0.88382, 0.89449, 0.90512/ + + DATA(gasym(2,1,ib,2),ib=1,17) & ! Band 1, RH = 81% + /0.00383, 0.00989, 0.02521, 0.06379, 0.15294, 0.40271 & + ,0.65885, 0.79259, 0.83781, 0.78397, 0.78391, 0.83075 & + ,0.85349, 0.86989, 0.88407, 0.89752, 0.90520/ + + DATA(gasym(2,1,ib,3),ib=1,17) & ! Band 1, RH = 82% + /0.00394, 0.01016, 0.02590, 0.06557, 0.15735, 0.41380 & + ,0.66368, 0.79553, 0.83882, 0.78226, 0.78828, 0.83500 & + ,0.85327, 0.87120, 0.88561, 0.89556, 0.90657/ + + DATA(gasym(2,1,ib,4),ib=1,17) & ! Band 1, RH = 83% + /0.00405, 0.01044, 0.02665, 0.06747, 0.16210, 0.42554 & + ,0.66893, 0.79854, 0.83966, 0.78107, 0.78868, 0.83865 & + ,0.86204, 0.87445, 0.88581, 0.89632, 0.90781/ + + DATA(gasym(2,1,ib,5),ib=1,17) & ! Band 1, RH = 84% + /0.00417, 0.01075, 0.02745, 0.06955, 0.16728, 0.43802 & + ,0.67468, 0.80166, 0.84029, 0.77988, 0.79020, 0.83869 & + ,0.85811, 0.87449, 0.88442, 0.89631, 0.90763/ + + DATA(gasym(2,1,ib,6),ib=1,17) & ! Band 1, RH = 85% + /0.00429, 0.01109, 0.02833, 0.07182, 0.17299, 0.45137 & + ,0.68102, 0.80492, 0.84070, 0.77778, 0.79472, 0.84174 & + ,0.85738, 0.87524, 0.88720, 0.89890, 0.90901/ + + DATA(gasym(2,1,ib,7),ib=1,17) & ! Band 1, RH = 86% + /0.00443, 0.01146, 0.02930, 0.07433, 0.17934, 0.46568 & + ,0.68803, 0.80832, 0.84098, 0.77429, 0.79622, 0.83775 & + ,0.85839, 0.87731, 0.88912, 0.90004, 0.90992/ + + DATA(gasym(2,1,ib,8),ib=1,17) & ! Band 1, RH = 87% + /0.00458, 0.01187, 0.03038, 0.07715, 0.18650, 0.48106 & + ,0.69577, 0.81187, 0.84136, 0.77204, 0.79778, 0.84188 & + ,0.85927, 0.87715, 0.88897, 0.90059, 0.91080/ + + DATA(gasym(2,1,ib,9),ib=1,17) & ! Band 1, RH = 88% + /0.00474, 0.01233, 0.03160, 0.08035, 0.19467, 0.49758 & + ,0.70426, 0.81554, 0.84186, 0.77074, 0.79876, 0.84134 & + ,0.86155, 0.87740, 0.88984, 0.90067, 0.91104/ + + DATA(gasym(2,1,ib,10),ib=1,17) & ! Band 1, RH = 89% + /0.00493, 0.01285, 0.03300, 0.08403, 0.20411, 0.51526 & + ,0.71348, 0.81924, 0.84218, 0.76760, 0.80246, 0.83760 & + ,0.86210, 0.87828, 0.89180, 0.90254, 0.91217/ + + DATA(gasym(2,1,ib,11),ib=1,17) & ! Band 1, RH = 90% + /0.00515, 0.01346, 0.03463, 0.08832, 0.21519, 0.53402 & + ,0.72331, 0.82292, 0.84183, 0.76457, 0.80603, 0.84276 & + ,0.86685, 0.88147, 0.89038, 0.90348, 0.91312/ + + DATA(gasym(2,1,ib,12),ib=1,17) & ! Band 1, RH = 91% + /0.00540, 0.01417, 0.03655, 0.09340, 0.22839, 0.55361 & + ,0.73358, 0.82659, 0.84074, 0.76428, 0.80602, 0.84499 & + ,0.86246, 0.88025, 0.89539, 0.90508, 0.91456/ + + DATA(gasym(2,1,ib,13),ib=1,17) & ! Band 1, RH = 92% + /0.00570, 0.01502, 0.03885, 0.09953, 0.24443, 0.57363 & + ,0.74409, 0.83046, 0.83972, 0.76163, 0.81173, 0.84697 & + ,0.86430, 0.88460, 0.89655, 0.90649, 0.91561/ + + DATA(gasym(2,1,ib,14),ib=1,17) & ! Band 1, RH = 93% + /0.00606, 0.01605, 0.04167, 0.10709, 0.26435, 0.59349 & + ,0.75476, 0.83499, 0.83755, 0.76377, 0.81183, 0.84940 & + ,0.86876, 0.88303, 0.89586, 0.90712, 0.91671/ + + DATA(gasym(2,1,ib,15),ib=1,17) & ! Band 1, RH = 94% + /0.00651, 0.01735, 0.04522, 0.11669, 0.28982, 0.61262 & + ,0.76583, 0.84017, 0.83335, 0.76662, 0.81802, 0.85219 & + ,0.87428, 0.88685, 0.89767, 0.90890, 0.91803/ + + DATA(gasym(2,1,ib,16),ib=1,17) & ! Band 1, RH = 95% + /0.00707, 0.01902, 0.04987, 0.12941, 0.32355, 0.63113 & + ,0.77813, 0.84456, 0.82795, 0.77394, 0.82352, 0.85770 & + ,0.87246, 0.88918, 0.89986, 0.91026, 0.91965/ + + DATA(gasym(2,1,ib,17),ib=1,17) & ! Band 1, RH = 96% + /0.00782, 0.02128, 0.05627, 0.14722, 0.37024, 0.65138 & + ,0.79257, 0.84813, 0.81822, 0.78486, 0.82798, 0.86211 & + ,0.87779, 0.89235, 0.90157, 0.91211, 0.92155/ + + DATA(gasym(2,1,ib,18),ib=1,17) & ! Band 1, RH = 97% + /0.00888, 0.02459, 0.06582, 0.17448, 0.43773, 0.68085 & + ,0.80980, 0.85182, 0.80225, 0.80110, 0.84028, 0.86074 & + ,0.87985, 0.89430, 0.90479, 0.91487, 0.92395/ + + DATA(gasym(2,1,ib,19),ib=1,17) & ! Band 1, RH = 98% + /0.01054, 0.03001, 0.08207, 0.22284, 0.53416, 0.72946 & + ,0.82963, 0.85041, 0.77904, 0.81410, 0.84773, 0.86815 & + ,0.88704, 0.89885, 0.90826, 0.91792, 0.92692/ + + DATA(gasym(2,1,ib,20),ib=1,17) & ! Band 1, RH = 99% + /0.01363, 0.04120, 0.11833, 0.33813, 0.63653, 0.78644 & + ,0.84970, 0.82810, 0.78299, 0.82584, 0.86127, 0.87790 & + ,0.89090, 0.90419, 0.91355, 0.92296, 0.93167/ + + DATA(gasym(2,2,ib,1),ib=1,17) & ! Band 2, RH = 80% + /0.01683, 0.04331, 0.11050, 0.28850, 0.58369, 0.74438 & + ,0.81836, 0.80447, 0.73055, 0.77459, 0.81733, 0.83274 & + ,0.84863, 0.85917, 0.86360, 0.86843, 0.87242/ + + DATA(gasym(2,2,ib,2),ib=1,17) & ! Band 2, RH = 81% + /0.01733, 0.04452, 0.11345, 0.29658, 0.58950, 0.74770 & + ,0.82000, 0.80393, 0.73114, 0.77681, 0.81572, 0.83395 & + ,0.84796, 0.85772, 0.86497, 0.86979, 0.87284/ + + DATA(gasym(2,2,ib,3),ib=1,17) & ! Band 2, RH = 82% + /0.01781, 0.04572, 0.11661, 0.30519, 0.59529, 0.75111 & + ,0.82154, 0.80320, 0.73219, 0.78002, 0.81807, 0.83258 & + ,0.84681, 0.85543, 0.86543, 0.86948, 0.87340/ + + DATA(gasym(2,2,ib,4),ib=1,17) & ! Band 2, RH = 83% + /0.01830, 0.04701, 0.11999, 0.31444, 0.60112, 0.75462 & + ,0.82297, 0.80204, 0.73364, 0.78163, 0.82102, 0.83552 & + ,0.85075, 0.86037, 0.86432, 0.87073, 0.87386/ + + DATA(gasym(2,2,ib,5),ib=1,17) & ! Band 2, RH = 84% + /0.01882, 0.04839, 0.12366, 0.32443, 0.60705, 0.75828 & + ,0.82429, 0.80027, 0.73598, 0.78498, 0.81995, 0.83651 & + ,0.84904, 0.86013, 0.86590, 0.87096, 0.87431/ + + DATA(gasym(2,2,ib,6),ib=1,17) & ! Band 2, RH = 85% + /0.01938, 0.04989, 0.12767, 0.33533, 0.61318, 0.76211 & + ,0.82555, 0.79818, 0.73709, 0.79020, 0.82072, 0.83782 & + ,0.85120, 0.85892, 0.86730, 0.87137, 0.87490/ + + DATA(gasym(2,2,ib,7),ib=1,17) & ! Band 2, RH = 86% + /0.01999, 0.05154, 0.13211, 0.34732, 0.61962, 0.76613 & + ,0.82680, 0.79634, 0.73924, 0.79358, 0.82072, 0.83703 & + ,0.85285, 0.86039, 0.86798, 0.87179, 0.87546/ + + DATA(gasym(2,2,ib,8),ib=1,17) & ! Band 2, RH = 87% + /0.02067, 0.05338, 0.13709, 0.36063, 0.62650, 0.77037 & + ,0.82814, 0.79455, 0.74193, 0.79697, 0.82168, 0.84015 & + ,0.85140, 0.86180, 0.86834, 0.87270, 0.87592/ + + DATA(gasym(2,2,ib,9),ib=1,17) & ! Band 2, RH = 88% + /0.02142, 0.05545, 0.14272, 0.37552, 0.63402, 0.77485 & + ,0.82964, 0.79204, 0.74373, 0.80062, 0.82417, 0.84145 & + ,0.85418, 0.86192, 0.86840, 0.87302, 0.87660/ + + DATA(gasym(2,2,ib,10),ib=1,17) & ! Band 2, RH = 89% + /0.02228, 0.05780, 0.14920, 0.39230, 0.64240, 0.77962 & + ,0.83120, 0.78817, 0.74632, 0.80321, 0.82706, 0.84247 & + ,0.85506, 0.86377, 0.86879, 0.87357, 0.87728/ + + DATA(gasym(2,2,ib,11),ib=1,17) & ! Band 2, RH = 90% + /0.02325, 0.06052, 0.15673, 0.41130, 0.65193, 0.78473 & + ,0.83252, 0.78453, 0.74917, 0.80812, 0.82854, 0.84418 & + ,0.85751, 0.86304, 0.86906, 0.87449, 0.87800/ + + DATA(gasym(2,2,ib,12),ib=1,17) & ! Band 2, RH = 91% + /0.02439, 0.06372, 0.16566, 0.43288, 0.66296, 0.79028 & + ,0.83332, 0.78048, 0.75208, 0.80862, 0.83105, 0.84615 & + ,0.85732, 0.86441, 0.87112, 0.87513, 0.87846/ + + DATA(gasym(2,2,ib,13),ib=1,17) & ! Band 2, RH = 92% + /0.02574, 0.06753, 0.17642, 0.45740, 0.67579, 0.79633 & + ,0.83375, 0.77445, 0.75429, 0.81214, 0.83277, 0.84482 & + ,0.85741, 0.86581, 0.87219, 0.87577, 0.87908/ + + DATA(gasym(2,2,ib,14),ib=1,17) & ! Band 2, RH = 93% + /0.02736, 0.07218, 0.18969, 0.48504, 0.69060, 0.80288 & + ,0.83432, 0.76893, 0.75687, 0.81547, 0.83550, 0.84979 & + ,0.85766, 0.86814, 0.87204, 0.87633, 0.87988/ + + DATA(gasym(2,2,ib,15),ib=1,17) & ! Band 2, RH = 94% + /0.02936, 0.07799, 0.20652, 0.51569, 0.70721, 0.80974 & + ,0.83399, 0.76095, 0.76034, 0.81779, 0.83762, 0.85008 & + ,0.85854, 0.86772, 0.87350, 0.87779, 0.88050/ + + DATA(gasym(2,2,ib,16),ib=1,17) & ! Band 2, RH = 95% + /0.03190, 0.08551, 0.22871, 0.54865, 0.72499, 0.81699 & + ,0.83222, 0.75349, 0.76463, 0.81971, 0.83948, 0.85158 & + ,0.86297, 0.87029, 0.87469, 0.87837, 0.88158/ + + DATA(gasym(2,2,ib,17),ib=1,17) & ! Band 2, RH = 96% + /0.03528, 0.09574, 0.25954, 0.58256, 0.74341, 0.82556 & + ,0.82763, 0.74827, 0.77301, 0.82388, 0.84146, 0.85594 & + ,0.86309, 0.87077, 0.87590, 0.87981, 0.88261/ + + DATA(gasym(2,2,ib,18),ib=1,17) & ! Band 2, RH = 97% + /0.04004, 0.11070, 0.30572, 0.61709, 0.76374, 0.83377 & + ,0.81822, 0.74813, 0.78878, 0.82730, 0.84369, 0.85811 & + ,0.86754, 0.87232, 0.87738, 0.88085, 0.88399/ + + DATA(gasym(2,2,ib,19),ib=1,17) & ! Band 2, RH = 98% + /0.04746, 0.13545, 0.38245, 0.66046, 0.78895, 0.84005 & + ,0.79758, 0.75669, 0.81058, 0.83376, 0.84920, 0.86142 & + ,0.86888, 0.87447, 0.87917, 0.88238, 0.88522/ + + DATA(gasym(2,2,ib,20),ib=1,17) & ! Band 2, RH = 99% + /0.06134, 0.18747, 0.51997, 0.73291, 0.82151, 0.83610 & + ,0.75735, 0.77150, 0.82576, 0.84278, 0.85340, 0.86711 & + ,0.87323, 0.87765, 0.88149, 0.88446, 0.88713/ + + DATA(gasym(2,3,ib,1),ib=1,17) & ! Band 3, RH = 80% + /0.09028, 0.23390, 0.46961, 0.68055, 0.77385, 0.81365 & + ,0.76262, 0.72097, 0.80397, 0.82291, 0.83335, 0.84851 & + ,0.85630, 0.86067, 0.86496, 0.86700, 0.86879/ + + DATA(gasym(2,3,ib,2),ib=1,17) & ! Band 3, RH = 81% + /0.09305, 0.24036, 0.47702, 0.68471, 0.77665, 0.81460 & + ,0.76139, 0.72276, 0.80423, 0.82000, 0.83609, 0.84798 & + ,0.85289, 0.86159, 0.86407, 0.86804, 0.86939/ + + DATA(gasym(2,3,ib,3),ib=1,17) & ! Band 3, RH = 82% + /0.09572, 0.24669, 0.48469, 0.68890, 0.77955, 0.81541 & + ,0.75979, 0.72599, 0.80798, 0.82118, 0.83633, 0.84952 & + ,0.85691, 0.86219, 0.86498, 0.86836, 0.86999/ + + DATA(gasym(2,3,ib,4),ib=1,17) & ! Band 3, RH = 83% + /0.09841, 0.25336, 0.49265, 0.69317, 0.78244, 0.81583 & + ,0.75812, 0.72909, 0.80724, 0.82354, 0.83865, 0.84906 & + ,0.85590, 0.86321, 0.86591, 0.86857, 0.87033/ + + DATA(gasym(2,3,ib,5),ib=1,17) & ! Band 3, RH = 84% + /0.10129, 0.26041, 0.50094, 0.69756, 0.78538, 0.81662 & + ,0.75656, 0.73421, 0.80790, 0.82365, 0.84079, 0.85161 & + ,0.85758, 0.86258, 0.86634, 0.86915, 0.87093/ + + DATA(gasym(2,3,ib,6),ib=1,17) & ! Band 3, RH = 85% + /0.10440, 0.26793, 0.50964, 0.70212, 0.78843, 0.81709 & + ,0.75477, 0.73853, 0.80949, 0.82281, 0.84233, 0.84842 & + ,0.85731, 0.86385, 0.86704, 0.86945, 0.87143/ + + DATA(gasym(2,3,ib,7),ib=1,17) & ! Band 3, RH = 86% + /0.10780, 0.27598, 0.51878, 0.70693, 0.79167, 0.81744 & + ,0.75302, 0.74210, 0.80940, 0.82438, 0.84202, 0.84991 & + ,0.85835, 0.86463, 0.86746, 0.86990, 0.87171/ + + DATA(gasym(2,3,ib,8),ib=1,17) & ! Band 3, RH = 87% + /0.11154, 0.28468, 0.52844, 0.71205, 0.79497, 0.81768 & + ,0.75058, 0.74726, 0.80966, 0.82402, 0.84153, 0.85015 & + ,0.85866, 0.86446, 0.86818, 0.87067, 0.87227/ + + DATA(gasym(2,3,ib,9),ib=1,17) & ! Band 3, RH = 88% + /0.11573, 0.29412, 0.53869, 0.71758, 0.79852, 0.81734 & + ,0.74694, 0.75228, 0.81027, 0.82536, 0.84402, 0.85250 & + ,0.86083, 0.86555, 0.86870, 0.87120, 0.87285/ + + DATA(gasym(2,3,ib,10),ib=1,17) & ! Band 3, RH = 89% + /0.12046, 0.30444, 0.54964, 0.72354, 0.80224, 0.81720 & + ,0.74357, 0.75964, 0.81048, 0.82748, 0.84634, 0.85461 & + ,0.86036, 0.86708, 0.86947, 0.87178, 0.87323/ + + DATA(gasym(2,3,ib,11),ib=1,17) & ! Band 3, RH = 90% + /0.12590, 0.31578, 0.56142, 0.72983, 0.80579, 0.81699 & + ,0.73982, 0.76480, 0.81142, 0.82817, 0.84298, 0.85640 & + ,0.86317, 0.86679, 0.87007, 0.87243, 0.87392/ + + DATA(gasym(2,3,ib,12),ib=1,17) & ! Band 3, RH = 91% + /0.13222, 0.32835, 0.57429, 0.73649, 0.80936, 0.81594 & + ,0.73664, 0.77042, 0.81320, 0.82963, 0.84684, 0.85505 & + ,0.86363, 0.86739, 0.87048, 0.87279, 0.87444/ + + DATA(gasym(2,3,ib,13),ib=1,17) & ! Band 3, RH = 92% + /0.13971, 0.34241, 0.58859, 0.74353, 0.81298, 0.81400 & + ,0.73250, 0.77908, 0.81474, 0.83287, 0.84788, 0.85759 & + ,0.86347, 0.86788, 0.87134, 0.87374, 0.87492/ + + DATA(gasym(2,3,ib,14),ib=1,17) & ! Band 3, RH = 93% + /0.14874, 0.35842, 0.60473, 0.75111, 0.81661, 0.81155 & + ,0.72798, 0.78519, 0.81856, 0.83556, 0.84886, 0.85778 & + ,0.86367, 0.86874, 0.87203, 0.87436, 0.87543/ + + DATA(gasym(2,3,ib,15),ib=1,17) & ! Band 3, RH = 94% + /0.15990, 0.37718, 0.62322, 0.75973, 0.82003, 0.80769 & + ,0.72424, 0.79287, 0.82129, 0.83943, 0.85214, 0.86049 & + ,0.86633, 0.87005, 0.87296, 0.87494, 0.87633/ + + DATA(gasym(2,3,ib,16),ib=1,17) & ! Band 3, RH = 95% + /0.17410, 0.40022, 0.64446, 0.76933, 0.82368, 0.80243 & + ,0.72191, 0.80250, 0.82666, 0.84324, 0.85335, 0.86023 & + ,0.86645, 0.87120, 0.87388, 0.87565, 0.87709/ + + DATA(gasym(2,3,ib,17),ib=1,17) & ! Band 3, RH = 96% + /0.19289, 0.43017, 0.66811, 0.78087, 0.82737, 0.79334 & + ,0.72616, 0.81112, 0.83311, 0.84324, 0.85502, 0.86432 & + ,0.86835, 0.87185, 0.87464, 0.87662, 0.87780/ + + DATA(gasym(2,3,ib,18),ib=1,17) & ! Band 3, RH = 97% + /0.21911, 0.47083, 0.69366, 0.79592, 0.82979, 0.77907 & + ,0.73832, 0.81622, 0.83326, 0.84596, 0.85760, 0.86539 & + ,0.87008, 0.87354, 0.87586, 0.87724, 0.87857/ + + DATA(gasym(2,3,ib,19),ib=1,17) & ! Band 3, RH = 98% + /0.25817, 0.52647, 0.72383, 0.81342, 0.82758, 0.75498 & + ,0.76788, 0.81513, 0.83501, 0.84981, 0.85871, 0.86711 & + ,0.87169, 0.87480, 0.87680, 0.87850, 0.87944/ + + DATA(gasym(2,3,ib,20),ib=1,17) & ! Band 3, RH = 99% + /0.32054, 0.60325, 0.76351, 0.82916, 0.80845, 0.72768 & + ,0.80522, 0.83202, 0.84412, 0.85774, 0.86561, 0.86980 & + ,0.87372, 0.87640, 0.87834, 0.87969, 0.88053/ + + DATA(gasym(2,4,ib,1),ib=1,17) & ! Band 4, RH = 80% + /0.00002, 0.00006, 0.00015, 0.00039, 0.00093, 0.00236 & + ,0.00596, 0.01501, 0.03787, 0.09733, 0.26651, 0.58059 & + ,0.76358, 0.85096, 0.89449, 0.91873, 0.92950/ + + DATA(gasym(2,4,ib,2),ib=1,17) & ! Band 4, RH = 81% + /0.00002, 0.00006, 0.00016, 0.00040, 0.00096, 0.00243 & + ,0.00612, 0.01543, 0.03893, 0.10018, 0.27471, 0.58770 & + ,0.76704, 0.85241, 0.89521, 0.91890, 0.92941/ + + DATA(gasym(2,4,ib,3),ib=1,17) & ! Band 4, RH = 82% + /0.00002, 0.00006, 0.00016, 0.00041, 0.00099, 0.00250 & + ,0.00630, 0.01587, 0.04006, 0.10323, 0.28346, 0.59493 & + ,0.77054, 0.85388, 0.89595, 0.91907, 0.92933/ + + DATA(gasym(2,4,ib,4),ib=1,17) & ! Band 4, RH = 83% + /0.00003, 0.00007, 0.00017, 0.00043, 0.00102, 0.00257 & + ,0.00649, 0.01635, 0.04128, 0.10654, 0.29287, 0.60231 & + ,0.77411, 0.85540, 0.89672, 0.91925, 0.92925/ + + DATA(gasym(2,4,ib,5),ib=1,17) & ! Band 4, RH = 84% + /0.00003, 0.00007, 0.00017, 0.00044, 0.00105, 0.00265 & + ,0.00670, 0.01688, 0.04262, 0.11017, 0.30307, 0.60991 & + ,0.77778, 0.85696, 0.89753, 0.91944, 0.92917/ + + DATA(gasym(2,4,ib,6),ib=1,17) & ! Band 4, RH = 85% + /0.00003, 0.00007, 0.00018, 0.00045, 0.00108, 0.00274 & + ,0.00693, 0.01745, 0.04409, 0.11418, 0.31420, 0.61781 & + ,0.78157, 0.85860, 0.89837, 0.91964, 0.92910/ + + DATA(gasym(2,4,ib,7),ib=1,17) & ! Band 4, RH = 86% + /0.00003, 0.00007, 0.00018, 0.00047, 0.00112, 0.00284 & + ,0.00718, 0.01809, 0.04572, 0.11868, 0.32645, 0.62609 & + ,0.78551, 0.86032, 0.89926, 0.91985, 0.92903/ + + DATA(gasym(2,4,ib,8),ib=1,17) & ! Band 4, RH = 87% + /0.00003, 0.00007, 0.00019, 0.00049, 0.00117, 0.00296 & + ,0.00746, 0.01881, 0.04756, 0.12376, 0.34003, 0.63484 & + ,0.78964, 0.86216, 0.90021, 0.92007, 0.92896/ + + DATA(gasym(2,4,ib,9),ib=1,17) & ! Band 4, RH = 88% + /0.00003, 0.00008, 0.00020, 0.00051, 0.00122, 0.00308 & + ,0.00779, 0.01963, 0.04967, 0.12960, 0.35519, 0.64417 & + ,0.79402, 0.86412, 0.90122, 0.92032, 0.92891/ + + DATA(gasym(2,4,ib,10),ib=1,17) & ! Band 4, RH = 89% + /0.00003, 0.00008, 0.00021, 0.00053, 0.00128, 0.00323 & + ,0.00816, 0.02057, 0.05210, 0.13638, 0.37221, 0.65418 & + ,0.79868, 0.86623, 0.90230, 0.92058, 0.92886/ + + DATA(gasym(2,4,ib,11),ib=1,17) & ! Band 4, RH = 90% + /0.00003, 0.00008, 0.00022, 0.00056, 0.00134, 0.00340 & + ,0.00859, 0.02168, 0.05495, 0.14440, 0.39140, 0.66501 & + ,0.80369, 0.86852, 0.90347, 0.92087, 0.92882/ + + DATA(gasym(2,4,ib,12),ib=1,17) & ! Band 4, RH = 91% + /0.00003, 0.00009, 0.00023, 0.00059, 0.00142, 0.00360 & + ,0.00911, 0.02299, 0.05834, 0.15402, 0.41310, 0.67679 & + ,0.80911, 0.87101, 0.90473, 0.92119, 0.92880/ + + DATA(gasym(2,4,ib,13),ib=1,17) & ! Band 4, RH = 92% + /0.00004, 0.00009, 0.00025, 0.00063, 0.00152, 0.00385 & + ,0.00974, 0.02458, 0.06247, 0.16580, 0.43768, 0.68968 & + ,0.81498, 0.87378, 0.90609, 0.92155, 0.92880/ + + DATA(gasym(2,4,ib,14),ib=1,17) & ! Band 4, RH = 93% + /0.00004, 0.00010, 0.00026, 0.00068, 0.00164, 0.00415 & + ,0.01051, 0.02655, 0.06761, 0.18061, 0.46549, 0.70386 & + ,0.82136, 0.87688, 0.90758, 0.92196, 0.92881/ + + DATA(gasym(2,4,ib,15),ib=1,17) & ! Band 4, RH = 94% + /0.00004, 0.00011, 0.00029, 0.00074, 0.00179, 0.00454 & + ,0.01150, 0.02906, 0.07421, 0.19980, 0.49688, 0.71954 & + ,0.82832, 0.88039, 0.90922, 0.92244, 0.92886/ + + DATA(gasym(2,4,ib,16),ib=1,17) & ! Band 4, RH = 95% + /0.00004, 0.00012, 0.00032, 0.00082, 0.00198, 0.00505 & + ,0.01281, 0.03241, 0.08309, 0.22574, 0.53221, 0.73703 & + ,0.83608, 0.88442, 0.91102, 0.92300, 0.92895/ + + DATA(gasym(2,4,ib,17),ib=1,17) & ! Band 4, RH = 96% + /0.00005, 0.00013, 0.00036, 0.00093, 0.00226, 0.00577 & + ,0.01466, 0.03715, 0.09581, 0.26272, 0.57203, 0.75674 & + ,0.84497, 0.88915, 0.91304, 0.92369, 0.92911/ + + DATA(gasym(2,4,ib,18),ib=1,17) & ! Band 4, RH = 97% + /0.00006, 0.00016, 0.00042, 0.00110, 0.00269, 0.00688 & + ,0.01750, 0.04450, 0.11590, 0.31919, 0.61788, 0.77927 & + ,0.85536, 0.89489, 0.91538, 0.92457, 0.92935/ + + DATA(gasym(2,4,ib,19),ib=1,17) & ! Band 4, RH = 98% + /0.00007, 0.00019, 0.00052, 0.00140, 0.00343, 0.00885 & + ,0.02260, 0.05782, 0.15349, 0.41168, 0.67448, 0.80640 & + ,0.86838, 0.90202, 0.91820, 0.92575, 0.92975/ + + DATA(gasym(2,4,ib,20),ib=1,17) & ! Band 4, RH = 99% + /0.00009, 0.00026, 0.00075, 0.00208, 0.00522, 0.01365 & + ,0.03525, 0.09188, 0.25351, 0.56302, 0.75191, 0.84210 & + ,0.88706, 0.91128, 0.92206, 0.92754, 0.93046/ + + DATA(gasym(2,5,ib,1),ib=1,17) & ! Band 5, RH = 80% + /0.00005, 0.00013, 0.00034, 0.00087, 0.00209, 0.00528 & + ,0.01332, 0.03371, 0.08674, 0.23542, 0.56870, 0.77651 & + ,0.87177, 0.91307, 0.93289, 0.94285, 0.94791/ + + DATA(gasym(2,5,ib,2),ib=1,17) & ! Band 5, RH = 81% + /0.00005, 0.00014, 0.00035, 0.00090, 0.00214, 0.00542 & + ,0.01368, 0.03462, 0.08919, 0.24252, 0.57811, 0.78044 & + ,0.87338, 0.91371, 0.93313, 0.94287, 0.94784/ + + DATA(gasym(2,5,ib,3),ib=1,17) & ! Band 5, RH = 82% + /0.00005, 0.00014, 0.00036, 0.00092, 0.00220, 0.00557 & + ,0.01406, 0.03560, 0.09182, 0.25015, 0.58765, 0.78446 & + ,0.87502, 0.91437, 0.93337, 0.94289, 0.94777/ + + DATA(gasym(2,5,ib,4),ib=1,17) & ! Band 5, RH = 83% + /0.00006, 0.00015, 0.00037, 0.00095, 0.00227, 0.00573 & + ,0.01447, 0.03665, 0.09467, 0.25839, 0.59738, 0.78858 & + ,0.87669, 0.91504, 0.93362, 0.94292, 0.94770/ + + DATA(gasym(2,5,ib,5),ib=1,17) & ! Band 5, RH = 84% + /0.00006, 0.00015, 0.00038, 0.00098, 0.00233, 0.00591 & + ,0.01492, 0.03780, 0.09779, 0.26739, 0.60733, 0.79283 & + ,0.87842, 0.91574, 0.93387, 0.94295, 0.94763/ + + DATA(gasym(2,5,ib,6),ib=1,17) & ! Band 5, RH = 85% + /0.00006, 0.00015, 0.00040, 0.00101, 0.00241, 0.00610 & + ,0.01541, 0.03907, 0.10124, 0.27729, 0.61755, 0.79725 & + ,0.88021, 0.91646, 0.93414, 0.94298, 0.94756/ + + DATA(gasym(2,5,ib,7),ib=1,17) & ! Band 5, RH = 86% + /0.00006, 0.00016, 0.00041, 0.00104, 0.00250, 0.00631 & + ,0.01596, 0.04048, 0.10510, 0.28831, 0.62809, 0.80185 & + ,0.88208, 0.91722, 0.93442, 0.94302, 0.94749/ + + DATA(gasym(2,5,ib,8),ib=1,17) & ! Band 5, RH = 87% + /0.00006, 0.00017, 0.00042, 0.00108, 0.00259, 0.00656 & + ,0.01658, 0.04208, 0.10947, 0.30069, 0.63900, 0.80669 & + ,0.88403, 0.91803, 0.93472, 0.94307, 0.94742/ + + DATA(gasym(2,5,ib,9),ib=1,17) & ! Band 5, RH = 88% + /0.00007, 0.00017, 0.00044, 0.00113, 0.00270, 0.00683 & + ,0.01728, 0.04390, 0.11449, 0.31472, 0.65032, 0.81177 & + ,0.88609, 0.91888, 0.93504, 0.94312, 0.94735/ + + DATA(gasym(2,5,ib,10),ib=1,17) & ! Band 5, RH = 89% + /0.00007, 0.00018, 0.00046, 0.00118, 0.00282, 0.00715 & + ,0.01809, 0.04600, 0.12031, 0.33079, 0.66211, 0.81714 & + ,0.88827, 0.91979, 0.93538, 0.94319, 0.94729/ + + DATA(gasym(2,5,ib,11),ib=1,17) & ! Band 5, RH = 90% + /0.00007, 0.00019, 0.00048, 0.00124, 0.00297, 0.00752 & + ,0.01904, 0.04847, 0.12718, 0.34936, 0.67443, 0.82283 & + ,0.89059, 0.92077, 0.93575, 0.94326, 0.94722/ + + DATA(gasym(2,5,ib,12),ib=1,17) & ! Band 5, RH = 91% + /0.00007, 0.00020, 0.00051, 0.00131, 0.00314, 0.00796 & + ,0.02017, 0.05141, 0.13542, 0.37103, 0.68737, 0.82888 & + ,0.89306, 0.92184, 0.93616, 0.94336, 0.94716/ + + DATA(gasym(2,5,ib,13),ib=1,17) & ! Band 5, RH = 92% + /0.00008, 0.00021, 0.00054, 0.00139, 0.00335, 0.00849 & + ,0.02153, 0.05499, 0.14552, 0.39654, 0.70108, 0.83536 & + ,0.89571, 0.92301, 0.93661, 0.94347, 0.94711/ + + DATA(gasym(2,5,ib,14),ib=1,17) & ! Band 5, RH = 93% + /0.00008, 0.00022, 0.00058, 0.00150, 0.00360, 0.00915 & + ,0.02323, 0.05944, 0.15818, 0.42683, 0.71583, 0.84233 & + ,0.89861, 0.92429, 0.93711, 0.94360, 0.94706/ + + DATA(gasym(2,5,ib,15),ib=1,17) & ! Band 5, RH = 94% + /0.00009, 0.00024, 0.00063, 0.00163, 0.00393, 0.01000 & + ,0.02540, 0.06516, 0.17461, 0.46304, 0.73202, 0.84991 & + ,0.90180, 0.92572, 0.93768, 0.94377, 0.94702/ + + DATA(gasym(2,5,ib,16),ib=1,17) & ! Band 5, RH = 95% + /0.00010, 0.00026, 0.00070, 0.00180, 0.00436, 0.01111 & + ,0.02828, 0.07285, 0.19685, 0.50646, 0.75031, 0.85825 & + ,0.90536, 0.92733, 0.93833, 0.94398, 0.94701/ + + DATA(gasym(2,5,ib,17),ib=1,17) & ! Band 5, RH = 96% + /0.00011, 0.00030, 0.00078, 0.00205, 0.00496, 0.01268 & + ,0.03236, 0.08384, 0.22883, 0.55822, 0.77157, 0.86758 & + ,0.90937, 0.92918, 0.93911, 0.94425, 0.94701/ + + DATA(gasym(2,5,ib,18),ib=1,17) & ! Band 5, RH = 97% + /0.00012, 0.00034, 0.00092, 0.00241, 0.00588, 0.01510 & + ,0.03868, 0.10114, 0.27893, 0.61835, 0.79685, 0.87836 & + ,0.91411, 0.93139, 0.94007, 0.94462, 0.94706/ + + DATA(gasym(2,5,ib,19),ib=1,17) & ! Band 5, RH = 98% + /0.00015, 0.00042, 0.00114, 0.00305, 0.00751, 0.01941 & + ,0.05012, 0.13328, 0.36749, 0.68528, 0.82712, 0.89117 & + ,0.91994, 0.93414, 0.94132, 0.94514, 0.94719/ + + DATA(gasym(2,5,ib,20),ib=1,17) & ! Band 5, RH = 99% + /0.00019, 0.00057, 0.00165, 0.00454, 0.01142, 0.02999 & + ,0.07911, 0.21829, 0.54490, 0.76654, 0.86496, 0.90770 & + ,0.92785, 0.93794, 0.94316, 0.94596, 0.94746/ + + DATA(gasym(2,6,ib,1),ib=1,17) & ! Band 6, RH = 80% + /0.00015, 0.00039, 0.00099, 0.00253, 0.00603, 0.01522 & + ,0.03838, 0.09715, 0.25615, 0.63324, 0.78852, 0.87209 & + ,0.88964, 0.84120, 0.93843, 0.96156, 0.97038/ + + DATA(gasym(2,6,ib,2),ib=1,17) & ! Band 6, RH = 81% + /0.00015, 0.00040, 0.00102, 0.00259, 0.00619, 0.01564 & + ,0.03942, 0.09985, 0.26384, 0.64208, 0.79358, 0.87364 & + ,0.89017, 0.84265, 0.93975, 0.96205, 0.97071/ + + DATA(gasym(2,6,ib,3),ib=1,17) & ! Band 6, RH = 82% + /0.00016, 0.00041, 0.00105, 0.00267, 0.00636, 0.01608 & + ,0.04053, 0.10274, 0.27211, 0.65060, 0.79844, 0.87498 & + ,0.89055, 0.84462, 0.94109, 0.96251, 0.97103/ + + DATA(gasym(2,6,ib,4),ib=1,17) & ! Band 6, RH = 83% + /0.00016, 0.00042, 0.00108, 0.00274, 0.00655, 0.01655 & + ,0.04174, 0.10586, 0.28109, 0.65875, 0.80305, 0.87617 & + ,0.89083, 0.84727, 0.94241, 0.96298, 0.97134/ + + DATA(gasym(2,6,ib,5),ib=1,17) & ! Band 6, RH = 84% + /0.00017, 0.00043, 0.00111, 0.00283, 0.00675, 0.01707 & + ,0.04305, 0.10928, 0.29091, 0.66651, 0.80743, 0.87730 & + ,0.89111, 0.85019, 0.94369, 0.96344, 0.97163/ + + DATA(gasym(2,6,ib,6),ib=1,17) & ! Band 6, RH = 85% + /0.00017, 0.00045, 0.00115, 0.00292, 0.00698, 0.01764 & + ,0.04449, 0.11304, 0.30177, 0.67382, 0.81156, 0.87854 & + ,0.89151, 0.85308, 0.94491, 0.96392, 0.97192/ + + DATA(gasym(2,6,ib,7),ib=1,17) & ! Band 6, RH = 86% + /0.00018, 0.00046, 0.00119, 0.00302, 0.00723, 0.01827 & + ,0.04609, 0.11724, 0.31391, 0.68062, 0.81549, 0.88011 & + ,0.89199, 0.85652, 0.94615, 0.96443, 0.97220/ + + DATA(gasym(2,6,ib,8),ib=1,17) & ! Band 6, RH = 87% + /0.00018, 0.00048, 0.00123, 0.00314, 0.00750, 0.01898 & + ,0.04790, 0.12198, 0.32762, 0.68687, 0.81928, 0.88226 & + ,0.89225, 0.86119, 0.94743, 0.96499, 0.97248/ + + DATA(gasym(2,6,ib,9),ib=1,17) & ! Band 6, RH = 88% + /0.00019, 0.00050, 0.00128, 0.00327, 0.00782, 0.01978 & + ,0.04996, 0.12739, 0.34328, 0.69254, 0.82306, 0.88515 & + ,0.89195, 0.86634, 0.94871, 0.96562, 0.97276/ + + DATA(gasym(2,6,ib,10),ib=1,17) & ! Band 6, RH = 89% + /0.00020, 0.00052, 0.00134, 0.00342, 0.00818, 0.02071 & + ,0.05233, 0.13366, 0.36137, 0.69770, 0.82703, 0.88868 & + ,0.89111, 0.87203, 0.95005, 0.96634, 0.97304/ + + DATA(gasym(2,6,ib,11),ib=1,17) & ! Band 6, RH = 90% + /0.00021, 0.00054, 0.00140, 0.00359, 0.00861, 0.02180 & + ,0.05510, 0.14104, 0.38249, 0.70253, 0.83145, 0.89226 & + ,0.89044, 0.87947, 0.95156, 0.96718, 0.97335/ + + DATA(gasym(2,6,ib,12),ib=1,17) & ! Band 6, RH = 91% + /0.00022, 0.00057, 0.00148, 0.00380, 0.00911, 0.02308 & + ,0.05840, 0.14985, 0.40742, 0.70753, 0.83661, 0.89495 & + ,0.89006, 0.88727, 0.95321, 0.96813, 0.97368/ + + DATA(gasym(2,6,ib,13),ib=1,17) & ! Band 6, RH = 92% + /0.00023, 0.00061, 0.00158, 0.00405, 0.00972, 0.02464 & + ,0.06240, 0.16061, 0.43714, 0.71363, 0.84271, 0.89630 & + ,0.88865, 0.89695, 0.95518, 0.96918, 0.97402/ + + DATA(gasym(2,6,ib,14),ib=1,17) & ! Band 6, RH = 93% + /0.00024, 0.00065, 0.00169, 0.00435, 0.01046, 0.02657 & + ,0.06735, 0.17405, 0.47285, 0.72241, 0.84971, 0.89759 & + ,0.88628, 0.90700, 0.95756, 0.97026, 0.97436/ + + DATA(gasym(2,6,ib,15),ib=1,17) & ! Band 6, RH = 94% + /0.00026, 0.00070, 0.00184, 0.00474, 0.01142, 0.02902 & + ,0.07368, 0.19144, 0.51580, 0.73629, 0.85764, 0.90077 & + ,0.88342, 0.91813, 0.96038, 0.97128, 0.97471/ + + DATA(gasym(2,6,ib,16),ib=1,17) & ! Band 6, RH = 95% + /0.00029, 0.00077, 0.00202, 0.00525, 0.01268, 0.03227 & + ,0.08213, 0.21495, 0.56668, 0.75791, 0.86722, 0.90382 & + ,0.87974, 0.92950, 0.96351, 0.97218, 0.97507/ + + DATA(gasym(2,6,ib,17),ib=1,17) & ! Band 6, RH = 96% + /0.00032, 0.00086, 0.00229, 0.00596, 0.01444, 0.03685 & + ,0.09410, 0.24885, 0.62348, 0.78727, 0.87840, 0.90516 & + ,0.87546, 0.94040, 0.96647, 0.97308, 0.97546/ + + DATA(gasym(2,6,ib,18),ib=1,17) & ! Band 6, RH = 97% + /0.00036, 0.00099, 0.00268, 0.00703, 0.01713, 0.04389 & + ,0.11272, 0.30262, 0.67653, 0.81631, 0.88584, 0.90556 & + ,0.87435, 0.94957, 0.96848, 0.97415, 0.97586/ + + DATA(gasym(2,6,ib,19),ib=1,17) & ! Band 6, RH = 98% + /0.00043, 0.00121, 0.00334, 0.00890, 0.02188, 0.05646 & + ,0.14667, 0.40115, 0.71016, 0.83952, 0.89962, 0.90192 & + ,0.89116, 0.95652, 0.97015, 0.97506, 0.97630/ + + DATA(gasym(2,6,ib,20),ib=1,17) & ! Band 6, RH = 99% + /0.00055, 0.00167, 0.00480, 0.01323, 0.03325, 0.08738 & + ,0.23464, 0.60652, 0.78084, 0.87799, 0.90836, 0.88433 & + ,0.93891, 0.96699, 0.97369, 0.97604, 0.97682/ + + DATA(gasym(2,7,ib,1),ib=1,17) & ! Band 7, RH = 80% + /0.00012, 0.00032, 0.00081, 0.00206, 0.00492, 0.01242 & + ,0.03134, 0.07927, 0.20624, 0.54493, 0.75160, 0.86569 & + ,0.90725, 0.89738, 0.92787, 0.96496, 0.97336/ + + DATA(gasym(2,7,ib,2),ib=1,17) & ! Band 7, RH = 81% + /0.00013, 0.00033, 0.00083, 0.00212, 0.00505, 0.01276 & + ,0.03219, 0.08146, 0.21230, 0.55717, 0.75707, 0.86831 & + ,0.90831, 0.89791, 0.93035, 0.96570, 0.97367/ + + DATA(gasym(2,7,ib,3),ib=1,17) & ! Band 7, RH = 82% + /0.00013, 0.00033, 0.00085, 0.00217, 0.00519, 0.01312 & + ,0.03310, 0.08381, 0.21882, 0.56967, 0.76288, 0.87101 & + ,0.90938, 0.89839, 0.93276, 0.96644, 0.97397/ + + DATA(gasym(2,7,ib,4),ib=1,17) & ! Band 7, RH = 83% + /0.00013, 0.00034, 0.00088, 0.00224, 0.00534, 0.01351 & + ,0.03409, 0.08634, 0.22589, 0.58246, 0.76904, 0.87377 & + ,0.91049, 0.89892, 0.93513, 0.96716, 0.97427/ + + DATA(gasym(2,7,ib,5),ib=1,17) & ! Band 7, RH = 84% + /0.00014, 0.00035, 0.00091, 0.00231, 0.00551, 0.01393 & + ,0.03516, 0.08911, 0.23363, 0.59553, 0.77554, 0.87657 & + ,0.91164, 0.89960, 0.93757, 0.96787, 0.97458/ + + DATA(gasym(2,7,ib,6),ib=1,17) & ! Band 7, RH = 85% + /0.00014, 0.00036, 0.00094, 0.00238, 0.00569, 0.01439 & + ,0.03633, 0.09216, 0.24219, 0.60888, 0.78236, 0.87937 & + ,0.91278, 0.90033, 0.94001, 0.96859, 0.97489/ + + DATA(gasym(2,7,ib,7),ib=1,17) & ! Band 7, RH = 86% + /0.00015, 0.00038, 0.00097, 0.00247, 0.00589, 0.01491 & + ,0.03765, 0.09556, 0.25177, 0.62247, 0.78947, 0.88212 & + ,0.91387, 0.90095, 0.94245, 0.96930, 0.97520/ + + DATA(gasym(2,7,ib,8),ib=1,17) & ! Band 7, RH = 87% + /0.00015, 0.00039, 0.00100, 0.00256, 0.00612, 0.01549 & + ,0.03912, 0.09939, 0.26261, 0.63619, 0.79678, 0.88476 & + ,0.91489, 0.90152, 0.94495, 0.97000, 0.97552/ + + DATA(gasym(2,7,ib,9),ib=1,17) & ! Band 7, RH = 88% + /0.00016, 0.00041, 0.00104, 0.00267, 0.00638, 0.01615 & + ,0.04080, 0.10377, 0.27503, 0.64990, 0.80419, 0.88729 & + ,0.91592, 0.90236, 0.94742, 0.97069, 0.97584/ + + DATA(gasym(2,7,ib,10),ib=1,17) & ! Band 7, RH = 89% + /0.00016, 0.00042, 0.00109, 0.00279, 0.00667, 0.01691 & + ,0.04274, 0.10884, 0.28944, 0.66337, 0.81160, 0.88978 & + ,0.91707, 0.90341, 0.94999, 0.97138, 0.97618/ + + DATA(gasym(2,7,ib,11),ib=1,17) & ! Band 7, RH = 90% + /0.00017, 0.00044, 0.00114, 0.00293, 0.00702, 0.01779 & + ,0.04501, 0.11478, 0.30638, 0.67631, 0.81890, 0.89248 & + ,0.91832, 0.90460, 0.95251, 0.97206, 0.97651/ + + DATA(gasym(2,7,ib,12),ib=1,17) & ! Band 7, RH = 91% + /0.00018, 0.00047, 0.00121, 0.00310, 0.00743, 0.01884 & + ,0.04770, 0.12188, 0.32660, 0.68839, 0.82604, 0.89574 & + ,0.91935, 0.90627, 0.95509, 0.97273, 0.97685/ + + DATA(gasym(2,7,ib,13),ib=1,17) & ! Band 7, RH = 92% + /0.00019, 0.00049, 0.00128, 0.00330, 0.00793, 0.02012 & + ,0.05096, 0.13052, 0.35111, 0.69940, 0.83315, 0.89978 & + ,0.92009, 0.90837, 0.95765, 0.97340, 0.97719/ + + DATA(gasym(2,7,ib,14),ib=1,17) & ! Band 7, RH = 93% + /0.00020, 0.00053, 0.00138, 0.00355, 0.00854, 0.02169 & + ,0.05500, 0.14129, 0.38140, 0.70944, 0.84056, 0.90424 & + ,0.92108, 0.91157, 0.96021, 0.97409, 0.97754/ + + DATA(gasym(2,7,ib,15),ib=1,17) & ! Band 7, RH = 94% + /0.00021, 0.00057, 0.00150, 0.00387, 0.00931, 0.02369 & + ,0.06017, 0.15518, 0.41954, 0.71947, 0.84878, 0.90832 & + ,0.92171, 0.91604, 0.96280, 0.97481, 0.97790/ + + DATA(gasym(2,7,ib,16),ib=1,17) & ! Band 7, RH = 95% + /0.00023, 0.00063, 0.00165, 0.00428, 0.01034, 0.02635 & + ,0.06706, 0.17388, 0.46850, 0.73214, 0.85832, 0.91235 & + ,0.92184, 0.92243, 0.96547, 0.97559, 0.97827/ + + DATA(gasym(2,7,ib,17),ib=1,17) & ! Band 7, RH = 96% + /0.00026, 0.00070, 0.00186, 0.00486, 0.01178, 0.03010 & + ,0.07680, 0.20073, 0.53176, 0.75268, 0.87005, 0.91715 & + ,0.92147, 0.93142, 0.96834, 0.97643, 0.97867/ + + DATA(gasym(2,7,ib,18),ib=1,17) & ! Band 7, RH = 97% + /0.00029, 0.00081, 0.00218, 0.00574, 0.01398, 0.03585 & + ,0.09192, 0.24320, 0.61010, 0.78691, 0.88521, 0.92196 & + ,0.92012, 0.94321, 0.97149, 0.97729, 0.97910/ + + DATA(gasym(2,7,ib,19),ib=1,17) & ! Band 7, RH = 98% + /0.00035, 0.00099, 0.00272, 0.00726, 0.01786, 0.04611 & + ,0.11935, 0.32192, 0.68801, 0.82792, 0.89941, 0.92626 & + ,0.91876, 0.95653, 0.97455, 0.97825, 0.97957/ + + DATA(gasym(2,7,ib,20),ib=1,17) & ! Band 7, RH = 99% + /0.00045, 0.00136, 0.00392, 0.01080, 0.02716, 0.07134 & + ,0.18956, 0.51157, 0.74833, 0.86898, 0.91861, 0.92646 & + ,0.93225, 0.96876, 0.97709, 0.97928, 0.98014/ + + DATA(gasym(2,8,ib,1),ib=1,17) & ! Band 8, RH = 80% + /0.00042, 0.00108, 0.00277, 0.00703, 0.01674, 0.04215 & + ,0.10638, 0.27864, 0.61643, 0.76936, 0.84399, 0.83886 & + ,0.79308, 0.88396, 0.92410, 0.94751, 0.96205/ + + DATA(gasym(2,8,ib,2),ib=1,17) & ! Band 8, RH = 81% + /0.00043, 0.00111, 0.00284, 0.00722, 0.01719, 0.04329 & + ,0.10931, 0.28684, 0.62246, 0.77267, 0.84581, 0.83798 & + ,0.79638, 0.88633, 0.92539, 0.94838, 0.96257/ + + DATA(gasym(2,8,ib,3),ib=1,17) & ! Band 8, RH = 82% + /0.00044, 0.00114, 0.00292, 0.00742, 0.01767, 0.04451 & + ,0.11246, 0.29563, 0.62835, 0.77607, 0.84764, 0.83719 & + ,0.80023, 0.88856, 0.92659, 0.94927, 0.96307/ + + DATA(gasym(2,8,ib,4),ib=1,17) & ! Band 8, RH = 83% + /0.00045, 0.00117, 0.00300, 0.00764, 0.01819, 0.04583 & + ,0.11586, 0.30513, 0.63414, 0.77959, 0.84941, 0.83661 & + ,0.80440, 0.89104, 0.92778, 0.95020, 0.96356/ + + DATA(gasym(2,8,ib,5),ib=1,17) & ! Band 8, RH = 84% + /0.00047, 0.00121, 0.00309, 0.00787, 0.01876, 0.04726 & + ,0.11956, 0.31548, 0.63991, 0.78328, 0.85105, 0.83614 & + ,0.80821, 0.89378, 0.92893, 0.95117, 0.96405/ + + DATA(gasym(2,8,ib,6),ib=1,17) & ! Band 8, RH = 85% + /0.00048, 0.00125, 0.00319, 0.00813, 0.01938, 0.04884 & + ,0.12365, 0.32687, 0.64572, 0.78721, 0.85251, 0.83539 & + ,0.81239, 0.89631, 0.93011, 0.95221, 0.96454/ + + DATA(gasym(2,8,ib,7),ib=1,17) & ! Band 8, RH = 86% + /0.00050, 0.00129, 0.00330, 0.00841, 0.02006, 0.05059 & + ,0.12821, 0.33953, 0.65170, 0.79140, 0.85379, 0.83394 & + ,0.81771, 0.89904, 0.93126, 0.95330, 0.96505/ + + DATA(gasym(2,8,ib,8),ib=1,17) & ! Band 8, RH = 87% + /0.00051, 0.00133, 0.00343, 0.00873, 0.02084, 0.05255 & + ,0.13334, 0.35372, 0.65797, 0.79588, 0.85494, 0.83181 & + ,0.82321, 0.90209, 0.93253, 0.95442, 0.96558/ + + DATA(gasym(2,8,ib,9),ib=1,17) & ! Band 8, RH = 88% + /0.00053, 0.00139, 0.00357, 0.00910, 0.02171, 0.05479 & + ,0.13921, 0.36977, 0.66473, 0.80066, 0.85614, 0.82981 & + ,0.82836, 0.90478, 0.93393, 0.95555, 0.96613/ + + DATA(gasym(2,8,ib,10),ib=1,17) & ! Band 8, RH = 89% + /0.00055, 0.00145, 0.00372, 0.00951, 0.02272, 0.05737 & + ,0.14600, 0.38809, 0.67226, 0.80574, 0.85762, 0.82801 & + ,0.83483, 0.90789, 0.93556, 0.95663, 0.96668/ + + DATA(gasym(2,8,ib,11),ib=1,17) & ! Band 8, RH = 90% + /0.00058, 0.00151, 0.00391, 0.01000, 0.02390, 0.06038 & + ,0.15397, 0.40914, 0.68090, 0.81113, 0.85946, 0.82520 & + ,0.84143, 0.91059, 0.93750, 0.95768, 0.96724/ + + DATA(gasym(2,8,ib,12),ib=1,17) & ! Band 8, RH = 91% + /0.00061, 0.00159, 0.00413, 0.01057, 0.02530, 0.06395 & + ,0.16349, 0.43345, 0.69111, 0.81690, 0.86129, 0.82161 & + ,0.84824, 0.91334, 0.93976, 0.95874, 0.96783/ + + DATA(gasym(2,8,ib,13),ib=1,17) & ! Band 8, RH = 92% + /0.00064, 0.00169, 0.00439, 0.01126, 0.02698, 0.06827 & + ,0.17509, 0.46158, 0.70337, 0.82320, 0.86247, 0.81832 & + ,0.85560, 0.91596, 0.94228, 0.95995, 0.96841/ + + DATA(gasym(2,8,ib,14),ib=1,17) & ! Band 8, RH = 93% + /0.00068, 0.00181, 0.00471, 0.01211, 0.02905, 0.07363 & + ,0.18956, 0.49400, 0.71804, 0.83009, 0.86306, 0.81357 & + ,0.86282, 0.91842, 0.94481, 0.96132, 0.96900/ + + DATA(gasym(2,8,ib,15),ib=1,17) & ! Band 8, RH = 94% + /0.00073, 0.00195, 0.00511, 0.01319, 0.03169, 0.08045 & + ,0.20822, 0.53074, 0.73500, 0.83727, 0.86354, 0.81046 & + ,0.87059, 0.92103, 0.94724, 0.96273, 0.96963/ + + DATA(gasym(2,8,ib,16),ib=1,17) & ! Band 8, RH = 95% + /0.00079, 0.00214, 0.00564, 0.01461, 0.03518, 0.08953 & + ,0.23336, 0.57082, 0.75331, 0.84405, 0.86235, 0.80778 & + ,0.87889, 0.92489, 0.94989, 0.96424, 0.97027/ + + DATA(gasym(2,8,ib,17),ib=1,17) & ! Band 8, RH = 96% + /0.00088, 0.00240, 0.00637, 0.01658, 0.04007, 0.10235 & + ,0.26934, 0.61137, 0.77194, 0.85153, 0.86012, 0.81003 & + ,0.88820, 0.93077, 0.95327, 0.96583, 0.97092/ + + DATA(gasym(2,8,ib,18),ib=1,17) & ! Band 8, RH = 97% + /0.00100, 0.00277, 0.00745, 0.01956, 0.04752, 0.12218 & + ,0.32554, 0.64888, 0.79263, 0.86063, 0.85335, 0.82235 & + ,0.90136, 0.93724, 0.95670, 0.96759, 0.97157/ + + DATA(gasym(2,8,ib,19),ib=1,17) & ! Band 8, RH = 98% + /0.00119, 0.00339, 0.00930, 0.02474, 0.06069, 0.15804 & + ,0.42407, 0.69110, 0.81948, 0.86729, 0.83686, 0.85109 & + ,0.91734, 0.94330, 0.96135, 0.96946, 0.97224/ + + DATA(gasym(2,8,ib,20),ib=1,17) & ! Band 8, RH = 99% + /0.00154, 0.00466, 0.01338, 0.03675, 0.09234, 0.24911 & + ,0.59662, 0.76793, 0.85173, 0.86554, 0.81500, 0.88824 & + ,0.93140, 0.95415, 0.96660, 0.97150, 0.97288/ + +! gasym for Mineral Dust: + DATA(gasym(3,1,ib,1),ib=1,17) & ! Band 1, All RH's + /0.00107, 0.00268, 0.00676, 0.01699, 0.04264, 0.10747 & + ,0.28301, 0.61817, 0.76309, 0.83417, 0.83819, 0.85421 & + ,0.88159, 0.89181, 0.92795, 0.95285, 0.96718/ + + DATA(gasym(3,2,ib,1),ib=1,17) & ! Band 2, All RH's + /0.00490, 0.01231, 0.03085, 0.07719, 0.19842, 0.50460 & + ,0.66831, 0.73464, 0.68896, 0.72559, 0.77863, 0.83901 & + ,0.87691, 0.91052, 0.93413, 0.94697, 0.95155/ + + DATA(gasym(3,3,ib,1),ib=1,17) & ! Band 3, All RH's + /0.02390, 0.05985, 0.15098, 0.36031, 0.58493, 0.69319 & + ,0.71724, 0.63499, 0.74390, 0.80146, 0.84751, 0.88670 & + ,0.91730, 0.93703, 0.94596, 0.94845, 0.94879/ + + DATA(gasym(3,4,ib,1),ib=1,17) & ! Band 4, All RH's + /0.00001, 0.00002, 0.00005, 0.00011, 0.00029, 0.00073 & + ,0.00183, 0.00461, 0.01159, 0.02909, 0.07352, 0.19723 & + ,0.49168, 0.66569, 0.75801, 0.84784, 0.87389/ + + DATA(gasym(3,5,ib,1),ib=1,17) & ! Band 5, All RH's + /0.00002, 0.00004, 0.00010, 0.00026, 0.00065, 0.00165 & + ,0.00415, 0.01043, 0.02617, 0.06562, 0.16892, 0.46511 & + ,0.67484, 0.78564, 0.77736, 0.89280, 0.91936/ + + DATA(gasym(3,6,ib,1),ib=1,17) & ! Band 6, All RH's + /0.00004, 0.00011, 0.00026, 0.00067, 0.00169, 0.00426 & + ,0.01071, 0.02690, 0.06781, 0.17736, 0.50452, 0.71737 & + ,0.82994, 0.88285, 0.92003, 0.94431, 0.95420/ + + DATA(gasym(3,7,ib,1),ib=1,17) & ! Band 7, All RH's + /0.00004, 0.00010, 0.00025, 0.00064, 0.00160, 0.00403 & + ,0.01014, 0.02545, 0.06394, 0.16706, 0.49135, 0.67547 & + ,0.75696, 0.82304, 0.89691, 0.91021, 0.91682/ + + DATA(gasym(3,8,ib,1),ib=1,17) & ! Band 8, All RH's + /0.00011, 0.00027, 0.00069, 0.00173, 0.00436, 0.01087 & + ,0.02761, 0.06953, 0.17772, 0.45807, 0.71820, 0.84603 & + ,0.90347, 0.91302, 0.90597, 0.94409, 0.96733/ + +! Returning value for gasym: + value = gasym(aerotype,radband,bin,rh) + +return +END SUBROUTINE aerogasym diff --git a/src/6.2.16/radiate/rad_ccmp.f90 b/src/6.2.16/radiate/rad_ccmp.f90 new file mode 100644 index 0000000..dfb2f38 --- /dev/null +++ b/src/6.2.16/radiate/rad_ccmp.f90 @@ -0,0 +1,899 @@ +!############################################################################## +Subroutine lwradc (NZPP,RVR,RTR,DN0R,TEMPRD,PRD,PIRD,DZZR,FTHR,RLONG & + ,SCR1,SCR2,SCR3,VPR,DMR,CO2,CLD,UF1,UF2,DF1 & + ,DF2,EM1,EM2,BB1,BB2) + +!-------------------------------------------------------------------- +! Longwave radiation parameterization based on Rodgers and +! Stephens and discussed in Chen and Cotton (1983). First written +! by Chen, later modified by Bjorn. All variables are in cgs so +! as to confuse people. +! +! Upward and downward fluxes will be calculated at w points while +! the heating rates will be at thermo points. The routine takes as +! input the first five arrays passed in: +! RVR ......... vapor mixing ratio +! RTR ......... total water mixing ratio +! DN0R ........ density in (cgs units) +! TEMPRD ...... temperature in K (TEMPRD(1) is surface temperature) +! PRD ......... pressure at thermo points in (cgs units) +! PIRD - Exner func (p/p00)**(R/Cp) at each level +! DZTR ........ inverse distance between w points (cgs units) +! +! and uses the following 17 entries as output or scratch space. +! +! FTHRL ....... longwave heating rate at w point (K/s) +! RLONG ....... net flux into ground (or lowest level) +! BB1 ......... source func for water vapor +! BB2 ......... source func for CO2 +! VPR ......... water vapor path +! DMR ......... water vapor path * vapor pressure for dimer correction +! CO2 ......... CO2 path +! CLD ......... liquid water path +! EM1 & 2 ..... scratch arrays for emissivities +! SCR1 2 & 3 .. general scratch arrays +! FU1,FU2 ..... upwelling fluxes (1-vapor) (2-CO2) +! FD1,FD2 ..... downwelling fluxes (1-vapor) (2-CO2) +!-------------------------------------------------------------------- + +implicit none + +INTEGER NZPP +REAL RVR(NZPP),RTR(NZPP),DN0R(NZPP),PRD(NZPP),TEMPRD(NZPP) +REAL FTHR(NZPP),DZZR(NZPP),RLONG +REAL SCR1(NZPP),SCR2(NZPP),SCR3(NZPP),PIRD(NZPP) +REAL VPR(NZPP),DMR(NZPP),CO2(NZPP),CLD(NZPP) +REAL UF1(NZPP),UF2(NZPP),DF1(NZPP),DF2(NZPP) +REAL EM1(NZPP),EM2(NZPP),BB1(NZPP),BB2(NZPP) + +REAL PATH_FACT,PRES_WGHT,SIGMAT_FACT,TRANS +REAL STEFAN,X,G,SX2,SX1,FHL,RCO2,CP +INTEGER K,KK,KL,NZ,NZP,LCLDBS,LCLDTP +SAVE +! +! Water vapor band. The vibration rotation and continuum effects +! of the water vapor are considered. +! +REAL AD(4),BD(5),AU(4),BU(5),EU(5),ED(5) +REAL C11,C21,C31,C02,C12,C22,C32,B1,B2,BNDWID,BNDI +DATA AD/8.857,-332.8,14607.,-261900./ +DATA BD/.6558,.12175,1.4976E-2,1.4981E-3,.49E-4/ +DATA AU/9.329,-446.4,824,259700./ +DATA BU/.5983,.15068,3.4041E-2,6.5535E-3,4.887E-4/ +DATA EU/.21699,-9.185E-2,-7.971E-2,-1.502E-2,-8.754E-4/ +DATA ED/.2837,-.1231,-.1057,-.0199,-1.16E-3/ +DATA B1,B2/7.345,142.47/ +DATA C11,C21,C31/160.87,-326.5,-158.22/ +DATA C02,C12,C22,C32/74.103,19.632,0.821,-0.11834/ +DATA BNDWID/200./ +! +! the CO2 concentration is assumed to be 330 ppm from surface to 40km: +! CO2(K) = 330./1000.*(44.011/28.966)*(22415./44.011) +! also downwelling flux at top of model is given by FHL +! +DATA RCO2/.25537/,FHL/0./ +DATA CP/1.004E7/,STEFAN/5.6696E-5/,G/980./ +! +NZP=NZPP-1 +NZ=NZP-1 +BNDI=1./BNDWID +! +! calculation of optical path lengths +! +DO K=2,NZ + PRES_WGHT=(PRD(K)/1.01325E6)**.86 + PATH_FACT=PRES_WGHT*DN0R(K)/DZZR(K) + VPR(K)= RVR(K)*PATH_FACT + CLD(K)=(RTR(K)-RVR(K))*PATH_FACT + DMR(K)=VPR(K)*PRD(K)*RVR(K)/(.622*1.01325E6) + CO2(K)=RCO2*PATH_FACT +ENDDO +VPR(NZP)=VPR(NZ) +VPR(NZPP)=VPR(NZ) +CLD(NZP)=0. +CLD(NZPP)=0. +DMR(NZP)=DMR(NZ) +DMR(NZPP)=DMR(NZ) +CO2(NZP)=CO2(NZ) +CO2(NZPP)=RCO2*PRD(NZP)/G +! +! computation of black body source func with weightings given +! by sigma t factor of 0.87*(1/567-1/767)*TEMP +! +DO K=1,NZP + SIGMAT_FACT=.0004001*TEMPRD(K) + BB1(K)=STEFAN*TEMPRD(K)**4*(1.-SIGMAT_FACT) + BB2(K)=BB1(K)*SIGMAT_FACT/(1.-SIGMAT_FACT) +ENDDO +BB1(NZPP)=BB1(NZP) +BB2(NZPP)=BB2(NZP) +UF1(1)=BB1(1) +UF2(1)=BB2(1) +! +! here the level of the lowest and highest cloud levels are computed +! so as to control the region for which mixed emmissivities need be +! computed +! +LCLDBS=NZPP+1 +LCLDTP=0 +DO K=1,NZP + IF(RTR(K)-RVR(K).GT.0.)LCLDBS=MIN(K,LCLDBS) + IF(RTR(K)-RVR(K).GT.0.)LCLDTP=MAX(K,LCLDTP) +ENDDO +! +! ----------------------------- Upward computations +! +EM1(1)=0. +EM2(1)=0. +DO K=2,NZP +! +! Sum the vapor, dimer corrected vapor and co2 path lengths for use +! in the emissivity polynomial fits +! + SCR1(1)=0. + SCR2(1)=0. + SCR3(1)=0. + DO KK=2,K + SCR1(KK)=SCR1(KK-1)+VPR(K-KK+2) + SCR2(KK)=SCR2(KK-1)+DMR(K-KK+2) + SCR3(KK)=SCR3(KK-1)+CO2(K-KK+2) + ENDDO +! +! Find level of path length of 1E-3 gm/cm^2 and compute upward +! emissivities for water vapor. store in array indexed IUE1 +! + DO KK=2,K + IF(SCR1(KK).GT.1.E-3)GO TO 23 + ENDDO + KL=K+1 + GO TO 24 +23 KL=KK +24 CONTINUE + + DO KK=2,KL-1 + X=SQRT(SCR1(KK)) + EM1(KK)=X*(AU(1)+X*(AU(2)+X*(AU(3)+X*AU(4)))) + ENDDO + DO KK=KL,K + X=LOG(SCR1(KK)) + EM1(KK)=BU(1)+X*(BU(2)+X*(BU(3)+X*(BU(4)+X*BU(5)))) + ENDDO +! +! Correct vapor emissivities for dimer path length +! + DO KK=2,K + IF(SCR2(KK).GT.1E-3)GO TO 33 + ENDDO + GO TO 34 +33 KL=KK + + DO KK=KL,K + X=LOG(MIN(1.,SCR2(KK))) + EM1(KK)=EM1(KK) & + +EU(1)+X*(EU(2)+X*(EU(3)+X*(EU(4)+X*EU(5)))) + EM1(KK)=MIN(1.,EM1(KK)) + ENDDO +34 CONTINUE +! +! Compute upward emissivities for CO2, storing in IUE2, again finding +! the level of the critical path length +! + DO KK=2,K + IF(SCR3(KK).GT.1.E-2)GO TO 43 + ENDDO + KL=K+1 + GO TO 44 +43 KL=KK +44 CONTINUE + + DO KK=2,KL-1 + X=SQRT(SCR3(KK)) + EM2(KK)=1.-(X*(C11+X*(C21+X*C31)))*BNDI + ENDDO + DO KK=KL,K + X=LOG(SCR3(KK)) + EM2(KK)=1.-(C02+X*(C12+X*(C22+X*C32)))*BNDI + ENDDO +! +! Calculate the CO2-H2O overlap emissivity using the transmittance of +! water vapor given by the exponential form +! + DO KK=2,K + TRANS=EXP(-B1*SCR1(KK)/SQRT(1.+B2*SCR1(KK))) + EM2(KK)=1.-EM2(KK)*TRANS + ENDDO +! +! if at a level greater than that of the lowest cloud compute upward +! emissivity for clouds and mixed emissivities as per Goody. +! + IF(K.GE.LCLDBS)THEN + SCR1(1)=0. + DO KK=2,K + SCR1(KK)=SCR1(KK-1)+CLD(K-KK+2) + SCR2(KK)=1.-EXP(-.13E4*SCR1(KK)) + ENDDO + DO KK=2,K + EM1(KK)=1.-(1.-EM1(KK))*(1.-SCR2(KK)) + EM2(KK)=1.-(1.-EM2(KK))*(1.-SCR2(KK)) + ENDDO + ENDIF +! +! compute terms in (RTE), yielding net upward fluxes +! + SX1=0. + SX2=0. + DO KK=2,K + SX1 = SX1 + BB1(K-KK+2)*(EM1(KK)-EM1(KK-1)) + SX2 = SX2 + BB2(K-KK+2)*(EM2(KK)-EM2(KK-1)) + ENDDO +! + UF1(K)=UF1(1)*(1.-EM1(K))+SX1 + UF2(K)=UF2(1)*(1.-EM2(K))+SX2 +ENDDO +! +! ----------------------------- Downward computations +! +EM1(1)=0. +EM2(1)=0. +DO K=1,NZP +! +! Sum the vapor, dimer corrected vapor and co2 path lengths for use +! in the emissivity polynomial fits +! + SCR1(1)=0. + SCR2(1)=0. + SCR3(1)=0. + DO KK=2,K+1 + SCR1(KK)=SCR1(KK-1)+VPR(KK-K+NZP) + SCR2(KK)=SCR2(KK-1)+DMR(KK-K+NZP) + SCR3(KK)=SCR3(KK-1)+CO2(KK-K+NZP) + ENDDO +! +! Find level of path length of 1E-3 gm/cm^2 and compute upward +! emissivities for water vapor. store in array indexed IDE1 +! + DO KK=2,K+1 + IF(SCR1(KK).GT.1.E-3)GO TO 123 + ENDDO + KL=K+2 + GO TO 124 +123 CONTINUE + KL=KK +124 CONTINUE + + + DO KK=2,KL-1 + X=SQRT(SCR1(KK)) + EM1(KK)=X*(AD(1)+X*(AD(2)+X*(AD(3)+X*AD(4)))) + ENDDO + DO KK=KL,K+1 + X=LOG(SCR1(KK)) + EM1(KK)=BD(1)+X*(BD(2)+X*(BD(3)+X*(BD(4)+X*BD(5)))) + ENDDO +! +! Correct vapor emissivities for dimer path length +! + DO KK=2,K+1 + IF(SCR2(KK).GT.1E-3)GO TO 133 + ENDDO + GO TO 134 +133 KL=KK +! + + DO KK=KL,K+1 + X=LOG(MIN(1.,SCR2(KK))) + EM1(KK)=EM1(KK) & + +ED(1)+X*(ED(2)+X*(ED(3)+X*(ED(4)+X*ED(5)))) + EM1(KK)=MIN(1.,EM1(KK)) + ENDDO +134 CONTINUE +! +! Compute upward emissivities for CO2, storing in IUE2, again finding +! the level of the critical path length +! + DO KK=2,K+1 + IF(SCR3(KK).GT.1.E-2)GO TO 143 + ENDDO + KL=K+2 + GO TO 144 +143 CONTINUE + KL=KK +144 CONTINUE + + DO KK=2,KL-1 + X=SQRT(SCR3(KK)) + EM2(KK)=1.-(X*(C11+X*(C21+X*C31)))*BNDI + ENDDO + DO KK=KL,K+1 + X=LOG(SCR3(KK)) + EM2(KK)=1.-(C02+X*(C12+X*(C22+X*C32)))*BNDI + ENDDO +! +! Calculate the CO2-H2O overlap emissivity using the transmittance of +! water vapor given by the exponential form +! + DO KK=2,K+1 + TRANS=EXP(-B1*SCR1(KK)/SQRT(1.+B2*SCR1(KK))) + EM2(KK)=1.-EM2(KK)*TRANS + ENDDO +! +! if at a level less than that of the highest cloud compute downward +! emissivity for clouds and mixed emissivity as per Goody. +! + IF(NZP+2-K.LE.LCLDTP)THEN + SCR1(1)=0. + DO KK=2,K+1 + SCR1(KK)=SCR1(KK-1)+CLD(KK-K+NZP) + SCR2(KK)=1.-EXP(-.158E4*SCR1(KK)) + ENDDO + DO KK=2,K+1 + EM1(KK)=1.-(1.-EM1(KK))*(1.-SCR2(KK)) + EM2(KK)=1.-(1.-EM2(KK))*(1.-SCR2(KK)) + ENDDO + ENDIF +! +! compute terms in radiative transfer equation +! + SX1=0. + SX2=0. + DO KK=2,K+1 + SX1 = SX1 + BB1(KK-K+NZP)*(EM1(KK)-EM1(KK-1)) + SX2 = SX2 + BB2(KK-K+NZP)*(EM2(KK)-EM2(KK-1)) + ENDDO +! +! Compute downward fluxes for water vapor (iuf1) and co2 (iuf2) +! + DF1(NZPP-K)=FHL*(1.-EM1(K+1))+SX1 + DF2(NZPP-K)=FHL*(1.-EM2(K+1))+SX2 +ENDDO +! +! ----------------------------- Net flux & heating rates +! +DO K=1,NZP + SCR1(K)=UF1(K)-DF1(K)+UF2(K)-DF2(K) +ENDDO +DO K=2,NZP + FTHR(K)=-(SCR1(K)-SCR1(K-1))*DZZR(K)/(CP*DN0R(K)*PIRD(K)) +ENDDO +RLONG=DF1(1)+DF2(1) + +return +END SUBROUTINE lwradc + +!############################################################################## +Subroutine shradp (NZP,RVR,DN0R,DZR,SC,PIRD,COSZ,ALBEDO & + ,SOLAR,FTHR,RSHORT) + +!---------------------------------------------------------------------- +! Shortwave radiation parameterization described in Mahrer and +! Pielke(1977). +! +! Arguments: +! ---------- +! Input: NZP - number of vertical levels +! RVR - water vapor at each level +! DN0R - air density at each level +! DZR - inverse of delta z = 1./(Z(K)-Z(K-1)) +! where Z is at the vapor levels +! PIRD - Exner func (p/p00)**(R/Cp) at each level +! SC - scratch array at least 2*NZP long +! COSZ - cosine of the zenith angle +! ALBEDO - albedo of the ground surface +! SOLAR - the solar constant +! +! Output: FTHR - radiation tendency on potential temperture. +! RSHORT - downward shortwave flux on a flat surface at +! the ground +!---------------------------------------------------------------------- + +implicit none + +integer :: nzp +real :: COSZ,ALBEDO,SOLAR,RSHORT +real :: RVR(NZP),DN0R(NZP),PIRD(NZP),FTHR(NZP),DZR(NZP),SC(NZP,2) +SAVE +integer, parameter :: IV1=1,IV2=2 +real, parameter :: CP=1.004E7 + +integer :: nz,k +real :: raysct,rdcon1,vabs +real, external :: ssumvect + +NZ=NZP-1 + +! Rayleigh scattering (numerator in SQRT should be +! SQRT((.000949*P+.051)/COSZ), but is ignored. (P in mb) + +RAYSCT=1.021-.0824*SQRT(1./COSZ) + +! Vapor path length + +DO K=1,NZ + SC(K,IV1)=(RVR(K)*DN0R(K)+RVR(K+1)*DN0R(K+1))*.5/DZR(K) + SC(K,IV1)=MAX(SC(K,IV1),1E-10) +ENDDO +DO K=1,NZ + SC(K,IV2)=ssumvect(NZP-K,SC(K,IV1),1)+1E-10 +ENDDO +SC(NZP,IV2)=0. + +! Shortwave heating by vapor absorbtion + +RDCON1=.0231*SOLAR/CP +DO K=2,NZ + FTHR(K)=(RDCON1*(SC(K,IV2)/COSZ)**(-.7)*COSZ*RVR(K))/PIRD(K) +ENDDO +VABS=.077*(SC(1,IV2)/COSZ)**.3 + +! Shortwave on a flat surface + +RSHORT=MAX(SOLAR*COSZ*(1.-ALBEDO)*(RAYSCT-VABS),0.) + +return +END SUBROUTINE shradp + +!############################################################################## +Subroutine lwradp (NZP,TEMPRD,RVR,DN0R,DZZR,PIRD,SC,FTHR,RLONG) + +!----------------------------------------------------------------------- +! Longwave radiation parameterization described in Mahrer and +! Pielke (1977). Does not include any cloud effects. +! +! Arguments: +! ---------- +! +! Input: NZP - number of vertical levels +! TEMPRD - temperature in Kelvin at each level +! RVR - water vapor at each level +! DN0R - air density at each level +! DZZR - inverse of delta z = 1./(ZZ(K)-ZZ(K-1)) +! where ZZ is staggered midway between T levels +! PIRD - Exner func (p/p00)**(R/Cp) at each level +! SC - scratch array at least 20*NZP long +! +! Output: FTHR - radiation tendency on potential temperture. +! RLONG - downward longwave flux at the ground +! +!----------------------------------------------------------------------- + +implicit none + +integer :: nzp +real :: RLONG +real :: RVR(NZP),DN0R(NZP),TEMPRD(NZP),FTHR(NZP),DZZR(NZP),PIRD(NZP) +real :: SC(NZP,18) +SAVE +real, parameter :: G=980.,CP=1.004E7,STEFAN=5.6696E-5,R=.287E7,P00=1E6 +integer, parameter :: IV1=1,IV2=2,IV3=3,IV4=4,IV5=5,IV6=6,IV7=7,IV8=8 & + ,IV9=9,IV10=10,IV11=11,IV12=12,IV13=13,IV14=14 & + ,IV15=15,IV16=16,IV17=17,IV18=18 +integer :: nz,nz1,k +real :: c1,c2 + +NZ=NZP-1 +NZ1=NZ-1 + +! COMPUTE UPWARD AND DOWNWARD VAPOR PATH +DO K=2,NZ + SC(K,IV1)=RVR(K)*DN0R(K)/DZZR(K) + SC(K,IV1)=MAX(SC(K,IV1),1E-10) +ENDDO +SC(NZP,IV1)=SC(NZ,IV1) +! +SC(1,IV2)=0. +DO K=2,NZ + SC(K,IV2)=SC(K-1,IV2)+SC(K,IV1) +ENDDO +SC(NZ,IV3)=SC(NZP,IV1) +DO K=NZ1,1,-1 + SC(K,IV3)=SC(K+1,IV3)+SC(K+1,IV1) +ENDDO + +! WATER VAPOR EMISSIVITY CALCULATION +DO K=1,NZ + SC(K,IV4)=LOG10(SC(K,IV2)+1E-30) + SC(K,IV5)=LOG10(SC(K,IV3)+1E-30) +ENDDO + +DO K=1,NZ + IF(SC(K,IV4).LE.-4.) & + SC(K,IV6)=.1129*LOG10(1.+12.63*SC(K,IV2)) + IF(SC(K,IV4).LE.-3.0.AND.SC(K,IV4).GT.-4.0) & + SC(K,IV6)=.104*SC(K,IV4)+.440 + IF(SC(K,IV4).LE.-1.5.AND.SC(K,IV4).GT.-3.0) & + SC(K,IV6)=.121*SC(K,IV4)+.491 + IF(SC(K,IV4).LE.-1.0.AND.SC(K,IV4).GT.-1.5) & + SC(K,IV6)=.146*SC(K,IV4)+.527 + IF(SC(K,IV4).LE. 0.0.AND.SC(K,IV4).GT.-1.0) & + SC(K,IV6)=.161*SC(K,IV4)+.542 + IF(SC(K,IV4).GT. 0.) & + SC(K,IV6)=.136*SC(K,IV4)+.542 + + IF(SC(K,IV5).LE.-4.) & + SC(K,IV7)=.1129*LOG10(1.+12.63*SC(K,IV3)) + IF(SC(K,IV5).LE.-3.0.AND.SC(K,IV5).GT.-4.0) & + SC(K,IV7)=.104*SC(K,IV5)+.440 + IF(SC(K,IV5).LE.-1.5.AND.SC(K,IV5).GT.-3.0) & + SC(K,IV7)=.121*SC(K,IV5)+.491 + IF(SC(K,IV5).LE.-1.0.AND.SC(K,IV5).GT.-1.5) & + SC(K,IV7)=.146*SC(K,IV5)+.527 + IF(SC(K,IV5).LE. 0.0.AND.SC(K,IV5).GT.-1.0) & + SC(K,IV7)=.161*SC(K,IV5)+.542 + IF(SC(K,IV5).GT. 0.) & + SC(K,IV7)=.136*SC(K,IV5)+.542 +ENDDO + +! CO2 path lengths and emissivities +C1=.0004148239 +C2=C1*G +DO K=2,NZ + SC(K,IV11)=C2*DN0R(K)/DZZR(K) +ENDDO +SC(NZP,IV11)=C1*PIRD(NZP)**(CP/R)*P00 + +SC(1,IV12)=0. +DO K=2,NZ + SC(K,IV12)=SC(K-1,IV12)+SC(K,IV11) +ENDDO +SC(NZ,IV13)=SC(NZP,IV11) +DO K=NZ1,1,-1 + SC(K,IV13)=SC(K+1,IV13)+SC(K+1,IV11) +ENDDO + +DO K=1,NZ + SC(K,IV8)=.185*(1.-EXP(-.3919*SC(K,IV12)**.4)) + SC(K,IV9)=.185*(1.-EXP(-.3919*SC(K,IV13)**.4)) +ENDDO + +! Add CO2 and H2O emissivities, find SIG(T**4) +DO K=1,NZP + SC(K,IV14)=SC(K,IV8)+SC(K,IV6) + SC(K,IV15)=SC(K,IV9)+SC(K,IV7) + SC(K,IV16)=STEFAN*TEMPRD(K)**4 +ENDDO +SC(NZP,IV16)=SC(NZP,IV16)*SC(NZ,IV15) + +! Calculate upward and downward divergences +DO K=2,NZ + SC(K,IV17)=(SC(K,IV16)-SC(1,IV16))*(SC(K,IV14)-SC(K-1,IV14)) + SC(K,IV18)=(SC(NZP,IV16)-SC(K,IV16))*(SC(K,IV15)-SC(K-1,IV15)) +ENDDO +SC(1,IV18)=SC(NZP,IV16)*(1.-SC(1,IV15))+SC(2,IV16)*SC(2,IV15) + +DO K=2,NZ + FTHR(K)=-(SC(K,IV17)+SC(K,IV18))*DZZR(K)/(CP*DN0R(K)*PIRD(K)) +ENDDO +RLONG=SC(1,IV18) + +!------------------------------------------------------------------ +! PRINT 6667,(K,TEMPRD(K),SC(K,IV6),SC(K,IV7),SC(K,IV8),SC(K,IV9) +! + ,SC(K,IV13),FTHR(K)*24.*3600.,K=NZP,1,-1) +!6667 FORMAT(' LONGWAVE-T,EMISSUR,EMISSDR,EMISSUC,EMISSDC,PATHD,D/DAY', & +! /,(I3,7E10.3)) +! PRINT 6668,(K,TEMPRD(K),SC(K,IV2),SC(K,IV3),SC(K,IV12),SC(K,IV13) +! + ,K=NZP,1,-1) +!6668 FORMAT(' LONGWAVE-T,UP VAP,DN VAP,UP CO2, DN CO2', & +! /,(I3,5E10.3)) +! PRINT*,' LONGWAVE DOWN ',-SC(1,IV18)*1E-3 + +return +END SUBROUTINE lwradp + +!############################################################################## +Subroutine shradc (NZPP,RVR,RTR,DN0R,DZZR,PRD,PIRD,SC,ALBEDO, & + SOLAR,COSZ,FTHR,RSHORT) + +implicit none + +integer :: nzpp +real :: ALBEDO,SOLAR,COSZ,RSHORT +real :: RVR(NZPP),RTR(NZPP),DN0R(NZPP),PRD(NZPP) & + ,FTHR(NZPP),DZZR(NZPP),SC(NZPP,40),PIRD(NZPP) + +! PIRD - Exner func (p/p00)**(R/Cp) at each level + +! Tak changed model from 3 to 8 bands +! DIMENSION SFCT1(3),SFCT2(3) +integer, PARAMETER :: NZMAX=200 +real :: SFCT1(8),SFCT2(8),O3(NZMAX) + +REAL ALBRAY ! effective albedo including rayleigh scatter + +SAVE +integer, parameter :: IV1=1,IV2=2,IV3=3,IV4=4,IV5=5,IV6=6,IV7=7,IV8=8 & + ,IV9=9,IV10=10,IV11=11,IV12=12,IV13=13,IV14=14 & + ,IV15=15,IV16=16,IV17=17,IV18=18,IV19=19,IV20=20 & + ,IV21=21,IV22=22,IV23=23,IV24=24,IV25=25,IV26=26,IV27=27,IV28=28 & + ,IAOZ=29,IV30=30,IV31=31,IV32=32,IREA=33,ITR1=34,ITR2=35,IV36=36 & + ,IAB2=37,IREFS=38,IREB=39,IV40=40 +integer, parameter :: IIV1=1, IIV2=2, IIV3=3 + +! Tak changed to 8 bands +! DATA SFCT1/.19649,.00132,7.8179/, SFCT2 /.12096,.80556,.07348/ + +DATA SFCT1/0.00004,0.002,0.035,0.377,1.95,9.40,44.6,190.0/ +DATA SFCT2/0.647,0.0698,0.1443,0.0584,0.0335,0.0225,0.0158,0.0087/ + +real, parameter :: CP=1.004E7 + +integer :: nzp,nz,k,k1,nbnd,icldfl +real :: radc1,pfct,rabar,rabarbar,trsmt +real, external :: ssumvect +real, external :: cvmgp +real, external :: cvmgm + +NZP=NZPP-1 +NZ=NZP-1 + +! O3: Ozone mixing ratio + +SC(1,IV1)=0. +DO K=2,NZP + SC(K,IV1)=SC(K-1,IV1)+1./DZZR(K) +ENDDO + +SC(1,IV11)=0. +DO K=2,NZPP + SC(K,IV11)=.4+.4*EXP(-4.)/(1.+EXP((SC(NZP+2-K,IV1) & + *1.E-5-20.)/5.)) + O3(NZP+3-K)=SC(K,IV11)-SC(K-1,IV11) +ENDDO + +! Compute ozone absorptance +! REF.....LACIS,HANSEN,1974,J.A.S. P118 + +RADC1=35./SQRT(1224.*COSZ*COSZ+1.) +SC(1,IV2)=0. +SC(1,IV3)=0. +SC(1,IV4)=0. +SC(1,IV5)=0. +DO K=2,NZPP + SC(K,IV2)=RADC1*O3(NZP-K+3) +ENDDO +DO K=2,NZPP + SC(K,IV3)=ssumvect(K,SC(1,IV2),1) + SC(K,IV4)=.02118*SC(K,IV3)/(1.+.042*SC(K,IV3) & + +.000323*SC(K,IV3)*SC(K,IV3)) + SC(K,IV5)=1.082*SC(K,IV3)/((1.+138.6*SC(K,IV3))**.805) & + +.0658*SC(K,IV3)/(1.+(103.6*SC(K,IV3))**3) +ENDDO +DO K=2,NZPP + SC(NZP-K+3,IAOZ)=SC(K,IV4)-SC(K-1,IV4)+SC(K,IV5)-SC(K-1,IV5) +ENDDO +! +! Precomputation of reflectance,transmittance,absorptance in cloudy +! REF.....STEPHENS,1978,J.A.S.P2123 +! +! --- Cloud fractional coverage +! Old way all or nothing cloud +DO K=2,NZP + SC(K,IV36)=cvmgp(1.,0.,RTR(K)-RVR(K)-1.E-5) +ENDDO +SC(NZPP,IV36)=SC(NZP,IV36) +ICLDFL=MIN(1.,ssumvect(NZ,SC(2,IV36),1)) + +IF(ICLDFL.EQ.0)GO TO 600 +! +! .75UM is a line of demarcation +! +!================================================== +! If passing liquid water mixing ratio from cloud1d change this +DO K=2,NZP + SC(K,IV1)=1.E4*(RTR(K)-RVR(K))*DN0R(K)/DZZR(K) +ENDDO +!================================================== +SC(NZPP,IV1)=0. + +! IV2: TN1 +! IV3: TN2 +DO K=2,NZPP + +! if W < 10 g/m^2 then use top two equations so tau linearly goes to zero +! old way +! SC(K,IV2)=.2633*SC(K,IV1) +! SC(K,IV3)=.3492*SC(K,IV1) +! new way from tripoli + SC(K,IV2)=.1833*SC(K,IV1) + SC(K,IV3)=.2234*SC(K,IV1) + SC(K,IV4)=MAX(10.,SC(K,IV1)) + SC(K,IV5)=10.**(.2633+1.7095*LOG(LOG10(SC(K,IV4)))) + SC(K,IV6)=10.**(.3492+1.6518*LOG(LOG10(SC(K,IV4)))) +ENDDO +DO K=2,NZPP + SC(K,IV2)=cvmgp(SC(K,IV5),SC(K,IV2),SC(K,IV1)-10.) + SC(K,IV3)=cvmgp(SC(K,IV6),SC(K,IV3),SC(K,IV1)-10.) +ENDDO +! +DO K=2,NZPP + CALL stable (1,1,COSZ,SC(K,IV2),SC(K,IV4),SC(K,IV6)) + CALL stable (2,1,COSZ,SC(K,IV3),SC(K,IV5),SC(K,IV6)) + CALL stable (3,1,COSZ,SC(K,IV3),SC(K,IV6),SC(K,IV6)) + SC(K,IV6)=MIN(SC(K,IV6),.99999) +ENDDO +! +! LANDA.LT..75UM +! +DO K=2,NZPP + SC(K,IV30)=SC(K,IV4)*SC(K,IV2) + SC(K,IREA)=SC(K,IV30)/(COSZ+SC(K,IV30)) + SC(K,IREA)=MIN(1.,MAX(0.,SC(K,IREA))) + SC(K,ITR1)=1.-SC(K,IREA) + SC(K,IV11)=(1.-SC(K,IV6)+2.*SC(K,IV5)*SC(K,IV6)) & + /(1.-SC(K,IV6)) + SC(K,IV12)=SQRT(SC(K,IV11)) + SC(K,IV13)=(1.-SC(K,IV6))*(1.-SC(K,IV6)+2.*SC(K,IV5) & + *SC(K,IV6)) + SC(K,IV13)=SQRT(SC(K,IV13))*SC(K,IV3)/COSZ + SC(K,IV30)=EXP(SC(K,IV13)) + SC(K,IV31)=1./SC(K,IV30) + SC(K,IV14)=(SC(K,IV12)+1.)*(SC(K,IV12)+1.)*SC(K,IV30) & + -(SC(K,IV12)-1.)*(SC(K,IV12)-1.)*SC(K,IV31) +! +! LANDA.GT..75UM +! + SC(K,IREB)=(SC(K,IV11)-1.)*(SC(K,IV30)-SC(K,IV31)) & + /SC(K,IV14) + SC(K,ITR2)=4.*SC(K,IV12)/SC(K,IV14) + SC(K,IAB2)=1.-SC(K,IREB)-SC(K,ITR2) +ENDDO +! +600 CONTINUE +! Limit quantities and multiply by appropriate factors +! for the flux computations +DO K=2,NZPP + SC(K,IV1) = SC(K,IREB)-1. + SC(K,IREB) = cvmgp(1.,SC(K,IREB),SC(K,IV1)) + SC(K,ITR2) = cvmgp(0.,SC(K,ITR2),SC(K,IV1)) + SC(K,IAB2) = cvmgp(0.,SC(K,IAB2),SC(K,IV1)) + SC(K,IV30) = .483*SC(K,IV36) + SC(K,IV31) = .517*SC(K,IV36) + SC(K,IREB) = cvmgm(0.,SC(K,IREB),SC(K,IREB))*SC(K,IV30) + SC(K,ITR2) = cvmgm(1.,SC(K,ITR2),SC(K,IREB))*SC(K,IV30) + SC(K,IAB2) = cvmgm(0.,SC(K,IAB2),SC(K,IREB))*SC(K,IV30) + SC(K,ITR1) = SC(K,ITR1)*SC(K,IV31) + SC(K,IREA) = SC(K,IREA)*SC(K,IV31) +ENDDO +! +! Compute short wave fluxes +! +!----------------------------------------------------- +! old way for rayleigh scatter +! .07 reflectance due to molecular scattering +! +! Rayleigh scattering +! VCT1=.219/(1.+.816*COSZ)*.517/3039.E3 + +! VCT1=3.7257E-8/(1.+.816*COSZ) +! DO K=1,NZP +! SC(K,IREFS)=PRD(K)*VCT1*(1.-SC(K,IV36)) +! ENDDO +! SC(NZPP,IREFS)=SC(NZP,IREFS) +! +!----------------------------------------------------- +! tripoli new way include rayleigh scatter in an effective albedo + +! Lacis and Hansen Least square fit +! for Rayleigh reflectance gives: + +! k1 is the pressure at the first grid level above the surface +! his model was eta type coordinate where 1 could be below ground +k1 = 2 ! this is the first level above the surface +pfct=PRD(k1)*1.e-6 +Rabar=pfct*0.219/(1+0.816*cosz) +Rabarbar=pfct*0.144 +albray=rabar+(1.-rabar)*(1.-rabarbar)* & + albedo/(1.-rabarbar*albedo) + +! The above represents the effective albedo of the lower atmosphere +! due to Rayleigh scattering + +!----------------------------------------------------- +! Compute water vapor path +! +! Vapor water path for clear atmosphere? +DO K=2,NZP + SC(K,IV40)=RVR(K)*(PRD(K)/1.01325E6)**.86*RADC1 & + *DN0R(K)/DZZR(K) +ENDDO +SC(NZPP,IV40)=SC(NZP,IV40) +! +! REF.....STEPHENS,1977 +! +DO K=1,NZPP + SC(K,IV3)=0. + SC(K,IV4)=0. +! old way with rayleigh reflection added in +! SC(K,IV12)=SC(K,IREA)+SC(K,IREB)+SC(K,IREFS) +! new way with out rayleigh reflection (albedo is changed) + SC(K,IV12)=SC(K,IREA)+SC(K,IREB) + SC(K,IV30)=1.-SC(K,IV12)-SC(K,IAB2)-SC(K,IAOZ) + SC(K,ITR1)=SC(K,ITR1)+SC(K,ITR2) +ENDDO + +! Tak switched to 8 bands +! Loop through 3 "pseudo-bands" +! DO NBND=1,3 + +! Loop through 8 "pseudo-bands" +DO NBND=1,8 + +! +! Compute AB,REF,TRP,TRN +! + TRSMT=1. + DO K=2,NZPP + +! new tripoli way with Trans of clear * cloud +! because cloud tr does not include water vapor + SC(K,IV1)=(SC(K,ITR1)+(1.-SC(K,IV36))) & + *EXP(-SFCT1(NBND)*SC(K,IV40)) + +! old chen way with just liquid water effects +! SC(K,IV1)=SC(K,ITR1)+(1.-SC(K,IV36)) +! + *EXP(-SFCT1(NBND)*SC(K,IV40)) + + SC(K,IV16)=(1.-SC(K,IV36))*(1.-SC(K,IV1)) + ENDDO + + DO K=NZPP,2,-1 + SC(K,IV13)=SC(K,IV30)-SC(K,IV16)*TRSMT + TRSMT=TRSMT*MAX(0.,SC(K,IV13)) + ENDDO + DO K=2,NZPP + SC(K,IV14)=SC(K,IV30)-SC(K,IV16)*TRSMT + TRSMT=TRSMT*MAX(0.,SC(K,IV14)) + ENDDO +! +! REF.....STEPHENS,1979,J.A.S. P1542 + DO K=1,NZP + SC(K,IV21)=SC(NZPP-K+1,IV12) + SC(K,IV22)=SC(NZPP-K+1,IV13) + SC(K,IV23)=SC(NZPP-K+1,IV14) + ENDDO + SC(1,IV26)=0. + SC(1,IV28)=SOLAR*COSZ + DO K=1,NZP + SC(K,IV18)=1./(1.-SC(K,IV26)*SC(K,IV21)) + SC(K+1,IV26)=SC(K,IV21)+SC(K,IV22)*SC(K,IV26) & + *SC(K,IV23)*SC(K,IV18) + SC(K+1,IV27)=SC(K,IV21)*SC(K,IV28)*SC(K,IV18) + SC(K+1,IV28)=SC(K,IV22)*SC(K,IV28)*SC(K,IV18) + ENDDO + +! old way with old rayleigh scatter +! SC(NZPP,IV24)=SC(NZPP,IV28)/(1.-SC(NZPP,IV26)*ALBEDO) +! SC(NZPP,IV25)=ALBEDO*SC(NZPP,IV24) + +! new way with effective albedo from tripoli + SC(NZPP,IV24)=SC(NZPP,IV28)/(1.-SC(NZPP,IV26)*ALBRAY) + SC(NZPP,IV25)=ALBRAY*SC(NZPP,IV24) + DO K=NZP,1,-1 + SC(K,IV25)=SC(K,IV23)*SC(K+1,IV25) & + /(1.-SC(K,IV26)*SC(K,IV21))+SC(K+1,IV27) + ENDDO + DO K=2,NZPP + SC(K,IV24)=SC(K,IV26)*SC(K,IV25)+SC(K,IV28) + ENDDO +! IV3=FLXU IV4=FLXD + DO K=2,NZPP + SC(NZPP+1-K,IV3)=SC(NZPP+1-K,IV3)+SFCT2(NBND)*SC(K,IV25) + SC(NZPP+1-K,IV4)=SC(NZPP+1-K,IV4)+SFCT2(NBND)*SC(K,IV24) + ENDDO +ENDDO +! +! Compute shortwave radiative tendency +! +DO K=1,NZP + SC(K,IV11)=SC(K,IV3)-SC(K,IV4) +ENDDO +DO K=2,NZP + FTHR(K)=-(SC(K,IV11)-SC(K-1,IV11))*DZZR(K)/(CP*DN0R(K)*PIRD(K)) +! write(9,*) ' short k fthr fc ',k,fthr(k),fcr(k) +ENDDO +RSHORT=-SC(1,IV11) +! +! DO K=1,NZP +! PRINT*,' D/DAY ',K,FTHR(K)*86400.,SC(K,IV3),SC(K,IV4) +! ENDDO +return +END SUBROUTINE shradc diff --git a/src/6.2.16/radiate/rad_driv.f90 b/src/6.2.16/radiate/rad_driv.f90 new file mode 100644 index 0000000..06acda2 --- /dev/null +++ b/src/6.2.16/radiate/rad_driv.f90 @@ -0,0 +1,1390 @@ +!############################################################################## +Subroutine radiate (mzp,mxp,myp,ia,iz,ja,jz) + +use mem_tend +use mem_grid +use mem_leaf +use mem_sib +use mem_radiate +use mem_basic +use mem_scratch +use mem_micro +use rconstants +use rrad3 +use micphys +use ref_sounding + +implicit none + +integer :: mzp,mxp,myp,ia,iz,ja,jz + +integer, save :: ncall=0 + +if (ilwrtyp + iswrtyp .eq. 0) return + +CALL tend_copy (mzp,mxp,myp,ia,iz,ja,jz,radiate_g(ngrid)%fthrdp(1,1,1) & + ,radiate_g(ngrid)%fthrd(1,1,1)) + +!Proceed if this is a radiation timestep "radfrq" +if (mod(time + .001,radfrq) .lt. dtlt .or. time .lt. 0.001) then + + if(iprntstmt>=1 .and. print_msg) & + print 90,time,time/3600.+(itime1/100+mod(itime1,100)/60.) +90 format(' Radiation Tendencies Updated Time =',F10.1, & + ' UTC TIME (HRS) =',F6.1) + + ! Compute solar zenith angle, multiplier for solar constant, sfc albedo, + ! and surface upward longwave radiation. radprep provides zenith angle, + ! surface downward shortwave and longwave for land-surface model in call + ! to "sfcrad". Then "sfcrad" returns albedo, upward longwave, and upward + ! shortwave from surface. + + CALL radprep (mxp,myp,nzg,nzs,npatch,ia,iz,ja,jz,jday & + + ,leaf_g(ngrid)%soil_water (1,1,1,1) & + ,leaf_g(ngrid)%soil_energy (1,1,1,1) & + ,leaf_g(ngrid)%soil_text (1,1,1,1) & + ,leaf_g(ngrid)%sfcwater_energy (1,1,1,1) & + ,leaf_g(ngrid)%sfcwater_depth (1,1,1,1) & + ,leaf_g(ngrid)%leaf_class (1,1,1) & + ,leaf_g(ngrid)%veg_fracarea (1,1,1) & + ,leaf_g(ngrid)%veg_height (1,1,1) & + ,leaf_g(ngrid)%veg_albedo (1,1,1) & + ,leaf_g(ngrid)%patch_area (1,1,1) & + ,leaf_g(ngrid)%sfcwater_nlev (1,1,1) & + ,leaf_g(ngrid)%veg_temp (1,1,1) & + ,leaf_g(ngrid)%can_temp (1,1,1) & + ,solfac & + ,grid_g(ngrid)%glat (1,1) & + ,grid_g(ngrid)%glon (1,1) & + ,radiate_g(ngrid)%rshort (1,1) & + ,radiate_g(ngrid)%rlong (1,1) & + ,radiate_g(ngrid)%rlongup (1,1) & + ,radiate_g(ngrid)%albedt (1,1) & + ,radiate_g(ngrid)%cosz (1,1) & + ,sib_g(ngrid)%sfcswa (1,1,1) & + ,sib_g(ngrid)%uplwrf (1,1,1) ) + + ! If using Mahrer-Pielke and/or Chen-Cotton radiation, call radcomp. + + if (ilwrtyp .le. 2 .or. iswrtyp .le. 2) then + + ! Zero out the radiative heating rate "fthrd" if this this a + ! radiation timestep and fthrd will be updated. + + CALL azero (mzp*mxp*myp,radiate_g(ngrid)%fthrd(1,1,1)) + + CALL radcomp (mzp,mxp,myp,ia,iz,ja,jz,solfac & + ,basic_g(ngrid)%theta (1,1,1) & + ,basic_g(ngrid)%pi0 (1,1,1) & + ,basic_g(ngrid)%pp (1,1,1) & + ,basic_g(ngrid)%rv (1,1,1) & + ,basic_g(ngrid)%dn0 (1,1,1) & + ,basic_g(ngrid)%rtp (1,1,1) & + ,radiate_g(ngrid)%fthrd (1,1,1) & + ,grid_g(ngrid)%rtgt (1,1) & + ,grid_g(ngrid)%f13t (1,1) & + ,grid_g(ngrid)%f23t (1,1) & + ,grid_g(ngrid)%glon (1,1) & + ,radiate_g(ngrid)%rshort (1,1) & + ,radiate_g(ngrid)%rlong (1,1) & + ,radiate_g(ngrid)%albedt (1,1) & + ,radiate_g(ngrid)%cosz (1,1) & + ,radiate_g(ngrid)%rlongup (1,1)) + + endif + + ! Using Harrington radiation + + if (iswrtyp .eq. 3 .or. ilwrtyp .eq. 3) then + + ! If first call for this node, initialize several quantities & Mclatchy + ! sounding data. + + if (ncall .eq. 0) then + CALL radinit (ng,nb,nsolb,npsb,nuum,prf,alpha,trf,beta & + ,xp,wght,wlenlo,wlenhi,solar0,ralcs,a0,a1,a2,a3 & + ,exptabc,ulim,npartob,npartg,ncog,ncb & + ,ocoef,bcoef,gcoef,gnu) + + CALL mclatchy (1,mzp & + ,grid_g(ngrid)%glat (1,1) & + ,grid_g(ngrid)%rtgt (1,1) & + ,grid_g(ngrid)%topt (1,1) & + ,radiate_g(ngrid)%rlongup (1,1) & + ,zm,zt,vctr1,vctr2,vctr3,vctr4,vctr5,vctr6,vctr7 & + ,vctr8,vctr9,vctr10,vctr11,vctr12 & + ) + + ncall = ncall + 1 + endif + + ! For any call, interpolate the mclatchy sounding data by latitude and + ! season. + + CALL mclatchy (2,mzp & + ,grid_g(ngrid)%glat (1,1) & + ,grid_g(ngrid)%rtgt (1,1) & + ,grid_g(ngrid)%topt (1,1) & + ,radiate_g(ngrid)%rlongup (1,1) & + ,zm,zt,vctr1,vctr2,vctr3,vctr4,vctr5,vctr6,vctr7 & + ,vctr8,vctr9,vctr10,vctr11,vctr12 & + ) + + ! If using Harrington radiation with moisture complexity LEVEL < 3, + ! call radcomp3 which is a substitute driving structure to the bulk + ! microphysics. + + if (level <= 2 .or. level==4) then + ! Zero out the radiative heating rate "fthrd" if this this a + ! radiation timestep and fthrd will be updated. + CALL azero (mzp*mxp*myp,radiate_g(ngrid)%fthrd(1,1,1)) + ! Run the Harrington radiation for non-LEVEL=3 micro + CALL radcomp3 (mzp,mxp,myp,ia,iz,ja,jz & + ,grid_g(ngrid)%glat (1,1) & + ,grid_g(ngrid)%rtgt (1,1) & + ,grid_g(ngrid)%topt (1,1) & + ,radiate_g(ngrid)%albedt (1,1) & + ,radiate_g(ngrid)%cosz (1,1) & + ,radiate_g(ngrid)%rlongup (1,1) & + ,radiate_g(ngrid)%rshort (1,1) & + ,radiate_g(ngrid)%rlong (1,1) & + ,radiate_g(ngrid)%aodt (1,1) & + ,basic_g(ngrid)%rv (1,1,1) & + ,basic_g(ngrid)%dn0 (1,1,1) & + ,radiate_g(ngrid)%fthrd (1,1,1) & + ,basic_g(ngrid)%pi0 (1,1,1) & + ,basic_g(ngrid)%pp (1,1,1) & + ,basic_g(ngrid)%theta (1,1,1) & + ,micro_g(ngrid)%rcp (1,1,1) & + ,radiate_g(ngrid)%bext (1,1,1) & + ,radiate_g(ngrid)%swup (1,1,1) & + ,radiate_g(ngrid)%swdn (1,1,1) & + ,radiate_g(ngrid)%lwup (1,1,1) & + ,radiate_g(ngrid)%lwdn (1,1,1) & + ,micro_g(ngrid)%cccnp (1,1,1) & + ,micro_g(ngrid)%cccmp (1,1,1) & + ,micro_g(ngrid)%gccnp (1,1,1) & + ,micro_g(ngrid)%gccmp (1,1,1) & + ,micro_g(ngrid)%md1np (1,1,1) & + ,micro_g(ngrid)%md1mp (1,1,1) & + ,micro_g(ngrid)%md2np (1,1,1) & + ,micro_g(ngrid)%md2mp (1,1,1) & + ,micro_g(ngrid)%salt_film_np (1,1,1) & + ,micro_g(ngrid)%salt_film_mp (1,1,1) & + ,micro_g(ngrid)%salt_jet_np (1,1,1) & + ,micro_g(ngrid)%salt_jet_mp (1,1,1) & + ,micro_g(ngrid)%salt_spum_np (1,1,1) & + ,micro_g(ngrid)%salt_spum_mp (1,1,1) ) + endif + + endif + +endif + +return +END SUBROUTINE radiate + +!############################################################################## +Subroutine tend_copy (m1,m2,m3,ia,iz,ja,jz,at,at2) + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,i,j,k +real, dimension(m1,m2,m3) :: at,at2 + +do j = ja,jz + do i = ia,iz + do k = 1,m1 + at(k,i,j) = at2(k,i,j) + enddo + enddo +enddo + +return +END SUBROUTINE tend_copy + +!############################################################################## +Subroutine radprep (m2,m3,mzg,mzs,np,ia,iz,ja,jz,jday & + ,soil_water ,soil_energy ,soil_text & + ,sfcwater_energy ,sfcwater_depth ,leaf_class & + ,veg_fracarea ,veg_height ,veg_albedo & + ,patch_area & + ,sfcwater_nlev ,veg_temp ,can_temp & + ,solfac,glat,glon,rshort,rlong,rlongup,albedt,cosz & + ,sfcswa,uplwrf) + +use rconstants +use mem_leaf, only: isfcl +use mem_grid, only: initial,time + +implicit none + +integer :: m2,m3,mzg,mzs,np,ia,iz,ja,jz,jday,runsfcrad +real :: solfac +real, dimension(m2,m3) :: glat,glon,rshort,rlong,rlongup,albedt,cosz +real, dimension(mzg,m2,m3,np) :: soil_water,soil_energy,soil_text +real, dimension(mzs,m2,m3,np) :: sfcwater_energy,sfcwater_depth +real, dimension(m2,m3,np) :: leaf_class,veg_fracarea,veg_height,veg_albedo & + ,patch_area,sfcwater_nlev,veg_temp,can_temp,sfcswa,uplwrf + +integer :: ip,i,j + +! Compute solar zenith angle [cosz(i,j)] & solar constant factr [solfac]. + +CALL zen (m2,m3,ia,iz,ja,jz,jday,glat,glon,cosz,solfac) + +! Compute patch-averaged surface albedo [albedt(i,j)] and up longwave +! radiative flux [rlongup(i,j)]. + +CALL azero2 (m2*m3,albedt,rlongup) + +do ip = 1,np + + !Only run sfcrad if using LEAF3 or it is the first model timestep + !or if its a water patch. + !If running SIB land surface, use SiB surface albedo and surface + !upward longwave after first timestep. + runsfcrad=0 + if (isfcl<=1) then + runsfcrad=1 + elseif(isfcl==2) then + if(ip==1 .or. (initial<=2 .and. time < 0.001)) runsfcrad=1 + endif + + do j = ja,jz + do i = ia,iz + + if(runsfcrad==1) & + CALL sfcrad (mzg,mzs,ip & + ,soil_energy (1,i,j,ip) ,soil_water (1,i,j,ip) & + ,soil_text (1,i,j,ip) ,sfcwater_energy (1,i,j,ip) & + ,sfcwater_depth (1,i,j,ip) ,patch_area (i,j,ip) & + ,can_temp (i,j,ip) ,veg_temp (i,j,ip) & + ,leaf_class (i,j,ip) ,veg_height (i,j,ip) & + ,veg_fracarea (i,j,ip) ,veg_albedo (i,j,ip) & + ,sfcwater_nlev (i,j,ip) ,rshort (i,j) & + ,rlong (i,j) ,albedt (i,j) & + ,rlongup (i,j) ,cosz (i,j) ) + + if(isfcl==2 .and. ip>=2) then + albedt(i,j) = albedt(i,j) + patch_area(i,j,ip)*sfcswa(i,j,ip) + rlongup(i,j) = rlongup(i,j) + patch_area(i,j,ip)*uplwrf(i,j,ip) + endif + + enddo + enddo +enddo + +return +END SUBROUTINE radprep + +!############################################################################## +Subroutine radcomp (m1,m2,m3,ia,iz,ja,jz,solfac & + ,theta,pi0,pp,rv,dn0,rtp,fthrd & + ,rtgt,f13t,f23t,glon,rshort,rlong,albedt,cosz,rlongup) + +use mem_grid +use mem_scratch +use mem_radiate +use rconstants +use node_mod, only:mi0,mj0 + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,jday,oyr,omn,ody,otm +integer, external :: julday + +real :: solfac,cdec,declin,dzsdx,dzsdy,dlon,a1,a2,dayhr,gglon,otmf & + ,dayhrr,hrangl,sinz,sazmut,slazim,slangl,cosi,pisolar,eqt_julian_nudge +real, dimension(nzpmax) :: rvr,rtr,dn0r,pird,prd,fthrl,dzmr,dztr,fthrs +real, dimension(nzpmax+1) :: temprd +real, dimension(m1,m2,m3) :: theta,pi0,pp,rv,dn0,rtp,fthrd +real, dimension(m2,m3) :: rtgt,f13t,f23t,glon,rshort,rlong,cosz & + ,albedt,rlongup +integer :: i,j,k + +! Find the hour angle and julian day, then get cosine of zenith angle. +CALL date_add_to (iyear1,imonth1,idate1,itime1*100,time,'s',oyr,omn,ody,otm) +otmf=float(otm) +dayhr = (otmf-mod(otmf,10000.))/10000. + (mod(otmf,10000.)/6000.) +jday = julday(omn,ody,oyr) + +! Find day of year equation of time adjustment (Saleeby2008: improve accuracy) +pisolar=3.1415927 +eqt_julian_nudge=0.0 +if(jday>=1 .and. jday<=106) then + eqt_julian_nudge = -14.2 * sin(pisolar * (jday + 7) / 111.) +elseif(jday>=107 .and. jday<=166) then + eqt_julian_nudge = 4.0 * sin(pisolar * (jday - 106) / 59.) +elseif(jday>=167 .and. jday<=246) then + eqt_julian_nudge = -6.5 * sin(pisolar * (jday - 166) / 80.) +elseif(jday>=247 .and. jday<=366) then + eqt_julian_nudge = 16.4 * sin(pisolar * (jday - 247) / 113.) +endif +eqt_julian_nudge = eqt_julian_nudge / 60.0 +! cdec - cosine of declination +declin = -23.5 * cos(6.283 / 365. * (jday + 9)) * pi180 +cdec = cos(declin) + +do j = ja,jz + do i = ia,iz + do k = 1,m1 + pird(k) = (pp(k,i,j) + pi0(k,i,j)) / cp + temprd(k) = theta(k,i,j) * pird(k) + rvr(k) = max(0.,rv(k,i,j)) + rtr(k) = max(rvr(k),rtp(k,i,j)) + !Convert the next 7 variables to cgs for now. + prd(k) = pird(k) ** cpor * p00 * 10. + dn0r(k) = dn0(k,i,j) * 1.e-3 + dzmr(k) = dzm(k) / rtgt(i,j) * 1.e-2 + dztr(k) = dzt(k) / rtgt(i,j) * 1.e-2 + + if(rvr(k) < 0. .or. & + rtr(k) < 0. .or. & + prd(k) < 0. .or. & + dn0r(k) < 0.) then + print*, 'Negative value of density, vapor, or pressure' + print*, 'when calling Chen-Cotton/Mahrer-Pielke radiation' + print*, 'at (k,i,j),ngrid = ',k,i+mi0(ngrid),j,ngrid+mj0(ngrid) + print*, 'rvr(k) rtr(k) prd(k) dn0r(k)' + print*, rvr(k), rtr(k), prd(k), dn0r(k) + print*, 'stopping model' + stop 'radiation call' + endif + + if (temprd(k) < 160.) then + print*, 'Temperature too low when calling' + print*, 'Chen-Cotton/Mahrer-Pielke radiation' + print*, 'at k,i,j = ',k,i+mi0(ngrid),j+mj0(ngrid) + print*, 'ngrid,tempk=',ngrid,temprd(k) + !stop + endif + + enddo + temprd(1) = (rlongup(i,j) / stefan) ** 0.25 + temprd(m1+1) = temprd(m1) + +! Call the longwave parameterizations. + + if (ilwrtyp .eq. 2) then + CALL lwradp (m1,temprd,rvr,dn0r,dztr,pird,vctr1,fthrl,rlong(i,j)) + elseif (ilwrtyp .eq. 1) then + CALL lwradc (m1+1,rvr,rtr,dn0r,temprd,prd,pird,dztr,fthrl,rlong(i,j) & + ,vctr1,vctr2,vctr3,vctr4,vctr5,vctr6,vctr7,vctr8,vctr9,vctr10 & + ,vctr11,vctr12,vctr13,vctr14,vctr15) + endif + +! The shortwave parameterizations are only valid if the cosine +! of the zenith angle is greater than .03 . + + if (cosz(i,j) .gt. .03) then + + if (iswrtyp .eq. 2) then + CALL shradp (m1,rvr,dn0r,dzmr,vctr1,pird,cosz(i,j) & + ,albedt(i,j),solar*1e3*solfac,fthrs,rshort(i,j)) + elseif (iswrtyp .eq. 1) then + CALL shradc (m1+1,rvr,rtr,dn0r,dztr,prd,pird,vctr1 & + ,albedt(i,j),solar*1.e3*solfac,cosz(i,j),fthrs,rshort(i,j)) + endif + +! Modify the downward surface shortwave flux by considering +! the slope of the topography. + + if (itopo .eq. 1) then + dzsdx = f13t(i,j) * rtgt(i,j) + dzsdy = f23t(i,j) * rtgt(i,j) + +! The y- and x-directions must be true north and east for +! this correction. the following rotates the model y/x +! to the true north/east. + +!Saleeby(2013):Check into this statement below +! The following rotation seems to be incorrect, so call this instead: +! routine uvtoueve (u,v,ue,ve,qlat,qlon,polelat,polelon) + + dlon = (polelon - glon(i,j)) * pi180 + a1 = dzsdx*cos(dlon) + dzsdy * sin(dlon) + a2 = -dzsdx*sin(dlon) + dzsdy * cos(dlon) + dzsdx = a1 + dzsdy = a2 + + gglon = glon(i,j) + if (lonrad .eq. 0) gglon = centlon(1) +!Saleeby(2009): Add eqt_julian_nudge to improve hour angle accuracy + dayhrr = mod(dayhr+gglon/15.+24.,24.) + eqt_julian_nudge + hrangl = 15. * (dayhrr - 12.) * pi180 + sinz = sqrt(1. - cosz(i,j) ** 2) + sazmut = asin(max(-1.,min(1.,cdec*sin(hrangl)/sinz))) + if (abs(dzsdx) .lt. 1e-15) dzsdx = 1.e-15 + if (abs(dzsdy) .lt. 1e-15) dzsdy = 1.e-15 + slazim = 1.571 - atan2(dzsdy,dzsdx) + slangl = atan(sqrt(dzsdx*dzsdx+dzsdy*dzsdy)) + cosi = cos(slangl) * cosz(i,j) + sin(slangl) * sinz & + * cos(sazmut-slazim) +!Saleeby(08-10-2008): Check for cosi greater than zero + if (cosi > 0.) then + rshort(i,j) = rshort(i,j) * cosi / cosz(i,j) + else + rshort(i,j) = 0. + endif + endif + + else + do k = 1,nzp + fthrs(k) = 0. + enddo + rshort(i,j) = 0. + endif + + ! Add fluxes + do k = 2,m1-1 + fthrd(k,i,j) = fthrl(k) + fthrs(k) + enddo + +! Convert the downward flux at the ground to SI. + + rshort(i,j) = rshort(i,j) * 1.e-3 / (1. - albedt(i,j)) + rlong(i,j) = rlong(i,j) * 1.e-3 + fthrd(1,i,j) = fthrd(2,i,j) + + enddo +enddo + +return +END SUBROUTINE radcomp + +!############################################################################## +Subroutine radcomp3 (m1,m2,m3,ia,iz,ja,jz & + ,glat,rtgt,topt,albedt,cosz,rlongup,rshort,rlong,aodt & + ,rv,dn0,fthrd,pi0,pp,theta,rcp & + ,bext,swup,swdn,lwup,lwdn & + ,cccnp,cccmp,gccnp,gccmp,md1np,md1mp,md2np,md2mp & + ,salt_film_np,salt_film_mp,salt_jet_np,salt_jet_mp & + ,salt_spum_np,salt_spum_mp) + +use mem_grid +use mem_micro +use mem_radiate +use rconstants +use rrad3 +use micphys +use micro_prm, only:iceprocs + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,mcat,i,j,k + +real :: cfmasi,cparmi,glg,glgm,picpi +real, dimension(m2,m3) :: glat,rtgt,topt,cosz,albedt,rlongup,rshort,rlong,aodt +real, dimension(m1,m2,m3) :: dn0,rv,fthrd,pi0,pp,theta,rcp +real, dimension(m1,m2,m3) :: bext,swup,swdn,lwup,lwdn +real, dimension(m1,m2,m3) :: cccnp,cccmp,gccnp,gccmp,md1np,md1mp,md2np,md2mp & + ,salt_film_np,salt_film_mp,salt_jet_np,salt_jet_mp,salt_spum_np,salt_spum_mp +real, external :: gammln + +! Fill cloud parameters if not running microphysics +cparmi = 1. / cparm +if (level <= 1) then + mcat = 0 +elseif (level == 2) then + mcat = 1 + pwmas(1) = 3. + pwmasi(1) = 1. / pwmas(1) + cfmasi = 1. / 524. + emb0(1) = 5.24e-16 + emb1(1) = 3.35e-11 + glg = gammln(gnu(1)) + glgm = gammln(gnu(1) + pwmas(1)) + dnfac(1) = (cfmasi * exp(glg - glgm)) ** pwmasi(1) + do k = 2,m1-1 + jhcat(k,1) = 1 + enddo +endif + +! Loop over columns + +do j = ja,jz + do i = ia,iz + + ! To be used in mclatchy call + do k = 1,m1-1 + picpi = (pi0(k,i,j) + pp(k,i,j)) * cpi + press(k) = p00 * picpi ** cpor + tair(k) = theta(k,i,j) * picpi + enddo + + ! Finish cloud parameter computation + if (level == 2) then + do k = 2,m1-1 + emb(k,1) = max(emb0(1),min(emb1(1),rcp(k,i,j) * cparmi)) + cx(k,1) = rcp(k,i,j) / emb(k,1) + enddo + elseif (level ==4) then + CALL cloud_prep_lev4 (m1,i,j,ngrid) + if (iceprocs == 1) then + mcat = 11 + else + mcat = 2 + endif + endif + + ! Call the sub-driver + if(iaerorad==1 .and. level .ne. 4)then + CALL aero_copy (1,m1 & + ,cccnp(1,i,j),cccmp(1,i,j) & + ,gccnp(1,i,j),gccmp(1,i,j) & + ,md1np(1,i,j),md1mp(1,i,j) & + ,md2np(1,i,j),md2mp(1,i,j) & + ,salt_film_np(1,i,j),salt_film_mp(1,i,j) & + ,salt_jet_np(1,i,j) ,salt_jet_mp(1,i,j) & + ,salt_spum_np(1,i,j),salt_spum_mp(1,i,j)) + endif + + CALL radcalc3 (m1,i,j,ngrid,maxnzp,mcat,iswrtyp,ilwrtyp,zm,zt & + ,glat(i,j),rtgt(i,j),topt(i,j),rv(1,i,j) & + ,albedt(i,j) & + ,cosz(i,j) & + ,rlongup(i,j) & + ,rshort(i,j) & + ,rlong(i,j) & + ,aodt(i,j) & + ,fthrd(1,i,j) & + ,bext(1,i,j) & + ,swup(1,i,j) & + ,swdn(1,i,j) & + ,lwup(1,i,j) & + ,lwdn(1,i,j) & + ,dn0(1,i,j) & + ) + + enddo +enddo + +return +END SUBROUTINE radcomp3 + +!############################################################################## +Subroutine zen (m2,m3,ia,iz,ja,jz,jday,glat,glon,cosz,solfac) + +use mem_grid +use mem_radiate +use rconstants + +implicit none + +integer :: m2,m3,ia,iz,ja,jz,jday,i,j,oyr,omn,ody,otm +integer, external :: julday + +real :: solfac,sdec,cdec,declin,d0,d02,dayhr,radlat,cslcsd,snlsnd & + ,gglon,dayhrr,hrangl,pisolar,eqt_julian_nudge,otmf +real, dimension(m2,m3) :: glat,glon,cosz + +! Find the hour angle and julian day, then get cosine of zenith angle. +CALL date_add_to (iyear1,imonth1,idate1,itime1*100,time,'s',oyr,omn,ody,otm) + +! Fix the julian day of the year for RCE simulations for const radiation +if(irce == 1) then + CALL date_add_to (iyear1,imonth1,idate1,itime1*100,0.,'s',oyr,omn,ody,otm) +endif + +otmf=float(otm) +dayhr = (otmf-mod(otmf,10000.))/10000. + (mod(otmf,10000.)/6000.) +jday = julday(omn,ody,oyr) + +! sdec - sine of declination, cdec - cosine of declination +declin = -23.5 * cos(6.283 / 365. * (jday + 9)) * pi180 +sdec = sin(declin) +cdec = cos(declin) + +! Find the factor, solfac, to multiply the solar constant to correct +! for Earth's varying distance to the sun. + +d0 = 6.2831853 * float(jday-1) / 365. +d02 = d0 * 2. +solfac = 1.000110 + 0.034221 * cos (d0) + 0.001280 * sin(d0) & + + 0.000719 * cos(d02) + 0.000077 * sin(d02) + +! Find day of year equation of time adjustment (Saleeby2008: improve accuracy) +pisolar=3.1415927 +eqt_julian_nudge=0.0 +if(jday>=1 .and. jday<=106) then + eqt_julian_nudge = -14.2 * sin(pisolar * (jday + 7) / 111.) +elseif(jday>=107 .and. jday<=166) then + eqt_julian_nudge = 4.0 * sin(pisolar * (jday - 106) / 59.) +elseif(jday>=167 .and. jday<=246) then + eqt_julian_nudge = -6.5 * sin(pisolar * (jday - 166) / 80.) +elseif(jday>=247 .and. jday<=366) then + eqt_julian_nudge = 16.4 * sin(pisolar * (jday - 247) / 113.) +endif +eqt_julian_nudge = eqt_julian_nudge / 60.0 + +do j = ja,jz + do i = ia,iz + radlat = glat(i,j) * pi180 + if (lonrad .eq. 0) radlat = centlat(1) * pi180 + if (radlat .eq. declin) radlat = radlat + 1.e-5 + cslcsd = cos(radlat) * cdec + snlsnd = sin(radlat) * sdec + gglon = glon(i,j) + if (lonrad .eq. 0) gglon = centlon(1) + + !Saleeby(2009): Add eqt_julian_nudge to improve hour angle accuracy + dayhrr = mod(dayhr+gglon/15.+24.,24.) + eqt_julian_nudge + hrangl = 15. * (dayhrr - 12.) * pi180 + + !Cosine of zenith angle (angle in radians) + cosz(i,j) = snlsnd + cslcsd * cos(hrangl) + + !Hold zenith angle constant for RCE simulations + if(irce == 1) cosz(i,j) = cos(rce_szen * pi180) + + enddo +enddo + +return +END SUBROUTINE zen + +!############################################################################## +Subroutine radcalc3 (m1,i,j,ngrid,maxnzp,mcat,iswrtyp,ilwrtyp,zm,zt & + ,glat,rtgt,topt,rv,albedt,cosz,rlongup,rshort,rlong,aodt & + ,fthrd,bext,swup,swdn,lwup,lwdn & + ,dn0 & + ) + +!----------------------------------------------------------------------------- +! radcalc3: column driver for two-stream radiation code +! variables used within routine radcalc3: +! ================================================================== +! Variables in rrad3 parameter statement +! mb : maximum allowed number of bands [=8] +! mg : maximum allowed number of gases [=3] +! mk : maximum number of pseudobands allowed for any gas [=7] +! ncog : number of fit coefficients (omega and asym) [=5] +! ncb : number of fit coefficients (extinction) [=2] +! npartob : number of hydrometeor categories (including different habits) +! npartg : number of hydrometeor categories used for gc coefficients [=7] +! nrad : total number of radiation levels used (m1 - 1 + narad) +! narad : number of radiation levels added above model +! nsolb : active number of solar bands +! nb : active number of bands +! ng : active number of gases +! jday : julian day +! solfac : solar constant multiplier for variable E-S distance +! ralcs (mb) : rayleigh scattering integration constants +! solar1 (mb) : solar fluxes at top of atmosphere - corrected for ES distance +! solar0 (mb) : solar fluxes at top of atmosphere - uncorrected for ES distance +! nuum (mb) : continuum flags +! a0,a1,a2,a3 (mb) : Planck func fit coefficients +! npsb (mg,mb) : number of pseudo bands +! trf (mg,mb) : reference temperature for xp and wght coefficients +! prf (mg,mb) : reference pressure for xp and wght coefficients +! ulim (mg,mb) : upper bound on pathlength for gases +! xp (mg,mk,mb) : coefficient used in computing gaseous optical depth +! alpha (mg,mk,mb) : pressure correction factor exponent +! beta (mg,mk,mb) : temperature correction factor exponent +! wght (mg,mk,mb) : pseudo band weight +! exptabc (150) : table of exponential func values +! ocoef(ncog,mb,npartob) : fit coefficients for hyd. single scatter. +! bcoef(ncb,mb ,npartob) : fit coefficients for hyd. extinction coefficient. +! gcoef(ncog,mb,npartg) : fit coefficients for hyd. asymmetry parameter. +! +! Input variables from model +! +! m1 : number of vertical levels in model grid +! ncat : max number of hydrometeor categories [=7] +! mcat : actual number of hydrometeor categories [= 0, 1, or 7] +! nhcat : number of hydrometeor categories including ice habits [=15] +! iswrtyp : shortwave radiation parameterization selection flag +! ilwrtyp : longwave radiation parameterization selection flag +! glat : latitude +! rtgt : terrain-following coordinate metric factor +! topt : topography height +! albedt : surface albedo +! cosz : solar zenith angle +! rlongup : upward longwave radiation at surface (W/m^2) +! rshort : downward shortwave radiation at surface (W/m^2) +! rlong : downward longwave radiation at surface (W/m^2) +! aodt : total aerosol optical depth (band=3) +! jnmb (ncat) : microphysics category flag +! dnfac (nhcat) : factor for computing dn from emb +! pwmasi (nhcat) : inverse of mass power law exponent for hydrometeors +! zm (m1) : model physical heights of W points (m) +! zt (m1) : model physical heights of T points (m) +! press (nzpmax) : model pressure (Pa) +! tair (nzpmax) : model temperature (K) +! rv (m1) : model vapor mixing ratio (kg/kg) +! dn0 (m1) : model air density (kg/m^3) +! fthrd (m1) : theta_il tendency from radiation +! jhcat (nzpmax,ncat) : microphysics category array +! cx (nzpmax,ncat) : hydrometeor number concentration (#/kg) +! emb (nzpmax,ncat): hydrometeor mean mass (kg) +! +! Variables input from model scratch space (redefined internally on each call) +! +! zml (nrad) : physical heights of W points of all radiation levels (m) +! ztl (nrad) : physical heights of T points of all radiation levels (m) +! dzl (nrad) : delta-z (m) of all radiation levels +! pl (nrad) : pressure (Pa) +! tl (nrad) : temperature (K) +! dl (nrad) : air density of all radiation levels (kg/m^3) +! rl (nrad) : vapor density of all radiation levels (kg/m^3) +! vp (nrad) : vapor pressure (Pa) +! o3l (nrad) : stores the calculated ozone profile (g/m^3) +! flxu (nrad) : Total upwelling flux (W/m^2) +! flxd (nrad) : Total downwelling flux (W/m^2) +! t (nrad) : layer transmission func +! r (nrad) : layer reflection func +! tc (nrad) : cumulative optical depth +! sigu (nrad) : upwelling layer source func +! sigd (nrad) : downwelling layer source func +! re (nrad) : cumulative reflection func +! vd (nrad) : multi-scat. diffuse downwelling contributions +! from source func +! td (nrad) : inverse of cumulative transmission fnct +! vu (nrad) : multi-scat. diffuse upwelling contributions +! from source func +! tg (nrad) : gaseous optical depth +! tcr (nrad) : continuum/Rayleigh optical depth +! src (nrad) : Planck func source for each band +! fu (nrad*6) : upwelling fluxes for pseudo-bands (W/m^2) +! fd (nrad*6) : downwelling fluxes for pseudo-bands (W/m^2) +! u (nrad*mg) : path-length for gases (H_2O, CO_2, O_3) (Pa) +! tp (nrad*mb) : optical depth of hydrometeors (m^-1) +! omgp (nrad*mb) : Single scatter albedo of hydrometeors +! gp (nrad*mb) : Asymmetry factor of hydrometeors +! +! Locally-defined variables +! +! ngass (mg) : flags indicating if H20,CO2,O3 are active for solar wavelengths +! ngast (mg) : flags indicating if H20,CO2,O3 are active for long wavelengths +! +! Additional variables used only within routine mclatchy: +! ================================================================== +! namax : maximum allowed number of added rad levels above model top[=10] +! used for oc and bc coefficients [=13] +! mcdat (33,9,6) : Mclatchy sounding data (33 levels, 9 soundings, 6 vars) +! mclat (33,9,6) : mcdat interpolated by season to latitude bands +! mcol (33,6) : mclat interpolated to lat-lon of grid column +! +! Additional variables used only within routine cloud_opt: +! ================================================================== +! ib .......... band number +! dn .......... characteristic diameter (m) +! oc .......... scattering albedo fit coefficients +! bc .......... extinction fit coefficients +! gc .......... asymmetery fit coefficients +! kradcat ..... cross-reference table giving Jerry's 13 hydrometeor category +! numbers as a func of 15 microphysics category numbers +! +! Particle Numbers describe the following particles: +! +! Harrington radiation code RAMS microphysics +! ---------------------------------------------------------------- +! 1: cloud drops 1. cloud drops +! 2: rain 2. rain +! 3: pristine ice columns 3. pristine ice columns +! 4: pristine ice rosettes 4. snow columns +! 5: pristine ice plates 5. aggregates +! 6: snow columns 6. graupel +! 7: snow rosettes 7. hail +! 8: snow plates 8. pristine ice hexagonal plates +! 9: aggregates columns 9. pristine ice dendrites +! 10: aggregates rosettes 10. pristine ice needles +! 11: aggregates plates 11. pristine ice rosettes +! 12: graupel 12. snow hexagonal plates +! 13: hail 13. snow dendrites +! 14. snow needles +! 15. snow rosettes +! +! for the asymmetery parameter, since we only have spherical +! particles, there are only 7 particle types... +! 1: cloud drops +! 2: rain +! 3: pristine ice +! 4: snow +! 5: aggregates +! 6: graupel +! 7: hail +!--------------------------------------------------------------------------- + +use rconstants +use rrad3 +use micphys +use node_mod + +implicit none + +integer m1,maxnzp,mcat,ngrid +integer :: iswrtyp,ilwrtyp +integer i,j,k +integer, save :: ncall = 0,nradmax +integer, save :: ngass(mg)=(/1, 1, 1/),ngast(mg)=(/1, 1, 1/) +! one can choose the gases of importance here, +! ngas = 1 gas active +! = 0 gas not active +! +! ngas(1) = H2O +! ngas(2) = CO2 +! ngas(3) = O3 + +real, save :: eps=1.e-15 +real :: glat,rtgt,topt,cosz,albedt,rlongup,rshort,rlong,aodt +real :: zm(m1),zt(m1),dn0(m1),rv(m1),fthrd(m1) +real :: bext(m1),swup(m1),swdn(m1),lwup(m1),lwdn(m1) + +real, allocatable, save, dimension(:) :: zml,ztl,dzl,pl,tl,dl,rl,o3l & + ,vp,flxus,flxds,tg,tcr,src,t,r,tc & + ,flxul,flxdl & + ,sigu,sigd,re,vd,td,vu & + ,u,fu,fd,tp,omgp,gp + +real :: exner(m1) !non-dimensional pressure + +!Saleeby(2011):Variables for radiatively active aerosols +real :: relh(m1) +real, external :: rslf + +if (ncall == 0) then + ncall = 1 + nradmax = maxnzp + namax + allocate(zml (nradmax) ,ztl (nradmax) ,dzl (nradmax) ,pl (nradmax) & + ,tl (nradmax) ,dl (nradmax) ,rl (nradmax) ,o3l(nradmax) & + ,vp (nradmax) ,flxus(nradmax) ,flxds(nradmax) ,tg (nradmax) & + ,flxul(nradmax) ,flxdl(nradmax) & + ,tcr (nradmax) ,src (nradmax) ,t (nradmax) ,r (nradmax) & + ,tc (nradmax) ,sigu (nradmax) ,sigd (nradmax) ,re (nradmax) & + ,vd (nradmax) ,td (nradmax) ,vu (nradmax)) + allocate(u(nradmax*mg),fu(nradmax*6),fd(nradmax*6)) + allocate(tp(nradmax*mb),omgp(nradmax*mb),gp(nradmax*mb)) + tg=0. +endif + +nrad = m1 - 1 + narad + +! rlongup used to set tl(1): stephan*tl^4=rlongup + CALL mclatchy (3,m1 & + ,glat,rtgt,topt,rlongup & + ,zm,zt,press,tair,dn0,rv,zml,ztl,pl,tl,dl,rl,o3l,dzl & + ) + +! calculate non-dimensional pressure +do k=1,m1 + exner(k) = (press(k)*p00i)**rocp +enddo + +! zero out scratch arrays + CALL azero (nrad*mg,u) + CALL azero (nrad*6,fu) + CALL azero (nrad*6,fd) + CALL azero (nrad*mb,tp) + CALL azero (nrad*mb,omgp) + CALL azero (nrad*mb,gp) + CALL azero (nrad ,tg) + +! Saleeby(2011): Aerosol radiative impacts section +! This must be run before cloud_opt +! Only run this for level=3 microphysics +if(iaerorad==1 .and. level .ne. 4) then + !Only do levels 1 through m1-1. If there are no additional radiation levels, + !then pl and tl only get inititalized (mclatchy call with iaction == 3) up + !to level m1-1. Also, aerorad always computes from level 2 to m1-1. + do k=1,m1-1 + relh(k) = rv(k)/rslf(pl(k),tl(k)) + enddo + CALL aerorad (i,j,mb,nb,nrad,m1,dzl,relh,tp,omgp,gp,dn0,aodt) +endif + +! Compute hydrometeor optical properties + CALL cloud_opt (mb,nb,nrad,m1,mcat,dzl & + ,dn0,tp,omgp,gp & + ,ocoef,bcoef,gcoef,ncog,ncb,npartob,npartg) + +! Sum up attenutation by aerosols and hydrometeors + CALL sum_opt (mb,nrad,nb,m1,tp,omgp,gp,bext,dzl) + +! Get the path lengths for the various gases... + CALL path_lengths (nrad,u,rl,dzl,dl,o3l,vp,pl,eps) + +do k = 1,nrad + if (rl(k) < 0. .or. & + dl(k) < 0. .or. & + pl(k) < 0. .or. & + o3l(k) < 0.) then + print*, 'Negative value of density, vapor, pressure, or ozone' + print*, 'when calling Harrington radiation' + print*, 'at k,i,j = ',k,i+mi0(ngrid),j+mj0(ngrid) + print*, 'ngrid=',ngrid + print*, 'stopping model' + print*, 'rad: rl(k), dl(k), pl(k), o3l(k)' + print*, rv(k), dl(k), pl(k), o3l(k) + stop + endif +enddo +do k = 1,nrad + if (tl(k) < 160.) then + print*, 'Temperature too low when calling Harrington radiation' + print*, 'at k,i,j = ',k,i+mi0(ngrid),j+mj0(ngrid) + print*, 'ngrid,tempk=',ngrid,tl(k) + !stop + endif +enddo + +! call shortwave and longwave schemes... + +if (iswrtyp == 3 .and. cosz > 0.03) then + CALL azero2 (nrad,flxus,flxds) + + CALL swrad (nrad,nb,nsolb,npsb, & !counters + u,pl,tl,dzl, & !model variables + xp,alpha,beta,wght,prf,trf,ralcs, & !band specifics + solar1,ngass, & !coefficients + albedt,cosz, & !boundaries + tp,omgp,gp,fu,fd, & !optical properties + flxus,flxds,ulim) !sw fluxes + + rshort = flxds(1) + + do k = 2,m1-1 + !divide by exner to get potential temp heating rate + fthrd(k) = fthrd(k) & + + (flxds(k) - flxds(k-1) + flxus(k-1) - flxus(k)) & + / (dl(k) * dzl(k) * cp * exner(k)) + swup(k) = flxus(k) + swdn(k) = flxds(k) + enddo + !lower and upper boundary conditions on swup and swdn + swup(1) = flxus(1) + swup(m1) = flxus(nrad) ! use the top radiation value rather than m1 value + swdn(1) = flxds(1) + swdn(m1) = flxds(nrad) ! use the top radiation value rather than m1 value + +else + + swup = 0. + swdn = 0. + rshort = 0. + +endif + +if (ilwrtyp == 3) then + CALL azero2 (nrad,flxul,flxdl) + + CALL lwrad (i,j,nrad,nb,nsolb,npsb,nuum, & !counters + u,pl,tl,vp, & !model variables + xp,alpha,beta,wght,prf,trf,ralcs, & !band specifics + a0,a1,a2,a3, & !coefficients + exptabc,ngast, & !boundaries + tp,omgp,gp,fu,fd,flxul,flxdl,ulim) !fluxes, output + + !Set rlong to surface level downward longwave flux. + rlong = flxdl(1) + + !Make lowest level upward longwave flux equal to rlongup + !produced from land surface models (LEAF,SiB). + flxul(1) = rlongup + + do k = 2,m1-1 + !divide by exner to get potential temp heating rate + fthrd(k) = fthrd(k) & + + (flxdl(k) - flxdl(k-1) + flxul(k-1) - flxul(k)) & + / (dl(k) * dzl(k) * cp * exner(k)) + lwup(k) = flxul(k) + lwdn(k) = flxdl(k) + enddo + !lower and upper boundary conditions on lwup and lwdn + lwup(1) = flxul(1) + lwup(m1) = flxul(nrad) ! use the top radiation value rather than m1 value + lwdn(1) = flxdl(1) + lwdn(m1) = flxdl(nrad) ! use the top radiation value rather than m1 value + +endif + +return +END SUBROUTINE radcalc3 + +!############################################################################## +Subroutine cloud_opt (mb,nb,nrad,m1,mcat,dzl & + ,dn0,tp,omgp,gp,oc,bc,gc,ncog,ncb,npartob,npartg) + +! computing properties of spherical liquid water and irregular ice +! using fits to adt theory +! +! ib .......... band number +! mb .......... maximum number of bands +! nb .......... total number of bands +! m1 .......... number of vertical levels +! dzl .......... delta z in each level (m) +! dn .......... characteristic diameter (m) +! emb ......... mean hydrometeor mass (kg) +! cx .......... hydrometeor concentration (#/kg) +! tp .......... optical depth +! omgp ........ scattering albedo +! gp .......... asymmetry parameter +! oc .......... scattering albedo fit coefficients +! bc .......... extinction fit coefficients +! gc .......... asymmetry fit coefficients +! ncog ........ number of fit coefficients (omega and asym) +! ncb ......... number of fit coefficients (extinction) +! kradcat ..... cross-reference table giving Jerry's 13 hydrometeor category +! numbers as a func of 15 microphysics category numbers +! dn0 ......... model air density (kg/m^3) +! dnfac ....... factor for computing dn from emb +! pwmasi ...... inverse of power used in mass power law +! npartob ..... number of hydrometeor categories (including different habits) +! used for oc and bc coefficients +! npartg ...... number of hydrometeor categories used for gc coefficients +! +! Saleeby(2008): would need to modify dnmin,dnmax,kradcat for drizzle + +use micphys +use micro_prm + +implicit none + +integer mb,nb,ib,nrad,m1,ncog,ncb,krc,npartob,npartg +integer icat,mcat,k,ihcat + +integer kradcat(15) +real dzl(nrad),tp(nrad,mb),omgp(nrad,mb),gp(nrad,mb),dn0(m1) +real oc(ncog,mb,npartob),bc(ncb,mb,npartob),gc(ncog,mb,npartg) +real ext,om,gg,dn,gnu_tab + +real dnmin(7),dnmax(7) +data dnmin / 1., 10., 1., 125., 10., 10., 10./ +data dnmax /1000.,10000., 125.,10000.,10000.,10000.,10000./ + +data kradcat/1,2,3,6,10,12,13,5,5,3,4,8,8,6,7/ + +!For LEVEL=4 +real dnb(nkr) +integer newcat, kr +integer,dimension(11) :: kradcat3,ncat3 +real, dimension(11) :: cf,pw + +data kradcat3 /1,2,3,6,5,8,5,8,10,12,13/ +data ncat3 /1,2,3,4,3,4,3,4,5,6,7/ +data pw /3.0,3.0,3.0,2.841,2.474,2.474,2.523,2.038,2.584,3.0,3.0/ +data cf /523.4,523.4,22.1,2.924,0.884,0.884,1.124,0.023,4.843,209.4,471.2/ + +if (level <=3) then + do icat = 1,mcat + if (jnmb(icat) .gt. 0) then + + do k = 2,m1-1 + + if (cx(k,icat) .gt. 1.e-9) then + ihcat = jhcat(k,icat) + krc = kradcat(ihcat) + dn = dnfac(ihcat) * emb(k,icat) ** pwmasi(ihcat) * 1.e6 + + !Modification by Adele Igel (Oct 2020). + !Use an effective Dn here constrainted by effective diameter. + !Gnu from microphysics can be different from Gnu allowed in + !radiation due to lookup tables available only for Gnu=1,2. + !The two lines below help mitigate this difference. + !See Harrington's thesis for more detail. + gnu_tab = real(max(1,min(2,nint(gnu(icat))))) + dn = dn * (gnu(icat)+2.) / (gnu_tab + 2.) + + dn = max(dnmin(icat),min(dnmax(icat),dn)) + + do ib = 1,nb + + ext = cx(k,icat) * dn0(k) * dzl(k) & + * bc(1,ib,krc) * dn ** bc(2,ib,krc) + om = oc(1,ib,krc) & + + oc(2,ib,krc) * exp(oc(3,ib,krc) * dn) & + + oc(4,ib,krc) * exp(oc(5,ib,krc) * dn) + gg = gc(1,ib,icat) & + + gc(2,ib,icat) * exp(gc(3,ib,icat) * dn) & + + gc(4,ib,icat) * exp(gc(5,ib,icat) * dn) + + tp(k,ib) = tp(k,ib) + ext + omgp(k,ib) = omgp(k,ib) + om * ext + gp(k,ib) = gp(k,ib) + gg * om * ext + + enddo + + endif + enddo + endif + enddo +elseif (level == 4) then +!icat limits krc newcat species +!1 1,krdrop-1 1 1 cloud +!2 krdrop,nkr 2 2 rain +!3 1, 13 3 3 small columns +!4 14, nkr 6 4 large columns +!5 1, 15 5 3 small plates +!6 16, nkr 8 4 large plates +!7 1, 15 5 3 small dendrites +!8 16, nkr 8 4 large dendrites +!9 1, nkr 10 5 aggregates +!10 1, nkr 12 6 graupel +!11 1, nkr 13 7 hail + +!Cutoff size for bulk micro between small and large for +!ice crystals is 125 microns +!Newcat is corresponding bulk micro category + + do icat = 1,mcat + do k = 2,m1-1 + if (cxb2(k,icat) .gt. 1.e-9) then + krc = kradcat3(icat) + newcat = ncat3(icat) + dn = (rxb2(k,icat)/(cxb2(k,icat)*cf(icat)))**(1./pw(icat)) & + *1.e6/gnu(newcat) + dn = max(dnmin(newcat), min(dnmax(newcat),dn)) + !This only really works for liquid - + !need to consider how to calculate + !characteristic diameter for ice species - + !can we use the bulk table values? + do ib = 1,nb + ext = cxb2(k,icat) * dn0(k) * dzl(k) & + * bc(1,ib,krc) * dn ** bc(2,ib,krc) + om = oc(1,ib,krc) & + + oc(2,ib,krc) * exp(oc(3,ib,krc) * dn) & + + oc(4,ib,krc) * exp(oc(5,ib,krc) * dn) + gg = gc(1,ib,newcat) & + + gc(2,ib,newcat) * exp(gc(3,ib,newcat) * dn) & + + gc(4,ib,newcat) * exp(gc(5,ib,newcat) * dn) + tp(k,ib) = tp(k,ib) + ext + omgp(k,ib) = omgp(k,ib) + om * ext + gp(k,ib) = gp(k,ib) + gg * om * ext + enddo + endif + enddo + enddo +endif + +return +END SUBROUTINE cloud_opt + +!############################################################################## +Subroutine sum_opt (mb,nrad,nb,m1,tp,omgp,gp,bext,dzl) + +implicit none + +integer nb,ib,m1,k,mb,nrad +real tp(nrad,mb),omgp(nrad,mb),gp(nrad,mb),bext(m1),dzl(m1) + +! Combine the optical properties.... + +do ib = 1,nb + do k = 2,m1-1 + + if (tp(k,ib) .gt. 0.0) then + gp(k,ib) = gp(k,ib) / omgp(k,ib) + !Saleeby(2010): Need this min/max func to prevent 'gp' + ! from being unphysical. Needed for RCE simulations. + gp(k,ib) = MAX(MIN(gp(k,ib),1.),0.) + omgp(k,ib) = omgp(k,ib) / tp(k,ib) + !Saleeby(2010): Need this min/max func to prevent 'omgp' + ! from being unphysical. Needed for RCE simulations. + omgp(k,ib) = MAX(MIN(omgp(k,ib),1.),0.) + else + omgp(k,ib) = 0.0 + gp(k,ib) = 0.0 + endif + + !Check for validity of opt values before calling radiation + if (tp(k,ib) .lt. 0) then + print*, 'tp(k,ib) less than zero for k,ib = ',k,ib + print*, 'tp(k,ib) = ',tp(k,ib) + stop 'opt1' + endif + if (omgp(k,ib) .lt. 0. .or. omgp(k,ib) .gt. 1.) then + print*, 'omgp(k,ib) out of range [0,1] for k,ib = ',k,ib + print*, 'omgp(k,ib) = ',omgp(k,ib) + stop 'opt2' + endif + if (gp(k,ib) .lt. 0. .or. gp(k,ib) .gt. 1.) then + print*, 'gp(k,ib) out of range [0,1] for k,ib = ',k,ib + print*, 'gp(k,ib) = ',gp(k,ib) + stop 'opt3' + endif + + enddo +enddo + +! Calculating visual range (km) using the Koschmeider equation +! Units: tp(k,ib) : optical thickness in level k, band ib (dimensionless) +! dzl(k) : [m] +! final bext(k) : [km] +! Consider only over band #3 (245-700 nm) + do k = 2,m1-1 + bext(k) = 0. + bext(k) = tp(k,3) / dzl(k) !Compute extinction coefficient + !Prevent infinite visibility: constrain max vis to 1000km + if(bext(k) .lt. 3.912e-6) bext(k) = 3.912e-6 + bext(k) = 3.912/bext(k)/1000. + enddo + +return +END SUBROUTINE sum_opt + +!############################################################################## +Subroutine path_lengths (nrad,u,rl,dzl,dl,o3l,vp,pl,eps) + +! Get the path lengths for the various gases... + +implicit none + +integer :: nrad +real, dimension(nrad) :: rl,dzl,dl,o3l,vp,pl +real, dimension(nrad,3) :: u +real :: rvk0,rvk1,dzl9,rmix,eps +integer :: k + +u(1,1) = .5 * (rl(2) + rl(1)) * 9.81 * dzl(1) +u(1,2) = .5 * (dl(2) + dl(1)) * .45575e-3 * 9.81 * dzl(1) +u(1,3) = o3l(1) * 9.81 * dzl(1) + +rvk0 = rl(1) +do k = 2,nrad + rvk1 = (rl(k) + 1.e-6) + dzl9 = 9.81 * dzl(k) + rmix = rvk1 / dl(k) + vp(k) = pl(k) * rmix / (.622 + rmix) + u(k,1) = (rvk1 - rvk0) / (log(rvk1 / rvk0) + eps) * dzl9 + u(k,2) = (dl(k) - dl(k-1)) / (log(dl(k) / dl(k-1)) + eps) & + * dzl9 * 0.45575e-3 + u(k,3) = 0.5 * dzl9 * (o3l(k) + o3l(k-1)) + rvk0 = rvk1 +enddo + +return +END SUBROUTINE path_lengths + +!############################################################################## +Subroutine cloud_prep_lev4 (m1,i,j,ng) + +use mem_micro +use module_hujisbm, only: xl, xi, xs, xg, xh +use micro_prm, only: col, iceprocs, nkr, & + krdrop, krpris, rxb2, cxb2 +use micphys, only:ipris, igraup, ihail + +implicit none + +integer :: m1,i,j,ng,kr +integer :: k,lcat + +! Prepare cloud arrays for radiation. Requires LEVEL == 4 + +rxb2 = 0. +cxb2 = 0. + +! fill scratch arrays for cloud water +do kr=1,krdrop-1 + do k = 2,m1-1 + rxb2(k,1) = rxb2(k,1) + micro_g(ng)%ffcd(k,i,j,kr) * col + cxb2(k,1) = cxb2(k,1) + & + micro_g(ng)%ffcd(k,i,j,kr) * col / xl(kr) * 1000. + enddo +enddo + +! fill scratch arrays for rain water +do kr=krdrop,nkr + do k = 2,m1-1 + rxb2(k,2) = rxb2(k,2) + micro_g(ng)%ffcd(k,i,j,kr) * col + cxb2(k,2) = cxb2(k,2) + & + micro_g(ng)%ffcd(k,i,j,kr) * col / xl(kr) * 1000. + enddo +enddo + +if (iceprocs == 1) then +! fill scratch arrays for ice columns +if (ipris == 1 .or. ipris >= 4) then +do kr=1,krpris(1)-1 + do k = 2,m1-1 + rxb2(k,3) = rxb2(k,3) + micro_g(ng)%ffic(k,i,j,kr) * col + cxb2(k,3) = cxb2(k,3) + & + micro_g(ng)%ffic(k,i,j,kr) * col / xi(kr,1) * 1000. + enddo +enddo +do kr=krpris(1),nkr + do k = 2,m1-1 + rxb2(k,4) = rxb2(k,4) + micro_g(ng)%ffic(k,i,j,kr) * col + cxb2(k,4) = cxb2(k,4) + & + micro_g(ng)%ffic(k,i,j,kr) * col / xi(kr,1) * 1000. + enddo +enddo +endif + +! fill scratch arrays for ice plates + +if (ipris == 2 .or. ipris >=4) then +do kr=1,krpris(2)-1 + do k = 2,m1-1 + rxb2(k,5) = rxb2(k,5) + micro_g(ng)%ffip(k,i,j,kr) * col + cxb2(k,5) = cxb2(k,5) + & + micro_g(ng)%ffip(k,i,j,kr) * col / xi(kr,2) * 1000. + enddo +enddo +do kr=krpris(2),nkr + do k = 2,m1-1 + rxb2(k,6) = rxb2(k,6) + micro_g(ng)%ffip(k,i,j,kr) * col + cxb2(k,6) = cxb2(k,6) + & + micro_g(ng)%ffip(k,i,j,kr) * col / xi(kr,2) * 1000. + enddo +enddo +endif + +! fill scratch arrays for ice dendrites + +if (ipris >= 3) then +do kr=1,krpris(3)-1 + do k = 2,m1-1 + rxb2(k,7) = rxb2(k,7) + micro_g(ng)%ffid(k,i,j,kr) * col + cxb2(k,7) = cxb2(k,7) + & + micro_g(ng)%ffid(k,i,j,kr) * col / xi(kr,3) * 1000. + enddo +enddo +do kr=krpris(3),nkr + do k = 2,m1-1 + rxb2(k,8) = rxb2(k,8) + micro_g(ng)%ffid(k,i,j,kr) * col + cxb2(k,8) = cxb2(k,8) + & + micro_g(ng)%ffid(k,i,j,kr) * col / xi(kr,3) * 1000. + enddo +enddo +endif + +! fill scratch arrays for aggregates + +do kr=1,nkr + do k = 2,m1-1 + rxb2(k,9) = rxb2(k,9) + micro_g(ng)%ffsn(k,i,j,kr) * col + cxb2(k,9) = cxb2(k,9) + & + micro_g(ng)%ffsn(k,i,j,kr) * col / xs(kr) * 1000. + enddo +enddo + +! fill scratch arrays for graupel + +if (igraup > 0) then +do kr=1,nkr + do k = 2,m1-1 + rxb2(k,10) = rxb2(k,10) + micro_g(ng)%ffgl(k,i,j,kr) * col + cxb2(k,10) = cxb2(k,10) + & + micro_g(ng)%ffgl(k,i,j,kr) * col / xg(kr) * 1000. + enddo +enddo +endif + +! fill scratch arrays for hail + +if (ihail > 0) then +do kr=1,nkr + do k = 2,m1-1 + rxb2(k,11) = rxb2(k,11) + micro_g(ng)%ffhl(k,i,j,kr) * col + cxb2(k,11) = cxb2(k,11) + & + micro_g(ng)%ffhl(k,i,j,kr) * col / xh(kr) * 1000. + enddo +enddo +endif +endif !if Iceprocs + +return +END SUBROUTINE cloud_prep_lev4 diff --git a/src/6.2.16/radiate/rad_mclat.f90 b/src/6.2.16/radiate/rad_mclat.f90 new file mode 100644 index 0000000..8de9dd1 --- /dev/null +++ b/src/6.2.16/radiate/rad_mclat.f90 @@ -0,0 +1,633 @@ +!############################################################################## +Subroutine mclatchy (iaction,m1 & + ,glat,rtgt,topt,rlongup & + ,zm,zt,press,tair,dn0,rv,zml,ztl,pl,tl,dl,rl,o3l,dzl & + ) + +use rconstants +use rrad3 +use mem_grid, only:iprntstmt,print_msg + +implicit none + +integer :: iaction,m1,k,lv,lf,lats,latn,lat & + ,isummer,iwinter,is,ind,index,ilev,ifld +integer, dimension(11) :: latind + +real :: prsnz,prsnzp,glat,rtgt,topt,rlongup,rgasog,deltap & + ,wtnorth,wtsouth,wt,fjday,wtjul,wtjan +real, dimension(m1) :: zm,zt,press,tair,dn0,rv +real, dimension(nrad) :: zml,ztl,pl,tl,dl,rl,o3l,dzl +real, dimension(33,9,6) :: mcdat,mclat +real, dimension(33,6) :: mcol +real, dimension(12) :: slat + +!Variables for computing extra radiation levels based on model level height +integer :: lvert,larea +real, dimension(33)::meanvert,meanpres +real :: zwt + +data latind/1,1,2,3,4,5,5,6,7,8,9/ +data slat/-90.,-70.,-60.,-45.,-25.,-15.,15.,25.,45.,60.,70.,90./ + +! arctic winter +data ((mcdat(ilev,1,ifld),ifld=1,6),ilev=1,11)/ & + 0., 101350.0, 249.1, .1201E-02, .4105E-07, .1417E+01, & + 1000., 88416.0, 252.2, .1190E-02, .4067E-07, .1221E+01, & + 2000., 77213.0, 250.9, .1014E-02, .4036E-07, .1072E+01, & + 3000., 67274.0, 245.4, .7333E-03, .4221E-07, .9549E+00, & + 4000., 58431.0, 239.9, .4471E-03, .4384E-07, .8485E+00, & + 5000., 50583.0, 234.4, .2254E-03, .4527E-07, .7518E+00, & + 6000., 43640.0, 228.9, .9344E-04, .4681E-07, .6643E+00, & + 7000., 37520.0, 223.4, .3123E-04, .6740E-07, .5852E+00, & + 8000., 32171.0, 217.9, .1248E-04, .8508E-07, .5139E+00, & + 9000., 27435.0, 214.9, .7875E-05, .1505E-06, .4448E+00, & + 10000., 23398.0, 214.4, .5161E-05, .2248E-06, .3802E+00/ +data ((mcdat(ilev,1,ifld),ifld=1,6),ilev=12,22)/ & + 11000., 19951.0, 213.9, .3533E-05, .2983E-06, .3249E+00, & + 12000., 17008.0, 213.2, .2393E-05, .3988E-06, .2779E+00, & + 13000., 14490.0, 212.4, .1538E-05, .4330E-06, .2376E+00, & + 14000., 12338.0, 211.6, .1005E-05, .4477E-06, .2031E+00, & + 15000., 10499.0, 210.9, .6644E-06, .5076E-06, .1735E+00, & + 16000., 8929.0, 210.1, .5438E-06, .5554E-06, .1481E+00, & + 17000., 7590.0, 209.3, .4610E-06, .5497E-06, .1264E+00, & + 18000., 6450.0, 208.4, .3906E-06, .5442E-06, .1078E+00, & + 19000., 5475.0, 207.7, .3307E-06, .5208E-06, .9185E-01, & + 20000., 4648.0, 207.6, .2800E-06, .4809E-06, .7797E-01, & + 21000., 3945.0, 207.6, .2373E-06, .4337E-06, .6619E-01/ +data ((mcdat(ilev,1,ifld),ifld=1,6),ilev=23,33)/ & + 22000., 3349.0, 207.6, .2014E-06, .3961E-06, .5619E-01, & + 23000., 2843.0, 207.6, .1705E-06, .3594E-06, .4770E-01, & + 24000., 2414.0, 207.6, .1443E-06, .2986E-06, .4050E-01, & + 25000., 2050.0, 207.6, .1226E-06, .2633E-06, .3439E-01, & + 30000., 905.1, 207.6, .5169E-07, .1178E-06, .1519E-01, & + 35000., 417.1, 213.9, .2317E-07, .7227E-07, .6804E-02, & + 40000., 199.0, 225.6, .1045E-07, .3221E-07, .3075E-02, & + 45000., 98.8, 237.7, .4933E-08, .1021E-07, .1449E-02, & + 50000., 50.8, 248.2, .2412E-08, .3378E-08, .7094E-03, & + 70000., 3.5, 235.3, .1791E-09, .6756E-10, .5259E-04, & + 103000., .1, 201.2, .1571E-11, .3378E-13, .4617E-06/ +! arctic summer +data ((mcdat(ilev,2,ifld),ifld=1,6),ilev=1,11)/ & + 0., 101250.0, 278.1, .9164E-02, .4935E-07, .1265E+01, & + 1000., 89502.0, 275.5, .5963E-02, .5366E-07, .1129E+01, & + 2000., 79020.0, 272.9, .4173E-02, .5564E-07, .1007E+01, & + 3000., 69671.0, 268.4, .2664E-02, .5743E-07, .9030E+00, & + 4000., 61250.0, 261.9, .1630E-02, .5926E-07, .8141E+00, & + 5000., 53667.0, 255.4, .9583E-03, .6303E-07, .7317E+00, & + 6000., 46862.0, 248.9, .5328E-03, .6966E-07, .6558E+00, & + 7000., 40778.0, 242.4, .2829E-03, .7316E-07, .5861E+00, & + 8000., 35349.0, 235.9, .1262E-03, .7668E-07, .5221E+00, & + 9000., 30525.0, 229.4, .4040E-04, .1063E-06, .4636E+00, & + 10000., 26261.0, 226.7, .1681E-04, .1249E-06, .4036E+00/ +data ((mcdat(ilev,2,ifld),ifld=1,6),ilev=12,22)/ & + 11000., 22598.0, 227.7, .8268E-05, .1739E-06, .3458E+00, & + 12000., 19460.0, 228.6, .4072E-05, .2036E-06, .2965E+00, & + 13000., 16770.0, 229.6, .2006E-05, .2532E-06, .2544E+00, & + 14000., 12469.0, 230.1, .7442E-06, .2043E-06, .1887E+00, & + 15000., 10752.0, 230.1, .5726E-06, .2358E-06, .1628E+00, & + 16000., 9273.0, 230.1, .4935E-06, .2508E-06, .1404E+00, & + 17000., 7999.0, 230.1, .4274E-06, .2899E-06, .1211E+00, & + 18000., 6898.0, 230.1, .3693E-06, .3065E-06, .1044E+00, & + 19000., 5950.0, 230.1, .3198E-06, .3085E-06, .9007E-01, & + 20000., 5232.0, 230.1, .2823E-06, .3016E-06, .7769E-01, & + 21000., 4428.0, 230.1, .2395E-06, .2746E-06, .6702E-01/ +data ((mcdat(ilev,2,ifld),ifld=1,6),ilev=23,33)/ & + 22000., 3819.0, 230.1, .2071E-06, .2454E-06, .5781E-01, & + 23000., 3295.0, 230.7, .1788E-06, .2312E-06, .4976E-01, & + 24000., 2845.0, 231.9, .1538E-06, .2176E-06, .4274E-01, & + 25000., 2459.0, 233.1, .1330E-06, .2035E-06, .3674E-01, & + 30000., 1198.0, 239.1, .9439E-07, .1662E-06, .1746E-01, & + 35000., 591.0, 251.6, .3335E-07, .8225E-07, .8631E-02, & + 40000., 304.0, 266.9, .1618E-07, .3666E-07, .4442E-02, & + 45000., 161.8, 278.9, .8288E-08, .1162E-07, .2371E-02, & + 50000., 88.2, 281.8, .4443E-08, .3844E-08, .1288E-02, & + 70000., 6.3, 220.6, .4068E-09, .7689E-10, .9227E-04, & + 104000., .1, 213.1, .1788E-11, .3844E-13, .6525E-06/ +! sub-arctic winter +data ((mcdat(ilev,3,ifld),ifld=1,6),ilev=1,11)/ & + 0., 101300.0, 257.1, .1200E-02, .4100E-07, .1372E+01, & + 1000., 88780.0, 259.1, .1200E-02, .4100E-07, .1193E+01, & + 2000., 77750.0, 256.4, .1030E-02, .4100E-07, .1058E+01, & + 3000., 67980.0, 252.2, .7470E-03, .4300E-07, .9366E+00, & + 4000., 59320.0, 246.8, .4590E-03, .4500E-07, .8339E+00, & + 5000., 51580.0, 240.6, .2340E-03, .4700E-07, .7457E+00, & + 6000., 44670.0, 233.9, .9780E-04, .4900E-07, .6646E+00, & + 7000., 38530.0, 227.1, .3290E-04, .7100E-07, .5904E+00, & + 8000., 33080.0, 220.4, .1320E-04, .9000E-07, .5226E+00, & + 9000., 28290.0, 217.1, .8370E-05, .1600E-06, .4538E+00, & + 10000., 24180.0, 217.1, .5510E-05, .2400E-06, .3879E+00/ +data ((mcdat(ilev,3,ifld),ifld=1,6),ilev=12,22)/ & + 11000., 20670.0, 217.1, .3790E-05, .3200E-06, .3315E+00, & + 12000., 17660.0, 217.1, .2580E-05, .4300E-06, .2834E+00, & + 13000., 15100.0, 217.1, .1670E-05, .4700E-06, .2422E+00, & + 14000., 12910.0, 217.1, .1100E-05, .4900E-06, .2071E+00, & + 15000., 11030.0, 217.0, .7330E-06, .5600E-06, .1770E+00, & + 16000., 9431.0, 216.7, .6070E-06, .6200E-06, .1517E+00, & + 17000., 8058.0, 216.1, .5200E-06, .6200E-06, .1300E+00, & + 18000., 6882.0, 215.5, .4450E-06, .6200E-06, .1113E+00, & + 19000., 5875.0, 214.9, .3810E-06, .6000E-06, .9529E-01, & + 20000., 5014.0, 214.3, .3260E-06, .5600E-06, .8155E-01, & + 21000., 4277.0, 213.7, .2790E-06, .5100E-06, .6976E-01/ +data ((mcdat(ilev,3,ifld),ifld=1,6),ilev=23,33)/ & + 22000., 3647.0, 213.1, .2390E-06, .4700E-06, .5966E-01, & + 23000., 3109.0, 212.5, .2040E-06, .4300E-06, .5100E-01, & + 24000., 2649.0, 212.0, .1740E-06, .3600E-06, .4358E-01, & + 25000., 2256.0, 211.9, .1490E-06, .3200E-06, .3722E-01, & + 30000., 1020.0, 216.6, .6580E-07, .1500E-06, .1645E-01, & + 35000., 470.1, 223.1, .2950E-07, .9200E-07, .7368E-02, & + 40000., 224.3, 235.3, .1330E-07, .4100E-07, .3330E-02, & + 45000., 111.3, 247.9, .6280E-08, .1300E-07, .1569E-02, & + 50000., 57.2, 258.9, .3070E-08, .4300E-08, .7682E-03, & + 70000., 4.0, 245.4, .2280E-09, .8600E-10, .5695E-04, & + 103000., .1, 209.9, .2000E-11, .4300E-13, .5000E-06/ +! sub-arctic summer +data ((mcdat(ilev,4,ifld),ifld=1,6),ilev=1,11)/ & + 0., 101000.0, 287.0, .9100E-02, .4900E-07, .1220E+01, & + 1000., 89600.0, 281.7, .6000E-02, .5400E-07, .1110E+01, & + 2000., 79290.0, 276.4, .4200E-02, .5600E-07, .9971E+00, & + 3000., 70000.0, 271.1, .2690E-02, .5800E-07, .8985E+00, & + 4000., 61600.0, 265.7, .1650E-02, .6000E-07, .8077E+00, & + 5000., 54100.0, 259.8, .9730E-03, .6400E-07, .7244E+00, & + 6000., 47300.0, 252.8, .5430E-03, .7100E-07, .6519E+00, & + 7000., 41300.0, 245.8, .2900E-03, .7500E-07, .5849E+00, & + 8000., 35900.0, 238.8, .1300E-03, .7900E-07, .5231E+00, & + 9000., 31070.0, 231.8, .4180E-04, .1100E-06, .4663E+00, & + 10000., 26770.0, 225.6, .1750E-04, .1300E-06, .4142E+00/ +data ((mcdat(ilev,4,ifld),ifld=1,6),ilev=12,22)/ & + 11000., 23000.0, 225.0, .8560E-05, .1800E-06, .3559E+00, & + 12000., 19770.0, 225.0, .4200E-05, .2100E-06, .3059E+00, & + 13000., 17000.0, 225.0, .2060E-05, .2600E-06, .2630E+00, & + 14000., 14600.0, 225.0, .1020E-05, .2800E-06, .2260E+00, & + 15000., 12500.0, 225.0, .7770E-06, .3200E-06, .1943E+00, & + 16000., 10801.0, 225.0, .6690E-06, .3400E-06, .1671E+00, & + 17000., 9280.0, 225.0, .5750E-06, .3900E-06, .1436E+00, & + 18000., 7980.0, 225.0, .4940E-06, .4100E-06, .1235E+00, & + 19000., 6860.0, 225.0, .4250E-06, .4100E-06, .1062E+00, & + 20000., 5890.0, 225.0, .3650E-06, .3900E-06, .9128E-01, & + 21000., 5070.0, 225.0, .3140E-06, .3600E-06, .7849E-01/ +data ((mcdat(ilev,4,ifld),ifld=1,6),ilev=23,33)/ & + 22000., 4360.0, 225.1, .2700E-06, .3200E-06, .6750E-01, & + 23000., 3750.0, 225.5, .2320E-06, .3000E-06, .5805E-01, & + 24000., 3227.0, 226.6, .1980E-06, .2800E-06, .4963E-01, & + 25000., 2780.0, 227.9, .1700E-06, .2600E-06, .4247E-01, & + 30000., 1340.0, 234.9, .7950E-07, .1400E-06, .1338E-01, & + 35000., 661.0, 247.2, .3730E-07, .9200E-07, .6614E-02, & + 40000., 340.0, 262.3, .1810E-07, .4100E-07, .3404E-02, & + 45000., 181.0, 274.1, .9270E-08, .1300E-07, .1817E-02, & + 50000., 98.7, 276.9, .4970E-08, .4300E-08, .9868E-03, & + 70000., 7.1, 216.8, .4550E-09, .8600E-10, .7071E-04, & + 104000., .1, 209.4, .2000E-11, .4300E-13, .5000E-06/ +! mid-latitude winter +data ((mcdat(ilev,5,ifld),ifld=1,6),ilev=1,11)/ & + 0., 101800.0, 272.2, .3500E-02, .6000E-07, .1301E+01, & + 1000., 89730.0, 268.7, .2500E-02, .5400E-07, .1162E+01, & + 2000., 78970.0, 265.2, .1800E-02, .4900E-07, .1037E+01, & + 3000., 69380.0, 261.2, .1160E-02, .4900E-07, .9230E+00, & + 4000., 60810.0, 255.7, .6900E-03, .4900E-07, .8282E+00, & + 5000., 53130.0, 249.6, .3780E-03, .5800E-07, .7411E+00, & + 6000., 46270.0, 243.6, .1890E-03, .6400E-07, .6614E+00, & + 7000., 40160.0, 237.6, .8570E-04, .7700E-07, .5886E+00, & + 8000., 34730.0, 231.6, .3500E-04, .9000E-07, .5222E+00, & + 9000., 29920.0, 225.6, .1600E-04, .1200E-06, .4619E+00, & + 10000., 25680.0, 220.6, .7500E-05, .1600E-06, .4072E+00/ +data ((mcdat(ilev,5,ifld),ifld=1,6),ilev=12,22)/ & + 11000., 21990.0, 219.2, .4440E-05, .2100E-06, .3496E+00, & + 12000., 18820.0, 218.7, .2720E-05, .2600E-06, .2999E+00, & + 13000., 16100.0, 218.2, .1720E-05, .3000E-06, .2572E+00, & + 14000., 13780.0, 217.7, .1130E-05, .3200E-06, .2206E+00, & + 15000., 11780.0, 217.2, .7640E-06, .3400E-06, .1890E+00, & + 16000., 10070.0, 216.7, .6480E-06, .3600E-06, .1620E+00, & + 17000., 8610.0, 216.2, .5550E-06, .3900E-06, .1388E+00, & + 18000., 7350.0, 215.7, .4750E-06, .4100E-06, .1188E+00, & + 19000., 6280.0, 215.4, .4060E-06, .4300E-06, .1017E+00, & + 20000., 5370.0, 215.2, .3040E-06, .4500E-06, .8690E-01, & + 21000., 4580.0, 215.2, .2970E-06, .4300E-06, .7421E-01/ +data ((mcdat(ilev,5,ifld),ifld=1,6),ilev=23,33)/ & + 22000., 3910.0, 215.2, .2530E-06, .4300E-06, .6338E-01, & + 23000., 3340.0, 215.2, .2160E-06, .3900E-06, .5415E-01, & + 24000., 2860.0, 215.2, .1850E-06, .3600E-06, .4624E-01, & + 25000., 2430.0, 215.4, .1570E-06, .3400E-06, .3950E-01, & + 30000., 1110.0, 217.3, .7120E-07, .1900E-06, .1783E-01, & + 35000., 518.0, 227.9, .3170E-07, .9200E-07, .7924E-02, & + 40000., 253.0, 244.0, .1450E-07, .4100E-07, .3625E-02, & + 45000., 129.0, 258.9, .6940E-08, .1300E-07, .1741E-02, & + 50000., 68.2, 265.6, .3580E-08, .4300E-08, .8954E-03, & + 70000., 4.7, 230.9, .2820E-09, .8600E-10, .7051E-04, & + 103000., .1, 210.1, .1990E-11, .4300E-13, .5000E-06/ +! mid-latitude summer +data ((mcdat(ilev,6,ifld),ifld=1,6),ilev=1,11)/ & + 0., 101300.0, 294.0, .1400E-01, .6000E-07, .1191E+01, & + 1000., 90200.0, 290.0, .9300E-02, .6000E-07, .1080E+01, & + 2000., 80200.0, 285.0, .5850E-02, .6000E-07, .9757E+00, & + 3000., 71000.0, 279.0, .3430E-02, .6200E-07, .8846E+00, & + 4000., 62800.0, 273.0, .1890E-02, .6400E-07, .7998E+00, & + 5000., 55400.0, 267.1, .1000E-02, .6600E-07, .7211E+00, & + 6000., 48700.0, 261.0, .6090E-03, .6900E-07, .6487E+00, & + 7000., 42600.0, 254.7, .3710E-03, .7500E-07, .5830E+00, & + 8000., 37200.0, 248.2, .2100E-03, .7900E-07, .5225E+00, & + 9000., 32400.0, 241.7, .1180E-03, .8600E-07, .4669E+00, & + 10000., 28100.0, 235.2, .6430E-04, .9000E-07, .4159E+00/ +data ((mcdat(ilev,6,ifld),ifld=1,6),ilev=12,22)/ & + 11000., 24300.0, 228.8, .2190E-04, .1100E-06, .3693E+00, & + 12000., 20900.0, 222.3, .6460E-05, .1200E-06, .3269E+00, & + 13000., 17900.0, 216.9, .1660E-05, .1500E-06, .2882E+00, & + 14000., 15300.0, 215.8, .9950E-06, .1800E-06, .2464E+00, & + 15000., 13000.0, 215.8, .8400E-06, .1900E-06, .2104E+00, & + 16000., 11000.0, 215.8, .7100E-06, .2100E-06, .1797E+00, & + 17000., 9500.0, 215.8, .6140E-06, .2400E-06, .1535E+00, & + 18000., 8120.0, 216.0, .5240E-06, .2800E-06, .1305E+00, & + 19000., 6950.0, 217.0, .4460E-06, .3200E-06, .1110E+00, & + 20000., 5950.0, 218.2, .3800E-06, .3400E-06, .9453E-01, & + 21000., 5100.0, 219.4, .3240E-06, .3600E-06, .8056E-01/ +data ((mcdat(ilev,6,ifld),ifld=1,6),ilev=23,33)/ & + 22000., 4370.0, 220.6, .2760E-06, .3600E-06, .6872E-01, & + 23000., 3760.0, 221.8, .2360E-06, .3400E-06, .5867E-01, & + 24000., 3220.0, 223.0, .2010E-06, .3200E-06, .5014E-01, & + 25000., 2770.0, 224.2, .1720E-06, .3000E-06, .4288E-01, & + 30000., 1320.0, 234.2, .7850E-07, .2000E-06, .1322E-01, & + 35000., 652.0, 245.3, .3700E-07, .9200E-07, .6519E-02, & + 40000., 333.0, 257.5, .1800E-07, .4100E-07, .3330E-02, & + 45000., 176.0, 269.7, .9090E-08, .1300E-07, .1757E-02, & + 50000., 95.1, 276.2, .4800E-08, .4300E-08, .9512E-03, & + 70000., 6.7, 219.1, .4270E-09, .8600E-10, .6706E-04, & + 104000., .1, 209.9, .1990E-11, .4300E-13, .5000E-06/ +! subtropical winter +data ((mcdat(ilev,7,ifld),ifld=1,6),ilev=1,11)/ & + 0., 102100.0, 287.1, .1125E-01, .5800E-07, .1233E+01, & + 1000., 90659.0, 284.2, .7750E-02, .5500E-07, .1107E+01, & + 2000., 80378.0, 281.2, .5545E-02, .5150E-07, .9934E+00, & + 3000., 71125.0, 274.7, .2930E-02, .5000E-07, .9006E+00, & + 4000., 62740.0, 268.2, .1675E-02, .4800E-07, .8142E+00, & + 5000., 55176.0, 261.7, .9540E-03, .5150E-07, .7340E+00, & + 6000., 48367.0, 255.2, .5245E-03, .5350E-07, .6599E+00, & + 7000., 42254.0, 248.8, .2783E-03, .5900E-07, .5916E+00, & + 8000., 36786.0, 242.3, .1425E-03, .6450E-07, .5289E+00, & + 9000., 31906.0, 235.8, .6850E-04, .7950E-07, .4713E+00, & + 10000., 27563.0, 229.3, .2825E-04, .9950E-07, .4187E+00/ +data ((mcdat(ilev,7,ifld),ifld=1,6),ilev=12,22)/ & + 11000., 23716.0, 222.9, .1117E-04, .1255E-06, .3707E+00, & + 12000., 20315.0, 216.4, .4400E-05, .1515E-06, .3270E+00, & + 13000., 17344.0, 213.7, .1755E-05, .1725E-06, .2828E+00, & + 14000., 14781.0, 211.1, .1058E-05, .1825E-06, .2439E+00, & + 15000., 12557.0, 208.5, .7605E-06, .1935E-06, .2101E+00, & + 16000., 10671.0, 205.9, .6425E-06, .2035E-06, .1805E+00, & + 17000., 9041.0, 203.3, .5485E-06, .2295E-06, .1549E+00, & + 18000., 7651.0, 203.1, .4615E-06, .2500E-06, .1311E+00, & + 19000., 6480.0, 205.4, .3880E-06, .2850E-06, .1099E+00, & + 20000., 5498.0, 207.9, .3060E-06, .3200E-06, .9213E-01, & + 21000., 4676.0, 210.4, .2770E-06, .3350E-06, .7743E-01/ +data ((mcdat(ilev,7,ifld),ifld=1,6),ilev=23,33)/ & + 22000., 3984.0, 212.9, .2345E-06, .3550E-06, .6520E-01, & + 23000., 3401.0, 214.9, .1995E-06, .3550E-06, .5512E-01, & + 24000., 2907.0, 216.9, .1700E-06, .3500E-06, .4669E-01, & + 25000., 2489.0, 218.9, .1440E-06, .3400E-06, .3961E-01, & + 30000., 1169.0, 228.8, .6535E-07, .2150E-06, .1780E-01, & + 35000., 568.0, 239.8, .2980E-07, .9200E-07, .8255E-02, & + 40000., 286.0, 251.6, .1405E-07, .4100E-07, .3960E-02, & + 45000., 148.8, 263.4, .6870E-08, .1300E-07, .1967E-02, & + 50000., 79.4, 269.1, .3580E-08, .4300E-08, .1027E-02, & + 70000., 5.4, 221.7, .2905E-09, .8600E-10, .8440E-04, & + 103000., .2, 191.1, .1805E-11, .4300E-13, .3422E-05/ +! subtropical summer +data ((mcdat(ilev,8,ifld),ifld=1,6),ilev=1,11)/ & + 0., 101350.0, 301.1, .1650E-01, .5800E-07, .1159E+01, & + 1000., 90464.0, 293.7, .1115E-01, .5800E-07, .1066E+01, & + 2000., 80504.0, 288.2, .7570E-02, .5700E-07, .9686E+00, & + 3000., 71484.0, 282.7, .4065E-02, .5650E-07, .8776E+00, & + 4000., 63311.0, 277.2, .2275E-02, .5550E-07, .7937E+00, & + 5000., 55936.0, 271.7, .1265E-02, .5550E-07, .7159E+00, & + 6000., 49292.0, 266.3, .7345E-03, .5600E-07, .6443E+00, & + 7000., 43304.0, 259.3, .4210E-03, .5800E-07, .5814E+00, & + 8000., 37913.0, 252.3, .2300E-03, .5900E-07, .5233E+00, & + 9000., 33068.0, 245.3, .1195E-03, .6250E-07, .4694E+00, & + 10000., 28729.0, 238.4, .5665E-04, .6450E-07, .4198E+00/ +data ((mcdat(ilev,8,ifld),ifld=1,6),ilev=12,22)/ & + 11000., 24858.0, 231.4, .1990E-04, .7550E-07, .3742E+00, & + 12000., 21414.0, 224.4, .6270E-05, .8150E-07, .3324E+00, & + 13000., 18359.0, 217.5, .1725E-05, .9750E-07, .2941E+00, & + 14000., 15665.0, 210.5, .9905E-06, .1125E-06, .2953E+00, & + 15000., 13295.0, 203.5, .7985E-06, .1185E-06, .2276E+00, & + 16000., 11248.0, 203.1, .6735E-06, .1285E-06, .1929E+00, & + 17000., 9526.0, 205.2, .5780E-06, .1545E-06, .1617E+00, & + 18000., 8081.0, 207.4, .4860E-06, .1850E-06, .1358E+00, & + 19000., 6868.0, 209.6, .4080E-06, .2300E-06, .1142E+00, & + 20000., 5846.0, 211.8, .3440E-06, .2650E-06, .9618E-01, & + 21000., 4986.0, 213.9, .2905E-06, .3000E-06, .8119E-01/ +data ((mcdat(ilev,8,ifld),ifld=1,6),ilev=23,33)/ & + 22000., 4258.0, 215.9, .2460E-06, .3200E-06, .6870E-01, & + 23000., 3643.0, 217.9, .2095E-06, .3300E-06, .5823E-01, & + 24000., 3121.0, 219.9, .1780E-06, .3300E-06, .4944E-01, & + 25000., 2677.0, 221.9, .1515E-06, .3200E-06, .4203E-01, & + 30000., 1270.0, 231.8, .6900E-07, .2200E-06, .1909E-01, & + 35000., 622.9, 242.8, .3245E-07, .9200E-07, .8939E-02, & + 40000., 316.2, 254.6, .1580E-07, .4100E-07, .4327E-02, & + 45000., 165.7, 266.4, .7945E-08, .1300E-07, .2167E-02, & + 50000., 89.1, 272.1, .4190E-08, .4300E-08, .1140E-03, & + 70000., 6.1, 217.6, .3630E-09, .8600E-10, .9739E-04, & + 103000., .2, 180.1, .1805E-11, .4300E-13, .3472E-05/ +! tropical +data ((mcdat(ilev,9,ifld),ifld=1,6),ilev=1,11)/ & + 0., 101300.0, 300.0, .1900E-01, .5600E-07, .1167E+01, & + 1000., 90400.0, 294.1, .1300E-01, .5600E-07, .1064E+01, & + 2000., 80500.0, 288.4, .9290E-02, .5400E-07, .9689E+00, & + 3000., 71500.0, 283.6, .4700E-02, .5100E-07, .8756E+00, & + 4000., 63300.0, 277.4, .2660E-02, .4700E-07, .7951E+00, & + 5000., 55900.0, 270.7, .1530E-02, .4500E-07, .7199E+00, & + 6000., 49200.0, 264.0, .8600E-03, .4300E-07, .6501E+00, & + 7000., 43200.0, 257.3, .4710E-03, .4100E-07, .5855E+00, & + 8000., 37800.0, 250.6, .2500E-03, .3900E-07, .5258E+00, & + 9000., 32900.0, 243.8, .1210E-03, .3900E-07, .4708E+00, & + 10000., 28600.0, 237.2, .4900E-04, .3900E-07, .4202E+00/ +data ((mcdat(ilev,9,ifld),ifld=1,6),ilev=12,22)/ & + 11000., 24700.0, 230.4, .1790E-04, .4100E-07, .3740E+00, & + 12000., 21300.0, 223.8, .6080E-05, .4300E-07, .3316E+00, & + 13000., 18200.0, 217.0, .1790E-05, .4500E-07, .2929E+00, & + 14000., 15600.0, 210.4, .9860E-06, .4500E-07, .2578E+00, & + 15000., 13200.0, 203.6, .7570E-06, .4700E-07, .2260E+00, & + 16000., 11100.0, 196.8, .6370E-06, .4700E-07, .1972E+00, & + 17000., 9370.0, 195.6, .5420E-06, .6900E-07, .1676E+00, & + 18000., 7890.0, 199.5, .4480E-06, .9000E-07, .1382E+00, & + 19000., 6660.0, 203.6, .3700E-06, .1400E-06, .1145E+00, & + 20000., 5650.0, 207.6, .3080E-06, .1900E-06, .9515E-01, & + 21000., 4800.0, 211.5, .2570E-06, .2400E-06, .7938E-01/ +data ((mcdat(ilev,9,ifld),ifld=1,6),ilev=23,33)/ & + 22000., 4090.0, 214.6, .2160E-06, .2800E-06, .6645E-01, & + 23000., 3500.0, 216.9, .1830E-06, .3200E-06, .5618E-01, & + 24000., 3000.0, 219.1, .1550E-06, .3400E-06, .4763E-01, & + 25000., 2570.0, 221.3, .1310E-06, .3400E-06, .4045E-01, & + 30000., 1220.0, 232.3, .5950E-07, .2400E-06, .1831E-01, & + 35000., 600.0, 243.3, .2790E-07, .9200E-07, .8600E-02, & + 40000., 305.0, 254.3, .1360E-07, .4100E-07, .4181E-02, & + 45000., 159.0, 264.9, .6800E-08, .1300E-07, .2097E-02, & + 50000., 85.4, 270.0, .3580E-08, .4300E-08, .1101E-02, & + 70000., 5.8, 219.5, .2990E-09, .8600E-10, .9210E-04, & + 103000., .1, 209.9, .1620E-11, .4300E-13, .5000E-06/ + +save + +! field # from Mclatchy Soundings +! 1 : Height (m) +! 2 : pressure (Pa) +! 3 : potential temp (K) +! 4 : vapor density (kg/m^3) +! 5 : ozone density (kg/m^3) +! 6 : air density (kg/m^3) + +if (iaction .eq. 1) then + + rgasog = rgas / g + +! Copy (since no time interpolation needed) tropical sounding to mclat array +! (done only once on each node). + + do lv = 1,33 + do lf = 1,6 + mclat(lv,5,lf) = mcdat(lv,9,lf) + enddo + enddo + +! Compute number of levels to be added above model top from Mclatchy soundings. +! Base this number on prsnz and prsnzp, which was earlier computed from +! PI01DN(NNZP(1),1), so that it is the same for all compute nodes +! (done only once on each node). This previous statement has been replaced +! with a method of computing radiation levels from model height levels using +! the McLatchy data in the tables above. This way, we do not rely on reference +! state PI which other models may not have. Doing things this new way for +! easy adaptation to the single column model (SCM). Compute "prsnz" and +! "prsnzp" and "narad" from pressure estimates associated with model top heights +! and McLatchy sounding data above. + +! Compute mean vertical levels and associated pressure for all McLatchy +! sounding tables above. To be used to estimate pressure at model heights +! without knowing the exact pressure. + + do lvert = 1,33 + do larea = 1,9 + meanvert(lvert) = meanvert(lvert) + mcdat(lvert,larea,1)*(1./9.) + meanpres(lvert) = meanpres(lvert) + mcdat(lvert,larea,2)*(1./9.) + enddo + if(iprntstmt>=1 .and. print_msg) & + print*,'lvert,meanvert,meanpres',lvert,meanvert(lvert),meanpres(lvert) + enddo + + if(iprntstmt>=1 .and. print_msg) & + print*,'McLatchy zt,press',zt(m1-1),prsnz,zt(m1),prsnzp + +! Interpolate McLatchy sounding pressure based the mean vertical levels and +! asscociated mean pressure to obtain "prsnz" and "prsnzp" based on model +! levels heights rather than reference state pressure when this base state +! is not available. + + do lvert = 1,32 + if(meanvert(lvert) <= zt(m1-1) .and. zt(m1-1) <= meanvert(lvert+1))then + zwt=(zt(m1-1)-meanvert(lvert)) / (meanvert(lvert+1)-meanvert(lvert)) + prsnz=zwt*meanpres(lvert+1) + (1.0-zwt)*meanpres(lvert) + endif + if(meanvert(lvert) <= zt(m1) .and. zt(m1) <= meanvert(lvert+1))then + zwt=(zt(m1)-meanvert(lvert)) / (meanvert(lvert+1)-meanvert(lvert)) + prsnzp=zwt*meanpres(lvert+1) + (1.0-zwt)*meanpres(lvert) + endif + enddo + + if(iprntstmt>=1 .and. print_msg) & + print*,'McLatchy zwt,newpress',zwt,prsnz,prsnzp + + if (prsnz .lt. 3000.) then + +! If prsnz, the pressure at the highest model prognostic level, is less +! than 3000 Pa, do not add any levels. + + narad = 0 + + else + +! If prsnzp is greater than 3000 Pa, add one or more radiation levels. +! Make the top level be 1500 Pa. + + deltap = max(1500., & + (prsnz-prsnzp), & + (prsnz-1500.1)/float(namax)) + narad = max(1,int((prsnz-1500.)/deltap)) + + if(iprntstmt>=1 .and. print_msg) then + print*,'McLatchy deltap,narad,prsnz,prsnzp:' + print*,deltap,narad,prsnz,prsnzp + endif + + endif + +elseif (iaction .eq. 2) then + +! Interpolate arctic, sub-arctic, mid-latitude, and subtropical, Mclatchy +! soundings between summer and winter values by time of year using cosine +! func. Assume that extreme values occur on January 16 and 1/2 year later. +! (Done once per grid/node each radiation time.) + + fjday = float(jday) + wtjan = 0.5 * (1. + cos(6.283185 * (fjday-16.) / 365.)) + wtjul = 1. - wtjan + + do lats = 1,4 + latn = 10 - lats + isummer = 2 * lats + iwinter = isummer - 1 + do lv = 1,33 + do lf = 1,6 + mclat(lv,lats,lf) = wtjan * mcdat(lv,isummer,lf) & + + wtjul * mcdat(lv,iwinter,lf) + mclat(lv,latn,lf) = wtjan * mcdat(lv,iwinter,lf) & + + wtjul * mcdat(lv,isummer,lf) + enddo + enddo + enddo + +! Adjust solar fluxes at top of atmosphere by current Earth-Sun distance + + do is = 1,nsolb + solar1(is) = solar0(is) * solfac + enddo + +elseif (iaction .eq. 3) then + +! At this point, subtropical, mid-latitude, sub-arctic, and arctic Mclatchy +! soundings have been interpolated between summer and winter values by time +! of year. In this section of code, interpolate these 4 plus the all-year +! tropical sounding by latitude for the current i,j column in the grid. + + do ind = 1,11 + index = ind + if (glat .lt. slat(index+1)) go to 10 + enddo +10 continue + + lat = latind(index) + + if (index .eq. 1 .or. index .eq. 6 .or. index .eq. 11) then + +! For pure arctic or tropical latitudes, assign sounding values without +! interpolation. + + do lv = 1,33 + do lf = 1,6 + mcol(lv,lf) = mclat(lv,lat,lf) + enddo + enddo + + else + +! For other latitudes, linearly interpolate between soundings according +! to latitude bands defined in array `slat'. + + wtnorth = (glat - slat(index)) / (slat(index + 1) - slat(index)) + wtsouth = 1. - wtnorth + do lv = 1,33 + do lf = 1,6 + mcol(lv,lf) = wtsouth * mclat(lv,lat,lf) & + + wtnorth * mclat(lv,lat+1,lf) + enddo + enddo + endif + +! Fill radiation column arrays (other than o3l) with variables from the model +! grid. + + + do k = 1,m1-1 + zml(k) = topt + zm(k) * rtgt + ztl(k) = topt + zt(k) * rtgt + + pl(k) = press(k) + tl(k) = tair(k) + dl(k) = dn0(k) + rl(k) = rv(k) * dn0(k) + enddo + +! Compute pressures and heights of added levels for this column. +! +! narad is set to the number of additional levels during the call to mclatchy +! with iaction set to 1. +! +! nrad is set in radcalc3(), rad_driv.f90, right before the call to mclatchy +! with iaction set to 3. +! nrad = m1 - 1 + narad +! +! If nrad >= m1, then there are levels to be added (narad >= 1). Otherwise, +! there are no levels to be added (narad == 0). Check that nrad >= m1 to avoid +! division by zero when calculating deltap. + if (nrad .ge. m1) then + deltap = (pl(m1-1) - 1500.) / float(narad) + + do k = m1,nrad + pl(k) = pl(k-1) - deltap + enddo + endif + +! Interpolate O3 from Mclatchy sounding to all levels in radiation column, +! and interpolate other variables (temperature, density, vapor mixing ratio) +! to added levels. + + lv = 1 + do k = 1,nrad +30 continue + if (pl(k) .gt. mcol(1,2)) then + o3l(k) = mcol(1,5) + if (k .ge. m1) then + tl(k) = mcol(1,3) + rl(k) = mcol(1,4) + dl(k) = mcol(1,6) + endif + elseif (pl(k) .le. mcol(lv,2) .and. pl(k) .ge. mcol(lv+1,2)) then + wt = (pl(k) - mcol(lv,2)) / (mcol(lv+1,2) - mcol(lv,2)) + o3l(k) = mcol(lv,5) + (mcol(lv+1,5) - mcol(lv,5)) * wt + if (k .ge. m1) then + tl(k) = mcol(lv,3) + (mcol(lv+1,3) - mcol(lv,3)) * wt + rl(k) = mcol(lv,4) + (mcol(lv+1,4) - mcol(lv,4)) * wt + dl(k) = mcol(lv,6) + (mcol(lv+1,6) - mcol(lv,6)) * wt + endif + elseif (pl(k) .lt. mcol(33,2)) then + o3l(k) = mcol(33,5) + if (k .ge. m1) then + tl(k) = mcol(33,3) + rl(k) = mcol(33,4) + dl(k) = mcol(33,6) + endif + elseif(pl(k) .lt. mcol(lv+1,2)) then + lv = lv + 1 + if (lv .ge. 33) stop 'mclat1' + go to 30 + else + print*, 'pressure data improperly ordered' + stop 'mclat2' + endif + enddo + + +! Compute heights of added levels by hydrostatic integration. + + do k = m1,nrad + ztl(k) = ztl(k-1) + rgasog * (tl(k-1) - tl(k) & + + (pl(k-1) * tl(k) - pl(k) * tl(k-1)) / (pl(k) - pl(k-1)) & + * log(pl(k)/pl(k-1))) + zml(k-1) = .5 * (ztl(k) + ztl(k-1)) + enddo + zml(nrad) = 2. * ztl(nrad) - zml(nrad-1) + +! Compute dzl values. + + do k = 2,nrad + dzl(k) = zml(k) - zml(k-1) + enddo + dzl(1) = zml(2) + +! Fill surface values + +! pl(1) = .5 * (press(1) + press(2)) + pl(1) = press(2) + (zm(1) - zt(3)) & + / (zt(2) - zt(3)) * (press(2) - press(3)) + tl(1) = sqrt(sqrt(rlongup / stefan)) + +endif + +return +END SUBROUTINE mclatchy diff --git a/src/6.2.16/radiate/rad_stable.f90 b/src/6.2.16/radiate/rad_stable.f90 new file mode 100644 index 0000000..7b59d2d --- /dev/null +++ b/src/6.2.16/radiate/rad_stable.f90 @@ -0,0 +1,263 @@ +!############################################################################## +Subroutine stable (ityp,key,xmu,tau,beta,omeg) + +implicit none + +integer :: ityp,key +real :: xmu,tau,beta,omeg + +! PROVIDES TWO-STREAM MODEL PARAMETERS FOR A CLOUD LAYER IN THE +! UV-VIS OR NEAR-IR SPECTRUM ( I.E. BACKSCATTER FRACTION AND SINGLE +! SCATTER ALBEDO ) +! +! FOLLOWING +! +! STEPHENS,G.L.,1978. +! RADIATION PROFILES IN EXTENDED WATER CLOUDS. II.PARAMETERIZATION S +! JOUR. ATMOS. SCI.,35,2123-2132. +! +! BI-DIMENSIONAL LINEAR OR QUADRATIC INTERPOLATION SCHEME ( LAGRANGE +! +! INPUT PARAMETERS +! +! ITYP = 1 FOR CONSERVATIVE MEDIUM ( UV-VIS SPECTRUM ) - OMEG E +! = 2 FOR NON-CONSERVATIVE MEDIUM ( NEAR-IR SPECTRUM ) - OMEG N +! KEY = 1 FOR LINEAR INTERPOLATION +! = 2 FOR QUADRATIC INTERPOLATION +! XMU = COSINE OF SOLAR ZENITH ANGLE +! TAU = OPTICAL DEPTH +! +! OUTPUT PARAMETERS +! +! BETA = BACKSCATTER FRACTION +! OMEG = SINGLE SCATTER ALBEDO + +integer :: l +REAL :: LU0,LU1,LU2,LT0,LT1,LT2 +real :: UTAB(10),TTAB(12),TAB(10,12,3) +DATA UTAB/1.0,0.8,0.7,0.6,0.5,0.4,0.3,0.2,0.1,0.03/ +DATA TTAB/1.0,2.0,5.0,10.0,16.0,25.0,40.0,60.0,80.0,100.0,200.0, & + 500.0/ +DATA (TAB(L, 1,1),L=1,10)/ & + .0421,.0557,.0657,.0769,.0932,.1111,.1295,.1407,.1196,.1053/ +DATA (TAB(L, 2,1),L=1,10)/ & + .0472,.0615,.0708,.0803,.0924,.1017,.1077,.1034,.0794,.0624/ +DATA (TAB(L, 3,1),L=1,10)/ & + .0582,.0692,.0744,.0782,.0815,.0812,.0776,.0680,.0483,.0325/ +DATA (TAB(L, 4,1),L=1,10)/ & + .0681,.0726,.0737,.0733,.0723,.0685,.0626,.0527,.0359,.0230/ +DATA (TAB(L, 5,1),L=1,10)/ & + .0734,.0738,.0728,.0707,.0680,.0631,.0564,.0465,.0310,.0193/ +DATA (TAB(L, 6,1),L=1,10)/ & + .0768,.0744,.0723,.0691,.0653,.0598,.0526,.0427,.0281,.0171/ +DATA (TAB(L, 7,1),L=1,10)/ & + .0791,.0749,.0719,.0680,.0636,.0575,.0501,.0402,.0261,.0155/ +DATA (TAB(L, 8,1),L=1,10)/ & + .0805,.0752,.0717,.0674,.0627,.0563,.0488,.0389,.0251,.0147/ +DATA (TAB(L, 9,1),L=1,10)/ & + .0812,.0754,.0717,.0672,.0622,.0558,.0481,.0382,.0246,.0144/ +DATA (TAB(L,10,1),L=1,10)/ & + .0820,.0757,.0717,.0670,.0619,.0553,.0475,.0376,.0241,.0141/ +DATA (TAB(L,11,1),L=1,10)/ & + .0831,.0763,.0721,.0672,.0619,.0552,.0473,.0374,.0241,.0141/ +DATA (TAB(L,12,1),L=1,10)/ & + .0874,.0800,.0755,.0703,.0647,.0576,.0494,.0392,.0262,.0163/ +DATA (TAB(L, 1,2),L=1,10)/ & + .0477,.0627,.0734,.0855,.1022,.1200,.1379,.1465,.1207,.1119/ +DATA (TAB(L, 2,2),L=1,10)/ & + .0537,.0690,.0788,.0886,.1003,.1090,.1133,.1065,.0794,.0592/ +DATA (TAB(L, 3,2),L=1,10)/ & + .0660,.0769,.0817,.0850,.0871,.0864,.0801,.0688,.0474,.0322/ +DATA (TAB(L, 4,2),L=1,10)/ & + .0759,.0793,.0795,.0781,.0757,.0705,.0629,.0516,.0339,.0202/ +DATA (TAB(L, 5,2),L=1,10)/ & + .0801,.0787,.0766,.0732,.0689,.0626,.0543,.0434,.0277,.0157/ +DATA (TAB(L, 6,2),L=1,10)/ & + .0807,.0759,.0724,.0678,.0625,.0555,.0471,.0368,.0229,.0125/ +DATA (TAB(L, 7,2),L=1,10)/ & + .0770,.0700,.0656,.0603,.0545,.0476,.0396,.0302,.0184,.0096/ +DATA (TAB(L, 8,2),L=1,10)/ & + .0699,.0621,.0575,.0522,.0466,.0401,.0329,.0248,.0148,.0075/ +DATA (TAB(L, 9,2),L=1,10)/ & + .0634,.0556,.0510,.0460,.0408,.0348,.0283,.0211,.0125,.0062/ +DATA (TAB(L,10,2),L=1,10)/ & + .0534,.0461,.0420,.0376,.0330,.0279,.0225,.0166,.0097,.0048/ +DATA (TAB(L,11,2),L=1,10)/ & + .0415,.0353,.0319,.0283,.0246,.0206,.0165,.0120,.0068,.0032/ +DATA (TAB(L,12,2),L=1,10)/ & + .0251,.0208,.0186,.0163,.0140,.0115,.0090,.0064,.0032,.0011/ +DATA (TAB(L, 1,3),L=1,10)/ & + .0225,.0222,.0218,.0208,.0199,.0155,.0109,.0059,.0017,.0002/ +DATA (TAB(L, 2,3),L=1,10)/ & + .0213,.0200,.0179,.0176,.0156,.0118,.0078,.0038,.0010,.0001/ +DATA (TAB(L, 3,3),L=1,10)/ & + .0195,.0166,.0146,.0125,.0096,.0069,.0043,.0021,.0005,.0000/ +DATA (TAB(L, 4,3),L=1,10)/ & + .0173,.0138,.0114,.0093,.0070,.0049,.0026,.0013,.0003,.0000/ +DATA (TAB(L, 5,3),L=1,10)/ & + .0156,.0111,.0090,.0073,.0052,.0035,.0019,.0009,.0002,.0000/ +DATA (TAB(L, 6,3),L=1,10)/ & + .0115,.0088,.0069,.0052,.0038,.0026,.0014,.0007,.00014,.000/ +DATA (TAB(L, 7,3),L=1,10)/ & + .0104,.0070,.0053,.0040,.0028,.0020,.0011,.0005,.0001,.0000/ +DATA (TAB(L, 8,3),L=1,10)/ & + .0083,.0055,.00425,.0032,.0023,.00145,.0008,.0003,.0001,.00/ +DATA (TAB(L, 9,3),L=1,10)/ & + .0069,.0050,.0038,.0028,.0020,.0013,.0007,.00034,.0000,.000/ +DATA (TAB(L,10,3),L=1,10)/ & + .0060,.0043,.0035,.0022,.0018,.0011,.0006,.0003,.0000,.0000/ +DATA (TAB(L,11,3),L=1,10)/ & + .0044,.0031,.0025,.0016,.0011,.00072,.0004,.00019,.0000,.00/ +DATA (TAB(L,12,3),L=1,10)/ & + .0026,.0018,.0014,.0010,.00072,.00048,.00029,.00015,.00,.00/ +integer :: ii,i0,i1,i2,m,jj,j0,j1,j2,n +real :: u,t,u0,u1,t0,t1,p0,p1,p,u2,t2,p2 + +I2=1 !Variable initialized +J2=1 !Variable initialized + +! BOUNDS CHECK + +U=XMU +T=TAU +IF(U.GT.UTAB(1)) U=UTAB(1) +IF(U.LT.UTAB(10)) U=UTAB(10) +IF(T.LT.TTAB(1)) T=TTAB(1) +IF(T.GT.TTAB(12)) T=TTAB(12) + +! SELECT THE XMU INDICIES + +DO L=2,10 + II=L + IF(U.GE.UTAB(L)) GOTO 2 +ENDDO +2 CONTINUE +IF(KEY.NE.1) GOTO 3 +I0=II-1 +I1=II +GOTO 5 +3 CONTINUE +IF(II.EQ.10) GOTO 4 +I0=II-1 +I1=II +I2=II+1 +GOTO 5 +4 CONTINUE +I0=II-2 +I1=II-1 +I2=II + +! SELECT THE TAU INDICIES + +5 CONTINUE + +DO M=2,12 + JJ=M + IF(T.LE.TTAB(M)) GOTO 7 +ENDDO +7 CONTINUE +IF(KEY.NE.1) GOTO 8 +J0=JJ-1 +J1=JJ +GOTO 10 +8 CONTINUE +IF(JJ.EQ.12) GOTO 9 +J0=JJ-1 +J1=JJ +J2=JJ+1 +GOTO 10 +9 CONTINUE +J0=JJ-2 +J1=JJ-1 +J2=JJ + +! SET PARAMETER INDICIES + +10 CONTINUE +IF(ITYP.EQ.1) N=1 +IF(ITYP.EQ.2) N=2 +IF(ITYP.EQ.3) N=3 + +! BRANCH ON SCHEME TYPE + +IF(KEY.NE.1) GOTO 20 + +! LINEAR SCHEME + +! DESIGNATE INDEX VALUES + +U0=UTAB(I0) +U1=UTAB(I1) +T0=TTAB(J0) +T1=TTAB(J1) + +! LAGRANGE POLYNOMIALS + +LU0=(U-U1)/(U0-U1) +LU1=(U-U0)/(U1-U0) +LT0=(T-T1)/(T0-T1) +LT1=(T-T0)/(T1-T0) + +! THE SCATTERING PARAMETER INDEX + + ! INTERPOLATING POLYNOMIALS FOR THE FIRST DIMENSION + + P0=TAB(I0,J0,N)*LU0+TAB(I1,J0,N)*LU1 + P1=TAB(I0,J1,N)*LU0+TAB(I1,J1,N)*LU1 + + ! INTERPOLATING POLYNOMIAL FOR SECOND DIMENSION + + P=P0*LT0+P1*LT1 + + ! ASSIGN THE INDIVIDUAL PARAMETERS + + IF(N.EQ.1)BETA=P + IF(N.EQ.1)OMEG=0 + IF(N.EQ.2)BETA=P + IF(N.EQ.3)OMEG=1-P + +RETURN + +! QUADRATIC SCHEME + +! DESIGNATE INDEX VALUES + +20 CONTINUE + +U0=UTAB(I0) +U1=UTAB(I1) +U2=UTAB(I2) +T0=TTAB(J0) +T1=TTAB(J1) +T2=TTAB(J2) + +! LAGRANGE POLYNOMIALS + +LU0=(U-U1)*(U-U2)/((U0-U1)*(U0-U2)) +LU1=(U-U0)*(U-U2)/((U1-U0)*(U1-U2)) +LU2=(U-U0)*(U-U1)/((U2-U0)*(U2-U1)) +LT0=(T-T1)*(T-T2)/((T0-T1)*(T0-T2)) +LT1=(T-T0)*(T-T2)/((T1-T0)*(T1-T2)) +LT2=(T-T0)*(T-T1)/((T2-T0)*(T2-T1)) + +! THE SCATTERING PARAMETER INDEX + +! INTERPOLATING POLYNOMIALS FOR THE FIRST DIMENSION + + P0=TAB(I0,J0,N)*LU0+TAB(I1,J0,N)*LU1+TAB(I2,J0,N)*LU2 + P1=TAB(I0,J1,N)*LU0+TAB(I1,J1,N)*LU1+TAB(I2,J1,N)*LU2 + P2=TAB(I0,J2,N)*LU0+TAB(I1,J2,N)*LU1+TAB(I2,J2,N)*LU2 + + ! INTERPOLATING POLYNOMIAL FOR SECOND DIMENSION + + P=P0*LT0+P1*LT1+P2*LT2 + + ! ASSIGN THE INDIVIDUAL PARAMETERS + + IF(N.EQ.1) BETA=P + IF(N.EQ.1) OMEG=0 + IF(N.EQ.2) BETA=P + IF(N.EQ.3) OMEG=1-P + +return +END SUBROUTINE stable diff --git a/src/6.2.16/radiate/rrad2.f90 b/src/6.2.16/radiate/rrad2.f90 new file mode 100644 index 0000000..ae551ff --- /dev/null +++ b/src/6.2.16/radiate/rrad2.f90 @@ -0,0 +1,3134 @@ +!############################################################################## +Subroutine swrad (nz,nb,ns,npsb, & + u,pl,tl,dz, & + xp,alpha,beta,wght,prf,trf,ral, & + solar,ngas, & + alb,amu0, & + tp,omgp,asym,fu,fd,flxsu,flxsd,ulim) + +! * New swrad (Jerry, March 8, 1996) + +implicit none + +integer :: nz,nb,ns + +! +! two-stream radiative transfer code. +! This version will attempt the use of FESFT +! as outlined in R&G (MWR 1991) +! JH 5-95 +! +integer, parameter :: mb=8,mg=3,mk=7 +real, parameter :: top=1800.,tm=1800./296.,gma=0.002,cp=1004. + +! input + +real :: u(nz,mg),pl(nz),tl(nz),dz(nz) +real :: ulim(mg,mb) +integer :: npsb(mg,mb),na(mg),ngas(mg) + +! input parameters + +real :: ral(mb) +real :: xp(mg,mk,mb),alpha(mg,mk,mb),beta(mg,mk,mb) +real :: wght(mg,mk,mb),prf(mg,mb),trf(mg,mb) +real :: solar(mb) + +! arrays used in fluxes + +real :: tg(nz),tp(nz,nb),tcr(nz),omgp(nz,nb) +real :: alb,amu0,asym(nz,nb) +real :: t(nz),r(nz),tc(nz),sigu(nz),sigd(nz) +real :: re(nz),vd(nz),td(nz),vu(nz) +real :: fu(nz,6),fd(nz,6),flxsu(nz),flxsd(nz) + +integer ib,iz,mxa,ig,ik,ig1,ig2,ik1,ik2,ig3,ik3 +real :: uu,fact,ufac,dfac,tu1,tu2,td1,td2,fbu,fbd,tu3,td3 + +! output + +! remember, for this code it is assumed that u, the gaseous +! absorber amounts, are specified in Pa +!---------------------------------------------------------------------------- +! zero out flxsu and flxsd + +! do iz = 1,nz +! flxsu(iz) = 0.0 +! flxsd(iz) = 0.0 +! enddo + +! loop through each band + +do ib=1,ns + +! calculate here the properties that are considered grey, +! i.e. averaged values are used across the band... +! rayleigh scatter...cloud is now done outside of this routine + +! get rayleigh scattering AND +! zero out the local flux arrays + + do iz=1,nz + tcr(iz) = ral(ib)*pl(iz)*dz(iz)/ & + tl(iz) + fu(iz,2) = 0. + fu(iz,3) = 0. + fu(iz,4) = 0. + fd(iz,2) = 0. + fd(iz,3) = 0. + fd(iz,4) = 0. + enddo + +! determine if, and how many overlaps...also check +! to see if the gas is used + + mxa = 0 + do ig=1,mg + if (npsb(ig,ib).gt.0.and.ngas(ig).eq.1)then + mxa = mxa+1 + na(mxa) = ig + endif + enddo + + if (mxa.eq.0) go to 111 + if (mxa.eq.1) then + +!------------------------------------------------------------------------- +! no overlapping gasses, single aborber + + ig = na(1) + + do ik=1,npsb(ig,ib) + + do iz=nz,2,-1 + uu=min(ulim(ig,ib),u(iz,ig)) + tg(iz) = xp(ig,ik,ib)*uu* & + (pl(iz)/prf(ig,ib))**alpha(ig,ik,ib)* & + (trf(ig,ib)/tl(iz))**beta(ig,ik,ib) + enddo + +! now do rest of stuff in routine + + CALL flxsw (nz,tg,tp(1,ib),tcr,omgp(1,ib), & + alb,solar(ib),amu0,t,r,tc, & + sigu,sigd,re,vd,td,vu, & + fu(1,6),fd(1,6),asym(1,ib)) + +! add pseudo-band fluxes to the total flux + + do iz=1,nz + flxsu(iz)=flxsu(iz)+wght(ig,ik,ib)*fu(iz,6) + flxsd(iz)=flxsd(iz)+wght(ig,ik,ib)*fd(iz,6) + enddo + + enddo + else if (mxa.eq.2) then + +!-------------------------------------------------------------------------- +! overlap of two gasses using the FESFT + + ig1 = na(1) + ig2 = na(2) + +! do the gray fluxes first + + tg(1:nz) = 0. + + CALL flxsw (nz,tg,tp(1,ib),tcr,omgp(1,ib), & + alb,solar(ib),amu0,t,r,tc, & + sigu,sigd,re,vd,td,vu, & + fu(1,1),fd(1,1),asym(1,ib)) + +! do the 1st gas + + + do ik1=1,npsb(ig1,ib) + + do iz=2,nz + uu=min(ulim(ig1,ib),u(iz,ig1)) + tg(iz) = xp(ig1,ik1,ib)*uu* & + (pl(iz)/prf(ig1,ib))**alpha(ig1,ik1,ib)* & + (trf(ig1,ib)/tl(iz))**beta(ig1,ik1,ib) + enddo + + CALL flxsw (nz,tg,tp(1,ib),tcr,omgp(1,ib), & + alb,solar(ib),amu0,t,r,tc, & + sigu,sigd,re,vd,td,vu, & + fu(1,6),fd(1,6),asym(1,ib)) + + fact = wght(ig1,ik1,ib) + do iz=1,nz + fu(iz,2) = fu(iz,2)+fact*fu(iz,6) + fd(iz,2) = fd(iz,2)+fact*fd(iz,6) + enddo + + enddo + +! do the 2nd gas + + do ik2=1,npsb(ig2,ib) + + do iz=1,nz + uu=min(ulim(ig2,ib),u(iz,ig2)) + tg(iz) = xp(ig2,ik2,ib)*uu* & + (pl(iz)/prf(ig2,ib))**alpha(ig2,ik2,ib)* & + (trf(ig2,ib)/tl(iz))**beta(ig2,ik2,ib) + enddo + + CALL flxsw (nz,tg,tp(1,ib),tcr,omgp(1,ib), & + alb,solar(ib),amu0,t,r,tc, & + sigu,sigd,re,vd,td,vu, & + fu(1,6),fd(1,6),asym(1,ib)) + + fact = wght(ig2,ik2,ib) + do iz=1,nz + fu(iz,3) = fu(iz,3)+fact*fu(iz,6) + fd(iz,3) = fd(iz,3)+fact*fd(iz,6) + enddo + enddo + +! add together the fluxes: FESFT method + +! do iz=1,nz +! ufac=max(1.e-14,fu(iz,1)) +! dfac=max(1.e-14,fd(iz,1)) +! fbu=fu(iz,2)/ufac*fu(iz,3) +! + /ufac*fu(iz,1) +! fbd=fd(iz,2)/dfac*fd(iz,3) +! + /dfac*fd(iz,1) +! flxsu(iz)=flxsu(iz)+fbu +! flxsd(iz)=flxsd(iz)+fbd +! enddo + +! this is the stuff that is fixed (old stuff above) + + do iz=1,nz + ufac=max(1.e-14,fu(iz,1)) + dfac=max(1.e-14,fd(iz,1)) + tu1 = max(0.0,min(1.1,fu(iz,2)/ufac)) + tu2 = max(0.0,min(1.1,fu(iz,3)/ufac)) + td1 = max(0.0,min(1.1,fd(iz,2)/dfac)) + td2 = max(0.0,min(1.1,fd(iz,3)/dfac)) + fbu = tu1*tu2*fu(iz,1) + fbd = td1*td2*fd(iz,1) + + flxsu(iz)=flxsu(iz)+fbu + flxsd(iz)=flxsd(iz)+fbd + enddo + + + else if (mxa.eq.3) then + +!-------------------------------------------------------------------------- +! overlap of three gasses + + ig1 = na(1) + ig2 = na(2) + ig3 = na(3) + +! do the gray fluxes first + + tg(1:nz) = 0. + + CALL flxsw (nz,tg,tp(1,ib),tcr,omgp(1,ib), & + alb,solar(ib),amu0,t,r,tc, & + sigu,sigd,re,vd,td,vu, & + fu(1,1),fd(1,1),asym(1,ib)) + +! do the 1st gas + + + do ik1=1,npsb(ig1,ib) + + do iz=2,nz + uu=min(ulim(ig1,ib),u(iz,ig1)) + tg(iz) = xp(ig1,ik1,ib)*uu* & + (pl(iz)/prf(ig1,ib))**alpha(ig1,ik1,ib)* & + (trf(ig1,ib)/tl(iz))**beta(ig1,ik1,ib) + enddo + + CALL flxsw (nz,tg,tp(1,ib),tcr,omgp(1,ib), & + alb,solar(ib),amu0,t,r,tc, & + sigu,sigd,re,vd,td,vu, & + fu(1,6),fd(1,6),asym(1,ib)) + + fact = wght(ig1,ik1,ib) + do iz=1,nz + fu(iz,2) = fu(iz,2)+fact*fu(iz,6) + fd(iz,2) = fd(iz,2)+fact*fd(iz,6) + enddo + enddo + +! do the 2nd gas + + do ik2=1,npsb(ig2,ib) + + do iz=2,nz + uu=min(ulim(ig2,ib),u(iz,ig2)) + tg(iz) = xp(ig2,ik2,ib)*uu* & + (pl(iz)/prf(ig2,ib))**alpha(ig2,ik2,ib)* & + (trf(ig2,ib)/tl(iz))**beta(ig2,ik2,ib) + enddo + + CALL flxsw (nz,tg,tp(1,ib),tcr,omgp(1,ib), & + alb,solar(ib),amu0,t,r,tc, & + sigu,sigd,re,vd,td,vu, & + fu(1,6),fd(1,6),asym(1,ib)) + + fact = wght(ig2,ik2,ib) + do iz=1,nz + fu(iz,3) = fu(iz,3)+fact*fu(iz,6) + fd(iz,3) = fd(iz,3)+fact*fd(iz,6) + enddo + enddo + +! do the 3rd gas + + do ik3=1,npsb(ig3,ib) + + do iz=2,nz + uu=min(ulim(ig3,ib),u(iz,ig3)) + tg(iz) = xp(ig3,ik3,ib)*uu* & + (pl(iz)/prf(ig3,ib))**alpha(ig3,ik3,ib)* & + (trf(ig3,ib)/tl(iz))**beta(ig3,ik3,ib) + enddo + +! now do rest of stuff in routine + + CALL flxsw (nz,tg,tp(1,ib),tcr,omgp(1,ib), & + alb,solar(ib),amu0,t,r,tc, & + sigu,sigd,re,vd,td,vu, & + fu(1,6),fd(1,6),asym(1,ib)) + +! sum the pseudo-band fluxes to get total flux + + fact = wght(ig3,ik3,ib) + do iz=1,nz + fu(iz,4) = fu(iz,4)+fact*fu(iz,6) + fd(iz,4) = fd(iz,4)+fact*fd(iz,6) + enddo + enddo + +! sum the fluxes together: FESFT method + +! do iz=1,nz +! ufac=max(1.e-14,fu(iz,1)) +! dfac=max(1.e-14,fd(iz,1)) +! fbu=fu(iz,2)/ufac*fu(iz,3) +! + /ufac*fu(iz,4)/ufac*fu(iz,1) +! fbd=fd(iz,2)/dfac*fd(iz,3) +! + /dfac*fd(iz,4)/dfac*fd(iz,1) +! flxsu(iz)=flxsu(iz)+fbu +! flxsd(iz)=flxsd(iz)+fbd +! enddo + +! this is the stuff that is fixed (old stuff above) + + do iz=1,nz + ufac=max(1.e-14,fu(iz,1)) + dfac=max(1.e-14,fd(iz,1)) + tu1 = max(0.0,min(1.1,fu(iz,2)/ufac)) + tu2 = max(0.0,min(1.1,fu(iz,3)/ufac)) + tu3 = max(0.0,min(1.1,fu(iz,4)/ufac)) + td1 = max(0.0,min(1.1,fd(iz,2)/dfac)) + td2 = max(0.0,min(1.1,fd(iz,3)/dfac)) + td3 = max(0.0,min(1.1,fd(iz,4)/dfac)) + + fbu = tu1*tu2*tu3*fu(iz,1) + fbd = td1*td2*td3*fd(iz,1) + flxsu(iz)=flxsu(iz)+fbu + flxsd(iz)=flxsd(iz)+fbd + enddo + + +!------------------------------------------------------------------------- + + else + write(*,5000) +5000 format('Two is the maximum amount of overlapping',/ & + 'gasses allowed: if you really want to have ',/ & + 'more gasses overlap, they better have few',/ & + 'pseudo-bands for all of them, and in any',/ & + 'case it will cost you. To do that come into',/ & + 'the code and modify it here, look at previous',/ & + 'structures to see how it is done. Its easy',/ & + 'but BEWARE: ITS BOUND TO BE HORRIBLY EXPENSIVE') + stop + endif +111 continue + +enddo + +return +END SUBROUTINE swrad + +!############################################################################## +Subroutine lwrad (i,j,nz,nb,ns,npsb,nuum, & + u,pl,tl,vp, & + xp,alpha,beta,wght,prf,trf,ral, & + a0,a1,a2,a3, & + exptabc,ngas, & + tp,omgp,asym,fu,fd,flxlu,flxld,ulim) + +! New lwrad (March 8, 1996) + +implicit none + +integer, parameter :: mb=8,mg=3,mk=7 +real, parameter :: top=1800.,tm=1800./296.,gma=0.002,cp=1004. +integer :: nz,nb,ns,i,j +! +! two-stream radiative transfer code. +! This version will attempt the use of FESFT +! as outlined in R&G (MWR 1991) +! JH 5-95 +! +! input + +real u(nz,mg),pl(nz),tl(nz),vp(nz) +real exptabc(150),ulim(mg,mb) +integer npsb(mg,mb),na(mg),nuum(mb),ngas(mg) + +! input parameters + +real ral(mb) +real xp(mg,mk,mb),alpha(mg,mk,mb),beta(mg,mk,mb) +real wght(mg,mk,mb),prf(mg,mb),trf(mg,mb) +real a0(mb),a1(mb),a2(mb),a3(mb) + +! arrays used in fluxes + +real tg(nz),tp(nz,nb),tcr(nz),omgp(nz,nb),src(nz) +real t(nz),r(nz),sigu(nz),sigd(nz) +real re(nz),vd(nz),td(nz),vu(nz),asym(nz,nb) +real fu(nz,6),fd(nz,6),flxlu(nz),flxld(nz) + +integer :: ib,iflag,iz,mxa,ig,ik,ig1,ig2,ik1,ik2,nir,ii,ig3,ik3 +real :: tf,ewght,expp,uu,chck,fact,ufac,tu1,tu2,fbu,dx,adx,fdx & + ,dxc,tn1c,tn2c,tn1,tn2,difflxb,fbd,dfac,tu3,tn3c,tn3 + +! remember, for this code it is assumed that u, the gaseous +! absorber amounts, are specified in g/m^3 +!---------------------------------------------------------------------------- +! zero out flxsu and flxsd + +! do iz = 1,nz +! flxlu(iz) = 0.0 +! flxld(iz) = 0.0 +! enddo + +! loop through each band + +nir=ns+1 +do ib=nir,nb + +! calculate the properties that are grey across the band +! Planck func at the interfaces, continuum absorption, +! ...cloud is now done outside of this routine + + iflag=1 !Saleeby(2009): Set this to 1 to turn on water vapor continuum + +! do surface and top of atmosphere first + + src(1) = a0(ib)+tl(1)*(a1(ib)+tl(1)* & + (a2(ib)+a3(ib)*tl(1))) + src(2) = a0(ib)+tl(2)*(a1(ib)+tl(2)* & + (a2(ib)+a3(ib)*tl(2))) + src(nz) = a0(ib)+tl(nz)*(a1(ib)+tl(nz)* & + (a2(ib)+a3(ib)*tl(nz))) + + tcr(1)=0. + tcr(2)=0. + tcr(nz)=0. + + do iz=nz-1,3,-1 + +! get sources at the interface, temp first + tf = 0.5*(tl(iz)+tl(iz-1)) + src(iz) = a0(ib)+tf*(a1(ib)+tf* & + (a2(ib)+a3(ib)*tf)) + tcr(iz) = 0. + + enddo + + + if (nuum(ib).eq.1) then + +! this band has continuum + + do iz=2,nz + ii=int(tl(iz)-179.) + ewght=tl(iz)-(float(ii)+179.) + if(ii < 1) then !Deal with temps below 180K + ii=1 + ewght=0. + endif + expp=(1.-ewght)*exptabc(ii)+ewght*exptabc(ii+1) + tcr(iz) = ral(ib)*u(iz,1)* & + expp*(vp(iz)+ & + gma*(pl(iz)-vp(iz))) + enddo + + endif + + + do iz=1,nz + fu(iz,2) = 0. + fu(iz,3) = 0. + fu(iz,4) = 0. + fd(iz,2) = 0. + fd(iz,3) = 0. + fd(iz,4) = 0. + tg(iz)=0. + enddo + +! determine if, and how many overlaps + + mxa = 0 + do ig=1,mg + if (npsb(ig,ib).gt.0.and.ngas(ig).eq.1)then + mxa = mxa+1 + na(mxa) = ig + endif + enddo + + if (mxa.eq.0) go to 111 + if (mxa.eq.1) then + +!------------------------------------------------------------------------- +! no overlapping gasses, single aborber + + ig = na(1) + + do ik=1,npsb(ig,ib) + + do iz=nz,2,-1 + uu=min(ulim(ig,ib),u(iz,ig)) + tg(iz) = xp(ig,ik,ib)*uu* & + (pl(iz)/prf(ig,ib))**alpha(ig,ik,ib)* & + (trf(ig,ib)/tl(iz))**beta(ig,ik,ib) + enddo + +! now do rest of stuff in routine + + CALL flxlw (i,j,ib,nz,tg,tp(1,ib),tcr,omgp(1,ib), & + src,t,r, & + sigu,sigd,re,vd,td,vu, & + fu(1,6),fd(1,6),1.,asym(1,ib)) + +! add pseudo-band fluxes to the total flux + + do iz=1,nz + flxlu(iz)=flxlu(iz)+wght(ig,ik,ib)*fu(iz,6) + flxld(iz)=flxld(iz)+wght(ig,ik,ib)*fd(iz,6) + enddo + enddo + else if (mxa.eq.2) then + +!-------------------------------------------------------------------------- +! overlap of two gasses using the FESFT + + ig1 = na(1) + ig2 = na(2) + +! do the gray fluxes first + + chck=float(iflag) + + tg(1:nz) = 0. + + CALL flxlw (i,j,ib,nz,tg,tp(1,ib),tcr,omgp(1,ib), & + src,t,r, & + sigu,sigd,re,vd,td,vu, & + fu(1,1),fd(1,1),chck,asym(1,ib)) + +! if there is continuum abs. do it now since tg=0 +! + if(nuum(ib).eq.1)then + + CALL flxlw (i,j,ib,nz,tg,tp(1,ib),tcr,omgp(1,ib), & + src,t,r, & + sigu,sigd,re,vd,td,vu, & + fu(1,5),fd(1,5),1.,asym(1,ib)) + endif + +! do the 1st gas + + + do ik1=1,npsb(ig1,ib) + + do iz=2,nz + uu=min(ulim(ig1,ib),u(iz,ig1)) + tg(iz) = xp(ig1,ik1,ib)*uu* & + (pl(iz)/prf(ig1,ib))**alpha(ig1,ik1,ib)* & + (trf(ig1,ib)/tl(iz))**beta(ig1,ik1,ib) + enddo + + CALL flxlw (i,j,ib,nz,tg,tp(1,ib),tcr,omgp(1,ib), & + src,t,r, & + sigu,sigd,re,vd,td,vu, & + fu(1,6),fd(1,6),chck,asym(1,ib)) + + fact = wght(ig1,ik1,ib) + do iz=1,nz + fu(iz,2) = fu(iz,2)+fact*fu(iz,6) + fd(iz,2) = fd(iz,2)+fact*fd(iz,6) + enddo + enddo + +! do the 2nd gas + + do ik2=1,npsb(ig2,ib) + + do iz=1,nz + uu=min(ulim(ig2,ib),u(iz,ig2)) + tg(iz) = xp(ig2,ik2,ib)*uu* & + (pl(iz)/prf(ig2,ib))**alpha(ig2,ik2,ib)* & + (trf(ig2,ib)/tl(iz))**beta(ig2,ik2,ib) + enddo + + CALL flxlw (i,j,ib,nz,tg,tp(1,ib),tcr,omgp(1,ib), & + src,t,r, & + sigu,sigd,re,vd,td,vu, & + fu(1,6),fd(1,6),chck,asym(1,ib)) + + fact = wght(ig2,ik2,ib) + do iz=1,nz + fu(iz,3) = fu(iz,3)+fact*fu(iz,6) + fd(iz,3) = fd(iz,3)+fact*fd(iz,6) + enddo + enddo + +! add together the fluxes: FESFT method... +! NOTE: Here we use FESFT on the net flux NOT +! the individual fluxes, as noted in R and G. +! FESFT seems not only to work for the net flux +! but also for the upwelling IR. Thus, we may still use +! FESFT to determine each flux individually. + +! do iz=1,nz +! ufac=max(1.e-14,fu(iz,1)) +! dfac=max(1.e-14,fd(iz,1)) +! dx=dfac-ufac +! fbu=fu(iz,2)/ufac*fu(iz,3) +! + /ufac*fu(iz,1)*(fu(iz,5)/ufac +! + *float(nuum(ib))+1.-float(nuum(ib))) +! dx1=(fd(iz,2)-fu(iz,2))/dx +! dx2=(fd(iz,3)-fu(iz,3))/dx +! dxc=(fd(iz,5)-fu(iz,5))/dx*float(nuum(ib)) +! + +1.-float(nuum(ib)) +! difflxb=dx1*dx2*dxc*dx +! fbd=difflxb+fbu +! flxlu(iz)=flxlu(iz)+fbu +! flxld(iz)=flxld(iz)+fbd +! enddo + +! above is old section, below is the new bounded part: + + do iz=1,nz + ufac=max(1.e-14,fu(iz,1)) + tu1 = max(0.0,min(1.1,fu(iz,2)/ufac)) + tu2 = max(0.0,min(1.1,fu(iz,3)/ufac)) + fbu = tu1*tu2*fu(iz,1) + + dx=fd(iz,1)-fu(iz,1) + !Saleeby(08-10-2008) - added check to make sure upward flux does not + !equal downward flux + if (dx .eq. 0.) then + dx=0.001 + endif + + adx = abs(dx) + fdx = dx/adx + dxc = max(1.e-14,adx)*fdx + tn1c = (fd(iz,2)-fu(iz,2))/dxc + 1. + tn2c = (fd(iz,3)-fu(iz,3))/dxc + 1. + tn1 = min(max(tn1c,0.),2.) - 1. + tn2 = min(max(tn2c,0.),2.) - 1. + difflxb = tn1*tn2*dx + fbd=difflxb+fbu + + flxlu(iz)=flxlu(iz)+fbu + flxld(iz)=flxld(iz)+fbd + enddo + + + else if (mxa.eq.3) then + +!-------------------------------------------------------------------------- +! overlap of three gasses + + ig1 = na(1) + ig2 = na(2) + ig3 = na(3) + +! do the gray fluxes first + + chck=float(iflag) + + tg(1:nz) = 0. + + CALL flxlw (i,j,ib,nz,tg,tp(1,ib),tcr,omgp(1,ib), & + src,t,r, & + sigu,sigd,re,vd,td,vu, & + fu(1,1),fd(1,1),chck,asym(1,ib)) + +! if there is continuum abs. do it now since tg=0 +! + if(nuum(ib).eq.1)then + + CALL flxlw (i,j,ib,nz,tg,tp(1,ib),tcr,omgp(1,ib), & + src,t,r, & + sigu,sigd,re,vd,td,vu, & + fu(1,5),fd(1,5),1.,asym(1,ib)) + endif + +! do the 1st gas + + + do ik1=1,npsb(ig1,ib) + + do iz=2,nz + uu=min(ulim(ig1,ib),u(iz,ig1)) + tg(iz) = xp(ig1,ik1,ib)*uu* & + (pl(iz)/prf(ig1,ib))**alpha(ig1,ik1,ib)* & + (trf(ig1,ib)/tl(iz))**beta(ig1,ik1,ib) + enddo + + CALL flxlw (i,j,ib,nz,tg,tp(1,ib),tcr,omgp(1,ib), & + src,t,r, & + sigu,sigd,re,vd,td,vu, & + fu(1,6),fd(1,6),chck,asym(1,ib)) + + fact = wght(ig1,ik1,ib) + do iz=1,nz + fu(iz,2) = fu(iz,2)+fact*fu(iz,6) + fd(iz,2) = fd(iz,2)+fact*fd(iz,6) + enddo + enddo + +! do the 2nd gas + + do ik2=1,npsb(ig2,ib) + + do iz=2,nz + uu=min(ulim(ig2,ib),u(iz,ig2)) + tg(iz) = xp(ig2,ik2,ib)*uu* & + (pl(iz)/prf(ig2,ib))**alpha(ig2,ik2,ib)* & + (trf(ig2,ib)/tl(iz))**beta(ig2,ik2,ib) + enddo + + CALL flxlw (i,j,ib,nz,tg,tp(1,ib),tcr,omgp(1,ib), & + src,t,r, & + sigu,sigd,re,vd,td,vu, & + fu(1,6),fd(1,6),chck,asym(1,ib)) + + fact = wght(ig2,ik2,ib) + do iz=1,nz + fu(iz,3) = fu(iz,3)+fact*fu(iz,6) + fd(iz,3) = fd(iz,3)+fact*fd(iz,6) + enddo + enddo + +! do the 3rd gas + + do ik3=1,npsb(ig3,ib) + + do iz=2,nz + uu=min(ulim(ig3,ib),u(iz,ig3)) + tg(iz) = xp(ig3,ik3,ib)*uu* & + (pl(iz)/prf(ig3,ib))**alpha(ig3,ik3,ib)* & + (trf(ig3,ib)/tl(iz))**beta(ig3,ik3,ib) + enddo + +! now do rest of stuff in routine + + CALL flxlw (i,j,ib,nz,tg,tp(1,ib),tcr,omgp(1,ib), & + src,t,r, & + sigu,sigd,re,vd,td,vu, & + fu(1,6),fd(1,6),chck,asym(1,ib)) + +! sum the pseudo-band fluxes to get total flux + + fact = wght(ig3,ik3,ib) + do iz=1,nz + fu(iz,4) = fu(iz,4)+fact*fu(iz,6) + fd(iz,4) = fd(iz,4)+fact*fd(iz,6) + enddo + enddo + +! sum the fluxes together: FESFT method + +! do iz=1,nz +! ufac=max(1.e-14,fu(iz,1)) +! dfac=max(1.e-14,fd(iz,1)) +! dx=dfac-ufac +! fbu=fu(iz,2)/ufac*fu(iz,3) +! + /ufac*fu(iz,4)/ufac*fu(iz,1)*(fu(iz,5) +! + /ufac*float(nuum(ib))+1.-float(nuum(ib))) +! dx1=(fd(iz,2)-fu(iz,2))/dx +! dx2=(fd(iz,3)-fu(iz,3))/dx +! dx3=(fd(iz,4)-fu(iz,4))/dx +! dxc=(fd(iz,5)-fu(iz,5))/dx*float(nuum(ib)) +! + +1.-float(nuum(ib)) +! difflxb=dx1*dx2*dx3*dxc*dx +! fbd=difflxb+fbu +! flxlu(iz)=flxlu(iz)+fbu +! flxld(iz)=flxld(iz)+fbd +! enddo + +! above is the old section, below is the new bounded section: + + + do iz=1,nz + ufac=max(1.e-14,fu(iz,1)) + dfac=max(1.e-14,fd(iz,1)) + tu1 = max(0.0,min(1.1,fu(iz,2)/ufac)) + tu2 = max(0.0,min(1.1,fu(iz,3)/ufac)) + tu3 = max(0.0,min(1.1,fu(iz,4)/ufac)) + fbu = tu1*tu2*tu3*fu(iz,1) + + dx=fd(iz,1)-fu(iz,1) + !Saleeby(08-10-2008) - added check to make sure upward flux does not + !equal downward flux + if (dx .eq. 0.) then + dx=0.001 + endif + + adx = abs(dx) + fdx = dx/adx + dxc = max(1.e-14,adx)*fdx + tn1c = (fd(iz,2)-fu(iz,2))/dxc + 1. + tn2c = (fd(iz,3)-fu(iz,3))/dxc + 1. + tn3c = (fd(iz,4)-fu(iz,4))/dxc + 1. + tn1 = min(max(tn1c,0.),2.) - 1. + tn2 = min(max(tn2c,0.),2.) - 1. + tn3 = min(max(tn3c,0.),2.) - 1. + difflxb = tn1*tn2*tn3*dx + fbd=difflxb+fbu + + flxlu(iz)=flxlu(iz)+fbu + flxld(iz)=flxld(iz)+fbd + enddo + + + +!------------------------------------------------------------------------- + + else + write(*,5000) +5000 format('Two is the maximum amount of overlapping',/ & + 'gasses allowed: if you really want to have ',/ & + 'more gasses overlap, they better have few',/ & + 'pseudo-bands for all of them, and in any',/ & + 'case it will cost you. To do that come into',/ & + 'the code and modify it here, look at previous',/ & + 'structures to see how it is done. Its easy',/ & + 'but BEWARE: ITS BOUND TO BE HORRIBLY EXPENSIVE') + stop + endif +111 continue + +enddo + +return +END SUBROUTINE lwrad + +!############################################################################## +Subroutine flxsw (nz,tg,tp,tcr,omgp, & + alb,slr,amu0,t,r,tc, & + sigu,sigd,re,vd,td,vu, & + fu,fd,asym) + +implicit none + +integer :: nz +real :: tg(nz),tp(nz),tcr(nz),omgp(nz), & + alb,slr,amu0,asym(nz) + +! local variables + +real :: t(nz),r(nz),tc(nz),sigu(nz),sigd(nz) +real :: re(nz),vd(nz),td(nz),vu(nz),expt1 + +! output variables + +real :: fu(nz),fd(nz) + +! at this stage we have gotten rid of all the stuff +! that are specific absorber gas dependent. The effects +! of all the absorbing gasses in this specific pseudo- +! band overlap (or no-overlap) is accumulated in tg. + +! parameter(asym=0.85,diffac=1.66,eps=1.e-6,etmp=0.367879) +real, parameter :: diffac=1.66,eps=1.e-6,etmp=0.367879 +real, parameter :: e2=0.5,e3=0.3333,e4=0.25,e5=0.2,e6=0.166667 +real, parameter :: e7=0.142857 + +integer :: iz +real :: pi,tau,omg0,af,fact,beta0,g1,g2,gg,rinf,ggtau,expp1,expp2,denom & + ,cc,g3,g4,aa,bb,tcm2,exp1,exp2 + +! get total optical depth, single scattering albedo +! and assymetry parameter +pi = 3.14159 + + re(nz) = 0. + vd(nz) = 0. + expt1 = 1. + fd(nz) = amu0*slr + tc(nz) = 0. + +do iz=nz,2,-1 + + tau=tg(iz)+tp(iz)+tcr(iz) + omg0 = min(.999999,(tcr(iz)+ & + omgp(iz)*tp(iz))/max(1.e-20,tau)) + af = asym(iz)*omgp(iz)*tp(iz)/ & + (omg0*max(1.e-20,tau)) + +! do delta-m scaling (wiscombe) + + fact = af*af + tau = (1.-omg0*fact)*tau + omg0 = ((1.-fact)*omg0)/(1.-omg0*fact) + +! determine the ODE matrix coefficients (Ritter and Geleyn) + + beta0 = (4.+af)/(8.*(1.+af)) + g1 = diffac*(1.-omg0*(1.-beta0)) + g2 = diffac*omg0*beta0 + gg = sqrt(g1**2-g2**2) + +! determine the local (true) reflection and transmission coefficients + + rinf = g2/(gg+g1) + ggtau=tau*gg + +!Saleeby(08-10-2008): Old RAMS computation + !expp1=1.-ggtau*(1.-ggtau*e2*(1.-ggtau*e3*(1.-ggtau*e4 & + ! *(1.-ggtau*e5)))) +!Saleeby(08-10-2008): From OLAM + expp1=exp(-ggtau) + + expp1=max(expp1,0.0) + expp2=expp1**2 + denom=(1.-rinf**2*expp2) + t(iz) = ((1.-rinf**2)*expp1)/denom + r(iz) = rinf*(1.-expp2)/denom + +! get the source func, go from top down to accomodate solar terms + +!Saleeby(08-11-2008) - Original checked for dividing by 0. +!Variable 'fact' may still need bounds checking to prevent division by small number + !if (gg-1./amu0.lt.eps) then + ! fact = 1./(gg**2-1./(amu0+eps)**2) + !else + ! fact = 1./(gg**2-1./amu0**2) + !endif +!Saleeby(08-11-2008) Version of 'fact' from OLAM - checked for dividing by 0 + if (abs(amu0*gg-1.0) < eps) then + fact = amu0**2 / (gg**2*amu0**2 - 1.0 + sign(eps,amu0*gg-1.0)) + else + fact = amu0**2 / (gg**2*amu0**2 - 1.0) + endif + + cc = omg0*slr*fact + g3 = 0.5-0.75*af*amu0/(1.+af) + g4 = 1.-g3 + aa = g3*(g1-1./amu0)+g4*g2 + bb = g4*(g1+1./amu0)+g3*g2 + tc(iz-1) = tc(iz)+tau + tcm2=tc(iz-1)/amu0 + +!Saleeby(08-10-2008): Old RAMS computation +! if(tcm2.le.1.0.or.tcm2.gt.10.0)then +! exp2=1.-tcm2*(1.-tcm2*e2*(1.-tcm2*e3*(1.-tcm2*e4 & +! *(1.-tcm2*e5*(1.-tcm2*e6*(1.-tcm2*e7)))))) +! exp2=max(exp2,0.0) +! else +! exp2=exp(-tcm2) +! endif +!Saleeby(08-10-2008): From OLAM + exp2=exp(-tcm2) + + exp1=expt1 + expt1=exp2 + sigu(iz) = cc*((aa-r(iz)*bb)*exp1- & + aa*t(iz)*exp2) + sigd(iz) = cc*(-bb*t(iz)* & + exp1+(bb-r(iz)*aa)*exp2) + fd(iz-1) = amu0*slr*exp2 + td(iz) = 1. - re(iz)*r(iz) + re(iz-1) = r(iz) + t(iz)**2*re(iz) / & + td(iz) + vd(iz-1) = sigd(iz) + ( t(iz)*vd(iz) + & + t(iz)*re(iz)*sigu(iz) ) / & + td(iz) + vu(iz-1) = ( r(iz)*vd(iz) + sigu(iz) ) / & + td(iz) + +enddo + +! specify the boundary conditions + + fu(1) = alb*(vd(1)+slr*amu0* & + exp(-tc(1)/amu0))/(1.-alb*re(1)) + +! do adding, going from top down + + +! calculate fluxes going up through the layers + +do iz=2,nz + fd(iz-1) = re(iz-1)*fu(iz-1) + vd(iz-1) & + + fd(iz-1) + fu(iz) = t(iz)*fu(iz-1)/td(iz)+vu(iz-1) +enddo + +return +END SUBROUTINE flxsw + +!############################################################################## +Subroutine flxlw (i,j,ib,nz,tg,tp,tcr,omgp, & + src,t,r, & + sigu,sigd,re,vd,td,vu, & + fu,fd,chck,asym) + +use node_mod, only:mi0,mj0 +use mem_grid, only:ngrid + +implicit none + +integer :: nz,k,i,j,ib +real :: tg(nz),tp(nz),tcr(nz),omgp(nz),src(nz),chck,asym(nz) + +! local variables + +real :: t(nz),r(nz),sigu(nz),sigd(nz) +real :: re(nz),vd(nz),td(nz),vu(nz) + +! output variables + +real :: fu(nz),fd(nz) + +! parameter(asym=0.85,diffac=1.66,eps=1.e-6) +real, parameter :: diffac=1.66,eps=1.e-6,etmp=0.367879 +real, parameter :: e2=0.5,e3=0.3333,e4=0.25,e5=0.2,e6=0.166667 +real, parameter :: e7=0.142857 + +integer :: iz +real :: pi,tau,omg0,af,fact,beta0,g1,g2,gg,rinf,ggtau,expp1,expp2,aa,bb,cc + +! get total optical depth, single scattering albedo +! and assymetry parameter +pi = 3.14159 + +do iz=nz,2,-1 + +! calculate the single scattering albedo from both gasses +! and particulates + + tau=tg(iz)+tp(iz)+tcr(iz)*chck + if ( tau.eq.0.) then + + omg0 = 0. + af = 0. + + else + + omg0 = min(.999999, & + omgp(iz)*tp(iz)/max(1.e-20,tau)) + af = asym(iz) + + endif + +! do delta-m scaling (wiscombe) + + fact = af*af + tau = (1.-omg0*fact)*tau + omg0 = ((1.-fact)*omg0)/(1.-omg0*fact) + +! determine the ODE matrix coefficients (Ritter and Geleyn) + + beta0 = (4.+af)/(8.*(1.+af)) + g1 = diffac*(1.-omg0*(1.-beta0)) + g2 = diffac*omg0*beta0 + gg = sqrt(g1**2-g2**2) + +! determine the local (true) reflection and transmission coefficients + + rinf = g2/(gg+g1) + ggtau = gg*tau + expp1=1.-ggtau*(1.-ggtau*e2*(1.-ggtau*e3*(1.-ggtau*e4 & + *(1.-ggtau*e5)))) + expp1=max(expp1,0.0) + expp2=expp1**2 + t(iz) = (1.-rinf**2)*expp1 / & + (1.-rinf**2*expp2) + r(iz) = rinf*(1.-expp2) / & + (1.-rinf**2*expp2) + +! get the source func, go from top down to accomodate solar terms + +! if (tau.lt..8e-2) then + if (tau.lt.4.e-2) then !changed June 12 after Jerry's recom. + sigu(iz) = 0.5*pi*(src(iz)+src(iz-1))*tau*diffac + sigd(iz) = sigu(iz) + else + aa = (g1+g2)*(1.-r(iz)) - (1.+r(iz)-t(iz))/tau + bb = -(g1+g2)*t(iz) + (1.+r(iz)-t(iz))/tau + cc = diffac*pi*(1.-omg0)/gg**2 + sigu(iz) = cc*(aa*src(iz)+bb*src(iz-1)) + sigd(iz) = cc*(bb*src(iz)+aa*src(iz-1)) + if (sigu(iz).lt.0. .or. sigd(iz).lt.0.)then + print*,'NEGATIVE SOURCE IN LW RADIATION' + print*,'Grid point (ib,k,i,j): ',ib,iz,i+mi0(ngrid),j+mj0(ngrid) + print*,aa,bb,cc,g1,g1 + print*,tau,g1,g2,r(iz),t(iz) + print*,src(iz),src(iz-1),sigu(iz),sigd(iz) + if(sigu(iz) < 0.)sigu(iz)=0. + if(sigd(iz) < 0.)sigd(iz)=0. + endif + endif + +enddo + +! do adding +! initialize + +re(nz) = 0. +vd(nz) = 0. +fd(nz) = 0. +fu(1) = pi*src(1) + + +do iz=nz,2,-1 + td(iz) = 1. - re(iz)*r(iz) + re(iz-1) = r(iz) + t(iz)**2*re(iz) / & + td(iz) + vd(iz-1) = sigd(iz) + ( t(iz)*vd(iz) + & + t(iz)*re(iz)*sigu(iz) ) / & + td(iz) + vu(iz-1) = ( r(iz)*vd(iz) + sigu(iz) ) / & + td(iz) +enddo + + +! calculate fluxes going up through the layers + +do iz=2,nz + fd(iz-1) = re(iz-1)*fu(iz-1) + vd(iz-1) + fu(iz) = t(iz)*fu(iz-1)/td(iz)+vu(iz-1) +enddo + +return +END SUBROUTINE flxlw + +!############################################################################## +Subroutine radinit (ng,nb,ns,npsb,nuum,prf,alpha,trf,beta,xp, & + wght,wlenlo,wlenhi,solar,ralcs,a0,a1,a2,a3,exptabc,ulim, & + npartob,npartg,ncog,ncb,ocoef,bcoef,gcoef,gnu) + +use mem_radiate, only:irce,rce_solc + +implicit none + +! read input parameters for the radiative transfer scheme +! Original: J Verlinde March 1993 +! +! Rewritten and modified: J.H. 1995/1996 +! +integer, parameter :: mb=8,mg=3,mk=7 +real, parameter :: top=1800.,tm=1800./296. +! +! mb -- maximum number of bands allowed +! mg -- maximum active gasses in scheme (different from +! the max number of active gasses in any given band) +! mk -- maximum number of pseudobands allowed for any gas +! (H2O - gas 1; CO2 plus other gases - gas 2; Ozone - gas 3) + +! Saleeby(2008): For drizzle mode we would need to modify arrays +! gnu,ocoef1,bcoef1,gcoef1,kkat and add to the tables below + +integer :: ng,ns,nb,npsb(mg,mb),nuum(mb),npartob,npartg,ncog,ncb +real :: prf(mg,mb),alpha(mg,mk,mb),trf(mg,mb),beta(mg,mk,mb), & + xp(mg,mk,mb),wght(mg,mk,mb), & + wlenlo(mb),wlenhi(mb),solar(mb),ralcs(mb), & + a0(mb),a1(mb),a2(mb),a3(mb),solc, & + exptabc(150),ulim(mg,mb) +real :: ocoef(ncog,mb,npartob),bcoef(ncb,mb,npartob), & + gcoef(ncog,mb,npartg),gnu(7) + +integer :: npsb1(3,8),nuum1(8) +real :: prf1(3,8),alpha1(3,7,8),trf1(3,8),beta1(3,7,8), & + xp1(3,7,8),wght1(3,7,8), & + wlenlo1(8),wlenhi1(8),solar1(8),ralcs1(8), & + a01(8),a11(8),a21(8),a31(8), & + ulim1(3,8) +real :: ocoef1(5,8,13,2),bcoef1(2,8,13,2) & + ,gcoef1(5,8,7,2) + +integer :: ib,icog,icb,ig,ik,ngb,ip,icat,ignu,ic1,ic2,ic3,i,is +real :: temp +real, external :: sunavg + +integer :: kkat(13) +data kkat /1,2,3,3,3,4,4,4,5,5,5,6,7/ + +data ((ocoef1(icog,ib, 1,1),icog=1,5),ib=1,8)/ & + .53502E+00, .25038E+00, -.28307E-02, .17203E+00, -.22921E-01, & + .87670E+00, -.14653E-02, -.22618E+01, .12308E+00, -.92743E-03, & + .99986E+00, -.49475E+00, -.19301E+01, .60422E+00, -.21285E+01, & + .51950E+00, -.14330E+00, -.68641E-01, -.14036E+01, -.18877E+01, & + .51500E+00, -.75507E+00, -.25649E+00, .16039E+01, -.19427E+01, & + .51014E+00, -.78594E+00, -.29105E+01, .21041E+00, -.34407E-01, & + .50916E+00, .68010E-01, -.12197E-01, -.19787E+01, -.25706E+01, & + .50477E+00, .26895E+00, -.50744E-01, .39204E-01, -.65051E-02/ +data ((ocoef1(icog,ib, 2,1),icog=1,5),ib=1,8)/ & + .50246E+00, .27495E+00, -.86761E-02, .15534E+00, -.11628E-02, & + .77184E+00, .21225E+01, -.46616E+00, .20555E+00, -.26433E-03, & + .99864E+00, .29610E+01, -.76111E+00, .24400E+01, -.21687E+01, & + .50373E+00, -.56477E+00, -.18834E+00, .27339E-01, -.95556E-03, & + .50422E+00, -.10954E+01, -.32495E+00, .26231E+01, -.12727E+01, & + .50285E+00, .11969E+00, -.13137E-01, .29679E+01, -.35296E+00, & + .50250E+00, .96104E+00, -.36542E+00, .70906E-01, -.63027E-02, & + .50217E+00, .85769E+00, -.15454E+00, .35989E-01, -.46899E-02/ +data ((ocoef1(icog,ib, 3,1),icog=1,5),ib=1,8)/ & + .81912E+00, .89934E-01, -.95431E-02, .77550E-01, -.64635E-01, & + .99919E+00, .21984E+01, -.26508E+01, -.25080E+01, -.27903E+01, & + .99995E+00, .30675E+00, -.24977E+01, -.40199E+00, -.27822E+01, & + .66707E+00, .21413E+00, -.19915E-01, -.14337E+00, -.39737E+00, & + .56341E+00, .21768E+00, -.47805E-01, -.39828E+00, -.15905E+01, & + .56926E+00, -.28098E+00, -.12872E+01, .35146E+00, -.39604E-01, & + .55241E+00, -.21384E+00, -.80189E+00, .18383E+00, -.36890E-01, & + .52773E+00, .28583E+00, -.69522E-01, .13389E+00, -.10619E-01/ +data ((ocoef1(icog,ib, 4,1),icog=1,5),ib=1,8)/ & + .88678E+00, .95164E-01, -.18882E-01, -.79279E-01, -.26767E+01, & + .99955E+00, -.95345E+00, -.27709E+01, .95466E+00, -.27609E+01, & + .99995E+00, .30675E+00, -.24977E+01, -.40199E+00, -.27822E+01, & + .65337E+00, -.29702E+00, -.86659E+00, .24877E+00, -.63270E-02, & + .57824E+00, .23396E+00, -.29201E-01, -.97145E+00, -.20002E+01, & + .60869E+00, -.54567E+00, -.16368E+01, .32509E+00, -.19304E-01, & + .57423E+00, .20302E+00, -.20766E-01, -.52963E+00, -.12669E+01, & + .62105E+00, .31371E+00, -.24231E-01, -.83159E+00, -.28613E+01/ +data ((ocoef1(icog,ib, 5,1),icog=1,5),ib=1,8)/ & + .85390E+00, .24811E-01, -.59938E-01, .97555E-01, -.13096E-01, & + .99945E+00, .19216E+00, -.22428E+01, -.38142E+00, -.29731E+01, & + .99995E+00, .30675E+00, -.24977E+01, -.40199E+00, -.27822E+01, & + .59890E+00, -.18424E+00, -.35464E+00, .26931E+00, -.61489E-02, & + .56129E+00, .20357E+00, -.27843E-01, -.52470E+00, -.13424E+01, & + .57703E+00, -.27255E+00, -.88195E+00, .33391E+00, -.23252E-01, & + .54768E+00, -.29256E+00, -.61564E+00, .17540E+00, -.19055E-01, & + .58753E+00, .32487E+00, -.27846E-01, -.80520E+00, -.28833E+01/ +data ((ocoef1(icog,ib, 6,1),icog=1,5),ib=1,8)/ & + .60131E+00, .14296E+01, -.26494E-01, .19873E+00, -.25000E-03, & + .99253E+00, .10755E+00, -.23677E-01, -.91790E+00, -.15857E+00, & + .99997E+00, -.27667E+01, -.85050E+00, -.15914E+01, -.28007E+01, & + .50331E+00, .20589E+01, -.24104E+01, .25282E+00, -.27455E-02, & + .50003E+00, -.18764E+01, -.39166E-01, .12933E+00, -.45107E-02, & + .49990E+00, -.16069E+01, -.52634E-01, .11701E+00, -.44343E-02, & + .49979E+00, -.23946E+01, -.22541E+01, .91240E-01, -.41169E-02, & + .50012E+00, .79855E+00, -.16299E+01, .10765E+00, -.41424E-02/ +data ((ocoef1(icog,ib, 7,1),icog=1,5),ib=1,8)/ & + .61674E+00, .21205E+01, -.29820E-01, .23706E+00, -.22189E-03, & + .99432E+00, .13598E+01, -.44456E-01, .12953E+01, -.14623E+01, & + .99998E+00, .21184E+01, -.92367E-01, .53557E+00, -.35783E+00, & + .50773E+00, .27353E+01, -.35146E-01, .25352E+00, -.14164E-02, & + .49986E+00, -.23090E+01, -.14960E+01, .13935E+00, -.41030E-02, & + .50042E+00, .22300E+00, -.41742E-02, -.22590E+01, -.22655E+00, & + .50006E+00, -.24034E+01, -.19547E+01, .14781E+00, -.41357E-02, & + .50123E+00, -.29943E+01, -.29163E+01, .18482E+00, -.32265E-02/ +data ((ocoef1(icog,ib, 8,1),icog=1,5),ib=1,8)/ & + .60552E+00, .19524E+00, -.91893E-02, .22414E+00, -.22649E-03, & + .99345E+00, -.25853E+01, -.11440E+01, .76242E+00, -.37469E-01, & + .99998E+00, .96513E+00, -.84851E-01, .29527E+01, -.11622E+01, & + .50469E+00, .21314E+00, -.17656E-02, .33216E+00, -.13907E-01, & + .50001E+00, -.10675E+01, -.52958E-01, .11642E+00, -.42821E-02, & + .50003E+00, -.18789E+01, -.15510E+01, .16530E+00, -.47971E-02, & + .50005E+00, .11219E+00, -.44481E-02, .15162E+00, -.11005E+01, & + .50059E+00, .15061E+00, -.40776E-02, -.19571E+01, -.19943E+01/ +data ((ocoef1(icog,ib, 9,1),icog=1,5),ib=1,8)/ & + .59111E+00, .19384E+00, -.20844E-03, .15061E+00, -.50790E-02, & + .99242E+00, .11224E+01, -.50262E+00, -.11549E+01, -.24816E+01, & + .99997E+00, .10566E+01, -.12959E+01, .29739E+01, -.11756E+01, & + .50337E+00, .96222E+00, -.23622E+00, .25860E+00, -.28177E-02, & + .49988E+00, .10651E+00, -.42909E-02, .17299E+01, -.28869E+00, & + .49997E+00, .10887E+01, -.17114E+00, .12077E+00, -.46694E-02, & + .49987E+00, .94228E-01, -.43431E-02, .54459E+00, -.17733E+00, & + .50023E+00, .10820E+00, -.41047E-02, .28487E+01, -.26901E+00/ +data ((ocoef1(icog,ib,10,1),icog=1,5),ib=1,8)/ & + .59885E+00, .12438E+00, -.37180E-02, .23437E+00, -.17364E-03, & + .99431E+00, .98683E+00, -.50705E+00, -.15639E+01, -.17063E+01, & + .99998E+00, .24721E+01, -.18065E+01, .23966E+01, -.14163E+01, & + .50310E+00, .79901E-01, -.51442E-03, .30571E+00, -.34180E-02, & + .49967E+00, .98947E+00, -.20676E+00, .13659E+00, -.41175E-02, & + .50059E+00, .25137E+00, -.39431E-01, .22353E+00, -.42388E-02, & + .50008E+00, .15606E+00, -.43760E-02, .19032E+01, -.30191E+00, & + .50149E+00, .19328E+00, -.33401E-02, .16638E+01, -.22392E+00/ +data ((ocoef1(icog,ib,11,1),icog=1,5),ib=1,8)/ & + .59114E+00, .22326E+00, -.18499E-03, .13978E+00, -.47685E-02, & + .99306E+00, .24021E+01, -.91627E+00, .42397E-02, -.39950E-03, & + .99998E+00, -.27872E+01, -.17821E+01, .27485E+01, -.11735E+01, & + .50579E+00, .28701E+01, -.36958E+00, .27189E+00, -.22118E-02, & + .50008E+00, .27605E+01, -.32258E+00, .11675E+00, -.44468E-02, & + .49984E+00, .29173E+01, -.27598E+00, .16851E+00, -.48549E-02, & + .50011E+00, .13082E+00, -.50924E-02, .10954E+01, -.28379E+00, & + .50050E+00, .73313E+00, -.13738E+00, .15749E+00, -.42053E-02/ +data ((ocoef1(icog,ib,12,1),icog=1,5),ib=1,8)/ & + .50246E+00, .27495E+00, -.86761E-02, .15534E+00, -.11628E-02, & + .77184E+00, .21225E+01, -.46616E+00, .20555E+00, -.26433E-03, & + .99864E+00, .29610E+01, -.76111E+00, .24400E+01, -.21687E+01, & + .50373E+00, -.56477E+00, -.18834E+00, .27339E-01, -.95556E-03, & + .50422E+00, -.10954E+01, -.32495E+00, .26231E+01, -.12727E+01, & + .50285E+00, .11969E+00, -.13137E-01, .29679E+01, -.35296E+00, & + .50250E+00, .96104E+00, -.36542E+00, .70906E-01, -.63027E-02, & + .50217E+00, .85769E+00, -.15454E+00, .35989E-01, -.46899E-02/ +data ((ocoef1(icog,ib,13,1),icog=1,5),ib=1,8)/ & + .50246E+00, .27495E+00, -.86761E-02, .15534E+00, -.11628E-02, & + .77184E+00, .21225E+01, -.46616E+00, .20555E+00, -.26433E-03, & + .99864E+00, .29610E+01, -.76111E+00, .24400E+01, -.21687E+01, & + .50373E+00, -.56477E+00, -.18834E+00, .27339E-01, -.95556E-03, & + .50422E+00, -.10954E+01, -.32495E+00, .26231E+01, -.12727E+01, & + .50285E+00, .11969E+00, -.13137E-01, .29679E+01, -.35296E+00, & + .50250E+00, .96104E+00, -.36542E+00, .70906E-01, -.63027E-02, & + .50217E+00, .85769E+00, -.15454E+00, .35989E-01, -.46899E-02/ + +data ((ocoef1(icog,ib, 1,2),icog=1,5),ib=1,8)/ & + .52438E+00, .24743E+00, -.34625E-02, .18970E+00, -.29927E-01, & + .86366E+00, .28636E-01, -.22157E+01, .13490E+00, -.10851E-02, & + .99979E+00, -.29198E+01, -.28868E+01, .18287E+01, -.24188E+01, & + .49952E+00, .31959E-01, -.12977E-02, -.39239E+00, -.15836E+00, & + .50631E+00, -.43099E+00, -.21672E+00, .29032E-01, -.42007E-02, & + .50446E+00, .18046E+00, -.64406E-01, .25188E-01, -.51384E-02, & + .50732E+00, -.20182E+01, -.27063E+01, .61180E-01, -.13667E-01, & + .50425E+00, .37006E-01, -.90129E-02, .29626E+00, -.79197E-01/ +data ((ocoef1(icog,ib, 2,2),icog=1,5),ib=1,8)/ & + .50131E+00, .27610E+00, -.10296E-01, .13972E+00, -.14901E-02, & + .75380E+00, .21442E+00, -.29393E-03, .28470E+00, -.20896E+00, & + .99820E+00, -.29567E+01, -.74150E+00, .13607E+01, -.59503E+00, & + .50496E+00, -.29518E+01, -.87080E+00, -.21751E+01, -.40022E+00, & + .50338E+00, -.29793E+01, -.93078E+00, -.24036E+01, -.51415E+00, & + .50201E+00, .27620E+01, -.52448E+00, .16007E+00, -.18536E-01, & + .50190E+00, .23171E+01, -.36209E+00, .19042E-01, -.18868E-02, & + .50138E+00, .18239E+00, -.21161E-01, .21794E+01, -.45835E+00/ +data ((ocoef1(icog,ib, 3,2),icog=1,5),ib=1,8)/ & + .81133E+00, .69349E-01, -.10299E+00, .10795E+00, -.14262E-01, & + .99895E+00, -.20536E+01, -.25147E+01, .17417E+01, -.23481E+01, & + .99995E+00, -.40557E+00, -.26487E+01, .36965E+00, -.25690E+01, & + .64454E+00, .23063E+00, -.22302E-01, -.15667E+00, -.67213E+00, & + .55383E+00, -.70583E+00, -.26693E+01, .22107E+00, -.59426E-01, & + .61802E+00, -.34675E-01, .61173E-02, .33720E+00, -.60327E-01, & + .54433E+00, -.19635E+00, -.91939E+00, .19782E+00, -.48602E-01, & + .52284E+00, .11900E+00, -.13524E-01, .31394E+00, -.91911E-01/ +data ((ocoef1(icog,ib, 4,2),icog=1,5),ib=1,8)/ & + .87233E+00, .99292E-01, -.19262E-01, .17117E-01, -.19705E+00, & + .99953E+00, -.16322E+00, -.29089E+01, .84448E-01, -.21449E+01, & + .99995E+00, .30675E+00, -.24977E+01, -.40199E+00, -.27822E+01, & + .63934E+00, .26529E+00, -.85349E-02, -.21627E+00, -.78589E+00, & + .56400E+00, .24216E+00, -.36364E-01, -.14425E+01, -.29162E+01, & + .58293E+00, .34643E+00, -.23927E-01, -.13853E+01, -.29851E+01, & + .55724E+00, .21398E+00, -.24772E-01, -.80610E+00, -.20961E+01, & + .54695E+00, .21108E+00, -.11528E-01, .18701E+00, -.59256E-01/ +data ((ocoef1(icog,ib, 5,2),icog=1,5),ib=1,8)/ & + .84401E+00, .23811E-01, -.14551E+00, .10861E+00, -.15419E-01, & + .99932E+00, -.69472E+00, -.23245E+01, .67102E+00, -.22771E+01, & + .99995E+00, .30675E+00, -.24977E+01, -.40199E+00, -.27822E+01, & + .99963E+00, -.16618E+00, .53578E-02, -.22109E+00, -.10289E+01, & + .55164E+00, .21466E+00, -.36566E-01, -.60797E+00, -.18416E+01, & + .56015E+00, -.32017E+00, -.13440E+01, .34671E+00, -.29540E-01, & + .54148E+00, -.25292E+00, -.72859E+00, .18398E+00, -.25635E-01, & + .53004E+00, .22726E+00, -.60634E-01, .16822E+00, -.12088E-01/ +data ((ocoef1(icog,ib, 6,2),icog=1,5),ib=1,8)/ & + .56528E+00, .20898E+00, -.23015E-03, .18113E+00, -.66666E-02, & + .99010E+00, .51630E-01, -.10120E-01, -.23299E+01, -.68731E-01, & + .99997E+00, .16679E+01, -.88622E-01, .18730E+01, -.63071E+00, & + .50148E+00, .13349E+00, -.25006E+01, .23413E+00, -.32827E-02, & + .49998E+00, -.28983E+01, -.40580E-01, .12123E+00, -.52029E-02, & + .49984E+00, .79700E-01, -.42625E-02, -.63772E+00, -.92501E+00, & + .49990E+00, .73620E-01, -.41556E-02, .22763E+01, -.24832E+01, & + .49997E+00, .26563E+01, -.15949E+01, .78663E-01, -.42985E-02/ +data ((ocoef1(icog,ib, 7,2),icog=1,5),ib=1,8)/ & + .56310E+00, .25170E+00, -.17797E-03, .88188E-01, -.24857E-02, & + .99255E+00, .26672E+01, -.47333E-01, -.13995E+01, -.24663E+01, & + .99998E+00, .18766E+01, -.18795E+01, -.85618E-01, -.19384E+01, & + .50248E+00, .89183E-01, -.93480E-03, .26905E+00, -.41338E-02, & + .50020E+00, -.11036E+01, -.30119E-01, .18127E+00, -.59058E-02, & + .50014E+00, -.19260E+01, -.13113E+01, .17751E+00, -.49112E-02, & + .50003E+00, .11324E+00, -.45075E-02, -.17264E+00, -.12135E+01, & + .50038E+00, .15476E+00, -.39471E-02, .14488E+01, -.13307E+01/ +data ((ocoef1(icog,ib, 8,2),icog=1,5),ib=1,8)/ & + .58277E+00, .24129E+00, -.25302E-03, .29461E+01, -.32957E-01, & + .99189E+00, .60466E+00, -.35096E-01, -.26453E+01, -.83121E+00, & + .99997E+00, -.27667E+01, -.85050E+00, -.15914E+01, -.28007E+01, & + .50333E+00, .22535E+00, -.24322E-02, .29507E+01, -.37696E-01, & + .49987E+00, -.19453E+01, -.29072E+01, .89687E-01, -.42578E-02, & + .50009E+00, -.25865E+00, -.20818E+01, .12573E+00, -.53493E-02, & + .49994E+00, -.99434E+00, -.13396E+01, .85224E-01, -.46679E-02, & + .50013E+00, .11770E+00, -.45465E-02, -.85177E+00, -.27648E+01/ +data ((ocoef1(icog,ib, 9,2),icog=1,5),ib=1,8)/ & + .56278E+00, .20772E+00, -.21767E-03, .15660E+00, -.52773E-02, & + .99044E+00, -.29442E+01, -.13689E+01, .24217E+01, -.55470E+00, & + .99997E+00, .96718E+00, -.25363E+01, .24388E+01, -.11205E+01, & + .50139E+00, .23373E+00, -.32921E-02, .15407E+01, -.26574E+00, & + .49978E+00, .84373E-01, -.38509E-02, .62946E+00, -.19821E+00, & + .49997E+00, .14601E+01, -.20115E+00, .83662E-01, -.43680E-02, & + .49976E+00, .25618E+01, -.32259E+00, .71141E-01, -.41767E-02, & + .49958E+00, .73392E-01, -.39063E-02, .23186E+01, -.25438E+00/ +data ((ocoef1(icog,ib,10,2),icog=1,5),ib=1,8)/ & + .57280E+00, .13298E+00, -.53572E-02, .25483E+00, -.20239E-03, & + .99265E+00, .11151E+00, -.22915E+01, .29903E+01, -.60607E+00, & + .99998E+00, -.17678E+01, -.15604E+01, .95765E+00, -.10485E+01, & + .50455E+00, .19910E+01, -.28865E+00, .27178E+00, -.20250E-02, & + .49994E+00, .24198E+01, -.29927E+00, .11348E+00, -.44506E-02, & + .50015E+00, .27335E+00, -.33081E-01, .17208E+00, -.49023E-02, & + .50019E+00, .11259E+00, -.44642E-02, .24168E+00, -.70501E-01, & + .50052E+00, .15972E+00, -.40628E-02, .47993E+00, -.93927E-01/ +data ((ocoef1(icog,ib,11,2),icog=1,5),ib=1,8)/ & + .56714E+00, .14168E+00, -.60114E-02, .23864E+00, -.20326E-03, & + .99203E+00, .27487E+00, -.35208E+00, -.11985E+00, -.22339E+01, & + .99997E+00, .28339E+01, -.12505E+01, -.28704E+01, -.29825E+01, & + .50298E+00, .60429E+00, -.18340E+00, .25075E+00, -.25888E-02, & + .50004E+00, .86340E-01, -.44164E-02, .22731E+01, -.29232E+00, & + .49986E+00, .12787E+00, -.54055E-02, .24263E+01, -.24682E+00, & + .49980E+00, .85550E-01, -.43925E-02, .10047E+01, -.22929E+00, & + .50024E+00, .10162E+01, -.16810E+00, .11731E+00, -.45331E-02/ +data ((ocoef1(icog,ib,12,2),icog=1,5),ib=1,8)/ & + .50131E+00, .27610E+00, -.10296E-01, .13972E+00, -.14901E-02, & + .75380E+00, .21442E+00, -.29393E-03, .28470E+00, -.20896E+00, & + .99820E+00, -.29567E+01, -.74150E+00, .13607E+01, -.59503E+00, & + .50496E+00, -.29518E+01, -.87080E+00, -.21751E+01, -.40022E+00, & + .50338E+00, -.29793E+01, -.93078E+00, -.24036E+01, -.51415E+00, & + .50201E+00, .27620E+01, -.52448E+00, .16007E+00, -.18536E-01, & + .50190E+00, .23171E+01, -.36209E+00, .19042E-01, -.18868E-02, & + .50138E+00, .18239E+00, -.21161E-01, .21794E+01, -.45835E+00/ +data ((ocoef1(icog,ib,13,2),icog=1,5),ib=1,8)/ & + .50131E+00, .27610E+00, -.10296E-01, .13972E+00, -.14901E-02, & + .75380E+00, .21442E+00, -.29393E-03, .28470E+00, -.20896E+00, & + .99820E+00, -.29567E+01, -.74150E+00, .13607E+01, -.59503E+00, & + .50496E+00, -.29518E+01, -.87080E+00, -.21751E+01, -.40022E+00, & + .50338E+00, -.29793E+01, -.93078E+00, -.24036E+01, -.51415E+00, & + .50201E+00, .27620E+01, -.52448E+00, .16007E+00, -.18536E-01, & + .50190E+00, .23171E+01, -.36209E+00, .19042E-01, -.18868E-02, & + .50138E+00, .18239E+00, -.21161E-01, .21794E+01, -.45835E+00/ + +data ((bcoef1(icb,ib, 1,1),icb=1,2),ib=1,8)/ & + .34438E-11, .19866E+01, & + .34388E-11, .19863E+01, & + .33441E-11, .19905E+01, & + .32585E-11, .20009E+01, & + .31041E-11, .20064E+01, & + .30466E-11, .20084E+01, & + .29263E-11, .20152E+01, & + .31930E-11, .20001E+01/ +data ((bcoef1(icb,ib, 2,1),icb=1,2),ib=1,8)/ & + .32688E-11, .19956E+01, & + .32122E-11, .19975E+01, & + .31842E-11, .19985E+01, & + .35364E-11, .19873E+01, & + .33857E-11, .19920E+01, & + .34428E-11, .19898E+01, & + .33757E-11, .19922E+01, & + .33885E-11, .19916E+01/ +data ((bcoef1(icb,ib, 3,1),icb=1,2),ib=1,8)/ & + .58083E-11, .17438E+01, & + .55947E-11, .17484E+01, & + .52795E-11, .17598E+01, & + .34851E-11, .19093E+01, & + .54453E-11, .17832E+01, & + .51652E-11, .17924E+01, & + .41981E-11, .18363E+01, & + .58427E-11, .17551E+01/ +data ((bcoef1(icb,ib, 4,1),icb=1,2),ib=1,8)/ & + .18179E-10, .14989E+01, & + .17374E-10, .15048E+01, & + .16215E-10, .15185E+01, & + .89107E-11, .17122E+01, & + .16339E-10, .15501E+01, & + .15479E-10, .15601E+01, & + .11922E-10, .16147E+01, & + .18206E-10, .15130E+01/ +data ((bcoef1(icb,ib, 5,1),icb=1,2),ib=1,8)/ & + .48019E-11, .17647E+01, & + .45784E-11, .17712E+01, & + .42466E-11, .17864E+01, & + .20760E-11, .20058E+01, & + .41150E-11, .18264E+01, & + .38476E-11, .18393E+01, & + .29229E-11, .18972E+01, & + .47067E-11, .17835E+01/ +data ((bcoef1(icb,ib, 6,1),icb=1,2),ib=1,8)/ & + .17941E-10, .14738E+01, & + .17785E-10, .14748E+01, & + .17697E-10, .14754E+01, & + .20203E-10, .14601E+01, & + .18985E-10, .14673E+01, & + .18692E-10, .14691E+01, & + .18672E-10, .14692E+01, & + .18378E-10, .14710E+01/ +data ((bcoef1(icb,ib, 7,1),icb=1,2),ib=1,8)/ & + .10442E-10, .16066E+01, & + .10358E-10, .16075E+01, & + .10310E-10, .16081E+01, & + .11679E-10, .15936E+01, & + .11018E-10, .16004E+01, & + .10855E-10, .16021E+01, & + .10848E-10, .16022E+01, & + .10687E-10, .16039E+01/ +data ((bcoef1(icb,ib, 8,1),icb=1,2),ib=1,8)/ & + .16713E-11, .19739E+01, & + .16595E-11, .19747E+01, & + .16533E-11, .19752E+01, & + .18340E-11, .19632E+01, & + .17481E-11, .19687E+01, & + .17252E-11, .19703E+01, & + .17254E-11, .19702E+01, & + .17030E-11, .19717E+01/ +data ((bcoef1(icb,ib, 9,1),icb=1,2),ib=1,8)/ & + .15886E-10, .14881E+01, & + .15600E-10, .14903E+01, & + .15437E-10, .14915E+01, & + .17739E-10, .14753E+01, & + .17223E-10, .14787E+01, & + .17031E-10, .14800E+01, & + .16499E-10, .14837E+01, & + .16659E-10, .14826E+01/ +data ((bcoef1(icb,ib,10,1),icb=1,2),ib=1,8)/ & + .11227E-10, .15981E+01, & + .10998E-10, .16005E+01, & + .10864E-10, .16019E+01, & + .12060E-10, .15899E+01, & + .12088E-10, .15895E+01, & + .11974E-10, .15906E+01, & + .11453E-10, .15958E+01, & + .11794E-10, .15924E+01/ +data ((bcoef1(icb,ib,11,1),icb=1,2),ib=1,8)/ & + .18718E-11, .19607E+01, & + .18382E-11, .19628E+01, & + .18167E-11, .19642E+01, & + .19564E-11, .19556E+01, & + .19861E-11, .19538E+01, & + .19683E-11, .19549E+01, & + .18873E-11, .19598E+01, & + .19525E-11, .19558E+01/ +data ((bcoef1(icb,ib,12,1),icb=1,2),ib=1,8)/ & + .32688E-11, .19956E+01, & + .32122E-11, .19975E+01, & + .31842E-11, .19985E+01, & + .35364E-11, .19873E+01, & + .33857E-11, .19920E+01, & + .34428E-11, .19898E+01, & + .33757E-11, .19922E+01, & + .33885E-11, .19916E+01/ +data ((bcoef1(icb,ib,13,1),icb=1,2),ib=1,8)/ & + .32688E-11, .19956E+01, & + .32122E-11, .19975E+01, & + .31842E-11, .19985E+01, & + .35364E-11, .19873E+01, & + .33857E-11, .19920E+01, & + .34428E-11, .19898E+01, & + .33757E-11, .19922E+01, & + .33885E-11, .19916E+01/ + +data ((bcoef1(icb,ib, 1,2),icb=1,2),ib=1,8)/ & + .10388E-10, .19854E+01, & + .10167E-10, .19885E+01, & + .98859E-11, .19927E+01, & + .99564E-11, .19966E+01, & + .95604E-11, .20013E+01, & + .92513E-11, .20056E+01, & + .89816E-11, .20107E+01, & + .97704E-11, .19962E+01/ +data ((bcoef1(icb,ib, 2,2),icb=1,2),ib=1,8)/ & + .96951E-11, .19969E+01, & + .95759E-11, .19982E+01, & + .95177E-11, .19989E+01, & + .10482E-10, .19885E+01, & + .10072E-10, .19928E+01, & + .10166E-10, .19916E+01, & + .10082E-10, .19926E+01, & + .99843E-11, .19936E+01/ +data ((bcoef1(icb,ib, 3,2),icb=1,2),ib=1,8)/ & + .20024E-10, .16731E+01, & + .18971E-10, .16826E+01, & + .18042E-10, .16927E+01, & + .15730E-10, .17736E+01, & + .20721E-10, .16862E+01, & + .20019E-10, .16905E+01, & + .16809E-10, .17295E+01, & + .21236E-10, .16694E+01/ +data ((bcoef1(icb,ib, 4,2),icb=1,2),ib=1,8)/ & + .44143E-10, .15092E+01, & + .41297E-10, .15213E+01, & + .38861E-10, .15337E+01, & + .29552E-10, .16484E+01, & + .44903E-10, .15278E+01, & + .43528E-10, .15316E+01, & + .34547E-10, .15827E+01, & + .47297E-10, .15043E+01/ +data ((bcoef1(icb,ib, 5,2),icb=1,2),ib=1,8)/ & + .12295E-10, .17893E+01, & + .11473E-10, .18021E+01, & + .10745E-10, .18156E+01, & + .75080E-11, .19480E+01, & + .12090E-10, .18150E+01, & + .11598E-10, .18212E+01, & + .90997E-11, .18752E+01, & + .12992E-10, .17872E+01/ +data ((bcoef1(icb,ib, 6,2),icb=1,2),ib=1,8)/ & + .42978E-10, .14781E+01, & + .42685E-10, .14789E+01, & + .42514E-10, .14793E+01, & + .47449E-10, .14666E+01, & + .45052E-10, .14726E+01, & + .44365E-10, .14744E+01, & + .44464E-10, .14741E+01, & + .43801E-10, .14759E+01/ +data ((bcoef1(icb,ib, 7,2),icb=1,2),ib=1,8)/ & + .26517E-10, .16100E+01, & + .26350E-10, .16107E+01, & + .26252E-10, .16112E+01, & + .28994E-10, .15997E+01, & + .27688E-10, .16050E+01, & + .27286E-10, .16067E+01, & + .27348E-10, .16064E+01, & + .26969E-10, .16080E+01/ +data ((bcoef1(icb,ib, 8,2),icb=1,2),ib=1,8)/ & + .47812E-11, .19789E+01, & + .47558E-11, .19795E+01, & + .47427E-11, .19798E+01, & + .51322E-11, .19707E+01, & + .49508E-11, .19749E+01, & + .48910E-11, .19763E+01, & + .49022E-11, .19760E+01, & + .48465E-11, .19773E+01/ +data ((bcoef1(icb,ib, 9,2),icb=1,2),ib=1,8)/ & + .39775E-10, .14872E+01, & + .39221E-10, .14888E+01, & + .38924E-10, .14897E+01, & + .45126E-10, .14725E+01, & + .42953E-10, .14782E+01, & + .42418E-10, .14797E+01, & + .41699E-10, .14817E+01, & + .41391E-10, .14825E+01/ +data ((bcoef1(icb,ib,10,2),icb=1,2),ib=1,8)/ & + .28126E-10, .16031E+01, & + .27668E-10, .16050E+01, & + .27422E-10, .16061E+01, & + .30896E-10, .15922E+01, & + .30342E-10, .15943E+01, & + .30081E-10, .15953E+01, & + .29174E-10, .15989E+01, & + .29387E-10, .15980E+01/ +data ((bcoef1(icb,ib,11,2),icb=1,2),ib=1,8)/ & + .52306E-11, .19684E+01, & + .51549E-11, .19701E+01, & + .51143E-11, .19710E+01, & + .55947E-11, .19606E+01, & + .55687E-11, .19611E+01, & + .55284E-11, .19620E+01, & + .53706E-11, .19654E+01, & + .54315E-11, .19640E+01/ +data ((bcoef1(icb,ib,12,2),icb=1,2),ib=1,8)/ & + .96951E-11, .19969E+01, & + .95759E-11, .19982E+01, & + .95177E-11, .19989E+01, & + .10482E-10, .19885E+01, & + .10072E-10, .19928E+01, & + .10166E-10, .19916E+01, & + .10082E-10, .19926E+01, & + .99843E-11, .19936E+01/ +data ((bcoef1(icb,ib,13,2),icb=1,2),ib=1,8)/ & + .96951E-11, .19969E+01, & + .95759E-11, .19982E+01, & + .95177E-11, .19989E+01, & + .10482E-10, .19885E+01, & + .10072E-10, .19928E+01, & + .10166E-10, .19916E+01, & + .10082E-10, .19926E+01, & + .99843E-11, .19936E+01/ + +data ((gcoef1(icog,ib, 1,1),icog=1,5),ib=1,8)/ & + .85004E+00, -.23070E+01, -.29873E+01, -.72250E-01, -.13559E-01, & + .85583E+00, -.39371E-01, -.53225E-01, -.10528E+01, -.27121E+01, & + .89734E+00, -.36884E+00, -.28945E+00, .29238E+00, -.46323E+00, & + .86046E+00, -.23999E+01, -.16198E+01, -.37815E+00, -.69269E-01, & + .91260E+00, -.19434E+00, -.77833E-01, -.27120E+01, -.14493E+01, & + .97134E+00, -.13436E+01, -.85240E+00, -.15603E+00, -.60289E-01, & + .96978E+00, -.27259E+01, -.14606E+01, -.13315E+00, -.55870E-01, & + .92327E+00, -.62450E+00, -.51258E+00, -.15262E+00, -.57748E-01/ +data ((gcoef1(icog,ib, 2,1),icog=1,5),ib=1,8)/ & + .85256E+00, -.28551E+01, -.11673E+01, -.87298E-01, -.12332E-01, & + .85579E+00, -.58954E+00, -.34927E+00, -.29288E+01, -.58065E+00, & + .89934E+00, -.25957E+01, -.51369E+00, .16269E+01, -.95447E+00, & + .86130E+00, -.28143E+00, -.32093E-01, .15132E+01, -.10311E+01, & + .91312E+00, -.11166E+01, -.24026E+00, .24531E+01, -.64002E+00, & + .97157E+00, -.23646E+01, -.32910E+00, .20974E+01, -.29852E+01, & + .97053E+00, -.12651E+00, -.44707E-01, -.27114E+01, -.18854E+01, & + .92363E+00, -.93127E+00, -.23277E+00, .12683E+01, -.10108E+01/ +data ((gcoef1(icog,ib, 3,1),icog=1,5),ib=1,8)/ & + .84652E+00, -.14792E+00, -.49920E+00, -.82844E-01, -.32344E-01, & + .86490E+00, -.24280E-01, -.27182E-01, -.10035E+00, -.25304E+00, & + .90438E+00, -.57383E-01, -.15491E+00, -.10861E+00, -.94753E+00, & + .88805E+00, -.81787E+00, -.17892E+00, -.17723E+00, -.23314E-01, & + .89817E+00, -.18697E+00, -.74539E-01, -.94747E+00, -.42580E+00, & + .96632E+00, -.17709E+00, -.72026E-01, -.11097E+01, -.70518E+00, & + .96598E+00, -.15428E+00, -.70893E-01, -.11102E+01, -.59795E+00, & + .91847E+00, -.19007E+00, -.88016E-01, -.10278E+01, -.11070E+01/ +data ((gcoef1(icog,ib, 4,1),icog=1,5),ib=1,8)/ & + .86492E+00, .14010E+01, -.18127E+01, -.12305E+01, -.34913E-01, & + .86413E+00, -.89078E-02, -.40056E+00, -.11315E+01, -.66225E+00, & + .90703E+00, -.23060E+01, -.14108E+00, .16011E+01, -.10697E+01, & + .88834E+00, -.10417E+01, -.39147E+00, -.52226E+00, -.29662E-01, & + .90180E+00, -.22150E+01, -.26668E+01, -.20787E+01, -.52022E-01, & + .96995E+00, -.40797E+00, -.63701E-01, -.48035E+00, -.45402E-01, & + .97021E+00, -.22262E+00, -.38171E-01, -.27977E+01, -.75078E+00, & + .92271E+00, -.27473E+01, -.60188E-01, -.38875E+00, -.18987E+01/ +data ((gcoef1(icog,ib, 5,1),icog=1,5),ib=1,8)/ & + .86542E+00, -.10243E+00, -.14467E-01, .18090E+01, -.88272E+00, & + .86609E+00, -.33357E+00, -.23570E+01, -.14838E+01, -.40147E+00, & + .90692E+00, -.21077E+01, -.67812E+00, -.20880E+01, -.51111E+00, & + .88844E+00, .24039E+01, -.14473E+00, -.12302E+01, -.39473E-01, & + .90167E+00, -.18168E+01, -.29193E+00, -.79883E+00, -.43798E+00, & + .96988E+00, -.30375E+00, -.12232E+00, .16400E+01, -.24678E+01, & + .97021E+00, .17677E+01, -.66322E+00, -.16524E+01, -.29933E+00, & + .92259E+00, -.16496E+01, -.39920E+00, -.68006E+00, -.26008E+00/ +data ((gcoef1(icog,ib, 6,1),icog=1,5),ib=1,8)/ & + .86542E+00, -.10243E+00, -.14467E-01, .18090E+01, -.88272E+00, & + .86609E+00, -.33357E+00, -.23570E+01, -.14838E+01, -.40147E+00, & + .90692E+00, -.21077E+01, -.67812E+00, -.20880E+01, -.51111E+00, & + .88844E+00, .24039E+01, -.14473E+00, -.12302E+01, -.39473E-01, & + .90167E+00, -.18168E+01, -.29193E+00, -.79883E+00, -.43798E+00, & + .96988E+00, -.30375E+00, -.12232E+00, .16400E+01, -.24678E+01, & + .97021E+00, .17677E+01, -.66322E+00, -.16524E+01, -.29933E+00, & + .92259E+00, -.16496E+01, -.39920E+00, -.68006E+00, -.26008E+00/ +data ((gcoef1(icog,ib, 7,1),icog=1,5),ib=1,8)/ & + .86542E+00, -.10243E+00, -.14467E-01, .18090E+01, -.88272E+00, & + .86609E+00, -.33357E+00, -.23570E+01, -.14838E+01, -.40147E+00, & + .90692E+00, -.21077E+01, -.67812E+00, -.20880E+01, -.51111E+00, & + .88844E+00, .24039E+01, -.14473E+00, -.12302E+01, -.39473E-01, & + .90167E+00, -.18168E+01, -.29193E+00, -.79883E+00, -.43798E+00, & + .96988E+00, -.30375E+00, -.12232E+00, .16400E+01, -.24678E+01, & + .97021E+00, .17677E+01, -.66322E+00, -.16524E+01, -.29933E+00, & + .92259E+00, -.16496E+01, -.39920E+00, -.68006E+00, -.26008E+00/ + +data ((gcoef1(icog,ib, 1,2),icog=1,5),ib=1,8)/ & + .85428E+00, -.22824E+00, -.32737E+00, -.57281E-01, -.11823E-01, & + .85677E+00, -.15857E+01, -.54104E+00, .15231E+01, -.63857E+00, & + .89818E+00, -.25075E+00, -.24189E+01, -.36307E-01, -.12669E+00, & + .85962E+00, -.46391E+00, -.11261E+01, -.62972E+00, -.15502E+00, & + .91238E+00, -.15845E+01, -.18563E+01, -.26871E+00, -.14749E+00, & + .97117E+00, -.15075E+01, -.15209E+01, -.15929E+00, -.87209E-01, & + .96977E+00, -.15247E+00, -.91890E-01, -.29261E+01, -.27680E+01, & + .92298E+00, -.16593E+00, -.88094E-01, -.81450E+00, -.89494E+00/ +data ((gcoef1(icog,ib, 2,2),icog=1,5),ib=1,8)/ & + .85485E+00, .16591E+01, -.13538E+01, -.10826E+00, -.20853E-01, & + .85877E+00, -.40050E+00, -.11467E+01, -.22559E+01, -.82045E+00, & + .89872E+00, -.48360E+00, -.88272E+00, -.27211E+01, -.10538E+01, & + .86142E+00, -.40265E+00, -.68366E-01, -.90545E+00, -.82210E+00, & + .91314E+00, -.28791E+00, -.96056E-01, .16624E+01, -.78796E+00, & + .97158E+00, -.17553E+01, -.56189E+00, -.11158E+00, -.14263E+01, & + .97046E+00, -.15502E+00, -.10433E+00, -.14530E+01, -.95320E+00, & + .92357E+00, -.50976E-01, -.13639E+01, -.21887E+00, -.13027E+00/ +data ((gcoef1(icog,ib, 3,2),icog=1,5),ib=1,8)/ & + .83645E+00, -.10657E+00, -.88227E-01, -.57680E+00, -.29838E+01, & + .86231E+00, -.94684E-01, -.28902E+00, -.17472E-01, -.48864E-01, & + .90517E+00, -.12820E+00, -.97785E+00, -.30679E-01, -.13764E+00, & + -.10789E+00, -.88173E+00, -.17572E+00, .92677E+00, .76584E-03, & + .90332E+00, -.98943E+00, -.45205E+00, -.75741E-01, -.51938E-01, & + .96769E+00, -.14666E+00, -.86753E-01, -.11482E+01, -.95418E+00, & + .96824E+00, -.11279E+01, -.76324E+00, -.11148E+00, -.78466E-01, & + .91817E+00, -.18217E+00, -.12214E+00, -.11635E+01, -.16800E+01/ +data ((gcoef1(icog,ib, 4,2),icog=1,5),ib=1,8)/ & + .86761E+00, -.25078E+00, -.33773E-01, -.53825E+00, -.92074E+00, & + .86637E+00, .22550E+01, -.19380E+00, -.13276E+01, -.93580E-01, & + .90660E+00, .15513E+01, -.13785E+01, -.18898E+00, -.76385E+00, & + .88836E+00, -.24290E+01, -.76275E-01, .14582E+01, -.16409E+01, & + .90184E+00, -.16807E+00, -.64505E-01, -.20434E+01, -.12036E+01, & + .96993E+00, .15686E+01, -.15885E+01, -.87090E+00, -.91118E-01, & + .97029E+00, -.19457E+01, -.10327E+00, .12140E+01, -.16934E+01, & + .92260E+00, -.20223E+01, -.12144E+01, -.13366E+01, -.10022E+00/ +data ((gcoef1(icog,ib, 5,2),icog=1,5),ib=1,8)/ & + .86750E+00, -.11043E+00, -.22250E-01, -.26821E+01, -.16937E+01, & + .86628E+00, .40213E+00, -.13349E+01, -.29534E+01, -.86907E+00, & + .90633E+00, .10585E+01, -.20870E+01, -.11491E+01, -.80802E+00, & + .88830E+00, -.12621E+00, -.29155E-01, -.46961E+00, -.13071E+00, & + .90172E+00, -.71294E+00, -.45464E+00, -.11305E+00, -.65795E-01, & + .96998E+00, .18700E+01, -.22688E+01, -.15064E+00, -.63017E-01, & + .97035E+00, -.17586E+00, -.10184E+00, .62649E+00, -.18503E+01, & + .92260E+00, .10520E+01, -.14577E+01, -.19297E+00, -.11617E+00/ +data ((gcoef1(icog,ib, 6,2),icog=1,5),ib=1,8)/ & + .86750E+00, -.11043E+00, -.22250E-01, -.26821E+01, -.16937E+01, & + .86628E+00, .40213E+00, -.13349E+01, -.29534E+01, -.86907E+00, & + .90633E+00, .10585E+01, -.20870E+01, -.11491E+01, -.80802E+00, & + .88830E+00, -.12621E+00, -.29155E-01, -.46961E+00, -.13071E+00, & + .90172E+00, -.71294E+00, -.45464E+00, -.11305E+00, -.65795E-01, & + .96998E+00, .18700E+01, -.22688E+01, -.15064E+00, -.63017E-01, & + .97035E+00, -.17586E+00, -.10184E+00, .62649E+00, -.18503E+01, & + .92260E+00, .10520E+01, -.14577E+01, -.19297E+00, -.11617E+00/ +data ((gcoef1(icog,ib, 7,2),icog=1,5),ib=1,8)/ & + .86750E+00, -.11043E+00, -.22250E-01, -.26821E+01, -.16937E+01, & + .86628E+00, .40213E+00, -.13349E+01, -.29534E+01, -.86907E+00, & + .90633E+00, .10585E+01, -.20870E+01, -.11491E+01, -.80802E+00, & + .88830E+00, -.12621E+00, -.29155E-01, -.46961E+00, -.13071E+00, & + .90172E+00, -.71294E+00, -.45464E+00, -.11305E+00, -.65795E-01, & + .96998E+00, .18700E+01, -.22688E+01, -.15064E+00, -.63017E-01, & + .97035E+00, -.17586E+00, -.10184E+00, .62649E+00, -.18503E+01, & + .92260E+00, .10520E+01, -.14577E+01, -.19297E+00, -.11617E+00/ + +data ((ulim1(ig,ib),ig=1,3),ib=1,8)/ & + 1000., 10000., 1000., & + 10000., 1000., 1000., & + 1000., 1000., 2., & + 1000., 1000., 1000., & + 1000., 100., 1000., & + 1000., 1000., 1000., & + 1000., 1000., 0.3, & + 1000., 110., 1000./ +data (wlenlo1(ib),ib=1,8)/ & + 1.529999, .6999999, .2451000, 20.00000, & + 12.50000, 8.333299, 9.008999, 4.642000/ +data (wlenhi1(ib),ib=1,8)/ & + 4.642000, 1.529999, .6999999, 104.5149, & + 20.00000, 9.008999, 10.30930, 8.333299/ +data (solar1(ib),ib=1,3)/ 162.8590546, 556.7694702, 640.6521606/ +data (ralcs1(ib),ib=1,8)/ & + 0.2306902E-09, 0.4273218E-08, 0.7142404E-07, 0.5187161E-04, & + 0.4707304E-05, 0.8822867E-06, 0.5892014E-06, 0.4331474E-06/ + +!Saleeby(2009):Modify nuum1 statement to turn on water vapor continuum +!data (nuum1(ib),ib=1,8)/ 0, 0, 0, 0, 0, 1, 1, 0/ +data (nuum1(ib),ib=1,8)/ 0, 0, 0, 1, 1, 1, 1, 1/ + +data (a01(ib),ib=1,8)/ & + .0000000E+00, .0000000E+00, .0000000E+00, .2380230E+01, & + .3292058E+02, .1123225E+02, .2146121E+01, -.8898108E+02/ +data (a11(ib),ib=1,8)/ & + .0000000E+00, .0000000E+00, .0000000E+00, -.1055970E+00, & + -.4862469E+00, -.7751060E-01, .2143994E-01, .1392107E+01/ +data (a21(ib),ib=1,8)/ & + .0000000E+00, .0000000E+00, .0000000E+00, .1012857E-02, & + .2017528E-02, -.3353665E-03, -.4981068E-03, -.7344463E-02/ +data (a31(ib),ib=1,8)/ & + .0000000E+00, .0000000E+00, .0000000E+00, -.8937388E-06, & + -.8957686E-06, .2563034E-05, .1815480E-05, .1314578E-04/ + +data ((npsb1(ig,ib),ig=1,3),ib=1,8)/ & + 5, 3, 0, & + 5, 1, 0, & + 1, 1, 5, & + 5, 0, 0, & + 4, 4, 0, & + 2, 1, 0, & + 2, 1, 3, & + 5, 1, 0/ + +data ((prf1(ig,ib),ig=1,3),ib=1,8)/ & + .1013250E+06, .8612625E+05, .0000000E+00, & + .1013250E+06, .8612625E+05, .0000000E+00, & + .1013250E+06, .8612625E+05, .3039750E+04, & + .5066250E+05, .0000000E+00, .0000000E+00, & + .8612625E+05, .1013250E+05, .0000000E+00, & + .8612625E+05, .5066250E+05, .0000000E+00, & + .8612625E+05, .5066250E+05, .1013250E+05, & + .7599375E+05, .5066250E+05, .0000000E+00/ + +data ((trf1(ig,ib),ig=1,3),ib=1,8)/ & + .2817000E+03, .2558000E+03, .0000000E+00, & + .2817000E+03, .2558000E+03, .0000000E+00, & + .2817000E+03, .2558000E+03, .2299000E+03, & + .2558000E+03, .0000000E+00, .0000000E+00, & + .2817000E+03, .2299000E+03, .0000000E+00, & + .2817000E+03, .2558000E+03, .0000000E+00, & + .2817000E+03, .2558000E+03, .2040000E+03, & + .2817000E+03, .2558000E+03, .0000000E+00/ + +data ((xp1(ig,ik,1),ig=1,3),ik=1,7)/ & + .1247157E-01, .5996504E-04, .0000000E+00, & + .2623545E+01, .8041044E-02, .0000000E+00, & + .8128411E-05, .6263048E+00, .0000000E+00, & + .1484021E+00, .0000000E+00, .0000000E+00, & + .7244654E-03, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ +data ((xp1(ig,ik,2),ig=1,3),ik=1,7)/ & + .4487467E-02, .2326860E-04, .0000000E+00, & + .5147366E+00, .0000000E+00, .0000000E+00, & + .5490468E-05, .0000000E+00, .0000000E+00, & + .5409482E-03, .0000000E+00, .0000000E+00, & + .3205971E-01, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ +data ((xp1(ig,ik,3),ig=1,3),ik=1,7)/ & + .1106090E-04, .1005030E-04, .1914260E+05, & + .0000000E+00, .0000000E+00, .5794290E+03, & + .0000000E+00, .0000000E+00, .7177940E+02, & + .0000000E+00, .0000000E+00, .1870680E+01, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ +data ((xp1(ig,ik,4),ig=1,3),ik=1,7)/ & + .1790956E+00, .0000000E+00, .0000000E+00, & + .1755604E+01, .0000000E+00, .0000000E+00, & + .4080156E-02, .0000000E+00, .0000000E+00, & + .3145180E+02, .0000000E+00, .0000000E+00, & + .2784468E-01, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ +data ((xp1(ig,ik,5),ig=1,3),ik=1,7)/ & + .5217378E-03, .6755403E+00, .0000000E+00, & + .1272084E+01, .3978131E-01, .0000000E+00, & + .5748921E-02, .3571308E-03, .0000000E+00, & + .5702444E-01, .1850978E+02, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ +data ((xp1(ig,ik,6),ig=1,3),ik=1,7)/ & + .1298981E-03, .5129330E-04, .0000000E+00, & + .4006586E-02, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ +data ((xp1(ig,ik,7),ig=1,3),ik=1,7)/ & + .2897531E-04, .5129330E-04, .4995610E+02, & + .1949597E-02, .0000000E+00, .4341897E-03, & + .0000000E+00, .0000000E+00, .1086045E+02, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ +data ((xp1(ig,ik,8),ig=1,3),ik=1,7)/ & + .6476305E-03, .1053610E-03, .0000000E+00, & + .6949131E+00, .0000000E+00, .0000000E+00, & + .7677455E-02, .0000000E+00, .0000000E+00, & + .8363310E+01, .0000000E+00, .0000000E+00, & + .8868708E-01, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ + +data ((wght1(ig,ik,1),ig=1,3),ik=1,7)/ & + .1415609E+00, .7785574E+00, .0000000E+00, & + .7056218E-01, .1693635E+00, .0000000E+00, & + .4375873E+00, .5207906E-01, .0000000E+00, & + .1332501E+00, .0000000E+00, .0000000E+00, & + .2170395E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ +data ((wght1(ig,ik,2),ig=1,3),ik=1,7)/ & + .1096637E+00, .1000000E+01, .0000000E+00, & + .3161782E-01, .0000000E+00, .0000000E+00, & + .5323901E+00, .0000000E+00, .0000000E+00, & + .2418084E+00, .0000000E+00, .0000000E+00, & + .8451997E-01, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ +data ((wght1(ig,ik,3),ig=1,3),ik=1,7)/ & + .1000000E+01, .1000000E+01, .5640000E-03, & + .0000000E+00, .0000000E+00, .1086900E-01, & + .0000000E+00, .0000000E+00, .1243200E-01, & + .0000000E+00, .0000000E+00, .1844170E+00, & + .0000000E+00, .0000000E+00, .7917180E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ +data ((wght1(ig,ik,4),ig=1,3),ik=1,7)/ & + .2591315E+00, .0000000E+00, .0000000E+00, & + .3134250E+00, .0000000E+00, .0000000E+00, & + .5277705E-01, .0000000E+00, .0000000E+00, & + .1492298E+00, .0000000E+00, .0000000E+00, & + .2254367E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ +data ((wght1(ig,ik,5),ig=1,3),ik=1,7)/ & + .3616211E+00, .1671412E+00, .0000000E+00, & + .5159410E-01, .2359013E+00, .0000000E+00, & + .3750388E+00, .5389559E+00, .0000000E+00, & + .2117461E+00, .5800171E-01, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ +data ((wght1(ig,ik,6),ig=1,3),ik=1,7)/ & + .8236111E+00, .1000000E+01, .0000000E+00, & + .1763889E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ +data ((wght1(ig,ik,7),ig=1,3),ik=1,7)/ & + .8024495E+00, .1000000E+01, .1427190E+00, & + .1975506E+00, .0000000E+00, .5857329E+00, & + .0000000E+00, .0000000E+00, .2726962E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ +data ((wght1(ig,ik,8),ig=1,3),ik=1,7)/ & + .1278349E+00, .1000000E+01, .0000000E+00, & + .2494413E+00, .0000000E+00, .0000000E+00, & + .2109432E+00, .0000000E+00, .0000000E+00, & + .1522931E+00, .0000000E+00, .0000000E+00, & + .2594875E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ + +data ((alpha1(ig,ik,1),ig=1,3),ik=1,7)/ & + .8242220E+00, .9999895E+00, .0000000E+00, & + .6627719E+00, .5184072E+00, .0000000E+00, & + .9999794E+00, .6601071E+00, .0000000E+00, & + .7781165E+00, .0000000E+00, .0000000E+00, & + .7519682E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ +data ((alpha1(ig,ik,2),ig=1,3),ik=1,7)/ & + .7693452E+00, .1385630E+00, .0000000E+00, & + .5131682E+00, .0000000E+00, .0000000E+00, & + .3494183E+00, .0000000E+00, .0000000E+00, & + .7714978E+00, .0000000E+00, .0000000E+00, & + .6381509E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ +data ((alpha1(ig,ik,3),ig=1,3),ik=1,7)/ & + -.2816690E+00, .1000000E+01, -.2044000E-02, & + .0000000E+00, .0000000E+00, .7768400E-01, & + .0000000E+00, .0000000E+00, -.2296670E+00, & + .0000000E+00, .0000000E+00, .9945000E-01, & + .0000000E+00, .0000000E+00, .1000000E+01, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ +data ((alpha1(ig,ik,4),ig=1,3),ik=1,7)/ & + .9998096E+00, .0000000E+00, .0000000E+00, & + .8934920E+00, .0000000E+00, .0000000E+00, & + .4805090E+00, .0000000E+00, .0000000E+00, & + .7776389E+00, .0000000E+00, .0000000E+00, & + .7963042E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ +data ((alpha1(ig,ik,5),ig=1,3),ik=1,7)/ & + .2766540E+00, .7073100E+00, .0000000E+00, & + .5560525E+00, .7701662E+00, .0000000E+00, & + .6394594E+00, .2286618E+00, .0000000E+00, & + .9728559E+00, .4597031E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ +data ((alpha1(ig,ik,6),ig=1,3),ik=1,7)/ & + .9998614E+00, .7833650E+00, .0000000E+00, & + .4105807E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ +data ((alpha1(ig,ik,7),ig=1,3),ik=1,7)/ & + .9986984E+00, .2954650E+00, .2158372E+00, & + .3831264E+00, .0000000E+00, .3950504E-06, & + .0000000E+00, .0000000E+00, .4674741E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ +data ((alpha1(ig,ik,8),ig=1,3),ik=1,7)/ & + .9913880E+00, .5113000E-02, .0000000E+00, & + .8563318E+00, .0000000E+00, .0000000E+00, & + .9979001E+00, .0000000E+00, .0000000E+00, & + .7047079E+00, .0000000E+00, .0000000E+00, & + .8926126E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ + +data ((beta1(ig,ik,1),ig=1,3),ik=1,7)/ & + -.1712392E+01, -.3158334E+00, .0000000E+00, & + -.3852223E+00, -.5670782E+00, .0000000E+00, & + -.1378367E+01, -.7933998E+00, .0000000E+00, & + -.7341006E+00, .0000000E+00, .0000000E+00, & + -.1588977E+01, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ +data ((beta1(ig,ik,2),ig=1,3),ik=1,7)/ & + -.3969185E+00, .4752930E+00, .0000000E+00, & + -.3413553E+00, .0000000E+00, .0000000E+00, & + -.1065748E+01, .0000000E+00, .0000000E+00, & + -.5795957E+00, .0000000E+00, .0000000E+00, & + -.3413572E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ +data ((beta1(ig,ik,3),ig=1,3),ik=1,7)/ & + .4186570E+00, -.1006700E+01, .4999120E+00, & + .0000000E+00, .0000000E+00, .4854630E+00, & + .0000000E+00, .0000000E+00, .4645810E+00, & + .0000000E+00, .0000000E+00, -.2546340E+00, & + .0000000E+00, .0000000E+00, .1000000E+01, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ +data ((beta1(ig,ik,4),ig=1,3),ik=1,7)/ & + -.1718928E+01, .0000000E+00, .0000000E+00, & + -.1005695E+01, .0000000E+00, .0000000E+00, & + .9999878E+00, .0000000E+00, .0000000E+00, & + -.7752110E+00, .0000000E+00, .0000000E+00, & + -.3295007E+01, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ +data ((beta1(ig,ik,5),ig=1,3),ik=1,7)/ & + -.2055048E+01, -.2231248E+01, .0000000E+00, & + -.4119874E+01, -.4965271E+01, .0000000E+00, & + -.2822644E+01, -.1611550E+01, .0000000E+00, & + -.3811633E+01, -.1467305E+01, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ +data ((beta1(ig,ik,6),ig=1,3),ik=1,7)/ & + -.6162320E+01, -.4473330E+01, .0000000E+00, & + -.2685515E+01, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ +data ((beta1(ig,ik,7),ig=1,3),ik=1,7)/ & + -.9999836E+01, -.5629570E+01, .6873658E-01, & + -.2214210E+01, .0000000E+00, -.1255250E+01, & + .0000000E+00, .0000000E+00, -.1283144E+01, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ +data ((beta1(ig,ik,8),ig=1,3),ik=1,7)/ & + -.4327339E-01, .4952220E+00, .0000000E+00, & + -.2665102E+01, .0000000E+00, .0000000E+00, & + -.6325287E+01, .0000000E+00, .0000000E+00, & + -.1731381E+01, .0000000E+00, .0000000E+00, & + -.4994114E+01, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00, & + .0000000E+00, .0000000E+00, .0000000E+00/ + +!Default solar constant +solc = 1370. + +!Solar Constant for RCE simulations +if(irce == 1) solc = rce_solc + +!Array/table dimensions +nb = 8 +ng = 3 +ns = 3 +ngb = 2 + +!Loop over hydrometeor types (with habits) (Saleeby: modify for drizzle) +do ip = 1,13 + icat = kkat(ip) + ignu = max(1,min(2,nint(gnu(icat)))) + do ib = 1,8 + do ic1 = 1,5 + ocoef(ic1,ib,ip) = ocoef1(ic1,ib,ip,ignu) + enddo + do ic2 = 1,2 + bcoef(ic2,ib,ip) = bcoef1(ic2,ib,ip,ignu) + enddo + enddo +enddo + +!Loop over hydrometeor types (without habits) (Saleeby: modify for drizzle) +do ip = 1,7 + ignu = max(1,min(2,nint(gnu(ip)))) + do ib = 1,8 + do ic3 = 1,5 + gcoef(ic3,ib,ip) = gcoef1(ic3,ib,ip,ignu) + enddo + enddo +enddo + +do ib = 1,8 + do ig = 1,3 + ulim(ig,ib) = ulim1(ig,ib) + prf(ig,ib) = prf1(ig,ib) + trf(ig,ib) = trf1(ig,ib) + npsb(ig,ib) = npsb1(ig,ib) + enddo +enddo + +do i = 1,nb + wlenlo(i) = wlenlo1(i) + wlenhi(i) = wlenhi1(i) + ralcs(i) = ralcs1(i) + nuum(i) = nuum1(i) + a0(i) = a01(i) + a1(i) = a11(i) + a2(i) = a21(i) + a3(i) = a31(i) +enddo + +do is = 1,ns + solar(is) = solar1(is) +enddo + +do ib = 1,8 + do ig = 1,3 + do ik = 1,7 + xp(ig,ik,ib) = xp1(ig,ik,ib) + wght(ig,ik,ib) = wght1(ig,ik,ib) + alpha(ig,ik,ib) = alpha1(ig,ik,ib) + beta(ig,ik,ib) = beta1(ig,ik,ib) + enddo + enddo +enddo + +! do the solar, rayleigh scatter, and continuum abs. +do ib=1,nb + + if (ib.le.ns) then + solar(ib) = sunavg(1.e4/wlenhi(ib),1.e4/wlenlo(ib),solc) + CALL rayleigh (wlenlo(ib),wlenhi(ib),ralcs(ib)) + else + CALL csband (wlenlo(ib),wlenhi(ib),ralcs(ib)) + endif + +enddo +! +! make the tables for the exponential func +! +do i=1,150 + temp=float(i)+179. + exptabc(i) = exp(top/temp-tm) +enddo + +return +END SUBROUTINE radinit + +!############################################################################## +Subroutine rayleigh (wlnlo,wlnhi,rayavg) + +implicit none + +real :: wlnlo,wlnhi,rayavg +real :: an0,ssum,h1,sum,wl1,f1,fac,f2,h2,wl2,al +real, external :: sunirr +integer :: num,i + +! this stuff comes from Houghton 1985 (book), see also Slingo +! and Schrecker 1982 (QJ) +! calculate constant part (flux weighted) of rayleigh scattering +! rayleigh scattering = rayavg*delta z*press/temp +! written JV May 1993 + +real, parameter :: an01=1.000064328,an02=0.0294981,an03=.2554e-3 +real, parameter :: an0d1=146.,an0d2=41. + +an0(al) = an01+an02/(an0d1-al**2)+an03/(an0d2-al**2) + +num = int(wlnhi-wlnlo)+1 +num = min(max(25,num),5000) +sum = 0. +ssum= 0. +wl1 = wlnlo +f1 = (an0(wl1)**2-1.)**2/wl1**4*sunirr(1.e4/wl1) +h1 = sunirr(1.e4/wl1) +do i=2,num + fac = (real(i)-1)/(real(num)-1.) + wl2 = wlnlo+(wlnhi-wlnlo)*fac + f2 = (an0(wl2)**2-1.)**2/wl2**4*sunirr(1.e4/wl2) + h2 = sunirr(1.e4/wl2) + sum = sum + 0.5*(f1+f2)*(wl2-wl1) + ssum= ssum + 0.5*(h1+h2)*(wl2-wl1) + wl1 = wl2 + f1 = f2 + h1 = h2 +enddo +rayavg = 0.945319e-2*sum/ssum + +return +END SUBROUTINE rayleigh + +!############################################################################## +Subroutine csband (wlnlo,wlnhi,csavg) + +implicit none + +real :: wlnlo,wlnhi,csavg +real :: cs,wnhi,wnlo,sum,wn1,f1,fac,f2,wn,wn2 +real, external :: plkavg +integer :: num,i +! +! calculate the blackbody flux (t=296.) weighted self- +! broadening coefficient for water vapor. See Kniezys +! et al 1980 (LOWTRAN 5). Units are converted to have +! the water vapor content input a Pascal. + +cs(wn) = 4.18+5578.*exp(-7.87e-3*wn) + +wnhi = 1.e4/wlnlo +wnlo = 1.e4/wlnhi +num = int(wnhi-wnlo)+1 +num = min(max(25,num),5000) +sum = 0. +wn1 = wnlo +f1 = cs(wn1) +do i = 2,num + fac = (real(i)-1)/(real(num)-1.) + wn2 = wnlo+(wnhi-wnlo)*fac + f2 = cs(wn2) + sum = sum + 0.5*(f1+f2) * plkavg(wn1,wn2,296.) + wn1 = wn2 + f1 = f2 +enddo +csavg = sum/(plkavg(wnlo,wnhi,296.) *1013250.*9.81) + +return +END SUBROUTINE csband + +!############################################################################## +real Function plkavg (WNUMLO,WNUMHI,T) + +implicit none + +! COMPUTES PLANCK FUNC INTEGRATED BETWEEN TWO WAVENUMBERS +! +! I N P U T +! +! WNUMLO : LOWER WAVENUMBER ( INV CM ) OF SPECTRAL INTERVAL +! WNUMHI : UPPER WAVENUMBER +! T : TEMPERATURE (K) +! +! O U T P U T +! +! PLKAVG : INTEGRATED PLANCK FUNC ( WATTS/SQ M ) +! +! REFERENCES-- (1) HOUGHTON,PHYSICS OF ATMOSPHERES,APPENDIX 7 +! (2) SPECIFICATIONS OF THE PHYSICAL WORLD: NEW VALUE +! OF THE FUNDAMENTAL CONSTANTS, DIMENSIONS/N.B.S. +! JAN. 1974 +! +! METHOD-- HOUGHTON'S EXPONENTIAL SERIES IS USED FOR V.GT.VCUT +! ( 'V' IS HOUGHTON'S NOTATION ) AND HIS POWER SERIES +! IN V FOR V.LE.VCUT. MORE TERMS ARE TAKEN IN THE +! EXPONENTIAL SERIES, THE LARGER V IS. ( NOTE THAT +! HOUGHTON'S ASSESSMENT THAT THE POWER SERIES IS USEFUL +! FOR V.LT.2*PI IS INCORRECT--VCUT MUST BE LESS THAN +! 2 JUST IN ORDER TO GET 4-5 SIGNIFICANT DIGITS. ) +! +! ACCURACY-- 6 SIGNIFICANT DIGITS +! +! *** ARGUMENTS +REAL T, WNUMLO, WNUMHI +! *** LOCAL VARIABLES +! C2 : SECOND RADIATION CONSTANT +! CONA : 15 / PI**4 / 13305600 +! CONB : 440 / 9 +! D : INTEGRAL OF NORMALIZED PLANCK FUNC +! FROM 0 TO CURRENT WAVENUMBER +! EX : EXP( - V ) +! F15PI4 : 15 / PI**4 +! MMAX : NO. OF TERMS TO TAKE IN EXPONENTIAL SERIES +! MV : MULTIPLES OF *V* +! SIGDPI : STEFAN-BOLTZMANN CONSTANT DIVIDED BY PI +! V : H*C*NU / (K*T), WHERE H=PLANCKS CONSTANT, +! C=SPEED OF LIGHT, K=BOLTZMANN CONSTANT, +! NU=WAVENUMBER +! VCUT : POWER-SERIES CUTOFF POINT +! VCP : EXPONENTIAL SERIES CUTOFF POINTS +REAL C2, CONA, CONB, D( 2 ), EX, F15PI4, MV, SIGDPI, & + V, VCUT, VCP( 7 ), VSQ +DATA C2 / 1.438786 /, CONA / 0.11573303E-7 /, & + CONB / 48.888889 /, F15PI4 / 0.15398973 /, & + SIGDPI / 1.804919E-8 /, VCUT / 1.5 /, & + VCP / 10.25, 5.7, 3.9, 2.9, 2.3, 1.9, 0.0 / + +integer :: i,mmax,m + +IF( T.LE.0.0 .OR. WNUMHI.LE.WNUMLO .OR. WNUMLO.LE.0. ) stop 'ahah' +V = 0.0 !Variable initialized +DO 50 I = 1, 2 + IF( I.EQ.1 ) V = ( C2 / T ) * WNUMLO + IF( I.EQ.2 ) V = ( C2 / T ) * WNUMHI + IF( V.LT.VCUT ) THEN + +! *** HOUGHTON'S POWER SERIES (FACTORED USING HORNER'S RULE) + VSQ = V**2 + D( I ) = 1.0 - CONA *VSQ * V * ( 4435200. + V * ( -1663200. & + + V * ( 221760. + VSQ * ( -2640. + VSQ * ( CONB & + - VSQ ) ) ) ) ) + ELSE + +! *** HOUGHTON'S EXPONENTIAL SERIES + MMAX = 0 +! *** SET UPPER LIMIT OF SERIES DEPENDING ON VALUE OF V +20 MMAX = MMAX + 1 + IF ( V.LT.VCP( MMAX ) ) GO TO 20 + + EX = EXP( -V ) + D( I ) = EX * ( 6. + V * ( 6. + V * ( 3. + V ) ) ) + + DO 30 M = 2, MMAX + MV = M * V + D( I ) = D( I ) + EX**M * ( 6. + MV * ( 6. + MV * & + ( 3. + MV ) ) ) / M**4 +30 CONTINUE + + D( I ) = F15PI4 * D( I ) + END IF + +50 CONTINUE + +plkavg = SIGDPI * T**4 * ( D( 1 ) - D( 2 ) ) + +return +END FUNCTION plkavg + +!############################################################################## +real Function sunavg (wnumlo,wnumhi,solcon) + +implicit none + +real :: wnumlo, wnumhi, solcon +real :: scln=1372.844 +integer :: num,i +real :: v1,s1,v2,s2,fac2,sum +real, external :: sunirr + +! Spectral solar flux (after LOWTRAN7) +! +! On input: +! wnumlo --- lower wavelength of a spectral interval (wavenumbers) +! wnumhi --- upper wavelength of a spectral interval (wavenumbers) +! solcon - value of solar "constant" in Watts/ sq m +! +! On output: +! Total extraterrestrial solar flux (W/sq m) between +! wavelengths wnumlo, wnumhi +! Trapezoidal integration is used with the resolution 1 cm^-1 +! or such that there is at least 25 points between wnumhi and +! wnumlo but no more than 5000 points. +! +num = int(wnumhi-wnumlo)+1 +num = min(max(25, num),5000) +sum = 0. +v1 = wnumlo +s1 = sunirr(v1) +do i=2, num + fac2 = (real(i)-1.)/(real(num)-1.) + v2 = wnumlo+(wnumhi-wnumlo)*fac2 + s2 = sunirr(v2) + sum = sum + (s1+s2)/2.*(10000./v1-10000./v2) + v1 = v2 + s1 = s2 +enddo +sunavg = (solcon/scln)*sum + +return +END FUNCTION sunavg + +!############################################################################## +real Function sunirr (v) + +implicit none + +real, intent(in) :: v + +! EVALUATES THE EXTRA-TERRESTRIAL SOLAR IRRADIANCE +! +! INPUT: V = FREQUENCY (CM-1) +! VALID RANGE 0 TO 57490 (CM-1) +! (EQUIVALENT TO WAVELENGTHS > 0.174 MICROMETERS) +! +! OUTPUT: SUNIRR = SOLAR IRRADIANCE (WATTS M-2 MICROMETER-1) +! +! WRITES A WARNING MESSAGE TO TAPE6 & RETURNS SUNIRR = 0 +! IF THE INPUT FREQUENCY IS OUT OF RANGE + +real, parameter :: a=3.50187e-13, b=3.93281 +real :: wm,w0,w1,w2,p +integer :: i +real, save :: solara(1440), solarb(2910) + +! SOLAR SPECTRUM FROM 0 TO 800 CM-1, IN STEPS OF 20 CM- +data (solara(i), i=1,41) / & + 0.0000E+00, 4.5756E-08, 7.0100E-07, 3.4580E-06, 1.0728E-05, & + 2.5700E-05, 5.2496E-05, 9.6003E-05, 1.6193E-04, 2.5766E-04, & + 3.9100E-04, 5.6923E-04, 8.0203E-04, 1.1006E-03, 1.4768E-03, & + 1.9460E-03, 2.5213E-03, 3.2155E-03, 4.0438E-03, 5.0229E-03, & + 6.1700E-03, 7.5145E-03, 9.0684E-03, 1.0853E-02, 1.2889E-02, & + 1.5213E-02, 1.7762E-02, 2.0636E-02, 2.3888E-02, 2.7524E-02, & + 3.1539E-02, 3.5963E-02, 4.0852E-02, 4.6236E-02, 5.2126E-02, & + 5.8537E-02, 6.5490E-02, 7.3017E-02, 8.1169E-02, 9.0001E-02, & + 9.9540E-02 / + +! SOLAR SPECTRUM FROM 820 TO 3680 CM-1, IN STEPS OF 20 CM- +data (solara(i), i=42,185) / & + .10980, .12080, .13260, .14520, .15860, .17310, .18850, .20490, & + .22240, .24110, .26090, .28200, .30430, .32790, .35270, .37890, & + .40650, .43550, .46600, .49800, .53160, .56690, .60390, .64260, & + .68320, .72560, .76990, .81620, .86440, .91470, .96710, 1.0220, & + 1.0780, 1.1370, 1.1990, 1.2630, 1.3290, 1.3990, 1.4710, 1.5460, & + 1.6250, 1.7060, 1.7910, 1.8800, 1.9710, 2.0670, 2.1660, 2.2680, & + 2.3740, 2.4840, 2.5970, 2.7140, 2.8350, 2.9600, 3.0890, 3.2210, & + 3.3570, 3.4980, 3.6420, 3.7900, 3.9440, 4.1040, 4.2730, 4.4450, & + 4.6150, 4.7910, 4.9830, 5.1950, 5.4210, 5.6560, 5.8930, 6.1270, & + 6.3560, 6.5820, 6.8080, 7.0360, 7.2700, 7.5170, 7.7890, 8.0910, & + 8.4070, 8.7120, 8.9900, 9.2490, 9.5000, 9.7550, 10.010, 10.250, & + 10.480, 10.700, 10.950, 11.230, 11.550, 11.900, 12.250, 12.600, & + 12.930, 13.250, 13.530, 13.780, 14.040, 14.320, 14.660, 15.070, & + 15.530, 16.011, 16.433, 16.771, 17.077, 17.473, 17.964, 18.428, & + 18.726, 18.906, 19.141, 19.485, 19.837, 20.160, 20.509, 21.024, & + 21.766, 22.568, 23.190, 23.577, 23.904, 24.335, 24.826, 25.236, & + 25.650, 26.312, 27.208, 27.980, 28.418, 28.818, 29.565, 30.533, & + 31.247, 31.667, 32.221, 33.089, 33.975, 34.597, 35.004, 35.395 / + +! SOLAR SPECTRUM FROM 3700 TO 6560 CM-1, IN STEPS OF 20 CM- +data (solara(i), i=186,329) / & + 36.026, 36.985, 37.890, 38.401, 38.894, 39.857, 40.926, 41.570, & + 42.135, 43.083, 44.352, 45.520, 45.982, 46.281, 48.335, 51.987, & + 54.367, 54.076, 52.174, 50.708, 52.153, 55.707, 56.549, 54.406, & + 53.267, 56.084, 61.974, 64.406, 60.648, 55.146, 53.067, 57.476, & + 64.645, 68.348, 69.055, 69.869, 70.943, 71.662, 72.769, 74.326, & + 75.257, 74.883, 73.610, 73.210, 74.886, 78.042, 80.204, 80.876, & + 82.668, 84.978, 86.244, 88.361, 91.998, 95.383, 98.121, 100.29, & + 100.64, 99.997, 101.82, 105.06, 107.50, 109.99, 112.45, 113.90, & + 113.79, 119.23, 121.96, 124.58, 127.14, 125.19, 124.37, 125.00, & + 127.88, 130.67, 131.98, 133.74, 136.69, 136.18, 135.02, 137.44, & + 138.44, 137.25, 136.35, 142.60, 144.54, 148.37, 151.90, 151.55, & + 155.35, 157.59, 159.70, 162.28, 168.44, 171.43, 169.82, 170.33, & + 172.28, 176.68, 181.92, 186.06, 187.85, 186.00, 189.82, 189.35, & + 192.86, 202.00, 209.63, 205.76, 212.88, 215.63, 216.51, 219.20, & + 220.29, 221.12, 227.12, 229.97, 233.23, 233.95, 234.52, 234.45, & + 235.77, 239.80, 243.11, 241.19, 242.34, 243.69, 242.84, 246.19, & + 246.11, 246.76, 251.75, 255.38, 258.74, 260.26, 263.40, 268.68, & + 271.81, 272.95, 273.93, 274.74, 274.43, 279.69, 287.76, 287.72 / + +! SOLAR SPECTRUM FROM 6580 TO 9440 CM-1, IN STEPS OF 20 CM- +data (solara(i), i=330,473) / & + 287.96, 290.01, 291.92, 295.28, 296.78, 300.46, 302.19, 299.14, & + 301.43, 305.68, 309.29, 310.63, 313.24, 314.61, 309.58, 318.81, & + 320.54, 321.62, 328.58, 331.66, 337.20, 345.62, 345.54, 342.96, & + 344.38, 346.23, 349.17, 351.79, 354.71, 356.97, 358.29, 362.29, & + 364.15, 364.97, 367.81, 368.98, 369.07, 372.17, 377.79, 381.25, & + 384.22, 388.66, 393.58, 396.98, 398.72, 400.61, 404.06, 408.23, & + 412.47, 415.58, 416.17, 416.53, 419.55, 425.88, 433.30, 437.73, & + 438.13, 439.79, 441.51, 438.71, 434.25, 437.54, 448.95, 448.86, & + 439.46, 437.10, 439.34, 444.33, 455.00, 467.05, 473.04, 469.64, & + 467.53, 473.78, 477.50, 477.50, 480.96, 483.94, 482.19, 479.08, & + 482.09, 493.43, 498.40, 492.05, 489.53, 493.34, 495.51, 496.52, & + 499.57, 504.65, 509.68, 512.00, 512.05, 512.31, 515.00, 520.70, & + 527.30, 531.88, 532.16, 530.48, 532.33, 539.26, 548.57, 553.00, & + 548.96, 546.05, 551.00, 556.41, 557.21, 557.85, 560.95, 564.02, & + 565.57, 566.38, 567.88, 571.48, 576.68, 581.54, 586.51, 593.62, & + 600.70, 602.79, 601.39, 603.00, 606.88, 605.95, 600.97, 600.79, & + 607.21, 612.87, 614.13, 614.39, 616.61, 620.53, 625.19, 629.78, & + 633.79, 637.31, 640.47, 642.53, 642.62, 641.93, 643.11, 646.68 / + +! SOLAR SPECTRUM FROM 9460 TO 12320 CM-1, IN STEPS OF 20 CM- +data (solara(i), i=474,617) / & + 650.57, 654.30, 660.95, 672.10, 682.31, 684.89, 682.20, 682.53, & + 687.79, 691.42, 689.62, 688.14, 693.71, 703.25, 708.07, 706.22, & + 704.64, 708.97, 717.35, 725.43, 731.08, 734.17, 735.41, 736.60, & + 739.34, 742.90, 745.04, 744.29, 742.44, 749.53, 755.70, 758.82, & + 766.31, 761.53, 762.09, 769.68, 764.18, 763.75, 768.88, 762.69, & + 753.93, 762.38, 765.79, 772.19, 760.67, 762.10, 766.76, 766.98, & + 769.35, 773.50, 766.84, 763.60, 773.82, 777.18, 779.61, 792.48, & + 797.54, 787.81, 793.75, 805.96, 804.77, 806.62, 821.72, 830.28, & + 827.54, 831.06, 830.20, 826.22, 823.28, 822.18, 833.92, 854.58, & + 859.80, 862.56, 871.16, 875.16, 867.67, 863.87, 883.30, 893.40, & + 897.74, 905.24, 905.38, 911.07, 930.21, 939.24, 934.74, 935.15, & + 942.38, 948.13, 947.00, 951.88, 960.12, 951.88, 954.22, 959.07, & + 963.36, 980.16, 983.66, 978.76, 979.38, 985.24, 977.08, 919.94, & + 899.68, 962.91, 997.17, 999.93, 995.65, 999.93, 1014.9, 951.57, & + 893.52, 955.14, 1003.1, 990.13, 978.79, 1011.2, 1034.7, 1031.9, & + 1029.9, 1039.7, 1045.5, 1044.1, 1049.6, 1056.1, 1049.8, 1038.0, & + 1051.9, 1072.2, 1075.5, 1077.0, 1079.3, 1078.0, 1075.7, 1079.7, & + 1081.0, 1069.8, 1078.4, 1104.3, 1111.4, 1111.7, 1117.6, 1119.6 / + +! SOLAR SPECTRUM FROM 12340 TO 15200 CM-1, IN STEPS OF 20 CM- +data (solara(i), i=618,761) / & + 1109.3, 1100.6, 1112.9, 1122.7, 1119.5, 1123.9, 1136.1, 1143.7, & + 1140.5, 1141.2, 1151.5, 1148.7, 1138.3, 1141.0, 1150.6, 1160.1, & + 1170.6, 1177.7, 1179.8, 1181.7, 1182.4, 1179.8, 1181.8, 1188.3, & + 1190.0, 1191.4, 1197.0, 1196.0, 1192.2, 1200.6, 1210.4, 1209.1, & + 1207.5, 1205.3, 1193.3, 1192.9, 1220.0, 1243.3, 1245.4, 1241.5, & + 1240.2, 1241.1, 1244.0, 1248.5, 1253.2, 1257.1, 1259.9, 1261.9, & + 1263.6, 1265.7, 1269.6, 1277.0, 1284.2, 1284.4, 1282.7, 1287.2, & + 1286.8, 1272.3, 1262.2, 1270.7, 1288.8, 1304.8, 1311.8, 1312.2, & + 1314.4, 1320.2, 1326.2, 1328.4, 1325.3, 1322.5, 1325.4, 1334.6, & + 1346.4, 1354.0, 1353.7, 1347.3, 1338.3, 1331.0, 1329.7, 1338.0, & + 1351.9, 1363.0, 1368.8, 1372.0, 1375.9, 1382.1, 1387.8, 1388.8, & + 1388.2, 1392.2, 1401.7, 1412.9, 1418.2, 1410.7, 1395.9, 1385.7, & + 1388.1, 1405.0, 1424.0, 1428.1, 1422.2, 1423.6, 1434.5, 1445.2, & + 1450.7, 1451.8, 1451.5, 1453.9, 1459.9, 1466.9, 1471.3, 1469.4, & + 1462.5, 1460.4, 1468.9, 1481.8, 1490.8, 1495.3, 1497.9, 1500.7, & + 1505.2, 1510.0, 1512.3, 1512.7, 1515.6, 1521.6, 1524.2, 1520.7, & + 1520.3, 1531.6, 1545.7, 1548.2, 1541.7, 1542.2, 1553.6, 1563.6, & + 1563.6, 1559.9, 1561.3, 1569.9, 1581.6, 1577.6, 1529.7, 1447.0 / + +! SOLAR SPECTRUM FROM 15220 TO 18080 CM-1, IN STEPS OF 20 CM- +data (solara(i), i=762,905) / & + 1396.9, 1428.7, 1506.4, 1567.1, 1594.0, 1606.1, 1613.5, 1609.0, & + 1588.6, 1567.8, 1567.3, 1587.2, 1610.2, 1624.4, 1630.2, 1630.9, & + 1628.1, 1622.3, 1616.9, 1618.9, 1631.6, 1648.1, 1658.2, 1659.7, & + 1658.1, 1658.0, 1659.4, 1660.4, 1659.2, 1653.7, 1645.3, 1642.1, & + 1652.7, 1674.2, 1694.1, 1700.6, 1703.4, 1697.6, 1654.5, 1644.4, & + 1661.6, 1676.3, 1707.7, 1703.1, 1710.8, 1732.3, 1716.5, 1719.6, & + 1729.6, 1683.1, 1628.5, 1683.5, 1727.0, 1707.8, 1689.4, 1698.4, & + 1733.1, 1737.8, 1714.1, 1734.6, 1750.1, 1750.1, 1760.3, 1764.3, & + 1765.3, 1769.4, 1779.9, 1793.0, 1765.1, 1729.4, 1745.9, 1753.4, & + 1758.1, 1775.0, 1768.4, 1767.9, 1789.5, 1806.6, 1799.3, 1782.6, & + 1779.3, 1792.1, 1809.7, 1808.0, 1794.4, 1818.6, 1774.2, 1648.5, & + 1674.3, 1789.3, 1847.2, 1848.3, 1812.9, 1796.4, 1840.3, 1868.3, & + 1864.6, 1873.2, 1872.2, 1856.0, 1845.0, 1842.4, 1823.9, 1795.1, & + 1819.6, 1861.5, 1857.7, 1838.6, 1840.5, 1863.5, 1876.8, 1884.4, & + 1894.9, 1875.2, 1821.2, 1779.4, 1810.2, 1855.3, 1831.8, 1837.3, & + 1882.3, 1866.4, 1819.6, 1804.8, 1831.4, 1861.6, 1867.1, 1862.9, & + 1851.9, 1834.7, 1835.2, 1845.1, 1831.9, 1803.6, 1792.5, 1821.8, & + 1845.8, 1832.3, 1847.6, 1894.2, 1909.2, 1901.0, 1891.2, 1869.9 / + +! SOLAR SPECTRUM FROM 18100 TO 20960 CM-1, IN STEPS OF 20 CM- +data (solara(i), i=906,1049) / & + 1854.4, 1865.8, 1873.7, 1868.8, 1881.7, 1897.1, 1884.2, 1856.2, & + 1840.6, 1855.1, 1885.3, 1903.6, 1900.1, 1887.4, 1887.7, 1879.0, & + 1844.5, 1844.1, 1877.1, 1847.3, 1785.1, 1792.6, 1848.7, 1894.4, & + 1908.8, 1892.8, 1867.4, 1885.6, 1959.9, 1971.9, 1895.8, 1883.5, & + 1917.6, 1853.8, 1793.0, 1875.6, 1974.0, 1975.7, 1943.9, 1926.4, & + 1914.4, 1902.7, 1882.5, 1813.3, 1710.8, 1717.9, 1859.7, 1965.1, & + 1970.1, 1941.4, 1902.5, 1852.0, 1836.3, 1879.3, 1901.6, 1862.9, & + 1839.1, 1840.9, 1780.0, 1684.9, 1677.3, 1718.7, 1697.3, 1684.3, & + 1784.5, 1898.0, 1910.3, 1877.2, 1866.6, 1862.6, 1860.3, 1899.7, & + 1971.0, 1999.9, 1970.9, 1936.5, 1922.8, 1922.8, 1924.0, 1917.2, & + 1912.0, 1926.2, 1959.7, 1995.4, 1995.9, 1938.8, 1883.5, 1894.7, & + 1933.3, 1935.1, 1899.3, 1852.7, 1820.2, 1821.5, 1865.2, 1935.5, & + 1966.1, 1919.6, 1881.2, 1931.5, 2015.6, 2050.0, 2021.4, 1960.8, & + 1938.2, 1997.0, 2051.0, 2003.4, 1912.1, 1880.2, 1895.2, 1898.0, & + 1898.8, 1938.3, 1994.2, 2010.0, 1982.4, 1948.8, 1927.3, 1911.6, & + 1877.7, 1791.6, 1679.8, 1645.0, 1727.3, 1845.2, 1926.2, 1973.4, & + 2005.2, 2021.6, 2021.8, 2025.7, 2054.3, 2086.5, 2082.6, 2052.9, & + 2047.1, 2070.2, 2072.4, 2038.1, 2020.2, 2049.9, 2074.0, 2038.1 / + +! SOLAR SPECTRUM FROM 20980 TO 23840 CM-1, IN STEPS OF 20 CM- +data (solara(i), i=1050,1193) / & + 1978.6, 1963.5, 1996.8, 2037.5, 2057.5, 2048.2, 2018.4, 1999.2, & + 2011.4, 2039.5, 2056.0, 2040.2, 1981.8, 1911.4, 1891.8, 1938.3, & + 1991.7, 2005.5, 2000.8, 2011.3, 2022.7, 1997.5, 1947.7, 1936.3, & + 1986.6, 2037.9, 2032.8, 1995.7, 1984.0, 2012.0, 2055.5, 2091.6, & + 2106.5, 2094.9, 2070.4, 2052.8, 2046.7, 2043.8, 2035.5, 2016.6, & + 1988.4, 1973.3, 1999.0, 2057.4, 2103.8, 2109.4, 2089.4, 2068.5, & + 2051.8, 2031.2, 2005.9, 1986.7, 1981.5, 1979.4, 1964.1, 1943.6, & + 1951.8, 2007.3, 2083.2, 2139.1, 2158.0, 2143.3, 2103.2, 2050.9, & + 2001.9, 1974.5, 1988.0, 2037.8, 2075.1, 2050.6, 1971.5, 1884.5, & + 1828.5, 1820.9, 1866.4, 1935.3, 1974.2, 1958.7, 1925.1, 1920.2, & + 1949.7, 1984.6, 1996.4, 1966.4, 1884.8, 1781.9, 1726.8, 1759.4, & + 1817.4, 1800.4, 1692.6, 1593.2, 1598.6, 1700.3, 1823.8, 1909.7, & + 1937.7, 1902.5, 1822.4, 1737.8, 1683.2, 1666.8, 1682.7, 1715.3, & + 1734.1, 1712.4, 1668.2, 1655.0, 1698.1, 1727.2, 1636.9, 1415.7, & + 1204.2, 1155.8, 1278.4, 1450.0, 1560.5, 1595.1, 1587.8, 1570.6, & + 1565.8, 1590.3, 1640.5, 1688.4, 1708.1, 1703.6, 1700.7, 1718.5, & + 1749.0, 1772.2, 1772.5, 1745.2, 1690.2, 1624.9, 1589.0, 1618.5, & + 1701.3, 1783.2, 1816.4, 1800.7, 1765.0, 1734.1, 1714.6, 1705.0 / + +! SOLAR SPECTRUM FROM 23860 TO 26720 CM-1, IN STEPS OF 20 CM- +data (solara(i), i=1194,1337) / & + 1701.6, 1696.6, 1682.0, 1661.4, 1657.2, 1693.0, 1763.2, 1826.5, & + 1841.6, 1806.1, 1755.6, 1725.8, 1724.2, 1736.8, 1749.0, 1756.1, & + 1759.5, 1762.1, 1770.2, 1791.7, 1826.8, 1848.9, 1819.6, 1720.7, & + 1595.5, 1513.9, 1522.5, 1602.0, 1706.2, 1793.4, 1837.9, 1820.3, & + 1738.3, 1631.1, 1553.1, 1539.2, 1574.3, 1623.9, 1660.6, 1676.8, & + 1673.1, 1652.9, 1626.4, 1606.7, 1604.2, 1620.9, 1654.5, 1701.2, & + 1752.2, 1796.2, 1822.8, 1827.4, 1808.5, 1767.0, 1713.9, 1667.3, & + 1643.7, 1643.5, 1652.5, 1655.3, 1638.7, 1592.2, 1506.4, 1377.3, & + 1209.5, 1010.5, 807.59, 666.84, 664.53, 835.23, 1099.6, 1330.7, & + 1423.2, 1363.7, 1194.1, 961.77, 725.04, 551.29, 504.01, 596.30, & + 775.15, 975.62, 1150.2, 1287.2, 1386.1, 1447.5, 1473.7, 1468.5, & + 1435.2, 1376.9, 1296.0, 1195.5, 1085.3, 985.40, 917.25, 894.59, & + 910.86, 951.53, 1001.7, 1046.4, 1070.7, 1061.2, 1021.2, 977.16, & + 959.15, 982.06, 1020.5, 1032.6, 983.44, 879.83, 762.66, 675.28, & + 643.33, 662.65, 721.49, 808.35, 913.24, 1027.0, 1139.9, 1236.2, & + 1293.2, 1287.1, 1210.4, 1102.1, 1021.6, 1022.8, 1109.3, 1232.6, & + 1337.0, 1383.1, 1372.8, 1324.7, 1257.7, 1188.8, 1133.5, 1106.5, & + 1113.7, 1136.8, 1147.9, 1121.4, 1054.1, 968.10, 889.19, 837.87 / + +! SOLAR SPECTRUM FROM 26740 TO 28780 CM-1, IN STEPS OF 20 CM- +data (solara(i), i=1338,1440) / & + 817.64, 823.72, 851.04, 896.53, 959.85, 1041.2, 1137.6, 1231.2, & + 1294.4, 1299.9, 1241.2, 1155.0, 1092.0, 1097.1, 1170.2, 1263.5, & + 1322.4, 1307.4, 1233.6, 1146.1, 1090.8, 1092.5, 1134.6, 1188.9, & + 1228.9, 1245.5, 1248.5, 1250.3, 1260.5, 1274.6, 1279.5, 1261.8, & + 1214.3, 1145.4, 1069.6, 1001.4, 952.52, 930.48, 941.68, 990.34, & + 1064.4, 1135.2, 1171.5, 1149.1, 1076.3, 984.35, 906.25, 868.17, & + 873.75, 915.33, 984.41, 1067.2, 1137.1, 1163.1, 1115.5, 990.55, & + 830.93, 692.29, 627.44, 654.10, 739.24, 838.88, 911.69, 941.90, & + 944.42, 939.58, 946.10, 970.23, 1005.2, 1042.4, 1073.8, 1097.0, & + 1114.3, 1128.8, 1142.9, 1153.4, 1152.4, 1131.5, 1084.2, 1016.7, & + 945.95, 890.37, 866.15, 876.54, 913.13, 966.10, 1025.4, 1080.2, & + 1119.0, 1102.7, 1243.5, 1209.9, 1079.2, 852.20, 956.80, 842.31, & + 897.44, 1081.8, 914.23, 993.09, 1049.8, 844.95, 839.16/ + +! SOLAR SPECTRUM FROM 28400 TO 29830 CM-1, IN STEPS OF 10 CM- +data (solarb(i), i=1,144) / & + 876.54, 892.17, 913.13, 938.18, 966.10, 995.62, 1025.4, 1054.1, & + 1080.2, 1102.1, 1119.0, 1132.2, 1102.7, 1159.3, 1243.5, 1238.3, & + 1209.9, 1196.2, 1079.2, 895.60, 852.20, 935.59, 956.80, 897.09, & + 842.31, 821.15, 897.44, 1042.7, 1081.8, 988.79, 914.23, 929.38, & + 993.09, 1041.9, 1049.8, 984.33, 844.95, 770.76, 839.16, 939.65, & + 1026.1, 1121.1, 1162.6, 1142.6, 1077.9, 1027.3, 1078.2, 1094.3, & + 969.83, 853.72, 849.91, 909.12, 995.68, 1095.0, 1146.9, 1086.3, & + 1010.4, 1065.4, 1128.9, 1080.6, 987.93, 898.18, 835.20, 771.63, & + 687.12, 614.52, 606.14, 737.09, 908.13, 997.64, 1080.6, 1126.3, & + 1056.7, 1028.4, 1141.7, 1252.6, 1225.3, 1103.2, 1038.6, 1043.4, & + 1002.9, 965.51, 1035.0, 1150.7, 1200.9, 1152.0, 1068.5, 995.84, & + 889.52, 818.48, 907.01, 1042.2, 1055.6, 1000.6, 972.00, 985.72, & + 1027.2, 1054.8, 1078.0, 1126.6, 1205.3, 1245.7, 1201.0, 1144.7, & + 1097.5, 1030.1, 926.85, 836.71, 864.11, 993.50, 1075.3, 1032.6, & + 1008.9, 1066.1, 1067.4, 1004.8, 971.54, 923.18, 815.71, 799.70, & + 946.19, 1100.1, 1126.4, 1032.2, 895.14, 784.30, 734.77, 726.53, & + 726.88, 765.54, 863.90, 992.24, 1070.9, 1028.1, 858.78, 647.15, & + 563.18, 679.98, 906.40, 1094.3, 1155.3, 1124.3, 1098.4, 1109.5 / + +! SOLAR SPECTRUM FROM 29840 TO 31270 CM-1, IN STEPS OF 10 CM- +data (solarb(i), i=145,288) / & + 1076.2, 944.17, 849.20, 928.54, 1062.0, 1118.9, 1119.2, 1074.6, & + 1005.8, 980.02, 999.11, 1002.4, 939.78, 838.12, 816.13, 908.73, & + 1014.9, 1058.3, 1043.7, 987.54, 946.35, 981.40, 1055.8, 1094.3, & + 1028.3, 916.41, 908.99, 991.83, 1049.6, 1076.2, 1093.5, 1076.3, & + 1014.5, 949.61, 947.26, 1001.2, 1051.5, 1072.8, 1068.0, 1012.5, & + 907.81, 866.30, 950.89, 1037.5, 1079.5, 1183.9, 1291.3, 1268.6, & + 1199.3, 1188.6, 1188.0, 1186.6, 1198.2, 1171.3, 1132.6, 1131.6, & + 1096.0, 971.10, 847.07, 836.62, 922.78, 990.99, 987.51, 969.24, & + 981.46, 981.36, 971.95, 985.34, 1003.0, 1037.2, 1071.2, 1065.7, & + 1026.7, 984.84, 1002.7, 1070.3, 1117.5, 1116.0, 1048.9, 965.34, & + 972.27, 1045.7, 1096.6, 1127.5, 1133.5, 1099.6, 1079.3, 1082.9, & + 1026.8, 927.50, 879.08, 858.83, 831.01, 807.82, 789.56, 813.75, & + 893.46, 937.62, 901.56, 864.46, 873.35, 891.03, 862.46, 810.30, & + 787.36, 752.93, 715.34, 708.07, 728.93, 786.79, 807.73, 736.28, & + 645.08, 616.90, 649.17, 691.77, 749.18, 820.21, 820.68, 791.26, & + 854.27, 940.56, 956.38, 909.42, 824.18, 767.17, 722.06, 653.42, & + 624.67, 633.73, 655.14, 707.93, 784.94, 880.79, 961.15, 985.60, & + 986.18, 966.53, 921.47, 888.89, 855.85, 851.66, 886.78, 850.97 / + +! SOLAR SPECTRUM FROM 31280 TO 32710 CM-1, IN STEPS OF 10 CM- +data (solarb(i), i=289,432) / & + 766.97, 738.95, 724.53, 657.61, 587.77, 616.86, 760.61, 903.23, & + 917.27, 838.49, 784.80, 759.41, 719.61, 671.48, 624.63, 588.57, & + 574.70, 596.68, 698.02, 866.39, 974.82, 960.37, 930.10, 962.65, & + 1007.1, 1001.9, 926.29, 816.64, 763.25, 772.93, 762.66, 729.39, & + 725.01, 727.16, 672.73, 581.42, 520.97, 488.80, 478.60, 542.08, & + 663.71, 749.48, 785.87, 811.05, 818.19, 813.80, 824.54, 836.62, & + 799.66, 728.00, 660.36, 559.28, 473.28, 550.16, 752.04, 885.84, & + 906.80, 912.21, 929.32, 899.72, 830.20, 774.56, 736.42, 724.09, & + 740.12, 754.11, 764.96, 780.76, 788.94, 784.87, 758.80, 725.91, & + 751.84, 804.24, 777.73, 703.36, 665.27, 663.99, 679.36, 706.09, & + 757.57, 836.09, 880.02, 881.18, 907.91, 929.26, 894.32, 874.01, & + 918.56, 953.50, 922.32, 866.61, 836.54, 825.28, 752.54, 586.02, & + 427.46, 374.05, 437.23, 534.32, 556.74, 563.11, 629.31, 631.26, & + 518.76, 438.31, 460.31, 530.45, 608.50, 657.99, 662.08, 686.17, & + 775.18, 843.11, 797.46, 685.33, 611.33, 628.74, 711.36, 754.94, & + 728.80, 722.79, 726.38, 679.68, 665.83, 710.48, 723.10, 724.09, & + 760.18, 784.01, 742.78, 634.33, 546.55, 563.54, 611.03, 623.16, & + 665.36, 743.55, 764.46, 671.14, 513.18, 401.86, 405.77, 515.72 / + +! SOLAR SPECTRUM FROM 32720 TO 34150 CM-1, IN STEPS OF 10 CM- +data (solarb(i), i=433,576) / & + 639.90, 677.85, 679.55, 759.33, 848.11, 819.89, 751.75, 710.50, & + 615.33, 525.09, 583.35, 715.23, 767.53, 739.10, 664.05, 580.57, & + 572.85, 634.13, 648.77, 561.27, 497.72, 591.71, 737.83, 794.19, & + 802.51, 799.33, 735.79, 658.41, 659.47, 718.18, 761.67, 697.24, & + 545.14, 474.47, 526.96, 597.65, 584.74, 447.28, 291.35, 261.28, & + 330.26, 401.96, 466.32, 531.26, 572.34, 584.86, 585.17, 569.46, & + 558.27, 559.41, 512.02, 426.37, 378.14, 398.26, 473.49, 542.18, & + 531.76, 437.48, 341.85, 305.82, 299.88, 328.12, 440.04, 586.46, & + 660.32, 625.22, 510.26, 418.85, 447.36, 534.89, 605.86, 667.07, & + 687.31, 636.79, 549.63, 472.88, 419.53, 370.06, 327.98, 320.49, & + 354.00, 399.17, 450.98, 528.34, 608.25, 696.07, 774.28, 760.75, & + 690.58, 648.20, 580.63, 477.96, 453.91, 488.74, 464.02, 421.59, & + 444.32, 446.59, 375.95, 342.13, 397.49, 510.97, 646.38, 725.14, & + 703.06, 639.06, 619.10, 654.66, 665.99, 611.40, 580.22, 607.29, & + 591.05, 542.30, 583.82, 673.02, 673.21, 582.44, 465.73, 377.25, & + 377.04, 487.27, 607.93, 617.52, 583.46, 601.68, 615.94, 575.47, & + 541.63, 542.06, 522.28, 472.49, 423.29, 438.09, 556.72, 664.34, & + 669.88, 657.45, 684.71, 705.70, 683.11, 600.81, 509.90, 497.64 / + +! SOLAR SPECTRUM FROM 34160 TO 35590 CM-1, IN STEPS OF 10 CM- +data (solarb(i), i=577,720) / & + 511.07, 496.07, 500.32, 518.70, 529.91, 563.00, 609.20, 626.49, & + 622.11, 615.72, 600.44, 591.26, 598.12, 593.07, 590.94, 631.58, & + 696.48, 718.48, 676.11, 631.56, 619.64, 620.53, 624.10, 636.56, & + 658.02, 688.78, 724.81, 742.60, 722.31, 675.86, 665.96, 704.73, & + 703.70, 645.00, 598.26, 587.77, 590.94, 575.93, 528.03, 477.92, & + 457.52, 456.80, 454.91, 448.65, 445.47, 445.38, 444.43, 446.04, & + 455.91, 468.02, 454.34, 393.32, 301.22, 211.44, 167.11, 193.99, & + 254.01, 305.35, 353.03, 385.08, 387.03, 391.60, 406.20, 415.34, & + 435.34, 469.77, 492.15, 472.73, 409.86, 353.25, 340.68, 355.27, & + 379.77, 401.81, 409.67, 406.89, 393.16, 378.89, 375.20, 373.52, & + 360.19, 322.79, 273.55, 237.76, 212.33, 184.80, 156.20, 127.75, & + 96.269, 68.806, 62.047, 77.143, 100.47, 127.56, 159.88, 194.05, & + 225.20, 254.64, 285.75, 300.14, 294.40, 308.92, 340.83, 346.26, & + 336.29, 347.54, 373.81, 388.78, 372.68, 325.29, 294.40, 317.56, & + 360.30, 378.08, 374.22, 374.03, 383.34, 387.88, 377.55, 356.96, & + 340.67, 328.71, 314.00, 316.91, 344.51, 355.54, 335.66, 318.68, & + 318.65, 322.43, 318.61, 304.92, 284.84, 268.13, 265.80, 273.55, & + 274.18, 252.38, 215.04, 188.60, 181.31, 181.31, 180.78, 175.24 / + +! SOLAR SPECTRUM FROM 35600 TO 37030 CM-1, IN STEPS OF 10 CM- +data (solarb(i), i=721,864) / & + 162.06, 145.08, 128.76, 113.76, 98.078, 83.072, 76.222, 78.359, & + 78.434, 74.235, 75.843, 80.321, 77.859, 70.298, 64.651, 67.049, & + 77.810, 83.167, 75.286, 71.202, 80.549, 92.008, 100.17, 108.63, & + 119.44, 130.78, 142.31, 158.94, 177.12, 186.40, 186.60, 181.47, & + 175.30, 175.54, 179.00, 177.04, 172.60, 172.67, 178.98, 193.77, & + 215.13, 233.62, 252.05, 277.68, 298.91, 298.40, 280.81, 274.21, & + 286.52, 285.46, 259.71, 241.39, 246.98, 259.87, 274.27, 298.47, & + 316.85, 303.19, 263.69, 229.31, 227.90, 256.12, 281.58, 300.19, & + 310.56, 279.54, 211.93, 152.18, 129.94, 147.47, 181.62, 215.37, & + 239.50, 233.12, 191.55, 139.41, 110.51, 118.93, 134.79, 129.05, & + 124.39, 143.53, 158.29, 141.84, 116.32, 111.59, 128.93, 149.17, & + 153.44, 145.63, 148.52, 159.25, 155.84, 154.17, 177.28, 203.40, & + 207.35, 205.27, 222.85, 253.18, 271.28, 279.27, 302.17, 321.47, & + 288.83, 230.14, 206.40, 213.22, 216.49, 207.46, 196.20, 195.21, & + 202.03, 194.33, 164.86, 136.65, 123.87, 128.14, 161.89, 216.99, & + 253.68, 249.26, 222.89, 213.11, 243.64, 293.10, 309.42, 286.40, & + 269.61, 272.23, 271.67, 265.84, 265.61, 264.77, 266.03, 289.51, & + 325.67, 337.34, 321.17, 300.30, 282.60, 287.14, 322.06, 335.79 / + +! SOLAR SPECTRUM FROM 37040 TO 38470 CM-1, IN STEPS OF 10 CM- +data (solarb(i), i=865,1008) / & + 297.22, 254.10, 243.47, 239.49, 219.32, 211.94, 239.28, 271.43, & + 279.37, 272.26, 264.77, 250.52, 229.93, 222.15, 235.30, 256.79, & + 275.28, 286.92, 284.85, 269.52, 255.05, 253.46, 263.22, 274.78, & + 279.19, 270.17, 249.41, 229.04, 221.64, 231.38, 252.70, 280.64, & + 310.06, 328.33, 325.01, 290.26, 238.97, 223.38, 257.24, 282.60, & + 264.32, 243.34, 253.18, 272.89, 271.32, 256.12, 260.24, 271.35, & + 257.11, 236.61, 238.72, 248.92, 255.90, 272.04, 291.78, 297.40, & + 288.09, 283.28, 292.92, 301.74, 309.07, 322.05, 320.42, 295.43, & + 269.65, 254.41, 240.88, 228.18, 221.23, 213.72, 201.23, 197.17, & + 212.29, 233.39, 247.65, 261.74, 286.17, 322.49, 349.47, 338.28, & + 297.06, 261.55, 252.28, 264.65, 286.92, 298.94, 280.45, 244.37, & + 213.47, 193.03, 182.07, 168.54, 143.12, 114.10, 89.615, 73.589, & + 73.990, 87.912, 96.265, 94.813, 96.604, 102.30, 102.15, 103.07, & + 117.81, 137.41, 146.09, 144.28, 137.89, 128.11, 122.82, 128.19, & + 130.66, 117.31, 98.912, 93.397, 105.63, 122.73, 126.39, 113.05, & + 92.317, 76.340, 69.032, 66.324, 71.280, 87.431, 105.94, 114.02, & + 107.91, 91.872, 75.208, 69.123, 75.930, 90.928, 109.71, 125.70, & + 135.79, 141.14, 138.14, 121.33, 91.806, 63.497, 52.106, 59.555 / + +! SOLAR SPECTRUM FROM 38480 TO 39910 CM-1, IN STEPS OF 10 CM- +data (solarb(i), i=1009,1152) / & + 81.015, 106.67, 118.97, 116.36, 110.82, 100.88, 89.056, 90.431, & + 104.41, 114.95, 124.85, 148.87, 171.72, 167.22, 142.25, 118.42, & + 98.653, 78.908, 68.133, 77.286, 100.93, 120.08, 125.49, 131.79, & + 155.69, 180.75, 181.81, 166.77, 150.06, 133.24, 116.14, 97.728, & + 81.629, 76.695, 87.607, 110.23, 134.88, 149.13, 147.64, 139.88, & + 135.19, 135.07, 138.00, 136.73, 128.84, 122.22, 120.48, 121.98, & + 123.08, 116.30, 101.43, 86.303, 74.719, 68.800, 71.327, 80.626, & + 90.485, 96.739, 100.69, 100.81, 93.677, 84.740, 81.532, 82.893, & + 84.564, 87.584, 91.780, 91.272, 87.014, 87.386, 90.149, 84.917, & + 71.266, 57.873, 51.863, 53.876, 57.909, 58.508, 57.020, 57.432, & + 60.671, 64.667, 67.362, 67.511, 64.233, 59.035, 55.697, 56.636, & + 59.400, 59.070, 56.522, 55.834, 55.860, 54.039, 51.976, 52.344, & + 54.667, 56.450, 56.751, 56.769, 58.002, 60.029, 59.602, 53.134, & + 42.926, 35.588, 33.447, 35.171, 39.379, 44.371, 47.745, 46.933, & + 42.441, 37.879, 35.595, 36.458, 41.048, 47.300, 51.098, 50.024, & + 45.331, 41.282, 40.082, 40.000, 39.104, 37.329, 36.632, 37.792, & + 39.189, 41.058, 45.214, 50.737, 54.281, 55.015, 56.138, 60.931, & + 67.383, 69.534, 65.159, 56.372, 47.326, 44.322, 49.944, 59.696 / + +! SOLAR SPECTRUM FROM 39920 TO 41350 CM-1, IN STEPS OF 10 CM- +data (solarb(i), i=1153,1296) / & + 67.929, 71.334, 69.905, 65.620, 59.303, 54.016, 55.880, 65.155, & + 74.065, 76.217, 73.506, 71.406, 70.849, 69.749, 69.268, 71.380, & + 72.721, 68.929, 61.665, 54.896, 47.420, 38.325, 32.219, 31.243, & + 33.310, 35.358, 35.623, 36.840, 41.551, 47.499, 51.176, 50.344, & + 45.362, 38.341, 33.130, 33.801, 40.140, 49.121, 55.385, 55.174, & + 50.450, 46.511, 47.495, 51.883, 56.354, 59.603, 61.584, 63.215, & + 64.603, 64.101, 59.027, 50.956, 47.633, 52.543, 58.883, 59.829, & + 57.617, 56.727, 57.371, 57.898, 57.177, 55.129, 52.952, 52.018, & + 52.186, 52.044, 50.269, 46.592, 42.515, 40.755, 41.887, 44.119, & + 46.536, 48.858, 50.490, 51.919, 54.085, 54.707, 51.927, 49.449, & + 49.865, 50.933, 50.496, 48.616, 46.717, 46.070, 46.263, 46.733, & + 48.009, 50.187, 52.420, 53.536, 52.507, 51.380, 53.214, 56.985, & + 60.614, 63.139, 63.999, 63.869, 65.100, 69.385, 74.743, 78.184, & + 78.103, 74.113, 67.371, 60.849, 58.924, 62.682, 68.032, 69.117, & + 64.604, 59.110, 55.998, 56.838, 61.778, 65.874, 65.079, 63.038, & + 64.809, 69.911, 74.841, 76.439, 73.587, 68.853, 67.497, 72.675, & + 80.602, 83.422, 78.957, 72.228, 66.737, 62.842, 61.535, 63.574, & + 69.248, 76.577, 79.922, 77.755, 73.938, 70.518, 68.003, 66.339 / + +! SOLAR SPECTRUM FROM 41360 TO 42790 CM-1, IN STEPS OF 10 CM- +data (solarb(i), i=1297,1440) / & + 63.979, 61.098, 59.421, 58.103, 55.741, 52.549, 48.079, 42.578, & + 38.373, 37.297, 37.455, 34.861, 30.483, 29.634, 34.734, 42.460, & + 47.066, 45.848, 40.157, 34.290, 31.584, 30.650, 29.054, 27.788, & + 30.427, 37.570, 44.196, 46.880, 47.848, 49.166, 49.180, 45.002, & + 38.135, 35.055, 38.095, 41.750, 40.899, 35.722, 28.884, 24.835, & + 28.670, 39.646, 50.310, 55.725, 57.401, 58.110, 59.406, 59.360, & + 53.420, 43.004, 34.787, 33.697, 39.682, 47.554, 52.605, 53.632, & + 51.001, 45.266, 37.844, 31.030, 25.936, 22.799, 21.882, 23.484, & + 27.857, 33.447, 37.319, 39.195, 42.826, 50.398, 58.752, 63.301, & + 61.094, 53.532, 46.046, 41.118, 37.646, 36.304, 40.426, 50.893, & + 61.553, 65.395, 62.680, 58.087, 54.622, 51.330, 46.874, 42.870, & + 40.547, 39.760, 40.217, 40.359, 39.559, 40.667, 46.260, 53.413, & + 56.041, 52.566, 46.674, 41.073, 35.511, 31.231, 31.082, 35.955, & + 45.199, 55.464, 61.802, 63.505, 61.850, 56.412, 49.388, 46.369, & + 50.058, 56.694, 60.884, 61.030, 58.107, 54.303, 51.940, 50.508, & + 46.749, 39.155, 31.535, 28.959, 30.973, 32.670, 31.567, 29.340, & + 27.275, 25.184, 24.264, 27.068, 34.296, 42.475, 47.230, 47.425, & + 44.435, 40.538, 36.868, 33.020, 29.405, 28.753, 34.079, 44.246 / + +! SOLAR SPECTRUM FROM 42800 TO 44230 CM-1, IN STEPS OF 10 CM- +data (solarb(i), i=1441,1584) / & + 53.780, 57.974, 56.376, 51.200, 45.308, 40.273, 35.900, 33.344, & + 34.011, 36.858, 41.283, 47.374, 53.088, 56.201, 55.633, 50.843, & + 43.997, 38.767, 36.248, 36.380, 40.762, 50.700, 63.371, 73.432, & + 76.418, 70.373, 58.741, 47.034, 38.598, 34.664, 35.794, 42.084, & + 49.973, 54.338, 53.956, 52.287, 52.778, 55.571, 59.034, 60.268, & + 56.247, 47.362, 38.056, 32.889, 31.739, 31.734, 32.476, 35.060, & + 39.091, 43.398, 48.131, 53.574, 58.749, 63.599, 68.971, 73.421, & + 73.861, 69.003, 60.557, 51.865, 44.879, 42.060, 44.802, 47.950, & + 46.882, 42.973, 39.293, 37.711, 37.137, 35.222, 32.243, 30.488, & + 32.605, 40.429, 51.099, 57.710, 57.150, 52.992, 50.275, 49.986, & + 49.778, 48.371, 46.421, 44.604, 42.730, 41.244, 41.565, 43.805, & + 47.013, 48.992, 46.428, 40.595, 37.840, 42.353, 52.248, 60.529, & + 61.566, 56.800, 52.041, 52.260, 57.077, 61.019, 60.712, 57.048, & + 51.481, 46.352, 44.366, 44.947, 45.478, 44.944, 43.825, 42.105, & + 39.466, 36.826, 35.907, 36.357, 35.661, 33.947, 33.690, 34.429, & + 34.000, 32.645, 31.410, 30.281, 29.409, 29.127, 29.326, 29.869, & + 30.601, 31.311, 32.099, 32.779, 32.757, 32.098, 31.975, 33.484, & + 36.048, 39.169, 43.365, 47.244, 48.214, 45.786, 41.586, 38.775 / + +! SOLAR SPECTRUM FROM 44240 TO 45670 CM-1, IN STEPS OF 10 CM- +data (solarb(i), i=1585,1728) / & + 40.753, 46.752, 51.684, 52.597, 51.449, 50.684, 49.450, 46.747, & + 45.369, 47.685, 50.240, 48.961, 46.693, 48.600, 53.694, 56.465, & + 54.341, 50.722, 49.877, 51.246, 52.088, 52.765, 56.254, 63.326, & + 69.744, 71.066, 68.349, 65.123, 62.551, 59.195, 53.705, 48.161, & + 46.236, 47.710, 49.660, 50.799, 51.836, 54.537, 59.647, 64.707, & + 65.844, 61.634, 55.570, 54.083, 58.781, 64.888, 69.777, 74.008, & + 76.492, 76.226, 74.746, 74.941, 77.801, 79.619, 76.190, 67.190, & + 55.231, 45.813, 43.141, 45.647, 49.466, 52.231, 52.221, 48.886, & + 44.716, 42.613, 43.385, 45.968, 48.121, 48.998, 49.885, 50.707, & + 49.893, 48.319, 48.198, 50.280, 53.830, 55.914, 54.822, 52.939, & + 51.944, 49.438, 42.956, 34.614, 28.100, 24.503, 24.203, 27.839, & + 34.604, 41.615, 45.324, 45.444, 45.527, 47.179, 45.756, 36.862, & + 26.037, 20.569, 20.329, 24.263, 30.863, 35.939, 36.711, 35.693, & + 37.256, 40.862, 44.416, 48.800, 54.182, 57.655, 58.427, 59.965, & + 63.940, 66.820, 65.465, 59.482, 49.396, 39.422, 34.182, 35.388, & + 42.875, 52.034, 57.595, 59.093, 57.272, 52.172, 45.493, 39.419, & + 35.581, 35.902, 40.354, 46.732, 53.309, 58.781, 61.785, 59.255, & + 50.030, 41.567, 40.523, 43.584, 44.875, 42.754, 40.077, 39.941 / + +! SOLAR SPECTRUM FROM 45680 TO 47110 CM-1, IN STEPS OF 10 CM- +data (solarb(i), i=1729,1872) / & + 40.977, 39.567, 34.955, 30.424, 31.039, 38.687, 47.480, 49.830, & + 46.790, 44.829, 46.546, 50.415, 54.602, 57.656, 58.463, 57.276, & + 55.621, 54.514, 53.338, 50.026, 42.817, 33.636, 27.134, 25.516, & + 27.897, 31.392, 32.125, 29.463, 26.581, 25.956, 27.737, 31.175, & + 34.959, 37.671, 38.641, 37.958, 36.733, 35.681, 33.877, 30.849, & + 28.059, 27.615, 29.319, 29.375, 25.390, 20.659, 19.484, 22.297, & + 27.282, 32.467, 35.906, 37.137, 37.895, 39.130, 39.777, 39.872, & + 40.778, 42.317, 42.934, 40.430, 34.227, 27.701, 23.880, 22.174, & + 21.639, 22.589, 25.184, 29.017, 32.981, 36.110, 38.580, 41.239, & + 44.426, 46.939, 47.010, 44.165, 39.659, 35.556, 32.838, 31.546, & + 32.676, 36.963, 42.333, 44.931, 43.704, 40.943, 37.973, 35.199, & + 33.574, 33.339, 34.185, 36.347, 39.963, 43.964, 47.162, 48.987, & + 48.976, 47.948, 48.004, 49.892, 51.065, 47.834, 40.489, 32.665, & + 26.795, 24.461, 26.655, 31.928, 37.634, 41.345, 40.956, 36.827, & + 32.110, 28.612, 26.482, 26.602, 28.831, 30.877, 30.976, 30.063, & + 29.887, 30.305, 29.974, 28.265, 26.517, 27.066, 30.403, 34.539, & + 37.104, 37.598, 37.252, 37.060, 36.498, 34.167, 29.814, 24.192, & + 18.515, 15.086, 15.040, 17.158, 20.807, 25.682, 30.352, 34.203 / + +! SOLAR SPECTRUM FROM 47120 TO 48550 CM-1, IN STEPS OF 10 CM- +data (solarb(i), i=1873,2016) / & + 37.902, 42.531, 47.832, 50.509, 48.019, 42.616, 38.321, 37.370, & + 40.172, 44.395, 46.132, 43.911, 38.396, 31.379, 26.275, 25.075, & + 26.652, 28.963, 31.168, 34.168, 38.050, 40.231, 38.347, 32.741, & + 26.199, 21.863, 20.249, 20.185, 21.726, 25.562, 30.318, 33.431, & + 34.453, 34.959, 36.374, 37.870, 36.655, 31.966, 25.920, 21.264, & + 20.663, 24.658, 30.263, 34.021, 34.336, 31.356, 26.926, 23.109, & + 20.867, 20.684, 22.416, 24.878, 26.779, 27.334, 26.537, 25.210, & + 24.013, 22.944, 21.800, 20.449, 19.290, 19.528, 21.742, 24.125, & + 23.994, 21.559, 19.555, 18.915, 18.342, 17.335, 16.549, 16.479, & + 17.211, 18.445, 19.294, 18.980, 17.912, 17.156, 17.103, 17.256, & + 16.925, 15.842, 14.485, 13.683, 13.647, 13.914, 14.009, 13.770, & + 13.456, 13.399, 13.547, 13.760, 14.060, 14.427, 14.644, 14.438, & + 13.986, 13.749, 13.927, 14.390, 14.759, 14.822, 14.679, 14.448, & + 14.186, 13.937, 13.754, 13.657, 13.540, 13.308, 13.053, 12.841, & + 12.704, 12.742, 12.811, 12.662, 12.355, 12.100, 12.003, 12.014, & + 12.067, 12.223, 12.444, 12.472, 12.164, 11.732, 11.515, 11.619, & + 11.873, 12.028, 11.947, 11.722, 11.399, 10.930, 10.473, 10.205, & + 10.224, 10.694, 11.468, 12.007, 12.083, 11.905, 11.498, 10.891 / + +! SOLAR SPECTRUM FROM 48560 TO 49990 CM-1, IN STEPS OF 10 CM- +data (solarb(i), i=2017,2160) / & + 10.575, 10.846, 11.353, 11.612, 11.411, 10.876, 10.383, 10.305, & + 10.695, 11.245, 11.636, 11.828, 11.918, 11.865, 11.674, 11.510, & + 11.407, 11.303, 11.216, 11.143, 11.039, 10.983, 11.004, 10.900, & + 10.653, 10.562, 10.781, 11.186, 11.605, 11.806, 11.582, 11.056, & + 10.567, 10.335, 10.408, 10.729, 11.165, 11.540, 11.646, 11.372, & + 10.933, 10.524, 9.9973, 9.3783, 8.9883, 9.0163, 9.4125, 9.9179, & + 10.278, 10.472, 10.553, 10.575, 10.519, 10.216, 9.6821, 9.1499, & + 8.7057, 8.3894, 8.3442, 8.6241, 9.1371, 9.7184, 10.191, 10.443, & + 10.458, 10.289, 9.9772, 9.5829, 9.3097, 9.3195, 9.4694, 9.5182, & + 9.4326, 9.2478, 8.8197, 7.9809, 6.9996, 6.4856, 6.7462, 7.5406, & + 8.2813, 8.7258, 9.0682, 9.1665, 8.8637, 8.4638, 8.2393, 8.1656, & + 8.1880, 8.3578, 8.6488, 8.8980, 9.0117, 9.0659, 9.1955, 9.4207, & + 9.5526, 9.4237, 9.1290, 8.8441, 8.6138, 8.4237, 8.2979, 8.2598, & + 8.2859, 8.3475, 8.4533, 8.6285, 8.8310, 8.8866, 8.6750, 8.3312, & + 8.0091, 7.7296, 7.6239, 7.8692, 8.2725, 8.4086, 8.2515, 8.0914, & + 8.0003, 7.9367, 7.9266, 7.9580, 8.0492, 8.2376, 8.4263, 8.4811, & + 8.3309, 8.0263, 7.7632, 7.6987, 7.8124, 7.9390, 8.0183, 8.0816, & + 8.0428, 7.8923, 7.6963, 7.4969, 7.4013, 7.4289, 7.4489, 7.4059 / + +! SOLAR SPECTRUM FROM 50000 TO 51430 CM-1, IN STEPS OF 10 CM- +data (solarb(i), i=2161,2304) / & + 7.4198, 7.5261, 7.5252, 7.3239, 7.1263, 7.1423, 7.3340, 7.5049, & + 7.5484, 7.5319, 7.5163, 7.4995, 7.5728, 7.8104, 8.0588, 8.0948, & + 7.9140, 7.6978, 7.5116, 7.2138, 6.8063, 6.5430, 6.5232, 6.5869, & + 6.5610, 6.3984, 6.1889, 6.0587, 6.0676, 6.1988, 6.3140, 6.2527, & + 6.0929, 6.0277, 6.0941, 6.3031, 6.6594, 6.9398, 6.9566, 6.8310, & + 6.7374, 6.6812, 6.6558, 6.8336, 7.2020, 7.4012, 7.2950, 7.0488, & + 6.7966, 6.6293, 6.5868, 6.5980, 6.6007, 6.6501, 6.7627, 6.7853, & + 6.6321, 6.4856, 6.5198, 6.6486, 6.7271, 6.7227, 6.6696, 6.6189, & + 6.5979, 6.6188, 6.7110, 6.8343, 6.8750, 6.8250, 6.7885, 6.8266, & + 6.8556, 6.8068, 6.8377, 7.0467, 7.2779, 7.4139, 7.4712, 7.4621, & + 7.4071, 7.3592, 7.3372, 7.3220, 7.2938, 7.2531, 7.2052, 7.1335, & + 7.0298, 6.8533, 6.5535, 6.2227, 6.0139, 5.9384, 5.9038, 5.8568, & + 5.7909, 5.7326, 5.7745, 5.9608, 6.1865, 6.3681, 6.4997, 6.5437, & + 6.4637, 6.2708, 6.0451, 5.9557, 6.0855, 6.2542, 6.2454, 6.0795, & + 5.9102, 5.8447, 5.9218, 6.1063, 6.2895, 6.3271, 6.1097, 5.7421, & + 5.4452, 5.2981, 5.3256, 5.4935, 5.6819, 5.8245, 5.8933, 5.9630, & + 6.1703, 6.4525, 6.6325, 6.6965, 6.7185, 6.6238, 6.3107, 5.9241, & + 5.6987, 5.6651, 5.7428, 5.8790, 5.9715, 5.9618, 5.9674, 6.0754 / + +! SOLAR SPECTRUM FROM 51440 TO 52870 CM-1, IN STEPS OF 10 CM- +data (solarb(i), i=2305,2448) / & + 6.2541, 6.4300, 6.4968, 6.4564, 6.4082, 6.3024, 6.0135, 5.6431, & + 5.3963, 5.2989, 5.2635, 5.2227, 5.1279, 4.9315, 4.6348, 4.3168, & + 4.0151, 3.6625, 3.2906, 3.1028, 3.1349, 3.1994, 3.2596, 3.4144, & + 3.5949, 3.6534, 3.6296, 3.6281, 3.5876, 3.4292, 3.2659, 3.2284, & + 3.2576, 3.3002, 3.4535, 3.7372, 4.0573, 4.3558, 4.5999, 4.7781, & + 4.8855, 4.8999, 4.8392, 4.7624, 4.7059, 4.6981, 4.7666, 4.8453, & + 4.8236, 4.7293, 4.6861, 4.7132, 4.7725, 4.8713, 4.9596, 4.9527, & + 4.8957, 4.9252, 5.0736, 5.2229, 5.2505, 5.1537, 5.0156, 4.8880, & + 4.7686, 4.6549, 4.5534, 4.4828, 4.4661, 4.5040, 4.5905, 4.7033, & + 4.7858, 4.8334, 4.9283, 5.0377, 5.0065, 4.8471, 4.6828, 4.5586, & + 4.4812, 4.4314, 4.3903, 4.3830, 4.4066, 4.3900, 4.2973, 4.1978, & + 4.1462, 4.1084, 4.1495, 4.3897, 4.6859, 4.8206, 4.7938, 4.6781, & + 4.5222, 4.3959, 4.3358, 4.2947, 4.2259, 4.1452, 4.1060, 4.1462, & + 4.2149, 4.2549, 4.3061, 4.3742, 4.3738, 4.2718, 4.1389, 4.0405, & + 3.9457, 3.8127, 3.7099, 3.7344, 3.8589, 3.9598, 3.9525, 3.8377, & + 3.6708, 3.5357, 3.4929, 3.5375, 3.6381, 3.7890, 3.9671, 4.0995, & + 4.1421, 4.1302, 4.1235, 4.1623, 4.2506, 4.2948, 4.2231, 4.0993, & + 3.9680, 3.9475, 4.1958, 4.5131, 4.6101, 4.5130, 4.3474, 4.1749 / + +! SOLAR SPECTRUM FROM 52880 TO 54310 CM-1, IN STEPS OF 10 CM- +data (solarb(i), i=2449,2592) / & + 4.0467, 3.9956, 4.0078, 4.0374, 4.0255, 3.9379, 3.8192, 3.7529, & + 3.7675, 3.8260, 3.8654, 3.8518, 3.8148, 3.8028, 3.8098, 3.7934, & + 3.7660, 3.7944, 3.8689, 3.8978, 3.8856, 3.8923, 3.8570, 3.6940, & + 3.4693, 3.3222, 3.2824, 3.2887, 3.3039, 3.3222, 3.3313, 3.3326, & + 3.3482, 3.3807, 3.4188, 3.4602, 3.4972, 3.5151, 3.5155, 3.5165, & + 3.5258, 3.5406, 3.5478, 3.5345, 3.5339, 3.5820, 3.6396, 3.6448, & + 3.5872, 3.5112, 3.4804, 3.5257, 3.6238, 3.7290, 3.8023, 3.8024, & + 3.7268, 3.6578, 3.6439, 3.6422, 3.6373, 3.6397, 3.6410, 3.6494, & + 3.6608, 3.6251, 3.5212, 3.4020, 3.2845, 3.1230, 2.9483, 2.8515, & + 2.8432, 2.8638, 2.8967, 2.9505, 3.0025, 3.0552, 3.1106, 3.1178, & + 3.0596, 2.9854, 2.9316, 2.8903, 2.8590, 2.8500, 2.8450, 2.8121, & + 2.7626, 2.7424, 2.7667, 2.8024, 2.8165, 2.8111, 2.8128, 2.8569, & + 2.9659, 3.1062, 3.1990, 3.2128, 3.2088, 3.2391, 3.2661, 3.2364, & + 3.1173, 2.9094, 2.6952, 2.5324, 2.3959, 2.2953, 2.2510, 2.2245, & + 2.1811, 2.1301, 2.1482, 2.3257, 2.5856, 2.7226, 2.6495, 2.4508, & + 2.2444, 2.0850, 1.9891, 1.9843, 2.0816, 2.2233, 2.3248, 2.3551, & + 2.3479, 2.3606, 2.4296, 2.5361, 2.6128, 2.6216, 2.6069, 2.6196, & + 2.6464, 2.6427, 2.5823, 2.4682, 2.3320, 2.2405, 2.2637, 2.3973 / + +! SOLAR SPECTRUM FROM 54320 TO 55750 CM-1, IN STEPS OF 10 CM- +data (solarb(i), i=2593,2736) / & + 2.5524, 2.6891, 2.8508, 3.0103, 3.0681, 3.0064, 2.9114, 2.8609, & + 2.8517, 2.8374, 2.7894, 2.7288, 2.7138, 2.7729, 2.8707, 2.9536, & + 2.9953, 2.9911, 2.9398, 2.8550, 2.7732, 2.7303, 2.7366, 2.7650, & + 2.7705, 2.7374, 2.6830, 2.6218, 2.5663, 2.5341, 2.5351, 2.5681, & + 2.6124, 2.6305, 2.6024, 2.5431, 2.4840, 2.4546, 2.4684, 2.5100, & + 2.5445, 2.5532, 2.5564, 2.5889, 2.6616, 2.7553, 2.8466, 2.9290, & + 2.9958, 3.0175, 2.9774, 2.8990, 2.8001, 2.6927, 2.6171, 2.5931, & + 2.5809, 2.5276, 2.4284, 2.3365, 2.3162, 2.3855, 2.4872, 2.5455, & + 2.5773, 2.6809, 2.9720, 3.5757, 4.4006, 5.0044, 5.0295, 4.5135, & + 3.7071, 2.9059, 2.3600, 2.1418, 2.1119, 2.0871, 2.0301, 2.0043, & + 2.0361, 2.0963, 2.1520, 2.1878, 2.1955, 2.1864, 2.1899, 2.2170, & + 2.2574, 2.2895, 2.2783, 2.2148, 2.1641, 2.2343, 2.4726, 2.8119, & + 3.1288, 3.2984, 3.2206, 2.8859, 2.4473, 2.1436, 2.0729, 2.1391, & + 2.2171, 2.2580, 2.2654, 2.2481, 2.2103, 2.1657, 2.1356, 2.1321, & + 2.1438, 2.1461, 2.1396, 2.1460, 2.1588, 2.1581, 2.1481, 2.1343, & + 2.1101, 2.0754, 2.0400, 2.0121, 1.9930, 1.9799, 1.9699, 1.9613, & + 1.9537, 1.9454, 1.9312, 1.9058, 1.8726, 1.8470, 1.8465, 1.8693, & + 1.8844, 1.8635, 1.8143, 1.7618, 1.7188, 1.6853, 1.6656, 1.6708 / + +! SOLAR SPECTRUM FROM 55760 TO 57190 CM-1, IN STEPS OF 10 CM- +data (solarb(i), i=2737,2880) / & + 1.7036, 1.7519, 1.8120, 1.9015, 2.0124, 2.0980, 2.1385, 2.1481, & + 2.1347, 2.1086, 2.0953, 2.1062, 2.1095, 2.0685, 2.0001, 1.9461, & + 1.9194, 1.9088, 1.9023, 1.8977, 1.9049, 1.9300, 1.9588, 1.9635, & + 1.9357, 1.9019, 1.8887, 1.8939, 1.9018, 1.9038, 1.8975, 1.8747, & + 1.8289, 1.7716, 1.7303, 1.7330, 1.7900, 1.8782, 1.9548, 1.9907, & + 1.9807, 1.9430, 1.9173, 1.9218, 1.9203, 1.8717, 1.7832, 1.6965, & + 1.6389, 1.6077, 1.5924, 1.5818, 1.5583, 1.5142, 1.4616, 1.4237, & + 1.4252, 1.4834, 1.5970, 1.7410, 1.8771, 1.9784, 2.0451, 2.0872, & + 2.0909, 2.0384, 1.9573, 1.9002, 1.8824, 1.8663, 1.8193, 1.7540, & + 1.6874, 1.6222, 1.5726, 1.5450, 1.5290, 1.5312, 1.5699, 1.6411, & + 1.7186, 1.7678, 1.7546, 1.6623, 1.5115, 1.3588, 1.2605, 1.2348, & + 1.2611, 1.3091, 1.3588, 1.3884, 1.3800, 1.3482, 1.3224, 1.3159, & + 1.3437, 1.4142, 1.4950, 1.5443, 1.5521, 1.5282, 1.4902, 1.4606, & + 1.4465, 1.4398, 1.4399, 1.4544, 1.4760, 1.4781, 1.4506, 1.4229, & + 1.4185, 1.4221, 1.4119, 1.3908, 1.3779, 1.3813, 1.3933, 1.4087, & + 1.4268, 1.4417, 1.4408, 1.4188, 1.3861, 1.3548, 1.3261, 1.2980, & + 1.2769, 1.2731, 1.2856, 1.3002, 1.3056, 1.2987, 1.2817, 1.2590, & + 1.2291, 1.1868, 1.1428, 1.1183, 1.1141, 1.1120, 1.1009, 1.0797 / + +! SOLAR SPECTRUM FROM 57200 TO 57490 CM-1, IN STEPS OF 10 CM- +data (solarb(i), i=2881,2910) / & + 1.0523, 1.0284, 1.0251, 1.0577, 1.1195, 1.1791, 1.2061, 1.2013, & + 1.1936, 1.2000, 1.2040, 1.1824, 1.1489, 1.1400, 1.1539, 1.1629, & + 1.1617, 1.1586, 1.1564, 1.1572, 1.1565, 1.1399, 1.1037, 1.0627, & + 1.0341, 1.0223, 1.0199, 1.0188, 1.0174, 1.0163 / + +! WM, W0, W1, W2 ARE STATEMENT FUNC USED BY +! THE 4 POINT LAGRANGE INTERPOLATION + +wm(p) = p*(p - 1)*(p - 2) +w0(p) = 3*(p**2 - 1)*(p - 2) +w1(p) = 3*p*(p + 1)*(p - 2) +w2(p) = p*(p**2 - 1) + +sunirr = 0.0 !Variable initialized + +if(v .lt. 0.0) then + ! IF V IS TOO SMALL, WRITE WARNING + RETURN SUNIRR = 0 + sunirr = 0.0 + write(*, 900) v + +elseif( v .ge. 0.0 .and. v .lt. 100.0 ) then + ! FOR LOW FREQUENCIES USE A POWER LAW APPROXIMATION + sunirr = a*v**b + +elseif( v .ge. 100.0 .and. v .lt. 28420.0 ) then + ! USE 4 POINT INTERPOLATION ON ARRAY SOLARA + ! WHICH IS AT 20 CM-1 SPACING FROM 0 TO 28720 CM-1 + i = 1 + int(v/20.0) + p = mod(v, 20.0)/20.0 + sunirr = ( w2(p)*solara(i+2) - w1(p)*solara(i+1) + & + w0(p)*solara(i) - wm(p)*solara(i-1) ) / 6 + +elseif( v .ge. 28420.0 .and. v .le. 57470.0 ) then + ! USE 4 POINT INTERPOLATION ON ARRAY SOLARB + ! WHICH IS AT 10 CM-1 SPACING FROM 28400 TO 57490 CM-1 + i = int(v/10.0) - 2839 + p = mod(v, 10.0)/10.0 + sunirr = ( w2(p)*solarb(i+2) - w1(p)*solarb(i+1) + & + w0(p)*solarb(i) - wm(p)*solarb(i-1) ) / 6 + +elseif( v .gt. 57470.0 ) then + ! IF V IS TOO LARGE, WRITE WARNING + RETURN SUNIRR = 0 + sunirr = 0.0 + write(*, 900) v + +endif + +900 format('0 ***** WARNING - INPUT FREQUENCY = ', 1PG12.5, 'CM-1', & + /, ' OUTSIDE VALID RANGE OF 0 TO 57470 CM-1 *******', / ) + +return +END FUNCTION sunirr diff --git a/src/6.2.16/radiate/rrad3.f90 b/src/6.2.16/radiate/rrad3.f90 new file mode 100644 index 0000000..915ce64 --- /dev/null +++ b/src/6.2.16/radiate/rrad3.f90 @@ -0,0 +1,22 @@ +!############################################################################## +Module rrad3 + +implicit none + +!--------------------------------------------------------------------------- +integer :: nrad,narad,nsolb,nb,ng,jday +integer, parameter :: mb=8,mg=3,mk=7,ncog=5,ncb=2,npartob=13 & + ,npartg=7,namax=10 +integer, dimension(mg,mb) :: npsb +real :: solfac +real, dimension(mb) :: nuum,ralcs,solar1,solar0,a0,a1,a2,a3 & + ,wlenlo,wlenhi +real, dimension(150) :: exptabc +real, dimension(mg,mb) :: prf,trf,ulim +real, dimension(mg,mk,mb) :: wght,xp,alpha,beta +real, dimension(ncog,mb,npartob) :: ocoef +real, dimension(ncb,mb,npartob) :: bcoef +real, dimension(ncog,mb,npartg) :: gcoef +!--------------------------------------------------------------------------- + +END MODULE rrad3 diff --git a/src/6.2.16/revu/RAMS_hdf5.f90 b/src/6.2.16/revu/RAMS_hdf5.f90 new file mode 100644 index 0000000..09c59e5 --- /dev/null +++ b/src/6.2.16/revu/RAMS_hdf5.f90 @@ -0,0 +1,538 @@ +!############################################################################## +Subroutine rams_hdf5 (rh5_file,a,iztrans,ivtype,nngd,n1,n2,n3 & + ,zlevs,ns,idate,itime,ivtime,fcstsec & + ,cvar,cdname,cdunits,sfclat,sfclon) + + +!----------------------------------------------------------------- +! Routine to write RAMS fields in HDF5 format as chosen through +! REVUIN. This is intended to be modified at will to produce the +! desired output. Basically, one 3 or 2-dimensional variable at a +! time will be sent here. + +! Arguments: +! ---------- +! cdname - name of variable +! cdunits - units of variable +! a - data +! n1,n2,n3 - actual dimensions of field +! iztrans - type of vertical transformation 1-sigma-z, 2-Cartesian, 3-pressure +! ivtype - type of variable 2-2d surface, 3-3d atmospheric +! nib,nie,njb,nje - horizontal or vertical "window" as chosen in namelist. +! nii,njj - number of windowed points +! n3 - number of atmospheric height levels (if sigma_z or Cartesian) +! zlevs(n3) - atmospheric coordinate levels (if sigma_z or Cartesian) +! ns - number of soil coordinate levels +! slz(ns) - soil coordinate levels +! iyear1 - year of model start +! imonth1 - month of model start +! idate1 - date of model start +! itime1 - time of model start (hhmm) +! fcstsec - seconds into run +!----------------------------------------------------------------- + +! DESIGN NOTE: +! +! The resulting file needs to end up with: +! one dataset per variable that was requested in the revuvar() control +! one dataset per dimension that contains 1D arrays with the coordinate values +! +! The dimensions are named: +! t (time) +! x (longitude) +! y (latitude) +! z (levels) +! +! and the corresponding datasets (that contain the coordinate values) +! are named: +! t_coords +! x_coords +! y_coords +! z_coords +! +! Note that the code in the dimension attaching routine will +! take the name of the dimension ('t' for example) and append +! '_coords' (forming 't_coords') to create the name of the +! dataset that contains the coordinates. +! +! For GRADS: +! the dimension datasets need to be turned into HDF5 dimension scales +! and attached to their corresponding dimensions within the variable +! datasets. +! +! all datasets must be flat (ie, live under the root group) +! +! all datasets must be made of atomic (ie, no compound) types +! +! follow COARDS conventions for attribute names and values on the +! coordinate datasets +! +! Example: have zonal velocity field (3D) in the variable 'u' for multiple +! time steps --> 4D variable. This requires: +! +! u be organized as: (t,z,y,x) +! +! create dimension datasets: +! +! t_coords - number of seconds into the simulation for each time step +! z_coords - level values for grid +! y_coords - latitude values for grid +! x_coords - longitude values for grid +! +! then t_coords gets attached to the first dimension of u +! x_coords gets attached to the second dimension of u, etc. +! +! This allows the resulting hdf5 file to be directly readable by GRADS, +! as well as MATLAB and IDL. +! +! keep RHDF5_TSTRING_LEN in sync (matching length) with write format +! in rams_hdf5_create_time_string, which is currently in unused_routines + +use an_header +use rhdf5_utils +use rcommons +use mem_grid + +implicit none + +integer, parameter :: RHDF5_TSTRING_LEN = 20 +integer :: iztrans,ivtype,n1,n2,n3,ns,idate,itime,ivtime,nngd,i,j,k & + ,deflvl +integer*8 :: rh5_file +real :: fcstsec,a(n1,n2,n3),zlevs(n3),sfclat(n1,n2),sfclon(n1,n2) +character(len=*) :: cvar,cdname,cdunits +character(len=strl1) :: flnm1 +logical,dimension(maxgrds),save :: first_call_for_grid=(/(.true.,i=1,maxgrds)/) +integer,dimension(maxgrds),save :: prior_ivtime=(/(0,i=1,maxgrds)/) +integer, save :: prior_grid = 0 +real, dimension(nplevs) :: plevs +real, dimension(:), allocatable :: vdata,lat_data,lon_data,xdata,ydata,zdata +integer, dimension(RHDF5_MAX_DIMS) :: sdims,lat_dims,lon_dims,zdims,cdims,tdims +real, dimension(max(nzg,nzs,npatch)) :: glevs +character(len=RHDF5_MAX_STRING) :: zunits, zdescrip, tunits +character(len=RHDF5_TSTRING_LEN) :: tstring +character(len=RHDF5_MAX_STRING), dimension(RHDF5_MAX_DIMS) :: dimnames + +!DEBUG +!print*,'===> RAMS_hdf5 => fcstsec: ',fcstsec +!print*,'DEBUG: ivtime: ', ivtime +!print*,'DEBUG: cdname,n1,n2,n3: ',cdname(1:len_trim(cdname)-1),n1,n2,n3 +!print*,'DEBUG: iztrans,ivtype: ',iztrans,ivtype +!print*,'DEBUG: nii,nib,nie,niinc: ',nii,nib,nie,niinc +!print*,'DEBUG: njj,njb,nje,njinc: ',njj,njb,nje,njinc +!print*,'DEBUG: nnb,nne,nninc: ',nnb,nne,nninc +!print*,'DEBUG: zlevs: ', zlevs +!print*,'DEBUG: iplevs: ', iplevs +!print*,'DEBUG: cvar, cdname, cdunits: ', cvar, cdname, cdunits +!print*,'DEBUG: nngd, first_call_for_grid: ', nngd, first_call_for_grid +!flush(6) + +! Data set for this call is stored in: // +! which gets organized in the file as: +! Group: / +! Dataset: +! +! It is assumed that the grid for this variable has been opened, +! ie. it is up to the caller to open the grid + +! Set the variable name, description (cdname) and units. Note that cdname +! and cdunits come with a trailing semicolon which needs to be stripped off; +! Then select the data (XVAR, YVAR, TVAR specs) and write it out attached to +! the group.The 5th argument to rhdf5_write_variable is the time step. +! rhdf5_write_variable will tag on the time step as the size of an additional +! dimension to what is specified with ndims (4th arg set to ivtype). It is +! expected that the time step will increase by one for each successive call. +dimnames(1) = 'x' +dimnames(2) = 'y' +dimnames(3) = 'z' + +! write out the data. deflvl is the compression level (1-9) +! note that compression levels higher than 1 from REVU output +! can produce odd results in some fields such as reflectivity. +! Please use caution with this variable. +deflvl=1 + +CALL rams_hdf5_select_var_data (a,n1,n2,n3,nib,nie,niinc & + ,njb,nje,njinc,nnb,nne,nninc,ivtype,sdims,vdata) +CALL rhdf5_write_variable_rdata (rh5_file,cvar,ivtype,ivtime,sdims & + ,cdunits(1:len_trim(cdunits)-1),cdname(1:len_trim(cdname)-1) & + ,dimnames,deflvl,vdata) +deallocate(vdata) + +! If it is the first time in this routine for this grid, then store lat, +! lon and zlevs, in the grid group. Last arg on rams_hdf5_select_var_data is +! number of dimensions. +if (first_call_for_grid(nngd)) then + ! Select the lat, lon values that correspond to the data selected + ! from the variables + CALL rams_hdf5_select_var_data (sfclat,n1,n2,n3,nib,nie,niinc & + ,njb,nje,njinc,nnb,nne,nninc,2,lat_dims,lat_data) + CALL rams_hdf5_select_var_data (sfclon,n1,n2,n3,nib,nie,niinc & + ,njb,nje,njinc,nnb,nne,nninc,2,lon_dims,lon_data) + ! lat and lon have the same dimensions at this point + CALL rams_hdf5_build_xycoords (lon_dims(1),lon_dims(2),lon_data & + ,lat_data,xdata,ydata) + + ! Select the z values + ! + ! rams_hdf5_select_var_data assumes that 1D data is being stored in the + ! "i" position, that is: the first n1 entries of the input array hold the + ! data and ni* describe how to step through the data. + ! + ! For sigma and cartesian vertical coordinates, zlevs(n3) holds the data for + ! all levels; for pressure vertical coordinates, iplevs(nplevs) holds the + ! data for all levels. For all types of vertical coordinates, nn* describe + ! how to step through the data. Therefore place the n3 (or nplevs) and the + ! nn* variables in the positions where n1 and ni* would normally go. The + ! n2,n3,nj*,nn* arguments are ignored for the 1D case so it doesn't really + ! matter what they are set to. + ! + ! iztrans describes what the vertical levels are + ! 1 - sigma-z + ! 2 - Cartesian + ! 3 - pressure + if (iztrans .eq. 1) then + zunits = 'meter' + zdescrip = 'sigma-z' + CALL rams_hdf5_select_var_data (zlevs,n3,n2,n3,nnb,nne,nninc & + ,njb,nje,njinc,nnb,nne,nninc,1,zdims,zdata) + elseif (iztrans .eq. 2) then + zunits = 'meter' + zdescrip = 'standard height values' + CALL rams_hdf5_select_var_data (zlevs,n3,n2,n3,nnb,nne,nninc & + ,njb,nje,njinc,nnb,nne,nninc,1,zdims,zdata) + elseif (iztrans .eq. 3) then + zunits = 'millibar' + zdescrip = 'standard pressure values' + ! record iplevs as real values + plevs = float(iplevs) + CALL rams_hdf5_select_var_data (plevs,nplevs,n2,n3,nnb,nne,nninc & + ,njb,nje,njinc,nnb,nne,nninc,1,zdims,zdata) + elseif (iztrans .eq. 4) then + zunits = 'none' + zdescrip = 'integer levels or patches' + glevs=(/(i,i=1,max(nzg,nzs,npatch))/) + CALL rams_hdf5_select_var_data (glevs,max(nzg,nzs,npatch),n2,n3 & + ,nnb,max(nzg,nzs,npatch),nninc,njb,nje,njinc,nnb,nne,nninc,1,zdims,zdata) + else + stop 'iztrans should only be 1,2,3,4' + endif + + ! Write out the lat, lon and z data, 5th argument is the time step. Setting + ! to 0 tells rhdf5_write_variable that these variables do not have a time + ! dimension, just (x,y,z). + ! + ! lat_data and lon_data are 2D arrays that contain the latitude and + ! longitude values at every (selected) grid point. These are useful for + ! applications that need to preserve locations from the Earth's surface. + ! + ! Most applications that will be used to produce plots or generate + ! diagnostics want 1D versions of the latitude and longitude (ie, values + ! for the x and y coordinates of the grid). Use the middle column of + ! lon_data for the x coordinate values, and the middle row of lat_data for + ! the y coordinate values. This should produce good enough values for a lot + ! of circumstances. When this isn't good enough the 2D versions of lat and + ! lon can be used. + ! + ! Place the 1D versions of lon and lat into x_coords and y_coords + ! respectively; and place the 2D versions of lon and lat in sfclon and + ! sfclat respectively. + dimnames(1) = 'x' + CALL rhdf5_write_variable_rdata (rh5_file, 'x_coords', 1, 0, lon_dims(1) & + , 'degrees_east', 'longitude', dimnames, deflvl, xdata) + + dimnames(1) = 'y' + CALL rhdf5_write_variable_rdata (rh5_file, 'y_coords', 1, 0, lat_dims(2) & + , 'degrees_north', 'latitude', dimnames, deflvl, ydata) + + dimnames(1) = 'z' + CALL rhdf5_write_variable_rdata (rh5_file, 'z_coords', 1, 0, zdims, zunits & + , zdescrip, dimnames, deflvl, zdata) + + deallocate(zdata) + deallocate(lat_data) + deallocate(lon_data) + deallocate(xdata) + deallocate(ydata) + + first_call_for_grid(nngd) = .false. +endif + +! Write out the time values. Each grid is in a separate file so keep track +! of which time step you are on per grid. The calls to this routine will go +! in order from time step (ivtime) 1...Nt for each grid and each grid has +! it's own file. This works out nice because we never shrink the time +! dimension (which is extendable). Note that the hdf5 interface does not +! support shrinking extendable dimensions at this time so if this sequence +! changes, there may be more work to be done to support shrinking the time +! dimension. +! +! Present the time as real numbers respresenting the number of seconds into +! the simulation (fcstsec). Make the dataset 1D (t dimension only) and use +! the name 't_coords' which allows the code that attaches this dimension data +! to the variable datasets to a + +if (ivtime .ne. prior_ivtime(nngd)) then + ! ndims (third arg) set to zero indicates to rhdf5_write_variable that + ! these are time values + + CALL rams_hdf5_create_time_units (iyear1, imonth1, idate1, itime1, tunits) + dimnames(1) = '' + tdims(1) = 0 + CALL rhdf5_write_variable_fsngl (rh5_file, 't_coords', 0, ivtime, tdims, tunits & + , 'simulation time', dimnames, deflvl, fcstsec) + + prior_ivtime(nngd) = ivtime +endif + +return + +!************************************************************************** +! Routines called by rams_hdf5 go here +! use the 'contains' keyword so that the compiler can do more checking +! (argument types, etc.) 'contains' also allows an allocatable array to be +! passed to a routine where that routine allocates the array +!************************************************************************** +contains + +!*********************************************************************** +! This routine will select data out of the whole field (input "a") according +! to the revu specs XVAR, YVAR, and ZVAR. The information of how to step +! through the "a" array is contained in the nib,nie,niinc,njb,nje,njinc,nnb +! ,nne,nninc inputs. +! +! "a" is considered to be organized as a(i,j,k) regardless of 1D, 2D or 3D +! data meaning that the caller must place the input data into: +! the first n1 entries for 1D data +! the first n1,n2 entries for 2D data +! the n1,n2,n3 (all) entries for 3D data +! This will work out since FORTRAN accesses arrays in a column major fashion +! (that is, the first subscript varies the fastest in the memory image) +! +! The stepping information for selecting the data out of the "a" array are +! given: +! "i" direction: nib, nie, niinc (beginning, end, increment) +! "j" direction: njb, nje, njinc +! "k" direction: nnb, nne, nninc +! +! ndim discerns between 1D, 2D and 3D data which will determine how the +! dataset in rh5_file is allocated + +Subroutine rams_hdf5_select_var_data (a,n1,n2,n3,nib,nie,niinc,njb,nje,njinc & + ,nnb,nne,nninc,ndims,dims,sdata) + +implicit none + + integer :: n1,n2,n3,nib,nie,niinc,njb,nje,njinc,nnb,nne,nninc,ndims + real, dimension(n1,n2,n3) :: a + integer, dimension(*) :: dims + real, dimension(:), allocatable :: sdata + + ! Want the data store in the rh5_file dataset to be contiguous so we can + ! simply write it out into the hdf5 file in one call. Figure out the new + ! dimensions of the data store after the selection has taken place and + ! allocate accordingly. + ! + ! The formula for calculating the number of points in each dimension, using + ! integer arithmetic, is: + ! + ! num_points = ((end - beginning)/increment) + 1 + ! + dims(1) = ((nie - nib)/niinc) + 1 + dims(2) = ((nje - njb)/njinc) + 1 + dims(3) = ((nne - nnb)/nninc) + 1 + + ! Allocate the space for the rh5_file dataset, and then copy the data from + ! the "a" array. The dataset in rh5_file is a 1D array so it can be made + ! to look like any of a 1D, 2D or 3D structure. This depends on calling a + ! routine where you can cast the 1D, 2D or 3D structure on top of the + ! 1D allocated storage. + if (allocated(sdata)) then + deallocate(sdata) + endif + + if (ndims .eq. 1) then + ! 1D data + allocate(sdata(dims(1))) + CALL rams_hdf5_select_1D_data (sdata,a,n1,dims(1),nib,nie,niinc) + elseif (ndims .eq. 2) then + ! 2D data (idim_type=2) + allocate(sdata(dims(1)*dims(2))) + CALL rams_hdf5_select_2D_data (sdata,a,n1,n2,dims(1),dims(2),nib,nie & + ,niinc,njb,nje,njinc) + elseif (ndims .eq. 3) then + ! 3D data (idim_type=3) + allocate(sdata(dims(1)*dims(2)*dims(3))) + CALL rams_hdf5_select_3D_data (sdata,a,n1,n2,n3,dims(1),dims(2),dims(3), & + nib,nie,niinc,njb,nje,njinc,nnb,nne,nninc) + elseif (ndims .eq. 4) then + ! Snow layer data (patch sum) (idim_type=4) + ndims=3 + allocate(sdata(dims(1)*dims(2)*dims(3))) + CALL rams_hdf5_select_3D_data (sdata,a,n1,n2,n3,dims(1),dims(2),dims(3), & + nib,nie,niinc,njb,nje,njinc,nnb,nne,nninc) + elseif (ndims .eq. 5) then + ! Soil layer data (patch sum) (idim_type=5) + ndims=3 + allocate(sdata(dims(1)*dims(2)*dims(3))) + CALL rams_hdf5_select_3D_data (sdata,a,n1,n2,n3,dims(1),dims(2),dims(3), & + nib,nie,niinc,njb,nje,njinc,nnb,nne,nninc) + elseif (ndims .eq. 6) then + ! Patch specific variables (idim_type=6) + ndims=3 + allocate(sdata(dims(1)*dims(2)*dims(3))) + CALL rams_hdf5_select_3D_data (sdata,a,n1,n2,n3,dims(1),dims(2),dims(3), & + nib,nie,niinc,njb,nje,njinc,nnb,nne,nninc) + else + print*,'ERROR: rams_hdf5_select_var_data: ndims = ',ndims,dims(1),dims(2),dims(3) + print*,'Only know how to handle 1D, 2D and 3D arrays' + stop 'rams_hdf5_select_var_data: bad dimensions' + endif + +return +END SUBROUTINE rams_hdf5_select_var_data + +!############################################################################## +Subroutine rams_hdf5_select_1D_data (dat,a,n1,num_i,nib,nie,niinc) + +! This routine will select out 1D data from the "a" array into the +! rh5_file dataset + +implicit none + +integer :: n1,num_i,nib,nie,niinc,ii +real, dimension(n1) :: a +real, dimension(num_i) :: dat + +ii = 1 +do i = nib, nie, niinc + dat(ii) = a(i) + ii = ii + 1 +enddo + +return +END SUBROUTINE rams_hdf5_select_1D_data + +!############################################################################## +Subroutine rams_hdf5_select_2D_data (dat,a,n1,n2,num_i,num_j,nib,nie & + ,niinc,njb,nje,njinc) + +! This routine will select out 2D data from the "a" array into the +! rh5_file dataset + +implicit none + +integer :: n1,n2,num_i,num_j,nib,nie,niinc,njb,nje,njinc,ii,jj +real, dimension(n1,n2) :: a +real, dimension(num_i,num_j) :: dat + +jj = 1 +do j = njb, nje, njinc + ii = 1 + do i = nib, nie, niinc + dat(ii,jj) = a(i,j) + ii = ii + 1 + enddo + jj = jj + 1 +enddo + +return +END SUBROUTINE rams_hdf5_select_2D_data + +!############################################################################## +Subroutine rams_hdf5_select_3D_data (dat,a,n1,n2,n3,num_i,num_j,num_k & + ,nib,nie,niinc,njb,nje,njinc,nnb,nne,nninc) + +! This routine will select out 3D data from the "a" array into the +! rh5_file dataset + +implicit none + +integer :: n1,n2,n3,num_i,num_j,num_k,nib,nie,niinc & + ,njb,nje,njinc,nnb,nne,nninc,ii,jj,kk +real, dimension(n1,n2,n3) :: a +real, dimension(num_i,num_j,num_k) :: dat + +kk = 1 +do k = nnb, nne, nninc + jj = 1 + do j = njb, nje, njinc + ii = 1 + do i = nib, nie, niinc + dat(ii,jj,kk) = a(i,j,k) + ii = ii + 1 + enddo + jj = jj + 1 + enddo + kk = kk + 1 +enddo + +return +END SUBROUTINE rams_hdf5_select_3D_data + +!############################################################################## +Subroutine rams_hdf5_create_time_units (iyear1,imonth1,idate1,itime1,tunits) + +implicit none + +integer :: iyear1,imonth1,idate1,itime1,ihour1,imin1 +character(len=*) :: tunits + +! itime1 is in the format: hhmm +ihour1 = itime1 / 100 +imin1 = itime1 - (ihour1 * 100) + +write(tunits, '(a14,i0.4,a1,i0.2,a1,i0.2,a1,i0.2,a1,i0.2,a9)') & + 'seconds since ', iyear1, '-', imonth1, '-', idate1, ' ' & + , ihour1, ':', imin1, ':00 00:00' + +return +END SUBROUTINE rams_hdf5_create_time_units + +!############################################################################## +Subroutine rams_hdf5_build_xycoords (n1,n2,lon_data,lat_data,xdata,ydata) + +! This routine will select a representative column from the 2D longitude +! data (lon_data) to place in xdata, and a representative row from +! the 2D latitude data (lat_data) to place in ydata. +! +! Use the middle column (row) for xdata (ydata) for now. +! formula for "middle" +! if the "other" dimension is < 3, then set the middle to 1 +! else +! integer divide the "other" dimension by 2 +! add 1 to result +! (this gets the middle if the other dim is odd, next entry +! past middle if the other dim is even) + +implicit none + +integer :: n1,n2,i,mid +real, dimension(n1,n2) :: lon_data, lat_data +real, dimension(:), allocatable :: xdata,ydata + +mid = 1 +if (n2 .gt. 2) then + mid = (n2 / 2) + 1 +endif +allocate(xdata(n1)) +! xdata gets first column of lon_data +do i = 1, n1 + xdata(i) = lon_data(i,mid) +enddo + +mid = 1 +if (n1 .gt. 2) then + mid = (n1 / 2) + 1 +endif +allocate(ydata(n2)) +! ydata gets first row of lat_data +do i = 1, n2 + ydata(i) = lat_data(mid,i) +enddo + +return +END SUBROUTINE rams_hdf5_build_xycoords + +END SUBROUTINE rams_hdf5 + diff --git a/src/6.2.16/revu/getvar.f90 b/src/6.2.16/revu/getvar.f90 new file mode 100644 index 0000000..d088cb0 --- /dev/null +++ b/src/6.2.16/revu/getvar.f90 @@ -0,0 +1,81 @@ +!############################################################################## +integer Function rams_getvar (string,itype,ngrd,a,flnm) + +use mem_grid +use node_mod +use an_header +use hdf5_utils +use rcommons + +implicit none + +real :: a(*) +integer :: itype,ngrd,ni,npts,iword +character(len=*) :: flnm,string +character(len=1) :: cgrid +character(len=strl1) :: flng,errmsg +logical :: there + +!File and parallel info (should only do this sequentially, not parallel) +integer :: iphdf5 +integer*8 :: h5_fid +type (hdf5_select_type) :: mem_select,file_select +integer, dimension(HDF5_MAX_DIMS) :: file_chunks + +!Not running in parallel so use default info for sequential +if (nmachs .gt. 1) then + stop 'Should not be attempting to run REVU in parallel' +else + iphdf5 = 0 +endif + +! First see if data file for this grid/time exists... + +write(cgrid,'(i1)') ngrd +flng=trim(flnm)//'-g'//cgrid//'.h5' +inquire(file=flng,exist=there) + +if(.not.there) then + errmsg='File not found - '//flng + CALL error_mess (trim(errmsg)) + rams_getvar=2 + return +endif + +! Now search table for actual variable +do ni=1,nvbtab + if(string == anal_table(ni)%string.and.ngrd == anal_table(ni)%ngrid) then + + npts=anal_table(ni)%nvalues + itype=anal_table(ni)%idim_type + iword=anal_table(ni)%npointer + + CALL shdf5_open (trim(flng),'R',iphdf5,h5_fid) + !call shdf5_info (h5_fid,string,ndims,idims) + !npts_chk=product(idims(1:ndims)) + !if (npts /= npts_chk) then + ! print*,'No. of points in anal table and in hdf5 file do not match.' + ! print*,' anal field:',string + ! print*,' anal table:',npts + ! print*,' hdf5 file :',idims(1:ndims) + ! print*,' hdf5 file :',npts_chk + ! stop + !endif + CALL shdf5_set_hs_select (itype,'R',ngrd,mem_select,file_select,file_chunks) + CALL shdf5_irec (h5_fid,iphdf5,trim(string),mem_select,file_select,rvara=a) + CALL shdf5_close (h5_fid) + + rams_getvar=0 + ifound=ifound+1 + return + + endif +enddo + +errmsg='Variable not available in this run - '//trim(string) +CALL error_mess (trim(errmsg)) +rams_getvar=1 +ierr_getvar=1 + +return +END FUNCTION rams_getvar diff --git a/src/6.2.16/revu/hvlib.f90 b/src/6.2.16/revu/hvlib.f90 new file mode 100644 index 0000000..1b0150b --- /dev/null +++ b/src/6.2.16/revu/hvlib.f90 @@ -0,0 +1,5687 @@ +!############################################################################## +Subroutine rams_varlib (cvar,n1,n2,n3,ngrd,a,b,flnm,cdname,cdunits) + +use micphys +use rcommons +use mem_grid + +implicit none + +integer :: n1,n2,n3,ngrd,lv,idim_type,irecind,irecsize,irecsizep,ierr,kp +character(len=*) :: cvar,flnm,cdname,cdunits +real :: a(*),b(*) +real, allocatable, save :: c(:),d(:),e(:),f(:) +integer, external :: rams_getvar +integer, external :: lastchar +real, allocatable, dimension(:,:,:) :: pv1,pv2,pv3,pv4,pv5,pv6,pv7,pv8,pv9 +real, allocatable, dimension(:,:) :: dv1,dv2,dv3,dv4,dv5,dv6,dv7,dv8,dv9 + +!Arrays for computing reflectivity +!tmp arrays for mixing ratios +real, allocatable, dimension(:,:,:) :: trmix,tgmix,thmix,tpmix,tsmix,tamix +!tmp arrays for # conc's +real, allocatable, dimension(:,:,:) :: trnt,tgnt,thnt,tpnt,tsnt,tant +real, allocatable, dimension(:,:,:) :: reflc !array for rflctvty values +real, allocatable, dimension(:,:,:) :: tden !array for grd pt density + +if(maxmem > 0) then + if (allocated(c)) deallocate (c); allocate(c(maxmem)) + if (allocated(d)) deallocate (d); allocate(d(maxmem)) + if (allocated(e)) deallocate (e); allocate(e(maxmem)) + if (allocated(f)) deallocate (f); allocate(f(maxmem)) +endif + +lv=lastchar(cvar) +!print*,'===> varlib- ',cvar,n1,n2,n3,ngrd + +ivar_type=0 +ierr_getvar=0 +ierr=0 +ifound=0 +iany=0 +iptrans_lim=0 + +!########################################################################### +! EMPTY PLACEHOLDER VARIABLE WITH ZEROS - 1 +!########################################################################### +if(cvar(1:lv).eq.'empty3d') then + ivar_type=3 + ierr=rams_getvar('UP',idim_type,ngrd,a,flnm) + CALL rams_comp_empty (n1,n2,n3,a) + cdname='empty-3D-variable;' + cdunits='none;' + +!###################################################################### +! AOD DATA FROM OFFLINE CODE - 18 variables +!###################################################################### +elseif(cvar(1:lv).eq.'ccn_dry_AOD_550') then + ivar_type=2 + iptrans_lim=1 + ierr=rams_getvar('ccn_dry_AOD_550',idim_type,ngrd,a,flnm) + cdname='ccn_dry_AOD_550;' + cdunits='AOD;' + +elseif(cvar(1:lv).eq.'ccn_wet_AOD_550') then + ivar_type=2 + iptrans_lim=1 + ierr=rams_getvar('ccn_wet_AOD_550',idim_type,ngrd,a,flnm) + cdname='ccn_wet_AOD_550;' + cdunits='AOD;' + +elseif(cvar(1:lv).eq.'dust1_dry_AOD_550') then + ivar_type=2 + iptrans_lim=1 + ierr=rams_getvar('dust1_dry_AOD_550',idim_type,ngrd,a,flnm) + cdname='dust1_dry_AOD_550;' + cdunits='AOD;' + +elseif(cvar(1:lv).eq.'dust1_wet_AOD_550') then + ivar_type=2 + iptrans_lim=1 + ierr=rams_getvar('dust1_wet_AOD_550',idim_type,ngrd,a,flnm) + cdname='dust1_wet_AOD_550;' + cdunits='AOD;' + +elseif(cvar(1:lv).eq.'dust2_dry_AOD_550') then + ivar_type=2 + iptrans_lim=1 + ierr=rams_getvar('dust2_dry_AOD_550',idim_type,ngrd,a,flnm) + cdname='dust2_dry_AOD_550;' + cdunits='AOD;' + +elseif(cvar(1:lv).eq.'dust2_wet_AOD_550') then + ivar_type=2 + iptrans_lim=1 + ierr=rams_getvar('dust2_wet_AOD_550',idim_type,ngrd,a,flnm) + cdname='dust2_wet_AOD_550;' + cdunits='AOD;' + +elseif(cvar(1:lv).eq.'regen_aero1_dry_AOD_550') then + ivar_type=2 + iptrans_lim=1 + ierr=rams_getvar('regen_aero1_dry_AOD_550',idim_type,ngrd,a,flnm) + cdname='regen_aero1_dry_AOD_550;' + cdunits='AOD;' + +elseif(cvar(1:lv).eq.'regen_aero1_wet_AOD_550') then + ivar_type=2 + iptrans_lim=1 + ierr=rams_getvar('regen_aero1_wet_AOD_550',idim_type,ngrd,a,flnm) + cdname='regen_aero1_wet_AOD_550;' + cdunits='AOD;' + +elseif(cvar(1:lv).eq.'regen_aero2_dry_AOD_550') then + ivar_type=2 + iptrans_lim=1 + ierr=rams_getvar('regen_aero2_dry_AOD_550',idim_type,ngrd,a,flnm) + cdname='regen_aero2_dry_AOD_550;' + cdunits='AOD;' + +elseif(cvar(1:lv).eq.'regen_aero2_wet_AOD_550') then + ivar_type=2 + iptrans_lim=1 + ierr=rams_getvar('regen_aero2_wet_AOD_550',idim_type,ngrd,a,flnm) + cdname='regen_aero2_wet_AOD_550;' + cdunits='AOD;' + +elseif(cvar(1:lv).eq.'salt_film_dry_AOD_550') then + ivar_type=2 + iptrans_lim=1 + ierr=rams_getvar('salt_film_dry_AOD_550',idim_type,ngrd,a,flnm) + cdname='salt_film_dry_AOD_550;' + cdunits='AOD;' + +elseif(cvar(1:lv).eq.'salt_film_wet_AOD_550') then + ivar_type=2 + iptrans_lim=1 + ierr=rams_getvar('salt_film_wet_AOD_550',idim_type,ngrd,a,flnm) + cdname='salt_film_wet_AOD_550;' + cdunits='AOD;' + +elseif(cvar(1:lv).eq.'salt_jet_dry_AOD_550') then + ivar_type=2 + iptrans_lim=1 + ierr=rams_getvar('salt_jet_dry_AOD_550',idim_type,ngrd,a,flnm) + cdname='salt_jet_dry_AOD_550;' + cdunits='AOD;' + +elseif(cvar(1:lv).eq.'salt_jet_wet_AOD_550') then + ivar_type=2 + iptrans_lim=1 + ierr=rams_getvar('salt_jet_wet_AOD_550',idim_type,ngrd,a,flnm) + cdname='salt_jet_wet_AOD_550;' + cdunits='AOD;' + +elseif(cvar(1:lv).eq.'salt_spume_dry_AOD_550') then + ivar_type=2 + iptrans_lim=1 + ierr=rams_getvar('salt_spume_dry_AOD_550',idim_type,ngrd,a,flnm) + cdname='salt_spume_dry_AOD_550;' + cdunits='AOD;' + +elseif(cvar(1:lv).eq.'salt_spume_wet_AOD_550') then + ivar_type=2 + iptrans_lim=1 + ierr=rams_getvar('salt_spume_wet_AOD_550',idim_type,ngrd,a,flnm) + cdname='salt_spume_wet_AOD_550;' + cdunits='AOD;' + +elseif(cvar(1:lv).eq.'Total_dry_AOD_550') then + ivar_type=2 + iptrans_lim=1 + ierr=rams_getvar('Total_dry_AOD_550',idim_type,ngrd,a,flnm) + cdname='Total_dry_AOD_550;' + cdunits='AOD;' + +elseif(cvar(1:lv).eq.'Total_wet_AOD_550') then + ivar_type=2 + iptrans_lim=1 + ierr=rams_getvar('Total_wet_AOD_550',idim_type,ngrd,a,flnm) + cdname='Total_wet_AOD_550;' + cdunits='AOD;' + +!###################################################################### +! EXTINCTION COEFFICIENT DATA FROM OFFLINE CODE - 18 variables +!###################################################################### +elseif(cvar(1:lv).eq.'ccn_dry_ext_550') then + ivar_type=3 + iptrans_lim=1 + ierr=rams_getvar('ccn_dry_ext_550',idim_type,ngrd,a,flnm) + cdname='ccn_dry_ext_550;' + cdunits='1/Mm;' + +elseif(cvar(1:lv).eq.'ccn_wet_ext_550') then + ivar_type=3 + iptrans_lim=1 + ierr=rams_getvar('ccn_wet_ext_550',idim_type,ngrd,a,flnm) + cdname='ccn_wet_ext_550;' + cdunits='1/Mm;' + +elseif(cvar(1:lv).eq.'dust1_dry_ext_550') then + ivar_type=3 + iptrans_lim=1 + ierr=rams_getvar('dust1_dry_ext_550',idim_type,ngrd,a,flnm) + cdname='dust1_dry_ext_550;' + cdunits='1/Mm;' + +elseif(cvar(1:lv).eq.'dust1_wet_ext_550') then + ivar_type=3 + iptrans_lim=1 + ierr=rams_getvar('dust1_wet_ext_550',idim_type,ngrd,a,flnm) + cdname='dust1_wet_ext_550;' + cdunits='1/Mm;' + +elseif(cvar(1:lv).eq.'dust2_dry_ext_550') then + ivar_type=3 + iptrans_lim=1 + ierr=rams_getvar('dust2_dry_ext_550',idim_type,ngrd,a,flnm) + cdname='dust2_dry_ext_550;' + cdunits='1/Mm;' + +elseif(cvar(1:lv).eq.'dust2_wet_ext_550') then + ivar_type=3 + iptrans_lim=1 + ierr=rams_getvar('dust2_wet_ext_550',idim_type,ngrd,a,flnm) + cdname='dust2_wet_ext_550;' + cdunits='1/Mm;' + +elseif(cvar(1:lv).eq.'regen_aero1_dry_ext_550') then + ivar_type=3 + iptrans_lim=1 + ierr=rams_getvar('regen_aero1_dry_ext_550',idim_type,ngrd,a,flnm) + cdname='regen_aero1_dry_ext_550;' + cdunits='1/Mm;' + +elseif(cvar(1:lv).eq.'regen_aero1_wet_ext_550') then + ivar_type=3 + iptrans_lim=1 + ierr=rams_getvar('regen_aero1_wet_ext_550',idim_type,ngrd,a,flnm) + cdname='regen_aero1_wet_ext_550;' + cdunits='1/Mm;' + +elseif(cvar(1:lv).eq.'regen_aero2_dry_ext_550') then + ivar_type=3 + iptrans_lim=1 + ierr=rams_getvar('regen_aero2_dry_ext_550',idim_type,ngrd,a,flnm) + cdname='regen_aero2_dry_ext_550;' + cdunits='1/Mm;' + +elseif(cvar(1:lv).eq.'regen_aero2_wet_ext_550') then + ivar_type=3 + iptrans_lim=1 + ierr=rams_getvar('regen_aero2_wet_ext_550',idim_type,ngrd,a,flnm) + cdname='regen_aero2_wet_ext_550;' + cdunits='1/Mm;' + +elseif(cvar(1:lv).eq.'salt_film_dry_ext_550') then + ivar_type=3 + iptrans_lim=1 + ierr=rams_getvar('salt_film_dry_ext_550',idim_type,ngrd,a,flnm) + cdname='salt_film_dry_ext_550;' + cdunits='1/Mm;' + +elseif(cvar(1:lv).eq.'salt_film_wet_ext_550') then + ivar_type=3 + iptrans_lim=1 + ierr=rams_getvar('salt_film_wet_ext_550',idim_type,ngrd,a,flnm) + cdname='salt_film_wet_ext_550;' + cdunits='1/Mm;' + +elseif(cvar(1:lv).eq.'salt_jet_dry_ext_550') then + ivar_type=3 + iptrans_lim=1 + ierr=rams_getvar('salt_jet_dry_ext_550',idim_type,ngrd,a,flnm) + cdname='salt_jet_dry_ext_550;' + cdunits='1/Mm;' + +elseif(cvar(1:lv).eq.'salt_jet_wet_ext_550') then + ivar_type=3 + iptrans_lim=1 + ierr=rams_getvar('salt_jet_wet_ext_550',idim_type,ngrd,a,flnm) + cdname='salt_jet_wet_ext_550;' + cdunits='1/Mm;' + +elseif(cvar(1:lv).eq.'salt_spume_dry_ext_550') then + ivar_type=3 + iptrans_lim=1 + ierr=rams_getvar('salt_spume_dry_ext_550',idim_type,ngrd,a,flnm) + cdname='salt_spume_dry_ext_550;' + cdunits='1/Mm;' + +elseif(cvar(1:lv).eq.'salt_spume_wet_ext_550') then + ivar_type=3 + iptrans_lim=1 + ierr=rams_getvar('salt_spume_wet_ext_550',idim_type,ngrd,a,flnm) + cdname='salt_spume_wet_ext_550;' + cdunits='1/Mm;' + +elseif(cvar(1:lv).eq.'Total_dry_ext_550') then + ivar_type=3 + iptrans_lim=1 + ierr=rams_getvar('Total_dry_ext_550',idim_type,ngrd,a,flnm) + cdname='Total_dry_ext_550;' + cdunits='1/Mm;' + +elseif(cvar(1:lv).eq.'Total_wet_ext_550') then + ivar_type=3 + iptrans_lim=1 + ierr=rams_getvar('Total_wet_ext_550',idim_type,ngrd,a,flnm) + cdname='Total_wet_ext_550;' + cdunits='1/Mm;' + +!########################################################################### +! 3D VELOCITY AND VORTICITY VARIABLES - 21 variables +!########################################################################### +elseif(cvar(1:lv).eq.'u') then + ivar_type=3 + ierr=rams_getvar('UP',idim_type,ngrd,a,flnm) + cdname='u;' + cdunits='m/s;' + +elseif(cvar(1:lv).eq.'v') then + ivar_type=3 + ierr=rams_getvar('VP',idim_type,ngrd,a,flnm) + cdname='v;' + cdunits='m/s;' + +elseif(cvar(1:lv).eq.'u_avg') then + ivar_type=3 + ierr=rams_getvar('UP',idim_type,ngrd,a,flnm) + CALL rams_comp_avgu (n1,n2,n3,a) + cdname='u_avg;' + cdunits='m/s;' + +elseif(cvar(1:lv).eq.'v_avg') then + ivar_type=3 + ierr=rams_getvar('VP',idim_type,ngrd,a,flnm) + CALL rams_comp_avgv (n1,n2,n3,a) + cdname='v_avg;' + cdunits='m/s;' + +elseif(cvar(1:lv).eq.'ue') then + ivar_type=3 + ierr=rams_getvar('UP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('VP',idim_type,ngrd,c,flnm) + CALL rams_comp_rotate (n1,n2,n3,a,c,ngrd) + cdname='ue;' + cdunits='m/s;' + +elseif(cvar(1:lv).eq.'ve') then + ivar_type=3 + ierr=rams_getvar('VP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('UP',idim_type,ngrd,c,flnm) + CALL rams_comp_rotate (n1,n2,n3,c,a,ngrd) + cdname='ve;' + cdunits='m/s;' + +elseif(cvar(1:lv).eq.'ue_avg') then + ivar_type=3 + ierr=rams_getvar('UP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('VP',idim_type,ngrd,c,flnm) + CALL rams_comp_rotate (n1,n2,n3,a,c,ngrd) + CALL rams_comp_avgu (n1,n2,n3,a) + cdname='ue_avg;' + cdunits='m/s;' + +elseif(cvar(1:lv).eq.'ve_avg') then + ivar_type=3 + ierr=rams_getvar('VP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('UP',idim_type,ngrd,c,flnm) + CALL rams_comp_rotate (n1,n2,n3,c,a,ngrd) + CALL rams_comp_avgv (n1,n2,n3,a) + cdname='ve_avg;' + cdunits='m/s;' + +elseif(cvar(1:lv).eq.'w') then + ivar_type=3 + ierr=rams_getvar('WP',idim_type,ngrd,a,flnm) + cdname='w;' + cdunits='m/s;' + +elseif(cvar(1:lv).eq.'wcms') then + ivar_type=3 + ierr=rams_getvar('WP',idim_type,ngrd,a,flnm) + CALL rams_comp_wcms (n1,n2,n3,a) + cdname='w;' + cdunits='cm/s;' + +elseif(cvar(1:lv).eq.'w_avg') then + ivar_type=3 + ierr=rams_getvar('WP',idim_type,ngrd,a,flnm) + CALL rams_comp_avgw (n1,n2,n3,a) + cdname='w_avg;' + cdunits='m/s;' + +elseif(cvar(1:lv).eq.'speed') then + ivar_type=3 + ierr=rams_getvar('UP',idim_type,ngrd,a,flnm) + CALL rams_comp_avgu (n1,n2,n3,a) + ierr=rams_getvar('VP',idim_type,ngrd,c,flnm) + CALL rams_comp_avgv (n1,n2,n3,c) + CALL rams_comp_speed (n1,n2,n3,a,c) + cdname='speed;' + cdunits='m/s;' + +elseif(cvar(1:lv).eq.'speed_mph') then + ivar_type=3 + ierr=rams_getvar('UP',idim_type,ngrd,a,flnm) + CALL rams_comp_avgu (n1,n2,n3,a) + ierr=rams_getvar('VP',idim_type,ngrd,c,flnm) + CALL rams_comp_avgv (n1,n2,n3,c) + CALL rams_comp_speed (n1,n2,n3,a,c) + CALL rams_comp_mults (n1,n2,n3,a,2.237) + cdname='speed;' + cdunits='mph;' + +elseif(cvar(1:lv).eq.'speed10m') then + ivar_type=2 + ierr=rams_getvar('UP',idim_type,ngrd,c,flnm) + ierr=rams_getvar('VP',idim_type,ngrd,d,flnm) + CALL rams_comp_speed (n1,n2,n3,c,d) + ierr=rams_getvar('THETA',idim_type,ngrd,d,flnm) + ierr=rams_getvar('PI',idim_type,ngrd,f,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + allocate (pv1(nnxp(ngrd),nnyp(ngrd),npatch)) + allocate (pv2(nnxp(ngrd),nnyp(ngrd),npatch)) + allocate (pv3(nnxp(ngrd),nnyp(ngrd),npatch)) + allocate (pv4(nnxp(ngrd),nnyp(ngrd),npatch)) + ierr=rams_getvar('USTAR',idim_type,ngrd,pv1,flnm) + ierr=rams_getvar('PATCH_ROUGH',idim_type,ngrd,pv2,flnm) + ierr=rams_getvar('CAN_TEMP',idim_type,ngrd,pv3,flnm) + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,pv4,flnm) + CALL rams_reduced_wind (nnxp(ngrd),nnyp(ngrd),nnzp(ngrd),npatch & + ,a,c,pv1,10.,ztn(2,ngrd),pv2,pv4,pv3,d,f,e & + ,zmn(nnzp(1)-1,1)) + deallocate (pv1,pv2,pv3,pv4) + cdname='speed-10m-AGL;' + cdunits='m/s;' + +elseif(cvar(1:lv).eq.'direction') then + ivar_type=3 + ierr=rams_getvar('UP',idim_type,ngrd,a,flnm) + CALL rams_comp_avgu (n1,n2,n3,a) + ierr=rams_getvar('VP',idim_type,ngrd,c,flnm) + CALL rams_comp_avgv (n1,n2,n3,a) + CALL rams_comp_dir (n1,n2,n3,a,c,ngrd) + cdname='direction;' + cdunits='deg;' + +elseif(cvar(1:lv).eq.'relvortx') then + ivar_type=3 + ierr=rams_getvar('VP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('WP',idim_type,ngrd,c,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,d,flnm) + CALL rams_comp_relvortx (n1,n2,n3,a,c,b,d,ngrd) + cdname='x-vorticity;' + cdunits='rad/s;' + +elseif(cvar(1:lv).eq.'relvorty') then + ivar_type=3 + ierr=rams_getvar('UP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('WP',idim_type,ngrd,c,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,d,flnm) + CALL rams_comp_relvorty (n1,n2,n3,a,c,b,d,ngrd) + cdname='y-vorticity;' + cdunits='rad/s;' + +elseif(cvar(1:lv).eq.'relvortz') then + ivar_type=3 + ierr=rams_getvar('UP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('VP',idim_type,ngrd,c,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,d,flnm) + CALL rams_comp_relvortz (n1,n2,n3,a,c,b,d,ngrd) + cdname='relative-z-vorticity;' + cdunits='rad/s;' + +elseif(cvar(1:lv).eq.'absvortz') then + ivar_type=3 + ierr=rams_getvar('UP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('VP',idim_type,ngrd,c,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,d,flnm) + CALL rams_comp_totvortz (n1,n2,n3,a,c,b,d,ngrd) + cdname='absolute-z-vorticity;' + cdunits='rad/s;' + +elseif(cvar(1:lv).eq.'potvortz') then + ivar_type=3 + ierr=rams_getvar('UP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('VP',idim_type,ngrd,c,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,d,flnm) + CALL rams_comp_totvortz (n1,n2,n3,a,c,b,d,ngrd) + CALL rams_comp_dn0 (n1,n2,n3,e,b,c,d,ngrd) + ierr=rams_getvar('THETA',idim_type,ngrd,b,flnm) + CALL rams_comp_potvortz (n1,n2,n3,a,b,c,e,d,ngrd) + CALL rams_comp_mults (n1,n2,n3,a, 9.80 ) + cdname='potential-z-vorticity;' + cdunits='rad/s;' + +elseif(cvar(1:lv).eq.'horiz_div') then + ivar_type=3 + ierr=rams_getvar('TOPT',idim_type,ngrd,d,flnm) + ierr=rams_getvar('WP',idim_type,ngrd,a,flnm) + CALL rams_comp_horizdiv (n1,n2,n3,a,d,ngrd) + cdname='horizontal-divergence;' + cdunits='/s;' + +!##################################################################### +! 3D THERMODYNAMIC PROPERTIES OF AIR - 18 variables +!##################################################################### +elseif(cvar(1:lv).eq.'pi') then + ivar_type=3 + ierr=rams_getvar('PI',idim_type,ngrd,a,flnm) + cdname='Exner-func;' + cdunits='J/(kg*K);' + +elseif(cvar(1:lv).eq.'press') then + ivar_type=3 + ierr=rams_getvar('PI',idim_type,ngrd,a,flnm) + CALL rams_comp_press (n1,n2,n3,a) + cdname='pressure;' + cdunits='mb;' + +elseif(cvar(1:lv).eq.'pprime') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,a,flnm) + CALL rams_comp_z (n1,n2,n3,c,a,ngrd) + + ierr=rams_getvar('PI',idim_type,ngrd,d,flnm) + ierr=rams_getvar('THETA',idim_type,ngrd,a,flnm) + CALL rams_comp_slpress (n1,n2,n3,a,d,c,a) + + ierr=rams_getvar('GLAT',idim_type,ngrd,c,flnm) + CALL rams_comp_pprime (n1,n2,n3,a,c) + cdname='mslp-perturbation;' + cdunits='mb;' + +elseif(cvar(1:lv).eq.'theta_il') then + ivar_type=3 + ierr=rams_getvar('THP',idim_type,ngrd,a,flnm) + cdname='ice-liquid-potential-temp;' + cdunits='K;' + +elseif(cvar(1:lv).eq.'theta') then + ivar_type=3 + ierr=rams_getvar('THETA',idim_type,ngrd,a,flnm) + cdname='potential-temperature;' + cdunits='K;' + +elseif(cvar(1:lv).eq.'dn0') then + ivar_type=3 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,a,e,ngrd) + cdname='reference-density;' + cdunits='kg/m3;' + +elseif(cvar(1:lv).eq.'pi0') then + ivar_type=3 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,a,b,c,e,ngrd) + cdname='reference-Exner-func;' + cdunits='J/(kg K);' + +elseif(cvar(1:lv).eq.'th0') then + ivar_type=3 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,a,c,e,ngrd) + cdname='reference-virtual-potential-temp;' + cdunits='K;' + +elseif(cvar(1:lv).eq.'pert_pressure') then + ivar_type=3 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,a,b,e,ngrd) + ierr=rams_getvar('PI',idim_type,ngrd,a,flnm) + if (ierr.eq.0) CALL rams_comp_ppress (n1,n2,n3,a,c) + cdname='perturbation-pressure;' + cdunits='mb;' + +elseif(cvar(1:lv).eq.'tempk') then + ivar_type=3 + ierr=rams_getvar('THETA',idim_type,ngrd,a,flnm) + ierr=rams_getvar('PI',idim_type,ngrd,c,flnm) + CALL rams_comp_tempK (n1,n2,n3,a,c) + cdname='temperature;' + cdunits='K;' + +elseif(cvar(1:lv).eq.'tempc') then + ivar_type=3 + ierr=rams_getvar('THETA',idim_type,ngrd,a,flnm) + ierr=rams_getvar('PI',idim_type,ngrd,c,flnm) + CALL rams_comp_tempK (n1,n2,n3,a,c) + CALL rams_comp_tempC (n1,n2,n3,a) + cdname='temperature;' + cdunits='C;' + +elseif(cvar(1:lv).eq.'tempf') then + ivar_type=3 + ierr=rams_getvar('THETA',idim_type,ngrd,a,flnm) + ierr=rams_getvar('PI',idim_type,ngrd,c,flnm) + CALL rams_comp_tempK (n1,n2,n3,a,c) + CALL rams_comp_tempF (n1,n2,n3,a) + cdname='temperature;' + cdunits='F;' + +elseif(cvar(1:lv).eq.'theta_e') then + ivar_type=3 + ierr=rams_getvar('RV',idim_type,ngrd,a,flnm) + ierr=rams_getvar('PI',idim_type,ngrd,c,flnm) + ierr=rams_getvar('THETA',idim_type,ngrd,d,flnm) + CALL rams_comp_thete (n1,n2,n3,a,c,d) + cdname='equivalent-potential-temp;' + cdunits='K;' + +elseif(cvar(1:lv).eq.'theta_v') then + ivar_type=3 + ierr=rams_getvar('THETA',idim_type,ngrd,a,flnm) + ierr=rams_getvar('RV',idim_type,ngrd,c,flnm) + CALL rams_comp_thetv (n1,n2,n3,a,c) + cdname='virtual-potential-temp;' + cdunits='K;' + +elseif(cvar(1:lv).eq.'theta_rho') then + ivar_type=3 + ierr=rams_getvar('THETA',idim_type,ngrd,a,flnm) + ierr=rams_getvar('RV',idim_type,ngrd,c,flnm) + ierr=rams_getvar('RCP',idim_type,ngrd,d,flnm) + ierr=rams_getvar('RRP',idim_type,ngrd,e,flnm) + CALL rams_comp_thetrho (n1,n2,n3,a,c,d,e) + cdname='density-potential-temp;' + cdunits='K;' + +elseif(cvar(1:lv).eq.'buoyancy_liquid') then + ivar_type=3 + ierr=rams_getvar('THETA',idim_type,ngrd,a,flnm) + ierr=rams_getvar('RV',idim_type,ngrd,c,flnm) + ierr=rams_getvar('RCP',idim_type,ngrd,d,flnm) + ierr=rams_getvar('RRP',idim_type,ngrd,e,flnm) + CALL rams_comp_thetrho_buoy (n1,n2,n3,a,c,d,e) + cdname='buoyancy-liquid;' + cdunits='m/s2;' + +elseif(cvar(1:lv).eq.'tempf2m') then + ivar_type=2 + ierr=rams_getvar('UP',idim_type,ngrd,c,flnm) + ierr=rams_getvar('VP',idim_type,ngrd,d,flnm) + CALL rams_comp_speed (n1,n2,n3,c,d) + ierr=rams_getvar('THETA',idim_type,ngrd,d,flnm) + ierr=rams_getvar('PI',idim_type,ngrd,f,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + allocate (pv1(nnxp(ngrd),nnyp(ngrd),npatch)) + allocate (pv2(nnxp(ngrd),nnyp(ngrd),npatch)) + allocate (pv3(nnxp(ngrd),nnyp(ngrd),npatch)) + allocate (pv4(nnxp(ngrd),nnyp(ngrd),npatch)) + allocate (pv5(nnxp(ngrd),nnyp(ngrd),npatch)) + ierr=rams_getvar('USTAR',idim_type,ngrd,pv1,flnm) + ierr=rams_getvar('SOIL_ROUGH',idim_type,ngrd,pv2,flnm) + ierr=rams_getvar('CAN_TEMP',idim_type,ngrd,pv3,flnm) + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,pv4,flnm) + ierr=rams_getvar('TSTAR',idim_type,ngrd,pv5,flnm) + CALL rams_reduced_temp (nnxp(ngrd),nnyp(ngrd),nnzp(ngrd),npatch & + ,a,c,pv1,pv5,2.,ztn(2,ngrd),pv2,pv4,pv3,d,f,e & + ,zmn(nnzp(1)-1,1)) + deallocate (pv1,pv2,pv3,pv4,pv5) + CALL rams_comp_tempK (n1,n2,1,a,f) + CALL rams_comp_tempF (n1,n2,1,a) + cdname='temp-2m-AGL;' + cdunits='F;' + +elseif(cvar(1:lv).eq.'tempc2m') then + ivar_type=2 + ierr=rams_getvar('UP',idim_type,ngrd,c,flnm) + ierr=rams_getvar('VP',idim_type,ngrd,d,flnm) + CALL rams_comp_speed (n1,n2,n3,c,d) + ierr=rams_getvar('THETA',idim_type,ngrd,d,flnm) + ierr=rams_getvar('PI',idim_type,ngrd,f,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + allocate (pv1(nnxp(ngrd),nnyp(ngrd),npatch)) + allocate (pv2(nnxp(ngrd),nnyp(ngrd),npatch)) + allocate (pv3(nnxp(ngrd),nnyp(ngrd),npatch)) + allocate (pv4(nnxp(ngrd),nnyp(ngrd),npatch)) + allocate (pv5(nnxp(ngrd),nnyp(ngrd),npatch)) + ierr=rams_getvar('USTAR',idim_type,ngrd,pv1,flnm) + ierr=rams_getvar('SOIL_ROUGH',idim_type,ngrd,pv2,flnm) + ierr=rams_getvar('CAN_TEMP',idim_type,ngrd,pv3,flnm) + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,pv4,flnm) + ierr=rams_getvar('TSTAR',idim_type,ngrd,pv5,flnm) + CALL rams_reduced_temp (nnxp(ngrd),nnyp(ngrd),nnzp(ngrd),npatch & + ,a,c,pv1,pv5,2.,ztn(2,ngrd),pv2,pv4,pv3,d,f,e & + ,zmn(nnzp(1)-1,1)) + deallocate (pv1,pv2,pv3,pv4,pv5) + CALL rams_comp_tempK (n1,n2,1,a,f) + CALL rams_comp_tempC (n1,n2,1,a) + cdname='temp-2m-AGL;' + cdunits='C;' + +!##################################################################### +!3D HYDROMETEOR GAMMA DISTRIBUTION INFO - 20 variables +!##################################################################### +elseif(cvar(1:lv).eq.'cloud_gam_dm') then + ivar_type=3 + ierr=rams_getvar('RCP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CCP',idim_type,ngrd,f,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mult (n1,n2,n3,f,d) + CALL rams_comp_hydrogamma (n1,n2,n3,a,f,cfmas(1),pwmas(1),gnu(1),1) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + cdname='cloud-gamma-dm;' + cdunits='microns;' +elseif(cvar(1:lv).eq.'cloud_gam_d0') then + ivar_type=3 + ierr=rams_getvar('RCP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CCP',idim_type,ngrd,f,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mult (n1,n2,n3,f,d) + CALL rams_comp_hydrogamma (n1,n2,n3,a,f,cfmas(1),pwmas(1),gnu(1),2) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + cdname='cloud-gamma-d0;' + cdunits='microns;' +elseif(cvar(1:lv).eq.'rain_gam_dm') then + ivar_type=3 + ierr=rams_getvar('RRP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CRP',idim_type,ngrd,f,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mult (n1,n2,n3,f,d) + CALL rams_comp_hydrogamma (n1,n2,n3,a,f,cfmas(2),pwmas(2),gnu(2),1) + cdname='rain-gamma-dm;' + cdunits='mm;' +elseif(cvar(1:lv).eq.'rain_gam_d0') then + ivar_type=3 + ierr=rams_getvar('RRP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CRP',idim_type,ngrd,f,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mult (n1,n2,n3,f,d) + CALL rams_comp_hydrogamma (n1,n2,n3,a,f,cfmas(2),pwmas(2),gnu(2),2) + cdname='rain-gamma-d0;' + cdunits='mm;' +elseif(cvar(1:lv).eq.'rain_gam_lognw') then + ivar_type=3 + ierr=rams_getvar('RRP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CRP',idim_type,ngrd,f,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mult (n1,n2,n3,f,d) + CALL rams_comp_hydrogamma (n1,n2,n3,a,f,cfmas(2),pwmas(2),gnu(2),3) + cdname='rain-gamma-log10nw;' + cdunits='1/mm x 1/m3;' +elseif(cvar(1:lv).eq.'rain_gam_sigma') then + ivar_type=3 + ierr=rams_getvar('RRP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CRP',idim_type,ngrd,f,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mult (n1,n2,n3,f,d) + CALL rams_comp_hydrogamma (n1,n2,n3,a,f,cfmas(2),pwmas(2),gnu(2),4) + cdname='rain-gamma-sigma;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'snow_gam_dm') then + ivar_type=3 + ierr=rams_getvar('RSP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CSP',idim_type,ngrd,f,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mult (n1,n2,n3,f,d) + CALL rams_comp_hydrogamma (n1,n2,n3,a,f,cfmas(4),pwmas(4),gnu(4),1) + cdname='snow-gamma-dm;' + cdunits='mm;' +elseif(cvar(1:lv).eq.'snow_gam_d0') then + ivar_type=3 + ierr=rams_getvar('RSP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CSP',idim_type,ngrd,f,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mult (n1,n2,n3,f,d) + CALL rams_comp_hydrogamma (n1,n2,n3,a,f,cfmas(4),pwmas(4),gnu(4),2) + cdname='snow-gamma-d0;' + cdunits='mm;' +elseif(cvar(1:lv).eq.'snow_gam_lognw') then + ivar_type=3 + ierr=rams_getvar('RSP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CSP',idim_type,ngrd,f,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mult (n1,n2,n3,f,d) + CALL rams_comp_hydrogamma (n1,n2,n3,a,f,cfmas(4),pwmas(4),gnu(4),3) + cdname='snow-gamma-log10nw;' + cdunits='1/mm x 1/m3;' +elseif(cvar(1:lv).eq.'snow_gam_sigma') then + ivar_type=3 + ierr=rams_getvar('RSP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CSP',idim_type,ngrd,f,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mult (n1,n2,n3,f,d) + CALL rams_comp_hydrogamma (n1,n2,n3,a,f,cfmas(4),pwmas(4),gnu(4),4) + cdname='snow-gamma-sigma;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'aggr_gam_dm') then + ivar_type=3 + ierr=rams_getvar('RAP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CAP',idim_type,ngrd,f,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mult (n1,n2,n3,f,d) + CALL rams_comp_hydrogamma (n1,n2,n3,a,f,cfmas(5),pwmas(5),gnu(5),1) + cdname='aggr-gamma-dm;' + cdunits='mm;' +elseif(cvar(1:lv).eq.'aggr_gam_d0') then + ivar_type=3 + ierr=rams_getvar('RAP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CAP',idim_type,ngrd,f,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mult (n1,n2,n3,f,d) + CALL rams_comp_hydrogamma (n1,n2,n3,a,f,cfmas(5),pwmas(5),gnu(5),2) + cdname='aggr-gamma-d0;' + cdunits='mm;' +elseif(cvar(1:lv).eq.'aggr_gam_lognw') then + ivar_type=3 + ierr=rams_getvar('RAP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CAP',idim_type,ngrd,f,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mult (n1,n2,n3,f,d) + CALL rams_comp_hydrogamma (n1,n2,n3,a,f,cfmas(5),pwmas(5),gnu(5),3) + cdname='aggr-gamma-log10nw;' + cdunits='1/mm x 1/m3;' +elseif(cvar(1:lv).eq.'aggr_gam_sigma') then + ivar_type=3 + ierr=rams_getvar('RAP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CAP',idim_type,ngrd,f,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mult (n1,n2,n3,f,d) + CALL rams_comp_hydrogamma (n1,n2,n3,a,f,cfmas(5),pwmas(5),gnu(5),4) + cdname='aggr-gamma-sigma;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'grau_gam_dm') then + ivar_type=3 + ierr=rams_getvar('RGP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CGP',idim_type,ngrd,f,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mult (n1,n2,n3,f,d) + CALL rams_comp_hydrogamma (n1,n2,n3,a,f,cfmas(6),pwmas(6),gnu(6),1) + cdname='graup-gamma-dm;' + cdunits='mm;' +elseif(cvar(1:lv).eq.'grau_gam_d0') then + ivar_type=3 + ierr=rams_getvar('RGP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CGP',idim_type,ngrd,f,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mult (n1,n2,n3,f,d) + CALL rams_comp_hydrogamma (n1,n2,n3,a,f,cfmas(6),pwmas(6),gnu(6),2) + cdname='graup-gamma-d0;' + cdunits='mm;' +elseif(cvar(1:lv).eq.'grau_gam_lognw') then + ivar_type=3 + ierr=rams_getvar('RGP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CGP',idim_type,ngrd,f,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mult (n1,n2,n3,f,d) + CALL rams_comp_hydrogamma (n1,n2,n3,a,f,cfmas(6),pwmas(6),gnu(6),3) + cdname='graup-gamma-log10nw;' + cdunits='1/mm x 1/m3;' +elseif(cvar(1:lv).eq.'grau_gam_sigma') then + ivar_type=3 + ierr=rams_getvar('RGP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CGP',idim_type,ngrd,f,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mult (n1,n2,n3,f,d) + CALL rams_comp_hydrogamma (n1,n2,n3,a,f,cfmas(6),pwmas(6),gnu(6),4) + cdname='graup-gamma-sigma;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'hail_gam_dm') then + ivar_type=3 + ierr=rams_getvar('RHP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CHP',idim_type,ngrd,f,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mult (n1,n2,n3,f,d) + CALL rams_comp_hydrogamma (n1,n2,n3,a,f,cfmas(7),pwmas(7),gnu(7),1) + cdname='hail-gamma-dm;' + cdunits='mm;' +elseif(cvar(1:lv).eq.'hail_gam_d0') then + ivar_type=3 + ierr=rams_getvar('RHP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CHP',idim_type,ngrd,f,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mult (n1,n2,n3,f,d) + CALL rams_comp_hydrogamma (n1,n2,n3,a,f,cfmas(7),pwmas(7),gnu(7),2) + cdname='hail-gamma-d0;' + cdunits='mm;' +elseif(cvar(1:lv).eq.'hail_gam_lognw') then + ivar_type=3 + ierr=rams_getvar('RHP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CHP',idim_type,ngrd,f,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mult (n1,n2,n3,f,d) + CALL rams_comp_hydrogamma (n1,n2,n3,a,f,cfmas(7),pwmas(7),gnu(7),3) + cdname='hail-gamma-log10nw;' + cdunits='1/mm x 1/m3;' +elseif(cvar(1:lv).eq.'hail_gam_sigma') then + ivar_type=3 + ierr=rams_getvar('RHP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CHP',idim_type,ngrd,f,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mult (n1,n2,n3,f,d) + CALL rams_comp_hydrogamma (n1,n2,n3,a,f,cfmas(7),pwmas(7),gnu(7),4) + cdname='hail-gamma-sigma;' + cdunits='mm;' + +!##################################################################### +! 3D MOISTURE MASS MIXING RATIOS AND HUMIDITY - 37 variables +!##################################################################### +elseif(cvar(1:lv).eq.'vapr_press') then + ivar_type=3 + ierr=rams_getvar('RV',idim_type,ngrd,c,flnm) + ierr=rams_getvar('PI',idim_type,ngrd,a,flnm) + CALL rams_comp_vaporpress (n1,n2,n3,a,c) + cdname='vapor-pressure;' + cdunits='mb;' + +elseif(cvar(1:lv).eq.'rslf') then + ivar_type=3 + ierr=rams_getvar('THETA',idim_type,ngrd,a,flnm) + ierr=rams_getvar('PI',idim_type,ngrd,c,flnm) + ierr=rams_getvar('RV',idim_type,ngrd,d,flnm) + CALL rams_comp_rslf (n1,n2,n3,a,c,d) + cdname='liquid-supersaturation;' + cdunits='percent;' + +elseif(cvar(1:lv).eq.'rsif') then + ivar_type=3 + ierr=rams_getvar('THETA',idim_type,ngrd,a,flnm) + ierr=rams_getvar('PI',idim_type,ngrd,c,flnm) + ierr=rams_getvar('RV',idim_type,ngrd,d,flnm) + CALL rams_comp_rsif (n1,n2,n3,a,c,d) + cdname='ice-supersaturation;' + cdunits='percent;' + +elseif(cvar(1:lv).eq.'vapor') then + ivar_type=3 + ierr=rams_getvar('RV',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='vapor-mixing-ratio;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'vapor_m3') then + ivar_type=3 + ierr=rams_getvar('RV',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='vapor-mixing-ratio;' + cdunits='g/m3;' + +elseif(cvar(1:lv).eq.'cloud') then + ivar_type=3 + ierr=rams_getvar('RCP',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='cloud-mixing-ratio;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'cloud_m3') then + ivar_type=3 + ierr=rams_getvar('RCP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='cloud-mixing-ratio;' + cdunits='g/m3;' + +elseif(cvar(1:lv).eq.'rain') then + ivar_type=3 + ierr=rams_getvar('RRP',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='rain-mixing-ratio;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'rain_m3') then + ivar_type=3 + ierr=rams_getvar('RRP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='rain-mixing-ratio;' + cdunits='g/m3;' + +elseif(cvar(1:lv).eq.'pristine') then + ivar_type=3 + ierr=rams_getvar('RPP',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='pristine-mixing-ratio;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'pristine_m3') then + ivar_type=3 + ierr=rams_getvar('RPP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='pristine-mixing-ratio;' + cdunits='g/m3;' + +elseif(cvar(1:lv).eq.'snow') then + ivar_type=3 + ierr=rams_getvar('RSP',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='snow-mixing-ratio;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'snow_m3') then + ivar_type=3 + ierr=rams_getvar('RSP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='snow-mixing-ratio;' + cdunits='g/m3;' + +elseif(cvar(1:lv).eq.'aggregates') then + ivar_type=3 + ierr=rams_getvar('RAP',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='aggregate-mixing-ratio;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'aggregates_m3') then + ivar_type=3 + ierr=rams_getvar('RAP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='aggregate-mixing-ratio;' + cdunits='g/m3;' + +elseif(cvar(1:lv).eq.'graupel') then + ivar_type=3 + ierr=rams_getvar('RGP',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='graupel-mixing-ratio;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'graupel_m3') then + ivar_type=3 + ierr=rams_getvar('RGP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='graupel-mixing-ratio;' + cdunits='g/m3;' + +elseif(cvar(1:lv).eq.'hail') then + ivar_type=3 + ierr=rams_getvar('RHP',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='hail-mixing-ratio;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'hail_m3') then + ivar_type=3 + ierr=rams_getvar('RHP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='hail-mixing-ratio;' + cdunits='g/m3;' + +elseif(cvar(1:lv).eq.'drizzle') then + ivar_type=3 + ierr=rams_getvar('RDP',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='drizzle-mixing-ratio;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'drizzle_m3') then + ivar_type=3 + ierr=rams_getvar('RDP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='drizzle-mixing-ratio;' + cdunits='g/m3;' + +elseif(cvar(1:lv).eq.'prissnowagg') then + ivar_type=3 + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RPP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RSP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RAP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='snowprisagg-mixing-ratio;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'grauphail') then + ivar_type=3 + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RGP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RHP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='grauphail-mixing-ratio;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'liquid') then + ivar_type=3 + iany=1 + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RCP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RDP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RRP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + + ierr=rams_getvar('RGP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) then + ierr=rams_getvar('Q6',idim_type,ngrd,d,flnm) + if(ierr.eq.0) then + CALL rams_comp_fracliq (n1,n2,n3,d) + CALL rams_comp_mult (n1,n2,n3,c,d) + endif + CALL rams_comp_accum (n1,n2,n3,a,c) + endif + + ierr=rams_getvar('RHP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) then + ierr=rams_getvar('Q7',idim_type,ngrd,d,flnm) + if(ierr.eq.0) then + CALL rams_comp_fracliq (n1,n2,n3,d) + CALL rams_comp_mult (n1,n2,n3,c,d) + endif + CALL rams_comp_accum (n1,n2,n3,a,c) + endif + + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='liquid-mixing-ratio;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'ice') then + ivar_type=3 + iany=1 + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RPP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RSP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RAP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + + ierr=rams_getvar('RGP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) then + ierr=rams_getvar('Q6',idim_type,ngrd,d,flnm) + if(ierr.eq.0) then + CALL rams_comp_fracice (n1,n2,n3,d) + CALL rams_comp_mult (n1,n2,n3,c,d) + endif + CALL rams_comp_accum (n1,n2,n3,a,c) + endif + + ierr=rams_getvar('RHP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) then + ierr=rams_getvar('Q7',idim_type,ngrd,d,flnm) + if(ierr.eq.0) then + CALL rams_comp_fracice (n1,n2,n3,d) + CALL rams_comp_mult (n1,n2,n3,c,d) + endif + CALL rams_comp_accum (n1,n2,n3,a,c) + endif + + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='ice-mixing-ratio;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'ctop_tempc_sstbase') then + ivar_type=2 + iany=1 + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RCP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RDP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RRP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RPP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RSP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RAP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RGP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RHP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + + ierr=rams_getvar('THETA',idim_type,ngrd,d,flnm) + ierr=rams_getvar('PI',idim_type,ngrd,e,flnm) + CALL rams_comp_tempK (n1,n2,n3,d,e) + CALL rams_comp_tempC (n1,n2,n3,d) + + ierr=rams_getvar('SOIL_ENERGY',idim_type,ngrd,c,flnm) + kp = nzg + CALL rams_fill_sst (n1,n2,nzg*npatch,kp,f,c) + + CALL rams_comp_cloudtop_sstbase (n1,n2,n3,a,d,f) + + cdname='cloud-top-temperature-sstsurface;' + cdunits='C;' + +elseif(cvar(1:lv).eq.'ctop_tempc_nobase') then + ivar_type=2 + iany=1 + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RCP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RDP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RRP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RPP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RSP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RAP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RGP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RHP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + + ierr=rams_getvar('THETA',idim_type,ngrd,d,flnm) + ierr=rams_getvar('PI',idim_type,ngrd,e,flnm) + CALL rams_comp_tempK (n1,n2,n3,d,e) + CALL rams_comp_tempC (n1,n2,n3,d) + + CALL rams_comp_cloudtop_nobase (n1,n2,n3,a,d) + + cdname='cloud-top-temperature-nosurface;' + cdunits='C;' + +elseif(cvar(1:lv).eq.'total_cond' .or. & + cvar(1:lv).eq.'total_cond_m3') then + ivar_type=3 + iany=1 + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RCP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RDP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RRP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RPP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RSP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RAP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RGP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RHP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + + if(cvar(1:lv).eq.'total_cond_m3')then + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + endif + + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='total-condensate-mixing-ratio;' + + if(cvar(1:lv).eq.'total_cond') cdunits='g/kg;' + if(cvar(1:lv).eq.'total_cond_m3') cdunits='g/m3;' + +elseif(cvar(1:lv).eq.'r_total') then + ivar_type=3 + iany=1 + ierr=rams_getvar('RV',idim_type,ngrd,a,flnm) + ierr=rams_getvar('RCP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RDP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RRP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RPP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RSP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RAP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RGP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RHP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='total-mixing-ratio;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'rtotal_orig') then + ivar_type=3 + ierr=rams_getvar('RTP',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='total-water-mixing-ratio-RTP;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'dewptk') then + ivar_type=3 + ivar_type=3 + ierr=rams_getvar('RV',idim_type,ngrd,a,flnm) + ierr=rams_getvar('PI',idim_type,ngrd,c,flnm) + ierr=rams_getvar('THETA',idim_type,ngrd,d,flnm) + CALL rams_comp_dewK (n1,n2,n3,a,c,d) + cdname='dewpoint-temperature;' + cdunits='K;' + +elseif(cvar(1:lv).eq.'dewptf') then + ivar_type=3 + ierr=rams_getvar('RV',idim_type,ngrd,a,flnm) + ierr=rams_getvar('PI',idim_type,ngrd,c,flnm) + ierr=rams_getvar('THETA',idim_type,ngrd,d,flnm) + CALL rams_comp_dewK (n1,n2,n3,a,c,d) + CALL rams_comp_tempF (n1,n2,n3,a) + cdname='dewpoint-temperature;' + cdunits='F;' + +elseif(cvar(1:lv).eq.'dewptc') then + ivar_type=3 + ierr=rams_getvar('RV',idim_type,ngrd,a,flnm) + ierr=rams_getvar('PI',idim_type,ngrd,c,flnm) + ierr=rams_getvar('THETA',idim_type,ngrd,d,flnm) + CALL rams_comp_dewK (n1,n2,n3,a,c,d) + CALL rams_comp_tempC (n1,n2,n3,a) + cdname='dewpoint-temperature;' + cdunits='C;' + +elseif(cvar(1:lv).eq.'relhum') then + ivar_type=3 + ierr=rams_getvar('RV',idim_type,ngrd,a,flnm) + ierr=rams_getvar('PI',idim_type,ngrd,c,flnm) + ierr=rams_getvar('THETA',idim_type,ngrd,d,flnm) + CALL rams_comp_rh (n1,n2,n3,a,c,d) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='relative-humidity;' + cdunits='pct;' + +elseif(cvar(1:lv).eq.'relhum_frac') then + ivar_type=3 + ierr=rams_getvar('RV',idim_type,ngrd,a,flnm) + ierr=rams_getvar('PI',idim_type,ngrd,c,flnm) + ierr=rams_getvar('THETA',idim_type,ngrd,d,flnm) + CALL rams_comp_rh (n1,n2,n3,a,c,d) + CALL rams_comp_mults (n1,n2,n3,a,.01) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='relative-humidity;' + cdunits='frac;' + +elseif(cvar(1:lv).eq.'clear_frac') then + ivar_type=2 + ierr=rams_getvar('RV',idim_type,ngrd,b,flnm) + ierr=rams_getvar('PI',idim_type,ngrd,c,flnm) + ierr=rams_getvar('THETA',idim_type,ngrd,d,flnm) + CALL rams_comp_rh (n1,n2,n3,b,c,d) + CALL rams_comp_noneg (n1,n2,n3,b) + CALL cldfraction (n1,n2,n3,a,c,b) + cdname='clear-sky;' + cdunits='frac;' + +elseif(cvar(1:lv).eq.'cloud_frac') then + ivar_type=2 + ierr=rams_getvar('RV',idim_type,ngrd,b,flnm) + ierr=rams_getvar('PI',idim_type,ngrd,c,flnm) + ierr=rams_getvar('THETA',idim_type,ngrd,d,flnm) + CALL rams_comp_rh (n1,n2,n3,b,c,d) + CALL rams_comp_noneg (n1,n2,n3,b) + CALL cldfraction (n1,n2,n3,a,c,b) + CALL rams_comp_1minus (n1,n2,n3,a) + cdname='cloud-cover;' + cdunits='frac;' + +!##################################################################### +!3D HYDROMETEOR NUMBER CONCENTRATIONS - 22 variables +!##################################################################### +elseif(cvar(1:lv).eq.'cloud_concen_mg') then + ivar_type=3 + ierr=rams_getvar('CCP',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='cloud-concen;' + cdunits='#/mg;' + +elseif(cvar(1:lv).eq.'cloud_concen_kg') then + ivar_type=3 + ierr=rams_getvar('CCP',idim_type,ngrd,a,flnm) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='cloud-concen;' + cdunits='#/kg;' + +elseif(cvar(1:lv).eq.'rain_concen_kg') then + ivar_type=3 + ierr=rams_getvar('CRP',idim_type,ngrd,a,flnm) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='rain-concen;' + cdunits='#/kg;' + +elseif(cvar(1:lv).eq.'pris_concen_mg') then + ivar_type=3 + ierr=rams_getvar('CPP',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='pristine-concen;' + cdunits='#/mg;' + +elseif(cvar(1:lv).eq.'pris_concen_kg') then + ivar_type=3 + ierr=rams_getvar('CPP',idim_type,ngrd,a,flnm) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='pristine-concen;' + cdunits='#/kg;' + +elseif(cvar(1:lv).eq.'snow_concen_kg') then + ivar_type=3 + ierr=rams_getvar('CSP',idim_type,ngrd,a,flnm) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='snow-concen;' + cdunits='#/kg;' + +elseif(cvar(1:lv).eq.'agg_concen_kg') then + ivar_type=3 + ierr=rams_getvar('CAP',idim_type,ngrd,a,flnm) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='aggregate-concen;' + cdunits='#/kg;' + +elseif(cvar(1:lv).eq.'graup_concen_kg') then + ivar_type=3 + ierr=rams_getvar('CGP',idim_type,ngrd,a,flnm) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='graupel-concen;' + cdunits='#/kg;' + +elseif(cvar(1:lv).eq.'hail_concen_kg') then + ivar_type=3 + ierr=rams_getvar('CHP',idim_type,ngrd,a,flnm) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='hail-concen;' + cdunits='#/kg;' + +elseif(cvar(1:lv).eq.'drizzle_concen_mg') then + ivar_type=3 + ierr=rams_getvar('CDP',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='drizzle-concen;' + cdunits='#/mg;' + +elseif(cvar(1:lv).eq.'drizzle_concen_kg') then + ivar_type=3 + ierr=rams_getvar('CDP',idim_type,ngrd,a,flnm) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='drizzle-concen;' + cdunits='#/kg;' + +elseif(cvar(1:lv).eq.'cloud_concen_cm3') then + ivar_type=3 + ierr=rams_getvar('CCP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='cloud-concen;' + cdunits='#/cm3;' + +elseif(cvar(1:lv).eq.'rain_concen_m3') then + ivar_type=3 + ierr=rams_getvar('CRP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='rain-concen;' + cdunits='#/m3;' + +elseif(cvar(1:lv).eq.'rain_concen_dm3') then + ivar_type=3 + ierr=rams_getvar('CRP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e-3) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='rain-concen;' + cdunits='#/dm3;' + +elseif(cvar(1:lv).eq.'pris_concen_m3') then + ivar_type=3 + ierr=rams_getvar('CPP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='pristine-concen;' + cdunits='#/m3;' + +elseif(cvar(1:lv).eq.'pris_concen_cm3') then + ivar_type=3 + ierr=rams_getvar('CPP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='pristine-concen;' + cdunits='#/cm3;' + +elseif(cvar(1:lv).eq.'snow_concen_m3') then + ivar_type=3 + ierr=rams_getvar('CSP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='snow-concen;' + cdunits='#/m3;' + +elseif(cvar(1:lv).eq.'snow_concen_cm3') then + ivar_type=3 + ierr=rams_getvar('CSP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='snow-concen;' + cdunits='#/cm3;' + +elseif(cvar(1:lv).eq.'agg_concen_m3') then + ivar_type=3 + ierr=rams_getvar('CAP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='aggregates-concen;' + cdunits='#/m3;' + +elseif(cvar(1:lv).eq.'graup_concen_m3') then + ivar_type=3 + ierr=rams_getvar('CGP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='graupel-concen;' + cdunits='#/m3;' + +elseif(cvar(1:lv).eq.'hail_concen_m3') then + ivar_type=3 + ierr=rams_getvar('CHP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='hail-concen;' + cdunits='#/m3;' + +elseif(cvar(1:lv).eq.'drizzle_concen_cm3') then + ivar_type=3 + ierr=rams_getvar('CDP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='drizzle-concen;' + cdunits='#/cm3;' + +!##################################################################### +!HUCM-SBM EXTRA HYDROMETEOR QUANTITIES - 18 variables +!##################################################################### +elseif(cvar(1:lv).eq.'ice_plates') then + ivar_type=3 + ierr=rams_getvar('RIPP',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='plates-mixing-ratio;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'ice_columns') then + ivar_type=3 + ierr=rams_getvar('RICP',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='columns-mixing-ratio;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'ice_dendrites') then + ivar_type=3 + ierr=rams_getvar('RIDP',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='dendrites-mixing-ratio;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'plates_concen_mg') then + ivar_type=3 + ierr=rams_getvar('CIPP',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='plates-concen;' + cdunits='#/mg;' + +elseif(cvar(1:lv).eq.'plates_concen_kg') then + ivar_type=3 + ierr=rams_getvar('CIPP',idim_type,ngrd,a,flnm) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='plates-concen;' + cdunits='#/kg;' + +elseif(cvar(1:lv).eq.'columns_concen_mg') then + ivar_type=3 + ierr=rams_getvar('CICP',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='columns-concen;' + cdunits='#/mg;' + +elseif(cvar(1:lv).eq.'columns_concen_kg') then + ivar_type=3 + ierr=rams_getvar('CICP',idim_type,ngrd,a,flnm) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='columns-concen;' + cdunits='#/kg;' + +elseif(cvar(1:lv).eq.'dendrites_concen_mg') then + ivar_type=3 + ierr=rams_getvar('CIDP',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='dendrites-concen;' + cdunits='#/mg;' + +elseif(cvar(1:lv).eq.'dendrites_concen_kg') then + ivar_type=3 + ierr=rams_getvar('CIDP',idim_type,ngrd,a,flnm) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='dendrites-concen;' + cdunits='#/kg;' + +elseif(cvar(1:lv).eq.'pcpvip') then + ivar_type=3 + ierr=rams_getvar('PCPVIP',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,n3,a,3600.) + cdname='3D-iceplates-precip-rate;' + cdunits='mm/hr-liq-equiv;' + +elseif(cvar(1:lv).eq.'pcpvic') then + ivar_type=3 + ierr=rams_getvar('PCPVIC',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,n3,a,3600.) + cdname='3D-icecolumns-precip-rate;' + cdunits='mm/hr-liq-equiv;' + +elseif(cvar(1:lv).eq.'pcpvid') then + ivar_type=3 + ierr=rams_getvar('PCPVID',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,n3,a,3600.) + cdname='3D-icedendrites-precip-rate;' + cdunits='mm/hr-liq-equiv;' + +elseif(cvar(1:lv).eq.'pcprip') then + ivar_type=2 + ierr=rams_getvar('PCPRIP',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,1,a,3600.) + cdname='iceplates-precip-rate;' + cdunits='mm/hr-liq-equiv;' + +elseif(cvar(1:lv).eq.'pcpric') then + ivar_type=2 + ierr=rams_getvar('PCPRIC',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,1,a,3600.) + cdname='icecolumns-precip-rate;' + cdunits='mm/hr-liq-equiv;' + +elseif(cvar(1:lv).eq.'pcprid') then + ivar_type=2 + ierr=rams_getvar('PCPRID',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,1,a,3600.) + cdname='icedendrites-precip-rate;' + cdunits='mm/hr-liq-equiv;' + +elseif(cvar(1:lv).eq.'accpip') then + ivar_type=2 + ierr=rams_getvar('ACCPIP',idim_type,ngrd,a,flnm) + cdname='accum-iceplates;' + cdunits='kg/m2;' + +elseif(cvar(1:lv).eq.'accpic') then + ivar_type=2 + ierr=rams_getvar('ACCPIC',idim_type,ngrd,a,flnm) + cdname='accum-icecolumns;' + cdunits='kg/m2;' + +elseif(cvar(1:lv).eq.'accpid') then + ivar_type=2 + ierr=rams_getvar('ACCPID',idim_type,ngrd,a,flnm) + cdname='accum-icedendrites;' + cdunits='kg/m2;' + +!##################################################################### +!3D AEROSOLS NUMBER, MASS, SIZE, SOLUBILITY - 37 variables +!##################################################################### +elseif(cvar(1:lv).eq.'ifn_concen_mg') then + ivar_type=3 + ierr=rams_getvar('CIFNP',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='ice-nuclei-concentration;' + cdunits='#/mg;' + +elseif(cvar(1:lv).eq.'ifn_concen_cm3') then + ivar_type=3 + ierr=rams_getvar('CIFNP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='ice-nuclei-concentration;' + cdunits='#/cm3;' + +elseif(cvar(1:lv).eq.'ccn_concen_mg') then + ivar_type=3 + ierr=rams_getvar('CCCNP',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='ccn-concentration;' + cdunits='#/mg;' + +elseif(cvar(1:lv).eq.'ccn_concen_cm3') then + ivar_type=3 + ierr=rams_getvar('CCCNP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='ccn-concentration;' + cdunits='#/cm3;' + +elseif(cvar(1:lv).eq.'gccn_concen_mg') then + ivar_type=3 + ierr=rams_getvar('GCCNP',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='gccn-concentration;' + cdunits='#/mg;' + +elseif(cvar(1:lv).eq.'gccn_concen_cm3') then + ivar_type=3 + ierr=rams_getvar('GCCNP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='gccn-concentration;' + cdunits='#/cm3;' + +elseif(cvar(1:lv).eq.'dust1_concen') then + ivar_type=3 + ierr=rams_getvar('MD1NP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='dust1-concentration;' + cdunits='#/cm3;' + +elseif(cvar(1:lv).eq.'dust2_concen') then + ivar_type=3 + ierr=rams_getvar('MD2NP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='dust2-concentration;' + cdunits='#/cm3;' + +elseif(cvar(1:lv).eq.'salt_film_concen') then + ivar_type=3 + ierr=rams_getvar('SALT_FILM_NP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='salt-film-concentration;' + cdunits='#/cm3;' + +elseif(cvar(1:lv).eq.'salt_jet_concen') then + ivar_type=3 + ierr=rams_getvar('SALT_JET_NP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='salt-jet-concentration;' + cdunits='#/cm3;' + +elseif(cvar(1:lv).eq.'salt_spume_concen') then + ivar_type=3 + ierr=rams_getvar('SALT_SPUM_NP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='salt-spume-concentration;' + cdunits='#/m3;' + +elseif(cvar(1:lv).eq.'regen_aero1_concen') then + ivar_type=3 + ierr=rams_getvar('REGEN_AERO1_NP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='regenerated-aero1-concentration;' + cdunits='#/cm3;' + +elseif(cvar(1:lv).eq.'regen_aero2_concen') then + ivar_type=3 + ierr=rams_getvar('REGEN_AERO2_NP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='regenerated-aero2-concentration;' + cdunits='#/cm3;' + +elseif(cvar(1:lv).eq.'ccn_mass') then + ivar_type=3 + ierr=rams_getvar('CCCMP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='ccn-mass;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'gccn_mass') then + ivar_type=3 + ierr=rams_getvar('GCCMP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='gccn-mass;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'dust1_mass') then + ivar_type=3 + ierr=rams_getvar('MD1MP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='dust1-mass;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'dust1_massd10') then + ivar_type=3 + ierr=rams_getvar('MD1MP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e8) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='dust1-mass;' + cdunits='micro-grams/m3/10.0;' + +elseif(cvar(1:lv).eq.'dust2_mass') then + ivar_type=3 + ierr=rams_getvar('MD2MP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='dust2-mass;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'dust2_massd10') then + ivar_type=3 + ierr=rams_getvar('MD2MP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e8) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='dust2-mass;' + cdunits='micro-grams/m3/10.0;' + +elseif(cvar(1:lv).eq.'salt_film_mass') then + ivar_type=3 + ierr=rams_getvar('SALT_FILM_MP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='salt-film-mass;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'salt_jet_mass') then + ivar_type=3 + ierr=rams_getvar('SALT_JET_MP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='salt-jet-mass;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'salt_spume_mass') then + ivar_type=3 + ierr=rams_getvar('SALT_SPUM_MP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='salt-spume-mass;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'regen_aero1_mass') then + ivar_type=3 + ierr=rams_getvar('REGEN_AERO1_MP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='regenerated-aero1-mass;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'regen_aero2_mass') then + ivar_type=3 + ierr=rams_getvar('REGEN_AERO2_MP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='regenerated-aero2-mass;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'resol_aero1_mass') then + ivar_type=3 + ierr=rams_getvar('RESOL_AERO1_MP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='regen-soluble-aero1-mass;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'resol_aero2_mass') then + ivar_type=3 + ierr=rams_getvar('RESOL_AERO2_MP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='regen-soluble-aero2-mass;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'regen1_epsilon') then + ivar_type=3 + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RESOL_AERO1_MP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_zero (n1,n2,n3,d) + ierr=rams_getvar('REGEN_AERO1_MP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,d,c) + CALL rams_comp_aeroepsilon (n1,n2,n3,a,d) + cdname='regen1-solubility-fraction;' + cdunits='fraction;' + +elseif(cvar(1:lv).eq.'regen2_epsilon') then + ivar_type=3 + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RESOL_AERO2_MP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_zero (n1,n2,n3,d) + ierr=rams_getvar('REGEN_AERO2_MP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,d,c) + CALL rams_comp_aeroepsilon (n1,n2,n3,a,d) + cdname='regen2-solubility-fraction;' + cdunits='fraction;' + +elseif(cvar(1:lv).eq.'ccn_medrad') then + ivar_type=3 + ierr=rams_getvar('CCCMP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CCCNP',idim_type,ngrd,c,flnm) + CALL rams_comp_aeromedrad (n1,n2,n3,a,c,1769.) !1769 kg/m3 is solute density + CALL rams_comp_mults (n1,n2,n3,a,1.e6) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='ccn-median-radius;' + cdunits='microns;' + +elseif(cvar(1:lv).eq.'gccn_medrad') then + ivar_type=3 + ierr=rams_getvar('GCCMP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('GCCNP',idim_type,ngrd,c,flnm) + CALL rams_comp_aeromedrad (n1,n2,n3,a,c,1769.) !1769 kg/m3 is solute density + CALL rams_comp_mults (n1,n2,n3,a,1.e6) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='gccn-median-radius;' + cdunits='microns;' + +elseif(cvar(1:lv).eq.'dust1_medrad') then + ivar_type=3 + ierr=rams_getvar('MD1MP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('MD1NP',idim_type,ngrd,c,flnm) + CALL rams_comp_aeromedrad (n1,n2,n3,a,c,2500.) !2500 kg/m3 is solute density + CALL rams_comp_mults (n1,n2,n3,a,1.e6) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='dust1-median-radius;' + cdunits='microns;' + +elseif(cvar(1:lv).eq.'dust2_medrad') then + ivar_type=3 + ierr=rams_getvar('MD2MP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('MD2NP',idim_type,ngrd,c,flnm) + CALL rams_comp_aeromedrad (n1,n2,n3,a,c,2650.) !2650 kg/m3 is solute density + CALL rams_comp_mults (n1,n2,n3,a,1.e6) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='dust2-median-radius;' + cdunits='microns;' + +elseif(cvar(1:lv).eq.'salt_film_medrad') then + ivar_type=3 + ierr=rams_getvar('SALT_FILM_MP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('SALT_FILM_NP',idim_type,ngrd,c,flnm) + CALL rams_comp_aeromedrad (n1,n2,n3,a,c,2165.) !2165 kg/m3 is solute density + CALL rams_comp_mults (n1,n2,n3,a,1.e6) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='salt-film-median-radius;' + cdunits='microns;' + +elseif(cvar(1:lv).eq.'salt_jet_medrad') then + ivar_type=3 + ierr=rams_getvar('SALT_JET_MP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('SALT_JET_NP',idim_type,ngrd,c,flnm) + CALL rams_comp_aeromedrad (n1,n2,n3,a,c,2165.) !2165 kg/m3 is solute density + CALL rams_comp_mults (n1,n2,n3,a,1.e6) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='salt-jet-median-radius;' + cdunits='microns;' + +elseif(cvar(1:lv).eq.'salt_spume_medrad') then + ivar_type=3 + ierr=rams_getvar('SALT_SPUM_MP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('SALT_SPUM_NP',idim_type,ngrd,c,flnm) + CALL rams_comp_aeromedrad (n1,n2,n3,a,c,2165.) !2165 kg/m3 is solute density + CALL rams_comp_mults (n1,n2,n3,a,1.e6) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='salt-spume-median-radius;' + cdunits='microns;' + +elseif(cvar(1:lv).eq.'regen_aero1_medrad') then + ivar_type=3 + ierr=rams_getvar('REGEN_AERO1_MP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('REGEN_AERO1_NP',idim_type,ngrd,c,flnm) + CALL rams_comp_aeromedrad (n1,n2,n3,a,c,2165.) !2165 kg/m3 is solute density + CALL rams_comp_mults (n1,n2,n3,a,1.e6) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='regenerated-aero1-median-radius;' + cdunits='microns;' + +elseif(cvar(1:lv).eq.'regen_aero2_medrad') then + ivar_type=3 + ierr=rams_getvar('REGEN_AERO2_MP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('REGEN_AERO2_NP',idim_type,ngrd,c,flnm) + CALL rams_comp_aeromedrad (n1,n2,n3,a,c,2165.) !2165 kg/m3 is solute density + CALL rams_comp_mults (n1,n2,n3,a,1.e6) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='regenerated-aero2-median-radius;' + cdunits='microns;' + +!##################################################################### +!3D AEROSOLS TRACKING VARIABLES - 41 variables +!##################################################################### +elseif(cvar(1:lv).eq.'aerosol_cloud_mass') then + ivar_type=3 + ierr=rams_getvar('CNMCP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='aerosol-mass-in-cloud-drops;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'aerosol_rain_mass') then + ivar_type=3 + ierr=rams_getvar('CNMRP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='aerosol-mass-in-rain-drops;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'aerosol_pris_mass') then + ivar_type=3 + ierr=rams_getvar('CNMPP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='aerosol-mass-in-pristineice;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'aerosol_snow_mass') then + ivar_type=3 + ierr=rams_getvar('CNMSP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='aerosol-mass-in-snow;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'aerosol_aggr_mass') then + ivar_type=3 + ierr=rams_getvar('CNMAP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='aerosol-mass-in-aggregates;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'aerosol_grau_mass') then + ivar_type=3 + ierr=rams_getvar('CNMGP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='aerosol-mass-in-graupel;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'aerosol_hail_mass') then + ivar_type=3 + ierr=rams_getvar('CNMHP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='aerosol-mass-in-hail;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'aerosol_driz_mass') then + ivar_type=3 + ierr=rams_getvar('CNMDP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='aerosol-mass-in-drizzle;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'aerosol_hydro_mass') then + ivar_type=3 + iany=1 + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('CNMCP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('CNMRP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('CNMPP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('CNMSP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('CNMAP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('CNMGP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('CNMHP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('CNMDP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='aerosol-mass-in-hydrometeors;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'soluble_cloud_mass') then + ivar_type=3 + ierr=rams_getvar('SNMCP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='soluble-mass-in-cloud-drops;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'soluble_rain_mass') then + ivar_type=3 + ierr=rams_getvar('SNMRP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='soluble-mass-in-rain-drops;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'soluble_pris_mass') then + ivar_type=3 + ierr=rams_getvar('SNMPP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='soluble-mass-in-pristineice;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'soluble_snow_mass') then + ivar_type=3 + ierr=rams_getvar('SNMSP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='soluble-mass-in-snow;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'soluble_aggr_mass') then + ivar_type=3 + ierr=rams_getvar('SNMAP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='soluble-mass-in-aggregates;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'soluble_grau_mass') then + ivar_type=3 + ierr=rams_getvar('SNMGP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='soluble-mass-in-graupel;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'soluble_hail_mass') then + ivar_type=3 + ierr=rams_getvar('SNMHP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='soluble-mass-in-hail;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'soluble_driz_mass') then + ivar_type=3 + ierr=rams_getvar('SNMDP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='soluble-mass-in-drizzle;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'soluble_hydro_mass') then + ivar_type=3 + iany=1 + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('SNMCP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('SNMRP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('SNMPP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('SNMSP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('SNMAP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('SNMGP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('SNMHP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('SNMDP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='ccn-soluble-mass-in-hydro;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'aero_epsilon') then + ivar_type=3 + iany=1 + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('SNMCP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('SNMRP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('SNMPP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('SNMSP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('SNMAP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('SNMGP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('SNMHP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('SNMDP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_zero (n1,n2,n3,d) + ierr=rams_getvar('CNMCP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,d,c) + ierr=rams_getvar('CNMRP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,d,c) + ierr=rams_getvar('CNMPP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,d,c) + ierr=rams_getvar('CNMSP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,d,c) + ierr=rams_getvar('CNMAP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,d,c) + ierr=rams_getvar('CNMGP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,d,c) + ierr=rams_getvar('CNMHP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,d,c) + ierr=rams_getvar('CNMDP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,d,c) + CALL rams_comp_aeroepsilon (n1,n2,n3,a,d) + cdname='solubility-fraction;' + cdunits='fraction;' + +elseif(cvar(1:lv).eq.'dust_cloud_mass') then + ivar_type=3 + ierr=rams_getvar('DNMCP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='dust-mass-in-cloud-drops;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'dust_rain_mass') then + ivar_type=3 + ierr=rams_getvar('DNMRP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='dust-mass-in-rain-drops;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'dust_pris_mass') then + ivar_type=3 + ierr=rams_getvar('DNMPP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='dust-mass-in-pristineice;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'dust_snow_mass') then + ivar_type=3 + ierr=rams_getvar('DNMSP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='dust-mass-in-snow;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'dust_aggr_mass') then + ivar_type=3 + ierr=rams_getvar('DNMAP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='dust-mass-in-aggregates;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'dust_grau_mass') then + ivar_type=3 + ierr=rams_getvar('DNMGP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='dust-mass-in-graupel;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'dust_hail_mass') then + ivar_type=3 + ierr=rams_getvar('DNMHP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='dust-mass-in-hail;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'dust_driz_mass') then + ivar_type=3 + ierr=rams_getvar('DNMDP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='dust-mass-in-drizzle;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'dust_hydro_mass') then + ivar_type=3 + iany=1 + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('DNMCP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('DNMRP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('DNMPP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('DNMSP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('DNMAP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('DNMGP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('DNMHP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('DNMDP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='dust-mass-in-hydrometeors;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'dustifn_cloud_mass') then + ivar_type=3 + ierr=rams_getvar('DINCP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='dustifn-mass-in-cloud-drops;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'dustifn_rain_mass') then + ivar_type=3 + ierr=rams_getvar('DINRP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='dustifn-mass-in-rain-drops;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'dustifn_pris_mass') then + ivar_type=3 + ierr=rams_getvar('DINPP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='dustifn-mass-in-pristineice;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'dustifn_snow_mass') then + ivar_type=3 + ierr=rams_getvar('DINSP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='dustifn-mass-in-snow;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'dustifn_aggr_mass') then + ivar_type=3 + ierr=rams_getvar('DINAP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='dustifn-mass-in-aggregates;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'dustifn_grau_mass') then + ivar_type=3 + ierr=rams_getvar('DINGP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='dustifn-mass-in-graupel;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'dustifn_hail_mass') then + ivar_type=3 + ierr=rams_getvar('DINHP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='dustifn-mass-in-hail;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'dustifn_driz_mass') then + ivar_type=3 + ierr=rams_getvar('DINDP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='dustifn-mass-in-drizzle;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'dustifn_hydro_mass') then + ivar_type=3 + iany=1 + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('DINCP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('DINRP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('DINPP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('DINSP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('DINAP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('DINGP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('DINHP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('DINDP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='dustifn-mass-in-hydrometeors;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'ifn_nuc_numtrack') then + ivar_type=3 + ierr=rams_getvar('IFNNUCP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='IFN-already-nucleated-DeMott;' + cdunits='#/cm3;' + +elseif(cvar(1:lv).eq.'ifn_incloud') then + ivar_type=3 + ierr=rams_getvar('IMMERCP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='IFN-within-cloud-DeMott;' + cdunits='#/cm3;' + +elseif(cvar(1:lv).eq.'ifn_indriz') then + ivar_type=3 + ierr=rams_getvar('IMMERDP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='IFN-dust-within-drizzle-DeMott;' + cdunits='#/cm3;' + +elseif(cvar(1:lv).eq.'ifn_inrain') then + ivar_type=3 + ierr=rams_getvar('IMMERRP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='IFN-dust-within-rain-DeMott;' + cdunits='#/cm3;' + +!##################################################################### +!3D VERTICAL VELOCITY AND MICROPHYSICAL BUDGETS - 15 variables +!##################################################################### +elseif(cvar(1:lv).eq.'wp_advdif') then ! 1 - instant + ivar_type=3 + ierr=rams_getvar('WP_ADVDIF',idim_type,ngrd,a,flnm) + cdname='W-advection-diffusion;' + cdunits='m/s;' + +elseif(cvar(1:lv).eq.'wp_buoy_theta') then ! 1 - instant + ivar_type=3 + ierr=rams_getvar('WP_BUOY_THETA',idim_type,ngrd,a,flnm) + cdname='W-theta-buoyancy;' + cdunits='m/s;' + +elseif(cvar(1:lv).eq.'wp_buoy_cond') then ! 1 - instant + ivar_type=3 + ierr=rams_getvar('WP_BUOY_COND',idim_type,ngrd,a,flnm) + cdname='W-theta-cond;' + cdunits='m/s;' + +elseif(cvar(1:lv).eq.'latheatvap') then + ivar_type=3 + ierr=rams_getvar('LATHEATVAP',idim_type,ngrd,a,flnm) + cdname='Lat-Heat-Vap-ThetaChange-inst;' + cdunits='dTheta;' + +elseif(cvar(1:lv).eq.'latheatfrz') then + ivar_type=3 + ierr=rams_getvar('LATHEATFRZ',idim_type,ngrd,a,flnm) + cdname='Lat-Heat-Frz-ThetaChange-inst;' + cdunits='dTheta;' + +elseif(cvar(1:lv).eq.'nuccldr') then + ivar_type=3 + ierr=rams_getvar('NUCCLDR',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Cloud-Nucleated-Mixing-Ratio-inst;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'cld2rain') then + ivar_type=3 + ierr=rams_getvar('CLD2RAIN',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Cloud-to-rain-water-inst;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'ice2rain') then + ivar_type=3 + ierr=rams_getvar('ICE2RAIN',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Ice-to-rain-water-inst;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'nucicer') then + ivar_type=3 + ierr=rams_getvar('NUCICER',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Ice-Nucleated-Mixing-Ratio-inst;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'vapliq') then + ivar_type=3 + ierr=rams_getvar('VAPLIQ',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + endif + cdname='Liquid-Vapor-diff-evap-Mixing-Ratio-inst;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'vapice') then + ivar_type=3 + ierr=rams_getvar('VAPICE',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + endif + cdname='Ice-Vapor-diff-evap-Mixing-Ratio-inst;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'meltice') then + ivar_type=3 + ierr=rams_getvar('MELTICE',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Melting-of-ice-inst;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'rimecld') then + ivar_type=3 + ierr=rams_getvar('RIMECLD',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Rimed-Amount-from-Cloud-inst;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'rain2ice') then + ivar_type=3 + ierr=rams_getvar('RAIN2ICE',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Rain-Water-Collected-by-Ice-Species-inst;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'aggregate') then + ivar_type=3 + ierr=rams_getvar('AGGREGATE',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Aggregation-of-Pris-Snow-inst;' + cdunits='g/kg;' + +!##################################################################### +!3D VERTICAL VELOCITY AND MICROPHYSICAL TOTAL BUDGETS - 55 variables +!##################################################################### +elseif(cvar(1:lv).eq.'nuccldrt') then + ivar_type=3 + ierr=rams_getvar('NUCCLDRT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Cloud-Nucleated-Mixing-Ratio-Total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'cld2raint') then + ivar_type=3 + ierr=rams_getvar('CLD2RAINT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Cloud-to-rain-water-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'ice2raint') then + ivar_type=3 + ierr=rams_getvar('ICE2RAINT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Ice-to-rain-water-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'nucicert') then + ivar_type=3 + ierr=rams_getvar('NUCICERT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Ice-Nucleated-Mixing-Ratio-Total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'vapliqt') then + ivar_type=3 + ierr=rams_getvar('VAPLIQT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + endif + cdname='Liquid-Vapor-diff-evap-Mixing-Ratio-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'vapicet') then + ivar_type=3 + ierr=rams_getvar('VAPICET',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + endif + cdname='Ice-Vapor-diff-evap-Mixing-Ratio-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'melticet') then + ivar_type=3 + ierr=rams_getvar('MELTICET',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Melting-of-ice-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'rimecldt') then + ivar_type=3 + ierr=rams_getvar('RIMECLDT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Rimed-Amount-from-Cloud-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'rain2icet') then + ivar_type=3 + ierr=rams_getvar('RAIN2ICET',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Rain-Water-Collected-by-Ice-Species-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'aggregatet') then + ivar_type=3 + ierr=rams_getvar('AGGREGATET',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Aggregation-of-Pris-Snow-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'latheatvapt') then + ivar_type=3 + ierr=rams_getvar('LATHEATVAPT',idim_type,ngrd,a,flnm) + cdname='Lat-Heat-Vap-ThetaChange-total;' + cdunits='dTheta;' + +elseif(cvar(1:lv).eq.'latheatfrzt') then + ivar_type=3 + ierr=rams_getvar('LATHEATFRZT',idim_type,ngrd,a,flnm) + cdname='Lat-Heat-Frz-ThetaChange-total;' + cdunits='dTheta;' + +elseif(cvar(1:lv).eq.'inuchomrt') then + ivar_type=3 + ierr=rams_getvar('INUCHOMRT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e6) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Homogeous-ice-nucleation-total;' + cdunits='mg/kg;' + +elseif(cvar(1:lv).eq.'inuccontrt') then + ivar_type=3 + ierr=rams_getvar('INUCCONTRT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e6) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Contact-ice-nucleation-total;' + cdunits='mg/kg;' + +elseif(cvar(1:lv).eq.'inucifnrt') then + ivar_type=3 + ierr=rams_getvar('INUCIFNRT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e6) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='IFN-ice-nucleation-total;' + cdunits='mg/kg;' + +elseif(cvar(1:lv).eq.'inuchazrt') then + ivar_type=3 + ierr=rams_getvar('INUCHAZRT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e6) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Haze-ice-nucleation-total;' + cdunits='mg/kg;' + +elseif(cvar(1:lv).eq.'vapcldt') then + ivar_type=3 + ierr=rams_getvar('VAPCLDT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + endif + cdname='Vapor-DepEvap-Cloud-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'vapraint') then + ivar_type=3 + ierr=rams_getvar('VAPRAINT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + endif + cdname='Vapor-DepEvap-Rain-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'vapprist') then + ivar_type=3 + ierr=rams_getvar('VAPPRIST',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + endif + cdname='Vapor-DepEvap-Pristine-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'vapsnowt') then + ivar_type=3 + ierr=rams_getvar('VAPSNOWT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + endif + cdname='Vapor-DepEvap-Snow-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'vapaggrt') then + ivar_type=3 + ierr=rams_getvar('VAPAGGRT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + endif + cdname='Vapor-DepEvap-Aggregate-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'vapgraut') then + ivar_type=3 + ierr=rams_getvar('VAPGRAUT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + endif + cdname='Vapor-DepEvap-Graupel-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'vaphailt') then + ivar_type=3 + ierr=rams_getvar('VAPHAILT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + endif + cdname='Vapor-DepEvap-Hail-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'vapdrizt') then + ivar_type=3 + ierr=rams_getvar('VAPDRIZT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + endif + cdname='Vapor-DepEvap-Drizzle-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'meltprist') then + ivar_type=3 + ierr=rams_getvar('MELTPRIST',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Melt-pristine-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'meltsnowt') then + ivar_type=3 + ierr=rams_getvar('MELTSNOWT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Melt-snow-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'meltaggrt') then + ivar_type=3 + ierr=rams_getvar('MELTAGGRT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Melt-aggregates-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'meltgraut') then + ivar_type=3 + ierr=rams_getvar('MELTGRAUT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Melt-graupel-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'melthailt') then + ivar_type=3 + ierr=rams_getvar('MELTHAILT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Melt-hail-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'rimecldsnowt') then + ivar_type=3 + ierr=rams_getvar('RIMECLDSNOWT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Snow-rime-cloud-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'rimecldaggrt') then + ivar_type=3 + ierr=rams_getvar('RIMECLDAGGRT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Aggr-rime-cloud-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'rimecldgraut') then + ivar_type=3 + ierr=rams_getvar('RIMECLDGRAUT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Graupel-rime-cloud-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'rimecldhailt') then + ivar_type=3 + ierr=rams_getvar('RIMECLDHAILT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Hail-rime-cloud-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'rain2prt') then + ivar_type=3 + ierr=rams_getvar('RAIN2PRT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Pristine-rime-rain-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'rain2snt') then + ivar_type=3 + ierr=rams_getvar('RAIN2SNT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Snow-rime-rain-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'rain2agt') then + ivar_type=3 + ierr=rams_getvar('RAIN2AGT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Aggr-rime-rain-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'rain2grt') then + ivar_type=3 + ierr=rams_getvar('RAIN2GRT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Graupel-rime-rain-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'rain2hat') then + ivar_type=3 + ierr=rams_getvar('RAIN2HAT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Hail-rime-rain-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'aggrselfprist') then + ivar_type=3 + ierr=rams_getvar('AGGRSELFPRIST',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Pristine-Selfcollect-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'aggrselfsnowt') then + ivar_type=3 + ierr=rams_getvar('AGGRSELFSNOWT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Snow-Selfcollect-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'aggrprissnowt') then + ivar_type=3 + ierr=rams_getvar('AGGRPRISSNOWT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Pristine-Snow-collect-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'dust1cldrt') then + ivar_type=3 + ierr=rams_getvar('DUST1CLDRT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Dust1-cloud-nucleation-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'dust2cldrt') then + ivar_type=3 + ierr=rams_getvar('DUST2CLDRT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Dust2-cloud-nucleation-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'dust1drzrt') then + ivar_type=3 + ierr=rams_getvar('DUST1DRZRT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Dust1-drizzle-nucleation-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'dust2drzrt') then + ivar_type=3 + ierr=rams_getvar('DUST2DRZRT',idim_type,ngrd,a,flnm) + if(ierr.eq.0) then + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='Dust2-drizzle-nucleation-total;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'vt_nuccldrt') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('NUCCLDRT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-nuccldrt;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'vt_cld2raint') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('CLD2RAINT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-cld2raint;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'vt_ice2raint') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('ICE2RAINT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-ice2raint;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'vt_nucicert') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('NUCICERT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-nucicert;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'vt_vapliqt') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('VAPLIQT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-vapliqt;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'vt_vapicet') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('VAPICET',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-vapicet;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'vt_melticet') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('MELTICET',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-melticet;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'vt_rimecldt') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RIMECLDT',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-rimecldt;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'vt_rain2icet') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RAIN2ICET',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-rain2icet;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'vt_aggregatet') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('AGGREGATET',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-aggregatet;' + cdunits='mm;' + +!###################################################################### +! 3D HYDROMETEOR DIAMETERS - 9 variables +!###################################################################### +elseif(cvar(1:lv).eq.'cloudtop_diam') then + ivar_type=2 + ierr=rams_getvar('RCP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CCP',idim_type,ngrd,c,flnm) + CALL rams_comp_ctopdiam (n1,n2,n3,a,c,cfmas(1),pwmas(1)) + cdname='cloud-top-diam;' + cdunits='microns;' + +elseif(cvar(1:lv).eq.'cloud_diam') then + ivar_type=3 + ierr=rams_getvar('RCP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CCP',idim_type,ngrd,c,flnm) + CALL rams_comp_hydrodiam (n1,n2,n3,a,c,cfmas(1),pwmas(1)) + CALL rams_comp_mults (n1,n2,n3,a,1.e6) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='cloud-diam;' + cdunits='microns;' + +elseif(cvar(1:lv).eq.'rain_diam') then + ivar_type=3 + ierr=rams_getvar('RRP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CRP',idim_type,ngrd,c,flnm) + CALL rams_comp_hydrodiam (n1,n2,n3,a,c,cfmas(2),pwmas(2)) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='rain-diam;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'pris_diam') then + ivar_type=3 + ierr=rams_getvar('RPP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CPP',idim_type,ngrd,c,flnm) +! more general case: write habit to anal file for cfmas & pwmas index + CALL rams_comp_hydrodiam (n1,n2,n3,a,c,cfmas(3),pwmas(3)) + CALL rams_comp_mults (n1,n2,n3,a,1.e6) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='pristine-diam;' + cdunits='microns;' + +elseif(cvar(1:lv).eq.'snow_diam') then + ivar_type=3 + ierr=rams_getvar('RSP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CSP',idim_type,ngrd,c,flnm) +! more general case: write habit to anal file for cfmas & pwmas index + CALL rams_comp_hydrodiam (n1,n2,n3,a,c,cfmas(4),pwmas(4)) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='snow-diam;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'agg_diam') then + ivar_type=3 + ierr=rams_getvar('RAP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CAP',idim_type,ngrd,c,flnm) + CALL rams_comp_hydrodiam (n1,n2,n3,a,c,cfmas(5),pwmas(5)) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='aggregates-diam;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'graup_diam') then + ivar_type=3 + ierr=rams_getvar('RGP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CGP',idim_type,ngrd,c,flnm) + CALL rams_comp_hydrodiam (n1,n2,n3,a,c,cfmas(6),pwmas(6)) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='graupel-diam;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'hail_diam') then + ivar_type=3 + ierr=rams_getvar('RHP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CHP',idim_type,ngrd,c,flnm) + CALL rams_comp_hydrodiam (n1,n2,n3,a,c,cfmas(7),pwmas(7)) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='hail-diam;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'drizzle_diam') then + ivar_type=3 + ierr=rams_getvar('RDP',idim_type,ngrd,a,flnm) + ierr=rams_getvar('CDP',idim_type,ngrd,c,flnm) + CALL rams_comp_hydrodiam (n1,n2,n3,a,c,cfmas(16),pwmas(16)) + CALL rams_comp_mults (n1,n2,n3,a,1.e6) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='drizzle-diam;' + cdunits='microns;' + +!###################################################################### +! 3D HYDROMETEOR TEMP, THERMAL ENERGY, LIQUID FRACTION - 11 variables +!###################################################################### +elseif(cvar(1:lv).eq.'q2') then + ivar_type=3 + ierr=rams_getvar('Q2',idim_type,ngrd,a,flnm) + cdname='q2;' + cdunits='J/kg;' + +elseif(cvar(1:lv).eq.'q6') then + ivar_type=3 + ierr=rams_getvar('Q6',idim_type,ngrd,a,flnm) + cdname='q6;' + cdunits='J/kg;' + +elseif(cvar(1:lv).eq.'q7') then + ivar_type=3 + ierr=rams_getvar('Q7',idim_type,ngrd,a,flnm) + cdname='q7;' + cdunits='J/kg;' + +elseif(cvar(1:lv).eq.'rain_temp') then + ivar_type=3 + ierr=rams_getvar('Q2',idim_type,ngrd,a,flnm) + CALL rams_comp_raintemp (n1,n2,n3,a) + cdname='rain-temperature;' + cdunits='K;' + +elseif(cvar(1:lv).eq.'graup_temp') then + ivar_type=3 + ierr=rams_getvar('Q6',idim_type,ngrd,a,flnm) + CALL rams_comp_qtcpcp (n1,n2,n3,a) + cdname='graupel-temperature;' + cdunits='C;' + +elseif(cvar(1:lv).eq.'hail_temp') then + ivar_type=3 + ierr=rams_getvar('Q7',idim_type,ngrd,a,flnm) + CALL rams_comp_qtcpcp (n1,n2,n3,a) + cdname='hail-temperature;' + cdunits='C;' + +elseif(cvar(1:lv).eq.'rain_air_tempdif') then + ivar_type=3 + ierr=rams_getvar('Q2',idim_type,ngrd,a,flnm) + CALL rams_comp_raintemp (n1,n2,n3,a) + ierr=rams_getvar('THETA',idim_type,ngrd,d,flnm) + ierr=rams_getvar('PI',idim_type,ngrd,c,flnm) + CALL rams_comp_tempK (n1,n2,n3,d,c) + CALL rams_comp_tempC (n1,n2,n3,d) + CALL rams_comp_subt (n1,n2,n3,a,d) + cdname='rain-air-temp;' + cdunits='K;' + +elseif(cvar(1:lv).eq.'graup_air_tempdif') then + ivar_type=3 + ierr=rams_getvar('Q6',idim_type,ngrd,a,flnm) + CALL rams_comp_qtcpcp (n1,n2,n3,a) + ierr=rams_getvar('THETA',idim_type,ngrd,d,flnm) + ierr=rams_getvar('PI',idim_type,ngrd,c,flnm) + CALL rams_comp_tempK (n1,n2,n3,d,c) + CALL rams_comp_tempC (n1,n2,n3,d) + CALL rams_comp_subt (n1,n2,n3,a,d) + cdname='graupel-air-temp;' + cdunits='K;' + +elseif(cvar(1:lv).eq.'hail_air_tempdif') then + ivar_type=3 + ierr=rams_getvar('Q7',idim_type,ngrd,a,flnm) + CALL rams_comp_qtcpcp (n1,n2,n3,a) + ierr=rams_getvar('THETA',idim_type,ngrd,d,flnm) + ierr=rams_getvar('PI',idim_type,ngrd,c,flnm) + CALL rams_comp_tempK (n1,n2,n3,d,c) + CALL rams_comp_tempC (n1,n2,n3,d) + CALL rams_comp_subt (n1,n2,n3,a,d) + cdname='hail-air-temp;' + cdunits='K;' + +elseif(cvar(1:lv).eq.'graup_fracliq') then + ivar_type=3 + ierr=rams_getvar('Q6',idim_type,ngrd,a,flnm) + CALL rams_comp_fracliq (n1,n2,n3,a) + cdname='graupel-liq-frac;' + cdunits='fraction;' + +elseif(cvar(1:lv).eq.'hail_fracliq') then + ivar_type=3 + ierr=rams_getvar('Q7',idim_type,ngrd,a,flnm) + CALL rams_comp_fracliq (n1,n2,n3,a) + cdname='hail-liq-frac;' + cdunits='fraction;' + +!###################################################################### +! 3D MISCELLANEOUS FIELDS - 4 variables +!###################################################################### +elseif(cvar(1:lv).eq.'geo') then + ivar_type=3 + ierr=rams_getvar('TOPT',idim_type,ngrd,c,flnm) + CALL rams_comp_z (n1,n2,n3,a,c,ngrd) + cdname='geopotential-height;' + cdunits='m;' + +elseif(cvar(1:lv).eq.'tke') then + ivar_type=3 + ierr=rams_getvar('TKEP',idim_type,ngrd,a,flnm) + CALL rams_comp_noneg (n1,n2,n3,a) + cdname='turb-kinetic-energy;' + cdunits='m2/s2;' + +elseif(cvar(1:lv).eq.'pbl_ht') then + ivar_type=2 + ierr=rams_getvar('TKEP',idim_type,ngrd,b,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,c,flnm) + CALL rams_comp_pbl (n1,n2,n3,a,b,c,ngrd) + cdname='PBL-height;' + cdunits='m;' + +elseif(cvar(1:lv).eq.'reflect_all') then + ivar_type=3 + iany=1 + allocate(trmix(n3,n1,n2),tgmix(n3,n1,n2),thmix(n3,n1,n2),tpmix(n3,n1,n2) & + ,tsmix(n3,n1,n2),tamix(n3,n1,n2), trnt(n3,n1,n2), tgnt(n3,n1,n2) & + ,thnt(n3,n1,n2), tpnt(n3,n1,n2), tsnt(n3,n1,n2), tant(n3,n1,n2) & + ,reflc(n3,n1,n2), tden(n3,n1,n2)) + + CALL reflectivity_zero (n3,n1,n2,trmix,trnt,tgmix,tgnt,thmix,thnt & + ,tpmix,tpnt,tsmix,tsnt,tamix,tant) + + !Calculate actual density over gridpoints + ierr=rams_getvar('PI',idim_type,ngrd,f,flnm) + CALL rams_comp_press (n1,n2,n3,f) + ierr=rams_getvar('THETA',idim_type,ngrd,d,flnm) + ierr=rams_getvar('PI',idim_type,ngrd,c,flnm) + CALL rams_comp_tempK (n1,n2,n3,d,c) !d is temperature [K] + CALL density4reflc (n3,n1,n2,tden,f,d) !after call, tden is density [kg/m^3] + + !Get rain mixing ratio and # conc + ierr=rams_getvar('RRP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_noneg (n1,n2,n3,c) !c is rain mix ratio [kg/kg] + if(ierr.eq.0) CALL arrayswap (n3,n1,n2,c,trmix,1) + ierr=rams_getvar('CRP',idim_type,ngrd,d,flnm) + if(ierr.eq.0) CALL rams_comp_noneg (n1,n2,n3,d) !d is rain # conc [#/kg] + if(ierr.eq.0) CALL arrayswap (n3,n1,n2,d,trnt,1) + + !Get graupel mixing ratio and # conc + ierr=rams_getvar('RGP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_noneg (n1,n2,n3,c) !c is graupel mix ratio [kg/kg] + if(ierr.eq.0) CALL arrayswap (n3,n1,n2,c,tgmix,1) + ierr=rams_getvar('CGP',idim_type,ngrd,d,flnm) + if(ierr.eq.0) CALL rams_comp_noneg (n1,n2,n3,d) !d is graupel # conc [#/kg] + if(ierr.eq.0) CALL arrayswap (n3,n1,n2,d,tgnt,1) + + !Get hail mixing ratio and # conc + ierr=rams_getvar('RHP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_noneg (n1,n2,n3,c) !c is hail mix ratio [kg/kg] + if(ierr.eq.0) CALL arrayswap (n3,n1,n2,c,thmix,1) + ierr=rams_getvar('CHP',idim_type,ngrd,d,flnm) + if(ierr.eq.0) CALL rams_comp_noneg (n1,n2,n3,d) !d is hail # conc [#/kg] + if(ierr.eq.0) CALL arrayswap (n3,n1,n2,d,thnt,1) + + !Get pristine ice mixing ratio and # conc + ierr=rams_getvar('RPP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_noneg (n1,n2,n3,c) !c is pris mix ratio [kg/kg] + if(ierr.eq.0) CALL arrayswap (n3,n1,n2,c,tpmix,1) + ierr=rams_getvar('CPP',idim_type,ngrd,d,flnm) + if(ierr.eq.0) CALL rams_comp_noneg (n1,n2,n3,d) !d is pris # conc [#/kg] + if(ierr.eq.0) CALL arrayswap (n3,n1,n2,d,tpnt,1) + + !Get snow ice mixing ratio and # conc + ierr=rams_getvar('RSP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_noneg (n1,n2,n3,c) !c is snow mix ratio [kg/kg] + if(ierr.eq.0) CALL arrayswap (n3,n1,n2,c,tsmix,1) + ierr=rams_getvar('CSP',idim_type,ngrd,d,flnm) + if(ierr.eq.0) CALL rams_comp_noneg (n1,n2,n3,d) !d is snow # conc [#/kg] + if(ierr.eq.0) CALL arrayswap (n3,n1,n2,d,tsnt,1) + + !Get aggregate ice mixing ratio and # conc + ierr=rams_getvar('RAP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_noneg (n1,n2,n3,c) !c is aggr mix ratio [kg/kg] + if(ierr.eq.0) CALL arrayswap (n3,n1,n2,c,tamix,1) + ierr=rams_getvar('CAP',idim_type,ngrd,d,flnm) + if(ierr.eq.0) CALL rams_comp_noneg (n1,n2,n3,d) !d is aggr # conc [#/kg] + if(ierr.eq.0) CALL arrayswap (n3,n1,n2,d,tant,1) + +!Could use this to isolate reflectivity for particular species + !Set temporary arrays for graupel and hail to zero +! CALL set2zero (n3,n1,n2,tgmix,thmix,tgnt,thnt) + + !Compute reflectivity values [dBZ] for combined rain, graupel and hail + CALL reflectivity_all (n3,n1,n2,trmix,trnt,tgmix,tgnt,thmix,thnt & + ,tpmix,tpnt,tsmix,tsnt,tamix,tant,tden,reflc) + CALL arrayswap (n3,n1,n2,a,reflc,2) !a is now total reflctvty [dBZ] + cdname='radar-reflectivity;' + cdunits='dBZ;' + deallocate(trmix,tgmix,thmix,tpmix,tsmix,tamix,trnt,tgnt,thnt,tpnt,tsnt & + ,tant,reflc,tden) + +!###################################################################### +! CUMULUS PARAMETERIZATION - RADIATION - TURBULENCE - 15 variables +!###################################################################### +elseif(cvar(1:lv).eq.'cuparm_thetasrc') then + ivar_type=3 + ierr=rams_getvar('THSRC',idim_type,ngrd,a,flnm) + cdname='conv-heat-rate;' + cdunits='K/s;' + +elseif(cvar(1:lv).eq.'cuparm_rtsrc') then + ivar_type=3 + ierr=rams_getvar('RTSRC',idim_type,ngrd,a,flnm) + cdname='conv-moist-rate;' + cdunits='kg/kg/s;' + +elseif(cvar(1:lv).eq.'khh') then + ivar_type=3 + ierr=rams_getvar('HKH',idim_type,ngrd,a,flnm) + cdname='horiz-diffusion-coeff;' + cdunits='m2/s;' + +elseif(cvar(1:lv).eq.'khv') then + ivar_type=3 + ierr=rams_getvar('VKH',idim_type,ngrd,a,flnm) + cdname='vert-diffusion-coeff;' + cdunits='m2/s;' + +elseif(cvar(1:lv).eq.'visibility') then + ivar_type=3 + ierr=rams_getvar('BEXT',idim_type,ngrd,a,flnm) + cdname='visibility;' + cdunits='km;' + +elseif(cvar(1:lv).eq.'swup') then + ivar_type=3 + ierr=rams_getvar('SWUP',idim_type,ngrd,a,flnm) + cdname='shortwave-up;' + cdunits='W/m2;' + +elseif(cvar(1:lv).eq.'swdn') then + ivar_type=3 + ierr=rams_getvar('SWDN',idim_type,ngrd,a,flnm) + cdname='shortwave-down;' + cdunits='W/m2;' + +elseif(cvar(1:lv).eq.'lwup') then + ivar_type=3 + ierr=rams_getvar('LWUP',idim_type,ngrd,a,flnm) + cdname='longwave-up;' + cdunits='W/m2;' + +elseif(cvar(1:lv).eq.'lwdn') then + ivar_type=3 + ierr=rams_getvar('LWDN',idim_type,ngrd,a,flnm) + cdname='longwave-down;' + cdunits='W/m2;' + +elseif(cvar(1:lv).eq.'aodt') then + ivar_type=2 + ierr=rams_getvar('AODT',idim_type,ngrd,a,flnm) + cdname='Visible-Band-AOD;' + cdunits='AOD;' + +elseif(cvar(1:lv).eq.'rad_thetasrc') then + ivar_type=3 + ierr=rams_getvar('FTHRD',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,n3,a,86400.) + cdname='rad-heat-rate;' + cdunits='K/day;' + +elseif(cvar(1:lv).eq.'column_net_rad_flx') then + ivar_type=2 + allocate (pv1(nnxp(ngrd),nnyp(ngrd),nnzp(ngrd))) + allocate (pv2(nnxp(ngrd),nnyp(ngrd),nnzp(ngrd))) + allocate (pv3(nnxp(ngrd),nnyp(ngrd),nnzp(ngrd))) + allocate (dv1(nnxp(ngrd),nnyp(ngrd))) + allocate (dv2(nnxp(ngrd),nnyp(ngrd))) + allocate (dv3(nnxp(ngrd),nnyp(ngrd))) + allocate (dv4(nnxp(ngrd),nnyp(ngrd))) + ierr=rams_getvar('SWUP', idim_type,ngrd,pv1,flnm) !atmos shortwave up + ierr=rams_getvar('LWUP', idim_type,ngrd,pv2,flnm) !atmos longwave up + ierr=rams_getvar('SWDN', idim_type,ngrd,pv3,flnm) !atmos shortwave down + ierr=rams_getvar('RSHORT', idim_type,ngrd,dv1,flnm) !surface shortwave down + ierr=rams_getvar('RLONG', idim_type,ngrd,dv2,flnm) !surface longwave down + ierr=rams_getvar('RLONGUP',idim_type,ngrd,dv3,flnm) !surface longwave up + ierr=rams_getvar('ALBEDT', idim_type,ngrd,dv4,flnm) !surface albdeo + CALL rams_net_rad_flx (nnxp(ngrd),nnyp(ngrd),nnzp(ngrd),a & + ,pv1,pv2,pv3,dv1,dv2,dv3,dv4) + deallocate (pv1,pv2,pv3,dv1,dv2,dv3,dv4) + cdname='column-net-radiative-flux;' + cdunits='W/m2;' + +elseif(cvar(1:lv).eq.'sum_rad_flx') then + ivar_type=3 + allocate (pv1(nnxp(ngrd),nnyp(ngrd),nnzp(ngrd))) + allocate (pv2(nnxp(ngrd),nnyp(ngrd),nnzp(ngrd))) + allocate (pv3(nnxp(ngrd),nnyp(ngrd),nnzp(ngrd))) + allocate (pv4(nnxp(ngrd),nnyp(ngrd),nnzp(ngrd))) + ierr=rams_getvar('SWUP',idim_type,ngrd,pv1,flnm) !atmos shortwave up + ierr=rams_getvar('LWUP',idim_type,ngrd,pv2,flnm) !atmos longwave up + ierr=rams_getvar('SWDN',idim_type,ngrd,pv3,flnm) !atmos shortwave down + ierr=rams_getvar('LWDN',idim_type,ngrd,pv4,flnm) !atmos longwave down + CALL rams_sum_rad_flx (nnxp(ngrd),nnyp(ngrd),nnzp(ngrd),a & + ,pv1,pv2,pv3,pv4) + deallocate (pv1,pv2,pv3,pv4) + cdname='sum-rad-flux-up-down;' + cdunits='W/m2;' + +elseif(cvar(1:lv).eq.'sw_heat_rate') then + ivar_type=3 + allocate (pv1(nnxp(ngrd),nnyp(ngrd),nnzp(ngrd))) + allocate (pv2(nnxp(ngrd),nnyp(ngrd),nnzp(ngrd))) + allocate (pv3(nnxp(ngrd),nnyp(ngrd),nnzp(ngrd))) + allocate (pv4(nnxp(ngrd),nnyp(ngrd),nnzp(ngrd))) + ierr=rams_getvar('SWUP',idim_type,ngrd,pv1,flnm) !atmos shortwave up + ierr=rams_getvar('SWDN',idim_type,ngrd,pv2,flnm) !atmos shortwave down + ierr=rams_getvar('DN0' ,idim_type,ngrd,pv3,flnm) + ierr=rams_getvar('PI' ,idim_type,ngrd,pv4,flnm) + CALL rams_swheatrate (nnxp(ngrd),nnyp(ngrd),nnzp(ngrd),a & + ,pv1,pv2,pv3,pv4,ngrd) + deallocate (pv1,pv2,pv3,pv4) + CALL rams_comp_mults (n1,n2,n3,a,86400.) + cdname='sw_heat_rate;' + cdunits='K/day;' + +elseif(cvar(1:lv).eq.'lw_heat_rate') then + ivar_type=3 + allocate (pv1(nnxp(ngrd),nnyp(ngrd),nnzp(ngrd))) + allocate (pv2(nnxp(ngrd),nnyp(ngrd),nnzp(ngrd))) + allocate (pv3(nnxp(ngrd),nnyp(ngrd),nnzp(ngrd))) + allocate (pv4(nnxp(ngrd),nnyp(ngrd),nnzp(ngrd))) + ierr=rams_getvar('LWUP',idim_type,ngrd,pv1,flnm) !atmos longwave up + ierr=rams_getvar('LWDN',idim_type,ngrd,pv2,flnm) !atmos longwave down + ierr=rams_getvar('DN0' ,idim_type,ngrd,pv3,flnm) + ierr=rams_getvar('PI' ,idim_type,ngrd,pv4,flnm) + CALL rams_swheatrate (nnxp(ngrd),nnyp(ngrd),nnzp(ngrd),a & + ,pv1,pv2,pv3,pv4,ngrd) + deallocate (pv1,pv2,pv3,pv4) + CALL rams_comp_mults (n1,n2,n3,a,86400.) + cdname='lw_heat_rate;' + cdunits='K/day;' + +!###################################################################### +! 2D SURFACE PRECIP and VERTICALLY INTEGRATED FIELDS - 55 variables +!###################################################################### +elseif(cvar(1:lv).eq.'accpr') then + ivar_type=2 + ierr=rams_getvar('ACCPR',idim_type,ngrd,a,flnm) + cdname='accum-rain;' + cdunits='kg/m2;' + +elseif(cvar(1:lv).eq.'accpp') then + ivar_type=2 + ierr=rams_getvar('ACCPP',idim_type,ngrd,a,flnm) + cdname='accum-pristine;' + cdunits='kg/m2;' + +elseif(cvar(1:lv).eq.'accps') then + ivar_type=2 + ierr=rams_getvar('ACCPS',idim_type,ngrd,a,flnm) + cdname='accum-snow;' + cdunits='kg/m2;' + +elseif(cvar(1:lv).eq.'accpa') then + ivar_type=2 + ierr=rams_getvar('ACCPA',idim_type,ngrd,a,flnm) + cdname='accum-aggregates;' + cdunits='kg/m2;' + +elseif(cvar(1:lv).eq.'accpg') then + ivar_type=2 + ierr=rams_getvar('ACCPG',idim_type,ngrd,a,flnm) + cdname='accum-graupel;' + cdunits='kg/m2;' + +elseif(cvar(1:lv).eq.'accph') then + ivar_type=2 + ierr=rams_getvar('ACCPH',idim_type,ngrd,a,flnm) + cdname='accum-hail;' + cdunits='kg/m2;' + +elseif(cvar(1:lv).eq.'accpd') then + ivar_type=2 + ierr=rams_getvar('ACCPD',idim_type,ngrd,a,flnm) + cdname='accum-drizzle;' + cdunits='kg/m2;' + +elseif(cvar(1:lv).eq.'accpaero') then + ivar_type=2 + ierr=rams_getvar('ACCPAERO',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,n3,a,1.e6) + cdname='accum-total-aerosol-mass;' + cdunits='milli-grams/m2;' + +elseif(cvar(1:lv).eq.'accpdust') then + ivar_type=2 + ierr=rams_getvar('ACCPDUST',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,n3,a,1.e6) + cdname='accum-dust-aerosol-mass;' + cdunits='milli-grams/m2;' + +elseif(cvar(1:lv).eq.'dustfrac') then + ivar_type=2 + ierr=rams_getvar('DUSTFRAC',idim_type,ngrd,a,flnm) + cdname='dust-erodible-fraction;' + cdunits='fraction;' + +elseif(cvar(1:lv).eq.'totpcp' .or. & + cvar(1:lv).eq.'totpcp_in' .or. & + cvar(1:lv).eq.'precip' .or. & + cvar(1:lv).eq.'precip_in') then + ivar_type=2 + iany=1 + CALL rams_comp_zero (n1,n2,1,a) + ierr=rams_getvar('ACCPD',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,1,a,c) + ierr=rams_getvar('ACCPR',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,1,a,c) + ierr=rams_getvar('ACCPP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,1,a,c) + ierr=rams_getvar('ACCPS',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,1,a,c) + ierr=rams_getvar('ACCPA',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,1,a,c) + ierr=rams_getvar('ACCPG',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,1,a,c) + ierr=rams_getvar('ACCPH',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,1,a,c) + + if (cvar(1:lv)=='precip'.or.cvar(1:lv)=='precip_in') then + ierr=rams_getvar('ACONPR',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,1,a,c) + cdname='total-accum-precip;' + else + cdname='total-resolved-precip;' + endif + + if(cvar(1:lv)=='totpcp'.or.cvar(1:lv)=='precip') then + cdunits='mm-liq;' + else + CALL rams_comp_mults (n1,n2,n3,a,.03937) + cdunits='in-liq;' + endif + CALL rams_comp_noneg (n1,n2,1,a) + +elseif(cvar(1:lv).eq.'pcprr') then + ivar_type=2 + ierr=rams_getvar('PCPRR',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,1,a,3600.) + cdname='rain-precip-rate;' + cdunits='mm/hr-liq-equiv;' + +elseif(cvar(1:lv).eq.'pcpvr') then + ivar_type=3 + ierr=rams_getvar('PCPVR',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,n3,a,3600.) + cdname='3D-rain-precip-rate;' + cdunits='mm/hr-liq-equiv;' + +elseif(cvar(1:lv).eq.'pcprp') then + ivar_type=2 + ierr=rams_getvar('PCPRP',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,1,a,3600.) + cdname='pristine-precip-rate;' + cdunits='mm/hr-liq-equiv;' + +elseif(cvar(1:lv).eq.'pcpvp') then + ivar_type=3 + ierr=rams_getvar('PCPVP',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,n3,a,3600.) + cdname='3D-pristine-precip-rate;' + cdunits='mm/hr-liq-equiv;' + +elseif(cvar(1:lv).eq.'pcprs') then + ivar_type=2 + ierr=rams_getvar('PCPRS',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,1,a,3600.) + cdname='snow-precip-rate;' + cdunits='mm/hr-liq-equiv;' + +elseif(cvar(1:lv).eq.'pcpvs') then + ivar_type=3 + ierr=rams_getvar('PCPVS',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,n3,a,3600.) + cdname='3D-snow-precip-rate;' + cdunits='mm/hr-liq-equiv;' + +elseif(cvar(1:lv).eq.'pcpra') then + ivar_type=2 + ierr=rams_getvar('PCPRA',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,1,a,3600.) + cdname='aggregates-precip-rate;' + cdunits='mm/hr-liq-equiv;' + +elseif(cvar(1:lv).eq.'pcpva') then + ivar_type=3 + ierr=rams_getvar('PCPVA',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,n3,a,3600.) + cdname='3D-aggregates-precip-rate;' + cdunits='mm/hr-liq-equiv;' + +elseif(cvar(1:lv).eq.'pcprg') then + ivar_type=2 + ierr=rams_getvar('PCPRG',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,1,a,3600.) + cdname='graupel-precip-rate;' + cdunits='mm/hr-liq-equiv;' + +elseif(cvar(1:lv).eq.'pcpvg') then + ivar_type=3 + ierr=rams_getvar('PCPVG',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,n3,a,3600.) + cdname='3D-graupel-precip-rate;' + cdunits='mm/hr-liq-equiv;' + +elseif(cvar(1:lv).eq.'pcprh') then + ivar_type=2 + ierr=rams_getvar('PCPRH',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,1,a,3600.) + cdname='hail precip rate;' + cdunits='mm/hr liq equiv;' + +elseif(cvar(1:lv).eq.'pcpvh') then + ivar_type=3 + ierr=rams_getvar('PCPVH',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,n3,a,3600.) + cdname='3D-hail-precip-rate;' + cdunits='mm/hr-liq-equiv;' + +elseif(cvar(1:lv).eq.'pcprd') then + ivar_type=2 + ierr=rams_getvar('PCPRD',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,1,a,3600.) + cdname='drizzle-precip-rate;' + cdunits='mm/hr-liq-equiv;' + +elseif(cvar(1:lv).eq.'pcpvd') then + ivar_type=3 + ierr=rams_getvar('PCPVD',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,n3,a,3600.) + cdname='3D-drizzle-precip-rate;' + cdunits='mm/hr-liq-equiv;' + +elseif(cvar(1:lv).eq.'pcpg') then + ivar_type=2 + ierr=rams_getvar('PCPG',idim_type,ngrd,a,flnm) + cdname='pcpg;' + cdunits='kg/m2;' + +elseif(cvar(1:lv).eq.'qpcpg') then + ivar_type=2 + ierr=rams_getvar('QPCPG',idim_type,ngrd,a,flnm) + cdname='qpcpg;' + cdunits='J/m2;' + +elseif(cvar(1:lv).eq.'dpcpg') then + ivar_type=2 + ierr=rams_getvar('DPCPG',idim_type,ngrd,a,flnm) + cdname='dpdpg;' + cdunits='m;' + +elseif(cvar(1:lv).eq.'pcprate' .or. & + cvar(1:lv).eq.'pcprate_in' .or. & + cvar(1:lv).eq.'precipr' .or. & + cvar(1:lv).eq.'precipr_in') then + ivar_type=2 + iany=1 + CALL rams_comp_zero (n1,n2,1,a) + ierr=rams_getvar('PCPRD',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,1,a,c) + ierr=rams_getvar('PCPRR',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,1,a,c) + ierr=rams_getvar('PCPRP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,1,a,c) + ierr=rams_getvar('PCPRS',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,1,a,c) + ierr=rams_getvar('PCPRA',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,1,a,c) + ierr=rams_getvar('PCPRG',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,1,a,c) + ierr=rams_getvar('PCPRH',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,1,a,c) + CALL rams_comp_noneg (n1,n2,1,a) + + if (cvar(1:lv)=='precipr'.or.cvar(1:lv)=='precipr_in') then + ierr=rams_getvar('CONPRR',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,1,a,c) + cdname='total-precip-rate;' + else + cdname='resolved-precip-rate;' + endif + + if(cvar(1:lv)=='pcprate'.or.cvar(1:lv)=='precipr') then + CALL rams_comp_mults (n1,n2,1,a,3600.) + cdunits='mm/hr;' + elseif(cvar(1:lv)=='pcprate_in'.or.cvar(1:lv)=='precipr_in') then + CALL rams_comp_mults (n1,n2,1,a,141.732) + cdunits='in/hr;' + endif + +elseif(cvar(1:lv).eq.'conpcp') then + ivar_type=2 + ierr=rams_getvar('CONPRR',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,1,a,3600.) + CALL rams_comp_noneg (n1,n2,1,a) + cdname='convective-pcp-rate;' + cdunits='mm/hr;' + +elseif(cvar(1:lv).eq.'acccon') then + ivar_type=2 + ierr=rams_getvar('ACONPR',idim_type,ngrd,a,flnm) + CALL rams_comp_noneg (n1,n2,1,a) + cdname='accum-convective-pcp;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'vertmax_w') then + ivar_type=2 + ierr=rams_getvar('WP',idim_type,ngrd,c,flnm) + CALL rams_comp_vertmax (n1,n2,n3,a,c) + cdname='maximum-vertical-motion;' + cdunits='m/s;' + +elseif(cvar(1:lv).eq.'vertavg_w') then + ivar_type=2 + ierr=rams_getvar('WP',idim_type,ngrd,c,flnm) + CALL rams_comp_vertavg (n1,n2,n3,a,c) + cdname='average-vertical-motion;' + cdunits='m/s;' + +! Vertically-integrated atmospheric moisture +elseif(cvar(1:lv).eq.'vertint_rt' .or. & + cvar(1:lv).eq.'vertint_cond') then + ivar_type=2 + iany=1 + + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + + if (cvar(1:lv)=='vertint_rt') then + ierr=rams_getvar('RV',idim_type,ngrd,a,flnm) + cdname='vertically-integrated-total-water;' + else + CALL rams_comp_zero (n1,n2,n3,a) + cdname='vertically-integrated-condensate;' + endif + + ierr=rams_getvar('RCP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RDP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RRP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RPP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RSP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RAP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RGP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RHP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdunits='mm;' + +elseif(cvar(1:lv).eq.'vertint_orig') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RTP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RV',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_subt (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-condensate;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'vertint_vapor') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RV',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-vapor;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'vertint_liq') then + ivar_type=2 + iany=1 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RCP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RDP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RRP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-liquid;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'vertint_ice') then + ivar_type=2 + iany=1 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RPP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RSP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RAP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RGP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('RHP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-ice;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'vertint_cloud') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RCP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-cloud-water;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'vertint_driz') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RDP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-drizzle;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'vertint_rain') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RRP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-rain;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'vertint_pris') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RPP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-pristine;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'vertint_snow') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RSP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-snow;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'vertint_aggr') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RAP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-aggregates;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'vertint_graupel') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RGP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-graupel;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'vertint_hail') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('RHP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + cdname='vertically-integrated-hail;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'vertint_dust') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('MD1MP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('MD2MP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + CALL rams_comp_mults (n1,n2,n3,a,1.e3) + cdname='vertically-integrated-dust;' + cdunits='grams/m2;' + +elseif(cvar(1:lv).eq.'vertint_dust_hydro') then + ivar_type=2 + iany=1 + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + CALL rams_comp_dn0 (n1,n2,n3,c,b,d,e,ngrd) + CALL rams_comp_zero (n1,n2,n3,a) + ierr=rams_getvar('DNMCP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('DNMRP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('DNMPP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('DNMSP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('DNMAP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('DNMGP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('DNMHP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + ierr=rams_getvar('DNMDP',idim_type,ngrd,c,flnm) + if(ierr.eq.0) CALL rams_comp_accum (n1,n2,n3,a,c) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_vertint (n1,n2,n3,a,e,ngrd) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + cdname='vertint-dust-in-hydromets;' + cdunits='micro-grams/m2;' + +!###################################################################### +! 2D SEA ICE COVERAGE, DEPTH, ROUGHNESS, TEMP, SNOW COVER - 5 variables +!###################################################################### +elseif(cvar(1:lv).eq.'snowdepthonice') then + ivar_type=2 + ierr=rams_getvar('DEPSNOW',idim_type,ngrd,a,flnm) + cdname='snow-depth-on-ice;' + cdunits='m;' + +elseif(cvar(1:lv).eq.'cicedepth') then + ivar_type=2 + ierr=rams_getvar('DEPICE',idim_type,ngrd,a,flnm) + cdname='cice-depth;' + cdunits='m;' + +elseif(cvar(1:lv).eq.'cicefract') then + ivar_type=2 + ierr=rams_getvar('FRACICE',idim_type,ngrd,a,flnm) + cdname='cice-fraction;' + cdunits='frac;' + +elseif(cvar(1:lv).eq.'cicetemp') then + ivar_type=2 + ierr=rams_getvar('CICETP',idim_type,ngrd,a,flnm) + cdname='cice-temperature;' + cdunits='C;' + +elseif(cvar(1:lv).eq.'cicerough') then + ivar_type=2 + ierr=rams_getvar('CICERUF',idim_type,ngrd,a,flnm) + cdname='cice-roughness;' + cdunits='#;' + +!###################################################################### +! 2D SURFACE HEAT, MOISTURE, MOMENTUM AND RADIATIVE FLUX - 12 variables +!###################################################################### +elseif(cvar(1:lv).eq.'sens_flux') then + ivar_type=2 + ierr=rams_getvar('SFLUX_T',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,1,a,1004.) + cdname='sfc-sens-heat-flx;' + cdunits='W/m2;' + +elseif(cvar(1:lv).eq.'lat_flux') then + ivar_type=2 + ierr=rams_getvar('SFLUX_R',idim_type,ngrd,a,flnm) + CALL rams_comp_mults (n1,n2,1,a,2.5e6) + cdname='sfc-lat-heat-flx;' + cdunits='W/m2;' + +elseif(cvar(1:lv).eq.'etrans') then + ivar_type=2 + ierr=rams_getvar('SFLUX_R',idim_type,ngrd,a,flnm) +! Divide by water density to get depth and +! convert units from m/s to mm/hour (3600./1000.) + CALL rams_comp_mults (n1,n2,1,a,3.6) + cdname='evapo-transpiration;' + cdunits='mm/hour;' + +elseif(cvar(1:lv).eq.'etrans_in') then + ivar_type=2 + ierr=rams_getvar('SFLUX_R',idim_type,ngrd,a,flnm) +! Divide by water density to get depth and +! convert units from m/s to in/hour (39.37 * 3600./1000.) + CALL rams_comp_mults (n1,n2,n3,a,141.732) + cdname='evapo-transpiration;' + cdunits='in/hour;' + +elseif(cvar(1:lv).eq.'umom_flx') then + ivar_type=2 + ierr=rams_getvar('SFLUX_U',idim_type,ngrd,a,flnm) + cdname='sfc-u-momentum-flx;' + cdunits='Pa;' + +elseif(cvar(1:lv).eq.'vmom_flx') then + ivar_type=2 + ierr=rams_getvar('SFLUX_V',idim_type,ngrd,a,flnm) + cdname='sfc-v-momentum-flx;' + cdunits='Pa;' + +elseif(cvar(1:lv).eq.'wmom_flx') then + ivar_type=2 + ierr=rams_getvar('SFLUX_W',idim_type,ngrd,a,flnm) + cdname='sfc-w-momentum-flx;' + cdunits='Pa;' + +elseif(cvar(1:lv).eq.'bowen') then + ivar_type=2 + ierr=rams_getvar('SFLUX_T',idim_type,ngrd,a,flnm) + ierr=rams_getvar('SFLUX_R',idim_type,ngrd,c,flnm) + CALL rams_comp_bowen (n1,n2,1,a,c) + cdname='bowen-ratio;' + cdunits=' ;' + +elseif(cvar(1:lv).eq.'rshort') then + ivar_type=2 + ierr=rams_getvar('RSHORT',idim_type,ngrd,a,flnm) + cdname='rshort;' + cdunits='W/m2;' + +elseif(cvar(1:lv).eq.'rlong') then + ivar_type=2 + ierr=rams_getvar('RLONG',idim_type,ngrd,a,flnm) + cdname='rlong;' + cdunits='W/m2;' + +elseif(cvar(1:lv).eq.'rlongup') then + ivar_type=2 + ierr=rams_getvar('RLONGUP',idim_type,ngrd,a,flnm) + cdname='rlongup;' + cdunits='W/m2;' + +elseif(cvar(1:lv).eq.'albedt') then + ivar_type=2 + ierr=rams_getvar('ALBEDT',idim_type,ngrd,a,flnm) + cdname='albedt;' + cdunits='fraction;' + +!###################################################################### +! 2D TOPOGRAPHY AND GEOGRAPHIC VALUES - 3 variables +!###################################################################### +elseif(cvar(1:lv).eq.'topt') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,a,flnm) + cdname='topography;' + cdunits='m;' + +elseif(cvar(1:lv).eq.'lat') then + ivar_type=2 + ierr=rams_getvar('GLAT',idim_type,ngrd,a,flnm) + cdname='latitude;' + cdunits='deg;' + +elseif(cvar(1:lv).eq.'lon') then + ivar_type=2 + ierr=rams_getvar('GLON',idim_type,ngrd,a,flnm) + cdname='longitude;' + cdunits='deg;' + +!###################################################################### +! 2D MISCELLANEOUS FIELDS - 3 variables +!###################################################################### +elseif(cvar(1:lv).eq.'sea_press') then + ivar_type=2 + ierr=rams_getvar('TOPT',idim_type,ngrd,a,flnm) + CALL rams_comp_z (n1,n2,n3,c,a,ngrd) + ierr=rams_getvar('PI',idim_type,ngrd,d,flnm) + ierr=rams_getvar('THETA',idim_type,ngrd,a,flnm) + CALL rams_comp_slpress (n1,n2,n3,a,d,c,a) + cdname='sea-level-pressure;' + cdunits='mb;' + +elseif(cvar(1:lv).eq.'sfc_div') then + ivar_type=2 + ierr=rams_getvar('WP',idim_type,ngrd,a,flnm) + CALL rams_comp_sfcdiv (n1,n2,n3,a,ngrd) + cdname='surface-divergence;' + cdunits='1/s;' + +! Special use of sst: acquired for patch #1 even where no water exists +elseif(cvar(1:lv).eq.'sst') then + ivar_type=2 + ierr=rams_getvar('SOIL_ENERGY',idim_type,ngrd,c,flnm) + kp = nzg + CALL rams_fill_sst (n1,n2,nzg*npatch,kp,a,c) + cdname='water-temperature;' + cdunits='C;' + +!###################################################################### +! LEAF3/SIB variables section - 34 variables +!###################################################################### +elseif(cvar(1:lv).eq.'patch_area') then + ivar_type=6 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + cdname='patch-fractional-area;' + cdunits='fraction;' + +elseif(cvar(1:lv).eq.'water') then + ivar_type=2 + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a,flnm) + CALL rams_comp_1plus (nnxp(ngrd),nnyp(ngrd),1,a) + cdname='water-frac-area;' + cdunits='fraction;' + +elseif(cvar(1:lv).eq.'land') then + ivar_type=2 + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a,flnm) + CALL rams_comp_1minus (nnxp(ngrd),nnyp(ngrd),1,a) + cdname='land-frac-area;' + cdunits='fraction;' + +elseif(cvar(1:lv).eq.'snow_levels') then + ivar_type=6 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('SFCWATER_NLEV',idim_type,ngrd,a(irecind),flnm) + cdname='number-of-snow-levels;' + cdunits='#;' + +elseif(cvar(1:lv).eq.'snow_depth_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('SFCWATER_DEPTH',idim_type,ngrd,a(irecind),flnm) + CALL rams_sum_snowlayers_ps (nnxp(ngrd),nnyp(ngrd),nzs,npatch,a(irecind),a(1)) + cdname='snow-depth;' + cdunits='m;' + +elseif(cvar(1:lv).eq.'snow_mass_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('SFCWATER_MASS',idim_type,ngrd,a(irecind),flnm) + CALL rams_sum_snowlayers_ps (nnxp(ngrd),nnyp(ngrd),nzs,npatch,a(irecind),a(1)) + cdname='snow-water-equivalent;' + cdunits='kg/m2;' + +elseif(cvar(1:lv).eq.'snow_temp_ps') then + ivar_type=4 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('SFCWATER_ENERGY',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_qtcpcp_ps (nnxp(ngrd),nnyp(ngrd),nzs,npatch,a(irecind)) + CALL rams_comp_patchsum_l (nnxp(ngrd),nnyp(ngrd),nzs,npatch,a(irecind),a(1),b) + cdname='snowlayer-water-temp;' + cdunits='C;' + +elseif(cvar(1:lv).eq.'topo_z0_ps') then + ivar_type=2 + ierr=rams_getvar('TOPZO',idim_type,ngrd,a,flnm) + cdname='topo-roughness;' + cdunits='m;' + +elseif(cvar(1:lv).eq.'net_z0_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('PATCH_ROUGH',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='net-roughness;' + cdunits='m;' + +elseif(cvar(1:lv).eq.'soil_z0_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('SOIL_ROUGH',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum_l (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='soil-roughness;' + cdunits='m;' + +elseif(cvar(1:lv).eq.'veg_z0_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('VEG_ROUGH',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum_l (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='vegetation-roughness;' + cdunits='m;' + +elseif(cvar(1:lv).eq.'veg_ndvi_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar ('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar ('VEG_NDVIC',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum_l (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='veg-ndvi;' + cdunits='#;' + +elseif(cvar(1:lv).eq.'veg_class_bp') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('LEAF_CLASS',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_vegclass (irecsize,1,1,a(irecind)) + CALL rams_comp_bigpatch (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='dominant-vegetation-class;' + cdunits='#;' + +elseif(cvar(1:lv).eq.'veg_albedo_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('VEG_ALBEDO',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum_l (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='vegetation-albedo;' + cdunits='fraction;' + +elseif(cvar(1:lv).eq.'veg_fracarea_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('VEG_FRACAREA',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum_l (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='vegetation-frac-area;' + cdunits='fraction;' + +elseif(cvar(1:lv).eq.'veg_lai_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('VEG_LAI',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum_l (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='leaf-area-index;' + cdunits='#;' + +elseif(cvar(1:lv).eq.'veg_disp_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('VEG_HEIGHT',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum_l (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='vegetation-displacement-height;' + cdunits='m;' + +elseif(cvar(1:lv).eq.'canopy_mixrat_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('CAN_RVAP',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_mults (n1,n2,npatch,a(irecind),1.e3) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='canopy-mixing-ratio;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'grnd_mixrat_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('GROUND_RSAT',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_mults (n1,n2,npatch,a(irecind),1.e3) + CALL rams_comp_patchsum_l (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='ground-mixing-ratio;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'soil_mixrat_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('GROUND_RVAP',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_mults (n1,n2,npatch,a(irecind),1.e3) + CALL rams_comp_patchsum_l (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='soil-mixing-ratio;' + cdunits='g/kg;' + +elseif(cvar(1:lv).eq.'veg_moist_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('VEG_WATER',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum_l (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='vegetation-moisture;' + cdunits='kg/m2;' + +elseif(cvar(1:lv).eq.'veg_temp_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('VEG_TEMP',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_tempC (n1,n2,npatch,a(irecind)) + CALL rams_comp_patchsum_l (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='vegetation-temperature;' + cdunits='C;' + +elseif(cvar(1:lv).eq.'canopy_tempc_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('CAN_TEMP',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_tempC (n1,n2,npatch,a(irecind)) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='canopy-temperature;' + cdunits='C;' + +elseif(cvar(1:lv).eq.'canopy_tempf_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('CAN_TEMP',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_tempF (n1,n2,npatch,a(irecind)) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='canopy-temperature;' + cdunits='F;' + +elseif(cvar(1:lv).eq.'ustar_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('USTAR',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='ustar;' + cdunits='m/s;' + +elseif(cvar(1:lv).eq.'tstar_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('TSTAR',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='tstar;' + cdunits='K;' + +elseif(cvar(1:lv).eq.'rstar_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('RSTAR',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='rstar;' + cdunits='kg/kg;' + +elseif(cvar(1:lv).eq.'sltex_bp') then + ivar_type=5 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('SOIL_TEXT',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_bigpatch (nnxp(ngrd),nnyp(ngrd),nzg,npatch,a(irecind),a(1),b) + cdname='dominant-soil-textural-class;' + cdunits='#;' + +elseif(cvar(1:lv).eq.'soilq_ps') then + ivar_type=5 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('SOIL_ENERGY',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum_l (nnxp(ngrd),nnyp(ngrd),nzg,npatch,a(irecind),a(1),b) + cdname='soil-q;' + cdunits='J/m3;' + +elseif(cvar(1:lv).eq.'soil_temp_ps') then + ivar_type=5 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('SOIL_ENERGY',idim_type,ngrd,a(irecind),flnm) + ierr=rams_getvar('SOIL_WATER',idim_type,ngrd,c,flnm) + ierr=rams_getvar('SOIL_TEXT',idim_type,ngrd,d,flnm) + CALL rams_comp_copysst (n1,n2,nzg,a(irecind)) + irecsizep = nnxp(ngrd) * nnyp(ngrd) * nzg + CALL rams_comp_qwtc (n1,n2,nzg*(npatch-1),a(irecind+irecsizep) & + ,c(1+irecsizep),d(1+irecsizep)) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),nzg,npatch,a(irecind),a(1),b) + cdname='soil/sea temp;' + cdunits='C;' + +elseif(cvar(1:lv).eq.'soil_moist_ps') then + ivar_type=5 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('SOIL_WATER',idim_type,ngrd ,a(irecind),flnm) + CALL rams_comp_patchsum_l (nnxp(ngrd),nnyp(ngrd),nzg,npatch,a(irecind),a(1),b) + cdname='soil-moisture;' + cdunits='m3/m3;' + +elseif(cvar(1:lv).eq.'soil_moistfrac_ps') then + ivar_type=5 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('SOIL_WATER',idim_type,ngrd,a(irecind),flnm) + ierr=rams_getvar('SOIL_TEXT',idim_type,ngrd,c,flnm) + CALL rams_comp_slmstf (irecsize,1,1,a(irecind),c) + CALL rams_comp_patchsum_l (nnxp(ngrd),nnyp(ngrd),nzg,npatch,a(irecind),a(1),b) + cdname='soil-moisture-fraction;' + cdunits='m3/m3;' + +elseif(cvar(1:lv).eq.'5050_tempc_ps' .or. & + cvar(1:lv).eq.'5050_tempf_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('CAN_TEMP',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + ierr=rams_getvar('THETA',idim_type,ngrd,d,flnm) + ierr=rams_getvar('PI',idim_type,ngrd,c,flnm) + CALL rams_comp_tempK (n1,n2,n3,d,c) + CALL rams_comp_5050 (n1,n2,n3,a,d) + if(cvar(1:lv)=='5050_tempc_ps') then + CALL rams_comp_tempC (n1,n2,n3,a) + cdname='avg-canopy-airlev2-tempC;' + cdunits='C;' + else + CALL rams_comp_tempF (n1,n2,n3,a) + cdname='avg-canopy-airlev2-tempF;' + cdunits='F;' + endif + +!###################################################################### +! SIB variables section - 40 variables +!###################################################################### +elseif(cvar(1:lv).eq.'co2_concen') then + ivar_type=3 + ierr=rams_getvar('RCO2P',idim_type,ngrd,a,flnm) + !See sfc_driver for SiB for multiplier 1.51724e-6 used to get ppm. + CALL rams_comp_mults (n1,n2,n3,a,1.0/1.51724e-6) + cdname='co2-concentration;' + cdunits='ppm;' + +elseif(cvar(1:lv).eq.'snow1_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('SNOW1',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='vegetation-snow;' + cdunits='kg/m2;' + +elseif(cvar(1:lv).eq.'snow2_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('SNOW2',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='ground-surface-snow;' + cdunits='kg/m2;' + +elseif(cvar(1:lv).eq.'capac1_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('CAPAC1',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='vegetation-liquid-store;' + cdunits='kg/m2;' + +elseif(cvar(1:lv).eq.'capac2_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('CAPAC2',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='ground-surface-liquid-store;' + cdunits='kg/m2;' + +elseif(cvar(1:lv).eq.'pco2ap_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('PCO2AP',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='CAS-co2-concen;' + cdunits='Pa;' + +elseif(cvar(1:lv).eq.'co2flx_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('CO2FLX',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + CALL rams_comp_mults (n1,n2,1,a,1.e6) + cdname='surface-co2-flux;' + cdunits='umol/m2/s;' + +elseif(cvar(1:lv).eq.'sfcswa_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('SFCSWA',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='surface-albedo;' + cdunits='fraction;' + +elseif(cvar(1:lv).eq.'uplwrf_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('UPLWRF',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='surface-longwave-upward-rad;' + cdunits='W/m2;' + +elseif(cvar(1:lv).eq.'assimn_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('ASSIMN',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='canopy-uptake-of-co2;' + cdunits='umol/m2/s;' + +elseif(cvar(1:lv).eq.'respg_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('RESPG',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='ground-respiration-flux;' + cdunits='umol/m2/s;' + +elseif(cvar(1:lv).eq.'rstfac1_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('RSTFAC1',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='leaf-surface-humidity-resistance-stress;' + cdunits='#(0-1);' + +elseif(cvar(1:lv).eq.'rstfac2_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('RSTFAC2',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='soil-moisture-resistance-stress;' + cdunits='#(0-1);' + +elseif(cvar(1:lv).eq.'rstfac3_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('RSTFAC3',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='temperature-resistance-stress;' + cdunits='#(0-1);' + +elseif(cvar(1:lv).eq.'ect_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('ECT',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='transpiration-flux;' + cdunits='W/m2;' + +elseif(cvar(1:lv).eq.'eci_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('ECI',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='canopy-interception-flux;' + cdunits='W/m2;' + +elseif(cvar(1:lv).eq.'egi_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('EGI',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='ground-interception-flux;' + cdunits='W/m2;' + +elseif(cvar(1:lv).eq.'egs_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('EGS',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='ground-surface-layer-evaporation;' + cdunits='W/m2;' + +elseif(cvar(1:lv).eq.'hc_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('HC',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='canopy-sensible-heat-flux;' + cdunits='W/m2;' + +elseif(cvar(1:lv).eq.'hg_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('HG',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='ground-surface-sensible-heat-flux;' + cdunits='W/m2;' + +elseif(cvar(1:lv).eq.'ra_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('RA',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='CAS-to-atmos-aerodynamic-resistance;' + cdunits='s/m;' + +elseif(cvar(1:lv).eq.'rb_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('RB',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='leaf-surfce-to-CAS-aerodynamic-resistance;' + cdunits='s/m;' + +elseif(cvar(1:lv).eq.'rc_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('RC',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='total-canopy-resistance;' + cdunits='s/m;' + +elseif(cvar(1:lv).eq.'rd_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('RD',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='ground-to-CAS-aerodynamic-resistance;' + cdunits='s/m;' + +elseif(cvar(1:lv).eq.'roff_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('ROFF',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='water-runoff;' + cdunits='mm;' + +elseif(cvar(1:lv).eq.'green_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('GREEN',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='greenness-fraction;' + cdunits='fraction;' + +elseif(cvar(1:lv).eq.'apar_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('APAR',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='absorbed-fraction-of-PAR;' + cdunits='fraction;' + +elseif(cvar(1:lv).eq.'ventmf_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('VENTMF',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='ventilation-mass-flux;' + cdunits='kg/m2/s;' + +elseif(cvar(1:lv).eq.'pco2c_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('PCO2C',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='leaf-chloroplast-co2-concen;' + cdunits='Pa;' + +elseif(cvar(1:lv).eq.'pco2i_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('PCO2I',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='leaf-internal-co2-concen;' + cdunits='Pa;' + +elseif(cvar(1:lv).eq.'pco2s_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('PCO2S',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='leaf-surface-co2-concen;' + cdunits='Pa;' + +elseif(cvar(1:lv).eq.'pco2m_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('PCO2M',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='lowest-atmos-level-co2-concen;' + cdunits='Pa;' + +elseif(cvar(1:lv).eq.'ea_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('EA',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='canopy-water-vapor-pressure;' + cdunits='hPa;' + +elseif(cvar(1:lv).eq.'em_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('EM',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='reference-level-vapor-pressure;' + cdunits='hPa;' + +elseif(cvar(1:lv).eq.'rha_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('RHA',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='CAS-relative-humidity;' + cdunits='fraction;' + +elseif(cvar(1:lv).eq.'radvbc_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('RADVBC',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='visible-direct-radiation;' + cdunits='W/m2;' + +elseif(cvar(1:lv).eq.'radvdc_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('RADVDC',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='visible-diffuse-radiation;' + cdunits='W/m2;' + +elseif(cvar(1:lv).eq.'radnbc_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('RADNBC',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='NIR-direct-radiation;' + cdunits='W/m2;' + +elseif(cvar(1:lv).eq.'radndc_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('RADNDC',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='NIR-diffuse-radiation;' + cdunits='W/m2;' + +elseif(cvar(1:lv).eq.'psy_ps') then + ivar_type=2 + irecind = 1 + irecsize = nnxp(ngrd) * nnyp(ngrd) * npatch + ierr=rams_getvar('PATCH_AREA',idim_type,ngrd,a(irecind),flnm) + irecind = irecind + irecsize + ierr=rams_getvar('PSY',idim_type,ngrd,a(irecind),flnm) + CALL rams_comp_patchsum (nnxp(ngrd),nnyp(ngrd),1,npatch,a(irecind),a(1),b) + cdname='psychrometric-constant;' + cdunits='hPa/deg;' + +!###################################################################### +! KPP OCEAN MIXED LAYER MODEL FIELDS - 10 variables +!###################################################################### +elseif(cvar(1:lv).eq.'kpp_hmix') then + ivar_type=2 + ierr=rams_getvar('KPP_HMIX',idim_type,ngrd,a,flnm) + cdname='kpp-mixed-layer-depth;' + cdunits='m;' + +elseif(cvar(1:lv).eq.'kpp_ocdepth') then + ivar_type=2 + ierr=rams_getvar('KPP_OCDEPTH',idim_type,ngrd,a,flnm) + cdname='kpp-ocean-depth;' + cdunits='m;' + +elseif(cvar(1:lv).eq.'kpp_flx_ust') then + ivar_type=2 + ierr=rams_getvar('KPP_FLX_UST',idim_type,ngrd,a,flnm) + cdname='kpp-uwind-stress;' + cdunits='N/m2;' + +elseif(cvar(1:lv).eq.'kpp_flx_vst') then + ivar_type=2 + ierr=rams_getvar('KPP_FLX_VST',idim_type,ngrd,a,flnm) + cdname='kpp-vwind-stress;' + cdunits='N/m2;' + +elseif(cvar(1:lv).eq.'kpp_flx_nsw') then + ivar_type=2 + ierr=rams_getvar('KPP_FLX_NSW',idim_type,ngrd,a,flnm) + cdname='kpp-shortwave-flux;' + cdunits='W/m2;' + +elseif(cvar(1:lv).eq.'kpp_flx_nlw') then + ivar_type=2 + ierr=rams_getvar('KPP_FLX_NLW',idim_type,ngrd,a,flnm) + cdname='kpp-longwave-flux;' + cdunits='W/m2;' + +elseif(cvar(1:lv).eq.'kpp_flx_ice') then + ivar_type=2 + ierr=rams_getvar('KPP_FLX_ICE',idim_type,ngrd,a,flnm) + cdname='kpp-ice-flux;' + cdunits='not-used;' + +elseif(cvar(1:lv).eq.'kpp_flx_pcp') then + ivar_type=2 + ierr=rams_getvar('KPP_FLX_PCP',idim_type,ngrd,a,flnm) + cdname='kpp-freshwater-flux;' + cdunits='mm/sec;' + +elseif(cvar(1:lv).eq.'kpp_depth_temp') then + ivar_type=2 + ierr=rams_getvar('KPP_X_T',idim_type,ngrd,a,flnm) + cdname='kpp-depth-temperature;' + cdunits='C;' + +elseif(cvar(1:lv).eq.'kpp_depth_salinity') then + ivar_type=2 + ierr=rams_getvar('KPP_X_S',idim_type,ngrd,a,flnm) + cdname='kpp-depth-salinity;' + cdunits='o/oo;' + +!###################################################################### +!SECTION FOR ADDED TRACERS. ADD AS MANY AS YOU NEED HERE IN ORDER. +!BY DEFAULT HERE, WE ASSUME TRACERS WERE ADDED TO IDENTICALLY INITIALIZE +!AS THE CCN, DUST1, DUST2 NUMBER AND MASS, SO OUTPUTS ARE CREATED +!ACCORDINGLY FOR COMPARISON BETWEEN MICROPHYSICALLY ACTIVE AEROSOLS AND +!THOSE THAT ACT AS PASSIVE TRACERS. +!###################################################################### +elseif(cvar(1:lv).eq.'tracer001') then + ivar_type=3 + ierr=rams_getvar('TRACERP001',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='tracer-001;' + cdunits='#/cm3;' + +elseif(cvar(1:lv).eq.'tracer002') then + ivar_type=3 + ierr=rams_getvar('TRACERP002',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='tracer-002;' + cdunits='#/cm3;' + +elseif(cvar(1:lv).eq.'tracer003') then + ivar_type=3 + ierr=rams_getvar('TRACERP003',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e-6) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='tracer-003;' + cdunits='#/cm3;' + +elseif(cvar(1:lv).eq.'tracer004') then + ivar_type=3 + ierr=rams_getvar('TRACERP004',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='tracer-004;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'tracer005') then + ivar_type=3 + ierr=rams_getvar('TRACERP005',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='tracer-005;' + cdunits='micro-grams/m3;' + +elseif(cvar(1:lv).eq.'tracer006') then + ivar_type=3 + ierr=rams_getvar('TRACERP006',idim_type,ngrd,a,flnm) + ierr=rams_getvar('TOPT',idim_type,ngrd,e,flnm) + if(ierr.eq.0) then + CALL rams_comp_dn0 (n1,n2,n3,b,c,d,e,ngrd) + CALL rams_comp_mult (n1,n2,n3,a,d) + CALL rams_comp_mults (n1,n2,n3,a,1.e9) + CALL rams_comp_noneg (n1,n2,n3,a) + endif + cdname='tracer-006;' + cdunits='micro-grams/m3;' + +else + + print*,'Variable name not found in hvlib.f - ',cvar(1:lv) + ivar_type=0 + +endif + +if(iany.eq.1 .and. ifound.eq.0) ivar_type=0 +if(iany.eq.0 .and. (ierr_getvar.eq.1.or.ifound.eq.0)) ivar_type=0 + +return +END SUBROUTINE rams_varlib + +!############################################################################## +Subroutine rams_varinfo (num,ival,iplim) + +! Use this to indicate whether the computed variable exists here - if +! missing, the plot will be skipped. + +use rcommons + +implicit none + +integer :: num,ival,iplim + +if(num.eq.1) then + ival=ivar_type + iplim=iptrans_lim +endif + +return +END SUBROUTINE rams_varinfo diff --git a/src/6.2.16/revu/iplt.f90 b/src/6.2.16/revu/iplt.f90 new file mode 100644 index 0000000..776ef1f --- /dev/null +++ b/src/6.2.16/revu/iplt.f90 @@ -0,0 +1,313 @@ +!############################################################################## +Subroutine read_rams (action,ivtime,cgrid,ctime,iztrans,cvar,rh5_file,cvar_ok) + +use an_header +use rcommons +use mem_grid + +implicit none + +character(len=*) :: action,cgrid,ctime +character(len=24) :: cvar,cdname,cdunits +character(len=strl1) :: flnm,cfile +integer :: ivtime,iztrans,cvar_ok,itime,idate,ng,ivtype & + ,nf,lenhf,nv,nngd,idims(3) +integer*8:: rh5_file +integer, external :: lastchar +real, allocatable, save :: arra(:),arrb(:),arrbb(:) & + ,topt(:),sfclat(:),sfclon(:) +real :: alat1(maxgrds),alon1(maxgrds),glats1,glatn2,glonw1,glone2,fcstsec + +data alat1 /maxgrds*0./, alon1 /maxgrds*0./ + +!************************************************************************* +!Determine header file name to open +!************************************************************************* +read(ctime,*) nf +CALL rams_get_cdata (0,nf,flnm) +lenhf=len_trim(flnm) +write(cfile,*) flnm(1:lenhf-9) + +!************************************************************************* +!Open and read header file and extra data +!************************************************************************* +open(10,file=flnm) +read(10,*) nvbtab +if(allocated(anal_table)) deallocate (anal_table) +allocate (anal_table(nvbtab)) +do nv=1,nvbtab + read(10,*) anal_table(nv)%string & + ,anal_table(nv)%npointer & + ,anal_table(nv)%idim_type & + ,anal_table(nv)%ngrid & + ,anal_table(nv)%nvalues +enddo +CALL commio ('READ',10) +close(10) + +CALL rams_get_fdata (1,nf,fcstsec) +CALL rams_get_fdata (2,nf,startutc) + +!************************************************************************* +!Set up memory allocation based on max grid dimensions +!Note that there may be circumstances in which the number of predefined +!pressure levels for interpolation is greater than the number of model +!sigma-z levels, so maxmem needs to consider nnzp and nplevs. +!************************************************************************* +maxmem=0 +do ng=1,ngrids + maxmem=max(maxmem,(nnxp(ng)+1)*(nnyp(ng)+1)* & + max(nplevs,nnzp(ng),(nzg+nzs+4)*npatch)) +enddo + +!print*,'compute memory',ngrids,maxmem + +if(allocated(arra)) deallocate(arra); allocate(arra(maxmem)) +if(allocated(arrb)) deallocate(arrb); allocate(arrb(maxmem)) +if(allocated(arrbb)) deallocate(arrbb); allocate(arrbb(maxmem)) +if(allocated(topt)) deallocate(topt); allocate(topt(maxmem)) +if(allocated(sfclat)) deallocate(sfclat); allocate(sfclat(maxmem)) +if(allocated(sfclon)) deallocate(sfclon); allocate(sfclon(maxmem)) + +!************************************************************************* +!Establish grid dimensions +!************************************************************************* +read(cgrid,*) nngd +idims(1)=nnxp(nngd) +idims(2)=nnyp(nngd) +idims(3)=nnzp(nngd) + +!************************************************************************* +!Set up HORIZONTAL beginning, ending, and grid point increments to output +!************************************************************************* +if(ixbeg.le.0) nib=1-ixbeg +if(ixbeg.gt.0) nib=ixbeg +nib=max(0,min(nib,idims(1))) +if(ixend.le.0) nie=idims(1)+ixend +if(ixend.gt.0) nie=ixend +nie=max(nib,min(nie,idims(1))) + +if(iybeg.le.0) njb=1-iybeg +if(iybeg.gt.0) njb=iybeg +njb=max(0,min(njb,idims(2))) +if(iyend.le.0) nje=idims(2)+iyend +if(iyend.gt.0) nje=iyend +nje=max(njb,min(nje,idims(2))) + +niinc=ixstep +njinc=iystep + +nii=nie-nib+1 +njj=nje-njb+1 + +! Exit cleanly if grid too small to view +if((nii <= 1.and.idims(1) > 1).or.(nii < 1.and.idims(1) == 1)) then + print*,'Warning: Selected grid too small in x direction' + stop +endif +if((njj <= 1.and.idims(2) > 1).or.(njj < 1.and.idims(2) == 1)) then + print*,'Warning: Selected grid too small in y direction' + stop +endif + +!************************************************************************* +!Finding lat/lon corners for grid +!************************************************************************* +if(action(1:4)=='TEXT'.or.action(1:4)=='HDF5') then + + CALL rams_fill_fld (idims(1),idims(2),idims(3) & + ,arra,arrb,arrbb & + ,flnm(1:lenhf-9),nngd,'lat',iztrans & + ,cdname,cdunits,ivtype,topt) + + alat1(nngd)=arra(1) ! 1st point + CALL thelatlon (idims(1),idims(2),idims(3),arra,alat1(nngd),nib,njb) + CALL thelatlon (idims(1),idims(2),idims(3),arra,glats1,nib,njb) + CALL thelatlon (idims(1),idims(2),idims(3),arra,glatn2,nie,nje) + + ! copy the surface latitude values from arra for the HDF5 format routine + CALL copy_sfc_values (idims(1),idims(2),idims(3),arra,sfclat) + + !DEBUG + ! look at latitude values + !call textarray (idims(1),idims(2),idims(3),arra,sfclat,0) + + CALL rams_fill_fld (idims(1),idims(2),idims(3) & + ,arra,arrb,arrbb & + ,flnm(1:lenhf-9),nngd,'lon',iztrans & + ,cdname,cdunits,ivtype,topt) + + alon1(nngd)=arra(1) ! 1st point + CALL thelatlon (idims(1),idims(2),idims(3),arra,alon1(nngd),nib,njb) + CALL thelatlon (idims(1),idims(2),idims(3),arra,glonw1,nib,njb) + CALL thelatlon (idims(1),idims(2),idims(3),arra,glone2,nie,nje) + + ! copy the surface longitude values from arra for the HDF5 format routine + CALL copy_sfc_values (idims(1),idims(2),idims(3),arra,sfclon) + + !DEBUG + ! look at longitude values + !call textarray (idims(1),idims(2),idims(3),arra,sfclon,1) +endif + +!************************************************************************* +!Read primary field +!************************************************************************* +cvar_ok=0 +if(cvar(1:4).ne.'none') then + CALL rams_fill_fld (idims(1),idims(2),idims(3) & + ,arra,arrb,arrbb & + ,flnm(1:lenhf-9),nngd,cvar & + ,iztrans,cdname,cdunits,ivtype,topt) + if(ivtype==0.and.cvar(1:4).ne.'none') then + print*,'Primary variable not found: ',cvar(1:len_trim(cvar)) + cdname=cvar(1:len_trim(cvar))//' not found' + cdunits=';' + return + endif + if(ivtype>=4 .and. iztrans<=3)then + print*,'Surface model variables must use iztrans=4.' + print*,'Run surface variables separate from 2D or 3D atmospheric variables.' + stop + endif + if(ivtype<=3 .and. iztrans>=4)then + print*,'2D or 3D atmospheric variables must use iztrans=1,2,or 3.' + print*,'Run 2D or 3D atmospheric variables separate from surface variables.' + stop + endif + cvar_ok=1 +endif + +!************************************************************************* +!Set up beginning, ending, and grid point increments to output +!************************************************************************* +if(izbeg.le.0) nnb=1-izbeg +if(izbeg.gt.0) nnb=izbeg + +if(ivtype.le.3.and.iztrans.eq.3) nnb=max(0,min(nnb,nplevs)) +if(ivtype.le.3.and.iztrans.lt.3) nnb=max(0,min(nnb,idims(3))) +if(ivtype==6) nnb=max(0,min(nnb,npatch)) +if(ivtype==5) nnb=max(0,min(nnb,nzg)) +if(ivtype==4) nnb=max(0,min(nnb,nzs)) +if(ivtype==2) nnb=1 +!For now, override ivtype=2,4,5,6 so we output all physical levels +if(ivtype.ne.3)nnb=1 + +if(izend.le.0) then + if(ivtype.le.3.and.iztrans.eq.3) nne=nplevs+izend + if(ivtype.le.3.and.iztrans.lt.3) nne=idims(3)+izend + if(ivtype==6) nne=npatch+izend + if(ivtype==5) nne=nzg+izend + if(ivtype==4) nne=nzs+izend + if(ivtype==2) nne=1 +endif +if(izend.gt.0) nne=izend + +if(ivtype.le.3.and.iztrans.eq.3) nne=max(nnb,min(nne,nplevs)) +if(ivtype.le.3.and.iztrans.lt.3) nne=max(nnb,min(nne,idims(3))) +if(ivtype==6) nne=max(nnb,min(nne,npatch)) +if(ivtype==5) nne=max(nnb,min(nne,nzg)) +if(ivtype==4) nne=max(nnb,min(nne,nzs)) +if(ivtype==2) nne=1 +!For now, override ivtype=2,4,5,6 so we output all physical levels +if(ivtype==6) nne=npatch +if(ivtype==5) nne=nzg +if(ivtype==4) nne=nzs +if(ivtype==2) nne=1 + +nninc=izstep + +if(ivtype.eq.2 .or.ivtype.eq.4 .or. ivtype.eq.5 .or. ivtype.eq.6) nninc=1 + +!print*,'nib,nie,nii,niinc',nib,nie,nii,niinc +!print*,'njb,nje,njj,njinc',njb,nje,njj,njinc +!print*,'nnb,nne,nninc',nnb,nne,nninc +!print*,'idims(1),idims(2),idims(3)',idims(1),idims(2),idims(3) + +!************************************************************************* +!Choose what to do with fields now that they are read and optionally +!interpolated +!************************************************************************* + +!Redefine idims(vertical) in the event we are outputting on interpolated +!pressure levels. We alternate in defining the vertical range of the "A" +!array between "n3" and "nplevs". We have to use the greater of the two +!to avoid a segmentation fault. So redefine idims prior to writing data. +if(iztrans.eq.3.and.ivtype.eq.3)idims(3)=max(nnzp(nngd),nplevs) + +!Call for outputting in GEMPAK TEXT format +if(action(1:4).eq.'TEXT') then + + ! if action is 'TEXT', call routine to output field + + CALL rams_text (arra,iztrans,ivtype,nngd,idims(1),idims(2) & + ,idims(3),fcstsec,glats1,glonw1,glatn2,glone2 & + ,polelat,polelon,cvar) + +!Call for outputting in HDF5 format +elseif(action(1:4).eq.'HDF5') then + + ! if action is 'HDF5', call routine to output field + + CALL rams_get_idata (3,nf,itime) + CALL rams_get_idata (2,nf,idate) + CALL rams_hdf5 (rh5_file,arra,iztrans,ivtype,nngd,idims(1),idims(2) & + ,idims(3),ztn(1,nngd),nzg,idate,itime,ivtime & + ,fcstsec,cvar,cdname,cdunits,sfclat,sfclon) + +endif + +return +END SUBROUTINE read_rams + +!############################################################################## +Subroutine copy_sfc_values (n1,n2,n3,a_3d,a_2d) + +! This routine will copy the lowest level of a_3d (3D array) to +! a_2d (2D array). a_3d is organized as (i,j,k) and a_2d is organized +! as (i,j) where i, j and k step though spatial x, y, and z directions +! respectively. + +implicit none + +integer :: n1,n2,n3,i,j +real, dimension(n1,n2,n3) :: a_3d +real, dimension(n1,n2) :: a_2d + +do i = 1, n1 + do j = 1, n2 + a_2d(i,j) = a_3d(i,j,1) + enddo +enddo + +return +END SUBROUTINE copy_sfc_values + +!############################################################################## +Subroutine textarray (n1,n2,n3,array,array2d,TextCols) + +implicit none + +integer :: n1,n2,n3,TextCols,i +real, dimension(n1,n2,n3) :: array +real, dimension(n1,n2) :: array2d + +print*,'DEBUG: TextArray:' +if (TextCols == 1) then + print*,'DEBUG: Columns: ', n1 + do i = 1,n1 + print*,'DEBUG: ',i,array(i,1,1),array(i,n2/2,1),array(i,n2,1) + print*,'DEBUG: ',i,array2d(i,1),array2d(i,n2/2),array2d(i,n2) + print*,'' + enddo +else + print*,'DEBUG: Rows: ', n2 + do i = 1,n2 + print*,'DEBUG: ',i,array(1,i,1),array(n1/2,i,1),array(n1,i,1) + print*,'DEBUG: ',i,array2d(1,i),array2d(n1/2,i),array2d(n1,i) + print*,'' + enddo +endif + +return +END SUBROUTINE textarray diff --git a/src/6.2.16/revu/rainit.f90 b/src/6.2.16/revu/rainit.f90 new file mode 100644 index 0000000..21ca36b --- /dev/null +++ b/src/6.2.16/revu/rainit.f90 @@ -0,0 +1,126 @@ +!############################################################################## +Subroutine rams_anal_init (nfile,file_prefix) + +use an_header +use mem_grid +use rcommons + +implicit none + +integer :: nfile,nv,nfn,ln,ihr1,imin1 +integer :: iitime,iiday,iimonth,iiyear,iihour,iimin,iisecs,nc +character(len=*) :: file_prefix +character(len=4) :: ctime1 +character(len=strl1) :: fpref +character(len=strl1) :: cgrid + +! get the files for the chosen grid to output +print* +fpref=file_prefix +write(cgrid,'(a3,i1,a3)') '*-g',igrid,'.h5' +fpref(len_trim(fpref)+1:)=trim(cgrid) +CALL rams_filelist (fnames,fpref,nfile) + +! construct arrays +do nfn=1,nfile + nc=len_trim(fnames(nfn))-6 + fnames(nfn)=fnames(nfn)(1:nc)//'-head.txt' + open(10,file=fnames(nfn),form='formatted') + read(10,*) nvbtab + allocate (anal_table(nvbtab)) + do nv=1,nvbtab + read(10,*) anal_table(nv)%string & + ,anal_table(nv)%npointer & + ,anal_table(nv)%idim_type & + ,anal_table(nv)%ngrid & + ,anal_table(nv)%nvalues + enddo + CALL commio ('READ',10) + close(10) + + if(nfn==1) then + write(ctime1,'(i4.4)') itime1 + read(ctime1(1:2),*) ihr1 + read(ctime1(3:4),*) imin1 + startutc=float(ihr1)+float(imin1)/60. + endif + + ln=len_trim(fnames(nfn)) + read(fnames(nfn)(ln-10:ln-9),*) iisecs + read(fnames(nfn)(ln-12:ln-11),*) iimin + read(fnames(nfn)(ln-14:ln-13),*) iihour + read(fnames(nfn)(ln-14:ln-11),*) iitime + read(fnames(nfn)(ln-17:ln-16),*) iiday + read(fnames(nfn)(ln-20:ln-19),*) iimonth + read(fnames(nfn)(ln-25:ln-22),*) iiyear + ftimes(nfn)=time + ifdates(nfn)=iiyear*10000+iimonth*100+iiday + iftimes(nfn)=iitime + + write(*,'(a,i4,f12.2,3x,i8,a,i4.4,a,i4.4,5(a,i2.2))') & + ' files- ',nfn,ftimes(nfn),ifdates(nfn),'/',iitime,' ',iiyear,' ',iimonth & + ,' ',iiday,' ',iihour,' ',iimin,' ',iisecs + nfgrids(nfn)=ngrids + + close(10) + deallocate (anal_table) +enddo + +return +END SUBROUTINE rams_anal_init + +!############################################################################## +Subroutine rams_get_fdata (nopt,nfl,fdata) + +use rcommons + +implicit none + +integer :: nopt,nfl +real :: fdata(*) + +if(nopt.eq.1) then + fdata(1)=ftimes(nfl) +elseif(nopt.eq.2) then + fdata(1)=startutc +endif + +return +END SUBROUTINE rams_get_fdata + +!############################################################################## +Subroutine rams_get_idata (nopt,nfl,idata) + +use rcommons + +implicit none + +integer :: nopt,nfl,idata(*) + +if(nopt.eq.1) then + idata(1)=nfgrids(nfl) +elseif(nopt.eq.2) then + idata(1)=ifdates(nfl) +elseif(nopt.eq.3) then + idata(1)=iftimes(nfl) +endif + +return +END SUBROUTINE rams_get_idata + +!############################################################################## +Subroutine rams_get_cdata (nopt,nfl,cdata) + +use rcommons + +implicit none + +integer :: nopt,nfl +character(len=*) :: cdata(*) + +if(nopt.eq.0) then + cdata(1)=fnames(nfl) +endif + +return +END SUBROUTINE rams_get_cdata diff --git a/src/6.2.16/revu/rbat.f90 b/src/6.2.16/revu/rbat.f90 new file mode 100644 index 0000000..c9864ce --- /dev/null +++ b/src/6.2.16/revu/rbat.f90 @@ -0,0 +1,223 @@ +!############################################################################## +Subroutine plotspc (nfl,action) + +use an_header +use rhdf5_utils +use rcommons +use mem_grid +use node_mod, only:nmachs +use hdf5_utils + +implicit none + +character(len=*) :: action +character(len=1) :: toksepfr +character(len=2) :: cgrid +character(len=5) :: ctime +character(len=64) :: frtokens(50),cvar +character(len=strl1) :: flnm +character(len=RHDF5_MAX_STRING) :: rh5_file_name,rh5_file_acc +integer :: lastslash,ngds,ngd,ivtime,ibegs,iends,nplot,ntokfr & + ,nfl,nfile,cvar_ok,var_ok(maxrevu) +integer*8:: rh5_file + +!File and parallel info (should only do this sequentially, not parallel) +integer :: h5_fid, iphdf5 + +data toksepfr/'/'/ + +!Not running in parallel so use default info for sequential +if (nmachs .gt. 1) then + stop 'Should not be attempting to run REVU in parallel' +else + iphdf5 = 0 +endif + +CALL rams_get_idata (1,1,ngds) + +!Determine if we are outputting all grids for a single grid +if(igrid.gt.0 .and. igrid.le.ngds) then + ngd=igrid +else + print*,'The model grids you are trying to process does not exist' + stop +endif + +! set type of z coordinate for file name prefix +! according to value in iztran +! 1 - sigma --> 'S' +! 2 - cartesian --> 'C' +! 3 - pressure --> 'P' +! 4 - ground --> 'G' +if(iztran.eq.1) then + ftran='S' !for sigma +elseif(iztran.eq.2) then + ftran='C' !for cartesian +elseif(iztran.eq.3) then + ftran='P' !for pressure level +elseif(iztran.eq.4) then + ftran='G' !for ground +endif + +if(action(1:4)=='TEXT' .or. action(1:4)=='HDF5') then + !Output some grid type and time information for HDF5 output + if(action(1:4)=='HDF5') then + ! open the output file + CALL rams_get_cdata (0,1,flnm) + write(rh5_file_name,'(2a,2a1,i4.4,a1,i2.2,a1,i2.2,a1,i6.6,a2,i0,a3)') & + revpref(1:len_trim(revpref)) & + ,flnm(lastslash(flnm)+1:len_trim(flnm)-27),ftran,'-' & + ,iyear1,'-',imonth1,'-',idate1,'-',itime1*100,'-g',ngd,'.h5' + print* + print*,'====' + print*,'HDF5 file: ',rh5_file_name(1:len_trim(rh5_file_name)) + print* + ! open in write mode --> 2nd arg = 'W' + ! delete file if exists --> 3rd arg = 1 + rh5_file_acc = 'W' + CALL shdf5_open (rh5_file_name,rh5_file_acc,iphdf5,rh5_file,1) + endif +endif + +!LOOP OVER ALL REQUESTED TIMES UP TO MAX NUMBER OF TIMES AVAILABLE +ivtime=0 +ibegs=max(itbeg,1) !beginning time to process >=1 +if(itend.eq.0)iends=nfl !last time to process +if(itend.gt.0)iends=min(itend,nfl) !last time to process +iends=max(1,iends) !last time to process >=1 +itstep=max(itstep,1) !output timestepping + +do nfile=ibegs,iends,itstep + write(*,'(a,4i5)') 'Doing file,grid - ',nfile,ngd + ivtime=ivtime+1 !increment number of times processed + + write(cgrid,'(i2)') ngd + write(ctime,'(i5)') nfile + + !loop through max number of plots + do nplot=1,maxrevu + + var_ok(nplot)=0 + + !only do this if have readable primary var + if(revuvar(nplot)(1:1).ne.'/') goto 210 + + frtokens(1)=' ' + CALL tokenize1 (revuvar(nplot),frtokens,ntokfr,toksepfr) + if(frtokens(1)=='') frtokens(1)='none' + if(frtokens(1)=='none') goto 210 + + cvar=frtokens(1) + + ! print action summary + print* + if(cvar(1:4).ne.'none') & + print*,'Doing var- ',cvar(1:len(cvar)) + + ! prohibit use of interpollated wind directions + if(cvar(1:9)=='direction'.and.iztran.ne.1) then + print*,'Cannot output wind direction at interpollated grid points' + print*,'Skipping variable' + goto 210 + endif + + CALL read_rams (action,ivtime,cgrid,ctime,iztran,cvar,rh5_file,cvar_ok) + var_ok(nplot)=cvar_ok + + 210 continue + + enddo !loop thru variables +enddo !loop thru times to process + +!SEND GRID NAVIGATION AND COORDINATE INFORMATION TO HDF5 OUTPUT FILE +if(action(1:4)=='HDF5') then + print* + print*, 'Attaching dimension (coordinate) specs to variables in hdf5 file: ' + print* + print*, ' HDF5 file: ', trim(rh5_file_name) + print* + + ! declare the datasets that hold coordinate values for dimensions + CALL rhdf5_set_var_to_dim (rh5_file,'x_coords','x') + CALL rhdf5_set_var_to_dim (rh5_file,'y_coords','y') + CALL rhdf5_set_var_to_dim (rh5_file,'z_coords','z') + CALL rhdf5_set_var_to_dim (rh5_file,'t_coords','t') + + do nplot = 1,maxrevu + ! only the variable specs start with a '/' + ! if the first char is a '/' than get the variable name and attach the dimension + if (revuvar(nplot)(1:1) .eq. '/') then + frtokens(1)=' ' + CALL tokenize1 (revuvar(nplot),frtokens,ntokfr,toksepfr) + if(frtokens(1) .ne. '' .and. var_ok(nplot)==1) then + cvar=frtokens(1) + print*, ' Doing var- ', trim(cvar) + CALL rhdf5_attach_dims_to_var (rh5_file,cvar) + print* + endif + endif + enddo + + print*, 'Closing hdf5 file: ', trim(rh5_file_name) + print* + CALL shdf5_close (rh5_file) + print* +endif + +return +END SUBROUTINE plotspc + +!############################################################################## +Subroutine backset () + +use rcommons + +implicit none + +CALL var_parse (xvar,ixbeg,ixend,ixstep) +CALL var_parse (yvar,iybeg,iyend,iystep) +CALL var_parse (zvar,izbeg,izend,izstep) +CALL var_parse (tvar,itbeg,itend,itstep) + +ixstep=max(1,ixstep) +iystep=max(1,iystep) +izstep=max(1,izstep) + +return +END SUBROUTINE backset + +!############################################################################## +Subroutine var_parse (string,isbeg,isend,istep) + +implicit none + +! This routine takes the strings in XVAR,YVAR,ZVAR and TVAR and +! parses them out into more usable components which are used throughout. + +integer, external :: numberchk +integer :: ntok,isbeg,isend,istep +character(len=*) :: string +character(len=8) :: tokens(50) +character(len=1) :: toksep(3) +data toksep/'/',':',','/ + +CALL tokenize (string,tokens,ntok,toksep,3) + +! Start parsing the range information, which is delimeted +! by colons and must start at the 2nd token + +CALL ch2int (tokens(2),isbeg) +if(ntok.gt.4 .and. numberchk(tokens(4))==1) then + CALL ch2int (tokens(4),isend) +else + isend=isbeg +endif + +if(ntok.gt.6 .and. numberchk(tokens(6))==1) then + CALL ch2int (tokens(6),istep) +else + istep=1 +endif + +return +END SUBROUTINE var_parse diff --git a/src/6.2.16/revu/rcommons.f90 b/src/6.2.16/revu/rcommons.f90 new file mode 100644 index 0000000..8f8e15e --- /dev/null +++ b/src/6.2.16/revu/rcommons.f90 @@ -0,0 +1,48 @@ +!############################################################################## +Module rcommons + +use grid_dims + +implicit none + +!************************************************** +! For rainit.f90 routines +!************************************************** +character(len=strl1), save :: fnames(maxfiles) +integer, save :: nfgrids(maxfiles),ifdates(maxfiles),iftimes(maxfiles) +real, save :: ftimes(maxfiles),startutc +!************************************************** +! FROM REVUIN +!************************************************** +character(len=strl1) :: anpref,revpref +character(len=8) :: anatype +character(len=20) :: xvar,yvar,zvar,tvar +character(len=strl1) :: revuvar(maxrevu) +integer :: igrid,iztran +!************************************************** + +character(len=1) :: ftran +integer,save :: maxmem +integer :: ierr_getvar,ifound,ivar_type,iany,iptrans_lim + +integer :: nii,nib,nie,niinc,njj,njb,nje,njinc,nnb,nne,nninc & + ,itbeg,itstep,itend,ixbeg,ixstep,ixend & + ,iybeg,iystep,iyend,izbeg,izstep,izend + +integer, dimension(nxpmax,maxgrds) :: ipm,jpm,nrz,kpm +integer, parameter :: nplevs=41 +integer, save :: iplevs(nplevs) + +data iplevs/1050, 1025, 1000, & + 975, 950, 925, 900, & + 875, 850, 825, 800, & + 775, 750, 725, 700, & + 675, 650, 625, 600, & + 575, 550, 525, 500, & + 475, 450, 425, 400, & + 375, 350, 325, 300, & + 275, 250, 225, 200, & + 175, 150, 125, 100, & + 75, 50/ + +END MODULE rcommons diff --git a/src/6.2.16/revu/rcomp.f90 b/src/6.2.16/revu/rcomp.f90 new file mode 100644 index 0000000..f8ba92f --- /dev/null +++ b/src/6.2.16/revu/rcomp.f90 @@ -0,0 +1,2602 @@ +!############################################################################## +Subroutine rams_comp_empty (n1,n2,n3,a) + +implicit none + +integer :: n1,n2,n3,i,j,k +real :: a(n1,n2,n3) + +do k=1,n3 + do j=1,n2 + do i=1,n1 + a(i,j,k)=0. + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_empty + +!############################################################################## +Subroutine rams_comp_dir (n1,n2,n3,a,b,ngrd) + +use mem_grid, only:polelat,polelon,xtn,ytn + +implicit none + +integer :: n1,n2,n3,i,j,k,ngrd +real, dimension(n1,n2,n3) :: a,b +real :: qlat,qlon,u,v,ff + +do k=1,n3 + do j=1,n2 + do i=1,n1 + CALL xy_ll (qlat,qlon,polelat,polelon & + ,xtn(i,ngrd),ytn(j,ngrd)) + u=a(i,j,k) + v=b(i,j,k) + CALL uvtoueve (u,v,a(i,j,k),b(i,j,k) & + ,qlat,qlon,polelat,polelon) + CALL winddf (a(i,j,k),ff,a(i,j,k),b(i,j,k)) + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_dir + +!############################################################################## +Subroutine rams_comp_dewK (n1,n2,n3,a,b,c) + +use rconstants, only:cp,cpor,p00 + +implicit none + +integer :: n1,n2,n3,i,j,k +real, dimension(n1,n2,n3) :: a,b,c +real :: xpress,xtemp,xwatsat +real, external :: tdewpt,rsatmix + +do k=1,n3 + do j=1,n2 + do i=1,n1 + xpress=(b(i,j,k)/cp)**cpor*p00 + xtemp=c(i,j,k)*b(i,j,k)/cp + xwatsat=rsatmix(xpress,xtemp) + a(i,j,k)=tdewpt(xpress,min(a(i,j,k),xwatsat) ) + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_dewK + +!############################################################################## +Subroutine rams_comp_thete (n1,n2,n3,a,b,c) + +use rconstants, only:cp,cpor,p00,alvl + +implicit none + +integer :: n1,n2,n3,i,j,k +real, dimension(n1,n2,n3) :: a,b,c +real :: xpress,xtemp,xwatsat +real, external :: tdewpt,rsatmix + +do k=1,n3 + do j=1,n2 + do i=1,n1 + xpress=(b(i,j,k)/cp)**cpor*p00 + xtemp=c(i,j,k)*b(i,j,k)/cp + xwatsat=rsatmix(xpress,xtemp) + a(i,j,k)=c(i,j,k)*exp( alvl*xwatsat & + /(cp*tdewpt(xpress,min(a(i,j,k),xwatsat) )) ) + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_thete + +!############################################################################## +Subroutine rams_comp_thetv (n1,n2,n3,a,b) + +implicit none + +integer :: n1,n2,n3,i,j,k +real, dimension(n1,n2,n3) :: a,b + +do k=1,n3 + do j=1,n2 + do i=1,n1 + a(i,j,k)=a(i,j,k)*(1. + .61 * b(i,j,k)) + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_thetv + +!############################################################################## +Subroutine rams_comp_thetrho (n1,n2,n3,a,b,c,d) + +implicit none + +integer :: n1,n2,n3,i,j,k +real, dimension(n1,n2,n3) :: a,b,c,d + +do k=1,n3 + do j=1,n2 + do i=1,n1 + a(i,j,k)=a(i,j,k)*(1. + .608 * b(i,j,k) - c(i,j,k) - d(i,j,k)) + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_thetrho + +!############################################################################## +Subroutine rams_comp_thetrho_buoy (n1,n2,n3,a,b,c,d) + +implicit none + +integer :: n1,n2,n3,i,j,k +real, dimension(n1,n2,n3) :: a,b,c,d +real, dimension(n3) :: emean + +do k=1,n3 + do j=1,n2 + do i=1,n1 + a(i,j,k)=a(i,j,k)*(1. + .608 * b(i,j,k) - c(i,j,k) - d(i,j,k)) + enddo + enddo +enddo + +do k=1,n3 + emean(k)=0.0 + do j=1,n2 + do i=1,n1 + emean(k)=emean(k)+a(i,j,k) + enddo + enddo + emean(k)=emean(k)/(n1*n2) +enddo + +do k=1,n3 + do j=1,n2 + do i=1,n1 + a(i,j,k)=9.81*(a(i,j,k)-emean(k))/a(i,j,k) + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_thetrho_buoy + +!############################################################################## +Subroutine rams_comp_bowen (n1,n2,n3,a,b) + +use rconstants, only:cp,alvl + +implicit none + +integer :: n1,n2,n3,i,j,k +real, dimension(n1,n2,n3) :: a,b + +do k=1,n3 + do j=1,n2 + do i=1,n1 + a(i,j,k)=a(i,j,k)/max(1.0e-12,b(i,j,k))*cp/alvl + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_bowen + +!############################################################################## +Subroutine rams_comp_rh (n1,n2,n3,a,b,c) + +use rconstants, only:cp,cpor,p00 + +implicit none + +integer :: n1,n2,n3,i,j,k +real, dimension(n1,n2,n3) :: a,b,c +real :: xtemp,xpress +real, external :: rsatmix + +do k=1,n3 + do j=1,n2 + do i=1,n1 + xtemp=c(i,j,k)*b(i,j,k)/cp + xpress=(b(i,j,k)/cp)**cpor*p00 + a(i,j,k)=100.*a(i,j,k)/rsatmix(xpress,xtemp) + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_rh + +!############################################################################## +Subroutine rams_comp_relvortx (n1,n2,n3,a,b,c,topt,ngrd) + +use mem_grid +use mem_scratch, only:vctr1,vctr2 + +implicit none + +integer :: n1,n2,n3,i,j,k,ngrd,j1,j2,k1,k2 +real, dimension(n1,n2,n3) :: a,b,c +real, dimension(n1,n2) :: topt +real :: factor + +factor = ztn(1,ngrd) / ztn(2,ngrd) +do j=1,n2 + do i=1,n1 + a(i,j,1) = a(i,j,2) * factor + enddo +enddo + +CALL gradr (n1,n2,n3,2,n1-1,1,n2-1,b,c,'ydir','wpnt',topt & + ,xmn(1,ngrd),xtn(1,ngrd),ymn(1,ngrd),ytn(1,ngrd) & + ,zmn(1,ngrd),ztn(1,ngrd),deltaxn(ngrd) & + ,dzmn(1,ngrd),dztn(1,ngrd),vctr1,vctr2,zmn(nnzp(1)-1,1) & + ,jdim,ihtran,polelat,polelon) +CALL gradr (n1,n2,n3,2,n1-1,1,n2-1,a,b,'zdir','vpnt',topt & + ,xmn(1,ngrd),xtn(1,ngrd),ymn(1,ngrd),ytn(1,ngrd) & + ,zmn(1,ngrd),ztn(1,ngrd),deltaxn(ngrd) & + ,dzmn(1,ngrd),dztn(1,ngrd),vctr1,vctr2,zmn(nnzp(1)-1,1) & + ,jdim,ihtran,polelat,polelon) + +do k=1,n3 + do j=1,n2 + do i=1,n1 + b(i,j,k) = c(i,j,k) - b(i,j,k) + enddo + enddo +enddo + +do j = 1,n2 + j1 = max(j-1,1) + j2 = min(j,n2-1) + do i = 1,n1 + do k = 1,n3 + k1 = max(k-1,1) + k2 = min(k,n3-1) + a(i,j,k) =0.25 * (b(i,j1,k1) + b(i,j1,k2) & + + b(i,j2,k1) + b(i,j2,k2)) + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_relvortx + +!############################################################################## +Subroutine rams_comp_relvorty (n1,n2,n3,a,b,c,topt,ngrd) + +use mem_grid +use mem_scratch, only:vctr1,vctr2 + +implicit none + +integer :: n1,n2,n3,i,j,k,ngrd,i1,i2,k1,k2 +real, dimension(n1,n2,n3) :: a,b,c +real, dimension(n1,n2) :: topt +real :: factor + +factor = ztn(1,ngrd) / ztn(2,ngrd) +do j=1,n2 + do i=1,n1 + a(i,j,1) = a(i,j,2) * factor + enddo +enddo + +CALL gradr (n1,n2,n3,1,n1-1,2,n2-1,b,c,'xdir','wpnt',topt & + ,xmn(1,ngrd),xtn(1,ngrd),ymn(1,ngrd),ytn(1,ngrd) & + ,zmn(1,ngrd),ztn(1,ngrd),deltaxn(ngrd) & + ,dzmn(1,ngrd),dztn(1,ngrd),vctr1,vctr2,zmn(nnzp(1)-1,1) & + ,jdim,ihtran,polelat,polelon) +CALL gradr (n1,n2,n3,1,n1-1,2,n2-1,a,b,'zdir','upnt',topt & + ,xmn(1,ngrd),xtn(1,ngrd),ymn(1,ngrd),ytn(1,ngrd) & + ,zmn(1,ngrd),ztn(1,ngrd),deltaxn(ngrd) & + ,dzmn(1,ngrd),dztn(1,ngrd),vctr1,vctr2,zmn(nnzp(1)-1,1) & + ,jdim,ihtran,polelat,polelon) + +do k=1,n3 + do j=1,n2 + do i=1,n1 + b(i,j,k) = b(i,j,k) - c(i,j,k) + enddo + enddo +enddo + +do j = 1,n2 + do i = 1,n1 + i1 = max(i-1,1) + i2 = min(i,n1-1) + do k = 1,n3 + k1 = max(k-1,1) + k2 = min(k,n3-1) + a(i,j,k) = 0.25 * (b(i1,j,k1) + b(i1,j,k2) & + + b(i2,j,k1) + b(i2,j,k2)) + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_relvorty + +!############################################################################## +Subroutine rams_comp_relvortz (n1,n2,n3,a,b,c,topt,ngrd) + +use mem_grid +use mem_scratch, only:vctr1,vctr2 + +implicit none + +integer :: n1,n2,n3,i,j,k,ngrd,j1,j2,i1,i2 +real, dimension(n1,n2,n3) :: a,b,c +real, dimension(n1,n2) :: topt +real :: factor + +factor = ztn(1,ngrd) / ztn(2,ngrd) +do j=1,n2 + do i=1,n1 + a(i,j,1) = a(i,j,2) * factor + b(i,j,1) = b(i,j,2) * factor + enddo +enddo + +CALL gradr (n1,n2,n3,1,n1-1,1,n2-1,b,c,'xdir','vpnt',topt & + ,xmn(1,ngrd),xtn(1,ngrd),ymn(1,ngrd),ytn(1,ngrd) & + ,zmn(1,ngrd),ztn(1,ngrd),deltaxn(ngrd) & + ,dzmn(1,ngrd),dztn(1,ngrd),vctr1,vctr2,zmn(nnzp(1)-1,1) & + ,jdim,ihtran,polelat,polelon) +CALL gradr (n1,n2,n3,1,n1-1,1,n2-1,a,b,'ydir','upnt',topt & + ,xmn(1,ngrd),xtn(1,ngrd),ymn(1,ngrd),ytn(1,ngrd) & + ,zmn(1,ngrd),ztn(1,ngrd),deltaxn(ngrd) & + ,dzmn(1,ngrd),dztn(1,ngrd),vctr1,vctr2,zmn(nnzp(1)-1,1) & + ,jdim,ihtran,polelat,polelon) + +do k=1,n3 + do j=1,n2 + do i=1,n1 + b(i,j,k) = c(i,j,k) - b(i,j,k) + enddo + enddo +enddo + +do j = 1,n2 + j1 = max(j-1,1) + j2 = min(j,n2-1) + do i = 1,n1 + i1 = max(i-1,1) + i2 = min(i,n1-1) + do k = 1,n3 + a(i,j,k) = 0.25 * (b(i1,j1,k) + b(i1,j2,k) & + + b(i2,j1,k) + b(i2,j2,k)) + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_relvortz + +!############################################################################## +Subroutine rams_comp_totvortz (n1,n2,n3,a,b,c,topt,ngrd) + +use mem_grid +use mem_scratch, only:vctr1,vctr2 +use rconstants, only:pi180 + +implicit none + +integer :: n1,n2,n3,i,j,k,ngrd,j1,j2,i1,i2 +real, dimension(n1,n2,n3) :: a,b,c +real, dimension(n1,n2) :: topt +real :: factor,fcor,omega2,xlat,xlon + +factor = ztn(1,ngrd) / ztn(2,ngrd) +do j=1,n2 + do i=1,n1 + a(i,j,1) = a(i,j,2) * factor + b(i,j,1) = b(i,j,2) * factor + enddo +enddo + +CALL gradr (n1,n2,n3,1,n1-1,1,n2-1,b,c,'xdir','vpnt',topt & + ,xmn(1,ngrd),xtn(1,ngrd),ymn(1,ngrd),ytn(1,ngrd) & + ,zmn(1,ngrd),ztn(1,ngrd),deltaxn(ngrd) & + ,dzmn(1,ngrd),dztn(1,ngrd),vctr1,vctr2,zmn(nnzp(1)-1,1) & + ,jdim,ihtran,polelat,polelon) +CALL gradr (n1,n2,n3,1,n1-1,1,n2-1,a,b,'ydir','upnt',topt & + ,xmn(1,ngrd),xtn(1,ngrd),ymn(1,ngrd),ytn(1,ngrd) & + ,zmn(1,ngrd),ztn(1,ngrd),deltaxn(ngrd) & + ,dzmn(1,ngrd),dztn(1,ngrd),vctr1,vctr2,zmn(nnzp(1)-1,1) & + ,jdim,ihtran,polelat,polelon) + +do k=1,n3 + do j=1,n2 + do i=1,n1 + b(i,j,k) = c(i,j,k) - b(i,j,k) + enddo + enddo +enddo + +do j = 1,n2 + j1 = max(j-1,1) + j2 = min(j,n2-1) + do i = 1,n1 + i1 = max(i-1,1) + i2 = min(i,n1-1) + do k = 1,n3 + a(i,j,k) = 0.25 * (b(i1,j1,k) + b(i1,j2,k) & + + b(i2,j1,k) + b(i2,j2,k)) + enddo + enddo +enddo + +omega2 = 2. * 7.292e-5 +do j = 1,n2 + do i = 1,n1 + CALL xy_ll (xlat,xlon,polelat,polelon & + ,xtn(i,ngrd),ytn(j,ngrd)) + fcor = omega2 * sin(xlat * pi180) + do k = 1,n3 + a(i,j,k) = a(i,j,k) + fcor + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_totvortz + +!############################################################################## +Subroutine rams_comp_potvortz (n1,n2,n3,a,b,c,e,topt,ngrd) + +use mem_grid +use mem_scratch, only:vctr1,vctr2 + +implicit none + +integer :: n1,n2,n3,i,j,k,ngrd +real, dimension(n1,n2,n3) :: a,b,c,e +real, dimension(n1,n2) :: topt + +CALL gradr (n1,n2,n3,1,n1-1,1,n2-1,b,e,'zdir','tpnt',topt & + ,xmn(1,ngrd),xtn(1,ngrd),ymn(1,ngrd),ytn(1,ngrd) & + ,zmn(1,ngrd),ztn(1,ngrd),deltaxn(ngrd) & + ,dzmn(1,ngrd),dztn(1,ngrd),vctr1,vctr2,zmn(nnzp(1)-1,1) & + ,jdim,ihtran,polelat,polelon) + +do k=1,n3 + do j=1,n2 + do i=1,n1 + a(i,j,k) = a(i,j,k) * e(i,j,k) / (9.8 * c(i,j,k)) + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_potvortz + +!############################################################################## +Subroutine rams_comp_vegclass (n1,n2,n3,a) + +implicit none + +integer :: n1,n2,n3,i +real, dimension(n1,n2,n3) :: a + +do i=1,n1 + a(i,1,1) = a(i,1,1) + .1 +enddo + +return +END SUBROUTINE rams_comp_vegclass + +!############################################################################## +Subroutine rams_comp_horizdiv (n1,n2,n3,a,topt,ngrd) + +use mem_grid, only:ztop,zmn,nnzp,dztn + +implicit none + +integer :: n1,n2,n3,i,j,k,ngrd +real, dimension(n1,n2,n3) :: a +real, dimension(n1,n2) :: topt +real :: rtgt + +ztop = zmn(nnzp(1)-1,1) +do k=n3,2,-1 + do j=1,n2 + do i=1,n1 + rtgt = 1. - topt(i,j) / ztop + a(i,j,k)=-(a(i,j,k)-a(i,j,k-1))*dztn(k,ngrd)/rtgt + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_horizdiv + +!############################################################################## +Subroutine rams_comp_vertmax (n1,n2,n3,a,c) + +implicit none + +integer :: n1,n2,n3,i,j,k +real, dimension(n1,n2,n3) :: a,c + +do j = 1,n2 + do i = 1,n1 + a(i,j,1) = 0. + do k = 2,n3-5 + a(i,j,1) = max(a(i,j,1),c(i,j,k)) + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_vertmax + +!############################################################################## +Subroutine rams_comp_vertavg (n1,n2,n3,a,c) + +implicit none + +integer :: n1,n2,n3,i,j,k +real, dimension(n1,n2,n3) :: a,c + +do j = 1,n2 + do i = 1,n1 + a(i,j,1) = 0. + do k = 2,n3-5 + a(i,j,1) = a(i,j,1) + c(i,j,k) + enddo + a(i,j,1) = a(i,j,1) / (n3-5-1) + enddo +enddo + +return +END SUBROUTINE rams_comp_vertavg + +!############################################################################## +Subroutine rams_comp_vertint (n1,n2,n3,a,topt,ngrd) + +use mem_grid, only:ztop,zmn,nnzp + +implicit none + +integer :: n1,n2,n3,i,j,k,ngrd +real, dimension(n1,n2,n3) :: a +real, dimension(n1,n2) :: topt +real :: rtgt + +ztop = zmn(nnzp(1)-1,1) +do j = 1,n2 + do i = 1,n1 + rtgt = 1. - topt(i,j) / ztop + a(i,j,1) = 0. + do k = 2,n3-1 + a(i,j,1) = a(i,j,1) + a(i,j,k) * (zmn(k,ngrd)-zmn(k-1,ngrd)) * rtgt + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_vertint + +!############################################################################## +Subroutine rams_comp_cloudtop_sstbase (n1,n2,n3,a,b,c) + +implicit none + +integer :: n1,n2,n3,i,j,k +real, dimension(n1,n2,n3) :: a,b,c + +do j = 1,n2 + do i = 1,n1 + a(i,j,1)= c(i,j,1) + do k = n3,2,-1 + if(a(i,j,k) > 5.e-4) then + a(i,j,1) = b(i,j,k) + goto 11 + endif + enddo + 11 continue + enddo +enddo + +return +END SUBROUTINE rams_comp_cloudtop_sstbase + +!############################################################################## +Subroutine rams_comp_cloudtop_nobase (n1,n2,n3,a,b) + +implicit none + +integer :: n1,n2,n3,i,j,k +real, dimension(n1,n2,n3) :: a,b + +do j = 1,n2 + do i = 1,n1 + a(i,j,1)= -999. + do k = n3,2,-1 + if(a(i,j,k) > 5.e-4) then + a(i,j,1) = b(i,j,k) + goto 12 + endif + enddo + 12 continue + enddo +enddo + +return +END SUBROUTINE rams_comp_cloudtop_nobase + +!############################################################################## +Subroutine rams_comp_dn0 (n1,n2,n3,a,b,c,topt,ngrd) + +use mem_grid, only:zmn,ztn,ztop,dzmn,nnzp +use mem_scratch, only:vctr2,vctr11,vctr12 +use rconstants, only:cp,cpor,p00,g,rgas +use ref_sounding, only:pi01dn,th01dn + +implicit none + +integer :: n1,n2,n3,i,j,k,ngrd +real, dimension(n1,n2,n3) :: a,b,c +real, dimension(n1,n2) :: topt +real :: c1,c2,c3 + +ztop = zmn(nnzp(1)-1,1) +do j=1,n2 + do i=1,n1 + do k=1,n3 + vctr2(k)=ztn(k,ngrd)*(1.-topt(i,j)/ztop)+topt(i,j) + enddo + CALL htint (n3,pi01dn(1,ngrd),ztn(1,ngrd),n3,vctr11,vctr2) + CALL htint (n3,th01dn(1,ngrd),ztn(1,ngrd),n3,vctr12,vctr2) + + do k=1,n3 + b(i,j,k)=vctr12(k) + enddo + a(i,j,n3) = vctr11(n3) + + c1=g*2.*(1.-topt(i,j)/ztop) + c2=(1-cpor) + c3=cp**c2 + do k=n3-1,1,-1 + a(i,j,k)=a(i,j,k+1) & + +c1/((b(i,j,k)+b(i,j,k+1))*dzmn(k,ngrd)) + enddo + + do k=1,n3 + c(i,j,k)=(c3*p00)/(rgas*b(i,j,k)*a(i,j,k)**c2) + enddo + + enddo +enddo + +return +END SUBROUTINE rams_comp_dn0 + +!############################################################################## +Subroutine rams_comp_ppress (n1,n2,n3,a,c) + +use rconstants, only:cp,cpor + +implicit none + +integer :: n1,n2,n3,i,j,k +real, dimension(n1,n2,n3) :: a,c + +do k=1,n3 + do j=1,n2 + do i=1,n1 + a(i,j,k) = 1000. * (a(i,j,k)/cp) ** cpor & + - 1000. * (c(i,j,k)/cp) ** cpor + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_ppress + +!############################################################################## +Subroutine rams_comp_raintemp (n1,n2,n3,a) + +implicit none + +integer :: n1,n2,n3,i,j,k +real, dimension(n1,n2,n3) :: a + +do k=1,n3 + do j=1,n2 + do i=1,n1 + a(i,j,k) = (a(i,j,k) - 334000.) / 4186. + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_raintemp + +!############################################################################## +Subroutine rams_comp_qwtc (n1,n2,n3,a,b,c) + +use leaf_coms, only:slcpd + +implicit none + +integer :: n1,n2,n3,i,j,k,nsoil +real, dimension(n1,n2,n3) :: a,b,c +real :: qwliq0,dryhcap + +do k=1,n3 + do j=1,n2 + do i=1,n1 + + !a=soilenergy(J/m3), b=soilwater(m3/m3), c=soilclass + !volumetric specific heat of liquid (4.186e6) (J/K/m3) + !volumetric specific heat of ice (2.093e6) (J/K/m3) + + !soil_water(m3/m3) * volumetric latent heat of freezing(J/m3) + qwliq0 = b(i,j,k) * 3.34e8 + + !soil class + nsoil = nint(c(i,j,k)) + + !volumetric dry heat capacity of soil (J/K/m3) + dryhcap = slcpd(nsoil) + + if (a(i,j,k) .le. 0.) then + a(i,j,k) = a(i,j,k) / (2.093e6 * b(i,j,k) + dryhcap) + b(i,j,k) = 0. + + elseif (a(i,j,k) .ge. qwliq0) then + a(i,j,k) = (a(i,j,k) - qwliq0) / (4.186e6 * b(i,j,k) + dryhcap) + b(i,j,k) = 1. + + else + b(i,j,k) = a(i,j,k) / qwliq0 + a(i,j,k) = 0. + endif + + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_qwtc + +!############################################################################## +Subroutine rams_comp_copysst (n1,n2,n3,a) + +implicit none + +integer :: n1,n2,n3,i,j,k +real :: a(n1,n2,n3) + +do k=1,n3 + do j=1,n2 + do i=1,n1 + a(i,j,k) = (a(i,j,n3) - 334000.) / 4186. + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_copysst + +!############################################################################## +Subroutine rams_comp_qtcpcp (n1,n2,n3,a) + +implicit none + +integer :: n1,n2,n3,i,j,k +real :: a(n1,n2,n3) + +do k=1,n3 + do j=1,n2 + do i=1,n1 + if (a(i,j,k) .le. 0.) then + a(i,j,k) = a(i,j,k) / 2093. + elseif (a(i,j,k) .le. 334000.) then + a(i,j,k) = 0. + else + a(i,j,k) = (a(i,j,k) - 334000.) / 4186. + endif + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_qtcpcp + +!############################################################################## +Subroutine rams_comp_qtcpcp_ps (n1,n2,n3,n4,a) + +implicit none + +integer :: n1,n2,n3,n4,k,ip,i,j +real, dimension(n1,n2,n3,n4) :: a + +do j=1,n2 + do i=1,n1 + do ip=2,n4 + do k=1,n3 + if (a(i,j,k,ip) .le. 0.) then + a(i,j,k,ip) = a(i,j,k,ip) / 2093. + elseif (a(i,j,k,ip) .le. 334000.) then + a(i,j,k,ip) = 0. + else + a(i,j,k,ip) = (a(i,j,k,ip) - 334000.) / 4186. + endif + enddo + enddo + + enddo +enddo + +return +END SUBROUTINE rams_comp_qtcpcp_ps + +!############################################################################## +Subroutine rams_comp_fracliq (n1,n2,n3,a) + +implicit none + +integer :: n1,n2,n3,i,j,k +real :: a(n1,n2,n3) + +do k=1,n3 + do j=1,n2 + do i=1,n1 + if (a(i,j,k) .le. 0.) then + a(i,j,k) = 0. + elseif (a(i,j,k) .ge. 334000.) then + a(i,j,k) = 1. + else + a(i,j,k) = a(i,j,k) / 334000. + endif + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_fracliq + +!############################################################################## +Subroutine rams_comp_fracice (n1,n2,n3,a) + +implicit none + +integer :: n1,n2,n3,i,j,k +real :: a(n1,n2,n3) + +do k=1,n3 + do j=1,n2 + do i=1,n1 + if (a(i,j,k) .le. 0.) then + a(i,j,k) = 1. + elseif (a(i,j,k) .ge. 334000.) then + a(i,j,k) = 0. + else + a(i,j,k) = 1. - a(i,j,k) / 334000. + endif + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_fracice + +!############################################################################## +Subroutine rams_comp_hydrodiam (n1,n2,n3,a,c,ccfmas,ppwmas) + +implicit none + +integer :: n1,n2,n3,i,j,k +real, dimension(n1,n2,n3) :: a,c +real :: ccfmas,ppwmas,rpwmas + +rpwmas = 1. / ppwmas +do k=1,n3 + do j=1,n2 + do i=1,n1 + if(a(i,j,k) .gt. 1.e-10 .and. c(i,j,k).gt.1.e-10)then + a(i,j,k) = (a(i,j,k) / (c(i,j,k) * ccfmas))**rpwmas + else + a(i,j,k) = 0. + endif + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_hydrodiam + +!############################################################################## +Subroutine rams_comp_hydrogamma (n1,n2,n3,a,c,ccfmas,ppwmas,gnu,z) + +implicit none + +integer :: n1,n2,n3,i,j,k,ibin,z +integer, parameter :: nbins=1000 +real, dimension(n1,n2,n3) :: a,c +real, dimension(nbins) :: db,fmg +real, external :: gammln +real :: ccfmas,ppwmas,rpwmas,SumMd,SumMdD,dD,dmean,nc,gammaa,dn,totfmg & + ,gnu,totcx,totrx,Md,D,Dm,mixr,numc,sigma_m,Sum2nd,D0,Nw,liwc & + ,pwcoef,dens + +!Output radar parameters based on Williams et al. (2014) +!"Describing the shape of raindrop size distributions using +!uncorrelated raindrop mass spectrum parameters." +!JAMC, 2014, Vol. 53, 1282-1296. + +!Saleeby:some older simulations required fixed gnu because gnu was +!not in the header files +!gnu=2. + +do k=1,n3 + do j=1,n2 + do i=1,n1 + + !zero out gamma variables + Md = 0. + D = 0. + SumMd = 0. + SumMdD = 0. + Dm = 0. + Sum2nd = 0. + Sigma_m = 0. + D0 = 0. + Nw = 0. + totfmg = 0. + totcx = 0. + totrx = 0. + + !"a" is hydrometeor mass concentration in kg/m3 + !"c" is hydrometeor number concentration in #/m3 + + !If mixing ratio is large enough, proceed + if(a(i,j,k) .gt. 0.00001)then + + !Mean mass diameter (meters) + dmean = (a(i,j,k) / (c(i,j,k) * ccfmas))**(1./ppwmas) + !convert to Williams et al. units + dmean = dmean * 1000. !(mm) + + !Hydrometeor density (kg/m3) + dens = (6./3.14159)*ccfmas*(dmean**(ppwmas-3)) + !convert to Williams et al. units + dens = dens / 1000. !(g/cm3) + + !Liquid/Ice water content temporary variable (g/m3) + liwc = a(i,j,k) * 1000. + !Number mixing ratio temporary variable (#/m3) + numc = c(i,j,k) + + !**************************************************************************** + !Compute gamma distribution info + !compute characteristic diameter (mm) + dn = dmean / gnu + !compute gamma value + gammaa = exp(gammln(gnu)) + !compute distribution bin increment (mm) + dD = 0.02 * dn + !determine fraction per bin based on mean diameters and shape parameter + do ibin = 1,nbins + db(ibin) = dD * (float(ibin) - 0.5) + fmg(ibin) = dD * (db(ibin) / dn) ** (gnu - 1.) & + / (dn * gammaa) * exp(-db(ibin) / dn) + enddo + !************************************************************************** + !Work on bin values to get Dm + do ibin = 1,nbins + Md = liwc * fmg(ibin) !Bin(mm) liquid/ice (g/m3) + D = db(ibin) !Bin(mm) diameter (mm) + SumMd = SumMd + (Md*dD) + SumMdD = SumMdD + (Md*D*dD) + enddo + + !Mass weighted mean diam (mm) + Dm = SumMdD/SumMd + + !Work on bin values of mass mixing ratio and compute total from distribution + do ibin = 1,nbins + Md = liwc * fmg(ibin) !Bin(mm) liquid/ice (g/m3) + D = db(ibin) !Bin(mm) diameter (mm) + Sum2nd = Sum2nd + (((D-Dm)**2)*Md*dD) + enddo + + !Standard deviation of mass spectrum (mm) + Sigma_m = sqrt(Sum2nd/SumMd) + + !Compute volumetic mean diameter (mm) + !Use (gnu-1) since RAMS' gnu is different than Williams et al. + D0 = Dm * (3.67 + (gnu-1.)) / (4.0 + (gnu-1.)) + + !Compute normalized intercept parameter (1/mm * 1/m3) (Dolan et al. 2018) + Nw = log10( 3.67**4. * 1000. / (3.1415 * dens) * (liwc/D0**4.) ) + + !*************************************************************************** + !Assign values to output variable "a" + if(z==1) a(i,j,k) = Dm !mass weighted mean diamer (mm) + if(z==2) a(i,j,k) = D0 !volumetric mean diameter (mm) + if(z==3) a(i,j,k) = Nw !normalized intercept parameter (1/mm * 1/m3) + if(z==4) a(i,j,k) = Sigma_m !standard deviation of mass spectrum (mm) + + ! if(z==1 .and. Dm > 2.2 .and. liwc>0.0005) print*,'Dm',Dm,D0,liwc,Nw + ! if(z==3 .and. Nw < 2.)print*,'log10(Nw)',k,Nw,liwc + ! if(z==4 .and. Sigma_m > 1.5)print*,'Sigma',k,i,j,Sigma_m + + !*************************************************************************** + !Compute total values of mass mixing ratio and number from distribution + !do ibin = 1,nbins + ! totcx = totcx + numc * fmg(ibin) + ! totrx = totrx + liwc * fmg(ibin) + ! totfmg = totfmg + fmg(ibin) + !enddo + + else + a(i,j,k) = 0.0 + endif + + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_hydrogamma + +!############################################################################## +Subroutine rams_comp_aeromedrad (n1,n2,n3,a,c,aerodens) + +implicit none + +integer :: n1,n2,n3,i,j,k +real, dimension(n1,n2,n3) :: a,c +real :: aerodens,aero_rg2rm,sigma + +do k=1,n3 + do j=1,n2 + do i=1,n1 + if(a(i,j,k) .gt. 1.e-30 .and. c(i,j,k).gt.1.e-7)then + + !Compute numerator of Eq.5 in Saleeby and vdh (2013) + a(i,j,k) = a(i,j,k)/c(i,j,k) + a(i,j,k) = a(i,j,k)*(3.0/(4.0*3.14159*aerodens)) + a(i,j,k) = a(i,j,k)**0.333333 + + !Compute demonenator of Eq.5 in Saleeby and vdh (2013) + sigma = 1.8 !lognormal distribution width for RAMS (2000-2018) + aero_rg2rm = exp(1.5 * alog(sigma)**2) + + !Compute final values of Eq.5 + a(i,j,k) = a(i,j,k) / aero_rg2rm + + else + + a(i,j,k) = 0. + + endif + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_aeromedrad + +!############################################################################## +Subroutine rams_comp_ctopdiam (n1,n2,n3,a,c,ccfmas,ppwmas) + +implicit none + +integer :: n1,n2,n3,i,j,k +real, dimension(n1,n2,n3) :: a,c +real :: rpwmas,ppwmas,ccfmas + +rpwmas = 1. / ppwmas +do j=1,n2 + do i=1,n1 + a(i,j,1) = -9999. + do k = n3,2,-1 + if(a(i,j,k) .gt. 1.e-5 .and. c(i,j,k).gt.1.e-2)then + a(i,j,1) = 1.e6 * (a(i,j,k) / (c(i,j,k) * ccfmas))**rpwmas + goto 14 + endif + enddo + 14 continue + enddo +enddo + +return +END SUBROUTINE rams_comp_ctopdiam + +!############################################################################## +Subroutine rams_comp_slmstf (n1,n2,n3,a,c) + +implicit none + +integer :: n1,n2,n3,i +real, dimension(n1,n2,n3) :: a,c +real :: slmsts0(12) +data slmsts0/0.395, 0.410, 0.435, 0.485, 0.451, 0.420 & + ,0.477, 0.476, 0.426, 0.492, 0.482, 0.863/ + +do i=1,n1 + a(i,1,1) = a(i,1,1) / max(1.e-6,slmsts0(nint(c(i,1,1)))) +enddo + +return +END SUBROUTINE rams_comp_slmstf + +!############################################################################## +Subroutine rams_sum_snowlayers_ps (n1,n2,n3,n4,a,f) + +implicit none + +integer :: n1,n2,n3,n4,k,ip,i,j +real, dimension(n1,n2,n3,n4) :: a +real, dimension(n1,n2,n4) :: ksum,f +real, dimension(n1,n2) :: psum + +!n3 = number of snow layers (nzs), n4 = number of patches (npatch) +!a = sfcwater variable, f = patch_area + +do j=1,n2 + do i=1,n1 + psum(i,j) = 0. + do ip=2,n4 + ksum(i,j,ip) = 0. + do k=1,n3 + ksum(i,j,ip) = ksum(i,j,ip) + a(i,j,k,ip) + enddo + if (f(i,j,1) .lt. .991) then + psum(i,j) = psum(i,j) + f(i,j,ip) * ksum(i,j,ip) / (1.0-f(i,j,1)) + else + psum(i,j) = a(i,j,1,2) + endif + enddo + enddo +enddo + +! Copy psum into f, which was passed in as a(1). n3 may exceed n4 but this +! should be ok. +do j = 1,n2 + do i = 1,n1 + f(i,j,1) = psum(i,j) + enddo +enddo + +return +END SUBROUTINE rams_sum_snowlayers_ps + +!############################################################################## +Subroutine rams_fill_sst (n1,n2,n3,kp,a,c) + +implicit none + +integer :: n1,n2,n3,i,j,kp +real, dimension(n1,n2,n3) :: a,c + +do j=1,n2 + do i = 1,n1 + a(i,j,1) = (c(i,j,kp)- 334000.) / 4186. + enddo +enddo + +return +END SUBROUTINE rams_fill_sst + +!############################################################################## +Subroutine rams_comp_pbl (n1,n2,n3,a,b,c,ngrd) + +use mem_grid, only:ztn,zmn,nnzp + +implicit none + +integer :: n1,n2,n3,i,j,k,ngrd +real, dimension(n1,n2,n3) :: b,c +real, dimension(n1,n2) :: a +real :: tkethrsh,pblht + +tkethrsh=0.001 ! tke threshold for PBL height in m2/s2 +do j=1,n2 + do i=1,n1 + pblht=0. + do k=2,n3 + pblht=ztn(k,ngrd)*(1.-c(i,j,1)/zmn(nnzp(1)-1,1)) + !if(i.ge.10.and.i.le.25.and.j.ge.13.and.j.le.25) & + ! print*,'i,j,k,z,pbl=',i,j,k,ztn(k,ngrd),pblht + if(b(i,j,k).le.tkethrsh) goto 10 + enddo + 10 continue + a(i,j)=pblht + enddo +enddo + +return +END SUBROUTINE rams_comp_pbl + +!############################################################################## +Subroutine rams_comp_slpress (n1,n2,n3,theta,pp,z,slp) + +! This routine calculates the pressure at level zlev. it +! is hardwired here to calculate mean sea level pressure, +! but can be easily changed to calculate pressure at any level +! by just changing zlev. +! A standard atmosphere lapse rate of 6.5 c/km is used to +! interpolate temperature down from level 2 in the model. + +implicit none + +integer :: n1,n2,n3,i,j,k,kbot,ktop +real, dimension(n1,n2,n3) :: theta,pp,z +real, dimension(n1,n2) :: slp +real :: sl_p00,sl_g,sl_cp,sl_r,sl_cpor,rlap,zlev,thbar,ddz + +sl_p00=1000. +sl_g=9.8 +sl_cp=1004. +sl_r=287. +sl_cpor=sl_cp/sl_r +!rlap=-.0065 ! standard temp lapse rate +rlap=.0025 ! approx standard theta lapse rate +zlev=0. +ktop=0 +kbot=0 + +do j=1,n2 + do i=1,n1 + do k=2,n3 + if(z(i,j,k).ge.zlev) then + ktop=k + kbot=k-1 + goto 31 + endif + enddo + 31 continue + + !if(i.eq.1.and.j.eq.1) & + ! print*,'kbot:',kbot,ktop,z(i,j,kbot),z(i,j,ktop) & + ! ,pp(i,j,kbot),theta(i,j,kbot) + ddz=zlev-z(i,j,kbot) + if(zlev.lt.z(i,j,kbot))then + thbar=(theta(i,j,kbot)-.5*ddz*rlap) + else + thbar=.5*(theta(i,j,kbot)+theta(i,j,ktop)) + endif + slp(i,j)=pp(i,j,kbot)-ddz*sl_g/thbar + slp(i,j)=(slp(i,j)/sl_cp)**sl_cpor*sl_p00 + enddo +enddo + +return +END SUBROUTINE rams_comp_slpress + +!############################################################################## +Subroutine rams_comp_pprime (n1,n2,n3,a,b) + +implicit none + +integer :: n1,n2,n3,i,j,k,band,iters,jminus,jplus,iminus,iplus,j1,i1 +real, dimension(n1,n2,n3) :: a,b,dif,bp1,bp2,iter1,iter2 +real :: x1,c3,g3,sum1,sum2,ewt,wt,r2 + +!Set to default initialization +c3=0.;g3=0.;ewt=0. + +x1=119*(b(1,2,1)-b(1,1,1)) +do band=1,2 +if(band.eq.1) then + c3=-4.0*5000 + g3=0.3 +endif +if(band.eq.2) then + c3=-4.0*40000 + g3=0.4 +endif +do iters=1,2 + +do k=1,1 +do j=1,n2 + jminus=j-10 + jplus=j+10 + if(jminus.lt.1) jminus=1 + if(jplus.gt.n2) jplus=n2 + do i=1,n1 + sum1=0.0 + sum2=0.0 + iminus=i-10 + iplus=i+10 + if(iminus.lt.1) iminus=1 + if(iplus.gt.n1) iplus=n1 + do j1=jminus,jplus + do i1=iminus,iplus + if(j1.ne.j .and. i1.ne.i) then + r2 = ((x1*abs(i-i1))**2.0 + (x1*abs(j-j1))**2.0) + if(iters.eq.1) ewt=(r2/c3) + if(iters.eq.2) ewt=(r2/(c3*g3)) + if(ewt>-300.0) then + wt=exp(ewt) + if(iters.eq.1) sum1=sum1 + wt*a(i1,j1,k) + if(iters.eq.2) sum1=sum1 + wt*dif(i1,j1,k) + sum2=sum2 + wt + endif + endif + enddo + enddo + if(iters.eq.1) then + iter1(i,j,k) = sum1/sum2 + dif(i,j,k) = a(i,j,k) - iter1(i,j,k) + endif + if(iters.eq.2) then + iter2(i,j,k) = sum1/sum2 + if(band.eq.1) bp1(i,j,k) = iter1(i,j,k) + iter2(i,j,k) + if(band.eq.2) then + bp2(i,j,k) = iter1(i,j,k) + iter2(i,j,k) + a(i,j,k) = 1.25*(bp1(i,j,k) - bp2(i,j,k)) + endif + endif + enddo +enddo +enddo + +enddo +enddo + +return +END SUBROUTINE rams_comp_pprime + +!############################################################################## +Subroutine rams_comp_zero (n1,n2,n3,a) + +implicit none + +integer :: n1,n2,n3,i,j,k +real :: a(n1,n2,n3) + +do k=1,n3 + do j=1,n2 + do i=1,n1 + a(i,j,k)=0. + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_zero + +!############################################################################## +Subroutine rams_comp_1plus (n1,n2,n3,a) + +implicit none + +integer :: n1,n2,n3,i,j,k +real :: a(n1,n2,n3) + +do k=1,n3 + do j=1,n2 + do i=1,n1 + a(i,j,k)=a(i,j,k) + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_1plus + +!############################################################################## +Subroutine rams_comp_1minus (n1,n2,n3,a) + +implicit none + +integer :: n1,n2,n3,i,j,k +real :: a(n1,n2,n3) + +do k=1,n3 + do j=1,n2 + do i=1,n1 + a(i,j,k)=1.-a(i,j,k) + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_1minus + +!############################################################################## +Subroutine rams_comp_mults (n1,n2,n3,a,s) + +implicit none + +integer :: n1,n2,n3,i,j,k +real :: a(n1,n2,n3),s + +do k=1,n3 + do j=1,n2 + do i=1,n1 + a(i,j,k)=a(i,j,k) * s + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_mults + +!############################################################################## +Subroutine rams_comp_accum (n1,n2,n3,a,b) + +implicit none + +integer :: n1,n2,n3,i,j,k +real :: a(n1,n2,n3),b(n1,n2,n3) + +do k=1,n3 + do j=1,n2 + do i=1,n1 + a(i,j,k)=a(i,j,k)+b(i,j,k) + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_accum + +!############################################################################## +Subroutine rams_comp_noneg (n1,n2,n3,a) + +implicit none + +integer :: n1,n2,n3,i,j,k +real :: a(n1,n2,n3) + +do k=1,n3 + do j=1,n2 + do i=1,n1 + a(i,j,k)=max(a(i,j,k),0.) + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_noneg + + +!############################################################################## +Subroutine rams_comp_subt (n1,n2,n3,a,b) + +implicit none + +integer :: n1,n2,n3,i,j,k +real :: a(n1,n2,n3),b(n1,n2,n3) + +do k=1,n3 + do j=1,n2 + do i=1,n1 + a(i,j,k)=a(i,j,k)-b(i,j,k) + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_subt + +!############################################################################## +Subroutine rams_comp_aeroepsilon (n1,n2,n3,a,b) + +implicit none + +integer :: n1,n2,n3,i,j,k +real :: a(n1,n2,n3),b(n1,n2,n3) + +do k=1,n3 + do j=1,n2 + do i=1,n1 + !Only computes solubility fraction if aerosol mass + !in hydrometeors is at least ~1ug/m3. Otherwise zero. + if(b(i,j,k)>=1.0e-12) then + a(i,j,k)=a(i,j,k)/b(i,j,k) + else + a(i,j,k)=0.0 + endif + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_aeroepsilon + +!############################################################################## +Subroutine rams_comp_mult (n1,n2,n3,a,b) + +implicit none + +integer :: n1,n2,n3,i,j,k +real :: a(n1,n2,n3),b(n1,n2,n3) + +do k=1,n3 + do j=1,n2 + do i=1,n1 + a(i,j,k)=a(i,j,k)*b(i,j,k) + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_mult + +!############################################################################## +Subroutine rams_comp_z (n1,n2,n3,a,b,ngrd) + +use mem_grid, only:ztn,zmn,nnzp + +implicit none + +integer :: n1,n2,n3,i,j,k,ngrd +real :: a(n1,n2,n3),b(n1,n2,n3) + +do k=1,n3 + do j=1,n2 + do i=1,n1 + a(i,j,k)=b(i,j,1) & + +ztn(k,ngrd)*(1.-b(i,j,1)/zmn(nnzp(1)-1,1)) + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_z + +!############################################################################## +Subroutine rams_comp_rotate (n1,n2,n3,a,b,ngrd) + +use mem_grid, only:polelat,polelon,xtn,ytn + +implicit none + +integer :: n1,n2,n3,i,j,k,ngrd +real :: a(n1,n2,n3),b(n1,n2,n3) +real :: qlat,qlon,u,v + +do k=1,n3 + do j=1,n2 + do i=1,n1 + CALL xy_ll (qlat,qlon,polelat,polelon & + ,xtn(i,ngrd),ytn(j,ngrd)) + u=a(i,j,k) + v=b(i,j,k) + CALL uvtoueve (u,v,a(i,j,k),b(i,j,k) & + ,qlat,qlon,polelat,polelon) + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_rotate + +!############################################################################## +Subroutine rams_comp_tempK (n1,n2,n3,a,b) + +use rconstants, only:cp + +implicit none + +integer :: n1,n2,n3,i,j,k +real :: a(n1,n2,n3),b(n1,n2,n3) + +do k=1,n3 + do j=1,n2 + do i=1,n1 + a(i,j,k)=a(i,j,k)*b(i,j,k)/cp + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_tempK + +!############################################################################## +Subroutine rams_comp_tempC (n1,n2,n3,a) + +implicit none + +integer :: n1,n2,n3,i,j,k +real :: a(n1,n2,n3) + +do k=1,n3 + do j=1,n2 + do i=1,n1 + a(i,j,k)=a(i,j,k)-273.16 + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_tempC + +!############################################################################## +Subroutine rams_comp_tempF (n1,n2,n3,a) + +implicit none + +integer :: n1,n2,n3,i,j,k +real :: a(n1,n2,n3) + +do k=1,n3 + do j=1,n2 + do i=1,n1 + a(i,j,k)=(a(i,j,k)-273.16)*1.8+32. + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_tempF + +!############################################################################## +Subroutine rams_comp_rslf (n1,n2,n3,a,b,c) + +use rconstants, only:cp,p00,cpor + +implicit none + +real, external :: rslf +integer :: n1,n2,n3,i,j,k +real :: a(n1,n2,n3),b(n1,n2,n3),c(n1,n2,n3),tempk,p + +do k=1,n3 + do j=1,n2 + do i=1,n1 + tempk=a(i,j,k)*b(i,j,k)/cp + tempk=max(193.15,tempk) + p=(b(i,j,k)/cp)**cpor*p00 + a(i,j,k) = (c(i,j,k) / rslf(p,tempk)) - 1. + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_rslf + +!############################################################################## +Subroutine rams_comp_rsif (n1,n2,n3,a,b,c) + +use rconstants, only:cp,p00,cpor + +implicit none + +real, external :: rsif +integer :: n1,n2,n3,i,j,k +real :: a(n1,n2,n3),b(n1,n2,n3),c(n1,n2,n3),tempk,p + +do k=1,n3 + do j=1,n2 + do i=1,n1 + + tempk=a(i,j,k)*b(i,j,k)/cp + tempk=max(193.15,tempk) + p=(b(i,j,k)/cp)**cpor*p00 + + a(i,j,k) = (c(i,j,k) / rsif(p,tempk)) - 1. + + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_rsif + +!############################################################################## +Subroutine rams_comp_vaporpress (n1,n2,n3,a,b) + +use rconstants, only:cp,p00,cpor + +implicit none + +integer :: n1,n2,n3,i,j,k +real :: a(n1,n2,n3),b(n1,n2,n3) + +do k=1,n3 + do j=1,n2 + do i=1,n1 + a(i,j,k)=(a(i,j,k)/cp)**cpor*p00*.01 + a(i,j,k)=b(i,j,k) * a(i,j,k) / (b(i,j,k) + 0.622) + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_vaporpress + +!############################################################################## +Subroutine rams_comp_press (n1,n2,n3,a) + +use rconstants, only:cp,p00,cpor + +implicit none + +integer :: n1,n2,n3,i,j,k +real :: a(n1,n2,n3) + +do k=1,n3 + do j=1,n2 + do i=1,n1 + a(i,j,k)=(a(i,j,k)/cp)**cpor*p00*.01 + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_press + +!############################################################################## +Subroutine rams_comp_wcms (n1,n2,n3,a) + +implicit none + +integer :: n1,n2,n3,i,j,k +real :: a(n1,n2,n3) + +do k=1,n3 + do j=1,n2 + do i=1,n1 + a(i,j,k)=a(i,j,k)*100. + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_wcms + +!############################################################################## +Subroutine rams_comp_avgw (n1,n2,n3,a) + +implicit none + +integer :: n1,n2,n3,i,j,k +real :: a(n1,n2,n3) + +do k=n3,2,-1 + do j=1,n2 + do i=1,n1 + a(i,j,k)=0.5*(a(i,j,k)+a(i,j,k-1)) + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_avgw + +!############################################################################## +Subroutine rams_comp_avgu (n1,n2,n3,a) + +implicit none + +integer :: n1,n2,n3,i,j,k +real :: a(n1,n2,n3) + +do k=1,n3 + do j=1,n2 + do i=n1,2,-1 + a(i,j,k)=0.5*(a(i,j,k)+a(i-1,j,k)) + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_avgu + +!############################################################################## +Subroutine rams_comp_avgv (n1,n2,n3,a) + +implicit none + +integer :: n1,n2,n3,i,j,k +real :: a(n1,n2,n3) + +do k=1,n3 + do j=n2,2,-1 + do i=1,n1 + a(i,j,k)=0.5*(a(i,j,k)+a(i,j-1,k)) + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_avgv + +!############################################################################## +Subroutine rams_comp_sfcdiv (n1,n2,n3,a,ngrd) + +use mem_grid, only:dztn + +implicit none + +integer :: n1,n2,n3,i,j,ngrd +real :: a(n1,n2,n3) + +do j=1,n2 + do i=1,n1 + a(i,j,1)=-(a(i,j,2)-a(i,j,1))*dztn(2,ngrd) + enddo +enddo + +return +END SUBROUTINE rams_comp_sfcdiv + +!############################################################################## +Subroutine rams_comp_speed (n1,n2,n3,a,b) + +implicit none + +integer :: n1,n2,n3,i,j,k +real :: a(n1,n2,n3),b(n1,n2,n3) + +do k=1,n3 + do j=1,n2 + do i=1,n1 + a(i,j,k)=sqrt(a(i,j,k)**2+b(i,j,k)**2) + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_speed + +!############################################################################## +Subroutine rams_comp_patchsum (n1,n2,n3,n4,a,f,psum) + +implicit none + +integer :: n1,n2,n3,n4,i,j,k,ip +real :: a(n1,n2,n3,n4),f(n1,n2,n4),psum(n1,n2,n3) + +! This routine is for quantities such as net roughness that are defined +! for all patches + +do k = 1,n3 + do j = 1,n2 + do i = 1,n1 + psum(i,j,k) = 0. + do ip = 1,n4 + psum(i,j,k) = psum(i,j,k) + f(i,j,ip) * a(i,j,k,ip) + enddo + enddo + enddo +enddo + +! Copy psum into f, which was passed in as a(1). n3 may exceed n4 but this +! should be ok. + +do k = 1,n3 + do j = 1,n2 + do i = 1,n1 + f(i,j,k) = psum(i,j,k) + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_patchsum + +!############################################################################## +Subroutine rams_comp_patchsum_l (n1,n2,n3,n4,a,f,psum) + +implicit none + +integer :: i,j,k,n1,n2,n3,n4,ip +real :: a(n1,n2,n3,n4),f(n1,n2,n4),psum(n1,n2,n3) + +! This routine is for quantities such as veg roughness that are not +! defined for water patches + +do k = 1,n3 + do j = 1,n2 + do i = 1,n1 + if (f(i,j,1) .lt. .991) then + psum(i,j,k) = 0. + do ip = 2,n4 + psum(i,j,k) = psum(i,j,k) + f(i,j,ip) * a(i,j,k,ip) & + / (1. - f(i,j,1)) + enddo + else + psum(i,j,k) = a(i,j,k,2) + endif + enddo + enddo +enddo + +! Copy psum into f, which was passed in as a(1). n3 may exceed n4 but this +! should be ok. + +do k = 1,n3 + do j = 1,n2 + do i = 1,n1 + f(i,j,k) = psum(i,j,k) + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_patchsum_l + +!############################################################################## +Subroutine rams_comp_bigpatch (n1,n2,n3,n4,a,f,b) + +implicit none + +integer :: n1,n2,n3,n4,i,j,k +real :: a(n1,n2,n3,n4),f(n1,n2,n4),b(n1,n2,n3) + +! Extract LSP value from largest patch + +do k = 1,n3 + do j = 1,n2 + do i = 1,n1 + if (f(i,j,2) .ge. f(i,j,1)) then + b(i,j,k) = a(i,j,k,2) + else + b(i,j,k) = a(i,j,k,1) + endif + enddo + enddo +enddo + +! Copy b into f, which was passed in as a(1). n3 may exceed n4 but this +! should be ok. + +do k = 1,n3 + do j = 1,n2 + do i = 1,n1 + f(i,j,k) = b(i,j,k) + enddo + enddo +enddo + +return +END SUBROUTINE rams_comp_bigpatch + +!############################################################################## +Subroutine rams_comp_5050 (n1,n2,n3,a,d) + +implicit none + +integer :: n1,n2,n3,i,j +real :: a(n1,n2),d(n1,n2,n3) + +do j = 1,n2 + do i = 1,n1 + a(i,j) = .5 * (a(i,j) + d(i,j,2)) + enddo +enddo + +return +END SUBROUTINE rams_comp_5050 + +!############################################################################## +Subroutine rams_reduced_temp (n1,n2,n3,n4,tempnew,speed,ustar & + ,tstar,znew,zold,zrough,patfrac & + ,cantemp,theta,pi,topo,ztop) + +use rconstants, only:cp,g,vonk + +implicit none + +integer :: n1,n2,n3,n4,i,j,np +real :: tempnew(n1,n2),speed(n1,n2,n3),ustar(n1,n2,n4),znew,zold & + ,zrough(n1,n2,n4),patfrac(n1,n2,n4),cantemp(n1,n2,n4) & + ,theta(n1,n2,n3),pi(n1,n2,n3),topo(n1,n2),ztop,tstar(n1,n2,n4) +real :: richno,rtgt,zagl,rtemp,rtempw,z0,a2,spd,cantheta,sfcpi + + +do j=1,n2 + do i=1,n1 + + rtgt=1.-topo(i,j)/ztop + zagl=zold*rtgt + sfcpi=.5*(pi(i,j,1)+pi(i,j,2)) + rtempw=0. + + do np=1,n4 + + z0=zrough(i,j,np) + if(np==1) z0=.001 + spd=max(speed(i,j,2),.25) + cantheta=cantemp(i,j,np)*cp/sfcpi + + richno=g*zagl*(theta(i,j,2)-cantheta) & + /(theta(i,j,2)*spd**2) + a2 = (vonk / log(znew / z0)) ** 2 + + if(richno.gt.0.) then + rtemp=cantheta & + +(ustar(i,j,np)*tstar(i,j,np)*0.74)/(a2*spd) & + *(1.+15.*richno*sqrt(1+5*richno)) + rtemp=min(max(rtemp, cantheta),theta(i,j,2)) + else + rtemp=cantheta & + +((ustar(i,j,np)*tstar(i,j,np)*0.74)/(a2*spd)) & + / (1.- 15.*richno/(1.+75.*a2 & + * sqrt(-znew*richno/z0))) + rtemp=max(min(rtemp, cantheta),theta(i,j,2)) + endif + + !if((i==50.and.j==25)) then + ! print*,'====tempf2m:',i,j + ! print*,np,patfrac(i,j,np),cantheta + ! print*,np,ustar(i,j,np),zrough(i,j,np),tstar(i,j,np) + ! print*,np,theta(i,j,2),speed(i,j,2),rtemp + !endif + + rtempw=rtempw+rtemp*patfrac(i,j,np) + + enddo + + tempnew(i,j)=rtempw + + enddo +enddo + +return +END SUBROUTINE rams_reduced_temp + +!############################################################################## +Subroutine rams_reduced_wind (n1,n2,n3,n4,velnew,speed,ustar & + ,znew,zold,zrough,patfrac,cantemp & + ,theta,pi,topo,ztop) + +use rconstants, only:cp,g,vonk + +implicit none + +integer :: n1,n2,n3,n4,i,j,np +real :: velnew(n1,n2),speed(n1,n2,n3),ustar(n1,n2,n4),znew,zold & + ,zrough(n1,n2,n4),patfrac(n1,n2,n4),cantemp(n1,n2,n4) & + ,theta(n1,n2,n3),pi(n1,n2,n3),topo(n1,n2),ztop +real:: richno,rtgt,zagl,rwind,rwindw,z0,a2,spd,cantheta,sfcpi + +do j=1,n2 + do i=1,n1 + + rtgt=1.-topo(i,j)/ztop + zagl=zold*rtgt + sfcpi=.5*(pi(i,j,1)+pi(i,j,2)) + + rwindw=0. + + do np=1,n4 + + z0=zrough(i,j,np) + if(np==1) z0=.001 + spd=max(speed(i,j,2),.25) + cantheta=cantemp(i,j,np)*cp/sfcpi + + richno=g*zagl*(theta(i,j,2)-cantheta) & + /(theta(i,j,2)*spd**2) + a2 = (vonk / log(znew / z0)) ** 2 + + if(richno.gt.0.) then + rwind=sqrt(ustar(i,j,np)**2/a2 & + *(1.+10.*richno/sqrt(1+5*richno)) ) + else + rwind=sqrt( ustar(i,j,np)**2/a2 & + / (1.- 10.*richno/(1.+75.*a2 & + * sqrt(-znew*richno/z0)))) + endif + + rwind=max(min(rwind,speed(i,j,2)),0.) + + !if(i==50.and.j==25) then + ! print*,'====speed10m' + ! print*,np,patfrac(i,j,np),cantemp(i,j,np) + ! print*,np,ustar(i,j,np),zrough(i,j,np) + ! print*,np,theta(i,j,2),speed(i,j,2),rwind + !endif + + rwindw=rwindw+rwind*patfrac(i,j,np) + + enddo + + velnew(i,j)=rwindw + + enddo +enddo + +return +END SUBROUTINE rams_reduced_wind + +!############################################################################## +Subroutine rams_net_rad_flx (n1,n2,n3,netflx,swup,lwup,swdn,rshort,rlong & + ,rlongup,albedt) + +implicit none + +integer :: n1,n2,n3,i,j +real, dimension(n1,n2) :: netflx,rshort,rlong,rlongup,albedt +real, dimension(n1,n2,n3) :: swup,lwup,swdn +real :: netuptoa,netupsfc,rshortup + +!Note: + values indicate cooling +!Note: - values indicate warming + +do j=1,n2 + do i=1,n1 + netuptoa = swup(i,j,n3) + lwup(i,j,n3) - swdn(i,j,n3) + rshortup = rshort(i,j) * albedt(i,j) + netupsfc = (rshortup + lwup(i,j,1)) - (rshort(i,j) + rlong(i,j)) + netflx(i,j)= netuptoa - netupsfc + enddo +enddo + +return +END SUBROUTINE rams_net_rad_flx + +!############################################################################## +Subroutine rams_swheatrate (n1,n2,n3,heatrt,swup,swdn,dn0,pi,ngrd) + +use mem_grid, only:dztn +use rconstants, only:cp + +implicit none + +integer :: n1,n2,n3,i,j,k,ngrd +real :: divisor +real, dimension(n1,n2,n3) :: heatrt,swup,swdn,dn0,pi + +!Note: summing as (UP - DOWN) + +do j=1,n2 + do i=1,n1 + do k=2,n3-2 + divisor = dn0(i,j,k) * (1./dztn(k,ngrd)) * cp * pi(i,j,k)/cp + heatrt(i,j,k) = & + (swdn(i,j,k)-swdn(i,j,k-1)+swup(i,j,k-1)-swup(i,j,k))/divisor + enddo + heatrt(i,j,1)=heatrt(i,j,2) + heatrt(i,j,n3)=heatrt(i,j,n3-2)!issue with not having McLatchy levels post-run + heatrt(i,j,n3-1)=heatrt(i,j,n3-2)!issue with not having McLatchy levels post-run + enddo +enddo + +return +END SUBROUTINE rams_swheatrate + +!############################################################################## +Subroutine rams_lwheatrate (n1,n2,n3,heatrt,lwup,lwdn,dn0,pi,ngrd) + +use mem_grid, only:dztn +use rconstants, only:cp + +implicit none + +integer :: n1,n2,n3,i,j,k,ngrd +real :: divisor +real, dimension(n1,n2,n3) :: heatrt,lwup,lwdn,dn0,pi + +!Note: summing as (UP - DOWN) + +do j=1,n2 + do i=1,n1 + do k=2,n3-2 + divisor = dn0(i,j,k) * (1./dztn(k,ngrd)) * cp * pi(i,j,k)/cp + heatrt(i,j,k) = & + (lwdn(i,j,k)-lwdn(i,j,k-1)+lwup(i,j,k-1)-lwup(i,j,k))/divisor + enddo + heatrt(i,j,1)=heatrt(i,j,2) + heatrt(i,j,n3)=heatrt(i,j,n3-2)!issue with not having McLatchy levels post-run + heatrt(i,j,n3-1)=heatrt(i,j,n3-2)!issue with not having McLatchy levels post-run + enddo +enddo + +return +END SUBROUTINE rams_lwheatrate + +!############################################################################## +Subroutine rams_sum_rad_flx (n1,n2,n3,netflx,swup,lwup,swdn,lwdn) + +implicit none + +integer :: n1,n2,n3,i,j,k +real, dimension(n1,n2,n3) :: netflx,swup,lwup,swdn,lwdn + +!Note: summing as (UP - DOWN) + +do j=1,n2 + do i=1,n1 + do k=1,n3 + netflx(i,j,k)=swup(i,j,k)+lwup(i,j,k)-swdn(i,j,k)-lwdn(i,j,k) + enddo + enddo +enddo + +return +END SUBROUTINE rams_sum_rad_flx + +!############################################################################## +Subroutine cldfraction (n1,n2,n3,frac,pi,rh) + +! calculate cloud fraction - actually returns clear sky fraction + +implicit none + +integer :: i,j,k,kmax,n1,n2,n3 +real :: frac(n1,n2),pi(n1,n2,n3),rh(n1,n2,n3) +real, allocatable :: rhc(:), cs(:) +real :: kappai,c_1,c_2,c_junk,pop2,csmax + +c_1 = 2. +c_junk = 3. +c_2 = c_junk**0.5 +kappai = (1./.286) + +allocate (rhc(n3),cs(n3)) + +do j=1,n2 + do i=1,n1 + frac(i,j) = 0. + csmax = 0. + kmax = 0 + do k = 1, n3 + rhc(k)= 0. + cs(k)= 0. + enddo + + do k = 1, n3 + pop2 = (pi(i,j,k)/pi(i,j,2))**kappai + + rhc(k) = 100. - (100.*c_1*pop2)*(1.-pop2)*(1.+c_2*(pop2-0.5)) + + if(rh(i,j,k) .ge. rhc(k))then + if(rhc(k).eq.100.)rhc(k)=rhc(k)+0.0000001 + cs(k) = ( (rh(i,j,k)-rhc(k))/(100.-rhc(k)) ) **2. + else + cs(k) = 0. + endif + if(cs(k).gt.csmax)then + csmax=cs(k) + kmax = k + endif + frac(i,j) = frac(i,j) + cs(k)*(1./float(k)) + !if(i==20.and.j==20) print*,k,pi(i,j,k),rh(i,j,k),frac(i,j) + enddo + + csmax=max(csmax,0.) + + !frac(i,j) = 1.-min(1.,max(0.,csmax)) + frac(i,j) = 1.-min(1.,max(0.,frac(i,j))) + enddo +enddo + +deallocate (rhc,cs) + +return +END SUBROUTINE cldfraction + +!############################################################################## +Subroutine reflectivity_zero (kace,iace,jace & + ,temprmix,temprNt,tempgmix,tempgNt,temphmix,temphNt & + ,temppmix,temppNt,tempsmix,tempsNt,tempamix,tempaNt) + +implicit none + +integer :: i,j,k,iace,jace,kace + +real,dimension(kace,iace,jace) :: temprmix,temprNt +real,dimension(kace,iace,jace) :: tempgmix,tempgNt +real,dimension(kace,iace,jace) :: temphmix,temphNt +real,dimension(kace,iace,jace) :: temppmix,temppNt +real,dimension(kace,iace,jace) :: tempsmix,tempsNt +real,dimension(kace,iace,jace) :: tempamix,tempaNt + +do j=1,jace + do i=1,iace + do k=1,kace + temprmix(k,i,j)=0.0 + tempgmix(k,i,j)=0.0 + temphmix(k,i,j)=0.0 + temppmix(k,i,j)=0.0 + tempsmix(k,i,j)=0.0 + tempamix(k,i,j)=0.0 + temprNt(k,i,j)=0.0 + tempgNt(k,i,j)=0.0 + temphNt(k,i,j)=0.0 + temppNt(k,i,j)=0.0 + tempsNt(k,i,j)=0.0 + tempaNt(k,i,j)=0.0 + enddo + enddo +enddo + +return +END SUBROUTINE reflectivity_zero + +!############################################################################## +Subroutine reflectivity_all (kace,iace,jace & + ,temprmix,temprNt,tempgmix,tempgNt,temphmix,temphNt & + ,temppmix,temppNt,tempsmix,tempsNt,tempamix,tempaNt & + ,tempdens,reflcp) + +implicit none + +! DESCRIPTION: +! This routine diagnoses radar reflectivity (dBZ) for rain, graupel +! and hail distributions with constant gamma distribution shape +! parameters (gnu) only and assumes hydrometeors are spherical!! +! Reflectivity is related to 6th moment of hydrometeor distribution +! by the following formula: +! +! Z = A*F(v)*((r/alpha_m)^2)*(rho/Nt) [mm^6/m^3] +! where +! A = 1*10^18 to obtain correct units for Z +! v = gnu (gamma dist. shape parameter) [non-dimensional] +! F(v) = ((5+v)(4+v)(3+v))/((2+v)(1+v)v) +! r = hydrometeor mixing ratio [kg/kg] +! rho = air density (computed from pi & theta) [kg/m^3] +! alpha_m = mass coeff for hydromet (cfmas) [hydromet dependnt] +! Nt = hydromet # concentration [#/kg] +! +! Radar reflectivity is simply: +! reflcp = 10*LOG10(Z) [dBZ] +! +! Author: Adrian Loftus 8/22/07 +! +! For g & h, need to use equivalent radar reflectivity? +! --> Ze = [Ki]^2/[Kw]^2 * (alpha_x/alpha_r)^2 * Z +! [Ki]^2/[Kw]^2 = 0.224, ratio of dielectric constants +! alpha_x is mass coeff for graupel or hail +! *NOTE* Ze IS CURRENTLY NOT USED! + +integer :: i,j,k,iace,jace,kace +real :: gnur,gnug,gnuh !gamma distr shape params for rain,graupel,hail +real :: gnup,gnus,gnua !gamma distr shape params for pris,snow,aggregates +real :: alpha_mr !cfmas for rain as in mic_init.f90 file +real :: alpha_mg !cfmas for graupel as in mic_init.f90 file +real :: alpha_mh !cfmas for hail as in mic_init.f90 file +real :: alpha_mp !cfmas for rain as in mic_init.f90 file +real :: alpha_ms !cfmas for graupel as in mic_init.f90 file +real :: alpha_ma !cfmas for hail as in mic_init.f90 file +real :: F_gnu1,F_gnu2 !used to compute F(v) as above +real :: F_gnur,F_gnug,F_gnuh !F(v) for rain, graupel, hail +real :: F_gnup,F_gnus,F_gnua !F(v) for pris, snow, aggregates + +real :: tmp91,tmp92,tmp93,tmp94,tmp95,tmp96,tmp98,tmp99,q,qn,D,M !temporary variables +real,dimension(kace,iace,jace) :: temprmix,temprNt +real,dimension(kace,iace,jace) :: tempgmix,tempgNt +real,dimension(kace,iace,jace) :: temphmix,temphNt +real,dimension(kace,iace,jace) :: temppmix,temppNt +real,dimension(kace,iace,jace) :: tempsmix,tempsNt +real,dimension(kace,iace,jace) :: tempamix,tempaNt +real,dimension(kace,iace,jace) :: reflcp !reflectivity values [dBZ] +real,dimension(kace,iace,jace) :: tempdens !grid point density [kg/m^3] + +!-- Set up some local parameters +!***NOTE: The shape params should match those in RAMSIN +gnur=2.0 !gamma shape parameter for rain +gnug=2.0 !gamma shape parameter for graupel +gnuh=2.0 !gamma shape parameter for hail +gnup=2.0 !gamma shape parameter for pris +gnus=2.0 !gamma shape parameter for snow +gnua=2.0 !gamma shape parameter for aggregates + +q=1.E-10 !kg/kg of mixing ratio +qn=1.E-3 !#/kg of hydromets + +!-- Setup distr params to use (category depndnt) +F_gnu1=(5.+gnur)*(4.+gnur)*(3.+gnur) +F_gnu2=(2.+gnur)*(1.+gnur)*gnur +F_gnur=F_gnu1/F_gnu2 +F_gnu1=(5.+gnug)*(4.+gnug)*(3.+gnug) +F_gnu2=(2.+gnug)*(1.+gnug)*gnug +F_gnug=F_gnu1/F_gnu2 +F_gnu1=(5.+gnuh)*(4.+gnuh)*(3.+gnuh) +F_gnu2=(2.+gnuh)*(1.+gnuh)*gnuh +F_gnuh=F_gnu1/F_gnu2 +F_gnu1=(5.+gnup)*(4.+gnup)*(3.+gnup) +F_gnu2=(2.+gnup)*(1.+gnup)*gnup +F_gnup=F_gnu1/F_gnu2 +F_gnu1=(5.+gnus)*(4.+gnus)*(3.+gnus) +F_gnu2=(2.+gnus)*(1.+gnus)*gnus +F_gnus=F_gnu1/F_gnu2 +F_gnu1=(5.+gnua)*(4.+gnua)*(3.+gnua) +F_gnu2=(2.+gnua)*(1.+gnua)*gnua +F_gnua=F_gnu1/F_gnu2 + +do j=1,jace + do i=1,iace + do k=1,kace + + alpha_mr=524.0 !rain mass coeff + alpha_mg=157.0 !graupel mass coeff + alpha_mh=471.0 !hail mass coeff + alpha_mp=110.8 !pris mass coeff + alpha_ms=2.739e-3 !snow mass coeff + alpha_ma=0.496 !aggregates mass coeff + + !The alpha mass-diameter coefficients above are the inital values. For + !rain, hail and graupel they assume spheres (ie. beta=3.0). Not so for + !pristine ice, snow, and aggregates. As such, below we compute an equivalent + !alpha using an assumption that beta=3.0. This appears to eliminate the + !problem of ice particles using too small of an alpha which provide a + !proxy for particle density. If particle density is too small then the + !equations make Diameter too big. This compute equivalent alpha helps + !solve this problem and leaves us with realistic looking dBZ. + !Consider this a first-look dBZ. Best to use a radar simulator (Quickbeam). + + reflcp(k,i,j)=-1000. !Set radar reflctvty [dBZ] to default value initially. + !This is for grid points where mixing ratio + !or # concen of hydromet's are zero + tmp99=0.0 !Set this to zero to start since it is accumulated + + if((temprmix(k,i,j).le.q).OR.(temprNt(k,i,j).le.qn))then + tmp99=0. + else + tmp98=temprmix(k,i,j)/alpha_mr + tmp98=F_gnur*(tmp98*tmp98)*tempdens(k,i,j) + tmp99=1.0E18*(tmp98/temprNt(k,i,j)) ! 'Z' due to rain + reflcp(k,i,j)=10.0*(LOG10(tmp99)) !reflectivity [dBZ] of rain only + endif + + if((tempgmix(k,i,j).le.q).OR.(tempgNt(k,i,j).le.qn))then + tmp92=0.0 + else + tmp91=tempgmix(k,i,j)/alpha_mg + tmp91=F_gnug*(tmp91*tmp91)*tempdens(k,i,j) + tmp92=1.0E18*(tmp91/tempgNt(k,i,j)) ! 'Z' due to graupel + tmp99=tmp99+tmp92 + reflcp(k,i,j)=10.0*(LOG10(tmp99)) !reflectivity [dBZ] of + endif !graupel and rain (if present) + + if((temphmix(k,i,j).le.q).OR.(temphNt(k,i,j).le.qn))then + tmp93=0.0 + else + tmp91=temphmix(k,i,j)/alpha_mh + tmp91=F_gnuh*(tmp91*tmp91)*tempdens(k,i,j) + tmp93=1.0E18*(tmp91/temphNt(k,i,j)) ! 'Z' due to hail + tmp99=tmp99+tmp93 + reflcp(k,i,j)=10.0*(LOG10(tmp99)) !reflectivity [dBZ] of hail, + endif !rain (if present), and graupel (if present) + + if((temppmix(k,i,j).le.q).OR.(temppNt(k,i,j).le.qn))then + tmp94=0.0 + else + M=temppmix(k,i,j)/temppNt(k,i,j) + D=(M/alpha_mp)**(1.0/2.91) + alpha_mp=M/(D**3.0) + tmp91=temppmix(k,i,j)/alpha_mp + tmp91=F_gnup*(tmp91*tmp91)*tempdens(k,i,j) + tmp94=1.0E18*(tmp91/temppNt(k,i,j)) ! 'Z' due to pris + tmp99=tmp99+tmp94 + reflcp(k,i,j)=10.0*(LOG10(tmp99)) !reflectivity [dBZ] of pris, + endif !rain + graupel + hail + + if((tempsmix(k,i,j).le.q).OR.(tempsNt(k,i,j).le.qn))then + tmp95=0.0 + else + M=tempsmix(k,i,j)/tempsNt(k,i,j) + D=(M/alpha_ms)**(1.0/1.74) + alpha_ms=M/(D**3.0) + tmp91=tempsmix(k,i,j)/alpha_ms + tmp91=F_gnus*(tmp91*tmp91)*tempdens(k,i,j) + tmp95=1.0E18*(tmp91/tempsNt(k,i,j)) ! 'Z' due to snow + tmp99=tmp99+tmp95 + reflcp(k,i,j)=10.0*(LOG10(tmp99)) !reflectivity [dBZ] of snow, + endif !rain + graupel + hail + pris + + if((tempamix(k,i,j).le.q).OR.(tempaNt(k,i,j).le.qn))then + tmp96=0.0 + else + M=tempamix(k,i,j)/tempaNt(k,i,j) + D=(M/alpha_ma)**(1.0/2.40) + alpha_ma=M/(D**3.0) + tmp91=tempamix(k,i,j)/alpha_ma + tmp91=F_gnua*(tmp91*tmp91)*tempdens(k,i,j) + tmp96=1.0E18*(tmp91/tempaNt(k,i,j)) ! 'Z' due to aggr + tmp99=tmp99+tmp96 + reflcp(k,i,j)=10.0*(LOG10(tmp99)) !reflectivity [dBZ] of aggregates, + endif !rain + graupel + hail + pris + snow + + enddo + enddo +enddo + +return +END SUBROUTINE reflectivity_all + +!############################################################################## +Subroutine density4reflc (kace,iace,jace,den,pres,tempk) + +use rconstants, only:rgas + +implicit none + +! DESCRIPTION: +! This routine computes gridpoint density values (not reference +! density) for use in calculating reflectivity values +! +! INPUT: 'pres' which is pressure (in mb) +! 'tempk' which is air temperature [K] +! +! OUTPUT: 'den' which is actual grid point density [kg/m^3] + +integer :: i,j,k,iace,jace,kace +real,dimension(iace,jace,kace) :: tempk,pres +real,dimension(kace,iace,jace) :: den + +do j=1,jace + do i=1,iace + do k=1,kace + den(k,i,j)=(pres(i,j,k)*100.)/(rgas*tempk(i,j,k)) + enddo + enddo +enddo + +return +END SUBROUTINE density4reflc + +!############################################################################## +Subroutine arrayswap (nn3,nn1,nn2,a_in,a_out,swaptype) + +! DESCRIPTION: routine to swap arrays of dimensions (i,j,k) +! to arrays of dimensions (k,i,j) or vice versa +! [arrays for revu have dimensions (i,j,k) whereas +! reflectivity routine requires dimensions to be (k,i,j)] + +implicit none + +integer :: i,j,k,nn1,nn2,nn3,swaptype +real,dimension(nn1,nn2,nn3) :: a_in +real,dimension(nn3,nn1,nn2) :: a_out + +if(swaptype.eq.1)then + do j=1,nn2 + do i=1,nn1 + do k=1,nn3 + a_out(k,i,j)=a_in(i,j,k) + enddo + enddo + enddo +elseif(swaptype.eq.2)then + do k=1,nn3 + do j=1,nn2 + do i=1,nn1 + a_in(i,j,k)=a_out(k,i,j) + enddo + enddo + enddo +endif + +return +END SUBROUTINE arrayswap + +!############################################################################## +Subroutine set2zero (nn3,nn1,nn2,ar1,ar2,ar3,ar4) + +implicit none + +integer :: nn1,nn2,nn3,i,j,k +real,dimension(nn3,nn1,nn2) :: ar1,ar2,ar3,ar4 + +do j=1,nn2 + do i=1,nn1 + do k=1,nn3 + ar1(k,i,j)=0.0 + ar2(k,i,j)=0.0 + ar3(k,i,j)=0.0 + ar4(k,i,j)=0.0 + enddo + enddo +enddo + +return +END SUBROUTINE set2zero + diff --git a/src/6.2.16/revu/revu_main.f90 b/src/6.2.16/revu/revu_main.f90 new file mode 100644 index 0000000..1372b41 --- /dev/null +++ b/src/6.2.16/revu/revu_main.f90 @@ -0,0 +1,352 @@ +!############################################################################## +Program revu + +use rcommons +use node_mod +use mem_grid, only:ramsorrevu + +implicit none + +integer :: i,numarg,iargc,bad +character(len=strl1) :: name_name,arg,cargs(0:maxargs) + +! argument defaults +name_name='REVUIN' + +! runtype name RAMS or REVU distinction +ramsorrevu='REVU' + +! read arguments +do i=1,maxargs + cargs(i)='' +enddo + +numarg=iargc() + +do i=0,numarg + CALL ugetarg (i,arg) + cargs(i)=trim(arg)//char(0) !Null terminate the string to pass to C +enddo + +bad = 0 +if(numarg > 0)then + if(numarg == 2)then + if(cargs(1)(1:1)=='-' .and. cargs(1)(1:2)=='-f') then + if(len_trim(cargs(2)).gt.256) then + print*,'Max filename length = 256 characters' + bad=1 + endif + name_name=cargs(2)(1:len_trim(cargs(2))-1) + else + bad=1 + endif + else + bad=1 + endif +endif + +if (bad > 0) then + print*,'REVU usage: ''exec name'' ' + print*,' [-f ''Namelist file''] ' + stop 'bad command line arguments' +endif + +numarg=numarg+1 !Total number of arguments on command line + +!REVU will not run in parallel. However, if the user tries to start +!a parallel job, we need to do something with the invoked nodes. Here +!we use the typical RAMS protocol to find number of nodes and node rank. +!Afterward, we will return from all nodes but 1 and set nmachs to 1. + +! par_init_fortran() will return +! +! my_mpi_num -> 0 +! nmachs -> 1 +! +! for both the case where rams is called directly from the command +! line and the case where rams is called using mpirun -np 1 (one +! process). For these cases, rams will run in "sequential" mode. +! Otherwise, rams will run in "parallel" mode. +CALL par_init_fortran (numarg,cargs,len(cargs),my_mpi_num,nmachs) + +mainnum = 1 ! rams node number 1, which is MPI node number 0 +my_rams_num = my_mpi_num + 1 + +not_a_node = -1 +do i = 1, nmachs + machnum(i) = i - 1 ! MPI process numbers go from 0 to n-1 +enddo + +! Run the revu package here +CALL runrevu (name_name) + +! MPI bookend call to par_init_fortran +CALL par_exit () + +print* +print*,'REVU finished normally' +print* + +END PROGRAM revu + +!############################################################################## +Subroutine runrevu (name_name) + +use rcommons +use node_mod + +implicit none + +integer :: nfl,i +character(len=strl1) :: name_name + +!Stop all parallel nodes but keep single main node for REVU to run +if (nmachs .gt. 1 .and. my_rams_num .ne. mainnum) return +if ((my_rams_num .eq. mainnum) .or. (nmachs .eq. 1)) nmachs=1 + +print*,'' +print*,'Starting REVU with: ',trim(name_name),my_rams_num,mainnum +print*,'' + +! give some values to namelist parameters that may be missing +do i=1,maxrevu + revuvar(i)='' +enddo + +! read in the namelist +open(1,status='old',FILE=name_name) +CALL namein_revu (1,'$CONTROL') +close(1) + +! set up the background configuration from input strings +if(len_trim(TVAR).eq.0.or.len_trim(ZVAR).eq.0.or. & + len_trim(XVAR).eq.0.or.len_trim(YVAR).eq.0) then + print*,'TVAR: ',TVAR,' ZVAR: ',ZVAR + print*,'XVAR: ',XVAR,' YVAR: ',YVAR + stop 'plotspc: frame not defined' +endif + +CALL backset () + +! fill the rams arrays +CALL rams_anal_init (nfl,anpref) + +! This supports new version where all grids may not be available at all times. +! Do grid inventory by looking at file names +CALL ra_grid_inv () + +! do the stuff +print* +write(*,'(2a)') 'mode: ',anatype + +if(anatype.eq.'TEXT'.or.anatype.eq.'HDF5') then + + CALL plotspc (nfl,anatype) + +else + + print*,'No action for: ',anatype + print*,' options= HDF5 or TEXT' + +endif + +return +END SUBROUTINE runrevu + +!############################################################################## +Subroutine ra_grid_inv () + +use rcommons + +implicit none + +integer :: nhfiles,n,nc,ngfiles,ng,ngr +character(len=strl1) :: hfiles(maxfiles),fpref,gfiles(10) + +fpref=trim(anpref)//'*-head.txt' + +CALL rams_filelist (hfiles,fpref,nhfiles) + +do n=1,nhfiles + nc=len_trim(hfiles(n))-9 + fpref=hfiles(n)(1:nc)//'-g*' + CALL rams_filelist (gfiles,fpref,ngfiles) + ! print*,'ngfiles:',ngfiles + do ng=1,ngfiles + ! print*,'gfiles:',ng,trim(gfiles(ng)) + ! Find last "." in file name. Grid number is character before it. + do nc=len_trim(gfiles(ng)),1,-1 + if (gfiles(ng)(nc:nc) == '.') exit + enddo + nc=nc-1 + read(gfiles(ng)(nc:nc),*) ngr + enddo +enddo + +return +END SUBROUTINE ra_grid_inv + +!############################################################################## +Subroutine nvfilla (GROUP,VA,ISUB1,ISUB2,IN,FV,CH,NVA) + +use rcommons + +implicit none + +! Namelist reading routine, called by NAMEIN. + +character(len=*) :: GROUP,VA,CH +integer, parameter :: NVCONTRL=10 +integer :: ICONTROL(NVCONTRL) +character(len=8) :: CONTROL(NVCONTRL) +integer :: is1,is2,isub1,isub2,nva,in,inrflg +real :: fv + +DATA ICONTROL/NVCONTRL*0/ +DATA CONTROL/'ANATYPE','ANPREF','REVPREF','XVAR','YVAR','ZVAR','TVAR' & + ,'IGRID','IZTRAN','REVUVAR'/ + +IS1=ISUB1 +IS2=ISUB2 +IF(ISUB1.EQ.0)IS1=NVA + +if(GROUP.eq.'$CONTROL') then + CALL varchk (VA,GROUP,CONTROL,ICONTROL,NVCONTRL,INRFLG) + IF(INRFLG.EQ.1) RETURN + IF(VA.EQ.'ANPREF') CALL varsetc (VA,ANPREF,IS1,1,CH,0,128) + IF(VA.EQ.'REVPREF') CALL varsetc (VA,REVPREF,IS1,1,CH,0,128) + IF(VA.EQ.'ANATYPE') CALL varsetc (VA,ANATYPE,IS1,1,CH,0,8) + IF(VA.EQ.'XVAR') CALL varsetc (VA,XVAR,IS1,1,CH,0,20) + IF(VA.EQ.'YVAR') CALL varsetc (VA,YVAR,IS1,1,CH,0,20) + IF(VA.EQ.'ZVAR') CALL varsetc (VA,ZVAR,IS1,1,CH,0,20) + IF(VA.EQ.'TVAR') CALL varsetc (VA,TVAR,IS1,1,CH,0,20) + IF(VA.EQ.'IGRID') CALL varseti (VA,IGRID,IS1,1,IN,0,9) + IF(VA.EQ.'IZTRAN') CALL varseti (VA,IZTRAN,IS1,1,IN,1,4) + IF(VA.EQ.'REVUVAR') CALL varsetc (VA,REVUVAR(IS1),IS1,MAXREVU,CH,0,64) +endif + +return +END SUBROUTINE nvfilla + +!############################################################################## +Subroutine namein_revu (IUNIT,GROUP) + +use grid_dims + +implicit none + +! This routine is called by routines INITLZ, CONSTAT, and ARRSND +! to input the values for the NAMELIST specified by the character string +! GROUP from input unit IUNIT. + +integer :: iunit,nvalue,nvarn,nr,ncw,ntok,nt,isub1,isub2,int +real :: fnum +character(len=*) :: GROUP +character(len=20) :: VARN +character(len=6) :: linelength +character(len=strl1) :: LINE,LINEW,VALUE(MAXVALUES),TOKENS(50) + +integer, external :: letter +integer, external :: numberchk +integer, external :: letquo + +REWIND IUNIT +NVALUE=0 +NVARN=0 + +CALL findgr (IUNIT,GROUP) + +DO NR=1,MAXREC + write(linelength,'("(A",I3,")" )') strl1 + READ(IUNIT,linelength,END=100,ERR=100) LINE + CALL strip (LINE,LINEW,NCW) + NCW=MAX(NCW,1) + CALL toknze (LINEW,NCW,TOKENS,NTOK) + IF(LINEW(1:NCW).EQ.'$END') THEN + GOTO 100 + ENDIF + + NT=1 + 20 CONTINUE + IF(NT.GT.NTOK) GOTO 10 + IF(letter(TOKENS(NT)).EQ.1) THEN + IF(NVARN.GT.0) & + CALL nvtran_revu (GROUP,VARN,ISUB1,ISUB2,VALUE,NVALUE) + NVALUE=0 + ISUB1=0 + ISUB2=0 + VARN=TOKENS(NT) + NVARN=NVARN+1 + NT=NT+1 + IF(TOKENS(NT).EQ.'(')THEN + NT=NT+1 + CALL ch2int (TOKENS(NT),ISUB1) + NT=NT+1 + IF(TOKENS(NT).EQ.',') THEN + NT=NT+1 + CALL ch2int (TOKENS(NT),ISUB2) + NT=NT+1 + ENDIF + ENDIF + ELSEIF(numberchk(TOKENS(NT)).EQ.1 .OR. letquo(TOKENS(NT)).EQ.1) THEN + NVALUE=NVALUE+1 + VALUE(NVALUE)=TOKENS(NT) + ENDIF + NT=NT+1 + GOTO 20 + 10 CONTINUE +ENDDO + +100 CONTINUE +CALL nvtran_revu (GROUP,VARN,ISUB1,ISUB2,VALUE,NVALUE) +VARN='$END' +CALL nvfilla (GROUP,VARN,ISUB1,ISUB2,INT,FNUM,LINEW(1:NCW),NR) + +return +END SUBROUTINE namein_revu + +!############################################################################## +Subroutine nvtran_revu (GROUP,VARN,ISUB1,ISUB2,VALUE,NVALUE) + +use grid_dims + +implicit none + +! This routine converts a variable value(s) (VALUE) read in as a +! character string(s) to the proper type (integer, real, or character) +! and assigns it (them) to the storage location(s) corresponding to +! the NAMELIST variable VARN(ISUB1,ISUB2). GROUP is the NAMELIST +! group name. NVALUE is the number of values to be assigned. + +integer :: ISUB1,ISUB2,NVALUE +character(len=*) :: GROUP,VARN,VALUE(*) +character(len=strl1) :: CHVAL +integer :: nv,int,ncw +real :: fnum +integer, external :: letint +integer, external :: letquo + +IF(letint(VARN).EQ.1) THEN + DO NV=1,NVALUE + IF(letquo(VALUE(NV)).EQ.0) THEN + CALL ch2int (VALUE(NV),INT) + CALL nvfilla (GROUP,VARN,ISUB1,ISUB2,INT,FNUM,CHVAL(1:NCW),NV) + ELSE + CALL ch2ch (VALUE(NV),CHVAL,NCW) + CALL nvfilla (GROUP,VARN,ISUB1,ISUB2,INT,FNUM,CHVAL(1:NCW),NV) + ENDIF + ENDDO +ELSE + DO NV=1,NVALUE + IF(letquo(VALUE(NV)).EQ.0) THEN + CALL ch2real (VALUE(NV),FNUM) + CALL nvfilla (GROUP,VARN,ISUB1,ISUB2,INT,FNUM,CHVAL(1:NCW),NV) + ELSE + CALL ch2ch (VALUE(NV),CHVAL,NCW) + CALL nvfilla (GROUP,VARN,ISUB1,ISUB2,INT,FNUM,CHVAL(1:NCW),NV) + ENDIF + ENDDO +ENDIF + +return +END SUBROUTINE nvtran_revu diff --git a/src/6.2.16/revu/revu_utils.f90 b/src/6.2.16/revu/revu_utils.f90 new file mode 100644 index 0000000..ddc910f --- /dev/null +++ b/src/6.2.16/revu/revu_utils.f90 @@ -0,0 +1,82 @@ +!############################################################################## +Subroutine error_mess (msg) + +!Used only for REVU + +implicit none + +character(len=*) :: msg + +print*,msg + +return +END SUBROUTINE error_mess + +!############################################################################## +integer Function lastchar (str) + +!Used only for REVU + +implicit none + +character(len=*) :: str +integer :: n,ln + +! returns last non-blank character position from a string + +ln=len(str) +do n=ln,1,-1 + if(str(n:n).ne.' ') then + lastchar=n + return + endif +enddo +lastchar=0 + +return +END FUNCTION lastchar + +!############################################################################## +Subroutine tokenize (str1,tokens,ntok,toksep,nsep) + +!Used only for REVU + +use grid_dims + +implicit none + +integer :: nsep,ntok,npt,nch,nc,ns +character(len=*) :: str1,tokens(*) +character(len=1) :: toksep(nsep) +character(len=strl1) :: str + +! this routine "parses" character string str into different pieces +! or tokens by looking for possible token separators (toks) +! str contains nch characters. The number of tokens identified is nto +! the character string tokens are stored in tokens. + +ntok=0 +npt=1 +CALL deblank (str1,str,nch) +do nc=1,nch + do ns=1,nsep + if(str(nc:nc).eq.toksep(ns).or.nc.eq.nch) then + if(nc-npt.ge.1)then + ntok=ntok+1 + tokens(ntok)=str(npt:nc-1) + if(nc.eq.nch.and.str(nc:nc).ne.toksep(ns)) then + tokens(ntok)=str(npt:nc) + goto 10 + endif + endif + ntok=ntok+1 + tokens(ntok)=str(nc:nc) + npt=nc+1 + goto 10 + endif + enddo +10 continue +enddo + +return +END SUBROUTINE tokenize diff --git a/src/6.2.16/revu/revugrads.f90 b/src/6.2.16/revu/revugrads.f90 new file mode 100644 index 0000000..747156a --- /dev/null +++ b/src/6.2.16/revu/revugrads.f90 @@ -0,0 +1,694 @@ +!############################################################################## +Subroutine gradr (n1,n2,n3,ia,iz,ja,jz,vc3da,vc3db,dir,gpnt,topt & + ,xm,xt,ym,yt,zm,zt,deltax,dzm,dzt,vctr1,vctr2,ztop & + ,jdim,ihtran,polelat,polelon) + +implicit none + +integer :: n1,n2,n3,ia,iz,ja,jz,ihtran,jdim,jaa,jzz,i,j,k & + ,isizexy,isizeall,iglat,iglon,ifmapu,ifmapv,ifmapt,ifmapm & + ,ifmapui,ifmapvi,ifmapti,ifmapmi,idxu,idxv,idxt,idxm,idyu & + ,idyv,idyt,idym,itopu,itopv,itopm,irtgt,irtgu,irtgv,irtgm & + ,if13u,if13v,if13t,if13m,if23u,if23v,if23t,if23m +real :: polelat,polelon,deltax,ztop +real :: vc3da(n1,n2,n3),vc3db(n1,n2,n3),topt(n1,n2) & + ,xm(*),xt(*),ym(*),yt(*),zm(*),zt(*),dzm(*),dzt(*) & + ,vctr1(*),vctr2(*) +character(len=*) :: dir,gpnt +character(len=6) :: optyp +real, allocatable :: e(:),hw(:),ht(:) + +if(allocated(ht)) deallocate (ht); allocate (ht(n3)) +if(allocated(hw)) deallocate (hw); allocate (hw(n3)) + +optyp = 'gradnt' + +jaa = ja +jzz = jz +if(jdim.eq.0) then + jaa = 1 + jzz = 1 +endif + +do k=1,n3 + do j=1,n2 + do i=1,n1 + vc3db(i,j,k)=0. + enddo + enddo +enddo + +!print*,'in grad-',dir,gpnt,optyp,' !!!!!!!!!!!!!!!!' + +isizexy = n1 * n2 +isizeall = isizexy * 33 + +if(allocated(e)) deallocate (e) +allocate (e(isizeall)) + +iglat = 1 +iglon = iglat + isizexy +ifmapu = iglon + isizexy +ifmapv = ifmapu + isizexy +ifmapt = ifmapv + isizexy +ifmapm = ifmapt + isizexy +ifmapui = ifmapm + isizexy +ifmapvi = ifmapui + isizexy +ifmapti = ifmapvi + isizexy +ifmapmi = ifmapti + isizexy +idxu = ifmapmi + isizexy +idxv = idxu + isizexy +idxt = idxv + isizexy +idxm = idxt + isizexy +idyu = idxm + isizexy +idyv = idyu + isizexy +idyt = idyv + isizexy +idym = idyt + isizexy +itopu = idym + isizexy +itopv = itopu + isizexy +itopm = itopv + isizexy +irtgt = itopm + isizexy +irtgu = irtgt + isizexy +irtgv = irtgu + isizexy +irtgm = irtgv + isizexy +if13u = irtgm + isizexy +if13v = if13u + isizexy +if13t = if13v + isizexy +if13m = if13t + isizexy +if23u = if13m + isizexy +if23v = if23u + isizexy +if23t = if23v + isizexy +if23m = if23t + isizexy + +if(ihtran.eq.1)then + CALL revu_polarst (N1,N2,E(IGLAT),E(IGLON),E(IFMAPU),E(IFMAPV) & + ,E(IFMAPT),E(IFMAPM),E(IFMAPUI),E(IFMAPVI) & + ,E(IFMAPTI),E(IFMAPMI),xm,xt,ym,yt,polelat,polelon) + +else + CALL ae0 (N1*N2,E(IFMAPU),1.) + CALL ae0 (N1*N2,E(IFMAPV),1.) + CALL ae0 (N1*N2,E(IFMAPT),1.) + CALL ae0 (N1*N2,E(IFMAPM),1.) + CALL ae0 (N1*N2,E(IFMAPUI),1.) + CALL ae0 (N1*N2,E(IFMAPVI),1.) + CALL ae0 (N1*N2,E(IFMAPTI),1.) + CALL ae0 (N1*N2,E(IFMAPMI),1.) +ENDIF + +CALL revu_grdspc (N1,N2,E(IDXU),E(IDXV),E(IDXT),E(IDXM) & + ,E(IDYU),E(IDYV),E(IDYT),E(IDYM) & + ,E(IFMAPU),E(IFMAPV),E(IFMAPT),E(IFMAPM) & + ,xm,xt,ym,yt,jdim,deltax) + +CALL revu_transfm (n1,n2,n3,TOPT,E(ITOPU),E(ITOPV),E(ITOPM) & + ,E(IRTGT),E(IRTGU),E(IRTGV),E(IRTGM),E(IF13U),E(IF13V) & + ,E(IF13T),E(IF13M),E(IF23U),E(IF23V),E(IF23T) & + ,E(IF23M),E(IDXU),E(IDXV) & + ,E(IDXT),E(IDXM),E(IDYU),E(IDYV),E(IDYT),E(IDYM) & + ,xm,xt,ym,yt,zm,zt,jdim,ztop,hw,ht) + +if(dir.eq.'xdir')then + + if(gpnt.eq.'upnt')then + CALL gradxur (n1,n2,n3,ia,iz,jaa,jzz,optyp,vc3da,vc3db,vctr1 & + ,e(irtgu),e(irtgt),e(idxt),dzt & + ,e(if13t),hw,vctr2,'t') + elseif(gpnt.eq.'vpnt')then + CALL gradxtr (n1,n2,n3,ia,iz,jaa,jzz,optyp,vc3da,vc3db,vctr1 & + ,e(irtgv),e(irtgm),e(idxm),dzt & + ,e(if13m),hw,vctr2,'t') + elseif(gpnt.eq.'wpnt')then + CALL gradxtr (n1,n2,n3,ia,iz,jaa,jzz,optyp,vc3da,vc3db,vctr1 & + ,e(irtgt),e(irtgu),e(idxu),dzm & + ,e(if13u),ht,vctr2,'w') + elseif(gpnt.eq.'tpnt')then + CALL gradxtr (n1,n2,n3,ia,iz,jaa,jzz,optyp,vc3da,vc3db,vctr1 & + ,e(irtgt),e(irtgu),e(idxu),dzt & + ,e(if13u),hw,vctr2,'t') + elseif(gpnt.eq.'npnt')then + CALL gradxtr (n1,n2,n3,ia,iz,jaa,jzz,optyp,vc3da,vc3db,vctr1 & + ,e(irtgv),e(irtgm),e(idxm),dzm & + ,e(if13m),ht,vctr2,'w') + elseif(gpnt.eq.'opnt')then + CALL gradxur (n1,n2,n3,ia,iz,jaa,jzz,optyp,vc3da,vc3db,vctr1 & + ,e(irtgu),e(irtgt),e(idxt),dzm & + ,e(if13t),ht,vctr2,'w') + elseif(gpnt.eq.'ppnt')then + CALL gradxur (n1,n2,n3,ia,iz,jaa,jzz,optyp,vc3da,vc3db,vctr1 & + ,e(irtgm),e(irtgv),e(idxv),dzt & + ,e(if13v),hw,vctr2,'t') + elseif(gpnt.eq.'mpnt')then + CALL gradxur (n1,n2,n3,ia,iz,jaa,jzz,optyp,vc3da,vc3db,vctr1 & + ,e(irtgm),e(irtgv),e(idxv),dzm & + ,e(if13v),ht,vctr2,'w') + endif + +elseif(dir.eq.'ydir')then + + if(gpnt.eq.'upnt')then + CALL gradytr (n1,n2,n3,ia,iz,jaa,jzz,optyp,vc3da,vc3db,vctr1 & + ,e(irtgu),e(irtgm),e(idym),dzt & + ,e(if23m),hw,vctr2,'t',jdim) + elseif(gpnt.eq.'vpnt')then + CALL gradyvr (n1,n2,n3,ia,iz,jaa,jzz,optyp,vc3da,vc3db,vctr1 & + ,e(irtgv),e(irtgt),e(idyt),dzt & + ,e(if23t),hw,vctr2,'t',jdim) + elseif(gpnt.eq.'wpnt')then + CALL gradytr (n1,n2,n3,ia,iz,jaa,jzz,optyp,vc3da,vc3db,vctr1 & + ,e(irtgt),e(irtgv),e(idyv),dzm & + ,e(if23v),ht,vctr2,'w',jdim) + elseif(gpnt.eq.'tpnt')then + CALL gradytr (n1,n2,n3,ia,iz,jaa,jzz,optyp,vc3da,vc3db,vctr1 & + ,e(irtgt),e(irtgv),e(idyv),dzt & + ,e(if23v),hw,vctr2,'t',jdim) + elseif(gpnt.eq.'npnt')then + CALL gradyvr (n1,n2,n3,ia,iz,jaa,jzz,optyp,vc3da,vc3db,vctr1 & + ,e(irtgv),e(irtgt),e(idyt),dzm & + ,e(if23t),ht,vctr2,'w',jdim) + elseif(gpnt.eq.'opnt')then + CALL gradytr (n1,n2,n3,ia,iz,jaa,jzz,optyp,vc3da,vc3db,vctr1 & + ,e(irtgu),e(irtgm),e(idym),dzm & + ,e(if23m),ht,vctr2,'w',jdim) + elseif(gpnt.eq.'ppnt')then + CALL gradyvr (n1,n2,n3,ia,iz,jaa,jzz,optyp,vc3da,vc3db,vctr1 & + ,e(irtgm),e(irtgu),e(idyu),dzt & + ,e(if23u),hw,vctr2,'t',jdim) + elseif(gpnt.eq.'mpnt')then + CALL gradyvr (n1,n2,n3,ia,iz,jaa,jzz,optyp,vc3da,vc3db,vctr1 & + ,e(irtgm),e(irtgu),e(idyu),dzm & + ,e(if23u),ht,vctr2,'w',jdim) + endif + +elseif(dir.eq.'zdir')then + + if(gpnt.eq.'upnt')then + CALL gradztr (n1,n2,n3,ia,iz,jaa,jzz,vc3da,vc3db,e(irtgu),dzm) + elseif(gpnt.eq.'vpnt')then + CALL gradztr (n1,n2,n3,ia,iz,jaa,jzz,vc3da,vc3db,e(irtgv),dzm) + elseif(gpnt.eq.'wpnt')then + CALL gradzwr (n1,n2,n3,ia,iz,jaa,jzz,vc3da,vc3db,e(irtgt),dzt) + elseif(gpnt.eq.'tpnt')then + CALL gradztr (n1,n2,n3,ia,iz,jaa,jzz,vc3da,vc3db,e(irtgt),dzm) + elseif(gpnt.eq.'npnt')then + CALL gradzwr (n1,n2,n3,ia,iz,jaa,jzz,vc3da,vc3db,e(irtgv),dzt) + elseif(gpnt.eq.'opnt')then + CALL gradzwr (n1,n2,n3,ia,iz,jaa,jzz,vc3da,vc3db,e(irtgu),dzt) + elseif(gpnt.eq.'ppnt')then + CALL gradztr (n1,n2,n3,ia,iz,jaa,jzz,vc3da,vc3db,e(irtgm),dzm) + elseif(gpnt.eq.'mpnt')then + CALL gradzwr (n1,n2,n3,ia,iz,jaa,jzz,vc3da,vc3db,e(irtgm),dzt) + endif + +endif + +deallocate (e,hw,ht) + +return +END SUBROUTINE gradr + +!############################################################################## +Subroutine gradxur (n1,n2,n3,ia,iz,ja,jz,optyp,vc3da,vc3db,vc1da & + ,rtge,rtgc,dx,dz,fq,hq,hq4,lev) + +! this routine which computes a component of the +! gradient of vc3da and stores it in vc3db. + +implicit none + +integer :: n1,n2,n3,ia,iz,ja,jz,i,j,k +real, dimension(n1,n2,n3) :: vc3da,vc3db +real, dimension(n3) :: dz,vc1da,hq,hq4 +real, dimension(n1,n2) :: rtgc,rtge,dx,fq +character(len=1) :: lev +character(len=6) :: optyp + +if(optyp.eq.'gradnt')then + do j = ja,jz + do i = ia,iz + do k = 1,n3 + vc3db(i,j,k) = (vc3da(i,j,k) * rtge(i,j) & + - vc3da(i-1,j,k) * rtge(i-1,j)) & + * dx(i,j) / rtgc(i,j) + enddo + enddo + enddo +endif + +if(optyp.ne.'divstr')then + if(lev.eq.'w')then + do k = 1,n3 + hq4(k) = 0.25 * hq(k) + enddo + else + do k = 2,n3 + hq4(k) = 0.25 * hq(k-1) + enddo + endif + + do j = ja,jz + do i = ia,iz + do k = 2,n3 + vc1da(k) = hq4(k) * (vc3da(i,j,k) + vc3da(i,j,k-1) & + + vc3da(i-1,j,k) + vc3da(i-1,j,k-1)) + enddo + do k = 2,n3-1 + vc3db(i,j,k) = vc3db(i,j,k) & + + fq(i,j) * dz(k) * (vc1da(k+1) - vc1da(k)) + enddo + vc3db(i,j,1) = vc3db(i,j,2) + if(lev.eq.'w') vc3db(i,j,n3-1) = vc3db(i,j,n3-2) + if(lev.eq.'t') vc3db(i,j,n3) = vc3db(i,j,n3-1) + enddo + enddo +endif + +return +END SUBROUTINE gradxur + +!############################################################################## +Subroutine gradxtr (n1,n2,n3,ia,iz,ja,jz,optyp,vc3da,vc3db,vc1da & + ,rtge,rtgc,dx,dz,fq,hq,hq4,lev) + +! this routine which computes a component of the +! gradient of vc3da and stores it in vc3db. + +implicit none + +integer :: n1,n2,n3,ia,iz,ja,jz,i,j,k +real, dimension(n1,n2,n3) :: vc3da,vc3db +real, dimension(n3) :: dz,vc1da,hq,hq4 +real, dimension(n1,n2) :: rtgc,rtge,dx,fq +character(len=1) :: lev +character(len=6) :: optyp + +if(optyp.eq.'gradnt')then + do j = ja,jz + do i = ia,iz + do k = 1,n3 + vc3db(i,j,k) = (vc3da(i+1,j,k) * rtge(i+1,j) & + - vc3da(i,j,k) * rtge(i,j)) & + * dx(i,j) / rtgc(i,j) + enddo + enddo + enddo +endif + +if(optyp.ne.'divstr')then + if(lev.eq.'w')then + do k = 1,n3 + hq4(k) = 0.25 * hq(k) + enddo + else + do k = 2,n3 + hq4(k) = 0.25 * hq(k-1) + enddo + endif + + do j = ja,jz + do i = ia,iz + do k = 2,n3 + vc1da(k) = hq4(k) * (vc3da(i,j,k) + vc3da(i,j,k-1) & + + vc3da(i+1,j,k) + vc3da(i+1,j,k-1)) + enddo + do k = 2,n3-1 + vc3db(i,j,k) = vc3db(i,j,k) & + + fq(i,j) * dz(k) * (vc1da(k+1) - vc1da(k)) + enddo + vc3db(i,j,1) = vc3db(i,j,2) + if(lev.eq.'w') vc3db(i,j,n3-1) = vc3db(i,j,n3-2) + if(lev.eq.'t') vc3db(i,j,n3) = vc3db(i,j,n3-1) + enddo + enddo +endif + +return +END SUBROUTINE gradxtr + +!############################################################################## +Subroutine gradyvr (n1,n2,n3,ia,iz,ja,jz,optyp,vc3da,vc3db,vc1da & + ,rtge,rtgc,dy,dz,fq,hq,hq4,lev,jd) + +! this routine which computes a component of the +! gradient of vc3da and stores it in vc3db. + +implicit none + +integer :: n1,n2,n3,ia,iz,ja,jz,i,j,k,jd +real, dimension(n1,n2,n3) :: vc3da,vc3db +real, dimension(n3) :: dz,vc1da,hq,hq4 +real, dimension(n1,n2) :: rtgc,rtge,dy,fq +character(len=1) :: lev +character(len=6) :: optyp + +if(optyp.eq.'gradnt')then + do j = ja,jz + do i = ia,iz + do k = 1,n3 + vc3db(i,j,k) = (vc3da(i,j,k) * rtge(i,j) & + - vc3da(i,j-jd,k) * rtge(i,j-jd)) & + * dy(i,j) / rtgc(i,j) + enddo + enddo + enddo +endif + +if(optyp.ne.'divstr')then + if(lev.eq.'w')then + do k = 1,n3 + hq4(k) = 0.25 * hq(k) + enddo + else + do k = 2,n3 + hq4(k) = 0.25 * hq(k-1) + enddo + endif + + do j = ja,jz + do i = ia,iz + do k = 2,n3 + vc1da(k) = hq4(k) * (vc3da(i,j,k) + vc3da(i,j,k-1) & + + vc3da(i,j-jd,k) + vc3da(i,j-jd,k-1)) + enddo + do k = 2,n3-1 + vc3db(i,j,k) = vc3db(i,j,k) & + + fq(i,j) * dz(k) * (vc1da(k+1) - vc1da(k)) + enddo + vc3db(i,j,1) = vc3db(i,j,2) + if(lev.eq.'w') vc3db(i,j,n3-1) = vc3db(i,j,n3-2) + if(lev.eq.'t') vc3db(i,j,n3) = vc3db(i,j,n3-1) + enddo + enddo +endif + +return +END SUBROUTINE gradyvr + +!############################################################################## +Subroutine gradytr (n1,n2,n3,ia,iz,ja,jz,optyp,vc3da,vc3db,vc1da & + ,rtge,rtgc,dy,dz,fq,hq,hq4,lev,jd) + +! this routine which computes a component of the +! gradient of vc3da and stores it in vc3db. + +implicit none + +integer :: n1,n2,n3,ia,iz,ja,jz,i,j,k,jd +real, dimension(n1,n2,n3) :: vc3da,vc3db +real, dimension(n3) :: dz,vc1da,hq,hq4 +real, dimension(n1,n2) :: rtgc,rtge,dy,fq +character(len=1) :: lev +character(len=6) :: optyp + +if(optyp.eq.'gradnt')then + do j = ja,jz + do i = ia,iz + do k = 1,n3 + vc3db(i,j,k) = (vc3da(i,j+jd,k) * rtge(i,j+jd) & + - vc3da(i,j,k) * rtge(i,j)) & + * dy(i,j) / rtgc(i,j) + enddo + enddo + enddo +endif + +if(optyp.ne.'divstr')then + if(lev.eq.'w')then + do k = 1,n3 + hq4(k) = 0.25 * hq(k) + enddo + else + do k = 2,n3 + hq4(k) = 0.25 * hq(k-1) + enddo + endif + + do j = ja,jz + do i = ia,iz + do k = 2,n3 + vc1da(k) = hq4(k) * (vc3da(i,j,k) + vc3da(i,j,k-1) & + + vc3da(i,j+jd,k) + vc3da(i,j+jd,k-1)) + enddo + do k = 2,n3-1 + vc3db(i,j,k) = vc3db(i,j,k) & + + fq(i,j) * dz(k) * (vc1da(k+1) - vc1da(k)) + enddo + vc3db(i,j,1) = vc3db(i,j,2) + if(lev.eq.'w') vc3db(i,j,n3-1) = vc3db(i,j,n3-2) + if(lev.eq.'t') vc3db(i,j,n3) = vc3db(i,j,n3-1) + enddo + enddo +endif + +return +END SUBROUTINE gradytr + +!############################################################################## +Subroutine gradzwr (n1,n2,n3,ia,iz,ja,jz,vc3da,vc3db,rtgc,dz) + +! this routine which computes a component of the +! gradient of vc3da and stores it in vc3db. + +implicit none + +integer :: n1,n2,n3,ia,iz,ja,jz,i,j,k +real, dimension(n1,n2,n3) :: vc3da,vc3db +real, dimension(n3) :: dz +real, dimension(n1,n2) :: rtgc + +do j = ja,jz + do i = ia,iz + do k = 2,n3 + vc3db(i,j,k) = (vc3da(i,j,k) - vc3da(i,j,k-1)) * dz(k) / rtgc(i,j) + enddo + enddo +enddo + +return +END SUBROUTINE gradzwr + +!############################################################################## +Subroutine gradztr (n1,n2,n3,ia,iz,ja,jz,vc3da,vc3db,rtgc,dz) + +! this routine which computes a component of the +! gradient of vc3da and stores it in vc3db. + +implicit none + +integer :: n1,n2,n3,ia,iz,ja,jz,i,j,k +real, dimension(n1,n2,n3) :: vc3da,vc3db +real, dimension(n3) :: dz +real, dimension(n1,n2) :: rtgc + +do j = ja,jz + do i = ia,iz + do k = 1,n3-1 + vc3db(i,j,k) = (vc3da(i,j,k+1) - vc3da(i,j,k)) * dz(k) / rtgc(i,j) + enddo + enddo +enddo + +return +END SUBROUTINE gradztr + +!############################################################################## +Subroutine revu_polarst (N1,N2,GLAT,GLON,FMAPU,FMAPV,FMAPT,FMAPM & + ,FMAPUI,FMAPVI,FMAPTI,FMAPMI,xm,xt,ym,yt & + ,polelat,polelon) + +implicit none + +integer :: N1,N2,I,J +real :: c1,erad,xm2,xt2,ym2,yt2,polelat,polelon +real :: GLAT(N1,N2),GLON(N1,N2),FMAPU(N1,N2),FMAPUI(N1,N2) & + ,FMAPV(N1,N2),FMAPT(N1,N2),FMAPM(N1,N2),FMAPVI(N1,N2) & + ,FMAPTI(N1,N2),FMAPMI(N1,N2),xm(*),xt(*),ym(*),yt(*) + +! Calculates map factors and inverse map factors at u,v,t,m-points and +! geographical lat/lon at t-points for a given polar stereographic grid + +ERAD=6367000. +c1 = (2. * erad) ** 2 +DO J = 1,N2 + DO I = 1,N1 + xm2 = xm(i) * xm(i) + xt2 = xt(i) * xt(i) + ym2 = ym(j) * ym(j) + yt2 = yt(j) * yt(j) + + FMAPT(I,J) = 1. + (xt2 + yt2) / c1 + FMAPU(I,J) = 1. + (xm2 + yt2) / c1 + FMAPV(I,J) = 1. + (xt2 + ym2) / c1 + FMAPM(I,J) = 1. + (xm2 + ym2) / c1 + + FMAPUI(I,J) = 1.0 / FMAPU(I,J) + FMAPVI(I,J) = 1.0 / FMAPV(I,J) + FMAPTI(I,J) = 1.0 / FMAPT(I,J) + FMAPMI(I,J) = 1.0 / FMAPM(I,J) + + CALL xy_ll (GLAT(I,J),GLON(I,J),polelat,polelon,XT(I),YT(J)) + + !write(6,344)i,j,fmapt(i,j),fmapm(i,j),glat(i,j),glon(i,j),XT(I),YT(J) + !344 format('polst:i,j,fmt,fmm,glt,gln,x,y',2i4,6e15.6) + + ENDDO +ENDDO + +return +END SUBROUTINE revu_polarst + +!############################################################################## +Subroutine revu_grdspc (N1,N2,DXU,DXV,DXT,DXM,DYU,DYV,DYT,DYM & + ,FMAPU,FMAPV,FMAPT,FMAPM,xm,xt,ym,yt,jdim,deltax) + +implicit none + +integer :: N1,N2,I,J,jdim +real :: deltax +real :: DXU(N1,N2),DXV(N1,N2),DXT(N1,N2),DXM(N1,N2) & + ,DYU(N1,N2),DYV(N1,N2),DYT(N1,N2),DYM(N1,N2) & + ,FMAPU(N1,N2),FMAPV(N1,N2),FMAPT(N1,N2),FMAPM(N1,N2) & + ,xm(*),xt(*),ym(*),yt(*) + +DO J=1,N2 + DO I=1,N1-1 + DXU(I,J)=FMAPU(I,J)/(XT(I+1)-XT(I)) + DXM(I,J)=FMAPM(I,J)/(XT(I+1)-XT(I)) + ENDDO + DXU(N2,J)=DXU(N2-1,J)*FMAPU(N2,J)/FMAPU(N2-1,J) + DXM(N2,J)=DXM(N2-1,J)*FMAPM(N2,J)/FMAPM(N2-1,J) + DO I=2,N1 + DXV(I,J)=FMAPV(I,J)/(XM(I)-XM(I-1)) + DXT(I,J)=FMAPT(I,J)/(XM(I)-XM(I-1)) + ENDDO + DXV(1,J)=DXV(2,J)*FMAPV(1,J)/FMAPV(2,J) + DXT(1,J)=DXT(2,J)*FMAPT(1,J)/FMAPT(2,J) +ENDDO + +IF(JDIM.EQ.1)THEN + DO I=1,N1 + DO J=1,N2-1 + DYV(I,J)=FMAPV(I,J)/(YT(J+1)-YT(J)) + DYM(I,J)=FMAPM(I,J)/(YT(J+1)-YT(J)) + ENDDO + DYV(I,N2)=DYV(I,N2-1)*FMAPV(I,N2)/FMAPV(I,N2-1) + DYM(I,N2)=DYM(I,N2-1)*FMAPM(I,N2)/FMAPM(I,N2-1) + DO J=2,N2 + DYU(I,J)=FMAPU(I,J)/(YM(J)-YM(J-1)) + DYT(I,J)=FMAPT(I,J)/(YM(J)-YM(J-1)) + ENDDO + DYU(I,1)=DYU(I,2)*FMAPU(I,1)/FMAPU(I,2) + DYT(I,1)=DYT(I,2)*FMAPT(I,1)/FMAPT(I,2) + ENDDO +ELSE + DO I=1,N1 + DO J=1,N2 + DYU(I,J)=1./DELTAX + DYV(I,J)=1./DELTAX + DYT(I,J)=1./DELTAX + DYM(I,J)=1./DELTAX + ENDDO + ENDDO +ENDIF + +return +END SUBROUTINE revu_grdspc + +!############################################################################## +Subroutine revu_transfm (N1,N2,N3,TOPT,TOPU,TOPV,TOPM,RTGT,RTGU & + ,RTGV,RTGM,F13U,F13V,F13T,F13M,F23U,F23V,F23T,F23M & + ,DXU,DXV,DXT,DXM,DYU,DYV,DYT,DYM & + ,xm,xt,ym,yt,zm,zt,jdim,ztop,ht,hw) + +implicit none + +integer :: N1,N2,N3,I,J,K,ITOPO,JDIM +real :: ztop,terdev +real :: TOPT(N1,N2),TOPU(N1,N2),TOPV(N1,N2),TOPM(N1,N2) & + ,RTGT(N1,N2),RTGU(N1,N2),RTGV(N1,N2),RTGM(N1,N2) & + ,F13U(N1,N2),F13V(N1,N2),F13T(N1,N2),F13M(N1,N2) & + ,F23U(N1,N2),F23V(N1,N2),F23T(N1,N2),F23M(N1,N2) & + ,DXU(N1,N2),DXV(N1,N2),DXT(N1,N2),DXM(N1,N2) & + ,DYU(N1,N2),DYV(N1,N2),DYT(N1,N2),DYM(N1,N2) & + ,xm(*),xt(*),ym(*),yt(*),zm(*),zt(*),ht(*),hw(*) +DATA TERDEV/0./ +SAVE + +! This routine computes the coordinate transformation constants +! based on the topographical values of TOPT. + +DO J=1,N2 + DO I=1,N1-1 + TOPU(I,J)=TOPT(I,J)+(TOPT(I+1,J)-TOPT(I,J)) & + *(XM(I)-XT(I))/(XT(I+1)-XT(I)) + TERDEV=MAX(TERDEV,ABS(TOPT(I,J))) + ENDDO + TOPU(N1,J)=TOPT(N1,J)+(TOPT(N1,J)-TOPT(N1-1,J)) & + *(XM(N1)-XT(N1))/(XT(N1)-XT(N1-1)) +ENDDO +IF(TERDEV.LT.1.E-6)THEN + ITOPO=0 +ELSE + ITOPO=1 +ENDIF + +IF(JDIM.EQ.1)THEN + DO I=1,N1 + DO J=1,N2-1 + TOPV(I,J)=TOPT(I,J)+(TOPT(I,J+1)-TOPT(I,J)) & + *(YM(J)-YT(J))/(YT(J+1)-YT(J)) + TOPM(I,J)=TOPU(I,J)+(TOPU(I,J+1)-TOPU(I,J)) & + *(YM(J)-YT(J))/(YT(J+1)-YT(J)) + ENDDO + TOPV(I,N2)=TOPT(I,N2)+(TOPT(I,N2)-TOPT(I,N2-1)) & + *(YM(N2)-YT(N2))/(YT(N2)-YT(N2-1)) + TOPM(I,N2)=TOPU(I,N2)+(TOPU(I,N2)-TOPU(I,N2-1)) & + *(YM(N2)-YT(N2))/(YT(N2)-YT(N2-1)) + ENDDO +ELSE + DO I=1,N1 + DO J=1,N2 + TOPV(I,J)=TOPT(I,J) + TOPM(I,J)=TOPU(I,J) + ENDDO + ENDDO +ENDIF + +DO K=1,N3 + HT(K)=ZT(K)/ZTOP-1.0 + HW(K)=ZM(K)/ZTOP-1.0 +ENDDO + +DO J=1,N2 + DO I=1,N1 + RTGT(I,J)=1.-TOPT(I,J)/ZTOP + RTGU(I,J)=1.-TOPU(I,J)/ZTOP + RTGV(I,J)=1.-TOPV(I,J)/ZTOP + RTGM(I,J)=1.-TOPM(I,J)/ZTOP + F13T(I,J)=(TOPU(I,J)-TOPU(I-1,J))*DXT(I,J)/RTGT(I,J) + F13U(I,J)=(TOPT(I+1,J)-TOPT(I,J))*DXU(I,J)/RTGU(I,J) + F13V(I,J)=(TOPM(I,J)-TOPM(I-1,J))*DXV(I,J)/RTGV(I,J) + F13M(I,J)=(TOPV(I+1,J)-TOPV(I,J))*DXM(I,J)/RTGM(I,J) + F23T(I,J)=(TOPV(I,J)-TOPV(I,J-JDIM))*DYT(I,J)/RTGT(I,J) + F23U(I,J)=(TOPM(I,J)-TOPM(I,J-JDIM))*DYU(I,J)/RTGU(I,J) + F23V(I,J)=(TOPT(I,J+JDIM)-TOPT(I,J))*DYV(I,J)/RTGV(I,J) + F23M(I,J)=(TOPU(I,J+JDIM)-TOPU(I,J))*DYM(I,J)/RTGM(I,J) + ENDDO +ENDDO +DO J=1,N2 + F13T(1,J)=F13U(1,J) + F13V(1,J)=F13M(1,J) + F13U(N1,J)=F13T(N1,J) + F13M(N1,J)=F13V(N1,J) +ENDDO +IF(JDIM.EQ.1)THEN + DO I=1,N1 + F23T(I,1)=F23V(I,1) + F23U(I,1)=F23M(I,1) + F23V(I,N2)=F23T(I,N2) + F23M(I,N2)=F23U(I,N2) + ENDDO +ENDIF + +return +END SUBROUTINE revu_transfm diff --git a/src/6.2.16/revu/rhdf5_f2c.c b/src/6.2.16/revu/rhdf5_f2c.c new file mode 100644 index 0000000..ccd074b --- /dev/null +++ b/src/6.2.16/revu/rhdf5_f2c.c @@ -0,0 +1,693 @@ +/* + * Using these C wrapper routines to be able to utilize the C API for HDF5. + * Unfortunately, the fortran .mod files that came with our installation of + * HDF5 do not work with the pgf90 compiler. + */ + +#include "revu_sub_names.h" +#include +#include "hdf5.h" +#include "hdf5_hl.h" +#include "utils_sub_names.h" +#include + +/* + * Limits for arrays, strings, etc. Need to keep these in sync with like + * named parameters in rhdf5_utils.f90 + */ +#define RHDF5_MAX_DIMS 10 + +/* + * Integer coding for HDF5 types. Need to keep these in sync with like named + * parameters in rhdf5_utils.f90 + * These codes need to start with zero and be contiguous (0..n with no gaps) + * for the rhdf5_type_names array. Make sure the entries in rhdf5_type_names + * are consistent with the type numbers. + */ +#define RHDF5_NUM_TYPES 4 + +#define RHDF5_TYPE_STRING 0 +#define RHDF5_TYPE_INTEGER 1 +#define RHDF5_TYPE_FLOAT 2 +#define RHDF5_TYPE_CHAR 3 + +char *rhdf5_type_names[RHDF5_NUM_TYPES] = {"STRING","INTEGER","FLOAT","CHAR"}; + +/* Prototypes for internal routines */ + + void rf2c_get_mem_type (hid_t typid,int *type,int *size); +hid_t rf2c_set_mem_type (int dtype,int ssize); + +/* Routines for HDF5 REVU IO. */ + +//############################################################################ +//************************* DATASET ROUTINES ********************************* +//############################################################################ + +//**************************************************************************** + void rh5d_open (int64_t *id,char *name,int64_t *dsetid,int *hdferr) +{ + hid_t fileid_h5 = (hid_t)(*id); + hid_t dsetid_h5 = (hid_t)(*dsetid); + dsetid_h5 = H5Dopen (fileid_h5,name,H5P_DEFAULT); + *dsetid = (int64_t) dsetid_h5; +if (*dsetid < 0) + { + *hdferr = *dsetid; + } +else + { + *hdferr = 0; + } +return; +} + +//**************************************************************************** + void rh5d_setup_and_write (int64_t *id,char *name,int *dtype,int *ssize + ,int *ndims,int *dims,int *ext_dims,int *chunk_dims + ,int *deflvl,int64_t *dsetid,void *data,int *hdferr) +{ +/* + * This routine will either create or extend a dataset and then + * perform the write into that dataset. + */ +int i; +int cur_ndims; +hid_t fileid_h5 = (hid_t)(*id); +hid_t dsetid_h5 = (hid_t)(*dsetid); +hsize_t cur_dims[RHDF5_MAX_DIMS] = { 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 }; +hsize_t max_dims[RHDF5_MAX_DIMS] = { 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 }; +hsize_t new_dims[RHDF5_MAX_DIMS] = { 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 }; +hsize_t mem_dims[RHDF5_MAX_DIMS] = { 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 }; +hsize_t chunk_sizes[RHDF5_MAX_DIMS] = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 }; +hsize_t hs_count[RHDF5_MAX_DIMS] = { 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 }; +hsize_t hs_start[RHDF5_MAX_DIMS] = { 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 }; +hid_t mtypid; +hid_t mspcid; +hid_t fspcid; +hid_t dcplid; + +*hdferr = 0; + +/* + * Set the memory type (translate integer code in dtype to HDF5 type) + */ +mtypid = rf2c_set_mem_type (*dtype, *ssize); +if (mtypid < 0) + { + printf("ERROR: rh5d_setup_and_write: unrecognized dtype: %d\n", *dtype); + *hdferr = -1; + return; + } + +/* + * Check to see if the dataset exists aleady. If so extend it and do + * the write. If not, then create it and do the write. + */ + +if ( H5Lexists (fileid_h5,name,H5P_DEFAULT) ) + { + /* + * dataset exists --> extend and write + * + * Open the existing dataset + */ + + dsetid_h5 = H5Dopen (fileid_h5,name,H5P_DEFAULT); + *dsetid = (int64_t)(dsetid_h5); + + /* + * Get the currently existing dimension information from the dataset + * Close the dataspce after grabbing the current dimension information + * since we need to reopen the dataspace after extending the dataset. + */ + fspcid = H5Dget_space (dsetid_h5); + if (fspcid < 0) + { + printf("ERROR: rh5d_setup_and_write: Cannot get file space id\ + from dataset\n"); + *hdferr = -1; + return; + } + cur_ndims = H5Sget_simple_extent_dims (fspcid, cur_dims, max_dims); + H5Sclose (fspcid); + + if (cur_ndims != *ndims) + { + printf("ERROR: rh5d_setup_and_write: number of dimensions in dataset\ + (%d) does not match specified number of dimensions (ndims): \ + %d\n",cur_ndims, *ndims); + *hdferr = -1; + return; + } + + /* + * Get the new dimension information from the input arguments + */ + for (i = 0; i<*ndims; i++) + { + new_dims[i] = dims[i]; + /* hs_* vars are for the hyperslab selection later on */ + hs_count[i] = cur_dims[i]; + hs_start[i] = 0; + if (ext_dims[i] == 1) + { + /* this is the dimension we are extended and assume for now */ + /* that we are extending by just one element */ + mem_dims[i] = 1; + + if (new_dims[i] < cur_dims[i]) + { + printf("ERROR: rh5d_setup_and_write: Shrinking an extendible \ + dimension is not supported\n"); + printf("ERROR: Current dimension number: %d, Current dimension \ + size: %d\n", i+1, (int) cur_dims[i]); + printf("ERROR: New dimension number: %d, New dimension size: \ + %d\n", i+1, (int) new_dims[i]); + *hdferr = -1; + return; + } + } + else + { + mem_dims[i] = dims[i]; + } + } + + /* + * Create a memory dataspace to control the selection from the data + * buffer (input arg "data"). We are assuming that the entries in the + * data buffer are organized so that the dimension that we are extending + * is a size of one so if we set up the memory space with that in mind + * the selection will happen automatically without the need to apply any + * selection mechanism on the memory space. + */ + mspcid = H5Screate_simple (cur_ndims,mem_dims,NULL); + + /* + * Extend the dataset and re-open the dataspace + */ + H5Dset_extent (dsetid_h5,new_dims); + fspcid = H5Dget_space (dsetid_h5); + *dsetid = (int64_t)(dsetid_h5); + + if ((mspcid < 0) || (fspcid < 0)) + { + *hdferr = -1; + return; + } + + /* + * Create a hyperslab to select just the region where the new data will be + * stored into the file. That is, we are appending the new data just after + * the end of the existing data so select out the existing data. To do this + * first select the entire dataspace (extended) and subtract out the + * dataspace prior to the extension. The select operator H5S_SELECT_NOTB + * is used to do the subtraction. + */ + H5Sselect_all(fspcid); + *hdferr = H5Sselect_hyperslab (fspcid,H5S_SELECT_NOTB,hs_start + ,NULL,hs_count,NULL); + + if (*hdferr != 0) + { + return; + } + + /* + * write and free up resources + */ + *hdferr = H5Dwrite (dsetid_h5,mtypid,mspcid,fspcid,H5P_DEFAULT,data); + + if (*dtype == RHDF5_TYPE_STRING) + { + H5Tclose (mtypid); + } + H5Sclose (mspcid); + H5Sclose (fspcid); + } +else + { + /* + * dataset does not exist --> create and write + * + * H5Screate_simple wants all of the elements of the dims and maxdim + * arrays (2nd, 3rd args) to be set to a non-zero value, even the elements + * that are not being used (since they are beyond what ndims specifies). + * Copy the used contents of dims (the first ndims entries) into an internal + * array which is initialized to all 1's so that the caller doesn't need + * to bother with this detail. + * + * H5Pset_chunk wants elements not used in the chunk size array (2nd arg) + * to be set to zero and the used elements set to non-zero values. + */ + for (i=0 ; i<*ndims; i++) + { + cur_dims[i] = dims[i]; + if (ext_dims[i] == 0) + { + max_dims[i] = dims[i]; + } + else + { + max_dims[i] = H5S_UNLIMITED; + } + chunk_sizes[i] = chunk_dims[i]; + } + + /* + * create the file dataspace + */ + mspcid = H5Screate_simple (*ndims,cur_dims,max_dims); + if (mspcid < 0) + { + printf("ERROR: rh5d_create: Cannot create memory space for dataset\n"); + *hdferr = -1; + return; + } + + /* + * create the dataset + * dataset creation properties + */ + dcplid = H5Pcreate (H5P_DATASET_CREATE); + if (dcplid < 0) + { + printf("ERROR: rh5d_create: Cannot make create properties for dataset\n"); + *hdferr = -1; + return; + } + + /* + * Set up for data compression + * enable chunking of data + * enable shuffling of data + * enable deflation (compression) of data + */ + H5Pset_chunk (dcplid,*ndims,chunk_sizes); + H5Pset_shuffle (dcplid); + H5Pset_deflate (dcplid,*deflvl); + + /* + * dataset + */ + + /* 3rd arg is type of the data elements - always using float for now + * 5th arg is the link creation property list (eg, automatically build + * intermediate groups) + * 7th arg is the data access property list + */ + dsetid_h5 = H5Dcreate (fileid_h5,name,mtypid,mspcid,H5P_DEFAULT,dcplid,H5P_DEFAULT); + *dsetid = (int64_t)(dsetid_h5); + if (*dsetid < 0) + { + printf("ERROR: rh5d_create: Cannot make create dataset\n"); + *hdferr = -1; + return; + } + + /* + * write and free up resources + */ + *hdferr = H5Dwrite (dsetid_h5,mtypid,H5S_ALL,H5S_ALL,H5P_DEFAULT,data); + + if (*dtype == RHDF5_TYPE_STRING) + { + H5Tclose (mtypid); + } + H5Pclose (dcplid); + H5Sclose (mspcid); + } + +return; +} + +//**************************************************************************** + void rh5d_read_get_dims (int64_t *dsetid,int *ndims,int *dims,int *hdferr) +{ +/* + * This routine will open the dataset given by id (file id) and name, + * read in and return the dimension information. + * + * The dataset is left open so that the caller can read the data and + * retrieve attributes so it is up to the caller to close the dataset. + */ + hid_t fspcid; + hid_t dtypid; + hid_t dsetid_h5 = (hid_t)(*dsetid); + hsize_t dset_dims[RHDF5_MAX_DIMS]; + int i; + + *hdferr = 0; + + /* + * Get the information about the dimensions + * Need to read dimension sizes, from H5Sget_simple_extent_dims, into + * an (hsize_t *) type since it's length is different than (int *) type. + */ + fspcid = H5Dget_space (dsetid_h5); + *ndims = H5Sget_simple_extent_dims (fspcid,dset_dims,NULL); + for (i=0; i<*ndims; i++) + { + dims[i] = dset_dims[i]; + } + + H5Sclose (fspcid); + if (*ndims < 0) + { + *hdferr = -1; + } + + return; +} + +//**************************************************************************** + void rh5d_close (int64_t *dsetid,int *hdferr) +{ +*hdferr = H5Dclose ((hid_t)*dsetid); + +return; +} + +//############################################################################ +//******************* ATTRIBUTE ROUTINES ************************************* +//############################################################################ + +//**************************************************************************** + void rh5a_write_anyscalar (int64_t *id,char *name,void *value,int *vtype,int *hdferr) +{ +/* This routine will write a scalar attribute into the HDF5 file, given the + * object id and attribute name. + * + * value is a VOID pointer so the caller can use any type (char, int, float + * for now). vtype is used to denote what type value is. The encoding for + * vtype is contained in the the defines: RHDF5_TYPE_* (see top of this file). + */ + hid_t a_id, amem_id, atype; + hid_t id_h5 = (hid_t)(*id); + htri_t attr_exists; + int ssize; + + *hdferr = 0; + + /* + * Set up memory type + */ + if (*vtype == RHDF5_TYPE_STRING) + { + ssize = strlen(value) + 1; + } + else + { + ssize = 0; + } + + atype = rf2c_set_mem_type (*vtype, ssize); + + if (atype < 0) + { + printf("ERROR: rh5a_write_anyscalar: unrecognized vtype: %d\n", *vtype); + *hdferr = -1; + return; + } + + if (*hdferr == 0) + { + /* + * got a recognized type so keep going + */ + + attr_exists = H5Aexists (id_h5,name); + + if (attr_exists) + { + /* + * attribute exists already --> update mode + */ + + a_id = H5Aopen (id_h5,name,H5P_DEFAULT); + } + else + { + /* + * attribute does not exist --> create mode + * + * + * scalar dataspace to hold the string for the file write + */ + amem_id = H5Screate (H5S_SCALAR); + + /* + * create the attribute and save the result for returning the status in hdferr + * set hdferr here since we will be closing the a_id pointer at the end + */ + + /* HDF5 1.8 API + * 5th arg is attribute creation property list (must be H5P_DEFAULT as of 4/19/12) + * 6th arg is attribute access property list (must be H5P_DEFAULT as of 4/19/12) + */ + a_id = H5Acreate (id_h5,name,atype,amem_id,H5P_DEFAULT,H5P_DEFAULT); + } + + if (a_id < 0) + { + *hdferr = a_id; + } + + /* + * If we have an error don't attempt the write, but do continue on to + * the close statments. + */ + + if (*hdferr == 0) + { + /* + * The third arg to H5Awrite is a pointer to the data. value is that already, + * but this does put the onus on the caller to make sure that value is really + * pointing to the type that matches what's in vtype + */ + H5Awrite (a_id,atype,value); + } + + /* + * clean up the attribute related pointers + */ + if (*vtype == RHDF5_TYPE_STRING) + { + /* + * Only call the close when using the string type (which is a complex structure) + */ + H5Tclose (atype); + } + if (attr_exists == 0) + { + /* + * if created the attribute, then close the memory space id + */ + H5Sclose (amem_id); + } + H5Aclose (a_id); + } + + return; +} + +//**************************************************************************** + void rh5a_read_anyscalar (int64_t *dsetid,char *name,void *value,int *vtype,int *hdferr) +{ +/* This routine will read in the attribute given by the object id and + * name. The caller requests a certain type (arg: dtype) and that is checked + * against the type found in the hdf5 file. + */ + hid_t attrid; + hid_t atypid; + hid_t dsetid_h5 = (hid_t) *dsetid; + int atype; + int asize; + + *hdferr = 0; + + /* + * First open the attribute + */ + attrid = H5Aopen (dsetid_h5,name,H5P_DEFAULT); + if (attrid < 0) + { + *hdferr = -1; + return; + } + + /* + * Get the information about the data type + */ + atypid = H5Aget_type (attrid); + if (atypid < 0) + { + *hdferr = -1; + return; + } + rf2c_get_mem_type (atypid,&atype,&asize); + if (atype < 0) + { + *hdferr = -1; + return; + } + if (atype != *vtype) + { + printf("ERROR: rh5a_read_anyscalar: Attribute type requested by caller"); + printf(" does not match type in file\n"); + printf("ERROR: Attribute naame: %s\n", name); + printf("ERROR: Requested attribute type: %s\n",rhdf5_type_names[*vtype]); + printf("ERROR: Attribute type found in HDF5 file: %s\n",rhdf5_type_names[atype]); + *hdferr = -1; + return; + } + + /* + * read the dataset, clean up and return + */ + *hdferr = H5Aread (attrid,atypid,value); + + if (*vtype == RHDF5_TYPE_STRING) + { + H5Tclose (atypid); + } + H5Aclose (attrid); + + return; +} + +//############################################################################ +//*************** DIMENSION SCALE ROUTINES *********************************** +//############################################################################ + +//**************************************************************************** + void rh5ds_set_scale (int64_t *dsetid,char *dimname,int *hdferr) + { + *hdferr = H5DSset_scale ((hid_t)*dsetid,dimname); + + return; + } + +//**************************************************************************** + void rh5ds_attach_scale (int64_t *dsetid,int64_t *dsclid,int *index,int *hdferr) + { + *hdferr = H5DSattach_scale ((hid_t)*dsetid,(hid_t)*dsclid,*index); + + return; + } + +//############################################################################ +//*************** INTERNAL ROUTINES ****************************************** +//############################################################################ + +//**************************************************************************** +hid_t rf2c_set_mem_type (int dtype,int ssize) +{ +/* This routine translates the integer coded memory type to the + * corresponding HDF5 type. + * + * Note that ssize input argument is only used for string types. + */ +hid_t mtype; + +switch (dtype) + { + case RHDF5_TYPE_STRING: + /* + * define type for the string + * C style string, null byte terminated, size taken from input argument ssize + */ + mtype = H5Tcopy (H5T_C_S1); + H5Tset_size (mtype,ssize); + H5Tset_strpad (mtype,H5T_STR_NULLTERM); + break; + + case RHDF5_TYPE_INTEGER: + /* + * integer + */ + mtype = H5T_NATIVE_INT; + break; + + case RHDF5_TYPE_FLOAT: + /* + * float + */ + mtype = HDF5_FLOAT_TYPE; + break; + + case RHDF5_TYPE_CHAR: + /* + * char + */ + mtype = H5T_NATIVE_UCHAR; + break; + + default: + /* + * unrecognized type, send back -1 to inform caller + */ + mtype = -1; + break; + } + +return(mtype); +} + +//**************************************************************************** + void rf2c_get_mem_type (hid_t typid,int *type,int *size) +{ +/* This routine finds and translates the HDF5 type to + * the integer coded memory type. + */ + + /* First check the class to see if this is a string type + * since string type is not a "native" type. All the other + * types (integer, float, char) are native types which can + * checked using H5Tequal. H5Tequal returns positive value + * for "true", zero for "false" and negative value for "error". + */ + + if ( H5Tget_class (typid) == H5T_STRING ) + { + *type = RHDF5_TYPE_STRING; + } + else + { + /* + * Not a string type so check the native types + * + * Check the character types first since they are a subset of + * the integer types. + */ + + if (( H5Tequal (typid, H5T_NATIVE_UCHAR) > 0) || + ( H5Tequal (typid, H5T_NATIVE_SCHAR) > 0 )) + { + *type = RHDF5_TYPE_CHAR; + } + else if ( H5Tequal (typid,H5T_NATIVE_INT) > 0 ) + { + *type = RHDF5_TYPE_INTEGER; + } + else if ( H5Tequal (typid,H5T_NATIVE_FLOAT) > 0 ) + { + *type = RHDF5_TYPE_FLOAT; + } + else + { + /* + * unrecognized type + */ + *type = -1; + } + } + + /* + * grab the size of this type + */ + *size = H5Tget_size (typid); + + return; +} diff --git a/src/6.2.16/revu/rhdf5_utils.f90 b/src/6.2.16/revu/rhdf5_utils.f90 new file mode 100644 index 0000000..feff378 --- /dev/null +++ b/src/6.2.16/revu/rhdf5_utils.f90 @@ -0,0 +1,673 @@ +!############################################################################## +Module rhdf5_utils + +implicit none + +! max limits for arrays, strings, etc, keep these in sync with like named +! defines in rhdf5_f2c.c +integer, parameter :: RHDF5_MAX_STRING = 128 +integer, parameter :: RHDF5_MAX_DIMS = 10 + +! integer coding for HDF5 types, keep these in sync with like named defines +! in rhdf5_f2c.c +integer, parameter :: RHDF5_TYPE_STRING = 0 +integer, parameter :: RHDF5_TYPE_INTEGER = 1 +integer, parameter :: RHDF5_TYPE_FLOAT = 2 +integer, parameter :: RHDF5_TYPE_CHAR = 3 + +! structure to hold variable information +type Rhdf5Var + character(len=RHDF5_MAX_STRING) :: vname + integer :: ndims + integer, dimension(RHDF5_MAX_DIMS) :: dims + character(len=RHDF5_MAX_STRING) :: units + character(len=RHDF5_MAX_STRING) :: descrip + character(len=RHDF5_MAX_STRING), dimension(RHDF5_MAX_DIMS) :: dimnames + real, dimension(:), allocatable :: vdata +end type Rhdf5Var + +Contains + +!****************************************************************************** +! Routines for HDF5 REVU IO +!****************************************************************************** + +!****************************************************************************** +! Low level routines +!****************************************************************************** + +!****************************************************************************** +!rhdf5_write_variable type routines + +! This routine will create and populate the dataset and attributes +! for an hdf5 file variable. +! +! We are going through the C interface since the HDF5 Fortran interface does +! not work with the pgf90 compiler. This interface will store the array data +! in row major fashion (first dimension changes the slowest when deteriming the +! linear storage order for the array data) whereas Fortran stores array data +! in column major fashion (first dimension changes the fastest). +! +! The data coming into this routine is ordered (x,y,z) and is in column +! major fashion. +! +! This routine will handle two styles of variable storage. +! 1. Store the variable once as is. This is intended for grid information +! such as lat/lon/levels values. It is not necessary to store the same +! thing over for each time step, just once when setting up the grid for +! the first time. Setting the itstep argument to zero denotes this type +! of variable. This variable will be stored with fixed dimensions in the +! HDF5 file. +! +! 2. Store the variable each time step. This is intended for RAMS variable +! (2D or 3D field) storage where for each time step a version of the +! field is stored. The storage will be optimized toward reading out the +! variable in a time step by time step fashion. This routine will allow +! for an unlimited number of time steps as it will create the HDF5 +! dataset with the time dimension having an unlimited max dimension. +! Along with this HDF5 chunking will be used so that we don't have +! to preallocate contiguous file space for all time steps before we start +! writing in data. Making the chunk size match the size of the data coming +! into this routine (x,y,z) will allow for writing each time step's data +! into one chunk (which is a contiguous file space). Because of this +! scheme, we want time to be the slowest changing dimension which makes +! it so that for each time step only one chunk needs to be read out of +! the file to get the (x,y,z) data. Note that if time was not the slowest +! changing dimension, then multiple chunks would have to read out of the +! file in order to fill in one time step's (x,y,z) data. +! +! Since we want to make t the slowest changing dimension (first dimension due +! to the C interface with the row major array storage) just tagging on the +! (x,y,z) data that came into this routine would make for an awkward storage +! in the HDF5 file, where you are taking memory containing (x,y,z) in column +! major order and writing that out to the HDF5 file as if it were row major +! order. +! +! MATLAB and IDL use a clever trick to deal with this issue. Leave the linear +! storage alone, and simply tell the C HDF5 write routine that the dimensions +! for (x,y,z) go in the reverse order. This automatically changes the +! perspective on the linear storage to row major and the data in the HDF5 file +! will be consistent. That is, the value at a given x,y,z location will remain +! at that location in the file making it possible for a C routine, using row +! major order, to read in the data and have it match what was written out by +! this routine. +! +! For example if the data coming in has (x,y,z) with dimension sizes (4,3,2) +! then send the data as is to the C hdf5 write routine, but tell that routine +! that the order of the data is now (z,y,x) with dimension sizes (2,3,4). +! +! If attaching time as a variable always place it first in the variable order. +! It is the slowest changing variable so placing it first is consistent with +! row major ordering. +! +! Note that sdata is an array of strings where each string gets cast into a +! C style string terminated with a null byte. cdata on the other hand gets +! cast into a character array with a fixed length (RHDF5_MAX_STRING). +!****************************************************************************** + +!############################################################################## +Subroutine rhdf5_write_variable_rdata (id,vname,ndims,itstep,dims & + ,units,descrip,dimnames,deflvl,rdata) + +implicit none + + integer :: i,ndims,itstep,sizeof,hdferr,dtype,deflvl,dset_ndims & + ,dsize + integer*8 :: id, dsetid + integer, dimension(ndims+1) :: dset_dims,ext_dims,chunk_dims + integer :: idummy ! to get the size of an integer + real :: rdummy ! to get the size of a real + character :: cdummy ! to get the size of a character + character(len=*) :: vname,units,descrip + integer, dimension(ndims) :: dims + character(len=RHDF5_MAX_STRING), dimension(ndims) :: dimnames + character(len=RHDF5_MAX_STRING) :: dnstring,arrayorg + + real, dimension(*) :: rdata + + ! Check for valid argument values + if (itstep .lt. 0) then + print*,'ERROR: hdf5_write_variable: itstep argument must be >= zero' + stop 'hdf5_write_variable: bad variable write' + endif + + !For input type rdata + dtype = RHDF5_TYPE_FLOAT + dsize = sizeof(rdummy) + + ! If ndims is zero then the data coming in is time data. This is okay as + ! long as itstep is not zero as well (which would mean that there is no + ! data to write). Print a warning and return if ndims and itstep are both + ! zero. + if ((ndims .eq. 0) .and. (itstep .eq. 0)) then + print*,'WARNING: hdf5_write_variable:' + print*,'Both ndims and itstep are zero,' + print*,'skipping write for variable: ',trim(vname) + return + endif + + ! Array organization is always row major for now + arrayorg = 'row major' + + ! Figure out what the "real" dimensions for the data will be. Takes into + ! account that the x,y,z dimensions need to be reversed for row major + ! ordering + CALL rhdf5_build_dims_for_write (itstep,ndims,dims,dimnames & + ,dset_ndims,dset_dims,ext_dims,chunk_dims,dnstring) + CALL rhdf5_adjust_chunk_sizes (dset_ndims,chunk_dims,dsize) + + ! Use the original ndims and dims values for the call to + ! rhd5_add_null_bytes(). Since this routine treats the sdata array + ! as a 1D array with a total number of elements given by the product of + ! the sizes in dims, it doesn't matter what order the dimension sizes are + ! listed in dims. We also want to use dims and ndims since they describe + ! what is in sdata. + + CALL rh5d_setup_and_write (id,trim(vname)//char(0),dtype,0,dset_ndims & + ,dset_dims,ext_dims,chunk_dims,deflvl,dsetid,rdata,hdferr) + + if (hdferr .ne. 0) then + print*,'ERROR: hdf5_write_variable:' + print*,'cannot write data for variable: ',trim(vname) + stop 'hdf5_write_variable: bad variable write' + endif + + ! write out the attributes + CALL rh5a_write_anyscalar (dsetid,'units'//char(0) & + ,trim(units)//char(0),RHDF5_TYPE_STRING,hdferr) + CALL rh5a_write_anyscalar (dsetid,'long_name'//char(0) & + ,trim(descrip)//char(0),RHDF5_TYPE_STRING,hdferr) + CALL rh5a_write_anyscalar (dsetid,'ArrayOrg'//char(0) & + ,trim(arrayorg)//char(0),RHDF5_TYPE_STRING,hdferr) + CALL rh5a_write_anyscalar (dsetid,'DimNames'//char(0) & + ,trim(dnstring)//char(0),RHDF5_TYPE_STRING,hdferr) + + if (trim(vname) .eq. 'time') then + ! helper attribute for ncdump + CALL rh5a_write_anyscalar (dsetid,'C_format'//char(0),'%c'//char(0) & + ,RHDF5_TYPE_STRING,hdferr) + endif + + ! close the dataset + CALL rh5d_close (dsetid, hdferr) + +return +END SUBROUTINE rhdf5_write_variable_rdata + +!############################################################################## +Subroutine rhdf5_write_variable_fsngl (id,vname,ndims,itstep,dims & + ,units,descrip,dimnames,deflvl,fsngl) + +implicit none + + integer :: i,ndims,itstep,sizeof,hdferr,dtype,deflvl,dset_ndims & + ,dsize + integer*8 :: id, dsetid + integer, dimension(ndims+1) :: dset_dims,ext_dims,chunk_dims + integer :: idummy ! to get the size of an integer + real :: rdummy ! to get the size of a real + character :: cdummy ! to get the size of a character + character(len=*) :: vname,units,descrip + integer, dimension(ndims) :: dims + character(len=RHDF5_MAX_STRING), dimension(ndims) :: dimnames + character(len=RHDF5_MAX_STRING) :: dnstring,arrayorg + + real :: fsngl + + ! Check for valid argument values + if (itstep .lt. 0) then + print*,'ERROR: hdf5_write_variable: itstep argument must be >= zero' + stop 'hdf5_write_variable: bad variable write' + endif + + !For input type rdata + dtype = RHDF5_TYPE_FLOAT + dsize = sizeof(rdummy) + + ! If ndims is zero then the data coming in is time data. This is okay as + ! long as itstep is not zero as well (which would mean that there is no + ! data to write). Print a warning and return if ndims and itstep are both + ! zero. + if ((ndims .eq. 0) .and. (itstep .eq. 0)) then + print*,'WARNING: hdf5_write_variable:' + print*,'Both ndims and itstep are zero,' + print*,'skipping write for variable: ',trim(vname) + return + endif + + ! Array organization is always row major for now + arrayorg = 'row major' + + ! Figure out what the "real" dimensions for the data will be. Takes into + ! account that the x,y,z dimensions need to be reversed for row major + ! ordering + CALL rhdf5_build_dims_for_write (itstep,ndims,dims,dimnames & + ,dset_ndims,dset_dims,ext_dims,chunk_dims,dnstring) + CALL rhdf5_adjust_chunk_sizes (dset_ndims,chunk_dims,dsize) + + ! Use the original ndims and dims values for the call to + ! rhd5_add_null_bytes(). Since this routine treats the sdata array + ! as a 1D array with a total number of elements given by the product of + ! the sizes in dims, it doesn't matter what order the dimension sizes are + ! listed in dims. We also want to use dims and ndims since they describe + ! what is in sdata. + + CALL rh5d_setup_and_write (id,trim(vname)//char(0),dtype,0,dset_ndims & + ,dset_dims,ext_dims,chunk_dims,deflvl,dsetid,fsngl,hdferr) + + if (hdferr .ne. 0) then + print*,'ERROR: hdf5_write_variable:' + print*,'cannot write data for variable: ',trim(vname) + stop 'hdf5_write_variable: bad variable write' + endif + + ! write out the attributes + CALL rh5a_write_anyscalar (dsetid,'units'//char(0) & + ,trim(units)//char(0),RHDF5_TYPE_STRING,hdferr) + CALL rh5a_write_anyscalar (dsetid,'long_name'//char(0) & + ,trim(descrip)//char(0),RHDF5_TYPE_STRING,hdferr) + CALL rh5a_write_anyscalar (dsetid,'ArrayOrg'//char(0) & + ,trim(arrayorg)//char(0),RHDF5_TYPE_STRING,hdferr) + CALL rh5a_write_anyscalar (dsetid,'DimNames'//char(0) & + ,trim(dnstring)//char(0),RHDF5_TYPE_STRING,hdferr) + + if (trim(vname) .eq. 'time') then + ! helper attribute for ncdump + CALL rh5a_write_anyscalar (dsetid,'C_format'//char(0),'%c'//char(0) & + ,RHDF5_TYPE_STRING,hdferr) + endif + + ! close the dataset + CALL rh5d_close (dsetid, hdferr) + +return +END SUBROUTINE rhdf5_write_variable_fsngl + +!############################################################################## +Subroutine rhdf5_build_dims_for_write (itstep,ndims,dims,dimnames & + ,dset_ndims,dset_dims,ext_dims,chunk_dims,dnstring) + +! This routine will figure out the dimensions we want for the upcoming write. +! +! If itstep is > 0, then the time dimension will be tagged onto the front of +! dims creating one extra dimension to the data. +! +! ext_dims gets set to show which dimensions, if any, are extendable (only +! extending time dimension for now). +! +! chunk_dims shows how to organize chunking in the HDF5 file. + +implicit none + +integer :: itstep, ndims +integer, dimension(ndims) :: dims +character(len=RHDF5_MAX_STRING), dimension(ndims) :: dimnames +integer :: dset_ndims +integer, dimension(ndims+1) :: dset_dims, ext_dims, chunk_dims +character(len=RHDF5_MAX_STRING) :: dnstring + +integer :: i, irev +integer :: dummy_int +real :: dummy_real +character :: dummy_char + +! The array ext_dims holds a 1 (extendable) or 0 (not extendable) to +! mark which, if any, dimensions of the variable are to be extendable. For +! now we just want the time dimension, if it exists, to be extendable. +! +! The array chunk_dims holds a description of how big to make the chunks +! in the HDF file. We want one chunk per time step. Always make the chunk +! size match the size of the field (set the individual chunk sizes to the +! size of the dimensions of the field). If the variable has a time dimension +! set the corresponding chunk_size for the time dimension (first dimension) +! to one which keep the overall chunk size matching the size of the field. +! +! Always place time as the first dimension. Then reverse the order of the +! field dimensions which will automatically make the data appear to be row +! major ordered. + + if (itstep .eq. 0) then + dset_ndims = ndims + do i = 1, ndims + ! reverse the ordering + irev = (ndims - i) + 1 + dset_dims(irev) = dims(i) + ext_dims(irev) = 0 + chunk_dims(irev) = dims(i) + if (i .eq. 1) then + dnstring = trim(dimnames(irev)) + else + dnstring = trim(dnstring) // ' ' // trim(dimnames(irev)) + endif + enddo + elseif (itstep .gt. 0) then + dset_ndims = ndims + 1 + dset_dims(1) = itstep + ext_dims(1) = 1 + chunk_dims(1) = 1 + dnstring = 't' + do i = 1, ndims + ! reverse the ordering, time is in the first slot + ! so shift this up by one + irev = (ndims - i) + 2 + dset_dims(irev) = dims(i) + ext_dims(irev) = 0 + chunk_dims(irev) = dims(i) + ! note that the dimnames array is not to be shifted + dnstring = trim(dnstring) // ' ' // trim(dimnames(irev-1)) + enddo + endif + +return +END SUBROUTINE rhdf5_build_dims_for_write + +!############################################################################## +Subroutine rhdf5_adjust_chunk_sizes (ndims,chunk_dims,dsize) + +! This routine will attempt to keep the chunk size at optimal +! values for the dataset. +! +! First of all, the HDF5 interface uses a default chunk cache (hash +! table) with 521 entries where each entry is 1MB in size. For small +! datasets (data buffer for each write under 512KB) there is no +! need to change the chunk sizes since they default to the data +! dimension sizes making the entire data buffer one chunk. +! +! For large datasets (data buffer for each write > 512KB) diffferent +! sources have different recommendations for the optimal chunk size. +! The HDF5 documentation recommendation is: < 512KB. They +! all agree that the thing that really matters is the access order. +! +! Since we are just streaming out the data time step by time step +! with no subset selection, we need to make the chunks fit in a +! contiguous line through the memory. We also would like to make +! all the chunks add up to the total data buffer size without +! any extra padding so that we keep the file size at a minimum. +! Should be able to accomplish this by dividing up each dimension +! starting with the first (slowest changing) dimension into smaller +! pieces (that don't leave any remainder) until the chunk size is +! at the right size. For exmaple if you have 4-byte data organized as +! (20, 50, 1000), 4 million bytes, then allow the chunk size +! (2, 50, 1000), 400 thousand bytes, but don't allow (3, 50, 1000), +! 600 thousand bytes (closer to 512KB) since 3 does not divide into +! 20 evenly resulting in unused space in the dataset. + +implicit none + +integer, parameter :: KB_512 = 524288 +integer :: ndims, dsize +integer, dimension(ndims) :: chunk_dims +integer :: i, chunk_size, new_dim, shrink +integer :: rhdf5_find_even_divisor + + chunk_size = dsize + do i = 1, ndims + chunk_size = chunk_size * chunk_dims(i) + enddo + + ! only adjust if the default chunk size is greater than 512KB + if (chunk_size .gt. KB_512) then + shrink = ceiling(float(chunk_size) / float(KB_512)) + + ! shrink is the factor that we want to reduce the chunk size by, + ! but we want the actual reduction to be an even divisor of the + ! given chunk dimensions so that the chunks fit over the data + ! exactly with no wasted space. + ! + ! Walk through the chunk dimensions. Keep setting the current + ! chunk dimension to 1 (and dividing the shrink factor by that + ! dimension) while the shrink factor remains larger than that + ! dimension. As soon as the dimension is greater than the shrink + ! factor, divide up the dimension with the nearest even divisor + ! less than the current dimension divided by the shrink factor. + ! + ! The intent of this algorithm is to yield exact fitting tiles + ! (chunks) over the data that have their size as close to 512KB + ! as possible without going over 512KB. + do i = 1, ndims + if (shrink .gt. chunk_dims(i)) then + shrink = ceiling(float(shrink) / float(chunk_dims(i))) + chunk_dims(i) = 1 + elseif (shrink .gt. 1) then + new_dim = floor(float(chunk_dims(i))/float(shrink)) + chunk_dims(i) = rhdf5_find_even_divisor(chunk_dims(i),new_dim) + shrink = 1 + endif + enddo + endif + +return +END SUBROUTINE rhdf5_adjust_chunk_sizes + +!############################################################################## +Subroutine rhdf5_add_null_bytes (sdata,ssize,ndims,dims) + +! This routine will walk through the sdata array adding null bytes +! to the ends of all the strings. + +implicit none + +integer :: ndims, ssize +integer, dimension(*) :: dims +character(len=ssize), dimension(*) :: sdata +integer :: i, ntot + +! No matter what the dimensions of sdata really are, the strings are all +! lined up in contiguous memory, each one spaced apart by ssize bytes. +! Therefore we can treat sdata as a 1D array of strings with length ssize, +! and just step through as many strings as the actual dimensions dicatate. +ntot = 1 +do i = 1, ndims + ntot = ntot * dims(i) +enddo + +do i = 1, ntot + sdata(i) = trim(sdata(i)) // char(0) +enddo + +return +END SUBROUTINE rhdf5_add_null_bytes + +!############################################################################## +Subroutine rhdf5_c2f_string (cstring,fstring,ssize) + +! This routine will convert the C style string (null terminated) in +! cstring and convert it to a FORTRAN style string in fstring. + +implicit none + +integer :: ssize +character(len=ssize) :: cstring +character(len=ssize) :: fstring +integer :: i +integer :: null_pos + + do i = 1, ssize + if (ichar(cstring(i:i)) .eq. 0) then + null_pos = i + exit + endif + enddo + + if (null_pos .gt. 1) then + fstring = cstring(1:null_pos-1) + else + fstring = '' + endif + +return +END SUBROUTINE rhdf5_c2f_string + +!############################################################################## +Subroutine rhdf5_read_dim_name_string (ndims,dimnames,dnstring) + +! This routine will read the dimension name string (dnstring) and load +! up the entries in the dimnames array. The different names in dnstring +! are space separated. + +implicit none + +integer :: ndims,i,j +character(len=RHDF5_MAX_STRING), dimension(ndims) :: dimnames +character(len=RHDF5_MAX_STRING) :: dnstring + + ! initialize dimnames to null strings + do j = 1, ndims + dimnames(j) = '' + enddo + + j = 1 ! index into dimnames + do i = 1, len_trim(dnstring) + if (dnstring(i:i) .ne. ' ') then + ! keep appending dnstring(i) to dimnames(j) + dimnames(j) = trim(dimnames(j)) // dnstring(i:i) + else + ! hit a space, bump j to next entry + j = j + 1 + endif + enddo + +return +END SUBROUTINE rhdf5_read_dim_name_string + +!############################################################################## +Subroutine rhdf5_set_var_to_dim (fileid,vname,dname) + +! This routine will set a "dimension scale" on the given variable so that +! variable can be used as dimensions coordinate values in the hdf5 file. + +implicit none + +integer :: hdferr +integer*8 :: fileid, dsetid +character(len=*) :: vname,dname + + CALL rh5d_open (fileid, trim(vname)//char(0), dsetid, hdferr) + if (hdferr .ne. 0) then + print*,'ERROR: hdf5_set_var_to_dim:' + print*,'cannot open dataset for variable: ',trim(vname) + stop 'hdf5_set_var_to_dim: bad variable read' + endif + + ! set the scale on the variable + ! add a new attribute "axis" to the variable for GRADS + CALL rh5ds_set_scale (dsetid, trim(dname)//char(0), hdferr) + if (hdferr .ne. 0) then + print*,'ERROR: hdf5_set_var_to_dim:' + print*,'cannot set coordinate variable to a dimension' + stop 'hdf5_set_var_to_dim: bad variable set dimension' + endif + + CALL rh5a_write_anyscalar (dsetid,'axis'//char(0),trim(dname)//char(0) & + ,RHDF5_TYPE_STRING, hdferr) + if (hdferr .ne. 0) then + print*,'ERROR: hdf5_set_var_to_dim:' + print*,'cannot add "axis" attribute to variable: ', trim(vname) + stop 'hdf5_set_var_to_dim: bad variable set dimension' + endif + + ! close the dataset + CALL rh5d_close (dsetid,hdferr) + +return +END SUBROUTINE rhdf5_set_var_to_dim + +!############################################################################## +Subroutine rhdf5_attach_dims_to_var (fileid,vname) + +! This routine will attach dimensions specs to the given variable. This +! is done via the HDF5 dimension scaling feature, and the purpose of +! doing the attachment is so that GRADS can read in the resulting +! HDF5 file directly without the use of a descriptor file. + +implicit none + +integer :: i,ndims,hdferr +integer*8 :: fileid, dsetid, dsclid +character(len=*) :: vname +integer, dimension(RHDF5_MAX_DIMS) :: dims +character(len=RHDF5_MAX_STRING) :: units,descrip,dnstring,stemp,coord_name +character(len=RHDF5_MAX_STRING), dimension(RHDF5_MAX_DIMS) :: dimnames + + ! open dataset + CALL rh5d_open (fileid,trim(vname)//char(0),dsetid,hdferr) + if (hdferr .ne. 0) then + print*,'ERROR: hdf5_attach_dims_to_var:' + print*,'cannot open dataset for variable: ',trim(vname) + stop 'hdf5_attach_dims_to_var: bad variable read' + endif + + ! dimensions + CALL rh5d_read_get_dims (dsetid,ndims,dims,hdferr) + if (hdferr .ne. 0) then + print*,'ERROR: hdf5_attach_dims_to_var:' + print*,'cannot obtain dimension information for variable: ',trim(vname) + stop 'hdf5_attach_dims_to_var: bad variable read' + endif + + ! read the DimNames attribute + CALL rh5a_read_anyscalar (dsetid,'DimNames'//char(0),stemp & + ,RHDF5_TYPE_STRING,hdferr) + CALL rhdf5_c2f_string (stemp,dnstring,RHDF5_MAX_STRING) + CALL rhdf5_read_dim_name_string (ndims,dimnames,dnstring) + + ! There is no need to reverse the dimensions since we are going immediately + ! back into the C interface to do the dimension scale attach. + ! + ! Assume that the coordinate information is stored in datasets with names + ! that reflect the dimension names as shown below: + ! dim name dataset name with coordinates + ! x x_coords + ! y y_coords + ! z z_coords + ! t t_coords + ! _coords (in general) + + do i = 1, ndims + coord_name = trim(dimnames(i)) // '_coords' + CALL rh5d_open (fileid,trim(coord_name)//char(0),dsclid,hdferr) + if (hdferr .ne. 0) then + print*,'ERROR: hdf5_attach_dims_to_var:' + print*,'cannot open dataset for coordinates: ',trim(coord_name) + stop 'hdf5_attach_dims_to_var: bad variable read' + endif + + ! do the attach, C indices start with zero so send (i-1) to this routine + CALL rh5ds_attach_scale (dsetid,dsclid,i-1,hdferr) + if (hdferr .ne. 0) then + print*,'ERROR: hdf5_attach_dims_to_var:' + print*,'cannot attach coordinate data to variable:' + print*,'ERROR: Variable dataset: ',trim(vname) + print*,'ERROR: Coordinate dataset: ',trim(coord_name) + stop 'hdf5_attach_dims_to_var: bad variable attach' + endif + + CALL rh5d_close (dsclid,hdferr) + enddo + + + ! close the dataset + CALL rh5d_close (dsetid,hdferr) + +return +END SUBROUTINE rhdf5_attach_dims_to_var + +END MODULE rhdf5_utils + +!############################################################################## +integer Function rhdf5_find_even_divisor (num, div) + +implicit none + +integer :: num,div,i + +rhdf5_find_even_divisor = 1 +do i = div, 1, -1 + if (mod(num, i) .eq. 0) then + rhdf5_find_even_divisor = i + exit + endif +enddo + +return +END FUNCTION rhdf5_find_even_divisor diff --git a/src/6.2.16/revu/textout.f90 b/src/6.2.16/revu/textout.f90 new file mode 100644 index 0000000..de589e8 --- /dev/null +++ b/src/6.2.16/revu/textout.f90 @@ -0,0 +1,920 @@ +!############################################################################## +Subroutine rams_text (a,iztrans,ivtype,nngd,n1,n2,n3,fcstsec & + ,swlat,swlon,nelat,nelon,polelatn,polelonn,cvar) + +! Saleeby: GEMPAK text format +!----------------------------------------------------------------- +! Routine to write RAMS fields in text format as chosen through +! REVUIN. This is intended to be modified at will to produce the +! desired output. Basically, one 3 or 2-dimensional variable at a +! time will be sent here. + +! Arguments: +! ---------- +! cdname - name of variable +! cdunits - units of variable +! a - data +! n1,n2,n3 - actual dimensions of field +! iztrans - type of vertical transformation 1-sigma-z, 2-Cartesian, 3-pressure +! ivtype - type of variable 2-2d surface, 3-3d atmospheric +! nib,nie,njb,nje - horizontal or vertical "window" as chosen in namelist. +! nplevs - number of atmospheric coordinate levels (if pressure transformation) +! iplevs(nplevs)- atmospheric coordinate levels (if pressure transformation) +! zlev - atmospheric coordinate levels (if sigma_z or Cartesian) +! iyear1 - year of model start +! imonth1 - month of model start +! idate1 - date of model start +! itime1 - time of model start (hhmm) +! fcstsec - seconds into run +!----------------------------------------------------------------- + +use an_header +use rcommons +use mem_grid + +implicit none + +integer :: iztrans,ivtype,n1,n2,n3,nngd,ihour2,imin2,idate2,imonth2,iyear2 & + ,jcount,i,j,k,lastslash,iyr2,typlev,jj,kk,zl,z +real :: fcstsec,swlat,swlon,nelat,nelon,polelatn,polelonn,fcstmin,fcsthrs & + ,fcstday,fcstsec1,zlev +real :: a(n1,n2,n3) +character(len=4) :: coordn +character(len=6) :: ngem +character(len=40) :: cvar +character(len=strl1) :: flnm,flnm1,out1,out2 +integer, save :: ncall(maxgrds),iun,iuntag,numgrids & + ,xbeg,xend,ybeg,yend,xinc,yinc,xpts,ypts,iyr1 +real, save :: swlat1,swlon1,nelat1,nelon1 + +data ncall/maxgrds*0/ + +!print*,'===> text out =>',fcstsec +!print*,iyear1,imonth1,idate1,itime1,nngd +!print*,cdname(1:len_trim(cdname)-1),n1,n2,n3 +!print*,iztrans,ivtype +!print*,nib,nie,njb,nje,nnb,nne + +! If it is the first time into this routine, make and open a file. +if(ncall(nngd).eq.0) then + + if(niinc > 2 .or. njinc > 2) then + print*,'Can only use increment of 1 or 2 right now' + stop + endif + + CALL rams_get_cdata (0,1,flnm1) + write(flnm,'(2a,2a1,i4.4,a1,i2.2,a1,i2.2,a1,i6.6,a2,i1)' ) & + revpref(1:len_trim(revpref)) & + ,flnm1(lastslash(flnm1)+1:len_trim(flnm1)-27),ftran,'-' & + ,iyear1,'-',imonth1,'-',idate1,'-',itime1*100,'-g',nngd + + write(out1,'(a,a4)') trim(flnm),'.txt' + iun=79 + open(iun,file=out1,status='unknown') + rewind iun + + write(out2,'(a,a4)') trim(flnm),'.tag' + iuntag=78 + open(iuntag,file=out2,status='unknown') + rewind iuntag + + swlat1 = swlat + swlon1 = swlon + nelat1 = nelat + nelon1 = nelon + xbeg = nib + ybeg = njb + xend = nie + yend = nje + xinc = niinc + yinc = njinc + + xpts=0 + do z=xbeg,xend,xinc + xpts=xpts+1 + enddo + ypts=0 + do z=ybeg,yend,yinc + ypts=ypts+1 + enddo + + if(nje==1) then + ybeg = 1 + yend = 5 + yinc = 1 + ypts = 5 + nelat1 = swlat1 + 1.0 + endif + + if(iyear1 >= 2000) iyr1=iyear1-2000 + if(iyear1 < 2000) iyr1=iyear1-1900 + + !write navigation file for creating gempak grid file + write(iuntag,'(a7,a80)') & + ,'GDEFIL=',out1 + write(iuntag,'(a7,3i2.2,i4.4,a1,i1,a9)') & + ,'GDOUTF=',iyr1,imonth1,idate1,itime1,'g',nngd,'_rams.gem' + write(iuntag,'(a7,3i2.2,i4.4,a1,i1,a9)') & + ,'GDFILE=',iyr1,imonth1,idate1,itime1,'g',nngd,'_rams.gem' + write(iuntag,'(a10,f8.2,a1,f8.2,a5)')'PROJ="str/',polelatn,';',polelonn,';0.0"' + write(iuntag,'(a9,f8.2,a1,f8.2,a1,f8.2,a1,f8.2,a1)') & + ,'GRDAREA="',swlat1,';',swlon1,';',nelat1,';',nelon1,'"' + write(iuntag,'(a7,f8.2,a1,f8.2,a1,f8.2,a1,f8.2,a1)') & + ,'GAREA="',swlat1,';',swlon1,';',nelat1,';',nelon1,'"' + write(iuntag,'(a6,i5,a1,i5,a1)') 'KXKY="',xpts,';',ypts,'"' + + ncall(nngd)=1 + numgrids=0 + +endif + +!************************************************************ +!***** sets correct forecast time for gempak grid file ***** +!************************************************************ +ihour2=int(itime1/100.0) +imin2=itime1-ihour2*100.0 +iyear2=iyear1 +imonth2=imonth1 +idate2=idate1 +fcstsec1=fcstsec +fcstday=fcstsec/86400.0 +if(fcstday >=1) then + idate2=idate2+int(fcstday) + fcstsec1=fcstsec1 - int(fcstday)*86400.0 +endif + +fcsthrs=fcstsec1/3600.0 +if(fcsthrs >=1) then + ihour2=ihour2+int(fcsthrs) + fcstsec1=fcstsec1 - int(fcsthrs)*3600.0 +endif + +fcstmin=fcstsec1/60.0 +if(fcstmin >=1)then + imin2=imin2+int(fcstmin) + fcstsec1=fcstsec1 - int(fcstmin)*60.0 +endif + +if(imin2>=60) then + imin2=imin2-60 + ihour2=ihour2+1 +endif +if(ihour2>=24) then + ihour2=ihour2-24 + idate2=idate2+1 +endif +if(imonth2 == 1.and.idate2 > 31) then + idate2=idate2-31 + imonth2=imonth2+1 +endif +if(imonth2 == 2.and.idate2 > 28.and.mod(iyear2,4)>0) then + idate2=idate2-28 + imonth2=imonth2+1 +endif +if(imonth2 == 2.and.idate2 > 29.and.mod(iyear2,4)==0) then + idate2=idate2-29 + imonth2=imonth2+1 +endif +if(imonth2 == 3.and.idate2 > 31) then + idate2=idate2-31 + imonth2=imonth2+1 +endif +if(imonth2 == 4.and.idate2 > 30) then + idate2=idate2-30 + imonth2=imonth2+1 +endif +if(imonth2 == 5.and.idate2 > 31) then + idate2=idate2-31 + imonth2=imonth2+1 +endif +if(imonth2 == 6.and.idate2 > 30) then + idate2=idate2-30 + imonth2=imonth2+1 +endif +if(imonth2 == 7.and.idate2 > 31) then + idate2=idate2-31 + imonth2=imonth2+1 +endif +if(imonth2 == 8.and.idate2 > 31) then + idate2=idate2-31 + imonth2=imonth2+1 +endif +if(imonth2 == 9.and.idate2 > 30) then + idate2=idate2-30 + imonth2=imonth2+1 +endif +if(imonth2 == 10.and.idate2 > 31) then + idate2=idate2-31 + imonth2=imonth2+1 +endif +if(imonth2 == 11.and.idate2 > 30) then + idate2=idate2-30 + imonth2=imonth2+1 +endif +if(imonth2 == 12.and.idate2 > 31) then + idate2=idate2-31 + imonth2=imonth2+1 + if(imonth2>12) then + iyear2=iyear2+1 + imonth2=1 + endif +endif + +if(fcstsec1 > 0.0) print*,'BAD TIME PROGRESSION: TEST CODE' + +if(iyear2 >= 2000) iyr2=iyear2-2000 +if(iyear2 < 2000) iyr2=iyear2-1900 + +!Specify the grid coordinate that the variable is native to. +zl=1 !Default use of ztn levels on T-grid + +!EMPTY VARIABLES - 1 variables +if(len_trim(cvar).eq.7 .and.cvar(1:7) .eq.'empty3d') ngem='EMT3' + +!AEROSOL AOD - 18 variables +if(len_trim(cvar).eq.15.and.cvar(1:15).eq.'ccn_dry_AOD_550') ngem='ACND' +if(len_trim(cvar).eq.15.and.cvar(1:15).eq.'ccn_wet_AOD_550') ngem='ACNW' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'dust1_dry_AOD_550') ngem='AD1D' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'dust1_wet_AOD_550') ngem='AD1W' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'dust2_dry_AOD_550') ngem='AD2D' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'dust2_wet_AOD_550') ngem='AD2W' +if(len_trim(cvar).eq.23.and.cvar(1:23).eq.'regen_aero1_dry_AOD_550') ngem='AR1D' +if(len_trim(cvar).eq.23.and.cvar(1:23).eq.'regen_aero1_wet_AOD_550') ngem='AR1W' +if(len_trim(cvar).eq.23.and.cvar(1:23).eq.'regen_aero2_dry_AOD_550') ngem='AR2D' +if(len_trim(cvar).eq.23.and.cvar(1:23).eq.'regen_aero2_wet_AOD_550') ngem='AR2W' +if(len_trim(cvar).eq.21.and.cvar(1:21).eq.'salt_film_dry_AOD_550') ngem='ASFD' +if(len_trim(cvar).eq.21.and.cvar(1:21).eq.'salt_film_wet_AOD_550') ngem='ASFW' +if(len_trim(cvar).eq.20.and.cvar(1:20).eq.'salt_jet_dry_AOD_550') ngem='ASJD' +if(len_trim(cvar).eq.20.and.cvar(1:20).eq.'salt_jet_wet_AOD_550') ngem='ASJW' +if(len_trim(cvar).eq.22.and.cvar(1:22).eq.'salt_spume_dry_AOD_550') ngem='ASSD' +if(len_trim(cvar).eq.22.and.cvar(1:22).eq.'salt_spume_wet_AOD_550') ngem='ASSW' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'Total_dry_AOD_550') ngem='ATOD' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'Total_wet_AOD_550') ngem='ATOW' + +!AEROSOL EXTINCTION COEFFICIENT - 18 variables +if(len_trim(cvar).eq.15.and.cvar(1:15).eq.'ccn_dry_ext_550') ngem='ECND' +if(len_trim(cvar).eq.15.and.cvar(1:15).eq.'ccn_wet_ext_550') ngem='ECNW' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'dust1_dry_ext_550') ngem='ED1D' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'dust1_wet_ext_550') ngem='ED1W' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'dust2_dry_ext_550') ngem='ED2D' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'dust2_wet_ext_550') ngem='ED2W' +if(len_trim(cvar).eq.23.and.cvar(1:23).eq.'regen_aero1_dry_ext_550') ngem='ER1D' +if(len_trim(cvar).eq.23.and.cvar(1:23).eq.'regen_aero1_wet_ext_550') ngem='ER1W' +if(len_trim(cvar).eq.23.and.cvar(1:23).eq.'regen_aero2_dry_ext_550') ngem='ER2D' +if(len_trim(cvar).eq.23.and.cvar(1:23).eq.'regen_aero2_wet_ext_550') ngem='ER2W' +if(len_trim(cvar).eq.21.and.cvar(1:21).eq.'salt_film_dry_ext_550') ngem='ESFD' +if(len_trim(cvar).eq.21.and.cvar(1:21).eq.'salt_film_wet_ext_550') ngem='ESFW' +if(len_trim(cvar).eq.20.and.cvar(1:20).eq.'salt_jet_dry_ext_550') ngem='ESJD' +if(len_trim(cvar).eq.20.and.cvar(1:20).eq.'salt_jet_wet_ext_550') ngem='ESJW' +if(len_trim(cvar).eq.22.and.cvar(1:22).eq.'salt_spume_dry_ext_550') ngem='ESSD' +if(len_trim(cvar).eq.22.and.cvar(1:22).eq.'salt_spume_wet_ext_550') ngem='ESSW' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'Total_dry_ext_550') ngem='ETOD' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'Total_wet_ext_550') ngem='ETOW' + +!3D VELOCITY AND VORTICITY VARIABLES - 21 variables +if(len_trim(cvar).eq.1 .and.cvar(1:1) .eq.'u') ngem='UWND' +if(len_trim(cvar).eq.1 .and.cvar(1:1) .eq.'v') ngem='VWND' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'u_avg') ngem='UWDA' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'v_avg') ngem='VWDA' +if(len_trim(cvar).eq.2 .and.cvar(1:2) .eq.'ue') ngem='UEWD' +if(len_trim(cvar).eq.2 .and.cvar(1:2) .eq.'ve') ngem='VEWD' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'ue_avg') ngem='UEWA' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'ve_avg') ngem='VEWA' +if(len_trim(cvar).eq.1 .and.cvar(1:1) .eq.'w') ngem='WWND' +if(len_trim(cvar).eq.4 .and.cvar(1:4) .eq.'wcms') ngem='WCMS' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'w_avg') ngem='WAVG' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'speed') ngem='SPED' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'speed_mph') ngem='SMPH' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'speed10m') ngem='SP10' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'direction') ngem='DRCT' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'relvortx') ngem='XVOR' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'relvorty') ngem='YVOR' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'relvortz') ngem='ZVOR' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'absvortz') ngem='AVOR' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'potvortz') ngem='PVOR' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'horiz_div') ngem='HDIV' + +!3D THERMODYNAMIC PROPERTIES OF AIR - 18 variables +if(len_trim(cvar).eq.2 .and.cvar(1:2) .eq.'pi') ngem='XNER' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'press') ngem='PRES' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'pprime') ngem='PPRM' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'theta_il') ngem='THIL' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'theta') ngem='THTA' +if(len_trim(cvar).eq.3 .and.cvar(1:3) .eq.'dn0') ngem='DEN0' +if(len_trim(cvar).eq.3 .and.cvar(1:3) .eq.'pi0') ngem='XNR0' +if(len_trim(cvar).eq.3 .and.cvar(1:3) .eq.'th0') ngem='THV0' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'pert_pressure') ngem='PERT' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'tempk') ngem='TMPK' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'tempc') ngem='TMPC' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'tempf') ngem='TMPF' +if(len_trim(cvar).eq.7 .and.cvar(1:7) .eq.'theta_e') ngem='THTE' +if(len_trim(cvar).eq.7 .and.cvar(1:7) .eq.'theta_v') ngem='THTV' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'theta_rho') ngem='THTR' +if(len_trim(cvar).eq.15.and.cvar(1:15).eq.'buoyancy_liquid') ngem='BOYL' +if(len_trim(cvar).eq.7 .and.cvar(1:7) .eq.'tempf2m') ngem='TMPF2' +if(len_trim(cvar).eq.7 .and.cvar(1:7) .eq.'tempc2m') ngem='TMPC2' + +!3D HYDROMETEOR GAMMA DISTRIBUTION INFO - 22 variables +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'cloud_gam_dm') ngem='CGDM' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'cloud_gam_d0') ngem='CGD0' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'rain_gam_dm') ngem='RGDM' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'rain_gam_d0') ngem='RGD0' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'rain_gam_lognw') ngem='RGNW' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'rain_gam_sigma') ngem='RGSG' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'snow_gam_dm') ngem='SGDM' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'snow_gam_d0') ngem='SGD0' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'snow_gam_lognw') ngem='SGNW' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'snow_gam_sigma') ngem='SGSG' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'aggr_gam_dm') ngem='AGDM' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'aggr_gam_d0') ngem='AGD0' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'aggr_gam_lognw') ngem='AGNW' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'aggr_gam_sigma') ngem='AGSG' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'grau_gam_dm') ngem='GGDM' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'grau_gam_d0') ngem='GGD0' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'grau_gam_lognw') ngem='GGNW' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'grau_gam_sigma') ngem='GGSG' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'hail_gam_dm') ngem='HGDM' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'hail_gam_d0') ngem='HGD0' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'hail_gam_lognw') ngem='HGNW' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'hail_gam_sigma') ngem='HGSG' + +!3D MOISTURE MASS MIXING RATIOS AND HUMIDITY - 37 variables +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'vapr_press') ngem='VPRS' +if(len_trim(cvar).eq.4 .and.cvar(1:4) .eq.'rslf') ngem='RSLF' +if(len_trim(cvar).eq.4 .and.cvar(1:4) .eq.'rsif') ngem='RSIF' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'vapor') ngem='VMIX' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'cloud') ngem='CMIX' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'cloud_m3') ngem='CMXV' +if(len_trim(cvar).eq.4 .and.cvar(1:4) .eq.'rain') ngem='RMIX' +if(len_trim(cvar).eq.7 .and.cvar(1:7) .eq.'rain_m3') ngem='RMXV' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'pristine') ngem='PMIX' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'pristine_m3') ngem='PMXV' +if(len_trim(cvar).eq.4 .and.cvar(1:4) .eq.'snow') ngem='SMIX' +if(len_trim(cvar).eq.7 .and.cvar(1:7) .eq.'snow_m3') ngem='SMXV' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'aggregates') ngem='AMIX' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'aggregates_m3') ngem='AMXV' +if(len_trim(cvar).eq.7 .and.cvar(1:7) .eq.'graupel') ngem='GMIX' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'graupel_m3') ngem='GMXV' +if(len_trim(cvar).eq.4 .and.cvar(1:4) .eq.'hail') ngem='HMIX' +if(len_trim(cvar).eq.7 .and.cvar(1:7) .eq.'hail_m3') ngem='HMXV' +if(len_trim(cvar).eq.7 .and.cvar(1:7) .eq.'drizzle') ngem='DMIX' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'drizzle_m3') ngem='DMXV' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'prissnowagg') ngem='PSAM' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'grauphail') ngem='GHMX' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'liquid') ngem='LMIX' +if(len_trim(cvar).eq.3 .and.cvar(1:3) .eq.'ice') ngem='IMIX' +if(len_trim(cvar).eq.18.and.cvar(1:18).eq.'ctop_tempc_sstbase') ngem='CTST' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'ctop_tempc_nobase') ngem='CTOP' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'total_cond') ngem='TMIX' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'total_cond_m3') ngem='TMXV' +if(len_trim(cvar).eq.7 .and.cvar(1:7) .eq.'r_total') ngem='MIXS' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'rtotal_orig') ngem='MIXT' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'dewptk') ngem='DWPK' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'dewptf') ngem='DWPF' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'dewptc') ngem='DWPC' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'relhum') ngem='RELH' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'relhum_frac') ngem='RHFR' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'clear_frac') ngem='CLRF' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'cloud_frac') ngem='CLDF' + +!3D HYDROMETEOR NUMBER CONCENTRATIONS - 22 variables +if(len_trim(cvar).eq.15.and.cvar(1:15).eq.'cloud_concen_mg') ngem='CNMG' +if(len_trim(cvar).eq.15.and.cvar(1:15).eq.'cloud_concen_kg') ngem='CNKG' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'rain_concen_kg') ngem='RNKG' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'pris_concen_mg') ngem='PNMG' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'pris_concen_kg') ngem='PNKG' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'snow_concen_kg') ngem='SNKG' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'agg_concen_kg') ngem='ANKG' +if(len_trim(cvar).eq.15.and.cvar(1:15).eq.'graup_concen_kg') ngem='GNKG' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'hail_concen_kg') ngem='HNKG' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'drizzle_concen_mg') ngem='DNMG' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'drizzle_concen_kg') ngem='DNKG' +if(len_trim(cvar).eq.16.and.cvar(1:16).eq.'cloud_concen_cm3') ngem='CNC3' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'rain_concen_m3') ngem='RNM3' +if(len_trim(cvar).eq.15.and.cvar(1:15).eq.'rain_concen_dm3') ngem='RND3' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'pris_concen_m3') ngem='PNM3' +if(len_trim(cvar).eq.15.and.cvar(1:15).eq.'pris_concen_cm3') ngem='PNC3' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'snow_concen_m3') ngem='SNM3' +if(len_trim(cvar).eq.15.and.cvar(1:15).eq.'snow_concen_cm3') ngem='SNC3' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'agg_concen_m3') ngem='ANM3' +if(len_trim(cvar).eq.15.and.cvar(1:15).eq.'graup_concen_m3') ngem='GNM3' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'hail_concen_m3') ngem='HNM3' +if(len_trim(cvar).eq.18.and.cvar(1:18).eq.'drizzle_concen_cm3') ngem='DNC3' + +!HUCM-SBM SPECIFIC MICROPHYSICS – 18 variables +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'ice_plates') ngem='IPMX' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'ice_columns') ngem='ICMX' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'ice_dendrites') ngem='IDMX' +if(len_trim(cvar).eq.16.and.cvar(1:16).eq.'plates_concen_mg') ngem='PCMG' +if(len_trim(cvar).eq.16.and.cvar(1:16).eq.'plates_concen_kg') ngem='PCKG' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'columns_concen_mg') ngem='CCMG' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'columns_concen_kg') ngem='CCKG' +if(len_trim(cvar).eq.19.and.cvar(1:19).eq.'dendrites_concen_mg') ngem='DCMG' +if(len_trim(cvar).eq.19.and.cvar(1:19).eq.'dendrites_concen_kg') ngem='DCKG' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'pcpvip') ngem='PVIP' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'pcpvic') ngem='PVIC' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'pcpvid') ngem='PVID' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'pcprip') ngem='PRIP' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'pcpric') ngem='PRIC' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'pcprid') ngem='PRID' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'accpip') ngem='ACIP' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'accpic') ngem='ACIC' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'accpid') ngem='ACID' + +!3D AEROSOLS NUMBER, MASS, SIZE, SOLUBILITY - 37 variables +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'ifn_concen_mg') ngem='IFNM' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'ifn_concen_cm3') ngem='IFNC' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'ccn_concen_mg') ngem='CCNM' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'ccn_concen_cm3') ngem='CCNC' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'gccn_concen_mg') ngem='GCNM' +if(len_trim(cvar).eq.15.and.cvar(1:15).eq.'gccn_concen_cm3') ngem='GCNC' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'dust1_concen') ngem='D1CN' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'dust2_concen') ngem='D2CN' +if(len_trim(cvar).eq.16.and.cvar(1:16).eq.'salt_film_concen') ngem='SFCN' +if(len_trim(cvar).eq.15.and.cvar(1:15).eq.'salt_jet_concen') ngem='SJCN' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'salt_spume_concen') ngem='SSCN' +if(len_trim(cvar).eq.18.and.cvar(1:18).eq.'regen_aero1_concen') ngem='R1CN' +if(len_trim(cvar).eq.18.and.cvar(1:18).eq.'regen_aero2_concen') ngem='R2CN' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'ccn_mass') ngem='CCCM' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'gccn_mass') ngem='GCCM' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'dust1_mass') ngem='D1CM' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'dust1_massd10') ngem='D1CM' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'dust2_mass') ngem='D2CM' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'dust2_massd10') ngem='D2CM' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'salt_film_mass') ngem='SFCM' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'salt_jet_mass') ngem='SJCM' +if(len_trim(cvar).eq.15.and.cvar(1:15).eq.'salt_spume_mass') ngem='SSCM' +if(len_trim(cvar).eq.16.and.cvar(1:16).eq.'regen_aero1_mass') ngem='R1CM' +if(len_trim(cvar).eq.16.and.cvar(1:16).eq.'regen_aero2_mass') ngem='R2CM' +if(len_trim(cvar).eq.16.and.cvar(1:16).eq.'resol_aero1_mass') ngem='R1SM' +if(len_trim(cvar).eq.16.and.cvar(1:16).eq.'resol_aero2_mass') ngem='R2SM' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'regen1_epsilon') ngem='R1EP' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'regen2_epsilon') ngem='R2EP' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'ccn_medrad') ngem='CCCR' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'gccn_medrad') ngem='GCCR' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'dust1_medrad') ngem='D1CR' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'dust2_medrad') ngem='D2CR' +if(len_trim(cvar).eq.16.and.cvar(1:16).eq.'salt_film_medrad') ngem='SFCR' +if(len_trim(cvar).eq.15.and.cvar(1:15).eq.'salt_jet_medrad') ngem='SJCR' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'salt_spume_medrad') ngem='SSCR' +if(len_trim(cvar).eq.18.and.cvar(1:18).eq.'regen_aero1_medrad') ngem='R1CR' +if(len_trim(cvar).eq.18.and.cvar(1:18).eq.'regen_aero2_medrad') ngem='R2CR' + +!3D AEROSOL TRACKING VARIABLES - 41 variables +if(len_trim(cvar).eq.18.and.cvar(1:18).eq.'aerosol_cloud_mass') ngem='ARMC' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'aerosol_rain_mass') ngem='ARMR' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'aerosol_pris_mass') ngem='ARMP' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'aerosol_snow_mass') ngem='ARMS' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'aerosol_aggr_mass') ngem='ARMA' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'aerosol_grau_mass') ngem='ARMG' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'aerosol_hail_mass') ngem='ARMH' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'aerosol_driz_mass') ngem='ARMD' +if(len_trim(cvar).eq.18.and.cvar(1:18).eq.'aerosol_hydro_mass') ngem='ARHY' +if(len_trim(cvar).eq.18.and.cvar(1:18).eq.'soluble_cloud_mass') ngem='SLMC' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'soluble_rain_mass') ngem='SLMR' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'soluble_pris_mass') ngem='SLMP' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'soluble_snow_mass') ngem='SLMS' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'soluble_aggr_mass') ngem='SLMA' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'soluble_grau_mass') ngem='SLMG' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'soluble_hail_mass') ngem='SLMH' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'soluble_driz_mass') ngem='SLMD' +if(len_trim(cvar).eq.18.and.cvar(1:18).eq.'soluble_hydro_mass') ngem='SLHY' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'aero_epsilon') ngem='EPSI' +if(len_trim(cvar).eq.15.and.cvar(1:15).eq.'dust_cloud_mass') ngem='DUMC' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'dust_rain_mass') ngem='DUMR' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'dust_pris_mass') ngem='DUMP' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'dust_snow_mass') ngem='DUMS' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'dust_aggr_mass') ngem='DUMA' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'dust_grau_mass') ngem='DUMG' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'dust_hail_mass') ngem='DUMH' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'dust_driz_mass') ngem='DUMD' +if(len_trim(cvar).eq.15.and.cvar(1:15).eq.'dust_hydro_mass') ngem='DUHY' +if(len_trim(cvar).eq.18.and.cvar(1:18).eq.'dustifn_cloud_mass') ngem='DINC' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'dustifn_rain_mass') ngem='DINR' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'dustifn_pris_mass') ngem='DINP' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'dustifn_snow_mass') ngem='DINS' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'dustifn_aggr_mass') ngem='DINA' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'dustifn_grau_mass') ngem='DING' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'dustifn_hail_mass') ngem='DINH' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'dustifn_driz_mass') ngem='DIND' +if(len_trim(cvar).eq.18.and.cvar(1:18).eq.'dustifn_hydro_mass') ngem='DIHY' +if(len_trim(cvar).eq.16.and.cvar(1:16).eq.'ifn_nuc_numtrack') ngem='INTR' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'ifn_incloud') ngem='CICN' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'ifn_indriz') ngem='DICN' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'ifn_inrain') ngem='RICN' + +!3D VERTICAL VELOSITY AND MICROPHYSICAL INSTANTANEOUS BUDGETS - 15 variables +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'wp_advdif') ngem='WPAD' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'wp_buoy_theta') ngem='WPTH' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'wp_buoy_cond') ngem='WPCD' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'latheatvap') ngem='LHVP' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'latheatfrz') ngem='LHFZ' +if(len_trim(cvar).eq.7 .and.cvar(1:7) .eq.'nuccldr') ngem='NUCR' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'cld2rain') ngem='CL2R' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'ice2rain') ngem='IC2R' +if(len_trim(cvar).eq.7 .and.cvar(1:7) .eq.'nucicer') ngem='NUIR' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'vapliq') ngem='VAPL' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'vapice') ngem='VAPI' +if(len_trim(cvar).eq.7 .and.cvar(1:7) .eq.'meltice') ngem='MELT' +if(len_trim(cvar).eq.7 .and.cvar(1:7) .eq.'rimecld') ngem='RIMC' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'rain2ice') ngem='R2IC' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'aggregate') ngem='AGGR' + +!3D MICROPHYSICAL TOTAL BUDGETS - 55 variables +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'nuccldrt') ngem='NUCRT' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'cld2raint') ngem='CL2RT' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'ice2raint') ngem='IC2RT' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'nucicert') ngem='NUIRT' +if(len_trim(cvar).eq.7 .and.cvar(1:7) .eq.'vapliqt') ngem='VAPLT' +if(len_trim(cvar).eq.7 .and.cvar(1:7) .eq.'vapicet') ngem='VAPIT' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'melticet') ngem='MELTT' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'rimecldt') ngem='RIMCT' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'rain2icet') ngem='R2ICT' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'aggregatet') ngem='AGGRT' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'latheatvapt') ngem='LHVPT' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'latheatfrzt') ngem='LHFZT' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'inuchomrt') ngem='IHMRT' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'inuccontrt') ngem='ICORT' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'inucifnrt') ngem='IINRT' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'inuchazrt') ngem='IHZRT' +if(len_trim(cvar).eq.7 .and.cvar(1:7) .eq.'vapcldt') ngem='VAPCT' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'vapraint') ngem='VAPRT' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'vapprist') ngem='VAPPT' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'vapsnowt') ngem='VAPST' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'vapaggrt') ngem='VAPAT' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'vapgraut') ngem='VAPGT' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'vaphailt') ngem='VAPHT' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'vapdrizt') ngem='VAPDT' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'meltprist') ngem='MELPT' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'meltsnowt') ngem='MELST' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'meltaggrt') ngem='MELAT' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'meltgraut') ngem='MELGT' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'melthailt') ngem='MELHT' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'rimecldsnowt') ngem='RIMST' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'rimecldaggrt') ngem='RIMAT' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'rimecldgraut') ngem='RIMGT' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'rimecldhailt') ngem='RIMHT' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'rain2prt') ngem='R2PRT' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'rain2snt') ngem='R2SNT' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'rain2agt') ngem='R2AGT' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'rain2grt') ngem='R2GRT' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'rain2hat') ngem='R2HAT' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'aggrselfprist') ngem='AGPPT' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'aggrselfsnowt') ngem='AGSST' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'aggrprissnowt') ngem='AGPST' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'dust1cldrt') ngem='D1CRT' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'dust2cldrt') ngem='D2CRT' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'dust1drzrt') ngem='D1DRT' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'dust2drzrt') ngem='D2DRT' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'vt_nuccldrt') ngem='VNUCRT' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vt_cld2raint') ngem='VCL2RT' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vt_ice2raint') ngem='VIC2RT' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'vt_nucicert') ngem='VNUIRT' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'vt_vapliqt') ngem='VVAPLT' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'vt_vapicet') ngem='VVAPIT' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'vt_melticet') ngem='VMELTT' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'vt_rimecldt') ngem='VRIMCT' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vt_rain2icet') ngem='VR2ICT' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'vt_aggregatet') ngem='VAGGRT' + +!3D HYDROMETEOR DIAMETERS - 9 variables +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'cloudtop_diam') ngem='TDIM' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'cloud_diam') ngem='CDIM' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'rain_diam') ngem='RDIM' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'pris_diam') ngem='PDIM' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'snow_diam') ngem='SDIM' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'agg_diam') ngem='ADIM' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'graup_diam') ngem='GDIM' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'hail_diam') ngem='HDIM' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'drizzle_diam') ngem='DDIM' + +!3D HYDROMETEOR TEMPERATURE, ENERGY, LIQUID FRACTION - 11 variables +if(len_trim(cvar).eq.2 .and.cvar(1:2) .eq.'q2') ngem='Q2RA' +if(len_trim(cvar).eq.2 .and.cvar(1:2) .eq.'q6') ngem='Q6GR' +if(len_trim(cvar).eq.2 .and.cvar(1:2) .eq.'q7') ngem='Q7HA' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'rain_temp') ngem='RTMP' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'graup_temp') ngem='GTMP' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'hail_temp') ngem='HTMP' +if(len_trim(cvar).eq.16.and.cvar(1:16).eq.'rain_air_tempdif') ngem='RATD' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'graup_air_tempdif') ngem='GATD' +if(len_trim(cvar).eq.16.and.cvar(1:16).eq.'hail_air_tempdif') ngem='HATD' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'graup_fracliq') ngem='GLIQ' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'hail_fracliq') ngem='HLIQ' + +!3D MISCELLANEOUS FIELDS - 4 variables +if(len_trim(cvar).eq.3 .and.cvar(1:3) .eq.'geo') ngem='HGHT' +if(len_trim(cvar).eq.3 .and.cvar(1:3) .eq.'tke') ngem='TKET' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'pbl_ht') ngem='PBLH' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'reflect_all') ngem='DBZZ' + +!CUMULUS PARM - RADIATION - TURBULENCE PARAMETERS - 15 variables +if(len_trim(cvar).eq.15.and.cvar(1:15).eq.'cuparm_thetasrc') ngem='CVHR' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'cuparm_rtsrc') ngem='CVMR' +if(len_trim(cvar).eq.3 .and.cvar(1:3) .eq.'khh') ngem='KHHC' +if(len_trim(cvar).eq.3 .and.cvar(1:3) .eq.'khv') ngem='KHVC' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'visibility') ngem='VISB' +if(len_trim(cvar).eq.4 .and.cvar(1:4) .eq.'swup') ngem='SWUP' +if(len_trim(cvar).eq.4 .and.cvar(1:4) .eq.'swdn') ngem='SWDN' +if(len_trim(cvar).eq.4 .and.cvar(1:4) .eq.'lwup') ngem='LWUP' +if(len_trim(cvar).eq.4 .and.cvar(1:4) .eq.'lwdn') ngem='LWDN' +if(len_trim(cvar).eq.4 .and.cvar(1:4) .eq.'aodt') ngem='AODT' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'rad_thetasrc') ngem='RAHR' +if(len_trim(cvar).eq.18.and.cvar(1:18).eq.'column_net_rad_flx') ngem='NETR' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'sum_rad_flx') ngem='NETF' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'sw_heat_rate') ngem='SWHT' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'lw_heat_rate') ngem='LWHT' + +!2D SURFACE PRECIPITATION and VERTICALLY INTEGRATED FIELDS - 55 variables +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'accpr') ngem='ACCR' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'accpp') ngem='ACCP' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'accps') ngem='ACCS' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'accpa') ngem='ACCA' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'accpg') ngem='ACCG' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'accph') ngem='ACCH' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'accpd') ngem='ACCD' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'accpaero') ngem='ACTA' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'accpdust') ngem='ACDU' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'dustfrac') ngem='DFRC' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'totpcp') ngem='TRPM' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'totpcp_in') ngem='TRPI' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'precip') ngem='TAPM' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'precip_in') ngem='TAPI' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'pcprr') ngem='PCRR' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'pcpvr') ngem='PCVR' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'pcprp') ngem='PCRP' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'pcpvp') ngem='PCVP' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'pcprs') ngem='PCRS' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'pcpvs') ngem='PCVS' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'pcpra') ngem='PCRA' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'pcpva') ngem='PCVA' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'pcprg') ngem='PCRG' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'pcpvg') ngem='PCVG' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'pcprh') ngem='PCRH' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'pcpvh') ngem='PCVH' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'pcprd') ngem='PCRD' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'pcpvd') ngem='PCVD' +if(len_trim(cvar).eq.4 .and.cvar(1:4) .eq.'pcpg') ngem='PCPG' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'qpcpg') ngem='PCPQ' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'dpcpg') ngem='PCPD' +if(len_trim(cvar).eq.7 .and.cvar(1:7) .eq.'pcprate') ngem='PRRM' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'pcprate_in') ngem='PRRI' +if(len_trim(cvar).eq.7 .and.cvar(1:7) .eq.'precipr') ngem='PRTM' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'precipr_in') ngem='PRTI' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'conpcp') ngem='CNPR' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'acccon') ngem='ACON' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'vertmax_w') ngem='VMXW' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'vertavg_w') ngem='VAVW' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vertint_cond') ngem='COND' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'vertint_rt') ngem='WATR' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vertint_orig') ngem='VERT' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'vertint_vapor') ngem='VRTV' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'vertint_liq') ngem='VRTL' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'vertint_ice') ngem='VRTI' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'vertint_cloud') ngem='VRTC' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vertint_driz') ngem='VRTD' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vertint_rain') ngem='VRTR' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vertint_pris') ngem='VRTP' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vertint_snow') ngem='VRTS' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vertint_aggr') ngem='VRTA' +if(len_trim(cvar).eq.15.and.cvar(1:15).eq.'vertint_graupel') ngem='VRTG' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vertint_hail') ngem='VRTH' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'vertint_dust') ngem='VTDU' +if(len_trim(cvar).eq.18.and.cvar(1:18).eq.'vertint_dust_hydro') ngem='VTDH' + +!2D SEA ICE COVERAGE, DEPTH, ROUGHNESS, TEMP, SNOW COVER - 5 variables +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'snowdepthonice') ngem='DEPS' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'cicedepth') ngem='DEPI' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'cicefract') ngem='ICEF' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'cicetemp') ngem='ICET' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'cicerough') ngem='ICER' + +!2D SURFACE HEAT, MOISTURE, MOMENTUM AND RADIATIVE FLUXES - 12 variables +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'sens_flux') ngem='SFLX' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'lat_flux') ngem='LFLX' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'etrans') ngem='EVAP' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'etrans_in') ngem='ETRI' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'umom_flx') ngem='UFLX' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'vmom_flx') ngem='VFLX' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'wmom_flx') ngem='WFLX' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'bowen') ngem='BOWN' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'rshort') ngem='RSHT' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'rlong') ngem='RLON' +if(len_trim(cvar).eq.7 .and.cvar(1:7) .eq.'rlongup') ngem='RLNU' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'albedt') ngem='ALBE' + +!2D TOPOGRAPHY AND GEOGRAPHIC VALUES - 3 variables +if(len_trim(cvar).eq.4 .and.cvar(1:4) .eq.'topt') ngem='TOPT' +if(len_trim(cvar).eq.3 .and.cvar(1:3) .eq.'lat') ngem='LATI' +if(len_trim(cvar).eq.3 .and.cvar(1:3) .eq.'lon') ngem='LONG' + +!2D MISCELLANEOUS FIELDS - 3 variables +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'sea_press') ngem='MSLP' +if(len_trim(cvar).eq.7 .and.cvar(1:7) .eq.'sfc_div') ngem='SDIV' +if(len_trim(cvar).eq.3 .and.cvar(1:3) .eq.'sst') ngem='SSTC' + +!LEAF/SIB VARIABLES SECTION - 34 variables +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'patch_area') ngem='PFRA' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'water') ngem='OCEN' +if(len_trim(cvar).eq.4 .and.cvar(1:4) .eq.'land') ngem='LAND' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'snow_levels') ngem='SNOL' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'snow_depth_ps') ngem='SNOD' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'snow_mass_ps') ngem='SNOM' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'snow_temp_ps') ngem='SNOT' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'topo_z0_ps') ngem='TRUF' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'net_z0_ps') ngem='NRUF' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'soil_z0_ps') ngem='SRUF' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'veg_z0_ps') ngem='VRUF' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'veg_ndvi_ps') ngem='NDVI' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'veg_class_bp') ngem='VEGC' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'veg_albedo_ps') ngem='VEGA' +if(len_trim(cvar).eq.15.and.cvar(1:15).eq.'veg_fracarea_ps') ngem='VEGF' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'veg_lai_ps') ngem='LAIF' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'veg_disp_ps') ngem='VDIS' +if(len_trim(cvar).eq.16.and.cvar(1:16).eq.'canopy_mixrat_ps') ngem='CANM' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'grnd_mixrat_ps') ngem='GRDM' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'soil_mixrat_ps') ngem='SOIM' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'veg_moist_ps') ngem='VEGM' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'veg_temp_ps') ngem='VEGT' +if(len_trim(cvar).eq.15.and.cvar(1:15).eq.'canopy_tempc_ps') ngem='CANC' +if(len_trim(cvar).eq.15.and.cvar(1:15).eq.'canopy_tempf_ps') ngem='CANF' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'ustar_ps') ngem='USTR' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'tstar_ps') ngem='TSTR' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'rstar_ps') ngem='RSTR' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'sltex_bp') ngem='SLTX' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'soilq_ps') ngem='SOIQ' +if(len_trim(cvar).eq.12.and.cvar(1:12).eq.'soil_temp_ps') ngem='SOIT' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'soil_moist_ps') ngem='SLMS' +if(len_trim(cvar).eq.17.and.cvar(1:17).eq.'soil_moistfrac_ps') ngem='SLMF' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'5050_tempc_ps') ngem='50TC' +if(len_trim(cvar).eq.13.and.cvar(1:13).eq.'5050_tempf_ps') ngem='50TF' + +!SIB VARIABLES SECTION - 40 variables +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'co2_concen') ngem='CO2C' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'snow1_ps') ngem='SNO1' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'snow2_ps') ngem='SNO2' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'capac1_ps') ngem='CAP1' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'capac2_ps') ngem='CAP2' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'pco2ap_ps') ngem='PCOA' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'co2flx_ps') ngem='CO2F' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'sfcswa_ps') ngem='SFAL' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'uplwrf_ps') ngem='SFUP' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'assimn_ps') ngem='ASSM' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'respg_ps') ngem='RESP' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'rstfac1_ps') ngem='RST1' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'rstfac2_ps') ngem='RST2' +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'rstfac3_ps') ngem='RST3' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'ect_ps') ngem='ECTF' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'eci_ps') ngem='ECIF' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'egi_ps') ngem='EGIF' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'egs_ps') ngem='EGSF' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'hc_ps') ngem='HCFX' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'hg_ps') ngem='HGFX' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'ra_ps') ngem='RAST' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'rb_ps') ngem='RBST' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'rc_ps') ngem='RCST' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'rd_ps') ngem='RDST' +if(len_trim(cvar).eq.7 .and.cvar(1:7) .eq.'roff_ps') ngem='ROFF' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'green_ps') ngem='GREN' +if(len_trim(cvar).eq.7 .and.cvar(1:7) .eq.'apar_ps') ngem='APAR' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'ventmf_ps') ngem='VENT' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'pco2c_ps') ngem='PCOC' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'pco2i_ps') ngem='PCOI' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'pco2s_ps') ngem='PCOS' +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'pco2m_ps') ngem='PCOM' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'ea_ps') ngem='EAPR' +if(len_trim(cvar).eq.5 .and.cvar(1:5) .eq.'em_ps') ngem='EMPR' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'rha_ps') ngem='RHAC' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'radvbc_ps') ngem='RVDR' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'radvdc_ps') ngem='RVDF' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'radnbc_ps') ngem='RNDR' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'radndc_ps') ngem='RNDF' +if(len_trim(cvar).eq.6 .and.cvar(1:6) .eq.'psy_ps') ngem='PSYC' + +!KPP OCEAN MIXED LAYER MODEL VARIABLES - 10 variables +if(len_trim(cvar).eq.8 .and.cvar(1:8) .eq.'kpp_hmix') ngem='KHMX' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'kpp_ocdepth') ngem='KOCD' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'kpp_flx_ust') ngem='KFUS' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'kpp_flx_vst') ngem='KFVS' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'kpp_flx_nsw') ngem='KNSW' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'kpp_flx_nlw') ngem='KNLW' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'kpp_flx_ice') ngem='KICE' +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'kpp_flx_pcp') ngem='KPCP' +if(len_trim(cvar).eq.14.and.cvar(1:14).eq.'kpp_depth_temp') ngem='KDTP' +if(len_trim(cvar).eq.18.and.cvar(1:18).eq.'kpp_depth_salinity') ngem='KDSL' + +!TRACER FIELDS SECTION - 6 variables +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'tracer001') ngem='T001' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'tracer002') ngem='T002' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'tracer003') ngem='T003' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'tracer004') ngem='T004' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'tracer005') ngem='T005' +if(len_trim(cvar).eq.9 .and.cvar(1:9) .eq.'tracer006') ngem='T006' + + +!SET SPECIAL FLAG FOR VARIABLES OUTPUT ON ZM LEVELS +if(len_trim(cvar).eq.10.and.cvar(1:10).eq.'visibility') zl=2 +if(len_trim(cvar).eq.4 .and.cvar(1:4) .eq.'swup') zl=2 +if(len_trim(cvar).eq.4 .and.cvar(1:4) .eq.'swdn') zl=2 +if(len_trim(cvar).eq.4 .and.cvar(1:4) .eq.'lwup') zl=2 +if(len_trim(cvar).eq.4 .and.cvar(1:4) .eq.'lwdn') zl=2 +if(len_trim(cvar).eq.11.and.cvar(1:11).eq.'sum_rad_flx') zl=2 +if(len_trim(cvar).eq.1 .and.cvar(1:1) .eq.'w') zl=2 +if(len_trim(cvar).eq.4 .and.cvar(1:4) .eq.'wcms') zl=2 + +!***************************************************************************** +!**** Begin extracting the data ********************************************** +!***************************************************************************** +if(ivtype.ge.2) then + + if(iztrans.eq.1.or.iztrans.eq.2) coordn='HGHT' !Sigma or cartesian coordinate + if(iztrans.eq.3) coordn='PRES' !Pressure coordinate + + ! If this is a 3-dimensional atmospheric variable + do k=nnb,nne,nninc + + !2D variables + if(ivtype==2) then + typlev=0 + coordn='NONE' + endif + !LEAF surface model variables + if(ivtype==4 .or. ivtype==5) then + typlev=k + coordn='NONE' !outputs over number of soil or snow layers + endif + !3D variables + if(ivtype==3) then + if(iztrans.eq.1.or.iztrans.eq.2) then + if(zl==1) typlev=int(ztn(k,nngd)) ! T-vertical stagger (scalars) + if(zl==2) typlev=int(zmn(k,nngd)) ! M-vertical stagger (W,radfluxes) + endif + if(iztrans.eq.3) typlev=int(iplevs(k)) + endif + !Patch variables + if(ivtype==6) then + typlev=k + coordn='NONE' !outputs over number of patches + endif + + !Advance the number of grid output thus far + numgrids=numgrids+1 + + !Write gempak grid header information + write(iun,*) + write(iun,*) + write(iun,'(a12,3i2.2,i4.4,a9)') & + ,' Grid file: ',iyr1,imonth1,idate1,itime1,'_rams.gem' + write(iun,'(a17)'),' GRID IDENTIFIER:' + write(iun,'(a60)') & + ,' TIME1 TIME2 LEVL1 LEVL2 VCORD PARM' + write(iun,'(3i2.2,a1,2i2.2,24X,i6,10X,a4,1X,a5)') & + ,iyr2,imonth2,idate2,'/',ihour2,imin2,typlev,coordn,ngem + write(iun,'(a6,f7.2,a1,f8.2,a1,f7.2,a1,f8.2,18X,a13,2i5)') & + ,' AREA:',swlat1,';',swlon1,';',nelat1,';',nelon1 & + ,'GRID SIZE: ',xpts,ypts + +!################################################################## +!DIFFERENT WAYS TO WRITE THE COLUMNS + write(iun,'(a17,i3,a18,i3)') & + ,' COLUMNS: 1 ',xpts,' ROWS: 1 ',ypts +! write(iun,'(a12,i3,a2,i3,a13,i3,a2,i3)') & +! ,' COLUMNS: ',xbeg,' ',xend,' ROWS: ',ybeg,' ',yend +!################################################################## + + write(iun,*) + write(iun,'(a21)') ' Scale factor: 10** 0' + write(iun,*) + write(iun,*) + write(iun,'(a8,i7,2X,i7,2X,i7,2X,i7,2X,i7,2X,i7,2X,i7,2X,i7)') & + ' COLUMN:',(i,i=1,8) + write(iun,'(8X,i7,2X,i7,2X,i7,2X,i7,2X,i7,2X,i7,2X,i7,2X,i7)') & + (i,i=9,xpts) + + !Determine how to write out arrays depending on vtype/dimension + !and if simulation is 2D or 3D + if(ivtype.eq.2) kk=1 + if(ivtype.ge.3) kk=k + jj=1 + + jcount=ypts + do j=yend,ybeg,-yinc + if(nje>1)jj=j + write(iun,'(a4,i3,a4,8e14.6)') & + ' ROW',jcount,' ',(a(i,jj,kk),i=xbeg,(7*xinc+xbeg),xinc) + write(iun,'(11X,8e14.6)') (a(i,jj,kk),i=(7*xinc+xbeg+xinc),xend,xinc) + jcount=jcount-1 + enddo + + enddo !loop k-levels + + write(iuntag,'(a9,i5,a1)'),'NUMGRDS="',numgrids,'"' + backspace iuntag + +else + print*,'unknown ivtype',ivtype + stop 'RAMS_text' +endif + +return +END SUBROUTINE rams_text diff --git a/src/6.2.16/revu/vplt.f90 b/src/6.2.16/revu/vplt.f90 new file mode 100644 index 0000000..406067d --- /dev/null +++ b/src/6.2.16/revu/vplt.f90 @@ -0,0 +1,143 @@ +!############################################################################## +Subroutine rams_fill_fld (n1,n2,n3,a,b,bb,prefile,ngrd,cvar & + ,iztrans,cdname,cdunits,ivtype,topt) + +use mem_grid +use rcommons, only:nplevs + +implicit none + +integer :: n1,n2,n3,ngrd,iztrans,ivtype,iplim +real :: a(*),b(*),bb(*),topt(*) +character(len=*) :: prefile,cvar,cdname,cdunits +character(len=24) :: fdname,fdunits + +CALL rams_varlib (cvar,n1,n2,n3,ngrd,a,b,prefile,cdname,cdunits) +CALL rams_varinfo (1,ivtype,iplim) +CALL rams_varlib ('topt',n1,n2,1,ngrd,topt,b,prefile,fdname,fdunits) + + +if(iztrans.eq.2.and.ivtype.eq.3) then + CALL rams_ctrans (n1,n2,n3,a,b,topt,ztn(1,ngrd),zmn(nnzp(1)-1,1)) +elseif(iztrans.eq.3.and.ivtype.eq.3) then + CALL rams_varlib ('pi',n1,n2,n3,ngrd,bb,b,prefile,fdname,fdunits) + CALL rams_ptrans (n1,n2,n3,a,bb,b,iplim) +endif + +if(iztrans.eq.3.and.ivtype.eq.3) then + CALL rams_value_limit (n1,n2,nplevs,a) +else + CALL rams_value_limit (n1,n2,n3,a) +endif + +return +END SUBROUTINE rams_fill_fld + +!############################################################################## +Subroutine rams_value_limit (n1,n2,n3,a) + +use rcommons + +implicit none + +!This routine keeps values from being too small since some output +!packages cannot handle really small values due to precision. + +integer :: i,j,k,n1,n2,n3 +real :: a(n1,n2,n3) + +do j=1,n2 + do i=1,n1 + do k=1,n3 + if(a(i,j,k)>0.) a(i,j,k)=max(1.e-20,a(i,j,k)) + if(a(i,j,k)<0.) a(i,j,k)=min(-1.e-20,a(i,j,k)) + enddo + enddo +enddo + +return +END SUBROUTINE rams_value_limit + +!############################################################################## +Subroutine rams_ptrans (n1,n2,n3,a,pi,b,iplim) + +use rcommons + +implicit none + +integer :: i,j,k,kk,n1,n2,n3,np,iplim +real :: a(n1,n2,max(nplevs,n3)),pi(n1,n2,n3),b(max(nplevs,n3),*) + +!Note: use iplim=1 for variables where we do not want to interpolate and +!potentially have unphysical values below zero, such as aerosol extinction +!which should be positive definite. In that case, let grid points below ground +!with values less than zero be equal to the first positive value assumed to be +!above ground. + +!Also note that the "a" array needs to have a vertical dimension that is the +!greater of "n3" and "nplevs". Also true for the "b" array here. + +do np=1,nplevs + b(nplevs-np+1,4)=1004.*(float(iplevs(np))/1000.)**.286 +enddo + +do j=1,n2 + do i=1,n1 + do k=1,n3 !Here "a" has max vertical dimension of "n3" + kk=n3-k+1 + b(kk,1)=a(i,j,k) + b(kk,2)=pi(i,j,k) + enddo + CALL htint (n3,b(1,1),b(1,2),nplevs,b(1,3),b(1,4)) + do k=1,nplevs !Here "a" has max vertical dimension of "nplevs" + a(i,j,nplevs-k+1)=b(k,3) + enddo + !Keep values positive if potentially below ground by setting to values + !in pressure level above. Do for variables is "iplim=1" in hvlib.f90. + if(iplim==1)then + do k=nplevs,1,-1 + if( a(i,j,k-1) < 0.0 ) a(i,j,k-1) = a(i,j,k) + enddo + endif + enddo +enddo + +return +END SUBROUTINE rams_ptrans + +!############################################################################## +Subroutine rams_ctrans (n1,n2,n3,a,b,topt,zt,ztop) + +implicit none + +integer :: i,j,k,n1,n2,n3 +real :: a(n1,n2,n3),b(n3,*),topt(n1,n2),zt(n3),ztop + +do j=1,n2 + do i=1,n1 + do k=1,n3 + b(k,1)=a(i,j,k) + b(k,2)=topt(i,j)+zt(k)*(1.-topt(i,j)/ztop) + enddo + CALL htint (n3,b(1,1),b(1,2),n3,b(1,3),zt) + do k=1,n3 + a(i,j,k)=b(k,3) + enddo + enddo +enddo + +return +END SUBROUTINE rams_ctrans + +!############################################################################## +Subroutine thelatlon (n1,n2,n3,alatlon,all1,i1,j1) + +implicit none + +integer :: n1,n2,n3,i1,j1 +real :: alatlon(n1,n2,n3),all1 + +all1=alatlon(i1,j1,1) + +return +END SUBROUTINE thelatlon diff --git a/src/6.2.16/sib/sib2_co2.f90 b/src/6.2.16/sib/sib2_co2.f90 new file mode 100644 index 0000000..6323f72 --- /dev/null +++ b/src/6.2.16/sib/sib2_co2.f90 @@ -0,0 +1,5961 @@ +!############################################################################## +!SiB VERSION 2.5/3, MODIFIED FOR USE WITH RAMS + +!Note: "prog" below indicates a SiB prognostic variable +! "diag" below indicated a SiB diagnostic variable +! "output" below indicates an output variable passed back to RAMS +! for use in the main model carbon and surface fluxes. +! "atmos" indicates fields given by LEAF and/or RAMS for use +! in driving SiB. +! "BCs" below indicates soil and vegetation conditions set by the +! user or MAKESFC surface file conditions from surface characteristics +! data files. + +Subroutine sib_2pt5 ( & + !THIS SECTION: INPUT GRID AND ATMOSPHERIC CONDITIONS FROM RAMS TO SIB + igrp & !I grid point + ,jgrp & !J grid point + ,mzg & !number of soil levels + ,mzs & !number of snow levels + ,dt & !timestep + ,doy & !time in julian date (Day Of Year) + ,ubmin & !minimum wind speed for surface fluxes (m/s) + ,latitude & !latitude + ,thm & !atmos: -lowest layer theta (potential temperature K) + ,sh_x & !atmos: -lowest layer rv (water vapor mixing ratio, g/kg) + ,ps_x & !atmos: -lowest layer air pressure (hPa=mb) RAMS uses (Pa) + ,ros & !atmos: -lowest layer base state density (kg/m3) + ,ts_x & !atmos: -lowest layer temperature (K) + ,spdm & !atmos: -lowest layer wind speed (m/s) + ,zwind & !atmos: -lowest model level height t-grid (m) + ,cupr & !atmos: -cuparm precip rate (conprr) (mm/sec) + ,lspr & !atmos: -microphysics precip rate (pcpg / dt) (mm/sec) + ,dswbot & !atmos: -surface incident shortwave radiation (W/m^2) + ,dlwbot & !atmos: -surface incident longwave radiation (W/m^2) + ,cosz & !atmos: -cosine solar zenith angle + !THIS SECTION: SURFACE FIELD INFO FROM RAMS TO SIB + ,patcharea & !BCs: -fractional patch area + ,biome_f & !BCs: -leaf vegetation class + ,cndvi & !BCs: -current month ndvi + ,pndvi & !BCs: -previous/past month ndvi + ,soiltype_f & !BSs: -soil textural class + !THIS SECTION: PROGNOSTIC VALUES FROM SIB TO FEEDBACK TO RAMS + ,rst & !prog: -CANOPY/STOMATAL RESISTANCE (S M-1) + ,ta & !prog: -canopy (CAS) temperature (K) + ,sha & !prog: -canopy (CAS) water vapor mixing ratio (kg/kg) + ,tc & !prog: -vegetation temperature (K) + ,tempk & !prog: -soil and snow temperature (K) + ,soil_water & !prog: -volumetric soil moisture (m3/m3) + ,sfcswa & !prog: -surface abledo (fraction) + ,uplwrf & !prog: -upwelling longwave radiation (W/m2) + ,snow1 & !prog: -vegetation snow (kg/m2) + ,snow2 & !prog: -ground surface snow (kg/m2) + ,capac1 & !prog: -vegetation liquid store (kg/m^2) + ,capac2 & !prog: -ground surface liquid interception store (kg/m^2) + ,pco2ap & !prog: -canopy air space pCO2 concentration (Pa) + ,co2flx & !prog: -sfc CO2 flux between CAS and ref lev(mol/m2/sec) + ,ustar & !prog: -u-star + ,rstar & !prog: -r-star + ,tstar & !prog: -t-star + !THIS SECTION: INPUT CURRENT CO2 CONENTRATION TO SIB + ,atm_co2_ppm & !lowest atm level CO2, in ppm + !THIS SECTION: DIAGNOSTIC QUANTITIES FROM SIB TO FILL STANDARD LEAF3 VARS + ,sfcwaterlev & !diag: number of sfc water levels (0 or 1 from SiB) + ,sfcwatermas & !diag: sfc water mass (snow+liquid) (kg/m2) + ,sfcwaterdep & !diag: sfc water depth (snow+liquid) (m) + ,vegwatermas & !diag: vegetation water mass (snow+liquid) (kg/m2) + !THIS SECTION: DIAGNOSTIC QUANTITIES UNIQUE TO SIB + ,vegalb_out & !diag: vegetation albedo (fraction) + ,vcover_out & !diag: vegetation fractional area + ,vlt_out & !diag: vegetation LAI + ,zlt_out & !diag: total LAI + ,veght_out & !diag: canopy top height (m) + ,vrough_out & !diag: vegetation roughness (m) + ,assimn_out & !diag: net co2 assim by plants (umol/m^2/sec) + ,respg_out & !diag: ground respiration flux (umol/m^2/sec) + ,rstfac1_out & !diag: CANOPY RESISTANCE STRESS1 : leaf sfc humidity + ,rstfac2_out & !diag: CANOPY RESISTANCE STRESS2 : soil moisture + ,rstfac3_out & !diag: CANOPY RESISTANCE STRESS3 : temperature + ,ect_out & !diag: transpiration flux (W/m^2) + ,eci_out & !diag: canopy interception flux (W/m^2) + ,egi_out & !diag: ground interception flux (W/m^2) + ,egs_out & !diag: ground surface layer evap (W/m^2) + ,hc_out & !diag: canopy (veg) sensible heat flux (W/m^2) + ,hg_out & !diag: ground surface sensible heat flux (W/m^2) + ,ra_out & !diag: CAS-RAMS aerodynamic resistance (sec/m) + ,rb_out & !diag: leaf sfc-CAS resistance (sec/m) + ,rc_out & !diag: total canopy resistance (sec/m) + ,rd_out & !diag: ground-CAS resistance (sec/m) + ,roff_out & !diag: runoff (surface and subsurface) (mm) + ,green_out & !diag: greenness fraction (-) + ,apar_out & !diag: absorbed fraction of PAR + ,ventmf_out & !diag: ventilation mass flux (kg/m^2/sec) + ,pco2c_out & !diag: leaf chloroplast CO2 concentration (Pa) + ,pco2i_out & !diag: leaf internal CO2 concentration (Pa) + ,pco2s_out & !diag: leaf surface CO2 concentration (Pa) + ,pco2m_out & !diag: lowest atm level CO2 concentration (Pa) + ,ea_out & !diag: CAS water vapor pressure (hPa) + ,em_out & !diag: ref level vapor pressure (hPa) + ,rha_out & !diag: CAS relative humidity + ,radvbc_out & !diag: radiation: visible beam (W/m^2) + ,radvdc_out & !diag: radiation: visible diffuse (W/m^2) + ,radnbc_out & !diag: radiation: nir beam (W/m^2) + ,radndc_out & !diag: radiation: nir diffuse (W/m^2) + ,psy_out ) !diag: psychrometric constant (hPa deg^-1) + +use mem_grid, only:ngrid +use mem_sib +use node_mod, only:mi0,mj0 + +implicit none + + !Variables with the '_x' subscript were modified to avoid + !conflicts with RAMS common block variables. + + !------------------------------------------------------------------- + ! REFERENCES: Sato, N., P. J. Sellers, D. A. Randall, E. K. Schneider, + ! J. Shukla, J. L Kinter III, Y-T, Hou, and Albertazzi (1989) + ! "Effects of implementing the simple biosphere model in a general + ! circulation model. J. Atmos. Sci., 46, 2767-2782. + ! Sellers, P. J., D. A. Randall, C. J. Collatz, J. A. Berry, + ! C. B. Field, D. A. Dazlich, C. Zhang, G. Collelo (1996) A revise + ! land-surface parameterization (SiB2) for atmospheric GCMs. Part 1: + ! Model formulation. (accepted by JCL) + ! MODIFICATIONS: + ! - changed VQSAT call to VNQSAT. kwitt 10/23 + ! - added in the prognostic stomatal conductance in addinc. changan + ! - moved sib diagnostics accumulation from dcontrol to bldif + ! dd 950202 + ! ROUTINES called: VNQSAT, SNOW1, balan, VNTLAT + ! DELHF, DELEF, NETRAD, SIBSLV, endtem, updat2, addinc + ! inter2, balan, soilprop, soiltherm, begtem, rnload + ! FUNCS called: + ! none + !------------------------------------------------------------------- + + !FIXING LEN and NSIB AT 1-WILL RUN AS A SINGLE POINT. + INTEGER, PARAMETER :: len = 1 ! Run as single point with RAMS interface + INTEGER, PARAMETER :: nsib = 1 ! Run as single point with RAMS interface + INTEGER, PARAMETER :: nsoil = nzg_sib - 1 ! number of soil layers + INTEGER, PARAMETER :: ioffset = 0 ! subdomain offset + INTEGER :: sibprint,i,j,k,n,ksoil,l + + !PI + REAL, PARAMETER :: num_pi = 3.1415926 + !gravity (m/s2) + REAL, PARAMETER :: grav = 9.81 + !specific heat of air at const pres (J kg-1 deg-1) + REAL, PARAMETER :: cp = 1004. + !specific heat of air at const volume (J kg-1 deg-1) + REAL, PARAMETER :: cv = 1952. + !universal gas constant + REAL, PARAMETER :: rgas = 287. + REAL, PARAMETER :: hltm = 2.52E6 + REAL, PARAMETER :: delta = 0.608 + !conversion for kg water to snow depth (16.7) + REAL, PARAMETER :: asnow = 16.7 + !R/cp + REAL, PARAMETER :: kapa = 0.2861328125 + !latent heat of fusion for ice (J m^-3) + REAL, PARAMETER :: snomel = 3.705185e8 + REAL, PARAMETER :: clai = 4.186*1000.0*0.2 + REAL, PARAMETER :: cww = 4.186*1000.0*1000. + !von karman constant + REAL, PARAMETER :: vkrmn = 0.35 + REAL, PARAMETER :: po2m = 20900. + !stefan-boltzmann constant + REAL, PARAMETER :: stefan = 5.67e-8 + REAL, PARAMETER :: grav2 = grav *0.01 + REAL, PARAMETER :: tice = 273.16 + REAL, PARAMETER :: snofac = hltm / ( hltm + SNOMEL * 1.E-3 ) + + !VARIABLES INPUT/OUTPUT FROM/TO RAMS MODEL + INTEGER :: mzs,mzg,igrp,jgrp,doy + REAL, DIMENSION(mzg+mzs) :: tempk + REAL, DIMENSION(mzg) :: soil_water + REAL :: & + dt &! time step (s) + ,ubmin &! minimum wind speed for surface fluxes (m/s) + ,latitude &! latitude of current grid cell + ,thm(len) &! mixed layer potential temperature (K) + ,sh_x(len) &! mixed layer water vapor mixing ratio (kg/kg) + ,ps_x(len) &! surface pressure (hPa=mb) RAMS uses (Pa) + ,ros (len) &! surface air density (kg/m^3) + ,ts_x(len) &! surface mixed layer air temperature (K) + ,spdm(len) &! boundary layer wind speed (m/s) + ,zwind &! lowest model level height t-grid (m) + ,cupr(len) &! convective-parm precipitation rate (mm/s) + ,lspr(len) &! microphysics precipitation rate (mm/s) + ,dlwbot(len) &! surface incident longwave radiation (W/m^2) + ,dswbot(len) &! surface incident shortwave radiation (W/m^2) + ,cosz(len) &! cosine of solar zenith angle + ,patcharea &! land patch fractional area + ,biome_f &! leaf vegetation class + ,pndvi &! past value of ndvi for the gridcell + ,cndvi &! current value of ndvi for the gridcell + ,soiltype_f &! soil textural class + ,rst(len) &! canopy/stomatal resistance (S M-1) + ,ta(len) &! CAS temperature (K) + ,sha(len) &! CAS water vapor mixing ratio (kg/kg) + ,tc(len) &! canopy (vegetation) temperature (K) + ,sfcswa &! surface abledo (fraction) + ,uplwrf &! upwelling longwave radiation (W/m2) + ,snow1(len) &! vegetation snow (kg/m2) + ,snow2(len) &! ground surface snow (kg/m2) + ,capac1(len) &! vegetation liquid store (kg/m^2) + ,capac2(len) &! ground surface liquid interception store (kg/m^2) + ,pco2ap(len) &! canopy air space pCO2 (Pa) + ,co2flx(len) &! sfc CO2 flux between CAS and ref lev(mol/m^2/sec) + ,ustar(len) &! friction velocity (m/s) + ,rstar(len) &! moisture exchange parameter based on U* (kg/kg)/(m/s) + ,tstar(len) &! heat exchange parameter based on U* (K)/(m/s) + ,atm_co2_ppm &! lowest atm level CO2, in ppm + ,sfcwaterlev &! number of surface water layers (0 or 1) + ,sfcwatermas &! sfc water mass (snow+liquid) (kg/m2) + ,sfcwaterdep &! sfc water depth (snow+liquid) (m) + ,vegwatermas &! vegetation water mass (snow+liquid) (kg/m2) + ,vegalb_out &!diag: vegetation albedo (fraction) + ,vcover_out &!diag: vegetation fractional area + ,vlt_out &!diag: vegetation LAI + ,zlt_out &!diag: total LAI + ,veght_out &!diag: canopy top height (m) + ,vrough_out &!diag: vegetation roughness (m) + ,assimn_out &!diag: net co2 assim by plants (umol/m^2/sec) + ,respg_out &!diag: ground respiration flux (umol/m^2/sec) + ,rstfac1_out &!diag: CANOPY RESISTANCE STRESS1 :leaf sfc humidity + ,rstfac2_out &!diag: CANOPY RESISTANCE STRESS2 :soil moisture + ,rstfac3_out &!diag: CANOPY RESISTANCE STRESS3 :temperature + ,ect_out &!diag: transpiration flux (W/m^2) + ,eci_out &!diag: canopy interception flux (W/m^2) + ,egi_out &!diag: ground interception flux (W/m^2) + ,egs_out &!diag: ground surface layer evap (W/m^2) + ,hc_out &!diag: canopy (veg) sensible heat flux (W/m^2) + ,hg_out &!diag: ground surface sensible heat flux (W/m^2) + ,ra_out &!diag: CAS-RAMS resistance (sec/m) + ,rb_out &!diag: leaf sfc-CAS resistance (sec/m) + ,rc_out &!diag: total canopy resistance (sec/m) + ,rd_out &!diag: ground-CAS resistance (sec/m) + ,roff_out &!diag: runoff (surface and subsurface) (mm) + ,green_out &!diag: greenness fraction (-) + ,apar_out &!diag: absorbed fraction of PAR + ,ventmf_out &!diag: ventilation mass flux (kg/m^2/sec) + ,pco2c_out &!diag: leaf chloroplast CO2 concentration (Pa) + ,pco2i_out &!diag: leaf internal CO2 concentration (Pa) + ,pco2s_out &!diag: leaf surface CO2 concentration (Pa) + ,pco2m_out &!diag: lowest atm level CO2 concentration (Pa) + ,ea_out &!diag: CAS water vapor pressure (hPa) + ,em_out &!diag: ref level vapor pressure (hPa) + ,rha_out &!diag: CAS relative humidity + ,radvbc_out &!diag: radiation: visible beam (W/m^2) + ,radvdc_out &!diag: radiation: visible diffuse (W/m^2) + ,radnbc_out &!diag: radiation: nir beam (W/m^2) + ,radndc_out &!diag: radiation: nir diffuse (W/m^2) + ,psy_out !diag: psychrometric constant (hPa deg^-1) + + !SIB STATIC SURFACE PARAMETERS + REAL :: & + z0d(len) &! surface roughness length (m) + ,z0(len) &! sfc rough length corrected for canopy snow (m) + ,zlt(len) &! leaf area index + ,z1(len) &! canopy bottom height (meters) + ,z2(len) &! canopy top height (meters) + ,cc1(len) &! RB Coefficient (c1) = rbc + ,cc2(len) &! RC Coefficient (c2) = rdc + ,dd(len) &! Zero plane displacement + ,poros(len) &! soil porosity + ,zdepth(len,3) &! porosity * soil hydrology model layer depths (m) + ,phsat(len) &! Soil tension at saturation (units) + ,bee(len) &! Clapp & Hornberge 'B' exponent + ,respcp(len) &! respiration fraction of Vmax + ,vmax0(len) &! rubisco velocity of sun leaf (mol/m2/s) + ,green(len) &! Canopy greeness fraction of LAI + ,tran(len,2,2) &! Leaf transmittance + ,ref(len,2,2) &! Leaf reflectance + ,gmudmu &! Time-mean leaf projection (leaf orientation to par flux) + ,trop(len) &! temperature coefficient in GS-A model (K) + ,phc(len) &! one-half critical leaf-water potential limit(m) + ,trda(len) &! slope of high temp inhibition (leaf resp,1/K) + ,trdm(len) &! half point of high temp inhibition (leaf resp,K) + ,slti(len) &! slope of low temperature inhibition (1/K) + ,shti(len) &! slope of high temperature inhibition (1/K) + ,hlti(len) &! half piont of low temp inhibition (K) + ,hhti(len) &! half point of high temp inhibition (K) + ,effcon(len) &! quantum efficiency (mol/mol) + ,binter(len) &! conductance-photosynthesis intercept (mol/m2/s) + ,gradm(len) &! conductance-photosynthesis slope parm (mol/m2/s) + ,atheta(len) &! wc,we coupling parameter + ,btheta(len) &! wp,ws coupling parameter + ,aparc(len) &! Canopy absorbed fraction of PAR + ,wopt(len) &! Factor coeff for moisture effect on soil respiration + ,zmx(len) &! Power coeff for moisture effect on soil respiration + ,wsat(len) &! respiration at soil water saturation? + ,vcover(len) &! vegetation cover fraction + ,sodep(len) &! total soil depth (meters) + ,rootd(len) &! rooting depth (meters) + ,soref(len,2) &! Soil reflectance + ,thermk(len) &! canopy gap fraction for TIR radiation + ,satco(len) &! soil tension at 1/2 assimilation value (true?) units? + ,slope(len) &! slope + ,chil(len) &! leaf angle distribution factor + ,ztdep(len,nsoil) ! soil thermal model layer depths (m) + + ! Intent: in/out and some variable local copies + REAL :: & + cas_cap_heat(len) &! CAS heat capacity (J/K m^2) + ,cas_cap_vap(len) &! CAS vapor capacity + ,cas_cap_co2(len) &! CAS CO2 capacity (m/m^2) (moles air / m^2 in phosib) + ,tg(len) &! surface boundary temperature (K) + ,td(len,nsoil) &! deep soil temperature (K) + ,www(len,3) &! soil wetness + ,wwwtem(len,3) &! soil wetness copy + ,snow(len,2) &! snow cover (kg/m2) + ,capac(len,2) &! liquid interception store (kg/m^2) + ,cuprt(len) &! copy of cupr + ,lsprt(len) &! copy of lspr + ,thmtem(len) &! copy of thm + ,shtem(len) &! copy of sh + ,zzwind(len) &! intermediate surface wind for roughness length + ,zztemp(len) &! intermediate surface wind for roughness length + ,ztemp ! Used for ratio of reference height (zwind/ztemp) + + !respFactor is the annual total accumulation of carbon in the + !previous year at each grid cell (annual total ASSIMN). + !divided by the annual total of soilScale at the same grid pt. + !respFactor*soilScale is the rate of release of CO2 by the soil. + REAL :: respfactor(len,nzg_sib) + !soilScale is a diagnostic of the instantaneous rate of + !soil respiration (derived by Jim Collatz, similar to TEM) + REAL :: soilscale(len,nzg_sib) + REAL :: soilq10(len,nzg_sib) + + !MOSTLY VARIABLES FOR SURFACE FLUXES + REAL :: & + fss(len) &! surface sensible heat flux (W/m^2) + ,fws(len) &! surface evaporation (kg/m^2/s) + ,cflux(len) &! new formulation of CO2 flux (phosib)(mol/m^2/sec) + ,cu(len) &! momentum transfer coefficient (-) + ,ct(len) &! thermal transfer coefficient (-) + ,ventmf(len) &! ventilation mass flux (kg/m^2/sec) + ,thvgm(len) &! delta theta-v between atm and canopy + ,bps(len) &! (ps/1000)**kapa + ,psy(len) &! psychrometric 'constant' + ,tha(len) &! canopy airspace potential temperature (K) + ,ea(len) &! canopy airspace water vapor pressure (hPa) + ,em(len) &! mixed layer water vapor pressure (hPa) + ,d(len) &! dd corrected for snow covered canopy + ,rbc(len) &! cc1 corrected for snow covered canopy + ,rdc(len) &! cc2 corrected for snow covered canopy + ,etmass(len) &! evapotranspiration + ,egmass(len) &! ground evaporation (mm) + ,ecmass(len) &! canopy evaporation (mm) + ,totwb(len) &! total surface and soil water at begiN of timestep + ,chf(len) &! canopy heat flux (W/m^2) + ,ahf(len) &! CAS heat flux (W/m^2) + ,shf(len) &! soil heat flux (W/m^2) + ,ect(len) &! transpiration flux (J m^-2 for the timestep) + ,eci(len) &! canopy interception evap flux (veg-CAS) (J m^-2) + ,egs(len) &! soil/ground evaporation flux (J m^-2) + ,egi(len) &! ground interception evaporation flux (J m^-2) + ,hc(len) &! canopy (veg) sensible heat flux (W/m^2) + ,hg(len) &! ground surface sensible heat flux (W/m^2) + ,hs(len) &! snow surface sensible heat flux (W/m^2) + ,heaten(len) &! energy to heat snow to ground temp (J m^-2) + ,hflux(len) &! sensible heat flux (W/m2) + ,tgs(len) &! bare ground and snow surface mean temperature (K) + ,tsnow(len) &! Snow temp is lesser of ice or ground temp (K) + ,czc(len) &! canopy heat capacity + ,etc(len) &! vapor pressure (e*) of the canopy at (Tc) (Pa) + ,etg(len) &! vapor pressure (e*) of the ground sfc at (Tg) (Pa) + ,etgs(len) &! function result = E(TGS(i)) + ,btc(len) &! derivatives of ETC + ,btg(len) &! derivatives of ETG + ,rstfac(len,4) &! canopy resistance stress factors + !GROUND AND CANOPY STRESS AND PHOSIB VARIABLES + ,rsoil(len) &! SOIL SURFACE RESISTANCE (S M-1) + ,hr(len) &! SOIL SURFACE RELATIVE HUMIDITY + ,wc(len) &! CANOPY WETNESS FRACTION + ,wg(len) &! GROUND WETNESS FRACTION + ,areas(len) &! fractional snow coverage (0 to 1) + ,csoil(len) &! soil heat capacity (J m^-2 deg^-1) + ,slamda(len,nsoil) &! soil thermal conductivities + ,shcap(len,nsoil) &! soil heat capacities + ,czh(len) &! surface layer heat capacity + ,gect(len) &! dry fraction of canopy/(Rst + 2Rb) + ,geci(len) &! wetted fraction of canopy/2Rb + ,gegs(len) &! dry fraction of ground/(fg*rsoil + Rd) + ,gegi(len) &! wet fraction of ground/Rd + ,rb(len) &! leaf sfc to CAS aerodynmaic resistance (sec/m) + ,rd(len) &! ground to CAS aerodynamic resistance (sec/m) + ,rds(len) &! rsoil + rd + ,ra(len) &! CAS to RAMS atmos aerodynamic resistance (sec/m) + ,rib(len) &! bulk richardson number + ,rc(len) &! total canopy resistance (sec/m) + ,ggl(len) &! overall leaf conductance + ,hrr(len) &! SOIL SURFACE LAYER RELATIVE HUMIDITY + ,bintc(len) &! (B*ZLT) : EQUATION (35) , SE-92A + ,aparkk(len) &! (PI) : EQUATION (31) , SE-92A + ,wsfws(len) &! Water stress + ,wsfht(len) &! High temperature stress + ,wsflt(len) &! Low temperature stress + ,wci(len) &! Intermediate assimilation weighted Ci + ,whs(len) &! Intermediate assimilation weighted RH stress factor + ,wags(len) &! Intermediate assimilation weighted stomatal conductance + ,wegs(len) &! Intermediate evaporation weighted stomatal conductance + ,omepot(len) &! Potential light limitation + ,assim(len) &! gross primary productivity (mol/m^2/s) + ,assimpot(len) &! Final Potential top leaf photosynthesis + ,assimci(len) &! Final stress limited top leaf photosynthesis + ,assimnp(len) &! Make assimn a top leaf, not the canopy + ,antemp(len) &! Bottom stopped assimilation + ,ansqr(len) &! Bottom stopped assimilation (squared) + ,pfd(len) &! 4.6E-6 * GMUDMU * (RADN(i,1,1)+RADN(i,1,2)) + ,zmstscale(len,2) &! soil scaling parameter for shallow and root zone + ,drst(len) &! stomatal resistance increment + !SENSIBLE HEAT FLUX DERIVATIVES AND SUCH + ,dtg(len,2) &! surface ground and snow temperature increments (K) + ,dtc(len) &! canopy temperature increment (K) + ,dta(len) &! CAS temperature increment (K) + ,hgdtg(len) &! dHG/dTG + ,hgdta(len) &! dHg/dTa + ,hsdts(len) &! dHS/dTS + ,hsdta(len) &! dHS/dTA + ,hcdtc(len) &! dHc/dTc + ,hcdta(len) &! dHc/dTa + ,hadta(len) &! dHA/dTA + ,fc(len) &! canopy range function? (not used here) + ,fg(len) &! ground humidity range function (0 or 1) + !LONGWAVE RADIATIVE HEAT FLUX DERIVATIVES AND SUCH + ,lcdtc(len) &! dLC/dTC + ,lcdtg(len) &! dLC/dTG + ,lcdts(len) &! dLC/dTS + ,lgdtg(len) &! dLG/dTG + ,lgdtc(len) &! dLG/dTC + ,lsdts(len) &! dLS/dTS + ,lsdtc(len) &! dLS/dTC + !LATENT HEAT FLUX GROUND AND CANOPY PARTIAL DERIVATIVE AND SUCH + ,eg(len) &! EGS + EGI + ,ec(len) &! ECT + ECI + ,es(len) & + ,egdtg(len) &! dEG/dTGS + ,ecdtg(len) &! dEC/dTGS + ,ecdtc(len) &! dEC/dTC + ,egdtc(len) &! dEG/dTC + ,ecdea(len) &! for the canopy leaves vapor pressure: W/ (m2* K) + ,egdea(len) &! for ground latent heat fluxes: W/ (m2* K) + ,esdts(len) &! for snow latent heat fluxes: W/ (m2* K) + ,esdea(len) &! for snow latent heat fluxes: W/ (m2 * Pa) + ,eadea(len) &! for CAS latent heat fluxes: W/ (m2* Pa) + ,radt(len,3) &! canopy, ground, and snow net radiation (W/m2) + !INCREMENTS FOR INTEGRATION + ,dea(len) &! CAS moisture increment (Pa) + ,dtd(len,nsoil) &! deep soil temperature increments (K) + ,q3l(len) &! 'Liston' drainage from bottom of soillayer 3 (mm) + ,q3o(len) &! gravitational drainage out of soillayer 3 (mm) + ,qqq(len,3) &! soil layer drainage (mm m^-2 timestep) + ,evt(len) & + ,eastar(len) &! canopy saturation vapor pressure (hPa) + ,rha(len) &! canopy airspace relative humidity (%) + !SURFACE WATER VARS + ,zmelt(len) &! total depth of melted water (m) + ,zmelt1(len) &! depth of melted water, main calculation (updat2)(m) + ,zmelt2(len) &! depth of melted water, from excess energy (inter2)(m) + ,satcap(len,2) &! saturation capacity of ground and vegetation (kg/m^2) + ,exo(len) &! total soil water excess of saturation (m) + ,roffo(len) &! runoff overland flow contribution (m) + ,roff(len) &! total runoff (surface and subsurface) (mm) + !RADIATION VARIABLES + ,salb(len,2,2) &! surface albedos + ,valb(len,2,2) &! vegetation albedos + ,nalb(len,2,2) &! non-veg albedos + ,canex(len) &! [1.-( SNOWw(i,1)*5.-Z1(i))/(Z2(i)-Z1(i))] + ,fac1(len) &! effective ground cover for thermal radiation + ,thgeff(len) &! Tgeff(I) / BPS(I) + ,tgeff(len) &! effective (combined) skin temp from sfc thermal rad(K) + ,shgeff(len) &! saturation mixing ratio w.r.t tgeff + ,tgeff4(len) &! effective surface radiative temperature (K) + ,radfac(len,2,2,2) &! radiation absorption factors + ,radvbc(len) &! surface incident visible direct beam (W/m^2) + ,radnbc(len) &! surface incident near IR direct beam (W/m^2) + ,radvdc(len) &! surface incident visible diffuse beam (W/m^2) + ,radndc(len) &! surface incident near IR diffuse beam (W/m^2) + ,radc3(len,2) &! SUM OF ABSORBED RADIATIVE FLUXES (W M-2) + ,radn(len,2,2) &! INCIDENT RADIATION FLUXES (W M-2) + ,closs(len) &! vegetation IR loss + ,gloss(len) &! ground IR loss + ,sloss(len) &! snow IR loss + ,dtc4(len) &! 1st derivative of vegetation T^4 + ,dtg4(len) &! 1st derivative of ground T^4 + ,dts4(len) &! 1st derivative of snow T^4 + !RESPIRATION VARIABLES + ,assimn(len) &! net co2 assimilation by plants (mol/m^2/sec) + ,respg(len) &! ground respiration flux (mol/m^2/sec) + ,pco2i(len) &! leaf internal pCO2 (Pa) + ,pco2c(len) &! chloroplast pCO2 (Pa) + ,pco2s(len) &! leaf surface pCO2 (Pa) + ,pco2m(len) &! lowest atm level CO2 (Pa) + ,co2cap(len) ! moles of air in the canopy (moles/CAS) + + TYPE biome_morph_var + REAL zc ! Canopy inflection height (m) + REAL lwidth ! Leaf width + REAL llength ! Leaf length + REAL laimax ! Maximum LAI + REAL stems ! Stem area index + REAL ndvimax ! Maximum NDVI + REAL ndvimin ! Minimum NDVI + REAL srmax ! Maximum simple ratio + REAL srmin ! Minimum simple ratio + END TYPE biome_morph_var + TYPE(biome_morph_var) morphtab + + TYPE aero_var + REAL zo ! Canopy roughness coeff + REAL zp_disp ! Zero plane displacement + REAL rbc ! RB Coefficient + REAL rdc ! RC Coefficient + END TYPE aero_var + + ! aerodynamic interpolation tables + TYPE(aero_var),DIMENSION(50,50) :: aerovar + + TYPE time_dep_var + REAL fpar ! Canopy absorbed fraction of PAR + REAL lai ! Leaf-area index + REAL green ! Canopy greeness fraction of LAI + REAL zo ! Canopy roughness coeff + REAL zp_disp ! Zero plane displacement + REAL rbc ! RB Coefficient (c1) + REAL rdc ! RC Coefficient (c2) + REAL gmudmu ! Time-mean leaf projection + END TYPE time_dep_var + TYPE(time_dep_var) timevar + + !Send in vegetation biosphere and soil class info and coordinate + !with SiB equivalent classes of vegetation and soil. Note that + !RAMS clases of vegetation go from 0:20 or 21 total classes, but + !RAMS LEAF class=0 is ocean. Do not need this for SiB. + !Zero is water. Should not be running SiB for water patches. + !Alert model to report error. + INTEGER :: biome & ! biome type, sent in as a single value + ,soiltype ! soil type, sent in as a single value + INTEGER, DIMENSION(0:20) :: leaf_biome_map + DATA leaf_biome_map /0,0,13,11,4,5,2,1,6,6,9,10,9,9,3,12,12,12,7,11,1/ + + !LEAF soil classes do not match the order of classes in SiB so we need + !to translate these correctly. LEAF uses the classes from Clapp & Hornberger + !and SiB uses modified USDA classes. LEAF use of FAO data only assigns + !classes 2-8 (Clapp & Hornberger) via routine "datp_datsoil". Others + !default to sandy-clay-loam. + INTEGER, DIMENSION(1:12) :: soil_type_map + DATA soil_type_map /1,2,3,4,6,7,10,9,8,11,12,7/ + + !Minimum surface wind speed for generating surface fluxes (Louis) + spdm=MAX(spdm,ubmin) + + !Conversions for sib from leaf_class to biome type + biome = leaf_biome_map(INT(biome_f)) + if(biome==0) then + print*,"SiB trying to run with BIOME = WATER. Cannot Do This!" + stop + endif + !Conversion for sib from leaf soil type to sib soil type + soiltype = soil_type_map(INT(soiltype_f)) + + !Convert some RAMS soil model things to SiB soil model layers. + !SiB has 6 soil levels + separate ground surface level to get nzg_sib=7. + !RAMS has soil levels only. + + !Initialize permanent wetlands as assigned by LEAF3_INIT with + !surface water mass of 100.0 kg/m2 (0.1 meters depth). Keep this + !constant and do not let it dry out. SiB has either snow or water, + !so place surface water in correct category. + DO i=1,len + if(INT(biome_f)==17 .or. INT(biome_f)==20) then + if(snow2(i)>0.) then + snow2(i) = max(snow2(i),100.) + else + capac2(i) = max(capac2(i),100.) + endif + !print*,'surfwater',igrp+mi0(ngrid),jgrp+mj0(ngrid),int(biome_f) & + ! ,biome,capac2(i) + endif + ENDDO + + !SiB soil levels: nzg_sib=7 and nsoil=(nzg_sib-1)=6 + !Layer 1 is the deepest layer, layer nsoil is immediately below the surface. + !Soil layer nsoil (top layer) use www(1) + !Soil layers 3 through nsoil-1 (root zone) use www(2) and TD(3:nsoil-1) + !Soil layers 1 and 2 (deepest layers) use www(3) + DO i=1,len + !Sib uses 3 soil water layer while RAMS is flexible + !RAMS bottom was layer is layer-1. SiB bottom water layer + !is layer-3. Exchange these accordingly. + www(i,1) = soil_water(7) !Top soil moisture layer (m3/m3) + www(i,2) = soil_water(5) !Middle soil moisture layer (m3/m3) + www(i,3) = soil_water(1) !Bottom soil moisture layer (m3/m3) + !Set Sib ground surface tempeature to RAMS top soil layer temp (K) + tg(i) = tempk(mzg) + !Set Sib soil layer temps to RAMS soil layer temps (K). + !The k=1 level is the lowest soil level. + DO k=1,nsoil + td(i,k) = tempk(k) + ENDDO + ENDDO + + !Ppm in a gas is normally expressed on a mole fraction basis, so 385 + !ppm of CO2 (in the atmosphere) is also 385 µmol/mol. By Dalton's law + !of partial pressure, the partial pressure of CO2 to total pressure + !will be in the same ratio. "Real" atmospheric pressure varies with + !altitude above sea level, and day-to-day with the weather; however, + !"standard" atmospheric pressure is 101.325 kPa. For example, the + !partial pressure of CO2 is: + !385 µmol/mol x 101.325 kPa x (unit conversion) = 39 Pa. (at least + !on a day when real and standard pressure are the same value). Here, + !assign value from atm_co2_ppm (lowest atm level CO2 in ppm) to pco2m + !convert PPM to PA assuming atm pressure of 1000mb (or 100.0 kPa) + pco2m(1) = atm_co2_ppm * ps_x(1) * 1.e-4 !convert to Pa + + !Copy input arrays to local arrays + DO i=1,len + bps(i) = (ps_x(i)/1000.)**kapa ! (sfcpressure/1000)**kapa + snow(i,1) = snow1(i) ! vegetation snow (kg/m2) + snow(i,2) = snow2(i) ! ground surface snow (kg/m2) + capac(i,1) = capac1(i) ! vegetation liquid store (kg/m^2) + capac(i,2) = capac2(i) ! ground surface liquid interception store (kg/m^2) + ENDDO + + !Set up some key flags for runtime + ztemp = zwind ! Lowest level wind used for ratio of reference + ! height (zwind/ztemp). Set equal for SiB-RAMS + + !First step: obtain TI BCs using biome type, etc + !this won't be exactly like was done in Owen's + !version, because I will already have a map + !of biome,soil,ndvi, etc read in-single values + !will be passed to here. + + DO i=1,len + + !Soil BC's assigned in sib2_init.f90 + bee(i) = bee_sib(soiltype) !Clapp & Hornberge 'B' exponent + phsat(i) = phsat_sib(soiltype) !Soil tension at saturation (units)? + satco(i) = satco_sib(soiltype) !soil tension at 1/2 assimilation value (units)? + poros(i) = poros_sib(soiltype) !porosity + slope(i) = slope_sib(soiltype) !slope + wopt(i) = wopt_sib(soiltype) !Factor coeff for moisture effect on soil respiration + zmx(i) = skew_sib(soiltype) !Power coeff for moisture effect on soil respiration + wsat(i) = respsat_sib(soiltype)!respiration at soil water saturation? + + !Vegetation BC'S assigned in sib2_init.f90 + z2(i) = z2_sib(biome) !canopy top height (meters) + z1(i) = z1_sib(biome) !canopy bottom height (meters) + vcover(i) = fvcover_sib(biome) !fractional vegetation cover + chil(i) = chil_sib(biome) !leaf angle distribution factor + sodep(i) = sodep_sib(biome) !total soil depth (meters) + rootd(i) = rootd_sib(biome) !rooting depth (meters) + phc(i) = phc_sib(biome) !one-half critical leaf-water potential limit(m) + + !Leaf transmittance and reflectance assigned in sib2_init.f90 + tran(i,1,1) = tran_sib(biome,1,1) + tran(i,2,1) = tran_sib(biome,2,1) + tran(i,1,2) = tran_sib(biome,1,2) + tran(i,2,2) = tran_sib(biome,2,2) + ref(i,1,1) = ref_sib(biome,1,1) + ref(i,2,1) = ref_sib(biome,2,1) + ref(i,1,2) = ref_sib(biome,1,2) + ref(i,2,2) = ref_sib(biome,2,2) + + !Assigned in sib2_init.f90 + vmax0(i) = vmax0_sib(biome) !rubisco velocity of sun leaf (mol/m2/s) + effcon(i) = effcon_sib(biome) !quantum efficiency (mol/mol) + gradm(i) = gslope_sib(biome) !conductance-photosynthesis slope parm (mol/m2/s) + binter(i) = gsmin_sib(biome) !conductance-photosynthesis intercept (mol/m2/s) + atheta(i) = atheta_sib(biome) !wc,we coupling parameter + btheta(i) = btheta_sib(biome) !wp,ws coupling parameter + trda(i) = trda_sib(biome) !slope of high temp inhibition (leaf resp,1/K) + trdm(i) = trdm_sib(biome) !half point of high temp inhibition (leaf resp,K) + trop(i) = trop_sib(biome) !temperature coefficient in GS-A model (K) + respcp(i) = respcp_sib(biome) !respiration fraction of Vmax + slti(i) = slti_sib(biome) !slope of low temperature inhibition (1/K) + hlti(i) = hlti_sib(biome) !half piont of low temp inhibition (K) + shti(i) = shti_sib(biome) !slope of high temperature inhibition (1/K) + hhti(i) = hhti_sib(biome) !half point of high temp inhibition (K) + + !Soil reflectance assigned in sib2_init.f90 + soref(i,1) = soref_sib(biome,1) + soref(i,2) = soref_sib(biome,2) + + ENDDO + + morphtab%zc = zc_sib(biome) !Canopy inflection height(m) (nvtyp_sib) + morphtab%lwidth = zlw_sib(biome) !Leaf Width (nvtyp_sib) + morphtab%llength = zlen_sib(biome) !Leaf Length (nvtyp_sib) + morphtab%laimax = ltmax_sib(biome) !Max LAI (nvtyp_sib) + morphtab%stems = stem_sib(biome) !Stem area index (nvtyp_sib) + morphtab%ndvimax = nd98_sib(biome) !Max NDVI (98%tile) (nvtyp_sib) + morphtab%ndvimin = nd02_sib(biome) !Min NDVI (2%tile) (nvtyp_sib) + morphtab%srmax = srmax_sib(biome) !Maximum simple ratio (nvtyp_sib) + morphtab%srmin = srmin_sib(biome) !Minimum simple ratio (nvtyp_sib) + + DO j=1,50 + DO i=1,50 + aerovar(i,j)%zo = a_zo_sib(biome,i,j) ! Canopy roughness coeff + aerovar(i,j)%zp_disp = a_zp_sib(biome,i,j) ! Zero plane displacement + aerovar(i,j)%rbc = a_rbc_sib(biome,i,j) ! RB Coefficient (c1) + aerovar(i,j)%rdc = a_rdc_sib(biome,i,j) ! RC Coefficient (c2) + ENDDO + ENDDO + + !Calculates time dependant surface boundary condition variables + i=1 + CALL mapper (latitude,doy,pndvi,cndvi,vcover(i) & + ,chil(i),tran(i,1,1),ref(i,1,1),morphtab & + ,aerovar,laig_sib,fvcg_sib,timevar) + + DO i=1,len + aparc(i) = timevar%fpar ! Canopy absorbed fraction of PAR + zlt(i) = timevar%lai ! Leaf-area index + green(i) = timevar%green ! Canopy greeness fraction of LAI + z0d(i) = timevar%zo ! Canopy roughness coeff + dd(i) = timevar%zp_disp ! Zero plane displacement + cc1(i) = timevar%rbc ! RB Coefficient (c1) + cc2(i) = timevar%rdc ! RC Coefficient (c2) + ENDDO + + !respFactor is the annual total accumulation of carbon in the + !previous year at each grid cell (annual total ASSIMN) + !divided by the annual total of soilScale at the same grid pt. + !itb_cptec...now hardwiring for RJ + DO i=1,len + respfactor(i,1) = 0.0 + respfactor(i,2) = 0.0 + respfactor(i,3) = 3.65e-7/(8.-zlt(i)) + respfactor(i,4) = 7.62e-7/(8.-zlt(i)) + respfactor(i,5) = 8.03e-7/(8.-zlt(i)) + respfactor(i,6) = 4.33e-6/(8.-zlt(i)) + respfactor(i,7) = 3.40e-6/(8.-zlt(i)) + ENDDO + + !Get radiation components from single SW value + CALL raddrv (nsib,dswbot,cosz,radvbc,radvdc,radnbc,radndc) + + !Set up soil information based on table in sib2_init.f90 + !where total soil depth (sodep) (m) and rooting depth (rootd) (m) + !vary by vegetation type. Taller vegetation is given deeper soil + !depth and root depth. + DO i=1,len + rootd(i) = MIN(rootd(i),(sodep(i)*0.75)) + !Soil moisture layers + ! zdepth = soil hydrology model layer depth * porosity (meters) + zdepth(i,1) = 0.02 * poros(i) + zdepth(i,2) = (rootd(i) - 0.02)*poros(i) + zdepth(i,3) = poros(i)*sodep(i) - (zdepth(i,1)+zdepth(i,2)) + ! Quick patch to cover some underflow problems. + IF(vcover(i) < zlt(i)/10.0)THEN + vcover(i) = vcover(i) * 10.0 + ENDIF + ! soil thermal model layer depths (m) + ztdep(i,1) = 6.0 - sodep(i) + ztdep(i,2) = sodep(i) - rootd(i) + ztdep(i,3) = 8. * (rootd(i)-0.02) / 15. + ztdep(i,4) = 4. * (rootd(i)-0.02) / 15. + ztdep(i,5) = 2. * (rootd(i)-0.02) / 15. + ztdep(i,6) = 1. * (rootd(i)-0.02) / 15. + ENDDO + + !Now need to call rada2 to obtain albedos. + CALL rada2 (snow,zlt,z1,z2 & + ,asnow,tg,cosz,tice,ref,tran,chil & + ,green,vcover,soref,radfac,salb,valb,nalb,thermk & + ,tgeff4,tc,len) + + !Some initialization, copy of soil wetness + DO i = 1,len + tsnow(i) = MIN(tg(i),tice) ! Snow temp is lesser of ice or ground temp (K) + cuprt(i) = cupr(i) * 0.001 ! converting units to m/sec from mm/sec + lsprt(i) = lspr(i) * 0.001 ! converting units to m/sec from mm/sec + zmelt(i) = 0.0 ! depth of melted water (m) + roff(i) = 0.0 ! total runoff (surface and subsurface) (mm) + !RAMS sends in water like soil, deepest layer indexed = 1. + !RAMS soil_water is m3/m3 and includes porosity so we need to take + ! that factor out for Sib to just have soil wetness fraction. + wwwtem(i,1) = www(i,1)/poros(i) !soil wetness fraction - top level + wwwtem(i,2) = www(i,2)/poros(i) !soil wetness fraction - mid level + wwwtem(i,3) = www(i,3)/poros(i) !soil wetness fraction - lowest level + if(wwwtem(i,1)>1.001 .or. wwwtem(i,2)>1.001 .or. wwwtem(i,3)>1.001) then + print*,'wwwoversat',igrp+mi0(ngrid),jgrp+mj0(ngrid),wwwtem(i,1) & + ,wwwtem(i,2),wwwtem(i,3),biome_f,poros(i),int(soiltype_f),soiltype + stop + endif + !For permanently irrigated crop land (LEAF3 biotype), keep soil saturated + if(INT(biome_f)==16)then + !print*,'wwwcropsat',igrp+mi0(ngrid),jgrp+mj0(ngrid),wwwtem(i,1) & + ! ,int(biome_f),biome,poros(i),int(soiltype_f),soiltype + wwwtem(i,1) = 1.0 + wwwtem(i,2) = 1.0 + wwwtem(i,3) = 1.0 + endif + ENDDO + + !First guesses for ta (=canopy airspace potential temperature (K)) + ! and ea (=canopy airspace water vapor pressure (hPa)) and + ! em (=mixed layer water vapor pressure (hPa)) (see temrec 120) + DO I=1,len + THA(I) = TA(I) / BPS(I) + ENDDO + DO I=1,len + EA(I) = SHA(I) * PS_X(I) / (0.622 + SHA(I)) + EM(I) = SH_X(I) * PS_X(I) / (0.622 + SH_X(I)) + ENDDO + + !Distribute incident radiation between canopy and surface + CALL rnload (len,nsib,radvbc,radvdc,radnbc,radndc,dlwbot,VCOVER & + ,thermk,radfac,radn,radc3) + + DO i = 1,len + CANEX(i) = 1.-(SNOW(i,1)*5.-Z1(i))/(Z2(i)-Z1(i)) + CANEX(i) = MAX( 0.1 , CANEX(i) ) + CANEX(i) = MIN( 1.0 , CANEX(i) ) + !d is dd corrected for snow covered canopy + D(i) = Z2(i) - ( Z2(i)-DD(i) ) * CANEX(i) + Z0(i) = Z0D(i)/( Z2(i)-DD(i) ) * ( Z2(i)-D(i) ) + RBC(i) = CC1(i)/CANEX(i) + RDC(i) = CC2(i)*CANEX(i) + AREAS(i) = MIN(1. , ASNOW*SNOW(i,2)) + SATCAP(i,1) = ZLT(i)*0.0001 * CANEX(i) + !Collatz-Bounoua change satcap(2) to 0.0002 + ! SATCAP(i,2) = 0.002 + satcap(i,2) = 0.0002 ! lahouari + ENDDO + + !Initialize energy and water budgets + CALL balan (1, 1.0, zdepth, wwwtem, capac, cupr, & + lspr, roff, etmass, totwb, radt, chf, shf, & + dt, ect, eci, egs, egi, hc, hg, heaten, & + hflux, snow, thm, tc, tg, tgs, td, & + ps_x, kapa, len, ioffset, nsoil ) + + !Calculation of flux potentials and constants prior to heat + !flux calculations. + CALL begtem (tc, tg, cp, hltm, ps_x, snomel & + ,zlt, clai, cww, wwwtem, poros, num_pi, psy & + ,phsat, bee, czc, czh, phc & + ,tgs, etc, etg, btc, btg, rstfac & + ,rsoil, hr, wc, wg & + ,snow, capac, areas, satcap, csoil, tice, grav & + ,len, nsib ) + + !Now that we have the new psy (psychrometric 'constant'), + !calculate the new CAS capacities. + !Used to make this max(4.,z2(:)), but we might have to boost the + !min value upwards (itb) + cas_cap_heat(:) = ros(:) * cp * MAX(4.,z2(:)) + !I think cas_cap_vap should use cv instead of cp (itb). + cas_cap_vap(:) = ros(:) * cv * MAX(4.,z2(:)) / psy(:) + cas_cap_co2(:) = MAX(4.,z2(:)) ! this goes out to phosib + + !CALCULATE Net radiation (RADT) USING RADIATION FROM PHYSICS AND CURRENT + !LOSSES FROM CANOPY AND GROUND + CALL NETRAD (radc3, radt, stefan, fac1, vcover, thermk, tc, & + tg, tice, dtc4, dtg4, dts4, closs, gloss, sloss, & + tgeff, areas, len ) + + DO I=1,len + THgeff(I) = Tgeff(I) / BPS(I) + ENDDO + + !Compute saturation mixing ratio + CALL vnqsat (1,tgeff,PS_X,SHgeff,len) + + !GET RESISTANCES FOR SIB + !Calls routines to get carbon fluxes + CALL VNTLAT (igrp,jgrp,grav, tice, & + vkrmn, delta, dt, tc, tg, ts_x, ps_x, zlt, & + wwwtem, tgs, etc, etg,snow, & + rstfac, rsoil, hr, wc, wg, snofac, & + sh_x, z0, spdm, sha, ros,cas_cap_co2, & + cu, ra, thvgm, rib, ustar, rstar,tstar, & + ventmf, thm, tha, z2, d, & + fc, fg, rbc, rdc,gect,geci,gegs,gegi, & + respcp, rb, rd, rds,bps, rst, rc, ecmass, & + ea, hrr, assimn, bintc, ta, pco2m, po2m, vmax0, & + green, tran, ref,TimeVar%gmudmu, trop, trda, trdm, slti,& + shti, hlti, hhti, radn, effcon, binter, gradm, & + atheta, btheta, aparkk, wsfws, wsfht, wsflt, wci, & + whs, omepot, assimpot, assimci, antemp, assimnp, & + wags, wegs, aparc, pfd, assim, td, wopt, zmx, wsat, & + soilscale, zmstscale, drst, & + soilq10, ansqr, & + nsib, len, nsoil, & + thgeff, shgeff, ct, zwind, ztemp, & + respg, respfactor, pco2ap, pco2i, pco2c, pco2s, & + co2cap,cflux) + + !Calculate partial derivatives of the various heat fluxes + !with respect to ground/canopy/snow temp, as well as + !some other derivatives. + + CALL DELLWF (DT,dtc4,dtg4,dts4,fac1,areas & + , lcdtc,lcdtg,lcdts,lgdtg,lgdtc,lsdts,lsdtc, len ) + + CALL DELHF ( DT,CP,bps,ts_x,tgs,tsnow,tc,ta,ros,ra,rb,rd & + , HCDTC,HCDTA,HGDTG,HGDTA,HSDTS,HSDTA,HADTA & + , hc, hg, hs, fss, len) + + CALL DELEF ( DT,CP,ps_x,em,ea,ros,HRr,fc,fg & + , ra,rb,rd,rc,rsoil,snow,capac,wwwtem & + , ECDTC,ECDEA,EGDTG,EGDEA,ESDTS & + , ESDEA,EADEA & + , ec,eg,es,fws,hltm,cas_cap_vap & + , etc,etg & + , btc,btg & + , areas, gect,geci,gegs,gegi, psy, snofac, hr & + , len ) + + !Get soil thermal properties + CALL soilprop ( td, tgs, slamda, shcap, wwwtem, poros, ztdep, & + asnow, snow(1,2), areas, tice, snomel, & + nsib, len, nsoil ) + + !This routine sets up the coupled system of partial differential + !equations described in Sato et al., + CALL SIBSLV ( DT,GRAV2,CP,HLTM,tgs,tsnow & + , td(1,nsoil),slamda(1,nsoil),num_pi & + , areas,fac1 & + , VENTMF,BPS,ros,psy & + , czh,czc,cas_cap_heat,cas_cap_vap & + , lcdtc,lcdtg,lcdts,lgdtg,lgdtc,lsdts,lsdtc & + , HCDTC,HCDTA,HGDTG,HGDTA,HSDTS,HSDTA & + , HADTA & + , hc, hg, hs, fss & + , ECDTC,ECDEA,EGDTG,EGDEA,ESDTS & + , ESDEA,EADEA & + , ec,eg,es,fws & + , etc,etg & + , btc,btg & + , RADT & + , dtc, dtg, dta, dea & + , len) + + DO i = 1,len + radt(i,2) = (1.-areas(i))*radt(i,2)+areas(i)*radt(i,3) + ENDDO + + !UPDATING OF ALL HYDROLOGICAL PROGNOSTIC VARIABLES + CALL UPDAT2 (snow ,capac , snofac, ect, eci, egi, & + egs, hltm, wwwtem, num_pi, czh, dtg, dtc, ta, dta, & + dea, dt, & + roff, tc, td, tg, bee, poros, satco, & + slope, phsat, zdepth, ecmass, egmass, & + shf, tice, snomel, asnow, czc, csoil, chf, & + hc, hg, areas, q3l, q3o, & + qqq, zmelt1, cww, len, nsib, nsoil, & + etc,ea,btc, & + geci,ros,cp,psy,gect,etg,btg, & + gegs,hr,fg,gegi,rd,rb,hcdtc,hcdta, & + hgdta,slamda(1,nsoil)) + + DO i = 1, len + EVT(i) = (55.56 / dt) * (ECMASS(i) + EGMASS(i)) + wegs(i) = wegs(i) * evt(i) + ENDDO + + !Get soil temperature increments + CALL soiltherm ( td, dtd, tgs, dtg, slamda, shcap, ztdep, dt, & + nsib, len, nsoil ) + + !Update prognostic variables, get total latent and sensible fluxes + DO i = 1,len + thmtem(i) = thm(i) + shtem(i) = sh_x(i) + ENDDO + + CALL addinc ( grav2, cp, dt, hc, hg, & + ps_x, bps, ecmass,psy, ros, hltm, cas_cap_heat, & + cas_cap_vap, & + egmass, fss, fws, hflux, etmass, & + td, thmtem, ts_x, shtem, & + tc, tg, ta, ea, ra, em, sha, & + dtd, dtc, dtg, dta, dea, & + drst, rst, bintc, len, nsib, nsoil) + + !Compute saturation vapor pressure + CALL vnqsat (2, ta, ps_x, eastar, len) + + !inter2 replaces interc + CALL INTER2 ( cuprt, lsprt, snow, capac, wwwtem , num_pi, & + satcap, cww, tc, tg, clai, zlt, chil, roff, & + snomel, zdepth, ts_x, tice, asnow, csoil, & + satco, dt, vcover, roffo, zmelt2 ,len, nsib, exo ) + + ! Calculate the surface flux of CO2 due to SiB (tracer T18) + + ! The net flux to the atmosphere is given by the release of CO2 + ! by soil respiration minus the uptake of CO2 by photosynthesis + + ! ASSIMN is the net assimilation of CO2 by the plants (from SiB2) + ! respFactor*soilScale is the rate of release of CO2 by the soil + + ! soilScale is a diagnostic of the instantaneous rate of + ! soil respiration (derived by Jim Collatz, similar to TEM) + ! respFactor is the annual total accumulation of carbon in the + ! previous year at each grid cell (annual total ASSIMN) + ! divided by the annual total of soilScale at the same grid pt. + + ! Surface flux of CO2 used to be merely Assimn-Respg. With the + ! prognostic CAS, the calculation becomes + ! + ! co2flux = (CO2A - CO2M)/ra + ! + ! with a temperature correction thrown in. This calculation is + ! performed in phosib. + + !sfc CO2 source flux between CAS and ref level, also known as + !net ecosystem exchange (nee) (mol/m^2/sec) is same as co2flx here + DO i = 1,len + co2flx(i) = cflux(i) + ENDDO + + !Some quantities for diagnostic output + DO i = 1,len + !Canopy relative humidity + rha(i) = ea(i)/eastar(i) + !Total snow melt from updat2 and inter2 + zmelt(i) = zmelt1(i)+zmelt2(i) + !Calculate an overall leaf conductance, which is QP2(162) + !and is used as a weighting func in QP2(162 and 163) + ggl(i) = 1. / (rst(i) * (rb(i) + rc(i))) + ENDDO + + !Copy soil moisture back, remember to invert for RAMS + !Set surface water layers to 1 if there is ground snow or liquid + DO i=1,len + www(i,3) = wwwtem(i,3)*poros(i) !volumetric soil moisture (m3/m3) - lowest + www(i,2) = wwwtem(i,2)*poros(i) !volumetric soil moisture (m3/m3) - middle + www(i,1) = wwwtem(i,1)*poros(i) !volumetric soil moisture (m3/m3) - top layer + snow1(i) = snow(i,1) !vegetation snow (kg/m^2) + snow2(i) = snow(i,2) !ground surface snow (kg/m^2) + capac1(i) = capac(i,1) !vegetation liquid store (kg/m^2) + capac2(i) = capac(i,2) !ground surface liquid interception store (kg/m^2) + !surface water layers (#) + !Sib assumes snow density is 0.25 that of water + if(snow2(i)>0.0 .or. capac2(i)>0.0) then + sfcwaterlev=1. + sfcwatermas=snow2(i)+capac2(i) + sfcwaterdep=snow2(i)/250. + capac2(i)/1000. + else + sfcwaterlev=0. + sfcwatermas=0. + sfcwaterdep=0. + endif + if(snow1(i)>0.0 .or. capac1(i)>0.0) then !vegetation water layers exists + vegwatermas=snow1(i)+capac1(i) + else + vegwatermas=0. + endif + ENDDO + + !Send soil water and temperature fields back to RAMS indexing + DO i=1,len + !Set RAMS top soil temp to Sib ground surface temperature(K) + tempk(mzg) = tg(i) + !Set RAMS soil temp to Sib soil layer termpature(K) + DO k=1,nsoil + tempk(k) = td(i,k) + ENDDO + !Remember that SiB level-1 = RAMS level-7 = top soil level. + !Fill in extra RAMS soil moisture layers with similar values. + soil_water(1) = www(i,3) !required + soil_water(2) = www(i,3) + soil_water(3) = www(i,2) + soil_water(4) = www(i,2) + soil_water(5) = www(i,2) !required + soil_water(6) = www(i,1) + soil_water(7) = www(i,1) !required + ENDDO + + !Update surface albedo and outgoing longwave radiation + i=1 + uplwrf = stefan * (tgeff(i) ** 4.0) + sfcswa = salb(i,2,1) + salb(i,2,2) + + !Output diagnostics and change units as needed. + DO i=1,len + vlt_out = green(i)*zlt(i) !vegetation LAI + vegalb_out = valb(i,2,1) + valb(i,2,2) !vegetation albedo (fraction) + vcover_out = vcover(i) !vegetation fractional area + zlt_out = zlt(i) !total LAI + veght_out = z2(i) !canopy top height (m) + vrough_out = z0d(i) !surface(vegetation) roughness length (m) + assimn_out = assimn(i)*1.e6 !uptake of CO2 by canopy plants (umol/m^2/s) + respg_out = respg(i)*1.e6 !ground respiration flux (umol/m^2/sec) + rstfac1_out = rstfac(i,1) !CANOPY RESISTANCE STRESS1 : leaf sfc humidity + rstfac2_out = rstfac(i,2) !CANOPY RESISTANCE STRESS2 : soil moisture + rstfac3_out = rstfac(i,3) !CANOPY RESISTANCE STRESS3 : temperature + ect_out = ect(i) / dt !transpiration flux (W/m^2) + eci_out = eci(i) / dt !canopy interception flux (W/m^2) + egi_out = egi(i) / dt !ground interception flux (W/m^2) + egs_out = egs(i) / dt !ground surface layer evap (W/m^2) + hc_out = hc(i) / dt !canopy (veg) sensible heat flux (W/m^2) + hg_out = hg(i) / dt !ground surface sensible heat flux (W/m^2) + ra_out = ra(i) !CAS to RAMS aerodynamic resistance (sec/m) + rb_out = rb(i) !leaf sfc to CAS aerodynamic resistance (sec/m) + rc_out = rc(i) !total canopy resistance (sec/m) + rd_out = rd(i) !ground to CAS aerodynamic resistance (sec/m) + roff_out = roff(i) !runoff (surface and subsurface) (kg/m^2) + green_out = green(i) !greenness fraction (-) + apar_out = aparc(i) !absorbed fraction of PAR + ventmf_out = ventmf(i) !ventilation mass flux (kg/m^2/sec) + pco2c_out = pco2c(i) !leaf chloroplast CO2 concentration (Pa) + pco2i_out = pco2i(i) !leaf internal CO2 concentration (Pa) + pco2s_out = pco2s(i) !leaf surface CO2 concentration (Pa) + pco2m_out = pco2m(i) !lowest atm level CO2 concentration (Pa) + ea_out = ea(i) !CAS water vapor pressure (hPa) + em_out = em(i) !ref level vapor pressure (hPa) + rha_out = rha(i) !CAS relative humidity + radvbc_out = radvbc(i) !radiation: visible beam (W/m^2) + radvdc_out = radvdc(i) !radiation: visible diffuse (W/m^2) + radnbc_out = radnbc(i) !radiation: nir beam (W/m^2) + radndc_out = radndc(i) !radiation: nir diffuse (W/m^2) + psy_out = psy(i) !psychrometric constant (hPa deg^-1) + ENDDO + + !Print initial info to check for correctness + sibprint=1 + i=1 + if(sibprint==1.and.ngrid==1.and.igrp+mi0(ngrid)==15.and.jgrp+mj0(ngrid)==15) then + print*,'GRID POINT:',igrp+mi0(ngrid),jgrp+mj0(ngrid) + print*,'SIB-Lat/doy/dt:',latitude,doy,dt + print*,'SIB-Patcharea,NDVI:',patcharea,pndvi,cndvi + print*,'SIB-types:',soiltype,biome_f,biome + print*,'SIB-soildep123',ztdep(1,1),ztdep(1,2),ztdep(1,3) + print*,'SIB-soildep456',ztdep(1,4),ztdep(1,5),ztdep(1,6) + print*,'SIB-soilwetdep123',zdepth(1,1),zdepth(1,2),zdepth(1,3) + print*,'SIB-sodep,rootd,vcover',sodep,rootd,vcover(i) + print*,'SIB-soilwater765',soil_water(7),soil_water(6),soil_water(5) + print*,'SIB-soilwater432',soil_water(4),soil_water(3),soil_water(2) + print*,'SIB-soilwater1',soil_water(1) + print*,'SIB-PartPres:',pco2m_out,pco2ap + print*,'SIB-respiration:',assimn_out,respg_out + print*,'SIB-co2flx,sens,lat flx:',co2flx,fss,fws*hltm + print*,'SIB-ta,tc,tg:',ta,tc,tg + print*,'SIB-resist:',rstfac1_out,rstfac2_out,rstfac3_out + print*,'SIB-stars:',ustar,tstar,rstar + print*,'SIB-deltatemp',ts_x-ta,thm-tha + print*,'SIB-sfcrad',uplwrf,sfcswa + print*,'SIB-Vlai,Tlai',vlt_out,zlt_out + print*,'SIB-Talbedo',salb(i,1,1),salb(i,1,2),salb(i,2,1),salb(i,2,2) + print*,'SIB-Valbedo',valb(i,1,1),valb(i,1,2),valb(i,2,1),valb(i,2,2) + print*,'SIB-Nalbedo',nalb(i,1,1),nalb(i,1,2),nalb(i,2,1),nalb(i,2,2) + !print*,DT,GRAV2,CP,HLTM,tgs,tsnow + !print*,td(1,nsoil),slamda(1,nsoil),num_pi + !print*, areas,fac1 + !print*, VENTMF,BPS,ros,psy + !print*, czh,czc,cas_cap_heat,cas_cap_vap + !print*, lcdtc,lcdtg,lcdts,lgdtg,lgdtc,lsdts,lsdtc + !print*, HCDTC,HCDTA,HGDTG,HGDTA,HSDTS,HSDTA,HADTA + !print*, hc, hg, hs, fss + !print*, ECDTC,ECDEA,EGDTG,EGDEA,ESDTS,ESDEA,EADEA + !print*, ec,eg,es,fws + !print*, etc,etg,btc,btg,RADT + !print*, dtc, dtg, dta, dea + endif + +return +END SUBROUTINE sib_2pt5 + +!############################################################################## +Subroutine raddrv (nsib,swdown,sunang,radvbc,radvdc,radnbc,radndc) + +implicit none + + !--------------------------------------------------------------------- + ! radiation radive code to use the downward sw at bottom + ! and the formulation to estimate radvbc,radvdc, radndc, radndc + ! radvbc(len) : surface incident visible direct beam (W/m^2) + ! radnbc(len) : surface incident near IR direct beam (W/m^2) + ! radvdc(len) : surface incident visible diffuse beam (W/m^2) + ! radndc(len) : surface incident near IR diffuse beam (W/m^2) + !--------------------------------------------------------------------- + + INTEGER nsib + REAL swdown(nsib) + REAL sunang(nsib), stemp + REAL radvbc(nsib),radvdc(nsib) & + , radnbc(nsib),radndc(nsib),c1,c2,c3,c4,c5,cloud,difrat & + , vnrat + + INTEGER i + + C1 = 580. + C2 = 464. + C3 = 499. + C4 = 963. + C5 = 1160. + + DO i=1,nsib + sunang(i) = MAX( 0.001 , sunang(i) ) + stemp = swdown(i) + stemp = MAX(stemp,0.01 ) + cloud = (c5 * sunang(i) - stemp) / (c4 * sunang(i)) + cloud = MAX(cloud,0.) + cloud = MIN(cloud,1.) + ! cloud = max(0.58,cloud) + + !z use the real clouds here! + ! cloud = cldtot(i) + ! CLOUD = AMAX1(CLOUD,0.) + ! CLOUD = AMIN1(CLOUD,1.) + + DIFRAT = 0.0604 / ( SUNANG(i)-0.0223 ) + 0.0683 + IF ( DIFRAT .LT. 0. ) DIFRAT = 0. + IF ( DIFRAT .GT. 1. ) DIFRAT = 1. + + DIFRAT = DIFRAT + ( 1. - DIFRAT ) * CLOUD + VNRAT = ( C1 - CLOUD*C2 ) / ( ( C1 - CLOUD*C3 ) & + + ( C1 - CLOUD*C2 ) ) + + radvbc(i) = (1.-DIFRAT)*VNRAT*stemp + radvdc(i) = DIFRAT*VNRAT*stemp + radnbc(i) = (1.-DIFRAT)*(1.-VNRAT)*stemp + radndc(i) = DIFRAT*(1.-VNRAT)*stemp + ENDDO + +return +END SUBROUTINE raddrv + +!############################################################################## +Subroutine mapper ( & + lat, & + DOY, & + prevNDVI, & + curNDVI, & + fVCover, & + ChiL, & + LTran, & + LRef, & + MorphTab, & + AeroVar, & + LAIgrid, & + fVCovergrid, & + TimeVar & + ) + +! calculates time dependant boundary condition variables for SiB. + +implicit none + + ! begin input variables + REAL lat ! center latitude of grid cell + REAL curNDVI ! FASIR NDVI values for a grid cell + REAL prevNDVI ! previous month's NDVI value + REAL fVCover ! + REAL ChiL ! + REAL LTran(2,2) ! + REAL LRef(2,2) ! + INTEGER DOY ! Day of Year (DOY) of ndvi input map + ! + ! begin input biome dependant, physical morphology variables + TYPE biome_morph_var + REAL zc ! Canopy inflection height (m) + REAL LWidth ! Leaf width + REAL LLength ! Leaf length + REAL LAImax ! Maximum LAI + REAL stems ! Stem area index + REAL NDVImax ! Maximum NDVI + REAL NDVImin ! Minimum NDVI + REAL SRmax ! Maximum simple ratio + REAL SRmin ! Minimum simple ratio + END TYPE biome_morph_var + TYPE(biome_morph_var) MorphTab + ! + ! begin input aerodynamic parameters + TYPE aero_var + REAL zo ! Canopy roughness coeff + REAL zp_disp ! Zero plane displacement + REAL RbC ! RB Coefficient + REAL RdC ! RC Coefficient + END TYPE aero_var + + TYPE(aero_var),DIMENSION(50,50) :: AeroVar ! aerodynamic + ! interpolation tables + + REAL LAIgrid(50) ! grid of LAI values for lookup table + REAL fVCovergrid(50)! grid of fVCover values for interpolation table + ! + ! begin time dependant, output variables + TYPE time_dep_var + REAL fPAR ! Canopy absorbed fraction of PAR + REAL LAI ! Leaf-area index + REAL Green ! Canopy greeness fraction of LAI + REAL zo ! Canopy roughness coeff + REAL zp_disp ! Zero plane displacement + REAL RbC ! RB Coefficient (c1) + REAL RdC ! RC Coefficient (c2) + REAL gmudmu ! Time-mean leaf projection + END TYPE time_dep_var + TYPE(time_dep_var) TimeVar + ! + ! begin internal variables + REAL prevfPAR ! previous month's fPAR value + REAL, PARAMETER :: fPARmax=0.95 + ! ! Maximum possible FPAR corresponding to 98th percentile + REAL, PARAMETER :: fPARmin=0.01 + ! ! Minimum possible FPAR corresponding to 2nd percentile + ! For more information on fPARmin and fPARmax, see + ! Sellers et al. (1994a, pg. 3532); Los (1998, pg. 29, 37-39) + + !----------------------------------------------------------------------- + ! Calculate time dependent variables + !----------------------------------------------------------------------- + + ! Calculate first guess fPAR + ! use average of Simple Ratio (SR) and NDVI methods. + ! + ! print*,'call avgapar:',prevndvi,morphtab%ndvimin,morphtab%ndvimax + + CALL AverageAPAR (prevNDVI, & + MorphTab%NDVImin, MorphTab%NDVImax, & + MorphTab%SRmin, MorphTab%SRmax, & + fPARmax, fParmin, prevfPAR) + + CALL AverageAPAR (curNDVI, & + MorphTab%NDVImin, MorphTab%NDVImax, & + MorphTab%SRmin, MorphTab%SRmax, & + fPARmax, fParmin, TimeVar%fPAR) + ! + ! + ! Calculate leaf area index (LAI) and greeness fraction (Green) + ! See S. Los et al 1998 section 4.2. + ! + ! Select previous month + + CALL laigrn (TimeVar%fPAR, & + prevfPAR, & + fPARmax, & + fVCover, & + MorphTab%stems, & + MorphTab%LAImax, & + TimeVar%Green, & + TimeVar%LAI) + + ! Interpolate to calculate aerodynamic, time varying variables + + ! PRINT*,'call aeroint:',timevar%lai,fvcover + + CALL AeroInterpolate ( & + TimeVar%LAI, & + fVCover, & + LAIgrid, & + fVCovergrid, & + AeroVar, & + TimeVar%zo, & + TimeVar%zp_disp, & + TimeVar%RbC, & + TimeVar%RdC) + + ! Calculate mean leaf orientation to par flux (gmudmu) + CALL gmuder (lat, & + DOY, & + ChiL, & + TimeVar%gmudmu) + + ! recalculate fPAR adjusting for Sun angle, vegetation cover fraction, + ! and greeness fraction, and LAI + + CALL aparnew (TimeVar%LAI, & + TimeVar%Green, & + LTran, & + LRef, & + TimeVar%gmudmu, & + fVCover, & + TimeVar%fPAR, & + fPARmax, & + fPARmin) + +return +END SUBROUTINE mapper + +!############################################################################## +Subroutine laigrn (fPAR,fPARm,fPARmax,fVCover,stems, & + LAImax,Green,LAI) + +! calculate leaf area index (LAI) and greenness fraction (Green) from fPAR. +! LAI is linear with vegetation fraction and exponential with fPAR. +! See Sellers et al (1994), Equations 7 through 13. + +implicit none + + ! begin input variables + REAL fPAR ! fraction of PAR absorbed by plants at current time + REAL fPARm ! fraction of PAR absorbed by plants at previous time + REAL fPARmax ! maximum possible FPAR corresponding to 98th percentile + REAL fVCover ! vegetation cover fraction + REAL stems ! stem area index for the specific biome type + REAL LAImax ! maximum total leaf area index for specific biome type + + ! begin output variables + REAL Green ! greeness fraction of the total leaf area index + REAL LAI ! area average total leaf area index + + ! begin internal variables + REAL LAIg ! green leaf area index at current time + REAL LAIgm ! green leaf area index at previous time + REAL LAId ! dead leaf area index at current time + + ! Calculate current and previous green leaf area index (LAIg and LAIgm): + ! LAIg is log-linear with fPAR. Since measured fPAR is an area average, + ! divide by fVCover to get portion due to vegetation. Since fVCover can + ! be specified, check to assure that calculated fPAR does not exceed fPARMax. + + ! print*,'lai_1',fpar,fvcover,fparmax + + IF(fPAR/fVCover.GE.fPARmax) THEN + LAIg=LAImax + ELSE + LAIg=alog(1.-fPAR/fVCover)*LAImax/alog(1-fPARmax) + ENDIF + + IF(fPARm/fVCover.GE.fPARmax) THEN + LAIgm=LAImax + ELSE + LAIgm=alog(1.-fPARm/fVCover)*LAImax/alog(1-fPARmax) + ENDIF + + ! Calculate dead leaf area index (LAId): + ! If LAIg is increasing or unchanged, the vegetation is in growth mode. + ! LAId is then very small (very little dead matter). + ! If LAIg is decreasing, the peak in vegetation growth has passed and + ! leaves have begun to die off. LAId is then half the change in LAIg, + ! assuming half the dead leaves fall off. + + ! Growth mode dead leaf area index: + IF (LAIg.GE.LAIgm) LAId=0.0001 + + ! die-off (post peak growth) dead leaf area index: + IF (LAIg.LT.LAIgm) LAId=0.5*(LAIgm-LAIg) + + ! Calculate area average, total leaf area index (LAI): + LAI=(LAIg+LAId+stems)*fVCover + + !print*,'laigrn1',laig,laid,stems,fvcover + + ! Calculate greeness fraction (Green): + ! Greeness fraction=(green leaf area index)/(total leaf area index) + Green=LAIg/(LAIg+LAId+stems) + + !PRINT*,'end laigrn',LAI,Green,laimax + +return +END SUBROUTINE laigrn + +!############################################################################## +Subroutine AeroInterpolate (LAI,fVCover,LAIgrid,fVCovergrid,AeroVar,zo & + ,zp_disp,RbC,RdC) + +! This routine calculates the aerodynamic parameters by bi-linear +! interpolation from a lookup table of previously calculated values. +! The interpolation table is a numpts x numpts LAI/fVCover grid with +! LAI ranging from 0.02 to 10 and fVCover ranging from 0.01 to 1. + +implicit none + + ! begin input variables + REAL LAI ! actual area averaged LAI for interpolation + REAL fVCover ! vegetation cover fraction for interpolation + REAL LAIgrid(50) ! grid of LAI values for lookup table + REAL fVCovergrid(50)! grid of fVCover values for interpolation table + TYPE aero_var + REAL zo ! Canopy roughness coeff + REAL zp_disp ! Zero plane displacement + REAL RbC ! RB Coefficient + REAL RdC ! RC Coefficient + END TYPE aero_var + TYPE(aero_var) AeroVar(50,50) ! interpolation tables + + ! begin output variables + REAL RbC ! interpolated Rb coefficient + REAL RdC ! interpolated Rd coefficient + REAL zo ! interpolated roughness length + REAL zp_disp ! interpolated zero plane displacement + + ! begin internal variables + INTEGER i ! index for LAI grid location + INTEGER j ! index for fVCover grid location + REAL LocLAI ! local LAI var. to prevent changing main LAI value + REAL LocfVCover ! local fVCover var. to prevent changing fVCover value + REAL DLAI ! grid spacing between LAI values in tables + REAL DfVCover ! grid spacing between fVCover values in tables + + !print*,'aerointerp:lai,fvc=',lai,fvcover + + ! Calculate difference in LAI and veg-cover between array values. + ! Both go from about 0 to 1 in 50 array bins. + ! Used for interpolating between lookup table values below. + DLAI=LAIgrid(2)-LAIgrid(1) + DfVCover=fVCovergrid(2)-fVCovergrid(1) + + ! Assign input LAI and fVCover to local variables and make sure + ! they lie within the limits of the interpolation tables, assuring + ! the LAI and fVCover values returned from the routine are not modified. + LocLAI=MAX(LAI,0.02) + LocfVCover=MAX(fVCover,0.01) + + ! determine the nearest array location for the desired LAI and fVCover + i=INT(LocLAI/DLAI+1) + j=INT(LocfVCover/DfVCover+1) + j=MIN(j,49) + + ! interpolate RbC variable + CALL interpolate ( & + LAIgrid(i), & + LocLAI, & + DLAI, & + fVCovergrid(j), & + LocfVCover, & + DfVCover, & + AeroVar(i,j)%RbC, & + AeroVar(i+1,j)%RbC, & + AeroVar(i,j+1)%RbC, & + AeroVar(i+1,j+1)%RbC, & + RbC) + + ! interpolate RdC variable + CALL interpolate ( & + LAIgrid(i), & + LocLAI, & + DLAI, & + fVCovergrid(j), & + LocfVCover, & + DfVCover, & + AeroVar(i,j)%RdC, & + AeroVar(i+1,j)%RdC, & + AeroVar(i,j+1)%RdC, & + AeroVar(i+1,j+1)%RdC, & + RdC) + + ! interpolate roughness length + CALL interpolate ( & + LAIgrid(i), & + LocLAI, & + DLAI, & + fVCovergrid(j), & + LocfVCover, & + DfVCover, & + AeroVar(i,j)%zo, & + AeroVar(i+1,j)%zo, & + AeroVar(i,j+1)%zo, & + AeroVar(i+1,j+1)%zo, & + zo) + + ! interpolate zero plane displacement + CALL interpolate ( & + LAIgrid(i), & + LocLAI, & + DLAI, & + fVCovergrid(j), & + LocfVCover, & + DfVCover, & + AeroVar(i,j)%zp_disp, & + AeroVar(i+1,j)%zp_disp, & + AeroVar(i,j+1)%zp_disp, & + AeroVar(i+1,j+1)%zp_disp, & + zp_disp) + +return +END SUBROUTINE AeroInterpolate + +!############################################################################## +Subroutine interpolate (x1,x,Dx,y1,y,Dy,z11,z21,z12,z22,z) + +! calculates the value of z=f(x,y) by linearly interpolating +! between the 4 closest data points on a uniform grid. The routine +! requires a grid point (x1, y1), the grid spacing (Dx and Dy), and the +! 4 closest data points (z11, z21, z12, and z22). + +implicit none + + ! begin input variables + REAL x1 ! the x grid location of z11 + REAL x ! x-value at which you will interpolate z=f(x,y) + REAL Dx ! grid spacing in the x direction + REAL y1 ! the y grid location of z11 + REAL y ! y-value at which you will interpolate z=f(x,y) + REAL Dy ! grid spacing in the y direction + REAL z11 ! f(x1, y1) + REAL z21 ! f(x1+Dx, y1) + REAL z12 ! f(x1, y1+Dy) + REAL z22 ! f(x1+Dx, y1+Dy) + + ! begin output variables + REAL z ! f(x,y), the desired interpolated value + + ! begin internal variables + REAL zp ! z'=first interpolated value at (x, y1) + REAL zpp ! z''=second interpolated value at (x, Y1+Dy) + + ! interpolate between z11 and z21 to calculate z' (zp) at (x, y1) + zp=z11+(x-x1)*(z21-z11)/Dx + + ! interpolate between z12 and z22 to calculate z'' (zpp) at (x, Y1+Dy) + zpp=z12+(x-x1)*(z22-z12)/Dx + + ! interpolate between zp and zpp to calculate z at (x,y) + z=zp+(y-y1)*(zpp-zp)/Dy + +return +END SUBROUTINE interpolate + +!############################################################################## +Subroutine AverageAPAR (ndvi,NDVImin,NDVImax,SRmin,SRmax,fPARmax,fParmin,fPAR) + +! calculates Canopy absorbed fraction of Photosynthetically +! Active Radiation (fPAR) using an average of the Simple Ratio (sr) +! and NDVI methods (Los et al. (1999), eqn 5-6). The empirical +! SR method assumes a linear relationship between fPAR and SR. +! The NDVI method assumes a linear relationship between fPAR and NDVI. + +implicit none + + ! begin input variables + REAL ndvi ! normalized difference vegetation index + REAL NDVImin ! minimum NDVI for vegetation type + REAL NDVImax ! maximum NDVI for vegetation type + REAL SRmin ! minimum NDVI for vegetation type + REAL SRmax ! maximum NDVI for vegetation type + REAL fPARmax ! Maximum possible FPAR corresponding to 98th percentile + REAL fPARmin ! Minimum possible FPAR corresponding to 2nd percentile + + ! begin output variables + REAL fPAR ! Canopy absorbed fraction of PAR + + ! begin internal variables + REAL LocNDVI ! local value of NDVI to prevent changes in input value + REAL sr ! simple ratio of near IR and visible radiances + REAL NDVIfPAR ! fPAR from NDVI method + REAL SRfPAR ! fPAR from SR method + + ! switch to local value of ndvi to prevent any changes going back to main + LocNDVI=NDVI + + ! Insure calculated NDVI value falls within physical limits for veg. type + LocNDVI=MAX(LocNDVI,NDVImin) + LocNDVI=MIN(LocNDVI,NDVImax) + !print*,'fpar1:',locndvi,ndvimin,ndvimax + + ! Calculate simple ratio (SR) + sr=(1.+LocNDVI)/(1.-LocNDVI) + + ! Calculate fPAR using SR method (Los et al. (1999), eqn 5) + SRfPAR=(sr-SRmin)*(fPARmax-fPARmin)/(SRmax-SRmin)+fPARmin + !print*,'fpar2:',sr,srmin,fparmax,fparmin,srmin,srmax,fparmin + + ! Calculate fPAR using NDVI method (Los et al. (1999), eqn 6) + NDVIfPAR=(LocNDVI-NDVImin)*(fPARmax-fPARmin)/(NDVImax-NDVImin)+fPARmin + + ! take average of two methods + fPAR=0.5*(SRfPAR+NDVIfPAR) + !print*,'fpar3:',fpar,srfpar,ndvifpar + +return +END SUBROUTINE AverageAPAR + +!############################################################################## +Subroutine aparnew (LAI,Green,LTran,LRef,gmudmu,fVCover,fPAR,fPARmax,fPARmin) + +! recomputes the Canopy absorbed fraction of Photosynthetically +! Active Radiation (fPAR), adjusting for solar zenith angle and the +! vegetation cover fraction (fVCover) using a modified form of Beer's law.. +! See Sellers et al. Part II (1996), eqns. 9-13. + +implicit none + + ! begin input variables + REAL LAI ! Leaf Area Index + REAL Green ! Greeness fraction of Leaf Area Index + REAL LTran(2,2)! Leaf transmittance for green/brown plants + REAL LRef(2,2) ! Leaf reflectance for green/brown plants + ! For LTran and LRef: + ! (1,1)=shortwave, green plants + ! (2,1)=longwave, green plants + ! (1,2)=shortwave, brown plants + ! (2,2)=longwave, brown plants + REAL gmudmu ! daily Time-mean canopy optical depth + REAL fVCover ! Canopy cover fraction + REAL fPARmax ! Maximum possible FPAR corresponding to 98th percentile + REAL fPARmin ! Minimum possible FPAR corresponding to 2nd percentile + + ! begin output variables + REAL fPAR ! area average Canopy absorbed fraction of PAR + + ! begin internal variables + REAL scatp ! Canopy transmittance + reflectance coefficient wrt PAR + REAL PARk ! mean canopy absorption optical depth wrt PAR + + ! Calculate canopy transmittance + reflectance coefficient wrt PAR + ! transmittance + reflectance coefficient=green plants + brown plants + scatp=Green*(LTran(1,1)+LRef(1,1))+ & + (1.-Green)*(LTran(1,2)+LRef(1,2)) + + ! Calculate PAR absorption optical depth in canopy adjusting for + ! variance in projected leaf area wrt solar zenith angle + ! (Sellers et al. Part II (1996), eqn. 13b) + ! PAR absorption coefficient=(1-scatp) + PARk=SQRT(1.-scatp)*gmudmu + + ! Calculate the new fPAR (Sellers et al. Part II (1996), eqn. 9) + fPAR=fVCover*(1.-EXP(-PARk*LAI/fVCover)) + + ! Ensure calculated fPAR falls within physical limits + fPAR=amax1(fPARmin,fPAR) + fPAR=amin1(fPARmax,fPAR) + +return +END SUBROUTINE aparnew + +!############################################################################## +Subroutine gmuder (Lat, DOY, ChiL, gmudmu) + +! calculates daily time mean optical depth of canopy relative to the Sun. +! Look to see if this matches the definition of G(mu)/mu described in +! Bonan (1996) and Sellers (1985) + +implicit none + + ! begin input variables + REAL Lat ! latitude in degrees + INTEGER DOY ! day-of-year (typically middle day of the month) + REAL ChiL ! leaf angle distribution factor + + ! begin output variables + REAL gmudmu ! daily time mean canopy optical depth relative to Sun + REAL test ! test variable + + ! begin internal variables + REAL mumax ! max cosine of the Solar zenith angle (noon) + REAL mumin ! min cosine of the Solar zenith angle (rise/set) + REAL dec ! declination of the Sun (Solar Declination) + REAL pi180 ! conversion factor from degrees to radians + REAL aa ! minimum possible LAI projection vs. cosine Sun angle + REAL bb ! slope leaf area projection vs. cosine Sun angle + + ! Calculate conversion factor from degrees to radians + pi180=3.14159/180. + + ! Calculate solar declination in degrees + dec=23.5*SIN(1.72e-2*(DOY-80)) + + ! Calculate maximum cosine of zenith angle corresponding to noon + mumax=COS((dec-lat)*pi180) + mumax=MAX(0.02, mumax) + + ! Assign min cosine zenith angle corresponding to start disc set (cos(89.4)) + mumin=0.01 + + ! The projected leaf area relative to the Sun is G(mu)=aa+bb*mu + ! Calculate minimum projected leaf area + aa=0.5-0.633*ChiL-0.33*ChiL*ChiL + + ! Calculate slope of projected leaf area wrt cosine sun angle + bb=0.877*(1.-2.*aa) + + ! Calculate mean optical depth of canopy by integrating G(mu)/mu over + ! all values of mu. Since G(mu) has an analytical form, this comes to + gmudmu=aa*alog(mumax/mumin)/(mumax-mumin)+bb + +return +END SUBROUTINE gmuder + +!############################################################################## +Subroutine rada2 (snoww,zlt,z1,z2 & + ,asnow,tg,sunang,tf,ref,tran,chil & + ,green,vcover,soref,radfac,salb,valb,nalb & + ,thermk,tgeff4 & + ,tc,len) + +! CALCULATION OF ALBEDOS VIA TWO STREAM APPROXIMATION( DIRECT +! AND DIFFUSE ) AND PARTITION OF RADIANT ENERGY + +implicit none + +!++++++++++++++++++++++++++++++OUTPUT+++++++++++++++++++++++++++++++++++ +! SALB(2,2) SURFACE ALBEDOS +! VALB(2,2) VEGETATION ALBEDOS +! NALB(2,2) NON-VEGETATION ALBEDOS +! TGEFF4 EFFECTIVE SURFACE RADIATIVE TEMPERATURE (K) +! RADFAC(2,2,2) RADIATION ABSORPTION FACTORS +! THERMK CANOPY GAP FRACTION FOR TIR RADIATION +!++++++++++++++++++++++++++DIAGNOSTICS++++++++++++++++++++++++++++++++++ +! ALBEDO(2,2,2) COMPONENT REFLECTANCES +!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + + INTEGER len + REAL snoww(len,2), & + ref(len,2,2),tran(len,2,2),soref(len,2), & + salb(len,2,2),valb(len,2,2),nalb(len,2,2), & + radfac(len,2,2,2),asnow, & + zlt(len),z1(len),z2(len),tg(len),sunang(len), & + chil(len),green(len),vcover(len), & + tgeff4(len),tc(len), thermk(len) + REAL tf + + ! local variables + REAL TRANC1(2), TRANC2(2), TRANC3(2), satcap(len,2), & + f(len),fmelt(len),zmew(len),albedo(len,2,2,2), & + canex(len), areas(len), facs, scov, scat, chiv, aa, bb, & + fac2, fac1, zkat, tg4, tc4, tgs, hh6, & + hh5, hh3, hh2, zmk, hh10, hh9, hh8, hh7, den, zp, f1, ge, & + ek, epsi, power2, power1, zat, psi, hh4, hh1, fe, de, bot, & + ce, be, betao, upscat, acss, extkb, proj, tran2, tran1, & + reff1, reff2 + INTEGER iwave, i, irad + + !---------------------------------------------------------------------- + ! MODIFICATION FOR EFFECT OF SNOW ON UPPER STOREY ALBEDO + ! SNOW REFLECTANCE = 0.80, 0.40 . MULTIPLY BY 0.6 IF MELTING + ! SNOW TRANSMITTANCE = 0.20, 0.54 + !----------------------------------------------------------------------- + + DO i = 1,len ! loop over gridpoint + ! this portion is snow1 inlined + CANEX(i) = 1.-( SNOWw(i,1)*5.-Z1(i))/(Z2(i)-Z1(i)) + CANEX(i) = MAX( 0.1, CANEX(i) ) + CANEX(i) = MIN( 1.0, CANEX(i) ) + AREAS(i) = MIN(1.0 , ASNOW*SNOWw(i,2)) + SATCAP(i,1) = ZLT(i)*0.0001 * CANEX(i) + + !Collatz-Bounoua change satcap(2) to 0.0002 + ! SATCAP(i,2) = 0.002 + SATCAP(i,2) = 0.0002 ! lahouari + ! end old snow1 + F(i) = MAX(0.01746,SUNANG(i)) + FACS = ( TG(i)-TF ) * 0.04 + FACS = MAX( 0.0 , FACS) + FACS = MIN( 0.4, FACS) + FMELT(i) = 1. - FACS + ENDDO + + DO IWAVE = 1,2 + + !---------------------------------------------------------------------- + DO i = 1,len ! loop over gridpoint + SCOV = MIN( 0.5, SNOWw(i,1)/SATCAP(i,1) ) + REFF1 = ( 1. - SCOV ) * REF(i,IWAVE,1) + SCOV * ( 1.2 - & + IWAVE * 0.4 ) * FMELT(i) + REFF2 = ( 1. - SCOV ) * REF(i,IWAVE,2) + SCOV * ( 1.2 - & + IWAVE * 0.4 ) * FMELT(i) + TRAN1 = TRAN(i,IWAVE,1) * ( 1. - SCOV ) & + + SCOV * ( 1.- ( 1.2 - IWAVE * 0.4 ) * FMELT(i) ) & + * TRAN(i,IWAVE,1) + TRAN2 = TRAN(i,IWAVE,2) * ( 1. - SCOV ) & + + SCOV * ( 1.- ( 1.2 - IWAVE * 0.4 ) * FMELT(i) ) * 0.9 & + * TRAN(i,IWAVE,2) + + !---------------------------------------------------------------------- + ! CALCULATE AVERAGE SCATTERING COEFFICIENT, LEAF PROJECTION AND + ! OTHER COEFFICIENTS FOR TWO-STREAM MODEL. + ! + ! SCAT (OMEGA) : EQUATION (1,2) , SE-85 + ! PROJ (G(MU)) : EQUATION (13) , SE-85 + ! EXTKB (K, G(MU)/MU) : EQUATION (1,2) , SE-85 + ! ZMEW (INT(MU/G(MU)) : EQUATION (1,2) , SE-85 + ! ACSS (A-S(MU)) : EQUATION (5) , SE-85 + ! EXTK (K, VARIOUS) : EQUATION (13) , SE-85 + ! UPSCAT(OMEGA*BETA) : EQUATION (3) , SE-85 + ! BETAO (BETA-0) : EQUATION (4) , SE-85 + !---------------------------------------------------------------------- + + SCAT = GREEN(i)*( TRAN1 + REFF1 ) +( 1.-GREEN(i) ) * & + ( TRAN2 + REFF2) + CHIV = CHIL(i) + ! + IF ( ABS(CHIV) .LE. 0.01 ) CHIV = 0.01 + AA = 0.5 - 0.633 * CHIV - 0.33 * CHIV * CHIV + BB = 0.877 * ( 1. - 2. * AA ) + + PROJ = AA + BB * F(i) + EXTKB = ( AA + BB * F(i) ) / F(i) + ZMEW(i) = 1. / BB * ( 1. - AA / BB & + * LOG ( ( AA + BB ) / AA ) ) + ACSS = SCAT / 2. * PROJ / ( PROJ + F(i) * BB ) + ACSS = ACSS * ( 1. - F(i) * AA & + / ( PROJ + F(i) * BB ) * LOG ( ( PROJ & + + F(i) * BB + F(i) * AA ) / ( F(i) * AA ) ) ) + + UPSCAT = GREEN(i) * TRAN1 + ( 1.-GREEN(i) ) * TRAN2 + UPSCAT = 0.5 * ( SCAT + ( SCAT - 2. * UPSCAT ) * & + (( 1. - CHIV ) / 2. ) ** 2 ) + BETAO = ( 1. + ZMEW(i) * EXTKB ) & + / ( SCAT * ZMEW(i) * EXTKB ) * ACSS + + !---------------------------------------------------------------------- + ! Intermediate variables identified in appendix of SE-85. + ! + ! BE (B) : APPENDIX , SE-85 + ! CE (C) : APPENDIX , SE-85 + ! BOT (SIGMA) : APPENDIX , SE-85 + ! HH1 (H1) : APPENDIX , SE-85 + ! HH2 (H2) : APPENDIX , SE-85 + ! HH3 (H3) : APPENDIX , SE-85 + ! HH4 (H4) : APPENDIX , SE-85 + ! HH5 (H5) : APPENDIX , SE-85 + ! HH6 (H6) : APPENDIX , SE-85 + ! HH7 (H7) : APPENDIX , SE-85 + ! HH8 (H8) : APPENDIX , SE-85 + ! HH9 (H9) : APPENDIX , SE-85 + ! HH10 (H10) : APPENDIX , SE-85 + ! PSI (H) : APPENDIX , SE-85 + ! ZAT (L-T) : APPENDIX , SE-85 + ! EPSI (S1) : APPENDIX , SE-85 + ! EK (S2) : APPENDIX , SE-85 + !---------------------------------------------------------------------- + + BE = 1. - SCAT + UPSCAT + CE = UPSCAT + BOT = ( ZMEW(i) * EXTKB ) ** 2 + ( CE**2 - BE**2 ) + IF ( ABS(BOT) .LE. 1.E-10) THEN + SCAT = SCAT* 0.98 + BE = 1. - SCAT + UPSCAT + BOT = ( ZMEW(i) * EXTKB ) ** 2 + ( CE**2 - BE**2 ) + END IF + DE = SCAT * ZMEW(i) * EXTKB * BETAO + FE = SCAT * ZMEW(i) * EXTKB * ( 1. - BETAO ) + HH1 = -DE * BE + ZMEW(i) * DE * EXTKB - CE * FE + HH4 = -BE * FE - ZMEW(i) * FE * EXTKB - CE * DE + + PSI = SQRT(BE**2 - CE**2)/ZMEW(i) + + ZAT = ZLT(i)/VCOVER(i)*CANEX(i) + + POWER1 = MIN( PSI*ZAT, 50.E0 ) + POWER2 = MIN( EXTKB*ZAT, 50.E0 ) + EPSI = EXP( - POWER1 ) + EK = EXP ( - POWER2 ) + + ALBEDO(i,2,IWAVE,1) = SOREF(i,IWAVE)*(1.-AREAS(i)) & + + ( 1.2-IWAVE*0.4 )*FMELT(i) * AREAS(i) + ALBEDO(i,2,IWAVE,2) = SOREF(i,IWAVE)*(1.-AREAS(i)) & + + ( 1.2-IWAVE*0.4 )*FMELT(i) * AREAS(i) + GE = ALBEDO(i,2,IWAVE,1)/ALBEDO(i,2,IWAVE,2) + + !---------------------------------------------------------------------- + ! CALCULATION OF DIFFUSE ALBEDOS + ! + ! ALBEDO(1,IWAVE,2) ( I-UP ) : APPENDIX , SE-85 + !---------------------------------------------------------------------- + + F1 = BE - CE / ALBEDO(i,2,IWAVE,2) + ZP = ZMEW(i) * PSI + + DEN = ( BE + ZP ) * ( F1 - ZP ) / EPSI - & + ( BE - ZP ) * ( F1 + ZP ) * EPSI + HH7 = CE * ( F1 - ZP ) / EPSI / DEN + HH8 = -CE * ( F1 + ZP ) * EPSI / DEN + F1 = BE - CE * ALBEDO(i,2,IWAVE,2) + DEN = ( F1 + ZP ) / EPSI - ( F1 - ZP ) * EPSI + + HH9 = ( F1 + ZP ) / EPSI / DEN + HH10 = - ( F1 - ZP ) * EPSI / DEN + TRANC2(IWAVE) = HH9 * EPSI + HH10 / EPSI + + ALBEDO(i,1,IWAVE,2) = HH7 + HH8 + + !---------------------------------------------------------------------- + ! CALCULATION OF DIRECT ALBEDOS AND CANOPY TRANSMITTANCES. + ! + ! ALBEDO(1,IWAVE,1) ( I-UP ) : EQUATION(11) , SE-85 + ! TRANC(IWAVE) ( I-DOWN ) : EQUATION(10) , SE-85 + !---------------------------------------------------------------------- + + F1 = BE - CE / ALBEDO(i,2,IWAVE,2) + ZMK = ZMEW(i) * EXTKB + + DEN = ( BE + ZP ) * ( F1 - ZP ) / EPSI - & + ( BE - ZP ) * ( F1 + ZP ) * EPSI + HH2 = ( DE - HH1 / BOT * ( BE + ZMK ) ) & + * ( F1 - ZP ) / EPSI - & + ( BE - ZP ) * ( DE - CE*GE - HH1 / BOT & + * ( F1 + ZMK ) ) * EK + HH2 = HH2 / DEN + HH3 = ( BE + ZP ) * (DE - CE*GE - & + HH1 / BOT * ( F1 + ZMK ))* EK - & + ( DE - HH1 / BOT * ( BE + ZMK ) ) * & + ( F1 + ZP ) * EPSI + HH3 = HH3 / DEN + F1 = BE - CE * ALBEDO(i,2,IWAVE,2) + DEN = ( F1 + ZP ) / EPSI - ( F1 - ZP ) * EPSI + HH5 = - HH4 / BOT * ( F1 + ZP ) / EPSI - & + ( FE + CE*GE*ALBEDO(i,2,IWAVE,2) + & + HH4 / BOT*( ZMK-F1 ) ) * EK + HH5 = HH5 / DEN + HH6 = HH4 / BOT * ( F1 - ZP ) * EPSI + & + ( FE + CE*GE*ALBEDO(i,2,IWAVE,2) + & + HH4 / BOT*( ZMK-F1 ) ) * EK + HH6 = HH6 / DEN + TRANC1(IWAVE) = EK + TRANC3(IWAVE) = HH4 / BOT * EK + HH5 * EPSI + HH6 / EPSI + + ALBEDO(i,1,IWAVE,1) = HH1 / BOT + HH2 + HH3 + + !---------------------------------------------------------------------- + ! CALCULATION OF TERMS WHICH MULTIPLY INCOMING SHORT WAVE FLUXES + ! TO GIVE ABSORPTION OF RADIATION BY CANOPY AND GROUND + ! + ! RADFAC (F(IL,IMU,IV)) : EQUATION (19,20) , SE-86 + !---------------------------------------------------------------------- + + RADFAC(i,2,IWAVE,1) = ( 1.-VCOVER(i) ) & + * ( 1.-ALBEDO(i,2,IWAVE,1) ) + VCOVER(i) & + * ( TRANC1(IWAVE) * ( 1.-ALBEDO(i,2,IWAVE,1) ) & + + TRANC3(IWAVE) * ( 1.-ALBEDO(i,2,IWAVE,2) ) ) + ! + RADFAC(i,2,IWAVE,2) = ( 1.-VCOVER(i) ) & + * ( 1.-ALBEDO(i,2,IWAVE,2) ) + VCOVER(i) & + * TRANC2(IWAVE) * ( 1.-ALBEDO(i,2,IWAVE,2) ) + ! + RADFAC(i,1,IWAVE,1) = VCOVER(i) & + * ( ( 1.-ALBEDO(i,1,IWAVE,1) ) & + - TRANC1(IWAVE) * ( 1.-ALBEDO(i,2,IWAVE,1) ) & + - TRANC3(IWAVE) * ( 1.-ALBEDO(i,2,IWAVE,2) ) ) + ! + RADFAC(i,1,IWAVE,2) = VCOVER(i) & + * ( ( 1.-ALBEDO(i,1,IWAVE,2) ) & + - TRANC2(IWAVE) * ( 1.-ALBEDO(i,2,IWAVE,2) ) ) + ENDDO + + !---------------------------------------------------------------------- + ! CALCULATION OF TOTAL SURFACE ALBEDOS ( SALB ) WITH WEIGHTING + ! FOR COVER FRACTIONS. + !---------------------------------------------------------------------- + + DO IRAD = 1,2 + DO i = 1,len ! loop over gridpoint + SALB(i,IWAVE,IRAD) = ( 1.-VCOVER(i) ) & + * ALBEDO(i,2,IWAVE,IRAD) + & + VCOVER(i) * ALBEDO(i,1,IWAVE,IRAD) + VALB(i,IWAVE,IRAD) = ALBEDO(i,1,IWAVE,IRAD) + NALB(i,IWAVE,IRAD) = ALBEDO(i,2,IWAVE,IRAD) + ENDDO + ENDDO + ! + !---------------------------------------------------------------------- + ! + ENDDO + ! + !---------------------------------------------------------------------- + ! + ! CALCULATION OF LONG-WAVE FLUX TERMS FROM CANOPY AND GROUND + ! + !---------------------------------------------------------------------- + ! + DO i = 1,len ! loop over gridpoint + TGS = MIN(TF,TG(i))*AREAS(i) & + + TG(i)*(1.-AREAS(i)) + TC4 = TC(i)**4 + TG4 = TGS**4 + ! + ZKAT = 1./ZMEW(i) * ZLT(i) / VCOVER(i) + ZKAT = MIN( 50.E0 , ZKAT ) + ZKAT = MAX( 1.E-5, ZKAT ) + THERMK(i) = EXP(-ZKAT) + ! + FAC1 = VCOVER(i) * ( 1.-THERMK(i) ) + FAC2 = 1. + TGEFF4(i) = FAC1 * TC4 & + + (1. - FAC1 ) * FAC2 * TG4 + ENDDO + +return +END SUBROUTINE rada2 + +!############################################################################## +Subroutine rnload (len,nsib,radvbc,radvdc,radnbc,radndc,dlwbot,VCOVER & + ,thermk,radfac,radn,radc3) + +! calculation of absorption of radiation by surface. Note that +! output from this calculation (radc3) only accounts for the +! absorption of incident longwave and shortwave fluxes. The +! total net radiation calculation is performed in routine +! netrad. + +implicit none + + !++++++++++++++++++++++++++++++OUTPUT+++++++++++++++++++++++++++++++++++ + ! + ! RADN(2,3) INCIDENT RADIATION FLUXES (W M-2) + ! RADC3(2) SUM OF ABSORBED RADIATIVE FLUXES (W M-2) + ! + !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + + INTEGER len, nsib + REAL radc3(len,2), radn(len,2,2), radfac(nsib,2,2,2), & + radvbc(len), radvdc(len), radnbc(len), radndc(len), & + dlwbot(len), VCOVER(len), thermk(len) + + INTEGER i, iveg, iwave, irad + + !----------------------------------------------------------------------- + ! CALCULATION OF SOIL MOISTURE STRESS FACTOR. + ! AVERAGE SOIL MOISTURE POTENTIAL IN ROOT ZONE (LAYER-2) USED AS + ! SOURCE FOR TRANSPIRATION. + ! + ! RADN (F(IW,IMU,O)) : EQUATION (19-22) , SE-86 + ! RADC3 (FC,FGS) : EQUATION (21,22) , SE-86 + !----------------------------------------------------------------------- + + DO i = 1,len + RADc3(i,1) = 0. + RADc3(i,2) = 0. + radn(i,1,1) = radvbc(i) + radn(i,1,2) = radvdc(i) + radn(i,2,1) = radnbc(i) + radn(i,2,2) = radndc(i) + ENDDO + + DO iveg=1,2 + DO iwave=1,2 + DO irad=1,2 + DO i = 1,len + radc3(i,iveg) = radc3(i,iveg) + & + radfac(i,iveg,iwave,irad) * & + radn(i,iwave,irad) + ENDDO + ENDDO + ENDDO + ENDDO + + ! absorbed downwelling radiation only + + DO i = 1,len + RADc3(i,1) = RADc3(i,1) + dlwbot(i) * & + VCOVER(i) * (1.- THERMK(i)) + RADc3(i,2) = RADc3(i,2) + dlwbot(i) * & + (1.-VCOVER(i) * (1.-THERMK(i))) + ENDDO + + RETURN +END SUBROUTINE rnload + +!############################################################################## +real Function E (X) + +!E(X) IS VAPOUR PRESSURE IN MBARS AS A FUNC OF TEMPERATURE +! Func E - Defined by Alvaro + +implicit none + +REAL, INTENT(IN) :: X + +E = EXP( 21.18123 - 5418. / X ) / .622 + +return +END FUNCTION E + +!############################################################################## +real Function GE (X) + +!GE(X) IS D E(X) / D ( TEMP ) +! Func GE - Defined by Alvaro + +implicit none + +REAL, INTENT(IN) :: X + +GE = EXP( 21.18123 - 5418. / X ) * 5418. / (X*X) / .622 + +return +END FUNCTION GE + +!############################################################################## +Subroutine begtem (tc,tg,cpair,hlat,psur,snomel & + ,zlt,clai,cw,www,poros,pie,psy & + ,phsat,bee,ccx,cg,phc & + ,tgs,etc,etgs,getc,getgs,rstfac & + ,rsoil,hr,wc,wg,snoww,capac & + ,areas,satcap,csoil,tf,g & + ,len,nlen) + +implicit none + + !======================================================================== + ! Calculation of flux potentials and constants prior to heat + ! flux calculations. Corresponds to first half of TEMREC + ! in 1D model. + !======================================================================== + !++++++++++++++++++++++++++++++OUTPUT+++++++++++++++++++++++++++++++++++ + ! RSTFAC(2) SOIL MOISTURE STRESS FACTOR + ! RSOIL SOIL SURFACE RESISTANCE (S M-1) + ! HR SOIL SURFACE RELATIVE HUMIDITY + ! WC CANOPY WETNESS FRACTION + ! WG GROUND WETNESS FRACTION + ! CCX CANOPY HEAT CAPACITY (J M-2 K-1) + ! CG GROUND HEAT CAPACITY (J M-2 K-1) + !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + +real, external :: e +real, external :: ge + +integer len, nlen +real :: www(len,3),rstfac(len,4),satcap(len,2), & + snoww(nlen,2),capac(nlen,2), & + tc(nlen),tg(nlen),tm(nlen),hlat,psur(nlen), & + zlt(nlen),poros(nlen),phsat(nlen), & + bee(nlen),ccx(len),cg(nlen),tgs(len),etc(len), & + etgs(len),getgs(len),rsoil(len), & + hr(len),wc(len),wg(len),areas(len),csoil(len), & + getc(len), phc(nlen), psy(len) +real :: cpair, snomel, cw, tf, g, clai, pie +! local variables +integer :: i +real :: slamda,shcap,x,tsnow,rsnow,fac,psit,argg & + ,phroot(len),shcapf,shcapu + + !---------------------------------------------------------------------- + ! E(X) IS VAPOUR PRESSURE IN MBARS AS A FUNC OF TEMPERATURE + ! GE(X) IS D E(X) / D ( TEMP ) + !---------------------------------------------------------------------- + + !---------------------------------------------------------------------- + ! CALCULATION OF CANOPY AND GROUND HEAT CAPACITIES. + ! N.B. THIS SPECIFICATION DOES NOT NECESSARILY CONSERVE ENERGY WHEN + ! DEALING WITH VERY LARGE SNOWPACKS. + ! HEAT CAPACITY OF THE SOIL, AS USED IN FORCE-RESTORE HEAT FLUX + ! DESCRIPTION. DEPENDENCE OF CSOIL ON POROSITY AND WETNESS. + ! + ! CG (cg) : EQUATION (?) , CS-81 + !---------------------------------------------------------------------- + DO i = 1,len + ! new calculation for ground heat capacity cg - no longer force-restore + ! now for the top 1cm of snow and soil, with phase change in the soil + ! incorporated into the heat capacity from +0.5C to -0.5C + SHCAPu = ( 0.5*(1.-POROS(i)) + WWW(i,1)* & + POROS(i)) * 4.186E6 + shcapf = 0.5 * (1. + poros(i) * (www(i,1)-1.0)) * 4.186E6 + IF(tg(i).GE.tf+0.5) THEN + csoil(i) = shcapu * 0.02 + ELSE IF(tg(i).LE.tf-0.5) THEN + csoil(i) = shcapf * 0.02 + ELSE + csoil(i) = (0.5*(shcapu+shcapf) + & + snomel*poros(i)*www(i,1) ) * 0.02 + ENDIF + + CCX(i) = ZLT(i)*CLAI+ & + (0.5*SNOWw(i,1)+CAPAC(i,1))*CW + CG(i) = (1.-areas(i))*CSOIL(i) + & + cw * (capac(i,2) + 0.01 * areas(i)) + ENDDO + + DO i = 1,len + ! HLAT(i) = ( 3150.19 - 2.378 * TM(i) ) * 1000. !use constant passed in + PSY(i) = CPAIR / HLAT * PSUR(i) / .622 + !---------------------------------------------------------------------- + ! Calculation of ground surface temperature and wetness fractions + !---------------------------------------------------------------------- + TSNOW = MIN ( TF-0.01, TG(i) ) + RSNOW = SNOWw(i,2) / & + (SNOWw(i,2)+CAPAC(i,2)+1.E-10) + + TGS(i) = TSNOW*AREAS(i) + TG(i)*(1.-AREAS(i)) + IF(tgs(i).LT.0.0)tgs(i) = SQRT(tgs(i)) + + ETC(i) = E(TC(i)) + ETGS(i) = E(TGS(i)) + GETC(i) = GE(TC(i)) + GETGS(i) = GE(TGS(i)) + + WC(i) = MIN(1.0,(CAPAC(i,1)+SNOWw(i,1))/SATCAP(i,1)) + WG(i) = MAX(0.0,CAPAC(i,2)/SATCAP(i,2))*0.25 + + !----------------------------------------------------------------------- + ! CALCULATION OF SOIL MOISTURE STRESS FACTOR. + ! AVERAGE SOIL MOISTURE POTENTIAL IN ROOT ZONE (LAYER-2) USED AS + ! SOURCE FOR TRANSPIRATION. + ! + ! PHROOT (PSI-R) : EQUATION (48) , SE-86 + ! RSTFAC(2) F(PSI-L) : MODIFICATION OF EQUATION (12), SE-89 + !----------------------------------------------------------------------- + + PHROOT(i) = PHSAT(i) * MAX(0.02,WWW(i,2))**(-BEE(i)) + PHROOT(i) = MAX ( PHROOT(i),-2.E3) + RSTFAC(i,2) = 1./( 1. + EXP( 0.02*( PHC(i)-PHROOT(i)) )) + RSTFAC(i,2) = MAX(0.0001,RSTFAC(i,2)) + RSTFAC(i,2) = MIN(1.0, RSTFAC(i,2)) + + !---------------------------------------------------------------------- + ! RSOIL FUNC FROM FIT TO FIFE-87 DATA. Soil surface layer + ! relative humidity. + ! + ! RSOIL (RSOIL) : HEISER 1992 (PERSONAL COMMUNICATION) + ! HR (Fh) : EQUATION (66) , SE-86 + !---------------------------------------------------------------------- + + FAC = MIN( WWW(i,1), 1.0 ) + FAC = MAX( FAC,0.02) + + ! Collatz-Bounoua change rsoil to FIFE rsoil formulation from eq(19) SE-92 + !cbl RSOIL(i) = MAX (0.1, 694. - FAC*1500.) + 23.6 + rsoil(i) = EXP(8.206 - 4.255 * fac) ! lahouari + + PSIT = PHSAT(i) * FAC ** (- BEE(i) ) + ARGG = MAX(-10.0,(PSIT*G/ (461.5*TGS(i)) )) + HR(i) = EXP(ARGG) + ENDDO + +return +END SUBROUTINE begtem + +!############################################################################## +Subroutine NETRAD (radc3, radt, stefan, fac1, & + vcover, thermk, tc, tg, tf, & + dtc4, dtg4, dts4, closs, gloss, sloss, & + tgeff, areas, len) + +! CALCULATE RADT USING RADIATION FROM PHYSICS AND CURRENT +! LOSSES FROM CANOPY AND GROUND + +implicit none + +!======================================================================= +!pl bands in sib: 0.2 to 0.7 micromets are VIS, then +!pl 0.7 to 4.0 is NIR, above 4.0 it is thermal +!++++++++++++++++++++++++++++++OUTPUT+++++++++++++++++++++++++++++++++++ +! RADt (2) SUM OF ABSORBED RADIATIVE FLUXES (W M-2) +!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + + INTEGER len + REAL radc3(len,2),radt(len,3),stefan, fac1(len), & + vcover(len),thermk(len),tc(len),tg(len), tf, & + areas(len), tgeff(len), & + dtc4(len), dtg4(len), dts4(len), & + closs(len), gloss(len), sloss(len) + + ! local variables + INTEGER i + REAL tc4, tg4, ts4, tsnow, radtbar, zlwup & + , feedfac &! feedback factor + , stefanx4 ! stefan-boltzmann const X 4.0 + DATA feedfac/1.0/ + + stefanx4 = 4.0 * stefan + + DO I=1,len + tsnow = MIN(tf, tg(i)) + !itb...Joerg Kaduk assures me this is quicker than an exponent... + TC4 = TC(i) * TC(i) * TC(i) * TC(i) + TG4 = TG(i) * TG(i) * TG(i) * TG(i) + ts4 = tsnow * tsnow * tsnow * tsnow + + !pl effective ground cover for thermal radiation + FAC1(i) = VCOVER(i) * ( 1.-THERMK(i) ) + + !pl derivatives + DTC4(i) = stefanX4 * TC(i)* TC(i) * TC(i) + DTG4(i) = stefanX4 * TG(i)* TG(i) * TG(i) + Dts4(i) = stefanX4 * tsnow * tsnow * tsnow + + CLOSS(i) = 2. * FAC1(i) * STEFAN * TC4 + !pl canopy leaves thermal radiation loss + CLOSS(i) = CLOSS(i) - FAC1(i) * STEFAN * & + ( (1.-areas(i))*TG4+areas(i)*ts4) + !pl ground loss + GLOSS(i) = STEFAN * TG4 - FAC1(i) * STEFAN * TC4 + !pl snow loss + SLOSS(i) = STEFAN * Ts4 - FAC1(i) * STEFAN * TC4 + !pl canopy leaves net radiation + RADT(i,1) = RADC3(i,1) - closs(i) + !pl ground net radiation + RADT(i,2) = RADC3(i,2) - gloss(i) + !pl snow net radiation + RADT(i,3) = RADC3(i,2) - sloss(i) + !pl bulk, weighted net radiation from combined ground and snow + radtbar = areas(i)*radt(i,3) + (1.-areas(i))*radt(i,2) + !pl this is the exchange meant to help out exchanges between + !pl ground and snow + + radt(i,2) = radtbar + (1.+feedfac)*(radt(i,2)-radtbar) + radt(i,3) = radtbar + (1.+feedfac)*(radt(i,3)-radtbar) + !pl total thermal radiation up from surface + zlwup = fac1(i) * tc4 + & + (1.-fac1(i)) * (areas(i)*ts4+(1.-areas(i))*tg4) + !pl effective (combined) skin temperature from surface thermal radiation + TGEFF(i) = ZLWUP ** 0.25 + ENDDO + +return +END SUBROUTINE NETRAD + +!############################################################################## +Subroutine vnqsat (iflag, TQS, PQS, QSS, IM) + +! Computes saturation mixing ratio or saturation vapour pressure +! as a func of temperature and pressure for water vapour. + +implicit none + +! INPUT VARIABLES TQS,PQS,iflag,im +! OUTPUT VARIABLES QSS +! ROUTINES called (AMAX1,AMIN1) +! iflag = 1 for saturation mixing ratio, otherwise for saturation +! vapor pressure + +!Modifications: +! - removed routine VHQSAT and made the call to it in c3vint.F +! a call to VNQSAT adding the iflag=1 argument. changed +! routine name from VQSAT to VNQSAT and all calls to +! VQSAT (c1subs.F, c3subs.F, comp3.F, hstatc.F, ocean.F) to +! VNQSAT with the iflag=1 argument. kwitt 10/23/91 + +! converted to fortran 90 syntax - dd 6/17/93 + + ! argument declarations + + INTEGER im,ic(IM), iflag + REAL TQS(IM), PQS(IM), QSS(IM) + + ! local declarations + + REAL EST(139), tq1(IM), es1(IM), es2(IM), epsinv + + DATA EST/ 0.0031195, 0.0036135, 0.0041800, 0.0048227, 0.0055571, & + 0.0063934, 0.0073433, 0.0084286, 0.0096407, 0.011014, & + 0.012582, 0.014353, 0.016341, 0.018574, 0.021095, 0.023926, & + 0.027096, 0.030652, 0.034629, 0.039073, 0.044028, 0.049546, & + 0.055691, 0.062508, 0.070077, 0.078700, 0.088128, 0.098477, & + 0.10983, 0.12233, 0.13608, 0.15121, 0.16784, 0.18615, 0.20627, & + 0.22837, 0.25263, 0.27923, 0.30838, 0.34030, 0.37520, 0.41334, & + 0.45497, 0.50037, 0.54984, 0.60369, 0.66225, 0.72589, 0.79497, & + 0.86991, 0.95113, 1.0391, 1.1343, 1.2372, 1.3484, 1.4684, & + 1.5979, 1.7375, 1.8879, 2.0499, 2.2241, 2.4113, 2.6126, 2.8286, & + 3.0604, 3.3091, 3.5755, 3.8608, 4.1663, 4.4930, 4.8423, & + 5.2155, 5.6140, 6.0394, 6.4930, 6.9767, 7.4919, 8.0406, 8.6246, & + 9.2457, 9.9061, 10.608, 11.353, 12.144, 12.983, 13.873, 14.816, & + 15.815, 16.872, 17.992, 19.176, 20.428, 21.750, 23.148, 24.623, & + 26.180, 27.822, 29.553, 31.378, 33.300, 35.324, 37.454, 39.696, & + 42.053, 44.531, 47.134, 49.869, 52.741, 55.754, 58.916, 62.232, & + 65.708, 69.351, 73.168, 77.164, 81.348, 85.725, 90.305, 95.094, & + 100.10, 105.33, 110.80, 116.50, 122.46, 128.68, 135.17, 141.93, & + 148.99, 156.34, 164.00, 171.99, 180.30, 188.95, 197.96, 207.33, & + 217.08, 227.22, 237.76, 248.71/ + + EPSINV = 1./1.622 + + tq1(:) = MAX(1.00001E0,(tqs(:)-198.99999)) + tq1(:) = MIN(138.900001E0,tq1(:)) + ic(:) = tq1(:) + + es1(:) = est(ic(:)) + es2(:) = est(ic(:)+1) + + qss(:) = ic(:) + qss(:) = es1(:) + (es2(:)-es1(:)) * (tq1(:)-qss(:)) + tq1(:) = pqs(:) * epsinv + qss(:) = MIN(tq1(:),qss(:)) + + IF (IFLAG .EQ. 1) qss(:) = 0.622 * qss(:) / (pqs(:)-qss(:)) + +return +END SUBROUTINE vnqsat + +!############################################################################## +Subroutine VNTLAT & + (igrp,jgrp,grav, tice, & + vkrmn, delta, dtt, tc, gt, ts, ps, zlt, & + www, tgs, etc, etg,snoww, & + rstfac, rsoil, hr, wc, wg,snofac, & + sh, z0, spdm, sha, ros,cas_cap_co2, & + cu, ra, thvgm, rib, ustar, rstar,tstar, & + ventmf, thm, tha, z2, d, & + fc, fg, rbc, rdc,gect,geci,gegs,gegi, & + respcp, rb, rd, rds, bps, rst, rc, ecmass, & + ea, hrr, assimn, bintc, ta, pco2m, po2m, vmax0, & + green, tran, ref, gmudmu, trop, trda, trdm, slti, & + shti, hlti, hhti, radn, effcon, binter, gradm, & + atheta, btheta, aparkk, wsfws, wsfht, wsflt, wci, & + whs, omepot, assimpot, assimci, antemp, assimnp, & + wags, wegs, aparc, pfd, assim, td, wopt, zm, wsat, & + soilscale, zmstscale, drst, & + soilq10, ansqr, & + nsib, len, nsoil, & + thgeff, shgeff, ct, zwind, ztemp, & + respg, respfactor, pco2ap, pco2i, pco2c, pco2s & + , co2cap,cflux) + +!Optimized routine phosib +!dd 92.06.10 + +implicit none + + ! argument list declarations + INTEGER nsib, len, nsoil,igrp,jgrp + REAL grav, tice & + , vkrmn, delta, dtt, zwind, ztemp & + , snofac + REAL tc(len), gt(len), ts(len), ps(len), zlt(len) & + , www(len,3) & + , tgs(len), etc(len), etg(len) & + , rstfac(len,4), rsoil(len), hr(len) & + , wc(len), wg(len) & + , sh(len),cflux(len) & + , z0(len), spdm(len), sha(len), ros(len) & + , cu(len), ra(len), thvgm(len), rib(len), ustar(len) & + , rstar(len), tstar(len) & + , ventmf(len), thm(len), tha(len), z2(len), d(len) & + , fc(len), fg(len), rbc(len), rdc(len),rds(len) & + , respcp(len), cogr(len), cogs(len), rb(len), rd(len) & + , bps(len), rst(len), rc(len), ecmass(len), ea(len) & + , hrr(len), assimn(len), bintc(len), ta(len) & + , pco2m(len), po2m, vmax0(len), green(len), tran(len,2,2) & + , ref(len,2,2), gmudmu, trop(len), trda(len) & + , trdm(len), slti(len), shti(len), hlti(len) & + , hhti(len), radn(len,2,2), effcon(len), binter(len) & + , gradm(len), atheta(len), btheta(len) & + , aparkk(len), wsfws(len), wsfht(len), wsflt(len) & + , wci(len), whs(len), omepot(len), assimpot(len) & + , assimci(len), antemp(len), assimnp(len), wags(len) & + , wegs(len), aparc(len), pfd(len), assim(len), td(nsib,5) & + , wopt(len), zm(len), wsat(len), soilscale(len,nsoil+1) & + , zmstscale(len,2) & + , drst(len), soilq10(len,nsoil+1), ansqr(len) & + , respg(len) & + , thgeff(len), shgeff(len), ct(len) & + , pco2s(len),pco2i(len) & !added for neil suits' programs + , pco2ap(len),pco2c(len) &! more added nsuits vars + , co2cap(len) & ! moles of air in canopy + , snoww(len,2) & ! snow cover (veg and ground) (m) + , cas_cap_co2(len) & + , gect(len) & + , geci(len) & + , gegs(len) & + , gegi(len) + + REAL respfactor(nsib, nsoil+1) + + ! local variables + + INTEGER i + REAL zln2, ghalf, dmin, pdamp, qdamp, dttin,eps + REAL u2(len), cog1(len), cog2(len), vsib(len) & + , thsib(len), coc(len), tprcor(len) & + , cni(len), cuni(len), ctni(len), ctni3(len), cti(len) & + , cui(len) , temv(len), cun(len), ctn(len) & + , z1z0Urt(len), z1z0Trt(len), zzwind(len), zztemp(len) & + , epsc(len),epsg(len) + + + EPS = 1. / SNOFAC + + !Calculate damping factors + zln2 = 6.9314718e-1 + ghalf = 1.0257068e1 + dttin = 3.6e3 + dmin = 6.0e1 + pdamp = EXP(-1.0 * zln2*(dtt*dmin)/(dttin*ghalf)) + qdamp = 1.0 - pdamp + + !Calculate stars and ventilation mass flux + DO i = 1,len + zzwind(i) = z2(i)-d(i)+ zwind + zztemp(i) = z2(i)-d(i)+ ztemp + ENDDO + CALL VMFCALZ (VKRMN,DELTA,GRAV & + , SH,z0 & + , SPDM,SHA,ROS,CU,ct,THVGM,RIB & + , USTAR,RSTAR,TSTAR,VENTMF,THM & + , tha, zzwind, zztemp & + , cuni, cun, ctn, z1z0Urt, z1z0Trt, len ) + + !Calculate AERODYNAMIC RESISTANCE + DO I=1,len + RA(I) = ROS(i) / VENTMF(i) + TEMV(I) = (Z2(i) - D(i)) / z0(i) + U2(I) = SPDM(i) / (CUNI(i) * VKRMN) + !print*,'temv',u2(i),temv(I),Z2(i),D(i),z0(i) + temv(i) = LOG(temv(i)) + U2(I) = U2(I) * TEMV(I) + ENDDO + + FC(:) = 1.0 + FG(:) = 1.0 + + CALL RBRD (tc,rbc,zlt,z2,u2,rd,rb,ta,grav,rdc,tgs,len) + + DO I=1,len + + !itb...here is inserted some PL prog CAS stuff... + epsc(i) = 1. + epsg(i) = 1. + !itb...pl says this only makes sense for canopy leaves, since + !itb...there can only be water OR snow, not both. switching epsc + !itb...epsc to eps makes the hltm adapt to freezing/fusion. + + IF(snoww(i,1) .GT. 0.0) epsc(i) = eps + IF(snoww(i,2) .GT. 0.0) epsg(i) = eps + + RC(i) = RST(i) + RB(i) + RB(i) + + RDS(i) = RSOIL(i) * FG(i) + RD(i) + + GECT(i) = (1. - WC(i)) / RC(i) + GECI(i) = epsc(i) * WC(i) / (RB(i) + RB(i)) + + GEGS(i) = (1. - WG(i)) / RDS(i) + GEGI(i) = epsg(i) * WG(i) / RD(i) + + COC(i) = GECT(i) + GECI(i) + + + VSIB(I) = 1.0/RB(I) + 1.0/RD(I) + THSIB(I) = (GT(i)/RD(I) + TC(i)/RB(I)) / & + (BPS(i)*VSIB(I)) + ENDDO + + !czzggrst calculate ecmass -- canopy evapotranspiration + + DO i=1,len + ecmass(i) = (etc(i) - ea(i)) * coc(i) * & + ros (i) * 0.622e0 /ps(i) * dtt + ENDDO + + ! Calculate the rate of CO2 efflux from soils, according to the "R-star" + ! approach of Denning et al (1996), adapted for use with the Bonan + ! 6-layer soil thermodynamics module. + ! Changed soil Q10 value for soil respiration from 2.0 to 2.4 + ! following Raich and Schelsinger (1992, Tellus 44B, 81-89), + ! Scott Denning, 9/14/95 + CALL respsib (len, nsib, nsoil, wopt, zm, www, wsat, & + tgs, td, respfactor, respg, soilscale, & + zmstscale, soilq10) + + ! Calculation of canopy conductance and photosynthesis + CALL phosib (igrp,jgrp,pco2m,pco2ap,po2m,vmax0,tice,ps,green & + , tran,ref,gmudmu,zlt,cas_cap_co2,tc,ta,trop,trda & + , trdm,slti,shti,hlti,hhti & + , radn,etc & + , ea,rb,ra,ts & + , effcon,rstfac,binter,gradm,assimn & + , rst,atheta & + , btheta,tgs,respcp,aparkk, len, nsib, & + omepot,assimpot,assimci,antemp,assimnp, & + wsfws,wsfht,wsflt,wci,whs, & + wags,wegs,aparc,pfd,assim, td, & + soilscale, & + drst, pdamp,qdamp,ecmass,dtt,bintc,tprcor,ansqr, & + nsoil, respg, pco2c, pco2i, & + pco2s,co2cap,cflux) + + DO i = 1,len + bintc(i) = bintc(i) * tc(i) / ( 44.6 * tprcor(i)) + IF(ea(i).GT.etc(i)) fc(i) = 0.0 + IF(ea(i).GT.etg(i)) fg(i) = 0.0 + HRR(I) = HR(I) + IF (FG(I) .LT. 0.5) HRR(I) = 1.0 + ENDDO + +return +END SUBROUTINE VNTLAT + +!############################################################################## +Subroutine VMFCALZ (VKRMN,DELTA,GRAV & + , SH,z0 & + , SPDM,SHA,ROS,CU,ct,THVGM,RIB & + , USTAR,RSTAR,TSTAR,VENTMF,THM, tha & + , zzwind, zztemp & + , cuni, cun, ctn, z1z0Urt, z1z0Trt, len ) + +implicit none + + !**************************************************************************** + ! VENTILATION MASS FLUX,Ustar, and transfer coefficients for momentum + ! and heat fluxes, based on by Louis (1979, 1982), and revised by Holtslag + ! and Boville(1993), and by Beljaars and Holtslag (1991). + ! + ! Rerences: + ! Beljars and Holtslag (1991): Flux parameterization over land surfaces + ! for atmospheric models. J. Appl. Meteo., 30, 327-341. + ! Holtslag and Boville (1993): Local versus nonlocal boundary-layer + ! diffusion in a global climate model. J. of Climate, 6, 1825- + ! 1842. + ! Louis, J. F., (1979):A parametric model of vertical eddy fluxes in + ! atmosphere. Boundary-Layer Meteo., 17, 187-202. + ! Louis, Tiedke, and Geleyn, (1982): A short history of the PBL + ! parameterization at ECMWF. Proc. ECMWF Workshop on Boundary- + ! Layer parameterization, ECMWF, 59-79. + ! + ! General formulation: + ! surface_flux = transfer_coef.*U1*(mean_in_regerence - mean_at_sfc.) + ! Transfer coefficients for mommentum and heat fluxes are: + ! CU = CUN*Fm, and + ! CT = CTN*Fh + ! where CUN and CTN are neutral values of momentum and heat transfers, + ! and Fm and Fh are stability funcs derived from surface + ! similarity relationships. + !**************************************************************************** + + INTEGER len + REAL vkrmn, delta, grav & + , z0(len),CU(len) & + , ROS(len),SH(len) & + , THM(len),THVGM(len),RIB(len),THGM(len) & + , SHA(len),SPDM(len),USTAR(len) & + , RSTAR(len),TSTAR(len) & + , CUI(len),CTI(len),CT(len), tha(len) & + , VENTMF(len), cuni(len) + + ! local variables + REAL TEMV(len), wgm(len) & + , bunstablM, bunstablT, cunstablM, cunstablT, bstabl, cstabl & + , zzwind(len), zztemp(len), zrib(len), cun(len), ctn(len) & + , z1z0U(len), z1z0Urt(len), z1z0T(len), z1z0Trt(len) & + , fmomn(len),fheat(len),ribtemp,dm,dh + + INTEGER i + + !Set U* to a minimum value + real, parameter :: ustmin = .1 + + ! condtants for surface flux funcs, according to Holtslag and + ! Boville (1993, J. Climate) + + bunstablM = 10. ! constants for unstable func + bunstablT = 15. + cunstablM = 75. + cunstablT = 75. + + DO I=1,len + zrib(i) = zzwind(i) **2 / zztemp(i) + WGM(i) = SHA(i) - SH(i) + + ! SFC-AIR DEFICITS OF MOISTURE AND POTENTIAL TEMPERATURE + ! WGM IS THE EFFECTIVE SFC-AIR TOTAL MIXING RATIO DIFFERENCE. + + THGM(i) = THA(i) - THM(i) + THVGM(i) = THGM(i) + THA(i) * DELTA * WGM(i) + ENDDO + + ! Ratio of reference height (zwind/ztemp) and roughness length: + DO i = 1, len !for all grid points + z1z0U(i) = zzwind(i)/ z0(i) + z1z0Urt(i) = SQRT( z1z0U(i) ) + z1z0U(i) = LOG( z1z0U(i) ) + z1z0T(i) = zzwind(i)/ z0(i) + z1z0Trt(i) = SQRT( z1z0T(i) ) + z1z0T(i) = LOG( z1z0T(i) ) + ENDDO + + ! Neutral surface transfers for momentum CUN and for heat/moisture CTN: + + DO i = 1, len + !cun and ctn = drag coefficients in neutral conditions, here same for h/m + !cun and ctn = a2 from LEAF3-model + cun(i) = VKRMN*VKRMN / (z1z0U(i)*z1z0U(i) ) !neutral Cm & Ct + ctn(i) = VKRMN*VKRMN / (z1z0T(i)*z1z0T(i) ) + cuni(i) = z1z0u(i) / vkrmn + ENDDO + + ! SURFACE TO AIR DIFFERENCE OF POTENTIAL TEMPERATURE. + ! RIB IS THE BULK RICHARDSON NUMBER, between reference height and surface. + + DO I=1,len + TEMV(i) = THA(i) * SPDM(i) * SPDM(i) + temv(i) = MAX(0.000001E0,temv(i)) + RIB(I) = -THVGM(I) * GRAV * zrib(i) / TEMV(i) + ENDDO + + ! The stability funcs for momentum and heat/moisture fluxes as + ! derived from the surface-similarity theory by Louis (1979, 1982), and + ! revised by Holtslag and Boville(1993), and by Beljaars and Holtslag + ! (1991). + + DO I=1,len + IF(rib(i).GE.0.0) THEN + ! + ! THE STABLE CASE. RIB IS USED WITH AN UPPER LIMIT + ! + rib(i) = MIN( rib(i), 0.5E0) + fmomn(i)=1.+10.*rib(i)/(sqrt(1.+5.*rib(i))) + fmomn(i)=1./fmomn(i) + fmomn(i)=MAX(0.0001,fmomn(i)) + fheat(i)=1.+15.*rib(i)*(sqrt(1.+5.*rib(i))) + fheat(i)=1./fheat(i) + fheat(i)=MAX(0.0001,fheat(i)) + ELSE + ! + ! THE UNSTABLE CASE. + ! + ribtemp = ABS(rib(i)) + ribtemp = SQRT( ribtemp ) + dm = 1. + cunstablM * cun(i) * z1z0Urt(i) * ribtemp + dh = 1. + cunstablT * ctn(i) * z1z0Trt(i) * ribtemp + fmomn(i) = 1. - (bunstablM * rib(i) ) / dm + fheat(i) = 1. - (bunstablT * rib(i) ) / dh + END IF + ENDDO + + ! surface-air transfer coefficients for momentum CU, for heat and + ! moisture CT. The CUI and CTI are inversion of CU and CT respectively. + + DO i = 1, len + CU(i) = CUN(i) * fmomn(i) + CT(i) = CTN(i) * fheat(i) + CUI(i) = 1. / CU(i) + CTI(i) = 1. / CT(i) + ENDDO + + ! Ustar, Tstar, Rstar and ventlation mass flux via Louis (1979,1981) + DO I=1,len + USTAR(i) = SPDM(i)*SPDM(i)*CU(i) + USTAR(i) = SQRT( USTAR(i) ) + USTAR(i) = max(USTAR(i),ustmin) + RSTAR(i) = -WGM(i)*CT(i)*SPDM(i)/USTAR(i) + TSTAR(i) = -THGM(i)*CT(i)*SPDM(i)/USTAR(i) + VENTMF(i)= ROS(i)*CT(i)* SPDM(i) + ENDDO + + ! Note there is no CHECK FOR VENTMF EXCEEDS TOWNSENDS(1962) FREE CONVECTION + ! VALUE, like DEARDORFF EQ(40B), because the above CU and CT included + ! free convection conditions. + +return +END SUBROUTINE VMFCALZ + +!############################################################################## +Subroutine respsib (len, nsib, nsoil, wopt, zm, www, wsat, & + tg, td, respfactor, respg, soilscale, & + zmstscale, soilq10) + +implicit none + + INTEGER len, nsib, nsoil,i,l + REAL wopt(len), zm(len), www(len,3), wsat(len), & + tg(len), td(nsib,nsoil),woptzm + REAL respfactor(nsib,nsoil+1) + ! output + REAL respg(len),soilscale(len,nsoil+1), zmstscale(len,2), & + soilq10(len,nsoil+1), & + ! local arrays + b(len,2) + + ! Calculates the rate of CO2 efflux from soils, according to the "R-star" + ! approach of Denning et al (1996), adapted for use with the Bonan + ! 6-layer soil thermodynamics module + + ! Changed soil Q10 value for soil respiration from 2.0 to 2.4 + ! following Raich and Schelsinger (1992, Tellus 44B, 81-89), + ! Scott Denning, 9/14/95 + + DO i = 1,len + + ! Moisture effect on soil respiration, shallow and root zone + woptzm = wopt(i)**zm(i) + b(i,1) = (((100.*www(i,1))**zm(i)-woptzm)/ & + (woptzm - 100.**zm(i)))**2 + b(i,2) = (((100.*www(i,2))**zm(i)-woptzm)/ & + (woptzm - 100.**zm(i)))**2 + b(i,1) = MIN(b(i,1),10.E0) + b(i,2) = MIN(b(i,2),10.E0) + zmstscale(i,1) = 0.8*wsat(i)**b(i,1) + 0.2 + zmstscale(i,2) = 0.8*wsat(i)**b(i,2) + 0.2 + + ! Temperature effect is a simple Q10, with a reference T of 25 C + + ! Deepest soil layers do not respire (no carbon below root zone) + DO L = 1, 2 + soilscale(i,L) = 0.0 + soilq10(i,L) = 0.0 + ENDDO + + ! Layers 3 through nsoil (root zone) use WWW(2) and TD(3:nSoil) + DO l = 3, nsoil + soilQ10(i,L) = EXP(0.087547 * (td(i,L) - 298.15)) + soilscale(i,L) = soilQ10(i,L) * zmstscale(i,2) + ENDDO + + ! Surface soil uses TG and water layer 1 + soilQ10(i,nsoil+1) = EXP(0.087547 * (tg(i) - 298.15)) + soilscale(i,nsoil+1) = soilQ10(i,nsoil+1) * zmstscale(i,1) + + ! Dimensionalize soil resp flux to balance annual budget. + ! respFactor*soilScale is the rate of release of CO2 by the soil. + ! respg is the ground respiration flux (umol/m^2/sec). + respg(i) = respfactor(i,1) * soilscale(i,1) + + DO L = 2, nsoil+1 + respg(i) = respg(i) + respfactor(i,L) * soilscale(i,L) + ENDDO + + ENDDO + +return +END SUBROUTINE respsib + +!############################################################################## +Subroutine phosib (igrp,jgrp,pco2m,pco2ap,po2m,vmax0,tf,psur,green & + , tran,ref,gmudmu,zlt,cas_cap_co2,tc,ta,trop,trda & + , trdm,slti,shti,hlti,hhti,radn,etc & + , ea,rb,ra,tm & + , effcon,rstfac,binter,gradm,assimn & + , rst,atheta,btheta,tgs,respcp & + , aparkk,len,nsib, & + omepot,assimpot,assimci,antemp,assimnp, & + wsfws,wsfht,wsflt,wci,whs, & + wags,wegs,aparc,pfd,assim,td, & + soilscale, & + drst,pdamp,qdamp,ecmass,dtt,bintc,tprcor,ansqr, & + nsoil, respg, pco2c, pco2i, & + pco2s,co2cap,cflux) + +implicit none + + !======================================================================= + ! + ! CALCULATION OF CANOPY CONDUCTANCE USING THE INTEGRATED + ! MODEL RELATING ASSIMILATION AND STOMATAL CONDUCTANCE. + ! UNITS ARE CONVERTED FROM MKS TO BIOLOGICAL UNITS IN THIS ROUTINE. + ! BASE REFERENCE IS SE-92A + ! + ! UNITS + ! ------- + ! + ! PCO2M, PCO2A, PCO2Ap, PCO2I, PO2M : PASCALS + ! CO2A, CO2S, CO2I, H2OA, H2OS, H2OA : MOL MOL-1 + ! VMAX0, RESPN, ASSIM, GS, GB, GA, PFD : MOL M-2 S-1 + ! EFFCON : MOL CO2 MOL QUANTA-1 + ! GCAN, 1/RB, 1/RA, 1/RST : M S-1 + ! EVAPKG : KG M-2 S-1 + ! Q : KG KG-1 + ! + ! CONVERSIONS + ! ------------- + ! + ! 1 MOL H2O = 0.018 KG + ! 1 MOL CO2 = 0.044 KG + ! H2O (MOL MOL-1) = EA / PSUR ( MB MB-1 ) + ! H2O (MOL MOL-1) = Q*MM/(Q*MM + 1) + !pl the next line applies to the Ci to Cs pathway + ! GS (CO2) = GS (H2O) * 1./1.6 + !pl 44.6 is the number of moles of air per cubic meter + ! GS (MOL M-2 S-1 ) = GS (M S-1) * 44.6*TF/T*P/PO + ! PAR (MOL M-2 S-1 ) = PAR(W M-2) * 4.6*1.E-6 + ! MM (MOLAIR/MOLH2O) = 1.611 + ! + ! OUTPUT + ! ------------- + ! + ! ASSIMN = CANOPY NET ASSIMILATION RATE + ! EA = CANOPY AIR SPACE VAPOR PRESSURE + ! 1/RST = CANOPY CONDUCTANCE + ! PCO2I = INTERNAL CO2 CONCENTRATION + ! RESPC = CANOPY RESPIRATION + ! RESPG = GROUND RESPIRATION + ! + !---------------------------------------------------------------------- + ! + ! RSTFAC(1) ( F(H-S) ) : EQUATION (17,18), SE-92A + ! RSTFAC(2) ( F(SOIL) ) : EQUATION (12 mod), SE-89 + ! RSTFAC(3) ( F(TEMP) ) : EQUATION (5b) , CO-92 + ! RSTFAC(4) ( F(H-S)*F(SOIL)*F(TEMP)) + ! + !----------------------------------------------------------------------- + + !++++++++++++++++++++++++++++++OUTPUT+++++++++++++++++++++++++++++++++++ + ! + ! ASSIMN CARBON ASSIMILATION FLUX (MOL M-2 S-1) + ! RST CANOPY RESISTANCE (S M-1) + ! RSTFAC(4) CANOPY RESISTANCE STRESS FACTORS + ! + !++++++++++++++++++++++++++DIAGNOSTICS++++++++++++++++++++++++++++++++++ + ! + ! RESPC CANOPY RESPIRATION (MOL M-2 S-1) + ! RESPG GROUND RESPIRATION (MOL M-2 S-1) + ! PCO2I CANOPY INTERNAL CO2 CONCENTRATION (MOL MOL-1) + ! GSH2O CANOPY CONDUCTANCE (MOL M-2 S-1) + ! H2OS CANOPY SURFACE H2O CONCENTRATION (MOL MOL-1) + ! + !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + + ! Modifications: + ! - gs (stomatal conductance reduced for freezing soils per Jim Collatz + ! dd 950221 + ! + ! Modified for multitasking - introduced gather/scatter indices + ! - DD 951206 + ! + ! Added in pco2c (chloroplast partial co2) for neil's fractionation + ! calculations - Sep99 + + ! input arrays: + INTEGER len, nsib, nsoil,igrp,jgrp + + REAL vmax0(len),psur(len),green(len),gmudmu, & + zlt(len),cas_cap_co2(len),tc(len),ta(len), & + trop(len),trda(len), & + slti(len),shti(len),hlti(len),hhti(len), & + ra(len),rb(len), & + cog1(len),cog2(len),tm(len),effcon(len), & + binter(len),gradm(len),atheta(len),btheta(len), & + tgs(len),respcp(len),tran(len,2,2),ref(len,2,2), & + radn(len,2,2),ecmass(len),trdm(len),etc(len), & + aparc(len),rst(len), cflux(len) + REAL pdamp, qdamp, dtt, pco2m(len), pco2ap(len), tf, po2m + + ! output arrays: + REAL assimn(len),ea(len),rstfac(len,4), & + pco2i(len),respc(len),respg(len),drst(len) + + ! output arrays + REAL omepot(len),assimpot(len),assimci(len), & + assimnp(len),whs(len),antemp(len), & + wsfws(len),wsfht(len),wsflt(len),wci(len), & + wags(len),wegs(len),pfd(len), & + td(nsib,nsoil),assim(len), & + soilscale(len,nsoil+1), & + tprcor(len),bintc(len), & + ansqr(len), & + pco2c(len), & !chloroplast pco2 + xgah2o(len), & + xgco2m(len) + + ! work arrays: + REAL PCO2Y(len,6), EYY(len,6),assimny(len,6), & + assimy(len,6) + REAL c3(len),c4(len),RANGE(len),gammas(len), & + aparkk(len),gah2o(len), & + gbh2o(len), & + par(len),rrkk(len), & + omss(len),vm(len),gsh2o(len),pco2s(len), & + templ(len),temph(len), & + qt(len),co2s(len),scatp(len),scatg(len), & + park(len),respn(len),zkc(len), & + zko(len),spfy(len), co2a(len), co2m(len),co2cap(len) + + INTEGER icconv(len),igath(len) + + REAL soilfrz(len) + REAL cwsflt, cwsfht, cwsfws, & + ccoms, ccomc, ascitemp, dompdomc, omsci, ompci, omcci, & + omcpot, omppot, sqrtin, omspot, pco2ipot, ohtp2, sttp2, & + gsh2oinf, h2osrh, h2os, ecmole, h2oa, h2oi, dtti, & + pco2in, pco2a, soilfrztd, soilfrztg + + INTEGER i, ic1, ic, l + + !pl introduce a co2 capacity + !pl this will basically be the mass of air under the top of the canopy (in + !pl this case (CHEAS-RAMS) O(10-30m), that is, ground to displacemnt height. + + !pl all the carbon fluxes are expresse as Mol C / m2 s and resistances for + !pl carbon are in m2 s / mol air + + !pl one mole of gas occupies 22.4 cubic dm + !pl 1 cubic meter contains therefore 1000./22.4 = 44.6 moles of gas + !pl the units for the carbon capacity are mol air /m2. + !pl (e.g. here 893 moles if thickness of the layer is 20m) + !pl this means that the units for pc02ap should be mol co2 / mol air, but + !pl it is also possible to keep just co2 pressure and convert + + DO i = 1,len ! LOOP OVER GRIDPOINT + + TPRCOR(i) = TF*PSUR(i)*100./1.013E5 + co2cap(i) = cas_cap_co2(i) * 44.6 * tprcor(i)/ta(i) ! moles air / m2 + + !pl this needs to be modified as in sibslv3 to automatically use the + !pl thickness of the canopy air space. + !---------------------------------------------------------------------- + !pl RESPG(i) = 0. E -6 ! fixed respiration at 5 micromoles + !pl no longe rused since we now have respsib + !---------------------------------------------------------------------- + + IF( EFFCON(i) .GT. 0.07 ) THEN + C3(i) = 1. + ELSE + C3(i) = 0. + ENDIF + C4(i) = 1. - C3(i) + + !----------------------------------------------------------------------- + ! + ! CALCULATION OF CANOPY PAR USE PARAMETER. + ! + ! APARKK (PI) : EQUATION (31) , SE-92A + !----------------------------------------------------------------------- + + SCATP(I) = GREEN(i) * & + ( TRAN(i,1,1) + REF(i,1,1) ) & + +( 1.-GREEN(i) ) * & + ( TRAN(i,1,2) + REF(i,1,2) ) + SCATG(i) = TRAN(i,1,1) + REF(i,1,1) + PARK(i) = SQRT(1.-SCATP(i)) * GMUDMU + + ! Collatz-Bounoua commented the calculation of APARC + ! replaced it with theone calculated in new_mapper. + ! APARC(i) = 1. - EXP ( -PARK(i)*ZLT(i) ) ! lahouari + + APARKK(i) = APARC(i) / PARK(i) * GREEN(i) + !----------------------------------------------------------------------- + ! + ! Q-10 AND STRESS TEMPERATURE EFFECTS + ! + ! QT (QT) : TABLE (2) , SE-92A + !----------------------------------------------------------------------- + ! + qt(i) = 0.1*( TC(i) - TROP(i) ) + RESPN(i) = RESPCP(i) * VMAX0(i) * RSTFAC(i,2) + + !itb...patch to prevent underflow if temp is too cool... + !Saleeby-2016-0222 (check to see if we need the "else" statement since later + ! versions do not use this conditional statement.) + IF(TC(i) >= TRDM(i))THEN + RESPC(i) = RESPN(i) * 2.0**qt(i) & + /( 1. + EXP( TRDA(i)*(TC(i)-TRDM(i)))) + ELSE + RESPC(i) = RESPN(i) * 2.0**qt(i) + ENDIF + + VM(i) = VMAX0(i) * 2.1**qt(i) + TEMPL(i) = 1. + EXP(SLTI(i)*(HLTI(i)-TC(i))) + TEMPH(i) = 1. + EXP(SHTI(i)*(TC(i)-HHTI(i))) + RSTFAC(i,3) = 1./( TEMPL(i)*TEMPH(i)) + + VM(i) = VM(i)/TEMPH(i) * RSTFAC(i,2)*C3(i) & + + VM(i) * RSTFAC(i,2)*RSTFAC(i,3) * C4(i) + + !----------------------------------------------------------------------- + ! + ! MICHAELIS-MENTEN CONSTANTS FOR CO2 AND O2, CO2/O2 SPECIFICITY, + ! COMPENSATION POINT + ! + ! ZKC (KC) : TABLE (2) , SE-92A + ! ZKO (KO) : TABLE (2) , SE-92A + ! SPFY (S) : TABLE (2) , SE-92A + ! GAMMAS (GAMMA-*): TABLE (2) , SE-92A + ! OMSS (OMEGA-S): EQUATION (13) , SE-92A + ! BINTC (B*ZLT) : EQUATION (35) , SE-92A + !----------------------------------------------------------------------- + + ZKC(i) = 30. * 2.1**qt(i) + ZKO(i) = 30000. * 1.2**qt(i) + SPFY(i) = 2600. * 0.57**qt(i) + GAMMAS(i) = 0.5 * PO2M/SPFY(i) * C3(i) + PFD(i) = 4.6E-6 * GMUDMU * & + ( RADN(i,1,1)+RADN(i,1,2) ) + + !pl these here all go from being m/s to being mol/ (m2 sec) + GSH2O(i) = 1.0/RST(i) * 44.6*TPRCOR(i)/TC(i) + GBH2O(i) = 0.5/RB(i) * 44.6*TPRCOR(i)/TC(i) + GAH2O(i) = 1.0/RA(i) * 44.6*TPRCOR(i)/TM(i) + + xgah2o(i) = MAX(0.466E0, gah2o(i) ) + xgco2m(i) = 4000.0 * vmax0(i) + + RRKK(i) = ZKC(i)*( 1. + PO2M/ZKO(i) ) * C3(i) & + + VMAX0(i)/5.* ( 1.8**qt(i)) * C4(i) + PAR(i) = pfd(i)*EFFCON(i)*( 1.-SCATG(i) ) + soilfrztg = 1.+EXP(-1.5 * (MAX(270.0E0,tgs(i))-273.16) ) + soilfrztd = 1.+EXP(-1.5 * (MAX(270.0E0,td (i,nsoil))-273.16) ) + soilfrz(i) = MAX(1./soilfrztg, 1./soilfrztd) + soilfrz(i) = MAX( soilfrz(i), 0.05E0) + BINTC(i) = BINTER(i)*ZLT(i)*GREEN(i)* & + RSTFAC(i,2) * soilfrz(i) +! print'(a,5g16.6)','bintc:',binter(i),zlt(i),green(i), & +! rstfac(i,2),soilfrz(i) + OMSS(i) = ( VMAX0(i)/2.0 ) * ( 1.8**qt(i) ) & + /TEMPL(i) * RSTFAC(i,2) * C3(i) & + + RRKK(i) * RSTFAC(i,2) * C4(i) + + !----------------------------------------------------------------------- + ! FIRST GUESS IS MIDWAY BETWEEN COMPENSATION POINT AND MAXIMUM + ! ASSIMILATION RATE. + !----------------------------------------------------------------------- + + RANGE(i) = PCO2M(i) * ( 1. - 1.6/GRADM(i) ) - GAMMAS(i) + icconv(i) = 1 + + ENDDO + + DO IC = 1,6 + DO i = 1,len ! LOOP OVER GRIDPOINT + PCO2Y(i,IC) = 0. + EYY(i,IC) = 0. + ENDDO + ENDDO + + !pl beginning of PL's setup + + DO i=1,len + gah2o(i) = 1. / MAX(0.446E0,GAH2O(i)) + ENDDO + + !Bio...HERE IS THE ITERATION LOOP. + !Bio... + !Bio...We iterate on PCO2C-sortin makes a 'first guess' at + !Bio...then orders PCO2C/Error pairs on increasing error size, + !Bio...then uses a combination of linear/quadratic fit to obtain + !Bio...the 'next best guess' as iteration count increases. + !Bio...CYCALC uses that value of PCO2C to get the next value + !Bio...of ASSIMN. CO2A and CO2S follow. + !Saleeby-2016-0222 (newer Lixin Sib3.2 iterates on pco2c instead of pco2i + ! and updates equation for pco2s + DO IC = 1,6 + + CALL SORTIN ( EYY, PCO2Y, RANGE, GAMMAS, ic,len ) + + CALL CYCALC ( APARKK, VM, ATHETA, BTHETA,par, & + GAMMAS, RESPC, RRKK, OMSS, C3, C4, & + PCO2Y(1,ic), assimny(1,ic), assimy(1,ic), & + len ) + + DO i = 1,len + !pl first diagnose the current CO2 flux in mol / (m2 s) + !pl this is a modified ra that will get us the right units + !pl in the conservation equation. its units are m2 s / (mol_air) + + !pl now prognose the new CAS CO2 according to flux divergence + !pl we are going to do this in mol C / mol air (same as PaC/PaAir) + + CO2A(i) = PCO2Ap(i) / (PSUR(i)*100.) + co2m(i) = pco2m(i) / (PSUR(i)*100.) + + CO2A(i) = ( CO2A(i) + (dtt/co2cap(i)) * & + (respg(i) - assimny(i,ic) & + +co2m(i)*gah2o(i) ) ) & + / (1+dtt*gah2o(i)/ co2cap(i) ) + + pco2a = co2a(i) * psur(i) * 100. + + PCO2S(i) = PCO2A - (1.4/GBH2O(i) * ASSIMNy(i,ic) & + * PSUR(i)*100.) + + !Saleeby-2016-0222 (Not sure which of the two options below to use. + !The first is from earlier Sib2.5 and the latter from Lixin Sib3.2 + PCO2IN = PCO2S(i) - ASSIMNy(i,ic) * PSUR(i) * 100.0 * & + (1.6/GSH2O(i)) + !PCO2IN = PCO2S(i) - ASSIMNy(i,ic) * PSUR(i) * 100.0 * & + ! (1.6/gsh2o(i) + 1.0/xgco2m(i)) + + EYY(i,IC) = PCO2Y(i,IC) - PCO2IN + ENDDO + + IF(ic.GE.2) THEN + ic1 = ic-1 + DO i = 1,len ! LOOP OVER GRIDPOINT + IF(ABS(eyy(i,ic1)).GE.0.1)THEN + icconv(i) = ic + ELSE + eyy(i,ic) = eyy(i,ic1) + pco2y(i,ic) = pco2y(i,ic1) + ENDIF + ENDDO + ENDIF + + ENDDO !iteration loop + + !pl end of PL's setup + + DO i = 1,len ! LOOP OVER GRIDPOINT + icconv(i) = MIN(icconv(i),6) + igath(i) = i+(icconv(i)-1)*len + ENDDO + + DO i = 1,len ! LOOP OVER GRIDPOINT + + pco2i(i) = pco2y(igath(i),1) + assimn(i) = assimny(igath(i),1) + assim(i) = assimy(igath(i),1) + + pco2c(i) = pco2i(i) - assimn(i)/xgco2m(i)*psur(i)*100.0 + + !pl now do the real C_A forecast with the iterated fluxes. + CO2A(i) = PCO2Ap(i) / (PSUR(i)*100.) + co2m(i) = pco2m(i) / (PSUR(i)*100.) + + CO2A(i) = (CO2A(i) + (dtt/co2cap(i)) * & + (respg(i) - assimn(i) & + +co2m(i)*gah2o(i) ) ) & + / (1+dtt*gah2o(i)/co2cap(i)) + + !pl go back from molC / mol air to Pascals + pco2ap(i) = co2a(i) * psur(i) * 100. + + !itb...carbon flux between CAS and reference level (MOL M-2 S-1) + cflux(i) = gah2o(i)*(co2a(i)-co2m(i))*0.012 + ENDDO + + dtti = 1./dtt + DO i = 1,len ! LOOP OVER GRIDPOINT + + H2OI = ETC(i)/PSUR(i) + H2OA = EA(i)/PSUR(i) + ECMOLE = 55.56 * ECMASS(i) * dtti ! ecmass must be computed and passed in + H2OS = H2OA + ECMOLE / GBH2O(i) + H2OS = MIN( H2OS, H2OI ) + H2OS = MAX( H2OS, 1.E-7) + H2OSRH = H2OS/H2OI + + !pl I have relaxed this condition to 1/10 of previous. The old way made + !pl the CO2 on top of the leaves always at least 1/2 of the value at the + !pl reference level. + + CO2S(i) = MAX(PCO2S(I),PCO2M(i)*0.05) / (PSUR(i)*100.) + + !pl Ball-Berry equation right here ! + + GSH2OINF = (GRADM(i) * MAX(1.0E-12,ASSIMN(i)) & + * H2OSRH * soilfrz(i) / CO2S(i)) + BINTC(i) + + !pl this is the change in stomatal resistance + + DRST(i) = RST(i) * QDAMP * ((GSH2O(i)-GSH2OINF)/ & + (PDAMP*GSH2O(i)+QDAMP*GSH2OINF)) + + !Saleeby-2016-0222 (check this statement) + !This is the 'would be change' if we did not use the damping factors + !qdamp and pdamp. + !rstnew = (1./gsh2oinf) * 44.6 * tprcor(i)/tc(i) + !DRST(i) = rstnew - RST(i) + + RSTFAC(i,1) = H2OS/H2OI + RSTFAC(i,4) = RSTFAC(i,1)*RSTFAC(i,2)* RSTFAC(i,3) + ENDDO + + !Z CARNEGIE new diagnostics----start!!!(c.zhang&joe berry, 10/19/92) + !----------------------------------------------------------------------- + ! INPUTS: PSUR(i),CO2S,ASSIMN(i),GRADM(i),BINTC(i),VMAX0(i),RRKK(i),C3(i), + ! C4(i),PAR(i),ATHETA(i),BTHETA(i),APARKK(i),OMSS(i),RSTFAC(i,2),TEMPH, + ! TEMPL,RSTFAC(i,1),VM(i),ASSIM,GSH20(i),EFFCON(i),QT,GAMMAS(i), + ! PFD(i) + ! + + sttp2 = 73.**0.2 + ohtp2 = 100.**0.2 + DO i = 1,len + !----------------------------------------------------------------------- + ! CALCULATION OF POTENTIAL ASSIMILATION + !----------------------------------------------------------------------- + + ! Make assimn a top leaf, not the canopy. + ASSIMNp(i) = ASSIMN(i) / APARKK(i) + + ! Bottom stopped assim. + ANTEMP(i) = MAX(0.E0,ASSIMNp(i)) + + ! Potential intercellular co2. + PCO2IPOT = PSUR(i)*100.*(co2s(i)-(1.6*ASSIMNp(i)/ & + ((GRADM(i)*ANTEMP(i)/co2s(i))+BINTC(i)))) + + ! Potential rubisco limitation. + OMCPOT = VMAX0(i)*2.1**qt(i)*((PCO2IPOT-GAMMAS(i))/ & + (PCO2IPOT+RRKK(i))*C3(i) + C4(i)) + + ! Potential light limitation. + OMEPOT(i) = PAR(i)*((PCO2IPOT-GAMMAS(i))/ & + (PCO2IPOT+2.*GAMMAS(i))*C3(i) + C4(i)) + + ! Quad 1. + SQRTIN = MAX(0.E0,((OMEPOT(i)+OMCPOT)**2- & + 4.*ATHETA(i)*OMEPOT(i)*OMCPOT)) + + ! Quad 1. Intermediate top leaf photosynthesis. + OMPPOT = ((OMEPOT(i)+OMCPOT)-SQRT(SQRTIN))/(2.*ATHETA(i)) + + ! Potential sink or pep limitation. + OMSPOT = (VMAX0(i)/2.0)*(1.8**qt(i))*C3(i) & + + RRKK(i)*PCO2IPOT*C4(i) + + ! Quad 2. + SQRTIN=MAX(0.E0,((OMPPOT+OMSPOT)**2-4.*BTHETA(i)* & + OMPPOT*OMSPOT)) + + ! Quad 2. Final Potential top leaf photosynthesis. + ASSIMPOT(i) = ((OMSPOT+OMPPOT)-SQRT(SQRTIN))/(2.*BTHETA(i)) + + !----------------------------------------------------------------------- + ! CALCULATION OF STRESS FACTOR LIMITED ASSIMILATION + !----------------------------------------------------------------------- + + ! Stressed rubisco limitation. + OMCCI = VM(i)*((PCO2IPOT-GAMMAS(i))/(PCO2IPOT+RRKK(i))*C3(i) & + + C4(i)) + + ! Quad 1. + SQRTIN = MAX(0.E0,(OMEPOT(i)+OMCCI)**2- & + 4.*ATHETA(i)*OMEPOT(i)*OMCCI) + + ! Quad 1. Intermediate stress limited top leaf photosynthesis. + OMPCI = ((OMEPOT(i)+OMCCI)-SQRT(SQRTIN))/(2.*ATHETA(i)) + + ! Stressed sink or pep limitation. + OMSCI = OMSS(i)*(C3(i) + PCO2IPOT*C4(i)) + + ! Quad 2. + SQRTIN = MAX(0.E0,(OMPCI+OMSCI)**2-4.*BTHETA(i)*OMPCI*OMSCI) + + ! Quad 2. Final stress limited top leaf photosynthesis. + ASSIMCI(i) = ((OMSCI+OMPCI)-SQRT(SQRTIN))/(2.*BTHETA(i)) + + !----------------------------------------------------------------------- + ! CALCULATION OF CONTROL COEFFICIENTS + !----------------------------------------------------------------------- + + ! Intermediate. + DOMPDOMC = (OMPCI-OMEPOT(i))/ & + (2.*ATHETA(i)*OMPCI-OMCCI-OMEPOT(i)) + + ! Bottom stopped final stress limited top leaf photosynthesis. + ASCITEMP = MAX(ASSIMCI(i),1.0E-12) + + ! Rubisco control coefficient. + CCOMC = (DOMPDOMC*(ASSIMCI(i)-OMSCI)/ & + (2.*BTHETA(i)*ASSIMCI(i)-OMPCI-OMSCI))*OMCCI/ASCITEMP + + ! Sink or pep control coefficient. + CCOMS = ((ASSIMCI(i)-OMPCI)/ & + (2.*BTHETA(i)*ASSIMCI(i)-OMPCI-OMSCI))*OMSCI/ASCITEMP + + !----------------------------------------------------------------------- + ! OUTPUT: POTENTIAL ASSIMILATION RATES TO BE SUMMED + !----------------------------------------------------------------------- + ! Canopy values (overwrites top leaf). + + OMEPOT(i) = OMEPOT(i)*APARKK(i) + ASSIMPOT(i) = ASSIMPOT(i)*APARKK(i) + ASSIMCI(i) = ASSIMCI(i)*APARKK(i) + ASSIM(i) = ASSIM(i)*APARKK(i) + ANTEMP(i) = ANTEMP(i)*APARKK(i) + ANSQR(i) = ANTEMP(i)*ANTEMP(i) + ASSIMNp(i) = ASSIMNp(i)*APARKK(i) + + !----------------------------------------------------------------------- + ! OUTPUT:WEIGHTED STRESS FACTORS AND OTHER DIAGNOSTIC OUTPUTS TO BE SUMMED + !----------------------------------------------------------------------- + + ! Water stress. + WSFWS(i) = ASSIMPOT(i)*(1.-RSTFAC(i,2))*(CCOMC+CCOMS) + + ! High temperature stress. + WSFHT(i) = ASSIMPOT(i)*(1.-1./TEMPH(i))*CCOMC + + ! Low temperature stress. + WSFLT(i) = ASSIMPOT(i)*(1.-1./TEMPL(i))*(CCOMS*C3(i)+CCOMC*C4(i)) + + ! protection for wsfws, wsfht, and wsflt from <0 or >>xxx(2/24/93) + cwsfws = (1.-RSTFAC(i,2))*(CCOMC+CCOMS) + IF(cwsfws.GT.1. .OR. cwsfws.LT.0.) wsfws(i)=0. + cwsfht = (1.-1./TEMPH(i))*CCOMC + IF(cwsfht.GT.1. .OR. cwsfht.LT.0.) wsfht(i)=0. + cwsflt = (1.-1./TEMPL(i))*(CCOMS*C3(i)+CCOMC*C4(i)) + IF(cwsflt.GT.1. .OR. cwsflt.LT.0.) wsflt(i)=0. + + ! Intermediate assimilation weighted Ci. + WCI(i) = ANTEMP(i)*PCO2I(i) + + ! Intermediate assimilation weighted relative humidty stress factor. + WHS(i) = ANTEMP(i)*RSTFAC(i,1) + + ! Intermediate assimilation weighted stomatal conductance. + WAGS(i) = GSH2O(i)*ANTEMP(i) + + ! Intermediate evaporation weighted stomatal conductance.(Step 1. + ! Step 2 after routine updat2) + WEGS(i) = GSH2O(i) + + ENDDO + +return +END SUBROUTINE phosib + +!############################################################################## +Subroutine SORTIN (EYY,PCO2Y,RANGE,GAMMAS,IC,len) + + !======================================================================= + ! + ! ARRANGES SUCCESSIVE PCO2/ERROR PAIRS IN ORDER OF INCREASING PCO2. + ! ESTIMATES NEXT GUESS FOR PCO2 USING COMBINATION OF LINEAR AND + ! QUADRATIC FITS. + ! + !======================================================================= + +implicit none + + INTEGER len, ic + REAL EYY(len,6),PCO2Y(len,6),RANGE(len),gammas(len) + + ! work arrays + + REAL eyyi1(len),eyyi2(len),eyyi3(len),eyyis(len), & + eyyisp(len),pco2yis(len),pco2yisp(len), & + pco2b(len), & + pco2yi1(len),pco2yi2(len),pco2yi3(len) + REAL aterm, bterm, cterm, pco2yq, cc1, cc2, bc1, bc2, ac1, ac2, & + pco2yl, a, b, pmin, emin + INTEGER is(len) + LOGICAL bitx(len) + INTEGER i, ix, i1, i2, i3, isp, n, l, j + + IF( IC .LT. 4 ) THEN + DO i = 1,len + PCO2Y(i,1) = GAMMAS(i) + 0.5*RANGE(i) + PCO2Y(i,2) = GAMMAS(i) & + + RANGE(i)*( 0.5 - 0.3*SIGN(1.0,EYY(i,1)) ) + PCO2Y(i,3) = PCO2Y(i,1)- (PCO2Y(i,1)-PCO2Y(i,2)) & + /(EYY(i,1)-EYY(i,2)+1.E-10)*EYY(i,1) + ! + PMIN = MIN( PCO2Y(i,1), PCO2Y(i,2) ) + EMIN = MIN( EYY(i,1), EYY(i,2) ) + IF ( EMIN .GT. 0. .AND. PCO2Y(i,3) .GT. PMIN ) & + PCO2Y(i,3) = GAMMAS(i) + ENDDO + ELSE + + N = IC - 1 + DO l = 1,len + bitx(l) = ABS(eyy(l,n)).GT.0.1 + IF(.NOT.bitx(l)) pco2y(l,ic) = pco2y(l,n) + ENDDO + DO l = 1,len + IF(bitx(l)) THEN + DO J = 2, N + A = EYY(l,J) + B = PCO2Y(l,J) + DO I = J-1,1,-1 + IF(EYY(l,I) .LE. A ) GO TO 100 + EYY(l,I+1) = EYY(l,I) + PCO2Y(l,I+1) = PCO2Y(l,I) + ENDDO + i = 0 +100 CONTINUE + EYY(l,I+1) = A + PCO2Y(l,I+1) = B + ENDDO + ENDIF + ENDDO + + !----------------------------------------------------------------------- + + DO l = 1,len + IF(bitx(l)) THEN + PCO2B(l) = 0. + IS(l) = 1 + ENDIF + ENDDO + + DO IX = 1, N + DO l = 1,len + IF(bitx(l)) THEN + IF( EYY(l,IX) .LT. 0. ) THEN + PCO2B(l) = PCO2Y(l,IX) + IS(l) = IX + ENDIF + ENDIF + ENDDO + ENDDO + DO l = 1,len + IF(bitx(l)) THEN + I1 = IS(l)-1 + I1 = MAX(1, I1) + I1 = MIN(N-2, I1) + I2 = I1 + 1 + I3 = I1 + 2 + ISP = IS(l) + 1 + ISP = MIN0( ISP, N ) + IS(l) = ISP - 1 + eyyisp(l) = eyy(l,isp) + eyyis(l) = eyy(l,is(l)) + eyyi1(l) = eyy(l,i1) + eyyi2(l) = eyy(l,i2) + eyyi3(l) = eyy(l,i3) + pco2yisp(l) = pco2y(l,isp) + pco2yis(l) = pco2y(l,is(l)) + pco2yi1(l) = pco2y(l,i1) + pco2yi2(l) = pco2y(l,i2) + pco2yi3(l) = pco2y(l,i3) + ENDIF + ENDDO + + DO l = 1,len + IF(bitx(l)) THEN + + !itb...Neil Suits' patch to check for zero in the denominator... + IF(EYYis(l) /= EYYisp(l))THEN + PCO2YL=PCO2Yis(l) & + - (PCO2Yis(l)-PCO2Yisp(l)) & + /(EYYis(l)-EYYisp(l))*EYYis(l) + ELSE + PCO2YL = PCO2Yis(l) * 1.01 + ENDIF + ! + ! METHOD USING A QUADRATIC FIT + ! + AC1 = EYYi1(l)*EYYi1(l) - EYYi2(l)*EYYi2(l) + AC2 = EYYi2(l)*EYYi2(l) - EYYi3(l)*EYYi3(l) + BC1 = EYYi1(l) - EYYi2(l) + BC2 = EYYi2(l) - EYYi3(l) + CC1 = PCO2Yi1(l) - PCO2Yi2(l) + CC2 = PCO2Yi2(l) - PCO2Yi3(l) + + !itb...Neil Suits' patch to prevent zero in denominator... + IF(BC1*AC2-AC1*BC2 /= 0.0 .AND. AC1 /= 0.0)THEN + BTERM = (CC1*AC2-CC2*AC1)/(BC1*AC2-AC1*BC2) + ATERM = (CC1-BC1*BTERM)/AC1 + CTERM = PCO2Yi2(l) & + -ATERM*EYYi2(l)*EYYi2(l)-BTERM*EYYi2(l) + PCO2YQ= CTERM + PCO2YQ= MAX( PCO2YQ, PCO2B(l) ) + PCO2Y(l,IC) = ( PCO2YL+PCO2YQ)/2. + ELSE + PCO2Y(l,IC) = PCO2Y(l,IC) * 1.01 + ENDIF + + ENDIF + ENDDO + + ENDIF + DO i = 1,len + pco2y(i,ic) = MAX(pco2y(i,ic),0.01E0) + ENDDO + +return +END SUBROUTINE SORTIN + +!############################################################################## +Subroutine CYCALC ( APARKK, VM, ATHETA, BTHETA, par, & + GAMMAS, RESPC, RRKK, OMSS, C3, C4, & + PCO2I, ASSIMN, assim, len ) + + !======================================================================= + ! + ! CALCULATION EQUIVALENT TO STEPS IN FIGURE 4 OF SE-92A + ! C4 CALCULATION BASED ON CO-92. + ! + !======================================================================= + +implicit none + + !++++++++++++++++++++++++++++++OUTPUT+++++++++++++++++++++++++++++++++++ + ! + ! PCO2I CANOPY INTERNAL CO2 CONCENTRATION (MOL MOL-1) + ! GSH2O CANOPY CONDUCTANCE (MOL M-2 S-1) + ! H2OS CANOPY SURFACE H2O CONCENTRATION (MOL MOL-1) + ! + !++++++++++++++++++++++++++DIAGNOSTICS++++++++++++++++++++++++++++++++++ + ! + ! OMC RUBISCO LIMITED ASSIMILATION (MOL M-2 S-1) + ! OME LIGHT LIMITED ASSIMILATION (MOL M-2 S-1) + ! OMS SINK LIMITED ASSIMILATION (MOL M-2 S-1) + ! CO2S CANOPY SURFACE CO2 CONCENTRATION (MOL MOL-1) + ! + !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + + INTEGER len + REAL aparkk(len),vm(len),atheta(len), & + btheta(len),gammas(len),par(len), & + respc(len),rrkk(len),omss(len), & + c3(len),c4(len),pco2i(len), & + assimn(len),assim(len) + + ! local variables + REAL ome, omc, omp, oms, sqrtin + INTEGER i + + !----------------------------------------------------------------------- + ! CALCULATE ASSIMILATION RATE + ! + ! OMC (OMEGA-C): EQUATION (11) , SE-92A + ! OME (OMEGA-E): EQUATION (12) , SE-92A + ! OMS (OMEGA-S): EQUATION (13) , SE-92A + ! ASSIMN (A-N) : EQUATION (14,15), SE-92A + !----------------------------------------------------------------------- + + DO i = 1,len + OMC = VM(i) *(PCO2I(i)-GAMMAS(i))/(PCO2I(i) + RRKK(i))*C3(i) & + + VM(i) * C4(i) + OME = PAR(i)*(PCO2I(i)-GAMMAS(i))/(PCO2I(i)+2.*GAMMAS(i))*C3(i) & + + PAR(i) * C4(i) + SQRTIN= MAX( 0.E0, ( (OME+OMC)**2 - 4.*ATHETA(i)*OME*OMC ) ) + OMP = ( ( OME+OMC ) - SQRT( SQRTIN ) ) / ( 2.*ATHETA(i) ) + OMS = OMSS(i) * C3(i) + OMSS(i)*PCO2I(i) * C4(i) + SQRTIN= MAX( 0.E0, ( (OMP+OMS)**2 - 4.*BTHETA(i)*OMP*OMS ) ) + ASSIM(i) = ( ( OMS+OMP ) - SQRT( SQRTIN ) ) / & + ( 2.*BTHETA(i) ) + ASSIMN(i)= ( ASSIM(i) - RESPC(i)) * APARKK(i) + + ENDDO + +return +END SUBROUTINE CYCALC + +!############################################################################## +Subroutine DELLWF (DTA,dtc4,dtg4,dts4,fac1,areas & + , lcdtc,lcdtg,lcdts,lgdtg,lgdtc,lsdts,lsdtc & + , len ) + + ! Calculation of partial derivatives of canopy and ground radiative + ! heat fluxes with respect to Tc, Tgs. + ! Here we are doing only the long wave radiative loss, which is the + ! only radiative quantity we are trying to bring to the next time step. + + !------------------------------INPUT is coming from Netrad------------- + ! + ! dtc4, dtg4, dts4, which are the derivatives of the LW loss + ! + !++++++++++++++++++++++++++++++OUTPUT+++++++++++++++++++++++++++++++++++ + ! + ! LCDTC dLC/dTC + ! LCDTG dLC/dTG + ! LCDTS dLC/dTS + ! LGDTG dLG/dTG + ! LGDTC dLG/dTC + ! LSDTS dLS/dTS + ! LSDTC dLS/dTC + ! + !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + +implicit none + + INTEGER len + REAL & + lcdtc(len),lcdtg(len),lcdts(len),lgdtg(len),lgdtc(len) & + , lsdts(len),lsdtc(len),areas(len),fac1(len) & + , dtc4(len),dtg4(len),dts4(len),dta + ! local variables + INTEGER i + + DO I=1,len + + !pl canopy leaves: + LCDTC(I) = 2 * DTC4(i) * fac1(i) + LCDTG(I) = - DTG4(i) * fac1(i) * (1.-areas(i)) + LCDTS(I) = - DTS4(i) * fac1(i) * ( areas(i)) + + !pl ground: + LGDTG(I) = DTG4(i) + LGDTC(I) = - DTC4(i) * fac1(i) + + !pl snow: + LSDTS(I) = DTS4(i) + LSDTC(I) = - DTC4(i) * fac1(i) + + ENDDO + +return +END SUBROUTINE DELLWF + +!############################################################################## +Subroutine DELEF (DTA,CP,ps,em,ea,ros,HRr,fc,fg & + , ra,rb,rd,rc,rsoil,snow,capac,www & + , ECDTC,ECDEA,EGDTG,EGDEA,ESDTS & + , ESDEA,EADEA & + , ec,eg,es,fws,hltm,cas_cap_vap & + , etc,etg & + , btc,btg & + , areas, gect,geci,gegs,gegi, psy, snofac, hr & + , len) + + ! Calculation of partial derivatives of canopy and ground latent + ! heat fluxes with respect to Tc, Tgs, Theta-m, and Qm. + ! Calculation of initial latent heat fluxes. + + ! The ETC, ETG and so on are the vapor pressure at temps TC, TG and so on + ! The BTC, BTG are the derivatives of ETC, ETG with relation to TC, TG etc. + + !++++++++++++++++++++++++++++++OUTPUT+++++++++++++++++++++++++++++++++++ + ! + ! EC ECT + ECI + ! EG EGS + EGI + ! ECDTC dEC/dTC + ! ECDTG dEC/dTGS + ! EGDTC dEG/dTC + ! EGDTG dEG/dTGS + ! + !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + +implicit none + + INTEGER len + REAL & + ECDTC(len),ECDEA(len),EGDTG(len),EGDEA(len) & + , ESDTS(len),ESDEA(len),EADEA(len) & + , fc(len),fg(len),snow(len,2),capac(len,2),www(len,3) & + , hrr(len),rst(len),rb(len),rd(len),rc(len),rsoil(len) & + , ra(len),rds(len), cas_cap_vap(len) & + , em(len),etc(len),etg(len),ea(len) & + , ps(len),ec(len),eg(len),es(len) & + , btc(len),btg(len) & + , sh(len),COG1(len),COC(len),D2(len) & + , tc_0(len), tgs_0(len), intg(len), intc(len) & + , COG2(len), hr(len) ,fws(len),hltm, rcp(len), rcpg(len)& + , ros(len), dta, cp, psy(len), snofac & + , limci(len),limgi(len),limct(len),limgs(len) + REAL cogr(len),cogs(len),areas(len), cpdpsy(len) + REAL gect(len),geci(len),gegs(len),gegi(len),resrat + + INTEGER i + + ! MODIFICATION FOR SOIL DRYNESS : HR=REL. HUMIDITY IN TOP LAYER + + resrat = 0.5 + + DO I=1,len + hrr(I) = HR(I) + IF(fg(i).LT.0.5) hrr(i) = 1.0 + ENDDO + + DO I=1,len + rcp(i) = ros(i) * cp + rcpg(i) = rcp(i)/psy(i) ! this is rho * cp / gamma + cpdpsy(i) = cp / psy(i) + rds(i) = rsoil(i) + rd(i) + + !----------------------------------------------------------------------- + ! CALCULATION OF SURFACE RESISTANCE COMPONENTS, SEE EQUATIONS (64,66) + ! OF SE-86 + ! the ge?? coefficients come all the way from VNTLAT and are common to + ! all routines: + ! gect(i) = (1. -wc(i)) / rc(i) + ! geci(i) = epsc(i) * wc(i) / (RB(I) + RB(I)) + ! gegs(i) = (1-wg(i)) / (rds(i)) + ! gegi(i) = epsg(i) * wg(i) / rd(i) + !----------------------------------------------------------------------- + + COC(I) = gect(i) + geci(i) + COG1(i) = (gegi(i) + gegs(i)*HRR(i)) + COG2(i) = (gegi(i) + gegs(i) ) + + ! D2(I) = 1.0 / RA(I) + COC(I) + COG2(I) + !----------------------------------------------------------------------- + ! + ! FLUXES EXPRESSED IN JOULES M-2 CPL WHY ????? + ! + ! ec (EC) : EQUATION (64) , SE-86 + ! eg (EG) : EQUATION (66) , SE-86 + ! es (ES) : EQUATION (66) , SE-86 + ! ea (EA) : EQUATION ???? + !----------------------------------------------------------------------- + + !pl these are the current time step fluxes in J/m2 WHY ????? + + !pl notice that the fluxes are already limited by the altered e*(T) values + + ec(I) = (etc(I) - ea(i)) * COC(I) * & + ros(i) * dta * cpdpsy(i) + + eg(I) = ( etg(I) * COG1(I) & + - ea(i) * COG2(I)) * & + ros(i) * dta * cpdpsy(i) + + es(I) = ((etg(I) - ea(i))/rd(i) )* & + ros(i) * dta * cpdpsy(i)/snofac + fws(I) = ((ea(I) - em(i) ) / ra(i)) & + * ros(i) * dta * cpdpsy(i) + + !pl now we do the partial derivatives these assume W/m2 + + !pl for the canopy leaves vapor pressure: W/ (m2* K) + ECDTC(I) = btc(I) * COC(I) & + * ros(i) * CPDPSY(i) + ECDEA(I) = - COC(I) * ros(i) * CPDPSY(i) + + !pl for ground latent heat fluxes: W/ (m2* K) + EGDTG(I) = btg(I) * COG1(I) & + * ros(i) * CPDPSY(i) + EGDEA(I) = - (COG2(I)) * ros(i) * CPDPSY(i) + + !pl for snow latent heat fluxes: W/ (m2* K) + ESDTS(I) = btg(I) * ros(i) * CPDPSY(i)/RD(i) + + !pl for snow latent heat fluxes: W/ (m2 * Pa) + ESDEA(I) = - ros(i) * CPDPSY(i)/RD(i) + + !pl for CAS latent heat fluxes: W/ (m2* Pa) + EADEA(I) = ros(i) * CPDPSY(i) / ra(i) + + ENDDO + +!print*,'delef: em,ea,etg,etc=',em,ea,etg,etc +!print*,'delef: coc,cog1,cog2,dta=',coc,cog1,cog2,dta +!print*,'delef: ros, cpdpsy=',ros,cpdpsy +!print*,'delef: ec,eg,es,fws=',ec,eg,es,fws + +return +END SUBROUTINE DELEF + +!############################################################################## +Subroutine DELHF (DTA,CP,bps,tm,tg,ts,tc,ta,ros,ra,rb,rd & + , HCDTC,HCDTA,HGDTG,HGDTA,HSDTS,HSDTA & + , HADTA & + , hc, hg, hs, fss, len ) + + ! ATTENTION receiving tgs instead of tg !!! + ! Calculation of partial derivatives of canopy and ground sensible + ! heat fluxes with respect to Tc, Tgs, and Theta-m. + ! Calculation of initial sensible heat fluxes. + + !++++++++++++++++++++++++++++++OUTPUT+++++++++++++++++++++++++++++++++++ + ! + ! HC CANOPY SENSIBLE HEAT FLUX (J M-2) + ! HG GROUND SENSIBLE HEAT FLUX (J M-2) + ! HS SNOW SENSIBLE HEAT FLUX (J M-2) + ! HA CAS SENSIBLE HEAT FLUX (J M-2) + ! HCDTC dHC/dTC + ! HCDTA dHC/dTA + ! HGDTG dHG/dTG + ! HGDTA dHG/dTA + ! HSDTS dHS/dTS + ! HSDTA dHS/dTA + ! HADTA dHA/dTA + ! + !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + +implicit none + + INTEGER len + REAL & + bps(len),tm(len),tg(len),ts(len),HCDTC(len),HCDTA(len) & + , HGDTG(len),HGDTA(len),HSDTS(len),HSDTA(len) & + , HADTA(len),ra(len) & + , rb(len),rd(len),tc(len), ta(len), hc(len), hg(len) & + , ros(len), dta, cp, fss(len), hs(len) + ! local variables + REAL D1, d1i, rai, rbi, rdi + INTEGER i + + !----------------------------------------------------------------------- + ! FLUXES EXPRESSED IN JOULES M-2, although in SIBSLV WE THEN WANT W/m2 + !pl WHY ???? + ! + !pl if we were to keep things simple, there is no need to separate + !pl HG and HS, but it helps the derivatives keep clean. + ! + ! HC (HC) : EQUATION (63) , SE-86 + ! HG (HG) : EQUATION (65) , SE-86 + ! HS (HS) : EQUATION (65) , SE-86 + ! HA (HA) : EQUATION ??? + !----------------------------------------------------------------------- + + DO I=1,len + rai = 1.0 / ra(I) + rbi = 1.0 / rb(I) + rdi = 1.0 / rd(I) + ! D1 = rai + rbi + rdi + ! d1i = 1. / d1 + + !pl these are the current time step fluxes in J/m2 + !pl can we change this to W/m2 ??? + + HC(I) = CP * ros(i) * (tc(i) - ta(i)) * rbi * DTA + HG(I) = CP * ros(i) * (tg(I) - ta(i)) * rdi * DTA + HS(I) = CP * ros(i) * (tg(I) - ta(i)) * rdi * DTA + fss(I) = CP * ros(i) * (ta(I) - tm(i)) * rai * DTA + + !pl now we do the partial derivatives + + !pl these are done assuming the fluxes in W/m2 + + !pl for canopy leaves sensible heat flux: W/(m2 * K) + HCDTC(I) = CP * ros(i) * rbi + HCDTA(I) = - HCDTC(I) + !pl for ground and snow sensible heat fluxes: W/(m2 * K) + HGDTG(I) = CP * ros(i) * rdi + HSDTS(I) = HGDTG(I) + HGDTA(I) = - HGDTG(I) + HSDTA(I) = - HGDTG(I) + !pl for the canopy air space (CAS) sensible heat flux: W/(m2 * K) + HADTA(I) = CP * ros(i) * rai + + ENDDO + + !itb... + ! !print*,'delhf: rbi,rdi,rai,dta=',rbi,rdi,rai,dta + ! !print*,'delhf: cp, ros=',cp,ros + ! !print*,'delhf: tm,tc,tg,ta=',tm,tc,tg,ta + ! !print*,'delhf: hc,hg,hs,fss=',hc,hg,hs,fss + +return +END SUBROUTINE DELHF + +!############################################################################## +Subroutine soilprop ( td, tg, slamda, shcap, www, poros, ztdep, & + asnow, snoww, areas, tf, snomel, nsib, len, nsoil ) + +implicit none + + ! this routine calculates the soil thermal properties heat capacity + ! (shcap) and conductivity (slamda). Phase changes are incorporated + ! into the heat capacity over a range of -0.5C to 0.5C. + ! slamda(n) is the conductivity between layers n and n+1 / delta z + ! layer 1 is the deepest layer, layer nsoil is immediately below the + ! surface + ! treatment based on Bonan + + ! argument list variables + INTEGER len, nsib, nsoil + REAL & + td(nsib,nsoil), tg(len), slamda(len,nsoil), & + shcap(len,nsoil), www(len,3), poros(len), snomel, & + ztdep(nsib,nsoil), areas(len), snoww(len), asnow, tf + + ! local variables + REAL & + shcapu, shcapf, shsnow, klamda(len,nsoil),zsnow(len), & + kf, ku, ksnow, ksoil(len), kiw(len,3),kii(len,3), & + shcap1, klamda1, klamda2 + INTEGER i,n + + ! snow density assumed 0.25 that of water to convert from Bonan's constants + ! for ksnow and max effective snow depth + ksnow = 0.085 + DO i = 1,len + ksoil(i) = 6.0**(1.-poros(i)) + ENDDO + DO n = 1,3 + DO i = 1,len + kiw(i,n) = 0.6**(www(i,n)*poros(i)) + kii(i,n) = 2.2**(www(i,n)*poros(i)) + ENDDO + ENDDO + ! heat capacity calculation and conductivity calculation + + ! soil layers 1 and 2 ( deepest layers, use www(3) ) + DO n = 1,2 + DO i = 1,len + SHCAPu = ( 0.5*(1.-POROS(i)) + WWW(i,3)* & + POROS(i)) * 4.186E6 + shcapf = 0.5 * (1. + poros(i) * & + (www(i,3)-1.0)) * 4.186E6 + ku = (ksoil(i)*kiw(i,3)-0.15)*www(i,3) + 0.15 + kf = (ksoil(i)*kii(i,3)-0.15)*www(i,3) + 0.15 + IF(td(i,n).GE.tf+0.5) THEN + shcap(i,n) = shcapu * ztdep(i,n) + klamda(i,n) = ku + ELSE IF(td(i,n).LE.tf-0.5) THEN + shcap(i,n) = shcapf * ztdep(i,n) + klamda(i,n) = kf + ELSE + shcap(i,n) = (0.5*(shcapu+shcapf) + & + poros(i)*www(i,3)*snomel) * ztdep(i,n) + klamda(i,n) = kf + (ku-kf)*(td(i,n)+0.5-tf) + ENDIF + ENDDO + ENDDO + + ! soil layers 3,4,5 and nsoil ( intermediate layers, use www(2) ) + DO n = 3,nsoil + DO i = 1,len + SHCAPu = ( 0.5*(1.-POROS(i)) + WWW(i,2)* & + POROS(i)) * 4.186E6 + shcapf = 0.5 * (1. + poros(i) * & + (www(i,2)-1.0)) * 4.186E6 + ku = (ksoil(i)*kiw(i,2)-0.15)*www(i,2) + 0.15 + kf = (ksoil(i)*kii(i,2)-0.15)*www(i,2) + 0.15 + IF(td(i,n).GE.tf+0.5) THEN + shcap(i,n) = shcapu * ztdep(i,n) + klamda(i,n) = ku + ELSE IF(td(i,n).LE.tf-0.5) THEN + shcap(i,n) = shcapf * ztdep(i,n) + klamda(i,n) = kf + ELSE + shcap(i,n) = (0.5*(shcapu+shcapf) + & + poros(i)*www(i,2)*snomel) * ztdep(i,n) + klamda(i,n) = kf + (ku-kf)*(td(i,n)+0.5-tf) + ENDIF + ENDDO + ENDDO + + ! soil layer nsoil ( top layer, use www(1) ) + ! if snow covered add additional heat capacity due to snow + DO i = 1,len + SHCAPu = ( 0.5*(1.-POROS(i)) + WWW(i,1)* & + POROS(i)) * 4.186E6 + shcapf = 0.5 * (1. + poros(i) * & + (www(i,1)-1.0)) * 4.186E6 + ku = (ksoil(i)*kiw(i,1)-0.15)*www(i,1) + 0.15 + kf = (ksoil(i)*kii(i,1)-0.15)*www(i,1) + 0.15 + IF(td(i,nsoil).GE.tf+0.5) THEN + shcap1 = shcapu + klamda1 = ku + ELSE IF(td(i,nsoil).LE.tf-0.5) THEN + shcap1 = shcapf + klamda1 = kf + ELSE + shcap1 = 0.5*(shcapu+shcapf) + & + poros(i)*www(i,1)*snomel + klamda1 = kf + (ku-kf)*(td(i,nsoil)+0.5-tf) + ENDIF + IF(tg(i).GE.tf+0.5) THEN + klamda2 = ku + ELSE IF(tg(i).LE.tf-0.5) THEN + klamda2 = kf + ELSE + klamda2 = kf + (ku-kf)*(tg(i)+0.5-tf) + ENDIF + zsnow(i) = MIN( MAX(1./asnow,snoww(i)) - 0.02, 0.25E0 ) + shsnow = (0.5 * 4.186e6 * zsnow(i) + shcap1 * 0.02) / & + (zsnow(i)+0.02) + shcap(i,nsoil) = shcap(i,nsoil) * (1.-areas(i)) + areas(i) * & + shcap(i,nsoil)*shsnow*(ztdep(i,nsoil)+zsnow(i)+0.02) / & + (shsnow*ztdep(i,nsoil)+shcap(i,nsoil) * & + (zsnow(i)+0.02)) * (ztdep(i,nsoil)+zsnow(i)+0.02) + klamda1 = ksnow*klamda1 * (0.02+zsnow(i)) / & + (ksnow*0.02 + klamda1*zsnow(i)) + + ! soil conductivities / delta z + + slamda(i,nsoil) = (1.-areas(i)) * 2.*klamda(i,nsoil)*klamda2 / & + (klamda2*ztdep(i,nsoil)+0.02*klamda(i,nsoil)) + & + areas(i) * klamda(i,nsoil)*klamda1 / & + (klamda1*ztdep(i,nsoil)*0.05 + & + klamda(i,nsoil)*(zsnow(i)+0.02)) + + ENDDO + + DO n = 1,nsoil-1 + DO i = 1,len + slamda(i,n) = 2.0 * klamda(i,n)*klamda(i,n+1) / & + (klamda(i,n)*ztdep(i,n+1)+ & + klamda(i,n+1)*ztdep(i,n)) + ENDDO + ENDDO + +return +END SUBROUTINE soilprop + +!############################################################################## +Subroutine SIBSLV (DT,GRAV2,CP,HLTM,tg,tsnow,td,slamda,pi & + , areas,fac1 & + , VENTMF,BPS,ros,psy & + , cg,ccx,cas_cap_heat,cas_cap_vap & + , lcdtc,lcdtg,lcdts,lgdtg,lgdtc,lsdts,lsdtc & + , HCDTC,HCDTA,HGDTG,HGDTA,HSDTS,HSDTA & + , HADTA & + , hc, hg, hs, fss & + , ECDTC,ECDEA,EGDTG,EGDEA,ESDTS & + , ESDEA,EADEA & + , ec,eg,es,fws & + , etc,etg & + , btc,btg & + , RADT & + , dtc, dtg, dta, dea & + , len) + +! ATTENTION !!! I am calling this with the TGS temp instead of tg. + +! Calculation of time increments in Tc, Tgs, Theta-m and Qm using an +! implicit backwards method with explicit coefficients. +! Similar to equations (10-15), SA-92B. +! Longwave feedbacks are now really included. + +!pl ATTENTION !!! this is hardwired to work only with Bonan soil. +!pl if force-restore is wanted, we need to include approporiate if loops like +!pl in sibslv.F + + !++++++++++++++++++++++++++++++OUTPUT+++++++++++++++++++++++++++++++++++ + ! + ! DTC CANOPY TEMPERATURE INCREMENT (K) + ! DTG GROUND SURFACE TEMPERATURE INCREMENT (K) + ! ETMASS (FWS) EVAPOTRANSPIRATION (MM) + ! HFLUX (FSS) SENSIBLE HEAT FLUX (W M-2) + ! + !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + +implicit none + + ! Declare parameters + INTEGER, PARAMETER :: sgl = SELECTED_REAL_KIND(p=6) ! Single + INTEGER, PARAMETER :: dbl = SELECTED_REAL_KIND(p=13) ! Double + + INTEGER len + + REAL & + lcdtc(len),lcdtg(len),lcdts(len),lgdtg(len),lgdtc(len) & + , lsdts(len),lsdtc(len),areas(len) & + , dtc4(len),dtg4(len),dts4(len) + REAL & + VENTMF(len),BPS(len) & + , cg(len),ccx(len),z2(len),z1(len) & + , HCDTC(len),HCDTA(len) & + , HGDTG(len),HGDTA(len),HSDTS(len),HSDTA(len) & + , HADTA(len) & + , ECDTC(len),ECDEA(len),EGDTG(len),EGDEA(len) & + , ESDTS(len),ESDEA(len),EADEA(len) & + , FSS(len),FWS(len),td(len),RADT(len,3) & + , tc(len), tg(len),tsnow(len), ta(len) & + , ec(len),eg(len),es(len),ea(len) & + , etc(len),etg(len) & + , btc(len),btg(len) & + , hc(len), hg(len), hs(len) & + , dtc(len), dtg(len,2), dta(len), dea(len) & + , fac1(len) & + , dt, hltm, cp, grav2, slamda(len), pi & + , cas_cap_heat(len),cas_cap_vap(len),ros(len) + + ! local variables + REAL tmcn2,dti,ddthl,cpdt,TEMV(len),cpdpsy(len),psy(len) & + ,AVEC(len,5,6),BVEC(len,5) + + INTEGER i,j,k, error_flag + + !pl this routine sets up the coupled system of partial + !pl differential equations described in Sato et al., + !pl with the exception that now Ta and ea are prognostic + !pl variables, and so we have two more equations, reflected + !pl in two more lines and two more columns as compared + !pl to the old sibslv.F (used for no prognistic CAS calculations) + + !pl J: /variables + !pl J: equation/ 1 2 3 4 5 6 7 8 + !pl TC, TG, TS, TREF, EREF, TA, EA, FORCING past t..l. + !pl 1: TC (vegetation temperature) + !pl 2: TG (Ground or snow surface temperature) + !pl 3: TS (Ground or snow surface temperature) + !pl 4: TREF (lowest model layer/driver data temperature) (not used with RAMS) + !pl 5: EREF (lowest model layer/driver data water vapor) (not used with RAMS) + !pl 6: TA (CAS temperature) + !pl 7: EA (CAS water vapor) + + DTI = 1.0 / DT + + DO I=1,len + TEMV(I) = GRAV2 * VENTMF(i) + cpdpsy(i) = cp / psy(i) + ! + ! DTC EQUATION + ! + AVEC(I,1,1) = ccx(I) * DTI + HCDTC(I) + ECDTC(I) + lcdtc(i) + AVEC(I,1,2) = LCDTG(i) + AVEC(I,1,3) = LCDTS(i) + AVEC(I,1,4) = HCDTA(I) + AVEC(I,1,5) = ECDEA(I) + AVEC(I,1,6) = RADT(i,1) - HC(I) * DTI - ec(I) * DTI + ! + ! DTG EQUATION + ! + AVEC(i,2,1) = lgdtc(i) + AVEC(i,2,2) = cg(i) * DTI + HGDTG(I) + EGDTG(I) & + + lgdtg(i) + slamda(i) + AVEC(i,2,3) = 0. + AVEC(I,2,4) = hgdta(i) + AVEC(i,2,5) = egdea(i) + AVEC(I,2,6) = RADT(i,2) - HG(I) * DTI - eg(I) * DTI & + - slamda(i) * (tg(I) - td(i)) + ! + ! DTS EQUATION + ! + AVEC(i,3,1) = lsdtc(i) + AVEC(i,3,2) = 0. + AVEC(i,3,3) = cg(i) * DTI + HSDTS(I) + ESDTS(I) & + + lsdts(i) + slamda(i) + AVEC(I,3,4) = hsdta(i) + AVEC(i,3,5) = esdea(i) + AVEC(I,3,6) = RADT(i,3) - HS(I) * DTI - es(I) * DTI & + - slamda(i) * (tg(I) - td(i)) + ! + ! DTA EQUATION + ! + AVEC(i,4,1) = - HCDTC(i) + AVEC(i,4,2) = - HGDTG(i) * (1.-areas(i)) + AVEC(i,4,3) = - HSDTS(i) * ( areas(i)) + AVEC(I,4,4) = cas_cap_heat(i) * DTI & + + HADTA(I) - HCDTA(i) & + - (1.-areas(i))*HGDTA(I) - areas(i)*HSDTA(I) + AVEC(i,4,5) = 0. + AVEC(I,4,6) = HC(I) * DTI - FSS(I) * DTI & + + (1.-areas(i))*HG(I) * DTI & + + areas(i) *HS(I) * DTI + ! + ! DEA EQUATION + ! + AVEC(i,5,1) = - ECDTC(i) + AVEC(i,5,2) = - EGDTG(i) * (1.-areas(i)) + AVEC(i,5,3) = - ESDTS(i) * ( areas(i)) + AVEC(I,5,4) = 0. + AVEC(i,5,5) = cas_cap_vap(i) * DTI & + + (EADEA(I) - ECDEA(I) & + - (1.-areas(i))*EGDEA(I) & + - areas(i) *ESDEA(I)) + AVEC(I,5,6) = (EC(I) * DTI - FWS(I) * DTI & + + (1.-areas(i))*EG(I) * DTI & + + areas(i) *ES(I) * DTI) + ENDDO + + ! + ! SOLVE 7 X 8 MATRIX EQUATION + ! + + CALL GAUSS (len,AVEC,5,6,BVEC) + + DO I=1,len + DTC(I) = BVEC(I,1) + DTG(I,1) = BVEC(I,2) ! this is DTG + DTG(I,2) = BVEC(I,3) ! this is DTS + DTA(i) = BVEC(I,4) + DEA(i) = BVEC(I,5) + ENDDO + +return +END SUBROUTINE SIBSLV + +!############################################################################## +Subroutine GAUSS (len,WORK,N,NP1,X) + +! SOLVE A LINEAR SYSTEM BY GAUSSIAN ELIMINATION. DEVELOPED BY +! DR. CHIN-HOH MOENG. A IS THE MATRIX OF COEFFICIENTS, WITH THE +! VECTOR OF CONSTANTS APPENDED AS AN EXTRA COLUMN. X IS THE VECTOR +! CONTAINING THE RESULTS. THE INPUT MATRIX IS NOT DESTROYED. + +implicit none + + INTEGER len, n, np1 + REAL WORK(len,N,NP1),X(len,N) + ! local variables + REAL TEMV(len,2) + INTEGER ii, j, i, k, kk, l + + DO II=2,N + DO J=II,N + DO I=1,len + TEMV(I,1) = WORK(I,J,II-1) / WORK(I,II-1,II-1) + ENDDO + DO K=1,NP1 + DO I=1,len + WORK(I,J,K) = WORK(I,J,K) - TEMV(I,1) * WORK(I,II-1,K) + ENDDO + ENDDO + ENDDO + ENDDO + + DO K=N,2,-1 + DO I=1,len + TEMV(I,1) = WORK(I,K,NP1) / WORK(I,K,K) + ENDDO + KK = K-1 + DO L=KK,1,-1 + DO I=1,len + TEMV(I,2) = TEMV(I,1) * WORK(I,L,K) + ENDDO + DO I=1,len + WORK(I,L,NP1) = WORK(I,L,NP1) - TEMV(I,2) + ENDDO + ENDDO + ENDDO + + DO II=1,N + DO I=1,len + X(I,II) = WORK(I,II,NP1) / WORK(I,II,II) + ENDDO + ENDDO + + RETURN +END SUBROUTINE GAUSS + +!############################################################################## +Subroutine UPDAT2 (snoww,capac,snofac,ect,eci,egi & + , egs,hlat,www,pi,cg,dtg,dtc,ta,dta,dea & + , dtt & + , roff,tc,td,tg,bee, poros & + , satco,slope,phsat,zdepth,ecmass & + , egmass,shf,tf,snomel,asnow & + , ccx,csoil,chf,hc,hg,areas & + , q3l,q3o,qqq,zmelt,cw, len, nsib & + , nsoil,etc,ea,btc & + , geci,ros,cp,psy,gect,etg,btg & + , gegs,hr,fg,gegi,rd,rb,hcdtc,hcdta & + , hgdta,slamda) + +implicit none + + !==================================================================== + ! + ! MOVING STORAGE TERM UPDATES (SNOW, CAPAC) HERE FROM ENDTEM, WHICH + ! NO LONGER EXISTS. FLUXES PREVIOUSLY CALCULATED IN ENDTEM ARE + ! TAKEN CARE OF IN THE PROGNOSTIC C.A.S. CALCULATIONS, SO WE + ! MERELY NEED TO TAKE CARE OF STORAGE TERMS NOW. + ! + ! ITB November 2000 + !======================================================================= + ! + ! UPDATING OF ALL HYDROLOGICAL PROGNOSTIC VARIABLES. SNOW AND + ! RUNOFF CALCULATIONS (SEE ALSO INTER2). ROUTINES SNOW2 AND + ! RUN2 OF 1D MODEL ARE INLINED IN THIS CODE. + ! + !======================================================================= + !++++++++++++++++++++++++++++++OUTPUT+++++++++++++++++++++++++++++++++++ + ! + ! DTC CANOPY TEMPERATURE INCREMENT (K) + ! DTG GROUND SURFACE TEMPERATURE INCREMENT (K) + ! WWW(3) GROUND WETNESS + ! CAPAC(2) CANOPY/GROUND LIQUID INTERCEPTION STORE (M) + ! SNOWW(2) CANOPY/GROUND SNOW INTERCEPTION STORE (M) + ! ROFF RUNOFF (MM) + ! + !++++++++++++++++++++++++++DIAGNOSTICS++++++++++++++++++++++++++++++++++ + ! + ! ECMASS CANOPY EVAPOTRANSPIRATION (MM) + ! EGMASS GROUND EVAPOTRANSPIRATION (MM) + ! + !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + + INTEGER len, nsib, nsoil, i, l, iveg, ksoil,j + + ! INTENT = IN VARIABLES + REAL, INTENT(in),DIMENSION(len) :: & + cg & ! surface layer heat capacity (J m^-2 deg^-1) + , dta & ! delta canopy air space (CAS) temperature (K) + , dea & ! delta CAS vapor pressure (Pa) + , tc & ! canopy temperature (K) + , ta & ! CAS temperature (K) + , tg & ! ground surface temperature (K) + , bee & ! Clapp&Hornberger 'b' exponent + , poros & ! soil porosity (fraction) + , satco & ! hydraulic conductivity at saturation (UNITS?) + , slope & ! cosine of mean slope + , phsat & ! soil tension at saturation (UNITS?) + , ccx & ! canopy heat capacity (J m^-2 deg^-1) + , csoil & ! soil heat capacity (J m^-2 deg^-1) + , etc & ! 'E-star' of the canopy - vapor pressure (Pa) + , ea & ! CAS vapor pressure (Pa) + , btc & ! d(E(Tc))/d(Tc) - Clausius-Clapyron + , gegs & ! dry fraction of ground/(fg*rsoil + Rd) + , hr & ! soil surface relative humidity + , fg & ! flag indicating direction of vapor pressure + ! deficit between CAS and ground: 0 => ea>e(Tg) + ! 1 => ea TF, TSNOW = TF + !======================================================================= + + DO IVEG = 1,2 + + REALC = (2 - IVEG)*1. + REALG = (IVEG - 1)*1. + + DO i = 1,len + CCTT(i) = REALC*CCX (i) + REALG*CG(i) + CCT(i) = REALC*CCX(i) + REALG*CSOIL(i) + TS(i) = REALC*TC(i) + REALG*TG(i) + DTS(i) = REALC*DTC(i) + REALG*DTG(i,1) + DTS2(i) = REALC*DTC(i) + REALG*DTG(i,2) + FLUX(i) = REALC*CHF(i) + REALG* & + ( (1.-areas(i))*DTG(i,1)+ & + areas(i)*dtg(i,2) )*cg(i) /DTT + ! fluxef moved up here to conserve energy + fluxef(i) = ( shf(i) - flux(i)) * realg + TSNOW(i) = MIN ( TF-0.01, TS(i) ) + ZMELT(i) = 0. + ENDDO + + DO i = 1,len ! this scalar loop needs vector optimization + !itb print*,'updat2:ts,dts,ts+dts,tf',ts(i),dts(i),ts(i)+dts(i),tf + IF ( SNOWW(i,IVEG) .GT. 0. ) GO TO 102 + IF ( ( TS(i)+DTS(i)) .GT. TF ) GO TO 502 + !---------------------------------------------------------------------- + ! + ! NO SNOW PRESENT, SIMPLE THERMAL BALANCE WITH POSSIBLE FREEZING. + ! + !---------------------------------------------------------------------- + FREEZE = MIN ( 0.E0, (FLUX(i)*DTT-( TF-0.01 - TS(i)) & + *CCTT(i))) + SNOWW(i,IVEG) = MIN( CAPAC(i,IVEG), - FREEZE/SNOMEL ) + ZMELT(i) = CAPAC(i,IVEG) - SNOWW(i,IVEG) + CAPAC(i,IVEG) = 0. + DTS(i) = DTS(i) + SNOWW(i,IVEG)*SNOMEL/CCTT(i) + GO TO 502 + !---------------------------------------------------------------------- + ! + ! SNOW PRESENT + ! + !--------------------------------------------------------------------- +102 CONTINUE + !itb IF ( TS(i) .LT. TF .AND. (TS(i)+DTS(i)) .LT. TF ) GO TO 502 + IF ( TS(i) .LT. TF .AND. (TS(i)+DTS2(i)) .LT. TF ) GO TO 502 + IF ( ts(i) .GT. TF ) GO TO 202 + !---------------------------------------------------------------- + ! + ! SNOW PRESENT : TS < TF, TS+DTS > TF + ! + !------------------------------------------------------------ + AVEX = FLUX(i) - ( TF-0.01 - TS(i) ) * CCTT(i)/DTT + AVMELT = ( AVEX/SNOMEL * (AREAS(i)*REALG + REALC ) )*DTT + ZMELT(i) = MIN( AVMELT, SNOWW(i,IVEG) ) + SNOWW(i,IVEG) = SNOWW(i,IVEG) - ZMELT(i) + AVHEAT = AVEX*( 1.-AREAS(i) )*REALG + & + ( AVMELT-ZMELT(i) )*SNOMEL/DTT + AREAS(i) = MIN( 0.999E0, ASNOW*SNOWW(i,2) ) + SAFE = MAX( ( 1.-AREAS(i)*REALG ), 1.E-8 ) + DTS(i) = TF-0.01 - TS(i) + AVHEAT / ( CCTT(i)*SAFE )*DTT + GO TO 502 + !---------------------------------------------------------------------- + ! + ! SNOW PRESENT AND TS > TF : GROUND ONLY. + ! + !------------------------------------------------------------------ +202 CONTINUE + + EXHEAT = CCT(i)*( 1.001-MAX(0.1E0,AREAS(i))) * DTS(i) + EXMELT = FLUX(i)*DTT - EXHEAT + HEAT = EXHEAT + DTSG = EXHEAT / ( CCT(i)*(1.001-AREAS(i) )) + IF ( (TS(i)+DTSG) .GT. TF ) GO TO 302 + HEAT = ( TF-0.01 - TS(i) ) * ( CCT(i)*(1.-AREAS(i)) ) + DTSG = TF-0.01 - TS(i) + +302 EXMELT = EXMELT + EXHEAT - HEAT + + IF( EXMELT .LT. 0. ) GO TO 402 + ZMELT(i) = EXMELT/SNOMEL + IF( ASNOW*(SNOWW(i,IVEG)-ZMELT(i)) .LT. 1. ) & + ZMELT(i) = MAX( 0.E0, SNOWW(i,IVEG) - 1./ASNOW ) + SNOWW(i,IVEG) = SNOWW(i,IVEG) - ZMELT(i) + !print*,'XX' ,snoww(i,2) , snoww(i,2) , capac(i,2) + EXMELT = EXMELT - ZMELT(i)*SNOMEL + ZMELT2 = EXMELT/ ( CCT(i)*( TS(i)-TF )*ASNOW + SNOMEL ) + ZMELT2 = MIN( ZMELT2, SNOWW(i,IVEG) ) + ZMELT(i) = ZMELT(i) + ZMELT2 + SNOWW(i,IVEG) = SNOWW(i,IVEG) - ZMELT2 + EXMELT = EXMELT - ZMELT2*( CCT(i)*( TS(i)-TF )*ASNOW + SNOMEL ) + DTS(i) = DTSG + EXMELT/CCT(i) + GO TO 502 + +402 COOL = MIN( 0.E0, TF-0.01 -(TS(i)+DTSG)) * CCT(i) & + *(1.-AREAS(i)) + DTSG2 = MAX ( COOL, EXMELT ) / ( CCT(i)*( 1.001-AREAS(i) ) ) + EXMELT = EXMELT - DTSG2*CCT(i)*(1.-AREAS(i)) + DTSG3 =EXMELT/CCTT(i) + DTS(i) = DTSG + DTSG2 + DTSG3 + +502 CONTINUE + ENDDO + + DO i = 1,len + !itb...patch + IF(ZMELT(i) < 0.0 ) ZMELT(i) = 0.0 + !itb...patch + WWW(i,1) = WWW(i,1) + ZMELT(i) / & + ZDEPTH(i,1) + + IF(www(i,1).LT.0.0)zmelt_total(i) = SQRT(www(i,1)) + + DTC(i) = DTC(i)*REALG + DTS(i)*REALC + DTG(i,1) = DTG(i,1)*REALC + DTS(i)*REALG + zmelt_total(i) = zmelt_total(i) + zmelt(i) + ENDDO + + ENDDO + + !itb...put zmelt_total into zmelt + zmelt(:) = zmelt_total(:) + + DO i = 1,len + !------------------END SNOW2 ------------------------------------- + !---------------------------------------------------------------------- + ! EVAPOTRANSPIRATION LOSSES APPLIED TO SOIL MOISTURE STORE. + ! EXTRACTION OF TRANSPIRATION LOSS FROM ROOT ZONE, SOIL EVAPORATION.. + ! + ! ECT (E-DC) : EQUATION (5,6), SE-86 + ! EGS (E-S) : EQUATION (5) , SE-86 + !---------------------------------------------------------------------- + + !PL STEP THREE part II + !pl we have done the potential ECT and EGS inside ENDTEM25 + !pl now we limit these fluxes according to 1/2 of what is + !pl in the soil reservoirs, WWW(i,1) for EGS and WWW(i,2) for ECT + !pl we 'donate' the excess to HC and HG, if any. + + FACL = hlati*0.001/ZDEPTH(i,2) + EXTRAK = ECT(i)*FACL + EXTRAK = MIN( EXTRAK, WWW(i,2)*0.5 ) + ECTDIF = ECT(i) - EXTRAK/FACL + ECT(i) = EXTRAK/FACL + HC(i) = HC(i) + ECTDIF + ECMASS(i) = ECMASS(i) + ECT(i)*hlati + WWW(i,2) = WWW(i,2) - ECT(i)*FACL + + FACL = 0.001*hlati/ZDEPTH(i,1) + EXTRAK = EGS(i)*FACL + EXTRAK = MIN( EXTRAK, WWW(i,1) *0.5 ) + EGSDIF = EGS(i) - EXTRAK/FACL + EGS(i) = EXTRAK/FACL + HG(i) = HG(i) + EGSDIF + EGMASS(i) = EGMASS(i) + EGS(i)*hlati + WWW(i,1) = WWW(i,1) - EGS(i)*FACL + + ENDDO + + !======================================================================== + !------------------RUN2 INLINED------------------------------------- + !======================================================================== + !---------------------------------------------------------------------- + ! CALCULATION OF INTERFLOW, INFILTRATION EXCESS AND LOSS TO + ! GROUNDWATER . ALL LOSSES ARE ASSIGNED TO VARIABLE 'ROFF' . + !---------------------------------------------------------------------- + + DO I = 1,3 + DO l = 1,len + TEMW(l,I) = MAX( 0.03E0, WWW(l,I) ) + TEMWP(l,I) = TEMW(l,I) ** ( -BEE(l) ) + TEMWPP(l,I) = MIN( 1.E0, TEMW(l,I))**( 2.*BEE(l)+ 3. ) + ENDDO + ENDDO + + !----------------------------------------------------------------------- + ! CALCULATION OF GRAVITATIONALLY DRIVEN DRAINAGE FROM W(3) : TAKEN + ! AS AN INTEGRAL OF TIME VARYING CONDUCTIVITY. + ! + ! qqq(3) (Q3) : EQUATION (62) , SE-86 + ! + ! QQQ(3) IS AUGMENTED BY A LINEAR LOSS TERM RECOMMENDED BY LISTON (1992) + !----------------------------------------------------------------------- + + DO i = 1,len + POWS = 2.*BEE(i)+2. + qqq(i,3) = TEMW(i,3)**(-POWS) + SATCO(i)/ & + (ZDEPTH(i,3) )* & + SLOPE(i)*POWS*DTT + qqq(i,3) = qqq(i,3) ** ( 1. / POWS ) + qqq(i,3) = - ( 1. / qqq(i,3) - WWW(i,3) ) * & + ZDEPTH(i,3) / DTT + qqq(i,3) = MAX( 0.E0, qqq(i,3) ) + q3o(i) = qqq(i,3) * dtt + qqq(i,3) = MIN( qqq(i,3), WWW(i,3)* & + ZDEPTH(i,3)/DTT ) + + Q3l(i) = 0.002*ZDEPTH(i,3)*0.5 / 86400.* & + MAX(0.E0,(www(i,3)-0.01)/0.99 ) + qqq(i,3) = qqq(i,3) + q3l(i) + q3l(i) = q3l(i) * dtt + + !---------------------------------------------------------------------- + ! CALCULATION OF INTER-LAYER EXCHANGES OF WATER DUE TO GRAVITATION + ! AND HYDRAULIC GRADIENT. THE VALUES OF W(X) + DW(X) ARE USED TO + ! CALCULATE THE POTENTIAL GRADIENTS BETWEEN LAYERS. + ! MODIFIED CALCULATION OF MEAN CONDUCTIVITIES FOLLOWS MILLY AND + ! EAGLESON (1982 ), REDUCES RECHARGE FLUX TO TOP LAYER. + ! + ! DPDW : ESTIMATED DERIVATIVE OF SOIL MOISTURE POTENTIAL + ! WITH RESPECT TO SOIL WETNESS. ASSUMPTION OF + ! GRAVITATIONAL DRAINAGE USED TO ESTIMATE LIKELY + ! MINIMUM WETNESS OVER THE TIME STEP. + ! + ! QQQ (Q ) : EQUATION (61) , SE-86 + ! I,I+1 + ! - + ! AVK (K ) : EQUATION (4.14) , ME-82 + ! I,I+1 + !---------------------------------------------------------------------- + + WMAX = MAX( WWW(i,1), WWW(i,2), WWW(i,3), 0.05E0 ) + WMAX = MIN( WMAX, 1.E0 ) + PMAX = WMAX**(-BEE(i)) + WMIN = (PMAX-2.*poros(i)/( PHSAT(i)* & + (ZDEPTH(i,1)+2.*ZDEPTH(i,2)+ZDEPTH(i,3)))) & + **(-1./BEE(i)) + WMIN = MIN( WWW(i,1), WWW(i,2), WWW(i,3), WMIN ) + WMIN = MAX( WMIN, 0.02E0 ) + PMIN = WMIN**(-BEE(i)) + DPDW(i) = PHSAT(i)*( PMAX-PMIN )/( WMAX-WMIN ) + ENDDO + + DO I = 1,2 + + DO l = 1,len + RSAME = 0. + AVK = TEMWP(l,I)*TEMWPP(l,I) - TEMWP(l,I+1)*TEMWPP(l,I+1) + DIV = TEMWP(l,I+1) - TEMWP(l,I) + IF ( ABS(DIV) .LT. 1.E-6 ) RSAME = 1. + AVK = SATCO(l)*AVK / & + ( ( 1. + 3./BEE(l) ) * DIV + RSAME ) + AVKMIN = SATCO(l) * MIN( TEMWPP(l,I), TEMWPP(l,I+1) ) + AVKMAX = SATCO(l) * MAX( TEMWPP(l,I), TEMWPP(l,I+1) )*1.01 + AVK = MAX( AVK, AVKMIN ) + AVK = MIN( AVK, AVKMAX ) + + ! Collatz-Bounoua change to effective hydraulic conductivity making + ! it 10x harder for water to move up than down if the upper soil layer + ! is wetter than lower soil layer. + !---------------------------------------------------------------------- + IF (www(l,i) .LT. www(l,i+1)) avk = 0.1 * avk ! lahouari + + !---------------------------------------------------------------------- + ! CONDUCTIVITIES AND BASE FLOW REDUCED WHEN TEMPERATURE DROPS BELOW + ! FREEZING. + !---------------------------------------------------------------------- + + TSNOW(l) = MIN ( TF-0.01, TG(l) ) + TGS(l) = TSNOW(l)*AREAS(l) + TG(l)*(1.-AREAS(l)) + TS(l) = TGS(l)*(2-I) + TD(l,ksoil)*(I-1) + PROPS = ( TS(l)-(TF-10.) ) / 10. + PROPS = MAX( 0.05E0, MIN( 1.0E0, PROPS ) ) + AVK = AVK * PROPS + qqq(l,3) = qqq(l,3) * PROPS + + !---------------------------------------------------------------------- + ! BACKWARD IMPLICIT CALCULATION OF FLOWS BETWEEN SOIL LAYERS. + !---------------------------------------------------------------------- + + DPDWDZ = DPDW(l)*2.*poros(l)/ & + ( ZDEPTH(l,I) + ZDEPTH(l,I+1) ) + AAA(l,I) = 1. + AVK*DPDWDZ* & + ( 1./ZDEPTH(l,I)+1./ZDEPTH(l,I+1) ) & + *DTT + BBB(l,I) =-AVK * DPDWDZ * 1./ZDEPTH(l,2)*DTT + CCC(l,I) = AVK * ( DPDWDZ * ( WWW(l,I)-WWW(l,I+1) ) + 1. + & + (I-1)*DPDWDZ*qqq(l,3)*1./ZDEPTH(l,3)* & + DTT ) + ENDDO + ENDDO + + DO i = 1,len + DENOM = ( AAA(i,1)*AAA(i,2) - BBB(i,1)*BBB(i,2) ) + RDENOM = 0. + IF ( ABS(DENOM) .LT. 1.E-6 ) RDENOM = 1. + RDENOM = ( 1.-RDENOM)/( DENOM + RDENOM ) + QQQ(i,1) = ( AAA(i,2)*CCC(i,1) - BBB(i,1)*CCC(i,2) ) * RDENOM + QQQ(i,2) = ( AAA(i,1)*CCC(i,2) - BBB(i,2)*CCC(i,1) ) * RDENOM + + !----------------------------------------------------------------------- + ! UPDATE WETNESS OF EACH SOIL MOISTURE LAYER DUE TO LAYER INTERFLOW + ! AND BASE FLOW. + !----------------------------------------------------------------------- + + WWW(i,3) = WWW(i,3) - qqq(i,3)*DTT/ZDEPTH(i,3) + ROFF(i) = ROFF(i) + qqq(i,3) * DTT + ENDDO + + DO I = 1,2 + + DO l = 1,len + QMAX = WWW(l,I) * & + (ZDEPTH(l,I) /DTT) * 0.5 + QMIN = -WWW(l,I+1) * & + (ZDEPTH(l,I+1)/DTT) * 0.5 + QQQ(l,I) = MIN( QQQ(l,I),QMAX) + QQQ(l,I) = MAX( QQQ(l,I),QMIN) + WWW(l,I) = WWW(l,I) - & + QQQ(l,I)/ZDEPTH(l,I) *DTT + WWW(l,I+1) = WWW(l,I+1) + & + QQQ(l,I)/ZDEPTH(l,I+1)*DTT + ENDDO + ENDDO + + ! do i = 1,len + ! if(www(i,1).le.0.0) + ! print *,'www after updat2 ',i,www(i,1) + ! print*,'XX' ,snoww(i,2) , snoww(i,2) , capac(i,2) + ! enddo + +return +END SUBROUTINE UPDAT2 + +!############################################################################## +Subroutine soiltherm (td,dtd,tgs,dtg,slamda,shcap,ztdep,dt,nsib,len,nsoil) + +implicit none + +! DTD DEEP SOIL TEMPERATURE INCREMENT (K) +! This routine calculates the temperature increments dtd for +! the soil, based on the soil thermodynamic model of Bonan. +! Layer 1 is the deepest layer, layer nsoil is immediately below the surface. +! The time step is crank-nicholson. +! A tridiagonal matrix system is solved. + + ! argument list variables + INTEGER len, nsib, nsoil + REAL & + dtd(len,nsoil), tgs(len), slamda(len,nsoil), & + shcap(len,nsoil), dtg(len), ztdep(len,nsoil), & + td(nsib,nsoil), dt + + ! local variables a(n)*dtd(n-1)+b(n)*dtd(n)+c(n)*dtd(n+1) = r(n) + REAL & + a(len,nsoil) &! lower sub-diagonal + , b(len,nsoil) &! diagonal + , c(len,nsoil) &! upper sib-diagonal + , r(len,nsoil) &! right hand side + , lamtem, rtem , dti, fac + INTEGER i, n + + dti = 1. / dt ! inverse time step + + ! construct matrix + DO n = 1,nsoil + DO i = 1,len + b(i,n) = shcap(i,n) * dti + r(i,n) = 0.0 + ENDDO + ENDDO + DO n = 1,nsoil-1 + DO i = 1,len + lamtem = -0.5 * slamda(i,n) + rtem = slamda(i,n) * (td(i,n+1) - td(i,n)) + a(i,n+1) = lamtem + c(i,n) = lamtem + b(i,n) = b(i,n) - c(i,n) + b(i,n+1) = b(i,n+1) - a(i,n+1) + r(i,n) = r(i,n) + rtem + r(i,n+1) = r(i,n+1) - rtem + ENDDO + ENDDO + DO i = 1,len + r(i,nsoil) = r(i,nsoil) + slamda(i,nsoil) * (tgs(i)+dtg(i) & + - td(i,nsoil)) + ENDDO + + ! eliminate lower diagonal + DO n = 1,nsoil - 1 + DO i = 1,len + fac = a(i,n+1) / b(i,n) + b(i,n+1) = b(i,n+1) - c(i,n) * fac + r(i,n+1) = r(i,n+1) - r(i,n) * fac + ENDDO + ENDDO + ! back-substitution + DO i = 1,len + dtd(i,nsoil) = r(i,nsoil) / b(i,nsoil) + ENDDO + DO n = nsoil-1,1,-1 + DO i = 1,len + dtd(i,n) = (r(i,n) - c(i,n) * dtd(i,n+1)) / b(i,n) + ENDDO + ENDDO + +return +END SUBROUTINE soiltherm + +!############################################################################## +Subroutine addinc (grav2,cp,dtt,hc,hg, & + ps, bps,ecmass,psy,rho, hltm, cas_cap_heat, & + cas_cap_vap, & + egmass,fss,fws,hflux,etmass, & + td,thm,ts,sh,tc,tg,ta,ea,ra,em,sha, & + dtd,dtc,dtg,dta,dea,drst,rst,bintc, len, nsib, nsoil) + +implicit none + + !======================================================================= + ! Add prognostic variable increments to prognostic variables + ! and diagnose evapotranspiration and sensible heat flux. + ! + ! Modified for multitasking - introduced gather/scatter indices + ! - DD 951206 + !======================================================================= + !++++++++++++++++++++++++++++++OUTPUT+++++++++++++++++++++++++++++++++++ + ! + ! TC CANOPY TEMPERATURE (K) + ! TG GROUND SURFACE TEMPERATURE (K) + ! TD DEEP SOIL TEMPERATURE (K) + ! THM MIXED LAYER POTENTIAL TEMPERATURE (K) + ! QM (gsh) MIXED LAYER MIXING RATIO (KG KG-1) + ! ETMASS (FWS) EVAPOTRANSPIRATION (MM) + !pl now FWS mm/s, not mm ! + ! HFLUX (FSS) SENSIBLE HEAT FLUX (W M-2) + ! rst (FSS) STOMATAL RESISTANCE (S M-1) + ! + !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + + INTEGER len, nsib, nsoil + REAL & + grav2,cp,dtt,hc(len),hg(len),bps(len),ecmass(len), & + egmass(len),fss(len),fws(len),ps(len), & + ta(len),ea(len),ra(len),em(len),hflux(len),etmass(len),& + td(nsib,nsoil),thm(len),sh(len),tc(len),tg(len), & + dtd(len,nsoil),dtc(len),dtg(len),DRST(len), & + rst(len),bintc(len),psy(len), rho(len), z1(len),z2(len), & + sha(len),ts(len),dta(len),dea(len) + ! local variables + INTEGER i, n + REAL ten, hltm, cas_cap_heat(len), cas_cap_vap(len) + + ten = 10.0 + + DO I=1,len + ! print*,dtc(i),dtg(i),dta(i),len,tc(i) + + tc(i) = tc(i) + dtc(i) + tg(i) = tg(i) + dtg(i) + ta(i) = ta(i) + dta(i) + ea(i) = ea(i) + dea(i) + + IF(tg(i).LT.0.0 .OR. & + ta(i).LT.0.0 .OR. & + ea(i).LT.0.0 .OR. & + tc(i).LT.0.0)THEN + print*,'BAD Ta OR ea VALUE:' + print*,'SiB point:',i + print*,'ea:',ea(i)-dea(i),dea(i),ea(i) + print*,'Ta:',ta(i)-dta(i),dta(i),ta(i) + print*,'Tg:',tg(i)-dtg(i),dtg(i),tg(i) + print*,'Tc:',tc(i)-dtc(i),dtc(i),tc(i) + print*,' ' + ENDIF + + ! print*,'addinc: new tc,tg,ta,ea=',tc(1),tg(1),ta(1),ea(1) + ! stop + + !Now do the flux from the CAS to the ref level + !vidale et al. (1999) equation ?? + !Here we are using W/m2 + + FSS(i) = rho(i)*cp * (ta(i)-ts(i)) / ra(i) + hflux(i) = fss(i) + + SH(i) = 0.622 / ( ps(i)/em(i) -1.) + SHa(i) = 0.622 / ( ps(i)/ea(i) -1.) + + !This is the latent heat flux from the CAS + !instead of using W/m2 we stick to kg/m^2/s + !the conversion is then done at the output, for + !instance in RAMS module control + !vidale et al. (1999) equation ?? + + !so, here we have want W/m2 + !in the next equation we need to multiply by cpdpsy + + fws(i) = (ea(i) - em(i)) / ra(i) * cp * rho(i) / psy(i) + + !But now let us go back to mm/s (or kg/(m2 s)) for the water flux, + !in order to keep to the (confusing) system we had before + + fws(i) = fws(i) / hltm + etmass(i) = fws(i) + + rst(i) = rst(i) + drst(i) + ! bintc(i)- smallest canopy stomatal conductance needs to be passed in here. + ! ---- c.zhang, 2/3/93 + rst(i)=MIN( 1./bintc(i), rst(i) ) + rst(i)=MAX( ten, rst(i) ) + ENDDO + DO n = 1,nsoil + DO I=1,len + TD(i,n) = TD(i,n) + dtd(i,n) + ENDDO + ENDDO + +return +END SUBROUTINE addinc + +!############################################################################## +Subroutine INTER2 (ppc,ppl,snoww,capac,www & + , pie,satcap,cw,tc,tg,clai,zlt,chil,roff & + , snomel,zdepTH,tm,tf,asnow,csoil,satco,dtt,vcover,roffo & + , zmelt, len, nsib, exo) + +implicit none + + INTEGER len, nsib,l + REAL snoww(nsib,2),capac(nsib,2),satcap(len,2),WWW(len,3), & + ZDEPTH(nsib,3), ppc(len), ppl(len), pie, cw, tc(len), & + tg(len), clai, zlt(len), chil(len), roff(len), snomel, & + tm(len), tf, asnow, csoil(len), satco(len), dtt, & + vcover(len), roffo(len), zmelt(len), exo(len), excess + + !======================================================================= + ! + ! CALCULATION OF INTERCEPTION AND DRAINAGE OF RAINFALL AND SNOW + ! INCORPORATING EFFECTS OF PATCHY SNOW COVER AND TEMPERATURE + ! ADJUSTMENTS. + ! + !---------------------------------------------------------------------- + ! + ! (1) NON-UNIFORM PRECIPITATION + ! CONVECTIVE PPN. IS DESCRIBED BY AREA-INTENSITY + ! RELATIONSHIP :- + ! + ! F(X) = A*EXP(-B*X)+C + ! + ! THROUGHFALL, INTERCEPTION AND INFILTRATION + ! EXCESS ARE PHUNCTIONAL ON THIS RELATIONSHIP + ! AND PROPORTION OF LARGE-SCALE PPN. + ! REFERENCE: SA-89B, APPENDIX. + ! + ! (2) REORGANISATION OF SNOWMELT AND RAIN-FREEZE PROCEDURES. + ! ROUTINE ADJUST + ! + ! (3) ADDITIONAL CALCULATION FOR PARTIAL SNOW-COVER CASE. + ! ROUTINE PATCHS + ! + ! (4) REORGANISATION OF OVERLAND FLOW. + ! REFERENCE: SA-89B, APPENDIX. + ! + ! (5) MODIFIED CALCULATION OF SOIL HEAT CAPACITY AND + ! CONDUCTIVITY. + ! + !======================================================================= + ! 1D MODEL ROUTINE PATCHS INLINED. + !---------------------------------------------------------------------- + + !++++++++++++++++++++++++++++++OUTPUT+++++++++++++++++++++++++++++++++++ + ! + ! ROFF RUNOFF (MM) + ! TC CANOPY TEMPERATURE (K) + ! TG GROUND SURFACE TEMPERATURE (K) + ! WWW(1) GROUND WETNESS OF SURFACE LAYER + ! CAPAC(2) CANOPY/GROUND LIQUID INTERCEPTION STORE (M) + ! SNOWW(2) CANOPY/GROUND SNOW INTERCEPTION STORE (M) + ! + !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + + ! local variables + REAL & + PCOEFS(2,2), bp, totalp, ap(len), cp(len), thru(len), & + fpi(len), realc, realg, xss, xsc, chiv, aa, bb, & + exrain, zload, xs, arg, tex(len), tti(len), snowwp(len), & + capacp(len), spechc(len), pinf(len), ts(len), equdep, & + dcap, tsd, ex, dareas, rhs, areas, snowhc, p0(len) + INTEGER i, iveg + + DATA PCOEFS(1,1)/ 20. /, PCOEFS(1,2)/ .206E-8 /, & + PCOEFS(2,1)/ 0.0001 /, PCOEFS(2,2)/ 0.9999 /, BP /20. / + + !----------------------------------------------------------------------- + ! PREC ( PI-X ) : EQUATION (C.3), SA-89B + !----------------------------------------------------------------------- + + DO i = 1,len + roffo(i) = 0.0 + zmelt(i) = 0.0 + AP(i) = PCOEFS(2,1) + CP(i) = PCOEFS(2,2) + TOTALP = (PPC(i) + PPL(i)) * dtt + IF( SNOWW(i,1) .GT. 0. .OR. SNOWW(i,2) .GT. 0. & + .OR. TM(i) .LT. TF ) PPC(i) = 0. + PPL(i) = TOTALP/dtt - PPC(i) + IF(TOTALP.GE.1.E-8) THEN + AP(i) = PPC(i)*dtt/TOTALP * PCOEFS(1,1) + & + PPL(i)*dtt/TOTALP * PCOEFS(2,1) + CP(i) = PPC(i)*dtt/TOTALP * PCOEFS(1,2) + & + PPL(i)*dtt/TOTALP * PCOEFS(2,2) + ENDIF + + THRU(i) = 0. + FPI(i) = 0. + + !---------------------------------------------------------------------- + ! PRECIP INPUT INTO INTER2 IN M/SEC; TOTALP IS IN METERS + !---------------------------------------------------------------------- + + P0(i) = TOTALP + ENDDO + + DO IVEG = 1,2 + REALC = 2. - IVEG + REALG = IVEG - 1. + + DO i = 1,len + + XSC = MAX(0.E0, CAPAC(i,IVEG) - SATCAP(i,IVEG) ) + CAPAC(i,IVEG) = CAPAC(i,IVEG) - XSC + XSS = MAX(0.E0, SNOWW(i,IVEG) - SATCAP(i,IVEG) ) * REALC + SNOWW(i,IVEG) = SNOWW(i,IVEG) - XSS + ROFF(i) = ROFF(i) + XSC + XSS + + CAPACP(i) = CAPAC(i,IVEG) + SNOWWP(i) = SNOWW(i,IVEG) + + SPECHC(i) = & + MIN( 0.05E0, ( CAPAC(i,IVEG) + SNOWW(i,IVEG) ) ) * CW & + + REALC * ZLT(i) * CLAI + REALG * CSOIL(i) + TS(i) = TC(i) * REALC + TG(i) * REALG + + !---------------------------------------------------------------------- + ! PROPORTIONAL SATURATED AREA (XS) AND LEAF DRAINAGE(TEX) + ! + ! TTI ( D-D ) : EQUATION (C.4), SA-89B + ! XS ( X-S ) : EQUATION (C.7), SA-89B + ! TEX ( D-C ) : EQUATION (C.8), SA-89B + ! + !---------------------------------------------------------------------- + + CHIV = CHIL(i) + IF ( ABS(CHIV) .LE. 0.01 ) CHIV = 0.01 + AA = 0.5 - 0.633 * CHIV - 0.33 * CHIV * CHIV + BB = 0.877 * ( 1. - 2. * AA ) + EXRAIN = AA + BB + + ZLOAD = CAPAC(i,IVEG) + SNOWW(i,IVEG) + FPI(i)=( 1.-EXP( - EXRAIN*ZLT(i)/VCOVER(i) ) )* & + VCOVER(i)*REALC + REALG + TTI(i) = P0(i) * ( 1.-FPI(i) ) + XS = 1. + IF ( P0(i) .GE. 1.E-9 ) THEN + ARG = ( SATCAP(i,IVEG)-ZLOAD )/ & + ( P0(i)*FPI(i)*AP(i) ) -CP(i)/AP(i) + IF ( ARG .GE. 1.E-9 ) THEN + XS = -1./BP * LOG( ARG ) + XS = MIN( XS, 1.E0 ) + XS = MAX( XS, 0.E0 ) + ENDIF + ENDIF + TEX(i) = P0(i)*FPI(i) * & + ( AP(i)/BP*( 1.- EXP( -BP*XS )) + CP(i)*XS ) - & + ( SATCAP(i,IVEG) - ZLOAD ) * XS + TEX(i) = MAX( TEX(i), 0.E0 ) + ENDDO + + !------------------------------------------------------------- + ! TOTAL THROUGHFALL (THRU) AND STORE AUGMENTATION + !----------------------------------------------------------- + + IF ( IVEG .EQ. 1 ) THEN + + !INLINE + DO i = 1,len + thru(i) = TTI(i) + TEX(i) + PINF(i) = P0(i) - THRU(i) + IF( TM(i).GT.TF ) THEN + CAPAC(i,IVEG) = CAPAC(i,IVEG) + PINF(i) + ELSE + SNOWW(i,IVEG) = SNOWW(i,IVEG) + PINF(i) + ENDIF + + CALL ADJUST (Tc(i), SPECHC(i), CAPACP(i), SNOWWP(i), & + IVEG, capac(i,1), snoww(i,1), tm(i), tf, & + snomel, www(i,1), zdepth(i,1), & + satcap(i,1), cw, nsib, len ) + + P0(i) = THRU(i) + ENDDO + + ELSE + + !INLINE + DO i = 1,len + IF ( TG(i) .GT. TF .AND. SNOWW(i,2) .GT. 0. ) THEN + + !============================================================= + !------------------PATCHS INLINED----------------------------- + !============================================================= + ! + !CALCULATION OF EFFECT OF INTERCEPTED SNOW AND RAINFALL ON GROUND + !PATCHY SNOWCOVER SITUATION INVOLVES COMPLEX TREATMENT TO KEEP + !ENERGY CONSERVED. + ! + !============================================================== + !MARGINAL SITUATION: SNOW EXISTS IN PATCHES AT TEMPERATURE TF + !WITH REMAINING AREA AT TEMPERATURE TG > TF. + !-------------------------------------------------------------- + + PINF(i) = P0(i) + THRU(i) = 0. + SNOWHC = MIN( 0.05E0, SNOWW(i,2) ) * CW + areas = MIN( 1.E0,(ASNOW*SNOWW(i,2)) ) + IF( TM(i) .LE. TF ) THEN + !----------------------------------------------------------- + ! SNOW FALLING ONTO AREA + !--------------------------------------------------------- + RHS = TM(i)*PINF(i)*CW + TF*(SNOWHC + & + CSOIL(i)*areas) & + + TG(i)*CSOIL(i)*(1.-areas) + DAREAS = MIN( ASNOW*PINF(i), ( 1.-areas ) ) + EX = RHS - TF*PINF(i)*CW - & + TF*(SNOWHC + CSOIL(i)*(areas + DAREAS)) & + - TG(i)*CSOIL(i)*(1.-areas-DAREAS) + IF( (areas+DAREAS) .GE. 0.999 ) & + TG(i) = TF - 0.01 + IF( EX .GE. 0. ) THEN + !---------------------------------------------------------- + !EXCESS ENERGY IS POSITIVE, SOME SNOW MELTS AND INFILTRATES + !---------------------------------------------------------- + ZMELT(i) = EX/SNOMEL + IF( ASNOW*(SNOWW(i,2) + PINF(i) - ZMELT(i)) & + .LE. 1. ) THEN + ZMELT(i) = 0. + IF( ASNOW*(SNOWW(i,2) + PINF(i)) .GE. 1. ) & + ZMELT(i) = ( ASNOW*(SNOWW(i,2) + & + PINF(i)) - 1. ) / ASNOW + ZMELT(i) = ( EX - ZMELT(i)*SNOMEL )/ & + ( SNOMEL + ASNOW*CSOIL(i)* & + (TG(i)-TF) ) + ZMELT(i) + ENDIF + SNOWW(i,2) = SNOWW(i,2) + PINF(i) - ZMELT(i) + WWW(i,1) = WWW(i,1) + ZMELT(i)/ZDEPTH(i,1) + ELSE + !---------------------------------------------------------- + !EXCESS ENERGY IS NEGATIVE, + !BARE GROUND COOLS TO TF, THEN WHOLE + !AREA COOLS TOGETHER TO LOWER TEMPERATURE. + !---------------------------------------------------------- + TSD = 0. + IF( (areas+DAREAS) .LE. 0.999 ) & + TSD = EX/(CSOIL(i)*( 1.-areas-DAREAS)) & + + TG(i) + IF( TSD .LE. TF ) & + TSD = TF + ( EX - (TF-TG(i))* & + CSOIL(i)*(1.-areas-DAREAS) ) & + /(SNOWHC+PINF(i)*CW+CSOIL(i)) + TG(i) = TSD + SNOWW(i,2) = SNOWW(i,2) + PINF(i) + ENDIF + ELSE + !------------------------------------------------------------- + ! RAIN FALLING ONTO AREA + !------------------------------------------------------------- + !------------------------------------------------------------- + ! RAIN FALLS ONTO SNOW-FREE SECTOR FIRST. + !------------------------------------------------------------- + TSD = TF - 0.01 + IF ( areas .LT. 0.999 ) TSD = & + ( TM(i)*PINF(i)*CW + & + TG(i)*CSOIL(i) ) & + / ( PINF(i)*CW + CSOIL(i) ) + TG(i) = TSD + WWW(i,1)= WWW(i,1)+PINF(i)*(1.-areas)/ & + ZDEPTH(i,1) + !------------------------------------------------------------- + ! RAIN FALLS ONTO SNOW-COVERED SECTOR NEXT. + !------------------------------------------------------------- + EX = ( TM(i) - TF )*PINF(i)*CW*areas + DCAP = -EX / ( SNOMEL + ( TG(i)-TF )* & + CSOIL(i)*ASNOW ) + IF( (SNOWW(i,2) + DCAP) .GE. 0. ) THEN + WWW(i,1) = WWW(i,1)+(PINF(i)*areas-DCAP)/ & + ZDEPTH(i,1) + SNOWW(i,2) = SNOWW(i,2) + DCAP + ELSE + TG(i) = ( EX - SNOMEL*SNOWW(i,2) - & + ( TG(i)-TF )*CSOIL(i)*areas ) / & + CSOIL(i) + TG(i) + WWW(i,1)=WWW(i,1)+(SNOWW(i,2)+PINF(i)* & + areas)/zdepth(i,1) + CAPAC(i,2) = 0. + SNOWW(i,2) = 0. + ENDIF + + ENDIF + ! + !---------------------------------------------------------------- + !---------------------END OF PATCHS ----------------------------- + !---------------------------------------------------------------- + + ELSE + + THRU(i) = TTI(i) + TEX(i) + IF ( TG(i) .LE. TF .OR. TM(i) .LE. TF ) & + THRU(i) = 0. + PINF(i) = P0(i) - THRU(i) + IF( TM(i) .GT. TF )THEN + CAPAC(i,IVEG) = CAPAC(i,IVEG) + PINF(i) + + !------------------------------------------------------------- + ! + ! INSTANTANEOUS OVERLAND FLOW CONTRIBUTION ( ROFF ) + ! + ! ROFF( R-I ) : EQUATION (C.13), SA-89B + ! + !------------------------------------------------------------- + + EQUDEP = SATCO(i) * DTT + + XS = 1. + IF ( THRU(i) .GE. 1.E-9 ) THEN + ARG = EQUDEP / ( THRU(i) * AP(i) ) -CP(i)/AP(i) + IF ( ARG .GE. 1.E-9 ) THEN + XS = -1./BP * LOG( ARG ) + XS = MIN( XS, 1.E0 ) + XS = MAX( XS, 0.E0 ) + ENDIF + ENDIF + ROFFO(i) = THRU(i) * ( AP(i)/BP * & + ( 1.-EXP( -BP*XS )) + CP(i)*XS ) -EQUDEP*XS + ROFFO(i) = MAX ( ROFFO(i), 0.E0 ) + ROFF(i) = ROFF(i) + ROFFO(i) + WWW(i,1) = WWW(i,1) + & + (THRU(i) - ROFFO(i)) / ZDEPTH(i,1) + ELSE + SNOWW(i,IVEG) = SNOWW(i,IVEG) + PINF(i) + ENDIF + + CALL ADJUST ( Tg(i), SPECHC(i), CAPACP(i), SNOWWP(i), & + IVEG, capac(i,1), snoww(i,1), tm(i), tf, & + snomel, www(i,1), zdepth(i,1), & + satcap(i,1), cw, nsib, len ) + + ENDIF + ENDDO + ENDIF ! if(iveg.eq.1) + + ! make either all capac or all snow + + DO i = 1,len + IF(capac(i,iveg).GT.snoww(i,iveg)) THEN + capac(i,iveg) = capac(i,iveg) + snoww(i,iveg) + snoww(i,iveg) = 0.0 + ELSE + snoww(i,iveg) = snoww(i,iveg) + capac(i,iveg) + capac(i,iveg) = 0.0 + ENDIF + ENDDO + + ENDDO + + DO i = 1,len + exo(i) = 0.0 + ENDDO + DO I = 1,3 + DO l = 1,len + EXCESS = MAX(0.E0,(WWW(l,I) - 1.)) + WWW(l,I) = WWW(l,I) - EXCESS + exo(l) = exo(l) + EXCESS * ZDEPTH(l,I) + + ! Collatz-Bounoua put excess water into runoff according to + ! original sib2 offline code . + + roff(l) = roff(l) + EXCESS * ZDEPTH(l,I) ! lahouari + ENDDO + + ENDDO + +return +END SUBROUTINE INTER2 + +!############################################################################## +Subroutine ADJUST ( TS, SPECHC, CAPACP, SNOWWP, IVEG & + , capac,snoww,tm,tf,snomel,www,zdepth & + , satcap,cw,nsib, len) + +implicit none + + INTEGER len, nsib, iveg + REAL & + capac(nsib,2),snoww(nsib,2),www,zdepth,satcap(len,2), & + ts, spechc, capacp, snowwp, tm, tf, snomel, & + cw + + !======================================================================= + ! + ! TEMPERATURE CHANGE DUE TO ADDITION OF PRECIPITATION + ! + !======================================================================= + ! + !++++++++++++++++++++++++++++++OUTPUT+++++++++++++++++++++++++++++++++++ + ! + ! TC CANOPY TEMPERATURE (K) + ! WWW(1) GROUND WETNESS OF SURFACE LAYER + ! CAPAC(2) CANOPY/GROUND LIQUID INTERCEPTION STORE (M) + ! SNOWW(2) CANOPY/GROUND SNOW INTERCEPTION STORE (M) + ! + !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + + ! local variables + REAL & + freeze, diff, ccp, cct, tsd, tta, ttb, cca, ccb, ccc, xs + FREEZE = 0. + DIFF = ( CAPAC(1,IVEG)+SNOWW(1,IVEG) - CAPACP-SNOWWP )*CW + + DIFF=MAX(DIFF,0.) + + CCP = SPECHC + CCT = SPECHC + DIFF + + TSD = ( TS * CCP + TM * DIFF ) / CCT + + IF ( ( TS .GT. TF .AND. TM .LE. TF ) .OR. & + ( TS .LE. TF .AND. TM .GT. TF ) )THEN + + TTA = TS + TTB = TM + CCA = CCP + CCB = DIFF + IF ( TSD .LE. TF ) THEN + + !---------------------------------------------------------------------- + ! FREEZING OF WATER ON CANOPY OR GROUND + !---------------------------------------------------------------------- + + CCC = CAPACP * SNOMEL + IF ( TS .LT. TM ) CCC = DIFF * SNOMEL / CW + TSD = ( TTA * CCA + TTB * CCB + CCC ) / CCT + + FREEZE = ( TF * CCT - ( TTA * CCA + TTB * CCB ) ) + FREEZE = (MIN ( CCC, FREEZE )) / SNOMEL + IF(TSD .GT. TF)TSD = TF - 0.01 + + ELSE + + !---------------------------------------------------------------------- + ! MELTING OF SNOW ON CANOPY OR GROUND, WATER INFILTRATES. + !---------------------------------------------------------------------- + + CCC = - SNOWW(1,IVEG) * SNOMEL + IF ( TS .GT. TM ) CCC = - DIFF * SNOMEL / CW + ! + TSD = ( TTA * CCA + TTB * CCB + CCC ) / CCT + ! + FREEZE = ( TF * CCT - ( TTA * CCA + TTB * CCB ) ) + FREEZE = (MAX( CCC, FREEZE )) / SNOMEL + IF(TSD .LE. TF)TSD = TF - 0.01 + ! + ENDIF + ENDIF + SNOWW(1,IVEG) = SNOWW(1,IVEG) + FREEZE + CAPAC(1,IVEG) = CAPAC(1,IVEG) - FREEZE + snoww(1,IVEG) = MAX(snoww(1,IVEG),0.0E0) + capac(1,IVEG) = MAX(capac(1,IVEG),0.0E0) + + XS = MAX( 0.E0, ( CAPAC(1,IVEG) - SATCAP(1,IVEG) ) ) + IF( SNOWW(1,IVEG) .GE. 0.0000001 ) XS = CAPAC(1,IVEG) + WWW = WWW + XS / ZDEPTH + CAPAC(1,IVEG) = CAPAC(1,IVEG) - XS + TS = TSD + +return +END SUBROUTINE ADJUST + +!############################################################################## +Subroutine balan ( IPLACE, tau, zdepth, www & + , capac, ppc & + , ppl, roff, etmass, totwb, radt & + , chf, shf, dtt, ect, eci, egs, egi & + , hc, hg, heaten, hflux, snoww, thm, tc, tg, tgs, td, ps, kapa & + , len, ioffset, nsoil ) + +implicit none + + INTEGER len, iplace, nsoil + INTEGER ioffset + REAL & + www(len,3),capac(len,2),zdepth(len,3),radt(len,2), & + snoww(len,2), kapa, tau, ppc(len), ppl(len) & + , roff(len), etmass(len), totwb(len), chf(len), shf(len) & + , dtt, ect(len), eci(len), egs(len), egi(len), hc(len) & + , hg(len), heaten(len), hflux(len), thm(len), tc(len) & + , tg(len), tgs(len), td(len, nsoil), ps(len) + + ! local variables + INTEGER i, j, igp, jgp, nerror, indxerr(len), n + REAL & + endwb(len), errorw(len), pcmeter(len), plmeter(len) & + , emeter(len), cbal(len), gbal(len), errore(len) & + , zlhs(len), zrhs(len), tm + !======================================================================= + ! + ! ENERGY AND WATER BALANCE CHECK. + ! + !----------------------------------------------------------------------- + IF( IPLACE .EQ. 1 ) THEN + + DO i = 1,len + ETMASS(i) = 0. + ROFF(i) = 0. + + TOTWB(i) = WWW(i,1) * ZDEPTH(i,1) & + + WWW(i,2) * ZDEPTH(i,2) & + + WWW(i,3) * ZDEPTH(i,3) & + + CAPAC(i,1) + CAPAC(i,2) + snoww(i,1) + snoww(i,2) + ENDDO + + ELSE + + nerror = 0 + DO i = 1,len + ENDWB(i) = WWW(i,1) * ZDEPTH(i,1) & + + WWW(i,2) * ZDEPTH(i,2) & + + WWW(i,3) * ZDEPTH(i,3) & + + CAPAC(i,1) + CAPAC(i,2) + snoww(i,1) + snoww(i,2) & + - (PPL(i)+PPC(i))*0.001*dtt & + + ETMASS(i)*0.001 + ROFF(i) + ERRORW(i)= TOTWB(i) - ENDWB(i) + pcmeter(i) = ppc(i) * 0.001*dtt + plmeter(i) = ppl(i) * 0.001*dtt + EMETER(i)= ETMASS(i) * 0.001 + !itb...trying a different error check, 1.e-6 is in the + !itb...noise in 32-bit arithmetic, works fine in 64-bit + ! if(abs(errorw(i)).gt.1.e-6) then + IF(ABS(errorw(i)).GT.1.e-5*totwb(i))THEN + nerror = nerror + 1 + indxerr(nerror) = i + ENDIF + ENDDO + + DO j = 1,nerror + i = indxerr(j) + igp = i+ioffset + WRITE(6,900) tau,IGP, TOTWB(i), ENDWB(i), ERRORW(i), & + WWW(i,1), WWW(i,2), WWW(i,3), & + CAPAC(i,1), CAPAC(i,2),snoww(i,1),snoww(i,2), & + pcmeter(i),plmeter(i), EMETER(i), ROFF(i) + ENDDO + + nerror = 0 + DO i = 1,len + CBAL(i) = RADT(i,1) - CHF(i) - & + (ECT(i)+HC(i)+ECI(i) )/DTT + GBAL(i) = RADT(i,2) - SHF(i) - (EGS(i)+HG(i)+EGI(i) & + - HEATEN(i) )/DTT + ZLHS(i) = RADT(i,1)+RADT(i,2) - CHF(i) - SHF(i) + ZRHS(i) = HFLUX(i) + (ECT(i) + ECI(i) + EGI(i) + EGS(i) & + + HEATEN(i) ) /DTT + + ERRORE(i)= ZLHS(i) - ZRHS(i) + IF(ABS(errore(i)).GT.1.0) THEN + nerror = nerror + 1 + indxerr(nerror) = i + ENDIF + ENDDO + + DO j = 1,nerror + i = indxerr(j) + tm = thm(i) * (0.001*ps(i))**kapa + igp = i+ioffset + WRITE(6,910) tau,IGP, ZLHS(i), ZRHS(i), & + RADT(i,1), RADT(i,2),CHF(i), SHF(i), & + HFLUX(i), ECT(i), ECI(i), EGI(i), EGS(i), & + tm,tc(i),tg(i),tgs(i) + WRITE(6,911)(td(i,n),n=nsoil,1,-1) + WRITE(6,912) HC(i), HG(i), HEATEN(i), CBAL(i), GBAL(i) + WRITE(6,901) TOTWB(i), ENDWB(i), ERRORW(i), & + WWW(i,1), WWW(i,2), WWW(i,3), & + CAPAC(i,1), CAPAC(i,2),snoww(i,1),snoww(i,2), & + pcmeter(i),plmeter(i), EMETER(i), ROFF(i) + ENDDO + ENDIF + +900 FORMAT(//,10X,'** WARNING: WATER BALANCE VIOLATION ** ',//, & + /,1X,'TAU ', F10.2,' AT SIB POINT (I) = ',I5, & + /,1X,'BEGIN, END, DIFF ', 2(F10.7,1X),g13.5, & + /,1X,'WWW1-3 ', 3(F10.7,1X), & + /,1X,'CAPAC1-2,snow 1-2 ', 4(g13.5,1X), & + /,1X,'PPc,PPl, ET, ROFF ', 4(g13.5,1X) ) +910 FORMAT(//,10X,'** WARNING: ENERGY BALANCE VIOLATION **',//, & + /,1X,'TAU ', F10.2,' AT SIB POINT (I) = ',I5, & + /,1X,'RHS, LHS ', 2G13.5, & + /,1X,'RN1, RN2, CHF, SHF, H ', 5G13.5, & + /,1X,'ECT, ECI, EGI, EGS ', 4G13.5, & + /,1X,'TM, TC, TG, TGS ', 4G13.5, & + /,1X,'HC HG ', G12.5, 12X, G12.5, & + /,1X,'HEATEN, C-BAL, G-BAL ', 3G13.5 ) +911 FORMAT(1x,'TD ', 5G13.5) +912 FORMAT(1X,'HC HG ', G12.5, 12X, G12.5, & + /,1X,'HEATEN, C-BAL, G-BAL ', 3G13.5 ) +901 FORMAT(10X,'WATER BALANCE' & + /,1X,'BEGIN, END ', 2(F10.7,1X), & + /,1X,'ERRORW ', 1(g13.5,1X), & + /,1X,'WWW1-3 ', 3(F10.7,1X), & + /,1X,'CAPAC1-2,snow 1-2 ', 4(g13.5,1X), & + /,1X,'PPc,PPl, ET, ROFF ', 4(g13.5,1X) ) + +return +END SUBROUTINE balan + +!############################################################################## +Subroutine RBRD (tc,rbc,zlt,z2,u2,rd,rb,ta,g,rdc,tgs,len) + +implicit none + + !======================================================================== + ! CALCULATION OF RB AND RD AS FUNCS OF U2 AND TEMPERATURES + !======================================================================== + !++++++++++++++++++++++++++++++OUTPUT+++++++++++++++++++++++++++++++++++ + ! + ! RB (GRB) CANOPY TO CAS AERODYNAMIC RESISTANCE (S M-1) + ! RD (GRD) GROUND TO CAS AERODYNAMIC RESISTANCE (S M-1) + ! TA (GTA) CAS TEMPERATURE (K) + ! + !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + + INTEGER len + REAL tc(len),rbc(len),zlt(len), & + z2(len),u2(len),rd(len),rb(len), & + ta(len),rdc(len),tgs(len), & + temdif(len), g + INTEGER i + REAL fac, fih, d1(len) + + !----------------------------------------------------------------------- + ! RB (RB) : EQUATION (A9), SE-86 + !----------------------------------------------------------------------- + + DO i = 1,len ! loop over gridpoint + TEMDIF(i) = MAX( 0.1E0, TC(i)-TA(i) ) + FAC = ZLT(i)/890.* (TEMDIF(i)*20.0)**0.25 + RB(i) = 1.0/(SQRT(U2(i))/RBC(i)+FAC) + + !----------------------------------------------------------------------- + ! RD (RD) : EQUATION (A15), SE-86 + !----------------------------------------------------------------------- + + TEMDIF(i) = MAX( 0.1E0, TGs(i)-TA(i) ) + FIH = SQRT( 1.+9.*G*TEMDIF(i)*Z2(i)/(TGS(i)*U2(i)*U2(i)) ) + RD(i) = RDC(i) / (U2(i) * FIH) + + ENDDO + +return +END SUBROUTINE RBRD diff --git a/src/6.2.16/sib/sib2_init.f90 b/src/6.2.16/sib/sib2_init.f90 new file mode 100644 index 0000000..c4f492e --- /dev/null +++ b/src/6.2.16/sib/sib2_init.f90 @@ -0,0 +1,94 @@ +!############################################################################## +Subroutine init_sib1 (n1,n2,n3,rco2p,ifm) + +use mem_sib +use mem_grid, only:zt,print_msg + +implicit none + +integer :: n1,n2,n3,i,j,k,ip,ifm +real, dimension(n1,n2,n3) :: rco2p +real :: f + +!This is the conversion factor to translate CO2 from (ppm) to +!a CO2 mixing ratio that RAMS can advect as a conserved quantity. +!CO2 molar mass = 44g/mol, AIR molar mass = 29g/mol +!Multiply CO2 ppm by 44/29/1.e6 to get the mass fraction which is +!the same as mixing ratio units need by RAMS for conservative advection. +data f /1.51724e-6/ ! 1.51724e-6= 44/29/1.e6 + +!Initialization notes: +! 1. SiB needs initial stomatal resistance (rst). LEAF3 provides this. +! 2. SiB/RAMS needs initial CO2 profile +! (RAMS-rco2p in mass fraction, SiB-atm_co2_ppm in ppm) + +!Set CO2 initial profile +co2_init(1) = max(0., co2_init(1)) +do k = 2,n1 + if(co2_init(k) <= 0.) co2_init(k) = co2_init(k-1) +enddo + +if(print_msg)then + do k = 1,n1 + print*,'CO2-init on grid:',ifm,k,zt(k),co2_init(k) + enddo +endif + +!Store CO2 in sib tracer in mixing ratio units rather than ppm. +do j = 1,n3 + do i = 1,n2 + do k = 2,n1 + rco2p(k,i,j) = f * co2_init(k-1) + enddo + rco2p(1,i,j) = rco2p(2,i,j) !Copy model level 2 data to level 1. + enddo +enddo + +return +END SUBROUTINE init_sib1 + +!############################################################################## +Subroutine init_sib2 (n1,n2,n3,np,rco2p,pco2ap,pi0,pp) + +use mem_sib +use rconstants + +implicit none + +integer :: n1,n2,n3,np,i,j,k,ip +real, dimension(n1,n2,n3) :: pi0,pp,rco2p +real, dimension(n2,n3,np) :: pco2ap +real :: pis2,hcpi,prss,f + +!This is the conversion factor to translate CO2 from (ppm) to +!a CO2 mixing ratio that RAMS can advect as a conserved quantity. +!CO2 molar mass = 44g/mol, AIR molar mass = 29g/mol +!Multiply CO2 ppm by 44/29/1.e6 to get the mass fraction which is +!the same as mixing ratio units need by RAMS for conservative advection. +data f /1.51724e-6/ ! 1.51724e-6= 44/29/1.e6 + +!Initialize pco2ap (canopy air space pCO2, Pascals) + +!Ppm in a gas is normally expressed on a mole fraction basis, so 385 +!ppm of CO2 (in the atmosphere) is also 385 µmol/mol. By Dalton's law +!of partial pressure, the partial pressure of CO2 to total pressure +!will be in the same ratio. "Real" atmospheric pressure varies with +!altitude above sea level, and day-to-day with the weather; however, +!"standard" atmospheric pressure is 101325 Pa. +!For example, the partial pressure of CO2 is: +!385 µmol/mol x 1.e-6(unit conversion to get mol/mol) x 101325 Pa = 39 Pa, +!(at least on a day when real and standard pressure are the same value). + +hcpi = .5 * cpi +do j = 1,n3 + do i = 1,n2 + pis2 = (pp(1,i,j) + pi0(1,i,j) + pp(2,i,j) + pi0(2,i,j)) * hcpi + prss = pis2 ** cpor * p00 !air pressure (Pa) + do ip = 2,np !Only done for land patches + pco2ap(i,j,ip) = rco2p(1,i,j) / f * 1.e-6 * prss + enddo + enddo +enddo + +return +END SUBROUTINE init_sib2 diff --git a/src/6.2.16/surface/leaf3_canopy.f90 b/src/6.2.16/surface/leaf3_canopy.f90 new file mode 100644 index 0000000..b4c2eba --- /dev/null +++ b/src/6.2.16/surface/leaf3_canopy.f90 @@ -0,0 +1,236 @@ +!############################################################################## +Subroutine canopy (mzg,mzs,ksn,nveg & + ,soil_water,soil_text,sfcwater_mass & + ,ustar,tstar,rstar,soil_rough,veg_rough,veg_height & + ,veg_lai,veg_tai,veg_water,veg_temp,leaf_class & + ,stom_resist,can_temp,can_rvap,ground_rsat,ground_rvap,rshort) + +use leaf_coms +use rconstants + +implicit none + +integer :: mzg,mzs,ksn,nveg + +real, dimension(mzg) :: soil_water,soil_text +real, dimension(mzs) :: sfcwater_mass +real :: ustar,tstar,rstar,soil_rough,veg_rough,veg_height & + ,veg_lai,veg_tai,veg_water,veg_temp,leaf_class & + ,stom_resist,can_temp,can_rvap,ground_rsat,ground_rvap,rshort + +integer :: k,nsoil,iter_can + +real :: aux,brad,bswp,bthi,btlo,bvpd,c2,c3,c4,es,fac,factv & + ,fracliqv,fthi,ftlo,frad,fswp,fvpd,qwtot,rasgnd,rasveg,rleaf,rsatveg & + ,sigmaw ,slai,stai,slpotv,srad,sswp,sthi,stlo,svpd,swp,tveg,tvegc,tvegk & + ,vpd,wtemp,zognd,zoveg,zdisp,zveg,wflx,dewgndflx,ustar0 & + ,transp_test,rc,rc_inf,wshed0,transp0 +real, external :: eslf +! Note: c1=261.5*sqrt((1.-exp(-2.*exar))/(2.*exar)) +! from Lee's dissertation, Eq. 3.36. The factor of 261.5 is +! 100 * ln((h-d)/zo) / vonk where d = .63 * h and zo = .13 * h. +! The factor of 100 is 1/L in Eq. 3.37. Thus, c1 * ustar is the +! total expression inside the radical in Eq. 3.37. +!bob parameter(exar=3.5,covr=2.16,c1=98.8) +real, parameter :: exar=2.5,covr=2.16,c1=116.6 + +data brad, srad/ 196., 0.047/, & + btlo, stlo/ 281.5, 0.26/, & + bthi, sthi/ 310.1, -0.124/, & + bvpd, svpd/ 4850.0, -0.0051/, & + bswp, sswp/ -1.07e6, 7.42e-6/ +! save + +! Compute ground-canopy resistance rd. Assume zognd not affected by snow. +! Assume (zoveg,zdisp) decrease linearly with snow depth, attaining +! the values (zognd,0) when veg covered. + +zognd = soil_rough +zoveg = veg_rough * (1.-snowfac) + zognd * snowfac +zdisp = veg_height * (1.-snowfac) +zveg = zdisp / 0.63 +!bob rasgnd = log(zts/zognd)*log((zdisp+zoveg)/zognd)/(vonk*vonk*vels) + +! The following value of ground-canopy resistance for the +! nonvegetated (bare soil or water) surface is from John Garratt. +! It is 5/ustar and replaces the one from old leaf. + +rasgnd = 5. / ustar + +if (veg_tai >= .1 .and. snowfac < .9) then + +! If vegetation is sufficiently abundant and not covered by snow, compute +! heat and moisture fluxes from vegetation to canopy, and flux resistance +! from soil or snow to canopy. + + factv = log(zts / zoveg) / (vonk * vonk * vels) + aux = exp(exar * (1. - (zdisp + zoveg) / zveg)) + rasveg = factv * zveg / (exar * (zveg - zdisp)) * (exp(exar) - aux) + c2 = max(0.,min(1., 1.1 * veg_tai / covr)) + rd = rasgnd * (1. - c2) + rasveg * c2 + wshed = 0. + qwshed = 0. + transp = 0. + +else + +! If the TAI is very small or if snow mostly covers the vegetation, bypass +! vegetation computations. Set heat and moisture flux resistance rd between +! the "canopy" and snow or soil surface to its bare soil value. Set shed +! precipitation heat and moisture to unintercepted values. + + wshed = pcpgl + qwshed = qpcpgl + transp = 0. + rd = rasgnd + +endif + +! Compute sensible heat and moisture fluxes between top soil or snow surface +! and canopy air. wflxgc [kg/m2/s] is the upward vapor flux from soil or snow +! evaporation and dewgnd is the mass of dew that forms on the snow/soil +! surface this timestep; both are defined as always positive or zero. + +hflxgc = cp * dens * (tempk(mzg+ksn) - can_temp) / rd +wflx = dens * (ground_rsat - can_rvap) / rd +dewgndflx = max(0.,-wflx) +dewgnd = dewgndflx * dtll +if (ksn == 0) then + wflxgc = max(0.,dens * (ground_rvap - can_rvap) / rd) +else + wflxgc = max(0.,min(wflx,sfcwater_mass(ksn)/dtll)) +endif + +if (veg_tai >= .1 .and. snowfac < .9) then + +! If vegetation is sufficiently abundant and not covered by snow, compute +! heat and moisture fluxes from vegetation to canopy, and flux resistance +! from soil or snow to canopy. + +! Compute veg-canopy resistance rb. Note that rb and rc are both defined +! WITHOUT the LAI factor; the LAI factor is included later in computing +! fluxes that involve rb and/or rc. + + ustar0 = max(.1,ustar) + c4 = .01 * sqrt(ustar0 * c1) + + rb = (1. + .5 * veg_tai) / (.01 * sqrt(ustar0 * c1)) + +! Soil water potential factor for stomatal control + + swp = -200.0 + nveg = nint(leaf_class) + + do k = kroot(nveg),mzg + nsoil = nint(soil_text(k)) + slpotv = slpots(nsoil) * (slmsts(nsoil) / soil_water(k)) ** slbs(nsoil) + if (slpotv > swp) swp = slpotv + enddo + swp = swp * 9810. + +! Begin canopy time-split iterations + + do iter_can = 1,niter_can + +! Calculate the saturation vapor pressure at TVEG + + tveg = veg_temp + tvegc = tveg - 273.15 + es = eslf(tvegc) + rsatveg = .622 * es / (prss - es) + +! Compute mixing ratio at leaf surface using previous rc + + rc = stom_resist + rleaf = (rb * rsatveg + rc * can_rvap) / (rb + rc) + vpd = max((es - rleaf * prss / (.622 + rleaf)),0.) + +! Evaluate 5 environmental factors and new rc + + ftlo = 1. + exp(-stlo * (tveg - btlo)) + fthi = 1. + exp(-sthi * (tveg - bthi)) + frad = 1. + exp(-srad * (rshort - brad)) + fswp = 1. + exp(-sswp * (swp - bswp)) + fvpd = 1. + exp(-svpd * (vpd - bvpd)) + +! 15-minute response time for stomatal conductance (must have dtlc <= 900.) + + rc_inf = ftlo * fthi * frad * fvpd * fswp * rcmin(nveg) + rc = 1. / (1. / rc + .0011 * dtlc * (1. / rc_inf - 1. / rc)) + +! Limit maximum transpiration to be <= 400 w m-2 by increasing rc if necessary. + + transp_test = alvl * dens * veg_lai * (rsatveg - can_rvap) / (rb + rc) + if (transp_test > 400.) then + rc = (rb + rc) * transp_test * .0025 - rb + endif + + stom_resist = rc + +! Flux of heat and moisture from vegetation to canopy + + stai = veg_tai * (1. - snowfac) + slai = veg_lai * (1. - snowfac) + + hflxvc = 2. * stai * cp * dens * (tveg - can_temp) / rb + c3 = dens * (rsatveg - can_rvap) + if (c3 >= 0.) then + sigmaw = min(1.,(veg_water / (.2 * stai)) ** .66667) + wflxvc = min(c3 * 2. * stai * sigmaw / rb,veg_water/dtlc) + transp0 = max(0.,c3 * slai * (1.-sigmaw) / (rb + rc)) + else + wflxvc = c3 * 2. * stai / rb + transp0 = 0. + endif + +! Update vegetation moisture from precipitation, vapor flux with canopy, +! and shedding of excess moisture. + + wtemp = veg_water - wflxvc * dtlc + pcpgc * vf + wshed0 = max(0.,wtemp - 0.2 * stai) + wshed = wshed + wshed0 + transp = transp + transp0 + veg_water = max(0.,wtemp - wshed0) + +! Update vegetation temperature from radiative fluxes and sensible and +! latent heat transfer with canopy air. Heat capacity of the vegetation +! is defined as hcapveg; it requires further testing and needs to be +! increased for dense vegetation. A value of hcapveg of 3.e4 corresponds +! to the heat capacity of a layer of water 7.5 mm thick. + + tvegc = veg_temp - 273.15 + dtlcohcv & + * (rshort_v + rlonga_v + rlonggs_v - rlongv_gs & + - rlongv_a - hflxvc - (wflxvc + transp0) * alvl) + +! Exchange heat between vegetation and precipitation in implicit scheme + + qwtot = qpcpgc * vf + hcapveg * tvegc + CALL qwtk (qwtot,pcpgc * vf,hcapveg,tvegk,fracliqv) + veg_temp = tvegk + fac = 4186. + if (fracliqv <= .0001) fac = 2093. + qwshed = qwshed + (fac * (tvegk - 273.15) + fracliqv * 334000.) * wshed0 + +! Update temperature and moisture of canopy. hcapcan [J/m2/K] and +! wcapcan [kg_air/m2] are +! the heat and moisture capacities of the canopy, while c2 and c3 are deltat +! times their inverses, respectively. They require further testing. + + can_temp = can_temp + dtlcohcc * (hflxgc + hflxvc & + + dens * cp * ustar * tstar * pis) + + can_rvap = can_rvap + dtlcowcc * (wflxgc - dewgndflx + wflxvc & + + transp0 + dens * ustar * rstar) + + enddo + +else + + can_temp = can_temp + dtllohcc * (hflxgc + dens * cp * ustar * tstar * pis) + can_rvap = can_rvap + dtllowcc * (wflxgc - dewgndflx + dens * ustar * rstar) + +endif + +return +END SUBROUTINE canopy + diff --git a/src/6.2.16/surface/leaf3_init.f90 b/src/6.2.16/surface/leaf3_init.f90 new file mode 100644 index 0000000..3d96b94 --- /dev/null +++ b/src/6.2.16/surface/leaf3_init.f90 @@ -0,0 +1,988 @@ +!############################################################################## +Subroutine sfcdata () + +use mem_grid +use mem_leaf +use mem_sib +use leaf_coms + +implicit none + +integer :: k,nnn + +!Variables for LEAF3 +real, dimension (nstyp) :: xsand,xclay,xorgan,xrobulk +real, dimension (8,nstyp) :: soilparms +real, dimension (12,0:nvtyp) :: bioparms + +!Variables for SiB +real,dimension(nstyp_sib) :: sbee,sphsat,ssatco,sporos,sslope & + ,swopt,sskew,srspsat +real,dimension(nvtyp_sib) :: sz1,sz2,sfvcover,schil,ssodep,srootd,sphihalf & + ,stran11,stran12,stran21,stran22,sref11,sref12 & + ,sref21,sref22,svmax0,seffcon,sgslope,sgsmin & + ,satheta,sbtheta,strda,strdm,strop,srespcp,sslti & + ,sshti,shlti,shhti,ssoref1,ssoref2 +character(len=strl1) :: cname + +!LEAF soil classes do not match the order of classes in SiB so we need +!to translate these correctly. LEAF uses the classes from Clapp & Hornberger +!and SiB uses modified USDA classes. LEAF use of FAO data only assigns +!classes 2-8 (Clapp & Hornberger) via routine "datp_datsoil". Others +!default to sandy-clay-loam. +INTEGER, DIMENSION(1:12) :: soil_type_map +DATA soil_type_map /1,2,3,4,6,7,10,9,8,11,12,7/ + +!****************************************************************************** +!******** DATA TABLES FOR THE LEAF3 LAND SURFACE MODEL ************************ +!****************************************************************************** +! Soil Characteristics (see Clapp & Hornberger, 1978; McCumber & Pielke, +! 1981; Pielke, 1984; Tremback & Kessler, 1985) +! +! slpots - saturation moisture potential (m) +! slmsts - saturation volumetric moisture content (m3/m3) +! slbs - b exponent (dimensionless) +! slcons - saturation soil hydraulic conductivity (m/s) +! slcons0 - surface value for slcons (m/s) +! slcpd - dry soil volumetric heat capacity (J/m3/K) +! slden - dry soil density (kg/m3) (also total soil porosity) + +data soilparms/ & +!----------------------------------------------------------------------------- +!slpots slbs slcons0 slden USDA SOIL CLASS +! slmsts slcons slcpd # AND NAME +!----------------------------------------------------------------------------- + -.121, .395, 4.05, .18e-3, .50e-3, 1465.e3, 1600.,.135 & ! 1 sand +,-.090, .410, 4.38, .16e-3, .60e-3, 1407.e3, 1600.,.150 & ! 2 loamy sand +,-.218, .435, 4.9 , .34e-4, .77e-3, 1344.e3, 1600.,.195 & ! 3 sandy loam +,-.786, .485, 5.3 , .72e-5, .11e-4, 1273.e3, 1600.,.255 & ! 4 silt loam +,-.478, .451, 5.39, .69e-5, .22e-2, 1214.e3, 1600.,.240 & ! 5 loam +,-.299, .420, 7.12, .63e-5, .15e-2, 1177.e3, 1600.,.255 & ! 6 sandy clay loam +,-.356, .477, 7.75, .17e-5, .11e-3, 1319.e3, 1600.,.322 & ! 7 silty clay loam +,-.630, .476, 8.52, .24e-5, .22e-2, 1227.e3, 1600.,.325 & ! 8 clay loam +,-.153, .426, 10.4 , .22e-5, .22e-5, 1177.e3, 1600.,.310 & ! 9 sandy clay +,-.490, .492, 10.4 , .10e-5, .10e-5, 1151.e3, 1600.,.370 & ! 10 silty clay +,-.405, .482, 11.4 , .13e-5, .13e-5, 1088.e3, 1600.,.367 & ! 11 clay +,-.356, .863, 7.75, .80e-5, .80e-5, 874.e3, 300.,.535/ ! 12 peat + +data xsand /.97,.92,.80,.57,.60,.65,.35,.48,.50,.30,.25,.20/ +data xclay /.03,.07,.18,.40,.35,.31,.59,.45,.42,.61,.65,.20/ +data xorgan /.00,.01,.02,.03,.05,.04,.06,.07,.08,.09,.10,.60/ + +data xrobulk/1200.,1250.,1300.,1400.,1350.,1350. & + ,1500.,1450.,1450.,1650.,1700., 500./ + +! LEAF-3 BIOPHYSICAL PARAMETERS BY LANDUSE CLASS NUMBER + +data bioparms/ & +!----------------------------------------------------------------------------- +!albv_green sr_max veg_clump rootdep LEAF-3 CLASS # +! albv_brown tai_max veg_frac dead_frac AND DESCRIPTION +! emisv sai veg_ht rcmin +!----------------------------------------------------------------------------- + .00, .00, .00, .0, 0.0, .0, .0, .00, .0, .0, .0, 0., & ! 0 Ocean + .00, .00, .00, .0, 0.0, .0, .0, .00, .0, .0, .0, 0., & ! 1 Lakes, rivers, streams + .00, .00, .00, .0, 0.0, .0, .0, .00, .0, .0, .0, 0., & ! 2 Ice cap/glacier + .00, .00, .00, .0, 0.0, .0, .0, .00, .0, .0, .0, 0., & ! 3 Desert, bare soil + .14, .24, .97, 5.4, 8.0, 1.0, 1.0, .80, 20.0, 1.5, .0, 500., & ! 4 Evergreen needleleaf tree + .14, .24, .95, 5.4, 8.0, 1.0, 1.0, .80, 22.0, 1.5, .0, 500., & ! 5 Deciduous needleleaf tree + .20, .24, .95, 6.2, 7.0, 1.0, .0, .80, 22.0, 1.5, .0, 500., & ! 6 Deciduous broadleaf tree + .17, .24, .95, 4.1, 7.0, 1.0, .0, .90, 32.0, 1.5, .0, 500., & ! 7 Evergreen broadleaf tree + .21, .43, .96, 5.1, 4.0, 1.0, .0, .75, .3, .7, .7, 100., & ! 8 Short grass + .24, .43, .96, 5.1, 5.0, 1.0, .0, .80, 1.2, 1.0, .7, 100., & ! 9 Tall grass + .24, .24, .96, 5.1, 1.0, .2, 1.0, .20, .7, 1.0, .0, 500., & ! 10 Semi-desert + .20, .24, .95, 5.1, 4.5, .5, 1.0, .60, .2, 1.0, .0, 50., & ! 11 Tundra + .14, .24, .97, 5.1, 5.5, 1.0, 1.0, .70, 1.0, 1.0, .0, 500., & ! 12 Evergreen shrub + .20, .28, .97, 5.1, 5.5, 1.0, 1.0, .70, 1.0, 1.0, .0, 500., & ! 13 Deciduous shrub + .16, .24, .96, 6.2, 7.0, 1.0, .5, .80, 22.0, 1.5, .0, 500., & ! 14 Mixed woodland + .22, .40, .95, 5.1, 5.0, .5, .0, .85, 1.0, 1.0, .0, 100., & ! 15 Crop/mixed farming, C3 grassland + .18, .40, .95, 5.1, 5.0, .5, .0, .80, 1.1, 1.0, .0, 500., & ! 16 Irrigated crop + .12, .43, .98, 5.1, 7.0, 1.0, .0, .80, 1.6, 1.0, .0, 500., & ! 17 Bog or marsh + .20, .36, .96, 5.1, 6.0, 1.0, .0, .80, 7.0, 1.0, .0, 100., & ! 18 Wooded grassland + .20, .36, .90, 5.1, 3.6, 1.0, .0, .74, 6.0, .8, .0, 500., & ! 19 Urban and built up + .17, .24, .95, 4.1, 7.0, 1.0, .0, .90, 32.0, 1.5, .0, 500./ ! 20 Wetland evergreen broadleaf tree + +!****************************************************************************** +!******** DATA TABLES FOR THE SIB2.5 LAND SURFACE MODEL *********************** +!****************************************************************************** + !...................SOIL CLASSES.................... + ! + ! The soil texture catagories are (based on the 12 USDA classes): + ! + ! Soil Name % clay % sand + ! 1 sand 3 92 + ! 2 loamy sand 5 82 + ! 3 sandy loam 10 65 + ! 4 silt loam 13 22 + ! 5 silt 7 7 + ! 6 loam 18 42 + ! 7 sandy clay loam 28 58 + ! 8 sandy clay 40 52 + ! 9 clay loam 39 32 + ! 10 silty clay loam 39 10 + ! 11 silty clay 41 7 + ! 12 clay 65 19 + ! + ! Soil properties based on the approximate centroid of the soil texture + ! catagory within the USDA texture triangle. + ! + ! Modifications: + ! Kevin Schaefer added respiration variables (Wopt, skew, RespSat) + ! using curve fits based on data from Raich et al., 1991 (6/19/00) + ! Kevin Schaefer updated table using centroid % clay/sand (3/30/01) + ! + ! Variables: + ! + ! Bee : Clapp & Hornberge 'B' exponent + ! phsat : Soil tension at saturation (units) + ! satco : soil tension at 1/2 assimilation value (true?) units? + ! poros : porosity + ! slope : slope + ! wopt : optimum saturation percentage for respiration + ! skew : Power coeff for moisture effect on soil respiration + ! respsat : respiration at soil water saturation? + + data sbee/3.387,3.705,4.500,4.977,4.023,5.772,7.362,9.270,9.111,9.111 & + ,9.429,13.245/ + + data sphsat/-0.047,-0.064,-0.107,-0.391,-0.614,-0.214,-0.132,-0.158 & + ,-0.289,-0.561,-0.614,-0.428/ + + data ssatco/0.236E-4,0.166E-4,0.910E-5,0.200E-5,0.118E-5,0.405E-5 & + ,0.711E-5,0.576E-5,0.285E-5,0.131E-5,0.118E-5,0.180E-5/ + + data sporos/0.373,0.386,0.407,0.461,0.480,0.436,0.416,0.423,0.449 & + ,0.476,0.480,0.465/ + + data sslope/0.176,0.176,0.176,0.176,0.176,0.176,0.176,0.176,0.176 & + ,0.176,0.176,0.176/ + + data swopt/59.653,60.080,61.120,61.725,60.501,62.701,64.533,66.520 & + ,66.363,66.363,66.675,69.920/ + + data sskew/0.354,0.357,0.362,0.363,0.360,0.359,0.328,0.232,0.243 & + ,0.243,0.221,-0.255/ + + data srspsat/0.508,0.513,0.525,0.533,0.518,0.545,0.570,0.600,0.598 & + ,0.598,0.603,0.663/ + + !..................VEGETATION/BIOME TYPES............................ + ! The vegetation types are: + ! # type Name + ! 1 C3 Tall Broadleaf-Evergreen Trees + ! Ref: Stanford Group, Sellers et al. (1989) + ! 2 C3 Tall Broadleaf-Deciduous Trees + ! Ref: Klink and Willmott (1985), + ! Turner (1974), Miller (1972) + ! 3 C3 Tall Broadleaf and Needleleaf Trees + ! Ref: Klink and Willmott (1985), + ! Turner (1974), Miller (1972) + ! 4 C3 Tall Needleleaf Trees + ! Ref: Klink and Willmott (1985), + ! Strebel et al. (1982) + ! 5 C3 Tall Needleleaf-DECIDUOUS Trees + ! Ref: Klink and Willmott (1985), + ! Strebel et al. (1982) + ! 6 C4 Short Vegetation, Same as Types 6, 7, + ! 8, and 11 (Stanford-Carnegie) + ! Ref: Klink and Willmott (1985), + ! Turner (1974), Miller (1972) + ! 7 C4 Short Vegetation: Ground Cover (Maize Optical Properties) + ! Ref: Klink and Willmott (1985), + ! Miller (1972), Sellers (PC*) + ! 8 C4 Short Vegetation: Ground Cover (Maize Optical Properties) + ! Ref: Klink and Willmott (1985), + ! Miller (1972), Sellers (PC*) + ! 9 C3 Short Broadleaf Shrubs with Bare Soil + ! Ref: Klink and Willmott (1985), + ! Turner (1974), Miller (1972), + ! Sellers (PC) + ! 10 C3 Short Ground Cover (Tundra) + ! Ref: Klink and Willmott (1985), + ! Turner (1974), Miller (1972), + ! Sellers (PC) + ! 11 C4 No Vegetation (Low Latitude Desert) + ! Ref: Sellers (PC) and DORMAN + ! 12 C3 Agriculture (Wheat) and C3 Grasslands + ! Ref: Sellers and Dorman (1987), + ! Turner (1974), and Dorman + ! 13 C4 ice + ! Ref: Sellers (PC) and Dorman + ! + ! * personal communication + ! + !............VARIABLES........................ + ! + ! z2 --- canopy top height (meters) + ! z1 --- canopy bottom height (meters) + ! fvcover --- fractional vegetation cover (-) + ! chil --- leaf angle distribution factor + ! sodep --- total soil depth of 3 soil moist lyrs (meters) + ! rootd --- rooting depth (meters) + ! phi_half --- one-half critical leaf-water potential limit(m) + ! trans(2,2) --- leaf transmittance + ! (1,1) - SW green + ! (1,2) - LW green + ! (2,1) - SW brown + ! (2,2) - LW brown + ! ref(2,2) --- leaf reflectance + ! (1,1) - SW green + ! (1,2) - LW green + ! (2,1) - SW brown + ! (2,2) - LW brown + ! vmax0 - rubisco velocity of sun leaf (mol/m2/s) + ! effcon - quantum efficiency (mol/mol) + ! gsslope - conductance-photosynthesis slope parm (mol/m2/s) + ! gsmin - conductance-photosynthesis intercept (mol/m2/s) + ! atheta - wc,we coupling parameter + ! btheta - wp,ws coupling parameter + ! trda - slope of high temp inhibition function (leaf resp,1/K) + ! trdm - half point of high temp inhibition function (leaf resp,K) + ! trop - temperature coefficient in GS-A model (K) + ! respcp - respiration fraction of Vmax + ! slti - slope of low temperature inhibition (1/K) + ! shti - slope of high temperature inhibition (1/K) + ! hlti - half piont of low temp inhibition (K) + ! hhti - half point of high temp inhibition (K) + ! soref(2) --- soil reflectance + ! (1) - visible + ! (2) - nir + + data sz2/35.00,20.00,20.00,17.00,17.00,1.00,1.00,1.00,0.500 & + ,0.600,1.00,1.00,1.00/ + + data sz1/1.00,11.500,10.00,8.500,8.500,0.100,0.100,0.100 & + ,0.100,0.100,0.100,0.100,0.100/ + + data sfvcover/0.874,0.597,0.727,0.558,0.670,0.776,0.343,0.343 & + ,0.136,0.402,0.055,0.553,0.055/ + + data schil/0.100,0.250,0.125,0.010,0.010,-0.300,-0.300,-0.300 & + ,0.010,0.200,-0.300,-0.300,-0.300/ + + data ssodep/3.500,2.000,2.000,2.000,2.000,1.500,1.500,1.500 & + ,1.500,1.500,1.500,1.500,1.500/ + + data srootd/1.500,1.500,1.500,1.500,1.000,1.000,1.000,1.000 & + ,1.000,1.000,1.000,1.000,1.000/ + + data sphihalf/-200.0,-200.0,-200.0,-200.0,-200.0,-200.0 & + ,-200.0,-200.0,-200.0,-200.0,-200.0,-200.0,-200.0/ + + data stran11/0.050,0.050,0.050,0.050,0.050,0.070,0.070,0.070 & + ,0.050,0.070,0.070,0.070,0.070/ + + data stran12/0.250,0.250,0.150,0.100,0.100,0.248,0.248,0.248 & + ,0.250,0.248,0.248,0.248,0.248/ + + data stran21/0.001,0.001,0.001,0.001,0.001,0.220,0.220,0.220 & + ,0.001,0.220,0.220,0.220,0.220/ + + data stran22/0.001,0.001,0.001,0.001,0.001,0.375,0.375,0.375 & + ,0.001,0.375,0.375,0.375,0.375/ + + data sref11/0.060,0.070,0.070,0.080,0.080,0.060,0.100,0.120 & + ,0.120,0.120,0.120,0.080,0.140/ + + data sref12/0.390,0.390,0.380,0.370,0.370,0.400,0.400,0.400 & + ,0.400,0.400,0.400,0.400,0.420/ + + data sref21/0.160,0.160,0.160,0.160,0.160,0.160,0.220,0.220 & + ,0.220,0.220,0.220,0.160,0.220/ + + data sref22/0.430,0.430,0.420,0.410,0.410,0.440,0.480,0.480 & + ,0.480,0.480,0.480,0.480,0.320/ + + data svmax0/0.100E-3,0.100E-3,0.750E-4,0.600E-4,0.100E-3 & + ,0.300E-4,0.300E-4,0.300E-4,0.600E-4,0.600E-4 & + ,0.300E-4,0.100E-3,0.300E-4/ + + data seffcon/0.080,0.080,0.080,0.080,0.080,0.050,0.050,0.050 & + ,0.080,0.080,0.050,0.080,0.050/ + + data sgslope/9.000,9.000,9.000,9.000,9.000,4.000,4.000,4.000 & + ,9.000,9.000,4.000,9.000,4.000/ + + data sgsmin/0.010,0.010,0.010,0.010,0.010,0.040,0.040,0.040 & + ,0.010,0.010,0.040,0.010,0.040/ + + data satheta/0.980,0.980,0.980,0.980,0.980,0.800,0.800,0.800 & + ,0.980,0.980,0.800,0.980,0.800/ + + data sbtheta/0.950,0.950,0.950,0.950,0.950,0.950,0.950,0.950 & + ,0.950,0.950,0.950,0.950,0.950/ + + data strda/1.300,1.300,1.300,1.300,1.300,1.300,1.300,1.300 & + ,1.300,1.300,1.300,1.300,1.300/ + + data strdm/328.16,328.16,328.16,328.16,328.16,328.16,328.16 & + ,328.16,328.16,328.16,328.16,328.16,328.16/ + + data strop/298.16,298.16,298.16,298.16,298.16,298.16,298.16 & + ,298.16,298.16,298.16,298.16,298.16,298.16/ + + data srespcp/0.015,0.015,0.015,0.015,0.015,0.015,0.015,0.015 & + ,0.015,0.015,0.015,0.015,0.015/ + + data sslti/0.200,0.200,0.200,0.200,0.200,0.300,0.300,0.300 & + ,0.200,0.200,0.300,0.200,0.300/ + + data shlti/288.16,283.16,280.16,278.16,278.16,288.16,288.16 & + ,288.16,283.16,278.16,288.16,281.16,288.16/ + + data sshti/0.300,0.300,0.300,0.300,0.300,0.300,0.300,0.300 & + ,0.300,0.300,0.300,0.300,0.300/ + + data shhti/313.16,311.16,307.16,303.16,303.16,313.16,313.16 & + ,313.16,313.16,303.16,313.16,308.16,313.16/ + + data ssoref1/0.110,0.110,0.110,0.110,0.110,0.110,0.110,0.150 & + ,0.300,0.110,0.300,0.100,0.300/ + + data ssoref2/0.225,0.225,0.225,0.225,0.225,0.225,0.225,0.250 & + ,0.350,0.225,0.350,0.150,0.350/ +!****************************************************************************** +!******** END OF SOIL AND VEGETATION CONSTANTS ******************************** +!****************************************************************************** + +!Set up constants for LEAF3 and SiB. LEAF3 always runs water patch. SiB uses +! LEAF3 initialization, vegetation info, NDVI info, etc. SiB will run on +! vegetation patches only. If running SiB, use SiB soil porosity values to +! keep soil_water consistent between models, otherwise SiB can get soil moisture +! values > 1.0. +if(isfcl <= 2) then + + ! Soil constants + slz(nzg+1) = 0. + + ! soil type ranges from 1 to nstyp + do nnn = 1,nstyp + do k = 1,nzg + slcons1(k,nnn) = soilparms(4,nnn) ! ORIGINAL form - const with depth + enddo + slpots(nnn) = soilparms(1,nnn) + if(isfcl<=1) slmsts(nnn) = soilparms(2,nnn) + if(isfcl==2) slmsts(nnn) = sporos(soil_type_map(INT(nnn))) + slbs(nnn) = soilparms(3,nnn) + slcpd(nnn) = soilparms(6,nnn) + sfldcap(nnn)= soilparms(8,nnn) + emisg(nnn) = .98 + soilcp(nnn) = 0.1 - 0.07 * xsand(nnn) + enddo + + ! veg type ranges from 0 to nvtyp + do nnn = 0,nvtyp + albv_green(nnn) = bioparms(1,nnn) + albv_brown(nnn) = bioparms(2,nnn) + emisv(nnn) = bioparms(3,nnn) + sr_max(nnn) = bioparms(4,nnn) + tai_max(nnn) = bioparms(5,nnn) + sai(nnn) = bioparms(6,nnn) + veg_clump(nnn) = bioparms(7,nnn) + veg_frac(nnn) = bioparms(8,nnn) + veg_ht(nnn) = bioparms(9,nnn) + dead_frac(nnn) = bioparms(11,nnn) + rcmin(nnn) = bioparms(12,nnn) + glai_max(nnn) = tai_max(nnn) - sai(nnn) + + kroot(nnn) = nzg + do k = nzg-1,1,-1 + if (slz(k+1) .gt. -bioparms(10,nnn)) kroot(nnn) = k + enddo + enddo +endif !If running LEAF3 or SiB + +!Set up constants for SiB vegetation model +if(isfcl==2) then + + !Soil properties based on the approximate centroid of the soil texture + !catagory within the USDA texture triangle. + do nnn=1,nstyp_sib + bee_sib(nnn) = sbee(nnn) !Clapp & Hornberge 'B' exponent + phsat_sib(nnn) = sphsat(nnn) !Soil tension at saturation (units) + satco_sib(nnn) = ssatco(nnn) !soil tension at 1/2 assimilation value (units)? + poros_sib(nnn) = sporos(nnn) !porosity + slope_sib(nnn) = sslope(nnn) !slope + wopt_sib(nnn) = swopt(nnn) !Factor coeff for moisture effect on soil respiration + skew_sib(nnn) = sskew(nnn) !Power coeff for moisture effect on soil respiration + respsat_sib(nnn)= srspsat(nnn) !respiration at soil water saturation? + enddo + + do nnn=1,nvtyp_sib + !Vegetation BC'S + z2_sib(nnn) = sz2(nnn) !canopy top height (meters) + z1_sib(nnn) = sz1(nnn) !canopy bottom height (meters) + fvcover_sib(nnn) = sfvcover(nnn) !fractional vegetation cover + chil_sib(nnn) = schil(nnn) !leaf angle distribution factor + sodep_sib(nnn) = ssodep(nnn) !total soil depth (meters) + rootd_sib(nnn) = srootd(nnn) !rooting depth (meters) + phc_sib(nnn) = sphihalf(nnn) !one-half critical leaf-water potential limit(m) + + !Leaf transmittance and reflectance + tran_sib(nnn,1,1) = stran11(nnn) + tran_sib(nnn,1,2) = stran12(nnn) + tran_sib(nnn,2,1) = stran21(nnn) + tran_sib(nnn,2,2) = stran22(nnn) + ref_sib(nnn,1,1) = sref11(nnn) + ref_sib(nnn,1,2) = sref12(nnn) + ref_sib(nnn,2,1) = sref21(nnn) + ref_sib(nnn,2,2) = sref22(nnn) + + vmax0_sib(nnn) = svmax0(nnn) !rubisco velocity of sun leaf (mol/m2/s) + effcon_sib(nnn) = seffcon(nnn)!quantum efficiency (mol/mol) + gslope_sib(nnn) = sgslope(nnn)!conductance-photosynthesis slope parm (mol/m2/s) + gsmin_sib(nnn) = sgsmin(nnn) !conductance-photosynthesis intercept (mol/m2/s) + atheta_sib(nnn) = satheta(nnn)!wc,we coupling parameter + btheta_sib(nnn) = sbtheta(nnn)!wp,ws coupling parameter + trda_sib(nnn) = strda(nnn) !slope of high temp inhibition (leaf resp,1/K) + trdm_sib(nnn) = strdm(nnn) !half point of high temp inhibition (leaf resp,K) + trop_sib(nnn) = strop(nnn) !temperature coefficient in GS-A model (K) + respcp_sib(nnn) = srespcp(nnn)!respiration fraction of Vmax + slti_sib(nnn) = sslti(nnn) !slope of low temperature inhibition (1/K) + shti_sib(nnn) = sshti(nnn) !slope of high temperature inhibition (1/K) + hlti_sib(nnn) = shlti(nnn) !half piont of low temp inhibition (K) + hhti_sib(nnn) = shhti(nnn) !half point of high temp inhibition (K) + + !Soil reflectance + soref_sib(nnn,1) = ssoref1(nnn) + soref_sib(nnn,2) = ssoref2(nnn) + enddo + + !Now need to read in data from the SiB-Veg-Morphology.txt file. + !this data will change with different ndvi/soil/biome + !data, so it cannot be hardwired in. Contact Ian Baker + !baker@atmos.colostate.edu with any questions. + cname=sibfile(1:len_trim(sibfile)) + open(unit=34,file=cname,form='formatted',status='old') + read(34,*)laig_sib ! LAI values for lookup table (50) + read(34,*)fvcg_sib ! fVCover values for interpolation table (50) + read(34,*)a_zo_sib ! Canopy roughness coeff (nvtyp_sib,50,50) + read(34,*)a_zp_sib ! Zero plane displacement (nvtyp_sib,50,50) + read(34,*)a_rbc_sib ! RB coeff cc1 corrected for snow covered canopy (50x50) + read(34,*)a_rdc_sib ! RC coeff cc2 corrected for snow covered canopy (50x50) + read(34,*)zc_sib ! Canopy inflection height(m) (nvtyp_sib) + read(34,*)zlw_sib ! Leaf Width (nvtyp_sib) + read(34,*)zlen_sib ! Leaf Length (nvtyp_sib) + read(34,*)ltmax_sib ! Max LAI (nvtyp_sib) + read(34,*)stem_sib ! Stem area index (nvtyp_sib) + read(34,*)nd98_sib ! Max NDVI (98%tile) (nvtyp_sib) + read(34,*)nd02_sib ! Min NDVI (2%tile) (nvtyp_sib) + read(34,*)srmax_sib ! Maximum simple ratio (nvtyp_sib) + read(34,*)srmin_sib ! Minimum simple ratio (nvtyp_sib) + close(34) + + if(iprntstmt>=1 .and. print_msg)then + !Print morphology table values to verify correct loading + print*,'SIB2 Morphology tables' + print*,'laig:',laig_sib + print*,'fvcg:',fvcg_sib + do nnn=1,50 + print*,'z0:',nnn,a_zo_sib(6,25,nnn) + print*,'zp:',nnn,a_zp_sib(6,25,nnn) + print*,'RBC:',nnn,a_rbc_sib(6,25,nnn) + print*,'RDC:',nnn,a_rdc_sib(6,25,nnn) + enddo + print*,'zc:',zc_sib + print*,'zlw:',zlw_sib + print*,'zlen:',zlen_sib + print*,'ltmax:',ltmax_sib + print*,'stem:',stem_sib + print*,'nd98:',nd98_sib + print*,'nd02:',nd02_sib + print*,'srmax:',srmax_sib + print*,'srmin:',srmin_sib + + !Print vegetation table values to verify correct loading + print*,'SIB2 Vegetation tables' + do nnn=1,nvtyp_sib + print*,nnn,'z2_sib',z2_sib(nnn) + print*,nnn,'z1_sib',z1_sib(nnn) + print*,nnn,'fvcover_sib',fvcover_sib(nnn) + print*,nnn,'chil_sib',chil_sib(nnn) + print*,nnn,'sodep_sib',sodep_sib(nnn) + print*,nnn,'rootd_sib',rootd_sib(nnn) + print*,nnn,'phc_sib',phc_sib(nnn) + print*,nnn,'tran_sib-1-1',tran_sib(nnn,1,1) + print*,nnn,'tran_sib-1-2',tran_sib(nnn,1,2) + print*,nnn,'tran_sib-2-1',tran_sib(nnn,2,1) + print*,nnn,'tran_sib-2-2',tran_sib(nnn,2,2) + print*,nnn,'ref_sib-1-1',ref_sib(nnn,1,1) + print*,nnn,'ref_sib-1-2',ref_sib(nnn,1,2) + print*,nnn,'ref_sib-2-1',ref_sib(nnn,2,1) + print*,nnn,'ref_sib-2-2',ref_sib(nnn,2,2) + print*,nnn,'vmax0_sib',vmax0_sib(nnn) + print*,nnn,'effcon_sib',effcon_sib(nnn) + print*,nnn,'gslope_sib',gslope_sib(nnn) + print*,nnn,'gsmin_sib',gsmin_sib(nnn) + print*,nnn,'atheta_sib',atheta_sib(nnn) + print*,nnn,'btheta_sib',btheta_sib(nnn) + print*,nnn,'trda_sib',trda_sib(nnn) + print*,nnn,'trdm_sib',trdm_sib(nnn) + print*,nnn,'trop_sib',trop_sib(nnn) + print*,nnn,'respcp_sib',respcp_sib(nnn) + print*,nnn,'slti_sib',slti_sib(nnn) + print*,nnn,'shti_sib',shti_sib(nnn) + print*,nnn,'hlti_sib',hlti_sib(nnn) + print*,nnn,'hhti_sib',hhti_sib(nnn) + print*,nnn,'soref_sib-1',soref_sib(nnn,1) + print*,nnn,'soref_sib-2',soref_sib(nnn,2) + enddo + endif + +endif !If running SiB + +return +END SUBROUTINE sfcdata + +!############################################################################## +Subroutine sfcinit_file (n2,n3,mzg,npat,patch_area,leaf_class,soil_text) + +use mem_leaf +use rconstants + +implicit none + +integer :: n2,n3,mzg,npat,i,j,k,ipat + +real, dimension(mzg,n2,n3,npat) :: soil_text +real, dimension(n2,n3,npat) :: patch_area,leaf_class + +! This routine fills the arrays PATCH_AREA, leaf_class, and SOIL_TEXT +! horizontally homogeneously with default values that are defined in the +! RAMSIN namelist file. These fields comprise the land/sea surface data +! types that are normally available on standard RAMS datasets. The default +! values assigned here may be overridden by (1) interpolation from coarser +! grids, (2) specifying new values in routine sfcinit_user in the file +! ruser.f, or (3) reading data from the standard RAMS datasets. + +do j = 1,n3 + do i = 1,n2 + + patch_area(i,j,1) = 1. - pctlcon ! patch 1 + leaf_class(i,j,1) = 0. ! patch 1 + + patch_area(i,j,2) = pctlcon ! patch 2 + leaf_class(i,j,2) = float(nvgcon) ! patch 2 + + do k = 1,mzg + soil_text(k,i,j,1) = 0. ! patch 1 + soil_text(k,i,j,2) = float(nslcon) ! patch 2 + enddo + + enddo +enddo + +do ipat = 3,npat + do j = 1,n3 + do i = 1,n2 + + patch_area(i,j,ipat) = 0. + leaf_class(i,j,ipat) = leaf_class(i,j,2) + + do k = 1,mzg + soil_text(k,i,j,ipat) = soil_text(k,i,j,2) + enddo + + enddo + enddo +enddo + +return +END SUBROUTINE sfcinit_file + +!############################################################################## +Subroutine sfcinit_nofile (n1,n2,n3,mzg,mzs,npat,ifm & + ,theta,pi0,pp,rv,seatp,seatf & + ,soil_water ,soil_energy ,soil_text & + ,sfcwater_mass ,sfcwater_energy ,sfcwater_depth & + ,veg_fracarea ,veg_lai ,veg_tai & + ,veg_rough ,veg_height ,veg_albedo & + ,patch_area ,patch_rough ,leaf_class & + ,soil_rough ,sfcwater_nlev ,stom_resist & + ,ground_rsat ,ground_rvap ,veg_water & + ,veg_temp ,can_rvap ,can_temp & + ,veg_ndvip ,veg_ndvic ,veg_ndvif & + ,snow_mass ,snow_depth ,soil_moist_top & + ,soil_moist_bot ,soil_temp_top ,soil_temp_bot & + ,glat ,glon ,zot) + +use mem_grid +use mem_leaf +use leaf_coms +use io_params +use rconstants +use mem_varinit + +implicit none + +logical :: there +character(len=7) :: cgrid +character(len=strl1) :: flnm +integer :: n1,n2,n3,mzg,mzs,npat,ifm,i,j,k,ipat & + ,nveg,nsoil,initsurf,nc,runsoilingest,runsnowingest + +real :: c1,airtemp,prsv,piv +real :: tsoil,fice !Saleeby: add these for frozen soil computation +real, dimension(n1,n2,n3) :: theta,pi0,pp,rv +real, dimension(n2,n3) :: glat,glon,zot & + ,seatp,seatf,snow_mass,snow_depth & + ,soil_moist_top,soil_moist_bot & + ,soil_temp_top,soil_temp_bot + +real, dimension(mzg,n2,n3,npat) :: soil_water,soil_energy,soil_text +real, dimension(mzs,n2,n3,npat) :: sfcwater_mass,sfcwater_energy & + ,sfcwater_depth + +real, dimension(n2,n3,npat) :: veg_fracarea ,veg_lai ,veg_tai & + ,veg_rough & + ,veg_height ,veg_albedo ,patch_area & + ,patch_rough ,leaf_class & + ,soil_rough ,sfcwater_nlev ,stom_resist & + ,ground_rsat ,ground_rvap ,veg_water & + ,veg_temp ,can_rvap ,can_temp & + ,veg_ndvip ,veg_ndvic ,veg_ndvif + +! This routine fills the primary LEAF3 arrays for which standard RAMS +! data files do not exist with initial default values. Many of the +! initial values are horizontally homogeneous, although some depend on +! atmospheric conditions. The default values assigned here may be +! overridden by (1) specification from coarser grids or (2) specifying new +! values in routine sfcinit_nofile_user in the file ruser.f. + +c1 = .5 * cpi + +! Time interpolation factor for updating SST + +if (iupdsst == 0) then + timefac_sst = 0. +else + timefac_sst = (time - ssttime1(ifm)) / (ssttime2(ifm) - ssttime1(ifm)) +endif + +!-------------------------------------------------------------------------------- +!Saleeby (4-8-2013): Ingest soil moisture, soil temperature, snow depth +!and snow water from varfiles. Soil moisture ingest will only +!work at initialization and not for history restarts, even if adding a grid. +!-------------------------------------------------------------------------------- +!Set soil/snow ingest flags to zero +initsurf=0 +runsoilingest=0 +runsnowingest=0 +!Check for initial start for soil/snow ingest +if(trim(runtype) == 'INITIAL' .or. trim(runtype) == 'ERROR') initsurf=1 +!Check to see which varfiles are present since these contain the soil data +if(initial==2)then + write(cgrid,'(a2,i1,a3)') '-g',ifm,'.h5' + nc=len_trim(fnames_varf(nvarffl)) + flnm=fnames_varf(nvarffl)(1:nc-4)//trim(cgrid) + inquire(file=trim(flnm),exist=there) +endif +!Set flag for soil ingest +if(isoildat==1 .and. initsurf==1 .and. initial==2 .and. there) runsoilingest=1 +!Set flag for snow ingest +if(isnowdat==1 .and. initsurf==1 .and. initial==2 .and. there) runsnowingest=1 +!Print indication of using soil and snow from varfiles +if(runsoilingest==1 .or. runsnowingest==1)then + if(iprntstmt>=1 .and. print_msg)then + print*,'-------------------------------------------------------' + print*,'SETTING UP SOIL AND/OR SNOW LEVEL VARIABLES ON GRID:',IFM + print*,'-------------------------------------------------------' + endif +endif + +!Initialize surface properties +do j = 1,n3 + do i = 1,n2 + piv = c1 * (pi0(1,i,j) + pi0(2,i,j) & + + pp(1,i,j) + pp(2,i,j)) + airtemp = theta(2,i,j) * piv + prsv = piv ** cpor * p00 + + patch_rough(i,j,1) = 0.001 + can_temp(i,j,1) = airtemp + can_rvap(i,j,1) = rv(2,i,j) + + soil_energy(mzg,i,j,1) = 334000. & + + 4186. * (seatp(i,j) + (seatf(i,j) - seatp(i,j)) & + * timefac_sst - 273.15) + + !Loop over patches + do ipat = 2,npat + + nveg = nint(leaf_class(i,j,ipat)) + + soil_rough(i,j,ipat) = zrough + patch_rough(i,j,ipat) = max(zrough,zot(i,j)) + veg_height(i,j,ipat) = veg_ht(nveg) + stom_resist(i,j,ipat) = 1.e6 + + veg_temp(i,j,ipat) = airtemp + can_temp(i,j,ipat) = airtemp + + veg_water(i,j,ipat) = 0. + can_rvap(i,j,ipat) = rv(2,i,j) + + !Loop over soil layers + do k = 1,mzg + + nsoil = nint(soil_text(k,i,j,ipat)) + soil_water(k,i,j,ipat) = max(soilcp(nsoil),slmstr(k) * slmsts(nsoil)) + + !Saleeby(4-9-2013):If using variable soil initialization from ingest data + if(runsoilingest==1)then + if(k==mzg) then + soil_water(k,i,j,ipat) = max(soilcp(nsoil),soil_moist_top(i,j)) + else + soil_water(k,i,j,ipat) = max(soilcp(nsoil),soil_moist_bot(i,j)) + endif + endif + + !For persistent wetlands (bogs, marshes, fens, swamps) and irrigated + !crops, initialize with saturated soil. Currently, this corresponds to + !leaf classes 16, 17, and 20. + if (nint(leaf_class(i,j,ipat)) == 16 .or. & + nint(leaf_class(i,j,ipat)) == 17 .or. & + nint(leaf_class(i,j,ipat)) == 20) then + soil_water(k,i,j,ipat) = slmsts(nsoil) + endif + + !Limit soil water fraction maximum for soil type. Need to do this + !since input soil water from gridded data can differ from RAMS due + !to differences in soil classes and soil porosity. + if(isfcl==2) & + soil_water(k,i,j,ipat) = min(slmsts(nsoil),soil_water(k,i,j,ipat)) + + !By default, initialize soil internal energy at a temperature equal + !to airtemp + stgoff(k) and with all water assumed to be liquid. If + !the temperature is initially below 0C, this will immediately adjust + !to soil at 0C with part ice. In order to begin with partially or + !totally frozen soil, reduce or remove the latent-heat-of-fusion + !term (the one with the factor of 3.34) from soil_energy below. If + !the soil is totally frozen and the temperature is below zero C, the + !factor of 4.186 should be changed to 2.093 to reflect the reduced + !heat capacity of ice compared to liquid. These changes may be + !alternatively be done in routine sfcinit_user in ruser.f + + !Saleeby: Old Method sometimes allows surface runaway cooling! + !soil_energy(k,i,j,ipat) = (airtemp - 273.15 + stgoff(k)) & + ! * (slcpd(nsoil) + soil_water(k,i,j,ipat) * 4.186e6) & + ! + soil_water(k,i,j,ipat) * 3.34e8 + + !************************************************************* + !Saleeby: New Method allows for tsoil < 0C and set initial soil + ! ice fraction (fice) to zero + tsoil = (airtemp - 273.15 + stgoff(k)) + + !Saleeby(4-9-2013):If we are ingesting soil temperature from varfiles + if(runsoilingest==1)then + if(k==mzg) then + tsoil=max(tsoil,soil_temp_top(i,j)-273.15) + else + tsoil=max(tsoil,soil_temp_bot(i,j)-273.15) + endif + endif + + fice = 0.0 + !For soil temperature > 0C + if (tsoil.gt.0.) then + soil_energy(k,i,j,ipat) = tsoil & + * (slcpd(nsoil) + soil_water(k,i,j,ipat) * 4.186e6) & + + soil_water(k,i,j,ipat) * 3.34e8 + !For soil temperature <= 0C + elseif (tsoil.le.0.) then + !This soil ice fraction should be improved + !Just a linear computation with fice=0.0 at 273K + ! up to fice=1.0 at 272K + fice = min(1.0,max(0.0, -1.0*tsoil*0.1 )) + soil_energy(k,i,j,ipat) = tsoil & + * (slcpd(nsoil) + & + (1.-fice)*soil_water(k,i,j,ipat) * 4.186e6 + & + fice*soil_water(k,i,j,ipat) * 2.093e6) & + + (1.-fice)*soil_water(k,i,j,ipat) * 3.34e8 + endif + !************************************************************* + + enddo !end looping over soil layers + + !Determine number of surface water or snow levels and set values of + !mass, depth, and energy for each level present. + + !Set number of inital surface water layers to zero + sfcwater_nlev(i,j,ipat) = 0. + + !Loop over surface water / snow layers + do k = 1,mzs + + sfcwater_mass(k,i,j,ipat) = 0. + sfcwater_energy(k,i,j,ipat) = 0. + sfcwater_depth(k,i,j,ipat) = 0. + + !For persistent wetlands (bogs, marshes, fens, swamps), initialize + !with 10 cm water depth. This corresponds to leaf classes 17 and 20. + if (nint(leaf_class(i,j,ipat)) == 17 .or. & + nint(leaf_class(i,j,ipat)) == 20) then + if (k .eq. 1) then + sfcwater_mass(k,i,j,ipat) = 100. + sfcwater_energy(k,i,j,ipat) = (airtemp - 193.36) * 4186. + sfcwater_depth(k,i,j,ipat) = .1 + endif + endif + + !Initialize surface water layer quantities + if (runsnowingest==1) then + if (snow_mass(i,j) > 0.) then + if (k .eq. 1) then + sfcwater_mass(k,i,j,ipat) = sfcwater_mass(k,i,j,ipat) & + + snow_mass(i,j) + sfcwater_energy(k,i,j,ipat) = sfcwater_energy(k,i,j,ipat) & + + min(0., (airtemp - 273.15) * 2093.) + if(runsnowingest==1) then + sfcwater_depth(k,i,j,ipat) = sfcwater_depth(k,i,j,ipat) & + + snow_depth(i,j) ! From Varfiles + else + sfcwater_depth(k,i,j,ipat) = sfcwater_depth(k,i,j,ipat) & + + snow_mass(i,j) * 5.e-3 ! 5x equivalent liquid depth + endif + endif + endif + endif + + !Determine number of surface water layers + if (sfcwater_mass(k,i,j,ipat) > 0.) sfcwater_nlev(i,j,ipat) = float(k) + + enddo !end loop over surface water layers + + !Call for all land surface options (isfcl) + if (ipat >= 2) CALL ndvi (ifm & + ,leaf_g(ifm)%leaf_class (i,j,ipat) & + ,leaf_g(ifm)%veg_ndvip (i,j,ipat) & + ,leaf_g(ifm)%veg_ndvic (i,j,ipat) & + ,leaf_g(ifm)%veg_ndvif (i,j,ipat) ) + + !Only call this for LEAF3. SIB will use its own values. + if (ipat >= 2 .and. isfcl<=1) & + CALL veg (ifm & + ,leaf_g(ifm)%leaf_class (i,j,ipat) & + ,leaf_g(ifm)%veg_fracarea (i,j,ipat) & + ,leaf_g(ifm)%veg_lai (i,j,ipat) & + ,leaf_g(ifm)%veg_tai (i,j,ipat) & + ,leaf_g(ifm)%veg_rough (i,j,ipat) & + ,leaf_g(ifm)%veg_height (i,j,ipat) & + ,leaf_g(ifm)%veg_albedo (i,j,ipat) & + ,leaf_g(ifm)%veg_ndvic (i,j,ipat) ) + + CALL grndvap (mzs & + ,soil_energy(mzg,i,j,ipat),soil_water(mzg,i,j,ipat) & + ,soil_text (mzg,i,j,ipat),sfcwater_energy(1,i,j,ipat) & + ,sfcwater_nlev(i,j,ipat),ground_rsat(i,j,ipat) & + ,ground_rvap(i,j,ipat),can_rvap(i,j,ipat),prsv,i,j) + + enddo !end loop over patches + enddo +enddo + +return +END SUBROUTINE sfcinit_nofile + +!############################################################################## +Subroutine datp_datq (datp,datq) + +! This routine maps the input datp classes to a smaller set datq +! which represents the full set of LEAF-2 or LEAF-3 classes for which +! LSP values are +! defined. + +implicit none + +integer datq,catb(0:94) +real datp + +! Olson Global Ecosystems dataset (94 classes) mapped to LEAF-3 classes +! (see leaf3_document). + +!-------------------------------------------! +data catb/ 0, & ! + 19, 8, 4, 5, 6, 7, 9, 3,11,16, & ! 0 +!!! 10, 2,17, 1, 0,12,13,14,18, 4, & ! 10 (use for future Olson data) + 10, 2,20, 0, 0,12,13,14,18, 4, & ! 10 (use for current Olson data) + 4, 4,14,14, 6, 6, 4, 7, 7,15, & ! 20 + 15, 6, 7, 7,15,16,16,16,16, 8, & ! 30 + 8, 8,18,17,17,12,12, 7,10, 3, & ! 40 + 10,10,11,14,18,18,18,18,13, 6, & ! 50 + 5, 4,11,12, 0, 0, 0, 0, 3, 2, & ! 60 + 3,20, 0,17,17,17, 4,14, 7, 3, & ! 70 + 3, 3, 3, 3, 3, 3, 8,12, 7, 6, & ! 80 + 18,15,15,15 / ! 90 +!-------------------------------------------! +! 1 2 3 4 5 6 7 8 9 10 + +datq = catb(nint(datp)) + +return +END SUBROUTINE datp_datq + +!############################################################################## +Subroutine datp_datsoil (datp,datsoil) + +! This routine maps the input datp soil classes to a smaller set datsoil +! which represents the full set of LEAF-2 classes for which soil parameter +! values are defined. + +implicit none + +integer datsoil,catb(0:133) +real datp + +! (Bob 9/14/2000) This table maps FAO soil units numbered 0 to 132, plus our +! own missing value designated 133, to the USDA soil textural classes. FAO +! classes [0] (ocean), [1, 7, 27, 42, 66, 69, 77, 78, 84, 98, 113] (soils not +! used in original FAO dataset), [132] (water), and [133] (our missing value) +! are all mapped to a default class of sandy clay loam in case they happen to +! correspond to a land surface area in the landuse dataset that RAMS uses to +! define land area. We wrote missing value class 133 to the RAMS FAO files +! whenever a negative value (which is out of range of defined values) was +! found in the original FAO dataset, which occurred in about 2.6% of the +! pixels. For the remaining FAO classes, a cross reference table to Zobler +! soil texture classes that was provided, plus our own cross referencing table +! from Zobler to USDA classes listed below, provides the mapping from FAO to +! USDA. In this mapping, we use only organic USDA classes and omit nonorganic +! classes since most soils do contain organic matter, and organic content +! information is not provided in the Zobler classes. + +! Zobler Class USDA Class + +! 1 Coarse 2 Loamy sand +! 2 Medium 4 Silt loam +! 3 Fine 8 Clay loam +! 4 Coarse-medium 3 Sandy loam +! 5 Coarse-fine 6 Sandy clay loam +! 6 Medium-fine 7 Silty clay loam +! 7 Coarse-medium-fine 6 Sandy clay loam +! 8 Organic matter 5 Loam + +! 1 Sand (not used) +! 9 Sandy clay (not used) +! 10 Silty clay (not used) +! 11 Clay (not used) +! 12 Peat (not used) + +data catb/ 6 & + , 6, 4, 4, 7, 7, 8, 6, 4, 4, 4 & + , 7, 4, 4, 4, 8, 4, 8, 4, 4, 8 & + , 4, 2, 4, 4, 4, 4, 6, 8, 8, 8 & + , 4, 8, 8, 2, 6, 4, 7, 4, 4, 3 & + , 4, 6, 7, 4, 4, 4, 4, 4, 4, 4 & + , 4, 4, 4, 4, 4, 4, 2, 4, 4, 2 & + , 4, 3, 4, 2, 7, 6, 4, 4, 6, 8 & + , 8, 7, 2, 5, 4, 5, 6, 6, 4, 2 & + , 2, 2, 4, 6, 2, 2, 2, 2, 2, 4 & + , 2, 2, 2, 4, 2, 4, 3, 6, 2, 7 & + , 4, 4, 4, 8, 8, 8, 3, 7, 4, 4 & + , 4, 3, 6, 4, 2, 4, 4, 4, 2, 2 & + , 2, 4, 6, 4, 4, 7, 7, 6, 3, 2 & + , 2, 6, 6 / + +datsoil = catb(nint(datp)) + +return +END SUBROUTINE datp_datsoil diff --git a/src/6.2.16/surface/leaf3_prep.f90 b/src/6.2.16/surface/leaf3_prep.f90 new file mode 100644 index 0000000..0f8b990 --- /dev/null +++ b/src/6.2.16/surface/leaf3_prep.f90 @@ -0,0 +1,364 @@ +!############################################################################## +Subroutine sfc_fields (m1,m2,m3,ia,iz,ja,jz,jd & + ,theta,rv,up,vp,dn0,pp,pi0,rtgt,zt,ths2,rvs2,ups2,vps2,pis2,dens2,zts2) + +use leaf_coms +use rconstants + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,jd +real, dimension(m1,m2,m3) :: theta,rv,up,vp,dn0,pp,pi0 +real, dimension(m2,m3) :: rtgt,ths2,rvs2,ups2,vps2,pis2,dens2,zts2 +real, dimension(m1) :: zt + +integer :: i,j +real :: hcpi + +! Compute surface atmospheric conditions + +hcpi = .5 * cpi + +do j = ja,jz + do i = ia,iz + ths2(i,j) = theta(2,i,j) + rvs2(i,j) = rv(2,i,j) + ups2(i,j) = (up(2,i-1,j) + up(2,i,j)) * .5 + vps2(i,j) = (vp(2,i,j-jd) + vp(2,i,j)) * .5 + zts2(i,j) = zt(2) * rtgt(i,j) + pis2(i,j) = (pp(1,i,j) + pi0(1,i,j) + pp(2,i,j) + pi0(2,i,j)) * hcpi + dens2(i,j) = (dn0(1,i,j) + dn0(2,i,j)) * .5 + enddo +enddo + +return +END SUBROUTINE sfc_fields + +!############################################################################## +Subroutine sfc_pcp (nqparm,level,i,j,cuparm,micro) + +use mem_basic +use mem_micro +use mem_cuparm +use leaf_coms + +implicit none + +integer :: nqparm,level,i,j +type (cuparm_vars) cuparm +type (micro_vars) micro + +if (nqparm > 0) then + + pcpgl = cuparm%conprr(i,j) * dtll + qpcpgl = pcpgl * 4186. * (ths * pis - 193.36) + dpcpgl = pcpgl * .001 + pcpgc = dtlc_factor * pcpgl + qpcpgc = dtlc_factor * qpcpgl + +else + + pcpgl = 0. + qpcpgl = 0. + dpcpgl = 0. + pcpgc = 0. + qpcpgc = 0. + +endif + +if (level >= 3) then + + pcpgl = pcpgl + dtll_factor * micro%pcpg(i,j) + qpcpgl = qpcpgl + dtll_factor * micro%qpcpg(i,j) + dpcpgl = dpcpgl + dtll_factor * micro%dpcpg(i,j) + pcpgc = pcpgc + dtlc_factor * dtll_factor * micro%pcpg(i,j) + qpcpgc = qpcpgc + dtlc_factor * dtll_factor * micro%qpcpg(i,j) + +endif + +return +END SUBROUTINE sfc_pcp + +!############################################################################## +Subroutine ndvi (ifm,leaf_class,veg_ndvip,veg_ndvic,veg_ndvif) + +use leaf_coms +use rconstants +use io_params +use mem_grid + +implicit none + +real :: leaf_class,timefac_ndvi,veg_ndvip,veg_ndvic,veg_ndvif +integer :: ifm,nveg + +nveg = nint(leaf_class) + +if (tai_max(nveg) >= .1) then + + if (iupdndvi == 0) then + timefac_ndvi = 0. + else + timefac_ndvi = (time - ndvitime1(ifm)) / (ndvitime2(ifm) - ndvitime1(ifm)) + endif + +! Time-interpolate ndvi to get current value veg_ndvic(i,j) for this patch + + veg_ndvic = veg_ndvip + (veg_ndvif - veg_ndvip) * timefac_ndvi + +! Limit ndvi to prevent values > .99 to prevent division by zero. + + if (veg_ndvic > .99) veg_ndvic = .99 + +endif + +return +END SUBROUTINE ndvi + +!############################################################################## +Subroutine veg (ifm & + ,leaf_class,veg_fracarea,veg_lai,veg_tai,veg_rough & + ,veg_height,veg_albedo,veg_ndvic) + +use leaf_coms +use rconstants +use io_params +use mem_grid + +implicit none + +integer :: ifm +real :: leaf_class,veg_fracarea,veg_lai,veg_tai,veg_rough & + ,veg_height,veg_albedo,veg_ndvic + +integer :: nveg +integer, save :: nvcall = 0 + +real :: sr,fpar,dead_lai,green_frac +real, save :: sr_min=1.081,fpar_min=.001,fpar_max=.950,fpcon=-.3338082 +real, save :: bz=.91,hz=.0075,extinc_veg=.5 + +! leaf_class numbers start at zero +real, dimension(0:nvtyp), save :: dfpardsr + +! Initialize dfpardsr array + +if (nvcall == 0) then + nvcall = 1 + do nveg = 0,nvtyp + dfpardsr(nveg) = (fpar_max - fpar_min) / (sr_max(nveg) - sr_min) + enddo +endif + +! Compute LAI, vegetation roughness, albedo, vegfrac from time-dependent NDVI + +nveg = nint(leaf_class) + +if (tai_max(nveg) < .1) then + + veg_lai = 0. + veg_tai = 0. + veg_rough = 0. + veg_albedo = 0. + veg_fracarea = 0. + +else + +! Compute "simple ratio" and limit between sr_min and sr_max(nveg). + + sr = (1. + veg_ndvic) / (1. - veg_ndvic) + + if (sr < sr_min) then + sr = sr_min + elseif (sr > sr_max(nveg)) then + sr = sr_max(nveg) + endif + +! Compute fpar + + fpar = fpar_min + (sr - sr_min) * dfpardsr(nveg) + +! Compute green leaf area index (veg_lai), dead leaf area index (dead_lai), +! total area index (tai), and green fraction + + veg_lai = glai_max(nveg) * (veg_clump(nveg) * fpar / fpar_max & + + (1. - veg_clump(nveg)) * alog(1. - fpar) * fpcon) + + dead_lai = (glai_max(nveg) - veg_lai) * dead_frac(nveg) + veg_tai = veg_lai + sai(nveg) + dead_lai + green_frac = veg_lai / veg_tai + +! Compute vegetation roughness height, albedo, and fractional area + + veg_rough = veg_height * (1. - bz * exp(-hz * veg_tai)) + veg_albedo = albv_green(nveg) * green_frac & + + albv_brown(nveg) * (1. - green_frac) + veg_fracarea = veg_frac(nveg) * (1. - exp(-extinc_veg * veg_tai)) + +endif + +return +END SUBROUTINE veg + +! Remaining issues: +! +! 1. Relationship between clumping, V, vegfrac +! 2. Impact of V on radiation +! 3. Put in 900 second response time for rc? +! 4. Build lookup tables, especially for things with exponentials? + +!############################################################################## +Subroutine sfcrad (mzg,mzs,ip & + ,soil_energy,soil_water,soil_text,sfcwater_energy,sfcwater_depth & + ,patch_area,can_temp,veg_temp,leaf_class,veg_height,veg_fracarea & + ,veg_albedo,sfcwater_nlev,rshort,rlong,albedt,rlongup,cosz) + +use mem_leaf +use leaf_coms +use rconstants +use mem_scratch + +implicit none + +integer :: mzg,mzs,ip +real, dimension(mzg) :: soil_energy,soil_water,soil_text +real, dimension(mzs) :: sfcwater_energy,sfcwater_depth +real :: patch_area,can_temp,veg_temp,leaf_class,veg_height,veg_fracarea & + ,veg_albedo,sfcwater_nlev,rshort,rlong,albedt,rlongup,cosz + +integer :: k,nsoil,nveg,ksn +real :: alb,vfc,fcpct,alg,rad,als,fractrans,absg,algs,emv,emgs,gslong,vlong,alv + +! This routine is called by the radiation parameterization and by leaf. +! It computes net surface albedo plus radiative exchange between the +! atmosphere, vegetation, and the snow/ground given previously computed +! downward longwave and shortwave fluxes from the atmosphere. +! Also computed are func of snowcover that are required for the above +! radiation calculations as well as other calculations in leaf. + +! The shortwave parameterizations are only valid if the cosine of the zenith +! angle is greater than .03 . Water albedo from Atwater and Bell (1981) + +! alg, als, and alv are the albedos of the ground, snow, and vegetation +! (als needs a better formula based on age of the surface snow). + +! absg and vctr32 are the actual fractions of shortwave incident on snow +! plus ground that get absorbed by the ground and each snow layer, +! respectively. They currently use the variable fractrans, which is the +! fraction of light transmitted through each layer based on mass per square +! meter. algs is the resultant albedo from snow plus ground. + +if (ip == 1) then + if (cosz > .03) then + alb = min(max(-.0139 + .0467 * tan(acos(cosz)),.03),.999) + albedt = albedt + patch_area * alb + endif + CALL qtk (soil_energy(mzg),tempk(mzg),fracliq(mzg)) + rlongup = rlongup + patch_area * stefan * tempk(mzg) ** 4 + +elseif (isfcl == 0) then + + albedt = albedt + patch_area * albedo + rlongup = rlongup + patch_area * stefan * can_temp ** 4 + +else + +! Diagnose soil temperature and liquid fraction + + do k = 1,mzg + nsoil = nint(soil_text(k)) + CALL qwtk (soil_energy(k),soil_water(k)*1.e3 & + ,slcpd(nsoil),tempk(k),fracliq(k)) + enddo + +! Diagnose snow temperature and the influence of snow covering veg. + + nveg = nint(leaf_class) + ksn = nint(sfcwater_nlev) + snowfac = 0. + do k = 1,ksn + snowfac = snowfac + sfcwater_depth(k) + CALL qtk (sfcwater_energy(k),tempk(k+mzg),fracliq(k+mzg)) + enddo + snowfac = min(.99, snowfac / max(.001,veg_height)) + + vf = veg_fracarea * (1. - snowfac) + vfc = 1. - vf + +! Shortwave radiation calculations + + nsoil = nint(soil_text(mzg)) + fcpct = soil_water(mzg) / slmsts(nsoil) + if (fcpct > .5) then + alg = .14 + else + alg = .31 - .34 * fcpct + endif + alv = veg_albedo + + rad = 1. + if (ksn > 0) then + +! als = .14 (the wet soil value) for all-liquid + + als = .5 - .36 * fracliq(ksn+mzg) + rad = 1. - als + endif + do k = ksn,1,-1 + fractrans = exp(-20. * sfcwater_depth(k)) + vctr32(k) = rad * (1. - fractrans) + rad = rad * fractrans + enddo + absg = (1. - alg) * rad + algs = 1. - absg + do k = ksn,1,-1 + algs = algs - vctr32(k) + rshort_s(k) = rshort * vfc * vctr32(k) + enddo + rshort_g = rshort * vfc * absg + rshort_v = rshort * vf * (1. - alv + vfc * algs) +! rshort_a = rshort * (vf * alv + vfc * vfc * algs) + + alb = vf * alv + vfc * vfc * algs + albedt = albedt + patch_area * alb + +! Longwave radiation calculations + + emv = emisv(nveg) + emgs = emisg(nsoil) + if (ksn > 0) emgs = 1.0 + gslong = emgs * stefan * tempk(ksn+mzg) ** 4 + vlong = emv * stefan * veg_temp ** 4 + + rlonga_v = rlong * vf * (emv + vfc * (1. - emgs)) + rlonga_gs = rlong * vfc * emgs + rlongv_gs = vlong * vf * emgs + rlongv_a = vlong * vf * (2. - emgs - vf + emgs * vf) + rlonggs_v = gslong * vf * emv + rlonggs_a = gslong * vfc + rlonga_a = rlong * (vf * (1. - emv) + vfc * vfc * (1. - emgs)) + + rlongup = rlongup + patch_area * (rlongv_a + rlonggs_a + rlonga_a) + +!************************************************************************ +! In case rlong is not computed, zero out all longwave fluxes other +! than rlongup. [On the first timestep, radiative fluxes may not +! be available until microphysics is called, and zeroing these fluxes +! prevents imbalance of having upward longwave without downward longwave +! in LEAF-2. Also, this allows LEAF-2 to run without radiation for all +! timesteps, if desired for testing.] + + if (rlong < .1) then + rlonga_v = 0. + rlonga_gs = 0. + rlongv_gs = 0. + rlongv_a = 0. + rlonggs_v = 0. + rlonggs_a = 0. + rlonga_a = 0. + endif + +endif + +return +END SUBROUTINE sfcrad diff --git a/src/6.2.16/surface/leaf3_slayer.f90 b/src/6.2.16/surface/leaf3_slayer.f90 new file mode 100644 index 0000000..6553547 --- /dev/null +++ b/src/6.2.16/surface/leaf3_slayer.f90 @@ -0,0 +1,122 @@ +!############################################################################## +Subroutine stars (ustar,tstar,rstar,ths,rvs,thetacan,can_rvap,zts,patch_rough & + ,vels_pat,dtllohcc,dens,dtll) + +use rconstants + +implicit none + +real :: ustar,tstar,rstar,ths,rvs,thetacan,can_rvap,zts,patch_rough & + ,vels_pat,dtllohcc,dens,dtll +real :: b,csm,csh,d,a2,c1,ri,fm,fh,c2,cm,ch,c3 +real :: d_vel,d_veln,vel_new,delz,tstaro,d_theta,d_thetan,theta_new +real, parameter :: ustmin = .1 + +! Routine to compute Louis (1981) surface layer parameterization. + +b = 5. +csm = 7.5 +csh = 5. +d = 5. + +! a2 is the drag coefficient in neutral conditions, here same for h/m. +! ri is the bulk richardson numer, eq. 3.45 in Garratt. +! fm,fh are stability functions in various forms. +! However, a2*fm, a2*fh appear to be what Louis(1981) calls drag +! or transfer coefficients. + +a2 = (vonk / log(zts / patch_rough)) ** 2 +c1 = a2 * vels_pat +ri = 9.8 * zts * (ths - thetacan) & + / (.5 * (ths + thetacan) * vels_pat * vels_pat) + +if (ths - thetacan > 0.) then ! STABLE CASE + fm = 1. / (1. + (2 * b * ri / sqrt(1 + d * ri))) + fh = 1. / (1. + (3 * b * ri * sqrt(1 + d * ri))) +else ! UNSTABLE CASE + c2 = b * a2 * sqrt(zts / patch_rough * (abs(ri))) + cm = csm * c2 + ch = csh * c2 + fm = (1. - 2 * b * ri / (1. + 2 * cm)) + fh = (1. - 3 * b * ri / (1. + 3 * ch)) +endif + +ustar = max(ustmin,sqrt(c1 * vels_pat * fm)) +c3 = c1 * fh / ustar +rstar = c3 * (rvs - can_rvap) +tstar = c3 * (ths - thetacan) + +! Limit ustar so that the flux cannot take more than 1/2 velocity in a timestep +delz = 2.*zts +d_vel = - ustar * ustar * dtll / delz +vel_new = vels_pat + d_vel +if(vel_new < .5 * vels_pat) then + d_veln = .5 * vels_pat + ustar = sqrt(d_veln * delz / dtll) +endif + +! Limit tstar and rstar so that the direction of the gradients cannot change +! sign due to the fluxes - also dampen solution for stability +tstaro = tstar +delz = 2.*zts +d_theta = dtllohcc * dens * cp * ustar * tstar +theta_new = thetacan + d_theta +if(thetacan < ths) then ! STABLE CASE + if(theta_new > ths) then + d_thetan = ths - thetacan + tstar = .75 * d_thetan / (dtllohcc * dens * cp * ustar) + endif +else ! UNSTABLE CASE + if(theta_new < ths) then + d_thetan = ths - thetacan + tstar = .75 * d_thetan / (dtllohcc * dens * cp * ustar) + endif +endif + +return +END SUBROUTINE stars + +!############################################################################## +Subroutine sfclmcv (ustar,tstar,rstar,vels_pat,ups,vps,gzotheta,patch_area & + ,sflux_u,sflux_v,sflux_w,sflux_t,sflux_r) +! +---------------------------------------------------------------+ +! \ This routine computes the turbulent fluxes of momentum, \ +! \ heat and moisture from the surface layer using the \ +! \ Manton-Cotton algebraic surface layer equations. \ +! +---------------------------------------------------------------+ + +use rconstants + +implicit none + +real :: ustar,tstar,rstar,vels_pat,ups,vps,gzotheta,patch_area & + ,sflux_u,sflux_v,sflux_w,sflux_t,sflux_r,zoverl + +real :: wtol,cosine1,sine1,vtscr,cx,psin + +data wtol/1e-20/ + +cosine1 = ups / vels_pat +sine1 = vps / vels_pat + +vtscr = ustar * patch_area + +sflux_u = sflux_u - ustar * vtscr * cosine1 +sflux_v = sflux_v - ustar * vtscr * sine1 +sflux_t = sflux_t - tstar * vtscr +sflux_r = sflux_r - rstar * vtscr + +zoverl = gzotheta * vonk * tstar / (ustar * ustar) + +if (zoverl < 0.)then + cx = zoverl * sqrt(sqrt(1. - 15. * zoverl)) +else + cx = zoverl / (1.0 + 4.7 * zoverl) +endif + +psin = sqrt((1.-2.86 * cx) / (1. + cx * (-5.39 + cx * 6.998 ))) +sflux_w = sflux_w + (0.27 * max(6.25 * (1. - cx) * psin,wtol) & + - 1.18 * cx * psin) * ustar * vtscr + +return +END SUBROUTINE sfclmcv diff --git a/src/6.2.16/surface/leaf3_soilveg.f90 b/src/6.2.16/surface/leaf3_soilveg.f90 new file mode 100644 index 0000000..12c1d55 --- /dev/null +++ b/src/6.2.16/surface/leaf3_soilveg.f90 @@ -0,0 +1,429 @@ +!############################################################################## +Subroutine leaftw (mzg,mzs & + ,soil_water ,soil_energy ,soil_text & + ,sfcwater_mass ,sfcwater_energy ,sfcwater_depth & + ,ustar ,tstar ,rstar & + ,veg_fracarea ,veg_lai ,veg_tai & + ,veg_rough ,veg_height ,leaf_class & + ,soil_rough ,sfcwater_nlev ,stom_resist & + ,ground_rsat ,ground_rvap ,veg_water & + ,veg_temp ,can_rvap ,can_temp & + ,rshort,ip,i,j) + +use leaf_coms +use mem_leaf +use rconstants +use mem_scratch + +implicit none + +integer :: mzg,mzs,ip,i,j + +real, dimension(mzg) :: soil_water,soil_energy,soil_text +real, dimension(mzs) :: sfcwater_mass,sfcwater_energy,sfcwater_depth + +real :: ustar ,tstar ,rstar & + ,veg_fracarea ,veg_lai ,veg_tai & + ,veg_rough ,veg_height ,leaf_class & + ,soil_rough ,sfcwater_nlev ,stom_resist & + ,ground_rsat ,ground_rvap ,veg_water & + ,veg_temp ,can_rvap ,can_temp & + ,rshort + +integer :: k,nveg,ksn,nsoil,ksnnew,newlayers,nlayers,kold,ktrans,nsl,kzs +integer, save :: ncall=0 + +!----------------------------------------------------------------------------- +! parameters for new soil heat conductivity (8/17/00): Move to sfcdata later +real, dimension(12) :: soilcond0,soilcond1,soilcond2 +data soilcond0/ 0.30, 0.30, 0.29, 0.27, 0.28, 0.28 & + ,0.26, 0.27, 0.27, 0.25, 0.25, 0.06/ +data soilcond1/ 4.80, 4.66, 4.27, 3.47, 3.63, 3.78 & + ,2.73, 3.23, 3.32, 2.58, 2.40, 0.46/ +data soilcond2/-2.70,-2.60,-2.31,-1.74,-1.85,-1.96 & + ,-1.20,-1.56,-1.63,-1.09,-0.96, 0.00/ +!----------------------------------------------------------------------------- + +real :: stretch,thik,snden,vegfracc,qwfree,wfree & + ,depthgain,totsnow,qw,w,qwt,wt,soilhcap,fac,wfreeb,depthloss,soilcap & + ,sndenmax,sndenmin,snowmin,wtnew,wtold,wdiff,watermid,availwat,wg & + ,wloss,soilcond,waterfrac + +real, save, dimension(20) :: thicknet +real, save, dimension(20,20) :: thick + +do k = 1,mzg + dslz (k) = slz(k+1) - slz(k) + dslzi (k) = 1. / dslz(k) + dslzidt(k) = dslzi(k) * dtll + slzt (k) = .5 * (slz(k) + slz(k+1)) +enddo + +do k = 2,mzg + dslzt (k) = slzt(k) - slzt(k-1) + dslzti (k) = 1. / dslzt(k) + dslztidt(k) = dslzti(k) * dtll +enddo + +! Initialize snow thickness scaling array + +if (ncall /= 40) then + ncall = 40 + stretch = 2.0 + do kzs = 1,mzs + thik = 1.0 + thicknet(kzs) = 0.0 + do k = 1,(kzs+1)/2 + thick(k,kzs) = thik + thick(kzs+1-k,kzs) = thik + thicknet(kzs) = thicknet(kzs) + 2. * thik + thik = thik * stretch + enddo + if ((kzs+1)/2 /= kzs/2) thicknet(kzs) = thicknet(kzs) - thik/stretch + do k = 1,kzs + thick(k,kzs) = thick(k,kzs) / thicknet(kzs) + enddo + enddo +endif + +nveg = nint(leaf_class) +ksn = nint(sfcwater_nlev) + +! Evaluate any exchanges of heat and moisture to or from vegetation, apply +! moisture and heat changes to vegetation, and evaluate the resistance +! parameter rd between canopy air and the top soil or snow surface. + +CALL canopy (mzg,mzs,ksn,nveg & + ,soil_water,soil_text,sfcwater_mass & + ,ustar,tstar,rstar,soil_rough,veg_rough,veg_height & + ,veg_lai,veg_tai,veg_water,veg_temp,leaf_class & + ,stom_resist,can_temp,can_rvap,ground_rsat,ground_rvap,rshort) + +! Compute soil and effective snow heat resistance times layer depth (rfactor). + +do k = 1,mzg + nsoil = nint(soil_text(k)) + waterfrac = soil_water(k) / slmsts(nsoil) + soilcond = soilcond0(nsoil) & + + waterfrac * (soilcond1(nsoil) + waterfrac * soilcond2(nsoil)) + rfactor(k) = dslz(k) / soilcond +enddo + +do k = 1,ksn + snden = sfcwater_mass(k) / sfcwater_depth(k) + rfactor(k+mzg) = sfcwater_depth(k) & + / (1.093e-3 * exp(.028 * tempk(k+mzg)) * (.030 + snden & + * (.303e-3 + snden * (-.177e-6 + snden * 2.25e-9)))) +enddo + +! Find soil and snow internal sensible heat fluxes [W/m2] + +hfluxgsc(1) = 0. + +do k = 2,mzg+ksn + hfluxgsc(k) = - (tempk(k) - tempk(k-1)) / ((rfactor(k) + rfactor(k-1)) * .5) +enddo + +! Heat flux at soil or snow top from longwave, sensible, and +! upward latent heat fluxes [W/m^2] + +hfluxgsc(ksn+1+mzg) = hflxgc + wflxgc * alvl - rlonga_gs & + - rlongv_gs + rlonggs_v + rlonggs_a + +! Update soil Q values [J/m3] and snow Q values [J/kg] from sensible heat, +! upward water vapor (latent heat), longwave, and shortwave fluxes. +! This excludes effects of dew/frost formation, precipitation, shedding, +! and percolation. Update top soil or snow moisture from evaporation only. + +do k = 1,mzg + soil_energy(k) = soil_energy(k) + dslzidt(k) * (hfluxgsc(k) - hfluxgsc(k+1)) +enddo + +soil_energy(mzg) = soil_energy(mzg) + dslzidt(mzg) * rshort_g + +do k = 1,ksn + sfcwater_energy(k) = sfcwater_energy(k) + dtll & + * (hfluxgsc(k+mzg) - hfluxgsc(k+1+mzg) + rshort_s(k)) / sfcwater_mass(k) +enddo + +if (ksn == 0) then + soil_water(mzg) = soil_water(mzg) - 1.e-3 * wflxgc * dslzidt(mzg) +else + sfcwater_mass(ksn) = max(0.,sfcwater_mass(ksn) - wflxgc * dtll) +endif + +! New moisture, qw, and depth from dew/frost formation, precipitation, +! shedding, and percolation. ksnnew is the layer that receives the new +! condensate that comes directly from the air above. If there is no +! pre-existing snowcover, this is a temporary "snow" layer. + +if (pcpgl + wshed + dewgnd > 1.e-9) then + ksnnew = max(ksn,1) + vegfracc = 1. - veg_fracarea + qwfree = dewgnd * alvl + qpcpgl * vegfracc + qwshed * veg_fracarea + wfree = dewgnd + pcpgl * vegfracc + wshed * veg_fracarea + depthgain = dpcpgl * vegfracc + (dewgnd + wshed) * veg_fracarea * .001 +else + ksnnew = ksn + qwfree = 0. + wfree = 0. + depthgain = 0. +endif + +if (ksnnew > 0) then + +! Transfer water downward through snow layers by percolation. +! Fracliq is the fraction of liquid in the snowcover or surface water. wfree +! is the quantity of that liquid in kg/m2 which is free (not attached to +! snowcover) and therefore available to soak into the layer below). +! soilcap is the capacity of the top soil layer in kg/m2 to accept surface +! water. wfree in the lowest snow layer is limited by this value. + + totsnow = 0. + nsoil = nint(soil_text(mzg)) + + do k = ksnnew,1,-1 + qw = sfcwater_energy(k) * sfcwater_mass(k) + qwfree + w = sfcwater_mass(k) + wfree + +! If (only) snow layer is too thin for computational stability, bring +! it to thermal equilibrium with the top soil layer by exchanging +! heat between them. + + if (ksnnew == 1 .and. sfcwater_mass(k) < 3.) then + qwt = qw + soil_energy(mzg) * dslz(mzg) + wt = w + soil_water(mzg) * 1.e3 * dslz(mzg) + soilhcap = slcpd(nsoil) * dslz(mzg) + CALL qwtk (qwt,wt,soilhcap,tempk(k+mzg),fracliq(k+mzg)) + fac = 4186. + if (fracliq(k+mzg) <= .0001) fac = 2093. + qw = (fac * (tempk(k+mzg) - 273.15) + fracliq(k+mzg) * 334000.) * w + tempk(mzg) = tempk(k+mzg) + fracliq(mzg) = fracliq(k+mzg) + soil_energy(mzg) = (qwt - qw) * dslzi(mzg) + else + CALL qwtk (qw,w,100.,tempk(k+mzg),fracliq(k+mzg)) + endif + +! Shed liquid in excess of a 1:9 liquid-to-ice ratio. Limit this shed amount +! (wfreeb) in lowest snow layer to amount top soil layer can hold. + + wfreeb = max (0.,w * (fracliq(k+mzg) - .1) / 0.9) + depthloss = wfreeb * 1.e-3 + if (k == 1) then + soilcap = 1.e3 * max (0.,-slz(mzg) * (slmsts(nsoil) - soil_water(mzg))) + wfreeb = min (wfreeb, soilcap) + qwfree = wfreeb * 4186. * (tempk(k+mzg) - 193.36) + soil_water(mzg) = soil_water(mzg) + 1.e-3 * wfreeb * dslzi(mzg) + soil_energy(mzg) = soil_energy(mzg) + qwfree * dslzi(mzg) + endif + qwfree = wfreeb * 4186. * (tempk(k+mzg) - 193.36) + sfcwater_mass(k) = w - wfreeb + sfcwater_depth(k) = sfcwater_depth(k) + depthgain - depthloss + + totsnow = totsnow + sfcwater_mass(k) + sfcwater_energy(k) = (qw - qwfree) / (max(1.e-4,sfcwater_mass(k))) + sfcwater_energy(k) = max (-1.6e5, min (4.8e5, sfcwater_energy(k))) + +! Temporary simple evolution of snow layer depth and density + + sfcwater_depth(k) = sfcwater_depth(k) * (1. - dtll / 1.e5) + snden = sfcwater_mass(k) / max(1.e-6,sfcwater_depth(k)) + sndenmax = 1000. + sndenmin = max(30.,200. * (wfree + wfreeb) / max(1.e-9,sfcwater_mass(k))) + snden = min (sndenmax, max (sndenmin, snden)) + sfcwater_depth(k) = sfcwater_mass(k) / snden + wfree = wfreeb + depthgain = depthloss + enddo + +! Re-distribute snow layers to maintain prescribed distribution of mass + + if (totsnow < 1.e-9) then + sfcwater_nlev = 0. + sfcwater_mass(1) = 0. + sfcwater_energy(1) = 0. + sfcwater_depth(1) = 0. + else + nlayers = ksnnew + snowmin = 3.0 + newlayers = 1 + do k = 2,mzs + if (snowmin * thicknet(k) <= totsnow .and. & + sfcwater_energy(k) < 334000.) newlayers = newlayers + 1 + enddo + newlayers = min (newlayers, mzs, nlayers+1) + sfcwater_nlev = float(newlayers) + kold = 1 + wtnew = 1. + wtold = 1. + do k = 1,newlayers + vctr14(k) = totsnow * thick(k,newlayers) + vctr16(k) = 0. + vctr18(k) = 0. +10 continue + wdiff = wtnew * vctr14(k) - wtold * sfcwater_mass(kold) + if (wdiff > 0.) then + vctr16(k) = vctr16(k) + wtold * sfcwater_mass(kold) & + * sfcwater_energy(kold) + vctr18(k) = vctr18(k) + wtold * sfcwater_depth(kold) + wtnew = wtnew - wtold * sfcwater_mass(kold) / vctr14(k) + kold = kold + 1 + wtold = 1. + if (kold <= ksn) go to 10 + else + vctr16(k) = vctr16(k) + wtnew * vctr14(k) * sfcwater_energy(kold) + vctr18(k) = vctr18(k) + wtnew * vctr14(k) * sfcwater_depth(kold) & + / max(1.e-9,sfcwater_mass(kold)) + wtold = wtold - wtnew * vctr14(k) / sfcwater_mass(kold) + wtnew = 1. + endif + enddo + + do k = 1,newlayers + sfcwater_mass(k) = vctr14(k) + sfcwater_energy(k) = vctr16(k) / sfcwater_mass(k) + sfcwater_depth(k) = vctr18(k) + enddo + + endif +endif + +! Compute gravitational potential plus moisture potential z + psi [m], +! liquid water content [m], and half the remaining water capacity [m]. + +do k = 1,mzg + nsoil = nint(soil_text(k)) + psiplusz(k) = slzt(k) + slpots(nsoil) & + * (slmsts(nsoil) / soil_water(k)) ** slbs(nsoil) + soil_liq(k) = dslz(k) * min(soil_water(k) - soilcp(nsoil) & + ,soil_water(k) * fracliq(k) ) + half_soilair(k) = (slmsts(nsoil) - soil_water(k)) * dslz(k) * .5 +enddo + +! Find amount of water transferred between soil layers (wflux) [m] +! modulated by the liquid water fraction + +wflux(1) = 0. +wflux(mzg+1) = 0. +qwflux(1) = 0. +qwflux(mzg+1) = 0. + +do k = 2,mzg + nsoil = nint(soil_text(k)) + watermid = 0.5 * (soil_water(k) + soil_water(k-1)) + wflux(k) = dslztidt(k) * slcons1(k,nsoil) & + * (watermid / slmsts(nsoil)) ** (2. * slbs(nsoil) + 3.) & + * (psiplusz(k-1) - psiplusz(k)) * .5 * (fracliq(k) + fracliq(k-1)) + +! Limit water transfers to prevent over-saturation and over-depletion +! Compute q transfers between soil layers (qwflux) [J/m2] + + if (wflux(k) > 0.) then + wflux(k) = min(wflux(k),soil_liq(k-1),half_soilair(k)) + else + wflux(k) = - min(-wflux(k),soil_liq(k),half_soilair(k-1)) + endif + + qwflux(k) = wflux(k) * 4.186e6 * (tempk(k) - 193.36) + +enddo + +! Update soil moisture (impose minimum value of soilcp) and q value. + +do k = 1,mzg + nsoil = nint(soil_text(k)) + soil_water(k) = min(slmsts(nsoil), max(soilcp(nsoil) & + ,soil_water(k)- dslzi(k) * (wflux(k+1) - wflux(k)))) + ! Limit soil moisture to the saturation level + if (soil_water(k) > slmsts(nsoil)) then + soil_water(k) = min(slmsts(nsoil),soil_water(k)) + endif + soil_energy(k) = soil_energy(k) - dslzi(k) * (qwflux(k+1) - qwflux(k)) +enddo + +! Remove water only from moistest level in root zone for transpiration. +! Bottom k-index in root zone is kroot(nveg). Limit soil moisture +! to values above soilcp. More sophisticated use of root +! profile func and water extractibility func, and +! improved minimum value are being considered. +! Units of wloss are m3/m3, of transp are kg/m2/s. + +wg = 0. +nsl = nint(soil_text(mzg)) +ktrans = mzg +do k = kroot(nveg),mzg + nsoil = nint(soil_text(k)) + availwat = soil_water(k) * fracliq(k) + if (wg < availwat) then + wg = availwat + ktrans = k + nsl = nsoil + endif +enddo + +wloss = min(transp * dslzidt(ktrans) * 1.e-3,wg & + ,soil_water(ktrans) - soilcp(nsl)) + +soil_water(ktrans) = soil_water(ktrans) - wloss +soil_energy(ktrans) = soil_energy(ktrans) & + - wloss * 4.186e6 * (tempk(ktrans) - 193.36) + +! Compute ground vap mxrat for availability on next timestep; put into +! ground_rsat. +CALL grndvap (mzs,soil_energy(mzg),soil_water(mzg),soil_text(mzg) & + ,sfcwater_energy,sfcwater_nlev,ground_rsat & + ,ground_rvap,can_rvap,prss,i,j) + +return +END SUBROUTINE leaftw + +!############################################################################## +Subroutine grndvap (mzs,soil_energy,soil_water,soil_text,sfcwater_energy & + ,sfcwater_nlev,ground_rsat,ground_rvap,can_rvap,prsg,i,j) + +use leaf_coms +use rconstants + +implicit none + +integer :: mzs +real :: soil_energy,soil_water,soil_text +real :: sfcwater_nlev,ground_rsat,ground_rvap,can_rvap,prsg +real, dimension(mzs) :: sfcwater_energy + +integer :: ksn,nsoil,i,j + +real :: gdrm,tempkk,fracliqq,slpotvn,alpha,beta +real, external :: rslif + +gdrm = g / rm + +ksn = nint(sfcwater_nlev) + +! ground_rsat(i,j) is the saturation mixing ratio of the top soil/snow surface +! and is used for dew formation and snow evaporation. + +if (ksn > 0) then + CALL qtk (sfcwater_energy(ksn),tempkk,fracliqq) + ground_rsat = rslif(prsg,tempkk) +else + +! Without snowcover, ground_rvap is the effective saturation mixing +! ratio of soil and is used for soil evaporation. First, compute the +! "alpha" term or soil "relative humidity" and the "beta" term. + + nsoil = nint(soil_text) + + CALL qwtk (soil_energy,soil_water*1.e3,slcpd(nsoil),tempkk,fracliqq) + ground_rsat = rslif(prsg,tempkk) + + slpotvn = slpots(nsoil) * (slmsts(nsoil) / soil_water) ** slbs(nsoil) + alpha = exp(gdrm * slpotvn / tempkk) + beta = .25 * (1. - cos (min(1.,soil_water / sfldcap(nsoil)) * 3.14159)) ** 2 + ground_rvap = ground_rsat * alpha * beta + (1. - beta) * can_rvap + +endif + +return +END SUBROUTINE grndvap diff --git a/src/6.2.16/surface/leaf_coms.f90 b/src/6.2.16/surface/leaf_coms.f90 new file mode 100644 index 0000000..d6f8528 --- /dev/null +++ b/src/6.2.16/surface/leaf_coms.f90 @@ -0,0 +1,109 @@ +!############################################################################## +Module leaf_coms + +use grid_dims + +implicit none + +integer :: & + niter_leaf & ! number of leaf timesteps in model long timestep + ,niter_can & ! number of canopy timesteps in leaf timestep + ,ifreeslip ! flag for freeslip surface BC (set sflux to zero) + +real :: & + dtll & ! leaf timestep + ,dtll_factor & ! leaf timestep factor (leaf timestep / model timestep) + ,dtlc & ! canopy timestep + ,dtlc_factor & ! canopy timestep factor (canopy timestep / leaf timestep) + ,hcapcan & ! canopy heat capacity + ,wcapcan & ! canopy vapor capacity + ,hcapveg & ! vegetation heat capacity + ,dtllohcc & ! leaf timestep / canopy heat capacity + ,dtllowcc & ! leaf timestep / canopy vapor capacity + ,dtlcohcc & ! canopy timestep / canopy heat capacity + ,dtlcowcc & ! canopy timestep / canopy vapor capacity + ,dtlcohcv & ! caonpy timestep / vegetation heat capacity + + ,ups & ! U velocity at top of surface layer [up(2,i,j)] + ,vps & ! V velocity at top of surface layer [vp(2,i,j)] + ,ths & ! potential temperature at top of surface layer [theta(2,i,j)] + ,rvs & ! vapor mixing ratio at top of surface layer [rv(2,i,j)] + ,zts & ! height at top of surface layer [zt(2)*rtgt(i,j)] + ,pis & ! Exner func at surface + ,dens & ! density at surface + ,prss & ! pressure at surface + ,vels & ! wind speed at top of surface layer + ,vels_pat & ! vels with patch-dependent ubmin imposed as minimum + ,gzotheta & ! (g*z/theta) at top of surface layer [for Richardson number] + ,pcpgl & ! precip mass from cuparm and/or micphys in leaf timestep + ,qpcpgl & ! precip energy from cuparm and/or micphys in leaf timestep + ,dpcpgl & ! precip depth from cuparm and/or micphys in leaf timestep + ,pcpgc & ! precip mass from cuparm and/or micphys in canopy timestep + ,qpcpgc & ! precip energy from cuparm and/or micphys in canopy timestep + ,z0fac_water & ! (.016 / g) factor of ustar^2 for z0 over water + + ,snowfac & ! fraction of vegetation height covered by sfcwater + ,vf & ! product of veg_fracarea and (1-snowfac) + ,thetacan & ! canopy air potential temperature + ,transp & ! transpiration flux [kg/m2/s] + ,snowrough & ! snowcover roughness height + ,timefac_sst & ! time interpolation factor for SST + + ,rb & ! vegetation aerodynamic resistance + ,rd & ! canopy to ground aerodynamic resistance + ,rdi & ! canopy to ground aerodynamic conductance + + ,rshort_g & ! net SW radiation absorbed by grnd + ,rshort_v & ! net SW radiation absorbed by veg + ,rshort_a & ! net SW radiation reflected to atm by veg plus grnd + + ,rlonga_v & ! net atm LW radiation absorbed by veg + ,rlonga_gs & ! net atm LW radiation absorbed by grnd OR snow + ,rlongv_gs & ! net veg LW radiation absorbed by grnd OR snow + ,rlongv_a & ! net veg LW radiation to atm + ,rlonggs_v & ! net grnd OR snow LW radiation absorbed by veg + ,rlonggs_a & ! net grnd OR snow LW radiation to atm + ,rlonga_a & ! net atm LW radiation reflected to atm by veg plus grnd OR snow + + ,hflxgc & ! sensible heat from ground to canopy (J/m2) + ,wflxgc & ! water vapor from ground to canopy (kg/m2) + ,hflxvc & ! sensible heat from vegetation to canopy (J/m2) + ,wflxvc & ! water vapor from vegetation to canopy (kg/m2) + + ,wshed & ! water shed from vegetation to ground (kg/m2) + ,qwshed & ! energy from shed water (J/m2) + ,dewgnd ! dew formation on ground (kg/m2) + +real, dimension(nzgmax+nzsmax+1) :: & + dslz & ! soil layer thickness at T point (nzg) + ,dslzi & ! (1. / soil layer thickness at T point) (nzg) + ,dslzidt & ! (dtll / soil layer thickness at T point) (nzg) + ,slzt & ! soil depth at T point (nzg) + ,dslzt & ! soil layer thickness at M point (nzg) + ,dslzti & ! (1. / soil layer thickness at M point) (nzg) + ,dslztidt & ! (dtll / soil layer thickness at M point) (nzg) + + ,rshort_s & ! net SW radiation absorbed by snow layers (nzs) + ,tempk & ! diagnosed temp (K) of soil and sfcwater (nzg+nzs) + ,fracliq & ! diagnosed liquid fraction of soil_water and sfcwater_mass (nzg+nzs) + + ,hfluxgsc & ! sensible heat flux between soil, sfcwater, canopy (nzg+nzs+1) + ,psiplusz & ! soil water potential plus geopotential [m] (nzg) + ,half_soilair & ! half of available airspace in soil [m] (nzg) + ,rfactor & ! soil, sfcwater thermal resistance (nzg+nzs) + ,wflux & ! soil water flux [m] (nzg+1) + ,soil_liq & ! soil liquid water content [m] (nzg+1) + ,qwflux ! soil energy flux from water flux [J/m2] (nzg) + +integer, parameter :: nstyp=12,nvtyp=20 + +real, dimension(nstyp) :: slcpd,slbs,sfldcap & + ,slmsts,slpots & + ,soilcp,emisg +real, dimension(0:nvtyp) :: albv_green,albv_brown,emisv,sr_max,tai_max & + ,sai,veg_clump,veg_frac,veg_ht,glai_max & + ,dead_frac,rcmin +integer, dimension(0:nvtyp) :: kroot +real, dimension(nzgmax,nstyp) :: slcons1 + +END MODULE leaf_coms diff --git a/src/6.2.16/surface/ruser.f90 b/src/6.2.16/surface/ruser.f90 new file mode 100644 index 0000000..b5f5d49 --- /dev/null +++ b/src/6.2.16/surface/ruser.f90 @@ -0,0 +1,793 @@ +!############################################################################## +Subroutine eng_params () + +use mem_grid +use io_params + +implicit none + +! Set some constants that were formerly defined in the namelist. +! This set should be changed only for special tests or with code modification. + +! Keep this list of variables in sync with broadcast_config() in mpass_init.f90 + +SSPCT = 0. ! Initial sound speed fraction (overwritten after t=0) +IMPL = 1 ! Implicit flag for acoustic model - 0=off, 1=on + +return +END SUBROUTINE eng_params + +!############################################################################## +Subroutine toptinit_user (n2,n3,ifm,topt,topzo) + +use mem_grid + +implicit none + +integer :: i,j,n2,n3,ifm,flag_on +real :: hfwid,hfwid2,hgt +real, dimension(n2,n3) :: topt,topzo + +! This routine is the intended location for a user to customize TOPT, +! the surface topography array. It is called after all other types of +! initialization of this field, so this routine has the last word. +! By default the routine makes no change to the field. The commented +! lines below serve as a template for user-designed changes; the example +! shown is the Witch of Agnesi mountain. Note that +! this routine is called for each grid separately, so attention to the +! current value of ngrid in this routine may be required by the user. + +flag_on=0 +if(flag_on==1)then + + if(ifm.eq.1)then + hfwid=100000. + hgt=10000. + hfwid2=hfwid**2 + do j=1,n3 + do i=1,n2 + topt(i,j)=hgt*hfwid2/(hfwid2+xtn(i,1)**2) + topt(i,j) = 0. + float(i) + topzo(i,j) = 0.001 + enddo + enddo + topt(5,1) = 10. + elseif(ifm.eq.2)then + endif + +endif + +return +END SUBROUTINE toptinit_user + +!############################################################################## +Subroutine sstinit_user (n2,n3,ifm,seatf) + +implicit none + +integer :: n2,n3,ifm,i,j,flag_on +real, dimension(n2,n3) :: seatf + +! This routine is the intended location for a user to customize the +! SEATP and SEATF arrays. It is called after all other types of +! initialization of these fields, so this routine has the last word. +! By default the routine makes no change to the fields. The commented +! lines below serve as a template for user-designed changes. Note that +! this routine is called for each grid separately, so attention to the +! current value of ngrid in this routine may be required by the user. + +flag_on=0 +if(flag_on==1)then + + if (ifm .eq. 1) then + do j = 1,n3 + do i = 1,n2 + seatf(i,j) = 0. + enddo + enddo + endif + +endif + +return +END SUBROUTINE sstinit_user + +!############################################################################## +Subroutine ndviinit_user (n2,n3,npat,ifm,veg_ndvif) + +implicit none + +integer :: n2,n3,ipat,npat,ifm,i,j,flag_on +real, dimension(n2,n3,npat) :: veg_ndvif + +! This routine is the intended location for a user to customize the +! NDVIP and NDVIF arrays. It is called after all other types of +! initialization of these fields, so this routine has the last word. +! By default the routine makes no change to the fields. The commented +! lines below serve as a template for user-designed changes. Note that +! this routine is called for each grid separately, so attention to the +! current value of ngrid in this routine may be required by the user. + +flag_on=0 +if(flag_on==1)then + + if (ifm .eq. 1) then + do j = 1,n3 + do i = 1,n2 + veg_ndvif(i,j,1) = 0. + veg_ndvif(i,j,2) = 0. + do ipat = 3,npat + veg_ndvif(i,j,ipat) = 0. + enddo + enddo + enddo + endif + +endif + +return +END SUBROUTINE ndviinit_user + +!############################################################################## +Subroutine sfcinit_file_user (n2,n3,nzg,npat,ifm & + ,patch_area,leaf_class,soil_text) + +use rconstants + +implicit none + +integer :: n2,n3,nzg,npat,ifm,i,j,k,ipat,flag_on +real, dimension(nzg,n2,n3,npat) :: soil_text +real, dimension(n2,n3,npat) :: patch_area,leaf_class + +! This routine is the intended location for a user to customize the +! PATCH_AREA, leaf_class, and SOIL_TEXT arrays. It is called after all +! other types of initialization of these fields, so this routine has +! the last word. By default the routine makes no change to the +! fields. The commented lines below serve as a template for user-designed +! changes. Note that this routine is called for each grid separately, so +! attention to the current value of ngrid in this routine may be required +! by the user. + +flag_on=0 +if(flag_on==1)then + + if (ifm .eq. 1) then + do j = 1,n3 + do i = 1,n2 + + patch_area(i,j,1) = 0. ! patch 1 + leaf_class(i,j,1) = 0. ! patch 1 + + patch_area(i,j,2) = 0. ! patch 2 + leaf_class(i,j,2) = 0. ! patch 2 + + do k = 1,nzg + soil_text(k,i,j,1) = 0. ! patch 1 + soil_text(k,i,j,2) = 0. ! patch 2 + enddo + + enddo + enddo + + do ipat = 3,npat + do j = 1,n3 + do i = 1,n2 + + patch_area(i,j,ipat) = 0. + leaf_class(i,j,ipat) = 0. + + do k = 1,nzg + soil_text(k,i,j,ipat) = 0. + enddo + + enddo + enddo + enddo + + endif + +endif + +return +END SUBROUTINE sfcinit_file_user + +!############################################################################## +Subroutine sfcinit_nofile_user (n1,n2,n3,mzg,mzs,npat,ifm & + ,theta,pi0,pp,rv,seatp,seatf & + ,soil_water ,soil_energy ,soil_text & + ,sfcwater_mass ,sfcwater_energy ,sfcwater_depth & + ,veg_fracarea ,veg_lai ,veg_tai & + ,veg_rough ,veg_height ,veg_albedo & + ,patch_area ,patch_rough ,leaf_class & + ,soil_rough ,sfcwater_nlev ,stom_resist & + ,ground_rsat ,ground_rvap ,veg_water & + ,veg_temp ,can_rvap ,can_temp & + ,veg_ndvip ,veg_ndvic ,veg_ndvif & + ,snow_mass ,snow_depth ,soil_moist_top & + ,soil_moist_bot ,soil_temp_top ,soil_temp_bot & + ,glat ,glon ,zot) + +use mem_grid +use mem_leaf +use leaf_coms +use io_params +use rconstants +use mem_varinit + +implicit none + +logical :: there +character(len=7) :: cgrid +character(len=strl1) :: flnm +integer :: n1,n2,n3,mzg,mzs,npat,ifm,i,j,k,ipat & + ,nveg,nsoil,initsurf,nc,runsoilingest,runsnowingest + +real :: c1,airtemp,prsv,piv,maxsoil +real :: tsoil,fice !Saleeby: add these for frozen soil computation +real, dimension(n1,n2,n3) :: theta,pi0,pp,rv +real, dimension(n2,n3) :: glat,glon,zot & + ,seatp,seatf,snow_mass,snow_depth & + ,soil_moist_top,soil_moist_bot & + ,soil_temp_top,soil_temp_bot + +real, dimension(mzg,n2,n3,npat) :: soil_water,soil_energy,soil_text +real, dimension(mzs,n2,n3,npat) :: sfcwater_mass,sfcwater_energy & + ,sfcwater_depth + +real, dimension(n2,n3,npat) :: veg_fracarea ,veg_lai ,veg_tai & + ,veg_rough & + ,veg_height ,veg_albedo ,patch_area & + ,patch_rough ,leaf_class & + ,soil_rough ,sfcwater_nlev ,stom_resist & + ,ground_rsat ,ground_rvap ,veg_water & + ,veg_temp ,can_rvap ,can_temp & + ,veg_ndvip ,veg_ndvic ,veg_ndvif + +integer :: flag_on + +! This routine fills the primary LEAF3 arrays for which standard RAMS +! data files do not exist with initial default values. Many of the +! initial values are horizontally homogeneous, although some depend on +! atmospheric conditions. The default values assigned here may be +! overridden by (1) specification from coarser grids or (2) specifying new +! values in routine sfcinit_nofile_user in the file ruser.f. + +!If this flag is turned on (==1) then proceed to override sfcinit_nofile +flag_on=0 +if(flag_on==1)then + +c1 = .5 * cpi + +! Time interpolation factor for updating SST + +if (iupdsst == 0) then + timefac_sst = 0. +else + timefac_sst = (time - ssttime1(ifm)) / (ssttime2(ifm) - ssttime1(ifm)) +endif + +!-------------------------------------------------------------------------------- +!Saleeby (4-8-2013): Ingest and check soil moisture, soil temperature, snow depth +!and snow water from varfiles. Also fill in water/land points when a disconnect +!exists between input dataset and RAMS grid. Soil moisture ingest will only +!work at initialization and not for history restarts, even if adding a grid. +!-------------------------------------------------------------------------------- +!Set soil/snow ingest flags to zero +initsurf=0 +runsoilingest=0 +runsnowingest=0 +!Check for initial start for soil/snow ingest +if(trim(runtype) == 'INITIAL' .or. trim(runtype) == 'ERROR') initsurf=1 +!Check to see which varfiles are present since these contain the soil data +if(initial==2)then + write(cgrid,'(a2,i1,a3)') '-g',ifm,'.h5' + nc=len_trim(fnames_varf(nvarffl)) + flnm=fnames_varf(nvarffl)(1:nc-4)//trim(cgrid) + inquire(file=trim(flnm),exist=there) +endif +!Set flag for soil ingest +if(isoildat==1 .and. initsurf==1 .and. initial==2 .and. there) runsoilingest=1 +!Set flag for snow ingest +if(isnowdat==1 .and. initsurf==1 .and. initial==2 .and. there) runsnowingest=1 +!Print indication of using soil and snow from varfiles +if(runsoilingest==1 .or. runsnowingest==1)then + if(iprntstmt>=1 .and. print_msg)then + print*,'-------------------------------------------------------' + print*,'SETTING UP SOIL AND SNOW LEVEL VARIABLES ON GRID:',IFM + print*,'-------------------------------------------------------' + endif +endif !end if soil moisture ingest from varfile + +!Initialize surface properties +do j = 1,n3 + do i = 1,n2 + piv = c1 * (pi0(1,i,j) + pi0(2,i,j) & + + pp(1,i,j) + pp(2,i,j)) + airtemp = theta(2,i,j) * piv + prsv = piv ** cpor * p00 + + patch_rough(i,j,1) = 0.001 + can_temp(i,j,1) = airtemp + can_rvap(i,j,1) = rv(2,i,j) + + soil_energy(mzg,i,j,1) = 334000. & + + 4186. * (seatp(i,j) + (seatf(i,j) - seatp(i,j)) & + * timefac_sst - 273.15) + + !Loop over patches + do ipat = 2,npat + + nveg = nint(leaf_class(i,j,ipat)) + + soil_rough(i,j,ipat) = zrough + patch_rough(i,j,ipat) = max(zrough,zot(i,j)) + veg_rough(i,j,ipat) = .13 * veg_ht(nveg) + + veg_height(i,j,ipat) = veg_ht(nveg) + veg_albedo(i,j,ipat) = albv_green(nveg) + stom_resist(i,j,ipat) = 1.e6 + + veg_temp(i,j,ipat) = airtemp + can_temp(i,j,ipat) = airtemp + + veg_water(i,j,ipat) = 0. + can_rvap(i,j,ipat) = rv(2,i,j) + + !Loop over soil layers + do k = 1,mzg + + nsoil = nint(soil_text(k,i,j,ipat)) + soil_water(k,i,j,ipat) = max(soilcp(nsoil),slmstr(k) * slmsts(nsoil)) + + !Saleeby(4-9-2013):If using variable soil initialization from ingest data + if(runsoilingest==1)then + if(k==mzg) then + soil_water(k,i,j,ipat) = max(soilcp(nsoil),soil_moist_top(i,j)) + else + soil_water(k,i,j,ipat) = max(soilcp(nsoil),soil_moist_bot(i,j)) + endif + endif + + !For persistent wetlands (bogs, marshes, fens, swamps) and irrigated + !crops, initialize with saturated soil. Currently, this corresponds to + !leaf classes 16, 17, and 20. + if (nint(leaf_class(i,j,ipat)) == 16 .or. & + nint(leaf_class(i,j,ipat)) == 17 .or. & + nint(leaf_class(i,j,ipat)) == 20) then + soil_water(k,i,j,ipat) = slmsts(nsoil) + endif + + !Limit soil water fraction maximum for soil type. Need to do this + !since input soil water from gridded data can differ from RAMS due + !to differences in soil classes and soil porosity. + if(isfcl==2) & + soil_water(k,i,j,ipat) = min(slmsts(nsoil),soil_water(k,i,j,ipat)) + + !By default, initialize soil internal energy at a temperature equal + !to airtemp + stgoff(k) and with all water assumed to be liquid. If + !the temperature is initially below 0C, this will immediately adjust + !to soil at 0C with part ice. In order to begin with partially or + !totally frozen soil, reduce or remove the latent-heat-of-fusion + !term (the one with the factor of 3.34) from soil_energy below. If + !the soil is totally frozen and the temperature is below zero C, the + !factor of 4.186 should be changed to 2.093 to reflect the reduced + !heat capacity of ice compared to liquid. These changes may be + !alternatively be done in routine sfcinit_user in ruser.f + + !Saleeby: Old Method sometimes allows surface runaway cooling! + !soil_energy(k,i,j,ipat) = (airtemp - 273.15 + stgoff(k)) & + ! * (slcpd(nsoil) + soil_water(k,i,j,ipat) * 4.186e6) & + ! + soil_water(k,i,j,ipat) * 3.34e8 + + !************************************************************* + !Saleeby: New Method allows for tsoil < 0C and set initial soil + ! ice fraction (fice) to zero + tsoil = (airtemp - 273.15 + stgoff(k)) + + !Saleeby(4-9-2013):If we are ingesting soil temperature from varfiles + if(runsoilingest==1)then + if(k==mzg) then + tsoil=max(tsoil,soil_temp_top(i,j)-273.15) + else + tsoil=max(tsoil,soil_temp_bot(i,j)-273.15) + endif + endif + + fice = 0.0 + !For soil temperature > 0C + if (tsoil.gt.0.) then + soil_energy(k,i,j,ipat) = tsoil & + * (slcpd(nsoil) + soil_water(k,i,j,ipat) * 4.186e6) & + + soil_water(k,i,j,ipat) * 3.34e8 + !For soil temperature <= 0C + elseif (tsoil.le.0.) then + !This soil ice fraction should be improved + !Just a linear computation with fice=0.0 at 273K + ! up to fice=1.0 at 272K + fice = min(1.0,max(0.0, -1.0*tsoil*0.1 )) + soil_energy(k,i,j,ipat) = tsoil & + * (slcpd(nsoil) + & + (1.-fice)*soil_water(k,i,j,ipat) * 4.186e6 + & + fice*soil_water(k,i,j,ipat) * 2.093e6) & + + (1.-fice)*soil_water(k,i,j,ipat) * 3.34e8 + endif + !************************************************************* + + enddo !end looping over soil layers + + !Determine number of surface water or snow levels and set values of + !mass, depth, and energy for each level present. + + !Set number of inital surface water layers to zero + sfcwater_nlev(i,j,ipat) = 0. + + !Loop over surface water / snow layers + do k = 1,mzs + + sfcwater_mass(k,i,j,ipat) = 0. + sfcwater_energy(k,i,j,ipat) = 0. + sfcwater_depth(k,i,j,ipat) = 0. + + !For persistent wetlands (bogs, marshes, fens, swamps), initialize + !with 10 cm water depth. This corresponds to leaf classes 17 and 20. + if (nint(leaf_class(i,j,ipat)) == 17 .or. & + nint(leaf_class(i,j,ipat)) == 20) then + if (k .eq. 1) then + sfcwater_mass(k,i,j,ipat) = 100. + sfcwater_energy(k,i,j,ipat) = (airtemp - 193.36) * 4186. + sfcwater_depth(k,i,j,ipat) = .1 + endif + endif + + !Initialize surface water layer quantities + if (runsnowingest==1) then + if (snow_mass(i,j) > 0.) then + if (k .eq. 1) then + sfcwater_mass(k,i,j,ipat) = sfcwater_mass(k,i,j,ipat) & + + snow_mass(i,j) + sfcwater_energy(k,i,j,ipat) = sfcwater_energy(k,i,j,ipat) & + + min(0., (airtemp - 273.15) * 2093.) + if(runsoilingest==1) then + sfcwater_depth(k,i,j,ipat) = sfcwater_depth(k,i,j,ipat) & + + snow_depth(i,j) ! From Varfiles + else + sfcwater_depth(k,i,j,ipat) = sfcwater_depth(k,i,j,ipat) & + + snow_mass(i,j) * 5.e-3 ! 5x equivalent liquid depth + endif + endif + endif + endif + + !Determine number of surface water layers + if (sfcwater_mass(k,i,j,ipat) > 0.) sfcwater_nlev(i,j,ipat) = float(k) + + enddo !end loop over surface water layers + + !Call for all land surface options (isfcl) + if (ipat >= 2) CALL ndvi (ifm & + ,leaf_g(ifm)%leaf_class (i,j,ipat) & + ,leaf_g(ifm)%veg_ndvip (i,j,ipat) & + ,leaf_g(ifm)%veg_ndvic (i,j,ipat) & + ,leaf_g(ifm)%veg_ndvif (i,j,ipat) ) + + !Only call this for LEAF3. SIB will use its own values. + if (ipat >= 2 .and. isfcl<=1) & + CALL veg (ifm & + ,leaf_g(ifm)%leaf_class (i,j,ipat) & + ,leaf_g(ifm)%veg_fracarea (i,j,ipat) & + ,leaf_g(ifm)%veg_lai (i,j,ipat) & + ,leaf_g(ifm)%veg_tai (i,j,ipat) & + ,leaf_g(ifm)%veg_rough (i,j,ipat) & + ,leaf_g(ifm)%veg_height (i,j,ipat) & + ,leaf_g(ifm)%veg_albedo (i,j,ipat) & + ,leaf_g(ifm)%veg_ndvic (i,j,ipat) ) + + CALL grndvap (mzs & + ,soil_energy(mzg,i,j,ipat),soil_water(mzg,i,j,ipat) & + ,soil_text (mzg,i,j,ipat),sfcwater_energy(1,i,j,ipat) & + ,sfcwater_nlev(i,j,ipat),ground_rsat(i,j,ipat) & + ,ground_rvap(i,j,ipat),can_rvap(i,j,ipat),prsv,i,j) + + enddo !end loop over patches + enddo +enddo + +endif + +return +END SUBROUTINE sfcinit_nofile_user + +!############################################################################## +Subroutine bubble (m1,m2,m3,i0,j0,thp,rtp) + +use micphys +use mem_grid +use mem_radiate, only: irce,rce_bubl +use node_mod, only: my_rams_num, mainnum, nmachs + +implicit none + +integer :: m1,m2,m3,i0,j0 +real, dimension(m1,m2,m3) :: thp,rtp +real :: R + +integer bubtemp +integer :: i,j,k,id,jd +real acetmp1,acetmp2,acetmp3,acetmp4,acetmp5 +real acetmp6,acetmp7,acetmp8,acetmp9 +real bubctrx,bubctry,bubctrz +real bubradx,bubrady,bubradz +real, dimension(:,:), allocatable :: bub_rand_nums + +if(ibubble==1) then + if(print_msg) then + print*,'' + print*,'INITIALIZING Square RAMSIN WARM BUBBLE HERE' + print*,'On grid number=',IBUBGRD + print*,'Bubble from I=',IBDXIA,'TO',IBDXIZ + print*,'Bubble from J=',IBDYJA,'TO',IBDYJZ + print*,'Bubble from K=',IBDZK1,'TO',IBDZK2 + print*,'THP perturbation=',BTHP + print*,'RTP perturbation=',BRTP + print*,'' + endif + do jd = IBDYJA, IBDYJZ + j = jd - j0 + if ((j .ge. 1) .and. (j .le. m3)) then + do id = IBDXIA, IBDXIZ + i = id - i0 + if ((i .ge. 1) .and. (i .le. m2)) then + do k = IBDZK1,IBDZK2 + thp(k,i,j) = thp(k,i,j) + BTHP + rtp(k,i,j) = rtp(k,i,j) * (1.0 + BRTP) + enddo + endif + enddo + endif + enddo + +elseif(ibubble==2) then + if(print_msg) then + print*,'INITIALIZING Cosine-Squared RAMSIN WARM BUBBLE HERE' + print*,'On grid number=',IBUBGRD + print*,'Use of I,J coordinates for Cosine-Squared bubble is' + print*,'only accurate and valid if the domain POLE POINT' + print*,'is the same at the CENTRAL LAT and LON' + endif + !Set up X location of bubble center relative to grid center + bubctrx = deltax * ( (IBDXIA+IBDXIZ)/2.0 - NNXP(1)/2.0 ) + !Set up Y location of bubble center relative to grid center + bubctry = deltax * ( (IBDYJA+IBDYJZ)/2.0 - NNYP(1)/2.0 ) + !Set up Z location of bubble center + if(print_msg) then + print*,'IBDXIA,IBDXIZ',IBDXIA,IBDXIZ + print*,'IBDYJA,IBDYJZ',IBDYJA,IBDYJZ + print*,'X-center,Y-center:',bubctrx,bubctry + print*,'' + endif + bubtemp=int(IBDZK1+IBDZK2)/2.0 + bubctrz=ZMN(bubtemp,1) + !Set up length, width, and depth of bubble + bubradx=(IBDXIZ-IBDXIA) * deltax * 0.5 + bubrady=(IBDYJZ-IBDYJA) * deltax * 0.5 + bubradz=(ZMN(IBDZK2,1)-ZMN(IBDZK1,1)) * 0.5 + !Set up gaussian bubble + acetmp8=atan(1.0)*4.0/2.0 ! pi/2 + do j=1,m3 + do i=1,m2 + do k=1,m1 + acetmp1=(XMN(i+i0,1)+XMN(i+i0+1,1))*0.5 + acetmp2=(YMN(j+j0,1)+YMN(j+j0+1,1))*0.5 + acetmp3=(ZMN(k,1)+ZMN(k+1,1))*0.5 + acetmp4=(acetmp1-bubctrx)/bubradx + acetmp4=acetmp4**2 + acetmp5=(acetmp2-bubctry)/bubrady + acetmp5=acetmp5**2 + acetmp6=(acetmp3-bubctrz)/bubradz + acetmp6=acetmp6**2 + if(jdim==0)acetmp5=acetmp4 !For 2D simulation let Y-dir = X-dir + acetmp7=acetmp4+acetmp5+acetmp6 + acetmp7=SQRT(acetmp7) + if(acetmp7.ge.1.0)then + acetmp9=0.0 + else + acetmp9=(COS(acetmp8*acetmp7))**2 + endif + thp(k,i,j)=thp(k,i,j)+(BTHP*acetmp9) !pt pert + rtp(k,i,j)=rtp(k,i,j)*(1.0+(acetmp9*BRTP)) !mix ratio pert + enddo + enddo + enddo + +elseif(ibubble==3) then + if(print_msg) then + print*,'Activating random temperature perturbation' + print*,'at z=2, linearly-decreasing to 0K over 500m' + print*,'On grid number=',IBUBGRD + if(irce==1)then + print*,'With Max amplitude',rce_bubl + else + print*,'With Max amplitude in subroutine bubble.' + endif + print*,'' + endif + + ! SRH: parallel algorithm that will make the temperature perturbation + ! initialization independent of the number of nodes. This is accomplished + ! by having mainnum process do the assignment for the entire domain and + ! broadcasting these results to the rest of the nodes. + ! + ! In order to save memory space, do one level at a time. + + do k=2,m1 + ! select levels for temp. pert. based on altitude + if( zt(k) <= (500.+zt(2)) ) then ! only over lowest 500 m + ! allocate memory for entire horizontal domain + allocate(bub_rand_nums(nnxp(ibubgrd), nnyp(ibubgrd))) + + ! if a parallel run and this is mainnum process, or if a sequential run, + ! then calculate the temp pert for this level + if ((my_rams_num .eq. mainnum) .or. (nmachs .eq. 1)) then + CALL calc_bub_rand_nums (nnxp(ibubgrd),nnyp(ibubgrd),bub_rand_nums) + endif + + ! if parallel run then broadcast the random number array to everyone + if (nmachs .gt. 1) then + ! note the multiplication of nnxp*nnyp. this is done so that + ! bub_rand_nums can be viewed as a 1D array in the broadcast routine + CALL broadcast_bub_rand_nums (nnxp(ibubgrd)*nnyp(ibubgrd), bub_rand_nums) + endif + + ! At this point bub_rand_nums covers the entire domain and is filled with + ! random numbers (between -1 and 1) that were generated by only one + ! process. Go through the subdomain and copy the corresponding section + ! of bub_rand_nums when reading the random numbers. + do j = 1, m3 + do i = 1, m2 + R = bub_rand_nums(i+i0,j+j0) + + !Default perturbations amplitude of 0.1K, largest at level 2, + !decreased linearly over 500m. + R = R*0.1*(500.+zt(2)-zt(k))/500. + + !RCE perturbations amplitude of "rce_bubl", largest at level 2, + !decreased linearly over 500m. Override default. + if(irce == 1) R = R*rce_bubl*(500.+zt(2)-zt(k))/500. + + thp(k,i,j)=thp(k,i,j) + R + if(k==2) thp(1,i,j)=thp(k,i,j) ! set level 1 to level 2 + enddo ! i + enddo ! j + + deallocate(bub_rand_nums) + endif ! in lowest 500 m + enddo ! k + +endif + +return +END SUBROUTINE bubble + +!################################################################################## +Subroutine calc_bub_rand_nums (nx,ny,bub_rand_nums) + +!Return array (entire horiz domain) filled with random numbers between -1 and 1 + +implicit none + +integer :: nx, ny +real, dimension(nx, ny) :: bub_rand_nums +integer :: i, j +real :: rand_num + +do j = 1, ny + do i = 1, nx + CALL random_number (rand_num) ! random number between 0 and 1 + bub_rand_nums(i,j) = 1.0 - (2.0 * rand_num) ! random number between -1 and 1 + enddo +enddo + +END SUBROUTINE calc_bub_rand_nums + +!############################################################################## +Subroutine conv_forcing (ut,vt) + +use mem_grid +use mem_basic +use micphys +use node_mod +use mem_tend + +implicit none +! +------------------------------------------------------------------ +! ! This routine creates a convergenze zone for layer lifting +! ! following Loftus et al. (2008, MWR), except convergence +! ! zone is implemented as a tendency, similarly to +! ! Schumacher (2009, JAS) +! +------------------------------------------------------------------ + +integer :: i,j,k,ii,jj +real :: fz,camp,uprime,vprime,bot,top +real, dimension(mzp,mxp,myp) :: ut,vt + +!check for termination type +if (ctmax.lt.0.0) then + if(vertvel_max(ngrid) >= abs(ctmax)) iconv=0 !Turn off convergence + if(iconv > 0 .and. print_msg) & + print*,'Run Convergence Forcing, ICONV=',iconv,' Stop at W >=',abs(ctmax) +else + if(time >= ctmax) iconv=0 !Turn off convergence + if(iconv > 0 .and. print_msg) & + print*,'Run Convergence Forcing, ICONV=',iconv,' Stop at Time=',ctmax +endif + +if(iconv == 0) return + +!calculate 1/2 wavelength boundaries if ICVERT=2 +if (icvert.eq.2) then + bot=zt(ickcent)-czrad ! m + top=czrad+zt(ickcent) ! m +endif + +! calculate camp from specified namelist settings and divergence +! (Loftus et al. 2008 eqn 7) units: m^2/s +camp = -0.5*cdivmax / ( 1./(cxrad**2.) + 1./(cyrad**2.) ) + +do j=1,myp + do i=1,mxp + do k=2,mzp + + !create vertical decrease with height dependence - max at k=2 + if (icvert.eq.1 .and. k.le.ickmax) then + fz=1.-(2.-k)/(2.-ickmax) + endif + !create 1/2 vertical wavelength elevated convergence (Schumacher 2009) + if (icvert.eq.2 .and. (zt(k).ge.bot .and. zt(k).le.top)) then + fz=cos(0.5*3.14159*abs((zt(k)-zt(ickcent))/czrad))**2. + elseif (icvert.eq.2) then + fz=0. + endif + + !Get absolute grid points for parallel (& sequential) computation + ii = i+mi0(ngrid) + jj = j+mj0(ngrid) + + !create u' and v'. Units: m/s. From Loftus et al. eqns. 5 & 6 + if (iconv.eq.1) then !Gaussian in x and y, U and V + uprime = (-2.*camp*float(ii-icicent)*deltax/cxrad**2.)*& + exp( -1.*(float(ii-icicent)*deltax/cxrad)**2. )*& + exp( -1.*(float(jj-icjcent)*deltax/cyrad)**2. )*fz + vprime = (-2.*camp*float(jj-icjcent)*deltax/cyrad**2.)*& + exp( -1.*(float(ii-icicent)*deltax/cxrad)**2. )*& + exp( -1.*(float(jj-icjcent)*deltax/cyrad)**2. )*fz + elseif (iconv.eq.2) then !Gaussian in x and y, U only + uprime = (-2.*camp*float(ii-icicent)*deltax/cxrad**2.)*& + exp( -1.*(float(ii-icicent)*deltax/cxrad)**2. )*& + exp( -1.*(float(jj-icjcent)*deltax/cyrad)**2. )*fz + vprime = 0. + elseif (iconv.eq.3) then !Gaussian in x and y, V only + uprime = 0. + vprime = (-2.*camp*float(jj-icjcent)*deltax/cyrad**2.)*& + exp( -1.*(float(ii-icicent)*deltax/cxrad)**2. )*& + exp( -1.*(float(jj-icjcent)*deltax/cyrad)**2. )*fz + elseif (iconv.eq.4) then !Gaussian in x, U only + uprime = (-2.*camp*float(ii-icicent)*deltax/cxrad**2.)*& + exp( -1.*(float(ii-icicent)*deltax/cxrad)**2. )*fz + vprime = 0. + elseif (iconv.eq.5) then !Gaussian in y, V only + uprime = 0. + vprime = (-2.*camp*float(jj-icjcent)*deltax/cyrad**2.)*& + exp( -1.*(float(jj-icjcent)*deltax/cyrad)**2. )*fz + endif ! iconv check + + ! add tendency over timescale specified in namelist + ut(k,i,j) = ut(k,i,j) + uprime/ctau + vt(k,i,j) = vt(k,i,j) + vprime/ctau + + enddo ! k = 2:mzp + enddo ! i loop +enddo ! j loop + +return +END SUBROUTINE conv_forcing diff --git a/src/6.2.16/surface/sfc_driver.f90 b/src/6.2.16/surface/sfc_driver.f90 new file mode 100644 index 0000000..bf3e24a --- /dev/null +++ b/src/6.2.16/surface/sfc_driver.f90 @@ -0,0 +1,601 @@ +!############################################################################## +Subroutine sfc_driver (mzp,mxp,myp,ia,iz,ja,jz) + +use mem_all + +implicit none + +integer :: mzp,mxp,myp,ia,iz,ja,jz + +integer :: ng + +if (nstbot == 0) return + +ng=ngrid + +CALL leaf3_sib (mzp,mxp,myp,nzg,nzs,npatch,ia,iz,ja,jz & + ,leaf_g (ng), basic_g (ng), turb_g (ng), radiate_g(ng) & + ,grid_g (ng), cuparm_g(ng), micro_g(ng), sib_g(ng)) + +return +END SUBROUTINE sfc_driver + +!############################################################################## +Subroutine leaf3_sib (m1,m2,m3,mzg,mzs,np,ia,iz,ja,jz & + ,leaf,basic,turb,radiate,grid,cuparm,micro,sib) + +use mem_all +use leaf_coms +use rconstants + +implicit none + +integer :: m1,m2,m3,mzg,mzs,np,ia,iz,ja,jz + +type (leaf_vars) leaf +type (basic_vars) basic +type (turb_vars) turb +type (radiate_vars) radiate +type (grid_vars) grid +type (cuparm_vars) cuparm +type (micro_vars) micro +type (sib_vars) sib + +real, allocatable, dimension(:,:) :: ths2,rvs2,pis2,dens2,ups2,vps2,zts2 +integer :: i,j,ip,iter_leaf,runstars +integer :: jday,oyr,omn,ody,otm +integer, external :: julday +real,external :: rslif + +! SIB2 - temporary diagnostic/output SIB2 variables +real :: cupr,lspr +integer :: ksn,nsoil,k + +! To convert CO2 back and forth between ppm and mixing ratio +! (mass fraction) units. +real :: f +data f /1.51724e-6/ ! 1.51724e-6= 44/29/1.e6 + +allocate(ths2(m2,m3),rvs2(m2,m3),pis2(m2,m3),dens2(m2,m3) & + ,ups2(m2,m3),vps2(m2,m3),zts2(m2,m3)) + +! Time interpolation factor for updating SST +if (iupdsst == 0) then + timefac_sst = 0. +else + timefac_sst = (time-ssttime1(ngrid)) / (ssttime2(ngrid)-ssttime1(ngrid)) +endif + +! Define LEAF3 and canopy time-split timesteps here. This ensures that LEAF3 +! will not use a timestep longer than about 40 seconds, and canopy will not +! use a timestep longer than about 15 seconds. This allows values of +! hcapcan = 2.e4, wcapcan = 2.e1, and hcapveg = 3.e4 as are now defined below. + +!Saleeby(2010):Moved the computation of niter_can to after computation of dtll +niter_leaf = max(1,nint(dtlt/40.+.4)) +dtll_factor = 1. / float(niter_leaf) +dtll = dtlt * dtll_factor + +niter_can = max(1,nint(dtll/15.+.4)) +dtlc_factor = 1. / float(niter_can) +dtlc = dtll * dtlc_factor + +! Define SIB timestep as the same as dtlong (dtlt) +if(isfcl==2)then + niter_leaf = 1 + niter_can = 1 + dtll_factor = 1. + dtlc_factor = 1. + dtll=dtlt + dtlc=dtlt +endif + +hcapcan = 2.0e4 +wcapcan = 2.0e1 +hcapveg = 3.e4 + +dtllohcc = dtll / hcapcan +dtllowcc = dtll / wcapcan +dtlcohcc = dtlc / hcapcan +dtlcowcc = dtlc / wcapcan +dtlcohcv = dtlc / hcapveg + +z0fac_water = .016 / g +snowrough = .001 + +! Copy surface atmospheric variables into 2d arrays for input to leaf + CALL sfc_fields (m1,m2,m3,ia,iz,ja,jz,jdim & + ,basic%theta(1,1,1) ,basic%rv (1,1,1) ,basic%up(1,1,1) & + ,basic%vp (1,1,1) ,basic%dn0(1,1,1) ,basic%pp(1,1,1) & + ,basic%pi0 (1,1,1) ,grid%rtgt(1,1) ,zt & + ,ths2,rvs2,ups2,vps2,pis2,dens2,zts2 ) + +do j = ja,jz + do i = ia,iz + +! Copy surface variables to single-column values + ups = ups2(i,j) + vps = vps2(i,j) + ths = ths2(i,j) + rvs = rvs2(i,j) + zts = zts2(i,j) + pis = pis2(i,j) + dens = dens2(i,j) + prss = pis ** cpor * p00 + vels = sqrt(ups ** 2 + vps ** 2) + gzotheta = g * zts / ths + +! Update water internal energy from time-dependent SST. +! Do this only if NOT running KPP ocean mixed layer model. +! If KPP is running, then KPP will update the SST / water-internal-energy. +! Note however that KPP may not be run every timestep and thus may only +! update SST/water-internal-energy at its timesteps. + if(IKPP==0)then + leaf%soil_energy(mzg,i,j,1) = 334000. & + + 4186. * (leaf%seatp(i,j) + (leaf%seatf(i,j) - leaf%seatp(i,j)) & + * timefac_sst - 273.15) + endif + +! Fill surface precipitation arrays for input + if(isfcl<=1) then !for LEAF3 + CALL sfc_pcp (nnqparm(ngrid),level,i,j,cuparm,micro) + elseif(isfcl==2) then !for SiB + CALL sfc_pcp_sib (nnqparm(ngrid),level,i,j,cuparm,micro,cupr,lspr) + endif + +!Zero out albedo,upward surface longwave,and momentum,heat,and moisture +!flux arrays before summing over patches + if (ilwrtyp > 0 .or. iswrtyp > 0) then + radiate%albedt(i,j) = 0. + radiate%rlongup(i,j) = 0. + endif + + turb%sflux_u(i,j) = 0. + turb%sflux_v(i,j) = 0. + turb%sflux_w(i,j) = 0. + turb%sflux_t(i,j) = 0. + turb%sflux_r(i,j) = 0. + +! For no soil model (patch 2) fill "canopy" temperature and moisture + if (isfcl == 0) then + leaf%can_temp (i,j,2) = (ths - dthcon) * pis + leaf%can_rvap (i,j,2) = rvs - drtcon + leaf%patch_area(i,j,1) = 1. - pctlcon + leaf%patch_area(i,j,2) = pctlcon + endif + +! Begin patch loop + do ip = 1,np + +! Zero out SIB albedo,upward surface longwave,and momentum,heat,and moisture +! flux arrays before summing over patches. +! If running SIB land surface, use SiB surface albedo and surface +! upward longwave after first timestep. + if(isfcl==2)then + if (ilwrtyp > 0 .or. iswrtyp > 0) then + sib%sfcswa(i,j,ip) = 0. + sib%uplwrf(i,j,ip) = 0. + endif + endif + +! Update time-dependent vegetation LAI and fractional coverage + if (ip >= 2 .and. leaf%patch_area(i,j,ip) >= .009) then + if (isfcl>=1) CALL ndvi (ngrid & + ,leaf%leaf_class (i,j,ip) & + ,leaf%veg_ndvip (i,j,ip) ,leaf%veg_ndvic (i,j,ip) & + ,leaf%veg_ndvif (i,j,ip)) + if (isfcl==1) CALL veg (ngrid & + ,leaf%leaf_class (i,j,ip) & + ,leaf%veg_fracarea(i,j,ip) ,leaf%veg_lai (i,j,ip) & + ,leaf%veg_tai (i,j,ip) ,leaf%veg_rough (i,j,ip) & + ,leaf%veg_height (i,j,ip) ,leaf%veg_albedo(i,j,ip) & + ,leaf%veg_ndvic (i,j,ip)) + endif + +! Begin leaf small timestep here. + do iter_leaf = 1,niter_leaf + +! Calculate radiative fluxes between atmosphere, vegetation, and ground/snow +! based on already-computed downward shortwave and longwave fluxes from +! the atmosphere. Fill tempk array with soil and snow temperature (C) and +! fracliq array with liquid fraction of water content in soil and snow. +! Other snowcover properties are also computed here. + + if (iswrtyp > 0 .or. ilwrtyp > 0) then + + if (ip == 1 .or. (isfcl<=1 .and. leaf%patch_area(i,j,ip) >= .009)) then + + CALL sfcrad (mzg,mzs,ip & + ,leaf%soil_energy (1,i,j,ip) ,leaf%soil_water (1,i,j,ip) & + ,leaf%soil_text (1,i,j,ip) ,leaf%sfcwater_energy (1,i,j,ip) & + ,leaf%sfcwater_depth (1,i,j,ip) ,leaf%patch_area (i,j,ip) & + ,leaf%can_temp (i,j,ip) ,leaf%veg_temp (i,j,ip) & + ,leaf%leaf_class (i,j,ip) ,leaf%veg_height (i,j,ip) & + ,leaf%veg_fracarea (i,j,ip) ,leaf%veg_albedo (i,j,ip) & + ,leaf%sfcwater_nlev (i,j,ip) & + ,radiate%rshort (i,j) ,radiate%rlong (i,j) & + ,radiate%albedt (i,j) ,radiate%rlongup (i,j) & + ,radiate%cosz (i,j) ) + + endif + + else + + if(ip==1) CALL qtk (leaf%soil_energy(mzg,i,j,ip),tempk(mzg),fracliq(mzg)) + + endif + +! For water surface (patch 1), compute surface saturation mixing ratio +! and roughness length based on previous ustar. +! For soil patches, compute roughness length based on vegetation and snow. + + if (ip == 1) then + + leaf%ground_rsat(i,j,ip) = rslif(prss,tempk(mzg)) + leaf%patch_rough(i,j,ip) & + = max(z0fac_water * leaf%ustar(i,j,ip) ** 2,.0001) + + elseif (isfcl>=1) then + + if(isfcl==2) snowfac = & + min(.99, leaf%sfcwater_depth(1,i,j,ip) / max(.001,leaf%veg_height(i,j,ip))) + + if (leaf%patch_area(i,j,ip) >= .009) then + leaf%patch_rough(i,j,ip) & + = max(grid%topzo(i,j),leaf%soil_rough(i,j,ip) & + ,leaf%veg_rough(i,j,ip)) * (1. - snowfac) & + + snowrough * snowfac + endif + + endif + +! Calculate turbulent fluxes between atmosphere and canopy (or "canopy"). + + if (leaf%patch_area(i,j,ip) < .009 .and. ip >= 2 .and. & + (isfcl == 1 .or. isfcl == 2)) then + thetacan = ths + else + thetacan = leaf%can_temp(i,j,ip) / pis + endif + +! Set minimum wind speed for fluxes + + if(thetacan < ths) then ! STABLE CASE + ubmin = .1 + else ! UNSTABLE CASE + ubmin = 1. + endif + + !For RCE simulations, set a default ubmin + if(irce == 1) ubmin = rce_ubmn + + !For KPP simulations, override ubmin if namelist value is larger + if(ikpp > 0) ubmin = max(ubmin,ubmn_kpp) + + !Normal velocity used in computing stars + vels_pat = max(vels,ubmin) + +! Only run stars here if using LEAF3 or it is the first model timestep +! or if its a water patch. + + runstars=0 + if (isfcl<=1) then + runstars=1 + elseif(isfcl==2) then + if(ip==1 .or. (initial<=2 .and. time < 0.001) .or. & + leaf%patch_area(i,j,ip) < .009) runstars=1 + endif + if(runstars==1) & + CALL stars (leaf%ustar(i,j,ip),leaf%tstar(i,j,ip) & + ,leaf%rstar(i,j,ip),ths,rvs,thetacan,leaf%can_rvap(i,j,ip) & + ,zts,leaf%patch_rough(i,j,ip),vels_pat,dtllohcc,dens,dtlt) + +! For water patches, update temperature and moisture of "canopy" from +! divergence of fluxes with water surface and atmosphere. rdi = ustar/5 +! is the viscous sublayer conductivity from Garratt (1992). + + if (ip == 1) then + + rdi = .2 * leaf%ustar(i,j,1) + + leaf%can_temp(i,j,1) = leaf%can_temp(i,j,1) & + + dtllohcc * dens * cp & + * ((tempk(mzg) - leaf%can_temp(i,j,1)) * rdi & + + leaf%ustar(i,j,1) * leaf%tstar(i,j,1) * pis) + + leaf%can_rvap(i,j,1) = leaf%can_rvap(i,j,1) + dtllowcc * dens & + * ((leaf%ground_rsat(i,j,1) - leaf%can_rvap(i,j,1)) * rdi & + + leaf%ustar(i,j,1) * leaf%rstar(i,j,1)) + + endif + + !*************************************************************************** + ! SIB: For soil model patches,update temperature and moisture of soil, + ! vegetation, and canopy using SiB model + !*************************************************************************** + if (isfcl == 2 .and. ip >= 2 .and. leaf%patch_area(i,j,ip) >= .009) then + ! Diagnose soil temperature and liquid fraction + ! as done in routine sfcrad + do k = 1,mzg + nsoil = nint(leaf%soil_text(k,i,j,ip)) + CALL qwtk (leaf%soil_energy(k,i,j,ip), & + leaf%soil_water(k,i,j,ip)*1.e3, & + slcpd(nsoil),tempk(k),fracliq(k)) + enddo + ! Diagnose snow temperature as done in routine sfcrad + ! SiB current allows only 1 surface water/snow layer + ksn = nint(leaf%sfcwater_nlev(i,j,ip)) + do k = 1,ksn + CALL qtk (leaf%sfcwater_energy(k,i,j,ip), & + tempk(k+mzg), fracliq(k+mzg)) + enddo + !if there is not snow + if(ksn == 0) then + do k = 1,mzs + tempk(k+mzg) = tempk(mzg) + enddo + endif + !Compute the Julian calendar day + CALL date_add_to (iyear1,imonth1,idate1,itime1*100,time & + ,'s',oyr,omn,ody,otm) + jday=julday(omn,ody,oyr) + !Call to SIB main routine here. + CALL sib_2pt5 ( & + !THIS SECTION: INPUT GRID AND ATMOSPHERIC CONDITIONS FROM RAMS TO SIB + i &!I grid point + ,j &!J grid point + ,mzg &!number soil layers + ,mzs &!number snow layers + ,dtlt &!timestep (sec) + ,jday &!time in julian date (Day Of Year) + ,ubmin &!minimum wind speed for surface fluxes + ,grid%glat(i,j) &!latitude + ,ths &!lowest layer theta (potential temperature K) + ,rvs &!lowest layer rv (water vapor mixing ratio g/kg) + ,0.01*prss &!lowest layer air pressure (hPa=mb) RAMS uses (Pa) + ,dens &!lowest layer base state density (kg/m3) + ,ths*pis &!lowest layer temperature (K) + ,vels &!lowest layer wind speed (m/s) + ,zts &!lowest model level height t-grid (m) + ,cupr &!cuparm precip rate (conprr)(mm/sec) + ,lspr/dtlt &!microphysics precip rate (pcpg/dtlt)(mm/sec) + ,radiate%rshort(i,j) &!surface shortwave down (W/m2) + ,radiate%rlong(i,j) &!surface longwave down (W/m2) + ,radiate%cosz(i,j) &!cosine solar zenith angle + !THIS SECTION: SURFACE FIELD INFO FROM RAMS TO SIB + ,leaf%patch_area(i,j,ip) &!BCs: -fractional patch area + ,leaf%leaf_class(i,j,ip) &!BCs: -leaf vegetation class + ,leaf%veg_ndvic(i,j,ip) &!BCs: -current month ndvi + ,leaf%veg_ndvip(i,j,ip) &!BCs: -previous/past month ndvi + ,leaf%soil_text(mzg,i,j,ip) &!BCs: -soil textural class + !THIS SECTION: PROGNOSTIC VALUES FROM SIB TO FEEDBACK TO RAMS + ,leaf%stom_resist(i,j,ip) &!prog: -CANOPY/STOMATAL RESISTANCE (S M-1) + ,leaf%can_temp(i,j,ip) &!prog: -canopy temperature (K) + ,leaf%can_rvap(i,j,ip) &!prog: -canopy water vapor mixing ratio (kg/kg) + ,leaf%veg_temp(i,j,ip) &!prog: -vegetation temperature (K) + ,tempk &!prog: -soil and snow temperature (K) + ,leaf%soil_water(1,i,j,ip) &!prog: -volumetric soil moisture (m3/m3) + ,sib%sfcswa(i,j,ip) &!prog: -surface abledo (fraction) + ,sib%uplwrf(i,j,ip) &!prog: -upwelling longwave radiation (W/m2) + ,sib%snow1(i,j,ip) &!prog: -vegetation snow (kg/m2) + ,sib%snow2(i,j,ip) &!prog: -ground surface snow (kg/m2) + ,sib%capac1(i,j,ip) &!prog: -vegetation liquid store (kg/m^2) + ,sib%capac2(i,j,ip) &!prog: -grnd sfc liquid interception (kg/m^2) + ,sib%pco2ap(i,j,ip) &!prog: -canopy air space pCO2 (Pa) + ,sib%co2flx(i,j,ip) &!prog: -sfc CO2 flux (CAS to ref lev)(mol/m2/sec) + ,leaf%ustar(i,j,ip) &!prog: -u-star + ,leaf%rstar(i,j,ip) &!prog: -r-star + ,leaf%tstar(i,j,ip) &!prog: -t-star + !THIS SECTION: INPUT CURRENT CO2 CONENTRATION TO SIB + ,sib%rco2p(2,i,j)/f &!lowest atm level CO2, in ppm (input to Sib) + !THIS SECTION: DIAGNOSTIC QUANTITIES FROM SIB TO FILL STANDARD LEAF3 VARS + ,leaf%sfcwater_nlev(i,j,ip) &!diag: number of sfc water levels (0 or 1 from SiB) + ,leaf%sfcwater_mass(1,i,j,ip) &!diag: sfc water mass (snow+liquid) (kg/m2) + ,leaf%sfcwater_depth(1,i,j,ip) &!diag: sfc water depth (snow+liquid) (m) + ,leaf%veg_water(i,j,ip) &!diag: vegetation water mass (snow+liquid) (kg/m2) + !THIS SECTION: DIAGNOSTIC QUANTITIES UNIQUE TO SIB + ,leaf%veg_albedo(i,j,ip) &!diag: vegetation albedo (fraction) + ,leaf%veg_fracarea(i,j,ip) &!diag: vegetation fractional area + ,leaf%veg_lai(i,j,ip) &!diag: vegetation LAI + ,leaf%veg_tai(i,j,ip) &!diag: total LAI + ,leaf%veg_height(i,j,ip) &!diag: canopy top height (m) + ,leaf%veg_rough(i,j,ip) &!diag: vegetation roughness (m) + ,sib%assimn(i,j,ip) &!diag: net co2 assim by plants (umol/m^2/sec) + ,sib%respg(i,j,ip) &!diag: ground respiration flux (umol/m^2/sec) + ,sib%rstfac1(i,j,ip) &!diag: CANOPY RESISTANCE STRESS1 :leaf sfc humidity + ,sib%rstfac2(i,j,ip) &!diag: CANOPY RESISTANCE STRESS2 :soil moisture + ,sib%rstfac3(i,j,ip) &!diag: CANOPY RESISTANCE STRESS3 :temperature + ,sib%ect(i,j,ip) &!diag: transpiration flux (W/m^2) + ,sib%eci(i,j,ip) &!diag: canopy interception flux (W/m^2) + ,sib%egi(i,j,ip) &!diag: ground interception flux (W/m^2) + ,sib%egs(i,j,ip) &!diag: ground surface layer evap (W/m^2) + ,sib%hc(i,j,ip) &!diag: canopy (veg) sensible heat flux (W/m^2) + ,sib%hg(i,j,ip) &!diag: ground surface sensible heat flux (W/m^2) + ,sib%ra(i,j,ip) &!diag: CAS-RAMS resistance (sec/m) + ,sib%rb(i,j,ip) &!diag: leaf sfc-CAS resistance (sec/m) + ,sib%rc(i,j,ip) &!diag: total canopy resistance (sec/m) + ,sib%rd(i,j,ip) &!diag: ground-CAS resistance (sec/m) + ,sib%roff(i,j,ip) &!diag: runoff (surface and subsurface) (mm) + ,sib%green(i,j,ip) &!diag: greenness fraction (-) + ,sib%apar(i,j,ip) &!diag: absorbed fraction of PAR + ,sib%ventmf(i,j,ip) &!diag: ventilation mass flux (kg/m^2/sec) + ,sib%pco2c(i,j,ip) &!diag: leaf chloroplast CO2 concentration (Pa) + ,sib%pco2i(i,j,ip) &!diag: leaf internal CO2 concentration (Pa) + ,sib%pco2s(i,j,ip) &!diag: leaf surface CO2 concentration (Pa) + ,sib%pco2m(i,j,ip) &!diag: lowest atm level CO2 concentration (Pa) + ,sib%ea(i,j,ip) &!diag: CAS water vapor pressure (hPa) + ,sib%em(i,j,ip) &!diag: ref level vapor pressure (hPa) + ,sib%rha(i,j,ip) &!diag: CAS relative humidity + ,sib%radvbc(i,j,ip) &!diag: radiation: visible beam (W/m^2) + ,sib%radvdc(i,j,ip) &!diag: radiation: visible diffuse (W/m^2) + ,sib%radnbc(i,j,ip) &!diag: radiation: nir beam (W/m^2) + ,sib%radndc(i,j,ip) &!diag: radiation: nir diffuse (W/m^2) + ,sib%psy(i,j,ip) )!diag: psychrometric constant (hPa deg^-1) + !calculate back soil energy + do k=1,mzg + nsoil = nint(leaf%soil_text(k,i,j,ip)) + leaf%soil_energy(k,i,j,ip) = (tempk(k)- 273.15) & + *(slcpd(nsoil)+leaf%soil_water(k,i,j,ip)*4.186e6) & + + leaf%soil_water(k,i,j,ip)*3.34e8 + enddo + !calculate back sfc water energy + !(rough inverse of function qtk in therm_lib.f90) + ksn = nint(leaf%sfcwater_nlev(i,j,ip)) + do k = 1,ksn + if(sib%snow2(i,j,ip)>0.0) then + leaf%sfcwater_energy(k,i,j,ip)=(tempk(k+mzg)-273.15)*2093. + elseif(sib%capac2(i,j,ip)>0.0) then + leaf%sfcwater_energy(k,i,j,ip)=(tempk(k+mzg)-193.36)*4186. + else + leaf%sfcwater_energy(k,i,j,ip)=0.0 + endif + enddo + !Compute ground saturation mixing ratios using LEAF3 method but based + !on soil and canopy prediction from SiB. Diagnostic info only. + CALL grndvap (mzs,leaf%soil_energy(mzg,i,j,ip),leaf%soil_water(mzg,i,j,ip) & + ,leaf%soil_text(mzg,i,j,ip),leaf%sfcwater_energy(1,i,j,ip) & + ,leaf%sfcwater_nlev(i,j,ip),leaf%ground_rsat(i,j,ip) & + ,leaf%ground_rvap(i,j,ip),leaf%can_rvap(i,j,ip),prss,i,j) + + !Update albedt and rlongup with SiB patch values since these will only + !contain values for water patch thus far. + if (ilwrtyp > 0 .or. iswrtyp > 0) then + radiate%albedt (i,j) = radiate%albedt (i,j) & + + leaf%patch_area(i,j,ip) * sib%sfcswa(i,j,ip) + radiate%rlongup(i,j) = radiate%rlongup(i,j) & + + leaf%patch_area(i,j,ip) * sib%uplwrf(i,j,ip) + endif + + !*************************************************************************** + ! LEAF3: For soil model patches, update temperature and moisture of soil, + ! vegetation, and canopy + !*************************************************************************** + elseif (isfcl == 1 .and. ip >= 2 .and. leaf%patch_area(i,j,ip) >= .009) then + CALL leaftw (mzg,mzs & + ,leaf%soil_water (1,i,j,ip) ,leaf%soil_energy (1,i,j,ip) & + ,leaf%soil_text (1,i,j,ip) ,leaf%sfcwater_mass (1,i,j,ip) & + ,leaf%sfcwater_energy(1,i,j,ip) ,leaf%sfcwater_depth (1,i,j,ip) & + ,leaf%ustar (i,j,ip) ,leaf%tstar (i,j,ip) & + ,leaf%rstar (i,j,ip) ,leaf%veg_fracarea (i,j,ip) & + ,leaf%veg_lai (i,j,ip) ,leaf%veg_tai (i,j,ip) & + ,leaf%veg_rough (i,j,ip) ,leaf%veg_height (i,j,ip) & + ,leaf%leaf_class (i,j,ip) & + ,leaf%soil_rough (i,j,ip) ,leaf%sfcwater_nlev (i,j,ip) & + ,leaf%stom_resist (i,j,ip) ,leaf%ground_rsat (i,j,ip) & + ,leaf%ground_rvap (i,j,ip) ,leaf%veg_water (i,j,ip) & + ,leaf%veg_temp (i,j,ip) ,leaf%can_rvap (i,j,ip) & + ,leaf%can_temp (i,j,ip) ,radiate%rshort (i,j) & + ,ip,i,j ) + endif !call LEAF3 or SIB + + !Compute turbulent fluxes for each patch after SiB has computed stars + !Patch-1 stars comes from LEAF3 + !Patch-2 stars comes from SiB + CALL sfclmcv (leaf%ustar(i,j,ip),leaf%tstar(i,j,ip) & + ,leaf%rstar(i,j,ip),vels_pat,ups,vps,gzotheta & + ,leaf%patch_area(i,j,ip),turb%sflux_u(i,j) & + ,turb%sflux_v(i,j),turb%sflux_w(i,j) & + ,turb%sflux_t(i,j),turb%sflux_r(i,j)) + + enddo !time iteration loop + enddo !patch loop + + enddo !i loop +enddo !j loop + +! Normalize accumulated fluxes and albedo seen by atmosphere over model +! timestep dtlt. + +do j = ja,jz + do i = ia,iz + !If NOT using freeslip BC + if(ifreeslip==0)then + turb%sflux_u(i,j) = turb%sflux_u(i,j) * dens2(i,j) * dtll_factor + turb%sflux_v(i,j) = turb%sflux_v(i,j) * dens2(i,j) * dtll_factor + turb%sflux_w(i,j) = turb%sflux_w(i,j) * dens2(i,j) * dtll_factor + turb%sflux_t(i,j) = turb%sflux_t(i,j) * dens2(i,j) * dtll_factor + turb%sflux_r(i,j) = turb%sflux_r(i,j) * dens2(i,j) * dtll_factor + endif + !If using freeslip surface boundary conditions, set fluxes to zero + if(ifreeslip==1)then + turb%sflux_u(i,j) = 0.0 + turb%sflux_v(i,j) = 0.0 + turb%sflux_w(i,j) = 0.0 + turb%sflux_t(i,j) = 0.0 + turb%sflux_r(i,j) = 0.0 + endif + enddo +enddo + +if (ilwrtyp > 0 .or. iswrtyp > 0) then + do j = ja,jz + do i = ia,iz + radiate%albedt (i,j) = radiate%albedt (i,j) * dtll_factor + radiate%rlongup(i,j) = radiate%rlongup(i,j) * dtll_factor + enddo + enddo +endif + +!Update CO2 tendencies with SiB surface CO2 flux +if(isfcl==2) & + CALL co2_biosource (m1,m2,m3,ia,iz,ja,jz,ngrid,np & + ,tend%rco2t(1),basic%dn0,grid%rtgt) + +deallocate(ths2,rvs2,pis2,dens2,ups2,vps2,zts2) + +return +END SUBROUTINE leaf3_sib + +!############################################################################## +Subroutine co2_biosource (m1,m2,m3,ia,iz,ja,jz,ng,np,rco2t,dn0,rtgt) + +use mem_grid +use mem_sib +use mem_leaf + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,ng,np +integer :: i,j,ip +real, dimension(m1,m2,m3) :: rco2t,dn0 +real, dimension(m2,m3) :: rtgt +real f,dz +data f /.044/ !CO2 molar mass = .044kg/mol + +!Update CO2 tendencies with SiB surface CO2 flux +DO j=ja,jz + DO i=ia,iz + DO ip=2,np !Only done for land patches + dz = rtgt(i,j)/dzt(2) ! dzt=1/(z(k)-z(k-1)) + rco2t(2,i,j) = rco2t(2,i,j) & + + f * sib_g(ng)%co2flx(i,j,ip) * leaf_g(ng)%patch_area(i,j,ip) & + / (dz*dn0(2,i,j)) + ENDDO + ENDDO +ENDDO + +return +END SUBROUTINE co2_biosource + +!############################################################################## +Subroutine sfc_pcp_sib (nqparm,level,i,j,cuparm,micro,cupr,lspr) + +use mem_basic +use mem_micro +use mem_cuparm +use leaf_coms + +implicit none + +integer :: nqparm,level,i,j +real :: cupr,lspr +type (cuparm_vars) cuparm +type (micro_vars) micro + + cupr = 0. + lspr = 0. + if (nqparm > 0) cupr = cuparm%conprr(i,j) ! convective precip at mm/s + if (level >= 3) lspr = micro% pcpg(i,j) ! micro precip at kg/m2 + +return +END SUBROUTINE sfc_pcp_sib diff --git a/src/6.2.16/turb/rgrad.f90 b/src/6.2.16/turb/rgrad.f90 new file mode 100644 index 0000000..381d226 --- /dev/null +++ b/src/6.2.16/turb/rgrad.f90 @@ -0,0 +1,540 @@ +!############################################################################## +Subroutine grad (m1,m2,m3,ia,iz,ja,jz,vc3da,vc3db,dir,gpnt) + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz +real :: vc3da(m1,m2,m3),vc3db(m1,m2,m3) +character(len=*) :: dir,gpnt +character(len=6) :: optyp + +optyp='GRADNT' + +CALL rams_grad (m1,m2,m3,ia,iz,ja,jz,VC3DA,VC3DB,DIR,GPNT,optyp) + +return +END SUBROUTINE grad + +!############################################################################## +Subroutine divcart (m1,m2,m3,ia,iz,ja,jz,vc3da,vc3db,dir,gpnt) + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz +real :: vc3da(m1,m2,m3),vc3db(m1,m2,m3) +character(len=*) :: dir,gpnt +character(len=6) :: optyp + +optyp='DIVCRT' + +CALL rams_grad (m1,m2,m3,ia,iz,ja,jz,VC3DA,VC3DB,DIR,GPNT,optyp) + +return +END SUBROUTINE divcart + +!############################################################################## +Subroutine rams_grad (m1,m2,m3,ia,iz,ja,jz,vc3da,vc3db,dir,gpnt,optyp) + +use mem_grid +use mem_scratch + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz + +real :: vc3da(m1,m2,m3),vc3db(m1,m2,m3) +character(len=*) :: dir,gpnt +character(len=6) :: optyp +integer :: jaa,jzz + +jaa=ja +jzz=jz +if(jdim.eq.0) then + jaa=1 + jzz=1 +endif + +IF(DIR.EQ.'XDIR')THEN + IF(GPNT.EQ.'UPNT')THEN + CALL gradxu (m1,m2,m3,ia,iz,jaa,jzz & + ,OPTYP,VC3DA,VC3DB,VCTR1,GRID_G(NGRID)%RTGU(1,1) & + ,GRID_G(NGRID)%RTGT(1,1),GRID_G(NGRID)%DXT(1,1),DZT & + ,GRID_G(NGRID)%FMAPUI(1,1),GRID_G(NGRID)%FMAPT(1,1) & + ,GRID_G(NGRID)%F13T(1,1) & + ,HW,VCTR2,'T') + ELSEIF(GPNT.EQ.'VPNT')THEN + CALL gradxt (m1,m2,m3,ia,iz,jaa,jzz & + ,OPTYP,VC3DA,VC3DB,VCTR1,GRID_G(NGRID)%RTGV(1,1) & + ,GRID_G(NGRID)%RTGM(1,1),GRID_G(NGRID)%DXM(1,1),DZT & + ,GRID_G(NGRID)%FMAPVI(1,1),GRID_G(NGRID)%FMAPM(1,1) & + ,GRID_G(NGRID)%F13M(1,1) & + ,HW,VCTR2,'T') + ELSEIF(GPNT.EQ.'WPNT')THEN + CALL gradxt (m1,m2,m3,ia,iz,jaa,jzz & + ,OPTYP,VC3DA,VC3DB,VCTR1,GRID_G(NGRID)%RTGT(1,1) & + ,GRID_G(NGRID)%RTGU(1,1),GRID_G(NGRID)%DXU(1,1),DZM & + ,GRID_G(NGRID)%FMAPTI(1,1),GRID_G(NGRID)%FMAPU(1,1) & + ,GRID_G(NGRID)%F13U(1,1) & + ,HT,VCTR2,'W') + ELSEIF(GPNT.EQ.'TPNT')THEN + CALL gradxt (m1,m2,m3,ia,iz,jaa,jzz & + ,OPTYP,VC3DA,VC3DB,VCTR1,GRID_G(NGRID)%RTGT(1,1) & + ,GRID_G(NGRID)%RTGU(1,1),GRID_G(NGRID)%DXU(1,1),DZT & + ,GRID_G(NGRID)%FMAPTI(1,1),GRID_G(NGRID)%FMAPU(1,1) & + ,GRID_G(NGRID)%F13U(1,1) & + ,HW,VCTR2,'T') + ELSEIF(GPNT.EQ.'NPNT')THEN + CALL gradxt (m1,m2,m3,ia,iz,jaa,jzz & + ,OPTYP,VC3DA,VC3DB,VCTR1,GRID_G(NGRID)%RTGV(1,1) & + ,GRID_G(NGRID)%RTGM(1,1),GRID_G(NGRID)%DXM(1,1),DZM & + ,GRID_G(NGRID)%FMAPVI(1,1),GRID_G(NGRID)%FMAPM(1,1) & + ,GRID_G(NGRID)%F13M(1,1) & + ,HT,VCTR2,'W') + ELSEIF(GPNT.EQ.'OPNT')THEN + CALL gradxu (m1,m2,m3,ia,iz,jaa,jzz & + ,OPTYP,VC3DA,VC3DB,VCTR1,GRID_G(NGRID)%RTGU(1,1) & + ,GRID_G(NGRID)%RTGT(1,1),GRID_G(NGRID)%DXT(1,1),DZM & + ,GRID_G(NGRID)%FMAPUI(1,1),GRID_G(NGRID)%FMAPT(1,1) & + ,GRID_G(NGRID)%F13T(1,1) & + ,HT,VCTR2,'W') + ELSEIF(GPNT.EQ.'PPNT')THEN + CALL gradxu (m1,m2,m3,ia,iz,jaa,jzz & + ,OPTYP,VC3DA,VC3DB,VCTR1,GRID_G(NGRID)%RTGM(1,1) & + ,GRID_G(NGRID)%RTGV(1,1),GRID_G(NGRID)%DXV(1,1),DZT & + ,GRID_G(NGRID)%FMAPMI(1,1),GRID_G(NGRID)%FMAPV(1,1) & + ,GRID_G(NGRID)%F13V(1,1) & + ,HW,VCTR2,'T') + ELSEIF(GPNT.EQ.'MPNT')THEN + CALL gradxu (m1,m2,m3,ia,iz,jaa,jzz & + ,OPTYP,VC3DA,VC3DB,VCTR1,GRID_G(NGRID)%RTGM(1,1) & + ,GRID_G(NGRID)%RTGV(1,1),GRID_G(NGRID)%DXV(1,1),DZM & + ,GRID_G(NGRID)%FMAPMI(1,1),GRID_G(NGRID)%FMAPV(1,1) & + ,GRID_G(NGRID)%F13V(1,1) & + ,HT,VCTR2,'W') + ENDIF +ELSEIF(DIR.EQ.'YDIR')THEN + IF(GPNT.EQ.'UPNT')THEN + CALL gradyt (m1,m2,m3,ia,iz,jaa,jzz & + ,OPTYP,VC3DA,VC3DB,VCTR1,GRID_G(NGRID)%RTGU(1,1) & + ,GRID_G(NGRID)%RTGM(1,1),GRID_G(NGRID)%DYM(1,1),DZT & + ,GRID_G(NGRID)%FMAPUI(1,1),GRID_G(NGRID)%FMAPM(1,1) & + ,GRID_G(NGRID)%F23M(1,1) & + ,HW,VCTR2,'T',JDIM) + ELSEIF(GPNT.EQ.'VPNT')THEN + CALL gradyv (m1,m2,m3,ia,iz,jaa,jzz & + ,OPTYP,VC3DA,VC3DB,VCTR1,GRID_G(NGRID)%RTGV(1,1) & + ,GRID_G(NGRID)%RTGT(1,1),GRID_G(NGRID)%DYT(1,1),DZT & + ,GRID_G(NGRID)%FMAPVI(1,1),GRID_G(NGRID)%FMAPT(1,1) & + ,GRID_G(NGRID)%F23T(1,1) & + ,HW,VCTR2,'T',JDIM) + ELSEIF(GPNT.EQ.'WPNT')THEN + CALL gradyt (m1,m2,m3,ia,iz,jaa,jzz & + ,OPTYP,VC3DA,VC3DB,VCTR1,GRID_G(NGRID)%RTGT(1,1) & + ,GRID_G(NGRID)%RTGV(1,1),GRID_G(NGRID)%DYV(1,1),DZM & + ,GRID_G(NGRID)%FMAPTI(1,1),GRID_G(NGRID)%FMAPV(1,1) & + ,GRID_G(NGRID)%F23V(1,1) & + ,HT,VCTR2,'W',JDIM) + ELSEIF(GPNT.EQ.'TPNT')THEN + CALL gradyt (m1,m2,m3,ia,iz,jaa,jzz & + ,OPTYP,VC3DA,VC3DB,VCTR1,GRID_G(NGRID)%RTGT(1,1) & + ,GRID_G(NGRID)%RTGV(1,1),GRID_G(NGRID)%DYV(1,1),DZT & + ,GRID_G(NGRID)%FMAPTI(1,1),GRID_G(NGRID)%FMAPV(1,1) & + ,GRID_G(NGRID)%F23V(1,1) & + ,HW,VCTR2,'T',JDIM) + ELSEIF(GPNT.EQ.'NPNT')THEN + CALL gradyv (m1,m2,m3,ia,iz,jaa,jzz & + ,OPTYP,VC3DA,VC3DB,VCTR1,GRID_G(NGRID)%RTGV(1,1) & + ,GRID_G(NGRID)%RTGT(1,1),GRID_G(NGRID)%DYT(1,1),DZM & + ,GRID_G(NGRID)%FMAPVI(1,1),GRID_G(NGRID)%FMAPT(1,1) & + ,GRID_G(NGRID)%F23T(1,1) & + ,HT,VCTR2,'W',JDIM) + ELSEIF(GPNT.EQ.'OPNT')THEN + CALL gradyt (m1,m2,m3,ia,iz,jaa,jzz & + ,OPTYP,VC3DA,VC3DB,VCTR1,GRID_G(NGRID)%RTGU(1,1) & + ,GRID_G(NGRID)%RTGM(1,1),GRID_G(NGRID)%DYM(1,1),DZM & + ,GRID_G(NGRID)%FMAPUI(1,1),GRID_G(NGRID)%FMAPM(1,1) & + ,GRID_G(NGRID)%F23M(1,1) & + ,HT,VCTR2,'W',JDIM) + ELSEIF(GPNT.EQ.'PPNT')THEN + CALL gradyv (m1,m2,m3,ia,iz,jaa,jzz & + ,OPTYP,VC3DA,VC3DB,VCTR1,GRID_G(NGRID)%RTGM(1,1) & + ,GRID_G(NGRID)%RTGU(1,1),GRID_G(NGRID)%DYU(1,1),DZT & + ,GRID_G(NGRID)%FMAPMI(1,1),GRID_G(NGRID)%FMAPU(1,1) & + ,GRID_G(NGRID)%F23U(1,1) & + ,HW,VCTR2,'T',JDIM) + ELSEIF(GPNT.EQ.'MPNT')THEN + CALL gradyv (m1,m2,m3,ia,iz,jaa,jzz & + ,OPTYP,VC3DA,VC3DB,VCTR1,GRID_G(NGRID)%RTGM(1,1) & + ,GRID_G(NGRID)%RTGU(1,1),GRID_G(NGRID)%DYU(1,1),DZM & + ,GRID_G(NGRID)%FMAPMI(1,1),GRID_G(NGRID)%FMAPU(1,1) & + ,GRID_G(NGRID)%F23U(1,1) & + ,HT,VCTR2,'W',JDIM) + ENDIF +ELSEIF(DIR.EQ.'ZDIR')THEN + IF(GPNT.EQ.'UPNT')THEN + CALL gradzt (m1,m2,m3,ia,iz,jaa,jzz,VC3DA,VC3DB & + ,GRID_G(NGRID)%RTGU(1,1),DZM) + ELSEIF(GPNT.EQ.'VPNT')THEN + CALL gradzt (m1,m2,m3,ia,iz,jaa,jzz,VC3DA,VC3DB & + ,GRID_G(NGRID)%RTGV(1,1),DZM) + ELSEIF(GPNT.EQ.'WPNT')THEN + CALL gradzw (m1,m2,m3,ia,iz,jaa,jzz,VC3DA,VC3DB & + ,GRID_G(NGRID)%RTGT(1,1),DZT) + ELSEIF(GPNT.EQ.'TPNT')THEN + CALL gradzt (m1,m2,m3,ia,iz,jaa,jzz,VC3DA,VC3DB & + ,GRID_G(NGRID)%RTGT(1,1),DZM) + ELSEIF(GPNT.EQ.'NPNT')THEN + CALL gradzw (m1,m2,m3,ia,iz,jaa,jzz,VC3DA,VC3DB & + ,GRID_G(NGRID)%RTGV(1,1),DZT) + ELSEIF(GPNT.EQ.'OPNT')THEN + CALL gradzw (m1,m2,m3,ia,iz,jaa,jzz,VC3DA,VC3DB & + ,GRID_G(NGRID)%RTGU(1,1),DZT) + ELSEIF(GPNT.EQ.'PPNT')THEN + CALL gradzt (m1,m2,m3,ia,iz,jaa,jzz,VC3DA,VC3DB & + ,GRID_G(NGRID)%RTGM(1,1),DZM) + ELSEIF(GPNT.EQ.'MPNT')THEN + CALL gradzw (m1,m2,m3,ia,iz,jaa,jzz,VC3DA,VC3DB & + ,GRID_G(NGRID)%RTGM(1,1),DZT) + ENDIF +ENDIF + +return +END SUBROUTINE rams_grad + +!############################################################################## +Subroutine gradxu (m1,m2,m3,ia,iz,ja,jz & + ,optyp,vc3da,vc3db,vc1da,rtge,rtgc & + ,dx,dz,fmapi,fmap,fq,hq,hq4,lev) + +! This is a general routine which computes any component of the +! gradient or divergence of VC3DA and stores it in VC3DB. + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz +real :: vc3da(m1,m2,m3),vc3db(m1,m2,m3),vc1da(*) & + ,rtge(m2,m3),rtgc(m2,m3),dx(m2,m3) & + ,fmap(m2,m3),fmapi(m2,m3),dz(*),fq(m2,m3),hq(*),hq4(*) +character(len=*) :: optyp,lev +integer :: i,j,k + +IF(OPTYP.EQ.'GRADNT')THEN + DO J=ja,jz + DO I=ia,iz + DO K=1,m1 + VC3DB(K,I,J)=(VC3DA(K,I,J)*RTGE(I,J) & + -VC3DA(K,I-1,J)*RTGE(I-1,J)) & + *DX(I,J)/RTGC(I,J) + ENDDO + ENDDO + ENDDO +ELSE + DO J=ja,jz + DO I=ia,iz + DO K=1,m1 + VC3DB(K,I,J)=(VC3DA(K,I,J)*RTGE(I,J) & + *FMAPI(I,J) & + -VC3DA(K,I-1,J)*RTGE(I-1,J) & + *FMAPI(I-1,J)) & + *DX(I,J)/RTGC(I,J)*FMAP(I,J) + ENDDO + ENDDO + ENDDO +ENDIF + +IF(OPTYP.EQ.'GRADNT' .OR. OPTYP.EQ.'DIVCRT')THEN + IF(LEV.EQ.'W')THEN + DO K=1,m1 + HQ4(K)=0.25*HQ(K) + ENDDO + ELSE + DO K=2,m1 + HQ4(K)=0.25*HQ(K-1) + ENDDO + ENDIF + + DO J=ja,jz + DO I=ia,iz + DO K=2,m1 + VC1DA(K)=HQ4(K)*(VC3DA(K,I,J)+VC3DA(K-1,I,J) & + +VC3DA(K,I-1,J)+VC3DA(K-1,I-1,J)) + ENDDO + + !Saleeby(2010):Meesters et al.(2008) sloped gradient fix to sfc flux + IF(OPTYP .NE. 'GRADNT') VC1DA(2) = 0. + + DO K=2,m1-1 + VC3DB(K,I,J)=VC3DB(K,I,J) & + +FQ(I,J)*DZ(K)*(VC1DA(K+1)-VC1DA(K)) + ENDDO + VC3DB(1,I,J)=VC3DB(2,I,J) + IF(LEV.EQ.'W')VC3DB(m1-1,I,J)=VC3DB(m1-2,I,J) + IF(LEV.EQ.'T')VC3DB(m1,I,J)=VC3DB(m1-1,I,J) + ENDDO + ENDDO +ENDIF + +return +END SUBROUTINE gradxu + +!############################################################################## +Subroutine gradxt (m1,m2,m3,ia,iz,ja,jz & + ,OPTYP,VC3DA,VC3DB,VC1DA,RTGE,RTGC & + ,DX,DZ,FMAPI,FMAP,FQ,HQ,HQ4,LEV) + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz +real :: VC3DA(m1,m2,m3),VC3DB(m1,m2,m3),VC1DA(*) & + ,RTGE(m2,m3),RTGC(m2,m3),DX(m2,m3) & + ,FMAP(m2,m3),FMAPI(m2,m3),DZ(*),FQ(m2,m3),HQ(*),HQ4(*) +character(len=*) :: OPTYP,LEV +integer :: i,j,k + +IF(OPTYP.EQ.'GRADNT')THEN + DO J=ja,jz + DO I=ia,iz + DO K=1,m1 + VC3DB(K,I,J)=(VC3DA(K,I+1,J)*RTGE(I+1,J) & + -VC3DA(K,I,J)*RTGE(I,J)) & + *DX(I,J)/RTGC(I,J) + ENDDO + ENDDO + ENDDO +ELSE + DO J=ja,jz + DO I=ia,iz + DO K=1,m1 + VC3DB(K,I,J)=(VC3DA(K,I+1,J)*RTGE(I+1,J) & + *FMAPI(I+1,J) & + -VC3DA(K,I,J)*RTGE(I,J) & + *FMAPI(I,J)) & + *DX(I,J)/RTGC(I,J)*FMAP(I,J) + ENDDO + ENDDO + ENDDO +ENDIF + +IF(OPTYP.EQ.'GRADNT' .OR. OPTYP.EQ.'DIVCRT')THEN + IF(LEV.EQ.'W')THEN + DO K=1,m1 + HQ4(K)=0.25*HQ(K) + ENDDO + ELSE + DO K=2,m1 + HQ4(K)=0.25*HQ(K-1) + ENDDO + ENDIF + + DO J=ja,jz + DO I=ia,iz + DO K=2,m1 + VC1DA(K)=HQ4(K)*(VC3DA(K,I,J)+VC3DA(K-1,I,J) & + +VC3DA(K,I+1,J)+VC3DA(K-1,I+1,J)) + ENDDO + + !Saleeby(2010):Meesters et al.(2008) sloped gradient fix to sfc flux + IF(OPTYP .NE. 'GRADNT') VC1DA(2) = 0. + + DO K=2,m1-1 + VC3DB(K,I,J)=VC3DB(K,I,J) & + +FQ(I,J)*DZ(K)*(VC1DA(K+1)-VC1DA(K)) + ENDDO + VC3DB(1,I,J)=VC3DB(2,I,J) + IF(LEV.EQ.'W')VC3DB(m1-1,I,J)=VC3DB(m1-2,I,J) + IF(LEV.EQ.'T')VC3DB(m1,I,J)=VC3DB(m1-1,I,J) + ENDDO + ENDDO +ENDIF + +return +END SUBROUTINE gradxt + +!############################################################################## +Subroutine gradyv (m1,m2,m3,ia,iz,ja,jz & + ,OPTYP,VC3DA,VC3DB,VC1DA,RTGE,RTGC & + ,DY,DZ,FMAPI,FMAP,FQ,HQ,HQ4,LEV,JD) + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,jd +real :: VC3DA(m1,m2,m3),VC3DB(m1,m2,m3),VC1DA(*) & + ,RTGE(m2,m3),RTGC(m2,m3),DY(m2,m3) & + ,FMAP(m2,m3),FMAPI(m2,m3),DZ(*),FQ(m2,m3),HQ(*),HQ4(*) +character(len=*) :: OPTYP,LEV +integer :: i,j,k + +IF(OPTYP.EQ.'GRADNT')THEN + DO J=ja,jz + DO I=ia,iz + DO K=1,m1 + VC3DB(K,I,J)=(VC3DA(K,I,J)*RTGE(I,J) & + -VC3DA(K,I,J-jd)*RTGE(I,J-jd)) & + *DY(I,J)/RTGC(I,J) + ENDDO + ENDDO + ENDDO +ELSE + DO J=ja,jz + DO I=ia,iz + DO K=1,m1 + VC3DB(K,I,J)=(VC3DA(K,I,J)*RTGE(I,J) & + *FMAPI(I,J) & + -VC3DA(K,I,J-jd)*RTGE(I,J-jd) & + *FMAPI(I,J-jd)) & + *DY(I,J)/RTGC(I,J)*FMAP(I,J) + ENDDO + ENDDO + ENDDO +ENDIF + +IF(OPTYP.EQ.'GRADNT' .OR. OPTYP.EQ.'DIVCRT')THEN + IF(LEV.EQ.'W')THEN + DO K=1,m1 + HQ4(K)=0.25*HQ(K) + ENDDO + ELSE + DO K=2,m1 + HQ4(K)=0.25*HQ(K-1) + ENDDO + ENDIF + + DO J=ja,jz + DO I=ia,iz + DO K=2,m1 + VC1DA(K)=HQ4(K)*(VC3DA(K,I,J)+VC3DA(K-1,I,J) & + +VC3DA(K,I,J-jd)+VC3DA(K-1,I,J-jd)) + ENDDO + + !Saleeby(2010):Meesters et al.(2008) sloped gradient fix to sfc flux + IF(OPTYP .NE. 'GRADNT') VC1DA(2) = 0. + + DO K=2,m1-1 + VC3DB(K,I,J)=VC3DB(K,I,J) & + +FQ(I,J)*DZ(K)*(VC1DA(K+1)-VC1DA(K)) + ENDDO + VC3DB(1,I,J)=VC3DB(2,I,J) + IF(LEV.EQ.'W')VC3DB(m1-1,I,J)=VC3DB(m1-2,I,J) + IF(LEV.EQ.'T')VC3DB(m1,I,J)=VC3DB(m1-1,I,J) + ENDDO + ENDDO +ENDIF + +return +END SUBROUTINE gradyv + +!############################################################################## +Subroutine gradyt (m1,m2,m3,ia,iz,ja,jz & + ,OPTYP,VC3DA,VC3DB,VC1DA,RTGE,RTGC & + ,DY,DZ,FMAPI,FMAP,FQ,HQ,HQ4,LEV,JD) + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,jd +real :: VC3DA(m1,m2,m3),VC3DB(m1,m2,m3),VC1DA(*) & + ,RTGE(m2,m3),RTGC(m2,m3),DY(m2,m3) & + ,FMAP(m2,m3),FMAPI(m2,m3),DZ(*),FQ(m2,m3),HQ(*),HQ4(*) +character(len=*) :: OPTYP,LEV +integer :: i,j,k + +IF(OPTYP.EQ.'GRADNT')THEN + DO J=ja,jz + DO I=ia,iz + DO K=1,m1 + VC3DB(K,I,J)=(VC3DA(K,I,J+jd)*RTGE(I,J+jd) & + -VC3DA(K,I,J)*RTGE(I,J)) & + *DY(I,J)/RTGC(I,J) + ENDDO + ENDDO + ENDDO +ELSE + DO J=ja,jz + DO I=ia,iz + DO K=1,m1 + VC3DB(K,I,J)=(VC3DA(K,I,J+jd)*RTGE(I,J+jd) & + *FMAPI(I,J+jd) & + -VC3DA(K,I,J)*RTGE(I,J) & + *FMAPI(I,J)) & + *DY(I,J)/RTGC(I,J)*FMAP(I,J) + ENDDO + ENDDO + ENDDO +ENDIF + +IF(OPTYP.EQ.'GRADNT' .OR. OPTYP.EQ.'DIVCRT')THEN + IF(LEV.EQ.'W')THEN + DO K=1,m1 + HQ4(K)=0.25*HQ(K) + ENDDO + ELSE + DO K=2,m1 + HQ4(K)=0.25*HQ(K-1) + ENDDO + ENDIF + + DO J=ja,jz + DO I=ia,iz + DO K=2,m1 + VC1DA(K)=HQ4(K)*(VC3DA(K,I,J)+VC3DA(K-1,I,J) & + +VC3DA(K,I,J+jd)+VC3DA(K-1,I,J+jd)) + ENDDO + + !Saleeby(2010):Meesters et al.(2008) sloped gradient fix to sfc flux + IF(OPTYP .NE. 'GRADNT') VC1DA(2) = 0. + + DO K=2,m1-1 + VC3DB(K,I,J)=VC3DB(K,I,J) & + +FQ(I,J)*DZ(K)*(VC1DA(K+1)-VC1DA(K)) + ENDDO + VC3DB(1,I,J)=VC3DB(2,I,J) + IF(LEV.EQ.'W')VC3DB(m1-1,I,J)=VC3DB(m1-2,I,J) + IF(LEV.EQ.'T')VC3DB(m1,I,J)=VC3DB(m1-1,I,J) + ENDDO + ENDDO +ENDIF + +return +END SUBROUTINE gradyt + +!############################################################################## +Subroutine gradzw (m1,m2,m3,ia,iz,ja,jz,VC3DA,VC3DB,RTGC,DZ) + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz +real :: VC3DA(m1,m2,m3),VC3DB(m1,m2,m3),RTGC(m2,m3) ,DZ(*) +integer :: i,j,k + +DO J=ja,jz + DO I=ia,iz + DO K=2,m1 + VC3DB(K,I,J)=(VC3DA(K,I,J)-VC3DA(K-1,I,J))*DZ(K) & + /RTGC(I,J) + ENDDO + ENDDO +ENDDO + +return +END SUBROUTINE gradzw + +!############################################################################## +Subroutine gradzt (m1,m2,m3,ia,iz,ja,jz,VC3DA,VC3DB,RTGC,DZ) + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz +real :: VC3DA(m1,m2,m3),VC3DB(m1,m2,m3),RTGC(m2,m3) ,DZ(*) +integer :: i,j,k + +DO J=ja,jz + DO I=ia,iz + DO K=1,m1-1 + VC3DB(K,I,J)=(VC3DA(K+1,I,J)-VC3DA(K,I,J))*DZ(K) & + /RTGC(I,J) + ENDDO + ENDDO +ENDDO + +return +END SUBROUTINE gradzt + diff --git a/src/6.2.16/turb/turb_diff.f90 b/src/6.2.16/turb/turb_diff.f90 new file mode 100644 index 0000000..13ae4dd --- /dev/null +++ b/src/6.2.16/turb/turb_diff.f90 @@ -0,0 +1,1051 @@ +!############################################################################## +Subroutine diffvel (m1,m2,m3,ia,iz,ja,jz,jd & + ,iz1,jz1,izu,jzv,idiffkk & + ,up,vp,wp,ut,vt,wt,vt3da,vt3db,vt3dc & + ,vt3dd,vt3de,vt3df,vt3dg,vt3dj,vt3dk & + ,vt3dl,vt3dm,vt3dn,vt3do,rtgu,rtgv,rtgt & + ,sflux_u,sflux_v,sflux_w,dn0,dn0u,dn0v,scr1,scr2) + +use mem_grid +use mem_scratch +use mem_turb + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,jd,iz1,jz1,izu,jzv,idiffkk,i,j,k + +real :: akn,ako,akp,cross,c1,c2,dtlvi +real, dimension(m1,m2,m3) :: up,vp,wp,ut,vt,wt,vt3da,vt3db,vt3dc,vt3dd & + ,vt3de,vt3df,vt3dg,vt3dj,vt3dk,vt3dl,vt3dm,vt3dn,vt3do,scr1,scr2 & + ,dn0,dn0u,dn0v +real, dimension(m2,m3) :: sflux_u,sflux_v,sflux_w,rtgt,rtgu,rtgv + +! compute fluxes with k's and previous strains + +if (ihorgrad .eq. 1) then + + do j = 1,jz1 + do i = 1,iz1 + do k = 1,m1-1 + vt3da(k,i,j) = -vt3da(k,i,j) * scr2(k,i,j) + vt3dc(k,i,j) = -vt3dc(k,i,j) * scr2(k,i,j) + enddo + enddo + enddo + + do j = 1,jz + do i = 1,iz + do k = 1,m1-1 + akn = .25 * (scr2(k,i ,j ) + scr2(k+1,i ,j ) & + + scr2(k,i ,j+jd) + scr2(k+1,i ,j+jd)) + ako = .25 * (scr2(k,i ,j ) + scr2(k+1,i ,j ) & + + scr2(k,i+1,j ) + scr2(k+1,i+1,j )) + akp = .25 * (scr2(k,i ,j ) + scr2(k ,i+1,j ) & + + scr2(k,i ,j+jd) + scr2(k ,i+1,j+jd)) + + vt3db(k,i,j) = -vt3db(k,i,j) * akp + vt3dn(k,i,j) = -vt3dn(k,i,j) * akp + vt3dd(k,i,j) = -vt3dd(k,i,j) * ako + vt3df(k,i,j) = -vt3df(k,i,j) * ako + vt3de(k,i,j) = -vt3de(k,i,j) * akn + vt3dg(k,i,j) = -vt3dg(k,i,j) * akn + enddo + enddo + enddo + +elseif(ihorgrad.eq.2)then + + do j = 1,jz + do i = 1,iz + do k = 1,m1-1 + akn = .25 * (scr2(k,i ,j ) + scr2(k+1,i ,j ) & + + scr2(k,i ,j+jd) + scr2(k+1,i ,j+jd)) + ako = .25 * (scr2(k,i ,j ) + scr2(k+1,i ,j ) & + + scr2(k,i+1,j ) + scr2(k+1,i+1,j )) + + vt3df(k,i,j) = -vt3df(k,i,j) * ako + vt3dg(k,i,j) = -vt3dg(k,i,j) * akn + enddo + enddo + enddo + +endif + +cross = 0. +if (idiffkk .ge. 3) cross = 1. + +!------------------------ vertical u-component diffusion ---------------- + +do j = ja,jz + do i = ia,izu + do k = 1,m1-1 + vctr1(k) = cross * vt3df(k,i,j) + vctr2(k) = dzm(k) * (scr1(k,i,j) + scr1(k+1,i,j) & + + scr1(k,i+1,j) + scr1(k+1,i+1,j)) + enddo + + if (nstbot .eq. 1) then + vctr1(1) = .5 * (sflux_u(i,j) + sflux_u(i+1,j)) + else + vctr1(1) = vctr1(1) + up(1,i,j) & + * .25 * (scr1(1,i,j) + scr1(2,i,j) + scr1(1,i+1,j) & + + scr1(2,i+1,j)) * dzm(1) / rtgu(i,j) + endif + + if (nsttop .eq. 1) then + vctr1(m1-1) = 0. + else + vctr1(m1-1) = vctr1(m1-1) - up(m1-1,i,j) & + * .25 * (scr1(m1,i,j) + scr1(m1-1,i,j) & + + scr1(m1,i+1,j) + scr1(m1-1,i+1,j)) * dzm(m1-1) & + / rtgu(i,j) + endif + + c1 = dtlv / rtgu(i,j) + c2 = .25 * dtlv / (rtgu(i,j) * rtgu(i,j)) + do k = 2,m1-1 + vt3dl(k,i,j) = up(k,i,j) * dn0u(k,i,j) & + + c1 * dzt(k) * (vctr1(k-1) - vctr1(k)) + vt3dj(k,i,j) = - c2 * dzt(k) * vctr2(k-1) + vt3dk(k,i,j) = - c2 * dzt(k) * vctr2(k) + vt3do(k,i,j) = dn0u(k,i,j) - vt3dj(k,i,j) - vt3dk(k,i,j) + enddo + vt3dj(2,i,j) = 0. + if (nstbot .eq. 1) vt3do(2,i,j) = dn0u(2,i,j) - vt3dk(2,i,j) + vt3dk(m1-1,i,j) = 0. + if (nsttop .eq. 1) vt3do(m1-1,i,j) = dn0u(m1-1,i,j) & + - vt3dj(m1-1,i,j) + + enddo +enddo + +CALL tridiff1 (m1,m2,m3,ia,izu,ja,jz,m1-1 & + ,vt3dj,vt3do,vt3dk,vt3dl,vt3do,vt3dk) + +!---------------------horizontal u-component diffusion ---------------- + +if(ihorgrad.eq.1)then + CALL divcart (m1,m2,m3,ia,izu,ja,jz,vt3da,vt3dj,'XDIR','TPNT') + CALL divcart (m1,m2,m3,ia,izu,ja,jz,vt3dn,vt3dk,'YDIR','PPNT') + +elseif(ihorgrad.eq.2)then +! average the dn0*hkh to the velocity points + CALL avgvel (m1,m2,m3,ia,izu,ja,jz,'xdir',jd,vt3da,scr2) + CALL truhor (m1,m2,m3,ia,izu,ja,jz & + ,up,vt3dj,'xdir','dxt',grid_g(ngrid)%dxt(1,1) & + ,grid_g(ngrid)%topu(1,1),grid_g(ngrid)%rtgu(1,1) & + ,zt,vctr1,vctr2,vctr3,vctr4,vctr5 & + ,vctr6,vctr7,jd,vt3da,'NONE') + + + CALL avgvel (m1,m2,m3,ia,izu,ja,jz,'ydir',jd,vt3da,scr2) + CALL truhor (m1,m2,m3,ia,izu,ja,jz & + ,up,vt3dk,'ydir','dym',grid_g(ngrid)%dym(1,1) & + ,grid_g(ngrid)%topu(1,1),grid_g(ngrid)%rtgu(1,1) & + ,zt,vctr1,vctr2,vctr3,vctr4,vctr5 & + ,vctr6,vctr7,jd,vt3da,'NONE') +endif + +dtlvi = 1.0 / dtlv + +if (jd .eq. 1) then + do j = ja,jz + do i = ia,izu + do k = 2,m1-1 + ut(k,i,j) = ut(k,i,j) & + + dtlvi * (vt3do(k,i,j) - up(k,i,j)) & + - (vt3dj(k,i,j) + vt3dk(k,i,j)) / dn0u(k,i,j) + enddo + enddo + enddo +else + do j = ja,jz + do i = ia,izu + do k = 2,m1-1 + ut(k,i,j) = ut(k,i,j) & + + dtlvi * (vt3do(k,i,j)-up(k,i,j)) & + - vt3dj(k,i,j) / dn0u(k,i,j) + enddo + enddo + enddo +endif + +!------------------------ vertical v-component diffusion ---------------- + +if (jd .eq. 0) go to 99 + +do j = ja,jzv + do i = ia,iz + do k = 1,m1-1 + vctr1(k) = cross * vt3dg(k,i,j) + vctr2(k) = dzm(k) * (scr1(k,i,j) + scr1(k+1,i,j) & + + scr1(k,i,j+jd) + scr1(k+1,i,j+jd)) + enddo + + if (nstbot .eq. 1) then + vctr1(1) = .5 * (sflux_v(i,j) + sflux_v(i,j+jd)) + else + vctr1(1) = vctr1(1) + vp(1,i,j) & + * .25 * (scr1(1,i,j) + scr1(2,i,j) + scr1(1,i,j+jd) & + + scr1(2,i,j+jd)) * dzm(1) / rtgv(i,j) + endif + if (nsttop .eq. 1) then + vctr1(m1-1) = 0. + else + vctr1(m1-1) = vctr1(m1-1) - vp(m1-1,i,j) & + * .25 * (scr1(m1,i,j) + scr1(m1-1,i,j) & + + scr1(m1,i,j+jd) + scr1(m1-1,i,j+jd)) * dzm(m1-1) & + / rtgv(i,j) + endif + + c1 = dtlv / rtgv(i,j) + c2 = .25 * dtlv / (rtgv(i,j) * rtgv(i,j)) + do k = 2,m1-1 + vt3dm(k,i,j) = vp(k,i,j) * dn0v(k,i,j) & + + c1 * dzt(k) * (vctr1(k-1) - vctr1(k)) + vt3dj(k,i,j) = -c2 * dzt(k) * vctr2(k-1) + vt3dk(k,i,j) = -c2 * dzt(k) * vctr2(k) + vt3do(k,i,j) = dn0v(k,i,j) - vt3dj(k,i,j) - vt3dk(k,i,j) + enddo + vt3dj(2,i,j) = 0. + if (nstbot .eq. 1) vt3do(2,i,j) = dn0v(2,i,j) - vt3dk(2,i,j) + + vt3dk(m1-1,i,j) = 0. + if (nsttop .eq. 1) & + vt3do(m1-1,i,j) = dn0v(m1-1,i,j) - vt3dj(m1-1,i,j) + enddo +enddo + +CALL tridiff1 (m1,m2,m3,ia,iz,ja,jzv,m1-1 & + ,vt3dj,vt3do,vt3dk,vt3dm,vt3do,vt3dk) + +!--------------------- horizontal v-component diffusion ---------------- + +if (ihorgrad .eq. 1) then + CALL divcart (m1,m2,m3,ia,iz,ja,jzv,vt3dc,vt3dj,'YDIR','TPNT') + CALL divcart (m1,m2,m3,ia,iz,ja,jzv,vt3db,vt3dk,'XDIR','PPNT') + +elseif(ihorgrad.eq.2)then +! average the dn0*hkh to the velocity points + CALL avgvel (m1,m2,m3,ia,iz,ja,jzv,'ydir',jd,vt3da,scr2) + CALL truhor (m1,m2,m3,ia,iz,ja,jzv & + ,vp,vt3dj,'ydir','dyt',grid_g(ngrid)%dyt(1,1) & + ,grid_g(ngrid)%topv(1,1),grid_g(ngrid)%rtgv(1,1) & + ,zt,vctr1,vctr2,vctr3,vctr4,vctr5 & + ,vctr6,vctr7,jd,vt3da,'NONE') + + CALL avgvel (m1,m2,m3,ia,iz,ja,jzv,'xdir',jd,vt3da,scr2) + CALL truhor (m1,m2,m3,ia,iz,ja,jzv & + ,vp,vt3dk,'xdir','dxm',grid_g(ngrid)%dxm(1,1) & + ,grid_g(ngrid)%topv(1,1),grid_g(ngrid)%rtgv(1,1) & + ,zt,vctr1,vctr2,vctr3,vctr4,vctr5 & + ,vctr6,vctr7,jd,vt3da,'NONE') +endif + +do j = ja,jzv + do i = ia,iz + do k = 2,m1-1 + vt(k,i,j) = vt(k,i,j) + dtlvi * (vt3do(k,i,j)-vp(k,i,j)) & + - (vt3dj(k,i,j) + vt3dk(k,i,j)) / dn0v(k,i,j) + enddo + enddo +enddo + +99 continue + +!------------------------ vertical w-component diffusion ---------------- + +do j = ja,jz + do i = ia,iz + do k = 2,m1-1 + vctr1(k) = 0. + vctr2(k) = dzt(k) * scr1(k,i,j) + enddo + + if (nstbot .eq. 1) then + vctr1(2) = sflux_w(i,j) + else + vctr1(2) = (1.0 + cross) * wp(1,i,j) & + * scr1(2,i,j) * dzt(2) / rtgt(i,j) + endif + if (nsttop .eq. 1) then + vctr1(m1-1) = 0. + else + vctr1(m1-1) = -(1.0 + cross) * wp(m1-1,i,j) & + * scr1(m1-1,i,j) * dzt(m1-1) / rtgt(i,j) + endif + + c1 = dtlv / rtgt(i,j) + c2 = 2.0 * dtlv / (rtgt(i,j) * rtgt(i,j)) + do k = 2,m1-2 + vt3dn(k,i,j) = wp(k,i,j) & + * (dn0(k,i,j) + dn0(k+1,i,j)) * .5 & + + c1 * dzm(k) * (vctr1(k) - vctr1(k+1)) + vt3dj(k,i,j) = - c2 * dzm(k) * vctr2(k) + vt3dk(k,i,j) = - c2 * dzm(k) * vctr2(k+1) + vt3do(k,i,j) = (dn0(k,i,j) + dn0(k+1,i,j)) * .5 & + - vt3dj(k,i,j) - vt3dk(k,i,j) + enddo + vt3dj(2,i,j) = 0. + if (nstbot .eq. 1) vt3do(2,i,j) = & + (dn0(2,i,j) + dn0(3,i,j)) * .5 - vt3dk(2,i,j) + vt3dk(m1-2,i,j) = 0. + if (nsttop .eq. 1) vt3do(m1-2,i,j) = & + (dn0(m1-2,i,j) + dn0(m1-1,i,j)) * .5 & + -vt3dj(m1-2,i,j) + enddo +enddo + +CALL tridiff1 (m1,m2,m3,ia,iz,ja,jz,m1-2 & + ,vt3dj,vt3do,vt3dk,vt3dn,vt3do,vt3dk) + +!--------------------- horizontal w-component diffusion ---------------- + +if (idiffkk .ge. 3) then + if (ihorgrad .eq. 1) then + CALL divcart (m1,m2,m3,ia,iz,ja,jz,vt3dd,vt3dj,'XDIR','OPNT') + CALL divcart (m1,m2,m3,ia,iz,ja,jz,vt3de,vt3dk,'YDIR','NPNT') + + elseif(ihorgrad.eq.2)then + CALL truhor (m1,m2,m3,ia,iz,ja,jz & + ,wp,vt3dj,'xdir','dxu',grid_g(ngrid)%dxu(1,1) & + ,grid_g(ngrid)%topt(1,1),grid_g(ngrid)%rtgt(1,1) & + ,zm,vctr1,vctr2,vctr3,vctr4,vctr5 & + ,vctr6,vctr7,jd,scr2,'NONE') + + CALL truhor (m1,m2,m3,ia,iz,ja,jz & + ,wp,vt3dk,'ydir','dyv',grid_g(ngrid)%dyv(1,1) & + ,grid_g(ngrid)%topt(1,1),grid_g(ngrid)%rtgt(1,1) & + ,zm,vctr1,vctr2,vctr3,vctr4,vctr5 & + ,vctr6,vctr7,jd,scr2,'NONE') + endif + +else + if(ihorgrad.eq.1)then + CALL divcart (m1,m2,m3,ia,iz,ja,jz,vt3df,vt3dj,'XDIR','OPNT') + CALL divcart (m1,m2,m3,ia,iz,ja,jz,vt3dg,vt3dk,'YDIR','NPNT') + + elseif(ihorgrad.eq.2)then + CALL truhor (m1,m2,m3,ia,iz,ja,jz & + ,wp,vt3dj,'xdir','dxu',grid_g(ngrid)%dxu(1,1) & + ,grid_g(ngrid)%topt(1,1),grid_g(ngrid)%rtgt(1,1) & + ,zm,vctr1,vctr2,vctr3,vctr4,vctr5 & + ,vctr6,vctr7,jd,scr2,'NONE') + + CALL truhor (m1,m2,m3,ia,iz,ja,jz & + ,wp,vt3dk,'ydir','dyv',grid_g(ngrid)%dyv(1,1) & + ,grid_g(ngrid)%topt(1,1),grid_g(ngrid)%rtgt(1,1) & + ,zm,vctr1,vctr2,vctr3,vctr4,vctr5 & + ,vctr6,vctr7,jd,scr2,'NONE') + endif +endif + +if (jd .eq. 1) then + do j = ja,jz + do i = ia,iz + do k = 2,m1-2 + wt(k,i,j) = wt(k,i,j) & + + dtlvi * (vt3do(k,i,j) - wp(k,i,j)) & + - (vt3dj(k,i,j) + vt3dk(k,i,j)) & + / ((dn0(k,i,j) + dn0(k+1,i,j)) * .5) + enddo + enddo + enddo +else + do j = ja,jz + do i = ia,iz + do k = 2,m1-2 + wt(k,i,j) = wt(k,i,j) & + + dtlvi * (vt3do(k,i,j) - wp(k,i,j)) & + - vt3dj(k,i,j) & + / ((dn0(k,i,j) + dn0(k+1,i,j)) * .5) + enddo + enddo + enddo +endif + +return +END SUBROUTINE diffvel + +!############################################################################## +Subroutine diffsclr (m1,m2,m3,ia,iz,ja,jz,jd & + ,n,ksf & + ,scp,sct,fluxdivx,fluxdivy,vt3df,vt3dg & + ,coefz_km1,coefz_kp1,coefz_k,rhoscp,dn03i,vt3dl,vt3dm,icoefz_k_2,rtgt & + ,sfcflx,dn0,th0,rvt0,th00,rvt00,vkkh,hkkh) + +! ldgrant(2016): added lots of comments and changed scratch variable names + +! ksf = a flag to tell whether to compute vertical diffusion matrix coeffs +! scp = scalar variable (at past time level) +! sct = scalar tendency +! fluxdivx = flux divergence in x-direction [kg/m3 * [scp]/s] +! fluxdivy = flux divergence in y-direction [kg/m3 * [scp]/s] +! vt3df = +! vt3dg = +! for the next 3 vars: if rearrange the vertical part of scalar tendency eqn +! so LHS has scp(k) at time t+dt, then the following are coefficients: +! coefz_km1 = coef on scp(k-1) [kg/m3] +! coefz_kp1 = coef on scp(k+1) [kg/m3] +! coefz_k = coef on scp(k) [kg/m3] +! rhoscp = rho0*scp [kg/m3 * scalar units] +! dn03i = 1/rho0 [m3/kg] +! vt3dl = +! vt3dm = +! icoefz_k_2 = 1/coefz_k(2) [m3/kg] +! sfcflx = sflux_r if scalar = RTP or sflux_t if scalar = THP or 0 otherwise +! vkkh = vkh at past time level [kg/m3 * m2/s] +! hkkh = hkh at past time level [kg/m3 * m2/s] + +use mem_grid +use mem_scratch +use mem_turb +use var_tables +use mem_basic +use micphys, only:idiffperts +use node_mod, only:mi0,mj0 + +implicit none + +integer :: n,ksf + +integer :: m1,m2,m3,ia,iz,ja,jz,jd,i,j,k +integer, save :: ksf_save = 0 +real, dimension(:,:,:), allocatable :: scp_diffuse + +real :: dto2,dtlti +real, dimension(m1,m2,m3) :: scp,sct,fluxdivx,fluxdivy,rhoscp,vt3df,vt3dg & + ,coefz_km1,coefz_kp1,coefz_k,vkkh,hkkh,dn0,dn03i,vt3dl,vt3dm,th0,rvt0 & + ,th00,rvt00 +real, dimension(m2,m3) :: sfcflx,rtgt,icoefz_k_2 + +allocate(scp_diffuse(m1,m2,m3)) + +! ldgrant(2016): subtract off base state from thp and rtp scalars to +! diffuse perturbation save it in variable scp_diffuse and use +! scp_diffuse instead of scp for the gradient, flux divergence, +! tridiagonal matrix solver etc. calculations. +! note: scp_diffuse=scp for all scalars except THP and RTP +! +! th0 is set to the base state theta-v. At time zero (when the base state +! is established), theta and theta-il (THP) will be equal since there is +! no condensate. Theta-v at time zero, however, will hold different values +! than theta (or theta-il) since there will be vapor at time zero. This is +! why th0 is converted from theta-v to theta before subtracting from THP. +! +! For idiffperts=2 we compute the domain average state for the "new" base state. +! This means th00 = theta/thp and rvt00 = rtp +! smsaleeb(2017): th00 is set to the the domain average THP (theta-il), simply +! subtract it from scp (when scp is set to THP). +! +! For idiffperts=3 we use varfiles to get interpolated 3D state from +! variables THETA and RV, so th00=theta and rvt00=rv from varfiles. + +!IDIFFPERTS +!0=normal scalar diffusion +!1=diffuse perturbations THP,RTP from 3D base state (THETA-V,RV) +!2=diffuse perturbations THP,RTP from 3D current domain-mean state +!3=diffuse perturbations THP,RTP from 3D current varfile state (THETA,RV) + +if( scalar_tab(n,ngrid)%name == 'THP' .and. idiffperts >= 1) then + do j = 1,m3 + do i = 1,m2 + do k = 1,m1 + if(idiffperts==1)scp_diffuse(k,i,j) = scp(k,i,j)-(th0(k,i,j) & + /(1.+0.61*rvt0(k,i,j))) + if(idiffperts==2)scp_diffuse(k,i,j) = scp(k,i,j)-th00(k,i,j) + if(idiffperts==3)scp_diffuse(k,i,j) = scp(k,i,j)-th00(k,i,j) + enddo + enddo + enddo +elseif( scalar_tab(n,ngrid)%name == 'RTP' .and. idiffperts >= 1) then + do j = 1,m3 + do i = 1,m2 + do k = 1,m1 + if(idiffperts==1)scp_diffuse(k,i,j) = scp(k,i,j)-rvt0(k,i,j) + if(idiffperts==2)scp_diffuse(k,i,j) = scp(k,i,j)-rvt00(k,i,j) + if(idiffperts==3)scp_diffuse(k,i,j) = scp(k,i,j)-rvt00(k,i,j) + enddo + enddo + enddo +else ! all other scalars: diffuse full scalar field + do j = 1,m3 + do i = 1,m2 + do k = 1,m1 + scp_diffuse(k,i,j) = scp(k,i,j) + enddo + enddo + enddo +endif + +! compute vertical diffusion matrix coefficients for scalars +if (n == 1 .or. ksf /= ksf_save) then + ksf_save = ksf + do j = ja,jz + do i = ia,iz + do k = 1,m1-1 + ! 2*avg(vkkh)/dzm (m levs) [kg/m3*m/s] + vctr1(k) = dzm(k) * (vkkh(k,i,j) + vkkh(k+1,i,j)) + ! Note - this doesn't account for stretched grid! + enddo + dto2 = .5 * dtlt / (rtgt(i,j) * rtgt(i,j)) ! dt/2 + do k = 2,m1-1 + ! -[avg(vkkh)/dzm from m level k-1] * [1/dz from t level k] * dt [kg/m3] + coefz_km1(k,i,j) = -dto2 * dzt(k) * vctr1(k-1) + ! -[avg(vkkh)/dzm from m level k] * [1/dz from t level k] * dt [kg/m3] + coefz_kp1(k,i,j) = -dto2 * dzt(k) * vctr1(k) + ! rho0 + avg(vkkh(k-1))/dzm(k-1)*dt/dzt(k) + avg(vkkh(k))/dzm(k)*dt/dzt(k) + coefz_k(k,i,j) = dn0(k,i,j) - coefz_km1(k,i,j) - coefz_kp1(k,i,j) + dn03i(k,i,j) = 1. / dn0(k,i,j) ! [m3/kg] (t levs) + enddo + ! z=2 conditions + coefz_km1(2,i,j) = 0. + if (nstbot .eq. 1) & ! indicates if this grid goes to the sfc + ! exclude coefz_km1 from just below zt=2 + coefz_k(2,i,j) = dn0(2,i,j) - coefz_kp1(2,i,j) + ! z=m1-1 conditions + coefz_kp1(m1-1,i,j) = 0. + if (nsttop .eq. 1) & ! indicates if this grid goes to the model top + ! exclude coefz_kp1 from just above zt=m1-1 + coefz_k(m1-1,i,j) = dn0(m1-1,i,j) - coefz_km1(m1-1,i,j) + + icoefz_k_2(i,j) = 1. / coefz_k(2,i,j) ! 1/coefz_k at zt=2 + ! coefz_kp1/coefz_k at zt=2 [-] + vt3dl(2,i,j) = coefz_kp1(2,i,j) * icoefz_k_2(i,j) + ! tri diagonal matrix algorithm coefficients + do k = 3,m1-1 + ! [m3/kg ~ 1/rho] + vt3dm(k,i,j) = 1. / (coefz_k(k,i,j) - coefz_km1(k,i,j) * vt3dl(k-1,i,j)) + vt3dl(k,i,j) = coefz_kp1(k,i,j) * vt3dm(k,i,j) ! [-] + enddo + enddo + enddo + +endif + +! compute 2 horizontal scalar gradients needed for dscp/dt + +if (ihorgrad .eq. 1 .and. scalar_tab(n,ngrid)%name /= 'THP') then + ! only for ihorgrad = 1 for all scalars except thp + ! vt3df=d(scp)/dx(?) + CALL grad (m1,m2,m3,1,iz,ja,jz,scp_diffuse,vt3df,'XDIR','TPNT') + ! vt3dg=d(scp)/dy(?) + CALL grad (m1,m2,m3,ia,iz,1,jz,scp_diffuse,vt3dg,'YDIR','TPNT') + + do j = ja,jz + do i = 1,iz + do k = 1,m1-1 + ! -d(scp)/dx*avg(hkkh) on u points [scp*kg/m2/s] = scalar mass flux + vt3df(k,i,j) = -vt3df(k,i,j) & + * .5 * (hkkh(k,i,j) + hkkh(k,i+1,j)) + enddo + enddo + enddo + + do j = 1,jz + do i = ia,iz + do k = 1,m1-1 + ! -d(scp)/dy*avg(hkkh) on v points + vt3dg(k,i,j) = -vt3dg(k,i,j) & + * .5 * (hkkh(k,i,j) + hkkh(k,i,j+jd)) + enddo + enddo + enddo +endif + +! horizontal flux divergence for scalars + +if (ihorgrad .eq. 1 .and. scalar_tab(n,ngrid)%name /= 'THP') then + ! This is called for ihorgrad=1 for all scalars except thp + ! fluxdivx = scalar flux divergence in x direction [scp*kg/m3/s] + ! fluxdivy = scalar flux divergence in y direction + CALL divcart (m1,m2,m3,ia,iz,ja,jz,vt3df,fluxdivx,'XDIR','UPNT') + + CALL divcart (m1,m2,m3,ia,iz,ja,jz,vt3dg,fluxdivy,'YDIR','VPNT') + +elseif (ihorgrad .eq. 2 .or. scalar_tab(n,ngrid)%name == 'THP') then + ! This is called for ihorgrad=2 for all scalars, or just for + ! thp if ihorgrad=1 - haven't gone through this subroutine + CALL truhor (m1,m2,m3,ia,iz,ja,jz & + ,scp_diffuse,fluxdivx,'xdir','dxu',grid_g(ngrid)%dxu(1,1) & + ,grid_g(ngrid)%topt(1,1),grid_g(ngrid)%rtgt(1,1) & + ,zt,vctr1,vctr2,vctr3,vctr4,vctr5 & + ,vctr6,vctr7,jd,hkkh,scalar_tab(n,ngrid)%name) + + CALL truhor (m1,m2,m3,ia,iz,ja,jz & + ,scp_diffuse,fluxdivy,'ydir','dyv',grid_g(ngrid)%dyv(1,1) & + ,grid_g(ngrid)%topt(1,1),grid_g(ngrid)%rtgt(1,1) & + ,zt,vctr1,vctr2,vctr3,vctr4,vctr5 & + ,vctr6,vctr7,jd,hkkh,scalar_tab(n,ngrid)%name) +endif + +! finish matrix coefficients + +do j = ja,jz + do i = ia,iz + do k = 2,m1-1 + ! set rhoscp [kg/m3 * scalar units] + rhoscp(k,i,j) = scp_diffuse(k,i,j) * dn0(k,i,j) + enddo + + ! lower boundary condition on scalar*rho0 - include surface fluxes + if (nstbot .eq. 1) then ! indicates if this grid goes to the sfc + ! units: K*rho (for THP); kg/kg*rho (for RTP) + rhoscp(2,i,j) = scp_diffuse(2,i,j) * dn0(2,i,j) & + + sfcflx(i,j) * dtlt * dzt(2) / rtgt(i,j) + else ! ? + rhoscp(2,i,j) = scp_diffuse(2,i,j) * dn0(2,i,j) & + + .5 * dtlt * (vkkh(1,i,j) + vkkh(2,i,j)) & + * scp_diffuse(1,i,j) * dzm(2) * dzt(2) / rtgt(i,j) ** 2 + endif + + ! top boundary condition (m1-1) on scalar*rho0 - not sure what this is doing + if (nsttop .eq. 0) then ! is this check right? + rhoscp(m1-1,i,j) = scp_diffuse(m1-1,i,j) * dn0(m1-1,i,j) & + - .5 * dtlt * (vkkh(m1-1,i,j) + vkkh(m1,i,j)) & + * scp_diffuse(m1,i,j) * dzm(m1-1) * dzt(m1) / rtgt(i,j) ** 2 + endif + enddo +enddo + +! vertical diffusion loop - tridiagonal matrix algorithm! but what is on the LHS - +! scp(t+dt)? It must be implicit in time? +! trapezoidal scheme (i.e. Crank-Nicolson method) (e.g. Durran text p. 137): +! [scp(k,t+dt)-scp(k,t)]/dt = M/2*{d^2[scp(k,t+dt)]/dx^2+d^2[scp(k,t)]/dx^2} +! Durran p. 142 +do j = ja,jz + do i = ia,iz + + ! vt3df is reset here. First: initialize k=2 + ! sclr*rho * (1/coef with rho units) + vt3df(2,i,j) = rhoscp(2,i,j) * icoefz_k_2(i,j) + + ! loop up from k=3 to m1-1 - tridiagonal solver with coefficients + do k = 3,m1-1 + vt3df(k,i,j) = (rhoscp(k,i,j) - coefz_km1(k,i,j) * vt3df(k-1,i,j)) & + * vt3dm(k,i,j) + enddo + + ! loop down from k=m1-2 to 2 and back out solution which is scp at t+dt(?) + ! vt3df(m1-1) is the solution at that level and the others follow from there + do k = m1-2,2,-1 + ! This solves for the new variable, scp(k) at t+dt ? + vt3df(k,i,j) = vt3df(k,i,j) - vt3dl(k,i,j) * vt3df(k+1,i,j) + enddo + + enddo +enddo + +! Now vt3df has scp at t+dt due to vertical diffusion, so to get the tendency, +! we must back it out with d(scp)/dt = [scp(t+dt)-scp(t)]/dt +! based on below, since sct calculation has scp/dt subtracted out in the horizontal +! flux divergence part, then vt3df must be scp(t+dt) due to vertical diffusion + +dtlti = 1.0 / dtlt + +if (jd .eq. 1) then ! 3D + do j = ja,jz + do i = ia,iz + do k = 2,m1-1 + ! d(scp)/dt = d(scp)/dt - scp/dt + ! - 1/rho0*[d(rho0*Khx*dscp/dx)/dx + d(rho0*Khx*dscp/dy)/dy] + ! fluxdivx: horiz flux div in x dir; fluxdivy: y dir + sct(k,i,j) = sct(k,i,j) - scp_diffuse(k,i,j) * dtlti & + - (fluxdivx(k,i,j) + fluxdivy(k,i,j)) * dn03i(k,i,j) + enddo + enddo + enddo +else ! 2D + do j = ja,jz + do i = ia,iz + do k = 2,m1-1 + sct(k,i,j) = sct(k,i,j) - scp_diffuse(k,i,j) * dtlti & + - fluxdivx(k,i,j) * dn03i(k,i,j) + enddo + enddo + enddo +endif + +do j = ja,jz + do i = ia,iz + do k = 2,m1-1 + ! vt3df: new scalar val: back out tend + sct(k,i,j) = sct(k,i,j) + vt3df(k,i,j) * dtlti + enddo + enddo +enddo + +deallocate(scp_diffuse) + +return +END SUBROUTINE diffsclr + +!############################################################################## +Subroutine tridiff1 (m1,m2,m3,ia,iz,ja,jz,kz,cim1,ci,cip1,rhs,cj,cjp1) + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,kz,i,j,k +real :: cji +real, dimension(m1,m2,m3) :: cim1,ci,cip1,rhs,cj,cjp1 + +do j = ja,jz + do i = ia,iz + + cjp1(2,i,j) = cip1(2,i,j) / ci(2,i,j) + rhs(2,i,j) = rhs(2,i,j) / ci(2,i,j) + + do k = 3,kz + cj(k,i,j) = ci(k,i,j) - cim1(k,i,j) * cjp1(k-1,i,j) + cji = 1. / cj(k,i,j) + cjp1(k,i,j) = cip1(k,i,j) * cji + rhs(k,i,j) = (rhs(k,i,j) - cim1(k,i,j) * rhs(k-1,i,j)) & + * cji + enddo + + cj(kz,i,j) = rhs(kz,i,j) + + do k = kz-1,2,-1 + cj(k,i,j) = rhs(k,i,j) - cjp1(k,i,j) * cj(k+1,i,j) + enddo + + enddo +enddo + +return +END SUBROUTINE tridiff1 + +!############################################################################## +Subroutine truhor (m1,m2,m3,ia,iz,ja,jz & + ,vc3da,vc3db,dir,gpnt,dxy,topo,rtg & + ,z,vctr1,vctr2,vctr3,zintl,zintr & + ,dxynu,dxytem,jd,dn0hkh,sclrname) + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,jd,nz,jaa,jzz,je,jf,i,j,k +real :: delz1,delz3,distnu,distold,scale,aknu,akdiff,dthdz,lapse_rate_max +real, dimension(m1,m2,m3) :: vc3da,vc3db,dn0hkh +real, dimension(m2,m3) :: dxy,topo,rtg +real, dimension(m1) :: z,vctr1,vctr2,vctr3,zintl,zintr,dxynu,dxytem +character(len=*) :: dir,gpnt,sclrname + +nz=m1 + +jaa=ja +jzz=jz +if(jd.eq.0) then + jaa=1 + jzz=1 +endif + + if(dir.eq.'xdir')then + if(gpnt.eq.'dyt'.or.gpnt.eq.'dxt')then + je=0 + jf=1 + else + je=-1 + jf=0 + endif + do j=jaa,jzz + do i=ia,iz + do k=1,m1 + vctr1(k)=topo(i-1,j)+z(k)*rtg(i-1,j) + vctr2(k)=topo(i ,j)+z(k)*rtg(i ,j) + vctr3(k)=topo(i+1,j)+z(k)*rtg(i+1,j) + dxytem(k)=vc3da(k,i-1,j) + dxynu(k)=vc3da(k,i+1,j) + enddo + + !extrapolate the gradient from 3--->2 to 2--->1. + delz1=(vctr1(2)-vctr1(1))/(vctr1(3)-vctr1(2)) + delz3=(vctr3(2)-vctr3(1))/(vctr3(3)-vctr3(2)) + dxytem(1)=dxytem(2)-(dxytem(3)-dxytem(2))*delz1 + dxynu(1) =dxynu(2) -(dxynu(3) -dxynu(2)) *delz3 + + CALL htint (nz,dxytem,vctr1,nz,zintl,vctr2) + CALL htint (nz,dxynu, vctr3,nz,zintr,vctr2) + + !check intersection of cartesian sfc. on left side of mtn. + CALL topobnd (m1,m2,m3,i,j, 1,0,'l',vc3da,dxy(i+je,j) & + ,vctr1,vctr2,vctr3,zintr,dxytem) + !check intersection of cartesian sfc. on right side of mtn. + CALL topobnd (m1,m2,m3,i,j,-1,0,'r',vc3da,dxy(i+jf,j) & + ,vctr1,vctr2,vctr3,zintl,dxynu) + + !Saleeby(2009):Limit lapse rate to prevent runaway cooling + if (sclrname == 'THP') then + lapse_rate_max = 0.010 + if (zintr(2) < vc3da(2,i+je,j)) then + dthdz = (vc3da(2,i+je,j)-zintr(2))/(vctr3(2)-vctr3(1)) + if (dthdz > lapse_rate_max) dthdz = lapse_rate_max + zintr(2) = vc3da(2,i+je,j) - dthdz*(vctr3(2)-vctr3(1)) + endif + if (zintl(2) < vc3da(2,i+jf,j)) then + dthdz = (vc3da(2,i+jf,j)-zintl(2))/(vctr1(2)-vctr1(1)) + if (dthdz > lapse_rate_max) dthdz = lapse_rate_max + zintl(2) = vc3da(2,i+jf,j) - dthdz*(vctr1(2)-vctr1(1)) + endif + !if(ngrid==3.and.i==50.and.j==50) & + !print*,'Lapse1:',sclrname,ngrid,zintr(2),zintl(2) + endif + + do k=2,m1 + distnu=1./dxytem(k)+1./dxynu(k) + distold=1./dxy(i+je,j)+1./dxy(i+jf,j) + scale=distnu**2/distold**2 + if(scale.gt.1)stop ' scale incorrect-xdir--' + !Need to multiply hkh by 2 since going over 2dx + aknu=dn0hkh(k,i,j)*scale*2. + akdiff=-aknu/distnu + vc3db(k,i,j)=akdiff*( (zintr(k)-vc3da(k,i,j))*dxytem(k) & + -(vc3da(k,i,j)-zintl(k))*dxynu(k) ) + enddo + + vc3db(1,i,j)=vc3db(2,i,j) + if(gpnt.eq.'wpnt')then + vc3db(m1-1,i,j)=vc3db(m1-2,i,j) + else + vc3db(m1,i,j)=vc3db(m1-1,i,j) + endif + enddo + enddo + + elseif(dir.eq.'ydir' .and. jd==1)then + if(gpnt.eq.'dyt'.or.gpnt.eq.'dxt')then + je=0 + jf=jd + else + je=-jd + jf=0 + endif + do j=jaa,jzz + do i=ia,iz + do k=1,m1 + vctr1(k)=topo(i,j-jd)+z(k)*rtg(i,j-jd) + vctr2(k)=topo(i,j) +z(k)*rtg(i,j) + vctr3(k)=topo(i,j+jd)+z(k)*rtg(i,j+jd) + dxytem(k)=vc3da(k,i,j-jd) + dxynu(k)=vc3da(k,i,j+jd) + enddo + + !extrapolate the gradient from 3--->2 to 2--->1. + delz1=(vctr1(2)-vctr1(1))/(vctr1(3)-vctr1(2)) + delz3=(vctr3(2)-vctr3(1))/(vctr3(3)-vctr3(2)) + dxytem(1)=dxytem(2)-(dxytem(3)-dxytem(2))*delz1 + dxynu(1) =dxynu(2) -(dxynu(3) -dxynu(2)) *delz3 + + CALL htint (nz,dxytem,vctr1,nz,zintl,vctr2) + CALL htint (nz,dxynu, vctr3,nz,zintr,vctr2) + + !check intersection of cartesian sfc. on left side of mtn. + CALL topobnd (m1,m2,m3,i,j,0, 1,'l',vc3da,dxy(i,j+je) & + ,vctr1,vctr2,vctr3,zintr,dxytem) + !check intersection of cartesian sfc. on right side of mtn. + CALL topobnd (m1,m2,m3,i,j,0,-1,'r',vc3da,dxy(i,j+jf) & + ,vctr1,vctr2,vctr3,zintl,dxynu) + + !Saleeby(2009):Limit lapse rate to prevent runaway cooling + if (sclrname == 'THP') then + lapse_rate_max = 0.010 + if (zintr(2) < vc3da(2,i,j+je)) then + dthdz = (vc3da(2,i,j+je)-zintr(2))/(vctr3(2)-vctr3(1)) + if (dthdz > lapse_rate_max) dthdz = lapse_rate_max + zintr(2) = vc3da(2,i,j+je) - dthdz*(vctr3(2)-vctr3(1)) + endif + if (zintl(2) < vc3da(2,i,j+jf)) then + dthdz = (vc3da(2,i,j+jf)-zintl(2))/(vctr1(2)-vctr1(1)) + if (dthdz > lapse_rate_max) dthdz = lapse_rate_max + zintl(2) = vc3da(2,i,j+jf) - dthdz*(vctr1(2)-vctr1(1)) + endif + !if(ngrid==3.and.i==50.and.j==50) & + !print*,'Lapse1:',sclrname,ngrid,zintr(2),zintl(2) + endif + + do k=2,m1 + distnu=1./dxytem(k)+1./dxynu(k) + distold=1./dxy(i,j+je)+1./dxy(i,j+jf) + scale=distnu**2/distold**2 + if(scale.gt.1)stop ' scale incorrect-ydir--' + !Need to multiply hkh by 2 since going over 2dx + aknu=dn0hkh(k,i,j)*scale*2. + akdiff=-aknu/distnu + vc3db(k,i,j)=akdiff*( (zintr(k)-vc3da(k,i,j))*dxytem(k) & + -(vc3da(k,i,j)-zintl(k))*dxynu(k) ) + enddo + + vc3db(1,i,j)=vc3db(2,i,j) + if(gpnt.eq.'npnt')then + vc3db(m1-1,i,j)=vc3db(m1-2,i,j) + else + vc3db(m1,i,j)=vc3db(m1-1,i,j) + endif + enddo + enddo + + endif + +return +END SUBROUTINE truhor + +!############################################################################## +Subroutine topobnd (m1,m2,m3,i,j,ipm1,jpm1,sid,vc3da,dxy & + ,vctr1,vctr2,vctr3,zint,dxynu) + +implicit none + +integer :: m1,m2,m3,i,j,ipm1,jpm1,k + +real :: dxy,tanth,pct,delz1,delz2,delz3,vc1,vc3,vc2 +real, dimension(m1,m2,m3) :: vc3da +real, dimension(m1) :: vctr1,vctr2,zint,dxynu,vctr3 +character(len=*) :: sid + +! keep track of the distance between scalar points. +CALL ae0 (m1,dxynu,dxy) + +! | +! ----|---- +! / | \ +! / | \ +! / | \ +! / | \ +! / | \ +! / | \ +! / | \ +! / | \ +! ------ | ------- +! | | | | | | | +! vctr1 | vctr3 | vctr1 | vctr3 +! vctr2 | vctr2 +! t(i-1) t(i) t(i+1) | t(i-1) t(i) t(i+1) +! +! if the cartesian slice intersects topo., +! find the slope of the topography (tanth), then calculate the +! horizontal cartesian distance to sigma=2 level (1/dxynu). +! then interpolate along the sigma surface to find the value of +! the variable at this intersection. + +! check left side of hill for rhs intersection. +if(sid.eq.'l')then + + do k=3,m1 + if(vctr3(2).le.vctr2(k))goto 10 + tanth=(vctr3(2)-vctr2(2))*dxy + dxynu(k)=tanth/(vctr2(k)-vctr2(2)) + pct=dxy/dxynu(k) + zint(k)=vc3da(2,i+ipm1,j+jpm1)*pct+vc3da(2,i,j)*(1.-pct) + enddo +10 continue + if(vctr3(1).le.vctr2(2))return + + tanth=(vctr3(1)-vctr2(1))*dxy + dxynu(2)=tanth/(vctr2(2)-vctr2(1)) + pct=dxy/dxynu(2) + +! extrapolate the gradient from 3--->2 to 2--->1. + delz1=(vctr1(2)-vctr1(1))/(vctr1(3)-vctr1(2)) + delz2=(vctr2(2)-vctr2(1))/(vctr2(3)-vctr2(2)) + delz3=(vctr3(2)-vctr3(1))/(vctr3(3)-vctr3(2)) + vc1=vc3da(2,i-ipm1,j-jpm1)-(vc3da(3,i-ipm1,j-jpm1) & + -vc3da(2,i-ipm1,j-jpm1))*delz1 + vc3=vc3da(2,i+ipm1,j+jpm1)-(vc3da(3,i+ipm1,j+jpm1) & + -vc3da(2,i+ipm1,j+jpm1))*delz3 +!----------------------------------------------------------------------- +! use the first vc2 formulation for strictly hh runs, as this is +! the 'correct' value to use as an endpoint when interpolating +! along a sigma surface. the second formulation for vc2 is a +! 'fix' around the excessive gridpoint cooling caused by +! extrapolating a locally cold gridpoint to k=1, and then using +! this excessively cold value as an endpoint. this then forces +! the gridpoint cooler at k=2 since the interpolation along the +! k=1 sigma surface will results in a value colder than the k=2 +! gridpoint value. while a hh run with radiate and sfclyr +! commented out, lsflg=3, nudlat=0, initial=1 and us,vs=0 will +! not stay hh, it appears that simulations with the standard +! rturb.f and this version produce very similar results. this +! gives confidence to the solution when using the substantially +! higher resolution allowed by this formulation. +! note that this scheme does not conserve energy in its present +! formulation since it diffuses according to a simple 1:2:1 +! scheme. +! it also appears that while vertical resolution can be as high +! as 20m with no winds, experiments with the real time +! forecasting system indicate a resolution nearer 70m is needed +! since problems with horizontal gradients in a sigma coordinate +! system near steep topography exist in other routines as well. +!----------------------------------------------------------------------- +! vc2=vc3da(2,i,j)-(vc3da(3,i,j)-vc3da(2,i,j))*delz2 + vc2=0.5*(vc3+vc1) + zint(2)=vc3*pct+vc2*(1.-pct) + +! check right side of hill for lhs intersection. +elseif(sid.eq.'r')then + + do k=3,m1 + if(vctr1(2).le.vctr2(k))goto 20 + tanth=(vctr1(2)-vctr2(2))*dxy + dxynu(k)=tanth/(vctr2(k)-vctr2(2)) + pct=dxy/dxynu(k) + zint(k)=vc3da(2,i+ipm1,j+jpm1)*pct+vc3da(2,i,j)*(1.-pct) + enddo +20 continue + if(vctr1(1).le.vctr2(2))return + + tanth=(vctr1(1)-vctr2(1))*dxy + dxynu(2)=tanth/(vctr2(2)-vctr2(1)) + pct=dxy/dxynu(2) + +! extrapolate the gradient from 3--->2 to 2--->1. + delz1=(vctr1(2)-vctr1(1))/(vctr1(3)-vctr1(2)) + delz2=(vctr2(2)-vctr2(1))/(vctr2(3)-vctr2(2)) + delz3=(vctr3(2)-vctr3(1))/(vctr3(3)-vctr3(2)) + vc1=vc3da(2,i+ipm1,j+jpm1)-(vc3da(3,i+ipm1,j+jpm1) & + -vc3da(2,i+ipm1,j+jpm1))*delz1 + vc3=vc3da(2,i-ipm1,j-jpm1)-(vc3da(3,i-ipm1,j-jpm1) & + -vc3da(2,i-ipm1,j-jpm1))*delz3 +! vc2=vc3da(2,i,j)-(vc3da(3,i,j)-vc3da(2,i,j))*delz2 + vc2=0.5*(vc3+vc1) + zint(2)=vc1*pct+vc2*(1.-pct) + +endif + +return +END SUBROUTINE topobnd + +!############################################################################## +Subroutine avgvel (m1,m2,m3,ia,iz,ja,jz,dir,jd,a,b) + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,jd,jaa,jzz,i,j,k +real, dimension(m1,m2,m3) :: a,b +character(len=*) :: dir + +jaa=ja +jzz=jz +if(jd.eq.0) then + jaa=1 + jzz=1 +endif + +if(dir.eq.'xdir')then + do j=jaa,jzz + do i=ia,iz + do k=1,m1 + a(k,i,j)=0.5*(b(k,i,j)+b(k,i+1,j)) + enddo + enddo + enddo +elseif(dir.eq.'ydir')then + do j=jaa,jzz + do i=ia,iz + do k=1,m1 + a(k,i,j)=0.5*(b(k,i,j)+b(k,i,j+jd)) + enddo + enddo + enddo +endif + +return +END SUBROUTINE avgvel diff --git a/src/6.2.16/turb/turb_k.f90 b/src/6.2.16/turb/turb_k.f90 new file mode 100644 index 0000000..fe7a604 --- /dev/null +++ b/src/6.2.16/turb/turb_k.f90 @@ -0,0 +1,760 @@ +!############################################################################## +Subroutine diffuse () + +! +-----------------------------------------------------------------+ +! \ this routine is the subdriver to compute tendencies due to \ +! \ subgrid-scale turbulence. \ +! +-----------------------------------------------------------------+ + +use mem_tend +use mem_basic +use var_tables +use mem_turb +use mem_grid +use mem_leaf +use mem_micro +use mem_scratch +use node_mod +use micphys +use micro_prm, only:krdrop + +implicit none + +integer :: ind,n +real :: s1,s2,s3 +real, pointer :: scalarp, scalart +integer :: i,j,k,ksf,izero + +! ldgrant(2016): added lots of comments and notes +! From strain, if idiffk = 1 or 2: +! vt3da=du/dx vt3db=dv/dx vt3dc=dv/dy vt3dd=du/dz +! vt3de=dv/dz vt3df=dw/dx vt3dg=dw/dy +! vt3dh = 2*[ (du/dx)^2 + (dv/dy)^2 ] + (dv/dx + du/dy)^2 +! = horizontal strain rate tensor magnitude squared +! vt3di = (du/dz)^2 + (dv/dz)^2 = vertical wind shear magnitude squared +! vt3dn=du/dy +! scr2 is not set to anything +! if idiffk >= 3: +! vt3dh = vt3di = 3D strain rate tensor magnitude squared +! scr2 = dw/dz +CALL strain (mzp,mxp,myp,ia,iz,ja,jz & + ,ia_1,ja_1,iz1,jz1,jdim & + ,basic_g(ngrid)%up (1,1,1) ,basic_g(ngrid)%vp (1,1,1) & + ,basic_g(ngrid)%wp (1,1,1) ,scratch%vt3da (1) & + ,scratch%vt3db (1) ,scratch%vt3dc (1) & + ,scratch%vt3dd (1) ,scratch%vt3de (1) & + ,scratch%vt3df (1) ,scratch%vt3dg (1) & + ,scratch%vt3dh (1) ,scratch%vt3di (1) & + ,scratch%vt3dn (1) ,scratch%scr2 (1) & + ,idiffk(ngrid)) + +if (level <= 1) CALL azero (mxyzp,scratch%vt3dp(1)) +! vt3dp set equal to rcp +if (level == 2 .or. level == 3) & + CALL ae1 (mxyzp,scratch%vt3dp(1),micro_g(ngrid)%rcp(1,1,1)) +izero=0 +if (level == 4) CALL sum_bins (micro_g(ngrid)%ffcd,scratch%vt3dp, & + mzp,mxp,myp,1,krdrop-1,izero) + +! vt3dj = N^2 = moist brunt vaisala frequency +CALL bruvais (mzp,mxp,myp,ia,iz,ja,jz & + ,basic_g(ngrid)%theta (1,1,1) ,basic_g(ngrid)%rtp (1,1,1) & + ,basic_g(ngrid)%rv (1,1,1) ,scratch%vt3dp(1) & + ,basic_g(ngrid)%pp (1,1,1) ,basic_g(ngrid)%pi0 (1,1,1) & + ,scratch%vt3dj (1) ,grid_g(ngrid)%rtgt (1,1)) + +! vt3dh is passed in as the (horizontal or 3D) sqd magnitude of +! strain rate tensor +! vt3dh = Khz = vertical diffusion coefficient for scalars on output +! if idiffk = 2 or 3 (Smagorinsky) +! vt3di = vertical wind shear or 3D strain tensor magnitude sqd from routine strain +! vt3dj = N^2 = moist brunt vaisala frequency from subroutine bruvais +! vt3dk = Richardson #, calculated here +! scr1 = Kmz = vertical diffusion coef for momentum vars for idiffk = 2, 3 +! scr2 = Kmx = horiz diffusion coef for momentum vars, set for all idiffk = 1,2,3 +if (idiffk(ngrid) <= 3) then + CALL mxdefm (mzp,mxp,myp,ia,iz,ja,jz & + ,scratch%vt3dh (1) ,scratch%vt3di (1) & + ,scratch%vt3dj (1) ,scratch%vt3dk (1) & + ,scratch%scr1 (1) ,scratch%scr2 (1) & + ,basic_g(ngrid)%dn0 (1,1,1) ,grid_g(ngrid)%rtgt (1,1) & + ,grid_g(ngrid)%dxt (1,1)) +endif + +if (idiffk(ngrid) == 1) then + CALL tkemy (mzp,mxp,myp,ia,iz,ja,jz,jdim & + ,turb_g(ngrid)%tkep (1,1,1) ,tend%tket (1) & + ,scratch%vt3dh (1) ,scratch%vt3di (1) & + ,scratch%vt3dj (1) ,scratch%scr1 (1) & + ,grid_g(ngrid)%rtgt (1,1) ,basic_g(ngrid)%theta (1,1,1) & + ,basic_g(ngrid)%dn0 (1,1,1) ,basic_g(ngrid)%up (1,1,1) & + ,basic_g(ngrid)%vp (1,1,1) ,basic_g(ngrid)%wp (1,1,1) & + ,turb_g(ngrid)%sflux_u(1,1) ,turb_g(ngrid)%sflux_v(1,1) & + ,turb_g(ngrid)%sflux_w(1,1) ,turb_g(ngrid)%sflux_t(1,1),vctr34) +endif + +if (idiffk(ngrid) == 4) then + CALL mxtked (mzp,mxp,myp,ia,iz,ja,jz & + ,turb_g(ngrid)%tkep (1,1,1) ,tend%tket (1) & + ,scratch%vt3da (1) ,scratch%vt3dc (1) & + ,scratch%vt3dh (1) ,scratch%vt3dj (1) & + ,scratch%scr1 (1) ,scratch%scr2 (1) & + ,grid_g(ngrid)%dxt (1,1) ,grid_g(ngrid)%rtgt (1,1)) +endif + + CALL klbnd (mzp,mxp,myp,ibcon,jdim & + ,scratch%scr1 (1),basic_g(ngrid)%dn0(1,1,1)) + CALL klbnd (mzp,mxp,myp,ibcon,jdim & + ,scratch%scr2 (1),basic_g(ngrid)%dn0(1,1,1)) + CALL klbnd (mzp,mxp,myp,ibcon,jdim & + ,scratch%vt3dh(1),basic_g(ngrid)%dn0(1,1,1)) + +!bob swap new hkm, vkm, and vkh with past time level: lagged K's have +!bob internal lateral boundary values from neighboring nodes +! this is for numerical stability + +! vt3dh = Khz = vkh [kg/m3 * m2/s] +! scr1 = Kmz = vkm +! scr2 = Kmx = hkm +ind = 0 +do j = 1,mmyp(ngrid) + do i = 1,mmxp(ngrid) + do k = 1,mmzp(ngrid) + ind = ind + 1 + s1 = scratch%scr2(ind) ! hkm + s2 = scratch%scr1(ind) ! vkm + s3 = scratch%vt3dh(ind) ! vkh + scratch%scr2(ind) = turb_g(ngrid)%hkm(k,i,j) + scratch%scr1(ind) = turb_g(ngrid)%vkm(k,i,j) + scratch%vt3dh(ind) = turb_g(ngrid)%vkh(k,i,j) +!! also for vt3di = K(tke) ????? 22 March 02 +!! scratch%vt3di(ind) = turb_g(ngrid)%vke(k,i,j) + turb_g(ngrid)%hkm(k,i,j) = s1 ! now these are current time level K's + turb_g(ngrid)%vkm(k,i,j) = s2 + turb_g(ngrid)%vkh(k,i,j) = s3 + enddo + enddo +enddo + +CALL diffvel (mzp,mxp,myp,ia,iz,ja,jz,jdim & + ,iz1,jz1,izu,jzv,idiffk(ngrid) & + ,basic_g(ngrid)%up (1,1,1) ,basic_g(ngrid)%vp (1,1,1) & + ,basic_g(ngrid)%wp (1,1,1) ,tend%ut (1) & + ,tend%vt (1) ,tend%wt (1) & + ,scratch%vt3da (1) ,scratch%vt3db (1) & + ,scratch%vt3dc (1) ,scratch%vt3dd (1) & + ,scratch%vt3de (1) ,scratch%vt3df (1) & + ,scratch%vt3dg (1) ,scratch%vt3dj (1) & + ,scratch%vt3dk (1) ,scratch%vt3dl (1) & + ,scratch%vt3dm (1) ,scratch%vt3dn (1) & + ,scratch%vt3do (1) ,grid_g(ngrid)%rtgu (1,1) & + ,grid_g(ngrid)%rtgv (1,1) ,grid_g(ngrid)%rtgt (1,1) & + ,turb_g(ngrid)%sflux_u(1,1) ,turb_g(ngrid)%sflux_v(1,1) & + ,turb_g(ngrid)%sflux_w(1,1) ,basic_g(ngrid)%dn0 (1,1,1) & + ,basic_g(ngrid)%dn0u (1,1,1) ,basic_g(ngrid)%dn0v (1,1,1) & + ,scratch%scr1 (1) ,scratch%scr2 (1) ) + +! Convert momentum K's to scalar K's, if necessary + +if (idiffk(ngrid) <= 3) then + ! now scr2 = Khx = hkh + do ind = 1,mxyzp + scratch%scr2(ind) = scratch%scr2(ind) * xkhkm(ngrid) + enddo +elseif (idiffk(ngrid) == 4) then + do ind = 1,mxyzp + scratch%vt3di(ind) = 2. * scratch%scr1(ind) + enddo +endif + +do n = 1,num_scalar(ngrid) + + scalarp => scalar_tab(n,ngrid)%var_p ! scalar + scalart => scalar_tab(n,ngrid)%var_t ! scalar tendency + + CALL azero (mxp*myp,scratch%vt2da(1)) ! vt2da: zeroed out + if (nstbot == 1) then + if (scalar_tab(n,ngrid)%name == 'THP') then + ! vt2da: include sflux_t + CALL atob (mxp*myp,turb_g(ngrid)%sflux_t(1,1),scratch%vt2da(1)) + elseif (scalar_tab(n,ngrid)%name == 'RTP') then + ! vt2da: include sflux_r + CALL atob (mxp*myp,turb_g(ngrid)%sflux_r(1,1),scratch%vt2da(1)) + endif + endif + +! 3/10/01 - Define ksf below, the "K scalar flag", to let routine diffsclr +! know which vertical K is being passed to it. If diffsclr sees that it's +! a different K from the previous one, diffsclr will re-compute the tridiff +! matrix coefficients. In order to use vertical scalar K's other than +! vt3dh and vt3di, use ksf = 3, ksf = 4, etc. for each different K. + + + ! Need to adjust the vkkh and hkkh arguments of diffsclr() according + ! to which scheme we are using. These are the last two arguments: + ! + ! diffsclr(..., vkkh, hkkh) + ! + if (scalar_tab(n,ngrid)%name == 'TKEP') then + ksf = 1 + if (idiffk(ngrid) == 4) then + ! vkkh <- scratch%vt3di(1) + ! hkkh <- scratch%vt3di(1) + CALL diffsclr (mzp,mxp,myp,ia,iz,ja,jz,jdim,n,ksf & + ,scalarp,scalart ,scratch%vt3da(1) & + ,scratch%vt3db (1) ,scratch%vt3df (1) & + ,scratch%vt3dg (1) ,scratch%vt3dj (1) & + ,scratch%vt3dk (1) ,scratch%vt3do (1) & + ,scratch%vt3dc (1) ,scratch%vt3dd (1) & + ,scratch%vt3dl (1) ,scratch%vt3dm (1) & + ,scratch%vt2db (1) ,grid_g(ngrid)%rtgt (1,1) & + ,scratch%vt2da (1) ,basic_g(ngrid)%dn0 (1,1,1) & + ,basic_g(ngrid)%th0 (1,1,1) ,basic_g(ngrid)%rvt0 (1,1,1) & + ,basic_g(ngrid)%th00 (1,1,1) ,basic_g(ngrid)%rvt00 (1,1,1) & + ,scratch%vt3di (1) ,scratch%vt3di (1) ) + else + ! vkkh <- scratch%vt3di(1) + ! hkkh <- scratch%scr2(1) + CALL diffsclr (mzp,mxp,myp,ia,iz,ja,jz,jdim,n,ksf & + ,scalarp,scalart ,scratch%vt3da(1) & + ,scratch%vt3db (1) ,scratch%vt3df (1) & + ,scratch%vt3dg (1) ,scratch%vt3dj (1) & + ,scratch%vt3dk (1) ,scratch%vt3do (1) & + ,scratch%vt3dc (1) ,scratch%vt3dd (1) & + ,scratch%vt3dl (1) ,scratch%vt3dm (1) & + ,scratch%vt2db (1) ,grid_g(ngrid)%rtgt (1,1) & + ,scratch%vt2da (1) ,basic_g(ngrid)%dn0 (1,1,1) & + ,basic_g(ngrid)%th0 (1,1,1) ,basic_g(ngrid)%rvt0 (1,1,1) & + ,basic_g(ngrid)%th00 (1,1,1) ,basic_g(ngrid)%rvt00 (1,1,1) & + ,scratch%vt3di (1) ,scratch%scr2 (1) ) + endif + else ! scalars other than TKEP + ksf = 2 + if (idiffk(ngrid) == 4) then + ! vkkh <- scratch%vt3dh(1) + ! hkkh <- scratch%vt3dh(1) + CALL diffsclr (mzp,mxp,myp,ia,iz,ja,jz,jdim,n,ksf & + ,scalarp,scalart ,scratch%vt3da(1) & + ,scratch%vt3db (1) ,scratch%vt3df (1) & + ,scratch%vt3dg (1) ,scratch%vt3dj (1) & + ,scratch%vt3dk (1) ,scratch%vt3do (1) & + ,scratch%vt3dc (1) ,scratch%vt3dd (1) & + ,scratch%vt3dl (1) ,scratch%vt3dm (1) & + ,scratch%vt2db (1) ,grid_g(ngrid)%rtgt (1,1) & + ,scratch%vt2da (1) ,basic_g(ngrid)%dn0 (1,1,1) & + ,basic_g(ngrid)%th0 (1,1,1) ,basic_g(ngrid)%rvt0 (1,1,1) & + ,basic_g(ngrid)%th00 (1,1,1) ,basic_g(ngrid)%rvt00 (1,1,1) & + ,scratch%vt3dh (1) ,scratch%vt3dh (1) ) + else ! This is the call for idiffk = 1, 2, or 3 + ! ksf = a flag to tell whether to compute vertical diffusion matrix coeffs + ! scalarp = scalar variable + ! scalart = scalar tendency + ! vt3da = [something from diffvel call], flux divergence x-dir + ! vt3db = [something from diffvel call], flux divergence y-dir + ! vt3df = + ! vt3dg = + ! for the next 3 vars: if rearrange the vertical part of the scalar + ! tendency eqn so LHS has scp(k) at time t+dt, then the following are + ! coefficients: + ! vt3dj = coef on scp(k-1) [kg/m3] + ! vt3dk = coef on scp(k+1) [kg/m3] + ! vt3do = coef on scp(k) [kg/m3] + ! vt3dc = rho0*scalarp [kg/m3 * scalar units] + ! vt3dd = 1/rho0 [m3/kg] + ! vt3dl = + ! vt3dm = + ! vt2db = 1/[coef on scp(k) at k=2] [m3/kg] + ! vt2da = sflux_r if scalar = RTP or sflux_t if scalar = THP or 0 otherwise + ! vt3dh = vkh at past time level [kg/m3 * m2/s] + ! scr2 = hkh at past time level [kg/m3 * m2/s] + ! scalart is updated here + CALL diffsclr (mzp,mxp,myp,ia,iz,ja,jz,jdim,n,ksf & + ,scalarp,scalart ,scratch%vt3da(1) & + ,scratch%vt3db (1) ,scratch%vt3df (1) & + ,scratch%vt3dg (1) ,scratch%vt3dj (1) & + ,scratch%vt3dk (1) ,scratch%vt3do (1) & + ,scratch%vt3dc (1) ,scratch%vt3dd (1) & + ,scratch%vt3dl (1) ,scratch%vt3dm (1) & + ,scratch%vt2db (1) ,grid_g(ngrid)%rtgt (1,1) & + ,scratch%vt2da (1) ,basic_g(ngrid)%dn0 (1,1,1) & + ,basic_g(ngrid)%th0 (1,1,1) ,basic_g(ngrid)%rvt0 (1,1,1) & + ,basic_g(ngrid)%th00 (1,1,1) ,basic_g(ngrid)%rvt00 (1,1,1) & + ,scratch%vt3dh (1) ,scratch%scr2 (1) ) + endif + endif + +enddo + +return +END SUBROUTINE diffuse + +!############################################################################## +Subroutine strain (m1,m2,m3,ia,iz,ja,jz,ia_1,ja_1,iz1,jz1 & + ,jd,up,vp,wp,dudx,dvdx,dvdy,dudz,dvdz & + ,dwdx,dwdy,straintens1,straintens2,dudy,dwdz,idiffk) + +! ldgrant(2016): changed scratch variable names and added lots of comments + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,ia_1,ja_1,iz1,jz1,jd,idiffk,i,j,k +real, dimension(m1,m2,m3) :: up,vp,wp,dudx,dvdx,dvdy,dudz,dvdz,dwdx & + ,dwdy,straintens1,straintens2,dudy,dwdz + +CALL grad (m1,m2,m3,ia,iz1,ja,jz,up,dudx,'XDIR','UPNT') ! du/dx +CALL grad (m1,m2,m3,ia_1,iz,ja_1,jz,vp,dvdx,'XDIR','VPNT') ! dv/dx +CALL grad (m1,m2,m3,ia_1,iz,ja,jz,wp,dwdx,'XDIR','WPNT') ! dw/dx + +CALL grad (m1,m2,m3,ia_1,iz,ja_1,jz,up,dudy,'YDIR','UPNT') ! du/dy +CALL grad (m1,m2,m3,ia,iz,ja,jz1,vp,dvdy,'YDIR','VPNT') ! dv/dy +CALL grad (m1,m2,m3,ia,iz,ja_1,jz,wp,dwdy,'YDIR','WPNT') ! dw/dy + +CALL grad (m1,m2,m3,ia_1,iz,ja,jz,up,dudz,'ZDIR','UPNT') ! du/dz +CALL grad (m1,m2,m3,ia,iz,ja_1,jz,vp,dvdz,'ZDIR','VPNT') ! dv/dz +if(idiffk.ge.3)then + ! dwdz used here only for dx~dz turb schemes + CALL grad (m1,m2,m3,ia,iz,ja,jz,wp,dwdz,'ZDIR','WPNT') ! dw/dz +endif + +if (idiffk .le. 2) then + ! code for idiffk=1,2 when dx>dz + do j = ja,jz + do i = ia,iz + do k = 2,m1-1 + ! horiz strain rate tensor magnitude sqd = + ! 2*[ (du/dx)^2 + (dv/dy)^2 ] + (dv/dx + du/dy)^2 + straintens1(k,i,j) =2. * (dudx(k,i,j) * dudx(k,i,j) & ! 2*(du/dx)^2 + + dvdy(k,i,j) * dvdy(k,i,j)) & ! 2*(dv/dy)^2 + + .0625 * (dvdx(k,i,j) + dvdx(k,i-1,j) & + + dvdx(k,i,j-jd) + dvdx(k,i-1,j-jd) & ! (avg dv/dx)^2 + + dudy(k,i,j) + dudy(k,i-1,j) & + + dudy(k,i,j-jd) + dudy(k,i-1,j-jd)) ** 2 ! (avg du/dy)^2 + ! vertical shear of horizontal wind magnitude squared = + ! (du/dz)^2 + (dv/dz)^2 + ! .0625=1/16 + straintens2(k,i,j) = .0625 * ((dudz(k,i,j) + dudz(k-1,i,j) & + + dudz(k,i-1,j) + dudz(k-1,i-1,j)) ** 2 & ! (avg du/dz)^2 + + (dvdz(k,i,j) + dvdz(k-1,i,j) & + + dvdz(k,i,j-jd) + dvdz(k-1,i,j-jd)) ** 2) ! (avg dv/dz)^2 + enddo + enddo + enddo +else + ! code for idiffk=3,4 when dx~dz + do j = ja,jz + do i = ia,iz + do k = 2,m1-1 + dudx(k,i,j) = 2. * dudx(k,i,j) ! 2*du/dx + dvdy(k,i,j) = 2. * dvdy(k,i,j) ! 2*dv/dy + dwdz(k,i,j) = 2. * dwdz(k,i,j) ! 2*dw/dz + dvdx(k,i,j) = dvdx(k,i,j) + dudy(k,i,j) ! dv/dx + du/dy + dudy(k,i,j) = dvdx(k,i,j) ! dv/dx + du/dy + dudz(k,i,j) = dudz(k,i,j) + dwdx(k,i,j) ! du/dz + dw/dx + dvdz(k,i,j) = dvdz(k,i,j) + dwdy(k,i,j) ! dv/dz + dw/dy + ! 2/3*( du/dx + dv/dy + dw/dz ) + straintens2(k,i,j) = 0.333333 & + * (dudx(k,i,j) + dvdy(k,i,j) + dwdz(k,i,j)) + enddo + enddo + + ! east and west boundaries + do k = 2,m1-1 + dudx(k,iz1,j) = 2. * dudx(k,iz1,j) ! 2*du/dx along east edge + dvdx(k,ia_1,j) = dvdx(k,ia_1,j) + dudy(k,ia_1,j) ! dv/dx + du/dy at west edge + dudy(k,ia_1,j) = dvdx(k,ia_1,j) ! dv/dx + du/dy at west edge + dudz(k,ia_1,j) = dudz(k,ia_1,j) + dwdx(k,ia_1,j) ! du/dz + dw/dx at west edge + enddo + enddo ! j loop + + ! south and north boundaries + do i = ia_1,iz + do k = 2,m1-1 + dvdy(k,i,jz1) = 2. * dvdy(k,i,jz1) ! 2*dv/dy at north edge + dvdx(k,i,ja_1) = dvdx(k,i,ja_1) + dudy(k,i,ja_1) ! dv/dx + du/dy at south edge + dudy(k,i,ja_1) = dvdx(k,i,ja_1) ! dv/dx + du/dy at south edge + dvdz(k,i,ja_1) = dvdz(k,i,ja_1) + dwdy(k,i,ja_1) ! dv/dz + dw/dy at south edge + enddo + enddo + + ! 3D strain rate tensor magnitude squared calculation - + ! is first term magnitude right? Needs checking + do j = ja,jz + do i = ia,iz + do k = 2,m1-1 + ! 1/2*[ (du/dx)^2 + (dv/dy)^2 + (dw/dz)^2 ] + [(dv/dx)+(du/dy)]^2 + ! + [(du/dz)+(dw/dx)]^2 + [(dv/dz)+(dw/dy)]^2 + straintens1(k,i,j) = .5 * ( & ! 1/2 * [ (du/dx)^2 + (dv/dy)^2 + (dw/dz)^2 ] + (dudx(k,i,j) - straintens2(k,i,j)) ** 2 & + + (dvdy(k,i,j) - straintens2(k,i,j)) ** 2 & + + ( dwdz(k,i,j) - straintens2(k,i,j)) ** 2) & + + .0625 * ((dvdx(k,i,j) + dvdx(k,i-1,j) & ! [avg(dv/dx) + avg(du/dy)]^2 + + dvdx(k,i,j-jd) + dvdx(k,i-1,j-jd)) ** 2 & + + (dudz(k,i,j) + dudz(k,i-1,j) & ! [avg(du/dz) + avg(dw/dx)]^2 + + dudz(k-1,i,j) + dudz(k-1,i-1,j)) ** 2 & + + (dvdz(k,i,j) + dvdz(k-1,i,j) & ! [avg(dv/dz) + avg(dw/dy)]^2 + + dvdz(k,i,j-jd) + dvdz(k-1,i,j-jd)) ** 2) + straintens2(k,i,j) = straintens1(k,i,j) + enddo + enddo + enddo +endif + +return +END SUBROUTINE strain + +!############################################################################## +Subroutine bruvais (m1,m2,m3,ia,iz,ja,jz,theta,rtp,rv,rcp,pp,pi0,en2,rtgt) + +use mem_scratch +use micphys +use mem_grid +use rconstants +use mem_turb, only:fracsat + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz +real, dimension(m1,m2,m3) :: theta,rtp,rcp,rv,pp,pi0,en2 +real, dimension(m2,m3) :: rtgt +integer :: i,j,k,iweten,ki +real :: c1,c2,c3,ci1,ci2,ci3,rvlsi,rvii +real, dimension(nzpmax) :: pi,temp,prt,rvls,rc + +! Calculate brunt-vaisala frequency squared (en2). +! From Hill(1974) / Durran and Klemp(1982) (DK82) moist BV modification. +! ldgrant(2016): added comments + +!IWETEN: +!Flag for using saturated-BV (SBV) when cloud water exists (RC>0) and +!water vapor mixing ratio (RV) is greater than a certain fraction of +!saturated water vapor mixing ratio (RVLS). Otherwise, use moist-BV (MBV). +!We use the RV, RVLS condition to prevent applying SBV in cloudy but +!very sub-saturated conditions where evaporation is strong. +iweten = 1 + +!Some constants used in the BV calculations +c1 = alvl / rgas ! Llv / Rd [K] +c2 = ep * alvl ** 2 / (cp * rgas) ! Rd/Rv * Llv^2 / (cp*Rd) [K^2] +c3 = alvl / cp ! Llv / cp [K] +ci1 = alvi / rgas ! Liv / Rd [K] +ci2 = ep * alvi ** 2 / (cp * rgas) ! Rd/Rv * Liv^2 / (cp*Rd) [K^2] +ci3 = alvi / cp ! Liv / cp [K] +ki=m1+1 + +! calculate potential temperature profile + +do j = ja,jz + do i = ia,iz + + do k = 1,m1 + vctr11(k) = theta(k,i,j) + vctr12(k) = theta(k,i,j) + vctr32(k) = 0. + enddo + if (level .ge. 1) then + do k = 1,m1 + vctr12(k) = vctr11(k) * (1. + .61 * rv(k,i,j)) ! theta-v + vctr32(k) = (rtp(k,i,j) - rv(k,i,j)) ! condensate mixing ratio + enddo + endif + +! check for saturation if level is 2 or greater. + + if (level .ge. 2 .and. iweten .eq. 1) then + do k = 1,m1 + pi(k) = (pp(k,i,j) + pi0(k,i,j)) / cp ! non-dim. exner + temp(k) = theta(k,i,j) * pi(k) ! temp [K] + prt(k) = p00 * pi(k) ** cpor ! pressure [Pa] + enddo + CALL mrsl (m1,prt(1),temp(1),rvls(1)) ! saturation m.r. wrt liq at all levels + do k = 1,m1 + vctr2(k) = c1 ! Llv/Rd [K] + vctr3(k) = c2 ! Rd/Rv * Llv^2 / (cp*Rd) [K^2] + vctr4(k) = c3 ! Llv/cp [K] + enddo + ki = m1 + 1 + +! if any ice phase microphysics are activated .... + + if ((ipris .ge. 1 .or. isnow .ge. 1 .or. & + igraup .ge. 1 .or. iaggr .ge. 1 .or. & + ihail .ge. 1) .and. level .eq. 3) then + +! find level of -20 c. assume ice saturation above this +! level. + + do k = 1,m1 + if (temp(k) .le. 253.16) then + ki = k ! first level where T<=-20C + go to 10 + endif + enddo + ki = m1 + 1 ! if no T's below -20C, ki=model top level +10 continue + + ! rvls is sat m.r. wrt ice at all levels above ki + CALL mrsi (m1-ki+1,prt(ki),temp(ki),rvls(ki)) + ! rvlsi is sat m.r. wrt ice at level ki-1 + if(ki > 1) CALL mrsi (1,prt(ki-1),temp(ki-1),rvlsi) + do k = ki,m1 + vctr2(k) = ci1 ! Liv/Rd [K] + vctr3(k) = ci2 ! Rd/Rv * Liv^2 / (cp*Rd) [K^2] + vctr4(k) = ci3 ! Liv/cp [K] + enddo + endif + + if (level .eq. 3) then + do k = 1,m1 + rc(k) = rcp(k,i,j) ! cloud mixing ratio + enddo + else + do k = 1,m1 ! "saturation adjustment" + rc(k) = max(rv(k,i,j) / rvls(k) - .999,0.) + enddo + endif + + endif + + do k = 2,m1-1 + ! g/(2*dz) + vctr1(k) = g / ((zt(k+1) - zt(k-1)) * rtgt(i,j)) + enddo + if (level .ge. 2 .and. iweten .eq. 1) then + do k = 2,m1-1 + !Do saturated BV equation if cloud water is present and water vapor + !mixing ratio is greater than user chosen fraction of saturation + !water vapor mixing ratio. + if ( rc(k) .gt. 0.0 .and. rv(k,i,j) >= fracsat*rvls(k) ) then + rvii = rvls(k-1) ! sat m.r. at level below + if (k .eq. ki) rvii = rvlsi ! at level where T<=-20C + ! g/(2*dz) * [ (1+Llv/Rd*rvs/T) / (1+eps*Llv^2/cp/Rd*rvs/T^2) + ! * (dtheta/theta+Llv/cp/T*drvs) - drt ] + ! need 2*dz in denominator since dtheta and drvs are calculated + ! with a centered difference. + ! Durran and Klemp (1982) Eq.36. + en2(k,i,j) = vctr1(k) * ( & + (1. + vctr2(k) * rvls(k) / temp(k)) & + / (1. + vctr3(k) * rvls(k) / temp(k) ** 2) & + * ((vctr11(k+1) - vctr11(k-1)) / vctr11(k) & + + vctr4(k) / temp(k) * (rvls(k+1) - rvii)) & + - (rtp(k+1,i,j) - rtp(k-1,i,j))) + else ! no cloud water + ! g/(2*dz) * [ dthetav/thetav - drt ] + en2(k,i,j) = vctr1(k)*((vctr12(k+1)-vctr12(k-1)) & + / vctr12(k) - (vctr32(k+1) - vctr32(k-1))) + endif + enddo + else + do k = 2,m1-1 + en2(k,i,j) = vctr1(k) * ((vctr12(k+1)-vctr12(k-1)) & + / vctr12(k) - (vctr32(k+1) - vctr32(k-1))) + enddo + endif + ! lower and upper boundary conditions + en2(1,i,j) = en2(2,i,j) + en2(nzp,i,j)=en2(nz,i,j) + + enddo +enddo + +return +END SUBROUTINE bruvais + +!############################################################################## +Subroutine mxdefm (m1,m2,m3,ia,iz,ja,jz & + ,strain_Khz,straintens,en2,richnum,Kmz,Kmx,dn0,rtgt,dxt) + +! +-------------------------------------------------------------+ +! \ this routine calculates the mixing coefficients with a \ +! \ smagorinsky-type deformational based k with an optional \ +! \ unstable brunt-vaisala enhancement and an optional \ +! \ richardson number modification. \ +! +-------------------------------------------------------------+ + +! strain_Khz (input) = (horiz. or 3D) strain rate tensor magnitude sqd from subroutine strain +! strain_Khz (output) = Khz = vertical diffsn coef for scalars for idiffk = 2, 3 +! straintens = (du/dz)^2 + (dv/dz)^2 if idiffk = 1 or 2 +! or = 3D strain rate tensor squared if idiffk = 3, from subroutine strain +! en2 = N^2 = moist brunt vaisala frequency from subroutine bruvais +! richnum = Richardson #, calculated here +! Kmz = vertical diffusion coef for momentum vars +! set here for idiffk = 2, 3 +! Kmx = horiz diffusion coef for momentum vars, +! set for all idiffk = 1,2,3 + +use mem_scratch +use mem_grid +use mem_turb +use rconstants +use micphys, only:idiffperts + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz +real, dimension(m1,m2,m3) :: strain_Khz,straintens,en2,richnum,Kmz,Kmx,dn0 +real, dimension(m2,m3) :: rtgt,dxt +integer :: i,j,k,irich,ienfl +real :: cxsqd,enfl,rchmax,rtgtsqd,deltaxsqd,cxsqd_dxsqd,akm,rmin,rmax +real :: Lilly_RiN_mod + +irich = 1 ! flag for maximum Richardson number modification +ienfl = 1 ! flag for Hill(1974)/Durran and Klemp(1982) moist BV modification + +if(idiffperts > 0) irich = 0 +!Note: setting irich to 0 does not turn off the Ri# mod by itself, +!need to also set rmax to 0 below. + +! csx is a namelist parameter, dimensionless constant (Smagorinsky constant) +cxsqd = csx(ngrid) * csx(ngrid) ! csx sqd +if (idiffk(ngrid) .eq. 2 .or. idiffk(ngrid) .eq. 3) then + ! Smagorinsky-vertical scheme necessary calculations + rmin = -100. + rmax = 1. / zkhkm(ngrid) + if(irich==0) rmax=0.0 + do j = ja,jz + do i = ia,iz + do k = 2,m1-1 + ! calculate Richardson # + richnum(k,i,j) = max(min(en2(k,i,j) & + / max(straintens(k,i,j),1.e-15),rmax),rmin) + enddo + enddo + enddo + enfl = float(ienfl) ! =0 or 1 + rchmax = 1.0 + 9.0 * float(irich) ! =1 if irich=0, =10 if irich=1 + do k = 2, m1 + vctr1(k) = csz(ngrid) * (zm(k) - zm(k-1)) ! csz*dz + vctr2(k) = vctr1(k) * vctr1(k) ! (csz*dz)^2 + enddo +endif + +if (idiffk(ngrid) .eq. 1) then + ! Smagorinsky-type horizontal, but MY vertical (calculated elsewhere) + do j = ja,jz + do i = ia,iz + deltaxsqd = 1.0 / (dxt(i,j) * dxt(i,j)) ! dx^2 + cxsqd_dxsqd = cxsqd * deltaxsqd ! (csx*dx)^2 + !0.075 * akmin * dx^4/3 + akm = akmin(ngrid) * 0.075 * deltaxsqd ** (0.666667) + do k = 2,m1-1 + ! horizontal diffusion coef for momentum vars [kg/m3 * m2/s] + Kmx(k,i,j) = dn0(k,i,j) & + * max(akm,cxsqd_dxsqd*sqrt(strain_Khz(k,i,j))) !strain rate tensor mag + enddo + enddo + enddo +elseif (idiffk(ngrid) .eq. 2) then + ! Smagorinsky anisotropic scheme + do j = ja,jz + do i = ia,iz + rtgtsqd = rtgt(i,j) * rtgt(i,j) + deltaxsqd = 1.0 / (dxt(i,j) * dxt(i,j)) ! dx^2 + cxsqd_dxsqd = cxsqd * deltaxsqd ! (csx*dx)^2 + !0.075 * akmin * dx^4/3 + akm = akmin(ngrid) * 0.075 * deltaxsqd ** (0.666667) + do k = 2,m1-1 + + !Kmz: vertical diffusion coef. for momentum vars [kg/m3 * m2/s] + !Kmz = rho0 * (csz*dz)^2 * {sqrt[(du/dz)^2+(dv/dz)^2] + ! + FlagN2*sqrt(max(0,-N^2))} + Kmz(k,i,j) = dn0(k,i,j) * rtgtsqd * vctr2(k) & + * ( sqrt(straintens(k,i,j)) & !strain tensor + + enfl * sqrt(max(0.,-en2(k,i,j))) ) !Hill-Durran stability mod (N^2) + !Lilly Richardson # modification: sqrt(max(0,1-[Kh/Km]*Ri)) + Lilly_RiN_mod = min(rchmax,sqrt(max(0.,(1.-zkhkm(ngrid)*richnum(k,i,j))))) + Kmz(k,i,j) = Kmz(k,i,j) * Lilly_RiN_mod + !Kmx: horizontal diffusion coef. for momentum vars + Kmx(k,i,j) = dn0(k,i,j) & + * max(akm,cxsqd_dxsqd*sqrt(strain_Khz(k,i,j))) !strain rate tensor mag + !strain_Khz: here this variable becomes Khz: + !vertical diffusion coef for scalars [kg/m3 * m2/s] + strain_Khz(k,i,j) = Kmz(k,i,j) * zkhkm(ngrid) + enddo + enddo + enddo + +elseif (idiffk(ngrid) .eq. 3) then + ! isotropic Smagorinksy scheme + do j = ja,jz + do i = ia,iz + rtgtsqd = rtgt(i,j) * rtgt(i,j) + do k = 2,m1-1 + ! Kmz = vertical diffusion coef for momentum vars [kg/m3 * m2/s] + ! ldgrant(2016): bug fix: vctr2=(csz*dz)^2 but the coefficient + ! here should be (csx*dx)*(csz*dz). Changed vctr2 to + ! vctr1*csx*/dxt where vctr1=csz*dz and 1/dxt=deltax + Kmz(k,i,j) = dn0(k,i,j) * rtgtsqd * vctr1(k)*csx(ngrid)/dxt(i,j) & + + * ( sqrt(strain_Khz(k,i,j)) & ! strain rate tensor magnitude + + enfl * sqrt(max(0.,-en2(k,i,j))) ) ! Hill stability mod + ! ldgrant(2016): separate out Lilly Ri# modification - comment out + ! next two lines here to turn it off for idiffk=3 + Lilly_RiN_mod = min(rchmax,sqrt(max(0.,(1.-zkhkm(ngrid)*richnum(k,i,j))))) + Kmz(k,i,j) = Kmz(k,i,j) * Lilly_RiN_mod + ! Kmx = horizontal diffusion coef. for momentum vars, set equal to Kmz + Kmx(k,i,j) = Kmz(k,i,j) + ! Khz = vertical diffusion coef for scalars + strain_Khz(k,i,j) = Kmz(k,i,j) * zkhkm(ngrid) ! Khz + enddo + enddo + enddo +endif + +return +END SUBROUTINE mxdefm + +!############################################################################## +Subroutine klbnd (m1,m2,m3,ibcon,jd,akay,dn0) + +implicit none + +integer :: m1,m2,m3,ibcon,jd +real, dimension(m1,m2,m3) :: akay,dn0 +integer ::i,j,k + +! boundary conditions on a mixing coefficient + +do j = 1,m3 + do i = 1,m2 + akay(1,i,j) = akay(2,i,j) * dn0(1,i,j) / dn0(2,i,j) + akay(m1,i,j) = akay(m1-1,i,j) * dn0(m1,i,j) & + / dn0(m1-1,i,j) + enddo +enddo + +if (iand(ibcon,1) .ne. 0) then + do j = 1,m3 + do k = 1,m1 + akay(k,1,j) = akay(k,2,j) + enddo + enddo +endif + +if (iand(ibcon,2) .ne. 0) then + do j = 1,m3 + do k = 1,m1 + akay(k,m2,j) = akay(k,m2-1,j) + enddo + enddo +endif + +if (jd .eq. 1) then + if (iand(ibcon,4) .ne. 0) then + do i = 1,m2 + do k = 1,m1 + akay(k,i,1) = akay(k,i,2) + enddo + enddo + endif + + if (iand(ibcon,8) .ne. 0) then + do i = 1,m2 + do k = 1,m1 + akay(k,i,m3) = akay(k,i,m3-1) + enddo + enddo + endif +endif + +return +END SUBROUTINE klbnd diff --git a/src/6.2.16/turb/turb_ke.f90 b/src/6.2.16/turb/turb_ke.f90 new file mode 100644 index 0000000..22c743a --- /dev/null +++ b/src/6.2.16/turb/turb_ke.f90 @@ -0,0 +1,212 @@ +!############################################################################## +Subroutine mxtked (m1,m2,m3,ia,iz,ja,jz & + ,tkep,tket,vt3da,vt3dc,vt3dh,vt3dj,scr1,scr2,dxt,rtgt) +! +-------------------------------------------------------------------+ +! \ this routine calculates the mixing coefficients based on the \ +! \ prognostic tke and diagnostic length scale, according to the \ +! \ deardorff scheme. \ +! +-------------------------------------------------------------------+ + +use mem_grid +use mem_scratch +use rconstants + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz +real, dimension(m1,m2,m3) :: tkep,tket,vt3da,vt3dc,vt3dh,vt3dj,scr1,scr2 +real, dimension(m2,m3) :: dxt,rtgt +integer :: i,j,k +real :: sqrttkep,tket2,c1,sclu,scl + +do j = ja,jz + do i = ia,iz + tket2 = tket(2,i,j) + c1 = 3.375 * rtgt(i,j) / dxt(i,j) ** 2 ! 3.375 = 1.5 ** 3 + do k = 2,m1-1 + sqrttkep = sqrt(tkep(k,i,j)) + sclu = (c1 * (zm(k) - zm(k-1))) ** .333333 + if (vt3dj(k,i,j) .lt. 1.e-10) then + scl = sclu ! unstable case + else + scl = .76 * sqrt(tkep(k,i,j) / vt3dj(k,i,j)) !stable case + if (scl .gt. sclu) scl = sclu + endif + +! now, vt3dh is strain rate and scr2 is dw/dz + + scr1(k,i,j) = .1 * scl * sqrttkep + vctr25(k) = scr1(k,i,j) * vt3dh(k,i,j) & + - .333333 * tkep(k,i,j) & + * (vt3da(k,i,j) + vt3dc(k,i,j) + scr2(k,i,j)) + vt3dh(k,i,j) = scr1(k,i,j) * (1. + 2. * scl / sclu) + scr2(k,i,j) = scr1(k,i,j) + +! now, vt3dh is vkh and scr2 is hkm + + vctr26(k) = .19 + .51 * scl / sclu + vctr27(k) = - vt3dh(k,i,j) * vt3dj(k,i,j) + vctr28(k) = vctr26(k) * tkep(k,i,j) * sqrttkep / scl + tket(k,i,j) = tket(k,i,j) + vctr25(k) + vctr27(k) & + - vctr28(k) + enddo + tket(2,i,j) = tket2 + vctr25(3) + vctr27(2) - vctr28(2) + + enddo +enddo + +return +END SUBROUTINE mxtked + +!############################################################################## +Subroutine tkemy (m1,m2,m3,ia,iz,ja,jz,jd & + ,tkep,tket,vt3dh,vt3di,vt3dj,scr1,rtgt & + ,theta,dn0,up,vp,wp,sflux_u,sflux_v,sflux_w,sflux_t,tkep2) + +use mem_grid +use mem_scratch +use rconstants + +implicit none + +integer :: m1,m2,m3,ia,iz,ja,jz,jd +real, dimension(m1,m2,m3) :: tkep,tket,vt3dh,vt3di,vt3dj,scr1,theta,dn0 & + ,up,vp,wp +real, dimension(m2,m3) :: rtgt,sflux_u,sflux_v,sflux_w,sflux_t +real, dimension(m1) :: tkep2 +integer :: i,j,k +real :: a1,a2,b1,b2,c1,aux1,aux2,rf1,rf2,rf3,rf4,wght1,wght3,sumtkz,sumtk & + ,al0,tket2,ri,rf,shr,smr,tker,qq,ssmf,shf,sh0,ssm,aux,gm,gh,sm1,sm2 & + ,sh1,sh2,dzloc +real, external :: ssumvect + +data a1,a2,b1,b2,c1/0.92,0.74,16.6,10.1,0.08/ +data aux1,aux2/0.758964199,2.58286747/ +data rf1,rf2,rf3,rf4/1.,0.191232309,0.223117196,0.234067819/ + +! 7 - mellor and yamada (after andre et al, 1978) + +!Saleeby(2014):Check older code for possible experimental values + +wght3=1. +wght1=1.0-wght3 + +do j=ja,jz + do i=ia,iz + do k=2,m1-1 + tkep2(k) = 2.0 * tkep(k,i,j) + vctr30(k) = sqrt(tkep2(k)) +!Upper limit for length scale "L" in stable conditions (Andre et al 1978) + vctr31(k)=.75*vctr30(k)/sqrt(max(1.e-20,vt3dj(k,i,j))) + vctr1(k)=(zt(k)-zm(1))*rtgt(i,j) + dzloc=(zm(k)-zm(k-1))*rtgt(i,j) + vctr33(k)=vctr30(k)*dzloc + vctr32(k)=vctr33(k)*vctr1(k) + enddo + + sumtkz = ssumvect(m1-2,vctr32(2),1) + sumtk = ssumvect(m1-2,vctr33(2),1) + al0=.1*sumtkz/sumtk + tket2=tket(2,i,j) + + do k=2,m1-1 +!Turbulent length scale "L" after Mellor-Yamada (1982) + vctr9(k)=min(vonk*vctr1(k)/(1.+vonk*vctr1(k)/al0) & + ,vctr31(k)) + +! --- for growing turbulence use helfand and labraga's modified sm and sh (sh0) +!Brunt-Vaisala contribution over vertical strain + ri=min(vt3dj(k,i,j)/max(vt3di(k,i,j),1.e-11),0.190) + rf=min(0.6588*(ri+0.1776-sqrt(ri*(ri-0.3221) & + +0.03156)),0.16) + shr=aux2*(rf-rf2)/(rf-rf1) + smr=aux1*(rf-rf4)/(rf-rf3)*shr + tker=max(16.6*vctr9(k)*vctr9(k)*(smr*vt3di(k,i,j) & + -shr*vt3dj(k,i,j)),2.*tkmin) + if(tker.gt.tkep2(k) )then + qq=sqrt(tkep2(k)/tker) + ssmf=qq*smr + shf=qq*shr + sh0=shf + ssm=ssmf + else + +! --- for decaying turbulence use mellor and yamada's sm and sh (sh0) + aux=vctr9(k)*vctr9(k)/tkep2(k) ! L^2 / 2e + gm=aux*vt3di(k,i,j) ! L^2 / 2e * vertical strain + gh=-aux*vt3dj(k,i,j) ! L^2 / 2e * Brunt-vaisala contribution + + sm1=0.6992-9.33948672*gh + sm2=1.-(36.7188-187.4408515*gh+88.83949824*gm)*gh & + +5.0784*gm + ssm=sm1/max(sm2,1e-10) !Sm nondimensional eddy diffusivity + + sh1=0.74-4.0848*ssm*gm + sh2=1.-30.5916*gh + sh0=sh1/max(sh2,1e-10) !Sh nondimensional eddy diffusivity + endif + +!Vertical eddy diffusivity for momentum VKM + scr1(k,i,j)=vctr9(k)*vctr30(k)*ssm +!Vertical eddy diffusivity for heat (scalars) VKH + vt3dh(k,i,j)=vctr9(k)*vctr30(k)*sh0 +!Ps + Pb or (shear production term + buoyancy production term in +!prognostic TKE equation +!(VKM*[(du/dz)^2 + (dv/dz)^2]) - (VKH*(-g/theta * dtheta/dz)) + vctr5(k)=scr1(k,i,j)*vt3di(k,i,j) & + -vt3dh(k,i,j)*vt3dj(k,i,j) + tket(k,i,j)=tket(k,i,j) + 0.5 * vctr5(k) & + -tkep2(k) * sqrt(max(1.e-20,tkep2(k)))/(vctr9(k)*16.6) +!Density weighting for VKM and VKH + scr1(k,i,j)=scr1(k,i,j)*dn0(k,i,j) + vt3dh(k,i,j)=vt3dh(k,i,j)*dn0(k,i,j) +!Vertical eddy diffusivity for TKE + vt3di(k,i,j)=0.2*vctr9(k)*vctr30(k)*dn0(k,i,j) +!print*,'VHM= ',scr1(k,i,j),' VKH= ',vt3dh(k,i,j) + enddo + if(nstbot.eq.1)then + + tket(2,i,j) =tket2 & + + 0.5 * wght3 * vctr5(2+1) & + + wght1 * & + (-(sflux_u(i,j)*(up(2,i,j)+up(2,i-1,j)) & + +sflux_v(i,j)*(vp(2,i,j)+vp(2,i,j-jd)) & + +sflux_w(i,j)*wp(2,i,j))/vctr1(2) & + +sflux_t(i,j)*g/theta(2,i,j))/dn0(2,i,j) & + + - tkep2(2)*sqrt(max(1.e-20,tkep2(2)))/(vctr9(2)*16.6) + + endif + + enddo +enddo + +return +END SUBROUTINE tkemy + +!############################################################################## +Subroutine tkeinit (n1,n2,n3) + +use mem_grid +use mem_turb +use rconstants + +implicit none + +integer :: n1,n2,n3 +integer :: i,j,k + +! limit the values to the minimum + +if( allocated(turb_g(ngrid)%tkep) ) then + do j = 1,n3 + do i = 1,n2 + do k = 1,n1 + turb_g(ngrid)%tkep(k,i,j) = max(tkmin,turb_g(ngrid)%tkep(k,i,j)) + enddo + enddo + enddo +endif + +return +END SUBROUTINE tkeinit